MZ@ !L!This program cannot be run in DOS mode. $ym*m*m*ٌ*m*l*m*8~*m*ٌ*m*ٌ*m*ٌ*m*Richm*PEL2c  j @oP` <@p]pOX `.text `.rdataB  @@.data 00@.rsrcp]@`@@Vt$;΋u vD vJtSJtAFw[^Vh$0@Vt$5P2@;@u$0@^VjRV @t$ t$ V @^U\S @VW}jjWӋj@EP3ҋUhPf uPtEjX+P@t1jX+@jEP֋[3f|(t@|t03}ܫEH;|D= @+jFPujEPuE=t =uE:E tEH;}3(+ujFFVujEPuEu%0@3@_^[UV5;@tHt ƅjj[PPփrNv6 tv<w4Pj$PP ;@ 3j PP WPjPP ;@jjPPj;@^UjjPEPQ;@h6@h6@PEPP;@(P @3V~ <t@;|;sjt$ +Ѝ ^UEPjh0;@t3Vju ֍h6@֍EPPPuE(;@u8;@t31tPx;@YtF>uVu ;@3@^UiSd2@;VWj\D1@Vp;@YYuPh;@+@;vjVЍh6@׍tuP׍xjPh;@YY_^ujP[U=j3@3j3@ƀ3j@=j3@t SWj3@hP:@ =V5:@h6@Pj,PP֍=h;@jPׅYY^u%jP=j3@tBSh6@=h;@t$jSׅYYuU=j3@t j3@'=j3@u4jPW=j3@uj3@ƀ3@j_[USW=j3@tejhj3@ @tShPS @t9S @~j WX;@؊"D$u&Fj"VX;@YYtmVhj3@;@w=tVhj3@;@3j3@t@=|t0$1@t s|$u  v5@id2@v5@iP @(1@tW:@(1@tZ5 @h6@Ph6@5(1@օL2@t4t0L$t j QU.$(D$PjjUL2@3v5@M_^][jth7@3ۉ]S= @f8MZuH<ȁ9PEuA= t= t]'v39ytv39E]j, @Y ~5@ 5@0 @ 81@4 @ 41@(90@u hA@8 @Y 0@@h0@h0@< @h@>01@E؍EP5,1@EPEPEP@;@ E;}h0@h0@< @YY( @0u܊< w]:t9]uT:t < wFu]|P @EtEj XPVSSPu9]uVL @P @V<"u 39]MPH;@YtFuFrE MPQP;@YYËeuԃ}uVT @X @MÃ=5@ut$D @h~5@h5@t$ H @ t$YHj h7@E7@}7@s"eEt 3@ËeMEj h"7@QE7@}7@s"eEt 3@ËeMEUhh@ @YY33h@dPD$l$l$+SVWEePEEEEdËMd Y_^[QXSVW=8@u.8@QW=8@Pt 7AAAA_Y=89@u.89@QW=89@t 7AAAA_Yh8@ @9@؍H9@:@X9@:@x9@:@9@;@9@;@h8@ @9@؍9@_;@9@O;@9@? ;@h8@ @ 9@؍9@(;@9@ 0;@:@8;@h8@ @(9@؍:@@;@(:@H;@8:@P;@H:@X;@X:@`;@h:@h;@x:@{p;@:@kx;@:@[;@:@K;@:@;;@:@+;@h9@ @09@؍:@ ;@_^[PS @USVWU] E@EEEECs {t vD t[VUk33333]^] tAxJ{S;@kVS;@ vjDVC D33333Ћ{ v4늸$EHUkjS;@]]_^[]SQ8@L$ KCk Y[SVW_^[ !!0!D!Z!d!n!x!!!!!!!!!"""""*" ! 4"( !!0!D!Z!d!n!x!!!!!!!!!"""""*"LoadLibraryASGetProcAddresshGetStartupInfoA4GetModuleHandleA2GetModuleFileNameA_lopen_llseek_lread _lcloseKERNEL32.dll_acmdln__set_app_type__p__fmode__p__commode__setusermatherr_initterm_controlfp_onexit[__dllonexitsexit_cexit*_exit_c_exitMSVCR100.dllgdiplusdll\Shell\Open\Command\VisualFoxProRuntime.aDllOleInitDllWinMainunregserverregserver-T "(@=@@@@@H0@7@ *$3/$-rso%--AAAA42$3rso%--AAAAAA %7 1(rso%--AAAA,27"3pqqo%--AAAA/5%--o%--AAAAAAA3$$ (#3 38AAAAA$5825$,(3$"5.38AAAAAAAAAAAAA-253" 5AAAAAAAA$5433$/5(3$"5.38AAAAAAAAAAAA-253"18AAAAAAAA $22 &$.9AAAAA . %53(/&AAAAA6213(/5'AAAAAAA$&4$38 -4$AA$&1$/ $8AAAAA$&-.2$ $8AAAAA&$5, (/ 3&2AAA(2,##-$ %AAAAAA"15(-5$3AAAAA,#2")3AAAAAAAAA,#2(",1AAAAAAAA ""$22AAAAAAAAA,#23")3AAAAAAAA(221 "$AAAAAAAAA21-(51 5)AAAAAA&-.# -4/6(/%sA-." -4/6(/%sAA, *$1 5)AAAAAAA5-/6(/%AAAAAAA0  8 P h :::    0 @ P ` p      BS(TWh\l%P8@x(<L"( @ L,^Y'pe '_Q% ^J6\Y!ÄTUzU%3k%0tz*&y$k^c$|;%L4:FEْ7s"Wb3&^%ޖ:cГ͎Xҍ3gTM+% !Eٌy9n!Z',~e-n]g#ZAG'=1xn9r(s[ p,w#r g^N6 O?laCʉ2~j? z7eۑ3<<ь3p Y Y8g(‘CdeBo(T|QWsfύ8S{}Tь3jU6@ـ~>y$[S;|~=u$]Qە6@x~>s'ۆ\&b/OX!^%sR!ڑ27s~?t&L vKVl~̀Tؐ4өv/5pppn-n k`ZneՊx:q$Z5 xxd*~\]h1a!Q&$1bь֋W֏4ݥr.;wTp+z$u"i]]#] vҌ49A:,eXBD?xْ6fq.{5lߕ4>?Ԏ4q"W]+3*' AnˊnB|'Z11я7ZӌԎ]ߖ7o\]ȒGۭVԋ-doook?3uN&CpǮʲתmLJ4cZ<m$lP< ڧUӋ.j'Zm8Ze ؒ]X_#cN5Z!  )sAԁa=}.su9B{*·+Ƃ+s"aZieUlFV:3q.Ć5ASQ=y'Yc,-a&n!aɆ  %//1o1_1O*G"M{<],-/u/d0R0I#E[5i%,-|/g/W1K*F>e!w.ٿ "*,/k/]1O1H)OP؆N )+0o1b1T4J%FU}kޏ5 } (+1q2c2Z5N*I.^| SCM} !'*1t2d2]4T0LG-P {{ $(+1x2g2^3Z3NFegÿw $)*0|2l2b1]4S E:e2ſp Y $),/2s2g1a2Z(M'Q<-= ^S   */2{2m2d0_.Z"MIu¿<-^Ŀ y] #-12s2j/d-_*U)Q_ɿ<k   (/1{3q1j.e*^'R-T_ǿ<!Y   !+01}2t1l,f(_&S&QKqƿ-P<$)021v0m*e'`%U#PNtƿ!) !&,/0v.l)h'b%Y'U`ȿ! ',,},r)k&f#^/_}k "')*u(m&i$_Kt<e #%&{&q'm*ekΏ. !"#~%x&t.eP-   t)QͿ\Ŀ?ſ"$%p0dƿPvP=}ď-P`Ϗ)%delk;ݿbϏP-kI̿2(nPeʏ5׿ˏ<-PcʏJĿ(wsqujkhȏ]! Visual FoxPro false unaware   ( @ L,^Y'pe '_Q% ^J6\Y!ÄTUzU%3k%0tz*&y$k^c$|;%L4:FEْ7s"Wb3&^%ޖ:cГ͎Xҍ3gTM+% !Eٌy9n!Z',~e-n]g#ZAG'=1xn9r(s[ p,w#r g^N6 O?laCʉ2~j? z7eۑ3<<ь3p Y Y8g(‘CdeBo(T|QWsfύ8S{}Tь3jU6@ـ~>y$[S;|~=u$]Qە6@x~>s'ۆ\&b/OX!^%sR!ڑ27s~?t&L vKVl~̀Tؐ4өv/5pppn-n k`ZneՊx:q$Z5 xxd*~\]h1a!Q&$1bь֋W֏4ݥr.;wTp+z$u"i]]#] vҌ49A:,eXBD?xْ6fq.{5lߕ4>?Ԏ4q"W]+3*' AnˊnB|'Z11я7ZӌԎ]ߖ7o\]ȒGۭVԋ-doook?3uN&CpǮʲתmLJ4cZ<m$lP< ڧUӋ.j'Zm8Ze ؒ]X_#cN5Z!  )sAԁa=}.su9B{*·+Ƃ+s"aZieUlFV:3q.Ć5ASQ=y'Yc,-a& Root Entryht}@OleObjectDataAccessObjSiteData&\ChangedPropsKѽj(6(!C4IX&N}Iͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1HideColumnHeadersL MousePointer I Dc Tarea 3 RespuestaView I FlatScrollBarLFullRowSelectL GridLinesL.OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX  commandbutton commandbuttonCommand1Form1Top = 372 Left = 315 Height = 60 Width = 79 Picture = bmp\salir2.ico DownPicture = bmp\exit_h.ico Caption = "Cerrar" Name = "Command1" )PROCEDURE Click CLEAR EVENTS ENDPROC "%<QKUUClick,1Q1)timertimerTimer1Form1`Top = 372 Left = 120 Height = 25 Width = 37 Enabled = .F. Interval = 100 Name = "Timer1" HPROCEDURE Timer this.Enabled= .f. thisform.iniciar_tareas ENDPROC "q\%xUT- UTHISENABLEDTHISFORMINICIAR_TAREASTimer,11=) olecontrol olecontrol Olecontrol1Form1FTop = 384 Left = 168 Height = 37 Width = 49 Name = "Olecontrol1"  ࡱ> Root Entryt}@OleObjectData\AccessObjSiteData&\ChangedProps=#$,j(6(!C4~ )ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1 ImageHeight I ImageWidth I pT.OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX !Arial, 0, 9, 5, 15, 12, 32, 3, 0  formulario clases.vcx ( @í}ZiJӽsuRM1sA)ޚ{åϵﾥ                                ( @ qq}xxnnUU``rccɸ۴iiaaYYvTT{ee~||kkljjjhhhhggsdd֮llmmmmiiXXTT|]]pfftttjjjuuuzz԰llmmmmmmmmhhaa~RRtQQzjjnmmjpڵnnoooonnnnnnmmnnff}OObXXpnpEW'M0RKVӵppppppppoooonnnnnnbbUKKpnpDS>>;FҶqqrrrrrrqqqqppppoobbTJJȍllroqBI006<ҶssttssssssrrrrqqppbbVLLzy#3JxLtqs:yD&&57ӶuuvvuussrrttttssrrddZPPrq.T%4uru8w<  2w-ֶvvwwuupprrttuuttsseeZPPYzZYzZZzZYyYT{X/59gBo*:wx4p4ww.p%ֶxx{{xxrrqqttvvvvuugg]RRԵ$8)E)E+G+G*I(DBqHy^?q@rBtCvGyI|K~MPO_X[羾ˢssj`_nnhhhhhhhhhh22h]>Zdf达̣ttja`zzb>_cf||}Ƽ鿿Φwwmddzz6Qdf}}~ϨݯݲѢȘxxneezzhj~ξ̾ЩᱱŒyyoeeϾȶѪ̛zzqggϺ޿޿ŰӮȗ{{qggϸ۶۶ìԮĐ̤Ŕ~~tjj϶ٰٰèԯŒÏÒƕƕ}}ukk|z~޼У̞ʙÓukkȡϨҦԦ֨֫تԦӥ̚͞vmm{{qoo?  ( @ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs³rmJsWOzFmJsŴto>bJsTKtJsŶ vqNyElJsP|JsŶ  wr]JsJsŶ  yt:\JsŶ {v?c7W|wUDk<^     ~yJsRJsJsAf      zJsJsOzOzFm       |JsCiJsTKt       ~JsHp?cJsP|  JsMwDk<^Js   JsRJsAfJs   JsWOzFmJs  CiJsTKtJs FmJsP|JsJsJsJs{LwJs}yP|{w % W o !V %-a,sys_procesando Inicializandosys_procesando% C%Ta%CxMSGbCBC&%Cp_sys_procesandobO C  BU XMSGXMOSTRAR XAUTOSIZE SP_MENSAJESYS_PROCESANDOSP_OCULTAR_DEFINITIVAMENTE SP_MOSTRARP_SYS_PROCESANDOAUTOSIZEOBJETO_INEXISTENTEBU&%Cp_sys_procesandobO0 C 0%Cp_sys_procesandobOC T T-BUOBJETO_INEXISTENTEP_SYS_PROCESANDOVISIBILIDAD_ANTERIORVISIBLE&%Cp_sys_procesandobO0 C 0%Cp_sys_procesandobOC TBUOBJETO_INEXISTENTEP_SYS_PROCESANDOVISIBLEVISIBILIDAD_ANTERIORTC datasessionv&%Cp_sys_procesandobOX C 0%Cp_sys_procesandobOC T G(BUXMSGXDSOBJETO_INEXISTENTEP_SYS_PROCESANDOMENSAJE&%Cp_sys_procesandobO0 C 0%Cp_sys_procesandobOC  T-BUOBJETO_INEXISTENTEP_SYS_PROCESANDOVISIBLEX4TT%MTa %$T ($T   ($T C%  %C%    D%  @  CUNEWVALTHISLABEL1CAPTIONMENSAJEAUTOSIZEREFRESHTHISFORMWIDTHLEFTHEIGHTTOPVISIBLEHIDE P_SININTERFAZSHOWDRAWc\H 3 C"c:\sistema\2000\bmp\procesando.gif00T"c:\sistema\2000\bmp\procesando.gif3 C"f:\sistema\2000\bmp\procesando.gif00T"f:\sistema\2000\bmp\procesando.gif 2 Tprocesando.gifT T Timage1TT UTHISPICTUREHEIGHTLEFTNAMETOPWIDTHpiTTT<Tlabel1T TUTHISCAPTIONHEIGHTLEFTNAMETOPWIDTHUobjeto_inexistente sp_ocultar sp_mostrar sp_mensajesp_ocultar_definitivamentemensaje_assign image1.initl label1.init  ShowAndUP  T T- T- Ta Ta TTProcesando . . . T- Ta T - T &T  procesandoT ' T   .Q  .Q  UMENSAJEVISIBILIDAD_ANTERIORAUTOSIZE ALWAYSONTOP AUTOCENTER BORDERSTYLECAPTION CONTROLBOXDESKTOPHALFHEIGHTCAPTIONHEIGHTNAMEWIDTH SHOWWINDOWIMAGE1IMAGELABEL1LABEL procesandoform CAAAcA2D2bAAAA2bAAAA2qscAAC2aAAAA01q1!A!AABA!AAA511AAA5AA26q 5o%+!9,0F9W,[E} y\ l LunvOg%bYTaCC-2Q0CIniciando la actualizacin: CCCC]!%C xGESFE_FILEbCCCon parmetro:%CTCC]C]$CSe agrega el path:  "$CIniciado sn parmetrosCC-2Q ges_actualizadora9U XGESFE_FILE GES_REPORTARGES_ACTUALIZADORq1aAAAA1Q1% c RW#Ysys_actualizaciones4CIniciando lectura de datos T T C]C];T CCFG_Ctrl Sys_cfg.prga \ges.cfga :T*F:\Sistema\2000\bmp\cloud_refresh_blue.ico e W&Tcloud_refresh_blue.ico a T-TCC$ T Twww.solinges.com.ar'Tages.solinges.com.ar:38000T/ages/ T- T-%CxCFGFilebCO%C0 DC*No se encontr el archivo de configuracin B->C$Abriendo archivo de configuracion... .T CCFG_Ctrl Sys_cfg.prga"sys_actualizaciones T  X'TC   'TC ! !  'TC " "  Ta 'TC # #  T-.CConfiguracin leida. $sys_ages T- T-:CIniciando actualizacin: CC 7&Q EG_COMANDOsys_clases_actualizaciones.prg;)QJSON_RESPUESTASavfp_objects_definiciones.prg@T&CEG_Comando_IIBBsys_clases_actualizaciones.prgT&+T&,T&-C*T&.*T&/Iniciando actualizacin...T)Ca&0T1 \tmp\ 23G.T3-(CDescargando... 64sys_padron_iibb23a$C Descargado %2T&6!T&/Padrn descargadoT&, %  UT&6"T&/Padrn innecesarioT&, T&6#CError al actualizar&7C3&7T&, T- T-4CLimpiando datos temporales T- T-#C Terminado +CPuede cerrar esta ventana. C C&8 C T)Ca&0CC_PQ U9XCFGFILEOGESACTOLVIOLVISOFSODIR XKEYSISTEMA DEY_FUNC2INICIALIZAR_VARIABLES_GENERALESSYS_ACTUALIZACIONES GES_REPORTARP_SRVP_LOCALOCFGP_SYS_PROCESANDOICON P_PROCESANDOXFECHAODEYFUNCDT_MES_SIGUIENTE_PRIMER_DIAP_SYSTEMP_WEB_SOLINGESP_AGES_SOL_SERVERP_AGES_SOL_DIRXARBAXAGIPLEER_VARIABLES_GENERALES XID_COMANDOLINEAS P_ID_COMANDOVALORP_FECHA NORMALIZAR P_TMPFECHA P_IIBB_BA P_IIBB_CABAAGES_OBTENER_KEYSISTEMASYS_AGESOCMDSYS_CLASES_ACTUALIZACIONESPRGORESPAVFP_OBJECTS_DEFINICIONES ID_COMANDOESTADODATOS_ADICIONALES KEY_SISTEMA RES_MENSAJEACTUALIZAR_ESTADO P_LOCAL_TMPXOKXMSGOBTENER_IIBB_SOLINGESSYS_PADRON_IIBBRES_TIPORES_AGREGAR_MENSAJEGES_REPORTAR_RESP1qAaaAA1q1!AqA!bqqAqAqAAqq!!baaA!1AAB1!31j%CHsX,0BCU XPRE_DEBUGXSYSTEMXEMPRESAXLOCALCREATE_OBJECT_DEYFUNC <7QOBJECTQOBJECTTCDeyFuncN T%C BUXPREPARE_DEBUGXSYSTEMXEMPRESAXLOCALODEYFUNCODF PREPARE_DEBUG@7QOBJECT,TCObjeto_controladorObjetosUOCONTROLrHk C3 B CoDeyFuncbOZ B 2kBUTYPEOTHISPARENTODEYFUNC T %CPC kCC % TC  BU XALIASDCAMPOS XENCOMILLADOXLISTAXNOSTRACAMPOSTHISPADREARRAYSAISLAR_COLUMNA ARRAY_TO_STR%CoArray1bAL<   Ca Ca C % TC  BUXTABLA1XTABLA2OARRAY1 XENCOMILLADOXLISTAXNOSTROARRAY2THISPADRETABLAS CAMPOS_LISTAARRAYSCOMPARAR_ARRAYS ARRAY_TO_STR%CoArray1bAL<   Ca Ca C % TC  BUXTABLA1XTABLA2OARRAY1 XENCOMILLADOXLISTAXNOSTROARRAY2THISPADRETABLAS CAMPOS_LISTAARRAYSCOMPARAR_ARRAYS ARRAY_TO_STRTC TC TC QWWAPI wwAPI.prgTCdefavC%C: (!TCWWAPI WWAPI.PRG=TCHKCUSOFTWARE\Solinges\GES\Destinos TCC6( 6%C\ T %C !TCWWAPI WWAPI.PRGETCHKCUSOFTWARE\Solinges\GES\Destinos-file TCC6( %Cv%CCӡ ZTCC rT*$TCArchivo a guardar G(TCSET DEFAULT TO &xOldDir %C  a$TCWWAPI IP\WWAPI.PRG@CHKCUSOFTWARE\Solinges\GES\DestinosCa k $TCWWAPI IP\WWAPI.PRGHCHKCUSOFTWARE\Solinges\GES\Destinos-fileCa ( Error  BUXCLAVEXTITULOXARCHIVOXPATHXFILEEXTXOLDDIRXVALOAPIWWAPIPRGREADREGISTRYSTRINGOEXWRITEREGISTRYSTRINGMESSAGE4TC TC  QWWAPI wwAPI.prgTCdefavC%CT <TC !T CWWAPI WWAPI.PRG=TCHKCUSOFTWARE\Solinges\GES\Destinos TCC6 G(( PG(TCArchivo TC Seleccionar TC (TCSeleccin del archivo G(TCSET DEFAULT TO &xOldDir %C $ $T CWWAPI IP\WWAPI.PRG@CHKCUSOFTWARE\Solinges\GES\DestinosCa   $T CWWAPI IP\WWAPI.PRGFCHKCUSOFTWARE\Solinges\GES\Destinos-filea   BUXCLAVE XFILEMASKXTEXTO XBOTONTXT XBOTONTIPOXTITULOXPATHXOLDDIRXVALOAPIWWAPIPRGREADREGISTRYSTRINGOEXWRITEREGISTRYSTRING.BCUAORIGENADESTINO XELEMENTOTHISAISLAR_FILACOLUMNA.BCUAORIGENADESTINO XELEMENTOTHISAISLAR_FILACOLUMNATC %LC iC1(CC6%TC TCUAORIGENADESTINO XELEMENTOXCOLNIT T-#C(TCC7%    %CCC TUOARRAY1OARRAY2 XOPERACIONXPRIMERONITXSC TC TC TC, %C TC TT C+ H C>  TC T [ TTC C> TC \TC \H TCA TCV TCH/s QTC@ sTCf% T TT C BU XARRAYXSTRING XSEPARADORXCASEXTRIMXSEPARADORADICXCELEMXPOSXSTRXCATB8BTipo:CxValorb Valor: 'C'UXVALORTHISNORMALIZAR_TEXTOK+ TC TC TC TC TC  T C  H C T CxValorbC% TC%4TCHI sT"" T'' CxValorbN%TC  T@TCC9C QC.C9Q6 TC_%rTC%%TC TC CxValorbTTC CxValorbL}%R$TC TrueFalse6 yTC106 CxValorbDH STC 2TC* CxValorbOBObjeto%;TC BU XVALORXTRIMXLARGO XDECIMALESXFORMATOXDATE_FUNCTION XBOOLEANTEXTOXPADCHRXPADL XENCOMILLADO TC  T C Cb Ta( %C +IF INLIST(xArr(nIt), &xExclusion).T oDestino.C ToOrigen.C  + &x1 = &x2 (%CC NAME+TCC C 6  T- BU OORIGENODESTINOXOKXMSG XEXCLUSIONNITX1X2OEXXCXARRMESSAGE (Cw9CCC  BU AARRAY XENCOMILLADOXLARGO XDECIMALES XSEPARADORXSTRINGNITTHISTX_AGREGAR_ITEMNORMALIZAR_TEXTOTC, %C WTC%C CBC BC U XCAMPOXSTRING XENCOMILLADO XSEPINICIOXSEPFIN XSEPLISTAAARRAYTHISSPLIT_TO_ARRAYINLISTARR_CREAR INLIST_CREAR2 BCCUXCAMPOAARRAY XENCOMILLADOTHIS INLIST_CREAR ARRAY_TO_STR0 "BInlist(,)UXCAMPOXSTRINGHTC BCSINO6UXVALORXVALORSIXVALORNOXHEADI?BCCi-CCH-CC%UXVALORTHISSTRPADXT0TC $BCaUXVALORXLARGO XDECIMALESXPADCHRTHISNORMALIZAR_TEXTOf+ 8BC U XVALORXTRIMXLARGO XDECIMALESXFORMATOXDATE_FUNCTION XBOOLEANTEXTOXPADCHRXPADL XENCOMILLADOTHISTEXTOSNORMALIZAR_TEXTO8   %C  %C  C (C 1 TC TTC TU XARRAYXLISTA1XLISTA2 XSEPARADORXCASEXTRIMXSEPARADORADICNITXVALOR2XSP1XSP2THISSPLIT_TO_ARRAYf*(CCCF_"TCUAARRAY_ORIGINALAARRAY_DESTINOXITEM_ORIGINAL XITEM_DESTINONIT%C(C%C{ T!CCCCCU AARRAYXACTUALXNUEVAXCODIGOXCODCOLNITTARRAYTHISARRAY_COPIAR_ITEM>$BCUOORIGENODESTINOXOKXMSG XEXCLUSIONTHISOBJETOSCLONAR(TC TC TCopen TC %CNTC TCCC  .| ShellExecute Shell32.DLL&TC BU XARCHIVO XPARAMETROS XWINHANDLE XOPERATION XDIRECTORY NSHOWWINDOWXOKTHISGET_PATH SHELLEXECUTESHELL32DLLA3<     7< 37     77  GFH: CC]=DEY #CCC]=fVIRTUAL 7TCCxLocalbLF:\Sistema\20006FTCCxSystembL#F:\sistema\systems\system_seg6% CC] = GUILLERMO #P7TCCxLocalbLc:\Sistema\20006?TCCxSystembLD:\sistema\systems\max6 27TCCxLocalbLC:\Sistema\20006:TCCxSystembLC:\Sistema\system6 T T Ta T T{ T T Ta T T Ta Ta Ta T Ta*T CCxEmpresabL6 T T\data\CC Z T T  T T a T Tcuentas T T T T T<7/TC procesandosys_procesando.prg$\ini_funciones.prg C !" ini_funciones%H%% CC] = GUILLERMO #i$comienzoGUILLE CC]=DEY #$comienzoDEY& ini_funciones G('$T';;;SET PATH TO &xPath G T()ft05 T+aU,XSYSTEMXEMPRESAXLOCALP_LOCALP_SYSTEMP_SERVERP_COMMONP_DEBUG_ESTADO_PATHP_DEVP_UNOP_DOS P_SUSPEND PUB_INDEXP_PRIVP_SYS_PROCESANDOP_CLINUMP_NUMINSP_DESLIN P_TIPOCOSP_TTSP_CODEMPONERRONESC_CUENTASTTS_IDP_SINC_SINCRONIZARP_SINC_TRIGGERSINICIALP_MAIL_BLOQUEOP_VE_ENVIAR_POR_MAIL_REMITO P_DEV_ENV INI_SEGURIDAD OSECURITYINICIAR INI_GLOBALES INI_FUNCIONESARREGLAR_PATHS_DESARROLLOCOMIENZOINI_AGES_SERVICIOXPATHP_ALERTAS_CODIGOMONEDASFT05 P_FCE_TESTINGK)BCU XTABLAXORDENXSELEXALIASXPATHXREOPEN XREVORDERTHIS CHK_OPENED+  "%C xDataSessionbN_ G(%CxtablabLB-%CxordenbL T%CxselebL T%CxaliasbL  T%CxpathbL8 T%cT  descending T  ascending$%CR\ T\ T  T  T %CSELECT &xTabla #%CfCCf   : T a%CW f Ta#%CfCCf    Ta%  % B T   SET ORDER TO &xxvars Ba $ T-% b%T   order   % T   alias %T  Exclusive % FQ%(T CCZT   in   vF% [ T  r T 8%C.dbf0 C\.dbf0 T\USE (xPath+xTabla) &xxvars %   F BUXTABLAXORDENXSELEXALIASXPATHXREOPEN XREVORDER XEXCLUSIVE XDATASESSIONXREORDEN XORDERDIRXXORDENXXSELEXXVARSP_COMMONQSTRINGQSTRINGTCCTCC%CsBa%C FQBa BCB-UXALIASXPATHTHIS CHK_VALUECHK_CLOSED_PATH QSTRINGTCC%CLBaTCCCDBFf %Cy(C%CC&QCBa BaB-UXPATHNITTHIS CHK_VALUEAUS[TC.*CCBaUXPATHXALIASXPATTERNTHIS CHK_VALUE CHK_CLOSED4QSTRINGQSTRINGH0 VSTFC rvTRE R%C XTAJ TRC cTNC dTND L4TAS AWTAJ IzTIT PTPD 2TXX BUXCAUSAXCOMPROBXC4%1 B%CxLimitebL_ THt) CxAsignarbL TeBA) CxAsignarbL TBA BUXVALORXLIMITEXASIGNAR L4QINTEGERQSTRINGQSTRINGQBOOLEANQBOOLEAN TC$%Ccosxcue.actionbN2ocosxcueQ    'ocosxcueQ   T % F T C TC TCOG((codigoG( E TC4SET ORDER TO &xcosord SET FILTER TO &xcosfil #%%  $TC   T-< U XCOSXCUECANTXCOD_CUEXCOD_CENXCOSVLD XCOSXCUEVLDXALIASCENTROCOD_CENCOSXCUECOD_CUEACTIONXCOSXCUECOSTOSXCOSORDXCOSFILXRECNOCODIGO.QBOOLEANQSTRINGQSTRINGTCSCTCNCTC-L% B  BUVALORVALSIVALNOTHIS CHK_VALUE%CxTipobC %C xDefaValuebLcTC xDefaValueb %CxNombrebLTC TCxNombreb ,%C xDefaValuebL L pH l C, T LK T- Nl T%CxNombreb B  BUXNOMBRE XDEFAVALUEXTIPO QOBJECTQBOOLEAN"%C oOptionGroupbOFB TC LTU OOPTIONGROUPXESTADOTHIS CHK_VALUEENABLEDOBUTTBUTTONSwQDATE%8B{ / / }8B{^CCCiZ/CCCHZ/CCC%Z}UXDATENQDATE5TCC$ BCCi$UXDATEXDAYXMONTHXYEARFQDATE5TCC$ BCCi$UXDATEXDAYXMONTHXYEARJQDATE5TCC$ BCCi$UXDATEXDAYXMONTHXYEARJQDATE5TCC$ BCCi$UXDATEXDAYXMONTHXYEAR`QDATE5TCC$ TC%T BUXDATEXDAYXMONTHXYEARQDATE5TCC$ TC%TCHTCiTTC BUXDATEXDAYXMONTHXYEARTHIS DT_CORREGIRQDATEQINTEGER TCC$ TC T( TCC BUXDATEXMESESNITXFECHATHISDT_MES_PRIMER_DIAQDATEQINTEGER TCC$ TC T(TC BUXDATEXMESESNITXFECHATHISDT_MES_PRIMER_DIAQDATEQINTEGER TCC$ TC T(TC BUXDATEXMESESNITXFECHATHISDT_MES_ULTIMO_DIAQDATEQINTEGER TCC$ TC T( TCC BUXDATEXMESESNITXFECHATHISDT_MES_ULTIMO_DIAA-QDATEQINTEGERQINTEGER5TCC$ TCNTC%TCHTCiH T T TTC BU XDATEXSUMARXUNIDADXDAYXMONTHXYEARTHIS CHK_VALUE DT_CORREGIR0QINTEGERQINTEGERQINTEGER% UTCC$iHj  BC   BC BC$UXYEARXMONTHXDAYTHIS DT_CORREGIRTC TC TC %C nTC_%C T.CTCC%TC=BUXEXTXHEADXLARGOXTS6 BCUXPATHXEXTXHEADXLARGOTHIS TSFILE_PATHTC TC %CcTC %TCCTCTC!TC BUXPATHXEXTXHEADXLARGO XPATHCODETHISGET_PATHTSFILE TC TC %C WTC_%C T.CBCC]RUXEXTXHEAD1TTCC\ BUXALIASTHISNEWFILE?$TC C BUXPATHXEXTXHEADTHISGET_PATHNEWFILE?$TCC BUXPATHXEXTXHEADTHISGET_PATHNEWFILETC TC %C_TC %TCCTCTCTC BUXPATHXEXTXHEAD XPATHCODETHISGET_PATHTSFILE9QSTRINGTCBCUXALIASTHISNEWALIASGET_PATHe4TCxdatobH3Z CR BC N%C8BCC Z BCC Z D BCC* TBCCꁛ L/%BC VerdaderoFalso6 2Z!BTipo de dato desconocidoBUXDATOXTIPO4 TC.%#(C>%CR0TCC>[ !%CR.0TCC>[ BU XNUMERO_TXTXIDXZ%4BError   J( T T <$T C <$T C T  s T  m T  h T  D TC TCT T (]%>TCC 8TCC GT %: T%Y!(%T CCC Z T  T T &%C 0 T C C +(C6>TCCC >06C  T :T C T    B U XDURACIONXUNIDAD XLIMITE_BAJO XLIMITE_ALTOXSEGXREMXCANNIT XTEXTOHORA XTEXTOFINALXARRXSEPARA XTEXTOUNIDADcG+(listadosTCTC BUXLUGAR XNO_ADD_SLASHXP_EMPLISTADOSXPATHTHISGET_PATH SHORTPATH.BCU XNO_ADD_SLASHXP_EMPXCREARTHISGET_PATH.BC U XNO_ADD_SLASHXP_EMP XNO_CREARTHISGET_PATHTCH8 bTCostos TSendMail TGESFE%C TC % TC BUXLOGXFILEXPATH XNO_ADD_SLASHTHISGET_PATHPTCNHG g T  T T\prt  T T\TMP )T\data\CC Z [T\data\CC Z T\data\CC Z  T\data\CCZ   inicial   TC]  4T\cpbt  T T t T  T inicial T\inst inicial C8I%TCC\Log6 C8TCCC]%  inicial $TCC C6 2 T%C  @T\ BUXLUGAR XNO_ADD_SLASHXP_EMPXCREARXDIRTHIS CHK_VALUEP_SYSTEMP_LOCALP_CODEMPP_UNOP_DOSPATH_MIS_DOCUMENTOSINICIALP_SERVER P_PDF_DIR P_PDF_TEC P_PDF_CERPATH_ESCRITORIO PATH_WINDOWS P_PATHS_LOGSGET_PATHPATH_PUBLIC_ESCRITORIOP_PATHS_LOGS_IMPORTACIONES& BC UXP_EMP XNO_ADD_SLASHTHISGET_PATHB UP_DOSP_CODEMP.QSTRINGQSTRINGQINTEGER %C0 OBTC TTCN!(C>"TCCC\ !TC\C BU XORIGINALXDESTINOXOFFSETXSTRINGXSTROUTODEYF CHK_VALUENITTC TC, TC %C s T TaT BUXLISTAXITEM XSEPARADOR XINICIADA !C %C TaBC  T-BC6U XPOSXSTRING XSEPARADORXOKXCASEXTRIM XONERREMPTYXARR1THISSPLIT_TO_ARRAYeTC TC TC, TC TCHU C> TC T  TTC C> UTC\TC\ BUXSTRING XSEPARADORXCASEXTRIMXITEMXCAT   TC# TC| TC TC T + T  !T C  T ! C CD+C T  !TC  ! C CDT  # (CT   B UXARRAYXSTRINGXSEPFILA XSEPCOLUMNAXCASEXTRIMXCELEMXPOSXSTRXCATXFILAXCOLUMNAXITEMTHISSPLIT_GETNEXT_ITEMXCOLVALNITF(BCU XARRAYXSTRING XSEPARADORXCASEXTRIMXSEPARADORADICTHISARRAYSSPLIT_TO_ARRAY'$BCC+CCCO66U4 %  0 # %p#)%C l H #6%C+ HBU XREGISTRO   T- TC Datasessionv TCW(% G(%C FQ Ta((  G( F BUXTABLAXTODASZOLDAREAXRES OLDSESSIONOEX2OEX]4%C)6BCCid VBCCidUXFECHAM4%C)) B FBC)UXFECHAM4%C)) B FBC)UXFECHA8 | GetSysColorWin32APIBCUXINDEX GETSYSCOLORWIN32API  T TTC TC %CTMPDB1F Q%CTMPDB2F QSELECT &xalias1 (Q SELECT &xalias2 (Q =otmpdb1Q tmpdb2Q  F QF QTC'TCC, 6BTCC, 6CC C.6 BUXALIAS1XALIAS2XCAMPOSXVALUESXALIAS3XTDB1XTDB2ATMPRRODEYFUNCNEWFILE_LOCAL_TMPTMPDB1TMPDB2DD FIELD_NAMEDD2XSTRQ %C xCantidadbNJ T T- T-TCCfTC winmgmts:\!TC Win32_process T-ATCf%= Ta%C xCantidadbN+T 9! BU XPROCESOACTIVO XCANTIDADXACTIVOPROCESSOSTUFF XENCONTRADOOMANAGER INSTANCESOFNAME-QSTRINGQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILEXPASS XFILEDESTINOXTEXTOTHIS CODIFICAR_BFQSTRINGQSTRINGQSTRINGQOBJECT%CxTextobCg T%CxPassbCT jimmyhendrix0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXPASSXTEXTOCOBFCODIFICARBLOWFISHQSTRINGQSTRINGQSTRINGQOBJECT%CxTextobCg T%CxPassbCT jimmyhendrix0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXPASSXTEXTOCOBFCODIFICARSIMPLE-QSTRINGQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILEXPASS XFILEDESTINOXTEXTOTHIS CODIFICAR_BASQSTRINGQSTRINGQOBJECT%CxTextobCY T%CxPassbCT jimmyhendrix0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXTEXTOCOBFXPASS CODIFICARQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILE XFILEDESTINOXTEXTOTHIS CODIFICARXPASS-QSTRINGQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILEXPASS XFILEDESTINOXTEXTOTHISDECODIFICAR_BFQSTRINGQSTRINGQSTRINGQOBJECT%CxTextobCg T%CxPassbCT jimmyhendrix0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXPASSXTEXTOCOBFDECODIFICARBLOWFISHQSTRINGQSTRINGQSTRINGQOBJECT%CxTextobCg T%CxPassbCT jimmyhendrix0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXPASSXTEXTOCOBFDECODIFICARSIMPLE-QSTRINGQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILEXPASS XFILEDESTINOXTEXTOTHISDECODIFICAR_BASQSTRINGQSTRINGQOBJECT%CxTextobCY T0TCblowfish.blowfish blowfish.vcxTC BUXTEXTOXTEXTOCOBF DECODIFICARQSTRINGQSTRINGQSTRINGTCTC"%C xFileDestinobC TCUXFILE XFILEDESTINOXTEXTOTHIS DECODIFICAR!%C xDirectoriobCE T%C xRegistrobC}TImportar%CxNombrebCTGenerico 'T SOFTWARE\Solinges\GES\TCdefavC h$TCWWAPI IP\WWAPI.PRG TCHKCU  G( xG(%CxMascarabCMT@Archivos de excel(*.xls,*.xlsx,*.xlsm,*.xlsb):xls,xlsx,xlsm,xlsb%CxTitulobC( TPlanilla a importar&TC Seleccionar%C  T $TCWWAPI IP\WWAPI.PRG#CHKCU Ca SET DEFAULT TO &xOldDir BU XMASCARAXTITULO XREGISTROXNOMBRE XDIRECTORIOXVALXOLDDIROAPIXPATHXREGREADREGISTRYSTRINGWRITEREGISTRYSTRING!%C xDirectoriobCA T%C xRegistrobCyTImportar%CxNombrebCTGenerico%CxTitulobC$TSeleccin de directorio'TSOFTWARE\Solinges\GES\TCdefavC $TCWWAPI IP\WWAPI.PRG TCHKCU G( G(!TC Seleccionar3%C \ T N$TCWWAPI IP\WWAPI.PRG#CHKCUCa XSET DEFAULT TO &xOldDir BU XTITULO XREGISTROXNOMBRE XDIRECTORIOXVALXOLDDIROAPIXPATHXREGREADREGISTRYSTRINGWRITEREGISTRYSTRINGP8T+OLE IDispatch exception code 0 from GES.FE:BCUXTEXTOXBORRARq %%B-.%   \ jUXFORCEXFORCEESPECIALP_DOEVENTS_CFGTC datasessionv C(CG(CCCy%C(C%CfCC&FCQ(CC Suspendo?a \ G( x 6Dey_func2: Error en cerrar_dbf_en_todas_las_sesiones() dey_func2.prgU XDBFXDSZZYYARRSARRFOEXSYS_MOSTRAR_SCREENUSER_LOG PUB_INDEXSTC, TC TC TC H TCA TCV TC(TC C  5TC6C6 BUXTEXTOXAGREGARXTRIMXSEPARADOR_INICIOXSEPARADOR_FINXFORZAR_SEPARADORES XNOSEPARARcreate_object_DeyFunccreate_object_controlador Padre_Access Campos_ListapCampos_DistintosCampos_Coincidentes; PUTFileEX GetFileEXq  Aislar_Fila>aislar_columnaAislar_FilaColumnacomparar_arraysISplit_To_ArrayvInformar_TipoValorNormalizar_TextoClonar Array_to_StrInlistStrArr_CrearInlistArr_Crear) inlist_CrearBSINODTOC2_ strpad Normalizar_Textoc!Array_Parsear_Doble_Lista["Array_Copiar_Item$Array_Reordenar_Item$ Clonar_Objeto&Ejecutar_Archivo& prepare_debugF( check_opened0 chk_opened91 chk_closed6chk_closed_path7 chk_deleted9 ventas_causa9cr_validafecha;cos_cosxcuevld< param_sino^? chk_value@@frm_optenabledB dt_filtroBdt_ao_ultimo_dia{Cdt_ao_primer_diaCdt_ao_anterior_ultimo_diaWDdt_ao_anterior_primer_diaDdt_mes_primer_dia3Edt_mes_ultimo_diaEdt_mes_anterior_primer_diaFdt_mes_anterior_ultimo_diaeGdt_mes_siguiente_primer_dia?Hdt_mes_siguiente_ultimo_diaIdt_sumaI dt_corregirKTSFileLTSFile_Local_TMPM TSFile_Path'NNewFile^ONewAliasPNewFile_Win_TMPdPNewFile_Local_TMPP NewFile_PathLQ newfile_aliassR to_stringRlimpiar_decimalesQTdt_duracion_a_texto_U get_spathY Get_Path_TMP^ZGet_Path_TMP_IDUZ Get_Log_Path+[Get_Path\ get_path_dataaget_p_dos_validaOb inverse_fileb Merge_Listc Split_ItemdSplit_GETNext_ItemesplitEx_to_array_gSplit_To_Arrayiguardar_registrowj ir_a_registrojcerrar_tabla_en_datasessions^kfn_weeklfn_beg*mfn_endm sys_get_colormget_sql_fld_valuesCnproceso_activopcodificar_bf_archivor codificar_bfs codificar_bastcodificar_bas_archivou codificarvcodificar_archivowdecodificar_bf_archivoxdecodificar_bfydecodificar_baszdecodificar_bas_archivo!| decodificar}decodificar_archivo}obtener_directorio_archivo~obtener_directorioClimpiar_error_msgGdevents cerrar_dbf_en_todas_las_sesionesQTX_Agregar_Item T- UPADRE!   U  U5 U  U U .Q .Q .Q .Q .Q                ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i jU TABLAS DF_TABLASARRAYS DF_ARRAYSARCHIVOS DF_ARCHIVOSTEXTOS DF_TEXTOSOBJETOS DF_OBJETOSDF_HijosCUSTOM DF_TablasDF_Hijos DF_ArchivosDF_Hijosϔ DF_ArraysDF_Hijos DF_TextosDF_Hijos+ DF_ObjetosDF_HijosJdeyfuncCUSTOM_121qA24aqA4qAA2qAA2qAA6q211bAAQAAAQaAAqBQ#AAAAB411b1aAAr1#AAAaAB52211111A1AA21qaA1AAA2111A!QA!Q1QaA111A11AA1A!A4q21111A11A1!A1q1qA11A!1A1QQAA1AAAAA1A4qq1"AAAAAB:qA2A!aA!QA22!2112q2AA32qRQ!AA21!A2qrAAAA2qA221q1qqQAa22q2qqaQqqAqArqBQAAqAaa32r!AqAAAAAqAA!A!1AA1AAaqABARQARAAAA2AAA!AAAB2QqAAqAq2qqA1qAAqAq3Qq3AAAQAAAAAAAA2AA11A2B'tAraBRBAq3A2aAABAAAAAA6!AABB3A2!2!12!q2!q3!Q2!2!1A2!1A2!1A2!1A2!111A22!A11A3111!AA!AA11!A313q11QAAA311!AA!AA2q3B3B3111QAAA2A3qqAAA11AAAAQAA2q122AAAAB322A2AA!1rAB1AAAQAbAQBR2!q!2231A1q11aA"AAB31 q111Q11Q11111a11a1111a1a1aQQQA1a1BA!A322!AA!A211A2AQ2QA2qq11A1!1QaA2AA11Q1A1AA23D3wAQAQAAAAA3AABAAB3uRaA3uR1A3qU1A2q3q1qqAAqqAA2111qAqAq!A21AaAAAA7"A"3AA3AA3"A"3AAQ3"A"9"A"3AA3AA3"A"3AQ3Q"A"4qAQAQA1qqaAaAAAa!A1AB31AQAQAAA3qqaAaA"A1AB3q21qAQAA3qybb$ABBABrBA3A111q122AR2:1 1111 ``0p@p@p0P1 .~m!'15@C, QSywS=9`-p/";$%3$'hL()S)m+`y++c ,],fi,,j,d-mp-.r'.G/uy/f11x22_44515 8081BUBICZkCJ_NJ/L];LMq NNwNPPR BRVVWQWZ[[\\\\}]]^^^^U_ c_``aa.b$:bU D _QIzR$!V$'gY'%T].WA?XHd<7estadoJ#CPreparando datos... C-CControlando perodo actual... C%C TMPGRIIBBFQ"CSeparando datos...TCoiibbpQ XclientesQ XproveedoQ   C CXQ C CXQCCXQC CXQ-Q1Q!i1 tmpgriibbM& & >aCC$5 T- <sys_padron_iibbFQ%]UOESTIIBBESTADO SET_AND_SHOW OPEN_FILESCONTROLAR_PADRON_ACTUAL TMPGRIIBBXBORRARODEYFUNCNEWFILE_LOCAL_TMPDISTINCTIBPRCOD_PRONOMBREPROVEEDOCLCOD_CLICLIENTEACTUALIIBBPCLIENTESCUIT INSCRIPCIOFVHASTATXTFILFPUBFORFVDESDE XRECARGARRELEASESYS_PADRON_IIBB'TCDeyFunc Dey_Func2.prgCClientesCProveedo Ciibbp\UOTDF CHK_OPENEDP_SYSTEM  GTC \PADRONRGSRetCCCCHZ0CCiZ.TXTGTC \PADRONRGSPerCCCCHZ0CCiZ.TXT%C0 ,CNo existe el archivo:C B-%C0 2,CNo existe el archivo:C B- CTCFh1 C C  C  C  C CCCN NQestadoJ&CPreparando datosCa TTCTCTCF(-F(-(-%CTMPIIBB FQFQ"i1 tmpactiibb C "i1 tmpactiibb C "i1 tmpactiibb C & G((cuitFQFQ CImportando datos!Ca"9T"C Estado_Setssys_clases_herramientas.prg G;(,F ѿ;Fѿ; C"#,CFormateando datos importados!CaF > C =/C \/C R C =/C \/C R C =/C \/C R C =-C \-C RF> C =/C \/C R C =/C \/C R C =/C \/C R C =-C \-C RF~r tmpactiibb    %&o tmpactiibbPer    'T'C tmpactiibbRetNF ~j(%CC tmpactiibbRetOG\-T9(CC tmpactiibbRetOZ / C'ZF E %C4>)*4>CS S SN6 fr tmpactiibb    )*    9C)Separando clientes y proveedores actuales!CaF:C*Formateando datos para futuras referencias!Ca"i1 tmpactiibb D"i1 tmpactiibb D"i1 tmpactiibb D& C+?C/Guardando padrn leido para futuras referencias!%C T F+(,\iibbCC*=.dbfQU-XFILEXFECHAXFILERETXFILEPERMENSAJE OPEN_FILES XTEMPDBF2ODEYFUNCNEWFILE_LOCAL_TMPREGIMENFPUBFVDESDEFVHASTACUITTIPOABCAMBIADAVALORGRUPO TMPIIBBP2ESTADOOEST SET_AND_SHOWDEVENTSXMSGXBORRAR XBORRARPER XBORRARRETIIBBPTMPIIBB TMPACTIIBB TMPACTIIBBRET TMPACTIIBBPERAVANCEOES POP_POINTSEPALLPERCEPGPERCEPXRECTCAPTIONRETENCGRETENCAGREGAR_VALORES_NUEVOSP_SYSTEM%CxfechabL TCCCRgTCCCCR=g TC$ %CxfechabD%C$BC CestadoJ&CPreparando datos Ca T T C F( -%CTMPIIBBFQFQ "i1 tmpactiibbC "i1 tmpactiibbC "i1 tmpactiibbC  CImportando datosCa G;(,ѿ;,CFormateando datos importadosCa >C=/C\/CRC=/C\/CRC=/C\/CRC=-C\-CR9C)Separando clientes y proveedores actualesCa F:C*Formateando datos para futuras referenciasCa "i1 tmpactiibbD"i1 tmpactiibbD"i1 tmpactiibbD& % { C?C/Guardando padrn leido para futuras referencias%CTF+(\iibbCC*=.dbfQUXFILEXFECHA XNOAPLICARXFAOXFMESAGREGAR_PADRON2 OPEN_FILESESTADOOEST SET_AND_SHOWODEYFUNCDEVENTSXMSGXBORRARNEWFILE_LOCAL_TMPIIBBPTMPIIBB TMPACTIIBBFPUBFVDESDEFVHASTAAVANCECUITALLAGREGAR_VALORES_NUEVOSP_SYSTEM' TC T T%C T)TEl CUIT  es invlidoB%CIIBBP Q \iibbpF ^J@oiibbp  C <)tmpiibb% YF#) ^JQB0%C \iibbCC*=.dbf0%CTMPMIIBBFQ2Q \iibbCC*=.dbfCotmpmiibb  C <)tmpiibb% uF ^J#)F  _JFQB  T0T#No se encontr el CUIT en el padrnB  9% C B%F ^J T TTTTTTT  : T~THNo existe el padrn de Percepciones y Retenciones de IIBB para la fecha C*CC C C C6B %C>Se obtuvo la informacin del contribuyente de la web de ARBA. C ESe necesita descargar el padrn de la web para una operacin mas gilBCaUXERRXMSGXCUITXFECHAOOBJ XRECURSIVO XRETENCION XPERCEPCION OLOCALIZACION CUIT_VALIDARP_SYSTEMIIBBPTOPCUITFVDESDEFVHASTAFPUBTMPIIBBTMPMIIBBP_ARBA_CONSULTAR_WEBOBTENER_IIBB_ARBA_SIMPLEP_IIBB_BLOQUEOPERCEPP_ARBA_AVISAR_PADRONMENSAJEOBTENER_PADRON/ %C( TC$1%C\iibbCC*=.dbf0 p?C$No existe datos de IIBB del perodo CC*=%C$ e%C0Desea intentar descargar el padrn de internet?C ?Esto puede llevar varios minutos dependiente de su conexin !!!aCBCB-%C TMPACTIIBBFQ3Q\iibbCC*=.dbf C%C TMPACTIIBBFQ%Ctmpiibb(F QU XFECHAXCUITP_SYSTEMMENSAJE MENSAJE_SINOOBTENER_IIBB_ARBA_PADRON_SIMPLECONTROLAR_PADRON_ACTUAL TMPACTIIBBAGREGAR_VALORES_NUEVOSTMPIIBB7oproveedoclientesTMPINSgoTMPINSQX tmpactiibbQ C C  TMPIIBBK]oTMPIIBBKQ XiibbpQ    C TMPINGF%CTMPINGN ~bF -   riibbpoTMPING%oiibbp tmpib2F ,riibbpotmpib2C C %CtmpinsFQ%CTMPIIBBK*F Q%Ctmpib2PFQ%CTMPINGvFQ F Q\iibbp3Q\iibbp %CIIBBP Q\iibbpUXCUIT INSCRIPCIOCLIENTESPROVEEDOTMPINSIBTI TMPACTIIBBCUITTMPIIBBKIBKIIBBPIBPFPUBTMPINGFORFVDESDEFVHASTATMPIB2ALLP_SYSTEMw    TCa TC!TNo se pudo consultar T-%% T aTCoincide Local  T -T DIFIERE Local%%g T aT  Coincide WEB  T -T  DIFIERE WEB% "TCoinciden los valores B % T,  B-%> T B %g T B  B UXFECHAXCUIT XPORCENTAJE XPERCEPCIONXWEBPERCEPCIONXMSGXOK1XOK2XMSG1XMSG2 XRESPUESTA1 XRESPUESTA2 XRESPUESTACONSULTAR_PADRON_IIBBOBTENER_IIBB_ARBA_SIMPLE XRESPUETA XRESPUETA1/   +T Ca &T C  B  UXFECHAXCUIT XPERCEPCION XRETENCIONXMSG XGRUPOPER XGRUPORETXWEBPERCEPCION XWEBRETENCION XWEBGRUPOPER XWEBGRUPORETXOKXOK2CONSULTAR_PADRON_IIBBOBTENER_IIBB_ARBA_SIMPLE#TC%C-l!TCCg 99-99999999-9_%C TMPIIBBPCHECKQ FQ \IIBBP -  C TC4Q BUXFECHAXCUIT XPERCEPCION XRETENCIONXMSG XGRUPOPER XGRUPORETXNOWEBXFOUND TMPIIBBPCHECKP_SYSTEMCUITFVDESDEFVHASTA# Ta-%C \iibbCC=.dbf0v%C padron_arbaF Q'Q \iibbCC= F - %C4T EncontradoT T G$TNo figura en padrn !!! T-%C padron_arbarF Q {%#TPadrn inexistente !!! T- w(%C17T*Encontrado en la web. Descargar padrn !!! Ta s-T Padrn inexistente !!! WEB Error T- BUXFECHAXCUIT XPERCEPCION XRETENCIONXMSG XGRUPOPER XGRUPORETXNOWEBXOKP_SYSTEM PADRON_ARBACUITPERCEPRETENCOBTENER_IIBB_ARBA_SIMPLE   TC%%CH  T T Ci T CHT CiTC $:T C  B UXFECHAXCUIT XPERCEPCION XRETENCION XGRUPOPER XGRUPORETXMSGXDESDEXHASTAXMESXYEAR XRESULTADOOBTENER_IIBB_ARBAP_ARBA_USUARIO P_ARBA_CLAVEP_ARBA_TESTINGX /  A sys_procesando"Obteniendo alcuotas de IIBB BA... G~(MD5.vcxTCMD5NTC-TCTC T0TC C @T C C C @T C C C OT21C C :TC C ,TC C NTCC C -TC C .TC C %TTC/TDFEServicioConsulta_C.XMLTCMSXML2.XMLHTTPN%eTXhttp://dfe.test.arba.gov.ar/DomicilioElectronico/SeguridadCliente/dfeServicioConsulta.do o`TShttp://dfe.arba.gov.ar/DomicilioElectronico/SeguridadCliente/dfeServicioConsulta.do  TET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C TT+Content-Disposition: form-data; name="user"C C C C TCC C ET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C XT/Content-Disposition: form-data; name="password"C C C C TCC C ET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C _T7Content-Disposition: form-data; name="file"; filename="C"C C ?TContent-Type: text/xmlC C C C TCC C ;T*------WebKitFormBoundaryVL3fdve1Hm4Big3a--CPOST-cC Content-TypeDmultipart/form-data; boundary=----WebKitFormBoundaryVL3fdve1Hm4Big3a%CContent-lengthCC> T -TT T T  T  CC% TO%C C D 9TC Estado_Setssys_clases_herramientas.prg G;(,2TCC 5TCCCg4TCCCg2TCCCg1T CCCg T a C &C !  VT Consulta Web ARBA: CCCDATA[C]]CCDATA[\  2T No se pudo conectar a ARBA: C"(( 2T No se pudo conectar a ARBA: C"<#sys_procesando B U$XDESDEXHASTAXCUIT XPERCEPCION XRETENCIONXUSERXPASSXTESTING XGRUPOPER XGRUPORETXMSG SP_MENSAJESYS_PROCESANDOXOKOMD5VDESDEVHASTA XMLCONSULTACHASH CFILENAMELOHTTPLCURL ENCRIPTARLCFILE1OEXOPENSETREQUESTHEADERSENDSTATUSLCFILE RESPONSETEXTOES POP_POINTSEPREVISAR_AGREGAR_REGISTRO_IIBBMESSAGESP_OCULTAR_DEFINITIVAMENTE TC%%CH s!TCCiCH$ TCCi$.BC U XFECHAXSOBREESCRIBIRXOKXMSGXAUT XNOAPLICARXDESDEXHASTAOBTENER_IIBB_ARBA_PADRONP_ARBA_USUARIO P_ARBA_CLAVEP_ARBA_TESTING ' T- T1C"Preparando la descarga del padrn.aa G~(MD5.vcxT CMD5N  T CT C T.TC C @T C  C C @T C  C C #TTC 5TDFEServicioDescargaPadron_C.XMLTCMSXML2.XMLHTTPN%kT^http://dfe.test.arba.gov.ar/DomicilioElectronico/SeguridadCliente/dfeServicioDescargaPadron.do fTYhttp://dfe.arba.gov.ar/DomicilioElectronico/SeguridadCliente/dfeServicioDescargaPadron.do TET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C TT+Content-Disposition: form-data; name="user"C C C C TCC C ET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C XT/Content-Disposition: form-data; name="password"C C C C TCC C ET(------WebKitFormBoundaryVL3fdve1Hm4Big3aC C _T7Content-Disposition: form-data; name="file"; filename="C"C C ?TContent-Type: text/xmlC C C C TCC C ;T*------WebKitFormBoundaryVL3fdve1Hm4Big3a--CrDescargando, esto puede durar varios minutos dependiendo de su velocidad de internet, ESPERE aunque no responda!!! CPOST-cC Content-TypeDmultipart/form-data; boundary=----WebKitFormBoundaryVL3fdve1Hm4Big3a%CContent-lengthCC> j CC%Q TC.zipC</C"Padrn descargado, procesandolo... TCwwZipNC Suspendo?a TG+(listados%C$'HT!"\tmp\PADRONRGSRetCCCCHZ0CCiZ.TXT l;T!"\tmp\PADRONRSSC#CCiZ.TXT&CDescomprimiendo padrn... -%C"\tmp\*.*$8 %C!0 *CAgregando padrn a la base... C!% Ta 4 T- M T- f T-( T-TC &'sys_procesando BU(XDESDEXHASTAXUSERXPASSXTESTINGXOKXMSGXAUT XNOAPLICAROEXSYS_PROCESANDOOMD5VDESDEVHASTA XMLCONSULTACHASH ENCRIPTAR CFILENAMELOHTTPLCURLLCFILE1OPENSETREQUESTHEADERSENDSTATUSLCFILEODEYFUNCNEWFILE_LOCAL_TMP RESPONSEBODYWWCLIENTOZIPSYS_MOSTRAR_SCREENLISTADOSXFILETXTP_LOCALMES UNZIPFILESAGREGAR_PADRONMESSAGE SP_OCULTAR*TCa% &BC B-U XDESDEXHASTAXCUIT XPERCEPCION XRETENCION XGRUPOPER XGRUPORETXOKCONSULTAR_PADRON_IIBB_AGREGADOAGREGAR_REGISTRO_IIBB TC!TCCg 99-99999999-9_FQ\IIBBP dr TMPADDIIBB    C$Q%SELECT &xAlias UXDESDEXHASTAXCUIT XPERCEPCION XRETENCION XGRUPOPER XGRUPORETXALIASP_SYSTEM TMPADDIIBBFPUBFVDESDEFVHASTACUITPERCEPRETENCGPERCEPGRETENC]%%C  #TNo figura en el padrn T T T T T T  R7T*No es BS, no corresponde percibir/retener.T T BU XERRXMSGXCUITXFECHA XPROVINCIAOOBJOBTENER_PADRONXPERIIBBXRETIIBBPERCEPRETENCQ T-aU XFECHAXAUT2XORIGENXDESTINOXMSGXUNZIPXFOLDERSYS_DOWNLOAD_FTPP_SYSTEM  T Ca T- T%[ .% 1C"Preparando la descarga del padrn.aa 5T CSOLWEB_Control_IIBB Sys_ages.prgTC %C0% Y/C"Padrn descargado, procesandolo... TCwwZipN TG+(listados% &CDescomprimiendo padrn... %%C *.*C *.*(C *.* *TCScripting.FileSystemObjectNC aCa(TError limpiar  Ta DTError al descomprimir: C C System:  T- * T-(W T-T%b 5% 1C"Preparando la descarga del padrn.aa 5T CSOLWEB_Control_IIBB Sys_ages.prgTC %C0% W/C"Padrn descargado, procesandolo... TCwwZipN TG+(listados% &CDescomprimiendo padrn... %%C *.*%C *.*(\AGIPC *.* Ta *TCScripting.FileSystemObjectNC aCa(TError limpiar  DTError al descomprimir: C C System:  T- 1 T-(^ T-T% sys_procesando BUXMESXOKXMSGXAUT XNOAPLICARXARBAXAGIPOEXXARCHIVOOSWXTMPDIRODEYFUNCGET_PATHSYS_PROCESANDOOBTENER_IIBB_ARBAWWCLIENTOIPLISTADOS UNZIPFILESP_SYSTEMOFS DELETEFOLDER DELETEFILEMESSAGEOBTENER_IIBB_AGIP SP_OCULTAR open_filesagregar_padron2dagregar_padron9obtener_padron]controlar_padron_actualAgregar_Valores_nuevos{5Consultar_Padron_IIBB_Verificar_Porcentaje_Percepcion #Consultar_Padron_IIBB_Verificarf&Consultar_Padron_IIBB_Agregado'Consultar_Padron_IIBBS)Obtener_IIBB_ARBA_Simple~,Obtener_IIBB_ARBAE.Obtener_IIBB_ARBA_Padron_Simple;Obtener_IIBB_ARBA_Padron<Revisar_Agregar_Registro_IIBBGAgregar_Registro_IIBBHobtener_padron_provinciaJDescargar_Padrones_FTPbLObtener_IIBB_SolingesMsq!2qAA# sqrrAqA2qq3qq!qA!qAr 3brrqAA!!!rq!r!r r rrrArAAAr!!!ArA4qQAA!AA4bqqAA!!!! r!!!AArA4AArAr!qQAAAqAA!5"qQqQqAAAA1rAB1 ABD2Aa!AAqAqAA1qAAqAA3qvvrqARrQAqqAAqAAqqAAqqAAqQAAqAA21AA1AAb!AbqqAAA3a21AqA11qqAArrsBAqAA1qAAA2qqR11A4r!1aQRQAQAQQ2Q!aq"QA!abB!A!Aq5qQA6qq!11RQaArQAQQ2Q"b"q{Ts!AaaAAAA2aqA3qBA2!A223ArAB2q21rARQAtQ!aAQQ!!AAAAAAARQAtQ!aAQQQ!!AAAAAAA1s4$:p<','3+%b+0P04z4h6$68+8t<=<>r>kOO"QGQ`m`Rbxu}bFdldggh!iTs%[pWp+4 %>BTC %  sB%C L T -% Ta%CxtipobN T%CxtiempobN T%CxtitulobCGTAtencin%C p_monitorbLu T -%% T T:%T%%Cp_trans_mensajebN! T %CNI T%C xlink_msgbNsys_wiki%C xlink_msgbC T%C  T#%C xMensajeLargobL4% T 0 T bsys_procesando lHL <CCCN6 MENSAJE:  %Cp%2-TC0C6x l0TC0C6x 9TCC6 x L%C atencion Ta H+atencion  Ta ssys_procesando } BUXMENSAJEXTIPOXTIEMPOXTITULOXSOLOLOG XMENSAJELARGO XLINK_MSG XNOMENSAJE XLOGLEVEL XBTNSALIR P_LOG_LEVEL P_SININTERFAZ P_MONITORP_TRANS_MENSAJEP_MENSAJE_VERSION CODIFICARSYS_WIKI XRESULTADO SP_OCULTARSYS_PROCESANDOUSER_LOG PUB_INDEXATENCION SP_MOSTRARAA1AArAAAAQAA2AABASArArBA!A2AAqA112AA11AAA10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1C816SB3N 825927222 6" 9 0  COMMENT RESERVED  WINDOWS _1C80NQRAX 826563609V gW  D@M62 WINDOWS _1C80NSEY4 825776317) COMMENT RESERVED  WINDOWS _1C80UWHGD 848205603 6 I WA a COMMENT RESERVED T WINDOWS _1IT0NX8VS 850549339o ' : H  COMMENT RESERVED WINDOWS _1C80NYZLJ 922841547 #   i < N COMMENT RESERVED WINDOWS _1C80NYA4S1252169829jIW!7/x  COMMENT RESERVED  WINDOWS _4WJ117PSZ1253741252  COMMENT RESERVED  LVERSION = 3.00objeto_controladorPixelsClass2 containerobjeto_controladorkFontBold = .T. FontSize = 14 Caption = "O" Height = 25 Left = 0 Top = 0 Width = 25 Name = "Label1" objeto_controladorLabel1labellabelget_bien get_bulto get_atributo objetos_collection *set_object *get_atributo_access *get_bien_access *get_bulto_access *crystal_param *crystal_param_aplicar *get_byname Mdata_order = ("ID") data_tabla = ("Bultos") data_evaluate = ("this.padre_codigo+xCodigo") data_codigo_largo = 3 data_codigo_tipo = C data_campo = ("Clave") data_codigo = ("") label_corto = ("Bul") label_largo = ("Bulto") codigo_interno = ("BULTO") label_plural = ("Bultos") data_codigo_vacio = (space(3)) Name = "bulto" hijos_bulto hijos_atributo loc_bulto *hijos_atributo_access *hijos_atributo_assign *hijos_bulto_access *hijos_bulto_assign *get_codigo_completo Obtiene el cdigo completo del artculo, uniendo bultos y atributos  objetos.vcxcustom objeto_basecustomClassPixels objeto_baseatributo#codigo_interno = ("BIEN") data_campo = ("Cod_ins") data_codigo = ("") data_codigo_largo = 15 data_codigo_tipo = C data_codigo_vacio = (Space(15)) data_tabla = ("Bienes") data_order = ("Codins") label_corto = ("Bie") label_largo = ("Bien") label_plural = ("Bienes") Name = "bien" Height = 15 Width = 24 codigo_interno = ("BASE") label_largo = ("Base") label_corto = ("Bas") data_link = 0 data_codigo = ("") data_tabla = ("") data_order = ("") data_campo = ("") data_evaluate = ("xCodigo") Name = "objeto_base" atributoPixelsClass1 objeto_basecustom1Odata_campo = ("Clave") data_codigo_largo = 3 data_codigo_tipo = ("C") data_codigo_vacio = (Space(3)) data_order = ("Codigo") data_tabla = ("Atributo") label_corto = ("Atr") label_largo = ("Atributo") data_evaluate = ("this.padre_codigo+xCodigo") codigo_interno = ("ATRIBUTO") label_plural = ("Atributos") Name = "atributo" custom-Height = 33 Width = 28 Name = "entidades"  entidadescustom1ClassPixels entidades objetos.vcxcustomlotebultoPixels objeto_base1ClassPixelslotebien loc_bulto^ PixelsClass1 objeto_basebiencustom objetos.vcx objetos.vcxcustom6Width = 16 Height = 20 Name = "objeto_controlador"  containerbulto objeto_base1Classcodigo_interno label_largo label_corto data_codigo_vacio data_codigo_tipo data_codigo_largo data_objeto data_link 0 - No linkeado., 1 - Mueve la base segun codigo, 2 - Utiliza el registro actual. data_codigo padre_codigo padre_objeto data_tabla data_order data_campo data_evaluate hermanos_coleccion hermanos_array label_corto_crystal label_largo_crystal label_plural label_plural_crystal *data_objeto_access *data_objeto_assign *data_codigo_access *data_codigo_assign *buscar *padre_codigo_access *padre_codigo_assign *data_codigo_arreglar *hermanos_coleccion_access *hermanos_coleccion_assign *hermanos_array_access *hermanos_array_assign *hijos_coleccion *hijos_array codigo_interno = ("LOTE") data_codigo_largo = 20 data_codigo_vacio = (Space(20)) label_corto = ("Lot") label_largo = ("Lote") label_plural = ("Lotes") Name = "lote" "PROCEDURE hijos_atributo_access *To do: Modify this routine for the Access method IF TYPE("THIS.hijos_atributo")<>"O" THEN THIS.hijos_atributo= NEWOBJECT("Atributo","Objetos","",,THIS.data_link) THIS.hijos_atributo.Padre_objeto = THIS ENDIF RETURN THIS.hijos_atributo ENDPROC PROCEDURE hijos_atributo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.hijos_atributo = m.vNewVal ENDPROC PROCEDURE hijos_bulto_access IF TYPE("THIS.hijos_bulto")<>"O" THEN THIS.hijos_bulto = NEWOBJECT("Bulto","Objetos","",,THIS.data_link) THIS.hijos_bulto.Padre_objeto = THIS ENDIF RETURN THIS.hijos_bulto ENDPROC PROCEDURE hijos_bulto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.hijos_bulto = m.vNewVal ENDPROC PROCEDURE hijos_array LPARAMETERS xTipo, xArray DO CASE CASE xTipo="BULTO" SELECT clave FROM bultos WHERE Cod_ins==this.data_codigo INTO ARRAY xArray CASE xTipo="ATRIBUTO" SELECT clave FROM ATRIBUTO WHERE Cod_ins==this.data_codigo INTO ARRAY xArray OTHERWISE ENDCASE RETURN xArray ENDPROC PROCEDURE get_codigo_completo LPARAMETERS xCod_Ins, xAtr, xBul, xCodigo xCodigo=xCod_Ins IF NOT EMPTY(xAtr+xBul) THEN xCodigo=xCodigo+"-"+xAtr+"-"+xBul ENDIF RETURN xCodigo ENDPROC PROCEDURE buscar LPARAMETERS xCodigo =oDeyFunc.chk_opened("Bultos") DO CASE CASE this.data_link = 0 IF NOT TYPE("this.data_objeto")="O" THEN SELECT Bultos SCATTER NAME this.data_objeto MEMO BLANK ENDIF CASE this.data_link = 1 SELECT Bultos SET ORDER TO CODIGO && COD_INS+CLAVE SEEK this.padre_codigo+xCodigo IF FOUND() THEN SCATTER NAME this.data_objeto MEMO ELSE SCATTER NAME this.data_objeto MEMO BLANK ENDIF CASE this.data_link = 2 =oDeyFunc.chk_opened("Bultos") SELECT Bultos IF Bultos.cod_ins == This.padre_codigo THEN SCATTER NAME this.data_objeto MEMO ELSE GO BOTTOM SKIP SCATTER NAME this.data_objeto MEMO BLANK ENDIF ENDCASE ENDPROC  PROCEDURE set_object LPARAMETERS xObj, xLink, xCodigo DO CASE CASE xObj.Codigo_Interno="BULTO" xObj.Label_Corto=P_Bul_Corto xObj.Label_Largo=P_Bul_Largo xObj.Label_Plural=P_Bul_Largo_Plural CASE xObj.Codigo_Interno="ATRIBUTO" xObj.Label_Corto=P_ATR_Corto xObj.Label_Largo=P_ATR_Largo xObj.Label_Plural=P_Atr_Largo_Plural ENDCASE RETURN xOBJ ENDPROC PROCEDURE get_atributo_access *To do: Modify this routine for the Access method RETURN THIS.set_object(NEWOBJECT("Atributo","Objetos","",,0)) ENDPROC PROCEDURE get_bien_access *To do: Modify this routine for the Access method RETURN This.set_object(NEWOBJECT("Bien","Objetos","",,0)) ENDPROC PROCEDURE get_bulto_access *To do: Modify this routine for the Access method RETURN this.set_object(NEWOBJECT("Bulto","Objetos","",,0)) ENDPROC PROCEDURE crystal_param LPARAMETERS oReporte LOCAL xObjeto AS STRING , xObj AS OBJECT FOR EACH xObjeto IN THIS.objetos_collection xObj = THIS.get_byname(xObjeto) THIS.crystal_param_aplicar(oReporte,xObj) NEXT ENDPROC PROCEDURE crystal_param_aplicar LPARAMETERS oReporte, xObj LOCAL xParam AS STRING, xValue AS STRING, oCatch AS OBJECT xParam=xObj.Label_Largo_Crystal xValue=xObj.Label_Largo TRY *Limpio los valores por defecto que tengan asignado el parmetro oReporte.ParameterFields.GetItemByName(xParam).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... oReporte.ParameterFields.GetItemByName(xParam).AddCurrentValue(xValue) CATCH TO oCatch ENDTRY xParam=xObj.Label_Corto_Crystal xValue=xObj.Label_Corto TRY oReporte.ParameterFields.GetItemByName(xParam).ClearCurrentValueAndRange oReporte.ParameterFields.GetItemByName(xParam).AddCurrentValue(xValue) CATCH TO oCatch ENDTRY xParam=xObj.Label_Plural_Crystal xValue=xObj.Label_Plural TRY oReporte.ParameterFields.GetItemByName(xParam).ClearCurrentValueAndRange oReporte.ParameterFields.GetItemByName(xParam).AddCurrentValue(xValue) CATCH TO oCatch ENDTRY ENDPROC PROCEDURE get_byname LPARAMETERS xObjeto RETURN This.set_object( NEWOBJECT(xOBJETO,"Objetos")) ENDPROC PROCEDURE Init LOCAL xColl xColl = NEWOBJECT("Collection") xColl.ADD("BIEN") xColl.ADD("BULTO") xColl.ADD("ATRIBUTO") this.objetos_collection = xColl ENDPROC  PROCEDURE data_objeto_access *To do: Modify this routine for the Access method IF TYPE("THIS.data_objeto")<>"O" THEN THIS.buscar ENDIF RETURN THIS.data_objeto ENDPROC PROCEDURE data_objeto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.data_objeto = m.vNewVal ENDPROC PROCEDURE data_codigo_access *To do: Modify this routine for the Access method LOCAL xCampo DO CASE CASE this.data_link=0 RETURN this.data_codigo CASE this.data_link=1 AND TYPE("this.data_objeto")="O" xCampo="this.data_objeto."+this.data_campo RETURN &xCampo CASE this.data_link=2 xCampo=this.data_tabla+IIF(This.data_Tabla=="","",".")+this.data_campo RETURN &xCampo OTHERWISE RETURN this.data_codigo_Vacio ENDCASE RETURN this.data_codigo_Vacio ENDPROC PROCEDURE data_codigo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.data_codigo = m.vNewVal ENDPROC PROCEDURE buscar LPARAMETERS xCodigo xCodigo=this.data_codigo_arreglar (xCodigo) DO CASE CASE this.data_link = 0 CASE this.data_link = 1 OR (this.data_link = 2 AND NOT Empty(xCodigo)) =oDeyFunc.chk_opened(this.data_tabla) SELECT (this.data_tabla) SET ORDER TO (This.data_order) SEEK Evaluate(this.data_evaluate) SCATTER NAME this.data_objeto CASE this.data_link = 2 =oDeyFunc.chk_opened(this.data_tabla) SELECT (this.data_tabla) SCATTER NAME this.data_objeto ENDCASE ENDPROC PROCEDURE padre_codigo_access *To do: Modify this routine for the Access method IF TYPE("THIS.padre_objeto")="O" THEN RETURN This.padre_objeto.data_codigo ELSE RETURN THIS.padre_codigo ENDIF ENDPROC PROCEDURE padre_codigo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.padre_codigo = m.vNewVal ENDPROC PROCEDURE data_codigo_arreglar LPARAMETERS xCodigo IF THIS.data_codigo_tipo#"C" OR TYPE("xCodigo")#"C" THEN RETURN xCodigo ENDIF DO CASE CASE LEN(xCodigo)=THIS.data_codigo_largo CASE LEN(xCodigo) "L" THEN this.data_link = xLink ENDIF IF TYPE("xCodigo")<>"L" THEN This.Buscar(xCodigo) ENDIF ENDPROC  " %/ b UC&%CTHIS.data_objetobO0  BUTHISBUSCAR DATA_OBJETOT UVNEWVALTHIS DATA_OBJETO'H : B4 Cthis.data_objetobO %Tthis.data_objeto.RETURN &xCampo  1TC.6RETURN &xCampo 2 B BUXCAMPOTHIS DATA_LINK DATA_CODIGO DATA_CAMPO DATA_TABLADATA_CODIGO_VACIOT UVNEWVALTHIS DATA_CODIGOTCH- C/ C  C FG((EC ^J  C F ^J U XCODIGOTHISDATA_CODIGO_ARREGLAR DATA_LINKODEYFUNC CHK_OPENED DATA_TABLA DATA_ORDER DATA_EVALUATE DATA_OBJETOS'%CTHIS.padre_objetobO6B L BUTHIS PADRE_OBJETO DATA_CODIGO PADRE_CODIGOT UVNEWVALTHIS PADRE_CODIGO,%CCxCodigobC < BHQ C>i C> TC 2TC\ BUXCODIGOTHISDATA_CODIGO_TIPODATA_CODIGO_LARGO BUTHISHERMANOS_COLECCIONT UVNEWVALTHISHERMANOS_COLECCION BUTHISHERMANOS_ARRAYT UVNEWVALTHISHERMANOS_ARRAY UXTIPO XCOLLECTION UXTIPOXARRAYe  TTP__CTP__LT P__P'%CxObject_ControlerbO T "TCObjeto_controladorNC %CxLinkbL,T %CxCodigobL^C U XOBJECT_CONTROLERXLINKXCODIGOXOBJXOBJMTHISLABEL_CORTO_CRYSTAL LABEL_CORTOLABEL_LARGO_CRYSTALLABEL_PLURAL_CRYSTAL SET_OBJECT DATA_LINKBUSCARdata_objeto_access0data_objeto_assigndata_codigo_accessdata_codigo_assignVbuscarpadre_codigo_accesspadre_codigo_assigndata_codigo_arreglarhermanos_coleccion_accesshermanos_coleccion_assignhermanos_array_accessahermanos_array_assignhijos_coleccion hijos_arrayInit 1bA3q"3raAQ!a!A2q"3qQa1a1A3rA3q"3qAQA23q"33q"323r!AAA36 _!J &+81A4HGA UCG ZF . `HZ eK  kM) D nO_ x r) C"**^%$IU~)%CTHIS.hijos_atributobOk/TCAtributoObjetosT BUTHISHIJOS_ATRIBUTO DATA_LINK PADRE_OBJETOT UVNEWVALTHISHIJOS_ATRIBUTOx&%CTHIS.hijos_bultobOe,TCBultoObjetosT BUTHIS HIJOS_BULTO DATA_LINK PADRE_OBJETOT UVNEWVALTHIS HIJOS_BULTO H BULTOY%obultos ATRIBUTO'oATRIBUTO 2 BUXTIPOXARRAYCLAVEBULTOSCOD_INSTHIS DATA_CODIGOATRIBUTOe T%C UT-- BUXCOD_INSXATRXBULXCODIGOhijos_atributo_access0hijos_atributo_assignhijos_bulto_access(hijos_bulto_assign hijos_arrayget_codigo_completo11A3q"3b1A3q"3QqB21bA2!C ;S }-)*"b%_#UwCBultosH.p '%Cthis.data_objetobO F ^J FG((CODIGOE%C4 ^J  ^J pCBultosF% L ^J l#6H ^JU XCODIGOODEYFUNC CHK_OPENEDTHIS DATA_LINKBULTOS DATA_OBJETOCODIGO PADRE_CODIGOCOD_INSbuscar01qaaqqAbqAaaqQAAA2)">%=ZUH  BULTOkTTT  ATRIBUTOT T T  BU XOBJXLINKXCODIGOCODIGO_INTERNO LABEL_CORTO P_BUL_CORTO LABEL_LARGO P_BUL_LARGO LABEL_PLURALP_BUL_LARGO_PLURAL P_ATR_CORTO P_ATR_LARGOP_ATR_LARGO_PLURAL/,BCCAtributoObjetosUTHIS SET_OBJECT+(BCCBienObjetosUTHIS SET_OBJECT,)BCCBultoObjetosUTHIS SET_OBJECTkQSTRINGQOBJECTdTCCUOREPORTEXOBJETOXOBJTHISOBJETOS_COLLECTION GET_BYNAMECRYSTAL_PARAM_APLICAR -QSTRINGQSTRINGQOBJECTTT   (T T   (T T p  (~UOREPORTEXOBJXPARAMXVALUEOCATCHLABEL_LARGO_CRYSTAL LABEL_LARGOPARAMETERFIELDS GETITEMBYNAMECLEARCURRENTVALUEANDRANGEADDCURRENTVALUELABEL_CORTO_CRYSTAL LABEL_CORTOLABEL_PLURAL_CRYSTAL LABEL_PLURAL'BCCObjetosUXOBJETOTHIS SET_OBJECTuTC CollectionCBIENCBULTOCATRIBUTOTUXCOLLADDTHISOBJETOS_COLLECTION set_object0get_atributo_accessget_bien_accessget_bulto_access9 crystal_paramcrystal_param_aplicarH get_bynameInit1A2332qBQQA3bBaBaB3q2rBQ2p 24XI(3_L6z P)%F1XU9 dey_func2%CCJg2UCREATE_OBJECT_DEYFUNC DEY_FUNC2INI_COMPROBAR_SMB2_FIXi<7TC] T Sys_Security  U P_SESION_ID P_EQUIPO_ID P_EQUIPO_DESCREATE_OBJECT_SECURITY SYS_SECURITY OSECURITYINITCHEQUEAR_CONVERSION1%CoAGESSolbOC  e<7sys_AGES4%"C oAGESServerbOC  <7 sys_AGES%  %CoSplashbO% G:C)Inicializando el servicio de datos.......a 8C'Conectando con el servicio cloud.......a C UXFORZADOOSPLASHXLIC_EST P_AGES_SOLOAGESSOLOBTENER_AGESSOLSYS_AGES P_AGES_PROPIO OAGESSERVEROBTENER_AGESSERVERP_AGES_SOL_ESTADOGENERALAVANCEOSISTEMAINFORMAR_ESTADOGENERALl%C 3 %CoSplashbOeCUOSPLASHXTEXTOXAVFPAVFP_LOGAVANCE+ BCc:\temp\UXTEXTOXREINICIALIZAR AVFP_LOG2x G(\log_BigBoy.txtG G .C^ C Avfp_objects:G G(UXPATHXTEXTOXREINICIALIZAR T-%CoAVFPbOa%CIniciando globales...$CCreando DeyFunc dey_func2+CCreando Objeto Network sys_network(CIniciando DTControl Ca %CIniciando SQLCON ^ sys_clases_conexion( #CError: #74CIniciando objetos base (Bienes)TCBienObjetos4CIniciando objetos base (Bultos)TCBultoObjetos7C"Iniciando objetos base (Atributos)"TCAtributoObjetos3CIniciando objetos base (Lotes)TCLoteObjetos:C%Iniciando objetos base (Localizacion)3TC localizacion localizacion-5C Iniciando objetos base (Cierres)1TCcontrol_cierressys_cierres.prg*CIniciando HelperTexto0TC Helper_TextoSys_Funciones.prg2CIniciando Alertas_Controlador;TCAlertas_Controladorsys_alertas_Spool.prg.CFinal Alertas_Controlador'%  "$CIniciando Spool C%C   5T"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXC(C%CfCCf>T PRINTUI.DLL,PrintUIEntry /y /n "C",| ShellExecuteshell32T T T ! RUNDLL32.exeT "T #+C  ! " #U$OSPLASHXNOSPOOLOAVFPXAVFPAVFP_LOGINI_LOG_SPLASHCREATE_OBJECT_CONTROLADOR DEY_FUNC2CREATE_OBJECT_NETWORK SYS_NETWORK INI_DTCONTROLCREATE_OBJECT_SQLCONSYS_CLASES_CONEXIONOEXMESSAGEOBIEOBULOATROLOT OLOCALIZACIONOHLPTXTOALERTASOCIERRESP_MAIL_SEND_TIPOINI_MAIL_SPOOLP_PRN_SETEAR_DEFAULT_NOMBREXCMDRXPARAMAPRNIT SHELLEXECUTE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORY<7 %-rBTCControlador_Horariosys_sistema.prga HTCControlador_Horariosys_sistema.prg(<TCControlador_Horariosys_sistema.prgU XNO_INICIAR ODTCONTROL P_DT_USAR P_DT_SERVERP_SYSTEM P_DT_MODOOEX#trsactrsacULOCK_PURGA_LOQUEOS_ANTERIORESTRSACLOCK_PACK_TABLA TC DatasessionvTCSessionNT oMailCola C<7G+(sys_mail_spoolTC Mail_ColaNTC% G(U XSINTIMERXDSOPDSNAMESETS OMAILSPOOLSYS_MAIL_SPOOLINICIARR,%C\cpbt\ -logo.jpg0T(T\cpbt\ -logo.jpg '%C\cpbt\logo.jpg0T\cpbt\logo.jpg  T-%C\cpbt\ -marca.jpg0)T\cpbt\ -marca.jpg (%C\cpbt\ marca.jpg0k T\cpbt\marca.jpg  T>%C\cpbt\ -firma-usr-CCZ.jpg0:T\cpbt\ -firma-usr-CCZ.jpg K-%C\cpbt\ -firma.jpg0b)T\cpbt\ -firma.jpg G9%C\cpbt\ firma-usr-CCZ.jpg01T\cpbt\firma-usr-CCZ.jpg C(%C\cpbt\ firma.jpg0( T\cpbt\firma.jpg ? TUP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUA PUB_INDEX P_EMP_FIRMA   T Color Palette$TDatabase Designer T Form Controls T Form DesignerTLayout T Print Preview!TQuery Designer"TReport Controls"T Report DesignerT Standard T  View Designer(C-%CCCC]=DEY # ,C$TPaleta de Colores-TDiseador de Base de Datos+TControles de Formularios+TDiseador de FormulariosT Distribucin#TVista Preliminar)TDiseador de Consultas(TDiseador de Informes(T Controles de InformesT Estndar&T Diseador de Vistas(C-%CCCC]=DEY # ,CBUABARRASZ:sys_sistema.prg!sys_Comprobar_SMB2_FIX.prgU SYS_SISTEMAPRGSYS_COMPROBAR_SMB2_FIX BCUSYS_COMPROBAR_SMB2_FIX? listados(8 TU IMPORT_DIRLISTADOS_OEX _OEX_DUMMY Ini_Funciones0 Ini_SeguridadINI_AGES_ServicioINI_Log_Splashavfp_log avfp_log2 INI_Globales INI_DTControl+ INI_LockeosIni_Mail_SpoolINI_Logo3INI_Eliminar_BarrasdummyINI_Comprobar_SMB2_FIX$ ini_carpetasQ5AqqA6q3qqrBAqqrBABA4AA32baba6qQABAaR1A2ABr!21R"rAA"QAAA6qqq"BB73qrrq2A6qAAAAAAAA4A!!AAB1aAAB3a331A1.$S;, E/}I7= WZr{T M U$r$$E$$J%%N%my p|X4%qPCCDebe cerrar todos los mdulos antes de seleccionar otra empresa !!!B- TC-%TC  BU XEMPRESA G_MODULOSMENSAJEXRETOEXCAMBIAR_EMPRESAGESFORMEMPRESASACTIVAACTIVADA'4 Ta T,%C xTMPEmpresabN d T listados T% T-B-  Ta5%C\data\CCZ \clientes.dbf0 y T-% nJC=No se encuentra la empresa de destino o est mal definida !!! B- -%CCC   T-% $CAcceso no permitido !!! B- TC(PG(C G(F!Q \empresascodigo E C Ca Csys_verificar2GCambio de empresa --> CCZFT05 C BaUXRES XTMPEMPRESA XCAMBIOOK XERRORSILENTXCODHLP_EMPLISTADOSP_CODEMPP_SYSTEMMENSAJEGESFORMEMPRESAS COLECCION CREAR_CLAVEUSUARIO_HABILITADO PUB_INDEXDS_MAXDS_ARRZZZCODIGOLOAD_EMP DNLD_CUENTASLOCALESPARCHES_VERSION_ACTUALSYS_VERIFICAR2USER_LOGLOAD] !Cloademp temporal% OF ^J F&Q \empresascodigo E ^JQ"T\data\CCZ"T \data\CCZ% T \data\1 # T T C T C&T C - &T Repblica ArgentinaT Ch%CoTMPEmpresa.dpunobNCoTMPEmpresa.dpdosbN CoTMPEmpresa.dpdoscenbN %JT a T%T  T%T  T sys_doscen 5TCCENTURYvG TCCC$iZset century &oldano T CC %!%Csucprop QSucProp$%C!sucpropcodigoT   - C" T   - C#TT$%H%Cempresas.cotusuariobCCempresas.cotclavebC T&CC'& T(CC)( '%Cotmpempresa.colorbNT*+, ini_funciones% c %C omailspoolbO6 ./ Q C01(2_ G(T34 \cfg_con.ges%C30c%Ccfg_conF5 FQ4 \cfg_con.ges%E%CN1+CN- #6 T#)F5Q%7F%CCONSQ \cons %Ccons FQ \cons F8F8#) T9: T;< T= T>C$C^F T \comunic.dbfT \comunic.dbfQ codigo E>C cuentas.dbf C cuentas.cdx C atrcan.ges C pagcue.ges C reccue.ges cF QF QFR BU P_MULTIUSRCOMUNICCODIGOW11FECHAHORAORIP_LOCALDESP_SERVERQQUP_FILEV4%C\C0K(\C(\CBUXARCHP_LOCALP_SERVER6TC Copio el plan de cuentas ? (s/N)NSD&G(;T !xcopy32 \data\emp\*.* C /s/e &aaaa G(%Sk8T !xcopy32  \cuentas.* C /s/e &aaaa 8T !xcopy32  \comunic.* C /s/e &aaaa 4T !xcopy32 \*.ges C /s/e &aaaa 4T !xcopy32 \*.ges C /s/e &aaaa FQcomunic >Q@& T T TC T  C G(T  T  -Q adi\cfg_lis(c Qnumfac(d QconsQ T T  G(BUXCUENTASPREGUNTAAAAAP_SYSTEMXSERVERP_SERVERCOMUNICCODIGOOLDPRIVP_PRIV OLDSERVERCREAR_DATABASEXFECHAXHORACTRLADIZNUMFACCONS9 45%CCUENTAS RFQcuentascuenta cFG(G!(%C ATRIBS.DBF0 <h1atribsNC C & & & CZ 9%Catribs 5F QatribsF TCW T-% T TC % Ta C  ) T  trsacatribs% TKtrsacFt05.prg#Actualizacin de tabla de atributos T TC KtrsacFt05.prg#Actualizacin de tabla de atributos'%    C  T % BU XRESULTADOXNOTRANSACCIONAREAAAACUENTASCUENTAATRIBSATRIBUTOIDXMSGACTUALIZAR_ATRIBSMENSAJELOCK_GTRSACBEG_TRANEND_TRAN TTS_ERRORTTS_IDT4 TF G((idF ~FG((cuenta E%C4%C\S F FF ~(C>F%C\SF G((idECZ%C4@ >ratribsCZ %C\N>CN[FF~CH\S >~C\\SA >R BaU XMSGATRIBSIDCUENTASCUENTAATRIBUTOZCOD_CUEMOTIVO C xxxxx.gesF<G('<   C  7  T + T  0T  J0( F#)T  T T T T+C+ ~ T-%Ct\S/%Cchepro QcheproFG((cuenta E%C4 +BrcheproC]FTC\C\CC\C@\CD\CA\CB\C \C\C<\C=\C\C\C\C$\C%\CQ\C[\CM\%SF >- [ >a'%C\S  $TTTTTTCZ Ta'%C\S  TT T T T T CZ Ta0%C\S  C TTTTTTCZ Ta'%C<\S  TT T T T T CZ Ta T!T"CS!+"L,T "CCC" gZT "T "CT!C!"N[T"CS!%oC#FHT$% \atrcan.gesD($atrcan* T T T T<&'()*+3*)+#) T T T+C+  T-'%C%\S  C TT*T*T*T*T*CZ Ta0%C$\S  C  TT)T)T)T)T)CZ Ta'%C=\S  TT+T+T+T+T+CZ Ta% C#FH T' T& T(T$% \pagcue.gesD($pag*T$% \reccue.gesD($rec*C XBU-SYS_MCUENTASPAG PAGMAXCHE PAGMAXEFE PAGMAXCHP PAGMAXOTRPAGCHEPAGEFEPAGCHPPAGOTRATRCANZMAXABCDX_ES_DE_TESORERIAATRIBUTOCHEPROCUENTACOD_CUEDESDEHASTAIDUTXPMODIFICDEBITOCREDITODESCRMONEDA COMPLEMENTTEMPPOSAGREGAR_EN_SALDOSXDTEMPP_SERVER RECMAXEFE RECMAXCHE RECMAXOTHRECEFERECCHERECOTHFOR \ges.dbc\ges.dct\ges.dcx3\data\emp\ges.dbc(\ges.dbc3\data\emp\ges.dct(\ges.dct3\data\emp\ges.dcx(\ges.dcx G( gesCADI.DBFC AGENTE.DBFCALFA.DBFC ARBOL.DBFC ATRIBS.DBFC ATRIBUTO.DBFC AYUDA.DBFC BATCH.DBFC BIENES.DBFC BULTOS.DBFC CALQUILE.DBFC CASHFLO1.DBFC CCCLIE.DBFC CCCNOTAS.DBFC CCCOMP.DBFC CCFORMUL.DBFC CCOFAB.DBFC CCPROV.DBFC CCVENT.DBFC CENTRAL.DBFCCFG.DBFC CHEQUES.DBFC CLIENTES.DBFC CODXCLI.DBFC CODXPRO.DBFC COM_OPER.DBFC COM_VENC.DBFC COMPRAS.DBFC CONCEPTO.DBFC CONDCOBR.DBFC CONDPAGO.DBFCCONS.DBFC CONSDIA.DBFC CONVER.DBFC COSTOS.DBFC COSXCUE.DBFC CUENTAS.DBFC DEPOSITO.DBFCDESP.DBFC DESPACHO.DBFC DETALLE.DBFC DIARIO.DBFC DIARIOG.DBFC FACCRED.DBFC FLETES.DBFC FORMULAS.DBFC GANANCIA.DBFC IDX01.DBFC IDX02.DBFC IDX03.DBFC IDX04.DBFC IMPORTAC.DBFC INFOS.DBFC LEGAJOS.DBFC LISPREC.DBFC MANUAL.DBFC MARCAS.DBFC MOTINV.DBFC MOVSTOCK.DBFC NC-ADIC.DBFC NOTERM.DBFC NUMFAC.DBFC OPAGOS.DBFCPACV.DBFC PED_DEP.DBFC PEDIDOS.DBFC PERSONAL.DBFC PRODUCCI.DBFC PROVEEDO.DBFC RECIBOS.DBFC REMXFAC.DBFC REPORTE.DBFC SALDOS.DBFC SOLCOM.DBFC SOLCOM2.DBFC STKXCOD.DBFC STKXDEP.DBFC STKXDSP.DBFC STOCK.DBFC SUCURSAL.DBFC TALONARI.DBFC TCCCOMP.DBFC TCCVENT.DBFC TCK_CC.DBFC TCK_CCC.DBFC TCK_CLI.DBFC TCK_REF.DBFC TCOMPRAS.DBFCTR04.DBFC TVENTAS.DBFC ULTCOS.DBFC VALQUILE.DBFC VEN_OPER.DBFC VEN_VENC.DBFC VENTAS.DBFC CESION.DBFC CFG01.DBFC CFG_LIS.DBFC CHEPRO.DBFCCHQ.DBFC CHQANU.DBFC COMPROMI.DBFC DISTRIB.DBFC EJERCON.DBFCET00.DBFCROT.DBFC ROTNOENT.DBFC ROTULOS.DBFBUXSERVERP_SYSTEMGES AGREGAR_TABLA4% NC-ADIC.DBFp 1aaa=1 11ncadic{1 nc-adic.dbfJncadic #TCC.DBFCf[ 1aaa=1 1 1{ 1R BUXTABLANCADICNCADICDBFXTABLA14G+(listadosG+( co_asientosTC TaFGI& ( \tmp\GI Cvalidar cuentas T -1 ~%C .%C M0C Cuenta sin abreviatura. T- T T !%C0C Cuenta sin descripcin. T- T T !% :9C  Cuenta con abreviatura repetida. T- T T !2%CE\SC< oC 2Esta cuenta genera NC/ND automtica, pero no tieneC un motivo contable vlido. T- T T !%-%Co\S  kC 1Esta cuenta es de Percpcin de IIBB pero no tieneC definida una provincia. T- T T !=TCco_Atribute_holderco_asientos.prg T%C fC 2La cuenta tiene atributos no compatibles entre s.CC C 6 T- T T !T  FG((cuenta BUXRESXABREVXCUENTAOATRLISTADOS CO_ASIENTOSXARCHIVONEWFILECUENTASABREVP_LOCALSYS_MOLDABREVCOD_CUEINVLD_MSGDESCRATRIBUTOMOTIVO P_PERIBXPROVAUXNXMSGCO_ATRIBUTOS_COMPATIBLESCUENTA%4 G+(listadosG+( co_asientosTC TaF G((abrevT-1 ~%C 6C Cuenta con abreviatura VACIA. T- T T !% {9C Cuenta con abreviatura repetida. T- T T !2%C E\SC < IoC 2Esta cuenta genera NC/ND automtica, pero no tieneC un motivo contable vlido. T- T T !%!-%C o\S  kC 1Esta cuenta es de Percpcin de IIBB pero no tieneC definida una provincia. T- T T !=TCco_Atribute_holderco_asientos.prg %C KC 2La cuenta tiene atributos no compatibles entre s. T- T T !T F G((cuenta BUXRESXABREVXCUENTAOATROLDABREVLISTADOS CO_ASIENTOSXARCHIVONEWFILECUENTASABREVVLD_MSGCOD_CUEDESCRATRIBUTOMOTIVO P_PERIBXPROVAUXNCO_ATRIBUTOS_COMPATIBLESCUENTAd4NCCuenta: CC  Descripcin: CC C BUXCUENTAXDESCRXMSGMENSAJE<+7<7%Cidx03 Q \idx03)%C \monedas_filtro.dbf0  abmidx03 T  T T TC  T T T TF TTTCTCTT~COTTT sT(%T  TT TT0=$ (+TCCZ=CC%T %C>PTCJ= ...BU MM_MONEDAMM_MAXMM_TXT MM_MONSYMMM_MONEDA_LOCAL_SINGULARMM_MONEDA_LOCAL_PLURALMM_MONEDA_LOCAL_SIMBOLOMM_MONEDA_LOCAL_ABREVXOEXP_COMMONP_SYSTEMCREAR_MONEDAS_FILTROABMIDX03XMONEDA_TEXTO_SINGULARXMONEDA_TEXTO_PLURAL XMONEDA_ABREVXMONEDA_ABREV_LETRAS OLOCALIZACION MONEDA_LOCALIDX03ZNOMBRESIMBOLOFCEP_ACTUALIZACION_VIEJOS= %CoSVPbO6CUOSVPXTEXTOAVFP_LOGV 4 TaC oSVP: FIJAS?%JFd %ClocalessF FC oSVP: SYSTEMQ\localesC oSVP: ACT008+%Clocales.cm_008bU :2T"C\locales cm_008 c(8) C oSVP: ACT009+%Clocales.cm_009bU /TC\localescm_009 l Q%o8%C\localC000CCZR.dbf0 CQ\locales)(\localC000CCZR(Q\localC000CCZRC oSVP: ACT2008#%Ccm_008bU DT4C\localC000CCZR cm_008 c(8) C oSVP: ACT2009#%Ccm_009bU ~AT1C\localC000CCZRcm_009 l %J5CoSVP: Type Pub_Index=C pub_indexb(Q\localC000CCZR<CoSVP: Do While type p_codemp=Cp_codempb+CN BQ sCoSVP: NOT xRES"%C \localcfg.dbf0 %CoSVP: Crear localcfg@h1 \localcfg N  N  MQ ctrlQ'CoSVP: Saliendo locales BUXRESOSVP AVFP_LOGUEARP_TABLAS_FIJASLOCALESP_SYSTEM ACT_LOCALESP_SERVER PUB_INDEXP_CODEMPUSRIDDATA R_LOCALCFGCTRL 4 T 1aaa=1Qon error &onerr %lCSe necesita uso exclusivo de  !!!C HNo debe haber ningn otro usuario en el sistema para esta actualizacin.C rLuego vuelva a ingresar. Un vez que llegue hasta el men principal, los dems podrn volver a ingresar libremente.B-)alter table flocal add column &xcampo BaUXTABLAXCAMPOAAAFLOCALMENSAJE9 4.sys_procesandoCreando empresaT\data\CCZ T 1aaa=1 on error &onerr %VCEl directorio  ya existe !!!C )Debe eliminarlo para crear la empresa N CCZ.C 3Si no est seguro, consulte con el soporte tcnico.x T-  G(%FdQ %ClocalesFQ G(%FdQ %ClocalesFQ (z l G( %CA010592hF Q vT 9 TCSessionNG( Ca G(TzzczcxzcTzzczcxzcTzzczcxzc \atribs.*(TC Datasessionv T (U Ta  G(  T-% !%ClocalesQF TC&QTT T G( \local*.*( (G(C QC  G(\*.ges(# \tempcomp.dbf(# \tempcomp.fpt( cpbt( \cpbt\*.*(\cpbt usr xchg out ges C abmcombinacioneson error &onerr G+(ft05FQ \empresas  sys_empresasH%C2Copia el plan de cuentas desde la empresa actual ?$FQ\cuentas\cuentasQ\cosxcue\cosxcueQ:%C$Realizo una inicializacin bsica ?$ C% LF Qidx03+CN DQ  \comunic.*( T'( T) T T(-*ctrl-a T' T()FQcuentas-ft05FQ\cfg_lis\cfg_lis+CNc ]FQ\cfgS.(%. <rcfg/Descuento Comercial CC Z (%)Q\numfac (d2  QconsFQFQ T T( C'1aaaa T' T() C G(ft05 G( < G( Ta2sys_procesando BU3XCODIGO SP_MENSAJESYS_PROCESANDOXSERVERP_SYSTEMAAAXRESULTP_TABLAS_FIJASLOCALESZA010592OLDDATASESSIONID ACTIVEFORM DATASESSIONIDODSSETSXCODINSXCOD_CLI XCODBULATRGES_GENP_SERVERXOLD_DS ARR_LOCALESMAXARR_LOCALESXOK_SET XLOCAL_FILECPBTUSRXCHGOUTGES VISTA_VATRIBS CREAR_VISTAABMCOMBINACIONESFT05 SYS_EMPRESAS MENSAJE_SINOSYS_INICIALIZACION_BASICAIDX03OLDPRIVP_PRIV OLDSERVER REINDEXARCTRLCUENTASCREAR_ATRIBUTOSZZTEXTOCONS SYS_VERIFICARSP_OCULTAR_DEFINITIVAMENTEF QatribsFQ \questionVATRIBSQselect distinct atribs.*, question.pregunta from atribs inner join ..\..\question on atribs.atributo = question.atributo where atribs.cuenta == ?xcuenta order by question.pregunta*CVATRIBSView UpdateType)CVATRIBSView WhereType'CVATRIBSView FetchMemoa)CVATRIBSView SendUpdatesa+CVATRIBSView UseMemoSize)CVATRIBSView FetchSized+CVATRIBSView MaxRecords,CVATRIBSViewTablesatribs&CVATRIBSViewPrepared-)CVATRIBSView CompareMemoa+CVATRIBSView FetchAsNeeded-'CVATRIBSViewComment0CVATRIBSViewBatchUpdateCount-CVATRIBSViewShareConnection-0CVATRIBS.atributoFieldKeyField-1CVATRIBS.atributoField UpdatableaCCVATRIBS.atributoField UpdateNameatribs.atributo6CVATRIBS.atributoFieldDataTypeN(3).CVATRIBS.cuentaFieldKeyField-/CVATRIBS.cuentaField Updatablea?CVATRIBS.cuentaField UpdateName atribs.cuenta4CVATRIBS.cuentaFieldDataTypeC(9)*C VATRIBS.idFieldKeyFielda+C VATRIBS.idField Updatablea7C VATRIBS.idField UpdateName atribs.id1C VATRIBS.idFieldDataTypeC(12)0CVATRIBS.preguntaFieldKeyField-1CVATRIBS.preguntaField Updatable-ECVATRIBS.preguntaField UpdateNamequestion.pregunta7CVATRIBS.preguntaFieldDataTypeC(70)BUATRIBSP_SYSTEM Mh1barrasCCCGG %CoEstadobOT T + ctrlbarras-a%CoEstadobOT T BU BARRASCODIGOATRBULEAN13DUN14XMAXXVALOESTADOMAXVALUE REINDEXARCTRLvkh1mix_adicCCCC(DNQBUMIX_ADICCODIGOATRBULDESCRFECHACANTIDAD4 TCW%Csaldos DQsaldosF-%C4 +rsaldos FBUXCUENTAXAREASALDOSCOD_CUEFECHAWLh1mix_noCCCC(QBUMIX_NOCODIGOATRBULDESCRcambiar_empresaeload_empcopiart dnld_cuentasdn_filez dn_file_x upld_cuentasyup_fileqcopiar_archivoscrear_atributosactualizar_atribso"actualizar_ges %crear_database42 agregar_tablaP=validar_cuentasc>validar_cuentas2WDvld_msgFImonedasI avfp_loguearOlocalesrO act_localesZU crear_empresa+W vista_vatribsc crear_barras?jcrear_mix_adickagregar_en_saldos_l crear_mix_no>mq1qA11AA31qA2qARAqAAAqBA"QArr2qrqaAB#!AaatAqAqAQAaa1q5B1AAAAAsAAABqA1!1QAAqQAqAAa1Aa1qAArQq11111111qAA4A12qA Aq4qAA!AAAAAAAs1B3qAA2qQaAAA4SRrqqBAAAQA3qAA2bRbARbABCBCQAR2%QAQAQBB2qqqAaaqAAr!A2!sABB3qttqqAAqAACsqqQAAAABtrAARr2brqaq11AArQ!Aq!AAq0BArAqAAqA1A1AArAAq1QrAAqAAqAAAAB2Rqqq211BqQaqaaqqqqqqqAQqqQqqaaaaaqqqqqqQqqaqQqqqaqAqQAB2q2BQA3r"QrbaBAABAABAAbAA"AAAAAaAAAr2"QraAAaAA"AAAAARAAAr2A2121rqAA1Ar21AAB"11AAQAB2A2qAAb!AAAaAA1AA1AS1QAAA'QBBAr2r12AqAr2q12 AqAAAAqAAAqAAAA"rTQQrR2AAAqAA1B112qraqbqBA1QABAaq1QA1A1QAAUQAQAArrA2q qaq1aAqQqB2AAA2BB2qr!AqAA2BB1 h*>?0QC H: sP !z(!$$48$$:$)l)X/ v/4f;4CgCRhR_T|T[5\6b^kJbbociij)j0rHrCtM]t`x5P3Qf7m%S#0O%0sYUQ%Ccons -Qcons #)BCcons.U XVARIABLECONSH <BOriginal aB Duplicado B Triplicado B Cuatriplicado B Quintuplicado 2 BBUZH =B AVERIADOS cB CUARENTENA BESTIBA B EXPEDICION B INSPECCION BINSUMOS BJAULA ;B NIVEL ALTO  aB NIVEL BAJO  B NIVEL MEDIO  B PENETRABLES  BPICKING  B PRE-EGRESO *BPREVENCION DE PERDIDAS PB REPROCESOS tBRETORNOS BSHOWROOM B TRANSPORTE BUXTIPOn T T Ta TCW%Cbienes }Qbienes#%Cbienescodins7&%S  S %Cbultos Qbultos%Catributo &Qatributo T %S'%CbultoscodigoT   T- T % S)%CatributocodigoT   T-HTC CC   C 6CC   C 6HTC CC   C 6CC   C 6YTCCC CC /6 /C 6CC  /C 6 3TC TC Y T T- FBUXCODXATRXBULXDESCRXCODFULL XOK_CODIGOXAREABIENESBULTOS ATRIBUTOSATRIBUTOXDBULDESCRXDATR XFULLDESCRCOD_INS TC !%C8-C6?_ BCC@z 99.C9Q_ ~BCC@z 99_BUXNUMXDEC T (TCCxCC Z %.TCC+6C %C T% BU X1X2X3X4X5X6XTEMPXXYYZFMT_SIN_DECIMALES\!%C8-C6?9B@z 99.99 QB@z 99BUXDq % :TC $ aTC$ BUXMESXANOXFECHA BC$UXMESXANO1%C F:\sistema\2000\ip\wwipstuff.vcx0LBF:\sistema\2000\ip 1%C C:\sistema\2000\ip\wwipstuff.vcx0Bc:\sistema\2000\ip BU5$TC ADDITIVE6UXNOADDIXTADDWWCLIENT5$TC ADDITIVE6UXNOADDIXTADDWWCLIENT# TBCaU XERROR_TXTNETHORA_SERVER P_DT_SERVER     T %| NetRemoteTODnetapi32'| RtlMoveMemorywin32apiTCC 0Q TTCTC%9C0T CC%\TCC!\T CC)\T CC \T CC \T CC\TCC\< #TC  (5T!TC C6 ~TError: CZ!TC C6(T!TC C6 BUXSERVERXREGRESA_VACIO XERROR_TXT XSERVER_DTXSERVER_UNICODEXERRORXBUFFINXBUFFOUTXTD_DAY XTD_MONTHXTD_YEAR XTD_HOURSXTD_MINSXTD_SECS NETREMOTETODNETAPI32 RTLMOVEMEMORYWIN32APISTR2LONG XTD_TIMEZONEOEXMESSAGE 4 5 T (#T  C T C C >R B ULONGSTRIRETVAL4%$ $ %CMOTIVOSTFG((codigo ~FQmotivoscodigoG G T BUXCODIGOTECLAMOTIVOSCODIGO BUSMOTIVOSs 4FG~(clasesTC hlp_motivosN < TBUVARIABLEXFILTROMOTIVOSAYUDACLASESSHOWCODIGO4%$ $ %CLINEASSFG((codigo |FQlineascodigoG G T BUXCODIGOTECLALINEASCODIGOBUSLIN4%$ $ %C cfg_ventasWFG((codigo FQ cfg_ventascodigoG G T BUXCODIGOTECLA CFG_VENTASCODIGOBUS_CFG_VENTAS4%$ $ %CestvenSFG((codigo |FQestvencodigoG G T BUXCODIGOTECLAESTVENCODIGO BUSESTVEN4%$ $ %CestimpSFG((codigo FQ\estvencodigoG G T BUXCODIGOTECLAESTVENCODIGOP_SYSTEM BUSESTIMP4%$ $ %CGRUPOSSFG((codigo |FQgruposcodigoG G T BUXCODIGOTECLAGRUPOSCODIGOBUSGRU4%$ $ %CsprgruPOUFG((codigo FQsprgrupocodigoG G T BUXCODIGOTECLASPRGRUPOCODIGO BUSSPRGRU4%$ $ %CCLIENTESUFG((nomcli FQclientesnomcliG G T BUXCOD_CLITECLACLIENTESNOMCLIBUSCLICOD_CLI4FC%CxfiltrobC]set filt to &xfiltro G~(clasesTChlp_cliN <FG( TBU VARIABLEXFILTROXTODOS_LOS_ESTADOSCLIENTESSET_FILTRO_Y_ESTADOAYUDACLASESSHOWCOD_CLIx4FG~(clasesTChlp_greN <FG( TBUVARIABLE CLIGRUECEAYUDACLASESSHOWCODIGO 4FG~(clases%h'TChlp_stk_solo_disponibleN TChlp_stkN <FG( TBUVARIABLEXTIPO CUR_STKXDEPGAYUDACLASESSHOWCODIGO 4%$ $ %CAGENTEWFG((nomage FQagentenomageGG T BUXCOD_AGEXFILTROTECLAAGENTENOMAGEBUSAGECOD_AGE 4FG~(clases%CxfiltrobCset filt to &xfiltro Ht< CCfC "C"$clasefCCfC 'C'$clasef TChlp_cobN< CCfC "V"$clasefCCfC 'V'$clasef TChlp_venN< CCfC "D"$clasefCCfC 'D'$clasef mTChlp_disN 2TChlp_ageN TChlp_venN < TFG(BUVARIABLEXFILTROAGENTEAYUDACLASESSHOWCOD_AGE 45%$ $ %CCUENTASPF uFQdescr TCG((descrset filter to &xfiltro GG Tset filter to &oldfilt %C X%CCUENTAS-F RFQdescrG((abrevset filter to &xfiltro Eset filter to &oldfilt BC4 BU XCOD_CUEXFILTROOLDFILTTECLACUENTAS_CUENTASDESCRBUSCUEABREV 4F TC%CxfiltrobCZset filt to &xfiltro G~(clasesTChlp_cueN < TFset filt to &oldfiltro R BUVARIABLEXFILTROCUENTAS OLDFILTROAYUDACLASESSHOWABREV:4%%C'C'85 B *%%CC8m B &#%CdCd8 B "#%C C 8 B %CC8 B  B BUX4FG~(clases)TChlp_tmp_cuentas_filtradasN < TFR BUVARIABLETMP_CUENTAS_FILTRADASAYUDACLASESSHOWABREV4%$ $ %CPROVEEDOUFG((nombre FQproveedonombreG G T BUXCOD_PROTECLAPROVEEDONOMBREBUSPROCOD_PRO4FC%CxfiltrobC]set filt to &xfiltro G~(clasesTChlp_proN < TG(BU VARIABLEXFILTROXTODOS_LOS_ESTADOSPROVEEDOSET_FILTRO_Y_ESTADOAYUDACLASESSHOWCOD_PROR 4TCCVA< 7C>  T T+C>T5+ C> C\  T%PT T*TC=CXTC[ T TTC=TC[TCCVA%%CC> )TCCCC>X G TTCXBUANCHOW_LINEAZXTEXTOLWWRWWRLWWRMAX4%CBIENES5FG((descins _FQbienesdescins%$ $ G G T Ta %G((codins E TC4   Ta BU XCOD_BIEBIENESDESCINSTECLABUSBIECOD_INSOKOBIEDATA_CODIGO_VACIOCODINSC 4%CN; T% FC#)G~(clasesTChlp_bieN  < T G( 8 H4  %Cxcod_clibC2T CX%CxdesdebN_ T %Cproveedo Qproveedo%Cbienes Qbienes%Cstock Qstock%Cstkxdep &Qstkxdep%Cmarcas TQmarcasF%C tmp_bie_busF T a `TC Datasessionv T -obienes CXQCXQC8QQQ Q!Q"Q#Q$CXQ%CXQ&Q'-1(\tmp\tmp_bie_busCCZ+Q(\tmp\tmp_bie_busCCZ& )& *& & & & & %%G~(clasesHS UTChlp_busqueda_bie_prodBsqueda de Artculos N 2SPTChlp_busqueda_bieBsqueda de Artculos N  <%C  C bienescodinsT TCX  4 %Cxcod_clibCT CX%CxdesdebNG T %Cproveedo Qproveedo%C bienes_fast Q bienes_fast%C bienes_busq Q bienes_busq%Cstock Qstock%Cstkxdep PQstkxdep%Ccfg_lis Qcfg_lis5./01T1Ccfg_lisOF-F- #-T.-F- #-T/-F- #-T0-'%11Ccfg_lisN [F- #-1F%C tmp_bie_busF T a { TC Datasessionv T -#obienes CXQCXQCXQCXQC8QQQ Q!Q"Q#Q$CXQ%CXQ&Q'-1(\tmp\tmp_bie_busCCZ+Q(\tmp\tmp_bie_busCCZ& )& *& & & & & %%G~(clasesH   XTChlp_busqueda_bie_prod2Bsqueda de Artculos a-N l BTC2Bsqueda de Artculos --N 2 BTC2Bsqueda de Artculos aaN  <%C  C bienescodinsT 0 TCXBU3VARIABLEXFILTROXTODOS_LOS_ESTADOS XCONSULTAXDESDEP_MUCHOS_ARTICULOSBIENESSET_FILTRO_Y_ESTADOAYUDACLASESSHOWCOD_INSXCOD_CLIXUSADOXDSPROVEEDOSTOCKSTKXDEPMARCAS TMP_BIE_BUSATRBULDESCRDATRDBULCODALT1BARRASDMARCAMODELOCANT1CANTIDADIVAPERPRECIO1PRECIO2PRECIO3BONIFMARGEN DDEPOSITODEPOSITODISCONTP_LOCALCODINSDESCINS BIENES_FAST BIENES_BUSQCFG_LISXTMPLIS1XTMPLIS2XTMPLIS3XTMPLISOP_MUCHOS_ARTICULOS_CLASE4%o tmp_artxclibienes Q  Q  Q CdXQ  Q Q Q QQQ    tmp_artxcli_hlp T- %  F ~ TDproc_stk   > C& & & & & & & & & #)G~(clases!TChlp_bie_x_clienteN < T T T TaCbienescodinsG( BU XRESULTADOXCODXBULXATRXCOD_CLIXFILTROXTODOS_LOS_ESTADOSCLIENTES ARTSLIBRE TMP_ARTXCLICOD_INSATRBULDESCRALTCODALTATRALTBULALTDESCRBIENESEST_ACTBARRASCOD_CLITMP_ARTXCLI_HLP XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKSET_FILTRO_Y_ESTADOCODINSAYUDACLASESSHOWBUSBIEb4o tmp_artxprobienesQ Q  Q CdXQ  Q    tmp_artxpro_hlp T-% :F ~= TDproc_stk  > C& & & & #)G~(clases#TChlp_bie_x_proveedorN < T T T TaCbienescodinsG( WBU XRESULTADOXCODXBULXATRXCOD_PROXFILTROXTODOS_LOS_ESTADOS TMP_ARTXPROCOD_INSATRBULDESCRBIENESEST_ACTCOD_PROTMP_ARTXPRO_HLP XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKSET_FILTRO_Y_ESTADOCODINSAYUDACLASESSHOWBUSBIE4%CBIENES5FG((descins _FQbienesdescins%$ $ G G T Ta %CXG((codalt1 E TC4   Ta BUXCODALT1BIENESDESCINSTECLA BUSBIEALTCODALT1OK4FC#)G~(clasesTC hlp_bieAltN < TG(BU VARIABLEXFILTROXTODOS_LOS_ESTADOSBIENESSET_FILTRO_Y_ESTADOAYUDACLASESSHOWCODALT1) 4 5T.t.%CUTcentral=xcentral%$ $ 6%CDEPOSITOF FQdeposito TCset filter to &xfiltro G((descrG G TFset filter to &oldfilt %CX%CDEPOSITOuF FQdepositoF TCset filter to &xfiltro G((deposito Eset filter to &oldfilt %C4 B- BU XDEPOSITOXCENTRALXFILTROOLDFILTTECLADEPOSITODESCRBUSDEP 4FG((descr%CxfiltrobCUset filt to &xfiltro G~(clasesTChlp_depN < T TG(BaUVARIABLEXFILTRODEPOSITODESCRAYUDACLASESSHOW XDEPOSITO 4FG((descr%CxfiltrobCUset filt to &xfiltro G~(clasesTChlp_monN < T TG(BaU VARIABLEXFILTROMONEDAS_FILTRODESCRAYUDACLASESSHOW XDEPOSITOCODIGOB4%CxfiltrobC<T.t.%Cstkxdep lQstkxdepFG((descr select deposito.descr, deposito.deposito, deposito.central, sum(stkxdep.cantidad) as cantidad from deposito, stkxdep group by deposito.deposito where stkxdep.deposito=deposito.deposito and stkxdep.codigo=xcod_ins and &xfiltro into cursor tmp_dep_stk & & & & G~(clasesTC hlp_dep_stockN  < T  TG(BaU VARIABLEXCOD_INSXFILTROSTKXDEPDEPOSITODESCRCENTRALCANTIDADAYUDACLASESSHOW XDEPOSITO@4%CxfiltrobC<T.t.%Cstkxdep lQstkxdep%Cdeposito Qdepositoselect deposito.descr , stkxdep.deposito , stkxdep.despacho , stkxdep.cantidad from deposito, stkxdep where stkxdep.deposito=deposito.deposito and stkxdep.codigo=xcod_ins and &xfiltro into cursor tmp_dep_stk & & & & G~(clasesTChlp_dep_stk_dspN  < T  TF G(BaU VARIABLEXCOD_INSXFILTROSTKXDEPDEPOSITODESCRDESPACHOCANTIDADAYUDACLASESSHOW XDEPOSITO TMP_DEP_STK8%1234#Tpsys_00temp=&temp HN  T TP% T`% T% TTC @ T T 2 -BUXDPRNTEMPKKKPRN_WIDPRNWIDPRN_RESPRN_FFPRN_LENE 4%$ $ 5D&"TCALTc<6 T%TC6 G(p$ (G#(EH 2. CATEGORIAS DE PROVEEDORES p+ CATEGORIAS DE CLIENTES & MOTIVOS CONTABLES ( LINEAS DE PRODUCTOS  SUBCENTROS T T T T T SI+a T 0+   SI :%G( T J  C[C@z 99_] C CdX<= G(pT% NOJ  C[C@z 99_] C CdX<=G(J  C[C@z 99_] C CdX<= G(p T T+4 TC7T NOHXz %T  TT TT SI V%T R T  T TT SI  z T!"%   T  T SI"%    T  T SI &T NG(@& BUXCATXTIPOTECLAMAXP_EMPPOSWINDOWPOSANTACOMI ACTUALIZESXSI_TABCLAVEB4%$ $ %CCOSTOSSFG((codigo |FQcostoscodigoG G T 2%CX.%CCOSTOSFG((codigo FQcostoscodigo EBC4 BUXCOD_CENTECLACOSTOSCODIGOBUSCENCOD_CEN 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_cenN <G( T T TBU XCOD_CENXFILTROCOSTOSAYUDACLASESSHOWVARIABLECOD_CENXCEN  45T\tmp\C%C txCenXCueRFQFXocosxcueQ XcostosQ  1% +ocostosQ1QQ& & G~(clasesTC hlp_cenxcueN <TTTFQ.*F TCG((codigo Eset order to &oldord BUXCOD_CENXCOD_CUE TXTMPCENXCUEP_LOCALNEWFILE TXCENXCUECOCOD_CENDESCRCOSXCUECXCCOSTOSCENTROCOD_CUEAYUDACLASESSHOWVARIABLEXCENOLDORDCODIGO 4%CDESPACHO+F LFQdespacho%$ $ IG((despachoG G(pD& T T T<  G pC)Presione para elegir el despacho.PG(%4#) G #%C+< pCNo hay despachos definidos !!!P C7TT ' T T T G(x T , ( &+( &"" %C+  TCOT SI+a # T + % SI%C+ ^-T C CX'[H }T C&X% G(" C  G(xT  T NO T+" TC7H7 XT  x T    ! 2 T %   % %  3 #H%C+ /T   # H %C+  #H TCOT SI %  # H%C+  TCOT SI #)% ' TG ECC fG TCO%C4T   H +C+ #T   H  #H T  TCOT SI # H T@&G(G T %FG((despacho EG %C4 B-BaU XDESPACHOTECLADESPACHOREGPOSVARIABLECADENAXXYY MAXDISPLAY ACTUALIZEAORIGENSTREGOLOTDATA_CODIGO_VACIO]4%CDESPACHO7F XFQdespacho%$ $ ostkxdspdespacho(       borrarG G(pD& T  T T<  G pC)Presione para elegir el despacho.PG(% #)  # %C+@< pCNo hay despachos definidos !!!P C7T T  T T T G(x T, (&+(&""%C+  T COTSI+a # T+s%SI%C+ ?TCC @z 999,999.99_CX'[H TC&X%/G("C G(xTTNO T+ TC7HB T   T   +! 2B T% %% # H%C+ T  # H%C+  # H T COTSI % # H%C+ } T COTSI #)%  TG ECC fG TCO%C4T H+C+; #T H #HT T COTSI # H T@&G(G T O%KFG((codigoGEG %C4 GB-BaU XDESPACHOXCODXBULXATRTECLADESPACHOSTKXDSPFECHACANTIDADCODIGOBULATRBORRARREGPOSVARIABLECADENAXXYY MAXDISPLAY ACTUALIZEASTREGOLOTDATA_CODIGO_VACIOG4     5GTlpt1 T T T T T!TC C C C  T?T C CW C T C CW C T C CG T C CH  T  T T T%APBHO 1Tlpt1 2Tlpt2 3Tlpt3 4*Tcom1 5OTcom2Tpsys_00impresora=&impresora H D T T T T TTC C C  T< T  T T T &TC C@ C CCH TC C! C TC C! C TC C! C TC C! C TC T< T  T T TT C CW C T C CW C T C CG T C CH  u(reset = chr(27)+'E'+chr(27)+'&l26A' 2TC (10UC (s0p10h8.5v0s0b0T2TC (10UC (s0p12h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0TTC C  T< T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T  I'reset = chr(27)+'E'+chr(27)+'&l2A' 1TC (10UC (s0p10h12v0s0b3T1TC (10UC (s0p12h12v0s0b3T4TC (10UC (s0p16.67h12v0s0b3T1TC (10UC (s0p20h12v0s0b3TTC C  T8 T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T  $ 'reset = chr(27)+'E'+chr(27)+'&l2A' 2TC (10UC (s0p10h8.5v0s0b0T2TC (10UC (s0p12h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0TTC C  T< T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T   7reset = chr(27)+'E'+chr(27)+'&l26A'+chr(27)+'&l1O' 2TC (10UC (s0p10h8.5v0s0b0T2TC (10UC (s0p12h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0TTC C  T* T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T   7reset = chr(27)+'E'+chr(27)+'&l26A'+chr(27)+'&l1O' 1TC (10UC (s0p10h12v0s0b3T1TC (10UC (s0p12h12v0s0b3T4TC (10UC (s0p16.67h12v0s0b3T1TC (10UC (s0p20h12v0s0b3TTC C  T* T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T  2TC (10UC (s0p10h8.5v0s0b0T2TC (10UC (s0p10h8.5v0s0b0T2TC (10UC (s0p12h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0T5TC (10UC (s0p16.67h8.5v0s0b0TTC C  T< T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T   (reset = chr(27)+'E'+chr(27)+'&l26A' 1TC (10UC (s0p10h12v0s0b3T1TC (10UC (s0p12h12v0s0b3T4TC (10UC (s0p16.67h12v0s0b3T1TC (10UC (s0p20h12v0s0b3TTC C  T< T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T   6reset = chr(27)+'E'+chr(27)+'&l3A'+chr(27)+'&l1O' 1TC (10UC (s0p10h12v0s0b3T1TC (10UC (s0p12h12v0s0b3T4TC (10UC (s0p16.67h12v0s0b3T1TC (10UC (s0p20h12v0s0b3TTC C  T* T  T T T1T C (10UC (s1p10h15v0s0b0T2T C (10UC (s0p10h8.5v0s0b0T T  T BUPORTPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 IMPRESORAl4%@ T TBTCZTCBUZCODDESACATMAXACATl4%@ T TBTCZTCBUZCODDESZONMAXZON 4%$ $ K%CLEGAJOSIF iFQlegajosG((nombreG G(pD& T T T<  E pC'Presione para elegir el legajo.PG(%.#) A #%C+: pCNo hay legajos definidos !!!P C7TT ) T T T  G(x T ,  ( &+ ( &"  "  %C+  TCOT SI+a # T + % SI%C+ `7T CC @z 9999,999_'[H T C&X% G("  C  G(xT  T NO T+$ TC7H9 ZT z T   ! 2 T% %% 5 #H%C+ 1T  # H %C+  #H TCOT SI % # H%C+  TCOT SI #)% ) TG ECC fG TCO%C4T   H +C+ #T   H  #H T  TCOT SI # H T @&G(G T %%CLEGAJOSF FQlegajosFG((legajo E%C4 B-BaUXLEGAJOTECLALEGAJOSNOMBREREGPOSVARIABLECADENAXXYY MAXDISPLAY ACTUALIZEALEGAJOSTREG= 4 5< D&%CBIENES]FG((descins FQbienesdescinsG((O (NTC(XTCX+a < pCIngrese el patrn de bsqueda.P0 Cdigo :@!0 Descripcin :@!$Alternativo 1 :$Alternativo 2 :$(Alternativo 3 :$(Alternativo 4 :9%CM$CM$ STL!"%C C TX!) pC Aguarde ...P%CVG((descinsG ECG Ta T +R%C+ 8/ Cdigo : CX. Descripcin : C <=1 : C =<\)Alternativo 1 : )Alternativo 2 : )(Alternativo 3 : )(Alternativo 4 : +a4: pCEs este material ? (S/N/X/L)PTC7) pC Aguarde ...PTCCC f%SNXL0%S( T ! PTN%SXLn! N% %C+ H ?% CCC fCC>=  C+   Ta J% --CC f TC4 T   TG((codinsECC>= Ta Ta+ &%   C4  / Cdigo : CX. Descripcin : C (=1 : C =<\)Alternativo 1 : )Alternativo 2 : )(Alternativo 3 : )(Alternativo 4 : +a: pCEs este material ? (S/N/X/L)PTC7) pC Aguarde ...PTCCC f%SNXL%S T !  TN%SXL) !  %V #6H T- w %C+ s H T-% H   %CC CC>= Ta * %CC CC>=& Ta j %CCCC>=f Ta  %CCCC>= Ta%- H   TG((codalt1 4 TG((codalt2 d TG((codalt3  TG((codalt4 2 !G ECG TC4%SXL !%SXG %X4 TG(@&BlistadosG(@&B %-6#) T+C+  TH%> I 6No existen Productos ni Materiales !! Presione TT # G(p (> (<+ Productos y Materiales G(pCPXH3Presione para elegir el Producto o MaterialG( T T T %`#) s #TC6%C+  G(p TCOTSI+a # T+%SI%C+ `TC )[TC(C>XH TC(X%G("C G(pTTNO T +   T C7H5 VT! v T!    ! 2 T!%!! %!%!1 #H%C+ -T!  # H%C+  #H TCOTSI %! # H%C+  TCOTSI #)%  % T -CC fC = T"CO%C4T H+C+ #"T H #"HT TCOTSI # H T G(@&BU#REGVARIABLEXCODXDESCADENABIENESDESCINSAAAENCONTREMETODOCOD_INSDESCRCODALT1CODALT2CODALT3CODALT4ZCODINSOBIEDATA_CODIGO_VACIOINICIALBUSBIELISTADOSTOTRECGUI_REAPOSXXYY MAXDISPLAY ACTUALIZEATMPTECLASTREGT4%P@ T T I%`{ T T E% T T A%  T T =T%, T T BU TAMMARGENANCHOMARG1TAM1MARG2TAM2MARG3TAM3MARG4TAM4 4%$ $ %CFLETESHF qFQfletescodfleG((nomfleG G T BUXCOD_FLETECLAFLETESCODFLENOMFLEBUSFLECOD_FLE 4 TF%CxfiltrobC` TCset filt to &xfiltro G~(clasesTChlp_fleN < Tset filt to &xoldfil BUVARIABLEXFILTROXOLDFILFLETESAYUDACLASESSHOWCOD_FLE4Glistados     G*(TS7+C ]READY S 12345 5RTC<LA IMPRESORA DEBE ESTAR ON-LINE !!!. QUIERE IMPRIMIR ? (S/n)SN%N1GG(G*G on escape &onesc $R,:Aguarde mientras imprimo.%NxB- %12345G* T \temp.txt G(G G BaUXDPRN CONFIG_PRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDLISTADOSSIONOPREGUNTATEMPTXTP_LOCAL|4R GG(G*G*(G on escape &onesc %Pl \temp.txtR BUXDPRNVIEWERP_LOCALm 5 TCO T+C+  TTH # BUAAAZ45+alTC,%F! hTC[TCg BUAAAAAz 4 T%$ $ F l %C VSUCURSALES}F FQ vsucursales %CGES ges%C VSUCURSALESF FQ vsucursalesF& G((sucursal E%C4 hB-BaUXSUCXCOD_CLIXCODCLITECLABUSSUC VSUCURSALESGESSUCURSALn4%C VSUCURSALES6F HFQ vsucursales& & & & G((sucursalFG((sucursalC %CxfiltrobCset filt to &xfiltro  G~(clasesT Chlp_sucN <  TG BU XSUCXCOD_CLIXFILTROXTODOS_LOS_ESTADOS VSUCURSALESSUCURSALNOMBRE DOMICILIOCIUDADSET_FILTRO_Y_ESTADOAYUDACLASESSHOW6 implst.prgsys_clases_printpdf.prgBUIMPLSTPRGSYS_CLASES_PRINTPDFR %PVs,(Z' VISUALIZACION para continuar z,T \temp.txt/,<, $T! \dosprint &aaa G0BUXDPRNVENTANASCREENTEMPTXTP_LOCALAAAXPUERTA- H" ; BEne Z BFeb y BMar  BAbr  BMay  BJun  BJul  BAgo  3 BSep  R BOct  q BNov   BDic 2"%   BDes TCTC G%  T BCBUXMESXAUTOCORRECCIONMESNUM^ HS =BEnero `BFebrero BMarzo BAbril  BMayo BJunio BJulio &BAgosto  LB Septiembre  oBOctubre  B Noviembre  B Diciembre 2S%  B Desconocido OTCTC G%= T BCBUXMESXAUTOCORRECCIONMESNUM` T% KT BCU XPOSICIONXINICIOXPOSMESNUM4BCCHUXFECHAMESNUM %Cprovinc ?Q\provinc$%CprovinccodigoyTC  T BUXCODIGOXDESCRP_SYSTEMPROVINCDESCR%Cprovinc CQ\provincCprovinccodT% TC BUXCODXNOMBREXNOTRIMMP_SYSTEMPROVINCDESCRr%Cprovinc ;Q\provinc0BCCprovinccodigo 6UXCODIGOP_SYSTEMPROVINCAFIP TCC@ TH: buenos airesgTB Cciudad de buenos airesciudad autonoma de buenos airesciudad autnoma de buenos airescdad. autnoma de buenos airescabac.a.b.a.capital federal(TC catamarcaRTK chacoxTH chubutTU, crdobacordoba TX corrientesTW entre rios/TE formosaWTP jujuy}TY la pampaTL la riojaTF mendozaTM misiones TN, neuquenneuqun ZTQ rio negroTR saltaTA san juanTJ san luisTD santa cruz'TZ santa fePTS& santiago del esteroTG# tierra del fuegoTV, tucumantucumn TT 2 T BUTL4'5    T  T  TCO T CT CZ T5+C+  CZ V $D%VC CZCZ  Ta 0 T-T   T T % T T %RA T T  T cTT H G((  ##TC 6%@TC C$   6 BUXDESPLAZAMIENTOXIMPORTE XINCLPENDREGXREFPRIMDSPPRIMEROCNDDSPOLDTEMPORDENXSALDO_COMPROBANTECOD_CLICOMPROBCAUSACUOTAREFCAUCUOIMPORTECND_DSPFECHA%4 T T%RAV T T% I T T T  %I T T TT BU CNDDSPOLDCAUSAPRIMEROVENCFECHADIASFECREFX#4%CxpaisbLK TTC TCW%Ccfg01 Q \cfg01F %C '% % F G((codins E% % x%ZT  tT  %T  T  .C Artculo  inexistente !!!TC X #%% S% '% #T  # T #T  #T #T #T  %] #T   T #T  #T #T #T  % %L #T   T #T  #T #T #T  % #T   T #T  #T #T #T  %Csucprop Qsucprop%z%%Csucpropcodigo vT;CSucursal propia CCZ no encontrada !!!%Ccuentas Qcuentas%'%Ccuentasabrev T%CcSCLa sucursal propia CCZ' no tiene cuenta de ventas asignada !!! VCCuenta C de la sucursal propia CCZ no encontrada !!!TTTTT > # 6H F BUXRESXVENDESXDES1XDES2XDES3XCODXPAISXSUCPROPAREAP_SERVERCFG01 P_CUEXARTBIENESCOD_INSCODINSP_CO_VENTAS_EXTERIORVEN_CUEDES_CUEVEN_CUEXDES_CUEXMENSAJEREVENTACUENTAIDXSUCPROPCODIGO TTS_ERRORCUENTASCTAVENABREVCOD_CUE4%CPAISES%F  T-1aaa=(error()=1721)F%sFon error &onerr Q\paisesdescrG((descr%$ $  5TC]+12enterdeactivate popup (xborrar)Ns  (D"CZ Seleccione el Pas t < T T a G((codigo E T C4% T a B U XCODPAISESAAAP_SYSTEMDESCRTECLAXBORRARENTERCODIGOXOK 4%CPAISES)F  T-1aaa=(error()=1721)F%wFon error &onerr Q\paisescodigoG((codigo ETC BUXCODXDESCPAISESAAAP_SYSTEMCODIGODESCRA 4TCaTCeTCiTCoTCuTCaTCeTCiTCoTCuTCCfHG C ARGENTINAGT ARGENTINA%CPAISESiF  T-1aaa=(error()=1721)F%Fon error &onerr Q\paisesdescrG((descr E%C4 $- T BUXCODXDESCPAISESAAAP_SYSTEMDESCRCODIGOB4 %CEMPRESAS-F  T-1aaa=(error()=1721)F%{Fon error &onerr Q \empresasdescrG((descrG(C-G~(clasesTChlp_empN  < T G( BU XCODEMPRESASAAAP_SYSTEMDESCRGESFORMVALIDAR_PRESENCIACODIGOAYUDACLASESSHOW4%$ $ 5TC]:s (7' PROVINCIAS T)s" Buenos Aires3s" Ciudad de Buenos Aires&s" Catamarca"s" Chaco#s" Chubut$s" Crdoba's" Corrientes's" Entre Rios$s " Formosa"s " Jujuy%s " La Pampa%s " La Rioja$s " Mendoza%s" Misiones$s" Neuquen&s" Rio Negro"s" Salta%s" San Juan%s" San Luis's" Santa Cruz%s" Santa Fe0s" Santiago del Estero-s" Tierra del Fuego$s" Tucuman+12enterdeactivate popup (xborrar)+aw t%Cls!{2enterTCCl Ta < TCC%  Ta BU XPRVTECLAXBORRARSCREENMAXENTERPROVILETOKPROVINCe4 TH%U FTB gTC TK TH TU TX  TW -TE  NTP  oTY  TL  TF  TM TN TQ 5TR VTA wTJ TD TZ TS TG TV =TT 2UT  BULT'4%CMOTINV%F %CTABLALF  T-1aaa=(error()=1721)F%Fon error &onerr QmotinvdescrG((descr%$ $  5TC]+12enterdeactivate popup (xborrar)Ps (="CZ Seleccione el Motivo t < T T a G((codigo E T C4% T a B U XCODMOTINVTABLAAAADESCRTECLAXBORRARENTERCODIGOXOK4%$ $ %CAGENTESFG((nomage |FQagentenomageG G(pD&DIS@&G(G TBaUXCOD_AGETECLAAGENTENOMAGEBUSAGECOD_AGE4%$ $ %CAGENTESFG((nomage |FQagentenomageG G(pD&COB@&G(G TBaUXCOD_AGETECLAAGENTENOMAGEBUSAGECOD_AGEw45%N%T999,999,999,999,999.9999 }%T9999999999999999999.9999%TC[ % TC[TCR%C=,<TC9[%gT@z  BUXLONGXDECXTIPXCOMXPICX4%$ $ %CCENTRALEF eFQcentralG((descrG G(p G(G T J%CXF%CCENTRALF FQcentralFG((central E%C4 BB-BaUXCENTRALTECLACENTRALDESCRBUSCNT 4D&<  O pC1Presione para elegir el depsito central.PG(%#)  #%C+*F pC(No hay depsitos centrales definidos !!!P C7TT  T T T G(xTC, (&+(&" " %C+ d TCOT SI+a` # T + F% SI%C+ 'T C  '[H T C&X% G(" C  G(xT  T NO T +  T C7H T  T    ! 2 T% \%% #H%C+ T  # H%C+  #H TCOT SI X%T # H%C+ P TCOT SI \#)%   T G ECC fG TCO%C4XT  H +C+ #T   H  #H T  TCOT SI # H T @&G(G T BaUVARIABLEXFILTROCADENAREGPOSXXYY MAXDISPLAYREG_CNT ACTUALIZEACENTRALDESCRTECLASTREGXCENTRAL45%C=ABC[TC=TC[ TA%%C= 1234567890- TCC>R%-)TCC-=TCC-[#TC0000CCCg ZR DT0000'TC00000000CCCg ZRB -UXLETSUCNUM45 T%$ $ rD&< TLpt1:TLpt2:"TLpt1: y Spooler"TLpt2: y SpoolerTSpoolerTPantallamC  6F arr_destino"Presione para seleccionar.9@&% BaB-0C g:\cleaner\data\out\63923915.outBUXDESTINO MAXDESTINOTECLA ARR_DESTINOIMP_ARCHX 45TlptCZG set print to &xlpt G* TCTCTC%R,:Archivo vaco !!! 7+C 3R,:Imprimiendo...TC %C /  CR G*BULARCHLPORTLHANDLEIFP_SIZEIFP_TOPL_STRINGXLPT4 5%C. B X%C0 T BTCTC C BU GCFILENAMEPNHANDLEPNSIZE45  TCZF G((comprob E%C4T CZG((comprob E%C4l > TCOG(( referencia E T TT)+C+  CZ  T CO'% CZ CZ{  T  #>  # >TTC6H%h E)+C+  CZ d >H listados listadosBUXCOD_CLIXCOMPROBXCAUSAXCUOTAXIDREG_CABXIDREFXFECREFXFECXIMPORTEREGCCCLIECOMPROBREFCAUCUOADELANTO REFERENCIAFECHAACCCOD_CLICAUSACUOTAIMPORTECANCELFECREF CC_CLI_LIBLISTADOS4G(( referencia E)+C+ CZ ;>  HBU XID REFERENCIACOD_CLIREFCAUCUOCOMPROBCAUSACUOTAFECREFFECHACANCEL45  !TCZCZF G((comprob E%C4!T CZCZG((comprob E%C4 > TCOG(( referencia E T TT /+C+  CZCZ ( TCO3% CZCZ CZCZ  T  #>  #>TT C  6H% E/+C+  CZCZ  > H listados listadosBUXCOD_PROXCOMPROBXCAUSAXCUOTAXOPXIDREG_CABXIDREFXFECREFXFECXIMPORTECCPROVCOMPROBREFCAUCUOOPRADELANTO REFERENCIAFECHAACCCOD_PROREGCAUSACUOTAOPIMPORTECANCELFECREF CC_PRO_LIBLISTADOS4G(( referencia E/+C+ CZCZ E>    HBUXID REFERENCIACOD_PROREFCAUCUOOPRCOMPROBCAUSACUOTAOPFECREFFECHACANCEL 4%$ $ !%  8occformulborrar Boccformul borrar 5 T C]+12enterdeactivate popup (xborrar)_s  (="C @z 999,999_ Seleccione la Frmula. t  <  T T a F G((formula E T C4% T a B UXFORMULAXCODIGOTECLAOBIEDATA_CODIGO_VACIOFORMULADESCRCCFORMULBORRARCODIGOXBORRARENTERXOKFORMULAS4%$ $ %CMARCASSFG((codigo |FQmarcascodigoG G TBaUXMARCATECLAMARCASCODIGOBUSMARh 4G~(clasesTChlp_marN < TBUVARIABLEXFILTROAYUDACLASESSHOWCODIGO8 4D&<   G(pR pC4Presione para elegir el cdigo del producto.PG(%CNG(+R,: No hay ningn producto definido.TT ( T T T T%?#) R # G(xTCCNCN6, (F+(F" " "/"/%C+  TCOT SI+a # T + % SIF%C+ #:T C C %=C =G[H BT C2X% cG(" C  G(xT  T NO T+ TC7Hv T = T   _! 2v T% %S% #H%C+ T O # H%C+ K #H TCOT SI % # H%C+  TCOT SI %  T%   T ,TCCC fG EG TCO%C4T  H +C+ #T   H  #H T  TCOT SI # H T @&BUVARIABLEXFILTROCADENAREGOLDKEYPOSXXYY MAXDISPLAY ACTUALIZEACOD_INSDESCRDESC1TECLASTREG4%$ $ %CTCK_CLITFG((codigo ~FQtck_clicodigoG G TBaUXCODIGOTECLATCK_CLICODIGOBUSTCLh 4G~(clasesTChlp_tclN < TBUVARIABLEXFILTROAYUDACLASESSHOWCODIGO[ 4'5  T TCO T C!T  CZCZ T;+C+  CZCZ C P% CC (CZCZ CZCZ  Ta 0 T- T T% T T  % OA T T  T cTT H G((  ##TC 6 BUXDESPLAZAMIENTOXIMPORTEREGXREFPRIMDSPPRIMEROCNDDSPOLDTEMPORDENCOD_PROCOMPROBCAUSACUOTAOPREFCAUCUOOPRCND_DSPPIMPORTE%4 T T%OAC T T% I T T T  %I T T TT BU CNDDSPOLDCAUSAPRIMEROVENCFECHADIASFECREF4%$ $ %CCONDCOBRSF G((plan |FQcondcobrplanG G TBaUXPLANTECLACONDCOBRPLANBUSFCOBp 4FG~(clasesTChlp_fcobN < TBUVARIABLEXFILTROCONDCOBRAYUDACLASESSHOWPLAN4%$ $ %CCONDPAGOSF G((plan |FQcondpagoplanG G TBaUXPLANTECLACONDPAGOPLANBUSFPAGp 4FG~(clasesTChlp_fpagN < TBUVARIABLEXFILTROCONDPAGOAYUDACLASESSHOWPLANQ4GTC*%1G AG BUXFECHA P_CENTURY 4%$ $ %CgesJ ges%CVBULTOS|FG((codigo FQvbultos& & G  G T BU XBULXCODINSTECLAGESVBULTOSCODIGODESCRCOD_INSCLAVEBUSBUL 4F%CxfiltrobCGset filt to &xfiltro FG~(clasesTChlp_bulN <FG( TBUVARIABLEXFILTROVBULTOSAYUDACLASESSHOWCLAVE 4%$ $ %CgesJ ges%C VATRIBUTOSFG((codigo FQ vatributos& & G  G T BU XATRXCODINSTECLAGES VATRIBUTOSCODIGODESCRCOD_INSCLAVEBUSATR 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_atrN <FG( TBUVARIABLEXFILTRO VATRIBUTOSAYUDACLASESSHOWCLAVEo 4FG~(clasesTChlp_atbN < TBUVARIABLEXFILTROQUESTIONAYUDACLASESSHOWATRIBUTO4 5%C0 2B-TCTCCTC%CC CBaUMFILEMHANDLEFSIZEXCHAR4%$ $ %CEMPLEADOUFG((legajo FQempleadocodigoG G TBaUXCODIGOTECLAEMPLEADOLEGAJOCODIGOBUSLEGo 4FG~(clasesTChlp_legN < TBUVARIABLEXFILTROEMPLEADOAYUDACLASESSHOWLEGAJO4H 7 B V B u B  B  B BUXMONEDAIDX04INDICE1INDICE2INDICE3INDICE4INDICE54%$ $ %CQUESTIONWFG((atributo FQquestionatributoG G TBaUXCODIGOTECLAQUESTIONATRIBUTOBUSQUEo 4FG~(clasesTChlp_queN < TBUVARIABLEXFILTROQUESTIONAYUDACLASESSHOWATRIBUTO4%$ $ %C Prop_PredetXFG((codigo FQ prop_predetcodigoG G TBaUXCODIGOTECLA PROP_PREDETCODIGOBUSPROP_PREDET4%$ $ %CMailCtasUFG((codigo FQmailctascodigoG G TBaUXCODIGOTECLAMAILCTASCODIGO BUSMAILCTAS4%$ $ %CnumfacSFG((ptovta |FQnumfacptovtaG G TBaUXPTOVTATECLANUMFACPTOVTA BUSNUMFAC4%$ $ %CZONASRFG((codigo zFQzonascodigoG G TBaUXCODIGOTECLAZONASCODIGOBUSZONo 4FG~(clasesTChlp_zonN < TBUVARIABLEXFILTROZONASAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_medN < TBUVARIABLEXFILTROMEDIDASAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_ppdN < TBUVARIABLEXFILTRO PD_DEMORASAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_uniN < TBUVARIABLEXFILTROUNIDADESAYUDACLASESSHOWCODIGOr 4FG~(clasesTC hlp_unifceN < TBUVARIABLEXFILTROUNIDFCEAYUDACLASESSHOWCODIGOs 4FG~(clasesTC hlp_unidcotN < TBUVARIABLEXFILTROUNIDCOTAYUDACLASESSHOWCODIGOt 4FG~(clasesTC hlp_bien_cotN < TBUVARIABLEXFILTROBIEN_COTAYUDACLASESSHOWCODIGO4%$ $ %CCATCLISFG((codigo |FQcatclicodigoG G T BUXCODIGOTECLACATCLICODIGO BUSCATCLIr 4FG~(clasesTC hlp_catcliN < TBUVARIABLEXFILTROCATCLIAYUDACLASESSHOWCODIGOs 4FG~(clasesTC hlp_catcredN < TBUVARIABLEXFILTROCATCREDAYUDACLASESSHOWCODIGO4%$ $ %CCATPROSFG((codigo |FQcatprocodigoG G T BUXCODIGOTECLACATCLICODIGOCATPRO BUSCATPROr 4FG~(clasesTC hlp_catproN < TBUVARIABLEXFILTROCATPROAYUDACLASESSHOWCODIGOs 4FG~(clasesTC hlp_catpro2N < TBUVARIABLEXFILTROCATPRO2AYUDACLASESSHOWCODIGOs 4FG~(clasesTC hlp_catpro3N < TBUVARIABLEXFILTROCATPRO3AYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_rfcN < TBUVARIABLEXFILTRORUBROFACAYUDACLASESSHOWCODIGO4%$ $ %CcondcobrSF G((plan |FQcondcobrplanG G TBaUXCODIGOTECLACONDCOBRPLANBUSPLCo 4FG~(clasesTChlp_plcN < TBUVARIABLEXFILTROCONDCOBRAYUDACLASESSHOWPLAN4%$ $ %CcondpagoSF G((plan |FQcondpagoplanG G TBaUXCODIGOTECLACONDPAGOPLANBUSPLPo 4FG~(clasesTChlp_plpN < TBUVARIABLEXFILTROCONDPAGOAYUDACLASESSHOWPLAN4%$ $ %CSUCPROPTFG((codigo ~FQsucpropcodigoG G TBaUXCODIGOTECLASUCPROPCODIGOBUSSPRo 4FG~(clasesTChlp_sprN < TBUVARIABLEXFILTROSUCPROPAYUDACLASESSHOWCODIGO 4F%CxfiltrobCLset filt to &xfiltro G~(clasesTChlp_usrN < TBUVARIABLEXFILTROA010592AYUDACLASESSHOWA44F%CxfiltrobCPset filt to &xfiltro G~(clasesTChlp_usr2N < TBUVARIABLEXFILTROXACTIVOS TMP_USUARIOSAYUDACLASESSHOWCODIGO4F%CxfiltrobCPset filt to &xfiltro G~(clasesTChlp_usr3N < TBUVARIABLEXFILTROXACTIVOSUSUARIOSAYUDACLASESSHOWCODIGO4%$ $ %CimportacUFG((numero FQimportacnumeroG G TBaUXCODIGOTECLAIMPORTACNUMEROBUSIMPf 4%CxfiltrobC8T.t.%Cproveedo jQproveedoTCselect numero,descr, iif(cerrada="S","S","N") as cerrada, txtprov as proveedor, importac.despacho as despacho from importac where &xfiltro into table (p_local+"\tmp\"+borrar) Q\tmp\& & & & &  G~(clasesT Chlp_impN <  TFQ \tmp\.dbf \tmp\.cdxFG((numero EG(BUVARIABLEXFILTROPROVEEDOBORRARNEWFILEP_LOCALIMP_PENDNUMERODESCRCERRADA PROVEEDORDESPACHOAYUDACLASESSHOWIMPORTAC 4%CxfiltrobC8T.t.%Cproveedo jQproveedoTCBselect numero,descr, iif(cerrada="S","S","N") as cerrada,txtprov as proveedor, importac.despacho as despacho from importac left outer join proveedo on importac.cod_pro=proveedo.cod_pro where &xfiltro .and. !between(cerrada+str(numero,10), 'S'+str(0), 'S'+replicate('9', 10) ) into table (p_local+"\tmp\"+borrar) Q\tmp\& & & & &  G~(clasesT Chlp_impN <  TFQ \tmp\.dbf \tmp\.cdxFG((numero EG(BUVARIABLEXFILTROPROVEEDOBORRARNEWFILEP_LOCALIMP_PENDNUMERODESCRCERRADA PROVEEDORDESPACHOAYUDACLASESSHOWIMPORTACS4%CxfiltrobC@T.t.T\tmp\C1cm_imp_funcionescTIPOIMPF set filter to &xfiltro  G~(clasesT C hlp_tipoimpN <  T T F Q.dbf.cdxBUVARIABLEXFILTRO XIMPORTACIONXDESCRBORRARP_LOCALNEWFILETIPOS_DE_COMPROBANTESCM_IMP_FUNCIONESCTIPOIMPAYUDACLASESSHOWCODIGODESCRo 4FG~(clasesTChlp_chqN < TBUVARIABLEXFILTROVCHEQUESAYUDACLASESSHOWNUMERO(4TCC]R BUXARCHIVO4%$ $ %CCENTRALUFG((central FQcentralcentralG G TBaUXCODIGOTECLACENTRALBUSCTRo 4FG~(clasesTChlp_ctrN < TBUVARIABLEXFILTROCENTRALAYUDACLASESSHOW4%$ $ %CDEPOSITOWFG((deposito FQdepositodepositoG G TBaUXCODIGOTECLADEPOSITOBUSCTRCENTRAL 4 TF%CxfiltrobCg TCset filt to &xfiltro G~(clasesTC hlp_motinvN < Tset filter to &xoldfil BUVARIABLEXFILTROXOLDFILMOTINVAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_topN < TBUVARIABLEXFILTROTIPOOPERAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_linN < TFG(BUVARIABLEXFILTROLINEASAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_bul_lisN < TFG(BUVARIABLEXFILTROBUL_LISAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_cfg_ventasN < TFG(BUVARIABLEXFILTRO CFG_VENTASAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_estvenN < TFG(BUVARIABLEXFILTROESTVENAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_estimpN < TFG(BUVARIABLEXFILTROESTIMPAYUDACLASESSHOWCODIGO4%Ccfg_lis 3Qcfg_lisF%CxfiltrobCkT.t.Iselect * from cfg_lis where &xfiltro into cursor tmp_listas readwrite F& & UXFILTROCFG_LIS TMP_LISTASLISTADESCR 4CG~(clasesTChlp_lisN < Ccfg_lislistaTBU VARIABLEXFILTROBUSLIS_TMP_LISTASAYUDACLASESSHOW TMP_LISTASLISTACFG_LISo 4FG~(clasesTChlp_gruN < TBUVARIABLEXFILTROGRUPOSAYUDACLASESSHOWCODIGOr 4FG~(clasesTC hlp_sprgruN < TBUVARIABLEXFILTROSPRGRUPOAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_perN < TBUVARIABLEXFILTROPERSONASAYUDACLASESSHOWCOD %C 3Q F%C TCFiltervset filter to &xfiltro  BUXTABLAXFILTRO XFILTROACTUAL/TC TC TC  TC Prop_Predet%C 3T CCCFilterv CFilterv .t. 6%C 0RT   AND (cod_ins='' Cor EMPTY(cod_ins)6)%C JT  AND (Bul='' C or EMPTY(bul)6)%C JT  AND (Atr='' C or EMPTY(atr)6)set filter to &xfiltrado %C 3T CCCFilterv CFilterv .t. 6NT  AND (grupo=CZ Cor EMPTY(Grupo)6)set filter to &xfiltrado  G~(clasesT Chlp_prop_predetN < T BUXCODIGOXCOD_INSXBULXATRXFILTRO XHERENCIAXGRUPOXFILTROANTERIOR!CONTROLAR_APERTURA_FILTRO_ENTRADA XFILTRADOAYUDACLASESSHOW PROP_PREDETCODIGO 4F%CxfiltrobCcTCFiltervset filt to &xfiltro G~(clasesTC hlp_numfacN <F%CxFiltbCset filter to &xfilt TBUVARIABLEXFILTRONUMFACXFILTAYUDACLASESSHOWPTOVTAt 4FG~(clasesTC hlp_MAILCTASN < TBUVARIABLEXFILTROMAILCTASAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_cosN <G( TBUVARIABLEXFILTROCOSTOSAYUDACLASESSHOWCOD_CEN/ TCWQ\iva J( TF ~TTT% _C"Error en las alcuotas de IVA !!!!C C  Consulte al soporte tcnico !!!!8Q FBUAREAP_SYSTEMARR_IVA MAXARR_IVAIVAIVAANTP_LOCALIZACIONMENSAJE4H Buenos Aires@ B) Ciudad de Buenos Airesr B Catamarca B Chaco B Chubut B Crdoba B Corrientes# B Entre RiosI B Formosal B  Jujuy B  La Pampa B  La Rioja B  Mendoza B  Misiones B Neuquen? B Rio Negrod B Salta B San Juan B San Luis B Santa Cruz B Santa Fe B& Santiago del EsteroF B# Tierra del Fuegor B Tucuman B BUZO 8TCla provincia de 6C BUZXTEXTO TXTPROVINCIA4H @B Buenos Aires rBCiudad de Buenos Aires B Catamarca BChaco BChubut BCrdoba #B Corrientes IB Entre Rios  lBFormosa  BJujuy  BLa Pampa  BLa Rioja  BMendoza BMisiones ?BNeuquen dB Rio Negro BSalta BSan Juan BSan Luis B Santa Cruz BSanta Fe FBSantiago del Estero rBTierra del Fuego BTucuman BUZ?4%C 6 T 5 TCW%CULTCOS ~F QultcosFG(( codbulatr<GF ECGF#%   T C  T % T F BUXCODIGOXBULXATRXFECHAXMONEDAAREAXRESULTCOS CODBULATRCOD_INSBULATRXCOSTOCOSIDX1zO4     '%C CxmonantbL T '%C CxmonultbL T '%C CxmonactbL T %%C CxtipobL ) T %%C CxfantbL eT %%C CxfultbL T%%C CxfactbL T%C  T-$%C CxftcbL 9T%C Z T-% RC      o5 TCW%6%CCOS F Qcos%C HI 0rTtipo="0" 2T.T.select top 2 * from cos where between(codigo+bul+atr+dtos(fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) .and. &xfilt order by fecha desc into cursor cur_cos #) T T#%C -F%C+ H#%C  -%C2%C odespachoQQQ Q !"Q"#Q#0Q$! <)cur_cos% " select top 2 * from cos where between(codigo+bul+atr+dtos(fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) .and. &xfilt order by fecha desc into cursor cur_cos F#)#%C a . T T T %TC %"TC % TCC$ %T  T TC$ F%   T %  ; T %  k T BU&XTIPOCOSXANTXULTXACTXCODIGOXBULXATRXLOTXFECHAXMONANTXMONULTXMONACTXTIPOXFANTXFULTXFACT XACTUALIZARXFTCXCIEANT P_COS_CIE FN_COS_CIEAREA P_TIPOCOSCOSXFILTCODIGOBULATRCOSIDXCUR_COSTOPCOD_INSFECHADESPACHOCOSTOMONEDATIPOFN_COSTO!45%C KT%T T T % T T T  TCWFG((idx04<GF 1ECCC$ 66GF%C+ %  TCO4+C+ !C idx04.indiceCC Z H&TC idx04.indiceCC Z #  T% TCO1+C+ C idx04.indiceCCZ ^H#TC idx04.indiceCCZ #  TT   TG((idx04 TT FBUXCOSXMONXFECXACTXFTCXCAMBIO_ORIGENXCAMBIO_DESTINOAREAXREGCUR_COSCOSTOMONEDAFECHACOSIDX04%: T%Cidx04 fQidx04FG((idx04<% E TC4  Ta0%C idx04.indiceCCZ $#TC idx04.indiceCCZT % < -T!empty(idx04.indiceCCZ)Tselect max(fecha) from idx04 where fecha<=xfecha and &aaa into array arr %  TT TC< !T idx04.indiceCCZBselect &aaa from idx04 where fecha=xfecha into array arr TC  TTBU XMONEDAXFECHAXCAMBIOXEXACTOXENCIDX04FECHAARRAAA 4%5 TCW%Cforincos bFQforincos%Cidx02 FQ\idx02idx02%Cidx04 FQ\idx04idx04%Cbienes FQbienescodins% VFG((codins E FG((codigo E%C4)  T KTCCH CCi$CCiCH$6TCCiCH$ <J( T +CCiCH$% T("TC forincos.tcCCZ%+TTC (Td d "TC forincos.imCCZ%T%CCiCH$Td TC(Td d Tdd ]TCCCCCCCCCC T [TCCH CCi$CCiCH$6CTCCH CCi$CCiCH$6 %I C-Frmula de incremento de costos no encontradaC  Artculo: C C !Frmula de Incremento de Costos: CCZ F BU XFECHACOSXCOSTOXFECHAXAREAFORINCOSP_COMMONIDX02IDX04BIENESCODINSCOD_INSXCODIGOCODIGOXFTCINIXFTCFINXFIDXZZZDELTA_TCIDX XCOSTO_TC XCOSTO_IMXCOSTO_ANTERIOR XPORCENTAJEDELTAIMXCOSTO_NO_ACTUALIZADOMENSAJEy 45%C5FG((idx02 E%C4TindiceCCZTC WC El ndice CCZ del mes CCCHZ/CCCiZ no existe !!! T iZCBCoeficiente invlido en la tabla de Incrementos de Costo. Cdigo: CCZ T BU XINDICE XFECINDICEXRESXCOEFIDX02AAAMENSAJEFORINCOSCODIGO45%C 5FG((idx04 E%C4TindiceCCZTC ;CEl cambio de la fecha C* no existe !!! T E%C4%TindiceCCZTC w;CEl cambio de la fecha C* no existe !!! T%T d ;CEl cambio de la fecha C* est en 0 !!! T }gCOIndice de tipo de cambio invlido en la tabla de Incrementos de Costo. Cdigo: CC Z T BU XINDICE XFECINICIAL XFECFINALXRESXCOEFINIXCOEFFINIDX04AAAMENSAJEFORINCOSCODIGO]K4     %CxtipobNs T%CxfiltrobCT.t.%Cstock Qstock%Cbienes Qbienes%Catributo 0Qatributo%Cbultos ^QbultosF%CCG((codigoT.t.%C C 1T and betw(cod_ins, xdins, xhins)%C C ?/T and betw(linea, xdlin, xhlin)%C C /T and betw(grupo, xdgru, xhgru)%C C /T and betw(marca, xdmar, xhmar)%C C .1T and betw(cod_pro, xdpro, xhpro)T.t.%C C /T and betw(clave, xdatr, xhatr)%C `% SJT9 and iif(bienes.atributos="S",atributo.promocion="S",.t.) \JT9 and iif(bienes.atributos="S",atributo.promocion#"S",.t.)T.t.%C C /T and betw(clave, xdbul, xhbul)F,~C a6C T&%S S F5~C Na6 C F5~C Na6 C FG((codigo E  CXF%C a6 H r!"#$%&'()*+,  ###&'C]-.+, r!"#$%&'()*+,/01  ###&'C]-.+,/01 r!"#$%&'()*+,/012345  ###&'C]-.+,/012345 r m>!CSSa6 !CSSa6  |  &%S S F5~C Na6 C FG((codigo E  CXF%C a6 Hd ;  + r!"#$%&'()*+,  ##&'C]-.+,  r!"#$%&'()*+,/01  ##&'C]-.+,/01 ; r!"#$%&'()*+,/012345  ##&'C]-.+,/012345 I>!CSSa6   &%S S F5~C Na6 C FG((codigo E  CXF%C a6HW Gr!"#$%&'()*+,  ##&'C]-.+, 5r!"#$%&'()*+,/01  ##&'C]-.+,/01 Wr!"#$%&'()*+,/012345  ##&'C]-.+,/012345 I>!CSSa6   H r!"#$%&'()*+,  #&'C]-.+, r!"#$%&'()*+,/01  #&'C]-.+,/01  r!"#$%&'()*+,/012345  #&'C]-.+,/012345 > F FP>6CC#CC% 6C%CC$ 6C$BU8XALIASXDACTXTIPOXDINSXHINSXDATRXHATRXDBULXHBULXDLINXHLINXDGRUXHGRUXPROMOXDMARXHMARXDPROXHPROXFILTROSTOCKBIENESATRIBUTOBULTOSCODIGOXFILTRO_BIENES XFILTRO_ATR XFILTRO_BULEST_ACTXCODCOD_INS ATRIBUTOSACTIVOCLAVEBULATRDESCRDBULDATRLINEAGRUPOIDUUNIDAD UNIDADAUXFACTORSUBGRUPOMEDIDA MEDIDAAUX TIPOSTKMINSTK_MINSTK_MIN1CODALT1CODALT2CODALT3CODALT4 DESCRIPCIOALLK4TC viewerBUXTXTXTIPOXCAPTIONXTAMAOVIEWER 45G T CCZ =TCCZR T T+4 TC \TC=TC\TCRT CRH 0T 1%00ZTCien |TCiento  2T Doscientos  3T Trescientos  4TCuatrocientos  5DT Quinientos  6uT Seiscientos  7T Setecientos  8T Ochocientos  9T Novecientos H- 0     s)TC 0C 6 28TVeintC 0e iC 6 3;TTreintaC 0 y C 6 4^<TCuarentaC 0 y C 6 5=T CincuentaC 0 y C 6 6;TSesentaC 0 y C 6 7M;TSetentaC 0 y C 6 8;TOchentaC 0 y C 6 9;TNoventaC 0 y C 6 1H 10:TDiez 11dTOnce 12TDoce 13TTrece 14TCatorce 15TQuince 16AT Dieciseis 17qT Diecisiete 18T Dieciocho 19T DiecinueveH /    000 7T Mil Millones  $% 1 001 T Millon  >TC  000  Millones 6  9TC  000  Mil 6T$%  00  T con TCC>XTC\TCRT CRH - 0     + )TC 0C 6 2w 8TVeintC 0e iC 6 3 ;TTreintaC 0 y C 6 4 <TCuarentaC 0 y C 6 5g =T CincuentaC 0 y C 6 6 ;TSesentaC 0 y C 6 7 ;TSetentaC 0 y C 6 8T ;TOchentaC 0 y C 6 9 ;TNoventaC 0 y C 6 1H  10 TDiez 11 TOnce 12F TDoce 13q TTrece 14 TCatorce 15 TQuince 16 T Dieciseis 17)T Diecisiete 18XT Dieciocho 19T DiecinueveT  . T.TCC@TCCC=f[BU NUMCADZNUMINTNUMFRACTRIADACENTENADECENA DUODIGITOUNIDADNUMERO P_CENTAVOS4 5 H! 1y% YT Un uT Uno 2T Dos 3T Tres 4T Cuatro 5T Cinco 6>T Seis 7fT Siete 8T Ocho 9T Nueve 0T  B UUNIDADNUMEROZ]4KBCCCC  C6CC  C6UXDESCRXDBULXDATR 45%NTT t%~T p TCWFG((idx04 E %C4K;TCC idx04.indiceCCZ65TCC idx04.indiceCCZ6T b T FBU XCOSXMONXCAMBIO_ORIGENXCAMBIO_DESTINOAREAULTCOSCOSTOMONEDAIDX04FECHAO 4%-5 Tb B%_c Tc B TCW Ta%Cprovinc FQ\provinc T-FG((codigo E% T  T% 5Q F BU XPROVXAFIPLEXISTEAREAP_SYSTEMPROVINCCODIGOAFIPCOD4 TCW Ta%Cprovinc gFQ\provinc T-F G((cod E T% Q F BUXPROVLEXISTEAREAP_SYSTEMPROVINCCODCODIGOt 4FG~(clasesTC hlp_forincosN < TBUVARIABLEXFILTROFORINCOSAYUDACLASESSHOWCODIGOo 4FG~(clasesTChlp_empN < TBUVARIABLEXFILTROEMPRESASAYUDACLASESSHOWCODIGO45%M% L T?%&     TCW%CIDX04 FQ\idx04idx04F E T indiceCCZ xtc=&aaa %C+ % x:R,Mal el tipo de cambio de fecha C * !!! T F  T%TC T I% EPR,"Mal el tipo de cambio del asiento CC @z 999,999,999_ !!! {%w T BUXIMPORTEXTCXDMONMOTIVOMONEDADIARIOGCAMBIOAREAP_COMMONIDX04FECHAAAA P_MONITORASIENTO;#4 T T% _TCT%% 5   % T  T C T TC T %C T %vTC T %5 T C T TC T  H A&TAJ RITRC dlTND cTNC LTAS 2 T)T Comprobante:  C  TCRError en la moneda del comprobante por diferencia de cambio, no debe ser Pesos !!!C .La conversin de moneda podra ser incorrecta.C  T T +%TCT ' T BU XMONDESTINOXIMPORTEXMONEDAXCOEFICXFECHAXMOTIVOXMENSAJE XCAMBIO_REF P_MULTIMONAAAXCAMBIOXALIASCAMBIOXCAMBIO_ORIGENXCPBTCAUSACOMPROBMENSAJE%= T B T T5 TCW%Cidx04 Qidx04FG((idx04% E F%Cidx04+<DTFecha : C*% No hay tipos de cambio definidos !!! TCWFG((idx04GF E%Cidx04+#6%C+BNgmC  %C  H )CImposible !!!!!!! Suspendo?aGF F#TC idx04.indiceCCZ i#TC idx04.indiceCCZ%% BTFecha : C*# Tipo de cambio invlido o en 0 !!! T BU XMONDESTINOXFECHAXMENSAJEXCAMBIOXALIASIDX04FECHASYS_MOSTRAR_SCREEN P_MONITOR'4"%C xcambionuevobLWT5    T C T T T T%CxidbCT CZ%CxidbC  T T FG(( referencia E T )+C+  CZ %T%C%%  T  FG((idx04GF EGFF-% CZ lT   T !% ɚ; T %TC TT   ?TT w*TCH F BU XMONDESTINOXFECHA XSALDOACTXSALDOXDIFAPL XCAMBIONUEVOXIDXMONEDA XSALDO_PESOSXCAMBIOACCXIMPXALIASCOD_CLICOMPROBCAUSACUOTAMONEDACCCLIE REFERENCIAREFCAUCUOMOTIVOIMPORTECOEFICIDX04FN_CALCFECHAt'4"%C xcambionuevobLWT5    T C T T T T %CxidbC!TCZCZ%CxidbC T  T FG(( referencia E T /+C+ CZCZ _%#%%   T  qFG((idx04GF EGFF3%CZCZ VT  m T TC T!% ɚ; T %T TT W*TC H F BU XMONDESTINOXFECHA XSALDOACTXSALDOXDIFAPL XCAMBIONUEVOXIDXMONEDA XSALDO_PESOSXCAMBIOACCXIMPXALIASMONEDACOD_PROCOMPROBCAUSACUOTAOPCCPROV REFERENCIAREFCAUCUOOPRCOEFICIMPORTEIDX04COD_CLIMOTIVOFN_CALCFECHAz%CH>TCCi $ eTCCiCH$BCUXFECHAXXMES_ANO34)BC00CCCHZR-CCCiZUXFECHA4 5 TCW%Cempresas aF!Q \empresascodigoFG((codigo% ETC% Q F BUXKEEPAREA XDEMPRESAP_SYSTEMCODIGOEMPRESASP_CODEMPDESCR[TC=TCC\gTCC\gBUXCOMPROBXCAUSAXLETRAXPVXNUMf45%C=ABCcTC=TC[ H~  AT TA CTC$ C BW TB 2T %-TCC-=TCC-[#TC0000CCCg ZR %CC> T0000 TC=%CgTCC D'TC00000000CCCg ZRB -UXXIVACATXLETRALETSUCNUM!_4     TC 5 %C zidcomprobbC T%CzidcausabC T%CzcausabC T  %C zidcpbtnumbCN T! %C zidcpbtcaubC T"%!%C  T!  T!%"!%C  T"  T"TC! TC" %Ci T'%Cxcopia_a_imprimirbN T%CxcopiasbL T%CxDestinobL T%" TTC #%jT#$\cpbt\ T#%\&9T&C data_statussys_clases_Tablas.prg--aT (count for &xfiltrodatos to xcuentarn  C&')%  UZ(sys_clases_tablasNo hay registros a imprimir!!!C  Formulario: CNo hay registros a imprimir!!!C  Formulario: C C TAvise al soporte que se ha producido este error e intente reimprimir el comprobante.*B0%+ LBXCf + TTCC@,T,CR$TC.,*.,T-C.#/(-,#T./CC/.@%-P C.%C    T01 T1C$%Cxalias_reportebC Fset filter to &xfiltrodatos % %CQ$%Cxalias_reportebC9 F3#:2 $%Cxalias_reportebC F/3#:2G~(sys_formularios.vcxT5CtbCN 569<5 % $%Cxalias_reportebC: Fdreport form (xorigen_formulario_path+xformulario) in screen preview for &xfiltrodatos noconsole %CC set filter to &xoldfilter B%CN T TCW%9 B%Z /%+ LBXCf + TCWHsys_destino_impresion_arr(C@   FTC. V TCWDsys_destino_impresion(C@   F u TF%0Czid12bC CzcausabC  %C#0 59: T9a T:)%  %CC L T:C OCBProblemas al imprimir debido a errores en la cola de impresin !!!*%: T9- ? G*(JC: ; :C Impresora C: invlida o con error !!!* T  f G*(JC +CDriver C invlido !!!* T  G*(H u %9<FCC< Vcd = P  6;00CD(C6A'CImprimiendo Copia CC0Z>%0CD CC6Presione ACEPTAR para imprimir el prximo comprobante.*%CCfLBX$%Cxalias_reportebCD F\label form (xorigen_formulario_path+xformulario) to printer for &xfiltrodatos noconsole =$%Cxalias_reportebC F]report form (xorigen_formulario_path+xformulario) to printer for &xfiltrodatos noconsole %<C@Impresin de comprobante: C:?4%< Vcd12 = P  CB AC!"C 8>C@"Impresin de comprobante: Copias=0? GC@+Impresin de comprobante: Cancel impresin? CD   Esys_procesandoG~(clasesTHCreporte_ventanaN THIPrevisualizacinTHJTHK H6% MTHJxTHKTHL-THMTHNCTextolabelHO THPI Calculando...THPQTHPRTHPSaTHPTaTHUaTHVa T0%CCfLBX% .$%Cxalias_reportebC Fplabel form (xorigen_formulario_path+xformulario) preview window reporte_ventana for &xfiltrodatos noconsole $%Cxalias_reportebCf Fwlabel form (xorigen_formulario_path+xformulario) preview nowait window reporte_ventana for &xfiltrodatos noconsole  [% $%Cxalias_reportebC0 Fpreport form (xorigen_formulario_path+xformulario) preview window reporte_ventana for &xfiltrodatos noconsole W$%Cxalias_reportebC Fwreport form (xorigen_formulario_path+xformulario) preview nowait window reporte_ventana for &xfiltrodatos noconsole %CCfLBX$%Cxalias_reportebC Flabel form (xorigen_formulario_path+xformulario) to file (p_local+"\tmp\"+xidarchivo+"-"+alltrim(str(zcopia))+".prn") for &xfiltrodatos noconsole $%Cxalias_reportebC Freport form (xorigen_formulario_path+xformulario) to file (p_local+"\tmp\"+xidarchivo+"-"+alltrim(str(zcopia))+".prn") for &xfiltrodatos noconsole %>C@"Impresin de comprobante a archivo? +HC@,Impresin de comprobante a archivo: Copias=0? QC@5Impresin de comprobante a archivo: Cancel impresin? CD 6%C FX(Y%ZC!"[ 2Ca!"[ 2u5C@No imprime el comprobante?% C[  PC@4Impresin de comprobante: No hay formulario definido?G*(BU\ XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOSXPARAM1XPARAM2XPARAM3XPARAM4XPARAM5XNOT6 XCOPIAPDF XARCHIVOPDFXLIMPIAR_PRNENV XABRIR_PDFXCOPIA_A_IMPRIMIRXAVISA_ENTRE_COPIAS XTMPIDCOMPROB XTMPIDCAUSAXCAUSA_FORMULARIOXORIGEN_FORMULARIOXALIAS_REPORTEENCONTREAREAXESTADO_PROCESANDO XCUENTARNXRND XAREA_TMP AREA_ORIGINAL ZIDCOMPROBZIDCAUSAZCAUSA ZIDCPBTNUM ZIDCPBTCAUXORIGEN_FORMULARIO_PATHP_SERVERP_SYSTEMODSTPOPSESION_ESTADO_LOGSYS_CLASES_TABLASMENSAJEP_FORMULARIOS_VERSION XEXTENSIONMAXARR_FORMULARIOSARR_FORMULARIOSZZCOPIA XOLDFILTERSCREENSYS_FORMULARIOSVCXOTBSHOWSYS_DESTINO_IMPRESION_ARRSYS_DESTINO_IMPRESION XOKDRIVERXPRINTER ESTADO_INIP_SPOOL_FCNCND P_SPOOL_PD ESTADO_INCUSER_LOG PUB_INDEXSPOOLZID12IMPRESO ESTADO_REL SP_OCULTARSYS_PROCESANDOCLASESOCAPTIONWIDTHHEIGHT CONTROLBOXTITLEBAR BORDERSTYLE ADDOBJECTTEXTOTOPLEFTVISIBLEFONTBOLD ALWAYSONTOP AUTOCENTER SP_MOSTRARTEMPCOMPOEX P_PDF_VERSIONCREAR_COPIAPDF4TC %WT\cpbt\ sT\%C F(  T C %C    T  %C LC'Carpeta de destino de PDFs invlida !!!C Revise el log.=CCarpeta de destino invlida:   %CCC  T%CTCT C C.pdf%%#T C Archivo PDF PDF%C T C .pdf T C T .%CCC C _PDF.C0L*T CC C _PDF.CTC %mC6TC Exportar_PDFsys_clases_printpdf.prg(i T  T!%24T C C >= - C".pdfC $#%%&9CGeneracin de PDF: %'CNo se pudo generar el PDF !!!C C ٦1) VERIFIQUE QUE EL ARCHIVO PDF NO ESTE ABIERTO !!! El 99% de las veces alguien tiene abierta una versin anterior del mismo PDF, puede ser usted mismo u otro usuarioC C N2) Verifique que el cdigo y nombre del cliente no tengan caracteres invlidosC C 83) Verifique que en Windows exista la impresora llamada CC(f) de lo contrario avise al soporte tcnicoC C Error: C%'! X%BC"Impresin de comprobante a archivo % .| ShellExecute SHELL32.dllBC"Impresin de comprobante a archivo -T,Copen -\tmp)%, RC!No se puede ejecutar ShellExecuteC Cdigo del error: CC,Z THC,Impresin de comprobante a archivo: Copias=0 T   QC5Impresin de comprobante a archivo: Cancel impresin C.U/XABRIRLOZIDCPBZIDCAUXORIGEN_FORMULARIOXORIGEN_FORMULARIO_PATHP_SERVERP_SYSTEMOEXTEMPCOMPXFULLPDFXFORMULARIOPDF XPATH_PDFPDF_PATH P_PDF_DIRMENSAJEUSER_LOG PUB_INDEX XARCHIVOPDF XIDARCHIVOODEYFUNCNEWFILEXDESTINO P_PDF_VERSION XFORMULARIOXLIMPIAR_PRNENVLIMPIAR_PRINTENVIRONMENT XOKDRIVER ESTADO_INIXCOPIASOPDFZP_VE_PDF_COPIAS_CPBT OLD_XFULLPDFZCOPIACOMPROBANTE_COPIAEXPORTAR XFILTRODATOSOEPDFLERRORCERRORP_PDF_PSPRINTER SHELLEXECUTESHELL32DLLXERRORP_LOCAL ESTADO_REL TCW%Cempresas PQ \empresas%%CempresascodigoT Txxx F BUXABREVXAREAP_SYSTEMP_CODEMPEMPRESASABREV'   %Ccliaux `Qcliaux%Cclientes Qclientes%CCCVENT Qccvent%r$%CCCVENTREMITO  T B b(%CCCVENTCCVFAC ^ T BTF EcomprobT F EcodcliT  T:TCCCRgC=00C R6 T%T CC S6T CVFCDCcNC/CdNDCrREXX6666  -  -  T C 'TCCC .pdf BUXCOMPROBXCAUSA XRESPUESTAXCOD_CLI XOTRO_CLI XXCLINOMBREXNUMEROF ZCOMPROBANTE ZCLICODIGO ZCLINOMBRE XARCHIVOPDFXARCHPDFCLIAUXCLIENTESCCVENTCOD_CLIFAC_VENCAUSACOMPROBNOMBRECODCLITARJETALIMPIAR_FILE_NAMEPDF_PATH, !%C CC _%C [CCa %C CC *TCScripting.FileSystemObjectNC(CError al creara%C   BCUXPATHXLOOPOFS PATH_CREAR CREATEFOLDEROEXSYS_MOSTRAR_SCREEN/  T C  %C T  \PDFS%C C T \TMP% T "-TCC Documentos Externos H78 rjTRemitos a Clientes VT FC a Clientes cT NC a Clientes dT ND a Clientes P( TPedidos de Clientes CZTFC de Proveedores uTNC de Proveedores vTND de Proveedores) NM  TOrdenes de Compra O:!TComprobantes de Pago RbTRecibos ST Presupuestos LT Despachos M T Recepciones MLET Etiquetas ML 28TOtrosHM CVcd'TCC= 00C\f CLTC 2 TH "T\C000CCZR <T\C }.T\C000CCZR - C 2 T*TC \Duplicados6#T\\"TC C6,TCC C6,TCC C6:TC !CItem-C 6%C   C T\TMP BUZIDCAUSAZIDCPBXDOCUMENTOS_EXTERNOSXAGREGAR_NROCPBTXAGREGAR_ARTICULOXCOD_INSXLOTE XDUPLICADOS XPATH_PDFXITEMXNOCREARCARPETA P_PDF_DIRP_SERVER PATH_CREARP_LOCAL XPATH_SUB XPATH_SUB1 XPATH_SUB2P_PDF_DOCUMENTOS_EXTERNOSP_PDF_DIR_TIPOP_CODEMP EMPRESA_ABREVODFSTRPADr  TC TaHB ]B- FQ  TC.frx8CCC.*(CCC.*FQ T  TC.lbx8CCC.*(CCC.*FQ T  T-%k%C TMPPRNENVC/:p tmpprnenvc   5 Q%C g Y F cU XFORMULARIOPDFXLIMPIAR_PRNENVXFORMULARIOPDF2XALIASXOK TMPPRNENVCODEYFUNCNEWFILE_LOCAL_TMPTAGTAG2OBJTYPEOBJCODE 4%CBATCH 3QbatchF- TC4%C4 TC]!> T%CTC] >%CzremitobC+>C [Tout\.out T  listados "h1 \tmp\ M TCW%%C\0(~6CImprimiendo Copia CCZ al spooler F%CCfLBXulabel form (p_server+"\cpbt\"+xformulario) to file (p_local+"\tmp\"+xtemporal+".txt") for &xfiltrodatos noconsole Lvreport form (p_server+"\cpbt\"+xformulario) to file (p_local+"\tmp\"+xtemporal+".txt") for &xfiltrodatos noconsole  F$ \tmp\ .txt F(Q  \tmp\ .txt  \tmp\ .fpt  \tmp\ .dbf%M?C#Impresin de comprobante al spooler RC6Impresin de comprobante al spooler: Cancel impresinBUZID12ZCAUSABATCHFAC_VENCAUSAENCONTREARCHIVARCHREMITOZREMITO XTEMPORALNEWFILELISTADOSP_LOCALTEXTOAREAP_SERVERZCOPIAXCOPIAS ESTADO_INC AREA_ORIGINAL XFORMULARIO XOKDRIVERUSER_LOG PUB_INDEX ZIDCOMPROBZIDCAUSAO4' co_funciones B BUXERRXERRMSGXASIENTOXFECHABUSCAR_ASIENTO CO_FUNCIONES4FG~(clasesTC hlp_lotesxartNTT < T BU VARIABLEXFILTROXTITULO LOTESXARTAYUDACLASESTITULOTITULO_BUSQUEDASHOWLOTE4FG~(clasesTC hlp_lotescantNTT < T BU VARIABLEXFILTROXTITULO LOTESCANTAYUDACLASESTITULOTITULO_BUSQUEDASHOWLOTE4FG~(clasesTC hlp_lotesdispNTT < T BU VARIABLEXFILTROXTITULO LOTESDISPAYUDACLASESTITULOTITULO_BUSQUEDASHOWDESPACHOd4%C1 T%CW T TCW#%C  FG((codins E!%  FG((cuenta E*%Cm.xprovincia_entregabC( T F% % N%V  BN  BS  BN T% % BS   BN P%8 BS L BN BUXCODXCUEXPROVINCIA_ENTREGAAREABIENESCOD_INSCODINSCUENTASCOD_CUECUENTAOBIEDATA_CODIGO_VACIOIVATFGRAV XUSAIVAANTIVAPER IVAPERANT %CCons 1Qcons%Np%lT  T BUXIVAXUSAIVACONSIVA4 TCW#%C  ]FG((codins E!%  FG((cuenta E*%Cm.xprovincia_entregabC T F% % N%V ? B % %{ B  B  % B  B  B % Q%7 B M B  %~ B  B BSUXCODXCUEXPROVINCIA_ENTREGAAREABIENESCOD_INSCODINSCUENTASCOD_CUECUENTAOBIEDATA_CODIGO_VACIOIVATFGRAV XUSAIVAANTIVAPERCONS IVAPERANTIVAANTC4      TCW%Cempresas Q \empresasFG((codigo E ^J T T T T T T T T T TT CTC!TCC - [T T T  F T  C cuit_textoC BU ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA ZEMPCUITSOLOZIVA ZIIBB_NUMEROZINICIOXOBJ_DATOS_EMPRESAZEMPWEB ZEMPEMAIL ZEMPTXTCPBT ZEMPPROVINCIAZEMPPAIS AEMPRESASAREAP_SYSTEMEMPRESASCODIGOP_CODEMP OLOCALIZACIONTEXTO_SUBDIARIO_IVA ZCUITTEXTO CUIT_TEXTOWEBEMAILTXTCPBTR4%8BC K BUXIMPORTEXMONEDA_ORIGENXFECHACAMBIO 4%CiCi+ B %CiCi%CHCHl B %CHCH%C%C% B %C%C%%CC B %CC%CC5 B %CC%CCz B %CC B        BUP1P24 %-G+sys_procesando Iniciando... %q T C7%CL<7 T-%estado2J estadoJT T T T &%Cp_sys_procesandobOzTa  T  Ta T Iniciando...BUXMAX XAUTONUMERAR XTOPLEVEL SP_MENSAJESYS_PROCESANDO ESTADO_RELOESTADO P_SININTERFAZESTADO2ESTADOMINMAXVALUE AUTONUMERARVISIBLEP_SYS_PROCESANDOTEXTO4 %-9sys_procesando )%CoEstadobO C TTBU XTEXTO XAGREGADOXTIEMPO SP_MENSAJESYS_PROCESANDOTYPEOOESTADOVALUETEXTOTC %C xSeparadorbLPT-$TC.C%C\CPBT\0 T BU XFORMULARIOXCODE XSEPARADORP_EMPXFPP_SERVER 4 %-5sys_procesando %CoEstadobO|TTBUXTEXTOXESTADO SP_MENSAJESYS_PROCESANDOOESTADOVALUETEXTOX %- B M%CoEstadobOI BBUOESTADOVALUE %-&sys_procesando |%CoEstadobOx%C mT-<BUSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOOESTADOVISIBLE4 5%C. B X%C0 T BTCTC C BU GCFILENAMEPNHANDLEPNSIZE4 TCW%[FG((codins ETC% S!%  F G((codigo ET C % Si!%  JF G((codigo ET C  F BUXCODXBULXATRXDESCRXSELEBIENESCOD_INSCODINSDESCR ATRIBUTOSATRIBUTOCLAVECODIGOBULTOS4F%CxfiltrobCCset filt to &xfiltro G~(clasesTC hlp_incotermN <TBUVARIABLE CUR_INCOTERMS HLP_AYUDACLASESSHOWCODIGOqFG~(clasesTC hlp_monedaN <TBUVARIABLE CUR_MONEDAS HLP_AYUDACLASESSHOWCODIGO4F%CxfiltrobCKset filt to &xfiltro G~(clasesTChlp_ocN <TTBU VARIABLEXFILTROXVAR_ITMTMP HLP_AYUDACLASESSHOWORDENITM(4%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clasesTChlp_pdN%C TT C<TC.pedidoBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOW)4%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clasesTC hlp_armadoN%C TT <TC.armadoBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOW*4%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clasesTC hlp_pd_itemN%C TT <TC.pedidoBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOW.4%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clasesTChlp_presupuestoN%C TT <TC.numeroBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOWX4%CxaliasbL?Ttmp FG~(clases(TChlp_presupuesto_opcionesN%C TTT TT C T   <TC.numeroBUVARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTION OPTIONGROUP1ANCHORTOP FILTRO_SELECTEJECUTARTABLASHOW.4%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clasesTChlp_presup_itemN%C TT <TC.numeroBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOW74%CxaliasbL?Ttmp F%CxfiltrobCset filt to &xfiltro G~(clases(TChlp_consolidado_opcionesN%C TT <TC.consolBU VARIABLEXFILTROXCAPTIONXALIAS HLP_AYUDACLASESCAPTIONTABLASHOW4%CH ?#BC01/01/CCCiZ# x/BC01/CCCHZ/CCCiZ#UXFECHA; K4     '%C CxmonantbL  T '%C CxmonultbL T '%C CxmonactbL T %%C CxtipobL % T %%C CxfantbL aT %%C CxfultbL T%%C CxfactbL T%C  T-$%C CxftcbL 5T5 TCW%C%CCOS_CIE FQcos_cieFG((fecha<GF EGF T%CCOS F QcosTtipo="2"select top 1 cos.* from cos, cos_cie where cos.fecha=cos_cie.fecha .and. between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfult) ) .and. &xfilt order by cos.fecha desc into cursor cur_cos #) T T#%C -F%C+ uH T select top 1 cos.* from cos, cos_cie where cos.fecha=cos_cie.fecha .and. between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfant) ) .and. &xfilt order by cos.fecha desc into cursor cur_cos #)%CN#%C  -%C0 T% 0$Ttipo="0" DT tipo="01"%C odespachoQQQQQ Q 0Q!<)cur_cos%  select top 1 * from cos where between(codigo+bul+atr+dtos(fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) .and. &xfilt order by fecha desc into cursor cur_cos  select top 1 * from cos where between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) .and. &xfilt order by cos.fecha desc into cursor cur_cos F"#) T#%C a , T T TBU# XCTIPOCOSXANTXULTXACTXCODIGOXBULXATRXLOTXFECHAXMONANTXMONULTXMONACTXTIPOXFANTXFULTXFACT XACTUALIZARXFTCAREAXTIPOCOSCOS_CIEFECHACOSXFILTCODIGOBULATR COSIDX_CIETOPCOD_INSDESPACHOCOSTOMONEDATIPOCUR_COSU45%C KT%T T J% T T F TCWF G((idx04<GF 1ECCC$ 66GF% j(-$C idx04.indiceCC Z%C+ ;TC C idx04.indiceCC Z65TCC idx04.indiceCCZ6T   TG((idx04 T FBU XCOSXMONXFECXACTXFTCXCAMBIO_ORIGENXCAMBIO_DESTINOAREACUR_COSCOSTOMONEDAIDX04FECHA4F TCO TCC%CxfiltrobCxset filter to &xfiltro G~(clasesTC hlp_formulasN  <T Fset filter to &xfil #BU VARIABLEXFILTROXTODOS_LOS_ESTADOSCCFORMULXRCNXFILSET_FILTRO_Y_ESTADOAYUDACLASESSHOWFORMULA 4F TC%CxfiltrobCVset filter to &xfiltro G~(clasesTC hlp_tmp_xformN <TFset filter to &xfil BUVARIABLEXFILTRO TMP_XFORMXFILAYUDACLASESSHOWFORMULA 4%Crccdatos:FG((codigo bQrccdatoscodigoG T-G % T BUXCODIGOXTIPORCCDATOSCODIGO XCANCELADO BUSRCCDATOS 4 T-F TCG(G~(clasesTC hlp_rccdatosN  <% T  ^JT Fset filter to &xfilt B U VARIABLEXTIPO XCANCELADOBUSXFILTXOBJOEXRCCDATOSTIPOAYUDACLASESSHOWCODIGO4%$ $ %CmaquinasUFG((codigo FQmaquinascodigoG G TBaUXBUSMAQTECLAMAQUINASCODIGO BUSMAQUINAS 4Fset filter to &xfiltro G~(clasesTC hlp_maquinasN < TBUVARIABLEXFILTROMAQUINASAYUDACLASESSHOWCODIGO4%$ $ %Cmaq_grpTFG((codigo ~FQmaq_grpcodigoG G TBaUXGRPTECLAMAQ_GRPCODIGO BUSMAQ_GRPs 4FG~(clasesTC hlp_maq_grpN < TBUVARIABLEXFILTROMAQ_GRPAYUDACLASESSHOWCODIGOn 4FG~(clasesTChlp_bgN < TBUVARIABLEXFILTROBGAYUDACLASESSHOWNUMERO4H  4 B P B0 l BH  B`  Bx  B  B  B 2  B BU XCLEARING84H( 4 B P B l B  B  B  B  B  B   B 2( B BU XCLEARING 4%C proaux_cur.Q&%CxfiltrobCC hT.t.cselect cuit, nombre from proaux distinct where !empty(cuit) and &xfiltro into cursor proaux_cur & & G~(clasesTChlp_pctN < TF G((cuit E+C+  %!H%C proaux_curQFBU VARIABLEXFILTRO PROAUX_CURCUITNOMBREAYUDACLASESSHOWPROAUX 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_clivariosN < TG(BUVARIABLEXFILTRO CLIVARIOSAYUDACLASESSHOWCUIT4 G(\log\G G %U/CC* C^ CZ ( GG(G BUXFILEXTEXTOXINICIOP_SYSTEM PUB_INDEXOEX 4%Ctarjetas 9QtarjetasFG~(clasesTC hlp_tarjetasN < TBUVARIABLEXFILTROTARJETASAYUDACLASESSHOWCODIGO 4%Ctarj 1QtarjFG~(clasesTChlp_tarjN < TBUVARIABLEXFILTROTARJAYUDACLASESSHOWCODIGO[4% + B%K B BUXVALORXDESDEXHASTA 4%Cest_actbNr%NT.t. nT est_act<2 T.t.%CxfiltrobC/TC.t. .and.6set filt to &xfiltro_final BUXFILTROXTODOS_LOS_ESTADOS XFILTRO_FINAL 4/%C\data\CCZ\ges.dbc0ABa%~*CNo se puede consolidar !!!B-UXEMPRESAXMSGP_SYSTEMMENSAJE<42BCCC%Z de C de CCCiZUXFECMES4F%CxfiltrobCKset filt to &xfiltro G~(clasesTChlp_solN <TBUVARIABLEXFILTROXTIPOOC_PEND HLP_AYUDACLASESSHOWSOL4F%CxfiltrobCKset filt to &xfiltro G~(clasesTChlp_sol_reabreN <TBUVARIABLEXFILTROXTIPOOC_PEND HLP_AYUDACLASESSHOWSOL G+(dey_fill%CDselect &xalias Q %CoFiltrobOTC$m TC$ TToproducciQ    -   -  Q   C  tmp_busprod%C~select &xalias Qo tmp_busprodQXbienesQ  XatributoQ    XbultosQ    CCC C CC<Q%C tmp_busprodFQ F& & & & &  G((prodUXALIASOFILTRODEY_FILLXDESDEXHASTADESDEHASTAPRPRODLOTEFECHACODIGOATRBULESTADOPENDPRODUCCI TMP_BUSPRODFILL_BIE_BUL_ATR_DESCRBNDESCR ATRIBUTOSBULTOSBIENESCOD_INSATRIBUTOCLAVE4G+(dey_fill5 T-%C xvariablebN_ TCtmpprod%GF EGFH CoFiltrobC T CoFiltrobOT%CxfiltrobCHset filt to &xfiltro G~(clasesTChlp_prodN  <T BU XVARIABLEOFILTROXCAPTIONDEY_FILLXFILTROBUS_PROD_SELECTFILTRO HLP_AYUDACLASESSHOWTMPPRODPROD=TTC$mTC$UOPARENTTHISDESDEHASTA 4G+(dey_fillF%CtmpprodGFQeoproducciQXbienesQ  XatributoQ    XbultosQ      -   -  Q CC C C C C < Q    tmpprod& & & & &  G((prod%+GF EGF%CxfiltrobCdset filt to &xfiltro G~(clasesTChlp_prodN <TFG(QBUVARIABLEXFILTRODEY_FILLPRODUCCITMPPRODPRPRODLOTEFECHACODIGOATRBULFILL_BIE_BUL_ATR_DESCRBNDESCR ATRIBUTOSBULTOSESTADOBIENESCOD_INSATRIBUTOCLAVEPENDFORMULA HLP_AYUDACLASESSHOW 4G+(dey_fillF%CtmpprodGFQLoproducciQXbienesQ  XatributoQ    XbultosQ      -   -  Q CC C C C C < Q  tmpprod& & & & &  G((prod%GF EGF%CxfiltrobCKset filt to &xfiltro G~(clasesTChlp_prodN <TFQBUVARIABLEXFILTRODEY_FILLPRODUCCITMPPRODPRPRODLOTEFECHACODIGOATRBULFILL_BIE_BUL_ATR_DESCRBNDESCR ATRIBUTOSBULTOSESTADOBIENESCOD_INSATRIBUTOCLAVEPENDFORMULA HLP_AYUDACLASESSHOW 4G+(dey_fillF%CtmpprodGFQBoproducciQXbienesQ  XatributoQ    XbultosQ      -   -  Q CC C C C C < Qtmpprod& & & & &  G((prod%GF EGF%CxfiltrobCAset filt to &xfiltro G~(clasesTChlp_prodN <TFQF G((prod EBUVARIABLEXFILTRODEY_FILLPRODUCCITMPPRODPRPRODLOTEFECHACODIGOATRBULFILL_BIE_BUL_ATR_DESCRBNDESCR ATRIBUTOSBULTOSESTADOPENDBIENESCOD_INSATRIBUTOCLAVE HLP_AYUDACLASESSHOW 4G+(dey_fillF%CtmpprodGFQ_oproducciQXbienesQ  XatributoQ    XbultosQ      -   -  Q CC C C C C < Q   tmpprod& & & & &  G((prod%%GF EGF%CxfiltrobC^set filt to &xfiltro G~(clasesTChlp_prodN <TFQBUVARIABLEXFILTRODEY_FILLPRODUCCITMPPRODPRPRODLOTEFECHACODIGOATRBULFILL_BIE_BUL_ATR_DESCRBNDESCR ATRIBUTOSBULTOSESTADOBIENESCOD_INSATRIBUTOCLAVEPENDFORMULAMULTIPLE HLP_AYUDACLASESSHOW Ta%C -%C\er\CDjBa \er\C T-  T- BU XSUBCARPETAEXISTEEXPORT_GLOBAL_DIRAAAP_DIR_EXPORT_GLOBAL %CD3Ba Ta ] (v T- BUAAAP_DIR_EXPORT_GLOBALEXISTE OAFIP_DIR %CD3Ba Ta ] (v T- BUAAA P_DIR_AFIPEXISTE OAFIP_DIR 9%C\data\CCZ\trfDMBa Ta $\data\CCZ\trf T- BUAAAP_SYSTEMP_DOSEXISTE T\PDFs %CDTBa Ta ~ ( T- BUXDIROEX P_DIR_EXPORTAAAEXISTE 5%C\Pedidos RecibidosDIBa Ta \Pedidos Recibidos( T- BUAAA P_DIR_EXPORTEXISTE OAFIP_DIR %CD3Ba Ta ] (v T- BUAAA P_DIR_EXPORTEXISTE OEXPORT_DIR %CD3Ba Ta ] (v T- BUAAA P_DIR_IMPORTEXISTE OIMPORT_DIR]%C1T\control H TBCUXDIR P_DIR_CONTROLP_SERVER VALIDAR_DIR<  %CD  Ta a (z T-% B  B  BUXDIRAAA_DIREXISTE OCONTROL_DIR#4FG((despachoE%C4v T   %T T r% T n T CW%Cidx04 Qidx04FG((idx04GF ECC 6GF%C4;T C C idx04.indiceCC Z65T CC idx04.indiceCCZ6T  `TUT'No existe tipo de cambio para la fecha CCC 6* !!! F   BUXMSGXMONXCOSXCODXATRXBULXDSP XFECHA_CAMBIODESPACHOXCAMBIO_ORIGENXCAMBIO_DESTINOXAREACOSTOMONEDAIDX04FECHAo 4FG~(clasesTChlp_armN < TBUVARIABLEXFILTROARMADORAYUDACLASESSHOWCODIGOr 4FG~(clasesTC hlp_asimodN < TBUVARIABLEXFILTROASM_FORMAYUDACLASESSHOWASI_MOD 4!ocashtipoǼ tmpcashtipo& & & G~(clasesTC hlp_gs_tipoN  <TCZCZBU VARIABLEXFILTROCASHTIPO TMPCASHTIPOTIPOSUBTIPODESCRAYUDACLASESSHOW %CxfechabD: TC$ TCW%Ctextos {QtextosF-$%C T  T F BU XIDXFECHAXTEXTOXAREATEXTOSCODIGODESDEHASTAACTIVOTEXTOp 4FG~(clasesTChlp_stopN < TBUVARIABLEXFILTROSTOPSAYUDACLASESSHOWSTOP_CODz 4FG~(clasesTC hlp_invmodeN < TFBUVARIABLEXFILTROINVMODEAYUDACLASESSHOWCODIGO< 4'TCDeyFunc Dey_Func2.prg%CBuscando PlanificacionesTC:pr_planeamiento_grilla TMPBUSPLA C G~(clasesT Chlp_planN < T F Q.* BUVARIABLEXFILTROOTDFXFILE MENSAJE_WAITNEWFILE_LOCAL_TMPPR_GRI_DATA_REQUERYPR_PLANEAMIENTO_GRILLA MENSAJE_CLEARAYUDACLASESSHOW TMPBUSPLAIDU+ 4'TCDeyFunc Dey_Func2.prgCBuscando ComprasTC. cm_funciones TMPBUSCOM C G~(clasesT C hlp_comprasN < T F Q.* BUVARIABLEXCODPROOTDFXFILE MENSAJE_WAITNEWFILE_LOCAL_TMPCM_BUSCAR_COMPRAS CM_FUNCIONES MENSAJE_CLEARAYUDACLASESSHOW TMPBUSCOMIDU 4%Cbancos =Q\bancosF%CxfiltrobC}set filt to &xfiltro G~(clasesTChlp_banN < TBUVARIABLEXFILTROP_SYSTEMBANCOSAYUDACLASESSHOWCODIGO 4%Cpermisos AQ \permisosF%CxfiltrobCset filt to &xfiltro G~(clasesTC hlp_permisosN < TBUVARIABLEXFILTROP_SYSTEMPERMISOSAYUDACLASESSHOWCOD4%Ccat_com ;Qcat_comF%CxfiltrobC{set filt to &xfiltro G~(clases>cm_cat(CCZCategora de ComprasCcat_comcodigoBUVARIABLEXFILTROXHLPCAT_COMAYUDACLASESCM_CAT 4F%Cenvases >QenvasesF%CxfiltrobC~set filt to &xfiltro G~(clasesTChlp_envN < TBUVARIABLEXFILTROENVASESAYUDACLASESSHOWCODIGO 4F%Cgan_pro >Qgan_proF%CxfiltrobC~set filt to &xfiltro G~(clasesTChlp_ganN < TBUVARIABLEXFILTROGAN_PROAYUDACLASESSHOWCODIGO4 TCC,g%   *TC00CCCcC  8FZR@T-C00000000CCC  8 ZR B  BBUXCOMPROBXRECXREC1P_MULTIRECIBOS4  T%   *TC00CCCcC  8FZR@T-C00000000CCC  8 ZR B BC ZBUXNUMEROXRECXREC1P_MULTIRECIBOS4 TCW%Cdesp PQdespFG((causa%C` TH\  T En DespachoTNO  T No se EntregaT--  \TDespacho EntregadoTSI  TT Sin DespachoT  FBU XCOMPROBXCAUSA XDESPACHO XESTADO_TEXTOXESTADO_ENTREGAXAREADESPCAUSADESPACHOESTADO] 4%CxfiltrobC8T.t.TC%Cdesp pQdesp%Ctmp_despFQselect fecha,remito,factura,despacho, iif(estado=1,"Armado",iif(estado=3,"Terminado","Otro")) as estado from desp where &xfiltro into table (p_local+"\tmp\"+borrar) Q\tmp\& & & & &  G~(clasesT C hlp_despachoN < T FG(Q \tmp\.dbf \tmp\.cdxBUVARIABLEXFILTROBORRARNEWFILEDESPTMP_DESPP_LOCALFECHAREMITOFACTURAESTADODESPACHOAYUDACLASESSHOW. 4%Cidx04 ;Qidx04FG((idx04<TCPointv G;(.()-CindiceCCZ %C+C ]TxiCCZ=0&aaa TxfCCZ={}&aaa TT :TxiCCZ=CCCindiceCCZ Z&aaa !TxfCCZ=fecha&aaa )TCindiceCCZT G;(BUXFECHAARR_MONIDX04ZAAAXPOINTFECHA 4 G F#) F ~^J F%C+l_J : HG F#)BUXDESTINOXORIGENALLOTMP  TCHCHTCiCi%hB  B  UXDXHXYJ TCiCi TCHCH BU XFECHAACTUALXFECHAANTERIORXMESESp4  T T%CxtipobLl T%Cmedidas Qmedidas%Cbienes Qbienes%CJ% &$%Cbienescodins " BT T !% (%Cbultoscodigo  BT T F G((codigo E%C4 T T E%C4N T TBC6UXCODIGOXBULXMEDIDAXMEDAUXXTIPO XMEDIDAABR XMEDAUXABRXMEDCOD XMEDAUXCODMEDIDASBIENESCOD_INSMEDCOD MEDAUXCODBULTOSCLAVECODIGODESCRABREV 4%Cprovinc ?Q\provincFG~(clasesTC hlp_provinciaN < TBUVARIABLEXFILTROP_SYSTEMPROVINCAYUDACLASESSHOWCOD 4FG((descr%CxfiltrobCUset filt to &xfiltro G~(clasesTC hlp_depcenN < TG(BaUVARIABLEXFILTRO CUR_BUSDEPCENDESCRAYUDACLASESSHOWDEPOSITO 4FG((transf%CxfiltrobCVset filt to &xfiltro G~(clases TChlp_tmpmovsueltoN < TG(BaUVARIABLEXFILTRO TMPMOVSUELTOTRANSFAYUDACLASESSHOW %CD3Ba Ta ] (v T- BUAAA P_DIR_UNZIPEXISTE OUNZIP_DIR4  TCW%Cidx04 RQidx04(TTFG((idx04<GF EGF T<+C+ C idx04.indiceCCZ < 0T%C+ T[TNo encontr cambio vlido en C* para la moneda C  !!! %<1 T]T(El cambio es muy antiguo para la moneda C  (ms de 60 das) !!! /TC idx04.indiceCCZT  FBU XERRXMSGXFECHA ARR_CAMBIOSXAREAXCOUNTIDX04ZMM_MAX MM_MONEDAFECHA4 T T  TCW%Cidx04 xQidx04 TT%|F G((idx04<% GF  EGF T% \<+C+ C idx04.indiceCCZ < XT 0%C+ C idx04.indiceCCZ Hx 5 TeTEl cambio de la fecha C*! no est definido para la moneda C  !!!!  Cidx04+  T[TNo encontr cambio vlido en C* para la moneda C   !!! <; T]T(El cambio es muy antiguo para la moneda C  (ms de 60 das) !!! 2x#TC idx04.indiceCCZT   FBU XERRXMSGXFECHAXMONEDAXCAMBIO XFECHA_OUT XFECHA_EXACTAXAREAXCOUNTIDX04 MM_MONEDAZFECHAC+4 T C  TC TC T T% B 3  %  T  T %  E T#  % T   T T BT% / T  T % - T#  % xT   T T B%T + T^TEl cambio de destino C  es 0 !!!C No se puede convertir. T B BUXERRXMSGXIMPORTEXFECHA XMON_ACTUAL XMON_DESTINOXCAMBIO XFECHA_OUT XFECHA_EXACTAXCAMBIO_OPERACIONXERR1XMSG1FN_CAMBIO_ACTUALIZADO MM_MONEDA  4%Cco_er 3Qco_er%Ctmp_erYFQ$oco_ertmp_er& & -G~(clasesTChlp_erN  <TBU VARIABLEXFILTROCO_ERTMP_ERNIVELDESCRIDAYUDACLASESSHOWt 4FG~(clasesTC hlp_fle_tipoN < TBUVARIABLEXFILTROFLE_TIPOAYUDACLASESSHOWCODIGO%C6 FQVh1\tmp\CCN NQ\tmp\  T CCiCH$ (insert into &xalias (id, cperiodo, nmes, ano) values ( str(year(xf),4) + right("00"+alltrim(str(month(xf),2)),2), mes(xf)+" "+str(year(xf),4), month(xf), year(xf) ) T  T CC iC H$T CCiCH$T  #T CC iC H$ (insert into &xalias (id, cmes, nmes, ano) values ( right("00"+alltrim(str(month(xf),2)),2) + str(year(xf,4)), mes(month(xf))+" "+str(year(xf),4), month(xf), year(xf) ) T  #T CC iC H$& BU XFILEXALIASXFECHAXDESDEXHASTAP_LOCALIDCPERIODONMESANOZXFx$o incotermsǼ incoterms_zfMr incoterms_zfcEZFEgreso de Zona FrancaBU INCOTERMS INCOTERMS_ZFCODIGOINCOTERMDESCR  TH) WBProducto Terminado BProducto en Proceso B Materia Prima BMateriales Varios B Mano de Obra 8!BMano de Obra de Terceros o$BFazn a Insumos de Terceros $BServicios y Otros sin Stock 2BSin clasificar BUXTIPO XMAX_TIPOS4TC %C tmp_configHFQTC]Gh1\tmp\CNNQ\tmp\@ ( <Nr tmp_configC C C FC tmp_configxml%Clocalcfg Q \localcfgF#%C localcfg.cpbtbNT0%CCZCZCZlocalcfgpk2  > P;rlocalcfg W%)%CCZCZlocalcfgpk > 1rlocalcfg ScCSistema desactualizado !!!C 2No se puede guardar la configuracin de la grilla.%ClocalcfgFQ%C tmp_configFQBUXIDXGRIDXCPBT TMP_CONFIGXARCHIVOP_LOCALCOLUMNAANCHOORDENZ COLUMNCOUNTCOLUMNSNAMEWIDTH COLUMNORDERP_SYSTEMLOCALCFG PUB_INDEXDATAXMLUSRIDCPBTMENSAJE4TC %C tmp_configHFQ%Clocalcfg Q \localcfg#%C localcfg.cpbtbN0%CCZCZCZlocalcfgpk2C tmp_configF ~Txgrid.C #T .width=CC Z W&bbb a% T  .visible=.f.&bbb )T  .columnorder=CC Z &bbb  0)%CCZCZlocalcfgpk, C tmp_configF ~Txgrid.C #T .width=CC Z&bbb % T  .visible=.f.&bbb )T  .columnorder=CC Z&bbb ( (%ClocalcfgXFQ%C tmp_configFQBUXIDXGRIDXCPBT TMP_CONFIGP_SYSTEM PUB_INDEXLOCALCFGDATAAAACOLUMNABBBANCHOORDENOEXt 4FG~(clasesTC hlp_tsp_camiN < TBUVARIABLEXFILTROTSP_CAMIAYUDACLASESSHOWCODIGOt 4FG~(clasesTC hlp_tsp_traiN < TBUVARIABLEXFILTROTSP_TRAIAYUDACLASESSHOWCODIGOt 4FG~(clasesTC hlp_tsp_chofN < TBUVARIABLEXFILTROTSP_CHOFAYUDACLASESSHOWCODIGOt 4FG~(clasesTC hlp_tsp_lugaN < TBUVARIABLEXFILTROTSP_LUGAAYUDACLASESSHOWCODIGO%CxtipobN7 T TCW%Vcdr T%Cccvent Qccvent%Vcd1!%'%Cccventccvfac T - T %'%Cccventccvfac T  %Cccventrem T  T%aF%r > a ]%D > a Y > a Ca)Error !!! No se encontr el comprobante: CVFC/CcNCCdNDRE666 !!!  FBU XCOMPROBXCAUSAXTIPOXAREAXOKIMPCCVENTFAC_VENCAUSAREM_VENIMPRESORIMPRESOFCEENVMENSAJE_SUSPENDOt 4FG~(clasesTC hlp_tsp_tspsN < TBUVARIABLEXFILTROTSP_TSPSAYUDACLASESSHOWCODIGOt 4FG~(clasesTC hlp_atrhabilN < TBUVARIABLEXFILTROATRHABILAYUDACLASESSHOWCLAVE 4FG~(clases*TChlp_recepciones_pendientesN <TBUVARIABLEXFILTROTMP_RECEPCIONES_PENDIENTESAYUDACLASESSHOWTRANSF+  T  T  C 6 T  C*69T  CABCDEFGHIJKLMNOPQRSTUVWXYZ69T  Cabcdefghijklmnopqrstuvwxyz6!T  C6)T  C 01234567896 T  C-6 T  C_6 T  (C>3T  CC \ C \6 B U XVALOR XNOESPACIOS XNOMAYUSCULAS XNOMINUSCULAS XNONUMEROS XNOGUIONES XNOGUIONBAJOXNOEEXPERMITIRASTERISCOXSALIDA XCOMPARARXVALIDOSNITD4TC CCfBUXARCHAAAn4=(_TCCf C_(_BUXARCHXHl4=(_TC C_(_BUXARCHXH+|GetShortPathNameWin32API T-%C0 Cdummy Ta TTCXTC>TC% % BBC=UTCPATH LCSHORTNAMELNLENGTHLNRESULTGETSHORTPATHNAMEWIN32APIXCREELCPATH#TCC_ 6 (C>TC\ TH    TC_ % C,./\: T   TA   HTE   rTI   TO   TU   Ta   Te   DTi   nTo   Tu%C>TC[% TC BUXSTR XSINTRIMMXREEMPLAZAESPACIOS XSUSTITUTOXNOLIMPIARACENTOSZXLETRAXSUST   T+aTCC,\TC%TC%CB-TCg%Ba%B- TCC,\BUXUSRXLISTAZXNUMXXXYYY XES_UNO_SOLOG  G(G %~G;***********************************************************CC GG(BUXLOGFILEXTXTXINICIOdC\log\log_xml.txtCCC C Cursor: C C  Archivo XML: C C  Carpeta: C C a%CREGISTROJC=La tabla REGISTRO est en uso, no se puede exportar a XML !!!C\log\log_xml.txtCCC C Cursor: C C  Archivo XML: C C  Carpeta: C C DError: La tabla REGISTRO est en uso, no se puede exportar a XML !!!C C aB  TCWoǼregistro E!Cregistroxout0( C\log\log_xml.txtCCC C Cursor: C C  Archivo XML: C C  Carpeta: C C Error: C C C a TTCC TCC IC\CC AR _6C.xml( *}C\log\log_xml.txtCCC Cursor: C  Archivo XML: C  Carpeta:  C a T%CREGISTROOQ FBU XCURSORXFILEXDIR LOGEAR_ALGOP_SYSTEMMENSAJEXAREAXOUTREGISTROOEX_XMLMESSAGEP_PAISBCCfUXTXTUTF>TCNTCATCETCITCOTCUTCNTCaTCeTCiTCoTCuTC BUXTXT;TCTC. BUXTXTUTF{TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C ɨTCC C ͨTCC C ӨTCC C ڨTCC C Ѩ BUXTXT{TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C TCC C  BUXTXT  T-%C7 B5T(abcdefghijklmnopqrstuvwxyz0123456789@.-_TCC@TC@=%C .C\  C Ta BULCEMAILLLVALIDLNATPOS LCVALIDCHARSLCINVALIDCHARS %Cusuarios AQ \usuarios %%CusuarioscodigoT T TXXXBUXUSR_CODXUSR_NOMP_SYSTEMUSUARIOSDESCRTCT T T( %CC8 8 TTC8  TTC8:%CCCZ>Cc6NTC*Q%ATC.[ B&TCCC8 CF4TCCCZCc6%T. %T   %hCTCCC0CFQCC ZCFRC0Q=  TC CDQ BU XNUMXLONGXDECZXMAXDECXVAL XPARTE_ENTERAXRES XDECIMALES3 #% C ; T ,%Cidx04 mQidx04dTselect max(indiceCCZ:) as cambio from idx04 where fecha<=date() into array xarr &xselect %  T ( TUXCAMBIOXMONEDAIDX04XSELECTXARRI#% C ? T B%Cidx04 qQidx04vTselect max(indiceCCZCc69) as cambio from idx04 where fecha=date() into array xarr &xselect % ' T > TUXCAMBIOXMONEDAXCOMPRAIDX04XSELECTXARR4 5 J(TCJC>(( %C\1T BC8UPBINNUMRETVALBINDEXNDIGITS  T"%CN N T+TCCGZTC z%CNTC0 BUTNNUMTOCONVERT TNSTRINGLEN LCBINVALUEH TTfecactT Ult.PrecioTfecactTD CU P_BIE_HLPTHISANCHO4CLAVE_BUSQUEDA4TITULO_COLUMNA4ORDEN4 TIPO_CAMPO4TT#TTTaUHLPINITTHISWIDTHGRID1COLUMN1TEXT1 AUTOCENTER< CTCTUTHISTITULO_COLUMNA3 OLOCALIZACION CUIT_TEXTOGRID1COLUMN4HEADER1CAPTION< CTCTUTHISTITULO_COLUMNA3 OLOCALIZACION CUIT_TEXTOGRID1COLUMN4HEADER1CAPTION< CTCTUTHISTITULO_COLUMNA2 OLOCALIZACION CUIT_TEXTOGRID1COLUMN3HEADER1CAPTION< CTCTUTHISTITULO_COLUMNA1 OLOCALIZACION CUIT_TEXTOGRID1COLUMN2HEADER1CAPTION< CTCTUTHISTITULO_COLUMNA1 OLOCALIZACION CUIT_TEXTOGRID1COLUMN2HEADER1CAPTIONNTC saldo_ord&C saldo_ent cantidad66FTC Saldo"C Saldo Cantidad66NTC saldo_ord&C saldo_ent cantidad66 CUTHISCLAVE_BUSQUEDA6XTIPOTITULO_COLUMNA6ORDEN6NTC saldo_ord&C saldo_ent cantidad66FTC Saldo"C Saldo Cantidad66NTC saldo_ord&C saldo_ent cantidad66 CUTHISCLAVE_BUSQUEDA6XTIPOTITULO_COLUMNA6ORDEN6T-UTHISOPARENTTUOPARENTTHIS var_global0comprobante_copiafn_tipo_depositoarticulo_full_descryfmt_sin_decimalesuftm_bonificaciones fmtB fecha_ult_mes fecha_pri_mes7 class_wwip_pathj class_wwip( class_wwutils hora_servidor nethora_server* str2long hlp_motivos busmotivoshlp_linFhlp_cfg_ventas* hlp_estven" hlp_estimp hlp_gru hlp_sprgruhlp_clibusclibusgrebusstkhlp_agebusagehlp_cuebuscue! decimales## bustmpcuentash$hlp_pro6%buspro*&wwrZ'hlp_bie)busbiec+busbie_x_cliente9busbie_x_proveedor= hlp_biealt]A busbiealtBhlp_depCbusdep2FbusmonJG busdep_stockpHbusdep_stk_dsp$Kprn_drvMhlp_tabaOhlp_cen VbuscenW buscenxcueXhlp_des_[hlp_dspc config_prnlacatzonhlp_leghlp_bie2|margtam̞hlp_flepbusflej imp_startimp_endreg_cntupd_val.hlp_sucʦbussucdummyprn_scrmesnum_abreviado!mesnumumesseriemesprovincprovinc_nombre provinc_afipd provinc_invdesplaz$cnd_dspven_cue hlp_pais{paispais_invhlp_emphhlp_prvproviletbhlp_mothlp_disIhlp_cobSnum_fmt]hlp_cntbuscntl48hlp_prndimp_arch} file_sizecc_cli cc_cli_libycc_pron cc_pro_libEhlp_prdShlp_marbusmarbusbiemmhlp_tcl#bustcldesplazpcnd_dspphlp_fcobbusfcobhlp_fpag busfpag fn_dtoc3 hlp_bul busbul hlp_atr busatr2busatb* no_ctrl_zhlp_legbusleg fn_cambioehlp_quembusque[hlp_prop_predet hlp_mailctas hlp_numfachlp_zonbuszonbusmedibuspddbusuni busunifce} busunidcot0 busbien_cot hlp_catcli buscatcli buscatcred3  hlp_catpro  buscatpro! buscatpro2" buscatpro3<#busrfc#hlp_plc$busplc%hlp_plp2&busplp'hlp_spr'busspr(bususrX)bususr2=*bususr3:+hlp_imp3,busimp- busimppend0 bustipoimp3buschq5newfile>6hlp_ctrx6busctrW7hlp_dep7busmot8bustop:buslin:bus_lista_prefedefinida;bus_cfg_ventas< busestven= busestimp>buslis_tmp_listas?buslis@busgruA bussprgrucBbusperC!controlar_apertura_filtro_entradaCbusprop_predetD busnumfacZH busmailctasIbuscos_JivaNK numprovinciaL txtprovincia2P txtprovinciaPfn_costoTfn_cosPVcosidx_obtener_cambioc actualiza_cosfimmdeltaoarticulos_llenarrviewerletras7numerofn_descrcosidx1provincia_let_a_numprovincia_num_a_let busforincosbusempN old_fn_calcfn_calccambio act_saldocF act_saldopԱmes_ano_anteriorTmes_ano fn_empresa.fmt_comprob_invS fmt_comprob۸imprimir_formulariolcrear_copiapdf empresa_abrev pdf_ubicar path_crearpdf_pathVlimpiar_printenvironmentspoolbuscar_asiento@ buslotesxart buslotescant buslotesdispgravadaivaper2ivaper datos_empresafn_pesosL  dt_comparar  estado_ini  estado_incformulario_personalizado estado_set estado_get estado_rel file_size art_descry bus_incotermq bus_moneda_bus_ocbus_pd bus_armado bus_pd_item bus_presupbus_presup_opciones bus_presup_item"bus_consolidado_opciones# ultimo_dia% fn_cos_cie% cosidx_cie/ busformulas2 bustmp_xform54 hlp_rccdatos]5 busrccdatosd6 hlp_maquinas7 busmaquinas8 hlp_maq_grp9 busmaq_grpw:bus_bg+; fn_clearing;fn_clearing_dias=buspctN> busclivariosz@ log_textooA bustarjetasfBbustarjNC forzar_rango&Dset_filtro_y_estadoDexiste_empresaEfn_fecha_textoFbus_solFbus_sol_reabreGbus_prod_selectHbus_prodLinitN bus_prodcie>Obus_prodcerradasS bus_prodpendV bus_prodenvSZxchg_crear_carpeta^export_global_dir,_afip_dir_dos_dir` exppdf_dirua afip_pedrecJb export_dir*c import_dircobtener_dir_controld validar_dir'e costo_lotefbusarmN T?T@MargenTAMarg.TBmargenTCNTDC 6TEcod_insTFCdigoTGcodinsTHCUITITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHO_COLUMNA_FILLANCHOP_MUCHOS_ARTICULOS_BULATR_CORTO P_SIN_BULATRCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3ANCHO4CLAVE_BUSQUEDA4TITULO_COLUMNA4ORDEN4 TIPO_CAMPO4ANCHO5CLAVE_BUSQUEDA5TITULO_COLUMNA5XTMPLIS1ORDEN5 TIPO_CAMPO5FORMAT5 INPUTMASK5ANCHO6CLAVE_BUSQUEDA6TITULO_COLUMNA6XTMPLIS2ORDEN6 TIPO_CAMPO6FORMAT6 INPUTMASK6ANCHO7CLAVE_BUSQUEDA7TITULO_COLUMNA7XTMPLIS3ORDEN7 TIPO_CAMPO7FORMAT7 INPUTMASK7ANCHO8CLAVE_BUSQUEDA8TITULO_COLUMNA8ORDEN8 TIPO_CAMPO8ANCHO9CLAVE_BUSQUEDA9TITULO_COLUMNA9ORDEN9 TIPO_CAMPO9ANCHO10CLAVE_BUSQUEDA10TITULO_COLUMNA10ORDEN10 TIPO_CAMPO10T ArtculosT tmp_bie_busThlpTcod_ins TaT T(TdescrTArtculoT descinsT C T  T cod_insT CdigoTcodinsTC T Tcodalt1TCdigo AlternativoTcodalt1TC T TcantidadTCantidadTcantidadTN TTdepositoTCod.Dep.TdepositoTC TT  ddepositoT!DepsitoT" ddepositoT#CU$TITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3ANCHO4CLAVE_BUSQUEDA4TITULO_COLUMNA4ORDEN4 TIPO_CAMPO4ANCHO5CLAVE_BUSQUEDA5TITULO_COLUMNA5ORDEN5 TIPO_CAMPO5bus_prod_filtro bus_filtrohlp_emphlphlp_biehlp hlp_biealthlp_bierhlp_marhlp}hlp_suchlpPhlp_tclhlp9hlp_fcobhlp hlp_fpaghlphlp_cenhlp hlp_cenxcuehlphlp_bulhlp2ohlp_atrhlp2hlp_dephlphlp_monhlp$hlp_ctrhlp hlp_atbhlpf hlp_cuehlp hlp_tmp_cuentas_filtradashlphlp_leghlphlp_quehlphlp_zonhlplhlp_medhlp6 hlp_mailctashlphlp_prop_predethlp hlp_numfachlp6hlp_ppdhlp hlp_catclihlpFhlp_plchlp' hlp_catcredhlphlp_plphlpfhlp_sprhlpA hlp_imphlp! hlp_imp_pendhlp8$hlp_chqhlp%hlp_tophlp(hlp_linhlp) hlp_bul_lishlp:+hlp_cfg_ventashlp, hlp_estvenhlpg. hlp_estimphlp0hlp_gruhlp1 hlp_sprgruhlp2hlp_coshlp`4hlp_perhlp86 hlp_forincoshlp7 hlp_lotesxarthlp8 hlp_lotescanthlp> hlp_motinvhlpBhlp_prohlpChlp_clihlpFhlp_usrhlp>Jhlp_usr2hlpKhlp_usr3hlp_usr2-Mhlp_flehlpTMhlp_agehlpOhlp_venhlp=Qhlp_cobhlpShlp_dishlpT hlp_lotesdisphlpVhlp_ochlpwX hlp_motivoshlp:^ hlp_formulashlp_ hlp_tmp_xformhlpubhlp_unihlp~e hlp_unifcehlpTg hlp_unidcothlp1i hlp_bien_cothlpj hlp_catprohlpl hlp_catpro2hlpn hlp_catpro3hlpdphlp_rfchlp1rhlp_pcthlpt hlp_clivarioshlpu hlp_tarjetashlpwhlp_tarjhlpoy hlp_rccdatoshlp5{ hlp_maq_grphlp} hlp_maquinashlp~hlp_bghlphlp_pdhlpل hlp_armadohlpB hlp_pd_itemhlphlp_solhlpVhlp_sol_reabrehlphlp_prodhlphlp_armhlp hlp_gs_tipohlphlp_bie_x_clientehlp)hlp_stophlp hlp_invmodehlpF hlp_asimodhlphlp_planhlphlp_lishlp  hlp_comprashlphlp_banhlp9 hlp_permisoshlphlp_envhlp)hlp_ganhlpַ hlp_despachohlp hlp_tipoimphlphlp_bie_x_proveedorhlpԾ hlp_provinciahlp hlp_depcenhlp~hlp_tmpmovsueltohlphlp_erhlpH hlp_fle_tipohlp hlp_incotermhlp hlp_monedahlpX hlp_tsp_camihlp hlp_tsp_traihlp hlp_tsp_chofhlpr hlp_tsp_lugahlp7 hlp_tsp_tspshlphlp_recepciones_pendienteshlp hlp_atrhabilhlpyhlp_presupuestohlpJhlp_grehlphlp_stkhlpMhlp_stk_solo_disponiblehlpqhlp_presupuesto_opcioneshlp_presupuestoshlp_presup_itemhlphlp_consolidado_opcioneshlp bus_filtrocustom hlp_dep_stockhlpshlp_dep_stk_dsphlpthlp_busqueda_bie hlp_bieneshlp_busqueda_bie_prod hlp_bieneshlp_busqueda_bie3hlp_busqueda_bie2 hlp_busqueda_bie2 hlp_bienes2 hlp_busqueda_bie_prod2 hlp_bienes21qbAB2q11!111a1aAA2q1!11111111111111A1A1111111111A2r!A2a!AAAqqAAqAA!!AAA21QAA21AA!!A3rAA2q2QA23AA2qA}2qA~212zQtB1a1Q2ABA41A3qqAabA2rRrqRB2qqqqAabA2qqAabA2qqqqAabA2qqqAabA2qqqqAabA2qqAabA7qqAabA7r"ARrrqraRB2qrRrrqraRB2rRr2qqAqraRB8qqqAabA8rRrqqqqAqAqRraA8qq1AabQq1AAA8srARrqqRrRA2qRQ11AAAAA2quRrqRrRA7qqAabA8r"ARrqqRbB8qaQA1AA1AQAA9qrqAabaAA2q}Ar"RRrqqRb1AAAA!AqA1A!ArquARr1QArQRAAAAAqAqAqA1A1A2arrrrrqArq5bBRr11""ArQRABBB2d ArDB"RRrqRb1AA2"rDB"RRr1qRb1AA2qrqAabQAA3r"RRrqRbB4!AqAabrQqAqqAAA7rARrqqRbr2rARrqqRbr3A1ArRrqRbr2A1AAANRrqRrar8q1111AAAAAAA7Q!1A1111a11A1aAAQaAAA11A11A1AA!A!AAAaQA7qqqqAacQqqqAAA1rARrqqRbB7qqAA"AERrqSqArB6qAaQqqa1QA1"!AQAQAA1aA!AAA11AAqqAAAAAqAAAQ1AaaAAAAAAQaaaqaqAAAq7qqAIcQqqa1QA1"!AQAQAA1aA!AAA11AAqqAAAAAqAAAQ1AaaAAAAAAQaaaqaQaqAAAqp1qreQQRAAAAAAAA11aQQ1!!QQQ!1qAQ!1q!!QQQ!1q!!QQQ!1qAQ!1!!!QQQ!1AQ!1aAQ!AA 11AA!A71AA!A7qAaQqQa1QA1"!AQqAQAA1aA!AAA11AAqqAAAAAqAAAQ1AaaAAAAAAQaa1qAqqAAAq7qQrqAbAAAAAAA!AAQaa1qAAAAAAaA1AAAA1!AAAA1a1qAAAAAAaAQAAAA11A1A1A1AAA1111AAaaAAABaAAAQAAaQAAsaQAQAA2qa1QAAQAQAA1aA!AAA11AAqqAAAAAqAAAQ1AqAAAAAAaQAA7qqqq1AAAAAA7qqqAabB2qARrqqRA8qqq"BaaaaABACBqaaAaAs8qQaaaaaABARB7AA8rq11AAA8q!AaAq!AAsqAAq31qA1r"ARrqqRbA3A3TBkAAqB2111111111111!1AAAA3111111111111!1!A!1AAAA3qQ1A3q1AA!A2AA2qA31 a1A1}rWBA1u$BDBA9B4aAaAAEB21A2qAq!eqAb1A1AAA5r1QA1QAA1QA1QAAA1AbQAA1AqA1aBAABAAB2tuqA1AbrRB2A2uqA1A2rqqqqqqqqqqAtqA1AA2taqA1AqrqqR2qr1a!1AqqA!QQAQAa!QQqQA!AAAABA2q111111111111111111111111A2tuqaqA1aAAbrRB2A2qqqqAaQQaaAq2qqqqAaQQaaAq27qQQB2AA"A2AA2qqAaaaQqAqqAAAq2Rqa1QAaQ"!AQqAQAA1aA!AAA11AAqqAAAAAqAAAQ1AaaAAAAAAQaaq2q!QAAE1Au2qqQq!!AQAqAqB3rbaaR"21!AAARbB2q!!AAQ22u71rBAA2AAAuAuAB2q5AAB2ru712BAA2AAAuAuAB2q5YAAB3&AbrRqB2A2qqqqAabAq2RrqqRB2Qq!a!a11QA"!"!AQAQAA1aA!AAA11AAqqAAAAAqAAA1A1qAaaAAAAAAQA2qqAabAq8SrqqRB3{A1u$BDBA94aAaAAEB3qqqAabAq2rRrqRB2qqqAabAq2rRrqRB2qaaaA3RAq!AabA2rAsRrqqRraB2RAq!AabA2qARrqqRraB2rRrqqRB2qq"qA!"!QAq2qqAabAq2rRrqqRB2q11111A2qqAabAq2rRrqqRB2qqAabAq2qqAabAq2qrqqAabAq2qaqaAabAq2rRrqqRB2rRrqqRB2rRrqqRB2rRrqqRB2rRrqRB2qQqqQA1qQqqQA1qqqqAabA2rRrqRB2rRrqRB2qqqqAabA2rRrqRB2rRrqRB2rRrqRB2rRrqqRB3qqqAabAq2rRrqqRB2qqqAabAq2rRrqqRB2qqAabAq2rRrqqRB2rRArqqRB2rRArqRB2rRArqRB3qqAabAqp1AAA RrqqRrArcB2AAA,RrqqRrArcB21ArRrqRrA21B2rRrqqRB2qR2qqAabAq2rRrqqRB2qqAabAqP1qqARrqRA2rRrqqRB2rARrqqRraB2rARrqRraB2rARrqRraB2rARrqRraB2rARrqRraB2q1AqAq2RrqqRB2rRrqqRB2rRrqRB2rRrqqRB2q!A!QA2111s1!!A!A!AA"1ASrqRB2rqQAQrqrAQB2rRrqRB2rARrqqRbB2rrAAACB2qa1A22q1Q11!111111111111111!111111111A2t%AAr1bqa2!A2rAqAqAQAQ1AQ1AQ1A!AA1A!Ae%`q2TArARA Rp3rB=rBAAAr#N  ABqQ 11AAS"BAAABB2q%2ArBarbabAAAaA2AA1AAAAA21{2ArAr2A1rG"1r&A1AAB28xArArAqAbqA~3q!1B"1cBBB2BaAAA3qqqrqAA3qrrAA2AqA3AArA!AAA!ArArAAAAArA!AAArAsbrQqQrq1t 1 1$AABAAarQrq1D 1 1AABAarQrq1D 1 1AABA1 1 1AABAArAB311F2reA!Q!!AAQQAAAAAAAAAAAAAAAAAAAQQQQQQQaQQqQQQQAA1AA1AAAaQ!!AAAAAAAAAQQQQQQQaQQqQQQQAA!AB2qA1!AA!A1AQAAA1AAA1AAAA23EarQAAAA3BABAraAqAAA2qqaAqAA2qRrqRB2rRrqqRB2qq1AqAqAAA1aAA1AA22@$A2Bb14e5qbrAAAAAAAb ABAB4%AA31BArrAr2AbFqabRBCAc21A1B!A2`q"A2AAr12A24rbarRAB1bDAABBAA2`q"A2AAr124rbar2RABb1AAABBAA2qqQA2q2qAq1AAA2q!qAA1!qAAAE1q!AAUAqA31rAAAAA3!AA1!AA21AsAAA1A2r2q!AsA BAr!B1A2ABrBA1QAAAAAAARr1AAABAABArA2AA2QAAAbQQA1AAAAqA1bq1AAAAAAC2B!A"AqA211D1AAAAqA1AAAAqAAx2A2"A2qAAQ AAq AA2AA2$qAA1qAQAAAAqB212r2q!Au!qAAb2AA2AA212ABA!A!f2BBRB1!"1!ABAABAA3qqAQA3r!AAA!ABAAAArs1Q!"q4qqAAAAAB31a1QAAAAAAAAAAAAAAAAAaa!AqQA1"131A1!QAA4Aq11AABA!AAB3rAqSABAq"QAAbQaAAAA!AB21q2rRrqRB2rRrqRB2rRrqRB2RARA2qAqAAbrAAbAbAAA2bAA2AA22qAqAAbrbAbAAAArArAAA31rAq1B21aA2zqrqrqBABABABABABA>3ArrqqAA1AbaaABBB2qABB11AqAA2AAB2AAA2!AqAAB2q!!AAQ31rbqA"rqAArqAA2qtARrqRB2qtRrqRB3rARrbqRB21AARrb!AqRB21AARr!AqRB21AARr!AqRB21AARr"ArRB21AXr"A21ArRB21AARr!AqRB21AARr"ArRB2qR2B40qAqAqAQAQ1AQ1AQ1A!AA1AruArbaRAR Rp3sAAR"?rBAAArLRaA#N  AG BqQ=1AAA2q$2ABarbabAQAAAA2r"ARrqRqqA3rARrqRqqB3qAar1bA2rRrqRAr2qqAabAq2rQrqRB2qqAabAq2rRrqRB2rRraqRB2q11111111A2q111111111A2AfA1RrqqRtaAAAAArB2rARrqRbB2aaqAaaaAB2AAqRrqRB2bAqRrqRB21A1A2raAAAB2qAAq2q!2vARrrqRB2tAQqqQA3!!AAA !AAqAA3!qA2aaAAARrqRA2qA4!qqAAY1aaAARrqRqaAA2!qqAA1aaAARrqRqAA2!qqAA*1aaAARrqRqArB2!qqAA1aaAARrqRqAA2qrqAAA3qAqA2qAqA2qAqAA1aqAqA1QqAqA2qAqA2qAqA2qA2qrrAAA31{QDaqAqaaQQAAAA2rRrqqRB1rRrqRB2RrqRB2rAr!AqBA2rRrqRB2rRrqRrB2qqqQQrqRrA3qqqQqqQqA4AqARrrqRB2AqARrqRB21AqARrSB2r1AqARrrqRB2r1AqARrrqRB4qAA2qAA3qybAqRaaaAAB3AbAqAA RrqRraAC3rAqBBBAA2bQrQAAbQB2RQ1QA23A1A!AaAAAAAArAA2AqRrqRB2sARrrRbr2sARrrRbr2qAqA21rAsbaA1AAAA2rA12raAaABAAQ11ABA2F2242A2AA322A2A2AAB3rArqAABRraqRB2rRrqRB2qAAh A AB2AA2111a11Q11A1AqA3`2qAArwBBrAq3A1A1AAqAAqAAB32qAAA3r2BbABBFr2bABDBAqAAqAAB2rRrqRB2rRrqRB2rRrqRB2rRrqRB2Aurr!AbqAAbqAAAA2rA2AAAAAA2rRrqRB2rRrqRB2rRrqRB31A2rqAA2rrbrB2srbrB37s!AAA2A2q2RAQARABA22AqA2qArAAD2baqAaaB3(BA BrqBAB2q2qrqqqqqqqqqqqq2q"b2q2q2qASs3A3AQAAB3+rAA12AAcA2"1"BA22A32rAA"AA22qAa"AB<qQAA:r"AB1AqaA11aaA1q1+1A1A1A1A1A01a1aI12q16SQ1!A!1112c1A!QAA111!1AA1!11431!!11sQ1Q1aaa111QQ3SAA!!11Q!!12Q!!11A!!A113aA!!A1A23A!!!!1!111q!!!1!111aQQa!1QAA3A1!!111AAA3AAa!!1A2bQQaQ1Q2BAA!A!!1!2B!A!A!!1!2cQa1111cQQQQQ9#!!!!11A!!11QQ111111211111121111!!2q!!!111231q!!11Q!!14#A1!!111AAA3Q!!1Aq!!11Q11aaa!!111AAAQQQ1Q!!111111QAAAAAa!a1a11Q!!1131!!!111111A!!!1111112q!!11111111!!111111211!!11111131!!!11112Q!!111111A!!A113RQA1Q1!!1112a1!!!!QQQQQQAA!!!q2a1!!!!!!QQQ2B11!!1112QA111A11QQqq6RQA111A1AQQqq6SAQAA11SA!!1A1112S221A1!1A116B1A111A112r1A1Q1A11b1r1A1Q1A11b21A11A11b2aQQQQQQ1!!!AAaaaA1A!!Q1Q!!!!1!2A1!!11122Q1!!AAAa1132a1!!AAA1Q113Q1!!1112A1!!1112A1!!1111qQ1111!!111!!1114A1!!1114A1!!1114Q1!!1114q1116a1116RQ1!!1112R1!!1112Q1!!1113A1!!1113RQ1!!11131AA111!!!AAAAAq4AAAA111!!!1112BAAAA111111!!!2AAAA111!!!111!!Q!Q22Aa1!!a!a7Aa1!!a!a6"A!!!!1Q1!!3Aq!!11AAA!!1"A!Q!A11QqQ1Q11Q1Q13!!!QQ1Q2BAA!!11112QQQQA1A2aA1AaQa!Q!1q!!!!!!!1AaA!AQQA!QQ121!!!!1112RQ!12BA!!11122A!A!1112bQQQQQ!!!AAA11111112Q!!1112BA!Q!A112tA!!12aQ!a!Q1QAAA2A11A1!QQ21!a2Q!!11a1QQQ111!!3A1111AAA1112QQ1!!111AA!3AQ1!!111AA!3QQ1!1!1112AQ1!!1112Q1!1!11121q1!11!!111QQ2!Q!!!!!2AAAA11!!!3a1!!1112"1111!!QQQQQAQQQAQQAqqqA2"1111!!QQQQQAqqqA2AAAA11!!!1AAAA11!!!111!!QQQ2AAAA1111131a4aQ!a!Q1QAAAQQQ3aQ!a!QQQQQQQQ3bA!QAA11AA1!1111QQQ11A1AAA!!!1!12bA!QAA11AAQQQQQQaQa2]Q1!12bA!QA0QQQ11AAqAAqAAq!!!1!1A112bA!QAA11AAQQQQQQaQa2 B Kq# z 4 D Zt/vb*>Re y $!)*3T>@DD@2DegGDEF]  ^dIdikjk8k mVmqq3qrrs tJwfw~{{}R1}q؎=#~uجHZ^ n ~ # q #R e|  |  m -  7 u  D T 1 e g b 5 I+ H  \ w k  x ! !%E %2o (2W4K k4Fm FI15 JKiG KeOk zOQ QY Y \& \__ _a) 1ab= bdT d gu go ,o(q =qs! sAv; WvxI xP x gv n - AG \xJ R^ got ӛz$֨ܪ !  D!X/3GKH[eY}euҵ DX2Oɽ)3O?c8SL#f7y %,8DP`lx1 "+>Qe&y0D/Qe< P^s*9g J{`Jkx:Ro*>+&N f$yI|!2C2bTanz-@S`*C 4Vf 8  '<0 ,qb++}1)1K7Te7F.FI/ILLtnt+v? s?vK  *2Љ!-j!F\6!e|`!xx!w!!!Xc".o"n5##һ8#O#?#WT#t $5 % q&!A &c  & &*!o>'T[$v'v$+'.+y,(,-0(-.G(/h3^(|34(4:(1:8?)QM??3)X?E;)(EH)HwJ)JK)KL)LuM)MN *NP*P,S,* FSTP*TUj*&U=W*6QW3Y*LKY/[*bH[-]*xE]\_+}_Yb)+vb_dV+dfy+fg+gD~+:[~y,^T,syڅ-I!-bF6-`U-i-͌|--ԍ-!- >-"e-C!.S:.d6GP.s\]f.v|."0.K."...ݩ.$/cĭJ/ R/.޲/Pk/u@/_0: 70E0S0`0o0}00 @0 X0" f0H zO0T fB1` [1o (21 =O1 -b1 55w1 XB1 c1 &1 ?1 "1 !62 ! 62,!&|G28!Y2U!12w!;2!Y2!}3!C3!W3! V3! l3"3"3%"3G"3u"(4"4"4"4"4"s4#! 53#"(i5p#()5|#)v*5#*m+5#+d, 6#x,16#12i6#23|6#356#!586$E8D96$o9:6$:Z<6!$p<?65$?D7^$DF97v$FGb7$GNt7$NN7$OP7$P;Q7$\QS7$TV7$VY8$YZ8$Z`38%`Qbx8)%kbe8:%f4h8F%6hj8V%uovX9a%`":i% =n%=s% .>x%n!@}% A@%)*A%01B%F%FF%RέI/%km8%mv9%vvl9%vwq9%wz}9%z{9%{~9&~9&9 &ʁ91&փQ:@&~`#:O&9:e&(}X:{&|w:&V:&=:&{D:&pE:&q.:&Z":&N0;&aʚ;&%;&ќg<; 'S;'- f;'8r;/'5;E';M'¦;U'ʧŪ;p';';'% 6<'5B<'ϴGU<'zh<'Hع}<'<'ɻ<'G<(Ͼ<(<(</( =c(O=(&u=(=(=(+=(X=(1 >(]>(E6>)N>)f>0)>A)>Q)U>)4>)e?)$?)"I?)a?) y?) ? *?*?+*?<*?M* z @_* )@q*I  I@*6  a@*' {@*1 @*;@*9Y@*@ +A$+#BA\+$*A+!+1A+25B+56?B+6#9KB+Y9>gB,>i@B,,@;BB<,jB%DBL,RDFBa,FIHCo,yHKC,.KjM4C,M;OQC,gO QhC,9QRC,SVC,VeXC,X[C-[{]C(-]`D>-9`b2DT-b|dQDe-d~ehDm-ehtD-7hjD-jmD-4moD-omqD-q]sE-sOuE-uy7E.Ky{aE).F{}yE>.}dEN.jE.E.ߊ3-F.gؒKF.RF/PF/mF2/FM/ҜG/SG/=G/S G/PcH %d[RY  7 51 NULLSTRING='' ?% h1 NULLSTRING=''7#7    7 T BrkInactivo T - T  T T 77  TaTXXX SRLTTTTTTTTTTTTT T  5TCCENTURYvG TCCC$iZSET CENTURY &oldano T CCCVAGTCPC>"X (C)  INDIGO (V401) TPesosT/100 Ta TaT @z 999999.999T @z 99999.999 T a7 7!"# T- T#- T"a Ta Ta Ta T  T T!7$%&T%UnidadesT$BultosT&%#7'()*+,-.7/01 T/- T1- T0a T' T- T( T) T.-T*LoteT+UnidadesT, Descuento (%)7234 T2a T3-T4.f.7567 T5a T6- T7789:;< T8-T999,999,999.99999 T: T;a T<a7=>?@AB T=a T>a T?a T@a TA TB7CDEF TCc TD- TE-TF 305202397467G TGa7H THa'7IJKLMNOPQ TIaTMIVA 27% TJa!TNPercepcin Ganancias TKa"TOPercepcin IVA Aduana TLa"TPPercepcin Ing.Brutos5RSTUV TR%Cp_localbU TRW? 7>? T> T?<@ABCDEF7@ABCDEFTCAtrTDAtributoTE AtributosT@BulTABultoTBBultos TF- 1155946792@sms.ctimovil.com.ar, 1150250475@sms.ctimovil.com.ar Te Tf Tg Th Tia Tj Tk TlS?@ABCDEFG?79:;<=>?@ABCDEFGT9PDFT:PDFT;CY..\gs\ T< TF TG T>a T=a T?a T@ TA TD TB TCTE?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a79:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`as-T?fechaT@ ascending TA TB TC TD TE TF TG TH TJ TK TI TL TM TN TQ TR TSd TT TU TV TW TXTYSCA TZT[CX T\- T_- T` Ta T^- Tf Tg Th Ti Tj Tk TmTn? To Tp2 Tqa T Tr Tu Tv Tw Tx Ty Tz T{ T| T}- T~ T T T T T<7 T T T T T T/</7 T TT T Ta T T- T T T T7<77 TTCXTCXTCXTCX T T T T T T T T<7 TC<C7 Ta T T T T T- TaT@Tffffff@Tp T T T T T T < 7 Ta Ts<s7 TTC$ T Ta Ta T T T T T T T T Ta T T T T T T T T- TT T T T T<7 T T- T- T T T T T T T T T T T T T T T T Ta Ta T T T T T T T T T T- T T T T T TT? T T T T TT333333?T333333? T T<7 T T TTT T<  7   T- T T - T +<   +7    T a T  T  T T T T T T T< !"#$%&'()*+,-./0123456787 !"#$%&'()*+,-./012345678 T Ta T T- T- T T T T- Ta TaT ? T! T" T#a T$ T% T& T' T( T)- T* T- T+a T, T.T/vencT0Gz?T1  T2a T3 T4 T5 T6 T7 T8_<9:;<=>?@ABCDEFGHIJKLMNO_79:;<=>?@ABCDEFGHIJKLMNO T9 T: T; T< T= T> T? T@ TA TB TC TD TE TF TG TH TI TJ TK TL TM TN TOC 7=> T=- T>/7 T-% 7|GetPrivateProfileStringWIN32API7|GetPrivateProfileSectionNamesWIN32API4|WritePrivateProfileStringWIN32API$|GetCurrentThreadWIN32API&|GetThreadPriorityWIN32API(|SetThreadPriorityWIN32API$| RegOpenKeyWin32API&| RegCreateKeyWin32API | RegCloseKeyWin32API#| CoCreateGuid Ole32.DLL*|StringFromGUID2 Ole32.DLL/| GetTempPathWIN32APIQGetTPath,|GetModuleFileNameWIN32API#|CopyFileWIN32API$| GetUserNameWIN32API TaU__WWAPIDECLARATIONSAPIGETPRIVATEPROFILESTRINGWIN32APIGETPRIVATEPROFILESECTIONNAMESWRITEPRIVATEPROFILESTRINGGETCURRENTTHREADGETTHREADPRIORITYSETTHREADPRIORITY REGOPENKEY REGCREATEKEY REGCLOSEKEY COCREATEGUIDOLE32DLLSTRINGFROMGUID2 GETTEMPPATHGETTPATHGETMODULEFILENAMECOPYFILE GETUSERNAME? %CMT%CrT %CC3H/ HKLMT  HKCUT  HKCRT 2/ T TTC %xB% 1|RegQueryValueExWin32APITCXTC> T %TC  @|RegQueryValueExWin32APIQ RegQueryInt T T T %TC % B  BC%B% # BBC\UTNHKEYTCSUBKEYTCENTRY TLINTEGERTNMAXSTRINGSIZE LNREGHANDLELNRESULTLNSIZE LCDATABUFFERTNTYPE REGOPENKEYREGQUERYVALUEEXWIN32APILNTYPE REGQUERYINT REGCLOSEKEY: %COT %CCH{  HKLMT  HKCUT  HKCRT 2  T TTC %% eB- TC %B-%C %CN(-| RegSetValueExWin32API#TC ,| RegSetValueExWin32APITC>%TC $TC  %|RegDeleteValueWin32APITCC%,B-BaUTNHKEYTCSUBKEYTCENTRYTCVALUETLCREATE LNREGHANDLELNRESULTLNSIZE LCDATABUFFERTNTYPE REGOPENKEY REGCREATEKEY REGSETVALUEEXWIN32APIREGDELETEVALUE REGCLOSEKEY  TTC%cB&| RegEnumKeyWIN32APITCXT TC C %BBCCC `U TNHKEYTCSUBKEYTNINDEXLCSUBKEYLCRETURNLNRESULT LCDATABUFFER LNREGHANDLE REGOPENKEY REGENUMKEYWIN32APILNSIZE REGCLOSEKEY &TCCCN6X,TC*None*C>"%CN TCCC C ` TC\%*None* T BU PCFILENAME PCSECTIONPCENTRY PNBUFFERSIZE LCINIVALUELNRESULTGETPRIVATEPROFILESTRING TCCd@6TCXTC>TC% BTCC`C T%  BU LASECTIONS LCINIFILE LNBUFSIZELCBUFFERLNSIZELNRESULTLNCOUNTGETPRIVATEPROFILESECTIONNAMES APARSESTRINGYTC%KBaB-U PCFILENAME PCSECTIONPCENTRYPCVALUELNRETVALWRITEPRIVATEPROFILESTRING TCXTC>TC%` T TC\ BULCPATHLNRESULTLNSIZEGETTPATHC+| MessageBeepWIN32APIQMsgBeepCULNSOUND MESSAGEBEEPWIN32APIMSGBEEP%C/TC *|WNetAddConnectionWIN32APITC%TCB-BaU LCNETPATH LCSHARENAME LCPASSWORDWNETADDCONNECTIONWIN32APILNERRORTHIS CERRORMSGGETSYSTEMERRORMSG+|WNetCancelConnectionWin32APITC%TCB-BaU LCSHARENAMELNERRORWNETCANCELCONNECTIONWIN32APITHIS CERRORMSGGETSYSTEMERRORMSGTCX TCTCC %rTC\  T BU LCFILENAMELNBYTESGETMODULEFILENAMEm#TCCN6TCBC-a6ULCSOURCELCTARGETNFLAGLNRETVALCOPYFILEfTCPX TPC% J BBC\U LCCOMPUTERLNSIZE GETUSERNAME(|GetComputerNameWIN32APITCPX TPC% r BBC\UGETCOMPUTERNAMEWIN32API LCCOMPUTERLNSIZE[ %C6B-%CX T%C{T.%CN Ta)| LogonUserWIN32API T$TC% = | CloseHandleWIN32APICBCa-6U LCUSERNAME LCPASSWORDLCSERVERLNTOKENLNRESULT LLTOKENPASSED LOGONUSERWIN32API CLOSEHANDLE   T!%C- KB-,|ImpersonateLoggedOnUserWIN32APITC | CloseHandleWIN32APICBCa-6U LCUSERNAME LCPASSWORDLNTOKENLNRESULTTHIS LOGONUSERIMPERSONATELOGGEDONUSERWIN32API CLOSEHANDLE; | RevertToSelfWin32APIBCCa-6U REVERTTOSELFWIN32API TCX% r*|GetSystemDirectoryWin32APITC +|GetWindowsDirectoryWin32APITC%BC\\ BU LLWINDOWSDIRLCPATHLNSIZEGETSYSTEMDIRECTORYWIN32APIGETWINDOWSDIRECTORY BCUGETCURRENTTHREADBCUTNTHREADHANDLEGETTHREADPRIORITY BCUTNTHREADHANDLE TNPRIORITYSETTHREADPRIORITY  ,TCC pnPlayTypebN6 T-#| PlaySound WINMM.DLL%C Ta BU PCWAVEFILE PNPLAYTYPE LHPLAYSNDLLRETVAL PLAYSOUNDWINMMDLLTC QTC PQTC> %Cp B% B %C BBCCL=ULLRAW LCSTRUC_GUIDLCGUIDLNSIZE COCREATEGUIDSTRINGFROMGUID2^-TCC lnMillisecsbN6|SleepWIN32APICU LNMILLISECSSLEEPWIN32API- | GetLastErrorWin32API BCU GETLASTERRORWIN32API  %CN?TCTCX/| FormatMessageWIN32API(TCC>%C>TC\  T BU LNERRORNOLCDLL SZMSGBUFFERLNSIZELNERRORTHIS GETLASTERROR FORMATMESSAGEWIN32API&%CCfH/b' Program Files Commonc T+ Program Files T&& Program Files 64Bit T*# Documents Common T.L DocumentsDocuments User  My Documents L T Send Tos T  My Computer T Desktop T# Application Data T* Application Data Common, T#) Local Application Datab T0|SHGetFolderPath Shell32.DLLTCC Q!TCC%TCC \  T BULNFOLDERSHGETFOLDERPATHSHELL32DLLLCOUTPUTLNRESULTHWNDL!%C wscript.Shell CB- T-TC wscript.ShellNT C T T %C T %C T %CT C .T  C  B U LCSHORTCUT LCDESCRIPTIONLCTARGET LCARGUMENTS LCSTARTFOLDERLCICON ISCOMOBJECTLLERRORLOSCRIPTLOSCCREATESHORTCUT DESCRIPTION TARGETPATH ARGUMENTS ICONLOCATIONWORKINGDIRECTORYSAVE%C, TC"TCGetwwDotnetBridge()EBC$Westwind.WebConnection.FoxProHelpers GetUtcTimeULTTIMELOBRIDGEINVOKESTATICMETHOD %C0 TC%CR T"TCGetwwDotnetBridge()NBC$Westwind.WebConnection.FoxProHelpers FromUtcTime<ULTTIMELNOFFSETMINUTESLOBRIDGEINVOKESTATICMETHOD7%CN' B7% y,|GetTimeZoneInformationWin32API TaTCXTCTCC\a%T< T BU __TIMEZONE__GETTIMEZONEINFORMATIONAPIGETTIMEZONEINFORMATIONWIN32APILCTZLNDAYLIGHTSAVINGSLNOFFSET CHARTOBIN   T (C>u3TCC \ "% A T A BU LCBINSTRINGLLSIGNEDILNWORD % @T ATCGTCCGTCCGTCCG-BCC CC CC CC ULNVALUEBYTE,"BCC G CC  8 ULNVALUEL1| FindWindowWIN32APIQ __FindWindowBCULCTITLE FINDWINDOWWIN32API __FINDWINDOW T TTC>TCC QTC>0| GetLastErrorwin32apiQ GetLastErrorI|CryptAcquireContextAWIN32APIQCryptAcquireContext&TC A %. C@|CryptCreateHashWIN32APIQCryptCreateHash1TCCCC  % C:| CryptHashDataWIN32APIQ CryptHashDataTC %8 CE|CryptGetHashParamWIN32APIQCryptGetHashParam TC% C9|CryptDestroyHashWIN32APIQCryptDestroyHashTC%* CA|CryptReleaseContextWIN32APIQCryptReleaseContextTC% C BUTCDATALNSTATUSLNERRLHPROV LHHASHOBJECT LNDATASIZE LCHASHVALUE LNHASHSIZE GETLASTERRORWIN32APICRYPTACQUIRECONTEXTACRYPTACQUIRECONTEXTCRYPTCREATEHASH CRYPTHASHDATACRYPTGETHASHPARAMCRYPTDESTROYHASHCRYPTRELEASECONTEXT%C6T%d  gT=| ResizeImage wwImaging.DLLQ _ResizeImageIBCCCCC CCC@C a-6U LCSOURCELCTARGETLNWIDTHLNHEIGHT LNCOMPRESSION RESIZEIMAGE WWIMAGINGDLL _RESIZEIMAGE! %CC@gif=|SaveImageToGif wwImaging.DLLQ_SaveImageAsGif;BCCCCC CCC a-6 5| CopyImageEx wwImaging.DLLQ _CopyImage=BCCCCC CCC@C a-6ULCSOURCELCTARGETSAVEIMAGETOGIF WWIMAGINGDLL_SAVEIMAGEASGIF COPYIMAGEEX _COPYIMAGEC|CreateThumbnail wwImaging.DLLQ_CreateThumbnailCBCCCCC CCC a-6ULCSOURCELCTARGETLNWIDTHLNHEIGHTCREATETHUMBNAIL WWIMAGINGDLL_CREATETHUMBNAIL@| GetImageInfo wwImaging.DLLQ _GetImageInfo T T T5BCCCCC a-6ULCIMAGELNWIDTHLNHEIGHT LNRESOLUTION GETIMAGEINFO WWIMAGINGDLL _GETIMAGEINFOr 7| RotateImage wwImaging.DLLQ _RotateImage-BCCCCC a-6ULCIMAGE LNFLIPTYPE ROTATEIMAGE WWIMAGINGDLL _ROTATEIMAGE;| WriteImage wwImaging.DLLQ _WriteImageSBCCCCC CCC C6a-6U LCSOURCELCINSERTLNLEFTLNTOP LLNONOPAQUE WRITEIMAGE WWIMAGINGDLL _WRITEIMAGE;| ReadImage wwImaging.DLLQ _ReadImageJBCCCCC CCC  a-6U LCSOURCELCTARGETLNLEFTLNTOPLNWIDTHLNHEIGHT READIMAGE WWIMAGINGDLL _READIMAGE%C6TArial%CX TC|GetCaptchaImage wwImaging.DLLQ_GetCaptchaImageTCC TCC TCC (BCCa-6ULCTEXT LCOUTPUTFILELCFONT LNFONTSIZEGETCAPTCHAIMAGE WWIMAGINGDLL_GETCAPTCHAIMAGE%CR:>T:)Tnet use  "" %C (T" " /USER:""  T!T /persistent:yesTRUN &lcrun BCULCDRIVE LCSHAREPATH LCUSERNAME LCPASSWORDLCRUN G|wwCreateProcess wwIPStuff.DLLQ_wwCreateProcess%C T%C T%C T""   T% T ) T%CNQ T&TC BCa-6U LCEXE LCCOMMANDLINELCSTARTDIRECTORY LNSHOWWINDOWLLWAITFORCOMPLETIONLCSTDOUTPUTFILENAMELNWAITLNRESULTWWCREATEPROCESS WWIPSTUFFDLL_WWCREATEPROCESSaG| CreateProcesskernel32Q_CreateProcessTCC QTC %C T""   T5T CC]C TCC\%.|WaitForSingleObject kernel32.DLL%CT\& TC+a %Cd !  %C  T !$| CloseHandle kernel32.DLLCBC a-6ULCEXE LCCOMMANDLINE LNSHOWWINDOWLLWAITFORCOMPLETION LNTIMEOUTMSHPROCESS CPROCESSINFO CSTARTUPINFOLNSTARTSECONDS CREATEPROCESSKERNEL32_CREATEPROCESSGETSTARTUPINFOLNRESULT LHPROCESS CHARTOBINWAITFORSINGLEOBJECTDLL CLOSEHANDLE%CN2 T TBCPCCCCCCCCCCCCCCCCCCC QU LNSHOWWINDOWLNFLAGS BINTOCHAR BINTOWORDCHAR T- 3|GetCORSystemDirectory MSCorEE.DLLTCXTC>TC% B % BBCC=ULCSTRINGLNSIZELNRESULTLLERRORGETCORSYSTEMDIRECTORYMSCOREEDLL TCwwAPIN[TCHKLM2SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\FullReleasea%C!]TCHKLM4SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\ClientReleasea%C B 4.0 Client BH6  X B4.0 z B4.5  B4.51  B4.6$    B4.61$ 2 6 ! B4.62$   Q B4.7$      B4.71  B 4.72 or later BULOAPILNVALUEREADREGISTRYSTRING ISNULLOREMPTY  -TCC lnMillisecsbN6|SleepWIN32API%  CBTd ( CdU LNMILLISECSLLWITHDOEVENTSLNXLNBLOCKSSLEEPWIN32API TC X=|GetEnvironmentVariableWIN32APIQ GetEnvVarTCC>% BBC\U LCVARNAMELCRESULTLNRESULTGETENVIRONMENTVARIABLEWIN32API GETENVVAR %|PathFindOnPathShlwapi,|GetFullPathNameWIN32APITC XTCC>% BBC\ULCFILELCBUFFERLNRESULTPATHFINDONPATHSHLWAPIGETFULLPATHNAMEWIN32API#| GetWindowRectuser32TCC QCTCEMPTYN"CLeftCC\ !CTopCC\ #CRightCC \ $CBottomCC \ BULNHWND GETWINDOWRECTUSER32CBUFFERLORECT CHARTOBIN +|GetModuleFileNameWIN32APITCXTCC>% | BBCULCEXELNRESULTGETMODULEFILENAMEWIN32APIWINAPI_NULLSTRING`TCC %PTC\ B BULCINPUTLNATr#| GetSystemTimewin32apiTC(XCTCC\RS2TCC\RS2TCC\RS2TCC \RS2TCC \RS2TCC \RS2QT {^C_-C_-C_ C_:C_:C_} BC U LNYEARLNMONTHLNDAYLNHOURLNMINUTELNSECONDLCBUFFER GETSYSTEMTIMEWIN32APILCTIMEBCCJ.CJgU %CC{%C@ T!| FindWindowWIN32APITC  T(|SetForegroundWindowWIN32APICBULCTITLELNPARENTHANDLE FINDWINDOWWIN32APILNHANDLESETFOREGROUNDWINDOWI)|SHAutoComplete shlwapi.dllC U LOEDITCONTROLSHAUTOCOMPLETEHWNDI)|SHAutoComplete shlwapi.dllC U LOEDITCONTROLSHAUTOCOMPLETEHWNDS  %C5"TXerox PS Class DriverHZ1$ CJ6 CJ2 "TXerox PS Class Driver$ CJ6 CJ1 !TXerox Phaser 6120 PS$ CJ6 CJ1 1(TXerox PS Color Class Driver%CW T TC(%C@CC@BaTWindows 2000 or XP$%CJ6 CJ0 T Windows XP$%CJ6 CJ0 d!TType 2 - Kernel ModeTCwwAPIN!TC rundll32.exerT !printui.dll,PrintUIEntry /if /b "" /f "Ca  inf\ntprint.inf" /r "lpt1:" /m ""TC a % EB-BaU LCDRIVERNAME LCPRINTERNAMELCOSLLRESULT LAPRINTERSLNCOUNTLNXLOAPILCEXE GETSYSTEMDIR LCCMDLINE CREATEPROCESSq%CL!TXerox Phaser 1235 PSTC( TCH+ AppleCR PS B+ XeroxC PS  B(aTC%CR PS] B BU LCDEFAULT LAPRINTERS LNPRINTERSLNX LCPRINTER E|GetClipboardText wwipstuff.DLLQ_GetClipboardTextTCLXTC>!%C%TCX %CB BBC=ULCFORMATLCDOCLNSIZEGETCLIPBOARDTEXT WWIPSTUFFDLL_GETCLIPBOARDTEXTV&| SendMessageWIN32APIBCULNHWNDLNMSGLNWPARAMLNLPARAM SENDMESSAGEWIN32API%C/ T%CO T%Cq T'| FindWindowExWin32APIBCU LNPARENTHWNDLNHWNDLASTCHILDLCCLASSLCTITLE FINDWINDOWEXWIN32APIa)| MoveWindowWIN32APIBCULNHANDLELNXLNYLNWIDTHLNHEIGHT MOVEWINDOWWIN32API&| GetClassNameWin32API TTCXTC%BC= BULNHWND GETCLASSNAMEWIN32APILNBUFFERLCBUFFERc+|CallWindowProcWin32APIBCU LPLASTWINPROCLNHWNDLNMSGLNWPARAMLNLPARAMCALLWINDOWPROCWIN32API LHLASTWINPROCm $| GetWindowLongWin32API%CNTTBCULNHWNDLNINDEX GETWINDOWLONGWIN32APID&|InvalidateRectWIN32APICULOFORMINVALIDATERECTWIN32APIHWND^-TCC lnMillisecsbN6|SleepWIN32APICU LNMILLISECSSLEEPWIN32API[TCwwAPINTCa%CSysWOW64MBaB-ULOAPILCWIN GETSYSTEMDIRISDIR#|GetSystemMetricsuser32TCEMPTYNCMonitorsCP "C VirtualWidthCN #C VirtualHeightCO "C ScreenHeightC !C ScreenWidthC BUGETSYSTEMMETRICSUSER32 LOMONITOReTC%CIT %CrT % T%2T%  T  T%  ^T  TU LOFORMLNWIDTHLNHEIGHT LOMONITORGETMONITORSTATISTICS VIRTUALWIDTH VIRTUALHEIGHTLEFTTOPWIDTHHEIGHT/TCC lcFileSpecbC*.*64TCC lcDestinationbCC]C6#|UnZip wwipstuff.DLLBCU LCZIPFILE LCDESTINATION LCFILESPECUNZIP WWIPSTUFFDLL} "TCGetwwDotnetBridge()FBC Westwind.WebConnection.FileUtils UnzipFolderU LCZIPFILELCFOLDERLOBRIDGEINVOKESTATICMETHOD"TCGetwwDotnetBridge()HBC Westwind.WebConnection.FileUtils ZipFolderU LCZIPFILELCFOLDERLLFASTLOBRIDGEINVOKESTATICMETHOD/TCC lnCompressionbN 6%|Zip wwipstuff.DLL<TCC6C6 BU LCZIPFILE LCFILELIST LNCOMPRESSION LLRECURSE LLADDITIVEXRESZIP WWIPSTUFFDLL #%C>i JB-TCi\TCC(\`TCC. \gTCC` \gTCCCf6%wwDBFB- T T%LTCj\%C> HB-%TCj\T C>%C> B-C %C !CC.DBF.FPT BaU LCBUFFERLCDBF LNSEPARATORLCHEADERLCFNAMELNSIZE1LNSIZE2LCFILE1LCFILE2LNSIZEXFILE2VARj%TCCCCf6%ClTC%C0 BTC&TwwDBFC(CC> Z% TC2X BTCC@.dbf.fptTC*TCCfpt(CC> ZBULCDBF LLHASMEMO LCENCODEDNAME LCBUFFER1 LCBUFFER2LCHEADERLCFPTFILE2VARBCBULCFILE ENCODEDBFBCULCBUFFER DECODEDBF  D|GetDomainFromIp wwIPstuff.DLLQGetDomainFromIp_API%Ct T  TTCXTC%CC TC  T BU LCIPADDRESSLLV6LCDOMAINGETDOMAINFROMIP WWIPSTUFFDLLGETDOMAINFROMIP_APILNVALUEWINAPI_NULLSTRINGB|GetIpFromDomain wwipstuff.DLLQGetIpFromDomain_APITC8XTC%CC  TCCC \  T BULCDOMAINGETIPFROMDOMAIN WWIPSTUFFDLLGETIPFROMDOMAIN_API LCIPADDRESSLNVALUETC.|GetRTTAndHopCountIphlpapi| inet_addrws2_32   T CJ(T C d% BaB-U LCDOMAINLNHOPSLNTIMELCIPGETIPFROMDOMAINGETRTTANDHOPCOUNTIPHLPAPI INET_ADDRWS2_32NDSTNHOPNRTTLNRESULT %C=T)TCC]C]CC_.gzT.in%C B%CL C  FTCwb %  BC CC> C v%rC TC   BULCSTRINGLNCOMPRESSIONLEVELLCOUTPUT LCOUTFILELCINFILELNHANDLE PROCESSIDFILE2VAR _GZIPLOADED GZIPLIBRARIESGZOPEN GZSETPARAMSGZWRITEGZCLOSE %6 T {)TCC]C]CC_.gzC%CL C T qTCrb %  B T+amT CXT C C > %  S!TC = { %C   BU LCCOMPRESSEDLLISFILELCINFILELCOUTPUTLNHANDLE PROCESSIDFILE2VAR _GZIPLOADED GZIPLIBRARIESGZOPENLCBUFFERLNRESULTGZREADGZCLOSE7 Ta |gzopen zlib1.DLL"|gzwrite zlib1.DLL%| gzsetparams zlib1.DLL!|gzread zlib1.DLL|gzclose zlib1.DLLBU _GZIPLOADEDGZOPENZLIB1DLLGZWRITE GZSETPARAMSGZREADGZCLOSElTCwwAPIN(TC]\C.txtTCTULOAPITHIS CFILENAME CREATEGUIDNHANDLENLENGTH CUTHISDISPOSEq%J <C FTTUTHISNHANDLE CFILENAMENLENGTH\% + CCTC>U LCCONTENTTHISNHANDLEINITNLENGTH3CCC C U LCCONTENTTHISWRITE,TCCCU LCFILENAMETHISWRITE%kCTCTCC  T BULCOUTPUTTHISNHANDLE CFILENAME CUTHISDISPOSEBC>UTHISCOUTPUT CUTHISDISPOSE#TTUTHISCOUTPUTNLENGTHTUTHISCOUTPUT!TU LCCONTENTTHISCOUTPUTCU LCCONTENTTHISWRITECLRFCCCU LCFILENAMETHISWRITE BUTHISCOUTPUTBUTHISOSBLENGTH[%TCGetwwDotnetBridge()3TCSystem.Text.StringBuilderUTHISOBRIDGEOSBCREATEINSTANCE CUTHISDISPOSE CUTHISCLEARCUTHISOSBCLEAR-#CAppendU LCCONTENTTHISOBRIDGE INVOKEMETHODOSB1'C AppendLineU LCCONTENTTHISOBRIDGE INVOKEMETHODOSB1'CAppendCCU LCFILENAMETHISOBRIDGE INVOKEMETHODOSBBCUTHISOSBTOSTRING UnZipFilesFZipFilesGetIpFromDomain/INITjReadRegistryStringWriteRegistryString EnumKeyt GetProfileStringaProfileSections}WriteProfileString GetTempPath MessageBeepXMapDriveDisconnectDrive GetEXEFileCopyFile GetUserNameVGetComputerName LogonUserImpersonateUsero RevertToSelf GetSystemDirGetCurrentThreadfGetThreadPrioritySetThreadPriorityPlayWave' CreateGUIDSleep=  GetLastError getsystemerrormsg!GetSpecialFolderr"CreateShortcut% GetUtcTime( FromUtcTime( GetTimeZone) chartobinK+ BinToChar=, BinToWordChar>- FindWindow{-HashMD5- ResizeImage2 CopyImage4CreateThumbNail5 GetImageInfo6 RotateImage7 WriteImageS8 ReadImage\9GetCaptchaImaged:MapNetworkDrive;CreateProcessEx*= Createprocessl?getstartupinfoBGetDotNetFrameworkPathCGetDotnetVersion=E WinApi_Sleep6HWinApi_GetEnvironmentVariableNIWinApi_GetFullPathTJWinApi_GetWindowRectoKWinApi_GetStartupModuleFilenameLwinapi_nullstringMWinApi_GetSystemTimeMWindowsVersionOActivateWindowO ActivateFileSystemAutoCompletion#QActivateUrlAutoCompletionQInstallPrinterDriverRFindPostScriptPrinterUGetClipboardTextWWinApi_SendMessageXWinApi_FindWindowExYWinApi_MoveWindowZWinApi_GetClassNameA[WinApi_CallWindowProc\WinApi_GetWindowLong\WinApi_RepaintFormz]Sleep]Is64Bitr^GetMonitorStatistics^FixMonitorPosition` UnZipFilesa UnzipFolderb ZipFoldercZipFiles`d DecodeDBFwe EncodeDBFg EncodeFilei DecodeFileiGetDomainFromIpjGetIpFromDomainkPinglGZipCompressString3nGZipUncompressStringp gziplibrariesrINITsDESTROYtdisposetWRITE_u WriteLineu WriteFile?vToStringvCLEARJwnLength_AccessqwDESTROYwdisposewCLEARxWRITE-x WriteLinepx WriteFilexToStringxnLength_AccessyINITGyDESTROYydisposeyCLEARzWRITEGz WriteLinez WriteFile{ToStringv{  U5 T T                       U NLASTERROR CERRORMSGz T T T ^ _ ` a b c d eUNHANDLE CFILENAMENLENGTHm T T f g h i j k l mUCOUTPUTNLENGTH T T T n o p q r s t u vUOBRIDGEOSBNLENGTHwwZIPCUSTOMwwAPICUSTOM. wwFileStreamCUSTOMwwMemoryStreamCUSTOM!wwStringBuilderStreamCUSTOM4a2q6q4qAqqAAaAa11AA3qqAAqqqqQAA1qAQQ1AA1qA1AQ3qqAqqqqQAA1q1qAAA!q11AAAQaA1qAq311qAa1qAQ31a!QAA3q1A1A311qAq3a1QA3q3A1qAq3qqQ1qAq3QA1A3q1q3!1AQ3!1A31qAAAqAAAq3qA!q33qaaA1aA33q3!31A3q111AAAA3q33AQA5qqqa11AAQ1A3qAQ!A!A1A3qqA!Q3qAA!3qqAqA!1A31A!A3q1A3q!3q3qAa1A1A1AQ1A!1AQ1A3qAA3QA311131Q3q3q1331!AA131!A!A3qAA!AAqAaq3q1qA!!AQAAAAAAAAAq3qqqA! 3111AAA3QAQ1AAaaaaAAAAaaA3AAAA3q1A3qQ1A3q1A!Q!1A31A3qA1A3133qAaAA3qa3qa3!A!AAAAA!qAAAqAAAQ!qAq3q1A!!AA!AA3qQ!1qAqAA31a31AAAq3q3qa1!A3q3AqA!3qaA3q3Q!qAq31Q!1!3qAAAAAAAAAA3A1a3q!a3q!3Q31QqAQqqqqA1QQqAA1qAA!!Aq3qQA!A!a1A!3qA3q3qAA!A3q!aA3!!1qAq31AAAAqAAQqAAA3!AAqAA!1AAaA1AA3q!QA8qQQ33aAA3qqA3q3q13qq1AA393333qq3qA3qQ3:3Q13333q13qq3qq344P@ 1444b 3 WE"t 1V4 gH'V;?-Yej  0!\!?"&e"$1%&J)& 'X,3'(]; )%)n=S))r@))*wCN*{+|M+-]:--b-:.eh.Q0t044V7z7`8899;;=$+=g>1>>>??C?EIFGs$GI- J2K1XKL8LM<MN@ ONPDwPDRQmRT`*T;WybW\)\] ]__+c'RcdId fY8fgegirij j}kk5n ]nyn"np0Jpp4p|q8q v_OvvxvxYzz8{e{||}-}~3(?6ENBTc[d߄o?td`ыEh.U2y5ՒfFQ ^}Ě<Ɲa|$qIYy~}>֡Lsբؤ 4Wjͥ)PѦnDTyߨ2YשAfL`0-9%l9]D%:UG_|JU CUTHIS PUSH_POINTSEP5TCPointvTC SeparatorvUTHISXPOINT XSEPARATORv &%C CxPointbC < G;($%C CxSepbC o G<(UXPOINTXSEPCUTHIS SET_POINTSEPXPOINT XSEPARATORINIT, Push_PointSepY Set_PointSep Pop_PointSep<E T T    UXPOINT XSEPARATOR Estado_SetsCUSTOM42q2bAAA223Qh  $%x1z3VTU "%C xdocument_idbN?TC"%C xdocument_idbCr T%C%3C&El formulario no tiene DOCUMENT_ID !!! (CNo hay ayuda disponible !!!B7%CC@=http:CC@=https: TTC 0Thttps://docs.solinges.com.ar/C%T_dev%internetBU XDOCUMENT_IDXTEC CODIFICARMENSAJEXURL SHELLEXECINTERNET{Hk S(Tcontabilidad/abm-ejercicios QTDConvertir+un+art%C3%ADculo+sin+lotes+a+un+art%C3%ADculo+CON+LOTES%3F 2T%facturacion-reproceso-de-comprobantes  T RTErespuestas/preguntas-frecuentes/facturacion/anulacion-fisica-y-logica VTHrespuestas/preguntas-frecuentes/facturacion/facturacion-limites-de-fecha TWTJrespuestas/preguntas-frecuentes/facturacion/comprobantes-de-credito-mipyme 2k T BU XLINKS_ID documentar0 codificara3!!A!A1AAArqARBRB2q111!11!1a1qA2I\%1%SRXAa(XPXn CUCREATE_OBJECT_SECURITY3<7QOBJECTTCSecurityNU OSECURITY"%C \equipos.dbf0 / C/TCExportar_Texto Imp_Exp.vcxTSECDTHSECBUP_SYSTEMTHISCREAR_TABLA_EQUIPOS VAL_GENERADORSET_DIVSET_HEADh1 \equipos.dbfNC CNTTTT C C C C LMM ctrlequipos-UP_SYSTEMCODIGOIDUNOMBREINOUT ACTIVIDAD SEALVIDAINICIOSALIDAIPMACUSERWINUSERGESPERMISOSND_MSGCOMANDOS REINDEXARCTRL45  T a T  T - T - T-C    | GetKeyStateWIN32API5TCTCTC T T-?%CclavebC C CurrentUserbC pTCXTC  T+[H % TCXTSPR C  )  O Ta  C  T - 2C   %C   F T)C  %*! T - TT%T !T" #T$ %)%    C"&C"'TCXG( (BU)CLAVEINDICEOKEY CURRENTUSERXLOGIN_PRINCIPALXKEYZXCHARINTENTOXCLAVE_GUARDADAXREGISTRAR_USUARIOXEQCODXEQNEW XEQPERMISOXEQOK OSECURITYREGISTRAR_EQUIPO GETKEYSTATEWIN32APIXVALALTXVALCTRL XVALSHIFTPI_INICIO_MODOTHIS LAST_USER_GETP_DEV P_DEV_VERSIONP_SEC_GUARDAR_AHORA SEC_TABLE_GETCL_AVEUSUARIOCL_ATRA010592A2CL_NOMA3CL_IDUIDU LAST_USER_SETREGISTRAR_LOGINSEC_TABLE_CLEAR.QSTRINGQSTRINGQINTEGER%C0 DBTC T!(C>"TCCC\ !TC\C BU XORIGINALXDESTINOXOFFSETXSTRINGXSTROUTNIT%CxSystembLI T%CxLocalbL~T\tmp"%C xDataSessionbN G(%CxSelectbN T%CxAliasbLTA010592%C4 FQ6C \a010592.dbf \a010592.dbf 6C \a010592.cdx \a010592.cdx %T  EXCLUSIVE  T 1C \a010592.dbf TMPSECTABLE % wHUSE (xlocal+'\a010592.dbf') IN (xselect) ALIAS (xalias) AGAIN &xexcl FB \a010592.dbfU XDATASESSIONXSELECT XDONTOPEN XEXCLUSIVEXSYSTEMXLOCALXALIASP_SYSTEMP_LOCALTHIS INVERSE_FILEXEXCLSEC_TABLE_CRYPT|%CA010592#FQ5C\tmp\a010592.dbf TMPSECTABLE>C\TMP\a010592.dbf\TMP\a010592.tm1>C\TMP\a010592.cdx\TMP\a010592.tm26\TMP\a010592.tm1( \a010592.dbf6\TMP\a010592.tm2( \a010592.cdx k\TMP\a010592.* uUA010592THISSEC_TABLE_CRYPTP_LOCAL INVERSE_FILEP_SYSTEM% &B- u&TC _cryptapi _crypt.vcx( 2TC _cryptapiCQ\ffc\_crypt.vcx %C FQFQ:T *Microsoft Base Cryptographic Provider v1.0TYOU OWE ME MONEY ~%'CA2A2 >C N >C=CC>X'CA2A2 'CA3A3 'CA5A5 %'CA1A4 -%CA4A1  >c(  %C FQUXIOXTABLEXALIAS P_SEC_CRYPTOCRYPTOXFLDNXFLDINXKEYXFLDOUTNITOEX CPROVIDERNAMETHISSEC_TABLE_CRYPT_FLDA2A4,  FxFLDIn=&xalias..&xFLDN %CxFLDInbN{TC TC%C C %CxFLDOUTbLB-%CbN4TC "REPLACE &xFLDNOut WITH xFLDOut TxFLDOut=&xalias..&xFLDNOut %CxFLDOutbCTC%%CbNTC REPLACE &xFLDN WITH xFLDIn B-%CxFLDOutbNRTC %C C  %%CbNTC REPLACE &xFLDN WITH xFLDIn (%UXIOOCRYPTOXKEYXFLDNXFLDNOUTXALIASXFLDOUTXFLDOUT2XFLDINTHISN2DWDECRYPTSESSIONBLOCKSTRINGENCRYPTSESSIONBLOCKSTRINGDW2NOEXf\BCC\ pACC\ @CC\CC\UXCDW(BCCG CC 8 UXNNPCA010592a ?\TMP\a010592.* IUODEYFUNCCERRAR_TABLA_EN_DATASESSIONSP_LOCAL45 TCXTCX T  T  T acl1(%C T  T T G] BUXCLAVEXUSUARIOXFOCO_EN_USUARIOXREGISTRAR_USUARIOXKEYXUSERZXCHARINTENTOOKEY XTMP_USUARIO XTMP_CLAVE XTMP_GUARDACL1'45 T C "CEquipos\ !CEQUser\ TCCTC TTC TCfC17Enero F% ^%5G((num_usr E Z G((a3ECCf %G((num_usr E G((num_usr E<%C4+CC>    R% FG((idfullECZCZ%C4fT { T-.%    F T Ta T T NZCMNo tiene autorizacin para ingresar en esta PC, contactese con su supervisor.  \%C | F BU!CLAVINDICEOKEY CURRENTUSERXEQCODXEQOK XEQPERMISO XPOR_INDICEXNODEVBASETHIS SEC_TABLE_GETODEYFUNC CHK_OPENEDP_SYSTEMZCLAV2ENCRYPT ENCRIPTARA010592P_DEVNUM_USRA3A1A5A4 P_SEC_MAQUINAEQUSERIDFULLPERMISOCL_ATRA2MENSAJE"45  T T  T T  TT T- T%CC  T T&CC % mC5No coincide usuario y clave o el usuario no existe!!!C [][CCZ]T T  T  T  T TT T  T BUINDICEXFOCO_EN_USUARIOXNEWUSRXNEWKEYCLAVEOKEY CURRENTUSER AAAPUB_INDEX AAACL_NOM AAACL_ATR AAACL_AVE PUB_INDEXCL_ATRCL_NOMCL_AVETHISUSUARIOMENSAJEA010592A1A2A3N7 T T T TBU AAAPUB_INDEX AAACL_ATR AAACL_NOM AAACL_AVE PUB_INDEXCL_ATRCL_NOMCL_AVEN T T T T<BU PUB_INDEX AAAPUB_INDEXCL_ATR AAACL_ATRCL_NOM AAACL_NOMCL_AVE AAACL_AVE45 T1 aaa=ERROR()Taaaa= &aaaaa ON ERROR &onerr %B- BaBUVARAAAAAAAAAAAA_ 4%T5 T%C>` TB +C>C> TTC> T(++TCCCC=CC=G TCC>RTCC>R TTCR9BUMENSAJEKEY P_ENCRYPTEDCLAVEAUX1RESULIS 4%H5 T%C>lR,clave muy cortaB +C>C> TTC> T(7+TCCCC=CC=G TCC>RTCC>R TBUMENSAJEKEY P_ENCRYPTEDCLAVEAUX1RESULI4 5%CxusuariobLQ T-T % T-T  Ta% % CPermiso no definidoTB-%SCC\f T-% TC %CC\fS Ta T T-  %Ba % stC0No se encuentra habilitado para usar esta opcinC C  ID Permiso: [CCZ] C TB-TBaU XPERMISO XSIN_MENSAJEXUSUARIO XPREGUNTAXOKMENSAJECL_ATRTHIS SAVE_USERACCESOC REST_USERGET_PERMISO_TXT TCW%Cpermisos PQ \permisosFG((COD_PERMG ECZG F%Cpermisos+ BC  BUXIDXSELECTP_SYSTEMPERMISOSCOD_PERMDESCR' 4TCBUXRESULXPERMISOTHISCL24 TTC 5(C>.TCCC\ BUMSG1MSG2 XMINUSCULASZTHISDISPLACESWITCH4 TTC 5(C>/TCCC\ BUMSG1MSG2 XMINUSCULASZTHISSWITCHDISPLACE  5H# CAZhTCCATCCZ Caz TCCaTCCz  C09TCC0TCC9 2 T BUX XMINUSCULASYDIF 45%CAZH< Z iTA A  TZ 2TCC  %C09lHh 9 T0 0  IT9 2hTCC   T BUX DIRECTIONY  T Ta%CxClavebCiTCXTC C \LastUser.binH  T \LastUPMSG.bin 2 T \LastUP.binC C %VC  uCCX TC  C BUXUSERXCLAVEXFILEXVALXTXTXUSRXPASSXUSER2MSXCLAVETHISENCRYPTP_LOCALPI_INICIO_MODO VAL_GENERADOR VAL_AGREGARP_SEC_GUARDAR_AHORA VAL_TEXTO_  T Ta TaHV T\LastUPMSG.bin 2%  T \LastUP.bin%C0 FT \LastUser.bin T- T-%C0 B T BTCC %8T  TC   T- T TC  T%C T- 4 T T- O T BUXCLAVEXAUTXFILEXVALXTXTXUSRXPASSPI_INICIO_MODOP_LOCALP_SEC_GUARDAR_CLAVETHISDECRYPT VAL_GENERADOR VAL_TEXTOVAL_COLECCION_NEXTHi CT\LastUPMSG.bin 2iT \LastUP.bin%C0 &CLa clave ha sido borrada. (CNo haba clave guardada !!!UPI_INICIO_MODOXFILEP_LOCALMENSAJE T-5 T T Tsys_cambio_clave(% T T- T TC % 6QCDLa clave actual no es vlida o el usuario no puede cambiar su clave. B-F>C  /C"La clave se ha cambiado con xito. )CLa clave no se ha cambiado . B-UXRES XTMP_USUARIO XTMP_CLAVEXTMP_CLAVE_NUEVAINDICEOKEYCLAVE CURRENTUSERCL_NOMSYS_CAMBIO_CLAVE PUB_INDEXTHISUSUARIOMENSAJEA010592A5ENCRYPT SEC_TABLE_PUT"%C \a010592.dbf0 4 Ta x#Q \a010592.dbfQ Ta %5C \010592.dbf \a010592.dbf5C \010592.cdx \a010592.cdx BUXCONVP_SYSTEMA010592THIS INVERSE_FILE"CEquipos\ TCC]# %T CT C  T  T  )T CNetworksys_network.prgT  FG((nombreEC  TC4 %Krequipos   C]-TT T%CObCJDemasiados registros en tabla de equipos. Consulte al soporte tcnico !!!+C C  No puede ingresar al sistema !!!8 [>COCCC  UXCODIGOXOKXNUEVAXPERMISOODEYFUNC CHK_OPENEDP_SYSTEMXARRAYXELEMSPLIT_TO_ARRAYXEQNXUSERONETWORKOADAPTERPREFERED_ADAPTEREQUIPOSNOMBREMACIPIDUPERMISOCODIGOMENSAJEINOUT ACTIVIDAD SEALVIDAINICIOSALIDAUSERWIN5 TCW 'TCDeyFunc Dey_Func2.prg"CEquipos\ TCC]#%TCTC  T TF G( (nombreE C%C4> C%C T > C  %C  F UXBASEODEYFUNC CHK_OPENEDP_SYSTEMXARRAYXELEMSPLIT_TO_ARRAYXEQNXUSEREQUIPOSNOMBRE SEALVIDAINSND_MSGXMENSAJETHISRECIBIR_MENSAJE"CEquipos\ TCC]#%TCTC  T TF G((nombreEC%C4 T  T  >UXUSUARIOODEYFUNC CHK_OPENEDP_SYSTEMXARRAYXELEMSPLIT_TO_ARRAYXEQNXUSEREQUIPOSNOMBRE P_EQUIPO_IDCODIGO P_EQUIPO_DESUSERGESINOUT95 TCW TCC]#%sTCTC  T T%Cequipos Q\equiposFG((nombreEC%C4 > C%C 2 FU XBASEXARRAYXELEMODEYFUNCSPLIT_TO_ARRAYXEQNXUSERP_SYSTEMEQUIPOSNOMBRE ACTIVIDAD dey_func2"CEquipos\ TCC]#%TCT C  T T )%CCequiposnombre>  CU CREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEMXARRAYXELEMSPLIT_TO_ARRAYXEQNXUSERINOUTSALIDAC$T \recMSG ""! /N &xmsg UXMENSAJEXMSGP_LOCAL Ta%~Tz&TC   TC  BU XUSRORIGXUSRDESTXTODASXOKOCOLGESFORMEMPRESAS PRESENTESOEMPTHISCOPIAR_CONFIGURACION_XEMPCODIGOP_CODEMP4TC localCCCZ04TC localCCCZ0 Ta%C.dbf0%QCLocalesW% F ((  T- a D.*(.*( ] T-% Qd (  T-  T- BU XUSRORIGXUSRDESTXEMPRESA XTABLAORIGENODEYFUNCGET_PATH XTABLADESTINOXOK PUB_INDEXLOCALESOEXK  T (>%CClocalC000CCZR.dbf0/QClocalC000CCZR%CN #^(?%CClocalC000CCZR.dbf0 B0(ClocalC000CCZR/QClocalC000CCZR+CN # _(  ;]T)Error al copiar configuracin de empresa CCZ a empresa CCZ !!! BUXEMPORIGXEMPDESTXRETZODEYFUNC GET_PATH_DATAAAAOEX4H^ <BSistema ^BTodos  T TCW sys_security CF-%C4 T   F BU XUSRXNOMBREXAREACREATE_OBJECT_SECURITY SYS_SECURITY OSECURITY SEC_TABLE_GETA010592A4A3SEC_TABLE_CLEARC%CxnewusrbN>T%CxnewkeybCl T  T%CCa C%CC \fS Ta T 3  T- BU XPERMISOXUSUARIOXNEWUSRXNEWKEYTHIS SAVE_USERXUSRXOKACCESOCCL_ATR REST_USERK%Ca010592&Ba D CB-UXABRIOTHIS SEC_TABLE_GETTC.t.  1T SUBSTR(A2,CCZ,1)=''5BC() AND ()U XFILTROXPERMISOXVALOR XPERMISODEPXPERMISODEPVALORXNOPUT XFILTRODEPTHISUSERS_CAMBIAR_PERMISO='BCA4=CCZUXUSRXPERMISOXVALORXNOPUTTHISUSERS_CAMBIAR_PERMISOTCGUPDATE a010592 SET A2=STUFF(A2,xPermiso,1, xValor) WHERE (&xFiltro) %  C% CU XFILTROXPERMISOXVALORXNOPUTXABIERTATHISSEC_TABLE_VALIDAR_ABIERTA SEC_TABLE_PUT SEC_TABLE_GETTC%%Ca010592NUM_USRZTC\ rT % C BUXUSRXPERMISOXVALORXABIERTATHISSEC_TABLE_VALIDAR_ABIERTAA2 SEC_TABLE_PUTG~( _crypt.vcxU_CRYPTVCXcreate_object_securityRINITCrear_Tabla_Equipos~iniciar  inverse_file sec_table_get  sec_table_put- sec_table_cryptsec_table_crypt_fldDW2NgN2DWsec_table_clearclaveusuarioaccesoc save_user  rest_user7!exvar! encriptar" desencriptar6$cl2%get_permiso_txt( acceso_ok)ENCRYPTF*decrypt+switch+displace- last_user_set. last_user_get(1sys_borrar_clave_guardada(4sys_cambio_claveA5chequear_conversion7registrar_equipo9registrar_vida<registrar_logina?registrar_actividadAregistrar_salidaBrecibir_mensajeLDcopiar_configuracionDcopiar_configuracion_XEMPEcopiar_configuracion_empresa;Hget_userJcambiar_a_otro_usuarioLLSec_Table_Validar_AbiertaM!Users_Cambiar_Permiso_DependiendoeNUser_Cambiar_PermisosOUsers_Cambiar_PermisoOUser_Obtener_Permiso'Qdummy(R T-                          ! " # $ % & ' ( ) * + , - . / 0U VAL_GENERADORsecurityCUSTOMV1q 1"AqqB4 2qqAAA1ABAACQAFaA3!AA!A2AQA"AAAAAAaaaAA2qAASaaA3qAa!AAA!1rqrBrq1rAAAAAA2RA2ArAbRA!A2cRAqARA2A1aRAAA3q2q2A31"AaB3qq!BQrAAAqqAAqAF"AA27AbAB65B65B3r1a11rrAA12QAAAACB22QAAAABB2AAAAqAAArAAqAAq5qqAqbaA4QA21qA21qA2qaaaaaaA2qQAQAAA2AR1AAAQA2q1AA!!AAq1AAAAAA31AaA31qArQqA3q"A1BQQA21!2ArrA2qAA2qr!2Ar1!QAAA!AA2q"2ArrA2q2AArA!A2B!2AwC3qqA3q1aAA2BA11A1qAAA11AAA3r!A2QAABAAA2qAAAsrA41AA!AA4qqqA4sQ11q21qqAA2QQAA412P PpP@```=R&:<TbaZ% f%&l.&p&s&Y'wz'') I)%0ED04eo5*6l67*s789H>@w@BBAHHIJXJwJCKbK/L%MLM/MOA4OR^NR{V{|VWWZZq\\"aIaeddgfFfh` hj/%kk4klA1mapcpttvw}zz&{Nh{}Y2}}`})dVbqm% o3U&%CxNombrebCC BToNetwork'TPublic  AS OBJECT &xPro $&xNombre=CREATEOBJECT("Network") UXNOMBREXPROx&%CxNombrebCC BToNetwork%CbOcBaCUXNOMBRECREATE_OBJECT_NETWORK TC%CoCollbONBC AdapterInfo%BC AdapterInfo% B%CfAdapterbOBCUOCOLLOADAPTERTHIS ADAPTERS_INFOCOUNTTYPEITEM(|GetAdaptersInfoiphlpapi  T TCTCC Q%CB-TC CollectionNTC AdapterInfo&(  TC AdapterInfoTT CC\T CC\% 'T CC\C 'T CC\C 'T CC \C 'TCC \C TCC\TC\ T T(+TCCCC\@0_RT:TC BUGETADAPTERSINFOIPHLPAPILCBUFFER LNBUFSIZEOCOLLOADAPTERXVARXDESP BUFFERSIZEINDEXTYPEIPNETMASKNOMBRE DESCRIPCION LNADDRLEN LCADDRESSNITXMACADDRXSEPMACADD4      T %CxModobL T%C >C1Error en el llamado de la funcin GET_SERVER_TIMEB)% C  %| NetRemoteTODnetapi32'| RtlMoveMemorywin32apiTCC 0Q T TTCTC%C0 T  TC\\TC%C0 T   T % T CC%\T CC!\T CC)\T CC \TCC \TCC\ TCC\<TC T T T (T 5%   C   T "T!CC]R.tmpTC  G(G(TCXT  T (T % $T BU!XSERVERXLOCALXMODOXTIMEUTC OUTBUFFERINBUFFER BYTES2COPY TDBUFFOUTTDBUFFINXRETCODE TOD_MONTHTOD_DAYTOD_YEAR TOD_HOURSTOD_MINSTOD_SECS TOD_TIMEZONESERVERDATETIMEMENSAJE NETREMOTETODNETAPI32 RTLMOVEMEMORYWIN32API SERVER_NAMETRY_SERVER_NAMERCTHISSTR2LONG XTIMELOCALOEXCUNCCTMPFILECPATH 5 T (#T  C T C C >R B ULONGSTRIRETVALCreate_Object_NetWork0check_object_NetworkPREFERED_Adapter_access Adapters_InfoGet_Server_Timestr2long) 6 T-    UPREFERED_ADAPTERlT T T T T T T TU BUFFERSIZENOMBRE DESCRIPCIONIPNETMASKMACINDEXTYPENETWORKCUSTOM| AdapterInfoCUSTOM1qaQAqqA2qaQAaqA6qAcqAaAAA4#CqA1aRaqqqqrAAB21AA[xH1a1Sa1SAA1 "AAAQ!Bqa21AB11A41A01@` 1`1!  NR$z_3J"L#&%0%e%(5,%b<EI8[EXU&%CxNombrebCC AToSQLCon'TPublic  AS OBJECT &xPro &xNombre=Obtener_SQL() UXNOMBREXPRO7TTT2TC GES_CRYPTOSys_Clases_Crypto.PRGH -T T  T C TC TTC TC  TT T C TC TTC TC  uTT T C  TC! T"TC# TC$ 2T%T &T C' TC( T)TC* TC+  C, T-<U-XINTERNOXBIXWEBTHIS SQL_INTERNOSQL_BISQL_WEBOCRYPT SQL_SERVERP_SQL_INTERNO_SERVER SQL_DATABASEP_SQL_INTERNO_DATABASE SQL_USUARIODECRYPTP_SQL_INTERNO_USER SQL_CLAVEP_SQL_INTERNO_PASSSQL_AUTHENTICATIONMETHOD"P_SQL_INTERNO_AUTHENTICATIONMETHODSQL_PORTP_SQL_INTERNO_PORTSQL_ADO_INTEGRATEDSECURITY$P_SQL_INTERNO_ADO_INTEGRATEDSECURITYP_SQL_BI_SERVERP_SQL_BI_DATABASE P_SQL_BI_USER P_SQL_BI_PASSP_SQL_BI_AUTHENTICATIONMETHOD P_SQL_BI_PORTP_SQL_BI_ADO_INTEGRATEDSECURITYP_SQL_WEB_SERVERP_SQL_WEB_DATABASEP_SQL_WEB_USERP_SQL_WEB_PASSP_SQL_WEB_AUTHENTICATIONMETHODP_SQL_WEB_PORT P_SQL_WEB_ADO_INTEGRATEDSECURITY P_SQL_SERVERP_SQL_DATABASE P_SQL_USER P_SQL_PASSP_SQL_AUTHENTICATIONMETHOD P_SQL_PORTP_SQL_ADO_INTEGRATEDSECURITYDISPONSE!QT Provider= ;Data Source=;Initial Catalog=%C /T; Integrated Security=%C !T ;User ID=%C "T ;Password= BUXSTRTHISSQL_DRIVER_ADO SQL_SERVER SQL_DATABASESQL_ADO_INTEGRATEDSECURITY SQL_USUARIO SQL_CLAVEECTDRIVER=;Server= ;Database=%C |T;uid=%C T;pwd=%C "T;port=CCZ%C 5/T;AuthenticationMethod=CC Z BU XSTRTHIS SQL_DRIVER SQL_SERVER SQL_DATABASE SQL_USUARIO SQL_CLAVESQL_PORTSQL_AUTHENTICATIONMETHODP_SQL_AUTHENTICATIONMETHOD Q EXCEPTIONTT aC DispLoginj(%T-%Ba nC DispLoginl!C DispWarnings lT C% DTCCFLastErrorExceptionsys_clases_conexion_mysql.prgcT Error de conexin: C C C !String: C C 6 HCSQL sys_clases_conexionSQL jGC Conectadosys_clases_conexionSQL(T  T ICEx:  sys_clases_conexionSQLT T  BUXSTROEXOEX2THISSQL_STRINGCONEXION SQL_STRINGCONEXIONERRORNO CONECTADONCONNSQL_DISPWARNINGSMENSAJEP_DEVMESSAGEUSER_LOG PUB_INDEX SQL_SERVER# BCUXSQLXALIASTHIS SQLEJECUTARITC TUse BCUXDBTHIS SQL_DATABASEXSQL SQLEJECUTARq'GCCt$: Aun no implementado para la clase  :  U XALIASXTABLA XNOMBREREMOTOXBASEXNODROPOEXXRECSETXTOPXNOBULKMENSAJETHISCLASSNAMEm#GCCt$: Aun no implementado para la clase  : U XALIASXDBCXBASEXNODROPOEXXRECSETXTOPXNOBULKMENSAJETHISCLASSNAMEq'GCCt$: Aun no implementado para la clase  :  U XARCHIVOXALIASXTABLA XNOMBREREMOTOXBASE XNOCREATEXRECSETXTOPXNOBULKMENSAJETHISCLASSNAMEaGCCt$: Aun no implementado para la clase :U XARCHIVOXALIASOEXXERRORXRECSETMENSAJETHISCLASSNAME BC9select *, 0 as chequeada from information_schema.columns CC #where table_name = ''6UXTABLAXALIASTHIS SQLEJECUTAR TCPK ]BC ALTER TABLE [] ADD [)] int NOT NULL IDENTITY (1,1) PRIMARY KEYUXTABLAXCAMPOTHIS SQLEJECUTAR TCC%DTCCFLastErrorExceptionsys_clases_conexion_mysql.prg BUXARCHIVOXALIASOEXXRETXSRTTHIS SQLEJECUTAR/%BC DROP TABLE []UXTABLATHIS SQLEJECUTAR$Q EXCEPTIONT T T%C T Where T +%CxAliasCxAliasbC TC i TC i(=T  T A%! a    - T - CBCa BUXSQLXALIASOEXXWHERE XRECONECTADOXRETXSQLOXERRTHISCONEXIONMENSAJEMESSAGEERRORNO CONECTADOSQL_RECONECTARCONECTAR SQLEJECUTARk     TUpdate  C &%C CxWherebC N!T WHERE ; jT;TC BU!XTABLAXWHEREXFLD1XVAL1XFLD2XVAL2XFLD3XVAL3XFLD4XVAL4XFLD5XVAL5XFLD6XVAL6XFLD7XVAL7XFLD8XVAL8XFLD9XVAL9XFLD10XVAL10XFLD11XVAL11XFLD12XVAL12XRETXSQLXALIASXRCTHIS CREAR_FLDSETEJECUTAR2g     T insert into  C ;TCBU XTABLAXFLD1XVAL1XFLD2XVAL2XFLD3XVAL3XFLD4XVAL4XFLD5XVAL5XFLD6XVAL6XFLD7XVAL7XFLD8XVAL8XFLD9XVAL9XFLD10XVAL10XFLD11XVAL11XFLD12XVAL12XRETXSQLXALIASXRCTHIS CREAR_FLDSETEJECUTARk     TC]T _OTSelect  FROM  CC WHERE 6;TC%C DTCN Q [ T( T! "%>T insert into  C #;TC  TUPDATE  C #CC WHERE 6;TCBU$XTABLAXWHEREXFLD1XVAL1XFLD2XVAL2XFLD3XVAL3XFLD4XVAL4XFLD5XVAL5XFLD6XVAL6XFLD7XVAL7XFLD8XVAL8XFLD9XVAL9XFLD10XVAL10XFLD11XVAL11XFLD12XVAL12XRETXSQLXALIASXRCTHISEJECUTAROEXMENSAJEMESSAGE CREAR_FLDSETg      T T!C!C!C!C!C !C !C !C!C!C!C!C%\-T() VALUES () |T SET  BUXTIPOXFLD1XVAL1XFLD2XVAL2XFLD3XVAL3XFLD4XVAL4XFLD5XVAL5XFLD6XVAL6XFLD7XVAL7XFLD8XVAL8XFLD9XVAL9XFLD10XVAL10XFLD11XVAL11XFLD12XVAL12XFLDSETXFLDSXVALSTHIS CREAR_STRFLD9'%CxFLDCxFLDbL LB-Hav, CxVALbDCxVALbT T'C' CxVALbNTCCZ CxValbCv7%C='CR' '' rTCC>\TC'''T''H2 (TCC , 6(TCC , 6 21TCC , 6=UXTIPOXFLDSXVALSXFLDXVALXVALMIDTHISTTOC2U@ /%+Cg 9UTHIS CONECTADOCONEXION TCDatevG american%CS T mTCSET DATE &xDate BUXFECHAXDATEXRETAMERICANB''UXTXTB'C'UXTEXTOB'C'UXFECHA4)G(CCsql_upsize.txtG %z% l -   CCGG(BUXTXT XCONTINUE XNOSEPARADORODEYFUNCGET_PATH'o sys_clases_conexion_upsizing   C  C  UXTABLA XNOIMPORTARXNODROPXNOTBULKXMSGXTOP XNOMBREREMOTOXSUFIJO_TABLASXPREFIJO_TABLASUPSIZINGSYS_CLASES_CONEXION_UPSIZINGTHIS SQL_SUFIJO SQL_HEADER+ o sys_clases_conexion_upsizing   C  C  UXDBCXTABLA XNOIMPORTARXNODROPXNOTBULKXMSGXTOP XNOMBREREMOTOXSUFIJO_TABLASXPREFIJO_TABLASUPSIZINGSYS_CLASES_CONEXION_UPSIZINGTHIS SQL_SUFIJO SQL_HEADER_%C xDatabase]CPPor seguridad no se puede hacer un DROP_ALL si no se especifica la base de datosB-TCGTC'select * from information_schema.tables TMPDELSQLF ~+ TCC( '%C TMPDELSQLTFQBU XDATABASEMENSAJEOERRTHISSQL_SELECCIONAR_DB SQLEJECUTAR TMPDELSQL SQL_DROPTABLE TABLE_NAMEOEXH  Cm9Bchar(CCZ ) default 'CX ' not null D T /B&datetime default '01-01-1980' not null GBimage LBbit default 0 not null M2 Btext N>Bnumeric(CCZ,CCZ) default 0 not null 20CCt:Dato desconocido '' !!!BUXF_TYPEXF_LENXF_DECMENSAJEo TC C(0TC_CCZ68 sys_clases_conexion_mysql CTC6%?DTCCFLastErrorExceptionsys_clases_conexion_mysql.prg(_T BU XARCHIVOXALIASOEXXERRORXRECSET XARCHIVO2XRETXSRTNIT SQLRUNSCRIPTSYS_CLASES_CONEXION_MYSQLTHISCONEXIONU'+ U XARCHIVOXALIASXTABLA XNOMBREREMOTOXBASE XNOCREATEXRECSETXTOPXNOBULKSYS_CLASES_CONEXION_MYSQLTC TC TC TCC %CB %C=+TC+ BU XNOMBREREMOTOXHEADERXALIASXTABLAXNOMBRETHIS SQL_HEADER|'  T -TC  #TC  -C  T C  % l&%  h%+!CReconectado SQLT - C T C   B UXALIASXTABLA XNOMBREREMOTOXBASEXNODROPOEXXRECSETXTOPXNOBULKXARCHIVOXRETTHIS SQL_DATABASESQL_ARMAR_NOMBRE_REMOTO SQL_HEADERSQL_SUBIR_TABLA_SCRIPTSQL_EJECUTAR_SCRIPT2ERRORNOP_DEVMENSAJE CONECTADOCONECTAR TCDatevG american%CS T mTCSET DATE &xDate BUXFECHAXDATEXRETAMERICANJ%CxFechabD4BCBCUXFECHATHISDTOC2 TC H/ q/TCMySQLsys_clases_Conexion.prg /TCMSSQLsys_clases_Conexion.prg 20TCCONSQLsys_clases_Conexion.prg BUOSQLXMOTOR P_SQL_MOTOR  TC H/ u3TCMySQLsys_clases_Conexion.prga 3TCMSSQLsys_clases_Conexion.prga 24TCCONSQLsys_clases_Conexion.prga BUOSQLXMOTORP_SQL_INTERNO_MOTOR^ TC H/ v4TCMySQLsys_clases_Conexion.prga 4TCMSSQLsys_clases_Conexion.prga 25TCCONSQLsys_clases_Conexion.prgaRC Iniciado SQL sys_clases_conexionSQL BUOSQLXMOTORP_SQL_BI_MOTORUSER_LOG PUB_INDEX SQL_DRIVER SQL_SERVER TC H/ w5TCMySQLsys_clases_Conexion.prga 5TCMSSQLsys_clases_Conexion.prga 26TCCONSQLsys_clases_Conexion.prga BUOSQLXMOTORP_SQL_WEB_MOTORB'C'UXTEXTOB'C'UXFECHACreate_Object_SQLCon0INITSQL_StringConexion_ADO_access>SQL_StringConexion_accessConectar EJECUTARxSQL_Seleccionar_DBSQL_Subir_TablaA SQL_Subir_DBC"SQL_Subir_Tabla_ScriptSQL_Ejecutar_Script2SQL_Tablas_ObtenerSQL_Tablas_Agregar_PK;SQL_Ejecutar_Script SQL_DropTable SQLEjecutar SQLUpdate SQLInsertSQLINSERTUPDATE7 Crear_FLDSETi  Crear_STRFLD#DESTROYU&Disponse`&TTOC2&CTOQz'SQLTQ'SQLDTOS'log_on(SQL_Subir_Tabla( SQL_Subir_DBC7*SQL_DropTables_All+ Tipo_Campo_-SQL_Ejecutar_Script2R/SQL_Subir_Tabla_ScriptF1SQL_Armar_Nombre_Remoto2SQL_Subir_Tabla63DTOC25TTOC2b6 Obtener_SQL6Obtener_SQL_Interno7Obtener_SQL_BI9Obtener_SQL_WEB:SQLTQ<SQLDTOS3<) T T- T T T T T- T T- T - T  T T  SQLOLEDB.1 T  T T T T- T- T- T- T                      UCONEXION CONECTADO SQL_SERVER SQL_DATABASE SQL_USUARIO SQL_CLAVESQL_DISPWARNINGSMENSAJESQL_STRINGCONEXION_ADOSQL_STRINGCONEXIONSQL_PORT SQL_DRIVERSQL_DRIVER_ADOSQL_AUTHENTICATIONMETHODSQL_ADO_INTEGRATEDSECURITY SQL_STRING SQL_HEADER SQL_INTERNOSQL_BISQL_WEBSQL_RECONECTAR SQL_SUFIJO^TC TC {SQL Server}    USQL_PORT P_SQL_PORT SQL_DRIVER P_SQL_DRIVERTC  /TC{MySQL ODBC 8.0 ANSI Driver} ! " # $ % &USQL_PORT P_SQL_PORT SQL_DRIVER P_SQL_DRIVERCONSQLCUSTOM^@MSSQLCONSQLCMySQLCONSQLaD1qaAAqq1q!!!!Aq2qQARAQ!A2q1QAQAQ!ARA2qAA#qAqAA1rA1Aq2Q3qa2qq21q2qq2qq22Q2AAA2qQ3A!AaA1BA21a!AQ2q1# Q21A1A1# Q QA2q4aA2qqqqAqqAA11A23!AA2q1A22q12qR2qQ2aA1AbaA7q22qqARqrBBqAAA3ABBBBAA7qq1AAAAA2q21q111aAA2qa1AaAAA2q1A22qA4211A521111AA421A1AQA!321Q1QaA3qR2qQ1q0p 1A1A0@7  c "7 c OD ^Tprvyw~QwG,rn ""p''+,.://V8//Y/x0a$00o'0'1s*<1o1x-12|<m34?46BG6V8Vz8:i;={=>~>Y@@HCeC(DEDD%DMF.zFH?&H(JPOJKaK6LpJL{Lu2 #3:,;D% m#'zHU H# r|EBCRE+C RemitoRemito a Cliente66 VGBCFC-C FacturaFactura a Cliente66 c0EBCNC+C Nota Cred. NC a Cliente66 dDBCND*C Nota Deb. ND a Cliente66 PFBCPD,C PedidoPedido de Cliente66 C;EBCFC+C FacturaFC de Proveedor66 uHBCNC.C Nota Cred.NC de Proveedor66 vGBCND-C Nota Deb.ND de Proveedor66 NPJBCOC0C Ord. Comp.Ordenes de Compra66 OMBCCP3C Comp. PagoComprobantes de Pago66 R;BCRC!C Recibo Recibo66 SUABCPR'C Presup. Presupuesto66 21BC C  66UXCAUSAXLARGOXTXT CPBT_Nombre, U Helper_TextoCUSTOM2rAQAqAQAAAaAQAAqAAAAA91=c &m%{d 3wE VU<%CxAsuntobCHT%CxMensajebCzT%CxTipobNT %CxFuncionbCT %CxIDbCT  %T C]T U XASUNTOXMENSAJEXIDXTIPOXFUNCIONXPRIVADATHISASUNTOMENSAJETIPOFUNCIONIDPRIVADA+TRETURN &xFunc UXFUNCTHISFUNCION;CC BUOALERTATHISADDIDCOLA_MODIFICADAL.BCAlertaUXASUNTOXMENSAJEXIDXTIPOXFUNCIONXPRIVADATHISAGREGAR_ALERTA_CLASE*QALERTASys_Alertas_Spool.PRGCTCSys_Alertas_Spool.prgC BU XCLASEXASUNTOXMENSAJEXIDXTIPOXFUNCIONXPRIVADAOALERTASYS_ALERTAS_SPOOLPRGTHISAGREGAR_ALERTA_OBJ UOALERTAo 6C C(h$CError al quitar alerta.UXIDOEXTHISREMOVECOLA_MODIFICADASYS_MBCUXIDTHISCOLA QUITAR_ALERTA UOALERTACUOALERTATHISPARENTCOLA_MODIFICADAUU$!CAc puede hacer algoUMENSAJE* sys_mail_spoolUXFUNC MOSTRAR_COLASYS_MAIL_SPOOLTHISPRIVADAINIT0Ejecutar_FuncionAgregar_Alerta_OBJ#Agregar_AlertaAgregar_Alerta_Clase2Cola_ModificadaY Quitar_Alertat Quitar_AlertaCola_ModificadaaCola.Cola_Modificada|Funcion_PrivadaFuncion_PrivadaFuncion_PrivadaFuncion_Privada T T T#TThis.Funcion_Privada() T T- T- Ta T T  T   U ASUNTOMENSAJETIPOFUNCIONIDPRIVADA LUPA_VISIBLECERRAR_VISIBLE TEXTO_COLOR TEXTO_TAMAOTEXTO_ALINEACION5     U;.QCola  UCOLA ALERTAS_COLANAMEU T TTC^ T Ta UTIPOASUNTO TEXTO_COLORTEXTO_ALINEACIONCERRAR_VISIBLEU T TTC^ T T- UTIPOASUNTO TEXTO_COLORTEXTO_ALINEACIONCERRAR_VISIBLE T^TQHay actualizaciones pendientes. Por favor, salga del sistema GES y vuelva entrar.TC^ T T- UTIPOASUNTO TEXTO_COLORTEXTO_ALINEACIONCERRAR_VISIBLEU T TaTC^ T T UTIPO LUPA_VISIBLE TEXTO_COLOR TEXTO_TAMAOTEXTO_ALINEACIONAlertaCustom Alertas_cola COLLECTION Alertas_ControladorCUSTOMJ Alerta_LicenciaAlerta Alerta_Licencia_FijaAlertaA Alerta_ActualizacionAlerta Alerta_Mail_ErrorAlerta ?AAAA1A2q6qr1212q2qqAA9qA3q2qA9:::q21@5;4a3a3a3a4$7$-"3!7'-B?)iB2T5 $Y7G\:; = g; q< , {> / A!BP|,VPP[H ab  ki@ 7 upp : %B5JDPX0U@4 7 T T TBU RESULTADOTRAN_PRGTRAN_TXT4BU RESULTADOARCHIVOBANDERAXPROGXCOMP4 5 G(%CxcomprobbLbTC X%CxcausabLTCXG_ <  7  T - T % T aTC %/ T -H$T 2T TT Desconocido.% no loguear+? &Problemas al comenzar una transaccin.wC. 5No se pudo comenzar la transaccin: Cdigo de error: CCZ.    T% no loguearMC. Comienzo de transaccin.  C  TBU RESULTADOXPROGXCOMPXCOMPROBXCAUSAXENTIDAD XENT_CODIGOAAAMSGTTS_OK TTS_ERRORCOMENZAR_TRANSACCIONREP_TRANUSER_LOG PUB_INDEX LOCK_SET_PROG< 4%CxcomprobbLLTC X%CxcausabL{TCX% 5 T T%   $%  no loguear Wa logmsg Error de Transaccin  -[TC%H 2 T(TError al procesar ROLLBACK.8Problemas al hacer el rollback.% no loguearvC. BFin de transaccin con errores. Se realiz un rollback con error. :C*Hubo un error !!! Se ha registrado mal !!! % no loguearrnC. :Fin de transaccin con errores. Se elimin la trasaccin. aC.Hubo un error !!! No se ha registrado nada !!!varios/error-de-registracion  T[ T T TC KC U%*H}\ % has a fileTC[,TCC has a file,[ FTC[+TCC tiene una,[)TCCCCC>[% TT.La transaccin no se completar correctamente.C  La tabla  est daada.C CDesde el men principal, en la opcin de mantenimiento, verficacinC :de datos, podr validar las tablas del sistema. Luego debeC ;reindexarlas con compactacin. Para realizar estas tarea esC @necesario que ningn usuario se encuentre utilizando el sistema. 2\ T/T"Error al procesar END TRANSACTION.6Problemas al hacer el commit.% no loguear&sC. ?Fin de transaccin. Se intent realizar el commit, pero fall.  % no loguearHC. Fin de transaccin.   [TC%> H$ 2$ T(TError al procesar ROLLBACK.8Problemas al hacer el rollback.% no loguear C. OFin de transaccin con errores. Se elimin la trasaccin a pedido del usuario. :C*Hubo un error !!! Se ha registrado mal !!!  % no loguear ZC. &Fin de transaccin. Rollback a pedido. C TCW T T+C P FC C BufferingT(!b %" T+C  [C C Buffering T  F C# G( BU$ RESULTADOXPROGXCOMPXCOMPROBXCAUSAXENTIDAD XENT_CODIGOAAAMSGTTS_OK TTS_ERRORP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIOFINALIZAR_ROLLBACKREP_TRANUSER_LOG PUB_INDEXMENSAJEBBBCCCFINALIZAR_COMMITSYS_SINCRONIZACIONTTS_IDXPATHXARCHIVOP_DEV UNLOCK_ALLXAREAZZZZTTS_LCKOEXP_FLUSH_VERSIONLOCK_FREE_TABLES 4      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF5GHIJKLTIC% | CM CN O TO TJCW T! Hl T CN!%L %`%a%L Tb Cc Tb lxTbC[CCLZ] - CC]C]d6C C  Suspendo ?Preparando transaccin... xH b T CN! bC Suspendo?ae b  %L%a /%Cp_log_bloqueosbNf %C]7gtrsacTrsac.prg - lock_g Sin tabla C]d/CPreparando transaccin... x Cc  %a c%C[CCLZ] - CC]C]d6Preparando transaccin... x T CN!  %L T CN!  Cc  /%Cp_log_bloqueosbNf %C]| 7gtrsacTrsac.prg - lock_g Sin tabla  C]d CNTLLR GM( FJ BUh RESULTADOLA1LA2LA3LA4LA5LA6LA7LA8LA9LA10LA11LA12LA13LA14LA15LA16LA17LA18LA19LA20LA21LA22LA23LA24LA25LA26LA27LA28LA29LA30LA31LA32LA33LA34LA35LA36LA37LA38LA39LA40LA41LA42LA43LA44LA45LA46LA47LA48LA49LA50LA51LA52LA53LA54LA55LA56LA57LA58LA59LA60LA61LA62LA63LA64LA65LA66LA67LA68LA69LA70ARRRESMAXAREAOFFSETXTIEMPO UNLOCK_ALLLOCK_FREE_TABLESXTIPOTTS_LCKTTS_BUFZZZZXDATAYYYYTYPEOFN_AREAP_SYSTEMXSTKGXSTKDEPGOTABLA COLECCIONNOMBREXTMPLOCKED_TABLALOCK_G1TRSACP_DEV P_SININTERFAZXRESMSGVSLEEP LOCK_GET_USEDSYS_MOSTRAR_SCREENP_LOG_BLOQUEOS LOG_BLOQUEO4 5%CC YQC(b Area no encontrada.Area : C Orden de Lockeo : CCZ%CCFC TC%C buffering'G!(Z G(( TC7 %xX  %  TC3  Ta%>% 6 T C BufferingT  % 2C BufferingCC % &trsac%FC% Z% % C Buffering  6 TB TCCCa % Z TB TBUXTIPOXIDXMAX RESULTADOXINKEYAAABBBTTS_LCKOEXREP_TRAN XBUFFERINGTTS_BUFP_TTSLOCK_SET_RECORDLOCK_G1TRSACXTMPLOCKED_TABLAs45 GM( T%UnlockedC]X T+CS OZtrsacTrsac.prg - r_lock La tabla CC no se pudo bloquearPR,:8Preparando transaccin, aguarde... [X] = Cancela. [CCZ]%C7xX :R TTR  GM( BU RESULTADOZZZ LOG_BLOQUEOTRSACTTS_LCKXIDXINKEYK4CC BUMPROGMERRORMCOMPROBMNOTASREPORTEMENSAJE arreglos.prgBUARREGLOSPRGTC]% .(HM   < TCW(CyFCG!( F 2  C BU TTS_IDP_TTS OTRANERRORERRORNOZXAREAXTABLAS LOG_MENSAJE UNLOCK_ALL T 1aaa=1 T-%G  TCW T+C|%CC CError al procesar transaccin.C Funcin: Finalizar_Rollback.C  Error: Tabla C no encontrada.C 6La operacin igualmente se revertir correctamente !!!C . 0Se produjo un error al revertir la transaccin. Funcin: Finalizar_Rollback.C  Error: Tabla Cno encontrada. Ta gFC Ca% cC BufferingC T Fon error &onerr BU AAAAREAZ COMMIT_ERRP_TTSTTS_LCKMENSAJEUSER_LOG PUB_INDEXXCOMPROBXCAUSAXCOMPTTS_BUF4 T T T"1commit_err(@aaa,@bbb,@ccc) T-%%    T+Ce%CC PCError al procesar transaccin.C Funcin: Finalizar_Commit.C  Error: Tabla C no encontrada.C $La operacin no se ha registrado !!!C  . *Se produjo un error al guardar los datos. Funcin: Finalizar_Commit.C  Error: Tabla Cno encontrada. Ta!T%  TCW T+CFC%Ca B Ta5CzC7Error en la base de datos. No se puede efectuar COMMIT.C No se ha registrado nada !!!C  Archivo: CC  Mensaje: CCC  . *Se produjo un error al guardar los datos. Funcin: Finalizar_Commit.C Tableupdate(.t.) fall en C. Error:CC %Ca  Ta5CzC6Error al efectuar COMMIT. No se ha registrado nada !!!C  Archivo: CC  Mensaje: CCC  . *Se produjo un error al guardar los datos. Funcin: Finalizar_Commit.C Tableupdate(1,.t.) fall en C. Error:CC T F TCW T+C}FC%7 Ca% hC BufferingCT Fon error &onerr BUAAABBBCCCAREAZ COMMIT_ERRP_TTSTTS_LCKMENSAJEUSER_LOG PUB_INDEXXCOMPROBXCAUSAXCOMPAERTTS_BUF4%CxarchbC|%CC=f(V) eTBC[ x B  BBUXARCHOFFSET=4 TC, TCETCEBUAAABBBCCC  TCF>V trsacTrsac.prg - lock_set_prog!Coloca data en registros de locks(C U XPROGXALIASOEXLOCK_OPEN_TABLELOCKSPRGFORSESION P_SESION_ID LOG_BLOQUEOTRSACLOCK_CLOSE_TABLE  ) T @ T  T kTCrlocks     CfCC6strsacTrsac.prg - lock_set_recordTabla CC no se pudo bloquear bloqueada6(yCUXTABLEXNOPUDEXPRGTRAN_PRGXALIASOEXLOCK_OPEN_TABLESESIONUSUARIOEQUIPOTABLAF_LOCKESTADODES_USERDES_PCEMPPRG P_SESION_ID PUB_INDEX P_EQUIPO_IDCL_NOM P_EQUIPO_DESP_CODEMP LOG_BLOQUEOTRSACLOCK_CLOSE_TABLE T TCF,>C LtrsacTrsac.prg - lock_free_tablesDesbloqueo de tablasFQ( C U XALIASLOCK_OPEN_TABLELOCKSESTADOF_UNLOCKFOR P_SESION_IDSESION LOG_BLOQUEOTRSACOEXLOCK_CLOSE_TABLE; TC T TCF->    9      _trsac)Trsac.prg - lock_purga_loqueos_anterioresLimpia bloqueos anterioresFQ(&CUXALIASOEXXDATELOCK_OPEN_TABLELOCKSESTADOFOREQUIPO P_EQUIPO_IDEMPP_CODEMPUSUARIO PUB_INDEXF_LOCK LOG_BLOQUEOTRSACLOCK_CLOSE_TABLETC ]C d]TC Reprocessv GM( T TCa3( GM( C Cgv(CUXMSXREPXALIASOEXLOCK_OPEN_TABLELOCK_CLOSE_TABLE T T T T- TCTCCCfFG((emptablaEC Z"TTablas bloquedas por &+C+     % %C Ta)TCCf en CCfTC T%!HC(err_hand% rtrsacTrsac.prg - lock_get_usedTabla C- bloqueada por un proceso no identificado !!!FBTabla C- bloqueada por un proceso no identificado !!! 7trsacTrsac.prg - lock_get_usedCBCCCdd\UXTABLAXTEXTOXENCAXALIASOEX XENCONTREXLOOPLOCK_OPEN_TABLELOCKSEMPTABLAP_CODEMPTABLAEMPSESION P_SESION_IDF_UNLOCKDES_USERDES_PCLOCK_CLOSE_TABLELOGERR_HAND LOG_BLOQUEOTRSAC TC%E CQ\locks %CLocks ~Q\locks BUXEXCLULOCK_OPEN_TABLELOCK_CLOSE_TABLEP_SYSTEM j%CLocks2FQ&%CxAliasbCC f F(err_handUXALIASLOCKSOEXLOGERR_HANDU$TCCN6|SleepWIN32APIBCU LNMILISEGSLEEPWIN32API /%Cp_log_bloqueosbN sCCC Emp:CZ Usr:CZ CC( C C \log\bloqueos.txt BUXPRGXMSGP_LOG_BLOQUEOSP_CODEMP PUB_INDEXP_SYSTEMini_tran0mrk_tranbeg_tranend_tran{lock_g(lock_g1r_lock\$rep_tran&dummy&comenzar_transaccion&finalizar_rollback!(finalizar_commit@+fn_areao2 commit_err 3 lock_set_progt3lock_set_record4lock_free_tables:7lock_purga_loqueos_anteriores8lock_pack_tabla: lock_get_used;lock_open_tablem?lock_close_table<@vsleep@ log_bloqueovA01qA2qB2AAc22ArBAAAB3AABBAB2AaAABCbA1ArAB6Ae1AABBB2A1AAAAsAA2AAAA3`CrruR!1AAAABAA1BAABAAcAABAq!1A1AA22AB1A2r2C1sAAA7AB1AAAAAsAABAQ31zr1(AAbaACAq1AA!1a1AAAAAAA!1AAAAAAA3qqQAAQA31uC22A2QqqaABQAA2Aqq q AAAB22!QAAq1 AAAqd  Eq1 ABABAAAB22qAAAA2A2qqqdB2qAB4B2qqsAA3qrAA31ABA3qqbr!$b21AAAABA0qA&btA3qqAA3qaqAAaAqA2qA31BAB1T a + f4# 5tP5??1A-GA"BL4BBZBF_2FWItIT#TzU0UU6U1W$AVWY6RYU[O`[]do]^{^Yffiggph{h iCij"%4Y:>*r:DVDVTC %TTC oTC"%   FTIT/killproc=1 "EXE=do sys_mail_spool with .t.,.t.,CCZ".| ShellExecute Shell32.DLL)Copenges.exe  BU XPROCESAR_COLA_COMPLETAXEXTERNOXVUELTAXOKXPAR OMAILSPOOLMAIL_PROCESAR_COLA_COMPLETAMAIL_PROCESAR_COLA SHELLEXECUTESHELL32DLL P_EXE_PATH 5TC$TC3 $ TTC6 TTC &sys_mail_spool_controlC U XPRIVADAXTIPOXDFECXHFECXEMPXEST XCONJUNTO PUB_INDEXXID OMAILSPOOL CAMBIAR_DSSYS_MAIL_SPOOL_CONTROL RECUPERAR_DSHz CLTC^ CyTC^ C TC^ C TC^ CTC^ C#-TC``^ C(-ZTC^ 2zTC^ BUXESTADOXCOLOROH? 2?TC^ BUXESTADOXCOLOR> TC BCCCC  | UXMEMOXANCHOTC TCd HF" C }BC 2 BCdXU XRESPUESTAXESTADOXANCHO PUB_INDEXTHISMEMO_TXTG  TH0 Cp)TC Pend. Pendiente6 C+TC Proces En Proceso6 C *TC Reint Reintentar6 C 0&TC Env. Enviado6 Cj#TC ErrError6 C#(TC Canc Cancelado6 C(-'TC Pausa Pausado6 2.TC CCZEstado CCZ6!BC CC 6UXESTADO XABREVIADOXTXTNHG C6Ba 2GB-UXESTADOlHe C6Ba C TBa 2eB-UXESTADOlHe C6Ba C#TBa 2eB-UXESTADOH C6Ba C TBa C(-rBa 2B-UXESTADONHG C(-6Ba 2GB-UXESTADOH C6Ba C TBa CrBa 2B-UXESTADOH C6Ba C TBa CrBa C(-Ba 2B-UXESTADOTaUTHIS TIMER_MAILENABLEDT-UTHIS TIMER_MAILENABLED C CUTHIS SUSPENDER CERRAR_TABLAS C CUTHIS ABRIR_TABLA REINICIART- Ta%j/Latido del Timer TC %IRegreso del latido:COKErr6(%[CRegreso del latido: Catch Err :Procesar cola: Error  T-TU THISENABLEDXOKODSTOEXP_MAIL_LOG_TIMERUSER_LOGPARENTMAIL_PROCESAR_COLAAVISARMESSAGEfTC%Cmailcola NQ \mailcolaCUXDSTHIS CAMBIAR_DSP_SYSTEM RECUPERAR_DS^ CTC%CmailcolaFQCUTHIS SUSPENDERXDS CAMBIAR_DSMAILCOLA RECUPERAR_DS CTC%CmailcolaFQ%Cuser_logkQCUTHIS SUSPENDERXDS CAMBIAR_DSMAILCOLAUSER_LOG RECUPERAR_DS CUTHIS ABRIR_TABLATC C%Cmailcola _Q \mailcolaT-6%    C A  NO USA COLA: CCZ-CC ZB-T  %[- MAIL SIN TIMER B MAIL INTERVALO: CC  ZC T U XSINTIMERXDSTHIS CAMBIAR_DSSETSP_SYSTEM TIMER_MAILENABLEDP_MAIL_SEND_TIPOP_MAIL_COLA_DEDICADA RECUPERAR_DSUSER_LOGINTERVALP_MAIL_COLA_INTERVALO +  %C f`T  zT  C  U LOSENDMAILXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXIDXTONAMEXCCXCCNAMEXCCOXMSG MESSAGEHTMLMESSAGETHISMAIL_GUARDAR_COLATOSUBJECT ATTACHMENTREPLYTOFROM FROM_NAME AUTH_LOGIN AUTH_PASSWORD SMTP_HOST SMTP_PORTTO_NAMECCCC_NAMECCISMTP_SSL SMTP_GMAIL SMTP_TOKEN>TC DatasessionvG( BUXDSTHISOPDS DATASESSIONID,%% G(UXDS_     !%C xauth_loginbL T  %C xauth_passbL T %CxhostbL T %CxportbL T%C xsmtp_SSLbLF T%CxComprobbCu T%CxCausabC T%CxCodigobC T %CxToNamebC T%CxCCbC( T%CxCCNamebCV T%CxCCObC TTC TC )%CC xEnviar_DesdebTD T %C TC]T C a%C i ]T  T( t TTC ! F" *CError en MAILCOLA. Suspendo?a#qmailcola$%&' T(- T'+( '  T''(%Cmailcola.usa_gmailbN5rmailcola$)*+,-./0123456789:;<=>?@ABCDCEF      !rmailcola$)*+,-./0123456789:;<=>?@ABCEF      T(a(&%' s&oWGH6IJK'Error al insertar registro en mailcola. LwwapiC NUOXMAILTOXSUBJECTXMESSAGEXATTACHXREPLYTO XMAILFROMXMAILFROM_NAMEXCOMPROBXCAUSAXCODIGO XENVIAR_DESDE XAUTH_LOGIN XAUTH_PASS XSMTP_HOST XSMTP_PORTXIDXTONAMEXCCXCCNAMEXCCO XSMTP_SSLXGMAILXTOKENP_MAIL_SEND_AUTHLOGINP_MAIL_SEND_AUTHPASSP_MAIL_SEND_HOSTP_MAIL_SEND_PORTP_MAIL_SEND_SSL OSECURITYENCRYPTXESTADOXIDDSTHIS CAMBIAR_DSMAILCOLASYS_MOSTRAR_SCREENID XOK_INSERT OEX_INSERT XACC_INSERTXOKFECHAUSREMPCOMPROBCAUSACODIGO SMTP_HOST SMTP_PORT AUTH_LOGIN AUTH_PASSMAILTOREPLYTOSUBJECTMESSAGEATTACHMAILFROM FROM_NAMEESTADOINTENTOS RESPUESTAS ENV_DESDE MAILTONAMEMAILCC MAILCCNAMEMAILCCOSMTP_SSL USA_GMAILTOKEN PUB_INDEXP_CODEMPERR_HANDERRORNODETAILS PROCEDURELINENOSLEEPWWAPI RECUPERAR_DS T Ta5Procesar COLA CompletaTC %CF C F G(( pendientes C F .G( C   T#)+C+  &T  G( 1Procesar mail TC %%  BT TF .G( C   #) G( G( (""7Mail Procesados CCZC  BUXOK XSNDERRORXAVISARXEXTERNOXMIDXCOUNTXOK2USER_LOGXIDTHIS CAMBIAR_DSMAILCOLAMAIL_AVISAR_ERROR PENDIENTESMAIL_LIMPIAR_PROCESOS ENV_DESDEINTENTOSP_MAIL_COLA_REINTENTOSESTADOIDMAIL_ENVIAR_PROXIMO RECUPERAR_DS: %CxAvisarbLD TTCF< ?omailcolaC  C     % TC  T% "=pmailcola   C    gTATENCIN: Tiene CCZC correo correos 6 con error de envio !!!IT<Por favor revise la cola de correo para corregir los errores,CAlerta_Mail_ErrorCU XSNDERRORXAVISARXCONTARXASUNTOXMENSAJEXIDTHIS CAMBIAR_DSMAILCOLAARR_TMPCOUNTAVISADOESTADOUSR PUB_INDEXOALERTASCOLAAGREGAR_ALERTA_CLASE RECUPERAR_DS# Ta, Procesar cola TC TFC FG(( pendientes C F#)+C+ i.Analizando cola% CWT 1Cola aceptada ! eH%C 0 Enviando ColaTC/ Cola enviadaG((""C BUXOK XSNDERRORXAVISARUSER_LOGXIDXMIDTHIS CAMBIAR_DSMAILCOLAMAIL_AVISAR_ERROR PENDIENTESMAIL_LIMPIAR_PROCESOS ENV_DESDEIDMAIL_ENVIAR_PROXIMO RECUPERAR_DSZTCF'>C  CUXIDTHIS CAMBIAR_DSMAILCOLAESTADOFOR INIT_PROC RECUPERAR_DS# BCUXMID XMAILTIPOTHISMAIL_ENVIAR_CORREO   TG+(sys_mailTCFEID ^J %C  D Cola rechazada: - CC ZCB-%CTF4> Cc6C T C a$%Coobj.usa_gmailbNtC C C C C C C C C C     ! " C #C $C %C & ' ( ) \C C C C C C C C C C     ! " C #C $C %C & ' CF%^%O>**++CC: Mail Enviado.C     Zj>**++CC: C "C,< C*- 6  *>  C BU.XMID XMAILTIPOXMSGXOKSYS_MAILXIDTHIS CAMBIAR_DSMAILCOLAIDOOBJESTADO_ENVIABLEESTADOUSER_LOG RECUPERAR_DS INIT_PROCFOR AUTH_PASS OSECURITYENCRYPT SEND_EMAILMAILTOSUBJECTMESSAGEATTACHREPLYTOMAILFROM FROM_NAME AUTH_LOGIN SMTP_HOST SMTP_PORTCOMPROBCAUSACODIGO ENV_DESDE MAILTONAMEMAILCC MAILCCNAMEMAILCCOSMTP_SSL USA_GMAILTOKENINTENTOS RESPUESTASP_MAIL_COLA_DELAYP_MAIL_COLA_REINTENTOS+%C oSecuritybOC  ^ INI_Funciones,%C omailspoolbOC    INI_Funcionesa%C U LOSENDMAILXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXIDU OSECURITY INI_SEGURIDAD INI_FUNCIONES OMAILSPOOLINI_MAIL_SPOOLMAIL_GUARDAR_COLA_OBJECT mostrar_colaestado_color_back~estado_color_fore!Memo_TXT respuesta_txt estado_txt estado_error! estado_enviable estado_reenviable estado_cancelablez estado_resumible estado_pausablet estado_modificable  reiniciar  suspender actualizaciones_parar6 actualizaciones_reiniciar{ timer_mail.TIMER  abrir_tabla cerrar_tabla cerrar_tablas0cambio_de_empresainiciar*mail_guardar_cola_object cambiar_ds recuperar_dsUmail_guardar_colamail_procesar_cola_completau"mail_avisar_error &mail_procesar_cola)mail_limpiar_procesos+mail_enviar_proximo,mail_enviar_correo,mail_guardar_cola_objectc3S.Q\  Timer_Mail T T - T                           !U TIMER_MAILTIMERTOPLEFTHEIGHTWIDTHINTERVALNAMEAVISAROPDSXDS mail_colaCUSTOMF81A!A2qaqf1qqqaqaqaqaqaqaqaaA1qqaA11111!QA2qqqqqaq1qqqA2qqqqA2qqqqqqA2qqqqqqA2qqqqqqqqA2qqqqA3qqqqqqqqA2qqqqqqqqqqA332354A2A11AA3qA2qA1qAA12qqAarA!AB3qA6q3q1A3AAAAAAAAAAAA111AArb2ArqBYA1qAqAAB41RrqQr1rQqQAAAsQAAr2Aqrt!ArB1rQr1rQaAAAA!QA2qrq2Q2"rrCqAAuAB BqAAA4AAR3:PpP pP`14@@3;V;Q^? bI Y m`} h%r|>[.Za|*&)4IX7#Z7##r #$y1$R1b166:6:>TG>>{?b??LII+KcVI1%=Cw"Y4jUsys_comandos.prg%sys_clases_actualizaciones.prgsys_clases_empresas.prgsys_clases_tablas.prgsys_clases_usuarios.prgU SYS_COMANDOSPRGSYS_CLASES_ACTUALIZACIONESSYS_CLASES_EMPRESASSYS_CLASES_TABLASSYS_CLASES_USUARIOS CUTHISDISPONSEU)%Cthis.Estado_GeneralbL }JTCEstado_Generalsys_clases_actualizaciones.prg( BUTHISESTADO_GENERALOEXg%%Cthis.Dir_TablasbLT BT(P BUTHIS DIR_TABLAS DIR_SISTEMAOEX >TCEmpresassys_clases_empresas.prga"%C xDir_SistemabC~TC %CP_SystembCTC 'TF:\SISTEMA\2000\SYSTEM\%  U XNO_INICIAR XDIR_SISTEMATHISEMPRESAS DIR_SISTEMA XDATOS_DIRP_SYSTEM CARGAR_DATOST"%C xDir_SistemabC9T  U XDIR_SISTEMATHIS DIR_SISTEMA CARGAR_TABLASCARGAR_EMPRESASLITCTablas_Sistemasys_clases_tablas.prgaUTHISTABLAS DIR_SISTEMA, CUXDESDEXHASTATHISEMPRESAS CARGAR_DATOS DIR_SISTEMA UXTEXTU CUTHISDISPONSE+|GetTimeZoneInformationKERNEL32TCXCTCC\%T @ TB< UGETTIMEZONEINFORMATIONKERNEL32XTZIXZTTHISDW2N8%CxValbC1TUXVALTHIS SRV_NOMBRE8%CxValbC1TUXVALTHISSRV_DIR8%CxValbN1TUXVALTHISSRV_MODOgTTT% ` CU XNO_INICIARXSERVERXDIRXMODOTHIS SRV_NOMBRESRV_DIRSRV_MODOCONSULTAR_SERVER T- sys_network'TC  %CT T T-B-T C T TTaUXTSXUTCTHISSRV_ACTUALIZADOCHECK_OBJECT_NETWORK SYS_NETWORKONETWORKGET_SERVER_TIME SRV_NOMBRESRV_DIRSRV_MODO LOC_MARCALOC_HORA OBTENER_MARCALOC_UTC"B<<UXDTTHIS LOC_TIMEZONE"B<<UXDTTHIS LOC_TIMEZONE%%CCxFechabT <T!| SetSystemTimeWIN32APITC    TCiTCHTC)T C%T CT CT ChT CCCC C C C CBCC 6UXFECHATHISSRV_HORA SETSYSTEMTIMEWIN32APIPASAR_UTC_LOCALXANOXMESXDSXDIAXHORAXMINXSEGXSTRN2DWf\BCC\ pACC\ @CC\CC\UXCDW(BCCG CC 8 UXNN/"| GetTickCountkernel32 BCU GETTICKCOUNT% K%4B G BC y$BCC 8UTHISSRV_ACTUALIZADO SRV_SI_O_SILOC_HORA OBTENER_MARCA LOC_MARCA% Z%4B VBC<< $BCC 8UTHISSRV_ACTUALIZADO SRV_SI_O_SI LOC_TIMEZONELOC_UTC OBTENER_MARCA LOC_MARCA"B<<UXDTTHIS LOC_TIMEZONE"B<<UXDTTHIS LOC_TIMEZONE8+|GetTimeZoneInformationKERNEL32+|SetTimeZoneInformationKERNEL32TCXCT<'TCMy City Standard@C 'TCMy City Daylight@C 2TC CE\C\T C B U XNEWTZGETTIMEZONEINFORMATIONKERNEL32SETTIMEZONEINFORMATIONXTZINNEWBIAS CSTANDARDNAME CDAYLIGHTNAMETHISN2DWXRETdummy,Destroy7Disponse_Estado_General_AccessjDir_Tablas_Access/INIT Cargar_Datos9 cargar_tablascargar_EmpresasEMensajedisponsedestroyLoc_TimeZone_AccessSrv_Nombre_AssignSrv_Dir_Assign\Srv_Modo_AssignINITConsultar_ServerPasar_LOCAL_UTCi Pasar_UTC_LOCAL  Setear_Hora DW2N N2DWl  Obtener_Marca Srv_Hora_Access Srv_UTC_AccessPAS_Local_A_UTCPAS_UTC_A_Local Set_TimeZone( T- T- T- T- T- T-        UEMPRESASTABLAS DIR_SISTEMA DIR_TABLASDIR_MONITOR_SVCESTADO_GENERALd TTT T T T T T-TT  T -                U LOC_MARCALOC_HORALOC_UTC LOC_TIMEZONE SRV_NOMBRESRV_DIRSRV_MODOSRV_ACTUALIZADOSRV_HORASRV_UTC SRV_SI_O_SISistemaCUSTOMbControlador_HorarioCUSTOMU1qQ:22AA2Q1AA2!11qAAA3q!A222q122A!A2qA2qA2qA21A2csqAA2q2q2qQAR3q2q3#31$ABA21#ABA2q2q2qrq$!431111``1Tg  He')(90EA2mD5H8:8Y9Yk[; ^F jK2  pP vU |] lLosrfr:|u 1j AM%f+bUCT    "TFileInfoCacheLifetime&TFileNotFoundCacheLifetime#TDirectoryCacheLifetime T T TKT >system\CurrentControlSet\Services\LanmanWorkstation\Parameters $T CWWAPI IP\WWAPI.PRG%TCHKLM a %TCHKLM a %TCHKLM a (%D T- T- T - $T CWWAPI IP\WWAPI.PRG#TCHKLM  #TCHKLM  #T CHKLM  (%  CGSe necesita reinicial el WINDOWS para aplicar cambios en el sistema !!!C C 9Por favor hagalo antes de utilizar el sistema nuevamente. B @%2CError al aplicar HotFix SMB2.C C /Intente ejecutar el sistema como administrador.C C POR FAVOR AVISE AL SOPORTE!!! B BUXNOUACXNOM1XNOM2XNOM3XVAL1XVAL2XVAL3XRET1XRET2XRET3XOLDDIROAPIXPATHXREGOEX1 READREGDWORD WRITEREGDWORDMENSAJEq"a1BQQQAA111B a AAA1 % P~S BCUXPV XINICIALIZADO DC_ES_DOSCENx T-%8 Ta!%  C h Ta BUXESDOSXPV XINICIALIZADOP_CODEMPP_DOS DC_ES_DOSCENs%6 T- B%CxPVbLg T- B% C Ta%CxPVbCTCC\g"% C T- B(CX%CT Ta B T- BUXPV XINICIALIZADOXESDOSP_DOSDC_INICIALIZAR ARR_DOSCENZ+< 7TU ARR_DOSCEN %C arr_doscenbUA%C =B< 7T%onumfacCOQ%TC U ARR_DOSCENPTONUMFACTRANSFP_DOSCEN % 0 C Ta%C^ B.F. TINLIST(QINTEGERT,CCZT) BUXTESTVAL XINICIALIZADODC_INICIALIZARXFILTRO ARR_DOSCENXVAL!% 8 C Ta%C xComillasbCh T%C B.F. TINLIST(QINTEGER'T,CT) BU XTESTVALXHEAD XCOMILLAS XINICIALIZADODC_INICIALIZARXFILTRO ARR_DOSCENXVALDC_GENERAR_PUNTOR% @ C Ta%C xComillasbCqT' T(%C T( .F. 0 T QINTEGER ,.TC  T .OR. T) BU XTESTVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLAS XINICIALIZADODC_INICIALIZARXFILTRO XOPERADOR ARR_DOSCENXVALDC_GENERAR_BETWEEN_UNOTBETWEEN(AT,C,CT) BU XTESTVALXVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLASXFILTRODC_GENERAR_DESDEDC_GENERAR_HASTA( BCCCZ0UXPUNTOXHEAD%C xComillasbC? T%CxColabCk T+BC -00000000UXPUNTOXHEADXCOLA XCOMILLASDC_GENERAR_PUNTO%C xComillasbC? T%CxColabCk T+BC -99999999UXPUNTOXHEADXCOLA XCOMILLASDC_GENERAR_PUNTOES_DOSo DC_Es_Doscen*DC_Publicar_arr_doscenDC_Inicializar&DC_Obtener_InlistDC_Obtener_Inlist_Ex?DC_Generar_BetweenDC_Generar_Between_UnoDC_Generar_Punto DC_Generar_Desde DC_Generar_Hasta !33AA42AAArA"ArAA3qA4BAAt1Q22A2ArrA!B21AArrqA!B2AAq11AB!2!121AA21AA1^| +4E/*L< `M, xa ww}./.%[+y9,^YUK4     %Cxtipo2bNt T %CxlegalbN T%CxtranbN T%Cxasi_modbN TTCN G+(dey_funcG+( co_funcionesT C CT C N T T T%TNgmC T % T T co_comienzoa /C"Validar fecha asiento vs ejercicio%Cejercon Qejercon%CC,TCCC>ejercondir  Ta T  T!)" co_funciones !% UC!#B-<$ T$% C%trsac$ccprovcccliecom_operven_operchequesdiariogconceptocesionconsDiaG2conc2cashdatacashcanccashcan2%$ T'- T( T$% k)trsac$co_asientos.prgCIngreso de Asiento.Modificacin de Asiento6%$C(*2C,C@z 9999,999,999_L+- T-. co_asientos-%-C-# T0%0C(  T'a T$% k1trsac$co_asientos.prgCIngreso de Asiento.Modificacin de Asiento6 T2%'l4% 3  4  #5co_imprimir_asientos% hfCSe ha registrado el asiento : CC@z 9999,999,999_ / CC@z 9999,999,999_# C(# T$B-BU7XASIENTOXASI_MAXFECHA XCONCEPTOXMONEDAXCAMBIO XIMPORTACION XAFECTA_SUBDXABMXTIPOXUNXTABLA_VERSIONESXNO_TXNXTIPO2XLEGALXTRANXASI_MODXNOARCHDEY_FUNC CO_FUNCIONES CHK_VALUE XTIPOCOMPPAGOXNEWASIVERSIONXMOTIVO OPEN_FILES CO_COMIENZOSYS_MEJERCONDIRLOCALESCO_011XENC_DIRXERRXMSGVALIDAR_ASIENTO_EN_EL_EJERCICIOMENSAJEAAALOCK_GTRSAC XREGISTRADOXMSG_REGBEG_TRAN REGISTRARUSER_LOG PUB_INDEXXXMSGFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERROREND_TRANTTS_IDCO_010CO_007IMPRIMIR_ASIENTOCO_IMPRIMIR_ASIENTOS14 T T T TaT Ta T%FG((asiento#6T  %  T T C FG((asiento%% C  T G((asi_ma#6T%g T T%T>%*+a&E Nmero de Asiento :  @z 999,999,999 FG((asiento E %C4t)CEl asiento est repetido !!!.L Nmero de Asiento Manual : @z 999,999,999 FG((asi_ma E%C4)CEl asiento est repetido !!!.!%ScC ZL Archivos: CSNOSI6co_asientos.prg vFG((asiento EA%C2NOSI6CSNOSI6C ZL Archivos: C2NOSI6 => CSNOSI6co_asientos.prg%  %Ca!  B T  T %C#" e=T0Error al guardar la versin anterior del asiento B T$ T%F&7~C' '(  &)C X T%% C*F&%+ T T  C, BU-XMSG_REGCOEF COMPROBANTEINICIALXXXXCAU YA_CONCEPTO NEWASIVERSIONXASIENTODIARIOGASIENTONEWASIREVISAR_CUENTA_CORRIENTEXLEGALES_ASIENTO_LEGALEJERCONDIRASI_MA NEWASI_MAXTOPAGOXTIPO XTIPOCOMPPAGOCONSOPAGOINLOCALESCO_005GUI_GETMENSAJEXNOARCHUSER_LOG PUB_INDEXARCHXASI_MACO_ANULAR_ASIENTOCO_VERSION_GUARDARXTABLA_VERSIONESXNEWASIVERSIONXPASEMASTERDEBITOCREDITOABREV PROCESAR_PASECO_007 FN_CASHFLOW T T T T TFG((cuenta EF% NNHJ  D C   E C   C C   N  2J7C*Codpase errneo. Llame al programador. !!!  T T T T T% D%#TP?TC0   6T %TC?TC0   6TFH E%C > C{%PK!>CCZ - C* w">[CCZ] C 2%C >% T-F>CCL  !!""#$%&'())* ++,C$-./C S216012C435C6SN6778899::;;<=C 6%>?!> C@@z 9999,999,999_%*A >AB%CFG((asiento E(%C4 />'(DEFEGHIJKCLCMMCLL66NCODPQF TC-BURXPROCLIXNOMBREXCODIGOXFACTURACENTROCUENTASCUENTAMASTERCOD_CUEXNOARCHCODPASEPROCESAR_DEUDAPROCESAR_EFECTIVOPROCESAR_VALORESMENSAJEOPCATRCODIGONOMBRE COMENTARIOCONCEPTOTIPO_CHQNUMEROVENC XCONCEPTOTRANXTRANXUNA_SOLA_TRANDIARIOGDEBITOFN_PESOSCREDITOPOR_QUECOMPROBCOD_CEN SUBCENTROPASEXPASEFECHAXFECHAASIENTONEWASIPROCLITIPOCAUHOYUSR PUB_INDEXARCHMONEDAXMONEDACAMBIO FN_CAMBIOXCAMBIOSUBD XAFECTA_SUBDSUBNUMAUX1N PROVINCIALINEAGRUPOMOTIVOXMOTIVOXTIPO XTIPOCOMPPAGOXTOPAGOASI_MA NEWASI_MA YA_CONCEPTO IMPORTACIO XIMPORTACIONIMPORTACUNXUNVERSION NEWASIVERSIONFEC_PROCTIPO2XTIPO2LEGALXLEGALASI_MODXASI_MODCprocesar valores%XFG((cuenta E Ta%CFTC F TP% A T a% >> >0>C CPN6c>C   .C CPN6 T6 > >>C T&%P N !>C@z 9999,999,999_>C X>> ?>!C 0    "6%#$ >%& \!>C@z 9999,999,999_>'C X>(>) ?>*C 0    "6?T+C 0    "6T, >-. >/0>1CX>2L >3>44>55>66 >70>81 >9C$ >:;><>=N7>>?@ABCDE CF%CF F % D+%GCAL q%4cFH>II>4I m TJ%JcxTJ TK@C3Subnum demasiado alto, consulte al programador !!!!LpMCO_ASIENTOS.PRG!Subnum demasiado alto en Asiento CC@z 999,999,999_ !!!F>5 F>5J%FG((cuenta%CF F  T a%N'>> >/>CNCC6>C   -CNCC6 T%CNCC66 > >>C T&%P N  !>C@z 9999,999,999_>C X>> ?>!C 0    "6%#$ >%&  !>C@z 9999,999,999_>'C X>(>) ?>*C 0    "6?T+C 0    "6T, >-. >/0>1CX>44>2L >3>66 >70>81 >9C$ >:;>< >5J>=N7>>?@ABCDE>OOPP%C9 F J F FQ CR >-.>  >SC X >70> >>CN>66>?>"C 0    "6>1CX>44!>C@z 9999,999,999_>2L >3 >9C$ >:; >5Ji>C   -CNCC6 T CN6 >>OOPP>%Cm F ~ F Tte_procsCN4CV6WJXYOP Z% B% >> >0>C CPN6c>C   .C CPN6 T6 > >>C T&%P N !>C@z 9999,999,999_>C X>> ?>!C 0    "6 !>C@z 9999,999,999_>'C X>(>) ?>*C 0    "6?T+C 0    "6T, >-. >/0>1CX>2L >3>66 >70>81 >9C$ >:;><>=S>44>[[>YY%CF F BU\SYS_MCUENTASCOD_CUEMASTERCUENTAPAGRECPROCLIVEN_OPERXPROCLICOM_OPEROPCATRHUBOCHEQCREDITODES_VALCONCEPTO DIF_VALORVENCCAJ_PROFN_PESOSMONEXTMONEDAXMONEDAXCAMBIOMONPASECOEFIC FN_CAMBIOXFACTURACOMPROBNEWASIREM_PROORDENCOD_PROCODIGODES_PROVNOMBREXTIPO XTIPOCOMPPAGOOPAGOXTOPAGOREM_VENPEDIDOCOD_CLIDES_CLIEXNOMBREXCODIGOUSR PUB_INDEXFECHAXFECHACOD_CENCAUSAASIENTONUMEROSUBNUMEMISIONFEC_RECTIPOHOYPASEXPASEASIDIAPROPIOOCODIGOOLDCODOCOMPROBOLDCPBTOPASEOLDPASEOCAUSAOLDCAUSA ELIMINA_VALORP_EMPCONSCHEQUEXSUBNUM TTS_ERRORMENSAJEREPORTEDEBITOBANCHQNUMCHQCHEQUES NEW_REG_CHEREMITOCHQ_REGTE_PROCSDIFERIDOENDOSATERCECHEQUEDUDOSODEBITADOF*% 0  %NF _FT TT %T P?T C0   6T T C >?>C0   6B>C C6!>CZCZ T C?T C0   6T T >B>C C6?>C0   6>CZ >!>C@z 9999,999,999_>L > #>![CC"Z] #>$$!>%C@z 9999,999,999_>&L>'( >) >" >*" >+C$>L >, >-" >.>/C0>1C] >23%!>CZCZ >CZBU4MASTERCODIGOOPCATRCCPROVCCCLIEWOW_CODWOW_VENXFECHAWOW_NOMNOMBREXPROCLIXNOMBREXCODIGOXFACTURACOMPROBCOD_PRODES_PROVIMPORTEXMONEDAXCAMBIOCREDITODEBITOFN_PESOSIDCAUSACUOTAOPCOD_CLIDES_CLIEUSR PUB_INDEXNEWASIFECHACOMENTARXPASE COMENTARIOVENCREFCAUCONDCONCEPTOFECREFCUOHOYASIENTOPASEMONEDACOEFIC FN_CAMBIOIDUMOTIVOXMOTIVO9 G+( co_funciones%P!Ccuentascuenta Ta%CFTC FTPH. $  <  = %C  > > OTROS>%C>C  N>C   C   T6 ,>C  N>C   C   T6 > T!>C@z 9999,999,999_%C>C X>>?>C0    6%!" >#$ >%C X>&>'?>(C0    6?T)C0    6T* >+,>-CX>.L >/>03 >1C$ >23>4 > >5>6C7>89%CF F:  @! Q    v% r> > EFECTIVO>0>C CPN6 > T%CX!>C@z 9999,999,999_>C X>>?>C0    6%!"T >#$ !>C@z 9999,999,999_>%C X>&>'?>(C0    6?T)C0    6T* >+,>-CX>.L >/>02 >1C$ >23>4c>C   .C CPN6 T6 > >5>6C7%C\F nF:  C! Q    . % * > > EFECTIVO>/>C CC6b>C   -C CC6 T6 > >5>6C7 > T%C !>C@z 9999,999,999_>C X>>?>C0    6%!" >#$ 6 !>C@z 9999,999,999_>%C X>&>'?>(C0    6?T)C0    6T* >+,>-CX>.L >/>02 >1C$ >23>4%C F & FBU: CO_FUNCIONESCUENTASCOD_CUEMASTERPAGRECPROCLIVEN_OPERXPROCLICOM_OPEROPCATRDEBITOCREDITOCUENTADES_VAL DIF_VALORVENCCAJ_PROFN_PESOSMONEXTMONEDAXMONEDAXCAMBIOFECHAXFECHAXFACTURACOMPROBNEWASIREM_PROORDENCOD_PROCODIGODES_PROVNOMBREXTIPO XTIPOCOMPPAGOOPAGOXTOPAGOREM_VENPEDIDOCOD_CLIDES_CLIEXNOMBREXCODIGOUSR PUB_INDEXCOD_CENCAUSAASIENTOTIPOHOYPASEXPASEASIDIAMONPASECOEFIC FN_CAMBIO PROVINCIAAUX1NiF G((idu TT$qcheques BUCHEQUESIDUXNUMXSUBMASTERNUMEROSUBNUM5 TCTCDELEvGG((borrados#)%C+C' h ~:>C]set dele &olddele G((BUORDENXVACIARREGOLDDELEBORRADOSCHEQUESIDU?5TC\C \CL\Cg\Ch\Ci\Cj\Cl\Cm\Cn\Co\Cp\Cq\Cr\Cs\Cv\Cw\%CSCf1BaB-U XIMPUESTOCUENTASATRIBUTOs 4HTC,CC$C  C$C66)TCC C6HTC,C C$C   C$C 6 6% Ba lqCLa fecha debe estar entre el C* y el C* !!!C C Cierre de Balance: CC*xB-U XFECHAXTIPOXDDFECLOCALESEJ_001OCIERRES CIERRE_TRADESSYS_CIERRE_BALANCEXHHFECEJ_002 CIERRE_TRAHAS 4 5 TaFG((chequeEC Z TC4%:C-El nmero corresponde a un cheque anulado !!!B-F$-    TC4% >GC:El nmero no corresponde a ninguna chequera habilitada !!!B- F G((idcheqEC ZCZ T a&+C+   % S  T -!H% FG((idcheqEC ZCZ T a&+C+   % S { T -!H% /C"El nmero ya ha sido utilizado !!!B-BaUXNUMXCUEAUXAUX2CHQANUCHEQUEMENSAJECHEPROCUENTADESDEHASTACOM_OPERIDCHEQXOKNUMEROSUBNUMPROPIOVEN_OPER 4  TFG((asiento E+C+  T TCOH # >> >U XASIENTOXASI_MAAPASEXPASEDIARIOGASIENTOANULADOUSR PUB_INDEXP4 T%PTNgmC %{ T%  B ?% TCT% B ; TCW%CIDX04 ZFQ\idx04idx04FG((idx04 ET indiceCCZ xtc=&aaa % C+ ?CMal el tipo de cambio de fecha C* !!! T  F$BCC  6T BU XIMPORTEXDMONXFECHAXCAMBIO2XCAMBIOXMONEDAAREAP_COMMONIDX04AAAXTCMENSAJE4 BUXIMPORTE4 BUXCAMBIOH  E{%C@\S` T@ w T< 3 TA P TBUXOPCATRXOPCIONXPROCLIOPCIONMASTERATRIBUTO_4TC F#)FG((asiento ET F G((asiento E T-+C+  EF G((cuenta E @% A C   d@C3El asiento es automatico, no se puede modificar !!! T-B-F%C+ #>             ! !" "# #$ $% & &' '() )*+,-./0123 34a5-6-78CC8SN69: :; ;< <= => >/>  ? @A % B  Ta%CC +B-FHF HF#)BaUD XRESULTADOXASIENTOXASI_MAXMOTIVO2XASI_MOD XTIPO_MODMASTERCONCEPTOASIENTOASI_MODDIARIOGCUENTASCUENTACOD_CUETIPO P_ASIAUTMODLOCALESCO_004ACCESOMENSAJEABREVDESCRDEBITOCREDITOPROCLICODIGONOMBRE COMENTARIOCOD_CEN SUBCENTRO MODIFICABLMODIFICNUMEROSUBNUMCAMBIOMONEDASUBDCODPASECOMPROBCAUOPCATRFECHAVENCEMISIONOLDCODOLDCPBTOLDPASEOLDCAUSAREGISTROASICAUASITIPOATRIBUTOCOMPLETOOKDEBOKCRETIPO_CHQIMPUESTOIDUAUX1N PROVINCIALINEAGRUPOTRANASI_PASEPASE DE_ASI_MODMOTIVO CARGAR_PASE*TC H+# DL C Em C CC N 2#5%A C  7C*Codpase errneo. Llame al programador. !!! U XTIPO_MODMASTERCODPASE CARGAR_DEUDACARGAR_EFECTIVOCARGAR_VALORESDIARIOGTIPO P_ASIAUTMODLOCALESCO_004ACCESOMENSAJE%C\SFG((comprob;EC@z 9999,999,999_LCZCZ%C4F>   3F G((comprob5EC@z 9999,999,999_LCZ%C4/F>  FC> CC\S6 aaaUMASTERATRIBUTOCCPROVCOMPROBDIARIOGCODIGOASIENTOPASEVENCCONCEPTOCONDCCCLIEOPCATRCOMPLETOOKDEBOKCREC5TE TT =TCco_Atribute_holderco_asientos.prg&TCCD C= &T C@A C= $T C AD6C  F?> CDa-6CCa-6UOATRXOPCIONXOPCATR XDEBEHABERMASTERATRIBUTO XACEPDEBIATRIB_DHATRIB XACEPCRED XACREDEBICREDITOCO_GENERAR_OPCATROPCATROKDEBOKCRETC 5T T T TTN T T  T - T - T - T - T-%Cv(C%N%H TA A%C FC9No se puede modificar, el cheque ya no est en cartera!!! T-B- 0T T !"T !#T !$T !%T!& TDT3TT'T(T)T * r TBTT' T+T!&%+SnQC!No se puede modificar, el cheque CCZ ya fue debitado !!! T-B- -(C,%-NW%-. % TA %C- uFC9No se puede modificar, el cheque ya no est en cartera!!! T-B- T T !"T !#T !$T !%T!& TDT3T-T-'T-(T-)T -* ) TBT-T-'T-+T-&%+S%QC!No se puede modificar, el cheque CC-Z ya fue debitado !!! T-B-%RTNF>/01 2+)* " # $ 3 &U4 XTIPO_MODXOPTATRXNUMERO XTIPO_CHQ XFEC_VENCXIDU XCONCEPTO XDEBITADOXBANCOXNUMERO_CHEQUEXENDOSAXDUDOSOXTERC XDIFERIDOXECHEQUEMASTERPROCLICO_BUSCAR_VEN_OPERCODIGODIARIOGASIENTOPOR_QUEFECHAPASEVEN_OPERPROPIOCREDITOCO_BUSCAR_CHEQUENUMEROMENSAJE XRESULTADOCHEQUESIDUCHQENDOSADUDOSOTERCTIPOECHEQUE DIF_VALORDES_VALBANCHQNUMCHQDEBITADOCO_BUSCAR_COM_OPERCOM_OPERCAJ_PROOPCATRVENCTIPO_CHQCONCEPTODIFERIDOXFG((che_ven EFG((numero EFBC4UXNUMCHQCHEQUESCHE_VENCHQNUMEROL2C-Cod_CliCCClieUXCODIGOXASIENTOXCAUSAXFECHAXPASE CO_BUSCAR_CCL2C-Cod_ProCCProvUXCODIGOXASIENTOXCAUSAXFECHAXPASE CO_BUSCAR_CC#%CxTablabCI F%G((comprob+EC@z 9999,999,999_CZ%C4 B-%V+C+ CC@z 9999,999,999_CZC. CZ D% <BaH% &Ca 'Ca U XCODIGOXASIENTOXCAUSAXFECHAXPASEXCICLOXCAMPOXTABLACOMPROBCAUSA FECHAPASE CO_BUSCAR_CCN4C-Cod_ProCom_OperUXCODIGOXASIENTOXCAUSAXFECHAXPASECO_BUSCAR_OPERN4C-Cod_CliVen_OperUXCODIGOXASIENTOXCAUSAXFECHAXPASECO_BUSCAR_OPERn#%CxTablabCI FH^ CfVEN_OPER{ CfCOM_OPERG((fecha+ECC@z 9999,999,999_%C4 B-V+C+ CCC@z 9999,999,999_CC.   g% _BaHU XCODIGOXASIENTOXCAUSAXFECHAXPASEXCICLOXCAMPOXTABLAFECHACAUSACOMPROBPASE(%  %HO E%C@ T@  T< 3 TA P TBTC H Eb%CCG TC ^ T= 3 TDTD !H E%A(%C@ T@  T<TC ~%CCU TC l T=TD 3%A TATC  TDTD P TBTCU XMODULEXOPCION XACEPCRED XACEPDEBI XACREDEBIOATRATRIBXOPCATR XDEBEHABER$BC\SU XATRIBUTOTHISATRIBUTO TC\ %C xOperacionbNc THx BN  BS 2BSUXATR_DXATR_H XOPERACIONXSTRTHISATRIBUTO=%C xAtributobC6TU XATRIBUTOTHISATRIBUTOe45 Ta%CcTLa fecha del asiento CCZ5 es anterior al cierre de balance, no se puede anular T-% U%C  QeTLa fecha del asiento CCZ7 no corresponde al ejercicio actual, no se puede anular T- BU FECXASIENTOXMSGXNO_VALIDA_EJERCICIOXDFEXHFEAUXSYS_CIERRE_BALANCELOCALESEJ_001EJ_002q4CAnular asiento %C xfecha_asibDeT CG+( co_funciones%Ccuentas Qcuentas T T  T  T -FG((asiento ECZFG((asientoG ECZG %C4F%C %CT6La fecha del asiento en este ejercicio no coincide !!!B-#%CC  B-TTC%? Ta%A  TCOF Ta%A %2 $%Cesin de Factura T a%Ccesion QcesionF G((cuentaFG-( Ta TCO T+C+  %C @\SC A\S C B\S C C\S C D\S C <\S C =\S  %C! ,CAnulacin cheque propio emitido7%CC" ZC#Zchpid#%C$ $ % ASIE01.PRG:Problemas al anular un asiento, cheque propio ya debitado,Asiento CC@z 9999,999,999_ / CC&ZEl asiento no se ha anulado.dT El cheque: CC"Z est debitado !!!C !El asiento no se puede anular !!! T-!%C' F(G((comprob)E*C@z 9999,999,999_L T+C4%+` T,C+C+ 0*)-*C@z 9999,999,999_L $%&&  >.ST,,H%,1% ASIE01.PRG7Problemas al anular un asiento, duplicacin de cheques,Asiento CC@z 9999,999,999_ / CC&ZEl asiento no se ha anulado.RTEUno de los cheques del asiento est duplicado, no se puede anular !!! T-! \ %,X % ASIE01.PRGDProblemas al anular un asiento, no se encuentra el valor en cartera,Asiento CC@z 9999,999,999_ / CC&ZEl asiento no se ha anulado.>T1Uno de los valores no se encuentra en cartera !!! T-!  TTGUno de los cheques del asiento ya fue utilizado, no se puede anular !!! T-!FHT  %% T/J0trsac/co_anular_asientos.scxAnulacin de Asiento%/% ~ )-*C@z 9999,999,999_L h$%&&  `6 T6CO[#?listados>9:;F=G((comprob #6H C @\SC A\S C B\S C C\S C D\S C <\S C =\S  T+-%C' F(G((comprob)E*C@z 9999,999,999_L T+C4%+C+C+ 0*)-*C@z 9999,999,999_L %&&ZH T@aFAG((comprobFBG((comprob)E*C@z 9999,999,999_L T+C4%+C+C+ 0>)-*C@z 9999,999,999_L !%&& K%CC B\N ! CC F(>*BD>EBE>FBF>GBG>HBHc>IBIc>JBJ>KBK>B>"B">)BL>-BM>CBLg >NC$>&BOFAG((comprobEBDBLBM>(PQFBH TRaFAG((comprob)E*C@z 9999,999,999_L T+C4%+C+C+ 05)-*C@z 9999,999,999_L !%&& K%CC B\N ! CC F(>*AD>EAE>FAF>GAG>HAH>IAIc>JAJ>KAK>A>"A">)AL>-AMCALg >NC$>&AOFBG((comprobEADALAM>(PSFAH TRa VFAG((comprob+ECXC@z 9999,999,999_L T-+C+ T $%&&   TUCOTVCQ[+C,VTVCQC,V[TVCVgG((opago EV+C+ WV i >XHG((comprob #UH 2FHT CY CZF G((abrev2C]C@z 9999,999,999_L\% J^trsac/co_anular_asientos.scxAnulacin de Asiento T_  B&%`ab Cc  *ZT El Asiento CC@z 999,999,999_% es automtico. No se puede anular... > CY%C cB-BaUdXASIENTO XTRANINITEDXSIOSIXMSG XFECHA_ASISYS_M XTMPVERPATHXFECHA_ASIENTOCO_VERSION_PREPARAR CO_FUNCIONESCUENTASXZXKXCESIONCONCEPTOASIENTODIARIOGFECHACO_ANULAR_ASIENTOS_FECHA_OKXSE_PUEDE_ANULARASIENTO_TIPO2_ANULABLETIPO2TIPOREGISTROOKARCH COMENTARIOCESIONCUENTACOD_CUEMODIFIZATRIBUTOCREDITONUMEROSUBNUMCHPREPORTEPASEDEBITOCHEQUESCOMPROBCODIGOENCONTREACCCAUSAFLAGAAABEG_TRANTRSACLOCK_GMENSAJECCPROVCOD_PRO REG_ASI_ANUCC_PROLISTADOSREFCAUCUOOPRCCCLIECOD_CLICC_CLIHUBOCHEQCOM_OPERVEN_OPERPROCLIOCODIGOFEC_RECDES_VAL DIF_VALORCAJ_PROMONEXTMONPASEEMISIONOCOMPROBOCAUSAHOYOPASENOMBREDES_PROVPAGRECDES_CLIESELEREGISXPAGOOPAGOUSADOANULA_DIARIOG_CONCEPTOANULA_CASHFLOWABREVUSER_LOG PUB_INDEXEND_TRANTTS_ID P_ASIAUTMODLOCALESCO_004ACCESOFG ECZG +C+ M TCOH%C+ o TCO Ta  T- #">T  \ te_procsC ZL  %; # I!F E%C4+C+  >ANULADOH CC ZC ZBUDIARIOGXASIENTOASIENTOREGREGISENCANULADOUSR PUB_INDEXXDETALLE COMENTARIOCONTROL_ANULACIONESTE_PROCSHOYCOD_CUEDEBITOCREDITOMONEDAMONEXTFECHACONCEPTOTIPO2LOGACT 4 TCWFG((asiento ET T+C+ o%C8T+Se genera un pase del asiento sin fecha !!!!TT F G((cuenta E %C4 `1TCuenta   no encontrada !!!!FH%%6T)El asiento no se genera correctamente !!!% L*odiariog borrar_fkjf-Asiento mal registrado: Q%C T T%C # co_funciones  F BUXASIENTOXMSGXACCXAREAXFECHADIARIOGASIENTOFECHADEBITOCREDITOCUENTASCUENTACOD_CUEP_DEV BORRAR_FKJF SYS_BROWSEXERRVALIDAR_ASIENTO_EN_EL_EJERCICIO CO_FUNCIONES %C* FQnh1\tmp\C C C2NNC C C C< C N LN NNNCCC CNDDDCC NCN  C!C"N#N$C%L&L'L(C)C*C +N,C-N .N/C0N 1N 2N3N 4N 5N6N7N8N 9L:L;L<L=L>L& --QQ\tmp\BU?XTABLAXALIASP_LOCALABREVCOD_CUEDESCRDEBITOCREDITOPROCLICODIGONOMBRE COMENTARIOCOD_CEN SUBCENTRO MODIFICABLNUMEROSUBNUMCAMBIOMONEDASUBDCODPASECOMPROBCONCEPTOOPCATRFECHAVENCEMISIONOLDCODOLDCPBTOLDPASEOLDCAUSAREGISTROASICAUASITIPOMONEXTMONPASEATRIBUTOCOMPLETOOKDEBOKCRETIPO_CHQIMPUESTOIDUAUX1NCAUASI_MODASI_PASEDEBITADOBANCHQNUMCHQ PROVINCIALINEAGRUPOXLINEAXGRUPOXCENTRANDIFERIDOTERCECHEQUEENDOSADUDOSO DE_ASI_MOD)TCV_CCZC]T_DG2.dbfT_CT2.dbf"odiariog1Q#oconcepto1QU XASIENTOXTMPPATH XTMPDGPATH XTMPCTPATHODEYFUNCGET_PATHDIARIOGASIENTOCONCEPTOT_DG2.dbfT_CT2.dbfT_DGV.dbf:%CxTMPPathbCC C0 C0  T-FQotmpconc2Ǽ1QF  #)T  Q !otmpdg2 Q 1F T %CTMPCONC2FQ%CTMPDG2F Q%B-U XASIENTOXVERSIONXTMPPATH XTMPDGPATH XTMPCTPATH XTMPDVPATHXERRVERSTMPCONC2CONC2 XTMPVERSIONVERSIONTMPDG2DIAG2 4 T"TC C TC@DTCTC<=D%        B-z%C C% CD CA C[ C{ C CB  ,TValores de terceros vs propios.B-BaU OATRXMSGXAXBXCXDATRIBATRIB_DHIMPUESTO%%Ccashdata3FQ%Ccashcanc[FQ%Ccashcan2FQ% .Q\data\CCZ \cashdata Qcashdata% A.Q\data\CCZ \cashcanc _Qcashcanc% .Q\data\CCZ \cashcan2 Qcashcan2F~ krcashcanc        C ZLF G((id20E C ZC ZC Z%C4< ^( >aFrcashcan2BU P_CASHFLOWCASHDATACASHCANCCASHCAN2P_DOSP_CODEMPP_SYSTEMP_UNOCASHPENDTILDEIDUCLASECUOTAANOCOMPROBCAUSAFECHAXASIENTOXFECHAID2ARR_AAA ELIMINADO&%%Ccashdata3FQ%Ccashcanc[FQ%Ccashcan2FQ% .Q\data\CCZ \cashdata Qcashdata% A.Q\data\CCZ \cashcanc _Qcashcanc% .Q\data\CCZ \cashcan2 Qcashcan2FG((comprob"~ C  ZLF G((id20E C ZCZCZ%C4 < ^(F G((id20E C ZCZCZ%C4_ rcashdataFF BU P_CASHFLOWCASHDATACASHCANCCASHCAN2P_DOSP_CODEMPP_SYSTEMP_UNOCOMPROBCAUSAXASIENTOID2IDUCLASECUOTAANOARR_AAA %C* FQh1\tmp\DC(NNLN N C Q\tmp\BU XTABLAXALIASP_LOCALFECESTINOMBREIMPORTECUOTATILDEANOCLASEIDU G+( co_asientos co_comienzoaa%Clineas hQlineas%Cgrupos QgruposTCC]RTCC]RCMASTERCCASHPENDF BU XMASTER XCASHPEND CO_ASIENTOS OPEN_FILES CO_COMIENZOLINEASGRUPOS CREAR_MASTERCREAR_CASHPENDMASTERbomasterC'   C X D mtfullchF Ta+ T-F ~TC   BU XNEWASIENTOXPROXIMOCODIGOOPCATRMASTERDEBITOCREDITOABREVCODPASEMTFULLCHREVISAR_CUENTA_CORRIENTE_PASEB  TTCExactvGA%CC@z 9999,999,999_LcccliecomprobTTCA%CC@z 9999,999,999_LccprovcomprobTTCset exact &xexact BUXCODIGO XNEWASIENTOXPROXIMOXNPASEXEXACTREVISAR_CUENTA_CORRIENTE_PASEregistrar_asiento0 registrar/ procesar_pase@procesar_valoresprocesar_deudaI1procesar_efectivo7 elimina_valorE new_reg_che~FimpuestovG vld_fechaH vld_chp_asiJanular_asiento<pJ , `g `    #14 Iy#T #z) <)+ E;+J- Uo-P/ c/16 sr%3ÉVUZ%Cidx03 0Q\idx03)%C\monedas_filtro.dbf0 Mh1\monedas_filtroN C(C& & &   %aB %Cmonedas_filtro =&Q\monedas_filtro.dbfSLrmonedas_filtroTODAS LAS MONEDAS---?rmonedas_filtroPESOS$ F~C C DLrmonedas_filtroCidx03OCCfCCfFQBUP_COMMONP_SYSTEMCODIGODESCRSIMBOLOMONEDAS_FILTROIDX03NOMBREcrear_monedas_filtro01rABABaArArAB1m%}%HVMYN45 TctrlR <rec*BUXFLAGXMSGFULLCTRL @C-!TArchivos reindexados(z(TError al reindexar archivos <  < UXMSGREINDEXAR_EMPSOEX OESTADOEMPRELEASEOESTADO+ T T T- T n+aj1T%CEmpresas FQ \empresas %C oEstadoEmpbU2estadoJ ,C Iniciando...CempresasN T  d#) H%C+Z!  T-T%"ft05aa  Ta%CCCZ -  %#C f9TC Error al abrir la empresa CCZ( {ft05{ <  Ta%C $3T"Error al abrir en modo exclusivo: CUXFILEXPACK XERRORCHECK XEJERCICIO XRNSYSVLOOPXMSGFULLXFLAG XOLDSYSVEMPP_CODEMPP_SYSTEMESTADO OESTADOEMP SET_AND_SHOWTOPXSVOKXTMPEMPEMPRESASCODIGOCAMBIAR_EMPRESAFT05AVANCEDESCR REINDEXAROEXRELEASEMENSAJE#4TST NT N %C xEjerciciobLz T%CxflagbL T - (9 F \%CMONITORCMONICFG /CC ABMEJERCONEJERCONBORR_AGR  ' 5QF %C listados CC% listados Ta(*% listadosH =T*No se encontr la funcin para reindexar: C% C TError: % C 2T% C Ta%TR TaB- 9T: C Compactada Reindexada6  listados.TCTablassys_clases_tablas.prgCT% +CF QG(4listadosActualizacin de cuentas...listadosR BUXFILEXPACK XERRORCHECK XEJERCICIOXNOELIMINAESTADOXEJERCON_ABIERTOXSILENTXMSGIDXCDXPREGUNTOXTTSXFLAGZ ESTADO_INILISTADOS XTRYERRORPROCESAR ESTADO_RELXOKOEXERRORNOMENSAJE USERVALUEMESSAGEOCOLLREINDEXAR_TABLAS RESPUESTA ESTADO_INCACTCUEN 43listados Procesando CCf...HSU CfDIARIOGCfCONCEPTO CfCONC2 CfDIAG2 2Cr_(xejercicio,xEjercon_Abierto) 2Cr_C()BUXARCHIVO XEJERCICIOXEJERCON_ABIERTO ESTADO_INCLISTADOS 4 Ta%C4 T NTC% S TN+a$TCIndexo ? (s/N)NS%STS!  %NTN!%S LF Q( % JC La tabla CCf( no se puede abrir en modo exclusivo !!! %CxMSGFullbC'T  C C Z: CCfBU XARCHIVO XPATHFORZADOXOK PUB_INDEXPREGUNTOIDXCDXAAAPREGUNTAOERRORXFLAGMENSAJEXMSGFULLP_CODEMP 4%CC%SG!(GI C%Sa; (INDEX ON &campo TO &xarchivo COMPACT GI BUCAMPOXARCHIVOIDXCDXFILE_LOCXTTS~4 TaT\% S TN+a$TCIndexo ? (s/N)NS%STS! %NTN!%Ss#1DO errores WITH ERROR(),xok%CC֪I FCQF QON ERROR &onerr BUXARCHIVOXOKP_PRIV PUB_INDEXPREGUNTOIDXCDXAAAPREGUNTA TC %CpreguntobCJTN%CidxcdxbCxTS%CxttsbCTN TaTC% S TN+a$TCIndexo ? (s/N)NS %SLTS! %N|TN!%S#1DO errores WITH ERROR(),xok%CC֪ FCQF QON ERROR &onerr BU XARCHIVOXPATHP_SYSTEMPREGUNTOIDXCDXXTTSXOK PUB_INDEXAAAPREGUNTA 4%CCT\%SG!(GI C%Sw; )INDEX ON &campo TO (xarchivo) COMPACT GI BUCAMPOXARCHIVOP_PRIVIDXCDXFILE_LOCXTTS 4%CCT\%SG!(GI C%Sw; )INDEX ON &campo TO (xarchivo) COMPACT GI BUCAMPOXARCHIVOP_SYSTEMIDXCDXFILE_LOCXTTS4 o%CidxcdxbCNTS%CCfk%CCg%Sc%>ALTER TABLE (ALIAS()) ADD PRIMARY KEY &campo TAG &xarchivo _G!(%C!!INDEX ON &campo TAG &xarchivo [0INDEX ON &campo TAG &xarchivo FOR &forclause (% BUCAMPOXARCHIVO FORCLAUSE XPRIMARIOOEXIDXCDXXXXARCHP_ACTUALIZACION_VIEJOS%Ccuentas#FQF T 1aaa=1QcuentascuentaON ERROR &onerr %BT \pagcue.ges @ Ta1ok=.F.T  T c%  T +   EC  %C4w> C  >C  errorT   T +   XEC %C4$> C >C  CerrorT   T +   EC %C4> C >C  errorT  T \reccue.ges @T% T +   EC %C4> C >C  errorT   T +   EC %C4w> C >C  errorT  FQ\saldoscuentaF Q \questionquestF<G('<  Cdd dd7 T+T0TJ0(F#) T c T  T T T+C+ _ T C!\C!\C!C\C!@\C!D\C!A\C!B\C! \C!\C!<\C!=\%S  >"-  >"a T#-'%C!\S  T  T $T  T T %T C&Z T#a'%C!\S  TT$T TT%TC&Z T#a'%C!\S  u TT $T  T T %T C&Z T#a'%C!<\S  > TT$T TT%TC&Z T#a%# F' E$%C4 >$$F T!T(CS+(W ,T(CCC(gZT($T(C%TC(N[T(CSHT \atrcan.gesD(atrcan* T T T T <)*3*ddd#) T  T T+C+  T#-'%C!%\S  $ T  T* $T*  T* T* %T* C&Z T#a'%C!$\S  TT$T TT%TC&Z T#a'%C!=\S  TT$T TT%TC&Z T#a%# F' E$%C4 >$$FH T) T TT \pagcue.gesD(pag*T \reccue.gesD(rec*$C X3ON ERROR &onerr %CcuentasFQ,ft05aBU.CUENTASAAACUENTAXDTEMPP_SERVEROKTEMP PAGMAXEFE PAGMAXCHP PAGMAXOTRMAXAPAGEFEDEBITOCREDITOPAGCHPPAGOTR RECMAXEFE RECMAXOTHRECOTHRECEFEP_PRIVP_SYSTEMQUESTPAG PAGMAXCHEPAGCHEATRCANZBCDTXPATRIBUTOMODIFICSICOD_CUEDESCRMONEDASALDOSPOS RECMAXCHERECCHEFOR DNLD_CUENTASFT05 4TC.cdxH3 l0R,:TRATANDO DE HACER UN LOCK EN CCfTC+CX 5R, El archivo Cf esta en uso !!! T-  X r Y ^ #1DO errores WITH ERROR(),xokX 2qCTRL.PRGError desconocido. Archivo = Cf Error = CC@z 999,999,999_BUERROR1XOKXARXARCHIVOZXXXARCHREPORTE%CidxcdxbC*TS%CxttsbCVTN%CxpackbU T-,%S N CC  (%TCerror T1 xerrpack=1( \tmp\ctrl%{ON ERROR &xonerror S \tmp\ctrlON ERROR &xonerror %CidubCG>C]C XG BU IDXCDXXTTSXPACKALLOEXXONERRORXERRPACKP_LOCALIDUFORx 4 1aaa=1i1ON ERROR &onerr 1ALTER TABLE (xxxarch) ADD PRIMARY KEY &xclave BUXXXARCHXCLAVEAAABUqTCLIENTES TaCLIENTES%L C%+ val(cod_cli)CODIGO%nombreNOMCLI&cod_cliCODCLI- inscripcio INSCRIPCIO)fantasiaFANTASIAiduIDU ` CG(BUXXXARCHXOKUSAR DELE_TAG_ALLP_CLINUMTAGINFORMTSUCURSAL TaSUCURSAL% C>CZ0cod_cli+str(sucursal)IDiduIDU  C G(BU XXXARCHXOKUSAR DELE_TAG_ALLIDCOD_CLISUCURSALALLTAGINFORMNTTVENTAS TaTVENTAS%) C2str(pedido)+cod_insPEDIDO1pend+cod_ins+bul+atrPEND"pedidoPED3str(pedido)+str(itm)PEDITM%presupPRESUP = CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTVENTAS TaVENTAS% C&pedidoven_ord- fac_ven+causaVEN_FAC+ dtos(fec_ven)FECHA&rem_venREMITO%%SG'cod_cli+dtos(fec_ven)+str(val(cod_ins))CLIENTE =cod_cli+dtos(fec_ven)+cod_insCLIENTE4cod_cli+dtos(fec_ven)CLIFECEcod_cli+cod_ins+dtos(fec_ven)CODIGO CAUSA='V'3str(pedido)+str(itm)PEDITM#fec_venFEC6fac_ven+causa+str(itm)CPBTITM#fec_entENT  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_COMPATIBILIDADP_NUMINSINFORM9TBIENES TaBIENES% CJC val(cod_ins) cod_ins6COMPRA compra='S'IC val(cod_ins) cod_ins6VENTA venta='S' IC val(cod_ins) cod_ins6PANOL panol='S' JC val(cod_ins) cod_ins6PRODUC produc='S''codalt1CODALT1'codalt2CODALT2'codalt3CODALT3'codalt4CODALT4%F+ val(cod_ins)CODIGO v&cod_insCODIGO%descrDESCINS1cod_insCODINSiduIDU.left(descr2,30)DESCR2%barrasbarras%modelomodelo%dmarcadmarca#marcamarcadundun'cod_procod_proactact ( CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGP_NUMINSP_IDX_BIENES_UNICOINFORMTTCCVENT TaTCCVENT%v C>C]C X&pedidoTCCVORD-pedidoPEND est_desp<4idID'est_despESTADO%oripedORIPED+ update_dt update_dt'ref_extREF_EXT  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLIDFORTAGINFORMTCCVENT TaCCVENT% C, fac_ven+causaCCVFAC%pedidoCCVORD9dtos(fec_ven)+causa+fac_venFECHA5cod_cli+fac_ven+causaCOMPROB( causa+fac_venID=rem_venREMITOval(right(rem_ven,8))#0%estadoESTADO+ facturado FACTURADO%8 fac_ven+causaNO_DESP !despachado%ZB dtos(fec_ven)ASIDIAasidia=0.and.causa#'R'#rem_venREM#fec_venFECrefREF  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAG P_MULTIDEPP_ASIDIAINFORMbTCUENTAS TaCUENTAS% C&cod_cuecuenta#descrdescr#abrevABREVٯiif(right(cod_cue,8)=repl('0',8),'A','B')+iif(right(cod_cue,6)=repl('0',6),'A','B')+iif(right(cod_cue,4)=repl('0',4),'A','B')+iif(right(cod_cue,2)=repl('0',2),'A','B')+cod_cueORDENsubstr(atributo,5,1)='S'  C TaF Q%= C&cod_cuecuenta#descrdescr#abrevABREVٯiif(right(cod_cue,8)=repl('0',8),'A','B')+iif(right(cod_cue,6)=repl('0',6),'A','B')+iif(right(cod_cue,4)=repl('0',4),'A','B')+iif(right(cod_cue,2)=repl('0',2),'A','B')+cod_cueORDENsubstr(atributo,5,1)='S' Q CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM_CUENTASqTPROVEEDO TaPROVEEDO%L C%+ val(cod_pro)CODIGO%nombreNOMBRE)fantasiaFANTASIA&cod_proCODPRO- inscripcio INSCRIPCIOiduIDU ` CG(BUXXXARCHXOKUSAR DELE_TAG_ALLP_PRONUMTAGINFORMTTCOMPRAS TaTCOMPRAS% C#ordenORDEN4str(orden)+str(itm)ORDENITM6str(sol)+str(item,3) SOLICITUD+ pend+cod_insESTADO%I4cod_cue+dtos(fec_com)PRESUP+ dtos(fec_com)FECHA<cod_ins+atr+bul+dtos(fec_com)ULTCOM+cod_ins+atr+bulART  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_PRESUPINFORMTCOMPRAS TaCOMPRAS% C%ordenCOM_ORD=fac_com+causa+cod_pro+str(op)COMPROB+ dtos(fec_com)FECHA/left(desc_ins,20)descr;cod_pro+dtos(fec_com)PROV CAUSA='C''pagoPAGOpago#0opOP%4cod_cue+dtos(fec_dgi)PRESUP,str(op)+str(pago)ID<cod_ins+atr+bul+dtos(fec_com)ULTCOM8str(sol)+str(solitm,3) SOLICITUD2ref+str(refitm,3)REFORDEN)importacIMPORTAC+cod_ins+atr+bulART  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_PRESUPINFORMETTCCCOMP TaTCCCOMP%  C%ordenTCCCORD6ordenPENDpend#"N".and.orden#0.str(orden)+pendESTADO&pend PENDIENTE%fec_comfecha 4 CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTATRIBS TaATRIBS% C)atributoATRIBUTO%cuentaCUENTA1cuenta+str(atributo,3)ID  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORM{TCCCOMP TaCCCOMP%V C$ordenCCCORD=fac_com+causa+cod_pro+str(op)COMPROB9dtos(fec_com)+causa+fac_comFECHAopOPJ)dtos(fec_dgi)+dtos(fec_com)+causa+fac_comFECHASUB'pagoPAGOpago#0!flagflag&cod_procodpro*fac_com2+causaid2%&4opASIDIAasidia=0.and.pago=0,str(op)+str(pago)ID j CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_ASIDIAINFORMTCHEQUES TaCHEQUES%[ C&numeroCHE_VEN4codigo+comprob+causaCOMPROB=codigo+dtos(dif_valor)+des_valCHEQUE%des_valdescr.cod_cue+des_valCUDESC1cod_cue+STR(NUMERO)CUNUM;str(numero,10)+str(subnum,2)IDCHEQ.recno()BORRADOSdele()5cod_cue+dtos(dif_valor)CUDEP7cod_cue+str(caj_pro,14,2)CUIMPiduIDU o CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTINFOS TaINFOS%p C(desc_lisNOM_INF  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMNTCOSTOS TaCOSTOS%) C&cod_cencodigo#descrdescrwYiif(righ(cod_cen,4)=repl('0',4),'A','B')+iif(righ(cod_cen,2)=repl('0',2),'A','B')+cod_cenORDENiduIDU = CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTCONDCOBR TaCONDCOBR% C!planPLAN#descrdescriduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM6TVEN_OPER TaVEN_OPER% C3str(ingtes)+cod_cliVEN_OPE?!dtos(fecha)+cod_cli+causa+comprobFECHA& voperacioOPER%reciboRECIBO5cod_cli+comprob+causaCOMPROB-numeroNUMEROtipo="1"ddif_valor+val(horas)DEPOSITO/tipo="1".and.causa="D".and.dif_valor>=date()-10Fcod_cli+dtos(dif_valor)+des_valCHEQUEtipo="1"Cstr(numero,10)+str(subnum,2)IDCHEQtipo="1"%e0dtos(fecha)+causa+comprob+cod_cli+str(voperacio)ASIDIAasidia=0.and.causa#'L'!fechaFEC* comprob+causaCPBT<cuenta+tipo+propio+debitadoADEBITAR=str(numero,10)+str(subnum,2)IDCHEQUE% dif_valorDIF"numeroNUM4cuenta+str(numero,10)CUENUM % CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_ASIDIAINFORMTCONDPAGO TaCONDPAGO% C!planPLAN#descrdescriduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOM_OPER TaCOM_OPER%o C?!dtos(fecha)+cod_pro+causa+comprobFECHA& operacionOPER#opagoOPAGO5cod_pro+comprob+causaCOMPROB-numeroNUMEROtipo="1">cod_pro+dtos(dif_valor)CHEQUEtipo="1"Cstr(numero,10)+str(subnum,2)IDCHEQtipo="1"= dif_valorVENCtipo='1'.and.propio='S'%DopagoVALES!numero#0.and.tipo="2".and.usado=0Zstr(numero)+str(opago,10)MAXVALE!numero#0.and.tipo="2".and.usado=0%e0dtos(fecha)+causa+comprob+cod_pro+str(operacion)ASIDIAasidia=0.and.causa#'L'2cod_pro+dtos(fecha)PAGMEN<cuenta+tipo+propio+debitadoADEBITAR* comprob+causaCPBT=str(numero,10)+str(subnum,2)IDCHEQUE% dif_valorDIF"numeroNUM4cuenta+str(numero,10)CUENUM  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGP_VALESP_ASIDIAINFORMTCONVER TaCONVER% C%transfCONVER) dtos(fecha)FECHA*cau+ref REFERENCIA6str(transf,12)+str(item,3)MOV#ordenORDEN5refREM_PENDcau='r'.and.!baja)despachodespacho+ facturado facturado:str(orden,12)+str(refitm,3)REF_OC)importacimportac/cau+ref2+cod_proremito)aprobadoaprobado'cod_procod_pro  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORM"TCONVER2 TaCONVER2% C%transfCONVER!flagflag#flag1flag1%id_extid_ext#fechafecha  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTQUESTION TaQUESTION% C!ordQUEST)preguntaPREGUNTA)atributoATRIBUTO  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTAGENTE TaAGENTE% C%+ val(cod_age)CODIGO%nombreNOMAGE&cod_ageCODAGEiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLP_AGENUMTAGINFORMTFLETES TaFLETES% C%+ val(cod_fle)CODIGO%nombreNOMFLE&cod_fleCODFLE!cuitCUIT  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLP_FLENUMTAGINFORMTOPAGOS TaOPAGOS%m C#opagoOPAGO  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTRECIBOS TaRECIBOS% C)operacioOPERACIO%reciboRECIBO%ingtesINGTES  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTIDX04 TaIDX04%k C#fechaidx04  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTIDX02 TaIDX02%k C#fechaIDX02  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCCOFAB TaCCOFAB%o C%ordfabCCOFAB  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTR04 TaTR04%t C$cod_insTR040componente+cod_insPARTEiduIDUA$cod_ins+bul+atr+componente+cbul+catrFULL%p,cod_ins+bul+atrTR04;componente+cbul+catr+cod_insMPARTE  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAG P_MULTIDEPINFORMTCOMUNIC TaCOMUNIC%q C%codigoCODIGO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM6TDEPOSITO TaDEPOSITO% C)depositoDEPOSITO#descrDESCR0central+depositoCENTRAL(centralCENTRAL1iduIDU % CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCENTRAL TaCENTRAL% C'centralCENTRAL#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMNTSTOCK TaSTOCK%) C6codigo+bul+atr+depositoCODIGO/codigo+bul+atrARTICULO8deposito+codigo+bul+atrDEPOSITO%barrasbarrasdundun = CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM:TSTKXCOD TaSTKXCOD% C>CZ? codigo+str(prioridad,2)+depositoCODIGO0 deposito+codigoDEPOSITO idID" codigoCOD ) C G(BU XXXARCHXOKUSAR DELE_TAG_ALLIDCODIGO PRIORIDADDEPOSITOALLTAGINFORMlTPED_DEP TaPED_DEP%G C`destino+str(pedido)DESTPED-tipo="P".and.cancelado#"S".and.!dele() unique`destino+str(pedido)DESTENV-tipo="E".and.cancelado#"S".and.!dele() uniqueXdestino+str(pedido)DESPED&tipo="P".and.cancelado#"S".and.!dele()Xdestino+str(pedido)DESENV&tipo="E".and.cancelado#"S".and.!dele()_origen+str(pedido)ORIGPED-tipo="P".and.cancelado#"S".and.!dele() unique,pedidoNUMERO!dele() [ CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM\TDESPACHO TaDESPACHO%7 C<cod_ins+bul+atr+dtos(fecdesp)CODIGO9despacho+cod_ins+bul+atrDESPACHO$despachoDSP1cod_ins+bul+atr CODBULATRiduidu K CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMANUAL TaMANUAL%o C%topicoTOPICO  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORM,TIMPORTAC TaIMPORTAC% C%numeroNUMERO.numeroPEND cerrada#"S"#descrdescrCcerrada+str(numero,10) PENDIENTE cerrada#"S"  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOM TaCOM% CopOP- comprob+causaCOMPROB  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSALDOS TaSALDOS%p C&cod_cueCUENTA  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTLEGAJOS% TaLEGAJOS% C%legajoLEGAJO%nombreNOMBREiduIDU  CG(BUXXXARCHP_VALESXOKUSAR DELE_TAG_ALLTAGINFORM2TDESP TaDESP%  C)despachoDESPACHO%pedidoPEDIDO%remitoREMITO+ factura+causaCAUSA)conformeCONFORME ! CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORM TBULTOS TaBULTOS% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTATRIBUTO TaATRIBUTO% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMpTMOVSTOCK TaMOVSTOCK%K C9codigo+bul+atr+dtos(fecha)CODIGO) dtos(fecha)FECHA1codigo+dtos(fecha)CODFEC!horaHORA, numero+causaCOMPROB9numero+causa+str(item,4)PRIMARIO3codigo+bul+atr+despachoCOD6codigo+bul+dtos(fecha)CODBULF6codigo+ATR+dtos(fecha)CODATRFE*numero+causa+str(item,4)+deposito+despachoPK _ CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTCCCLIE TaCCCLIE% C>CZ0 asientoASIENTO causa='L' cod_cli+dtos(venc)VENCr(causa='L'.or.causa='V'.or.causa='c'.or.causa='d') .and. ref+cau+str(cuo)=comprob+causa+str(cuota) .and. cancel={}* comprob+causaCPBT@ cod_cli+comprob+causa+str(cuota)COMPROB; cod_cli+ref+cau+str(cuo) REFERENCIA يcod_cli+iif(causa='P','Z','A')+DTOS(FECREF)+ref+cau+str(cuo)+IIF(comprob+causa+str(cuota)=ref+cau+str(cuo).OR.ALLTRIM(REF+CAU)='','A','B')PORFACC يCOD_CLI+IIF(CAUSA='P','Z','A')+DTOS(FECREF)+REF+CAU+STR(CUO)+IIF(comprob+causa+str(cuota)=ref+cau+str(cuo).OR.ALLTRIM(REF+CAU)='','A','B')PORFACP cancel={}c Ccod_cli+iif(causa='P','Z','A')+dtos(fecha)+comprob+causa+str(cuota)PORFECCl Ccod_cli+iif(causa='P','Z','A')+dtos(fecha)+comprob+causa+str(cuota)PORFECP cancel={} fcod_cli+ref+cau+str(cuo)+ iif(cod_cli+ref+cau+str(cuo)=cod_cli+comprob+causa+str(cuota),'A','Z') TEST% g dtos(call)CALL@(causa='V'.or.causa='d').and.ref+cau=comprob+causa.and.cancel={}3 cod_cli+dtos(cancel)CODIGO% cancelCANCEL idID iduIDU) asitipo2ASITIPO2  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_CLICOMPROBCAUSACUOTAALLTAGP_CALLINFORMTCCPROV TaCCPROV% C">CZC Z0 asientoASIENTO causa='L' cod_pro+dtos(venc)VENCٝ(causa='L'.or.causa='C'.or.causa='c'.or.causa='d'.or.causa='1'.or.causa='2') .and. ref+cau+str(cuo)+str(opr)=comprob+causa+str(cuota)+str(op) .and. cancel={}H (cod_pro+comprob+causa+str(cuota)+str(op)COMPROBD !cod_pro+ref+cau+str(cuo)+str(opr) REFERENCIA ٥cod_pro+iif(causa='P','Z','A')+DTOS(FECREF)+ref+cau+str(cuo)+str(opr)+IIF(comprob+causa+str(cuota)+str(opr)=ref+cau+str(cuo)+str(opr).OR.ALLTRIM(REF+CAU)='','A','B')PORFACC ٧COD_PRO+IIF(CAUSA='P','Z','A')+DTOS(FECREF)+REF+CAU+STR(CUO)+str(opr)+IIF( comprob+causa+str(cuota)+str(opr)=ref+cau+str(cuo)+str(opr) .OR.ALLTRIM(REF+CAU)='','A','B')PORFACP cancel={}k Kcod_pro+iif(causa='P','Z','A')+dtos(fecha)+comprob+causa+str(cuota)+str(op)PORFECCt Kcod_pro+iif(causa='P','Z','A')+dtos(fecha)+comprob+causa+str(cuota)+str(op)PORFECP cancel={} lcod_pro+ref+cau+str(cuo)+str(opr)+ iif(ref+cau+str(cuo)+str(opr)=comprob+causa+str(cuota)+str(op),'A','Z') TEST3 cod_pro+dtos(cancel)CODIGO% cancelCANCEL idID iduIDU* comprob+causaCPBT) asitipo2ASITIPO2  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_PROCOMPROBCAUSACUOTAOPALLTAGINFORMTAYUDA TaAYUDA%i C!keyCLAVE } CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTSOLCOM TaSOLCOM% C>str(sol)+str(item,3) SOLICITUD ok#"S"  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSOLCOM2 TaSOLCOM2%q C%sol SOLICITUD  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSTKXDEP TaSTKXDEP% C? codigo+bul+atr+deposito+despachoCODIGO6codigo+bul+atr+depositoCODDEP*codigo+bul+atrCOD  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSTKXDSP TaSTKXDSP% C6codigo+bul+atr+despachoCODIGO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOSXCUE TaCOSXCUE% C-centro+cod_cueCENTRO-cod_cue+centroCUENTA  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTnumfac Tanumfac% C%ptovtaptovta#descrdescriduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcfg_lis Tacfg_lis% C#listaListaiduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTLISPREC TaLISPREC% C:codigo+bul+atr+str(lista,2)CODIGOC#codigo+bul+atr+str(lista,2)+cod_cliLISXCLI  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTROT TaROT% CB#str(pedido,12)+str(bulto,5)+cod_insROTULO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTROTNOENT TaROTNOENT%{ C-str(pedido,12)PEDIDO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOMPROMI TaCOMPROMI% C7id+str(itm,3)+codigo+bul+atrID0pend+codigo+bul+atrPEND  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCCPRODUC TaCCPRODUC% C#ordenORDEN,ordenPEND !terminada  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPRODUC TaPRODUC%m C#ordenORDEN  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMBU75TA010592 Ta#1DO errores WITH ERROR(),xokTCaON ERROR &onerr % C"A4NUM_USR A1CLAVEiduIDUA3A3  & CG(BU AUXXXXARCHXOK OSECURITY SEC_TABLE_GET DELE_TAG_ALLTAG SEC_TABLE_PUTINFORMTPERMISOS Tapermisos% C,descr+str(cod)descr0str(cod)+nombreCOD_PERMcodcod!descrdsc  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTCHQANU Ta\chqanu% C4cuenta+str(numero,12)CHEQUE' dtos(hoy)fecha  CG(BUXXXARCHXOKUSARP_COMMON DELE_TAG_ALLTAGINFORMTPAISES Tapaises% C%codigoCODIGO#descrdescr!cuitcuit0STRTRAN(CUIT, "-")CUITN  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTPROVINC Taprovinc% C%codigoCODIGO#descrdescrcodCOD  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTEMPRESAS Taempresas% C%codigoCODIGO#descrdescr  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMmTBATCH Tabatch%H C \ CG(BUXXXARCHXOKUSAR DELE_TAG_ALLINFORMTMOTINV Tamotinv% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTDISTRIB Tadistrib% C&numeroCOMPROB#fechaFECHA  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTFORMULAS Taformulas%u C'formulaFORMULA  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM\TCCFORMUL Taccformul%7 CiduIDU'formulaFORMULA-codigo+bul+atrCODIGO#descrDESCRScodigocodens.esensamble=1 AND activa="S" AND EMPTY(bul+atr) K CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMeTPRODUCCI Taproducci%@ C>C]C X!prodPROD) dtos(fecha)FECHA!pendPENDidID)batchcieBATCHCIE%semiopSEMIOP T CG(BUXXXARCHXOKUSAR DELE_TAG_ALLIDFORTAGINFORMTSTKXDSP TaSTKXDSP% C6codigo+bul+atr+despachoCODIGO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM %aTULTCOS Taultcos% C2cod_ins+dtos(fecha)CODIGO) dtos(fecha)FECHA7codbulatr+dtos(fecha) CODBULATR  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCODXPRO TaCODXPRO%u C)codigo+cod_insID  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTCODXCLI TaCODXCLI%u C)codigo+cod_insID  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTFACCRED TaFACCRED% C#ref+cauREF+numeroPENDestado=0%numeroNUMERO#fechaFECHA  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTMARCAS TaMARCAS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTCK_CC TaTCK_CC% C$desdeNUMERO6dtos(fecha)+str(caja,1)CIERRE  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTCK_CLI TaTCK_CLI% C%codigoCODIGO#descrdescr  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTCK_CCC TaTCK_CCC% C* str(codigo)CODIGO'asientoASIENTO7str(codigo)+str(ticket)COMPROB0str(codigo)+str(ref)REF.ticketRECIBO importe<0idID5dtos(fecha)+str(ticket)FECHA"codigoCOD  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMBUACTCUENTREMXFAC TaREMXFAC% C'facturaFACTURA%remitoREMITO%pedidoPEDIDO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCHQ TaCHQ% C%numeroNUMERO2str(numero)+str(subnum)ID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCESION TaCESION% C5cod_cli+comprob+causaCOMPROB  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTRECLAMOS TaRECLAMOS% C>CZ idID iduIDU  oldVENC  C G(BU XXXARCHXOKUSAR DELE_TAG_ALLIDCOD_CLICOMPROBCAUSACUOTAALLTAGINFORMTCCCNOTAS TaCCCNOTAS%k CidID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTZONAS TaZONAS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMOTIVOS TaMOTIVOS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCATCLI TaCATCLI% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCATPRO TaCATPRO% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSUCPROP TaSUCPROP% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTGRUPOS TaGRUPOS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSprGrupo TaSprGrupo% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTLINEAS TaLINEAS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOMPROM TaCOMPROM% C& id+str(itm)IDcodCOD2cod+bul+atr+dep+dspCODIGOpckPCK  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSALXSUC Ta!clientes\cel\SALXSUC%v CidID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM*TVEN_ENC Ta!clientes\cel\ven_enc% CidIDgidGIDM.str(causa,1)+letra+str(sucfac,4)+str(numero,8)NUMERO#fechaFECHA  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTVEN_DET Ta!clientes\cel\ven_det% CidIDgidGID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTINGRESOS Ta"clientes\cel\ingresos% CidIDgidGIDiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTEGRESOS Ta!clientes\cel\egresos% C)fechadgiFECHADGIgidGIDiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTALONARI Ta"clientes\cel\talonari% C- sucdestino SUCDESTINOidID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCODBULAT TaCODBULAT%y C+ codbulatr CODBULATR  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOMPPROD TaCOMPPROD% C0id+cod+bul+atr+aplCLAVEidID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTSERDET Ta CLIENTES\CEL\SERDET%z C#serieSERIE  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMmTCOS TaCOS%H C0codigo+atr+bul CODATRBUL9codigo+bul+atr+dtos(fecha)CODIGO>codigo+bul+atr+lote+dtos(fecha)CODLOT0codigo+bul+atr+loteLOTE- comprob+causaCOMPROB \ CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOSMAN TaCOSMAN% C9codigo+bul+atr+dtos(fecha)CODIGO>codigo+bul+atr+lote+dtos(fecha)CODLOT  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTFORINCOS TaFORINCOS% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCHEPRO TaCHEPRO% C%cuentaCUENTAiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHCUE Tacashcue%s C'cod_cueCUENTAS  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHADIC Tacashadic% C7str(tipo,2)+str(subtipo,2)TIPO*idu+dtos(fecha)ID  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM1TCASHCANC Tacashcanc% C6idu+str(cuota,2)+str(ano,4)IDD(idu+str(clase,2)+str(cuota,4)+str(ano,4)ID2opOP- comprob+causaCOMPROB & CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM)TCASHEXPA Tacashexpa% C;idu+str(cuota,2)+str(ano,4)COMPROBG,idu+dtos(fecha)+str(cuota,2)+str(ano,4)+provIDD(idu+str(clase,2)+str(cuota,4)+str(ano,4)ID2 CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHDATA Tacashdata%j CT4str(emp)+codigo+comprob+causa+str(cuota)+str(numero)COMPROB0recno()borrado deleted()G)str(emp)+cuenta+str(num,10)+str(subnum,3)valorQ5left(comprob,10)+str(clase,2)+str(cuota,4)+str(ano,4)ID2 ~ CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHCAN2 Tacashcan2% CQ5left(comprob,10)+str(clase,2)+str(cuota,4)+str(ano,4)ID2  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHTIPO Tacashtipo% C5str(tipo,1)+str(subtipo,2)ID  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHPRON Tacashpron% C7str(tipo,2)+str(subtipo,2)TIPO  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCLIAUX Tacliaux% C- comprob+causaCOMPROB%Nombrenombre!Cuitcuit  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPROAUX Taproaux% C!cuitCUIT%nombreNOMBRE  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPROAUX Taproaux% C!cuitCUIT%nombreNOMBREopOP  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPLANVARC Taplanvarc%k CidID  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM  %C xEjerciciobL? TTDIARIOG C% FQejerconFTCEjerconO%C ~C -CCfCCfC% 'FQ V H # R%Cdiariog}FQ abrir_tablas_fijasBU XEJERCICIOXEJERCON_ABIERTOXRNXXXARCHABRIR_TABLAS_FIJASEJERCON R2_DIARIOGDIRDIARIOGCERRAR_TABLAS_FIJAS  %C xEjerciciobL? TTDIAG2 C% FQejerconFTCEjerconO%C ~C -CCfCCfC% %FQ T F # P%Cdiag2yFQ abrir_tablas_fijasBU XEJERCICIOXEJERCON_ABIERTOXRNXXXARCHABRIR_TABLAS_FIJASEJERCONR2_DIAG2DIRDIAG2CERRAR_TABLAS_FIJAS+,%C\C \diariog.dbf0$G(\C Ta&diariog\C% 4T Procesando CC - Diariog...f  C1asientoASIENTO asiento#-1=asi_maASI_MAasiento#-1 .and.tipo#'A']4cod_cue+dtos(fecha)+transform(asiento,'99999999999')CUENTA ASIENTO#-1T,dtos(fecha)+transform(asiento,'99999999999')FECHA ASIENTO#-1kBcod_cue+codigo+procli+dtos(fecha)+transform(asiento,'99999999999')CODIGO ASIENTO#-1B comprob+cauCOMPROBtipo='A'.and.ASIENTO#-1/cod_cue+dtos(fecha)CUE%id_extID_EXT  C G(U XEJERCICIOP_SERVERXOKUSAROESTADOTEXTO DELE_TAG_ALLTAGINFORM^*%C\C \diag2.dbf0WG(\C Ta$diag2\C%3 2T Procesando CC - Diag2...f  C1asientoASIENTO asiento#-1=asi_maASI_MAasiento#-1 .and.tipo#'A']4cod_cue+dtos(fecha)+transform(asiento,'99999999999')CUENTA ASIENTO#-1T,dtos(fecha)+transform(asiento,'99999999999')FECHA ASIENTO#-1kBcod_cue+codigo+procli+dtos(fecha)+transform(asiento,'99999999999')CODIGO ASIENTO#-1B comprob+cauCOMPROBtipo='A'.and.ASIENTO#-1/cod_cue+dtos(fecha)CUE9str(asiento)+STR(version)asi_ver%id_extID_EXT G C G(U XEJERCICIOP_SERVERXOKUSAROESTADOTEXTO DELE_TAG_ALLTAGINFORM  %C xEjerciciobL? TTCONCEPTO C% FQejerconFTCEjerconO%C ~C  -CCfCCfC% (FQ W I # S%CconceptoFQ abrir_tablas_fijasBU XEJERCICIOXEJERCON_ABIERTOXRNXXXARCHABRIR_TABLAS_FIJASEJERCON R2_CONCEPTODIRCONCEPTOCERRAR_TABLAS_FIJAS  %C xEjerciciobL? TTCONC2 C% FQejerconFTCEjerconO%C ~C -CCfCCfC% %FQ T F # P%Cconc2yFQ abrir_tablas_fijasBU XEJERCICIOXEJERCON_ABIERTOXRNXXXARCHABRIR_TABLAS_FIJASEJERCONR2_CONC2DIRCONC2CERRAR_TABLAS_FIJASm-%C\C \concepto.dbf0[G(\C Ta'concepto\C%7 5T Procesando CC - Concepto...f  C1asientoASIENTO asiento#-1#tipo2TIPO2 K C G(F BU XEJERCICIOP_SERVERXOKUSAROESTADOTEXTO DELE_TAG_ALLTAGINFORMEJERCON*%C\C \conc2.dbf0G(\C Ta$conc2\C%g 2T Procesando CC - Conc2...f  C1asientoASIENTO asiento#-19str(asiento)+STR(version)asi_ver#tipo2TIPO2 { C G(F BU XEJERCICIOP_SERVERXOKUSAROESTADOTEXTO DELE_TAG_ALLTAGINFORMEJERCONTDESPFLET Tadespflet%w C)despachoDESPACHO  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTRET_PROV Taret_prov% C9str(tipo,2,0)+str(numero,10,0)ID- comprob+causaCOMPROB  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPER_PROV Taper_prov%v C( causa+str(op)OP  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOMI_ART Tacomi_art% CiduIDU4cod_age+cod_ins+bul+atrFULL  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTVE_TRANS Tave_trans%r CiduIDUG(COD_CLI+TRANSFORM(PEDIDO,"999999999999")CODIGOE'COD_CLI+TRANSFORM(TRA_NUM,"9999999999")TRANS'tra_numTRA_NUM%pedidoPEDIDO- comprob+causaCOMPROB  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOS_CIE Tacos_cie%o C#fechaFECHA  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMaquinas TaMaquinas% C%codigoCODIGO#descrDESCRiduIDU#grupogrupo  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMaq_grp TaMaq_grp% C%codigoCODIGO#descrDESCRiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTForm_Cal TaForm_Cal%u C'formulaFormula  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTForm_Pas TaForm_Pas%u C'formulaFormula  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMITForm_Gen TaForm_Gen%* C'formulaFormulaiduIDUH'STR(formula,10)+codcomp+bulcomp+atrcompformcompN'STR(FORMULA,10)+CODCOMP+BULCOMP+ATRCOMPPredetPredet=1 > CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMToperario Taoperario% C%codigoCODIGO#descrDESCRiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplan_maq Taplan_maq% CiduIDU'ope_iduOPE_IDU'maquinaMAQUINA'ope_codOPE_CODDSTR(maquina,10)+STR(orden,3)MAQORD estado<20;STR(maquina,10)+STR(orden,3)MAQOLD!planplan  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplan_mad Taplan_mad% CiduIDU!planplan4plan+cod_ins+bul+atrCOMBINA  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplan_ope Taplan_ope% CiduIDU)plan_iduPLAN_IDU'maquinaMAQUINA'ope_codOPE_COD  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM-Tplan_dia Taplan_dia% CiduIDU'maquinaMAQUINA=STR(maquina,4)+TTOC(fec_ini,1)MAQINI=STR(maquina,4)+TTOC(fec_fin,1)MAQFIN " CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOMPPLAN TaCOMPPLAN% C0id+cod+bul+atr+aplCLAVEidID!PlanPLAN  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTprot_esp Taprot_esp% C.COD_INS+BUL+ATRCODIGOiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTprot_ana Taprot_ana% C'ANA_NUMANA_NUM'MOV_NUMMOV_NUMiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTprot_det Taprot_det% C'ANA_NUMANA_NUMiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMbTRPTPARAM Tarptparam%= CidID:RPT_ID+TTOC(PAR_FECHA,1) RPT_IDFEC%RPT_IDRPT_ID+ Par_Fecha Par_Fecha!tipotipo'Par_usrPar_usr Q CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTFETKACT TaFETKACT% CKSERVICIO+CUIT+TTOC(VALIDEZ,1)SE_CU_VA .NOT.novalido  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTUSER_LOG Tauser_log% C) id+STR(tip)IDTipidID- comprob+causaCOMPROB+ equipo_id equipo_id+ sesion_id sesion_idusrusr#fechafecha0comprob2+causa2COMPROB2  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTcccob Tacccob% C7dtos(fecha)+causa+comprobFECHA- comprob+causaCOMPROB  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTccpag Taccpag% C7dtos(fecha)+causa+comprobFECHA- comprob+causaCOMPROB%id_extID_EXT  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM)Tplan_Gen Taplan_Gen%  C4Plan+Combina+GEN_CODID_Full@COMBINA+GEN_COD+GEN_BUL+GEN_ATRComb_Gen'CombinaCombina!PlanPLAN  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHPROV Tacashprov% CIDUIDUMESMES  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHPROC Tacashproc% CIDUIDUMESMES  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTUNIDADES Taunidades% C%codigoCODIGO#descrDESCRiduIDU  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTEQUIPOS TaEQUIPOS% C%CODIGOCODIGO%NOMBRENOMBREIDUIDU  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTEQUser TaEQUser% C;STR(USUARIO,3)+STR(EQUIPO,3)IDFullIDUIDU  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTCATPRO2 TaCATPRO2% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCATPRO3 TaCATPRO3% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTRUBROFAC TaRUBROFAC% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTVLOCALE TaVLOCALE% C">CZC ZC idID' asientoasiento  C G(BU XXXARCHXOKUSAR DELE_TAG_ALLIDUNZFECHAALLTAGINFORMTVLOCALD TaVLOCALD% Cidid#desdedesde  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMmTLOCKS Talocks%H C%equipoEQUIPO1SESION+STR(EQUIPO)EQ_SES1STR(EQUIPO,3)+TABLAEQ_TB%SESIONSESION#TABLATABLA1Str(EMP,3)+TABLAEMPTABLA \ CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMBTLOCKSOLD Talocksold% C%equipoEQUIPO1SESION+STR(EQUIPO)EQ_SES1STR(EQUIPO,3)+TABLAEQ_TB%SESIONSESION#TABLATABLA 1 CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTPROD_GEN Taprod_gen%x C* OP+COMBINAID_FULL  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCHP Tachp% C>#cuenta+str(numero,10)+str(subnum,2)ID9str(asiento,10)+dtos(fecha)ASFEC  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTBARRAS Tabarras%w C-codigo+atr+bulCODIGO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTTARJETAS Tatarjetas% C%codigoCODIGO#descrDESCR  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMGTACUERDOS TaACUERDOS%" C%codigocodigo#descrDESCRiduIDU+ prioridad PRIORIDAD!dcliDCLI!dfecDFEC 6 CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTASM_DETA TaASM_DETA% C'asi_modASI_MODF'ALLTRIM(grupo)+ALLTRIM(SubGrupo)+nombreGRUPOS  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTASM_FORM TaASM_FORM% C'asi_modASI_MOD)conceptoCONCEPTO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTASM_MAST TaASM_MAST%u C'asi_modASI_MOD  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTASM_PASE TaASM_PASE% C;STR(asi_mod)+STR(asi_pase)ASM_PASE  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplan_nuv Taplan_nuv% Ciduidumadmadmaqmaq9cod_plan+atr_plan+bul_plancodigo  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplan_opd Taplan_opd% Ciduidu'ope_codope_cod'ope_iduope_idu  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTpro_adi Tapro_adi%r C&cod_procodpro  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTIn_Falta TaIn_Falta%w C)codigo+atr+bulid  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTitm_desc Taitm_desc% C4comprob+causa+str(item,4)id  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTEMPUSER TaEMPUSER% C'usuariousuario'empresaempresaIDUidu  CBUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORM/Tejercon Taejercon% Cdirdir#descrDESCRidIDiduIDU#desdedesde#hastahasta $ CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTiva_ven Taiva_ven%t C( comprob+causaid  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtarj_cie Tatarj_cie%u C'cod_procod_pro  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTesolcom Taesolcom% Csolsol%estadoestado  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTdsolcom Tadsolcom% Csolsol0str(sol)+STR(itm)solitm6str(pedido)+str(peditm)peditm  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcash2p Tacash2p%z C0recno()borrado deleted()  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcashuse Tacashuse% C+ equipo_id equipo_id0generargenerar generar>0  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCOSVEN TaCOSVEN% C9codigo+bul+atr+dtos(fecha)CODIGO  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTmedidas Tamedidas% C%codigoCODIGO#descrDESCR#abrevABREViduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM Tprod_for Taprod_for% C'formulaformulaopop*opOPMOD for_tipo=2+opOPORIG for_tipo=1  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTform_maq Taform_maq%d C'formulaformula%predetpredet!tipotipoiduidu-grp_codgrp_codtipo=1-maq_codmaq_codtipo=20formulaform_prepredet=1 x CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcomppaux Tacomppaux% C0id+cod+bul+atr+aplCLAVEidID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTARMADOR TaARMADOR% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCodEspec TaCodEspec% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcash2i Tacash2i% CF)LEFT(TIPO,1)+STR(VAL(STUFF(TIPO,1,1,"")))TIPOJ)left(tipo,1)+str(val(stuff(tipo,1,1,"")))BORRAR2I  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTbul_gen Tabul_gen% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTbul_geng Tabul_geng% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTbul_genl Tabul_genl% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTatr_gen Taatr_gen% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTatr_genl Taatr_genl% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTatr_geng Taatr_geng% C>, cod_ins+claveCODIGO#cod_insCODidIDiduIDU  C G(BU XXXARCHXOKPUSAR DELE_TAG_ALLIDCOD_INSCLAVEALLTAGINFORMTtextos Tatextos% C%codigocodigo#descrdescriduIDU  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTartxcli Taartxcli% C'cod_clicod_cli2cod_cli+cod_ins+atr+bulid  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTSYSMSG TaSYSMSG% CidID#fechafecha+ id_suceso id_suceso  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTSYSMSGUE TaSYSMSGUE% CidID#fechafecha+ id_suceso id_suceso  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTSYSMSGUA TaSYSMSGUA% CidID#fechafecha+ id_suceso id_suceso  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTSYSMSGUS TaSYSMSGUS% CidID#fechafecha+ id_suceso id_suceso  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTinvmode Tainvmode% Ciduidu%codigocodigo#descrdescr  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTinvmodd Tainvmodd%q C%codigocodigo  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTmtz_prod Tamtz_prod%s C%transftransf  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTctasbanc Tactasbanc% C%codigocodigo#descrdescr'cod_cuecod_cue  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTstops Tastops% C)stop_codstop_cod#descrdescrIDUIDU  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORM=Tprodstop Taprodstop% C)stop_codstop_cod'ope_iduope_idu!prodprodY6PADL(ALLTRIM(STR(prod))+" / "+ALLTRIM(STR(cierre)),12) prodcierre , CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTform_res Taform_res% Ciduidu'formulaformula  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTcos_adet Tacos_adet% C- fac_ven+causacomprob7fac_ven+causa+STR(itm)ComprobIA fac_ven+causa+STR(itm)+STR(itm2)ComprobF CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMDTmonilog2 Tamonilog2% C)tipo_logtipo_logIDUIDU- ID_Interno ID_Interno#FechaFecha9TTOC(Fecha,1)+iduResp Tipo_Log=13 3 CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTMSGXUSER TaMSGXUSER% C!TIPOTIPO'SUBTIPOSUBTIPO'UsuarioUsuario:STR(tipo,3)+STR(subtipo,3)TIPOSUB   CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMNTPlan_Uso TaPlan_Uso%) C%InicioInicio!ItemItem!CombCombIduIdu,Comb+STR(Item)Combi) TTOD(Fecha)Fecha = CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORM@TIIBBP TaIIBBP% CC$cuit+DTOC(fvdesde,1)+DTOC(fvhasta,1)FFSEEK!FPUBFPUB'FVDesdeFVDesde'FVHastaFVHasta!CUITCUIT / CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORM@TAGIPP TaAGIPP% CC$cuit+DTOC(fvdesde,1)+DTOC(fvhasta,1)FFSEEK!FPUBFPUB'FVDesdeFVDesde'FVHastaFVHasta!CUITCUIT / CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTenvases Taenvases% C%codigoCODIGO#descrDESCR#abrevABREViduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTbancos Tabancos% C%codigoCODIGO#descrDESCR#bancoBANCOiduidu  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTtipodoc Tatipodoc% C%codigoCODIGO#descrDESCRiduidu  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTcos_acom Tacos_acom%m C- fac_ven+causaComprob7fac_ven+causa+STR(itm)ComprobIA fac_ven+causa+STR(itm)+STR(itm2)ComprobF7cod_pro+com_comp+com_cauCompraC#cod_pro+com_comp+com_cau+STR(itm_c)CompraF  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTDRETPROV Tadretprov% C( comprob+causaID5ref+cau+str(cuo)+str(opr)REF  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMANT_STK TaMANT_STK%t C&cod_insCODINS  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTimp_tran Taimp_tran% Csolsol5STR(sol)+STR(solitm)ORDENITM%importimport.cod_ins+atr+bulcodigo   CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORM*T planifica Ta planifica%  Ciduidu'periodoperiodo#fechafecha#descrdescr/periodoactiva activa>=1  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTrec_tal Tarec_tal% Ciduidupvpv2STR(pv)+STR(codigo)codigo  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcos_cpre Tacos_cpre% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTensamble Taensamble% C- comprob+causacomprob2comprob+causa+str(itm)itm  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTartxpro Taartxpro% C'cod_procod_pro2cod_pro+cod_ins+atr+bulid  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMOTCOSIMP TaCOSIMP%* C="codigo+bul+atr+dtos(fecha)+cod_proID-codigo+bul+atrCODIGOiduIDU- comprob+causaCOMPROB* causa+comprobCPBT > CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTIIBBPROV TaIIBBPROV% CG,comprob+causa+str(provincia,2)+str(codigo,1)ID- comprob+causaCOMPROB  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTIIBBPERE TaIIBBPERE% CA&cod_cli+str(provincia,2)+str(codigo,1)ID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTped_proc Taped_proc% C+ fecha_ges fecha_ges)ctrl_gesctrl_ges)ctrl_venctrl_ven  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTco_er Taco_er% Cidid7str(linea,10)+str(id,6,2)idlin  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMOT co_er_datos Ta co_er_datos%* C5str(id,6,2)+str(periodo,6)idL-str(id,6,2)+str(periodo,6)+cuenta+str(emp,10)idfullU4str(id,6,2)+str(periodo,6)+cuenta+str(emp,10)+centroidcentro > CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTfle_tipo Tafle_tipo% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTIIBBRET TaIIBBRET% CA&cod_pro+str(provincia,2)+str(codigo,1)ID  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHPROM Tacashprom% CIDUIDUMESMES  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTCASHPROP Tacashprop% CIDUIDUMESMES  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTiva_com Taiva_com% Copop!pagopago  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTpr_cie Tapr_cie% C!prodprod)batchciebatchcie#idcieidcie  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT historial Ta historial% C'id_tipoid_tipoidid#fechafechausrusr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTusuarios Tausuarios% C%codigocodigo#descrdescriduidu  CBUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTitmdescc Taitmdescc% C4comprob+causa+str(item,4)id  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTlocalcfg Talocalcfg% C+str(usr)+str(id)pk6str(usr)+str(id)+str(cpbt)pk2  CBUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTbieaux Tabieaux% Ciduidu"codigocod  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtsp_tsps Tatsp_tsps% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtsp_cami Tatsp_cami% Ciduidu%codigocodigo#descrdescr'patentepatente  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtsp_trai Tatsp_trai% Ciduidu%codigocodigo#descrdescr'patentepatente  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtsp_chof Tatsp_chof% Ciduidu%codigocodigo#descrdescr+ documento documento  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcosult Tacosult% C-codigo+atr+bulcodigo- comprob+causacomprob  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMKTtsp_asig Tatsp_asig%, C<!cliente+str(viaje,12)+dtos(fecha)id#fechafecha#viajeviaje'facturafactura5factgnt+str(gnt,12,2)factgnt @ CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtsp_luga Tatsp_luga% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT sch_gastos Ta sch_gastos% Ciduidu)vendedorvendedor#fechafecha  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTsch_gastos_conc Tasch_gastos_conc% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTsch_gastos_cpbt Tasch_gastos_cpbt% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTsch_gastos_clase Tasch_gastos_clase% Ciduidu%codigocodigo#descrdescr  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTarmado Taarmado% C%pedidopedido%armadoarmado  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTccarmado TaCCARMADO% C%armadoarmado#fechafecha%pedidopedido%consolconsol  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtrrec Tatrrec%{ C3STR(f1,2)+STR(f2,8)+f3CPBT  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTciecaje Taciecaje% Cidid'asientoasiento  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTciecajd Taciecajd%i Cidid } CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTciecajv Taciecajv%i Cidid } CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcierres Tacierres%i Cidid } CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTForm_est TaForm_est% C'formulaFormula7str(formula)+str(estado)estado  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTprod_est Taprod_est% C!prodprod4str(prod)+str(estfab)estado  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcliotros Tacliotros%u C'cod_clicod_cli  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtarj Tatarj% C%codigocodigo#descrdescr'cod_cuecod_cue  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTtarjregl Tatarjregl%s C%codigocodigo  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTreservas Tareservas% C1comprob+causa+str(itm)id3str(pedido)+str(peditm)itm  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTve_altas Tave_altas% C- comprob+causacomprob2comprob+causa+str(itm)itm  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcatcred Tacatcred% C%codigocodigo#descrdescriduidu  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTFECOTCom TaFECOTCom% C#fechafecha- secuencial secuencial'archivoarchivohoyhoy  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTciecajp Taciecajp%i Cidid } CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplandtos Taplandtos% C%codigocodigo#descrdescr#desdedesde  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTatrhabil Taatrhabil% C#claveclave#descrdescriduIDU  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTepresup Taepresup% C%numeronumero#fechafecha'cod_clicod_cli  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTdpresup Tadpresup% C%numeronumero/str(numero)+str(itm)id  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTpro2 Tapro2%l C&cod_procodpro  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMT pd_consol Ta pd_consol% C%consolconsol%pedidopedido  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTpr_otros Tapr_otros% Cprodid6str(pedido)+str(peditm)peditm  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTclimail Taclimail%r C&cod_clicodcli  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTpromail Tapromail%r C&cod_procodpro  CG(BUXXXARCHXOKPUSAR DELE_TAG_ALLTAGINFORMTarmadol Taarmadol%q C%armadoarmado  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTdepmin Tadepmin% C/deposito+cod+atr+bulid)depositodeposito  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTdpredesp Tadpredesp% C%numeronumero#fechafecha%pedidopedido  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTepredesp Taepredesp% C%numeronumero#fechafecha&cod_flecodfle  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTciecajpd Taciecajpd%k Cidid  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTmailcola Tamailcola% C4intentos Pendientes estado<10IDID  CBUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORM>TAGIP TaAGIP% CC$cuit+DTOC(fvdesde,1)+DTOC(fvhasta,1)FFSEEK!FPUBFPUB'FVDesdeFVDesde'FVHastaFVHasta!CUITCUIT - CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTcat_com Tacat_com%q C%codigocodigo  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTnumrec Tanumrec% C%codigocodigo#descrdescriduidu  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTte_anu Tate_anu%r C( comprob+causaid  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTasist Taasist% C%pedidopedido- asistencia asistencia  CBUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT BIENES_FAST Ta BIENES_FAST% C'codalt1CODALT1%descrDESCINS&cod_insCODINSiduIDU%modelomodelo%dmarcadmarca'cod_procod_proactact%barrasbarras1cod_ins+atr+bul CODATRBUL  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT DESPOTROS Ta DESPOTROS%y C)despachodespacho  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTEPROT TaEPROT%i C!prodprod } CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTDPROT TaDPROT%i C!prodprod } CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMailCtas TaMailCtas% C%codigocodigo%nombrenombreiduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTMailAsig TaMailAsig% Ciduidu%codigocodigo)cod_mailcod_mail3str(codigo)+STR(usr)codusr  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTseguim TaSeguim%w C- comprob+causacomprob  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT bienes_busq Ta bienes_busq% C!wordword&id+wordidword  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT pd_demoras Ta pd_demoras% C%codigocodigo#descrdescr  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMT cligruece Ta cligruece% C%codigocodigo#descrdescr  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT cligruecd Ta cligruecd% C%codigocodigo'cod_clicod_cli  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTstockg Tastockg%w C-codigo+atr+bulcodigo  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORM]Tstkxdepg Tastkxdepg%8 CK)codigo+atr+bul+deposito+despacho+str(emp) CODIGOEMP? codigo+atr+bul+deposito+despachoCODIGO6codigo+atr+bul+depositoCODDEP*codigo+atr+bulCOD L CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTpickings Tapickings% C%pedidopedido'pickingpicking  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTsectores Tasectores% C%codigocodigo'cod_clicod_cli  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTco_func Taco_func% C%codigocodigo#descrdescr  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTpdfindex Tapdfindex% C& & & $& C ZC  Z & &  C G(BU XXXARCHXOKSUSAR DELE_TAG_ALLIDUFECHACAUSACOMPROBIDREVISIONEMP FILESTOREINFORM TCPDFStore T Ta% C& & &   $&  C ZC  Z &  C G(BUXFILEXPATHXXXARCHXOKSUSAR DELE_TAG_ALLIDUFECHACAUSACOMPROBIDREVISIONEMPINFORMTpsolcom Tapsolcom% C:str(sol)+STR(itm)+STR(itmp)solitm-str(sol)+STR(itm)sol  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTcajas Tacajas% Ciduidu%codigocodigo#DescrDescr  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPlantillas_XLS TaPlantillas_XLS% Ciduidu%codigocodigo'ID_FormID_Form  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMT Prop_predet Ta Prop_predet%_ Ciduidu%codigocodigo%NombreNombre1cod_ins+bul+atr codheader'cod_inscod_ins'Grupo GruHeader#GrupoGrupo s CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT Propiedades Ta Propiedades% Ciduidu%codigocodigo%NombreNombreScod_ins+bul+atr codheader"padre=0 .AND. .NOT. EMPTY(cod_ins)'cod_inscod_ins#OrdenOrdenGGrupo GruHeader padre=0 .AND. .NOT. EMPTY(grupo)#GrupoGrupo  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTPropiedades_Fast TaPropiedades_Fast% C& & & & &   &   &  iduidu% codigocodigo) DespachoDespacho' Cod_InsCod_Ins1 cod_ins+bul+atr CODHEADER8 cod_ins+bul+atr+DespachoCODFull# ValorValor  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLCODIGOIDUDESPACHOCOD_INSBULATR CODHEADERCODFULLVALORTAGINFORM 5 TNTS T-%CC s Q%C C Tr_TxOK=() &xFunc BUXTABLAXLLAMADAPREGUNTOIDXCDXXFLAGXOKXFUNCT dpickings Ta dpickings%o Cpckpck  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTplataformas_aux Taplataformas_aux% C'ref_extref_ext3plataforma+ref_Extref_full  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT tareas_estado Ta tareas_estado%} C& C Z&   CG(BU XXXARCHXOKSUSAR DELE_TAG_ALLIDCODEMPFULL_IDFECHAINFORMTventasd Taventasd%y C- comprob+causacomprob  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTestven Taestven% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTtcccompd Tatcccompd%q C#ordenORDEN  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTestimp Taestimp% C%codigoCODIGO#descrDESCRiduIDU  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMTsga_msg Tasga_msg% C%codigoCODIGOidID  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMT cfg_ventas Ta cfg_ventas% C%codigoCODIGO$codigoDESCRiduIDU  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMqTplataformas_config Taplataformas_config%L C6plataforma+logistic_tPlaLogic- plataforma plataforma; plataformaPlaSoloEmpty(Logistic_T)- logistic_t logistic_tiduIDU ` CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTrlocks Tarlocks%{ C1tabla+str(registro,10)id  CG(BUXXXARCHXOKSUSAR DELE_TAG_ALLTAGINFORMT dreclamos Ta dreclamos% Cidid%idcpbtidcpbt  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT ereclamos Ta ereclamos% Cidid&cod_clicodcli  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT cfg_lis_d Ta cfg_lis_d%m Cdtdt  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTeaprob Taeaprob% C%id_cadid_cadiduidu  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTdaprob Tadaprob%o C%id_cadid_cad  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMToaprob Taoaprob% CB str(tipo_oper,2)+str(id_oper,20) operacion%id_cadid_cad  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTbul_lis Tabul_lis% C%codigocodigo#descrdescr  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMTbul_dlis Tabul_dlis%s C%codigocodigo  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMT arts_prod Ta arts_prod%q C!prodprod  CG(BUXXXARCHXOKUSAR DELE_TAG_ALLTAGINFORMreindexar_monitorreindexar_emps reindexarprocesar usar indicepusar_susar(pindicesindiceTAGactcuenerrores* dele_tag_all%,primario\.INFORM. r_clientes/ r_sucursal0 r_tventas1r_ventasb3r_bienes6 r_tccvent3;r_ccvent= r_cuentasE@ r_proveedoC r_tcomprasE r_comprasG r_tcccomp;Kr_atribsLr_cccompM r_chequesPr_infosSSr_costos T r_condcobrU r_ven_operV r_condpago+[ r_com_oper8\r_convera r_conver2c r_questionTer_agenterfr_fletesgr_opagos$i r_recibosir_idx04 kr_idx02kr_ccofablr_tr04cm r_comunic?o r_deposito p r_centralyqr_stockr r_stkxcodt r_ped_depu r_despachoIxr_manualy r_importaczr_com |r_saldos| r_legajos}r_desp~r_bultosY r_atributo r_movstockr_ccclier_ccprovr_ayudaqr_solcom7 r_solcom2 r_stkxdep r_stkxdsp/ r_cosxcue r_numfac r_cfg_lis r_lisprecr_rot+ r_rotnoent r_compromi r_ccproducr_producINFORMr_010592Ɵ r_permisos\r_chqanur_paises r_provinc r_empresasr_batchr_motinv r_distrib r_formulas r_ccformuld r_producci r_stkxdspr_ultcosz r_codxproï r_codxcli r_faccredgr_marcasr_tck_cc r_tck_cli r_tck_ccc r_actcuen r_remxfacķr_chqݸr_cesionԹ r_reclamos r_cccnotasr_zonas r_motivos̽r_catcli۾r_catpro r_sucpropr_grupos r_sprgrupor_lineas" r_comprom/ r_salxsucm r_ven_enc? r_ven_det r_ingresos r_egresos r_talonari r_codbulat r_compprodr_serdetr_cosbr_cosman r_forincos#r_chepro4 r_cashcue r_cashadic r_cashcanc r_cashexpaT r_cashdata r_cashcan2t r_cashtipoi r_cashpronBr_cliauxr_proaux0r_proaux r_planvarc r_diariogr_diag2 r2_diariogr2_diag2 r_conceptoMr_conc2v r2_conceptor2_conc2] r_despfletW r_ret_prov$ r_per_prov. r_comi_art r_ve_trans r_cos_cie r_maquinas~ r_maq_grp r_form_cal r_form_pas r_form_genK r_operario r_plan_maq r_plan_mad r_plan_ope r_plan_dia r_comppland r_prot_esp| r_prot_anam r_prot_det~  r_rptparamh  r_fetkact  r_user_log r_cccobr_ccpag r_plan_gen r_cashprove r_cashprocG r_unidades) r_equipos4r_equserF r_catpro2G r_catpro3V r_rubroface r_vlocalev r_vlocaldr_locks r_locksold( r_prod_genr_chpv r_barras! r_tarjetas`" r_acuerdosR# r_asm_deta$ r_asm_form% r_asm_mast& r_asm_pase' r_plan_nuv( r_plan_opd) r_pro_adi* r_in_falta+ r_itm_descw, r_empuserO- r_ejercon_. r_iva_ven/ r_tarj_cie0 r_esolcomZ1 r_dsolcom@2r_cash2pg3 r_cashuse74r_cosven45 r_medidas6 r_prod_forE7 r_form_maq8 r_comppauxH: r_armador?; r_codespecN<r_cash2i_= r_bul_gen> r_bul_geng? r_bul_genlUA r_atr_genB r_atr_genlD r_atr_gengvEr_textosF r_artxcliGr_sysmsgH r_sysmsgueI r_sysmsguaK r_sysmsgus%L r_invmode;M r_invmoddKN r_mtz_prodO r_ctasbancOr_stopsQ r_prodstopR r_form_resS r_cos_adetyT r_monilog2U r_msgxuser;W r_plan_usoXr_iibbpZr_agipp[ r_envases]r_bancos7^ r_tipodoch_ r_cos_acomx` r_dretprovBb r_mant_stkCc r_imp_tran d r_planificaXe r_rec_talf r_cos_cpreg r_ensambleh r_artxproir_cosimpj r_iibbprov_l r_iibbpere}m r_ped_prochnr_co_ero r_co_er_datosp r_fle_tipo r r_iibbrets r_cashpromt r_cashpropt r_iva_comur_pr_ciev r_historialw r_usuariosx r_itmdesccy r_localcfgzr_bieaux{ r_tsp_tsps| r_tsp_cami} r_tsp_trai~ r_tsp_chofr_cosultT r_tsp_asigN r_tsp_lugaЃ r_sch_gastosۄr_sch_gastos_concr_sch_gastos_cpbtr_sch_gastos_clase r_armado; r_ccarmado%r_trrec[ r_ciecaje, r_ciecajd r_ciecajvэ r_cierres r_form_estO r_prod_estQ r_cliotrosJr_tarj r_tarjregl' r_reservas r_ve_altas r_catcred  r_fecotcom r_ciecajpL r_plandtos  r_atrhabil! r_epresup1 r_dpresupIr_pro2F r_pd_consol r_pr_otros r_climail r_promailՠ r_armadolr_depmink r_dpredespc r_epredespt r_ciecajpd r_mailcolaGr_agip= r_cat_comr_numreczr_te_anur_asistI r_bienes_fast9 r_despotros`r_eprot5r_dprot r_MailCtas r_MailAsigұr_seguim r_bienes_busq r_pd_demoras r_cligrueceݵ r_cligruecdѶr_stockgɷ r_stkxdepg r_pickings2 r_sectores( r_co_func r_pdfindex r_pdfstore] r_psolcomr_cajasr_Plantillas_XLS r_Prop_predet r_Propiedadesr_Propiedades_Fastllamado_externod r_dpickings}r_plataformas_auxHr_tareas_estadoZ r_ventasdKr_estven  r_tcccompd-r_estimp r_sga_msg r_cfg_ventasr_plataformas_config r_rlocks r_dreclamos r_ereclamosw r_cfg_lis_dfr_eaprob/r_daprobr_oaprob r_bul_lis r_bul_dlis r_arts_prodqqRRQB2qAqAqAB21qaaaA!qAQAAf!ARAAAqqB!1A41AAAAASqq1A1AaAqAAAAQqAA`AfBq2ARB22Q!AC2AAAAAAAAAAAqAAABB2CBaaAAAaAAB3qbAAAAAAAAAA1BAA1AA32AAABAAAAAAAAAA1BAA1AA2AbAaaAAAaAAA2AbAaaAAAaAAA21qABABaQAAAAA1AAA2qAA22AAQQQAAAQQAAAQQAAABQQAAAQQAAABqraq11AAqQAAqAqAqAqAqQAqA1A1AAAq1QqAqAqAqQAqABAAAA1qAA4B2q11AAARAB1AAA2AAAAqQ!2aAAbAAaaAA2q1A2A2QQAQaAaA7QQAAaA8AA!!1QAaA811baqAABR22b2AaA711qqqqaAQQQQ1qAaA7AAaqQsAaA711QQQA!A11AaA7AAa11QAa11QAbA7QQAQaAaA7QQ1AaAAAaA7AAQqAA!AaA7AAQaaQAaA211QAaB811AqaAAAaB7AAaAQQqAaB8!!AaB711a1qAaB7QQ1AaB7QQ1aQQAa1QAQ!AAaB8QQ1AaB7QQa1Q1AAQA!Q!AAaB711Qa1QqAaB2AAQ1Q1AaB7QQAaB711AQaAaB711AQaAaB8111AaB7AAQQAaB7!!1AaB7!!1AaB711QAaB7AAAaB7AAQAaB7QQ1AaB7AAq1AaB7!!aQAaB7AA!AaB7AAAaB7QQAAaB711QAaB7QQQ11AaB7AaB711aAaB7AAQQAAaB7QQAaB711!1AaB7QQ!1AaB7QQ1aaQAaB711  1 11qA1QAaB711! AQ  A1QAaB7!!AaB711AaB7AAQAaB7AAaAaB7AAaAaB7AAAaB111Q1AaB2AA1AaB7AA1AaB7!AaB7QQAaB7QQqAaB7QQ1AaB7111AaB7A6qA3R2!AaB6QQAaB21AqAaB211Q1AaB2AAQ1AaB2QQQ1AaB2!!AaB211Q1AaB2AAa1AaB2QQqAaB2QQq11AaB2QQQAaB2AAaAaB211!qAaBA2AAAaB2AAAaB2AA1Q1AaB211Q1AaB211AaAaA2AAQ1AaB2AAqqQ!AaA2qA2AAqQQAaB2Q!AaB211QAaB2QQAaB2QQAaB2!!Q1AaB2AAQ1AaB211Q1AaB211Q1AaB2AAQ1AaB211Q1AaB1QQQ1AaB311Q1AaB2AAa!AaA4AAaA3A1AaA2AAaA2Q!AaA2AAaA2Q!AaA2QQAaA2QQAaA211AaB2AaA211AaA2QQQ1AaB211QAaA2AAqAA2QQqAA2QQaAAA2QQqAAA2QQAqAA2QQAA2QQQAA2QQqAA211QAA211QAA211QAA2QQAA2qAAAqb!AaAqAAAqAA`A2qA!Aqb!AaAqAAAbqAA`A2qqaAAA!QAA2qqA!AA!QAA3qARAqb!AaAqAAAqAAA2qA"Aqb!AaAqAAAbqAAA2qqqQA1AAqA2qqA!A1AAqA3QQAA2QQAA2QQAA2QQAAA2QQqQqQAA2AA1AA2QQQ11AA2AAQ1AA3QQqAA2QQqAA2QQqAA3QQQ1AA3QQqqqAAA3QQAAA3QQqqAA3QQqAA3QQAaA3QQAA3QQqqAA2QQqAA2QQQqAaB2AAAaB2QQ1AaB2!!rAA2!!rQAA3QQAqAA3QQAA2QQAA2QQQ1AA2AAQQAaB211AaB2AAQ1AaB2AAQ1AaB3QQQ1AaB3AA!qAaB2AA1AaB2!!QQ1AaB2QQQQ1AaB3QQAaB3AaB311AaB3QQQ1AaB 1QQQ1AaB2QQqaAaB2QQqAaA2QQqAaA2QQAaA2QQAA2QQqqAA2AAaAA2QQAA2QQAAA3AAqqAA2AA111AA3AAAA3QQqAA3AAQAA3AAaAA211AA2AAAA211AaA2AAQ11AaA2QQqAaA2QQqQAaA2QQAaA2AAQ1AaB2QQQ1AaB211aAaB2AA!1AaB1QQ!1AaB1QQ!1AaB2AA!1AaB3QQ!1AaB3QQ!1AaB311Q1AaB2AAq!AaB1111AaB2QQ1AaB2QQ1AaB2QQ1AaB3AAQ1AaA2AAQAaA2QQQAaA1QQQ1qAaA2!!1AaB1QQqAaB1QQqAaB2QQqAaB2QQ1AaB2QQqqAaB3QQQAaB2!!1qqAaB2!!1qqAaB2AAQ11AaA311Q11AaA3AAQ1AaA3QQqq1AaA3QQQAA3QQaAA2QQQQAA2aaq11AA3AA!AA3QQQ1AA3QQ!AA3AAq!AaB211AaA2QQqAaA2QQAaA2QQAaA2!!qAaA2QQAaA2QQQ1AaB2AAAaA2QQAA2QQAA2AAAA3111AA3aaq1AA3QQQ1AA3QQAAA3QQaAA311"AA3QQQ1AA3QQQ1qAA3QQQ1qAA3QQQ1AA311AA3QQ11qQAA3QQQ1AA3qq1AA3Q1AA3Q1AA3Q1AA211TQAA2QQQ1QQAA2!!1AA2AAqAA2AAAA2AAAA2AAAA2QQqqAA2QQAAA2QQqAA2Q1qAaA2QQQAaA3QQ1AaA3QQ!AA3AAQ1AA3QQ1qAA2AAAA3QQQ11AaA4QQ11AaB3AAQ1qAaB4AAQAaB3aAaB2aaQQAaB2QQaAaB2AAaAaB2AAaAaB2AAQAA311AA3QQQ1QAA2QQQ1aAA2QQAA2QQAAA31qqAaB2AAQAA311Q1AA311AA3!!QAA4qQaQQqQAaA2aaAaA2!!AaA2!!AaA3QQQQAaA2QQQ1AaA211AaA2aAaA2qqQ1AaA2aaQ1AaA2aaQqAaA211AaA2QQaAaA2QQQqAaA2QQQqAaA2AAQ1AaA3QQ!AAaA2!AAaA2AAAaA2!!Q1AaA2QqAaA2QQqq1AaA2QQ1q1q1AaA2aQq1AaA2A1A2aaAaA3q1AaA3qAaA2AAAaA311Q1AaB3QQ1AaB311Q1AaB3AAQAaB3qqQAAaB3aAaB311AaB3aaQAaB3aaaAaB3aaAaB311QAaB311QAaB311!QAaB3AAQ1AaB3QQQAaB3aaAaB2   %U(2i23377U9Kh9;a;>'>#@88@AIASDfhD]XWrX\n\ _0!__a__l`_bovbNdddffjjp pws svw':w{IU|j~lh~}ͅEZ7L/*&9ΖO *d+A9ZңrƦ &5?İRg0z1Dչk-=$M:'^?nXz1HkZ   E 0ag <v z H T bH n^= {R= S  t ! )4 H 0\ Co -{v     !"   /'   <   G   U   b t n" ~4 nH V h Xv n        , 8 Gs  S p!& a!u"6 o"}#F }#$V $%f %&v &' '( (* 2** *6, L,- 1-.  5.-/  D/"0 # 900 / 11 < 12+ H 2249 X G4A5J e X5I6X s ^6%7h ;77v 78 8: 1:g; ~;= (== >> >~? ?y@ @HA ]A3B  JBB BG7 GsLV] LXPv vPlT TZW wW4Z UZi\2 \^K ^_f _`r `pD S Ta tm >y  2x @ b $ #ɞ ۟%4C"UҤ5bCpS~ħިc3rJ>U   ",!0A6->WF>L\ MX ͹ZdۺfruYpD[Vx^r :$/%F?5 QA_LkZ"ziC$vF@bKlOd5L;Q./;H U,c9rGT0_kw5/Q{79('/7X`FU c8fs$2/Q;>FQS\sMhm>t^ * +].|=;.JRD[eal`~~( @  (/  5&  A  M L Xl 8dZ?q_E~e $ f'|97F2Ubq~8 OAX*H6bgCV Pn A!]Y!0" jE""v#~$$$j%4%V&Bl&<'PS'(_(*q*++,,- ./ /114646F?66 R7 8_489'l'995x9:C;;T;<c<=t=>?@@AABB}CCLDmDC]ostockXbultos   Xatributo    tripletes QCCCC қ CC қ(QCC  -C  C 66Q !"#$%&'(-Q) Q *Q*+Q+Q,Q-Q-.Q./Q/0Q01Q12Q23Q34Q4* 1Q5 FQ  FQ F5& & & BU6XNULL XCREARVISTAXBORRARODEYFUNCNEWFILE_LOCAL_TMPXCODINSOBIEDATA_CODIGO_VACIOCP_LOCALGESBULTOSFORINCOSATRIBUTOSTOCKBIENESCOD_INSCODINS ATRIBUTOSCLAVEATRC1BUL TRIPLETESIDUCODIGODESCR TIPOSTKMINBARRASDUNFACTORFACTORHCOD_CUESUBGRUPO UBICACIONCOSTOCOSMONSTK_MINSTK_MIN1STK_PEDCOSCLASEUPDACTIVOCODALTDESCRALTDEPOSITOACTU_PEMINBATCHTOXICOVENTADUNMULTEANMULTUVEN COMBINACIONES4Q\stock\ges TT C abmcombinaciones( |abmcombinacionesQ`select * from combinaciones where combinaciones.codigo == ?xcodigo order by combinaciones.codigo2CabmcombinacionesView SendUpdatesa9CabmcombinacionesViewBatchUpdateCount2CabmcombinacionesView CompareMemoa4CabmcombinacionesView FetchAsNeeded-0CabmcombinacionesView FetchMemoa2CabmcombinacionesView FetchSized4CabmcombinacionesView MaxRecords/CabmcombinacionesViewPrepared-3CabmcombinacionesView UpdateType4CabmcombinacionesView UseMemoSize<CabmcombinacionesViewTables combinaciones2CabmcombinacionesView WhereTypeC combinaciones (CrcCabmcombinaciones.C Field UpdateName combinaciones.C BCabmcombinaciones.C Field Updatablea9Cabmcombinaciones.iduField UpdatableaBU P_SERVERXCODIGOXCODINSOBIEDATA_CODIGO_VACIO OPENFILESABMCOMBINACIONESOEXACAMPOSNIT B UU <5 T-% -T\data\CCZ \stock.dbf%C0 Ta1txok=.f.FQG((codigoon error &onerr %CActualizar combinaciones T a T = trsac stockC tmp_dosstk6%  T H trsac abmcombinaciones.prgABM de Combinaciones% $ F~%C 'CbultoscodigoTTTTTTTT !T"#T$%T&'T()T*+T,-T./T01T23T45T6T78T9:T;<T=>T?@TABTCD%Cq_combQE#ostockDCq_combV>FFFFFFFFF! F#"F%$F'&F)(F+*F-,F/.FG0F32F54F6F87F:9F<;F>=F@?FBADCFF-DC TI J(Cstock.04%Cstock.CCJ/Cq_comb.CCJ/,ZTII CCJ/: CCq_comb.CCJ/K --> CCstock.CCJ/K2CF FM F: IL%>G+(proc_stk TOCFFMFP%CO COQ TF%F!EMR%C4 D>MMRRDC];>! #"%$'&)(+*-,/.G03254687:9<;>=@?F T HStrsac abmcombinaciones.prgABM de Combinaciones%T  KC>No se pudo completar la actualizacin de las combinaciones !!!QB% FQ%C combinaciones FQ#U\tmp\VW.dbf#U\tmp\VW.cdx ~ LC?No se pudo comenzar la transaccin (1) !!! Operacipon canceladaQB  LC?No se pudo comenzar la transaccin (2) !!! Operacipon canceladaQBUXPOABMCOMBINACIONESPOCOMBINACIONESTXOKP_DOSP_CODEMPXPDOSP_SYSTEM TMP_DOSSTKCODIGOSYS_MTRSACAAALOCK_GBEG_TRAN COMBINACIONESUPDBULCOD_INSX1 TIPOSTKMINX2BARRASX3DUNX4FACTORX5COD_CUEX6SUBGRUPOX7 UBICACIONX8COSTOX9COSMONX10STK_MINX11STK_PEDX12COSCLASEX13FORINCOSX14ACTIVOX15CODALTX16DESCRALTX17STK_MIN1X18VENTAX19X20EANMULTX21DUNMULTX22UVENX23ACTU_PEX24TOXICOX25MINBATCHXIDUIDUQ_COMBSTOCKDESCRFORXLOG_TXTZTOSTRINGLOGEAR_ABMCOMBINACIONESATRPROC_STKXMSGACTUALIZAR_ARTICULO_FACTORMENSAJEDEPOSITOEND_TRAN TTS_ERRORP_LOCALTHISFORMTMPFILE G .G(\log\log_abmcombinaciones.txtG %G;***********************************************************CC GG(BUXTXTXINICIOP_SYSTEMTCCxxbfH: CW B NTCCZ"C>(%C\0TC [ ! BC D BC* T9 BC LhBCSiNo6 2"BTipo  desconocidoBUXXXTXCZ?1%C   E>%b>CN S   N  S  -6z> C N N S   N  S  NC  S 66U STOCKBULBULTOSFACTORINP_BIE_ACTIVAR_COMBINACIONESACTIVOBIENESEST_ACTATRIBUTO ATRIBUTOSVENTA/%Cstockcodigo F > > >> C]> C a-6!> C SN6 > %C>UXCOD_INSXBULXATRXDEPXFACTORSTOCKCODIGOBULATRIDUACTIVOP_ART_COMB_ACTVENTAACTU_PEFACTORINabmcombinaciones%CTMPBIEF;Q'Separando artculos...a9obienesQS S tmpbiefAsys_procesando"Creando combinaciones de bultos...~SCF~  8"  abmbultos  FDsys_procesando%Creando combinaciones de atributos...~SF ~  % abmatributos  FAsys_procesando"Creando combinaciones de mixtas...'~S S F ~  % abmatributos  Fsys_procesando3C&Se crearon las combinaciones faltantesU OPENFILESABMCOMBINACIONESTMPBIEFSYS_PROCESANDOBIBIENES ATRIBUTOSBULTOS SP_MENSAJECOD_INSBUL_INICIALIZAR_COMBINACION ABMBULTOSCLAVEATRIBUTOATR_INICIALIZAR_COMBINACION ABMATRIBUTOSSP_OCULTAR_DEFINITIVAMENTEMENSAJEdummy openfiles crear_vista sugerir_no_num inicializar_registro7 hook_releaseBlogear_abmcombinacionestostringcomb_setear_valores_iniciales comb_buscar_crear@"comb_crear_faltantes# TT T T-T CombinacionesT combinacionesThlpT codigo T -T codigoT abmcombinaciones T - TFTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTC T T T T-   U DOS_TABLA DOS_COPIARP_ESPEJA_BUL_ATR_COMBP_ESPEJA_HABILITARTMPFILE VISTA_EN_DBTITULOTABLAIDCLAVE CLAVE_UNICAIDXCLAVE FORMULARIO VISTA_VISTAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1LOGFILE WINDOWTYPE SHOWWINDOW CERRAR_TABLASabm_combinacioneshlpabm2(qeqB3A2xAQAAAArAAraAeGqwWAAv1AA'qAAqAArA3tRB2B"!A!A1A!1!AB133q1AAR32uRqA rA1arAAA"d"!AAqQEApBrCAAqAAqAA21AAAA9baqAaaB2q1AAr!AAABBB!BA2AA2!A4qrQBAB3Arqq!AqACqqQAqAqqqQAqA11A11!!11101'2+\J>>B%6E67, 89=$:<b#<>r3>6DTk6%<"~pVTG(9 gesG_ G~(clases<%C OB-7 TTC abm_empresasN BU ACTIVEFORM DATASESSIONIDGESCLASES POABMEMPRESASVALIDA_EMPRESASXCODIGOSHOW%CA010592#FQ ges%CProvinc iFQ\Provinc%CEmpresas F Q \EmpresasDESCRFG(C-BUA010592GESP_SYSTEMDESCREMPRESASGESFORMVALIDAR_PRESENCIACODIGOaFG(%CZT-TTa U EMPRESASHLPABM2AGREGARTHISFORMVISIBLETHISCODIGO_AGREGARCODIGORELEASE%K5C(No se puede borrar la empresa activa !!!  T C T 1aaa=1)\data\CCZ\usr\*.**\data\CCZ \cpbt\*.**\data\CCZ \xchg\*.*)\data\CCZ\out\*.*%\data\CCZ\*.*$\data\CCZ\usr%\data\CCZ\xchg%\data\CCZ\cpbt$\data\CCZ\out\data\CCZon error &onerr %vC0No se han podido eliminar todos los archivos de \data\CCZ, debe eliminarlos manualmente.UP_CODEMPEMPRESASCODIGOMENSAJEXACODIGOAAAP_SYSTEMgT- CC C%`ft05U THISVISIBLEGESFORMEMPRESASRECARGAR GENERAR_MENUCODIGO_AGREGAR CREAR_EMPRESAFT05 %CEmpresas 6Q \Empresas#%C empresas.IDUbC JTCC4No esta creado el campo IDU en la tabla de empresas.C]1C$Se ha actualizado la tabla EMPRESAS! TF Ta1xOk=.F.Qges!abmempresasON ERROR &onerr T  abmempresas  C %C abmempresasF QFQBaU P_SYSTEMRESP MENSAJE_SINOXOKEMPRESASMENSAJEIDUALLXCODIGOGESTHISVIEW CREAR_VISTA ABMEMPRESAS  abmempresas 'T abmempresasQ=SELECT * FROM empresas WHERE empresas.codigo = ( ?xcodigo )-C abmempresasView SendUpdatesa4C abmempresasViewBatchUpdateCount-C abmempresasView CompareMemoa/C abmempresasView FetchAsNeeded-+C abmempresasView FetchMemoa-C abmempresasView FetchSized/C abmempresasView MaxRecords*C abmempresasViewPrepared-.C abmempresasView UpdateType/C abmempresasView UseMemoSize2C abmempresasViewTablesempresas-C abmempresasView WhereType<C abmempresas.codigoFieldDataTypeN(3)IC abmempresas.codigoField UpdateNameempresas.codigo6C abmempresas.codigoFieldKeyField-7C abmempresas.codigoField Updatablea<C abmempresas.descrFieldDataTypeC(60)GC abmempresas.descrField UpdateNameempresas.descr5C abmempresas.descrFieldKeyField-6C abmempresas.descrField Updatablea@C abmempresas .domicilioFieldDataTypeC(50)OC abmempresas .domicilioField UpdateNameempresas.domicilio9C abmempresas .domicilioFieldKeyField-:C abmempresas .domicilioField Updatablea=C abmempresas.ciudadFieldDataTypeC(30)IC abmempresas.ciudadField UpdateNameempresas.ciudad6C abmempresas.ciudadFieldKeyField-7C abmempresas.ciudadField Updatablea<C abmempresas.phonoFieldDataTypeC(50)GC abmempresas.phonoField UpdateNameempresas.phono5C abmempresas.phonoFieldKeyField-6C abmempresas.phonoField Updatablea=C abmempresas.cod_zipFieldDataTypeC(8)KC abmempresas.cod_zipField UpdateNameempresas.cod_zip7C abmempresas.cod_zipFieldKeyField-8C abmempresas.cod_zipField Updatablea?C abmempresas .provinciaFieldDataTypeC(1)OC abmempresas .provinciaField UpdateNameempresas.provincia9C abmempresas .provinciaFieldKeyField-:C abmempresas .provinciaField Updatablea;C abmempresas.cuitFieldDataTypeC(13)EC abmempresas.cuitField UpdateName empresas.cuit4C abmempresas.cuitFieldKeyField-5C abmempresas.cuitField Updatablea=C abmempresas.serverFieldDataTypeC(60)IC abmempresas.serverField UpdateNameempresas.server6C abmempresas.serverFieldKeyField-7C abmempresas.serverField Updatablea>C abmempresas.serverlFieldDataTypeC(60)KC abmempresas.serverlField UpdateNameempresas.serverl7C abmempresas.serverlFieldKeyField-8C abmempresas.serverlField Updatablea;C abmempresas.abrevFieldDataTypeC(3)GC abmempresas.abrevField UpdateNameempresas.abrev5C abmempresas.abrevFieldKeyField-6C abmempresas.abrevField Updatablea:C abmempresas.iduFieldDataTypeC(10)CC abmempresas.iduField UpdateName empresas.idu3C abmempresas.iduFieldKeyFielda4C abmempresas.iduField Updatablea:C abmempresas.menuFieldDataTypeN(1)EC abmempresas.menuField UpdateName empresas.menu4C abmempresas.menuFieldKeyField-5C abmempresas.menuField Updatablea;C abmempresas.iibbFieldDataTypeC(12)EC abmempresas.iibbField UpdateName empresas.iibb4C abmempresas.iibbFieldKeyField-5C abmempresas.iibbField Updatablea9C abmempresas.inicioFieldDataTypeDIC abmempresas.inicioField UpdateNameempresas.inicio6C abmempresas.inicioFieldKeyField-7C abmempresas.inicioField UpdatableaBU ABMEMPRESAS openfilesagregarEborrarunloadvalida_Empresas crear_vistaW m T-TEmpresasTempresasThlpTcodigo T- TPTDescrTNombreT descrT C T  T codigoT CdigoTcodigoTNT abmempresasTcodigo T T-   U DOS_COPIARTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 FORMULARIOIDXCLAVECODIGO_AGREGAR CERRAR_TABLAS abm_empresashlpabm2brqArB2qAAaAAqqAP1raC4A4aQQBQQA22aAB2bbH5A1# qAr1AqA2Aa1AqAArAr22AFA!aqqQaaqqQaqQAQaqqqQa11AQAQQAQaqB1RQ1!1!1111`P1N wR) i@ H@ Pph$ 1P%%2,V6s, YvU74    %C XT CX%C { T %C T 5 F%]G((codins%, E%C4  C TC4 A Ta% YB T T T %S T%S T Tproc_stkF%S C C 125689 % 1256Cproc_stk?proc_stk %Ca % 1256eCproc_stk?proc_stkBUXCODXBULXATRXDEPXCANXCAUXNUMXFECXITMXTIPXDSPXSEDXSEHXCOD2XBUL2XATR2BIENESCOD_INSCODINSERR_7ENC XDSP_LOCAL XSED_LOCAL XSEH_LOCALLOTESSERIES ACT_BIENESPROC_STKACT_MOVACT_STKREG_X_DESPACHOS 4F%dG((codins E%C4 ` C%125689>%34> %7> %59> %4L> %6y> BU XCODXCANBIENESCOD_INSCODINSERR_7XTIPCANT1INCANT2CANT334   T CF  C>C  C F BUCODBULTATRICANTDEPCAUNUMFECITMDSPSEDSEHAAAMOVSTOCKREG_LOCKCODIGOBULATRCANTIDADDEPOSITOFECHAUSR PUB_INDEXNUMEROCAUSAITEMDESPACHOHORA4F G((tr04G EG %C4 [ C%C4x TCO Ta+C+  *%    T-!H%, # T T  T  tE%C4| T  T  T  pE %C4 T  T T  lE %C4( T T  T  h # T T  T   T  T  T  BU TMP_COD_INSTMP_BULTMP_ATRTR04COD_INSERR_7REGTR04OKBULATRXCOD2XBUL2XATR2OBIEDATA_CODIGO_VACIO[4%C 0TCXFG((codigo5 TC%CDEPOSITOFG((depositoFG-(%CXG(CDEPOSITO+ $G(CDEPOSITO+  G EG T%CPSET FILT TO &aaa BUXCODXSUGXCENSTKXCODCODIGOAAADEPOSITOCENTRAL4%C 4TCXFG((codigo5 TC%CDEPOSITOFG((depositoFG-(%CXG(CDEPOSITO+ $G(CDEPOSITO+  G EG T+C+   T%w T!H%CSET FILT TO &aaa  BU XCODXDEPXOKXCENSTKXCODCODIGOAAADEPOSITOCENTRAL4%C 0TCXFG((codigoG EG <  T+C+  % TCOH%C+  FG((depositoFG-( #:%CDEPOSITO+ CCX  a6 T3T(C Z)   HG-(%k D&( T t C  6- cadena"Presione para seleccionar.9TCC \ @& %TCC\ listadosBUXCODXDEPXCENSTKXCODCODIGOCADENAZREGDEPOSITOCENTRAL PRIORIDADDESCRSCRAAAHLP_DEPLISTADOS{4%C 4TCX T TCM%$ $ proc_stk b%CX T# proc_stk%%"TDepsito invlido !!! T-B- %T TaBa  F G((depositoG EG +%C4CCX  a6  TaBa "TDepsito invlido !!! T-B- ^0T#Debe colocar un depsito vlido !!! T-B- TaBaU XCODXDEPXRESXCENMSGTECLAHLP_DEPPROC_STKXOK VAL_DEPXCODDEPOSITOCENTRAL45 TC$ TC^ TC$%%C=23 -TCC=C\CR -TCC=C\CRTCD BU NUEVAHORAAAABBBCCC P_MIN_HORA44%C2 T4%CM$CM$ $ $ FG((codigoG EG %C4listados .R, No tiene C @ definidos !!!T  TaB )% QFG((codigo E%C4y TaB MFG((codigoG EG %C4'T Tipo de Bulto invlido !!! T-B I.R, No tiene C @ definidos !!!T TaB %FG((codigoG EG %C4'T Tipo de Bulto invlido !!! T-B !.R, No tiene C @ definidos !!!T TaBBU RESULTADOXCLAVEXCODXTECLABULTOSCODIGOHLP_BULLISTADOSOBUL LABEL_PLURALMSGD4%C2 T4%CM$CM$ $ $ FG((codigoG EG %C4listados .R, No tiene C @ definidos !!!T  TaB 9% YFG((codigo E%C4y TaB UFG((codigoG EG %C4/T Tipo de C @ invlido !!! T-B Q.R, No tiene C @ definidos !!!T TaB 5FG((codigoG EG %C4/T Tipo de C @ invlido !!! T-B 1.R, No tiene C @ definidos !!!T TaBBU RESULTADOXCLAVEXCODXTECLAATRIBUTOCODIGOHLP_ATRLISTADOSOATR LABEL_PLURALMSG LABEL_LARGOs45'(CCtempcompOe%%CCtempcompOaBaB-UXATRZXATRMAXXATRARRC4 CBUXTIPOXCODXBULXATRXDEPABRIR_TABLAS_FIJAS SHOW_STOCK4$CInicio Show_StockG+(dey_func5 TCW%CxbulbLT %CxatrbLT %CxdepbLTCXC Aguarde...5 T C 5 T C 5 T CC]RGC Inicio shwstkCZ |  |  |  C Fin shwstk%CborrarQ%SM%Cproveedo Ta I T-FQproveedocodproHCInicio shwstkXCZ |  |  | C Fin shwstkX%%SP(CInicio arts_ordenados%CFin arts_ordenados)CInicio arts_produccion &CFin arts_produccionR T T #CInicio shw_n_get C C Fin shw_n_get%%Cborrar3\FQ%S% FQ%Cborrar1FQ%S%Cborrar2FQ ' T T%CborrarMFQ  \tmp\ .dbf \tmp\ .cdx  F C!CFin Show_StockBU XTIPOXCODXBULXATRXDEPLOG_TIMEDEY_FUNC ACT_ALIAS MENSAJE_WAITXBORRAR4NEWFILE_LOCAL_TMPXBORRAR3XCURSORSHWSTKBIENESCOMPRA XPROVEXISTPROVEEDOCODPROSHWSTKXARTS_ORDENADOSARTS_PRODUCCIONTEMPBULTEMPATR SHW_N_GETBORRAR3BORRAR1SERIESBORRAR2BORRARP_LOCAL MENSAJE_CLEARs 4"CInicio get_stk2,TCCbultos+ CbultosO60TCCatributo+ CatributoO6!CInicio STK_INI C C Fin STK_INIT  ʚ;T  ʚ;% SC Fin STK_INIF G((tr04G EG %C4  C%C4? TCO Ta+C+  *%    T-!H%%LC9Inicio No hay especializaciones, por lo tanto es generica #+C+   C ( CFHIC6FIN No hay especializaciones, por lo tanto es generica ;7C$Inicio Existe alguna especializacinE%C44+C+ !  C ( CFH E %C47+C+ $   C ( CFH E %C4`7+C+ $  \ C ( CFH  #:+C+ '    C ( CFH7C$Inicio Existe alguna especializacin <C)Inicio Artculo compuesto sin componentes3C&Artculo compuesto sin componentes !!! T- T T T  T%Cpedpend"FQ%Ctventas UFQtventas%Ctccvent FQtccventtccvord5C"Inicio Select recepcion as pedidosotventastccventC"Q#$$! % & ' '  pedpend2CFin Select recepcion as pedidos T#Q  "CInicio Get_Stk4(C Fin Get_Stk4F)%@ #F*%h #BU+XCODXBULXATRXSTKXCOMXPEDLOG_TIMEXRBULXRATRSTK_INIXSTKOXDISOBIENES COMPUESTOTR04COD_INSERR_7REGTR04OKBULATRGET_STK3 COMPONENTECBULCATRMIN_OMENSAJEOK_COMPXDISPEDPENDTVENTASTCCVENTTCCVORDSUM RECEPCIONPEDIDOSPEDIDOEST_DESPFCSTOCKGET_STK4BULTOSATRIBUTO4T ʚ;T 6eT 6eF TCOG((codins E%C4  C % S%  dF G((codigoE  '%C4    $ C %C4FT `T  F G((codigoE $%C4    C %C4 T T  T %S%  FG((codigoE  '%C4     C %C4T  T  FG((codigoE $%C4   I C %C4h T T  T F #%BUXXCODXCBULXCATRXSTKXCOMXPEDBIENESREGBIE2CODINSCOD_INSERR_7BULTOSTR04CBULCODIGO COMPONENTECLAVEXXBULXBUL ATRIBUTOSCATRATRIBUTOXXATRXATRGET_STK4-4FG((codigoGEG )%C4   C TC  6 T  T TC   6TC6FBUXCODXBULXATRXSTKXCOMXPED XTIPOFILTROSTOCKCODIGOBULATRERR_7CANT_PEDXCANDEPXCOMDEP CANCOMDEPi74    5 F%G((codins E%C4 C%SF G((tr04G EG %C4 C%C4l TCO T a+C+  *%   ~ T -!H%  #+C+  % !FH hE%C44+C+ ! % !FH dE %C447+C+ $  0% !!FH `E %C47+C+ $  % !FH \ #:+C+ '   XF% P!H 3C&Artculo compuesto sin componentes !!! T- ^ T-%C S!%*#Catributocodigo%O Ta% 7 I$% CxidbU ,T' T{T $- No se puede liberar el surtido de CCC  / C6CC  / C6 !!! E ZBU!XCODXBULXATRXDEPXCANXCAUXNUMXFECXITMXTIPXDSPXSEDXSEHOKBIENESCOD_INSCODINSERR_7 COMPUESTOTR04REGTR04BULATRREGISTSTK_ERRMENSAJEOK_COMPXES_ATR_SURTIDOATRIBUTOCLAVESURTIDO TTS_ERRORSTK_MSG F%C+ 5 TCO MT THo  C xsurt_codbL T T T  T  5 T   S T T T  T  5 T  TTF%C+  TCO TG((codins E%C4   C%S% FG((codigoE'%C4 q C%C4T T'x proc_stk.prgError de Stock.Debe estar definido  con C@  !!! TOT- Debe estar definido C con C@  !!! FG((codigoE$%C4  C%C4 T'u proc_stk.prgError de Stock.Debe estar definido  con C@  !!! TLT- Debe estar definido C con C@  !!! T % S-%! F"G((codigoE!'%C4!  C%C4T ! T'x proc_stk.prgError de Stock.Debe estar definido  con C#@ ! !!! TOT- Debe estar definido C con C#@ ! !!! ) %- T %F"G((codigoE $%C4   C%C4   = !T'u proc_stk.prgError de Stock.Debe estar definido  con C#@   !!! TJT- Debe estar definido  con C#@   !!! GT  F%o # %C+ #6H 2 T T T <% S   $ %7  T%] %$H & Y 'F% #  %C+ #6HBU( XSURT_COD XSURT_ATR XSURT_BUL XSURT_CANBIENESREGBIESTK_ERRXXCODXXBULXXATRXOLDCANXCAN COMPUESTOXCODXBULXATR XXTR04CANTR04CANTIDAD COMPONENTECODINSCOD_INSERR_7BULTOSCBULCODIGOCLAVE TTS_ERRORREPORTEOBUL LABEL_LARGOSTK_MSG ATRIBUTOSCATRATRIBUTOOATRSTK_TSTXTIPREGITEST  T%359%CX] % 5%CdeppriFQh1 \tmp\deppri C C C C CN NNF G((depositoF G((despachoFG((codigoG-( G-(    GEG 4+C+ !    \&% S S TF%-CS   a6 PE%S  S C  Lrdeppri            _BCS ,BA 6HFG-(F& F TF~`H%C3 5 9 6proc_stk C3 5 9 6 !" #$%proc_stk& C3 5 9 6 !" #$FTC3 5 9 6GTC3 5 9 6 \Mproc_stk  !" #$Q%proc_stk&  !" #$T T!%CdeppriFQ Y F' G((IDT)c`~(C*Z&C"Z!'+' '  , '- %)'-NT.'-T))'- r T.) T)>'-'-.Yproc_stk'+' ' '/.c !"'0#$T.%)U T1' T2T3- Error interno en comprom :C C C C  Artculo/Atr/Bul : C'+ / C'  / C' C C  Deposito : '/C C  Lote/Despacho : '0C C %4Q )CError interno !!! Suspendo?a5 % 5%Cdeppri FQh1 \tmp\deppri C C C C CN NNF G((depositoF G((despachoFG((codigoG-( G-(    GEG ?+C+ ,     6% SC6 Sa6 T%-CS   a6  C7 E%S  S C  rdeppri            _BCS ,BA 6H%CdeppriN $%C7 S Qrstkxdep    (C]drdeppri      FG-(F& F TF ~#%C7 S %H%C3 5 9 6proc_stk C3 5 9 6 !" #$%proc_stk& C3 5 9 6 !" #$GTC3 5 9 6GTC3 5 9 6 Mproc_stk  !" #$Q%proc_stk&  !" #$T T! Mproc_stk  !" #$Q%proc_stk&  !" #$T T!%CdeppriFQ %SF' G((IDT)c`~(C*Z&C"Z!'+' '  , '- ^%)'-T.'-T))'-  T.) T)>'-'-.Yproc_stk'+' ' '/.c !"'0#$T.%)T1' T2T3- Error interno en comprom (2):C C C C  Artculo/Atr/Bul : C'+ / C'  / C' C C  Deposito : '/C C  Lote/Despacho : '0C C %4)CError interno !!! Suspendo?a5 F8 G((itm"~*" 8- `%proc_stk&8+8 8 8 8-c !"8 #$\proc_stk8+8 8 8 8-c !"8 #$T8-%9%T3Error en control de lotes !!!C Art: C8+CC8  /C8 6CC8  /C8 6CC8  Lote: C8 6 Dep: C8 C 3:T1' F%SC  S P C Gproc_stk !"#$T %Clotesxit T1' T2:T3-- no est abierta la tabla de lotes/despachos F8 G((itm T/~*" 8- C8 3rproc_stk8+8 8 8 8-C6 !"8 #$+T8-C6+T8-C6%T1' T2T3F- No hay suficientes asignaciones de lotes/despachos para el artculo CCC /6CC /6BU;XACC XREGISTRADOSXTIPXDEPXCANXCURSORACCDEPPRIP_LOCALCODIGOBULATRDEPOSITODESPACHO PRIORIDADCANTIDADCANT_COMSTKXDEPXXCODXXBULXXATRCOMFACBIENESLOTESXDSPOLOTDATA_CODIGO_VACIOFECDESP REG_STOCKPROC_STKXCAUXNUMXFECXITMXSEDXSEHREGCOMXIDCOMPROMIDXA_BAJARITMCODOBIECANXBAJARDEPDSP TTS_ERRORSTK_ERRSTK_MSGP_DEVSYS_MOSTRAR_SCREENP_TEST_VERSION SYS_CONTSTKLOTESXITP_IN_CONTROL_LOTES ERROR_STKa" TF%G((codins% E%C4 x C TC4  Ta% BFG((codigo5% S     S oFG((codigoGE  G )%C4     n C%C4 .>  C]  C%C T T7  CC6F%C %S% O TT- No hay suficiente stock :C C C C  Artculo/Atr/Bul : C / C  / C C C  Stock : C 999,999,999_C C %B+%   TIT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C  >%> :>%%  TIT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C  % CX FG((codigoGE  G TC41%C4      u C T T T T % B>  !"C] 3+C+       CT#T$%"!T#T  $H% % TT- No hay suficiente stock :C C C C  Artculo/Atr/Bul : C / C  / C C C  Stock : C 999,999,999_C C % % ( %C"   TT- No hay suficiente stock :C C C C  Artculo/Atr/Bul : C / C  / C C C  Deposito : C C  Stock : C 999,999,999_C C  $   % %C" % TT- No hay suficiente stock :C C C C  Artculo/Atr/Bul : C / C  / C C C  Deposito : C C  Lote/Despacho : "C C  Stock : C 999,999,999_C C %+%  k TuT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Deposito : C C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C  %> >%% %%C"   TuT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Deposito : C C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C   &%C"    TT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Deposito : C C  Lote : "C C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C  %%Sa%C"TF!G((despacho+%"  !    Ta KE"   TC4% VC'( Debe estar definido el despacho C" para C !!!& P%)Si(%# # []C'('Serie: La cantidad debe ser 0 o 1. DSP:C" COD: C !!!& e L&%!# C H1%!# C!#C!#  :pC'(:No hay suficiente disponibilidad en el despacho/lote. DSP:C" COD: C !!!& D ]%9F* G((itm"~+, *- 5%C*.'%C*! FG((codigo(E*.* * **!%#*- TError en control de lotes !!!C Art: C*.CC*  /C* 6CC*  /C* 6CC*! Lote: C*!6 Dep: C*C'(&T/'! # 1 Y%C-0 U k V"5123%4SF4G((codigo E !%C4 5  CT146 T16FG E G !%C4   j C%C4 Y TT&- No hay suficiente stock disponible :C C C C  Artculo/Atr/Bul : C / C  / C C C  Disponible : C 999,999,999_C C  R"T31 $%C3C38?+ TT- No se debe fraccionar :C C C C  Artculo/Atr/Bul : C / C  / C C C  N"<7 T877( T T9 T: T; T<CO#+C+    F=G((codigoE '%C4 5  CFT::#T;;$,T3#$C61 T>C38T21>0%2   =?S T88T78 T782T992H%89 59@A T9+a CBT@ _B TA+A8/T@CCA7@ CA7@6TAA,TCC1CCC98 81 81@FD TA+A8%T7ACA7CT99CFGE CA7G 1%C4  CA7    C%C4 &6>  CA7C] : C%h>C >CFD G((ID&EC,Z CA7K%C4:C,Z CA7C+Z    C%C4 i=>  CA7+,>##CF%9!TAA%9! J"% TT&- No hay suficiente stock disponible :C C C C  Artculo/Atr/Bul : C / C  / C C C  Disponible : C:; 999,999,999_C C %F" TIT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C  / C C C  Stock : C: 999,999,999_C C  Comprometido : C; 999,999,999_C C  Disponible : C:; 999,999,999_C C BUESTK_ERRBIENESCOD_INSXXCODCODINSERR_7ENCSTOCKCODIGO ATRIBUTOSXXATRXXBULBULATRIDREG_LOCK SYS_CONTSTKXCANDEPXCOMDEP CANCOMDEPSTK_TSTP_TEST_VERSIONXDEPXCANSTK_MSGXIDTEMPSTKXDEPDEPOSITOXACCCANTXACCCOMP XACCCANT_DSP XACCCOMP_DSPDESPACHOXDSPCANTIDADCANT_COMLOTES ERROR_STKXCAUXNUMSERIESLOTESXITITMXITMCANCOD TTS_ERRORREG_X_DESPACHOSXCAXCA1XCA2BULTOSCLAVE CANTXBULTARRTMP MAXARRTMPACCACC_SACC_CTOPSTKATRIBUTOXCA3AUTMAXIMO_POSIBLEZ ORDENACION DE_CADA_UNOCOMPROMI5%)(%(!#%CCTC!TCTTC!TCT (%CyT !BUZYAAAACC MAXARRTMPARRTMPw 74    %C V T %C y T %C T 5 F%G((codins E%C4 CC%-S    S  I Ta< TFG((codigoG EG %C4  C5 T-+C+  %Nt T-TTTTFH%w5% S&F G((codigo E!%C4  CT ! @T!T $%CC8{Gz?  T"T#- No se debe fraccionar :C C C C  Artculo/Atr/Bul : C / C / CC C  s T T$a+a T% T&+&-T&CC&'%C&T%%T&&%%$  T$- T( T)T* T&+&%C&%C&*.%C&)C&*  T(&T)C&T*C&T&&%)v%T(C(!CC(+T  C,%" !%"o T&+&k%C&VO-C&C&    T&& : T"T#?- No tiene colores o no se pueden seleccionar automticamente :C C C C  Artculo/Atr/Bul : C / C / CC C  <. l 2%SC  S ;-    h T"T#$- El atributo no puede estar vaco :C C C C  Artculo/Atr/Bul : C / C / CC C BU/YXCODYXBULYXATRYXDEPYXCANYXCAUYXNUMYXFECYXITMYXTIPYXDSPYXSEDYXSEHOKBIENESCOD_INSCODINSERR_7STK_TST ATRIBUTOSXSELAUTOMATICASTK_ARR MAX_STK_ARRATRIBUTOCODIGOHAYAUTCLAVEXCAXCA1XCA2XSALDOBULTOS CANTXBULTSTK_ERRSTK_MSGINIMAXSELZSTK1ZZZZSZZC COMPROMETERERR1 DET_STOCK COMP_STRU T T%  TT&- No hay suficiente stock disponible :C C C C  Artculo/Atr/Bul : C / C / CC C  Disponible : C 999,999,999_C C %z TIT$- No hay suficiente disponibilidad :C C C C  Artculo/Atr/Bul : C / C / CC C  Stock : C 999,999,999_C C  Comprometido : C 999,999,999_C C  Disponible : C 999,999,999_C C BUACC_SACC_CSTK_TSTSTK_ERRSTK_MSGYXCODYXATRYXBUL4FGEG )%C4 j C%C4 .> C]  C % >    > F G((IDE CZC%C42 CZ CZ  C%C4 5> >BUXCODXBULXATRXCANSTOCKCODIGOBULATRERR_7IDREG_LOCKXIDTEMPCOMPROMIYXITMITMCANTIDAD4 5 TT vH7BF%SdF G((tr04G EG %C4 C %C4 T CO T a+C+  +*%     # T -!H%  # +C+   T T T% !%  TFH E2%C4!   S C %C404+C+ !   , T T T% !%  TFH E %C4*7+C+ $    & T T T% !%  TFH  E %C4$7+C+ $     T T T% !%  TFH  # :+C+ '      T T T% !%  TFH `3C&Artculo compuesto sin componentes !!! T-  T T T%  T BUXCODXBULXATRXXCANXXXCANBIENES COMPUESTOTR04COD_INSERR_7REGTR04OKBULATRXCXBXASTK2STK_ERRMENSAJEOK_COMP 4F%C+ 5 TCO MT%SNTF%C+ TCO TG((codins E%C4   C % S%  F G((codigoE '%C4    C %C4T T'p proc_stk.prgError de Stock.Debe estar definido  con bulto   !!! TGT- Debe estar definido C con bulto   !!! F G((codigoE$%C4   C %C4 T'm proc_stk.prgError de Stock.Debe estar definido  con bulto  !!! TDT- Debe estar definido C con bulto  !!! T %S% FG((codigoE'%C4  z C %C4T ~T's proc_stk.prgError de Stock.Debe estar definido  con atributo  !!! TJT- Debe estar definido C con atributo  !!! FG((codigoE$%C4   C %C4    T'p proc_stk.prgError de Stock.Debe estar definido  con atributo  !!! TET- Debe estar definido  con atributo  !!! T F%$ # J%C+ F#6HF%CCzG((articuloGEG )%C4  C %C4 .>C] ( C%V> T T !! FT" F% # %C+ #6HBU#XXCODXXBULXXATRXXCANBIENESREGBIE COMPUESTOTR04 COMPONENTECODINSCOD_INSERR_7BULTOSCBULCODIGOCLAVE TTS_ERRORREPORTESTK_ERRSTK_MSG ATRIBUTOSCATRATRIBUTOSTOCKARTICULOBULATRIDREG_LOCKXIDTEMPXCANDEPXCOMDEP CANCOMDEPCANTIDAD/TCFTCFBUXSTKOXSTKXDISOXCOM7T ʚ;T 6eT 6eBUXSTKXCOMXPED^#4 TFG((codins E%C4  r C %C4 % %>  FG((codigoGEG )%C4 " C %C4#%i >FG((codigoGEG 9%C4(  C %C4[3% >%S FG((despachoE%C4%>   T.T!El despacho/lote debe existir !!! C  W T1T$Problemas con indices en STKXDEP.DBF e  T/T"Problemas con indices en STOCK.DBF   T0T#Problemas con ndices en BIENES.DBF S T0T#Problemas con ndices en BIENES.DBFBUXERRXMSGXCODXBULXATRXDEPXDSPXCANBIENESCODINSCOD_INSERR_7CANT1CANT2CANT3STOCKCODIGOBULATRCANTIDADSTKXDEPDEPOSITODESPACHOLOTESINICIAL%+4  %Csm1bLX T%Ctmp_depbLT CX T T T T T T%Cbienes QbienesF % W T CG((codins E G(( &% S S FG((codigo,%GEG T C4  T a% y%[ T T T T T T  T T T T T T Y% 5T T T T T T %C %Cdepmin Qdepmin+%C depminidT% T T TBU TMP_COD_INSTMP_BULTMP_ATRSMPPTISM1UDIAVXPTMP_DEPXENCBIENESCOD_INSXORDERCODINSBULTOS ATRIBUTOSSTOCKCODIGOBULATR TIPOSTKMINSTK_MINSTK_MIN1STK_PEDUXDIA VENTASXPERDEPMINCAN- TT TaBUSTK_ERR TTS_ERRORG_ERRORC Inicio BorrarF    C  -6 1C   SEL.AUT.  -6 C   -6 C Fin BorrarC Inicio Pack3!CInicio Replaces Pack> ʚ;> ʚ;> ʚ;> ʚ;>C Inicio Index,&  ( \tmp\borrarCInicio Select tr044otr04tmp_tr04_componenteC Inicio Scan Ta T ~9TCEs componente de: , 6C T-CFin Scan%/T"No es componente de otro artculo.QFC Inicio Formsstk_vis4C Fin FormsTT BULOG_TIMEBORRARSTKCOMORDPEDPRDXBULBULXATRATRDATRXDEPDEPOSITOFORDISALLDEPCODP_LOCALCOD_INSTR04 COMPONENTEXCODTMP_TR04_COMPONENTEXINICIALXESCOMPONENTEDESTK_VIS4TEMPBULTEMPATR45 TCW%wCSeek  FG((codins EF%C+ T CO T %C+ M%CborrarF QFQeh1 \tmp\  CCCCCNNNNNCCNLLLLLC C!C"CQ \tmp\  &  T# ʚ;T$ 6eT% 6eF&G((codigoF(G((codigo&%(S )S `,CInicio get_stk2 no bulatr )*  #$%)CFin get_stk2 no bulatr %$#%# T$#  T$F +> #$%$>--+>S- I%(S%)S% % F( E% F& E%C4-CInicio get_stk2 CON bulatr *#$%*CFin get_stk2 CON bulatr %$#%# T$#  T$F \> (,&-&,#$%`>(.N&.N/. (.N &.N + )>/S&S  ! F( E%C4 *CInicio get_stk2 CON bul $* #$%'CFin get_stk2 CON bul %$#%# T$#  T$&CInicio CICLANDO ATR F&G EG +C+  ,CInicio get_stk2 Ciclo atr"*&-#$%)CFin get_stk2 Ciclo atr%$#%# T$#  T$F \> (,&-&,#$%`>(.N&.N/. (.N &.N + )>/S&SF&H#CFin CICLANDO ATR   C NO EXISTE &CInicio CICLANDO BULF(G EG +C+  ,CInicio get_stk2 Ciclo BUL'*(- #$%)CFin get_stk2 Ciclo BUL%$#V %#; T$# R T$%C (CInicio CICLANDO ATR2F&G EG +C+  4C Inicio get_stk2 en CICLANDO ATR27%*(-&-#$%1CFin get_stk2 en CICLANDO ATR27%$# %# T$#  T$F _> (-(,&-&,#$%`>(.N&.N/. (.N &.N + )>/S&SF&H%CFIN CICLANDO ATR2 *CInicio get_stk2 de ATR%*(-&-#$%'CFin get_stk2 de ATR7%$#%# T$#  T$F _> (-(,&-&,#$%`>(.N&.N/. (.N &.N + )>/S&SF(H#CFin CICLANDO Bul % BF( E%C44$* #$%%$#%#g T$# ~ T$F E> (-(,#$%G>(.N-/. (.N + >/S > !CInicio CICLANDO Bul2F(G EG +C+  '*(- #$%%$#%# T$#  T$F E> (-(,#$%G>(.N-/. (.N + >/SF(HCFIN CICLANDO Bul2 E)*  #$%%$#%#g T$# ~ T$!CInicio CICLANDO ATR3F&G EG +C+  #'* &-#$%%$#S%#8 T$# O T$F E> &-&,#$%G>-&.N/. &.N + )>/S&SF&HCFIN CICLANDO ATR3F% u # %C+ #6H FBU0XTIPOXCODXBULXATRXALIASBIENESCOD_INSLOG_TIMECODINSREGBIEBORRARP_LOCALXCURSORCODBULATRDBULDATRSTKCOMPEDORDPRDDEPDDEPDISBULACTATRACTCOMACTVENTA PROMOCIONCALIDADVENDIBLEDEPFACDEPCOMXSTKXCOMXPEDATRIBUTOCODIGOBULTOS ATRIBUTOSGET_STK2EST_ACTDESCRCLAVEACTIVOSTOCKp4G+(listadosTCF% SYB 5  T CW% F G((codins EF %C+ T CO T %C+ %Cborrar1FQ%Cborrar2DFQ%Cborrar3kFQ%Cborrar4FQFG((codigoFG((codigo CaFF ~ FF % 5 # [%C+ W#6H F BUXTIPOXCODXBULXATRXDEPLISTADOS XTMPBORRAR1NEWFILEBORRARBIENES COMPUESTOXALIASREGBIECOD_INSCODINSBORRAR1BORRAR2BORRAR3BORRAR4ATRIBUTOCODIGOBULTOS COMB_BUL_ATR GET_STK_XDEPBULATR4,TCCbultos+ CbultosO60TCCatributo+ CatributoO6FG((codigo%CGEG 1%C4    C   C  GEG ++C+   % CX#%  C  C FHF BUXCODXBULXATRXDEPXRBULXRATRSTKXDEPCODIGOBULATRDEPOSITOERR_7AGREGAR_REGISTROBORRAR`FG((deposito EFG((borrarE%C4 0>         %>BUDEPOSITOSTKXDEPBORRARXCODXBULXATRCODBULATRDBULBORRAR1DATRDEPDDEPDESCRBULACTATRACTCOMACTVENTA PROMOCIONCALIDADVENDIBLEDEPFACFACDEPCOMCOMSTKCANTIDADCANT_COM 4%B%Cstock >Qstock%Cborrar1iFQ~h1\tmp\CCCC L L L L LQ\tmp\&%S S zrborrar1    --C a6 S  %S %S% F E%C4F%CG EG +C+   Ta%jTCCXstockcodigo N N  rborrar1     NN S SFH  E%C4 Ta%5jTCCXstockcodigo N N  rborrar1     NN S S  FG EG +C+  F%CG EG +C+   Ta%jTCCXstockcodigo N N  rborrar1     NN S SFH  E%C4 Ta%IjTCCXstockcodigo N N  rborrar1     NN S SFH  % I F E%C4; Ta%ZTCCXCXstockcodigo N  rborrar1     N- S- E   FG EG +C+  Ta% ZTCCXCXstockcodigo N  rborrar1     N- S-FH  FG EG +C+  Ta%M ZTCCXCXstockcodigo N  rborrar1     -N S SFHBUXACTIVOSSTOCKBORRAR1P_LOCAL XTMPBORRAR1BULATRDBULDATRBULACTATRACTCOMACTVENTA PROMOCIONBIENESBULTOS ATRIBUTOSEST_ACTXBULXCODATRIBUTOXATRCOD_INSXSTKACTCLAVEACTIVODESCR55%Cimp_tran DQimp_tran%Cimportac vQimportacTotcomprasproveedotcccomp      CN 6Q CXQCXQ C  6 QQ QQQ QCXQCXQCXQ    2 ! S !    borrar1 oesolcomdsolcomCXQC(XQ #$Q %Q % Q %QQQQCXQCXQQ%$QQ#Q%&Q&%'Q#% #( % borrar1_sol1o borrar1_sol1Q*Xtcompras C ZC +ZC*ZC*&Z** * * * ***********CC QC QCXQCXQCXQ ** * * * *********** borrar1_soloimp_tranXimportac -.proveedotcccomp Q   QQQCXQCXQQQQ QQQ-QCCXQCCXQC CXQ    borrar1_impHo borrar1_sol borrar1_impborrar1Ǽborrar1BU0XCODXATRXBULIMP_TRANIMPORTACBORRARCODPROVEEDOCOD_PRONOMBRETCOMPRASFEC_COMCOD_INSBULATR RECEPCIONTCCCOMPRECEPRECEP2RECEP3DBULDATRORDENENTREGAFEC_ENTDESPLTRANSITOSOLCANTSOL CANTSOLORDSIMIDESPACHOGUIAPENDBORRAR1ESOLCOMFECHADSOLCOMITMCANTIDADESTADO BORRAR1_SOL1BBITEM BORRAR1_SOLIMPORTNUMERO BORRAR1_IMP:5C(Abriendo tablas de rdenes de compra ...%Ctcompras fFQtcompras%Ctcccomp FQtcccomp:C-Abriendo tablas de rdenes de solicitudes ...%Cesolcom 2F:QC\data\CCZ6\esolcom%Cdsolcom F:QC\data\CCZ6\dsolcom%Cborrar1FQ-C Buscando Artculos ordenados ... CCExaminando ...FTC &&  ( \tmp\FG-(  ~CXF#)+C+ 5%     .>CDHFFQFQ CBU MENSAJE_WAITTCOMPRASTCCCOMPP_UNOP_SYSTEMP_SERVERBORRAR1 QPR_ORDENADO XTMPBORRAR1NEWFILECOD_INSBULATRP_LOCALBORRARCODDEPORD RECEPCIONRECEP2RECEP3 MENSAJE_CLEAR4FG((codigokostockCQCQC 1 \tmp\tmp_stkQFG((codigoostkxdep  CQC Q C   1 \tmp\tmp_stkdQ BU STOCKCODIGOBULATRCANTIDADCANT_PEDP_LOCALTMP_STKSTKXDEPDEPOSITODESPACHOCANT_COMTMP_STKDO 4"R,:Terminando Debugging...5TCALTEvTCALTEvTCCONSv55 T T+ TCt%C!T TTCCR.G( \log\G G C=PQComprobante : H P Pedido  V Factura  c*Nota de Crdito  dZ Nota de Dbito  MNT Mantenimiento 2 Nota de Dbito  Desde : FFecha : CC$* Hora : C^ Usuario : CC Z+STOCK: Diferencias encontradas.F G((codigoFQ \tmp\tmp_stk)& ( \tmp\tmp_stk#)F G-( 2>  G-(F8+ 9 cc4(STOCK: Problemas de stock no corregidos.F 1+   G FQ \tmp\tmp_stkd2& ( \tmp\tmp_stkd#)FG((codigoG-( 2>G-(F-!STKXDEP: Diferencias encontradas.@+ 9 ccQG 6*STKXDEP: Problemas de stock no corregidos.FI+    GG(G %C G(%ON G %ON?G R BUXNUMXCAU OLDALTETO OLDALTEONOLDCONSAAAAAPROGAAZAATMPP_SYSTEM PUB_INDEXSTOCKCODIGOP_LOCALBULATRTMP_STKCANTIDADCANT_PEDALLDEPOSITODESPACHOSTKXDEPTMP_STKDCANT_COMH4FQmovstockhora#6 TQ BUXHORAMOVSTOCKHORAB4T' T TBUXERRXCAUXNUMXMSG TTS_ERRORSTK_ERRSTK_MSG45G+(dey_func%CMOVIDESP\F Q T C @h1  C CNQ  %PV  TTCc%KTc T%C tmp_regxdspRQ0TCC s.deposito=xdep.t.6Td./TC ascending ascdesc6aSELECT s.codigo AS cod_ins, s.atr, s.bul, s.despacho, s.deposito, s.cantidad, 000000000000.0000 AS temporal FROM stkxdep s, despacho d WHERE s.despacho+s.codigo+s.bul+s.atr=d.despacho+d.cod_ins+d.bul+d.atr AND s.codigo=xcod AND &xfiltro_regxdsp AND s.cantidad>0 ORDER BY &xorder_regxdsp &xascen_regxdsp INTO CURSOR tmp_regxdsp READWRITE % G+ C%  > T % T T%;T>8rmovidesp    cH U T%W%SF ~O%1256Lproc_stk    !"H#proc_stk   !"F  lC >No se pudo completar la asignacion de despachos !!! Artculo:   $B- %PV C DNo se pudo completar la asignacion de lotes/despachos !!! Artculo:   C [La seleccin automtica de lotes/despachos es solo para bajas por produccin/ventas (Causa:)$ C DNo se pudo completar la asignacion de lotes/despachos !!! Artculo:   C ILa altas de stock no pueden tener seleccin automtica de lotes/despachos$!CError !!! Suspendo?a%B-BaU& XREGISTRARXCAUXNUMXFECACCACC1REGISTROOLDDSPDEY_FUNCMOVIDESP XTMP_MOVIDESPNEWFILE_LOCAL_TMPDESPACHODEPOSITOCANTIDADXCANOLD_XCAN TMP_REGXDSPXFILTRO_REGXDSPXDEPXORDER_REGXDSPP_VE_SELAUTLOT_KEYXASCEN_REGXDSPP_VE_SELAUTLOT_ORDXCODCOD_INSTEMPORALXTIPACT_MOVPROC_STKXBULXATRXITMXSEDXSEHACT_STK ERROR_STKSYS_MOSTRAR_SCREEN4G+(dey_func 55TC% r CbienescodinsFC G~(clasesG+(listados 3T Cgrilla_formatoForm_Controles.vcxT Borrar2$C.PedidoPedido2 $C.NombreNombre % C.ATRC "C.DATRDescr.d  C.BULC "C.DBULDescr.K % S 8C .RECEPCIONCantidad@z 9999,999 6C.recep2 Entregado@z 9999,999 YCSaldo'max(borrar2.recepcion-borrar2.recep2,0)Saldo@z 9999,999  ' C.depDepsito 2C.canCantidad@z 9999,999 3C.acc Acumulado@z 9999,999 % S z%v8C .cant_pedPedidos@z 9999,999.99 5C.accp Ac.Pedidos@z 9999,999 ?C .cant_com Comprometidod@z 9999,999.99 :C.acccAc.Comprometido@z 9999,999 BCAPROBiif(borrar2.stock=1,'SI','NO')Aprob.2 #C .Est_despEst C.FechaFecha %C.entrega F.Entrega "C.cod_cliCdigo -TCgr_ped_eventos proc_stk.prg& K sys_browse Borrar2PEDIDOSF#)BUXTIPODEY_FUNCXATRXBULXBORRAR2NEWFILE_LOCAL_TMPBORRARCODBIENESCOD_INS ARTS_PEDIDOSCLASESLISTADOSOGFOEV SQL_ALIASFOR_ADD_COLUMNA P_SIN_BULATROATR LABEL_CORTOOBUL P_FACDEPPRI COMPUESTO P_PICKINGPEDIDO SYS_BROWSE COLUMN_COLLW 5%SFT.t. T T%CX}Tbul=xbul%CXT.and. atr=xatrFG~(clasesG+(listadosSET FILTER TO &xfiltro  3T Cgrilla_formatoForm_Controles.vcxT Borrar10COC.OrdenOrden de Compran !C.fec_comFecha %C.nombreNombre, 'C.FEC_ENT Fec.Entrega 4C .RECEPCIONCantidad 999,999.99 QCRECIBIDOborrar1.recep2+borrar1.recep3Recibido 999,999.99 ]CSALDO/borrar1.recepcion-borrar1.recep2-borrar1.recep3Saldo 999,999.99 6C .transito En Trnsito 999,999.99 &CSOL.Sol Solicitud 4C.cantsol Solicitado 999,999.99 9C .cantsolord Sol.Ordenado 999,999.99 5C IMPORTACION .IMPORTAC Importacin +Csimi.simi SIMI/SIRAx 2Cdespacho .despachoDespacho &Cguia.guiaB.L. "C.Cod_proCdigo -T Cgr_ped_eventos proc_stk.prgU sys_browse Borrar1Ordenes de Compra G(< E9C'El artculo no se compra a terceros !!!FBUXATRXBULBIENESCOMPRABORRARXFILTROBULATRBORRAR1CLASESLISTADOSOGFOEV SQL_ALIASFOR_ADD_COLUMNA SYS_BROWSE COLUMN_COLLOMENSAJE4!%C xtipofiltrobLI T%Cdeposito ~FQdepositoFG((depositoFG((codigo T CEXACTvGEG SET EXACT &oldexact T++C+    %   F EFI% S   N  T T H BUXCANDEPXCOMDEPXCODXBULXATR XTIPOFILTRODEPOSITOSTKXDEPCODIGOOLDEXACTBULATRCANTIDADCANT_COMCOMVENDIBLE7?4     %C ^ T %C T %C T TC%CxpckbN T%B%5FG((codins E %SC 5 TjT- Error interno. Artculo: CC C C no pasa lote como parmetro !!!T'8 proc_stk.prgError de Stock.CREGCOM, Suspendo?a 5 TCW Ta%Ccomprom  T-FQcompromF G((IDEC Z T-'+C+ CZC Z I?% !"C#Z CZA Ta!H% > "! $%&' ( )a#  >$$% "Q FBU*XIDXCODXBULXATRXDEPXCANXCAUXNUMXFECXITMXTIPXDSPXSEDXSEHXPCKBIENESCOD_INSCODINSLOTESSTK_ERRSTK_MSG TTS_ERRORREPORTESYS_MOSTRAR_SCREENAREA YA_ABIERTACOMPROMIDXENCITMCODATRBULDSPDEPPCKCANCAUNUMFECTIPFLG4C Aguarde...%Cclientes YFQclientescodcli%Ctventas FQtventas%Ctccvent FQtccventtccvord%Cborrar2FQ+CBuscando Artculos pedidos ...5  T T  T  T % S !Ttventas.cod_ins=xcod% CX'T.and. tventas.bul=xbul% CX+'T.and. tventas.atr=xatr% %4T#.and. between(tccvent.est_desp,1,2) )T.and. tccvent.est_desp=0  4T#.and. between(tccvent.est_desp,0,2)SELECT clientes.cod_cli , clientes.nombre , tccvent.fec_ven AS fecha , IIF(tventas.entrega={},tccvent.fec_ent, tventas.entrega) AS entrega , tventas.cod_ins , tventas.atr , tventas.bul , tventas.recepcion , tventas.recep2 , SPACE(30) AS dbul , SPACE(30) AS datr , tccvent.pedido , tccvent.est_desp , tccvent.stock , 0000000000.00 AS acc , 0000000000.00 AS accp , 0000000000.00 AS accc , tccvent.ID , tventas.itm FROM tventas,tccvent,clientes ORDER BY tccvent.pedido WHERE tventas.cod_cli=clientes.cod_cli .AND. tventas.pedido=tccvent.pedido .AND. &xfiltro INTO TABLE (xborrar2) Q% %C T c.dep=xdep T.t.TC]kSELECT b2.cod_cli , b2.nombre , b2.fecha , b2.entrega , b2.cod_ins , b2.atr , b2.bul , b2.recepcion , b2.recep2 , b2.dbul , b2.datr , b2.pedido , b2.est_desp , b2.stock , b2.acc , b2.accp , b2.accc , b2.ID , b2.itm , SUM(NVL(c.can,0)) AS cant_com , b2.recepcion-b2.recep2-SUM(NVL(c.can,0)) AS cant_ped FROM borrar2 b2 LEFT OUTER JOIN comprom c ON b2.ID+STR(b2.itm)=c.ID+STR(c.itm) ORDER BY b2.pedido, b2.itm GROUP BY b2.cod_cli , b2.nombre , b2.fecha , b2.entrega , b2.cod_ins , b2.atr , b2.bul , b2.recepcion , b2.dbul , b2.datr , b2.pedido , b2.est_desp , b2.stock , b2.acc , b2.accp , b2.accc , b2.ID , b2.itm WHERE &xfiltro INTO TABLE (xborrar_com) QFQ !Ttventas.cod_ins=xcod% CX 'T.and. tventas.bul=xbul% CXX 'T.and. tventas.atr=xatr%C T .and. .f.% T .and. .f.SELECT clientes.cod_cli , clientes.nombre , tccvent.fec_ven AS fecha , IIF(tventas.entrega={},tccvent.fec_ent, tventas.entrega) AS entrega , tventas.cod_ins , tventas.atr , tventas.bul , IIF(tventas.recepcion-tventas.recep2<0,0,tventas.recepcion-tventas.recep2) AS can , tventas.recepcion , 0000000000.00 AS recep2 , obie.data_codigo_vacio AS dep , SPACE(30) AS dbul , SPACE(30) AS datr , tccvent.pedido , tccvent.est_desp , tccvent.stock , 0000000000.00 AS acc FROM tventas,tccvent,clientes ORDER BY tccvent.pedido WHERE tventas.cod_cli=clientes.cod_cli .AND. tventas.pedido=tccvent.pedido .AND. tccvent.est_desp=0 .AND. &xfiltro INTO TABLE (xborrar2) Q%Ccomprom Qcomprom%&%C\tmp\borrar88.dbf0FQTcomprom.cod=xcod% CX'T.and. comprom.bul=xbul% CX'T.and. comprom.atr=xatr%C 'T.and. comprom.dep=xdepSELECT clientes.cod_cli , clientes.nombre , tccvent.fec_ven AS fecha , IIF(tventas.entrega={},tccvent.fec_ent, tventas.entrega) AS entrega , comprom.cod AS cod_ins , comprom.atr , comprom.bul , comprom.can AS recepcion , 0000000000.00 AS recep2 , comprom.can , comprom.dep , SPACE(30) AS dbul , SPACE(30) AS datr , tccvent.pedido , tccvent.est_desp , tccvent.stock , comprom.ID FROM comprom,tccvent,clientes ORDER BY tccvent.pedido WHERE tccvent.cod_cli=clientes.cod_cli .AND. comprom.ID=tccvent.ID .AND. BETWEEN(tccvent.est_desp,1,2) .AND. &xfiltro INTO TABLE (p_local+"\tmp\borrar88") QF \tmp\borrar88 \tmp\borrar88.dbfCExaminando ...F T T T ~FT> %T!T">##>$$%  9F%G((codigoE' F>(%)F% F*G((codigoE'F>+*)FF#) C,BU-XTIPO MENSAJE_WAITCLIENTESCODCLITVENTASTCCVENTTCCVORDBORRAR2XCODXATRXBULBORRARCODBULATRXDEPDEP P_FACDEPPRIBIENES COMPUESTOXFILTRO P_PICKINGXBORRAR2 XBORRAR_COMCOMPROMP_LOCALBORRAR88XACCXACCPXACCC RECEPCIONRECEP2ACCCANT_PEDCANT_COMACCPACCCBULTOSCODIGOCOD_INSDBULDESCRATRIBUTODATR MENSAJE_CLEARe4TT T BU XCODXBULXATRXCOD2XBUL2XATR2OBIEDATA_CODIGO_VACIOGET_ART 4.C!Abriendo tablas de produccin ...%Cproducci fFQproducci%Ccompprod FQcompprod%Cborrar3FQ%Cborrar4FQ>C1Buscando artculos comprometidos en produccin...F#)CCExaminando ...%F&    ( F&    F~F!E   %C4 %Ss'% o'C bultoscodigo%S'% )C atributocodigo%  #$C depositodeposito5%    3C  CXstockcodigoF>    CS 6CS 6       !&%S S ?>"-#-$%&&S'- >"S (N #S (N $( CS(Na6 CS(Na6 % &&S'S 'S >!! F>!!% F&    ()FF&    F~*+ F!E   %C4 %S '% 'C bultoscodigo%S'% )C atributocodigo%  $C depositodeposito5%    <3C  CXstockcodigoF>    CS 6CS 6       !&%S S o ?>"-#-$%&&S'- S >"S (N #S (N $( CS(Na6 CS(Na6 % &&S'S 'S !>,,*+>-a  F!>,,*+>-a C.BU/XTIPO MENSAJE_WAITPRODUCCICOMPPRODBORRAR3BORRAR4BORRARQPR_PRODUCCIONCODBULATRDEPOSITOXBORRAR3DEPIDCANTIDADBIENESBULTOSCOD_INSCLAVE ATRIBUTOSATRIBUTOSTOCKCODIGODBULDESCRDATRDDEPCALIDADVENDIBLEDEPFACFACDEPCOMCOMBULACTATRACTCOMACTEST_ACTVENTA PROMOCIONACTIVOXBORRAR4PEDIDO PRODUCIDOPRDCTRL MENSAJE_CLEAR5FT.t. T T%CXjTbul=xbul%CXT.and. atr=xatr CFG~(clasesG+(listadosFSET FILTER TO &xfiltro G~(clasesG+(listadosSET FILTER TO &xfiltro  3T Cgrilla_formatoForm_Controles.vcxT Borrar3C.AtrAtr C.BulBul %C .CantidadCantidad )CPROD.PROD Produccin C.FechaFecha !C.dDepDepsito 'C.pcod Prod.Cdigo $C.patrProd.AtrF $C.pbulProd.BulF /C.pdescrProd.Descripcin -T Cgr_ped_eventos proc_stk.prgi sys_browse Borrar3%Compromisos por Ordenes de Produccin FG(FBUXATRXBULXFILTROBORRARBULATRARTS_PRODUCCIONBORRAR3CLASESLISTADOSOGFOEV SQL_ALIASFOR_ADD_COLUMNA SYS_BROWSE COLUMN_COLL25FT.t. T T%CXjTbul=xbul%CXT.and. atr=xatr CFG~(clasesG+(listadosFSET FILTER TO &xfiltro G~(clasesG+(listadosSET FILTER TO &xfiltro  3T Cgrilla_formatoForm_Controles.vcxT Borrar4C.ATR C.BUL C.Pedido C .Producido @CSALDO borrar4.pedido-borrar4.producidoSALDO C.op C.Fecha !C.ddepDepsito -T Cgr_ped_eventos proc_stk.prgd sys_browse Borrar4 Ordenes de Produccin Pendientes FG(<FBUXATRXBULXFILTROBORRARBULATRARTS_PRODUCCIONBORRAR4CLASESLISTADOSOGFOEV SQL_ALIASFOR_ADD_COLUMNA SYS_BROWSE COLUMN_COLLO#4 %C xfiltrodepbLP T%C xdepositobLTCX% Y %CXT .t. 'T stkxdep.deposito=xdeposito%;+T   and deposito.vendible='S'< !SELECT SUM(stkxdep.cantidad-stkxdep.cant_com) AS cantidad , SUM(stkxdep.cantidad) AS cant_fis FROM stkxdep,deposito WHERE stkxdep.deposito=deposito.deposito .AND.stkxdep.codigo+stkxdep.bul+stkxdep.atr = xcod+xbul+xatr .AND.&xfiltro INTO ARRAY arr_deppri % TC TC  T T% U< :ostock  % :TC Q T  T T T BUXCODXBULXATR XSTK_DISPXSTK_FIS XDEPOSITO XFILTRODEPXSTK_PEDOBIEDATA_CODIGO_VACIOXFILTRO ARR_DEPPRIP_VE_DATA_PEDIDOSCANT_PEDSTOCKCODIGOBULATR 4H >TOK q TNo hay stock fsico 6T)Inconherencia de stock (stock vs stkxdep) $TNo se puede comprometer  TCdigo invlido IT No operar xTNo fraccionable -T Error interno, abortar operacin "TEl despacho no existe  LLT?Cdigo no definido con lotes (se lo intenta utilizar con lotes)  STFNo se puede seleccionar despacho automaticamente para este comprobante  >yTlIncoherencia entre Movstock y Despacho (se da cuando salio por movstock ms que lo que ingreso por despacho)  <T/No se pudo completar la asignacion de despachos  T No se usa ms T No se usa ms T No se usa ms g@T3La cantidad supera el mximo permitido en despachos <T/No hay suficiente disponibilidad en el despacho 2TError no definido BUXCODXMSGH 45T% oproduccicompproddepositobienesQQQQQ C Q  Q  Q  QQQQ Q        borrar3 ~TTTTomovstockQQQC Q  Q C CZ/ 1PCZ/999P   ! consumo> C ! D% = %Cborrar4OF"QT# codigo=xcod%$CXT##.and. xbul=bul%%CXT##.and. xatr=atrbSELECT PROD AS op , fecha , codigo , atr , bul , cantidad AS pedido , real AS producido , producci.deposito , deposito.DESCR AS DDEP , .F. AS ctrl FROM producci,deposito WHERE &xfiltro .AND. producci.pend .AND. !multiple AND producci.deposito=deposito.deposito INTO TABLE (xborrar4) Q&"T# codigo=xcod%%CXT##.and. xatr=atrCSELECT PROD AS op , fecha , codigo , atr , bul1 , bul2 , bul3 , bul4 , bul5 , bul6 , bul7 , bul8 , bul9 , bul10 , bul11 , bul12 , bul13 , bul14 , bul15 , prd1 , prd2 , prd3 , prd4 , prd5 , prd6 , prd7 , prd8 , prd9 , prd10 , prd11 , prd12 , prd13 , prd14 , prd15 , rea1 , rea2 , rea3 , rea4 , rea5 , rea6 , rea7 , rea8 , rea9 , rea10 , rea11 , rea12 , rea13 , rea14 , rea15 , producci.deposito , deposito.DESCR AS DDEP FROM producci, deposito WHERE &xfiltro .AND. producci.pend .AND. prd1+prd2+prd3+prd4+prd5+prd6+prd7+prd8+prd9+prd10+prd11+prd12+prd13+prd14+prd15#0 AND producci.deposito=deposito.deposito INTO CURSOR bbb ~ '( T(CbulCC'Z%(CX ,%$CX($  rborrar4) *+ ,), ,,(Cbbb.prdCC'ZCbbb.reaCC'Z, ,  !%Cbbb9 F,QBU-XTIPOXCODBORRARCODPRODUCCIPRODCOMPPRODBULATRXCANTIDADFECHADEPOSITODESCRDDEPCODIGOPCODPATRPBULBIENESPDESCRPENDIDAPLCOD_INSBORRAR3XOPXCOD_XXATR_XXBUL_XMOVSTOCKNUMEROCAUSACONSUMOBORRAR4XFILTROXBULXATRXBORRAR4ZXXBULOPPEDIDO PRODUCIDOBBB 45TTTTcompprod.cod=xcod%C 'T and compprod.bul=xbul%C 'T and compprod.atr=xatr% ASELECT producci.PROD AS PROD , compprod.cod AS cod , compprod.bul AS bul , compprod.atr AS atr , 00000000000.0000 AS x , SUM(compprod.cantidad) AS cantidad , producci.fecha AS fecha , producci.deposito AS deposito , deposito.DESCR AS DDEP FROM producci,compprod, deposito GROUP BY producci.PROD,compprod.cod ,compprod.bul ,compprod.atr WHERE producci.pend .AND. producci.ID=compprod.ID .AND. &xfiltro_prod .AND. producci.PROD#-1 .AND. compprod.apl#" " AND producci.deposito=deposito.deposito INTO CURSOR borrar3 READWRITE ~~T  T  T  T omovstockQQQCQQCC Z/ 1PC Z/999P  !  consumo> C D% %Cborrar4FQT codigo=xcod%CXT.and. xbul=bul%CXOT.and. xatr=atr_SELECT PROD AS op , fecha , codigo , atr , bul , cantidad AS pedido , real AS producido, producci.deposito AS deposito , deposito.DESCR AS DDEP , .F. AS ctrl FROM producci,deposito WHERE &xfiltro .AND. producci.pend .AND. !multiple AND producci.deping=deposito.deposito INTO TABLE (xborrar4) QT codigo=xcod%CX T.and. xatr=atrJSELECT PROD AS op , fecha , codigo , atr , bul1 , bul2 , bul3 , bul4 , bul5 , bul6 , bul7 , bul8 , bul9 , bul10 , bul11 , bul12 , bul13 , bul14 , bul15 , prd1 , prd2 , prd3 , prd4 , prd5 , prd6 , prd7 , prd8 , prd9 , prd10 , prd11 , prd12 , prd13 , prd14 , prd15 , rea1 , rea2 , rea3 , rea4 , rea5 , rea6 , rea7 , rea8 , rea9 , rea10 , rea11 , rea12 , rea13 , rea14 , rea15 , producci.deping AS deposito , deposito.DESCR AS DDEP FROM producci,deposito WHERE &xfiltro .AND. producci.pend .AND. prd1+prd2+prd3+prd4+prd5+prd6+prd7+prd8+prd9+prd10+prd11+prd12+prd13+prd14+prd15#0 AND producci.deping=deposito.deposito INTO CURSOR bbb ~ ( TCbulCCZ%CX| ,%CX  x rborrar4    Cbbb.prdCCZCbbb.reaCCZ    !%Cbbb F QBU!XTIPOXCODXBULXATR XFILTRO_PRODBORRARCODBULATRXOPBORRAR3PRODXCOD_XXATR_XXBUL_XCODIGOCANTIDADFECHAMOVSTOCKNUMEROCAUSACONSUMOBORRAR4XFILTROXBORRAR4ZXXBULOPPEDIDO PRODUCIDODEPOSITODDEPBBB` 5F T T T T%CBT 5stkxdep.codigo+stkxdep.bul+stkxdep.atr=xcod+xbul+xatr XT Kstkxdep.codigo+stkxdep.bul+stkxdep.atr+stkxdep.deposito=xcod+xbul+xatr+xdepSELECT stkxdep.deposito , stkxdep.despacho , stkxdep.cantidad , stkxdep.cant_com , stkxdep.cantidad-stkxdep.cant_com AS saldo , NVL(despacho.inicial,0) AS original , NVL(deposito.DESCR,SPACE(30)) AS DDEP , NVL(despacho.fecha,{}) AS fecha , NVL(despacho.venc,{}) AS venc , NVL(despacho.loteext,SPACE(20)) AS loteext FROM stkxdep LEFT OUTER JOIN deposito ON stkxdep.deposito=deposito.deposito LEFT OUTER JOIN despacho ON stkxdep.codigo+stkxdep.bul+stkxdep.atr+stkxdep.despacho=despacho.cod_ins+despacho.bul+despacho.atr+despacho.despacho WHERE &xfiltro .AND. stkxdep.cantidad#0 INTO CURSOR tmp_lotes F G~(clasesG+(listadosF 3T Cgrilla_formatoForm_Controles.vcxT  tmp_lotes$C .despachoLote -C.loteextLote Auxiliar. !C.vencVenc.F (C .depositoDepsitoF 'C.ddep Descripcin *C.fecha Fecha IngresoZ ;C .CantidadCantidadZz 9,999,999.99 ?C .cant_com ComprometidoZz 9,999,999.99 5C.saldoSaldoZz 9,999,999.99 -TCgr_ped_eventos proc_stk.prg` sys_browse  tmp_lotesDetalle de Lotes/DespachosF QFBUXATRXBULBORRARXCODCODBULATRXDEPDEPXFILTRO TMP_LOTESCLASESLISTADOSOGFOEV SQL_ALIASFOR_ADD_COLUMNA SYS_BROWSE COLUMN_COLLB4  TCW%Cbienes TQbienes T#%Cbienescodins(TC  T T !% SC K%Cbultos Qbultos'%CbultoscodigoGTC !% SC %Catributo Qatributo)%CatributocodigoT C CTCC   C 6CC  C6 F BU XCODXBULXATR XFULLDESCRXAREAXORDERBIENESDESCRXDBULXDATRBULTOS ATRIBUTOSATRIBUTO c4     %C T%C T%C T%C T%C  T%C 1 T%C T T %C xusalotesbCT  %CxpesobN T %CxvolumenbN T %Cxsm1bN  T %Cxsm_mbN7 T%Cxmedida1bNf T%C xdmedida1bC T%Cxmedida2bN T%C xdmedida2bC T%C xamedida1bC% T%C xamedida2bCU T%Cxean13bN T%Cxdun14bN T$%Cxtipo_articulobN T  TCW%Cbienes )QbienesF%z TCG((codins E G((T TTT &%!S "S  %Cbultos Qbultos%Catributo @Qatributo$%& T% T&%!S F! T$CG((codigo E G(($ T%(T !)T !*T!+T!, VT -T .T+T,%"SF# T$CG((codigo E G(($ T&(HT C(CC&  C&6CC%  C%6%Cstock -QstockF/ TCG((codigoGEG %C4 T0 T 1 T2 T3 T4 T5 T6TC/ TC/  GE G %C4 T0 T 1 T2 T3 T4 T5 T6TC/ TC/  GE G %C4 T0 T 1 T2 T3 T4 T5 T6TC/ TC/  T T  T T T T T T T G((  T0T 1T2T3T4T5T6T -T .T C(T+T,T7TC6%Cmedidas E QmedidasF8G((codigo E T( T9 E T( T9 FBU:XCODXBULXATRXSMXPPXTIXFACTOR XMINBATCHXMERMA XFULLDESCR XUSALOTESXPESOXVOLUMENXSM1XSM_MXMEDIDA1XMEDIDA2 XDMEDIDA1 XDMEDIDA2 XAMEDIDA1 XAMEDIDA2XEAN13XDUN14XTIPO_ARTICULOXAREAXORDERBIENESCOD_INSCODINSLOTESBARRASDUNTIPO_ARTBULTOS ATRIBUTOSATRIBUTOXORDER1XDBULXDATRCODIGODESCR PESOXBULT VOLUXBULTMEDCOD MEDAUXCODPESO VOLXBULTOSTOCKSTK_MINSTK_MIN1 STK_MIN_MSTK_PED TIPOSTKMINFACTORMINBATCHMERMAMEDIDASABREV4bTC ONo se pudo actualizar el factor en base a la frmula y sta quedar incompleta.#%C xalias_bienesbLTbienes%%Cxalias_ccformulbLTccformul"%C xalias_stockbL0TstockG+(dey_funcCCC F T -%  G((codins E(  T a% .B Artculo C no encontrado&% S S g F-%CX2 G((codigoECX(  T a% .YBArtculo/Atributo/Bulto CC / C / C no encontradoT.factorT.actu_pe TCXTCXT.factorT.actu_pe F T -% G((codigoE( / T a% HBNo existen frmulas para CC / C / C%  F T a+C+  %S T -!H% %C.pe%Cz8REPLACE &xtmp WITH 1/EVALUATE(xalias_ccformul+".pe")  *B El Pe de C est en 0 OB No existen frmulas activas del CC / C / C }B Se debe actualizar el factor de CC / C / C* con 1/Pe, pero no se encuentra la frmula BUXCODXATRXBUL XALIAS_BIENESXALIAS_CCFORMUL XALIAS_STOCK XMENSAJE_AUXDEY_FUNC CHK_OPENEDXERRCOD_INSCODINSOEXBIENESBULTOS ATRIBUTOSCODIGOATRBULDEPOSITOXTMPXTMP1ACTIVAI[4     %CxcentralbCTCX%C xdepositobCTCX!%C xen_calidadbN T"%C xsolicitadosbN T!%C xen_rechazobNQ T%C xtipo_depbN T TCW%Cdeposito Qdeposito%Ccentral QCENTRAL%Cbienes $QbienesFG((codinsHO  C T T T 2 %Cstock QstockFG((codigoECX T% < %-otventasQtccventQ% !"#$&'()C*+*+6Q,C*+*+6C& ) ' ( )  6Q-C*+*+6C& ) ' ( )  6Q.   1 " # $ %C q_obt_stk#Q2otventasQtccventQ%3 !"#$&'()C*+*+6C16Q,C*+*+6C16C& ) ' ( )  6Q-C*+*+6C16C& ) ' ( )  6Q.C*+*+6C16Q4& ) ' ( )  Q5   1 " # $ q_obt_stk %- o q_obt_stkQ6XcompromQ% 63C6!Z3C!Z636 6!6"6#6$6&6'6(6)6,6-6.6465C3C XQ7C! Q8C9Q:ao q_obt_stkQ6XcompromQ% 63C6!Z3C!Z636!6"6#6$C65Q5C6,Q,C6-Q-C6.Q.C64Q4CC9Q:a636!6"6#6$ q_obt_stko q_obt_stkQ6C,4:Q,C-4:C56Q-C.4:C56Q.%  TCTCFG((deposito%Cstkxdep & QstkxdepF=G-(G-(>T>.t.Hx V  C C =T>0deposito.central=xcentral and deposito=xdeposito C C  &T>deposito.central=xcentral CC L T>deposito=xdeposito 2V Hk @   DT>C>.t. > and 6deposito.vendible=[S] @ kT>C>.t. > and 6<deposito.fac=[S] or deposito.com=[S] or deposito.picking=[S] T TD~==$=#?@  %C>9TC?CAS?66%C =9TC@CAS@66%BSiT? %BRT?%C  T T T T T F T B%C+%Ctcccomp xFQtcccomptcccordT%%"s#$ J(# J($F T%~T%%T#%T#%T$%C#C#!CbultoscodigoT&'(%&?TB%+aT)C&*%)0%& T& , +, T,+(T,CC+#,D%,! ( T&, oT)%&k T&%!% T-7T.No hay stock para surtir el C !!! o%(k%/?Cbienescodins(0C%#C%$  T-ST.No hay suficentes colores (CC"Z) para surtir el C !!! / T-7T.No hay stock para surtir el C !!!%C q_surtidoXFQBU1XCODXCANLIBERAR_SURTIDOXCANTIDAD_A_SELECCIONAR XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLNXCENTRAL XDEPOSITO XEN_CALIDAD XEN_RECHAZO XDISPONIBLEXCODIGO_SURTIDO Q_SURTIDOCOD_INSCLAVEATRXBULBULDISPONATRIBUTOSURTIDO TTS_ERRORXMAX_ARR_SURTIDO XCOD_SURT XATR_SURT XBUL_SURT OBTENER_STOCKPROC_STK P_VE_SURT_MIN ARR_SURTIDOARR_SURTIDO_SELZXBASEBULTOS CANTXBULTXCANTIDAD_SELECCIONADASURTIDO_REPETIRZZ XMAX_STOCKSTK_ERRSTK_MSGBIENESREGIST  T(%C T%%TCTCT#%  ! BUXBASE XCANTIDADXCANTIDAD_SELECCIONADAZXMAX_ARR_SURTIDO ARR_SURTIDO XSELECCIONADOARR_SURTIDO_SEL T T T T<Zocomprom  C Q CZCZ  % p( lTCTCTCTCc%aCbienescodins T T T TBUOLDXCODOLDXATROLDXBULOLDXCANXCODXATRXBULXARR_COMPROM_SURTCODATRBULCANCOMPROMIDITMXIDXITMZXCANBIENESCOD_INSREGIST#4 T T%C [ B5   F % cG((codins%  E%C4  C TC4  Ta% _7TNo se encuentra el artculo C !!! T B% S T% S T T$% S C FG((codigoE%  TTCCCC  C6CC  C6 Dep.: CCC  Lot.: C65 no tiene suficiente stock o quedara en negativo !!! w TnTCCCC  C6CC  C6# no tiene tiene lotes/despachos !!! BUXERRXMSGXCODXBULXATRXDEPXCANXDSP SYS_CONTSTKXCOD2XBUL2XATR2BIENESCOD_INSCODINSERR_7ENCLOTESSERIESXSEDXSEHSTKXDEPCODIGOCANTIDAD(3   %CxmaxbNZ T%C xdepositobC TT C  <TCC -fkdjghksdjfhgklshdfkgh6 TCC TCC TCC T C  %CxclasebNa T%CxmarbonbN T%C bienes_fast Q bienes_fastG+(listados   T%Cq Q!%C  T.t.%C+T and bienes_fast.est_act=1%C'T and bienes_fast.venta+SELECT cod_ins, DESCR, codalt1,dmarca,modelo, ivaper, fac_lpr1 AS precio1, fac_lpr2 AS precio2, fac_lpr3 AS precio3, discont, est_act, cod_pro, act, idu, barras, FLAG, atr, bul, venta, datr, dbul, bonif, margen FROM bienes_fast WHERE cod_ins+atr+bul=xcod+xatr+xbul AND &xfiltro INTO CURSOR q T %C T.t.%C+T and bienes_fast.est_act=1%C'T and bienes_fast.ventaT.t.%C T cod_ins=xcod%C 8T and atr=xatr%C lT and bul=xbulSELECT cod_ins, DESCR, codalt1,dmarca,modelo, ivaper, fac_lpr1 AS precio1, fac_lpr2 AS precio2, fac_lpr3 AS precio3, discont, est_act, cod_pro, act, idu, barras, FLAG, atr, bul, venta, datr, dbul, bonif, margen FROM bienes_fast WHERE &xfiltro_cod AND &xfiltro INTO CURSOR q T %CT.t.%C+T and bienes_fast.est_act=1%CN'T and bienes_fast.venta,TC top CCZ6&SELECT &xtop cod_ins, DESCR, codalt1,dmarca,modelo, ivaper, fac_lpr1 AS precio1, fac_lpr2 AS precio2, fac_lpr3 AS precio3, discont, est_act, cod_pro, act, idu, barras, FLAG, atr, bul, venta, datr, dbul, bonif, margen ORDER BY cod_ins, atr, bul FROM bienes_fast WHERE &xfiltro INTO CURSOR q T %C bienes_busq Q bienes_busq Tbienes2TC%C>u +aq TC % TC>% !  TTCCC=(f( %CC !%O TTCTCC[%=o bienes_busqQCq1 T%s (o moq1 bienes_busqQQC CQC q1T.t.%C "T and bf.est_act=1%C T and bf.venta T% B ,TC top CCZ6SELECT DISTINCT &xtop bf.cod_ins, bf.DESCR, bf.codalt1,bf.dmarca,bf.modelo, bf.ivaper, bf.fac_lpr1 AS precio1, bf.fac_lpr2 AS precio2, bf.fac_lpr3 AS precio3, bf.discont, bf.est_act, bf.cod_pro, bf.act, bf.idu, bf.barras, bf.FLAG, bf.atr, bf.bul, bf.venta, bf.datr, bf.dbul, bf.bonif, bf.margen FROM bienes_fast bf, q1 WHERE bf.cod_ins+bf.atr+bf.bul=q1.ID AND &xfiltro ORDER BY bf.cod_ins, bf.atr, bf.bul INTO CURSOR q %Cq1Q%&%&T .t.%C<T /!empty(nvl(stkxdep.cantidad, 0000000000000.00)),TC top CCZ6%C %FILTRO:!T!CFILTRO:H5 \SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, 0000000000000.0000 AS comprometido, 0000000000000.0000 AS cant_ped, 0000000000000.0000 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE &xdep AND &xfiltro_stk INTO CURSOR q READWRITE  }SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.0000)) AS comprometido, 0000000000000.0000 AS cant_ped, 0000000000000.0000 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE &xdep AND &xfiltro_stk INTO CURSOR q READWRITE >"#$ ;SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.0000)) AS comprometido, MAX(NVL(stock.cant_ped, 0000000000000.0000)) AS cant_ped, 0000000000000.0000 AS disponible XFROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE &xdep AND &xfiltro_stk INTO CURSOR q READWRITE  H R|SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, 0000000000000.0000 AS comprometido, 0000000000000.0000 AS disponible, 0000000000000.0000 AS cant_ped FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE stkxdep.deposito=xdeposito AND &xfiltro_stk INTO CURSOR q READWRITE  SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.0000)) AS comprometido, 0000000000000.0000 AS cant_ped, 0000000000000.0000 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE stkxdep.deposito=xdeposito AND &xfiltro_stk INTO CURSOR q READWRITE >"#$ SELECT DISTINCT &xtop bi.* , MAX(NVL(stkxdep.deposito,SPACE(8))) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.0000)) AS comprometido, MAX(NVL(stock.cant_ped, 0000000000000.0000)) AS cant_ped, 0000000000000.0000 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul ,stkxdep.deposito WHERE stkxdep.deposito=xdeposito AND &xfiltro_stk INTO CURSOR q READWRITE  &H% $!0SELECT DISTINCT &xtop bi.* , SPACE(8) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.0000)) AS cantidad, 0000000000000.0000 AS comprometido, 0000000000000.0000 AS cant_ped, 0000000000000.0000 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul WHERE &xfiltro_stk INTO CURSOR q READWRITE  #<SELECT DISTINCT &xtop bi.* , SPACE(8) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.00)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.00)) AS comprometido, 0000000000000.00 AS cant_ped, 0000000000000.00 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul WHERE &xfiltro_stk INTO CURSOR q READWRITE >"#$ %OSELECT DISTINCT &xtop bi.* , SPACE(8) AS deposito , SUM(NVL(stkxdep.cantidad, 0000000000000.00)) AS cantidad, SUM(NVL(stkxdep.cant_com, 0000000000000.00)) AS comprometido, MAX(NVL(stock.cant_ped, 0000000000000.00)) AS cant_ped, 0000000000000.00 AS disponible FROM q bi LEFT OUTER JOIN stkxdep ON bi.cod_ins+bi.bul+bi.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN stock ON bi.cod_ins+bi.bul+bi.atr=stock.codigo+stock.bul+stock.atr ORDER BY bi.cod_ins, bi.atr, bi.bul GROUP BY bi.cod_ins, bi.atr, bi.bul WHERE &xfiltro_stk INTO CURSOR q READWRITE >"#$& t&eoqCXQ'Q#Q$Q&Q"q%C&# 'o bienes_fast)*+,-./Q01Q23Q456789:;<=>?@ABCXQ'Q#Q$Q&Q"-q%Cq1'Q%'F>.C.BUEX XCON_STOCK XDEPOSITOXMAXXCODXATRXBULXCLASEXMARBONXEXACTO XDISPONIBLEXTODOS BIENES_FASTLISTADOSARRWORDSXMINLENXATMAXARRQXFILTRO XFILTRO_CODXTOP BIENES_BUSQLIMPIARBIENES2XWORDZIDWORDWORDSQ1B XFILTRO_STKXDEP DISPONIBLECANTIDAD COMPROMETIDOALLCANT_PEDDEPOSITOINCOD_INSDESCRCODALT1DMARCAMODELOIVAPERFAC_LPR1PRECIO1FAC_LPR2PRECIO2FAC_LPR3PRECIO3DISCONTEST_ACTCOD_PROACTIDUBARRASFLAGATRBULVENTADATRDBULBONIFMARGENC_IVAFOR/ %"B%Cstockg XQ\stockg%Cstkxdepg Q \stkxdepg TCW%C\% >0>    % 2> &>    % >9>    % > />    FBUXCODIGO XSOLO_PEDIDOSP_IN_STOCK_GLOBALP_SYSTEMXAREAXCODSTOCKGCANTIDADALLCANT_PEDCANT_PRDCANT_OCCANT_COMSTKXDEPGFORCODIGOC     T C  T C  T C  %CxempbN T%C>9C+Error en largo de campo depsito. Suspendo?aTC%C>%CPTC >C0Error en largo de campo lote/despacho. Suspendo?a TCW%CbienescodinsFG((codigoE%C4 N.rstock%5>I>  5%  C #T!' T"-T# - Cantidad queda en negativo !!!#CStock Error Suspendo?aC"# $T#!- La cantidad queda en negativo :C C C C  Artculo/Atr/Bul : C / C / C %%}A&logmsg()*CANTIDADCOC'@%  C + T!' T"3T#&- Cantidad queda en negativo !!! (PED)"CStock Error Suspendo?,C"# $T#&- La cantidad queda en negativo (PED):C C C C  Artculo/Atr/Bul : C / C / C 8%%4A&logmsg()*CANT_PEDCOC'F-G((codigoE T.C4(%.C/ .  T%Cdespacho Qdespacho7%00000H-Cdespachodespacho7%00000T0/%C$%Cbienes Qbienes% CbienescodinsT01/%. Nrstkxdep20/  >/%+>-> 5%  C T!' T">T#1- No hay stock suficiente o queda en negativo !!!#CStock Error Suspendo?aC"# $T#/- No hay stock suficiente o queda en negativo :C C C C  Artculo/Atr/Bul : C / C / CC C  Deposito : 2C C  Lote/Despacho : 0C C  1 %%- A&logmsg()*CANTIDADCOC'5%  C T!' T":T#-- Cantidad comprometida queda en negativo !!!#CStock Error Suspendo?aC"# $T#+- Cantidad comprometida queda en negativo :C C C C  Artculo/Atr/Bul : C / C / CC C  Deposito : 2C C  Lote/Despacho : 0C C  N %%J A&logmsg()*CANT_COMCOC'6% C  T!' T"0T##- La cantidad est comprometida !!!#CStock Error Suspendo?aC"# $T##- - La cantidad est comprometida :C C C C  Artculo/Atr/Bul : C / C / CC C  Deposito : 2C C  Lote/Despacho : 0C C  Z%%VA&logmsg()*CANT_COMCOC'% ,F-G((codigoECX%C4 Frstkxdep20CX% >> %3%Cstockg uQ4\stockg%Cstkxdepg Q4 \stkxdepgF5G((codigoE%C4 /rstockg%`5>I>  4%     F6G(( codigoempECZ T.C4%.  _T%C0 %Cdespacho Qdespacho7%00000-Cdespachodespacho7%00000BT0/%C%Cbienes Qbienes%CbienescodinsT01/%. DYrstkxdepg208/ [ >/%+>-> % F6G(( codigoemp!ECXCZ%C4 {Qrstkxdepg208CX% >>   FBU9XCODIGOXATRXBULXDEPXDSP XINICIALIZA XCANTIDAD XCANT_PED XCANT_COM XCANT_PRDXCANT_OCSXCAUSXNUMSXFECXEMP XFORZAR_VENCP_CODEMPXVENCSYS_MOSTRAR_SCREENXAREABIENESCOD_INSSTOCKCODIGOATRBULCANTIDADCANT_PEDCANT_COMCANT_PRDCANT_OC P_IN_VERSION SYS_CONTSTK TTS_ERRORSTK_ERRSTK_MSGLOG_ERROR_STOCKP_LOGSTKLOG_STKLOGMSGXCAUXNUMCANTP_NC_APROBACIONSYS_MSTKXDEPXENCVENCDESPACHOFECHADEPOSITOP_IN_STOCK_GLOBALP_SYSTEMSTOCKGSTKXDEPG CODIGOEMPEMPU3CCXBUXCODIGOXATRXBULXDEP XINICIALIZAXCANT_OCG_STOCK#3   TC T C  T C  %C>9C+Error en largo de campo depsito. Suspendo?a H 1(?C-  2{?C-  3AC-   4(DC- c   5~BC-   6@C-  7'AC-   8z?C-  9BC-  %C%S FG((despacho+%N Ta yE TC4% VC Debe estar definido el despacho C para C !!!  C% 125689x>*% C jT' T4T'- Cantidad x lote queda en negativo !!!#CStock Error Suspendo?a C T*- - La cantidad x lote queda en negativo :C C C C  Artculo/Atr/Bul : C / C / C t-%S  ]C 'Serie: La cantidad debe ser 0 o 1. DSP:C COD: C !!! BU CODBULTATRIDEPCANTDSPSEDSEHSXCAUSXNUMSXFECXEMPSYS_MOSTRAR_SCREENXTIPG_STOCKBIENESLOTESDESPACHOCOD_INSBULATRENC ERROR_STKREG_LOCKCANTIDAD P_IN_VERSION SYS_CONTSTK TTS_ERRORSTK_ERRSTK_MSGLOG_ERROR_STOCKSERIESTC TC TC 'G(\log\log_stock_erroresG G *CC Emp: CCZ H CCfSTOCK$TC X Operacin: CC C  C* Indefinida6+C X Artculo:  (C X Cantidad: C  Z(C X Cant_com: C  Z(C X Cant_ped: C  Z(C X Cant_oc: C  Z(C X Cant_prd: C Z CCfSTKXDEPTC X Operacin: CC C  C* Indefinida6+C X Artculo:  #C X Lote: #C X Depsito: (C X Cantidad: C  Z(C X Cant_com: C  Z(C X Cant_oc: C  Z(C X Cant_prd: C Z 2*Tabla no considerada !!! : CC-PQGG(BUSTK_ERRSTK_MSGSXCAUSXNUMSXFECP_SYSTEMP_CODEMPCODIGOATRBULCANTIDADCANT_COMCANT_PEDCANT_OCCANT_PRDDESPACHODEPOSITO reg_stock0 act_bienesact_movget_artcdep_suge val_depxcod@ hlp_depD valid_dephorauvld_bulvld_atresta_en_filtroshow_stock_consultag show_stockget_stk2&get_stk30get_stk45 det_stock:7regist>REGIIteste ordenacionX act_stockerr1 comprometerʙstk1:stk2min_oحstk_ini)ini_stkzsm_pperr_7 shw_n_getshwstkdshwstkxz get_stk_xdepagregar_registro$ comb_bul_atr_ qpr_ordenado8arts_ordenados save_stock check_stockmovstime error_stk!reg_x_despachos ver_pedidos  ver_ordenes cancomdepregcom} arts_pedidos comp_sel_form4arts_produccion4ver_produccion@A ver_prodordE consulta_stkPImsgerrMqpr_produccionRqpr_produccion_mal1^ ver_lotesjarticulo_descrqarticulo_datos_ampliadostactualizar_articulo_factor\ obtener_stockplanificado_tablaplanificado_compromisos_tabla1validar_fecha_operaciondefinir_genricodefinir_generico_componenteposicionar_cen_depevn_field_dblclicksurtidosurtido_repetir"liberar_surtido test_stock buscar_arts& g_stock_inibg_stock0 actualizar_oc act_stklog_error_stock  FUgr_ped_eventos)grilla_columna_eventos:form_controles.vcx,1}#A!A!Ara1AABAArqAAdv1Au1ABAB3q1ABQAQQAAQARQAAQAAQAB21qQA2rbaAAAAABBBAAABA3"ArrqqQaAAAbaRAAB31'ArrqqRaAABba1AAAARAA4"Arbar2AqqAA1AAAa4AA1FAA26"AQ21"q1qqaaq!qAAAqAAq2qrQA!31!ABraaAAaqAqaaqAAAAqaaqAAAAAA41!ABraaAAaqAqaaAAAAqaaAAAAAA2qqqQqAAq3qA2qF"uAAArrrrQtqqrAA2rqQAaBR22qAArqAAqAAArqAAAArqAAAAA2!sqbaAAAAAqAAqBqAABrqAABrqAAqAAAAAqA1AqAAAAQ !A!ArAArAAB3sABs1rABtBABAArs1rABtBABAArUB2ubaArB3}rr1ABrrbaAAAAAqAAqAABqAAqAABrqAAqAABrqAAqAAqqAAAAAAAA1At"1AaAADAqAAA21sAqr{ArAABs1rABtBAUAAArs1rABrBAUAAAArAQAAAAA51tqAArAQAAAB3rbV4rqAA rrrbaBadSk ABBAArarsrAObrABArqAAubAArB2ACB5rqAA rrrbQaaHSj BBBAABJAArarsr22OrrABBAABrqAAxxbAArB24ABs"CB4 AACBAgq/A3AAABB2ra1AABAArRtbaARABqr5qC AA21rAAA2AAAtbQaA2R&12AAAA2qC AAqB2"qAAAAB3V1rAAA6XVBdBCACArTtQAauBeCAAB4w"bRr AABBB!FBBBuqAAtaaA Bbs11r1rArABASAAARtaaARdA2rAraAQArrAAAsAAB33 A2ABBBBB321RRBAAAAAAB4pq)A!A!Avu1AB6urbaArA2BqAA95yqAABbAAABAQQBAAA2QAAAB2AAAAB A# AAB323 A2AA31raaARA2rAr2AQUAB4QrAqbaAAAAAqAA2ArAA"ABqAA2ArAABrqAA2ArAABrqAA2ArAAqAA2ArAAAAAA1Aq2AB32rAtsAABs1rAqBtBAAAAArs1rA5BtBAQAAArAQAAAAsAaaARA2rArRrAQAAAB2!aA2A21qA1UraaA1raaA1rqR1BAAABABAAA2rAAAqaqAarbaA1AAaAA"!AAB2AB2A2q qA"BqAQABrbB31rbqAqArqAAAQsrd11AArQEsscsbs11AArQBsAq11AAbqba!11AArQrAA1bABaqbaq21AAqaaAQ11AArQrAAQQq21AArQCrAA1AcrB21AArQVucBqbar21AArQVucrAAAC21AAqbar21AArQVurAAAADrAQAAAB2q$rsAAbqAqAqAAqAAqAAqAArrsurABrAQAAAB21rRaQaAbaR2AArABBrB2qrQ BSB2qqAAqAAeqscrrcaAr rAAAr BBBrbarbaA rAAA BBrAAAcrABqbaArAABCsbaArAABAA2qAAAAAB2TAAAAqAArbrqbqQQAAAqAsArAB3rsdB2"2a1tAQAAaAaar!AAAAaArqaqqrQrq$arsAqqbs!Qr$arqqAbraqqcaaRAQaAQaASA2tqQA21B212"qAAr2A1"2ArA2ABAAC3rqArAAqArR AsAr1q$rAr!1qBA2!!Aa!A21QAA$1Q!rQB2rtRQARAr!1qQqAaaAQ!a!QbrArC3AAqrrAbarqqAABA2"A!A!A"A2AAbqABAqrqAAAAQAAAB3qrAAAqAAQqAQqA4BABA!*2$qA6BrBQqAQqA!A2A/1A2dqAAQqAQqA!qA*IrBArqb2Abq1qAqaq1qAqAqQB22B2qAAqAAqAAtQ2rtrArrqqAArqAAAAR1ArQ b BrCBM2rrsrrrqqAArqAAAAR1ArQ b BrBBGB2rRQARAr!s!1qQqAArasB2rRQARAr!s!1qAqArarrB36AAbrRqA2Ar"A2q!AAA2111a1A11a111!1111111111A3qra BBqAAQAQA !QA14Q AAAAABqAABB2qtRqARqA@$ BBqAAQAQA QA4Q AAAAABqAABB3r!A0)t!r1AqRrArC22!A2"!Ar!AAAA!AA2B4`1"A!A!A!A!A!A!AAAAAAAAAAAAAAAA!AqaAb!AAArqArqAsArbacaaAacaaAabaBAA"A1ArA2w!21AQQA!!A"1AAAdqAAAA1AAAAAAAAQBAAA2pAAA"AAArAA1A!AqsAqr2rnBA+A%AAABBs1AqtaA1B2BAAqqAAAABBAr1Yr1AuAAq Rrq "A2-"QABBAAAAA{r44A Ar` rA32aAiq"r!2AAAAArArAurQvrQBAA31AAAARqAAAmB21AAAARAAA B21!AqaqAA1A2uraqAqqbaAAAAuQ1qAArAAArA1qAArAAABr1a1qAArAAABr1a1qAArAAAsQ1qAArAAABAAAA2ABB32rBs1BtBAArs1AtAAABB3AA1AbQAAAA6qAA57BAr>sqqAA<"rAstrR2AA32sA1A2AAwb23A1AAA2AB2AAB2qbABB1AqAqAAC32RAB1BAB22r"rRQQabArBBB49RAra1AArAArqAACur1 AB21PAA21AAqA"$AQAQqAQAQqA!A!A!AQAQqAeqAbR221AAAAAA1QABB42ABQ!AQAA4ABBBB2RA"q1M!1'!1C1'1)!1>*BA1#1#!1$aACQAT!AzD4A2ArqI22AAAAr"A"Ae"A"ABA2121ArR"BR!BC{bArAVBS2$AA1"tAAt4AArArA!AbArBABBS2FAAR2AAb2AA3raABA4AAsAVBEy!r2"AArArA!AbArBCABB2r!ABABBA32B2121SBAAAAAA!AAAA!ASqqQAaAA2ABACAB3q21raaAA11A!baB39 f^7~T]z"["%%++0301>@16Q6;<<<;=R=zF)F=VrRVt^ ^``nvn v P 6   N .# ?#& &)$ *8X 8#K 5KwK KK KhST{SYpYZ%Z`#`Ŋ ڊ\ uMx? jM  6 0> G  J- `9 D  5f7 ,eX y J & . .3 3,8 E8==BF9BUspUh:3hp psQ t? 'd < O*! g>V !+7!@"H^!"z # %#Q##P#;PzT%T\{%v{|c',|Ȇk'3'4"% >R"m4G  TG  (O THZ Py T'TProcesando informacin ... G(pTC>T(C 80 (+(G(T \temp.txt G(G G  IT S+C ]READY' (O TLT?La impresora debe estar ON-LINE !!!. Quiere imprimir ? (S/N) : T  D&( G(xTC> T(C 80 (+(! @!G(9 @& % N#B TT Espere ... G(pTC>T(C 80 (+(G(H 1& G*(lpt1 2G G*(lpt2 3e G*(F 4 G*(G 2 G*(lpt1G* G  NB T@%IB&C C@ C CC CH 5C 6C IC C tC  T T TCN4 Nmero de Registros : CZN Registro en Proceso : CC+Fin de ArchivoCCOZ6%  T+a%C+)TCC66%% %  %% %+NT !CIC 6T    +T !CIC 6T   !%^ %~,CI C 6! % "#%#% !CIC 6T   !TT  T$ T%%CCVA?if &kk;%S (%$   + TC6-%C$&6 %$z '&#TC$&6%( )(T(  %( +1 T !CIC 6T   ! )(T(T  | + T T!CIC 6   ! )(T ( O + T !CIC 6T   ! '& )(T &( 7+ T !CIC 6T   ! '& )(/T C6&( T$%   !CIC 6T   !T * )CCOZ+THGG(G*G %\ TG BU,ERRNUMSIONOAPARATOYCADENAXXXTEMPTXTP_LOCALSIONLONGSCRPUERTALPT1LPT2PL LINESLANTPAGESCOUNTERKKUUDESPHAYTOTHAYSUBTMAXRFMAXPFLINESTOTALSUBTOTESCRIBRFESCRIBPFPAGINAESCRIBPHMAXPHTITULADOESCRIBRHMAXRHOOL_EVMAXAEESCRIBAEMAXBEESCRIBBEACTACUMSSENDLINEqaaAqqQaaaAqqaAAAAAqqQaAAAAAaaAAABaQAD3qqABqqABqAqAqqqABHAA1AqQAqqA1A1qAqQqAqAAqAqAqAqqAAAqQAqrAAABbaaa1AaA1%  NhKU Print2PDF.prgU PRINT2PDFPRG: ,TC Print2PDF Print2PDF.prgUXREPORTEXPDFTHISOEPDF.CUXREPORTEXPDFXFILTROTHISOEPDFEXPORTARDummy,Init[Exportar" T-  UOEPDF Exportar_PDFCustomO1A4224"q9 TD %04n1RU 4%Ccons 1Qcons%Ccuentas aQcuentasF#)FG((abrev ET%CW+%Ctmp_gastos_de_importacion 3C&Error al actualizar la importacin !!! B- F'>   1> 1>1>1>1> >!"F# ~,C#%#&#'#(#)$ F%)T* "+T,C* T >-,  >-%Cconver KQconver379648 5C(No se pudo actualizar la importacin !!! B-BaU:XIMPXALIASCONSCUENTASABREVIMP_IMPO XCUENTA_IMPOCOD_CUEOBTENER_GASTOSMENSAJEIMPDESPA BIMPDESPAFECDESPAIMPFLETE BIMPFLETEFLETEFECFLETE IMPSEGURO BIMPSEGUROSEGURO FECSEGUROIMPBANCO BIMPBANCOBANCOFECBANCOIMPHONOR BIMPHONOR HONORARIOSFECHONORIMPFOBBIMPFOBFECFOB BIMPFOBMOIMPOTROS BIMPOTROSTMP_GASTOS_DE_IMPORTACIONACTUALIZAR_IMPORTACION_ITEMTIPOTOTALBASEFECHABASE_MO XGASTO_TOTALGSVARIOSXFACTORFACTORCONVERARR_FOBSUMENTRASALEFOBCOEFICIMPORTAC XFOB_PESOSXFOBXCAMBIO FOB_PESOS4 FH6  r)> 6>    6>  M6>  6>  7> 2 > BU!XALIASXTIPOXIMP_CON_IMPUESTOSXIMP_SIN_IMPUESTOSXFECHAXIMP_CON_IMPUESTOS_MOIMPDESPA BIMPDESPAFECDESPAIMPFLETE BIMPFLETEFLETETMP_GASTOS_DE_IMPORTACION PROVEEDORFECFLETE IMPSEGURO BIMPSEGUROSEGURO FECSEGUROIMPBANCO BIMPBANCOBANCOFECBANCOIMPHONOR BIMPHONOR HONORARIOSFECHONORIMPFOBBIMPFOBFECFOB BIMPFOBMOIMPOTROS BIMPOTROS4%CxtipobLC T%CxmonedabLq T%CxbasebL T%CxtotalbL T*%Ctmp_gastos_de_importacionFQ%Ccccomp 1Qcccomp%Ccuentas aQcuentas%Ccompras Qcompras%Cproveedo Qproveedo%Ctipoimp Q \tipoimp T .t.%%mT `iif(empty(compras.cod_ins), iif(compras.tipo_imp#0,compras.tipo_imp,cccomp.tipo_imp), 6) = xtipo select round(compras.tot_com*(1-cccomp.desc1)*(1-cccomp.desc2),2) as base , round(iif(cccomp.tot_com-cccomp.des_com=0, 000000000000000000.00000, compras.tot_com*(cccomp.deuda/(cccomp.tot_com-cccomp.des_com))),2) as total , compras.importac as imp , iif(empty(compras.cod_ins), iif(compras.tipo_imp#0,compras.tipo_imp,cccomp.tipo_imp), 0006) as tipo , nvl(proveedo.nombre,cccomp.des_prov) as proveedor, cccomp.fec_com as fecha , round(iif(cccomp.coefic=0, 000000000000000000.00000 ,compras.tot_com*(1-cccomp.desc1)*(1-cccomp.desc2)/cccomp.coefic),2) as base_mo , round(iif(cccomp.tot_com-cccomp.des_com=0 or cccomp.coefic=0, 0, compras.tot_com*(cccomp.deuda/(cccomp.tot_com-cccomp.des_com)))/cccomp.coefic,2) as total_mo , compras.cod_cue , iif(empty(compras.cod_ins), iif(compras.tipo_imp#0,compras.tipo_imp,cccomp.tipo_imp), 0006) as tipo_det , cccomp.coefic as cambio , cccomp.moneda as moneda , cccomp.op as op from cccomp with (buffering=.t.) left outer join proveedo with (buffering=.t.) on cccomp.cod_pro=proveedo.cod_pro , compras with (buffering=.t.) group by compras.importac, cccomp.tipo_imp, compras.itm, compras.op, compras.pago, compras.cod_cue, compras.moneda, cccomp.fec_com where str(cccomp.op)+str(cccomp.pago)=str(compras.op)+str(compras.pago) and compras.importac = ximp and &xfiltro into cursor tmp_gastos_de_importacion1 readwrite ~ %C '%Ccuentascuenta 6%C \SC $\S CLa O.P. CCZ2 no est imputada a la cuenta de importaciones !!!C >Los gastos de la importacin sern reasignados al rubro OTROS.FG((codigo E% F>% + T .t.%l T  tipo=xtiposelect sum(base) as base , sum(total) as total , imp as imp , tipo as tipo , max(proveedor) as proveedor, max(fecha) as fecha , sum(base_mo) as base_mo , sum(total_mo) as total_mo , cod_cue as cod_cue , moneda as moneda , cambio as cambio from tmp_gastos_de_importacion1 group by imp, tipo, cod_cue,moneda, cambio, fecha where &xfiltro into cursor tmp_gastos_de_importacion readwrite 8T .t.%s T tipo_det=xtiposelect sum(base) as base , sum(total) as total , imp as imp , tipo_det as tipo , max(proveedor) as proveedor, max(fecha) as fecha , sum(base_mo) as base_mo , sum(total_mo) as total_mo , cod_cue as cod_cue , moneda as moneda , cambio as cambio from tmp_gastos_de_importacion1 group by imp, tipo_det, cod_cue,moneda, cambio, fecha where &xfiltro into cursor tmp_gastos_de_importacion readwrite +%Ctmp_gastos_de_importacion1rFQF%[ ~@ T T T T T T  T! T"3#listados !"F >%%i > T T& T T T T  T! T"3#listados !"F >'%< >&K(%' |K(&FBU(XIMPXTIPO XDETALLADOXMONEDAXBASEXTOTAL P_IMP_MONREFTMP_GASTOS_DE_IMPORTACIONCCCOMPCUENTASCOMPRASPROVEEDOP_SYSTEMXFILTROCOD_CUETMP_GASTOS_DE_IMPORTACION1ATRIBUTOMENSAJEOPTIPOIMPCODIGOTIPOINTEGRA XMONDESTINOXIMPORTEBASEXMONEDA1MONEDAXCOEFICCAMBIOXFECHAFECHAXMOTIVOXMENSAJE XCAMBIO_REFFN_CALCLISTADOSBASE_MOTOTALTOTAL_MO 4%C%Cdespacho QQdespacho%Ccos yQcos%Cconver Qconver F%)T     TC T >F*>CTF~{F--   %C4 -  %C4>CT cs_generar0C ZI B- AC4Error al actualizar los costos de la importacin !!!B-BaU XIMPXALIASACTUALIZAR_IMPORTACIONDESPACHOCOSCONVERIMPFOB XGASTO_TOTALBIMPFOB BIMPDESPA BIMPFLETE BIMPSEGURO BIMPBANCO BIMPHONOR BIMPOTROSGSVARIOSXFACTORFACTORCOSTOFOBFORIMPORTACITEMCOD_INSAGREGAR CS_GENERARBULATRFECHACOSMONP_CODEMPMENSAJE 4%Ctipoimp CQ\tipoimpotipoimpǼ1Q& & %Cimportac QimportacFG((numero E F%  #>  % B #>  % q #>  %  #>  % #> % #> BUXFILEXALIAS XIMPORTACIONP_SYSTEMTIPOIMPCODIGODESCRIMPORTACNUMERO REC_DESPAPOSIBLE REC_FLETE REC_SEGURO REC_BANCO REC_HONORREC_FOB9J%C3Est seguro de actualizar todas las importaciones ? NBG+(listadosG+(dey_func%Cimportac Qimportac%Ccompras Qcompras%Ccccomp QcccompF CCN ~$TCimportacOBCProcesando Importacin : CC @z 999,999,999_0 cm_imp_funciones importacF #"%   S 0cm_imp_funciones importacF # CBU MENSAJE_SINOLISTADOSDEY_FUNCIMPORTACCOMPRASCCCOMP ESTADO_INIXREG ESTADO_INCNUMEROACTUALIZAR_IMPORTACIONCM_IMP_FUNCIONESP_CS_IMPORTACIONESCERRADAACTUALIZAR_COSTO ESTADO_REL H GT Sin asignar oTDespacho TFlete TSeguro TGastos Bancarios T Despachante <TFOB/EXW aTOtros 2T Desconocido BUXTIPOXDTIPO %Cimportac 9Qimportac%Cconver gQconver oconverQbienesQ   Q     por_lin_gru K( oo por_lin_gru  C Q C  dQQ  por_lin_gru T ~>d T#)%%C+ >BUXIMPXIMPORTEIMPORTACCONVERXTOTALXACCCCOD_INSENTRAFOBTOTALBLINEAGRUPOBIENES POR_LIN_GRU PORCENTAJEIMPORTE%FG((numero E%C4H`3  >  >  >  >  >    >  3"%Ctmp_importacionesdF Q - cm_imp_funcionesimportac (CImportacin inexistente !!! T BU XIMPORTACION XTIPO_IMPXULTIMOIMPORTACNUMERO REC_DESPA REC_FLETE REC_SEGURO REC_BANCO REC_HONORREC_FOBTMP_IMPORTACIONESBORRARACTUALIZAR_IMPORTACIONCM_IMP_FUNCIONESMENSAJE TTS_ERROR T T# co_funciones%iCB,oconcepto 4q ~F G((asiento E  T T T %Q%cm_imp_asiento %MC B 9C Asiento :CC Z sin importacin !!!BUXFECHAXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESMENSAJEDISTINCTASIENTOIMPORTACCONCEPTOTIPO2QDIARIOGXMSG XIMPORTACASIENTO_IMPORTACIONCM_IMP_ASIENTOactualizar_importacion0actualizar_importacion_itemobtener_gastos actualizar_costotipos_de_comprobantes actualizar_todas#tipo_de_comprobante_descr&porcentajes_x_linea_grupoN( actualiza_cambios_en_importacion*,rehacer_asientos_importaciones_del_ejercicio-9fA1ArQsD1qAutsB4bB!Ar5"AAAAQqAq311e1e1e1e1uAB3AAAAqAA!A1A1AAAAr2BA_!qa BAArbqAB1qA1ABqAAr44r2A4r2ABrrBqB3AAQA!A5brrArAQABrAqAr3A"AAr"A"A"A"A"A"AB2AA#!AA1A!Arq"r"BrBB211Q1!11111A1!A2AA!AQAQrQAAD37r1111111B%qAArABC3r43AAr2U2AABBB3 = Q'l))Z0|0 4&474479kK9=c=BBE %u3>^\XU CUTHISDISPONSEIT-T-T-T-T-UTHIS DIR_SISTEMA DIR_TABLAS DIR_LOCALDIR_TMPDIR_INST,"%C xDir_SistemabCLTC!%C xDir_TablasbCT%CxDir_TMPbCT  %%CP_LOCALbCT C TMP !#T F:\SISTEMA\2000\TMPU XPADRE XDIR_SISTEMA XDIR_TABLAS XDIR_LOCALXDIR_TMPTHIS DIR_SISTEMA XDATOS_DIR DIR_TABLASDIR_TMPP_LOCAL$%CThis.Dir_LocalbL%CP_LocalbCTTC ~ TF:\SISTEMA\2000\BCUTHIS DIR_LOCALP_LOCAL&%CThis.Dir_SistemabL%CP_SystembCWTC 'TF:\SISTEMA\2000\SYSTEM\BCUTHIS DIR_SISTEMAP_SYSTEMsA%C This.Dir_InstbLCThis.Dir_SistemabC ]TINST\BCUTHISDIR_INST DIR_SISTEMAS%Cp_codempbN , T BCData\CCZUP_CODEMPTHIS DIR_SISTEMA@TC Collection sys_clases_tablasUTHIS COLECCIONCREAR_COLECCION_TABLAS_SISTEMASYS_CLASES_TABLAS@TC Collection sys_clases_tablasUTHIS COLECCIONCREAR_COLECCION_TABLAS_EMPRESASYS_CLASES_TABLAS;T"%C This.DaadasbOLT %C This.CrearbOT#%C This.TriggersbOT!%C This.En_UsobOT(%CThis.SincronizablebO4TUXMTHISJSONABLEDAADASCREARTRIGGERSEN_USO SINCRONIZABLEU TCTCC G(GES UXSTOREXFSTORESYS_VERIFICAR2_STORE_PROCEDUREODEYFUNCNEWFILE_LOCAL_TMPGESo TC FTC(_ T- BUXTABLAOTABLAXKEYTHIS OBTENER_KEY COLECCIONOEX*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHISEN_USOJSONABLECREAR*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHISTRIGGERSJSONABLE*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHISSINCRONIZABLESJSONABLE*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHISDAADASJSONABLE*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHISEN_USOJSONABLE'TC BUXOKTHIS REINDEXARRESERVAR Ta*CReservando tablas: %Ca-a C H  %CCf - NO EXISTE   (CCf - EN USO LOCAL   C'CCf - EN USO OTRO   -CCf - ERROR DE BACKLINK 2+CCf - ERROR -    T- BU XOKOTABLATHIS COLECCIONOESTADOAVANCENOMBRE COD_ABRIREN_USOCOLL_AGREGAR_TABLAERRORNUMINFORMAR_TEXTOERRORTXT %CoTablabOu%WTC qTBTabla_CCfUXTABLAOTABLADIR_ID DIR_TABLATMPNOMBREQSTRING)QTABLAsys_clases_tablas.prg yTCTC( T- BU SYS_CLASES_TABLASPRGXTABLAXKEYOEXOTABLATHIS OBTENER_KEY COLECCIONa %C this.padrebON @T J BUTHIS LOG_VALIDARPADRE #   %C xUbicacionbLp TH T C  T C   T  2 T   T TC (TCCf CCaT   B U XPATH_BACKUPXMASCARAXTEXTO XUBICACIONXDIRNDIRNITXEXISTEXTABLAOTABLA XLIMPIADASXPATH2P_SERVERP_SYSTEMTHIS BACKUP_MANUAL)BC*.IDXIDXU XPATH_BACKUPTHISLIMPIAR_ARCHIVOS_TEMPORALES ' T(TC CC -Limpieza\TC \*.dbf(TCCCf T-%CTable  u1T!CBARRASCFG01COMUNIC "TC=LOCAL TC "TCoTablabO   Ta% TCa TC &T C*.TMPTMP % UC Se limpiaron CCZ tablas,CCZ IDX, CC Z TMP.-  BUXDIRNDIR XPATH_BACKUPNITXEXISTEXTABLAOTABLA XLIMPIADAS XLIMPIAIDX XLIMPIATMPP_AUTOBACKUP_PATHP_SERVERTHIS OBTENER_TABLA BACKUP_MANUALLIMPIAR_INDICES_TEMPORALESLIMPIAR_ARCHIVOS_TEMPORALESINFORMAR_TEXTOV %C xUbicacionbLD T%CxMaskbCqT*H TC TC   T 2 T 1!TCC f X C(f% +C.(C*.*C. Ta  T- "+C.(C*.* Ta F T- BU XTABLAXPATHXMOVERXMASK XUBICACIONOEXXOK XPATHBASEP_SERVERP_SYSTEM*QTABLASsys_clases_tablas.prgT(%CoTablasbO <TCTablasSys_Clases_Tablas.prga BUOTABLASSYS_CLASES_TABLASPRGTHIS REINDEXARJSONABLEg>%Cthis.Dir_sistemabLC This.PadrebO TT BUTHIS DIR_SISTEMAPADRE=%Cthis.Dir_TablasbLC This.PadrebO v dT(r BUOEXTHIS DIR_TABLASPADRET"%C xDir_SistemabCYT!%C xDir_TablasbCT%CxDir_TMPbCT T C Collection%  U XNO_INICIAR XDIR_SISTEMA XDIR_TABLASXDIR_TMPXPADRETHISPADRE DIR_SISTEMA DIR_TABLASDIR_TMP COLECCION CARGAR_DATOS@TC Collection sys_clases_tablasUTHIS COLECCIONCREAR_COLECCION_TABLAS_EMPRESASYS_CLASES_TABLAS^QTABLA TaNTC  BUOTABLAXOKTHIS COLECCIONCOD_CONTROLAR_ABIERTA  OTCC(Hn  2U OOBJXKEYOEXTHIS OBTENER_KEYNOMBRE COLECCIONADDERRORNO %CxNombreIB-%CxPathp T+%CxClaseCxClasebL E XTCTabla_Csys_Verificar2_tablas.prg (ATTabla%  =%CxObjbO ,TC N(%CxObjbOC B B-U XNOMBREXPATHXDBCXCLASE XREINDEXABLE XCOMPACTABLE XZAPEABLEXOBJOEXTHISERRORNOCOLL_AGREGAR_TABLA *TCCC-C\ TawT C  BUXTIPO XPATH_BACKUPXOKP_AUTOBACKUP_PATHOTABLATHIS COLECCION BACKUP_MANUALY TCTT BUOTABLASXTIPOXOK BACKUP_TABLASTHIS HUBOERROR RESPUESTAD=CCU XCOMPACTAROTABLATHIS COLECCION REINDEXARINFORMAR92 CCUOTABLATHIS COLECCIONREPARARINFORMAR92 CCUOTABLATHIS COLECCIONTRIGGERS_ARREGLARINFORMAR BCDaadasUTHISTABLAS_MARCADAS_BACKUPDAADAS"BC ReindexarUTHISTABLAS_MARCADAS_BACKUP REINDEXARo %1CT TC UXTEXTOXERRORTHIS LOG_VALIDAR LOG_AGREGAR HUBOERROR RESPUESTA)QTABLAsys_clases_tablas.prg%%cC C% T a TC U OTABLASYS_CLASES_TABLASPRGTHIS LOG_VALIDAR PROCESADO LOG_AGREGAR RESPUESTAERRORTXT HUBOERRORA ,C(:UXTEXTOEXTHISPADREMENSAJEYTC/ctrlaaUXARCHIVO XCOMPACTAR XERRORCHECKXPATHXMSG REINDEXARCTRLU;TC BRN_CCZU XREGISTROTHIS COLECCIONCOUNT:TCCUORECXRNTHIS OBTENER_KEY COLECCIONADDQ T % <TBCaUXNOLOG_INTERNOXNOLIMPIAR_MENSAJE_INTERNOTHIS LOG_INTERNOMENSAJE_INTERNOCREARG+(dey_funcTCTCTCTCTC  T %.TC Ta% T  wT  C T  C - FT  CC Clave6:C[CC ]%T   0T  CC C 6 U XTABLAXCODIGO XENCABEZADO XFULLTEXTO XMISMALINEAXNOENTERXCLAVEDEY_FUNC CHK_VALUEXSALIDA TO_STRINGTHISMENSAJE_INTERNO%Z)C 4  sys_verificarU XTABLAXCODIGO XENCABEZADO XFULLTEXTO XMISMALINEAXNOENTERXCLAVETHIS LOG_INTERNOLOG_AGREGAR_INTERNO LOG_AGREGAR SYS_VERIFICAR"BCCUXALIASTHISID_BUSCARSE_CODIGO ID_EVALUADO!BCUXCODIGOTHISNOMBREID_ORDEN96C)Esta funcion debe heredarse y definirse!!UMENSAJE|T%C@LT@)BC@CC C.6UXALIASXCAMPOTHISID_CAMPO@TC TCC BUXALIASTHISALIASXID ID_EVALUATE7%B- 0 BUP_SINC_SINCRONIZARTHIS SINCRONIZABLE^%Ba W%=B- S BUTHISTRIGGERS_FORZADOP_SINC_TRIGGERSTRIGGERSBC UTHISALIASNOMBRE^C- FTC %%C. bTT %C  T CCZ #>.?>rec_upd_CCZ  CZ  W.>rec_upd_CCZ  U XREGISTROXULT_MOD XOPERACIONXREG_UPDXAUTXCAMPOTHISCOD_CONTROLAR_ABIERTAALIAS CAMPO_ULT_MODXTRECPENDFORTABLAREGISTROULT_MODP_CODEMPyTC%EMP%CCZ$TC%Nombre%CCf$TC%Dir_ID%CCZ BUXVALP_CODEMPTHISNOMBREDIR_IDBCUTHISTRIGGER_REEMPLAZAR_VARIABLESTRIGGER_INSERTBCUTHISTRIGGER_REEMPLAZAR_VARIABLESTRIGGER_UPDATEBCUTHISTRIGGER_REEMPLAZAR_VARIABLESTRIGGER_DELETE/%CThis.ValidadorbO m>TC VLD_Tablasys_Verificar_Tablas.prg BUTHISJSONABLE VALIDADOR+% CCfGES 9BaTC  Ta-TCINSERT -TCUPDATE -TCDELETE  BU XTABLATHISEN_DBC DBC_NOMBRENOMBREXOKTRIGGER_VERIFICARTRIGGER_INSERTTRIGGER_UPDATETRIGGER_DELETE^%C ! B%CKT BUTHISCAMPO_ULT_MOD_EXISTENTECAMPO_ULT_MOD_EXISTE CAMPO_ULT_MODv  Ta M-C.FieldComment(f T- BUXOKOEXTHISNOMBRE CAMPO_ULT_MOD} B- Ta T-C.FieldComment(m T- BUXOKOEXTHISNOMBRECAMPO_ULT_MOD2&TC BUXOKTHISCAMPO_ULT_MOD_EXISTENTE"TC %C KT-% o T  (TCCtableTriggerfT Cf0T  C  Actual : C ,T  Nuevo : CfC  B U XTABLA XTIPO_TRIGGERXTRIGGER XDATABASETHISNOMBRECAMPO_ULT_MODS_EXISTETRIGGERSXTRIGGER_ACTUALXOK RESPUESTAB Ta%C 4T-ATCC - 6 Triggers: C ?TCINSERTC 6 ?TCUPDATEC 6 ?TCDELETEC  6 BU XOKTHISCAMPO_ULT_MODS_EXISTETRIGGERS RESPUESTATRIGGER_ARREGLARNOMBRETRIGGER_INSERTTRIGGER_UPDATETRIGGER_DELETETC TCf  Ta(TCCtableTriggerf%CfCf T D Q F LHH DELETE  INSERT!  UPDATEH (Z%C M |Hx DELETE6CREATE TRIGGER ON (xTabla) FOR DELETE AS &xtrigger  INSERT)6CREATE TRIGGER ON (xTabla) FOR INSERT AS &xtrigger  UPDATEx6CREATE TRIGGER ON (xTabla) FOR UPDATE AS &xtrigger (I]CAgregar trigger en tabla: CCf Error: [CC Z]   WT Agregar trigger en tabla: CCf Error: [CC Z]   T-(@nCAgregar trigger en tabla: CCf2 Error: No pudo abrirse la tabla en modo exclusivo hT Agregar trigger en tabla: CCf2 Error: No pudo abrirse la tabla en modo exclusivo T->T  CC  - 6 OKC GT  Resultado: CCtableTriggerfC T BUXTABLA XTIPO_TRIGGERXTRIGGER XDATABASETHISNOMBREXTRIGGER_ACTUALXOKOEX LOG_AGREGARERRORNOMESSAGEERRORTXT RESPUESTA PROCESADOUUU&  GES UGESUUUUUUUU%x fQFG>C]CG Q(tU THIS VALIDADORVLD_OKXDIRXARCHPRUEBA_VALIDACIONIDUFOROEX TTCCf $TCCCf } C((.*(C*.* Ta T- BUXPATHOEXXOK XPATHBASETHIS DIR_TABLAP_SYSTEMNOMBREI/ctrlaaUXARCHIVO XCOMPACTAR XERRORCHECKXPATHXMSG REINDEXARCTRL% ?TaTBa Ta T T C T  C % %C TC   )%T %TC %TCTC!CT % T T T CT CU XCOMPACTARTHIS REINDEXABLE PROCESADO RESPUESTAXMSG XERRORCHECKXARCHIVOXOKXRESPREPARAR_TABLA PRE_REINDEXAR DIR_TABLATMPNOMBREDIR_IDXPATHREINDEXAR_CTRLERRORTXT POS_REINDEXAR LIMPIAR_TABLATC_C] TC TC  %T CT C T TT T "%C xReindexablebN$T "%C xCompactablebN_T%C xZapeablebNTUXNOMBREXPATHXDBCXPADRE XREINDEXABLE XCOMPACTABLE XZAPEABLETHISDIR_IDEN_DBCNOMBRE DIR_TABLATMPPADRE REINDEXABLE COMPACTABLEZAPEABLEBCCfUTHISNOMBREI$%Cthis.Dir_TablabL6+%Cthis.padre.dir_tablasbCH`$   T 2H. T T .T BUTHISDIR_ID DIR_TABLAPADRE DIR_TABLASP_SERVERP_SYSTEM DIR_TABLATMPBCUTHIS DIR_TABLANOMBRE\ TCC  %C F%+USE (THIS.Dir_Full) EXCLU ALIAS &xAlias %USE (THIS.Dir_Full) ALIAS &xAlias T Ta(L% C T  T  T- BU XEXCLUXALIASXAUTXOKOEX2THISALIASNOMBREMENSAJEMESSAGEERRORNUMERRORNOERRORTXT%CCT!TC  AGAIN6 G%CSELECT &xAlias F%5USE (THIS.Dir_Full) EXCLU ALIAS &xAlias &xAgainT (/USE (THIS.Dir_Full) ALIAS &xAlias &xAgainT T  Ta(% uC T  T T- BUXEXCLUXALIASXAUTXAGAINXOKOEX2XAGAINTTHISNOMBREALIASMENSAJEMESSAGEERRORNUMERRORNOERRORTXTWTCC  FSELECT &xAlias Q PUXALIASTHISALIASNOMBREA ,C(:UXTEXTOEXTHISPADREMENSAJE  C % = GES g1 q %T =MakeTable_()&aaa Q+CCf - Tabla Creada T aT a Ta(9T aTCa  %dT a %CT a+CCf - Tabla Creada Ta 0CCf - No se pudo crear. (`0CCf - No se pudo crear. C  7CCf - NO CREABLE () BC U XTRYCUSTOMXOKTHIS PRE_CREAROEXDAAAEN_DBCGESNOMBRE LOG_AGREGAR VALIDADOR VLD_CREAR VLD_ARREGLADOCREARCREABLE CREAR_FUNCIONMESSAGE DIR_TABLATMP POS_CREAR B-U B-U B-UUQDATA_STATUS_ESTADO"TCData_Status_EstadoNTTTTTTT BU OESTADOXALIASTHISXORDERXRECNOXEXACTXNEARXBOFXEOF%CoEstadobO(BTTTTTTTU OESTADOTHISXALIASXORDERXRECNOXEXACTXNEARXBOFXEOFr%C 1T%N %k UXALIASXSIMPLE XCOMPLETOTHIS PUSH_SIMPLEPUSH7CTC BCUOESTADOTHISTOMAR_ESTADO_ACTUALXALIAS ESTADO_ACTUALC%CYTCOTCTC+ TCOTCTC+ BCUOESTADOTHISTOMAR_ESTADO_ACTUALXALIASXRECNOXBOFXEOF ESTADO_ACTUALnC%C;TC ZTC BCUOESTADOTHISTOMAR_ESTADO_ACTUALXALIASXORDER ESTADO_ACTUALUCTCexactvTCNearv BCUOESTADOTHISTOMAR_ESTADO_ACTUALXEXACTXNEAR ESTADO_ACTUAL?C F  BCUOESTADOTHISTOMAR_ESTADO_ACTUALXALIASPUSH_RN ESTADO_ACTUALTC%C6   BCUOESTADOTHISTOMAR_ESTADO_ACTUALXALIAS PUSH_ALIASPUSH_RN ESTADO_ACTUALhC%C6     BCU OESTADOTHISTOMAR_ESTADO_ACTUALXALIAS PUSH_ALIASPUSH_RN PUSH_ORDER PUSH_EXNE ESTADO_ACTUAL\C%C 7    UOESTADOTHISTOMAR_ESTADO_ACTUALXALIAS POP_ALIAS POP_ORDERPOP_EXNEPOP_RNGC%C6  UOESTADOTHISTOMAR_ESTADO_ACTUALXALIAS POP_ALIASPOP_RN2C F UOESTADOTHISTOMAR_ESTADO_ACTUALXALIASPOP_RNDCTSELECT &xAlias UOESTADOTHISTOMAR_ESTADO_ACTUALXALIASOC T :% %C%CC ~ # # 6%C%CC #6%C+ H 2#6%C+ .H(HUOESTADOTHISTOMAR_ESTADO_ACTUALXRECNOOEXXEOFXALIAS5C%CBT"" ^TC%C%CC SET ORDER TO &xOrder  . )SET ORDER TO &xOrder IN (THIS.xAlias) *T'')SET ORDER TO &xOrder IN (THIS.xAlias) UOESTADOTHISTOMAR_ESTADO_ACTUALXORDERXALIASoC TTSET EXACT &xExact SET NEAR &xNear UOESTADOTHISTOMAR_ESTADO_ACTUALXEXACTXNEAR? %CxAliasbCB TCSELECT &xAlias TCO(H%C+T  TCO #% BLANK IN &xAlias DELETE IN &xAlias %%#6%C+ !H 8 #UXTMPFILEXALIAS XNODELETEXREGXNEWREG4TC1%( T-'USE (xPath+xFile) IN 0 ALIAS &xFile (SELECT &xFile UXINICIALXPATHXFILEXFILE1 TCCTCTC1%CxAliasbC TCSELECT &xAlias TCOC C U XTMPFILEXINICIALXALIAS XNODELETEXREGXNEWREGXFILEXFILE1XPATHTHISTOOL_COPY_LOOP TOOL_BLANKD=%CxAliasbC7 TCSELECT &xAlias %C+ `H%C+T  TCO #% BLANK IN &xAlias DELETE IN &xAlias %#%C+ #6%C+ H 6 #UXREGXALIAS XNODELETEXNEWREGMSELECT &xAlias SET ORDER TO &xOrden EBC4UXALIASXORDENXVALOR_ CGTC C BUXALIASXORDENXVALORXFNDTHIS PUSH_EXNETOOL_SELECT_ORDER_SEEKPOP_EXNE' %CxNombreMB-%CxPatht T+%CxClaseCxClasebL I XTCTabla_Csys_Verificar2_tablas.prg( ETTabla%  A%CoTablabO ,TCN( %CoTablabO B B-U XNOMBREOTABLAOPADREXPATHXDBCXCLASE XREINDEXABLE XCOMPACTABLE XZAPEABLEOEXERRORNOk %COC >TCTablasaNsys_verificar2 BUOTABLASTABLAS_EXISTENTESSYS_VERIFICAR2TCTablasN%CoTablasbOXTCTablasaNsys_verificar2%C C BU OTABLASOTABLAS2TABLAS_EXISTENTESSYS_VERIFICAR2OTABLA COLECCIONCAMPO_ULT_MOD_EXISTE SINCRONIZABLECOLL_AGREGAR_TABLAJCinfosaCquestionaCpermisosaCpaisesaCprovincaCempresasaCequiposaCequseraCuser_logaClocksaClocksoldaCagipaUXTABLAS COLL_AGREGAR H# CxIDbL TTT -  CxIDbNTCCZ -  CxIDbCTC -  2 TTC Area tempcomp : CCCtempcompWZC Datasession : CCC DatasessionvZC Alias : CCC Recno : CCCOZC RecCount : CCCNZC Filter : CCC Order : CC BUXIDXTEXTOXTID TC TC TCW w%Clog FQ\logFD>C$ C^  SESION ESTADO LOG > ( > ($ ? > (s&> Error al guardar:   FBUXTEXTOXIDSESION_ESTADO_TEXTOXSELP_SYSTEMLOGUSR PUB_INDEXFECHAHORATIPOTXT SESION_ID P_SESION_IDOERRHNDTTS_IDOEXMESSAGEq Ta TCHOj CfCCVENTjUXALIAS1XALIAS2 XOKFALTANTESXCAMPOSFALTANTESODEYFUNCTABLASCAMPOS_DISTINTOSDESTROY0DisponseXINITDIR_Local_AccessDir_Sistema_AccessJDir_Inst_AccessDIR_Tablas_access Cargar_Datos! Cargar_Datosjsonable_assign9Actualizar_store_procedureBuscarq Crear_Access! Triggers_Access Sincronizables_Access Daadas_Access  En_Uso_Access Reindexar_Reservar Reservar< Obtener_Key Obtener_TablanLog_Validar_AccessiLimpiar_Archivos_TemporalesLimpiar_Indices_Temporales$Limpiar_Tablas_Temporales Backup_ManualReindexar_AccessDir_Sistema_AccessDIR_Tablas_access=INIT Cargar_DatosxCod_controlar_Abiertas Coll_Agregar_Tabla  Coll_Agregar! Backup_Tablas$Tablas_Marcadas_Backup$Reindexar_Tablas%Reparar_Tablas&Recrear_Triggers_Tablas|&Daadas_Marcadas_Backup&Reindexar_Marcadas_BackupB'Informar_Texto'InformarR(Mensaje)Reindexar_Ctrl*INIT* Obtener_Key*Agregar_Registro+Creacion_Manual+ Log_Agregar_Interno6, log_agregar. ID_Buscarse_Alias/ ID_Buscarse_Codigo60 ID_Codigo_Generar0 ID_Evaluate0 ID_Evaluadon1 Sincronizable_Access1 Triggers_AccessE2 Alias_Access2 Actualizar_ult_mod3 Trigger_Reemplazar_Variables5 Trigger_Insert_Access5 Trigger_Update_Access6 Trigger_Delete_Accessf6 Validador_Access6 Triggers_Verificar[7 Campo_Ult_Mod_Existente_Access8 Campo_Ult_Mod_Existew9 Campo_Ult_Mod2_Existe: Campo_Ult_Mods_Existe: Trigger_Verificar; Triggers_Arreglar< Trigger_Arreglar> Pre_TriggerD Pos_TriggerD Pre_Crear'D Pos_Crear2D Pre_ValidareD Pos_ValidarpD Pre_Reindexar{D Pos_ReindexarD Preparar_TablaD Limpiar_TablaD ValidarD RepararD Llenar_IDUD Backup_ManualE Reindexar_CtrlF ReindexarLG INIT3J Nombre_AccessuL Dir_Tabla_AccessL Dir_Full_access=N cod_controlar_AbiertawN cod_abrir@P Cod_CerrarxR MensajeR Crear_S Crear_EstructuraV Crear_IndicesV Crear_FuncionW Inicializar_DatosW Estado_Actual!W Tomar_Estado_Actual;X INIT9Y Push_AliasY Push_rnbZ Push_ordero[ Push_EXNE(\ Sel_Push_Simple\ push_simpleR] PUSH] POP^ Pop_Simple_ Sel_Pop_Simple` pop_alias` pop_rna pop_orderb pop_exned Tool_Copy_BlankDd Tool_Copy_Loop%f Tool_Copy_BlankD_Loopg Tool_BlankDoh Tool_Select_Order_Seeki Tool_Select_Order_NOEXACT_SeekCj Crear_Objeto_TablajCrear_Coleccion_Tablas_Empresa\m%Crear_Coleccion_Tablas_SincronizablesmCrear_Coleccion_Tablas_SistemaToSesion_Estado_TextopSesion_Estado_Logrrevisar_campos_faltantesu T- T- T- T- T-       U DIR_SISTEMA DIR_TABLAS DIR_LOCALDIR_TMPDIR_INST U U T- T- T- T- T- T- T- T- T T - T - T - T - T - T- T-                   ! " # $ % & ' ( ) * + ,U COLECCION DIR_SISTEMA DIR_TABLASDIR_TMPPADRE DIRECTORIOS REINDEXAR LOG_VALIDAR RESPUESTA HUBOERROREN_USODAADASCREARTRIGGERSSINCRONIZABLESJSONABLE< T- T-T Contabilidad -UCREABLEEN_DBC DBC_NOMBRE TaUCREABLE T- TUEN_DBCDIR_ID6. ColeccionQ . / 0U COLLECTIONU4TCodigoTCodigo TaUID_CAMPOID_ORDENTRIGGERS T- T- T- T T- T- T T- T T - T  T  T a T a Ta T- T T- T- T- TaTGESDBC_UPDATE_%EMP%(RECNO(),"%Nombre%",%Dir_ID%,DATETIME(),,1,,,PROGRAM(MAX(PROGRAM(-1)-1,0))+"->"+PROGRAM()+"-> "+STR(LINENO()))TGESDBC_UPDATE_%EMP%(RECNO(),"%Nombre%",%Dir_ID%,DATETIME(),,2,,,PROGRAM(MAX(PROGRAM(-1)-1,0))+"->"+PROGRAM()+"-> "+STR(LINENO()))TGESDBC_UPDATE_%EMP%(RECNO(),"%Nombre%",%Dir_ID%,DATETIME(),,3,,,PROGRAM(MAX(PROGRAM(-1)-1,0))+"->"+PROGRAM()+"-> "+STR(LINENO())) T- TaTUlt_ModTWOEWIEOWIEOWEI T T T T- T a T! ."Q" T#- T$- T%- T&- T'- T(- T)- T* 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e fU+PADRENOMBREARCHIVODIR_ID DIR_TABLADIR_FULL DIR_TABLATMPEN_DBC DBC_NOMBREALIASERRORTXTERRORNUM REINDEXABLE COMPACTABLEZAPEABLE COMPACTAR RESPUESTA PROCESADOCREABLE VALIDADORTRIGGERSTRIGGER_INSERTTRIGGER_UPDATETRIGGER_DELETETRIGGERS_FORZADOTRIGGER_SOLO_SI_ULT_MOD CAMPO_ULT_MODCAMPO_ULT_MOD2CAMPO_ULT_MOD_EXISTENTEID_CAMPOID_ORDEN INICIALIZABLE SINCRONIZABLESINCRONIZAR_FUNCION REGISTROSREGISTROS_JSON TABLA_JSON TABLA_FILETABLA_FILE_TMPJSONABLETAGS LOG_INTERNOMENSAJE_INTERNOZ T T T T T T- T-UXALIASXORDERXRECNOXEXACTXNEARXBOFXEOF@ T T T T T T- T- g h i j k l m n o p q r s t u v w x y z { | }UXALIASXORDERXRECNOXEXACTXNEARXBOFXEOF DirectoriosCUSTOMTablas_SistemaTablas^Tablas_EmpresaTablassTablasCUSTOMTabla_EjercicioTablaN Tabla_CreableTablatabla_system_creable Tabla_CreableΆ RegistrosCUSTOM vld_tabla2"vld_tabla:sys_verificar_tablas.prgK Tabla_CodigoTabla:sys_clases_tablas.prgVTablaCUSTOMData_Status_EstadoCUSTOM Data_StatusCUSTOM:22q!1AA1AA2A1AA2a1qAA2A2A44@1q!1A1A11A1A1A42qQQA2A1A1A2A2A2qA2qAqAaQaqqqAAA2bABq2qQQQA2aBB311A111AqA3q3r!S!BAaAAQaQA2qAA111AAAAA2A1aA2qaAA3q"AAAA37qAA2qqBAA2qAaA!AABAAAAqA3qAA2qQ113qAA2AA2BA923!AA2!!aaAA1A2qqAA9q=3qA2qq`1A2!!!Q!1tBA2aAqA3!AA2q2qq2a2qq!A2qaq21qA3!q1qAA2Q111RA$qA1qAA2111111A2qqAar2QA21A2A2rA3q111aBA1AA2qAA21aqAA"aaaAqAAABq2222A122222222QraaAAA2qZAAA2q3q1qAqQa1AA!AAB2aa211A"QA!QAQA32AAaAaaa1AAA2a3!QAAA11A21A!AQAA11A2q!AA2qqAA2qAQA#A!1AaAqABB2q2q2q2@1!11111112qAA11111112!AAA2q2qAQQQA2qAQA2qqa2q2qAA2qAA2qQA2qAA2q2qq!2q1AA1AAQAAAQAAAA2qqB!ABAqAA2qRA2A!AAAQAAQAAA2qQQqQA311QA!2A&AAAAQAAQAABA2!2qa3qrqAaA!AABAAAAqA2qqA2qqaqAAAA2q4qaA26brQ!AqQEAAaAAA21E3644` `9711Q61111A@P0P21p9 h <e0&#[70,_:1"@6_H9!N= < eOq ? |V] `. g6*nMUuqd|o4WLy7l5 "2"%C &'t&"''{+'(4(a*D*+G+,O,1.\K.1|12233K4q444b5 5'6X666779&"994::C;%<TH<<W<==\vC>DiD H#HsIIIJ^JJJJKK:LgLL LMMMMP*PQ 0QfB>k@iH%tpY,U#4%? B%%r B % B "BCU XIMPORTEXMONEDAXCAMBIOXFECHAXMOTIVOXMONPASEXMONEXTXDMONFN_CALC4FH' CCU-C\S CCEcuenta CCEabrev T T BU XATRIBUTOXCUENTAXABREVIACUENTASATRIBUTOCUENTAABREVCOD_CUE$ BC\SU XATRIBUTOSXATR CO_ATRIBUTO  TC%CEJERCON cQejercon T TCejerconOF T-%C+ C Ta -C%C4 Ta C %@TC m%C i #%C  F BU XFECHAXDIR XRESULTADO XFECHAFINALXALIASXRNEJERCONDESDEHASTACO_APROXIMAR_EJERCICIODIR%Cxalias_dbCMTdiariog%Cxalias_cbCTconceptoC%C BUXFECHAXDIR XRESULTADO XFECHAFINALXALIAS_DXALIAS_CCO_BUSCAR_EJERCICIOCO_ABRIR_TABLASO%Cxalias_dbCATdiariog%Cxalias_cbCxTconceptoTC%C F F'Q\\diariog%C F F(Q\ \conceptoG((asientoUXDIRXALIAS_DXALIAS_CP_SERVERASIENTOTCNearvGF F&& (\tmp\CC]R E%C4w Ta q%C T- m H%C Ta i%C H!%C xfechaFinalbDP% C+ 7 Ta L T- e T-set near &xne G!( BUXFECHA XRESULTADO XFECHAFINALXNEEJERCONDESDEP_LOCALHASTA4%CxprovbN; T TCW TTC XH  T   T  Tl  Ti & Th F To f T  T2   Tq   Tr   Ts   Tv  & Tw F Tz f Tm  TH  T\  T_  T  Tg & Tp F T f TL  T  Tx T%v/TCgpCoq  TCC gH(E  XTC  TC XLT El atributo C & no est asignado a ninguna cuenta !!!  ETC XUT El atributo C / no debe estar asignado a ms de una cuenta !!!%C h%Ccuentas QcuentasF "-C \S  %C4 T T%C+ G+(listadosTCTC XTC, C jT El atributo CCC f& est asignado a ms de una cuenta en  !!! () dG+(listadosTCTC X\T El atributo CCC f& no est asignado a ninguna cuenta en  !!! r TC X0T#Error al determinar el atributo !!! FBUXCUENTAXMSGXCUENUMXPROVXAREA XATRIBUTO XES_X_PROV P_PERIBXPROV XCUENTA_CANTATRCAN TXTATRIBUTOCUENTASATRIBUTOAUXNCOD_CUEXABREVABREVLISTADOS XPROVINCIA TXTPROVINCIA' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4 BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS/4 BUXCUENTAXMSG XPROVINCIAOBTENER_CUENTAS_UNICAS/4BUXCUENTAXMSG XPROVINCIAOBTENER_CUENTAS_UNICAS' 4 BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4 BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS4%Cquestion =Q \question'%CquestionatributoxBCCf BNO DETERMINADOU XATRIBUTOP_SYSTEMQUESTIONPREGUNTAa4WBCn\SC \S Ci\S Ch\S Cl\S Co\S Cm\S  C Cn\SC \S Ci\S Ch\S Cl\S Co\S Cm\S  UXFECHACUENTASATRIBUTOOCIERRES CIERRE_COMCIE4BC\SCj\S Cp\S  C DC\SCj\S Cp\S  UXFECHACUENTASATRIBUTOOCIERRES CIERRE_VENCIE4TT% SB- $%  B- $%  T T $%  T T $%  f TT TTBaUXDESDEXHASTA XDESDE_EJ XHASTA_EJEJERCONHASTADESDE4 TCW%Cejercon aFQejerconF-C T T  a%F G((asiento E TC4FG((asiento E TC4%J T T  T,TNo se ha encontrado el asiento. F BUXERRXERRMSGXASIENTOXFECHAAAAXOK1XOK2XAREAEJERCONDESDEHASTAABRIR_EJERCICIODIRDIARIOGASIENTOCONCEPTO 4%Cejercon CQejerconF TCO1%C xejerciciobLCxIDbN - -CC T TH C4 4 T.T!No se ha encontrado el ejercicio. C4  TIT<Se necesita aplicar novedades antes de abrir este ejercicio. 2TC%Cdiariog F F &%CCf\DIARIOGCC&f -%C \C \diariog.dbf0f!Q \C\diariog  T+TNo se ha encontrado el diario.%%Cconcepto F F '%CCf \CONCEPTOCC&f .%C \C \concepto.dbf0q"Q \C \concepto  T7T*No se ha encontrado la tabla de conceptos.%%%Cconc2 F F $%CCf\CONC2CC&f +%C \C \conc2.dbf0Q \C\conc2  T9T,No se ha encontrado la tabla de conceptos 2.%%Cdiag2 F .F$%CCf\diag2CC&f +%C \C \diag2.dbf0Q \C\diag2  T6T)No se ha encontrado la tabla de diario 2. BU XEJERCICIOXERRXERRMSGXIDXFULLEJERCONXRNIDDIR NOVEDADESDIARIOGP_SERVERCONCEPTOCONC2DIAG24 TCW%Cejercon RQejerconF-C T T  F BU XFECHAXERRXERRMSGXFULLXAREAEJERCONDESDEHASTAABRIR_EJERCICIODIR4%Clocales 2 C%Cm T T  T@TLa fecha debe estar entre C* y C* BUXERRXMSGXFECHAABRIR_TABLAS_FIJASLOCALESEJ_001EJ_002F>>> > > > U XAUTOIMPR XAUTOIMPRCP XSINARCHIVOS XASIDESORDENXREFIMPOXCIERRE_BALANCELOCALESCO_007CO_010CO_004CO_005CO_012CO_013FTTT T T T U XAUTOIMPR XAUTOIMPRCP XSINARCHIVOS XASIDESORDENXREFIMPOXCIERRE_BALANCELOCALESCO_007CO_010CO_004CO_005CO_012CO_013E%CxDirbL=T%CxDesdebLmT%CxHastabLT%CxDescrbLTF > > > > *>   UXDIRXDESDEXHASTAXDESCREJERCONDIRDESDEHASTADESCRLOCALESCO_011CO_001CO_002CO_003EJ_001EJ_002EJ_003w4mBC     d C<c UXTIPO2oTCH/_ ArTAJ TAjuste de Tesorera CTFC!TFactura de Proveedor VTFCTFactura c,TNCTNota de Crdito djTNDTNota de Dbito RTRCTRecibo OTPATPago a Proveedor ITINT No se usa D\TDE TDepsito de Valores XTEXT Extraccin 1TNC/T"Nota de Crdito Propia a Proveedor 29TND.T!Nota de Dbito Propia a Proveedor 2_T T BUXCAUXTEXTOXDESCRsFG((asientoFG-(2>C G-U XASIENTODIARIOGASIENTOCONCEPTOTIPO2DG_TIPO_ASIENTOTIPOCAUPROCLIFOR H  U&TRefundicin de Resultados {TCierre TApertura 2T%Provisin de Comprobantes de Clientes */T"Ajuste de Comprobantes de Clientes {>T1Inversin de Provisinde Comprobantes de Clientes  TCosto de Produccin TCosto de Venta  +TProvisin Acuerdos Comerciales  X+TCosto de Ajustes de Inventario  TRemitos a Facturar  TFacturas a Recibir &TLiquidaciones de Tarjetas =5T(Provisin de Comprobantes de Proveedores 2T%Ajuste de Comprobantes de Proveedores BT5Inversin de Provisin de Comprobantes de Proveedores  !TAjuste por Inflacin  P2T%SCH: Asiento complementario de costos TSCH: Incentivos 1T$OLD: Remitos a Facturar (facturados) 1T$OLD: Facturas a Recibir (facturados) G-T SCH: Asiento de bienes de cambio &TLiquidaciones de Tarjetas 1T$Asiento manual de cheques rechazados 2&TDbito de Cheques Propios 3/TImpuesto al Cheque 4ZT Importacin 50T#Activacin de Gastos de Importacin 6%TMovimiento de Inventario 7(TLiquidacin de Gastos (SCH) 8>TEgreso Locales 9.T!Cierres de Caja/Ventas de Locales :TEgresos Varios ;TIngresos Varios <,=T0Transferencias entre Cuentas Bancarias y de Caja =w8T+Compensaciones entre Proveedores y Clientes >%TPagos Tarjeta de Crdito ?TPago Impuestos @ "TLiquidacin de Gastos AB TCambio de Moneda B~ )TSueldos y Cargas de Personal C TPago de Servicios D "TMovimientos Bancarios E( 1T$Otros Egresos e Ingresos por Asiento Fa &TReclasificacin Anticipos G 2T%Reclasificacin Anticipos (Reversin) H !TDescuento de Cheques I TPrstamos Tomados J< TPrstamos Pagados Kc TRetiros Cdǫt H p  e TVentas - Factura f %TVentas - Nota de Crdito g* $TVentas - Nota de Dbito hY TVentas - Recibo 2p T C+ H   TCompras - Factura  &TCompras - Nota de Crdito ? %TCompras - Nota de Dbito m TCompras - Pago 2 T 2 TTC< BUXTIPO_AS XTXTIPO_AS  TK BUXMAX Te%C      C2K TTC BH^ C TdH V!T cFT dkT RT P^ THZ CT cT d5T OZTTC BUXTIPO_AS XTXTIPO_ASXTIPOXTIPO2XCAUSAXPROCLIDG_TIPO_ASIENTOTX%C1 TF E%C4 h T- B%T Ta B% Ta B% T- B Ta+% Cdiag2 Cconc2 LTCCZCZDiag2ASI_VER CCZCZConc2ASI_VER  BUXASIENTOXVERSIONXEXISTEXVALIDARVERSIONCONCEPTOVERSIONc FG((asientoGF EGF%C4HV H%C+ HT  HT SHO T O%; HT BUXASIENTOXUPDOWNCONCEPTOASIENTO4  TCW%Ccuentas JQcuentasFCcuentascuenta%Ccuentas4T TC X F BUXCUENTA_INTERNAXAREAXABREVCUENTASABREV#4 TCW%CxversionbLa T FG((asiento E%C4 ?>      FBUXALIASXASIENTOXASI_MAN XCONCEPTO XIMPORTACIONXUNIDADXTIPO2XVERSIONXAREAASIENTOCONCEPTO IMPORTACIOUNTIPO2VERSIONHH(A FG((abrev E T% T+C+  TCFTCDH  E T AFG((abrev E T E TU XTIPOXDCUEXHCUEXDABRXHABRCUENTASABREVCOD_CUE XORDEN_ABREV' 4BUXCUENTAXMSGOBTENER_CUENTAS_UNICAS%Ccons 5QconsF#)%Cz T TBa  TcTFLa fecha del asiento debe ser posterior al cierre de balance mensual (CC*) !!!B-UXERRXMSGXFECHACONSSYS_CIERRE_BALANCE`TCCgTCTC BU XATRIBUTOXCUENTAXDESCR XASIGNACIONESATRCAN$ BC\SU XATRIBUTOSXATRWMBC< C= CH C\ C_ U XATRIBUTOSCO_ATR* BC C$ U XATRIBUTOSCO_ATR* BC C% U XATRIBUTOSCO_ATRBCU XATRIBUTOSCO_ATR%Ccuentas 3Qcuentas$%Ccuentascuenta,BC C C B-UXCUENTACUENTAS ES_EFECTIVOATRIBUTO ES_VALORESES_BANCO TCW%CCuentas ZQcuentas%Cctasbanc QctasbancT% .TCCcuentas+ CcuentasO6CcuentascuentaT T T% 0TCCctasbanc+ CctasbancO6 Cctasbanccod_cueH. C  T   T   T 2. T%UF #%|F # F BUXCUENTAXAREA XREG_CUENTAS XREG_CTASBANC XATRIBUTOSXABREVXRESCUENTASCTASBANCCOD_CUEATRIBUTOABREVCO_ATRTIPOukBCL Cg Cq Cr Cs Cv Cx U XATRIBUTOSCO_ATRWMBCo Cq Cr Cs Cv U XATRIBUTOSCO_ATR4%Cejercon ;Qejercon%CCxTCejercondir  Ta)T   BUXEJXASXRESEJERCONDIRXFOUNDCORTELEG4H{ :BNormal [BLegal { BReal BUXLEGAL TCW%Cco_func GQ\co_funcFC Sin detalle(C:CCC< C 6 FBUXAREAP_SYSTEMCO_FUNCCO_FUNC_INICIALIZAR_EXISTEZDG_TIPO_ASIENTO_MAXDG_TIPO_ASIENTOTXF-%C4 Orco_func>%CtipobN>BUXCODXDESCRXTIPOCO_FUNCCODIGODESCRTIPO TCW%Cejercon NQejerconF TCO-CT #  F BUXFECHAXAREAXREG XRESULTADOEJERCONDESDEHASTADIR BC< C= CH C\ C_ C C$ C C% C CL Cg Cq Cr Cs Cv Cx U XATRIBUTOSCO_ATR- TH%! C\C0QS T! C\C0QTC\! C\C0QTC\! C\C0QTC\ 2TC\BC 0UXCUENTAXPADREH! C\C0QJBC\! C\C0Q|BC\! C\C0QBC\! C\C0QBC\ 2 BUXCUENTAH! C\C0QB B! C\C0Ql B! C\C0Q B! C\C0Q B 2 BUXCUENTA TC T-%M Ta <5ocuentasCC>= %  Ta< BUXCUENTAXRAIZ XTERMINALFN_RAIZARR_FN_TERMINALCOD_CUECUENTASTC TC TC %Cdiariog FT9Validacin de fecha de asiento: No est abierto el diario T%Cejercon 5STFValidacin de fecha de asiento: No est abierta la tabla de ejercicios T%Clocales MT@Validacin de fecha de asiento: No est abierta la tabla locales T%%(%CC@CCCdiariog&@|%C xFT9La fecha no se corresponde con el ejercicio (locales) !!! T 4T'Incoherencia de ejercicio (locales) !!! T%/(%CC @CCCdiariog&@%C  + FT9La fecha no se corresponde con el ejercicio (ejercon) !!! T +T5Incoherencia en los nombres de ejercicio (ejercon 1: C  - DiarioG 2:C CCCdiariog&R6) !!! T%u/C"Validar fecha asiento vs ejercicio  BUXERRXMSGXFECHA XTIPO_ASIENTOLOCALESCO_011EJ_001EJ_002EJERCONDIRDESDEHASTAP_DEVSYS_MTC %C cfg_ventas LQ cfg_ventas(%C cfg_ventascodigo C B-%BCUXCODIGO CFG_VENTASTHISMODIFICAR_DATOS CONFIGURARTC TC TC TC TC TC TC T C  T C  T C  T C  T C  TC TC TC TC TC TC TC TC TC TC TC UTHISCODIGO CFG_VENTASDESCRI_FABE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3C_LPTTTTT  T  T TTTTTTTTT T!"T#$T%&T'(T)*BU+THISC_I_FABI_FABC_E_FABE_FABC_I_REVI_REVC_E_REVE_REV C_I_FAB_DI_FAB_D C_E_FAB_DE_FAB_D C_I_REV_DI_REV_D C_E_REV_DE_REV_D C_I_FAB_D1I_FAB_D1 C_E_FAB_D1E_FAB_D1 C_I_REV_D1I_REV_D1 C_E_REV_D1E_REV_D1 C_I_FAB_D2I_FAB_D2 C_E_FAB_D2E_FAB_D2 C_I_REV_D2I_REV_D2 C_E_REV_D2E_REV_D2 C_I_FAB_D3I_FAB_D3 C_E_FAB_D3E_FAB_D3 C_I_REV_D3I_REV_D3 C_E_REV_D3E_REV_D3C_C_LPC_LPC CFG ArtculoTC %F '%C cfg_ventascodigo C B-UXCODIGOSYS_MTHISMODIFICAR_DATOS- %>Cbienescodins%TSTS C%'%C #UT  El artculo C/ tiene una configuracin de ventas invlida !!!B-%S"T C   TC TC  TC TC TC TC TC T  TTTTTTT 5T  Artculo C no encontrado !!!B-CBaU XCOD_INSXPAISBIENESCOD_INSTHISCUEXARTREVENTACOPIAR_BASE_ARTICULO CFG_VENTAS CONFIGURARMSGC_I_FABVEN_CUEI_FABC_E_FABVEN_CUEXE_FABC_I_REVI_REVC_E_REVE_REV C_I_FAB_DDES_CUEI_FAB_D C_E_FAB_DDES_CUEXE_FAB_D C_I_REV_DI_REV_D C_E_REV_DE_REV_DDEFINIR_CUENTASTC %% TTT T  T  TTTT T  % % TTT T  T  TTTT T  % TTTT T   TTTT T UXPAISTHISCUEXARTP_CO_VENTAS_EXTERIOR CUENTA_VENTASC_I_FABCUENTA_DESCUENTOS C_I_FAB_DCUENTA_DESCUENTOS1 C_I_FAB_D1CUENTA_DESCUENTOS2 C_I_FAB_D2CUENTA_DESCUENTOS3 C_I_FAB_D3C_E_FAB C_E_FAB_D C_E_FAB_D1 C_E_FAB_D2 C_E_FAB_D3REVENTAC_I_REV C_I_REV_D C_I_REV_D1 C_I_REV_D2 C_I_REV_D3C_E_REV C_E_REV_D C_E_REV_D1 C_E_REV_D2 C_E_REV_D3 Ta T%%Csucprop uQsucprop2TCcfg_ventas_baseco_funciones.prg%C@T3No se pudo obtener la configuracin de ventas base. T-(%   %C  QTDNo se pudo obtener la configuracin de ventas de la sucursal propia. T-%5 listados %C RT?No se pudo obtener la configuracin de ventas para el artculo C T-%TBUXMSGXCODXCU XSUCPROPIAXPAISXOKP_CO_CONFIG_VENTASSUCPROP OCFG_VENTAS CFG_VENTAS CONFIGURARVEN_CUELISTADOSCONFIGURAR_ARTICULO CUENTA_VENTAS co_fn_calc0 co_get_cuenta[ co_atributo~co_buscar_ejercicioco_abrir_tablas_ejercicioco_abrir_tablasco_aproximar_ejercicioobtener_cuentas_unicas cuenta_iva_comprascuenta_iva_ventasucuenta_ret_ivacuenta_per_iva! cuenta_ret_ibw cuenta_per_ibcuenta_ret_ganK cuenta_iva_compras_no_computablecuenta_ret_gan_anacuenta_per_iva_anaM cuenta_ii cuenta_ii2 txtatributoOafecta_subdiario_iva_compras afecta_subdiario_iva_ventas sub_rangobuscar_asientoabrir_ejercicioabrir_ejercicio_fechaS$validar_fecha_ejercicioj%locales_grabar_cfg&locales_leer_cfg'locales_grabar_eje(asiento_tipo2_anulable* dg_causa_txt+ct_aplicar_tipoas.dg_tipo_asientotxe/dg_tipo_asiento_maxD=dg_tipo_asientor=dg_asiento_existeC@dg_asiento_skip!Bcuenta_interna_a_abrevCregistrar_conceptoDco_cuentas_desde_hasta:Fcuenta_impuesto_al_chequeGco_validar_fecha_registracion*Hdatos_de_atributobIco_atrI es_ajuste;J es_efectivoJ es_valoresJes_banco:Kes_cue_efe_ban_valqKes_banco_ca_o_ccWL es_retencionwOes_ret_o_per_con_certificadoPes_asiento_legal{P legalrealyQco_func_inicializarRco_func_inicializar_existeVSejercicio_de_fecha+T es_fondos.Ufn_padreUVfn_raizWfn_nivelX fn_terminalYvalidar_asiento_en_el_ejercicioZinit_modificar_datos`copiar_base_articulod configurarcgconfigurar_articulo2hdefinir_cuentaslcuenta_de_ventas_de_articulo2q? T TTC(XTC XTC XTC XTC XTC XTC XT C XT C XT C XT C XT C XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XTC XT C XT!C XT"C XT#C XT$C XT%C XT&C XT'C XT(C XT)C XT*C XT+C XT,C X T-- T.-T/C XT0C XT1C XT2C XT3C X B C D E F GU4MSGCODIGODESCRI_FABE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3C_LPC_I_FABC_E_FABC_I_REVC_E_REV C_I_FAB_D C_E_FAB_D C_I_REV_D C_E_REV_D C_I_FAB_D1 C_E_FAB_D1 C_I_REV_D1 C_E_REV_D1 C_I_FAB_D2 C_E_FAB_D2 C_I_REV_D2 C_E_REV_D2 C_I_FAB_D3 C_E_FAB_D3 C_I_REV_D3 C_E_REV_D3C_C_LPCUEXARTREVENTA CUENTA_VENTASCUENTA_DESCUENTOSCUENTA_DESCUENTOS1CUENTA_DESCUENTOS2CUENTA_DESCUENTOS3cfg_ventas_basecustom{111A222BBA"3qqqq1q!A2a211aAq!bAA!!AA!A2AAQAaA3AAQAAqA32aqaqAAAAAAAa21Arr1222222222222222222222222B2rrR2QA1Aq!A#q!A!q!ABAB2UA2UA2UA2UA2A2A2UA2UA3UA2UA2UA2UA4tArqA2qz3q 91512rArAAAAAAqAA412Aq"2qrAA2q1AqQAa!qAbAA2qAr!qAAB1rqABAAB2rqABaAABBC21q1Ar!2AA2r4r41AAAAq3q3AAAAAAA1AAaAAqAAA2qsq#61a111Q1!111111112a2Q1!1!11!11111a12a1111Q11111111Q11!1111!11a1!1111Au11Q1A1A11a1Q1AA!3q2Q!AAAAAAAAAAAAAA!21AqA1AaAaAA3saa1AA1A11aAAA3q1AqA21rAQAB2q1q!!AAA1qA3UA2bAqQBq1qA31qQQ2a2q2q2q2q2q1AAqA2u1AAAaAaAqaaA2qA2qA4q2q31AA2q111A2sAtAB2rAAA2q1Ar"B2q 2qQQQQA!3qA2qA2q"2qR"ArB21511aA1AA21aAAAAA1aAAA2A1q4aAqA2B44111111111111111111111B2q22qqAA4bAbbQqAAr21111111BQqAr3q;"2111111111B22111121111B2111121111BAA7qr21A#ABBB2R"BFBB1P1%u, ;# ?D eQ z xg 6Y$$%%n&&Y't'C( ](D)^)E*`*0+]+/,N,-<- ."!..&//*/14A14 7548:J8S</Xn<>[x?HHIJKK}MMN&O-Q4[QRN(RwVS>VWF X~hhJi"fiu*v z2z|1|~A;~Q= l%+ph4@HSOMSeW͇[3k_cӍo֏AWiו$29ڛH$]2͞m@|PDǮ15_#Q;]j;! Bާ %s"P&uf#ZuVNUQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRING QSTRING QSTRING QSTRING QSTRING QSTRINGQBOOLEANG+(Dey_Func5 FTCO#)+C+ qFC      H F%CN #6 #BaUXALIASXBIE_FULXBIE_CODXBIE_DESXBUL_CODXBUL_DESXATR_CODXATR_DESXLIN_CODXLIN_DESXLIN_UKWXGRU_CODXGRU_DESXGRU_UKW XINICIADODEY_FUNCXOLDRNFILL_BIE_FULL_UNO QSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRING QSTRING QSTRING QSTRING QSTRING QSTRINGQBOOLEANG+(Dey_Func% TCBorrarC TCBIE_DESC TCBIE_CODC#TC NO_CAMBIARC TCBIE_BULC#TC NO_CAMBIARC TCBIE_ATRC#TC NO_CAMBIARC TCLin_CodC T C Lin_DesC$T C DesconocidaC T C Gru_CodC T C Gru_DesC$T C DesconocidoC%CBultosFG((CodigoG-(G(%CAtributo@FG((CodigoG-(G(% NO_CAMBIARCLineasCodigoG-(G(% NO_CAMBIARCGruposCodigoG-(G(FG((codinsG-(G(% NO_CAMBIAR%G-(% NO_CAMBIARVG-( FG-(% NO_CAMBIAR)SET RELATION TO &xBie_Cod INTO bienes % NO_CAMBIARCBultosCodigo F% NO_CAMBIARR>SET RELATION TO &xBie_Cod + &xBul_Cod INTO bultos ADDITIVE 2SET RELATION TO &xBul_Cod INTO bultos ADDITIVE % NO_CAMBIARzCAtributoCodigo F% NO_CAMBIAR8@SET RELATION TO &xBie_Cod + &xAtr_Cod INTO atributo ADDITIVE v4SET RELATION TO &xAtr_Cod INTO atributo ADDITIVE  Ta F TCO#) # T TTC% NO_CAMBIARD,T with bienes.DESCR T, % NO_CAMBIAR&T with xDescr T, ,% S NO_CAMBIAR v F%%CC!"rT C% NO_CAMBIARn.T with Atributo.descr T, ,%S NO_CAMBIAR P F%%CC!"L T C% NO_CAMBIARH ,T with bultos.descr T, TC% NO_CAMBIAR[ F,T with Bienes.Linea T, %CLineas+ 'T  with xLin_UKWT, W ,T  with Lineas.descr T, % NO_CAMBIARX F,T  with Bienes.Grupo T, %CGrupos+ (T  with xGru_UKW T, T ,T  with Grupos.descr T,  F REPLACE &tRepla IN (xalias) BaU#XALIASXBIE_FULXBIE_CODXBIE_DESXBUL_CODXBUL_DESXATR_CODXATR_DESXLIN_CODXLIN_DESXLIN_UKWXGRU_CODXGRU_DESXGRU_UKW XINICIADODEY_FUNC CHK_VALUEBULTOSCODIGOATRIBUTO CHECK_OPENEDBIENESCODINSLINEALINEASGRUPOGRUPOSXRNXDESCRTREPLATSEPARADESCR ATRIBUTOSCOD_INSCLAVEWKQSTRINGQSTRINGQSTRINGQBOOLEANQBOOLEANG+(Dey_Func5% >TCBorrarTCOpe_CODTCOpe_DesFG((CodigoG-(G( FG-(+SET RELATION TO &xOpe_Cod INTO Operario T CO#) # %  FTCO #)+C+ %C )REPLACE &xOpe_Des WITH Operario.DESCR H%CN #6 # P F)REPLACE &xOpe_Des WITH Operario.DESCR U XALIASXOPE_CODXOPE_DES XINICIADOXACTUALDEY_FUNCXOLDRN CHK_VALUEOPERARIOCODIGOXRN&IQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(Dey_FuncTCBorrarC TCCli_CODC TCCli_DesC(TCClientes.NombreC"TC NOCAMBIARCFG((CodcliG-(G( FG-(+SET RELATION TO &xCli_Cod INTO Clientes F#)+C+ %C *REPLACE &xCli_Des WITH &xReplace_Macro % NOCAMBIAR *REPLACE &xCli_Des WITH &xNoFound_Macro HU XALIASXCLI_CODXCLI_DESXREPLACE_MACROXNOFOUND_MACRODEY_FUNC CHK_VALUECLIENTESCODCLICOD_CLI&IQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(Dey_FuncTCBorrarC TCPro_CODC TCPro_DesC(TCProveedo.NombreC"TC NOCAMBIARCFG((CodProG-(G( FG-(+SET RELATION TO &xPro_Cod INTO Proveedo F#)+C+ %C *REPLACE &xPro_Des WITH &xReplace_Macro % NOCAMBIAR *REPLACE &xPro_Des WITH &xNoFound_Macro HU XALIASXPRO_CODXPRO_DESXREPLACE_MACROXNOFOUND_MACRODEY_FUNC CHK_VALUEPROVEEDOCODPROCOD_PROeQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(Dey_FuncTCBorrarTCLin_CodTCLin_DesTCGru_CodTCGru_DesTC NO_CAMBIARTC NO_CAMBIAR FG-(% NO_CAMBIARF G((CodigoG-(G( F2SET RELATION TO &xLin_Cod INTO Lineas ADDITIVE % NO_CAMBIARJF G((CodigoG-(G( F2SET RELATION TO &xGru_Cod INTO Grupos ADDITIVE  F#)+C+  T  T % NO_CAMBIARy F%C "% NO_CAMBIAR,T   with Lineas.descr T ,  u% NO_CAMBIARq(T   with xLin_UKW % NO_CAMBIARo F%C % NO_CAMBIAR,T   with Grupos.descr T ,  k% NO_CAMBIARg(T   with xGru_UKW % REPLACE &tRepla IN (xalias) HUXALIASXLIN_CODXLIN_DESXGRU_CODXGRU_DESXLIN_UKWXGRU_UKWDEY_FUNC CHK_VALUELINEASCODIGOGRUPOSTREPLATSEPARAIQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(Dey_Func5TCBorrar TCTip_CODC TCTip_DesC $TC No AsignadoC $TC DesconocidoC T. FTCO#)+C+ TCT C REPLACE &xTip_Des WITH xDes H F #U XALIASXTIP_CODXTIP_DESXNO_ASSXTIP_UKWDEY_FUNCXFLDXEVXRCN CHK_VALUEXDESGET_TIPO_ARTICULO_DESCR.QINTEGERQSTRINGQSTRINGG+(Dey_Func$TC No AsignadoC$TC DesconocidoCH TProducto Terminado  TPorducto en Proceso +T Materia Prima \TMateriales Varios T Mano de Obra %TMano de Obra de Terceros  T 2 T BUXCODIGOXNO_ASSXTIP_UKWDEY_FUNC CHK_VALUEXDESTC%SC dT C%SC T C%CxLargobNBC  BUXBIE_DESXATR_DESXBUL_DESXBIE_ATRXBIE_BULXLARGOXDESCR Fill_Bie_Full,Fill_Bie_Full_Uno Fill_Operario Fill_ClientesQFill_ProveedoresFill_Lineas_GruposFill_Tipo_ArticuloGet_Tipo_Articulo_DescrFill_Bie_Bul_Atr_DescrC!6f !qQ1fAQAq9f !111AArqaaAqaaAaaAaaAraaAAaA!AAAAAQA!AaAQAAAQABArqBAqAAr6"qraaaQBAAARAB4%!raaaQAAAA3!!raaaQAAAA4S!aqaa!Aqaa!AQAAAAAABA1AAA4!AAbQA3!AA111111Q1A3AAA1P[: G $&?:/&(O(_+g+-%'~f1d =hU%C 3C SELECT &xAlias kZAP IN &xAlias DELETE ALL IN &xAlias F%G((MAQORDGF EC Z 1GF% B- #)6+Cplan_maq+   &TCC  6APPEND BLANK IN &xAlias C a H"COpe_CodOpe_Des CDescrCod_Ins NO_CAMBIARBul NO_CAMBIARAtr NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR- SELECT &xAlias G((OrdenGO TOP IN &xAlias UXALIASXFILEXMAQ_CODPR_GRI_TABLA_CREARPLAN_MAQMAQORDMAQUINAXEVALTINI_PLAN INI_LIMITEPR_GRI_MAQ_UPDATEIDU FILL_OPERARIO FILL_BIE_FULLORDEN%C2USE IN &xAlias %CU FQF h1LCCCCN  N  N  C T CCTTTCN N NN NNTNTTCC(U% QCRecall TC!"BCa#& & & & & 3USE (xFile) ALIAS &xAlias ORDER Orden EXCLUSIVE U$XALIASXFILEXRECALLIS_SELCOD_INSATRBULDESCR CAN_TOTAL CAN_RESTACICLOESTADOEVA_INIOPE_DES DUR_TEXTOEVA_FININI_PLANCAL_LIM CAL_ERRDES DUR_TOTAL DUR_RESTA CAL_ERRORPRODOPE_CODORDEN INI_LIMITEEST_CODINI_EVALCAL_INIIDU CODATRBULOCATCHMENSAJEODEYFUNCNEWFILE_LOCAL_TMPPR_GRI_TABLA_CREAR:4G+( pr_maquinasTC BUXESTADO PR_MAQUINASXRETMAQ_ESTADO_DESCR4G+(Dey_FillG+(Dey_Func% F G((IDU E%C4 uB- F G((IDU E%C4 TC REPLACE IDU WITH Plan_Maq.IDU , cod_ins WITH Plan_Maq.cod_ins , atr WITH Plan_Maq.atr , bul WITH Plan_Maq.bul , Can_Total WITH Plan_Maq.Can_Total , Can_Resta WITH Plan_Maq.Can_Total-Plan_Maq.can_hecha, Ope_Cod WITH Plan_Maq.Ope_Cod , Orden WITH Plan_Maq.Orden , Estado WITH pr_gri_estado_name(Plan_Maq.Estado), Ciclo WITH Plan_Maq.Ciclo , Ini_eval WITH Plan_Maq.Eva_ini , Ini_Plan WITH Plan_Maq.Ini_Plan , Ini_Limite WITH Plan_Maq.Ini_Limite , Dur_Texto WITH xDuraTexto , Dur_Total WITH Plan_Maq.Dur_Total , Dur_Resta WITH Plan_Maq.Dur_Resta , PROD WITH Plan_Maq.PROD , Cal_Ini WITH Plan_Maq.Cal_Ini , Cal_Lim WITH Plan_Maq.Cal_Lim , Cal_ErrDes WITH pr_gri_Error_Name(Plan_Maq.Cal_Error), Cal_Error WITH Plan_Maq.Cal_Error , Eva_ini WITH Plan_Maq.Eva_ini , Eva_fin WITH Plan_Maq.Eva_fin , Est_Cod WITH Plan_Maq.Estado , codatrbul WITH plan_maq.cod_ins + plan_maq.atr + plan_maq.bul IN &xAlias % U XIDUXACTUALXALIASDEY_FILLDEY_FUNCPLAN_MAQIDU XDURATEXTODT_DURACION_A_TEXTO DUR_RESTAH 4 B dBTiempos superpuestos B TIEMPO LIMITE 2BError DesconocidoUXERRORpr_gri_data_requery0pr_gri_Tabla_Crearpr_gri_estado_namepr_gri_maq_update,pr_gri_Error_Name_ 8!!!!AAr2aaaqAQAcaRA#' #a4!AAA11AA14qQ!4!!qqAQAA=J7q111aA4<$i ?> o zC Z%M0tNU'4 T CWTCXTC(XT T  T - T -%Cproveedo Qproveedo%Ccm Qcompras?ocmQCQ% TCTC$oproveedo% TC%Ctcompras QtcomprasEotcomprasQCQ$% C TCTC$oproveedo% TC%%   %C tmp_compras G1Q\data\CCZ\compras \ T aHo tmp_comprasQCQ$% C OTCTC T$oproveedo% KTC%C tmp_tcompras 2Q\data\CCZ \tcompras  T aIo tmp_tcomprasQCQ$% C TCTC T$oproveedo% TC% FQ% FQ F BUXRES XCONSOLIDADOXEMPXCODXATRXBULXCOD_PROXNOMBREXFECHAXSELEP_CODEMPXUSED_TMP_COMPRASXUSED_TMP_TCOMPRASPROVEEDOCOMPRASCMCOD_PROFEC_COMFECHACOD_INSBULATRAAA_ARTICULO_ULTIMA_COMPRANOMBRETCOMPRASP_DOSP_SYSTEM TMP_COMPRAS TMP_TCOMPRASEcodins2E codigoC 6TT T BU XCOD_INSXCM_UNI2XMEDIDAXDESCRCODINSBIENESCM_UNI2MEDCOD MEDAUXCODCODIGOMEDIDASABREVDESCRT.t.%C ](T and cod_pro=''%&T and cos_asig " \temp.txt" &XCMD #TC" \temp.txt"BTTLUXIPXCMDXTXTXMISDOCINICIALPATH_MIS_DOCUMENTOStm`https://docs.google.com/document/d/1e7S35GHybQaBmOY36yq1Amk-q9PXB7bvc5B3hAG3tYQ/edit?usp=sharingBU SHELLEXEC shellexec,checkinternetconnectiony File_UnZip- Clear_Cache Cache_Report_ download_ftp download_httppingR ping_dos novedades 1117q3qqA2tQ2qAAA1babaA71r1rqAaA41AssqAaA2ABRABAr#B2qB22A1 )4+.,N6VM eOr `9xNJ` %JNNRUt 4 T(C>d*TCCC\ BUMSG1MSG2ZTHISDISPLACESWITCHu 4 T(C>e+TCCC\ BUMSG1MSG2ZTHISSWITCHDISPLACE4H CAZdTCCATCCZ  CazTCCaTCCz  C09TCC0TCC9 2 T BUXYDIFB 4H#2 CAZHM Z zTA A  TZ 2TCC  CazsHo z "Ta a  PTz 2oTCC  C09H 9 T0 0  T9 2TCC  22 T BUX DIRECTIONYUENCRYPT,decryptswitchsdisplaceDisponse5     U GES_CryptoCUSTOMW2qA2qA2qqaaaaaaA2qQAQAQAA23036  "&EJF#%]X ' TC TC TC TC TC  TC TC %CC TC$%C C C TC&,%C C CC&fCf U FQ%C Q T a FTCC TC TCCsql  G2G.G BRITISH  TTCNC F#) Te+C+ 7CC _CCZ6    T T%  QBUXALIASXARCHIVOXTABLA XNOMBREREMOTOXBASE XNOCREATEXRECSETXTOPXNOBULKXABIERTOP_SQL_DATABASEODEYFUNCNEWFILE_LOCAL_TMPBRITISHLCALIAS LNRECCOUNTCREAR_ESTRUCTURAXLOOP CREAR_DATOSYG`( SET FOREIGN_KEY_CHECKS=0;%C yUSE `<>`;% F*#DROP TABLE IF EXISTS `<>`;#0)# Structure for the `<>` table :#1*CREATE TABLE IF NOT EXISTS `<>` (TC(B T`C` H CC*Tchar (CC_) CI$)Tint (CC_) CN%CC)Tint (CC_) >Tfloat (CC_,CC_) CDTdate CM0Ttext CLeTchar (1) CQTlongtext CTTdatetime CV-T varchar (CC_) CWMTlongtext CYi 2T***H>  <>,  <>.') ENGINE=InnoDB DEFAULT CHARSET=latin1; 2> <>,G`G`(UXARCHIVOLCALIASXBASE XNOCREATE LNFIELDCOUNTLADBFILCFIELD! FG`( #1*# Data for the `<>` table :#A:INSERT INTO `<>` (<>) VALUES F TC+3+C+    H TC+ H%%  p! (<>); ! (<>),T%TH%COMMIT;G`G`( B UXARCHIVOLCALIASXRECSETXTOP XNOMBREREMOTOXEOF5 TC T(qTCCH3/ CCCCNI TNULL CC#T'CC'`' CD~%CC W"T"CC$" zT"C" CITC_ CN$TCCC,. CM(#T'CC'`' CLaTC106 CQ#T'CC'`' CT%CC AT"CCCꆎCCC^:=" N-T"CCCC^:="-T"CCCC^:=" CV#T'CC'`' CW#T'CC'`' CY 23T***T% mT, BCU LCRETURNVALUEI LNFIELDCOUNTLADBFLCVALUELCFIELD5 TC T(#T`C`% T, BU LCRETURNVALUEI LNFIELDCOUNTLADBF 'TCC C GO)    T T T-(aTC%CCA=--.%CCA=/*T.%C*/KT.%f.$%CCfGO )%C T Ci%  $T CCFLastErrorExceptionN Ta T%!!.%@!TC C %} U PNCONNPCSCRIPTLERRORASCRIPT NSCRIPTSIZECBUFFER NCOMMENTDEEPICLINEOEXNRESULT AODBCERROR C CzH5 CCzTCTC CTCTC 2TCTCUAERRINFOTHISERRORNOMESSAGECrear_Estructura Crear_Datos field_content field_names sqlRunScriptINIT UCFLastErrorException EXCEPTIONHqr11111AAAAAAA"aAb1baQqQAAB31qq"qAqqq"AQQAA1q1aqAAAaa3qrqt2AQA1AABqBba61!q1!AA11A11A1!AA51!11!AA 1qq"AAAAAA3AAC"11AAAAAABBAABA;AAAAAAA4`1/T@n%?G IY&('(&(% B*ۘaWBrQCONSQLsys_clases_conexion.prgQSTRINGQSTRINGQSTRING    2BC UOSQLSYS_CLASES_CONEXIONPRGXDBCXTABLA XIMPORTAR XDROP_ALLXNOTBULKXMSGXTOP XNOMBREREMOTOXSUFIJO_TABLASXPREFIJO_TABLASUPSIZING"rQCONSQLsys_clases_conexion.prgQSTRINGQSTRINGQSTRING     T %CxTopbL T -%C 1T$No se pudo conectar con el servidor!CT  B %C %C=.\fTC.\C2T C  %CTCDatabasev%C T-CC Upsizing...C   G(TCTABLE(TC%CVLOCALECCf : Omitida  '2T C (%  +T Ca %C OK Record by Recorda(CaT CCEnd of upsizing B UOSQLSYS_CLASES_CONEXIONPRGXDBCXTABLA XIMPORTAR XDROP_ALLXNOTBULKXMSGXTOP XNOMBREREMOTOXSUFIJO_TABLASXPREFIJO_TABLASXOKCONECTARMENSAJEP_SERVERUPSIZESQL_DROPTABLES_ALL SQL_DATABASELOG_ONGATABLESNITXNUMOEXMESSAGEOwQCONSQLsys_clases_conexion.prgQSTRINGQBOOLEANQBOOLEANQBOOLEAN     T CTCT C T TCC @T C  T C  T  TC CCC: %C tmpUPTablapQ%C tmpUPBorrarQTC@TC%TCTCarrSQLF& %CN{RTCCREATE TABLE [C] ([no_fld] char(1) NOT NULL)arrSQLQC F ( FQ >C@< d T T - ~%C!DZTTC*%CCarrsqlidcol* TaH !C/%C"char#$   T-& !D !T O!%C"datetime K T- !G%C"image  T- !M%C"text  T- !L%C"bit  T- !NC%C"numeric%$ &'  } T- 2,CTipo ! no mapeado !!!(% &[TC) ALTER TABLE [ ] ALTER [] C!$&*i \TC ALTER TABLE [] ADD [C] C!$&*%Cidu T aTC+F1%CCiduarrsqlidcol  T,a j;TC ALTER TABLE [] ADD idu char(10) T,-@TC ALTER TABLE [] DROP COLUMN [no_fld] %C tmpUPBorrarFQ%CarrsqlFQ-./% B$CImportacion OMITIDAa CADO0 T-CADODB.ConnectionNC2-1T-3 -4 C delete from -5T.CADODB.RecordsetNT.67T.68T.9-T/C CursorAdapterNT/:ADOT/6.2T/;select * from <.dbo.T/=AAA T/><.dbo.T/?iduT/@d%Ca/A / F=TBTCDEF F(C. TDCCF/@"TEC F,6:TCC E D >.[ D]TBB E D  CGzCCGxC BufferingaaaH TH-% #FIT CF ( Q % CO4CSolo se suben CCZ registrosK(C.C TLCK/H% ?  LCOEFIC] >MM  LCAMBIO >NN $ CLbD CLbT  7TOempty(L) or LLC$CO LIDU? >PC]CPLRCLR>LSCLS FI  -C Iniciando TableUpdate BULKaTTCa%T CUzCCU 'C OK Bulk Preprocesadoa yVF TWK(^TWWCCW  or 6empty(CK) or CK?@ABCDEFGHIJKLMG~( mensajes.vcxG~(mensajes_ver.vcxBUQFOXTOOLSFLLXARRARRARR_MOTI_TABTITI_TABXATRMAXXATRARRC_VARXMENUXPROMPTAPLI_COEFICRECEFEPAGEFERECOTHPAGOTRRECCHEPAGCHECANATRCANOTHDESCVALP_EMPRPAGCHPCHQRECCHPI_LISC_FACTXTI_TABATRDATABASECADENAARREGLOCAJOTREDDGAN_ARRARR_TIPARRTMPDATAARRSUMA ARR_ARCHIVOSARR_IVA XPROVRETIBTCCAJLOCALCHELOCALOTRLOCALCHEOTHLOCALCHPLOCALCHP RETIB_ARRXCOL_TXTXBULXPESXCANXBULUMOC_ARR ZARR_TEXTOS XARR_REMITOS ARR_CAMBIOS IIBB_PROV XSTACKINFOT_IVAARR ARR_ETAPA ARR_ETAPAP ARR_ESTADO ARR_ESTADOP XARR_PALLETPERAARRAYAARRAY_ORIGINALAARRAY_DESTINO BOTON_ARRAY ARR_QUINCENAAORIGENMENSAJESVCX MENSAJES_VERBUBUBUBUBUBUBUBUBUBUBUBUlistados ve_menu.mpr in_menu.mpr co_menu.mpr cm_menu.mpr pr_menu.mpr te_menu.mpr cs_menu.mpr gs_menu.mprsysmsg_main.mpres_menu_sch.mpres_menu_ind.mpres_menu_cle.mpres_menu_nuv.mpres_menu_sel.mpres_menu_cal.mpres_menu_car.mpres_menu_ele.mpres_menu_mtz.mpres_menu_ifm.mpres_menu_zar.mpres_menu_dlc.mpres_menu_bla.mpres_menu_uni.mprco_diario_ver.mpres_menu_cam.mpres_menu_dal.mpres_menu_vil.mpres_menu_cl7.mpres_menu_sam.mpres_menu_est.mpres_menu_ese.mpres_menu_mcl.mpres_menu_seg.mpres_menu_bel.mpres_menu_tfw.mpres_menu_sri.mpres_menu_lec.mpres_menu_pap.mpres_menu_gab.mpres_menu_max.mpres_menu_stk.mpr ge01_menu.mpr ge02_menu.mpr*#ve_control_de_presupuestos_menu.mpr)"ve_control_de_asistencias_menu.mprmain.mpr%ve_control_de_pedidos_menu.mpr%ve_control_de_armados_menu.mpr.'C:\sistema\2000\main_punto_de_venta.mpr%C:\sistema\2000\main_local.mprsysmsg_main.mpr?det01(!"BU9ERR_HAND ERR_HAND_DEVIMPLSTHLP_CLILISTADOSGUI_GET3VE_MENUMPRIN_MENUCO_MENUCM_MENUPR_MENUTE_MENUCS_MENUGS_MENU SYSMSG_MAIN ES_MENU_SCH ES_MENU_IND ES_MENU_CLE ES_MENU_NUV ES_MENU_SEL ES_MENU_CAL ES_MENU_CAR ES_MENU_ELE ES_MENU_MTZ ES_MENU_IFM ES_MENU_ZAR ES_MENU_DLC ES_MENU_BLA ES_MENU_UNI CO_DIARIO_VER ES_MENU_CAM ES_MENU_DAL ES_MENU_VIL ES_MENU_CL7 ES_MENU_SAM ES_MENU_EST ES_MENU_ESE ES_MENU_MCL ES_MENU_SEG ES_MENU_BEL ES_MENU_TFW ES_MENU_SRI ES_MENU_LEC ES_MENU_PAP ES_MENU_GAB ES_MENU_MAX ES_MENU_STK GE01_MENU GE02_MENUVE_CONTROL_DE_PRESUPUESTOS_MENUVE_CONTROL_DE_ASISTENCIAS_MENUMAINVE_CONTROL_DE_PEDIDOS_MENUVE_CONTROL_DE_ARMADOS_MENUCDET01D sys_destino_impresiones_barra_menu_selabm_gen_art_forabm_gen_reemplazos abm_lis_cfg abm_lis_cop abm_lis_inc abm_lis_pre abm_lis_pre1 abma010592 abmagentes abmatributos abmatributos2 abmbienes abmbieotros abmbultos abmbultos2 abmcatcli abmcatpro abmcentral abmclientes abmcliotrosabmcombinaciones abmcomisiones abmcompuestos abmcostos abmcuentas abmcuentas2abmcuentas_costosabmcuentas_ventas abmdeposito abmdeposito2 abmdepxcod abmempresas abmfletes abmforincos abmformulas abmgrupos abmlineas abmmaquinas abmmarcas abmmotinv abmmotivos abmoperarioabmplancabmplanpabmproveedores abmsucprop abmsucursalesabmzonas abmprotocolos abma010592 abmunidades abmequipos abmrubrofac abmtarjetas abmarmadores abmbul_gen abmatr_gen abmtextos abmctasbanc abmmodelos abmbancos abm_envases abmsupergrupo abmvrectalabmbase abmcoscpre abmcatcred abm_atrhabil abmtipoimp abmnumrecpr_filtro_editar abmbultos_v2abm_estados_de_venta ven_vis1.qpr ven_vis2.qpr ven_vis3.qpr ven_vis4.qpr motivos.prgsys_comandos.prg%sys_equipos_cerrar_forzado.prgsys_equipos_cerrar.prgsys_diseo.prgAes_barra_menu_zargeo_georeferenciaif_impresoras.prgif_auxiliar.prgif_conversores.prgif_drivers.prgif_drivers1.prgif_drivers2.prgif_objetos.prgif_protocolo.prgsys_mail_Spool.PRGsys_alertas_Spool.PRGG~(if_drivers.vcx!es_sch_copiar_archivos.prg' in_faltantes_x_deposito_task.prgin_faltantes_task.prgsys_mail_task.prgsys_mail_spool_task.prg sys_verificar2_tablas.prgsys_padron_iibb_task.prg#ve_pedidos_a_vencer_task.PRGarreglos abmmailctas abmmailasig abmpd_demoras abmcligruece avfp_log.prg sys_ages.prg wwsocket.prg)"sys_verificar2_store_procedure.prgsys_sincronizacion.prges_barra_menu_papes_barra_menu_gabsys_Items_seleccion-&ve_data_importar_clientes_generico.prgfecha_menu.mprsys_meli_objetos.prg sys_verificar2_Tareas.prg|es_barra_menu_maxve_plataformas.prgabm_prop_predetSQL_RptCentros.prgdos_transf_task.prgve_armar_despacho_fletesys_ages_objetos.prges_barra_menu_artes_menu_art.MPrBUSYS_DESTINO_IMPRESIONES_BARRA_MENU_SELABM_GEN_ART_FORABM_GEN_REEMPLAZOS ABM_LIS_CFG ABM_LIS_COP ABM_LIS_INC ABM_LIS_PRE ABM_LIS_PRE1 ABMA010592 ABMAGENTES ABMATRIBUTOS ABMATRIBUTOS2 ABMBIENES ABMBIEOTROS ABMBULTOS ABMBULTOS2 ABMCATCLI ABMCATPRO ABMCENTRAL ABMCLIENTES ABMCLIOTROSABMCOMBINACIONES ABMCOMISIONES ABMCOMPUESTOS ABMCOSTOS ABMCUENTAS ABMCUENTAS2ABMCUENTAS_COSTOSABMCUENTAS_VENTAS ABMDEPOSITO ABMDEPOSITO2 ABMDEPXCOD ABMEMPRESAS ABMFLETES ABMFORINCOS ABMFORMULAS ABMGRUPOS ABMLINEAS ABMMAQUINAS ABMMARCAS ABMMOTINV ABMMOTIVOS ABMOPERARIOABMPLANCABMPLANPABMPROVEEDORES ABMSUCPROP ABMSUCURSALESABMZONAS ABMPROTOCOLOS ABMUNIDADES ABMEQUIPOS ABMRUBROFAC ABMTARJETAS ABMARMADORES ABMBUL_GEN ABMATR_GEN ABMTEXTOS ABMCTASBANC ABMMODELOS ABMBANCOS ABM_ENVASES ABMSUPERGRUPO ABMVRECTALABMBASE ABMCOSCPRE ABMCATCRED ABM_ATRHABIL ABMTIPOIMP ABMNUMRECPR_FILTRO_EDITAR ABMBULTOS_V2ABM_ESTADOS_DE_VENTAVEN_VIS1QPRVEN_VIS2VEN_VIS3VEN_VIS4MOTIVOSPRG SYS_COMANDOSSYS_EQUIPOS_CERRAR_FORZADOSYS_EQUIPOS_CERRAR SYS_DISEOES_BARRA_MENU_ZARGEO_GEOREFERENCIA IF_IMPRESORAS IF_AUXILIARIF_CONVERSORES IF_DRIVERS IF_DRIVERS1 IF_DRIVERS2 IF_OBJETOS IF_PROTOCOLOSYS_MAIL_SPOOLSYS_ALERTAS_SPOOLVCXES_SCH_COPIAR_ARCHIVOSIN_FALTANTES_X_DEPOSITO_TASKIN_FALTANTES_TASK SYS_MAIL_TASKSYS_MAIL_SPOOL_TASKSYS_VERIFICAR2_TABLASSYS_PADRON_IIBB_TASKVE_PEDIDOS_A_VENCER_TASKARREGLOS ABMMAILCTAS ABMMAILASIG ABMPD_DEMORAS ABMCLIGRUECEAVFP_LOGSYS_AGESWWSOCKETSYS_VERIFICAR2_STORE_PROCEDURESYS_SINCRONIZACIONES_BARRA_MENU_PAPES_BARRA_MENU_GABSYS_ITEMS_SELECCION"VE_DATA_IMPORTAR_CLIENTES_GENERICO FECHA_MENUMPRSYS_MELI_OBJETOSSYS_VERIFICAR2_TAREASIN_INVENTARIO_A_VENCER_TASKES_BARRA_MENU_MAXVE_PLATAFORMASABM_PROP_PREDETSQL_RPTCENTROSDOS_TRANSF_TASKVE_ARMAR_DESPACHO_FLETESYS_AGES_OBJETOSES_BARRA_MENU_ART ES_MENU_ARTdummy0totalTsubtotcescribrfrescribpfpaginaescribphtituladoescribrhescribaeescribbeactacumssendlinexxxforms1R0RB4A1A1A1A1A1A1A1A1A1A1A1A1qtt1q#!!!!!!!abaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaBARQQbB2q1111A!!AQ1!!11QQ!11A!1111!1a!QQ!1!11A!!1!1Q!!!A!A2111"qQQraQaaQqqs121QA212RqqaA5Z \ ^`.5bJQdfmfhjlnp  r[  %!<@W 45  &%Cxmensaje_internobCe T(1 DO error_no_definido IN err_handR r%C pub_indexbUCcl_avebU Ccl_nombU Ccl_maxbU C p_versionbU g T  T  T T Desconocida TTodava no definidoH|w %  LOCALES %CDEV:  CON ERROR &onerr X- l   BCAguarde !!! El archivo CCf est bloqueado.Atrsac Err_hand.prgTabla CC bloqueadaON ERROR &onerr X m% DlCAguarde !!! El registro CCCO@z 999,999,999_ del archivo CCf est bloqueado. IC.Aguarde !!! Registro bloqueado en el archivo CCf.Itrsac Err_hand.prgRegistro bloqueado en tabla CCON ERROR &onerr X P% \:CReintentando leer archivo CCf !!!  .CReintentando leer archivo !!!Etrsac Err_hand.prgReintentando leer tabla CCON ERROR &onerr X g%  P.C SUSPEND en C / CCZON ERROR &onerr  }h%CC]G*( d ThR(,' LA IMPRESORA NO RECIBE DATOS !!! C ) PARA CONTINUAR O PARA ABORTAR%xX PG* G ON ERROR &onerr X `G   1C Reintentando abrir la vista !!! Gtrsac Err_hand.prgReintentando abrir la vista (?)ON ERROR &onerr X :xtrsac Err_hand.prgPIllegal to attempt a file lock in a transaction after taking prior record locks.ON ERROR &onerr  $% @C3No se puede tener acceso a la cola de impresin !!!ON ERROR &onerr   C5No se puede cargar el controlador de la impresora !!!C C BUna reinicializacin de la computadora suele resolver el problema.C C No se pudo imprimir.ON ERROR &onerr Z ?ges.dbc' no existe. ges.dbc' does not exist.  - % CDEV:  G(ON ERROR &onerr X5 C tts_errorbN C 2w TT C% a > T9a{G L% e T{G(ON ERROR &onerr BUMERRORMESSMESS1MPROGMLINENOXMENSAJE_INTERNOTECLAAAABBBLIN XRESULTADO PUB_INDEXCL_AVECL_MAX P_VERSIONCL_NOMP_DEVMENSAJEABRIR_TABLAS_FIJASP_ERR_HAND_VERSION MOSTRAR_ERROR LOG_BLOQUEOTRSACP_SERVER TTS_ERROR DISP_ERRORVISIBLE( &%Cxmensaje_internobC: T5TC Memowidthv G$( G  TCW5 T T T   T aGG(G( \tmp\error.txtG G  %Cusuarios [Q \usuariosCusuarioscodigoT $TImposible de determinar&Usuario: : C%C $Mensaje Ampliado : $Mensaje de Error : %Version Ejecutable: C$Programa / Lnea : 5Datasession : CCC datasessionvZ%Archivo Abierto : C$Database : C-Carpeta x Defecto : C]C]lTransaccin ID : CCtts_idbC$ID:  Nivel: CCCZSin transaccin6$Notas :  TH) CrSeVT+Probablemente una reindexacin del archivo CCfresuelva el problema. PTCArchivo daado. Desde el men de mantenimiento revise los archivos. 'TNO DETERMINADO F(C.%CC/bN%CC/NgmC=TCNO DETERMINADO, 6C.C/7T&Desbordamiento numrico en el campo :  s>TTGProbablemente UD. no est conectado a la red. Haga nuevamente el LOGIN. 2lT_Por favor comunique al soporte tcnico que al realizar esta operacin se ha producido un error. GG(%Clog FQ \logF)>C$C^ T >(b > (!  \tmp\error.txt! T!a"T"CC#fCf%""TC"C#>Servidor[ $(T$Error: C C %% % C$a& C$'( % +CError: C C &Q FG  G$( B!U)XAUTXMENSAJE_INTERNOXUSUARIO_ACTUALAAABBBAREAOLDMEMOAAPROGAAERRORAANOTASREPORTARG_ERRORP_LOCALP_SYSTEM PUB_INDEXUSUARIOSDESCR VERSION_EXEARCHIVOTTS_IDXTEXTOMERRORXCAMPOZLOGUSRFECHAHORATIPO SESION_ID P_SESION_IDOERRHNDTXT XRESULTADOASDFGP_SERVERXTMPMSGP_MONITOR_SERVICEMENSAJEOMONSVC EVENT_ERRORy45TCC +iTC [TCC  BUXXLINEAA arreglos.prgBUARREGLOSPRG45 C T T+ TCt%C!T TTCCZA C TxTError en la lnea CC ZA que dice C % . El archivo en el area actual era CC& [C].TC (1 DO error_no_definido IN err_handBU AAPROGAAERRORAANOTAS AACOMPROBAAZAATMP XSTACKINFOMERRORMESSMLINENOMESS1NO_TABSSC"Atencin !!! Error en Err_Hand !!!C CCC,Z - CE - CE(1 DO error_no_definido IN err_handBUMENSAJE4listados< T(%zTC 4TC  C BUMENSAJEWWRLISTADOSXXZWWRMAXWWRL 5TCfullpathvGQ TC&%CCj"T (Alias: C)SET FULLPATH &xfullpath *BDS:CCC datasessionvZ U XFULLPATHXARCH T Indeterminado iTCC p_exe_pathbC C]C]6\C  MONITOR.EXE ges.exe6TCXTCCf :C( BUXFECHAXFILEXVER P_EXE_PATHPI_INICIO_MODO P_MONITOROEX%]%? R, YR, CUXMENSAJEXTIPOXTIEMPOP_ERR_HAND_MENSAJEMENSAJE5TTTT T  aBU OEXTRANMERRORMESSMESS1MPROGMLINENOERRORNOMESSAGEDETAILS PROCEDURELINENO DISP_ERROR disp_error no_tabspdummyreportar.error_no_definido;xfmtarchivo version_exe mostrar_errorLOGqbAY"AQaA2B"4C32A3BB2AT2BBA22raraa1AaAABt2AB2BA2B 3aA2BRaAAAdAbA2B4qcArrd2baaaAAAb"AABRBQQAAa11rAAArAAAqbaS!AqQAAssa1!AqBAAADb3qqqAqA32A2AQAAaA!B22A2qr1aAAA2qaA!A21B221AB6qrB1m""U#g###&&''n((r))*&*,1,,80 %,>0,{Yo     vBC  UXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXHOSTXPORT XMAILTIPOXOKXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXIDU LC_TONAMELC_CC LC_CCNAMELC_CCOXSSL XFUERZA_LOCALXGMAILXTOKEN SEND_EMAILG)BCUXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH XMAILTIPO SEND_EMAIL8BCUXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH SEND_EMAILto     (%Clc_frombC T,%C lc_fromnamebC T@%Clc_tobC"     9 T%C lc_tonamebCi T%Clc_ccbC T%C lc_CCnamebC T%Clc_ccobC T(%Clc_subjbC ?!T Prueba - CC'%Clc_msgbC XTTexto de prueba enviado el CCC  Empresa: C C C   !C!%C!T C! 5T C!( 1TC!C ->6%%CC lc_attachbCO  T+%C lc_replytobC  T"!%C xauth_loginbL+ T# %C xauth_passbL\ T $%CxhostbL T %%Cxport bL T &%CxSSLbL%  T   T'%C xMailTipobN? T TC TC TC %CTC]&%() ) H? CC]=DEY #CC] = VDESARROLLO # 9"Tdiego@solinges.com.ar% CC] = GUILLERMO #(Tguillermo.negrete@gmail.com 2>T1guillermo.negrete@gmail.com;diego@solinges.com.ar T T+G+( sys_winsocksys_mail_funciones/QVFP_WINSOCK_SEND_MAIL sys_winsock%TCVFP_Winsock_Send_MailNT,C T- T.T/T0T1CT2C T3CT4CT5CT6CT7CT8CT9C }T:: 7%CfCf T; T<%C lc_attachbO{ = T=>g 3T==C=,6C>,C T?=  T?T@CTAC%   ' KT CC)Quiere editar el mail antes de enviarlo?B6%   'sys_ve_fce_mailedit(DTC5TC7TC9  TDa%D Tg%CECE CE CE CE CMailaF+%G   %) TH OK SimuladoTI- T a q 6%CJ . / R H N  /s %KS T CL o T CM J %K T CN  T CM" J -K 2 %K T CO . T CM 2N T CP m T CQ %a CR  1Ssys_mail_spool T a  T - %%TEnvio de mail cancelado. % D C YTH T B UUXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXHOSTXPORT XMAILTIPOLL_OKXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXIDU LC_TONAMELC_CC LC_CCNAMELC_CCOXSSL XFUERZA_LOCALXGMAILXTOKEN LOSENDMAILP_MAIL_SEND_FROMP_MAIL_SEND_FROMNAMEP_EMPNITTNIT XSTACKINFOP_MAIL_SEND_REPLYTOP_MAIL_SEND_AUTHLOGINP_MAIL_SEND_AUTHPASSP_MAIL_SEND_HOSTP_MAIL_SEND_PORTP_MAIL_SEND_SSLP_DEVP_MAIL_BLOQUEO SYS_WINSOCKSYS_MAIL_FUNCIONES SMTP_HOST SMTP_PORTSMTP_SSL SMTP_GMAIL SMTP_TOKEN AUTH_LOGIN AUTH_PASSWORDFROM FROM_NAMETOTO_NAMECCCC_NAMECCI PUB_INDEX MESSAGEHTMLMESSAGE TMLC_ATTACHF TMLC_ATTACH ATTACHMENTREPLYTOSUBJECT MENSAJE_SINOSYS_VE_FCE_MAILEDITXRESVALIDAR_DESTINATARIOSSYS_MOSTRAR_SCREENP_MAIL_SEND_TIPOERREUR SMTP_ERRORP_MAIL_SEND_ENGINEP_MAIL_COLA_EXTERNOSEND_MAIL_GMAILSEND_MAIL_WWSMTP_EXTERNOSEND_MAIL_CHILKATSEND_MAIL_WWSMTP SEND_MAIL_CDOSENDDUMPMAIL_GUARDAR_COLA_OBJECTSYS_MAIL_SPOOL/QVFP_WINSOCK_SEND_MAIL sys_winsock!QCDO2000 CDO2000.prg%TCCdo2000 Cdo2000.prgTTT  T T  TTTTTTT%T TT !"%" C# l $% T$%(C&D/T$$CC%Z : C%' /  C(T)$B- %"T) OK SimuladoT*-Ba T) OK EnviadoBaU+ LOSENDMAIL SYS_WINSOCKLOMAILCDO2000PRGCSERVER SMTP_HOST NSERVERPORT SMTP_PORTLUSESSLSMTP_SSL NAUTHENTICATE CUSERNAME AUTH_LOGIN CPASSWORD AUTH_PASSWORDCFROMFROMCTOTOCCCCCCBCCCCICREPLYTOREPLYTOCSUBJECTSUBJECT MESSAGEHTML CHTMLBODY CTEXTBODYMESSAGE CATTACHMENT ATTACHMENTP_MAIL_BLOQUEOSENDXERRORI GETERRORCOUNTGETERROR CLEARERRORSERREUR SMTP_ERROR/QVFP_WINSOCK_SEND_MAIL sys_winsock# T Cjson TC respTC errT  TTTT CaC /T " "  "C" %pT OK SimuladoT- Ta )CLlamando sistema externo..| ShellExecute Shell32.DLL-Copen gesmail.exeTCx'+C0 C0 C <%C0  TC*%CloSendMail2.ExtraLogbCCTTT  T- Ta ) T- T-%C0TC mT *TError al leer la excepcin T- Ta  T- BU! LOSENDMAIL SYS_WINSOCKXJSXJSRESPXJSERRXOK LOSENDMAIL2 XRESPPATHXERRPATHXJSONXJSMAILODEYFUNCNEWFILE_LOCAL_TMPP_SERVERP_SYSTEMP_MAIL_SEND_ENGINE P_PATHS_LOGS NFJSONCREATEXPAR TRACEFILEP_MAIL_BLOQUEOERREUR SMTP_ERROREXTRALOG_AGREGAR SHELLEXECUTESHELL32DLL P_EXE_PATHXSECS NFJSONREADEXTRALOGOEXMESSAGE3QVFP_WINSOCK_SEND_MAIL sys_winsockQWWSMTP wwSmtp.prg  Ta y(9T Error ejecutando wwClient !!C  T a% C  T-% B- YTCwwSmtpNT  C(FT )No se pudo cargar el componente wwSMTP !!C  T a% C  C C T-% B-%CloMailbO6T No se pudo crear loMail!!C  T a% C  T-% B-TTTTTTTT T!"T#$%%T& text/htmlT'% T& text/plainT' T() T*T -T+T,,T-- %.T  OK SimuladoT - Ta _TC/% )T 0T a [T  OK EnviadoT - C C BU1 LOSENDMAIL SYS_WINSOCKXAUTLOMAILWWSMTPPRGOEXXOKWWCLIENTERREURMESSAGE SMTP_ERRORMENSAJE NMAILMODE CREATEWWSMTPCLOSEDESTROY CMAILSERVER SMTP_HOST NSERVERPORT SMTP_PORTLUSESSLSMTP_SSL CUSERNAME AUTH_LOGIN CPASSWORD AUTH_PASSWORD CSENDEREMAILFROM CRECIPIENTTOCCCLISTCCCBCCLISTCCICSUBJECTSUBJECT MESSAGEHTML CCONTENTTYPECMESSAGE CATTACHMENT ATTACHMENTSMTP_RESPUESTA IDU_MENSAJE SMTP_GMAIL SMTP_TOKENP_MAIL_BLOQUEOSENDMAIL CERRORMSG7QVFP_WINSOCK_SEND_MAIL sys_winsock%~T OK SimuladoT- Ta TC BU LOSENDMAIL SYS_WINSOCKXAUTXOKP_MAIL_BLOQUEOERREUR SMTP_ERRORSYS_MAIL_CHILKAT_SMTP7QVFP_WINSOCK_SEND_MAIL sys_winsock%~T OK SimuladoT- Ta TC BU LOSENDMAIL SYS_WINSOCKXAUTXOKP_MAIL_BLOQUEOERREUR SMTP_ERRORSYS_MAIL_CHILKATTC TC %CbB-#     TC %C ;,!C ;, T T (C 4%C C  C $CC  ,$CC  , $CC  ,$CC  ,ULC_TO LC_TONAMELC_CC LC_CCNAMEXLISTACCXTOINIT1XTOINIT2XCCINIT1XCCINIT2XSPOXSPDNITXREC XDIRECCIONODEYFUNCARRAY_PARSEAR_DOBLE_LISTASPLIT_TO_ARRAY MERGE_LIST email_send2 email_send Send_email! Send_Mail_CDOSend_Mail_wwSMTP_externoFSend_Mail_wwSMTPSend_Mail_Chilkat'Send_Mail_GMail/(Pasar_de_lista?)b42r2qAAAAAAAArq1AACQAAAAAAAAAA212Ac!QAAR#$!!!!!!!!AuAq1AA"!Ar!!!Au'2ba1!!A11!!A!1!!A!ABBAAAQAA2R111123112211A;#Aq1qqAB54qa12rqA"1A11AA!1AAB21qAAqAaaAAqAaAAqA21212311411A821A31AA3q1aA2q1aA2q1qA21QAAAAAAB1P g !!6',g'K/q*r/:7:8;7^;Z<B<?M%G QKtCUUi F'QCequiposcodigo ETQ%C TCF'QCequiposcodigo!ptmpCMDQ(b4CError al procesar comandosC   G%CTMPCMDCFQ(U U P_SYSTEMTMPCMDCODIGO P_EQUIPO_IDTCMDCOMANDOSTHISCMD_LEEROEXMENSAJEMESSAGE+TCCMD_BASEsys_comandos.prg8TCCCMD CCMD  Ta+C  3TCCCLA CCLA *TCsys_comandos.prg"% C C ]H>Y 2YTC TC8TCCCMD CCMD  BU XCOMANDOSTCMDTTIPOTPARXSIGUEOCOMOCOM2TCLASE STREXTRACTAGET_DIV PAD_VALIDEZEJECUTAR CUTHISDISPONSEUg TCCf%BB<> `BUXDIVXIOG(%C CxComandobC @BCUXCOMANDOTHIS LEER_DE_TEXTO" C T2TCTIPCTIP2TCCLACCLA8TCVALC CVAL2T CPAR CPAR7BCCMD CCMDU THISPASAR_PARAMETROSTCMDXTIPOGET_DIVTID_TIPOXCLASE TID_CLASEXVALIDEZPAD_VALIDEZ_UTCXPARAM TID_PARAM3TCCTIPCTIP3TCCPARCPAR6TCCCVALCVAL CUXCOMANDOTHISTID_TIPOGET_DIV TID_PARAMPAD_VALIDEZ_UTCLEER_PARAMETROS5TCControlador_Horariosys_sistema.prgTCT C T-UXVALTDTCTHIS PAD_VALIDEZPAS_UTC_A_LOCALPAD_VALIDEZ_UTCDISPONSE5TCControlador_Horariosys_sistema.prgTTC C T-UXVALTDTCTHIS PAD_VALIDEZPAD_VALIDEZ_UTCPAS_LOCAL_A_UTCDISPONSE:H 3 f0BC CMD_CerrarSYS_COMANDOS.prg 6BCCMD_UPDT_MonitorSYS_COMANDOS.prg 3BC CMD_UPDT_IIBBSYS_COMANDOS.prg 23.BCCMD_BaseSYS_COMANDOS.prgUXTIPOXCOMANDOXCLASETHIS TID_CERRARTID_UPDT_MONITOR TID_UPDT_IIBBUUU~6TCCMSGCMSGETCCCFRZCFRZ1a-6UTHIS PAD_MENSAJE TID_PARAMGET_DIV PAD_FORZADO 2TCMSGCMSGBTCFRZC106CFRZT BUXMSGXFORZADOTHISGET_DIV PAD_MENSAJE PAD_FORZADO TID_PARAM 6%C 2C(z6CError en el comando: C % U THIS PAD_MENSAJE OSECURITYRECIBIR_MENSAJEOEXMENSAJETID_TIPOMESSAGE PAD_FORZADOSYS_EQUIPOS_CERRAR_FORZADO(%sys_equipos_cerrar_forzado.prgUSYS_EQUIPOS_CERRAR_FORZADOPRGN dey_func2Cequipos>FQUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEMCOMANDOSALLEQUIPOS%C  H T _ TTC'%C  C T BUXTEXTOXINIXENDXOCURRXFLAGXFLAG2XRET~6TCCMSGCMSGETCCCFRZCFRZ1a-6UTHIS PAD_MENSAJE TID_PARAMGET_DIV PAD_FORZADO 2TCMSGCMSGBTCFRZC106CFRZT BUXMSGXFORZADOTHISGET_DIV PAD_MENSAJE PAD_FORZADO TID_PARAM?'T \recMSG ""! /N &xMSG UXMSGP_LOCALTHIS PAD_MENSAJEo6TCCVSBCVSB6TCCVSUCVSUUTHISPAD_VERSION_BASE TID_PARAMGET_DIVPAD_VERSION_UPDT 2TCVSBCVSB2TCVSUCVSUT BUXVSBXVSUTHISGET_DIVPAD_VERSION_BASEPAD_VERSION_UPDT TID_PARAM`  (Y6CError en el comando: C USYS_MONITOR_PREPARAR_UPDATETHISOEXMENSAJETID_TIPOMESSAGEy8TCCPADACPADA>TCCPADFCPADF1UTHIS PAD_ARCHIVO TID_PARAMGET_DIV PAD_FORZADO 4TCPADACPADADTCPADFC106CPADFT BUXVSBXVSUTHISGET_DIV PAD_ARCHIVO PAD_FORZADO TID_PARAM`  (Y6CError en el comando: C USYS_MONITOR_DESCARGAR_IIBBTHISOEXMENSAJETID_TIPOMESSAGEdisponse, CMD_Buscar3cmd_leerdestroy0DisponseXGet_DIVcINIT Pasar_A_TextoK leer_de_textoPAD_Validez_UTC_AssignPAD_Validez_AssignCMD_Obtener_Comando Pasar_parametros9 Leer_ParametrosD EJECUTARO Leer_ParametrosZ Pasar_parametros EJECUTAR dummy&limpiar_comandosw STREXTRACTA'Leer_Parametros+Pasar_parametrosEJECUTARLeer_Parametros<Pasar_parametrosEJECUTARLeer_ParametrosPasar_parametros6EJECUTAR$!   UTCMD_BASE T TTTTCERRART UPDT_MONITORT UPDT_IIBB       U TID_CLASETID_TIPO TID_PARAM PAD_VALIDEZPAD_VALIDEZ_UTC TID_CERRARTID_UPDT_MONITOR TID_UPDT_IIBBcT CMD_CERRARTCERRAR T T-   U TID_CLASETID_TIPO PAD_MENSAJE PAD_FORZADO_TCMD_MSGTMSG T T   U TID_CLASETID_TIPO PAD_MENSAJEPAD_INTERACTIVOTCMD_UPDT_MonitorT UPDT_MONITORT02010000T02020000   U TID_CLASETID_TIPOPAD_VERSION_BASEPAD_VERSION_UPDTiT CMD_UPDT_IIBBT UPDT_IIBB T T-   U TID_CLASETID_TIPO PAD_ARCHIVO PAD_FORZADOComandosCUSTOMgCMD_BaseCUSTOM CMD_CerrarCMD_BaseCMD_MSGCMD_BaseCMD_UPDT_MonitorCMD_BaseI CMD_UPDT_IIBBCMD_Base 22qA!RqAAAqqAAAA3q1!AAQA<2211AA2qA2!!!r2q21a2qqQ3qqQ2aaaa1A2228aQ2!!A2Q1AaAQ!qA3Q2AqA3qqAqQA7aQ2!!A2qq9aa2!!A2aA92AAA2aA21Q111a2q1=A5QQ7a786Y/#.H0K1 M9 ! V>F 1 \FV gL oTy\hij kntAc6d ,yM1Y@`  !!H"!(?Z$5R"W %oҋuE#Y .TC BCCNUXTIPOOBTENER_CLASE_COMANDO'7 Q EG_COMANDOsys_clases_actualizaciones.prg5T C BC UXID XKEY_SISTEMAXDESDEXHASTAXCOMANDO XADICIONALESXESTADO XRES_TIPO XRES_MENSAJEOCMDSYS_CLASES_ACTUALIZACIONESPRGTHIS CREAR_COMANDOAGREGAR_COMANDO<2BCCsys_clases_actualizaciones.prgUXCOMANDOOBTENER_CLASE_COMANDO+ 7 Q EG_COMANDOsys_clases_actualizaciones.prgT C 5C  B UXID XKEY_SISTEMAXDESDEXHASTAXCOMANDO XADICIONALESXESTADO XRES_TIPO XRES_MENSAJE XRES_FECHAOCMDSYS_CLASES_ACTUALIZACIONESPRGTHISOBTENER_COMANDO_NUEVOLLENAR_COMANDOZ7Q EG_COMANDOsys_clases_actualizaciones.prgC BUOCMDSYS_CLASES_ACTUALIZACIONESPRGTHISADD ID_COMANDO7Q EG_COMANDOsys_clases_actualizaciones.prg7Q EG_COMANDOsys_clases_actualizaciones.prg7Q EG_COMANDOsys_clases_actualizaciones.prgTCCC U TCMDSSYS_CLASES_ACTUALIZACIONESPRGTCMDOCMDTHISOBTENER_COMANDO_NUEVOCOMANDOCLONARSEAGREGAR_COMANDOMQ EG_COMANDOSTCaC BUXJSONOCMDS NFJSONREADTHISCLONARSEwQMYSQLsys_clases_conexion.prgQESTADO_GENERALsys_clases_actualizaciones.prg Ccomandos   -T C % !UXAUTXMENSAJE XIDSISTEMA XLOCALIZACIONXDEV_ENVOSQLSYS_CLASES_CONEXIONPRGTMPOEGSYS_CLASES_ACTUALIZACIONES XCONTINUARSYS_MOCMDTHISEJECUTARTC TC TC %C xAdic_PathbNTU XADIC_VAR XADIC_VALUEXADIC_OPERACION XADIC_PATHTHISADIC_VAR ADIC_VALUEADIC_OPERACION ADIC_PATH CUTHISCREAR_ADICIONALES%C 0TCTTTTUOJSONTHISDATOS_ADICIONALES NFJSONREAD ADIC_PATHADIC_VAR ADIC_VALUEADIC_OPERACIONTCaUTHISDATOS_ADICIONALES NFJSONCREATE[  %C xAdic_ModobN;TTC U XADIC_MODO XADIC_CODIGOTHIS ADIC_MODO ADIC_CODIGO CUTHISCREAR_ADICIONALES]%C 0TCTTUOJSONTHISDATOS_ADICIONALES NFJSONREAD ADIC_MODO ADIC_CODIGOTCaUTHISDATOS_ADICIONALES NFJSONCREATE UXDATOS UOCMD UOCMD)TC]TC]UTHIS TRAFICO_ID ID_COMANDOwQMYSQLsys_clases_conexion.prgQESTADO_GENERALsys_clases_actualizaciones.prg T -H ) sys_actualizaciones.prg  &7sys_actualizaciones.prg    l0sys_actualizaciones.prg   sys_cfg   *sys_actualizaciones   B UXAUTXMENSAJE XIDSISTEMA XLOCALIZACIONXDEV_ENVOSQLSYS_CLASES_CONEXIONPRGTMPOEGSYS_CLASES_ACTUALIZACIONES XCONTINUARTHISCOMANDOACTUALIZAR_GESFESYS_ACTUALIZACIONES ID_COMANDOACTUALIZAR_GESDATOS_ADICIONALESMOSTRAR_VENTANAACTUALIZAR_IIBBCMD_CAMBIAR_PARAMETROSYS_CFGEJECUTAR_MACRO@%C9C CUOCMDTYPEOTHISCLONARSEREIDENTIFICARSEL CTCCNC BUOCMDTHIS PRE_MELLIZOOBTENER_CLASE_COMANDOCOMANDO POS_MELLIZO C CTTTTTT T   C BU TCMDTHIS PRE_CLONARSE ID_COMANDO VALIDO_DESDE VALIDO_HASTACOMANDODATOS_ADICIONALES RES_FECHAMOSTRAR_VENTANA POS_CLONARSE4QAGES_CONTROL_SOL1 sys_ages.prgTC*%CoAGESSOLbOC  5 T-%CtAGESSOL T  sys_agesBC U XAUTTAGESSOLSYS_AGESPRGXRESPTHIS RES_FECHAOAGESSOLTYPEOOBTENER_AGESSOLOSISTEMAINFORMAR_RESULTADO_COMANDO%C 7B-TCComandos ID_Comando=CEstado Res_Tipo Res_MensajeC  Res_Fecha $TC  BUXAUTOSQLXMENSAJEXRESPINICIALIZAR_SQL SQLUPDATESQLTQOCMD ID_COMANDOESTADORES_TIPO RES_MENSAJE RES_FECHATHISACTUALIZAR_COMANDOS_PENDIENTESGQ EG_COMANDOsys_clases_actualizaciones.prgTC TMPGemelo %C B-Q EG_COMANDO TT C6Select * from Comandos where Estado=1 and ID_Comando<>C  AND Key_Sistema=C  AND Comando =CCZ %  CN %6TCCsys_clases_actualizaciones.prgC Ta  T- BUOSQLXEXISTEXALIASOCMDSYS_CLASES_ACTUALIZACIONESPRGXLLENARINICIALIZAR_SQLTHISXRESP SQLEJECUTARSQLTQ ID_COMANDO KEY_SISTEMACOMANDOOBTENER_CLASE_COMANDOXCOMANDO LEER_TABLA CC .ID_ComandoC .Key_SistemaC .Valido_DesdeC .Valido_HastaC.ComandoC.Datos_AdicionalesC .Res_TipoC .Res_MensajeC .Res_FechaUXALIAS XAUXILIARTHISLLENAR_COMANDOY+  C T  T T CC] T CCl$ T CCl$ T C T C T C T C T C T CCl$ C  B UXID XKEY_SISTEMAXDESDEXHASTAXCOMANDO XADICIONALESXESTADO XRES_TIPO XRES_MENSAJE XRES_FECHAOCMDTHIS PRE_LLENADO KEY_SISTEMA ID_COMANDO VALIDO_DESDE VALIDO_HASTACOMANDODATOS_ADICIONALESESTADORES_TIPO RES_MENSAJE RES_FECHA POS_LLENADOU CUTHISLEER_ADICIONALES CUTHISCREAR_ADICIONALESUUUU CUTHISLEER_ADICIONALES  CCenviarTC #T    T  C BUXAUTXMENSAJEXEXISTIA_GEMELOXOKORESPTHIS PRE_ENVIARSYS_MOAGESSOLOSISTEMA OCOMANDOSCREARRES_TIPOERRCOD POS_ENVIAR+%nages2MBC C %C B- Q EG_COMANDO T %C TCComandos ID_Comando=C  ID_ComandoC  Key_SistemaC Comando Datos_AdicionalesC Estado  Valido_Desde  Valido_Hasta Res_Tipo  Res_MensajeC  Res_Fecha  $TC  Ta C BUXAUTOSQLXMENSAJEXRESPXOMITIR_GEMELOSXEXISTIA_GEMELOP_AGES_SOL_PROTOCOLTHISENVIAR_COMANDO_NAGES2 PRE_ENVIARINICIALIZAR_SQLOCMDEXISTE_MELLIZO_PENDIENTESQLINSERTUPDATESQLTQ ID_COMANDO KEY_SISTEMACOMANDODATOS_ADICIONALESESTADO VALIDO_DESDE VALIDO_HASTARES_TIPO RES_MENSAJE RES_FECHAACTUALIZAR_COMANDOS_PENDIENTES POS_ENVIAR5%C 7B-Q EG_COMANDO TTCwUPDATE `Sistemas` SET `Comandos`= (select Count(Estado) from Comandos where Comandos.Estado=1 and Comandos.Key_Sistema=C ) where Sistemas.Key_Sistema=C  BU XAUTOSQLXMENSAJEXRESPINICIALIZAR_SQLOCMDTHIS SQLEJECUTARSQLTQ KEY_SISTEMA%CoSQLbOQ(sys_clases_conexionTC% T% CB- BaUOSQLXMENSAJEXAUTOBTENER_SQL_INTERNOSYS_CLASES_CONEXION XCONECTADOCONECTARMENSAJE7TTCa BUTHIS COMANDOS_JSON NFJSONCREATECOMANDOS1%C  BUTHIS IP_PUBLICOLEER_IP_PUBLICOg  TTCwwAPITCT BUXIPOIPWWCLIENTGETIPFROMDOMAINTHIS URL_DYNDNSIP_PUBLICO_DYNDNS%C #B-TTTTTTT  T  T  T  T  %T Cl$ FT `TC T T T T T T 2T LT mT T TTT  T  *TC 44%CoEG.Comandos_JSONbC C CUOEGTYPEOTHIS ID_SISTEMA IP_PUBLICONOMBRE ULTIMO_BACKUPVERSION_SYSTEM EXE_GES_FECHAEXE_GES2K_FECHAEXE_MONITOR_FECHAEXE_GESSVCNET_FECHAEXE_GESSVCCFG_FECHAEXE_GES_ACTUALIZADOR_FECHAFECHA SUBSISTEMA LOCALIZACIONRAMADEV_ENV URL_DYNDNSLICENCIA_ESTADOLICENCIA_MENSAJELICENCIA_VALIDACION HAY_COMANDOS DESDEGESTASK COMANDOS_JSONCOMANDOS REVIVIR_JSON&%CThis.DirectoriosbL,%CThis.Padre.directoriosbOhT =TC Directoriossys_clases_tablas.prg BUTHIS DIRECTORIOSPADRE T% 5 %Cp_empbCOTC0C GUIC DEYUNK666#%C P_SystemDescrbCTC T T  U XNO_CARGARXPADRETHISPADRE CARGAR_DATOS ID_SISTEMA P_DEV_ENVP_EMPNOMBRE P_SYSTEMDESCRDEV_ENV URL_DYNDNSP_AGES_URL_DYNDNS4% C CUP_AGES_SOL_ACTALIZAR_IPTHISLEER_IP_PUBLICOLEER_VERSION_SYSTEMU%CVersion 4Q\Version'%CVERSION.version_nbNrT TUP_SYSTEMTHISVERSION_SYSTEMVERSION VERSION_NC  sys_upload_ipT BUXIP OBTENER_IP SYS_UPLOAD_IPTHIS IP_PUBLICO 1'TCGES.EXEX TTCl$ )TC GES2K.EXEX TCl$ +TC Monitor.EXEX TCl$ E-TC GESSVCNET.EXEX hTCl$ -TC GESSVCCFG.EXEX TCl$ 4TCGES_Actualizador.EXEX +TCl$T CT  T C TTUTHIS EXE_GES_FECHA DIRECTORIOSDIR_INSTEXE_GES2K_FECHAEXE_MONITOR_FECHAEXE_GESSVCNET_FECHAEXE_GESSVCCFG_FECHAEXE_GES_ACTUALIZADOR_FECHAFECHA LOCALIZACIONP_LOCALIZACIONRAMASYS_VERIFICAR2_RAMADEV_ENV P_DEV_ENV SUBSISTEMA P_SUBSISTEMA/CT-T-UTHIS DIRECTORIOSDISPONSEPADREd!%C This.TareasbLQ0TCMonitor_Tareas Monitor2.prg BUTHISTAREAS!CT-UTHISTAREASDISPONSE]CT-CT-CT-UTHISCONEXIONDISPONSEESTADO_GENERAL ESTADO_TAREASh#%C this.ConexionbLU2TCMSSQLsys_clases_conexion.prg BUTHISCONEXION~)%Cthis.Estado_GeneralbLkBTCEstado_Generalsys_clases_Actualizaciones.prg BUTHISESTADO_GENERAL|(%Cthis.Estado_TareasbLiATC Estado_Tareassys_clases_Actualizaciones.prg BUTHIS ESTADO_TAREASUTT%C RB- T Error   sys_upload_ip (T  oTC([solinges].[monitor].[monitores_latidos]Latido'CC'EMPRESA'' TC%[solinges].[monitor].[Monitores_Vida] empresa=''Latido'CC'EMPRESA''IP' 'B UOCONNOESTXRETXRET2OEXTHISESTADO_GENERALCONEXIONCONECTARXIP OBTENER_IP SYS_UPLOAD_IPMESSAGE SQLINSERTP_EMPSQLINSERTUPDATE{TT%C JB- TCSistemas_Estado empresa='' GES_Fecha'C ' GES2K_Fecha'C ' Monitor_Fecha'C 'GESSVCNET_Fecha'C 'GESSVCCFG_Fecha'C 'EMPRESA'' T- T- BUOCONNOESTXRETTHISESTADO_GENERALCONEXIONCONECTARSQLINSERTUPDATEP_EMP EXE_GES_FECHAEXE_GES2K_FECHAEXE_MONITOR_FECHAEXE_GESSVCNET_FECHAEXE_GESSVCCFG_FECHAWTT%C NB-T P(CMonitor.Estado_TareasID=' ' AND empresa=' 'Nombre' 'ActivaC106Ultima'C'Proxima'C'Fija'C' IntervaloCCZEMPRESA' 'ID' ' CMonitor.Estado_TareasID=' ' AND empresa=' 'Config'C'Macro'C' Respuesta'C'UOCONNOESTOCOLLXTAREATHIS ESTADO_TAREASCONEXIONCONECTARTAREAS COLECCIONSQLINSERTUPDATEIDUP_EMPNOMBREACTIVATTOC2ULTIMAPROXIMAFIJA INTERVALO SQLUPDATESTRTRAN2CONFIGMACRORESPUESTA_ULTIMA` %C TMPESTFEC0FQT%C _B-TCZSELECT [Empresa],[Tareas_Fecha] FROM [solinges].[GES].[Sistemas_Estado] where [Empresa]=''; TMPESTFEC% T 'T%C TMPESTFECPFQ BU OCONNXRET TMPESTFECTHISCONEXIONCONECTARXRESP SQLEJECUTARP_EMP TAREAS_FECHAT%C AB-wTCGES.Sistemas_Estado empresa='' Tareas_Fecha'C'EMPRESA'' BU XFECOCONNXRETTHISCONEXIONCONECTARSQLINSERTUPDATEP_EMPTTOC2A# T- TaT T %C tB-TC %CMoniLOG2 TaFQ \MoniLOG2F TCG((Fecha~  TCMonitor.Historia_TareasIDU'' ID_InternoFechaNombre''MSG''Tipo_logEMPRESA'' FSET ORDER TO &xOrder %CC%1FQ BUOCONNOESTOCOLLXTAREAXFECXRETXORDERXOPENDTHIS ESTADO_TAREASCONEXIONCONECTARTAREAS_FECHA_GETP_SYSTEMMONILOG2FECHATIPO_LOG SQLINSERTIDU ID_INTERNONOMBREMSGMEMOP_EMPTAREAS_FECHA_SET TCDatevG american%CS T mTCSET DATE &xDate BUXFECHAXDATEXRETAMERICANBCC'"UXTEXT TT%C MB-[BC.SELECT * FROM monitor.Comandos where EMPRESA='' AND Pendiente=1U XALIASOCONNOESTTHISESTADO_GENERALCONEXIONCONECTAREJECUTARP_EMP TT%C MB-_CMonitor.Comandos empresa=''Comando'' Pendiente0LeidoCU XALIASOCONNOESTTHISESTADO_GENERALCONEXIONCONECTAR SQLUPDATEP_EMP  TT%C QB-\CMonitor.Comandos empresa=' ' ResultadoMensaje''U XRESULTADOXMENSAJEOCONNOESTTHISESTADO_GENERALCONEXIONCONECTAR SQLUPDATEP_EMP$ %CxEmpresabL6 T TT%C B-T CMonitor.Comandos empresa=''empresa'' Pendientecomando'' ResultadoMensaje'' B U XCOMANDOXEMPRESAP_EMPOCONNOESTTHISESTADO_GENERALCONEXIONCONECTARXRETSQLINSERTUPDATE TT T %C zB-gT C=DELETE FROM [solinges].[monitor].[Act_IIBB] WHERE [Empresa]=''; TMPESTFEC %TC \IIBB20*.dbf Ta(TCC\&TCCC=gCC\g$`TPC[solinges].[monitor].[Act_IIBB]IIBBFileEMPRESA''  BUOCONNOESTXRETXRET2NITXFECHAXFILEXADIRTHISESTADO_GENERALCONEXIONCONECTARXRESP SQLEJECUTARP_EMPXDIRP_SYSTEM SQLINSERTT T %C aB- TT Where %#T Visualizar=0 T OR %#T Visualizar=1 T OR %W#T Visualizar=2 T OR QBC#SELECT * FROM monitor.sistemas_ver  order by sistema  U XALIAS XVERTIPO0 XVERTIPO1 XVERTIPO2OCONNOESTXFILTROXJTHISESTADO_GENERALCONEXIONCONECTAREJECUTARUT T %C eB-% bTCSistemas_Estado empresa='' Backup_FechaEMPRESA'' TC[solinges].[monitor].[Backups]EMPRESA''TipoC6Fecha ResultadoMSG''B U XAUTOMATICOXFECHA XRESULTADOXMSGXTAMAOOCONNOESTXRETXRET2THISESTADO_GENERALCONEXIONCONECTARSQLINSERTUPDATEP_EMP SQLINSERTTT%C UB-6BC"SELECT * FROM monitor.IIBB_Ultimo  U XALIASOCONNOESTXFILTROXJTHISESTADO_GENERALCONEXIONCONECTAREJECUTARkQESTADO_GENERALsys_clases_actualizaciones.prgQMYSQLsys_clases_conexion.prg#     '%CoRespbOC  ?TCJSon_Respuestasavfp_objects_definiciones.prg;QESTADO_GENERALsys_clases_actualizaciones.prgCTCEstado_Generalsys_clases_Actualizaciones.prgaC T T T  T%C  T   T eTCaCEG -T Ca !%"-T Ca#%T$ ActualizadoT%%  FT&Ca' }-T$Actualizado -  -  T%T$% &T$IP:  - $ BU(TMPOEGSYS_CLASES_ACTUALIZACIONESPRGORESPXAUTOSQLSYS_CLASES_CONEXIONOOBJXMENSAJEXMSGIPXOKIP XRESP_LIC XRESP_CMDS XMENSAJE_LIC XMENSAJE_CMDOESTADOGENERAL LEER_ESTADO URL_DYNDNSXRESPACTUALIZAR_ESTADOGENERAL ID_SISTEMANOMBRE IP_PUBLICO EXE_GES_FECHAEXE_GES2K_FECHAVERSION_SYSTEMRAMA LOCALIZACIONDEV_ENVEXE_GES_ACTUALIZADOR_FECHAFECHA DESDEGESTASKSYS_MOBTENER_ESTADOGENERAL_LIC HAY_COMANDOSOBTENER_ESTADOGENERAL_CMDS RES_MENSAJERES_TIPO RES_OBJECT NFJSONCREATEwQMYSQLsys_clases_conexion.prgQESTADO_GENERALsys_clases_actualizaciones.prgG+(listados#   8Q EG_COMANDOSsys_clases_actualizaciones.prg7Q EG_COMANDOsys_clases_actualizaciones.prgTC%C PB-TkT C6Select * from Comandos where Estado=1 and Key_Sistema=CC=CZ%  F ~CC .ID_ComandoC .Key_SistemaC .Valido_DesdeC .Valido_HastaC.ComandoC.Datos_AdicionalesC .Res_TipoC .Res_Mensaje T a T% C T - B UXAUTXMENSAJE XIDSISTEMA XLOCALIZACIONXDEV_ENVOSQLSYS_CLASES_CONEXIONPRGTMPOEGSYS_CLASES_ACTUALIZACIONESLISTADOSXOK XCONECTADOXRESPOOBJXCMDOEXXALIASOCMDSOCMDODEYFUNCNEWALIASINICIALIZAR_SQLCOMANDOS SQLEJECUTARSQLTQCREAR_Y_AGREGARMENSAJEwQMYSQLsys_clases_conexion.prgQESTADO_GENERALsys_clases_actualizaciones.prgG+(listados#   TC%C B-lT C(Select * from Sistemas where ID_Sistema=C and Localizacion=CZ% Z FTC.Lic_EstTC.Lic_TlkTCTC .ComandosTC.url[CSistemas ID_Sistema=C and Localizacion=CZLic_ValC T a T% C T - B UXAUTXMENSAJE XIDSISTEMA XLOCALIZACIONXDEV_ENVOSQLSYS_CLASES_CONEXIONPRGTMPOEGSYS_CLASES_ACTUALIZACIONESLISTADOSXOK XCONECTADOXRESPOOBJXCMDOEXXALIASODEYFUNCNEWALIASINICIALIZAR_SQL SQLEJECUTARSQLTQLICENCIA_ESTADOLICENCIA_MENSAJELICENCIA_VALIDACION HAY_COMANDOS URL_DYNDNS SQLUPDATEMENSAJEg    QMYSQLsys_clases_conexion.prgG+(listadosTCC %C  B-%C TTCSistemas ID_Sistema=C  and Localizacion=C Z ID_SistemaC NombreC  IP_PublicoC  exe_ges_FECHAEXE_GES2K_FECHAversion_systemCZramaC  localizacion Dev_EnvC Z Key_SistemaCC=C Z EXE_GES_Act_FechaFecha TCSistemas ID_Sistema=C  and Localizacion=C Z DesdeGESTASKCC -Desde_GESTask_Fecha6CC -C6  ATCSistemas ID_Sistema=C  and Localizacion=C Z ID_SistemaC NombreC  IP_PublicoC  exe_ges_FECHAEXE_GES2K_FECHAversion_systemCZramaC  localizacion Dev_EnvC ZurlC  Key_SistemaCC=C Z  TCSistemas ID_Sistema=C  and Localizacion=C ZEXE_GES_Act_FechaFecha DesdeGESTASKCC -Desde_GESTask_Fecha6CC -C6  BUXAUTXMENSAJE XIDSISTEMAXNOMBRE XIP_PUBLICOXEXE_GES_FECHAXEXE_GES2K_FECHAXVERSION_SYSTEMXRAMA XLOCALIZACIONXDEV_ENV XURL_DYNDNSOSQLSYS_CLASES_CONEXIONPRGXGES_ACT_FECHAXFECHA XDESDEGESTASKLISTADOSXOK XCONECTADOXRESPOOBJXCMDINICIALIZAR_SQLSQLINSERTUPDATESQLTQCQESTADO_GENERALsys_clases_actualizaciones.prgT  %  BTC BU OEGSYS_CLASES_ACTUALIZACIONESPRGXMSGXAUTXBUSCAXHITXCUITTXTXSRTXIPIP_PUBLICO_DYNDNS IP_PUBLICOACTUALIZAR_IP_URL_EXTERNA<CQESTADO_GENERALsys_clases_actualizaciones.prgTCtxtwXCMD="https://solinges:jimmyhendrix@members.dyndns.org/v3/update?hostname="+oEG.URL_DynDNS +"&myip="+oEG.IP_Publico  internet%C0TC , T BU OEGSYS_CLASES_ACTUALIZACIONESPRGXMSGXAUTXCMDXFILEODEYFUNCNEWFILE_LOCAL_TMP DOWNLOAD_HTTPINTERNET!gQ EG_COMANDOsys_clases_actualizaciones.prgQMYSQLsys_clases_conexion.prg5    C%T "T Respuesta Guardada T T   BU OCMDSYS_CLASES_ACTUALIZACIONESPRGORESPOSQLSYS_CLASES_CONEXIONXAUTXRESPGUARDAR_RESULTADO_COMANDO ID_COMANDOESTADORES_TIPO RES_MENSAJE GQMYSQLsys_clases_conexion.prg     %C B-{T CComandos ID_Comando=CEstadoRes_Tipo Res_MensajeC Res_Fecha B UXAUT XID_COMANDOXESTADO XRES_TIPO XRES_MENSAJE XRES_FECHAOSQLSYS_CLASES_CONEXIONPRGXRESPXOK XCONECTADOOOBJXCMDXMENSAJEINICIALIZAR_SQL SQLUPDATESQLTQ%CoSQLbOQ(sys_clases_conexionTC% T% CB- BaUOSQLXMENSAJEXAUTOBTENER_SQL_INTERNOSYS_CLASES_CONEXION XCONECTADOCONECTARMENSAJEH  ETGESFE hTGES TIIBB TCFG 2TCMD% TC BUXCOMANDOXABREVXNOTRIM=H- HTEG_Comando_GESFE vTEG_Comando_GES TEG_Comando_IIBB TEG_Comando_CFG  &TEG_Comando_Ejecutar_Macro 2-T EG_Comando BUXCOMANDOXCLASECrear_y_AgregaryObtener_Comando_Nuevo Crear_Comando7Agregar_ComandoClonarseT Revivir_JSONProcesar_ComandosFSetear_Adicionales Pre_MellizoLeer_Adicionales Crear_Adicionales Setear_AdicionalesJ  Pre_Mellizo Leer_Adicionales Crear_Adicionales Setear_Adicionales  Pre_Mellizo!  Pos_Mellizo9 ReIdentificarseQ Ejecutar INIT Crear_MellizoJClonarseActualizar_EstadoKEnviar_ResultadoExiste_Mellizo_PendienteU Leer_Tablallenar_comando Pre_Llenado Pos_Llenado Pre_Enviar Pos_EnviarLeer_AdicionalesCrear_Adicionales  Pre_Clonarse Pos_Clonarse!Enviar_Comando_NAGES2QEnviar_ComandoActualizar_Comandos_Pendientes)!Inicializar_SQL"Comandos_JSON_Access#IP_Publico_Access[$IP_Publico_DynDNS_Access$ Leer_Estadop%directorios_Access*INITj+Preparar_Envio-Leer_Ultimo_Backup-Leer_Version_SYSTEM-Leer_IP_Publico\. cargar_datos.Disponseh2 Tareas_Access2Disponse=3Disponse~3 Conexion_Access4 Estado_General_Access4 Estado_Tareas_Access85 INIT5 Enviar_Seal_Vida5 Enviar_Estado_GeneralI8 Enviar_Estado_Tareas~: Tareas_Fecha_Get= Tareas_Fecha_Set? Enviar_Historia_Tareas@ TTOC2C STRTRAN2~D Obtener_ComandosD Limpiar_ComandosE Responder_ComandosF Enviar_ComandoG enviar_estado_IIBBoI Obtener_SistemasK Obtener_monitor_updatesN Enviar_Backup_Realizado#N Obtener_Sistemas_IIBBGP Guardar_EstadoGeneral7QObtener_EstadoGeneral_CMDs?WObtener_EstadoGeneral_Licw[Actualizar_EstadoGeneral_Controlar_IP_URL_ExternaeActualizar_IP_URL_ExternagGuardar_Resultado_ComandoOhGuardar_Resultado_Comando~jInicializar_SQLElObtener_Abreviatura_ComandosmObtener_Clase_ComandonI       U TUCOMANDO TUCOMANDO TUCOMANDOl T T T T T  U ADIC_PATHADIC_VAR ADIC_VALUEADIC_OPERACIONCOMANDOX T TTReturn  UCOMANDO ADIC_MODO ADIC_CODIGOzTC] T TCTCF T T T TC T-                 ! " # $ % & ' (U ID_COMANDO KEY_SISTEMA VALIDO_DESDE VALIDO_HASTACOMANDODATOS_ADICIONALESESTADO RES_FECHAMOSTRAR_VENTANA T T T T TTTTTT T T  T - T - T T T T T T T TT T T .Q T ) * + , - . / 0 1 2 3 4U ID_SISTEMA IP_PUBLICONOMBRE ULTIMO_BACKUPVERSION_SYSTEM EXE_GES_FECHAEXE_GES2K_FECHAEXE_MONITOR_FECHAEXE_GESSVCNET_FECHAEXE_GESSVCCFG_FECHAEXE_GES_ACTUALIZADOR_FECHAFECHAPADRE DIRECTORIOS SUBSISTEMA LOCALIZACIONRAMADEV_ENV URL_DYNDNSIP_PUBLICO_DYNDNSLICENCIA_ESTADOLICENCIA_MENSAJELICENCIA_VALIDACION DESDEGESTASK HAY_COMANDOSCOMANDOS EG_COMANDOS COMANDOS_JSON- T- T- 5 6UPADRETAREAS T- T- T- 7 8 9 : ; < = > ? @ A B C D E F G H I J K LUCONEXIONESTADO_GENERAL ESTADO_TAREAS EG_Comandos COLLECTIONxEG_Comando_GESFE(EG_Comando:avfp_objects_definiciones.prgyEG_Comando_GES(EG_Comando:avfp_objects_definiciones.prg3yEG_Comando_IIBB(EG_Comando:avfp_objects_definiciones.prgTyEG_Comando_CFG(EG_Comando:avfp_objects_definiciones.prguyEG_Comando_Ejecutar_Macro(EG_Comando:avfp_objects_definiciones.prg#z EG_Comando*JSon_Trafico:avfp_objects_definiciones.prgzEstado_GeneralCUSTOM| Estado_TareasCUSTOM= Estado_SQLCUSTOMq12qqQ2q!1qQQ2qq2qqqqA2qa12qqQAAA11A32qQAA11112a9A22qQAA112a>q2q2q2112qqaaraaaA2qAA2q2q1111111A2AqqAAA21qAhB3qQqAQ qaAA2 2qaaaaa22222222211Q3AqAQ[AA21qAQ 2AAqqA12AA2rQr3qQqA21111111111A1A1A1A1A1A1A111A1AABaA4aaAA2AA1!A31A22Aq1A3q2qAAAAAAA29A2:31!A2!A2A23qAqAq!A3 3AqA31AqA1% A2qAAAqAA11AqAA2qAqAt31AqAqAq AqAqAA2q1A22qQ3qAqA3qAqA3AqA3AAqAD 21AqAqRaA311AqAA1A1A1A24q2AqA1"A 2q1AqAa63qA1QAVbAaaAA2aA3q#3qqAAZ CAA4q#2qAAAA2q%1qAN  C315aA!31qqA3qqQ!1A2qrqA4AAqqA11!111A!A2q11111aqA1;111413APP111111111@54` P`p: w  12$%[+04 f M8 Y: \C )fE<pK!wMJzT,[VXZ\@x_ipv|uc!!# #&2&0&)T&m&+&&.&&1&&3''5?'='7b'{'9'(<(&-H\-!/gI/0q 333 4;445Q;^|;<g<(> uQ>>z>>{ ??!?Y@,~@D2DDWjEEcF3FiFgGuGH~CHHIIIIInLLN ORRT TU%VY5YZ!AZ [/D6[7\4Ma\q]?V]^K_^`Wl`8ci~bceeefDhqhYiiq-rmww{#'|ׅC |!-`9fAŽPbHse{7}# - : = 5Bek00D7E=F`sFciq/%+!49[P4{XHU%C uVCHNo se pasa la datasession. empresas.cargar_datos_entorno () puede fallaraTC Datasessionv%C G(1 C G(UXDSP_DEVSYS_MOSTRAR_SCREENXDS_OLDSETS"BCCUXEMPTHIS COLECCION CREAR_CLAVE-*BCEmpresa-NUTHIS DIR_SISTEMAWT =TCC G BUOEMPTHIS EMPRESA_VACIA COLECCION CREAR_CLAVEP_UNOWT =TCC G BUOEMPTHIS EMPRESA_VACIA COLECCION CREAR_CLAVEP_DOS^T DTCC N BUXEMPRESAOEMPTHIS EMPRESA_VACIA COLECCION CREAR_CLAVE/,B   UTHIS EMPRESA_DOSPRESENTEACTIVAP_UNOP_DOSTT%bT y T % T  T % T  T BUOEMPP_SERVERP_CODEMPP_UNOP_DOSP_DOSCEN DIR_TABLASCODIGODPUNO P_UNO_CFGDPDOS P_DOS_CFGDPDOSCEN P_DOSCEN_CFG )% CO C KT b THw TC TC TC 2C ERROR !!!  BU XDCON XESTEOBJETOOEMPSGESFORMEMPRESASTHISOCOLLGET_CONSOLIDARXXDCONMENSAJEQ <TC collection T-HhA T% CC    TC  CC   tTpCC    S TC TTCC ( ETC TTCC O  TC TTCC  A 3TC TTCC = BUXCUALOCOLL2OCOLLOEMPXKEYOEXRTHIS PRESENTESDOSADD CREAR_CLAVECODIGOACTIVA COLECCIONP_UNOP_DOS %* B TC collection%CC BU OCOLLOEMPP_MENU_EMPRESAS_VALIDARTHIS COLECCIONPRESENTEADD CREAR_CLAVECODIGOT"%C xDir_SistemabCQTTC Collection% U XNO_INICIAR XDIR_SISTEMAXPADRETHISPADRE DIR_SISTEMA COLECCION CARGAR_DATOSl%Y 7T(UT BUOEXTHISACTIVAP_CODEMPTUXEMPTHISACTIVAITBCUXEMPTHISACTIVAOEMP COLECCIONACTIVADACODIGO TC%TTC qC C( U XEMPXRETOEMPFT05THISACTIVAACTIVADAGESFORM GENERAR_MENUOEX%CxDesdebL;T%CxHastabLkTF%Cthis.Filtro_DesdebLCthis.Filtro_HastabL T'%Cthis.Filtro_DesdebLT'%Cthis.Filtro_HastabL?T"%C xDir_SistemabCuT %CT\TC CollectionT C Collection Qempresas ( $F HG((codigo( V ~C %Cscdds8C Cargando: CC Z -  . %C scdd.colorbN T eC          eC          F Q+CCarga de empresas completa.U XDIR_SISTEMAXDESDEXHASTATHIS FILTRO_DESDE FILTRO_HASTA DIR_SISTEMAP_SYSTEMCOLECCION_EXTRA COLECCIONSCDDOEXCODIGOXOBJOOOXCOLOREMPRESA_HABILITADA_PARA_USUARIOMENSAJEDESCRCOLOR COLL_AGREGARABREVMENUDPDOSP_DOSDPUNODPDOSCENCOLL_AGREGAR_EXTRA' WCCEmpresa-  NC  ( UXCODIGOXABREVXDESCRXMENUXDOSXDPUNOXDPDOS XDPDOSCENXCOLOROEXTHIS COLECCIONADD DIR_SISTEMA CREAR_CLAVE' WCCEmpresa-  NC  ( UXCODIGOXABREVXDESCRXMENUXDOSXDPUNOXDPDOS XDPDOSCENXCOLOROEXTHISCOLECCION_EXTRAADD DIR_SISTEMA CREAR_CLAVE: %C(3UXTEXTTHISPADREMENSAJEOEXv  %CoEmpbOh VTCC(d%CoEmpbOB-%BaT % % 8%  T  U!%   Q T  C BUOEMPXEMPXPRESOEXIFTHIS COLECCION CREAR_CLAVEOEXP_MENU_EMPRESAS_VALIDARPRESENTEP_CODEMPCODIGOP_DOSP_OLDDOS PRESENCIA3,CUOEMPTHIS COLECCIONVALIDAR_PRESENCIABKEY_CZUXEMPM /TCC(= BUOEMPTHIS COLECCION CREAR_CLAVEACTIVAOEX UXEMP*C- CUTHISINIT DIR_SISTEMAPADRE RECARGADOU2TC BUXEMPOEMPTHIS GET_PORCODIGODESCRM /TCC(= BUOEMPTHIS COLECCION CREAR_CLAVEACTIVAOEXC%%TaB < BCUP_MENU_EMPRESAS_VALIDARTHISPRESENTEVALIDAR_PRESENCIAU ,T(E T- BUXRETTHISPADREACTIVACODIGOOEX!%C this.TablasbLoNTCTablas_Empresasys_clases_tablas.prg BUTHISTABLAS DIR_SISTEMA DIR_TABLASz#%C this.UsuariosbLgDTCUsuariossys_clases_usuarios.prg BUTHISUSUARIOS DIR_SISTEMA:3   %CxMenubN[ TT T T T CT CT T T T  T  T C  % 3 U XNO_INICIARXSISTEMAXEMPXABREVXDESCRXPADREXMENUXDOSXDPUNOXDPDOS XDPDOSCENXCOLORTHIS DIR_SISTEMAPADRECODIGOABREVDESCRMENUDOSDPUNODPDOSDPDOSCENCOLOR CARGAR_DATOS%%Cthis.Dir_TablasbLq [,Tdata\CCZ\(m BUTHIS DIR_TABLAS DIR_SISTEMACODIGOOEX U XDIR_SISTEMA: %C(3UXTEXTTHISPADREMENSAJEOEXI%Ba BBC clientes.dbf0UP_MENU_EMPRESAS_VALIDARTHIS DIR_TABLAS U XHABILITADAf%% Ta _ MC([U XPRESENCIAP_MENU_EMPRESAS_VALIDARTHISPADRE PRESENCIAOEX%Z =TC(V T- o T- BUXRETTHISPRESENTEPADREACTIVARCODIGOOEX U XACTIVADAT%ABa |"TCC Ta( T- BU XUSROUSROUSRCTHISUSUARIOS COLECCIONCOUNT CREAR_CLAVEXRETOEX CH* 7s"Empresas NALT+o1 &sc Configurac"Empresas1c ConfiguracU XMNU_NAMEOEMPSMENU_EMPRESAS_POPUPP_MENU_EMPRESAS_DONDE MNU_EMPRESAS MANTENIMIENTOMNU_EMPRESAS_ADDs N$%C 'Cmnu_Empresas_addUOEMPSMNU_EMPRESAS_ADDOEMP COLECCIONPRESENTEMENUBAR_EMPRESA_AGREGARACTIVAS  T%XT Style 'BI' INVERTDDEFINE BAR oemp.codigo OF (xmnu_name) PROMPT oemp.DESCR &xestilo TTON SELECTION BAR CCZ OF  ft05(CCZ)&xid %(G:(a LG:(-U XMNU_NAMEOEMPXACTXIDXESTILOACTIVACODIGO 4>%C.usr_habbUC .usr_n_habbU PBa Ta %CC.usr_habΡ ^ Ta 9TCinlist(pub_index,CC.usr_habΛ) T-%P;%Cinlist(pub_index,CC.usr_habΛ)7 L T- Z h"%CC .usr_n_habΡ j Ta ;TCinlist(pub_index,CC .usr_n_habΛ)  T-%\=%Cinlist(pub_index,CC .usr_n_habΛ)N T- X f tB U XHABILITADAXALIASXHABOOOOP_DEVcargar_datos_entorno0 get_porcodigoEempresa_vacia_accessempresa_uno_accessempresa_dos_accesstEmpresa_Puntual puede_consolidar_accessget_datos_empresa_simpleget_consolidar_collectionget_consolidar.presentes_access INIT  activa_access  activa_assing activada activarM cargar_datosB coll_agregarcoll_agregar_extramensajevalidar_presencia@validar_presenciasL crear_claveempresa_activa_access presenciabrecargarz recargado empresa_descrempresa_activa_accessDpresente_access activa_accessQ tablas_accessusuarios_accessINIT&dir_tablas_access5  cargar_datos mensaje !validar_presenciaq! habilitacion! presencia "activar"activadav#usuario_habilitado# menu_empresas$menu_empresas_popup%bar_empresa_agregar&empresa_habilitada_para_usuario`( T- T- T T- T- T- T T- T- T - T - T - T -                        U COLECCIONCOLECCION_EXTRA DIR_SISTEMAPADRE FILTRO_DESDE FILTRO_HASTAACTIVAEMPRESA_ACTIVA PRESENTESPUEDE_CONSOLIDAR EMPRESA_UNO EMPRESA_DOS EMPRESA_VACIAr T- T- T- T T T T- T- T- T - T - T a T - T  T-TT T T   ! " # $ % & ' ( ) * +U DIR_SISTEMA DIR_TABLASTABLASCODIGODESCRABREVVALIDADAPADREUSUARIOS SELECCIONADAPRESENTE HABILITADAACTIVAMENUDOSDPUNODPDOSDPDOSCENCOLORempresasCUSTOM/empresaCUSTOM11qaAq"AbQ5q22qA3qA2qqA33rAqAqAB2xA1A1Q1QbA2qqqA1AAAqAA1Q!QAQ!QA1Q!QA1Q!QAA31A!AAA2"AA2qaAA2q2qAqA3q!1AA2AAb1AqAqA!AQAAAAqAqAQAQBqA2qqqA2qqqA4qAA2AAqA1qAaQAAaAAA2qAA2q12qA3q222qqQ2qAp11AA2qA3A21AA31A!!aA2QAAA2q3qAA21qA2q2q1AAA2q!AA2q2qqqA!A61rA1bA3q!qAAqAA3!ABB!A4sAqAABB#ABBB1P701@/r'+.H8%oA.@L0PD ' kWC ">9^=] J(c R \!J#c-u##2#$5L$$<$$>%Y%A{%y%B%%G"&&O((V()^G))c **h*,{ ---.5...&/ K/d//20R01"!181/b1j2224E45U67`8>t/&7&v2%| J i xy 94xUT"%C xDir_SistemabCUT %C xDir_LocalbCTTC Collection%  U XNO_INICIAR XDIR_SISTEMA XDIR_LOCALXPADRETHISPADRE DIR_SISTEMA DIR_LOCAL COLECCION CARGAR_DATOS3%CxDesdebL?T%CxHastabLoTF%Cthis.Filtro_DesdebLCthis.Filtro_HastabL T'%Cthis.Filtro_DesdebLT'%Cthis.Filtro_HastabLCT"%C xDir_SistemabCyT %C xDir_LocalbCTT C Collection%C TMPUSREMP  QEMPUser   sys_security R$C--C]SCDD (dF  G((a3(HZ@ CTHIS.Padre.CLASSbOCfEMPRESA 6Oo TMPUSREMPQXSCDD SCDD2 2ZoSCDDǼSCDD2~C8C Cargando: CCZ - .%CFQFQF Q+CCarga de Usuarios completa.U XDIR_SISTEMA XDIR_LOCALXDESDEXHASTATHIS FILTRO_DESDE FILTRO_HASTA DIR_SISTEMA DIR_LOCAL COLECCION TMPUSREMPCREATE_OBJECT_SECURITY SYS_SECURITY OSECURITY SEC_TABLE_GETOEXSCDDA3PADRECLASSEUFA4USUARIOCODIGOEMPRESASCDD2XOBJMENSAJE COLL_AGREGARA2A5},TCUsuario-N hCC( vU XCODIGOXNOMBRE XPERMISOSXCLAVEOUSRTHIS COLECCIONADD CREAR_CLAVEOEX: %C(3UXTEXTTHISPADREMENSAJEOEXBKEY_CZUXUSRtTTT CT CT CU XNO_INICIARXCODIGOXNOMBRE XPERMISOSXCLAVEXPADRETHISPADRECODIGONOMBREPERMISOSCLAVE: %C(3UXTEXTTHISPADREMENSAJEOEXINIT, Cargar_Datosl Coll_AgregarMensaje crear_clave INIT4Mensaje { T- T T T- T- T-     U COLECCION DIR_SISTEMA DIR_LOCALPADRE FILTRO_DESDE FILTRO_HASTAV T T T T T-  UCODIGONOMBREPERMISOSCLAVEPADREUsuariosCUSTOM UsuarioCUSTOM :1"AAA21AAb1AqAqA!AAAqAAAqAAqQAqAqAqA21A2qAA2q1:!!!2qAA247 F YM aS" O hV t] 1 |c/Y p ; n%s*1,IUTUH&BCUXTABLAXORDENXSELEXALIASXPATHXREOPEN XREVORDER CHK_OPENEDs#%CxtablabLFB-%CxordenbLs T%CxselebL T%CxaliasbL T%CxpathbL T%#T descending DT ascending$%CR\ ~T\ T  T  T %CtSELECT &xtabla %C    Ta%CW " Ta%C   P Ta%  pB  T-% %T   order  % T   alias %+T  Exclusive %L FQ%T CCZT   in   F%  T   T 8%C.dbf0 C \.dbf0 )T \USE (xpath+xtabla) &xxvars %h FBU XTABLAXORDENXSELEXALIASXPATHXREOPEN XREVORDER XEXCLUSIVE XORDERDIRXXORDENXXSELEXXVARSP_COMMON|QSTRINGTCC%DBa%Cn FQBaB-UXALIAS CHK_VALUE"QSTRINGBCUXALIAS CHK_CLOSEDQTC.*CCBaUXPATHXALIASXPATTERN CHK_VALUE CHK_CLOSED4QSTRINGQSTRINGH0 VSTFC rvTRE R%C XTAJ TRC cTNC dTND L4TAS AWTAJ IzTIT PTPD 2TXX BUXCAUSAXCOMPROBXC4%1 B%CxLimitebL_ THt) CxAsignarbL TeBA) CxAsignarbL TBA BUXVALORXLIMITEXASIGNARL4QINTEGERQSTRINGQSTRINGQBOOLEANQBOOLEAN TC$%Ccosxcue.actionbN2ocosxcueQ    'ocosxcueQ   T % F T C TCTCG((CodigoG( E TC4SET ORDER TO &xCosOrd SET FILTER TO &xCosFil C%%  $TC   T-< U XCOSXCUECANTXCOD_CUEXCOD_CENXCOSVLD XCOSXCUEVLDXALIASCENTROCOD_CENCOSXCUECOD_CUEACTIONXCOSXCUECOSTOSXCOSORDXCOSFILXRECNOGUARDAR_REGISTROCODIGO IR_A_REGISTRO.4QBOOLEANQSTRINGQSTRINGTCSTCNTC-L% B  BUVALORVALSIVALNO CHK_VALUE%CxTipobC %C xDefaValuebLcTC xDefaValueb %CxNombrebLTC TCxNombreb ,%C xDefaValuebL L H  C, T LK T- Nl T O T-%CxNombreb B  BUXNOMBRE XDEFAVALUEXTIPO*uQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQBOOLEANQBOOLEANTCBorrarTCLin_CodTCLin_DesTCGru_CodTCGru_DesTCCod_InsF G((CodigoF G((CodigoF G((codinsG-( G-( SELECT &xalias )SET RELATION TO &xBie_Cod INTO bienes T T% NO_CAMBIAR#%T with lineas.codigo T, % NO_CAMBIAR[TB with IIF(lineas.codigo#bienes.linea,'Desconocida', lineas.Descr) T, % NO_CAMBIAR -T with Grupos.codigo T, % NO_CAMBIARZTA with IIF(Grupos.codigo#bienes.grupo,'Desconocido',Grupos.Descr) %T AllREPLACE &tRepla  T T$% NO_CAMBIAR ePT with IIF(ALLTRIM()='','Desconocido',) T,$% NO_CAMBIAR PT with IIF(ALLTRIM()='','Desconocido',) %T AllREPLACE &tRepla BaUXALIASXLIN_CODXLIN_DESXGRU_CODXGRU_DESXBIE_CODXLIN_UKNXGRU_UKN CHK_VALUELINEASCODIGOGRUPOSBIENESCODINSLINEAGRUPOTREPLATSEPARAOIQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGTCBorrarTC NO_CAMBIARTC NO_CAMBIARTC NO_CAMBIARTC NO_CAMBIARFG((CodigoG-(G(FG((CodigoG-(G(F G((codinsG-(G(SELECT &xalias G-( G-( G-( F#)+C+ A T TTC % NO_CAMBIAR)&T with xDescr T, % NO_CAMBIAR/T with Atributos.descr T, % SH'%   DT C% NO_CAMBIAR@/T with Atributos.descr T, % S'%   T C% NO_CAMBIAR,T with bultos.descr T, TCREPLACE &tRepla IN borrar FHBaUXALIAS XFULL_DESXBIE_DESXBUL_DESXATR_DES CHK_VALUEBULTOSCODIGOATRIBUTOBIENESCODINSCOD_INSBULATRBORRARTREPLATSEPARAXDESCRDESCR ATRIBUTOSCLAVE QOBJECTQBOOLEAN"%C oOptionGroupbOFBTC LTU OOPTIONGROUPXESTADO CHK_VALUEENABLEDOBUTTBUTTONSNQDATE5TC%T BUXDATEXDAYXMONTHXYEARQDATE5TC%TCHTCiTTC BUXDATEXDAYXMONTHXYEAR DT_CORREGIR)-QDATEQINTEGERQINTEGER5TCNTC%TCHTCiH T T TTC BUXDATEXSUMARXUNIDADXDAYXMONTHXYEAR CHK_VALUE DT_CORREGIR0QINTEGERQINTEGERQINTEGER% UTCC$iHj  BC   BC BC$UXYEARXMONTHXDAY DT_CORREGIR!B\tmp\CC]RUP_LOCALLQSTRING"TTCCC]R\B\tmp\UXALIASP_LOCALe4TCxdatobH3Z CR BC N%C8BCC Z BCC Z D BCC* TBCCꁛ L/%BC VerdaderoFalso6 2Z!BTipo de dato desconocidoBUXDATOXTIPO4 TC.%#(C>%CR0TCC>[ !%CR.0TCC>[ BU XNUMERO_TXTXIDXZ%4BError   J( T T <$T C <$T C T  s T  m T  h T  D TC TCT T (]%>TCC 8TCC GT %: T%Y!(%T CCC Z T  T T &%C 0 T C C +(C6>TCCC >06C  T :T C T    B U XDURACIONXUNIDAD XLIMITE_BAJO XLIMITE_ALTOXSEGXREMXCANNIT XTEXTOHORA XTEXTOFINALXARRXSEPARA XTEXTOUNIDAD'$BCC+CCCO66U4 %  0 # %p#)%C l H #6%C+ HBU XREGISTRO 4T9 T-(d% 1aaa=1 T G(ON ERROR &onerr %!%C Ta! G( BUXRESXALIASZ OLDSESSIONAAA ACTIVEFORM DATASESSIONID TTC+ Hg. C> TC T  TTC C> .TC\TC\% wT TTC BUXARRAYXSTRING XSEPARADORXCELEMXPOSXSTRXCAT check_opened, chk_opened chk_closed check_closedH chk_deleted Ventas_CausaCR_ValidaFechacos_cosxcueVLD Param_SiNo chk_value bie_fill_linea_grupobie_fill_bultos_atributos~frm_OptEnableddt_mes_primer_dia]dt_mes_ultimo_diadt_suma dt_CorregirNewFile_Local_TMP  NewFile_alias; to_stringlimpiar_decimales!dt_Duracion_a_texto)"guardar_registror& ir_a_registro& alias_en_usoY'split_to_array(1b21qAAAAAqAA!A!AAAAAARQARAAAA2AAA!A1AB21qAAqAq22q3AAAQAAAAAAAA2AA11A3B$tAqaBRAAq3aaqA2aAABAAAAAAA3Qqqq#QAAAA1Q1AAAAA1Q1Aq3raaraaraa"AAtQ!aAArqAAAqqABArAAr7!AABB4Q22111A22!A11A53!a3qqAAA11AAAAQAA2q122AAAAB322A2AA!1rAB1AAAQAbAQBR3D3wAQAQAAAAA3"112AAAAAA21!Q1QaAB1A!A1"Q]]q i`  nfC v' b 4?L+ 8#?I0#0$R=$$X$%a%C'rN'(~(()))++--2 33W35^537xN79%6^YU4% $ ges C%Ccuentas nQdescr%Cproveedo Qproveedocodpro%Cven_oper Qven_operven_ope%Cccprov Qccprov%Cclientes QQclientescodcli%Ccom_oper Qcom_operoper%Ccostos Qcostoscodigo%Cidx04 "Q\idx04idx04%Cccclie .Qccclie%Ccheques iQchequesche_ven%Cimportac Qimportac%Cejercon Qejercon%Cchqanu Q\chqanu%Cchepro 7Q\chepro%Ccesion eQcesion%Cunidades Qunidades%Cbancos Q\bancos%Cchp Qchp%Cchq Qchq co_funciones C ! Ta% %C" | T-BaU#XAUTXNO_ABRIR_EJERCICIOXOK_EJGESABRIR_TABLAS_FIJAS_CUENTASDESCRPROVEEDOCODPROVEN_OPERVEN_OPECCPROVCLIENTESCODCLICOM_OPEROPERCOSTOSCODIGOP_COMMONIDX04CCCLIECHEQUESCHE_VENIMPORTACEJERCONCESIONUNIDADESP_SYSTEMCHPCHQCO_FUNC_INICIALIZAR CO_FUNCIONES OSECURITY SEC_TABLE_GETABRIR_EJERCICIO_SP%Clocales # C T\C\%CDIARIOGmF F T- Qdiariog Ta % (CNo hay ejercios activos !!!B-%CCONCEPTO-F ?FQconcepto%CDIAG2zF FQDIAG2 %CCONC2F FQCONC2 BaU ABRIR_TABLAS_FIJASXEJPATHP_SERVERLOCALESCO_011DIARIOGXOK_EJMENSAJECONCEPTODIAG2CONC24,%C\C \diariog.dbf0g%CP B c B %C B  BUXDIRP_SERVER POSICIONARSE4FI-C C C   %C4.C"El rango de fechas es invlido !!!x B -CC%C4 B  BUXDIRXDESDEXHASTAEJERCONDESDEHASTADIR>>>CX >- >- >N >- >- >- > a> CX > -> > >CXBUCO_001CO_002CO_003CO_004CO_005CO_006CO_007CO_008CO_009CO_010CO_011CO_012EJ_001EJ_002EJ_003.4F-CCBC4UXDIREJERCONDIR4 ges T 1aaa=1\Con error &onerr %\%'\C \contabilidadgh1\C \diariog.dbfNNC C C  D C C N C<NCC NN CDCNCLNCN N N N N!N"N#N$N%C&N 'N (NQh1\C \concepto.dbf N )CA&N 'N *N +NQ XSh1\C \diariog.dbfNNC C C  D C C N C<NCC NN CDCNCLNCN N N N N!N"N#N$N%C&N 'N Qeh1\C \concepto.dbf N )CA&N 'N Q,%C\C \diariog.dbf0Ba B-U,XDIRGESAAAP_SERVERP_TTSDEBITOCREDITOCOD_CUEPOR_QUECOMPROBFECHACODIGONOMBREASIENTO COMENTARIOATRIBUTOCOD_CENREMITOCTRLANULADOPROCLIHOYTIPOPASECAUBANDERAUSRARCH SUBCENTROASI_MANUMEROSUBNUMCAMBIOMONEDAMOTIVOMONEXTMONPASESUBDIMPORTAC IMPORTACIOAUX1NCONCEPTOUNTIPO2v4FGI#& (\tmp\brr_cr_ejGI #6T>BUXDIREJERCONIDP_LOCALMIDDIR open_files0abrir_ejercicio_sp' directoriovld_ejf inicializar posicionarse crear_directorio< crear_ejerconH1QAAAA!AAAAr!A!AAAA1AAA!AAAARARAsABr2ArqAAqAqAbqAqbqAqr3qAABAA3qRAA21111D2qrQ2qR22rpq&B*B`1%BXBBBqqA2qra1aRQrA1Jq mr ?X^o%#'{$dYUl 4%Cusuarios AQ \usuarios T-"G+(listados co_funciones T T T T  T  T + listados   (T \cpbt\ -logo.jpg T TCC datasessionvFG((asiento ET%CT%T%T Ta%Y T aF!G((asiento E  T -F"- % F! ^J%C+T F" ^JT#T$T%F&G((codigo E%C4[ T() }T( Desconocido%PT*( CP C ) +%C?T*( OP CCC+C-+\, ) ' T*FG((asiento E% T aF!G((asiento E  T -F"- F,- % F!  F"G((asi_ver ./ T.aT/#+C+  .  T.-% F! ^JF ^J0 %"!F" ^JF, ^J0%T%1%/UT/1 %/1  T/% F! F"%C+ H%/ T/FG((asiento E%[ T aF!G((asiento E  T -F"- F,- % F! F"G((asi_ver. T.a#+C+  . T T.-% ^F! ^JF ^J0 %"!F" ^JF, ^J0%TG+(listadosT2%(%$Ccd 3P %Ccccomp H Qcccomp&CCC2[gcccompopT2455%$Vcd 3C C6 T26%Ccuentas QcuentasF7G((cuenta E9H2 n  $CY T:FC & $c 3P T:NC & $d 3P T:ND  $V T:FC & $c 3P " T:NC & $d 3P X T:ND  $R T:RC T2C2; $O T:PA  $D T:DE  $X T:EX  $1- T:ND  $2T T:NC 2n T:  T<"= co_funciones0<T>C0?%Cunidades QunidadesF@G((codigo E0A%C provinc_ext G Q \provinc_ext%B FC-DBTECC)f V|%SC7Fg\C7Fp\;SC7Fo\C7Fq\C7F\G   H ;FC-DHTECC)f R TEFI>A0AJ@)KCC#999_ (L*MM0NNOCOA Automtico Manual6PCP2NoSi6Q/11%COAFC: C2C3CP - ['] R6bCC%GCP C%C3CP  - ['] R6 Ninguno66S7S87)TUVWXXYYZ[\]+>0^0^_`aCabccddeef<HHgBhE% (F! 9F"%C+ PH CiBUjXASIXVERSIONP_SYSTEMINICIALLISTADOS CO_FUNCIONES ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUA OSECURITY SEC_TABLE_GETXDGUSRXDGCAUXDGCOMPODGO XAS_ANULADOCONCEPTOASIENTO XVERSION_ACTVERSIONTIPO2 XVER_ACTUALDIARIOGDIAG2USRCAUCOMPROBUSUARIOSCODIGOXQUIENDESCRXCOMP COMENTARIOCONC2ASI_VERXPRIMEROXTMPIMPOCTOIMPORTACXCPBTPROCLICCCOMPFAC_COM2COMP_EXPCUENTASCUENTACOD_CUEXCOMPROB FMT_RECIBO_CXORIGENDG_TIPO_ASIENTOTXXCOMENTCOMENTUNIDADESUN PROVINCIA PROVINC_EXTCOD XPROVINCIAATRIBUTO P_PERIBXPROVAUX1N TMP_ASIENTOUNDESCRQUIENCOMPASI_MAFECHATIPOARCH IMPORTACIONOMBREABREVCENTROCOD_CENSC SUBCENTROLINEAGRUPODEBEDEBITOHABERCREDITOFEC_PROCVERSIONAAS_ANULALEGAL LEGALREALMONEDACAMBIOTRANORIGENPRVDPRVSEC_TABLE_CLEAR 51TCCC  C<=6%PC2TC - [C] C<= BUODGOOCTOTEMP COMENTARIOCONCEPTOPROCLICODIGONOMBREf4%C xhAsientobLC T q% m T T T T T T  T + listados  C Suspendo?a I%Cdiariog Cconcepto Cdiag2 Cconc2 d co_comienzo%C tmp_asientoFQTC tmp_asiento%FHoconceptoC TMP_SEL_Asientos% 3C(Sin asientos en el rango expecificado!!!E0C\tmp\.dbf tmp_asientoB-#+CTMP_SEL_Asientos+ CaH C% GC0C\tmp\.dbf tmp_asiento [ CBUXASIENTO XFORM_PREVIEW XHASIENTO XVERSION_D XVERSION_H ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA DATOS_EMPRESALISTADOSSYS_MOSTRAR_SCREENABRIR_EJERCICIO_SP CO_COMIENZO TMP_ASIENTOXARCHIVOAS_CREAR_TABLA_IMPRIMIRDIARIOGDISTINCTASIENTOCONCEPTOTIPO2TMP_SEL_ASIENTOSAS_TMP_ASIENTO_TABLA_IMPRESIONP_LOCALAS_AGREGAR_ASIENTO_IMPRIMIRAS_INICIAR_IMPRESIONAS_INICIAR_PREVIEW4%C1 TFG((asiento E;%     B-%C4'co_imprimir_asientosBa -% "1CAsiento CCZ no encontrado !!!EB-U XASIENTOXSILENTXVERSION XFUERZAVERCONCEPTOASIENTOVERSIONTIPO2IMPRIMIRCO_IMPRIMIR_ASIENTOS5F%CN.G+(listadosG~(clases%nTasiento_tran.frx T asiento.frx T T TT ASCCZT .t. T ? listados  aaaaaU XASIENTO TMP_ASIENTOLISTADOSCLASES P_SEGTRAN XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOSZCOPIASIMPRIMIR_FORMULARIO%C- FQlistados!h1\tmp\N CCC( N  N  C< D C CN N C2C C<CN NNC<NTNLN N C N!N"N #Cd$N%N&C(QFQ\tmp\ BU'XALIASXARCHIVONEWFILELISTADOSP_LOCALUNUNDESCRQUIENCOMPASIENTOASI_MACONCEPTOFECHATIPOARCH IMPORTACIOIMPORTACCOMPROBABREVCUENTACENTROSCDEBEHABER COMENTARIOVERSIONFEC_PROCVERSIONAAS_ANULALINEAGRUPOLEGALMONEDACAMBIOTRANORIGENAUX1NPRVDPRV< %C* FQ UXTABLAXALIAS(%co_imprimir_asientos_view.scxUCO_IMPRIMIR_ASIENTOS_VIEWSCXimprimir0comentimprimir_asientosAS_Agregar_Asiento_ImprimirAS_INICIAR_IMPRESIONEAS_Crear_TABLA_ImprimirAS_tmp_asiento_Tabla_Impresion"AS_INICIAR_PreviewG#1A"2quAqbAA3qqBqAqArAAAAAwaqqqAqqA1qqaAAqqAaAbAqAAAqqAAAAAAuaqqqAqqAs1qqaAAqqAaA"!AaASA1Arqaaqaaq!qqqqqA#cAArAbq!q!AArQ`*qqAAAAB2q!A5q1AAraAqAAr2q"1qA2A1AAD31AqqAqqAqA3qq!"AqB2qqAArP"C2AA2Q1" 2"4#Q#)E) ,Y5,f.l.2 z2I3Dr33L%18!?:MHRUI1%C comprobantesO  > TBUMAXAPL ACCDIFCBIOXDCI1%C comprobantesO  > TBUMAXAPLACCDIFNCXDC_NCKO     !%Cchqnumero @F>   !5>" # $ %&BU'XDESCRXVENCXPESOSXNUMERO XCLEARINGXPUEBLOXBANCDEP XDIFERIDO XPROVEEDORXENDOSAXSUBNUMXTERCXECHEQUEXCUITXEMISORXBANCHQXNUMCHQXCOD_CLIXDUDOSOCHQDESCRFECHAIMPORTENUMERO DEP_CLEAR DEP_PUEBLO DEP_BANCOTIPO PROVEEDORENDOSASUBNUMCOD_CLIBANCHQNUMCHQTERCECHEQUECUITEMISORDUDOSO# T TFG((reciboG(R E T&+ C+ T H T - T -2T C    62T C    6FG(BUNUMCUEPOSVEN_OPERRECIBOCAUSAXRECIBOXABONAXCOD_CLICOD_CLICAJ_PROOKCHEQUESV_RECADOANT_RECANT_RECO4 T TF ~s%o>T ~%0>C 6TCa#)BUV_XXXADO V_APLICADOXDIFCDUE COMPROBANTESSALDOAPLICADO CLC_DIFCBIO 4 TCW TF~%mT T T %  % !T C  !T C T %% rT  T   TT FBCTUXDIFCBIO XAPLICADOAXIMPORTEAREAXDIFAPL COMPROBANTESSALDOAPLICADOXDCCOEFICXLIGHTCLC_DIFTMPDIFSTTMPDIFS DIFCBIOAPL TDIFCBIOAPB4,BCC 6TUXIMP XAPLICADOXDIFCBIO XPROPORCIONB4,BCC 6TUXIMP XAPLICADOXDIFCBIO XPROPORCION45 TF TCG((numero E TC4% F~CHE%  T!  TF G(( BU CHENUMOKXORDERAXRESVEN_OPERNUMEROPAGOSTIPONUMINT5 TCTCDELEvGG((borrados#)%C+C' h :>C]set dele &olddele G((BUORDENXVACIARREGOLDDELEBORRADOSCHEQUESIDUp6T)des_val=xdes .and. abs(caj_pro)=abs(ximp)%Cchq aQchqFG((numeroFG((numeroFGG((idchequeEC ZG %C4F+C+  if &filtro!%1 2 $CCZC ZchqIdF  >     C 6CCCXXX6  CCc>  !"#$$ FHFGG((idchequeEC ZG +C+  if &filtro$CCZC ZchqIdF  >     C cc6CCCXXX6  CC%c>  !"$$#F%DFG((comprobE% 4+C+ !%   0% 1  F  >     C 6CCCXXX6  CCFHFG((numero FHF&G((cuentaF G-(& ~E#>'&'(C )%CX:%0 % F*G((codcli E F >,*,  F-G((codpro E F >,-, 6F >,AnuladoF G-(FG(FG(BU/FILTROCHQVEN_OPERNUMEROCOM_OPERIDCHEQUEXNUMTIPOCAUSASUBNUMBORRARORIGENFECHACOMPROBDES_VALCAJ_PROMONEXTMONEDAMONPASE MM_MONEDACUENTACAUSA2 FN_CAUSA2FECDEP DIF_VALORDCFN_DCCODIGOCOD_CLITERCECHEQUECUITEMISOR ENDOSABLEENDOSADIFERIDODUDOSOCOD_PROCUENTASDESCRORIDESCRFN_CAUSACLIENTESCODCLINOMBREPROVEEDOCODPROb4H W  R r%[ B n B A%% B  B  % B  B B  I %{%d B w B % B  B  O % B   B D%h%Q B d B % B  B LD%% B  B @%) B < B 2W B BUXORIXCAUXIMPn 4Hc  R MB Recibo  AsB Ajuste   I B Ing.Tes.   O B Pago  DB Depsito  L!B Asiento  dGB N.Dbito 2cB ???????? BUXORIXCAU& 4H  R D B Aa B  I B  O B D B L B d B 2 B BUXORIXCAU4% A ]F- DIF. CAMBIO %C4Y C Suspendo?aF- DIF. CAMBIO %C4  > DIF. CAMBIO Ccd6C   6 DIFERENCIA DE CAMBIO cC   6C   6CSC 66C 6NgmCC$C]a a>!C "DIFERENCIA DE CAMBIO6#$c%&CNCND6'CZ!>()*+,-BU.XIMPORTEXDIFDOC COMPROBANTESCOMPROBSYS_MOSTRAR_SCREENCOD_CLIXCOD_CLICAUSAFECHAP_DIFCBIO_VERSIONXFECHA_NCNDAUTXFECHACOMENTARIMPORTEVENCMOTIVOREFCAUFECREFCUOTACUODES_CLIESUCCLIENTESXSUCSUCFACXSUCFAC XSUCFACNORMALCOEFICHOYIDUAUTDIFDESCRXDESCRSALDOSALDOORIADELANTOTIPOCPBTIDOCXOCTRANXTRANVENDEDOR XVENDEDOR" T TFG((opagoG(O E T&+ C+ T H T - T -2T C    62T C    6FG(BUNUMCUEPOSCOM_OPEROPAGOCAUSAXRECIBOXABONAXCOD_PROCOD_PROCAJ_PROOKCHEQUESV_PAGADOANT_PAGANT_PAGO4%CxregimenbLB T%b B TCW%Cret_prov Qret_provF G((idH   <Coret_prov    tmp_ret_prov T- ~8H]0  Ta! W%C i CCC H6Ci CCCH6 Ta! 20%C iCi, Ta!H*    Ooret_prov      tmp_ret_prov T- ~H XW%C i CCC H6Ci CCCH6T Ta! 2%C iCi Ta!H   Coret_prov    tmp_ret_provTCN ECZC Z T-&+C+     %  Ta!H   T%%pHl  TEl nmero de Retencin CCZ de C Ganancias.C IIBBC IVA666 ya fue utilizado. NG+(listadosqT El nmero CCZ de Retencin de IIBB de C( ya fue utilizado. Modifique el contador  l |TRegistro invlido !!!C *Mensaje: Retencin con nmero 0 en RETPROVC Consulte al soporte tcnico. F BUXTIPOXNUMEROXFECHA XPROVINCIAXREGIMENXAREAXENCXMSGRET_PROVIDP_RET_IVA_TIPOTIPONUMEROFECHA TMP_RET_PROVP_RET_GAN_TIPO PROVINCIAREGIMENLISTADOS TXTPROVINCIA-4H <BEFECTIVO eB TRANSFERENCIA BDEPOSITO BTARJETA BDEBITO BANCARIO b  BDEP/TRF NO IDENTIFICADA 2 B BUXSUBTIPO T T Eoven_operaC C  T% w%C2$TCCC T%  TCCFD .TCCFD s T*TEl comprobante totaliza 0 !!!  T*TNo existe el comprobante !!!!BUXERRXMSGXCOMPROBXCAUSAXDIASARR_TMPSUM DIF_VALORFECHACAJ_PROVEN_OPERCOMPROBCAUSAP_TE_COB_DESPLg''% CO_FUNCIONESCprocv dG+( co_funciones%Cte_anu Qte_anu%Ccuentas Qcuentas%C \rte_anu CC, C$BUXCOMPROBXCAUSAXPROCESOXDETALLEXCUENTAXIMPORTEXMONEDAXMONEXTXFECHA CO_FUNCIONESTE_ANUCUENTASES_CUE_EFE_BAN_VALCOMPROBCAUSAPROCESODETALLECUENTAIMPORTEMONEDAMONEXTFECHAANUMOD  T T T'te_procsT%pccclie  BU XCOMPROBXCAUSAXERRXMSGXDIASDESPLAZAMIENTO_RECIBOTE_PROCSXIDCCCLIEDIASCOMPROBCAUSA%  TCW%Ccuentas VQcuentas%Csucprop Qsucprop T+/?%CCcuentascuentaC CrecefeT +T T+?%CC cuentascuentaC CreccheT T T+ ?%CC cuentascuentaC bCrecothT   }T FBU P_SUC_PROPIAZXAREACUENTASSUCPROP RECMAXEFERECEFEPUNTO RECMAXCHERECCHE RECMAXOTHRECOTHC%8  TCW%Ccuentas VQcuentas%Csucprop Qsucprop T+/?%CCcuentascuentaC CpagefeT +T T+?%CC cuentascuentaC CpagcheT T T+ ?%CC cuentascuentaC bCpagchpT   }T T+ *?%CC cuentascuentaC CpagotrT   &T FBU P_SUC_PROPIAZXAREACUENTASSUCPROP PAGMAXEFEPAGEFEPUNTO PAGMAXCHEPAGCHE PAGMAXCHPPAGCHP PAGMAXOTRPAGOTR ajuste_dif0 ajustedifncchq_reg act_reciboaplicarR clc_difcbioclc_dif/ clc_dif_nc v_numero new_reg_cheQ busca_valoresM fn_dcNfn_causa fn_causa2L nueva_difact_pago !vld_ret" fn_subtipo*desplazamiento_recibo+control_anulaciones.mantenimiento_recibo_diasV0restore_reccue]1restore_pagcuei43AA2AA40rQWAB`1raAA!!raB2qua1AAAaAAAZB3rAAaAAbAAB25252q5rqq1AAAAqP141bQQQARA 1vaRArssdarBCrQ9ABrAABrdaBCrQ9rAtBqQBqAArABrAArr3R1qqqqAqAAAqAararaB21AA11A1AA11A1AA1AA11A1AAA11A1AAAA2!A!!!A!A!A!!AA2AAAAAA2qsAAsrQA@BB2raAA!!raB2qA5AAAr:1A1rAArAAAAA1rAArAAAAA;2aAAAAD1A 1!BAA2q11a1111A2qX!A2AAAB2qraA!A1AB'AB3sRB241A1AAQABAQAAAQAABB341A1AAQAAAQAAAQAAAQAAAB2@: NP g ) 2=J]aqvdg'"Y"86J6H:sA]:;V<K=ka=/DDDE-E SG#STTWW+Z"$RZ[>-[`_PU|_c%JWDU.%C pub_indexbN3 T% |%ClocalespFQFd %ClocalesF F% TCCd& D%Clocales)TCClocales& @ T%C.}TCC.=.%ClocalC000CCZRf,Q\localC000CCZR  # F+CO %Ccons x% WF iF QconsF#)BUXFIJA PUB_INDEXP_TABLAS_FIJASLOCALESXFNAMEP_SERVERP_CODEMPCONS TCW%:FdQFQ %ClocalesgFQ%CconsFQ FBUAREAP_TABLAS_FIJASLOCALESCONScerrar_tablas_fijas q AeqAAqAAra!AAAAq1QAAdaAAqQB2qAAqAAQqAAAB16gpW4%aq)CY\ 4CInicializando... G+(ge01G+(listados%CCq@ atrcan.ges%Cxcod_clibC TCX%C TC ge01 C C BU XORIGENXCOD_CLI MENSAJE_WAITGE01LISTADOSATRCANGESP_CC_CLI_CLIENTE MENSAJE_CLEAR CONTROL_LOCKS4  T-%RTCWFG((comprobE%C4% Ta7C*No se puede aplicar un recibo provisorio.  F BU XCOD_CLIXCO1XCA1AUXOLD_AREAVEN_OPERCOMPROBAPLICMENSAJE4TCccclie TCccvent %C fQ  TCW)TCC+C CO6/5       T-%TC=%Cclientes BQclientes% |CclientescodcliT  F G((testG EG T C \TC\ F%C4@TC / / # T  T T T CO T  T T% % T   %- T   T    T  Ta)+C+ CZ % '> !" TC$#TC$ #%TC$ # T-%%& +TC$# l%&AcdLhT  C$#% TH # % > $A%' #  C(   % Y)+C+ CZ U >!H!%) Vcd % c d_!%C ccvfac!%C.anulada F >* F   !%C ccvfac!%C.anulada~ F >* F  <!%) Vcd 8!%C ccvfac*!%C.anulada& F >* F 4 % >!C //# %C+>%&"+"%$ &VP !%) Vcd !%C ccvfact!%C.anuladap F >* F ~ F%#)  # FBU,XXREFXANULXCCCLIEXCCVENTXREG_CCVXAREAXFECHA XSALDO_LOCAL XSALDO_ORIGENREGXMONEDA XFECHAREFXSALDO_LOCAL_ANU XID_COMPROB XID_CAUSA XID_TOTALXIMPORTE_ORIGEN XPESIFICADA XCLIENTEZP_CCC_PESIFICADAXCLIENTECLIENTESCOD_CLIPAISTESTFECHA P_MULTIMONMONEDAXINIREFCAUCUOADELANTOCANCELFECREFFN_ROUNDIMPORTECOMPROBCAUSA P_MMLIGHTCP_CC_FC_E_SALDO_CANCP_VERSION_CPBT_ANULADOANULADACUOTA6 T TC$0%CCMgCCMg b T- w Ta T^oven_operCQ  1  q1_sal_chqo q1_sal_chqQ ven_operQ    C  ZC ZC ZCZ  1  vo_sal_chq ~NTC.CC vo_sal_chq66F BUXCOD_CLIXDATECLIENTESCOD_CLIATRCANDOCSSALCHNUMEROSUBNUMVEN_OPER DIF_VALORTIPO Q1_SAL_CHQQ1VOCAJ_PROCOEFICFECHAMONEDAMONPASEMONEXTDES_VAL VO_SAL_CHQXMONEDAFN_ROUNDCCCLIE/4CConsultando...C query_2_p%CctacteZFQoccclieXcccnotas   %Xccvent CVcdr  &  CQC6Q C Q CC ҡ QCPZA6CC 6CC  6CZC CZCZC AB6QCXQCXQ QQQCXQQC(XQC ! Q!C CXQ"Q#Q$C'(C1)\tmp\Q)\tmp\C-* BU+XCURSOR MENSAJE_WAITSYS_MCTACTECCCLIE MM_MONEDAMONEDAMON_TXTCOEFICCOEF_TXTCOMPROBCPBTCCCNOTASNOTA TIENENOTACOD_CLICAUSAFECREFFECHAREFCAUCUOCUOTACLAVE TXT_CAUSACTACOLORSALDODESPCANCDESPLDSUCCCVENTPEDIDOOCTIPO_NC AUX_FILTROIDFAC_VENCANCELXCOD_CLIP_LOCAL PROCESAR_2 4H# GTC$ kTC$m TC$f@ 2TCConsultando...%CctacteFQ/occclieCQC  6Q C Q  CPZA6CC 6CC  6CZC CZCZC AB6QCXQCXQ QQQCXQCCcdA  6QQQ C(XQ!Q"C C#$C$zzzzzzzzq1oq1Xcccnotas % % %&-Xccvent C%Vcdr% %).) %CC&'ҡ Q(C)* Q*C)CXQ+Q,1/\tmp\Q/\tmp\ T0%C %1FCa2FEKC6 P C# (0> FEKC6 P C# (0U(/\tmp\_1C6 P C# S/\tmp\_1C-02 BU4XCURSOR XFECHA_DESDE XDESDE_FECHA MENSAJE_WAITCTACTECCCLIE MM_MONEDAMONEDAMON_TXTCOEFICCOEF_TXTCOMPROBCPBTCOD_CLICAUSAFECREFFECHAREFCAUCUOCUOTACLAVE TXT_CAUSACTACOLORSALDODESPCANCMOTIVOIMPORTEPESOS OLDIMPORTEDESPLDSUC AUX_FILTROCANCELXCOD_CLIQ1CCCNOTASNOTA TIENENOTACCVENTPEDIDOOCTIPO_NCIDFAC_VENP_LOCALXSALDO_NO_MOSTRADOXMONEDA PROCESAR_2ALL 42C Procesando...C (1)(2)6octacteCQcdRA12  tmp_ge01_test% [yCEl comprobante CRRCCAAJ66 C est repetido en la cuenta !!!  % F G((idx04F G-( F & (\tmp\G(C Ta T T T TCO T T T TCTsdf ~ T%VTC 6eDETCP(C   C66TD%VC C ZC!Z  T%  T"CO ># >$ #" T- T%a T&  T%- T#T% %'F*%C(C 'ZsucursalIDB>)*+ >,Hhm VT-FC rT-RE R/%C XT-AJ +T-RC%.'>/CC 0 cRT-NC duT-ND LT-AS AT-AJ IT-IT HT-PR PT%Ctccvent AQtccvent*CCC,gtccventtccvord> 21%%Ctccvent.tipo_ncbN> 313%T-C3 PDNCPD6 T4U5ve_control_de_pedidos41718191:1;1<1= >,4 2mT-XX >>-'>?C@C 6C>ACC!@z 99_CB/CCB@z 99_6(%(0  CDS *>ECF CE A >EE%GFHG((codigo E GF !>E[CHJ] E >K_>C  CPL6!CCPL66% %Pi % 3 e > TM TN%c TM TN%% I TMO TN T&M  %I3 TM TNP  TMQP%C&U JC=Debe realizarse un mantenimiento de esta cuenta corriente !!! T&TNM&>PCCMFD%RCAL >S ? >SCCNFD%% TCO T TTO } %@y %c T TT  (TTC cN 6TCTT TUCO #1>SCCCRCAL6FD #UG(T% TVCW CXBUYXSIMPLEXSALDO_NO_MOSTRADO MENSAJE_WAITCOD_CLICOMPROBCAUSAREFCAUCANTIDADCTACTE TMP_GE01_TESTMENSAJEXMONEDAIDX04FECHACLAVEP_LOCALXCURSORINICIALXSALDO XSALDO_TOTAL XMAXCOMPRAPRIMNUMPRIMIMPPRIMDSPPRIMFEC XSEGUNDOS XAUX_FILTROIMPORTEXMONTOMOTIVOFN_ROUNDCUOCUOTAREGXCLAVE AUX_FILTROPRIMEROOLDSUCXCOD_CLIDSUCSUCURSALNOMBRECOLORXCP_MULTIRECIBOSCPBT FMT_RECIBO_CTCCVENTOCTIPO_NCXCOLORDETERMINAR_COLORVE_CONTROL_DE_PEDIDOSSTOCKGERENCIACREDITOVERIFARM_BLOQEST_PICKDV1 TXT_CAUSACANCCANCELCTAMAXCUOCLIENTESTARJETACOMENTARDES_CLIERFCRUBROFACCODIGOABREVSALDOADELANTOCNDDSPVENCDIASFECREFP_EMPDESPTEMPREGISTRO XSALDO_CHQSAL_CHQ MENSAJE_CLEAR4CConsultando...%CctacteDFQoccclieXcccnotas )!Xccvent CVcdr6;6 CQ     CQ !"#$CQ%C$&Q'C##6Q(CC)*ҡ Q+,C(XQ-CXQ.CXQ/ Q0Q1Q2CXQ3Q4C(XQ5C67 Q7C6CXQ8Q9Q:C<C 1=\tmp\Q=\tmp\C-> BU?XCURSOR MENSAJE_WAITCTACTECCCLIECOD_CLICOMPROBCAUSAIMPORTEADELANTOMOTIVOCOMENTARFECHAVENCBULTOSREFCAUCANCELCONDLISTAFECREFCUOTACUODES_CLIECOD_CUESUCAPROBCALIFTIPOFECESTDIASMARCAEST_DESPMAXCUOIDIDUCOEFICMONEDACPBT MM_MONEDAMON_TXTCOEF_TXTCCCNOTASNOTA TIENENOTACOTIZCLAVE TXT_CAUSACTACOLORSALDODESPCANCDESPLDSUCCCVENTPEDIDOOCTIPO_NC AUX_FILTROFAC_VENXCOD_CLIP_LOCAL PROCESAR_1 4H# GTC$ kTC$m TC$f@ 2TCConsultando...%CctacteFQioccclieXcccnotas +#Xccvent CVcdr9>9 C Q     CQ !"#$%&CQ'C&(Q)C%%6Q*CC+,ҡ Q-.C(XQ/CXQ0CXQ1 Q2Q3Q4CXQ5CCCcdA    6Q6Q7C(XQ8C9: Q:C9CXQ;Q<Q=CC?C?zzzzzzzz 1@\tmp\Q@\tmp\ TA%C %BFCaCF#)%C+ -  P H TA3 B#K  P (A6F((@\tmp\_1 S@\tmp\_1C-AC BUDXCURSOR XFECHA_DESDE XDESDE_FECHA MENSAJE_WAITCTACTECCCLIECOD_CLICOMPROBCAUSAIMPORTEADELANTOMOTIVOCOMENTARFECHAVENCBULTOSREFCAUCANCELCONDLISTAFECREFCUOTACUODES_CLIECOD_CUESUCAPROBCALIFTIPOFECESTDIASMARCAEST_DESPMAXCUOIDIDUCOEFICMONEDACPBT MM_MONEDAMON_TXTCOEF_TXTCCCNOTASNOTA TIENENOTACOTIZCLAVE TXT_CAUSACTACOLORSALDODESPCANCPESOSDESPLDSUCCCVENTPEDIDOOCTIPO_NC AUX_FILTROFAC_VENXCOD_CLIP_LOCALXSALDO_NO_MOSTRADOXMONEDA PROCESAR_1k 4C Procesando...F(& C(\tmp\G(C  T a T  T  T  TC ~.%VT C 6eDETCP(C  C66T  T  % %*%CCZsucursalID> >H V TFC% > r.TRE R%C XfTAJ TRC%>CC cTNC dTND LTAS A;TAJ I^TIT HTPR P%Ctccvent Qtccvent*CCC,gtccventtccvord> !%%Ctccvent.tipo_ncbN<>""%TC" PDNCPD6 T#N$ve_control_de_pedidos#&'()*+ ># 2TXX >,'>-C.C 6C>/CC0@z 99_C1/CC1@z 99_6(%0  23S >4C5 C4  >44 >6 _>C CP76!CCP766G(% VT8C9 C:BU;XSIMPLEXSALDO_NO_MOSTRADO MENSAJE_WAITCTACTEFECHACAUSACOMPROBP_LOCALXCURSORCOD_CLIINICIALXSALDO XSALDO_TOTAL XMAXCOMPRA XSEGUNDOSIMPORTEXMONTOXMONEDAMOTIVOFN_ROUNDSUCXCOD_CLIDSUCSUCURSALNOMBRECOLORXCCALIFP_MULTIRECIBOSCPBT FMT_RECIBO_CTCCVENTOCREFTIPO_NCXCOLORDETERMINAR_COLORVE_CONTROL_DE_PEDIDOSSTOCKGERENCIACREDITOVERIFARM_BLOQEST_PICK TXT_CAUSACANCCANCELCTACUOTAMAXCUOCLIENTESTARJETACOMENTARDES_CLIESALDOADELANTO XSALDO_CHQSAL_CHQ MENSAJE_CLEARx45TC,+fTC[TC, BCgUTXTZ@)%Cplanvarc .Qplanvarc%Ccccnotas `Qcccnotas%Cdesp Qdesp%Cdespflet Qdespflet%Cmotivos Qmotivos%Cremxfac Qremxfac TH>5)  VcdPr$#%C  cccliecpbtT  % VcdrFG((ccvfacE  %C4hTTTTTFG((codfle EFG((codigo EF G((plan E %!F G((idE  F# G((idE$C%ZF&G((codage E&T(&) E*T+&)T,-CConsultando....T/ T0 %/rRoventasXcuentas 1VCVXitm_desc 1?1 C1WZQ Q CQXZ1 Q2 Q3 Q4CC165Q7CC85Q9 Q:Q;Q<Q=Q>C1 rC X?6Q@ QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQH1R=QSCQTQTCQUQU1?1 0/Ydetalle T[ aDoventasXcuentas 1VCVXitm_desc 1?1 C1WZQ Q CQXZ1 Q2 Q3 Q4CC165Q7CC85Q9 Q:Q;Q<Q=Q>C1 rC X?6Q@ QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQH1R=QSCQTQTCQUQU\0Ydetalle T[? C]F^G((codinsFZG-(Y^& WW& R`& Yabc Td TeT/ T0 Tf6TghTiCj Tk Tl Tm Tn To Tp Tq Tr Ts Tt Tu Tv Tw Tx Ty Tz T{T|T}T~TCX TTCXTCX T T T TTC X TTC X TTCX T T T T T T T TT T T T T T T T T T T T T T TT<  J( T T T T- T T T T - T-, ve_pedidoCC0, /%/VoremxfacXccvent \Xtccvent Xdesp CQCQCC XQCQCC-NOSI6QCQCQCXQCQCQCQCQCCQ@0 C tmp_remxfac% ~H > SIN DESPACHO =>ARMADO j> NO SE ENTREGA > ENTREGADO 2 >  ~H > SIN DESPACHO )>ARMADO U> PARA RETIRAR ~> ENTREGADO >RETIRO EL CLIENTE >NO SE DESPACHA 2 > oremxfacQQC XQQQQQCXQQQQQCQ- tmp_remxfac%Ccccnotas QcccnotasTCF% VrG((causaE? % rG((remito E\FG((codigo EFG((despacho ETC]h1\tmp\N YCaCbCHCNC CN NCN NDQ\tmp\.C!Vis_ven3 llamada 1 - Comprobantesvis_ven3%C q_reservasYQFZQ -C Problemas con el comprobante !!!  #FG((tccvordEC %C4"T"TT T T-%Cpr_otros XQpr_otrosFG((codfle EFG((codigo EF G((plan E %!F G((idECC  ZPF# G((idE$C%ZF&G((codage E&T(&) E*T+&)T,-CConsultando....TC FotventasXpr_otros CZCWZCZCZXcuentas VCVXitm_desc C ZPCWZQ Q CQXZQ2>Q3 Q4CC65Q7Q;<Q= Q9C XQ@CA QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQHR=QSCQTQTCQUQU$ Ydetalle ~>B<#)%;%CqTQyocompromcabWCQ"cabWq& cabCWZ"FZ ~7"CYabCWZqidFZ>2 T C]F^G((codinsFZG-(Y^& WW& R`& YabcTd%C pd_demoras Q \pd_demorasTeT/ T0 Tf6Tgh Ti- Tk Tl Tm Tn To Tp Tq Tr Ts Tt Tu Tv Tw Tx Ty Tz T{T|T}T~TCX TTCXTCX T T T TTC X TTC X TTCX T T T T T T T TT T T T T T T T T T T T T T TT<  J( T T T T- T T T T - T-, ve_pedidoCC0, /%/P!oremxfacXccvent \Xtccvent Xdesp CQCQCC XQCQCC-NOSI6QCQCQCCSI!CC--NO66QCQCQCQCQCCQCC ,g tmp_remxfac TTC]h1\tmp\N YCaCbCHCNC CN NCN NDQ\tmp\(CVis_ven3 llamada 2 - Pedidovis_ven3%C q_reservas"Q%Ccliaux "QcliauxFZQ #-C Problemas con el comprobante !!!  RA(CConsultando....%Ccccob #QcccobFG((comprobE  oven_operXchq CZCZCZCZcuentasCFCH6&hCSINO6QQ<Q=CC 6QCC 6QCSINO6QGCV'$     detcobFK(HTC,CCC TD C T66#)T C]F&G((codage E&T&)TCC]RT TMPAPCPBTTCC ,g%te_cob_reimpresion0te_cob_reimpresion R>CCDF<CCDF<F)K(<HTC,CCC TD C T66HTC,CCC TD C T66#)Fvis_cobFQ  L5)T CC ,g% 1) T CWG+( co_funciones%Ccuentas (Qcuentas T  T T$%C   (C B'co_imprimir_asientos a F BUPLANVARCCCCNOTASDESPDESPFLETMOTIVOSREMXFAC XXCOD_CLIXCOD_CLICTACTECAUSACOMPROB XCOMENTARIOCCCLIECOMENTARCCVENTCCVFACXDTDTXDTMXASIDIAASIDIA XPEDIDO_GE01PEDIDOXFCDEREFCDEREFLETESCODFLECOD_FLERUBROFACCODIGORFCCONDCOBRPLANVARIABLEIDSUCURSALCOD_CLISUCAGENTECODAGE XVENDEDORNOMBREDISTRIBXDISTRIBXCOMPLCOMPL MENSAJE_WAITXXCAUSA XXCOMPROBVENTASPCKSAL_ENTSTK MM_MONEDAMONEDAMONTXTCOSMONCOSTOMON FACTURADOFECHAEDESPLDESPL2RECEP2FAC_VENFACTURAPRODFENTCUENTASATRIBUTOUPDABREVCUENTADESCRDCUENTAXCENXLINEALINEACUELINXGRUPOGRUPOCUEGRUITM_DESCDESC_INS ITM_DESCROLDITEM PORCENTAJECOD_CUEITMITEMCOD_INSDETALLEXFACREMREM_VEN MENSAJE_CLEARBIENESCODINSDESATRBULCODXMOTDEMXXNOTASXXMONEDAXXCOEFICCOEFIC XXPENDIENTECANCEL XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAIL XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORD XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2XCAR_TAR XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREF ZARR_TEXTOS XMAXTEXTOS XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROSXREFTIPO XREFESTADOSINSTK XSIN_APLICAR TRAER_CLI VE_PEDIDOTCCVENTFEC_VEN FECHA_PEDREMITO FECHA_REMNO_FCDESPACHOFECHA FECHA_DESESTADODENTHENTCESTADODESTADO TMP_REMXFACP_VE_DSP_VERSIONXHISTORIAL_DE_LOS_PEDIDOSHISTORIAL_PEDIDOSMOTIVOXFILE_RESERVASP_LOCALTV_ITMCANT_SALRS_COMRS_CAURS_ITMRS_CANTIPOIMPCANFEC Q_RESERVASSYS_MVIS_VEN3MENSAJETCCVORDFN_VALXIDDTMPR_OTROSXPDTVENTAS RECEPCIONENTREGAPEDITM P_PICKINGQCOMPROMMOTDEMP_SYSTEMNOTASCLIAUXCCCOBVEN_OPERDES_VAL DIF_VALORNUMEROSUBNUMCAJ_PROCHQTERCREFDIASDIASACCECHEQUEUSRDETCOBXDIASXACCP_TE_COB_DESPLXFECHA XCOBRADORXAPCPBT XAPCPBTALIASNCPBTCREAR_TMP_RECIBOTE_COB_REIMPRESIONLLENAR_TMP_COMPROBANTES TMPAPCPBTVENCPLAZOALLAPLICADO XAPLICADOACC XAPLICADOSUM XAPLICADOACCPXDIAS_DESPLAZAMIENTO XDIAS_PLAZOVIS_COBXASIENTOAREA CO_FUNCIONESXERRXERRMSGBUSCAR_ASIENTOIMPRIMIR_ASIENTOCO_IMPRIMIR_ASIENTOS%CCLIENTES 8Qclientesnomcli%CCONDCOBR rQcondcobrplan%CBIENES Qbienesdescins%CTVENTAS Qtventaspedido%CTCCVENT Qtccventtccvord%CAGENTE XQagentecodage%CCCVENT Qccventccvord%CCUENTAS Qcuentascuenta%CCCCLIE Qccclie%CTR04 *Qtr04tr04%CSUCURSAL bQsucursalid%CSTOCK Qstockcodigo%CVENTAS Qventasven_ord%CFLETES Qfletescodfle%CDEPOSITO ;Qdeposito%CBULTOS iQbultos%CATRIBUTO Qatributo%CSTKXDEP Qstkxdep%CDESPACHO Qdespacho%CIDX04 :"Q\idx04idx04%CCATCLI hQcatcli%CPROVINC Q"\provinc%CPAISES Q"\paises%CCOM_OPER Qcom_operoper%CVEN_OPER MQven_operven_ope%CRUBROFAC Qrubrofac%CPlanVArc Qplanvarc%CDesp Qdesp%Ccccnotas Qcccnotas%CDespFlet ?Qdespflet%Cmotivos oQmotivos%Ccliotros Qcliotros%Cremxfac QremxfacU/CLIENTESNOMCLICONDCOBRPLANBIENESDESCINSTVENTASPEDIDOTCCVENTTCCVORDAGENTECODAGECCVENTCCVORDCUENTASCUENTACCCLIETR04SUCURSALIDSTOCKCODIGOVENTASVEN_ORDFLETESCODFLEDEPOSITOBULTOSATRIBUTOSTKXDEPDESPACHOP_COMMONIDX04CATCLIP_SYSTEMCOM_OPEROPERVEN_OPERVEN_OPERUBROFACPLANVARCDESPCCCNOTASDESPFLETMOTIVOSCLIOTROSREMXFAC% T CH7% VcdPr ! T TRCCP&CCC,g 9999,999,999_6cccliecpbtT %VcdrDF %r G((remito E T - [G((ccvfac ET  %C4 TC  TC  %  T T T T T T FG((codfle E FG((codigo E F G((plan E !% "F# G((id EF% G((idE C &ZF'Ecodcli F)G((codage E )T+), E -T.),T/ 0%CxCod_ClibCT CConsultando...1 T2 T3%2rAoventasXcuentas 4VCVXitm_desc 44C4WZQXQCQYZ4 Q5 Q6 Q7CC498Q:CC;8Q<Q=Q>Q?C4rC X6Q@ QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQH4R=QSCQTQTCQUQU432ZWdetalle T\ g6oventasXcuentas 4VCVXitm_desc 44C4WZQXQCQYZ4 Q5 Q6 Q7CC498Q:CC;8Q<Q=Q>Q?C4rC X6Q@ QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQH4R=QSCQTQTCQUQU3ZWdetalle T\ C]F^G((codinsF[G-(Z^& WW& R`& Zabc Td Te T2 T3Tf 9Tg hTiCj Tk Tl Tm Tn To Tp Tq Tr Ts Tt Tu Tv Tw Tx Ty Tz T{T|T}T~TCX TTCXTCX T T T TTC X TTC X TTCX T T T T T T T TT T T T T T T T T T T T T T TT<  J( T T T T- T T T T - T-, ve_pedidoCC3, 2%2VoremxfacXccvent Xtccvent Xdesp CQCQC C XQ C QCC -NOSI6QCQCQCCSI!CC--NO66QCQCQC QCQC CQ@3 tmp_remxfac oremxfacQQC XQ QQQQCXQQQQQCQ- tmp_remxfacF%Vr,G((causaE  %r(G((remito E FG((codigo E FG((despacho ETC]h1\tmp\N ZCaCbCHCNC CN NCN NDQ\tmp\.C!Vis_ven3 llamada 3 - Comprobantesvis_ven3%C q_reservasQF[Q @-C Problemas con el comprobante !!!  FG((tccvordEC%C4 T$TC TC TT T - T%Cpr_otros #Qpr_otrosFG((codfle EFG((codigo EF G((plan E!% "F# G((idECC ZPF% G((idEC&ZF'EcodcliF)G((codage E)T+), E-T.),T/0%CxCod_ClibCTCConsultando...1TCFotventasXpr_otros CZCWZCZCZXcuentas VCVXitm_desc C ZPCWZQXQCQYZCC98Q: Q5Q6 Q7Q=>Q? Q<C XQ@CA QAQBCDQD-QECCFC XQGCCHC(XQIQJCCKQKCCLQMCCNQNCCOQPCCQHR=QSCQTQTCQUQU Zdetalle%-%CqFQyocompromcabWCQ$cabWq& cabCWZ$F[ ~)"CZabCWZqidF[>5 T C]F^G((codinsF[G-(Z^& WW& R`& ZabcTdCcccliecpbt%C pd_demoras Q \pd_demorasTe T2 T3Tf9Tgh Ti- Tk Tl Tm Tn To Tp Tq Tr Ts Tt Tu Tv Tw Tx Ty Tz T{T|T}T~TCX TTCXTCX T T T TTC X TTC X TTCX T T T T T T T TT T T T T T T T T T T T T T TT<  J( T T T T- T T T T - T-, ve_pedidoCC3, 2%2P!oremxfacXccvent Xtccvent Xdesp CQCQC C XQ C QCC -NOSI6QCQCQCCSI!CC--NO66QCQCQC QCQC CQCC3,g tmp_remxfacTC]h1\tmp\N ZCaCbCHCNC CN NCN NDQ\tmp\)CVis_ven3 llamada 4 - Pedidosvis_ven3%C q_reservas QF[Q  -C Problemas con el comprobante !!! T T RA%%Cctacte !5TCcustomCcomprobCcausaCConsultando...1%Ccccob !QcccobFG((comprob Eoven_operXchq CZCZCZCZcuentasCFCH9)hCSINO6QCSINO6QCC 6QCC 6QGCV'XX detcobFK(HTC,CCC TD C T66#)TTCC]RT TMPAPCPBTTCCX,g%te_cob_reimpresion0te_cob_reimpresionD>CCDF>CCDFFK(>HTC,CCC TD C T66#) C]F)G((codage E)T),Fvis_cobFQBUXCOMPROBXCAUSAXCOD_CLI XXCOD_CLI OPEN_FILES XCOMPROB2XCAUSA2 XCOMENTARIOCCCLIECOMENTARCCVENTREMITOXFCDERECCVFACFCDERECOD_CLIFAC_VENREM_VENCAUSAXDTDTXDTMXASIDIAASIDIA XPEDIDO_GE01PEDIDOFLETESCODFLECOD_FLERUBROFACCODIGORFCCONDCOBRPLANVARIABLEPLANVARCIDSUCURSALSUCCLIENTESCODCLIAGENTECODAGE XVENDEDORNOMBREDISTRIBXDISTRIBXCOMPLCOMPL MENSAJE_WAITXXCAUSA XXCOMPROBVENTASPCKSAL_ENTSTK MM_MONEDAMONEDAMONTXTCOSMONCOSTOMONFECHAEDESPLDESPL2FACTURAPRODFENTCUENTASATRIBUTOUPDABREVCUENTADESCRDCUENTAXCENXLINEALINEACUELINXGRUPOGRUPOCUEGRUITM_DESCDESC_INS ITM_DESCROLDITEM PORCENTAJECOD_CUEITMCOMPROBITEMCOD_INSDETALLEXFACREM MENSAJE_CLEARBIENESCODINSDESATRBULCODXMOTDEMXXNOTASXXMONEDAXXCOEFICCOEFIC XXPENDIENTECANCEL XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAIL XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORD XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2XCAR_TAR XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREF ZARR_TEXTOS XMAXTEXTOS XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROSXREFTIPO XREFESTADOSINSTK XSIN_APLICAR TRAER_CLI VE_PEDIDOREMXFACTCCVENTFEC_VEN FECHA_PED FECHA_REMNO_FCDESPDESPACHOFECHA FECHA_DESESTADODENTHENTCESTADODESTADO TMP_REMXFACMOTIVOSMOTIVODESPFLETXFILE_RESERVASP_LOCALTV_ITMCANT_SALRS_COMRS_CAURS_ITMRS_CANTIPOIMPCANFEC Q_RESERVASSYS_MVIS_VEN3MENSAJETCCVORDFN_VALXIDDTMPR_OTROSXPDTVENTAS RECEPCIONRECEP2ENTREGAPEDITM P_PICKINGQCOMPROMMOTDEMP_SYSTEMNOTASCTACTE ADDPROPERTYCCCOBVEN_OPERDES_VAL DIF_VALORNUMEROSUBNUMCAJ_PROCHQTERCECHEQUEREFDIASDIASACCUSRDETCOBXDIASXACCP_TE_COB_DESPLXFECHAXAPCPBT XAPCPBTALIASNCPBTCREAR_TMP_RECIBOTE_COB_REIMPRESIONLLENAR_TMP_COMPROBANTES TMPAPCPBTVENCALLAPLICADO XAPLICADOACC XAPLICADOSUMXDIAS_DESPLAZAMIENTO XCOBRADORVIS_COB4FG(G((comprob%a*CAGUARDE, ESTOY TRABAJANDO !!!G EG %C4 B+C+  7>C //#/%C Z  C Z T CO G((testGE  C ZG /%C Z  C Zb  # +>   G((comprob # %C +>   "% VP /H G((testG EG +C+  /%C Z  C Z T COCC Z # G((testHFG( CBU XDESDEPRGCCCLIECOMPROB MENSAJE_WAITXCOD_CLICOD_CLICANCELADELANTOCAUSACUOTAREFCAUCUOREGTESTFECREFFECHAIMPORTEFN_CANC MENSAJE_CLEARNTG+(listadosstk_visFG((codinsBUXCODIGOOBIEDATA_CODIGO_VACIOLISTADOSSTK_VISBIENESCODINS45 T%]TCCCC_VA%%CT+TCCCC_VA%%CT+TCCCC_VA%%C]T+TCCCC_VA%%CT+TCCCC_VA%C T% BUD1D2D3D4D5TEMPFMT4 TFG((tccvord%G ETEST=HmZ TS/A TOk TArm.  TEnv. 2TTerm ZTFactTSTK=H? TS/A TAp TBloq "TRech 2?T??TCRE=Hj$ TS/A TAp TBloq TRech 2$T??TGER=HO  vTS/A TAp TBloq TRech 2 T?? BU XPEDPRIVAAATCCVENTTCCVORDPEDIDOEST_DESPSTOCKCREDITOGERENCIA4H C8?B@z 99! dCd8sB @z 99.9999 2B@z 99.99B@z 99.99UXD] 4%%%VP y#%C u =C0Este comprobante no se puede aplicar a otros !!! +CUnicamente en moneda local !!! RKC>Slo se puede realizar en la visualizacin por comprobante !!!BU XMONEDAXTIPOCTACTECAUSAREC_PROVCOD_CLICOMPROBAPLICARMENSAJEG+(listados G$(L-TCImpresora ? (0/1/2/P)012P%0bB9J(     %C T TB TTCC$* CC^=T Pgina : CCZ#TCLC>C>XCL, Cliente : [] Notas : T(C%TT Pgina : CCZ#TCLC>C>X CL(Continuacin) TCT CBULISTADOSXIMPPREGUNTAXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLD IMP_STARTLINMAXLINPAGXTIMEAAAACLIENTESCOD_CLINOMBREZ COMENTARIOIMP_END4%Cctacte)FQh1\tmp\CC CN N N C D D N  NDN N C CDN N N CNDNNCC LN N !N"N#N$C%N&N'N(D)D*N+L,N-N.N/C(0C1C2N3N4N5C6C7C 8C9C:N;C(<N =C>N?CQ\tmp\BU@XCURSORCTACTEP_LOCALCOD_CLICOMPROBCAUSAIMPORTEUSS_DEUMOTIVOCOMENTARFECHAVENCOPERACIOBULTOSHOYADELANTOADEL_USSREFCAUCANCELRECIBOINGTESS1CONDLISTAFECREFCUOTACUODES_CLIECOD_CUEMARKEDSUCASIENTOPASEAPROBCALIFTIPOCTRLUSRMONEDACALLFECESTDIASMARCAEST_DESPMAXCUOCOEFICCLAVE TXT_CAUSACTACOLORSALDODESPCANCIDIDUCPBTMON_TXTCOEF_TXTDSUCPEDIDOOCTIPO_NC AUX_FILTRO2F G((id TCG( E%C4 LC?Error !!! Probblemente una reindexacin de CCCLIE lo resuelva. T T T )+C+   C Z TT  Hset filter to &fil BUACCFILXOLDCOEFCCCLIEID XID_APLICANTEMENSAJECOEFIC XOLDTOTALXOLDDIFCOD_CLICOMPROBCAUSACUOTAIMPORTEUSS_DEU4%C/BaTc G((idTCZ E%C4s!%CZD%VC   C Z C Z kCGE01/REIMPREC : Aplica a :  El importe : CC@z 999,999,999.99_ T %a9 #%RAcdLH ^Error con tipo de comprobante.  Comprob :   Ct o Ba %a%ccs> >a_(> C ZC] >aE>    >a TCOTCZ%C E%C4!%CZg TCO> >a  T%CArchivo desindexado !!!!:GE01.PRGArchivo Desindexado 5BCNo puede imputar ms de CCc@z 999,999,999.99_ [C"El importe a imputar supera el delC "comprobante. No se puede imputar.  IC<El comprobante no es comienzo de Grupo. No se puede imputar. o T%CArchivo desindexado !!!!:GE01.PRGArchivo Desindexado RC!No se encuentra el comprobante alC que se imputar el Recibo.T T T TB-UXCO2XCA2XCU2XIMPORTES1IDXC2XCOD_CLICAUSAREFCAUCUOCOMPROBCUOTALOGMSGXFECREFFECREFREGUNIERR_HANDIMPORTEUPDREGISTROCOD_CLIIDUCANCELREG2REG3ADELANTO TTS_ERRORMENSAJEREPORTErF5 TCG( G((id E T%C4)+C+   C Z T H% P Ta TCT6Diferencia de importes totales al aplicar comprobantesZT Original : CC @z 9999,999,999_ Actual : CC@z 9999,999,999_ETCta.cte. del cliente  Comprob: C[!GE01.PRG}C0Error con importes al aplicar comprobantes en laC cta.cte. del cliente C AVISAR AL PROGRAMADOR!set filter to &aux2 BUCCCLIEAUXAUX2MES_1MES_2MES_3ID XID_APLICANTECOD_CLICOMPROBCAUSACUOTAIMPORTE XOLDTOTALG_ERROR TTS_ERRORXCOD_CLIREPORTEMENSAJEz'TCZ"%CPB-F%Cae T  T  C %Ccopia_originalF QT CC]RCConsultando...?occclieCZC' 1\ Q\  %CborrarfFQ%Cborrar1FQ%Cborrar2FQ%Cborrar3FQ%Cborrar4FQUoccclie !"#$%&'()*+-Q,-Q-CZC' !C.a6 borrar%.-occclieborrar !"#$%&'()*+-Q,Q/-Q-C0CX<C(ZCZ "C(Z C' borrar1 `)occclie !"#$%&'()*+-Q,Q/-Q--borrar1occclie !"#$%&'()*+-Q,Q/L V c d $C(ZCZ  Q-C0CX;CZ!C.a6  *borrar2occclieborrar1 !"#$%&'()*+-Q,Q/aQ-CZC(ZC' "CZ <CZCZ borrar3.o borrar2borrar1Ǽborrar4T1CC]R%C ccclie_vencu F2Q7o borrar3borrar4Ǽ1\tmp\1Q\tmp\12& &&& C(Z3occclieborrar !"#$%&'()*+-Q,Q/C(ZCZ"C(Z C' borrar1T4CC]R,& CZ(\tmp\4occclie !"#$%&'()*+-Q,Q/C0CX:L V c d  <C(ZCZ "CZ *borrar2^oborrar2 !"#$%&'()*+-Q,Q/&/borrar1borrar2&&& borrar3T4CC]R=o borrar3borrar11\tmp\4Q\tmp\45& &&"~CZ> )-H V>+FC d>+ND cA>+NC Ld>+AS 1>+CC 2>+DC H>+PR 2>+XXF2<6 6 T7 T8"~CZ"^(6T77T88 T9T:C(Z T;CO >,a%C G((id E:>9 >,aF2G(( referencia #;_6t>78(!&CZ'C] >,a T<COkCGE01/REIMPREC : Desaplica :  Importe : CC7@z 999,999,999.99_=F5#) C>ge01-2(@%@F5~ TA5&7p ccclie_venc 5 2&A0  TB CtrsacBccclie%BM TBKEtrsacBge01.prgAplicacin de Comprobante. ID: #CGF%B1 TH TI7 TJCO TK- TLF2~ M TMCOCN #M #<%{%I^ >C$ l >,aG~,ZTO2'%C' 4pccclie222(2(!2!22&2&'2''O0 % &F pcopia_original222(2(!2!22&2&'2'a#)# Ta5$%&'()*T$+T +T%,T&"-T'".0T(CP/0"16T)"2T*"3 T4 T5-%6 ge01-3_v2(5 ge01-3(5%5 U%Cusuarios "Q \usuariosC8usuarioscodigoT9:; $T9Imposible de determinar%6%C4 RT&CC& C&C C 6[CC C9]C 45<=>T=C-?T>C-?F%>_>+$%=>,%>F">"-C&>".C'%P>"1(%= >2) >3*F"% j8C+No se encuentra el comprobante a modificar.@ C * ge01-3.scx%}>CC C [CC C]C "Modif. de Vencimiento (Clientes): C * -> C * |U>CC "Modif. de Vencimiento (Clientes): C * -> C * T- > %  >> %PV$%CC,gA-CCC,gtccventtccvordFT2%  ! R>>! >!C pd_demorascodigoBT#Desplazamiento: CCZ Motivo Demora: C$%T&Pedido: CCZC  Cliente: C'(C Fecha de entrega pactada: C*C Desplazamiento: C* (CCZ das)C Motivo Demora: C$%C  Revisin: CC!Z%C# N+)*#ge01.prg%Vcd"%+,+-C-ccventccvfac>+! T# Revisin: CC Z%C# +)*#ge01.prgF. G((id E0%C4 U_1Hr  PF2%34bCModif. de Fecha de Prrroga: : C4* -> C3* ge01-3.scx>253%x>CC C [CC C]C Modif. de Fecha de Prrroga: C4* -> C3* P>CC Modif. de Fecha de Prrroga: C4* -> C3* T->267 Vcd %89 fC!Modif. de Fecha de Presentacin: : C9* -> C8* ge01-3.scx>2:8%F |>CC C [CC C]C !Modif. de Fecha de Presentacin: C9* -> C8*  T>CC !Modif. de Fecha de Presentacin: C9* -> C8* T-F.>>;; BU<XINICIAL_HISTORIAXCXCOD_CLICTACTECOMPROBCAUSACUOTAXID_CPBT XACCESO_CCXACCESO_GESTIONCCCLIECOD_CLIXVENC XOLD_VENCUSER_LOG PUB_INDEX CUR_CCCNOTASNOTAXUSUARIO_ACTUALVENCFECESTXFECESTCOMENTAR XCOMENTARIOTCCVENTPEDIDOXDESPL XFRECLAMOFEC_ENTDESPLXMOTDEMMOTDEM XREVISIONREVINXTXT PD_DEMORASDESCRXTXT_DESPLAZAMIENTOCLIENTESNOMBRE XXXCOMPROBXXXCAUSACCVENTFAC_VEN XCOMPROBANTE2CCCNOTASID XCOMPROBANTEAAA_ARRCLIAUX XFPRORROGAXOLD_FPRORROGA FPRORROGAOBSXEDIT3XFPRES XOLD_FPRESFPRESACCIONES4G+(listadosTC]TCC R TFG((idx04EC$%C4%TC TC T /BCLos ndices para el CC$* no fueron definidos !!! T T%JB T  T  T a cpbt_provis( % Brccclie  ! HC$Cpbt Provisorio C$C$HC$ C$! HCZrctacte  ! HC$Cpbt Provisorio C$C$HC$ C$! HCZ C"BU#XMONEDALISTADOSXIDUXCOMPROBXCAMBIOIDX04 FN_CAMBIO XERRMONEDAMENSAJEXIMPORTEXSUC XRESULTADO CPBT_PROVISCOD_CLICOMPROBCAUSAFECHACOMENTARIMPORTECALLVENCREFCAUCONDLISTAFECREFSUCMONEDACOEFICHOYCANCELIDIDUCTACTEAPLICAR`%HK0C#No es un comprobante provisorio !!!B9%CZCZ'CNo debe estar aplicado !!!BT F G(G((FG(G((#qccclie   #qctacte   &CComprobante eliminado !!!BU CTACTECAUSAMENSAJEREFCAUCUOCOMPROBCUOTAXIDUIDUCCCLIECOD_CLIXCOD_CLIm%Creclamos 1FQreclamos'TCZTCC]RCConsultando...QoreclamosCXQ CXQ  1 \tmp\Q \tmp\ ~ C C Ta seguimientos(%5CActualizando... T"trsacreclamos% T^trsacge01.prg6Reclamo de Comprobante en Cuenta Corriente de Clientes%F ~Dpreclamos   F T^trsacge01.prg6Reclamo de Comprobante en Cuenta Corriente de Clientes T 1 CFQ \tmp\ CBURECLAMOSXIDCTACTECOD_CLICOMPROBCAUSACUOTAXCURSOR MENSAJE_WAITTIPODSUBTIPODVENCIDP_LOCAL SEGUIMIENTO TIPO_RECLAMOS MENSAJE_CLEAR XRESULTADO SEGUIMIENTOSAAALOCK_GTRSACBEG_TRANNOTAIDUXCOD_CLIEND_TRANTTS_ID UNLOCK_ALLH CA%>CartaHI! A1r>Aviso 1 A2>Aviso 2 PL> Prelegales D1> Documento 1 D2!> Documento 2 FXJ>Fax EMr>E-Mail TE> Telefnico RE> RespuestaBUTIPOTIPODSUBTIPOSUBTIPOD4H V7 BFC dV BND cu BNC L BAS 1 BCC 2 BDC H BPR 2 BXX BXXUXCAUSA=TC)nicamente los reclamos de este cliente ?DTC0nicamente los reclamos que vencen esta semana ?%CpendreclFQCActualizando...%T &Treclamos.cod_cli=xcod_cli 7T.t.%TCC$ +T.and.reclamos.venc<=xhasta T listados lselect reclamos.cod_cli,clientes.nombre,reclamos.fecha,reclamos.tipo,space(30) as tipod,reclamos.subtipo,space(30) as subtipod, reclamos.venc, reclamos.nota, space(20) as cpbt,reclamos.id as id,ccclie.venc as cpbtvto, ccclie.importe-ccclie.adelanto as cpbtimp, ccclie.fecha as cpbtfecha from reclamos left outer join clientes on reclamos.cod_cli =clientes.cod_cli left outer join ccclie on reclamos.id =ccclie.id order by reclamos.cod_cli,reclamos.venc,cpbt where !reclamos.old .and. &filtro .and. ccclie.cancel={} into table (p_local+'\tmp\'+xarch) Q\tmp\  ~ C0>CC\ C \ C T opc_imp_pan(H bG~(clasesTCreporte_ventanaN TPrevisualizacin  T ?reclamos_pendientes< ?reclamos_pendientes(!"FQ \tmp\ .dbfBUFILTROXCOD_CLIXDESTINOXHASTAXUNO MENSAJE_SINOXVENPENDRECL MENSAJE_WAITCLIENTESCOD_CLIODEYFUNCFN_BEGXARCHNEWFILELISTADOSP_LOCAL TIPO_RECLAMOSCPBTTIPO_COMPROBANTESID MENSAJE_CLEAR OPC_IMP_PANCLASESOCAPTIONSHOWZCOPIARECLAMOS_PENDIENTESREPORTE_VENTANA'TCZTT-% C Z'T C ZC %RA te_procsFBUXID XCOMPROB2XCAUSA2CTACTECOD_CLICOMPROBCAUSACUOTAREFCAUCUOFN_CANCMANTENIMIENTO_RECIBO_DIASTE_PROCSC9%CZCZ%Vcd%~ge01_difcbio_2 :C-No es un comprobante en moneda extranjera !!!  %CDebe ser FC, NC o ND !!!  85C(El comprobante no es cabeza de grupo !!! BU CTACTECOMPROBCAUSACUOTAREFCAUCUOMONEDAGE01_DIFCBIO_2MENSAJE4%CxaliasbCV'Tdsfghsdghsjfdhgkjsdhfgkhdf%C y T%&%CVEN_OPER CCf %5 T %4 T  T 4 T T / listados   %C C  TCT BUXNUMXDECXMONXALIASXMONEDA P_MULTIMONTIPOXMOTIVOMOTIVOXMENSAJEFN_CALCLISTADOSMONEDACOEFICFECHAMENSAJE 4 T T%l%TCC@z 999,999,999.99_%%TCC@z 999,999,999.99_ T%C %C T(   T( %C %C IT +  lT 0.00 + T ) T ) BUXA1XA2XSTRXSTR1XSTR2 3   %Ccuentas _QcuentasT C TT C Tc T T%   B T + co_funciones %C - T B T+ co_funciones%C  T B T+ co_funciones%C  T B Taco_aut% r>C$Ejercicio inexistente para la fecha C*!!!B- Tltrsacconsclientesven_opercccliecccobdiariogconcepto%t T:trsacge01.prgAjuste Dif. Cambio%X %CclientescodcliTCctacteO% F#)%9T F! G((oper E%C45#6T# a T$!T%C@z 9999,999,999_T&A6C(%&Ajuste Dif. Cbio Tomada'rccclie)*+,-./012345678%& DIFERENCIAS DE CAMBIOC$ NgmC%&CZC]rven_oper)9:;/<#=6*1>?@AB5C%DIFERENCIA DE CAMBIO c 4NgmCAC$(8rcccob)*/D%&FE #FG te_cobranza% T F#)%T F! G((oper E%C4#6T#  T$!T%C@z 9999,999,999_T&A9C(%&Ajuste Dif. Cbio No Tomada'rccclie)*+,-./012345678%& DIF.CBIO.NO COBRADAC$ %&CZC]rven_oper)9:;/<#=6*1>?@AB5C%DIF.DE CAMBIO NO COBRADA c5AC$( 8rcccob)*/D%&FE #FG te_cobranza p T  T:Itrsacge01.prgAjuste Dif. Cambio TJBUKXERRXMSGXFECHAXCAMBIOXMONEDAXDIFCBIOXCOD_CLIXCOMPROBXCAUSAXCUOTAXTOMADA XNO_TOMADACUENTAS XCTADIFCBIOOBTENER_CUENTAS_UNICAS CO_FUNCIONESXCTADIFCBIONOTOMADAXCTADIFCBIONOTOMADAREG XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACBEG_TRANCLIENTESCOD_CLI XREGCCCLIECONSP_TE_OERACION_VERSIONXAJUSTECOB_OPERVEN_OPEROPER VOPERACIOSYS_OPERACION_FONDOS XACOMPROBXACAUSAUSER_LOG PUB_INDEXCOMPROBCAUSACUOTAIMPORTEMOTIVOCOMENTARFECHAVENCHOYREFCAUCUOMONEDACOEFICIDIDUDES_VAL DIF_VALORCAJ_PROCUENTATIPOUSRASIDIAAPLICMONEXTMONPASEFEC_COMI COMENTARIOCTACTE CPBT_MANT REG_ASIENTO TE_COBRANZAEND_TRANTTS_ID4 TCO T'TC  6TCFT CD T  T  T  T  T T T"~CZ4%G T T#listados ^ TD%A L c d  T   0D%A L c d  ,'T  C6  ,T  T  'T  C6 +T  C6 'TC6 !%CZTc T T TT  T!C T"  T#C"c6T$#" # T% BU&XCAMBIOXIDXMONEDA_DESTINOXREGXIMPORTE_COMPROBANTEIMPORTEXIMPORTE_COMPROBANTE_ACTCOEFICXMINIMO_PAGO_POSIBLEXMAXIMO_PAGO_POSIBLEXSALDO_PESOS_REALXSALDO_PESOS_REAL_CON_AJXSALDO_MO_REAL_CON_AJXSALDO_PESOS_REAL_SIN_AJ_ACTXSALDO_MO_REAL_SIN_AJ_ACTXSUMA_PAGOS_SIN_AJ_NI_CABECERAXSALDO_PESOS_AJUSTADOCOD_CLIREFCAUCUOMONEDA XCAMBIO_CPBTXMENSAJECAMBIOLISTADOSFECHACAUSAMOTIVOCOMPROBXSALDO_MO_REAL_CON_AJ_PESOSXSALDO_MO_REAL_SIN_AJ_PESOSXDIF_CBIO_TOTAL XCALCULARXSUGERENCIA_TOMADAXSUGERENCIA_NO_TOMADAXSUGERENCIA_SUMATORIA XSALDO_MO/4  %C pd_demoras iQ \pd_demoras T  T a% [%Ftrsac tccventtventascccliecliaux 7Dtrsac ccventventascccliecliaux% TVIS_ven3"TModificacion de datos T $trsac  T2TC  T %C /T  T%S T$trsac %C C C %  T T WTTGNo se pudo iniciar la transaccin o ha sido abortada por el usuario !!! 4T'No se pudo seleccionar el ejercicio !!! T BUXMSGXDESPLXMOTDEM XXXCOMPROBXXXCAUSA XNOTA_CPBT XNOTA_REMITO XCOMENTARIOXTXTCPBT_COMO_ITEMXTXTREMITO_COMO_ITEMXOBSP_SYSTEMAAA XRESULTADOP_ASIAUTLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANXTXT_DESPLAZAMIENTO$VIS_VEN2_GUARDAR_CAMBIOS_TRANSACCION TTS_ERRORXOKEND_TRANUSER_LOG PUB_INDEXNOTIFICAR_CAMBIOS_PEDIDOTTS_ID)%P C %b Cagentecodage%C C ;TCCC C ;6CBT Alerta: Cambio en pedido CC Z de C  T 2sys_procesandoNotificando cambios T2C %C C!sys_procesandoBUXXXCAUSAP_NOTIFICAR_PEDIDO_CAMBIOSXTXT_DESPLAZAMIENTOAGENTECOD_AGETCCVENTEMAIL!P_NOTIFICAR_PEDIDO_CAMBIOS_MAILTOLC_TOLC_SUBJPEDIDOCLIENTESNOMBRELC_MSG SP_MENSAJESYS_PROCESANDOXMSGSYS_MAIL_ALERTAS XXXCOMPROBCOD_CLIMENSAJESP_OCULTAR_DEFINITIVAMENTE '  T  TCGuardar cambios >  F G((cpbt%P-T CCC,g 9999,999,999_ T  E +C+   > > H%P:F%CC,T  Modificacin nota de pedido%CCLT  CC $Modificacin nota de preremito y prerremito6/> &F%CC1T  Modificacin nota de comprobante%CCET  CC !Modificacin nota de remito y remito6/>F>%C + ge01.prg%Cdetalle+ #)%PLF-%C4H% ! D> !!C pd_demorascodigoBT Desplazamiento: CCZ Motivo Demora: C"#TPedido: CCZC  Cliente: C$%C Fecha de entrega pactada: C&*C Desplazamiento: C&* (CCZ das)C Motivo Demora: C"#%C + ge01.prgF ~ T %PF'G((peditmECZC)Z%  %CTPedido: CCZC  Cliente: C$%C Fecha de entrega pactada: C&*C Desplazamiento: C& * (CC Z das)C Motivo Demora: C"#2T   Desplazamiento Item: CC ZTC C  Item: CC)ZC  Artculo: C*CC+ -C+6CC, -C,6 C-C  Desplazamiento: CC& *(CC Z das)>  TF.G((cpbtitmE0C)Z%C4v %11-T  Cantidad: CC1 Z%22#T  Cuenta: C3%44# #T  Centro: C4%55e (T  Subcentro: CC5Z%66 $T   Lnea: CC6Z%77 $T   Grupo: CC7Zk>118844559422--66%18 r  * F<:^(:%P F'rtventas:  F.rventas:=T   Nuevo Registro. Cantidad: CC1 Z%C CItm: CC)Z  ge01.prg%P T;<T=>%; T? T@*A co_funciones?@;>%? %a Crehacer asiento TCTD<TE0 T? TF)Gco_aut?FDCEa%? TI TFF  'TE0JC> Kve_anular_comprobante TMa T@ N co_ventasMa@%M TI TF@  TF@ BUPXDESPLXMOTDEMXTXT_DESPLAZAMIENTO XNOTA_CPBT XNOTA_REMITO XCOMENTARIOXTXTCPBT_COMO_ITEMXTXTREMITO_COMO_ITEMXOBSXTXTXID_COMPROBANTESYS_MCTACTECOMENTARCCCLIECPBTXXXCAUSA XXXCOMPROBCOMPROBCAUSATCCVENTTXTCPBT TXTREMITOITMCOMFITMCOMRCCVENTCLIAUXOBSUSER_LOG PUB_INDEXDETALLEPEDIDODESPLMOTDEM PD_DEMORASDESCRCLIENTESNOMBREFEC_ENTTVENTASPEDITMITMCOD_INSATRBULDESC_INSVENTASCPBTITMFAC_VEN RECEPCIONCOD_CUECUENTACENTRO SUBCENTROLINEAGRUPOTOT_VENCOD_CENAAAXASIDIAASIDIAXFECHAFEC_VENXERRXERRMSGBUSCAR_ASIENTO CO_FUNCIONES XTIPO_ASIENTOXASIENTOXIDXMSGREHACER_ASIENTOCO_AUT TTS_ERRORCOD_CLI ANULA_ASIDIAVE_ANULAR_COMPROBANTE XRESULTADO REG_ASIDIA CO_VENTAS< TCC]RTCC]Rh1\tmp\NDN CNN N N C C( C CCQ\tmp\h1\tmp\NDN CNN N N C C( C CCQ\tmp\ T-%Cchq jQchq%Ccom_oper Qcom_oper%Cproveedo Qproveedo 5 T TT TC$boven_operCQ 1  q1_sal_chqo q1_sal_chqQ!ven_operQ"chqQ&!!"""#"$"%" " ""'C! ZC!ZC" ZC"Z "  "1 " vo_sal_chq T ~jT"C(com_opernumeroFG((numero+C+ ( %)S"C proveedocodpro%DFG((comprobECX /+C+    %(!C*cuentascuenta!H!FH%(; T+a P T+-UTC, (2C , ( C( vo_sal_chq-66rchq_vis     (((C, (2C , ( C( vo_sal_chq-66( ( C+  6C+Cproveedo+  ./6C+  6C+ 6C+yCCOCPNCLAS6CDDEC   XX6666 C 6o q1_sal_chqQ!ven_operQ"chqQ&!!"""#"$"%" " ""'C! ZC!ZC" ZC"Z "  ' "1 " vo_sal_chq1 T T ~u T"C0com_opernumeroFG((numero+C+ 0  %)S "C proveedocodpro%D FG((comprobECX /+C+     %0 !C*cuentascuenta!H!FH%0F T+a [ T+-VTC, 03C , 0 C0 vo_sal_chq1-66rchq_vis1     000C, 03C , 0 C0 vo_sal_chq1-660 0 C+  6C+Cproveedo+  ./6C+  6C+ 6C+vCCOCPKCLAS3CDDEC XX6666 C 6F#)F#)chq_visFQFQ \tmp\.*  \tmp\.* FG-(G(BU1 XTEMPORAL XTEMPORAL1P_LOCALORDEN DIF_VALORNUMERODES_VALCAJ_PROSALDOMONPASEMONEXTCOD_PRONOMBRECOMPROBCAUSACPBTCHQ_VISCHQ_VIS1DOCSCHQCOM_OPERPROVEEDOSALCHSALCH1ZXCOD_CLICLIENTESCOD_CLIXDATESUBNUMVEN_OPERTIPO Q1_SAL_CHQQ1VOCOEFICFECHAMONEDACTERC VO_SAL_CHQPROPIOCUENTA XENCONTREXMONEDAFN_ROUNDCUENTASDESCR VO_SAL_CHQ1 T %C tmp_remxfacNF ~A%CC@z 9999,999,999_Pcccnotasid%C BTPEDIDO: CC ZC C CC %CNCO TC C*PQ A%CC@z 9999,999,999_PcccnotasidBTPEDIDO: CC ZC C CC  BUXHISTORIAL_PEDIDOS TMP_REMXFACXCOD_CLIPEDIDOCCCNOTASNOTACCVENT7 G+(sys_mail_funciones T Ta T-sys_mail_funcionesT !%  C T )TC  \C.pdf%P-T No se envia por mail. MAILTIPO=0 C B!%C =T0No se envia por mail. Cancelado en destinatarios C B%C % D%C-Enva el comprobante por correo electrnico ? .T!Reimpresin. No se envia por mail C B ;T.No hay direccin de correo para envo por mail C B%C0 3T&No se gener PDF. No se envia por mail C B3sys_procesandoEnviando por mail...G+(sys_mail_funciones7 !"#$%%&%CCp_ve_fce_control& d!TCp_ve_fce_control& CT6DEV: No hay direccin de control. No se envia por mail C B TCFT!CCCp_ve_fce_control& Cp_ve_fce_control&6%!a T!8TCCp_ve_fce_subject&()' T!TCp_ve_fce_replyto&TC p_ve_fce_from&"TCp_ve_fce_fromname&4TCC p_ve_fce_msg&()'#T*Cp_ve_fce_authlogin&"T+Cp_ve_fce_authpass&#T,Cp_ve_fce_send_host&#T-Cp_ve_fce_send_port&"T.Cp_ve_fce_send_SSL&(T/Cp_ve_fce_send_Usa_GMail&$T0Cp_ve_fce_send_Token&:C23*+,-./01T4 TH& Cp_ve_fce_metodo&AqT4C*+,- !"#./05& Cp_ve_fce_metodo&3T4C!#67sys_procesando%4 C8H & Cp_ve_fce_metodo& %9 ;CComprobante enviado por mail$CSe ha enviado por mail.:  IC*El mail se ha agregado a la cola de envio.7C*El mail se ha agregado a la cola de envio.:& Cp_ve_fce_metodo& <CComprobante enviado a OutlookTCGSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.: B 0 :CNo se pudo enviar por mailC: BU;XARCHPDFXCOD_CLISYS_MAIL_FUNCIONESXCAUSA XELECTRONICOXEMAILMAIL_ELEGIR_DESTINATARIOSZEMAILCLIENTESFCEEMAIL XSUCURSALSUCURSALPDF_PATHZIDCAUSA ZIDCPBTNUM XMAILTIPOXMSGUSER_LOG PUB_INDEXXNUMEROFREALTIME MENSAJE_SINO SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XENVIAR_DESDE LC_TONAMELC_CC LC_CCNAMELC_CCOP_VE_FCE_SEND_SSLP_DEVVE_FCE_ALTERNATIVOMAIL_MACRO_TEXTOS ZCOMPROBANTE ZEMPNOMBRE XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTXFCESSLXGMAILXTOKENCONTROLAR_CUENTA_DE_ENVIO XCOD_MAILXSUCFACXOKSYS_MAILSYS_MAIL_OUTLOOKSP_OCULTAR_DEFINITIVAMENTEIMPRESOP_MAIL_SEND_TIPOMENSAJEG+(sys_mail_funciones T=%C'Adjunta la cuenta corriente pendiente ?.ATcuenta corriente del cliente CCC@.pdf>ve_sql_cuentas_corrientes * \tmp\(C TC T  T T TC  \C VFC/C cNCC dNDXX666 CCCRgC=00C R6<$%C*.pdf&TC  \C#TCp_ve_fce_authlogin"TCp_ve_fce_authpass!TCp_ve_fce_replytoTC p_ve_fce_from"TCp_ve_fce_fromname#TCp_ve_fce_send_host#TCp_ve_fce_send_port"TCp_ve_fce_send_SSL(TCp_ve_fce_send_Usa_GMail$TCp_ve_fce_send_TokenET CNota de Dbito XXXCp_ve_fce_subject6!T!Cp_ve_fce_control T"Cp_ve_fce_metodo T#Cp_ve_fce_perfil T$Cp_ve_fce_cuenta'T%Cp_ve_fce_adjuntos_path#&   !CNo existe el PDF !!!'BU( XMAIL_TIPOSYS_MAIL_FUNCIONESXPDFCC MENSAJE_SINOLIMPIAR_CARACTERES_RAROS_SPAMCLIENTESNOMBRE EXPORTAR_PDFVE_SQL_CUENTAS_CORRIENTESXCOD_CLIP_LOCALPDF_PATHXCAUSACTACTECAUSAXCOMPROBCOMPROBXFECHA_EMISIONFECHAXARCHPDF ARR_FILESXGESCOB_AUTHLOGINVE_FCE_ALTERNATIVOXGESCOB_AUTHPASSXGESCOB_REPLYTO XGESCOB_FROMXGESCOB_FROMNAMEXGESCOB_SEND_HOSTXGESCOB_SEND_PORTXGESCOB_SEND_SSLXGESCOB_SEND_USA_GMAILXGESCOB_SEND_TOKENXGESCOB_SUBJECTXGESCOB_CONTROLXGESCOB_METODOXGESCOB_PERFILXGESCOB_CUENTAXGESCOB_ADJUNTOS_PATHGE01_EMAIL_CONFIRMACIONMENSAJE %C q_reservas1/Q%Cconver ]Qconver%Ctventas Qtventas%Ctcccomp Qtcccomp%Ctcompras Qtcompras%Cimp_tran !Qimp_tran%Cimportac SQimportacyotventasXreservas C0ZC ZC0ZC1ZXimp_tran CCgZC ZCZC!ZXimportac 2Xconver CCgZC ZC'ZC)Z Q  Q  Q  Q QQQQCC XQC QC QC QC QC Q C! Q"C Q#C$Q%C Q&C' Q(C) Q*C+, Q-C.Q/0  q_reservas1>%%o q_reservas1    C&.C  En trnsito6 Importado 6Q4C&&6Q5C&#-6Q6C&%/6Q718\tmp\Q%C q_reservas1QBU9XPDXID Q_RESERVAS1CONVERTVENTASTCCCOMPTCOMPRASIMP_TRANIMPORTACITMTV_ITMCOD_INSATRBULDESC_INSDESCR RECEPCIONCANT_PEDRECEP2CANT_RECCANT_SALRESERVASCOMPROBRS_COMCAUSARS_CAURS_ITMCANTIDADRS_CANIMPORTTRA_IMPSOLTRA_ORDSOLITMTRA_ITMTRA_CAN FECINGESTTRA_FECCNV_IMPORDENCNV_ORDREFITMCNV_ITMENTRASALECNV_CANFECHACNV_FECPEDIDOPEDITMNUMEROALLTIPOIMPCANFECP_LOCALK %C q_pickings1/Q%Cbienes ]Qbienes%Cbultos Qbultos%Catributo Qatributo%Ccomprom Qcomprom'ocompromQXbienesQ XbultosQ    XatributoQ    depositoQ  CC қ CC қ CC қQ  Q1\tmp\Q%C q_pickings1@QBUXPDXID Q_PICKINGS1BIENESBULTOSATRIBUTOCOMPROMCODCATRBULDESCRATBUDSPDEPDDEPOSITOBCOD_INSCLAVEP_LOCALo4%C c@C3No se puede utilizar esta funcin con artculos !!!B-F TCO^(odetalleCF #T T C T T  T  TH8 _T    T  T     T  T  T   0TC d T0TC d T0TC d T0TCd TT%T # T T>  a T% ->  aT% ->  aT%N ->  aT> BU XCOCIENTEDETALLECOD_INSMENSAJEXMAXXREGXTOTALAAAITMTOT_VEN XRECEPCION1 RECEPCION XRECEPCION2 XRECEPCION3 XRECEPCION4 XTOT_VEN1COS_LIFODES_INSCOEFIC XTOT_VEN2 XTOT_VEN3 XTOT_VEN4XACCXTOT_VEN_ORIGINAL XACC_TOT_VENUPDFBUDETALLEINTCCX %Cn2C%Debe estar determinado el cliente !!!B-TC %Cclientes Qclientes%Ccliotros QcliotrosCclientescodcli Ccliotroscod_cli%C tmp_nota_ge01QFQ"%Ctmp_nota_ge01_auxFQFG+( sys_rlocks T ,%CclientesCclientesO GI+( \tmp\tmp_nota_ge01 GI %Q \tmp\tmp_nota_ge01F'%Ccliotros.nota_expbMGI7( \tmp\tmp_nota_ge01_aux GI )Q \tmp\tmp_nota_ge01_aux T-% ge_notas_v2(% CV F) ( \tmp\tmp_nota_ge01.txtF-  \tmp\tmp_nota_ge01.txt'%Ccliotros.nota_expbMF) ( \tmp\tmp_nota_ge01.txtF-  \tmp\tmp_nota_ge01.txtF)( \tmp\tmp_nota_ge01.txtF- \tmp\tmp_nota_ge01.txtF)( \tmp\tmp_nota_ge01.txtF- \tmp\tmp_nota_ge01.txt"CclientesCclientesO gRC El usuario 2 est editando las notas, aguarde unos minutos !!!B%C tmp_nota_ge01Q"%Ctmp_nota_ge01_auxQBUXCOD_CLI XNOEDITARXSOLAPAMENSAJECLIENTESCLIOTROS TMP_NOTA_GE01TMP_NOTA_GE01_AUX SYS_RLOCKS XUSR_LOCKREGISTRAR_LOCK COMENTARIOP_LOCALNOTA_EXPNOTA_PRENOTA_COB XRESULTADO GE_NOTAS_V2ACCESO LIBERAR_LOCKRTC %cCclientescodcli=Tcuenta corriente del cliente CC @.pdf8 ve_sql_cuentas_corrientes%C \tmp\0.| ShellExecute SHELL32.dll-TCopen \tmp % RC!No se puede ejecutar ShellExecuteC Cdigo del error: CCZH   T TG+(sys_mail_funcionesT \tmp\ T#TCp_ve_fce_authlogin"TCp_ve_fce_authpass!TCp_ve_fce_replytoTC p_ve_fce_from"TCp_ve_fce_fromname#TCp_ve_fce_send_host#TCp_ve_fce_send_port"TCp_ve_fce_send_SSL(T Cp_ve_fce_send_USA_GMail$T!Cp_ve_fce_send_Token%T"Cp_ve_fce_send_Codigo)T#Informe de cuenta corriente.!T$Cp_ve_fce_control T%Cp_ve_fce_metodo T&Cp_ve_fce_perfil T'Cp_ve_fce_cuenta'T(Cp_ve_fce_adjuntos_path T)-G+(sys_mail_funcionesG+(listadosdey_func T, T- T. T/ T0 T1 T2 T3 T4T5 T6 T7 T8;9listados,-./012345(T7:\cpbt\; -logo.jpg T6< T8= T>%Z-T? No se envia por mail. MAILTIPO=0 B%CGC->@ =T?0No se envia por mail. Cancelado en destinatarios B%C> C<%C%Enva el PDF por correo electrnico ?A ?!T?No se envia por mail B ;T?.No hay direccin de correo para envo por mailC? B%C0 3T?&No se gener PDF. No se envia por mailC? BBQ COLLECTIONTBC CollectionCBC3Dsys_procesandoEnviando por mail...?FGHIJKLMNOPQRST%Ud %C$  TF$ ` CT?6DEV: No hay direccin de control. No se envia por mailC?Vsys_procesando B } TFC>TOCC$ $6%FO TO(TGResumen de Cuenta Corriente TIB TJ TK TL)THCX-,W TY TZ T[ T\ T] TR TS! TT"TM>^vpedidoTKLYZ[\]RSJ` T?H&  % qT`C?FGHIJKLYZ[\MNOPQ]RSa % 3T`C?FGHIJOQbVsys_procesando%`f JC=Se ha enviado el resumen de cuenta por correo electrnico !!!  pCHNo se ha podido enviardo el resumen de cuenta por correo electrnico !!!C C Error: ?  Cwhatsappc%C tmp_contactos2 Qd@oclimail eCe tmp_contactos Tg-ve_whatsapp.scx(g%g Cwhatsappc%C tmp_contactos Qd%C \tmp\0GH!C j9 k-k\Cuentas Corrientes de Clientes u G \tmp\(k \Cuentas Corrientes de Clientes\(l5]CNo se puede copiar el PDF a k\Cuentas Corrientes de ClientesC lm 2CBUnXCOD_CLI XFEC_CPBT XPEND_COMPXMONEDAXENVIAR XSOLO_VERCLIENTESCOD_CLIXPDFNOMBRE EXPORTAR_PDFVE_SQL_CUENTAS_CORRIENTESP_LOCAL SHELLEXECUTESHELL32DLLXERRORMENSAJEXCOMPROBXCAUSASYS_MAIL_FUNCIONESXARCHPDF XMAILTIPOXGESCOB_AUTHLOGINVE_FCE_ALTERNATIVOXGESCOB_AUTHPASSXGESCOB_REPLYTO XGESCOB_FROMXGESCOB_FROMNAMEXGESCOB_SEND_HOSTXGESCOB_SEND_PORTXGESCOB_SEND_SSLXGESCOB_SEND_USA_GMAILXGESCOB_SEND_TOKENXGESCOB_SEND_CODIGOXGESCOB_SUBJECTXGESCOB_CONTROLXGESCOB_METODOXGESCOB_PERFILXGESCOB_CUENTAXGESCOB_ADJUNTOS_PATH XELECTRONICOLISTADOSDEY_FUNC ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUA DATOS_EMPRESAP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAZEMAILXMSGMAIL_ELEGIR_DESTINATARIOS MENSAJE_SINO OADJFILESADD SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XENVIAR_DESDE LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKEN XCOD_MAILP_DEVSP_OCULTAR_DEFINITIVAMENTEMAIL_MACRO_TEXTOSP_VE_FCE_CUENTA_CORRIENTE XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTXFCESSL CONTROLAR_CUENTA_DE_ENVIO_CODIGOVPEDIDOXOKSYS_MAILSYS_MAIL_OUTLOOKSYS_M TMP_CONTACTOSWSCLIMAILXRES VE_WHATSAPPSCXP_CC_CLI_PDF_DESTINO P_PDF_DIROEXMESSAGErec_provfn_cancsal_chqr query_2_p query_2_c procesar_2 query_1_pv, query_1_c2 procesar_19fn_valBcpbt_visC open_filesv cpbt_vis2grepairQstockfn_desc fn_estadofmt\cpbt_impimpnotas create_tmpq total_cmpBaplicar_parcial importe_ok aplicar& comentar_cpbtcomentar_cpbt_write_data cpbt_provis.  nocpbt_provis seguimiento tipo_reclamosHtipo_comprobantesD ver_reclamosl cpbt_mantk ver_difcbio fn_round"amasb$ajustar_dif_cbio&calcular_ajustesz4vis_ven2_guardar_cambios:notificar_cambios_pedido?$vis_ven2_guardar_cambios_transaccionBchq_visShistorial_pedidoscenviar_por_mail_cc_clienteseemailsconsultar_compraszconsultar_pickingsvis_ven_item_duplicarфvis_ven_item_eliminarG notas_clientez generar_pdf2!r1AA"!AB2Aq1qAAA25"A2"AAqAbBbaTQtr1AAAusAArAA2ABAAAAAABABBCABBBA"DAAABBCAQAB2A0A q2qbrqAA0)2r1111ArqAA" "2qrS#qSASAB2": "A2rrBrBQARBQAB2AAADAQAAAAAAAAA1ADSCAR[As3A1qrABAAAAAarAAAAbAAAbBAABhAB2qrqAA@12r1111ArqAAP6!2rrSA3BrAD2{BQAS2AAA1AAAQAAAAAAAAA1ADRCAVAs3AABeAB2qqaAaA3AAAAaAAA1A1ARq1Rrrr"q1ArQrD!%pA$Brra!31131t1D0311111aAB11111a11ABAq BAAs1qAArrqArAAvAArrr"qArQrrAa$AQ4$Ar!qBArraA31131s1CPQAqA!AwAAAtAq1rqRrQaR/tRvrAq2b1ABAArBAA2AAAAAAAA!AbAArAAAAA!AAA1AAAr!A!AAAAAAAAAbAAAAA1AAA1A4$rqARBdaArrr"qArQrarACp$pa#Brra!31131s1C qq CrQ1AAArrqArAAqcaAArrr"qArQrarAs!a$3$Ar!qAArraA31131s1CP!AqA@qAAARqaArAq@sqRQaRFrRrrrAAB2qqa2AbaBAbqaAAA"BABAaaABAraB2!rA2qq1A1Q!AA1Q!AA1Q!AA1Q!AAQ!A2qs2A1A111Q1Q1Q1QAc1A111Q1Q1Ab1A111Q1Q1Ab1A111Q1Q1A2q1B2511qAAAAA2"BAAB1qq1qq1qqABAAB4qrqAA9D2raAAAbB2qABqAQRAWQAAB!AAAQA!Aq2tqaAAA12QEqA3u%qAuqAARq|qAAqAAqAAqAAqAAW7AiSqAAwSZS$RAAAAAAAAArw!ADq1ARIuQ'xAtB222wAqdB14AAAc "uRq2BAAasbbAaqAaAABrArABB2AA!A1A!AAqrrQqA2121A"AbAqCAABqAA!RA4Q!AAAA2"#AE%!rAAr!!qAAs"Asrru6A2qAABABqAAsB3rB2 bq!2qQAABABArBArB""#ABBA"ABrQAqq2!AB1aAABAr2q"qt1!A!A2AArqAAB2rAAqAAraaraa31bB3AsrQAr"22tDqAAAArAB2Q!QAQAQqQQAQQ1QqQaAA2qAAAAAAAA21BqAAaArBq&Aq1r2BrAB3tqARArB2aaAQAQAA21qA#AbAAAAA"A!A22QA1QAa!1A!!AAq1AA211A#1A"A"A"AqA22eArQ2tQ2rRABbrrbB5tQ2rRAB rrbBAAB3vq"!"21ABArqq2BBABRB2AeEA2Q!A!!A2AB1AABAAA2A!$!"AABAB2qArAABABrrAqArrAqQAAr"AABqs" AAA"ArCqrb A"eAqBbAa1Aa1AaAaAAaAAAAqrBqAq1AB#1ABB22q2AsABABA2QQ\AAAAAr,p"rA!rqaAAAAABAqAAASB"rA$rqaAAAAABAqAAAc B0qQrQsArAAAraaB3trR!ABAB"BB3 A2AB"AAAA$2A4rb2AAb3A!C2!21!A1saa1ARa3AqAaAAA3qAb rBb2!!11!ARq2AB3A!A1A1AAAAAAA 'b aBAB5A!A!AAA1AqBAB2qRqAqrr1A11A1A2A2B2BbB2qA2R!qA3AAAAqAA"qAAsBbaRrsbqaAsQrrsrrrrrrBB"!AAA"AB26dA1!AA14!!11!AQq12AA"AA"2AT4"2AA3A2s111AA2UAQAAC1ArACAB16%$G=["S"((z44M>MTkT``oFoxpOpm{((C/ MV/0 T02 w261 67z  8: ,:= =MD cD_F0 {FIQQ ``QU y#U J I o  1 ' E  D  \&* N6I `^g  Z_ n7  K 9 $$1 8$CLf CG{ G\ )\d{ dAo) `orA r|N} 2|s| |U m 6,%7$ Yn 4CInicializando... G+(ge02G+(listados%Cxcod_probC uTCX ge02 CBUXORIGENXCOD_PRO MENSAJE_WAITGE02LISTADOS MENSAJE_CLEART45  T-% TC=%Cproveedo Qproveedo%  CproveedocodproT  %  TaF G((testG EG %C4yTC / / # T T T TCO% % T  %- T  T  T/+C+  CZCZ '>TCTC% TH #>A% # C   u/+C+  CZCZ q >H I>C //#%C5>.> CZC!Z"C]"% CP EBU#XXREFXFECHA XSALDO_LOCAL XSALDO_ORIGENREGXMONEDA XFECHAREF XPESIFICADA XPROVEEDORP_CCP_PESIFICADAPROVEEDOCOD_PROPAISCCPROVTESTFECHA P_MULTIMONMONEDAREFCAUCUOOPRADELANTOCANCELFECREFFN_ROUNDIMPORTE P_MMLIGHTPP_CC_FC_E_SALDO_CANCCOMPROBCAUSACUOTAIDOPIDU0%CCMgCCMg ; T- P Ta TFG((chequeGGF ECC$GFG %C+ +C+   Ta %-%CM~FG((numero E +C+   z$%    r T-!HF%TC  HF BUATRCANDOCSSALCHCOM_OPERCHEQUEPROVEEDOCOD_PROOKCUENTANUMERODES_VAL DIF_VALORFN_ROUNDCAJ_PROCCPROVQ4CConsultando...%CctacteDFQ%Ccccomp rQcccompoccprovXcccomp CZ&CZXcccnotas !'QQQC  Q C  6Q CPZA6CC 6CC 6CZCZCCZCZCZCZC AB6QQCXQCXQQQQCXQ CC!"ҡ Q#C$ Q$Q%C()C1*\tmp\Q*\tmp\C-+ BU,XCURSOR MENSAJE_WAITCTACTECCCOMPCCPROVAPROBCALIFFAC_COM2COMPROB2 MM_MONEDAMONEDAMON_TXTCOEFICCOEF_TXTCOD_PROCAUSAFECREFFECHAREFCAUCOMPROBCUOOPRCUOTAOPCLAVEFCE_TIPO TXT_CAUSACTACOLORSALDODESPCANCCCCNOTASNOTA TIENENOTAORDEN AUX_FILTROFAC_COMIDCANCELXCOD_PROP_LOCAL PROCESAR_2 4H# GTC$ kTC$m TC$f@ 2TCConsultando...%CctacteFQ%Ccccomp #QcccompoccprovXcccomp CZ,CZXcccnotas '-QQ Q C  Q C6QCPZA6CC 6CC 6CZCZCCZCZCZCZC AB6QQCXQCXQQQ Q!CXQ"CCcdA # $6Q%$Q&CC'(ҡ Q)C* Q*Q+CC./C/zzzzzzzz10\tmp\Q0\tmp\ T1%C %2FCa3FEKC6 P C. (1$F>$& >FEKC6 P C. (1%U(0\tmp\_1C6 P C. S0\tmp\_1C-13%5octacteC$Q$###ccp_2(0 \tmp\ccp_2Ի BU7XCURSOR XFECHA_DESDE XDESDE_FECHA MENSAJE_WAITCTACTECCCOMPCCPROVAPROBCALIFFAC_COM2COMPROB2 MM_MONEDAMONEDAMON_TXTCOEFICCOEF_TXTCOD_PROCAUSAFECREFFECHAREFCAUCOMPROBCUOOPRCUOTAOPCLAVEFCE_TIPO TXT_CAUSACTACOLORSALDODESPCANCMOTIVOIMPORTEPESOS OLDIMPORTECCCNOTASNOTA TIENENOTAORDEN AUX_FILTROFAC_COMIDCANCELXCOD_PROP_LOCALXSALDO_NO_MOSTRADOXMONEDA PROCESAR_2ALLP_DEVCCP_2 4C Procesando...%cFG((idx04FG-(F& (\tmp\ G(C  T a T  T  T TCO T T TTfgsdg ~y T%CTTC 6eD,T  CP C6P%CC (CZCZCZCZ L T % % TCO > >  # T - T!a T" a T!- T,T  CP C6%  >#H& CT$FC%% ># r6T$RE O%C XnT$AJ T$CP cT$NC dT$ND LT$AS AT$AJ I:T$IT H]T$PR 1T$CP 2T$DC 3T$DP P T$OC%&  ># 2&T$XX >'$">(CCcd(6'>)C*C 6C>+CC@z 99_C,/CC,@z 99_6(%-0  ./S >0C1C0> (%.234 C Ccccompop%%Ccccomp+ C56 &>0DSP: C56f C0%C7:<=>0(LP)C0 >8 +>CCP96% u %P]% Y > T: T;%c T: T;%! I T:< T; T": %I' T: T;= T:>=%C"UJC=Debe realizarse un mantenimiento de esta cuenta corriente !!!? T"T;:">=CC:FD%@CAL >A 3 >ACC;FD%!} TCO T TT< q %*m %c T TB  (TBC c; 6TCBT TCCO #1>ACCC@CAL6FD #CG(T  % TDCE CFBUGXSIMPLEXSALDO_NO_MOSTRADO MENSAJE_WAITXMONEDAIDX04CTACTEFECHACLAVEP_LOCALXCURSORCOD_PROINICIALXSALDO XSALDO_TOTAL XMAXCOMPRAPRIMNUMPRIMIMPPRIMDSPPRIMFEC XAUX_FILTROCAUSAIMPORTEFN_ROUNDREFCAUCUOOPRCOMPROBCUOTAOPREGXCLAVE AUX_FILTROPRIMEROOLDCOLORXCCALIFAPROB TXT_CAUSACOMPROB2CANCCANCELCTAMAXCUOXCOD_PROPROVEEDOTARJETACOMENTARDES_PROV INSCRIPCIO OLOCALIZACION ADUANA_CUITCCCOMPDESPACHOFCE_TIPOSALDOADELANTOCNDDSPVENCDIASFECREFMENSAJEP_EMPDESPTEMPREGISTRO XSALDO_CHQSAL_CHQ MENSAJE_CLEAR  4 %C xtipofechabN8 TCConsultando...%CctacteyFQ%Ccccomp Qcccomp%occprovXcccomp C&Z<C&ZXcccnotas 7$C Q    C QCQQQ Q !Q"#$%&'()*Q+C),Q-C((6Q./Q/C(XQ0CXQ1CXQ2Q3Q4Q5CXQ6CC78ҡ Q9C: Q:Q;C=C1>\tmp\ occprovXcccomp C&Z<C&ZXcccnotas 7$C Q    CQQQ Q !Q"#$%&'()*Q+C),Q-C((6Q./Q/C(XQ0CXQ1CXQ2Q3Q4Q5CXQ6CC78ҡ Q9C: Q:Q;C=C1>\tmp\Q>\tmp\C-? BU@XCURSOR XTIPOFECHA MENSAJE_WAITCTACTECCCOMPCCPROVCOD_PROCOMPROBCAUSAIMPORTEADELANTOMOTIVOCOMENTARFEC_DGIFECHAVENCBULTOSREFCAUCANCELCONDLISTAFECREFCUOTACUODES_PROVCOD_CUESUCAPROBCALIFTIPOFECESTDIASMARCAEST_DESPMAXCUOIDIDUOPOPRCOEFICMONEDAFAC_COM2COMPROB2 MM_MONEDAMON_TXTCOEF_TXTFCE_TIPOCLAVE TXT_CAUSACTACOLORSALDODESPCANCCCCNOTASNOTA TIENENOTAORDEN AUX_FILTROFAC_COMXCOD_PROP_LOCAL PROCESAR_1' 4 %C xtipofechabN< THX |TC$ TC$m TC$f@ 2TCConsultando...%Cctacte*FQ%Ccccomp XQcccomp%[occprovXcccomp   C(Z? C(ZXcccnotas   :&  C Q   CQCQQQ Q !"#Q$%&'()*+,Q-C+.Q/C**6Q01Q1C(XQ2CXQ3CXQ4Q5Q6Q7CXQ8CCC cdA    6Q9CC:;ҡ Q<C= Q= Q>CC@C@zzzzzzzz  1A\tmp\ CoccprovXcccomp   C(Z? C(ZXcccnotas   :&  C Q   CQQQ Q !"#Q$%&'()*+,Q-C+.Q/C**6Q01Q1C(XQ2CXQ3CXQ4Q5Q6Q7CXQ8CCC cdA    6Q9CC:;ҡ Q<C= Q= Q>CC@C@zzzzzzzz  1A\tmp\QA\tmp\ TB%C P %CFC-DF#)%C+ - P H TB6 #K P (B9F((A\tmp\_1SA\tmp\_1C-BD%E octacte  (C Q   (  ( ccp_1(A \tmp\ccp_1Ի BUGXCURSOR XTIPOFECHA XFECHA_DESDE XDESDE_FECHA MENSAJE_WAITCTACTECCCOMPCCPROVCOD_PROCOMPROBCAUSAIMPORTEADELANTOMOTIVOCOMENTARFEC_DGIFECHAVENCBULTOSREFCAUCANCELCONDLISTAFECREFCUOTACUODES_PROVCOD_CUESUCAPROBCALIFTIPOFECESTDIASMARCAEST_DESPMAXCUOIDIDUOPOPRCOEFICMONEDAFAC_COM2COMPROB2 MM_MONEDAMON_TXTCOEF_TXTFCE_TIPOCLAVE TXT_CAUSACTACOLORSALDODESPCANCPESOSCCCNOTASNOTA TIENENOTAORDEN AUX_FILTROFAC_COMXCOD_PROP_LOCALXSALDO_NO_MOSTRADOXMONEDA PROCESAR_1P_DEVCCP_1 4C Procesando...(& C(\tmp\G(C T a T  T  T  ~%CT C 6eC D,T  CP C 6,T  CP C 6% o >HU CTFC% > rTRE O%C XTAJ TCP c7TNC dZTND L}TAS ATAJ ITIT HTPR 1 TCP 2,TDC 3OTDP PTOC% > 2TXX >">CCcd6'>CC 6C>CC@z 99_C/CC@z 99_6(%0  S >CC> )(% ! "C %C"#cccompop%%Ccccomp+ C$% !&>DSP: C$%f C%C&:<=^>(LP)C >' ,>CPC 6G(% T(C) C*BU+XSIMPLEXSALDO_NO_MOSTRADO MENSAJE_WAITFECHACAUSACOMPROBP_LOCALXCURSORCOD_PROINICIALXSALDO XSALDO_TOTAL XMAXCOMPRAFN_ROUNDIMPORTECOLORXCCALIFAPROB TXT_CAUSACOMPROB2CANCCANCELCTACUOTAMAXCUOXCOD_PROPROVEEDOTARJETACOMENTARDES_PROV INSCRIPCIO OLOCALIZACION ADUANA_CUITCTACTEOPCCCOMPDESPACHOFCE_TIPOSALDO XSALDO_CHQSAL_CHQ MENSAJE_CLEARx45TC,+fTC[TC, BCgUTXTZg%CxtmppagobNB TCUXCOMPROBXCAUSAXCOD_PROXOPXTMPPAGOCPBT_VIS-&TC TC G+(listados T%C xxtmppagobN T'%CxtmpopbN CcccompopT @%C xtmpcomprobbLCxtmpopbN  %CcccompopT T T T ge02%Cctacte cTCcustomCcomprob%Ccomprob2 %NCcomprob2 %PCcomprob2CcausaCOPCmonedaCcoeficCcod_pro%CxCod_ProbCK TT 5 T |F^J% EcodproH%  3#ge01d  26#ge01c  CcdP123% Ccd1239F G((idECZCZ%C4T T% CCcom_operopagoTT  %Ccuentas OQcuentas%Ccondpago Qcondpago%Cimportac Qimportac F"($F"G(( G((plan E%CConsultando...&%Cdetalle1<Q' ocompras(CC()Q*C(+(,(-d (.d (/d (0d (1d (2d TQ3(4Q5(#Q6C(ZC( ZCZCZ (  (7detalle1odetalle1Q(Xbienes ([9[ C([ Xbieaux ([P\Xatributo ([(];[;^ C(] Xbultos ([(_<[<^ C(_ Xcuentas (`!`Xconver (aC(bZCDE ZCDcZ(CC(8 (80CC9: CC;:қ CC<:қf6Q:Q=!;Q;-Q>Q?Q@C!AC XQBC!:C(XQCCDE QFCDGCXQGC9HCXQIQJQKQLCXQM9NQN9OQOPQQQPRQR-QSQTC!UQUC!VQWC!XQXC!YQZC9HCXQH(7detalle%Cdetalle1c Q'FdeTfTUfiXfj%#W %4 %4 >44>54 Te6kcm_imp_funcionesCm446eFd >Me%mS (%Cd#importacnumeroO Hg K  d4 >S#n d4 >S#o d4 >S#p d4 >S#q d4% >S#r d4K >S#s%Cconver2 Qconver2uTuTv CnocomprasXbienes ([9[converXconver2 DEtED[9:DEQwDxD#DyDzQ{D|Q}DGDbMVQ CXQ QCt~CX Q~(aC(bZCDE ZCDcZ (M DR DI  (u v detalle_remitos% ^ocomprasXbienes ([9[converXconver2 DEtED[9:DEQwDxD#DyDzQ{D|Q}DGDbMVQ CXQ QCt~CX Q~DR (O (u +(aC(bZCD ZCDbZ v detalle_remitos C CF9G((codinsFdG-([9vis_comFdQ 5-C Problemas con el comprobante !!! %Citmdescc qQitmdescc%Ccuentas QcuentasTCFG((tcccord E%C4TT  TCOTTF" G((plan E%CConsultando...& %-'otcomprasXbienes [9[Xbieaux [P\Xatributo [];[;^Xbultos [_<[<^Xcuentas `!`Xitmdescc C ZNC7Z CcZtcccompCC)Q*C 6Q=QCC8 CC;:қ CC<:қfQ:!;Q;-Q>Q?+Q@C!AC XQBC!:C(XQC QFCXQGC9HCXQIC+,-d .d /d 0d 1d 2d TQ3C,-d .d /d 0d 1d 2d TQCCLQL+JQKCXQM9NQN9OQOPQQQPRQR-QSQU!VQWQX!YQZQTC9HCXQHcQ   7detalle (%C detalle_tmpQ<otcccomptcomprasCC)Q*C 6Q=Q-Q>Q?+Q@ QFCXQGC+,-d .d /d 0d 1d 2d TQ3C,-d .d /d 0d 1d 2d TQ+JQKCXQM-QSQUQXQTcQ   detalle_tmpo detalle_tmpXbienes [9[Xbieaux [P\Xatributo [];[;^Xbultos [_<[<^Xcuentas `!`Xitmdescc C ZNC7Z CcZCC8 CC;:қ CC<:қfQ:!;Q;C!AC XQBC!:C(XQCC9HCXQICCLQL9NQN9OQOPQQQPRQR!VQW!YQZC9HCXQH7detalleTfTUfiXfj CF #TC T T T#cm_procs%Cconver2 jQconver2otcomprasXbienes [9[comprascccomp([9:(Qw(Qx(#(+Q{C XQ}CXQG(bC( CFC5C( cNCC( dNDXX666Q  QCXQ~C ZC7ZC( ZC(bZ  N ( ( tcomprasXbienes [9[converXconver2 DEtED[9:DEQwDxD#DyDzQ{D|Q}DGDbMVQ CXQ QCt~CX Q~C ZC7ZCD ZCDbZ  detalle_remitos& CbZCxcCF9G((codinsFdG-([9vis_comFdQ -C Problemas con el comprobante !!!  OA$CConsultando...&%Cccpag 6 QccpagFG((comprobE |ocom_opercuentas!A!:C w6Qw xCSINO6QaCx +Cx x66QB!`'    !A detalle_pag% "TT   CFG((codage ET%Cdet_aplx"QT }occprovQXcccompQ %CCcd1234 acQC COCCCa,CX6QCOCPeCCFCMCcNC5CdNDCLASXX66666QC Q det_aplFK(%R$ T y$TCC DF#)vis_pagFQ%Cdet_apl$Q  L%TCC,g%% TCWG+( co_funciones%Ccuentas S%Qcuentas T TTx$%C%CB'co_imprimir_asientosa F%CoOBJCCbO"& T-<BU XTMPCOMPROB XTMPCAUSA XTMPCOD_PROXTMPOPXTMPPAGOLISTADOS XXTMPPAGO XTMPCOMPROB2CCCOMPFAC_COM2FAC_COMCAUSACOD_PROPAGO OPEN_FILESGE02OOBJCC ADDPROPERTYXCOD_PROCTACTEPROVEEDOCODPRO CPBT_VIS2GE01COMPROBIDOPXDTDTXDTM P_PROVCONTMONEDACOEFICCUENTASCONDPAGOIMPORTACOEXPLAN MENSAJE_WAITDETALLE1COMPRAS MM_MONEDAMONTXT RECEPCIONCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXO MO_TOT_COMTIPO_IMP OLDTIPOIMP OLDIMPORTITMDESC_INSBIENESDESCRATRIBUTOBULTOS ENTREGA_BUPDRECIBIDOSALDOABREVCUENTADCUENTACONVERTRANSFMOVDESPACHOCODALT1CODALT FACTURADO SALDO_FACTNOTADTIPOIMPPESOXUNCMBIEAUXORIGENPROCEDLOG1XCENXLINEALINEACUELINXGRUPOGRUPOCUEGRUCOD_INSCODIGOATRCLAVEBULCOD_CUEREFREFITMITEMDETALLE XDTIPOIMP OCENLINGRUXCUENTA INICIALIZARXLINXGRUTIPO_DE_COMPROBANTE_DESCRCM_IMP_FUNCIONESP_IMP_POR_ITEM REC_DESPA REC_FLETE REC_SEGURO REC_BANCO REC_HONORREC_FOBCONVER2XOPXHACERNUMEROFECHAENTRASALECANTIDADREF2REMITOID_EXT_CREFCAUSACAUDETALLE_REMITOSORDENTABLA_RESERVAS MENSAJE_CLEARCODINSVIS_COMMENSAJEITMDESCCXORDEN_DE_COMPRAFN_VALTCCCOMPTCCCORD XTCCCOMPREGDTMTCOMPRASENTREGAFEC_ENT ENTREGA_CRECEP2RECEP3MO_NETOSOLITM DETALLE_TMPXOC XPER_ENTR XPER_FACT XPER_IMPFPORCENTAJE_CUMPLIMIENTO_OCCM_PROCSFEC_COMRECENOSTKCCPAGCOM_OPERDES_VAL DIF_VALOR GANANCIASSUBNUMCAJ_PROAGENTEASIDIAECHEQUEDES_PROVDSP DETALLE_PAGCODAGE XCOBRADORNOMBREDET_APLXID_PAGCCCUOFECREFIMPORTECO COMPROBANTE2CAUSA2CCPROVOPR XPONDERADO XCOEFICIENTEXDESPLAZAMIENTOVIS_PAGXASIENTOAREA CO_FUNCIONESXERRXERRMSGXFECHABUSCAR_ASIENTOIMPRIMIR_ASIENTOCO_IMPRIMIR_ASIENTOSC%CCONDPAGO 6Qcondpagoplan%CCOM_OPER pQcom_operoper%CVEN_OPER Qven_operven_ope%CPROVEEDO QproveedocodproFG(G!(%CBIENES 7FQbienescodins%CFLETES rFQfletescodfle%CTCCCOMP F!Q \TCCCOMPtcccord%CCOMPRAS FQcomprascom_ord%CCCCOMP 9FQ \CCCOMPcccord%CCCPROV rFQ \ccprov%Cccpag Qccpag%CAGENTE FQagentecodage%CBULTOS F Qbultos%CATRIBUTO ?FQatributo%CSTOCK nF Qstock%CSTKXDEP FQstkxdep%CTR04 F Qtr04%Cpaises FQ\paisescodigo%Cidx04 IFQidx04idx04%Cprovinc FQ\provinc%Ccatpro Qcatpro%Cbieaux Qbieaux%Clineas Qlineas%Cgrupos <QgruposU CONDPAGOPLANCOM_OPEROPERVEN_OPERVEN_OPEPROVEEDOCODPROBIENESCODINSFLETESCODFLEP_PRIVTCCCORDCOMPRASCOM_ORDCCCORDCCPAGAGENTECODAGEBULTOSATRIBUTOSTOCKSTKXDEPTR04P_SYSTEMCODIGOIDX04CATPROBIEAUXLINEASGRUPOSR4FG(G((comprob%a*CAGUARDE, ESTOY TRABAJANDO !!!G EG %C4 B+C+  i>C //#;%C ZC Z  C ZCZ TCO G((testGE  C ZCZG ;%C ZC Z  C ZCZ  #5>    G((comprob #%C 75>    "% CP aH G((testG EG +C+  0;%C ZC Z  C ZCZ( TCO!CC ZC Z # G((testHFG( CBU XDESDEPRGCCPROVCOMPROB MENSAJE_WAITXCOD_PROCOD_PROCANCELADELANTOCAUSACUOTAOPREFCAUCUOOPRREGTESTFECREFFECHAIMPORTEFN_CANC MENSAJE_CLEARNTG+(listadosstk_visFG((codinsBUXCODIGOOBIEDATA_CODIGO_VACIOLISTADOSSTK_VISBIENESCODINS45 T%]TCCCC_VA%%CT+TCCCC_VA%%CT+TCCCC_VA%%C]T+TCCCC_VA%%CT+TCCCC_VA%C T% BUD1D2D3D4D5TEMPFMT4 TFG((tccvord%G ETEST=HmZ TS/A TOk TArm.  TEnv. 2TTerm ZTFactTSTK=H? TS/A TAp TBloq "TRech 2?T??TCRE=Hj$ TS/A TAp TBloq TRech 2$T??TGER=HO  vTS/A TAp TBloq TRech 2 T?? BU XPEDPRIVAAATCCCOMPTCCVORDORDENEST_DESPSTOCKCREDITOGERENCIA\4!%C8-C6?9B@z 99.99 QB@z 99BUXDge02-3BUGE02d4%%%CP #%C |  =C0Este comprobante no se puede aplicar a otros !!!  +CUnicamente en moneda local !!!  YKC>Slo se puede realizar en la visualizacin por comprobante !!! BU XMONEDAXTIPOXAUTCTACTECAUSAREC_PROVCOD_PROCOMPROBAPLICARMENSAJEG+(listados G$(L-TCImpresora ? (0/1/2/P)012P%0bB9J(     %C T TB TTCC$* CC^=T Pgina : CCZ#TCLC>C>XCL. Proveedor : [] Notas : T(C%TT Pgina : CCZ#TCLC>C>X CL(Continuacin) TCT CBULISTADOSXIMPPREGUNTAXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLD IMP_STARTLINMAXLINPAGXTIMEAAAAPROVEEDOCOD_PRONOMBREZ COMENTARIOIMP_END4%Cctacte)FQh1\tmp\CC CN N N C D D N  NDN N C CDN N N CNDNNCC LN N !N"N#N$C%N&N'N(D)D*N+L,N-N.N/C(0C1C2N3N4N5C6C7C 8N 9N :C;C<N=L>N ?CQ\tmp\BU@XCURSORCTACTEP_LOCALCOD_PROCOMPROBCAUSAIMPORTEUSS_DEUMOTIVOCOMENTARFECHAVENCOPERACIOBULTOSHOYADELANTOADEL_USSREFCAUCANCELRECIBOINGTESS1CONDLISTAFECREFCUOTACUODES_PROVCOD_CUEMARKEDSUCASIENTOPASEAPROBCALIFTIPOCTRLUSRMONEDACALLFECESTDIASMARCAEST_DESPMAXCUOCOEFICCLAVE TXT_CAUSACTACOLORSALDODESPCANCIDIDUOPOPRCOMPROB2MON_TXTCOEF_TXT TIENENOTAORDEN AUX_FILTRO8F G((id TCG( E%C4 LC?Error !!! Probblemente una reindexacin de CCPROV lo resuelva. T T T /+C+   C ZCZ TT  Hset filter to &fil BUACCFILXOLDCOEFCCPROVID XID_APLICANTEMENSAJECOEFIC XOLDTOTALXOLDDIFCOD_PROCOMPROBCAUSACUOTAOPIMPORTEUSS_DEUW4%C3BaTc G((id!TCZCZ E%C4'%CZCZ(P% CC  ( C ZC Z CZCZ kCge02/REIMPREC : Aplica a :  El importe : CC@z 999,999,999.99_ T %ah #% OA12cdLH SError con importes.  Comprob :  Ct Ba %a%cc> >a_.> CZCZC] >aO>     >a TCO!TCZCZ%C E%C4'%CZCZ TCO> >a   T%CArchivo desindexado !!!! :!ge02.PRGArchivo Desindexado dBCNo puede imputar ms de CCc@z 999,999,999.99_  [C"El importe a imputar supera el delC "comprobante. No se puede imputar.   $IC<El comprobante no es comienzo de Grupo. No se puede imputar.   T"R,Archivo desindexado !!!!:!ge02.PRGArchivo Desindexado RC!No se encuentra el comprobante alC que se imputar el Recibo. T T T T TB-U"XCO2XCA2XCU2XOP2XIMPORTES1IDXC2XCOD_PROCAUSAREFCAUCUOOPRCOMPROBCUOTAOPLOGMSGXFECREFFECREFREGUNIERR_HANDIMPORTEUPDREGISTROCOD_PROIDUCANCELREG2REG3ADELANTO TTS_ERRORMENSAJEREPORTE|5F TCG( G((id E T%C4/+C+   C ZC Z T H%Z Ta TCT6Diferencia de importes totales al aplicar comprobantesZT Original : CC@z 9999,999,999_ Actual : CC@z 9999,999,999_GTCta.cte. del proveedor  Comprob: C[!ge02.PRGC0Error con importes al aplicar comprobantes en laC cta.cte. del proveedor C AVISAR AL PROGRAMADOR!set filter to &aux2 BUAUXAUX2MES_1MES_2MES_3CCPROVID XID_APLICANTECOD_PROCOMPROBCAUSACUOTAOPIMPORTE XOLDTOTALG_ERROR TTS_ERRORXCOD_PROREPORTEMENSAJE  0TCZC Z"%C kB-F %Ca k T  T C%Ccopia_originalFQTCC]RCConsultando...EoccprovCZC ZC' 1\Q\%CborrarFQ%Cborrar1FQ%Cborrar2FQ%Cborrar3FQ%Cborrar4#FQ T T%OFG((comprobE%C4 Tooccprov !"#$%&' Q()*+,-./01-Q2-Q3 4CZC ZC' !C5%a6 borrar%5occprovborrar !"#$%&' Q()*+,-./01-Q2!Q6-Q3 4C%7CXN#$C.ZC4ZCZC Z +#$C.ZC4Z C' borrar1 \=occprov !"#$%&' Q()*+,-./01-Q2Q6-Q3 4-borrar1 occprov !"#$%&' Q()*+,-./01-Q2!Q6L C c d 123 0#$C.ZC4ZCZC Z  Q3 4C%7CXACZC Z!C5%a6  0borrar2occprovborrar1 !"#$%&' Q()*+,-./01-Q2Q6aQ3 4CZC Z#$C.ZC4ZC' +CZC Z NCZC ZCZC Z borrar3.o borrar2borrar1Ǽborrar4T8CC]R%C ccprov_venc F9Q7o borrar3borrar4Ǽ1\tmp\8Q\tmp\89& ,,"& #$C.ZC4Z:occprovborrar !"#$%&' Q()*+,-./01-Q2!Q6 4#$C.ZC4ZCZC Z+#$C.ZC4Z C' borrar1T;CC]R2& CZC Z(\tmp\;occprov !"#$%&' Q()*+,-./01-Q2!Q6 4C%7CXKL C c d 123  N#$C.ZC4ZCZC Z +CZC Z 0borrar2roborrar2 !"#$%&' Q()*+,-./01-Q2!Q64 ,/borrar1borrar2,,, borrar3T;CC]R=o borrar3borrar11\tmp\;Q\tmp\;<& ,,#i1 ccprov_pend=C(~CZC Z0>&/-H, C>1FC dA>1ND cd>1NC L>1AS 1>1CP 2>1DC H>1PR 3>1DP 2,>1XXF9<> >F9 T? T@(~CZC Z{^(>T??T@@ TA!TB#$C.ZC4Z TCCO >2a%C#$T G((id EB>!!A >2aF9G(( referencia #CF9F9_>F9>?@#$.4 '%,CZC Z-C]F9 >2a TDCOkCge02/REIMPREC : Desaplica :  Importe : CC?@z 999,999,999.99_EF<& 1CZ1& & ==& & 00& 66& &&& ~% uC cccompop>=FG  >=#) CH% ge02-2(J F< G((vencKTK?c%KF<#) ~%K6V><&6TKK6 ~><&K TK >/a%K! TJa%JF<~&0TL<,7p ccprov_venc&<&9,L7  TM+NtrsacMccprovccpag%M TMKPtrsacMge02.prgAplicacin de Comprobante. ID: #CRQ%M%@ Ste_pago TU TV? TWCO TX- TYF9~&Z TZCOC [ #Z #D%/%V >%C$   >2aG~2T\9-%C' pccprov9#9#$9$.9.494'9'%9%!9!,9,-9--\7 % Fpcopia_original9#9#$9$.9.494'9'%9%!9!,9,-9-a#)<] ]^(]rccprov] }G qccprov-\G% yAC4Probable error en los ndices de la tabla CCPROV !!!^G F9G~2bG r%CLCcd123B#$C.ZC4ZCZC ZC#$  QT\9-!C#$C.ZC4Z_GF9G C`%%O aSCH $bte_pago TM TM%M) T TKctrsacMge02.prgAplicacin de Comprobante. ID:  Td %+ete_pagoF9Q \tmp\8.dbf \tmp\8.cdxF<Q \tmp\;.dbf \tmp\;.cdx CfBUgXAUT XPAGOLDIMP XPAGNEWIMP XID_APLICANTECTACTECOD_PROCOMPROBCAUSACUOTAOPREC_PROVPROVEEDOREG_LOCKXOLDDIF XOLDTOTAL TOTAL_CMPCOPIA_ORIGINALXCOPIA MENSAJE_WAITCCPROVP_LOCALBORRARBORRAR1BORRAR2BORRAR3BORRAR4CCPAGIMPORTACIMPORTEUSS_DEUMOTIVOFECHAHOYADELANTOADEL_USSREFCAUCANCELS1FECREFTIPOUSRMONEDACOEFICIDIDUCUOMARKEDVENCCONDUPDINVOPRXTIPOAPAGARXCOD_PROXCURSOR CCPROV_VENC REFERENCIAXCURSOR1 CCPROV_PENDCOMPROB2REGISTROACC1ACC2XIXXREFREG11REGUNILOGMSGCCCOMPFAC_COM2 MENSAJE_CLEARGE02 XRESULTADOXSALDO_PENDIENTEXIDPENDAAALOCK_GTRSACBEG_TRANUSER_LOG PUB_INDEXPAG_QUITAR_IMPORTACIONTE_PAGOXIMPORTE XOLDIMPORTEREGSALIRACUMXSCANAPLICAR_PARCIALXIDUTMP_ARRMENSAJEFN_CANC IMPORTE_OKP_EMPPAG_AGREGAR_IMPORTACIONEND_TRANTTS_IDPAG_AGREGAR_IMPORTACION_DIARIO UNLOCK_ALL%Cctacte 5TCcustomCcomprobCcausaCcod_pro#%C \CCCNOTAS.DBF0 5h1 \CCCNOTAS.DBFCM&  <%Ccccnotas 8FQcccnotasF G((id T     E %C4  > cccnotaBU XTMPCOD_PRO XTMPCOMPROB XTMPCAUSACTACTE ADDPROPERTYP_SERVERIDNOTACCCNOTAS XCOMPROBANTECOD_PROCOMPROBCAUSACCCNOTA4G+(listadosTC]TCC R TFG((idx04EC$%C4%TC TC T /BCLos ndices para el CC$* no fueron definidos !!! T T%JB T  T  T a cpbt_provis( % Brccprov  ! HC$Cpbt Provisorio C$C$HC$ C$! HCZrctacte  ! HC$Cpbt Provisorio C$C$HC$ C$! HCZ C"BU#XMONEDALISTADOSXIDUXCOMPROBXCAMBIOIDX04 FN_CAMBIO XERRMONEDAMENSAJEXIMPORTEXSUC XRESULTADO CPBT_PROVISCOD_PROCOMPROBCAUSAFECHACOMENTARIMPORTECALLVENCREFCAUCONDLISTAFECREFSUCMONEDACOEFICHOYCANCELIDIDUCTACTEAPLICARr%HK0C#No es un comprobante provisorio !!!BK%CZCZCZC Z'CNo debe estar aplicado !!!BT  F G(G((FG(G((#qccprov   #qctacte   &CComprobante eliminado !!!BUCTACTECAUSAMENSAJEREFCAUCUOOPRCOMPROBCUOTAOPXIDUIDUCCPROVCOD_PROXCOD_PROCConsultando...TCC]Roccprov     Q  Q-QC CX:L C c d  NCZCZCZCZ C$ 1\tmp\Q\tmp\ TaT CC]R"h1\tmp\ !MQ\tmp\ ! C" T# T$T%reclamos(%a<%Creclamos FQreclamos'CActualizando...F~8!T'CZCZ4preclamos(a'(  rreclamos )!CZ#$C$%C]!!FQF!Q\tmp\\tmp\  C"BU* MENSAJE_WAIT XPENDRECLCCPROVCOD_PROCOMPROBCAUSAIMPORTEUSS_DEUFECHAADELANTOADEL_USSCANCELS1TIPOMONEDACOEFICIDIDUCUOTAVENCCONDAPAGARMARKEDOPXCOD_PROREFCAUCUOOPRP_LOCALPENDRECL XRESULTADOXNOTANOTA MENSAJE_CLEARXTIPOXSUBTIPOXVENCRECLAMOSXIDOLDSUBTIPO|%Creclamos 1FQreclamos0TCZCZTCC]RCConsultando... QoreclamosCXQ CXQ  1\tmp\Q\tmp\ ~ C C Ta seguimientos(%DCActualizando... T"trsacreclamos%, Tatrsacge02.prg9Reclamo de Comprobante en Cuenta Corriente de Proveedores%F ~Dpreclamos   F Tatrsacge02.prg9Reclamo de Comprobante en Cuenta Corriente de Proveedores T @ CFQ\tmp\ CBURECLAMOSXIDCTACTECOD_PROCOMPROBCAUSACUOTAOPXCURSOR MENSAJE_WAITTIPODSUBTIPODVENCIDP_LOCAL SEGUIMIENTO TIPO_RECLAMOS MENSAJE_CLEAR XRESULTADO SEGUIMIENTOSAAALOCK_GTRSACBEG_TRANNOTAIDUXCOD_PROEND_TRANTTS_ID UNLOCK_ALLH CA%>CartaHI! A1r>Aviso 1 A2>Aviso 2 PL> Prelegales D1> Documento 1 D2!> Documento 2 FXJ>Fax EMr>E-Mail TE> Telefnico RE> RespuestaBUTIPOTIPODSUBTIPOSUBTIPOD74H% C7 BFC dV BND cu BNC L BAS 1 BCP 2 BDC 3 BDP H BPR 2% BXX BXXUXCAUSAt%Cpendrecl$FQCActualizando...T*oreclamosXproveedo Xccprov CXQ  CXQ   CXQQ QQQ   1 \pendrecl ~ C0>CC\ C \ C T opc_imp_pan(He 4?reclamos_pendientes e?reclamos_pendientes(!"QBUPENDRECL MENSAJE_WAITXCOD_PROPROVEEDOCOD_PRORECLAMOSNOMBREFECHATIPOTIPODSUBTIPOSUBTIPODVENCNOTACPBTIDCCPROVCPBTVTOIMPORTEADELANTOCPBTIMP CPBTFECHAOLDP_LOCAL TIPO_RECLAMOSTIPO_COMPROBANTES MENSAJE_CLEARXDESTINO OPC_IMP_PANRECLAMOS_PENDIENTES-TCZCZ6%C ZC Z0TC ZC ZC BU XIDCTACTECOD_PROCOMPROBCAUSACUOTAOPREFCAUCUOOPRFN_CANCXK%CZCZCZCZ%Ccd123% ge02_difcbio_2 :C-No es un comprobante en moneda extranjera !!!   %CDebe ser FC, NC o ND !!!  M5C(El comprobante no es cabeza de grupo !!! BU CTACTECOMPROBCAUSACUOTAOPREFCAUCUOOPRMONEDAGE02_DIFCBIO_2MENSAJE84%C . T% %CCOM_OPER%5| T %4 T  T  T+listados    (TCT BU XNUMXDECXMONXMONEDA P_MULTIMONTIPOXMOTIVOMOTIVOFN_CALCLISTADOSMONEDACOEFICFECHA4  T-%OTCWFG((comprobECZCZ%C4% Ta5C(No se puede aplicar un pago provisorio.  F BU XCOD_PROXCO1XCA1AUXOLD_AREACOM_OPERCOMPROBAPLICMENSAJEO4F TCO^(odetalleCF #TTC T T  T  T H T   7 T T     T  T T    T Cd d d d d d TTC d d d d d d TTC d d d d d d TTC d d d d d d TT %T   # T T>  a T %r -> aT% -> aT%. -> aT>BU XCOCIENTEXMAXXREGXTOTALAAADETALLEITMTOT_COM XRECEPCION1 RECEPCION XRECEPCION2 XRECEPCION3 XRECEPCION4 XTOT_COM1COS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOCOEFIC XTOT_COM2 XTOT_COM3 XTOT_COM4XACCXTOT_COM_ORIGINAL XACC_TOT_COMUPDFBUDETALLEIND 4 ,TCCcccomp+ CcccompO60TCCcom_oper+ Ccom_operO6%Cper_prov Qper_prov T Ta% P co_aut %%PU; trsactcomprastcccompccprov %H trsaccomprascccompdiariogconcepto  trsacconsproveedocom_operccprovchequescomprascccompccpagper_provret_provdretprovdiariogconceptoimportac%=Tvis_com1T$Modificacin de imputaciones y otros TtrsacTC T%C _T T% Ttrsac%C $TC@z 9999,999,999_C ,%( T T TTGNo se pudo iniciar la transaccin o ha sido abortada por el usuario !!! 4T'No se pudo seleccionar el ejercicio !!! T% # %4 # BUXMSG XCAUSA_CTACTEXREG_CCCXREG_COMPER_PROVAAA XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTCCCOMPFEC_DGILOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN#VIS_COM_GUARDAR_CAMBIOS_TRANSACCION TTS_ERRORXOKEND_TRAN XXXCOMPROBCTACTEOPUSER_LOG PUB_INDEXCAUSATTS_IDCOM_OPER F ~m%PFG((ordenitmECZCZ% > > >  F /-C ZCZC ZCZ  %C4x>%  $F^(%PFrtcompras  F rcompras% P i-cm_imp_funciones-0cm_imp_funciones !"F -    %C4>  >!! >*T#Comprobante no encontrado !!! T$ B#F> >!%Px%T%&' VF(G((opago E#%) C*+ T%(' R T$8T#+Error interno en anulacin pago contado !!!%%t T,% T- T.*/ co_funciones-.%&1%-Y%x'T2&3&4&+C&1 5cm_anular_comprobanteT7& T8a T.%9 co_compras8a., '8T2C@z 9999,999,999_OC*C(;T%('5 te_anu_pag T8a T##9co_pagos8a#, T.#%8 U T$ T#. p T#. B#U> XCAUSA_CTACTEAAADETALLETCOMPRASORDENITMORDENITM ENTREGA_BTCCCOMPFEC_ENTENTREGADESPLCOMPRASOPPAGOCTACTE XXTMPPAGO RECEPCIONTOT_COMCENTRO SUBCENTROCOD_CENCOD_CUEDESC_INSDESCRLINEATRANP_IMP_POR_ITEM ACTUALIZA_CAMBIOS_EN_IMPORTACIONCM_IMP_FUNCIONES OLDIMPORT OLDTIPOIMPIMPORTACTIPO_IMPLOG1XMSG TTS_ERRORXASIDIACCCOMPASIDIACOM_OPEROPAGO P_PROVCONTCOD_PRO XOLD_ASIDIAXERRXERRMSGBUSCAR_ASIENTO CO_FUNCIONESFEC_DGIXIDFAC_COMCAUSA ANULA_ASIDIACM_ANULAR_COMPROBANTEXOP XRESULTADO REG_ASIDIA CO_COMPRASFECHA TE_ANU_PAGCO_PAGOST 7    %Ccuentas cQcuentasT C TT C Tc T T%   B T+ co_funciones%C 1 T B T+ co_funciones%C  T B T+ co_funciones%C  T B Taco_aut% v>C$Ejercicio inexistente para la fecha C*!!!B- Tltrsacconsproveedocom_operccprovcccobdiariogconcepto% T:trsacge02.prgAjuste Dif. Cambio% %CproveedocodproTCctacteO% CF#)%=T !F" G((oper E %C49#6T $ e T % !T&C @z 9999,999,999_T'A6C)&'Ajuste Dif. Cbio Tomada(rccprov*+,-./0123456789:;&' DIFERENCIAS DE CAMBIOC$  NgmC&'CZC]rcom_oper*<=>1?$@9+3ABCDE8&DIFERENCIA DE CAMBIO c 4NgmCAC$)krccpag*+1FGHIJ&'K -FK #LMte_pago%  F#)%T !F" G((oper E %C4#6T $  T % !T&C @z 9999,999,999_T'A9C)&'Ajuste Dif. Cbio No Tomada(rccprov*+,-./0123456789:;&' DIF.CBIO.NO COBRADAC$  CZC]rcom_oper*<=>1?$@9+3ABCDE8&DIF.DE CAMBIO NO COBRADA c 5AC$) krccpag*+1FGHIJ&'K -FK #LMte_pago  T  T:Otrsacge02.prgAjuste Dif. Cambio TPBUQXERRXMSGXFECHAXCAMBIOXMONEDAXDIFCBIOXCOD_PROXCOMPROBXCAUSAXCUOTAXOPXTOMADA XNO_TOMADACUENTAS XCTADIFCBIOOBTENER_CUENTAS_UNICAS CO_FUNCIONESXCTADIFCBIONOTOMADAXCTADIFCBIONOTOMADAREG XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACBEG_TRANPROVEEDOCOD_PRO XREGCCPROVCONSP_TE_OERACION_VERSIONXAJUSTEPAG_OPERCOM_OPEROPER OPERACIONSYS_OPERACION_FONDOS XACOMPROBXACAUSAUSER_LOG PUB_INDEXCOMPROBCAUSACUOTAOPIMPORTEMOTIVOCOMENTARFECHAVENCHOYREFCAUCUOOPRMONEDACOEFICIDIDUDES_VAL DIF_VALORCAJ_PROCUENTATIPOUSRASIDIAAPLICMONEXTMONPASE COMENTARIOUNIMPORTACTOT_PAGANULADOCTACTE CPBT_MANT REG_ASIENTOTE_PAGOEND_TRANTTS_ID4 TCO T'TC  6TCFT CD T  T  T  T  T T T(~CZCZp%M T T#listados d T\%A L c d 1 2  T   l\%A L c d 1 2  b'T  C6  hT  T  'T  C6 +T  C6 'TC6 '%CZCZATc KT T T T! T"C T#  T$C#c6T%$# # T& BU'XCAMBIOXIDXMONEDA_DESTINOXREGXIMPORTE_COMPROBANTEIMPORTEXIMPORTE_COMPROBANTE_ACTCOEFICXMINIMO_PAGO_POSIBLEXMAXIMO_PAGO_POSIBLEXSALDO_PESOS_REALXSALDO_PESOS_REAL_CON_AJXSALDO_MO_REAL_CON_AJXSALDO_PESOS_REAL_SIN_AJ_ACTXSALDO_MO_REAL_SIN_AJ_ACTXSUMA_PAGOS_SIN_AJ_NI_CABECERAXSALDO_PESOS_AJUSTADOCOD_PROREFCAUCUOOPRMONEDA XCAMBIO_CPBTXMENSAJECAMBIOLISTADOSFECHACAUSAMOTIVOCOMPROBXSALDO_MO_REAL_CON_AJ_PESOSXSALDO_MO_REAL_SIN_AJ_PESOSXDIF_CBIO_TOTAL XCALCULARXSUGERENCIA_TOMADAXSUGERENCIA_NO_TOMADAXSUGERENCIA_SUMATORIA XSALDO_MO%Ctventas 3Qtventas%Ctccvent cQtccvent%C tmp_reservasFQ% OotcomprasQXreservasQ CZC ZNCZXtccventQ XtventasQ CZCZCZCZXclientesQ !!Q     CC XQCC XQCQC QC QC QC QCCXQCCXQCC(XQAQCCCҡ CC6Q tmp_reservas  otcomprasQ QQCXQ CXQ CXQ CXQ  Q C XQC XQQ Q Q Q QCXQCXQC(XQAQQ- tmp_reservas%Ctmp_reservas_18F"Qo tmp_reservasQQCQC Q C Q C Q C Q C Q C CQSTOCK / SIN RESERVARQZQ1#\tmp\tmp_reservas_1F"~ F-"%C4{!>STOCK / SIN RESERVAR"  Q"F"#\tmp\tmp_reservas_1&#\tmp\tmp_reservas_1.dbf& CZCZ%BU&XOCTVENTASTCCVENT TMP_RESERVAS P_CM_RESERVASTCORDENITMITMOCCOD_INSATRBULDESC_INS RECEPCIONRCOMPROBCAUSAPEDIDOPEDITMCANTIDADTTRANREFOTNOMBRETIPOTVENTREGAFEC_ENTTCOMPRASRESERVASCLIENTESCCOD_CLITMP_RESERVAS_1P_LOCALINIDfn_cancsal_chq query_pro_2_p query_pro_2_c procesar_2 query_pro_1_pS# query_pro_1_cf, procesar_18fn_val`@ cpbt_vis2@cpbt_visA open_filesorepairWustockayfn_descy fn_estado?|fmtcpbt_modcpbt_imp9impnotas create_tmp total_cmpyaplicar_parcialC importe_okaplicar comentar_cpbt cpbt_provis@ nocpbt_provisreclamos seguimiento tipo_reclamosntipo_comprobantesj ver_reclamos cpbt_mantT ver_difcbio]fn_roundrec_provvis_com_item_duplicar vis_com_item_eliminartvis_com_guardar_cambios#vis_com_guardar_cambios_transaccion#ajustar_dif_cbio"calcular_ajustes|tabla_reservas!AB3u2"AAqAb2ABrbatr1AAAu2ABAAAAUB"DABB2AqaaaaqAAAAAAqAAAAAq2qrqAA!AQ*2r1111ArqAA!A0/!2qrSr!qSASABB2<rrBr$BQAQABA1AAAQAAAAAAAAAAA1AA$s3AQaAAAqABB1AAAAarAAAAbAAAbBABBeAB2ArqAA!A2 0/A2Ar1111ArqAA!A2P5 14A!2rrSA3BrABB2BAA1AAAQAAAAAAAAAAA1AA$s3AQaAAAqABBbAB2qqaAaA2qA3q41"ArAAArb11AAAAaAqqAbqAq6r6sAA221AAAAAqqAcA@/ArsrtRAB41aAAcraaaaaaABAAA1Ar"ArrrAAAA1ABs11spqBA#!!Csr1BrrA31AA,brrrAAArAq1"11ArArs2ARrAAr2b1ABAArBAqAA2AAAAqaaqAqAAAAQArAqAAArAAbAArQAaA!A!A!A!A3qra2AbaBAbaUAAUA"BABAaaABAraB2!rA2qq1A1Q!AA1Q!AA1Q!AA1Q!AAQ!A2qs2A1A111Q1Q1Q1QAc1A111Q1Q1Ab1A111Q1Q1Ab1A111Q1Q1A2qAA2A2711AAAAA2"BAAB1qq1qq1qqABAAB2qrqAAq9D2raAAAbB21qAr1qAQRAqQAAB!AAA!A!Aq2rraAAA12qEqA3q%qAuqAARUqzqAAqAAqAAqAAqAAqr1AA7A )!SqAAw!S!!,S2RAAAAAAAAAArwrADq1ArQrqJru1AAU!qr2rQ1A2AABBAuAtB2226AwAqB14AAAcA "u Rq2Bda"ABAasbb#AarAaUBAAAAAB2AqArABB2taB3UAAqrQAB2q"qt1!A!A2AArqAAB2rAAqAAraaraa31bB2RrR!Q1AArrD BBrAqAB2ArQAr"22tDqAAAArAB2Q!QAQAQqQQAQQ1QqQaAA2qAAAAAAAAA2qAAAq11ABB3qbAA2aaAQAQAA2"AAAAAA!A2Aq1QAAA2qqrr1A11A1A2A2B2BbB2qA@1AAAB AA2A"!A2AB1AABAAABAAA3qrBqr1AqAAAqCqQqAABrArDBB2q1AA223rRR2CAABA2q1A#1A"A"A"AqA22eArQ3tQ2rRABbUrr"B2tQ2rRAB%rr"BAAB3vq"!21Arqqr2BBABRB3q1A1AqAA$AqAA sArAAr!bA1 J Q yh  4La4-AJxGASS^ ^_.___I@i{\(,<6Z;bCwFX!79SUsh|3 3:7c <R7? b?B v&BJ9 )J5P OPR R-T FTX XY3 Y[= ([7]M @L]^k R_i ik kt tłp0{ t^%Y [> iUP_BIE_REVISADOACCESO TMP_BIEAUXREVISADO"Csugerir_no_num%G((codigo #6 +C %CgH. !(+TCCCCgZC>=G((descins T BU XCOD_INSSYS_MP_NUMINSCODIGOBIENESCOD_INSOEXOBIEDATA_CODIGO_VACIODESCINSbienes2UACTUALIZAR_BIENES_FASTBIENES2THIS FECHAHORA >NNNNNNSS S S S N NN>CH 1>NN ]>SN >SN >SS%%C>  > U CANTXBULT COMPUESTOCONJUNTO IMPORTADOREVENTABULTOS ATRIBUTOSVENTACOMPRAPANOLPRODUCIVAGENERICOSERIESTIPO_ARTACTU_PEITCMEDCOD MEDAUXCODPESOCOD_INSTHISSUGERIR_NO_NUM P_CONTSTKCONTSTKLOTESP_BIE_REVISADOACCESO TMP_BIEAUXREVISADOD abmbul_gen abmatr_genUXCLAVEAGREGAR_GENERICOS_FALTANTES ABMBUL_GEN ABMATR_GEN,TTTT2   CXCXTTTT T T  %T T UXTMP1XTMP2XTMP3XTMP4THISFORM TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4BIE_HIJAS_ABRIRTIPOABMXCODIGOTHISOLOTES ABMBIENESLOTESOCONTSTKCONTSTKBORR_AGR`VCXCX   FU HIJAS_GUARDAR ABMBIENESCOD_INSTHISFORM DOS_COPIAR TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3TIPOABMOLOTESOCONTSTK TMP_TABLA_4T%%Cbieaux TMPTABLA3q tmptabla3 F $ \tmp\ C C TMPTABLA3 `%Cbieaux TMPTABLA3 q tmptabla3 F $ \tmp\ C C TMPTABLA3 %C tmp_bieauxFQ# \tmp\ .dbfUOESPXID ABMBIENESCOD_INSTHISDOS_ESPEJAR_MULTIPLEDOS_CONTROLADORESPEJOS DOS_SETDB_UNO TMPTABLA3CODIGOP_LOCALTHISFORM TMP_TABLA_3DOS_SETDBBACK_UNO DOS_SETDB DOS_SETDBBACK TMP_BIEAUX%N%Sb4pbultosN N %S6patributoN N &%S S 3pstockN N U ABMBIENESVENTABULTOSCOD_INS ATRIBUTOSATRIBUTOSTOCKCODIGOBCUXCODIGOSE_PUEDE_OPERAR# T%CPTCX%CtTCXTC]%C tmp_preciosF QLocfg_lisCOQ CCC gCC g CX6Q QQQQQQQQ CSSN6QCN QS  1\tmp\Q\tmp\ & % *d J( ~&?%CC ZCXlispreclisxcli"F k>F #)TC]1% !S "S  D T# T$ T% T&T' T( T) T* T& T+ T, T- T. T/ T0  T1 T2 T#T'T$ T3C$ T( T) T* T& T+ T, T- T. T/ T0~4 cs_generar12#C$$'3()*&/0+,-.%C tmp_costosF6Q<h1\tmp\7N N8N9N:N;N<N=N>N?N@NANBNCNDDQ\tmp\6r tmp_costos7 89:?;@<A=B>CD*$*$&&++,,--..'TC]%C tmp_bieaux FEQGobieauxCXQFGHC 1\tmp\Q\tmp\E+CN  >H#)%ICJUKXTIPOABMXCOD_INSXATRXBULXTABLA1XTABLA2XTABLA3XTABLA4XXX TMP_PRECIOSLISTAMONEDA MM_MONEDASIMBOLODESCRPRECIOBONIFMARGENOPRECIOOBONIFOMARGENCAMBIOOCAMBIOCOSTOAUTBLOQCFG_LIS P_BIE_PRECACTIVAP_PRECIOS_ABM_ACTIVASP_LOCAL ARR_CAMBIOSLISPRECBIENESBULTOS ATRIBUTOSXCOSTO XMONCOSTO XDESCUENTOXDESCUENTO_ORI XFECHA_COSTOXMONORIXCOSORI XCOSTO_ORI XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCOSCPBTXCOSCAU XERR_COSTO XMSG_COSTO XFECHA_TC OBTENER_COSTO CS_GENERAR TMP_COSTOSCOSTOOCOSTOOMONEDA DESCUENTODESC2DESC3DESC4DESC5 ODESCUENTOODESC2ODESC3ODESC4ODESC5FECHA TMP_BIEAUXORIDESCRBIEAUXCODIGOP_PROPIEDADES_ADICIONALESBIE_HIJAS_PROPIEDADES"TCtmp_propiedades TCC] %C propiedades%C QF?(\tmp\   a $Q\tmp\U XCOD_INSXBULXATRXTABLA4XALIAS PROPIEDADESP_LOCALCOD_INSATRBUL<%C tmp_precios:FQ\tmp\.*%C tmp_costosFQ\tmp\.*%C tmp_bieauxFQ\tmp\.* %Ctmp_propiedadesFQ\tmp\.*U XTABLA1XTABLA2XTABLA3XTABLA4 TMP_PRECIOSP_LOCAL TMP_COSTOS TMP_BIEAUXTMP_PROPIEDADES /4   %C CoLog -T Cloguear_precios sys_log.prg%vG+( abm_lis_pre%Cusuarios Q \usuariosCusuarioscodigoTFt~     !" #$ %%S?%CC&ZCXlispreclisxcli|F'%aUCCX& Precio: CCZ ABMBIENES (F'%UCCX& Bonificacin: CCZ ABMBIENES (F'%))MUCCX& Cambio: CC)Z ABMBIENES (F'%**UCCX& Margen: CC*Z ABMBIENES (F'% >+C$>.,C$x>**/!!##)) Arlisprec012&*/!#)+&*!#)C$CABM de Bienes. ID: C Lista=CC&Z Precio/Bonif. Antes: CCZ / CCZ Nuevo: CC'Z / CC'Z Abmbienes.scx3,%C&C C F.G((codins E%C4T5fac_lprCC&Z)replace &aaa with tmp_precios.precio FQFa%6789 6     !" #$ rCABM de Bienes. ID: C Costo/Moneda: Antes: CC7Z/CC9 Z Nuevo: CC6 Z/CC8 Z Abmbienes.scx3: cs_generarCXCXC$8!#6%C tmp_preciosFQ%  <\tmp\.dbfqbieaux=0F>>?C]0F=!<\tmp\C0 F>Q% y <\tmp\.dbf,%ACtmp_propiedades R FB ~ ^JCFD,%CB0 propiedadescodigo  _JCFBFBQ% N <\tmp\ .dbf%Cz %EF `CABM de Bienes. Lotes: Antes=Cf Nuevo=CEFf Abmbienes.scx3%Gv %EH r bCABM de Bienes. Contstk: Antes=C f Nuevo=CEHf Abmbienes.scx3BUIXCODXATRXBUL XDOS_COPIAR XTMP_TABLA_1 XTMP_TABLA_2 XTMP_TABLA_3XTIPOABMXOLOTES XOCONTSTK XTMP_TABLA_4OLOGTYPEOSYS_M P_BIE_PREC ABM_LIS_PREP_SYSTEM PUB_INDEXXUSUARIO_ACTUALUSUARIOSDESCR TMP_PRECIOSPRECIOOPRECIOBONIFOBONIF TMP_COSTOS DESCUENTO ODESCUENTODESC2ODESC2DESC3ODESC3DESC4ODESC4DESC5ODESC5BLOQLISTALISPREC LOG_PRECIOSCAMBIOMARGENFECHAFECACTINBIENESDTOPRVCODIGOBULATRUSER_LOGCODINSAAACOSTOOCOSTOMONEDAOMONEDAAGREGAR_COSIMP CS_GENERARP_LOCALBIEAUX TMP_BIEAUXIDUALLP_PROPIEDADES_ADICIONALESTMP_PROPIEDADESOOBJ PROPIEDADES ABMBIENESLOTES P_CONTSTKCONTSTKbienes2 T T T TFEcodins'obienes  abmbienesC Buffering!  abmbienes(  F QUXCODIGOXTABLAXTABLA1XTABLA2XTABLA3 OPENFILESBIENES2BIENESCODINSCOD_INS ABMBIENESBIE_HIJAS_ABRIR XRESULTADOBIE_HIJAS_LIBERAR9+sys_procesando Actualizando%Ctmp_dosUFQ%Cbienes Qbienes%C bienes_fast Q bienes_fast #obienesC F T~ T%CdG Gsys_procesando Procesando: CC d Z %FC % H QF%Ctmp_dos 65Q\data\CC Z \bienes_fastFC  %Ctmp_dos 5Q\data\CCZ \bienes_fastFC 2sys_procesando%Ctmp_dosFQFQ[BU XFECHAHORA SP_MENSAJESYS_PROCESANDOTMP_DOSBIENES BIENES_FASTBBB XTMPTOTALCOUNTACTACTUALIZAR_BIENES_FAST_REPLCOD_INSP_DOSP_CODEMPP_UNOP_SYSTEMSP_OCULTAR_DEFINITIVAMENTEBUOIMP *CFQ C9No se pudieron sincronizar los datos de los artculos !!!C FDebe sincronizar manualmente en Tablas - Artculos - Sincronizar Todo.BUXCODBIENES_FAST_ACTUALIZAR Q_BIE_FASTMENSAJETC, TC"TC%TC&TC(TC)TC!TC' BUX %C bienes_busq ?Q bienes_busq  TTCTC+aTC %TC>%! TTCCC=(f%CC>-%C bienes_busqidword 2r bienes_busq a F > aTCC[BU XCODX BIENES_BUSQXMINLENXATLIMPIARXWORDWORDIDFLAG"2sys_procesandoSincronizando datos%C bienes_fast uQ bienes_fast%C bienes_busq Q bienes_busq%Cbienes Qbienes%Clisprec Qlisprec%Cstock 7Qstock%Catributo iQatributo%Cbultos QbultosF > -F > - CF  Q bienes_fast3Q bienes_fast ,Q bienes_fastF  uQ bienes_busq3Q bienes_busq Q bienes_busq%C q_bie_fastFQsys_procesando.T!Se han sincronizado los datos !!!CBUXAUTXBUSQXMSG SP_MENSAJESYS_PROCESANDO BIENES_FAST BIENES_BUSQBIENESLISPRECSTOCKATRIBUTOBULTOSFLAGALLBIENES_FAST_ACTUALIZARFOR Q_BIE_FASTSP_OCULTAR_DEFINITIVAMENTEMENSAJEPG+(listadosG+( ve_funciones%C bienes_fast kQ bienes_fast%C bienes_busq Q bienes_busq%Clisprec QlisprecTCCX T.t.%C -Tbi.cod_ins=xcodigo%C n+Tbienes.act>=xfechahora_precios%C 1T$bienes.ult_mod>=xfechahora_articulos1% Cbienescodins DZ BC SC C 6C SCC 6  select bi.cod_ins , nvl(at.clave," ") as atr , nvl(bu.clave," ") as bul , bi.descr as descr , nvl(at.descr,space(30)) as datr , nvl(bu.descr,space(30)) as dbul , iif(bi.est_act=1 and nvl(at.activo,"S")="S" and nvl(bu.activo,"S")="S" and iif(bi.atributos="S" or bi.bultos="S", nvl(st.activo,.t.) ,.t.) ,1 ,2) as est_act , bi.codalt1 , bi.dmarca , bi.modelo , bi.ivaper , bi.iva , bi.fac_lpr1 , bi.fac_lpr2 , 00000000000.000 as fac_lpr3 , bi.discont , bi.cod_pro , bi.act , bi.idu , bi.dtoprv1 , bi.dtoprv2 , .t. as flag , bi.venta#"N" and nvl(at.venta,"S")#"N" and nvl(bu.venta,"S")#"N" and nvl(st.venta,"S")#"N" as venta , bi.est_act as bie_activo , nvl(at.activo,"S") as atr_activo , nvl(bu.activo,"S") as bul_activo , nvl(st.activo,.t.) as com_activo , bi.venta as bie_venta , nvl(at.venta,"S") as atr_venta , nvl(bu.venta,"S") as bul_venta , nvl(st.venta,"S") as com_venta , 000.00 as margen , 000.00 as bonif from bienes bi left outer join atributo at on bi.cod_ins=at.cod_ins left outer join bultos bu on bi.cod_ins=bu.cod_ins left outer join stock st on bi.cod_ins+nvl(bu.clave," ")+nvl(at.clave," ")=st.codigo+st.bul+st.atr where &xfiltro into cursor q_bie_fast readwrite %CCFG_LIS Qcfg_lisTCcfg_lisLISTATCcfg_lisLISTATF ~ U%C CCX  6CZCXlispreclisxcli>>>  > > >% U%C CCX  6CZCXlispreclisxcliT > k >U%C CCX  6CZCXlispreclisxcli >   >   %CCFG_LIS % Qcfg_lis TTC"#!G+(ve_funciones_precios%% (C  CX&  ,T'C  CX(7>C CSd 6 T%%b (C  CX&  ,T'C  CX(7> C CSd 6FG(( codatrbulF ~EFE  %C4 : ~>    ++,,--..//0011""  2233445566778a99gT:C  C  C C, C- C. C/ C0 C1"C  :;BU<XCODIGOXFECHAHORA_PRECIOSXFECHAHORA_ARTICULOSLISTADOS VE_FUNCIONES BIENES_FAST BIENES_BUSQLISPRECXFILTROBIENESCOD_INSFOR ATRIBUTOSATRBULTOSBUL XTMPPRECIO XTMPCFGLISXTMPIVA2XTMPIVA3XIVAPERCFG_LISLISTAIVAINC Q_BIE_FAST P_PRECIOGENFAC_LPR1PRECIOMARGENBONIFP_PRECIOS_BIENES_FAST_LISTASFAC_LPR2FAC_LPR3IVAPER2IVAPERIVAVE_FUNCIONES_PRECIOSP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIOXOKVE_OBTENER_PRECIO_COMPUTADOIN CODATRBULEST_ACTDESCRDATRDBULCODALT1DMARCAMODELODISCONTCOD_PROACTIDUDTOPRV1DTOPRV2FLAGVENTA XSENTENCEESCANEAR7%  /B%CFC9El cdigo de artculo no puede estar vacio al espejar !!!B-%C T%CohlpbO(TC abm_bienes bienes2.PRGCa% , CBU XCOD_INS XSHOWWINDOWOHLPXCICLICOP_ESPEJA_BIENESP_ESPEJA_HABILITARMENSAJE MODIFICARRELEASETC %Cidx04 JQidx04 T T T T T T  >Cd d d d  d d C  )C   66TC  6SCO  BU XREDONDEOXCAMBIOXFILAIDX04XCOSTO XDESCUENTOXDESC2XDESC3XDESC4XDESC5 TMP_COSTOSCOSTO DESCUENTODESC2DESC3DESC4DESC5 TMP_PRECIOSPRECIOMARGENMONEDACAMBIOFORBLOQHx MAXx  T- T- %CK- C[- s Ta %C<- C;- TaHt  B )DB;Los cdigos que puede utilizar son del 1000 en adelante !!! t<B3Los cdigos que puede utilizar son del 1 al 999 !!! BUP_EMPXCOMPRASXVENTASACCESOH MAX  T- T- %CK- C[- z Ta %C<- C;- TaH  B 4%Cg 0,B#El cdigo debe ser mayor a 1000 !!! %CCg 5B,El cdigo debe estar en el rango 1 a 999 !!! BUXCODIGOP_EMPXCOMPRASXVENTASACCESO openfilesinitXclonar_inicializarsugerir_no_numu  hook_before inicializar_registroP  agregar_pos hijas_abrir hijas_guardarhijas_guardar_dosfinalizar_modificacionesse_puede_operarbie_hijas_abrir$bie_hijas_propiedades!bie_hijas_liberarE# hijas_guardar$mostrar_articulo%3actualizar_bienes_fast4bienes_validar8actualizar_bienes_fast_repl8limpiar:escanear:sincronizar_todo=bienes_fast_actualizar@espejar_articuloQrecalcular_preciosiSbienes_emp_notaVse_puede_operarWTbienesT T Ta(TCC  6T  ArtculosT bienesT hlpTcod_ins T-TcodinsT abmbienesT T(TdescrTArtculoTdescinsTC T Tcod_insTCdigoTcodinsTC T TbarrasTEAN13T barrasT!N T" T#T$codalt1T%Cdigo AlternativoT&codalt1T'C T(T)descr2"T*Descripcin de CompraT+descr2T,CT-C]T.C]T/C]T0C] T12 T3 T1T4bultosT5atributoT6stock T7 T8        U9 DOS_TABLA DOS_COPIARP_ESPEJA_BIENESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEDOS_AGREGA_SI_FALTACLONAR_SUGERIRP_CODAUTO_HABILITARP_NUMINSP_CODAUTO_BIENESTITULOTABLAIDCLAVE CLAVE_UNICAIDXCLAVE FORMULARIO ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2COLID2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3ANCHO4CLAVE_BUSQUEDA4TITULO_COLUMNA4ORDEN4 TIPO_CAMPO4 TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 SHOWWINDOW XSHOWWINDOW WINDOWTYPELOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3OLOTESOCONTSTK abm_bieneshlpabm2]\qAbsqBp1qAArAAAAAARAAAqAqAAAAAAAaAAAB!A!AqAqA11aapA2111B422AB4q1AAAAAAA35P11111A22AB4q33"1111A4br4qdsRrABSrABqAA16tqAAqaAb1AC4q61AAqAA 2rBABrQ11PBqAA  qAAv3QAQAA4q!aArAA21qAAqAAqAAqAA3qQB3RAvGrsaQAraQAraQAraQAq@aA A rBBDBvAtr BBqAAArrrAArqQAqArAAAsbA1a!AABB2q1"r1rrrA4tqAA!AqAr:rBsAr21QAr3QArCBAqAArABB2qA2qrAa AB3qscaaaaaa2qA"221AAAs"rBBBB2&qAqA!A1ArAAA!Arrr1A!!Ar1A!!AqAAQB2!aqAqA1AU!A!A!AAQ~1AsRA3SASA1A2Ar2ArBAq!rrQA{"BB21AAaqAAA!AB22tAB3aAAaAAA2qaAAaAQAAA13Ab1A1a!QAA111!1AA1!12Q! 0@6c +rG"4NT0^e  ""#"$'(*8*p**;T<=`=?v?^ ^` ag*+gg.g9i8MiBjCWjlbl'tJt+^I` )5KP ~*%B6IO-OIZXU[  T-!%CCC XTC!%CCC TC!%CCC TC C % C 0% ,C Ta% T C % C Ta%  C % C Ta%  C G% CC Ta CUPCREPORT PCFILENAME PCFILTRODATOSX LLRPTERRORTHIS COUTPUTFILECREPORT CFILTRODATOSREADINILERROR SETPRINTERMENSAJECERRORMAKEPSGSFINDMAKEPDF MENSAJE_CLEAR]=TC Directoriossys_clases_tablas.prgTCsafetyvTCPrintervT-T*%C pcFileNamebCC T C(%CpcReportbCC T CG.'%CplRunNowbLa V BC U PCFILENAMEPCREPORTPLRUNNOWTHIS DIRECTORIOS CORIGSAFETY CORIGPRINTERLERRORCERROR COUTPUTFILECREPORTEXPORTAR  CUTHISCLEANUP TT%C Yset safety &lcorigsafety %C G*((set printer to name "&lcOrigPrinter" BU LCORIGPRINTER LCORIGSAFETYTHIS CORIGSAFETY CORIGPRINTER8T-TTBaUTHISLERRORIERRORCERROR   J( J-(*%C pcFileNamebCC jTC(%CpcReportbCC TC %C C Ta:C.cReport y/o .cOutputFile vacia0ErrorB-% L C C % *C0Error al crear el PDFx Ta%  C C #% *C0Error al crear el PDFx Ta% T C C % *C0Error al crear el PDFx Ta%  C C +% '*C0Error al crear el PDFx Ta% \ C C % *C0Error al crear el PDFx Ta%  C C 3% /*C0Error al crear el PDFx Ta C%C  *C0Error al crear el PDFx Ta C B U PCFILENAMEPCREPORTX LLRPTERRORTHIS COUTPUTFILECREPORTLERRORCERRORREADINI MENSAJE_CLEAR SETPRINTERMAKEPSGSFINDMAKEPDF INSTPDFREADERCLEANUP J(%C:TCf%CdTCf%C'TCC].ps%C T C%C T  %C 'T 600T TT(TC POSTSCRIPTfTa5TInstalacin de impresorasVT:Instalacin de la impresora Postscript para exportar a PDF'TCINST*TImpresoras.batTBaULCTMPTHIS CPSPRINTERP_PDF_PSPRINTERCPSCOLORPRINTERP_PDF_PSCOLORPRINTERCPSFILE DIRECTORIOSDIR_TMP CTEMPPATH CGSFOLDERP_PDF_GSFOLDERCPRINTRESOLUTION LERASEPSFILEP_PDF_BORRAR_TMPPSLERASETMPPDFFILEP_PDF_BORRAR_TMPPDFLUSARTMPPDFFILEP_PDF_USAR_TMPPDFAINSTALLP_SYSTEM% BC J(%a7|GetPrivateProfileStringWIN32API%C.TC PostScript cPSPrinter%C 3T C PostScriptcPSColorPrinter%C R+T C PostScriptcPSFile%C -T C PostScript cTempPath%C .T C GhostScript cGSFolder%C )4T C PostScriptcPrintResolution+TCInstall iInstallCount%C TCg%(<TCCInstallcInstIDC_f0TCCInstall lAllowInstC_f7TCT Y a-6?TCInstall cInstProductC_ATCInstallcInstUserDescrC_>TCInstall cInstFolderC_;TCInstallcInstExeC_=TCInstall cInstInstrC_%C*TGENERIC POSTSCRIPT PRINTER%C .(T GENERIC COLOR POSTSCRIPT%C y3T C]CCC]R\\6%C T 300BaUTHIS LEE_PUBLICAS LEER_PUBLICASLCTMPLREADINIGETPRIVATEPROFILESTRINGWIN32API CPSPRINTERREADINISETTINGCPSCOLORPRINTERCPSFILE CTEMPPATH CGSFOLDERCPRINTRESOLUTION IINSTALLCOUNTAINSTALLX TCTC X.TC [MISSING] TCC\% [MISSING] T BU PCSECTION PCSETTING LCRETVALUELNNUMRETLCFILETHISCINIFILEGETPRIVATEPROFILESTRING T T T-,%CtC plSecondTrybL t T%CTCPrinterv%C*TGENERIC POSTSCRIPT PRINTER%C*(TGENERIC COLOR POSTSCRIPT%aRT lTT -%C 5(C %CCC fT a!% 1(T  no esta instalada!!T a w*T NO hay seteada impresora!!T a% M+T SET PRINTER TO NAME '' &lceval '%CCCPRINTERvfCCf I9T #No se puede setear la impresora a: CT aT -% %*T NO hay seteada impresora!!T aB- %C POSTSCRIPTBCa B U PLSECONDTRYX LCPRINTER LLSECONDTRYTHIS CORIGPRINTER CPSPRINTERCPSCOLORPRINTER LUSECOLOR LFOUNDPRINTER LAPRINTERSCERRORLERRORLCEVALINSTALL SETPRINTER:3CCreating PostScript File?G.% ~%C zB-TT %C,T No hay reporte seleccionada.T aB-%C `C %CCreando el archivo...!T C].psT %C @T ,No se puedo borrar el archivo PS existente: T a B T  T mSreport form (lcreport) for &lcfiltrodatos &lcextra noconsole to file (lcpsfile) (T%C *tT &No se pudo crear el archivo PostscriptC Error del reporte: CC C Alias:CCT aB- ,( (C %C0 %lT &No se pudo crear el archivo PostscriptC Error del ghoscriptC  Archivo: CT aB-  $!BaULCREPORTLCEXTRALCPSFILE LCFILTRODATOSTHIS MENSAJE_WAIT LFOUNDPRINTER SETPRINTERCREPORTCEXTRARPTCLAUSESCERRORLERRORCPSFILEASLEEP CTEMPPATH ADELETEFILE CFILTRODATOSOEX XERRPRINTMESSAGEZZ P_PDF_ESPERA  J( J(5CBuscando el Ghostscript...?T-T C T 0%C gsdll32.dll0C gsdll64.dll0 TaBa%C fT gsdll32.dllT gsdll64.dll%C0C0 bTa% %C *T C C GS?.??.D%  0LT 'No se pudo encontrar el GhostScript.(2)C En:  T aB-(C TCCC f(T \bin\gsdll32.dll(T \bin\gsdll64.dll%C0C0  T  \bin\Ta% inicialT CGS\%C *T C C GS?.??.D%  LT 'No se pudo encontrar el GhostScript.(2)C En:  T aB-(C TCCC f(T \bin\gsdll32.dll(T \bin\gsdll64.dll%C0C0  T  \bin\Ta% inicialT CGS\%C *T C C GS?.??.D%  LT 'No se pudo encontrar el GhostScript.(2)C En:  T aB-(C TCCC f(T \bin\gsdll32.dll(T \bin\gsdll64.dll%C0C0  T  \bin\Ta% % (x86) !T C  (x86)%C *T C C GS?.??.D%  LT 'No se pudo encontrar el GhostScript.(2)C En:  T aB-(C TCCC f(T \bin\gsdll32.dll(T \bin\gsdll64.dll%C0C0  T  \bin\Ta%C 6 T gsdll32.dllT gsdll64.dll%C0 C0 2 T %C LT 'No se pudo encontrar el GhostScript.(4)C En:  T aB-  TaBaUXLCPATHLBPATHLTPATHLCTMP1LCTMP2THIS MENSAJE_WAITLFOUNDGS CGSFOLDERLIGS LAGSFOLDERSCERRORLERRORPATH_PROGRAMASINICIALPATH_PROGRAMASX86& *CCreating PDF...?G.% !CLooking for GS...%C !%C GHOSTSCRIPT %C 3T #No se pudo instalar el Ghostscript!T aB-T T %C ;T 'No se pudo borrar el arhivo existente: T a B -CConvirtiendo archivo a PDF...%HTC].pdf TTC CTC l T T %C %C WT No se pudo crear: C 'GSConvertFile() ha encontrado un error.T a B %C0  V( DT 0No se pudo copiar el PDF a la carpeta temporal: T a%  B % %y%C u5T !No se pudo borrar el archivo PS: T a B %C0 [T No se pudo crear: C +Sin errores, tan solo el archivo no existe.T a B  C B U LCOUTPUTFILELCPSFILELHND LCOUTPUTFILE2 LCOUTPUTFILE3THIS MENSAJE_WAITLFOUNDGSGSFINDINSTALLCERRORLERROR COUTPUTFILECPSFILE ADELETEFILELUSARTMPPDFFILE CTEMPPATHGET_SHORT_PATH GSCONVERTFILELERASETMPPDFFILE LERASEPSFILE MENSAJE_CLEAR+TC-CConverting File...?G. J( "TC gswin64c.exe%C0 "TC gswin32c.exeT-sDEVICE=pdfwrite -sOutputFile= -r  -dBATCH -dNOPAUSE -q+ -c 3000000 setvmthreshold .setpdfwrite -f T  C  ps2pdf C%C0 Ta?T%Ghostscript no pudo crear el archivo:C B- $BaUTCFILEIN TCFILEOUT TCLONGFILETCTIPOTHISGET_SHORT_PATH MENSAJE_WAITLCPROGLCPARMSLCCMD CGSFOLDERCPRINTRESOLUTIONRUNMEPS2PDF MENSAJE_CLEARLERRORCERRORy%C0 B-TC%CaBC PDFREADER rBaUTHIS COUTPUTFILELCEXEASSOCEXEINSTALL J('|FindExecutableshell32TCX%C TCCC =  T BUPCFILE LCEXEFILEFINDEXECUTABLESHELL32/   -J(   J-( TCCf!(C "%CCC f Ta!% 8T a6T "No se pudo crear la Impresora ID: B-TC TC TC TC TC T C %CC  7T CC %+ 3lcinstruct = &lcinstruct  XT *Por favor acepte los 'Valores Por Defecto'C durante la instalacin.%+ T a  T -%a%C C % ITClceval = &lcfolder TC %CR\~T\TCC% C0 NT &No se pudo encontrar el instalador de  en:C CT a %C, necesita estar instalado en la computadora.C C Se puede instalar ahora?$ ConfirmacinxT a>T %El usuario cancelo la instalacin de .B-C @ Instruccionesx ,| ShellExecuteshell32T T runasT CT  T +C    xCCuando la instalacion termineC "COMPLETAMENTE, precione Aceptar...@Esperando a la instalacin...x%CLa instalacion ha sido exitosa?C C $Si no hubo errores en la instalacinC &y todo fue correcto, presione en SI...$Todo fue correcto?xNT a6T "Errores durante la instalacin de B- }T -T BaB-UPCIDLLFOUNDXLCEVAL LCPRODUCTLCDESCLCTMPLCFOLDER LCINSTEXE LCINSTRUCT LLDYNAPATHLCPARAMSLCABBRTHISAINSTALLLERRORCERRORLLDOINST LNOWNERHWND LCCOMMANDLCTARGET LCDIRECTORY SHELLEXECUTE  UXTEXTXDELAY MENSAJE_WAIT U MENSAJE_CLEAR+|GetShortPathNameWin32APITCXTTCTC= BU LCLONGFILELCBUFFER LNBUFFERSIZELNSHORTPATHLEN LCSHORTPATHGETSHORTPATHNAMEWIN32API5|Sleepkernel32CBULIMSECSSLEEPKERNEL32 T T-%C0 GBa| DeleteFilekernel32(TC%C0 !C%B- BaU LCFILENAMELIRETVALLLRETVALX DELETEFILEKERNEL32ASLEEP.QSTRINGQSTRINGQINTEGER!|CopyFilekernel32'%Ct CliOverbN T %CB-BaULCFROMLCTOLIOVERCOPYFILEKERNEL32exportar0initGdestroy*cleanupW reseterrorEmain leer_publicas readinireadinisettingc setprintermakeps1gsfind[!makepdf+ gsconvertfile2 instpdfreader4assocexe5install6 mensaje_wait? mensaje_clearA?get_short_pathb?asleepb@ adeletefile@ acopyfileB)TCXTCX4TCC]CCCC]R\\6TCXTCX Ta!T Print2PDF.ini T- T -T CXT CX T aT CXTCX TaTCX Ta Ta T- TTCXTCX TTCXTaTCXTCXTCXTCXTCX T- TaT.T.               UCREPORT COUTPUTFILE CSTARTFOLDER CTEMPPATHCEXTRARPTCLAUSESLREADINICINIFILETHIS LFOUNDPRINTERLFOUNDGS CPSPRINTERCPSCOLORPRINTER LUSECOLORCPRINTRESOLUTIONCPSFILE LERASEPSFILE CGSFOLDERLERASETMPPDFFILELUSARTMPPDFFILELERRORCERROR CORIGSAFETY CORIGPRINTER IINSTALLCOUNTAINSTALL DIRECTORIOS LEE_PUBLICAS CFILTRODATOS print2pdfcustomD1!A!A!A3AA3AA3AA3AA2!A!AbsA78"A"aAB8q>!A!AqA4AA3AA3AA3AA3AA3AAA;rF!AC!ACqACACAC1AScsr2!AqCyFAC1ACACACACAA!!bAqAAACAAAA1AA1Aq;"sA9qACACAAABAAAA2AA"rAA3qAAA812b3AqAAqABQASA2B#Dqr"1qBAAABr8Ra qASAA2R1qAAAAA5aR1qAAAAA3aR1qAAAAA2Q1qAAAAABSAABqAt9b3AA1qAAAARA"QAArAA!AA"A"AA"QQAA"A;1RbQ#!!Aj Q"qqA8RqAsqA7qquA7q!AAAaqAAAACAa1!ARACqAsAa aqqAAAAq22q3q1!9qA7q"qA!AAA3qqA8rAqAr1C2q` P `@p 1 jJ1vBGdE\{QVt#%,?,K93;<*>E CFM^{Oefzoe6`qxM)yrz W}{|!c}C9gŌ׌R,"y`(% ڌX.4%C5 TTC %-n M1+ Los ltimos costos se registran en cos.dbfxr 1) Se obtienen los costos iniciales de stock.costo, stock.cosmon y los registra en cos.dbf con la fecha de iniciouo 2) Se obtienen los costos directos de conver.costo, conver.cosmon y los registra en cos.dbf con la fecha de la operacinvp 3) Se obtienen los costos directos de ?compras.cos_lifo, ?compras.moneda y los registra en cos.dbf con la fecha de la operacintn 4) Se determinan los costos para los despachos/lotes segn las recepciones (compras) y movimientos con costo.NH 5) Toma de cosman.dbf los costos que modifican los costos obtenidos en0* los pasos anteriores. Estos pueden ser :JD Tipo = '0' : Sobreescriben los costos generados, esto es as paraA; que se puedan modificar costos ingresados al sistema82 pero que no son correctos por algn motivo.JD Tipo = '1' : Son de reposicin y se ingresan en un nuevo registro<6 a fin de no sobreescribir los costos generados.QK Atencin !!! Este paso es anterior al clculo de los costos de produccinOI y de los costos tericos de las frmulas, por lo que estos tomarn como.( costo el de reposicin, si lo hubiere.f` Estos costos son registrados en cos.dbf con la fecha del costo de reposicn o de la correccinMG 6) Se calculan los costos tericos de las frmulas de produccin a laGA fecha. Si alguna de las frmulas tiene componentes con frmula,HB stas tambin son calculadas. Los costos son calculados en PESOS-' y registrados en las mismas frmulas.IC La intencin de este paso es tener los costos de cada cod-atr-bulRL para luego ser utilizados en el clculo del costo de rdenes de produccinMG tipo envasamiento. Adems, si se fija el costo, este queda registrado.( como costo de reposicin en cosman.dbfIC 7) Se calcula el costo de produccin de las producciones cerradasLF a la fecha de apertura de las mismas. Si se trata de envasamientos,IC como lo consumido real no se puede separar segn los cod-atr-bulIC ya que se evasa simultneamente varios bul, entonces se utilizanD> los costos tericos para distribuir el costo de produccin. Ejemplo:B< Si en la OP se envas 8150-610 en 110 y 270 de capacidad.82 Costo OP = Sumatoria del consumo a ltimo costo@: Costo OP = Sumatoria de Costo OP de la capacidad XXX(i) Costo OP de la capacidad XXX(i) = Costo OP * Costo Terico de la capacidad XXX(i) / Costo Terico de la Sumatoria de las capacidadesKE De esta manera puedo calcular el costo real de envasamiento de cadaIC capacidad y registrarlo como ltimo costos a la fecha de cierre. G(9 5 TG+(listadosG+(dey_funcT C T C %C xfecha_autbL& TC$ TC$ J T TTnTC%.TCIND BA 6 T- T- T- T- T- T- T-TCXTCXTCX T T T% 2T%Debe elegir un seteo antes de generarB-,%C B- 5H 1   T- ' Ta 21 T!a% y cs_generar(!TCC$D%!# T#$ log_errores#C&+T Generados: CCZ - )%'( ) r5 T%C('*d n T+", log_errores#+~-.Generacin de Costos: C*C - Con cierre6cs_generar.prgBU/XAUT XPREFIJADOXMSG XFECHA_AUTXFUERZA_CIERRE ACTIVEFORM DATASESSIONIDXEMPRESA_ACTUALP_CODEMPLISTADOSDEY_FUNCBORRARNEWFILE_LOCAL_TMPBORRAR1 XFECHA_HOY XFECHA_CIE XFECHA_INI XFECHA_PROP_EMPXFIJAXRTEOXRPROXDMERXCIERRE XCALC_PRODXCOSTOS_DIRECTOSXDBIEXDATRXDBULXOBS XPROD_FIJAXPREFIJADO_NOMBREPREFIJADOS_CARGARXRES CS_GENERAR XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESPROCESARP_DOSP_UNO P_CS_CONSCS_COSTOS_COPIAXOKLOG_ERRORES_MOSTRARUSER_LOG PUB_INDEX%Ccos_cpre AQcos_cpreFG((codigo E%C4 *TNo encontrado seteo: CCZB-TT T  T  TTTTTTTTTT !T"#BU$XAUTXMSG XPREFIJADOXPREFIJADO_NOMBRECOS_CPRECODIGODESCR XFECHA_PRO XFECHA_CIEDIAS_PRD XFECHA_INIDIAS_DIRXFIJAFIJA XPROD_FIJA PROD_FIJAXRTEORTEOXRPRORPROXDMERDMERXCIERRECIERRE XCALC_PROD CALC_PRODXCOSTOS_DIRECTOS COSTOS_DIRXDBIECOD_INSXDATRATRXDBULBULXOBSOBS 4G+(dey_func ges%C COS_CIE.DBF0 kh1cos_cieD&  %Ccos_cie Qcos_cieFG((fecha%X~&cs_anular_cierreaFG((fecha E%C4 Trcos_cie%CCOSwF F  Qcos3  QcosC  I % R%@FS( W TF% G(% <.oproducciC % TC  T " TG(%Cq1JFQ{ocosQ!XmovstockQ% " & "Q#MC & Ci q1F ~T'#qcos"'%Cq1%FQC(1qcos6CCCiCH$ F %)C *)%+ , - C+*C .%/FC 10)%+ , - BC+10C 2)%+ , - C+2%Cq_cosimpQ3^ocosimp4556 7 8 9  q_cosimpF3 ~zO:;<=>?56789@"A4%CqQ3%BS C IndexacinCG+(listados%CqQETFC$RTGCCH CCi $*CCiCH$ CCCiCH$ %6]ocosXccformul ; = <;=< C62SC53?C34+C45C2666666QHF 0136 C G /CC1a ; = <1IJ6 ; = < <H< <qTK- ~1 %K;=<- TK;=<%E> ?TLCCH CCi$CCiCH$6+, -% T % .%%1T /C .%6 1T /C .%6 1T / C .%6  S El factor de C  C  C  est en 0 6T /T /T /  b El artculo C  C  C  no tiene frmulas activas =Artculo sin cdigo en frmula CC ZF HF G((formula # )TC /  / 6)TC /  / 6)TC /  / 6-%CCxactbL 6!>+,-BU0XFORMULA XCOSTOHOY XCOSTOCIE XCOSTOANTXACT XACTUALIZARXLEVELXCXCCIEXCANTREGFORREG_CCFCCFORMULFORMULASFORMULACODCOMPOBIEDATA_CODIGO_VACIOCODIGOBULCOMPATRCOMPXENCBULATRACTIVAXMACTXMCIEXMANT COS_X_FORLOCAL_LOG_ERRORES_INSERTARCALCULO_TEORICOBIENESCODINSSTOCKXSMXPPXTIXFACTOR XMINBATCHXMERMAARTICULO_DATOS_AMPLIADOSPROC_STKXDMERCOSTOCIECOSTOANTCOSTOHOYUNIDCOMPCANTIDAD#4%CxactbLJ T T%F G((codins E F ~ Tif &xcriterio T!  T% T 6T T T T Tf cs_generar    T T%i T T T Tf cs_generar    T T T T T Tf cs_generar    T T sTd BU XCOSTOHOY XCOSTOCIE XCOSTOANTXACT XMONEDAHOY XMONEDACIE XMONEDAANT XACTUALIZARXCOEFBIENESCODINSFORMULASCODCOMPCSCOEF XCRITERIOCRITERIOCOEFXOLDACTP_CS_GEN_VERSION XFECHA_TC XFECHA_CIEXCOSTOXMONCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARBULCOMPATRCOMP4 T%CBIENES IQbienesdescins%CULTCOS wQultcos%CCOMPRASFQ-Q\data\CCZ\compras%CCCCOMPFQ,Q\data\CCZ\cccomp%CSTOCK IQstock%CMOVSTOCKqF Q.Q\data\CCZ \movstock%CCONVERF Q,Q\data\CCZ\conver%CCCFORMUL #Qccformul%CPRODUCCI UQproducci%CTCOMPRAS}F Q.Q\data\CCZ \tcompras%CTCCCOMPFQ-Q\data\CCZ\tcccomp%CFORMULAS 1Qformulas%CBULTOS _Qbultos%CATRIBUTO Qatributo%CCOSMAN Qcosman%CDESPACHO Qdespacho%Cmotinv Qmotinv%Cidx04 \"Q\idx04idx04%Cproveedo Qproveedo%Cproaux Qproaux%Ccosimp Qcosimp CBUXEMPXEMPRESA_ACTUALBIENESDESCINSULTCOSCOMPRASP_SYSTEMCCCOMPSTOCKMOVSTOCKCONVERCCFORMULPRODUCCITCOMPRASTCCCOMPFORMULASBULTOSATRIBUTOCOSMANDESPACHOMOTINVP_COMMONIDX04PROVEEDOPROAUXCOSIMP MENSAJE_CLEARFG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(F G(G-(F G(G-(F G(G-(F G(G-( C BUBIENESULTCOSCOMPRASSTOCKCCCOMPCONVERCOSTCOMPRASTCCCOMPCCFORMULFORMULASPRODUCCICOSMAN MENSAJE_CLEARx45TC,+fTC[TC, BCgUTXTZ|%Cmotinv 1QmotinvFG((codigoFG-(s& (     &CC a   6  T T ~dTUC   0C ZMFFG!(BUXEMPMOTINVCODIGOCONVERMOTIVOFECHABORRARCOSTOTIPOP_CS_FECHA_COMIENZOXDBIECOD_INSATRBULXDATRXDBUL XFECHA_INIXLASTZAGREGARDESPACHOCOSMONTRANSF!COrdenes de Compra...%C%Cproveedo mQproveedoFG((codproFG-(T T^~  C C  &CCa 6 C C T%v% *COrdenes de Compra...C *T FG((tcccord% E TC4  Ta%wTd d d d d d  T!T"T#T$T%"CproveedocodproT&' ( %&iC  *+!"#$%C ZNa) iC  *+!"#$%C ZN-) rl,C * Orden de Compra CC@z 999,999,999_ no tiene imagen en TCCCOMPFBU-XEMP ESTADO_INCP_COSTO_COMPRAS_FCPROVEEDOCODPROTCOMPRASCOD_PRO XOLD_FECHAZCOD_INSOBIEDATA_CODIGO_VACIOFEC_COMP_CS_FECHA_COMIENZOXDBIEATRBULXDATRXDBUL XFECHA_INIORDENTCCCOMPTCCCORDXENCXCOSTOCOS_LIFODES_INSDESC2DESC3DESC4DESC5IIPERII2XDTOXDTO2XDTO3XDTO4XDTO5 XIMPORTACIONIMP_TRIIVACATAGREGAR_COSIMPINCOTERMMONEDALOCAL_LOG_ERRORES_INSERTARi%C^F TT~R &CCa    6   MTFG((ordenitmECZCZ%C48wTd d d d d d %n%vC  0C ZR jvC   0C ZN 4F!G((refordenEC ZC#Z%C4 ! ewT$!!d !d !d !d !d !d !%%&T'C%& ZvC  $!0C ZRa!!!!!!! avC  $!0C ZR-!!!!!!! 0%%vC  0C ZR vC   0C ZN ,( C * Orden de Compra CC@z 999,999,999_ no tiene costo para el CC C  C  BFFG!(BU)XEMPP_COSTO_COMPRAS_FCCONVERZCAUFECHAP_CS_FECHA_COMIENZOXDBIECOD_INSATRBULXDATRXDBUL XFECHA_INITCOMPRASORDENITMORDENREFITM XCOSTO_OCCOS_LIFODES_INSDESC2DESC3DESC4DESC5IIPERII2P_CS_RECEPCIONAGREGARDESPACHOMONEDACOEFICFEC_COMCOMPRASREFORDENITM XCOSTO_OPCCCOMPDGLXCPBLOCAL_LOG_ERRORES_INSERTAR^ C Compras...F%CM %Cproveedo jQproveedoFG((codproFG-(]& (   &CC a  6  T T~CI T%4 F G((op ETC Z%C4 FG((codpro E%C4 T%S!F G((op E%C4TY%)S    S  ~ wT !d "d #d $d %d &d 'T(!T)"T*#T+$T,%%-Sg%.TC. ZdC 00a1 ()*+,/ cdC 00-1 ()*+,/ %2MF3 G((movECC5g ZC6Z%C4%37%8%.TC. ZgC 3900a1 ()*+,/ gC 3900-1 ()*+,/  %.TC. ZgC 3900a1 ()*+,/  gC 3900-1 ()*+,/ : C* C Compra OP: CZCompra Contado CP: C;Z6& La recepcin asociada no se encontr. %2O %.sTC. ZnC 00a1 !"#$%/ nC 00-1 !"#$%/  :C* Compra C Compra OP: CZCompra Contado CP: C;Z6 no proveedor vlido. 0 :C* Compra C Compra OP: CZCompra Contado CP: C;Z6 no tiene imagen en CCCOMP > FG!(BU<XEMP ESTADO_INCCOMPRASP_COSTO_COMPRAS_FCPROVEEDOCODPROCOD_PROFEC_COMBORRAR1COD_INSOBIEDATA_CODIGO_VACIOP_CS_FECHA_COMIENZOXDBIEATRBULXDATRXDBUL XFECHA_INIXLASTZCAUSAOPCCCOMPXCPBXI_PAISTARJETAPROAUXPAISIMP_TRIIVACATXCOSTOCOS_LIFODES_INSDESC2DESC3DESC4DESC5IIPERII2XDTOXDTO2XDTO3XDTO4XDTO5RECEDGLAGREGARMONEDACOEFICREFCAUSACONVERMOVREFREFITMORDENP_CS_OP_CON_OCDESPACHOLOCAL_LOG_ERRORES_INSERTARPAGOl&CMovimientos con costos...CCCCBUXEMP ESTADO_INCCOS_MOV_CON_COSTOCOS_OCSCOS_RECEPCIONESCOS_OPS++ %  IBTCTC%CxlotbCTCX TC%CxidbCTC]%Cxtipo2bN T  %Cdespacho LQdespachoF G((codlotEC T-?+C+ ,CC % Ta!H% ?>+>  %1Y%*%Ccosimp Qcosimp% +>  & U!>  +> %3C F G((despachoE%C4>CModificacin de Costo: CC CC  /C 6CC  /C 6CC  Lote C 6 C *: Mon=CC Z Costo=CC  Zcs_generar.prg( TF UXCODXBULXATRXLOTXFECHAXCOSTOXMONEDAXTIPOXIDXTIPO2P_CS_COSTOS_EN_CERODESPACHOCOSMANCODLOTXENCCODIGOBULATRLOTEFECHATIPOCOSTOMONEDATIPO2IDCOSIMPUSER_LOG PUB_INDEXOEX TTS_ERROR4FG((codigoEC%C4 +>  >  U XCODXBULXATRXFECHAXCOSTOXMONEDACOSVENCODIGOBULATRFECHACOSTOMONEDAY W4     % uB%CxcpbtbC T%CxcausabC T %Cxtipo2bN T !%C xcambio_oribN- T  %C xcosto_oribN^ T %C xdescuentobN T%Cxdesc2bN T%Cxdesc3bN T%Cxdesc4bN T%Cxdesc5bNC TTC %0C  TTCTCTC%Ccos QcosFG((codlotEC T-%C4j TCO?+C+ ,CC f% % 4%!"  # $  Ta! %! Ta! ^)%" # $ Z Ta!H % ECXC TCO T-A+C+ .CXCC % % e4%!"  # $ a Ta! %! Ta! )%" # $  Ta!H% *% W?>! % >!>"# %C %6& $' ()*+,-. Y%K U%C %Cdespacho QdespachoF0G((despachoE%C4)>%C %6$%Ccosult 7QcosultF1G((codigoE%C4 !>%G >!"# %& $' ()*+,-FBU2XCODXBULXATRXLOTXFECHAXCOSTOXMONEDAXTIPOXCPBTXCAUSAXADDXDELXTIPO2 XCAMBIO_ORI XCOSTO_ORI XDESCUENTOXDESC2XDESC3XDESC4XDESC5XEMPP_CS_COSTOS_EN_CEROP_CODEMPCOSCODLOTENCREGCODIGOBULATRLOTEFECHAP_CS_RECEPCIONTIPOCOMPROBCAUSAMONEDACOSTOTIPO2 CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC5EMPINDESPACHOCOSULTs%Ccos_produccion*FQh1\tmp\cos_produccionN CCCCCN N N CF G((prod% aCG(  &CCa6 CG( &CCa6 #6"TCC@z 999,999,999_#)N~   Ca6 ,ECProcesando Produccin : CC@z 999,999,999_...T T omovstockCCCCZ/ 1 PCCCZ/999 P tmp1omovstockconvermotinvCg " # $R  %% !&  '! M  tmp2$o tmp2tmp1Ǽtmp T* T+ T,F) ~p T- T. T/ T0f1 cs_generar/0-))))).T**-)%3 T4 T.5 T/ T0f1 cs_generar/04))))).T,,4)rcos_produccion   )))))--)0F > *c%6 T7 8T T9 T:   F;G((codins E %=S8T>despacho=xlote RT>.t. ,c7 A5 I > *c7 Arcos_produccion      7*c7 *c  <7B+7BCD J(7 J(BE( TFbulCCEZxbul(z)=&xvar TFreaCCEZxreal(z)=&xvar TFforCCEZxfor(z)=&xvar %CCEB ! TGE( %CCEB FHG((formulaECED%C4 TCEICE7  ]J La frmula CCCEDZ ya no existe !!! (Produccin CC Z)TGGCEC  !E(%CCEB%GuT*CECG TFcosCCEZF repl &xvar with xcosto T T9  T:  CEBF;G((codins E %=SQT>despacho=xlote kT>.t. *CE7 AF HJ&Costo Terico Total = 0 en Produccin CC Z! !F % G(  (G(F G(F$(\tmp\cos_produccionԻQBUKCOS_PRODUCCIONP_LOCALPRODLOTEPRODCODIGOATRBULLOTECANTIDADCOSTOTCOSTOERRMSGPRODUCCIXRPROFECHAP_CS_FECHA_COMIENZOXDBIEXDATRXDBUL XFECHA_PROXLASTFORMULAPEND XPROD_FIJA ESTADO_INCXPRODXLOTMOVSTOCKDESPACHONUMEROCAUSATMP1CONVERMOTINVTRANSFORDENCAUITEMCON_OPMOTIVOTMP2TMPXCOSTO XCOSTO_LOTE XCOSTO_REFXCOSTXMONCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARP_CS_COS__MON_REF XCOST_REF P_CS_MON_REFMULTIPLEXREALREALXLOTE XARTICULOBIENESCODINSLOTES XFILTRO_REALAAAAGREGARMONEDAXBULXTEOXFORZXVAR XCOSTOTOTALCCFORMULCOSTOHOYLOCAL_LOG_ERRORES_INSERTARuCCostos Manuales...F=~CCa6  i~C   C1 6C1W6 %C eFG((despacho!E %C4a>  $CCostos de Reposicin...F`~CCa6  N I  jrC  1X BUXEMP ESTADO_INCCOSMANXDBIECODIGOATRBULXDATRXDBULFECHA XFECHA_CIEAGREGARLOTECOSTOMONEDATIPOIDDESPACHOCOSIMPCAUSANO_PROYIDUCOSORI DESCUENTODESC2DESC3DESC4DESC54C CCostos iniciales...F=~&CCa  6 LC 0 C CBUXEMP USE_FILES ESTADO_INCSTOCKCOSTOXDBIECODIGOATRBULXDATRXDBULAGREGARCOSMONREALESP_CODEMP4 %C XFECHA_INIbDFTC T% 'CCostos de importaciones...TF G((fecha~   C a6  &CCa6 C C %  0CCostos de importaciones...C *T ZC      0C  ZI %Cimportac GQimportac%Cproveedo yQproveedo(%C importacnumero(%C proveedocodproT cs_generar        C  ZIaF!G((codins E ># F "%Ctmp_importacionesF$QUoimportac&Q 'C &a6 tmp_importaciones ~^C$ ("%Ctmp_importacionesF$QC)BU*XEMP XIMPORTACIONXDBIEXSILENT XFECHA_INI USE_FILESXCOD_PRO ESTADO_INC XOLD_FECHACONVERFECHAIMPORTACENTRASALECOD_INSOBIEDATA_CODIGO_VACIOATRBULXDATRXDBULAGREGARDESPACHOCOSTOCOSMONCOEFICPROVEEDOCOD_PROAGREGAR_COSIMP CS_GENERARINCOTERMFOBFACTORBIENESCODINSCOSACTTMP_IMPORTACIONESDISTINCTNUMEROTIPOIMPCOS_IMPORTACIONES_EGRESOS_DE_ZFP_CODEMPO4      T-%CoB%CxRefbCT C ,G+(dey_func TCW%%Ccos TH C gbF G((movE C ZT C gFG((primarioEC ZTl cs_generar0   %Ccosn cs_generar0    FBU!XTIPOXCODXBULXATRXFECXCOSXMONXCPBXCAUXREFXREFITMXCOEFIC XCOS_LIFOXDTOXDTO2XDTO3XDTO4XDTO5XEMPXADDDEY_FUNCXAREAXDESPXRECNXORDER CHK_OPENEDCONVERMOVDESPACHOMOVSTOCKPRIMARIOAGREGAR CS_GENERAR4C%Ctmp4FQ.C!Costos de movimientos por lote...F+~ N C %T  @omovstock   tmp ~}Hy MvF G((movECZFG((codigo EHr (FG((ordenitmECZCZ%C4F1>N %aTT< 4ocompras  % F9>C C C  $6"Recepcin mal registrada: C rF1>#M CyT$CC,gT< 4ocompras$  % 9F3>C C C u2" Compra mal registrado: CC$ZC%BU&XEMP USE_FILESTMP ESTADO_INCDESPACHOCOSTOCAUCOSXIDCOD_INSBULATRMOVSTOCKFECHACODIGOCANTIDADCAUSACONVERMOVNUMEROITEMMOTINVMOTIVOTIPOTCOMPRASORDENITMORDENREFITMCOS_LIFOMONEDAXORDENXITMITMAAACOMPRASLOCAL_LOG_ERRORES_INSERTARCOSMONXOPP_CODEMP<4& log_erroresBUXIDXTXTXNOUNICOLOG_ERRORES_INSERTAR LOG_ERRORESXEMPRESA_ACTUAL 4%CxdbiebC3 T%"CRegistrando cierre...SocosCCa6cierre ~T < % ocosCC C C 2 <<<) _ocosCTX016QCC C C 2 <<<) % oC   C C 2C C C C C C C BU XFECHA_CIEXDBIEXCIERREXDFEC ESTADO_INCDISTINCTCODIGOATRBULCOSCIERREXIDAAAP_CS_REP_PRIORIDADTOPCOSTOMONEDA CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC5FECHATIPOCAUSAORDAGREGARZ4 5%C xfecha_tcbLXT!%C xcambio_oribL TTC %T T T S% %T T O TCW%Cidx04 kQ \idx04F G((idx04<TT T T % GF EGF%-$C idx04.indiceCCZ%C4 T*T C idx04.indiceCCZ *T C idx04.indiceCCZ TGF !EC6GF T.t.T.t.%TGT: evaluate("idx04.indice"+alltrim(str(xcur_cos_moneda)))#0 %<T/ evaluate("idx04.indice"+alltrim(str(xmon)))#0 % -locate rest for &xfiltro1 .and. &xfiltro2 %C+ %lPTCC +CC idx04.indiceCCZ66 GTC+CC idx04.indiceCCZ665TCC idx04.indiceCCZ6%3T T  T6T)Error no atrapado. Cambio de destino = 0. T T + TBT5No existen fechas con cambios vlidos para convertir. T T T TF G((idx04 FUXCOSXMON XFECHA_TC XCAMBIO_ORI XCOSTO_ORIXCAMBIO_ORIGENXCAMBIO_DESTINOAREACUR_COSCOSTOCOSORIMONEDAP_COMMONIDX04XCUR_COS_FECHAFECHAXCUR_COS_MONEDAXCUR_COS_COSTOXCUR_COS_COSORI P_CS_MON_REFXFILTRO1XFILTRO2 P_CS_ERRORXERRXMSG! aUXMSG XPREFIJADO CS_GENERARg     #%CxlotbLC TCX%CxoffsetbL T%CxmonedabL T %CxtipobL! T %C xfecha_tcbLWT %CxlevelbN T T T T T T T TCW%Cbienes QbienesCbienescodins%Cbieaux ^QbieauxCbieauxcod%CCOS F Qcos TT  T T T T%CL TC]nC Entra H* %CCOS_CIE FQcos_cie"'T"top CCZ cos.*select &xoff distinct from cos, cos_cie where cos.fecha=cos_cie.fecha and between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha-1) ) and tipo="2" and iif(p_cs_cero=1, cos.costo#0,.t.) order by cos.fecha desc into cursor cur_cos #)-% #$% X#)%CN H T & T' T(C ) T% P%Cbienes QbienesCbienescodinsT ' % %Cbienes QbienesCbienescodinsT '  %CCOS_CIE FQcos_cie"'T"top CCZ cos.*%*#select &xoff distinct from cos, cos_cie where cos.fecha=cos_cie.fecha .and. between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos(xfecha), xcodigo+xbul+xatr+dtos(date(2099,12,31)) ) .and. tipo="2" and iif(p_cs_cero=1, cos.costo#0,.t.) order by cos.fecha into cursor cur_cos  $select &xoff distinct from cos, cos_cie where cos.fecha=cos_cie.fecha .and. between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos(xfecha), xcodigo+xbul+xatr+dtos(date(2099,12,31)) ) .and. tipo="2" and iif(p_cs_cero=1, cos.costo#0,.t.) order by cos.fecha into cursor cur_cos %  #select &xoff distinct from cos, cos_cie where cos.fecha=cos_cie.fecha .and. between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}) ,xcodigo+xbul+xatr+dtos(xfecha-1)) .and. tipo="2" and iif(p_cs_cero=1, cos.costo#0,.t.) order by cos.fecha descending into cursor cur_cos #)-% #$%  #)%CN H T & T' T(C )  %  %Cbienes QbienesCbienescodinsT '  % ~ %Cbienes M QbienesCbienescodinsT ' *H    T+.t.  %T+(tipo="0" .or. tipo="3") 8 T+tipo="1" ` T+tipo="2"  T+tipo#"2"H  ,  , T++ and tipo#"1" , %C luocos#Q#%Q%$Q$&Q&(Q('Q'C.62SC.53?C.34+C.45C.26.66666Q/0Q01Q12Q23Q34Q45Q56Q67Q78Q8#$%9C: (a6 &</<(<)cur_cos% ( h TtTNo existe el lote C para el artculo CC C C o no se ingres costo.select top 2 *, iif(tipo="6","2",iif(tipo="5","3",iif(tipo="3","4",iif(tipo="4","5",iif(tipo="2","6",tipo))))) as orden from cos where between(codigo+bul+atr+dtos(fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) .and. &xfilt .and. codigo=xcodigo .and. bul=xbul .and. atr=xatr and iif(p_cs_cero=1, cos.costo#0,.t.) order by fecha desc, orden desc, costo desc, lote desc into cursor cur_cos % .8T' No se encontr genrico, toma costo=0. d,T Se toma el costo genrico. < T<-%=>'%Cbienes Cbienes+ T>CbienesO T>%Cccformul $Qccformul%Cformulas VQformulasF?G((codigoE< T<-++C+ #$% %?AS T<aBF? TBCO TC TD TE TF TG TH TI TJ TK ]L cs_generar?N?#?$?%     F?G((codigo #BF?H%< (ocos Q/-cur_cosF;\>#$%& ('CO 6.4  T<-%> #>%< %PH Qoselect top 2 *, iif(tipo="6","2",iif(tipo="5","3",iif(tipo="3","4",iif(tipo="4","5",iif(tipo="2","6",tipo))))) as orden from cos where between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) and &xfilt and iif(p_cs_cero=1, cos.costo#0,.t.) order by fecha desc, orden desc, costo desc, lote desc into cursor cur_cos  Q Q select *, "0",iif(tipo="1","2",iif(tipo="6","3",iif(tipo="5","4",iif(tipo="3","1",iif(tipo="4","6",iif(tipo="2","7","9")))))) as orden , iif(causa$"TX" or inlist(tipo,"2","3", "1"),0,9) as ord from cos where between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) and &xfilt and iif(p_cs_cero=1, cos.costo#0,.t.) and !inlist(tipo, "0", "4", "5") and !(tipo="1" and causa="N") order by fecha desc, ord, orden, orden desc, causa, costo desc, lote desc into cursor cur_cos  select *, "0",iif(tipo="6","2",iif(tipo="5","3",iif(tipo="3","4",iif(tipo="4","5",iif(tipo="2","6",tipo))))) as orden , iif(causa$"TX","0","1") as ord from cos where between(codigo+bul+atr+dtos(cos.fecha), xcodigo+xbul+xatr+dtos({}), xcodigo+xbul+xatr+dtos(xfecha) ) and &xfilt and iif(p_cs_cero=1, cos.costo#0,.t.) order by ord, orden, fecha desc, orden desc, costo desc, lote desc into cursor cur_cos F;-%CN#$% #) T7 T8 T & T1 T2 T3 T4 T5 T6 T' T( TR0"C R)'TC( ( 16 &% "%Cbienes QbienesCbienescodinsT '%CL mC Sale  FUSXERRXMSGXTIPOCOSXOFFSETXCOSTOXCODIGOXBULXATRXLOTXFECHAXMONEDA XFECHA_COSTOXTIPO XFECHA_TCXMONORIXCOSORI XCOSTO_ORIXDESCUENTO_ORIXCOSCPBTXCOSCAU XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCAMBIO_ORIGENXLEVELXAREABIENESBIEAUXCOS PUBLIC_CS_LOGXID_LOGCS_LOGCOS_CIEXOFFCODIGOBULATRFECHAMONEDACOSTOCONVERTIR_COSTOP_CS_CIERRE_O_ANTERIORXFILT P_CS_NEXTTOPTIPOORDEN CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC5COMPROBCAUSALOTE P_CS_CEROCUR_COS XCOSTEADOP_CS_COSTO_EXPL XREG_BIENESCCFORMULFORMULASACTIVAXREGCCF XTIPOCOS_FOR XOFFSET_FOR XCOSTO_FORXLOT_FOR XFECHA_FOR XMONEDA_FORXFECHA_COSTO_FOR XTIPO_FOR XFECHA_TC_FORCOS_X_FOR_ACTUALIZADO CS_GENERARFORMULAP_CS_VERSION_EXPLP_CS_REP_PRIORIDADTIPOCOS XCAMBIO_ORIC4     %%% T  T%2 T5T(Se super el nivel de recursividad (50) BT5 5 TFTCC+CO6F TCC+CO6 TCG((formula E+C+  8%C F TCOF T CO T%Z! cs_generar#$    X! cs_generar#$    %&'()* T% T& T' T( T) T*@+proc_stk#$%&'()*%-T*d F # F #%.%(M1T/C.(6   TMT El factor de C C$ C# est en 0 T/ ) T7TArtculo sin cdigo en frmula CCZFHF%_ #%C G(( reg_orderFG((formula% #)TC/ / 6BU0XERRXMSGXFORMULAXTIPOCOSXOFFSETXCOSTOXCODIGOXBULXATRXLOTXFECHA XFECHA_COSTOXTIPO XFECHA_TCXMONEDAXEMPP_CS_VERSION_EXPLP_CS_COS__MON_REF P_CS_MON_REFXLEVELXCXCCIEXCANTREGFORREG_CCFCCFORMULFORMULASREG_FOR REG_ORDERFORMULACODCOMPREG_FOR1REG_CCF1 OBTENER_COSTO CS_GENERARBULCOMPATRCOMPXSMXPPXTIXFACTOR XMINBATCHXMERMAARTICULO_DATOS_AMPLIADOSPROC_STK P_COS_MERMAUNIDCOMPCANTIDAD9O     TCTC%CxcomprobbC T%CxcausabC T %C xcosto_oribN T %C xdescuentobN- T%Cxdesc2bNZ T %Cxdesc3bN T %Cxdesc4bN T %Cxdesc5bN T k%CxCOSTObL A5          NTd  d  d  d  d  %%  B%Ccosimp QcosimpF G((idEC  T-?+C+ ,C C  % Ta!H% L> C]%C@TC] W T> !"# $ % & '()*%Cproveedo Qproveedo, T,a%C o%+ kC proveedocodpro% C- %C $ ]. cs_generarC610 cs_generarC61CC6CCX6    F1G((codins%13 E%13+>14d FU5XCODXBULXATRXFECHA XTIPO_COSXMONEDAXCOSTOXFACTOR XDESCUENTOXDESC2XDESC3XDESC4XDESC5XCOD_PROXCOMPROBXCAUSAXNO_PROY XCOSTO_ORIXEMPP_CS_COSTOS_EN_CEROCOSIMPIDXENCCODIGOBULATRFECHATIPOCOD_PROIDUXIDUCOSTOMONEDAFACTOR DESCUENTODESC2DESC3DESC4DESC5COMPROBCAUSANO_PROYCOSORIPROVEEDO XREGISTRAR P_CS_NEXTAGREGAR_COSMAN CS_GENERARAGREGARBIENESCODINSCOD_INSCOSACT4%C incoterms ?Q \incoterms&%C incotermscodigou B  BNACUXTIPOP_SYSTEM INCOTERMSINCOTERM74 C% l0C#Costos de egresos de zona franca...%Ctmp_impFQSoconverimportac     tmp_impF@~ &CCa 6 F 8-      T T T Tz cs_generar   >> ZC    "  #0C  ZI $!F%G((codins E >' F %Ctmp_imp2F(Q%Ctmp_impFQC)BU*XEMP XIMPORTACIONXDBIEXSILENT XDESPACHOXCOSTO USE_FILES ESTADO_INCTMP_IMPCONVERIMPORTACNUMEROSALECOD_INSOBIEDATA_CODIGO_VACIOATRBULXDATRXDBULTRANSFITEMENTRAXMONCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARDESPACHOCOEFFOBCOSTOFACTORAGREGARFECHACOSMONCOEFICBIENESCODINSCOSACTTMP_IMP2P_CODEMPO     %CxmonedabLy T%CxtipobL T %C xfecha_tcbLT %CxcomprobbC  T %CxcausabC7 T !%C xcosto_basebNi T  %C xdescuentobN T%Cdesc2bN T%Cdesc3bN T%Cdesc4bN T%Cdesc5bNJ T TCW%CCOSIMP F Qcosimp TT% 0FocosimpC6Q !"#$%&'()*+,!     !<)cur_coszocos.!  C/ .a6 !<) cur_cos_ult ocosimp!  !C I  C g6 !<)cur_cos#ocos.- cur_cos_ult4%Ccur_cosNC cur_cos_ultN %-!0!KF- 1F0 ^J1F-- _J1<1 %Ccur_cosNF- 1F0 ^J1F- _J1<1F-%CN T! T $ T % T  T2 T3!C 234 T 2T-'T-(T-)T-*T-+ c%_%Cbienes .QbienesCbienescodinsT5 %Ccur_cosF-Q%C cur_cos_ultF0Q FU6XERRXMSGXCOSTOXCODIGOXBULXATRXFECHAXMONEDA XFECHA_COSTOXTIPO XFECHA_TCXCOMPROBXCAUSA XCOSTO_BASE XDESCUENTOXDTO2XDTO3XDTO4XDTO5XDESC2XDESC3XDESC4XDESC5XAREACOSIMPTOPCODIGOATRBULCOSTOTIPOFACTORMONEDAFECHACOD_PROIDUCOMPROBCAUSANO_PROY DESCUENTODESC2DESC3DESC4DESC5COSORICUR_COSCOS P_CS_CERO CUR_COS_ULT AAATMPCOS XCOSTO_ORIXCAMBIO_ORIGENCONVERTIR_COSTOBIENESq%Cbieaux 1Qbieaux %Cbieauxcoda B BUXCODIGOBIEAUXTIPOCOS %Cbieaux 9Qbieaux%C cur_tipocos1eFQ~ocosimpbieaux    CC a  6 cur_tipocos1  aT CC $CC%5CCH CCi$CCiCH$66DT C HTC i+a TC $<TCC  C $C $6F%Ccur_3FQ%Ccur_4FQocosimp CQC=FC  CC a  6 cur_4ocur_4cosimp      cur_3wocos 3 CC a  6  <cur_7ocoscur_7    3 cur_8&  F ~T %Ctmp_prodFQ%Ccur_1FQ%Ccur_2FQomovstock    !CCC "=g8Q#C    $CXCZQC  %P cur1ocur1produccideposito&&& C&!cQ!'(()(&#'#'((( &'(cur_2ocur_2cur_3!Q*      tmp_prod ~FG((codigoE %F*>>*!+ T+ T, ~T++*T,,!%,KT-+, 4C -5. b T-%Ctmp_prodFQ%Ccur_1FQ%Ccur_2FQ%Ccur_3FQ%Ccur_4" FQ%  W T T r T  0%CiCi CH  !%C cur_tipocos1 FQ%C producci2 F/QBU0XDFECXCOSTOXFECHABIEAUX CUR_TIPOCOS1DISTINCTCOSIMPCODIGOATRBULTIPOCOSXDBIEXFECHA_INICIALXMESXANO XFECHA_INIXHFEC XFECHA_CIECUR_3CUR_4COD_PROFECHACOSCOSTOMONEDATIPOCUR_7CUR_8XIDTMP_PRODCUR_1CUR_2MOVSTOCKCANTIDADNUMEROPRODDESPACHOCAUSACUR1PRODUCCIDEPOSITODESCRACCXACCXCAN XCOSTO_PPPAGREGAR PRODUCCI2u%Ccos 7Qcos%Ccosimp eQcosimp%Ccosult Qcosult& C ZN& C ZNFG((codigoE'% C ZNj& C ZN BU XORDENXCODXATRXBULCOSCOSIMPCOSULTINCOMPROBCAUSACODIGO COSTOS_A_HOY%CxcodbC6 T%CxatrbCa T%CxbulbC T%Ccosult Qcosult%C qocosCQ 2  cur_cosult1jocos cur_cosult1     cur_cosult uVocosCQ 2 cur_cosult1jocos cur_cosult1     cur_cosult ~FG((codigoE   %C4 *>    %a>               BUXCODXATRXBULCOSULTCODIGOATRBULFECHACOSTIPO CUR_COSULT1 CUR_COSULTLOTECOMPROBCAUSACOSTOTIPO2MONEDA CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC5H' N R ]TOC C TXTREP 2%C T T BUXCPBTXCOMPROBXCAUSA]%Ccs_log)FQ%C |:C-Carpeta de exportacin imposible de crear !!!B Th1\cs_logC NNC C C C D NNDNDNNNNNNNNC CCQ\cs_log<7 TaBUXDIRCS_LOG EXPORT_DIRMENSAJE P_DIR_EXPORTIDTIPOCOSOFFSETCODIGOATRBULLOTFECHAMONEDACOSTO FECHA_COSTTIPOFECHA_TCMONORICOSORI COSTO_ORI DESCUENTO_DESC2DESC3DESC4DESC5COSCPBTCOSCAUTEXTO PUBLIC_CS_LOGc      TCWF > > > > > > >  >! >" ># >$ >% >& >' >( >) >* >+ >, >- >. >/ >0 >1 FBU2XIDXTIPOCOSXOFFSETXCOSTOXCODIGOXBULXATRXLOTXFECHAXMONEDA XFECHA_COSTOXTIPO XFECHA_TCXMONORIXCOSORI XCOSTO_ORIXDESCUENTO_ORI XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCOSCPBTXCOSCAUXTEXTOXAREACS_LOGIDTIPOCOSOFFSETCODIGOATRBULLOTFECHAMONEDACOSTO FECHA_COSTTIPOFECHA_TCMONORICOSORI COSTO_ORI DESCUENTO_DESC2DESC3DESC4DESC5COSCPBTCOSCAUTEXTOk%Cbieaux 9Qbieaux T %Cbieauxcod.H{ 'TPromedio ponderado mensual TSlo reposicin 2&TUltimo costo + reposicinT `TT IndeterminadoBUXTXTXCODIGOXTIPOCOSBIEAUXTIPOCOSprefijados_cargargprocesarVultcos$ cos_x_for'calculo_teorico1 use_filesP6 unuse_filesR<fn_val=cos_mov_con_costog>cos_ocs@cos_recepcionesFcos_opsNreales+[agregar_cosman[agregar_cosvenbagregarccos_produccionm cos_manuales cos_directosecos_importacionesΆactualizar_costo_compras cos_mov_lotelocal_log_errores_insertarǖcierreTconvertir_costo:generar_automatico obtener_costocos_x_for_actualizadoagregar_cosimp fn_tipo_repcos_importaciones_egresos_de_zfobtener_costo_reposicionJtipo_costo_cierre costos_pppreliminar_costo_oc costos_a_hoycs_comprobante cs_log_iniucs_log cs_tipocosSqA2AaaaQaaqaAaaaaaaq!aAaa!aaaaaAAAr"!A"r!qAr11BBA%rBA!BB21AArqAEAA4$1AArBfArABBqAAA21AqaAsA1t!AAa6qAArA1qAARrA5QQAAABArC!A2r""Ab"Tdr"ABBBBA"ABuAAArBAABrr1AC4rQ!QbrqDbBAArAB2rsrAAAAAA2rr3AArrArA2Ab11AA!AAqAArAB31A1urqABAA:1Al3llBB2q0A!AqAArqAArAqAArqAAAAAAqAAqAAAA!AAA!AAA!Ar!AAA!A!AB2taaraaraaraaraaraaraaraaraaraaraaraaraaB3qqaAaA2q!Aqr5RrAqaC2qrAAqr;bbArAv"NABrAAB2qttDrrsb3aaAstbQaaAc4aaA AAADrAqaAA2q|rqAAqrQesQrqqAArrcQAAAssb3cQqqABdQqqAC ArdQAAAAAAABrAAaB2qeB3BA+!!AAAAArr1AAAARD3!A5EAABsQsABBAr4rqQAt4qBAAAAAAAAAAA2B"!!RAr2BAA1AAAAAABA12BAA1AAAAAABABAQ1sAA BB"AArRAB!ArQB2 BrB3qAA u11AR!QSq Btk3kB1 CrrAArl#QA441aARs2ABBB!AABrAbAAA1qrAAr "AtRs1ABBrAAAAABrABrarAAC2qsRqAACGr'BB2qqBB211ArqA4rAAAAAAA qtA&qAARA"qAAB2BAaA22Qq!QqaAD2BB3qBqAArVqrratqtrE"qBAaA"qABrE"r4!AABBB2aA2Ar"9Tr4  B"ABBA22AA2BdrArcaRABca4tA2AA1rAV2RQaA!ArAA313q1AAAA1AAr!A!ARA1qA1ArqRRbB!AAAB!AAA2Arq4<J":ABRRbB!AAAB!AAA22R2R2R2RA121B#0QA q"ABtwrQAAAAArrrrrrBqAAsQA2AB1abc@ FBBBrR"sB!AAABA612A2AAA3QAArqrRrqrq2AArrb1AAqAqAAr1A!!Ar1AB2+!AAAAAAAABRBA!Arr1AAAARArA_AAq"bAAA BsaAaAx4qAbA31AqAA;ssstAqAAqAAB2 AA1AAAAAAAAArA1Ca 6ABrrqqqAttqqQqAAr!B!AAAqAAqAA5q!AA4!AqAAWdqAAbqAA} { brqAAaqAAbqAA q qqABsA2AAqAAaqAAbqAACbqAAbqAA3AAABqAAqAAB21RA!A!Abbrtb3BB2AAA!A"aArQBa AAB2raQ!AAA3qrqAAAARrqC31rsQA2!AaqaaAAA1 @o3M39Jh9JK-U:CUw\U\_6.__t_d~$dww]qwwhJp_ No  "/  W& O zh ?g E&l a&F< ,p<<q /<Ȉv 9;Дk}AYn+ J (: iJ R}\ e| |%<LtXJ a Ta Ta T"T\tmp\CC]Rcm_imp_ingreso T T T 7   BU DEY_FUNC2P_DEV P_SUSPENDP_CO_POR_LINEA XTEMPCOMPP_LOCAL OPEN_FILESCM_IMP_INGRESOXERRXMSG XIMPORTACASIENTO_IMPORTACION 4%Ccons <QconsF#)TTT  F % - % (TImportacin inexistente !!! T B(oconver  tmp_conver% sC#la importacin no tuvo ingresos !!!C C 3Solo si tuvo ingresos se puede realizar el asiento.B-#)T T T T T T  TT T T!"T#$T%&T'(-K(,-C)*+TC)*TT.,%T/C-%TT./5+ ) C1 (0*F2G((codinsG( <45#4d5d T6 T7 T8F%~19: ) F2 E1%C4T88;(78%C;52<4!%;7T77T572<T573T5;C;5)*%%=;(6%C;42>!%;6{T66T462>T46:T4;C;4)*+% ;(6p%C;42>C;42? C;42@ C;41 C;4A C;4B l!%;6YT66T462>T46T462?T462@T461T46AT46B:T4;C;4)*+% TC-Dcm_imp_ingreso TF/GtrsacFdiariogconcepto%F TFDItrsacFCm_imp_asientoAsiento de importacin TCa%FTCCJ%C TF TF TFDKtrsacFCm_imp_asientoAsiento de importacin TL%C BCSe ha registrado el asiento CC@z 999,999,999_   BCUMXERRXMSG XIMPORTACXRESCONS XIMP_PROVG IMP_PROVG XIMP_GASTO IMP_GASTO XIMP_IMPOIMP_IMPOIMPORTACNUMEROCONVER TMP_CONVERMENSAJE XDEPOSITODEPOSITOXFLETEINGFLETE XDERECHOS INGDERECHO XESTADISTICA INGESTADISXOTROSINGOTROS XPROVISION INGPROVISIXIMPORTNEWASIASIENTONEWTRFTRANSFXFECHAFECHA XDESPACHODESPACHOXCAMBIOCOEFICXMONEDACOEFENTRAFOBFACTORXTOTALXFOB XTOTAL_PESOS XFOB_PESOS XFACTORTEOCOD_INSBIENESCODINSARR_CUEARR_IMPMAXARR MAXARRIMPACCOBIEDATA_CODIGO_VACIOZIMP_CUEP_CO_POR_LINEACOD_CUELINEAGRUPOATRBUL XRESULTADOAPERTURA_DE_EJERCICIOCM_IMP_INGRESOAAALOCK_GTRSACBEG_TRANREGISTRAR_ASIENTOEND_TRANTTS_IDSFFFG((asiento E%C4 ^`>Importacin N C@z 999,999,999_ / Despacho N C4F T T  ( &T CC  TTC  T C  TC  TTC  TC  TC  TC  TC  T  C %*T ^T T%TC T%T c T T T T TT  C  ! cm_imp_ingresoa ~T "#cT"$T"%T"&T"'T"(T  C   T) (*gLT+ CC +C,C +, 6TT))C +T-)%-$T+C+- T) (*T C +cTC +2T%Fob+Derechos+Estadsticas+Flete+Otros T T T T TT  C T))C +T ,c%  ?TC.TProvisin GastosT  C  B/U0CONCEPTOFORASIENTONEWASIDIARIOG XIMPORTAC XDESPACHOTIPO2 XTOTAL_PESOSXPASEZMAXARRARR_CUEXIMPORTEXCUENTA XCOMENTARIOXLINEAXGRUPOXCODXATRXBUL P_IMP_VERSIONXGASTOSXFLETE XDERECHOS XESTADISTICAXOTROS XPROVISIONP_CM_IMP_CUENTASFN_COD XIMP_IMPOP_CO_POR_LINEA"PORCENTAJES_X_LINEA_GRUPO_TEMPCOMPCM_IMP_INGRESO POR_LIN_GRU PORCENTAJELINEAGRUPOCOD_INSATRBULACCC MAXARRIMPARR_IMP XFOB_PESOSXSALDO XIMP_PROVG TTS_ERRORasiento_importacionpregistrar_asiento AQe'1C5rbArQraAbA"1qASaRsa1rQrAAA1A13AAA1AAAA1A0ABA2A2AAB"BB3rrrQArcRQRQRQQA3A4"2ABB4AAbQ!BD$A1( %jeV ioB"YUH %Cnumfac `Qnumfac Ta T- #6%Cnumfac+  T  #T  %!>COCf bCUError en numfac.ptovta !!! Se deben verificar las tablas del sistema y las novedades. %QUXABIERTOP_VERSION_ACTUALNUMFAC XMODIFICARPTOVTADESCRINMENSAJE  T BUXVERSIONb %Ccons 1Qcons>C1[ BUOVERSION XRESULTADOCONSMAILTIPOALL RESULTADO2  sys_verificar BUOVERSION XRESULTADOACENTO_EN_CONCEPTO_TIPO2_50 SYS_VERIFICAR RESULTADOq G+( ve_numfac%Cnumfac HQnumfacF>C BUOVERSION XRESULTADO VE_NUMFACNUMFACDESCR DESCR_NUMFACALL RESULTADO5 %Ccompras 7Qcompras%Citmdescc iQitmdesccocomprasQXitmdesccQ C ZC ZCZC ZC C tmpitmd.ritmdescc   otmpitmdocomprasQXitmdesccQ C ZC ZPCZC ZPQC C tmpitmd.ritmdescc   otmpitmdF BUOVERSION XRESULTADOCOMPRASITMDESCCCMOPITMCAUSADESC_INSITCOMPROBITEMTMPITMDDESCRPAGO RESULTADO  % CXXX # p_multiemp-TCCFG_Ctrl Sys_cfg.prgaC p_multiemp C BU OVERSION XRESULTADO P_MULTIEMPP_EMPSYS_CFGOCFGBORRARGRABAR RESULTADO %Cimp_stru AQ \imp_stru%Cimp_sets {Q \imp_sets>C>CQQ BU OVERSION XRESULTADOP_SYSTEMEMPP_EMPFORIMP_SETSIMP_STRU RESULTADO -TCCFG_Ctrl Sys_cfg.prgaC p_multiempCp_costosC p_vactpreC p_cactpreCp_chkrecCp_recaut C%C incoterms Q \incotermsF-%C4 Gr incoterms DAPDelivered At PlaceQ B U OVERSION XRESULTADOOCFGBORRARGRABARP_SYSTEM INCOTERMSCODIGOINCOTERMDESCR RESULTADO -TCCFG_Ctrl Sys_cfg.prgaC p_vactpreC p_cactpreCp_chkrecCp_recaut C BUOVERSION XRESULTADOOCFGBORRARGRABAR RESULTADO -TCCFG_Ctrl Sys_cfg.prgaC p_ven_cantC p_ven_prec C BUOVERSION XRESULTADOOCFGBORRARGRABAR RESULTADOl -TCCFG_Ctrl Sys_cfg.prgaCp_recaut C BUOVERSION XRESULTADOOCFGBORRARGRABAR RESULTADO %H*p_ve_validar_cuit%1p_ve_validar_cuit_metodo BUOVERSION XRESULTADOP_VE_VALIDAR_CUITSYS_CFGP_VE_VALIDAR_CUIT_METODO RESULTADO -TCCFG_Ctrl Sys_cfg.prga%Ctipofce lQ\tipofceF2T%Otro (no empadronado como Exportador)-%C4 &rtipofce  >Q BU OVERSION XRESULTADOOCFGP_SYSTEMTIPOFCEXTIPOFCECODIGODESCR RESULTADO -TCCFG_Ctrl Sys_cfg.prga!Cp_ve_validar_cuit(Cp_ve_validar_cuit_metodo C BUOVERSION XRESULTADOOCFGBORRARGRABAR RESULTADO %C provinc_ext GQ \provinc_ext]r provinc_ext1bSIRTACSIRTbQ B U OVERSION XRESULTADOP_SYSTEMCODIGOCODDESCRJUR_CONVABREVAFIP PROVINC_EXT RESULTADO %Cuser_log AQ \user_logF+a&> C,,% !+a&> C,,% !Q%Casddf -Q\010592>CrN[>>CrS[  SUPERUSUARIO  Q B U OVERSION XRESULTADOP_SYSTEMUSER_LOGCOMPROBFORCOMPROB2ASDDFA2ALLA4A3 RESULTADO FQ\paisesF$> 50 2&%CTMPAV17Codigo [rtmpav17KOSOVO 55-00000727-4 50-00000727-6Q B U OVERSION XRESULTADOP_SYSTEMTMPAV17CUIT_FISFORCODIGODESCRCUIT RESULTADO -TCCFG_Ctrl Sys_cfg.prgaCp_asimod Cp_ve_tope_efe_cf C BUOVERSION XRESULTADOOCFGBORRARGRABAR RESULTADOk %Cq%Q%Cbancos [Q\bancos4obancosCQq% pbancosC]%CqQ%CbancosQ-TCCFG_Ctrl Sys_cfg.prgaCp_supermercado C B U OVERSION XRESULTADOQP_SYSTEMCODIGOCNTBANCOSIDUOCFGBORRARGRABAR RESULTADO] %Cnumfac @Qnumfac Ta T- #6T  #T  %!>COCf%Q-TCCFG_Ctrl Sys_cfg.prga!Cp_nd_rech_version C B U OVERSION XRESULTADONUMFACXABIERTO XMODIFICARPTOVTADESCRINOCFGBORRARGRABAR RESULTADO  BUOVERSION XRESULTADO RESULTADO. 7C Tarea_CambioCuitAduana_reversion+CTarea_LlenarNicknameCHabilitarSubirFactur,do sys_cfg with 2, 'p_meli_subir_factura', 1/Habilita el parmetro para subir facturas en MLSEG Tarea_Base1CTarea_PasarMails_a_ProMail9C"tarea_correccion_concepto_comp_exp&Cpermiso_25_a_no!C permiso_33&Cpermiso_27_a_no&Cpermiso_40_a_no&Cpermiso_41_a_noUOTAREASXRESTAREAS_AGREGAR!) CbarrasaCmix_adica Ccccliea"CmailctasaCconsa Cidx01a Cidx03aCcfga!CcscoefaCnumfacaCcfg_lisaCclientesaCsucursalaCtventasaCventasaCbienesaCtccventaCccventaCcuentasaCproveedoaCtcomprasaCcomprasaCtcccompaCatribsaCcccompaCchequesaCinfos-CcostosaCcondcobraCven_operaCcondpagoaCcom_operaCconveraCconver2aCquestion-CagenteaCfletesaCopagosaCidx04aCidx02aCccofabaCtr04aCcomunic-CdepositoaCcentralaCstockaCstkxcodaCdespachoaCimportacaCcomaCsaldosaCdespaCbultosaCatributoaCmovstockaCccclieaCccprovaCsolcomaCsolcom2aCstkxdepaCstkxdspaCcosxcueaClisprecaCrotaCrotnoentaCcompromiaCchqanuaCcodxproaCcodxcliaCA010592-Cpermisos-Cpaises-Cprovinc-CccformulaCmarcasaCfaccredaCproducciaCempresas-CbatchaCmotinva%Ctck_ccaCtck_cliaCtck_cccaCdistribaCformulasaCultcosaCremxfacaCchqaCcesionaCreclamosaCcccnotasaCzonasaCmotivosaCcatcliaCcatproaCsucpropaCgruposaClineasaCstkxseraCcomproma%CEL CsalxsucaCven_encaCven_detaCingresosaCegresosaCtalonariaCserdetaCcodbulataCcompprodaCcosaCcosmanaCreclamosaCforincosaCcheproaCcashdataaCcashadicaCcashexpaaCcashcancaCcashcueaCcashtipoaCcashpronaCcliauxaCproauxaCplanvarcaCdespfletaCret_provaCper_provaCcomi_artaCve_transaCcos_cieaCmaquinasaCForm_CalaCForm_PasaCForm_GenaCOperarioaCplan_maqaCplan_madaCplan_opeaCplan_diaaCcompplanaCprot_espaCprot_anaaCprot_detaCuser_log-CccpagaCcccobaCplan_genaCcashprovaCcashprocaCunidadesaCequipos-Cequser-CrubrofacaCvlocaleaCvlocaldaCcatpro2aCcatpro3aClocks-Clocksold-CchpaCcashcfgaCrotulosaCejerconaCtarjetasaCacuerdosaCasm_detaaCasm_formaCasm_mastaCasm_paseaCmaq_grpaCform_maqaCplan_nuvaCplan_opdaCpro_adiaCprod_gena CpendreclaCEMPUSER-Citm_descaCiva_venaCtarjetasaCesolcomaCdsolcomaCcashuseaCcosvena Ctempcomp-CmedidasaCprod_foraCcash2paCcomppauxa Cmonicfg2-Cmonilog2- Cmonistat-CarmadoraCcodespeca CcashnumeaCcash2iaCcashcan2aCbul_genaCbul_genlaCbul_gengaCatr_genaCatr_genlaCatr_gengaCtextosaCrptparam-CartxcliaCsysmsg-Csysmsgue-Csysmsgua-Csysmsgus-Cmtz_prodaCinvmodeaCinvmoddaCctasbanca Cback_cfg-Cform_resaCstopsaCprodstopaCcos_adetaCmsgxuseraCmtz_defaCin_faltaaCPlan_UsoaCIIBBP-Cbancos-Cenvasesa Ccen_refuaCtipodoc-CnumrecaCcos_acomaCSprGrupoaCdretprovaCmant_stkaCimp_TranaC planificaaCrec_TalaCcos_cprea CcashresuaCensambleaCartxproaCcosimpaCiibbprovaCiibbpereaCped_procaCfle_tipoaCco_eraC co_er_datosa Cferegcom-Ciibbreta CplvenageaCcashpromaCcashpropaCiva_coma CcuexmotiaCpr_ciea!C paisesfce-!C incoterms-Ctipofce-C historialaCusuarios-CitmdesccaClocalcfg-CbieauxaCtsp_tspsaCtsp_camiaCtsp_traiaCtsp_chofaCcosultaCtsp_asigaCtsp_lugaa Cdbt_fecpaC sch_gastosa#Csch_gastos_conca#Csch_gastos_cpbta$Csch_gastos_clasea Cafipcpbt-CFETKACT-Cbul_gengaCbul_genlaCatr_gengaCatr_genlaCAGIPP-CAGIPSP-CAGIP-CarmadoaCtrrecaCciecajeaCciecajvaCciecajdaCcierresaCform_estaCprod_estaCcliotrosa Cifregcom-CtarjaCtarjreglaCreservasaCve_altasaCcatcredaCFECotComaCciecajpaCplandtosaCatrhabilaCepresupaCdpresupaCpro2a Cve_otrosaC pd_consolaCpr_otrosaCccarmadoaCCliMailaCProMailaCarmadolaCdepminaCepredespaCdpredespaCciecajpdaCmailcola-Ctipoimp-#Cmix_Adica CfechaaCcat_comaC clivariosaCimp_sets-Cimp_stru-Cte_anuaCasista Ctipocomp-!C tipocompg-C despotrosaCeprotaCdprota"Cmailasiga Cseguima%C bienes_busqa%C bienes_fastaClog_aut-C pd_demoras-C cligrueceaC cligruecdaCstockg-Cstkxdepg-CpickingsaCsectoresa Cdbt_BFECa-aaCco_func-Cversion-Cpdfstore-Cpsolcoma!Crec_updaCcajasa"CPlantillas_XLS-C PropiedadesaC Prop_PredetaC dpickingsa#CPlataformas_Auxa!C Tareas_estado-CVentasdaCEstvenaCTcccompdaCEstimp-CSga_msg-C cfg_ventasa&Cplataformas_configaCrlocks-C ereclamosaC dreclamosaCpdfindex-C cfg_lis_daCeaprobaCdaprobaCoaprobaCbul_lisaCbul_dlisaC arts_proda BUOCOLLXRES COLL_AGREGARP_TICKETP_EMP G+( sys_verificar%Cejercon NQejerconF ~'C\C\diariog(C\C \concepto%C\C\diag2%C\C\conc2%Cejercon#FQ%hCclientes-Csucursal-Ctventas-Cventas-%Cbienes-Ctccvent-Cccvent-%Cproveedo-Ctcompras-Ccompras-Ctcccomp-Ccccomp-Ccheques-Cven_oper-Ccom_oper-Cconver-Cconver2-Copagos-Cccofab-Ctr04-%yCstock-Cstkxcod-Cdespacho-Cimportac-Ccom-Csaldos-Cdesp-%.Cbultos-Catributo-Cmovstock-Cccclie-Cccprov-Csolcom-Csolcom2-Cstkxdep-Cstkxdsp-Clisprec-Crot-Crotnoent-Ccompromi-Cchqanu-%Ccodxpro-Ccodxcli-%Cccformul-Cmarcas-Cfaccred-Cproducci-Cbatch-%pCtck_cc-Ctck_cli-Ctck_ccc-%Cformulas-Cultcos-Cremxfac-Cchq-Ccesion-Creclamos-Ccccnotas-%iCgrupos-Clineas-Cstkxser-Ccomprom-%CEL\Csalxsuc-Cven_enc-Cven_det-Cingresos-Cegresos-Ctalonari-Cserdet-%Ccodbulat-Ccompprod-Ccos-Ccosman-Creclamos-% Cforincos-Cchepro-Ccashdata-Ccashexpa-Ccashcanc-Ccashpron-Ccliaux-Cdespflet-Cret_prov-Cper_prov-Ccomi_art-Cve_trans-Ccos_cie-%} CForm_Cal-CForm_Pas-CForm_Gen-Cplan_maq-Cplan_mad-Cplan_ope-Cplan_dia-Ccompplan-Cprot_esp-Cprot_ana-Cprot_det-Cuser_logaCccpag-Ccccob-Cplan_gen-Ccashprov-Ccashproc-CequseraCvlocale-Cvlocald-ClocksaClocksoldaCchp-Ccashcfg-Crotulos-Ctarjetas-Cacuerdos-Cplan_nuv-Cplan_opd-Cprod_gen-Cpendrecl-CEMPUSERaCitm_desc-Civa_ven-Ctarjetas-Cesolcom-Cdsolcom-Ccashuse-Ccosven-CtempcompaCprod_for-Ccash2p-Ccomppaux-Ccashnume-Ccash2i-Ccashcan2-%QCbul_gen-Cbul_genl-Cbul_geng-Catr_gen-Catr_genl-Catr_geng-%|Cartxcli-Cform_res-Cstops-Cprodstop-Ccos_adet-Cmsgxuser-Cin_falta-CPlan_Uso-Ccen_refu-Ccos_acom-Cdretprov-Cmant_stk-Cimp_Tran-C planifica-Crec_Tal-Ccos_cpre-Ccashresu-Censamble-%MCartxpro-Ccosimp-Ciibbprov-Cped_proc-C co_er_datos-CferegcomaCcashprom-Ccashprop-Civa_com-Cpr_cie-Citmdescc-%oCbieaux-Ccosult-Ctsp_asig-Cdbt_fecp-C sch_gastos-%JCbul_geng-Cbul_genl-Catr_geng-Catr_genl-Carmado-Ctrrec-Cciecaje-Cciecajv-Cciecajd-Ccierres-Cform_est-Cprod_est-%5Ccliotros-Cifregcom-Creservas-Cve_altas-CFECOTCom-Cciecajp-%Catrhabil- Cepresup-Cdpresup-Cve_otros-%NCpro2-C pd_consol-Cpr_otros-Cccarmado-%Cclimail-Cpromail-Carmadol-Cdepmin-Cepredesp-Cdpredesp-Cciecajpd-Cfechas-%Ccat_com-%C clivarios-Cte_anu-Casist-C despotros-Ceprot-Cdprot-Cseguim-C bienes_busq-C bienes_busq-C bienes_fast-Clog_aut-%C cligruece-C cligruecd-C bienes_busq-C bienes_busq-C bienes_busq-Cstockg-Cstkxdepg-Cpickings-%Csectores-Ccajas-CPlantillas_XLS-C Propiedades-C Prop_Predet-CVentasd-%{CEstven-CEstimp-#Cplataformas_config-BU XCLIPROXART SYS_VERIFICAREJERCON PROCESAR_ELIMP_SERVERDIRP_TICKETP_EMPPROCESARF Ta-TCcashdataborrado +TCcash2pborrado ,TCcashuseGenerar .TCcashuse equipo_id +TCcashdatavalor )TCconver2flag (TCcccompflag *TCejerconhasta *TCcosvencodigo +TCmedidascodigo *TCmedidasdescr *TCmedidasabrev (TCmedidasidu -TCprod_forformula (TCprod_forop +TCprod_foropmod ,TCprod_foroporig +TCremxfacpedido *TCventaspeditm +TCcomprasultcom ,TCtcomprasultcom +TCtventaspeditm .TCcompras solicitud )TCmovstockcod -TCform_maqformula ,TCform_maqpredet *TCform_maqtipo )TCform_maqidu -TCform_maqgrp_cod -TCform_maqmaq_cod .TCform_maqform_pre (TCccclieCPBT +TCcomppauxclave (TCcomppauxid +TCcompromCODIGO )TCcodespecidu ,TCcodespecCODIGO +TCcodespecDescr 'TCcoscodlot *TCcosmancodlot )TCcashexpaid2 )TCcashcancid2 )TCcashdataid2 -TCcashcanccomprob )TCcashcan2id2 -TCcomprasreforden +TCdsolcomsolitm *TCconver2flag1 ,TCmtz_prodtransf +TCinvmodecodigo *TCinvmodedescr (TCinvmodeIDU +TCinvmoddcodigo *TCcom_opercpbt *TCven_opercpbt -TCmovstockCODBULF -TCmovstockCODATRF (TCin_faltaid *TCcccompcodpro ,TCctasbanccodigo +TCctasbancdescr +TCenvasescodigo *TCenvasesdescr *TCenvasesabrev (TCenvasesidu (TCmovstockpk 'TCbancosidu *TCbancoscodigo )TCbancosdescr )TCbancosbanco (TCtipodocidu +TCtipodoccodigo *TCtipodocdescr #TCchqid -TCcos_adetcomprob .TCcos_adetcomprobi .TCcos_adetcomprobi -TCcos_acomcomprob .TCcos_acomcomprobi .TCcos_acomcomprobf ,TCcos_acomcompra -TCcos_acomcompraf )TCSprGrupoidu ,TCSprGrupocodigo +TCSprGrupodescr (TCdretprovid ,TCmant_stkcodins )TCimp_transol .TCimp_tranordenitm ,TCimp_tranimport *TC planificaidu .TC planificaperiodo ,TC planificafecha ,TC planificadescr -TCctasbanccod_cue (TCrec_talidu 'TCrec_talpv +TCrec_talcodigo ,TCcos_cprecodigo +TCcos_cpredescr )TCcos_cpreidu -TCensamblecomprob )TCensambleitm .TCven_operadebitar &TCcosimpid *TCcosimpcodigo (TCiibbprovid (TCiibbpereid -TCret_provcomprob )TCdretprovref ,TCconverimportac +TCtccventoriped .TCtccvent update_dt %IND1,TCtccventref_ext ,TCacuerdoscodigo +TCacuerdosdescr )TCacuerdosidu /TCacuerdos prioridad +TC co_er_datosid /TC co_er_datosidfull 'TCiibbretid -TCcomprasimportac (TCcomprasart )TCtcomprasart 'TCccventrem ,TCccclieasitipo2 )TCcashpromidu )TCcashprommes )TCcashpropidu )TCcashpropmes 'TCiva_comop )TCiva_compago )TCcccompfecha 'TCccventfec 'TCventasfec +TCventasCPBTITM *TCdespconforme ,TCpr_ciebatchcie (TCpr_cieprod )TCpr_cieidcie ,TCve_transpedido -TCve_transcomprob *TCbienesbarras .TC historialid_tipo )TC historialid ,TC historialfecha *TC historialusr ,TCusuarioscodigo +TCusuariosdescr )TCusuariosidu .TCven_operidcheque .TCcom_operidcheque *TCconverremito (TCcoscomprob (TCitmdesccid ETCconvermovstr(transf,12)+str(item,3) (TClocalcfgpk ,TCconveraprobado *TCcosultcodigo (TCtsp_asigid )TCtsp_lugaidu ,TCtsp_lugacodigo +TCtsp_lugadescr -TCtsp_asigfactura FTCtsp_asigfactgntfactgnt+str(gnt,12,2) MTCtsp_asigid!cliente+str(viaje,12)+dtos(fecha) +TCtcomprasfecha +TCtsp_asigviaje -TCtsp_camipatente -TCtsp_traipatente /TCtsp_chof documento 0TC sch_gastosvendedor -TC sch_gastosfecha +TC sch_gastosidu 0TCsch_gastos_concidu 3TCsch_gastos_conccodigo 2TCsch_gastos_concdescr 0TCsch_gastos_cpbtidu 3TCsch_gastos_cpbtcodigo 2TCsch_gastos_cpbtdescr 1TCsch_gastos_claseidu 4TCsch_gastos_clasecodigo 3TCsch_gastos_clasedescr /TCrptparam rpt_idfec -TCFETKACTSE_CU_VA ,TCproduccisemiop +TCuser_logIDTip (TCbul_gengid (TCbul_genlid (TCatr_gengid (TCatr_genlid )TCbul_gengidu )TCbul_genlidu )TCatr_gengidu )TCatr_genlidu +TCconvercod_pro *TCcos codatrbul ,TCimp_trancodigo 'TCciecajeid ,TCciecajeasiento 'TCciecajvid 'TCciecajdid (TCccprovcpbt 'TCcierresid -TCform_estformula ,TCform_estestado *TCprod_estprod ,TCprod_estestado -TCcliotroscod_cli ,TCccprovasitipo2 (TCtarjcodigo 'TCtarjdescr )TCtarjcod_cue ,TCtarjreglcodigo (TCreservasid -TCve_altascomprob )TCve_altasitm )TCreservasitm +TCcatcredcodigo *TCcatcreddescr (TCcatcredidu +TCFECOTComfecha 0TCFECOTCom secuencial -TCFECOTComarchivo )TCFECOTComhoy 'TCciecajpid ,TCplandtoscodigo +TCplandtosdescr +TCplandtosdesde %TCcoslote 'TCbieauxcod +TCatrhabilclave +TCatrhabildescr )TCatrhabilidu +TCepresupnumero *TCepresupfecha ,TCepresupcod_cli +TCdpresupnumero *TCbienesmodelo *TCbienesdmarca )TCbienesmarca (TCpro2codpro ,TCccarmadoarmado +TCccarmadofecha *TCarmadoarmado -TC pd_consolconsol -TC pd_consolpedido *TCbienesbarras )TCstockbarras 'TCdpresupid (TCpr_otrosid 'TCbienesdun &TCstockdun ,TCccarmadopedido ,TCccarmadoconsol +TCCliMailCodcli +TCProMailCodPro ,TCpr_otrospeditm +TCarmadolarmado &TCdepminid ,TCdepmindeposito ,TCdpredespnumero +TCdpredespfecha ,TCdpredesppedido ,TCepredespnumero +TCepredespfecha ,TCepredespcodfle (TCciecajpdid 0TCmailcola pendientes (TCmailcolaID (TCpaisesCUIT )TCpaisesCUITN +TCcat_comcodigo )TCdespachoidu *TCnumreccodigo )TCnumrecdescr 'TCnumrecidu &TCte_anuid )TCasistpedido -TCasist asistencia +TCbienescod_pro /TC despotrosdespacho /TC bienes_fastbarras 'TCeprotprod 'TCdprotprod ,TCMailCtasCodigo ,TCMailCtasNombre )TCMailCtasidu )TCMailAsigidu ,TCMailAsigcodigo .TCMailAsigcod_mail ,TCMailAsigcodusr .TCped_procctrl_ges .TCped_procctrl_ven +TCseguimcomprob 2TC bienes_fast codatrbul -TC bienes_busqword /TC bienes_busqidword .TC pd_demorascodigo -TC pd_demorasdescr -TC cligruececodigo ,TC cligruecedescr -TC cligruecdcodigo .TC cligruecdcod_cli *TCstockgcodigo ,TCstkxdepgcodigo ,TCstkxdepgcoddep )TCstkxdepgcod ,TCpickingspedido -TCpickingspicking /TCstkxdepg codigoemp ,TCsectorescodigo -TCsectorescod_cli )TCcom_opernum )TCven_opernum +TCco_funccodigo *TCco_funcdescr 'TCccventref +TCdsolcompeditm ,TCcash2iBORRAR2I )TCpdfstoreidu +TCpdfstorefecha (TCpdfstoreid .TCpdfstorerevision )TCpdfstoreemp *TCnumfacptovta 'TCnumfacidu *TCcfg_lislista (TCcfg_lisidu -TCasm_formasi_mod .TCasm_formconcepto +TCpsolcomsolitm &TCcajasidu )TCcajascodigo (TCcajasdescr (TCpsolcomsol 'TCcccompid2 +TCtventaspresup 2TCPlantillas_XLSCodigo /TCPlantillas_XLSIDU 3TCPlantillas_XLSID_Form )TCnumfacdescr )TClocksEquipo )TClocksEQ_SES (TClocksEQ_TB )TClocksSESION (TClocksTABLA +TClocksEMPTABLA /TC PropiedadesCodigo ,TC PropiedadesIDU /TC PropiedadesNombre 0TC Propiedadescod_ins 2TC Propiedades CODHEADER .TC PropiedadesOrden /TC Prop_PredetCodigo ,TC Prop_PredetIDU /TC Prop_PredetNombre *TCAcuerdosdcli *TCAcuerdosdfec .TCuser_logcomprob2 (TCcomprompck 4TCplataformas_auxref_ext 5TCplataformas_auxref_full *TCconver2fecha +TCconver2id_ext 2TC tareas_estadofull_id +TCcosimpcomprob +TCcosultcomprob ,TCventasdcomprob *TCestvencodigo )TCestvendescr 'TCestvenidu )TClocalcfgpk2 (TCcosimpcpbt *TCestimpcodigo )TCestimpdescr 'TCestimpidu +TCsga_msgcodigo 'TCsga_msgid )TCccpagid_ext )TCpermisoscod )TCpermisosdsc .TC PropiedadesGrupo 2TC Propiedades GruHeader .TC Prop_PredetGrupo 2TC Prop_Predet GruHeader .TC cfg_ventascodigo -TC cfg_ventasdescr +TC cfg_ventasidu 'TCventasent 1TC co_er_datosidcentro 8TCplataformas_configPlaLogic 7TCplataformas_configPlaSolo :TCplataformas_config plataforma :TCplataformas_config logistic_t 3TCplataformas_configIDU &TCrlocksid )TC ereclamosID -TC ereclamosCODCLI )TC dreclamosID -TC dreclamosIDCPBT )TCpdfindexidu +TCpdfindexfecha (TCpdfindexid .TCpdfindexrevision )TCpdfindexemp /TCpdfindex FILEStore *TCeaprobid_cad 'TCeaprobidu *TCdaprobid_cad -TCoaprob operacion *TCoaprobid_cad +TCbul_liscodigo *TCbul_lisdescr ,TCbul_dliscodigo +TC arts_prodprod ,TCccformulcodens BUXRESVLD_IDXP_EMP= Ta.TCSistema : acceso 3T#CContabilidad : acceso 2T"CFacturacin : acceso .TCCompras : acceso 3T#CTesorera : cobranzas /TCTesorera : pagos ET5C'Contabilidad : modificacin de asientos KT;C-Contabilidad : anulacin de asientos manuales 0T C Tesorera : acceso ZTJC <Tesorera : cobranzas : pregunta fecha el ingresar cobranzas STCC 5Contabilidad : asientos : rehacer asintos automticos WTGC 9Facturacin : comprobantes : facturas : cambio de precios UTEC 7Contabilidad : asientos : asientos sin afectar archivos 5T%CContabilidad : asientos CT3C%Contabilidad : visualizacin asientos CT3C%Contabilidad : acceso a configuracin [TKC=Facturacin : comprobantes : facturacin de clientes sin cuit AT1C#Contabilidad : asientos automaticos LT<C.Sistema : tablas auxiliares : cuentas : acceso XTHC:Sistema : tablas auxiliares : clientes : revisin de datos YTIC;Sistema : tablas auxiliares : artculos : revisin de datos iTYCKSistema : tablas auxiliares : clientes : acceso solo a datos no comerciales FT6C(Sistema : sincronizacin sistema central STCC5Compras : ordenes de compra : eliminar autorizaciones 2T"CTesorera : asientos ET5C'Cuentas corrientes de clientes : acceso HT8C*Cuentas corrientes de proveedores : acceso 5T%C Sistema : mantenimiento XTHC!:Sistema : configuracin : cierres de IVA, contable y otros BT2C"$Facturacin : acceso a configuracin >T.C# Compras : acceso a importaciones @T0C%"Tesorera : acceso a configuracin @T0C&"Tesorera : acceso a vales de caja 5T%C'Facturacin : despachos OT?C(1Compras : comprobantes de compra : autorizaciones YTIC);Sistema : autorizaciones : modificar cadena de autorizacin BT2C*$Tesorera : acceso a flujo de fondos CT3C+%Tesorera : abm de puntos de cobranza hTXC,JSistema : tablas auxiliares : cuentas : borrar cuentas del plan de cuentas JT:C-,Facturacin : pedidos : anulacin de pedidos ]TMC.?Facturacin : operaciones varias : anulacin lgica de fc/nc/nc MT=C//Compras : modificacin de comprobantes emitidos lT\C0NSistema : tablas auxiliares : articulos : acceso a datos de costo y produccin 9T)C1Inventario : configuracin ZTJC2<Produccin : modificacin de fecha en apertura de produccion 8T(C3Produccin : configuracion OT?C41Produccin : anulacin y reapertura de produccin CT3C5%Facturacin : reportes : contribucion JT:C6,Sistema : configuracin : variables globales 9T)C7Sistema : tablas auxiliares KT;C:-Facturacin : despachos : emisin de listados 3T#C;Facturacin : pedidos CT3C<%Facturacin : comprobantes : facturas TTDC=6Facturacin : comprobantes : notas de debito y credito RTBC>4Inventario : operaciones : movimientos de inventario gTWC?IContabilidad : apertura y cierre de ejercicios / cierres mensuales  cTSC@EFacturacin : operaciones varias : rentabilidad de pedidos y facturas IT9CA+Tesorera : pagos : pregunta fecha al pagar 1T!CBInventario : acceso 1T!CCProduccin : acceso -TCDCostos : acceso 1T!CEEspeciales : acceso -TCFGestin: acceso CT3CG%Sistema : tablas auxiliares : precios PT@CH2Facturacin : comprobantes : facturacin sin stock 1T!CIEspeciales : acceso TTDCJ6Facturacin : acceso solo a reportes y visualizaciones PT@CK2Compras : acceso solo a reportes y visualizaciones RTBCL4Tesorera : acceso solo a reportes y visualizaciones STCCM5Inventario : acceso solo a reportes y visualizaciones STCCN5Produccin : acceso solo a reportes y visualizaciones UTECO7Contabilidad : acceso solo a reportes y visualizaciones OT?CP1Costos : acceso solo a reportes y visualizaciones PT@CQ2Gestin : acceso solo a reportes y visualizaciones STCCR5Especiales : acceso solo a reportes y visualizaciones >T.CS Facturacin : operaciones varias 9T)CTCompras : ordenes de compra dTTCUFSistema : tablas auxiliares : acceso solo a reportes y visualizaciones gTWCVICuentas corrientes de clientes : acceso solo a reportes y visualizaciones jTZCWLCuentas corrientes de proveedores : acceso solo a reportes y visualizaciones IT9CX+Compras : acceso a configuracion de Compras ]TMCY?Sistema : configuracin : configuracin contable de facturacin FT6CZ(Compras : anulacin de rdenes de compra >T.C[ Compras : comprobantes de compra _TOC\ACompras : anulacin de comprobantes de compra (fsica y/o logica) CT3C]%Contabilidad : mantenimiento contable ;T+C^Facturacin : puntos de venta PT@C_2Inventario : operaciones : alta de despacho o lote 0T C`Tesorera : bancos <T,CaTesorera : operaciones varias UTECb7Tesorera : anulacin de recibos y ajustes por cobranza ^TNCc@Tesorera : anulacin de comprobantes de pago y ajustes por pago @T0Cd"Tesorera : anulacin de depositos CT3Ce%Tesorera : anulacin de extracciones 3T#CfTesorera : depsitos 6T&CgTesorera : extracciones [TKCh=Sistema : configuracin : acceso a configuracin de seguridad `TPCiBSistema : configuracin : configuracin local y global del Sistema bTRCjDCompras : comprobantes de compra : asignacin a fc/nc/nd de clientes MT=Ck/Costos : costo adicional a fc/nc/nd de clientes NT>Cl0Inventario : recepcin de mercadera de terceros ;T+CmCostos : generacin de costos mT]CnOSistema : tablas auxiliares : artculos : cambio de codigo de artculos y otros LT<Co.Sistema : comisiones (facturacin y tesorera) LT<Cp.Facturacin : transferencias y consolidaciones AT1Cq#Inventario : consolidacin de stock HT8Cr*Facturacin : pedidos : bloqueo/desbloqueo ]TMCs?Facturacin : operaciones varias : anulacin fsica de fc/nc/nc VTFCt8Sistema : tablas auxiliares : agentes : cambio de agente LT<Cu.Sistema : tablas auxiliares : agentes : acceso NT>Cv0Sistema : tablas auxiliares : articulos : acceso MT=Cw/Sistema : tablas auxiliares : clientes : acceso NT>Cx0Sistema : tablas auxiliares : depsitos : acceso KT;Cy-Sistema : tablas auxiliares : fletes : acceso LT<Cz.Sistema : tablas auxiliares : ndices : acceso PT@C{2Sistema : tablas auxiliares : proveedores : acceso WTGC|9Sistema : tablas auxiliares : sucursales propias : acceso BT2C}$Facturacin : comprobantes : remitos \TLC~>Facturacin : operaciones varias : anulacin fsica de remitos \TLC>Facturacin : operaciones varias : anulacin lgica de remitos NT>C0Tesorera : control de cheques propios debitados GT7C)Produccin : tablas auxiliares : frmulas [TKC=Facturacin : comprobantes : facturas sin baja de mercaderas 9T)CCostos : sincronizar costos aTQCCGestion : modificacin de datos de comprobantes que afectan gestion sTcCUCuentas corrientes de clientes : modificacin de fecha de vencimiento de comprobantes NT>C0Gestin : acceso solo desde gestin de cobranzas TTDC6Produccin : acceso a cierre de producciones por lotes VTFC8Compras : ordenes de compra (pregunta x orden de compra) YTIC;Compras : comprobantes de compra (pregunta x orden de pago) ZTJC<Tesorera : pagos (pregunta x nmero de comprobante de pago) T|CnTesorera : cobranzas (pregunta x nmero de recibo) (slo vlido si los recibos son numerados automticamente) JT:C,Compras : ordenes de compra : autorizaciones BT2C$Contabilidad : asientos modelo : abm 9T)CTesorera : asientos modelo HT8C*Compras : ordenes de compra : modificacin UTEC7Facturacin : comprobantes : remitos que no se facturan VTFC8Facturacin : comprobantes : cambio de estado de remitos BT2C$Sistema : empresas : abm de empresas IT9C+Sistema : empresas : asignacin de permisos >T.C Contabilidad : abm de ejercicios GT7C)Facturacin : abm de acuerdos comerciales DT4C&Tesorera : abm de tarjetas de crdito ZTJC<Tesorera : actualizacin cierres y vencimientos de tarjetas \TLC>Produccin : tablas auxiliares : formulas : solo visualizacion >T.C Inventario : solicitudes : crear HT8C*Inventario : solicitudes : controlar todas WTGC9Inventario : solicitudes : controlar slo las del usuario NT>C0Inventario : solicitudes : cerrar/reabrir/anular JT:C,Facturacin : pedidos : aprobacin gerencial HT8C*Facturacin : pedidos : control de pedidos ^TNC@Sistema : tablas auxiliares : clientes : alta con cuit duplicado aTQCCSistema : tablas auxiliares : proveedores : alta con cuit duplicado GT7C)Inventario : solicitudes : autorizaciones 8T(CCostos : cierres de costos STCC5Sistema : tablas auxiliares : otros : textos : acceso PT@C2Sistema : mantenimiento : configuracin del backup >T.C Sistema : mantenimiento : backup BT2C$Tesorera : abm de cuentas bancarias TTDC6Tesorera : pagos : retenciones manuales a proveedores _TOCACuentas corrientes de clientes : ajustes por diferencia de cambio bTRCDCuentas corrientes de proveedores : ajustes por diferencia de cambio ]TMC?Facturacin : operaciones varias : modificacin de comprobantes ^TNC@Compras : ordenes de compra : excepcin de control de cantidades _TOCACuentas corrientes de clientes : provisin/ajuste de comprobantes _TOCAFacturacin : comprobantes : reprocesos comprobantes electrnicos NT>C0Compras : importaciones : modificacin de factor oT_CQSistema : tablas auxiliares : articulos: acceso solo a reportes y visualizaciones WTGC9Inventario : control de calidad : aprobaciones y rechazos CT3C%Inventario : anulacin de operaciones DT4C&Contabilidad : asientos legales/reales STCC5Tesorera : cierres de caja y liquidacin de tarjetas ^TNC@Tesorera : anulacin de recibos y ajustes por cobranza (fsica) KT;C-Facturacin : pedidos : liberacin de pedidos dTTCFFacturacin : operaciones varias : anulacin fsica cpbts electrnicos bTRCDCuentas corrientes de proveedores : provisin/ajuste de comprobantes `TPCBContabilidad : acceso a configuracin : cierre contable individual ]TMC?Contabilidad : modificacin y anulacin de asientos automticos STCC5Facturacin : marcar punto de venta como transferible dTTCFSistema : tablas auxiliares : artculos : abm de atributos habilitados XTHC:Compras : ordenes de compra : excepcin de control precios mT]COSistema : tablas auxiliares : precios: acceso solo a reportes y visualizaciones BT2C$Facturacin : preparacin de pedidos AT1C#Inventario : preparacin de pedidos 5T%CFacturacin : reportesa 9T)CFacturacin : presupuestosa JT:C+Facturacin : pedidos : control de pickingsa STCC4Facturacin : comprobantes : control de comprobantesa STCC4Facturacin : presupuestos : control de presupuestosa ?T/C Facturacin : operaciones variasa VTFC8Sistema : tablas auxiliares : centros de costos : acceso :T*CFacturacin : buscar oc/txna CT3C$Sistema : control de cola de correosa VTFC8Sistema : tablas auxiliares : cuentas : cambio de cuenta BT2C$Produccin : armado a pie de maquina 8T(CProduccin : planificacin 5T%CProduccin : protocolos TTDC6Facturacin : remitos : remitos sin baja de mercadera [TKC=Facturacin : comprobantes : anulacin manual de percepciones _TOCASistema : tablas auxiliares : clientes : solo acceso a sucursales IT9C+Facturacin : pedidos : cierre y reapertura ?T/C!Facturacin : ajuste de decimales NT>C0Inventario : remitos : permite agregar artculos LT<C.Sistema : Suscripciones al sistema de mensajes GT7C)Inventario : operaciones : autorizaciones dTTCFFacturacin : comprobantes : no permite la reimpresin de comprobantes BUXRES VLD_PERMISO TaIT9C+RETENCIONES DE IIBB/GANANCIAS A PROVEEDORES (TC IVA VENTAS )TC IVA COMPRAS %TCBALANCE ,TCPERIODO VENTAS +TC FECHA COMPRAS /TCPERIODO COBRANZAS +TC PERIODO PAGOS /TC PERIODO DEPOSITOS 2T"C PERIODO EXTRACCIONES 4T$C PERIODO TRANSFERENCIAS /TC VALIDEZ DESPACHOS #TC STOCK *TC INICIO STOCK (TC COMISIONES BUXRES VLD_CIERRE TaTCxchg TCagip #TCSendMail "TCMonedas TCGESFE (TC Exportaciones BUXRES VLD_CARPETAS&FCC UXOKUSUARIOSFORCODIGODESCR{ /CRecolectando novedades....TC vld_camposSys_verificar.prg Ta%"BT2Cccformul cie_parciaCa ?T/Cmonicfgxchg_resNa 7T'CchqtercLa 7T'CchqcuitC a 9T)CchqemisorCa :T*CfleteszonaNa >T.CmotinvaltaloteLa ;T+CmotinvcostoLa ;T+CbienesespecC a UTECtcccompdepositoCaini_tcccomp_deposito() STCCdespachomonedaNaini_despacho_moneda() =T-CcashcfgminimoN a >T.CmonicfgconsistNa =T-Cconvercod_proCa ?T/Cdespachocod_proCa ?T/CcondcobrvaloresNa >T.CcashdatafecvalDa >T.CcashdataagenteCa =T-CcashcfgminimoN a @T0Ccashcfg planvdescNa =T-CcashcfgendosaLa 9T)CchqendosaLa ?T/Catributocod_insCa HT8CatributoidCaini_atributo() <T,CbarrascodigoCa =T-Cbienescod_insCa =T-Cbultoscod_insCa DT4CbultosidCa ini_bultos() >T.CccformulcodigoCa YTICcodbulat codbulatrCaini_codbulat_codbulatr() >T.Ccodxclicod_insCa :T*CcodxcliatrCa :T*CcodxclibulCa >T.Ccodxprocod_insCa :T*CcodxproatrCa :T*CcodxprobulCa ?T/Ccomi_artcod_insCa ;T+CcompplancodCa ;T+CcompprodcodCa >T.Ccomprascod_insCa :T*CcompromcodCa >T.CcompromicodigoCa =T-Cconvercod_insCa 9T)CcoscodigoCa <T,CcosmancodigoCa ?T/Cdespachocod_insCa ?T/Cform_gencodcompCa ?T/Cform_gencodsustCa ?T/CformulascodcompCa ?T/CformulascodsustCa >T.Cmix_adiccodigoCa >T.CmovstockcodigoCa ?T/Cplan_gengen_codCa ?T/Cplan_gensus_codCa ?T/Cplan_madcod_insCa ?T/Cplan_maqcod_insCa ?T/Cprod_gengen_codCa ?T/Cprod_gensus_codCa >T.CproduccicodigoCa ?T/Cprot_anabie_codCa ?T/Cprot_espcod_insCa :T*Crotcod_insCa ?T/Crotnoentcod_insCa >T.Crotuloscod_insCa <T,CsolcomcodigoCa =T-CstkxcodcodigoCa =T-CstkxdepcodigoCa =T-CstkxsercodigoCa ;T+CstockcodigoCa ?T/Ctcomprascod_insCa ?T/Ctempcompcod_insCa ?T/Ctmp_p006codigoCaa ?T/Ctmp_p006codigoCaa ?T/Ctmp_p013codigoCaa ?T/Ctmp_p014codigoCaa ?T/Ctmp_p016codigoCaa ?T/Ctmp_p027codigoCaa @T0Ctmp_p028cod_insCaa @T0Ctmp_p045cod_insCaa @T0Ctmp_p049cod_insCaa @T0Ctmp_p050cod_insCaa ;T+Ctr04cod_insCa >T.Ctr04 componenteCa >T.Ctventascod_insCa =T-Cultcoscod_insCa UTECultcos codbulatrCaini_ultcos_codbulatr() =T-Cventascod_insCa 8T(CcccompunN a 9T)CtcccompunN a 7T'CccpagunN a ;T+Cplanvarcc7dNa ;T+Cplanvarcc8dNa ;T+Cplanvarcc9dNa <T,Cplanvarcc10dNa <T,Cplanvarcc11dNa <T,Cplanvarcc12dNa ;T+Cplanvarcc7pNa ;T+Cplanvarcc8pNa ;T+Cplanvarcc9pNa <T,Cplanvarcc10pNa <T,Cplanvarcc11pNa <T,Cplanvarcc12pNa @T0CplanvarcanticipoNa =T-CplanvarccuotaNa =T-CplanvarcplazoNa ?T/CplanvarcvaloresNa =T-ClispreccodigoCa :T*CccventplanNa ;T+CtccventplanNa ?T/CproveedotipofisNa <T,Cproveedocat2Na <T,Cproveedocat3Na 7T'CcccobunN a <T,Ccom_operpaseNa <T,Cven_operpaseNa ;T+CchequespaseNa @T0Ccashcfg porfecvalLa 8T(CccventunN a :T*Cccventsch1La ?T/Cccvent facturadoLa @T0Ccom_operdebitadoCa 9T)CproauxcatN a <T,CproauxcativaNa IT9CproauxtipoivaNa ini_proaux() =T-CcccomptipoivaNa ?T/CproveedotipoivaNa <T,Cbienestfgravla <T,Cchepronumeron a =T-Ccom_operopasena =T-Cmotinvclientela ?T/Cmotinv proveedorla =T-Cper_provcausaCa 9T)CvlocaldidCa 9T)CvlocaleidCa HT8CmotinvprocliNa ini_procli() =T-Cmotinvcod_cenCa >T.Cmotinvcod_cenpLa =T-Cconvercod_cliCa =T-Cconvercod_cenCa :T*Cconverref3C a ?T/Cconver ref3causaCa >T.Cconverref3cantN a >T.CtempcomptransfNa @T0Cconver transf_unoLa @T0Cmotinv formularioC(a >T.ClisprecpublicoNa AT1Ccuentas complementC a AT1CcccompdespachoC a AT1CconverdespachoC a CT3CdespachodespachoC a CT3CimportacdespachoC a BT2CimportacnumdespC a CT3CmovstockdespachoC a BT2CstkxdepdespachoC a BT2CstkxdspdespachoC a ?T/CproducciloteC a =T-CcompromdspC a ?T/Cprot_analoteC a CT3CtempcompdespachoC a <T,CStockactu_peNa =T-CBienesactu_peNa ;T+CcuentasauxnN a UTECproveedoivactrlCaini_proveedo_ivactrl() UTECconver facturadoNaini_conver_facturado() AT1Ctcompras facturadoN a ;T+CtempcomprefC a @T0CtempcomprefcausaCa @T0CtempcomprefrecnoN a @T0CtempcompreftotalN a @T0CtempcomprefsaldoN a :T*CcomprasrefC a ?T/CcomprasrefcausaCa 8T(ClocksempNa @T0Ccfg_lis listabaseNa ?T/CtempcompentregaDa ?T/CtcomprasentregaDa :T*CconveritemNa <T,Cdespachofec1Da ?T/Cprod_gencombinaCa <T,Cplan_genplanCa ?T/Cplan_gencombinaCa ?T/Cplan_gengen_codCa ?T/Cplan_gensus_codCa ;T+Cplan_maqiduCa ?T/Cplan_maqope_iduCa ;T+Cplan_madiduCa <T,Cplan_madplanCa ;T+Cplan_opeiduCa @T0Cplan_opeplan_iduCa MT=Cprod_genOPCaini_Prod_Gen_OP15() ;T+Cconsstk_iniDa 9T)CcccompusrNa ?T/CmaquinasdepbajaCa >T.CmaquinasdepingCa ?T/CmaquinascentralCa ?T/Cplan_maqdepbajaCa >T.Cplan_maqdepingCa ?T/Cplan_maddepbajaCa >T.Cplan_maddepingCa >T.CmotinvnomovstkLa >T.CconvernomovstkLa >T.CproveedogancatNa WTGCbienes tipostkminNaini_bienes_tipostkmin() >T.Csucpropcod_cenCa AT1Ccom_oper provinciaNa ?T/CcashcfgprovxcatLa ?T/CcashcfgchqnodifLa >T.CcashcueconfirmLa :T*CcashcuecatN a ;T+CcashtipocliLa <T,Ctr04cantidadNa ;T+CcashexpaiduC a ;T+CcashadiciduC a ;T+CcashcanciduC a <T,Ccccompiva_ncNa =T-Ctcccompiva_ncNa @T0Cclientespro_linkCa AT1Ccccnotas confirmarLa @T0CcashdatafechaoriDa 9T)CccventrfcN a :T*CtccventrfcN a 9T)CccclierfcN a =T-Cbienesest_actNa ;T+CconsnretivaN a :T*CconsrvformCa <T,CconsrvcopiasNa AT1Cuser_log equipo_idNa AT1Cuser_log sesion_idC a <T,Clog sesion_idC a MT=Ccons hayret_ibLaini_hayret([ib]) OT?Ccons hayret_ganLaini_hayret([gan]) OT?Ccons hayret_ivaLaini_hayret([iva]) :T*CcoscomprobC a 8T(CcoscausaCa ;T+CbienesmermaNa =T-CformulasmermaNa ?T/CequiposcomandosMa >T.CbienesminbatchN a =T-CstockminbatchN a =T-Cmonicfg2resetNa >T.Cmonicfg2esperata @T0Cmonicfg2revisionCa AT1Cmonilog2 sesion_idC a ;T+Cplan_maqbulCa ;T+Cplan_maqatrCa <T,CccformulpesoNa @T0Cformulasref_pesoLa BT2Catributo agrupacionCa =T-CmaquinasgrupoCa AT1Ctcccomp autorizadaNa VTFCtcccompaut_usrNaini_tcccomp_autorizada() ?T/Cplan_gencan_tipNa ?T/CcashadicupdatedLa <T,CcliauxentpaiNa <T,CcliauxfcepaiNa ;T+Cconver2cuitC a <T,CdepositocuitC a =T-Ccons cie_comisDa WTGCven_operfec_comiDaini_ven_oper_fec_comi() AT1Coperario encargadoLa @T0CoperariooperarioLa @T0CoperariomaquinasCa =T-CproduccimalasNa ?T/Cplan_opepro_badLa :T*CmotinvdiasNa A%Cplan_nuv AQplan_nuvF %CcheckbUAi1plan_nuv Q( A;T+Cccventno_fcLa <T,CproduccisemiCa <T,Cproduccibul9Ca <T,Cproduccican9Na <T,Cproducciprd9Na <T,Cproduccifor9N a <T,Cproduccirea9Na <T,Cproduccicie9Da <T,Cproduccicos9Na =T-Cproduccibul10Ca =T-Cproduccican10Na =T-Cproducciprd10Na =T-Cproduccifor10N a =T-Cproduccirea10Na =T-Cproduccicie10Da =T-Cproduccicos10Na =T-Cproduccibul11Ca =T-Cproduccican11Na =T-Cproducciprd11Na =T-Cproduccifor11N a =T-Cproduccirea11Na =T-Cproduccicie11Da =T-Cproduccicos11Na =T-Cproduccibul12Ca =T-Cproduccican12Na =T-Cproducciprd12Na =T-Cproduccifor12N a =T-Cproduccirea12Na =T-Cproduccicie12Da =T-Cproduccicos12Na =T-Cproduccibul13Ca =T-Cproduccican13Na =T-Cproducciprd13Na =T-Cproduccifor13N a =T-Cproduccirea13Na =T-Cproduccicie13Da =T-Cproduccicos13Na =T-Cproduccibul14Ca =T-Cproduccican14Na =T-Cproducciprd14Na =T-Cproduccifor14N a =T-Cproduccirea14Na =T-Cproduccicie14Da =T-Cproduccicos14Na =T-Cproduccibul15Ca =T-Cproduccican15Na =T-Cproducciprd15Na =T-Cproduccifor15N a =T-Cproduccirea15Na =T-Cproduccicie15Da =T-Cproduccicos15Na @T0Cmonicfg2pedpadreLa ?T/Cmonicfg2pedhijaLa =T-Cmonicfg2pedIDC a <T,Cmonicfg2autoLa ?T/Cplan_nuvreparteLa OT?CempresasmenuNaini_menu_empresas() STCCcompprodncierresNaini_ncierres_comp() STCCproduccincierresNaini_ncierres_prod() PT@CejerconmenuNaini_menu_ejercicios() NT>CejerconIDUC aini_IDU_ejercicios() ZTJCejercon novedadesLaini_novedades_ejercicios() ?T/CproduccimaquinaNa <T,CquestiontipoNa >T.CquestionMinimoNa >T.CquestionMaximoNa 9T)CchpsubnumNa JT:CconscopiapdfCaini_copiapdf() hTXCacuerdoscodigoN aini_acuerdos_codigo()cod_acucodacu ?T/Cproveedoes_tarjCa <T,Cbienesdescr2Ca ;T+CtempcompsolN a >T.CtempcompsolitmNa PT@Cccformulest_actNaini_ccf_est_act() OT?CproveedocitiNaini_proveedo_citi() ;T+CcashcfgocliLa ;T+CcashcfgoproLa ;T+CcashcfgovalLa ;T+CcashcfgotesLa ;T+CcashcfgoadiLa ;T+CcashcfgoimpLa PT@CcashcfgopedLaini_cashcfg_modulos() WTGCtventas facturadoNaini_tventas_facturado() MT=Cconver2flagLaini_conver2_flag() >T.CcashcfgversionTa >T.CcashcfggentipoNa ?T/Ccashdataorigen2Na ;T+CcashdatanumN a >T.CcashdatasubnumNa >T.CcashdatacuentaC a >T.Ccom_operfecestDa KT;CcccompflagLaini_cccomp_flag() QTACbienescm_uni2Naini_bienes_cm_uni2() <T,CtempcompduniC a ?T/Ctempcompcm_uni2Na >T.Ccomprascm_uni2Na >T.Ccomprascant_u2N a @T0Ccompras precio_u2Na jTZCclientesvaloresNa$REPLACE Valores WITH 0 FOR Valores=0 dTTCclientesplazoNa REPLACE plazo WITH 0 FOR plazo=0 9T)CccventnfcNa <T,CccventnfcmaxNa ?T/Ctcomprascm_uni2Na ?T/Ctcomprascant_u2N a AT1Ctcompras precio_u2Na >T.CconverEntra_u2N a =T-CconverSale_u2N a =T-Cconvercm_uni2Na BT2Ctempcomp refsaldoU1N a @T0Cccvent ncndmotivoMa >T.Ccliauxapc_credNa =T-Ccliauxapc_cc1Na =T-Ccliauxapc_cc2Na >T.Ccliauxapc_chq1Na >T.Ccliauxapc_chq2Na ?T/Ccliaux apc_dias1Ma ?T/Ccliaux apc_dias2Ma =T-Ccliauxapc_atrNa @T0Ccliaux apc_atr_glNa AT1Cclientes cr_atrasoNa <T,CbienesmedcodNa UTECbienes medauxcodNaini_bienes_medauxcod() =T-Cbienescod_proCa ^TNCmonicfg2errorLaREPLACE error WITH .f. all `TPCmotinv form_copiaNaini_form_copia() form_copias 9T)Cconver2dtTa ?T/Ctempcompori_codCa ?T/Ctempcompori_atrCa ?T/Ctempcompori_bulCa ?T/Ctempcompori_canN a ;T+CremxfactipoNa :T*CdsolcomuniNa <T,CcliauxfcectoC(a =T-CtempcompvalorNa ;T+CventasvalorNa <T,CtventasvalorNa @T0CtempcompvalormonNa ?T/CtventasvalormonNa >T.CventasvalormonNa AT1Ctempcomp valorcbioNa ?T/Cventas valorcbioNa @T0Ctventas valorcbioNa <T,CtccventvalorNa ;T+CccventvalorNa >T.CtempcomppedidoN a :T*CcomprassolN a =T-CcomprassolitmNa UTECprovincjur_convNaini_provinc_jur_conv() >T.CdespachocaucosCa >T.Cven_opernumeroNa >T.Cven_opersubnumNa >T.Cven_operretrefCa >T.Ccliauxapc_evalTa eTUCmonicfg2 resultadoNaREPLACE resultado WITH 10 all gTWCmonicfg2 resultadoINaREPLACE resultadoI WITH 10 all iTYCmonicfg2 ultima_okTa!REPLACE ultima_ok WITH ultima all eTUCmonilog2 resultadoNaREPLACE resultado WITH 10 all gTWCmonilog2 resultadoINaREPLACE resultadoI WITH 10 all =T-CdsolcomprecioNa >T.Cdsolcomcod_proCa ;T+CdsolcomplanN a @T0Cdsolcom compradorNa =T-CdsolcommonedaNa KT;CfletestipoNaini_fletes_tipo() ?T/CcashcfgtipocajaLa @T0Cplan_maqcomb_iduC a @T0Cplan_opecomb_iduC a ?T/Cplan_opecon_iniN a ?T/Cplan_opecon_finN a @T0Cplan_madcantxbulNa >T.CcccliecontshowCa dTTCccformul tox_desdeNaREPLACE tox_desde WITH 1 all eTUCccformul tox_hastaNaREPLACE tox_hasta WITH 99 all \TLCbienestoxicoNaREPLACE toxico WITH 1 all [TKCstocktoxicoNaREPLACE toxico WITH 1 all @T0CformulastemperatCa @T0Cprod_fortemperatCa :T*CcompromflgLa =T-Cccventarm_codN a AT1Cesolcom nota_cierrMa ?T/CCONDCOBRCONTADOLa BT2Ctempcomp DespachoExCa @T0Ctempcompcomp_cbaCa @T0Ctempcompcomp_canNa 7T'CcosloteCa :T*CcosmanloteCa =T-CccclieenviadaCa =T-Cclientespais2Na ?T/CclientespaisentNa =T-CdespachocostoNa =T-CcashadicclaseNa ;T+CcashadicdiaNa ?T/CcashadicdiafijoDa >T.CcashadicdiasemNa =T-CcashadicpasarLa >T.CcashadicdclaseC(a =T-CcashexpacuotaNa =T-CcashcanccuotaNa =T-CcashcancclaseNa ;T+CcashdataanoNa =T-CcashdataclaseNa AT1Ccashdata eliminadoLa ?T/CcashcanccomprobC a =T-CcashcanccausaCa =T-CcashcancfechaDa @T0CcashexpaeliminarLa @T0Cplan_nuvcantxbulNa 8T(CcccompibNa =T-Cbienesbul_genNa =T-Cbienesatr_genNa >T.CBultosgenericoNa @T0CAtributogenericoNa aTQCBul_gengenericoNaREPLACE generico WITH 1 all aTQCAtr_GengenericoNaREPLACE generico WITH 1 all >T.CproveedonombreC(a @T0CproveedofantasiaC(a =T-Cplan_madOrdenNa AT1Cplan_maq CavidadesNa ?T/CtempcompcompcodCa ?T/CtempcompcompbulCa ?T/CtempcompcompatrCa =T-CconvercompcodCa =T-CconvercompbulCa =T-CconvercompatrCa =T-CventascompcodCa =T-CventascompbulCa =T-CventascompatrCa >T.CtventascompcodCa >T.CtventascompbulCa >T.CtventascompatrCa _TOCcashadicempNaREPLACE emp WITH p_codemp all _TOCcashexpaempNaREPLACE emp WITH p_codemp all >T.CproduccisemiopN a <T,CtextosactivoLa LT<CtextosgrupoN aini_textos_cpbt() :T*CtextoscpbtNa ?T/Ccliaux txtgrupo1Ma ?T/Ccliaux txtgrupo2Ma ?T/Ccliaux txtgrupo3Ma ?T/Ccliaux txtgrupo4Ma ?T/Ccliaux txtgrupo5Ma <T,CdsolcomgrupoN a >T.CclientesdocrecLa >T.CproveedodocrecLa @T0CcashadicregeneraLa =T-Cconver2procliCa >T.Cconver2cprocliCa >T.CmotinvmaxitemsNa 9T)CnumfaccaiCa <T,CnumfaccaivtoDa hTXCproveedo artpropiosCaREPLACE artpropios WITH [N] all 9T)CcccompdglN a =T-Ccos controladoLa @T0Ccosman controladoLa ?T/Ctempcompuni_arrCa >T.Cconver2fec_remDa <T,Cconver2flag1La =T-Cconver2id_extNa AT1Ctempcomp precio_u1Na AT1Ctempcomp precio_u2Na <T,CmotinvmodeloN a bTRCcons impdebcreNaREPLACE impdebcre WITH 0.6 all AT1Cctasbanc impleycueC a AT1Cctasbanc chqdifcueC a <T,Casm_formsubdLa >T.CcliauxoctxtsolC(a ;T+CtempcompuniNa =T-Cbienesno_fracNa @T0Cccformulmult_resLa ?T/Cplan_madSurtidoNa ;T+CbienesCicloNa bTRCbienes CavidadesNaREPLACE cavidades WITH 1 all [TKCbienesSetupNaREPLACE setup WITH 60 all ]TMCplan_opesetupNaREPLACE setup WITH 60 all >T.CCFG_Liscod_cliCa <T,CcccobanuladoLa <T,CccpaganuladoLa \TLCdespdentCaREPLACE dent WITH [00:00] all \TLCdesphentCaREPLACE hent WITH [00:00] all :T*CconsdsformCa <T,CconsdscopiasNa ;T+CconsdsaformCa =T-Ccons dsacopiasNa ?T/CinvmodebalanceoNa @T0Cclientesve_califNa >T.Ccons ve_min_pedNa >T.Ccons ve_min_recNa jTZCInvModeIDUC a)REPLACE idu WITH SYS(2015) for EMPTY(idu) kT[CCodEspecIDUC a)REPLACE idu WITH SYS(2015) for EMPTY(idu) OT?Cccpagcod_proCaINI_CCPAG_cod_pro() OT?Cccpagtot_pagN aINI_CCPAG_Tot_Pag() QTACccpagIMPORTACN aINI_CCPAG_Importac() ?T/Cbienes cantxcajaNa nT^Cve_trans tra_entre2Na%REPLACE tra_entre2 WITH tra_entre all BT2Cclientes ve_min_pedNa @T0Ctccvent promocionCa ?T/Cccvent promocionCa =T-Cconver2modeloNa wTgCclientesve_despNa ve_despacho$REPLACE ve_desp WITH ve_despacho all ?T/CTempcompact_preLa =T-CInvModdbasuraLa <T,CcomprasiiperNa =T-CtcomprasiiperNa 8T(CcccompiiNa 9T)CtcccompiiNa VTFCsysmsgempNaREPLACE emp with 1 all XTHCsysmsguaempNaREPLACE emp with 1 all XTHCsysmsgueempNaREPLACE emp with 1 all XTHCsysmsgusempNaREPLACE emp with 1 all @T0Cplan_nuvforcolorN a ^TNCmtz_prodmotivoN aREPLACE motivo WITH 8 all @T0Cplan_nuvatr_planCa @T0Cplan_nuvbul_planCa @T0Cplan_nuvcan_planNa >T.Cplan_nuvmp1atrCa >T.Cplan_nuvmp2atrCa @T0Cplan_madini_planTa BT2Cplan_mad ini_limiteTa ?T/Cplan_madcal_iniTa ?T/Cplan_madcal_limTa AT1Cplan_mad cal_errorNa ?T/Cplan_madeva_iniTa ?T/Cplan_madeva_finTa ?T/Cplan_madult_iniTa AT1Cplan_mad dur_totalN a AT1Cplan_mad dur_restaN a >T.Ccccompcos_asigN a AT1Cclientes periibbexCa STCCtcccomplugaribCaini_tcccomp_lugarib() QTACcccomplugaribCaini_cccomp_lugarib() @T0CtempcompdensidadN a _TOCcfg_lisivaincCaREPLACE ivainc WITH [N] all aTQCcfg_lisactufacCaREPLACE actufac WITH [N] all >T.Cven_operbanchqN a >T.Cven_opernumchqN a =T-CchequesbanchqN a =T-CchequesnumchqN a >T.Ccom_operbanchqN a >T.Ccom_opernumchqN a ;T+CmotivostipoNa @T0CproduccicantidadNa <T,CproduccirealNa ?T/CproduccicontrolNa ?T/CtempcomptipoenvN a @T0CtempcompdtipoenvCa ?T/CtempcompcantenvNa ?T/Citm_desctipoenvN a ?T/Citm_desccantenvNa TCbienescontstkCa]REPLACE contstk WITH iif(p_contstk=1,[S], iif(p_contstk=0 , [N], iif(lotes=[S],[S],[N]))) all <T,Cclientespag1La <T,Cclientespag2La <T,Cclientespag3La <T,Cclientespag4La <T,Cclientespag5La <T,CclientespaghCa >T.Casm_mastcambioNa >T.Casm_formcambioNa <T,CcccliecoeficNa <T,CcccompcoeficNa <T,CccprovcoeficNa <T,CccventcoeficNa >T.Ccom_opercoeficNa =T-CcomprascoeficNa <T,CconvercoeficNa >T.CimportaccoeficNa =T-CtcccompcoeficNa =T-CtccventcoeficNa >T.CtcomprascoeficNa >T.CtempcompcoeficNa =T-CtventascoeficNa >T.Cven_opercoeficNa <T,CventascoeficNa QTACtccventivacatNaini_tccvent_ivacat() OT?CccventivacatNaini_ccvent_ivacat() STCCtccventtipodocCaini_tccvent_tipodoc() QTACccventtipodocCaini_ccvent_tipodoc() ;T+CconverentraNa :T*CconversaleNa 9T)CchqsubnumN a =T-CccventpermisoCa ;T+Ctempcompii2N a :T*Ccomprasii2N a ;T+Ctcomprasii2N a 9T)Ccccompii2N a :T*Ctcccompii2N a AT1Ctempcomp importadoCa AT1Ctempcomp TXTCostosCa @T0Ccos_adetrecibidaLa ?T/CComprascos_asigLa AT1Ccondcobr reembolsoLa :T*CartxcliiduC a <T,CartxcliordenN a AT1Cclientes usa_plantLa >T.CtccventtipoexpNa =T-CccventtipoexpNa ;T+CclientesrutC(a XTHCbienesitcCaREPLACE itc WITH [N] all >T.CclientesdomaltMa <T,CtempcomptaraNa <T,Citm_desctaraNa >T.Ccashcfgccc_actLa >T.Ccashcfgccp_actLa >T.CbienessubgrupoNa @T0CGrupos SupergrupoNa @T0CtempcompdespapckCa ?T/CdespfletimporteNa >T.Ctempcompii2_u1Na >T.Ctempcompii2_u2Na @T0Cimp_trandespapckCa @T0CimportacdepositoCa @T0CtcomprastransitoN a BT2Cmant_stk repeticionNa ?T/CcondcobrentregaLa AT1Cdeposito prioridadNa =T-Ccccompfec_embDa jTZCback_cfg Destino_ACa"REPLACE destino_a WITH destino all bTRCback_cfgMantenerNaREPLACE Mantener WITH 3 all BT2Cimportac gsmanualesLa ?T/CimportacbimpfobNa AT1Cimportac bimpdespaNa AT1Cimportac bimpfleteNa BT2Cimportac bimpseguroNa AT1Cimportac bimpbancoNa AT1Cimportac bimphonorNa AT1Cimportac bimpotrosNa @T0CimportacgsvariosNa ?T/Ccccob as_imp_cheN a ?T/Cccpag as_imp_cheN a <T,Ctempcomplog1La ?T/Ccliaux apc_rech1Na ?T/Ccliaux apc_rech2Na OT?CdespachoitemNaini_despacho_item() MT=CproduccienvNaini_producci_env() 9T)Ccash2icliLa 7T'Ccash2itNa 7T'Ccash2isNa :T*Ccash2isumaLa :T*Ccash2iacumLa :T*Ccash2itotaLa @T0CclientesvencconsDa ;T+CcashcfgoocsLa <T,CbultosmedcodNa UTECbultos medauxcodNaini_bultos_medauxcod() >T.Ctempcompref_ocCa >T.Citm_descref_ocCa =T-Cnumfacfis_impNa =T-Cnumfacfis_conNa =T-Cnumfacfis_velN a IT9Cback_cfg Destino_A2Ca =T-Cin_faltadisp1N a AT1Ctempcomp facturadoNa AT1Ctempcomp entregadoNa <T,CcashtiposubtLa <T,CcashtiposubtLa @T0Ccashcfg cli_distrLa @T0CproveedovencinscDa @T0CtempcompensambleN a =T-Cbul_genmedcodNa VTFCbul_gen medauxcodNaini_bultos_medauxcod() <T,CimportactranN a @T0Citm_descensambleN a >T.CclientesibperdDa >T.CclientesibperhDa QTACmotivosventasLaini_motivos_ventas() =T-CmotinvdlotauxCa ?T/CdespachodlotauxCa <T,CmovstockitemN a <T,CcliauxnomfacCPa <T,CimportacguiaCa ?T/CimportactipoimpNa ;T+CconverordenN a :T*CtcccompusrNa >T.CdespfletpagadoN a AT1Cproveedo usa_plantLa @T0Cven_operdebitadoCa ?T/CproveedoretmonoNa ?T/Cret_provregimenN a @T0Cret_provimpuestoN a \TLCcosmanidC aREPLACE id WITH sys(2015) all =T-Cbienesstk_minNa <T,Cstockstk_minNa @T0Cimp_trandepositoCa ;T+CbienesuxdiaNa :T*CstockuxdiaNa =T-Cin_faltauxdiaNa STCCtventasentregaD aini_tventas_entrega() MT=Cconsiibb_baLaini_cons_iibb_ba() QTACcons iibb_cabaLaini_cons_iibb_caba() <T,Cconsiibb_sfeLa OT?CprovincabrevCaini_provinc_abrev() <T,Cret_provdebeNa =T-Cret_provhaberNa @T0CtcomprasdepositoCa dTTCcentral ubicacionNaREPLACE ubicacion WITH 1 all aTQCimportacdestinoNaREPLACE destino WITH 1 all ZTJCrptparamtipoNaReplace tipo with 1 all bTRCrptparamtipo_repNaReplace tipo_rep with 0 all >T.Ctccventref_extCa bTRCtccventoripedN aReplace oriped with pedido all AT1Ctempcomp cos_asig2La <T,CdespflettipoNa >T.CfletesvehiculoNa <T,CtccventdesplNa <T,CtventasdesplNa <T,Cconsimp_impoC a <T,Cacuerdosdto2Na <T,Cacuerdosdto3Na =T-CacuerdostextoCa =T-CacuerdoslistaNa >T.Citm_descacu_idN a ?T/Citm_descacu_refN a <T,CtcccompdesplNa =T-CtcomprasdesplNa >T.CacuerdoscuentaC a AT1C co_er_datoscuentaC a >T.C co_er_datosempN a @T0CiibbperealicuotaN a >T.CclientesiibbcmNa >T.CproveedoiibbcmNa BT2Ciibbprov importe_meNa =T-CproveedolineaN a ?T/Ctventascos_lifoNa >T.Cventascos_lifoNa @T0Casm_formblq_paseLa >T.Cper_provprov99Na lT\Ccondcobrno_desglLa%replace valores with -1 for valores=0 lT\Cplanvarcno_desglLa%replace valores with -1 for valores=0 >T.CclientesdemoraNa @T0CcashadicrecuperaLa 9T)CconsdplunLa 9T)CconsdpmarLa 9T)CconsdpmieLa 9T)CconsdpjueLa 9T)CconsdpvieLa ?T/CcashdatadetalleCa =T-CchequesprocliCa >T.Cchequesfecestida fTVCcashcfgmaxgenN a"replace maxgen with 9999999999 all >T.Ccashprocpor135Na >T.Ccashprocpor150Na >T.Ccashprocpor165Na >T.Ccashprocpor180Na >T.Ccashprocpor195Na 9T)Ccash2ii21Na 9T)Ccash2ii22Na 9T)Ccash2ii23Na 9T)Ccash2ii24Na 9T)Ccash2ii25Na 9T)Ccash2ii26Na 9T)Ccash2ii27Na 9T)Ccash2ii28Na 9T)Ccash2ii29Na 9T)Ccash2ii30Na 9T)Ccash2ii31Na 9T)Ccash2ii32Na 9T)Ccash2ii33Na 9T)Ccash2ii34Na 9T)Ccash2ii35Na 9T)Ccash2ii36Na 9T)Ccash2ii37Na 9T)Ccash2ii38Na 9T)Ccash2ii39Na 9T)Ccash2ii40Na ?T/CcashcfgtspryvenCa >T.Cccclieasitipo2Na AT1Cret_prov provinciaNa ;T+Cconsnrib_baN a =T-Ccons nrib_cabaN a ;T+Cconsfrib_baCa =T-Ccons frib_cabaCa ;T+Cconscrib_baNa =T-Ccons crib_cabaNa AT1Cdretprov provinciaNa OT?CclientesaltaDaini_clientes_alta() >T.Cbienesven_cuexC a >T.Cbienesdes_cuexC a ?T/CcashcfgtsprycomCa <T,CcashcfgopryvLa <T,CcashcfgoprycLa ?T/Ccccomp noivactrlLa =T-CccpagreciprovC a @T0Cbultos cantxbult2N a AT1Cbul_gen cantxbult2N a 9T)ClocalesfcCa 9T)ClocalespdCa 9T)ClocalesocCa 9T)ClocalesopCa 9T)ClocalescpCa 9T)ClocalesrcCa 9T)ClocalesdpCa 9T)ClocalesexCa 9T)ClocalesmvCa 9T)ClocalesprCa 9T)ClocalesrtCa 9T)ClocalesnrCa 9T)ClocalesreCa 9T)ClocalesncCa :T*ClocalesmvrCa (2%ClocalC000CCZR.dbf0KT;ClocalC000CCZRfcCa KT;ClocalC000CCZRpdCa KT;ClocalC000CCZRocCa KT;ClocalC000CCZRopCa KT;ClocalC000CCZRcpCa KT;ClocalC000CCZRrcCa KT;ClocalC000CCZRdpCa KT;ClocalC000CCZRexCa KT;ClocalC000CCZRmvCa KT;ClocalC000CCZRprCa KT;ClocalC000CCZRrtCa KT;ClocalC000CCZRnrCa KT;ClocalC000CCZRreCa KT;ClocalC000CCZRncCa LT<ClocalC000CCZRmvrCa <T,CccventdtoacuNa @T0Cmotivos provisionC a vTfCcuentasxproviLa2replace xprovi with substr(atributo,123,1)=[S] all ;T+CcuentasxcliLa ;T+CcuentasxproLa @T0Cret_provbasecalcNa <T,CdespconformeNa 6T&CdespopN a =T-Cdesp fec_ent_cDa =T-Cdesp fec_ent_fDa @T0Cuser_logcomprob2C a >T.Cuser_logcausa2C a =T-CequipossysmsgNa >T.Cback_cfgorigenCa @T0Cback_cfgbak_headCa @T0CproduccibatchcieN a ;T+Cpr_cieturnoNa ;T+Cpr_ciefechaDa 8T(Cdespfac1Ca 8T(Cdespfac2Ca ?T/Cve_transcomprobC a =T-Cve_transcausaCa AT1Cdretprov retdebidaNa >T.CdretprovretantNa >T.Cbienesstk_min1Na =T-Cstockstk_min1Na ?T/Cbienes stk_min_mNa >T.Cstock stk_min_mNa >T.Cpr_ciecantidadNa >T.CimportacasicieN a >T.CimportacfeccieDa =T-Cplan_maqsetupNa <T,Cproduccirem4Ca ?T/Cve_transult_actTa :T*CtempcompibNa ;T+Cconver2nofcLa 9T)CbienesncmCa 8T(Cidx03fceCa :T*CmedidasfceN a 9T)CccventfceNa <T,Cccventfce_IDNa =T-Cccventfce_caeCa >T.Cccventfce_vencDa 9T)CnumfacfceLa :T*CconspfformCa <T,CconspfcopiasNa <T,CconsfcexformCa >T.Ccons fcexcopiasNa AT1Ctccvent tipoexportNa @T0Cccvent tipoexportNa BT2Ctempcomp adicexportNa :T*Citm_descibNa BT2Citm_desc adicexportNa <T,CcliauxidiomaNa =T-CclientesphonoC(a <T,Cclientespho2C(a >T.CclientesphoentC(a =T-Cmedidasdescr2C a =T-Cmedidasabrev2Ca ;T+Cmedidasfce2N a @T0Ctempcompen_milesLa >T.Ccliauxen_milesLa AT1Cconver2 rec_manualLa >T.CtempcompmaxdecNa >T.CclientesnombreC<a <T,CcliauxentnomC<a <T,CcliauxfcenomC<a ;T+CcompproditmNa YTICccformul mermactrlCaini_ccformul_mermactrl() BT2Cplan_maq primer_iduCa AT1Cplan_maq padre_iduCa :T*CconsplformCa <T,CconsplcopiasNa >T.CempresasinicioDa 9T)CnumfacpvrNa =T-CcosimpcomprobC a ;T+CcosimpcausaCa =T-Ccosimpno_proyLa kT[Cconverincotermna&replace incoterm with 1 for incoterm=0 mT]Cimportacincoprecna&replace incoterm with 1 for incoterm=0 ;T+CcccompperibNa <T,CtcccompperibNa >T.CtempcompnumeroN a >T.CtempcompsubnumNa <T,CtempcompfijoLa ?T/Cven_opersubtipoNa ?T/Ccom_opersubtipoNa QTACformulasordenNaini_formulas_orden() >T.Cccventncnd_subNa 9T)CconverfobNa ;T+CconverdolarNa bTRCproveedoimp_triCareplace imp_tri with [N] all ?T/CtcccompincotermNa >T.Ctcccompimp_triLa :T*CcosimptipoNa ZTJCcosmantipo2Nareplace tipo2 with 1 all WTGCcostipo2Nareplace tipo2 with 1 all @T0CimportacincotermNa ;T+CimportacmovN a <T,Crotulosean13Ca <T,Crotulosdun14Ca <T,CrotuloseanlhCa <T,CrotulosdunlhCa 8T(Crotean13Ca 8T(Crotdun14Ca 8T(CroteanlhCa 8T(CrotdunlhCa <T,CcliauxretiroTa >T.CtempcompcodaltCa ?T/CtempcompcpbttxtMa >T.CtempcompremtxtMa UTECimportactxtprovCdaini_importac_txtprov() 9T)Clogtts_idC a <T,CmotinvregasiLa ?T/Ccosimp descuentoNa =T-Ctcccompoc_extCa bTRCdepositocalidadCareplace calidad with [N] all `TPCconveraprobadoNareplace aprobado with 0 all ?T/Cconver procesadoNa =T-Ccccompimp_triLa >T.Cccventfce_concNa >T.Cccventfce_tipoNa ;T+Civa_venbaseNa >T.Civa_venbase_moNa ?T/Civa_ventipo_regNa ?T/Cempresasusr_habC2a AT1Cempresas usr_n_habC2a @T0CclientesfceemailC2a `TPCccventimpresoLareplace impreso with .t. all bTRCccventimpresorLareplace impresor with .t. all >T.CccformulartperCa TCconsfceformCa`replace fceform with stuff(alltrim(fcform), at([.FRX],upper(alltrim(fcform))),4,[])+[_e.frx] all gTWCcons fcecopiasNa#replace fcecopias with fccopias all TCconsnceformCa`replace nceform with stuff(alltrim(ncform), at([.FRX],upper(alltrim(ncform))),4,[])+[_e.frx] all gTWCcons ncecopiasNa#replace ncecopias with nccopias all @T0Cbienes ventasxperN a ?T/Cstock ventasxperN a BT2Cin_falta ventasxperN a lT\CccventvaldeclNa(replace valdecl with tot_ven-des_com all mT]CtccventvaldeclNa(replace valdecl with tot_ven-des_com all ?T/Cin_faltacod_proCa AT1Cin_falta proveedorC(a ;T+Cin_faltasolNa @T0Ccfg_lis costobaseNa ?T/Ccfg_liscostoperNa cTSCcfg_liscostoautCareplace costoaut with [N] all <T,CclientesfpagNa >T.Cin_faltaactivoLa ;T+Ctsp_choftspN a ?T/CclientesfcedestC(a ?T/Ctsp_asigimporteNa @T0Ctsp_asigimp_chofNa ?T/Ctsp_asigfacturaC a ;T+Ctsp_asiggntNa ?T/Ctsp_asigfactgntC a BT2Ctsp_asig lugarcargaN a ?T/Ctsp_asigclienteCa >T.Ctsp_asigvueltaCa ;T+Ctsp_asighc1Ca ;T+Ctsp_asighc2Ca <T,Ctsp_asigpal1Na <T,Ctsp_asigpal2Na ;T+Ctsp_asiglc2N a :T*Ctsp_asigtpNa =T-Ctsp_asigturnoCa =T-Ctsp_asigtipouCa AT1Ctsp_asig toneladasNa ;T+Ctsp_asigobsC2a BT2Ctsp_asig comentarioC2a ;T+Ctsp_asigtspN a ;T+Ctsp_camitspN a 9T)CbieneseqzC#a =T-Ctempcompean13C a =T-Ctempcompdun14Ca >T.Ctsp_chofcamionN a ?T/Ctsp_choftrailerN a ;T+CtextosdesdeDa ;T+CtextoshastaDa >T.CcashadicfecgenLa =T-CcashexpaclaseNa =T-CcashcfgcliiniNa =T-CcashcfgproiniNa ?T/CcashcuesubclaseNa >T.CcashtipodudosoLa <T,Ccash2idudosoLa =T-CcashcfgpropatC2a =T-Cnumfacfis_drvCa ]TMCempresasdpunonareplace dpuno with -1 all ]TMCempresasdpdosnareplace dpdos with -1 all cTSCempresasdpdoscennareplace dpdoscen with -1 all ;T+CclientesempN a ?T/CcondcobrdiaschqNa ?T/CcondpagodiaschqNa ?T/CplanvarcdiaschqNa ?T/CcashdatafmanualDa ?T/CcashdatamodificLa AT1Ccashdata ajustefecN a @T0CcashdatapagofijoCa =T-CcosxcueactionNa >T.Cconver2cerradaLa ?T/Cconver2despachoCa <T,CcuentaspuntoNa =T-CproveedoretcpNa 8T(CconsnrcpN a =T-Ccons hayret_cpLa >T.CproveedoivaretNa QTACitmdesccdescrMaini_itmdescc_descr() >T.Ctventasdes_insN a ?T/CtccventtipoexpdC(a >T.CccventtipoexpdC(a >T.CtempcompfactorNa ?T/Cconver factorteoNa YTICimportac factorteoNaini_importac_factorteo() ]TMCtcccompfactorNaReplace factor with 1 all aTQCtcccompfactorffNareplace factorff with 1 all >T.CimportacfactorNa ;T+CstockfactorNa <T,CconverfactorNa <T,CbienesfactorNa >T.Cimp_tranfactorNa <T,CcosimpfactorNa >T.CtempcompfactorNa >T.CtempcompfactorNa >T.CtempcompfactorNa >T.CtempcompfactorNa =T-CccventitmcomfLa =T-CccventitmcomrLa >T.CtccventitmcomfLa >T.CtccventitmcomrLa @T0Cback_cfgback_pdfLa ;T+CventaslineaN a ;T+CventasgrupoN a <T,CcompraslineaN a <T,CcomprasgrupoN a <T,CtventaslineaN a <T,CtventasgrupoN a =T-CtcompraslineaN a =T-CtcomprasgrupoN a <T,CcuentaslineaN a <T,CcuentasgrupoN a =T-CcuentasxlineaNa =T-CcuentasxgrupoNa =T-CtempcomplineaN a =T-CtempcompgrupoN a >T.CtempcompxlineaNa >T.CtempcompxgrupoNa @T0CusuarioslastpermCa AT1Cconver2 ref_cierreN a =T-Cmotinvdeping2Ca <T,CconverrefcauCa <T,CcomprasnostkLa <T,CbieauxorigenCa <T,CbieauxprocedCa =T-CsucpropctavenC a <T,ClineascodigoN a <T,CgruposcodigoN a ;T+CbieneslineaN a ;T+CbienesgrupoN a @T0Clineas masterlineN a @T0CsucursalfceemailC2a ?T/CsucursalfcedestC(a <T,CccventfceenvLa ?T/Citm_desccod_proCa >T.Citm_descchqnumN a >T.Citm_descchqsubN a ;T+CagentelineaN a :T*Cccventaux1Na ?T/Cclientesesp_obsNa >T.Ctccventesp_obsNa =T-Cccventesp_obsNa ;T+CitmdesccimpNa @T0C co_er_datoslineaN a :T*Cco_erlineaN a 9T)CcuentaserN a :T*Cco_ernegarL a =T-Ctsp_asigdpeonC(a BT2Cconver2 rec_manualfDa BT2Ctempcomp actualizarLa @T0Ctsp_asigeliminarLa BT2Ctsp_asig bajamanualLa :T*CcccomptranN a ;T+CtcccomptranN a 9T)CchqbanchqN a 9T)CchqnumchqN a KT;Cchqcod_cliCaini_chq_cod_cli() ?T/CmotivostraeartsLa =T-CtccventlibfabDa 7T'Ctrrecf5Ta =T-Cventasfec_entDa TTDCtrrecf6Tareplace f6 with f5 all [TKCtrrecf7C areplace f7 with SYS(2015) all 7T'Ctrrecf8Ma STCCtrrecf9Nareplace f9 with 0 all =T-CesolcomsolauxN a ?T/CejerconcortelegN a ?T/CcuentasatributoCa =T-CinvmoderefmodN a >T.CccformuldepingCa ;T+Cciecajviva1Na ;T+Cciecajviva2Na =T-CciecajvnogravNa <T,Cciecajvbase1Na <T,Cciecajvbase2Na ?T/CccformulmaquinaN a <T,CccventfcdereNa OT?CventasfcdereNaini_ventas_fcdere() QTACccventnd_provCaini_ccvent_nd_prov() 9T)CbieauximgCa >T.Cform_pasestadoN a STCCproducciestfabN aini_producci_estfab() =T-Ccons imp_impolC a =T-CconverpersonaCda 9T)CdespordenNa @T0Cprod_estcantidadNa AT1Cprod_est cantidad2Na @T0Cprod_estcod_pro1Ca @T0Cprod_estcod_pro2Ca ?T/Cproveedocue_comC a <T,CtccventcotizLa =T-Ctccventcotizfda ;T+CcccliecotizLa =T-Ccos cambio_oriNa @T0Ccosult cambio_oriNa OT?CccventsaldorNaini_ccvent_saldor() BT2Cback_cfg destino_nuCa 9T)CcccliesucNa ;T+CcomprastranN a <T,CtcomprastranN a >T.Cccprovasitipo2Na >T.CclientesdeptrfCa 9T)CccventtrfLa <T,CtarjregltopeNa =T-Ccliauxapc_fc1Na =T-Ccliauxapc_fc2Na >T.CcccompcodigofcNa ?T/Ccfg_lisactforzaDa =T-CtempcompaltasCa ?T/CclientescatcredNa <T,CbienesCOD_UPCa =T-CbienesREN_CUMNa <T,CccventREGCOTLa ;T+CbultosventaCa <T,Cbul_genventaCa =T-CatributoventaCa <T,Catr_genventaCa AT1Catributo promocionCa @T0Catr_gen promocionCa :T*CstockventaCa =T-Clocalesin_005La =T-Clocalesin_002La (292%ClocalC000CCZR.dbf0.9OT?ClocalC000CCZRin_005La OT?ClocalC000CCZRin_002La WTGCmedidas DECIMALESNaini_medidas_decimales() <T,CciecajvperibNa @T0Ccos_cpredias_dirNa @T0Ccos_cpredias_prdNa ?T/CcuentasusuariosCa ;T+Ctarjest_actNa =T-CtarjregldescrC<a AT1Cimportac bimpfobmoNa @T0Cdbt_fecpimptotalNa BT2Cdbt_fecp imptotconcNa ?T/Cdbt_fecpimpnetoNa ?T/Cdbt_fecpimpopexNa ?T/Cdbt_fecpimptribNa >T.Cdbt_fecpimpivaNa =T-CplandtoslineaN a @T0CplandtosproductoN a ?T/CplandtossubprodN a >T.CplandtosmedidaN a =T-CplandtoscolorN a @T0Cplandtosvale_efeLa @T0Cplandtosvale_trjLa @T0Cplandtosvale_cjeLa <T,CplandtosotroLa ?T/CplandtoslocalesC(a @T0CcccnotasaccionesMa @T0CcccnotasfreclamoDa :T*CtccventrevNa 9T)CccventrevNa ?T/CplandtospreclisLa QTACccventanuladaNaini_ccvent_anulada() =T-Clocalesco_013Da =T-Clocalesco_014La (B2%ClocalC000CCZR.dbf0BOT?ClocalC000CCZRco_013Da OT?ClocalC000CCZRco_014La ;T+Ccom_operrefCa ;T+Cven_operrefCa @T0CclientesentcoordCa @T0CsucursalentcoordCa >T.CfletesentcoordCa >T.CcliauxentcoordCa AT1Cdespflet fechahoraTa <T,CbieauxaduanaCa ?T/Ccccomp gananciasNa BT2Cproveedo ganancias1Ca AT1Cproveedo gananciasNa ?T/Ccccomp gananciasNa @T0Ctcccomp gananciasNa >T.Cccpag gananciasNa VTFCret_provversionNaini_ret_prov_version(1) BT2Ctempcomp comentarioCa BT2Citm_desc comentarioCa >T.CensambletareasMa 9T)CcliauxobsMa <T,CnumfactransfLa ?T/Cbienes ubicacionCa >T.CsucursalnombreC(a <T,CtempcompxcenNa ?T/Cin_faltastkmin1N a dTTCdepositovendibleCareplace vendible with [S] all `TPCcashcfgclidiasNareplace clidias with -1 all `TPCcashcfgprodiasNareplace prodias with -1 all @T0Cccvent arm_palletNa AT1Ctempcomp medidaabrCa AT1Ctempcomp medauxabrCa >T.C sch_gastostranN a ;T+CepresupvencDa 9T)CtarjbancoC a =T-CproveedocalifNa @T0CproveedocaliftxtMa >T.CcliauxdemnoatrLa ?T/Ctempcompcant_u2Na @T0Ctempcompstock_u2Na ?T/Ctempcompcant_u1Na @T0Ctempcompstock_u1Na ;T+Cconver2tranN a <T,CccclietransfLa ;T+CcccobtransfLa >T.ClispreclisprovCa `TPCclientescesdspCareplace cesdsp with [N] all ^TNCcliauxcesdspCareplace cesdsp with [N] all >T.CcliauxtipoexppNa ?T/Ccliaux tipoexppdC(a TtCproveedo tipo_afipNa'replace tipo_afip with iif(inscripcio=[  ],2,1) all ?T/Ctccventrep_cantNa @T0Ctccvent rep_mesesNa AT1Ctccvent rep_ultimaDa ^TNCempresasivacatNareplace ivacat with 0 all ;T+CnumfacfactcN a ;T+CnumfacdebicN a ;T+CnumfaccredcN a @T0CproveedobancotrfN a AT1Ccondcobr notificarLa @T0Ccliaux fce_fservdda @T0Ccliaux fce_fservhda @T0Ccliaux fce_fservpda @T0Ccliaux fce_fservtNa @T0Ccliaux fce_concepNa aTQCtccventfce_concNareplace fce_conc with 1 all :T*CbieauxlbulMa :T*CbieauxlatrMa ;T+CempresaswebC<a =T-CempresasemailC<a ?T/Cempresastxtcpbtma OT?CbienesdmarcaCaini_bienes_dmarca() <T,CbienesmodeloCa <T,CbieauxlisprvNa =T-ClisprecmargenNa rTbCclientestipodocNa,replace tipodoc with iif(ivacat=3,96,80) all >T.Cepresupdes_comNa :T*CepresupivaNa <T,CepresupperibNa ?T/CepresupperibtxtCa cTSCcfg_lismultimonCareplace multimon with [N] all =T-ClisprecmonedaNa =T-CdpresupmonedaNa =T-CdpresupcambioNa >T.ClisprecpreciooNa :T*CepresupsucNa ;T+CepresupplanN a <T,Cepresupdesc1Na <T,Cepresupdesc2Na ;T+CbieauxanchoNa =T-CbieauxespesorNa <T,CbieauxfuelleCa ;T+CbieauxcolorCa ;T+CbieauxlargoNa :T*Cbieauxmaq1N a :T*Cbieauxmaq2N a :T*Cbieauxmaq3N a =T-CbieauxtrabajoC(a <T,CbieauxfuelleCa =T-CbieauxtratadoNa >T.CbieauxcantidadNa ;T+CbieauxkilosNa <T,CbieauxmetrosNa >T.CbieauxcilindroNa @T0Cbieaux tipo_confeCa ?T/Cbieaux extrusionMa ?T/Cbieaux impresionMa @T0Cbieaux confeccionMa ?T/Cbieaux material1Ca >T.Cbieauxpor_mat1Na ?T/Cbieaux material2Ca >T.Cbieauxpor_mat2Na ?T/Cbieaux material3Ca >T.Cbieauxpor_mat3Na <T,Cbieauxcolor1Ca <T,Cbieauxcolor2Ca <T,Cbieauxcolor3Ca <T,Cbieauxcolor4Ca ^TNCclientesno_ccCareplace no_cc with [N] all ;T+Cccventno_ccLa <T,CventaspresupN a =T-CtventaspresupN a <T,CdpresupusadoNa >T.CepresupcerradoLa >T.CtempcomppresupN a ?T/Cventas presupitmNa @T0Ctventas presupitmNa AT1Ctempcomp presupitmNa :T*CdpresupitmNa >T.Cpr_otrospedidoN a >T.Cpr_otrospeditmNa >T.Cpr_otrospla_kmNa >T.Carmadocant_pedNa ?T/CccarmadopalletsN a =T-CccarmadocajasN a ?T/CccarmadoarmadorN a =T-CbienesdunmultNa =T-CbieneseanmultNa <T,CstockdunmultNa <T,CstockeanmultNa =T-Cconver2comentMa @T0Cdsolcom prioridadNa >T.CccarmadoconsolN a >T.Carmadocant_usaNa >T.CtempcomparmadoN a <T,CventasarmadoN a nT^CconsmailtipoCa+replace MAILTIPO with REPLICATE('1',30) all lT\CconspreformCa*replace preform with 'presupuesto.frx' all `TPCcons precopiasNareplace precopias with 1 all :T*CclientespvNa =T-ClispreccambioNa ?T/CcondcobrlibprepLa >T.CtempcompoldcodCa >T.CtempcompoldatrCa >T.CtempcompoldbulCa :T*CarmadoloteCa :T*CbultosuvenN a <T,CbienescosactNa ;T+CbienescostoNa ;T+CconvercostoNa <T,CtempcompuvenNa 9T)CstockuvenN a :T*CtarjcentroCa ;T+Cbul_genuvenN a <T,CempresasiibbCa <T,CcosimpcosoriNa 9T)CcoscosoriNa <T,CcosultcosoriNa =T-Cin_faltamarcaN a 8T(Cpro2fax1Ca :T*Cpro2email1C2a =T-Cform_esthorasNa =T-ClisprecdtoprvNa <T,Ccos descuentoNa ?T/Ccosult descuentoNa ?T/CdepositopickingCa ?T/CtempcomppickingCa ?T/CmotivosdepositoCa CT3Ccashadic iteracionesNa >T.CcashadiclimiteDa MT=CcompproddepCaini_compprod_dep() ;T+CdepminidealNa <T,CFletesCostoHN a >T.CdespfletCostoHN a ?T/CdespfletInicioHTa ?T/CdespfletInicioLCa ?T/CdespfletSalidaHTa ?T/CdespfletCierreHTa ?T/CdespfletCierreLCa =T-CdespfletHorasNa @T0CdespfletOtrosValNa >T.CdespfletCoeficNa @T0Ccliotrosrot_gralC2a @T0Ccliotrosrot_xitmC2a bTRCcliotrosrot_tipoNareplace rot_tipo with 1 all >T.Cprod_estdemoraN a lT\CconsprdformCa*replace prdform with 'predespacho.frx' all `TPCcons prdcopiasNareplace prdcopias with 1 all >T.CclientesGeoDirCxa ?T/CclientesGeoDir2Cxa >T.CclientesGeoEntCxa <T,CCliauxGeoDirCxa <T,CCliauxGeoEntCxa <T,CFletesGeoDirCxa >T.CSucursalGeoDirCxa @T0CclientesdircoordCa ?T/CmailcolaavisadoNa ;T+CcashdatalogMa =T-Cpro2 enviapagoNa BT2Cmailcola mailtonameMa >T.CmailcolamailccMa BT2Cmailcola mailccnameMa ?T/CmailcolamailccoMa @T0Cmailcolasmtp_sslNa AT1Cimportac tipofleteNa <T,CimportacpesoNa BT2Cimportac diasalmaceNa :T*CtcccompoakCa @T0Ctcccomp oak_fechaDa ?T/Ccliaux fprorrogaDa >T.Cpr_ciepesxbul1N a >T.Cpr_ciepesxbul2N a >T.Cpr_ciepesxbul3N a >T.Cpr_ciepesxbul4N a >T.Cpr_ciepesxbul5N a >T.Cpr_ciepesxbul6N a >T.Cpr_ciepesxbul7N a >T.Cpr_ciepesxbul8N a >T.Cpr_ciepesxbul9N a ?T/Cpr_cie pesxbul10N a ?T/Cpr_cie pesxbul11N a ?T/Cpr_cie pesxbul12N a ?T/Cpr_cie pesxbul13N a ?T/Cpr_cie pesxbul14N a ?T/Cpr_cie pesxbul15N a :T*Cpr_ciepesoN a @T0Ctempcomptipo_impN a AT1Cimportac valor_anaNa @T0Cimportacbase_ivaNa ?T/Ccomprastipo_impN a @T0Ctcomprastipo_impN a ^TNCbienesdiscontNareplace discont with 1 all >T.CmotinvrecesinpLa @T0CproduccientradasNa BT2Ccliotros cuitvalidoNa BT2Ccliotros cuitvalfecda BT2Ccliotros cuitvalnomC<a ?T/CcondcobrnegocioNa ?T/CplanvarcnegocioNa XTHCproveedobcCareplace bc with [S] all bTRCbienesdescrvarCareplace descrvar with [N] all ?T/Cchqanu dif_valorDa ;T+CcomprasibexNa =T-Cbienescat_comNa ;T+CproveedorutCa ?T/Cproveedoest_actNa ?T/Cclientesest_actNa ?T/Csucursalest_actNa ?T/Cproveedoest_actNa >T.CcccnotasgescomNa =T-CcompprodordenN a `TPCdespachoiduC areplace idu with sys(2015) all ;T+Cpro2enviaocNa <T,Cproduccirem4C a <T,Cproduccirem9C a =T-Cproduccirem10C a =T-Cproduccirem11C a =T-Cproduccirem12C a =T-Cproduccirem13C a =T-Cproduccirem14C a =T-Cproduccirem15C a ?T/Cctasbanccod_banN a <T,Ctempcompret3Na QTAC provinc_arafipNaini_provinc_afip(1) NT>CprovincafipNaini_provinc_afip(2) >T.C provinc_clafipNa ?T/Cbienes masterlinNa <T,CtcomprasibexNa =T-CcccompversionNa >T.Ccccompbase_ganNa >T.Ccccompbase_ib1Na >T.Ccccompbase_ib2Na >T.Ccomprasret_ganNa >T.Ccomprasret_ib1Na >T.Ccomprasret_ib2Na ?T/Ctcomprasret_ganNa ?T/Ctcomprasret_ib1Na ?T/Ctcomprasret_ib2Na <T,Ctempcompret1Na <T,Ctempcompret2Na <T,Ctempcompret3Na ]TMCnumreccodigoNareplace codigo with id all ;T+CnumrecdescrC(a 9T)CnumrecautLa ^TNCnumreciduCareplace idu with sys(2015) all @T0CcondcobrmodelofcMa ?T/Cuser_logentidadCa >T.Cuser_logcodigoCa OT?CiibbprovbaseNaini_iibbprov_base() <T,Cte_anuanumodDa bTRCclientespres_fcCareplace pres_fc with [N] all ;T+CcliauxfpresDa AT1Ctventas asistenciaN a @T0Cventas asistenciaN a BT2Ctempcomp asistenciaN a IT9CbienesactTaini_bienes_act() RTBCiibbprovbase_meNaini_iibbprov_base() (( ?T/Ccash2iiCCZNa =T-CccformuldescrC<a =T-Ccons iibb_er_rLa ;T+Cconsnrib_erN a ;T+Cconsfrib_erCa ;T+Cconscrib_erNa >T.CdretprovaplantNa ?T/Cret_provpagoantNa >T.Cret_provretantNa ;T+CproduccisubNa OT?Cpr_cieremitoCaini_pr_cie_remito() <T,Cpr_cieindiceNa >T.Cimp_setscodigoN a ?T/Cclientesdir_cotMa =T-CFletesdominioCa ?T/CdespfletdominioCa =T-CFletesdominioCa eTUCFletes Coef_AceptN areplace Coef_Acept with -1 all eTUCFletes Coef_RechaN areplace Coef_Recha with -1 all eTUCFletes Min_ImportNareplace Min_Import with -1 all :T*CnumrecmailLa QTACdsolcomidseekCaini_dsolcom_idseek() >T.CAsist complejo1Na >T.CAsist complejo2Na >T.CAsist complejo3Na >T.CAsist complejo4Na >T.CAsist complejo5Na =T-CAsisttecnico2Ca >T.CCliOtrosDirTXTMa >T.CCliOtrosDirCOTMa ?T/CatributosurtidoNa >T.Catr_gensurtidoNa 9T)CasisttranN a 8T(CdespnotaMa @T0CcliotroscopiaimpLa iTYCimportac fecingestDa!replace fecingest with fecing all ?T/Cproveedoult_modTa ?T/Cclientesult_modTa =T-Cbienesult_modTa :T*CasistcostoNa =T-CasistgarantiaLa <T,Casistcod_cliCa =T-Cprod_forordenNa ?T/CtcccompimportacN a ?T/Csucursaldir_facCa ;T+Ccccompdesc3Na ;T+Ccccompdesc4Na ;T+Ccccompdesc5Na <T,Ctcccompdesc3Na <T,Ctcccompdesc4Na <T,Ctcccompdesc5Na @T0Cproveedodes_com3Na @T0Cproveedodes_com4Na @T0Cproveedodes_com5Na ?T/CmailcolacomprobCa QTACnumfacactivofCaini_numfac_activof() QTACnumfacactivorCaini_numfac_activor() =T-Clocalesin_003La (<2%ClocalC000CCZR.dbf08OT?ClocalC000CCZRin_003La =T-CtempcompasistLa 9T)CasistpendLa \TLCbienesasistCareplace asist with [N] all :T*CasistfechaDa ZTJCccarmadotipoNareplace tipo with 0 all =T-Cconver2armadoN a ;T+CccarmadodepCa >T.CccarmadoestadoNa AT1C bienes_fastbarrasN a AT1Ctempcomp recepcionNa @T0CtempcomptemporalNa >T.Ctempcomprecep2Na :T*Ctempcompr1Na BT2Ctempcomp refsaldou1Na ?T/Ctempcompori_canNa ?T/Cventas recepcionNa ;T+CventaskilosNa :T*Cventascan1Na =T-CventascatfactNa :T*CcompromcanNa @T0CmovstockcantidadNa AT1CdespFlet almuerzoITa AT1CdespFlet almuerzofTa ?T/Carmado procesadoNa =T-Cprod_estplazoN a <T,CconverarmadoN a ^TNCbieauxtipocosNareplace tipocos with 0 all @T0Ctempcompcos_lifoN a AT1Ctempcomp totivaincN a =T-Cform_caldescrC<a =T-Cform_calordenN a <T,ClisprecfechaDa :T*CdprotvalorNa <T,Ceprotcod_cliCa 8T(CeprotsucN a 9T)CeprotelabDa ?T/Cdepositocod_proCa =T-Ccons nrib_ba_eN a ?T/Ctccventarm_bloqLa =T-CtccventseguimNa =T-CtccventtcfijoCa ?T/Cform_calcod_cliCa <T,Cdprotcod_cliCa ?T/Clineas ped_subirNa AT1Cepresup referenciaC(a <T,Clog_auttextoMa ?T/CcliotrossistfacCa >T.Cempresasgeodirca @T0Cempresasdircoordca <T,Cconsiibb_misLa <T,Cconsnrib_misN a <T,Cconsfrib_misCa <T,Cconscrib_misNa AT1Ctccvent ped_estadoNa ?T/Cagente pdf_subirNa ?T/C bienes_fastflagLa >T.C bienes_fastatrCa >T.C bienes_fastbulCa ?T/CcondcobrrecargoNa BT2Ccondcobr recargoartCa @T0Ccliaux car_arriboTa =T-Ccliauxcar_iniTa =T-Ccliauxcar_finTa <T,CcliauxchoferCa @T0Ccliaux chofer_dniN a :T*Ccliauxdom1Ca :T*Ccliauxdom2Ca >T.Ccliauxcar_taraN a ?T/Ccliaux car_brutoN a >T.Ccliauxcar_netoN a >T.CcliauxbolsonesNa ?T/Ccliaux fld_cli1cC a ?T/Ccliaux fld_cli1nN a ?T/Ccliaux fld_cli2cC a FT6Cidx02aNaini_idx02_coef() VTFCbieauxextNareplace ext with 2 all >T.CbieauxdescrwebMa >T.Cconver2cod_fleCa ?T/Cconver2dominio1Ca ?T/Cconver2dominio2Ca =T-Cconver2choferCa :T*Cconver2dniCa mT]Cmotinv transporteLa&replace transporte with .t. for tipo=3 <T,CmotinvpesadaLa ;T+Cconver2taraNa <T,Cconver2brutoNa ?T/Ccliaux fld_cli2nNa @T0Ccliaux transporteCa =T-CnumfacfaccredNa @T0C bienes_fastventaLa ?T/CplandtosfamiliaN a BT2Cplandtos tipoprecioNa ?T/C bienes_fastdatrCa ?T/C bienes_fastdbulCa =T-Cbienesdtoprv1Na =T-Cbienesdtoprv2Na BT2C bienes_fastdtoprv1Na BT2C bienes_fastdtoprv2Na AT1C bienes_fastmargenNa VTFC bienes_fastbonifNaini_bienes_fast_sinc() =T-CtccventmotdemNa ?T/CtempcompfecprecDa ?T/CdespacholoteextCa STCCcccompdepositoCaini_cccomp_deposito() 9T)ClocalesfcCa 9T)ClocalespdCa 9T)ClocalesocCa 9T)ClocalesopCa 9T)ClocalescpCa 9T)ClocalesrcCa 9T)ClocalesdpCa 9T)ClocalesexCa 9T)ClocalesmvCa 9T)ClocalesprCa 9T)ClocalesrtCa 9T)ClocalesnrCa 9T)ClocalesreCa 9T)ClocalesncCa :T*ClocalesmvrCa =T-Clocalesin_006La (2%ClocalC000CCZR.dbf0qTaClocalC000CCZRin_006Lareplace in_006 with .t. all (A?T/Ccash2ppCCZDa KT;Ccashresux1Laini_cashresu_x1() =T-CccventliqprodNa STCCcccompfce_tipoNaini_cccomp_fce_tipo() ?T/Cnumfac transfsrvLa <T,CccventtransfLa =T-CclientesgruecN a FT6Cidx02aNaini_idx02_coef() GT7Cidx02a1Naini_idx02_coef() ?T/C bienes_busqflagLa @T0CdespfletfechafinDa ?T/Ccosman descuentoNa ;T+Ccosmandesc2Na ;T+Ccosmandesc3Na ;T+Ccosmandesc4Na ;T+Ccosmandesc5Na ;T+Ccosimpdesc2Na ;T+Ccosimpdesc3Na ;T+Ccosimpdesc4Na ;T+Ccosimpdesc5Na ;T+Ccosultdesc2Na ;T+Ccosultdesc3Na ;T+Ccosultdesc4Na ;T+Ccosultdesc5Na 8T(Ccosdesc2Na 8T(Ccosdesc3Na 8T(Ccosdesc4Na 8T(Ccosdesc5Na =T-Ctempcompdesc2Na =T-Ctempcompdesc3Na =T-Ctempcompdesc4Na =T-Ctempcompdesc5Na =T-Ctcomprasdesc2Na =T-Ctcomprasdesc3Na =T-Ctcomprasdesc4Na =T-Ctcomprasdesc5Na <T,Ccomprasdesc2Na <T,Ccomprasdesc3Na <T,Ccomprasdesc4Na <T,Ccomprasdesc5Na <T,Clisprecdesc2Na <T,Clisprecdesc3Na <T,Clisprecdesc4Na <T,Clisprecdesc5Na >T.Clisprecmargen2Na >T.Clisprecmargen2Na @T0CfecotcomdespachoN a <T,Cstockcant_ocNa =T-Cstockcant_comNa =T-Cstockcant_prdNa >T.Cstkxdepcant_ocNa ?T/Cstkxdepcant_comNa ?T/Cstkxdepcant_prdNa =T-Cstockgcant_ocNa >T.Cstockgcant_comNa >T.Cstockgcant_prdNa ?T/Cstkxdepgcant_ocNa @T0Cstkxdepgcant_comNa @T0Cstkxdepgcant_prdNa >T.Ctempcomprecep3Na >T.CtempcompdescxoNa >T.CtempcompdescxoNa =T-CcomprasdescxoNa >T.CtcomprasdescxoNa =T-CtempcompcomplNa =T-CclientescomplNa ;T+CccventcomplNa ;T+CventascomplNa <T,CtccventcomplNa :T*Cccventtrf2La >T.Cimp_setsvar_l1La ?T/Cimp_setscodigoTCa =T-CartxclitirimpLa =T-CartxclibarrasN a :T*CartxclidunNa =T-CartxclifrmcodNa @T0Cartxcli cantxbultNa @T0Cartxcli pesoxbultNa @T0Cartxcli voluxbultNa ?T/CclientesrotformNa >T.Ctempcompaprob2Na AT1Cclientes artslibreNa :T*CcomprompckN a ;T+Cartxcliaux1Ca ;T+Cartxcliaux2Ca @T0Cartxcli reprocesoLa <T,CdepositotipoNa @T0Ctventas cantxbultNa =T-Clocalesve_003Ca (2%ClocalC000CCZR.dbf0vTfClocalC000CCZRve_003Ca replace ve_003 with space(8) all <T,Cciecajvbase0Na <T,Cconsiibb_salLa =T-Cconver2id_numN a ;T+CstkxdepgempN a @T0CacuerdossectoresCa @T0Ctempcompcant_comNa =T-CtccventsectorNa <T,CimportacsimiCa ;T+CmotinvdescrC(a AT1Ctempcomp Cos_Lifo2Na ?T/Cccvent Desc_ConsNa @T0Ctccvent Desc_ConsNa <T,Cepresupdesc2Na <T,Cepresupdesc3Na <T,Cepresupdesc4Na <T,Cepresupdesc5Na @T0Cepresup Desc_ConsNa ;T+CempresasGLNN a ;T+CClientesGLNN a ;T+CSucursalGLNN a <T,Cimp_setsHojaCda AT1Cimp_sets Usar_FijoLa >T.Cimp_StruInicioNa ;T+Cimp_StruFinNa =T-Cimp_StruAnchoNa 9T)CCliAuxGLNN a <T,CCliAuxEntGLNN a 8T(CconsnrarN a =T-Ccons hayret_arLa =T-CproveedoretarNa =T-CartxclicodaltCa ?T/Cbienes uxbcompraN a [TKCtccventverifNareplace verif with 1 all <T,Cnumfacfc_cbuCa >T.Cnumfacfc_aliasCa =T-CtccventAcopioNa <T,CccventAcopioNa =T-Ccfg_lisAcopioNa @T0Ccfg_lis AcopiableNa CT3C bienes_fastfac_lpr3N a >T.CtempcompAcopioNa <T,CbienesAcopioNa >T.CClientesAcopioNa <T,CventasAcopioNa =T-CtventasAcopioNa BT2Cempresas cotusuarioCa @T0CempresascotclaveC a <T,CccventNUMCOTCa ?T/Cempresasdir_cotCda ?T/Cempresasdir_txtCda <T,CcccliebultosN a =T-Cconver2bultosN a >T.CccarmadobultosN a =T-CtventasbultosN a >T.CtempcompbultosN a @T0Ctccvent update_dtTa >T.CpickingsestadoNa <T,CventasbultosN a ;T+Cccventliq_1Da =T-CartxclisectorNa @T0Cacuerdostipo_acuNa cTSCcfg_lisbonifperCareplace bonifper with [S] all >T.Cpro2 emailpagosCPa ;T+Cpro2emailocCPa ?T/CcliotrossubeextNa 8T(Cpro2subdCa T{Cconsperib01qLaHrepl perib01q with (p_codemp=1 and inlist(p_emp, "SAR","SAM","TFW")) all vTfCconsperib01pLa3repl perib01p with (p_codemp=1 and p_emp="TFW") all ;T+CnumfacfactmN a ;T+CnumfacdebimN a ;T+CnumfaccredmN a AT1Ccondcobr desgl_remNa AT1Cplanvarc desgl_remNa <T,CepresuplugarCa _TOCproveedoivacat2Narepl ivacat2 with 1 for m eTUCcccompivacat2Na!repl ivacat2 with 1 for letra="M" BT2Cacuerdos en_facturaNa ;T+CacuerdosatrCa ;T+CacuerdosbulCa ;T+CcliauxrefccCa =T-CnumfacliqprodLa <T,Cccventlp_sucNa <T,Cccventlp_numNa <T,CconvercomentC<a >T.C cligrueceemailCa MT=Cret_provcodNaini_ret_prov_cod() >T.CnumfacBonosFisNa AT1Cimp_sets f_strconvNa @T0Cimp_setsval_funcCa BT2Cimp_sets val_columnNa BT2Cimp_stru repeticionNa ?T/Ctempcompblk_canLa <T,CdespachovencDa :T*CbienesvencNa IT9CccventnreNaini_ccvent_nre() ?T/CcashexpafmanualDa ;T+CmedidasconvNa RTBCbultosfactorNaini_bultos_medauxcod() TTDCbul_genfactorNaini_bul_gen_medauxcod() :T*CchqechequeLa ?T/Ccom_operechequeLa ?T/CGrupos ped_subirNa ?T/CccarmadoidbultoN a ?T/Cven_operechequeLa >T.Ccliauxapc_frefDa >T.Ccliauxapc_crefNa @T0Cmotivos sin_stockNa ;T+CstkxdepvencDa <T,CstkxdepgvencDa @T0Ccfg_lis decimalesNa =T-Cccventtot_venNa =T-Cccventiva_venNa >T.Ctccventtot_venNa >T.Ctccventiva_venNa =T-CccclieimporteNa =T-Cccclieuss_deuNa >T.CccclieadelantoNa >T.Cccclieadel_ussNa =T-CccprovimporteNa =T-Cccprovuss_deuNa >T.CccprovadelantoNa >T.Cccprovadel_ussNa ?T/CcashadicimporteNa ?T/Cven_opercaj_proNa ?T/Ccom_opercaj_proNa >T.CcccompredondeoNa >T.CccventredondeoNa >T.CtccventhorarioC(a =T-CccventhorarioC(a ?T/CclienteshorarioC(a >T.CclienteshorentC(a <T,Cclienteshor2C(a ?T/CsucursalhorarioC(a ?T/Casm_formfuncionNa :T*CcccliediasNa <T,Cco_erformulaCa =T-Cco_erformulapCa BT2Cdespflet SinRemitosNa <T,CbieauxColor5Ca <T,CbieauxColor6Ca <T,CbieauxMasterCa >T.CbieauxPor_MastNa >T.CbieauxPor_AntiNa >T.CbieauxPor_DeslNa >T.Cpr_otrosColor5Ca >T.Cpr_otrosColor6Ca >T.Cpr_otrosMasterCa @T0Cpr_otrosPor_MastNa @T0Cpr_otrosPor_AntiNa @T0Cpr_otrosPor_DeslNa >T.Cnumfaccod_mailNa =T-CnumfacinternoNa >T.Cnumfacremi_ultNa ?T/Cnumfac remi_vencDa @T0Cnumfac NombreMailC<a ?T/Cnumfac NombZMailC<a ;T+Cimp_setsEmpCa ;T+Cimp_struEmpCa @T0Cfletes Dep_PropioNa ;T+CfletesemailC<a AT1Cproducci cal_aprobNa AT1Cproducci cal_apcanNa AT1Cproducci cal_priorNa >T.CbienesanticipoLa ?T/CtccventanticipoNa VTFCtccvent anticipofNaini_tccvent_anticipo() =T-CdsolcompedidoN a =T-CdsolcompeditmNa aTQCcliotrosreqturnoCarepl reqturno with "N" all 9T)CchqdudosoLa >T.Ccliauxtipo_negCa ?T/Ccliaux PerAsoc_dDa ?T/Ccliaux PerAsoc_hDa <T,Ccccompimcom5Na =T-Ctcccompimcom5Na ;T+CnumfacdescrC(a [TKCnumfacIDUC arepl IDU with SYS(2015) all aTQCnumfacptovtaNarepl ptovta with RECNO()-1 all =T-CccarmadofinalLa XTHCcfg_lisbloqCarepl bloq with "N" all :T*CtcccomprevNa ?T/Ctempcompitem_ocC a hTXCitm_descitem_ocC a"repl descr with alltrim(descr) all ZTJCtcccompdtTarepl dt with dtot(hoy) all \TLCtcccompdtmTarepl dtm with dtot(hoy) all YTICcccompdtTarepl dt with dtot(hoy) all ZTJCtccventdtTarepl dt with dtot(hoy) all \TLCtccventdtmTarepl dtm with dtot(hoy) all YTICccventdtTarepl dt with dtot(hoy) all \TLCepresupdtTarepl dt with dtot(fecha) all ^TNCepresupdtmTarepl dtm with dtot(fecha) all >T.Ctcccompfact_moNa >T.Ctccventfact_moNa @T0Csucprop ctacobvenC a ^TNCcfg_lislistaNarepl lista with RECNO() all \TLCcfg_lisiduC arepl idu with SYS(2015) all ?T/Ccashadicasi_modN a @T0Casm_formconceptoC<a =T-Cidx04indice1cNa =T-Cidx04indice2cNa =T-Cidx04indice3cNa =T-Cidx04indice4cNa =T-Cidx04indice5cNa 6T&CcosempN a %SDAT1Cempresas Version_NNa @T0Cversion Version_NNa ;T+CbieauxlargoN a ;T+CbieauxanchoN a <T,CbieauxalturaN a <T,CbieauxblargoNa <T,CbieauxbanchoNa =T-CbieauxbalturaNa <T,CbieauxhapileN a ;T+CbieauxapileNa ;T+CbultoslargoN a ;T+CbultosanchoN a <T,CbultosalturaN a <T,CbultosblargoNa <T,CbultosbanchoNa =T-CbultosbalturaNa <T,CbultoshapileN a ;T+CbultosapileNa <T,Cbul_genlargoN a <T,Cbul_genanchoN a =T-Cbul_genalturaN a =T-Cbul_genblargoNa =T-Cbul_genbanchoNa >T.Cbul_genbalturaNa =T-Cbul_genhapileN a <T,Cbul_genapileNa >T.CbieauxcantxpalNa >T.CbultoscantxpalNa ?T/Cbul_gencantxpalNa =T-Cbieauxult_modTa =T-Cccclieult_modTa =T-Cccventult_modTa ?T/Cven_operult_modTa ?T/Cmovstockult_modTa =T-Cconverult_modTa :T*CconveritemNa <T,CdespachobloqLa oT_CtccventversionNa*repl anticipo with 0, anticipof with 0 all @T0Ccondcobrfac_antiLa <T,CproduccivencDa >T.Cdpresupcod_cueC a =T-CdpresupivaperNa BT2Cferegcom fecha_cpbtDa ?T/CferegcomcomprobC a =T-CferegcomcausaCa ?T/CferegcomimporteN a <T,CferegcomtipoNa =T-CferegcomAprobCa @T0CferegcomServicioCa ?T/CpsolcomaceptadoLa =T-CtcccompdirentLa =T-CAgenteult_modTa >T.Cartxcliult_modTa =T-Ccatcliult_modTa >T.Ccfg_lisult_modTa =T-Ccliauxult_modTa ?T/Ccliotrosult_modTa ?T/Ccondcobrult_modTa >T.Cenvasesult_modTa =T-Cgruposult_modTa =T-Clineasult_modTa =T-Cmarcasult_modTa >T.Cmedidasult_modTa ?T/Csprgrupoult_modTa ?T/Csucursalult_modTa <T,Czonasult_modTa >T.CArtxproult_modTa =T-CCatproult_modTa >T.CCatpro2ult_modTa >T.CCatpro3ult_modTa >T.CCentralult_modTa ?T/CCondpagoult_modTa ?T/Cdepositoult_modTa ?T/Cfle_tipoult_modTa =T-Cfletesult_modTa >T.Ciibbretult_modTa ?T/Cmailctasult_modTa >T.Cmotivosult_modTa ;T+Cpro2ult_modTa ?T/Cproveedoult_modTa >T.Csucpropult_modTa =T-Ctextosult_modTa >T.Ccuentasult_modTa ?T/CproveedoechequeNa UTECitm_descolditemNaini_itm_desc_olditem() =T-CventasversionNa <T,CmotivoslistaNa ?T/Cacuerdosult_modTa >T.Carmadorult_modTa ?T/Cccformulult_modTa ?T/Ccos_cpreult_modTa =T-Ccostosult_modTa ?T/Cctasbancult_modTa ?T/Ccuexmotiult_modTa ?T/Cform_Result_modTa ?T/Cformulasult_modTa @T0C historialult_modTa <T,Cidx01ult_modTa <T,Cidx03ult_modTa <T,Cidx04ult_modTa >T.Cinvmoddult_modTa >T.Cinvmodeult_modTa =T-Cmotinvult_modTa >T.Cmotivosult_modTa =T-Cnumrecult_modTa ?T/Coperarioult_modTa ?T/Cprot_espult_modTa >T.Crec_talult_modTa ?T/Crubrofacult_modTa ;T+Ctarjult_modTa ?T/Ctarjreglult_modTa ?T/Cunidadesult_modTa >T.CtempcompdmarcaCa ?T/Ctempcompcodalt1Ca >T.CtempcompmodeloCa AT1Cin_falta cant_pednNa ?T/Ctccventest_pickNa =T-CtempcompidcodCa >T.CcliauxdescrvarLa ?T/CepresupdescrvarLa ?T/Ccatcli ped_subirNa ?T/Cmarcas ped_subirNa ?T/Ccliotroscta_cobC a :T*CpsolcomobsMa ?T/Cclientesesp_obsNa >T.Ctccventesp_obsNa =T-Cccventesp_obsNa STCCcccompfac_com2Caini_cccomp_fac_com2() =T-CversionlatidoTa ;T+CtcccomptolcNa ;T+CtcccomptolpNa =T-CSTKXDSPCodigoCa AT1Cversion EstGeneralTa @T0Casm_formnoaddcueLa =T-Cversionlc_estNa =T-Cversionlc_valTa =T-Cversionlc_tlkC<a >T.CpickingsarmadoN a @T0Ctccvent prioridadNa @T0Cepresup prioridadNa ?T/Cimp_SetsVal_PreCxa ?T/Cimp_SetsVal_PosCxa BT2Cimp_Sets Descr_AutoCxa AT1Cmailctas usa_gmailNa =T-CmailctasTokenCa AT1Cmailcola usa_gmailNa =T-CmailcolaTokenCa ;T+Clocksestadona ;T+ClocksSesionC a ^TNCcondpagovaloresNarepl valores with -1 all >T.CpickingslibentNa >T.Ccuentasref_extCa <T,CtccventitemsNa >T.Ctccventper_entNa >T.Ctccventper_facNa ?T/Ctccventest_pickNa ?T/Ctccventper_pickNa ?T/Ctccventbru_pickNa ?T/Ctccventnet_pickNa =T-CtccventlibentNa >T.Ctventaspck_canNa 9T)Cnumfacpv5Na 8T(CccventpvNa BT2Ctempcomp transfitemNa =T-CcomprasrefitmNa >T.CtempcomprefitmNa <T,CconverrefitmNa bTRCcliotros doldivisaNarepl doldivisa with 1 all cTSCcliotros ndxdifcbioNarepl ndxdifcbio with 1 all >T.CcliauxbolsonesNa >T.Cepresupcod_cenCa >T.Cdpresupcod_cenCa =T-Ccliauxfc_rechLa >T.Ccons hayper_ivaLa [TKCbienesrg5329Carepl rg5329 with "N" all ]TMCclientesrg5329Carepl rg5329 with "N" all >T.Ctempcomprg5329Ca <T,Cventasrg5329Ca =T-Ctventasrg5329Ca =T-Cdpresuprg5329Ca >T.Ctccventprg5329Na =T-Ctccventrg5329Ca =T-Cccventprg5329Na <T,Cccventrg5329Ca >T.Cepresupprg5329Na =T-Cepresuprg5329Ca ;T+CccprovcuotaNa 9T)CccprovcuoNa @T0Ccliotrosfcc_tipoNa =T-CnumfacsucpropN a =T-CsucpropciudadC(a >T.Csucpropcod_zipCa ?T/Cmotivossolo_impLa >T.CtempcompdlineaC(a >T.CtempcompdgrupoC(a ;T+Cccventdesc1N a <T,Ctccventdesc1N a >T.Cimp_struNombreCda ?T/CiibbretalicuotaNa ?T/CclientestolvencNa @T0CclientescueordenNa ?T/CtccventcueordenNa >T.CccventcueordenNa @T0Cclientestipo_negCa =T-Cversionlc_tlkCxa :T*CconvernetoNa ?T/Cconver descuentoNa ?T/Cbienes provinciaNa @T0Citm_descdespachoCa @T0Cdespachoprop_codNa =T-CdespachoPropsMa =T-CdespachoDescrC<a @T0CdespachoEstandarNa ?T/CtventasdespachoCa >T.C propiedadesbulCa >T.C propiedadesatrCa @T0C propiedadesARBOLCda AT1C propiedadesnombreC2a CT3C propiedadesetiquetaNa @T0CempresasfantasiaC(a cTSCcliotros fcderetipoNarepl fcderetipo with 1 all AT1Ctccvent plataformaC a >T.Civa_venrg5329bNa =T-Civa_venrg5329Na AT1Civa_ven rg5329b_moNa @T0Civa_ven rg5329_moNa ?T/Csucursalcod_cenCa ET5Cplataformas_auxestadoCa IT9Cplataformas_aux est_envioTCa ?T/Cconver2id_ext_cCa OT?Cconver2fechaDaini_conver2_fecha() =T-CrubrofacabrevCa OT?CbieauxfactivDaini_bieaux_factiv() STCCcliotrosfactivDaini_cliotros_factiv() WTGCcliotrosrevisadoNaini_cliotros_revisado() <T,CcliotrosbajaDa ;T+CcliauxncrefC a ;T+CcliauxnccauCa YTICbieauxad_licNarepl ad_lic with 1 all <T,Cbieauxad_notMa ?T/Cbieaux descramplMa STCCbieauxrevisadoNaini_bieaux_revisado() <T,CbienesestvenN a >T.CtempcompestvenN a ?T/CtempcompdiscontNa ?T/CtempcompvigenteNa >T.CventasdsubitemNa ]TMCtcccompper_facNarepl per_fac with -1 all ]TMCtcccompper_entNarepl per_ent with -1 all @T0Ccashdatafac_com2Ca GT7Cplataformas_auxnicknameCa CT3C tareas_estadoNombreC<a <T,ClocalcfgCpbtNa ?T/Cccvent sucpropiaNa @T0Ccliotrosnota_expMa @T0Ccliotrosnota_cobMa @T0Ccliotrosnota_preMa =T-CtempcomppopupNa @T0CtempcomprevisadoNa =T-Ccfg_lisbonlisNa =T-ClisprecbonlisNa ?T/CpromailmailtipoCa ?T/CclimailmailtipoCa ?T/C tareas_estadoIDC<a >T.CimportacestimpNa ?T/CimportacsirareqCa @T0CimportacsirafpreDa @T0CimportacsirafautDa ?T/CimportacsiraimpNa =T-CempresascolorN a @T0CclientesdelgrupoNa >T.CnumfactextoimpCa >T.Cbieauxsga_pictC(a =T-Cbieauxsga_msgC(a IT9Cplataformas_aux logistic_tCa @T0Ctempcompcant_pedNa AT1Ctempcomp descramplMa ;T+Ccom_operdtoCa ;T+Cven_operdtoCa ;T+Cccpagid_extC a ;T+CtempcomptxtMa @T0Ctempcompprec_ivaNa @T0Ctempcomptota_ivaNa tTdCcfg_lisdivisasCa/repl divisas with iif(val(moneda=0,"N","S") all >T.Ctempcompad_licNa @T0CtempcompprecdescNa >T.Cbienesdesc_artNa <T,Cbienescta_lpC a @T0Cbienes cfg_ventasN a =T-CbienescuexartCa AT1Csucprop cfg_ventasN a AT1Ctempcomp valormontCa @T0C prop_predetgrupoNa @T0C propiedadesgrupoNa AT1C propiedadesobligaNa CT3C propiedadesimprimirNa @T0C propiedadesordenNa AT1C co_er_datoscentroCa >T.CtempcompmarkupNa ?T/Cclientesdes_artNa `TPCcfg_liscfg_descCarepl cfg_desc with "N" all =T-Ccliauxref_movN a :T*Cconver2refC a :T*Cconver2cauCa @T0Cartxcli descr_adiCPa ]TMCcliotrosdivisasNarepl divisas with 1 all FT6Cplataformas_auxchannelCa @T0Csucprop domicilioC<a @T0Csucprop provinciaCa <T,CsucpropphonoC2a <T,CsucpropemailC<a <T,C ereclamosoldCa @T0Ccliotrosnota_gesMa ?T/Ccliotrosno_reclCa ?T/Cccvent sucpropiaNa ?T/Ctcccompquincenada =T-Cbieauxsga_msgMa >T.Cbieauxsga_pictMa FT6Csysmsg ID_SucesoCda HT8Csysmsgue ID_SucesoCda HT8Csysmsgua ID_SucesoCda HT8Csysmsgus ID_SucesoCda 9T)CclimailwsCa ?T/CcierresconceptoC2a (%[nT^CcierresusrCCZNarepl usrCCZ with -1 all qTaCcierresfechaCCZDarepl fechaCCZ with {} all qTaCcierresdesdeCCZNarepl desdeCCZ with -1 all qTaCcierreshastaCCZNarepl hastaCCZ with -1 all >T.Ctccventtipo_ncNa =T-CcliauxreftipoNa ?T/Ccliaux refestadoNa <T,CcliauxsinstkLa =T-Ccliauxsin_aplLa >T.Cmotivosreq_autLa @T0Ctcccomp varfiscalNa ?T/Ccccomp varfiscalNa <T,CtempcomplastLa =T-Ctcccompap_cadNa =T-Ctcccompap_estNa =T-Cesolcomap_cadNa =T-Cesolcomap_estNa 8T(CcliauxIBCa 9T)CcliauxCOTCa STCCccventsolo_impLaini_ccvent_solo_imp() @T0Cccvent porcentajeLa AT1Cmotivos porcentajeLa BT2Citm_desc porcentajeNa BT2Ctempcomp porcentajeNa AT1Cdeposito provinciaCa aTQCcliotros fz_notgenNarepl fz_notgen with 2 all <T,CdaprobrangodNa <T,CdaprobrangohNa =T-CoaprobimporteNa <T,CoaprobestadoNa ]TMCtcccompap_usr1Narepl ap_usr1 with -1 all ]TMCtcccompap_usr2Narepl ap_usr1 with -1 all ]TMCtcccompap_usr3Narepl ap_usr1 with -1 all ]TMCtcccompap_usr4Narepl ap_usr1 with -1 all ]TMCtcccompap_usr5Narepl ap_usr1 with -1 all =T-CstockcantidadNa ?T/CstkxdepcantidadNa ;T+Cco_functipoNa =T-CusuariosemailC<a @T0CusuariostelefonoCa <T,CoaprobmonedaNa <T,CoaprobcambioNa >T.CoaprobimporteeNa >T.CoaprobimporteeNa 8T(Coaprobn1Na 8T(Coaprobn2Na 8T(Coaprobn3Na 8T(Coaprobn4Na 8T(Coaprobn5Na @T0CproduccinotaprodMa cTSCdeposito pkcentralCarepl pkcentral with "N" all bTRCcentral pkcentralCarepl pkcentral with "N" all =T-CcuentascentroCa <T,Ccccompap_cadNa <T,Ccccompap_estNa \TLCcccompap_usr1Narepl ap_usr1 with -1 all \TLCcccompap_usr2Narepl ap_usr2 with -1 all \TLCcccompap_usr3Narepl ap_usr3 with -1 all \TLCcccompap_usr4Narepl ap_usr4 with -1 all \TLCcccompap_usr5Narepl ap_usr5 with -1 all =T-Ccccompaut_usrNa @T0Ccccomp autorizadaNa <T,Ccccompid_extC a >T.CeaprobcompletaCa =T-Cccventredo_meN a >T.Ceaprobnot_tipoNa >T.Ceaprobnot_mailCa ?T/Cbieaux lotvtoadvNa AT1Ctempcomp lotvtoadvLa =T-Ccashcfgoc_autLa >T.Cpro2 trftitularCda ;T+Cpro2trfcuitC a >T.Cpro2 trftipoctaNa :T*Cpro2trfctaCa =T-Cpro2 trfpropiaNa >T.Cpro2 trfpersonaNa ;T+Cpro2trfconcCa 9T)CcccompcyoLa >T.CagenteinformesNa KT;Cplataformas_config pkcentralCa GT7Cplataformas_configverifNa IT9Cplataformas_configcreditoNa JT:Cplataformas_configarm_bloqLa JT:Cplataformas_configest_despNa >T.Ceaprobnot_otroCa ;T+CcostosordenN a ;T+CcostosdescrC<a ?T/Ccostos domicilioC<a <T,CcostosciudadC(a =T-Ccostoscod_zipCa ?T/Ccostos provinciaCa <T,Cmotinvap_cadNa ]TMCconver2ap_usr1Narepl ap_usr1 with -1 all ]TMCconver2ap_usr2Narepl ap_usr2 with -1 all ]TMCconver2ap_usr3Narepl ap_usr3 with -1 all ]TMCconver2ap_usr4Narepl ap_usr4 with -1 all ]TMCconver2ap_usr5Narepl ap_usr5 with -1 all >T.Cconver2aut_usrNa `TPCconver2 autorizadaNarepl aut_usr with 1 all <T,CcliauxenthorC(a <T,CcliauxfcehorC(a ?T/Cventasdplat_regCda =T-CventasdestadoNa >T.Cesolcomcod_cenCa YTICesolcomusr1Narepl usr1 with usr all =T-Cccventarm_exhNa ;T+CccarmadoexhNa ?T/Cbienes prec_vencNa @T0Cbieaux esensambleNa BT2Cccformul esensambleNa ?T/Censambledes_insNa AT1Casm_mast subcentroN a ?T/Cbienes subcentroN a ?T/Cccvent subcentroN a @T0Ccompras subcentroN a @T0Cdpresup subcentroN a AT1Cimportac subcentroN a AT1Cimp_tran subcentroN a AT1Ctcompras subcentroN a AT1Ctempcomp subcentroN a @T0Ctventas subcentroN a ?T/Cventas subcentroN a AT1Ctccvent ncndmotivoMa [TKCtcccompusrsolNarepl usrsol with -1 all ]TMCcliotrosretclicarepl retcli with "N" all %]{TC BUXRES XNEWHISTORICOXNEWPREHISTORICOOCOLLZOESTADO SET_AND_SHOWVLD_CAMPO_BUFFEROLOTDATA_CODIGO_LARGOPLAN_NUVCHECKONUV OLOCALIZACION ADUANA_CUITVALIDARparches_version_actual0version_actual>version_empresa_avance_1pversion_empresa_avance_4version_empresa_avance_14version_empresa_avance_15^version_system_avance_1version_system_avance_5&version_system_avance_6T version_system_avance_7\ version_system_avance_8Q version_system_avance_9 version_system_avance_10 version_system_avance_11version_system_avance_12>version_system_avance_13version_system_avance_16Dversion_system_avance_17Uversion_system_avance_21version_system_avance_25tversion_system_avance_26Eversion_system_avance_27 tareas_crearUtablas_existenteseliminar_datosEindices'`permisos vld_cierresvalidar_carpetas uni_usuarios novedades.3q1!ArA"ABAA2q3bA321!Aq21AAA  t33A3AA3AqqA33223A1A3Aq!aA33A3Ara!AAAa!AAAsA3rAaA33#AAA!A!AqA3!ArAA33x aaaa=!qqAqdAqr11A4!QQ"2a:{1ArqQQAqAAAqqAqArqtsQaAAqQqAqqqAqAqAbqAAqAqqqAbqAAAqAqrAaaseBrqqAAaArrqAuAubAAQAAqqAAqaaasAqAaqAq2M4qqqq1qabArqqqqSa1!1!A1rqqtqqQqqqaaqaqq!qqaq"1!BQ"qqq!!qq1bq5q1!1Q1qQQ11a1!QQ!Q!1111A!q11A!11Q1Aqa1Q11a!aq!q1Aa!Qa!qAqq1!A!q1A1A!1A!Q11a1a!QAqA4qQ!A13q2!2qqQ3#qqQ1AQqq11!1!!1SQq!aqAqQABB21qA!QRQqQqAQ!q!!!qb!1 1!!"!qqQa2B!!"a"ABba!!""qR"!" q" q!1!!1!"!rAq11""ABr!"AB"a"!AB!21!"!!!!!!!!!ARQQ"AB!!aa!!!a1"ABA1bq"aAB2"2aQ"!!!A!abC"Q2!#"112R2q1Br1B1bbA3!!1!q!4B1@/!5(j@,jE5- OC] 2 pLb Ydmv}u'X%V;l &? N!#X#&t&&'}++lm3HoADADHTHK^(KxKbK|%#F'*'dV U Ta9TC vld_tablassys_Verificar_Tablas.prgaTaC TC BU XTABLAXLUGARXNODB XREINDEXAR XCOMPACTAROCOLLZXRES LOG_VALIDAR COLL_AGREGARVALIDAR_TABLAS_CARGADAS Ta9TC vld_tablassys_Verificar_Tablas.prgaTaF#)+C+ X T CO-C \C \DiarioG .C \C  \Concepto +C \C \Conc2 +C \C \DiaG2 FH%CejerconFQTC BUXTABLAXLUGAR XREINDEXAR XCOMPACTAROCOLLZXRES LOG_VALIDAREJERCONXRN COLL_AGREGARP_SERVERDIRVALIDAR_TABLAS_CARGADAS TC C%%   $CC 1C!--------------------------------- CC3CUIDADO, hay TRIGGERS que necesitan actualizarse!!! 1C!--------------------------------- >%+   CC 2C"Reindexado y reparacin de tablas: 1C!--------------------------------- % TC%TC %NC  CC3No se pudo abrir en modo exclusivo. No se reindexa!  EC5No se pudo hace el backup automtico. No se reindexa! %  TC%TC %eC  CC3No se pudo abrir en modo exclusivo. No se reparara!  EC5No se pudo hace el backup automtico. No se reparara! % TC%\C RCBNo se pudo abrir en modo exclusivo. No se pudo crear los triggers!  BUOCOLLXRES XREINDEXAR XCOMPACTARXREVISAR_INDICESXREVISAR_INDICES_PROFUNDOVALIDARACTUALIZAR_STORE_PROCEDURETRIGGERS COLECCIONCOUNT LOG_AGREGAR REINDEXARDAADASREINDEXAR_MARCADAS_BACKUPRESERVARREINDEXAR_TABLASDAADAS_MARCADAS_BACKUPREPARAR_TABLASRECREAR_TRIGGERS_TABLAS EQ VLD_TABLASsys_Verificar_Tablas.prg/CRecolectando novedades... Ta%CoCollbO5TC vld_tablassys_Verificar_Tablas.prgT a&TC U XRESOCOLLSYS_VERIFICAR_TABLASPRG XREINDEXAR XCOMPACTARXREVISAR_INDICESXREVISAR_INDICES_PROFUNDOOESTADO SET_AND_SHOW LOG_VALIDARVALIDAR_TABLAS_CARGADAS7CU XNO_INICIAR XDIR_SISTEMA XDIR_TABLASXDIR_TMPXPADRET  .CComprobando tablasV QTABLAsys_clases_tablas.prg Q VLD_TABLAsys_Verificar_Tablas.prg*QTABLASsys_clases_tablas.prg M+CComprobando tablas: &%PLANTILLAS_XLSC f);T C VLD_Tablasys_Verificar_Tablas.prg TC %   T  C % CDaada C % ICTrigger C UXREVISAR_INDICESXREVISAR_INDICES_PROFUNDOXRESXMSGOESTADO SET_AND_SHOWTHIS COLECCIONCOUNTOTABLASYS_CLASES_TABLASPRGOVLDSYS_VERIFICAR_TABLASOTABLASAVANCENOMBRE VERIFICAR_UNO VLD_REINDEXAR REINDEXABLE COMPACTAR VLD_CORRUPTA REINDEXARCOLL_AGREGAR_TABLA VLD_DAADA VLD_INFORMARDAADASVLD_TRIGGER_ERRORTRIGGERSTCTC TC%{TC TC T C BU OVLDXREVISAR_INDICESXREVISAR_INDICES_PROFUNDOXRESTABLAPREPARAR_TABLA PRE_VALIDARVALIDAR POS_VALIDAR POS_ERROR LIMPIAR_TABLA# CUXREVISAR_INDICESXREVISAR_INDICES_PROFUNDOTHIS VERIFICAR H$ CoTablabO!%CfCRec_UPDf T_CCZ TTT T T  T T 2UOTABLAXLUGARXNODB XDBNOMBRENOMBRETHISXTABLAP_CODEMPDIR_IDEN_DBC DBC_NOMBREXPATH DIR_TABLATMPTABLA VALIDADOR(C - U XINFORMAR LOG_AGREGARTHISXTABLA# BCC : CfUTHISXTABLAXCAMPOUUU /     T-CTTTT  % C T GES'% TCTCTCCf!%CTABLE -TCC\C6 1 >T'ON ERROR err_proc(ERROR(), MESSAGE(), '')G+(listadosCCf TCW-TCC\C6 G( &xarcherr "%Cprueba_validacionFQ Q G(TC% : FT C5 (CC 66 G((C  T  ~% T  %  !(2AC - Indice: C  - Indice corruptoTaT a4% C!fREC_UPD C"T#C$ C%(9 T-T&'T()H5  '+YT*aT a%C - Tabla Corrupta 'TC+ 'nW  1  CCf - )1Q'CCf - FIXED: )T,aT-aTa ' CCf - ) 1(H ' 1 2  \Y; 1 \ Q)CFIXED:  - )T,aT-aTa5 ' ' '#  CCf - )1 \Y; 1 \ Q'CCf - FIXED: )T,aT-aTa ')=CCf' - Falta el archivo MEMO o est daado.T.a 25 +1#err_proc(ERROR(), MESSAGE(), xarch)C')/"%Cprueba_validacionk F>C/CC/0(C.7 %CC0/bM3 KT1insert into prueba_validacion (CC0/) values ([BASURA]) &xinsert %CCC0/ΛBASURA/ ON ERROR &onerr G(FQ(%  GESC  g ( T3+a T4C\3%4 T3C34[  !T5C3TablePath h S 1.dbf(6a  %Cxarch FQ \Y; 1.dbf \ ?C.dbf : Se agreg a la base de datos(6d HC.dbf( no se puede agregar a la base de datos.T-Q(%Cprueba_validacion;_ Q T7- 8.dbf( T7a%7[ <C.dbf tiene un codepage invlido.T-QC9 FON ERROR &onerr G(U:XREVISAR_INDICESXREVISAR_INDICES_PROFUNDO XNOTRIGGERSOEXOEX2XARCHERRXARCHXLUGARXNODBNITTAGNTAGC XDBNOMBRE XDBABIERTAXDBERRORTHISVLD_OKTABLA PRE_VALIDARXTABLAXPATH DIR_TABLATMPXDIRODEYFUNCGET_PATHLISTADOS ESTADO_INCAREAPRUEBA_VALIDACIONVALIDAROTAGI LOG_AGREGARVLD_INDICECORRUPTO VLD_REINDEXARNOMBRE PRE_TRIGGERVLD_TRIGGER_ERRORTRIGGERS_VERIFICAR POS_TRIGGERXERRORNOERRORNOXMSGMESSAGE VLD_CORRUPTACREAR VLD_BACKLINK VLD_ARREGLADO VLD_DAADAERR_PROCZXINSERTINXXARCHXXPOSAAAOERROR XERROR_TRY SYS_CPZERO POS_VALIDARvld_tabla_sana,validar_tablas_ejerciciosbValidar_Tablas_cargadasvalidar_tablas_existentes INITa  Verificar  Verificar_UnovalidarINITU VLD_Informarxnovedad_accessX Pos_Validar Pos_Error Pre_Validarvalidar+    U T T T T T T- T- T- T- T - T - T - T - T - T- Ta T T  UXTABLAXLUGARXNODB XDBNOMBREXPATHTABLA VLD_DAADA VLD_CORRUPTA VLD_REINDEXARVLD_TRIGGER_ERROR VLD_TRIGGERSVLD_INDICECORRUPTO VLD_BACKLINK VLD_CREAR VLD_ARREGLADOVLD_OKXMSGXERRORNO vld_tablasTablas:sys_clases_tablas % VLD_TablaCUSTOMS%1q41tQrAAqAA4Q!1A"!BA1AQAAB1AQAAA!ACB2QQAb8q3bAbB1AA!aAA!qAAA3qBA2Q111A2A11J3q22222AsaAAA!"qAAsq!RB1AAAABAABA11qQbqaAqqqAAQqaBA%rRbAAAC2rA11AAArBbqAAqABBAAACBB14 51Q ! 0S p\_ x3$d9][}{:j q:8%)ۢh =P U4,TCControl_de_Seleccion_y_ordenNTPlan_MaqTIDUTOrdenTIDUT SELMAQFIXFoPlan_maq-Q   SELMAQFIX%  C F QUXMAQUINAOSEL TABLA_MADRETABLA_MADRE_IDTABLA_MADRE_ORDENTABLA_MADRE_ORDER TABLA_ALIASISSELPLAN_MAQMAQUINAESTADOORDEN SELMAQFIX ORD_ARREGLAR&4 TH% E T pT Planificada T En Progreso T Sin Operario  TA Surtir TCerrada BUXESTADOXRET7    1 QMAQ_TIEMPOS_CONTROLpr_maquinas.prg#T CMaq_Tiempos_control%CxCombbCT  %  T %CxSetupbN T TTC6T T  T  T TC  TC a%C F UXTOTALXHECHAXCICLOXFPLANEAXFLIMITEXROCUPAXRMAXIMO XRDUR_TOTAL XRDUR_RESTAXMAQUINAXCAVIDADXCOMBXSETUPOUSOCOLL PR_MAQUINASPRGCOMBXRESTAXMINCICLADOMAQ_TIEMPO_ANALIZAPLAN_USO GRABAR_TODOSA 3#pr_planeamiento_por_maquina_tiemposUXOBJMXAUTO#PR_PLANEAMIENTO_POR_MAQUINA_TIEMPOS F%C  HG((Codigo E% C s ^J  ^JT BUXCODIGOXOKMAQUINASCODIGOXOBJ_MAQ 4F%C  E G((IDU E% C p ^J  ^JT BUXIDUXOKPLAN_MAQIDU XOBJ_PLAN 4F%C  E G((IDU E% C p ^J  ^JT BUXIDUXOKPLAN_MADIDU XOBJ_PLAN 4F%C  E G((IDU E% C p ^J  ^JT BUXIDUXOKPLAN_OPEIDU XOBJ_OPER%C"B-F G((IDU E%C4 Y>     U XOBJ_PLANIDUPLAN_MAQMAQUINAORDENCOD_INSBULATR CAN_TOTAL CAN_HECHAOPE_IDUOPE_CODESTADOPLANCICLOINI_PLAN INI_LIMITE DUR_TOTAL DUR_RESTAPRODCAL_INICAL_LIM CAL_ERROREVA_INIEVA_FINULT_INIFORMULAPLA_ESTDEPBAJADEPING CAVIDADESSETUP %C"B-F G((IDU E%C4 Y>     U XOBJ_PLANDIDUPLAN_MADPLANCOD_INSBULATRFORMULACANTIDADESTADOPRODHECHADEPBAJADEPINGCANTXBULi4%C"B-F G((IDU E%C4 Y _JU XOBJ_OPERIDUPLAN_OPE*T<%CoUsoCollbOi#TCMaq_Tiempos_Control%BC%C BFG((MAQINIGF ECZCGF%   I H% E B T CO T  C  Ta+a T TTC %TC C TC C H, T  QTC T C C .  T    T  T T-%C MC< T  T< B %CC < TC T C  +% C CC HC %!T< B UXFFECHA XRDUR_RESTA2XMAQUINAXINVERSOOUSOCOLL XRDUR_RESTAMAQ_TIEMPO_ANALIZA_INVPLAN_DIAMAQINIFEC_INIMAQUINAXDIXFFXTURAMAQ_TIEMPO_FIL_TURAXINICIALXFINIXSINIXDOWMAQ_TIEMPO_DOWMAQ_TIEMPO_FEC_TIM_MIXXFFIN AGREGAR_USOMAQ_TIEMPO_DOW_NEXT.4TTTT$TCTTTT$TCT T T T $T CT TTC TCUXTURASEM_INISEM_TURSEM_LABSEM_NOLSAB_INISAB_TURSAB_LABSAB_NOLDOM_INIDOM_TURDOM_LABDOM_NOLFEC_INIFEC_FINMAQ_TIEMPO_DOWH CC)= B C)^ B C) BUXFECHA[ TCTCTCBCUXFFXTURAXFF2XDOW2MAQ_TIEMPO_DOWXFF3MAQ_TIEMPO_FEC_TIM_MIX[ TCTCTCBCUXFFXTURAXFF2XDOW2MAQ_TIEMPO_DOWXFF3MAQ_TIEMPO_FEC_TIM_MIX8 *BCCiCHC%CCCUXFECXTIM, G((IDU E TG((MAQINI T T H%C %> H%C+ T T H%% >U XIDUIDUXMAQUINAMAQUINAMAQINIXFECINIFEC_INIXFECFINFEC_FIN %CxOrdenbL4 TFG((MAQORDGF EC ZCZGF5 5    T)+CPlan_Maq+ FHP C  T C 9 T 2P TC% zTTT T TT CPlan_MaqOoCC 6C 6F%CO f #  > > > > T F~ ! T  T T  T  TTCPlan_MadO{CC "6C #6    !F%CO # > > > >HU$XMAQUINAXORDENPLAN_MAQMAQORDXROCUPAXRMAXIMO XRDUR_TOTAL XRDUR_RESTAXRINICIOXRC XROCUPA_D XRINICIO_D XRMAXIMO_D XRDUR_TOTAL_D XRDUR_RESTA_DXRC_DMAQUINAULT_INIINI_PLANMAQ_ANALIZA_CICLOESTADO CAN_TOTAL CAN_HECHACICLO INI_LIMITE CAVIDADESSETUPCAL_INICAL_LIM DUR_TOTAL DUR_RESTAPLAN_MADPLANIDUCANTIDADHECHAT<%C I BFG((MAQINIGF ECZCGF%C H% B% H T CO T  C T a+aT TTC % TC C TC C Hq  T   MT  QTC T C C .  qT  T -%C T  T< B TC T C  ,% C CPlan_Dia kF H%YHC %!T< B UXFFECHA XRDUR_RESTA2XMAQUINAXINVERSO XRDUR_RESTAPLAN_DIAMAQINIMAQUINAFEC_INIXDIXFFXTURAMAQ_TIEMPO_FIL_TURAXINICIALXFINIXSINIXDOWMAQ_TIEMPO_DOWMAQ_TIEMPO_FEC_TIM_MIXXFFINMAQ_TIEMPO_DOW_PREVT 4#    T CC - %CxOrdenbL T TaFG((MAQORD%GF EC ZCZGFT%C+ H GF EC ZCZGF%fT } T &+CPlan_Maq+ M T T-%   T HW # T' CC   W T% %C  T Ta T TCC6TCPlan_MaqO2TCC 6- F #%C b T > > > T F~: T  TCPlan_MadO4T C C 6- F # > > FHUXMAQUINAXORDENXSINCNOWXOCUPADAXINICALXERROR XSUPERPUESTAXINIPLANXINIREALXDTR XOCUPADA_D XINIPLAN_D XINIREAL_DMAQ_TIEMPO_ANALIZAPLAN_MAQMAQORDEVA_FINESTADOULT_INIMAQUINAINI_PLANXRN DUR_RESTA INI_LIMITE CAL_ERROREVA_INIPLAN_MADPLANIDUXRC_DF G((plan E%>B-CF)+CPlan_Mad+  CHU XPLAN_IDUPLAN_MADPLANESTADOMAQ_COMPROMISOS_ELIMINAR#MAQ_COMPROMISOS_GUARDAR_COMBINACIONIDUFORMULACANTIDADFG((formula EFG((formula E Ta T T ~$+C+   T C  T T  ;C - T FBUXIDUXFORMULA XCANTIDAD XPLAN_IDUCCFORMULFORMULAFORMULASFIRSTNEWTRFXITXCANTCANTIDADXXCANTMAQ_COMPROMETERCODCOMPBULCOMPATRCOMPTIPO_APLADICUNIDCOMPO+4  T F %G((claveE T C4  T a% ]>  ?> T  B UXIDXCODXBULXATRXCANXAPLXACUXADIXUNI XPLAN_IDUXENCXCANTCOMPPLANCLAVEPLANIDCODBULATRAPLADIUNICANTIDAD)F CU XPLAN_IDUCOMPPLAN UNLOCK_ALLFORPLAN C Suspendo?aF G((IDU E%C4 -C Error al borrar la planificacinB-%&F~ "  a% >CError al anular la produccin CC Z !!!F T F TCFC0C#El planeamiento ha sido borrado !!!BaUXIDUXMAQUINAXOKANNSYS_MOSTRAR_SCREENPLAN_MAQIDUMENSAJEESTADOPLAN_MADPLAN PR_ANULARPRODMAQUINAFORXOKMAQ_COMPROMISOS_ELIMINARMAQ_TIEMPO_MAQUINA_ANALIZARG+( Pr_FuncionesG+(Dey_Func 5    TC T TMP_GenericosT C T  TMP_FormulaT C T  TMP_REEGE%CxFec_InibTTCF G((IDU E TF G((plan EF)+CPlan_Mad+  ^F T T T T T T T T! T"T#C]T$%& T'T()T*+ T,- T-- T. T/ T0 T1 T2T T34 TCO TCC5&C6C73C 8 T9a F  ~B F T9C;<=aa: F %9 >~C El artculo ;-<-= esta mal definido!!! C?(C Es reemplazo de @AB6> B TCT9CD T9C!%CXOKbL9  B$%CXOKbN9  BF%C G((%CO #>E"FHT  TMP_Formula F %TC T TMP_GenericosT C T  TMP_FormulaT C T  TMP_REEGEF T TT T T T T! T"T#C]T$%& T'T()T*+ T,- T-- T. T/ T2T34C5&C6C71C 8 TCT9CD T9C%9 B T" BUH XPLAN_IDUXPRODXFEC_INI PR_FUNCIONESDEY_FUNCXRN XOLDORDER XGEN_PATH XGEN_ALIAS XFORM_PATH XFORM_ALIAS XREE_PATH XREE_ALIASODEYFUNCNEWFILE_LOCAL_TMPPLAN_MAQIDUXCANTT CAN_TOTALPLAN_MADPLANXMAD_IDUXFECHAXCODIGOCOD_INSXBULBULXATRATRXFORMULAFORMULA XCANTIDADCANTIDAD XCANTIDADAXNUMPRODXIDXLOTEOLOTDATA_CODIGO_VACIOXDESCR XDEPOSITODEPBAJAXDEPINGDEPINGXBUL_LXATR_LXDESCARTXCODINSXSEMIXSEMIOP XRAPIDO_ID XOPA_MAQUINAMAQUINAPR_GEN_CREATE_TABLEPR_GEN_FILL_GENPR_GEN_OBTENERPR_GEN_FORMULA_REEMPLAZADAXOKPR_COMB_ES_VALIDA2CODCOMPBULCOMPATRCOMPMENSAJEGENERICOGEN_CODGEN_BULGEN_ATRXTMPMAQ_XNUMPROD PR_ORDENESPRODESTADOALLe  T T Ttrsacstockstkxdepstkxdspproduccimovstockprod_genplan_genplan_maqplan_madcompprodcompplancomppaux% T B T T Ttrsac BU XTRAN_PRG XTRAN_TXTXERRORXOKAAALOCK_GTRSACBEG_TRANTRAN_PRGTRAN_TXT\ C C Ttrsac T U XAAA XTRAN_PRG XTRAN_TXT MENSAJE_CLEAR UNLOCK_ALLAAAEND_TRANTRSACTRAN_PRGTRAN_TXTTTS_ID G+(Dey_FuncG+( Pr_Funciones%CxPathbC_TC%CxAliasbCTTMP_MAQ_CIERRECT Fh1 C< C C N N N N LN TTC C CCNNCN LCC C!N "N #N $C& %& && Q BU'XPATHXALIASDEY_FUNC PR_FUNCIONESODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOPRO_DESPRO_BULPRO_ATRPRO_FORPRO_RESPRO_OPPRO_HECPRO_PARPRO_PEPRO_INIPRO_FINPRO_REMPRO_LOTCOM_IDUPLA_IDUPLA_ESTPRO_ESTPRO_CODCAL_CAN PRO_PAR_PPRO_DEPPRO_DEIPRO_CENPRO_BADCON_INICON_FINOPE_IDUID_FULLCOMBINAQ G+( Pr_FuncionesF G((IDUFG-( G((IDU E%C4 uB-FG((Codigo E T  F%   3C FG((ID_FullECX%C4 > CCC6 CCC  ZCCCC$iZR  !S" !S#$%&#$' F( G((IDU E),+CPlan_Mad+ () .%( H(.C( FG((ID_FullE(%C4 )>*(+,(-((.(/( CCC6 0(CCC(  ZCCCC$iZR  !S" !S%&#$' H(FG-( F#)U1XPLA_IDUXALIAS PR_FUNCIONESPLAN_OPEIDUPLAN_MAQOPE_IDUMAQUINASCODIGOMAQUINAXCENTROCENTRALPRODPLA_ESTPR_GET_FORMULAFORMULAID_FULLPRO_CODCOD_INSPRO_FORPRO_RES CAN_TOTAL CAN_HECHAPRO_OPPRO_INIFEC_INIPRO_FINFEC_FINPLA_IDUESTADOPRO_LOT PRO_PAR_PCCFORMUL CIE_PARCIAPRO_PARPRO_DEPDEPBAJAPRO_DEIDEPINGPRO_CENPLAN_MADCOMB_IDUPRO_BULBULPRO_ATRATRCANTIDADHECHACOM_IDU G+(Dey_FuncG+( Pr_Funciones%CxPathbC_TC%CxAliasbCT TMP_CIE_PREVCT Fh1 C C C CC<NNCC& Q BUXPATHXALIASDEY_FUNC PR_FUNCIONESODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOCON_OKCON_CODCON_BULCON_ATRCON_DESCON_CANCON_DEVCOM_IDUPLA_IDUID_FULL G+(Dey_FuncG+( Pr_Funciones%CxPathbC_TC%CxAliasbCT TMP_CIE_ADICT Fh1 C C C CC<NNCC& Q BUXPATHXALIASDEY_FUNC PR_FUNCIONESODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOCON_OKCON_CODCON_BULCON_ATRCON_DESCON_CANCON_DEVCOM_IDUPLA_IDUID_FULLn G+(Dey_FuncG+( Pr_Funciones%CxPathbC_TC%CxAliasbCT TMP_StopsCT Fgh1 N C< N CCC& & Q BUXPATHXALIASDEY_FUNC PR_FUNCIONESODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOSTOP_CODSTOP_DESSTOP_MINOPE_IDUCOM_IDUPLA_IDUID_FULLDG+( Pr_FuncionesG+( Pr_OrdenesG+(Dey_Fill FG((ID_Full F G((PROD E TTTC] TT%<8C+Cierre de envasamientos aun no soportado!!! I%C% ~ T >TCSCDCF65TC-C NNS6 E T/CError al obtener la frmula CZ%=F!G((claveG EG ~$+C+  F#%!#A $S ;T! FS>%S&!'(!)*!+,  F! F-(>  #)CCon_DesCon_cod NO_CAMBIARCon_Bul NO_CAMBIARCon_Atr NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR.U/XPROD XCANTIDADXDEF XPRE_ALIAS XADI_ALIAS XPLAN_IDU XCOMB_IDU PR_FUNCIONES PR_ORDENESDEY_FILLID_FULLFORPLA_IDUCOM_IDUPRODUCCIPRODXNUMPRODXOLDIDIDXIDXOKXFORMULAFORMULAMULTIPLEMENSAJEPR_GET_FORMULA P_PR_CIE_TEOXCANTCANTIDADREAL TEST_ARTICULOCCFORMULSTKCOMPPRODCLAVEAPLADICON_OKCON_CODCODCON_BULBULCON_ATRATRCON_CANZ FILL_BIE_FULLzoQQSQQQ  Q  Q Q   % F UXALIASXTIPOXPLA_IDUXCOM_IDUTIPOKCON_CODCODCON_BULBULCON_ATRATRCON_CANCANCON_DEVDESVIOPRPLA_IDUCOM_IDUXTMPARRBORRAR34 TaTC% l-C No se encuentra la planificacinB-%-C Esta produccin ya esta iniciadaB-TC%CCNo se pudo abrirB-T  T T T   Pr_OrdenesTpr_maquinas.prgTpr_maquinas.prgTC%&CTransaccin cancelada !!!B-TC %TT TF% G((IDU E%C4 CNo se pudo abrirB- _JF _JC TC6CUXIDUXOK XOBJ_PLANMAQ_GET_OBJ_PLANMENSAJEESTADO XOBJ_OPERMAQ_OPER_CAMBIOSIDUOPE_CODOPE_IDUXPROD OPEN_FILES PR_ORDENES XTRAN_PRG XTRAN_TXT PR_BEGTRANMAQ_PLAN_CREAR_OPFEC_INIULT_INIPRODPLA_ESTPLAN_MAQPLAN_OPEMAQ_COMPROMISOS_ELIMINARXAAA PR_ENDTRANt 4G+( Pr_FuncionesG+(Dey_Fill TaTC$%   AC4No se puede cerrar la produccin en el estado actualB-TC $%   ;<C/No se puede cerrar el turno en el estado actualB-T CT C T TMP_CierreC TC T TMP_Cie_PrevCTC T TMP_Cie_AdiCTC !TTMP_Form_ReemplazadaCTC T TMP_StopsC F ~8 F T T ! T"# T$% T&' >(&C$)&C&S "* FCPro_DesPro_cod NO_CAMBIARPro_Bul NO_CAMBIARPro_Atr NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR NO_CAMBIAR+ F#) T,a:"pr_planeamiento_por_maquina_cierre(,%,W T hB- F+C+ m F ^J.F/ G((PROD E.T1.T2.3T4.5T6.7 T8C.9NS6T:.;T<.=T>.?T@C.ATBC.ATCC.A%TDCC.EC$ C.E6TFC.ETGC.E THD TITJ.KTL.MTN.OTP.Q TR- TSTT.TTU.U%%.!.# C.# TVVJ!TWC.9 6 FX G((IDU E.#>YYJ>C.9 6%ZI[ Pr_Cierre_old g[ Pr_CierreC.!.#^C.!.#^ T_ T` Ta T%Zb pr_cierre_old %Z=c Pr_Cierre_old [c Pr_Cierre FH'TdC0 W a6FX G((plan E!+C+ Xe Tdd X  HT CfTVVVTCd 6CgCihUjXIDU PR_FUNCIONESDEY_FILLXOK XOBJ_PLANMAQ_GET_OBJ_PLANESTADOMENSAJE XOBJ_OPERMAQ_GET_OBJ_OPEROPE_IDUFEC_FIN XCIE_PATHODEYFUNCNEWFILE_LOCAL_TMP XCIE_ALIASPR_MAQ_CREATE_TABLA_CIERRE XPRE_PATH XPRE_ALIAS#PR_MAQ_CREATE_TABLA_CIERRE_PREVISTO XADI_PATH XADI_ALIAS$PR_MAQ_CREATE_TABLA_CIERRE_ADICIONAL XFORM_PATH XFORM_ALIASPR_MAQ_FILL_CERRARIDU XSTOP_PATH XSTOP_ALIASPR_MAQ_CREATE_TABLA_STOPSXPRODPRO_OP XPLAN_IDUPLA_IDU XCOMB_IDUCOM_IDUXFORMULAPRO_FORXPRO_RESPRO_RESCAL_CANPR_GEN_FORMULA_USADAPR_MAQ_FILL_CONSUMOS FILL_BIE_FULLXRES"PR_PLANEAMIENTO_POR_MAQUINA_CIERREXOBJPRODUCCIPRODXNUMPRODXCODIGOPRO_CODXBULPRO_BULXATRPRO_ATRXDEFPRO_PARXLOTEPRO_LOTXPECIEPRO_PEXREMITOPRO_REMXCOMFPRO_INIXCOMHXCOMMXFINFPRO_FINXFINHXFINMXFECHA XRAPIDO_ID XCANTIDADPRO_HEC XDEPOSITOPRO_DEPXDEPINGPRO_DEIXMALASPRO_BAD XTABLACREADAXSEMICON_INICON_FIN CAN_HECHAPLA_ESTPLAN_MADHECHAP_PR_CIERRE_VERSION CREAR_BORRAR PR_CIERRE_OLD PR_CIERREPR_MAQ_CIE_LLENAR_BORRAR XACC_INGRESOS XACC_CONSUMOSXERROR PRE_MERMA WRITE_DATA XTODO_CERRADOPLANMAQ_UPD_OBJ_OPERMAQ_UPD_OBJ_PLAN MAQ_ORDEN_FIXMAQUINA4 TaTC% TTCCX BTCCX%CXB-CT  T T C U XIDUXOK XOBJ_PLANMAQ_GET_OBJ_PLAN XOBJ_OPERMAQ_GET_OBJ_OPERMAQ_OPER_CAMBIOSIDUMAQ_UPD_OBJ_OPEROPE_CODOPE_IDUESTADOMAQ_UPD_OBJ_PLAN4 %hTC % d B TCCX %C xObj_PlanbOTC  % BCCXyoPlan_madXatributoQ     Hu H%FG((codins ET  TTC 8oPlan_mad % aTCTC]T TTT  T!!T %C xObj_Oper2bOT"# 4T"CT!    T$%$T#C &' T&- T'-C&'(% < pr_planeamiento_por_maquina_oper(*'%* CTCX H^ LrPlan_OPD!o'Q++!C]+, T T$$$ T- T.T/T0HC%$ 23/0-.41T5-T6.(TC6C7 BU8XABM XOPER_IDU XOBJ_PLANXSILENT XOBJ_PLAND XOPER_IDU2XSETUP XOBJ_OPERMAQ_GET_OBJ_OPERXOKMAQ_GET_OBJ_PLANPLAN_IDUCATRDESCRPLAN_MADIDUATRIBUTOCOD_INSCLAVEATRPLANESTADOORDEN TMPCOMBIDUDBIENESCODINSSETUP XOBJ_OPER2OPE_IDU TMPCOMBIDUCOMB_IDUMAQUINACICLOOPE_CODFEC_INIFEC_FIN CAN_HECHA CAN_TOTALXPATH_OPE_LIBRESXALIAS_OPE_LIBRESMAQ_OPE_LIBRES_CREAR PR_PLANEAMIENTO_POR_MAQUINA_OPERXRESULTAOPLSEL XRDUR_TOTAL XRDUR_RESTAXROCUPAXRMAXIMOMAQ_ANALIZA_CICLOINI_PLAN INI_LIMITE CAVIDADES DUR_TOTAL DUR_RESTAMAQ_UPD_OBJ_PLAN1%CxMaquinabLF T%CxMaquinabN% T TCCZCWr  ooperario   a C CUXPATHXALIAS XENCARGADOXMAQUINAXPLANXINICIOPR_MAQ_CREATE_TABLA_OPER_LIBRESOPE_DESOPE_CODOPE_IDULIBREDESCRCODIGOIDUOPERARIOMAQ_OPE_VALIDA_MAQUINAMAQUINASMAQ_OPE_LIBRES_EVALUAR| %C.Ba C,TC BU XPOSIBLESXMAQUINAXRETXARRAYODEYFUNCSPLIT_TO_ARRAYpa %C xEncargadobNap-pSpNo UXALIAS XENCARGADOXPLANXINICIOLIBREOPE_CODLIB_DESN G+( Pr_Funciones%CxPathbCMTC%CxAliasbCTTMP_MAQ_OPELIBCYh1LCC N  C  L& & & QOpeDes BUXPATHXALIAS PR_FUNCIONESODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLESELOPE_DESLIB_DESOPE_CODOPE_IDULIBREOPEIDUSELIDUOPEDES F - T C $CEEEE C-CCINSERT INTO &xTMPForm_Res_Alias (formula, cod_ins,bul,atr, cantidad, tipo, IDU) SELECT xFormula, cod_ins, bul,atr, cantidad,1,SYS(2015) FROM tmp_resfinal WHERE ID=xID_Nuv K(SELECT &xForm_Alias INSERT INTO &xForm_Alias (formula, codcomp,bulcomp,atrcomp, cantidad, tipo_apl, unidcomp, adic) SELECT xFormula, cod_ins, bul,atr, cantxbul, "A",1,"N" FROM tmp_resconsumos WHERE ID=xID_Nuv AND cantxbul>0 UXID_NUV XFORM_PATH XFORM_ALIAS XGEN_PATH XGEN_ALIASXTMPFORM_RES_ALIASXTMPFORM_RES_PATHXFORMULAXCANTSPLAN_NUVIDFORMULAPR_GEN_CREATE_TABLEPR_GEN_FILL_GENPR_GEN_OBTENERPR_GEN_FORMULA_REEMPLAZADACREAR_TMP_FORM_RESCANTIDADALLG+( Pr_Funciones C C C%Cform_res pQform_res#     FF~-tr tmp_resprodFEoplan_nuvCQTMPPLN ~'F!EIDU TT  "T  T  (C!!!   #\r tmp_resfinal      $SurtidoTF%G((codinsF(~   #F% E"[rtmp_resconsumos"%'F0oplan_nuv tmpplngrID ~oFormulasQ)Xtmp_resconsumosQ0 0)*XbienesQ- -)*)*)+),)-'$($ C0 TMPPLNFORsrtmp_resconsumoso TMPPLNFOR(1*1+1,11'1'srtmp_resconsumoso TMPPLNFOR((2(3(411'1'F/%br tmp_resfinal!!!!5!$Surtido C6U7XIDUXRES PR_FUNCIONESCREAR_TMP_RESPRODCREAR_TMP_RESFINALCREAR_TMP_RESCONSUMOSFORM_RESXCNXPAD_CODXPAD_BULXPAD_ATRXHER_CODXHER_BULXHER_ATRXTMPLAT TMP_RESPRODPLAN_MADPLANCOD_INSBULATRHECHASURTIDOCANTXBULIDUPLAN_NUVCANTIDADCANTSIDATR_PLANBUL_PLANMAQTMPPLNPLAN_MAQCOD_PLANPR_GEN_ANALIZAR_HERENCIAFORMULABIENESCODINSGRUPO TMPPLNGRIDFOCODCOMPBULCOMPATRCOMPBIFORMULASTMP_RESCONSUMOSTR TMPPLNFORBOLSABOLSABULBOLSAATR CAN_HECHAPR_MAQ_SURTIDO_BULTEARC#pr_produccion_resultado(%F ~lCFEIDU%   > U XIDUPR_MAQ_SURTIDO_TABLASPR_PRODUCCION_RESULTADOXRESTMPPLNMAQ_PLAN_CREAR_OP_SURTIDOIDPLAN_MAQIDUESTADO  TFG(F ~F~{>Cg F ~F0K    (F > >  F#)F#)F #)U XTMPRESPROD XTMPRESFINALXCANTTMP_RESCONSUMOS TMP_RESFINALIDCANTIDADBULCANTXBUL TMP_RESPRODCOD_INSATRSURTIDOSTOCKs 5 T Pr_OrdenesTpr_maquinas.prgTpr_maquinas.prgTC %&CTransaccin cancelada !!! B- TTCC$ T T C6C  %l'CSe ha realizado el surtido UXIDUXID_NUVXTMPMAQ_XNUMPRODXPROD OPEN_FILES PR_ORDENES XTRAN_PRG XTRAN_TXTXOK PR_BEGTRANMENSAJEMAQ_PLAN_INICIAR_OP_SURTIDOXAAA PR_ENDTRAN+G+( Pr_FuncionesG+(Dey_Func '5     TCT  TMP_GenericosT CT  TMP_FormulaT CT  TMP_REEGET CT  TMP_REEGETCT TMP_FORM_RES%CxFec_InibTgTCF G((IDU E TF-T TTTT T!"T#$ T% T&T'C]T()* T+T,-T./ T0- T1- T2 T3 T4aT56 TCO TC&C  7F8 G((IDUF9~:[F8 E9;>::9: T<a F T<C=SELECT &xTMPForm_Res_Alias Q!%CXOKbL<  B$%CXOKbN<  BT  TMP_Formula BU> XPLAN_IDUXPRODXFEC_INIXID_NUV PR_FUNCIONESDEY_FUNCXRN XOLDORDER XGEN_PATH XGEN_ALIAS XFORM_PATH XFORM_ALIAS XREE_PATH XREE_ALIASXTMPFORM_RES_PATHXTMPFORM_RES_ALIASXCANTSODEYFUNCNEWFILE_LOCAL_TMPPLAN_MAQIDUXCANTT CAN_TOTAL TMP_RESFINALIDXMAD_IDUXFECHAXCODIGOCOD_INSXBULBULXATRATRXFORMULAFORMULA XCANTIDADCANTIDAD XCANTIDADAXNUMPRODXIDXLOTEOLOTDATA_CODIGO_VACIOXDESCR XDEPOSITODEPBAJAXDEPINGDEPINGXBUL_LXATR_LXDESCARTXCODINSXFUERZA_AUTOCIERRE XOPA_MAQUINAMAQUINAPR_MAQ_CREAR_DATOS_SURTIDOPLAN_MAD TMP_RESPRODSURTIDOMAD_IDUXOK PR_ORDENES TC CollectionUTHIS COLECCION )Q MAQ_TIEMPOSpr_maquinas.prgTC Maq_TiemposTT T T T  CUXTIEMPOXINICIOOTIM PR_MAQUINASPRGCOMBTHISITEM COLECCIONCOUNTTIEMPOINICIOCANTIDADCICLADOADD_)Q MAQ_TIEMPOSpr_maquinas.prgX UOTIM PR_MAQUINASPRGFORCOMBTHIS COLECCIONGRABARBCZUTHISCOMBITEMFG((combi E%C4 5Q>U PLAN_USOCOMBITHISIDUCOMBITEMTIEMPOINICIOCANTIDADG+(pr_planificar_nuva T- T ToPlan_mad CXQ  Q  Q Q   TMPDIVPLAN#pr_planeamiento_dividir(% .B-F G((IDUF G((IDUF~F E> % > T%B- #)F E> ^JT%CgTTC]TTTTTTjoPlan_madQ TMPDIVPLANQ! ! ! Q"!TMPINNF#<>  $C]F&}('Voplan_nuvQ(TMPINNQ) (*)"())"TMPNUV> >'>*">,TC]>F+ ~ ^JF& _JF_JC-FF# ~ ^JF _JC.U/XIDUPR_PLANIFICAR_NUVAXRESXDIVIDIRONPLANONMADONNUVXMAXIDXIDUNUVATR DESCR_COLCANTIDADHECHA PENDIENTEQUEDADIVIDIRIDUPLANCOD_INSBULPLAN_MAD TMPDIVPLANPR_PLANEAMIENTO_DIVIDIRPLAN_MAQESTADO CAN_TOTAL PADRE_IDU PRIMER_IDUOPE_IDUPLA_ESTCOMB_IDU CAN_HECHAPDDPOLD_IDUTMPINNPRODALLPLAN_NUVIDPNTIMADTMPNUVMAQNUV_COMPROMISOS_SURTIDO_GUARDARNUV_COMPROMISOS_GUARDAR Maq_Orden_Fix,Maq_Estado_DescrMaq_Analiza_Ciclo)Maq_Set_Obj_ExtraMaq_Get_Obj_MaqzMaq_Get_Obj_PlanWMaq_Get_Obj_PlanD,Maq_Get_Obj_Oper Maq_Upd_Obj_Plan Maq_Upd_Obj_PlanD Maq_Upd_Obj_OperkMaq_Tiempo_AnalizaMaq_Tiempo_Fil_TURA;Maq_Tiempo_DOWMaq_Tiempo_DOW_NextMaq_Tiempo_DOW_PrevFMaq_Tiempo_Fec_Tim_MIXMaq_Tiempo_Fin_Fix<Maq_Tiempo_Fix_MaquinaMaq_Tiempo_Analiza_Inv? Maq_Tiempo_Maquina_Analizar$Maq_Compromisos_GuardarT*#Maq_Compromisos_Guardar_Combinacion+Maq_Comprometer^-Maq_Compromisos_EliminarE/Maq_Plan_Borrar/Maq_Plan_Crear_OP2 Pr_Begtran< Pr_EndTran>Pr_Maq_Create_Tabla_Cierrep?Pr_Maq_Fill_CerrarC#Pr_Maq_Create_Tabla_Cierre_PrevistoI$Pr_Maq_Create_Tabla_Cierre_AdicionalILPr_Maq_Create_Tabla_StopsNPr_Maq_Fill_ConsumosPPr_Maq_Cie_Llenar_BorrarVMaq_Iniciar_Produccion2XMaq_Cerrar_Produccion\Maq_Inicio_de_turnojMaq_Oper_CambiosnlMaq_Ope_Libres_CreartMaq_Ope_Valida_MaquinavMaq_Ope_Libres_EvaluarwPr_Maq_Create_Tabla_Oper_Libresoxpr_maq_crear_datos_surtido\zPR_MAQ_Surtido_Tablas}PR_MAQ_Surtidopr_maq_surtido_bultearΆMaq_Plan_Crear_OP_SurtidozMaq_Plan_Iniciar_OP_SurtidoINITI Agregar_USO Grabar_todosʒ idu_accessmGrabarMaq_Dividir_ProduccionvH T-TCX T 3 4 5U COLECCIONCOMBCICLADOmTCX T T TT T 6 7UCOMBITEMIDUTIEMPOINICIOCANTIDADMaq_Tiempos_controlCUSTOM Maq_TiemposCUSTOM9q1Q1e!AqA3q11111Q1AA3q1A1AAaa"qA512rAAR3rAAR2rAAR2rAAR3qAqAqQA3qAqAqQA 4qAqAqQA3q1AAAqba1AA21!1A!A22AAASbA3AAA3qAAA5qA2A!Q!3A!Q!33qqAA1A1A3Aqaqa2q!!AaA11qr!Aqq11qr!ABA41Aqba1AA2A21!12A!A1AAAbq1AAA3AAA32aAr3aaAAaqaaAAAbA1qA1AAs!sAqqrArBrA5qs3qArA31srqAB3qAQA3qs4qrsqA2qAaAAArs#sAq3a!aArrrr"a1AAAAAq!A!AsQA2ar!a1AA2} 1A24!aAA!rA!!3arrqAqr1QAAraAA1QAAqaQ3!aAA!q !2!aAA!q !2!aAaA!qx!3aA!ar!ARAA2rba1Q7AqAQrAQ D21!qA:qbqAaqAAqA21Sa1aqA51q1qAArQAa4qb!bAqANAqAq!!!Aa!aA QqA{111Q1121QrrB1AA1A2AAAAsrAA9qb1AqA114q1aAqAAA1aqA!AA1111111AAA!1111AC2A1AA"t2qQqA21%A2aAA!A2r#A# qQ 3qqaAA1sqAAAsQqrrqAAt 75Ar2!A3q2qAAq1AA2qqarqAArqqBsQrQrQ3qSa1aqAa1qA31a!qaaAtrbrqAqAAAAAA721qA2AA:Q2qQA4q2qAqqsAqAaAAA1qAr1A1A1rrd!sqQAsQrqqQA371>h !<::^= bK+ X vY g u'$K92"c)"""z##,$ Z$$ $&$'.a.66{>h>@1ACCQH#HI4(6IL>FL\m7\^^~^2_&d_c4c ng#Hnp5 qsGs#vZOv^jwXN=_ef /9FB Q>^w.X ~/zJu+^NMug ?[ qe%g 2K;Wp #G+(wwAPIG+(wwUtilsUWWAPIWWUTILS> 4TCC6 TCC C6%CoB- Ta %C Q  FQ T-% Q . F BULCTABLELCALIAS LCOLDERRORLLRETVALLOEVAL TC %G TC F%CC_B%C+ z#CO #)%C+ #CO%C FULCALIAS LCOLDALIASLLALIASSPECIFIEDTCC6%CC T }TC %%CC C C TCC\  B TCC6%TC % TC%]B-C CBa  T- C  Ta%B-Ba BU TCFILENAMETCSTRING LLSHAREDWRITE LLWRITEUTF8LCRETVALLNHANDLELNSIZE STARTSWITHLLFAILEDT%%CC C C DTCC\  BULCSTRING STARTSWITH8 *BCCC_ - C C ULCOUTPUT LCFILENAME APPENDTOFILEJ %C%CCH T%C$TC]\__LogString.txtTC%C0 TC%TC% BCC C CULCOUTPUT LCFILENAMELHFILE __LOGPATH- #%C loInput.ClassbCjTC N TCEMPTYNTCb(TCC@%%C,,'L,activecontrol,classlibrary,baseclass,comment,controls,objects,controlcount,Hclass,name,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,bwidth,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column,.TCloInput.bH(, C ALEN(loInput.)bN#%C loObject.bUC[1] %lnlength = ALEN(loinput.&lcfield) )DIMENSION loobject.&lcfield[lnlength] ( )%CloInput.[z]bOmLloobject.&lcfield[z] = copyobject(EVAL( "loInput." + lcfield + "[z]")) 6loobject.&lcfield[z] = EVAL("loInput." + lcfield)  O<#%C loObject.bUC =loobject.&lcfield = copyobject(EVAL("loInput."+lcfield)) 2#%C loObject.bUxC 2loobject.&lcfield = EVAL("loInput." + lcfield)  BU LOINPUTLOOBJECTLAFIELDSLNXLCFIELDLCTYPELLCLASSLNCOUNTZLNLENGTHCLASS  %Ct 4 T"%= C> c B%CBCC\ T- T TCC\ Ta BU LCEXPRESSION LVFAILVALUELLERRORLVRESULT  %C] T%CCTL,activecontrol,classlibrary,baseclass,comment,controls,objects,controlcount,6parentalias,parentclass,helpcontextid,whatsthishelpid,Dtag,onetomany,childalias,childorder,relationalexpr,timestamp_column,0class,name,parent,width,height,top,left,picture,%C TB T -;%C loInput.ClassbC Collection  T %COETC CollectionN( TCC B %TC b TC b(TCC @,%C,,,,A.T CloInput.b% O .% U.,%C ALEN(loInput.)bN%lnlength = ALEN(loinput.&lcfield) )DIMENSION loobject.&lcfield[lnlength] (Vloobject.&lcfield[lnz] = EVAL("loInput." + lcfield + "[" + TRANSFORM(lnz) + "]") .%#%C loObject.bU.% O TC loObject.bH"8 O!CloInput..ClassbC Oloobject.&lcfield = CREATEOBJECT(EVALUATE("loInput." + lcfield + ".Class"))  O5loobject.&lcfield = CREATEOBJECT("EMPTY") copyobjectproperties(EVALUATE("loInput." + lcfield),loobject.&lcfield, lnobjectstructureobject,lldontparseobjects,lcpropertyexclusionlist) . 2loobject.&lcfield = EVAL("loInput." + lcfield)  T a B ULOINPUTLOOBJECTLNOBJECTSTRUCTUREOBJECTLLDONTPARSEOBJECTSLCPROPERTYEXCLUSIONLISTLNXLNZLNCOUNTLCFIELDLCTYPELLERRORLAFIELDSCLASSLNROWSLOCOLLVITEMCOUNTITEMADDLNLENGTH LCFIELDTYPELOVALUE[%COK7TCVBScript.RegExpNTa BU__REGEXGLOBALu%COe7T wwRegEx.prgTCwwRegExTa BU __WWREGEXLCREGEXGLOBALg%COW7"TCmsxml2.domdocumentNT BULLASYNC__XMLDOMASYNC'%C BTCN TCEMPTYNCnCount CaRows(1)  T(%B ~T^JT BU LCOBJNAMELNXLALITEMSLNSIZELOROWLORESULTAROWSNCOUNT TC%CX T%T wwCollection T CollectionTCN(CC BULAARRAYLNMODELNXLNCOUNTLCCLASSLOCOLADDg T%C [ TC F%C} T%T wwCollection T CollectionTCN ~7 T%C TCN ^JC%C W F BU LCALIASLNMODE LCITEMCLASSLORESULTLOROWLCCLASS LCOLDALIASLOITEMADD%C3 TC%C PB- F%C "LOCATE FOR &lcsearchexpression %C4   _JBaU LOCOLLECTIONLCALIASLCSEARCHEXPRESSIONITEM TC%C wwFileCacheMF 3h wwFileCacheCx T M& TC@%CC%% C /TC %TC >  CT TC %TC 4r wwFileCache  C%C  F BU LCFILENAMELNREFRESHSECONDS LLMERGETEXTLCOUTPUTLNHANDLE__LOEVALLCALIAS WWFILECACHEFILENAMETIMEREADCONTENTFILE2VAR MERGETEXT45 TC FTC&%CO QQ Q FBU PCNEWNAME LCOLDALIASLCDBF %OTClvValueb%AKBaTC %X U Ba6%CCMNYDTLC BaB-ULVVALUE LLCHECKARRAYLCTYPE/   T C ( 3TC{C _}CCParmC __ BU LCFORMATPARM1PARM2PARM3PARM4PARM5PARM6PARM7PARM8PARM9PARM10 LNPARMCOUNTLNX4    T CC% <BCC6C6"TCC>,6$TCC> z!x6TC z!x6TC% 2 B% T T C % BC  C>\T C % BC  C>\% B  TC>T C\T C % aBC  \T C % BC  \%BC \ BULCSTRINGLCDELIM1LCDELIM2LCDELIM3LLENDOKLLINCLUDEDELIMSLNX LNLOCATIONLCRETVALLCCHAR LNNEWSTRINGLNEND LLISDELIM3 LCNEWSTRING TC CollectionN%Co T%C T%C T T,<lncount = ALINES(lalines, lcstring,lnflags &lcparsechar) (T CC >% TC MEMOWIDTHv G$(TCC (CCC   G$( CC   BU LCSTRING LNLINELENLNFLAGS LCPARSECHARLOCOLLNOLDMEMOWIDTHLNCOUNTLNXLNYLALINESLNLENGTHADD TC=%M BTCC>\%"TC"% BBC\%'/TC'% BBC\TC TC>% BC\BC\U LCELEMENTXML LCATTRIBUTELNATLNAT2LCSUBSTC-a!BCULCSOURCELCSTARTLCEND LCREPLACE LCEXTRACTEXTRACT% T+aTC% T! T BTCa%C TBCU LCSOURCELCSTARTLCEND LCREPLACELLALL LCNEWTEXTREPLACETEXTANDDELIMITERS LCEXTRACTEXTRACT %CD!BC C C C `%Cy T C C C "C>( %CC\ BC\ BULCSTRINGLCCHARSLNX+!BC C C C ULCSTRING%C>G%C<BaB-% %CC>=|Ba %CC@C>=C@BaB-ULCSOURCESTRING LCCOMPARELLCASEINSENSITIVE%C>G%C<BaB-% %CC>R|Ba %CC@C>RC@BaB-ULCSOURCESTRING LCCOMPARELLCASEINSENSITIVE7|WideCharToMultiBytekernel32TC>TCC QTC> -TC% BBC\ULCUNICODEINPUTSTRINGWIDECHARTOMULTIBYTEKERNEL32 LNNEWSIZELCBUFFER LNANSISIZE LNOLDSIZE  4%CC9TADD%CRBTCCC`@%ADD%C G)(BCPATHvTCCPATHv@%ADD\%C C  B,%C;;;;B BT; ,%C;;;;  B%TC;;;;TCC>\SET PATH TO &lcoldpath BUPCPATHPCMETHOD LCOLDPATHr )TCCC@/// /% ]TCwww.BC2ULCURL LLNOSTRIPWWWLCTEXTEXTRACT %C8 TTCb T($TC loObject.Cb%CUOL$TC loObject.C!%C C>P TCP=9TC C CC@ = CC_ fTC C CC@ = CC loObject.CbO ObjectNULL6 BULOOBJECTLNMODELNXLNCOUNTLCOUTPUTLAFIELDSLCTYPELVVALUEY  T+aITC% !TC\,TC

C C C C 'TC
C C C !TC
C C TCT BULCHTML LNCOLWIDTHLCPRELCFIXED LCPRECOUNTLNAT1LNAT2 LNPRECOUNTBCULCHTML ENCODEHTML'lchtml = STRTRAN(lchtml,"<","<") 'lchtml = STRTRAN(lchtml,">",">") )lchtml = STRTRAN(lchtml,["],""") *lchtml = STRTRAN(lchtml,[& ],"& ") BULCHTMLBCULCHTML ENCODEHTML'lchtml = STRTRAN(lchtml,"<","<") 'lchtml = STRTRAN(lchtml,">",">") )lchtml = STRTRAN(lchtml,""",["]) (lchtml = STRTRAN(lchtml,"&",[&]) BULCHTMLBCULCHTML DECODEHTML %CO,Tscript|iframe|object|embed|form%Cm B"TCGetwwDotnetBridge()IBC"Westwind.WebConnection.StringUtils SanitizeHtmlULCHTMLLCHTMLTAGBLACKLISTLOBRIDGEINVOKESTATICMETHODyTCC C C TCC C TCC C 

BCC 
ULCHTMLa %C>) BTC=BCC =...ULCTEXTLNLENGTH%C. B%CTTOPEN%CyTC]=| ShellExecute SHELL32.dllQ ShellExec_1%C T"BC9U TCURLTCACTION TCDIRECTORYTCPARMS SHELLEXECUTESHELL32DLL SHELLEXEC_1HWNDTCC64TCCC]\ww_HTMLView.htm6C"%C loWebBrowserbOC CBULCHTMLLCFILE LOWEBBROWSERFILE2VARNAVIGATEGOURL{%CT4TCCC]\ww_HTMLView.xml6 BCULCHTMLLCFILE LOWEBBROWSERSHOWHTML%CT4TCCC]\ww_HTMLView.txt6&%CC MODI C /BBCULCHTMLLCFILE LOWEBBROWSERFILE2VARSHOWHTML1TCC<6TCC>6%Cl B'TCBRC C 2TCPC C C C 'TCbrC C 2TCpC C C C 1lchtmltext = STRTRAN(lchtmltext," "," ") Tx+C TC%C!TC/lchtmltext = STRTRAN(lchtmltext,"<","<") /lchtmltext = STRTRAN(lchtmltext,">",">") BU LCHTMLTEXTLCLTAGLCRTAG LCEXTRACTNTCC@0_R+B#C\C\C=U LNRGBCOLORLCCOLOR%C- T%C t1B (B ULCURLLCTEXT LCATTRIBUTESm  TC]TC@% q B%C T%C TTC`TC`TC=T C\?T %C T   "T  ;lcoutput = lcoutput + [] + [] B U LCEMAILLCTEXT LCSUBJECT LCMESSAGE LCATTRIBUTESLCIMAGELCFUNCLNATLCEMAIL1LCEMAIL2LCOUTPUT URLENCODE%C8 TP%C hTCCC@  T%C T 6lcdefaultimage = "&d=" + urlencode(lcdefaultimage) %CTpgvlcurl = "//www.gravatar.com/avatar/" + lchash + "?" + "s=" + TRANSFORM(lnsize) + "&r=" + lcrating + lcdefaultimage BULCEMAILLNSIZELCDEFAULTIMAGELCRATINGLCHASHHASHMD5LCURLTC@H.w C*htm*}]T text/html2 xml rtf css Ttext/ pdfTapplication/pdf fdf  Tapplication/vnd.fdf$ doc dot PTapplication/msword ppt*Tapplication/vnd.ms-powerpoint$ xls iqy %Tapplication/vnd.ms-excel xslx>NTAapplication/vnd.openxmlformats-officedocument.spreadsheetml.sheet@ txt asc sdf prg T text/plainA file exe dll bin %Tapplication/octet-stream Cwp*}9'Tapplication/wordperfect5.1 Cvs?}r"Tapplication/vnd.visio js%Tapplication/x-javascript jsonTapplication/json zipTapplication/zip Cjp*g}AT image/jpeg Ctif*}pT image/tiff2 gif bmp tng Timage/ Csvg*}T image/svg-xml 2wTCwwAPIN3TC . Content Type%Cs%Tapplication/octet-stream BU LCEXTENSION LCCONTENTTYPELOAPIREADREGISTRYSTRINGy  T(C>i/TCC\ BUTCWORDILNWORD-BCULCSTRINGLCSOURCE LCREPLACE %CNR T% v T% T%C TjT=abcdefghijkmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890C !@#$%&*+-?6T C Q7 % #| CoCreateGuid Ole32.dll T aC T(TCCC \C>GTC\ BULNLENGTHLLINCLUDESYMBOLSLCADDITIONALCHARSLCCHARSLCGUIDLCIDLNXLCHEXLNHEX LCGUIDBINARY__COCREATEGUIDAPI COCREATEGUIDOLE32DLLTC!%CNIYF?Ba%C^B-(%CCC 01234567890.,BaB-ULCNUMBERLCTYPE %n%C6 B''4B'CC@R 9999-99-99 99:99:99_'%C B{^}5B{^CC@R 9999-99-99 99:99:99_}ULTTIMELLSQL3%C! B BC*ULDDATE%C4 BTC%DTTC2TC {0}. {1}, {2}CC!=C%Ci  B%D B!%CDATEvAMERICANTCTam% JT Tpm%} T Tam9TC {0}:{1}{2}CCC0 2TC {0}:{1}CCC0 BULTTIME LCTIMESTAMPLNHOURLCAMLCTYPE STRINGFORMAT! %C0 T%CN B!TCC!= CC%_%T - C B%T, CCi_%T C BULTDATELNMODELCTIMELCDATE SHORTTIMEX%C( BTCBCC[@ULTTIMELCTIME %C>TƞBA%CC=%C> C\- C\- TC TC%CTƞBA% ?%CD)TCTCTC% xTZ% BTCCT\ BULDDATE LLINCLUDETIMELLNOUTCLOENVLCDATEFROMISODATESTRING GETUTCTIME #TCwwEnvDATEANSINTC%C_ B%CRZTC BULCDATELOENVLDDATE FROMUTCTIME   TCwwEnvHOURSN%CTDC٭ Y BTCTCC \% TC= BULTTIMELLINCLUDESECONDSLOENVLCTIMETC CollectionN&TC C C (TCC%C.TC.,:!?C BULCTEXTLOWORDSLNCOUNTLNXLCWORDLAWORDSADD TC%CDJTCTT? TH < Tjust now ;x T a minute ago x  9%TCC< 8_ minutes ago    qT an hour ago"  Q TC 87TC_ hourCs6 ago$ Q  &$TCCQ 8_ day ago$ Q ' o%TCCQ 8_ days ago$ '  TC' 88TC_ monthCs6 ago 2TC BULTDATELNVAL LTCURRENTLTDIFFLCTEXT SHORTDATE* %C0 Bnull%CTC %T D TlBA"TCGetwwDotnetBridge()%C%CC BBCToString BCToStringULVVALUELCFORMATSTRINGLOBRIDGELCTYPE INVOKEMETHOD/   T Ct"T CGetwwDotnetBridge()Hz .BC System.StringFormat  2BC System.StringFormat  I6BC System.StringFormat  :BC System.StringFormat  >BC System.StringFormat  <BBC System.StringFormat  FBC System.StringFormat   JBC System.StringFormat   SNBC System.StringFormat   NBC System.StringFormat 2-$Too many parameters for FormatStringULCFORMATLV1LV2LV3LV4LV5LV6LV7LV8LV9LV10LNPARMSLOBRIDGEINVOKESTATICMETHODg %CC / B%CWTlBA BULTDATETIMEVALUE LTDATETIME_ # 1T$JanFebMarAprMayJunJulAugSepOctNovDec"TSunMonTueWedThuFriSat%CCa QDATETIME 7  TC  % B'%CCCC V, P C C !TCCC  _QTCCC gCgCC gCCC =gCCC \gCCC Rg%  BTC < TCC gd T T   TT  B X%CDTCTC < %C TC%TTC)% B"TSunMonTueWedThuFriSat6TC\, CC%_ uTCCH\ CCi_ CC0:CC0:CC0%B GMT T:BC - +6CCC_000U LVDATETIMELLGMTLCDAYSLCMONTHSLNCOUNTLCMONTHLTTIMELNOFFSETLNOFFLNDIFFLTRESULTLAPARTS APARSESTRING GETTIMEZONELNDAYLCMIMEE%C$ BBCC C  ULCSQL ISNULLOREMPTY7% V-|JsonEncodeString wwipstuff.dll TaTC C>QTCBCULCVALUE__JSONENCODESTRINGAPIJSONENCODESTRING WWIPSTUFFDLLLCOUTPUT LNPOINTERWINAPI_NULLSTRING  "TCGetwwDotnetBridge()VBC'Westwind.WebConnection.wwJsonSerializerSerializeJsonUtcDateULVVALUELLASSUMEUTCDATELCDATELOBRIDGEINVOKESTATICMETHOD* BC truefalse6ULLVALUEH CC?TCC CgTC]C! C.APPC]TCC] 2TCC]!%C PROCEDURETCC:\ BCU STARTMODELCPATH SERVERNAME+|GetShortPathNameWin32API TTCXTC>TC% BBC=ULCPATHGETSHORTPATHNAMEWIN32API LCSHORTNAMELNLENGTHLNRESULT  )|GetLongPathNameWIN32APITCXTCC%C% B BCC@TC%% B BCC@BC=U LCFILENAMELLCHECKFILEEXISTSLCFILELCSHORTFILENAMELNRESULTGETLONGPATHNAMEWIN32API SHORTPATH` "TCGetwwDotnetBridge()0BCSystem.IO.Path GetFullPathULCFILELLCHECKFILEEXISTSLOBRIDGEINVOKESTATICMETHOD\"TCGetwwDotnetBridge()0BCSystem.IO.Path GetFileNameU LCFILENAMELOBRIDGEINVOKESTATICMETHODa"TCGetwwDotnetBridge()5BCSystem.IO.PathGetDirectoryNameU LCFILENAMELOBRIDGEINVOKESTATICMETHOD %C.TC]C"TCGetwwDotnetBridge()JBC Westwind.WebConnection.FileUtilsGetRelativePathULCPATH LCBASEPATHLOBRIDGEINVOKESTATICMETHOD"TCGetwwDotnetBridge()YTC Westwind.WebConnection.FileUtilsSaveFileDialog%C B BULCFOLDERLCTITLELCDEFAULTEXTENSION LCEXTENSIONSLLPROMPTFOROVERWRITELOBRIDGELCRESULTINVOKESTATICMETHOD"TCGetwwDotnetBridge()VTC Westwind.WebConnection.FileUtilsOpenFileDialog%C B BULCFOLDERLCTITLE LCEXTENSIONSLLCHECKFILEEXISTSLOBRIDGELCRESULTINVOKESTATICMETHOD "TCGetwwDotnetBridge()%CK TOTC Westwind.WebConnection.FileUtilsOpenFolderDialog%C B BU LCSTARTFOLDER LCDESCRIPTIONLOBRIDGELCRESULTINVOKESTATICMETHODd 4TCC,6TC7% | DeleteFileWIN32API Ta(VmT CCCiCCHCC%CCC=gCCC\gCCCRg% C RCCCCBaU LCFILESPEC LNTIMEOUTLNXLNFILESLOAPILOEVALLAFILES__DELETEFILEAPI DELETEFILEWIN32APILDTIMEI  %CDH ;B-BaULCPATHLATEMP  TC%VBTCDBC{^CCi_-CCH_-CC%_ C}U LCFILENAMELNFILELDDATELAFILEg  TC%P BBCU LCFILENAMELNFILELDDATELAFILEr TC%B BTC C BU LCFILENAMELHLNSIZE +TCClcStylebCCf6%WEBcTC\/ TC/\ BULCPATHLCSTYLEK(7%CC]3! BULNX&BCULARESULTLCSTRING LCDELIMITER %C?T#@#TC CollectionN T+aTC%C!CTCC_T BULCSOURCELCSTARTLCEND LCDELIMITERLOTOKENS LCEXTRACTLNXADDQ COLLECTION%CIT#@#+aTCCg% !'TCC_C BULCSTRINGLOTOKENS LCDELIMITERLNIDITEM %C>7% 1| URLDecode WWIPSTUFFQ API_URLDecode TaTC %TC\  T%BC  BTC+ T T+aTC%$%C> T!TC\T TC0x %v(TC=CC0x %C>dTC\ r! TC\TC\%BC  BU LCTEXT LLUTF8DECODELNSIZELNLOCLCHEXLNHEXLCRETVALLOEVAL__URLDECODEAPI URLDECODE WWIPSTUFF API_URLDECODE'lctext = STRTRAN(lctext,"<","<") 'lctext = STRTRAN(lctext,">",">") )lctext = STRTRAN(lctext," "," ") )lctext = STRTRAN(lctext,""",["]) (lctext = STRTRAN(lctext,"&",[&]) T+aTC&#$%C> 7T!TC\"TC=CC %C>TC\ ! BULCTEXTLCRETVALLNLOCLCHEX"TCC&6%Cf BTC + T-T C&=%  T C?= Ta%   B% B'TC&=& s'TC?=&%C BBC U TCURLSTRINGLCKEYLLNULLIFNOTFOUNDLNLOCC2CSTR LCURLSTRINGLCRETVALLLQLNAT URLDECODE %TCwwNameValueCollectionN%Cm TT &TC& % BT C \+TC= %%TC& .TC \T C \TC& % T TC =TC TC C T C \ BU LCVARSLCPREFIXLOVARSLNXLNATLCPOINTLNEQUALLCKEYLCVALUE LCPOINTER URLDECODEADD %C4 B T-TC=%C?& T& Ta'TC&=&%C'TC?=&%C TC? E TC&= %C=& wBC\ BULCQUERYLCKEYLCVAL LLSTARTADDEDLCLEFT T T -TC=%C?& T& T aT&TC TC&=% TC?=%T? 7T&%T C\T C& % T C >TC =% TC\BC=TCRH  C?T? ? & l T 2T&% TC\B=U LCQUERYLCKEYLCVALUE LCFULLVALUELNLOCLNLEFTLCLEFTLCRIGHT LLSTARTED LLSTARTADDED URLENCODELCRESTLNLENGTH%C>TC>TC<7% %| VFPURLEncode WWIPSTUFF TaTC%BCC`\ B T(C>TC\HB@ C(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-._~T  T%20 2$T%CCC@0_R BUTCVALUELCRESULTLCCHARLNSIZELNX__VFPURLENCODEAPI VFPURLENCODE WWIPSTUFF   /TC(HN. CC ERRORMESSAGE T 2 T BU LCEVALSTRING LVERRORRESULTLVRESULT LOEXCEPTIONMESSAGE   T ;&lccommand (%Cg TH|  ERRORMESSAGETError:  2 T BU LCCOMMAND LCERRORRESULTLCRESULT LOEXCEPTIONMESSAGEk%COG7TCwwEvalNBCUTCSTRING TCDELIMITER TCDELIMITER2 LLNOASPSYNTAX__GOEVAL MERGETEXTl%G!BCCBCCUTCFILETLCACHETEMPLATE TCDELIMITER TCDELIMITER2 LLNOASPSYNTAX MERGETEXT CACHEFILEFILE2VARP%C8 T%X TTC wwScriptingN%'TwwScriptingHttpResponseH@ BC TaBC @BC BU LCTEMPLATELNMODE LLISSTRINGLLUSEHTTPRESPONSELOSCRIPTCSCRIPTRESPONSECLASSRENDERASPSCRIPTLNOVERSIONCHECK EXECSCRIPTTCwwAPINWTC ,SOFTWARE\Microsoft\Windows NT\CurrentVersionCurrentVersion% %CB- Ba%C B BCgULLRETURNVERSIONNUMBERLOAPI LCVERSIONREADREGISTRYSTRING TCX+|GetWindowsDirectoryWin32APITC%TC\\ TC`T v2.0.50727)TMicrosoft.NET\Framework\#TCv?.*.*D% D T TB- (TCTC%C regasm.exe0TC!BaU LCFRAMEWORKPATH LCVERSIONXGETWINDOWSDIRECTORYWIN32APILNSIZELNCOUNT LANETDIRSLCTPATH%C+B-TCwwAPIN,TC \CLSID%C T TB-%CC#TC %C T%CC}>TC CLSID\\LocalServer32%Cy TBaULCPROGID LCCLASSIDLCCLASSDESCRIPT LCSERVERPATHLOAPIREADREGISTRYSTRINGLCCLASSDESCRIPTION%C( B%C\OLES BTC: BC\ULCMSGLNAT%C0 7B- T-% BTC]CTC  |DllRegisterServer%C% &R,: has been registered... Ta 4/R, could not be registered...  "|DllUnregisterServer%C% (R,: has been unregistered... Ta BU LCSERVERPATH LLUNREGISTERLLSILENTLLRETVALLCPATH LCOLDPATHDLLREGISTERSERVERDLLUNREGISTERSERVER1-QSTRINGQSTRINGQSTRING % UNREGISTERm Ta T  T-%C C TBa T T%C 0>T1DotNet Framework not installed or path not found.B-"TCC regasm.exe %CATCouldn't find RegAsm.exe at:C  regasm.exeB-%.T "CC  " /unregister &,T "CC  " /codebase^R,:Hang on. Trying to register C ...C This may take a few seconds... %C>sRUN /n &lcrun C7 RUN &lcrun ( - R %CBaT C% !TRegistration of C failed.C C  Command Line:C RUN /n C C Full deduced RegAsm Path:C  regasm.exeC C =You can manually register your assembly by running REGASM.EXEC Bfrom the framework BIN directory with the following command line: C 9<.Net framework bin path>\RegAsm /codebase C C NThe command line to register the component has been pasted into your ClipBoard B U LCDOTNETDLLLCPROGIDLCERRORLCFRAMEWORKPATH LCVERSION LLUNREGISTER ISCOMOBJECTISDOTNETLCRUN SHORTPATHOEXCEPTMESSAGELLRESULT%CN7 T%CY T%C{ TQ%CCTCg%CT/ T%C B-%(TCwebDev.WebServer.exe%CR\hTCC>\JBC/port:C_ /path:" " /vpath:""C%a[TCC console.exe:\visualStudio\InternalWebServer\WebConnectionWebServer.exe9BC"" "C_" ""C<TC Program FilesIIS Express\iisexpress.exe%C0 %CIIS Express is not installed.C C 'Do you want to download and install it?$Launch IIS ExpressxJC=http://www.microsoft.com/en-us/download/details.aspx?id=34679B<T /port:C_ /path:"" /systray:true=T C.VisualStudio\IISExpress\applicationhost.config%C 0 T  T  T TCC DTC]0\IISExpress_WebConnection_ApplicationHost.configC7T  /config:"" /siteid:1 /systray:trueT""  TC CU LCPHYSICALLNPORT LCVIRTUALLNTYPELCPATHISDOTNETCREATEPROCESSEXGETSPECIALFOLDERGOURL LCCMDLINE LCCONFIGFILE PCVIRTUALPNPORTPCPHYSICALPATHLCMERGEDCONFIG MERGETEXT LCOUTCONFIGLLRESULT)TCClcRunAsbC6*TCClcProgIdbC6TCC6TCwwAPIN,TC \CLSID&TC %CC 5R,:Invalid Class Id...BKR,: Configuring server security for C C C C -TC AppId\RunAs-%C %CC CSYSTEM%%Cdcompermissions.exe0 U4R,$Couldn't find dcompermissions.exe...B"T Cdcompermissions.exeT C FT RUN  -runas    > dcom.txt &lccmd T CDCOM.TXT DCOM.TXT(%C CERROR:  |ICC  Account: C C  0DCOM PermissionsxB-%C  ICC  Account: C C  0DCOM PermissionsxB- 6E%C SOFTWARE\Classes\CLSID\AppIda m)R,:Unable to write AppID value...B7%C AppID\C C a 'R,:Unable to write AppID key...B-C AppID\a2C AppID\RunAsa%CfTLaunching User-R,:DCOM security context set to: BULCPROGIDLCRUNAS LCPASSWORDLOAPI LCCLASSID LCSERVERNAMEREADREGISTRYSTRING LCAPPIDKEYDCOMCNFGSERVERLCPATH SHORTPATHLCCMDLCRESULTDCOMTXTDCOMLAUNCHPERMISSIONSWRITEREGISTRYSTRING%C y TTC%CuR,Invalid Prog IDB-  T"TCdcompermissions.exeTC%C,GTRUN  -da  set "" permit > dcom.txt T GTRUN  -aa  set "" permit > dcom.txt T &lccmd T CDCOM.TXT DCOM.TXT(%C CERROR:  6ICC  Account: C C  0DCOM PermissionsxB-%CGTRUN  -dl  set "" permit > dcom.txt T GTRUN  -al  set "" permit > dcom.txt T &lccmd T CDCOM.TXT DCOM.TXT(%C CERROR:  ICC  Account: C C  0DCOM PermissionsxB-BU LCPROGID LCUSERNAME LCERRORMSG LCCLASSIDLLRESULT ISCOMOBJECTLCPATH SHORTPATHLCCMDLCRESULTDCOMTXT\%C>Ba%CZBaTCTC\`T"C"%T /T % T /E "T /P :T C] \cacls.txt%C wwipstuff.dll0 T CwwAPIN,CC cacls.exeCa TRUN Cacls.exe 0T  > "  "cacls.txt&lccommand  T%C 02TC %CNB-BaU LCPATHLCUSERLCACCESS LLINHERIT LLREPLACE LCCOMMANDLCFILELCPARMS SHORTPATH LCOUTPUTFILEOAPICREATEPROCESSEX GETSYSTEMDIRTCCTCTC TCFhTDirs C% CC rTDirs TCwwAPIN ~%CC ` C `!%CCC `]G.  %T C C `( TC 'CC `C `Q%C C  FBULCSOURCELCTARGET LLNORECURSIONX LCSOURCEPATH LCTARGETPATH LCSOURCEFILESLOAPILCALIASTDIRSPATHGETDIRSLAFILESLNFILESLNXLCFILECOPYFILEb5%CJT*.*TC T-TC]C TChTDirs CCC & <%  B- ~QT C ` % C M ?  I B ULCSOURCE LCFILESPECLLNOREMOVEEMPTYFOLDERS LCSOURCEPATHLLERRORLOEVALLCCODELCALIAS LCCURPATHTDIRSPATHGETDIRSLCPATHISDIR %C> TTC@TC@%CTDirs FhTDirsC-rTDirsC&TCC*.*D(L%CDCC. C  \. CCCULCPATHLCBASEXLNFILESLADIRSTDIRSPATHGETDIRSK  TX TZT#|GetActiveWindowwin32api#|GetActiveWindowwin32api|GetDCwin32api$| GetDeviceCapswin32apiTC TC TC TC T T BU LNXFACTOR LNYFACTOR LN_X_PIXELS LN_Y_PIXELSLN_TWIPS LN_PARTIAL_X LN_PARTIAL_YLN_HWNDLN_HDCGETACTIVEWINDOWWIN32APIGETDC GETDEVICECAPS  | IsUserAnAdminShell32 CTC Z T%xB-BaULOAPILCVAL ISUSERANADMINSHELL32LNRESULT# CU TCSETTING TVNEWVALUETHISSET TTCv6%C tvNewValuebCCCfONOFF SET &tcsetting &tvnewvalue %SET &tcsetting TO (tvnewvalue) U TCSETTING TVNEWVALUETHISCSETTING VOLDVALUE TT3%ClvValuebCCCfONOFF ySET &lcsetting &lvvalue "SET &lcsetting TO (lvvalue) U LCSETTINGLVVALUETHISCSETTING VOLDVALUE4!TCwwAPI wwapi.prg% bTCHKLM5SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinlogonDefaultPassword bTCHKLM5SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinlogonDefaultUserName%C$ B BU LLUSERNAMELOAPILCPASSREADREGISTRYSTRING %CC'TPlease enter your password%CgTCX0BCPassword EntryPASSWORDU LCMESSAGELCDEFAULTPASSWORD INPUTFORMm5%CtM T  b T TCC6)TCC Please enter6TCC9 6TCC,6!TCC 6TCC@K6T C TTCfrmInputNT T T TT%PASSWORDT@KTSymbolT* C%CpcResultbCFTC` ] T BULCVALUE LCMESSAGE LCCAPTION LNFORMWIDTH LNFIELDWIDTHLCFORMAT LCCANCELVALUEPCRESULTO PCCANCELVALUECAPTIONLCTYPEWIDTH NFIELDWIDTHCMESSAGECFORMATTXTINPUTFONTNAME PASSWORDCHARSHOWTaT9TTT T  UT  %C %C@T TT-UTHIS ALWAYSONTOPICONTXTINPUTWIDTH NFIELDWIDTH MAXLENGTH LBLMESSAGECAPTIONCMESSAGE CMDCANCELLEFTTHISFORMCMDOKCFORMATFORMAT INPUTMASK <UTHISFORM%CTCpcResultbH@ CMb T NIBYT   DTT L T-  T<ULCTYPE PCCANCELVALUEPCRESULTTHISFORM4     +5 !"#$%&'() T C%  B%CpnLeftbN T*+ T,- 2 T,C T*C T. T/C%C/ }s0,*CW s0,*W " $% C, $T)C",!() s!0"C!" !( T#pcArgC!_T%C#T"!%s!0"%$10DEACTIVATE POPUP qk_menut0<0 T(Cl%( BBCC("\<U1PCARG1PCARG2PCARG3PCARG4PCARG5PCARG6PCARG7PCARG8PCARG9PCARG10PCARG11PCARG12PCARG13PCARG14PCARG15PCARG16PCARG17PCARG18PCARG19PCARG20PCARG21PCARG22PCARG23PCARG24PCARG25PCARG26PCARG27PCARG28PCARG29PCARG30PCARG31PCARG32LNPARMSXA_PARMSLCPROMPT LCCOMMAND LCPROMPTVAL LCCOMMANDVAL LCOLDRMOUSELNBARNOLNCOUNTLNCOLPNLEFTLNROWPNTOPLNMAXLENLCWINDOWQK_MENU OpenExclusive`ForceTableRefreshFile2Var StripUtf8BomG LogString AppendToFile CopyObjectEvalExpression CopyObjectProperties GetRegExObjectGetwwRegexObject+GetXmlDomObjectCursorToObjectArrayMArrayToCollectionCursorToCollectionCollectionToCursor CacheFileWrCursorU IsNullOrEmpty StringFormat!Extract" SplitString% GetAttribute' ReplaceText)ReplaceTextAndDelimitersc*TrimWhiteSpace+AllTrimWhiteSpace, StartsWith-EndsWith. UnicodeToUtf8/PathZ0 DomainName2 PropertyDump(3 FixPreTagsE5FixHTMLForDisplay6 EncodeHtml$7 HtmlEncode7 DecodeHtml8 HtmlDecode8 SanitizeHtml9 DisplayMemo3: TextAbstract:GoUrl7;ShowHTML<ShowXML=ShowTextJ> StripHTML@? HTMLColorAHRef BMailLinkB GravatarLinkFContentTypeFromExtensionH CharToBinYNStrTranCN GetUniqueIdAOIsNumberQ TimeToCStrictRDateToC}STimeToCS ShortDateV ShortTime[WToIsoDateStringWFromIsoDateStringYTo24HourTimeStringZGetWords[ HumanizedDate\ FormatValue` FormatStringla NoEmptyDatee MimeDateTimeVf FlattenSqlRk JsonStringkJsonDatelJsonBoolmGetAppStartPathm ShortPathoLongPath p GetFullPathq GetFilename+rGetDirectoryNamerGetRelativePathLsSaveFileDialog'tOpenFileDialog^uOpenFolderDialogwv DeleteFileswIsDireyFileTimeyFileAttributeszFileSize:{Slash{ ProgLevely| AParseString|TokenizeString }DetokenizeStringl~ URLDecodef HtmlDecode͂GetURLEncodedKeyGetUrlEncodedValuesΆRemoveUrlEncodedKeyNSetUrlEncodedKey URLEncodeXSafeEval SafeCommand MergeTextВMergeTextFromFileRenderAspScriptcIsWinnt<IsDotNetb IsCOMObjectFixComErrorMessageRegisterOleServer.RegisterDotNetComponent~LaunchVsWebServerFDCOMCnfgServer:DCOMLaunchPermissionsSetACLشCopyTreeƷ DeleteTreeGetDirs{ TwipsFactorDIsAdmin/InitSet:Destroy+GetSystemPassword GetPasswordy InputFormHShow cmdOk.ClickJcmdCancel.ClickfQK_Menu,  z { |UCSETTING VOLDVALUE TT Please enter: T T T TZT, T-TfrmInput T  T a T  T  T - T  T- Ta.Qa Message Text: Q lblMessageTahoma{.QpcResultutxtInputTahomaa.Q7FOKaTahoma-cmdOK.Q7KF\?@ArMA$BPHBCbDEtEGGK;KL)LNOlQQQQRRR$!SS)T2T2XTU7UVDVWLW[YU~YZgZ[t![\},]`C`LaGjaYbP{bDgqjgiir>rr#sjs-sv2wwQ&xEy`fyyny}v 4}~5=\ǂh)uKن<4*ZO@tS_y՛jj%*X-'<J~Gܤ[_ǥ]c"gKH npܩvB~l&߬e3F4O\[fܲrֳ5}[ݶWzb$;UDvq<}W@[~n  ?/K)%d%@o vMnX); T[< z53 d W   G m  _       8 F"I$S I u$$f K $^&j ] &,  n&< %,.416.eV g TTCC c&h1borrarC(MD &xTMPPath  T 1aaa=1&h1borrarCON ERROR &onerr % 1CDebe existir la carpeta  !!!B%CborrarFF Q%Cbienes ~Qbienescodins%Cbultos Qbultos%Catributo Qatributo%Clineas Qlineas%Cstock 8Qstock%Clisprec hQlisprech1articuloN CCCC2N NNNNNCN NN HQ INDXobienesXatributo " "Xbultos " "Xlineas stock "QC # QC # QC  CC қ CC қQ QQ Q Q QCCXQ$QCC C C  6Q "C S # 6C %S # 6CXCX & ' *C S %S (a6  " # #borrar18300 996030&8611 001730 &8735 999675 &8795 998805 &8775 997708 8300 497 8310 270 8310 470 8400 440 8400 445 8410 445 8420 445 8430 445 8440 445 8440 440 8450 651 8450 652 8770  obienesXatributo " "Xbultos " "Xlineas Xlisprec C*Z "C S # 6C %S # 6CZstock "QC # QC # QC  CC қ CC қQ QCQ Q Q QCCXQ$QCC C C  6Q "C S # 6C %S # 6CXCX ' ( Z " # #8320 000092/ " # #8329 001092 / " # #8329 899092 / " # #8329 997092 / " # #8329 996092 / " # #8329 999092 / " # #8330 905092 / " # #8330 999092 / " # #8331 999092  "9999-000  / " # #8800 996000 / " # #8800 996001 / " # #8800 997000 / " # #8800 997001 / " # #8325 001092 / " # #8325 999092 / " # #8329 004092  "8350    " # #borrar2-o borrar2borrar1Ǽborrar4HobienesXatributo " "Xbultos " "Xlineas stock "QC # QC # QC  CC қ CC қQ QQ Q Q QCCXQ$QCC C C  6Q "C S # 6C %S # 6CXCX( ' !& "C[   " # #borrar3obienesXlineas  "Q Q QC Q QQ Q Q QCCXQ $Q Q ' C "999-3  "borrar5-o borrar5borrar3Ǽborrar63o borrar4borrar6Ǽ1borrarF 440 C MCLHEBQobienesXatributo " "Xbultos " "Xlineas Xgrupos 1stock "QC # QC # QC  CC қ CC қQ QQ Q Q QCCXQ$QCC C C  6Q "C S # 6C %S # 6CXCX& 1&  ' *C S %S (a6  " # #borrar1"oborrar1Ǽ1borrarF %Cstock }Qstock%Cbienes QbienesFG((codigoF G((codinsF && (borrar99(borrar99QF2borrar99FG((codigoF2 ~,F G((codinsEC2&% S %S FG((codigo%EC222CXF2> (F2> F2Q%Clisprec gQlisprecF(art_precC' TCa3%4TC5 % C &$CSe han subido los datos art_prec.dbf articulo.dbfBU6XTMPPATHXOKXMSGODEYFUNCGET_PATHAAAOEXXXXMENSAJEBORRARBIENESCODINSBULTOSATRIBUTOLINEASSTOCKLISPRECPEDIDOCODIGOATRBULDESCRCANTIDADPRECIODES_INSTOTALLINEAGRUPOORDENEANFACTORUVENP_EMPDISTINCTCOD_INSCLAVEBARRAS ATRIBUTOS PED_SUBIREST_ACTACTIVOBORRAR1LISTABORRAR2BORRAR4BORRAR3BORRAR5BORRAR6FORGRUPOSARTICULOCOMPRIMIR_Y_ENVIARP_CLOUD_SUBIR_DATOS SUBIR_MYSQL +QMYSQLsys_clases_conexion.prg T-G+(listados%CoSQLbO(sys_clases_conexionTges_%C TC B-FQArt_Prec  3Q2TCArt_Prec+preciosaFQArticulo>Q;TCArticulo +articulosa %Rw0Sistema WEB: actualizacin artculos al servidores_ind_gen_art.prg f3Sistema WEB: ERROR en la actualizacin de artculos BUXTMPPATHXMSGOSQLSYS_CLASES_CONEXIONPRGLISTADOSXOKOBTENER_SQL_WEB SQL_HEADERCONECTAR MENSAJE_SMENSAJE TMPPRECIOFORLISTAPRECIO SUBIR_TABLATMPARTEANALLUSER_LOG PUB_INDEX?QMYSQLsys_clases_conexion.prg  T- 6C Subiendo CCC C  ... #T C %  TC( rT  2T  LT % nC B UXALIASXTABLA XNOMBREREMOTOOSQLSYS_CLASES_CONEXIONPRGXAUTXMSGOEXOEX2 ESTADO_INCXOKSQL_SUBIR_TABLATHEN USERVALUEMESSAGE MENSAJE_S5 T T T TC T   T  T  T  T TT @T.T TCwwZipN T5TC ped_art.zipart*.DBF %<TCFTPNTT ped_art.zip#TC ped_art.zip%=Sistema de Vendedores: actualizacin de artculos al servidores_ind_gen_art.prg(TTransferencia realizada !!! Ta >T1Error al enviar la tabla de articulos por FTP !!! T-% C< =T0No se ha podido zipear la tabla de artculos !!!% yC T- BUXTMPPATHXAUTXMSGXOKD_HOSTD_FTPDIRD_USRD_PWD ES_IND_DATOSWWCLIENTFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEOXERRORZIPFILESLOCALDIRXDESTINOXRESFTPSENDUSER_LOG PUB_INDEXMENSAJE 7BUARR UTHIS RESET_DATACTTTTU THISHOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWD 4yTT TaC C   C U CFILEORIGEN CFILEDESTINOTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTP FTPCONNECTHOST FTPGETFILEEXFTPDIRLOCALDIRFTPCLOSE 4TCzipTCwwZipN%TC  %C TBC U CFILEORIGEN CFILEDESTINOXFILEXFILEDXFILEZWWCLIENTOZIPXOK2ZIPFILESTHISLOCALDIRFTPSEND 4TT TaG+(listados&T CC  8C C Conectando...C%C XC Enviando...C %C <CDesconectando... C TC kC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CBCU CFILEORIGEN CFILEDESTINOTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTPLISTADOSXMAX FILE_SIZELOCALDIRNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOST CERRORMSG FTPSENDFILEEXFTPDIRFTPCLOSEMENSAJE ESTADO_RELqH$j VC Procesados: C_ jULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNK LNTOTALBYTES ESTADO_INC-4#C*.*U LCZIPFILETHIS UNZIPFILESLOCALDIR, 4C U LCZIPFILELCFILESTHISZIPFILESLOCALDIR Subir_mysql\ Subir_Tablacomprimir_y_enviar. dummyg%INIT% Reset_Data%FtpGet8& zip_ftpSendJ'FtpSendh(OnFTPBufferUpdateV+unz,zw, U T T T T T    U LOCALDIRHOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWDFTP_CFGFTP-FTPwwFTP-qaAa11AArqAAA!AAA!ArA1AP!a%1(@`$`3s(#sBrA!AtrraqArqrrrbqQrqABrB1Aqr2AAAB3!rAFCBqBAA!AqaA3c11A1AAA31 1qsQQ2t22BAAqAA2A4:3B5arRQAQ3"bqrAAB"411BC3q2474 7u,1n144#>>>Y>,>>2`??>?@E@BXBEiFFGtG GG#x>>1%>G8 % UO dG_ G~(clases<7TC abm_motivosNTCU- BUCLASES POABMMOTIVOS SOLO_LECTURAACCESOSHOW abmmotivosBBU ABMMOTIVOS  T TFEcodigo)omotivos abmmotivos abmmotivos(FQU XCODIGOXTABLAXTABLA1MOTIVOSCODIGO ABMMOTIVOS HIJAS_ABRIR XRESULTADO HIJAS_LIBERAR ges%Ccuentas :FQcuentas%Cmotivos mFQmotivos%Cdeposito FQdepositoFBUGESCUENTASMOTIVOSDEPOSITO2 CTC]TC]UTHIS TMP_TABLA_1 TMP_TABLA_2h4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGOa TTTTUXTMPXTMP1THISFORM TMP_TABLA_1 TMP_TABLA_2 HIJAS_ABRIRXCODIGOTqcuexmotiF>>C]CF$\tmp\ C FQ% #\tmp\ .dbfU XID ABMMOTIVOSCODIGOCUEXMOTI TMP_CUEXMOTIALLIDUFORP_LOCALTHISFORM TMP_TABLA_1CUENTA DOS_COPIART'Ccuexmoti TMPTABLA2q tmptabla2F$ \tmp\ C C TMPTABLA2 %C tmp_cuexmotiFQ# \tmp\ .dbfUXID ABMMOTIVOSCODIGOOESPTHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNO TMPTABLA2P_LOCALTHISFORM TMP_TABLA_1CUENTADOS_SETDBBACK_UNO TMP_CUEXMOTI%# BCT'Ccuexmoti TMPTABLA2q tmptabla2F$ \tmp\ C %C tmp_cuexmotiF Q# \tmp\ .dbfC TMPTABLA2 UTHISDOS_ESPEJAR_MULTIPLEHIJAS_GUARDAR_DOS_MULTIPLEXID ABMMOTIVOSCODIGOTHISFORM DOS_SETDB TMPTABLA2P_LOCAL TMP_TABLA_1CUENTA TMP_CUEXMOTI DOS_SETDBBACK TTC]%C tmp_cuexmotiTFQVocuexmotiC XQCXQC 1 \tmp\Q \tmp\(& C  ZZZC Z6 ~ZC cuentascuenta>  % V > CO+CNd  >#)U XCODIGOXTABLAXTABLA1XXX TMP_CUEXMOTIABREVDESCRCUEXMOTICODIGOP_LOCALORDENCUENTACUENTASX %C tmp_cuexmoti3FQ\tmp\.*UXTABLAXTABLA1 TMP_CUEXMOTIP_LOCALdummymostrar_motivo openfilesINITusr_vld_codigoM hijas_abrir hijas_guardarvhijas_guardar_dos_multiplehijas_guardar_doso hijas_abrir5 hijas_liberar: TmotivosT TTMotivosTmotivosTMotivoT descrT descrT codigoT codigoT hlpT abmmotivos T- TP TTcodigoTcodigoTCdigoTC]TC] T-      U DOS_TABLA DOS_COPIARP_ESPEJA_MOTIVOSP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 TMP_TABLA_1 TMP_TABLA_2DEV abm_motivoshlpabm2 arqQB2!AC2qr12rA4AAArA1214q1qAr324rsArA21A3rsrABqAA13bBsrAqAA17qAAf2AB2QAQ6qAA2CABA1!!11q1111  +++^/f6p= }J X Xgg~dB%<`Nw3 | FindWindowuser32| GetParentuser32 | SetParentuser320|GetWindowThreadProcessIduser32 | GetWindowuser32%|LockWindowUpdateuser32$|GetDesktopWindowuser32"| DestroyWindowuser32)|TerminateProcesskernel32'|GetCurrentProcesskernel32|Putfocususer32 T C9 CC U FINDWINDOW GETPARENT SETPARENTGETWINDOWTHREADPROCESSID GETWINDOWLOCKWINDOWUPDATEGETDESKTOPWINDOW DESTROYWINDOWTERMINATEPROCESSGETCURRENTPROCESSPUTFOCUS GW_HWNDNEXTHWNDQLONG'QLONGQLONGQLONGTC+%CTC% BTCU TARGET_PID TEST_HWNDTEST_PIDTEST_THREAD_ID FINDWINDOW GETPARENTGETWINDOWTHREADPROCESSID GETWINDOW GW_HWNDNEXT InstanceToWndQA!q2qBAb1AAbA1@#%?# T{u3 UG(9 C TTCTC T%Cborrar1yF QDoEquiposQ Q  -Q1Q & & %Cborrar FQ (QFG((equipoF G((equipo T-QTDUn supervisor ha solicitado el cierre del sistema de forma inmediata T Tasys_equipos_cerrar(%CCBorrarCBorrar1BU ACTIVEFORM DATASESSIONID OPEN_FILESXUSRXBORRARODEYFUNCNEWFILE_LOCAL_TMPXBORRAR1XFORMBORRAR1EQCODIGOEQUIPONOMBREUSERGESUSERWINACTIVAEQUIPOSBORRARXRESXMSGXMINUTOSXFORZADOSYS_EQUIPOS_CERRAR REGISTRAR CHK_DELETED T!trsacEquipos% TDtrsacSys_mensaje_equiposEnvio de Mensajes Ta%TC% T  T )TD trsacSys_mensaje_equiposEnvio de Mensajes T %)CSe han enviado la solicitud.  BU XMINUTOSXFORZADOXMSGAAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEQOBJECT+TCCMD_BASEsys_comandos.prg TaTCT <T T F ~-pEquiposC  T-BaUXMINUTOSXFORZADOXMSGOTCMDTRSACXCOMANDOCMD_OBTENER_COMANDO TID_CERRAR PAD_VALIDEZ ODTCONTROLSRV_HORA PAD_MENSAJE PAD_FORZADOBORRAREQUIPOSCOMANDOS PASAR_A_TEXTOCODIGOEQUIPOe+TCSecuritysys_security.prg "CEquipos\BUOSEC SEC_TABLE_GETODEYFUNC CHK_OPENEDP_SYSTEM registrar transaccion open_filesqAADrqAAArraAB32A2AABABC3rqqAr3r"B1$9>4= nNT %c Z Sa32 UX TT*TCGrilla_ColumnasNUXPADREXALIASTHISPADREGR_ALIASCOLUMNASTT TTTC T  TTTUOCOLXIDOGROGRCTHISPADRE COLUMNCOUNTCOLUMNAS COLECCIONCOUNTCOLUMNSHEADER1CAPTION GR_TITULOWIDTHGR_ANCHO CONTROLSOURCEGR_CONTROLSOURCE COLUMNORDERGR_ORDENTT TTTC T  T UOCOLXIDOGROGRCTHISPADRE COLUMNCOUNTCOLUMNAS COLECCIONCOUNTCOLUMNSGR_ANCHOWIDTHGR_ORDEN COLUMNORDER,T- T-UTHISPADRECOLUMNASCLEANUPK TTTC CollectionNUXPADREXALIASTHISPADREGR_ALIAS COLECCION%CxAliasbLGT%CxOrdenbL~T @CCGrilla_ColumnaN U XTITULOXANCHOXFORMATOXCONTROLSOURCEXALIASXORDENTHISGR_ALIAS COLECCIONCOUNTADDAT-, T-UTHISPADREOCOL COLECCIONCLEANUPTT T T T T TUXPADREXTITULOXANCHOXCONTROLSOURCEXALIASXFORMATOXORDENTHIS GR_TITULOGR_ANCHO GR_FORMATOGR_CONTROLSOURCEGR_ALIASGR_ORDENPADRET-UTHISPADREInit,Aplicar Leer_Valores\CleanupInit Coll_AgregarmCleanupInit Cleanup=N T- T T-    UPADREGR_ALIASCOLUMNASD T- T- T   UPADRE COLECCIONGR_ALIASp T- T T T T T T  UPADRE GR_TITULOGR_ANCHO GR_FORMATOGR_CONTROLSOURCEGR_ALIASGR_ORDENGrilla_FormatosCustomGrilla_ColumnasCustomnGrilla_ColumnaCustom521qQa111A21qQ11A272AqA2AA=22593c i %"u/'Z50{?6Q?[A)I:+P$I%  V ]FP U;QNUMBERT T UNEWVALUETHISIF_MODO IF_CONEXIONcG~(if_drivers.vcxG+(if_drivers.prg'TCIF_Drivers.prg CU IF_DRIVERSVCXPRGTHIS IF_CONEXION CL_CONEXIONBCUTHIS IF_CONEXION ABRIR_PUERTOUBCUTHIS IF_CONEXIONREPORTAR_ERRORBCUXTEXTOTHIS IF_CONEXIONIMPRIME_NOFISCALT-UTHIS IF_CONEXIONJ/QIF_COMPROBANTEIF_Objetos.prgBCUOOBJ IF_OBJETOSPRGORESPTHIS IF_CONEXIONIF_IMPRIME_COMPROBANTEA*Q IF_CONSULTAIF_Protocolo.prgBCUOOBJ IF_PROTOCOLOPRGTHIS IF_CONEXION IF_CONSULTAS8Q IF_SUBTOTALIF_Protocolo.prgQSTRINGBCUOSUBT IF_PROTOCOLOPRGXTIPOTHIS IF_CONEXION PR_SUBTOTALT9QIF_CPBT_CIERREIF_Objetos.prgQSTRINGBCUOCIE IF_OBJETOSPRGXTIPOTHIS IF_CONEXIONPR_CIERRA_FACTURAM6Q IF_CIERREIF_Protocolo.prgQSTRINGBCUOCIE IF_PROTOCOLOPRGXTIPOTHIS IF_CONEXION PR_CIERRE_ZQ6Q IF_CANCELARif_objetos.prgQSTRINGBCUOCANC IF_OBJETOSPRGXTIPOTHIS IF_CONEXION PR_CANCELAM6Q IF_CANCELARif_objetos.prgQSTRINGBCUOCANC IF_OBJETOSPRGXTIPOTHIS IF_CONEXIONPR_CANCELAR_DOCUMENTO& CUXFIS_CONXFIS_VELTHIS IF_CONEXIONIF_ASIGNAR_IMPRESORAif_auxiliar.prgif_conversores.prgif_drivers.prgif_drivers1.prgif_drivers2.prgif_objetos.prgif_protocolo.prgG~(if_drivers.vcx fis_impresorU IF_AUXILIARPRGIF_CONVERSORES IF_DRIVERS IF_DRIVERS1 IF_DRIVERS2 IF_OBJETOS IF_PROTOCOLOVCX FIS_IMPRESORIF_Modo_Assign,INITPR_Inicializar6 FinalizarrPR_Reportar_Error}Pr_Imprime_NoFiscalDESTROY Pr_Imprime_Comprobante6 Pr_Consulta Pr_SubtotalSPr_Cierra_Factura Pr_Cierre_Z Pr_Cancela$Pr_Cancelar_DocumentoIF_Asignar_ImpresoraYDummy T-T IF_CON_BASE T          U IF_CONEXION CL_CONEXIONIF_MODOTIF_Con_FX88VF32U CL_CONEXIONT IF_CON_EPOCXU CL_CONEXIONTIF_Con_TM20VF32U CL_CONEXIONTIF_CON_EPOCXTMUU CL_CONEXIONTIF_Con_H320VF32U CL_CONEXIONTIF_Con_H320VF32U CL_CONEXION IF_Imp_BaseCUSTOM IF_IMP_LX300IIF_Imp_Base:IF_Impresoras.prgs IF_IMP_LX300EIF_Imp_Base:IF_Impresoras.prg IF_IMP_TMU220AFIIF_Imp_Base:IF_Impresoras.prg IF_IMP_TMU220AFEIF_Imp_Base:IF_Impresoras.prg IF_IMP_HPL23FIIF_Imp_Base:IF_Impresoras.prg@ IF_IMP_NCR2008IF_Imp_Base:IF_Impresoras.prgt 5!Q2q2222q222A222aA2a3aA21aQaaQqqA14111111  86 `.:M Y#&  )#,&:0)h4-^ ) U7$J:L% B =N @P 6 CR MT > Q%f 9t U%4 TT J( T#(C%C!'TC 6!T!T %C>NR,>Favor de verificar la cadena, ya que esta es demasiado larga!!R B%C.TCC.=+TCC.C>C.\TC ; T TTC (CC>5TCCC\gC6%C (CC>5TCCC\gC6TCT BU CBINARYSTRINGAVALORES CCLONEDSTRINGNACUMUL NVALORDECIMALNAPLICADECIMALESI CPARTEENTERA CPARTEDECIMAL GETMIRROR 4%C 7 BTC8TC-a6TCCCGZTC 8+aTCCCGZTC 8%T1!%!TC%T.(%T1 T0T%TC8 BUNDECIMALNDEEP CBINARYSTRING NPDECIMAL LPDECIMALRCONTROL GETMIRRORI4 TT J( TT123456789ABCDEF"T ?"T 0@"T p@"T @"T @"T 0A"T pA"T A"T  A"T  0B"T  pB"T  B"T  B"T 0C"T pC"T C"T C"T 0D"T pD"T DTC> T (% !TT CC\g% T CC\T C  BU CHEXASTRING CHEXACADENAAVALORES CCLONEDSTRINGNACUMUL NVALORDECIMALNAPLICADECIMALESRPOSRPOSXIRVALOR4 TTC> T+aTC\T%! . BCUCCADENANREFNLEN CNWCADENA4 TTC>TCR+aTC\T%! . BU CNWCADENANREFNLENCNCADENA prBinario, prDecToBin prHexadecimal- GetMirror ResetMirror <qq1Q3AAqARRA!!AQA#QAAs6q0A3d1331AA3AAA#!!!A11AAA7q1Q#!!!!!!!!!!!!!!!!!!!1AAq1AA6qAAAAA5q"AAAAA1 ) IO7zp .%S?EGKWFy\bU U!QSTRING %CxHeadbCT T%C T|!TC TU XAGREGARXANCHO XDECIMALESXPUNTOXHEADXXAGREGATHIS IF_SALIDA XXAGREGARCNV_NORMALIZARQSTRING%C; T%C] T H}~ CxAgregarbC%BC=  B CxAgregarbNOTC8T>BCCCZ0C.6CCZ\ 2~%CError if_conversores.prgUXAGREGARXENTEROS XDECIMALESXPUNTOXNUMXDECSYS_MQSTRING%C; T%C] T H} C B NRHN  TC=TCRBC.g 9BC0.g 2N BCg 2%CError IF CONVERSORES.PRGU XRECUPERARXTIPOXENTEROS XDECIMALESXNUMXDECSYS_M+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T C @FACTABRE C  C  C  C C C C C CP CP C C CN C( C( C( % N~,CCC REF6< C< C< CC B UOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGAIF_TIPOIF_LETRA IF_COPIAS IF_TIPO_FORM IF_DENSIDAD IF_IVA_TIPO IF_NOMBRE1 IF_NOMBRE2 IF_TIPO_DOCIF_CUITIF_DOM1IF_DOM2IF_DOM3 IF_REMITOS1 IF_REMITOS2+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @FACTCIERRACC C  BU OCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_TIPOIF_LETRAIF_TOTAL$QIF_ITEMIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @FACTITEMCC aC aC aC C C aCCCCaCa BUOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVAR IF_DESCRXTRA1 IF_DESCRXTRA2 IF_DESCRXTRA3IF_ACRECENTAMIENTOIF_II(Q IF_AGREGADOIF_Objetos.prgTC @FACTPAGOCC aC BU OOBJ IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_MONTOIF_CALIFICADORz1QIF_CONSULTA_ESTADOIF_Protocolo.prgTC@ESTADOC BUOESTADO IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CONSULTA*Q IF_PERCEPCIONIF_Objetos.prgTC @FACTPERCEPCCCaC a BU OPER IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_TIPOIF_MONTOIF_TASA(Q IF_SUBTOTALIF_Objetos.prgTC @FACTSUBTOTALCC BUOSUBT IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGA IF_IMPRIMEIF_IMPRIME_TEXTOq(Q IF_CIERREIF_Protocolo.prgTC@CIERREC BUOCIERRE IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CIERREd*Q IF_CANCELARIF_Protocolo.prgTC @FACTCANCEL BUOCANC IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGA*+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T T TC @TIQUEABRE CC B U OOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDAIF_TIPO CNV_AGREGA+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T C @FACTABRE C  C  C  C C C C C CP CP C C CN C( C( C( ,CCC REF6< -CCC REF26< CC B UOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGAIF_TIPOIF_LETRA IF_COPIAS IF_TIPO_FORM IF_DENSIDAD IF_IVA_TIPO IF_NOMBRE1 IF_NOMBRE2 IF_TIPO_DOCIF_CUITIF_DOM1IF_DOM2IF_DOM3 IF_REMITOS1 IF_REMITOS2+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @FACTCIERRACC C  BU OCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_TIPOIF_LETRAIF_TOTAL+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @TIQUECIERRACT BUOCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAP$QIF_ITEMIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @TIQUEITEMCC aC aC aC C C aCa BUOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVARIF_II$QIF_ITEMIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @FACTITEMCC aC aC aC C C aCCCCaCa BUOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVAR IF_DESCRXTRA1 IF_DESCRXTRA2 IF_DESCRXTRA3IF_ACRECENTAMIENTOIF_II(Q IF_AGREGADOIF_Objetos.prgTC @FACTPAGOCC aC BU OOBJ IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_MONTOIF_CALIFICADORz1QIF_CONSULTA_ESTADOIF_Protocolo.prgTC@ESTADOC BUOESTADO IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CONSULTA*Q IF_PERCEPCIONIF_Objetos.prgTC @FACTPERCEPCCCaC a BU OPER IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_TIPOIF_MONTOIF_TASA(Q IF_SUBTOTALIF_Objetos.prgTC @FACTSUBTOTALCC BUOSUBT IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGA IF_IMPRIMEIF_IMPRIME_TEXTO(Q IF_SUBTOTALIF_Objetos.prgTC@TIQUESUBTOTALCC BUOSUBT IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGA IF_IMPRIMEIF_IMPRIME_TEXTOv(Q IF_CIERREIF_Protocolo.prgTC@CIERRECP BUOCIERRE IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CIERREv(Q IF_CIERREIF_Protocolo.prgTC@CIERRECP BUOCIERRE IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CIERREd*Q IF_CANCELARIF_Protocolo.prgTC @FACTCANCEL BUOCANC IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAe*Q IF_CANCELARIF_Protocolo.prgTC @TIQUECANCEL BUOCANC IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGA4+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T "C@OpenFiscalReceipt C  CT B U OOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGAIF_LETRA4+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T "C@OpenFiscalReceipt C  CS B U OOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGAIF_TIPO2w+QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T  C@SetEmbarkNumber C2 %CC ECNO REFERENCIADO dCC   B U OOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGA IF_REMITOS1++QIF_COMPROBANTEIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgTT T T C @OpenDNFH C  CT B U OOBJ IF_OBJETOSPRGOCNV IF_DRIVERSOEMIOCOM OBJ_EMISOR OBJ_COMPRADORTHIS IF_SALIDA CNV_AGREGAIF_TIPO2x+QIF_COMPROBANTEIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prgT TT C@SetCustomerDataC 2)CC   6C HO  CUIT/CC  CUILZCL  LEC  LCC  DNIC  PAS. C  CI4C 2OC-C 2 BUOOBJ IF_OBJETOSPRGOCOM OBJ_COMPRADOROCNVTHIS IF_SALIDA CNV_AGREGA IF_NOMBREFIF_CUIT IF_IVA_TIPO2 IF_TIPO_DOCIF_DOMF+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @CloseDNFHC BU OCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGA IF_COPIAS+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TT#C@CloseFiscalReceiptC BU OCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGA IF_COPIAS+QIF_CPBT_CIERREIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TT#C@CloseFiscalReceiptC BU OCIE IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGA IF_COPIASP$QIF_ITEMIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC @TIQUEITEMCC aC  aC aC C C aCa BUOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVARIF_II,$QIF_ITEMIF_Objetos.prg(Q IF_CNV_BASEIF_Drivers.prg TTC@PrintLineItemCC aC aC daC C da BUOOBJ IF_OBJETOSPRGOCNV IF_DRIVERSTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACIONIF_II(Q IF_AGREGADOIF_Objetos.prgT C@GeneralDiscountCC aH DCm 2CMC0C  BU OOBJ IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_MONTOIF_CALIFICADOR IF_TIPOMONTO*1QIF_CONSULTA_ESTADOIF_Protocolo.prgTHR NC@STATPRN AC@StatusRequest DC@STATPRN 2C@STATPRNC BUOESTADO IF_PROTOCOLOPRGTHIS IF_SALIDAIF_TIPO_CONSULTA CNV_AGREGA*Q IF_PERCEPCIONIF_Objetos.prgTC @FACTPERCEPCCCaC a BU OPER IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGAIF_DESCRIPCIONIF_TIPOIF_MONTOIF_TASA(Q IF_SUBTOTALIF_Objetos.prgTC @SubtotalCCC BUOSUBT IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGA IF_IMPRIMEIF_IMPRIME_TEXTO(Q IF_SUBTOTALIF_Objetos.prgTC@TIQUESUBTOTALCC BUOSUBT IF_OBJETOSPRGTHIS IF_SALIDA CNV_AGREGA IF_IMPRIMEIF_IMPRIME_TEXTOv(Q IF_CIERREIF_Protocolo.prgTC@CIERRECP BUOCIERRE IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGAIF_TIPO_CIERREb(Q IF_CIERREIF_Protocolo.prgTC @DailyClose BUOCIERRE IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGA`*Q IF_CANCELARIF_Protocolo.prgTC@CANCEL BUOCANC IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGA`*Q IF_CANCELARIF_Protocolo.prgTC@CANCEL BUOCANC IF_PROTOCOLOPRGTHIS IF_SALIDA CNV_AGREGA CNV_Agrega,CNV_Normalizar_ CNV_Recuperar'CNV_AbreFacturaCNV_CierraFacturaCNV_AgregaItem' CNV_AgregaAgregado CNV_Consulta_Estado CNV_Percepcion CNV_Subtotal CNV_CIERRE CNV_CancelaNCNV_AbreTicketCNV_AbreFacturaCNV_CierraFacturakCNV_CierraTiqueCNV_AgregaTiqueItemCNV_AgregaItemCNV_AgregaAgregadoCNV_Consulta_Estado$CNV_Percepcion CNV_Subtotal!CNV_TiqueSubtotal!CNV_TiqueCIERRE" CNV_CIERRE# CNV_Cancelap$CNV_TiqueCancela%CNV_AbreTicket%CNV_AbreFacturaj'CNV_Referencia_Comprobante) CNV_AbreDNFH+CNV_Datos_Comprador,CNV_CierraDNFH/CNV_CierraFactura0CNV_CierraTique1CNV_AgregaTiqueItem2CNV_AgregaItem4CNV_AgregaAgregado6CNV_Consulta_Estado.8CNV_Percepcion9 CNV_Subtotal:CNV_TiqueSubtotal;CNV_TiqueCIERRE< CNV_CIERREr= CNV_Cancela>CNV_TiqueCancela>. T   U IF_SALIDA]      U              U     ! " # $ % & ' ( ) * + , - .U IF_CNV_BaseCUSTOMC IF_CNV_EpsonIF_CNV_Base:IF_Conversores.prgDIF_CNV_TMU200AIF_CNV_Base:IF_Conversores.prgwD IF_CNV_H320IF_CNV_Base:IF_Conversores.prgE3AQA2AA1AQA2AAAA!!A1AQA6a111a1a11aa11aaaqaAa31112A11a1112112q12112112q126a2a112a1a11aa11aaa311122A11a2A11a1112112q121121121122225a!12a!12aaQA2a12@a111111Aa2a21a21a2A11a2A1121qA12qqqA2117111211222q2q2`1@05P05055  #$=| B_# ] gii fq|rT`AMamiw""%%'& 3&&$'<(*H(()3"4)*:)&**A/*+G5+D,M:P,,R?=-.ZL.1hY13j36w65?A?6@B@CAOANBZBD D9MEMNWOQfQHRxR*T6TU(UUUV VCWOWW$|B),<=-WZO%sy)LN U+TCIF_Conversores.PRG-%C p_fis_puertobN xTT TT%UTHISIF_CNVCL_CNV P_FIS_PUERTO CON_PUERTOCON_PUERTO_VELOCIDADP_FIS_VELOCIDADH<QINTEGERQSTRINGQNUMBERQNUMBER BUNCAMPOXTIPOXENTEROS XDECIMALES"QSTRING BUXSTRING ORESPUESTA)QINTEGERBCUNBITTHIS CON_GETSTATE)QINTEGERBCUNBITTHIS CON_GETSTATE. TTUXFIS_CONXFIS_VELTHIS CON_PUERTOCON_PUERTO_VELOCIDADUk*Q IF_CONSULTAIF_Protocolo.prg"% C SB-BCUOOBJ IF_PROTOCOLOPRGTHISCON_PUERTO_ESTADOCON_ABRIR_PUERTOPR_CONSULTA_ESTADO,/QIF_COMPROBANTEIF_Objetos.prg"% C XB- TaTT C T C T C   %"TC   h%d"TC   %"TC  %%"TC  BUOOBJ IF_OBJETOSPRGORESPTHISCON_PUERTO_ESTADOCON_ABRIR_PUERTOXOK IF_RESPUESTAPR_DATOS_COMPRADORPR_REFERENCIA_COMPROBANTEPR_ABRE_FACTURAOITM OBJC_ITEMSPR_IMPRIME_ITEMSIF_TIPO OBJC_DESCRECPR_AGREGA_PAGOSDESCUENTOS OBJC_PAGOSIF_MODOOPEROBJC_PERCEPCIONESPR_REALIZA_PERCEPCIONESBaUOCPBTBaUOCPBT@TBCCUOCPBTORESP IF_RESPUESTATHIS CON_SALIDAIF_CNVCNV_ABREFACTURAH T#BCCUOITMXTIPOORESP IF_RESPUESTATHIS CON_SALIDAIF_CNVCNV_AGREGAITEMH T#BCCUODESCXTIPOORESP IF_RESPUESTATHIS CON_SALIDAIF_CNVCNV_AGREGAAGREGADOH T#BCCUOPAGOXTIPOORESP IF_RESPUESTATHIS CON_SALIDAIF_CNVCNV_AGREGAAGREGADOH T#BCCUOCANCXTIPOORESP IF_RESPUESTATHIS CON_SALIDAIF_CNV CNV_CANCELAH T#BCCUOPERXTIPOORESP IF_RESPUESTATHIS CON_SALIDAIF_CNVCNV_PERCEPCION%Cifregcom F cQCifregcom m%Cifregcom B- %C oRespuestabO0 TC(,BT"Error en la respuesta estructuradaC C    %C oRespuestabCg T T Sin Respuesta %C xOperacionbN T%CxTextobCT Sin Texto %C xPROCEDUREbC0T Sin Texto%CxErrbN[ TOrifregcom    CFQ!CU XOPERACIONXTEXTOXERR ORESPUESTA XPROCEDUREOEXP_SYSTEM XRESPUESTATEXTOMESSAGEFECHATIPOFUNCIONERROR RESULTADOIFREGCOMTHIS LOG_DATA_TXT;%C c:\IFLog.log0jTC c:\IFLog.log C TC c:\IFLog.logCCCZCCCCZ!%C oRespuestasbOC %C xPROCEDUREbC)C CU XOPERACIONXTEXTOXERR ORESPUESTA XPROCEDUREXMNFL2TEXTO B-UXBITXTIPO T   T(%C%TCC C %C FT%*** Estado de la impresora **********C C  T(o%Ck%TCC C %C NT-*** Estado del controlador fiscal **********C C  BUXSTRINGNITCMSGNIT2APRNSTATAFISSTATTHIS CON_GETSTATEP%I)CDestroy - CerrandoCt CUTHISCON_PUERTO_ESTADOLOG_DATAIF_CLOSE Gb( fx88vf32.fllC&TCCOMCZPCAbriendo Puerto COMCZ a CZbpsCt % =1Error en la apertura del puerto de comunicacionesTB-T % MAError de comunicaciones con la impresora o impresora desconectada C TC T BU XPORTXERRFX88VF32FLL IF_SERIALTHISIF_OPEN CON_PUERTOCON_PUERTO_VELOCIDADLOG_DATACON_PUERTO_ESTADOCON_REPORTAR_ERRORIF_CLOSE-QSTRINGQOBJECTQSTRING  %C oRespuestabO/TC IF_RESPUESTAIF_Protocolo.prgTCC C!%     C % j (f#'C 'BU XSTRING ORESPUESTA XPROCEDUREXERRNITIF_WRITEIF_LEERTHISLOG_DATA CON_DEBUGCON_REPORTAR_ERRORIF_READQINTEGERQSTRINGQSTRINGTC%C BC  BU NCAMPOXTIPOXENTEROS XDECIMALESXENTRADA XENTRADA2IF_READTHISIF_CNV CNV_RECUPERAR QSTRINGQSTRINGHB kT T G+( IF_Auxiliar#TCCCC 0 BC\1UXBITXTIPOXRESXENTRADA XENTRADA2THISEPOCXOCX PRINTERSTATUS FISCALSTATUS IF_AUXILIAR RESETMIRROR PRDECTOBIN PRHEXADECIMAL)QINTEGERBC UNBIT IF_ERROR1)QINTEGERBC UNBIT IF_ERROR2) TC @NOFISABRE-TC@NOFISITEM|Item no nfiscal 1-TC@NOFISITEM|Item no nfiscal 2-TC@NOFISITEM|Item no nfiscal 3TC@NOFISCIERRA|T% C TCCg B BUXTEXTONFACTURAXERRIF_WRITETHISREPORTAR_ERRORIF_READERR T   T/TBit 1 Impresora Ocupada4TBit 2 Impresora Seleccionada3TBit 3 Error en la Impresora6TBit 4 Impresora Fuera de Lnea2TBit 5 Poco papel auditora(TBit 6 Poco papel4TBit 7 Buffer impresora lleno4TBit 8 Buffer impresora vacio%T Bit 9 Sin uso%T Bit 10 Sin uso%T Bit 11 Sin uso%T Bit 12 Sin uso5T Bit 13 Cajn de Dinero Abierto%TBit 14 Sin uso1TBit 15 Impresora sin Papel0TBit 16 Bits 0-6 Activados=TBit 1 Checkeo de Memoria Fiscal !MAL!:TBit 2 Checkeo RAM de Trabajo !MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo;TBit 8 La memoria Fiscal esta LLENA BT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoYT Bit 12 ;Se llego al Mximo de Items o se requiere un cierre del da6T Bit 13 Documento Fiscal Abierto0TBit 14 Documento Abierto :TBit 15 Factura abierta, Hoja Suelta2TBit 16 OR de bits 0-8 da 1 (j%Cf"TCC C %C FT%*** Estado de la impresora **********C C  T(.%C*"TCC C %C NT-*** Estado del controlador fiscal **********C C  BUXSTRINGNITCMSGNIT2APRNSTATAFISSTAT IF_ERROR1 IF_ERROR2 +QIF_COMPROBANTEIF_Objetos.prg+Q IF_RESPUESTAIF_Protocolo.prg(Q IF_CNV_BASEIF_Drivers.prgT T 5T CC Pr_Abre_Factura T -C B UOCPBT IF_OBJETOSPRGORESP IF_PROTOCOLOXOKOCNV IF_DRIVERSTHISIF_CNV IF_RESPUESTAIF_OK CON_SALIDACNV_ABREFACTURAIF_LEER(Q IF_AGREGADOIF_Objetos.prgT(Q IF_CNV_BASEIF_Drivers.prgT ?T CC Pr_Agrega_PagosDescuentos T -C  B U OAGREGADO IF_OBJETOSPRGORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_AGREGAAGREGADOIF_LEER+QIF_CPBT_CIERREIF_Objetos.prg T(Q IF_CNV_BASEIF_Drivers.prgT 7T CC Pr_Cierra_Factura T -C  B UOCIE IF_OBJETOSPRGORESPXOK IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_CIERRAFACTURAIF_LEERN(Q IF_CIERREIF_Protocolo.prg1QIF_CONSULTA_ESTADOIF_Protocolo.prg.QIF_RE_CE_NORMALIF_Protocolo.prg+Q IF_RE_CIERREIF_Protocolo.prg(Q IF_CNV_BASEIF_Drivers.prg5TCIF_Consulta_EstadoIF_Protocolo.prgTTT C % aB-T 1T CC Pr_Cierre_Z T -C % ;TTTT B UOCIERRE IF_PROTOCOLOPRGOCONSORESP2ORESPOCNV IF_DRIVERS IF_RESPUESTAIF_OKTHISPR_CIERRE_Z_PREIF_CNV CON_SALIDA CNV_CIERREIF_LEER IF_AUD_DATO_PIF_AUDITORIA_PARCIAL IF_AUD_DATO_TIF_AUDITORIA_TOTAL IF_AUD_TEXTOIIF_AUDITORIA_TEXTO_IMPRESOR IF_AUD_TEXTOIF_AUDITORIA_TEXTO1QIF_CONSULTA_ESTADOIF_Protocolo.prg%CoConsbO5TCIF_Consulta_EstadoIF_Protocolo.prgTNBCUOCONS IF_PROTOCOLOPRGIF_TIPO_CONSULTATHISPR_CONSULTA_ESTADO1QIF_CONSULTA_ESTADOIF_Protocolo.prg T(Q IF_CNV_BASEIF_Drivers.prgT 8T CC PR_Consulta_Estado T -C  B UOCONS IF_PROTOCOLOPRGORESPXOK IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_CONSULTA_ESTADOIF_LEER$QIF_ITEMIF_Objetos.prgT(Q IF_CNV_BASEIF_Drivers.prgT 6T CC PR_Imprime_Items T -C  B U OITM IF_OBJETOSPRGORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_AGREGAITEMIF_LEER*Q IF_PERCEPCIONIF_Objetos.prgT(Q IF_CNV_BASEIF_Drivers.prgT =T CC  PR_Realiza_Percepciones T -C  B UOPER IF_OBJETOSPRGORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_PERCEPCIONOITMIF_LEER(Q IF_SUBTOTALIF_Objetos.prgT(Q IF_CNV_BASEIF_Drivers.prgT 1T CC  PR_Subtotal T -C  B U OSUBT IF_OBJETOSPRGORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDA CNV_SUBTOTALIF_LEERP%I)CDestroy - CerrandoCt CUTHISCON_PUERTO_ESTADOLOG_DATAIF_CLOSE Gb( TM20vf32.fllC&TCCOMCZPCAbriendo Puerto COMCZ a CZbpsCt % =1Error en la apertura del puerto de comunicacionesB-|SleepWin32APICa C Ca T T% MAError de comunicaciones con la impresora o impresora desconectada CTCTBUXPORTXERRTM20VF32FLL IF_SERIALTHISIF_OPEN CON_PUERTOCON_PUERTO_VELOCIDADLOG_DATASLEEPWIN32APIODEYFUNCDEVENTSCON_PUERTO_ESTADOCON_REPORTAR_ERRORIF_CLOSE-QSTRINGQOBJECTQSTRING  %C oRespuestabO/TC IF_RESPUESTAIF_Protocolo.prgTCC C!%     C % j (f#'C 'BU XSTRING ORESPUESTA XPROCEDUREXERRNITIF_WRITEIF_LEERTHISLOG_DATA CON_DEBUGCON_REPORTAR_ERRORIF_READQINTEGERQSTRINGQSTRINGTC%C BC  BU NCAMPOXTIPOXENTEROS XDECIMALESXENTRADA XENTRADA2IF_READTHISIF_CNV CNV_RECUPERAR QSTRINGQSTRINGHB kT T G+( IF_Auxiliar#TCCCC 0 BC\1UXBITXTIPOXRESXENTRADA XENTRADA2THISEPOCXOCX PRINTERSTATUS FISCALSTATUS IF_AUXILIAR RESETMIRROR PRDECTOBIN PRHEXADECIMAL)QINTEGERBC UNBIT IF_ERROR1)QINTEGERBC UNBIT IF_ERROR2) TC @NOFISABRE-TC@NOFISITEM|Item no nfiscal 1-TC@NOFISITEM|Item no nfiscal 2-TC@NOFISITEM|Item no nfiscal 3TC@NOFISCIERRA|T% C TCCg B BUXTEXTONFACTURAXERRIF_WRITETHISREPORTAR_ERRORIF_READERR T   T/TBit 1 Impresora Ocupada4TBit 2 Impresora Seleccionada3TBit 3 Error en la Impresora6TBit 4 Impresora Fuera de Lnea2TBit 5 Poco papel auditora(TBit 6 Poco papel4TBit 7 Buffer impresora lleno4TBit 8 Buffer impresora vacio%T Bit 9 Sin uso%T Bit 10 Sin uso%T Bit 11 Sin uso%T Bit 12 Sin uso5T Bit 13 Cajn de Dinero Abierto%TBit 14 Sin uso1TBit 15 Impresora sin Papel0TBit 16 Bits 0-6 Activados=TBit 1 Checkeo de Memoria Fiscal !MAL!:TBit 2 Checkeo RAM de Trabajo !MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo;TBit 8 La memoria Fiscal esta LLENA BT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoYT Bit 12 ;Se llego al Mximo de Items o se requiere un cierre del da6T Bit 13 Documento Fiscal Abierto0TBit 14 Documento Abierto :TBit 15 Factura abierta, Hoja Suelta2TBit 16 OR de bits 0-8 da 1 (j%Cf"TCC C %C FT%*** Estado de la impresora **********C C  T(.%C*"TCC C %C NT-*** Estado del controlador fiscal **********C C  BUXSTRINGNITCMSGNIT2APRNSTATAFISSTAT IF_ERROR1 IF_ERROR2a+QIF_COMPROBANTEIF_Objetos.prg+Q IF_RESPUESTAIF_Protocolo.prg/QIF_CNV_TMU200Aif_conversores.prgT T %% T%T CCCt !%T CCCt  NT -C B UOCPBT IF_OBJETOSPRGORESP IF_PROTOCOLOXOKOCNVIF_CONVERSORESTHISIF_CNV IF_RESPUESTAIF_TIPOIF_OK CON_SALIDACNV_ABRETICKETCNV_ABREFACTURAIF_LEERk6Q IF_CANCELARIF_Objetos.prgQSTRINGT/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTF /%T%T CC Ct +%T CC Ct  XT -C B UOCANC IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_TIQUETCANCELA CNV_CANCELAIF_LEERk6Q IF_AGREGADOIF_Objetos.prgQSTRINGT/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTF /%T%T CC Ct +%T CC Ct  XT -C  B U OAGREGADO IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_AGREGAAGREGADOIF_LEERr9QIF_CPBT_CIERREIF_Objetos.prgQSTRING T/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTF 6%T%T CC Ct 2%T CCCt  _T -C  B UOCIE IF_OBJETOSPRGXTIPOORESPXOK IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_CIERRATIQUECNV_CIERRAFACTURAIF_LEERP(Q IF_CIERREIF_Protocolo.prg1QIF_CONSULTA_ESTADOIF_Protocolo.prg.QIF_RE_CE_NORMALIF_Protocolo.prg+Q IF_RE_CIERREIF_Protocolo.prg(Q IF_CNV_BASEIF_Drivers.prg5TCIF_Consulta_EstadoIF_Protocolo.prgTTT C !%  oB-T  %T CCCt  T -C % =TTTT B UOCIERRE IF_PROTOCOLOPRGOCONSORESP2ORESPOCNV IF_DRIVERS IF_RESPUESTAIF_OKTHISPR_CIERRE_Z_PREOBJ_ESTADO_FISCAL IF_ITEMS_MAXIF_CNV CON_SALIDA CNV_CIERREIF_LEER IF_AUD_DATO_PIF_AUDITORIA_PARCIAL IF_AUD_DATO_TIF_AUDITORIA_TOTAL IF_AUD_TEXTOIIF_AUDITORIA_TEXTO_IMPRESOR IF_AUD_TEXTOIF_AUDITORIA_TEXTO1QIF_CONSULTA_ESTADOIF_Protocolo.prg%CoConsbO5TCIF_Consulta_EstadoIF_Protocolo.prgTNBCUOCONS IF_PROTOCOLOPRGIF_TIPO_CONSULTATHISPR_CONSULTA_ESTADO1QIF_CONSULTA_ESTADOIF_Protocolo.prg T(Q IF_CNV_BASEIF_Drivers.prgT %T CC Ct T -C  B UOCONS IF_PROTOCOLOPRGORESPXOK IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_CONSULTA_ESTADOIF_LEERg2QIF_ITEMIF_Objetos.prgQSTRINGT%CxTipobCrTF/QIF_CNV_TMU200Aif_conversores.prgT +%T%T CC Ct '%T CC Ct  TT -C B UOITM IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_AGREGATIQUEITEMCNV_AGREGAITEMIF_LEER8Q IF_PERCEPCIONIF_Objetos.prgQSTRINGT(Q IF_CNV_BASEIF_Drivers.prgT %CxTipobCTF %T CC  Ct T -C B UOPER IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_PERCEPCIONOITMIF_LEERk6Q IF_SUBTOTALIF_Objetos.prgQSTRINGT%CxTipobCvTF/QIF_CNV_TMU200Aif_conversores.prgT /%T%T CC Ct +%T CC Ct  XT -C B UOSUBT IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_TIQUESUBTOTAL CNV_SUBTOTALIF_LEERP%I)CDestroy - CerrandoCt CUTHISCON_PUERTO_ESTADOLOG_DATAIF_CLOSE Gb( H320VF32.fllC&TCCOMCZPCAbriendo Puerto COMCZ a CZbpsCt % =1Error en la apertura del puerto de comunicacionesB-|SleepWin32APICa C Ca T T% MAError de comunicaciones con la impresora o impresora desconectada CTCTBUXPORTXERRH320VF32FLL IF_SERIALTHISIF_OPEN CON_PUERTOCON_PUERTO_VELOCIDADLOG_DATASLEEPWIN32APIODEYFUNCDEVENTSCON_PUERTO_ESTADOCON_REPORTAR_ERRORIF_CLOSE-QSTRINGQOBJECTQSTRING  %C oRespuestabO/TC IF_RESPUESTAIF_Protocolo.prgTC C( C C !%   9  C %  (#'C 'BUXSTRING ORESPUESTA XPROCEDUREXERRNITIF_WRITEIF_LEERTHIS IF_VERSIONOEXLOG_DATA CON_DEBUGCON_REPORTAR_ERRORIF_READQINTEGERQSTRINGQSTRINGTC%C BC  BU NCAMPOXTIPOXENTEROS XDECIMALESXENTRADA XENTRADA2IF_READTHISIF_CNV CNV_RECUPERAR QSTRINGQSTRINGHB kT T G+( IF_Auxiliar#TCCCC 0 BC\1UXBITXTIPOXRESXENTRADA XENTRADA2THISEPOCXOCX PRINTERSTATUS FISCALSTATUS IF_AUXILIAR RESETMIRROR PRDECTOBIN PRHEXADECIMAL)QINTEGERBC UNBIT IF_ERROR1)QINTEGERBC UNBIT IF_ERROR2) TC @NOFISABRE-TC@NOFISITEM|Item no nfiscal 1-TC@NOFISITEM|Item no nfiscal 2-TC@NOFISITEM|Item no nfiscal 3TC@NOFISCIERRA|T% C TCCg B BUXTEXTONFACTURAXERRIF_WRITETHISREPORTAR_ERRORIF_READERR T   T/TBit 1 Impresora Ocupada4TBit 2 Impresora Seleccionada3TBit 3 Error en la Impresora6TBit 4 Impresora Fuera de Lnea2TBit 5 Poco papel auditora(TBit 6 Poco papel4TBit 7 Buffer impresora lleno4TBit 8 Buffer impresora vacio%T Bit 9 Sin uso%T Bit 10 Sin uso%T Bit 11 Sin uso%T Bit 12 Sin uso5T Bit 13 Cajn de Dinero Abierto%TBit 14 Sin uso1TBit 15 Impresora sin Papel0TBit 16 Bits 0-6 Activados=TBit 1 Checkeo de Memoria Fiscal !MAL!:TBit 2 Checkeo RAM de Trabajo !MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo;TBit 8 La memoria Fiscal esta LLENA BT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoYT Bit 12 ;Se llego al Mximo de Items o se requiere un cierre del da6T Bit 13 Documento Fiscal Abierto0TBit 14 Documento Abierto :TBit 15 Factura abierta, Hoja Suelta2TBit 16 OR de bits 0-8 da 1 (j%Cf"TCC C %C FT%*** Estado de la impresora **********C C  T(.%C*"TCC C %C NT-*** Estado del controlador fiscal **********C C  BUXSTRINGNITCMSGNIT2APRNSTATAFISSTAT IF_ERROR1 IF_ERROR2+QIF_COMPROBANTEIF_Objetos.prg+Q IF_RESPUESTAIF_Protocolo.prg/QIF_CNV_TMU200Aif_conversores.prgT T %T CC Ct T -C B UOCPBT IF_OBJETOSPRGORESP IF_PROTOCOLOXOKOCNVIF_CONVERSORESTHISIF_CNV IF_RESPUESTAIF_OK CON_SALIDACNV_DATOS_COMPRADORIF_LEER+Q IF_RESPUESTAIF_Protocolo.prg,Q IF_CNV_H320if_conversores.prgTT %T CC Ct T -C  B UOCPBTORESP IF_PROTOCOLOPRGXOKOCNVIF_CONVERSORESTHISIF_CNV IF_RESPUESTAIF_OK CON_SALIDACNV_REFERENCIA_COMPROBANTEIF_LEER+QIF_COMPROBANTEIF_Objetos.prg9QIF_RE_CPBT_ABRECOMPROBANTEIF_Protocolo.prg/QIF_CNV_TMU200Aif_conversores.prgCabreaT T H C T$%T CCCt , C ABabDEu%T CCCt  C RSr%T CCCt  T -C  B UOCPBT IF_OBJETOSPRGORESP IF_PROTOCOLOXOKOCNVIF_CONVERSORESSYS_MOSTRAR_SCREENTHISIF_CNV IF_RESPUESTAIF_TIPO2IF_OK CON_SALIDACNV_ABRETICKETCNV_ABREFACTURA CNV_ABREDNFHIF_LEERk6Q IF_CANCELARIF_Objetos.prgQSTRINGT/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTF /%T%T CC Ct +%T CC Ct  XT -C B UOCANC IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_TIQUETCANCELA CNV_CANCELAIF_LEERk6Q IF_AGREGADOIF_Objetos.prgQSTRINGT/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTF /%T%T CC Ct +%T CC Ct  XT -C  B U OAGREGADO IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_AGREGAAGREGADOIF_LEER9QIF_CPBT_CIERREIF_Objetos.prgQSTRING T/QIF_CNV_TMU200Aif_conversores.prgT %CxTipobCTFCCiea H C T)%T CCCt , C ABabDEz%T CCCt  C RSr%T CCCt  T -C  B UOCIE IF_OBJETOSPRGXTIPOORESPXOK IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVSYS_MOSTRAR_SCREENIF_TIPO2IF_OK CON_SALIDACNV_CIERRATICKETCNV_CIERRAFACTURACNV_CIERRADNFHIF_LEERe(Q IF_CIERREIF_Protocolo.prg1QIF_CONSULTA_ESTADOIF_Protocolo.prg.QIF_RE_CE_NORMALIF_Protocolo.prg+Q IF_RE_CIERREIF_Protocolo.prg(Q IF_CNV_BASEIF_Drivers.prgTT )%T CC Ct RT -C  B UOCIERRE IF_PROTOCOLOPRGOCONSORESP2ORESPOCNV IF_DRIVERS IF_RESPUESTATHISIF_CNVIF_OK CON_SALIDA CNV_CIERREIF_LEER1QIF_CONSULTA_ESTADOIF_Protocolo.prg%CoConsbO5TCIF_Consulta_EstadoIF_Protocolo.prgTNBCUOCONS IF_PROTOCOLOPRGIF_TIPO_CONSULTATHISPR_CONSULTA_ESTADO1QIF_CONSULTA_ESTADOIF_Protocolo.prg T(Q IF_CNV_BASEIF_Drivers.prgT %T CC Ct T -C  B UOCONS IF_PROTOCOLOPRGORESPXOK IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_CONSULTA_ESTADOIF_LEERg2QIF_ITEMIF_Objetos.prgQSTRINGT%CxTipobCrTF/QIF_CNV_TMU200Aif_conversores.prgT +%T%T CC Ct '%T CC Ct  TT -C B UOITM IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_AGREGATIQUEITEMCNV_AGREGAITEMIF_LEER8Q IF_PERCEPCIONIF_Objetos.prgQSTRINGT(Q IF_CNV_BASEIF_Drivers.prgT %CxTipobCTF %T CC  Ct T -C B UOPER IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNV IF_DRIVERSTHISIF_CNVIF_OK CON_SALIDACNV_PERCEPCIONOITMIF_LEERk6Q IF_SUBTOTALIF_Objetos.prgQSTRINGT%CxTipobCvTF/QIF_CNV_TMU200Aif_conversores.prgT /%T%T CC Ct +%T CC Ct  XT -C B UOSUBT IF_OBJETOSPRGXTIPOORESP IF_RESPUESTAOCNVIF_CONVERSORESTHISIF_CNVIF_OK CON_SALIDACNV_TIQUESUBTOTAL CNV_SUBTOTALIF_LEERINIT, CON_Entrada5 CON_SalidaCON_Error_ImpresoraCON_Error_Fiscal4IF_Asignar_ImpresoraCON_Abrir_Puerto IF_ConsultaIF_Imprime_ComprobantePr_Datos_Comprador4Pr_Referencia_ComprobanteTPr_Abre_FacturatPr_Imprime_ItemsPr_Aplica_DescuentosPr_Agrega_Pagos@  Pr_Cancela Pr_Realiza_Percepciones{ Log_Data  log_Data_txt CON_GetState#CON_reportar_ErrorMDESTROYzCON_Abrir_Puerto CON_SalidaP CON_EntradaN CON_GetStateQCON_Error_ImpresoraCON_Error_FiscalIF_Imprime_NoFiscalRCON_reportar_ErrorPr_Abre_Factura$Pr_Agrega_PagosDescuentosl&PR_Cierra_Factura' Pr_Cierre_Zt)Pr_Cierre_Z_Pre,PR_Consulta_Estado-Pr_Imprime_Items/Pr_Realiza_Percepciones0 PR_Subtotalq2DESTROY3CON_Abrir_Puertoc4 CON_Salida7 CON_Entrada9 CON_GetState:CON_Error_Impresora;CON_Error_Fiscal;IF_Imprime_NoFiscal<CON_reportar_Error=Pr_Abre_FacturaF Pr_CancelaHPr_Agrega_PagosDescuentosJPR_Cierra_FacturaL Pr_Cierre_ZNPr_Cierre_Z_PreWRPR_Consulta_EstadoOSPr_Imprime_ItemsTPr_Realiza_PercepcionesV PR_Subtotal~XDESTROYZCON_Abrir_Puerto [ CON_Salida] CON_Entrada` CON_GetStateaCON_Error_ImpresorabCON_Error_FiscalbIF_Imprime_NoFiscalcCON_reportar_Error~dPr_Datos_CompradorlmPr_Referencia_Comprobante oPr_Abre_Facturap Pr_CancelawsPr_Agrega_PagosDescuentos~uPR_Cierra_Factura}w Pr_Cierre_ZOzPr_Cierre_Z_PreD|PR_Consulta_Estado<}Pr_Imprime_Items~Pr_Realiza_Percepciones PR_SubtotalkM T T T T T-T IF_CNV_Base T TT27-0163848-435              U CON_PUERTOCON_PUERTO_VELOCIDADCON_PUERTO_ESTADO CON_DEBUGIF_CNVCL_CNVIF_MODO IF_VERSION IF_SERIALU  /TBit 1 Impresora Ocupada4TBit 2 Impresora Seleccionada3TBit 3 Error en la Impresora6TBit 4 Impresora Fuera de Lnea2TBit 5 Poco papel auditora(TBit 6 Poco papel4TBit 7 Buffer impresora lleno4TBit 8 Buffer impresora vacio%T Bit 9 Sin uso%T Bit 10 Sin uso%T Bit 11 Sin uso%T Bit 12 Sin uso5T Bit 13 Cajn de Dinero Abierto%TBit 14 Sin uso1TBit 15 Impresora sin Papel0TBit 16 Bits 0-6 Activados=TBit 1 Checkeo de Memoria Fiscal !MAL!:TBit 2 Checkeo RAM de Trabajo !MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo;TBit 8 La memoria Fiscal esta LLENA BT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoYT Bit 12 ;Se llego al Mximo de Items o se requiere un cierre del da6T Bit 13 Documento Fiscal Abierto0TBit 14 Documento Abierto :TBit 15 Factura abierta, Hoja Suelta2TBit 16 OR de bits 0-8 da 1   UAPRNSTATAFISSTATT fx88vf32.fllT IF_CNV_Epson           ! " # $ % & 'UCL_DLLCL_CNVT TM20vf32.fllTIF_CNV_TMU200A ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :UCL_DLLCL_CNVT H320VF32.fllT IF_CNV_H320 T ; < = > ? @ A B C D E F G H I J K L M N OUCL_DLLCL_CNV IF_VERSION IF_CON_BASECUSTOMN IF_Con_EPSONIF_Con_IMP_FIS:IF_Drivers.prgIF_Con_IMP_FISIF_CON_BASE:IF_Drivers.prgIF_Con_FX88VF32IF_Con_EPSON:IF_Drivers.prg4IF_Con_TM20vf32IF_Con_EPSON:IF_Drivers.prg5IF_Con_H320VF32IF_Con_IMP_FIS:IF_Drivers.prgB1A22Q2!A3!A222!qA2!qAqC"AAC"AAC"AAbB"AAA2qq2qq2qq2q12q12q12q13q12qqAqAAr!AAAAaAaAAqA2qqA!!AA1q2qQAA!aAQAA"A7aA2dc2qA9AA3A!Aa1AA2!!A2q1a1aAQ1a2!A3!A2r22A2qA1a!AAQQQQQQAa!Aa!!AA!aA!AA"A2qQA2qA3qA2R1qAA"1111A2QA2A2AqaA2qA2qA7aA2da3qA5AA3A"Aa1AA2!!A2q1a1aAQ1a2!A3!A2r22A2qA1a!AAQQQQQQAa!Aa!!AA!aA!AA"A2qqQQAA2aqAAQQAA2aqAAQQAA3AAQQAA2RqAQA"1111A2QA2QA2!qAAQQAA2qAQA2aqAAQQAA9aA2db3qA5AA3A"qAAa1AA2!!A2q1a1aAQ1a2!A3!A2r22A2qA1a!AAQQQQQQAa!Aa!!AA!aA!AA"A2qQA2qqQA2q!QRRAA2aqAAQQAA2aqAAQQAA3AQRRAA2QA2QA2QA2!qAAQQAA2qAQA2aqAAQQAA20@11A1a!AAQQQQQQAa!Aa!1 p p=P` p P`P@@1` pP`@@1 F!T%>)fd.p4/"@ 5D' Y gGe jJ = mOI rT wY I|^Uch($!{""+#d'1r')S)*k*q,t},,,A- m-D/n/9S9Y;ae;<n=w>{>BBC2C:E9FEFGF.HT:HIa* OA SD WS Wjc\i!(!n"z"##!%+@+% %%'/y,4}.R U IF_PROTOCOLO T $ CTC IF_CompradorNTTC IF_EmisorNT TC IF_Items_CollNT#TCIF_Agregado_CollNT#TCIF_Agregado_CollNTT T'T CIF_Percepciones_CollNT!T CIF_RE_SubtotalNU THIS IF_DENSIDADP_FIS_DENSIDAD OBJ_COMPRADORPADRE OBJ_EMISOR OBJC_ITEMS OBJC_DESCREC OBJC_PAGOSIF_CALIFICADOROBJC_PERCEPCIONES OBJ_SUBTOTAL T-UPADRE"TCUXVALUETHIS IF_NOMBRE1IF_CONTROLAR_CARACTERES"TCUXVALUETHIS IF_NOMBRE2IF_CONTROLAR_CARACTERES"TCUXVALUETHISIF_DOM1IF_CONTROLAR_CARACTERES"TCUXVALUETHISIF_DOM2IF_CONTROLAR_CARACTERES"TCUXVALUETHISIF_DOM3IF_CONTROLAR_CARACTERES T-UPADRE T-UPADREQSTRINGQNUMBERQNUMBERQNUMBERQSTRINGQNUMBERQSTRINGQSTRINGQSTRING QNUMBER QNUMBER CT CIF_Item NT  C  B U XDESCRIPCION XCANTIDAD XUNITARIOXIVAXCLASIFICACIONXTASAVAR XDESCRXTRA1 XDESCRXTRA2 XDESCRXTRA3XACRECENTAMIENTOXIIOITEMPADRETHISADD T-UPADREVQSTRINGQNUMBERQNUMBERQNUMBERQSTRINGQNUMBERQSTRINGQSTRINGQSTRING QNUMBER QNUMBER C OT T TTTTTTTT T U XDESCRIPCION XCANTIDAD XUNITARIOXIVAXCLASIFICACIONXTASAVAR XDESCRXTRA1 XDESCRXTRA2 XDESCRXTRA3XACRECENTAMIENTOXIITHISIF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVAR IF_DESCRXTRA1 IF_DESCRXTRA2 IF_DESCRXTRA3IF_ACRECENTAMIENTOIF_II"TCUXVALUETHISIF_DESCRIPCIONIF_CONTROLAR_CARACTERES"TCUXVALUETHIS IF_DESCRXTRA1IF_CONTROLAR_CARACTERES"TCUXVALUETHIS IF_DESCRXTRA2IF_CONTROLAR_CARACTERES"TCUXVALUETHIS IF_DESCRXTRA3IF_CONTROLAR_CARACTERESBCUTHISIF_CNV CNV_SUBTOTALBCUTHISIF_CNV CNV_SUBTOTAL *Q IF_CON_BASEIF_Protocolo.PRGTCTCTCN9TCIF_Estado_ImpresoraIF_Protocolo.PRG6T CIF_Estado_FiscalIF_Protocolo.PRGC C U OCON IF_PROTOCOLOPRGTHISIF_ESTADO_IMPRESORA CON_ENTRADAIF_ESTADO_FISCALIF_CPBT_NUMEROOBJ_ESTADO_IMPRESORAOBJ_ESTADO_FISCALIF_LEER:9Q IF_CON_BASEIF_Protocolo.PRGQINTEGERC Leer Subtotala%CxVersionbL TTCTC9T CIF_Estado_ImpresoraIF_Protocolo.PRG6T CIF_Estado_FiscalIF_Protocolo.PRGC C HY3 MT CN!T CN !TCN !TCN !TCN !TC N !TC N  3T CN!T CN !TCN !TCN !TCN !TCN T UOCON IF_PROTOCOLOPRGXVERSIONSYS_MOSTRAR_SCREENTHISIF_ESTADO_IMPRESORA CON_ENTRADAIF_ESTADO_FISCALOBJ_ESTADO_IMPRESORAOBJ_ESTADO_FISCALIF_LEERIF_ITEMSIF_TOTAL IF_TOTAL_IVA IF_TOTAL_PAGO IF_TOTAL_IIP IF_TOTAL_IIF IF_TOTAL_NETOCQSTRING C%C <TU XCALIFICADORTHISIF_CALIFICADOR T-UPADRE-QSTRINGQNUMBERQSTRING -%CT t  uTHZ TTIF_PAGO tT IF_AnulaPago D T IF_Descuento R7T IF_Recargo 2ZT IF_Descuento,TCIF_Objetos.prgTC BU XDESCRIPCIONXIMPORTEXTIPO IF_OBJETOSOITEMXCLASETHISIF_CALIFICADORPADREADDc  C%C 6T%C \TUXDESCRXMONTOTHISIF_DESCRIPCIONIF_MONTO"TCUXVALUETHISIF_DESCRIPCIONIF_CONTROLAR_CARACTERESU*Q IF_CON_BASEIF_Protocolo.PRG CTCNUOCON IF_PROTOCOLOPRGTHIS IF_FALTANTE CON_ENTRADACQSTRING C%C <TU XCALIFICADORTHISIF_CALIFICADOR T-UPADRE;QSTRINGQSTRINGQNUMBERQNUMBER -%CT t  TH> OT IF_Per_IIBB IT IF_Per_IVAG TT IF_Per_IVAD 2>T IF_Per_IIBB0TCIF_Objetos.prgTC BU XTIPO XDESCRIPCIONXMONTOXTASAOITEMXCLASETHISIF_CALIFICADORPADREADD C%C :T%C `T%C TUXDESCRXMONTOXTASATHISIF_DESCRIPCIONIF_MONTOIF_TASA"TCUXVALUETHISIF_DESCRIPCIONIF_CONTROLAR_CARACTERES:*Q IF_CON_BASEIF_Protocolo.PRG CUOCON IF_PROTOCOLOPRGINIT:DESTROYIF_Nombre1_AssignIF_Nombre2_AssignIF_Dom1_AssignXIF_Dom2_AssignIF_Dom3_Assign DESTROYfDESTROYIF_Agregar_ItemDESTROYWINITtIF_Descripcion_AssignIF_DescrXtra1_AssignR IF_DescrXtra2_Assign IF_DescrXtra3_Assign IF_Texto_Accessr IF_Texto_Access  IF_Leer  IF_Leer  INIT DESTROYB IF_Agregar_ INITz IF_Descripcion_Assign IF_LeervINIT DESTROY{ IF_AgregarINITIF_Descripcion_AssigniIF_Leer T- TaUOCTRLIF_DEPENDIENTES T-UPADRE TTFTRTSTA TTPT12 T T  T - T - T - T - T- T- T- Ta'TIF_RE_CPBT_AbreComprobante U IF_NUMEROIF_TIPOIF_TIPO2 IF_SALIDAIF_LETRA IF_COPIAS IF_TIPO_FORM IF_DENSIDAD IF_REMITOS1 IF_REMITOS2 OBJ_COMPRADOR OBJ_EMISOR OBJC_ITEMS OBJC_DESCREC OBJC_PAGOSOBJC_PERCEPCIONES OBJ_SUBTOTAL CTRL_VALIDADO CL_RESPUESTA<TTTCTPT10UIF_TIPO IF_SALIDA IF_TIPO_FORM IF_DENSIDADTCXTCX T T TTCX T T T T  T  T -      U IF_IVA_TIPO IF_IVA_TIPO2 IF_NOMBRE1 IF_NOMBRE2 IF_NOMBREF IF_TIPO_DOCIF_CUITIF_DOM1IF_DOM2IF_DOM3IF_DOMFPADRE4TCX T T- U IF_IVA_TIPOIF_CUITPADRE" T- UPADRE T T T TTM T T T T T  T  T -   U IF_DESCRIPCION IF_CANTIDAD IF_UNITARIOIF_IVAIF_CALIFICACION IF_TASAVAR IF_DESCRXTRA1 IF_DESCRXTRA2 IF_DESCRXTRA3IF_ACRECENTAMIENTOIF_IIPADRECTN TTIF_RE_Subtotal U IF_IMPRIMEIF_IMPRIME_TEXTO CL_RESPUESTAnTF TTA T TTIF_RE_CPBT_Cierre UIF_TIPOIF_TIPO2IF_LETRAIF_TOTAL IF_COPIAS CL_RESPUESTA T UIF_CPBT_NUMEROh T T T T T T T UIF_ITEMSIF_TOTAL IF_TOTAL_IVA IF_TOTAL_PAGO IF_TOTAL_IIP IF_TOTAL_IIF IF_TOTAL_NETO9 T- T   UPADREIF_CALIFICADORr T T TTTTIF_RE_Agregado T-  UIF_DESCRIPCIONIF_MONTOIF_CALIFICADOR IF_TIPOMONTO CL_RESPUESTAPADRETTUIF_CALIFICADORTtUIF_CALIFICADORTDUIF_CALIFICADORTRUIF_CALIFICADORTCUIF_CALIFICADOR T U IF_FALTANTE9 T- T   UPADREIF_CALIFICADORs T T T TTIF_RE_Percepcion T-  UIF_DESCRIPCIONIF_TIPOIF_MONTOIF_TASA CL_RESPUESTAPADRETOUIF_TIPOTIUIF_TIPOTTUIF_TIPO U IF_CPBT_CollIF_Collection:IF_Protocolo IF_ObjetoCustomIF_ComprobanteIF_Consulta:IF_Protocolo.PRGIF_Comprobante_TicketIF_Comprobante:IF_Protocolo.PRG( IF_CompradorIF_Consulta:IF_Protocolo.PRG IF_EmisorIF_Consulta:IF_Protocolo.PRG IF_Items_Coll COLLECTION[ IF_ITEMIF_Consulta:IF_Protocolo.PRG IF_SubtotalIF_Consulta:IF_Protocolo.PRG "IF_CPBT_CierreIF_Consulta:IF_Protocolo.PRG"IF_RE_CPBT_CierreIF_Respuesta:IF_Protocolo.PRG9#IF_RE_SubTotalIF_Respuesta:IF_Protocolo.PRGk#IF_Agregado_Coll COLLECTION7$ IF_AgregadoIF_Consulta:IF_Protocolo.PRG$IF_PagoIF_Agregado:IF_Protocolo.PRGV% IF_AnulaPagoIF_Agregado:IF_Protocolo.PRG% IF_DescuentoIF_Agregado:IF_Protocolo.PRG% IF_RecargoIF_Agregado:IF_Protocolo.PRG% IF_CancelarIF_Agregado:IF_Protocolo.PRG%IF_RE_AgregadoIF_Respuesta:IF_Protocolo.PRG#&IF_Percepciones_Coll COLLECTIONR& IF_PercepcionIF_Consulta:IF_Protocolo.PRG& IF_Per_IIBBIF_Percepcion:IF_Protocolo.PRGf' IF_Per_IVAGIF_Percepcion:IF_Protocolo.PRG' IF_Per_IVADIF_Percepcion:IF_Protocolo.PRG'IF_RE_PercepcionIF_Respuesta:IF_Protocolo.PRG'1A1111111Aq1p12q2q2q2q2q863 q112 A2q2q2q2q8A;A5qqaAA?ArqaAA111A8!A22AAAAAAqA:!A!A2q@17!A22AAAAA:!A!A!A2q=211q@11437433<P1P141111140141113 I / LY P  T"@ X% \( f* ( m,4 ,o46sFI qLOmR_TEV~_"}#<$\$g$ s$' ((.(>)8+,N--W--^-/`01}1M234<_ 6A < Q b 6k~wz*/O7:r"D# 'KT'H)'T))=V)*@XN*c*CZ**F\ +"+J^p+ ,Ma,0UhT0W2vq22s2 3uW3e3w34+%CDV_Ynx.R6 "T9 Courier NewC_PQ+QIF_COMPROBANTEIF_Objetos.prg&Q IF_EMISORIF_Objetos.prg)Q IF_COMPRADORIF_Objetos.prg.QIF_CTRL_TMU220AIF_Protocolo.prg*Q IF_ITEMS_COLLIF_Objetos.prg$ QIF_ITEMIF_Objetos.prg- QIF_AGREGADO_COLLIF_Objetos.prg- QIF_AGREGADO_COLLIF_Objetos.prg1 QIF_CONSULTA_ESTADOIF_Protocolo.prg2 QIF_RE_CE_CONTADORESIF_Protocolo.prg1QIF_RE_CE_DOCUMENTOIF_Protocolo.prg(Q IF_SUBTOTALIF_Objetos.prg+QIF_RE_SUBTOTALIF_Objetos.prg2QIF_ESTADO_IMPRESORAIF_Protocolo.prg/QIF_ESTADO_FISCALIF_Protocolo.prg(Q IF_CIERREIF_Protocolo.prg(Q IF_CON_BASEIF_Drivers.prg/TCIF_ComprobanteIF_Objetos.prgT TTITT Diego ZacurTSolingesT Pampa 2373T Beccar 643T Buenos AiTCUITT  20247602643TIT! REF Remito 1T" REF OC 22T#FT$AT%QC Item Nro Uno?zG?MC C C & FIS_ImpresorU(FONTNAMEOCOMP IF_OBJETOSPRGOEMIOCOMOCTRL IF_PROTOCOLOOITMSOITMOPAGOODESCOCONSORESPORESPDOSUBTORESP2OEIOEFOCIERREOCON IF_DRIVERS IF_DENSIDAD OBJ_EMISOR IF_IVA_TIPO OBJ_COMPRADOR IF_NOMBRE1 IF_NOMBRE2IF_DOM1IF_DOM2IF_DOM3 IF_TIPO_DOCIF_CUIT IF_REMITOS1 IF_REMITOS2IF_TIPOIF_LETRA OBJC_ITEMSIF_AGREGAR_ITEM FIS_IMPRESORc/QIF_COMPROBANTEIF_Objetos.prgTa%% RT;El equipo no est habilitado para emitir comprobantes tipo T-%%   PWT@El equipo no est habilitado para emitir comprobantes con letra T- BU OOBJ IF_OBJETOSPRGORESP CTRL_VALIDADOIF_TIPOTHISIF_TIPOS IF_MENSAJEIF_LETRA IF_LETRAS;QNUMBERT T UNEWVALUETHISIF_MODO IF_IMPRESORAzQSTRING%C 3T*TCIF_Impresoras.prgTU XIMP_CLASETHIS CL_IMPRESORA IF_IMPRESORAIF_MODOCUTHIS IF_IMPRESORAPR_INICIALIZARU UTHIS IF_IMPRESORAPR_REPORTAR_ERRORBCUXTEXTOTHIS IF_IMPRESORAPR_IMPRIME_NOFISCALz/QIF_COMPROBANTEIF_Objetos.prg%CbBC sB-UOOBJ IF_OBJETOSPRGORESPTHISIF_VALIDAR_COMPROBANTE IF_IMPRESORAPR_IMPRIME_COMPROBANTET9QIF_CPBT_CIERREIF_Objetos.prgQSTRINGBCUOCIE IF_OBJETOSPRGXTIPOTHIS IF_IMPRESORAPR_CIERRA_FACTURAA*Q IF_CONSULTAIF_Protocolo.prgBCUOOBJ IF_PROTOCOLOPRGTHIS IF_IMPRESORA PR_CONSULTAS8Q IF_SUBTOTALIF_Protocolo.prgQSTRINGBCUOSUBT IF_PROTOCOLOPRGXTIPOTHIS IF_IMPRESORA PR_SUBTOTALQ6Q IF_CANCELARIF_Objetos.prgQSTRINGBCUOCANC IF_OBJETOSPRGXTIPOTHIS IF_IMPRESORA PR_CANCELA?(Q IF_CIERREIF_Protocolo.prgBCUOCIE IF_PROTOCOLOPRGTHIS IF_IMPRESORA PR_CIERRE_Z& CUXFIS_CONXFIS_VELTHIS IF_IMPRESORAIF_ASIGNAR_IMPRESORA7Q IF_CON_BASEID_Drivers.prgQINTEGER%CxVersionbLb TQINTEGERHQ TCTCT CT CT CT CT CTCTC TCTC QT CT CT CT CTCTCTCTC(TCUOCON ID_DRIVERSPRGXVERSIONNITTHIS IF_OCUPADACON_ERROR_IMPRESORAIF_SELECCIONADAIF_ERROR IF_OFFLINEIF_POCO_PAPEL_AUDITORIA IF_POCO_PAPELIF_BUFFER_LLENOIF_BUFFER_VACIOIF_CAJON_ABIERTO IF_SIN_PAPELIF_06IF_BITS^ QSTRINGQINTEGER(NTC BUXSALIDANITTHISIF_BITSQINTEGER%CxVersionbLA T T  TH |/TBit 1 Impresora Ocupada4TBit 2 Impresora Seleccionada3TBit 3 Error en la Impresora6TBit 4 Impresora Fuera de Lnea2TBit 5 Poco papel auditora(TBit 6 Poco papel4TBit 7 Buffer impresora lleno4TBit 8 Buffer impresora vacio%T Bit 9 Sin uso%T Bit 10 Sin uso%T Bit 11 Sin uso%T Bit 12 Sin uso5T Bit 13 Cajn de Dinero Abierto%TBit 14 Sin uso1TBit 15 Impresora sin Papel0TBit 16 Bits 0-6 Activados 'TBit 1 No se Usa'TBit 2 No se Usa7TBit 3 Error/falla de impresora.7TBit 4 Impresora fuera de lnea.4TBit 5 Falta papel del diario4TBit 6 Falta papel de tickets8TBit 7 Buffer de impresora lleno.8TBit 8 Buffer de impresora vaco.8T Bit 9 Tapa de impresora abierta.(T Bit 10 Siempre 0.(T Bit 11 Siempre 0.(T Bit 12 Siempre 0.(T Bit 13 Siempre 0.(TBit 14 Siempre 0.@TBit 15 "Cajn de dinero cerrado o ausente.ETBit 16 'OR lgico de los bits { 3 - 6, 9 , 15 }(%C"TCC C %C wT%*** Estado de la impresora **********C C %*************************************C C  BUXSTRINGXVERSIONNITCMSGNIT2APRNSTAT IF_ERROR1f7Q IF_CON_BASEIF_Drivers.prgQINTEGER%CxVersionbLb TQINTEGERTCTCT CT CT CT CT CTCTC TC TC TC TC TCTCH$ TC $T(_TCUOCON IF_DRIVERSPRGXVERSIONNITTHIS IF_MF_ERRORCON_ERROR_FISCAL IF_RAM_ERRORIF_BATERIA_BAJAIF_COMANDO_NO_RECONOCIDOIF_DATO_INVALIDOIF_COMANDO_INVALIDO IF_OVERFLOW IF_MF_LLENAIF_MF_POR_LLENARSEIF_NRO_SERIE_CERTIFICADOIF_FISCALIZADO IF_ITEMS_MAXIF_DOC_FISCAL_ABIERTOIF_DOC_ABIERTOIF_08IF_FACTURA_ABIERTAIF_BITS^ QSTRINGQINTEGER(NTC BUXSALIDANITTHISIF_BITS QSTRINGQINTEGER%CxVersionbLK T T  TH2  =TBit 1 Checkeo de Memoria Fiscal MAL!:TBit 2 Checkeo RAM de Trabajo MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo:TBit 8 La memoria Fiscal esta LLENABT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoYT Bit 12 ;Se llego al Mximo de Items o se requiere un cierre del da6T Bit 13 Documento Fiscal Abierto/TBit 14 Documento Abierto:TBit 15 Factura abierta, Hoja Suelta2TBit 16 OR de bits 0-8 da 1 (%C"TCC C  2 =TBit 1 Checkeo de Memoria Fiscal MAL!:TBit 2 Checkeo RAM de Trabajo MAL!+TBit 3 Batera BAJA 4TBit 4 Comando NO Reconocido 6TBit 5 Campo de Datos INVALIDO OTBit 6 1Comando Invlido para el Estado Lgico del EquipoYTBit 7 ;Se va a producir el OVERFLOW en los Acumuladores del equipo:TBit 8 La memoria Fiscal esta LLENABT Bit 9 $La memoria fiscal se esta por LLENARLT Bit 10 .El Impresor tiene Nmero de Serie(Certificado)DT Bit 11 &El controlador Fiscal esta FiscalizadoLT Bit 12 .Error en ingreso de fecha o Cierre Z necesario6T Bit 13 Documento Fiscal Abierto/TBit 14 Documento Abierto3TBit 15 Sin uso, siempre en 02TBit 16 OR de bits 0-8 da 1 (. %C* "TCC C %C T-*** Estado del controlador fiscal **********C C -*********************************************C C  BUXSTRINGXVERSIONNITCMSGNIT2AFISSTAT IF_ERROR2(Q IF_CON_BASEIF_Drivers.prgTCTC9TCIF_Estado_ImpresoraIF_Protocolo.PRG6TCIF_Estado_FiscalIF_Protocolo.PRGC C U OCON IF_DRIVERSPRGTHISIF_ESTADO_IMPRESORA CON_ENTRADAIF_ESTADO_FISCALOBJ_ESTADO_IMPRESORAOBJ_ESTADO_FISCALIF_LEERTC :TC D jTC t BUXTEXTOTHIS TEXTO_ESTADOOBJ_ESTADO_FISCALTEXTOOBJ_ESTADO_IMPRESORA<9BIF_OK = COKERROR6C C UTHISIF_OKT-T-UTHIS IF_RESPUESTAIF_CNV,TCNTUTHIS IF_RESPUESTA CL_RESPUESTAPADRE3TC IF_Cnv_BaseIF_Conversores.prg9TCIF_Estado_ImpresoraIF_Protocolo.PRG6TCIF_Estado_FiscalIF_Protocolo.PRG CUTHISIF_CNVOBJ_ESTADO_IMPRESORAOBJ_ESTADO_FISCALIF_RECREAR_RESPUESTAgQINTEGER T(C>WTC\HoS T* CCazCCAZ T CC09T' CC()- 0T 2STC BUXTEXTOXTEXTORXCARNITP_FIS_CARACTERES_COMPLETOP_FIS_CARACTERES_SET1THISIF_REEMPLAZAR_CARACTERES5TCH'% ITn kTN CTa CTe CTi CTo C$Tu CƫITA C˫nTE CϫTI C֫TO CܫTU   TC _6 2%T_ BUXCARXASCP_FIS_ESPACIOS BUT-UTHIS IF_RESPUESTA,TCNTUTHIS IF_RESPUESTA CL_RESPUESTAPADRE CUTHISIF_RECREAR_RESPUESTA9QSTRING%.B-THS% NTIF_RE_CE_NORMAL A#TIF_RE_CE_CONTADORES D"TIF_RE_CE_Documento 2%TIF_RE_CE_NORMAL CUNEWVALUETHISIF_TIPO_CONSULTA CL_RESPUESTAIF_RECREAR_RESPUESTA CUBCUTHISIF_CNVCNV_CONSULTA_ESTADO(Q IF_CON_BASEIF_Drivers.prg CTCTCTCNTCT CNT CNT CNT C T C UOCON IF_DRIVERSPRGTHISIF_ESTADO_IMPRESORA CON_ENTRADAIF_ESTADO_FISCALIF_ULTIMO_COMPROBANTE_BCIF_PRIMER_CPBT_HORAIF_CIERRE_JORNADAIF_AUDITORIA_PARCIALIF_AUDITORIA_TOTALIF_AUDITORIA_TEXTO_IMPRESORIF_AUDITORIA_TEXTO7Q IF_CON_BASEIF_Drivers.prgQINTEGER CC Contadoresa%CxVersionbL THx TCNTCNT CNT CNT CNT CNT C NTC NTC NTC NTC N xtT CNT CNTCNTCNT C NUOCON IF_DRIVERSPRGXVERSIONSYS_MOSTRAR_SCREENTHISIF_ULTIMO_CIERRE_Z CON_ENTRADAIF_ULTIMO_CPBT_BCOKIF_ULTIMO_CPBT_BCIF_ULTIMO_CPBT_AOKIF_ULTIMO_CPBT_AIMP IF_ULTIMO_NOFIF_ULTIMO_NOFHIF_ULTIMO_NOF_REFIF_ULTIMO_NC_AIF_ULTIMO_NC_BC IF_ULTIMO_REd(Q IF_CON_BASEIF_Drivers.prg C]TCNUOCON IF_DRIVERSPRGTHISIF_NRO_COMPROBANTE CON_ENTRADAu(Q IF_CON_BASEIF_Drivers.prg CnTCTCUOCON IF_DRIVERSPRGTHIS IF_TIPO_DOC CON_ENTRADAIF_LETRABCUTHISIF_CNV CNV_CIERRE(Q IF_CON_BASEIF_Drivers.prg CTCNTCNTCNTCNT CNT CNT C NT C N T C N TC N TC NTCNTCNTCNTCN TCN TCN UOCON IF_DRIVERSPRGTHIS IF_NRO_CIERRE CON_ENTRADAIF_CTA_DF_CANCELADOS IF_CTA_DNFH IF_CTA_DNF IF_CTA_DF_BC IF_CTA_DF_AIF_NRO_ULTIMO_DF_BCIF_TOTAL_FACTURADOIF_TOTAL_IVA_COBIF_TOTAL_PERCEP_FACTIF_NRO_ULTIMO_DF_AIF_NRO_ULTIMO_NC_AIF_NRO_ULTIMO_NC_BCIF_NRO_ULTIMO_REMITO IF_TOTAL_NCIF_TOTAL_IVA_NCIF_TOTAL_PERCEP_NC %Cfis_Ciez 8Qfis_CiezF> >C>>>  >  > >>>>>>>>> >!">#$>%&>'(>)*>+, U-FIS_CIEZCIERRETHIS IF_NRO_CIERREFECHA CTA_DF_CANIF_CTA_DF_CANCELADOS CTA_DNF_H IF_CTA_DNFHCTA_DNF IF_CTA_DNF CTA_DF_BC IF_CTA_DF_BCCTA_DF_A IF_CTA_DF_ANRO_BCIF_NRO_ULTIMO_DF_BCMTO_FACIF_TOTAL_FACTURADO MTO_IVA_COIF_TOTAL_IVA_COBMTO_PERCIF_TOTAL_PERCEP_FACTNRO_AIF_NRO_ULTIMO_DF_ANRO_NC_AIF_NRO_ULTIMO_NC_A NRO_NC_BCIF_NRO_ULTIMO_NC_BCNRO_REMIF_NRO_ULTIMO_REMITOMTO_NC IF_TOTAL_NC MTO_IVA_NCIF_TOTAL_IVA_NC MTO_PER_NCIF_TOTAL_PERCEP_NC AUD_DATO_P IF_AUD_DATO_P AUD_DATO_T IF_AUD_DATO_T AUD_TEXTOI IF_AUD_TEXTOI AUD_TEXTO IF_AUD_TEXTO'%Cp_fis_controladorbOL T B%Cn T%C T#TCIF_Protocolo.prg T BUOCTRLXDRIVERXPORTP_FIS_CONTROLADOR P_FIS_DRIVER P_FIS_PUERTOIF_Validar_ComprobanteIF_Modo_AssignINIT PR_Inicializar  Finalizar PR_Reportar_Estado PR_Imprime_NoFiscalK PR_Imprime_Comprobante PR_Cierra_Factura  PR_Consulta#  PR_Subtotal  PR_CancelaC  PR_Cierre_Z IF_Asignar_Impresora\IF_Leer Estado_BITSQTextoIF_Leer Estado_BITSTextoIF_Leer")Texto* Texto_Estadou+DESTROY+IF_Recrear_Respuesta ,INITf,IF_Controlar_Caracteresm-IF_Reemplazar_CaracteresJ/IF_Texto_Access1DESTROY1 IF_Recrear_Respuesta1 INITA2 IF_Tipo_Consulta_Assignu2 INIT3 IF_Texto_Access4 IF_LeerR4 IF_Leer_6 IF_Leer9 IF_Leer:IF_Texto_Access\;IF_Leer; Tbl_Graba?Obtener_Controlador%CT IF_IMP_LX300EU CL_IMPRESORA@TIF_IMP_TMU220AFITFTMTABCU CL_IMPRESORAIF_TIPOS IF_LETRASTIF_IMP_NCR2008U CL_IMPRESORATIF_IMP_HPL23FIU CL_IMPRESORA T-T IF_IMP_BASE TTFDRNELCMTABCEX T         U IF_IMPRESORA CL_IMPRESORAIF_MODOIF_TIPOS IF_LETRAS IF_MENSAJE T- T- T- T- T- T- T- T- T- T - T -  T    U IF_OCUPADAIF_SELECCIONADAIF_ERROR IF_OFFLINEIF_POCO_PAPEL_AUDITORIA IF_POCO_PAPELIF_BUFFER_LLENOIF_BUFFER_VACIOIF_CAJON_ABIERTO IF_SIN_PAPELIF_06IF_BITS T- T- T- T- T- T- T- T- T- T - T - T - T - T - T- T- T   U IF_MF_ERROR IF_RAM_ERRORIF_BATERIA_BAJAIF_COMANDO_NO_RECONOCIDOIF_DATO_INVALIDOIF_COMANDO_INVALIDO IF_OVERFLOW IF_MF_LLENAIF_MF_POR_LLENARSEIF_NRO_SERIE_CERTIFICADOIF_FISCALIZADO IF_ITEMS_MAXIF_DOC_FISCAL_ABIERTOIF_DOC_ABIERTOIF_FACTURA_ABIERTAIF_08IF_BITSr T T T- T- T- T- Ta   UIF_ESTADO_IMPRESORAIF_ESTADO_FISCALIF_OKOBJ_ESTADO_FISCALOBJ_ESTADO_IMPRESORAPADRE CTRL_VALIDADO T- T T-T IF_Respuesta Ta T- T-      U IF_RESPUESTAIF_TEXTOIF_CNV CL_RESPUESTA CTRL_VALIDADOOBJ_ESTADO_IMPRESORAOBJ_ESTADO_FISCALE T-T IF_Respuesta   U IF_RESPUESTA CL_RESPUESTAKTNTIF_RE_CE_NORMAL ! " #UIF_TIPO_CONSULTA CL_RESPUESTA TTCXTCXT T T T T T $U IF_ULTIMO_COMPROBANTE_BCIF_PRIMER_CPBT_FECHAIF_PRIMER_CPBT_HORAIF_PRIMER_CPBT_FECHAHORAIF_CIERRE_JORNADAIF_AUDITORIA_PARCIALIF_AUDITORIA_TOTALIF_AUDITORIA_TEXTO_IMPRESORIF_AUDITORIA_TEXTO T T T T T T T T T T  T  %U IF_ULTIMO_CIERRE_ZIF_ULTIMO_CPBT_BCOKIF_ULTIMO_CPBT_BCIF_ULTIMO_CPBT_AOKIF_ULTIMO_CPBT_AIMP IF_ULTIMO_NOFIF_ULTIMO_NOFHIF_ULTIMO_NOF_REFIF_ULTIMO_NC_AIF_ULTIMO_NC_BC IF_ULTIMO_RE T &UIF_NRO_COMPROBANTE' T T 'U IF_TIPO_DOCIF_LETRABTXTPT IF_RE_CIERRE (UIF_TIPO_CIERRE IF_IMPRIME CL_RESPUESTA( T T T T T T T T T T  T  T  T  T  T T T T T T T ) *U IF_NRO_CIERREIF_CTA_DF_CANCELADOS IF_CTA_DNFH IF_CTA_DNF IF_CTA_DF_BC IF_CTA_DF_AIF_NRO_ULTIMO_DF_BCIF_TOTAL_FACTURADOIF_TOTAL_IVA_COBIF_TOTAL_PERCEP_FACTIF_NRO_ULTIMO_DF_AIF_NRO_ULTIMO_NC_AIF_NRO_ULTIMO_NC_BCIF_NRO_ULTIMO_REMITO IF_TOTAL_NCIF_TOTAL_IVA_NCIF_TOTAL_PERCEP_NC IF_AUD_DATO_P IF_AUD_DATO_T IF_AUD_TEXTOI IF_AUD_TEXTO IF_CTRL_LX300IF_Control:IF_Protocolo.prgGIF_CTRL_TMU220AIF_Control:IF_Protocolo.prg(HIF_CTRL_NCR2008IF_Control:IF_Protocolo.prgH IF_CTRL_HPL23IF_Control:IF_Protocolo.prgH IF_ControlCUSTOMHIF_Estado_ImpresoraCUSTOMqqqqq1qA1A1AI7A7QQA9A10A2AAqQA3qAAA111111Q!51p11p130 3431<16731-F9R= D ! F%!%!G!!I!>"LJ"b#Sn#$ V$$#Y$%&\!%%)_%&,bJ&&0fb)1I1O2l2=?DD1ENET)UWw13WX=9X~X?Z0ZB]ZZEZ[J[Z^^f^/aXacabbb c=cZcdfgg 7geg mikmt5uviwMxtyy}Ą.c!9%')A&>*(=<Q>TiTXptSYma>bfcQdogXhklt*uvhwwWxr9yy~z8%l R`6X %CE%T\\server\d$\transgespro\ TCxchg\ *.*(*.*TArchivos copiados(TError:  BUXMSGXERRORXDESTXORIGODEYFUNCGET_PATHOEXMESSAGEQAA1%mX TC %"Td:\sistema\system_heba C Ta Ta\data\1\ges.dbc TC:\sistema\2000\tmp T T HEB  T a"T C Ct Atencin6(CInicio Faltantes %%C5TC!Obteniendo faltantes por depsito T TH SCH]tsql_rptinventarioactualFG0001 0012 Faltantes por Depsito 2\sql_rptinventarioactualFaltantes por Depsito1%C\tmp\rptinventarioactual.dbf00Q\tmp\rptinventarioactual.dbfF3%CNe TC No hay datos !TC Genero el XLS#CFaltantes por Depsito%TCEnviando por mail Tsys_mail_alertasFaltantes por Depsito-Se adjunta reporte de faltantes por depsito. \xchg\Faltantes por Depsito.xls%C&TCEnviado a la cola. !TCError: C$%CrptinventarioactualQ%C1TCObteniendo faltantes globales T TH[ SCHSsql_rptinventarioactualFG Faltantes 2[Osql_rptinventarioactual Faltantes1%C\tmp\rptinventarioactual.dbf00Q\tmp\rptinventarioactual.dbfF3%CN TC No hay datos K!TC Genero el XLSC Faltantes%TCEnviando por mail Tusys_mail_alertas Faltantes Se adjunta reporte de faltantes.\xchg\Faltantes.xls%C&TCEnviado a la cola. G!TCError: C$%Crptinventarioactual{Q 8C!Salgo porque p_notificar_stkmin=0 BC$C Fin Faltantes BUXTIPOXPRUEBA P_SYSTEM2 DEY_FUNC2SETSP_DEV P_SUSPENDP_SYSTEMP_LOCALP_DOSP_EMPXSOLOLOG XMSGTITULOMENSAJEP_NOTIFICAR_STKMIN XID_LOG_AUT1LOG_AUTXERRXMSGEXPORTAR_FALTANTESSQL_RPTINVENTARIOACTUALRPTINVENTARIOACTUAL GENERAR_XLSSEND_EMAIL_ALERTASSYS_MAIL_ALERTASP_NOTIFICAR_STKMIN_MAILTOP_SERVER~  TCW TrptinventarioactualG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTT C CcodigoCdigo CatrAtr CbulBul #Cdescr Descripcin ClineaLnea (C lineadescr Descr.Lnea CdmedUnidad #CcantidadCantidad 2Ccant_comComprometido en Pedidos .Ccant_pedPedidos sin Aprobar &CocOrdenes de Compra *CopOrdenes de Produccin %/C stkmindepMnimo por Depsito CstkminMnimo T C #G(9 -<\tmp\reporte.xls(\xchg\.xls FBUXARCHIVOXPOR_DEPXAREAXTMPARCHLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDP_LOCALP_SERVER generar_xls 5AQ#D!2RaICrA"3R aAABABBa8ArA"cRSaAABABBAABB2r#!11!aA AA2^ *%&H '% C a Ta Ta( c:\sistema\system\data\1\ges.dbc T  Ta"TCCt Atencin6/CInicio IN_FALTANTES_TASK /CClculo de das de stock ,T CClculo de das de stock  aC 'CEstado del stock $T CEstado del stock  T Ca%C C C ,CFin IN_FALTANTES_TASK UXPRUEBASETS DEY_FUNC2P_DEV P_SUSPENDCP_DOSXSOLOLOG XMSGTITULOMENSAJE XID_LOG_AUT1LOG_AUT PR_DIAS_STOCKXMSGIN_CONSULTA_FALTANTESqAQB!rBrA1%3H 3  Ta TCt T%C a T%C<C%Inicio SYS_Mail_Task SIN DESTINATARIOB-0CInicio SYS_Mail_Task TC-CFin SYS_Mail_Task U XDESTINATARIO XENVIO_TIPOXSOLOLOG XMSGTITULOXMSGXOKP_MAIL_SEND_TIPOMENSAJESYS_MAIL1!AqAb2%v ^1H  Ta TCt T%C ] T2CInicio SYS_Mail_Spool_Task TCa3CFin SYS_Mail_Spool_Task U XENVIO_TIPOXSOLOLOG XMSGTITULOXMSGXOKP_MAIL_SEND_TIPOMENSAJESYS_MAIL_SPOOLq1!A"21Ks%qQŪK"^YP USYS_CLASES_TABLASPRGL+TCSecuritysys_security.prgTCaUOLSECTHIS DIR_TABLATMP SEC_TABLE_GETFh1 \AGIP.DBFD DDC  C C C N   N   N  N  Q N & QUP_SYSTEMFPUBFVDESDEFVHASTACUITTIPOABCAMBIADAPERCEPRETENCGPERCEPGRETENCTXTVERAGIP4 %C oMailSpoolbO- CU OMAILSPOOL CERRAR_TABLA4 %C oMailSpoolbO- CU OMAILSPOOL ABRIR_TABLAX TC %C oMailSpoolbOH C BUXALIASXRES OMAILSPOOL CERRAR_TABLAUXEXCLUXALIASXAUTXAGAINFh1 \MailCola.DBFT N N M N N C  C  C  T  C  N  Cx Cx M M M M M M M C  T N M M M M %& kMACHINE & kMACHINEQUP_SYSTEMFECHAESTADOINTENTOS RESPUESTASUSREMPCOMPROBCAUSACODIGO ENV_DESDE SMTP_HOST SMTP_PORT AUTH_LOGIN AUTH_PASSMAILTOREPLYTOSUBJECTMESSAGEATTACHMAILFROM FROM_NAMEID INIT_PROCAVISADO MAILTONAMEMAILCC MAILCCNAMEMAILCCO PENDIENTESMAILCOLA FJh1 \co_func.dbfNC<Nctrl co_funcionesQ(  gesU P_SYSTEMCODIGODESCRVERSION R_CO_FUNCCTRLCO_FUNC_INICIALIZAR CO_FUNCIONESCO_FUNCOEXGES F  TCCC6Th1C  DC   C  N N N NMctrlQCUXFILEXPATHP_PDF_REVISION_PATHP_SYSTEMTHISNOMBREIDUFECHACOMPROBCAUSAREVISIONUSREMPZIPPEDDATA R_PDFSTORECTRLKFh1 \rec_upd_CCZ.dbfCN NDN NC  N  N  Cd C & & & & CZ & & & UP_SERVERP_CODEMPTABLAREGISTROPATHULT_MODUSRPENDID_TTS OPERACIONREG_UPDPROGRAMAIDUTABLARECFh1 \Imp_stru.DBFC  NNNCCMC C N N CQ UP_SYSTEMIDTIPOSUBTIPOVERSIONNOMBREFORMATODESCRCAMPODBFFORMOPCIONAL TIPOCAMPOEMPIMP_STRUFh1 \Imp_sets.DBFC  NNNN MCL L N C C LLCQUP_SYSTEMIDTIPOSUBTIPOVERSIONCOD_BANOBS DESCR_AUTO USAR_CELDAUSAR_CSV LXLS_OFFSE LXLS_POINT LXLS_SEPAR LCSV_HEAD LCSV_CHAREMPIMP_SETSFjh1 \log_aut.DBFC  CdTTM& & & & QUP_SYSTEMIDIDTINICIOFINTEXTOIMP_STRU_FLh1\pd_demoras.dbfN CC QUP_SYSTEMCODIGODESCRIDU PD_DEMORAS \gessystemFh1 \stockg.dbfCCCNNNNQ gesU P_SYSTEMCODIGOATRBULCANTIDADCANT_COMCANT_PEDCANT_PRDSTOCKGGES \gessystemFh1 \stkxdepg.dbfCCCCCNNNQ gesU P_SYSTEMCODIGOATRBULDEPOSITODESPACHOCANTIDADCANT_COMCANT_PRDSTKXDEPGGES Fh1 \locksold.dbfNNCTTCCC NQ (  gesU P_SYSTEMUSUARIOEQUIPOTABLAF_LOCKF_UNLOCKDES_USERDES_PCPRGEMPLOCKSOLDOEXGES Fh1 \locks.dbfNNCTTCCC N C Q (  gesUP_SYSTEMUSUARIOEQUIPOTABLAF_LOCKF_UNLOCKDES_USERDES_PCPRGEMPSESIONLOCKSOEXGES FAh1 \version.dbfTN&rversionCQ(   gesUP_SYSTEMVERSION VERSION_NOEXGESErtipoimpC]CDespachofaBrtipoimpC]CFletefaCrtipoimpC]CSegurofaMrtipoimpC]CGastos BancariosfaHrtipoimpC]C DespachantefaDrtipoimpC]CFOB/EXWfaBrtipoimpC]COtrosfaUIDUCODIGODESCRFIJOFih1 \tipoimp.dbfN CLLN C  C& & Q U P_SYSTEMCODIGODESCRPOSIBLEFIJOINTEGRAIDUTHISINICIALIZAR_DATOSTIPOIMP!dey_funcclientes!dey_funciibbpereF*~ C  [riibbpere   FQF QU CHK_OPENEDDEY_FUNCCLIENTESIBPERDIBPERHCOD_CLI PROVINCIACODIGOALICUOTADESDEHASTAIBPERIIBBPERE CUTHIS LLENAR_IDUtFGh1 \cajas.dbfN C(C ctrlcajasQUP_SERVERCODIGODESCRIDULLAMADO_EXTERNOCTRLCAJASl%e SQF CFQ(aUTHIS VALIDADORVLD_OKXDIRXARCHPRUEBA_VALIDACION FN_CASHRESUOEXa%C!prueba_validacion.codautorizacionbU'Cprueba_validacion.codautorizbN yTaB-BaUTHIS VALIDADOR VLD_DAADA: T- T- TO%Cdbt_fecp.codautorizacionbUCdbt_fecp.codautorizbN Ta i1dbt_fecp((TC  TaK%Cdbt_fecp.emisiontipobUCdbt_fecp.emisiontipbC  Ta gi1dbt_fecp( (TC  Ta% TReparada % )TNo hay reparacin automticaC B U OEXXERRORXREPARARXMSGDBT_FECP CODAUTORIZCODAUTORIZACIONMESSAGE EMISIONTIP EMISIONTIPOTHIS VALIDADOR VLD_INFORMARXrmailasigC]OtrosZrmailasigC]PedidosUIDUCODIGONOMBRECOD_MAILUSROBSFwh1 \mailasig.DBFC NCdNNM CQ U P_SERVERIDUCODIGONOMBRECOD_MAILUSROBSTHISINICIALIZAR_DATOSMAILASIGArmailctas     C] NoReply GESmail.solinges.com.ar noreply@solinges.com.arChendrixnoreply@solinges.com.ar NoReply GESCuenta por defecto#rmailctas     C] Alertas GESsmtp.gmail.comalertas.ges@gmail.comC jimmyhendrixalertas.ges@gmail.com Alertas GESCuenta por defecto para alertasUIDUCODIGONOMBREENGINESSLHOSTPORT AUTHLOGINAUTHPASSFROMFROMNAMEREPLYTOTIPOOBSOCRYPTENCRYPTH2TC GES_CRYPTOSys_Clases_Crypto.PRGFh1 \mailctas.DBFC NCdNNCdN Cd Cd Cd Cd CdNM CQUOCRYPTP_SERVERIDUCODIGONOMBREENGINESSLHOSTPORT AUTHLOGINAUTHPASSFROMFROMNAMEREPLYTOTIPOOBSTHISINICIALIZAR_DATOSMAILCTAS T-%Cnumrec GQnumrec TaF%CN(crnumrec%QUXOPENNUMRECZIDzFgh1 \seguim.dbfC CNTNLQUP_SERVERCOMPROBCAUSAMOTIVOFECHAUSROKSEGUIM BCZUXCOD_CLI XSUCURSAL* BCCUXCOD_CLI XSUCURSALTHISID_BUSCARSE_CODIGOID_CODIGO_GENERARF>h1\bienes_busq.dbfCC(& & bienes2aaQUP_SERVERIDWORDIDWORDSINCRONIZAR_TODOBIENES2 BIENES_BUSQ^FKh1\cligruece.dbfN C(C QUP_SERVERCODIGODESCRIDU CLIGRUECEOF<h1\cligruecd.dbfN CQUP_SERVERCODIGOCOD_CLI CLIGRUECDlFYh1 \pickings.dbfN N DNQUP_SERVERPICKINGPEDIDOFECHAUSRPICKINGS{Fhh1 \sectores.dbfC CNC(C QUP_SERVERCODIGOCOD_CLICODDESCRIDUSECTORES G(gesFh1C DBT_BFEC.DBFJDBT_BFECN N  N  N N N N  N  N  N  N  C N  C N N N C QUGESP_SERVERTIPO_DOCNRO_DOCCBTE_NRO FECHA_CBTE FCH_VENC_CAE IMP_TOTAL IMP_TOT_CONCIMP_NETO IMP_OP_EXIMPTRIBIMPIVA IMP_MONEDA_IDIMP_MONEDA_CTZ RESULTADOCAE PUNTO_VTA TIPO_CBTEOBSDBT_BFECFh1 \psolcom.dbfN NNDCNNL M 5  T NT S ctrlpsolcomQUP_SERVERSOLITMITMPFECHACOD_PROMONEDAPRECIOACEPTADONOTASPREGUNTOIDXCDXLLAMADO_EXTERNOCTRLPSOLCOM9TCDatabasevG( gessystemFh1\Plantillas_XLS.DBFC C2NCdMN  N T N N& & & Q set database to &olddb UOLDDB GESSYSTEMP_SYSTEMIDUID_FORMCODIGONOMBRE PARAMETROSPAR_USRPRIVADOFECHAEMPINTERNOPLANTILLAS_XLSTCDatabasev G(gesFh1Propiedades.DBFC NNNNNN N C C C C2CdN& & & & *&  C Qset database to &olddb UOLDDBGESIDUCODIGOPADRE CODIGO_ORIACCIONTIPO AUTOMATICOHIJOSCCOD_INSBULATRNOMBREARBOLETIQUETA CODHEADER PROPIEDADESTCDatabasev G(gesFh1Propiedades.DBFC NNNNNN N C C C C2CdN& & & & *&  C Qset database to &olddb UOLDDBGESIDUCODIGOPADRE CODIGO_ORIACCIONTIPO AUTOMATICOHIJOSCCOD_INSBULATRNOMBREARBOLETIQUETA CODHEADER PROPIEDADES)TCDatabasev G(gesFh1Prop_Predet.DBFC NC2CCCM& & & & &  Q set database to &olddb U OLDDBGESIDUCODIGONOMBRECOD_INSBULATRPROPS CODHEADER PROP_PREDETFh1\dpickings.dbfN CCCCCNN N ctrl dpickingsQ U P_SERVERPCKCODBULATRDEPDSPCANITMESTLLAMADO_EXTERNOCTRL DPICKINGSFXh1 \barras.dbfCCCGGctrlbarrasQU P_SERVERCODIGOATRBULEAN13DUN14LLAMADO_EXTERNOCTRL DPICKINGSFvh1 \mix_adic.dbfCCCC(DNctrlmix_adicQ U P_SERVERCODIGOATRBULDESCRFECHACANTIDADLLAMADO_EXTERNOCTRL DPICKINGSF~h1\plataformas_aux.dbfCC NNNN$ctrlplataformas_auxQ U P_SERVERREF_EXT PLATAFORMA EST_ENVIO USUARIO_ID ETQ_IMPRES FCE_SUBIDALLAMADO_EXTERNOCTRLPLATAFORMAS_AUXFvh1\tareas_estado.dbfCN C<MNT"ctrl tareas_estadoQ U P_SYSTEMID RESULTADONOMBREMENSAJECODEMPFECHALLAMADO_EXTERNOCTRL TAREAS_ESTADOFh1 \ventasd.dbfC CNCMMMctrlventasdQ U P_SERVERCOMPROBCAUSAITEMDESPACHOQRCFGSERIELLAMADO_EXTERNOCTRLVENTASDFfh1 \estven.dbfN C(NNC ctrlestvenQU P_SERVERCODIGODESCRVIGENTEPOPUPIDULLAMADO_EXTERNOCTRLESTVENFYh1 \tcccompd.dbfN C2C2C2ctrltcccompdQUP_SERVERORDENSOLICITARETIRAAPRUEBALLAMADO_EXTERNOCTRLTCCCOMPDFgh1 \promail.dbfCC2C2CC<ctrlpromailQU P_SERVERCOD_PRONOMBREEMAILMAILTIPOOBSLLAMADO_EXTERNOCTRLPROMAILCPosCrearFTCTarea_PasarMails_a_ProMailsys_verificar2_Tareas.prg%C CUOTAREASYS_MEJECUTAR_SI_NECESITAMENSAJEvFHh1 \estimp.dbfN C(C ctrlestimpQUP_SYSTEMCODIGODESCRIDULLAMADO_EXTERNOCTRLESTIMP{F?h1\sga_msgN CM Cctrlsga_msgQU P_SYSTEMCODIGOIDMSGTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRLSGA_MSGHrsga_msg H200Explosivo inestable.\rsga_msg H201(Explosivo, peligro de explosin en masa.\rsga_msg H202(Explosivos; grave peligro de proyeccin.vrsga_msg H203BExplosivo; peligro de incendio, de onda expansiva o de proyeccin.Xrsga_msgH204$Peligro de incendio o de proyeccin.ersga_msgH2051Peligro de explosin en masa en caso de incendio.Rrsga_msgH220Gas extremadamente inflamable.Crsga_msgH221Gas inflamable.Vrsga_msgH222"Aerosol extremadamente inflamable.Grsga_msgH223Aerosol inflamable.arsga_msgH224-Lquido y vapores extremadamente inflamables.Vrsga_msgH225"Lquido y vapores muy inflamables.Srsga_msgH226Lquidos y vapores inflamables.Frsga_msgH228Slido inflamable.brsga_msgH240.Peligro de explosin en caso de calentamiento.mrsga_msgH2419Peligro de incendio o explosin en caso de calentamiento.arsga_msgH242-Peligro de incendio en caso de calentamiento.grsga_msgH2503Se inflama espontneamente en contacto con el aire.brsga_msgH251.Se calienta espontneamente, puede inflamarse.xrsga_msgH252DSe calienta espontneamente en grandes cantidades, puede inflamarse.rsga_msgH260ZEn contacto con el agua desprende gases inflamables que pueden inflamarse espontneamente.hrsga_msgH2614En contacto con el agua desprende gases inflamables.ersga_msg H2701Puede provocar o agravar un incendio; comburente.orsga_msg!H271;Puede provocar un incendio o una explosin; muy comburente.Zrsga_msg"H272&Puede agravar un incendio; comburente.zrsga_msg#H280FContiene gas a presin; peligro de explosin en caso de calentamiento.rsga_msg$H281NContiene un gas refrigerado; puede provocar quemaduras o lesiones criognicas.Yrsga_msg%H290%Puede ser corrosivo para los metales.Prsga_msg&H300Mortal en caso de ingestin.Prsga_msg'H301Txico en caso de ingestin.Prsga_msg(H302Nocivo en caso de ingestin.Yrsga_msg)H303%Toxicidad aguda en caso de ingestin.rsga_msg*H304NPuede ser mortal en caso de ingestin y penetracin en las vas respiratorias.Srsga_msg+H310Mortal en contacto con la piel.Srsga_msg,H311Txico en contacto con la piel.Srsga_msg-H312Nocivo en contacto con la piel.trsga_msg.H314@Provoca quemaduras graves en la piel y lesiones oculares graves.Orsga_msg/H315Provoca irritacin cutnea.drsga_msg0H3170Puede provocar una reaccin alrgica en la piel.Ursga_msg1H318!Provoca lesiones oculares graves.Trsga_msg2H319 Provoca irritacin ocular grave.Nrsga_msg3H320Provoca irritacin ocular.Qrsga_msg4H330Mortal en caso de inhalacin.Qrsga_msg5H331Txico en caso de inhalacin.Qrsga_msg6H332Nocivo en caso de inhalacin.rsga_msg7H334]Puede provocar sntomas de alergia o asma o dificultades respiratorias en caso de inhalacin.Yrsga_msg8H335%Puede irritar las vas respiratorias.Yrsga_msg9H336%Puede provocar somnolencia o vrtigo.Vrsga_msg:H340"Puede provocar defectos genticos._rsga_msg;H341+Se sospecha que provoca defectos genticos.Jrsga_msg<H350Puede provocar cncer.Srsga_msg=H351Se sospecha que provoca cncer.crsga_msg>H360/Puede perjudicar la fertilidad o daar al feto.krsga_msg?H3617Se sospecha que perjudica la fertilidad o daa al feto.brsga_msg@H362.Efectos sobre la lactancia o a travs de ella.Qrsga_msgAH370Provoca daos en los rganos.Xrsga_msgBH371$Puede provocar daos en los rganos.{rsga_msgCH372GProvoca daos en los rganos tras exposiciones prolongadas o repetidas.{rsga_msgDH373GProvoca daos en los rganos tras exposiciones prolongadas o repetidas.]rsga_msgEH400)Muy txico para los organismos acuticos.|rsga_msgFH410HMuy txico para los organismos acuticos, con efectos nocivos duraderos.xrsga_msgGH411DTxico para los organismos acuticos; con efectos nocivos duraderos.xrsga_msgHH412DNocivo para los organismos acuticos, con efectos nocivos duraderos.rsga_msgIH413NPuede ser nocivo para los organismos acuticos, con efectos nocivos duraderos.rsga_msgJP270ٞP304 + 312: No comer, beber ni fumar durante su utilizacin. P301 + P312 - En caso de ingestin, llamar al Hospital Nacional Posadas. No ingerir la sustancia.rsga_msgKمEste producto no es peligroso de acuerdo el sistema globalmente armonizado de clasificacin y etiquetado de productos qumicos (SGA).UCODIGOIDMSGFh1\cfg_ventas.dbfN C(C C C C C C  C  C  C  C  C C C C C C C C C C C C  Cctrl cfg_ventasQUP_SERVERCODIGODESCRIDUI_FABE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3C_LPTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRL CFG_VENTAS#Cinicializar cfg_ventas%Ccfg01 KQcfg01F>>CONFIGURACION POR DEFECTOC]F#)>H>H> H> H> H> H> H>H>H>H>H>H>H>H>H>H>H>H>H>%Ccfg01QUSYS_MCFG01 CFG_VENTASCODIGODESCRIDUI_FABCUENTAE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3Fh1\plataformas_config.dbfC C CCCNNL N C ' ctrlplataformas_configQUP_SERVERIDU PLATAFORMA LOGISTIC_TDEPOSITO PKCENTRALVERIFCREDITOARM_BLOQEST_DESPTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRLPLATAFORMAS_CONFIGFkh1\rlocksCN N C TNctrlrlocksQ U P_SYSTEMTABLAREGISTROUSRSESION FECHAHORAFINLLAMADO_EXTERNOCTRLRLOCKSFh1CCC6 pdfindex.DBFC  DC  C NNN N C ctrlpdfindexQ UP_PDF_REVISION_PATHP_SYSTEMIDUFECHACOMPROBCAUSAREVISIONUSREMPZIPPED FILESTORELLAMADO_EXTERNOCTRLPDFINDEXFKh1\dreclamos.dbfN CC Cctrl dreclamosQU P_SERVERIDIDCPBTOLDTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRL DRECLAMOSFh1\ereclamos.dbfN CNDDMCC  C  ctrl ereclamosQ UP_SERVERIDCOD_CLITIPOFECHAVENCTEXTOOLDIDUTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRL ERECLAMOSFDh1\cfg_lis_d.dbfN C(T Cctrl cfg_lis_dQU P_SERVERLISTADESCRDTTHISINICIALIZAR_DATOSLLAMADO_EXTERNOCTRL CFG_LIS_D%Ccfg_lis ,Qcfg_lisF ~y8r cfg_lis_dC%Ccfg_lisQUCFG_LISLISTADESCRDTFWh1 \eaprob.dbfN C(NC QctrleaprobQUP_SERVERID_CADDESCR TIPO_OPERIDUEAPROBLLAMADO_EXTERNOCTRL~FHh1 \daprob.dbfN NCdQctrldaprobQUP_SERVERID_CADNIVELFORMULADAPROBLLAMADO_EXTERNOCTRLFfh1 \oaprob.dbfNNNCdCdQctrloaprobQU P_SERVER TIPO_OPERID_OPERID_CADUSR_APUSR_RECHOAPROBLLAMADO_EXTERNOCTRLFh1 \dcostos.dbfCCN NNCMQ ctrldcostosQ U P_SERVERIDCOD_CEN SUBCENTRONIVELORDENDESCR DESCR_EXPOAPROBLLAMADO_EXTERNOCTRLDCOSTOSsF;h1 \bul_dlis.dbfN CQctrlbul_dlisQUP_SERVERCODIGOBULBUL_DLISLLAMADO_EXTERNOCTRLqF:h1 \bul_lis.dbfN C(Qctrlbul_lisQUP_SERVERCODIGODESCRBUL_LISLLAMADO_EXTERNOCTRLF`h1\arts_prod.dbfN CCN Qctrl arts_prodQUP_SERVERPRODATRBULCANTIDAD ARTS_PRODLLAMADO_EXTERNOCTRLpreparar_tablaH crear_funcion pre_validarZ pos_validar cod_cerrar cod_abrir crear_funcion crear_funcion crear_funcion' crear_funcion  crear_funcion  crear_funcion  crear_funcion crear_funcion crear_funcion( crear_funcionT crear_funcion crear_funcion crear_funciondinicializar_datosH crear_funcionR pos_validarW pos_validar crear_funcion pos_validar(validar`-reparar -inicializar_datos9 crear_funcion 9inicializar_datos!: crear_funciono$: pos_validar[&? crear_funcion7'Eid_codigo_generar'Gid_buscarse_codigo_generado-(G crear_funcion(N crear_funcionx)O crear_funcion*P crear_funcion*Q crear_funcion)+R crear_funcion+S crear_funcion.U crear_funcion 0V crear_funcion1W crear_funcion4X crear_funcionG6Y crear_funcion7Z crear_funcion9[ crear_funcion9\ crear_funcion:] crear_funcion<^ crear_funcion+=_ crear_funcionA>` crear_funcion*?a crear_funcion@b pos_crear@b crear_funcionAc crear_funcionuBdinicializar_datosLCd crear_funcion]einicializar_datos_e crear_funcioncf crear_funcion.eg crear_funcion&fh crear_funciongi crear_funcionhj crear_funcionikinicializar_datosjk crear_funcionjkl crear_funcionGlm crear_funcionmn crear_funcion no crear_funcion6op crear_funcionoq crear_funcionprUUUU T- U REINDEXABLE U5     U U U U U U U U U U U U U" Ta  U INICIALIZABLE UU5Tcod_ageTcodage TaUID_CAMPOID_ORDENTRIGGERSUE(T@COD_PRO+@COD_INS+@ATR+@BULTID TaUID_CAMPOID_ORDENTRIGGERSE(T@cod_cli+@cod_ins+@atr+@bulTID TaUID_CAMPOID_ORDENTRIGGERSTCOD TaUID_ORDENTRIGGERS?TCod_InsTcodins Ta UID_CAMPOID_ORDENTRIGGERS Ta UCREABLEUUUU6TCentralTCentral TaUID_CAMPOID_ORDENTRIGGERS5Tcod_cliTcodcli TaUID_CAMPOID_ORDENTRIGGERS6Tcod_cliTCOD_CLI TaUID_CAMPOID_ORDENTRIGGERS0TplanTplan TaUID_CAMPOID_ORDENTRIGGERS0TplanTplan TaUID_CAMPOID_ORDENTRIGGERSC Ta TaT.F. T TUTRIGGERSTRIGGERS_FORZADOTRIGGER_DELETETRIGGER_INSERTTRIGGER_UPDATE5TCod_cueTCuenta TaUID_CAMPOID_ORDENTRIGGERS U?T@codigo+@bul+@bulTCodigo TaUID_CAMPOID_ORDENTRIGGERSUTCod_CenUID_CAMPOU  U8TdepositoTdeposito TaUID_CAMPOID_ORDENTRIGGERSUU5Tcod_fleTcodfle TaUID_CAMPOID_ORDENTRIGGERSU T-U SINCRONIZABLE2TfechaTidx02 TaUID_CAMPOID_ORDENTRIGGERS2TfechaTidx04 TaUID_CAMPOID_ORDENTRIGGERSUUU" Ta  U INICIALIZABLESTCodigoTCodigo Ta Ta  UID_CAMPOID_ORDENTRIGGERS INICIALIZABLEUUUU UU5TCod_ProTcodpro TaUID_CAMPOID_ORDENTRIGGERS@T@COD_INS+@ATR+@BULTCodigo TaUID_CAMPOID_ORDENTRIGGERS%"TSTR(@PV)+STR(@CODIGO)UID_CAMPOU !UUU$T@COD_CLI+STR(@SUCURSAL)TID Ta " #UID_CAMPOID_ORDENTRIGGERSUUUUUU $U %U &U 'U (U )U5TCod_ProTcodpro TaUID_CAMPOID_ORDENTRIGGERS *U>TCodigoTCodigo T- +UID_CAMPOID_ORDENTRIGGERS Ta ,UCREABLE Ta -UCREABLE Ta .UCREABLE /U 0U 1U5Tref_extTref_Ext 2UID_CAMPOID_ORDEN5Tfull_idTfull_id 3UID_CAMPOID_ORDEN 4U 5U 6U 7 8U 9U" Ta : ;U INICIALIZABLE < =U >U ?U @U AU BU C DU EU FU GU HU IU JU KU tabla_diariog%tabla_ejercicio:sys_clases_tablas.prgGx tabla_diag2%tabla_ejercicio:sys_clases_tablas.prgRxtabla_concepto%tabla_ejercicio:sys_clases_tablas.prg]x tabla_conc2%tabla_ejercicio:sys_clases_tablas.prghx tabla_a010592tabla:sys_clases_tablas.prgsx tabla_agip#tabla_creable:sys_clases_tablas.prgxtabla_mailcola*tabla_system_creable:sys_clases_tablas.prgx tabla_co_func*tabla_system_creable:sys_clases_tablas.prgxtabla_pdfstore*tabla_system_creable:sys_clases_tablas.prgy tabla_rec_upd#tabla_creable:sys_clases_tablas.prgytabla_imp_stru*tabla_system_creable:sys_clases_tablas.prg1ytabla_imp_sets*tabla_system_creable:sys_clases_tablas.prgFy tabla_log_aut*tabla_system_creable:sys_clases_tablas.prg[ytabla_pd_demoras*tabla_system_creable:sys_clases_tablas.prgpy tabla_stockg*tabla_system_creable:sys_clases_tablas.prgytabla_stkxdepg*tabla_system_creable:sys_clases_tablas.prgytabla_locksold*tabla_system_creable:sys_clases_tablas.prgy tabla_locks*tabla_system_creable:sys_clases_tablas.prgy tabla_version*tabla_system_creable:sys_clases_tablas.prgy tabla_tipoimp*tabla_system_creable:sys_clases_tablas.prgytabla_iibbperetabla:sys_clases_tablas.prg'ztabla_acuerdos"tabla_codigo:sys_clases_tablas.prg1111AA1A11AA1111A11?111A11P1QQ111A1111!!1!!111111111111 11A1111!11?1A4111111 11>=>p1A11`1111111`1 101AA1AA111?8>P1P1`101P11P1111 1@1111  U1x6n;D G$k q0=-8BfFFKtS  W;n];4cINme!lw!3##T&z&'(j*--h. /4y5A738_U8;jw@EAkAYB"CEEGpIJMIN2WOOJO=PNR*TgTU~wVWXX9YYmZ<]$;^_,f`Wb7bve$EfhIS'iko`kme}mnj"oupo$qUrtstytu ~ vwwcx3xyFyzW/{{c|]}u}*VmyM#h(:-3U9ԭ?֯JbMPӱV5<\Ǵ0bGIhҷ]n%qtuvomw xo{e~ 0O o#7L,Z xE2SKo!j!=##'z(t***+K++++2,},,-6---?.,/}/{///00l0j000@1x111#I2|2(22.G334314;}45@56Qd6b6V66X77[k7;]; <r<p<<<=G=====C>x> >>L?J?????E@cBBGHHjHhH HH! II"XIJ%?K=K&KK* LPL%.LL*0MM-1hMSN03NNC4NGPF:PPS;PPV<9Q7QX=QQ[>QQ^?-R+Ra@R4TeCTV}F[VWHWXJYYLQZF]O]]S^_V`ab\be"`ehGdhkmhfk mkamnnopqp_rvr't{|tu~vwhwmx1xzD{{aU|svy٤KfeD~a9Y H.USG[%o%VrI }% C a Ta Ta( c:\sistema\system\data\1\ges.dbc T   Ta"TCCt Atencin62CInicio sys_padron_iibb_TASK &T CDescargando Padrn%CC$%JT CC$ gT CC$/%CCIIBBCC =.DBF08CExiste padrn IIBBCC = <.sys_padron_iibb   a2CC OK: ERR: 6  C ,CFin Proceso terminado UXPRUEBASETS DEY_FUNC2P_DEV P_SUSPENDCP_DOSXSOLOLOG XMSGTITULOXFECHAXOKXMSGMENSAJE XID_LOG_AUT1LOG_AUTODEYFUNCDT_MES_ULTIMO_DIADT_MES_PRIMER_DIAP_SYSTEMOBTENER_IIBB_ARBA_PADRON_SIMPLESYS_PADRON_IIBBqAQBt!#bBq1A"C1%.L#T  % C a Ta Ta( c:\sistema\system\data\1\ges.dbc TTSCH% B  T a"T C Ct Atencin61CInicio VE_PEDIDOS_A_VENCER /T CObteniendo pedidos a vencer  T TH 2\)ve_sql_productos_pendientes_de_entrega_v3pedidos_a_vencer.pdfH / T C No hay datos c!T CError: C 2T COk%T CEnviando por mail Tsys_mail_alertasPedidos a Vencer'Se adjunta reporte de pedidos a vencer.\xchg\pedidos_a_vencer.pdf%Cv&T CEnviado a la cola. !T CError: CC .CFin VE_PEDIDOS_A_VENCER UXPRUEBA XEMP_PARTSETS DEY_FUNC2P_DEV P_SUSPENDCP_DOSP_EMPP_NOTIFICAR_PED_A_VENCXSOLOLOG XMSGTITULOMENSAJE XID_LOG_AUT1LOG_AUTXERRXMSGEXPORTAR_PEDIDOS_A_VENCER)VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3SEND_EMAIL_ALERTASSYS_MAIL_ALERTASP_NOTIFICAR_PED_A_VENC_MAILTOP_SERVERAQB2AA!BA1aRaAA1%7  yN B%6C\..\ages\log\log.txtC:\ver\temp.txt%G(\..\ages\log\log.txtG G *C^ Ext.AVFP: CG G(BUXTEXTOXREINICIALIZARP_AGESP_SYSTEMDbRbabaAB1d%^,r}uL#Y UTC "%C   %qTCATCC?&6CC =6 BUXQS XPARAMETROXVALORXENCODE XAGREGAVACIO XNOAGREGAR URLENCODEW TC TC #BCC /6UXURLXRUTAf&%CThis.oPadre.RutabCBBC _BCUTHISRUTEARRUTAOPADRECCCCUOHIJOTHISDESARROLLO_ASSIGN DESARROLLO DEBUG_ASSIGNDEBUGLOGPATH_ASSIGNLOGPATHBCCUCCLASETHIS AGREGAR_HIJOUJTTC BUOHIJOOPADRETHIS PROTOCOLOOHIJOSADD7TC CollectionNTUOPADRETHISOHIJOSm%C%B%CoAGESSolbOP B f BUTYPEOTHISOPADREOROUTEROAGESSOLTC "TC %CETCJSon_Respuestas_Erroravfp_objects_definiciones.prgT 3T #No se obtuvo respuesta del servidor  TCa ( ETCJSon_Respuestas_Erroravfp_objects_definiciones.prgT C  BUXURLXMINIXEXTERNOTHISRUTEARRUTAXRESPORESPOROUTER HTTP_INFORMARRES_JSON RES_MENSAJE NFJSONREADOEXREPORTAR_EXCEPCION TC  SC<> dTC %CETCJSon_Respuestas_Erroravfp_objects_definiciones.prgT 3T #No se obtuvo respuesta del servidor  DTCa (ETCJSon_Respuestas_Erroravfp_objects_definiciones.prgT C BUXURLXMINITHISRUTEARRUTAXRESPORESPEXTRACTWWUTILSOROUTER HTTP_OBTENERRES_JSON RES_MENSAJE NFJSONREADOEXREPORTAR_EXCEPCIONTC  ,T C %C ET CJSon_Respuestas_Erroravfp_objects_definiciones.prgT  3T #No se obtuvo respuesta del servidor  -T C a(ET CJSon_Respuestas_Erroravfp_objects_definiciones.prgT  C  B UXURL XPARAMETROXJSONXMINIXMANTERHEADERSXCOL2ARRTHISRUTEARRUTAXRESPORESPOROUTER HTTP_POSTEARRES_JSON RES_MENSAJE NFJSONREADOEXREPORTAR_EXCEPCIONTC   "T C %C ET CJSon_Respuestas_Erroravfp_objects_definiciones.prgT  3T #No se obtuvo respuesta del servidor  'T C a(ET CJSon_Respuestas_Erroravfp_objects_definiciones.prgT  C  B UXURL XPARAMETROXJSONXMINIXMANTERHEADERSXCOL2ARRXEXTERNOTHISRUTEARRUTAXRESPORESPOROUTER HTTP_INFORMARRES_JSON RES_MENSAJE NFJSONREADOEXREPORTAR_EXCEPCION= TCXX 7Q JSON_ENVIOSavfp_objects_definiciones.prg;TC json_enviosavfp_objects_definiciones.prgH-( CxEnviobO O T( CxEnviobC J T 2-T BUXENVIOXTIPOOENVIOAVFP_OBJECTS_DEFINICIONESPRG RES_OBJECTRES_JSON RES_MENSAJE'  BTC)otablas.oclientes.Obtener_Cuit.ages?cuit=a % TCaT Ta  T- T- BUXCUITXNOMBRE XENCONTRADO XADVERTIRORESPOWSXCATIVAOCLIENTEOSVPXCLIXRESPTHIS URL_OBTENERRES_TIPO NFJSONREAD RES_OBJECTNOMBRE4TC #TCfiltroa)TCfechaC*aCTCaITCmaxCC 999999CCZ6CC ATC(otablas.oclientes.clientes_completo.agesa BU XFECHAXFILTROXMAXXOTROSORESPXQSTHIS AGREGAR_QS URL_OBTENERTC #TCfiltroa)TCfechaC*aCITCmaxCC 999999CCZ6CC CTC*otablas.oarticulos.articulos_completo.agesa BUXFECHAXFILTROXMAXORESPXQSTHIS AGREGAR_QS URL_OBTENER+QDATEQOBJECTQOBJECT TC%agesITC.otablas.oIndices.Mensuales_Obtener.ages?FECHA=C*a 9TCtablas/indices/mensuales/C   w% ^%C ;T ZTCa s T( T BUXFECHAOINDICEORESPXCLIXRESPODEYFUNCDT_MES_PRIMER_DIATHIS PROTOCOLO URL_OBTENERODFDTOC2RES_TIPOTYPEO RES_OBJECT NFJSONREADOEXQOBJECTQOBJECT %agesQTC'otablas.oIndices.Mensuales_Guardar.agesindicesCa ITCtablas/indices/mensuales/C  C BU OINDICEORESPXCLIXRESPTHIS PROTOCOLO URL_PONER NUEVO_ENVIOODFDTOC2FECHA C%TCCAGES_Clientes$TC CAGES_Indices-TCCAGES_SincronizacionesUTHISINICIAR_PARENTESCO OCLIENTESAGREGAR_HIJO_CLASEOINDICESOSINCRONIZACIONESQOBJECTQOBJECTeTC;oSistema.oInternos.oSistemas.Recibir_Resultado_Comando.agescomandoCa BUSYS_AGES_OBJETOSPRGOCMDORESPTHIS URL_PONER NUEVO_ENVIO^QOBJECTQOBJECT3TC resultadocomandoCa BUOCMDORESPTHIS URL_PONER NUEVO_ENVIOZQOBJECTQOBJECT/TCcrearcomandoCa BUOCMDORESPTHIS URL_PONER NUEVO_ENVIOPQOBJECT/TCcrearcomandoCa BU XKEY_SISTEMAORESPTHIS URL_PONER NUEVO_ENVIOOCMD` C%TCCAGES_Informes+TCCAGES_NotificacionesUTHISINICIAR_PARENTESCO OINFORMESAGREGAR_HIJO_CLASEONOTIFICACIONES-#BCtransferenciasUOTRANSFERENCIATHIS URL_PONER(BCenviaraUOINFORMETHIS URL_PONER)BCobteneraUOINFORMETHIS URL_PONER(BCenviaraU ONOTIFICACIONTHIS URL_INFORMAR)BCobteneraU ONOTIFICACIONTHIS URL_PONER BCU^,TCCAGES_Comandos_nages2/TCCAGES_Facturacion_NAGES2UTHIS OCOMANDOSAGREGAR_HIJO_CLASE OFACTURACIONV%+BCiniciado OBCiniciadoaUP_AGES_SOL_EXTERNOTHIS URL_OBTENER URL_INFORMART%*BCcerrado MBCcerradoaUP_AGES_SOL_EXTERNOTHIS URL_OBTENER URL_INFORMAR&#BCactualizar_sistemasUTHIS URL_OBTENERD 6BCcambiar_estado/C /CC ZU KEY_SISTEMAESTADOTHIS URL_PONER %' BTC %7BCinformar_factura_error/CCZ  BUXERRORXTXTP_AGES_SOL_INFORMARTHIS URL_INFORMARP_AGES_SOL_EXTERNOx% B%^+BCinformar_factura_ok q BUP_AGES_SOL_INFORMARTHIS URL_INFORMARP_AGES_SOL_EXTERNO %' BTC %5BCinformar_login_error/CCZ  BUXERRORXTXTP_AGES_SOL_INFORMARTHIS URL_INFORMARP_AGES_SOL_EXTERNOv% B%\)BCinformar_login_ok o BUP_AGES_SOL_INFORMARTHIS URL_INFORMARP_AGES_SOL_EXTERNO UXERRORXTXTU UXERRORXTXTUUUP%TCCAGES_Comandos(TCCAGES_FacturacionUTHIS OCOMANDOSAGREGAR_HIJO_CLASE OFACTURACION C CUTHISINICIAR_PARENTESCO AGREGAR_HIJOSI.QOBJECTQOBJECTQBOOLEANBCUOCMDORESP XCOMANDOSTHIS OCOMANDOS RESULTADOi ZQJSON_RESPUESTASavfp_objects_definiciones.prgQBOOLEANG+(ListadosTC y Informando estado general. C GESTASK6 sys_ages.prg%C \Version 2Q \VersionYTI Cversion.lc_estbN ! C C   t%CVERSION.LatidobTCVERSION.EstGeneralbT $ C< C C$   B-<QESTADO_GENERALsys_clases_actualizaciones.prg?TCEstado_Generalsys_clases_actualizaciones.prg CT T%CoSplashbOo% ):C)Inicializando el servicio de datos......#a k8C'Conectando con el servicio cloud......#aH}# Cagesnages(TC7oSistema.oInternos.oSistemas.Recibir_EstadoGeneral.agesCnages EstadoGeneral6Ca Cnages2}8TCrecibir_estadogeneralCa%CoSplashbO.% :C)Inicializando el servicio de datos.....##a *8C'Conectando con el servicio cloud.....##a%C  HW  ! (%CVersion.EstGeneralbT> C3%CoResp.Res_ObjectbO C# s$QESTADO_GENERALsys_clases_actualizaciones.prg%QESTADO_GENERALsys_clases_actualizaciones.prg'%CoResp.Res_ObjectbO T$C#& T$#CT%CEstado_Generalsys_clases_Actualizaciones.prgaC$%'$%Cversion.lc_estbN_;> %(%)*CC%.-a+,.%C$/ 0$/ 1 )2ages_URL_DynDNS$/C EG: Comandos3%%4{ Existen comandos a procesar. C GESTASK6 sys_ages.prg TaC%56s Comandos procesados. C GESTASK6 sys_ages.prg ! $%CVersion.LatidobTY > C BU7XFORZADOORESPAVFP_OBJECTS_DEFINICIONESPRG XCOMANDOS XDESDEGESTASKOSPLASHXLIC_ESTLISTADOSUSER_LOG PUB_INDEXP_SYSTEM P_VIC_ABRIRVERSIONLC_ESTLC_VAL P_VIC_LARGOLATIDO"P_AGES_SOL_ESTADOGENERAL_INTERVALO ESTGENERALOEGSYS_CLASES_ACTUALIZACIONESPREPARAR_ENVIO DESDEGESTASKXCLIXRESP XMENSAJE_CMDSAVANCETHIS PROTOCOLO URL_PONER NUEVO_ENVIOTYPEORES_TIPOIN RES_OBJECTTMPOEGRESP_EG NFJSONREAD LEER_ESTADOLICENCIA_ESTADOLICENCIA_VALIDACIONLC_TLK OSECURITYENCRYPTCONVERTIR_UTF8_A_FOXLICENCIA_MENSAJE URL_DYNDNSP_AGES_URL_DYNDNS P_DEV_ENVSYS_CFGSYS_M HAY_COMANDOSCOMANDOSPROCESAR_COMANDOSCCCCUOHIJOTHISDESARROLLO_ASSIGN DESARROLLO DEBUG_ASSIGNDEBUGLOGPATH_ASSIGNLOGPATHJTC TC T C #T C CAGES_Tablas JT C CAGES_SistemaCnages2 _nages26 *T CCAGES_DatosClientes C% #TCa : T BUXSERVER XDIRECTORIO XNOINIT_MINIXINITP_AGES_SOL_SERVERP_AGES_SOL_DIRTHIS PROTOCOLOP_AGES_SOL_PROTOCOLINICIAR_PARENTESCOOTABLASAGREGAR_HIJO_CLASEOSISTEMAODATOSCLIENTESINFORMAR_INICIADOm#%CagesnagesL"BCdummy_val.ages fBCUXMINITHIS PROTOCOLO HTTP_OBTENEROSISTEMAINFORMAR_INICIADOCCCCUOHIJOTHISDESARROLLO_ASSIGN DESARROLLO DEBUG_ASSIGNDEBUGLOGPATH_ASSIGNLOGPATHBCCUCCLASETHIS AGREGAR_HIJO7TC BUOHIJOOPADRETHISOHIJOSADDTC TC C#TC CAGES_Tablas $T C CAGES_Sistema C% TCa  T BU XSERVER XDIRECTORIO XNOINIT_MINIXINITP_AGES_SOL_SERVERP_AGES_SOL_DIRTHISINICIAR_PARENTESCOOTABLASAGREGAR_HIJO_CLASEOSISTEMAINFORMAR_INICIADO BCUXFECHAXARCHIVOOBTENER_IIBB_ARBAy  'TiibbCC*=.zipTCC C BUXFECHAXARCHIVOXZIPOSW P_LOCAL_TMPTHIS HTTP_OBTENERz  (Tagip_CC*=.zipTCC C BUXFECHAXARCHIVOXZIPOSW P_LOCAL_TMPTHIS HTTP_OBTENER;%C  y'T CChilkat_9_5_0.GlobalN Ta T-?T2Error al instanciar el objeto Chilkat_9_5_0.Global%C  B%  !2TCGESms8.CBX0323_eFK4OGjVDX9c  %vT  T- %  "TChilkat habilitado!!! 1TError al habilitar ChilkatC %Ca %4U XREGISTRANDOOGLOBALXOKXMENSAJE LNSUCCESSLNSTATUS XMENSAJE2XCREADOTYPEOTHIS UNLOCKSTATUS UNLOCKBUNDLE LASTERRORTEXTMENSAJE_SUSPENDOQ C C%TCChilkat_9_5_0.HttpNUXSERVER XDIRECTORIOTHIS CREARGLOBALOHTTPTaUXSERVERTHIS CONECTADO& CUXHEADERXVALORTHISOHTTPSETREQUESTHEADERQ*%CxJSONbO CxJSON `TC TCaC 2C Content-Typeapplication/json T CC @ &2TC application/json (A T BUXURL XPARAMETROXJSONXMINIXMANTENERHEADERSXCOL2ARR OBTENER_JSON NFJSONCREATETHISHTTP_AGREGAR_HEADERS_COMUNESOHTTPSETREQUESTHEADERXCMD OBTENER_URLLCHTML POSTJSON2BODYSTROEX  TTCC TC %%CxArchivo_SalidabNC( T BU XFUNCIONXMINIXARCHIVO_SALIDAXMANTENERHEADERSLCHTMLXCMDTHIS OBTENER_URLHTTP_AGREGAR_HEADERS_COMUNESOHTTP QUICKGETSTROEXU >C1No se puede utilizar aun HTTP_Obtener_Asincronico BUXFUNCIONXMINIMENSAJECCCCUOHIJOTHISDESARROLLO_ASSIGN DESARROLLO DEBUG_ASSIGNDEBUGLOGPATH_ASSIGNLOGPATHGTagesTC TC C#T C CAGES_Tablas #T C CAGES_Tablas JT C CAGES_SistemaCnages2 _nages26 C% TCa 7 T BU XSERVER XDIRECTORIO XNOINIT_MINIXINITTHIS PROTOCOLO P_AGES_SERVER P_AGES_DIRINICIAR_PARENTESCOOTABLASAGREGAR_HIJO_CLASEOSISTEMAINFORMAR_INICIADO,"BCdummy_val.agesUXMINITHIS HTTP_OBTENERnTC %GBCC@ gBCC@UXFUNCIONXMINIXRUTATHISOBTENER_URL_MINIOBTENER_URL_BIGBOYbXBCCC=fHTTP HTTP://6C~mini~////UXFUNCIONTHISSERVER DIRECTORIOWMBCCC=fHTTP HTTP://6C///UXFUNCIONTHISSERVER DIRECTORIOBCCUCCLASETHIS AGREGAR_HIJOJTTC BUOHIJOOPADRETHIS PROTOCOLOOHIJOSADD7TC CollectionNTUOPADRETHISOHIJOSU UOENVIOB%C/TCTMP BUTHISARCHIVOODEYFUNCNEWFILE_LOCAL_TMP TCwwHTTPNTC TC %C  C,CTimer aTimer_TimerU XSERVER XDIRECTORIOWWCLIENTTHISOHTTPSERVER DIRECTORIOCONECTARATIMERBTC CTaUXSERVERTHISSERVEROHTTP HTTPCONNECT CONECTADO~#%CagesnagesL"BCdummy_val.ages w!BCsistema/iniciado-UXMINITHIS PROTOCOLO HTTP_OBTENERBCUXMINITHISINFORMAR_INICIADO~#%CagesnagesL"BCdummy_val.ages w!BCsistema/iniciado-UXMINITHIS PROTOCOLOHTTP_OBTENER_ASINCRONICOCUXMINITHISINFORMAR_INICIADO_ASINCRONICO& CUXHEADERXVALORTHISOHTTP ADDHEADER TC BUTHIS KEY_SISTEMAAGES_OBTENER_KEYSISTEMA4% $ C#Cx_ages_loglevel%Cx_ages_protocol%Cx_ages_session_id(Cx_ages_key_sistema C x_ages_userCZ  #$Cx_ages_computerCZ -U XMANTENERHEADERSTHISHTTP_AGREGAR_HEADERP_AGES_SOL_LOGLEVEL PROTOCOLO P_SESION_ID KEY_SISTEMA PUB_INDEX P_EQUIPO_ID*%CxJSONbO CxJSON _TCa#T application/jsonT POST,T C ages6C TC%C IDCC ages6-application/json ~TC@TC( T BUXURL XPARAMETROXJSONXMINIXMANTENERHEADERSXCOL2ARR NFJSONCREATETHISOHTTP CCONTENTTYPE CHTTPVERB NHTTPPOSTMODE PROTOCOLOHTTP_AGREGAR_HEADERS_COMUNESXCMD OBTENER_URL ADDPOSTKEYLCHTMLHTTPGETOEXa TC % bBC QT Ccfg .T CCFG_Ctrl Sys_cfg.prga " sys_actualizaciones CxFuncion CxMini #CxArchivo_Salida  C   T BUXFUNCIONXMINIXARCHIVO_SALIDAXMANTENERHEADERSXEXTERNOLCHTMLXCMDTHIS HTTP_OBTENERXTPATHODEYFUNCNEWFILE_WIN_TMPOCFGAGREGAR_VARIABLES_GENERALESSYS_ACTUALIZACIONESAGREGARGRABAREJECUTAR_EXTERNO  TTGETC TC TC ( T BU XFUNCIONXMINIXARCHIVO_SALIDAXMANTENERHEADERSLCHTMLXCMDTHISOHTTP CHTTPVERBHTTP_AGREGAR_HEADERS_COMUNES OBTENER_URLHTTPGETOEX@ 2CC,UXFUNCIONXMINITHISOHTTPHTTPGETEXASYNC OBTENER_URLARCHIVOTAMAO)TC 5QAGES_EXTERNO_ENVIOsys_ages_externo.prg9TCAGES_Externo_Enviosys_ages_externo.prgT  T  T TC TC TC BCUXFUNCIONCJSON CJSON_KEYXTIPOTHISTIPOOENVIOSYS_AGES_EXTERNOPRG AGES_SERVERSERVERAGES_DIR DIRECTORIOFUNCIONHTTP_OBTENER_EXTERNO"TC Cjson  TC Cresp TC Cerr T T T CC \Log  \Log\AGES_Externo &[T ""  "\Logs\AGES_Externo"  ""  "" .| ShellExecute Shell32.DLL6Copenges_ages_externo.exeT  BUOENVIOXJSXJSRESPXJSERRXOK LOSENDMAIL2 XRESPPATHXERRPATHXJSENVIOTHISARCHIVOODEYFUNCNEWFILE_LOCAL_TMPARCHIVO_RESPUESTA ARCHIVO_ERROR NFJSONCREATEP_SYSTEMXPAR SHELLEXECUTESHELL32DLL P_EXE_PATH5%C%B BUTYPEOTHISOPADREOROUTERr %%CoAGESSolbO k YTC(gUXFORZADOXRESPOEX P_AGES_SOLOAGESSOLOSISTEMAINFORMAR_ESTADOGENERAL% H rCTCAGES_Control_SOL1 Sys_AGES.prg  CTCAGES_Control_SOL2 Sys_AGES.prg 2CTCAGES_Control_SOL1 Sys_AGES.prg  BU LOAGESSOL XNO_INICIARP_AGES_SOL_ENGINEP_AGES_AUTOINICIAR_MINIE2TCAGES_Control_Server Sys_AGES.prg BU LOAGESSERVERTC gescom.exe,| ShellExecuteshell32T T T T  ""T C T ,BC      U XPATHCFGXGES_A P_EXE_PATH SHELLEXECUTE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORYXSW_SHOW%CrZTCC0C GUIC DEYUNK666=CZ hTCC0C GUIC DEYUNK666= CZ  BU XKEYSISTEMA P_SUBSISTEMA P_DEV_ENVP_EMPP_LOCALIZACION Agregar_QS0RutearE Ruta_Accesshijos_propiedades;agregar_hijo_clase Agregar_Hijos! agregar_hijo,iniciar_parentescooRouter_Access URL_Informar URL_Obtener URL_Poner9 URL_Informar_PUT  Nuevo_envio Buscar_CuitObtener_ClientesVObtener_ArticulosIndice_Mensual_Obtener=Indice_Mensual_GuardarINIT Resultado ResultadoCrear' RecalcularINITETransferir_ComprobantesEnviar_InformeMRecibir_InformeEnviar_Notificacion Recibir_Informe7 INIT Agregar_Hijos Informar_Iniciado5 Informar_Cerrado actualizar_sistemasY cambiar_estado Informar_Factura_Error  Informar_Factura_Ok! Informar_Login_Error! Informar_Login_Ok" Informar_Factura_Errorl# Informar_Factura_Ok# Informar_Login_Error# Informar_Login_Ok# Informar_Cerrado# actualizar_sistemas# Agregar_Hijos# INITk$ Informar_Resultado_Comando$ Informar_EstadoGeneral>% hijos_propiedadesG1INIT1Informar_Iniciado4hijos_propiedades4agregar_hijo_clasem5 agregar_hijo5INIT6 Obtener_IIBB7Obtener_IIBB_ARBA7Obtener_IIBB_AGIP8 CrearGlobalo9INITK<Conectar<HTTP_Agregar_Header= http_postearl= http_obtener?HTTP_Obtener_Asincronico@hijos_propiedadessAINITBInformar_Iniciado D Obtener_URL[DObtener_URL_MiniEObtener_URL_BigBoyEagregar_hijo_clase&F agregar_hijogFiniciar_parentescoF aTimer_Timer;GRespuesta_Recibida_AsyncFGArchivo_Access`GINITGConectarHInformar_IniciadocI Iniciar_DummyJInformar_Iniciado_AsincronicoRJIniciar_Dummy_Asincronico KHTTP_Agregar_HeaderYKKey_Sistema_AccessKHTTP_Agregar_Headers_ComunesL http_postearM http_informarMP http_obtenerRHTTP_Obtener_AsincronicoS HTTP_Obtener_Asincronico_ExternoTHTTP_Obtener_ExternoJVoRouter_Access:YInformar_EstadoYObtener_AGESSOL]ZObtener_AGESServer[ejecutar_externo)\AGES_Obtener_KeySistema] .Q T T- T- T-Tages         UOCONTROL AGES_CONTROL2RUTAOPADREOHIJOSOROUTER PROTOCOLO U  U  U. T- T- T- U OCLIENTESOINDICESOSINCRONIZACIONES U6Tcomandos   URUTABTclientes T- T-  URUTA OINFORMESONOTIFICACIONES,Tinformes  URUTA2Tnotificaciones  URUTASTsistema  ! " # $URUTACT facturacion % & ' (URUTACT facturacion ) * + ,URUTAU T- T- - . / 0 1 2U OCOMANDOS OFACTURACIONX T- T- T- T- T- 3 4 5UOTABLASOSISTEMAODATOSCLIENTESOPADREOHIJOSW T- T- T- T- 6 7 8 9UOTABLASOSISTEMAOPADREOHIJOSPT/!Tiibb.solinges.com.ar : ; <U DIRECTORIOSERVERUUT T- = > ? @ A B CUOGLOBAL7 T- T- D E FUOTABLASOSISTEMA T- T T T T T T T- T-T POST T T ages T - T - T- T.Q-d G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _UOHTTPSERVER DIRECTORIOARCHIVOARCHIVO_RESPUESTA ARCHIVO_ERRORTAMAO CONECTADO INICIALIZADOTIPOOENVIO PROTOCOLOOHIJOSOPADREOROUTER KEY_SISTEMAATIMERTIMERENABLEDINTERVALCAGES_Modulo_ClienteCUSTOMhCAGES_ClientesCAGES_Modulo_ClienteiCAGES_SincronizacionesCAGES_Modulo_Clientei CAGES_IndicesCAGES_Modulo_Clientei CAGES_TablasCAGES_Modulo_ClientejCAGES_ComandosCAGES_Modulo_ClientenjCAGES_Comandos_nages2CAGES_Modulo_ClientejCAGES_DatosClientesCAGES_Modulo_ClientejCAGES_InformesCAGES_Modulo_Cliente3kCAGES_NotificacionesCAGES_Modulo_ClientemkCAGES_Sistema_NAGES2 CAGES_SistemakCAGES_Facturacion_NAGES2CAGES_Modulo_ClientelCAGES_FacturacionCAGES_Modulo_Cliente_l CAGES_SistemaCAGES_Modulo_ClientelAGES_Control_SOL1 AGES_Control&mAGES_Control_SOL2 AGES_Control3mSOLWEB_Control_IIBB AGES_Control;nSOLWEB_Control AGES_Controln AGES_Control2 AGES_Control3n AGES_Control3 AGES_ControlnAGES_Control_Server AGES_Control"o AGES_ControlCUSTOMto81!!AA31111a1A2q1113q123q1A3q2aAA2!Q11QAA2qAQ11QAA2Q11QAA2!Q11QAA3QqA5q"aQAA4122234QAaaQAAA2A8QA5Q5122Q7Q2q16q2q5q2q5223A32qA212a51A11qA21A1A21A11QA21A1A5222622Q233"2AAqAAB1AABBaAA11qAA1BAAaQ1ABbCAAAA:q1113q111!A2q2!A8q1113q13qA4q111A!A7"2qb2b:12qqAqAB!A1!AAAAB2Q2q23AA!!A21QAA27q1115qA1111!A2q"P11aaA2q2q2q12q1A2q2=q2AA2rQA2qaA2q2!A2q2q1!A2q222qA1QQAAA2A1r!AAA2q1!1A21aA2!21Q11aa2q!BAAb2aA5qRAA211111A2q!2qq!2qA20@@?1=p:65Q5Q4Q44A4:2109 1<11`05060 7 #?i `'+D.%q7)<2FE! Z] ]sp$(>BYOZ  !3!!!Z"#"#-#$2$$:%[%>%?&Ei&&I,'W'P' (T5((X))b ))j**m*,sL, -&-6.1b. /://<//=/0?D0B0@00A00B!11E11H"22K2eABB$BE+=E F?F0GN]GGUG-| wwSocketSend wwIPStuff.DLLTCX T C % T T B-BaU LCINPUTTHIS LLOGSESSIONLOGLNSIZE WWSOCKETSEND WWIPSTUFFDLLLCERRORLNRESULTNTIMEOUTNERROR CERRORMSG{%C(TTCX,| wwSocketRecv wwIPStuff.DLLTCXTC %C  T T CC T  BT % .TCC %k'CC C SERVER: BULNSIZETHIS NBUFFERSIZELCOUTPUTBUFFER WWSOCKETRECV WWIPSTUFFDLLLCERRORLNBYTESNTIMEOUT NLASTREADSIZE CERRORMSGNERROR LSTRIPNULLS LLOGSESSIONLOG TC7XTCX%Cb T .|wwSocket wwIPStuff.DLL&TC%T TC` BC`U LCINPUTLCSERVER LNSERVERPORTLNCONNECTTIMEOUTLCERRORLCHTTPRESPONSELNRESULTWWSOCKET WWIPSTUFFDLLTHISNERROR2%| wwSocketClose wwIPStuff.DLL CU WWSOCKETCLOSE WWIPSTUFFDLL  %C 7 BTC%p B BU LCINPUTLNSIZELLRESULT LCRECEIVETHISSENDLCOUTPUTRECEIVENERRORK %C) TTULCSTRINGLCPREFIXTHISCLOG BUTHISCLOG %CN/ T -|wwSocketListen wwIPStuff.DLLTCXTC%TT B-BaU LNPORT LNTIMEOUTWWSOCKETLISTEN WWIPSTUFFDLLLCERRORLNRESULTTHISNERROR CERRORMSG T T+C TC% B BULCSEARCHLNSIZELCRESULTTHISNERRORRECEIVEd%C7T T T T0+    !TCC  =T T %C>T%PT5T %Buffer size doesn't match output size BU LNSIZE LNTOTALREAD LNLNEXTREADLCRESULTTHIS NBUFFERSIZE LNNEXTREADLCOUTPUTNERROR NLASTREADSIZERECEIVE CERRORMSGU CUTHIS DISCONNECT CUTHIS DISCONNECTConnectHSENDreceive socketsend? disconnect sendreceiveLOGgetlogdLISTENwaitfor  waitforsize INIT{ DESTROY CLOSE  T T T Ta T- T TT TT wwsocket         U NTIMEOUTNERROR CERRORMSG LSTRIPNULLS LLOGSESSIONCLOGTEXTOLOG NBUFFERSIZE NLASTREADSIZENAMECLOGwwsocketCUSTOM !1!A1qAq3q!qA1qAq3qAqA!qA!qA3q!Aa1A3Q3AQqA3A33qA1qAq3qaAA3qAAAAQaQAA3434Qq`4/! 27 KF> } \I aT ? nZe y v\ $zjK]v'L*PeSu%"PsR>  M($ PROCEDURE GESDBC_UPDATE_%EMP%`Z LPARAMETERS xRecno, xTabla, xPath, xUlt_Mod, xUsr, xOperacion, xTTS_ID, xPend, xPrograma LOCAL oEx  TRY'! IF TYPE("pub_index")="N" THEN # xusr=EVL(xusr, pub_index)  ELSE xusr=EVL(xusr,-1) ENDIF# IF TYPE("tts_id")="C" THEN% xtts_id=EVL(xTTS_ID,tts_id)  ELSE! xtts_id=EVL(xTTS_ID,"") ENDIF% xOperacion=EVL(xOperacion,0) xPend=EVL(xPend,0)$ xPrograma=EVL(xPrograma,"")LF IF TYPE("GESDBC_Trigger_Block")="N" and GESDBC_Trigger_Block=1 then xOperacion=4 xPend=1  ELSE~x INSERT INTO ("GES!rec_upd_%EMP%")(tabla, registro, path, ult_mod, usr, Operacion, id_tts, pend ,reg_upd, programa) ; VALUES (xTabla, xrecno, xpath, EVL(xult_mod, DATETIME()), xusr, xOperacion, xTTS_ID, xPend, RECNO("rec_upd_%EMP%"), xPrograma) ENDIF CATCH TO oEx ENDTRY ENDPROC TC%EMP%CCZ BUXSTOREP_CODEMPaAq11QQAaAaA1%1 Z} RXW CUXID_TTS VACIAR_BUFFER Trec_upd_CCZ%C PQ FoQ   C   <TMPBuffRegistros5 T TC-1F ~!%CCfCC fZTCCC fCF  T UXID_TTSXTABLAOOBJP_CODEMPTABLAREGISTROULT_MOD OPERACIONREG_UPDRESPENDID_TTSTMPBUFFREGISTROSGESDBC_TRIGGER_BLOCKOBTENER_CLASE_TABLANOMBREACTUALIZAR_ULT_MODN+%CxClaseCxClasebL =TCTabla_sys_Verificar2_tablas.prg(TTabla% %CoObjbO> (4TCTablasys_clases_Tablas.prg(: BUXTABLAXCLASEOOBJOEXERRORNO-  4G+(wwutils(VG+( ip\wwutils T-%CoTablasbO2TCTablassys_clases_Tablas.prga sys_clases_Tablas  %C  C  BU OTABLAS XFECHAHORAOTABLAS2 DEY_FUNC2WWUTILSOEXIP%CREAR_COLECCION_TABLAS_SINCRONIZABLESSYS_CLASES_TABLASOTABLA COLECCION$SYNC_OBTENER_REGISTROS_A_SINCRONIZARCOLL_AGREGAR_TABLA %CoDeyFuncbOCTCC] C T T  ESELECT * FROM &xAlias WHERE &xCampo>=xFechaHora INTO TABLE (xSys) T Q% TCC] T  TTC* T- C -TCCTC BUOTABLA XFECHAHORAXSYSXNCANTXALIASXZIP DEY_FUNC2ODEYFUNCGET_PATHCOD_CONTROLAR_ABIERTAALIASXCAMPOCAMPO_ULT_MOD_EXISTENTEXERRXMSG XZIPDESTINO XARCHIVOS XRECURSIVOXCREAROZIPSYS_ZIP TABLA_FILE URLENCODETABLA_FILE_TMP Vaciar_Buffer]Obtener_Clase_Tabla!Sync_Obtener_Tablas_A_Sincronizar0$Sync_Obtener_Registros_A_Sincronizar(q1q!As1qAqA4q!AABAAAAA2qqAA!AAAA31qAQA1Ar1E1Gi$-<A S%v]X U%C.eanbN F~CC -%CC.eanbienesbarras>UXALIASCOD_INSEANBIENESZC"%C.des_insbNS F>dUXALIASPRE_VALIDAR_EANDES_INSALLPre_Validar_EAN0Pre_Validar_SRI1qAAA4q!!A2 BH %dR׈Xwk-----------------------------------------------------------------------------------------------------------XBVfpWinSock Version :1.21b5NB For examples of use : do form vfp_winsock_send_mail_examples.scxwk-----------------------------------------------------------------------------------------------------------U CU CU UXMENSAJE##    T%CVFP_Winsock_SEND_MAIL$CVFP version : C%C VERSION(1) = Ch)C VERSION(2) = CCChZ%C VERSION(3) = Ch%C VERSION(4) = Ch)C VERSION(5) = CCChZ,CVFPwinsock version : %C"TC SMTP Server%C{IT9ERR01 : Especificar servidor SMTP en propiedad SMTP_HOST.CB-%C)TCSMTP Email Address%C4FT6ERR02 : Especificar el remitente en la propiedad FROM.CB- ~%Cz(TCSMTP Display Name%CGT7ERR03 : Especificar el destinatario en la propiedad TO.CB-TC;,TC;,T C ;,"%C!  C" %CT"! T"%C %C"T T"%C#KT#%C$vT$TC)\)TC(\(T#C#)\)T#C#(\(T$C$)\)T$C$(\(T"C")\)T"C"(\(+TC- QC%C%C%+TC- QC%C%C% T%C& %C&0A TC&$%C MIME-Version:fCf(TCCC MIME-Version:fCf\+C>TC\%CC\ !3+CC\ CC\  TC\N+CCC>\ CCC>\  CCC>\  UTCC>=%boundary%CR--T--T'T( = PT9ERR08 : Formato mhtml invlido. No contiene versin MIME.CB-  LT$ERR07 : mhtml adjunto no encontrado.(&)CB-%C'%C) < %C(8 TC HTMLConverterNT(C)* T1T''Date: C+C C %C! HT'' Reply-To: """ <!>C C DT''From: "" <>C C ;T''To: C#,C C %C ;T''Cc: C$,C C %C- :T'' Subject: C-.C C T/CC/;,+C/R,U !T/C/C/>=%C/z T  T/, T+,C )TCCCC,=C ,+CR\$ TCC>=%C0%!C Attachment : T(TCC\\TCTC0 %a(T CTemp5\C%.txtC -T C T +C a"T  C LC C  C T T  !T!(C>L9TCCL\C C  KT&ERR06 : Archivo adjunto no encontrado.()CB-TCC,\%4T''MIME-Version: 1.0C C jT''Content-Type: multipart/mixed;C C C  boundary=""C C  C1gT''C C ,This is a multi-part message in MIME format.C C C C )T''--C C %C%C) |T''$Content-Type: multipart/alternative;C C C  boundary=""C C C C )T''--C C gT''Content-Type: text/plain;C C CX charset="2"C C ET''Content-Transfer-Encoding: 3C C  %Ch4T''MIME-Version: 1.0C C %C)gT''Content-Type: text/plain;C C CX charset="2"C C ET''Content-Transfer-Encoding: 3C C  C1 dpT''$Content-Type: multipart/alternative;C C C  boundary=""C C  C1gT''C C ,This is a multi-part message in MIME format.C C C C )T''--C C gT''Content-Type: text/plain;C C CX charset="2"C C ET''Content-Transfer-Encoding: 3C C  4T''MIME-Version: 1.0C C  C1%CHd* CC3fQUOTED-PRINTABLE4-T''C C C(4 2d&T''C C (T''C C %C) )T''--C C fT''Content-Type: text/html;C C CX charset="2"C C ET''Content-Transfer-Encoding: 3C C mT''C C >C C H]* CC3fQUOTED-PRINTABLE9!T''C)4 2]T'')+T''C C C C /T''----C C ST'C'C C .C C C C .C C C  ?#T''C C %(*T CCCC.C\@5T''C C --C C H$' .jpg .jpeg 60T''Content-Type: image/jpeg; .bmp|/T''Content-Type: image/bmp; .gif/T''Content-Type: image/gif; .wav 1T''Content-Type: audio/x-wav;W .mht .mhtm .htm  .mhtml .html /T''Content-Type: text/html; .pdf5T''Content-Type: application/pdf; 2$>T'''Content-Type: application/octet-stream;LT''C C CXname="C"C C DT''!Content-Transfer-Encoding: base64C C 7T'' Content-Disposition: attachment;PT''C C CX filename="C"C C T'C C ,(CC> (T CC  \T' T ;T''C C ----C C 5e# C6T7T89 C:%;CSTART : CCDCConnect() RemoteHost : 7 RemoteHostIP :<2CConnect() SocketHandle : CC=Z%;a>T.ERR00 : No se pudo iniciar Winsock en esta PC. CT'ERR04 : Imposible conectar al servidor. C;ZC C6B- v CSTART : CCDCConnect() RemoteHost : 7 RemoteHostIP :<2CConnect() SocketHandle : CC=ZTC220>%C?!%C@ T@2TCHELO @C C 250A 2"%C@3!T@2TCEHLO @C C 250A%!0TC AUTH LOGINC C 334A%!0TCC?0C C 334A%."0TCCB0C C 235AT,%C {"T ,%C "T  ,%"TC C CD#CQUITC C ACEND : CC%E<# V#CF C6T' BUGV_STARTV_TO LSRECIPIENTSV_SEND V_ATTACHMENTV_NBRE_ATTACHMENTV_FILE V_CONTENUV_IBOUNDARYV_EXTV_CHAINEV_TMPV_F T_ATTACHMENT V_BOUNDARYV_BOUNDARY_HTMLV_DATA V_DATA_MHTMLLSDATALIILOHTMLCONVERTERTHISERREURTRACEVERSION SMTP_HOSTLIRE_BASE_REGISTREFROM FROM_NAMETOCCCCIREPLYTO REPLYTO_NAMETO_NAMECC_NAMESYS3 DATA_MHTMLDATAMESSAGE MESSAGEHTML HTMLDECODEDATETIME_TO_C822FORMATDATAEMAILSUBJECTSTRING2ISO8859 ATTACHMENTENCODE64 DATA_HEADERCODEPAGECONTENT_TRANSFER_ENCODINGENCODETEXTQUOTEDPRINTABLE O_WINSOCKCLOSE REMOTEHOST REMOTEPORT SMTP_PORTCONNECTSTATE REMOTEHOSTIP SOCKETHANDLEWINSOCK_GETDATA AUTH_LOGIN SMTP_HELOWINSOCK_SENDDATA AUTH_PASSWORDWINSOCK_SENDMAIL LOG_SEND_EMLSILENCEMENSAJE      >TC MAIL FROM: <>C C 250% |T T #+,  C $T CC C, =%C  =%C RCPT TO: < >C C 250nT   T ,SCWARNING : Email < > "ERR16 : Direccin Email Rechazada. TC C, \% x T-2T"ERR16 : Direccin Email Rechazada.C% *TCDATAC C 354% _%(C>[T C\TC T %  W!% 3TCC C .C C 250 B ULSDESTINATAIRESLLSENDV_DATAV_LINEV_ATV_IV_JV_STEPLSTO V_NBLIGNESV_CHAINELIILSDATA LINBEMAILSTHISWINSOCK_SENDDATAFROM BAD_EMAILSTRACEERREURDATAEML_DATAHD+ 1CfHIGH 0T X-Priority: 1C C 3TImportance: HighC C * 5CfLOW 0T X-Priority: 5C C  2DT30T X-Priority: 3C C ?TX-Mailer: VFPwinsock C C %XTDisposition-Notification-To: <>C C UTHISPRIORITYDATAVERSION NOTIFICATION FROM_NAMEFROMR "%C C K%C T+aFTSend_CC$_CC^:_CCZ.eml %CCC0T !TTCsafetyvC-SET SAFETY &v_safety UV_I V_FICHIER_EMLV_SAFETYTHIS EML_DIR_SENDEML_DATA EML_FILE_SEND- QSTRINGQSTRINGQSTRINGQINTEGERQINTEGERQINTEGERQINTEGER QINTEGERT %C T C,T C, ( 6T C C, 6BT C  C> C,  6T CCC  \@%  M6T C C, 6BT C  C> C,  6T CCC  \@ fT )T  CC , 6#%C    !T  < > 2T  " " < > B U P_ADRESSEP_NAMELCRETURNLCTOLCTONAME LINOMBREEMAIL LINOMBRENOMLIILIDEBUTLILONG %ClsFilebC:T%C2TVFP_Winsock_Send_Mail_CC.txtTC /_TC :_TC  _o %C :)C Extra dump:C C  aCC C  a]C?---------------------------- DUMP ---------------------------- C C  a!CCCC C  a 4C [.pub_index]=CCZC C  a(91C[.pub_index]= ERRORC C  a0C [.Equipo]=CC]C C  a.C [.Version]=C C  a0C [.SMTP_HOST]=C C  a8C [.SMTP_PORT]=CZC C  a0C [.SMTP_HELO]= C C  a/C [.CodePage]= C C  a@C[.Content_Transfer_Encoding]= C C  a/C [.Priority]= C C  aGC[.Notification]=C .T..F.6C C  aBC [.Silence]=C .T..F.6C C  a+C[.FROM]=C C  a0C [.FROM_Name]=C C  a)C[.TO]=C C  a.C [.TO_Name]=C C  a)C[.CC]=C C  a.C [.CC_Name]=C C  a.C [.ReplyTo]=C C  a3C[.ReplyTo_Name]=C C  a*C[.CCI]=C C  a1C[.AUTH_Login]=C C  a4C[.AUTH_Password]=C C  a.C [.Subject]=C C  a1C[.Attachment]=C C  a.C [.Message]=C C  a2C[.MessageHTML]=C C  a+C[.Data]=C C  a0C [.TraceFile]=C C  a3C[.EML_Dir_Send]=C C  a4C[.EML_File_Send]= C C  a/C [.EML_Data]=!C C  a1C[.data_mhtml]="C C  a-C [.Erreur]=#C C  aIC[.SMTP_Error ]=C$ TrueFalse6C C  a6C[.SMTP_Respuesta ]=%C C  a2C[.IDU_Mensaje]=&C C  a]C?-------------------------------------------------------------- C C  a B U'LSFILEOEXTHIS TRACEFILEEXTRALOG PUB_INDEXVERSION SMTP_HOST SMTP_PORT SMTP_HELOCODEPAGECONTENT_TRANSFER_ENCODINGPRIORITY NOTIFICATIONSILENCEFROM FROM_NAMETOTO_NAMECCCC_NAMEREPLYTO REPLYTO_NAMECCI AUTH_LOGIN AUTH_PASSWORDSUBJECT ATTACHMENTMESSAGE MESSAGEHTMLDATA EML_DIR_SEND EML_FILE_SENDEML_DATA DATA_MHTMLERREUR SMTP_ERRORSMTP_RESPUESTA IDU_MENSAJE(!T1.21b5TTT#TT iso-8859-1Tquoted-printableT T - T -T T T TTTTTTTTTTTTTTTTTTT T!T" T#-T$U%THISVERSION SMTP_HOST SMTP_PORTSEND_GET_TIMEOUT SMTP_HELOCODEPAGECONTENT_TRANSFER_ENCODINGPRIORITY NOTIFICATIONSILENCEREPLYTO REPLYTO_NAMEFROM FROM_NAMETOTO_NAMECCCC_NAMECCI AUTH_LOGIN AUTH_PASSWORDSUBJECT ATTACHMENTMESSAGE MESSAGEHTMLDATA TRACEFILE EML_DIR_SEND EML_FILE_SENDEML_DATA DATA_MHTMLERREUR BAD_EMAILSSMTP_RESPUESTA SMTP_ERROR IDU_MENSAJE T ' (C  pT CC  >% d8# ( d4(T  CC   d\%  dT  C C T  C C  l*T  C  C C T C ==3D:T C C C C C =C C  (K-%C !C    .0T C C  =CC @0_R5T C C C .C C =2E B UCTEXTECENCODENICCHARNJNLENALIGNES CU CU T%CVFP_Winsock_SEND_NEWS$CVFP version : C,CVFPwinsock version : %CIT9ERR01 : Especificar servidor NNTP en propiedad NNTP_HOST.CB-%C|GT7ERR01 : Especificar grupo NNTP en propiedad NNTP_GROUP.CB-%CFT6ERR02 : Especificar el remitente en la propiedad FROM.CB-%CT%C W T  Guest of   C T T  CCSTART : CCDCConnect() RemoteHost :  RemoteHostIP :2CConnect() SocketHandle : CCZ%%>T.ERR00 : No se pudo iniciar Winsock en esta PC. CT'ERR04 : Imposible conectar al servidor. CZC C B-TC200% *TCPOSTC C 340% $TC<>TATPath:  !not-for-mailC C DTFrom: "" <>C C 6T Newsgroups: C C 3T Subject: C C 1TDate: CC C 8TOrganization:  C C %C S5T MessageID: C C %C 6T References: C C 4TMIME-Version: 1.0C C gTContent-Type: text/plain;C C CX charset=""C C ETContent-Transfer-Encoding: C C rTC C CC C .C C C C .C C C C C &TCC C 3TCC C .C C 240% $TC<> T#CQUITC C CEND : CCC C  B ULLSENDTHISERREURTRACEVERSION NNTP_HOST NNTP_GROUPFROM FROM_NAME ORGANIZATION O_WINSOCKCLOSE REMOTEHOST REMOTEPORT NNTP_PORTCONNECT REMOTEHOSTIP SOCKETHANDLESTATEWINSOCK_GETDATAWINSOCK_SENDDATA MESSAGEIDLASTDATADATASUBJECTDATETIME_TO_C822 REFERENCESCODEPAGECONTENT_TRANSFER_ENCODINGMESSAGEMENSAJE@TC C C TUXTEXTOTHISEXTRALOG C - \log\SendMail 7 `T \log\SendMail\log - Send mail - CCCC$* C^:-/-.txt T"%C C Ta"C o_Winsockws2_32UP_SYSTEMTHIS TRACEFILE STARTMODESILENCE NEWOBJECT< CU O_WINSOCK UXMENSAJED  Ta2%?C/ERR10 : XXX conexin con servidor SMTP perdida.%C?T/ERR10 : XXX conexin con servidor SMTP perdida. T- .%C P%C =QUITL&C => SendData : [QUIT]  EC => SendData :  Len= CCC >Z Bytes TC+C qC=> WS2_32.SendDATA : <ERR14 : reintentar envo de datos... Cantidad de caracteres:CCC >Z&%C   \T => WS2_32.SendData : 2ERR15 : Tiempo de espera agotar en envo de datos.C T- T! C %C  *TC   B U LSDATALSEXPECTEDRETURNLLSENDLISTARTTHIS O_WINSOCKSTATETRACEERREURSENDDATASEND_GET_TIMEOUTATTENTEWINSOCK_GETDATA TaT%C J } T TCC +C 9%C?T  <= SGetData : ERR05 : Servidor no respondeC  T-! C C % yT !T C C C CC = %C C >= .C <= SGetData : OK [ ] Ta u\T  <= SGetData : ERROR [ ] -> ERR09 : Retorno esperado era: C  T- B U LSEXPECTEDRETURNLSBUFFERLISTARTLLRETURNTHISLASTDATA O_WINSOCKGETDATASEND_GET_TIMEOUTERREURTRACEATTENTEMENSAJEH TC +C? ACaULIIODEYFUNCDEVENTSQSTRINGQDATETIME TMonTTueTWedTThuTFriTSatTSun  TJanTFebTMarTAprTMayTJunTJulTAugT SepT OctT NovT Dec TCTCC), 'TCCC%Z 0 TCCH TCCiZ TCC^= TC BULCRETURN LDDATETIMET_JOURST_MOISTHIS GETECARTGMTQSTRING/QINTEGERQSTRINGQINTEGER!QINTEGERQINTEGERTCX,|GetTimeZoneInformationkernel32TCVGETTIMEZONEINFORMATIONHi"   TCC \ c i5TCC \ CC \ c#TC +-6TCC < 8TC < 3TCCC Z0CCC Z0 BU LCRETURN LIRETCODETZINFO LIECARTGMTLIHOURS LIMINUTESGETTIMEZONEINFORMATIONKERNEL32THIS BUF2DWORDaWBCC \CCC \CCC \CCC \ULCBUFFER\ 5TC]TC]+LTC] BUV_R_SYS3V_S_SYS3i T%CChd 8ITC W #(C >STC \HO C >(T CC === C >('T CC == 2OT C  B ULSSTRINGLSRETURNLCSTRLIITHISSPLIT4 MT@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/ @(C>!T C  \  TCC \T CC \T CC \TC -TCC CC -TCC CC TC ?=BC C C C U TCBINARYAENCTABLIIABASE64 LIOUTBYTE1 LIOUTBYTE2 LIOUTBYTE3 LIOUTBYTE4 LIINBYTE1 LIINBYTE2 LIINBYTE3cJ(   T-(C >TC \TC H>  T _/  = ~ &T =CC @0_R Ta 2>T  %C >:TT  CC C C C 6=?iso-8859-1?Q? ?=T %C  ,TT  CC C C C 6=?iso-8859-1?Q? ?=% QT   B UCSTRINGCENCODENICCHARNASC USEISO8859CBUFFER2 C"C o_Winsockws2_32BUTHIS NEWOBJECT< CBU O_WINSOCK        CTTT%CTC%TC CC> JTCCC חAZCCZC]CX=TCTCCT(ZTCCCCCC Q \C0xC  \ %C>TCC( XTCCCCCC Q \C0xC \ %TC CC> !T C C C C #TC CC >  T  Radius Client#TC CC >  !T C C C C #T C= CC >  'T     T C >TC  8T 2TC C C  C   %C  T%C uTCC \  T  T C  T B U LIRESULTLIILSB1LSB2LSSENDLSSEND1LSSEND2LSSEND3LSSEND4LSSEND5LSSERVICE_TYPELSNASIDENTIFIERLSNAS_PORT_TYPELILENLILEN1LILEN2LSBUFFERTHIS O_WINSOCKCLOSEPROTOCOL REMOTEHOST REMOTEPORTCONNECTUSERNAMEREQUEST_AUTHENTICATORPASSWORDMD5 SHAREDSECRET PASSWORDMD5SENDDATAGETDATA+   T -%C ^T B-T C T C  %C T  Csocket %TC )TC%TT  T Chtons T CCC inet_addr T C T C -T C  CC QT CT C ws_connect +a#T C C >+% C  !Ca%  T aT  T  B UCBUFFERCPORTLRESULTNHOSTCHOSTLCONNECTNSTARTTHISINITIATEWINSOCKSTATE REMOTEHOST REMOTEHOSTIPGETIPUSEDLLPROTOCOL SOCKETHANDLESOCKETNUM2WORDHTONS2 REMOTEPORT INET_ADDR NUM2DWORD WS_CONNECTTIMEOUT_CONNECTODEYFUNCDEVENTSH  8 B  U B r B K BK 2ChtonsBCBUXNUMBERTHISUSEDLLHTONSj%BC closesocketCTTUTHIS SOCKETHANDLEUSEDLL CLOSESOCKETSTATET  Csend$TC C >T  B UCDATACBUFFERNRESULTLRETURNTHISUSEDLLSEND SOCKETHANDLEv%OTT Ta d T- B ULSDATANRETURNTHIS BYTESRECEIVEDCIN CBC>UTHISRDCIN.C setsockoptCrecvTC%CC >+a'TCC @Q!TC @ % ! # T  C  =% @ !U HEVENTREADCRECVNRECVCOPTVALTHISUSEDLL NUM2DWORD SETSOCKOPT SOCKETHANDLERECVCINvC WSAStartup#%CCC QO T- d Ta B UNRETURNTHISUSEDLL WSASTARTUP=C WSACleanup C C CUTHISUSEDLL WSACLEANUP REMOVEDLL`C gethostbynameTC % p T NTCC QTCC QC CopyMemoryC  %C CC \  C C  C inet_ntoaTCC   B U PCHOSTNSTRUCTCBUFFERCIPNRETURNTHISUSEDLL GETHOSTBYNAME COPYMEMORY BUF2DWORD INET_NTOAaWBCC \CCC \CCC \CCC \ULCBUFFER2%  9T  A  T C pA 84T C  pA @ 8GT C  pA  @ p@ 8T C p@G%BC  C  C  C  ULNVALUEB0B1B2B3,"BCC G CC  8 ULNVALUETCC f%C : HU! C WSAStartupf| WSAStartupws2_32! C WSACleanupf| WSACleanupws2_32$ C gethostbynamef | gethostbynamews2_32 C inet_ntoafR| inet_ntoaws2_32 Csocketf|socketws2_32" C closesocketf| closesocketws2_32 C inet_addrf| inet_addrws2_32 Chtonsf<|htonsws2_327 Cconnectf C ws_connectf -|connectws2_32Q ws_connect Csendf|sendws2_32 Crecvf|recvws2_32= C RtlMoveMemoryf C CopyMemoryf 4| RtlMoveMemorykernel32Q CopyMemory! C setsockoptf&| setsockoptws2_32 28Debug Error : UseDLL('') not defined U P_FUNCTION LSFUNCTIONTHIS IS_DLL_LOADED WSASTARTUPWS2_32 WSACLEANUP GETHOSTBYNAME INET_NTOASOCKET CLOSESOCKET INET_ADDRHTONSCONNECT WS_CONNECTSENDRECV RTLMOVEMEMORYKERNEL32 COPYMEMORY SETSOCKOPT T-TCCf%CChd 8(C>%CCC f CCC f  Ta! B U P_FUNCTIONLATABLIINRETURNV GETHOSTBYNAMEV INET_NTOAVSOCKETV CLOSESOCKETV INET_ADDRVHTONSV WSASTARTUPV WSACLEANUPV WS_CONNECT VSEND VRECVV COPYMEMORYV SETSOCKOPTU !%C m.liTimeOutbNT T T- T TC+C    T%C T 3%C RC C .C C  Ta!;%Cm.lsBreak_If_Not_Start_bybC C  %C C>=  Ta! B ULSDATALSBREAK_IF_NOT_START_BY LITIMEOUTNRETURN LISECONDS LSGETDATATHISGETDATA%C %CSAFETYvONI  %C0TCC TC3CCC C C C  CUP_TEXTEV_FTHIS TRACEFILE T T3TCSOFTWARE\Clients\MailMACHINE%TCCCH$ Microsoft OutlooktITC5Software\Microsoft\Office\Outlook\OMI Account Manager%*,TCDefault Mail AccountC%C &WTC?Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\%"TC CFC Reading registry : [  ] response =   2?TC+Software\Microsoft\Internet Account Manager%,TCDefault Mail AccountC%C MTC5Software\Microsoft\Internet Account Manager\Accounts\%TC CFC Reading registry : [  ] response =    B U P_QUOIV_HANDLE V_ACCOUNTV_RETOURLSMAILERTHISKEYOPEN KEYGETVALUEKEYCLOSETRACE2 55$%Cp_user_machinebCUTUSERTC?C +| RegOpenKeyExadvapi32 T%MACHINE(TC @A "(TC A BUP_KEYP_USER_MACHINEV_HANDLEKEY_ALL_ACCESSNERROR REGOPENKEYEXADVAPI32 51|RegQueryValueExadvapi32 T TTCX T&TCBC=U P_HANDLE P_VALUE_NAME V_RESERVEDV_TYPEV_DATA V_DATA_SIZENERRORREGQUERYVALUEEXADVAPI32: | RegCloseKeyadvapi32C UP_HANDLE REGCLOSEKEYADVAPI32b4TCMD5NT TC T BULSSTRINGOMD5LSRETURNTOHASHCOMPUTE(@|.TC ACCD@0_.TCCC ABaUITHIS SINUSARRAY TC CC ?Q'TCC>G $%CC>G-TCC>G BC=UNBR_BIT_BOURREBOURRAGETHISTOHASH TCC>@0_ T#TCC0xC \ #TCC0xC\ #TCC0xC\ #TCC0xC\ TCC Q BURETOURDECALAGETHISTOHASH0BCCCCUXYZ0BCCCCUXYZ$BCUXYZ*BCCCUXYZ- BCCC UPIVOTNPIVOTV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_FV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_GV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_HV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_I/G    T C #Eg A#T C qA A#T C [A AT C vT2 A   TCCTC>@ T T T T ((T KT C CCCC@\@0_RKT C CCCC@\@0_RKT C CCCC@\@0_RKT C CCCC@\@0_R5T CC0xC  A T T T T 5T C C C5T C C  C5T C C C5T C C C5T C C C5T C C  C5T C C C5T C C C5T C C C 5T C C  C 5T C C C 5T C C C 5T C C C 5T C C  C5T C C C5T C C C5T C C C5T C C  C5T C C C5T C C C5T C C C5T C C  C5T C C C5T C C C5T C C C5T C C  C5T C C C5T C C C5T C C C5T C C  C5T C C C5T C C C 5T C C C!5T C C  C"5T C C C#5T C C C$5T C C C%5T C C  C&5T C C C'5T C C C(5T C C C)5T C C  C*5T C C C+5T C C C,5T C C C-5T C C  C.5T C C C/5T C C C05T C C C15T C C  C25T C C C35T C C C45T C C C55T C C  C65T C C C75T C C C85T C C C95T C C  C:5T C C C;5T C C C<5T C C C=5T C C  C>5T C C C?5T C C C@T  T  T  T  "T CC A@0_"T CC A@0_"T CC A@0_"T CC A@0_9T C  \C \C \C \9T C  \C \C \C \9T C  \C \C \C \9T C  \C \C \C \B   U TOCOMPUTECPT_ICPT_JCPT_L TMP_STRINGAABBCCDDABCDT_XTHISTOHASHBOURRE ACOMPLETER LENTOCOMPUTEOLDAOLDBOLDCOLDDRONDE1 SINUSARRAYRONDE2RONDE3RONDE4G TaT9%CC@ d41d8cd98f00b204e9800998ecf8427eg BTa9%CC@ 0cc175b9c0f1b6a831c399e269772661 BTabc9%CC@ 900150983cd24fb0d6963f7d28e17f72 BTmessage digest9%CC@ f96b697d7cb7938d525a2f31aaf161d0 B*Tabcdefghijklmnopqrstuvwxyz9%CC@ c3fcd3d76192e4007dfb496cca67e13b BNT>ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567899%CC@ d174ab98d277d9f5a5611c2c9f419d9f B`TP123456789012345678901234567890123456789012345678901234567890123456789012345678909%CC@ 57edf4a22be3c955ac49da2e2107b67a7 B BUTESTTHISTOHASHCOMPUTEv CkCC nbspCC" quotCC& ampCC' CeuroC<ltC>gtCoeligCAgraveCCcedilCEgraveCEacuteCEcircCagraveCaacuteCacircCccedilCegraveCeacuteCecircCeumlCicircCocircCugraveCucircCraquoBUTHIS HTMLCHARSTORE TT 4T&#CCC Z;%Cm.lsHTMLbC'T& ;BULSCHRLSHTMLTHIS LINBHTMLCHARHTMLCARF  TTC TC C TC C 3 (C >W TC \HD & C  C   <  Ta >  T-TCCfH_ C=BODY Ta C=/BODY T- C=SCRIPT T- C=/SCRIPT  Ta C=STYLE3 T- C=/STYLE^ Ta C=SELECT T- C=/SELECT Ta0 C=/TDC=/TH CC C=BRC=/P C=/H1 C=/H2 C=/H3 C=/TR C=/DIV C=/TABLE C=/FORM CC C   C=HR,CC C C-PQC C   C=LIHCC C * Y C=TITLEC=/TITLE C=TABLE C=FORM C=NOBR C=/NOBR C=OL C=/OL C=H1 C=H2 C=H3 C=TR C=TD C=TH C=TBODY C=/TBODY C=UL C=/UL C=/LI C=INPUT C=/INPUT C=LABEL C=/LABEL C=TEXTAREA C = /TEXTAREA C=FONT C=/FONT C=SMALL C=/SMALL C=SPAN C=/SPAN C=A  C=/A C=IMG P C=P  I /I C=I  B /B C=B  U /U C=U  STRONG /STRONG EM /EM CITE /CITE C=DIV C=CENTER C=/CENTER C=NOSCRIPT C = /NOSCRIPT  2% %C<>C C  T 2D %% T  @ C  T ( 8T C C  C  8T C C  C  % / G.*C c:\temp\html2txt_debug.txtG.  B ULSHTMLLIILSCUR LSLASTCURTHIS LLINBALISELSBALISELLINBODYLLINTEXTADD_TEXTDEBUG LINBHTMLCHARLS_TEXTHTMLCARC% <T ULSTEXTTHISLLINBODYLLINTEXTLS_TEXTINITDESTROYMensajeSENDWinSock_SendMail( Data_Header2- Log_Send_Emlp/FormatDataEmail1Dump4RESET?EncodeTextQuotedPrintableCINIT[FDESTROYoFSENDFExtraLog_AgregarPINIT]QDESTROYRMensajeRWinSock_SendDataRWinSock_GetDataVattenteYDateTime_to_C822VZ GetEcartGMT?] buf2dword_Sys3+`Encode64`Split4BbString2Iso8859dINIT9gDESTROYgAccess_RequestgCONNECTmhtons2rCLOSEsSendDatasGETDATArtBytesReceived_AccessuRDPuInitiateWinsockvDESTROYwGetIPw buf2dwordy num2dword4znum2word{UseDLL{ is_DLL_Loadedǀ RemoveDLLԁ GetData_DOTÂtraceȄLire_Base_RegistreۅKeyOpenP KeyGetValueۋKeyClosemd5rINITbourre acompleterMD5_FMD5_GސMD5_HMD5_IT ROTATE_LEFTronde1ӑronde2gronde3ronde4COMPUTE# testsuiteINIT HtmlCharStore HTMLdecode Add_TextN T T T T T T T T T T  T  T  T  T  T T T T T- T T T T T T T T T T T T- T T  T! T" T# T$         U% SMTP_HOST SMTP_PORT SMTP_HELOSMTP_SSL AUTH_LOGIN AUTH_PASSWORDFROM FROM_NAMETOTO_NAMECCCC_NAMEREPLYTO REPLYTO_NAMECCISUBJECTMESSAGE MESSAGEHTML NOTIFICATION ATTACHMENT DATA_MHTMLPRIORITY EML_DIR_SEND EML_FILE_SEND BAD_EMAILSEML_DATADATA SMTP_GMAIL SMTP_TOKENSMTP_RESPUESTA SMTP_ERROR IDU_MENSAJEP_SYSTEMP_SERVERP_LOCAL P_PATHS_LOGSP_MAIL_SEND_ENGINE T Tw T T T T T T T T  T  U NNTP_HOST NNTP_PORT NNTP_GROUPFROM FROM_NAME ORGANIZATIONSUBJECTMESSAGE REFERENCESDATA MESSAGEID"T1.21b5 T T- TT iso-8859-1Tquoted-printable T# T T              U VERSIONERREURSILENCE TRACEFILECODEPAGECONTENT_TRANSFER_ENCODINGSEND_GET_TIMEOUTLASTDATAEXTRALOG} TT T T T T T   U REMOTEHOST REMOTEPORT SHAREDSECRETUSERNAMEPASSWORDREQUEST_AUTHENTICATOR PASSWORDMD5& T T T T TT T T T- T  ! " # $ % & ' ( ) * + , - . /U STATE BYTESRECEIVED REMOTEPORT REMOTEHOST REMOTEHOSTIP SOCKETHANDLECIN WAITFORREADTIMEOUT_CONNECTPROTOCOL 0UP TT 1 2 3 4 5U TRACEFILE PUB_INDEX T @ 7 8 9 : ; < = > ? @ A B C DUTOHASH SINUSARRAY T- T- Ta T T T T T- E F G HU LLINBALISELLINBODYLLINTEXTLSBALISELS_TEXT LINBHTMLCHARHTMLCARDEBUGVFP_Winsock_Send_Mail VFP_WinsockVFP_Winsock_Send_News VFP_Winsock VFP_WinsockBasiqueRadius_Access_RequestCUSTOMHWS2_32CUSTOM+WS2_32XWS2_32BasiqueCUSTOMmd5CUSTOMS HTMLConverterCUSTOM qqp134q6q11qqqqqqqRAQQQB"A1qAAAAa1qBAAAAq1qA"A11AAAA11AAA1AA1AQA2Bc!AAA1!AA1AA1qA1qAACSAAASACSASAAAQAA4R1!AAA1qAA4BqQAqQAABqQqqQAAAAaARaQAA21A3RqqqqqqQAAqA!CAA$CA!Q1A1qA!BrDC2A!E2A!AAAARQAQAqA4!AA6qqqqqqqqq1AA1AAA2!1AAAT!AAAA1A73C&A6q!AaAAAAqQ1A4!!!!!!a!ra!A1!AAA5qqA#A1AAAq!1A!1Aa!C4AB6qqqQ1AAAAAAAQ143qQAC1qAAq1qAAa1qAA1AAA"A!AQ1A1qAsABb2RQARaABqQ!a2AAAA2AP1qq2AA#A!3q3q5qq"BAA3aAQAa1AAABqAAA4qqqq1aA1AAaA!r1AAA6qA61aaaaaaaaaaaaaaaaaaaqQP1"!QQA1q13qt4AA4qq11qqqAAA3qAQQ5qqQQAaQAqBAAABAA1!A2qA6q!TQTAAAT111rQQQ!rqAAAA@1BqASAabArQa1AAAQAAA1qA11AQAA2qA6qAAQ6qqaA34qASQQQDaAAAAP1s1A31qqAQAAQA2qt2qQA1AqQ2q!7qq1A! qAaAAC3q1qqAAAA2a!A$111321qqAQ1AAAAAAAA1qqQACQ!A1A8qr11AA1!q1AAAa1!1AAAaA1qqqBAA31qf!3qp1qqq1!P1qAq2qAA31111322!222A2A2A2A2q111qRCSQQQRQQQRQQQRQQQRQQQRQQQRQQQRQQQSQQQRQQQRQQQRQQQSQQQRQQQRQQQRQQQA!!!!R2rAA1AAAAA1qqa1aAAqqqqaqqqrCA21AqAAA3qqqqa1 aEQAAQAAAAaaAA3qA5```0112q00``101p 0 P119011 6L+L MLtL LL  YMa'cWȦ}Ԯ*'AT_ac2k.P3lb8l @SVq^s b = $1{7^78$89+9:3:;>;;Ac<k?U%KL2^L)N@d`PRWwRvSjzxSTpTU{[VGaUaccLfCkfnVuv3 exM & 7\ B G QH Xc `| jV mj! pė% sA) v[- yј51 |J5 Ù'9 <= A ̯  -̽$ 8ν0 f @ $M*Xfgrn#(s( / Br %O98@0<BY U3   $%Cxfecha_emisionbDjT%C xclieprovbC T%C xtipo_segbN T %C xdireccionbC T #%C xcomprobante2bC/ T %Cxaux1bC[ T TC TC TC TC %Cf:BC $%Cxfecha_emisionbDAT%C xclieprovbCq TTC%1CTC%2 TC%3C !TC%4Ca TC%5C*TC%6CTC%7C TC%8C TC%9C TC{/ENTER}C %TC BUXTEXTOXTIPOXCAUSA XELECTRONICO XCOMPROBANTEXNOMBREXFECHA_EMISION XCLIEPROV XTIPO_SEG XDIRECCION XCOMPROBANTE2XAUX1MAIL_MACRO_TEXTOS_HTMLMAIL_MACRO_TEXTO_TIPOCPBTFLT?CantidadArticuloDescripcion$~ C TC$T
 BUXARTTEMPCOMPXARTS RECEPCIONCOD_INSMAIL_MACRO_ARTICULO_HTMLkTjTCC8C @z 999,999.99_C @z 99,999,999_6%TTCCCX 6CC C C6C (C)6CC C C 6T BU XARTSTEMPCOMP RECEPCIONCOD_INS DCODATRBULDESC_INSDESPATXTXCLIPAISDTIPOENV COMENTARIO3   $%Cxfecha_emisionbDjT%C xclieprovbC T%C xtipo_segbN T %C xdireccionbC T #%C xcomprobante2bC/ T TC<%GES1%>CTC<%GES2%>&TC<%GES3%>C 'TC<%GES4%>Ca TC<%GES5%>C*TC<%GES6%>CTC<%GES7%>C TC<%GES8%>C TC<%GES9%>C % <%GES10%>TC <%GES10%>C HP FbTC<%GES_SEG_MSG%>>Su pedido fue RECIBIDO*TC<%GES_SEG_IMG%>pedido  xtexto = STRTRAN( xtexto, "<%GES_SEG_MSG%>", [Su pedido está en PREPARACION] ) /TC<%GES_SEG_IMG%> preparacion @xtexto = STRTRAN( xtexto, "<%GES_SEG_MSG%>", [Su pedido fue recibido y está en PREPARACION] ) /TC<%GES_SEG_IMG%> preparacion xtexto = STRTRAN( xtexto, "<%GES_SEG_MSG%>", [Su pedido está en proceso de ENTREGA] ) +TC<%GES_SEG_IMG%>entrega PgTC<%GES_SEG_MSG%>CSu pedido ha sido ENTREGADO-TC<%GES_SEG_IMG%> entregado$TC <%GES/ENTER%>C %TC BUXTEXTOXTIPOXCAUSA XELECTRONICO XCOMPROBANTEXNOMBREXFECHA_EMISION XCLIEPROV XTIPO_SEG XDIRECCION XCOMPROBANTE2XAUX1MAIL_MACRO_TEXTO_TIPOCPBTMAIL_MACRO_ARTICULOS_HTMLe TH43 VTC la 66TFacturaC Electrnica6 rTC el 6TRemito cUTC la 6>TNota de CrditoC Electrnica6 dTC la 6=TNota de DbitoC Electrnica6 P TC el 6TPedido N_TC la 6 TOrden de compra MTC el 6(Tformulario de Recepcin OTC el 6$TComprobante de Pago RXTC el 6TRecibo STC el 6T Presupuesto PTC el 6TPedido 23TC el 6T Comprobante%UTC@ BUXCAUSA XELECTRONICO XARTICULOXTEXTO Ta TaC  ( O( H%    C=CP  5sys_seleccionar_email(TC BUXCOD_CLIXCAUSA XELECTRONICOXEMAIL XEMAIL_CPBTXARCHIVOXENVIARXRESXCANTSELMAIL_SELECT_DESTINATARIOSSELLETRA XCANTOPCIONAL P_MAIL_ELEGIRP_TE_PAG_AGREGAR_CONTACTOSSYS_SELECCIONAR_EMAILMAIL_RECOPILAR_DESTINATARIOS%Cpromail0 JTC tabla_promailsys_Verificar2_tablas.prgpromaila C T C %C TMPCLIMAILF QH! CCPOCPANmopromailQ  QC  QC  Q  tmpclimail 2`oclimailQ C  QC  Q tmpclimail$& CAZ6C%C !5%  CCPO r tmpclimailAutomatico de tabla CCCPOCPA Proveedores'$Clientes - Comprobantes Electrnicos6Aa1000000%C &%  r tmpclimail+De la operacin - Comprobantes ElectrnicosAa1000000UXCOD_CLIXCAUSA XELECTRONICOXEMAIL XEMAIL_CPBTXARCHIVOP_SERVEROTCREACION_MANUALXPOSMAIL_CAUSA_APOS TMPCLIMAILCMCOD_PROCOD_CLI MAIL_MT_LETRAMAILTIPOLETRA MAIL_MT_VALORSELPROMAILCLIMAILNOMBRESELENOMP_VE_FCE_AGREGAR_COBRANZASEMAILOBSx T TF~hTCT;  BUXEMAILXSEP TMPCLIMAILSELEMAIL H$ CVcd I B CS o B CGC B CR B CMKTK B CSEG B Cr B CN9 B CP _ B  CWEB B  CCPOCPA B 2 BUXCAUSA XELECTRONICO$ BC\SU XCOPIAPDFXPOS! BCC\gU XMAILTIPOXPOS6 TCBCU XMAILTIPOXCAUSAXPOSMAIL_CAUSA_APOS MAIL_MT_VALOR;     %CxVarbNb TTC TC TC TC TC TC TC T C  T C  T C  T C  T C  TTCCZTCCZTCCZTCCZTCCZTCCZTCCZTCC ZTCC ZTCC ZTCC ZTCC Z BU XMAILTIPOXTILDE1XTILDE2XTILDE3XTILDE4XTILDE5XTILDE6XVARXTILDE7XTILDE8XTILDE9XTILDE10XTILDE11XTILDE12;     %CxVarbNb T%CxTilde7bN T%CxTilde8bN T %CxTilde9bN T %CxTilde10bN T %CxTilde11bNJ T %CxTilde12bNy T TCC0QTC=TCC\gTCC\gTCC\gTCC\gTCC\gTCC\gTCC\gT CC\gT CC \gT CC \gT CC \gT CC \gU XMAILTIPOXTILDE1XTILDE2XTILDE3XTILDE4XTILDE5XTILDE6XVARXTILDE7XTILDE8XTILDE9XTILDE10XTILDE11XTILDE12%CxVarbN6 THK CCfAHs T CfO T 2 T BUXLETRAXTILDEXVAR H 8 B hBC HA6  BO 2 BXUXMTXPOS6 TCBCU XMAILTIPOXPOSXMT MAIL_MT_VALORMAIL_NUMERO_A_LETRA]%A'BCC p_ve_fce_ p_ve_fce_1_ V BCUXPARAMP_VE_FCE_ALTERNATIVO$%CxdestinatariosbCBBa+C ~TCC [ 2T%{}[]()*/\?!%&#TCC" TCC'  T(C>%C\%p3T Caracter C\ no vlido. TC tienen el caracter C\S que generalmente no es vlido. El correo no puede ser enviado automticamente !!!B-TC@T C;C,% %#TMltiples direcciones. ;T.El campo tiene ms de una direccin de correo.$%    %:TError de ; o @. TلFaltan ; como separadores de direcciones o hay demasiados @ u otro problema con estos caracteres. El correo no puede ser enviado !!!B-BaU XMSGXDESTINATARIOSXTIPO XFUERZAUNICO XMENSAJECORTO XCARACTERESZTIPO_DESTINATARIOXCANTIDAD_DE_ARROBASXCANTIDAD_DE_P_Y_CH lAB8Alguna de las direcciones de correo de los destinatarios 8B/Alguna de las direcciones de correo de repuesta 9B0Alguna de la direcciones de correo del que enva A+B"Alguna de las direcciones de copia 2B)Alguna de las direcciones de copia oculta BLa direccin de correoBUX>TCCC  Facturacin:C6ZTCCC 6CC , 6 Presupuestos:C6_TCCC ;CC , 6Gestin Cobranzas:C6UTCCC 1CC , 6Recibos:C6WTCCC 3CC , 6 Marketing:C6eTCCC ACC , 6Seguimiento de Entregas:C6UTCCC 1CC , 6Remitos:C6_TCCC ;CC , 6Ordenes de Compra:C6UTCCC  1CC , 6Pedidos:C 6XTCCC  4CC , 6 Portal Web:C 6STCCC  /CC , 6Pagos:C 6 BUXMTXTXT MAIL_MT_LETRA  H GT Facturacin sT Presupuestos TGestin Cobranzas TRecibos T Marketing +$TSeguimiento de Entregas RTRemitos TOrdenes de Compra  TPedidos  T Portal Web  TPagos 2 T BUXPOSXTEXTO~%C 4 TaTC TC Hv C TC 2TC% g%#<T C=C no valido. c6T CCZ no valido para CCZB UXTILDEXPOSXMSGXVALIDOXENTEXTO XVALIDOLOCAL MAIL_POS_TXTMAIL_NUMERO_A_LETRA?     TC !TC!TC!TC!TC!TC!TC!TC !TC !TC  !TC  !TC   BUXMSGXVALIDOXENTEXTOXTILDE1XTILDE2XTILDE3XTILDE4XTILDE5XTILDE6XTILDE7XTILDE8XTILDE9XTILDE10XTILDE11XTILDE12MAIL_NUMERO_VALIDO%CxVarbN6 THK CCfAHs T CfO T Cf  T 2T BUXLETRAXTILDEXVARmail_macro_textos0mail_macro_articulos_htmlmail_macro_articulo_htmlmail_macro_textos_HTMLmail_macro_texto_tipocpbtmail_elegir_destinatariosmail_select_destinatariosmail_recopilar_destinatariosmail_causa_aposV mail_cpdf3 mail_mt_valorpmail_mt_autocausa_valormail_mt_desdenumeros!mail_mt_anumeros!mail_mt_letra_anumero%mail_numero_a_letra% mail_mt_letra&ve_fce_alternativo 'validar_destinatarios'tipo_destinatario , mail_mt_txt- mail_pos_txt1Mail_Numero_Valido4Mail_MT_Numeros_valida5mail_mt_letra_anumero_validaP821B1AAAA1AA211AK1AAq2A6qqA!AA3qQQ a31B1AAAA1AaqA1!1 11qAB2A3qAaAqAAAqAAAAAqAAqBA31QA5qAxbqAABC"QC AA!aAA4qqqA3AqQQqA3a313a!3Arqqqqqqqqqqq3AAAAAAA!3AaA2111A2a!3q2qA2qBqAA!aa1AqAAu11AAA AvAs2q11111!1AA2qrQqQQQ111111A1a1A1A11A1q1!A3q!A11qqQAaAA224AaaA10G9 R RA \tC x '0((/ ).<..h/W/m//r"05xE59B9:P:;\;H<`r<=g3=*DRDF--FuK@KMPNAPqnP.TeTU %\syHNU CUTHIS CLEARERRORSa%C$ BC C"TCCDO.ConfigurationNTC CDO.MessageNT#  %C  BC%C &CERROR : From is empty. %C^)CERROR : Subject is empty. ,%C C C 5C%ERROR : To, CC and BCC are all empty. %C BC CT TTTTT%C C%C T%C T%C ]%C .T!" %C YT#" %C$ 6(CC$,;C C T%CCCC ,%CC.%C %62CERROR: Attachment not Found - % {%C%fCC%fhT%C%C%&%C T'" %C( $T urn:schemas:mailheader:%T) PriorityC(@'T) ImportanceC(@HJ (High"T) X-Priority (Normal"T) X-Priority (Low"T) X-PriorityC)*%C= BCC+ BCU,THIS GETERRORCOUNT CLEARERRORSOCFGOMSG CONFIGURATIONLNINDLALISTLOHEADERLADUMMY LCMAILHEADERSETCONFIGURATIONCFROMADDERRORCSUBJECTCTOCCCCBCC SETHEADERFROMREPLYTOCREPLYTOTOCCBCCSUBJECT CHTMLBODYURLCREATEMHTMLBODY CHTMLBODYHTMLBODY CTEXTBODYTEXTBODYCCHARSET HTMLBODYPARTCHARSET TEXTBODYPART CATTACHMENT LCATTACHMENT ADDATTACHMENTBODYPART CPRIORITYFIELDSUPDATESENDCTT BUTHIS NERRORCOUNTAERRORS BUTHIS NERRORCOUNTG%C/BC @BU TNERRORNOTHIS GETERRORCOUNTAERRORS%CG3C#ERROR: SMTP Server isn't specified.%C 7C'ERROR: Invalid Authentication protocol /%C C  NC>ERROR: User name/Password is required for basic authentication%CF BCrLT 8http://schemas.microsoft.com/cdo/configuration/sendusingPT 9http://schemas.microsoft.com/cdo/configuration/smtpserverTT =http://schemas.microsoft.com/cdo/configuration/smtpserverport [T Dhttp://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout VT ?http://schemas.microsoft.com/cdo/configuration/smtpauthenticate%RT ;http://schemas.microsoft.com/cdo/configuration/sendusernameRT ;http://schemas.microsoft.com/cdo/configuration/sendpasswordYT Bhttp://schemas.microsoft.com/cdo/configuration/urlgetlatestversion PT 9http://schemas.microsoft.com/cdo/configuration/smtpusessl C BCUTHISCSERVERADDERROR NAUTHENTICATE CUSERNAME CPASSWORD GETERRORCOUNTOCFGFIELDSITEM NSERVERPORTNCONNECTIONTIMEOUTLURLGETLATESTVERSIONLUSESSLUPDATEYTT BU TCERRORMSGTHIS NERRORCOUNTAERRORS%CqCz&TCC@0_ C  TCE>C:C_ #  # C_ #  BU TCPREFIXTNERRORTCMETHODTNLINE LCERRORMSGLALISTTHISADDERROR NERRORCOUNTA#CERROR:  BUTNERRORTCMETHODTNLINETHIS ADDONEERROR NERRORCOUNT%C T6Turn:schemas:mailheader:x-mailer CULOHEADERTHISCXMAILEROMSGFIELDSITEMUPDATEB%C~C~~High~~Normal~~Low~C ]TCC <C,ERROR: Invalid value for cPriority property.UTVVALTHIS CPRIORITYADDERRORInit,SendW ClearErrorsq GetErrorCountGetError SetConfigurationz AddError AddOneError:Errorp SetHeadercPriority_assign T T T T T T T  T  T  T  T  T T T T T T T- T T T T Ta1T$VFP CDO 2000 mailer Ver 1.1.100 2010         UAERRORS NERRORCOUNTOMSGOCFGCXMAILERCFROMCREPLYTOCTOCCCCBCC CATTACHMENTCSUBJECT CHTMLBODY CTEXTBODY CHTMLBODYURLCCHARSET CPRIORITYCSERVER NSERVERPORTLUSESSLNCONNECTIONTIMEOUT NAUTHENTICATE CUSERNAME CPASSWORDLURLGETLATESTVERSIONcdo2000Customg14rA!AA3rABaAAAQArA"SASASAR1AA2AAASebAA!AAAARAASAQq!!!AAArA5A44qqqA4C1AqAArARAba!!AA6qq151aA515qQ1aAA5q"AA39;@^CceZl5B*S  !!&"&#23#%#&$ҍ"YfTC  T%%CoAGESSolbO % < sys_procesandoConectando al server cloud... Informando estado general. C GESTASK6sys_actualizaciones.prgCa e Estado General informado.sys_actualizaciones.prg% sys_procesando%hjT]Se estan procesando actualizaciones en segundo plano. Puede continuar trabajando normalmente. s%  o?TCEG_Comando_GESsys_clases_actualizaciones.prg"TC6Ta CjT]Se estan procesando actualizaciones en segundo plano. Puede continuar trabajando normalmente.%C C%UXAUTXEGXGESFE XDESDEGESTASK XFUERZAUPDATEXMOSTRARVENTANAXAVANZARVERSION XCOMANDOSXMSG SP_MENSAJESYS_PROCESANDOUSER_LOG PUB_INDEXOAGESSOLOSISTEMAINFORMAR_ESTADOGENERALSP_OCULTAR_DEFINITIVAMENTEOCMDDATOS_ADICIONALES P_VERSION_EXEMOSTRAR_VENTANAEJECUTARMENSAJEACTUALIZAR_GESFE#  T 1.134T  T - !TCGEs.FE.GES_WSFEv1NT  %  |CHYa tiene la ltima versin de las libreras de facturacin electrnica (  ), quiere actualizar igualmente?  |CHYa tiene la ltima versin de las libreras de facturacin electrnica ( ), no hace falta actualizar !!! T a % Ba T&T Setup_GESFE_v .exe%CC0 NC,No se encontr el archivo de instalacion !!!C C (C(CCٟAtencin !!! El sistema se va a cerrar y se va a ejecutar el mdulo de actualizacin, por favor espere a que termine de actualizar para volver a abrir el GES!! (CG(C(C T-CrunasaUXFILE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORYZZZOWSFEXVERSIONXSALIRXVERTXT XVERCONTROLLIBRERIA VERSIONADO PUB_INDEX MENSAJE_SINOMENSAJE SW_SHOWNORMALODEYFUNCGET_PATHAAAP_LIMPIA_TEMPORALESEJECUTAR_ACTUALIZADOR SYS_KILLPROCTC ,TCGES_Actualizador.exe v(  .Error al eliminar el proceso GES_Actualizado. sys_actualizaciones.prg1CGES_Actualizador.exe(:C VFPAT.DLL(C VFPAT.DLL:C VFPAR.DLL(C VFPAR.DLL,| ShellExecuteshell32T T C T &T CCZ ""T C T-,BC      UXTIPOACTUALIZACIONXPATHCFGXSW_SHOWXCMD XEXTRAPARAMSXGES_AODEYFUNCGET_PATH SYS_KILLPROCOEXUSER_LOG PUB_INDEXMESSAGE SHELLEXECUTE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORYP_LIMPIA_TEMPORALESu#<#7'<     '7      T T T T T T T T T T  T  T  T  T  T TTUP_LOCALP_SYSTEM P_SESION_ID P_DEV_ENVP_EMP P_EQUIPO_ID PUB_INDEX P_SUBSISTEMAP_AGES_SOL_SERVERP_AGES_SOL_DIRP_AGES_SOL_ENGINEP_AGES_SOL_LOGLEVELP_AGES_SOL_PROTOCOLP_AGES_AUTOINICIAR_MINIP_LOCALIZACIONP_AGES_SOL_EXTERNOP_AGES_SOL_INFORMAR0&QCFG_CTRL SYS_CFG.prgTTTT C T  T C T  TTTTT VT ` T  TC  TC  T  BUOCFGSYS_CFGPRG XID_COMANDOP_SYSTEMLINEASVALORP_LOCAL P_SESION_ID P_DEV_ENV NORMALIZARSEP_EMPP_LOCALIZACIONP_AGES_SOL_SERVERP_AGES_SOL_DIRP_AGES_SOL_ENGINEP_AGES_SOL_LOGLEVELP_AGES_SOL_PROTOCOLP_AGES_AUTOINICIAR_MINIP_AGES_SOL_EXTERNOP_AGES_SOL_INFORMAR P_EQUIPO_ID PUB_INDEX P_PUB_INDEX P_SUBSISTEMA&QCFG_CTRL SYS_CFG.prgCsystemClocal C Web_SolingesC sesion_idC equipo_id CDEV_ENV Cemp  C localizacion C subsistema #Cages_sol_server C ages_sol_dir#Cages_sol_engine%Cages_sol_loglevel%Cages_sol_protocol)Cages_AutoIniciar_Mini$Cages_sol_externo%Cages_sol_informarC Pub_Index#C ID_ComandoC  BUOCFGSYS_CFGPRG XID_COMANDOAGREGARP_SYSTEMP_LOCALP_WEB_SOLINGES P_SESION_ID P_EQUIPO_ID P_DEV_ENVP_EMPP_LOCALIZACION P_SUBSISTEMAP_AGES_SOL_SERVERP_AGES_SOL_DIRP_AGES_SOL_ENGINEP_AGES_SOL_LOGLEVELP_AGES_SOL_PROTOCOLP_AGES_AUTOINICIAR_MINIP_AGES_SOL_EXTERNOP_AGES_SOL_INFORMAR PUB_INDEX#     %Ccons kQCONSTCcfg.TCCFG_Ctrl Sys_cfg.prgaCCFecha+Ciibb_baC6-C iibb_cabaC6 C T T--BCC  "SI" 6U XID_COMANDOXFECHAXMOSTRAR_VENTANAXFILE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORYZZZOWSFEXVERSIONXSALIRXTPATHCONSODEYFUNCNEWFILE_LOCAL_TMPOCFGAGREGAR_VARIABLES_GENERALESAGREGARIIBB_BA IIBB_CABAGRABAR SW_SHOWNORMALP_LIMPIA_TEMPORALESEJECUTAR_ACTUALIZADORgIniciando actualizacin GESsys_actualizaciones.prg#     TCcfg] Archivo CFG: sys_actualizaciones.prg.TCCFG_Ctrl Sys_cfg.prgaCCVersion C%C0 m!Archivo CFG en TMP NO encontrado.sys_actualizaciones.prg |cArchivo CFG encontrado.sys_actualizaciones.prg T T-CActualizacin GES-BCC  "SI" 6U XID_COMANDOXVERSIONXMOSTRAR_VENTANAUSER_LOG PUB_INDEXXFILE LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORYZZZOWSFEXSALIRXTPATHODEYFUNCNEWFILE_LOCAL_TMPOCFGAGREGAR_VARIABLES_GENERALESAGREGARGRABAR SW_SHOWNORMALP_LIMPIA_TEMPORALESSYS_MEJECUTAR_ACTUALIZADOR7NQEG_COMANDO_EJECUTAR_MACROsys_clases_actualizaciones.prg CMacro H C uT "T Iniciando macro...TCaT @ &xMacro %T CMacro ejecutada T  (qT T  T /T Iniciando macro...C TCaTFC]"TLPARAMETER xMSGC &TxMSG=()C "T return xMSGC $T Function C TTCprgCMDC!CC:\Temp\Macro1.txt!CC:\Temp\MacroF.txtTCPathvG)(C%CCC:\Temp\MacroJP.txt'CCPathvC:\Temp\MacroP.txt T C()xMSG=&xPRG %T CMacro ejecutada T  (T T  G)(TCa BUOCMDSYS_CLASES_ACTUALIZACIONESPRGOSQL XCONTINUARXMSGXMACROXFILEXPATHXPRGSYS_M ADIC_MODOESTADO RES_MENSAJEORESPACTUALIZAR_ESTADO ADIC_CODIGOOEXMESSAGEXFUNCODEYFUNCNEWFILE_LOCAL_TMPActualizar_GESFE+Ejecutar_Actualizador] Inicializar_Variables_Generales Leer_Variables_GeneralesPAgregar_Variables_GeneralesActualizar_IIBBActualizar_GESEjecutar_Macro2RAAQAq!AA!QAAqA21"1 AAqAbA AAAQ3qq3BQa!311qq2abaaaaaaaaaaAaAAAaA2aq32QQBQ3231bAr!3r21q!"1A2q!!!Q1Ab!R!a!AA1QqaQ1AA"2!K +Fw ][K|qq>##)%{= fnT 5 C T LTC%C TC .html G(G GG(G+(sys_upload_ftpT  C @.htmlTC aTC  H(TNo se pudo obtener el IP!!! T-(uT T-% C C BUXAUTOXOKOIPXIPXFILEXMSGSETS OBTENER_IPODEYFUNCNEWFILE_LOCAL_TMPSYS_UPLOAD_FTPXDESTINOP_FTP_IPP_EMPFTP_ENVIAR_ARCHIVOSOEXMESSAGEMENSAJE* wconnect TTCwwHTTPNT-TChttp://checkip.dyndns.com)TC5TCCurrent IP Address: IP pblico: !TC IP pblico:  wconnect BU XIPXIPSTR FN_PUBLICWCONNECTOIPWWCLIENTOHTTPCHTTPPROXYNAMEHTTPGET FN_RELEASEI QWWHTTP wwHTTP.PRGwconnect TTCwwHTTPNT -TChttp://checkip.dyndns.com )TC5TCCurrent IP Address: IP pblico: !TC IP pblico:  wconnect BU XIPXIPSTROHTTPWWHTTPPRG FN_PUBLICWCONNECTOIPWWCLIENTCHTTPPROXYNAMEHTTPGET FN_RELEASEObtener_IP_Dominio Obtener_IP1"aaaqABA12rqbQ221rqbQ21&-I7%O\d7]aoY<U UXESTADO-TCUXVALTHISESTADOEV_ESTADO_ACTUALIZADOU UXTAREA UXTAREA"C TimerEventTimerT-T-CTimerTimerEvent_TimerTC CollectionN"TCMonitor2_EstadoNTUTHIS ADDOBJECT TIMEREVENTENABLEDINTERVAL COLA_COLLESTADOPADRE%CxModobL/ T%TTa  TT T aH  6C Seal de vida Inicio Normal  Z=C Seal de vidaInicio como servicio  :C Seal de vidaInicio como visor TT C]U XMODOTHISAGENTE PACK_FILES OPEN_FILESESTADOMODOPADRE REGISTRO_LEER TIMEREVENTENABLED REGISTRAR_LOG EXE_INICIO%Cmonicfg2 8FQ \monicfg2%Cmonilog2 tFQ \monilog2%Cmonistat FQ \monistatUP_SYSTEM(%C& FQ FQ\ %C.tipobN,ALTER TABLE &xBase ADD COLUMN tipo N (1) & (3( !%C FQFQ\UXBASEP_SYSTEMTIPOOEX24Cmonicfg2Cmonilog2CmonistatF G((IDUFG-($>C G-(UTHIS PACK_THISMONICFG2IDUMONILOG2TIPOFORB5 FG((TC CollectionNTCC~ -TC Monitor_TareaaN%  % 6C  Evaluada: C  C  C T-FG((%CtmpproxaFQ=omonicfg2 <)tmpprox%CTMPPROXNqF G((idu E TC Monitor_TareaaNT% m% i5C  Proxima: C   TC Monitor_TareaN% % 1CEvaluada Proxima Vacia  T-CC UXTAREATHIS OPEN_FILESMONICFG2 COLA_COLLREVISIONPEDHIJAAGENTEEVALUAR_PROXIMAREGISTRO_GUARDAR DEBUG_MODO REGISTRAR_LOGIDUNOMBREPROXIMAADDDISPONSETMPPROXTOPDISPAROACTIVAESTADOEV_ESTADO_ACTUALIZADOEV_COLA_ACTUALIZADA(TCTC] mTTT w% &T%<"% 3C Seal de vida Suspendida TT -  F- TC4Q% T- C%  7%C   C    F#)%dCCT a%  !T%<%  /C Seal de vidaLatido TUXFNDTHISLATIDOLIMITE_MEMORIAOMONSVC EXE_INICIO SUSPENDERAGENTETICK DEBUG_MODO REGISTRAR_LOG TIMEREVENTENABLED OPEN_FILESMONICFG2REVISIONPRIMERA_VUELTACOLA_REEVALUARPROXIMADISPAROIDUEJECUTAR_PROXIMAMONISTATESTADO REGISTRO_LEEREV_ESTADO_ACTUALIZADOn  CU%XTAREAOTMETHIS OPEN_FILESREPORTARPROXIMAIDUINICIOREGISTRAR_LOG_TAREA_INICIOEV_TAREA_INICIADANOMBREESTADOACTUALP_DEVEJECUTARREGISTRAR_LOG_TAREA_RESPUESTAEV_TAREA_FINALIZADAULTIMA XRESETMONITOR RESPUESTA RESULTADORESETDISPAROREGISTRO_GUARDARORSTREGISTRAR_LOG_TAREAOREN SHELLEXECUTESHELL32DLL XERRORSHELLP_LOCALOSHELLORENGEVALUAR_PROXIMAREGISTRAR_LOG_TAREA_FINCOLA_REEVALUARD:C  U XTAREATHIS REGISTRAR_LOGIDU ID_INTERNONOMBRE RESPUESTA RESULTADO RESULTADOITIPOF<CInicio ejecucin UXTAREATHIS REGISTRAR_LOGIDU ID_INTERNONOMBRETIPOC9C Fin ejecucin UXTAREATHIS REGISTRAR_LOGIDU ID_INTERNONOMBRETIPO@.CU XTAREAXMSG XTIPO_LOGTHIS REGISTRAR_LOGIDU ID_INTERNONOMBRETIPOq#  %C xResultadobN[ T(%CxResultado_InternobN T%CxTipobN T!%C p_sesion_idbC T   T F T CC C  - T CC C  - rmonilog2C  jwrmonilog2C UXIDU XID_INTERNOXNOMBREXMSG XTIPO_LOG XRESULTADOXRESULTADO_INTERNOXTIPO XSESION_IDXMSG2 P_SESION_IDTHIS OPEN_FILESMONILOG2IDU ID_INTERNOFECHANOMBREMSGMSGMEMOTIPO_LOG SESION_ID RESULTADO RESULTADOITIPO1G+(monitor2_presetBCU XOPERACIONMONITOR2_PRESETGET_PRESETEADA&G+(monitor2_preset BCUMONITOR2_PRESETGET_PRESETEADAS_COLL(   UXTAREATHIS OPEN_FILESREGISTRO_GUARDARCOLA_REEVALUAR(   UXTAREATHIS OPEN_FILESREGISTRO_BORRARCOLA_REEVALUAR2 BC Monitor_TareaaNUXIDUTHIS OPEN_FILES %Cc:\monitor2.log0`!TCc:\monitor2.log C TCc:\monitor2.logC CUXMSGXMNFL2? T% 8 CU XNO_CARGARXPADRETHISPADRE CARGAR_DATOS CUTHISDISPONSE 62 C(DT- pC zT-T-UOEXXTAREATHIS COLECCIONDISPONSE DIRECTORIOSPADRE&%CThis.DirectoriosbL,%CThis.Padre.directoriosbOhT =TC Directoriossys_clases_tablas.prg BUTHIS DIRECTORIOSPADRE CTC CollectionNTCCFG((~ TC Monitor_TareaaNCU XTAREATHIS OPEN_FILES COLECCIONREVISIONMONICFG2PEDHIJAADDIDU%Cmonicfg2 >FQmonicfg2%Cmonilog2 FQmonilog2%Cmonistat FQmonistatUTHIS DIRECTORIOS DIR_SISTEMA:%3CUXLEERXIDUXHIJATHIS REGISTRO_LEER CUTHISDISPONSE9 C $T-UTHIS OBJETO_CONFIGDISPONSE  %C DF G((IDU ET% FG((pedid E%C4 G((IDU>aBC  >- TT  T  T  TTTTTTTTTTTTTTTTT |T 5%p_mon_tests_corrige_proxima = 1 T a%C $G+(monitor2_preset T C  F! T CG((RESP<- T #$T %$ G(( FU&XIDUXHIJAXDPMONICFG2IDUPEDPADREPEDIDACTIVAFORTHIS REGISTRO_LEER ID_INTERNONOMBRE INTERVALOULTIMAPROXIMAFIJAMACROREPETIRDISPAROCONFIGRESETREVISIONPEDHIJAAUTO RESULTADO RESULTADOI ULTIMA_OKTIPOCORRIGE_PROXIMAMONITOR2_PRESETGET_PRESETEADAXORDMONILOG2RESPRESPUESTA_ULTIMAMSGRESP_OLD<FTC]> UMONICFG2THISIDUREGISTRO_GUARDAR8F G((IDU E%C41UMONICFG2IDUTHIS%kYTCp_mon_tests_corrige_proxima = 0p_mon_tests_corrige_proxima = 1 YTCp_mon_tests_corrige_proxima = 1p_mon_tests_corrige_proxima = 0F%C B%M G((IDU E%C4 I >>>>> > > > > >>>>>CC>>>>>>> > UTHISCORRIGE_PROXIMACONFIGMONICFG2IDUREGISTRO_AGREGAR ID_INTERNONOMBRE INTERVALOULTIMAPROXIMAFIJAMACROREPETIRACTIVADISPARORESETREVISIONPEDIDPEDPADREPEDHIJAAUTO RESULTADO RESULTADOI ULTIMA_OKTIPOx5 TC% DTB-%C :TCCiCHC%CCC<% #  T QTBa"%< AT jT<BaUXDATETHISACTIVAPROXIMAFIJAULTIMA INTERVALO/  T 9 T -TC Memowidthv G$(.CPOR EJECUTAR: CZ(%Cthis.objeto_configbO%jC CON CONFIGTCTC X(TTC &xCLin (f C SIN CONFIG C PUBLICADO% TaT- G$(TCTC!C EJECUTAR: #TSin Respuesta de Texto TT T  (TCCLINEA:  &xCLin  G( (Q G( TTC C  60T Detalles : C C 2T Error # : CZC C 0T Cdigo : C C 2T Lnea : CZC C 0T Procedure : C C  @ T?T CC xResultadobN C c  6%C T!C1G+( C"&C FINALIZADO: CZ%#+T##!T$$ # T%T&  G$(  BU'XMLXNITXCLINXMSGXOKOEXXTEXTOOEXIXMW XRESULTADOXDSESXDES DATASESSIONIDP_DEVTHISREPORTAR ID_INTERNONOMBRE OBJETO_CONFIGVAL_CREAR_TEXTO VAL_PUBLICARCORRIGE_PROXIMAP_MON_TESTS_CORRIGEULTIMAMACRO RESULTADOMESSAGEDETAILSERRORNO LINECONTENTSLINENO PROCEDURE RESULTADOI ULTIMA_OK MENSAJE_CLEARREPETIRACTIVA RESPUESTAESTADO 5 TTC(TCCCfHt N TRYC=CATCH FINNALY ENDTRY AT4No se pueden usar TRYCATCH... dentro de una macro!!!B-UXMSGXMLXCLINTHISMACROXNIT %Cc:\monitor2.log0`!TCc:\monitor2.log C TCc:\monitor2.logC CUXMSGXMNFL2 %B-F#)>>>>>>> > > > > >CCC (UTHISMODOMONISTATPRO_NOMPRO_INIPRO_IDUACT_NOMACT_INIACT_IDUULT_NOMULT_INIULT_FINULT_MSGULT_IDUREVISIONPADREEV_ESTADO_ACTUALIZADOOEXF#)TTTTTTTT  T  T  T  T  UMONISTATTHISPRO_NOMPRO_INIPRO_IDUACT_NOMACT_INIACT_IDUULT_NOMULT_INIULT_FINULT_MSGULT_IDUREVISION%C="TSIN TAREA DEFINIDA ZTTT U XTAREAIDUTHISPRO_NOMNOMBREPRO_INIPROXIMAPRO_IDUREGISTRO_GUARDARMTTT U XTAREATHISACT_NOMNOMBREACT_INIINICIOACT_IDUIDUREGISTRO_GUARDARTTTCTT  T  ESPERANDOT T  UXTAREATHISULT_NOMNOMBREULT_INIINICIOULT_FINULT_MSG RESPUESTAULT_IDUIDUACT_NOMACT_INIACT_IDUREGISTRO_GUARDAR5G+(monitor2_presetTC CollectionN('TC%CxOBJbL!CID_CCZ BUXCOLLNITXOBJMONITOR2_PRESETGET_PRESETEADAADDc5G+(monitor2_presetTC CollectionNTC CollectionNTC CollectionNTTT(c_TC %CxOBJbL$!TC fT C(CTC*  ID_CCZ BU XCOLL1XCOLL2XCOLL3ACOLLSCOLLXCOLLNITXOBJMONITOR2_PRESETGET_PRESETEADANOMBRETIPOADD\s;s"Agregar Operaciones NALT+O1s" Acerca... NALT+S-s"Salir NALT+SH{ T Inicio Normal +!TInicio como servicio {:TInicio como visorC  desde GES6T -  -s "a NALT+S%1мdo form splash with 01мoMonitor.Salir1 s N'Cmnu_addoMonitor.Agregar tUXFORMMNU_SYSNAMEMNU_OPERACIONES MNU_ACERCA MNU_SALIROMONIMODOXPRO P_MONITOR_GESP_EMPMNU_MODOMNU_ADDMNU_CREATE_MENU_OPERACIONES 5G+(monitor2_preset T- T- T-C#s" Tarea manual8TON SELECTION BAR 1 OF  (0)&xid s"\-s"Clientes"Internass"Tests1 s W#Cmnu_pop_addOPC 1 s W#Cmnu_pop_addOPI 1 s W#Cmnu_pop_addOPT U XMNU_NAME XEJECUTARXCOLLXIDXCOLL1XCOLL2XCOLL3MONITOR2_PRESETGET_PRESETEADAS_COLL_SEPMNU_POP_ADDOPC!MNU_CREATE_MENU_OPERACIONES_LISTAMNU_POP_ADDOPIMNU_POP_ADDOPT Ts"QTON SELECTION BAR CCZ OF  (CCZ)&xid TUXCOLL XMNU_NAME XEJECUTARNITXTAREANOMBREXID ID_INTERNOusCCW=s"Agregar Operaciones NALT+O9s"Modificar tarea NALT+O6s" Borrar tarea NALT+O,s"\- NALT+OAs"Ejecutar la tarea ahora NALT+O,s"\- NALT+OEs"Activar/Desactivar la tarea NALT+O1 sW-C mnu_pop_addOPoMonitor.Agregar$1oMonitor.Modificar!1oMonitor.Borrar#1oMonitor.Ejecutar"1oMonitor.ActivarUMNU_POP MNU_POP_ADDOPMNU_CREATE_MENU_OPERACIONESsCCW>s"Ocultar al minimizar NALT+M,s"\- NALT+O?s"Suspender actividades NALT+O,s"\- NALT+ODs"Mostrar ventana de control NALT+O&1oMonitor.sys_ocultar(1oMonitor.sys_suspender&1oMonitor.sys_mostrarU MNU_POP_SYSO%+ TB%Cmonicfg2 gFQ \monicfg2 T5~"C$CC$C  ?%CQTCTAREAS ATRASADAS EN EL MONITORC C C C C ;"TC C C BUXOK P_MON_CTRLP_SYSTEMACTIVAULTIMA ULTIMA_OKMONICFG2NOMBRE9monitor2_intercambio.prgmonitor_an04.prgUMONITOR2_INTERCAMBIOPRG MONITOR_AN04ev_Estado_Actualizado, Estado_AssignGev_Cola_Actualizadaev_Tarea_Iniciadaev_Tarea_FinalizadaINITIniciar_Proceso Open_Files] Pack_This& pack_filestCola_reevaluarOTimerEvent_Timer Ejecutar_ProximaRegistrar_Log_Tarea_RespuestaRegistrar_Log_Tarea_InicioRegistrar_Log_Tarea_FinMRegistrar_Log_Tarea Registrar_Logi Get_PresetGet_Preset_Coll8 Tarea_Grabar Tarea_Borrar GET_TareadreportarINITtDESTROYDisponse directorios_Access  Cargar_Datos! Open_Files"INIT#DESTROY/$DisponseW$ registro_leer$Registro_Agregar)Registro_Borrar*Registro_Guardarr*Evaluar_Proxima".Ejecutar/ validar_macro6reportar>8Registro_Guardar8 registro_leer:Proxima=<Actual'=Ultima=Get_Preseteadas_Coll ?Get_Preseteadas_Coll_Sep @mnu_Create_MenusBmnu_Create_Menu_OperacionesnE!mnu_create_menu_operaciones_ListaAHmnu_Create_PopupKI Menu_systrayK Check_ActivoMdummyUO T- T- T- T- TTCCT T- T T - T  T  T C T  Ta                   UOFORMPROXIMA COLA_COLL SUSPENDERTICKREVISIONREVISION_ESTADOAGENTEMODOESTADO DEBUG_MODOLIMITE_MEMORIALATIDO EXE_INICIOPRIMERA_VUELTAm T- T T- T-      U COLECCIONREVISIONPADRE DIRECTORIOS. T TT Nueva Tarea TTTTT T T -T  T a(T xMSG="Sin proceso definido" T  T T T T T- T T T- T- T- T T T TT T-  ! " # $ % & ' ( )UIDU ID_INTERNONOMBRE INTERVALOINICIOULTIMAPROXIMAFIJATIPODISPAROREPETIRACTIVAMACRO RESPUESTARESPUESTA_ULTIMARESP_OLDESTADOOBJETO_CONFIG_NOMBRE OBJETO_CONFIGCONFIGPEDIDPEDPADREPEDHIJAAUTORESETREVISION RESULTADO RESULTADOI ULTIMA_OKCORRIGE_PROXIMA TTC TT TT ESPERANDOT T TT T  T  T  T - * + , - .UMODOREVISIONPRO_NOMPRO_INIPRO_IDUACT_NOMACT_INIACT_IDUULT_NOMULT_INIULT_FINULT_MSGULT_IDUPADREMonitor2CUSTOMTMonitor_TareasCUSTOM/W Monitor_TareaCUSTOMWMonitor2_EstadoCUSTOM-[1q2q122q2q2!A!13qA1A111a11AQ2aAaAaA2qAA1AAAAA!A3qqAa2qraa1aaAAAsaqAAq1aQAA1aAAAa13q1111Bqaa1AAAqAAAqAAqQ1AqaaAAA3"AAArqBAA1AAqAAAAQAAaa3q3q2q321AAAAqrA2q22q2q2q2qqA8A22qAABA2aaAA2qaqaA2AAA1QA22A2!qAqQAAAQAAQAAqqq3qQ12qAA2"ArAAAAA1AB3q1aqASA2rA#Aq6aA!AAA!AA!1QA!!AAAbabaqAA5q!qAA2qqA1aqAqQ1AAA2qQA2qA!1A112q1112q1111a4!AAA2111!AAAqQA2q2aaaAR"q3ra3c1b1b15qA3BbR2A1!2ABba3q1AAaAQ!AA3q211`@<>11121`@ p<1a111<La ,@ l !?+-bYD:{? RTb v o^ 5z` ?^ D !H7!!M!%Q6&&n:&&s='x'wB''}G(m(K(s)V)n*\**^*+m+,v -.?.u/#3333 3(4N4K;t;;^ <f<e<AmAD,ENyLOPPQ+RQUGwU5WaUW/XsNXX~XY6ZA[p[]^b5btf*fg4glD#ln/NnpBap+qWd!}))//QQZ8R%M`mGf5VXUu TTCC]C%T/C(CU XFILETMPXFILETHISRES_FILE RES_TEMPURLP_AGES_PUBLIC_URLP_AGES_REMOTETMP URLENCODEP_AGES_LOCALTMP&TCTMP=Otr *TCNot ISNULL(Otr) TCdbf%CTMPAlQ F(-QiINSERT INTO TMPAL SELECT Otr.* FROM &xMaster tmp LEFT OUTER JOIN (xTabla) Otr ON &xJoin WHERE &xWhere QC |C* U XTABLAXMASTERXCLAVEXJOINXWHERE XTABLATMPODEYFUNCNEWFILE_LOCAL_TMPTMPALTHIS AGREGAR_TABLA  %CETCZIP:wwApi"" GTCjson_archivo_zipavfp_objects_definiciones.prgC BU XFILEXLIMPIARXRES ORESARCHIVOTHISRES_FILEODEYFUNCNEWFILE_LOCAL_TMPZIPFILESWWAPIAGREGAR_OBJETO_COLLb#%C this.res_collbOGTC collectionNCUOFILETHISRES_COLLADDTCC %C0 ITC json_archivo2avfp_objects_definiciones.prgTC B B-UXPATHXNOMBRE XNOCOMPROBARXCLAVE ORESARCHIVOCLAVETHISAGREGAR_OBJETO_COLL*CCdbfCdbf'CCfptCfpt'CCcdxCcdxUXPATHXNOMBRE XCOMPROBARXCLAVETHISAGREGAR_ARCHIVO GTC JSON_Archivo2avfp_objects_definiciones.prgCT BUXPATHOFILEOFILE2THISRES_COLLRECUPERAR_FILE PATH_FINALTUOOBJTHISCLAVE%TC BUTHIS EXTENSION RES_FILENAME%TC BUTHISNOMBRE RES_FILENAMEoCTC %C hCUXARCHIVO XRES_TIPO XFILENAMEOOBJTHISRES_TIPO AGREGAR_FILEV%.C O CTaU ORESPONSETHISRES_TIPOSETEAR_HEADERS_ARCHIVOORESPONSE_HEADERSCagregarTC TCC TCCT CC BaU XFILEXTIPO XTEMPORAL XFILENAMESYS_MTHISRES_TIPO RES_FILENAMEWWCLIENTRES_FILE URLENCODETCUXARCHIVOTHIS RES_FILENAMEC%C xRes_TipobLPT%C %CCfDBFTC*CUXARCHIVO XRES_TIPO XFILENAMEOOBJTHISRES_TIPO AGREGAR_FILEV%.C O CTaU ORESPONSETHISRES_TIPOSETEAR_HEADERS_ARCHIVOORESPONSE_HEADERS=TC TC CUXARCHIVOTHIS RES_FILENAME%C>TC>TC%| VFPURLEncode WWIPSTUFFTC%BCC`\ B BUTCVALUELCRESULTLCCHARLNSIZELNX VFPURLENCODE WWIPSTUFFw%C>1| URLDecode WWIPSTUFFQ API_URLDecodeTC %TC\  T BTC+ T T+agTC%$%C> UT!TC\T TC0x %*(TC=CC0x %C>TC\ &! cTC\TC\ BU LCTEXTLNSIZELNLOCLCHEXLNHEXLCRETVALLOEVAL URLDECODE WWIPSTUFF API_URLDECODE%C oResponseTCCfHP| PDF.C Content-Typeapplication/pdf TXT)C Content-Type text/plain7 XLSC>C=XLS  A7C Content-Typeapplication/vnd.ms-excel 2|1C Content-Type application/C@6CContent-Disposition filename=TaU ORESPONSETYPEOXEXTTHIS RES_FILENAME ADDHEADERORESPONSE_HEADERS U CQUERYSTRINGJ%C=:TC[ BUCJSONSTR BCCA={[UCJSONSTRATCf=TCfTC%3% T TC\T C&C\% TC \ T C>TCC>\ F B TTC%20 H: CxdefaultbCBC Cf6 CxdefaultbLBCfSI CxdefaultbN BCg CxdefaultbD: BC#U XQSXCLAVEXDEFAULTXNOT_UPPERCASEXCLAVEPXVALORZZXQSTXQS2XLIMITE(TC TCfTCfTC%'"%CC>\=TCC>\TC&%TC=   T # B : BTC%20 Hh! CxdefaultbCBC Cf6 CxdefaultbLBCfSI CxdefaultbN BCg CxdefaultbD! BC#UXQSXCLAVEXDEFAULTXNOT_UPPERCASEXXYYZZXQS2% B-<TC base64Helperavfp_objects_Definiciones.prgTC TCTCTCTCTaU OOBJTHIS CODIFICADOOCOD RES_MENSAJE ENCODESTRINGRES_FILERES_JSON RES_OBJECT% !B-<TC base64Helperavfp_objects_Definiciones.prgTC TCTCTCTCT-U OOBJTHIS CODIFICADOOCOD RES_MENSAJE DECODESTRINGRES_FILERES_JSON RES_OBJECTTT*T LineNo: CZ)T Message: +T Procedure: )T Details: .T StackLevel: CZ.T LineContents: +T UserValue:   BU OEXTHIS RES_MENSAJELINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS USERVALUEE 7TCC C C 6UXMSGXNOLFTHIS RES_MENSAJE TC collectionN %C i C %CC U XJSONOOBJTHISERRCOLINICIARJSON_AUTORESUCITARSE_PREJSON_AUTORESUCITARSEJSON_AUTORESUCITARSE_POSTYPEOCLONARSEU$ TCUXALIASXSTRUTHIS RES_OBJECTNFCURSORTOOBJECTEFQTCaaQ BUXTABLA TMPSDJSONTHISRES_JSONNFCURSORTOJSONK%C # FTCaa BUXALIASTHISRES_JSONNFCURSORTOJSONBCUXALIASTHISAGREGAR_ALIAS_JSON TC%LTC& Q k F (BCUXALIAS XNOCOPIARXFILEODEYFUNCNEWFILE_LOCAL_TMPTHIS AGREGAR_FILEi%CoDeyFuncbO,TCC( BCUXFILE DEY_FUNC2XFILENODEYFUNCNEWFILE_LOCAL_TMPUTC TCC TD%CC C6@KL TCTCCT Ba  T CT C  BaU XFILEXTIPO XTEMPORAL XFILENAMETHISRES_TIPO RES_FILENAMEMYDIRCREAR_ARCHIVO_TEMPORALRES_FILEXTXT URLENCODE TCC TC TTCCC  BU XPATHXFILEXFINALODEYFUNCGET_PATHTHIS RES_FILENAME PATH_TEMPORAL PATH_FINAL URLDECODERES_FILE/C Content-Typeapplication/json/CAccess-Control-Allow-Origin*UCAccess-Control-Allow-Methods&HEAD,GET,POST,PUT,PATCH,DELETE,OPTIONSTaU ORESPONSE ADDHEADERTHISORESPONSE_HEADERSGTCC BUXFILEXCOL2ARR XCODIFICADOXJSONTHIS OBTENER_JSON B{}UN % 1 CBCaUXCOL2ARR XCODIFICADOTHIS AUTOCODIFICARCODE_CODIFICAR NFJSONCREATE2TC TC TC- TC %C C%C%C C %C C %CJCC %C%CT VT FNo se pasa el nombre del archivo como parmetro de obtener_respuesta() T T"BC C6UXALIASXTIPO XNOCOPIAR XFILENAMEXCOL2ARR XTEMPORALTHIS AGREGAR_JSON AGREGAR_ALIAS AGREGAR_FILEAGREGAR_OBJETOERRCODERRMSGRES_FILERES_TIPORES_JSON OBTENER_JSONKTTTTTTTT  T  T  T  T  TTTTCUOOBJTHIS TRAFICO_IDRES_TIPO RES_MENSAJERES_JSONRES_FILE RES_OBJECT RES_FILENAME RES_TEMPURL RES_CODIGORES_COLLERRCODERRMSGERRCOLSTATUS CODIFICADO AUTOCODIFICARCLONARSE_PROPIO UOOBJUUrQSTRINGQOBJECTTCaC%b C BUXJSONOOBJ NFJSONREADTHISCLONARSE AUTOCODIFICARCODE_DECODIFICAR  C%CrCTTTC T C U OEXXERRCODTYPEOTHISREPORTAR_EXCEPCIONERRMSGMESSAGE RES_OBJECTERRORNOERRCOD UTHISINICIARU % HG+(wwutils(jG+( ip\wwutilsTC TC C (U XJSON XURLDECODETPAROEXXSALIRXITWWUTILSIP URLDECODE NFJSONREADTHISIMPORTAR_COLECCIONES UTPARB {path: "ok"}UCSeteando DUMMYH6e C xDummy_ValbUC DUMMY TYPE=U<7T Iniciado: CCC Response 201C C xDummy_ValbC0CDUMMY=C Response 200C 2e+C DUMMY TYPE=C xDummy_ValbTC BUXVALTHISAVFP_LOG XDUMMY_VALSETEAR_RESPONSEk2|CryptBinaryToStringCrypt326|CryptStringToBinarycrypt32UCRYPTBINARYTOSTRINGCRYPT32CRYPTSTRINGTOBINARY T TCC> TCC Q+%CC>  B BUPCSTRINGNFLAGSNBUFSIZECDSTCRYPTBINARYTOSTRING T T8TCCC\//\u000dC \u000aC $CC >TCC Q1%CC > B B UPCB64NFLAGSNBUFSIZECDSTCRYPTSTRINGTOBINARY<%C0 " BBCCUPCFILETHIS ENCODESTRING9 TCCUPCB64PCFILECBUFFTHIS DECODESTRING%C TC$%C C 0 %%C  C 0 TC TC BC  CC  BCUCJSONSTRTHIS QUITAR_BOMES_JSON LEER_QSTRINGU&TCTexto%TCRespU CQUERYSTRINGTHISQ_TEXTOPARSE_QSRES_TIPOTUOOBJTHISQ_TEXTO&TCTexto*TC Con_Stock)TCDeposito$TCMax'TCCodigo$TCBul$T CAtr &T CClase 'T CMarBon 'T CExacto +T C Disponible %TCResp BCU CQUERYSTRINGTHISQ_TEXTOPARSE_QS Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLERES_TIPOTTTTTTTT  T  T  T  BCU OOBJTHISQ_TEXTO Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLE TC CollectionNUTHISPEDIDOS ETCjson_o_Pedido_Vendedoravfp_objects_intercambio.prgTTC BUXPEDIDOXIDOPEDIDO PEDIDO_VEN PEDIDO_IDVTHISPEDIDOSADDs3   =BC UXPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENXPROCESOXMENSAJEXERRORTHISAGREGAR_PEDIDO_VENDEDOR3    ET Cjson_o_Pedido_Vendedoravfp_objects_intercambio.prgT C T C T C T C T C T C T C T C T C  T C  T C  T CCX C  B UXPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENXPROCESOXMENSAJEXERROROPEDIDO PEDIDO_VEN PEDIDO_GES FECHA_GESESTADOCOD_CLICTRL_GESCTRL_VEN PEDIDO_IDVPROCESOMENSAJE COD_ERRORVENDEDORTHISPEDIDOSADD^'4BC U XPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENTHISAGREGAR_PEDIDO_VENDEDOR'nBCYa existe el pedido CCZ para este vendedor. U XPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENTHISAGREGAR_PEDIDO_VENDEDORETCjson_o_Pedido_Vendedoravfp_objects_intercambio.prgTC TTCc TC TC BU XPEDIDOXMENSAJEXERROROPEDIDO PEDIDO_VENESTADO COD_ERRORMENSAJEPROCESOTHISPEDIDOSADD T- T+ T TCC ( Ta(U OPEDIDOSTPAROEXXSALIRXITXJSONTOPEDPEDIDOS_KL_COLLECTIONCOLLECTIONITEMSTHISPEDIDOSADDd  TT502 6 T T TH&    T T TH,2*   gT200 *   T208 )   T204 *   T400 22T207 ( TT205 BU XSTATUSAGREGADO XSTATUSEXISTE XSTATUSERRORXESTADOXMSGOPEDIDOTHISPEDIDOSPROCESOESTADOOEXH 0 B bBYa existe el pedido BNo existe el cliente BNo existe el artculo BNo existe el vendedor 4!BNo se reconoce la moneda x.B%La lista de precios tiene otra moneda &BNo existe la lista de precios =B4No existe cotizacin de la moneda para la fecha dada  F)B No se pudo leer la fecha enviada  BB9El campo DIVISAS tiene que ser SI, NO o una cadena vaca. cBError no clasificado 2&BCError no clasificado UTHIS COD_ERROR MSG_ERRORMJTCjson_o_Pedidos_Vendedoravfp_objects_definiciones.prgUTHISPEDIDOS CUOJSONTHISPEDIDOSIMPORTAR_DESDE_OJSONMJTCjson_o_Pedidos_Vendedoravfp_objects_definiciones.prgUTHISPEDIDOS CUOJSONTHISPEDIDOSIMPORTAR_DESDE_OJSON(  T$T LineNo: CZ#T Message: %T Procedure: #T Details: (T StackLevel: CZ(T LineContents: %T UserValue:  BU OERR XRES_MENSAJELINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS USERVALUECrear_Zip_Temporal0importar_tablaAgregar_Archivo_ZIPagregar_objeto_collAgregar_Archivo  Agregar_Tabla9Recuperar_Archivos Clonarse_PropioExtension_Access- Nombre_AccessyINITSetear_Headers}  agregar_file! INIT% INITh Setear_Headersp INIT  URLEncodew  urldecode Setear_Headers_archivon Leer_QString Quitar_BOM Es_JSON parse_qs29 parse_qs Code_Codificar< Code_Decodificar Reportar_Excepcion Res_Agregar_Mensaje INIT iniciar0 agregar_objeto; agregar_tabla_json Agregar_Alias_Json  agregar_json  agregar_alias  Crear_Archivo_Temporal! Agregar_Archivo_temporalX" agregar_filec" recuperar_file$ Setear_Headers% Guardar_JSON & Obtener_JSON_Puro& Obtener_JSON& obtener_respuestaG' Clonarse8* Clonarse_PropioW, Json_Autoresucitarse_Preo, Json_Autoresucitarse_Posz, Json_Autoresucitarse, INITI- INIT>.iniciarb.importar_desde_jsonm.importar_colecciones/hello/ dummy_obj/INIT1 EncodeStringG2 DecodeString.3 encodeFileX4 decodeFile4INIT#5 Leer_QStringS6Clonarse_Propio6 Leer_QString7Clonarse_Propio9iniciar;agregar_pedido_consulta7;agregar_pedido_con_error<agregar_pedido_vendedor2=agregar_pedido_registrado@agregar_pedido_existente@ agregar_error Bimportar_desde_ojsonZCobtener_status_recibirDmsg_error_accesssGiniciarJimportar_coleccionesKiniciarWKimportar_coleccionesK avfp_log_exL* T T TUCPBTCAUSAEMPRESAU T TUERRCODERRMSG* T T TUREP_FORMREP_DATAREP_TIPOV T       URES_TIPOs T T T T  URES_TIPOCLAVE EXTENSIONNOMBRE T URES_TIPO$ T  URES_TIPO T URES_TIPONTC] T T T T T T T T T - T  T  T -T 200 OK T- T- T T T- T-               ! " # $ % & ' ( ) * + , - . / 0 1 2U TRAFICO_IDRES_TIPO RES_MENSAJERES_JSONRES_FILE RES_OBJECT RES_FILENAME RES_TEMPURL RES_CODIGORES_COLLERRCODERRMSGERRCOLSTATUS CODIFICADO AUTOCODIFICAR PATH_TEMPORAL PATH_FINAL ORESPONSEORESPONSE_HEADERSU T 3URES_TIPO TURES_TIPO TURES_TIPO? 4 5 6 7 8 9U5 : ; < = >UU ?UD T T T T TUENVIOVENDEDOR ENCABEZADODETALLETIPO$ T @ AUQ_TEXTO TafTLParameter xLocFile, oResp C  DO (xLocFile)C oResp.Res_Mensaje='Ejecutado'5T(xret=EXECSCRIPT(xMacro, xLocFile, oResp)U AUTOCODIFICAR RES_MENSAJE RES_OBJECT T Ta T T T T T T T T a T  B CU Q_TEXTO Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLEh T- D E F G H I J K LUPEDIDOSU T T T T T T T TT T  T  T  T  MU VENDEDOR PEDIDO_GES PEDIDO_VEN PEDIDO_IDVCOD_CLICTRL_GESCTRL_VENESTADO FECHA_GESMENSAJEPROCESO COD_ERROR MSG_ERROR" T- N OUPEDIDOS" T- P QUPEDIDOSjson_envios_comprobantes JSON_Envios7U JSON_Envios JSON_TraficoU clase_errorCUSTOMUjson_reportes_pedidoCUSTOMUJSON_Archivo_CollJSON_RespuestasV JSON_Archivo2JSON_RespuestaswVJSON_Archivo_ZipJSON_RespuestasW JSON_ArchivoJSON_RespuestasBWJSON_Archivo_Temporal JSON_ArchivoxW JSON_TraficoCUSTOMWJSON_Respuestas JSON_TraficoZJSON_Respuestas_ExcepcionJSON_Respuestas_ErrorZJSON_Respuestas_OkJSON_Respuestas[JSON_Respuestas_ErrorJSON_Respuestas;[ json_objetosCUSTOM][ base64HelperCUSTOM[ JSON_PedidoJSON_Trafico_AutoIniciable[JSON_Trafico_AutoIniciable JSON_Trafico[JSON_o_recibir_pedidos*json_objetos:avfp_objects_definiciones.prg\JSON_o_modelo_pedido)JSON_Pedido:avfp_objects_definiciones.prgy\ JSON_Macro)JSON_Pedido:avfp_objects_definiciones.prg\JSON_o_stock_buscar_arts!JSON_QSParser:avfp_objects_QS.prg]json_o_pedidos_vendedor-JSON_Respuestas:avfp_objects_definiciones.prg^json_respuesta_recibir_pedidos4json_o_pedidos_vendedor:avfp_objects_intercambio.prg_json_o_pedido_vendedor*json_objetos:avfp_objects_definiciones.prg_!json_o_consultar_pedidos_vendedor*json_objetos:avfp_objects_definiciones.prgh`)json_respuesta_consultar_pedidos_vendedor-JSON_Respuestas:avfp_objects_definiciones.prg`P1Q2qqbbA1!A2AAq2q1AA21qaqA21qq2qAq1A9q12a2a31!A2qaA31Baaqqq5q151A!BAA2qaA7q111q1aaQa11AA2wS"2QAAs2CAAQACaAAaAA2qqQaaqqAaA2q3qA2qa211A!12A21AAA211!1"11aAAAA3q!qAq12q1qAq12q2q2!AAA23a1qQA2q!AQ2q2qA2qqA!131baB1qqqB2qaq2qQ2122Aa2211AR"!AAARARaAB!2q11111111111111112q3221"A8A1aAq>221AA"A!D2q2Q2qqqB2p1$e8qaA7qAaA7q!A17qQ8q!QAQ!QAAA1qaQ2q1P1qaAqAAaqqQ2q2111111111172qQA2121qQaaaaaaaaaaA2qA2q2qQaaaA2qqAAAA2AaaaAAAA@1aaaaaaaaaaaa!aaA52qa62qa4A1Q1Q11211p;;4;61P p@0:2;22P1610144aQ11 0121154B5%qA+ H7/ E U<p v \E 8 mH` qK  uN' zU#]NfiWu}4m!!$G7$$Z$N%^x%%f%S)jt),,N.'w.04=0o2?23B/3H4Nh44O44R 55Y66`67c,78oL8P9 ww9w9*x9;-;<B=!>ME>>T> ?Z.??]?Ce DXFFFGF.G,GXGHHIJJJJJM?MQMoMMMO]QR#RJT3&TGVC2VWT8WW_=X_ZkO\\S\]WQbff(fgtfhhvhi~ij,knBn;okopp#r Orssx+dz}g~~ZUʀ 8W 9{ ! Xh,/936HtTHTHuHIxIJzEJRJ|JP4QXFXDXgXiZjZv[[&]]6^^gDhx(y(yUy~Yo~fԀk%[|$cYs74    T C  %  }\tmp\log 3G(\tmp\log\cov_vc1_CC.log%Cxno_fcbL T-+%Cxremito_transferenciabL# T-%CxpedidobNQ T"%C xpresupuestobN TG( \temp.txtG( T T-"T\tmp\CC]R"T\tmp\CC]R"T\tmp\CC]R"T\tmp\CC]R"T\tmp\CC]R"T\tmp\CC]RT  G(9  CG+(listadosG~(clasesT#T \tmp\TCC]R C! T"T#CX T$T%C&%'"%Ctmp_preparacionesQ(%h1 _prep)N Q _prep(%Ctmpcmp F*Q T+c<, ,+ T-.inicial-%<0 01JC X(0G+(ve_procsG~(clases%3  T 4aT5C] T6T7CX T8- T9- T :-H8 X T :a C~T :;  T :a< C=<,>?@ TA- TB-TCTDH  EZ%CrF>TGN VTGS E{TGS 2TGN TH TI TJ=%K     % L  )TM9 MTMC Datasessionv+aT% F%C       ve_pedido(J   TO%JB%FPG((tccvord E%C4h(%PR0  CPR 'CEl pedido est anulado !!!S%B- d%PTP fCYEl pedido est cancelado (porque ya fue facturado o porque fue cancelado manualmente) !!!S%L B- `9% PU     TCGEl pedido est rechazado por la gerencia, no se puede operar con l !!!S% B- \%CTz >C1El pedido se encuentra en proceso de despacho !!!S%v B- XFVG((pedido EFPB%Cremxfac4 CVX  C U OCBEl pedido tiene entregas, no se puede facturar por esta opcin !!!S%Q B- T%T %%T Y @C3No se puede remitir sobre un pedido no aprobado !!!S% B-  T<-H  Z $%P[ PU Y  ;C.El pedido debe estar aprobado por crdito !!!S T<a% B- Z 3%P[ P\  PU   CC6El pedido debe estar aprobado por crdito y stock !!!S T<a% B- 2 %<  P!% PT $CPedido est cerrado !!!S 2%CPedido con problemas !!!S%LB-B%P]C C^a 6 JC=El pedido est bloqueado, no se puede facturar ni remitir !!!SB-@%_C  CP` %CPa9C,El pedido no est liberado para facturar !!!SB-3%bC  .%CPc *9C,El pedido no est liberado para entregar !!!SB-!% Pd ` T ! )CNo se encontr el pedido !!!S%B- >% ,5C(Debe especificar un nmero de pedido !!!S%(B- :! PB G(M T9M  E% L 0eNUV L f g    T  T T? T@- TATB TCC XTDN TE TF TG TH TI TTCXT TJKTTT TTL TTTTMNTNN TO TP TQ TR TST  J(T TU- TVTWC XTXCXTYCZCVZWX TZT[CT\C T]- T^ T_ T` Ta Tb Tc- TdTeCXTfCX TgThCX Ti Tj Tk Tl Tm Tn To Tp Tq Tr Tst pr_funciones Tv%Cw <&B%zCXG+( ve_funciones%y&!CCliente inactivo !!!SB Tz T{6%Cz{zC6| 'C{SB%'%Cdeposito M'Qdeposito+%C~depositodeposito 'LC?El cliente debe tener asignado un depsito de transferencia !!!SB-)%CC\S .F% L Q(TCC$6 TT%TC" 6TfTgTiTeThTT%" )T $) T%N)T}"% C}c )F #}%)T}TrC TTCX T T T T T T- T-TC#X T Ts TTC XTCXTCX TT%C& T% T TTTN T TTCXTC XTCX T- T T T T TTNTN T T Tj Tk Tl Tm Tn T To Tp Tq T T T T T]- T TT T T T T T%v.H--  --+ C _- y- 2-%-TP -TCC$6TPTPTPTPTPTPTPTP[TP\TPUTPT /%.ge01zH.N/" C ./ CC &/ CD/ 2N/TCPXTCPX T T T T T T T T T% 0 T T 70 T T T T%0dlogmsgCXC XCXCX -beg: Ct%Ccliotros 0Qcliotros%Rz41 Czcliotroscod_cli%1%Ctmp_assembliesu1FQCQF+CNd 1  >CO%1C C%v ?2CCPz 2 C C%~2C% 2 TCaa%C 2CS! ve_funcionesa%A3%%Cxcambio_externobN=3 T/% C    36ve_procsC$" 6%4 C%8 3TvC T8a CaH4i4 v,4 v?4 vR4 vi4! T- T T$+C va6 CF+aST TH5% 8 Tv% 8 Tv%5 TEcodigo Tv 5 ve_motivo(v%C} 5T} T% 5TCX% g6;C.El motivo seleccionado no se puede utlizar !!!S Tv 7!%  7%r7Tr%r7 TCa%C 7CS %7%;E7 T :a 7H`77 7 T :a 7 T :- 27%%Cmotivos.req_autbL8% 7 T  8 T H188 vH8! v8%8T v8% 8T v8! (G% KF>%(C    : Tve_comprobante C% 9 T :-% :3TC VC d66!TC Vd6F %C  =:-?   L:#)C referencias  ve_referencia(v T   :T A T T  T   T Tv @%Ctmp_chq ;h1?C  C CDN NC(DNCC(LC CQ ;F#%YCZCVZWX-<S%Cven_oper _<Qven_oper%Cccprov <Qccprov%Ccheques <Qcheques%Cproveedo <Qproveedo ve_cheques(vTYCZCVZWXTTF T~@%C =T  4>%V>%Cproveedo =Qproveedo"CproveedocodproT ! 0>T "F#T # >$%a&'( )*+C&' , *C-S #+C#.+66/C&')*,01C&',2+3O>4C&' , C-S #4546N6TCCOD)TCC CF6TCD T T T TTT A T T  T%Ccuexmoti @Qcuexmoti%C tmp_cuexmoti@F7Q$%Ctmp_cuentas_motivosAF8Q,ocuexmoti tmp_cuexmoti% A4ocuentascuexmoti9(61 Q& ::& & ( A%vGFPT C 7 C00CCZR-C00000000CC ZR6%C  CF!%;<;   B!C  ccventccvfacC  zT;=%>D-%   PU  DT;W!% PW D%%CtccventtccvordCC CC!Error, no se encuentra el pedido CCZ de la referencia C VFC/C dNDC cNCXX666   !!!S TvT;?%C  >DT";@ %a?F% :kD TAa D TA-T;B TC  TD  TE TF TG THJTIJ   (     TK TLC  AI M T C T D TE TF TG TH%  FTPNTPO TK TL%P ;FTfTgH`F$G vwF! vF%FT vF% FT vG! v$G T mI1%@S C Q H%C  GT;@ G T TR" ve_cliente(vaa%"HF G((idEzC"Z%C4 WH3C La sucursal CC"Z no existe !!!S Tv mH TyCOC"T HHHiI vH! vH%HT v2I% .IT vII! viI T JM&%@S US mL'%  BJ TV TW TX TY TZ T[ T\ T] T^ sK!% L   oK T T T T T T T%C{ J ve_varios_2(v K ve_varios(v T T T T T T T%ACL%K%C B99 KTB96!TCCCC.- T/%B80 B99 B86 ?LTBCC iL TCTB80HLFM vL! vL%LT vM% MT v&M! vFM T rR%M12f5do show_report12f6do print_report512f7'do notas_cliente in ge01 with xcod_cli %r5N TC%C 1NCSTvCd%%C   NFe-%C4 NFC9Debe haber un flete del tipo "Servicio/No se entrega" !!!S Tv N TeHOO v*O! veO%aOT vO% OT vO! vO TF #} Tfg ThiTjRTOkTPlTEmTFnTGoTHCp{2f5{2f6{2f7HPQ J QTCCiCH$TCCiCH$ J yQTCCiCH$TCCiCH$ TCCiCH$ 2QTTHQnR. CJ  QTCD: #CA}q C  QRTC 2nRT S'%C    RTvCrHRS vR! v!S%ST v\S% XST vsS! vS T ^V:%C     uT6ve_procsC$" 6A% f  Cs   qT ve_entrega(v Tu Tvwuv%uTCvS%uU% T Tv U Tv%xJUCprovinccodigo%yUCpaisescodigoHUZV vU! vU%UT v#V% VT v:V! vZV T +X%Ccliotros VQcliotros%RzV Czcliotroscod_cliM%C     z  NW ve_assemblies(v T-HcW'X vzW! vW%WT vW% WT vX! v'X T  Y%C| mXF#S |/%f C    XTvC} X C~ C%vX CHYY vY! va ]Y%YYT vY% YT vY! vY T  ZHYZ vZ! vIZ%EZT vZ% ZT vZ! vZ T  X]%[ve_procesar_acuerdos4% C}    \ Tj Tk Tl Tm Tn T To Tp Tq T T T T T T TR%f  C    Cs  {\ ve_descuentos(vH\T] v\! v\%\T v]% ]T v4]! vT] T  `6%C     #_%C_ T9b%a^%Cccarmado ^Qccarmado%%Caccarmadoarmado^T4 T5T6T7T8T9T:"%C ccarmado.exhbN^T; ^ T;ve_armado_datos(v Tb9H8__ vO_! v_%_T v_% _T v_! v_ T  e%CC a`T"C"xtxtremito=&tmplpar %CC `T"C"xtxtremito=&tmplpar %Ctextos `QtextosFG((codigo%CNd(dH7ac bTotextos  z  ) tmp_textos% bRotextos  C  ) tmp_textos bTotextos  z  ) tmp_textos% bRotextos  C  ) tmp_textos C cXotextosC z  ) tmp_textos% cVotextosC C  ) tmp_textos% ;d<T<CCC<  C<6T<T< dT<T<T<$% L ~  dve_comentarios(vHde ve! vAe%=eT v|e% xeT ve! ve T f7% L   C fve_datos_carga(vH0ff vGf! vf%~fT vf% fT vf! vf T Rm T C T T T T T T T T T T T T T T T %C t_redondeobNh T%C t_redo_mebNBh T T T T T T T T T T T T T T T T T T T T T T T T T0%C     i Tb T T T T T T T T J(h<   TCa C'TCz0 SN6 T T T T T T T T T T T T T T T> T?QTC>? fh    C T T T T T T T-%   ul%f gl C CHlNm vl! vl%lT vm% mT v.m! vNm T oo%A CCg B99  US C     n sys_doscen}%  n%n]CPEl monto de la operacin supera el mximo posible sin identificar el cliente !!!S Tv nHn{o vn! v o%oT vDo% @oT v[o! v{o T u% L  p% o ve_totales(v o%Cxres_vebL p Tv%Cv r%Cgp?C2Existe un problema con la lista de precios (1) !!!S Tv%p TaB-<iotempcomp.$)&C. & r)  % rC2Existe un problema con la lista de precios (2) !!!C  Artculo: CCCCC /CC6CCC /CC6S Tv%r TaB-W% Cv  C   C  r9C,El comprobante tiene un importe negativo !!!S Tv%r TaB-E%vv # C}    xt%Ctipodoc \sQ\tipodoc%%CBtipodoccodigo sOC$El tipo de documento es invlido !!!C Tipo Documento: BS Tv tt%B99t pt#%CCCC- lt2C%Debe tener algn documento o CUIT !!!S Tvo%A CCg B99  US C     tHuu vu! vRu%NuT vu% uT vu! vu T %CCobranza Suspendo? D% L  S  C %Catribs hvQatribs%Ctarj vQtarj%Ccliotros vQcliotros Czcliotroscod_cli%A ~ %Ctmp_ve_cobranza#wFQ2TCCxcta_cob_externobC6'%C C  x%C w#%CcuentasabrevwT9( w T xTocuentas9(9:9QC(XQUQQQ CXQ AQ 9(1 }oatribscuentasXtarj 9:(9(9:C9(QCC(XQUCQQQ CXQ AQ 9(    C aC9 6 atribscuentasXtarj 9:(9(9:C9(QCC(XQUCQQQ CXQ AQ 9(    C aC9 6  atribscuentasXtarj 9:(9(9:CC9 DEBITOC(XQCC DEBITOC(XQUQQQ CXQ AQ 9(    C aC9 6 atribscuentasXtarj 9:(9(9:CC9 CREDITOC(XQCC CREDITOC(XQUQQQ CXQ AQ 9(    C aC9 6 atribscuentasXtarj 9:(9(9:9QCC(XQUCQQQ CXQ AQ 9(   C C aC9 6 1Q&  TAa% ~%Csucprop (~Qsucprop$%C sucpropcodigo~%C ~F-:%C4~>  F-%C4~  -%C4 >3% S C C4  Y ve_cobranza(v%Cxres_vebL TvH$ vTX vTN vTS v$TS%vH TvH]! vt! v%T v% T v! v! T{2f5{2f6{2f7%vn!%vTP[TP\TPUTPT  T T T T%Cconver -Qconver%Civa_ven ]Qiva_ven%Citm_desc Qitm_desc%Censamble Qensamble%Cve_altas Qve_altas TT ve_pedido.prgTPedido2% m   Jtrsacstockstkxdeptccventtventascccliecompromicompromcliauxve_transitm_descensambleiibbprovve_altasepresupdpresuppickings  Ta%co_aut%%trsacstockstkxdeptccventtventasccventventascccliecompromicomprommovstockremxfacdespachonumfaccliauxdiariogconceptove_transbatchconveritm_desciva_venensambleiibbprovarmadopickingsCC V A ven_oper6C  V ccprov6C   cheques6 trsacstockstkxdeptccventtventasccventventascccliecompromicomprommovstockremxfacdespachonumfaccliauxve_transbatchconveritm_desciva_venensambleiibbprovarmadopickingsCC V A ven_oper6C  V ccprov6C   cheques6 iCTNo se puede registrar la operacin ya que corresponde a un ejercicio inexistente !!!S T%%b Ta Tv. } Tv.!trsac T" T#-T$CC 999,999,999_T%P%&'proc_stk%0FP C) T*- T+-C transaccin %o, NJTC]6ocompromn51 \tmp\compromQ1%vw   +%u PT   ݋%C.^ T T T ҋ T/ Tg-RCEHubo un problema interno. Debe realizar un mantenimiento de stock !!!SFP N%gg o w   0   K%u *P[ PU  PU  P\ Tw% Tw %-%C1 ی!! % L G( \temp.txt <G( \temp.txtG G %%/ZT2CP=Cr*CdCcV6666c3 !"#$%&'()*+-  TG ?3Problemas con el cambio. Probablemente no se carg.  TCfinal a%45 6 ,  Cm ka6   8 TA%C  7 %C-8 Tf%%C m k6 'C m k6 |%%w#%B B9  T:5;% T5:G+(ve_procs ʐ T%x%w! T*a% T+a4% k    T ve_pedido.prgTFC/NC/ND%< T=c T>- %=%)T?C;<= 000C;< R! G+( ve_funciones%>O C@%<fGG(T"M TA TB T/3C"Vuelve a modificar el comprobante.C% Ta T=H =1! =}%hT Tv. = = =W T%C1 O%GdlogmsgCXC XCXCX -aborta 1!! =n! 2 T. T t%  ϔ Tm T%C1 l%ddlogmsgCXC XCXCX -aborta 1!! F%B%C.Õ T T 7 T/ Tg-RCEHubo un problema interno. Debe realizar un mantenimiento de stock !!!SFP)%  \GG(%KJ%\,%   :% T"R 61%C  ܗ%# T"A pregunta_mrda(""El comprobante no fue aprobado !!! ؗ T"? pregunta_mr(""El comprobante no fue aprobado !!! 2/C"El comprobante no fue aprobado !!!ST"CRM6 X%<% tT"R 8%F T"? pregunta_mr(""El comprobante no fue aprobado !!! 4T"CRM6(CComprobante no aprobado !!!S TT"R *CEl remito no fue aprobado !!!ST"M T Tv TA TB T/%"MF>C-Rechazado. Vuelve a modificar el comprobante.C T. X!%%C1 %^logmsgCXC XCXCXCX-aborta 2!!  T Tv TA TB T/OC>Es remito, no pudo aprobar. Vuelve a modificar el comprobante.C% CNo pudo aprobar !!!S Ta Tv  T.  T T%0 % L kG( \temp.txt G( \temp.txtG G %%vZT2CP=Cr*CdCcV6666W3 !"#$%&'()*+-2  TG ?3Problemas con el cambio. Probablemente no se carg.  TGG(%C1 %dlogmsgCXC XCXCX -aborta 3!!%dlogmsgCXC XCXCX -end: CtGG( ;C.No se puede operar con un cliente sin CUIT !!!STzCX%C tmp_bie_busQG%C tmp_altasןFHQ%CtempcompF#Q %Ctmp_ve_cobranza.FQC .dbfIJ CGG(G(G(BUKXTIPOPED SIN_STOCK XSIN_IMPORTES XCOTIZACIONXEXTERNOXPEDIDO XPRESUPUESTO XNO_PEDIDOXCANTIDADES_ORIGINALESXRECALCULAR_PRECIOSXSIN_IMPRESIONXTIPO_NCXSOLO_MODIFICAR_PEDIDOP_VE_COMPROBANTE1_COVERAGEP_LOCALXNO_FCXREMITO_TRANSFERENCIAXCOMPROMISOS_ANTERIORESXALICUOTAS_ORIGINALES XLOTESXIT2 XASSEMBLIESXTMP_CHQXTMP_CUENTAS_MOTIVOS XTMP_ALTAS XTMP_COBRANZA XCON_IMPORTES ACTIVEFORM DATASESSIONIDABRIR_TABLAS_FIJASLISTADOSCLASES XUSR_AP_STK XTEMPCOMP OPEN_FILESXSUC XOLD_XCOD_CLI XOLD_XSUCXDEPOSFN_DEPP_VE_PREPARACIONTMP_PREPARACIONESARMADOTMPCMPMAXARRARRXTITTABLASINICIAL XARR_REMITOSP_VE_MAX_REMITOSVE_PROCS P_ROTULOSINMXIDXPEDIDO_REMITO XUNEGOCIOSXREMITOS_YA_LEIDOSALFASINSTK P_NC_SINSTK XERROR_PED RESET_FILESDATOSCOMPROBTOTALESXTMP_VE_COBRANZA_INICIALIZADOXPEDIDO_DESGLOSE XPEDIDO_PARAMXPRESUPUESTO_PARAMP_VE_BLOQ_INICIALACCESOXBLOQUEOXSUCURSAL_CAMBIADAXLISTA_CAMBIADAXRESP_NPAUT OLDSESSION VE_PEDIDOXPEDIDO_EXTERNOTCCVENTTCCVORDCOD_CLIMENSAJEEST_DESPGERENCIAREMXFACPEDIDOREMITOP_VE_REM_PED_AP P_VE_BLOQCREDITOSTOCKARM_BLOQP_PD_BLOQ_TIPOP_VE_LIBERACION_ENTREGASOTLIBFABP_VE_PD_LIBFACREMDV1ACOPIOP_EMPDIRREA IIBB_PROVXOLD_AP_CREDITO XOLD_AP_STOCKXOLD_AP_GERENCIAXOLD_EST_DESPACHO XOLD_PEDIDOIDXAPROB_ANTERIOR FN_APROBACIONROTROTULOTVENTAS BEG_TVENTAS YA_EXISTE YA_CARGADO RE_ANALIZO P_RELAXEDREG_SUCXCOD_CLIP_VE_CLI_INICIALXRFCXSUCFACLOCALESVE_024P_SUCXSUCFAC_EXTERNONUMFACPVRXSUCFACRXFACTURA_ELECTRONICAXFCE_IDXFCE_CAE XFCE_VENCXTIPO_COMPROBANTE XFCE_CREDITO XFCE_BONOSFISXSUC_REFERENCIA XPUNTO_FISCAL XOTRO_CLIXCUITXCOFINXNOMBRE XUSAIVAANT XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIACLIENTES PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XCNDSP_DESCR XCNDSP_CUOTAXCNDSP_NO_DESGL XCNDSP_PLAZOXCNDSP_ANTICIPOXCNDSP_VALORESXCNDSP_NEGOCIO XCNDSP_C1D XCNDSP_C2D XCNDSP_C3D XCNDSP_C4D XCNDSP_C5D XCNDSP_C6D XCNDSP_C7D XCNDSP_C8D XCNDSP_C9D XCNDSP_C10D XCNDSP_C11D XCNDSP_C12D XCNDSP_C1P XCNDSP_C2P XCNDSP_C3P XCNDSP_C4P XCNDSP_C5P XCNDSP_C6P XCNDSP_C7P XCNDSP_C8P XCNDSP_C9P XCNDSP_C10P XCNDSP_C11P XCNDSP_C12PXCNDSP_DIASCHQ XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXCLIIBXGEODIRXCLIGLN XLIQPROD_SUC XLIQPROD_NUM XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENTXENTGLNXCOMPL XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XOCTXTSOL XTXTOTROSXREFCCXIDIOMA XEN_MILESXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGAXPEDVEN XCENCOSFACXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONXPERASOC_DESDEXPERASOC_HASTAXREF_MOVXLETREFXNUMREFXREFNUMXREFNUM2XCAUXCUO XSUCFACREFXMOTREFXREFXFECREF REFERENCED XSIN_APLICARXPROVISION_COMPROBXPROVISION_CAUSAXPROVISION_CUOTAXPROVISION_FECHAXREFTIPOXREFREG XREFESTADOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREFXTRA_NUM XTRA_FECHA XTRA_ENTREXCOB_CLIXCOB_EMP XOC_APROB XOC_FECHA XOT_FECHAXARM_COD XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXH ZARR_TEXTOS XMAXTEXTOS XERR_PERCEP XMSG_PERCEPXIVAINCXIVACATXTIPODOC XDOCUMENTOXRG5329XFIS_IMPXFIS_CONXFIS_VELXFIS_DRVXFCE XFCE_CONCEPTOP_FCE_V1_CONCEPTOXFCE_FEC_VENCPAGOXFCE_REPROCESOXFCE_RECHAZADOXFCE_CBU XFCE_ALIASOCPBT_QRXREMITO_MULTIPLEXREMITO_MULTIPLE_ITEMSXREMITO_MULTIPLE_ARRXCUIT_VALIDADO XND_BANCOPROV XND_BANCOXND_PROVXND_OLDXORIPEDXDTXDTMXESPOBS XCONSOL_PREG XARMADO_PREGXCONSOLXARMADOT_BULTOS XDESCRVARXNOTASPDXFLETE XVENDEDOR XCOMI_VENXDISTRIB XCOMI_DIST_DESC1T_DESC2T_DESC3T_DESC4T_DESC5T_DESC1ET_DESC2ET_DESC3EXLISTAXPLANCREAR_TMP_LOTES PR_FUNCIONESXRES_VEGET_CLI VE_FUNCIONESEST_ACTXERRXMSGCLIENTE_REVISADODEPOSITODEPTRFCL_ATRSUCURSALXFECEMIXFECEMI_EXTERNOXFECENTXFECENT2P_ENT_EXT_DIASXHORARIOHORARIOVENDEDORCOMI_VENCOMI_DISCOD_FLEDISTRIBGLNIBPV LISTA_INIXPRODXOTXTRANXTXTCPBT XTXTREMITO XTXTCPBT2 XTXTREMITO2XITMCOMFXITMCOMR XCONTACTOXMOTIVO XPLAN_LEIDOXOCXPERMISO XPRIORIDADXDEPNCXNREXCOTIZACION_FECHA XPROMOCION XREVISIONXREVISION_ACTUALXREF_EXT XPLATAFORMA XNICKNAMEOPLATAFORMA_HOLDERXFEC_INI XNCNDMOTIVOXMONEDAXCAMBIO XERRMONEDAXDIVISASXTCFIJOXACOPIO XACOPIO_RESTO T_DESC_CONS T_DES_NAC1 T_DES_NAC2 T_REDONDEO T_REDO_ME XREP_CANT XREP_MESES XREP_ULTIMAX1X2X3X4X5 P_VE_DEUDASHOW_RESUMEN_DEUDAFEC_VENTEX1TEXTO1TEX2TEXTO2DES1DES2DES3DES4DES5 AP_CREDITOAP_STOCK AP_GERENCIA EST_DESPACHO P_POPUPNOTA NOTAS_CLIENTEGE01MAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAX_PROD_EXTERNOMAX_DESC_EXTERNOMAXYIMAXYNP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIOCLIOTROSP_VE_ASSEMBLIESTMP_ASSEMBLIESCREAR_TABLA_ASSEMBLIESITEM P_VE_ALTASCREAR_TABLA_ALTAS INIT_OTROSLEER_PD VE_TRANS_GETINIT_PDVE_TRANS_DEFAULT LEER_PRESUP XMSG_LISTADETERMINAR_LISTAACTUALIZAR_PRECIOS_TEMPCOMPXCAMBIO_EXTERNO P_ENTREGAMOTIVOSTIPO DOMICILIOSP_VE_PD_MODIF_CLIENTEINIT_DE_REMITOS LEER_REMITOSMODIFICAR_DATAXMOSTRARASSEMBLIES FIRST_MODIFXFORM UNLOCK_ALLXMAXFORMXMOTIVO_EXTERNOCODIGO VE_MOTIVOP_NCND_MOTIVO_2LISTAREQ_AUTP_NCND_VERSIONCLETRALETRAVE_COMPROBANTEOBTENER_POSIBLES_REFERENCIASTMP_REFCAUSASYS_M VE_REFERENCIACAUFECHANUMEROSUBNUMDES_VAL DIF_VALORCAJ_PRODESTINODESCRTILDECUENTACOD_PROTMP_CHQVEN_OPERCCPROVCHEQUESPROVEEDO VE_CHEQUESXREG XTMP_CHQ_CUECUE_DEU PROVISIONTEMPCOMPDESC_INSFIJO RECEPCIONCOS_LIFOCOD_CUECOEFCOEFICIVAPERDES_INSIVAFIJOCOD_INSTOT_COMCALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MECANRG5329BIENESCUEXMOTI TMP_CUEXMOTITMP_CUENTAS_MOTIVOSCUENTASABREVCCVENTFAC_VENREFP_VE_NC_ARREGLO_VERSIONMOTIVOSUCXNO_TRAER_SINSTKCOMPL XOLD_NUMREFXOLD_CAU XOLD_REFTIPOXOLD_REFESTADOXOLD_SIN_APLICAR XOLD_REF_MOVXDEBE_TRAER_ARTSTRAEARTS XOLD_TXTOTROS XOLD_REFCCLEER_COMPROBANTETXTCPBT TXTREMITO P_AGE_TIPOP_VE_NC_VERSIONXOLD_SUC VE_CLIENTE INI_SUCURSALTARJETAXI_NOMBRE_EXTERNOXI_DIRECCION_EXTERNOXI_CIUDAD_EXTERNOXI_ZIP_EXTERNOXI_PROVINCIA_EXTERNOXI_PAIS_EXTERNOXI_PHONO_EXTERNOXI_EMAIL_EXTERNOXI_CUIT_EXTERNO VE_VARIOS_2 VE_VARIOSF5F6F7 GET_OTROSFLETES XZONAFRANCA ZONAFRANCA XTRANSFERIBLETRANSF XLETRAREMFC_CBUFC_ALIASFIS_IMPFIS_CONFIS_VELFIS_DRV EXPORTACION GET_TRANSP_ES_EXPEDICION VE_ENTREGAXERRENTXMSGENTVALIDAR_DOMICILIOSPROVINCPAISESP_VE_ASSEMBLIES_OPCIONAL VE_ASSEMBLIESXTMPCOMP_EXTERNO LEER_DATA PREPARAR_DATAANALIZO_SI_SE_REANALIZA P_VE_ACUERDOSCOMPLETAR_DESCUENTOSVE_PROCESAR_ACUERDOSP_DOS SYS_DOSCENP_CODEMP P_DESC_DOS P_DESCUENTOS VE_DESCUENTOS P_VE_ARMADOCCARMADOARMADORFECHA2CAJASBULTOSPALLETSEXHVE_ARMADO_DATOSP_VE_REM_COMENTARIOTMPLPARREEMPLAZAR_MACROSTEXTOSZTOPACTIVOCPBTCODGRUPO TMP_TEXTOSTEXTOVE_010VE_COMENTARIOSP_VE_DATOS_CARGAVE_DATOS_CARGAXBONIF TXT_BONIFT_IBT_IB_14T_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_RECARGOT_VALORDECLARADO T_TOTIVAINCTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_VALORT_PESONT_PESO T_VOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASET_IVAARR MAXIVAARRBRUTORECARGO_TARJETA T_CONSFIN INSCRIPTOT_DESCOM T_DES_NACT_IVA T_IVA_RG5329T_IVA26T_FINAL TX_DESCOMTX_IVA TX_IVA_RG5329TX_IVA26TX_FINALXPORCENTAJE_IIBBPERCEPCION_IIBB P_IVA_CAT_EMPNETO XDESCADIC XDESCADI1 XDESCADI2 XDESCADI3 XDESCADI4 XDESCADI5 XDESCADI6P_DESLIN DESC_ADI_GET DESC_ADI_CALP_VE_TOPE_EFE_CF XTMP_ES_DOSES_DOS VE_TOTALESP_VE_CONTROL_ERROR1CFG_LISMONEDAXEXTERNO_ERRORARR_ERRATRBULLISPREINTERNOP_SYSTEMNO_CC P_CLI_SIN_CCATRIBSTARJTMP_VE_COBRANZAXCTA_COB_EXTERNOCTA_COB XCLI_CTA_COBIMPORTECUOTASCUPONORDENATRIBUTO P_SUC_PROPIAPUNTOSUCPROP CTACOBVENIN VE_COBRANZAAAACONVERIVA_VENITM_DESCENSAMBLEVE_ALTASTRAN_PRGTRAN_TXTLOCK_GTRSAC XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTBEG_TRANXOPCPED XHUBOAPROBXNUMXCAUSAP_I_LOG SAVE_STOCKPROC_STKREG_LOCKBETAGAMMAP_VE_AP_STOCK_VERSIONCOMPROM LIBERAR_STK TTS_ERRORP_ANALISIS_PEDIDOS GUARDAR_PD XCPBT_TIPO VE_AP_CREDITOCONS VE_MIN_PEDP_APFIN_GERENCIAP_APFIN_GERENCIA_CTRLVALIDAR_CONTRA_PEDIDO_APROBADOP_VE_DESGLOSE_VERSIONXOLD_ID VE_AP_STOCKP_TTSOK_FACTURACION XCOMPLEMENTEXCOMPROBANTE_EXTERNO DES_COMPLSTK_ERRSTK_MSGFIN_TRAN PREGUNTA_MRDA PREGUNTA_MR P_APFIN_BLOQ TMP_BIE_BUS TMP_ALTASODEYFUNC CERRAR_DBF_EN_TODAS_LAS_SESIONES+ax%% TCWFG((ccvfacECr%C4 (%CtccventtccvordT T a F% F T  T  T T T TFG((codcli E%SXT TT (% 80 86 TC X  TCC [ T  !T"C T# $ T% CC ZP&% ' ( %T"C  TT80T)CC+*T,C-.*T/C)C0/,6f T% %1TB- TTTCZTC XT"2%%3TCZ TC2=H(w 91UTC2 \ 2wTC2\T"C"-T 4$T#CSN6T%4T56%ST F7 G((idECZ%C4 z3C La sucursal CCZ no existe !!!9B-  T:COCC ZP&% ; p%;%<F=G((numero E<T= T=% kCclientescodcli%%7 C77ZCZ!CCZsucursalid 0%TCX T FG((codcli E T%<F=G((numero E<TC=  TC= % Cclientescodcli%%7 C77ZCZ!CCZsucursalid T?%@ p TA%2 % %/%80 99 86 T"C  TT80T)CC+*T,C-.*T/C)C0/,6f%1/B-%1J. TP T% !%CQ(TQCCS 46BaUR XES_ANALISISP_VE_FCDERE_VERSIONXTIPOPED XAREA_REMCCVENTCCVFAC XARR_REMITOSPEDIDOXPEDIDO YA_EXISTETCCVENT XOLD_XCOD_CLICOD_CLI XOLD_XSUCSUCXCOD_CLIXSUCXRFCRFCXCOMPLCOMPLCLIENTESCODCLITARJETAXIVACATIVACATXRG5329RG5329XTIPODOCTIPODOC XDOCUMENTOCUIT XOTRO_CLIDES_CLIEXCUITXCOFINCOFINXNOMBRE TRAER_CLIAUT XCON_IMPORTES XI_DPROVINCIAPROVINC XI_PROVINCIAXI_DPAISPAISESDESCR XI_PROVPAISXI_PAISXRES_VE INSCRIPCIOP_TIPODOC_VERSIONNOMBRE XCLIFANTASIAFANTASIASUCURSALIDMENSAJEREG_SUCP_VE_PD_MODIF_CLIENTE XPRESUPUESTOEPRESUPNUMEROXOLD_SUCXEXTERNO XOK__PREGUNTAARR_PEDIDOS_INICIADOSDISTINCTTVENTASRECEP2 FACTURADOP_VE_PRESUP_CLIP_VE_CLI_INICIAL VE_CLIENTEXSUCURSAL_CAMBIADAXCOD_CLI_EXTERNO XSUC_EXTERNOPAISP_VE_NC_VERSION PROVINCIA RE_ANALIZO XCLINOMFACP% TCC$6 TTT T  T  TCWFG((codage E FT%  TT TCWFG((codage E FT%  sT"TC 6"TC 6"TC  6"T!C "6"T#C $6+T%C d 6/T%%C d 6/T%%C  d 6/T%%C "d 6/T%%C $d 6T%%dT&'T()T*+T,-T./T01T2C3T4N%2 T5Ca56%C5 C57 T8T9CX T: T; T< T= T>T?@ TA- TB-TCD TE TF TGTHNTIJ%KH%L CXT L %CL -T L %CL VTL%CL TL%CL TLN%L L L  L" L$ JTLTLTL T!L"T#L$2%L' L) L+ T&L'T(L)T*L+%LMT2LM T5Ca56%C5 C57%LJDTILJ%TNCK LOO6 TPTQC XTRCXTSCT TU2TVCK CLW LWW6 TXTYTZN T[ T\T]CXT^C XT_CX T`- TaTbCX TcTdCX TefTgNThTiTjTk Tlm'%Cclientes.tipo_negbCR TnCop i TnpTqTr Ts Tt Tu Tv TwTx Ty E% z [ %{3 T|} W TCC$6%~ !TC{ |C$6!TC{ |C$6  T|T|H  U %Cr9 TC|SN6 Q TS v TS 2 TC|SN6TN|OT |T|T|T | T|T|"%{ Cc t F #%p TT2|MT4|T8|T9|T:|TC| T; T< T= T>T?|@ TA- TB-%{ T;|T<|% T=|T>|  T= T> L% T;| T=|%.T<| HT>|T?|@TA|TB|TP|TI|TQC| =TR|T|TS|TU|TV|WTY|TZ|T[|T\|%iT[[T]|T^|@T`CPlataforma_Holderve_plataformas.prg^]T_`Ta|Tb|Te|7TuCCtccvent.ncndmotivobM |6Tt|T0|1T|T|T|T!|T#|T%|T&|T(|T*|T,|-T.|/T| TTE|TF| TG%THC|SSN6TCC$EFGTv|Tw|Tx|H1   E 1 TGT|T|T|%TC||6Ty|%K  C%2 T5Ca56%C5 C57%HSATF|BUXPEDIDOXFECEMIXEXTERNOXFECEMI_EXTERNOXFECENTXFECENT2P_ENT_EXT_DIASXCOMPLCLIENTESCOMPLXFLETECOD_FLE XVENDEDORVENDEDORAREAAGENTECODAGE XCOMI_VENCOMIXVEN P_AGE_TIPOCOMI_VENXDISTRIBDISTRIB XCOMI_DISCOMIXDISCOMI_DIST_DESC1P_VE_PRECIO_DESCDES_COMT_DESC2DES_COM2T_DESC3DES_COM3T_DESC4DES_COM4T_DESC5DES_COM5 T_DESC_CONST_DESC1EDES_ESP1T_DESC2EDES_ESP2T_DESC3EDES_ESP3 T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2XACOPIOACOPIOXLISTA LISTA_INIXDIVISAS XMSG_LISTADETERMINAR_LISTAMENSAJEXPRODXOTXTRANXTXTCPBT XTXTREMITO XTXTCPBT2 XTXTREMITO2XESPOBSESP_OBSXITMCOMFXITMCOMR XCONTACTO CONTACVENXMONEDAXCAMBIO XERRMONEDAXTCFIJOXPLANFPAGXSUCSUCURSALLISTAXHORARIOHORARIOXMOTIVOXREFXOCXDEPOSFN_DEPXPEDVEN XCENCOSFACCOD_CENXNREXCOTIZACION_FECHA XPROMOCION XREVISIONXREVISION_ACTUALXREF_EXT XPLATAFORMA XNICKNAMEOPLATAFORMA_HOLDERXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTP_VE_FCE_TIPO_EXPORTXCESDSP XFPRORROGAXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONTIPO_NEG(P_VE_FCE_TIPO_NEGOCIACION_PREDETERMINADAXPERASOC_DESDEXPERASOC_HASTAXREF_MOVXFEC_INI XNCNDMOTIVO XREP_CANT XREP_MESES XREP_ULTIMAXNOTASPDAUTXTIPOPEDTCCVENTFEC_VENP_VE_FECENT_VERSIONFEC_ENTFEC_ENT2P_VE_BLOQ_INICIALACCESOXBLOQUEOARM_BLOQCOMISIONXSUCFACSUCFACNUMFACPVRDIVPRODOTTRANCONTACTOTXTCPBT TXTREMITOXTIPO_NCP_IMP_NOTA_FACP_IMP_NOTA_REMITMCOMFITMCOMRMOTIVOPLANREF XPRIORIDAD PRIORIDADDEPPEDVENCOTIZF PROMOCIONREV P_VE_REVISIONREF_EXT PLATAFORMANICKNAMETIPOEXPTIPOEXPD TIPOEXPORT NCNDMOTIVOFEC_INIDESC1DESC2DESC3DESC4DESC5 DESC_CONSDESC1EDESC2EDESC3E T_REDONDEOREDONDEO T_REDO_MEMONEDACOEFICTCFIJO XRES_CAMBIOACTUALIZA_CAMBIO_PEDIDOREP_CANT REP_MESES REP_ULTIMAXORIPEDORIPEDXDTDTXDTMDTM XFCE_CONCEPTOFCE_CONCP_FCE_V1_CONCEPTONOTASXSUCURSAL_CAMBIADA INI_SUCURSAL!%C xplan_leidobN. T T%   % C %ge01 ve_otros( % T  T  C#H TTTT%{ m!TCGEs.FE.GES_WSFEv1ND%    iCvTiene que actualizar la librera de Factura Electrnica para hacer Facturas de Credito al menos a la versin 1.9.6 !!!! w " T# 2 HF$G((codage E&F'G((codfle E)F* G((plan E,!ve_otros_sin_importes(C/.%%,*+F* G((plan E,<%01 C2 34   u %*5%Cplanvarc QplanvarcF6 G((id%01 k%ECC2016 ZP  E89%,VT:6;T<6=T>6?T@6ATB6CTD6ETF6GTH6ITJ6KTL6MTN6OTP6QTR6STT6UTV6WTX6YTZ6[T\6]T^6_T`6aTb6cTd6eTf6gTh6iTj6kTl6mTn6oTp6qTr6sTt6uTv6wTx6y!%2 6z .%6=HT{6=|(6=D(T}|6A6= | T}|d6=  * T{|( &'%C planvarc.pCC|Z! "T{{2T}|C planvarc.cCC|Zd2T}|C planvarc.cCC|Zp E T{ T,C%   C2 34   2 ve_plan_especial( q %,m T:*;T<*=T>*?T@*ATB*CTD*ETF*GTH*TJ*TL*TN*TP*TR*TT*TV*TX*TZ*T\*T^*T`*Tb*Td*Tf*Th*Tj*Tl*Tn*Tp*Tr*Tt*Tv*Tx*y T,!%2 *z R %6=v T{*=(T}|*A*= | T}|d*= N T{|( J '%C condcobr.pCC|Z ! F T{{-T}|C condcobr.aCC|Z-T}|C condcobr.pCC|Z i T{ D%*5T:*;T<*=T>*?T@*ATB*CTD*ETF*GTH*TJ*TL*TN*TP*TR*TT*TV*TX*TZ*T\*T^*T`*Tb*Td*Tf*Th*Tj*Tl*Tn*Tp*Tr*Tt*Tv*Tx*y T,ve_plan_especial(!%2 *z )%6=MT{*=(T}|*A*= | T}|d*= % T{|( !'%C condcobr.pCC|Z! T{{-T}|C condcobr.aCC|Z-T}|C condcobr.pCC|Z @ T{ T Ta!ve_comprobante% MCEl plan de cobranza CC,Z est mal definido !!!C ! B  BU XPLAN_LEIDOXRES_VEAUT XCON_IMPORTESXEXTERNOP_VE_CLI_INICIAL P_POPUPNOTA NOTAS_CLIENTEGE01XCOD_CLIVE_OTROS XREP_CANTXREP_CANT_EXTERNO XREP_MESESXREP_MESES_EXTERNOMULTIMONXSUCFACNUMFACFCE XFCE_CREDITOFACCREDXFCE_CBUFC_CBU XFCE_ALIASFC_ALIAS XFCE_BONOSFISBONOSFISXOBJLIBRERIAVERSIONMAJORMINORBUILDMENSAJEFIS_IMP XPUNTO_FISCALAGENTECODAGE XVENDEDORFLETESCODFLEXFLETECONDCOBRPLANXPLANVE_OTROS_SIN_IMPORTESVLD_LISXLISTAXPEDIDOXPEDIDO_REMITOXTIPOPEDMOTIVOSTIPOVARIABLEPLANVARCIDXNUMREFXCAU XCNDSP_DESCRDESCR XCNDSP_CUOTACUOTAXCNDSP_NO_DESGLNO_DESGL XCNDSP_PLAZOPLAZOXCNDSP_ANTICIPOANTICIPOXCNDSP_VALORESVALORESXCNDSP_NEGOCIONEGOCIO XCNDSP_C1DC1D XCNDSP_C2DC2D XCNDSP_C3DC3D XCNDSP_C4DC4D XCNDSP_C5DC5D XCNDSP_C6DC6D XCNDSP_C7DC7D XCNDSP_C8DC8D XCNDSP_C9DC9D XCNDSP_C10DC10D XCNDSP_C11DC11D XCNDSP_C12DC12D XCNDSP_C1PC1P XCNDSP_C2PC2P XCNDSP_C3PC3P XCNDSP_C4PC4P XCNDSP_C5PC5P XCNDSP_C6PC6P XCNDSP_C7PC7P XCNDSP_C8PC8P XCNDSP_C9PC9P XCNDSP_C10PC10P XCNDSP_C11PC11P XCNDSP_C12PC12PXCNDSP_DIASCHQDIASCHQ DESGL_REMXREMITO_MULTIPLEZXREMITO_MULTIPLE_ARRVE_PLAN_ESPECIALA1A2A3A4A5A6A7A8A9A10A11A12P1P2P3P4P5P6P7P8P9P10P11P12 XMENSAJE_PLANXRESPLAN VALIDAR_PLANVE_COMPROBANTE4/sys_procesandoObteniendo datosFSFG((cuentaF G((codinsF G((pedidoG-( G-(F %CN  # TaF( F T4+ C+   bF # TCCOD> > > > > > *>  !" #%6>$ $ % *%&' '>$ $C'6 (>$C( $ $ )6>* %>)C( )6%'&>$$c>**c>))c> >+ +>,N>-N>.N>/ />0 0">1C$2>3 3>4C56a-6>7 >8 8>9 9>: :>; ;>< <% <%&(> $ % 8d  >8 (> $ ) 8d  %& >$  >$*>= => >? ?>@ >A #>B ! >C$> >DS8 8>E E>F GH IJ JK KLM1C$2NC$OP$9 TQ TR TS TT TUTVCXTWC X TX TY TZ T[ T\ T]c^ve_procsC  ZP QRSTUVXYZ[\]W%CQ F >+Q%CENVASES QenvasesF`G((codigo ESFj>bRcSd`efTgUhViWjXkYlZTF HFFF T4+ C+   F G((codins E F # TmCmCOD> >n>o o> > > > > *>  !" #% >$C $ %D  %&' # '>$ $C'6 Z ->$C( $C $ )D6>* %>)C( )6>p p> >+ +>q +>,S>r r>s s>t t>- ->. .'>/CC / / u6'>0CC 0 0 06">1C$2>9 9>P $ ) 9>3C v3># #>! !>4C56a-6">8Cw 8 x6>E E>: :>7 >; ;>< <% <g %& (> $ % 8d  >8 ( (> $ ) 8d  %&L >$ c >$*>= => >? ?>@ >A #>B ! >C$> >F GH IJ JK KLM8C$  *CDS 8C v8661C$2NC$OP$9O>EC$  CDS E E6N6%yT T  TQ TR TS TT TUTVCXTWC X TX TY TZ T[ T\ T]c^ve_procsC  ZP QRSTUVXYZ[\]W%CQ -F >+Q >qQ%CENVASES ]QenvasesF`G((codigo ESFj>bRcSd`efTgUhViWjXkYlZF T T T T CF >G >o >t>$ FHTF H!%56y ocomprombienes}Q}#Q#}!Q!}Q}|Q|}Q}Q} ~ JS }| tmp_comprom"~CCa6T T; pr_funciones!#rlotesxit#!|#!|||F FS( F (CC ZPCC ZPaCC ZPsys_procesandoFBUX_POR_CANTIDAD_ENTREGADA SP_MENSAJESYS_PROCESANDOXCANTIDAD_COMPROMETIDAXCOD_TVXITM_TVTEMPCOMPCUENTASCUENTABIENESCODINSTVENTASPEDIDOCOD_INSCOD_CUE BEG_TVENTASINIZMAX_PRODMAX_DESCAXPEDIDOOBIEDATA_CODIGO_VACIOITMMAXYNLISPRECOEFDES_INSCOEFICCOS_LIFOOLDCODOLDATRATROLDBULBUL RECEPCIONRECEP2XTIPOPEDXTIPO_NCXEXTERNO FACTURADO ENTREGADODESC_INS INVENTARIO COMPUESTOCONJUNTOCENTRO SUBCENTROTOT_COMCALCULO_TOTAL_PSGRAVADAAPROBTCCVENTEST_DESPITEMIVAPERCOSTO TRA_ENTREENTREGAACOPIOCOMPCODCOMPBULCOMPATRORI_CODORI_BULORI_ATRORI_CANIVAFIJORG5329 TIENE_BULBULTOS TIENE_ATR ATRIBUTOSLOTESSERIESXMONEDAXCAMBIO MO_TOT_COMCALCULO_TOTAL_MECOS_VENXDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMLEVANTAR_DESCRIPCION_COMPLETAVE_PROCSENVASESCODIGO COMENTARIOTIPOENVDTIPOENVDESCRCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORTMAXYISTOCKPESOMEDIDA DCODATRBULII CANTXBULT VOLXBULTOCOD_CEN XENTPROVINCIA XUSAIVAANT IVAPERANT P_PICKINGARR_TVSUMCANCOMPROMIDXIDCODCANT_COMINXBULTXPESOXVOLUXRECELLENAR_DATOS_DE_BULTOSPESONETOPESOXUDSPDEP TMP_COMPROMXDEPOS XLOTXART_VENC XLOTXART_ADVVENCIMIENTO_LOTE PR_FUNCIONESDESPACHODEPOSITOORIGINALAREASIGINDICETOTALVENCADVLOTESXIT XLOTESXIT2TRAER_ENSAMBLE TRAER_ALTASTRAER_IIBBPROVSP_OCULTAR_DEFINITIVAMENTE#FST%%C %Cartxcli lQartxcli0oartxcli tmp_artxcli ~:rtempcomp      F CN( UTEMPCOMPXESPOBSCLIENTESESP_OBS USA_PLANTXTIPOPEDARTXCLICOD_CLIXCOD_CLI TMP_ARTXCLIORDENCOD_INSATRBULAMAX_PRODMAX_DESC%ASP%C tmp_precarga TC]Vh1\tmp\CNCdNQ\tmp\+CN #) T%+aF G-(F G-(% aT C >otempcomp tmp_remmultfp tmp_remmultJtempcompC  S!rtempcompo tmp_remmult'CtempcompN(L >CO C0%     T O Ta% K+G T-ve_data(%Cxres_vebN) T%C  C"% Z,otempcomp tmp_remmult T# F>$S> ( !rtempcompo tmp_remmult'CtempcompN(E >CO C%%  x3%&'   f%  ve_datanc(%Cxres_vebN  TN%1      ) b! t! ! BU*P_EMP XTMP_PRECARGAP_LOCALCODCANMSGOK TMP_PRECARGAXRES_VEBIENESTVENTASXREMITO_MULTIPLE XTMPREMMUNODEYFUNCNEWFILE_LOCAL_TMPTEMPCOMP RECEPCIONCOD_INSATRBUL TMP_REMMULTCOS_LIFONITMAX_PRODMAX_DESCITEMALL PREPARAR_DATAXTIPOPEDMOTIVOSTIPOXFRMABMXEXTERNOVE_DATACLEARDATA_SCAN_TRANSFXREMITO_MULTIPLE_ITEMS COS_LIFO2MODIFICAR_DATALOCALESVE_004 VE_DATANCXMOSTRARASSEMBLIES4F%F#) T Ta u # T T- T - T aF G((codins) sys_procesando CalculandoF+COC+ -% C  \%g2 sys_procesando Calculando: CCCOZ$% XJ%CCAV S    T%;%S>% aF G((codinsFG-( T a% SFG((codigoE%C4>> !>"">#$ >> >">#>C Artculo / mal definido !!!% T a  > > >" ">#% &SF'G((codigoE(%C4r>)'$ >) >)%  C*>+ ,%-0F%> FF=>.C0123/4C035%6T7CC035T T74T88.T997'T::.C;6'T<<7C;6'T==>C6% ?S >?NFT@C X%CF G((codins%  E TAC4 % TAa%Au=Blistados@DE JC+Artculo facturado pero no encontrado !!! [CF] !!!% T@GFHG((cuenta E@%Cempresas @QJ \empresasFK-LFHq  ; LTMM.CCH'u\S6CN6oTOO.CCH'u\S6CN6CC P 6(TQQ.CS6ZTRR.C?N 6CKS KS 6TTTC.Ud TZTVV.CS 6CKS KS 6LTWW7CCH'u\S6CN6oTXX7CCH'u\S6CN6CC P 6(TYY7CS6ZTZZ7C?N 6CKS KS 6T[[C7Ud TZT\\7CS 6CKS KS 6 ;# T]].T^^7 ;X T__.T``7 ; Taa.Tbb7 ; Tcc.Tdd7% *TeHfCHfe.0%gCh ij    W #TkkCl6TmmTnn+Too Tpp%q "TrC0123/TsC035%t Tu%vq%vwG Txy mTxCv{uz  Tx>|x4T}}~CCux _B6% F G((codins EF@T.d CKS KS 6MTC035d CKS KS 6TC!% S @T.d CKS KS 6MTC035d CKS KS 68T.CKS KS 6ETC035CKS KS 6%.P(^B%CCKS KS 6Z!%T@TCKS KS 6TTTTTTTT TTC.d CKS KS 6aTCC035d CKS KS 6QTCC.TCKS KS 6^TCCC035TCKS KS 6TTC.d CKS KS 6aTCC035d CKS KS 6LTC.CKS KS 6YT C C035CKS KS 6FH$%CO   T-F # T%  T8 T9sys_procesandoBUXFILTROXNO_INCLUYE_ART_RECARGOXDATOS_FORZADOSTEMPCOMPMAXYICONSTIFLAGMAX_PRODMAXYN RELABIENESOKBRUTOBIENESCODINS SP_MENSAJESYS_PROCESANDOCONDCOBR RECARGOARTCOD_INSP_DEVAPROBOBIEDATA_CODIGO_VACIODESC_INS INVENTARIO RECEPCIONXCESDSPIVAPERBULTOSCODIGOBULPESO PESOXBULT VOLXBULTO VOLUXBULT CANTXBULTBULDESCDESCRMENSAJE ATRIBUTOSATRIBUTOATRATRDESCLLENAR_DATOS_DE_BULTOSPESONETOPESOXUACOPIOTOT_COMCALCULO_TOTAL_PSCOS_LIFOCOEFCOEFICDES_INS MO_TOT_COMCALCULO_TOTAL_MEP_REDONDEO_MO_TOT_COM TX_TOT_COMT_TOTALTX_TOTAL T_IMPUESTOSIMPUESTO TX_IMPUESTOS T_TOTIVAINC TOTIVAINCGRAVADAXCUEXENCVEN_CUELISTADOSCLIENTESPAISVENTASCOD_CUECUENTASCUENTAP_SYSTEMEMPRESASP_CODEMPT_IBIBT_IB_14TOXICOT_INVT_TOTIVAIVACATT_IIIIT_IVAINVTX_IBTX_IB_14TX_INV TX_TOTIVATX_II TX_IVAINV T_ADIC_IVA TX_ADIC_IVA T_ADIC_NOI TX_ADIC_NOI T_ADIC_II TX_ADIC_II T_ADIC_DTO672TX_ADIC_DTO672 IIBB_PROVAUXN P_VE_ARMADOXTIPOPEDMOTIVOSTIPOT_BULTOSP_VE_NO_CALC_BULTOST_PESOT_PESON T_VOLUMEN T_RECEPCIONP_DESLINT_TOTLIN TX_TOTLINP_PD_VALORIZACIONXMENSAJEVALORMONXMONEDAXCAMBIO_VALORIZACIONXCAMBIOCAMBIOXFECEMI VALORCBIOT_VALORVALORT_IVAVAR TX_IVAVAR XALIC_IVA_PERALICUOTA_PERCEPCION_IVA_RG5329CONS HAYPER_IVARG5329T_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASEZZIVA MAXIVAARRT_IVAARRSP_OCULTAR_DEFINITIVAMENTE+3sys_procesandoCalculando impuestosNTC0  S S  SN6?T C0  S  N6 T  T C d TT  T C d TT  T C d TT  T C d TT  T C d TT  %;T C d TT  T C d TT  T C d TT  0T  C d TC d TTC d TTTCd TTTCd TTTCd TTTCd TT%TCd TTTCd TTTCd TT+TCd TCd TTT%TC d TTTCd TTTCd TTTCd TTTCd TT%TCd TTTCd TTTCd TT+TCd TCd TTT   T &%!! " T#$%C&ZF'G((comprob E#%C4)*   T T T+C,- d TT,-+T+Cd TT+T+Cd TT+T+Cd TT+T+Cd TT+%4T+Cd TT+T+Cd TT+T+Cd TT++T.C,d TC,d TT+,-.T/,-+=%01  02 3 C4 : T5 T6 T  T78(96 T:8 n%, qT5C;/, TCC=><C@=>? 1 3 C4 6  T5*%, AS  qTBCB/, TCC=><C@=>? 1 3 C4 6qTCCD/, TCC=><C@=>? 1 3 C4 6%C  TC 8 TB TC,% C@=>? T5 T6 T9T:T:T:T:T: ? TE8(9 ET:8C;CC8:5C;T T6TEEC8:TFC5ETGC5Ed T8+G5 %C8:N .T:8C8:CFd TTGG X T88%89 T8 TE%5 8(9 TEEC8:%5E(&CMAL EL CALCULO DE IVA !!!H%5 TI/J(9"%CJ:6T:JCCJ:dCJ: T ET:JC;CCJ:5C;T T6TIICJ: TGITFCI%9 T8+CCGT.T:8C8:CFd TT88%89 T8TGCGCFd TT    %- T9T:T:T:T:T:cT6C KS (C5CL MNMO6d T6C6T55PT66QT  R,% C@=>? J(TSJTSJ T7 jJ(U%J 2+% CJT   <TUCCJSC CJSd T6T77UTSJUTSJ .'%C! VW  *TSJTSJ Q+%CJT  <TUCCJSCCJSd T6T77UTSJUTSJ M'%C! VW  ITSJTSJT77X2TY,-+5C6 Z[7%\c]&T]CCY \8 \ T*TZCCY \8 \ TYTYYZT^,-+%/T_CYCL MNMO6d TTYY_NTC0  S S  SN6?T C0  S  N6T C` d TT`` T C`d TT`` T C`d TT`` T C`d TT`` T C`d TT`` %T C`d TT`` T C`d TT`` T C`d TT`` 0T``C`d TC`d TTCab d TTabTCd TTTCd TTTCd TTTCd TT%)TCd TTTCd TTTCd TT1TCacd TCadd TTabTeab%wTCfb d TTfbTCd TTTCd TTTCd TTTCd TT%TCd TTTCd TTTCd TT1TCfcd TCfdd TTfbTgfbThCib d TTibhThCd TThThCd TThThCd TThThCd TTh%ThCd TThThCd TThThCd TTh1TjCicd TCidd TThibjT/ibh0%01 C4  02  T5 T6 T  T78(9T:8 O&%,i UBTkCl/i TCC=><1 6 l Tk5%,i  AS qTBCm/, TCC=><C@=>? 1 3 C4 6qTnCo/i TCC=><C@=>? 1 3 C4 6%C  Tn  Tm Tn,% C@=>? Y Tk Tp T9T:T: )& TE8(9 @T:8ClCC8:kl T6TEEC8:TFCkETGCkEd T8+Gk !%C8:!.T:8C8:CFd TTGG !T88%89! T8%k# TI/J(9"%CJ:g"6T:JCCJ:dCJ: T "@T:JClCCJ:kl T6TIICJ: TGITFCI%9# T8+CCGT#.T:8C8:CFd TT88%89# T8TGCGCFd TT #  $ %-$T:T:cTpC KS (CkCL MNMO6d T6C6%7&J(%%J V%% CJTR%<TUCCJSCgCJSd T6TqqUTSJUTSJg %%CJT%<TUCCJSCeCJSd T6TqqUTSJUTSJeTkkrTppsT``tTqqu.Tvibhknp`wqTxibh%&/TyCvCL MNMO6d TTvvyCajuste divisasz T{-<%C! VW  |S } (<~ ~$%Cccvent.versionbN'*occvent$%~ '*occvent$%~%C~ ( T{a2%} |S  { f+TCkTT5%Cq*%C) TGTFC%9) T8+CCGT)%C8:T).T:8C8:CFd TTGCGCFd TT ^)T88%89) T8 ) TJ(9)TCCJ:T%.*&CERROR !!!! IVAs#IVA TotalH T52TY,-+56 Z7_[TCvTY%C*TYCvT b+~C1Atencin !!! La diferencia en pesos supera los $ CC Z.-C C Consulte al soporte tcnico.H Cdiferencia en pesoszsys_procesandoBUXDATOS_FORZADOS SP_MENSAJESYS_PROCESANDO T_CONSFINXCOD_CLIXIVACATCLIENTESTARJETAXCOFIN INSCRIPTOOLDT_IIT_IITEMP2T_DESC1P_VREDONT_DESC2T_DESC3T_DESC4T_DESC5 P_DESCESPT_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2AAAT_IBTEMPBBBTEMP_IBP_PER_IIBB_MIS_X_ARTT_IB_14 TEMP_IB_14XTIPOPED REFERENCEDXIDREFXREFXCAUXCUOCCCLIECOMPROBFECHAP_PER_IB_COMIENZOT_DESCOMT_TOTAL T_IMPUESTOS T_DES_NACTEMP1P_DOS XZONAFRANCAP_CODEMP P_IVA_CAT_EMPFC_2_CON_IVA_INCT_IVAT_IVA26T_DTO672ZZIVA MAXIVAARRT_IVAARRT_IVAVAR EXPORTACION XENTPROVINCIAXSUCFAC NO_ALCANZADOXENTPAISXRG5329T_IVA_RG5329_BASE T_IVA_RG5329T_IVAVAR_RG5329 ACCIVAARRXSIGNO XCENTAVOSMENSAJEACCBASEZCONSFIN XUSAIVAANTCONSIVANOI IVANOIANT T_ADIC_IVA T_ADIC_NOI T_ADIC_II IIBB_PROV MIN_PER_IIBBXPER_IIBB_CALCMOTIVOSTIPO T_ADIC_DTO672T_FINAL T_REDONDEO T_REDO_ME P_VE_TRUNCAR XTRUNCADOT_VALORDECLARADO T_RECARGOTX_IITX_IB TX_IMPUESTOSDES_NAC1DES_NAC2 TX_TEMP_IBTX_IB_14 TX_TEMP_IB_14 TX_DESCOMTX_TOTAL TX_DES_NACTX_IVA TX_IVAVARTX_IVA_RG5329_BASE TX_IVA_RG5329TX_IVAVAR_RG5329TX_IVA26 TX_DTO672 TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672TX_FINAL TX_REDONDEOTX_VALORDECLARADO TX_RECARGOSYS_MXREFERENCIA_VIEJAXDIVISASXMONEDAARR_REFERENCIA_VIEJADES_PAGCCVENTFAC_VENCAUSAVERSIONP_VE_AJUSTE_DIVISAS XPESOS_IVAXCAMBIOXDIF_IVA_GLOBALXIVAACCXDIFERENCIA_FINALP_VE_AJUSTE_DIVISAS_MAXSP_OCULTAR_DEFINITIVAMENTEU4FG((tccvord Ta+aF1 aaa=error()TC%z!*%l  m TC7$%CX Cx T- TB B,CERROR INDETERMINADO EN XX04 !!! TBon error &onerr %J% *%     s%C*otccventaC %  T  ^*otccventaC % Z TT %FG((tccvord#6T MotccventaC    % >TT%%Ctccventtccvord]T El pedido CC@z 999,999,999_) ya existe y hay una limitacin numrica.FC ZP ve_pedido.prgoCC C "No se ha podido guardar el pedido!C Avise al soporte del sistema!!!a TB  T< %SAMeotccventCCCi'Ci''  !w  `X % pTC<% TCi T T TCi)TCCi' 8 T+a|%SAM ve_pedido4(% ,CERROR INDETERMINADO EN XX04 !!! TB T'   ve_pedido2%xFG((tccvord E%C4 9! t1C El pedido CCZ ya existe !!!   C!)TCCC6>"#$%&'C$(C))6*C6+,ZBU-XPEDIDOXORIPEDXDTXMSGTCCVENTTCCVORDTLOCKFILE_LOCAAAMENSAJEP_VE_PEDIDO_MANUALP_DOS P_DOS_PEDIDOP_CODEMPP_UNO SYS_DOSCENXSUCFACPEDIDOXLASTNUMP_VE_PEDIDOS_DNUMP_VE_PEDIDOS_HNUMUSER_LOG PUB_INDEX ARR_PD_SAMP_EMPXFECEMIP_VE_PEDIDO_MANUAL_SUGXANOXNUMXVER VE_PEDIDO4XRES VE_PEDIDO2REG_LOCKCOD_CLIXCOD_CLISUCXSUCNUMUSRTHOYFEC_INIXFEC_INIORIPEDDTDTM5TCC%C @T%bTCX#% CX T %CXT BU XDEPOS P_DEFADEPLOCALESVE_003 P_FACDEPPRIXSUCSUCURSALDEPOSITOCLIENTES4&%Cxdestino_forzadobNB T%%Cxdriver_forzadobCx T%%Cxcopias_forzadobN T% T&%Cxpedido_desglosebL T-T T% XC  T  o T C% D 'CC 6 F% BF"( \tmp\tmp_tccv \tmp\tmp_tccv \tmp\tmp_tccv.dbf% 3C"Hubo un error al asignar el nmeroB-%%C=C,Hubo un error al eliminar el pedido anteriorB-F- TC4T*% DA  WC -%   IC#El nmero de pedido asignado es el CC @z 999,999,999_ T T  T!," ve_aprobacion !$%&TEstado:  Z % '$ T(C aC)% D%T*C]'$ T(%Ca!%+,-. \>/ T0 T1 T C)%  jC$Los nmeros de pedido asignados son CC0@z 999,999,999_ / CC1@z 999,999,999_lT&Rechazado. Se desgloso en PD-AP/RECH: CC0@z 999,999,999_ / CC1@z 999,999,999_ FG((tccvord E%   XC#El nmero de pedido asignado es el CC @z 999,999,999_C -Se han descartado los artculos no aprobados.nTHAprobado. Descarta los que no tienen stock por no superar el mnimo. PD:CC @z 999,999,999_ FG((tccvord E%   cIC#El nmero de pedido asignado es el CC @z 999,999,999_3T Aprobado. PD:CC @z 999,999,999_  %   B C#El nmero de pedido asignado es el CC @z 999,999,999_C -Se han descartado los artculos no aprobados.UT/Aprobado. Descarta los que no tienen stock. PD:CC @z 999,999,999_ V T34T546>7%8  '$T(C$6C a-C)>7T*C]%8  '$T(C$6%Ca T0 T1 T C)%  jC$Los nmeros de pedido asignados son CC0@z 999,999,999_ / CC1@z 999,999,999_gT!Se desglos a pedido PD - SubPD: CC0@z 999,999,999_ / CC1@z 999,999,999_ R FG((tccvord E%   C#El nmero de pedido asignado es el CC @z 999,999,999_C -Se han descartado los artculos no aprobados.nTHAprobado. Descarta los que no tienen stock por no superar el mnimo. PD:CC @z 999,999,999_%9 C ;:C= <% C;:C=<%>"ptccvent?C@ "Ave_orden_de_picking %"ptccvent?C@"Ave_orden_de_pickingC%C)BUCXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXSIN_IMPRESIONXPEDIDO_DESGLOSE XES_NEGATIVOXTIPO_NCXPEDIDO2 YA_EXISTEASIG1_PDXPEDIDOXDTXDTMXOPCPEDXORIPEDP_VE_CONTROL_ERROR1TCCVENTP_LOCALINFIN_TRAN YA_CARGADO ELIMINA_PDTEMPCOMP RECEPCIONAPROBXHAY_RECHAZADOSXTEXTO_FIN_TRANXFILTRO_PARA_IMPRESIONNUEVO_PDAUTXEXTERNOMENSAJEXRESXRESCOD ESTADO_PEDIDO VE_APROBACIONAP_STOCK AP_CREDITO AP_GERENCIA VE_AP_STOCK EST_DESPACHO IMPRESIONXIDTOT_VENDES_COMCONS VE_MIN_RECGERENCIAOLDPED1OLDPED2TCCVORDMAXYIMAX_PRODMAXYNMAX_DESCORI_CANP_ANALISIS_PEDIDOS P_SEGTRAN VE_TRANS_SAVEXCOD_CLISCH_GUARDAR_PEDIDOXTRANP_PD_GUARDAR_UPDATE UPDATE_DTPEDIDOACTUALIZAR_ESTADO_PICKINGVE_ORDEN_DE_PICKING9 T-FG((pedido%D #+C+ @ C4%    -% F #% #%% C El artculo CCC  / C6CC  / C63 fue modificado por menos de lo que tiene pickeado CCZ !!! T Ta! C El artculo original del pedido CCC  / C6CC  / C63 fue modificado y tiene compromisos en pickings !!! T Ta! %! T T Tproc_stkC  6cP  CC@z 999,999,999_C$7%)eC"CC@z 9999,999,999_6CP6 Proc_stk: !C Ta!FH%` B T#F$G((comprob,E&C@z 9999,999,999_PCZ%C4)D%&C@z 9999,999,999_PCZ'%(C)Z% T# C$ BU+XERRORTVENTASPEDIDO BEG_TVENTASXPEDIDOREG_LOCKCOD_INSOBIEDATA_CODIGO_VACIOAP_STOCKGAMMAALFA P_PICKINGTEMPCOMPITMCANT_COMATRBULORI_CODORI_ATRORI_BUL RECEPCIONMENSAJE TTS_ERRORSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKTCCVENTDEPRECEP2XIDUSER_LOG PUB_INDEX REG_CCCLIECCCLIECOMPROBXCOD_CLICOD_CLICAUSACUOTAIN/4,%CAL  5C(Error !!! Llamar a Guillermo Negrete !!! T T -%C %CxtipodocbCs *Error en ve_pedidos.nuevo_pd(): xtipodoc, Tipo: Cxtipodocb Valor: C  (1) ve_pedido.prg %C xdocumentobC? ,Error en ve_pedidos.nuevo_pd(): xdocumento, Tipo: C xdocumentob Valor: C  (1) ve_pedido.prg/%80 99 86 TCFG((tccvord E%-0F C%T>C6C6 C6!"#$%&C6'(C6)*+C$,-./0123456789:;<=>C6?@CCBCDAE 6C6FGC6HC C$I6JKLMNOPQRSDTUVWXYC6Z[\]^_C6`aC6bcdef%%Ctccvent.tipo_ncbN>gh(%Ctccvent.ncndmotivobM>ijL>klmnopqrstuvwxyz{|}~C6CCZC 6 \>BC6*>C6 >C!>)%S  V >a k >-%CxNotasPDbC >'%Ctccvent.sucpropiabN >%  ve_pedidoCC ZP% x 8Habilitada la modificacin de descripciones de artculos ve_data.scx+ve_comprobanteC ZPCC ZPCC ZPCC ZP)ve_comprobanteC ZP%m >Cd T% d TF% #) T Ta  # T  T- T  T  T F> CtempcompO#) Ta+C+ CO A$% '% CCAV F  C;>!"#$HC C$I6C6C 6 !!""##$$+C$%%&&' (())''**++,,--..//0011dd T2T34T5T6"T7C 23568 T9T:;T<T=C9:<>F >47 >7 >;=>>>?C@&C. AB A.6?6*>CCDDEE%F<>%C"GC6 ?>%C"GC6%NT  T   T   $%  TH TI TJKproc_stk%&CM N6Ch 6P CC@z 999,999,999_C$ 7%HeC CC@z 9999,999,999_6CP6J Proc_stk: J  %aOve_procsC ZPCtempcompOC 6 QRSTUVWXYZ[\CCmotivos.porcentajebL C C]^ ^66%/F_ G((idEC/ZC0Z%C4M>``a(%Ca/!%aTT/FFH$%CO  = T-F # T ,T C C   dT6,T C C   dT6%>b c d %a($eve_presupuestoCa%MX/gve_mantenimiento_pedidosaa Ti Tj,k ve_aprobacionijFm m CO>!"nC@z 9999,999,999_oPpC C$I6qrsC6tuIvw,xIbc+C$j"C@z 9999,999,999_PCZyC] % !B-BaUzXPEDIDO XRECALCULAR XESTADOAPXPEDIDO_DESGLOSEP_EMPXMONEDAXLISTAMENSAJE TTS_ERRORXERR_CENTRO_DE_COSTOS RECALCULARUSER_LOG PUB_INDEXODEYFUNCNORMALIZAR_TEXTOXTIPODOC XDOCUMENTOXCUITTCCVENTTCCVORDPEDIDOREG_LOCK P_VE_REVISION XREVISIONDTMXDTMDEUDAT_FINAL XES_NEGATIVORECARGO T_RECARGOREDONDEO T_REDONDEOCOD_CLIXCOD_CLIDES_CLIE XOTRO_CLITOT_VENT_TOTALVALORT_VALORPLANXPLANHOYLISTAPRODXPRODOTXOTTRANXTRANCONTACTO XCONTACTOTXTCPBTXTXTCPBT TXTREMITO XTXTREMITOITMCOMFXITMCOMFITMCOMRXITMCOMRIVA_VENT_IVA IMPONIBLET_TOTIVA EXPORTACIONXIVACAT XENTPROVINCIAXSUCFAC XZONAFRANCA IMPUESTOS T_IMPUESTOSFEC_VENXFECEMIFEC_ENTXFECENTFEC_ENT2XFECENT2HORARIOXHORARIOCUITCOFINXCOFINSUCFACIVA26T_IVA26CONSFIN T_CONSFINDES_COMT_DESCOMDESC1T_DESC1DESC2T_DESC2IMPINTT_IIDTO672T_DTO672SUCXSUCACOPIOXACOPIOVERIFTIPO_NCXTIPO_NC NCNDMOTIVO XNCNDMOTIVODESC3T_DESC3DESC4T_DESC4DESC5T_DESC5 DESC_CONS T_DESC_CONSDES1X1DES2X2DES3X3DES4X4DES5X5DES_NAC1 T_DES_NAC1DES_NAC2 T_DES_NAC2DESCADIC XDESCADICCOD_FLEXFLETEDISTRIBXDISTRIBAGENTE XVENDEDORPESOT_PESOPESONETOT_PESON RECEPCION T_RECEPCIONBULTOST_BULTOSVOLUMEN T_VOLUMENCREDITO AP_CREDITOSTOCKAP_STOCKGERENCIA AP_GERENCIAEST_DESP EST_DESPACHOTIPO_PEDXTIPOPED PRIORIDAD XPRIORIDADREFXREFXOCMOTIVOXMOTIVOCOMISION XCOMI_VENCOMI_DIS XCOMI_DISDEPXDEPOSPEDVENXPEDVENCOD_CEN XCENCOSFAC PROMOCION XPROMOCIONREVREF_EXTXREF_EXT PLATAFORMA XPLATAFORMATIPOEXPXTIPOEXPTIPOEXPD XTIPOEXPD TIPOEXPORT XTIPOEXPORTIDXIDTEXTO1TEX1TEXTO2TEX2DESC1ET_DESC1EDESC2ET_DESC2EDESC3ET_DESC3EMONEDACOEFICXCAMBIODIVXDIVISASTCFIJOXTCFIJOUSRRFCXRFCCOMPLXCOMPLTIPODOCIVACATVALDECLT_VALORDECLARADOESP_OBSXESPOBSCOTIZ XCOTIZACIONCOTIZFXCOTIZACION_FECHAFCE_CONC XFCE_CONCEPTORG5329XRG5329PRG5329 T_IVA_RG5329 UPDATE_DTREP_CANT XREP_CANT REP_MESES XREP_MESES REP_ULTIMA XREP_ULTIMAXBLOQUEOCONDCOBRLIBPREPP_VE_BLOQ_INICIALARM_BLOQNOTASXNOTASPD SUCPROPIA P_SUC_PROPIAP_VE_SEGUIMIENTO_PD SEGUIMIENTO VE_PEDIDO GUARDAR_CLI XDESCRVAR REG_IVA_VENVE_COMPROBANTEGUARDAR_ENSAMBLES GUARDAR_ALTASGUARDAR_IIBBPROV REG_PLANVARCXCNDSP_ANTICIPOANTICIPOTX_FINALP_VE_PRESUPUESTOSARR_PRESUPUESTOSMAXARR_PRESUPUESTOSTEMPCOMPMAXYICONSTIFLAGMAX_PRODMAXYNXITEMSXPER_FACXPER_ENTITEMALLINVAPROBCOD_INSOBIEDATA_CODIGO_VACIODESC_INSTVENTASCOD_CUERECEP2 ENTREGADO FACTURADOCOS_LIFODES_INS DCODATRBULLISPRECOD_ALTNOM_ALT COMENTARIOGRAVADACOEFALQUILERTIEMPOBULATRITMIVAPERCOSTOVALORMON VALORCBIOLINEAGRUPO TRA_ENTREPRESUP PRESUPITM CANTXBULTXTMP_CEN_GLOBALXTMP_CEN_LOCALCENTRO XTMP_CEN_ART XTMP_CEN_CUEXCENTRO_DETERMINADODETERMINAR_CENTRO_DE_COSTOSXTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCAL SUBCENTROXTMP_SUBCEN_ARTXSUBCENTRO_DETERMINADODETERMINAR_SUBCENTRO_DE_COSTOSENTREGA P_SEGTRAN XOC_APROB XTRA_ENTRECOMPCODCOMPBULCOMPATRP_DESLINCALCULO_TOTAL_PSSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STK P_PICKINGCANT_COMGUARDAR_DESCRIPCION_COMPLETAVE_PROCSTIPOENVCANTENVTARAREF_OCENSAMBLEIB ADICEXPORTCANNUMEROSUBNUMITEM_OCOLDITMMOTIVOS PORCENTAJEDPRESUPUSADOZ_PRESUPITEMSPER_ENTPER_FACESTADO_DEL_PRESUPUESTOVE_PRESUPUESTOMANTENIMIENTO_PICKINGSVE_MANTENIMIENTO_PEDIDOSXRESXESTADO_PEDIDO ESTADO_PEDIDO VE_APROBACIONCCCLIECOMPROBCAUSAFECHACOMENTARXBONIFIMPORTEOPERACIOVENCCONDDESCRFECREFIDU%4 T T T T T T  T  T  T  T  T T T T T T T T T T T T T T T T T T T  T! T" T# T$ T% T& T' T(0%)C* +,    1 T- T. T/ T0 T1 T2 T3 T4 T5 J(6 T7C8'T9C:0 SN6 T; T< T= T> T? T@ TA TB TC TD TE TF TG TH%  J(I>TJCGHLMNOPQRS K  CTBUU XESTADOAPXDATOS_FORZADOSXPERIIBB_FORZADAXYA_COMPLEMENTADOT_IBT_IB_14T_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_TOTIVAINCT_VALORDECLARADOTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEOT_VALORT_PESONT_PESO P_VE_ARMADOXTIPOPEDMOTIVOSTIPOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASET_IVAARR MAXIVAARRBRUTO T_CONSFINXCOD_CLI INSCRIPTOT_DESCOM T_DES_NACT_IVAT_IVA26T_FINAL T_RECARGO TX_DESCOMTX_IVATX_IVA26TX_FINAL TX_RECARGO XERR_PERCEP XMSG_PERCEP IIBB_PROVXPORCENTAJE_IIBBPERCEPCION_IIBBXREFXCAU XCLIPROVINCIA XENTPROVINCIAXCUITXFECEMI XZONAFRANCA XTRANSFERIBLENETO4&%Cxdestino_forzadobNF T%%Cxdriver_forzadobC| T%%Cxcopias_forzadobN T T T4TC 4C 5266 T  T  T TSG+(ve_procsG+(listados %aRTC XTC X T  T T%;#%C \cpbt\vnp.fxp0 a- 7# \cpbt\vnpa-FG!(G((%kG {GG+(ve_procs T TBUXFILTROXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADO OLD_MAXYIMAXYI OLD_MAXYNMAXYNCVOPXTIPOPED XSUCURSALXSUCXPLAZOCONDCOBRPLAZO XDESCPLANDESCRINVEVE_PROCSLISTADOSXNUMEROFXNUMERORXCPBTZXMAXCPBT TTS_ERRORP_SERVERVPEDIDOTEMPCOMP P_CENTURY 4 5 T}%CC=gCC=gc CC\g CC\g CCRg CCRg  B A%CC=gCC\g CCRg B   B BUXCUIT RESULTADOZZo%C' B h%CQ B d BUXCUIT OLOCALIZACIONCUIT_VACIO_PREGUNTAR CUIT_VALIDAR-&listados \temp.txtBUVIEWERLISTADOSP_LOCALa 4G %CinicialbLL%H T- BUMSG ERR_STOCKINICIALhG G GI GF(] F%CYG(G-(BUZ^ 4%C* T%C M TGG(%%proc_stkCZP Ttrsac  T $%Cxfce_reprocesobCS% SO%Cdbt_fecp'F QFQdbt_fecpS QBU XTXT XRESULTADOP_I_LOG CHECK_STOCKPROC_STKXPEDIDOAAAEND_TRANTRSACTRAN_PRGTTS_IDXFCE_REPROCESODBT_FECP 4 T T%c ?F TCO%CN3T&No hay listas de precios definidas !!!B- ; #< 7 T T T T T T %C  MT Esta lista CCZ es aplicable solo al cliente C.  # B-%S&5T La lista CCZ no est activa !!!B- 7Ba >T1Debe ingresar un nmero de lista entre 1 y 99 !!!B-BUXLISTAMSGXRNCFG_LIS CFGLISACT CFGLISFIJ CFGLISBON CFGLISBONPER CFGLISMON CFGLISIVAACTIVAFIJABONIFBONIFPERMONEDAIVAINCCOD_CLIXCOD_CLI\ T- TaFG((pedido% #+C+  CF%G((codins E2%C  S   +H ve_cambiar_lotes- FH%,S    S   T T Tproc_stkC DcP CC@z 999,999,999_C$3%eCCC@z 9999,999,999_6CP6 Proc_stk:  TaFHF G((idG EG +C+   ? T T Tsproc_stk!"#cP CC@z 999,999,999_C$3%0eCCC@z 9999,999,999_6CP6 Proc_stk:  TaFHFR B U$ XHUBO_ERRORESALFATVENTASPEDIDO BEG_TVENTASXPEDIDOREG_LOCKBIENESCOD_INSCODINSLOTES RECEPCIONPROCESAR_LOTESVE_CAMBIAR_LOTESXIDITMOBIEDATA_CODIGO_VACIO ATRIBUTOSATRSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULTCCVENTDEPRECEP2USER_LOG PUB_INDEXCOMPROMIIDCODIGOXDEPOSCANTIDAD45FG(S%CCM$$_#listadosFG((deposito E TC4%CX TaG( BUXDEPOSENCONTRE DESPOSITOFACBUSDEPLISTADOSDEPOSITO P_FACDEPPRI4 T%r%COT+ TCCCC_VA%%CT+ TCCCC_VA%6%CT+ TCCCC_VA%%CuT+ TCCCC_VA%%CT+ TCCCC_VA%3%k%CHT+ TCCCC_VA% %CT+ TCCC C _VA% /%C T+ TCCC C _VA%C^T%%   T No_Acc.:% TCC Z%% 5TC , 6CC Z%T CBUTEMPT_DESC1FMTT_DESC2T_DESC3T_DESC4T_DESC5 P_DESCESPT_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XBONIF&G O(! \temp.txtBUP_LOCAL%C tmp_nota_ge01)FQF%bG((codcli E-% C   GI'(\tmp_nota_ge01GI FQ\tmp_nota_ge01Tge_notas( %  F%(\tmp_nota_ge01.txtF)\tmp_nota_ge01.txtFQBU TMP_NOTA_GE01CLIENTESCOD_CLIXCOD_CLICODCLIP_VE_NOTAS_VERSION COMENTARIOP_LOCAL XNO_EDITABLEGE_NOTAS XRESULTADOk( ]%CC X3 YFG((ven_facTCCEr%C4s%FG((remito E%C4 C  6C El Remito C ya fue facturado !!! B-  o@C El Remito C no pertence a este cliente !!! B- UFG((remito E%C4 C  TC El Remito C% ya fue facturado con el comprobante C  !!! B- Q.CRemito C inexistente !!! B-BaU Z XARR_REMITOSVENTASVEN_FACXREM NORM_REMITOCOD_CLIXCOD_CLIREMXFACREMITOFACTURAMENSAJE4%C%C=XnTC=TC[ %%C= 1234567890- TCC>R TCXR6%-NTCC-=TCC-[#TC0000CCCg ZR gT01'TC00000000CCCg ZRT- BUXREMITOXSUCXNUMXLETNUMFACLETRAREM< T%,(UTCC T- %CC  T (%$zC"Remitos con diferentes monedas !!!C C ;Debern revisarse los precios y bonificaciones por tem !!! BU XRESULTADOZP_VE_MAX_REMITOS XARR_REMITOS NORM_REMITOXDISTINTA_MONEDALECTURA_DE_REMITOSMENSAJE4C%%Cmotivos PQmotivos%Cmotivoscodigo T<%C        -T CCC g C g6&%    L$ ve_pedido  %    T  % T BUXFORZARVLD_LISXLISTA P_MULTIMONMOTIVOSCODIGOXMOTIVO XERRMONEDATIPOXTIPOPEDXMONEDACFG_LISMONEDAXCAMBIO CAMBIO_FECHA VE_PEDIDOXFECEMI4F~CC - CUTEMPCOMP RECEPCIONTRANSF CLEARDATA% 1 pr_funcionesF>5>  5>   +>5>?>-> !N"N;>#$% & '!>()*!>+,- >.>/ >0 >1 >2 >3 >4%CrevisadobN >5$%Ctempcomp.popupbN >6BU7XTIPOPEDLIBERAR_LOTE_ITM PR_FUNCIONESTEMPCOMPITEMCOD_INSSTOCKALQUILERSTOCKKPESOPESONETOLISPRECOEFDES_INSCOSTOCOEFICCOS_LIFOTIEMPO RECEPCIONKILOSMEDIDACOD_CUECOMISIONCUENTAATRIBUTODESC_INSTOT_COM MO_TOT_COMCOS_VEN INVENTARIOII CANTXBULT VOLXBULTO COMPUESTOCONJUNTOCENTRO SUBCENTROBULATRPRECIO_BDIM1DIM2R1 DCODATRBULDATRDBUL TRA_ENTREENTREGA DESPACHOEXACOPIOBULTOSESTVENVIGENTEREVISADOPOPUPV%KFG((porfecpG EG G( \deudacli.txtG G Deuda del Cliente:@4Comprobante Fecha Venc. Importe@4--------------- ---------- ---------- --------------%C+  T T+C+  nHm VT FC rT RE R% C XT AJ T RC c+T NC dNT ND LqT AS AT AJ IT IT PT PD 2T XX% PfJ    C * C * C@z 999,999,999.99_TH@4 --------------L& C@z 999,999,999.99_ 1No tiene deuda.GG(R TCC]R"h1\tmp\MQ\tmp\ "%C \deudacli.txt0! \deudacli.txt  > Sin deuda.ve_deudaFQ \tmp\.dbfBUCLIENTESCREDITOCCCLIEPORFECPXCOD_CLIP_LOCALACCIACCSCOD_CLICAUSAXCCOMPROBFECHAVENCIMPORTEXBORRARDEUDATMPDEUDAVE_DEUDA_XC C7F5=Ver Errores - F6=Imprimir Errores - F7=Ver NotasPBU*% S  5BG( \temp.txtG(% H 0G( \deudacli.txtG G FG((porfecpG E G T +C+   D% P<T  H T%Cven_oper FGQven_operG FG((chequeGGF E CC$GFG %C+ +C+   THFQ6% C a6 %T Sin LmiteT Sin Lmite  &TC@z 999,999,999.99_/TC @z 999,999,999.99_2" Crdito Mximo:H" Saldo en cuenta Corriente:C @z 999,999,999.99_H"Valores pendiente de acreditacin:C@z 999,999,999.99_@" --------------L" Saldo:C @z 999,999,999.99_2" Saldo de Crdito: J"%  ."Crdito -1. No se le puede vender. FNo tiene deuda.GG(R TCC]R"h1\tmp\MQ\tmp\ ! \deudacli.txt TCWve_deuda FQ \tmp\.dbf Zve_deuda  %CN %T  T!ve_presupuestoaBU!XACEPTARP_VE_NO_DEUDA_VARIOSCLIENTESTARJETAP_LOCALCREDITO XCON_IMPORTESP_VE_DEUDA_VERSIONCCCLIEPORFECPXCOD_CLIACCICOD_CLICAUSAIMPORTEACCCVEN_OPERCHEQUECAJ_PRO P_TIPO_APFIN XCREDITOTXT XSALDOTXTXBORRARDEUDATMPDEUDAAREAVE_DEUDAFORMULARIO_DEUDAT_FINAL YA_CARGADOTCCVENTEVALUAR_CREDITOVE_PRESUPUESTO5TC]?s, (7'DESCUENTOS ESPECIALES t,G(+a= Descuento Especial : @z 999.99=Desc.Extraordinario : @z 999.999! <,G(BUWINNAMEX4X5BT T+HL Td Td Td T Descuento Especial _T  d  d d d d d _T  d  d d d d d [T  d  d d d d d  TDescuento de Lnea  Td Td Td %TDescuento ExtraordinarioTBUTEMPT_TOTAL T_IMPUESTOST_DESCOMZX1 XDESCADICX4 XDESCADI1 XDESCADI4X2T_TOTLINT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 XDESCADI2 XDESCADI5X3X5 XDESCADI3 XDESCADI6m%C:F>d $%CAL FOT %CVENTASF F QventasG((codigo<F G((cuentaF G((codinsF G((codFG-( G-( G-( %->     -COC   *C!S C"666#C#EC   C!S # #6N66$C %&C '()*+,C.  F1~C.  Y>    -COC   *C!S C"666#C#EC   C!S # #6N66$C %&C '()*F>+,.CC. /60C"0% S*P>1 12 23 345 5>6S% SU>7>89>>: :>; ;> > '%Ctempcomp.revisadobN>< <% % G C estvencodigo>==$%Ctempcomp.popupbN>>>  >=$%Ctempcomp.popupbN >>%?@ UP>ACB CB 6C.  FG-(BUDXDE_PRESUPUESTOHAY_IVA_INCLUIDOTEMPCOMPCOS_LIFOIVAPERALLP_EMPVENTASCODIGOCUENTASCUENTABIENESCODINSBIEAUXCODCOD_INSCOD_CUE TIENE_BULBULTOS TIENE_ATR ATRIBUTOSLOTESSERIESESTVENDISCONTUPDSTKCOEFXMONEDACOEFICXCAMBIOXALICUOTAS_ORIGINALES RECEPCIONDES_INSIVAFIJO XENTPROVINCIARG5329TOT_COMCALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MEIDCODATRBULCOS_VENCOSTOFORDESC_INSDESCRGRAVADAPESO VOLXBULTO CANTXBULTBULDESCUVENFLAG1ATRDESCLISPREXLISTAIIFACTORREVISADOVIGENTEPOPUP P_SEGTRANXTIPOPEDENTREGA TRA_ENTRE XOC_APROB F"~ TCO T T 5  ve_pedido   > % %C&>d  $%CAL FOT {%CVENTAS@F gFQ\ventasG((codigo<FG((codinsFG-(>-C OC  *CS C 666!C !EC  CS !!6N66"C$%#&C'%)* ">+,-,G-(BU. XREIMPRESIONXNO_HUBO_PREPARAR_DATATEMPCOMPCOD_INSOBIEDATA_CODIGO_VACIO RECEPCIONMAXYIXVALOR XVALOR_MONEDATOMAR_VALORIZACION VE_PEDIDOBULATRXFECEMIVALORVALORMONHAY_IVA_INCLUIDO TOTIVAINCCOS_LIFOIVAPERALLP_EMPVENTASP_PRIVCODIGOBIENESCODINSUPDSTKXALICUOTAS_ORIGINALESDES_INSIVAFIJO XENTPROVINCIARG5329TOT_COMCALCULO_TOTAL_PSCOEFCOEFIC MO_TOT_COMCALCULO_TOTAL_MEFOR P_SEGTRANXTIPOPED TRA_ENTREENTREGA XOC_APROB%C xTempCompbC%CtempcompCFQ%CtempcompgF yFQtempcomp (QF& C =& G((UTEMPCOMP XTEMPCOMPCOD_INSDESC_INSITEMSATRBULID2 QBOOLEAN% 9C Aguarde... C%CCLIENTES uQclientes%CCONDCOBR Qcondcobr%CBIENES Qbienes%CCOSTOS Qcostos%CTVENTAS 3Qtventas%CTCCVENT cQtccvent%CAGENTE Qagente%CCCVENT Qccvent%CCUENTAS Qcuentas%CCCCLIE %Q \ccclie%CTR04 OQtr04%CSUCURSAL Qsucursal%CSTOCK Qstock%CVENTAS Qventas%CFLETES Qfletes%CDEPOSITO ;Qdeposito%CCFG_LIS kQcfg_lis%CBULTOS Qbultos%CATRIBUTO Qatributo%CSTKXDEP Qstkxdep%CNUMFAC )Qnumfac%Cbieaux WQbieaux%CCONS Q \CONSF#)%CLISPREC Q \LISPREC%CFACCRED Q \FACCRED%CDESPACHO ?Q \DESPACHO%CIDX03 sQ\idx03%CIDX04 Q\idx04%CREMXFAC Qremxfac%CROTULOS Q \ROTULOS%CROT ?Q \ROT%CBATCH sQ \BATCH%CCOMPROM Qcomprom%CCOMPROMI Qcompromi%CCATCLI Qcatcli%CPROVINC ;Q \provinc%CPAISES qQ \paises%C PAISESfce Q \paisesfce%CTIPOFCE Q \tipofce%CDESP Qdesp%CMOVSTOCK AQmovstock%CCLIAUX oQcliaux%CMOTIVOS Qmotivos%Cve_trans Qve_trans%Crubrofac  Qrubrofac%Cconver 1 Qconver%Cmotinv _ Qmotinv%Citm_desc Qitm_desc%Civa_ven Qiva_ven%Cplanvarc Qplanvarc%Cenvases # Qenvases%Cartxcli S Qartxcli%Censamble Qensamble%Ciibbprov Qiibbprov%Cfle_tipo Qfle_tipo%Clineas  Qlineas%Cgrupos E Qgrupos%Carmado s Qarmado%Cve_altas Qve_altas%Cepresup Qepresup%Cdpresup  Qdpresup%Cepredesp 7 Qepredesp%Cdpredesp i Qdpredesp%Cestven Qestven!%Cplataformas_aux Qplataformas_aux%Ccliotros Qcliotros% ' C<BU= XHIDEWAIT MENSAJE_WAITRECREAR_TEMPCOMPCLIENTESCONDCOBRBIENESCOSTOSTVENTASTCCVENTAGENTECCVENTCUENTASP_PRIVTR04SUCURSALSTOCKVENTASFLETESDEPOSITOCFG_LISBULTOSATRIBUTOSTKXDEPNUMFACBIEAUXCONSP_SERVERP_COMMONREMXFACCOMPROMCOMPROMICATCLIP_SYSTEMDESPMOVSTOCKCLIAUXMOTIVOSVE_TRANSRUBROFACCONVERMOTINVITM_DESCIVA_VENPLANVARCENVASESARTXCLIENSAMBLEIIBBPROVFLE_TIPOLINEASGRUPOSARMADOVE_ALTASEPRESUPDPRESUPEPREDESPDPREDESPESTVENPLATAFORMAS_AUXCLIOTROS MENSAJE_CLEARx4%CxtipobL; T5< TCW%Ccliaux QcliauxFG((comprob E TC4%%^(F % 1_<> %M>   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKL% a>MNOPQRSTUVWXYZ[\]^_`abcdefghijklX>mCnoCnpCnqCnrCn>stuvwxyz{|}~>%C PerAsoc_DbD>%Cfc_rechbL>S%Cref_movbN >%CreftipobNd>>> >3%C cliaux.ibbCCxcliibbC  >% c> FBUXCOMPROBXCAUSAXTIPOXRECIBIRPEDIDOSAREA ARR_GUARDARCLIAUXCOMPROBXFOUNDINCAUSANOMBRE XOTRO_CLINOMFAC XCLINOMFAC DOMICILIO XCLIDOMICILIOCIUDAD XCLICIUDADZIP XCLICOD_ZIP PROVINCIA XCLIPROVINCIAPAISXCLIPAISGEODIRXGEODIRCUITXCUITPHONO XCLIPHONOEMAIL XCLIEMAILENTNOM XENTNOMBREENTDOM XENTDOMICILIOENTCIU XENTCIUDADENTZIP XENTCOD_ZIPENTPRO XENTPROVINCIAENTPAIXENTPAISENTPHO XENTPHONOENTHOR XENTHORARIOENTCOORD XENTCOORDGEOENTXGEOENTFCECTO XFCECONTACTOFCENOM XFCENOMBREFCEDOM XFCEDOMICILIOFCECIU XFCECIUDADFCEZIP XFCECOD_ZIPFCEPRO XFCEPROVINCIAFCEPAIXFCEPAISFCEPHO XFCEPHONOFCEHOR XFCEHORARIOGLNXCLIGLNENTGLNXENTGLNDESCRVAR XDESCRVAR CAR_ARRIBO XCAR_ARRIBOCAR_INIXCAR_INICAR_FINXCAR_FINCHOFERXCHOFER CHOFER_DNI XCHOFER_DNIDOM1XDOM1DOM2XDOM2CAR_TARA XCAR_TARA CAR_BRUTO XCAR_BRUTOCAR_NETO XCAR_NETOBOLSONES XBOLSONES FLD_CLI1C XFLD_CLI1C FLD_CLI1N XFLD_CLI1N FLD_CLI2C XFLD_CLI2C FLD_CLI2N XFLD_CLI2N TRANSPORTE XTRANSPORTE TXTGRUPO1 ZARR_TEXTOS TXTGRUPO2 TXTGRUPO3 TXTGRUPO4 TXTGRUPO5OCTXTSOL XOCTXTSOLIDIOMAXIDIOMAEN_MILES XEN_MILESOBS XTXTOTROSREFCCXREFCCTIPOEXPP XTIPOEXPP TIPOEXPPD XTIPOEXPPDCESDSPXCESDSP FCE_FSERVDXFCE_FEC_SERVD FCE_FSERVHXFCE_FEC_SERVH FCE_FSERVPXFCE_FEC_SERVP FCE_FSERVTXFCE_FEC_SERVTTIPO_NEGXFCE_TIPO_NEGOCIACION FPRORROGA XFPRORROGANCREFXNUMREFNCCAUXCAU PERASOC_DXPERASOC_DESDE PERASOC_HXPERASOC_HASTAFC_RECHXFCE_RECHAZADOREF_MOVXREF_MOVREFTIPOXREFTIPO REFESTADO XREFESTADOSINSTKSIN_APL XSIN_APLICARIBXCLIIBAPC_CRED XAP_CREDITOAPC_ATR XAP_ATRASO APC_ATR_GLXAP_ATRASO_GLOBALAPC_CHQ1 XAP_CRED_CHQ1APC_CHQ2 XAP_CRED_CHQ2APC_CC1 XAP_CRED_CC1APC_CC2 XAP_CRED_CC2 APC_DIAS1XAP_CRED_DIAS1 APC_DIAS2XAP_CRED_DIAS2APC_EVALXAP_EVAL APC_RECH1 XAP_RECH1 APC_RECH2 XAP_RECH2APC_FC1XAP_FACT_PENDIENTES1APC_FC2XAP_FACT_PENDIENTES2APC_CREFXAP_CREFAPC_FREFXAP_FREF 45 TCW%Ccliaux HQcliauxFG((comprob E%C4 B- q T T T  T  T  T T T T T T T T T T T%C cliaux.ibbC T TCX T! T"# T$% T&' T() T*+ T,- T./ T01 T23 T45 T67 T89 T:; T<= T>? T@A TBC TDE TFG THI TJK TLM TNO TPQ TRS TTU TVW TXY TZ[ T\] T^_ T`a Tbc Tde Tfg Thi Tjk Tlm Tno Tpq Trs Ttu Tvw Txy Tz{ T|} T~ T T T T T T TTTTTT T T T T T T T T T T TTC6TCC  %C PerAsoc_DbD T T $TT%Cfc_rechbLe TCSN6 }TN T%Cref_movbN T T T%CreftipobNm T T=%P&CCxtipo_ncbN -6 \T  T FBUXCOMPROBXCAUSAAREACLIAUXCOMPROB XOTRO_CLINOMBRE XI_DIRECCION DOMICILIO XI_CIUDADCIUDADXI_ZIPZIP XI_PROVINCIA PROVINCIAXI_PAISPAISXI_PHONOPHONOXI_EMAILEMAIL XCLINOMFACNOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONOXCLIGLNGLNXCLIIBIB XCLIEMAILXGEODIRGEODIR XENTNOMBREENTNOM XENTDOMICILIOENTDOM XENTCIUDADENTCIU XENTCOD_ZIPENTZIP XENTPROVINCIAENTPROXENTPAISENTPAI XENTPHONOENTPHO XENTHORARIOENTHOR XENTCOORDENTCOORDXGEOENTGEOENTXENTGLNENTGLN XFCECONTACTOFCECTO XFCENOMBREFCENOM XFCEDOMICILIOFCEDOM XFCECIUDADFCECIU XFCECOD_ZIPFCEZIP XFCEPROVINCIAFCEPROXFCEPAISFCEPAI XFCEPHONOFCEPHO XFCEHORARIOFCEHOR XCAR_ARRIBO CAR_ARRIBOXCAR_INICAR_INIXCAR_FINCAR_FINXCHOFERCHOFER XCHOFER_DNI CHOFER_DNIXDOM1DOM1XDOM2DOM2 XCAR_TARACAR_TARA XCAR_BRUTO CAR_BRUTO XCAR_NETOCAR_NETO XBOLSONESBOLSONES XFLD_CLI1C FLD_CLI1C XFLD_CLI1N FLD_CLI1N XFLD_CLI2C FLD_CLI2C XFLD_CLI2N FLD_CLI2N XTRANSPORTE TRANSPORTE XDESCRVARDESCRVARXAP_EVALAPC_EVAL XAP_CREDITOAPC_CRED XAP_ATRASOAPC_ATRXAP_ATRASO_GLOBAL APC_ATR_GL XAP_CRED_CHQ1APC_CHQ1 XAP_CRED_CHQ2APC_CHQ2 XAP_CRED_CC1APC_CC1 XAP_CRED_CC2APC_CC2XAP_CRED_DIAS1 APC_DIAS1XAP_CRED_DIAS2 APC_DIAS2 XAP_RECH1 APC_RECH1 XAP_RECH2 APC_RECH2XAP_FACT_PENDIENTES1APC_FC1XAP_FACT_PENDIENTES2APC_FC2XAP_CREFAPC_CREFXAP_FREFAPC_FREF ZARR_TEXTOS TXTGRUPO1 TXTGRUPO2 TXTGRUPO3 TXTGRUPO4 TXTGRUPO5 XOCTXTSOLOCTXTSOLXIDIOMAIDIOMA XEN_MILESEN_MILES XTXTOTROSOBSXREFCCREFCCXCESDSPCESDSP XTIPOEXPPTIPOEXPP XTIPOEXPPD TIPOEXPPDXFCE_FEC_SERVD FCE_FSERVDXFCE_FEC_SERVH FCE_FSERVHXFCE_FEC_SERVP FCE_FSERVPXFCE_FEC_SERVT FCE_FSERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONTIPO_NEGCLIENTES(P_VE_FCE_TIPO_NEGOCIACION_PREDETERMINADAXPERASOC_DESDE PERASOC_DXPERASOC_HASTA PERASOC_HXFCE_RECHAZADOFC_RECH XFPRORROGA FPRORROGAXREF_MOVREF_MOVXNUMREFNCREFXCAUNCCAUXREFTIPOREFTIPO XREFESTADO REFESTADOTCCVENTTIPO_NCSINSTK XSIN_APLICARSIN_APL"%Ctmp_nota+FQFGI"( \tmp_notaGI FQ \tmp_nota Tve_notas_pedido(% F ( \tmp_nota.txtF$ \tmp_nota.txtFQBU XRESULTADOTMP_NOTATCCVENTNOTASP_LOCALVE_NOTAS_PEDIDOTC %Ccons @Qcons>TC00CCZR-C00000000CCZR%FG((ccvfac E  F G((comprobE  C Z TaH C4 %C2No existe la referencia, la deja sin referenciar ?C    GC ;Atencin !!! Podran no calcularse percepciones de IIBB !!!6$ Referenciax TS -TN%SvT  T-TC X B  B@     Q%C*Distinta moneda, la deja sin referenciar ?$ Referenciax,TS DTN%ST  T-TC X B  BH      9DC7Distinta moneda, no se puede aplicar a la referencia!!! B C4  TN%TC  6 T B C4  GC:El comprobante referenciado corresponde a otro cliente !!! BBU!XREFTIPOCONSXNUMREFXLETREF XSUCFACREFXREFNUM XTIPO_REGCCVENTCCVFACXCAUCCCLIECOMPROBXCOD_CLIXCUO REFERENCED P_IIBB_NC_BAIIBB_BAP_IIBB_NC_CABA IIBB_CABAXTIPOPEDNOREFXREFXMONEDAMONEDAXMOTIVOP_VE_NCND_REF_VERSION XSIN_APLICARMENSAJECOD_CLIMALXFECREFFEC_VENFECHAk%  Bve_trans(TF G((plan E BU P_SEGTRANXRES_VEVE_TRANSXFECENT XOC_APROB XTRA_ENTRECONDCOBRPLANXPLANw4%*BF T-%d%C~%  Ta! `'~  %  Ta!% \!~ C  X% T Ta! ~ %  Ta!%  .>  C C]q>  CUXPEDIDOXCOMPROBXCAUSAXCOD_CLIXTRANVE_TRANSXENCCAUSAPEDIDOTRA_NUMCOMPROBCOD_CLITRA_HOYIDUCOB_CLIXPLANCOB_EMPXCOB_EMPOC_APROB XOC_APROBOC_FECHA XOC_FECHAOT_FECHA XOT_FECHA TRA_FECHAXFECEMI TRA_ENTRE XTRA_ENTREULT_ACTc4%Cve_trans AQve_transF%PG((codigoEC 999999999999_%C4 CB G((comprob E%C4 CB T T  T  T T T TUXPEDIDOXCOMPROBXCAUSAXCOD_CLIVE_TRANSCODIGOVE_TRANS_DEFAULTCOMPROBXTRANTRA_NUM XTRA_FECHA TRA_FECHA XTRA_ENTRE TRA_ENTREXCOB_EMPCOB_EMP XOC_APROBOC_APROB XOC_FECHAOC_FECHA XOT_FECHAOT_FECHAa TC$ T T TC$T T TC$U XTRA_FECHAXCOB_EMPXPLANXCOB_CLI XOC_APROB XOT_FECHA XTRA_ENTRE XOC_FECHA  F#) -CFG((conver E%C4 e B %Cmotinv QmotinvFG((codigo E % 6% 2>C1La operacin no corresponde al cliente actual !!! B IC<La operacin no corresponde a una devolucin de clientes !!! B T-'+Cconver+   %C^FX>  H%C+Z  s TaFH%NCANo se importaron los artculos referenciados con anterioridad !!!  BUXMOVNUMXCOD_CLIXREGXREF3UTEMPCOMPCOD_INSCONVERMOTINVCODIGOMOTIVO TIPOAJUSTECOD_CLIMENSAJETRANSFREF3 RECEPCIONENTRASALEBULATR TRANSFITEMITEM %P T T s%C]CPError, debe pasar como parmetro el punto de venta !!! [ve_pedido.exportacion()]'Cve_pedido.exportacion(): 1T 'B-% VCIError, debe posiciondo en el punto de venta !!! [ve_pedido.exportacion()]'Cve_pedido.exportacion(): 2T 'B-%C T  T %Csucprop Qsucprop$%CsucpropcodigoXT  o TXTV V  #C V V  BUXCAT XPROVINCIA XRESULTADOXPROVINCIA_ENTREGAXSUCFACXORIGENXSUCPROPMENSAJESYS_M TTS_ERRORNUMFACPTOVTASUCPROP P_SUC_PROPIA PROVINCIAP_IVA_TF %C^CQError, debe pasar como parmetro el punto de venta !!! [ve_pedido.no_alcanzado()](Cve_pedido.no_alcanzado(): 1T 'B-% |WCJError, debe posiciondo en el punto de venta !!! [ve_pedido.no_alcanzado()](Cve_pedido.no_alcanzado(): 2T 'B-%C T  T %Csucprop Qsucprop$%Csucpropcodigo$T  ; T6T"V V   BUXCATXPAIS XRESULTADO XPROVINCIAXSUCFACXORIGENXSUCPROPMENSAJESYS_M TTS_ERRORNUMFACPTOVTASUCPROP P_SUC_PROPIA PROVINCIA>;B    UTCCVENTSTOCKCREDITOGERENCIAw%B TF#~C C lI%   C T! h% Z/%C    ?% $ T ; T V T dBU RE_ANALIZOTEMPCOMPORI_CODCOD_INSORI_ATRATRORI_BULBUL RECEPCIONORI_CANXTIPOPEDXPEDIDOXAPROB_ANTERIOR4 TCWH? .%Ccosven |QcosvenFG((codigo<GF ECGF,%   T T * T T   T T$ ve_pedido FBUXCODXBULXATRXFECXVALOR XVALOR_MONEDAXAREAP_PD_VALORIZACIONCOSVENCODIGOBULATRCOSTOMONEDAXERRXMSG COSTO_A_FECHA VE_PEDIDO4&% S  TFG((idx04 E%C4 T%TC B TC% B  B % bCCLos ndices para el C* no fueron definidos !!!  T T B  BU XFECEMIXMONEDAXCAMBIO XERRMONEDA P_ACT_CAMBIOXTCFIJO OLDCAMBIOIDX04 FN_CAMBIO P_MSG_CAMBIOMENSAJE9UTC <%t_final%>5 $ "+alltrim(transform(t_final,"@R 99,999,999.99"))+"UTC <%t_total%>5 $ "+alltrim(transform(t_total,"@R 99,999,999.99"))+"OTC <%t_bultos%>. "+alltrim(transform(t_bultos,"@R 999,999"))+"-TC<%|%>"+chr(13)+chr(10)+" BUXVAL4 TCW%CEmpresas PQ \empresas%F- FH $H  C$ B2 C$  B 2  B  HH| Cih B 2| B   B, 2 B BU XPROVINCIAXAREAP_SYSTEMEMPRESASCODIGOP_CODEMPXFECEMI TCWFG((ccvfacECr%C4lTTT T  &T CC  6TC =TTTT%Ccliaux .QcliauxFG((comprobECr%C4TTT !T"#C"tccventtccvord T$C$%%&T'CC$(D  T'C$T)*T+,T-.T/0T12T34TT T  T T56 T7 T8 T9 T:T;< T=- T>-%?ET7 @ _T9 @%TAC BSSN6%CT8D T:DTEFT=GT>HTIJTKLTC =T%MCN h TON TOPTTTQRTSTTUVTWXTYZ T[T\]T^_T`aTbcTdeTfgThiTjkTlmTnoTpqTrsTtuTvw TxTyz T{v Ca|%AS9 Tv{ T}~CCr T~}%MAP TKc FBUXAREACCVENTCCVFAC XARR_REMITOSXSUCSUCXPRODPRODXOTOTXTRANTRAN XCONTACTOTCCVENTCONTACTOCLIENTES CONTACVENXREFREFXOCXPEDVENPEDVEN XCENCOSFACCOD_CENXNRENRECLIAUXCOMPROB XOCTXTSOLOCTXTSOLXIDIOMAIDIOMA XEN_MILESEN_MILESXPEDIDO_REMITOPEDIDOXFECEMILOCALESVE_005XFECENTFEC_ENT XVENDEDORAGENTE XCOMI_VENCOMISION XCOMI_DISCOMI_DISXFLETECOD_FLEXDISTRIBDISTRIBXLISTALISTAXHORARIOHORARIOXTXTCPBT XTXTREMITO XTXTCPBT2 XTXTREMITO2XCOMPLCOMPLXITMCOMFXITMCOMRP_IMP_NOTA_FACTXTCPBTXTCFIJOTCFIJOP_IMP_NOTA_REM TXTREMITOXESPOBSESP_OBSITMCOMFITMCOMRXMOTIVOMOTIVOXPLANPLANXTIPOPEDXDEPNCXDEPOSDEP XPROMOCION PROMOCION XREVISIONREVXTIPOEXPTIPOEXP XTIPOEXPDTIPOEXPD XTIPOEXPORT TIPOEXPORT XNCNDMOTIVOXACOPIOACOPIOT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5 T_DESC_CONS DESC_CONST_DESC1EDESC1ET_DESC2EDESC2ET_DESC3EDESC3E T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2XMONEDAMONEDAXCAMBIOCOEFIC XERRMONEDAXDIVISASDIVXOLD_TCMULTIMONXOLDCUITXCUIT TRAER_CLIP_EMP 45 TCW%Censamble LQensamble%Ccliotros ~Qcliotros% Ccliotroscod_cli%F~C F G((itmEC Z%C4 R (>    ;>  &%Censamble.des_insbN>F FBUXCOMPROBXCAUSAAREAENSAMBLECLIOTROSCOD_CLIXCOD_CLIP_VE_ASSEMBLIESTMP_ASSEMBLIESDESCRITMITEMCOMPROBCAUSACANTIDADPRECIOTAREASDES_INS\4%CL3 T5 TCW%Censamble xQensambleF%GF+CNd  >COF%G((comprob E * G((itmECZ%C4 DB- C>+C+   Ca 6 ?F- 7>      &%Censamble.des_insbN>> d FH FBUXCOMPROBXCAUSAXITMAREAENSAMBLEP_VE_ASSEMBLIESTMP_ASSEMBLIESITEMCOMPROBITMCAUSADESCRCANTIDADPRECIOTAREASDES_INSTOTAL4h1N MNNNMNBU XASSEMBLIESITEMDESCRCANTIDADPRECIOTOTALTAREASDES_INSr 45 TCW%Ciibbprov LQiibbprov(]%CYF G((idECZCZ%C4 +>  ]> C C CCC FBUXCOMPROBXCAUSAAREAIIBBPROVZ IIBB_PROVIDCOMPROBCAUSA PROVINCIACODIGOIMPORTEALICUOTA IMPORTE_MEBASEBASE_MEo 45 TCW%Ciibbprov LQiibbprovFG((comprob E%C4 B- Z#+C+  V%GT T T T T FH FBUXCOMPROBXCAUSAAREAIIBBPROVCOMPROBCAUSACODIGO IIBB_PROV PROVINCIAIMPORTEALICUOTA IMPORTE_MEBASEBASE_ME#4% %Ciibbpere aQiibbpereF G((idA- C ZC ZCZCZ C  %C4 T T T T %Ciibbret ?QiibbretF G((idA-C ZC ZCZCZ C  %C4 T T T TBU XCODCLIPRO XPROVINCIAXCODIGOXIBPERXIBPERDXIBPERHXFECHAXNDPROVIIBBPEREIDCOD_CLI PROVINCIACODIGODESDEHASTAALICUOTAIIBBRETCOD_PRO>sys_procesandoObteniendo posibles referenciasT\tmp\C]T\tmp\C]T\tmp\C]T\tmp\C]T\tmp\C]T \tmp\C]occclieQ XsucursalQ  C Z CZ C Q  CPZA6CC6CC  6CZC CZCZC AB6QQ-QC QQCC(XQ C!C C 1Q" T# T$ T% ~%$CZs%C$ 2 T&CO #' ># #& T# T%T$CZ T'COT##(%C$  #' >#SoccclieC Q  CPZA6CC6CC 6CZC CZCZC AB6Q(cQ-QC QQC(XQ) CZCZ Vcd C  ! 1Q*%+ occclieQ XsucursalQ  C Z CZ C Q  CPZA6CC6CC  6CZC CZCZC AB6QQ-QC QQCC(XQC C!CC$m,!CC3 $ Vcd C 1Q-occventQ XsucursalQ  C Z CZ.Q/Q QQ0Q1/QQQ.QC/Q  AC./CZBQQ-Q-QQ CC(XQC.C$m,C3 $ Vcd C  ! 3 1 Q 49o|tmp_canceladas  1 Q5x tmp_sin_cc  1 Q5}tmp_provisiones  1 Q5tmp_pendientes  1 Q5 CZCZ Vcd 1Q6 < ;o}tmp_provisiones  1 Q5tmp_pendientes  1 Q5 CZCZ Vcd 1Q6%7 D>6C 8C : Vcd C =Z %C TMPrefCCV2 Q;%<=< * J6C : Vcd C =Z 7   %Ctmp_ref` F?S?   F6otmp_ref1Ǽ1Q?%Ctmp_pendientes F"Q%Ctmp_canceladas F-Q%C tmp_sin_ccF4Q %Ctmp_provisionesNF*Q%Ctmp_ref1vF6QF?#)@sys_procesandoBUAXSOLO_PENDIENTES SP_MENSAJESYS_PROCESANDOXTMP_PENDIENTESP_LOCALXTMP_CANCELADASXTMP_PROVISIONESXTMP_REF XTMP_REF1 XTMP_SIN_CCCCOMPROBCPBTCOD_CLICAUSAFECREFFECHAREFCAUCUOCUOTACLAVESALDOTILDECANCEL CANCELADAACOPIOSNOMBREDSUCCCCLIESUCURSALSUCXCOD_CLITMP_PENDIENTESXACCXOLDID XOLDCAUSAREG_TMP_PENDIENTESREG_TMP_PENDIENTES_ENCIMPORTEASITIPO2TMP_PROVISIONESP_VE_NCND_REF_VERSIONP_VE_REF_PLAZOTMP_CANCELADASFEC_VENFAC_VENDES_CLIECOMENTARCCVENTNO_CC TMP_SIN_CCTIPO_REGTMP_REF1P_VE_NC_REF_DOS_ACOPIO REF_ES_ACOPIOFOR SYS_DOSCEN TMPREFCCV2P_DOSP_CODEMPINTMP_REFSP_OCULTAR_DEFINITIVAMENTE 4< T TCCZTC>TC\*.rar ()%CC =_!% T\C /TCC>=_PDCCZ.rar B=( -CNo se puede crear C !!! T BU XTRANXPEDIDON XTRAN_STR XTRAN_LENXFILE XFILE_NEWXPATHSCH_ARRP_PATH_CONTRATOSZMENSAJE TTS_ERRORv4% SC T T T a#%CCRgC F +CN  Ba D(%Cccventccvfac @F +CN   )CReferencia no encontrada !!! B-F SF G((cuentaFG((codinsFG((ven_facG-(G-( FG((ven_fac E%C48% T %4 T -%  TaF (  SF T T T-#+C+ % ! TFG((codins EF #"%C { -C>#CtempcompO Ta >#" T-T$C$COD> >%>&&>''>((>))>**>++,%\ >- (>--Cc6>..>>//>0/>1S>22>33>44>55>66'>7CC7 786'>9CC9 996">:C-+(*);><<>=-<>>C?>>@@>AA>BCCDa-6>EE>FF>*>GGHHII>J>K@>LA>M->NN>OPQRSSTT(U*V:C-+(*);WC-+)X=-< TY TZ T[ T\ T]T^CXT_C X T` Ta Tb Tc Td Te TfZgve_procs"YZ[\]^`abcde_f%CY F >/Y >0Y%CENVASES QenvasesFiG((codigo E[F t>kZl[mino\p]q^r_s`taubvf%w Cx%SS TyTz"T{T|}romovstock~jQ~@Q@~AQA~Q~cQ~#Q"CC ~6Q~jy ~#z (~~{~~|  tmp_movstock ~ T T; pr_funcionesA@rlotesxit@A"@AC # #%C tmp_movstock FQF  TF #TCCOD>>''>((>))>**>++,(>--Cc6!Ccuentascuenta>>//>1N>5N>6N'>7CC7 786'>9CC9 996">:C-+(*);>>>>BCCDa-6>#">EE>FF><<>*>GGHHII>J>K@>LA>M->NN>OPQRSSTT(U*V:C-+(*);WC-+)X=-<>CC \S]CC j\S?CC m\S!CC p\S6666 TY TZ T[ T\ T]T^CXT_C X T` Ta Tb Tc Td Tecgve_procsCN ZP"YZ[\]^`abcde_%CY F >/Y%CENVASES 5QenvasesFiG((codigo E[F j>kZl[mino\p]q^r_s`taubFH%yF ~C u TY,proc_stk  @ AY%CY qF >/Y >0YF (F TFG((codcli E%STTFT(%80 86 DTC X n TCC[ TTT TC%  %TC * TT80TCCTCn*TCC/6f T%B- sTTFT%T80(%80 86 CTC X m TCC[ T!TCSN6T%SMF G((idECZ%C4 33C La sucursal CCZ no existe !!! B- I TCOCT TC$% %T  TC$ TTTTTTTCC\gTT,TTTT T T T T T- T-%DTT T T %qT T%T TTTTT%C > T XTTT8TTTTT-TCC xncndmotivobC6T%,TNTTTTTTTTT  T  T TUTV* TTTCCCF BU XCOMPROB_REF XCAUSA_REFX_POR_CANTIDAD_ENTREGADAXNO_TRAER_SINSTKXSIN_ARTICULOSTRAER_ENSAMBLEMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCXALICUOTAS_ORIGINALESTEMPCOMPMENSAJECUENTASCUENTABIENESCODINSVENTASVEN_FACCOD_INSCOD_CUESINSTKNOSTKACOPIOINIZLOTESXITACC_PRODACC_DESCXMULTIPLES_REMITOSFAC_VENCAUSAOBIEDATA_CODIGO_VACIOITMITEMMAXYISTOCKPESOLISPRECOEFDES_INSCOEFICCOS_LIFOCOMPL RECEPCIONMEDIDADESC_INS DCODATRBUL INVENTARIOII CANTXBULT VOLXBULTO COMPUESTOCONJUNTOCENTROCOD_CEN SUBCENTROTOT_COMCALCULO_TOTAL_PSCOSTOCOS_VENGRAVADA XENTPROVINCIABULATRAPROBTCCVENTEST_DESPIVAPERRG5329COMPCODCOMPBULCOMPATRORI_CODORI_BULORI_ATRORI_CANPEDIDO TIENE_BULBULTOS TIENE_ATR ATRIBUTOSLOTESSERIESXMONEDAXCAMBIO MO_TOT_COMCALCULO_TOTAL_MEXDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMXOLDITMLEVANTAR_DESCRIPCION_COMPLETAVE_PROCSENVASESCODIGO COMENTARIOTIPOENVDTIPOENVDESCRCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORTOLDITMP_VE_DATA_BULTOSLLENAR_DATOS_DE_BULTOSXCODXITMXCPBTCXCPBTRREM_VENMOVSTOCKCODDESPACHODSPCANTIDADCANXDEPNCDEPOSITODEPNUMERO TMP_MOVSTOCK XLOTXART_VENC XLOTXART_ADVVENCIMIENTO_LOTE PR_FUNCIONESORIGINALAREASIGINDICETOTALVENCADVMAXYNIMPUESTOATRIBUTOARTICULO_DESCRPROC_STK XLOTESXIT2CCVENTXRFCRFCCLIENTESCODCLIXCOD_CLITARJETAXIVACATIVACATXRG5329XTIPODOCTIPODOC XDOCUMENTOCUIT XOTRO_CLIDES_CLIEXCUITXCOFINCOFINXNOMBRE TRAER_CLIAUT XCON_IMPORTES XI_DPROVINCIAPROVINC XI_PROVINCIAXI_DPAISPAISES XI_PROVPAISXI_PAISXRES_VENOMBRESUCSUCURSALIDXSUCREG_SUCXFECEMIXTIPOPEDFEC_VENXFECENT XVENDEDORAGENTE XCOMI_VENCOMISION XCOMI_DISCOMI_DISXFLETECOD_FLEXDISTRIBDISTRIBXSUCFACXLISTALISTAXCOMPLXPRODPRODXOTOTXTRANTRAN XCONTACTOCONTACTOXTXTCPBT XTXTREMITO XTXTCPBT2 XTXTREMITO2XITMCOMFXITMCOMRTXTCPBT TXTREMITOP_IMP_NOTA_FACP_IMP_NOTA_REMITMCOMFITMCOMRXPLANPLANXOCREFXDEPOSXPEDVENPEDVEN XCENCOSFAC XPROMOCION PROMOCION XREVISIONREVXTIPOEXPTIPOEXP XTIPOEXPDTIPOEXPD XTIPOEXPORT TIPOEXPORT XNCNDMOTIVOXACOPIOXPEDIDOT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5 T_DESC_CONS DESC_CONST_DESC1EDESC1ET_DESC2EDESC2ET_DESC3EDESC3E T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2MONEDA XERRMONEDAXDIVISASDIVXPERMISOPERMISOTRAER_IIBBPROV VE_TRANS_GET 4F Ta T(x %CC XY t HtD  FG((ven_facECr)+C+  Cr $%   T%]C Hay ms de CCZ artculos !!!C !no se facturarn su totalidad !!!B-% TaF #TCCOD7> >  >>> >> > !>"">>##>$$>%S>&N>'N'>(CC( ()*6'>+CC+ +)+6>,, >-a>..>//>0S>11>22>33>4 >5>6>7%   >8 T9 T:T; T<T= T> T?;@ ve_funciones9:;<=8B>?F%9>"C:  >">?">CC" D>EC"F%GFOT*>HHIIJJ TK TL TM TN TOTPCXTQC X TR TS TT TU TV TW\Xve_procsrKLMNOPRSTUVWQ%CK F >$K >ZK%CENVASES QenvasesF[G((codigo EMFj>]L^M_[`aNbOcPdQeRfSgTFH D FG((ven_facECr)+C+  Cr @ $%   1 T%hdC Hay ms de CChZ items sin cdigo !!!C !no se facturarn su totalidad !!! Bi% TaF #TjCjCOD7> >  >>> >> > !>"">>##>$$>%N>&N>'N'>(CC( ()*6'>+CC+ +)+6">CC" D>,, >-a>..>//>0S>11>33>4 >5>6>7%  >" >8">CC" D%GFOT *>HHIIJJ TK TL TM TN TOTPCXTPC XTQC X TR TS TT TU TV TW\Xve_procsrKLMNOPRSTUVWQ%CK - F >$K >ZK >gTFHCCrkCCrlBaUmXTIPOTEMPCOMPINICIALXCOUNTERZP_VE_MAX_REMITOS XARR_REMITOSVENTASVEN_FACFAC_VENCAUSACOD_INSOBIEDATA_CODIGO_VACIO RECEPCIONMAX_PRODMENSAJEXMONEDAMONEDAXDISTINTA_MONEDAMAXYIREMITOREM_VENOLDCODOLDITMITMITEMBULATRLISPRECOEFDES_INSCOEFICXCAMBIOCOS_LIFOCOD_CUEDESC_INS INVENTARIO COMPUESTOCONJUNTOCENTROBIENESCOD_CEN SUBCENTROGRAVADAAPROBIVAPERRG5329IVAFIJOPEDIDOCOSTOACOPIOORI_CODORI_BULORI_ATRORI_CANXLISTAXERRXMSGXCODIGOXATRXBULXXPRECIOXXBONIFACTUALIZAR_PRECIO VE_FUNCIONESXCOD_CLITOT_COMCALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MEP_EMPDIM1DIM2R1XDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMLEVANTAR_DESCRIPCION_COMPLETAVE_PROCS DCODATRBULENVASESCODIGO COMENTARIOTIPOENVDTIPOENVDESCRCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORTMAX_DESCFMAXYNTRAER_ENSAMBLETRAER_IIBBPROV %3G( \temp.txt WG( \temp.txtG G GG(BUXMSG XREINICIARP_LOCAL Ta F ~ F ^JF%e-CCO  T--$CCO %C4^>       BU XALIASXPRIMEROOOBJTEMPCOMPCOD_INSMAX_PROD RECEPCIONBULATRDES_INSDESC_INSDESCRCOS_LIFOY F ~I F ^JF'-%C4z> E -C%C4CO ^>    A-C No hay renglones suficientes !!! ! BU XALIASOOBJTEMPCOMPCOD_INSATRBUL RECEPCIONMAX_PRODDES_INSDESC_INSDESCRCOS_LIFOMENSAJE( 45 TCW%Cve_altas LQve_altas%FF~C F e>        FBUXCOMPROBXCAUSAAREAVE_ALTAS P_VE_ALTASFORCOMPROBCAUSA TMP_ALTASCOD_ALTAENSAMBLEITMITEMCANTIDADCODATRATR_ALTABULBUL_ALTA45 TCW%Cve_altas PQve_altasF%FG((comprob E%C4 B- #~C+  F Q>       %F # %Cy> >VARIOSF FBUXCOMPROBXCAUSAXACTUALIZA_TEMPCOMPAREAVE_ALTAS P_VE_ALTASCOMPROBCAUSA TMP_ALTASITEMITMENSAMBLECANTIDADCOD_ALTACODATR_ALTAATRBUL_ALTABULTEMPCOMPALTAS4%C tmp_altas,FQmh1N NNCCCQBU XASSEMBLIES TMP_ALTAS XTMP_ALTASENSAMBLEITEMCANTIDADCOD_ALTAATR_ALTABUL_ALTATC *% C  M B %C C % B  B  BU XLISTAP_DOS SYS_DOSCENXSUCFAC P_DOS_LISTAXCOD_CLICLIENTESLISTAP_LSTVEN  T T% TFG((codigo E%C4 IT<Debe especificar la provincia de la direccin de entrega !!! T B oFG((codigo E%C4 kGT:Debe especificar el pas de la direccin de de entrega !!! T B%  TFG((codigo E%C4 ET8Debe especificar la provincia de la direccin fiscal !!! T B FG((codigo E%C4 CT6Debe especificar el pas de la direccin de fiscal !!! T B BU XERRXMSGXENTPAISPROVINCCODIGO XENTPROVINCIAPAISESXCLIPAIS XCLIPROVINCIA  TCW%Cve_otros LQve_otrosF G((idEC ZP%C4 >C Z > > > > FBU XPEDIDOXCAUSAXAREAVE_OTROSIDCOMPROBCAUSAMEMO1XMEMO1MEMO2XMEMO2MEMO3XMEMO3  TCW%Cve_otros LQve_otrosF G((idEC Z%C4 T T T   FBU XPEDIDOXCAUSAXAREAVE_OTROSIDXMEMO1MEMO1XMEMO2MEMO2XMEMO3MEMO3 *oepresup tmp_epresup'TCC 6T  T  "%  C c F # %T %T %S&%   j!CCZsucursalid%C T T TTTT%S&%   a!CCZsucursalid%C T T T%C % CfletescodfleT !T"#T$%T&'T()T*+T,-T./T01T23T45T67T880T9C X%1*T8C:Z/%880 899 886 T9C X"%880 886 T  T C X &H 891T9C  \ 2T9C \T C XF;+CN<= U ;>%T>.t. -T> dpresup.cantidad-dpresup.usado>0Wselect * from dpresup where numero=xpresupuesto and &xwhere into cursor tmp_dpresup T? ~ T?@AFBG((codinsEC@DEFF;%CtempcompN? #? +CtempcompN?  ;>D@D>G@G>H@H%>I@JC@K6%C@LTMCBN%BOSFPG((codigo ERSTMM CPN%BTSFTG((codigo ERUTMM CTN TM@LF; >LM >VM>W@X>Y@Z >[%C@D '>\C@D]\^>5B5 >\@\^S>5_5F;'>`a@Ab@b*>cdDedHfdG>g@3'%Cdpresup.subcentrobN >h@h Ti Tj Tk Tl TmTnCXToC X Tp Tq Tr Ts Tt Tu`vve_procsC ZS@Aijklmnpqrstuo%Ci F; >Li%CENVASES QenvasesFxG((codigo EkF;j>yjzk{xN|l}m~nopqr%C tmp_dpresup F@Q%C tmp_epresup FQBUXCANTIDADES_ORIGINALESEPRESUPNUMERO XPRESUPUESTO TMP_EPRESUP XOTRO_CLIDES_CLIECLIENTESNOMBREXCUIT INSCRIPCIOXSUCFACSUCFACXTIPOPEDNUMFACPVRSUCXSUC XVENDEDORVENDEDORSUCURSALCOD_CLIXCOD_CLIXTXTCPBTCPBTTXTXPLANPLANXLISTALISTACOD_FLEXFLETEFLETESXDISTRIBDISTRIBT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5 T_DESC_CONS DESC_CONSXACOPIOACOPIOXIVACATIVACAT XCENCOSFACCOD_CENXRG5329RG5329 XDESCRVARDESCRVARXTIPODOC XDOCUMENTOTIPODOCTEMPCOMPMAX_PRODMAX_DESCXWHEREXACC TMP_DPRESUPITMBIENESCODINSCOD_INSOBIEDATA_CODIGO_LARGOBULATR RECEPCIONCANTIDADUSADODESC_INSXDESCRDESCR ATRIBUTOSATRIBUTOCODIGOXCODXATRBULTOSXBUL DCODATRBULCOS_LIFOPRECIODES_INSDTOLISPREIVAPER PROVINCIAIVAFIJODPRESUPPRESUP PRESUPITMCOD_CUEOLDCODTVENTASOLDATROLDBULCENTRO SUBCENTROXDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMLEVANTAR_DESCRIPCION_COMPLETAVE_PROCSENVASES COMENTARIOTIPOENVDTIPOENVCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORT96/4  G+(listados% T)TPV Zona Franca o Trasferible J( B%  T  T- TCW%CEmpresas Q \empresas%NF- F% { TC$ T T.%     %%}TFG((ccvfac E%C4 y%Ciibbprov oQiibbprovFG((comprob E+C+ ! 3%+T "#T "$)%"  % #%CC&' T "T "mT`BA: No se percibe por ser NC referenciada a un comprobante de un periodo de distancia mayor a 2. %C(C )d 6T* +, -. /0 12 34 k T "T "\TOBA: No se percibe por ser NC referenciada a un comprobante de distinto importe.)%"  5 '#%CC&6 T "T "oTbCABA: No se percibe por ser NC referenciada a un comprobante de un periodo de distancia mayor a 2. #%C(C )d 6T* +, -. /0 12 34  T "T "^TQCABA: No se percibe por ser NC referenciada a un comprobante de distinto importe.H%7l"ve_alicuotas_manuales_iibb B   T T T9% T9:;  T9<;%9 5%=>#%C?% %@C %@ % % TTكBA: No se calcula percepcin porque al no estar referenciada no se puede determinar que sea por anulacin o devolucin completa !!!C IEn caso de ser una NC por los casos mencionados, debe estar referenciada.  TATBTC'DEABC2%:FS CBC A TAjT*Provincia de Buenos Aires: Alcuota manualCCA Z %. Vigencia: CB* al CC*  .Gsys_padron_iibb% %C` TI%\ ?T2Provincia de Buenos Aires: Alcuota 0 en el padrn  %B B  T{TnProvincia de Buenos Aires: No figura en padrn pero tiene domicilio o se entrega en Bs As, se toma alcuota 8%  fTYProvincia de Buenos Aires: No figura en el padrn y no tiene domicilio o entrega en Bs As T  ,TProvincia de Buenos Aires:  T ? BT5Provincia de Buenos Aires: El cliente es del exterior T  FT9Provincia de Buenos Aires: El cliente es consumidor final T %Jj%J  TATBTC+DKABCa2%<LS CBC A  TAjT*Provincia de Buenos Aires: Alcuota manualCCA Z %. Vigencia: CB* al CC* .Gsys_padron_iibb%%CTI%?T2Provincia de Buenos Aires: Alcuota 0 en el padrn  %B B B TnTaProvincia de Buenos Aires: No figura en padrn pero tiene domicilio en Bs As, se toma alcuota 8% _TRProvincia de Buenos Aires: No figura en el padrn y no tiene domicilio en de Bs As T ,TProvincia de Buenos Aires:  T fDT7Provincia de Buenos Aires: El proveedor es del exterior T HT;Provincia de Buenos Aires: El proveedor es consumidor final T  T*TRgimen Especial Construccin T G T TT %=MTC C  TN %aV% b%@%@% 5  TToCABA: No se calcula percepcin porque al no estar referenciada no se puede determinar que sea por anulacin !!!C FEn caso de ser una NC por el caso mencionado, debe estar referenciada.  TATBTC'DEABC#%CBC A  TAVTNCABA: Alcuota manual CCA Z %. Vigencia: CB* al CC*  %-  T T TO4Gsys_padron_agip_nuevoO%%COTTI%   T=TN0CABA: No percibe por ser una NC no referenciada. P%*TNCABA: Alcuota 0 en el padrn L&TNCABA: Alcuota del padrn 6TN)CABA: Alcuota 0, no figura en el padrn. TNN CABA: O -TN CABA: El cliente es del exterior T ^1TN$CABA: El cliente es consumidor final T R%J%J TATBTC+DKABCa#%CBC A v TAVTNCABA: Alcuota manual CCA Z %. Vigencia: CB* al CC*  %-cH C$T? C $ T 2 T T TO.Gsys_padron_agipO%,%COTI%9TN,CABA: Alcuota 0 en el padrn de alto riesgo 5TN(CABA: Alcuota del padrn de alto riesgo ( _TNN CABA: O T  T T TO4Gsys_padron_agip_nuevoO%{%COmTI%9*TNCABA: Alcuota 0 en el padrn i&TNCABA: Alcuota del padrn w TNN CABA: O T /TN"CABA: El proveedor es del exterior T N3TN&CABA: El proveedor es consumidor final T OTNBCABA: No tiene ni domicilio fiscal ni domicilio de entrega en CABA TTN T TT %=R5%%S;TC C % !%@D!%@ TATBTC'DEABC TTA6%N:;TMbP?   TATBTC'DEABC#%CBC A  TA]TMisiones: Alcuota manualCCA Z %. Vigencia: CB* al CC* %:;` T!TMisiones: Exento T{Gz @7TMisiones: Alcuota CC Z%  "%T :; d mT\Misiones: Es de C.M. pero no tiene ingresado el CM05. No percibe pero hay que regularizarlo. T  qT`Misiones: No tiene ni domicilio fiscal en la provincia o bien no contribuye ms del 0.10 en C.M. T @!5T$Misiones: El cliente es del exterior T !9T(Misiones: El cliente es consumidor final T 1%%J$%J$ TATBTC+DEABCa TTA6%N<;T?  $ TATBTC+DEABCa#%CBC A T# TA]TMisiones: Alcuota manualCCA Z %. Vigencia: CB* al CC* #%:;# T!TMisiones: Exento #T @7TMisiones: Alcuota CC Z% $nT]Misiones: No tiene domicilio fiscal en la provincia o bien no contribuye ms del 0.10 en C.M. T $7T&Misiones: El proveedor es del exterior T -%;T*Misiones: El proveedor es consumidor final T ]%T TT %=U-TC C % )%@l)%@) TATBTC'DEABC TTAB%S S :;T?  s( TATBTC'DEABC#%CBC A k' TA]TSanta F: Alcuota manualCCA Z %. Vigencia: CB* al CC* o(%:;' T!TSanta F: Exento k(%:;(T?,TSanta F: Inscripto en C.M. g(T@.TSanta F: Contribuyente local  )TqSanta F: No tiene ni domicilio fiscal ni se le entrega en la provincia o bien no contribuye ms del 0.10 en C.M. T h)AT0Santa F: El cliente no es responsable inscripto T )9T(Santa F: El cliente es consumidor final T -%J-%J6- TATBTC+DEABCa TTAB%S S <;T?  , TATBTC+DEABCa#%CBC A + TA]TSanta F: Alcuota manualCCA Z %. Vigencia: CB* al CC* ,%:;+ T!TSanta F: Exento ,%:;B,T @7T&Santa F: No inscripto o no acreditado ,T@,TSanta F: Inscripto en C.M. 2-TqSanta F: No tiene ni domicilio fiscal ni se le entrega en la provincia o bien no contribuye ms del 0.10 en C.M. T -7T&Santa F: El proveedor es del exterior T -;T*Santa F: El proveedor es consumidor final T  .T TT %=V5TC C % 5%@25%@4 TATBTC'DEABC TTA TATBTC'DEABC TW#%CBC A / TAZTSalta: Alcuota manualCCA Z %. Vigencia: CB* al CC* 4%A2-%:;T T u1 TW2%@0TWd mT:Salta: Entrega Salta. Monotributo. Inscripto en CM Salta (CCWZ%/CCZ%) q1T @Wd }T<Salta: Entrega Salta. RI. Local o no inscripto en CM Salta (CCWZ%/CC @ Z%) 2%@ 2 TjTESalta: Entrega Salta. Monotributo. Local o no inscripto en CM Salta (CC Z%) 2T @aT<Salta: Entrega Salta. RI. Local o no inscripto en CM Salta (CC Z%) 4-%:;T T 4 TWT%@u3TWd xTESalta: No se entrega. Monotributo. Local o no inscripto en CM Salta (CCWZ%/CCZ%) 4T @Wd wT<Salta: No se entrega. RI. Local o no inscripto en CM Salta (CCWZ%/CC @Z%) 4 T"%:; T 4>T-Salta: No se entrega en Salta. No definido CM 40TSalta: No se entrega en Salta.  .52T!Salta: El cliente es del exterior T TW 56T%Salta: El cliente es consumidor final T TW 5 5T T TWT %7)6"ve_alicuotas_manuales_iibb BUXXERRXMSGXREFXCAU XCLIPROVINCIA XENTPROVINCIAXCUITXFECEMIXNDPROV XNOIMPUESTOSXYA_COMPLEMENTADOLISTADOS IIBB_PROVXTIPOPED XREFERENCEDXAREAP_SYSTEMEMPRESASCODIGOP_CODEMPXIDREFXPERIIBBOOBJMOTIVOSTIPO REFERENCEDP_PER_IIBB_NCNDCCVENTCCVFACFEC_VENP_PER_IB_COMIENZOIIBBPROVCOMPROBCAUSA PROVINCIAIMPORTEALICUOTA P_IIBB_NC_BAMESESP_IIBB_NC_BA_MESEST_TOTALCOMPLTOT_VENT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5P_IIBB_NC_CABAP_IIBB_NC_CABA_MESESP_VE_IIBB_ALICUOTAS_MANUALESVE_ALICUOTAS_MANUALES_IIBBXEXENTOCLIENTESIIBBCMPROVEEDOCONSIIBB_BAP_IIBB_REGIMEN_ESPECIALXIVACATXIBPERXIBPERDXIBPERHIIBBPER_VIGENCIAXCOD_CLITARJETAOBTENER_PADRONSYS_PADRON_IIBBPERCEPXCATIVAXCOD_PROCONTADO IIBB_CABAXMSG2XMSG3SYS_PADRON_AGIP_NUEVOSYS_PADRON_AGIPIIBB_MISP_PER_IIBB_MIS_X_ARTXCM05IIBB_SFEIIBB_SALXPERBASE2H(+ HBCC6C d 6d8d  MBCC6CC d 6Td8d 2+>BC6C d 6U XRECEPCION XCOS_LIFOXCOEFXCOEFICXDES_INSP_VE_TOTALES_VERSIONP_DESLINP_VE_PREC_DECIMALESH  e2BCC d 6d8d  7BCCC d 6Td8d 2(BC d 6U XRECEPCION XCOS_LIFOXDES_INSP_VE_TOTALES_VERSIONP_DESLINP_VE_PREC_DECIMALESH  \)BCC6d8d  $BCTC6 2BC6U XCOS_LIFOXCOEFXCOEFICP_VE_TOTALES_VERSIONP_VE_PREC_DECIMALESH$ i2TCCd 6d8d  7TCCCd 6Td8d 2(TCd 6 BU XRECEPCION XCOS_LIFOXDES_INS XDESCUENTOP_VE_TOTALES_VERSIONP_DESLINP_VE_PREC_DECIMALESW%CL&%C ףp= ? H (TCdTd TCCd8)TC6F+aD%!~C  @> d T%<!BU HAY_IVA_INCLUIDO T_TOTIVAINCT_TOTALT_IVAXDIFXSIGNOTEMPCOMPCOD_INS RECEPCIONTOT_COM%Ctccvent 3Qtccvent%Cclientes eQclientes%FG((tccvord E%BY% @1C C C -6   ' T  > T %  }FG((codcli E %ST T!  BUXPEDIDOTCCVENTCLIENTESPEDIDOTCCVORDSUCFACP_DOSCENEST_DESPP_VE_LIBERACION_ENTREGASOTLIBFABARM_BLOQXTIPO_SEGUIMIENTOCOD_CLICODCLITARJETAXNOMBREDES_CLIENOMBREVE_SEGUIMIENTOFEC_VEN%B%CIC<No est definido el artculo para registrar los recargos !!!B'%Cbienescodins IC<No est definido el artculo para registrar los recargos !!!BTd %%h#TC  6 QCDNo se pueden calcular los recargos porque el tipo de cambio es 0 !!!B%F -C  %CO [T CCO Dh>  C CC C>-COC   *C S C !666C "#C $% &'%Ctempcomp.revisadobN> ']>(CEC   C S ((6N66 T) T* T T+ T, T- T. T/ T0 T1 T T2 T3 T4 T5 %C t_redondeobN T6%C t_redo_mebNB T7 T8 T9 T: T; T< T= T> T? T@ TA TB TC TD TE TF TG TH TI TJ TK TL TM TN TO0%PCQ RS     TT TU TV TW TX TY TZ T[ T\ J(] J(^ T_ C` hCKNo se pueden calcular los recargos porque la cantidad de artculos superan CC Z !!!B BUaCONDCOBRRECARGO RECARGOARTMENSAJEXRECARGOT_TOTAL T_IMPUESTOSXMONEDAXCAMBIOTEMPCOMPCOD_INSMAX_PRODMAXYI RECEPCIONCOS_LIFOTOT_COMDESC_INSBIENESDESCR DCODATRBUL TIENE_BULBULTOS TIENE_ATR ATRIBUTOSLOTESSERIESUPDSTKCOEFCOEFICIVAPERXALICUOTAS_ORIGINALESDES_INSIVAFIJO XENTPROVINCIACALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MECOS_VENCOSTOREVISADORG5329T_IBT_IB_14 T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_REDO_ME T_RECARGOT_VALORDECLARADO T_TOTIVAINCTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_VALORT_PESONT_PESO P_VE_ARMADOXTIPOPEDMOTIVOSTIPOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASE IIBB_PROVT_IVAARR MAXIVAARRBRUTOTF%CB% 9%CCS 6?1%ST )TCC8 C8C86T -T )TCC8 C8C86T  T TTC Error !!! Unidades por bulto de      = 0  T  T  T T?ve_procs     T  T  T T T T TBC   %C C >>>F > > >BUTEMPCOMPCOD_INSP_VE_BUL_VERSIONBIENESBULTOS CANTXBULTXXBUL RECEPCIONXXXBULMENSAJEATRBULXBULTXPESOXVOLUXRECE BUL_PES_VOLVE_PROCS XCANTXBULT XPESOXBULT XVOLUXBULTXMSG_BUL_PES_VOLVE_BUL_PES_VOLXCOD_CLIPESO VOLXBULTO %C TMPrefCCV2 >Qccvent+%C TMPrefCCV2CCVFACy B  BUXCOMPROBXCAUSACCVENT TMPREFCCV2ACOPIOq#41C oSVP: Solicitando si corresponde T a% SCH8&CoSVP: Buscando bienes&%C lineascodigo'CoSVP: Lnea encontrada4%C ]C a 6 'CoSVP: Obteniendo stock;5 T T T T T T T T TT0 T T Taproc_stk%CoSVP: Stock obtenido5!"#`TAnlisis de solicitud pedido CC Z - CC  C  !T"T!C"D T#$CoSVP: Generando log C$%! !T%CSQCoSVP: User Log&'C ZPArt: CC/ C/  Genera solicitud. Log:ve_pedidos_recibidos.prg#T(C6 CoSVP: in_solcom T)a%*)a*CoSVP: in_solcom terminado +CoSVP: No genera solicitud&'C ZPArt: CC/ C/  No genera solicitud. Log:ve_pedidos_recibidos.prg 4.CoSVP: No se encontr la lnea.CoSVP: Saliendo de solicitudesBU+XPEDIDOXPEDITMXCODXATRXBUL XCAN_PEDIDAXENT_CLIOSVP AVFP_LOGUEARXTIPOGENERACIONP_EMPBIENESLINEALINEAS MASTERLINECONDCOBRANTICIPOXCENTRAL XDEPOSITO XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLN XEN_CALIDAD XEN_RECHAZO XTIPO_DEPXLOGFILE OBTENER_STOCKPROC_STKXCANTIDAD_A_SOLICITARXCAN_DISPONIBLEXCANTIDAD_PEDIDASOLICITAR_SI_CORRESPONDE_LOGCL_ATRUSER_LOG PUB_INDEX XANTICIPOXRES IN_SOLCOMG+(listadosG(\log\CCG = Artculo: CC/ C/ " Descripcin: C=% Cantidad pedida: C  Z=% +Cantidad: C  Z=% -Pedidos sin comprometer: C  Z=% -Pedidos comprometidos: C  Z=% +Ordenes de compra: C  Z=% - Compromisos en producciones: C Z=% + Producciones abiertas: C Z=% Saldo: C Z=% Cantidad a solicitar: C ZGG(BULISTADOSP_SYSTEMLIMPIAR_FILE_NAMEXLOGFILEXCODXATRXBULBIENESDESCRXCANTIDAD_PEDIDA XCANTIDADXORD_VEN XCOMP_VENXORD_OC XCOMP_PRDXORD_PRDXCAN_DISPONIBLEXCANTIDAD_A_SOLICITART%Cq_pcks6QWocompromaCQCCZCZC'Zq_pcks~%ve_orden_de_picking%Cq_pcksQopickingsacomproma       q_pcks ~:,%CC ZCZtventaspeditm> 6kCAItem del pedido comprometido pero no encontrado !!! Pedido/Item: CC Z / CCZ%Cq_pcks]Q%ve_orden_de_picking BUXIDTCCVENTIDQ_PCKSPCKCANCOMPROMITM!LIBERA_EL_PICKING_SIN_COMPROMISOSVE_ORDEN_DE_PICKINGPICKINGSPEDIDOXPEDIDOESTADOPICKINGTVENTASPCK_CANMENSAJEACTUALIZAR_ESTADO_PICKINGFG((idx04 E%C4%cTC TC T CCLos ndices para el C* no fueron definidos !!! T TBU XERRMONEDAXFECEMIXMONEDAXCAMBIOIDX04 FN_CAMBIOMENSAJE52B%C S   UP_CONS_FIN_2_CON_IVAXIVACAT CFGLISIVA~Hs 4 B %@`B? 2s BBUXIVAPER%1B-%%CtccventTCCVORDTT@TCPlataforma_Holderve_plataformas.prgTBa B-U XPEDIDOXREF_EXT XPLATAFORMA XNICKNAMEOPLATAFORMA_HOLDERTCCVENTREF_EXT PLATAFORMANICKNAME%CoSVPbO:C%GC ve_pedidos_recibidos.prgUOSVPXTEXTOXLOGAVFP_LOGUSER_LOG PUB_INDEX T T T Tg     H SEG T T TTTT  T  T  T T  TT T T T T T T T T T T Ty! cs_generar      T T BU#XERRXMSGXVALOR XVALOR_MONEDAXTIPOCOSXOFFSETXCOSTOXCODIGOXBULXATRXLOTXFECHAXMONEDA XFECHA_COSTOXTIPO XFECHA_TCXMONORIXCOSORI XCOSTO_ORIXDESCUENTO_ORIXCOSCPBTXCOSCAU XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCAMBIO_ORIGENP_EMPTEMPCOMPCOD_INSBULATRXFEC OBTENER_COSTO CS_GENERAR%$%  _!CCZsucursalID%r TCC T% CXT  %C T  %C T %C CT%C lTN%     TTTTT2%   tT T!T"%#R$ T$%T%C#&%'%$ N T(mCLa lista ha sido modificada !!!C C .Debe actualizar precios y/o bonificaciones !!!)%*|T+*T,--T.C.CC/ /0/6 +1ve_procsC36BU4 XINICIALIZADAXSUCSUCURSALCOD_CLIXCOD_CLIXDEPOSFN_DEPXENTGLNGLNCOD_FLEXFLETEVENDEDOR XVENDEDORCOMI_VEN XCOMI_VENDISTRIBXDISTRIBCOMI_DIS XCOMI_DISDES_COMDES_COM2DES_COM3DES_COM4DES_COM5T_DESC1T_DESC2T_DESC3T_DESC4T_DESC5DES_ESP1DES_ESP2DES_ESP3T_DESC1ET_DESC2ET_DESC3ELISTA XOLD_LISTAXLISTA LISTA_INIXSUCURSAL_CAMBIADAXLISTA_CAMBIADAMENSAJEFPAGXPLANXHORARIOHORARIO XCENCOSFACCOD_CENCLIENTES DOMICILIOSVE_PROCSP_VE_PD_MODIF_CLIENTE T%C% Ca% /  ve_funcionesC 6%C g #C  6 >C C a!C      6  %STS %%Ccfg_lis.divisasbCTC !%C g % Ccliotroscod_cli&%Ccliotros.divisasbNH6 ZTS ~TN 2BUXINIXMSGXDE_PRESUPUESTOXFORZAR_DIVISASVLD_LISXLISTAMULTIMONXFECEMICFG_LISACTFORZAACTUALIZAR_PRECIOS_TEMPCOMP VE_FUNCIONESP_PRECIOS_VERSION CFGLISMONXMONEDA XPRESUPUESTOXPEDIDO YA_CARGADOXTIPOPEDXNUMREFMOTIVOSTRAEARTSTIPO P_VE_DIVISASXDIVISASDIVISASCLIOTROSCOD_CLIXCOD_CLI%%Cxtmp_cen_globalbC9Error en determinar_centro_de_costos(): xtmp_cen_global, Tipo: Cxtmp_cen_globalb Valor: C (1) ve_pedido.prg$%Cxtmp_cen_localbC8Error en determinar_centro_de_costos(): xtmp_cen_local, Tipo: Cxtmp_cen_localb Valor: C (1) ve_pedido.prg"%C xtmp_cen_artbC6Error en determinar_centro_de_costos(): xtmp_cen_art, Tipo: C xtmp_cen_artb Valor: C (1) ve_pedido.prg"%C xtmp_cen_cuebC6Error en determinar_centro_de_costos(): xtmp_cen_cue, Tipo: C xtmp_cen_cueb Valor: C (1) ve_pedido.prg T- T %  9  T-T CX% C YCC6Debe tener un centro de costos a nivel comprobante !!! Ta T  T-%C "%C xtmp_cen_artbCd6Error en determinar_centro_de_costos(): xtmp_cen_art, Tipo: C xtmp_cen_artb Valor: C (1) ve_pedido.prg% Cbienescodins%C T  Ta&%C    T "%C xtmp_cen_cuebC6Error en determinar_centro_de_costos(): xtmp_cen_cue, Tipo: C xtmp_cen_cueb Valor: C (2) ve_pedido.prg%Ccuentascuenta%CI\S%C  % sC0Debe tener seleccionado un centro de costos !!! CCC Cdigo: CCuenta: C6 Ta % T  5 T  ( TaT try/catch:  ve_pedido.prg  B B UXERR_CENTRO_DE_COSTOSXTMP_CEN_GLOBALXTMP_CEN_LOCAL XTMP_CEN_ART XTMP_CEN_CUEUSER_LOG PUB_INDEXODEYFUNCNORMALIZAR_TEXTOXRETORNOP_CENTRO_DE_COSTOS_VERSIONXCENTRO_HEREDADOP_CM_CENTRO_DE_COSTOSMENSAJE XHAY_POR_CODBIENESCOD_INSCOD_CENP_CM_CEN_POR_ARTCUENTASCOD_CUEATRIBUTOP_CO_FORZAR_CENABREV OERR_CENTROMESSAGEc%E  T- T T-%C % Cbienescodins%C T Ta&%C     T%8T  B B X BBU XTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCALXTMP_SUBCEN_ARTP_CENTRO_DE_COSTOS_VERSIONXERR_SUBCENTRO_DE_COSTOSXSUBCENTRO_HEREDADO XHAY_POR_CODBIENESCOD_INS SUBCENTROP_CM_CEN_POR_ART TTS_ERRORc`BS4    C  C  U CFGLISIVAP_DOS XZONAFRANCAP_CODEMP P_IVA_CAT_EMPFC_2_CON_IVA_INC P_FC_B_IVAINCXIVACATTC]TC]TCtempcompOFTCordervTCfilterv^(G(G((!(\tmp\CO+(\tmp\COCO  F1 aaa_error=1Son error &onerr \tmp\.dbf#6_>  \tmp\.dbf G((set filter to &xfilter #BU XORIGENXFILE1XFILE2 XREGISTROXORDERXFILTERTEMPCOMPAAAP_LOCALMAX_PROD RECEPCION<(otccvent% v6%CCC6   r% g% UC-La nota de crdito difiere de lo autorizado (CCC Z) !!! cQC)La comprobante difiere de lo autorizado (CCC Z) !!! B- *CNo se encuentra el pedido !!! B-BaU XOLD_PEDIDOXSILENTXNCARR_PEDIDO_ANTERIORTOT_VENDES_COMTCCVENTPEDIDOT_TOTALT_DESCOMP_NC_APROBACION_TOLXTIPO_NCMENSAJEget_cli3 init_otrosp get_otrosleer_pd init_pdP( leer_data*brutol1netozMasig1_pd2fn_dep7 guardar_pds elimina_pdhnuevo_pd% recalcular( impresion buen_cuit buen_cuit25 show_reportno_aprob6 reset_filesfin_tran+vld_lis liberar_stkQvld_dep txt_bonif# print_report show_notas vld_remitosS norm_remito1 leer_remitos"multimoncleardata_scan_transf@ cleardata show_deudae msg_teclas]show_resumen_deuda desc_adi_get,  desc_adi_calX  preparar_data modificar_datarecrear_tempcomp open_files guardar_clia- traer_cli;show_notas_pedidoL validar_refkM get_transS ve_trans_saveT ve_trans_getXve_trans_default]Zleer_movimiento_inventario[ exportacion^ no_alcanzadoQb fn_aprobacionheanalizo_si_se_reanalizaetomar_valorizaciongactualiza_cambio_pedido jreemplazar_macros,l min_per_iibbsminit_de_remitos}oguardar_ensamblesztraer_ensambleY}crear_tabla_assembliesRguardar_iibbprov,traer_iibbprov+iibbper_vigencia obtener_posibles_referenciassch_guardar_pedido!leer_comprobante3lectura_de_remitos8 show_agregar leer_tmpven2{ leer_tmpven3 guardar_altas traer_altascrear_tabla_altas# lista_ini9validar_domiciliosa guardar_otros traer_otros leer_presuppercepcion_iibbcalculo_total_ps-calculo_total_meA/calculo_precio_ps0calculo_descuento1ajustar_iva_incluido2 seguimiento4recargo_tarjeta7llenar_datos_de_bultosC ref_es_acopioGsolicitar_si_correspondeHsolicitar_si_corresponde_logQliberar_pickings_afectadosT cambio_fecha9Xfc_2_con_iva_incYalicuota_percepcion_iva_rg5329Yobtener_datos_plataformas{Z avfp_loguear[ costo_a_fecha\ ini_sucursal`determinar_listafdeterminar_centro_de_costosjdeterminar_subcentro_de_costosthay_iva_incluidowdividir_remitowvalidar_contra_pedido_aprobadozq;2aA1AAAA#Aa"!!!!!A"52"AUrA@qqAAq2rA%A1qAr$!12A1A$!AbRDB41qqqAbaqABqAqqArr!qA2RqABqAA21qAABCBBRAqAAAAAAA,qABqAA2qAAABqABQqABAABAB!ARAJAs23}aaArbarCAAABQAAAS6QAABAbAAA 2!qA%qaAAB1311131111A11311111s111111111qqsAARcbAAaAAAAqAAu"AR1AdA!qaAA11rr1rA4A22A!rrqrABABAAAaA2qAArAAA2Av2AC!ABRABaA2AB1332BAAr1qQAQAAb6!AAAABaaBAV1AAB1B12A12A1BA2bA2raaQAC qA2AAA!A1AAAb41rR1AA"AArQB1BAAqAABqAA"BB2"As3Q! AABC"AAAAABBB1B12A12A1B1A2#A2r1ABB1B12A12A1B2A2bz"qQAAA3AA1ABD1B12A12A1B1A22AQ7!AARsaBB1B12A12A1B1Ar!21A"2A4sA1B12A12A1B1A2dcBA2A2AAcAbA1B12A12A1B1A2AAaAA1B12A12A1B1A2vAAM3A1B2A12A1B1A3p1B12A12A1B1A42ADB"C1B12A12A1B1A3d2AAQ#ABABA1B12A12A1B1A4qAqA!Aq(1D!$A2D!$A!dAB"ABACA1B12A12A1B1A2tA1B12A12A1B1A2AAAs1tAA1B12A12A1B1A3{2BBC1B12A12A1B1A2fBAAqAAr!S qAABuqABRAQQ1!AAACE1B12A12A1B1A2B!AaAAAqAA$s3AAPQB!21ABQr!ABAACvAB2qAAA1111A2B1B12A12A1B1ADA2AAA!A1AAAAAAA1$`qA QDAB2AAAA1A2qAaAB"ArFBBABAA#Aaa321bqqCA#AcAAf3122A"ABA211AADQSA2ABdAAAca2A1B12AB122BAAAA2BAABABAAAAAB4"ArABga>AAA5AAAAABAAAAB2AAAAAAAA2%Aaa22PqcqqCAcaBBAAABCBBAeaAAAqAAqAAqAAcacaA2q21rs"AAAArsvA!bB52AB!2qAUb1QQAQAbAAqq4qAAbCA44qbARAB2qAB4qbabARAB22y"rAAA322AAAABdAB2AB2qArbR!AQAAAA3raqAqBCB31AAB!2qA1AABAAAAAr24qAqA"!!!!a6!AA2ARAQARAQAA$Ab!ABaABQ"11211raA211!2AH5A12A1A"raAA22A1A1AAQ2AqQ12ARD9!ABCABB2A22ABA!1A1ABBbBCrrrB4dqA#AAqQA2aAqA"!CABAA5B1aqABAAACA"AaqABAAABBB8qsArrrrrArAqurB2AB!d3A1AB4"qA1AqrqAArusAqrrABqq!!c3A2AC\2q!AqA4"qA1AqrwrqsAqAA "22 AArqAAAsbrbrC2qAQ1AAArA2dh2ARAA@1qaqa2jrAC7AqABBB2r#ArAA1QAABAAAAABB2q2QAru#ABBAqqArq1qqqqAAAAA111Arq1qAAAABaqQAqAr1ArqrAtrAAAqAtr11111AB1A!A2bbAABAqqA$QB3!AAA1ABBCBBCrABqAAAC7q6A!Ab"6!Ab"AcrAAaAbA2ABAAQA7qB1AB2AA1aA@1dTBB21AABBC6IArBBrBBBBBB"3qaBd2AAaAa5aAaAaAaA!ARBAAA3qB1AB1dBB21AABAA76ABABAGAb2AtAARAA#aTS2B1ABBBA2aA"BRaAFB4qr1AAAAAAAA1B"A"ABqrQA"ARaAABArbW"ArBBBBeaAA!A3rAAABAkECA3qGUAA7AB2bARARAAdA#SArat!AA23rArBBsatcAbCA"AtAAsA1BAQAe2A5i2A"ArtAACB#2#AB2""2""BA@1AB2qsBB3rb23! AAa AABBAA 7QABBrAAAAArAAA21TBAA A A1Ar2Aw3A1*SAA$AArA3AeAbbb7ApBr2QArRBrq#!rA2QQACk 7QABBbqqAAAAA1aADrABrABqABWDBB3BsPrAr21A2sBB31bARARAG!!211AAraaBaaA!B8qAA2qtqAA7jB7aDAA8daaa!aaAAA;!A!AcaQADAqAAAAAB8ur!1qAqABQqqAAqAA>zrBraA!rK2QABArAAAraa;2QArAArR<qqxr1AqAc2q1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AAAR!AA1A1QAA7bB7qAAraAbqar!rQrArABB3qa1qaqBqArAqqAABAq2qR!QAAE1AuA22AAAB4q1AaAdDAA2AABA2qA32ArrUUU1ACAC 1rtbaaarqAAAQAAAAAAAAAABAqqAbaRrQ!!qArABB2A2qAAa1aasbaAAAAaaAqbaaaAAArAbcaAr!qq!q!rqrqBBbaRrQ!AA2r2rAABBB7raAEBbA7AbA1Q11QQAAA2qrBBqqAArrrrtgrBsAsAAbABAAAAADBrbC2t!QBgBACqqQAAsr%AcB1rAAqABqqaa2!qAAAAA!A!A1A1A!A!A1AAbAAArA!A!AAA1A!AAA1A!A!AbAqQAAArArA1AARqArA1AAA!AAAAAbAAA!A1AAAAA!A!AAA1AAA1A1AAAAAAA!A!A!AAA1A1AAAAA!AAAAAC21Arr!Aqr2AArqAt8 1 ArA2AA1A2AA1 DA2q!AqqA11AAA"AADB2qqAArb!aqrrAArAD2q4bA2qqrBABAABABQrAA3AAr<12AAv2SC1AAAt1AAA1AAAAD1AAADA61AArAAAAAA315qQr!AqbaAAAqAqAAArAAA3qDrqAbarqARA1ABAA3qqAbqqARA1ABAh222BAr1AAABABB2r1!ArbqaA2CBB21gtr1!1AA1AAA2qQQ3qtAarA1A2aA2A2rs"aR!Aq!A!AA2AR9ARABAQCeAA2rAAAAaA2r1raAbAqBBA2rAsAAr2rAAr11AqqvbArAABBB3q B2rAArBBBA2rAArq21BqAABB21AAqA1AqAAB2qm"AqAA"A014p#B2AAAAqqAqAAqAAqAAqAAqAArRC2qAAA1AAB3q "2tqAruqAqBBsABrrrr!AbAArAr2arr#qBtbAqq!q$qA1AqrL:AsqQ. 1R AqAArBrtqq!V4"qA1AqrBrAAr1"qABAsFrquA"B32AB!2qAbAArr4qAA"C!2AH21A1AAA2A#"rrB3qu1r1C2qAbArvqqr1ssAB"cA"qA1AqrCqAA2r1B2BAbArvqq!!AbA"qABqAABbbBAq2AaaaaA2qraqAAB4qrqAABB6rAA2sar1rYCBA2sAAr2rq2rq1AAqBBBB3qqAAB3q22AAA22rArqAB2sQAr1AB3rAAr1!AA2rAAr!AA2qy"raAAcqaAQAAAsaAQAA!aAAgS!AQAAArqAtArrBrAAQB"rqBrqBAsRsArtsA"qA1AqrFqAAqAAA=$AArAarB2A 1rAAr24ABA6AABEBA2$BABBArAAA(43211r"21AaABAAA"AbA2311"21AABABBAAAAA%23 11r2a A22aAAhBAAAAAA33113aQA21QADAA21aADABBA2AAAA$4E2311rb11r2bQqAB!AARAA4311b112aQqAAArAAAA&2311r"11r2kfRQADB"AAA1311"112iaQqQAAB"ArAAAA'5311r11r2B2RA2RAA1RqA!AAAC"AbApAAB2$A2q12A41!2qA512AA411!2qA4 cr2AAb2AABACBA2q1AAAbqAbAAAqArAB3bAABAArAAt211AAA2t"uAAAAAABC2qAA2rqqAAA!"ABrC2qAA51veagqCqQRbB4 3R ABABA2!a!qqqqqbaB2trA{BTArA*AArATB21r1!A1AA2'4q1AB2q2qARqqA2AqA31ra11CB2q2BABARAQARAQAA$AbrBBBbABCB21wbA 6TaACBaAcaaBBABAB2qT AA A!A A!A As22Ar"$A AbARAAcA$A AbA1AABABBA24r"aARAAcAAAB32qtrrAQbar11RRB2t"b1QAAqAqAq2 T)% kR P Tg TUx Vd3 d'9!i7{90GA_>.?{I .I' !>z8#77#eMj#s$~Q$f,$@$Ʀ]$ڦڪ$-f$z=V%&St%i%m%/&,&S&p&$&E1&HY'bp(eG (a(I (c S(=n')_'D))rF)j9)D9K+KZ+ Z\y,$]j,`"jj&-j{k s>-1squ-uv-HvX{-{{U. nȈF.*y.,.F.c U.tі/H/d7M/ UA/@\Ȱ.0kѱr0o000a1A12^"2#G4,G H#6$HJ26JMW6NP6PJT6hTU6UV6 WZ7/Z\R7C\]n7T^Pw7 lw38^!P8d=h!`t=r!k=|!` =!  =!$ E=!a!>#"8!O(>R"i(I)>\"{)9?"9=p?"=}C?"CD?"EEF?"pFG?"+GH?"H J @"/JO@#PXL@T#X`@x#B`>p@#iptrA#uuA#u>yA#iyg|A% (Z,aW,&G(9:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.gesG~(clasesG+(te_procsG+(listados te_cobranza<   T %    J( T CX T TT T T T Ta TC$ Tate_cob_reimpresion(% MB% T !TCRA6 T% R T !TC@z 9999,999,999_CBU ACTIVEFORM DATASESSIONIDP_SERVERMENSAJECLASESTE_PROCSLISTADOS OPEN_FILES TE_COBRANZADESCVALMAXDESC RECMAXOTHOTH XCOD_CLIX XOTRO_CLIXRECIBOXXFECHAXXCOMPXPVXRECINGXENC XFEC_COMP XRESULTADOTE_COB_REIMPRESIONP_MULTIRECIBOSXCAUSAXCOMPROB REIMPRIMIR 4%CN? T%CCg T%CN T%CC T:%C \reccue.ges0 C \pagcue.ges0 elC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.gesG~(clasesG+(te_procsG+(listados  te_cobranzaF G((cpbt E%C4G(T FG((codcli E %C4T T  %CEl Cliente no existe !!!F G(B )CEl comprobante no existe !!!F G(B&TCR  6 T TT T T! T" T#T$ %C comprobantesF%QT&CC]RT' ComprobantesC&'(C')T*CC]R+ te_cobranza*%Cchq F QchqF-G((comprob!EC@z 9999,999,999_%C4  T/ T/-0F G((comprob T1%EC@z 9999,999,999_ T23Cpagos4?+C+ ,C@z 9999,999,999_. { F5G((cuenta E 6Hl  716F,G((numero E 8(rpagos798:;3<6=>?@ABCDEFGHIJCHE K L M N5< 659 8 O,P,Q,7,D,R  H I,J 72]rpagos798:;3<6=>?@ABCDEFGSEFE K M L N5< 659CC O O 6-CXCX  T 73l rpagos798:;3<6=>?@ABCDEFGOTR K U L M N5< 659 8 O-CXCXC FVF HWF G(BUXXCOMPROBXCAUSAXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADOP_SERVERMENSAJECLASESTE_PROCSLISTADOS OPEN_FILES TE_COBRANZAVEN_OPERCPBTCAUSAXFECHAXFECHACLIENTESCODCLICOD_CLI XCOD_CLIX XOTRO_CLIDES_CLIENRECIBORECIBO VOPERACIOXFECHAXCOD_CLIRECPROVPROVISXAGENTEAGENTEV_RECADO V_APLICADOMAXAPLXNUM_OPERACION COMPROBANTES XCOMPROBANTESXALIASCREAR_TMP_RECIBOLLENAR_TMP_COMPROBANTESXPAGOS CREAR_PAGOSCHQCCCOBCOMPROB XCOMENTARIO COMENTARIOAXMONEDAMONEDASYS_MCUENTASCUENTATIPONUMERODESCRIMPORTEPESOSABREVCUEDESCRNUMINTSUBNUMVENCCLEARINGPUEBLODIFERIDO PROVEEDORBANCDEP PROVINCIAPOSIBANCHQNUMCHQECHEQUEDES_VALCAJ_PROMONEXTMONPASE DIF_VALOR DEP_CLEAR DEP_PUEBLO DEP_BANCOREFINTREFNRETIVAPROVILETVRECIBO& %C2SELECT &xalias Qh1\tmp\CC NNCN D D N N NQ\tmp\U XCOMPROBANTESXALIASP_LOCALTIPOCPBTCOMPROBSALDOAPLICADOCAUSACUOTAFECHAVENCDIASPLAZODESPL  %C v_aplicadobN@ T%Cv_recadobNo TFG((comprobG%EC@z 9999,999,999_G G TF+C+ ,C@z 9999,999,999_   C+  T CO% C XHTC TC T  T T T%C XGECZG %C4TSELECT &xalias >*>C C 6>C>  >>>H V>FC d>ND c>NC L+>AS 1N>CC 2q>DC H>PR R>RC 2>XXFHG((comprob # HUXALIASXCOD_CLIXRECIBOXCAUSA V_APLICADOV_RECADOCCCLIECOMPROBMAXAPLCOD_CLICAUSARECREFIMPORTEAUXADELANTOXREFXCAUCAUXCUOCUOSALDOAPLICADOCUOTAFECHAVENCTIPOCPBT reimprimirucrear_tmp_recibollenar_tmp_comprobantes)AA"!b{A2A1AAAA#B2rArArArAAA"!bwqQqaAAqaAAbqAAR"WQArArQ"rqsrqArAAsraB2!AA 31AArbQabcQ1A1Qaqa"QAAAAAAAAArAAAAA1,V[d:%| %/5v0\XZ'4VT CCCC$iZ-C00CCCC$HZR-C00CCCC$%ZR_CC^:-T CCta6T CCta6T CCta6T CCta6TCCta6% i 8G(9 e W G( a% co_aut % 8 dTCy%4(0&%CCCfMONITOR,FCQ co_comienzoaco_aut-a2T%Registracin de asientos automticos.BUXAUTXTMPSMSGXDSIDXVENTASXCOMPRAS XCOBRANZASXPAGOS XDEPOSITOSXIN_TRANXREPORTE_CO_AUTVENTASCOMPRAS COBRANZASPAGOS DEPOSITOS ACTIVEFORM DATASESSIONIDCO_AUTAAAMAXAREAZ OPEN_FILES CO_COMIENZOASIENTOS_AUTOMATICOS4 T-T % B Cco_aut%~{{TBAT T 07:30 T T C Ta T T C Ta %aG !G(\tmp\.txtG T1)J(7listados G*(ASIENTOS DIARIOS---------------- Empresa : C-Fecha de Proceso : CC$* C^7 Usuario : [CZ]  Reporte :1%CLIENTE/PROV COMPROBANTE PROBLEMAGG(%?%Cempresas.FQF!Q \empresascodigo T"##)+C+  T$!F!Q \empresascodigo E$ T%&'ft05)ft05aG "G(\tmp\.txtG % NC-PQ T- Empresa : %GG(*co_autF!Q \empresascodigo E$H T$"F!Q \empresascodigo E$'ft05)ft05a ^*co_autT+NG "G(\tmp\.txtG GG(,-./0!T0Asientos AutomticosT,C12T-C,log\0 T/a%C- h K -(.d T/-%/3\tmp\.txt(-.txt %  C3%8BU4 AUTOSTARTPREGUNTOXIN_TRANXAUTSETS INICIALIZARCO_AUT PUB_INDEXEJDEJHXHORAEJACTXANTESANTESINICIALP_LOCALXREPORTE_CO_AUTXDPRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNLISTADOSP_EMPRCL_NOM P_COMBEMPEMPRESASP_SYSTEMCODIGOXOLDEMPP_CODEMPXCODXEMPRESADESCRLOAD_EMPFT05 DNLD_CUENTASPROCESARSIONOXTPATHXFPATHOEXXOKXCARPETAODEYFUNCGET_PATH UNLOCK_ALL< G9(G>(G> . Hora Actual :=  Hora de lo Asientos :99:99 9 T-R pCC2Presione para Terminar sin hacer los asientos.fP+a&TCCCC7 f%X\G>(GG> T- T-!TCC^=TC=TCRTC=TCR% Ta! "%% Ta!G> BU XHORAXOKAAAFLAGXHORAACTHAMAXHXM% W 1G(9 S E O%G1G2G/GGG0G%G  G britG.G G GH( G (G GM(GI G>(EG>G] GY Ca? Ca@G( pC AGUARDE...P7 T TT SUPERVISOR G( %T  \empresa\foxuser.dbf%C 0 =R pCATENCION !!!! El archivo CC f no existe !!!PT C78 S GT(  G( <7T  \atrcan.ges @  %Ccuentas QcuentaFG((cuenta%Cejercon 1Q\ejercon<7T  \atrcan.ges @ F%G GBUXIN_TRAN ACTIVEFORM DATASESSIONID AUTOSTARTBRITINICIAL PUB_INDEXCL_MAXCL_NOMP_SERVERTEMPP_LOCALAGUILLEATRCAN_CUENTASCUENTACUENTASP_PRIVEJERCON P_CENTURY@ 4%Cxalias_dbC=Tdiariog%Cxalias_cbCtTconcepto%C F F'Q\\diariog%C F F(Q\ \conceptoG((asientoBUXALIAS_DXALIAS_CP_SERVEREJACTASIENTO6 4% TBUXMXDXDIA 4 5 TCW%C F-C%C4T C T T co_aut B- T /trsac diariogconcepto% \ T :trsac Co_autAsientos Automticos Ta% =FG((asiento C#6T% T T T TFG((asiento E%C4  >FBa X FB- w FB-BUXFXCAUX XAREA_ASIEJDEJHEJERCONDESDEHASTAEJACTDIR USE_FILESCO_AUTAAALOCK_GTRSACBEG_TRAN XRESULTADODIARIOGASIENTOFILE_LOCNEWASIXASIDXFECDXASIHXFECHCONCEPTOa%b%^1%CCon reloj ? (S/N)NSNZBa %{BaTCC^=TC=TCRTC=T CR%B- M%I% 4Ba EB-G>BaU AUTOSTART PUB_INDEXPREGUNTAPREGUNTOXHORAACTHAMAXHXHORAXM45 lG "G(\tmp\.txtG CVGG((zBUMPROGMERRORMCOMPROBMNOTASACCP_LOCALXREPORTE_CO_AUTOEX4F-C%C4TC T T%Cq F G((asiento B-BaU XFEJERCONDESDEHASTAEJACTDIREJDEJH USE_FILESCONCEPTOASIENTOB'%CGzGz?9>c  T-nT!Redondeo x conversin de importe C @z 999,999.99_ Asiento : C@z 999,999,999_BUACCME CONVERSIONXOKMSGDIARIOGASIENTOco_aut%%|1sys_procesandoRegistrando ventas%2sys_procesandoRegistrando compras  % 4sys_procesandoRegistrando cobranzas % d0sys_procesandoRegistrando pagos %Csys_procesando$Registrando depsitos y extracciones Csys_procesandoBUXIN_TRAN INICIALIZARCO_AUTXANTESVENTAS SP_MENSAJESYS_PROCESANDO CO_VENTASCOMPRAS CO_COMPRAS COBRANZAS CO_COBRANZASPAGOSCO_PAGOS DEPOSITOS CO_DEPOSITOS UNLOCK_ALLSP_OCULTAR_DEFINITIVAMENTE_4 5%CA T-B- TCW%CEJERCON }QejerconF%C+ C -C%C4  F T-B-T C T  T  co_aut F TaBaU XRESULTADOXFECHAXALIAS_DXALIAS_CAUX XAREA_ASIEJERCONDESDEHASTAEJACTDIREJDEJH USE_FILESCO_AUT #     HO% T cccompT fec_dgi$T CCZ - OP: CCZ3T &Re-registracin de asiento de compra: T-T comprob+causa T ccventT fec_venT CCZ - CPBT: CCRVFC9CCRcNCCCRdND??666 C =2T %Re-registracin de asiento de venta: T-T comprob+causa T ven_operT fechaLT CCZ - CPBT: CCRRRCAJ6 C =5T (Re-registracin de asiento de cobranza: TaT comprob+causa T com_operT fechaLT CCZ - CPBT: CCROCPAJ6 C =1T $Re-registracin de asiento de pago: TaT comprob+causa 2%5T(Tipo de asiento contable inexistente !!! TB-T C .  T Tsys_cons %B-% B T T-# co_funciones % >7T*No se pudo abrir el ejercicio contable !!! TB- L F Hk?  G((op E TC4 G((ccvfac E TC4   G((cpbt E TC4 ? G((cpbt E TC4%%e GT:So se encontr el asiento pero no corresponde la fecha !!! TB- *TNo se encontr el asiento !!! TB-% < T3trsac diariogconcepto%TAbort el usuario TB- T6trsac co_aut.prg  Ta qdiariogqconcepto F %C+ P T!CO%/> C=xid >  #! Ta T T#H  E %$ co_comprasa | $$ co_ventasa  '$ co_cobranzasa  #$co_pagosa% L T)?C(Error al registrar el asiento contable: C *  T)uC(Error al registrar el asiento contable: C 6El puntero no est posicionado en el registro correcto*% T-%V H+,Asiento co_aut.prgC# ZL6-trsac co_aut.prg % H+,Asiento co_aut.prgC# ZL T.  BaU/XERRXMSGXASIENTO XTIPO_ASIENTOXIDXNO_TRANSACTION XCPBT_NUM XCPBT_CAUXENCXTABLA_ASIENTO XFECHA_CAMPOXFECHA_ASIENTOXID_TXT XTRAN_TXT XMULTIPLE_REG XID_CAMPOSVLD_CIERRE_BALANCESYS_CONSXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESOPCCVFACCPBTASIDIAAAALOCK_GTRSACBEG_TRANDIARIOGASIENTOCONCEPTOXREGFORNEWASI REG_ASIDIA CO_COMPRAS CO_VENTAS CO_COBRANZASCO_PAGOS TTS_ERRORMENSAJEUSER_LOG PUB_INDEXEND_TRANTTS_IDasientos_automaticoshora inicializar use_filesydia nuevo_asiento;antesrepoE ej_actualajuste_conversion#procesar!seleccionar_ejerciciorehacer_asiento!qbAAA!1a!AAAAA,BB5BR2A31!baqqqqqqQqqqbaAqAARR1b!aq!qAqbaRBAR1QAb!aqaauB1AA1BB AAA3a!QAaAA!!!!1A11AAAAAa2qABAaaaaaaaaaaabbaaadBrqR!!BAr1BArAr1raaAB2AAQAAqAB21BA2q!xAA22rQ1A0qQArrqAqAA24qAAErA!!"!2q11qqAAAar31qa!abaBB2qq!4qrAqAq2AqAA2qRA#ACrArA3rABA21qA1Aq!qAAq3111AA121A!2Q!Q2Q!QqA2uA3qqAB1222B1qqAqAr53qAaBAA1Q2A2q21BAQA1Ab2ABs1&B 8+C1]'f'*?+*+n+J-h-W.l.2)2G5c5jJ%yN?gmXp%4G(9% T-ft05%|  te_comienzoG+(te_procsG+(listados%CCH g DC7Slo debe haber una cuenta de Diferencias de Cambio !!!B %CC\ gPCCSlo debe haber una cuenta de Diferencias de Cambio No Cobradas !!!B % T T co_funciones%C CB-:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B%C pagmaxefebN;@ \reccue.ges@ \pagcue.geste_procste_procs C TCX T+a%TCC]RTCC]RTCC]RTCC]R< 2% %!3"!#!%$a%$&$ T'+a# T(H# '> <)) J()%!T*CX T+ T, T-!J("% #& T. T/ T0 T1 T2 T3 T4 T5 T6 T7T8 T98 T: T;T< T=C$T>CX T?<@ @ J(@ TA TB TCTDNTENTFC X TG THa TI TJ TK TL TM- TN- TO- TP TQ TRS TT T% te_cob_recibo(  T te_cliente(HG W TX%YZ  TX W0 TX 2G TX[ te_cobranzaHv:  ! %'T''  %'( T''  ! : T' ' %] )%  T^ًcod_cli+dtos(cancel)=xcod_cli+dtos({}) .and. !dele() .and. (causa$'LVcd12').and. ref+cau+str(cuo)=comprob+causa+str(cuota)occclie`Ca*CC' bLcd123AR .cdCeZfbCgZCcd  salditos Ti  Ti%i %CJAtencin, hay comprobantes sin aplicar en la cuenta corriente del cliente.C Desea aplicarlos ahora ?j TkG+(ge01G+(listadosm Tm ge01 TmG+(te_procsG+(listadosR tCHay ms de una moneda !!!C dSe puede ingresar la cobranza pero el sistema no determinar la diferencia de cambio automticamente 7%CCCCCC5Hay ms de una moneda de referencia distinta de 0 !!!C 3No se puede ingresar la cobranza. Debe fraccionarla T T-%O TaFG((idx04 E= TC4%C4 b% ^CCLos ndices para el C=* no fueron definidos !!!%, % T-(%!T idx04.indiceCCZxtc = &aaa +%CC %QC!El tipo de cambio para la moneda CC est en 0 !!! T-T@ T@ T@%, KT-C,@ te_cambio(T@,- TAHq5 ! %'T'' %'( T'' ! 5 T' '%H]! t! %'T'' %'( T'' ! ! T' '# C T T T- ~Tt)TCt t60T Ct tfC X-6 Ft T TT265 T T TB T TG+(te_procsG+(listados%R C-CBa C- TBTNTQ6&%C\tmp\.dbf05Ft\tmp\te_procs6R  te_cobranza(%Ft5(\tmp\f DIF. CAMBIO  t TH-%"+a" T TTCH2" }!(% C h!%Ccondcobr Qcondcobr%Cccvent QccventFt(~  bV d!-%Ctftbccventccvfac`!&%C{condcobrplan\!%X!3sys_procesandoNotificando cobranza TH(  ANTICIPO-TCobranza de Anticipo - CY 2( !T Cobranza - CY T)T Cliente: CYC 2T Comprobante: FC tfC @TRecibo: C CCZ-6CCZ T6CtftbY`%C ;!C!sys_procesando T! !. *" TrC1No se pudo concluir correctamente la transaccin.C *Debe modificar el detalle del comprobante.! ">C1Error irrecuperable. Consulte al soporte tcnico. T! " T!H"# "! #%'#T'' Z#%'( V#T'' q#! # T'%C PENDIENTES#FuQ \tmp\.dbf \tmp\.cdx%C COMPROBANTESo$FtQ \tmp\.dbf \tmp\.cdx \tmp\.dbf \tmp\.cdx%CPAGOS$FQ \tmp\.dbf \tmp\.cdx%COTROS9%F0Q \tmp\.dbf \tmp\.cdx% %!BUXTIPOCOBXFROMXPREGUNTA_RECIBO ACTIVEFORM DATASESSIONID P_COMBEMPXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZOTE_PROCSLISTADOSATRCANMENSAJEP_IMPUESTO_AL_CHEQUEXCUENTA_IMPDEBCREXMSGCUENTA_IMPUESTO_AL_CHEQUE CO_FUNCIONESP_SERVERRESTORE_RECCUERESTORE_PAGCUECENTRO XCNDSP_PLAZO XPENDIENTES XCOMPROBANTESXPAGOSXOTROSXOTH RECMAXEFECAJCAJLOCAL RECMAXCHECHECHELOCAL RECMAXOTHOTHOTHLOCALXFORMXMAXFORM IIBB_PROVXCOD_CLI XOTRO_CLIXMONEDAXCAMBIORECPROVCHE_TEROTROS XDIFCBIOACCV_ACREDIMAXCAN MAXCANFLD V_APLICADOV_RECADO V_EFECTIVOANT_RECOBASEANT_RECXRECIBOXXFECHAXXFECHAXAGENTE XCOMISIONTCXDIFCBIOXDIFCDUE XDIFOLDACCXDIFDOCSIONOXCUENABONAXINICOBXTOTCPBTXSALDOXSALMARXTOTMARXCOBDOS XCOBDOSREC XCOBDOSPAG XMARCADOS XSALDOCOBXLIGHT P_MMLIGHTC XCOMENTARIO TE_COB_RECIBO TE_CLIENTEP_COB_ACT_VERSIONXMONTO_ACTUALIZADOCLIENTESPAIS CREAR_PAGOS TE_COBRANZAP_TE_COB_PREG_APLICAR_PEND XSQL_FILTROCCCLIECOD_CLICANCELCAUSAREFCAUCUOCOMPROBCUOTASALDITOS XSALDITOS MENSAJE_SINOXORIGENGE01OLD_XRESOIVACATXNCNDAUT_DENEGADA EXPORTACION PROVINCIA VE_PEDIDO COMPROBANTES PENDIENTESTE_COB_COMPROBANTES P_UNEGOCIOS XNEGOCIOS XMAXNEGOCIOSMARKEDCCVENTCCVFAC UNEGOCIOSXNEGZ XUNEGOCIOSVENCP_LOCALMAXAPL ACT_RECIBOXARRMON XSUCFACNORMALLOCALESVE_024MONEDAP_MONEDA_SIEMPRE TE_MONEDAXOK_MONP_TE_COB_MAS_DE_UNA_MONEDACOEFICINXOKIDX04ENC P_MSG_CAMBIOAAAXTC MM_MONEDA TE_CAMBIO ACTUALIZAR V_PARCIAL V_ANTICIPOS HAYANTACLIESALDORETGANCOMI XDIFCBIO_NC XDIFTOTAL XLDIFTOTAL CLC_DIFCBIOHAYCOMIAPLICARAUTNRECIBONPV XRESULTADO REGISTRARP_TE_COB_NOTIFICARP_TE_COB_NOTIFICAR_MAILTOCONDCOBRAPLICADOPLAN NOTIFICAR SP_MENSAJESYS_PROCESANDOLC_TODESCRLC_SUBJNOMBRELC_MSGSYS_MAIL_ALERTASSP_OCULTAR_DEFINITIVAMENTEPAGOS %Cplanvarc 5Qplanvarc%Cccvent cQccvent%Ccondcobr Qcondcobr%9occclieCXQQQQ Q  Q Q QCOQ-QQCXQQQQQQQC XQCXQCXQCXQ QCXQC(XQ-!1"\tmp\# /%$T%٪cod_cli+dtos(cancel)=xcod_cli+dtos({}) .and. !dele() .and. (causa='L'.or.causa='V'.or.causa='c'.or.causa='d') .and. ref+cau+str(cuo)=comprob+causa+str(cuota) ;xT%kbetw( cod_cli+comprob+causa+str(cuota), xcod_cli+xnumerof+xcausa+str(0), xcod_cli+xnumerof+xcausa+str(99) )select * , space(2) as tipocpbt , adelanto as tmpdifs , adelanto as saldoori , adelanto as difcbio , adelanto as difcbioapl , importe-adelanto as saldo , adelanto as saldouss , adelanto as aplicado , recno() as recno , .f. as aut , adelanto as sucfac , space(250) as descr , adelanto as ttmpdifs , adelanto as tsaldoori , adelanto as tdifcbioap , adelanto as saldover , .f. as dif , adelanto as ncndaut , adelanto as ncndautdif , space(9) as cuenta , space(3) as montxt , space(20) as oc , space(8) as vendedor , 0000000000 as tran , space(19) as cpbt , space(40) as condicion from ccclie where &xsql_filtro order by venc into table (p_local+'\tmp\'+xpendientes) Q"\tmp\#&& '' T( T) ~ T((T)) >*+-   ->C, ---C,-6%$ >+aH .V>FC .d>ND .c>NC .L*>AS .1M>CC .2p>DC .H>PR 2>XX%.Vcd124>& C/= 000C/ R  >& /%.Vcd '%C/.ccventccvfacT &%C0condcobrplan %1 +%C&/&.planvarcid T  TERR: No enc. ID  T P *TERR: No enc. plan CC0Z | TERR: No enc. CpbtF&>&  #) B2U3 XCONDICIONPLANVARCCCVENTCONDCOBRXTIPOCOBTIPOCPBTADELANTOTMPDIFSSALDOORIDIFCBIO DIFCBIOAPLIMPORTESALDOSALDOUSSAPLICADORECNOAUTSUCFACDESCRTTMPDIFS TSALDOORI TDIFCBIOAPSALDOVERNCNDAUT NCNDAUTDIFCUENTAMONTXTOCVENDEDORTRANCPBT CONDICIONCCCLIEVENCP_LOCAL XPENDIENTESXFROM XSQL_FILTRO PENDIENTESFECHAXTOTCPBTXSALDOS1MARKEDMONEDA MM_MONEDACAUSACOMPROBPLANVARIABLEXRES4  TCW T-%Ccfg_lis cFQcfg_lis TaF% #TCg  T%Q F BUXLISTAXMONEDAXOPENAREACFG_LISMONEDA%Cprovinc 4Q\provinc%Cpaises jQ\paises%Ccostos Qcostoscodigo%CAGENTE Qagentecodage%Cproveedo Qproveedocodpro%Ccom_oper PQcom_operoper%Ccccob |Qcccob%Cnumrec Qnumrec files filesBUP_SYSTEMCOSTOSCODIGOAGENTECODAGEPROVEEDOCODPROCOM_OPEROPERCCCOBNUMRECOPEN_FILES_COBRANZAFILESOPEN_FILES_ENTORNO_OPERACIONR,:Actualizando...F ~ T T T0CCZ)%     F/>   F$>  %>%  +>%  >  >BU XSALDOACTXSALDOXDIFAPL COMPROBANTES ACT_SALDOXCOD_CLICOMPROBCAUSACUOTAXLIGHTMONEDAXMONTO_ACTUALIZADOSALDOTMPDIFSSALDOORI DIFCBIOAPLTTMPDIFS TSALDOORI TDIFCBIOAPP_COB_ACT_VERSIONSALDOVER 4 5 T TFG(( referencia E T)+C+   C Z % HS$   T 2S% %TC  HFG((idx04 E%C+ $T idx04.indiceCC ZTCFTC  DqC=No hay tipos de cambio definidos para la fecha de emisin de   (C*)F TFTCT% ɚ;T %T TTHBUXID XSALDOACTXSALDOXDIFAPLACCXIMPCCCLIE REFERENCIACOD_CLIREFCAUCUOCOEFIC COMPROBANTESMONEDAIMPORTETCIDX04FECHA XCAMBIOREFMENSAJECOMPROBCAUSAMOTIVOY Ta T T TaF ~T%%T TCO T- T  T  T T F TcTN#%  5TS T-%N TaTc TTNTCCg%TC TC X T}TC0 BZC    S S  BC EA666 T  T! T" T# T$ T%a T& T'7(F~),T&& TF ~bTT TF* T+ T, T- ~#T,,%.OTRT--%.EFET++ T/T0c%1_T/c T2- T3 T4 T5 T6 T7 T8 T9T:C XT;C X T<-F=G((ven_ope%? & T@ HA$ CxCobDOSbLA r T@B 2T@CCD TD TE TFTG- + %G H YcTGC)No se han ingresado valores, ni efectivo.C Emite igualmente un recibo ?I TJa TK TL TM%N %G FO -) TPC4-Q@%Cnumrec4TDOR I;C.El punto de cobranza por defecto no existe !!!S+a TDD%O) TU  TD<%O) O)V W   PC4  te_recibo(L&%BA @B %Y ~XCKSolo se puede hacer un recibo transferible cuando se cobra con efectivo!!! S.  TZa  TLa%L [ T["%C@ D[\ TD@ D!  %[6 .  HQ  C[y TM! 2 5C(Error con los talonarios y su validez!!!S TM!  TM!  TDN%M + <<]] T] TJa%^ _co_autJa%J &CEjercicio inexistente !!!S%& b te_ncndaut%^J dtrsac]consnumrecclientesven_opercom_opercccliechequesnumfacventasccventbatchchqcccobdiariogconceptoiibbprov  dtrsac]consclientesven_opercom_opercccliechequesnumfacventasccventbatchchqcccobiibbprov  %^J H dtrsac]consclientesven_opercom_opercccliechequesdiariogconceptochqcccob  udtrsac]consclientesven_opercom_opercccliechequeschqcccob%]J ! T]>etrsac] Te_cobranzaIngreso de Cobranza%]TJCf%Ju T] T] T]>gtrsac] Te_cobranzaIngreso de Cobranza T-[H  J+%Dh]  Pi %h]  63TjCCDDE6@z 9999,999,999_!TkCDRA6CmjklH2 H%DH0CSe ha emitido el Recibo CCDnS ?CSe ha emitido el Ajuste CCE@z 9999,999,999_S H;C#Se ha emitido el Recibo Provisorio CCDnS H2<C$Se ha aplicado el Recibo Provisorio CCDnS%opK ;opagosqrs.CHEte003te_ver_cheques TM J TM CJ TM 2 TM 8 TM Tv BMUwTRSACNOAPLINOAPLICTODOAPLI COMPROBANTESXNUMEROFCOMPROBAPLICADOIMPORTE XADELANTOXREFXCAUXFECREFCLIENTESTEMPANT_RECV_ACREDISIONOV_RECADO V_APLICADOAAPLNORMALTYTEMPXCOFINTOTRECATRCANTCUENXCUEVENCLETRAXCOD_CLIIVACATTARJETACSUCCCFACTCCREMICCCREDCCDEBIINICOSNCNDMAXXSUCFACNCNDAUTPAGOS V_EFECTIVOMAXCAN MAX_NO_OTRTIPO XADELLIBUXADELLIB P_IDXCOEFGENNCACC1ACC2T_TOTALT_KILOS T_RECEPCIONT_INVT_TOTIVACUE_DESCCUE_RECAXINGTESVEN_OPERVEN_OPEP_MULTIRECIBOSNPVXCOBDOSP_DOSRECP_SUC_RECIBO_SUGERIDANRECIBOXNUM_OPERACIONNINGRESOHAYRECXTIPOCOB MENSAJE_SINO XRESULTADO XMAXPAGOCHEXRESXRESULXRECIBOXNUMRECXHAY_PUNTOS_MANUALESCODIGONUMEROMENSAJEP_CODEMPP_DOSXPREGUNTA_RECIBOP_REC_PREGUNTA TE_RECIBO XCOBDOSPAG XCOBDOSRECXMOTIVO VLD_RECIBOAAAP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTXFECHA OPEN_FILES TE_NCNDAUTLOCK_GBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORVRECIBOXCOMPROBXCAUSAUSER_LOG PUB_INDEX FMT_RECIBOLOCALESTE_003DESCRVENCNUMINTTE003TE_VER_CHEQUESTTS_IDd@%5%C 1 B T T T T T T T  T  T  T T C(XTCXTCXT TTCXTC(XTC(X T TTC X<  J( T%S F- Vcd %C4 T  T   ve_pedido  "T"C]!%Carchivo_ncnd_autSF#Q8h1$\tmp\"C CQ$\tmp\"# T%-F>&'%)O T*2K DIF. CAMBIO  (,+( DIF. CAMBIO  (- 2K DIF. CAMBIO  (,+1K DIF. CAMBIO  (*+ T- T.K (0/)%,* -  T1 T2 T39~ % DIF. CAMBIO )  ,T4CC5/0 6,T,T6CC5/0 6*TT224T336>&4'6 T1CO%1 #1%,2d>&&,2%*3>''*3 ~ T7CO T%aKT8C DIF. CAMBIO +c:;<a=>9%8pH=l 8Y B 2l B zF #7 F?G((ven_opeATACBCB 999999999999_C 999999999999_6FC#)%D(TEF a TEGETEEC transaccinHG+( co_funcionesF? G((oper EE%C4#6TEK >KE TLCO TMaF?G((ven_opeY >Z[HG( T\ T]F^G((cuentaF_G((che_venF? TaFb~TCHETccTPPbdTe1FC#)F^G((cuenta Eb<F_ Cf>gRhiUb=XbjVbdCkCB@z 9999,999,999_=CC@z 9999,999,999_CE@z 9999,999,999_66CkICRA66lb<mno piWCq br Csbr6tC$TCb<CMu16vbvwb+xbxybyzC%q br h Fb>brCsFC%q >ss T{s  T{br T|F_ >}|~te_procsb=bjbd_WbbbCb6bb|bbbbbxbyRbFCTOOTNOb=TNOb+TNOb<TNObrTNObjF?%M A _ #L TM->SRhiUb=XbjVbd<b<CkCB@z 9999,999,999_=CC@z 9999,999,999_CE@z 9999,999,999_66CkICRA66>inQpiW{KETe}|tC$wb+bvZ[vCibj'>xbxyby%a >Y >i >=T\\bdCCbjiD bji6T]]bdTbdFbF?G % tF-C  8<>WC W WW6FC%D >FE GEF?Fb~TEFE%bdF^G((cuenta Eb<F?TOO TNOCbTNOb+TNOb<TNOTNOTPPb+%M  C  #L TM-><b<UCbXbjVbdCkCB@z 9999,999,999_=CC@z 9999,999,999_CE@z 9999,999,999_66CkICRA66C X>iSRnQtC$pKET2Z[vwb+bvWCC^t\S br6Cibb >%= >Y >i > T\\T]]bdTbd-%brC^t\S FG((numero Ebr T-+C+ Wbr z"%T1 <b< r%SG B j Ta>S!H%  BFb T T T T TFb~TOTRT%bdF^G((cuenta Eb<%C4 .C!Error !!! Cuentas inexistente !!! B ~% T= T=TA%CE\S"CE\S C  z%C\\SVTbdc vCbdb T T T T F^G((cuentaECHu%C4 *.C!Error !!! Cuentas inexistente !!! B %A%CTdFC#)%DTF  TGTFC%D >F GF^ T=TF?%M T r #L TM-V><CHuUDIFERENCIA DE CAMBIOXiVC@z 9999,999,999_AC X>iSRnQtC$pKT4ZNgmCvwCiT >%  >Y >i >!TC@z 9999,999,999_ TT A  T T T  F - T T; T  T T T T% F^G((cuentaEC\u%C4 .C!Error !!! Cuentas inexistente !!! B  %CT FC#)%DTF ( TGTFC%DS >F nGF^ T=TF?%M   #L TM-T><C\uUDIF.DE CAMBIO NO COBRADAXiVcC@z 9999,999,999_AC X>iSRnQtC$pKT5Z[vwcCi >Tc%i >Y >i >!TC@z 9999,999,999_ TTA$%   ! TF?%M'! #LF T%K"FG((comprob,ERC@z 9999,999,999_RCZ%C4! 6"|C<No se encuentra el recibo provisorio en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico. BT%]|"TC\] T "TF T T TFG((comprobF~  .TA'%/5 5 U)T/& T T T%#/TC5/ c%$/TC5/ cF1%//c& &>SRCCE6@z 9999,999,999_CRA6>iCkC66+/c&EjQB>CS m6tC$vZ[RCCE6@z 9999,999,999_CRA6CZC]%CxCobDOSbL,& >!T/c&5>C C66TTT.C >.C>FG(( referencia ERCZ%C4(@+C+ -RCZSCZ (8%RCZSCZn(>E/%+j('Ti>C/+ 5>C C66 >iH %)CNo se encuentra el comprobante R///CCZC )Debe ser resuelto por el soporte tcnico. B,ge01RCZ . T%/.T/ T T%)/TC5/ c%8*/TC5/ cT&TTF>SRCCE6@z 9999,999,999_CRA6>iCkC66+/c&EjQB>CS m6tC$vZ[RCCE6@z 9999,999,999_CRA6CZC]5>C C66%CxCobDOSbL, >!T/c&.C >.C>FG((comprob ERCZ%C4->/%+-'Ti>C/+ 5>C C66 .CNo se encuentra el comprobante R///CCZC )Debe ser resuelto por el soporte tcnico. B,ge01RCZT.%CT1 T T%C/!TC c%{/!TC cF>SRCCE6@z 9999,999,999_CRA6>i+cEjCCE6@z 9999,999,999_CRA6QBtC$CSm6ivZ[RCCE6@z 9999,999,999_CRA6CZC]%CxCobDOSbLl1 >5>C C66TcTF?%B2G((recibo E3+C+ RSR  Q >2H 2 G((oper EE3+C+ ASR  KE 2H%C+ 3 Ta% 2 3C Error !!! T 3 T-% 4Fy>CC@z 9999,999,999_CE@z 9999,999,999_6CRA6>i %C xCobDOSRecbL3 >% 4 C%5F?G((F@>C@z 9999,999,999_A>i %C xCobDOSRecbL4 >%5F?G((comprob&ERC@z 9999,999,999_A%C45 C%*6F?G((F@>C@z 9999,999,999_A>i %C xCobDOSRecbL5 >%&6F?G((comprob&ERC@z 9999,999,999_A%C4"6 C% < T TFb~TEFE<%bd<F^G((cuenta Eb<%Cctasbanc 6QctasbancFG((cod_cue E^%C4;TTCRCAJ6 CCCE6@z 9999,999,999_9TCCT6Cbdd T%;%8FG((asiento#6TF >FG((asiento E%C4 <8R>#Impuesto a los Dbitos y Crditos. 3FT>lL>izmgTNtC$[vwFT>lb<L>izmgTNtC$[vwF?P><b<UCbXiVcC@z 9999,999,999_L>iSQtC$pKT2Z[vwCi ;%C&< B  TF# ~?FG((ccvfacE##%C4?% < ?T CC#\gF  # %  P?T  T  TF#-## T>T> TT;TTmTTTTT)TC    6T!:%>F" G((ID'%CRCZsucursalid>T#"mT$"F}#(%>}#(&>T%C% %6T&C&&6#-## '##%x? T! T T()(%? T!!%Carchivo_ncnd_aut%@F#Q $\tmp\".dbf%E@ B T*-[ BU+XRECIBOX VLD_RECIBONRECIBOXCONTROL_IMPORTE_VEN_OPERXCONTROL_IMPORTE_CCCLIEXCONTROL_IMPORTE_VEN_OPER_DCXCONTROL_IMPORTE_CCCLIE_DCXCONTROL_IMPORTE_COMPROB_DCXCONTROL_IMPORTE_VEN_OPER_NCXCONTROL_IMPORTE_CCCLIE_NCXCONTROL_IMPORTE_COMPROB_NCXCOMPXCAUS XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAISXCUIT ZARR_TEXTOS XMAXTEXTOSCLIENTESTARJETA COMPROBANTESAUTCAUSACOMPROB TRAER_CLI VE_PEDIDOXARCHIVO_NCND_AUTARCHIVO_NCND_AUTP_LOCALHUBOAUTNCNDAUT NCNDAUTDIFALLP_DIFCBIO_VERSION ACC_NCND_DIFIMPORTEACC_NCND XHAY_NCND_DIFXNCNDXDIF_SEPARADASAPLICADO ACC_APLICADOCCCDDDEEEAAASALDOBBBREGNCNDXERRNCND TE_NCNDAUTSUCFACSUCCUENTADESCRFECHAVEN_OPERVEN_OPEXNUMEROFNINGRESOCONSP_TE_OERACION_VERSIONXNUM_OPERACIONCOB_OPERSYS_OPERACION_FONDOSSYS_M CO_FUNCIONESOPER VOPERACIOREG_1_VOFIRSTDESCVALMAXDESCACCUMRECIBOXCOD_CLICOD_CLITIPODES_VALCAJ_PRONUMERO DIF_VALORAPLICCOEFICXCAMBIO N_ACUMULADO N_COCIENTECUENTASCHEQUESCHE_VENZPAGOS XMAXPAGOCHEPESOSXTIPO NEW_REG_CHECODIGOFEC_RECXFECHAVENCXINGTESCOD_CUENOMBRE XOTRO_CLIFLAGEMISION P_NUMAUTCHENUMINTCHEQUEHOYATRCANMONEDAMONEXTBANCHQNUMCHQPROCLIXNCXSUBNUMSUBNUMCHQ_REGTE_PROCSCLEARINGPUEBLOBANCDEPDIFERIDO PROVEEDORENDOSATERCECHEQUECUITEMISORDUDOSOPEDIDODES_CLIECOD_CENCENTROAGENTEXAGENTECOMISION XCOMISIONREFXREFCAUXCAUMONPASEXMONEDAFEC_COMI FN_COMISIONESUSR PUB_INDEXXTIPOCOBFECHAIPROVISRECPROVP_TE_COB_DESPLNUMRECID FN_SUBTIPOSUBTIPOREG_LOCKREM_VENATRIBUTOREFINTCOM_OPERXENCDEBITADO XDIF_CBIO_NCXCOMENTXCOMENTAXAJ_CC XMAXPAGOOTRMENSAJEMOTIVOOTROS PROVINCIANAJUSTEXNUMFXSUCUXDIFDOCXDIFCBIODIF NAJUSTE_NCXNUMF_NCXSUCU_NCXCAUS_NC P_MULTIMONCHE_TER V_EFECTIVOCCCLIEN_DIASDIASACCCCLV_RECADO ACCDIFCBIOACCDIFNC XAJUS_USSXDCXDC_NCCLC_DIFTMPDIFS DIFCBIOAPLXDIFCDUE CLC_DIF_NCCOMENTARBULTOSOPERACIOCUOCUOTAINGTESFECREFIDUTRANSFXCOBDOS DIFCCCLIE DIFCCCLIE_NC REFERENCIAADELANTOXNEWDIASCANCELFN_CANCGE01XNUMRECXDIASTMPXNO_HUBO_PRINCIPAL TTS_ERRORCCCOB COMENTARIO XCOMENTARIO XCOBDOSRECP_ASIAUT REG_ASIENTOP_IMPUESTO_AL_CHEQUEXASIENTO_IMPCHEXPASECTASBANCABREV XCPBT_IMPCHEQXIMPUESTO_AL_CHEQUE IMPDEBCREDIARIOGASIENTO AS_IMP_CHECONCEPTOUNTIPO2DEBITOCREDITOXCUENTA_IMPDEBCREPOR_QUEPASE SUBCENTROCAMBIOHAY_ERROR_DE_IMPORTESXERRCCVENTCCVFACP_DOSP_CODEMPXSUC_FCENUMFACFCEXMOTIVO XFCE_CREDITOXENTPAISXFECENTXFCE_FEC_SERVPXNUMERORXSUCXOCOC XCLINOMFAC XCLIDOMICILIO DOMICILIO XCLICIUDADCIUDAD XCLICOD_ZIPCOD_ZIPXCLIGLNGLN XCLIPROVINCIA XENTPROVINCIAPRO2XSUCFACSUCURSAL XENTNOMBREXENTGLNXPERASOC_DESDEXPERASOC_HASTAVE_REG_CPBT_ELECTRONICO_FEV1XMSGREG_ASIENTO_NCNDTRSACG  TC  8/TC  C  8 T6%C G C  8 ICNmero de recibo invlido !!! C Ingrese otro nmero.B-FG((recibo E Ta&+C+   % R T-%%    KC Ese recibo ya fue utilizado !!! C Ingrese otro nmero.!H%    B!TC Recibo: CZ#TC PVTA: CZF- C TC4% % NC=El recibo no pertenece a un talonario en este punto de venta. TB- Ba+TC  Talonario: CZ%LC;El talonario se encuentra cerrado, no se puede utilizar !!! TB-% 7RCAEl talonario no se encuentra habilitado, no se puede utilizar !!! TB- BUXRECIBOXMOTIVOXRECNUMXPVP_MULTIRECIBOSMENSAJEXOKVEN_OPERRECIBOCAUSANUMRECAUTXPREGUNTA_RECIBOP_TE_REC_TALONARIO XINFO_TAILREC_TALPVDESDEHASTAXFNDCODIGOCERRADO HABILITADOy4% nTF >   DIFERENCIAS DE CAMBIOcNgmCC$ CZ!C]5>"C# C##66T$$c T%T& CZG((comprob E&%C4>''%'G(( referencia E& T)CO)+C+ & CZ % TH #))+C+ & CZ  >*H jCNo se encuentra en comprobante & en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico.+B-BU,XSUCXNUMEROFXCAUSAXREFXCAUXCUOXFECREFXDCACCCCLCCCLIECOD_CLIXCOD_CLICOMPROBCAUSAFECHAXFECHACOMENTARIMPORTEVENCMOTIVOREFCAUFECREFCUOTACUODES_CLIE XOTRO_CLISUCCOEFICMONEDAXMONEDAHOYIDIDUDIASN_DIASXCONTROL_IMPORTE_CCCLIE_DCXCONTROL_IMPORTE_COMPROB_DCTEMPADELANTO REFERENCIAREGCANCELMENSAJEl4% aTF >   DIF.CBIO.NO COBRADA C$! CZ"C]5>#C$ C$$66T%% T&T' CZG((comprob E'%C4>((%(G(( referencia E' T*CO)+C+ ' CZ ~%v TH #*)+C+ ' CZ  >+H ]CNo se encuentra en comprobante ' en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico.,B-BU-XSUCXNUMEROFXCAUSAXREFXCAUXCUOXFECREFXDC_NCACCCCLCCCLIECOD_CLIXCOD_CLICOMPROBCAUSAFECHAXFECHACOMENTARIMPORTEVENCMOTIVOREFCAUFECREFCUOTACUODES_CLIE XOTRO_CLISUCCOEFICXCAMBIOMONEDAXMONEDAHOYIDIDUDIASN_DIASXCONTROL_IMPORTE_CCCLIE_NCXCONTROL_IMPORTE_COMPROB_NCTEMPADELANTO REFERENCIAREGCANCELMENSAJE 4F% ' E # T->  C C @z 9999,999,999_=C C @z 9999,999,999_C@z 9999,999,999_66C IC RA66C X C$ !"3#$%&'()*+,-).C/%0 >1 >2 >34 >567listados >9>:;><<>=>>?? T@@TAATBBBUCXIMPORTE XPROVINCIAVEN_OPERFIRSTREG_1_VOCUENTAPAGOSDES_VALDESCRCAJ_PROCOMPROBXINGTESNINGRESONRECIBOXNUM_OPERACIONCAUSAREM_VENPEDIDOFECHAXFECHACOD_CLIXCOD_CLIDES_CLIE XOTRO_CLICOD_CENCENTRORECIBOHOYEMISIONAGENTEXAGENTECOMISION XCOMISION VOPERACIOTIPOREFXREFCAUXCAUCOEFICXCAMBIOMONEDAXMONEDAMONEXTIMPORTEMONPASEFEC_COMI FN_COMISIONESXTIPOCOBAPLICFECHAIPROVISRECPROVUSR PUB_INDEXPROVINCIA_LET_A_NUMLISTADOS PROVINCIANUMERONUMINTSUBNUM DIF_VALORVENCRETREF N_ACUMULADO N_COCIENTEXCONTROL_IMPORTE_VEN_OPER 4%Cpagos(FQh1\tmp\CCNNNC  C  C( N N  DNCLCNCCNLLC CLCN N NC LQ\tmp\BU!XPAGOSPAGOSP_LOCALTIPODESCRNUMEROIMPORTEMONEDAABREVCUENTACUEDESCRNUMINTSUBNUMVENCCLEARINGPUEBLODIFERIDO PROVEEDORPESOSBANCDEP PROVINCIAPOSITERCECHEQUECUITEMISORENDOSARETREFBANCHQNUMCHQSUBTIPOREFINTDUDOSO 5 Ta T# co_cobranzasa% T?C(Error al registrar el asiento contable: C BU XRESULTADOXMSG REG_ASIDIA CO_COBRANZAS TTS_ERRORMENSAJE  TCWF T ~HF CHE'CC6 2%C ! F BUXALREAXMSGXAREAPAGOSTIPOVALIDAR_FECHA_COMISIONESVENCXFECHA 4%Ccons 1Qcons THZ  #)%C@T!Las comisiones estn cerradas al CC* !!! BUXMSGXFECHACONSXOKP_CIE_COMISIONESOCIERRESCIERRE_CIE_COMIS8 4!sys_comisiones BUXFECHA XFECHA_VALORFECHA_COMISIONESSYS_COMISIONES4 "TCCC  8@z 99_%C cTC00R-3TCCC  8  @z 99999999_%C "TC00000000R  T BUXRECIBOXPVXNUM   Ta T  co_ventasa% T?C(Error al registrar el asiento contable: C M te_comprobante - reg_asiento() T  T BU XRESULTADOXMSG REG_ASIDIA CO_VENTAS TTS_ERRORMENSAJEUSER_LOG PUB_INDEXXNUMEROFXCAUSAO FTCC+CO6-V%C+ #<T2occvent % $T CC C 6$T CC C 6$T CC C 6<%D #BUXREGCOMPROBANTESXC COMPROBANTESCAUSAARR_REFERENCIAS_NCCOMPROBREFAGENTETRANCCVENTFAC_VENXOC XVENDEDORXTRAN%% !%C?FG((comprobQECC6@z 9999,999,999_CRA6CZF>, ge01  C Z Ba%$%Cc?FG((comprobEACZ(%C4A >c, ge01  C Z Ba%$%Cc?FG((comprobEACZ(%C4A >c, ge01  C Z BaB-UP_TE_RECIBO_CONTROLXCONTROL_IMPORTE_VEN_OPERXCONTROL_IMPORTE_CCCLIECCCLIECOMPROBXCOD_CLINRECIBOXNUM_OPERACIONIMPORTEFN_CANCGE01REFCAUCUOXCONTROL_IMPORTE_VEN_OPER_DCXCONTROL_IMPORTE_CCCLIE_DCXCONTROL_IMPORTE_COMPROB_DCCAUSAXCONTROL_IMPORTE_VEN_OPER_NCXCONTROL_IMPORTE_CCCLIE_NCXCONTROL_IMPORTE_COMPROB_NC comprobantes- lista_moneda: open_files+; actualizar= act_saldod@ registrar3D transaccion[ vld_recibop difccclie difccclie_ncotrosz crear_pagos reg_asientoݾvalidar_comisionesҿvalidar_fecha_comisiones fn_comisiones( fmt_reciboreg_asiento_ncnddatos_primera_factura=hay_error_de_importes1bAA!AAABA3"qAAAA21CSQQQx2qA1qA1qA1u12A1r1aB1bA2B1B12A12A1B1A3 JA2!!t"!RsAAA1B12AA12A1B1A5AssArQ21rrq1RAAAA11AB21!AAABBB1B12A12A1B1A2qAAFAR1AA1B12A12A1B1A3quR11AD21AARB1B12A12A1B1A3vC AsBBq1AA1AAA11A1AA!R2BC1B12A12A1B1A21B12A12A1B1A2AAs"!AbqArRu2qQA21AA!Arb"4A!b!AABBBCAA1B1!A1A1AAAB1B12A12A1B1AABqAAqAAbqAAbqAABAAB5qAA!AAA43s A/BQq 2AAAAAAAAAAAbqa!AAAArBBQ4qAq2AAA3AAAAAArA!AB2vqqDUAD2ACA25r12AbqArqAArLbb1AAABAA2raaAAA1r"6E2A!Hb1AA1rAqAAraAaAAAsA!AA1A2trAATaBAAAq!A1BqAQAAAAAAAAABvqaAA2Rb . Ba YAA22AAA1qA211A11AAbB2BAA31UAAs1rqAAxqAAt3!"BttA2QAQAD21AJrABrxQ5BbsRARrrA2qaRABAaBrwrrqBrQr q qqArAs$ stQAqt2AABsArbqqBr2BsrqarrAQA2AABt!AAAAAAAABqAqqbq2AaAAAAArAtQ4Bw1ArrQAa2AAtBBrtQ4Au1ArrQAA22AAAADArAAr2rAAB2Asrrq1A1ArQ`ARARr12qQABAAAbF1A1ArQPRArA2qQAABBA1A1ArQ@qAQsSEs12AA2AABbBA0rQAAB4qarQAraAAB3qarQAraAAB5rqarAAqA22qQrsQA%AtQ`rQ`1sQBBABBArq1q"s12qrAAr1A2AA2AACBAqAA2AB2abqAuqaAQAAAAAA1r1qrAAbqA2!qA5rQ0R3q11AAAAAAqAAA2rQ0Rq11AAAAAAqAAA2rQA1ArB2qbqAAB21AA2raqA"AAA2bAr1qAA22q""A2"!A2B3rrr!"AAAAqBBAA25rrarBBsBrArBBrBrArBBBr1;Ndd$f;f}hhoo0w.Fw( @?;RV;C TCJ zJhQ zQ\X`tXo[[s\\]^S_m__ `]a za=c _c$f:$FfnZ%>alc X}'4 AG(9 K  ve_comienzo5  T T T-"T\tmp\CC]R ve_pedido%Cepresup Qepresup%Cdpresup +Qdpresup%Cte_anu YQte_anu CTT T%CxfisicabN T&%CxtipocomprobantebN T T lZTCV=Cc*CdCr-6666TC X%CxcenbN T%CxletbCTA%CxnumbN T+ah T T TT  T! T  T<" " J(" T# T$ T% T&-% #ve_anular_comprobante-1((   T(%(` T) T* T+@,ve_anular_comprobante)*+%) T) T*! T-Hj VT-FC r$T-RE dGT-ND cjT-NCT.N%+Y F/G((codcli EF1%$ #$'TCC122/36% /#ve_anular_comprobante-2(( F T(H[ (| C4B (H F T L TH{ F T C9 T DZ T R{ T. (T.S (T.ST 15%.SU T6aF1%$P #$ T 5 T!7T 89:C5 e T6- T5?TCC;R00000000 C; <6 T;F=G((tccvord E1?%C4 T1?F1CAnular@%6J  !El remito pertenece a la factura C &Para anularlo, debe anular la factura.C  Presione para continuar. BFG((ccvfac E %C4q TCO T T TT T#+C+    I%C 0TTTH%m T  T T T TFG((ven_facG-( E %C4 TCO T!#+C+    +T "S #   T%C TTH%! T  TFG-( T$ T% T&a T' T(-% T)a*co_aut)C$%)  B B%r_F,G((comprob T.+.[T/C.GE/ G %C4/ T'CO T%++C+ / -  T%%0HG(( referenciaGE/ ++C+ / 23 #%/ -   T(a!HG G((comprob F T$T..%(% U %El comprobante tiene imputaciones !!!C No se lo puede anular !!! B T4% D1T44 Duplicacin en ventas o ccvent.  %,T44No hay registro en ccvent. %,T44No hay registro en ventas. %$,T44No hay registro en ccclie. )%  T44Diferencia : ventas.tot_ven=CC@z 999,999,999.99_, ccvent.tot_ven=CC@z 999,999,999.99_ %r )%$ % }T44Diferencia : ccvent.deuda=CC@z 999,999,999.99_, ccclie.importe=CC%@z 999,999,999.99_  T5 T.+. T55C. T..%C4V Z6 ANUENVI.PRGProblemas al anular.7   del Cliente 54F #% %C9 8 B T)a%: *co_aut)9%) B BU;XPARCIALXSELAUTERRFECCCVCCVDEUCCVTOT REG_CCVENTXCAUSACCVENTREMITOXCOMPROBCAUSAXSILENTMENSAJEFAC_VENCCVFACTOT_VENDEUDAXIMPORTEXPEDIDOPEDIDOACCFN_DUPLCOD_CLIMAXDUPLDUPLVENAVENTAS REG_VENTASVENTASVEN_FACCOD_INSBIENESOLDMAX ATRIBUTOSATRCCCACCCLIEXREF REG_CCCLIE XREFERENCED XRESULTADO_EJSELECCIONAR_EJERCICIOCO_AUTCCCLIECOMPROBZXCOD_CLIIMPORTE REFERENCIAREFCAUXNOTASXCLIREPORTEXTT FECHA_VALIDAFEC_VENP_ASIAUTF%F # T TT C#+C+   %C % % rFG((tccvord%  E >>%wF!>C  FFH!qiva_ven % %-zF~ vFG((remito E >-F >%C r {%m (iFG((remitoEC ! >-F>""C !FG((factura E %C4= >%C e w% rFG((remito E %C4 >%C BU#CCVENT REG_CCVENTXFECHAFEC_VENXASIDIAASIDIAXIDFAC_VENCAUSACOD_CLIXCOMPROBXCAUSAFN_DUPLXPEDIDOTCCVENTTCCVORDPEDIDO FACTURADODEUDAFCEST_DESPSTOCKCREDITOREABRIR_PEDIDOIVA_VENCOMPROB XFC_DE_REREMXFACFACTURAREMITOINXMAX_ARR_REM_FACZ ARR_REM_FACSALDORmF- %C4b!Tout\CCVA.outERASE &temp BUBATCHXCOMPROBFAC_VENXCAUSACAUSATEMPARCH%BUP_DESLIN 4%CxcausabC5T =TCCC$CC C$C6/TCC C6)TCCC6Q%C r  C C C$C &Ba % PC La fecha debe estar en el rango C* y CC$C * !!! B-U XFECHAXCAUSAXDFOCIERRES CIERRE_VENCIE CIERRE_VENDES CIERRE_STKCIESYS_CIERRE_BALANCEXSILENTMENSAJE CIERRE_VENHAS 5%#BFG((asiento E%C4+C+  |HFG((asiento E%C4BUOKAAAXASIDIADIARIOGASIENTOINCONCEPTOJ T$trsac T BUAAAEND_TRANTRSACTRAN_PRGTRAN_TXTXCOMPROBXCAUSATTS_ID T$trsacWtrsacstockstkxdeptccventtventasccventventascccliecompromicomprommovstockremxfacdespachonumfaccliauxdiariogconceptove_transbatchconveritm_desciva_venensambleiibbprovven_operte_anu%% 2 %No se pudo iniciar la transaccin !!!B-BaU AAABEG_TRANTRSACTRAN_PRGTRAN_TXTXCOMPROBXCAUSALOCK_GXSILENTMENSAJEv%F~FG((comprobGEG ++C+   HF G((remito E FG((comprobE  rCZ%C4 F>   r   C$    C$  rCZC] T < HoventasC"Q#CC$"6Q%  $% C  &T' C C T' F >'% (F)G((tccvord E (F)>++ %),+>,-./CC (0 F k T1+12TC13FG((comprobGEG ++C+    T4CO[#5listados789G((comprob #4HT11%rB$% ( ), gFG((comprobG,E)C)(@z 9999,999,999_PG %C4 E c>:: BU; XFC_DE_REREMXFACFACTURAXCOMPROBCCCLIECOMPROBXCOD_CLIXCAUSACOD_CLICAUSACCVENTREMITOREM_VENFECHAFEC_VENCOMENTARIMPORTEDEUDABULTOSOPERACIOVENCCONDLISTAFECREFSUCMONEDAHOYAPROBIDIDUUSRXREMARR_REMSUMTOT_VENORIGINALCANTFACTSALDOVENTAS XDEUDA_REMITOPEDIDOTCCVENTTCCVORD FACTURADOEST_DESPSTOCKCREDITO UPDATE_DTREABRIR_PEDIDOZMAXDUPLDUPLREGCC_CLILISTADOSREFCAUCUOADELANTO= 4TXX18.PRGTAnulacin (Lgica)"%C xfechalogicabDn T T%CC CB%C%C- C CBT CXT A T  T  T T TFy>0 ANULADA ANULADAC$a%r > > C Ta%2BUXCOMPROBXCAUSATRAN_PRGTRAN_TXTXFECHA XFECHALOGICABUSCA_Y_VALIDA FN_SALIDACOM_TRANFIN_TRANCENTROCLETRACSUCCCFACTCCREMICCCREDCCDEBICCVENTCOD_CLIDES_CLIEFEC_VENCOD_CENFAC_VENCUITCAUSAHOYAPLICASIDIAREM_VENFEC_ENTXANUL%(+a$FG((ven_fac E%C4 T! TCOTT rC Z T  T  FG((cpbtitm E%C4>> #  # > >r >G((remitoEK  V   V   ( # >FG((peditmECZC Z/%CZC ZCZC Z > FG((tccvord EF% ##+C+  %FG((peditmECZC Z %C+    [% ">%rW>  XX18.PRG.7Error al actualizar PD desde una anulacin de FC/NC/ND.PD : CC@z 999,999,999_ Cpbt :  F! G((IDEC Z%C4B%#F$ G((IDEC#ZC%Z%C4>&&F >''[HBU( XFC_DE_REVENTASVEN_FACXCOMPROBXCAUSA XREG_REMITO XRECEPCION RECEPCIONXREMITMREM_VENITMXREMITOXITMCPBTITMCANTFACTINFAC_VENCAUSAFCDEREREMITOAAATVENTASPEDITMPEDIDO FACTURADOTCCVENTTCCVORDXPEDIDO REG_VENTASNOSTKRECEP2CCVENTREPORTEITM_DESCIDPRESUPDPRESUP PRESUPITMUSADOCOD_CLI%B%C borrar_mov=FQFG((comprobTC](\tmp\FQ\tmp\<FE )+C+    ^(F_FHF#) ~b T  T a proc_stkc  C$8%W% S%5T T  T ~proc_stkcP CC@z 999,999,999_C$3 O%A T  T a proc_stkcPC$7 KF%C borrar_movFQBU XFC_DE_RE BORRAR_MOVMOVSTOCKCOMPROB XBORRAR_MOVP_LOCALAAAACCVENTFAC_VENCAUSANUMEROSTK_ERRSTK_TST REG_STOCKPROC_STKCODIGOBULATRDEPOSITOCANTIDADITEMDESPACHOXPEDIDOTCCVENTEST_DESPXIDID ACT_STOCKN4 T3ve_cancelar_pedidoaaBUXPEDIDOXMSG PROCESAR_PDVE_CANCELAR_PEDIDOt4%F%raG((remitoGGF EG GF G((ccvfacGGF EG GF%C4 2%rG(C=C= D% $G(C=C=  @G(C=C=%rG((remitoGGF EG GF G((ccvfacGGF EG GF H%r%T C   6 ( T  G( ,%C 0CCfANULADA % d.El comprobante ya ha sido anulado lgicamente,C no se puede volver a anular !!!B- T  %R:%6 T  n%j T %r5 Fecha del Remito :  : Fecha del Comprobante :  %C  i% ^2%La fecha del comprobante no es validaB-BU XPREGUNTACCVENTXCAUSAREMITOXCOMPROBCCVFACREM_VENP_FCNCNDFAC_VENCAUSAXFECHAFEC_ENTFEC_VENCOD_CLIDES_CLIEXSILENTMENSAJE OLDFECENT OLDFECVENGUI_GET FECHA_VALIDAeFFFFBUCLIAUXFORCOMPROBCAUSAXCOMPROBXCAUSAENSAMBLEITM_DESC%4FG((tra_numBUXTRANVE_TRANSTRA_NUM@4%V$FG((ven_fac E T-#+C+  %CCRg Ta!H!%CCRg yoventasccventC Q Q    T (<DoccventC  6QC % )T C C Ba  B- 5B-BUXCOMPROBXCAUSAXREMITO XTIENE_REMITOVENTASVEN_FACFAC_VENCAUSAREM_VENTOT_VENTOT_REMFTOT_REMCCVENT ARR_REM_FACXMAX_ARR_REM_FACZARR_PROPDEUDA PROPORCION# T T%i%%Cs- ]TPNo tiene permiso para anular fsicamente Facturas, Notas de Credito y Dbito !!! TB- e%C~- aAT4No tiene permiso para anular fsicamente remitos !!! TB- %%C.- ]TPNo tiene permiso para anular lgicamente Facturas, Notas de Credito y Dbito !!! TB- %C- AT4No tiene permiso para anular lgicamente remitos !!! TB-F #% :'% C-  }%C;El comprobante pertenece a un punto de venta ELECTRONICO!!!C !Est seguro que quiere anularlo? STFNo se puede anular un comprobante de un punto de venta electrnico !!! T B- 6STFNo se puede anular un comprobante de un punto de venta electrnico !!! T B-%*%   C >T1No se puede anular un comprobante transferido !!! TB- %D%R@.T!Letra invlida para el remito !!! TB- %ABCZE 3T&Letra invlida para el comprobante !!! TB-@TCC0QCCZR-CC0QCCZRH )TV JTc kTd Tr 2(TComprobante inexistente !!! TB- 08T+El nmero de comprobante no puede ser 0 !!! T B->TC00CCZR-C00000000CCZRH TF TL THs V TFC r-TRE dPTND csTNCFG((ccvfacGGF EG GF%C4 9%C0CCfANULADA  L X KT>El comprobante ya ha sido anulado, no se puede volver a anular T B-%C PTCEl comprobante es anterior al cierre de balance, no se puede anular T B-F%Q OTBEl comprobante ya esta consolidado en el stock, no se puede anular TB-#%C   (% C-  F s }%C;El comprobante pertenece a un punto de venta ELECTRONICO!!!C !Est seguro que quiere anularlo? o >T1No se puede anular un comprobante electrnico !!! TB-  >T1No se puede anular un comprobante electrnico !!! TB-% d !Cmotivoscodigo7% C  AT4El comprobante debe anularse por nota de crdito !!! TB-%rm F G((remito E+C+ " i %#"a =T0El remito est facturado, no se puede anular !!! TB-HF T$ T% T&T' T( T) T* T+ T, T--FG((ccvfacGGF EG GF%C4_9%C0CCfANULADA  L KT>El comprobante ya ha sido anulado, no se puede volver a anular TB-%C[PTCEl comprobante es anterior al cierre de balance, no se puede anular TB-TC.%H 3T&Tiene imputaciones, no se puede anular %7T*Error o fecha invlida, no se puede anular g/T"No se puede anular porque es FC-RE TAlgn otro error 'TProblemas con el ejercicioTB-BaU/XERRXMSGSE_PUEDEXFISICA XTIPO_CPBTXPVXNUMXLETACCESONUMFACFCEP_DEV MENSAJE_SINOP_DOSP_CODEMP SYS_DOSCENXCOMPROBXCAUSAXTTCCVENTCCVFACCOD_CLIDES_CLIEFEC_VENSYS_CIERRE_BALANCESTK_CONSFCE_CAEP_NCND_VERSIONMOTIVOMOTIVOSTIPONCND_SUBVENTASREMITOREM_VENFAC_VENXCOD_CLIXNOMBREXIMPORTEXFECHAXASIDIAXIDXPEDIDO REG_CCVENT REG_VENTASXCANCELFN_BUSCAF~2T!Anulacin Comprobante de Venta - Ote_procs     BUVEN_OPERCOMPROBCAUSAXCOMPROBXCAUSAXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXTFECHA fn_salidafn_filesfn_dupl+fn_busca anula_ccvent! anula_batch' anula_nc_adic' fecha_valida' anula_asidia *fin_tran+com_tran+ anula_ccclie .an_logc5 anula_ventas8anula_movstock?reabrir_pedidoCbusca_y_validaD anula_cliauxXIanula_ve_transJes_factura_de_remitosOJvalidar_anulacionNManula_ven_oper_`qAb%B1A1A!A21AbAAAA1r1A23AAAAAAA1rr1qA1A1A1AAAAAAAAB11ABr1ArBt2rb1A$AABACBrAAr$A!ArBAAACrBrq2BAABABAB3!!B2rrrrrQrrB2qqAqAAq2BqAAAs1S1ADA2AAr1R1ABAqAAra2AABrA"baAA5a1AAAAbAABRAA1A1A1AAABAAAARAr2ABAA2q1r2A2CsaAbrBBBrABrABrArrAB4rrtAABBBEBqBAAACA3qAAA2DA4ArAAq2BAArAAArAA4A3Aq2!AqAq2uAsaaBBAtqqQ aArBbBrfssAbBCrAA!vbaCA5BAAEAABrbaAAABB2R#1AcAA"AAtQBABBA2sBArQBsrAABtr112rA2ArA AArAAcqqAABtBAAAABBB2AAqAArrr1qQrAAA{Q2ccuaBAABrAqAAB2q1F2quAaaaaaaaaAEDAAFaaaaaaaaABQAbAAqAABAAABQAAR!AsAB2qararqaB3qrB2uAr1AAAArB"BBrrAqAD3122RqARqAA2RqARqAAAr"q1qA1qBA2q1AqA1qAA1111qAIqA11AAAAAAraaaaqABqArqA2qAqAAqqAACB~1qAAACr1raaaaqAAqAA2111q111qAqAs2rA$BB1 ,,!,-)-a.Cv.@O@JEJKKL,LqO.OTDTIU[I^U5YeUNY-k@koto*׀d9M ihѕ– -ȝʸT* %jX`kYkYv TC G+( sys_doscen C T T T T T T  T  T  T %C WFG((codinsFG((ven_facG-(FG((codcliFG((asidiaG-( T0TCval(substr(ccvent.fac_ven,2,2))rset filt to alltrim(cod_cli+fac_ven+causa)#''.and.causa#'r'.and. !(p_dos#0 .and. p_dos#p_codemp .and. &xfildc) T#)+C+ SCVENTASCFH C C BU!XIN_TRANXORIGEN SYS_DOSCENUSE_VENXIVA_VENXIVA_COMXIVA26XDTO672XIMPINTXDES_COMXREDONXNOCAT XPERCEPIVAASG_VENBIENESCODINSVENTASVEN_FACCOD_INSCLIENTESCODCLICCVENTASIDIAFAC_VENCAUSAXFILDCDC_OBTENER_INLISTXDIADIAFEC_VEN REG_ASIDIA UNUSE_VEN UNLOCK_ALL,F E%C4 C X = T-%%U E%C4 C X T- E%C4 C X T-%^ E %C4  C X  T- E %C4  C X Z T--%  S  S Q*% S  TG((cuenta TG((abrev E%C4 C X > T-G((cuenta% TC  CVFCCdNDNC66  (Artculo mal definido (cuentas) (VENTAS) T  Ta BUCUENTASBIENESCOD_CUEXOKP_CO_CONFIG_VENTAS P_CUEXARTVEN_CUEDES_CUEP_CO_VENTAS_EXTERIORVEN_CUEXDES_CUEXP_IMPORT IMPORTADOLOTESXCUE_IMPCUEXARTP_CM_IMP_CUENTASIMP_CUECUENTACONSIMP_IMPOABREVMSGCCVENTCOD_CLICAUSAFAC_VENXERR%Cxcod_probC-TCX%CxnumerobN[ T%CxsubnumbN TF E%C4  >f>C Ve/C cfC dg666 T :%C :<=     aT (CC=f C00000CC ZR-C00000000CC ZR) I>C=C00000CC\R-CRF&%  % Tc T % Tc TTr>L  !CCCP6"CC6C#0  $%S $"&6'"6(CC $#6)A*C$+,- ./01122345678T991T::CC1/6 TBU;XCOD_PROXNUMEROXSUBNUMCONCEPTONEWASIASIENTOUNCCVENTTIPO2CAUSAXNOTAFCE_TIPOLP_SUCLP_NUMFAC_VENCOMP_EXPDIARIOGXOKXDEBXCREXPASEDEBITOCREDITOCOD_CUEXCUEPOR_QUECOMPROBCAUCOD_CENXCENPASEFECHAFEC_VENPROCLINOMBRECOD_CLICLIENTESTARJETADES_CLIEPROVEEDOCODIGOTIPOHOY SUBCENTROXSUB COMENTARIOXCOMENTCAMBIOCOEFICMONEDAUSRLINEAXLINGRUPOXGRUNUMEROSUBNUMACCACCMEFG((codcli E%C4y%CXuF E%C4 qB- B-FG((cuenta EBC4UCLIENTESCODCLICCVENTCOD_CLI UNEGOCIOSCUENTASCUENTACUE_DEU% 4%C& T Ta% v%CCgT T-TC  CVFCCdNDNC66  DEl IVA Dbito Fiscal debe estar asignado a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas rT C% #%CC g  T-TC  CVFCCdNDNC66  EEl IVA Crdito Fiscal debe estar asignado a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas T C % #%CCpg T Cp% l%CCmgJ T-TC  CVFCCdNDNC66  HLos Impuestos Internos deben estar asignados a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas hT Cm% %CC2g T-TC  CVFCCdNDNC66  ?Los Redondeos deben estar asignados a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas TC2% %CCyg T-TC  CVFCCdNDNC66  REl IVA a Clientes No Categorizados debe estar asignado a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas TCy%  m H2i  CCg; T-TC  CVFCCdNDNC66  LLa percepcin de IVA RG 5329 debe estar asignada a una nica cuenta (VENTAS)1 co_ventas.PRGCuentas& CCg K T-TC  CVFCCdNDNC66  ILa percepcin de IVA RG 5329 debe estar asignada a alguna cuenta (VENTAS)1 co_ventas.PRGCuentas 2i TC %- TCW%Ccfg01 Q\cfg01% F#) T+C+ \ FG((cuenta E%C4 C X < !TFH% T-JT=Est mal la configuracin contable de los Artculos de Venta.1 co_ventas.PRGCuentas F   BUXIMPOKATRCANMSGCCVENTCOD_CLICAUSAFAC_VENREPOXIVA_VENP_IVASEPXIVA_COMXDTO672XIMPINTXREDONXNOCATCONS HAYPER_IVA XPERCEPIVAAREAP_SERVER P_CUEXARTCFG01ZZZCUENTASCUENTA%Cccvent 4Qccventccvfac%Cventas mQventasven_fac%Cbienes Qbienescodins%Ccfg01 Q\cfg01%Cbultos Qbultos%Catributo 9Qatributo%Cstock eQstock%Csucursal QsucursalBU CCVENTCCVFACVENTASVEN_FACBIENESCODINSP_SERVERBULTOSATRIBUTOSTOCKSUCURSALI%Cccvent*FG(G-(%CventasXFG(G-(%CbienesFG(G-(%Ccfg01FG(G-(%CbultosFG(G-(%CatributoFG(G-(%Cstock>FG(G-(BUCCVENTVENTASBIENESCFG01BULTOSATRIBUTOSTOCK5 T-FG((comprob E%C4++C+   "% C TaH BU AUXDIARIOGCOMPROBXCOMPROBXCAUSACAUCODIGOCCVENTCOD_CLIPROCLI4BCUFECHASYS_CIERRE_BALANCE T+ T+#%CC#%CC#%CC%-TCCT #%CC#%CC-TCCTTTBUZIVIVMAXWIVYIVMAXYIVIVP_CO_POR_LINEAYTd d d d d Td T  d T  d T T C TT  T C TT  T C TT  T C TT  #CC6CCC#TC6TTTBUXD_COMCCVENTDESC1DESC2DESC3DESC4DESC5XD_ESP1DESC1EXD_ESP2DESC2EXD_ESP3DESC3EACCVENTASTOT_VENXD_COMPXD_ESP1PXD_ESP2PXD_ESP3P APLICAR_DESCXDEP_DESLIN_NUEVOXDES_LINXDE1XDE2XDE3AXD_COMP AXD_ESP1P AXD_ESP2P AXD_ESP3Pb 4F%)B T+%A%CC C %TC! mg%CC C C  C  i%TC!T%WTTTTT%ST T BU XDEXTOT_VENVENTASZIVYIVMAXP_CO_POR_LINEAYIVXCEXSCXLIXGRS3TC6HDH( CCCCCDC~C ( CCCCCDCC ( CCCCCDCC ( CCCCCDC,C 2HC BU XDIF_CON_REALCCVENTDES_COMP_DESLIN_NUEVOXDES_LINAXD_COMP AXD_ESP1P AXD_ESP2P AXD_ESP3P APLICAR_DESCXDEXDE1XDE2XDE3E'4TC %Cc Ta T- T  T T T T  T  T  T  T  TTC TC 3%Cxtmp_ve_cobranza_inicializadobLJ T-G+( ve_pedido5T%CnewasibN T T-G+(co_aut%Citm_desc Qitm_desc%Cbienes QbienesFG((codinsFG((ven_facG-(FG((codcli Ta T T T T!T" <#$#2 T$ <%&%2 T&FG-('(%(rb>) 0'$%* + >) ,' TaT,C-!%CCLIENTES+, ~ T-TC.  C(VFCC(dNDNC66 '. Cliente inexistente o mal su cuenta. (VENTAS) &$%/ 0 5 T-~TC.  C(VFCC(dNDNC66 ' Tipo de cambio en 0. (VENTAS) &%Csucprop kQsucprop4%Cccvent.sucpropiabN 2 %132!C2sucpropcodigo%132zTC.  C(VFCC(dNDNC66 ' Sucursal propia invlida. T-%4 2T5Ccfg_ventas_baseco_funciones.prg%C5TC.  C(VFCC(dNDNC66 '4 No se pudo obtener la configuracin de ventas base. T-+% 2 16 %C1657 |TC.  C(VFCC(dNDNC66 'E No se pudo obtener la configuracin de ventas de la sucursal propia. T-%FT8'( T9. T$ T& T:F E8 T;CO TC4 T< T= T> T? T@ TA TB TCC articulosDG+( co_funciones&+C+ 8'( %.9%FG %CBIENES+ CH zTIC XTJC XTKC XTLC XTMC X%49 eNlistadosIKLMPCCccvent.sucpropiabN 26eNlistadosJKLMPCCccvent.sucpropiabN 26 ~ %CP5Q  TC.  C(VFCC(dNDNC66 '@ No se pudo obtener la configuracin de ventas para el artculo C T-%z TI5RTJ5STK5TTL5UTM5V>WITTXCCY Y3CCY YCCY YCX666RTZCC[ [1CC[ [CC[ [666(T\C] ]^6T_`F Ta+a$G%bWA%Ca#ICa#X Ca#Z S%T#aCa#*=T#aCa#Cdef0c*! 2g%Ca#ICa#X Ca#Z Ca#\ Ca#_ .%T#aCa#*=T#aCa#Cdef0c*!Taa%a$MT$$T#$IT#$*T#$XT#$Z1T#$Cdef0c*%bIT#$\T#$_)TAACdef0c* %CBIENES+9TC.  C(VFCC(dNDNC66 ' No existe el artculo C en la tabla de artculos. TC.  C(VFCC(dNDNC66 ' El artculo C% no tiene bien definidas sus cuentas. T-! TIWTXgTZ[TJWTKWTLWTMWT\^T_`)TAACdef0c*FhG((cuenta EI%bt-%C\ h^ /T\h^-%C\ h` pT\h`M%Chj\SChjj\S Chjm\S T::*  CkT::*FH% :* 3%l C:*m t T-TC.  C(VFCC(dNDNC66 '. El detalle del comprobante difiere del total.'%lC:*m pDC Diferencia en asiento muy alta: CCC:* ZD ~%& CnTo(Tp'%Crq ~ T-TC.  C(VFCC(dNDNC66 p Fecha: Cr*' anterior al cierre de balance (VENTAS)%Crs C T-TC.  C(VFCC(dNDNC66 p Fecha: Cr*) no pertenece a ningn ejercicio (VENTAS)%Ct  T-TC.  C(VFCC(dNDNC66 p & Comprobante ya registrado en asiento CCuZ (VENTAS)%: &!Cregistro del asientoDFDTvC(VFCC(dNDNC66 C' Tw T Tx% TyCWFzG((asiento%D E%C4)#6Tu @ T #6Tu%TF{G((asiento E%C4  >u Fy TCr|%&5} T} T~ TF #;&+C+ 8'( %.9%FGd%Chj\SChjj\S Chjm\S Chjp\S  TWTg%h'TCCg gY6T[TB^TC` T2TCCdef0c*6Tv1C'(CZitm_descidTTT%C %Cproveedo QproveedoCproveedocodpro CuTCX T TFH Tv C Ta+a$4TCa#TCa#TCa# T/TCa#CCa#6%bTBCa#TCCa#  TB TC CuTaa Ta+a&:TCa%TCa%TCa%TCa%%bTBCa%TCCa%  TB TC T CuTaa TB TC$TC YCX6 TTC % T TT  TTc T CuTC TC T TT%CCpg T- ""5< J(" ve_pedido'(("%C"< PocuentashWChjp\S  <% ! T- "TC T0TC(c6C CuTC T TT CuTC T TT CuTC T TT Cu% Q#TT+ T Cu $%Cven_oper #Qven_operFG((comprobE.'(=+C+ *.(.'( $TiT T Cuq>CC Cupn:C6CC /CC  6Ctas:CCZ6FH%~N%TC T %~% T T~ @%T~c T Cu%$& CF >) T co_asientos% &C T T-6T)El asiento no se genera correctamente !!! .&% &=trsac} Co_ventasAsientos Automticos T & T- TF%  '3 co_ventas.PRG' ( T CBUXOKXDESDE_OPERACIONMSGXASIENTO_SUGERIDO XNO_ASIENTOXORIGEN_ASIENTOXIVA_VENXIVA_COMXIVA26XDTO672XIMPINTXDES_COMXREDONXNOCAT XPERCEPIVAXTMP_VE_COBRANZA_INICIALIZADO VE_PEDIDOXFACTURA_CONTADO_SIN_CCCCVENTNO_CCNEWASIPREGUNTOCO_AUTITM_DESCBIENESCODINSVENTASVEN_FACCOD_INSCLIENTESCODCLIXASIDXASIHXFECDXFECHIVIVMAXYIVYIVMAXFAC_VENCAUSAASIDIATOT_VENDEUDAXVLDCLIVLD_CLICOD_CLIMONEDACOEFICSUCPROP SUCPROPIACODIGOP_CO_CONFIG_VENTAS OCFG_VENTAS CFG_VENTAS CONFIGURARXCXCLACCVENREGXERRAXD_COMP AXD_ESP1P AXD_ESP2P AXD_ESP3PXDES_LINXLINXGRUSYS_M CO_FUNCIONESOBIEDATA_CODIGO_VACIO VLDCODVENXCUXDEXDE1XDE2XDE3VEN_CUELISTADOSPAISCONFIGURAR_ARTICULO CUENTA_VENTASCUENTA_DESCUENTOSCUENTA_DESCUENTOS1CUENTA_DESCUENTOS2CUENTA_DESCUENTOS3COD_CUEXCECOD_CENXSC SUBCENTROXLI MASTERLINLINEAXGRGRUPOZIVP_CO_POR_LINEACALCULO_TOTAL_PS RECEPCIONCOS_LIFOCOEFCENTROCUENTASCUENTAATRIBUTO DESCUENTOSP_CO_ASI_AUT_CTRLP_CO_ASI_AUT_CTRL_DIF DIFERENCIAXCAUSAXCOMPROB FECHA_VALIDAFEC_VEN EJ_ACTUAL HAY_ASIENTOASIENTOXCOMENTXPASEXIMPORT XAREA_ASIDIARIOGCONCEPTO NUEVO_ASIENTOAAAACCACCMEXCUEXCENP_VE_CENTRO_DE_COSTOSXSUBXDEBXCREP_DESLIN_NUEVODESC_INSITMXCOD_PROCOD_PROXNUMEROCHQNUMXSUBNUMCHQSUBPROVEEDOUNIFICAR_CUENTASASG_VENIVA_VENDTO672ATRCAN IIBB_PROVTRAER_IIBBPROVZ XARR_IIBBAUXNIMPINTRECARGOPRG5329CUE_DEUVEN_OPERCOMPROBCAJ_PRO COMENTARIOREFSUBNUMAJUSTE_CONVERSIONXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROREND_TRANTRSACTTS_IDREPOXMSG UNLOCK_ALL vldcodvenasientovld_cliasg_venuse_ven unuse_ven hay_asiento$ fecha_valida3 unificar_cuentasn descuentos" aplicar_desc% diferenciam( reg_asidiaR*2BtrrrAr"4RrerAABA7rA2AA2AABsAABBAA8AAAtQAdrAra11AAQp!TBA7rqqAAqAr<q,A AAA1 AAA BAA AAAB AAAr AAA b BBArAqQqAAqAA1AAB8AAArA!AAArAAAI7rqaaArqaaArqaaAbqaaArqaaAqaaAbqaaAB7qq!AAAA7q8AA211221AADBAAAAC22!!!2B3~2AAA1QAAuRAAAA12ABB31!!!!!AB3;#A326A2t AAA!Arrr1111w1rAB1ACAAA"B AR BBBtqebb12RQ BBBA"~A1QBAuRAAAA11AAq AAAFr2AAABBABrAAB2rAABBs At A~ BrBr2QAQ2ABrQAAArta1F2qA!"AAACAAqAAARQQ2QQAAARQQQ1QQAAAbArr1"r "ABACAArrAAB41AAsr1aABAABBBBr4EBAB1) 3 I[G x/ 0X3 n36>>68qM89P9[<kr<??CCFFʛ-$%_ËX%T   T%-%Cmotivos mQmotivos< #omotivos % ) ( ATCC and !inlist(motivo, , 6CCC ZT)% ]T BA<CPreparando los datos C6 'T C p_numlargosbL G+(listadosG+(dey_funcG+( dey_filtersTPTNT TFQ%c T % T  T% T Td< "\inicialTCFTCqh1\tmp\ N!C"C(#N$N& !!Q+Q\tmp\%gru_codT&C^h1\tmp\&'N (C)D*C+C<& ((Q,Q\tmp\&,cpbt_codT-Cyh1\tmp\-*C)D(C.C/C0C1N2C3C<4C5D6N7N8N9N:N;N<N=L>L?L@D'N ADBMCCDCEN FN GC(HNICJNKCLN MN NC(OCPC(QNRNQ Q\tmp\-STTC=h1\tmp\TUNVC WC<XC(YCZN[C\C(]N^N_N`NaNbNcNdNeNfNgNhC iCxjCxkC2lLmLnNoNpCqC rCsC2tC2uC2& CUZVvQ.Q\tmp\Tw "Cli_Full"TxCCcccliey (xQxz i1ccclie_cLN T{CCccclieyT|CCClientesy (|Q|}%CProvinc Q~\provincT.t. T T T'(C6 TC/CObteniendo datos empresa CZ F%C E  #)C CC Agrupando C TT----- T T T T T T T T==J( Ta T- T T T- T- T T T T T T T T T T TF T ~ T&CAnalizando clientes... F%C  E #)1CProcesando registros... T-+C+ CCX a6 $ C T- C%%>%#$ T T TCF% E%C4 cT!> !"  T# T$ T  T-select &xoldsele  T- T- CFwECZ%C4 A%C!CprovinccodigoTC&TCC C6%C ,TCC, 6C%C .TCC, 6CCf !CprovinccodigoTC&TCC C6%C ,TCC, 6C%C .TCC, 6CCfJ>UVWX[Z]hijYC k^_`abdelmpqC]rCstu k>^^__``bbeell mm  T T T T T TFTH C % w%s>%#$R %CUniendo datos finales %Fw l %Fwl _ %eXotabla_cpbt_headQX tabla_cpbtQ ''+ tabla_cpbt2%0o tabla_cpbtQ) tabla_cpbt2FG((codageFwG-([>\TCo tabla_grupoQX tabla_clienteQ UX tabla_cpbt2Q V*-Q-Q-Q-Q tabla_unionF-(\tmp\rpt_ve_cta_cte_completoQ)CAgrupacin Final de datos 3Q\tmp\rpt_ve_cta_cte_completoTTC XF+C+ '%  >a% H >aH%V >a%C X H >aH T TVH%X H >aH%C X H >aHQFw-(\tmp\rpt_ve_cta_cte_clientesQF%*(\tmp\rpt_ve_cta_cte_grupoQFS)(\tmp\rpt_ve_cta_cte_cpbtQF,.(\tmp\rpt_ve_cta_cte_cpbt_headQFG(G!(CClientesCCCClieCClientesyCCCCliey|.*x.*{.*\tmp\-.*\tmp\&.*\tmp\.*\tmp\T.*BUXDCONP_DOSP_CODEMPXFILTRO_ANUL_TEMPXSIN_ANUL_TEMPMOTIVOSARRCODIGOTIPOZZZXDVENOESTADO SET_AND_SHOW XNUMLARGOS P_NUMLARGOSLISTADOSDEY_FUNC DEY_FILTERSXDPRNXDPEDXDMON XPROX_EMP2XDSEPXTABXTITMAXARRTABLASP_LOCAL XTEMP_FILTRONEWFILE_LOCAL_TMP XTABLA_SEPNEWFILEGRU_IDGRU_CODGRU_DESGRU_SALGRU_CED TABLA_GRUPOXTABLA_CPBT_HEADCPBT_IDCPBT_CODCPBT_FECCPBT_CLI CPBT_ORDERTABLA_CPBT_HEAD XTABLA_CPBTCPBT_NUMCPBT_CTACPBT_LISCPBT_MOTCPBT_SUCCPBT_NOTCPBT_BULCPBT_VENCPBT_CNDCPBT_DSPCPBT_IMPCPBT_PARCPBT_SALCPBT_ADLCPBT_APLCPBT_HEACPBT_VALCPBT_RAYCPBT_CANCPBT_EST CPBT_NOTACPBT_OCCPBT_OTCPBT_PED CPBT_TRAN CPBT_DSUCCPBT_MON CPBT_MONT CPBT_CBIOCPBT_DIVEMPRFCDRFCCENTRODCENTRODEBEHABER TABLA_CPBT XTABLA_CLICLI_IDCLI_CODCLI_NOMCLI_FANCLI_TELCLI_ZONCLI_VENCLI_DVECLI_CATCLI_ANTCLI_TOTCLI_VATCLI_ANT1CLI_TOT1CLI_VAT1CLI_ANT2CLI_TOT2CLI_VAT2CLI_XAPLCLI_INSCLI_DIRCLI_DIR2CLI_EMLCLI_CPBCLI_VALCLI_PODCLI_POPCLI_PROCLI_IDUCLI_TIPCLI_MAIL CLI_CTVEN CLI_CTCOBCLI_FULL TABLA_CLIENTE XTABLA_VCC CHK_OPENEDCCCLIE_C XTABLA_VCC2 XTABLA_VCL CLIENTES_CP_SYSTEMFILTRO XPROX_EMPXTGRU_IDXCPBT_IDNITPREPARA_EMPRESAAVANCECLIENTESXDCLIXHCLI GET_CCCLIE GET_CLIENTESACCXSEPOLD XCED_X_CLI XCED_X_SEP XCED_X_LIS XSAL_X_SEP XSAL_X_LISXTOT_FCXTOT_RCXTOT_OTXTOT_NCXTOT_NDINICIAL XTGRU_NEW XTGRU_COD XTGRU_DES XCLI_HASCPBT XCLI_HASVALXCLI_ANT XCLI_ACCCLI XCLI_VALORES XCLI_ANT1 XCLI_ACCCLI1 XCLI_VALORES1 XCLI_ANT2 XCLI_ACCCLI2 XCLI_VALORES2LINANCHOXTOTCLISUB_SET_AND_SHOWXCURCLICOD_CLI SUB_AVANCEOK SEPARACIONINXOLDSELECUENTA_CORRIENTEDOM2 PROVINCIAXCLIDIR DOMICILIOXCLIDIR2CIUDADCOD_ZIPPROVINCDESCRPRO2CIU2ZIP2NOMBREFANTASIAVENDEDORZONACAT INSCRIPCIOPHONOPHO2EMAILPRO_LINK CONTACVEN CONTACCOBSUB_HIDEXDNOCPBTFOR XDNOCPBTCEROXDTIPTTBTTH TABLA_CPBT2AGENTECODAGEALL XFULLFINALTTGTTCGRU_SHOWCLI_SHOW GRU_SHOWTO CLI_SHOWTO TABLA_UNION TABLA_FINALXOLDGRUXOLDCLI CHK_CLOSED4F+CClientes+ FHA{ ^ C { CHUXEMPCLIENTESCCCLIEXDTIP GET_POR_FECHAGET_POR_COMPROBANTE7.T.T. CCod_CliCliTCFselect cli.*, clc.cod_cli as referencia from clientes cli left outer join clientes_c clc on cli.cod_cli==clc.cod_cli where &xfiltrocli into table (xtmpt) readwrite C QF FQ.*U XFILTROCLIFIL_GET_CLI_FILTERXDCLIXTMPTNEWFILE_LOCAL_TMPFOR REFERENCIA TMP_CLI_T CLIENTES_C_%C3G((porfeccG( mG((porfecp G(  TC%NT.and.causa#'P'%NT.and.causa#'r'% T and causa='r'%C @T set filter to &xfilt U XDTPCPORFECCVENCXDVENPORFECPCANCELXFILTXDPSNXDREM XSOLO_REMITOSXFILTRO_ANUL_TEMP CFG EG +C+  %i> ^JF _J >FHU FILTRO_POR_FECHACCCLIECLIENTESCOD_CLIDIASXOBJCCCLIE_CEMPXEMP CFG EG +C+  %i> ^JF _J >FHCccclie Cccclie U FILTRO_POR_COMPROBANTECCCLIECLIENTESCOD_CLIDIASXOBJCCCLIE_CEMPXEMP CHK_CLOSED CHK_OPENEDI T T T T T T T- T T T -F H  C   C % CC debe y haber T T TF BUSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2ENCABEZO XCED_X_CLI XCLI_VALORESXMOVSCCCLIEXDTIP POR_FECHAPOR_COMPROBANTEXDCHEVALORESSYS_M XCLI_ACCCLI XCLI_ACCCLI1 XCLI_ACCCLI2%I6BCPZA6CCZ sBCPZA6CC ZCCZC ZC AB6U XDTIPCOD_CLICAUSAFECHACOMPROBCUOTAFECREFREFCAUCUO$ CG EG T T T T T T T )+C+   p0TC P C6%$0TC P C6 ^0TC P C6 CH TT sdfsdfsds Ta4+C+      !% CZ_% [T>C6C c6%%  T T T !% CZHr VT!FC r2T!RE R%C XjT!AJ T!RC cT!NC dT!ND LT!AS AT!AJ I6T!IT PYT!PD 2rT!XX T"a ,>#$ %!&'CC@z 999_C(/CC(@z 999_6)C*@z 99_+,-C.@z 999_/012345C467C8 _B869:% RC< >== T>(%0  ?S 8T>>C@ TT>>CA%B%CRUBROFAC QrubrofacFCG((codigo EBF>E>FCG99,999_HCI  JCCKCI  K6BBLCB CM6T CZ T&>NC O% Vcd'C ccventccvfac%PQRQ/ CRQcostoscodigoy>SR<TRUVRWXRYZCR[SSINO6\RQ]PM>^%. -%CC.ZsucursalID >_`a T-0TC P C6 C C,b CH%  Tc>T>C6C c6BUdFILTRO_POR_FECHACLIENTESCOD_CLIXMOVSSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2FECHAXDFECCAUSAXPD_SUMANDO_AL_SALDO FN_IMPORTEIMPORTECCCLIEEMP ACUMULADORESACCIMPXIDINICIALXHFECCOMPROBCUOTA TABLA_CPBTCPBT_IMPCPBT_SALDEBEHABERXCLI_ANT XCLI_ANT1 XCLI_ANT2XC XCLI_HASCPBTCPBT_CLICPBT_FECCPBT_CODCPBT_NUMCPBT_CTAMAXCUOCPBT_LISLISTACPBT_MOTMOTIVOCPBT_SUCSUCCPBT_ADLADELANTOCPBT_CANCANCELCPBT_MONMONEDA CPBT_MONT FN_MONCCC CPBT_CBIOCOEFICCPBT_IDXCPBT_IDINREFCPBT_APLTEMP1TARJETADES_CLIE FN_COMENTARIORFCRUBROFACCODIGOCPBT_NOTCPBT_BULBULTOSCPBT_VENVENCCPBT_ESTFECESTDRFCDESCR CPBT_NOTAFN_NOTACOSTOSCOD_CENCCVENTCPBT_OCCPBT_OTOTCPBT_PEDPEDIDO CPBT_TRANTRANCPBT_DIVDIVCENTRODCENTROP_CODEMP CPBT_DSUCSUCURSALNOMBREACT_TOTTEMPF%CG((porfacc%N%BArG( G( G(C   %BAT  ,occclie  1 QFQ W& CZC CZ CZAZ6 & CPZA6CCZCCZCZC AB6C / / #& CZT TTPge01;G((porfacpG((porfacp G(  TC%S%CCESION F QcesionFG((comprob%  % AAAeG(!  G(! FG-( %CDTC!eof('CESION').and.!eof('CESION')6set filt to &xfilt dTC$cancel={} .and. !eof('CESION')*#.and.cancel={} .and. !eof('CESION')6set filt to &xfilt  TC%"NT.and.causa#'P'%#NT.and.causa#'r'%$LT and causa='r'%C% sT%set filt to &xfilt U&CCCLIEXDTPCPORFACCXDANAXHFECFECHAVENCXDVENFECREFXDFECXXXCLICLIENTESCOD_CLI XTABLA_VCC2REFCAUCUOCOMPROBCAUSACUOTATESTPORFACPCANCELXCOD_CLIXTIPOXDTIPXPENDREPAIRGE01XFILTXDCEDCESIONXDBANBANCOXDPSNXDREM XSOLO_REMITOSXFILTRO_ANUL_TEMP CG EG T T T T T T T  T  T a T a T - T+C+  f,% N %1%C 9  C CH'+C+  C  C CH. %  C CH.  T -% *T Ca-6 C C CCH%C%BAFQCccclie QBU!FILTRO_POR_COMPROBANTECLIENTESCOD_CLIXMOVSSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2XSSALINIINICXCEDIDOOLDXDFECXDANAXDTISES_CABEZA_GRUPOFECHA SUMAR_SALSUMARCALIFIMP_MOVACT_TOTCCCLIECAUSA FN_IMPORTEIMPORTEMOTIVOXDTPC XTABLA_VCC CHK_CLOSEDo T-%C Ta% a%S ] Ta v T- TFTC T  F H>  CZF ( T- T-%PVTCHk VTFC rTRE R%C XTAJ TRC c)TNC dLTND LoTAS ATAJ ITIT PTPD 2TXX Ta > CC@z 999_C/CC@z 999_6C @z 99_!"#C$@z 999_%&'(C')*C+ _B+6 &>-C.%VcdA'Cccventccvfac%/010 C10costoscodigoy>213415617819:C1;SSINO6<10=/>>?@%$-%CC$ZsucursalID>ABC TD(%0  ES TDDCF TDDCG%H%CRUBROFAC ^QrubrofacFIG((codigo EHF TKa>LDMCN99,999_OCP QCCRCP R6HHSCH I>6 TT TUVlistadosUTX TY%C TZ T[\Z[ TYZ  TYT1T]CCP ^6T_CC>`UaYb]cdef_ T-BUg XTCPBT_RAYES_CABEZA_GRUPOPRIMEROINICIALXDRAYINICXSCCCLIEXORDERID GET_ORDERIDXCPBT_IDTABLA_CPBT_HEADCPBT_IDCPBT_CODCOD_CLICOMPROBCAUSACUOTACPBT_CLI CPBT_ORDER FN_IMPORTEIMPORTEXC XCLI_HASCPBT TABLA_CPBTCLIENTESCPBT_FECFECHACPBT_NUMCPBT_CTAMAXCUOCPBT_LISLISTACPBT_MOTMOTIVOCPBT_SUCSUCCPBT_RAYCPBT_MONMONEDA CPBT_MONT FN_MONCCC CPBT_CBIOCOEFICIN CPBT_NOTAFN_NOTACOSTOSCOD_CENCCVENTCPBT_OCREFCPBT_OTOTCPBT_PEDPEDIDO CPBT_TRANTRANCPBT_DIVDIVCENTRODCENTRODESCREMPP_CODEMP CPBT_DSUCSUCURSALNOMBRETEMP1TARJETADES_CLIE FN_COMENTARIORFCRUBROFACCODIGO XHAS_CPBTCPBT_NOTCPBT_BULBULTOSCPBT_VENVENCCPBT_ESTFECESTDRFCDSPCNDCND_DSPLISTADOSOLDXTDSPAAABBBDESPLAZ XTIMPORTEADELANTOXTHEADCPBT_CNDCPBT_DSPCPBT_IMPCPBT_PARCPBT_SALACCCLICPBT_HEA0%CCMgCCMg ; T- P Ta Ta TFG((chequeGGF ECGFG T -%C+ + T a%%CM F G((numero E +C+   $%   T -!HF% % T a T-T Ta >C @z 999,999,999_a  T -H TBUATRCANDOCSINIVALSALCHVEN_OPERCHEQUECLIENTESCOD_CLIXDCHEXTHEADOKCUENTACOM_OPERNUMERODES_VAL DIF_VALORCAJ_PRO XCLI_HASVAL TABLA_CPBTCPBT_CLICPBT_NUMCPBT_FECCPBT_NOTCPBT_IMPCPBT_SALCPBT_VALCPBT_HEACPBT_IDXCPBT_IDIN XCLI_VALORESG+(dey_funcCClientesCSucursalCAgenteCIDX04CCom_OperCVen_OperCVentasCcccnotasCCCClieCccventCClientesNomcliCSucursalidCAgentecodage%CIDX04idx04\CCom_OperCVen_OperCcccnotasCccclieCccventCventasVen_FacCrubrofacCcostos%Ccatcli &QZcatcli%Czonas RQYzonas%Crubrofac QrubrofacBUDEY_FUNC CHK_CLOSED CHK_OPENEDP_COMMONCATCLIZONASRUBROFACG+( dey_filtersT.t. #TC-TCvendedor 2TC zonaxdzonxhzon 1TC catxdcatxhcat +TClistaxdlis=%C7T .and. CHL _ /T .and. (pais # 1 and pais # 0) .T .and. (pais = 0 OR pais = 1) 2&T .and. (pais = xdpai)F % CX \G((codcliG(  TH$ T""  % Tstr(val(vendedor)) Tvendedor 3T str(zona) [Tstr(cat) Tstr(a1) Tstr(a2) Tstr(a3) Tstr(a4)  $T str(val(emp))GIH?P %#T+str(val(cod_cli)) T+cod_cli T+nombre P%"*T+ciudad+str(val(cod_cli)) L T+ciudad+cod_cli/index on &xxx to (xtemp_filtro) for &filtro GI BU DEY_FILTERSFILTROFIL_GET_CLI_FILTERXDCLIXHCLIP_CLINUMFIL_GET_AGE_FILTERXDAGEXHAGEP_AGENUMFIL_GET_NUM_FILTERXDZONXHZONXDCATXHCATFIL_GET_EQN_FILTERXDLISXDFORXDPAICLIENTESCODCLICOD_CLIXXXXDSEPXDORDX%PTCTC%TCTCTC0T  CP C6% 0T  CP C6 M0TCP C6BUCAUSA XSAL_X_SEP FN_IMPORTEIMPORTE XSAL_X_LISCALIF XCED_X_CLI XCED_X_SEP XCED_X_LISACCCLIXPD_SUMANDO_AL_SALDOCCCLIEEMPACCCLI1ACCCLI2p4H e VET RjT c%C<TC T=C= dJ%C<!TC FT=C= 2eTBUXCAUSAXIMPORTEXMOTIVOXTOT_FCXTOT_RCXTOT_NCXTOT_NDXTOT_OT0TCP C6%v0TCP C6 0TCP C6BU SALANTCAUSAXPD_SUMANDO_AL_SALDO FN_IMPORTEIMPORTECCCLIEEMPSALANT1SALANT20TCP C6%v0TCP C6 0TCP C60T  CP C60T  CP C6% 0T  CP C60T  CP C60TCP C6BUACCCLICAUSAXPD_SUMANDO_AL_SALDO FN_IMPORTEIMPORTECCCLIEEMPACCCLI1ACCCLI2 XSAL_X_SEP XSAL_X_LISXCEDIDO XCED_X_CLI XCED_X_SEP XCED_X_LIStD%VC CZCZ fTCa-6BaB-UCAUSAREFCAUCUOCOMPROBCUOTAXCEDIDOCALIF_ 4FG((ven_fac EF&BCCventas+ 6UXCAUSAXCOMPROBVENTASVEN_FACCCCLIEDESC_INSCOMENTAR,4"BCUXIMPORTEFN_CALCXDMONMONEDACOEFICFECHAMOTIVO H r%nTNoGroupT Sin Agrupar Ta %,T VENDEDOR : [C]   T a T T Ta T %C ZJTZONA : [CC Z] C  C  Desconocida6 T aTCC Z T TaTC Z x%C ZeOT CATEGORIA : C  < CC  Desconocida6 T a T T TaTC Z 3%CZ LTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ %CZLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ %CZLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ d%CZQLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ  %/T EMPRESA : [CCZ] C T aTCCZ T TaTCCZUXDSEPXTGRU_ID XTGRU_COD XTGRU_DES XTGRU_NEWXSEPOLDVENDEDORYYYAGENTENOMBREOKZONAARRCATI_TABA1XTITA2A3A4EMP FN_EMPRESA)4%-FG(G!(HBx  G(gesT\data\CCZ C ges T  G(gesT\data\CCZ C ges T 2x G(gesT\data\CCZ C ges T C %F QF Q  FQF QFG!(G((nomcli CFG-( BU XPROX_EMPCLIENTESGESP_SERVERP_SYSTEMP_CODEMPSETS XPROX_EMP2P_DOS USE_FILESCCCLIECCCLIE_C XTABLA_VCC CLIENTES_C XTABLA_VCLNOMCLI CREA_FILTROVENDEDORAGENTE:'ve_rpt_cuentas_corrientesJ BUOFORMVE_RPT_CUENTAS_CORRIENTESK)CUXDFECXHFECXDCLIXHCLIXDTPCXDTIPXMONEDAEJECUTAR_REPORTE3      T C%CxdfecbD{T %CxhfecbDT %CxdclibCT %CxhclibCT %CxdtipbN7T %CxdtpcbNfT %CxmonedabNT T T  T  T a T aH ( T -T C  b ]   T a   c%c T - B U XTIPO_REPORTEXDFECXHFECXDCLIXHCLIXDTIPXDTPCXMONEDAXDPSNXDREM XDNOCPBTCEROOFORM XNO_RELEASEXRETURN OBTENER_FORMXDMONMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR9 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxve_rpt_cuentas_corrientesT\xchgTT!TTT T     C BUXTABLAXDMONOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTPCXDTIPXDCONP_DOSP_CODEMP EXP_TABLAN4 TCWF G((id E F BUXIDXAREACCCNOTASIDNOTA41QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxVE_RPT_CUENTAS_CORRIENTEST\xchgT T T T  C BUXPDFXDESDEXHASTAXAGENTE XAPAISADOOEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOOFORMXDAGEXHAGEXDLOG3EXP_PDFF 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxve_rpt_cuentas_corrientes.T %C TT%C T T  T- C BU XCATXCLIOEXCOFORMXDCONP_DOSP_CODEMPXDCATXHCATXDCLIXHCLI EXP_TABLAb41QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxVE_RPT_CUENTAS_CORRIENTEST\tmpT JT T TTT T - T - T- T- CBUXPDFXCOD_CLIXDTIPXDTPCXDMONOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDCLIXHCLIXDLOG3XDLOG2XDPSNXDREMEXP_PDF,1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxve_rpt_cuentas_corrientesT\tmpTTTT T T C BU XTABLAXHFECXDCONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTPCXDTIP EXP_TABLA7-BCCCXXX6UXMONEDA MM_MONEDA%L.BCC 6 %C%cd$BCC6 %% B  BC  BCBUCAUSACONDCOMENTARRFCFN_NCNDCOMPROBo%Cempresas =Q \empresasCempresascodigo BUXEMPP_SYSTEMEMPRESASDESCR 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxve_rpt_cuentas_corrientesT\tmpTT`TTT T T T     Ta Ta Ta CF/Q\tmp\rpt_ve_cta_cte_completo"orpt_ve_cta_cte_completo !"#$%&'()*+,Q-Q.Q/CXQ01\tmp\rpt_ve_cta_cte_export%Cidx04 Q2\idx04 ~>4C,T54%(Y>4-4 %4* T6"7listados4(56F4 T64*>4-C46 T T9 T:%C4, $%4* 4( o!7listados59F4 T94*T:49 F4>4.:/9Q1Q4BU;XTABLAXDCLIOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXHCLIXDMONXDTPCXDTIPXDCONP_DOSP_CODEMPXDREMXDPSN XPD_SUMANDO EXP_TABLACLI_CODCLI_NOMCLI_INSCLI_VENCLI_DVECLI_TOTCPBT_FECCPBT_CODCPBT_NUMCPBT_SUC CPBT_DSUCCPBT_VENCPBT_IMPCPBT_PARCPBT_HEACPBT_ID CPBT_NOTACPBT_OCCPBT_OTCPBT_PED CPBT_TRANCPBT_MON CPBT_MONT CPBT_CBIOCPBT_DIVCPBT_MOT CPBT_MONEX CPBT_MONRE CPBT_TCREFCPBT_ERRRPT_VE_CTA_CTE_COMPLETOP_COMMONINRPT_VE_CTA_CTE_EXPORTXFECHAXCAMBIOOBTENER_CAMBIOLISTADOS XCAMBIO_REF XTOTAL_REF get_ccclieO# get_clientes($filtro_por_fecha% get_por_fecha'get_por_comprobante(cuenta_corriente) get_orderid+ por_fecha-filtro_por_comprobante:por_comprobanteAimp_movEvaloresQ use_filesrU crea_filtroNX acumuladores^act_tot` sumar_salbsumarces_cabeza_grupoffn_ncndf fn_importerg separaciongprepara_empresan obtener_formvq ejecutar_sqlqejecutar_reporterr exportar_1=vfn_notax exportar_2wxexportar_Club7z exportar_pdf{exportar_dias_de_giro} fn_moncccU fn_comentario fn_empresàexportar_externos_schd`Q1Ar1!A!AA1Ar"!QA6AA1q"BAA'A #qA1A1Q1Au$sQAA!qrAirQA1AqQAAAuQB"aQAQA"aQAQABQBrAA1AASSqAqaA1A1Arq rA2r1AAAB1QAAABAAAAQAAAsArArArAraaU1Q1B2qrq12AA4s qrA4DABABAA"A4saaBAqQrAA3raaBAqQrAA114r12BArA21b2A3caSbABAaAHBAAAAAAQAAAAAAAAA1"B2AAqrB BbqABbAAABAFBC4qDBAAAqrQBCBBAqaa!QAAsqBAaAaABBABAA"Ab4eaSDArAAEA4AEBAAABABqAA11A3AArqQrACeDAAAQAAAAAAAAcqAAbAAA1"B2AAqrB A6B2 Auba!aaqtAAAAAAqAABAAAA2!RQ1!QQ1Q11QQQQ11R1!ArAAAB3Q1!RA1A1aAr11QA1a1Q1A1A1A1A1Ab11A11AAaBA2Aaa1aaaAAbAB2AAAqAAqAAA2aAA2aAAB3DqAq3qqa4q!312AA11A1QA1QA2QA1QA1QA1QA11AA3q1qaaAR1QQQA6rAqrAqAras2qr321AAAAAAA1Q11A1A3!"AB2qqr3q!"BB2!"!A!AAB2q!"BB2!"AB2q2BQQABAAAAB2qA2!"B!rA2Cb!rBABrABCrAB3656rC68O#9w;e;n=w=??LCdCD'DF[1 t[c/hcmm* >Y>oO`%'{@\n*409G+Dxg |16,M9*PͼjҾ. Hq$%?A9GAiYU4%0%   C- } T T T  T T T  TT TBU XAUTORIZADAXQUIENXDESDE_GENERACION_DE_OCXQUIENESP_OC_AUTORIZACIONP_CM_OC_AUTO_AUTORIZACIONACCESO PUB_INDEX4H >B AUTORIZADA cB RECHAZADA B SIN AUTORIZAR 2B INDETERMINADOBU XAUTORIZACION4H 5 BS R BN o B 2 B BU XAUTORIZACION3 4*%  THV  T B  T B  T B 2 Tc Bc , TT BUXESTADOXUSRP_OC_AUTORIZACION P_SYS_APROBTCCCOMPAUT_USR AUTORIZADA4 T Tcm_procs%\ T STEstado de la OC N CC@z 999,999,999_: C !!! BUXMSGXESTADOXUSROC_ESTADO_ACTUALCM_PROCSTCCCOMPORDEN OC_ESTADO?CtcccompF>QBU CHK_OPENEDTCCCOMP AUTORIZADAAUT_USRALLr4%Ccostos @Qcostos Ta Ta T'dey_func% C T B% #%C   T B%: T B%c T B%C T B  T B ]% T B% T B%C9 T B Y T B FBU XRESXCUENTAXCENTROXAREACOSTOSXCOSVLD XCOSXCUEVLD XCOSXCUECANTCOS_COSXCUEVLDDEY_FUNC P_COSXCUEVLDDETALLEXCENy4%CxcursorbC@Ttmp#%CxprobCC wT.t. "Ttcompras.cod_pro=xpro%Cq_oc1QotcccompQ C  AUTORIZADA TC  SIN AUTORIZAR2C  RECHAZADA  INDETERMINADO666Q C  AUT 9C  S/A C  RECH----666Q  S      0  9C   a6 q_oc1)select tcompras.orden as orden , tcompras.cod_ins as cod_ins , tcompras.itm as itm , proveedo.nombre as proveedor, tcompras.desc_ins as descr , tcompras.recepcion as cantidad , round(tcompras.recepcion-tcompras.recep2-tcompras.recep3,2) as saldo , q_oc1.ref_ext as ref_ext , q_oc1.estado , q_oc1.estad from tcompras, proveedo, q_oc1 where tcompras.cod_pro=proveedo.cod_pro and &xfiltro and q_oc1.orden=tcompras.orden into cursor (xcursor) readwrite BUXCURSORXPRO XMODIFICABLES XAUTORIZADASXFILTROQ_OC1TCCCOMPORDENOC_EXTREF_EXT AUTORIZADAESTADOESTADPENDCOD_PROP_OC_AUTORIZACION P_SYS_APROB4%Cconver 1Qconver%Ccccomp _Qcccomp%Ccompras Qcompras%Cccprov QccprovF >F~ T  < < < <OoconverCQC ZCZC ZC Z +%Cxingresos_recepcionesbU<  T ocomprascccompCQ%CZC ZC Z O S  (%Cxingresos_directosbU<  T ocomprascccompCQCC 6Q%CZC ZC Z O  % <  T T ocomprascccompCQCC 6Q%CZC ZC Z O % <TTF0>C C C F>C FG((comprob5EC@z 9999,999,999_PCZCZ%C4{>BUXORDENCONVERCCCOMPCOMPRASCCPROVTCCCOMP FACTURADOTCOMPRASORDENXITEM_OCITMXINGRESOS_RECEPCIONESXINGRESOS_DIRECTOSXINGRESOS_FACTURADOS XINGRESOS_FACTURADOS_RECEPCIONESSUMENTRASALECANTIDADREFITM RECEPCIONREFREFCAUSARECETOT_COMDEUDARECEP2RECEP3COMPROBCOD_PROIMPORTE54"cm_oc_mantenimiento BUXORDENOC_MANTENIMIENTOCM_OC_MANTENIMIENTO4 BUXOP%CxaliasbC@ T T T%C termina_ocFQTC sqlbufferingv%CG %%C tmp_oc_perQ_otcomprastcccomp CC    6TQ CC  6TQd d d d d d C  6QQ    tmp_oc_per^o tmp_oc_per C Q CQCQCQ termina_oc%C tmp_oc_perQ  VTC.coefic * iif( .tot_com=0,0,.deuda/ .tot_com)TC.deuda.otcompras CCC    6TQ CCC  6TQCd d d d d d QCQQ  termina_oc set sqlbuffering &xbuffering %CN]0TC  d60TC d60TC d6%C termina_ocFQBU XORDEN XPER_ENTR XPER_FACT XPER_IMPFXALIAS TERMINA_OC XBUFFERING TMP_OC_PERTCOMPRASORDEN RECEPCIONRECEP2RECEP3 SUMA_CANT FACTURADO SUMA_FACTCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOTCCCOMPCOEFICTOT_COMDEUDA SUMA_IMPFIMPORTECUENTAXFACTORXDEUDA4 T T%Clineas WQlineas%Ccuentas Qcuentas%%%Ccuentascuenta T%TCuenta no encontrada !!!H % T%$TNo debe tener lnea !!! 8TLa lnea solo puede ser CCZ !!!  %U%Q T!TDebe tener lnea !!! % T8TLa lnea solo puede ser CCZ !!! 2 T"TError no definido !!!% t$%Clineascodigo p T"TLnea inexistente !!! BU XRESXMSGXCUENTAXCODLINLINEASCUENTASCOD_CUEXLINEALINEA4 T T%Cgrupos WQgrupos%Ccuentas Qcuentas%%%Ccuentascuenta T%TCuenta no encontrada !!!H % T%$TNo debe tener grupo !!! 8TLa grupo solo puede ser CCZ !!!  %U%Q T!TDebe tener grupo !!! % T8TLa grupo solo puede ser CCZ !!! 2 T"TError no definido !!!% t$%Cgruposcodigo p T"TGrupo inexistente !!! BU XRESXMSGXCUENTAXCODGRUGRUPOSCUENTASCOD_CUEXGRUPOGRUPOg TCWTTTT%Ccuentas Qcuentas%'%Ccuentascuenta  FB%C I\SF% (T BT% V(TC  6(TC  6%HH~$    ;%-T 73    ~THD$    %T 3    DT R `UXCUEXAREATHISCUENTAXCENXLINXGRUCUENTASCOD_CUEATRIBUTO P_COSXCUEVLDP_CO_POR_LINEAXLINEAXGRUPOP_CO_CEN_LIN_GRULINEAGRUPOI TCW%CCV T%Ccuentas Qcuentas% C % T%C F TGT La cuenta C # no debe tener centro de costos !!! FB P %C%  %C   TET La cuenta C  debe tener centro de costos !!! %Ccostos 9Qcostos Ta Ta T*dey_func %`% \% XiTEl centro de costos C- no est entre los permitidos para la cuenta C  !!! T F B 5TCentro de costos C invlido !!! T F B%C% 5!TDebe tener lnea !!! T F B ? $%   $TNo debe tener lnea !!! T F B %Clineas Qlineas T-%~#%Clineascodigo1 zTLnea invlida !!! T F B % % !TDebe tener grupo !!! T F B  Y$%   ~$TNo debe tener grupo !!! T F B U%Cgrupos Qgrupos T-%G#%Cgruposcodigo CTGrupo invlido !!! T F B  Q%  %C C QTDNo se permiten centros de costos y lneas/grupos al mismo tiempo !!! T F B   T T F BUXERRXMSG XCUENTA_REG XCENTRO_REG XLINEA_REG XGRUPO_REGXCENTRO_GLOBALXAREAXENCCUENTASTHISCUENTA INICIALIZARXCENABREVCOSTOSXCOSVLD XCOSXCUEVLD XCOSXCUECANTCOS_COSXCUEVLDDEY_FUNCXLINLINEALINEASCODIGOXGRUGRUPOGRUPOSP_CO_CEN_LIN_GRU 4%CxunibN5T ?%C%Ecodins>%%> >2E codigoC  6F> %>%5C El factor de C est en 0 !!!>,>C  6.>CC 6T%TC 6%|>  %.TCC T6.TCCT6>>.>CC 6TL>C  C 6 6FBa % 'CDebe estar entre 0 y 2 !!!U XCANTIDADXUNITEMPCOMPUNIBIENESCOD_INSCODINSCM_UNI2MEDCOD MEDAUXCODCODIGOMEDIDASDUNIABREVFACTORMENSAJEDENSIDAD RECEPCION XCOCIENTECOS_LIFOXPRECIO T%%CfT+ TCCCC_VA%%CT+ TCCCC_VA%M%C*T+ TCCCC_VA%%CT+ TCCCC_VA%%CT+ TCCCC_VA%J% %C_T+ TCCC C _VA% %CT+ TCCC C _VA% F%C#T+ TCCC C _VA%CuT% BCU T_DESC1T_DESC2T_DESC3T_DESC4T_DESC15XTEMPFMTT_DESC5 P_DESCESPT_DESC1ET_DESC2ET_DESC3E %@Ctcccomptcccord%q%%WT%CEst exceptuar la OC CCZ del controld de cantidades ?S>kC ZN"Excepcin de control de cantidad: Habilitada cm_procs.prg >nC ZN"Excepcin de control de cantidad: Deshabilitada cm_procs.prg%m%Q%CEst exceptuar la OC CCZ del controld de precios ?>jC ZN!Excepcin de control de precios: Habilitada cm_procs.prg i>mC ZN!Excepcin de control de precios: Deshabilitada cm_procs.prg .C!Orden de compra no encontrada !!! BU XORDENXTIPOTCCCOMPORDENTOLC MENSAJE_SINOUSER_LOG PUB_INDEXTOLPMENSAJE4H >B AUTORIZADA cB RECHAZADA B SIN AUTORIZAR 2B INDETERMINADOBU XAUTORIZACION autorizar_oc0 oc_estadooc_estado_abreviadonoc_estado_actual oc_autorizadaini_tcccomp_autorizada vldcosxcue.oc_tabla_pendientes_ayuda* actualizar_datos_oc_oldRactualizar_datos_ocactualizar_datos_opporcentaje_cumplimiento_oc vldlinxcuel vldgruxcue? inicializar$validar(completar_cantidad1txt_bonif_compra@6 excepcion;: op_estadoN>MTC X T T T  UCUENTAXCENXLINXGRU cenlingrucustomA1101AAB2q111!1baAA2q111AA2aaaAA2q21A2BrAB2q!ArA2A3AAA3AAABA21A2!AcA  "B2q!A!A1A!ArrArrqqqq1A;q1A{ "q1A| "q1AtrBrQrAB2q"2qp 1qAqAAr2aA4AAaB"AqAAB31!A1AbQQAAabaAAAaeb2AaAA!AA!AA21!A1AbQQAAabaAAAaeb2AaAA!AA!AA?qr1AqAAAAA2AbbB1AAbbB1ADB4rsAr1AcAb#qABc!QAA!A3AARABB3cBDB!Aa2ABBA2cBDB!Aa2ABBABB4BA2baAA$s1c1aQAR1A2BBrr2qAA2qr1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AA1Q1AAAR!A3eAd2aAAAA2aAAAAB2q111!1aaAA1 12!A.OE jP xV 1$Q$$$s88FH FL>LJQp R[O#[k,kt_ u7zMz$PnQkD<%rOmX6.4 )G(9 3%%  T-ft05%  te_comienzoG+(te_procsG+(listados5 T a%CCHgCDC7Slo debe haber una cuenta de Diferencias de Cambio !!!B- N%CC\gOCBSlo debe haber una cuenta de Diferencias de Cambio No Pagadas !!!B- J%CCLg?SCFSlo debe haber una cuenta de Retencin de Ganancias a Proveedores !!!B- F%CCgMC@Slo debe haber una cuenta de Retencin de ART a Proveedores !!!B- B%CCg4NCASlo debe haber una cuenta de Retencin de SUSS a Proveedores !!!B- >% T T co_funciones%C CB-:%C \reccue.ges0 C \pagcue.ges0 zlC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B-%C recmaxefebN@ \reccue.ges@ \pagcue.geste_procste_procs te_pago C%;TCX u%Civa_com qQiva_com T T C%Ccons QconsF#)T !"T#$+a.T%CC]RT&CC]RT'CC]RT(CC]RT)CC]R<* *%+,+-+%./.0.%12131%425464 T7 T+at, T8H|p, 7 C9 T:a%T;CX%C T< T= T> T?%F T@A TBA \ T@C$ TC)J(,2/5-306 TDTE mBa<0 Cd  Cd   #)te_pag_comprobantes( V d<#o pendientesT% V% 8gCZSolo se pueden seleccionar comprobantes de un mismo rgimen de retencin de ganancias !!!! T RT qTC%C@%!%  %%QQCDEl proveedor no tiene definido el tipo de retencin de ganancias !!! T {%vCDEl proveedor no tiene definido el tipo de retencin de ganancias !!!C No se efecturar retencin. wC|Recuerde que el sistema no retiene ganancias por las compras de contado, por lo que debe utilizarse para compras menores !!! Hn ! %7T77 7%78 3T77 N! n T7 7`%C comprobantesFQEo pendientesQ<1\tmp\&QQ\tmp\& TCN%%  u%q C T@TCH\ ! %7T77 %%78 !T77 <! \ T7 7 F<  J( T ~(% T>T$%Ccd123 $TCC\g*%  %%> T> te_moneda(H  !  %7 T77 H %78 D T77 _ !  T7 7s%F7%CCCCC!CDSolo se pueden pagar comprobantes en una nica moneda extranjera !!!C C /No se puede ingresar el pago. Debe fraccionarloC /seleccionando comprobantes que tengan una mismaC moneda extranjera T $ TaFG((idx04 E@ TC4%C4 x"%C t"CCLos ndices para el C@* no fueron definidos !!!%> "%C" T?% !$($%#!T idx04.indiceCCZxtc = &aaa_xxx +%CC #%#QC!El tipo de cambio para la moneda CC est en 0 !!! T-T #T $T Ta%> $T?C> te_cambio(T>? CH$o% $! $%7$T77 8%%78 4%T77 O%! o% T7 7\' T TTC%C %C T &%Y{&vC'Error al calcular la retencin de IIBB:C C ZC C "No se podr continuar con el pago. TH&X' &! &%7&T77 !'%78 'T77 8'! X' T7 7p, TF ~'T T T T-F ~H(T)TC 60T C C X-6 F T TT} T T T T T T % (C- Ca   )C -  TT NT%g)T&%C\tmp\(.dbf0)F\tmp\( te_procsR T -te_pago(%=*F5(\tmp\( DIF. CAMBIO   T-%++a+TCH*+ * T! *. )+ T>C1No se pudo concluir correctamente la transaccin.! +>C1Error irrecuperable. Consulte al soporte tcnico. T!H+l, +! +%7+T77 5,%78 1,T77 L,! l, T7%C TMP_RETIB,FQ \tmp\).dbf \tmp\).cdx%C PENDIENTES-FQ \tmp\%.dbf \tmp\%.cdx%C COMPROBANTESs-FQ \tmp\&.dbf \tmp\&.cdx%CPAGOS-FQ \tmp\'.dbf \tmp\'.cdx%COTROS=.F{Q \tmp\(.dbf \tmp\(.cdx4%   .! BUXTIPOPAGXFROMXPREGUNTA_PAGO ACTIVEFORM DATASESSIONID P_COMBEMPXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZOTE_PROCSLISTADOSREALTIMEATRCANMENSAJEP_IMPUESTO_AL_CHEQUEXCUENTA_IMPDEBCREXMSGCUENTA_IMPUESTO_AL_CHEQUE CO_FUNCIONESP_SERVERRESTORE_RECCUERESTORE_PAGCUETE_PAGOELIMINAR_CUENTASXCENTROIVA_COMXRECIBO_PROVEEDOR_SUCXRECIBO_PROVEEDOR_NUMPOSICIONAR_EN_EMPRESACONSXRET_IB_DEFAULT_LUGARIBEMPRESAS PROVINCIAXRET_IB_DEFAULT_ALICUOTAIVA XPENDIENTES XCOMPROBANTESXPAGOSXOTROS XTMP_RETIBXOTR PAGMAXEFECAJCAJLOCAL PAGMAXCHECHECHELOCAL PAGMAXCHPCHPCHPLOCAL PAGMAXOTROTROTRLOCALXFORMXMAXFORMABRIR_TABLAS_FIJASXHAYRETXCOD_PRO XOTRO_PROXUNXMONEDAXCAMBIOXFECHA XFECEMI_PAGXFECDGIXREGIMEN_IIBB_GEN_ESPC_RETGANC_MINGANGAN_ARR GAN_CATEGORIA GAN_TABLAXRETGAN_REGIMENXRETGAN_IMPUESTOXRETGAN_ADEUDADAXRETGAN_CANCELADAXRETGAN_ANTERIOR XERRPADRONXNETOADEXNETOXRGANXBASEGANXRGAN2XPAGOANTXRETANTXBASACC ARR_RET_IIBB RETIB_ARR XERR_RETIB XMSG_RETIBXRETIBXRETIB2XNETOADE_RETIB XNETO_RETIBXRETIB_CUENTA_ERXRETIVAXRETIVA2 XNETO_RETIVAXRETIVA_IMPUESTO XNETO_RETCP XNETO_RETARXRETIVA_REGIMENXRETIVA_ADEUDADAXRETIVA_CANCELADAXRETIVA_ANTERIORXRETCPXRETCP2XRETCP_REGIMENXRETCP_IMPUESTOXRETCP_ADEUDADAXRETCP_CANCELADAXRETCP_ANTERIORXRETARXRETAR2XRETAR_REGIMENXRETAR_IMPUESTOXRETAR_ADEUDADAXRETAR_CANCELADAXRETAR_ANTERIORPAGPROVCHE_TERCHE_PROOTROS XDIFCBIOACCV_ACREDIMAXCAN MAXCANFLD V_APLICADOV_PAGADO V_PARCIAL V_EFECTIVOANT_PAGOBASEANT_PAGXRECIBOXXFECHAXXAGENTE XCOMISIONTCXTC_INIXDIFCBIOXDIFCDUE XDIFOLDACCXDIFDOCSIONOXCUENABONAXINICOBXTOTCPBTXSALDOXSALMARXTOTMAR XMARCADOS XSALDOCOBXSALDO_SOBRE_PREVISTO XIMPORTACIONXFACTURACION_ULTIMO_ANOXMONO_YA_TUVO_RETENCIONES XERROR_RETIVA XERROR_RETGAN XERROR_RETIB XERROR_RETCP XERROR_RETARXLIGHT P_MMLIGHTP XCOMENTARIO TE_PAG_PAGO TE_PROVEEDORPROVEEDOCODPROCOD_PROIVACATP_PAG_ACT_VERSIONXMONTO_ACTUALIZADOPAIS CREAR_PAGOSTE_RETIB IIBB_ER_RXMSG_RET XCUENUM_RET XPROV_RETOBTENER_CUENTAS_UNICAS XNUMRETGAN XNUMRETIB XNUMRETIVA XNUMRETCP XNUMRETAR ODOCUMENTOS IIBB_PROVP_TE_PAG_PREG_APLICAR_PEND XSQL_FILTROCCPROVCANCELCAUSAREFCAUCUOOPRCOMPROBCUOTAOPMOTIVOSALDITOS XSALDITOS MENSAJE_SINOXORIGENGE02XOLD_XRES_PAGOSXOLD_PROCEDURESORETMONO P_RET_MONOFACTURACION_MONOTRIBUTISTAXMONO_YA_HUBO_RETENCIONESYA_HUBO_RETENCIONES COMPROBANTES PENDIENTESMARKEDFORXOP_PAGOP_OP_AUTORIZACIONESTADOTE_PAG_COMPROBANTESMAX_REGIMENES_GANDISTINCT GANANCIASXCODIGO_GANANCIAS OLOCALIZACION HAYRET_GAN!P_VALIDAR_CLASIFICACION_GANANCIASIMPORTACVENCP_LOCALMAXAPLACT_PAGOOBTENER_IMPORTACION_PREVIOXARRMON XSUCFACNORMALMONEDAP_MONEDA_SIEMPRE TE_MONEDAXOKIDX04ENC P_MSG_CAMBIOZAAA_XXXXTC MM_MONEDA TE_CAMBIO ACTUALIZARXIMPORTE_TOTAL_A_PAGARXTIPO_PAGO_RETENCIONESXERROR_RETENCIONESHAY_RETPAGOSPESOS V_ANTICIPOS HAYANTAPROVSALDORETGANCOMI XDIFCBIO_NC XDIFTOTAL XLDIFTOTAL CLC_DIFCBIOHAYCOMIAPLICAR XRETMANUALAUT XRESULTADO REGISTRAR TMP_RETIB%occprovCXQQQQQQQ Q -Q Q CXQ QQQQQQQQQQQ-Q QQQQQQQ Q!Q"Q#Q$Q%Q&Q' Q(Q)CXQ*Q+--1.\tmp\/ %C0T1cc.cod_pro+dtos(cc.cancel)=xcod_pro+dtos({}).and. (cc.causa$'LCcd1233').and. cc.ref+cc.cau+str(cc.cuo)+str(cc.opr) = cc.comprob+cc.causa+str(cc.cuota)+str(cc.op).and. !(between(cc.motivo,1,2) .and. cc.causa$'cd') %0T1.f. T2COPCC3 Z T1ٙbetw( cc.cod_pro+cc.comprob+cc.causa+str(cc.cuota)+str(cc.op), xcod_pro+xnumerof+xcausa+str(0)+str(0), xcod_pro+xnumerof+xcausa+str(99)+str(9999999999) )T45''%Ccccomp.autorizadabN" select cc.* , space(2) as tipocpbt , cc.adelanto as tmpdifs , cc.adelanto as saldoori , cc.adelanto as difcbio , cc.adelanto as difcbioapl , cc.importe-cc.adelanto as saldo , cc.adelanto as saldouss , cc.adelanto as aplicado , .f. as aut , cc.adelanto as sucfac , space(250) as descr , cc.adelanto as ttmpdifs , cc.adelanto as tsaldoori , cc.adelanto as tdifcbioap , cc.adelanto as saldover , .f. as dif , cc.adelanto as base , cc.adelanto as baseapl , cc.adelanto as baseib , cc.adelanto as baseaplib , cc.adelanto as retgan , cc.adelanto as retib , cc.adelanto as retiva , cc.adelanto as retiva_deu , .f. as no_ret_m , nvl(cccomp.lugarib," ") as lugarib , cc.adelanto as retgandeb , cc.adelanto as retganant , cc.adelanto as retivadeb , cc.adelanto as retivaant , cc.adelanto as retcp , cc.adelanto as retcpdeb , cc.adelanto as retcpant , cc.adelanto as retcpbase , cc.adelanto as retar , cc.adelanto as retardeb , cc.adelanto as retarant , cc.adelanto as retarbase , nvl(iif(cccomp.ganancias=0, xprov_gan, cccomp.ganancias), xprov_gan) as ganancias , nvl(cccomp.letra, " ") as letra , nvl(cccomp.ivacat2, 0) as ivacat2 , nvl(cccomp.fac_com2, padr(cc.comprob,15)) as comprob2 , nvl(cccomp.autorizada, 0) as estado from ccprov cc left outer join cccomp on cc.op=cccomp.op and cc.comprob+cc.causa=cccomp.fac_com+cc.causa where &xsql_filtro order by cc.causa desc ,cc.venc into table (p_local+'\tmp\'+xpendientes) select cc.* , space(2) as tipocpbt , cc.adelanto as tmpdifs , cc.adelanto as saldoori , cc.adelanto as difcbio , cc.adelanto as difcbioapl , cc.importe-cc.adelanto as saldo , cc.adelanto as saldouss , cc.adelanto as aplicado , .f. as aut , cc.adelanto as sucfac , space(250) as descr , cc.adelanto as ttmpdifs , cc.adelanto as tsaldoori , cc.adelanto as tdifcbioap , cc.adelanto as saldover , .f. as dif , cc.adelanto as base , cc.adelanto as baseapl , cc.adelanto as baseib , cc.adelanto as baseaplib , cc.adelanto as retgan , cc.adelanto as retib , cc.adelanto as retiva , cc.adelanto as retiva_deu , .f. as no_ret_m , nvl(cccomp.lugarib," ") as lugarib , cc.adelanto as retgandeb , cc.adelanto as retganant , cc.adelanto as retivadeb , cc.adelanto as retivaant , cc.adelanto as retcp , cc.adelanto as retcpdeb , cc.adelanto as retcpant , cc.adelanto as retcpbase , cc.adelanto as retar , cc.adelanto as retardeb , cc.adelanto as retarant , cc.adelanto as retarbase , nvl(iif(cccomp.ganancias=0, xprov_gan, cccomp.ganancias), xprov_gan) as ganancias , nvl(cccomp.letra, " ") as letra , nvl(cccomp.ivacat2, 0) as ivacat2 , nvl(cccomp.fac_com2, padr(cc.comprob,15)) as comprob2 , 0 as estado from ccprov cc left outer join cccomp on cc.op=cccomp.op and cc.comprob+cc.causa=cccomp.fac_com+cc.causa where &xsql_filtro order by cc.causa desc ,cc.venc into table (p_local+'\tmp\'+xpendientes) Q.\tmp\/6%0yr pendientes789:;<=>*?@A2ABCD2 TE TF ~"TEETFF>GH-   I-{> !"#$%&%00  >HaH :C>FC :d>ND :1>CP :23>DP :cV>NC :Ly>AS :1>CC :2>DC :3>DP :H>PR 2> & C89:8& C-9:-& 9:J& CKZ9:K& L9:L& CMZ9:M& 9:& C'Z9:'& &  G((N#) BOUPXTIPOPAGTIPOCPBTADELANTOTMPDIFSSALDOORIDIFCBIO DIFCBIOAPLIMPORTESALDOSALDOUSSAPLICADOAUTSUCFACDESCRTTMPDIFS TSALDOORI TDIFCBIOAPSALDOVERBASEBASEAPLBASEIB BASEAPLIBRETGANRETIBRETIVANO_RET_MLUGARIB RETGANDEB RETGANANT RETIVADEB RETIVAANTRETCPRETCPDEBRETCPANT RETCPBASERETARRETARDEBRETARANT RETARBASE GANANCIASLETRAIVACAT2COMPROB2ESTADOCCPROVVENCP_LOCAL XPENDIENTESXFROM XSQL_FILTROXNUMEROFNOP XPROV_GANPROVEEDO PENDIENTESCOD_PROFECHACOMPROBCAUSAREFCAUMONEDACOEFICXCOD_PROXFECEMIXCAUSAT_FINALXMONEDAXCAMBIOXTOTCPBTXSALDOS1MARKED RETIVA_DEUCPBTOPCOMENTARCUOTAP_TE_PAG_ORDENXRES4  TCW T-%Ccfg_lis cFQcfg_lis TaF% #TCg  T%Q F BUXLISTAXMONEDAXOPENAREACFG_LISMONEDA%Cprovinc 4Q\provinc%Cpaises jQ\paises%CAGENTE Qagentecodage%Ccostos Qcostoscodigo%Copagos Qopagosopago%Cchqanu GQ\chqanu%Cchepro }Q\chepro%Cven_oper Qven_operven_ope%Ccccomp Qcccompcccord%Cret_prov $Qret_prov%Cccpag PQccpag%Cunidades Qunidades%Cdretprov QdretprovfilesfilesBUP_SYSTEMAGENTECODAGECOSTOSCODIGOOPAGOSOPAGOP_COMMONVEN_OPERVEN_OPECCCOMPCCCORDRET_PROVCCPAGUNIDADESDRETPROVOPEN_FILES_PAGOFILESOPEN_FILES_ENTORNO_OPERACION3R,:Actualizando...F ~( T T T9CCZC Z% )%     F/> F$>%>%  +> F!>%   > $ >BU XSALDOACTXSALDOXDIFAPL COMPROBANTES ACT_SALDOXCOD_PROCOMPROBCAUSACUOTAOPXFROMXLIGHTMONEDAXMONTO_ACTUALIZADOSALDOTMPDIFSSALDOORI DIFCBIOAPLTTMPDIFS TSALDOORI TDIFCBIOAPP_PAG_ACT_VERSIONT_FINALSALDOVER4 5 T TFG(( referencia E T/+C+   C ZC Z % H$    T 2%+TC  FG((idx04 E%C+ z$T idx04.indiceCCZTC%ICerrorxCEl cambio para la fecha C* es 0 !!!C 3No se pueden actualizar correctamente los importes.F T vFTC   qC=No hay tipos de cambio definidos para la fecha de emisin de   (C*)F TFTCT% ɚ;YT %T TTHBUXID XSALDOACTXSALDOXDIFAPLACCXIMPCCPROV REFERENCIACOD_PROREFCAUCUOOPRCOEFIC COMPROBANTESMONEDAIMPORTETCIDX04FECHA XCAMBIOREFSYS_MMENSAJECOMPROBCAUSAMOTIVO45%e)CEl nmero no puede ser 0 !!!B-%CCHQANU Q\chqanuF G((chequeEC Z TC4%=TC-El nmero corresponde a un cheque anulado !!!C Cheque: CCZB-%CCHEPRO sQ\cheproF $-    TC4 %   6aC:El nmero no corresponde a ninguna chequera habilitada !!!C Cheque: CCZB- FG((idcheqEC ZCZ Ta&+C+   %  S  T-!H%FG((idcheqEC ZCZ Ta&+C+   {%  S s T-!H%%% F~CHP%   T-! % TC-El nmero del cheque ya ha sido utilizado !!!C Cheque: CCZB-BaUXNUMXCUEXCHK XEXTRACCIONXECHEQUE XNO_DE_PAGOSAUXMENSAJEP_COMMONCHQANUCHEQUECHEPROCUENTADESDEHASTACOM_OPERIDCHEQSUBNUMXOKNUMEROPROPIOVEN_OPERPAGOSTIPONUMINT] 4%' B T- C T T T T T T% C :%         %S C T TT F>TTTTTTTTT T TTTTTTTTT T TTTTTTTTT T ~3y%u TaF G((comprob#E!"C#Z%C4+TC$ %-"TC%&' T %()F %, FT*+ T T,h-,!.#/ 0C 1 2 36 ' T4h54!.#/ 0C 1 6 36 ' T7h87!.#/ 0C 1 6 36 'T9,47  TC 3' TF>: 3>9 O T9 TT9T T;%<=)%>*T?C@S @6  T?T;<=?d  T;C;T&%S <=  TA<=:TBCCd <=Cd  6% T*+ T T,B-,!.#/DBAA T4B54!.#/DBAA T7B87!.#/DBAAT9,47 TEB TF TG9%P CH*TCCC T/TCC C 6C/TCC C 6C/TCC C 6C  TExento ? &TNo es agente de retencin M  BUIXERRXMSGXFROM XERRPADRONCREAR_TEMPORAL_RETIB XMSG_IIBBXRETIBXRETACCXBASACCP_CODEMPP_DOSCONS IIBB_CABAIIBB_BAIIBB_SFE IIBB_ER_RIIBB_MISPROVEEDOCONTADOPOSICIONAR_EN_EMPRESA XNETO_RETIBZ XTASA_ASUMIDAIVA COMPROBANTES BASEAPLIBRETIBALL ARR_RET_IIBBCAUSAAPLICADOXCORRESPONDE_RETENCIONCCCOMPCOMPROBCOD_PROOPDETERMINAR_TASA_ASUMIDATOT_COMDES_COMDEUDAXFECHAP_IIBB_CONSULTAXCUIT INSCRIPCIOXRET_BA RET_IIBB_BACUOTATIPOCPBTLUGARIBVERSIONBASE_IB1IB XRET_CABA RET_IIBB_CABABASE_IB2XRET_MIS RET_IIBB_MISXRETBASEIBXNETOADE_RETIBV_PAGADO V_APLICADOIVACATXPERRG3337XADELANTO_A_RETENERXBASE_IIBB_ADELANTOXRET_IB_DEFAULT_ALICUOTAXRET_IB_DEFAULT_LUGARIB XIIBB_BASEIBXIIBB_BASEAPLIB XIIBB_RETIB MIN_RET_IIBB[HK . BC K BC BUP_LOCALIZACION CALC_GAN_AR CALC_GAN_CL BU FG((opago E Ta&+C+    T-OC!El nmero de comprobante de pago CCZ ya fue utilizado !!!KT!El nmero de comprobante de pago CCZ ya fue utilizado!H BUNOPAGOXMSGXOKCOM_OPEROPAGOMENSAJE.R,:#Aguarde, procesando informacin ... Ta T T TaF ~%T%% T TCO T- T  T  T T FTcTN#%  zTS T-%N TaTc T TF ~TT TF T T T ~T%OTRT%EFET  TTc% Tc T - T! T"F# G((oper T% T& T'T(  %( ) pT(C)No se han ingresado valores, ni efectivo.C )Emite igualmente un Comprobante de Pago ?* T+a T, T-<./0123?./01232opagosC OTR5 .% T.T6T3=opagosC OTR5 7 3% T6C3T6T3=opagosC OTR5 7 3% ,T6C3T6T3=opagosC OTR5 7 3% T6C3T6T3=opagosC OTR5 7 3% dT6C32opagosC OTR5 0% T02opagosC OTR5 1% T12opagosC OTR5 2% uT2 T8%9%( T:- T;- T<- T=- T>- T?- T@- TA- TB- TC TD TE TF+aFG#)%: z T%H TI-%C.; TJCK TIa"%C6< %C6 )%LL M G T6N n T6OTCC6"%C6= %C6 T6PTDC6"%C6> t %C6p T6QTEC6"%C6? %C6 T6RTFC6%C0@ %S %Tn %IR TUJ j TUCK  TUGV  TUGV%C1A TWGX%C2B TYGZ%[y te_opago(8T6CT6D  T8a%8%C%] T:a  T^CJ`_ Ta^%C^ T;aBTbCC6`CLM  6_%TcCC6`_%TdCC6`_%TeCC6`_OTfCbCCCb, 6CcCCCbc, 6Cd-TfCfCCCf, 6Ce%Cb] T<a g%Cc T=a %Cd T>a %Ce T?a T^CU`_ Tg^%C^+ T@a 5T^CW`_ Th^%C^{ TAaT^CY`_ Ti^%C^ TBa%jSELZi%:;k  < = @l  Am  Bn  H! V. 9%:; < = @ A B ! H :  B ; Cao B < = +Cfo B @ RCgo B A yCho B B Cio B.  B  T%9 T+ap Tp%q%rco_aut+`%+ttrsacpconsproveedocom_operccprovchequesccpagper_provret_provdretprovdiariogconcepto rco_aut+`%+ttrsacpconsproveedocom_operccprovchequescomprascccompccpagiva_comper_provret_provdretprovdiariogconcepto ^%ttrsacpconsproveedocom_operccprovchequesper_provret_provdretprovccpag Zttrsacpconsproveedocom_operccprovchequescomprasper_provret_provdretprovcccompccpagiva_com%+ ?C$Ejercicio inexistente para la fecha C`* !!!o%p+  Tp+utrsacpTe_pagoPago%pdT+Cv%+H Tp `Tp |Tp+wtrsacpTe_pagoPagoH +n+%%xp  y %xp  ]3TzCC%%&6@z 9999,999,999_!T{C%Oa6C}z{|H7 )b%%LC%Se ha emitido el Comprobante de Pago CC%@z 9999,999,999_o ^?CSe ha emitido el Ajuste CC&@z 9999,999,999_o )WC0Se ha emitido el Comprobante de Pago Provisorio CC%@z 9999,999,999_o )7XC1Se ha aplicado el Comprobante de Pago Provisorio CC%@z 9999,999,999_o"~te_pagoz{ T + T C+ T + T  T T BUTRSACNOAPLINOAPLICTODOAPLI COMPROBANTESXFROMXNUMEROFCOMPROBAPLICADOIMPORTE XADELANTOXREFXCAUXFECREFPROVEEDOTEMPANT_PAGV_ACREDISIONOV_PAGADO V_APLICADOAAPLNORMALTYTEMPPAGOS V_EFECTIVOMAXCAN MAX_NO_OTRTIPO XADELLIBUXADELLIB P_IDXCOEFGENNCACC1ACC2COM_OPEROPERNOPAGONCOPERNINGRESOHAYRECXTIPOPAG MENSAJE_SINO XRESULTADO XMAXPAGOCHE XMAXPAGOCHPXRETGAN_ARR_RETXRETIB_ARR_RETXRETIVA_ARR_RETXRETCP_ARR_RETXRETAR_ARR_RET XRET_PAGASUMTIPO2 ARR_RET_IIBBPROVXRESXRECIBOX XNUM_PAGO_OK XNUM_GAN_OK XNUM_IB_OK1 XNUM_IB_OK2 XNUM_IB_OK8 XNUM_IB_OK14 XNUM_IVA_OK XNUM_CP_OK XNUM_AR_OK XNUMRETIB_1 XNUMRETIB_2 XNUMRETIB_8 XNUMRETIB_14CONSOPAGOXTOMO_GANANCIAS XNUMRETGAN NUEVA_RET_GANP_IIBB_REGIMEN_ESPECIALXREGIMEN_IIBB_GEN_ESP NRIB_BA_ENRIB_BA NRIB_CABANRIB_ERNRIB_MISP_RET_IVA_TIPOP_RET_GAN_TIPO XNUMRETIVANRETIVA XNUMRETCPNRCP XNUMRETARNRARXPREGUNTA_PAGOTE_OPAGO VLD_OPAGOXMSGVVLD_RETXFECHAXMSG_GANXMSGV1XMSGV2XMSGV8XMSGV14XMSG_IBXMSG_IVAXMSG_CPXMSG_ARP_EMPXRGANXRETIVAXRETCPXRETARMENSAJEAAAP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTLOCK_GBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORVOPAGOXCOMPROBXCAUSAUSER_LOG PUB_INDEXPAG_AGREGAR_IMPORTACION_DIARIOTE_PAGOXCOD_PRO XIMPORTACIONXRESULTTS_ID+ T-%G%C C B!%C xComentariobCy T<   T T TF G((oper% T C 999999999999_F #)%1T j TTF G((oper E%C4#6T T TKTCC6@z 9999,999,999_COA6TTF G((oper< J( T T%F G((opagoG(O E&+ C+ %12TTTT T!T"T ># >$%HG(F % %#>C6%I > d.%C&iC'(iC&HC'(H  F'>'(>')>'*>'(&>')')+,>'*'*- T. T/F0G((cuentaF1G((che_venF3%~CHP CHE %3CHE<F1G((che_ven #34%C' >5  8<C El valor C37 ya ha sido utilizado !!!6 B x%%C393 -3:8 t BT;;T3<T=1F #)F0G((cuenta E3 F TT37T3>T3 T39T3?F >@A&37"3?3< 3 BCC6@z 9999,999,999_COA6C&DEFGH&!39IJKL=MNO3OPC$Q3>R3S$%STUC3CHPSN64>VWX3XY3Y:3:7>Z1[\1B]1^1_%` ># T..3<3?&T//3<T3<F3G+( co_funcionesF3~EFE %3< F0G((cuenta E3 F T TC3cbT3>T3 TTT3>d> 3 C3cb"3?3<BCC6@z 9999,999,999_COA6@C&DEFGPC$HIJKL2MdNe$%STQ3>R3Sc3cM3f >VW%` ># T..T//3<T3< Tg Th Ti Tj TkF3~OTRTkk%3<F0G((cuenta E3 %C4 -C Error !!! Cuenta inexistente !!!6 B %k  Tj7 Th7Tii%Cl\\S[Tg3<c #%C3<3n3om  B Tp Tq Tr TsF0G((cuentaECHt%C4 E.C!Error !!! Cuentas inexistente !!!6 B z%CuTEF #)%Tp  TppTppF % >p pF0 Th7TiiF 2> CHtDIFERENCIA DE CAMBIO"&uBCp@z 9999,999,999_A@C&DEFGPC$HIJKLp4MdNe$NgmCSTQR >VW%` >#!TqCp@z 9999,999,999_ TrTsA&TCp@z 9999,999,999_ATTTu v Tq Tr Ts Tv Tw Tx Ty%zg =F0G((cuentaEC\t%C4 8.C!Error !!! Cuentas inexistente !!!6 B 9%CgT5F #)%Tv  TvvTvvF % >v  vF0 Th7TiiF /> C\tDIF.DE CAMBIO NO PAGADA"&gcBCv@z 9999,999,999_A@C&DEFGPC$HIJKLv5MdNe$%STQgcR >VW%` >#!TwCv@z 9999,999,999_ TxTyA&TCv@z 9999,999,999_ATTTg$%i {|  r Th% (F} T~%F}G((comprob2EC@z 9999,999,999_OCZCZ%C4  CINo se encuentra el comprobante de pago provisorio en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico.6 BT~~%/T~~C./ T T~~ T Tu TgF}G((comprobF~ $T B'%  T T T T%u/TCu c%g\/TCg cTCTF}%>BCC6@z 9999,999,999_COA6C&Cj6>CcT?MBNCDC'S D'6PC$ST$%CC6@z 9999,999,999_COA6CZCZC]5>C~ C~~66>TTTT4CrqsBC4CxwyBCF}G(( referencia)EBCZCZ%C4O+C+ <BCZCZMNCZCZ G%BCZCZBCZCZ>%>'T~&CC> 5>C C66 >&H CNo se encuentra el comprobante /B//CCZ/CCZ/CCZC )Debe ser resuelto por el soporte tcnico.6 B5ge02BCZCZ # T%#T T T%uo/TCu c%g/TCg cTCTTTTF}>BCC6@z 9999,999,999_COA6C&Cj6>c?MBNCDC'S D'6PC$ST$%CC6@z 9999,999,999_COA6CZCZC]5>C~ C~~66>T4CrqsBC4CxwyBCF}G((comprob)EBCZCZ%C4Y#>%>U#'T~&CC> 5>C C66 #\Debi encontrarlo : BCZCZCt B5ge02BCZCZ%CT& T T%uj$!TCu c%g$!TCg cTCTTCTF}>BCC6@z 9999,999,999_COA6C&>c?MCC6@z 9999,999,999_NCOA6PC$DC'S'6&ST$%CC6@z 9999,999,999_COA6CZCZC]5>C~ C~~66>TT"%C xImportacionbN2' TF>BCC6@z 9999,999,999_COA6C&C0000CCZR-C00000000CCZR%q((m(F G((comprobEC C%( C (TC %( C!%C oDocumentosbOz)$TCOA6TTCOPAAJ6CC6@z 9999,999,999_ C% *CWCC6@z 9999,999,999_COA6(Las retenciones se hicieron manualmente.[ T-%  *%CcTCT*cC-Error al registrar com_oper y ccprov !!! CCP=CCc Z vs COM=CC Z6C Suspendo?a B%* B  + BU XHUBO_ERRORXRECIBOX VLD_OPAGONOPAGO XCOMENTARIOARR_PAGOS_Y_AJUSTESXMAX_ARR_PAGOS_Y_AJUSTES XCONTROL_CCP XCONTROL_COMCOM_OPEROPERXFROMXNUMEROFCONSP_TE_OERACION_VERSIONNCOPERPAG_OPERSYS_OPERACION_FONDOS OPERACIONNUMOPAGONUM_OPERXNUEVO_COMPROBANTEDESCVALMAXDESCACCUMOPAGOCAUSAXCOD_PROCOD_PROTIPODES_VALCAJ_PROCUENTANUMERO DIF_VALORAPLICCOEFICXCAMBIOXFECHAPROVEEDO FECULTPAG ANTPAGGAN ANTRETGANXNETOXNETOADEXRGAN N_ACUMULADO N_COCIENTECUENTASCHEQUESCHE_VENPAGOSREGISTROFLAGMENSAJEDESCRVLD_CHPNUMINTECHEQUE XMAXPAGOCHPPESOSXTIPOIMPORTEVENCORDENFEC_RECCOMPROBFECHADES_PROV XOTRO_PROCOD_CENXCENTROEMISIONAGENTEXAGENTECOMISION XCOMISIONREFCAUSUBNUMHOYMONEXTMONPASEMONEDAXMONEDAPROPIOUSR PUB_INDEXBANCHQNUMCHQOCODIGOCODIGOOCOMPROBOCAUSAOPASEPASEXTIPOPAG CO_FUNCIONES FN_SUBTIPOSUBTIPOXREFXCAUREFINT XDIF_CBIO_NCXCOMENTXCOMENTAXAJ_CC XMAXPAGOOTRATRIBUTOOTROS PROVINCIAPROVNAJUSTEXNUMFXSUCUXCAUSATRCANXDIFCBIO NAJUSTE_NCXNUMF_NCXSUCU_NCXCAUS_NC P_MULTIMONCHE_TER V_EFECTIVOCCPROVN_DIASDIASACCCCLV_PAGADO ACCDIFCBIOACCDIFNC COMPROBANTESDIFAPLICADOSALDO XAJUS_USSXDCXDC_NCCLC_DIFTMPDIFS DIFCBIOAPLXDIFCDUE CLC_DIF_NCCOMENTARBULTOSOPERACIOMOTIVOCUOCUOTAFECREFTARJETANOMBREIDIDUOPOPR DIFCCPROV DIFCCPROV_NC REFERENCIAADELANTOXNEWDIASCANCELFN_CANCGE02XNUMRECXDIASTMPERR_HAND XIMPORTACIONCCPAG COMENTARIOUNXUNIMPORTACTOT_PAGRECIPROVXRECIBO_PROVEEDOR_SUCXRECIBO_PROVEEDOR_NUM GANANCIASXCODIGO_GANANCIASP_ASIAUTZZZ REG_ASIENTOP_IMPUESTO_AL_CHEQUEIMPUESTO_AL_CHEQUEWRITE_COMPRA_CONTADO ODOCUMENTOS CPBT_CAUSACPBT_COMPROBANTEIMPORTAR_ARCHIVOS_PENDIENTES XRETMANUALUSER_LOGTRSACP_CONTROL_PAGO_CCP_COMSYS_MOSTRAR_SCREEN#4% T  TCTF  >  DIFERENCIAS DE CAMBIOcNgmC !C$" CZCZ#C]5>$C% C%%66T&&!T' CZCZG((comprob E'%C4#>((%(G(( referencia E'%C+  T*CO T+/+C+ ' CZCZ %+ T+H #*/+C+ ' CZCZ  >,+H CNo se encuentra en comprobante ' en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico.-B-BU.XSUCXNUMEROFXCAUSAXREFXCAUXCUOXOPRXFECREFXDCACCCCLCCPROVCOD_PROXCOD_PROCOMPROBCAUSAFECHAXFECHACOMENTARIMPORTEVENCMOTIVOREFCAUFECREFCUOTACUOOPRDES_PROV XOTRO_PROSUCCOEFICMONEDAXMONEDAHOYIDIDUDIASN_DIAS XCONTROL_CCPTEMPADELANTO REFERENCIAREGXFEC_CCCANCELMENSAJE#4% TCTT  F >  DIF.CBIO.NO PAGADA !"C$# CZCZ$C]5>%C& C&&66T''!T( CZCZG((comprob E(%C4>))%)G(( referencia E(%C+  T+ T,CO/+C+ ( CZCZ %+ T+H #,/+C+ ( CZCZ  >-+H CNo se encuentra en comprobante ( en la cuenta corriente.C )Debe ser resuelto por el soporte tcnico..B-BU/XSUCXNUMEROFXCAUSAXREFXCAUXCUOXOPRXFECREFXDC_NCACCCCLCCPROVCOD_PROXCOD_PROCOMPROBCAUSAFECHAXFECHACOMENTARIMPORTEVENCMOTIVOREFCAUFECREFCUOTACUOOPRDES_PROV XOTRO_PROSUCCOEFICXCAMBIOMONEDAXMONEDAHOYIDIDUDIASN_DIAS XCONTROL_CCPTEMPADELANTO REFERENCIAXFEC_CCREGCANCELMENSAJE4F6> CC   6@z 9999,999,999_ C OA6  C$ 3 !"#$%&'# >()%*~ >+>,-.listados >0>12>,- T33T44T55F6'%C7L\S8 F9 >:;F><=> >?;rret_prov1@&  ABCDEFG;=>CC   6@z 9999,999,999_C OA6HIJKLM$%N1 N& _C0Error al registrar la retencin de ganancias !!!C El pago no se realizar.OTPFQ ~rdretprov   RS@TUVWCC   6@z 9999,999,999_C OA6Q Q QXQYQ@QZQ[Q\Q]F>2;F6'%C7g\S^ %C_ T`C_TaC_TbC_TC_F9H  I)%cc d %`e >e`   E%`f7 >f` A %`g| >g`  %`h >h`   %`i >i` F >?`rret_prov1@&  0FBjW`abCC   6@z 9999,999,999_C OA6Ccd  6C _C _$%N1 N& ZC+Error al registrar la retencin de IIBB !!!C El pago no se realizar.OTPFQ ~z Fk G((id+EQ Q CQXZCQYZCZH  \ !TmC_C_TnC_C_ 2 Tm Tn%C4v rdretprov   RS@TU0oWCC   6@z 9999,999,999_C OA6k k kXkYk@kZkpmnF>2`F6'%C7x\Sq ] F9 >rsF >?srret_prov1@A&  BCDEFsttCC   6@z 9999,999,999_C OA6uvwx$%N1 N& M YC*Error al registrar la retencin de IVA !!!C El pago no se realizar.OTPFQ ~B rdretprov   RS@TUVWCC   6@z 9999,999,999_C OA6Q Q QXQYQ@QZQyQzQ{F>2sF6'%C7\S| =F9 >}~F >?~rret_prov1@&  BCDEF~CC   6@z 9999,999,999_C OA6w$%N1 N& ZC+Error al registrar la retencin de SUSS !!!C El pago no se realizar.OTPFQ ~"(TCQ QQ@6rdretprov   RS@TUVWCC   6@z 9999,999,999_C OA6Q Q QXQYQZQQQF>2~F6'%C7\S EF9 >F >?(TCQ QQ@6rret_prov1@&  BCDEFCC   6@z 9999,999,999_C OA6w$%N1 N& ZC+Error al registrar la retencin de SUSS !!!C El pago no se realizar.OTPFQ ~*(TCQ QQ@6rdretprov   RS@TUVWCC   6@z 9999,999,999_C OA6Q Q QXQYQZQQQF>2F6%C7L\S8 C7g\S^  C7x\Sq  C7\S|  C7\S   ?  xUC)Problemas al registrar el comprobante !!!C Retencin sin nmero.OTPBaUXIMPORTE XPROVINCIAXPROVCOM_OPERCUENTAPAGOSDES_VALDESCRCAJ_PROCOMPROBNOPAGONCOPERCAUSAORDENFECHAXFECHACOD_PROXCOD_PRODES_PROV XOTRO_PROCOD_CENXCENTROOPAGOHOYEMISIONAGENTEXAGENTECOMISION XCOMISION OPERACIONTIPOREFCAUCOEFICXCAMBIOMONEDAXMONEDAMONEXTIMPORTEMONPASEUSR PUB_INDEXXTIPOPAGAPLIC DIF_VALORVENCPROVINCIA_LET_A_NUMLISTADOS PROVINCIANUMERONUMINT N_ACUMULADO N_COCIENTE XCONTROL_COMCUENTASATRIBUTOXRGAN2CONSNRETGAN XNUMRETGANNETOGANXNETOXNETOADE GANANCIASBASEBASECALCREGIMENIMPUESTODEBEHABERVERSIONCODXBASEGANXRETGAN_REGIMENXRETGAN_IMPUESTOXRETGAN_ADEUDADAXRETGAN_CANCELADAXCODIGO_GANANCIASRET_PROVMENSAJE TTS_ERROR COMPROBANTESCUOOPRAPLICADO RETENCION RETDEBIDARETANTCUOTAOPBASEAPLRETGAN RETGANDEB RETGANANTXRETIB2 ARR_RET_IIBB XNUMRETIB XNETO_RETIBXNETOADE_RETIBP_IIBB_REGIMEN_ESPECIALXREGIMEN_IIBB_GEN_ESP NRIB_BA_ENRIB_BA NRIB_CABANRIB_ERNRIB_MISPAGOANT TMP_RETIBIDXAPLANTXRETANTAPLANTRETXRETIVA2NRETIVA XNUMRETIVA XNETO_RETIVAXRETIVA_REGIMENXRETIVA_IMPUESTOXRETIVA_ADEUDADAXRETIVA_CANCELADARETIVA RETIVADEB RETIVAANTXRETCP2NRCP XNUMRETCP XNETO_RETCPXRETCP_REGIMENXRETCP_IMPUESTOXRETCP_CANCELADAXBASE RETCPBASERETCPRETCPDEBRETCPANTXRETAR2NRAR XNUMRETAR RETARBASE XNETO_RETARXRETAR_REGIMENXRETAR_IMPUESTOXRETAR_CANCELADARETARRETARDEBRETARANTY TC T-G+( cm_compraFF Ta#) T%#) T Ta  #T T- T +CO@% C C C   o cs_generar FT CtempcompO > >>>   !!""##$$%%&&'(>))*C++6!d "d #d $d %d &d C>,-./0123C44>5CPCCZX>  667N89:;a<<==f>>?+@AABCCE\DDEC$FF>GGHH >I %J x TKLTM-TN TO "TPCKMNOQ TRLTSTTU TVCRSUWF >-P >,P >TV?X cm_compraC ZP Y4ZFH$%CO   T-F #T%B-[(\.%C[]C[] Rriva_com^_`C[]C[]C[] Ta Tb Tc Td Te Tf9 Tg Th Ti TjT/k cm_compraFl!>llmCln>5>opq:rstu*v?>wxyz{|}~?>"./{> CS69'(0123C!>5CPCCZ">6S,-?>D >+>EC$?!>>+TCll3- > > cm_compraOFp>CC6@z 9999,999,999_3O~"%C ccpag.id_extbC1 >%N CBUXID_EXTXERR_CENTRO_DE_COSTOS CM_COMPRATEMPCOMPIFLAGCONSTMAXYIMAX_PRODMAXYNXITMCOD_INSOBIEDATA_CODIGO_VACIOCOD_CUECOS_LIFO RECEPCIONACTUALIZAR_COSTO_COMPRAS CS_GENERARBULATRXFECEMIXMONEDAP_CODEMPCOMPRASPAGONOPAGOIMPORTACARTCOD_PROXCOD_PRODES_PROV XOTRO_PROFEC_COMDES_INSDESC2DESC3DESC4DESC5DESCXOFEC_DGIXFECDGIKILOSTOT_COMCOEFICCOD_CENCENTROORDENXORDENREM_COMXNUMEROROPCAUSADESC_INSFAC_COM INVENTARIOACTUALVENCXFECENTXPLAZOTABLACOD_ALTNOM_ALTCOEFMONEDAXCOEFICGRAVADAAFECCOMIATRIBUTOCOMISIONHOYIVAPERSOLSOLITMITMP_GESCOMXTMP_CEN_GLOBALXCENTROXTMP_CEN_LOCAL XTMP_CEN_ART XTMP_CEN_CUEXCENTRO_DETERMINADODETERMINAR_CENTRO_DE_COSTOSXTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCAL SUBCENTROXTMP_SUBCEN_ARTXSUBCENTRO_DETERMINADODETERMINAR_SUBCENTRO_DE_COSTOSDATOS_POR_ITEM_GUARDARCPBTTXT ADICEXPORTZIVA MAXARR_IVAARR_IVATASAIVAIVA_MO V_EFECTIVOANT_PAGOANT_ACREMAXCANABONAXFEC_COM V_ANTICIPOV_CUOTAV_FINANNCRED REG_VARIOSCCCOMPDTVERSIONANTICIPO XANTICIPOPLAZOCUOTAXCUOTAINT_FINXINT_FINT_TOTAL IMPONIBLET_TOTIVAIVAINVT_IVAINVINVT_INVDEUDAT_FINALREDONDEO T_REDONDEOIBT_IBDESC1T_DESC1T_DESC2PLANXPLANFIJOXFIJODESCPLAN XDESCPLANIVA_COMT_IVAIVA_NCT_IVA_NCSUBDXSUBDFEC_ENTFAC_COM2XNUMEROFP3337T_3337DES_COMT_DESCOMIVA52T_IVA52 XCOMI_COMAGENTE XCOMPRADORMOTIVOXMOTIVOREFXREFCAUXCAUIMCOM1T_IMCOM1IMCOM2T_IMCOM2IMCOM3T_IMCOM3IMCOM4T_IMCOM4IMCOM5T_IMCOM5IIT_IIII2T_II2CUITXCUITCOFINXCOFINIVACATXCATIVATIPOIVAXTIPOIVALETRAXLETRAUNXUNLUGARIB XLUGAR_IIBBXCAMBIODIVXDIV XFCE_TIPO2FCE_TIPO XFCE_TIPOUSR PUB_INDEX REG_PERCEP_IBCCPAGCOMPROBNCOPERFECHA COMENTARIO XCOMENTARIOTOT_PAGID_EXTP_ASIAUT REG_ASIENTO 4%Cpagos(FQh1\tmp\CCN NNC  C  C< N  N  DNCLCNCCNN N N NNNCNLQ\tmp\BUXPAGOSPAGOSP_LOCALTIPODESCRNUMEROIMPORTEMONEDAABREVCUENTACUEDESCRNUMINTSUBNUMVENCCLEARINGPUEBLODIFERIDO PROVEEDORPESOSBANCDEP PROVINCIAPOSIREGISTROBANCHQNUMCHQTIPO2PROVSUBTIPOREFINTBASERETECHEQUE T-?5     < 5o comprobantesCM T %   ;       !"   !#$  !%&   T'F ~T''(%' T)  T)#te_pregunta_retenciones(+Ha ) T' T, T,'F ~%,(>-(T(T,,( >-,T, T, )0 T T T' 2a T T T' T T T T. T/ T T0F! T T1 T T  T  T2 T  T  T T3 T4 T  T5 T  T T6 T C7F>- T T%)T9C:%C9 !C9;T  <te_procsT>T?@%)TA'TBCCTDCCTECCTFCC TG4 T3 T4 C7TCBTCDTCETCF T4G  T T T T T T. T T0%-H0I T T1 T T  T  T2 T  T  T5 T  T T6 T BUJXHAYRETV_PAGADO V_APLICADOXNETOADEXNETOXRGANXPAGOANTXRETIBXNETOADE_RETIB XNETO_RETIBXRETIVA XNETO_RETIVAXRETCP XNETO_RETCPXRETAR XNETO_RETARARR_TMPCOUNT COMPROBANTESLETRAIVACAT2XHAY_RET_IVA_Y_GANXCODIGO_GANANCIASP_CODEMPP_DOSCONS HAYRET_GANXFROM IIBB_CABAIIBB_BAIIBB_SFE IIBB_ER_RIIBB_MISPROVEEDOIVACATRETCP HAYRET_CPRETAR HAYRET_ARXIMPORTE_TOTAL_A_PAGARSALDOVERXTIPO_PAGO_RETENCIONESTE_PREGUNTA_RETENCIONESXRESXACCAPLICADOXRGAN2XBASEGANXRETANTXRETIB2XRETIVA2 XERR_RETIB XMSG_RETIBXRETCP2XRETAR2CALCULAR_RETENCIONESALLXMSG_REGREGISTRAR_EN_PAGOSMENSAJEAPLICARTE_PROCSV_ACREDI XSALDOCOB V_PARCIALXSALDO_SOBRE_PREVISTOXOLD_ARR_RET_IIBB_1 ARR_RET_IIBBXOLD_ARR_RET_IIBB_2XOLD_ARR_RET_IIBB_8XOLD_ARR_RET_IIBB_14XOLD_XMSG_RETIB CALC_PAGOSXFECHA 5 Ta Tco_pagosa% T?C(Error al registrar el asiento contable: C 'CError al registrar asientoBU XRESULTADOXMSG REG_ASIDIACO_PAGOS TTS_ERRORMENSAJESYS_M,4TC%%Cgan_1GFQF% ocom_operret_provCQ    $C CCC CL   gan_1 Tocom_operret_provproveedoCQ        CL   C gan_1T %Cgan_1!FQBUXPAGOANTXRETANTXFECHAXBEGGAN_1COM_OPERP_TE_RETGAN_TIPOSUMCAJ_PRORETANTRET_PROVCOMPROBCAUSACOD_PROFECHAXCOD_PROCUENTAATRCANTIPOCODXCODIGO_GANANCIASXCUITPROVEEDO INSCRIPCIO^H! xToret_provC   CiCi  ooret_provC   CiCi CCH8CCH8  2!T B% @ B W BU P_RET_GAN_TIPORET_PROVNUMEROFECHATIPOXFECHAXNUMRETCONSNRETGANaTF ~QTC > BU XIMPORTAC COMPROBANTESOBTENER_IMPORTACIONCOD_PROCOMPROBCAUSAIMPORTAC& F G((op E%C4 CB-TT$TC-occprov  tmpgref ~% OC    C   UXOPXIMPXREFCCCOMPOPCOD_PROFAC_COMCAUSAOBTENER_IMPORTACIONCCPROVREFCAUTMPGREFPAG_AGREGAR_IMPORTACIONCOMPROBPAG_AGREGAR_IMPORTACION_DIARIO; TC%CCompras ^QcomprasF TCO TCTCexactvTCNearvGGF G((comprobE++C+    W%! T O%K TH%| T%CN#6%C+ H  # set order to &xord set exact &xexact set near &xnear %C +select &xalias  BU XTCOD_PRO XTCOMPROBXTCAUSA XTIMPORTACXRNXORDXEXACTXNEARXALIASCOMPRASCOMPROBFAC_COMCAUSACOD_PROIMPORTAC= F(pccpagU XTCOMPROBXTCAUSACCPAGIMPORTACCOMPROBCAUSAoccprovXcompras      C   tmppag13otmppag1CQ tmppag2-otmppag2CQtmppag3FG((comprob E>  T F QFQFQU XTCOMPROBXTCAUSAXTNEWIMPCCPROVCOD_PROCOMPROBCAUSACOMPRASFAC_COMIMPORTACFEC_COMREFCAUTMPPAG1T_CPBTSTMPPAG2T_IMPTMPPAG3CCPAG_ 5TCDiarioGFG((comprobE%yB- T- co_aut %. %pdiariog   &pconcepto  *% XF QFQU XTCOD_PRO XTCOMPROBXTCAUSA XTIMPORTAC XRESULTADOXDGUSADOCOM_OPERCOMPROBASIDIASELECCIONAR_EJERCICIOCO_AUTFECHADIARIOGIMPORTACASIENTOCONCEPTO  TCWH(q C$ -%CC TTIT0BA: La base imponible no supera el mnimo de 400 C$ -%CC TTJT1BA: La base imponible no supera el mnimo de 2000 2q-%CC8J mTTKT2BA: La base imponible no supera el mnimo de 19000%C TH CiT 2T'%C TTKT2CABA: La base imponible no supera el mnimo de 100%C' TTGT.ER: La base imponible no supera el mnimo de 0,%CC2 TTDT+MIS: La retencin no supera el mnimo de 50BUXAREA XMIN_CABAXFECHA ARR_RET_IIBB T TF~EFE%FG((cuenta E%Cctasbanc QctasbancFG((cod_cue E %C4TT C CPAJ6 CCC   6@z 9999,999,999_9T CC6d T% %QFG((asiento#6TF >FG((asiento E%C4 R>#Impuesto a los Dbitos y Crditos. 3FT> L !"#N$C$% &'()*+ ,FT> L !"#N$C$% &'()*+ ,%!CcuentascuentaF-7>.C0/1 2 C@z 9999,999,999_3L4 567$C$89:;2<=()>+ ,?@ BUAXASIENTO_IMPCHEXPASEPAGOSTIPOPESOSCUENTASCUENTACTASBANCCOD_CUEABREV XCPBT_IMPCHEQNUMOPAGONUM_OPERXIMPUESTO_AL_CHEQUECONS IMPDEBCREDIARIOGASIENTOCCPAG AS_IMP_CHECONCEPTOUNTIPO2DEBITOCREDITOXCUENTA_IMPDEBCREPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOHOY COMENTARIO SUBCENTROCAMBIOXCAMBIOMONEDAMOTIVOMONEXTMONPASECOM_OPERDES_VAL FN_SUBTIPOSUBTIPO DIF_VALORCAJ_PROCAUSAORDENCOD_PRODES_PROVOPAGOEMISIONAGENTECOMISION OPERACIONREFCOEFICXMONEDAUSR PUB_INDEXV4 T- T%Cproveedo YQproveedo%&%Cproveedocodpro Ta&TProveedor inexistente !!!B% T- T K Ta2T%Constancia de Inscripcin Vencida !!!BUXESTADOXMSGXFECHAXCOD_PROPROVEEDOCOD_PROVENCINSC2 4%C$ 0 B%Ccccomp ^Qcccomp<  #TCCiCHC%$ THocccompCQ C    %  B + BCU XCOD_PROXFECHACCCOMPXMONTOXDFECHAXHFECHASUMTOT_COMDES_COMIMPORTEFEC_COMCOD_PRO T T%Cmotivos aQmotivosTC C Ganancias T T T  T TC%0%   %l TTT'%3% /C Ganancias %  T T %Cgan_1#F!Q%Cgan_2HF"Q T% 8 %#=ocom_operccpag$%C$&Q'()$*$%$+(%(+$C$*C$,CC $+O () $%()gan_1 5-T-.ocom_operccpagproveedo$%C$&Q'()$*$%$+(%(+$** .- $+O () C$, $%()gan_1 T ~ T(T!*!%OCZCZFoccprov/*/%/+C/0ZC/1Zgan_2 ~K T"2%"3Ccd3%"3Ccd=F4 G((op E"5%C6iTC6 TC6 T7a%4+cd'%C48motivoscodigo %C9   T7-%4:V9 T7- R T7-%7WTCC;C4<C=4>6 4?4@6"2A T G TC6&%"3L "33  TB TC-TD*E co_funciones"GBCD%CFHG((asientoECC"J,g)+C+ ICC"J,g %K"L!H/%ICC"J,g K"L !%HMN b"T"2HNHM  %OT"2P    C % -TQPCRS R6  TQ!T"2Qd  %!' C:Error en la cuenta del proveedor (Diferencia en gan_1) !!!C 0No acepte el pago y consulte al soporte tcnico.S%Cgan_1 F!Q%Cgan_24 F"Q B FT>U%C6N TC6 w TC6 T7a%4+cd '%C48motivoscodigo %C9  T7-%4:V T7-%7:FTXXC;C4<C=4>6 4?4@6<%4\AM 4] T[4A  FTYYC;C4<C=4>6 4?4@6>T^aST_CC;C4<C=4>6 4?4@6T[A TT_FTL>`C;C4<C=4>6 4?4@6U_&%4\AM 4] )TW4]C4]W 6TWCW TC6TWCW%T+L TB TC-TD*E co_funcionesT,BCD%CFHG((asientoECCT%,g)+C+ ICCT%,g v%KT0n!HH%ICCT%,g KT0 Ta N +TXXHN#T_CT[HNTa TT_FT>`HNU_ %O)TXXCTaPd  T%T_CT[Pd  TT_FT/>`CTaPd  TU_  )TXXCTaPd  T%T_CT[Pd  TT_FT/>`CTaPd  TU_%Z )TW]C]W Tbc(.%CcW*Tbb%b Td TrCeNo se pueden pagar simultneamente comprobantes con de distinto tipo (por ejemplo: letra M con A) !!!S B%` Td TLC?No se pueden combinar facturas comunes con lquido producto !!!S B% Te Td%fg7%-TQPCRS R6  TQTdfgQd  TdCdT T%CW|0ThCiCCW ?6TCXYhd TTCTTXY TjHx CWgFTkComprobante M, retiene CCh Z % de ganancias. Tlc T CWUTk&Comprobante A con leyenda, retiene el CCh Z % de ganancias.Tl T CWxXTk)Comprobante A con CBU informado, retiene CCh Z % de ganancias.Tl T  %del%m c"Tdend %6%eTd 2Tde M TTCT h TTodTpoe%p T d%pCqTpCqd `%pCqX3TCqpCqCqd  \%pCq3TCqpCqCqd  X%pCq3TCqpCqCqd  T%pCq]3TCqpCqCqd  P%pCq3TCqpCqCqd  L%pCq 3TCqpCqCqd  H3TCqpCqCqd TCTTjCrs%j  T T%t+Hu Retencin de Ganancias : @z 999,999.99  h+Tk Excepcin: C* a C* TCv  BUwXRGANACC_NETOACC_PAGOXIDXBEGXES_LPXBASEGANMOTIVOSXHAY_MHAY_MSYS_MXRETGAN_ADEUDADAXRETGAN_IMPUESTOXRETGAN_DEBIDAXFECHAP_CODEMPP_DOSXFROMCONS HAYRET_GANPROVEEDOIVACATXRET_PORCENTAJE_G XEXCEPGAND XEXCEPGANHIIBBPER_VIGENCIAXCOD_PROXCODIGO_GANANCIAS CALC_PAGOSXPAGOANTXRETANTXNETOZGAN_1GAN_2P_TE_RETGAN_TIPOCOM_OPERCOMPROBCAJ_PROTOT_PAGOCCPAG GANANCIASCOD_PROCAUSAFECHAXCUIT INSCRIPCIOCCPROVCUOTAOPIMPORTECAUCCCOMPOPRES_LPXRETIENEMOTIVOTIPOLUGARIBP_RETS_VERSIONVERSIONBASE_GANANCIASIBTOT_COMDES_COMDEUDAXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESFECREFDIARIOGASIENTOREFPASECUOCREDITOAUX1NP_TE_PAG_RETGAN_ASIVAXPERRG3337MENSAJE COMPROBANTESBASEAPLALLXLETRA_M XTOTAL_NETO XNO_RET_MXHUBOAPLICADOLETRAIVACAT2NO_RET_MXTMPBASESALDO XTIPOS_CPBTZZZXNETOADEC_MINGANV_PAGADO V_APLICADO XALICUOTA_MRETGAN_ALICUOTA_M XMINIMO_GAN GAN_CATEGORIAXRETGAN_REGIMEN GAN_TABLAC_RETGANXTOTNETOMONTOGAN_ARR OLOCALIZACIONMINIMO_RETENCION_GANANCIASP_RETGANMANUALGUI_GETCALC_RETGAN_MONOBU4%Ciibbret KQiibbretF G((idA- C ZC ZCZCZ C %C4 T T T TBUXCOD_PRO XPROVINCIAXCODIGOXIBPERXIBPERDXIBPERHXFECHAIIBBRETIDCOD_PRO PROVINCIACODIGODESDEHASTAALICUOTA'%C tmp_retib Fh1\tmp\C CN N NNN NQ\tmp\ $& CZCZCZ F SBU P_LOCAL XTMP_RETIBCOMPROBCAUSACUOTAOP PROVINCIARETBASEBASEAPL TMP_RETIBID TCW%CEmpresas IQ \empresas%F- FBUXAREAP_SYSTEMEMPRESASCODIGOP_CODEMP%%T dHN$ CC? T, CC%@? T%@$ CC? T 2   BU TOT_COMDES_COM XIVA_CALCCCCOMPIVA_COMIVA_NC XTASA_ASUMIDACONSIVA/4  %  T a%$%  C%B B C$  TC  T TTT'%<.sys_padron_iibb%%CT ET! BA: Alcuota CC Z en el padrn )%C$   TAT!BA: Se toma alcuota CC Z%  T-T!No figura en padrn.  T(T! BA: Error:  T"a dT!BA: Excepcin. Alcuota CC Z %. Vigencia: C* al C*TCd TT!T!T!$T!C!$T!C!F# G((idECZCZCZ%C4 5>%&'(!>)*+  T -%CC!pfT!ABs As: Por lugar de ejecucin/entrega no corresponde retencin a:C C @T!C!  C  T ~ T -%, .6T!BA: Exento (Rgimen Especial) m5T!BA: Exento (Rgimen General) T  T -6T!BA: Solo agente de percepcin T&T!C!C BU- XNETO_RETIBXRET_BAXXCOMPROBANTES_COMPROBXXCOMPROBANTES_CAUSAXXCOMPROBANTES_CUOTAXXCOMPROBANTES_OPXXCOMPROBANTES_TIPOCPBTXXCCCOMP_LUGARIB XXCCCOMP_IBXXCCCOMP_DEUDAXXCOMPROBANTES_APLICADOCONSIIBB_BAXCORRESPONDE_RETENCIONP_IIBB_REGIMEN_ESPECIALPROVEEDOIIBBCMPAIS PROVINCIAP_RETIB_VERSIONXFECHAXRET_PORCENTAJEXIBPERDXIBPERHIIBBPER_VIGENCIAXCOD_PROOOBJOBTENER_PADRONSYS_PADRON_IIBBXERRXMSGXCUITRETENC ARR_RET_IIBB XERRPADRON TMP_RETIBIDCOMPROBCAUSACUOTAOPRETBASEBASEAPLXREGIMEN_IIBB_GEN_ESP/4   T %  Ta T T T$%  "%C TC  TTT'% T6TCABA: Alcuota CC Z T T4sys_padron_agip_nuevo! %%CST "HTCABA: Alcuota CC Z en el padrn. %T@xTCABA: Alcuota CC Z>. No figura en el padrn pero la operacin se realiz en CABA.  TxTCABA: Alcuota CC Z>. No figura en el padrn y la operacin no se realiza en CABA. /TC CABA: C# KbTCABA: Alcuota manual CC Z %. Vigencia: C* al C*TCd TTTT$TC$TCF$ G((idECZCZCZ%C4 w5>&'()*!>+,-  T-%CCVT=CABA: Por lugar de ejecucin/entrega no corresponde retencin%C ^TC a:C C C  C  &TCC   T-%T CABA: ExentoBU. XNETO_RETIB XRET_CABAXXCOMPROBANTES_COMPROBXXCOMPROBANTES_CAUSAXXCOMPROBANTES_CUOTAXXCOMPROBANTES_OPXXCOMPROBANTES_TIPOCPBTXXCCCOMP_LUGARIB XXCCCOMP_IBXXCCCOMP_DEUDAXXCOMPROBANTES_APLICADOOOBJCONS IIBB_CABAXCORRESPONDE_RETENCION XMSG_IIBBXRET_PORCENTAJEPROVEEDOIIBBCMPAISCCCOMPLUGARIBP_RETIB_VERSIONXIBPERDXIBPERHIIBBPER_VIGENCIAXCOD_PROXFECHA ARR_RET_IIBBXERRXMSG3OBTENER_PADRONSYS_PADRON_AGIP_NUEVOXCUITRETENCMENSAJE TMP_RETIBIDCOMPROBCAUSACUOTAOP PROVINCIARETBASEBASEAPL{/4   T % p Ta T T T$%  .A%N'CMbP?  TC  TTT'%2TC{Gz @ \(\?6:TMISIONES: Alcuota CC Z AfTMISIONES: Alcuota manual CC Z %. Vigencia: C* al C*TCd TTTT$TC$TCF G((idECZCZCZ%C4 m5> !!>"#$ * T-%CC&gTHMISIONES: No corresponde por no ser de Misiones o bajo coeficiente en CMC  l T-)TMISIONES: ExentoBU% XNETO_RETIBXRET_MISXXCOMPROBANTES_COMPROBXXCOMPROBANTES_CAUSAXXCOMPROBANTES_CUOTAXXCOMPROBANTES_OPXXCOMPROBANTES_TIPOCPBTXXCCCOMP_LUGARIB XXCCCOMP_IBXXCCCOMP_DEUDAXXCOMPROBANTES_APLICADOOOBJCONSIIBB_MISXCORRESPONDE_RETENCION XMSG_IIBBXRET_PORCENTAJEPROVEEDOIIBBCMPAIS PROVINCIACONVENIO_COEFICXFECHAXIBPERDXIBPERHIIBBPER_VIGENCIAXCOD_PRO ARR_RET_IIBB TMP_RETIBIDCOMPROBCAUSACUOTAOPRETBASEBASEAPLT4jocom_operQCCCCC$ cur_1_retno cur_1_retQdretprovQC  Q   cur_2_retT %C cur_1_retFQ%C cur_2_retDFQ BUXRETCOMPROBCCAUSACOM_OPERCOD_PROFECHAXCOD_PRO CUR_1_RETSUM RETDEBIDA RETENCION RETADEUDADADRETPROVDTIPO CUR_2_RET XRET_ADEUDADAi4jocom_operQCCCCC$ cur_1_ret<   go cur_1_retQret_provQ C Q   C   % T C  0 T -%C cur_1_retYFQ B UXRETCOMPROBCCAUSACOM_OPERCOD_PROFECHAXCOD_PRO CUR_1_RETXRETENCIONES_MONOXHUBO_RETENCIONES_MONOSUMRIMPORTERET_PROVTIPO%  B T%  T-H`J UTHNo se ha clasificado el proveedor segn el tipo de venta que efecta !!! B %@  Ta J%@F Ta% T T  T F ~% F G((comprob#E   C Z%C4%FG((comprob'T   C Z E%C4%T %%@T $T  zG?T   j T TGT:Error en alguno de los comprobantes o no es una compra !!! BF G((ref%E  C ZC Z TG+C+ 4  C ZC ZCZCZ &% T!HF 5>"#$  % T  T   T TC&'(FT) T* T+F ~ %+"#NT++"#>,"# r >,+ T+%+! BU- P_RET_MONOXRETXFACTURACION_ULTIMO_ANOXMONO_YA_HUBO_RETENCIONESXHAY_RE_IVA_MONPROVEEDORETMONO XERROR_RETIVAXRETIVA_REGIMENXRET_DEBIDA_ACC XRET_ANTERIOR COMPROBANTESAPLICADOCCCOMPCOMPROBCAUSACOD_PROOPCOMPRASXIDIVAPER XRET_DEBIDATOT_COMDES_COM XNETO_RETIVADRETPROVREFCUOTA XACCRETANTCAUCUOOPRTIPO RETENCION RETIVADEB RETIVAANTBASEBASEAPLV_PAGADOXRGANXRETIBXRETIVA_ADEUDADAXRETIVA_CANCELADAXACC1RETIVA% wT)Monotributista - Facturacin ltimo ao: CC Z/ - Retenciones a monotributistas no habilitadas B T% \ T-H KUTHNo se ha clasificado el proveedor segn el tipo de venta que efecta !!! B %@  TaT  % TaT %X T  T  T F ~a% SFG((comprob#E   C Z%C4$Tffffff?T 5 T TGT:Error en alguno de los comprobantes o no es una compra !!! BF G((ref%E  C ZC Z TG+C+ 4  C ZC ZCZCZ %THF 5> !"# T  T   ]T TC$FT% T& T'F ~ T%' !T'' !>( ! 5 >(' T'%'P!DT)Monotributista - Facturacin ltimo ao: CC Z BU) P_RET_MONO GAN_CATEGORIAXFACTURACION_ULTIMO_ANOXRETXMONO_YA_HUBO_RETENCIONESXHAY_RE_GAN_MONPROVEEDORETMONO XERROR_RETGANXRETGAN_REGIMENXRET_DEBIDA_ACC XRET_ANTERIOR COMPROBANTESAPLICADOCCCOMPCOMPROBCAUSACOD_PROOP XRET_DEBIDATOT_COMDES_COM XNETO_RETGANDRETPROVREFCUOTA XACCRETANTCAUCUOOPRTIPO RETENCION RETGANDEB RETGANANTBASEBASEAPLV_PAGADOXRETGAN_ADEUDADAXRETGAN_CANCELADAXACC1RETGAN!%  Roret_provQ ccpagQ CQ    BC  BUXTIPOPAGPROVEEDOIVACATXIMPORTE_ADEUDADOSUMDEBEHABERIMPORTERET_PROVRCCPAGCCOMPROBCAUSA!%  Roret_provQ ccpagQ CQ    BC  BUXTIPOPAGPROVEEDOIVACATXIMPORTE_ADEUDADOSUMDEBEHABERIMPORTERET_PROVRCCPAGCCOMPROBCAUSATC% T T T T  T  T  T  T  T T- %  <$opagosC% *TC A TF#) >T  TFK( #)IT<Ret. Contrib.Patronales: Personal eventual. Retencin manual Ta %  lT@ TT  T TF %Ccp_1F!QWocom_operC"Q#C$C%&C&C'C( cp_1T!#%Ccp_1 F!Q%Ccp_21F)Qoocom_oper *C "Q+C $C %&C&C ,O *cp_1 T ~ T%T&!*OCZCZEoccprov-$-*-,C-.ZC-/Zcp_2 ~T)%)0CcdF1 G((op E)2%TC13)4 T |%)0LJ T5 T6-T7*8 co_funciones):567%6<F;G((asientoECC)=,g)+C+ <CC)=,g %>)?!H/%<CC)=,g >)? .!%;@A "T);A;@  * 8 F x$T)Bd  %!+#CDiferencia en cp_1 !!!C%Ccp_1F!Q%Ccp_2 F)QF>D TF~,3 %G F1G((comprob#E*,$C/Z%C4 TFF13!THC13G4 TTHF>I13DH  %,L T5 T6-T7*8 co_funciones%567%6_ F;G((asientoECC*,g)+C+ <CC*,g  %>.!HH%<CC*,g >. J A TFF;A#THCG;AJ TTHF>I;ADH [ )TFFCJBd  T%THCGBd  TTHF/>ICJBd  TDH  )TFFCJBd  T%THCGBd  TTHF/>ICJBd  TDH  )TFFCJBd  T%THCGBd  TTHF/>ICJBd  TDH TK%LM` %N -TOBCPS P6 + TOTKLMOd  TKCKT %K TKd T KTCTTCTT Ret. Contrib.Patronales: CC Z%C C  Mnimo: CC ZC C Neto Pagado Anteriormente: CC ZC C  Neto Actual Aplicado: CC ZC C  Neto Actual Adelantado: CCK Z TTQTRCQLSTFT QR TU TR Ta% @T3Ret.Contrib.Patronales/SUSS: Exento o no alcanzado. BUVOLD_XRCPXRCPXTOTAL_NETO_ANTERIORACC_PAGOXIDXBEGXFECHAXMINIMO_NO_RETENCION_CPXPORCENTAJE_RETENCION_CPXBASECPXRETCP_ADEUDADAXRETCP_REGIMENXRETCP_IMPUESTO XRETCP_DEBIDA XRET_ANTERIOR XHUBO_RETCPCONS HAYRET_CPPROVEEDORETCP ARR_RETBASESUMBASERETPAGOSTIPO2 XNETO_RETCP COMPROBANTES RETCPBASEIMPORTE XERROR_RETCPXTOTAL_NETO_APLICADOZCOM_OPERCP_1CAJ_PRORETANTCOD_PROFECHAXCOD_PROCUENTAATRCANCP_2COMPROBTOT_PAGOCAUSACCPROVCUOTAOPCAUCCCOMPOPRIBDEUDAXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESFECREFDIARIOGASIENTOREFPASECUOCREDITOAUX1NIVAMENSAJEBASEAPLALL XTOTAL_NETOAPLICADOXTMPBASESALDOXTOTAL_NETO_ADELANTADOV_PAGADO V_APLICADOIVACATXPERRG3337 XRET_DEBIDAXRETXRGANXRETIBXRETCP_CANCELADA;TC% T T T T  T  T  T  T  T T- %  <$opagosC% *TC A TF#) > T  TFK( #)=T0Ret. A.R.T.: Personal eventual. Retencin manual Ta% +0T#Ret. A.R.T.: Exento o no alcanzado. BUOLD_XRARXRARXTOTAL_NETO_ANTERIORACC_PAGOXIDXBEGXFECHAXMINIMO_NO_RETENCION_ARXPORCENTAJE_RETENCION_ARXBASEARXRETAR_ADEUDADAXRETAR_REGIMENXRETAR_IMPUESTO XRETAR_DEBIDA XRET_ANTERIOR XHUBO_RETARCONS HAYRET_ARPROVEEDORETAR ARR_RETBASESUMBASERETPAGOSTIPO2 XNETO_RETAR COMPROBANTES RETARBASEIMPORTE XERROR_RETAR  T TT T T T T T T% o T  T F >%SF <  J( T T~)TFG((comprob#E   C Z%C4&%AM  )TC TC %TC T(%C|T%, T T rCeNo se pueden pagar simultneamente comprobantes con de distinto tipo (por ejemplo: letra M con A) !!!! B F ~+% 'FG((comprob#E   C Z<%C4+AM   "  F F# G((refGE%G T&-)+C+ $'% k%() c T&aH%& ~H^ "T*+T? T*+T$   ^$T*+?TT  ,-  T T> .a  T%T C /0d  T> .aF >T T%O kTC1% T wHs CCx2g CCx2g,FT9Corresponde Retencin de IVA pero no est configurada !!! 2s=T0Existe ms de una cuenta de Retencin de IVA !!!(3=T0Existe ms de una cuenta de Retencin de IVA !!!%C! T B BU4XRETIVAXRETACCXRETIVA_ADEUDADAXRETIVA_REGIMENXRETIVA_IMPUESTO XRET_DEBIDAXRETXMSG XERROR_RETIVAP_CODEMPP_DOS XNETO_RETIVAZ COMPROBANTESRETIVAALLPROVEEDOIVACATXLETRA_MXMAXCPBTXMAXMAPLICADOCCCOMPCOMPROBCAUSACOD_PROOPLETRAIVACAT2 XTIPOS_CPBTZZZXNETOADEXRGANMENSAJEIVARETDRETPROVREFFAC_COM XYA_RETENIDOCAUTIPO RETENCIONIVA_COMIVA_NCTOT_COMDES_COMNO_RET_MCONSIVACALC_RETIVA_MONOATRCANOEX!%  Roret_provQ ccpagQ CQ    BC  BUXTIPOPAGPROVEEDOIVACATXIMPORTE_ADEUDADOSUMDEBEHABERIMPORTERET_PROVRCCPAGCCOMPROBCAUSA> T TTCTCTCTCT C T C %ERRORCf3C@No se calculan retenciones por error consulta de padrn IIBB !!!C C 2Actualice el padrn o consulte al soporte tcnico. BU XERR_RETIB XMSG_RETIBXRETIB CALC_RETIBCALC_RETIB_ACUMULADASXRGANCALC_GANXRETCP CALC_RETCPXRETAR CALC_RETARXRETIVA CALC_RETIVAMENSAJE T-F%~Cdc  p%<FG((comprob#ECZ%C4   &% AM   Ta! 87C*Comprobante no encontrado al buscar Ms !!! C Suspendo?a  l% Mh Ta BUXHAY_M COMPROBANTESCAUSAAPLICADOXFROMCCCOMPCOMPROBCOD_PROOPDEUDALETRAIVACAT2MENSAJESYS_MOSTRAR_SCREEN BUo T%)FG((cuentaECL T("%CCL T!%T6No hay cuentas definidas de retencin de ganancias !!!C C MLa cuenta de retencin debe tener el atributo correspondiente a la retencin Ny el atributo AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS. BF #- OTRCL %C4 rpagos    OTRCLCL -CXCXF >F T %2(!Cprovinccod%C T!C X T" T# T$'% co_funciones!"#$%C" C"' C!cuentascuenta T(%C( T!%T1No hay cuentas definidas de retencin de IIBB !!!C C MLa cuenta de retencin debe tener el atributo correspondiente a la retencin Ny el atributo AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS. BF '- OTR! ) %C4  rpagos    )OTR C C ( -CXCX*+F '>C C  T,%-; FG((cuentaECx T("%CCx T!%T0No hay cuentas definidas de retencin de IVA !!!C C MLa cuenta de retencin debe tener el atributo correspondiente a la retencin Ny el atributo AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS. BF #- OTRCx %C4 rpagos    OTRCx--Cx -CXCXF >-- T.-%/M FG((cuentaEC T( "%CC T!% BFNo hay cuentas definidas de retencin de contribuciones patronales !!!C C MLa cuenta de retencin debe tener el atributo correspondiente a la retencin Ny el atributo AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS.F #- OTRC %C4  rpagos    OTRC//C -CXCXF >// T0/%1_FG((cuentaEC T( "%CC T!%BFNo hay cuentas definidas de retencin de contribuciones patronales !!!C C MLa cuenta de retencin debe tener el atributo correspondiente a la retencin Ny el atributo AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS.F #- OTRC %C4 0rpagos    OTRC11C -CXCXF >11 T21 BU3XMSGXRGANCUENTASCUENTAATRCANXPOSZ PAGMAXOTRPAGOTRPAGOSTIPOTIPO2DESCRNUMEROIMPORTEPESOSMONEDAABREVCUEDESCRNUMINTSUBNUMVENCCLEARINGPUEBLODIFERIDO PROVEEDORBANCDEP PROVINCIAPOSIXRGAN2XRETIBZZ ARR_RET_IIBB XCUENTA_RETXMSG_RET XCUENUM_RET XPROV_RETOBTENER_CUENTAS_UNICAS CO_FUNCIONESMENSAJECOD_CUEPROVPROVINCCODIGOXRETIB2XRETIVAXRETIVA2XRETCPXRETCP2XRETARXRETAR2 4TC%%Cretib_erFFQhocom_operCQCC  C C     retib_erT%Cretib_erFQBUXRETANTXFECHAXBEGRETIB_ERSUMCAJ_PRORETANTCOM_OPERCOD_PROFECHAXCOD_PROCUENTAXRETIB_CUENTA_ER PROVINCIAb 4)%  = B T  T T T '    % %  T2T Alcuota general CCZ % r T >T  Alcuota CCZ % C * a C * T T%C tmp_ret_1FQ%C tmp_ret_2FQTCCiCH$ocom_operCQCCCC O  tmp_ret_1 T ~ T %T!OCZCZJoccprov"""C"#ZC"$Z! tmp_ret_2 ~_T  %%&Ccd0F' G((op E( T)a%'cd'%C'*motivoscodigo %C+,   T)-%),$TC'-%. T [%&L T/ T0-T1*2 co_funciones4/01%0F5G((asientoECC7,g)+C+ 6CC7,g .%89&!H/%6CC7,g 89 !%5:; "T%5;5:     W%<=-T>?C<@S @6 2 T>!T%>d  % C>Error en la cuenta del proveedor (Diferencia en tmp_ret_1) !!!C 0No acepte el pago y consulte al soporte tcnico.A%C tmp_ret_1+FQ%C tmp_ret_2TFQFB>CD TF~3 %BG F'G((comprob#EBBBCB$Z%C4 T)a%'cdt'%C'*motivoscodigop %C+,  l T)-%) TFF'- THC'-BG. TTHFB>C'-DHFI G((id+EBBCB#ZCB$ZCZ%C4  A>BB#B#$B$K>L'-MH  %BL T/ T0-T1*2 co_funcionesB/01%0 F5G((asientoECCB,g)+C+ 6CCB,g %8B# !HH%6CCB,g 8B# BN ;  TFF5;#THCBG5;BN TTHFB>C5;DHFI G((id+EBBCB#ZCB$ZCZ%C4 A>BB#B#$B$K>L5;MH      )TFFCBN?d  T%THCBG?d  TTHFB/>CCBN?d  TDHFI G((id+EBBCB#ZCB$ZCZ%C4 Q A>BB#B#$B$K/>LCBN?d  TMH TO%PQC%<= -T>?C<@S @6  T>TOPQ>d  TOCOT TR#TCOd TT%TSO  TSTTTTTT TTOTTTTSTTTTOTT TT  CU 7TT Excepcin: C * a C *7TCC C 6ER: CTBCTUVXERRXMSGXFROMCONS IIBB_ER_RP_CODEMPP_DOSXRETXRETACCXMSG2XRET_PORCENTAJE_GXEXCEPIIBB_ACDXEXCEPIIBB_ACHIIBBPER_VIGENCIAXCOD_PROXFECHAC_RET_IIBB_ACCCALC_PAGOS_RET_IB_ERXRETANTXNETOZ TMP_RET_1 TMP_RET_2XBEGCOM_OPERCOMPROBCAUSACAJ_PROTOT_PAGOCOD_PROFECHAACC_NETOACC_PAGOXIDCCPROVCUOTAOPIMPORTECAUCCCOMPOPRXRETIENEMOTIVOMOTIVOSTIPOIBDEUDAXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESFECREFDIARIOGASIENTOREFPASECUOCREDITOAUX1NPROVEEDOIVACATXPERIVARG3337MENSAJE COMPROBANTESBASEIB BASEAPLIBALL XTOTAL_NETOAPLICADOXTMP TMP_RETIBID PROVINCIABASEBASEAPLSALDOXNETOADEV_PAGADO V_APLICADOXPAGOANT XBASE_IIBB_AC ARR_RET_IIBB MIN_RET_IIBB %C( TC$%Ciibbret XQiibbretF G((idECZCZ T9~$CZCZCZCZ%C T  BU XPROVINCIAXFECHAIIBBRETIDXCOD_PRO XCOEFICIENTECOD_PRO PROVINCIACODIGODESDEHASTAALICUOTAs T+h T--%CCcuentascuenta TaICProblemas con chp() !!!C Consulte al soporte tcnico%Ct\S Ta% C  Ta%ICpagchpT dTBU XELIMINOZ PAGMAXCHPPAGCHPMENSAJECUENTASATRIBUTOP_TE_SOLO_CHEQUES_DIF COMPLEMENT %C cccomp.cyobLd%JBQ? ` B z BUCCCOMPCYOBASE_GAND %C cccomp.cyobL, B =B-UCCCOMPCYO comprobantes; lista_monedaS open_filesT actualizarzX act_saldo[vld_chpG` calc_retibecalc_ganDt calc_gan_clt vld_opagot registrar8v transaccion difccprovs difccprov_ncotroswrite_compra_contado1 crear_pagos>hay_retN reg_asiento calc_pagos nueva_ret_ganobtener_importacion_previoaplicar_importacion_todos;obtener_importacionpag_quitar_importacionpag_agregar_importacionPpag_agregar_importacion_diario} min_ret_iibbimpuesto_al_cheque$vencimiento_constancia,facturacion_monotributistan. calc_gan_ar0retgan_adeudadadPiibbper_vigenciasPcrear_temporal_retibQposicionar_en_empresaSdeterminar_tasa_asumidaFT ret_iibb_baU ret_iibb_caba _ ret_iibb_misUhretencion_de_iva_gan_adeudadanya_hubo_retencionespcalc_retiva_monorcalc_retgan_mono4zx_retcp_adeudadax_retar_adeudadaԂ calc_retcp calc_retar$ calc_retiva˙retiva_adeudadaãcalcular_retencioneshay_mĦretgan_alicuota_m̨registrar_en_pagoscalc_pagos_ret_ib_ercalc_retib_acumuladasconvenio_coeficeliminar_cuentasbase_gananciasyes_lpU ctactesessionsessionDAT1bAA!rAqq1qqqAAAAA7"qAAqA21B"31AAdAqQRQQQQs2qA1qA1qA1qA12ArA2AQr1r1r"A4qBAraAbA1bA2Bbv"sBr21B12AA12A1B1A2& A3A!utbAR"!RsAAA1B12AA12A1B1A2AAbAysArQr15ABBq2"!qAAB[2"3aAAABBB1B12A12A1B1A2qAAVAR1AA1B12A12A1B1A3rr11AAqAA21AASB1B12A12A1B1A2rrHq1AAqAA!A11A1AAA!R2BC1B12A12A1B1A4#1aAA1B12A12A1B1A3qAAqAAsA1AbqArR82qQA21A1B1A1AAAB1B12A12A1B1AABqAAqAAqAAbqAAbqAABBAA54s2a AAr!`^AD2AQp AAAAAAAAAAAAD!aaR2qAq2AAA3AAAAAAAAAAArAAAAAC2v2qqDUACqA2ABA25r12AbrA2"qqAqAArLbb1AAABAA2q8qAAq!AqAAqCqrqaAAAArqaAAAAtqAAAABBBAqABr22Au1trVar2"2r5ARABrtBCA1bA!Ab2A(((RB2B1AaAB211A22rraBAA3t2AbaAAA1r"6D2A!HqAAraAaAAArA%!1A2!A2!A2!A2!A%!1A"!1A"!1A5rQAA#AAAA"AAA"AAA"AAA31AAAAAABABAGABFA$SSSBBBBBAAbBBABABAAACBAr2< A AA1 AAA22AA1rA311A1q1A"A22BA3~4UAAAss2AuQ2BrRA2srA2qaRABAaBu1A2BqaAqrrrQrAARAABrQrrrQqFv2AABrAbuqarrQAA2AABCAqqbq2A1AAAAArtQ3Bu1ArrQ!2Ab2AMrtQ2Bu1ArrQ2Ab2BAADA3r2r"AAB2ArsqE1A1A"raQ@RBRBAr1q2qQABAA AUbF1A1A"RrQ@qRCArA2qQAAUBBA1A1A"!rQ01RsRSE"AqQ r!BA3A3ABAAAAB1rAAA21"rQ@Rq11AAAAAAAqAAA21"sQ@Rq11AAAAAAAqAAA2uQ`a2Arsqsr EArArBrqRQQQr12B2BA11B11B11BAraCArq1ADAArBBrqwr CAwArBsqvrU CAr ArBtqvrU CAr ArBtX SDr2q22rtQ2QA2vQr= 8sjD!rrAABqABqA"BADtRsV% trQ%AAB2qaqAAA2tQf qAA2A2B1rra1AAAA2But9!Ar1ADAAA11AB2sBB2vbqAAr2 r CbqAAC21I1BA"A` 1qqA3rrqAAqaAA2121AqA1aaA1AAAAAA$RAAAbQ1!!A2q2 1qqAqAqA21aqaqAQAaABrAqAA3AAAAaAABqAAAB2rqarAAqB22rQrsQA%BtQ`rQ`1ArQqBBABB21AAbaaAAAb!AB3A!Ar1"A21Ascrf11rBb1AgqAAaqAA3 rq BgBqArBAArAArAd1rqaAAAA!AABBfADABbABbqAAaqAABwsQas2AqAAArAbaA4rcAAr1rqaAAAAB2rRrBBJRrBJAAAAA2!A2A2A1aA!Ar""qaqQqA%21AA"b21111111AAAAAAAABCbA2AACBPAB2A31AqAC2K AqAAA2qAarAA2QAQABB2(2B811rBqq2QAAABAAArQVAaABaQABbBbCA3r"B%21rBbA23RABA"BAAsQVAaA!aAARACA2r"B21rB#bBAAsQVAqAAACA2qrqAAqAA3qrrw"aAqAAp1AaQbcBbcBBras22traAABBCrrBrQq1AAArUBAqqa!A1AAABB3rAaQbcBbcBBras2CrrBsQq1AAArUBA#qqa!A1AAABBB5(A2(A3qr{rxA"ArQrqByRqAAuRqAAQqAARUBrRs1rqaAAAA!BBBAAABb1ABRqAAQqAA{Rar2Brr1rqaAAAAB2rRrARrARrBAAA2aA!AX&B"AA2qr{rwA"ArQrqBA012rdvrAr2eAABAA2!Aqar2rub1aAAAaaABABRBsBA2BAA2aAA2AA2(A2f"$AB3ruQ2r2bBBrsBuAAD22q2q!AAA2$Ar1qAqssB2t"AAA2AtqAqsAAAA2q!AAA2As1qAqsA2q!AAA2Bs1qAqsA2q!AAA2Bs1qAqsA2zqAAqAAB2A11r2C"BqAAqAAiRBrrBAAAAs1rqaAAAA!BBBfACABbQABqAAqAAwRar2qAAABrrQABr1rqaAAAAB2rrQABBRrrQABAAA1aA!A33QAsBr2A1ArrrAB2rAAAAQAAB2!AA2qA42c߅*cUzuȐeYy3&-XEPaf2dHkz] ]del8l`/O ټY }&  & cb   +& )FR IzV f 0 TX w b  mz mm| no oq q s4 /sBuD ZuX ÆF ȕ*u T 43 PvV BJ:RQ,CZ@)a}  + 9 k a  >e z?A!Al!dln#wn,q#Gqq# rsr#%.^34/UP6XN G(9T9G+(listados CFTFTC X TT CX T  T !cm_anular_comprobante( T9% T TT TTT T TTFG((comprobGE G 9+C+     H3%     T0T   #%  T%F -C!"T# $%C4%CdiariogF%Q1Q&\C#\diariogasiento%CconceptoKF(Q2Q)\C# \conceptoasiento >C No existe el ejercicio contable C $ !!!*BT+ "stkxdep","stock", "movstock", "despacho", "stkxser", "compras", "cccomp", "ccprov", "conver", "importac"%,.T++, "tcompras", "tcccomp"%.T++, "diariog", "concepto"%-%Ccashdata#F.Q%CcashcancKF/Q%Ccashcan2sF0Q%112 .Q3\data\CC4Z \cashdata Qcashdata%112 1.Q3\data\CC4Z \cashcanc OQcashcanc%112 .Q3\data\CC4Z \cashcan2 Qcashcan2>T++, "cashcanc", "cashdata", "cashcan2"T++, "iva_com"(%5C6:<= hT++,"ccvent" T#.do lock_g in trsac with aaa , &xtrs_files %#&T7cm_anular_comprobante.prgOT8 Anulacin C9 lgica fsica6 de Orden de Pago. T#:trsac#782C=C@z 9999,999,999_<F> C?FG((comprob/% CZ CZE CZ TT CT@ATB  T T  TCD TEF TGTHIT-% CP @RA6 >U-% CP @RA6< >V-% CP @RA6l >W-% CP @RA6 >X-% CP @RA6 >Y-% CP @RA6 FRCActualizacin OCZH2  R[ORTGCR\gF]G((tcccord EG%C4 %_N `(K %C`JG !%`KK TKKTJKG7>aaCb b 6Rb%]c7>ddCb b 6Rb S>ddCb b 6RbCReRe6 FfG((ORDENITMECGZCRhZ%C4N%iSr>jjRk>aaRkFG((comprob2E CG@z 9999,999,999_PCZCZV%C4E ClZCZ CG@z 9999,999,999_PCZCZ @>m]]a J R[MFn G((movER\CRpZ%C4%,TGn,F]G((tcccord EG%C47%_N`(K@%C`JG<!%`KK TKKTJKG7>aaCb b 6Rb%]c7>ddCb b 6Rb oS>ddCb b 6RbCReRe6 FG((comprob2E CG@z 9999,999,999_PCZCZV%C4E ClZCZ CG@z 9999,999,999_PCZCZ )>m]]a 3FfG((ORDENITMECGZCnhZ%C4>aaRk Fn>aaRk 2(%5C6:<= -%CR\R[ccventccvfac%qr>qr<=C@z 9999,999,999_ Libera L.P.: Cq VFCCq cNCd66 R\cm_anular_comprobante.prg FRH CsFtqiva_comFuqcom%n CvFG((comprobGE G ++C+    L%D TwCO C?[)xge02\zC{ZC|ZG((comprob #wH%-BF/G((comprob"~ C ZO>F0 G((id20E/~C/ZC/lZC/Z%C40< ^(rcashdataF0F/ :F G((opECZ%C4  C%9 FY>,0 ANULADAN T#trsac#78 T%#OCLa Orden de Pago CC@z 999,999,999_ ha sido anulada !!!* C 2C%No se pudo iniciar la transaccin !!!* %%CjEC8El comprobante tiene imputaciones, no puede anularlo !!!* FC9El comprobante ya ha sido imputado, no puede anularlo !!!* /C"Error # 1. Cosulte al programador.*BU ACTIVEFORM DATASESSIONIDXDATASESSIONIDLISTADOS OPEN_FILESCCCOMPXCAUSAXCOMPROBXOPXCOD_PRO XANULACINXRESCM_ANULAR_COMPROBANTECAUSAFAC_COMCOD_PROOPXFECHAFEC_COMXFECDGIFEC_DGIXASIDIAXIDXDEUDADEUDACCPROVCOMPROBXIMPORTEENCADELANTO XCON_ASIENTOASIDIAEJERCONDESDEHASTAAAADIRDIARIOGP_SERVERASIENTOCONCEPTOP_PRIVMENSAJE XTRS_FILESORDEN P_CASHFLOWCASHDATACASHCANCCASHCAN2P_DOSP_CODEMPP_SYSTEMP_UNOP_CPBT_LIQ_PRODFCE_TIPOTRAN_PRGTRAN_TXT XANULACIONBEG_TRANTRSACUSER_LOG PUB_INDEXPROVEEDOREG_LOCK XTIPO_IMPTIPO_IMPXXXX CANTCAMPOCANTFLD KILOCAMPOKILOFLDXORDENXFLAGFLAGOC_ARR OC_ARR_MAXTMP_IMPORTACIONES BORRAR_IMPP_LOCALIMPORTP_IMP_POR_ITEMIMPORTACCOMPRASNUMERO REC_DESPA REC_FLETE REC_SEGURO REC_BANCO REC_HONORREC_FOBSYS_MREFCAUSAREFTCCCOMPTCCCORDPENDZZZ FACTURADOTOT_COMMONEDAFACT_MOCOEFICTCOMPRASORDENITMREFITMRECERECEP2 RECEPCIONCUOTAIMPORTECONVERMOVITMCCVENTLIQPRODANULA_MOVSTOCKIVA_COMCOM ANULA_ASIDIAREGFN_CANCGE02CAUCUOOPRID2IDUCLASEANOARR_AAAPER_PROVFN_IMPORTACIONESDES_PROVSUBDEND_TRANTTS_ID REABRIR_OC] 5FG((asiento E T-4+C+ C   G(( Ta > > H%F G((asiento E%C4(%  R+CNo hay asiento para anular !!!T'BUOKAAADIARIOGASIENTOXASIDIAXIDCOMPROBCAUCODIGOFECHAANULADOUSR PUB_INDEXCONCEPTOXDEUDAMENSAJE TTS_ERRORfilesfilesfilesfilesfiles%CIMPORTAC FQimportac%Ccom F Qcom%Civa_com FQiva_com%CCONVER F Qconver%CCUENTAS IFQ cuenta%CEJERCON |FQejerconBU OPEN_FILES_ARTICULOSFILESOPEN_FILES_STOCKOPEN_FILES_ORDEN_DE_COMPRAOPEN_FILES_COMPRASOPEN_FILES_ENTORNO_OPERACIONIMPORTACCOMIVA_COMCONVER_CUENTASCUENTAEJERCON5F#)F T-(%C C  %Cl Ta dC2Balance cerrado, la fecha del comprobante debe serC  posterior a CC* !!!  %CJKC>Error !!! No puede anular una factura de un subdiario cerrado. bC.Error !!! No puede anular una factura de fechaC  anterior a CC* !!!  BU AUXCONSCCCOMPFEC_DGIOCIERRES CIERRE_COMCIEFEC_COM CIERRE_COMDESSYS_CIERRE_BALANCEMENSAJEj%%  T9G(9TCSessionNT C C ges C C C %CborrarF Q T FG((comprobIomovstockC@z 9999,999,999_ tmp_anu_op_mv%CN26qmovstockC@z 9999,999,999_F ~.TTTTT cT!T"T#$T%& T' T(C)proc_stk!"C$#8%%%  * C T' T(C)proc_stk!"C$#8% C %C tmp_anu_op_mv_FQBU+XFLAGP_DOSP_CODEMPXDATASESSIONID2 ACTIVEFORM DATASESSIONIDXODS1XDATASESSIONID1SET_DS1SETSGES OPEN_FILESSET_DS2BORRARXARCHIVONEWFILEMOVSTOCKCOMPROBNUMEROCAUSAXOPXCAUSA TMP_ANU_OP_MVXCODCODIGOXBULBULXATRATRXDEPDEPOSITOXCANCANTIDADXCAUXNUMXITMITEMXDSPDESPACHOSTK_ERRSTK_TST REG_STOCKPROC_STK%>%C(Reabre las Ordenes de Compra asociadas ?(7cm_terminar_orden_de_CompraC (-cm_control_de_ocsCBU OC_ARR_MAX MENSAJE_SINOZZZTERMINAR_O_REABRIR_OCOC_ARRCM_TERMINAR_ORDEN_DE_COMPRAPROCESARCM_CONTROL_DE_OCS(F~FG((numero E%C4{0cm_imp_funcionesimportac (CImportacin inexistente !!! T"%Ctmp_importacionesFQ%  .*BU TMP_IMPORTACIONESIMPORTIMPORTACNUMEROACTUALIZAR_IMPORTACIONCM_IMP_FUNCIONESMENSAJE TTS_ERRORP_IMP_POR_ITEM BORRAR_IMP= G(T\data\CCZ G(BUXDATASESSIONID1P_SERVERP_SYSTEMP_UNO= G(T\data\CCZ G(BUXDATASESSIONID2P_SERVERP_SYSTEMP_DOS anula_asidia open_files! fecha_validaL#anula_movstock% reabrir_ock*fn_importaciones+set_ds1-set_ds2.""r%2rbaAA1B2Rr!qAAqAA!AAA, bAAqAAqAAqAAAAAAAAAA2b"tsqABs$qAArAsqqABbrQQQQQQQBABrq#rBAAA1AAsbr3ACrBqAAAr"bqBBrt2rBAAA1AAtbs3Ar"bqBBsBAABrABBb" BBBrAAArrQArba1AABAAq"rrRrArABBBrAA2qQA2A!A1AQaAABBB2rAaAAqAAAAB3ARAAAAAAC3qrQrAAAq!AA3U!rArqAAr"cr<S<BBBqAAA32qAAAAB2uBrAB"qAABA2A2A1f`;=x=1@J@BB~MMOz;OQ QXRlRR %gp_hz Yg C T T T T T T T T  T  T  T  T  T T C%CFG((codinsFG((comprobG-(FG((codproFG((asidiaG-(G-(CZ$G(C T#)+C+ CCOMPRAS! C"FH HE#co_autco_compras.PRGAsientos Diarios C% C&BU'XIN_TRANUSE_COMXIVA_COMXIVA_NCXIVA_VENXP3337XIMCOM1XIMCOM2XIMCOM3XIMCOM4XIMCOM5XDES_COMXREDONXIIXII2MSGASG_COMBIENESCODINSCOMPRASCOMPROBCOD_INSPROVEEDOCODPROCCCOMPASIDIACOD_PROFAC_COMCAUSAOPDEUDAXDIADIAFEC_DGI REG_ASIDIAREPOCO_AUT UNUSE_COM UNLOCK_ALL  %C xtipo_pasebN8 TTC FG((codpro EF E%C4  >s>   C C/C cC d666  F&%  % tTc T % Tc TT0>L  P!C"S !#6$%A&C$'()*+,--./00123456%]>789>:8;><8=>>8>>?8?% (>@C8@ 8@@6TAA1TBBCC-+6 TBUC XTIPO_PASE XPROVINCIAPROVEEDOCODPROCCCOMPCOD_PROCONCEPTONEWASIASIENTOUNTIPO2CAUSACOMP_EXPFAC_COM2DIARIOGXOKXDEBXCREXPASEDEBITOCREDITOCOD_CUEXCUEPOR_QUECOMPROBFAC_COMCAUCOD_CENXCENPASEFECHAFEC_DGIPROCLINOMBRETARJETADES_PROVCODIGOTIPOHOY COMENTARIOXCOMENT SUBCENTROXSUBCAMBIOCOEFICMONEDAIMPORTACXIMPUSRLINEAXLINGRUPOXGRUAUX1N PROVINCIANUMEROCOMPRASOPSUBNUMITMCODCOD_INSATRBULTRANACCACCME-FG((cuenta EBC4UCUENTASCUENTAPROVEEDOCUE_DEU4%C& T Ta% %CC g T-TC  CCFCMCdND5CcNCC1DPCP6666 G El IVA Crdito Fiscal debe estar asignado a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- T C % S#%CCg 1 T-TC  CCFCMCdND5CcNCC1DPCP6666 F El IVA Dbito Fiscal debe estar asignado a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- OT C% %CClg T-TC  CCFCMCdND5CcNCC1DPCP6666 I La percepcin R.G. 3337 debe estar asignada a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- T Cl% %CCig^ T-TC  CCFCMCdND5CcNCC1DPCP6666 V La Percepcin de Ganancias de Aduana debe estar asignada a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- |TCi% %CChg T-TC  CCFCMCdND5CcNCC1DPCP6666 P La Percepcin de IVA de Aduana debe estar asignada a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- TCh'%  %CCog T-TC  CCFCMCdND5CcNCC1DPCP6666 G La Percepcin de IIBB debe estar asignada a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB-  TCo% C %CCg! T-TC  CCFCMCdND5CcNCC1DPCP6666 N Los descuentos comerciales deben estar asignados a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- ? TC%  %CC2g T-TC  CCFCMCdND5CcNCC1DPCP6666 A Los Redondeos deben estar asignados a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB-  TC2%  A T co_funciones%C = T-B-% T co_funciones%C T-B-%D% @ T co_funciones%C < T-B-% %CCg T-TC  CCFCMCdND5CcNCC1DPCP6666 L La percepcion de ganancias debe estar asignada a una nica cuenta.(COMPRAS)Eco_autco_compras.PRGAsientos DiariosB- TC BUXIMPOKATRCANMSGCCCOMPCOD_PROCAUSAFAC_COMREPOCO_AUTXIVA_COMP_IVASEPXIVA_VENXP3337XIMCOM2XIMCOM3 P_PERIBXPROVXIMCOM4XDES_COMXREDON CUENTA_IVA_COMPRAS_NO_COMPUTABLE CO_FUNCIONESXIVA_NC CUENTA_IIXII P_II_VERSION CUENTA_II2XII2XIMCOM5 %Ccccomp 4QcccompcccordF G((pago%Ccompras Qcomprascom_ordF G((pago%Cper_prov Qper_prov%Cbienes QbienescodinsBUCCCOMPCCCORDPAGOCOMPRASCOM_ORDPER_PROVBIENESCODINS%Ccccomp*FG(G-(%CcomprasYFG(G-(%CbienesFG(G-(BUCCCOMPCOMPRASBIENES5 T-FG((comprob E%C4++C+   -% P   TaH BU AUXDIARIOGCOMPROBXCOMPROBXCAUSACAUCODIGOCCCOMPCOD_PROPROCLIFECHAXFECHAG4%Ccons 2Qcons#)BCUFECHACONSSYS_CIERRE_BALANCE 24%CL Ta T- T  T T T T T  T  T  T  T  T T T TTC TC  T-G+(co_autFG((codinsFG((comprobG-(FG((codproFG((asidiaG-(G-( C!Z Ta T T" T#T$T% <&'&2 T' C(UT) / C   / OP : CC!@z 999,999,999_UT* / C   / OP : CC!@z 999,999,999_ Ta"%CPROVEEDO+C+ 2 T-TC  C CFCMC dND5C cNCC 1DPCP6666 , Proveedor inexistente o mal su cuenta. Op: CC! 999,999,999_ (COMPRAS) 1$%, -  T-TC  C CFCMC dND5C cNCC 1DPCP6666  Tipo de cambio en 0. (COMPRAS) 1FT* C!Z T.%/2T0Ccfg_ventas_baseco_funciones.prg%C0OTC  C CFCMC dND5C cNCC 1DPCP6666 9 No se pudo obtener la configuracin de ventas base. Op: CC! 999,999,999_ (COMPRAS) T- T1F E*%C+  T2CO T20+C+ * C!Z %. %34 %CBIENES+ T5C X-%// 6<   T7 T875%7 T-! e %C09 > TC  C CFCMC dND5C cNCC 1DPCP6666 @ No se pudo obtener la configuracin de ventas para el artculo C. Op: CC! 999,999,999_ (COMPRAS) T-%a T50:T;<T=>%? T@ATBC  T@ TB  T-!  FD EE%EC XC+ M T5ET;<T=>%?% T@A0%C A DA T@DATBC0%C C DC ! T@DC I T@ TB ~ T-TC  C CFCMC dND5C cNCC 1DPCP6666 ! Cuenta invlida en compras. Op: CC! 999,999,999_ (COMPRAS)DFco_autco_compras.PRG  T11GFH% 1G T-TC  C CFCMC dND5C cNCC 1DPCP6666  cccomp#compras. Op: CC! 999,999,999_ (COMPRAS) 1TH TITJK%CKL  T-TC  C CFCMC dND5C cNCC 1DPCP6666  Fecha: CK*$ Anterior al cierre de balance. Op: CC! 999,999,999_ (COMPRAS)%CKM  T-TC  C CFCMC dND5C cNCC 1DPCP6666  Fecha: CK*& No pertenece a ningn ejercicio. Op: CC! 999,999,999_ (COMPRAS)%1$%G N P1FbTOC CFCC dNDNC66 CPC6<  (LP)6+TQO.P. CC!@z 999,999,999_ TR TS TT% TUCWFVG((asiento% E%C4i#6TSW  TS #6TSW%STSSFXG((asiento ES%C4  >WS FU HTCK)Y %*15Z TZ T[ T\F%2 #2<]]d T^ T_F0+C+ * C!Z (%.(9TOQC6<  (LP)6 - `TaG TbTcd%34! Te-%CBIENES+ }T5C X-%// 6<  \ T7 T875%7X T-!  Tea%C09  TC  C CFCMC dND5C cNCC 1DPCP6666 @ No se pudo obtener la configuracin de ventas para el artculo C. Op: CC! 999,999,999_ (COMPRAS) T-%T50:T;<T=>%fT;<T=>%?UT@ATBC y T@ TB  T-! Tg5 Th; Ti=%? Tj@ TkB  Tj Tk%e %Cventas OQventas TmnoCpZ%?%'T@ATBC%d%&vcm_imp_funcionesdaFx%CN $ ~ $ Tg5 Th; Ti=TjxATkxCTaxyT__ab(^#%C]h}#)T]C]ab!%^#T^^T]^hT]^abT]^ CW % Tg5 Th; Ti=%?k$ Tj@ TkB $ Tj TkT__ab(^ %%C]h %)T]C]ab!%^%T^^T]^hT]^abT]^ CW !' Tg5 Th; Ti=%?% Tj@ TkB & Tj TkT__ab(^&%C]h&)T]C]ab!%^'T^^T]^hT]^abT]^ CW ( T@ TB Tg5 Th; Ti=%?' Tj@ TkB ' Tj TkT__ab(^?(%C]h;()T]C]ab!%^(T^^T]^hT]^abT]^ CWFH TOQThCX Ti Tc Tj TkTCz Tg TaTb{ CW% Cdc)TCz Tg )G+( co_ventasTC} TgTa~ Tb CW%+ T(^+%_*1T]CC]_ TTC]  +2C%Error: Base iva no computable = 0 !!! T%U+,T]C] Th(^+ThC]TC z TgTaC] Tb CW ThTCz TgTa Tb CWTCz Tg Ta Tb CWTCz Tg Ta Tb CWTa Tb% #-TCz 'TC! K TC z Tg%-Ta Tb - TaTbc CWTCz Tg)TaC6 Tb CW%.TCz TgTa Tb CW%/TCz Tg Ta Tb CWTg TaTbN CW%[/TC z Tg%[/ Ta Tb[ /Ta[c Tb CW CF >S%0 T co_asientosS%0C T T-6T)El asiento no se genera correctamente !!! 0TZ% &1>trsacZ Co_comprasAsientos Automticos T L1 T- T 1TS Ta TF >SF%  13Fco_autco_compras.PRG*Z T BCUXOKXDESDE_OPERACIONMSGXASIENTO_SUGERIDO XNO_ASIENTOXIVA_COMXIVA_NCXIVA_VENXP3337XIMCOM1XIMCOM2XIMCOM3XIMCOM4XIMCOM5XDES_COMXREDONXIIXII2ZZPREGUNTOCO_AUTBIENESCODINSCOMPRASCOMPROBCOD_INSPROVEEDOCODPROCCCOMPASIDIACOD_PROFAC_COMCAUSAOPXASIDXASIHXFECDXFECHIVIVMAXREG_LOCK XCOMPROBANTEXCVLD_PROMONEDACOEFICXCLP_CO_CONFIG_VENTAS OCFG_VENTASACCCOMREGOBIEDATA_CODIGO_VACIOXCUFCE_TIPOXERRCUENTA_ACTIVO_O_IMPORTACIONESCONFIGURAR_ARTICULO CUENTA_VENTASXCECOD_CENXSC SUBCENTROP_CO_POR_LINEAXLILINEAXGRGRUPOCUENTASCOD_CUEREPOTOT_COMXCAUSAXCOMPROBXFECHAFEC_DGI FECHA_VALIDA EJ_ACTUALDEUDAXCOMENTFAC_COM2XOPXPASENEWASIXIMPORT XAREA_ASIDIARIOGASIENTOCONCEPTO NUEVO_ASIENTOAAAACCACCMEARR_COS MAX_ARR_COS MAX_TOT_COMDESC_INSXDEBXCREXIMPIMPORTACXES_LPP_CENTRO_DE_COSTOS_VERSIONXCUEXCENXSUBXLINXGRUVENTASXIDREFREFCAUSAREFITMARRTOT_VENFAC_VENITMC_C_LPPORCENTAJES_X_LINEA_GRUPOCM_IMP_FUNCIONES POR_LIN_GRUIMPORTEASG_COMDES_COM CO_VENTASASG_VENIVA_COMIVA_NCXXIVA_NCMENSAJE TTS_ERRORXOLD_CENP3337IMCOM2IMCOM3IMCOM4 P_PERIBXPROVPERCEPCION_X_PROVINCIAREDONDEOII P_II_VERSIONII2IMCOM5CUE_DEUAJUSTE_CONVERSIONXXMSGFN_CHECK_ASIENTO CO_ASIENTOSEND_TRANTRSACTTS_IDXMSGq4 Ta%  T G+(listados TCW%Cper_prov Qper_provF G((op-C ZCZ%C4v(% Tc<TC per_prov.provCCZCc6%/TCCS 6T%TC%cTSIRCREB%  T T T%ORco_pagos kCT   F"-Co\S %C4;T T T%Oco_pagos & CT    T-eTOP C  C*7 No est definida la cuenta de Percepciones de IB para C! %   rC Suspendo?a T-`TOP C  C*8 No coincide el detalle de las Percep.IIBB con el total.  T-XTOP C  C*0 No se encuentra el detalle de las Percep.IIBB. F % TE!co_autco_compras.PRGAsientos Diarios T BU#XNUMXCAUSAXFECHAXRESAREAXVARXOKXTXTCCCOMPIMCOM4XACCPERLISTADOSPER_PROVOPCAUSAZMONEDADIVCOEFIC TXTPROVINCIA P_PERIBXPROVXCUEXIMCOM4XDEBXCREASIENTOCO_PAGOSCUENTASATRIBUTOAUXNCOD_CUEMSGSYS_MOSTRAR_SCREENREPOCO_AUT^4 T T-T%       %   ^TF%G((cuenta E!%Ccuentas+C Z TaLT%Cuenta de importaciones del artculo C invlida !!! %CCons Qcons#)F!% T TFG((abrev E T!%Ccuentas+C ~ Ta:T-Cuenta de importaciones genrica invlida !!!G((cuenta N%%  TF% G((cuenta E!%Ccuentas+C ~ TaETCuenta de activo del artculo C invlida !!! JTF%G((cuenta E!%Ccuentas+C F TaETCuenta de activo del artculo C invlida !!! BUXERRXCUENTAXMSGXES_LPPROVEEDOPAISCCCOMPIMP_TRI P_IMP_LOCALESCOMPRASIMPORTACP_IMP_SIN_PREVISION P_CUEXARTP_CM_IMP_CUENTASBIENESIMP_CUECUENTASCOD_CUECUENTACOD_INSCONS IMP_IMPOLIMP_IMPOABREVP_CPBT_LIQ_PRODP_CPBT_LIQ_PROD_VERSIONo  T T%Ccccomp ^Qcccomp%Cproveedo Qproveedo%Ccuentas Qcuentas CF G((op E%C4, T T  #  co_funciones %( T;trsaccccompdiariogconcepto% T@trsacCo_compras.prgRehacer asiento OP Ta%F > ! co_comprasa% T T T@trsacCo_compras.prgRehacer asiento OP T% $ d T!TOP no encontrada !!!BUXERRXMSGXOPXASIENTO XRESULTADOCCCOMPPROVEEDOCUENTASUSE_COMOPASIDIAXFECHAFEC_DGIABRIR_EJERCICIO_FECHA CO_FUNCIONESAAALOCK_GTRSACBEG_TRANINDIARIOGASIENTOCONCEPTO REG_ASIDIA CO_COMPRASEND_TRANTTS_IDasientovld_pro asg_com: use_comB unuse_com hay_asientoK fecha_validat reg_asidiapercepcion_x_provinciaVcuenta_activo_o_importaciones+]rehacer_asiento_opbrrrrrB2RrAATBA3A2srQA5sa11AAQ2AARBA2q2q!Ar VrAAA1b VrAAA VrAAAbUrAAAUrAAAtr UrAAA UrAAA UrAAA!rBA!rBA2!rBAA TrAAA2AqAqAAAI2qqaaAqaaArqaaAB3rqAAAA2qbQA2q)A22rrrrr111VQ#2B r2"rAAqA12AABFA1AAAr1AAA EABBAsAA rBr"BDs"r3QAQ2ABrQAAqtBAu1s12AABED2B2AAA1A!Ar"RAAA1ARAAA1A"A2AAAA2AA"ARAAA1A2AAAADRAAA1AA2bes!RAAA1AB1ASAAA1AB1AQAAA1AB1ARAAA1AACCrAA2Ac2!AAbARQBH AqaA2AcA21AAsr1aAAAAsABBBBr5FB212b"AAr2AbA2%2AAAqAr!A1ARAABBAsAABTB31BraAAdQAqAsABXraAQAraAQAAB3!AAA1As4222r"!AABBHAB6- DZ _ %%''( )** +7+#( ŭ) %8>s9I7XNG(9te_pagofiles%Cte_anu \Qte_anu T-F#) T  T  T  T a T C$TCX Ta te_anu_pag(%  C!T C FL6!T C OA6TF TCO T T T T TT T T WT!CC O"6@z 9999,999,999_C OOA6C :T#CC O "6@z 9999,999,999_"T$C OOA6T%&% C' T(%y%)trsac(proveedocom_operccprovchequesdiariogven_operconceptocccompcomprasccpagret_provdretprovte_anuiva_comitmdescc u)trsac(proveedocom_operccprovchequesdiariogven_operconceptoccpagret_provdretprovte_anu %P)trsac(proveedocom_operccprovven_operchequescccompcomprasccpagret_provdretprovte_anuiva_comitmdescc )trsac(proveedocom_operccprovven_operchequesccpagret_provdretprovte_anu%( T(C+trsac( Te_anu_pagAnulacin de pago#$%(TC,% T( T( T(C-trsac( Te_anu_pagAnulacin de pago#$ T. %? C/BU0 ACTIVEFORM DATASESSIONID OPEN_FILESTE_PAGOOPEN_FILES_COMPRASFILESTE_ANUCHQCONSXANULXCOMPXRECINGXENC XFEC_COMPXCOD_PRO XRESULTADO TE_ANU_PAG XPAGOCONTADOCCCOMPPAGOCOM_OPEROPAGOREGISCOD_PRO N_ACUMULADO N_COCIENTEACCINGXNUMINXFECHAIXASIDIAASIDIAXFECASIFECHAXID OPERACION XCOMPROBANTEXCAUSAXAPLICAPLICAPERTURA_DE_EJERCICIOAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANTTS_IDCIERRE_DE_EJERCICIO%F #:TC@z 9999,999,999_COOA6 Ta TS%CC  a6$C LC  a6  T a T- T T T- T- T T TTCCa6% F %F # T TR,: Aguarde... C C C C% !  C"%#F$ G((pago E+C+ % [$HF' G((pago E+C+ % 'HF( G((opEOCZ%C4) (F* G((pago E%C4% ,*F+ G((idGEC ZPG '%C4-.C ZP + T -  T-% L  C/  T-% 8%4C0 %11 %OMC%Se ha anulado el Comprobante de Pago CC@z 9,999,999,999_0  @CSe ha anulado el Ajuste CC@z 9,999,999,999_0 2C?Se ha anulado la aplicacin del Comprobante de Pago Provisorio CC@z 9,999,999,999_C VRecuerde que se anul nicamente la aplicacin, no el Comprobante de Pago Provisorio.C HPara anular el Comprobante de Pago Provisorio debe repetir la operacin.0% Fz0C34Anulacin Fsica.2 0C34Anulacin Lgica.2 BU5XENCCOM_OPERREGIS XCOMPROBANTEXCOMPXRECING XRESULTADOXMSG FECHA_VALIDAFECHACOD_PROXANUL XFEC_COMPTRSACHAYING REG_OPAGOSXTOTALVALEPAGCONTXRETGANXRETIBXRETIVA XANULABLEANULABLEXMONEDAMONEDAXCAMBIOCOEFIC REST_COM_OPER REST_CCPROVANULA_IMPUESTO_AL_CHEQUE REST_CCPAGP_ASIDIAXASIDIA ANULA_ASIDIA XPAGOCONTADOCCCOMPPAGOINCOMPRASPER_PROVOPIVA_COMITMDESCCIDCOMPROBCAUSA ANUL_LOGICAMENSAJEXAPLICUSER_LOG PUB_INDEXXCAUSAH OLG((opagoG(O E A G((operG(A EG(BC4UXRECINGOPAGOCAUSAXCOMPOPER45,%C$CC$C %Ca Ta ?Balance cerrado, la fecha del comprobante debe ser posterior a CC* !!! T- G]T&El comprobante debe estar en el rango CC$C* y CC$C* !!! T-% %C]T?No puede anular una factura de un subdiario cerrado (Cierre al CCC*) T-% T C  % gTLLas retenciones de IIBB y Ganancias a Proveedores estn cerradas a la fecha C * !!! T- BU XFECHAXCOD_PROXMSGAUXOCIERRES CIERRE_PAGDESSYS_CIERRE_BALANCE P_PROVCONT CIERRE_COMCIEXFECHA_CIERRE_RETIB_TMP TRAER_CIERRE" 5F%C'Q.T!Alguien ya anul la operacin !!!B-F,%CX0   E%C4 WTJEl Proveedor del Comprobante de Pago ya no existe ms. No puede anular !!!B- T T T T T  T - T -5%CX    2  T a XFG((comprob!TCOO68TC@z 9999,999,999_CZCZ E%C4 O F G((pago E+C+  TT  HF G((pago E+C+  TH T%C4P T- T- T T/+C+ CZCZ  TaT T !T!"#C$ZC%Z T&CO E!%C4 Ta  T-G((comprob #&H% *% >Tc T' T(-F TCOe+C+ R)CCO*+6@z 9999,999,999_COOA6C, %-  T(aH #e+C+ R)CCO*+6@z 9999,999,999_COOA6C, j% %.T''. T''.F/G((cuenta E0F % 1 1S [F2G((comprobE345FFH T'F #%0  %  %X% %6?DC7Mal registrado en CCPROV o bien en CCCOMP y COMPRAS !!!7 8C+No se puede anular, est mal registrado !!!7B- T% ;%62C%Diferencia entre CCCOMP Y COMPRAS !!!7 08C+No se puede anular, est mal registrado !!!7B- P T a  % %63C&Diferencia entre CCPROV y COM_OPER !!!7 8C+No se puede anular, est mal registrado !!!7B-BaU8REGISCOM_OPERXMSGPROVEEDOCOD_PROACC_CCPACC_COMACC_CMPACC_CCCACC_CCC2VALEPAGCONTNUMEROTIPOCCPROVCOMPROBXCXXRECINGXCXCOMPCCCOMPPAGODEUDATOT_COMCOMPRASOKREFOKACC1ACC2CAUSACUOTAIMPORTEXIXXREFREFCAUCUOOPRREG11XTOTALHAYINGXIDOPAGO OPERACIONFECHAAPLICCAJ_PROCUENTASCUENTAPROPIOVEN_OPEROCODIGOOCOMPROBOCAUSA PUB_INDEXMENSAJE.FG((comprob5TC@z 9999,999,999_CZCZ E T T/+C+  C ZC Z T  BAT T!TCZCZ TCO[ T >[ E>-%NUV% AO +> BAC ge02G((comprob #H%#% T C T 7 T F>C @z 9999,999,999_ OC @z 9999,999,999_O!c"! #$%&'C @z 9999,999,999_OCZCZ(C]BU)CCPROVCOMPROBXCXCOD_PROXCOMPXRECINGACC1ACC2COD_PROCAUSACUOTAOPN_DIASDIASFECHAIMPORTEXIXXREFREFCAUCUOOPRREG11AAAADELANTOMARKEDP_EMPFN_CANCGE02ACCING N_COCIENTE N_ACUMULADOXNUMINXFECHAIFECREFMONEDAXMONEDACOEFICXCAMBIOIDIDU T- TF # T TWTCC O  6@z 9999,999,999_C OOA6 Ce+C+ RCC O  6@z 9999,999,999_C OOA6 C F% 13TT,% O  A $FG((cuenta EF % 1 S _F>>>>>>>>>> !"Cg >#C$>$%>&&>'(>))>**>++>,C]F-G((idchequeEC ZC&Z%C4T>/0##FFG((cuenta EF[ T1 > 1[T2C3/ - CO4te_procs #2')  T6 T7 T8 T+>"9:;FH"qret_prov =>"qdretprov =>BU@CHQACCINGCOM_OPERREGISXASIDIAASIDIAXFECASIFECHAXIDXRECINGOPAGO OPERACIONCOD_PROTIPO N_ACUMULADOCAJ_PRO DIF_VALOR N_COCIENTEAPLICCUENTASCUENTAPROPIOCHEQUESCODIGOOCODIGOFEC_RECDES_VALEMISIONCOD_CUENUMEROCOMPROBOCOMPROBCAUSAOCAUSAASIENTOHOYPASEOPASESUBNUMMONEDAMONPASEMONEXTBANCHQNUMCHQIDUVEN_OPERIDCHEQUENOMBREDES_CLIEAAAXDETALLEPROVEEDOCONTROL_ANULACIONESTE_PROCSXCOD_PROXFECHAIXNUMINASIENTO2REFCAURET_PROV XCOMPROBANTEXCAUSADRETPROVJrccpagC@z 9999,999,999_OC$aF>0 ANULADOANULADOO C@z 9999,999,999_   C$%!%F G((idECZC Z%C4 >5> %F G((idECZC Z%C4 <>]> BUCOMPROBCAUSAFECHAANULADOXCOMPCOM_OPERCOD_PRODES_VALDES_PROV XFEC_COMPOPAGOUSR PUB_INDEXHOYASIDIAMONEDACOEFICMONEXTXRETGANXRETIBRET_PROVIDTIPONUMEROBASEIMPORTEXRETIVAREGIMENIMPUESTODEBEHABERD 5%Cejercon :FQejerconF-CT%C49%CdiariogF F,Q\C\diariogASIENTO%CconceptoF F-Q\C \conceptoASIENTOBU OKAAAEJERCONXFECASIDESDEHASTADIRDIARIOGP_PRIVASIENTOCONCEPTO}%Cejercon#FQ%CdiariogJFQ%CconceptorFQBUEJERCONDIARIOGCONCEPTO 5FG((asiento E T-4+C+ C   G(( Ta > > H%F G((asiento E%C4BUOKAAADIARIOGASIENTOXASIDIAXIDCOMPROBCAUCODIGOFECHAANULADOUSR PUB_INDEXCONCEPTO"qccpagBUCCPAGCOMPROBCAUSA XCOMPROBANTE*FG((comprob E%C4  IC@z 9999,999,999_L FG((asiento E+C+  HF G((asiento E+C+  HBU CCPAGCOMPROB XCOMPROBANTE AS_IMP_CHEINCOM_OPERCAUSAFECHADIARIOGASIENTOCONCEPTO> T T!%C f TB-%Cchp Qchp%Ccuentas QcuentasF T CO#~C+   '%S#F G((ID$EC ZCZ%C4!Ccuentascuenta TTEl cheque propio C  CCZ ha sido debitado !!!C @Antes de poder anulaar el pago debe anular el dbito del cheque.B- # BaUXERRXMSGXCOMPROBXCAUSAXCOMP FECHA_VALIDACOM_OPERFECHACOD_PROCHPCUENTASREGCOMPROBCAUSAPROPIOIDCUENTANUMEROSUBNUMDESCR transaccionQ busca_comprob fecha_validaanulable4 rest_ccprov! rest_com_operj% anul_logica,apertura_de_ejercicio50cierre_de_ejercicio1 anula_asidiat2 rest_ccpag3anula_impuesto_al_cheque,4otras_validaciones5"!ArQar1q!2A2 \ A AA212AA2B2ABB3qA2rSArAArAArArAra1arABABAA1AAAABAB2AAAa2qAAAsABu1E2uAB2qrqArqqAA]qrAArAAAAADCAAAqT1AAAR1AArqqqArAAr12AAq11!AqAA121AqAAAAq2rQBAAAbqAA4AA12aArQ CA2qqSqAArqqQuArAr qBAAAAsAA"!I2rQ 3`A2qQsAWB2qQsABA3Aq"qAqABB2qAAqAAqAAB2rAaAAqAABB2A2vrAAArAAABA2qqARA1As1BsB qABBr1Lq LQ [f 01nH1K7Re7IJCQReQ.SNST%TU;UV>6VXTX\' %=D>BYi%M< J( T C C T T T T T  T  T  T  T  T T T T Ta T co_compras%CC_g T-T|PAGOS: El atributo DIFERENCIAS DE CAMBIO NO TOMADAS (REGULARIZADORA) no est aplicado a una cuenta o lo est ms de una vez.%C 09 co_pagos.PRGAsientos Diarios%JFG((codproFG((asidiaG-(G-(G(AO T a T T! T"T#T$T%#)+C+ FCPAGOS'&F C( C) C*BU+ P_COMBEMPINTERCO MAXINTERCO INTERCOMPANIAUSE_PAGXIVA_COMXIVA_VENXP3337XIMCOM1XIMCOM2XIMCOM3XIMCOM4XIMCOM5XDES_COMXREDONXIVA_NCXIIXII2OKMSGASG_COM CO_COMPRASATRCANREPOPROVEEDOCODPROCOM_OPERASIDIACOD_PROCUENTACUENTASCAUSAXOKXASIDXASIHXFECDXFECHXDIADIAFECHA REG_ASIDIA UNUSE_PAG UNLOCK_ALLUTC %Cxaux1nbNC T%g TF&%  JF E%C4 +>   F% Tc T \% XTc T% %FG((cuenta E%TCFT >L !"P#$%&'A(C$)*+,-./0123456789:;<T==1T>>CC/-6 TBU? XPROVINCIAXAUX1NDIARIOGXOKXDEBXCRECONCEPTONEWASIASIENTO XCONCEPTOUNXUNTIPO2 P_COMBEMPCUENTASCOD_CUEXCUECUENTAEMPRESAP_CODEMP REEMP_INTERCOXPASEDEBITOCREDITOPOR_QUECOMPROBXCOMPROBCAUXCAUSACOD_CENXCENPASEFECHAXFECHAPROCLINOMBRE XDES_PROVCODIGOXCOD_PROTIPOHOY COMENTARIOXCOMENT SUBCENTROXSUBCAMBIOXCOEFICMONEDAXMONEDAMOTIVOXMOTIVOMONEXTXMONEXTMONPASEXMONPASEUSRXUSRAUX1N PROVINCIANUMEROXNUMEROACCACCME%CXBFG((cuenta EBC4 %2 rBa B-BUCOM_OPERCOD_PROCUENTASCUENTAPROVEEDOCUE_DEUTIPONUMERON%Cper_prov .Qper_prov%Cccpag ZQccpag%Ccccomp QcccompcccordF G((pago%Ccompras Qcomprascom_ordF G((pago%Cbienes -QbienescodinsFG((codinsBU PER_PROVCCPAGCCCOMPCCCORDPAGOCOMPRASCOM_ORDBIENESCODINS %Cproveedo,FG(G-(%Ccom_oper\FG(G-(%CccprovFG(G-(%CcccompFG(G-(%CcomprasFG(G-(%CbienesFG(G-(BUPROVEEDOCOM_OPERCCPROVCCCOMPCOMPRASBIENES TFG((comprob&ECZCZ TaL+C+ 9CZCZCZCZ  T H7 CT FC  cT NC  d7T ND %W T% %TPago de 'TC ,  6 % T-HFBU XCONCEPTOCCPROVCOMPROBCOM_OPERCOD_PROCAUSAINICCUOTAOPXCCCCAUREF 4 5F G((pago E T+C+  T% OF EF%CBIENES+ 2 T T C X  co_compras  %  T-!T T  K T-! vF E%C XC+ T TT r T-kTC  COCPAJ6 # Cuenta invlida en compras.(PAGOS):co_compras.PRG FHF E=T !"#$%&'() Ta!%C? T-TC  COCPAJ6  Pago CC@z 999,999,999_ con diferencias !!!.(PAGOS);co_compras.PRGAsientos DiariosF BU*XIMPORTEXPAGOACCOKCOMPRASPAGOTOT_COMCOD_INSOBIEDATA_CODIGO_VACIOBIENESXERRXCUCUENTA_ACTIVO_O_IMPORTACIONES CO_COMPRASXOKXCECOD_CENXSC SUBCENTROCUENTASCOD_CUEMSGCOM_OPERCOD_PROCAUSACOMPROBREPOFAC_COMCCCOMPDES_COMIVA_COMIVA_NCIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5P3337IIII2REDONDEO, 4 TF G((pago E9T     *TCC 6)TPC CC@z 999,999,999_TCX T T TT T TTTT T! C"%#  T$T T  T% TTc T TTTT T! C" T&T T T TTTT T! C" T'T T T TTTT T! C" T(T T T TTTT T! C" T)T T T TTTT T! C" T*T T T TTTT T! C"T T T TTTT + T+a., co_comprasO.+T//+ T0 T1T T T TTTT T! C"%2 T3T T T TTTT T! C" T4%56T5 T ^ TT5c T TTTT T! C" T6T T T TTTT T!% d C"F7 G((pago E+C+   %789:8 F; E78F7%CBIENES+  T<;=T>;?T@;A 4 T/-! ` FB E7=%=C XC+ T<7=T>7?T@7A \ T/-kTCCDE  CDFOCPAJ6 DG# Cuenta invlida en compras.(PAGOS);Hco_compras.PRGAsientos DiariosCT7IT7J T T< T> T@T7T7T7KT T! C"F7HFDBULACCXPAGOXIMPCCCOMPPAGODES_COMIVA_COMIVA_NCIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5P3337IIII2 XDES_PROVDES_PROVPROVEEDONOMBREXCOMENTXCENXSUBXCUEXDES_COMXDEBXCREXMONEDAMONEDAXCOEFICCOEFICXUNUNXNUMEROASIENTOP_IVASEPXIVA_COMXIVA_VENXIVA_NCXP3337XIMCOM1XIMCOM2XIMCOM3XRESPERCEPCION_X_PROVINCIA CO_COMPRASFEC_DGIXOKXAUX1NXII P_II_VERSIONXII2XREDONREDONDEOXIMCOM5COMPRASCOD_INSOBIEDATA_CODIGO_VACIOBIENESXCUCOD_CUEXCECOD_CENXSC SUBCENTROCUENTASMSGCOM_OPERCOD_PROCAUSACOMPROBREPODESC_INSTOT_COMIMPORT5 T-FG((comprob E%C4%A++C+   %P TaH  Ta BUAUXDIARIOGCOMPROBXCOMPROBXCAUSACAUPROCLI4BCUFECHASYS_CIERRE_BALANCE%CEMPRESAS 9FQ \empresasFF~C]\STTT%BUP_SYSTEMEMPRESASCUENTASATRIBUTO MAXINTERCOINTERCOEMPRESACOD_CUEk 45([%CWBC BUXEMPXCUEZ MAXINTERCOINTERCO4%CH Ta T- TTC T-G+(co_aut%q T T T T  T  T  T  T  T T T T T Ta co_compras% m T-% BF TaT%G((comprob EDTC  COCPAJ6 B%CPROVEEDO+2   C  T-vTC  COCPAJ6 . Proveedor inexistente o mal su cuenta.(PAGOS) B$%    T-eTC  COCPAJ6 ! Tipo de cambio en 0. (PAGOS) >T"%OF# G((pago E% T&C4  T&-F'G((codpro E"FT T) T*% T+ T, T-CO*+C+  j%)[%%CCUENTAS+ .C X C T-`TC  COCPAJ6  Cuenta invlida.(PAGOS)T,,/FH%:%&C,*0F #- T1 T2%C43 q T-TC  COCPAJ6  Fecha: C4*& Anterior al cierre de balance.(PAGOS)%C45  T-TC  COCPAJ6  Fecha: C4*( No pertenece a ningn ejercicio.(PAGOS)%C6  T-TC  COCPAJ6 & Comprobante ya registrado en asiento CC7Z.(PAGOS)%6F #-HQ 4 T8 5: T8 2Q T8 T9 C:T;'<2T=COCPAJ6 C T1 T>4 T"$T?CC@ 'A@6 T2T*% TB TC TD% TECWFFG((asiento CG% E%C4 #6TC7  TC  #6TC7H TH- TIJKLCH%HI TIF:G((asiento EC%C4  >7C FE  TC4M%5N TN T, TO TPQFRG((comprobEF*+C+  TPS%) T=%3 %T=CC@z 999,999,999_%%TS U  *T==/CCU @z 999,999_T== T==V%W 2T=Ret. N CCW@z 9999,999,999_TX. TYTZ/T[\ T]T^T_ T`acTbcTPS TdTeRfTghTi C7%5[ Tj8 T8TX. TYTZ/T[\ T]T^T_NgmC T`TbcTPS TdTeRf Ti C7TXC_kTY/ TZT[\ T]T^T_NgmC T`TbcTPS TdTeRf Ti C7 T8jT^T_ F >lCT,,/FH%,%&C,*m %,% TY, TZ J TYTZ,c T=9 TX; T9 TY, TZ T[ T] T` Tb TdTeRf Ti C7 Cno Top co_asientosCo%oCor Ts T-;T* El asiento no se genera correctamente !!!% <ttrsacNCo_pagosAsientos Automticos Tv 2 T- T%  8w co_pagos.PRG F#+C+  H%  CxBUyXOKXDESDE_OPERACIONMSGXASIENTO_SUGERIDOPREGUNTOCO_AUTXIVA_COMXIVA_VENXP3337XIMCOM1XIMCOM2XIMCOM3XIMCOM4XIMCOM5XDES_COMXREDONXIVA_NCXIIXII2OKASG_COM CO_COMPRASCOM_OPERXCCOD_PROCOMPROBCAUSAXID_COMPROBANTETIPONUMEROVLD_PROMONEDACOEFICVEN_OPERXCOD_PROCCCOMPPAGOOPAGOXPROPROVEEDOCODPROXCLXPAGOACCACC1REGCUENTACAJ_PROVERIFICAXCOMPROBXCAUSA FECHA_VALIDAFECHA EJ_ACTUAL HAY_ASIENTOASIENTOXMOTIVO XCONCEPTOCONCEPTOXDEUDACUE_DEUXCOMENTXFECHA XDES_PROVDES_PROVNOMBREXPASENEWASIXIMPORT XAREA_ASIDIARIOGFILE_LOC XRES_LEGALXLEGALES_ASIENTO_LEGALEJERCONDIR NUEVO_ASIENTOAAAACCMEXUSR PUB_INDEXCCPAGUSRPROPIOSUBNUMDES_VAL GANANCIASXCUEXDEBXCREXCENCOD_CENXSUBXMONEDAXCOEFICXMONEXTMONEXTXMONPASEMONPASEXIMPXUNUNXAUX1N PROVINCIAXNUMERO OLDMOTIVOATRCANASIDIAPAGOCONTAJUSTE_CONVERSIONXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROREND_TRANTRSACTTS_IDREPO UNLOCK_ALLasientovld_prof use_pagE unuse_pag conceptoAverificapagocont hay_asiento# fecha_valida$ intercompania$ reemp_interco& reg_asidia&r1BQA"Arr111RbrCBB2q2A3AsarQAr21AAaqAbArAQSAA2qrqAAA3AArAAqAqAqI2qaaAqaaArqaaArqaaAqaaArqaaAC3qaAAAAAAAA1QAqAAAArA2tqrAAAAqABrAArrAr3rAzB3AaAaAtqqAArABxAArA<qqAAAAAAA2q3qAqrA2CB2qAA21&A2QABAAsQAB#aBQrqArrQ1SABArAA"Brr1ArQAq!AsAAA!Ar2QAQAraAtQAAAqq1r1aQQA!AAb!ArQCQAsBArAA2!1AAAr1AAABABBFr1AAAA19\ Xgp X ul (>I^?--2/K///C1]112V%*|"4%N"pkX 4%C) T%C[TCGENERICOG_ G~(clases < 7 TTC abm_bul_genN!TCU- C-  BU XCODINS XSHOWWINDOWOBIEDATA_CODIGO_LARGOCLASES POABMBUL_GENPOARTICULOBULTO SOLO_LECTURAACCESOSHOW) ges%Cbienes ?Qbienescodins%Catributo qQatributo%Cbultos Qbultos%Cbul_gen Qbul_gen%Cstock Qstock%Clineas )Qlineas%Cgrupos WQgrupos%Cbul_genl Qbul_genl%Cbul_geng Qbul_geng%Cvbul_gen Qvbul_genF & & & BUGESBIENESCODINSATRIBUTOBULTOSBUL_GENSTOCKLINEASGRUPOSBUL_GENLBUL_GENGVBUL_GENCLAVECODIGODESCRIDv %C TMPGrupos0FQ?obul_gengQ  tmpgruposUXCODINSXCLAVE TMPGRUPOSBUL_GENGBGGCOD_INSCLAVEp %C TMPGruposi%qbul_geng rbul_gengo tmpgruposUXCODINSXCLAVEBUL_GENGCOD_INSCLAVE TMPGRUPOSv %C TMPLineas0FQ?obul_genlQ  tmplineasUXCODINSXCLAVE TMPLINEASBUL_GENLBGLCOD_INSCLAVEp %C TMPLineasi%qbul_genl rbul_genlo tmplineasUXCODINSXCLAVEBUL_GENLCOD_INSCLAVE TMPLINEASA TCC CUXCODINSPOARTICULOBULTOABRIR_TMPLINEASVBUL_GENCLAVEABRIR_TMPGRUPOS B UF >U ABMVBUL_GENGENERICO <F ~TTTT  T  T Tspbul_gen     % iXrbul_gen     CF%C CC CU POABMBUL_GENPOARTICULOBULTOVBUL_GENXCOD_INSCOD_INSXCLAVECLAVEXDESCRDESCR XCANTXBULT CANTXBULT XPESOXBULT PESOXBULT XVOLUXBULT VOLUXBULTXIDIDBUL_GENBUL_INICIALIZAR_COMBINACIONODEYFUNCGET_P_DOS_VALIDAABRIR_TABLAS_2MODIFICAR_GENERICOSCERRAR_TABLAS_2CUXCLAVEAGREGAR_GENERICOS_FALTANTESCUXCLAVEMODIFICAR_GENERICOSCUXCLAVEBORRAR_GENERICOS FG((codins%= EFG((codigo%S@FG((codigo*~C  zzz<FE CX%C4 1 > > >  $> C C X C] 6F FE CX%C4  > > >  $> C C X C] 6U XCOD_INSXBULBIENESCODINSCOD_INSSTOCKCODIGO ATRIBUTOSATRIBUTOCLAVEBULATRIDU%C0T%CUTCCUXCOD_INSXBULXEMPRESAOBIEDATA_CODIGO_VACIOOBULBORRAR_GENERICOSAGREGAR_GENERICOS_FALTANTES%C4 T%T TMP2Bultos%C *CNo est abierta la tabla B- TBultos%CT%CTselect &xtabla_bultos YCC     CC       U XCOD_INSXBULXEMPRESA XTABLA_BULTOSMENSAJEOBIEDATA_CODIGO_VACIOOBULBULTOSCOD_INSCLAVEGENERICO4%CD TCerror%JT TMP2BienesT TMP2Bul_GENT TMP2Bul_GENL2T TMP2Bul_GENG2T TMP2Bultos%C **CNo est abierta la tabla  B-%C q*CNo est abierta la tabla  B-%C *CNo est abierta la tabla  B-%C *CNo est abierta la tabla  B-%C F*CNo est abierta la tabla  B- TBienesTBul_GENTBul_GENLTBul_GENGTBultos%CT %CT :select bg.*, nvl(bgl.linea,-1) as linea, nvl(bgg.grupo,-1) as grupo from &xtabla_bul_gen bg left outer join &xtabla_bul_genl2 bgl on bg.cod_ins=bgl.cod_ins and bg.clave=bgl.clave left outer join &xtabla_bul_geng2 bgg on bg.cod_ins=bgg.cod_ins and bg.clave=bgg.clave where bg.activo="S" into cursor tmpbulgenlg % -Eselect bi.cod_ins, bg.clave from &xtabla_bienes bi, tmpbulgenlg bg where ((empty(xcod_ins) and bi.bul_gen=1) or (not empty(xcod_ins) and bi.cod_ins=xcod_ins) and (empty(xbul) or (not empty(xbul) and bg.clave=xbul))) and (bg.linea=-1 or bg.linea=bi.linea) and (bg.grupo=-1 or bg.grupo=bi.grupo) into cursor fgb readwrite select fgb.cod_ins as fgbcod, bg.* from fgb left outer join &xtabla_bul_gen bg on bg.clave=fgb.clave left outer join &xtabla_bultos bl on fgb.cod_ins+fgb.clave =bl.cod_ins+bl.clave where isnull(bl.cod_ins) and not isnull(bg.clave) into cursor bgadd readwrite > >>C]i1bgadd2insert into &xtabla_bultos select * from bgadd FQFQUXCOD_INSXBULXEMPRESA XTABLA_BIENESXTABLA_BUL_GEN XTABLA_BULTOSXTABLA_BUL_GENL2XTABLA_BUL_GENG2SYS_MMENSAJEOBIEDATA_CODIGO_VACIOOBULCOD_INSFGBCODALLIDCLAVEIDUBGADDFGB'%CC TMP2Bultos K$QCBultos(%CC TMP2Bul_gen %QCBul_gen*%CC TMP2Bul_genG2 &QCBul_geng*%CC TMP2Bul_genL2 D&QCBul_genl'%CC TMP2Bienes $QCBienes)%CC TMP2Atributo &QCAtributoU ODEYFUNCGET_P_DOS_VALIDAGET_PATH TMP2BULTOS TMP2BUL_GEN TMP2BUL_GENG2 TMP2BUL_GENL2 TMP2BIENES TMP2ATRIBUTOp%C TMP2Bultos&FQ%C TMP2Bul_genQFQ%C TMP2Bul_genG2~FQ%C TMP2Bul_genL2FQ%C TMP2BienesFQ%C TMP2AtributoFQ [G(CGES.DBC%%CCGES.DBCW(iU TMP2BULTOS TMP2BUL_GEN TMP2BUL_GENG2 TMP2BUL_GENL2 TMP2BIENES TMP2ATRIBUTOODEYFUNCGET_PATHODD openfilesabrir_tmpgrupos3guardar_tmpgruposabrir_tmplineasguardar_tmplineasS modificarsugerir_no_numinicializar_registro hook_release agregar_pos  modificar_pos  borrar_posY bul_inicializar_combinacion modificar_genericos borrar_genericosagregar_genericos_faltantesabrir_tablas_2cerrar_tablas_2HTbul_genT TCodigo:T- 'xdos_scatter.cod_ins + xdos_scatter.clave' Tbul_gen,Tvbul_gen.cod_ins+vbul_gen.claveT T vbul_genT  TdescrTdescrTclaveTcodigoThlpT abmbul_gen T- TP TTclaveTcodigoTCdigo T T-    U DOS_TABLA DOS_COPIARP_ESPEJA_BUL_ATR_COMBP_ESPEJA_HABILITAR DOS_IDXCLAVEDOS_CLAVE_FORMULA BORRAR_TABLA BORRAR_CLAVETITULOOBUL LABEL_PLURALTABLATITULO_BUSQUEDA LABEL_LARGOCLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 SHOWWINDOW XSHOWWINDOW CERRAR_TABLAS abm_bul_genhlpabm2AAaB2AAA!A1ArA!A!AAAAAAAsE2qAA3QA6qAA4QA@1AA33q3u;"ACrA2A2q2q2q6q1ArrqqQAArAqQAAA2AAaa2qA1q!qA1AAA2qA"2qq!qA!qA!qA!qA"qA1AQQ1AAA"U!!"AqAA3qAAQAaAaArAAaA2qAAqAAqAAqAAqAAqAAQQAA2CA1BQ!!!1q!11 4t6[L=2UC`*`JTjQu V , X[ [ r3pux {d$9%<(b(*.M*s%)!#AE!suD 4%C) T%C[TCGENERICOG_ G~(clases < 7 TTC abm_atr_genN!TCU- C-  BU XCODINS XSHOWWINDOWOBIEDATA_CODIGO_LARGOCLASES POABMATR_GEN POATR_GEN SOLO_LECTURAACCESOSHOW ges%Cbienes ?Qbienescodins%Cbultos mQbultos%Catributo Qatributo%Cstock Qstock%Clineas Qlineas%Cgrupos 'Qgrupos%Cbul_genl YQatr_genl%Cbul_geng Qatr_geng%Catr_gen Qatr_gen%Cvatr_gen FQvatr_gen& & BUGESBIENESCODINSBULTOSATRIBUTOSTOCKLINEASGRUPOSATR_GENLATR_GENGATR_GENVATR_GENCLAVEDESCR| %C TMPAtrGrupos3FQBoatr_gengQ  TMPAtrGruposUXCODINSXCLAVE TMPATRGRUPOSATR_GENGBGGCOD_INSCLAVEv %C TMPAtrGruposo%qatr_geng "ratr_gengo TMPAtrGruposUXCODINSXCLAVEATR_GENGCOD_INSCLAVE TMPATRGRUPOS| %C TMPAtrLineas3FQBoatr_genlQ  TMPAtrLineasUXCODINSXCLAVE TMPATRLINEASATR_GENLBGLCOD_INSCLAVEv %C TMPAtrLineaso%qatr_genl "ratr_genlo TMPAtrLineasUXCODINSXCLAVEATR_GENLCOD_INSCLAVE TMPATRLINEASA TCC CUXCODINS POATR_GENABRIR_TMPATRLINEASVATR_GENCLAVEABRIR_TMPATRGRUPOS B UF >U ABMVATR_GENGENERICO{ <F ~:TTTT  T  Ypatr_gen       % Dratr_gen    CF%Ct CC CU POABMATR_GEN POATR_GENVATR_GENXCOD_INSCOD_INSXCLAVECLAVEXDESCRDESCRXAUTAUTXIDIDATR_GENATR_INICIALIZAR_COMBINACIONODEYFUNCGET_P_DOS_VALIDAABRIR_TABLAS_2MODIFICAR_GENERICOSCERRAR_TABLAS_2CUXCLAVEAGREGAR_GENERICOS_FALTANTESCUXCLAVEMODIFICAR_GENERICOSCUXCLAVEBORRAR_GENERICOS FG((codins%= EFG((codigo%S@FG((codigo*~C zzz<FECX%C4 1 >>  > $> C C X C] 6F FE CX%C4  >>  > $> C C X C] 6U XCOD_INSXATRBIENESCODINSCOD_INSSTOCKCODIGOBULTOSCLAVEBULATRIDU%C0T%CUTCCUXCOD_INSXATRXEMPRESAOBIEDATA_CODIGO_VACIOOATRBORRAR_GENERICOSAGREGAR_GENERICOS_FALTANTES%C4 T%T TMP2Atributo%C *CNo est abierta la tabla B- TAtributo%CT%CTSELECT &xtabla_atributo PCC    CC      U XCOD_INSXATRXEMPRESAXTABLA_ATRIBUTOMENSAJE XTABLA_BULTOSOBIEDATA_CODIGO_VACIOOATRCOD_INSCLAVEGENERICO%C< T%2T TMP2BienesT TMP2atr_genT TMP2atr_genL2T TMP2atr_genG2T TMP2atributo%C *CNo est abierta la tabla B-%C Y*CNo est abierta la tabla B-%C *CNo est abierta la tabla B-%C *CNo est abierta la tabla B-%C .*CNo est abierta la tabla B- TBienesTatr_genTatr_genLTatr_genGTatributo%CT %CT :SELECT BG.*, NVL(BGL.Linea,-1) AS Linea, NVL(BGG.Grupo,-1) AS Grupo FROM &xtabla_atr_gen BG LEFT OUTER JOIN &xTabla_atr_genL2 BGL ON BG.Cod_ins=BGL.Cod_ins AND BG.clave=BGL.clave LEFT OUTER JOIN &xTabla_atr_genG2 BGG ON BG.Cod_ins=BGG.Cod_ins AND BG.clave=BGG.clave WHERE bg.activo="S" INTO CURSOR TMPAtrGENLG <SELECT bi.Cod_ins, BG.clave FROM &xtabla_bienes bi, TMPAtrGENLG BG WHERE ((EMPTY(xcod_ins) AND bi.atr_gen=1) OR (NOT EMPTY(xcod_ins) AND bi.Cod_ins=xcod_ins) AND (EMPTY(xatr) OR (NOT EMPTY(xatr) AND BG.clave=xatr))) AND (BG.Linea=-1 OR BG.Linea=bi.Linea) AND (BG.Grupo=-1 OR BG.Grupo=bi.Grupo) INTO CURSOR fgb SELECT fgb.Cod_ins AS fgbcod, BG.* FROM fgb LEFT OUTER JOIN &xtabla_atr_gen BG ON BG.clave=fgb.clave LEFT OUTER JOIN &xtabla_atributo bl ON fgb.Cod_ins+fgb.clave =bl.Cod_ins+bl.clave WHERE ISNULL(bl.Cod_ins) AND NOT ISNULL(BG.clave) INTO CURSOR bgadd READWRITE > > >C]i1bgadd 4INSERT INTO &xtabla_atributo SELECT * FROM bgadd FQFQUXCOD_INSXATRXEMPRESA XTABLA_BIENESXTABLA_ATR_GENXTABLA_ATRIBUTOXTABLA_ATR_GENL2XTABLA_ATR_GENG2MENSAJEOBIEDATA_CODIGO_VACIOOATRCOD_INSFGBCODALLIDCLAVEIDUBGADDFGB)%CC TMP2atributo O&QCatributo(%CC TMP2atr_gen %QCatr_gen*%CC TMP2atr_genl2 &QCatr_genl*%CC TMP2atr_geng2 H&QCatr_geng'%CC TMP2Bienes $QCBienesUODEYFUNCGET_P_DOS_VALIDAGET_PATH TMP2ATRIBUTO TMP2ATR_GEN TMP2ATR_GENL2 TMP2ATR_GENG2 TMP2BIENESF%C TMP2atributo(FQ%C TMP2atr_genSFQ%C TMP2atr_genL2FQ%C TMP2atr_genG2FQ%C TMP2BienesFQ 1G(CGES.DBC%%CCGES.DBC-(?U TMP2ATRIBUTO TMP2ATR_GEN TMP2ATR_GENL2 TMP2ATR_GENG2 TMP2BIENESODEYFUNCGET_PATHODD openfiles}abrir_TMPAtrGruposGuardar_TMPAtrGruposabrir_TMPAtrLineasGuardar_TMPAtrLineasJ modificarsugerir_no_numinicializar_registro hook_release agregar_posG  modificar_pos  borrar_pos atr_inicializar_combinacion modificar_genericos< borrar_genericos4agregar_genericos_faltantes>abrir_tablas_2cerrar_tablas_2!Tatr_genT TCodigo:T- 'xdos_scatter.cod_ins + xdos_scatter.clave' Tatr_gen,Tvatr_gen.cod_ins+vatr_gen.claveT T vatr_genT  TdescrTdescrTclaveTclaveThlpT abmatr_gen T- TP TTclaveTclaveTCdigo T T-    U DOS_TABLA DOS_COPIARP_ESPEJA_BUL_ATR_COMBP_ESPEJA_HABILITAR DOS_IDXCLAVEDOS_CLAVE_FORMULA BORRAR_TABLA BORRAR_CLAVETITULOOATR LABEL_PLURALTABLATITULO_BUSQUEDA LABEL_LARGOCLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 SHOWWINDOW XSHOWWINDOW CERRAR_TABLAS abm_atr_genhlpabm2AAaB2A!AAArA!A!AAAAA1AAB3qAA!3Q!A6qAA!4Q!A@1AA33q3v"GABqA2A3q2q2q3r1ArrqqQAArAqQAAA4AAaa2qA1!qAQAAA2A1q!qA!qA!qA!qA!qA1AQQQAAA!!ArAqA2aAQAaAaAqAA2qAAqAAqAAqAAqAAQQAA2CA1BQ!!!!q!!14B5b5L<`UBH`IHjPm U $ WS Z oBru/xo W"6|"%%K%B'!J9t%qPWQ*^Xe G(9 $ 5x* T T T T T T T T  T  T  T T CX TG+(listadosG+(dey_funcG+( dey_filtersG+( ve_funcionesG+(ve_funciones_precios+aZ CTCC]R TCC]R FG((codigo TC TTCX T T +a T!H( B C T" abm_lis_pre("Hz> "! "% T   "% ! T   "! "> T  C$G((codigo%% abm_lis_pre1(" abm_lis_pre1_v2("H "! "1% -T   "l% ! hT   "! " T %" C(%CtmpcfgF)Q%C listapreciosFQ  *\tmp\.dbf *\tmp\.cdx *\tmp\.idx *\tmp\.dbf *\tmp\.cdx *\tmp\.idx -7+abm_lis_pre.prgABM Listas de Precios%"H. V!BU, ACTIVEFORM DATASESSIONIDXDINSXHINSXDBULXHBULXDATRXHATRXDLINXHLINXDGRUXHGRUXMARCAXCOD_PROXMONEDALISTADOSDEY_FUNC DEY_FILTERS VE_FUNCIONESVE_FUNCIONES_PRECIOS OPEN_FILESXTABLACREAR_TABLA_LISTA XLISTAPRECIOSCREAR_TABLA_PRECIOS LISTAPRECIOSCODIGO XFECHAHORAXLISTAXCOD_CLIXGEN P_PRECIOGENXFORMXMAXFORMXRES ABM_LIS_PRE CARGAR_LISTAP_PRECIOS_ABM_VERSION ABM_LIS_PRE1ABM_LIS_PRE1_V2 REGISTRARTMPCFGP_LOCALSYS_DUMP 4T .t. % %C 5T$ and between(cod_ins, xdins, xhins) %C 3T" and between(linea, xdlin, xhlin) %C 3T" and between(grupo, xdgru, xhgru) %C R#T and marca=xmarca %C 'T and cod_pro=xcod_pro F CCCN 8 T SCAN FOR &xfiltroT  %C  G2-CProcesando (1 de 3) ... CC ZT % &% S S F6~CC Ca6 F6~CC Ca6 r !"#$    ! "C # %S %S 6 $ &% S S F6~CC Ca6 r !"#$     ! "C # %S 6 $ &% S S #F6~CC Ca6 r !"#$     ! "C # %S 6 $ r !"#$      ! "C #6 $ r !"#$      ! "C #6 $ C&%Cstock QstockF'G((codigo FCCCN 8 T  ~ T  %C  Gv-CProcesando (2 de 3) ... CC Z T(#Cbienescodins&% S S q FT)CXF' E)%C4F %('% B F ># F>*'*+'+  F>+ + F+%Ccosultcodigo[ !%,DAL- W ^>./01/12/34/56/78/9:/; F%C$ T<$%%C<proveedocodpro F>=>= C&BU?XTABLA XNOFILTRADAXFILTROXDINSXHINSXDLINXHLINXDGRUXHGRUXMARCAXCOD_PROBIENES ESTADO_INIXACC ESTADO_INCXCODCOD_INSXGENBULTOS ATRIBUTOSATRIBUTOXDATRXHATRCLAVEXDBULXHBULCODIGOBULATRDESCRDBULDATRTIPO_ARTLINEAGRUPOEST_ACTCOD_PROACTIVO ESTADO_RELSTOCKXEST_ACTXCLAVESUBGRUPOBARRASP_EMPP_COSTOS_DAL_VERSIONPRECIOOCOSULTCOSORIMONEDADTOPRV DESCUENTODTOPRV2DESC2DTOPRV3DESC3DTOPRV4DESC4DTOPRV5DESC5 XCOD_PRO_TMPCATPROVEEDO\%C nCoLog-TCloguear_precios sys_log.prg TC%Cbienes QbienesF G((codigoG(  ( T% H T -trsac lisprecbienes% HTabm_lis_pre.prg%TActualizacin de precios T T T $trsac %Cusuarios Q \usuariosCusuarioscodigoTBC2Inicio de la registracin de precios (ABM_LIS_PRE)( T ~BT  %C dG!Gsys_procesando Procesando: CC  d Z % C !"6  # $ % & ' ( ) * + , -!%.DAL  7oCC !"6 # $ % & ' ( ) * + , -F %C/ eT ?C/FIN de la registracin de precios (ABM_LIS_PRE)C- C0%  T  T  T$1trsac  T2G G( _ T%3bienes25@TCSe han actualizado CC Z registros !!! "6bienes22T%No se han actualizado los precios !!!% DC7 BU8XCON_Y_SIN_CLIENTESXMENSAJE_SALIDAXAUTXOK XESTADOINCOLOGTYPEOSYS_MXACTFECBIENES LISTAPRECIOSCODIGOXACCAAAUPDLOCK_GTRSACTRAN_PRGTRAN_TXTXCOMPROBXCAUSABEG_TRANP_SYSTEM PUB_INDEXXUSUARIO_ACTUALUSUARIOSDESCRLOG XREGISTROS SP_MENSAJESYS_PROCESANDO ACT_PRECIOXLISTACOD_CLIXCOD_CLIBULATRPRECIOBONIFMARGENCAMBIOPUBLICOMONEDAPRECIOODTOPRVBONLISP_EMPACTUALIZAR_COSTOS_REPOSICION ESTADO_RELEND_TRANTTS_IDACTUALIZAR_BIENES_FASTBIENES2 XFECHAHORABIENES_FAST_ACTUALIZARMENSAJE%CrepcosbN}(%Cidx04 iQidx04Cidx04IDX04o listapreciosQ Q Q  Q QQQQCC C idx04.indiceCC Z 6Q tmpcostos2>!cs_modificar_costo_reposicion.prgCXCUXFECHAFECHAREPCOS LISTAPRECIOSIDX04CODIGOBULATRTIPOMONEDACOSTOFACTORDTOPRV DESCUENTODESC2DESC3DESC4DESC5CAMBIO TMPCOSTOS2ACTUALIZAR_COSTOSCS_MODIFICAR_COSTO_REPOSICIONPRGG     FG((lisxcliECZ T-G%C4 5        Ta5>%C+ % >C$FG((codins E >C$FDC Precio: CCZ%DC Bonificacin: CCZ% qDCBonif. x lista: CC Z%!DC Cambio: CCZ%"'DC Margen: CCZ4>#  C$ >! >"%$DAL%% >C Moneda: CC Z%& 5>C Prec.Prv: CC Z%' >C Desc.Prv: CC Z!>% & ' ?% # "   FG((codins E%C4 >)C2%CC C C T*fac_lprCCZREPLACE &aaa WITH xprecio BU+XLISTAXCOD_CLIXCODIGOXBULXATRXPRECIOXBONIFXMARGENXCAMBIOXPUBLICOXMONEDAXPRECIOOXDTOPRVXBONLISXREPCOSXREPFECOLOGLISPRECLISXCLIXNEWLISTACOD_CLICODIGOBULATRPRECIOFECHABIENESCODINSFECACT LOG_PRECIOSBONIFBONLISCAMBIOMARGENPUBLICOP_EMPMONEDAPRECIOODTOPRVINACTAAA%Clisprec /FQlisprec%Cclientes nFQclientescodcli%Cbienes FQbienescodins%Cbultos F Qbultos%Cstock F Qstock%Cmarcas :F Qmarcas%Catributo oFQatributo%CLineas F Qlineas%CGrupos F Qgrupos%Cproveedo FQproveedo%Ccatpro 7F Qcatpro%Ccosult hF Qcosult%Ccfg_lis FQcfg_lisFBULISPRECCLIENTESCODCLIBIENESCODINSBULTOSSTOCKMARCASATRIBUTOLINEASGRUPOSPROVEEDOCATPROCOSULTCFG_LISE#TC TC  C/C/C C CZ CC (C)6%C C >P Precio: abm_lis_prePREUXCODIGOXATRXBULXCOD_CLIXLISTAXTXTXORIGENOLOGXMSGXUSUARIO_ACTUALTYPEOLOGUSER_LOG PUB_INDEXTCcfg_lisO=TC C 66=TC   C   66=TC   C   66%  T %T %C   XT %%&>Cd T > T%#% Cg  T TAlistadosC$Cga%C&>Cd T%>  >BU XMONEDA_BASEXPRECIO_NO_BASEXBONIF_NO_BASEXBONLIS_NO_BASEXBONLISXREG_LIS LISTAPRECIOSPRECIOPRECGENBONIFBONGENBONLIS BONLISGEN BONLISREFCFG_LIS COMPUTADO DECIMALES XPRECIO_BASEPRECREFP_PRECIOS_VERSIONMONEDAXERRXMSGCONVERTIR_ENTRE_MONEDASLISTADOSMENSAJE COMPUTBONBONREF TC.t.  TCWTC]TT T  SELECT *, xdecimales AS decimales , xbonlisbase AS gbonlis FROM listaprecios WHERE &xfiltro INTO TABLE (p_local+"\tmp\"+xtmparch) T  Q% Z+CNo hay datos para exportar !!! BG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTLista de Precios CCZ CCC  por el cliente C6C para control6T CCcodigoCdigoCatrAtributoCbulBulto#Cdescr Descripcin%ACprecioPrecioC de la Lista6%PCbonlisBonificacin IncluidaC de la Lista6FCbonif BonificacinC de la Lista6%C )CprecgenPrecio Genrico%:C bonlisgenBonificacin Incluida Genrica.CbongenBonificacin Genrica% +CprecrefPrecio Lista Base%M<C bonlisref Bonificacin Incluida Lista Base0CbonrefBonificacin Lista Base9CgbonlisBonificacin General Lista Base%C decimales DecimalesBC computadoPrecioC Computado6HC computbon BonificacinC Computada6CfechaFechaTCG(9 FBUXTIPOXFILTROXAREA XCOMPROBANTEXTMPARCH XLISTABASECFG_LIS LISTABASE XDECIMALES DECIMALES XBONLISBASEBONLISXTALLYMENSAJELISTADOSXEXPXPAR EX_TITULOXLISTADESCRXCOD_CLICLIENTESNOMBREEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGARP_PRECIOS_VERSION EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONID%C listaprecios,Qh1\tmp\CCCC<CC N N N N NNNNNN NCN NNNNCNLNNN N!D"N#N$N%N&N'N(N)N*N+DQ\tmp\& & & & & ,& & & & G((codigoBU- XLISTAPRECIOS LISTAPRECIOSP_LOCALCODIGOBULATRDESCRDBULDATRPRECIOPUBLICOBONIFBONLISTIPO_ARTLINEAGRUPOSUBGRUPOEST_ACTBARRASCOSTOCOD_PROCATMARGENDTOPRVMONEDAPRECIOOMONTXTCAMBIOUPDDTOPRV2DTOPRV3DTOPRV4DTOPRV5FECHAPRECREFBONREF BONLISREFPRECGENBONGEN BONLISGEN COMPUTADO COMPUTBONREPCOSREPFECBONIFICA 4%%CCxlistabN @T.t. cT lista=xlista%CtmpcfgQWSELECT lista, DESCR FROM cfg_lis INTO TABLE (p_local+"\tmp\"+xtabla) WHERE &xfiltro Q\tmp\BUXTABLAXLISTAXFILTROTMPCFGP_LOCAL[TCCX TF #%| #TCg #FSC listapreciosFG((codigoCCCN 8 T  ~5T  %C  GM9CProcesando (3 de 3) ... CC Z/CCCNZ F G((lisxcli'E CZF>    CC C 6 %DAL%d>  ! !C  6C   %C jF G((lisxcli)E CZCXF*>" # $ %F G((lisxcli,E CZCXF*>% & ' %(C) 1 C*R C+F#)BU,XLISTAXCOD_CLI XNOFILTRADA XMONEDA_BASECFG_LIS LISTABASEMONEDA LISTAPRECIOS CREAR_TABLACODIGO ESTADO_INIXACC ESTADO_INCLISPRECLISXCLIBULATRPRECIOBONIFBONLISPUBLICODESCRFN_DESCRDBULDATRMONTXT MM_MONEDAMARGENCAMBIOFECHAP_EMPP_COSTOS_DAL_VERSIONPRECIOODTOPRVPRECGENBONGEN BONLISGENPRECREFBONREF BONLISREFP_PRECIOS_MAX_RECURSIONCOMPUTAR COMPUTAR_V2 ESTADO_REL?4      T abm_lis_preTCC]RTCC]R BUXLISTAXCOD_CLIXDINSXHINSXDBULXHBULXDATRXHATRXDLINXHLINXDGRUXHGRUXMARCAXCOD_PROXMONEDAXGEN P_PRECIOGEN OPEN_FILES ABM_LIS_PREXTABLACREAR_TABLA_LISTA XLISTAPRECIOSCREAR_TABLA_PRECIOS CARGAR_LISTAYTC.t. T%F TCO #TCg #FG((codinsF~CGF E !% DAL  `z> d d C6C DALC66a .>%CgCg   *> d d d d d d CCg6aFCFBUXFILTROXREG XMONEDA_BASECFG_LIS LISTABASEMONEDABIENESCODINS LISTAPRECIOSCODIGOP_EMPP_COSTOS_DAL_VERSIONPRECIOPRECIOODTOPRVMARGENCAMBIOFACTORUPDDTOPRV2DTOPRV3DTOPRV4DTOPRV5COMPUTAR TCH3 C+HX'" [ ]  B[] ' B'' " B"" 2'5CStringify: Texto invlido !!! // B DNBCC* NTCZ%CR.000000BCCZ BCCZ,CStringify: Tipo desconocido !!! BUXTEXTOXVXRMENSAJE STRINGIFYTC TCCX TCCC]R TCCC]R FG((codigo%C  T -C U XLISTAXCOD_CLI XNOCARGAR XNOFILTRADAXTABLA XLISTAPRECIOSCREAR_TABLA_LISTACREAR_TABLA_PRECIOS LISTAPRECIOSCODIGOXGEN CARGAR_LISTA&  T T T TT  T TIT C  CX  > 9TC  CX> BU XPRECIO_TMP XBONLIS_TMP XBONIF_TMPXERRXMSGXCAMBIOXXPRECIOXXBONIFXXMONEDAXXFECACTXOKVE_OBTENER_PRECIO_COMPUTADO LISTAPRECIOSCODIGOBULATRXLISTA COMPUTADOXOKBVE_OBTENER_BONIF_COMPUTADO COMPUTBON crear_tablas registrarpactualizar_costos_reposicion  act_precio open_files' log_precios*computar,exportar0crear_tabla_precios9crear_tabla_listao> cargar_lista? llenar_listaE recalcularfG stringifyJpreparar_tablas_de_preciosL computar_v2_NA'!QaRRs1q1B12A12A1B1A2$32A1B12A12A1B1ABB3ArqAAqAAqA2AAAAA3u!bQAj1Ab1A"1A"qAArbAbraqa BAara Bara B BAA BBrAqbAbrABAHB!QAABB3RB!Arb22QAA*sA$BrAA3AAcaA2c#AAA2@qrA& B4qtrTVB2rsBC3AA1AA1AA1AAHb2A1A1ACAFr$CBF2AAqAArAAAAAAAAAqB?11q!AA3qvb2AA24cA242AAAdC2DBB2bB2AA$!111AaA1AA1AQA" A2qA/aB2RAqAqA2QrbBsArcArrr b2GBB"rrBbqrB4BERrQA3bRSB3qbsbrBtt!r#AArBrB3qA!1b1b1QABBQ11AB24QsaA21B1r D!e!/-0T7$9t7DVyDIIK6KCTBXTccGi!1fije>jutz"uvv}}7`^ĂO %s Y zpM4A 4%C[?T2c:\archivos de programa\gs\gs8.53\bin\gswin32c.exe r TTCpdfT= -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE#pdfwrite -sOutputFile#9 -dnodisplay -dCompatibilityLevel#1.2 -c .setpdfwrite -f TC  U M_IFILENAMELTPATHGS M_OUTFILEM_CMDRUNME!TC psfiles\*.ps%Tpsfiles\(TC UM_NUMM_FILESM_DIRI M_FILETOERASE4:| CreateProcess kernel32.DLL.|WaitForSingleObject kernel32.DLL$| CloseHandle kernel32.DLL$| GetLastError kernel32.DLLTCDCC @QT CC Q T T C /T C    % KB-TCC \+a%C !  CT CBUM_CMD CREATEPROCESSKERNEL32DLLWAITFORSINGLEOBJECT CLOSEHANDLE GETLASTERRORSTARTLONG2STR PROCESS_INFOFILE2RUN LCSTARTUPINFOGETSTARTUPINFORETCODEHPROCESSSTR2LONGODEYFUNCDEVENTS 4 5 T  ($T CC  8 T C G B ULONGVALIRETSTR 4 5 T (#T  C T C C >R B ULONGSTRIRETVALBCDCCCCCCCCCCCCCCCCCU NUM2DWORDNUM2WORDTC 8"TC 8+TC 8TCGBC C C C ULNVALUEB0B1B2B3,"BCC G CC  8 ULNVALUEZPBCC\CC\CC\CC\ULCBUFFER: | GetLastErrorkernel326| CreateProcesskernel32$|GetModuleHandlekernel32'|GetCurrentProcessIdkernel32&|GetCurrentThreadIdkernel32%|GetCurrentProcesskernel32$|GetCurrentThreadkernel32'|TerminateProcesskernel32U GETLASTERRORKERNEL32 CREATEPROCESSGETMODULEHANDLEGETCURRENTPROCESSIDGETCURRENTTHREADIDGETCURRENTPROCESSGETCURRENTTHREADTERMINATEPROCESS clnpsfilesrunmeblong2strstr2longgetStartupInfoj num2dwordnum2word buf2dword-DECLAa;1QAA>qCBD3qAACA'A=AA=1A> Q ;q4a!1;q!;q;hBqaQAs1 --6}?BJ0 M2 !P"$.%\ y aPJMWQ* xlog_errores = va a contener el nombre de la tabla donde se guardan los erroresxlog_errores=""do log_errores_crear ; in log_errores ; with xlog_errores "* xid = Nmero de error n(1)& * xtxt = Mensaje de error c(200),&* xnounico = .T. = Separar repetidos L*$* xempresa = Nmerod e empresa n(10)do log_errores_insertar ; in log_errores ;)# with xid, xtxt, xnounico, xempresa 93* xlog_errores = tabla donde se guardan los errores`Z* xok = retorna si hubo o no errores ("Hubo errores/mensajes", "No hubo errores/mensajes")93* xaut = procesamiento automtico, no pregunta nada0** xnoordenar = No ordena por tipo de error)#* xtipo = 0 = Errores, 1 = Mensajes@:* xpersist = .t. = No cierra el log de errores al retornar xok=""do log_errores_mostrar ; in log_errores ;@: with xlog_errores, xok, xaut, xnoordenar, xtipo, xpersistU4G+(dey_func TCWTC%C log_erroresaFQ:h1N CN Q& &  F BU XLOG_ERRORESDEY_FUNCXAREANEWFILE_LOCAL_TMP LOG_ERRORESIDTXTEMP4%CxempresabL> T-%C log_errorestxt  4r log_erroresBUXIDXTXTXNOUNICOXEMPRESAP_CODEMPIDTXTEMPk4%CxtipobNC T%C log_errores xQF%G((#\tmp\log_errores.xls$\tmp\log_mensajes.xls#)%CN.F%T(\tmp\log_errores!(\tmp\log_erroresԻ  (\tmp\log_mensajes"(\tmp\log_mensajesԻ% F#)sys_grid%T Hubo errores. *THubo mensajes. E T% C 03%CAbre el archivo en Excel ?x,G+(listadosG~(ClasesT C ExportacionesN(T CExportaciones_ParametrosN@T  Detalle de C Errores Mensajes6%CmT C log_errores& T  C CidID ?CtxtCMensaje de Error Mensaje6 CempEmpresa T C % `FQ.*BU XLOG_ERRORESXOKXAUT XNOORDENARXTIPOXPERSIST LOG_ERRORESP_LOCALSYS_GRIDLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSlog_errores_crear log_errores_insertar>log_errores_mostrar+AaqQa!aqaaaaA3q!qqAA31AAAA2AAAqaA2AR!s2!AqQAA1AA1!!Ar CAqAAB1 "06*69JB%)!$Rj G(9((G+(listadosG+(dey_funcTcs_anular_cierre(%CBU ACTIVEFORM DATASESSIONIDOEXLISTADOSDEY_FUNC XFECHA_CIECS_ANULAR_CIERREXRESPROCESARH 4%Ccos_cie 7QCOS_CIE%Ccos _Qcos% F nAnulacin de Cierre de Costos: C*cs_anular_cierre.prg  F 2 BU XFECHA_CIEXPARCIALCOS_CIECOSINFECHAUSER_LOG PUB_INDEXFORTIPOprocesar6A"!2AB21ARAq!ABsB2 %U]3=WYX4G(9% qCdProblema de configuracin: Detalle por lneas no permitido para mltiples cuentas de importacin !!!B-% NxCkProblema de configuracin: Importaciones locales no permitidas para cuentas de importacin por artculo !!!B-%%    T - ft05 %   te_comienzoG+(listadosG~(clases"T\tmp\CC]R C TC$ TC$ TTCX T T T T T T TTC T  T +a.T!C"6H*  T# T  cm_imp_ing( %C  % e!F&#)T'&(T)&*%+,T-&. T-&/ T0aF1G((abrev%2 E-T00C4 C- <%0 CINo estn correctamente definidas las cuentas afectadas por importaciones.C 4Modifquelas en la Configuracin Global del sistema.BC#3T4C+5Dmodepositocentral678Q96777C7:D4 1\tmp\cur_busdepcen%Q\tmp\cur_busdepcen;F;& 88& 66& 77& 99 iF<G((importac E#%C+ 3T<=% T>+?T@+ATB+CTD+ETF+GT+6T+HT+IT+JT+KTL+MT+NT+OTP+,-%Q C+A C+R [ | cm_imp_ing2(  TTFUG((idx04 E%C4 UV DoC4No se han ingresado los tipos de cambio de la fecha C* !!!C No se puede continuar. T %C  % e!  TWX TYFZ%CNW [(W & \C] ZC^ Z_& C] ZC^ Z`(& abcC] ZC^ Zd& eabcf& CgabcgG((cm_imp_ingreso( T0aFZ%i ~Zajk FlG((codins EZa%C4 &%lnS loS F1G((cuenta Elq%%C4C1r\S r  sC(La cuenta de importaciones del artculo CCZa CZb CZc no es correcta !!! T   nC El artculo CCZa CZb CZc* debe ser Importado y debe tener Lotes !!! T   QC Artculo CCZa CZb CZc inexistente !!! T %"  FZ-K(vwCstuTCstTTxvTyCwTTLxy% TzC{  TzC|%z T %C  %  ! *FZ-K(vwCstuTCstTTxvTyCwT T  cm_imp_ing3( % % TzC{  TzC|%z  T %C  % &!%C cur_busdepcen[F;Q%CborrarFQ \tmp\.dbf \tmp\.cdxBU~ XMERCTRANSITO ACTIVEFORM DATASESSIONIDP_CM_IMP_CUENTASP_CO_POR_LINEASMENSAJE P_IMP_LOCALES P_COMBEMPXTIPOPAGXFROMXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZOLISTADOSCLASES XTEMPCOMPP_LOCALXFECHAXFECDESPXCAMBIO XDEPOSITOXFLETE XDERECHOS XESTADISTICAXOTROSXDESTINO_IMPORTACIONXINCOTERM_PRECIOS XINCOTERMBORRARNEWFILEXFORMXMAXFORM P_IMP_VERSIONXIMPORT CM_IMP_INGWIZARDCONS XIMP_PROVG IMP_PROVG XIMP_GASTO IMP_GASTOIMPORTACTIPOIMP XIMP_IMPOIMP_IMPO IMP_IMPOLXOKCUENTASABREVCARGAR_TRANSITOXDESTINODESTINODEPOSITOCENTRALDESCRCENDESCR UBICACION CUR_BUSDEPCENCONVERCOEFICXMONEDAMONEDA XDESPACHODESPACHOXADUANAADUANAXORIGENORIGENXPROCEDPROCEDINGFLETE INGDERECHO INGESTADISINGOTROS XPROVISION INGPROVISIINCOPRECINCOTERMXTIPOIMPP_IMP_ING_ADICMOV CM_IMP_ING2XCOEFICIDX04INDICE1MAX_PROD P_CM_MAX_PRODMAXYITEMPCOMPZEAN13SOLSOLITMBARRASORDENCOD_INSATRBULCODIGOCOD_ALT PROVEEDORENTREGACM_IMP_INGRESO P_CUEXARTOBIEDATA_CODIGO_VACIOBIENESCODINS IMPORTADOLOTESCUENTAIMP_CUEATRIBUTO RECEPCIONCOS_LIFOCOSTOXTOTALXFOB XTOTAL_PESOS XFOB_PESOS XRESULTADOTRANSACCION_TRANSITO TRANSACCION CM_IMP_ING3D 5%Cejercon :FQejerconF-CT%C49%CdiariogF F,Q\C\diariogasiento%CconceptoF F-Q\C \conceptoasientoBU OKAAAEJERCONXFECHADESDEHASTADIRDIARIOGP_SERVERASIENTOCONCEPTOR T- T C Ttrsacbienesstockstkxdepstkxserstkxdspconvermovstockimportacdiariogconceptodespachotcomprascoscosmancosimp%8 TCtrsacCm_imp_ingresoIngreso de Mercadera Ta%TC% T T TCtrsacCm_imp_ingresoIngreso de Mercadera T %4% dC  C cm_imp_imprimir CSe ha ingresado la importacin CC @z 999,999,999_ !!!!C 3El asiento correspondiente a la registracin es el CC@z 999,999,999_ B BU XRESULTADONEWASIAPERTURA_DE_EJERCICIOAAALOCK_GTRSACBEG_TRAN REGISTRAREND_TRANTTS_IDP_IMP_SIN_PREVISION&REHACER_ASIENTOS_ANTERIORES_AL_INGRESOXIMPORTAJUSTAR_TXTPROVIMPRIMIRCM_IMP_IMPRIMIRMENSAJEC Suspendo?aF%L-Q>   F, C (FG((conver#6T&rconver2CFG((codinsG( <#dd T T T C Suspendo?aF"~!" F E%C4 T  #(H%C#$D!%#TT$T3T#C#%&%'#(.%C#(*!%#TT(T:T#C#%& #(%C#(C#) C#* C# C#+ C#, |!%#iTT(TT)T*TT+T,:T#C#%&FX>-.,,++/012 Importacin CCZ345467879%:;<=>?@AB C9:TC<DEFIGC ZHI%JS%K&>CC C6!TLCC 6 %C >CTLC/CC Z >C/CC Z TL  TL$%M N >>OCM@z 9999,999,999_PNQM$%M N  FRG((ordenitmECMZCNZ%C4>TTFU cs_generar,+0C0C ZI=WX cs_generar,+0C9:YDC ZIaF>ZC%T%JS T[ in_despacho,+<C%T-1]  LC^ _ 6i`proc_stk,+7MCCZ1 1%^ F>-./012 Importacin CCZ34546b8bB DE Tc Td Telfproc_stk,+bcMCCZ1 1%c{ l`proc_stk,+bcMCCZ1 1  Ceg Th%iF/G((asientoFkG((asiento#6Tlj  TlF{>  m1jlnopqrstuvwx%iVF/G((asiento El%C4 `>jl/Importacin N C@z 999,999,999_ / Despacho N Cy4Fk Tz T{#(&T#CC#TTzzC#T|C#T}C# T~TC#TC#TC#TC#TC#T{{%iC{j%Toqsu Toqsuw Tw%QT}C T~%'T|zcT{{%iC{j M z ~IT|cT)T*TT+T,T{{%iEC{j   T#(LT#CC#CC# 6TTC#Tz%2$TC T#(T|C#cT}C#2T~%Fob+Derechos+Estadsticas+Flete+OtrosT{{%iC{jTC#T|zc%| T}CT~Provisin GastosT{{%iC{j CC BhUSYS_MOSTRAR_SCREENXRESIMPORTACNUMEROXIMPORTDESPACHO XDESPACHOADUANAXADUANAORIGENXORIGENPROCEDXPROCEDINCOPRECXINCOTERM_PRECIOSINCOTERM XINCOTERMTEMPCOMPCOSTO XFACTORTEO RECEPCIONCOD_INSCONVERNEWTRFTRANSFDTBIENESCODINSARR_CUEARR_IMPMAXARR MAXARRIMPACCOBIEDATA_CODIGO_VACIOZIMP_CUECOS_LIFOXCOEFICP_CO_POR_LINEACOD_CUELINEAGRUPOATRBULENTRASALECONCEPTOFECHAXFECHACOMENTCOS_ORICODIGOCOS_DESDEP_INGDEPOSITODEP_EGRFOBFACTORCOEFXMONEDACOEFICXCAMBIODOLARIDX04INDICE1ITEMCOSMONCOD_PROCOD_ALTCAUREF2USR_BAJA PUB_INDEXLOTESP_LOTE_CARGA_IMPORTACION XLOTEUXILIARSOLSOLITMREFREFITMORDENTCOMPRASORDENITMRECEP3AGREGAR CS_GENERARP_CODEMPAGREGAR_COSIMPPROVEEDOCOSACT ALTA_LOTE IN_DESPACHO COMENTARIOXTIPOIMPENTREGA REG_STOCKPROC_STKARTSTK_ERRSTK_TSTSTK_MSG ACT_STOCKMENSAJE TTS_ERRORP_IMP_SIN_PREVISIONASIENTODIARIOGNEWASIFECINGINGFLETEXFLETE INGDERECHO XDERECHOS INGESTADIS XESTADISTICAINGOTROSXOTROS INGPROVISI XPROVISIONMOVTIPO2 XTOTAL_PESOSXPASEXIMPORTEXCUENTA XCOMENTARIOXLINEAXGRUPOXCODXATRXBUL P_IMP_VERSIONXGASTOSP_CM_IMP_CUENTASFN_COD XIMP_IMPO"PORCENTAJES_X_LINEA_GRUPO_TEMPCOMP POR_LIN_GRU PORCENTAJEACCC XFOB_PESOSXSALDO XIMP_PROVGDESCONTAR_TRANSITOBORRAR_TRANSITOoF~hFG((ordenitmECZCZ>UTMPPENDASIGNADAOLD_TRANTCOMPRASORDENITMSOLSOLITMTRANSITOUXIMPORTFORIMPORTIMP_TRANc4FG((abrev E%C4< B \ T BUXABREVCUENTASABREVCOD_CUE TTS_ERRORo4%CxlineabN0 T%CxgrupobN] T%CxcodbC T%CxatrbC T%CxbulbC T% T T 4 TTcF $>   LC@z 9999,999,999_AMC$ Despacho C  !"#$%&'()*BU+XPASEXLINEAXGRUPOXCODXATRXBULXIMPORTEXDEBXCREDIARIOGDEBITOCREDITOCOD_CUEXCUENTAPOR_QUECOMPROBNEWTRFCAUCOD_CENIMPORTACCODIGOPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRETIPOHOY COMENTARIO XDESPACHO XCOMENTARIOCAMBIOXCAMBIOMONEDAXMONEDAXIMPORTLINEAGRUPOCODATRBUL%Ctempcomp$FQQtempcompF (Q i1tempcompC%Cproveedo Qproveedonombre%Cimportac Qimportac%Cidx04 Qidx04idx04%CBULTOS KQbultos%CATRIBUTO }Qatributo%CSTOCK Qstockcodigo%CSTKXDEP Qstkxdep%CMOVSTOCK Qmovstock%Cdespacho GQdespacho%CDEPOSITO yQdeposito%Ccentral Qcentral%CBIENES Qbienescodins%Cconver Qconverconver%Cstkxser IQstkxser%Cstkxdsp yQstkxdsp%Cimp_tran Qimp_tran%Ccuentas Qcuenta%Ctcompras Qtcompras%Ccosimp AQcosimp%C incoterms }Q \incoterms%Ctcccomp Qtcccomp%Cbieaux Qbieaux%Ccondpago QcondpagoBUTEMPCOMP XTEMPCOMPDEPOSITOPROVEEDONOMBREIMPORTACIDX04BULTOSATRIBUTOSTOCKCODIGOSTKXDEPMOVSTOCKDESPACHOCENTRALBIENESCODINSCONVERSTKXSERSTKXDSPIMP_TRAN_CUENTASCUENTATCOMPRASCOSIMPP_SYSTEMTCCCOMPBIEAUXCONDPAGO 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM  T T'TCDeyFunc Dey_Func2.prg+CTEMPCOMPIMP_TRANFVinsert into tempcomp (&xcampos) select &xvalues from imp_tran where import=ximport >>   C6C ootempcompCQ Q QtmppendF ~CaUXIMPORTXCAMPOSXVALUESOTDFGET_SQL_FLD_VALUESIMP_TRANTEMPCOMPTOT_COM RECEPCIONCOS_LIFOCOSTOORI_CANFORCOD_INSSOLSOLITMASIGNADA PENDIENTEOLD_TRANTMPPENDCOMPROBAR_PENDIENTE%CC 2 B:TC Data_Statussys_clases_tablas.prgaBTC Data_Statussys_clases_tablas.prgtempcompaF-   TC4%  F G((ordenitmECZCZF% `>  %>   > 7ptempcomp     C C B UXSOLXSOLITMXINICIALODTSODTS2XFNDODSTODST2TMPPENDSOLSOLITMTCOMPRASORDENITM PENDIENTE RECEPCIONRECEP3TRANSITOASIGNADAOLD_TRANTEMPCOMPRECEP2 POP_SIMPLE T- T0trsacimp_tranimportac% TDtrsacCm_imp_ingresoMercadera en trnsito Ta%TC% T  T (TDtrsacCm_imp_ingresoMercadera en trnsito T%kC<Se ha ingresado la mercadera en trnsito de la importacin CC @z 999,999,999_ !!!!  BU XRESULTADOAAALOCK_GTRSACBEG_TRANREGISTRAR_TRANSITOEND_TRANTTS_IDMENSAJEXIMPORT  T T'TCDeyFunc Dey_Func2.prg+CIMP_TRANTEMPCOMPF>,  C ( F Zinsert into imp_tran (&xcampos) select &xvalues from tempcomp where not empty(cod_ins) FG((numero E> !"#$%&'()C Suspendo?a*otempcompQ+XtmppendQ/ /,+,/-+- +,+-+ C+ Q.C/0Q0C/1Q1C/.Q2+, +- +,+-tmppend2F4 ~F5G((ordenitmEC4,ZC4-Z%5741"CError !!!! Suspendo?a*WCError al asignar transito, C  de la OC CC4,Z/CC4-Z8T9.>77424.U:XCAMPOSXVALUESOTDFGET_SQL_FLD_VALUESTEMPCOMPIMPORTXIMPORTALLCOSTO XFACTORTEO RECEPCIONCOD_INSIMP_TRANFORIMPORTACNUMERODESPACHO XDESPACHOADUANAXADUANAORIGENXORIGENPROCEDXPROCEDFECINGXFECHAINGFLETEXFLETE INGDERECHO XDERECHOS INGESTADIS XESTADISTICAINGOTROSXOTROS INGPROVISI XPROVISIONDEPOSITO XDEPOSITOINCOPRECXINCOTERM_PRECIOSINCOTERM XINCOTERMSYS_MOSTRAR_SCREENTCSOLSOLITMASIGNADATM PENDIENTEOLD_TRANOLDASIGTMPPENDTMPPEND2TCOMPRASORDENITMTRANSITOMENSAJE TTS_ERROR^oconverproveedo  aseasa T%  ~*TCC , 6CF > %CaseasaFQBU DISTINCTCONVERCOD_PROPROVEEDONOMBREIMPORTACXIMPORTASEASAXTXTPROVTXTPROVf %o tmp_converQbienesQQ     CTQ   por_lin_gru otempcompQbienesQQ     CTQ   por_lin_gru K(%CTCTC Suspendo?a#)> K(%CTCT[&CError en porcentajes !!!! TC Suspendo?aBU XTOTAL_PESOS XTMP_CONVERXTOTALTIMPORTACENTRAFOBTOTALBLINEAGRUPOCOD_INSATRBULCOEFICFACTOR PORCENTAJE TMP_CONVERBIENES POR_LIN_GRU RECEPCIONCOS_LIFOCOSTOTEMPCOMPXTOTPERSYS_MOSTRAR_SCREENMENSAJE TTS_ERRORB4%4C Suspendo?a5%Ccompras dQcompras9ocomprastmp_gastos_anteriores T  T  ~$  co_compras  % !% 0C B-BaU XIMPORTACP_CO_POR_LINEASYS_MOSTRAR_SCREENNEWASICOMPRASDISTINCTOPIMPORTACTMP_GASTOS_ANTERIORESXERRXMSGREHACER_ASIENTO_OP CO_COMPRASMENSAJEapertura_de_ejercicio transaccion registrardescontar_transitoH4borrar_transito5fn_codK5asiento5 open_files9wizard?cargar_transito@comprobar_pendienteyCtransaccion_transito;Fregistrar_transitoHajustar_txtprovN"porcentajes_x_linea_grupo_tempcomp@P&rehacer_asientos_anteriores_al_ingresoS~qAqAR1bAA"%p1aAAxQbAr9BB AATRr1sA2BrBrAAA2r!QAAbqqbqR1AAABBqaAABAA2saq2AABAABBqAArqAAH6Aq"qAqABB2! 212AA23AB BB2rrraAxrQbra1sr!rAAA1A13AAA1AAAA1ACsQr4aQ!BAABAFqqAAAr vr Q A3sQQ 2ABCA2trRAr6qQArAcRQRQRQQ2AA3AP1"22A1AABB4AAbQ!2ABD$2AA2rqqB3q!3qqA3qAAAAA2ArQpAB2qAAArAAArA!AAArA1AAAAAAA1AAA1A1AAAAAA!AA1A!AAAB21r12A12A1r1Aq3rrqsbsqA6A#ssvrRrAUrB32A2AABBB4qqsrs^v syq"tBAB7!AArrqAAB3u% u ArRQAbrCpA@1q2rr1AC2AAA2qABq1&W(o(I. _.ia@awcncc}cddh-hn}nTp3|puM"v$|xR|) I8yf%:/4$AYZ#%d2sys_procesandoAplicando novedadesT C datasessionv< T C  ( G(C  G( T-"%C xPath_BackupbC.)TCCC -Verificar\%T%CEmpresas FQ \empresas%FC' (estadoJ#C Iniciando...TdFG((codigo#) H%C+FBa Ta%"ft05aa  Ta%CCCZ - CGT !CC"Z/CC#Z - CCZ - % CC_PQ$CC $!CERROR CZ$CC $CC_PQ$BCa%1  \gessystem _ % \gessystem [,CNo se puede crear GESSYSTEM !!!& ges G(gesG+(dey_funcG+(dey_relacionesG+(ges_genG+(sys_verificar2 T, T-T. %  T/a T0 T1T2Ch  T3a T4a T5- T6- T7- T8- T9- T:- T;- T<- T=- T>a T?a T@a%CEmpresas FQ \empresas% C sys_verificar(A X TAa %A7%C oMailSpoolbOBB   CCD%@#E p_solo_dev %C oSYSVERTXTbO TF T -%Xsys_validar_showJ sys_validar_showJ  %.A TH THCaa%ft05aH7%C oMailSpoolbOBB  I CCI%@(Jsys_cfg p_solo_dev %C oSYSVERTXTbO fTKCVerificacin concluida !!! C -Hay comentarios registrados!!! Desea verlos?L%K .| ShellExecute Shell32.dll?CopenP\tmp\rpt_sys_verificar.txtM  %C oSYSVERTXTbO Q T -% sys_validar_show2J B $ TAa TSa%A>ZestadoJTTTUaCC_PQ$9C EMPRESA - CZ - FECHA: CC$CC_PQ$%2 %TSSC99:;V %/$ TSC01W%>L TSSCX %3!TTYAnalizando VistasTT#%TT"CC $#CAnlisis de Vistas:$CC-Q$   abmb010592  ;T[C abmagenteagente\TSS[ ;T[C abmbienesbienes\TSS[ ;T[C abmcatclicatcli\TSS[ ;T[C abmcatprocatpro\TSS[ ?T[C abmccformulccformul\TSS[ =T[C abmcentralcentral\TSS[ ?T[C abmclientesclientes\TSS[ ]abmcombinacionesJT[Cabmcombinaciones combinacionesa\TSS[ ?T[C abmcondcobrcondcobr\TSS[ ?T[C abmcondpagocondpago\TSS[ ;T[C abmcostoscostos\TSS[ ?T[C abmdepositodeposito\TSS[ ;T[C abmfletesfletes\TSS[ ?T[C abmforincosforincos\TSS[ ;T[C abmgruposgrupos\TSS[ ;T[C abmlineaslineas\TSS[ ?T[C abmmaquinasmaquinas\TSS[ =T[C abmmaq_grpmaq_grp\TSS[ ;T[C abmmarcasmarcas\TSS[ ;T[C abmmotinvmotinv\TSS[ =T[C abmmotivosmotivos\TSS[ ?T[C abmproveedoproveedo\TSS[ =T[C abmsucpropsucprop\TSS[ IT[C vatributosatributo-xcodins\TSS[ FT[Cvatr_genatr_gen-xcodins\TSS[ DT[Cvbultosbultos-xcodins\TSS[ FT[Cvbul_genbul_gen-xcodins\TSS[ JT[C abmvbultosvbultosxcodinsbultos\TSS[ MT[C abmvbul_genvbul_genxcodinsbul_gen\TSS[ RT[C abmvatributos vatributosxcodinsatributo\TSS[ MT[C abmvatr_genvatr_genxcodinsatr_gen\TSS[ MT[C abmvstkxcodvstkxcodxcodinsstkxcod\TSS[ UT[Cabmvsucursales vsucursalesxcod_clisucursal\TSS[ 9T[Cabmzonaszonas\TSS[ FT[C chequeraschepro-xcuenta\TSS[ FT[C seguimientoreclamos-xid\TSS[ DT[Cvatribsatribs-xcuenta\TSS[ FT[Cvchequescheques-xcuenta\TSS[ <T[C vista_batchbatch\TSS[ BT[Cvstkxcodstkxcodxcodins\TSS[ KT[C vsucursalessucursal-xcod_cli\TSS[ ?T[C abmunidadesunidades\TSS[ ?T[C abmrubrofacrubrofac\TSS[ ?T[C abmunidadesunidades\TSS[ =T[C abmejerconejercon\TSS[ ?T[C abmacuerdosacuerdos\TSS[ ?T[C abmtarjetastarjetas\TSS[ =T[C abmmedidasmedidas\TSS[ =T[C abmarmadorarmador\TSS[ ;T[C abmtextostextos\TSS[ ?T[C abmctasbancctasbanc\TSS[ =T[C abminvmodeinvmode\TSS[ =T[C abmenvasesenvases\TSS[ ?T[C abmsprgruposprgrupo\TSS[ ?T[C abmcos_cprecos_cpre\TSS[ ?T[C abmfle_tipofle_tipo\TSS[ %4TSSC_ %5*CC $%CAnlisis de Unicidad:$CC-Q$HT`;=Log_Agregar(xTabla,tOldCod,'Reg. dupli. con cant # de 0:')ST[CStockCodigoCodigo+Bul+AtrtxOK=Dupl_Stock()`C CaTSS[ iT[CStkxdepCodigo Codigo+bul+atr+deposito+despachotxOK=Dupl_Stkxdep()`C CaTSS[ WT[CStockgCodigoCodigo+Bul+AtrtxOK=Dupl_Stock()`C CaTSS[ yT[CStkxdepg CODIGOEMP)CODIGO+ATR+BUL+DEPOSITO+DESPACHO+STR(EMP)txOK=Dupl_Stkxdep()`C CaTSS[ 7T[CBienescodinsCod_InsC CaTSS[ 3T[CBieauxcodcodigoC CaTSS[ =T[CBultoscodigo Cod_ins+ClaveC CaTSS[ ?T[CAtributocodigo Cod_ins+ClaveC CaTSS[ 5T[CGruposcodigocodigoNaTSS[ 5T[CLineascodigocodigoNaTSS[ 7T[CAgentecodageCod_ageC CaTSS[ 9T[CClientescodcliCod_CliC CaTSS[ 5T[CCatCliCodigoCodigoNaTSS[ 3T[CCondcobrplanplanNaTSS[ 9T[CProveedocodproCod_proC CaTSS[ 5T[CCatProCodigoCodigoNaTSS[ 3T[CCondpagoplanplanNaTSS[ 4T[CZonascodigocodigoNaTSS[ 7T[CfletescodfleCod_fleC CaTSS[ 8T[CCuentascuentacod_cueC CaTSS[ 2T[CchqnumeronumeroNaTSS[ 7T[CRubrofaccodigocodigoNaTSS[ 7T[CUnidadescodigocodigoNaTSS[ 5T[CCatprocodigocodigoNaTSS[ 6T[CCatpro2codigocodigoNaTSS[ 6T[CCatpro3codigocodigoNaTSS[ <T[CDepositodepositoDepositoC CaTSS[ 9T[CCentralcentralCentralC CaTSS[ 7T[CTarjetascodigocodigoNaTSS[ DT[CArtxcliidCOD_CLI+COD_INS+ATR+BULC CaTSS[ 0T[CCcproviduiduC CaTSS[ 0T[CCcclieiduiduC CaTSS[ iT[CUsuarioscodigocodigoN*do uni_Usuarios in sys_verificar2 with xOKaaTSS[ 6T[CConver2convertransfNaTSS[ =T[CejerconidatxOK=Aux_Ejercon()NaTSS[ %6*T[[Cb TSS[ %7-CC $)CValidacin de Relaciones:$CC-Q$ CcTd"Relacion Fallida: " + PADR(xAlias,10) + ": " + Fac_ven+ " -> " + PADR(TARGET(nIt),10) + " : " + PADR(EVALUATE(RELATION(nIt)),80-38)6T[CventastxOK=EOF_Ventas(nIt)deTSS[ CfTd"Relacion Fallida: " + PADR(xAlias,10) + ": " + Cod_Ins + " -> " + PADR(TARGET(nIt),10) + " : " + PADR(EVALUATE(RELATION(nIt)),80-38)6T[CbienestxOK=EOF_Bienes(nIt)deTSS[ %8-CC $JC:Se ha limpiado la base de datos, debe verificar tablas !!!$CC $ Cg%- Ch%=- Ci%?. Cjk ini_funcionesm ini_funcionesaTTU-CC $)CValidaciones del Sistema:$CC-Q$Cn Co%Cpaises .Q\paisesFp-%C4w/%Cq i/ >qBC2El cuit del pais principal (Argentina) estaba mal.$ s/ /7C'No existe el pais principal (Argentina)$%Ccuit_fisbU6FpQ 0Q\paises Y0JC:Se necesita abrir la tabla de paises en modo exclusivo !!!$%Cpaises6i1paisesrC =>pr50Cq \CCCCCqRgZCq >pr5>pr 50-00000697-9q 55-00000697-05>pr 50-00000683-9q 55-00000683-05>pr 50-00000666-9q 55-00000666-05>pr 50-00000652-9q 55-00000652-05>pr 50-00000604-9q 55-00000604-05>pr 50-00000506-9q 55-00000506-95>pr 50-00000490-9q 55-00000490-05>pr 50-00000442-9q 55-00000442-05>pr 50-00000439-9q 55-00000439-05>pr 50-00000425-9q 55-00000425-05>pr 50-00000411-9q 55-00000411-05>pr 50-00000392-9q 55-00000392-05>pr 50-00000389-9q 55-00000389-05>pr 50-00000344-9q 55-00000344-05>pr 50-00000330-9q 55-00000330-05>pr 50-00000327-9q 55-00000327-05>pr 50-00000313-9q 55-00000313-05>pr 50-00000232-9q 55-00000232-05>pr 50-00000229-9q 55-00000229-05>pr 50-00000215-9q 55-00000215-05>pr 50-00000201-9q 55-00000201-05>pr 50-00000182-9q 55-00000182-05>pr 50-00000151-9q 55-00000151-05>pr 50-00000148-9q 55-00000148-05>pr 50-00000134-9q 55-00000134-05>pr 50-00000120-9q 55-00000120-05>pr 50-00000117-9q 55-00000117-05>pr 50-00000103-9q 55-00000103-05>pr 50-00000005-9q 55-00000005-0%Cpaises7Qp%tN8%Ccons O7Qcons%Ccom_oper 7Qcom_oper%Cven_oper 7Qven_operFu#)Fv G((oper#6Fw G((oper#6$TyCuzu{v|w}DFu >zyFuQFvQFwQ%Cmotivos ~8QmotivosF~(%8$sys_inicializacion_basicaF~Q G(ges 81stockg 9 #91stkxdepg -9 \gessystemG( gessystem |91\stockg 9 91 \stkxdepg 9 ges G(ges%Cidx01 9Qidx01F(" (CD<: #))%CAJUSTE POR INFLACION:!>AJUSTE POR INFLACIONH%CIPC;>IPCH> SIN DEFINIRH> SIN DEFINIRH> SIN DEFINIR );Q 3;%Cidx03 _;Qidx03F(" (CD;  ;Q ;%Civa ;Q\IVAFC' (%= Ta H<FQ\IVA ]< Ta%=Sriva riva@riva riva%@rivariva =jCZIVAs: No se puede abrir n modo exclusivo. <<<<<<<<<<<<< IMPORTANTE !!! >>>>>>>>>>>>>$%Civa=FQ&%C\provinc_ext.dbf0 >%Cprovinc >Q\provincF( \provinc_extFQ \provinc_ext^r provinc_ext1cSIRCREBSIRCcQ%Ctipodoc >Q\tipodoc*C8096999491 -91%C4 ?Prtipodoc91 CI EXTRANJERACI EC]%Ctipodoc?Q co_funciones%Cco_func?Q T%C ganancias =@Q \gananciasF T- T @%@ Ta @ T T- @% QCH@MC `ApC`Tabla de Ganancias desactualizada. <<<<<<<<<<<<< IMPORTANTE v0!!! >>>>>>>>>>>>>$ MCpC`Tabla de Ganancias desactualizada. <<<<<<<<<<<<< IMPORTANTE v1!!! >>>>>>>>>>>>>$F-%C4 Br ganancias Factura MRetencin sobre Facturas Mc--6 %-%C4 ;Cr gananciasFactura A con Leyenda--3 %> GF-%C4 yDr ganancias ComisionistasكComisiones u otras retribuciones derivadas de la actividad de comisionista, rematador, consignatario y dems auxiliares de comercio-- xE>Comisionistas - InscriptoكComisiones u otras retribuciones derivadas de la actividad de comisionista, rematador, consignatario y dems auxiliares de comercioA-aS/ESCALA-%C4 Fr ganancias ComisionistasكComisiones u otras retribuciones derivadas de la actividad de comisionista, rematador, consignatario y dems auxiliares de comercio-- G>Comisionistas - No InscriptoكComisiones u otras retribuciones derivadas de la actividad de comisionista, rematador, consignatario y dems auxiliares de comercioA--28%FCC -%C4 H 0HRCBGanancias: No se encuentra el cdigo 7. Actualizar tabla ganancias$ HOCBGanancias: No se encuentra el cdigo 7. Actualizar tabla ganancias& I>EProfesiones Liberales y Oficios - Inscriptos وProfesiones liberales, oficios, albacea, sndico, mandatario, gestor de negocio, corredor, viajante de comercio y despachante de aduana.wq- %C4 pJ JRCBGanancias: No se encuentra el cdigo 9. Actualizar tabla ganancias$ lJOCBGanancias: No se encuentra el cdigo 9. Actualizar tabla ganancias& cK>/Profesiones Liberales y Oficios - No InscriptosوProfesiones liberales, oficios, albacea, sndico, mandatario, gestor de negocio, corredor, viajante de comercio y despachante de aduana.wqFQ%Ctipocomp KQ \tipocomp-201%C4 P .LXrtipocomp201.FACTURA DE CRDITO ELECTRNICA MiPyMEs (FCE) A 8L LYrtipocomp202/NOTA DE DEBITO ELECTRNICA MiPyMEs (FCE) ACE) A L MUrtipocomp203+NOTA DE CREDITO ELECTRNICA MiPyMEs (FCE) A M |MXrtipocomp206.FACTURA DE CRDITO ELECTRNICA MiPyMEs (FCE) B M MTrtipocomp207*NOTA DE DEBITO ELECTRNICA MiPyMEs (FCE) B M UNUrtipocomp208+NOTA DE CREDITO ELECTRNICA MiPyMEs (FCE) B _N NXrtipocomp211.FACTURA DE CRDITO ELECTRNICA MiPyMEs (FCE) C N 1OTrtipocomp212*NOTA DE DEBITO ELECTRNICA MiPyMEs (FCE) C ;O OUrtipocomp213+NOTA DE CREDITO ELECTRNICA MiPyMEs (FCE) C O OErtipocomp995REMITO ELECTRNICO CRNICO  PFQ C T-</%C\formularios.exeP%C1.0.98P Ta% Q&%C\formularios.exe0 P Q EQhC1La versin de Formularios es incorrecta: (VERIF.:1.0.98 - SYSTEM:C)$ Q:C*Error al obtener la versin de Formularios$#%Cprueba_validacion QQcashresu C#%Cprueba_validacion RQ %C dunzip32.dll SR&CNo existe dunzip32.dll$%C dzip32.dll R$CNo existe dzip32.dll$!%C wwipstuff.dll R'CNo existe wwipstuff.dll$ HSTCGEs.FE.FE_LoginN' fe_funcionesa S4C$GESFE: Error al instanciar el objeto$ C S$TCMSComCtl2.DTPicker.2N S#CCOMCTRL2: No existe$<b%C\GS9.20\bin\gsdll32.dll0 *C\GS9.20\bin\gsdll64.dll0 T1CGHOSTSCRIPT: NO INSTALADO en $< C (/%C PF Interleaved 2 of 5U@C0CODEBAR: No existe el font PF Interleaved 2 of 5$< TC T-%U (C U#%CCC  fCCfU Ta!% U:C$PRINTER PDF: No existe la impresora C$CC $%Ccosult >VQcosult%Ccos fVQcos+%CcosNCcosultN VFC6Deben generarse los costos porque se ha creado COSULT.$FQFQ%YWQCAND x cheques rechazados sin ND del proveedor no est configurado.$CC $CC_PQ$ " + PADR(TARGET(nIt),10) + " : " + PADR(EVALUATE(RELATION(nIt)),80-38)C T CN&T Analizando tabla: "T C  6T  T F+a %C !T Ta F#)+C+ 4T  ("%CC+ T-% &xerror %   xfulltexto=&xfulltexto_macro &xreporte T  FH BUXALIAS XRELATIONXERRORXREPORTEXFULLTEXTO_MACROXRCOUNTNITDEY_FUNC CHK_VALUEXRECCOESTADOTEXTOMAXVALUEXOKTXOK74    '5 5G+(dey_func T-TCTCTCTCTC=TC(=Log_Agregar(xTabla,tOldCod,,,,,xvalida)TCTCaLT C  %tB- &CC 6 <C(: No se puedo abrir al validad unicidad. Ta%B-select &xtabla %C  _G((xorder 3C: Error al abrir el indice  Ta%B-(&TAnalizando tabla: "TC6T T  Ta ~T%CCΡ  X"if toldcod=&xvalida then T-%&xduplicado %   &xreporte T %T Ta&xauxiliar T  +C: Clave vaca: CCOZ select &xtabla toldcod=&xvalida % C }&xsihayduplicados %  y5C!: Procesando nuevamente unicidad.7C a%C BUXTABLAXORDERXVALIDA XDUPLICADOXREPORTE XCLOSETABLE XAUXILIARXOLDCODXOLDTYPEXWHEREXSIHAYDUPLICADOSXCICLICOXPERMITE_CLAVE_VACIATOLDCOD XRETURNNOWDEY_FUNC CHK_VALUE CHECK_OPENEDP_SYSTEM LOG_AGREGARXRECCOESTADOTEXTOMAXVALUEXOKTXOKINVALIDAR_UNICIDAD CHECK_CLOSEDb?%    JBa [B-UCANTIDADCANT_PEDCANT_OCCANT_COMCANT_PRDW4%   ?Ba PB-UCANTIDADCANT_COMCANT_OCCANT_PRDXTC\#%C \Concepto.dbf0 s.C concepto.dbf Falta tabla:B- QCConcepto Q \Concepto.dbfhT[=Log_Agregar('Concepto.dbf',' Asiento'+STR(Asiento,10) ,'Concepto Duplicado '+Ejercon.DIR )7BCConceptoAsientoAsientoaNUXDIRP_SERVEREJERCONDIR LOG_AGREGAR CHECK_CLOSEDXREPORTEVALIDAR_UNICIDADK%DCU XDEBUGNVLXTABLAXCODIGO XENCABEZADO XFULLTEXTO LOG_AGREGARG+(dey_funcTCTCTCTCTC T CALTEvT CALTEvT CCONSvT CPRINTvONG*G +G( \tmp\rpt_sys_verificar.txtG T%.^TC Ta% T TC TC - FTCC Clave6:C[CC]%!  5  !%CRC  |TCC>=%TCC 6 %C oSYSVERTXTbO Ca GG(G %C # G( % ONBG % ONaG % zG* UXTABLAXCODIGO XENCABEZADO XFULLTEXTO XMISMALINEAXNOENTERXCLAVEDEY_FUNC CHK_VALUE OLDALTEON OLDALTETOOLDCONS IMPRESORA_ONP_LOCALXSALIDA TO_STRINGXSYSVTXT OSYSVERTXTREFRESHODEYFUNCDEVENTS`QINTEGER%CBIENESR%CCNBaB-UXRELNUMOBIEDATA_CODIGO_VACIOpQINTEGER.%CLINEASCGRUPOS b%CC^BaB-UXRELNUM74    %CxcodbL^ T % x1 ges)TAnalizando Vista : CfT% T%  T %F%Y T DT=CCbCC '1'6CCZ6&aaa Q  TCW  TF% T nIT=CCxdatobCC '1'6CCZ6&aaa  T-%  Q ;C Error al abrir la base la vista Cf. Ta%B- TCW T 1bbb=1F% o T HT =CCxdatbCC '1'6CCZ6&aaa  Q TCWon error &onerr  FQ FQ FQ%% IHC La vista Cf% est daada intentanto corregirla... T% sys_vistasaa%C ,CLa recreacin respondi ;BC a >CERROR: la vista Cf no pudo corregirse.B- % 2C La vista Cf fue corregida.BaUXVISTAXDATXARCHXVARXDATOXALIASXARCH1XVAR1XDATO1XALIAS1XOPENXCOD XREINTENTOGESOESTADOTEXTOVALUEXAREXAREAXAREA1XCODIGOAAA XBASEERROR LOG_AGREGARBBBXAREA2XMSGAUTRECREAR SYS_VISTAS VALIDAR_VISTA4H K 8has become corrupted. The table will need to be repairedUC La tabla CCf- est daada. Debe compactarla y reindexarla. T-, does not exist 53C La tabla CCf no existe. T-* Cannot resolve backlink1.dbfQ 2EC La tabla Cf tiene el siguiente problema: BUXERRXMESSXARCH LOG_AGREGARXRESXDIRPRUEBA_VALIDACIONCC %CValidacin de Tablas:CC-Q Ta1listados,7sys_verificar_tablas%Cejercon UF Qejercon( QIC9EJERCON: No se pudo abrir. No se revisaron los ejercicios%Cejercon/ sys_verificar_tablas ges BU XREINDEXAR XCOMPACTARXREVISAR_INDICESXREVISAR_INDICES_PROFUNDO LOG_AGREGARXRES ESTADO_INILISTADOSVALIDAR_TABLAS_EXISTENTESSYS_VERIFICAR_TABLASEJERCONOEXVALIDAR_TABLAS_EJERCICIOSGES 2%C\C\contabilidad.dbc0 n'\C \contabilidad(9C#Contabilidad.DBC: No se pudo crear C T (\C \contabilidad T( \'\C \contabilidad T(9C#Contabilidad.DBC: No se pudo abrir C%%(\tmp\dbvalidate.txt9'TC\tmp\dbvalidate.txt%#kCC 4CContabilidad.DBC: DB invlida C<.C\C\diariog /C\C \concepto T - +%C\C \DIAG2.dbf0 %CDiariog2F DF!Q\C\diariogF %(\C \DiaG2.dbfG( contabilidad#1\C \DIAG2.dbfF Q T a( CDIAG2: C $+%C\C \CONC2.dbf0 %CconceptonF F"Q\C \conceptoF%(\C \Conc2.dbfG( contabilidad#1\C \CONC2.dbfFQ T a(R CCONC2: C"C\C\diag2 "C\C\conc2 % C*ctrldiag2--a*ctrlconc2--aU XEJERCICIOXRES2P_SERVEROEX LOG_AGREGARXOKDBOKDBP_LOCALTXTFILEPROCESAR XCOMPACTARXNEWCON2DIARIOG CONTABILIDADOEREMESSAGECONCEPTONOVEDADES_CONTABLES2 REINDEXARCTRL;4     TTTTTTTTTT  T  T  T  %CoTablabO7T BTCTablasys_clases_tablas.prgUXTABLAXCAMPOXTIPOXLENXDECXLUGAR XACTUALIZARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACIONOTABLATHISTABLA# BCC : CfUTHISXTABLAXCAMPO_4ICC vld_tablasys_Verificar_Tablas.prgUOCOLLXTABLAXLUGARXNODB COLECCIONADD;4     AC UOCOLLXTABLAXCAMPOXTIPOXLENXDECXLUGAR XACTUALIZARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACION AGREGAR_CAMPO ;4      TTCCf T%CxlugarbL T"%C xpathforzadobL T '%Cxcampo_a_eliminarbL T (%Cxindice_a_eliminarbL> T +%CxOrden_InicializacionbLz T H CfL T CfM T$ CfD CfT  TCAbrir...F%C-  TCWTCC Copy Stru...(\tmp\FQ\tmp\-CCfCf T%C4CFound...%(%CMDT %CNF%w T- 'TDecimales no corresponden.  T- %TLongitud no corresponde. #!TTipo no corresponde./CC ACT: NOA: 6%  F%Ca &%FN5T (CCZ,CCZ) ?% T  ;(T (CCZ)CAlter->,alter table tabla_datos alter column &xx C<-Alter&T.: C ETMODIFICADO Tabla: CCf Campo: Cf.FQ T ;T#No se pudo abrir en modo exclusivo C.CMSG: k T-% TEl campo no existe g !CAbriendo EXCLU F%Ca  %FNe5T (CCZ,CCZ) %T  (T (CCZ) T 'CAgregando campo---->*alter table tabla_datos add column &xx ?TAGREGADO Tabla: CCf Campo: Cf.!C<----AgreganDO(  TT !"C Error MSG: F%  %CInicializando: &xorden_inicializacion +C<---------- Inicializado(" 3T&No se pudo ejecutar la inicializacin.CError: FQ% T= C FuncAct: &xfn_actualizar C<-----(" LT3No se pudo ejecutar la funcin de inicializacin. ("!)CMSG: %C %C #CEliminando campo m !CAbriendo Exclu%Ca  %C  "CAlter DROP---->i1 tabla_datos &C<--------Alter DROP i ;T#No se pudo abrir en modo exclusivo C.CMSG: (# 5TNo se pudo eliminar el campo C .CMSG: %C tabla_datos FQ c :T-No se puede abrir la tabla en modo exclusivo.CMSG: CMSG: FQ\tmp\.*CMSG:  FQ H  $W%( T S!TEl archivo no existe $%TLos campos no concuerdan $TAcceso denegado 2 T%CMSG: %C  CTabla: CCf Campo: CCf Cf CCZ CFN CCZ6 Error: &%C C&C tabla_datos'!C Saliendo:  BCU(XTABLAXCAMPOXTIPOXLENXDECXLUGAR XACTUALIZARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACIONXBUFFERXMSG2 XDEBUGNVLLOG_AGREGARNVLABRIRXAREAXARCHODEYFUNCNEWFILEP_LOCALTABLA FIELD_NAMEXMSG FIELD_TYPE FIELD_LEN FIELD_DECXX TABLA_DATOSAAAOERRORMESSAGEOEX1OEX2 XERR_ABRIR XMSG_ABRIR LOG_AGREGAR CHK_CLOSED 4%CZ%V TCW FQ F 5 T T T1log_msg_abrir()%TC   T% Q X 3Q ( THRP   1 propiedades 1 TTT ( TTT  2P TT T on error &onerr BUXEXCL XPATHFORZADOXAREA3XTABLAAAAXDIR XMSG_ABRIR XERR_ABRIRODEYFUNCGET_PATHXLUGAR TABLA_DATOSOEXERRORNO PROPIEDADESOEX2MESSAGE( T TCE TC,UAAA XMSG_ABRIR XERR_ABRIR"%CC\ F T3sys_verificar_tablasBUXARCHXLUGARXNODB XREINDEXAR XCOMPACTARVLD_TABLA_SANASYS_VERIFICAR_TABLASMCC -CValidacin de Bases de Datos:CC CGES Qejercon(,CNo se pudo abrir EJERCON !!!%CEJERCONF ~*C CONTABILIDAD\CCC  gesBaU LOG_AGREGAR LIMPIAR_BASEP_SERVEREJERCONOEXDIRGES \GESSYSTEM<TCTABLE( n1C(C\GES<TCTABLE() 1C(%C%Cejercon F fQejercon(IC9EJERCON: No se pudo abrir. No se limpiaron los ejercicios%CejerconF ~ A*\C  \contabilidad1diariog1concepto(>C%Contabilidad.DBC: No se pudo limpiar C FFQ gesBU P_SYSTEMAAAZZZZOEX LOG_AGREGARMESSAGEP_SERVEREJERCONDIRDIARIOGCONCEPTOGES4%C xfn_crearbLC T CCf&TCC6 TC.dbf0% %CH%CCfTEMPCOMPCC INST\TEMPCOMP.DBF0  7C INST\TEMPCOMP.*(C tempcomp.*:CNo encontrada: Cf, copiada de INST BCa/CNo encontrado: .dbf F&xfn_crear Q BUXTABLAXLUGAR XNO_REPORTAR XFN_CREARXLOOPXRSPXDIROESTADOAVANCEODEYFUNCGET_PATHP_SYSTEMP_SERVER LOG_AGREGAR VLD_TABLAtCcashcfgF#) >a >a >a >a >a >a >-BU CHK_OPENEDCASHCFGOCLIOPROOVALOTESOADIOIMPOPEDiCTCCCOMPCDEPOSITOF>CXFQFQBU CHK_OPENEDTCCCOMPDEPOSITOFORTCcompprodF>A>A BU CHK_OPENEDCOMPPRODNCIERRESFORAPLWCtextosaF >i1textos HQBU CHK_OPENEDTEXTOS COMPROBANTE1CproducciF>BU CHK_OPENEDPRODUCCINCIERRESALLdCempresasCtcccompF-F>BU CHK_OPENEDP_SYSTEMEMPRESASCODIGOP_CODEMPTCCCOMPLUGARIB PROVINCIAALLcCempresasCcccompF-F>BU CHK_OPENEDP_SYSTEMEMPRESASCODIGOP_CODEMPCCCOMPLUGARIB PROVINCIAALL1CccformulF>BU CHK_OPENEDCCFORMULEST_ACTALLCDESPACHOCBIENESFG((codinsFG-(>FQFQBU CHK_OPENEDBIENESCODINSDESPACHOCOD_INSMONEDAALLICCODBULATF>C CX[FQBU CHK_OPENEDCODBULAT CODBULATRALLGCULTCOSF>C CX[FQBU CHK_OPENEDULTCOS CODBULATRCODBULATALLlCPROAUXF-CNUEVO%C4 V> NUEVOFQBU CHK_OPENEDPROAUXNOMBRE9CATRIBUTOF>QBU CHK_OPENEDATRIBUTOIDCOD_INSCLAVEALL7CBULTOSF>QBU CHK_OPENEDBULTOSIDCOD_INSCLAVEALL3CmotinvF>QBU CHK_OPENEDMOTINVPROCLIALLft05QBU CREAR_BARRASFT05ft05QBUCREAR_MIX_ADICFT056CproveedoF>SQBU CHK_OPENEDPROVEEDOIVACTRLALL6CconverF> 6eQBU CHK_OPENEDCONVER FACTURADOALLRCProd_GenFTC>>CCgZQBU CHK_OPENEDPROD_GENXLENOPOPALL?Cbienes>FQBU CHK_OPENEDBIENESTIPOCOSFORCbienesCstockFG((codigoF!G-(CXCXCXP>S S   FQFQBU CHK_OPENEDSTOCKCODIGOBIENESCOD_INSSTK_MINSTK_PED TIPOSTKMINBULTOS ATRIBUTOS%CConcepto+FQ%CdiariogRFQ QConceptoQdiariog()%CConcepto CDiarioG F>>$Asiento de Refundicin de Resultados8>Asiento de Cierre de Ejercicio;>!Asiento de Apertura del Ejercicio co_funciones +CError al inicializar Tipo2 !!!B-BU XDIRCONCEPTODIARIOGOEXTIPO2FORCT_APLICAR_TIPOAS CO_FUNCIONESMENSAJE%CConcepto+FQ TQConcepto(b%CConceptoF> -C Error al inicializar version !!!B-BUXDIRCONCEPTOOEXVERSIONFORMENSAJEX%CConcepto+FQ%CdiariogRFQ QConceptoQdiariog()%CConcepto Cdiariog FG((asientoFG-(> M.C!Error al inicializar fec_proc !!!B-BU XDIRCONCEPTODIARIOGOEXASIENTOFEC_PROCFECHAALLMENSAJE4CconsF#)H5 ibU >a ganv >a iva >aBUXXX CHK_OPENEDCONS HAYRET_IB HAYRET_GAN HAYRET_IVAY4CconsF#)>CNC>Q>CS[BUXXX CHK_OPENEDCONSCOPIAPDFcm_procsBUINI_TCCCOMP_AUTORIZADACM_PROCS sys_comisionesBUINI_VEN_OPER_FEC_COMISYS_COMISIONESHF"QCempresas>QUODEYFUNCGET_PATHTMPINIMENUFOR2Cejercon>U CHK_OPENEDMENUFOREJERCON3Cejercon>C]CU CHK_OPENEDIDUFOREJERCON&Cejercon>aU CHK_OPENED NOVEDADESINEJERCON,Cacuerdos>CgU CHK_OPENEDCODIGOCOD_ACUALLACUERDOS*Cproveedo>U CHK_OPENEDCITIALLPROVEEDO)Ctventas>U CHK_OPENED FACTURADORECEP2ALLTVENTAS6Cfletes >C6U CHK_OPENEDTIPOPROPIOALLFLETES}%Cprovinc 4Q\provincF ~vHZr {> > > > >  > A> b>  >  >  >  >  > (> I> j> > > > > > 0> Q> r>UP_SYSTEMPROVINCCODJUR_CONV'Cconver2>aU CHK_OPENEDFLAGALLCONVER2&Ccccomp>aU CHK_OPENEDFLAGALLCCCOMPCccclieCtccventF~PTCC,gFG((tccvord E T T,  ve_aprobacion   F >FQFQU CHK_OPENEDXPEDIDOXRESXRESCODCCCLIECAUSACOMPROBTCCVENTTCCVORD ESTADO_PEDIDO VE_APROBACIONSTOCKCREDITOGERENCIAAPROB(Cbienes>U CHK_OPENEDCM_UNI2ALLBIENESCbienesCmedidas=obienesQQC tmpmeds<rtmpmedsobienesQQC F&otmpmedsǿtmpmedfptmpmedfCO<rmedidasotmpmedfC]F ~+pbienes  CC +pbienes  CC FQFQU CHK_OPENEDMEDIDADESCRCODIGOBIENESTMPMEDS MEDIDAAUXTMPMEDFIDUMEDIDASMEDCOD MEDAUXCOD<Cmotinv +> 5U CHK_OPENED FORM_COPIA FORM_COPIASALLfCccventCventasCremxfac QFG((ccvfac% HFG-(V$TCremxfac.facturaZ copy to (p_local+"\tmp\xoldprec") for &xfiltro .and. ((ccvent.estado=3 or (p_usar_despacho .and. ccvent.estado=1) or !p_usar_despacho ) .or. empty(remxfac.rem_ven)) delete for &xfiltro .and. ((ccvent.estado=3 or (p_usar_despacho .and. ccvent.estado=1) or !p_usar_despacho ) .or. empty(remxfac.rem_ven)) F Q \data\CCZ  \tmp\xoldprecQ _U XFILTRO CHK_OPENEDCCVENTCCVFACP_UNOP_CODEMPP_DOSREMXFACFACTURASYS_DOSCEN_BETWEENP_SYSTEMREMXFAC2P_LOCAL+TCSecuritysys_security.prg$TC TMPPERMSEC>CS[ QUXPERMISOOLSECXA010592 SEC_TABLE_GETA2ALL SEC_TABLE_PUT TMPPERMSECF-%C4 1rpermisos%C !>BU XPERMISOXDESCRXTIPOXAUTOASIGNABLEPERMISOSCODDESCRTIPOVLD_PERMISO_AUTOASIGNAR4F-%C4 c0rcierres >BUXID XCONCEPTOXTIPOCIERRESIDCONCEPTOTIPO4%CxTipobLG TF-%C4 Orquestion      5>     BU XATRIBUTOXORDENXDESCRXTIPOXMINIMOXMAXIMOXFILTROQUESTIONATRIBUTOORDPREGUNTATIPOMINIMOMAXIMO TCTC%C CMKDIR: (!C ERROR MKDIR: &C U XCARPETAXPATHXTPATHXFPATHOEXODEYFUNCGET_PATH LOG_AGREGARMESSAGE0sys_verificar2 BUXRESVALIDAR_CARPETASSYS_VERIFICAR2 $TAnalizando NovedadesT/TCC &CAnlisis de Novedades:CC-Q TaTC #TCform_pas  #TCform_cal  #TCform_gen  "TCcos_cie  TCcccob  TCccpag  #TCprot_ana  #TCprot_det  #TCprot_esp  #TCoperario  #TCplan_maq  #TCplan_dia  #TCplan_ope  #TCplan_maq  #TCplan_mad  #TCplan_gen  #TCprod_gen  #TCcompplan  #TCpendrecl  #TCcashproc  #TCcashprov  3TCbarras-crear_barras()  7TCmix_adic-crear_mix_adic()  #TCunidades  "TCequipos  !TCequser  "TCcatpro2  "TCcatpro3  #TCrubrofac  "TCvlocale  "TCvlocald  TClocks  #TClocksold  1TCchp-MakeTable_CHP()  ;TCacuerdos-MakeTable_acuerdos()  ;TCasm_mast-MakeTable_asm_mast()  ;TCasm_deta-MakeTable_asm_deta()  ;TCasm_form-MakeTable_asm_form()  ;TCasm_pase-MakeTable_asm_pase()  ;TCplan_nuv-MakeTable_plan_nuv()  9TCmaq_grp-MakeTable_maq_grp()  ;TCform_maq-MakeTable_form_maq()  ;TCplan_nuv-MakeTable_plan_nuv()  ;TCplan_opd-MakeTable_plan_opd()  9TCpro_adi-MakeTable_pro_adi()  ;TCprod_gen-MakeTable_prod_gen()  ;TCpendrecl-MakeTable_pendrecl()  "TCEMPUSER  ;TCitm_desc-MakeTable_itm_desc()  9TCiva_ven-MakeTable_iva_ven()  ;TCtarjetas-MakeTable_tarjetas()  9TCesolcom-MakeTable_esolcom()  9TCdsolcom-MakeTable_dsolcom()  9TCcashuse-MakeTable_cashuse()  ;TCcomppaux-MakeTable_comppaux()  9TCarmador-MakeTable_armador()  7TCtextos-MakeTable_textos()  9TCartxcli-MakeTable_artxcli()  ;TCmtz_prod-MakeTable_mtz_prod()  9TCinvmode-MakeTable_invmode()  9TCinvmodd-MakeTable_invmodd()  ;TCctasbanc-MakeTable_ctasbanc()  ;TCitmdescc-MakeTable_itmdescc()  7TCbieaux-MakeTable_bieaux()  ;TCtsp_tsps-MakeTable_tsp_tsps()  9TCtsp_tsps-MakeTable_cosult()  9TCepresup-MakeTable_epresup()  9TCdpresup-MakeTable_dpresup()  3TCpro2-MakeTable_pro2()  #TCTEMPCOMP  Ta% CC bCRError al buscar tablas, vuelva a aplicar las novedades luego de corregir el error! BTC  T C TTC 1TOtrosT%Cquestion Q \questionFT C Q \paises%CCUIT/CCUIT{CC :C*La tabla de paises est desactualizada !!!TC TC TC  C% CC  Ca T-% CC rCbError al aplicar novedades de campos, vuelva a aplicar las novedades luego de corregir el error!!!  C( BU XNEWHISTORICOXNEWPREHISTORICOOESTADOTEXTOMAXVALUE LOG_AGREGARXRESVALIDAR_CARPETAS VLD_TABLAVALIDAR_CIERRESVALIDAR_NOVEDADESNOVEDADES_CONTABLESP_SYSTEMQUESTION VLD_ATRIBUTOS VALIDAR_IDXVALIDAR_PERMISOS VLD_OTRASXVLDCUENTAS_NOSHOWVALIDAR_ATRIBUTOS XVLDCUENTASMODIFICACIONESOEXJ4F!>BUXFECHA XREFERENCIAXTEXTOXININUEVOFECHAREFTEXTO %C \nuevo.dbf0 Z:h1 \nuevo.dbfDCPM %Cnuevo Q\nuevoFSCC $,TESORERIA: Reporte de Movimientos de CuentasOEn la salida a XLS se han agregado los datos del emisor del cheque de terceros.{CC $0CUENTA CORRIENTE CLIENTES: Visualizacin Recibos/Ahora se pueden ver los comentarios del recibo.zCC $1CUENTA CORRIENTE PROVEEDORES: Visualizacin Pagos-Ahora se pueden ver los comentarios del pago./CC $'COMPRAS/CONTABILIDAD: Iva No ComputableSe ha implementado la posibilidad de diferenciar contablemente el IVA en computable y no computable. Deben actualizarse los comprobantes de Orden de Compra y Orden de Pago. Debe colocarse el atributo "IVA NO COMPUTABLE" a alguna cuenta.CC $+COBRANZAS/CONTABILIDAD: Retenciones de IIBBAhora se puede optar por registrar las retenciones de IIBB de clientes en cuentas para cada provincia o bien en una cuenta global. Antes era en una nica cuentaCC $ARTICULOS: Activo/InactivoAhora se puede especificar si el artculo est activo o inacativo, en cuyo caso se impide su uso en facturacin, compras y otros.CC $OCOMPRAS: Permisos para ingresar "a mano" nmeros de O.C. / O.P. / C.P. / RECIBOLos menes de compras y tesorera tienen la opcin de registrar comprobantes con y sin preguntar por el nmero correspondiente.FQBUP_SYSTEMFECHAREFTEXTONUEVOMODIFICACION_AGREGAR#4TCCfT C : fT  *%COMPROB2 DFEC %C T%C T%C C T \\%CxlugarbL= TF%C- ;T .Indice no encontrado, debe reindexar la tabla.( TC%(2TC%%C%C j%CmCCff T !  T ! ! ! 5T (El archivo no existe o no se pudo abrir.%C % VCRecuperando tabla: CCf Indice: CCf Error:  $dey_func tabla_datos/ctrl--aa .%Ca EPC ERROR Tabla: CCf Indice: CCf Error:   TC OK Tabla: CCf Indice: CCf Estado: ReindexadaC tabla_datos BC UXTABLAXINDICEXLUGAR XREINTENTARXCLAVE XLPATHFORZADO XLEJERCICIOXLEJERCON_ABIERTOOESTADOTEXTOVALUEP_SERVERABRIRXMSGZXCDXYXTAG LOG_AGREGAR CHK_CLOSEDDEY_FUNC REINDEXARCTRLVLD_IDX4TCCGES fH< GES] ges  GESSYSTEM \GESSYSTEM CONTABILIDAD %C Q F TCW0%CCtableTriggerfCf2   F Q Hv CfDELETE  CfINSERT  CfUPDATE ( H" CfDELETEs6create trigger on (xtabla) for delete as &xtrigger  CfINSERT6create trigger on (xtabla) for insert as &xtrigger  CfUPDATE6create trigger on (xtabla) for update as &xtrigger (ZCAgregar trigger en tabla: CCf Error: [CC Z]  (kCAgregar trigger en tabla: CCf2 Error: No pudo abrirse la tabla en modo exclusivo FQBU XTABLA XTIPO_TRIGGERXTRIGGER XDATABASEGESP_SYSTEMXAREAOEX LOG_AGREGARERRORNOMESSAGE1  Ta%C%Cejercon ]FQejerconF ~F TCOT C %Cejercon FQejerconF #% >a !TC BU XEJERCICIOXRES2XRNEJEJERCONNOVEDADES_CONTABLES2DIR NOVEDADES^  TaJT:CconceptounN a-\C\ LT<Cdiariogaux1nNa-\C\ TuCconceptotipo2Na)ini_concepto_tipo2(p_server+'\'+ALLTRIM('')+'\')-\C\ TyCconceptoversionNa+ini_concepto_version(p_server+'\'+ALLTRIM('')+'\')-\C\ T{CconceptoFec_ProcTa,ini_concepto_Fec_Proc(p_server+'\'+ALLTRIM('')+'\')-\C\ TvCdiag2versionNa+ini_concepto_version(p_server+'\'+ALLTRIM('')+'\')-\C\ TvCconc2versionNa+ini_concepto_version(p_server+'\'+ALLTRIM('')+'\')-\C\ TxCconc2Fec_ProcTa,ini_concepto_Fec_Proc(p_server+'\'+ALLTRIM('')+'\')-\C\ MT=CdiariogcambioNa-\C\ KT;Cdiag2cambioNa-\C\ PT@Cdiariog provinciaNa-\C\ NT>Cdiag2 provinciaNa-\C\ LT<CdiarioglineaN a-\C\ JT:Cdiag2lineaN a-\C\ LT<CdiarioggrupoN a-\C\ JT:Cdiag2grupoN a-\C\ TuCconceptolegalNa)ini_concepto_legal(p_server+'\'+ALLTRIM('')+'\')-\C\ ToCconc2legalNa&ini_conc2_legal(p_server+'\'+ALLTRIM('')+'\')-\C\ KT;CdiariogtranN a-\C\ IT9Cdiag2tranN a-\C\ JT:CdiariogcodCa-\C\ HT8Cdiag2codCa-\C\ JT:CdiariogatrCa-\C\ HT8Cdiag2atrCa-\C\ JT:CdiariogbulCa-\C\ HT8Cdiag2bulCa-\C\ JT:CdiariogbulCa-\C\ HT8Cdiag2bulCa-\C\ OT?Cconceptoasi_modN a-\C\ LT<Cconc2asi_modN a-\C\ PT@Cconceptocomp_expCa-\C\ MT=Cconc2comp_expCa-\C\ NT>Cconceptoid_extC a-\C\ KT;Cconc2id_extC a-\C\ MT=Cdiariogid_extC a-\C\ KT;Cdiag2id_extC a-\C\ PT@Cdiariog subcentroN a-\C\ NT>Cdiag2 subcentroN a-\C\ Ccccomp%CdiariogU Q F$Q\C\diariog  F%Q\C \concepto )%CdiariogCconcepto F#~P Cdc %T CCCC [,g8%C cccompOPF G((asiento E >F>OPCC  Z /C!No pudo abrir el diario Suspendo?a%Cdiariog2Q%CconceptoWQ %Cdiag2yQ F"Q\C\diag2  F"Q\C\conc2 $%Cdiag2 Cconc2 F#~P Cdc %T CCCC [,g8%C cccompOPFG((asiento E >F>OPCC  Z (/C!No pudo abrir el diario Suspendo?a%Cdiag2JQ%Cconc2lQ%CcccompQ1TCdiariogcueCa 4TCconceptotipo2Ca 1TCconc2tipo2Ca 4TCdiariogid_extCa 2TCdiag2id_extCa ,%C\C \diariog.dbf0 `+\C\Contabilidad.dbc3 \C\diariogQCCCO,G(\C\Contabilidad.dbc G(ges(lCAgregar trigger en tabla: C\C\diariogf Error: [CCZ]  NfCAgregar trigger en tabla: C\C\diariogf Error: Tabla no encontrada BU XEJERCICIOXRES2 VLD_CAMPOP_SERVER CHK_OPENEDDIARIOGEJERCONDIRPROCLICAUXOP COMENTARIOCONCEPTOASIENTOCOMP_EXPCCCOMPFAC_COM2COMPROBSYS_MOSTRAR_SCREENDIAG2CONC2VLD_IDXDB_LOGGES OEX_TRIGGER LOG_AGREGARERRORNOMESSAGE4TC X TCcuentasF~CC %CGCERR: La cuenta [C] no tiene abreviatura !!! T% !%CdGCERR: La cuenta [C] no tiene descripcin !!! T% !'%  `F"QC question F ~CC Q.TC% M!F QC. T BUXRES XSOLO_ERRORESXABORTAR_EN_LA_PRIMERAXCUENTAXERR CHK_OPENEDCUENTASABREVDESCR LOG_AGREGARODEYFUNCGET_PATHTMPINIQUESTIONFILTROVLD_ATRIBUTOS_APLICACION2ATRIBUTOPREGUNTATIPOMINIMOMAXIMOs  T<%  '   BF <  8ocuentas C\S %   TTC X :TC TC #T [CZ] CHrc#  C u% qKCADV: El atributo C  : est usado CCZ veces.C. (K1CCXC   - C  C.T % H  <CADV: El atributo C : No est en uso.T C LCADV: El atributo C : Est en uso CCZ veces.C. (1CCXC   - C  C.T cH_ z<CERR: El atributo C : No est en uso.T C _LCERR: El atributo C : Est en uso CCZ veces.C. (91CCXC   - C  C.T BU XATRIBUTOXDESCRXTIPOXMINXMAX XSOLO_ERRORESXCUENTA XASIGNACIONESXERRZXDESCR_AMPLIADACUENTASARR_CUECOD_CUEABREVDESCRATRIBUTO LOG_AGREGAR\ 4#%C\.dbc0 u@CBase de datos inexistente: \.dbcB-%Q\.dbc,odbQTable1curFQ\.dbcF ~%%C\C.dbf0 TC O 1( % > >T C Datasessionv (  G(  %Q\.dbcF Qcur~T qdb   BC)Validacin de GES - Referencia eliminada:CF3Q BC2Validacin de GES - DB en uso, no se puede validar%CcurBFQcur.dbfBUXBASEXPATH LOG_AGREGARDB ELIMINADA OBJECTTYPECUR OBJECTNAMEAAAOEXERRORNOOLDDSZXIDOBJECTIDPARENTIDDBF0sys_verificar2 BUXRESINDICESSYS_VERIFICAR2|%Cpermisos =Q \permisosFsys_verificar2FQ BUXRESP_SYSTEMPERMISOSSYS_VERIFICAR2r%Ccierres 3QcierresFsys_verificar2FQ BUXRESCIERRES VLD_CIERRESSYS_VERIFICAR2s%Cquestion DQ \questionFT C BU XSOLO_ERRORESXRESP_SYSTEMQUESTIONVLD_ATRIBUTOS_APLICACION$%C\inst\geshd.exe0(BG+(internetM%C http://solinges.com.ar/geshd.exe\inst\geshd.exe&CSe actualiz GESHD.EXE *CNo se pudo bajar GESHD.EXEBUP_SYSTEMINTERNET DOWNLOAD_HTTP LOG_AGREGARC %sys_verificar2 BU XNEWHISTORICOXNEWPREHISTORICOXRES NOVEDADESSYS_VERIFICAR2TC CollectionTC CollectionTC CollectionTC Collection1TCTablassys_clases_Tablas.prgUTHIS COLECCION NOVEDADESTABLASEN_USO TABLAS_FULL,74     T ChTC vld_camposys_verificar.prg #CC----C 'CC----C BUXTABLAXCAMPOXTIPOXLENXDECXLUGAR XACTUALIZARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACIONOTABLATHIS TABLAS_FULLBUSCAROVLD COLECCIONREMOVEADDTC CollectionTC Collection1CComprobando novedades  .CComprobando novedades:   T  [TC a% T T T  C T CT ( C U XRESTHIS NOVEDADESTABLASOESTADO SET_AND_SHOW COLECCIONCOUNTOVLDXMSGOTLBAVANCEXNOVEDAD XACTUALIZAR VLD_CAMPOXTABLAXCAMPOXTIPOXLENXDECXLUGARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACION VLD_AGREGARADDTABLANOMBREOEX-CReservando tablasTC Collection Ta*CReservando tablas:  %Ca-a C H  .C NO EXISTE Tabla: C f   a1C EN USO LOCAL Tabla: C f   0C EN USO OTRO Tabla: C f 2*CERROR Tabla: C f  T- BUXOKOESTADO SET_AND_SHOWTHISTABLASCOUNTEN_USOOTABLAAVANCENOMBRE COD_ABRIRADDERRORNUM LOG_AGREGARf %*Ba%CN BC _B-UTHIS VERIFICAR NOVEDADESCOUNTRESERVAR ACTUALIZAR  Ta/CAplicando novedades] ,CAplicando novedades:   T  TC C CZTC Ca C % Y!!  C! BU"OTLBXRESOESTADO SET_AND_SHOWTHIS COLECCIONCOUNTOVLD NOVEDADESXMSGAVANCEXNOVEDAD XACTUALIZARTABLASTABLANOMBRE PRE_VALIDAR COD_CERRAR VLD_CAMPOXTABLAXCAMPOXTIPOXLENXDECXLUGARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACION COD_ABRIR POS_VALIDAROTBLCccpagCcom_operJocom_operCQOtmppag& FG-(> FQFQU CHK_OPENEDCOMPROBCAUSACAJ_PROTOTALCOM_OPERTMPPAGCPBTCCPAGTOT_PAGALLCccpagCcom_operF G((cpbtFG-(>FQFQU CHK_OPENEDCOM_OPERCPBTCCPAGCOMPROBCAUSACOD_PROALL CccpagCccprovCcom_operCcomprasoccprovXcompras   O C  tmp1-otmp1CQ tmp2'otmp2CQtmp3& FG-(>FG((comprobF ~FG((comprobE%. T-co_aut%(pdiariog)pconceptoCccpagCccprovCcom_operCcomprasCdiariogCconceptoU CHK_OPENEDCCPROVCOD_PROCOMPROBCAUSACOMPRASFAC_COMIMPORTACFEC_COMREFCAUTMP1T_CPBTSTMP2T_IMPTMP3CPBTCCPAGFORCOM_OPERASIDIA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTDIARIOGASIENTOCONCEPTO CHK_CLOSEDOCbienesF>>BU CHK_OPENEDBIENESSTK_MIN1STK_MINFOR TIPOSTKMINNCstockF>>BU CHK_OPENEDSTOCKSTK_MIN1STK_MINFOR TIPOSTKMINCtccventCclientesFG((codcliFG-(>CtccventCclientesBU CHK_OPENEDCLIENTESCODCLITCCVENTCOD_CLIIVACATALL CHK_CLOSEDCccventCclientesFG((codcliFG-(>CccventCclientesBU CHK_OPENEDCLIENTESCODCLICCVENTCOD_CLIIVACATALL CHK_CLOSEDCtccventFI>C - -   80966CtccventBU CHK_OPENEDTCCVENTTIPODOCCUITALL CHK_CLOSED}CccventFI>C - -   80966CccventBU CHK_OPENEDCCVENTTIPODOCCUITALL CHK_CLOSEDCdespachoFG((T T~%~ T TT>CdespachoBU CHK_OPENEDDESPACHOXIMPXITEMIMPORTACITEM CHK_CLOSEDKCproducciF>CproducciBU CHK_OPENEDPRODUCCIENVFORMULTIPLE CHK_CLOSEDCbultosCmedidas=obultosQQC tmpmeds<rtmpmedsobultosQQC F&otmpmedsǿtmpmedfFG((codigo#6 T F ~FG((descr E%C4 T  6rmedidas  C]F ~+pbultos CC+pbultos CCFQFQU CHK_OPENEDMEDIDADESCRCODIGOBULTOSTMPMEDS MEDIDAAUXTMPMEDFMEDIDASXCODIDUMEDCOD MEDAUXCODCbul_genCmedidas>obul_genQQC tmpmeds=rtmpmedsobul_genQQC F&otmpmedsǿtmpmedfFG((codigo#6 T F ~FG((descr E%C4 T  6rmedidas  C]F ~,pbul_gen CC,pbul_gen CCFQFQU CHK_OPENEDMEDIDADESCRCODIGOBUL_GENTMPMEDS MEDIDAAUXTMPMEDFMEDIDASXCODIDUMEDCOD MEDAUXCODDC(4 SEMANAS C]DC(MIXTO (1 MES) C]DC(DIARIO C]DC(8 SEMANAS C]DC(5 DAS Y 3 SEMANAS  C]DC(DIARIO (2 MESES) C]DC(QUINCENAS C]C BU FN_CASHRESU_1FORCODIGO4F-%C4o5>   Nrprueba_validacion  BU XCODIGOXDESCRXACUMCOLXLASTCOLXIDUPRUEBA_VALIDACIONCODIGODESCRACUMCOLLASTCOLIDUMCmotivos+>C2FQU CHK_OPENEDVENTASMOTIVOSTIPOALLCconverCimportacjoconverCC QR?@ queryF ~F>F> FFQFQU CHK_OPENEDIMPORTACENTRAFOBFACTOR FACTORTEOCONVERQUERYFORNUMERO)Cve_transCtccventF~ FG((codigo$EC 999999999999_%C4F> F ~% >    > FQFQU CHK_OPENEDTCCVENTEST_DESPVE_TRANSCODIGOCOD_CLIPEDIDOFEC_ENTOC_APROB TRA_ENTRETVENTASENTREGAmCconsF5%CSCHCLESELNUVSAMIND[>aFQU CHK_OPENEDCONSP_EMPIIBB_BAOCconsF%CNUV=>aFQU CHK_OPENEDCONSP_EMP IIBB_CABAOCconsF%CNUV=>aFQU CHK_OPENEDCONSP_EMPIIBB_SFE3CprovincF ~!H= q!>BA  !>CABA  !>CAT   !>CHA  A!>CHU  u!>COR  !>CTES  !>ER   !>FO   E!>JU   y!>LP   !>LR   !>ME  !>MI  I!>NE  }!>RN  !>SA  !>SJ  !>SL  M!>SC  !>SF  !>SE  !>TF  !>TU FQU CHK_OPENEDP_SYSTEMPROVINCCODABREV!dey_funcclientes!dey_funciibbpereF*~ C  [riibbpere   FQF QU CHK_OPENEDDEY_FUNCCLIENTESIBPERDIBPERHCOD_CLI PROVINCIACODIGOALICUOTADESDEHASTAIBPERIIBBPERECclientesCccvent=occventCQ tmp_clientesF ~FG((codcli E%C4>FQFQFQU CHK_OPENEDCCVENTCOD_CLIFEC_VEN TMP_CLIENTESCLIENTESCODCLIALTACccformulCbienesFG((codinsFG-(;>CC=SI K SN6FQFQU CHK_OPENEDBIENESCODINSCCFORMULCODIGO MERMACTRLCOD_INSMEDIDAALLgCFormulasF6oformulasCOQ tmpformini TT TF#)+C+ !%  T T TT >H ~JF #>FQFQU XFORMULAINIXPASOP XORDENCOM CHK_OPENEDFORMULASRECNUMPASOORDEN TMPFORMINIFORMULA'CimportacCtcccompCproveedoCconverF ~TF~#%F G((tcccord E%C4F>  F>  ^oconverproveedo     aseasa T%  ~*TCC , 6CF >FQFQF QF QU XFORMULAINIXPASOP XORDENCOM CHK_OPENEDIMPORTACXNUMIMPNUMEROCONVERORDENTCCCOMPTCCCORDCOD_PRODISTINCTPROVEEDONOMBREASEASAXTXTPROVTXTPROVQ %C$C $x %Cq1>FQ%Ccom_oper pQcom_oper%Cven_oper Qven_oper%Cchq Qchqocom_operXchq C ZC ZC ZC ZQQcQ  Q  Q  L    1 C  q1 ~ hte_procs  a aoven_operXchq C ZC ZC ZC ZQQQ  Q  Q  L    1 C  q1 ~Khte_procs  a a%Cq1mFQ%Ccom_operFQ%Cven_operFQ%CchqFQ%C ganancias Q \gananciasF>tC QBUQ1COM_OPERVEN_OPERCHQDES_VALDESCR DIF_VALORVENCCAJ_PROPESOSNUMEROSUBNUMCAUSATIPOCHQ_REGTE_PROCSP_SYSTEM GANANCIASCODFORCODIGOCitmdesccCtcomprasCbienesF ~:%CC ZNCZitmdesccid3%C Cbienescodins F>FQFQFQBU CHK_OPENEDTCOMPRASORDENITMCOD_INSITMDESCCDESCRBIENES | LoadLibrarykernel32 | FreeLibrarykernel32TC% C Ta  T- BU DLLFILENAMEHMODULE LOADLIBRARYKERNEL32 FREELIBRARYLRETVALzCven_operCchqRoven_oper1 S   ini_chq_cod_cli ~YF G((idECZCZ%C4*>      Uirchq        FQFQBU CHK_OPENEDVEN_OPERTIPOPROPIONUMEROSUBNUMINI_CHQ_COD_CLICHQIDCOD_CLIBANCHQNUMCHQFECHAIMPORTEDESCR DIF_VALORCAJ_PRODES_VALY%CConcepto+FQ TQConcepto(CError: &C concepto:legal%CConceptoF> N1C!Error: Inicializar Concepto.Legal+CError al inicializar LEGAL !!!B-BUXDIRCONCEPTOOEX LOG_AGREGARMESSAGELEGALFORMENSAJEJ%Cconc2(FQ NQconc2(CError: #C conc2:legal%Cconc2F> ?.CError: Inicializar Conc2.Legal+CError al inicializar LEGAL !!!B-BUXDIRCONC2OEX LOG_AGREGARMESSAGELEGALFORMENSAJEG+(listadossys_log,TCloguear_mantenimiento_fcdereN ,sys_procesando InicializandoCventasCccventCmovstock F T ~TC idC H%[sys_procesandoVentas.fec_ent: Procesando CCC HZ - CCC iZ TT CCC RgCXqC VFC  MC cNC  )C dND  CX6666 - CCC RgCX RE 6 - T  T% V%CC Rg -%C ccventccvfacs%CCRgF%|6C Ccvent.fcdere CCZ -> 1% x>F .%C rmovstockcomprobT  T  T o%k6C Ccvent.fcdere CCZ -> 0% g> } F % :C Ventas.fec_ent C * -> C *%  > %}=C Ventas.fcdere CC Z -> CCZ% y >FQFQF Q<sys_procesandoBUXTESTEARLISTADOSSYS_LOGOLOGXOLDXNEW SP_MENSAJESYS_PROCESANDO CHK_OPENEDXFECHAVENTASXHEADERFEC_VENFAC_VENCAUSAREM_VENXFCDERECCVENTFCDERELOGMOVSTOCKFECHAFEC_ENTSP_OCULTAR_DEFINITIVAMENTE,sys_procesando InicializandoCccventCccprovF ~d F-3%C4F>  FQFQ sys_procesandoBU SP_MENSAJESYS_PROCESANDO CHK_OPENEDCCVENTCAUSANCND_SUBCCPROVCOMPROBFAC_VENND_PROVCOD_PROSP_OCULTAR_DEFINITIVAMENTECproducciCprod_estF~ >FQrprod_est FQFQBU CHK_OPENEDPRODUCCIESTADOESTFABPROD_ESTPRODINICIOFINNOTAFECHACccventCventasF~rFG((remito E T+C+  'TC6HF+> C  6FQFQBU CHK_OPENEDCCVENTCAUSAVENTASREMITOREM_VENACCTOT_VEN RECEPCIONSALDORDEUDA4 TCf/sys_procesando Eliminando: G+(listados TCW-T CC\C 6 T  Q  S Q (Z\ log_errores .dbf" no se puede abrir en exclusividad T"%Cprueba_validacionF Q FBUXARCHXLUGARXNODBOEXXARCHERR SP_MENSAJESYS_PROCESANDOLISTADOSAREAXDIRODEYFUNCGET_PATH XERROR_TRYPRUEBA_VALIDACIONLOG_ERRORES_INSERTAR LOG_ERRORESP_CODEMP ERROR_TRYCmedidasF ~H6 CC=K^ > CC=L > 2 >FQBU CHK_OPENEDMEDIDASDESCR DECIMALESCccventsys_mant_varios%CccclieOFQ%CccventuFQBUREMOVE_TRIGGERSCOMPROBANTES_ANULADOSSYS_MANT_VARIOSCCCLIECCVENT4%C /Q F TCW A F Q /-%CCtable DeleteTriggerꋡ  -%CCtable UpdateTriggerꋡ  -%CCtable InsertTriggerꋡ + (=(kCAgregar trigger en tabla: CCf2 Error: No pudo abrirse la tabla en modo exclusivo FQBUXTABLAXAREAOEX LOG_AGREGARr%Cret_prov 5Qret_prov%Cproveedo gQproveedo%Ccom_oper Qcom_oper%Cccpag Qccpag&%Cret_prov.versionbNANC>ini_ret_prov_version: Iniciacin a la espera del campo VERSIONBF#)F*~  )-%C  com_opercpbt%(%C proveedocodpro!> FG((comprobE  >  F>F~ -%C  com_opercpbt(%C proveedocodpro>  %Cret_provFQ%CproveedoFQ%Ccom_operBFQ%CccpaggFQBUXVERSIONRET_PROVPROVEEDOCOM_OPERCCPAG LOG_AGREGARTIPOREGIMENVERSIONCOMPROBCAUSACOD_PRO GANANCIASALL%Cbienes *Qbienes%Cmarcas XQmarcasFG((codigoFG-(>%CbienesFQ%CmarcasFQBUBIENESMARCASCODIGOMARCADMARCADESCRALL %Cproducci 9Qproducci%Ccompprod kQcompprodF~ T T>%CproducciFQ%CcompprodFQBU XID XDEPOSITOPRODUCCICOMPPRODPENDIDDEPOSITODEPINy5TC vld_tablassys_Verificar_Tablas.prgTa C U XARCHIVOXLUGARXNODB XREINDEXAR XCOMPACTAROCOLLZXRES LOG_VALIDARLIMPIAR_TABLAS_TEMPORALES%CxMaskbCaTC%C]T*TCTC !TCCf C(%k R+C.(C*.*C. Ta g T- +C.(C*.* Ta  T- BU XARCHIVOXPATHXMOVERXMASKOEXXOK XPATHBASEXSTEMP_SYSTEMH7 W T  w T  TCT CTCC GTC P_SERVER "CP_SYSTEMC(R66TC f(%     G%%.C: NO SE PUDO CREAR en  /C: NO SE PUDO QUITAR de   C%?%C   C BCa  %%%C : SE CREO de  &C: SE QUITO de  U XARCHIVOFULLXLUGAR XDEBEEXISTIR XCORREGIRXREVISARXEXISTEXPATHTXT XARCHIVOTXTXPATHP_SERVERP_SYSTEMXARCHIVO LOG_AGREGARREVISAR_EXISTENCIA_DIRECTORIOH; [ T   { T   T CT CTCC 0GTC P_SERVER "CP_SYSTEMC (R66TC f(%     O%%/C: NO SE PUDO QUITAR de  %CC aBCa $C : EXISTE en   K'C: NO EXISTE en   %&C: SE QUITO de  U XARCHIVOFULLXLUGAR XDEBEEXISTIR XCORREGIR XPATH_BACKUPXREVISARXEXISTEXPATHTXT XARCHIVOTXTXPATHP_SERVERP_SYSTEMXARCHIVO LOG_AGREGARBACKUP_MANUAL_ARCHIVOSREVISAR_EXISTENCIA_ARCHIVOS>TC SysV_Tareas sys_verificar2_tareas_logica.prgsys_verificar2 C%C CUOTAREAS TAREAS_CREARSYS_VERIFICAR2TAREAS_EJECUTARMENSAJE LOG_AGREGAR%JC:**********************************************************BC2 Eliminar perib_multiple de la configuracinJC:**********************************************************% JC:**********************************************************AC1 Eliminar perib_x_tabla de la configuracinJC:**********************************************************%JC:**********************************************************FC6 Eliminar perib_x_tabla_version de la configuracinJC:********************************************************** Cformularios.exea Cformularios.dbfa Cformularios.fpta"Creportbuilder.appa"Creportpreview.appa!Creportoutput.appaCLogaaCPRTa%,C\data\CCZ\trfaa"C User_Log.PRG-a"C User_Log.FXP-a"C User_Log.PRG-a"C User_Log.FXP-aU XPATH_BACKUPP_PERIB_MULTIPLE LOG_AGREGARP_PERIB_X_TABLAP_PERIB_X_TABLA_VERSIONREVISAR_EXISTENCIA_ARCHIVOSREVISAR_EXISTENCIA_DIRECTORIOP_DOSP_SYSTEMBUH T)C provinc_ar provincia &Cprovinc provinciaF%  ~H B > C > K4 > HU > Uv > X > W > E > P > Y > L< > F] > M~ > N > Q > R > A >  J# >  DD >  Ze > S >  G >  V > T >FQUXVERSION CHK_OPENEDP_SYSTEM PROVINCIACODIGOAFIP %Cccvent 5Qccvent%Ciibbprov gQiibbprovF G((idF%G-(CZCZ:> C C$C3 $%G-(CZCZ:> C C$C3 $%CiibbprovfFQ%CccventFQBU XID XDEPOSITOCCVENTIIBBPROVIDFAC_VENCAUSABASETOT_VENDES_COMFORFEC_VENf%Cbienes *QbienesFY( \bienes_fast     C' 1 \bienes_fastQ \bienes_fast& & & & & & & & %C bienes_fast[FQBUBIENESP_SERVERCOD_INSDESCRCODALT1DMARCAMODELOIVAPERFAC_LPR1FAC_LPR2DISCONTEST_ACTCOD_PROACTIDUBARRASDESCINSCODINS BIENES_FAST<%Cmovstock .Qmovstock%Cproducci `Qproducci%Cpr_cie Qpr_cieF ~O(K%CCremCCZΡ!F G((prod E+C+  G%?>Hl>CC/>CCCC/=/CCCC/\6 P%Cpr_cieFQ%Cproducci FQ%Cmovstock1FQBU MOVSTOCKPRODUCCIPR_CIEZPRODINDICEREMITONUMEROFORCAUSA%Cesolcom ,Qesolcom%Cdsolcom \QdsolcomF ~F G((sol EF)>CCZ%CdsolcomFQ%CesolcomFQBUESOLCOMDSOLCOMSOLIDSEEKCODATRBULESTADO%Cccvent *Qccvent%Cnumfac XQnumfac%CqyFQ]occventCC\gQCQVcdC$qF+CNd>NF ~EF#>SF # >S%CqFQ%CccventFQ%CnumfacFQBU CCVENTNUMFACQFAC_VENPVFEC_VENMAXIMOCAUSAACTIVOFALLP_DOSCEN%Cccvent *Qccvent%Cnumfac XQnumfac%CqyFQXoccventCC\gQCQC$ qF+CNd>NF ~@F#>SF # >S%CqFQ%CnumfacFQ%CccventFQBU CCVENTNUMFACQREM_VENPVFEC_VENMAXIMOACTIVORALLP_DOSCENs%C bienes_fast'FQbienes2a%C bienes_fasthFQBU BIENES_FASTSINCRONIZAR_TODOBIENES2bienes2a%C bienes_fast >FQ%Cbienes eFQ%Catributo FQ%Cbultos FQBUSINCRONIZAR_TODOBIENES2 BIENES_FASTBIENESATRIBUTOBULTOS;%Cidx02 (Qidx02F>"C 01/01/1993 AF@"C 01/02/1993 !@"C 01/03/1993 6$Ikg@"C 01/04/1993 wNCu?@"C 01/05/1993 {&@"C 01/06/1993 Ư5@"C 01/07/1993 ro @"C 01/07/1995 ۫+ @"C 01/08/1995 %j6f8 @"C 01/09/1995 m 2+9 @"C 01/10/1995 HԊ4 @"C 01/11/1995 m6- @"C 01/12/1995`; @"C 01/01/1996 `[D @"C 01/02/1996 @ @"C 01/03/1996 $D` @"C 01/04/1996  @"C 01/05/1996 q) @"C 01/06/1996 } @"C 01/07/1996 # @"C 01/08/1996 M v @"C 01/09/1996>+N @"C 01/10/1996 t݄ @"C 01/11/1996 y#N @"C 01/12/1996 6]; @"C 01/01/1997  & @"C 01/02/1997 #ϻҘ @"C 01/03/1997 W{ @"C 01/04/1997 "Yy @"C 01/05/1997 p[ @"C 01/06/1997 # @"C 01/07/1997 |Q/q @"C 01/08/1997 < @"C 01/09/1997 (fl @"C 01/10/1997 $h @"C 01/11/1997 ~Tԉ @"C 01/12/1997 fi @"C 01/01/1998 HԊ4 @"C 01/02/1998 92C @"C 01/03/1998 %j6f8 @"C 01/04/1998 ^=; @"C 01/05/1998 \/b3 @"C 01/06/1998 \/b3 @"C 01/07/1998 }\ ' @"C 01/08/1998 0: @"C 01/09/1998 CI<@"C 01/10/1998 l Lk@"C 01/11/1998  "x @"C 01/12/1998 rr@"C 01/01/1999 4TZ@"C 01/02/1999 *a@"C 01/03/1999 wz]q@"C 01/04/1999 @Jd@"C 01/05/1999 |@"C 01/06/1999 8")3@"C 01/07/1999 e,?@"C 01/08/1999 @"C 01/09/1999 :@"C 01/10/1999  ݺ@"C 01/11/1999 >c@"C 01/12/1999 .2T$@"C 01/01/2000 _=@"C 01/02/2000 [-@"C 01/03/2000 {HI@"C 01/04/2000 pR@"C 01/05/2000 z=-@"C 01/06/2000  / @"C 01/07/2000 uf @"C 01/08/2000 r @"C 01/09/2000 3|; @"C 01/10/2000  @"C 01/11/2000 (> @"C 01/12/2000 @I@"C 01/01/2001 Tb 1@"C 01/02/2001  @"C 01/03/2001 t.@"C 01/04/2001 O @"C 01/05/2001 &۸@"C 01/06/2001 zw@"C 01/07/2001 9ao@"C 01/08/2001 ŎH@"C 01/09/2001 v@&%@"C 01/10/2001 WN@"C 01/11/2001 @@"C 01/12/2001 '2@"C 01/01/2002 0 @"C 01/02/2002 XQ "@"C 01/03/2002 T^-O$@"C 01/04/2002 fcbZ(@"C 01/05/2002 c[+@"C 01/06/2002 i>B(J-@"C 01/07/2002 =/@"C 01/08/2002 +!Q0@"C 01/09/2002 Nǭ0@"C 01/10/2002 P_0@"C 01/11/2002 RӉ0@"C 01/12/2002 ?/Zt0@"C 01/01/2003 NO0@"C 01/02/2003 Vj0@"C 01/03/2003 jy0@"C 01/04/2003 Tq,0@"C 01/05/2003 ?e0@"C 01/06/2003 ڒUn 0@"C 01/07/2003 *q 0@"C 01/08/2003  C0@"C 01/09/2003 ;0@"C 01/10/2003 _gK R0@"C 01/11/2003 m2OSp}0@"C 01/12/2003 YE0@"C 01/01/2004 |i@s0@"C 01/02/2004 J 0@"C 01/03/2004 Os1@"C 01/04/2004 U@)1@"C 01/05/2004 e`Yb1@"C 01/06/2004 O:`l1@"C 01/07/2004 B1@"C 01/08/2004 eP82@"C 01/09/2004 KC 2@"C 01/10/2004 i.(2@"C 01/11/2004 mM1@"C 01/12/2004 r~2@"C 01/01/2005 Lm1@"C 01/02/2005 72@"C 01/03/2005 3x2@"C 01/04/2005 mg2@"C 01/05/2005 oRb22@"C 01/06/2005 Pf(2@"C 01/07/2005 )K3@"C 01/08/2005 U}>3@"C 01/09/2005 qˢ3@"C 01/10/2005 /#3@"C 01/11/2005 5p03@"C 01/12/2005 hó4@"C 01/01/2006 "QK4@"C 01/02/2006 2y4@"C 01/03/2006 Tv|4@"C 01/04/2006 ػ?ޫ4@"C 01/05/2006 \=v4@"C 01/06/2006 5@"C 01/07/2006 H81D/5@"C 01/08/2006 +R5@"C 01/09/2006 1"C5@"C 01/10/2006 L/vZ5@"C 01/11/2006 IXӫ_5@"C 01/12/2006 6=((Eu5@"C 01/01/2007 5@"C 01/02/2007 [MB5@"C 01/03/2007 oD5@"C 01/04/2007 p;796@"C 01/05/2007 h<6@"C 01/06/2007 Ob7@"C 01/07/2007 z{!.7@"C 01/08/2007  W7@"C 01/09/2007 )^7@"C 01/10/2007 )TK,8@"C 01/11/2007 rKm8@"C 01/12/2007 .8@"C 01/01/2008 8@"C 01/02/2008 8X9@"C 01/03/2008 FC!I9@"C 01/04/2008  9@"C 01/05/2008 =9@"C 01/06/2008 j;.:@"C 01/07/2008 ^ҽ`:@"C 01/08/2008 C:@"C 01/09/2008 }4A:@"C 01/10/2008 ~U :@"C 01/11/2008 :@"C 01/12/2008 *:@"C 01/01/2009 zn:@"C 01/02/2009 qn:@"C 01/03/2009 WS;@"C 01/04/2009 7'@^Y3;@"C 01/05/2009 jׄT;@"C 01/06/2009 p%;@"C 01/07/2009 ̷;@"C 01/08/2009 מYF<@"C 01/09/2009 Tg<@"C 01/10/2009 C<@"C 01/11/2009 !=@"C 01/12/2009 i/G4&=@"C 01/01/2010 3!=@"C 01/02/2010 '-Z>@"C 01/03/2010 $>@"C 01/04/2010 ߖ+?@"C 01/05/2010 eDF?@"C 01/06/2010 ӡn?@"C 01/07/2010  @@"C 01/08/2010 jG@@"C 01/09/2010 Hn@@"C 01/10/2010 ޔ@@"C 01/11/2010 \@@"C 01/12/2010 KI@@"C 01/01/2011 <[A@"C 01/02/2011 GR=A@"C 01/03/2011 Q:gA@"C 01/04/2011 tT}A@"C 01/05/2011 }A@"C 01/06/2011 dO,A@"C 01/07/2011 h$B@"C 01/08/2011 lyTB@"C 01/09/2011  s 3B@"C 01/10/2011 eB@"C 01/11/2011 A~B@"C 01/12/2011 vu C@"C 01/01/2012 XD^ 8C@"C 01/02/2012 ?]hC@"C 01/03/2012 =4=rC@"C 01/04/2012 VC@"C 01/05/2012 &`6D@"C 01/06/2012 CD@"C 01/07/2012 )= uuD@"C 01/08/2012 ÿcӥD@"C 01/09/2012 WZD@"C 01/10/2012 S|E@"C 01/11/2012 ^2TE@"C 01/12/2012  :E@"C 01/01/2013 @E@"C 01/02/2013 uE@"C 01/03/2013 "*4F@"C 01/04/2013 δXkF@"C 01/05/2013  xF@"C 01/06/2013  9G@"C 01/07/2013 dedDG@"C 01/08/2013 bdˇG@"C 01/09/2013 shG@"C 01/10/2013 C!]H@"C 01/11/2013 =YH@"C 01/12/2013 'o6 H@"C 01/01/2014  `lI@"C 01/02/2014 ŀ6DK@"C 01/03/2014 ViK@"C 01/04/2014 s'ZiL@"C 01/05/2014 k6L@"C 01/06/2014 &{`M@"C 01/07/2014 TM@"C 01/08/2014 \hBN@"C 01/09/2014 c;N@"C 01/10/2014 u={@"C 01/04/2021l gZ|@"C 01/05/2021K}@"C 01/06/2021U9~@"C 01/07/2021؁sF!@"C 01/08/2021UN@"C 01/09/20219EGr@"C 01/10/2021?@"C 01/11/2021,eX@"C 01/12/2021\3@"C 01/01/2022D@@"C 01/02/2022k y˃@"C 01/03/2022gs @"C 01/04/2022Jg@"C 01/05/2022V-@"C 01/06/202248Ȉ@"C 01/07/2022 +@"C 01/08/2022;M y@"C 01/09/2022!u:@"C 01/10/2022 @"C 01/11/2022 ecݐ@"C 01/12/2022 Y@"C 01/01/2023 #~˒@"C 01/02/2023 `vO @"C 01/03/2023 \ A񣔕@"C 01/04/2023 Qd@"C 01/05/2023 S[6@"C 01/06/2023 V-r@"C 01/07/2023 ͪUh@"C 01/08/2023 H.!@"C 01/09/2023  0@"C 01/10/2023 Ƌ@"C 01/11/2023 aTR' @"C 01/12/2023  hb@"C 01/01/2024 d]K@"C 01/02/2024 ٲ@"C 01/03/2024 ]K@"C 01/04/2024 9#:ƶ@"C 01/05/2024 Cl@"C 01/06/2024 xϸ@"C 01/07/2024 _vϹ@"C 01/01/2019@"C 01/02/2019ffffff@"C 01/03/2019@"C 01/04/2019333333 @"C 01/05/2019@"C 01/06/2019@"C 01/07/2019@"C 01/08/2019@"C 01/09/2019@"C 01/10/2019ffffff @"C 01/11/2019333333@"C 01/12/2019@"C 01/01/2020ffffff@"C 01/02/2020@"C 01/03/2020ffffff @"C 01/04/2020@"C 01/05/2020?"C 01/06/2020@"C 01/07/2020@"C 01/08/2020@"C 01/09/2020ffffff@"C 01/10/2020ffffff@"C 01/11/2020 @"C 01/12/2020@"C 01/01/2021@"C 01/02/2021 @"C 01/03/2021333333@"C 01/04/2021ffffff@"C 01/05/2021ffffff @"C 01/06/2021 @"C 01/07/2021@"C 01/08/2021@"C 01/09/2021 @"C 01/10/2021 @"C 01/11/2021@"C 01/12/2021ffffff@"C 01/01/2022333333@"C 01/02/2022@"C 01/03/2022@"C 01/04/2022@"C 01/05/2022ffffff@"C 01/06/2022333333@"C 01/07/2022@"C 01/08/2022@"C 01/09/2022@"C 01/10/2022333333@"C 01/11/2022@"C 01/12/2022ffffff@"C 01/01/2023@"C 01/02/2023ffffff@"C 01/03/2023@"C 01/04/2023 @"C 01/05/2023333333@"C 01/06/2023@"C 01/07/2023333333@"C 01/08/2023(@"C 01/09/2023ffffff)@"C 01/10/2023 @"C 01/11/2023)@"C 01/12/20239@"C 01/01/20244@"C 01/02/2024ffffff*@"C 01/03/2024&@"C 01/04/2024!@"C 01/05/2024@"C 01/06/2024ffffff@"C 01/07/2024@%Cidx02;FQBUIDX02INDICE5INDICE1ALLAUX_INI_IDX02_COEFAUX_INI_IDX02_IPC )TCCC\gCC\g$F"%Cidx02idx02 o > >BUXFXIIDX02FECHAINDICE1 )TCCC\gCC\g$F"%Cidx02idx02 o > >BUXFXIIDX02FECHAINDICE2bienes2aa%C bienes_fast>Q%CbienesaQ%CstockQ%CatributoQ%CbultosQBUSINCRONIZAR_TODOBIENES2 BIENES_FASTBIENESSTOCKATRIBUTOBULTOSCCCCOMPCMOVSTOCKFG((comprobF(G-(C@z 9999,999,999_C!>Cmovstock+ FQFQBU CHK_OPENEDMOVSTOCKCOMPROBCCCOMPOPDEPOSITOFORCcashresuF-%C4 >>>Diario"C]FQBU CHK_OPENEDCASHRESUCODIGODESCRLASTCOLACUMCOLIDU%Ctipocomp 6Q \tipocompCcccompG+( cm_compraF ~>C-FQFQBUP_SYSTEM CHK_OPENED CM_COMPRACCCOMPFCE_TIPOLETRACAUSATIPOCOMP%C ganancias 8Q \gananciasCcom_operCret_provF~ >F-F>F~> zG? FQFQBU P_SYSTEM CHK_OPENEDRET_PROVTIPOCODREGIMEN GANANCIASCODIGOBASECALCIMPORTECccclieCccventCventasF~r!TCCC/d\gFG((ccvfacE >FQFQF QBU CHK_OPENEDCCCLIECAUSAXNRECOMENTARCCVENTCCVFACCOMPROBNREVENTASCtcomprasCmedidasCbienesF ~%C #%Cbienescodins'%Cmedidascodigo>QQQBU CHK_OPENEDTCOMPRASCOD_INSBIENESMEDCODINMEDIDASCtcomprasCmedidasCbienesF ~%C  #%Cbienescodins'%Cmedidascodigo>QQQBU CHK_OPENEDTCOMPRASCOD_INSCM_UNI2BIENES MEDAUXCODINMEDIDASCcomprasCmedidasCbienesF ~%C #%Cbienescodins'%Cmedidascodigo>QQQBU CHK_OPENEDCOMPRASCOD_INSBIENESMEDCODINMEDIDASCcomprasCmedidasCbienesF ~%C  #%Cbienescodins'%Cmedidascodigo>QQQBU CHK_OPENEDCOMPRASCOD_INSCM_UNI2BIENES MEDAUXCODINMEDIDASCcomprasCmedidasCbienesF ~%C  #%Cbienescodins'%Cmedidascodigo>QQQBU CHK_OPENEDCOMPRASCOD_INSCM_UNI2BIENES MEDAUXCODINMEDIDAS/%Cejercon 6FQejercon%Cconcepto^FQF ~ *Q\C \concepto2>DEBITO DE CHEQUE PROPIO2( %CconceptoFQFQUOEXEJERCONCONCEPTOP_SERVERDIRINTIPO2CproducciCpr_cieFGI2& C ZC Z(\tmp\borrar_idxGI G(( borrar_idx<F~FGEC ZG *>  QQBU CHK_OPENEDPR_CIEPRODINDICEP_LOCAL BORRAR_IDXPRODUCCI CAL_APROB CAL_APCAN CAL_PRIOR=Ctccvent>qvH7BQBU CHK_OPENEDTCCVENTANTICIPOALL/Qitm_descF3QBUITM_DESCPCcccompCcomprasCccprovCcashdataCdretprovF ~cdC = TT< 7occcomp   % 93>OPCCCZC>> CC  0C =-C R6(> OPCC  Z (> CPCC ZQF(> OPCC  Z (> CPCC ZQFX>OPCC  ZCOPCC  Z CZC Z ->COPCC Z Q->COPCC Z QB>OPCC ZP Ccd  QBU CHK_OPENEDCCCOMPCAUSAREFXCOD_PROCOD_PROXIDREFCAUARROPFAC_COMFAC_COM2LETRAALLFORPAGOCOMPRASCCPROVCOMPROBIDCUOTAOPRDRETPROVCASHDATANUMEROPROCLIORIGENCconver2CconverF~C~&%Cconverconverz>QQBU CHK_OPENEDCONVER2FECHATRANSFCONVERCbienesCbieauxF ~u&%Cbienescodinsq>QQBU CHK_OPENEDBIEAUXCODIGOFACTIVBIENESALTACclientesCcliotrosF ~{(%Cclientescodcliw>QQBU CHK_OPENEDCLIOTROSCOD_CLIFACTIVCLIENTESALTACclientesCcliotrosF ~y)%Ccliotroscod_cliu>QQBU CHK_OPENEDCLIENTESCOD_CLICLIOTROSREVISADOCbienesCbieauxF ~o#%Cbieauxcodk>QQBU CHK_OPENEDBIENESCOD_INSBIEAUXREVISADOCccventCmotivosFG((codigoFG-(~u>aG-(QQBU CHK_OPENEDMOTIVOSCODIGOCCVENTMOTIVOSOLO_IMPdiariog_vs_conceptocvalidar_relacionesevalidar_unicidadi dupl_stockp dupl_stkxdepJq aux_ejerconqlog_agregarnvls log_agregart eof_ventas}x eof_bienesy validar_vistayerr_proc~validar_tablasvalidar_tablas_ej>init%xnovedad_accessqvld_tabla_buffervld_campo_bufferG vld_campoabrir: log_msg_abrir]procesarsys_validar_db limpiar_db vld_tablaCini_cashcfg_modulosݭini_tcccomp_depositoini_ncierres_comp-ini_textos_cpbtini_ncierres_prod3ini_tcccomp_lugaribini_cccomp_lugaribQini_ccf_est_actini_despacho_monedalini_codbulat_codbulatr2ini_ultcos_codbulatr ini_proaux& ini_atributo ini_bultos& ini_procli crear_barrascrear_mix_adic$ini_proveedo_ivactrl\ini_conver_facturadoini_prod_gen_op15 ini_bienes_tipocosini_bienes_tipostkmin ini_concepto_tipo2?ini_concepto_versionini_concepto_fec_proc ini_hayretA ini_copiapdf%ini_tcccomp_autorizadaini_ven_oper_fec_comiini_menu_empresas:ini_menu_ejerciciosini_idu_ejercicios ini_novedades_ejercicioseini_acuerdos_codigoini_proveedo_citiini_tventas_facturadojini_fletes_tipoini_provinc_jur_conv-ini_conver2_flagini_cccomp_flag#ini_ccclie_aprobpini_bienes_cm_uni2ini_bienes_medauxcodXini_form_copiamini_transfiere_a_dos_remxfacvld_permiso_autoasignar vld_permiso vld_cierre vld_question vld_carpetas!validar_carpetas^ novedadesmodificacion_agregarmodificaciones_vld_idx vld_triggerUnovedades_contablesnovedades_contables2`vld_atributos_aplicacionvld_atributos_aplicacion2E limpiar_baseg validar_idxMvalidar_permisosvalidar_cierresRvalidar_atributos update_geshdvalidar_novedadesinitk  agregar_campoT! verificarn#reservar&validar>) actualizar)ini_ccpag_tot_pag,ini_ccpag_cod_pro .ini_ccpag_importac.ini_bienes_stk_min12ini_stock_stk_min1i3ini_tccvent_ivacat3ini_ccvent_ivacat4ini_tccvent_tipodoc5ini_ccvent_tipodoc}6ini_despacho_item67ini_producci_env@8ini_bultos_medauxcod8ini_bul_gen_medauxcodP; fn_cashresu= fn_cashresu_1?ini_motivos_ventas5Aini_importac_factorteoAini_tventas_entregaCini_cons_iibb_baDini_cons_iibb_cabaTEini_cons_iibb_sfeEini_provinc_abrevIF ini_iibbpereKini_clientes_altaMini_ccformul_mermactrlMNini_formulas_ordenLOini_importac_txtprovQ vld_otrasSini_itmdescc_descrXisdllavailableBZini_chq_cod_cli>[ini_concepto_legal[]ini_conc2_legal^ini_ventas_fcdere`ini_ccvent_nd_provFgini_producci_estfabhini_ccvent_saldorj procesar_elimwkini_medidas_decimalesmini_ccvent_anuladanremove_triggersoini_ret_prov_versionqini_bienes_dmarcauini_compprod_depvlimpiar_temporales_del_serverxbackup_manual_archivosxrevisar_existencia_directorio {revisar_existencia_archivos~ejecutar_tareasvalidar_archivos_directoriosverificar_y_crear_tablas_system:ini_provinc_afipIini_iibbprov_baseini_bienes_actini_pr_cie_remitoini_dsolcom_idseek%ini_numfac_activof|ini_numfac_activorini_bienes_fast_barrasini_bienes_fast_bulini_idx02_coefaux_ini_idx02_coefaux_ini_idx02_ipc-ini_bienes_fast_sincini_cccomp_depositoini_cashresu_x1ini_cccomp_fce_tipoini_ret_prov_codini_ccvent_nre>ini_tcompras_medcodoini_tcompras_medauxcodini_compras_medcodini_compras_medauxcodini_compras_medauxcodYacento_en_concepto_tipo2_50ini_pr_cie_cal_priorini_tccvent_anticipovini_itm_desc_olditemini_cccomp_fac_com2 ini_conver2_fechaAini_bieaux_factivini_cliotros_factivini_cliotros_revisadoini_bieaux_revisado|ini_ccvent_solo_imp= T T T T T T T- T T- T  T  T  T  T  T T- T- T-  UXTABLAXCAMPOXTIPOXLENXDECXLUGAR XACTUALIZARXFN_ACTUALIZARXSOLO_SI_EXISTE XPATHFORZADOXCAMPO_A_ELIMINARXINDICE_A_ELIMINARXORDEN_INICIALIZACIONXMSGXNOVEDAD VLD_AGREGARVLD_ACTUALIZARTABLAv T- T- T- T- T- ] ^ _ ` a bU COLECCION NOVEDADESTABLASEN_USO TABLAS_FULL vld_campocustom vld_camposcustom1#Ar!QA"AaAqq!1qAqQqAa!AQqa!!aAAbaAAR"QaAAqA1AAAAAaqrsAAaBAABBBA!aaRBbCQA"1a!BAAAAAAAAAAAAAAAAAAAAAAAAbABAbAAA"AAARAAbAbAEAbAA#AAAAAAAAAAAAAAAAAAQA"Qa2AAqAAqA1AAAQAQArAAQA1AAQA1ACArAA"ArArARAbAbAAArABAAAAbAADRAB"a aAA aAA"!BAAA #aAq!!BqArAaArRQQQQQQQQQQQQQQQQQQQQQQQQQQQQBArA4aAAAAArQrQrQDrsArArAA1Ar2AArAAA"aAARtAq"ARABBBBBAtAq"AATqAq2q1AABBqAAeArBA AAqAAr2AA11q A2AArZA*ABt!AB!ABsAAAAQAAAAQAAAAQAQAAqAqAAaAAA3A1AaAAAqAqAAA1Aq$AsAsq"11AAAAA"!AQAaArArA4A!aqqAAqbBAABAAqABARQr2qAqAAqAAqqAAqAAAAqA2!Q a!AAAQq11AAAAAAA3qqq!!!!!!qq22qAaAqA"1AqAAa!q"1AAAA1AAB"AAQQqAAA3AqqA3AAqqA21qQqA4q1A3!!!Q!14a1abaBA2aAAAQAAaabRAQaAQaAaA4!qAAq3!qqAAq3qAaAq2A1A21AAA1AqAqAA1A2AAA2Q!AqA!AqA3Q1qREA21!QaRrABAP2&qAArqAA2RrqB!AArqAqQQ1qAAAqA!qQQ1qAAA""!AB1!A23122A"ArAAAaaAAQA11qABQAAqRQQ1aAAaQsAABRQQ1aAAq!AsQ1ACrA!1AA!1Q!A!aAQABAqAAAAAqAA1AAQAAA!A!A2qAABq1QA11q1AAAAG123q!A1A2!!bB1AqAA"Rr2r1AARBr1AAABqAqAqAAB2qA!jqAAAA2ArQA2AQrrArAB2QrB2r2AAB2QrB2ArrB21rrB2QrB2Q1rrrArAB2QrrAB21rrAB21rQQ1ArAB2Qr!AB21r!AB21rAB2AA2AA2QrAB21tAB2QsrRAB21rAB21!rrrArAB2qqAAqAAAqqqAA2qqAAAqqqAA2qqAAqAAAqqqAB2qrQQaaAA1qrQQA21A2A2!qA3A3A3A3QA3Q!3A!313Aq111111111111111111111111AA3A3131ArQqrAqAqA31!21AraqrAqAqA21A4t21AQrtAB  AARAA2qrA21qAAA2qsAA2AqUAB2QA1aAA3q3A"aaS111!1111111111111112q1!!!1!!1"qq13!!ASrRRRqAqT"ATSSp!A!!AB2qrQB2qAArAr qq rAB21qDAAAAQ1!1Q"AAAAAAAAAAAQA"aAAAAA22aAq!AAAaaaAAABAB1qArqAqAA!A2RaaR6AAAQAr1RrrABBAAdA!A!ABr1RrrABBbAaAwABB!1QAaA31rDrqAAAqAAABr!rAABqAA#32Ass!4AA21AA11AAA11AAA32qASrArAQbAAAARQAQB!ArAA!ABqAAB2q3qAqrA3q1AqrA3qrAqA2BAA"aAA3qQ:2qq1Bs2qABAAAA2qAqAaaqAAA2rA3rA2AqAAAAA4!Q!r1qAqA4!Qqq1qAqA2!1QA q!r1rrqaAAAA"1QAAQ41rrqB2!rrqB2AQrrBQB21Qrr2QB2ArBB21r2B3QraA1AARB3Qr1RB31ArarQrrqaAArArAqA3AArarQrrqaAArArAqA3BAAAAAA4B2qqVAA4ArA31QrqrrAsArA3QArArAqArq2ABBrArA4qRArA3qrArA3qrArA3r111111111111111111111111ABrA5tBrAqA3Q1rqABrAqAqA3T1rrrAqA3RreqQAAAqAqAqA3TAQ1rrq1rqArAA!AAqBrArArArA56qAAAAAAQA A A2qAAqAAqAAAqAABAqAB3TQ1r1qAAArAqAqAB3qr"1A4T)qrABtAqAB3qqAAaAqqqAA3qbqAA1AbqqqAA5q21Qrrr1A2 st1bAAArAccAAABBABr1AA1AAArAqAqArB321rvqABsAqAB2QQrrBsArAB211tQrqAArBrArBB3$A"qAAB3BtAAsAB25rqAArqAAB2rq!AAAABAAB2qAAAAAArAbAAqQ{r1BBBrsAABAqAAqAAqAAbqAAB2!A!ArrrqAArqAAB2AAAArAqAAqAAB3qQ21AAAAAA2q111ArqAAABQaAAA4111AbqAAAqAaAA3qQ1A3q!AA2aA"!TB2A#!!!3PA2q11aArAAAAAAAAAAAAAAAAAAAAAAAAABArA4!AAArrQRqAArqAAB2!AtqAAB3AAAA!ArAAr2ABACBrqAAqAAqAAB31A1ArqrBqAAqAAB3!A!A"qAAr1QArqAr#qAArqAArqAAB2!A!A"qAAr1QArqAr"qAArqAArqAAB2qAAbqAAB2dqAAqAAqAAqAAB3qAr"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!"!!"!!!!!"!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!dqAAB2r!QAB2r!QAB2ArAbAArAC21QrrrArAB3QrQArAB3A12rBsArAB2ARQrArrBrABsArAB3211rQr1BsArArAB2RA1r!1qAAAAAB3RA1r1qAAAAAB3BA1r!1qAAAAAB3BA1r1qAAAAAB2BA1r1qAAAAAB2qAqAAq"qAAAAqA3R1ra!aBrBraaBB2BB2RrAB42A1QQrrq"3ABrr$B3B1r"aAAAB221raAAAB2RQrAAAB2RQrAAB221r1AAB32Arr2BbB1@3p`1veA|@$ Сs,+2;0VsBk7sD{(Ii) Dܻ"|YMa1ccfi3OgiF kL rU s +    d   $  2 ,#; FO !Z (Re 3kt 9D} ?[ E I: M[ S] Y{& aE gk t&  R     - = FH hL )P VW \ Ea f %ck p Fu r^z ) ,' /Q C*g F  X ! ^O!% v&L') ~m'(6 ()I *,W ,N.r t.. .K / KeLV 6 LSc J S[ \Yb yb}d dl9`   DH  G o  G   +Y' w ', ۞52 Ƣ<= vNW ~jn ګx  x  ɱD o $ ׸۹   Ż. 8 C սNY o3d, `)K LU _ Qd t ( R!( K8 qD P   2 \$ EN yA u w o U ~.4 [P*' =G  K  ` @5wbi +6"E ?p ?!_b!/$g>b$,)ga)-./9/V6688>6?AAD#D$HLCHIdJM*;M0P`SPQ(QvRRڣФ#C٨!:%Y"Hְq4gFX3j̷ݹt % d+v2,N?_>^ ;#</%9 J hz ٚRG(9%C^%CNUMFACEFQQnumfac%Cmailctas QmailctasF T+aA8 Punto de venta :@z 99.% CN   9 CCentro invlido !!!.! # %   T T  ve_numfac.PRG3T &Nmeros de Comprobantes de Facturacin trsac   trsac numfac ve_numfac(%= T  UT trsac   T sys_doscen (CPunto de venta invlido !!!BU ACTIVEFORM DATASESSIONIDACCESONUMFACMAILCTASXCENGUI_GETP_SUCMENSAJEAAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_G VE_NUMFAC XRESULTADOEND_TRANTTS_IDDC_PUBLICAR_ARR_DOSCEN SYS_DOSCEN9%Cnumfac 1QNumfac%CxNumFacbN_ TF+a 8 Punto de venta :@z 99.% CN    CCentro invlido !!!.!%(B- #%KC>El punto de venta no tienen un controlador fiscal asociado !!!BC)Q IF_CONTROLif_protocolo.prg(TCC IF_PROTOCOLO.PRGC    fis_impresor--UXNUMFACNUMFACGUI_GETP_SUCMENSAJEFIS_IMP!MOSTRAR_ESTADO_CONTROLADOR_FISCALOCTRL IF_PROTOCOLOPRGFIS_DRVIF_ASIGNAR_IMPRESORAFIS_CONFIS_VEL FIS_IMPRESOR%C  1 B"%S S hBINACTIVO!%S S BRemitos TH T Zona Franca TImpresora Fiscal HTLquido Producto 2Hc VTC *$Comprobantes Electrnicos de CrditoComprobantes de Crdito6 &GTC $Electrnicos - Bonos Fiscales Bonos Fiscales6"   QTC !Electrnicos de ExportacinComprobantes de Exportacin6 24TC Comprobantes Electrnicos6 BUXFORZADOXDESCRDESCRACTIVOFACTIVOR ZONAFRANCANUMFACFIS_IMPLIQPRODFACCREDFCEBONOSFISFACTEFACTAFACTB!Mostrar_Estado_Controlador_Fiscal Descr_Numfac:qqAA!AAtAAAA1R2ARBED2q!AArAAAA2qAbA2qqA!AAa!1a1q!AAA1*ISG? |4%EϞIXU /  G+(dey_funcG+( dey_filters5 %Cges} ges T%CvBultosCvBultos Qvbultos%C vAtributos C vAtributos +Q vatributosovbultosǼvtbultos$o vatributosǼ vtatributos%CvtBultosNrvtbultos %C vtAtributosN r vtatributos% TCT CCT .T. -TCClavevBxBul-TCClavevAxAtr% fselect xcod_ins as cod_ins, vb.clave as bul_cod, vb.descr as bul_des, vb.activo as bul_act, va.clave as atr_cod, va.descr as atr_des, va.activo as atr_act from vtbultos vb, vtatributos va where (vb.cod_ins==xcod_ins and va.cod_ins==xcod_ins ) and ((vb.activo=="S" and va.activo=="S" ) or xcomb_ina) and &tfiltro into cursor tmp_combinaciones readwrite % %S insert into tmp_combinaciones (cod_ins, bul_cod, bul_des, bul_act) select xcod_ins, vb.clave , vb.descr, vb.activo from vtbultos vb where vb.cod_ins==xcod_ins and (vb.activo=="S" or xcomb_ina) and &tfiltro %S insert into tmp_combinaciones (cod_ins,atr_cod, atr_des, atr_act) select xcod_ins, va.clave , va.descr, va.activo from vtatributos va where va.cod_ins==xcod_ins and (va.activo=="S" or xcomb_ina) and &tfiltro otmp_combinacionesQccformulQ  S % &' ()  Q!C"C- C+(1o FQFQF*QU2XCOD_INSXBULXATR XCOMB_INA XFORM_NOGET XFORM_INA XINICIADOXTABLAXALIASXSINGLESXAGREGARDEY_FUNC DEY_FILTERSXTABLA2GESXCODINSVBULTOS VATRIBUTOSVTBULTOS VTATRIBUTOSCOD_INSODEYFUNCNEWFILE_LOCAL_TMP PR_GET_BIENESTFILTROFIL_GET_EQS_FILTERBIENESBULTOS ATRIBUTOSTCCFFORMULAACTIVAFOR_ACTDESCRTMP_COMBINACIONESCCFORMULCODIGOBUL_CODBULATR_CODATRTMPTABBBUL_DESBUL_ACTATR_DESATR_ACTXBFALLOCATCH T%CxFormulabN%FG((formula EF B TCTCTCFG((codigoE++C+   % S  L B%   { T%   TH%BC %E /+C+   C U% SM BHE  (+C+  C  % S BHF BF BUXCOD_INSXBULXATRXFORMULAXTMPFORMCCFORMULFORMULACODIGOBULATRACTIVAEST_ACTP_TIPO_FORMULASPR_GET_FORMULAP_FORM_HERENCIAe %C* FQ%CM FQ.*UXPATHXALIAS CF (TFQi1Li1Ci1 Ci1 C!i1 N U XPATHXALIASPR_GEN_DELETE_TABLEFORMULASXBILENOBIEDATA_CODIGO_LARGOGENERICOGEN_CODGEN_BULGEN_ATRGEN_CAN G+(dey_func%CxPathbCITC%CxAliasbCT TMP_GEN_RenCTFZh1 C C C N  N CCCN CCCN NCCCCCCC&   & & & Q BUXPATHXALIASDEY_FUNCODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOPRO_CODPRO_BULPRO_ATRPRO_FORPRO_CANGEN_CODGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANCAN_TIPGEN_ATROGEN_BULOSUS_ATROSUS_BULOID1ID2ID3ID_FULL G+(dey_func%CxPathbCITC%CxAliasbCT TMP_GEN_RenCTFKh1 C C C C< N NCN N CCCN CCCCCCC& CZ+& CZSi&   & Q BU XPATHXALIASDEY_FUNCODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOSUS_CODSUS_BULSUS_ATRSUS_DESSUS_CANCAN_TIPSUS_PREPRO_FORPRO_CANGEN_CODGEN_BULGEN_ATRGEN_CANGEN_BULOGEN_ATROSUS_BULOSUS_ATROID1ID2ID3FORMCOMPPREDETID_FULL#G+(dey_func FG((id_fullF G((codigoF G((codigoF G((codinsCT #TCC6#TCC6F G((codinsG-(G(FG((formulaG-( E+C+  %CT  TTTTTT"C FE%C4 D> !"#$%&'()*+HU,XFORMULAXALIASXID1XID2XID3XCOD_INSXBULXATRDEY_FUNCID_FULLBULTOSCODIGOATRIBUTOBIENESCODINSPR_GET_FORMULACCFORMULBULATRFORMULASFORMULACODCOMPXXID2XXID3XGEN_CODXGEN_BULBULCOMPXGEN_ATRATRCOMPPR_GEN_ANALIZAR_HERENCIAID1ID2ID3PRO_CODPRO_BULPRO_ATRPRO_FORGEN_CODGEN_BULGEN_ATRGEN_CANCANTIDADGEN_BULOGEN_ATRO G+(dey_funcFoQXform_genQ          reemp_apl% ~oQXbienesQ XbienesQ  S QCXQCXQQQQQ reemp_aplF ~TTT(C  F>!!""##      $%&'()*+CSi 6FFQU,XALIAS_GXALIAS_RDEY_FUNCGEFORM_GENFGFORMULAPRO_FORGEN_CODCODCOMPGEN_BULOBULCOMPGEN_ATROATRCOMP REEMP_APLBI2COD_INSCODSUSTBULSUSTATRSUSTCANTSUSTCANTIDADPREDETBIENESBI1GRUPOGENERICOXHER_CODXHER_BULXHER_ATRPR_GEN_ANALIZAR_HERENCIAGEN_BULGEN_ATRID1ID2ID3GEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANSUS_BULOSUS_ATROSUS_PRE%CForm_GEN 5Qform_genFG((predet F#)+C+ %CC F HUXALIASFORM_GENPREDETSUS_CODPR_GEN_ANALIZAR_REEMPLAZOS_UNO FTCZF E%C4 FTT  T  "C  F.>  UXALIAS XFORMCOMPPRO_FORGEN_CODGEN_BULOGEN_ATROFORM_GENXHER_CODCODSUSTXHER_BULBULSUSTXHER_ATRATRSUSTPR_GEN_ANALIZAR_HERENCIAGEN_BULGEN_ATRSUS_CODSUS_BULSUS_ATRSUS_CANCANTIDAD{' Ta% \TC %  twT      N    ) S    wT      N    ) S      BUXCOD_INSXBULXATRXACTUAL NOCHK_BUL NOCHK_ATR XFORZAR_BUL XFORZAR_ATRXOKPR_COMB_BUSCARBIENESBULTOSCOD_INSCLAVE ATRIBUTOSATRIBUTO:%C,BSB-UXCOD_INS PR_GET_BIENESBIENESGENERICO+  T a% T C % ~B-% S%C B-%C &%    B- 5%C 1B-% S%C oB-%C &%   B- % C B-BaUXCOD_INSXBULXATRXACTUAL NOCHK_BUL NOCHK_ATR XFORZAR_BUL XFORZAR_ATR XCHK_EMPTYBUL XCHK_EMPTYATRXOKPR_COMB_BUSCARBIENESBULTOSCOD_INSCLAVE ATRIBUTOSATRIBUTO F"TcodaltCC Z%CgBCbienes xBaUXCODIGOXCODALTNXCODALTCBIENESYF%AG((barras EBC4 RBaUXCODIGOBIENESBARRASVF%> G((dun EBC4 OBaUXCODIGOBIENESDUNR%:BCBienesCodins KBaUXCODIGOBIENESCOD_INS#(%C%CcBa *TCartxcliIDBa B-U XCOD_INSXBULXATRXCOD_CLIXNOCHECK XVALIDACOMBXVALIDAXARTXCLI_VALIDAPR_COMB_BUSCAR Ta% n%C j T- B %C T- BT % S F G((codigo E%C4   Ta% S FG((codigo E%C4   Ta%BT  SC   SC   BUXCOD_INSXBULXATRXNOCHECK XVALIDACOMBXVALIDAXCODALT XTMPERROR PR_GET_BIENESPR_GET_BIENESALTBIENESCOD_INSBULTOSCODIGO ATRIBUTOSATRIBUTOl+ "C TC % S (%   TC % S (% TC AT CC  6CC  6 B UXCOD_INSXATRXBULXNOCHECK XVALIDACOMBXVALIDA XBIEDESCR XATRDESCR XBULDESCRXFULLPR_COMB_BUSCARBIENESDESCRBULTOSCOD_INSCLAVE ATRIBUTOSATRIBUTO5 T-% WC.%C S  T Ta.%C S  T Ta BUXPAD_CODXPAD_BULXPAD_ATRXHER_CODXHER_BULXHER_ATRXACTUALXOKANPR_COMB_BUSCARBIENESBULTOSCLAVE ATRIBUTOSATRIBUTO%xTPlan_GenTPlanTCombinaTGen_Cod TProd_GenTOPTCombinaTGen_CodUXDESTINOXALIAS_DESTINO XID1_CAMPO XID2_CAMPO XID3_CAMPO  T T T TC F delete for &xid1_campo = xid UXDESTINOXIDXALIAS_DESTINO XID1_CAMPO XID2_CAMPO XID3_CAMPOPR_GEN_GETDESTINO  T T T TC F ~ F ^J F*replace &xid1_campo with xobj.id1 , &xid2_campo with xobj.id2 , gen_cod with xobj.gen_cod , gen_bul with xobj.gen_bul , gen_atr with xobj.gen_atr , gen_can with xobj.gen_can , sus_cod with xobj.sus_cod , sus_bul with xobj.sus_bul , sus_atr with xobj.sus_atr , sus_can with xobj.sus_can UXDESTINOXALIASXALIAS_DESTINO XID1_CAMPO XID2_CAMPO XID3_CAMPOPR_GEN_GETDESTINOXOBJ  %KB- T T T TC FG((id_full F#) T CN+C+ %CO  T   F%LTC = kT F E%C4  FH. ^J F%C D> FH'%C++ ^J F TCO ^J _JD> # FHUXORIGENXALIAS JUSTEMPTY XALIAS_ORIGEN XID1_CAMPO XID2_CAMPO XID3_CAMPOXIDFXRNXLIMPR_GEN_GETDESTINOID_FULLXBILENOBIEDATA_CODIGO_LARGOID1ID2ID3XOBJSUS_CODSUS_BULSUS_ATRSUS_CANCAN_TIPXOBJ2+ G+(dey_funcC TCN %C  T %C  T  %CxBulbLT %CxAtrbLT  %C4 FQ%CW FQ%C C.CCZ  CCC FG((id_fullFG((formula E+C+   F ^JF ^JTTTT %T! #T!CZ F E!%C4&+"#$!C+ ~%%"#$!C% TT&aTTTT 'T%T(T)H P */T'+ 2PT'+' F _J FH  F _JFHFG-(C , FG((#)U-XFORMULAXPATH_FXALIAS_FXPATH_GXALIAS_GXORIGENXID1XID2XBULXATRDEY_FUNCPR_GET_FORMULA CHK_VALUECCFORMULBULATRPR_GEN_CREATE_TABLEPR_GEN_FILL_GENCODIGO PR_GEN_ANALIZAR_REEMPLAZOS_TODOSPR_GEN_OBTENERPR_GEN_CREATE_TABLE_FORMULASID_FULLFORMULASFORMULAXOBJGEN_CODCODCOMPGEN_BULBULCOMPGEN_ATRATRCOMPGEN_CANXIDFID1ID2ID3SUS_CODGENERICOCANTIDADSUS_ATRSUS_BULCAN_TIPSUS_CANPR_FOR_APLICAR_HERENCIAS    G+(dey_funcC TCN T T T TCC   %Cprod_gen Qprod_gen FG((id_fullC%Cprod_for nQprod_forTCFEopmod%C4.oprod_for 1 F #)BFEoporig%C4u.oprod_for 1 F #)BFG((formulaH G-( G-(CZFG((formula E+C+   F ^JF ^JT T!"T#$T%& FHR !T'C++T( RT'C+T(CZ%'(C) T*aT)T$+T",T&- %.T/(0 F _JF ^J FHHL !T'C++T( T'C+T(CZ%'(C)  FT*aT)T$+T",T&- %.~T/(0 F _J  F _JFHFG-(C 1 FG((#)U2XFORMULAXIDXPATH_FXALIAS_FXORIGEN XALIAS_ORIGEN XID1_CAMPO XID2_CAMPO XID3_CAMPOXCOD_INSXBULXATRDEY_FUNCPR_GET_FORMULA CHK_VALUEPR_GEN_GETDESTINOPR_FOR_GET_PRODPROD_GENID_FULLPR_GEN_CREATE_TABLE_FORMULASPROD_FORXTMPAPPEODEYFUNCNEWFILE_LOCAL_TMPOPMODOPFOR_TIPOOPORIGFORMULASFORMULACODCOMPXOBJGEN_CODGEN_BULBULCOMPGEN_ATRATRCOMPGEN_CANCANTIDADXMOXMDSUS_CODGENERICOSUS_ATRSUS_BULSUS_CANCAN_TIPUNIDCOMPOEXPR_FOR_APLICAR_HERENCIAS5 FG((#) ~ FC% Sx. F T T 'TCa F%>  U XALIAS_FXBULXATRXHER_BULXHER_ATRXOKPR_COMB_BUSCARCODCOMPBIENESGENERICOBULCOMPATRCOMPPR_GEN_ANALIZAR_HERENCIA%CxOrigenbLA T%%CProducci QproducciG((prod E%Cproducci4TTT BCproducci4%%CPlan_mad MQplan_madF G((iduECR%C4T T T BC4U XPROD_NUMXCOD_INSXBULXATRXORIGENPRODUCCIPRODCODIGOBULATRPLAN_MADIDUCOD_INSYF%AG((codigo EBC4 RBaUXCODIGOMAQUINASCODIGO{  TC FG((codigo ETC4%C k F BUXCODIGOXALIASXALSCODIGOXRET G+(dey_func%CxPathbCITC%CxAliasbCT TMP_GEN_RenCF(-Q BUXPATHXALIASDEY_FUNCODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEMAQUINAS 'oform_maqtmpxmaq ~HQ &romaquinas  &romaquinas  %CTMPXMAQNromaquinasU XFORMULAXALIAS XEXPANDIRFORM_MAQFORMULATMPXMAQTIPOMAQUINASGRUPOGRP_CODCODIGOMAQ_CODG+( pr_funcionesC T %aME form_pre%Cform_maq4 T IHE F - %C4  T T  ET  TE codigo%(%CT TMPXMAQSELCC%CN  F T $ TF (%CMaquinasN p#)T  Ecodigo%Cmaquinas4  T% !%C xTMPMaquinabN T5% G # )T  xE codigo T]pr_planificar_nuva_sel_maq(1Seleccione la mquina destino de la planificacin T BUXFORMULAXRETXNO_FORM XNO_PREDET XALIAS_SEL XTMPMAQUINA PR_FUNCIONESPR_GET_FORMULAFORM_PREFORM_MAQTIPOMAQUINASGRUPOGRP_CODCODIGOMAQ_CODCCFORMULMAQUINAPR_MAQSEL_CREATE_TABLEPR_MAQSEL_SEPARAR_POSIBLESXDMAQPR_PLANIFICAR_NUVA_SEL_MAQXRES O     TC  TCW%CTBorrarselect &xalias2 TC0  F G((itm E %C4 T Twrlotesxit !   "# T"a T#a%CxFiltrobC T .t. %C xFiltroDEPbC?T .T. p%ClT .T. %C  T %C  T $2T$C %&C &%C 4 T#-%  F '( K(')T(C'D%( T*C(set order to usr &p_ve_selautlot_ord %+ G((fecha<~C+ a--. 6C C CC /Sa6 0 'C1  C$a6 K&%(-) -) T2-)>))2T((2 G*%-)+  9>))( T(! C F G((* F%1  3"T3 venc-date()<=CCZset filter to &xfiltro_tmp G( F#)4 T4a"%#  $ q5 T5)645a 4%# $ 4   Gpr_cie_lotes_asignar("  C8 C 9!%" $ M&C $ :%$ )CNo hay despacho disponibles.; Fselect &xalias2 %C  G((select &xalias2 =>Hsum can+desvio to xverif_can for str(indice)=str(xitem) and &xfiltro "% >> C#Error al asignar las cantidades !!!C C  Artculo: CCCC /C6CCC /C6?U@XALIAS XACUMPLIRXCODIGOXBULXATRXFILTRO XLOTEMANUALXALIAS2 XFILTRODEPXITEMXDESVIO XDEPMANUALXLIMPIEZAINICIAL XAUTOELEGIRXCHECK_LOTES_NO_DISPONIBLESXCPBTREFERENCIA XDEP_COMPROMXES_NC XDIAS_VENC XAREAACTUAL XORDENACTUALININDICECODATRBULITM XLOTXART_VENC XLOTXART_ADVDESPACHOCANDEPOSITOVENCADVXRESXFORM XDESPCOUNTPR_GET_DESP_DISPPR_OBTENER_CANTIDAD_X_DESP_LEER XASIGNADAXSALDO_A_ASIGNARASIGNADA XORDER_ANT P_VE_NC_LOTESFECHA DISPONIBLESTOCKDEPCOMBLOQP_VE_LOTES_DIASXCANTIDAD_ASIGNADA XFILTRO_TMPXOKXMSGLOT_VALIDAR_ASIGNACIONESPR_CIE_LOTES_ASIGNAR SYS_CONTSTKAPLICAR_DESVIOS"PR_OBTENER_CANTIDAD_X_DESP_APLICARMENSAJEFORDESVIO XVERIF_CANSYS_M  select &xalias #6 %-+C  %v H. TTCFTT > > H  T TT+C  %c H.T CFT T>  > HU XALIASXDESVIOXDESVXASIGASIGNADADESVIO XDESVIO_TOTAL XDESVIO_ACC XSALDO_DESVIOXDESVIO_REGISTRO~select cod,bul,atr,despacho, deposito,sum(can+desvio) as asignada from &xalias2 group by despacho, deposito where cod+bul+atr+str(indice)=xcod+xbul+xatr+str(xitem) and not empty(despacho) and can>0 and &xfiltro into cursor tmpleerdesp ~UF^Jselect &xalias M-       C    %C4> Qselect &xalias2 M-       C    %C4) > MC No encontradoFQselect &xalias #)UXALIASXCODXBULXATRXFILTROXALIAS2XITEM TMPLEERDESPOOBJCODBULATRDESPACHODEPOSITOASIGNADASYS_M(% select &xalias2 locate for cod+bul+atr+despacho+deposito+str(indice)=oobj.cod+oobj.bul+oobj.atr +oobj.despacho+oobj.deposito+str(xitem) and &xfiltro %C4 ulocate for cod+bul+atr+despacho+str(indice)=oobj.cod+oobj.bul+oobj.atr +oobj.despacho+str(xitem) and empty(deposito) and &xfiltro %C4 Ylocate for cod+bul+atr+str(indice)=oobj.cod+oobj.bul+oobj.atr+str(xitem) and &xfiltro %C4 (8C+No se pudo seleccionar un lote/despacho !!!  ^JT  T  T TT  T TT%Cbieaux Qbieaux%8CbieauxcodT _J%C faltantesbN%C >  >  > >> %C faltantesbNr%C S>  n> >  select &xalias2 %C faltantesbNreplace can with 0, total with 0, desvio with 0, despacho with "", deposito with "", faltantes with 0 for cod+bul+atr+despacho+deposito+str(indice)=oobj.cod+oobj.bul+oobj.atr +oobj.despacho+oobj.deposito+str(xitem) and &xfiltro replace can with 0, total with 0, desvio with 0, despacho with "", deposito with "" for cod+bul+atr+despacho+deposito+str(indice)=oobj.cod+oobj.bul+oobj.atr +oobj.despacho+oobj.deposito+str(xitem) and &xfiltro UOOBJXFILTROXALIAS2XITEM XDESPCOUNTOOBJ2ASIGNADADESVIO MENSAJE_SDESPACHODEPOSITOCANTOTALORIGINALAREASIGVENCBIEAUXCODIGOCODADV LOTVTOADV FALTANTES:    select &xalias ( % g wselect &xalias2 %C faltantesbNmreplace can with 0, total with 0, desvio with 0, faltantes with 0 for str(indice)=str(xitem) and &xfiltro u[replace can with 0, total with 0, desvio with 0 for str(indice)=str(xitem) and &xfiltro select &xalias ~select &xalias ^JC~1select &xalias ^JCselect &xalias2 2locate for str(indice)=str(xitem) and &xfiltro %C4s ^JZdelete for empty(despacho) and empty(deposito) and str(indice)=str(xitem) and &xfiltro Udelete for (can+desvio)=0 and faltantes=0 and str(indice)=str(xitem) and &xfiltro 2locate for str(indice)=str(xitem) and &xfiltro %C4 oTTTTTTT _J%C faltantesbNk%C L> g> T select &xalias K(  K( #) ^JTCC>XTCC>XT T CUXALIAS XA_CUMPLIRXFILTROXALIAS2XITEM XDESPCOUNTXDESVIOOOBJOOBJ2XRN1XRN2XCANASXTMPDESVXMAX_LOTES_SELASIGNADADESVIO&PR_OBTENER_CANTIDAD_X_DESP_APLICAR_UNODESPACHODEPOSITOCANTOTALVENCADV FALTANTESE' %CUselect &xalias Q C T .t.%Ctselect xcodigo as cod , xbul as bul , xatr as atr , dsp.despacho as despacho , dsp.fecha as fecha , stk.cantidad-stk.cant_com as disponible , 000000000.0000 as asignada , 000000000.0000 as desvio , 000000000.0000 as asigprev , stk.deposito as deposito , stk.cantidad as stock , dep.com as depcom , dsp.venc as venc , dsp.bloq as bloq from despacho dsp left outer join stkxdep stk on stk.codigo+stk.bul+stk.atr=dsp.cod_ins+dsp.bul+dsp.atr and dsp.despacho=stk.despacho left outer join deposito dep on dep.deposito=stk.deposito where dsp.cod_ins+dsp.bul+dsp.atr = xcodigo+xbul+xatr and &xfiltro_disp and !empty(stk.deposito) and !empty(stk.despacho) and &xfiltrodep into cursor (xalias) readwrite %C tmpdespachosF QeoventasCC  r6Q tmpdespachosF  >\omovstockQ tmpdespachosQ'QQQQQCCQQQQC 6Q!CCQ"-Q#Q$-Q%()' ( T  % C &C*select &xalias Ca & & (index on &p_ve_selautlot_key tag usr B U+XALIASXCODIGOXBULXATR XFILTRODEPXALIAS2XITEMXCPBTREFERENCIAXES_NC XDESPCOUNT SYS_OPTIMIZA XFILTRO_DISP TMPDESPACHOSDISTINCTREM_VENFAC_VENCAUSA COMPROBANTEVENTASNOSTKCODBULATRMSDESPACHOFECHACANTIDAD DISPONIBLEASIGNADADESVIOASIGPREV P_FACDEPPRIXDEPOSDEPOSITOSTOCKDEPCOMVENCBLOQMOVSTOCKTMCODIGONUMEROPR_GET_DESP_OTROS_RESTAR select &xalias2 #) TCG((select &xalias2 ?~  C ZCZ C gselect &xalias 5-   C .despacho%C4P->C.canC.desvio(>C.canC.desvioselect &xalias2 select &xalias2 set order to &xordl UXALIASXCODIGOXBULXATR XFILTRODEPXALIAS2XITEMXORDLXTIPCODBULATRINDICEDESPACHO DISPONIBLEASIGPREVd %CxPathbC7TC%CxAliasbClTlotesxitCFhh1CC  C  C N N N NCN N N N N NN N DNQ& & CZ & $& CZ   UXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLECODOBIEDATA_CODIGO_LARGOBULOBULATROATRDESPACHOCANTOTALASIGNADAITMDEPOSITOORIGINALAREASIGSTOCKDESVIOASIGPREVTIPINDICE FALTANTESVENCADV ITMUNIQUECODIGO TCO%C xAsignadabLW K(%C V% `~  \UT El despacho C 2 tiene asignado ms que el stock fsico actual !!!% C  :select &xalias # D T- B*~  R[T El despacho C 8 est asignado en otro item bloqueando el disponible !!!% C  0select &xalias # : T- B%  Ta B% 3T&Se ha asignado ms de lo necesario !!!% C  T- B% % |%C(Se ha asignado menos de lo necesario !!!C C -Est seguro de dejar el resto en automtico?  T- B Ta BUXOKXMSGXSILENTXALIAS XA_CUMPLIR XASIGNADAXINGRESOXRNASIGNADA SYS_CONTSTKCODSTOCKDESPACHOMENSAJE DISPONIBLEASIGPREV MENSAJE_SINO UXALIASXDEPOS G+(dey_func%CxPathbCITC%CxAliasbCT TMP_PlanillaCTFh1 C  C  C  D CCCCNNNNNNCCNNNNNNN C!N"N#N$C %NQ BU&XPATHXALIASDEY_FUNCODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEXBILENOBIEDATA_CODIGO_LARGOPLAN_IDUCOMB_IDUOPER_IDUFECHAHOR_INIHOR_FINOPE_OPEOPE_ENCCAN_TOTCAN_PROCAN_PENCON_INICON_FINCAN_XBULETIQATR_COLCAN_BULCAN_SUECAN_ORDCAN_BUECAN_MALCAN_DIFPAR_MINPAR_CODUNI_BTUNI_TDSETUPHOR_TRAUNI_PROf %CxPathbC7TC%CxAliasbCoT tmp_ResprodCFh1CC  C  C< N N N N NC QUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLECOD_INSOBIEDATA_CODIGO_LARGOBULOBULATROATRDESCRCANTIDADSURTIDOSTOCKSTK_ACTCANTXBULMAD_IDU? %CxPathbC7TC%CxAliasbCpT tmp_resfinalCFh1NC C  C  C<N N NCQUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEIDCOD_INSOBIEDATA_CODIGO_LARGOBULOBULATROATRDESCRCANTIDADFORMULATIPO TIPO_DESC: %CxPathbC7TC%CxAliasbCsTtmp_resconsumosCFh1NC C  C  C<N NNQUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEIDCOD_INSOBIEDATA_CODIGO_LARGOBULOBULATROATRDESCRCANTIDADCANTXBULGRUPO %CxPathbC7TC%CxAliasbCpT tmp_form_resCFoform_res-1QUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEFORM_RES/ %CxPathbC7TC%CxAliasbCoT tmp_busplanCFh1DC C  C  C<N NCQUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPR_GEN_DELETE_TABLEFECHACOD_INSOBIEDATA_CODIGO_LARGOBULOBULATROATRDESCRCANTIDADESTADOESTADO_D 4BUXITMINLOTESXITITM+ TCW%Cdespacho \Qdespacho%Cbieaux QbieauxCbieauxcod-CdespachodespachoT 5TCCbieaux.lotvtoadvbN  6 FBU XCODIGOXATRXBUL XDESPACHOXVENCXADVXAREADESPACHOBIEAUXVENC LOTVTOADVpr_comb_fill_comb0pr_get_formula pr_gen_delete_table0pr_gen_create_table_formulaspr_gen_create_tablepr_gen_create_table_reemplazospr_gen_fill_genpr_gen_fill_reemplazos pr_gen_analizar_reemplazos_todos"pr_gen_analizar_reemplazos_uno#pr_comb_es_validan%pr_bie_generico'pr_comb_es_valida2'pr_get_bienesalt*pr_get_bienes_eanX+pr_get_bienes_dun+ pr_get_bienesF,pr_comb_artxcli_buscar,pr_comb_buscar- pr_comb_descrt0pr_gen_analizar_herencia2pr_gen_getdestino4pr_gen_limpiar85 pr_gen_grabar36pr_gen_obtenerq8pr_gen_formula_reemplazadaO<pr_gen_formula_usada"Cpr_for_aplicar_herenciasRLpr_for_get_prodMpr_get_maquinaPpr_maqsel_es_posiblePpr_maqsel_create_table5Qpr_maqsel_separar_posiblesbRpr_selecciona_maquinaSpr_obtener_cantidad_x_despXaplicar_desviosdpr_obtener_cantidad_x_desp_leer&g&pr_obtener_cantidad_x_desp_aplicar_uno&j"pr_obtener_cantidad_x_desp_aplicar}qpr_get_desp_dispwpr_get_desp_otros_restarcrear_tmp_loteslot_validar_asignacioneslot_filtrar_depositospr_maq_create_table_planillaljcrear_tmp_resprodcrear_tmp_resfinal"crear_tmp_resconsumoscrear_tmp_form_rescrear_tmp_busplanliberar_lote_itmߖvencimiento_lote 2!QrRA11AaaAAAAA"h% AE AA BqaB"AqAqAqA21qaqqA!!!qAAAAA1AAAAAArAAAAArBq2AAAA2!qr!A3!AA!r`aaaa2!AA!rPaa31!rrr11raasA"QAA3!" AqQrBqA4qAAqQ1QAA3qr"A4qAstA2qAAq2qqAArqA!aqAAqAAqqA!aqAAqAAq2qq!QqqA3qq1qA3qq1qA3qaqA31qqAqA3qQARAAqaAAqaAA!A2!!!AA!AA2qaAAA3q1QAAQAAA3131QB4q1rAQ1Qr1QAAAAEAqQEAAAAA3!RAQAAAAAAA"!!A"sr21122AaQ11111qAAQAAQAqAAqabaQ3q#AA"AAqq!QAAq1QAAr1a1Atr11111A2A1ABQrA1A2A1ABQAQAqABqabaQ2aQaqAAqqAB3qA1AAA1A2AAqAA2qq1qA2q!A2!AA!qa3qaaaaAAA2aaqAaAAAqA!QAAqQ1AAAqAA4A1A12vAA!!AAAAv!d$Aa4Aj c!ABAAq!aAQAAt"qFDrA$bAA2!A5"t"B4!Q1AA!A1AA"AA3q!1AABrA!Q2qq2QA11111!AA1R!aAABq!aAAA2rR AA3#14A#!A!A4!W"aQ!aAABCC!QqqQA3qv#BB/0qAAYsQPBcA!42Qa1!QA1A1q3AQA!@"A4AAQA!AAAA!AALA21AA2AAA23!AA!r3AA!L !2AA! !2AA!J !3AA!!2AA!!3q!A2xAA!AQA1E3ww|Dv+9 ` &0&v-y-#/Y/S1~14*34404a8W8`9$a9:0kD::<u:v;H|;=Q%={@_@CCsC,EUEFFGHJJQ*Q[/\hitk:kCnT:gnnvD'ooPplq^qQsl|syyŖDŚ\<4ܩ_Ns uX ZkCBwkZq+RZ0%qTVoxFY('%Cxpre_inicializadabNC T T CTCN T T T T  T  T  T - T  T  T  T TTCX TTCX TTCXTCXTCX T T TTCX T T T TTCX T T!CXT"CXT#CXT$CXT%CXT&CX T' T(T) T* T+T,C]%-"%C tmp_arts_prodQ.h1/\tmp\,0C1C2C3CP4CP5C6C7N8N9N:C ;N<C =C >N Q/\tmp\,.& 0210& 33H7 G(9?@ TAC$HwC TBC0TDC1TEC2TFCG  T a 2CTBHITD TE TJTFCG TK TL TMTNC]TOPITQ TRTSCX TT- TU- TV TW TX TY TZ- T[- T\ T]^_ pr_ordenes%a%Cclientes Qclientes%Ctccvent Qtccvent%Ctventas Qtventas   T[- TKT\ T]^(%CxFuerza_AutoCierrebLy TZ-%CxvencbDTQG~(clases Tf C Cg Th+a' Ti+a' TjH8' i^(%Ctmp_codigos_producibles~FkQ% TNC]TlCmTn TMP_Form_Ree%Cn FnQToCmTp TMP_GEN_Ree%Cp4 FpQTqCmTr TMP_Ree_List%Cr~ FrQ CCopsCqrt%' pr_env_numero_semiop(h C%Cv  .% T wxTw0Tyw0w1w2occformulformulasbienes{|~}~|0{  { 1/\tmp\tmp_codigos_producibles/Q/\tmp\tmp_codigos_producibleskFk%= & Cg0 U & 0& 4& &TBC  kCHX6/TECINDCw0\CX6TJwTOwTw # T TBHITE TJTQ>obienes{-1/\tmp\tmp_codigos_producibles/Q/\tmp\tmp_codigos_producibleskFkFk% & Cg0  & 0& 4&  9Gobienes{{ 1/\tmp\tmp_codigos_producibles/Q/\tmp\tmp_codigos_producibleskFk% & Cg0  & 0& 4&  T T T  Th%Chi Z! i C>% !Ctmp_codigos_produciblesN TBk%z% v%PLA'!pr_ap_fec_art_bul_atr(h rCapertura, pr_ap_fec_art_bul_atr_env_simple(h  ThCB%Chi ! CCBDE C,TVC{444{{H+R RTOCCATQA{% TBkTOwTQw i C%ICB%#TKCBDE : TK T[- dCKF|%C| TF|%%K`BDE012 ;B0D1C1  E2C2     C &%{S {S FG((codigoEBDECX T; T{;%{SFG((codigo EBDTT 2T{T{% 1</oproducciwtmp_prodotmp_prodmovstockC>cQ>CCZ/CZPCZ/CZP021y % [< TF}-~K}w0 %%wx3TJCwCwx T}> |> }%|>('TJwC|>}> y:C-Cantidad de semielaborado en frmula en 0 !!! TJ %|>'TJwC|>}> :C-Cantidad de semielaborado en frmula en 0 !!! TJT wx `%T C| |6%%  pr_ap_form_cant_desc(h  % LCCV9: No tiene frmulas activas o estn todas deshabilitadas.%n% S Th j Th  B &%{S {S FG((codigoEBDECX T;  T{;%{SkFG((codigo EBDTT T{T{%T C| |6%aTJdd%Chi ! i C%[K @ TKCopsCqrt.CKpCKZCXBDE%CpNCprUCrSus_DesSus_CodSus_BulSus_Atr NO_CAMBIAR NO_CAMBIARCp T[-%C TMPPRODFOR1kFQ % CpN =!pr_genericos_reemplazo_wizard.scx(hopqr C%C+CKlnopDE;onQQ~K tmpprodfor1& ~~%Chi ! i/ C!%\K CpN  , T\K<onQQ~K tmp_formulas& ~~G((%F%]j C#)$pr_formula_editar_wizard(h CF%] C>~KC> #)  %Chi +! ir C/%CMaquinasN  9'KXaa TMPXMAQSEL*%XC TMPXMAQSELN 5FG(C0 TMPXMAQSEL#))pr_seleccionar_maquina_wizard(h G(FQ C C%Chi n! i C%PLATC] %-t"%C tmp_arts_prodN/8listados tmp_arts_prodaBBF.#)Ctalles y colores pr_bul_y_atr(h  Th C%Chi ! i' C%TS|%|CX% Ta  T-FG((deposito ES%C4 % CC6Depsito de baja automtica invlido en la frmula !!! TiCi !  B%Z!% ?!pr_ap_deposito(h V! Th "%CF !jC=El depsito de ingreso de la mercadera producida est vacio.C No se puede continuar. Th Th C%CSCF "% "^C1Uno de los depsitos (ingreso/egreso) est vacio.C No se puede continuar. Th " Th%h'%TC|NNS61TCS |S SN6JTC|SCMZ/CZCM@z 9999,999,999_6Tp CTC CH#% %% $ pr_ordenesM%N$+C6 C% $-- CCK%C tmp_formulas$FQ%C TMPPRODFOR1%FQ Th%%% %TC*Se ha registrado la Orden de Produccin : CCM@z 999,999,999,999_%Chi %! % Th % Th C%i' TM% V&&CTransaccin cancelada !!! T\%Cn& FnQTp TMP_GEN_Ree%Cp& FpQTr TMP_Ree_List%Cr& FrQ(%Ctmp_codigos_producibles4'FkQ Th%Ce' B '%C' BM%Chi '!%hh '!%CXXXX(FQ(%Ctmp_codigos_produciblesI(FkQ%C tmp_arts_prods(Q. TMBCM6UXTIPO_APERTURAXENVASADO_SIMPLEXPRE_INICIALIZADA XENVASADOPR_ORDENES_SET_PROCS CHK_VALUEXFORMULA_EN_GENERICOSXSEMIXSEMIOPXPEXPEDIDOXPEDITMXAUTXMAQXANCHOXESPESORXFUELLEXTRATADOXCOLORXKILOS XMATERIAL1 XMATERIAL2 XMATERIAL3 XPOR_MAT1 XPOR_MAT2 XPOR_MAT3XMASTER XPOR_MAST XPOR_DESL XPOR_ANTIXMEMO1XTRABAJO XCILINDROXCOLOR1XCOLOR2XCOLOR3XCOLOR4XCOLOR5XCOLOR6XMEMO2XLARGO XTIPO_CONFEXMEMO3XPLA_KILOSMETROSXTMP_ARTS_PRODP_PR_UG TMP_ARTS_PRODP_LOCALCODIGOBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUXCANTIDAD ACTIVEFORM DATASESSIONIDXFECHAXCODIGO FALTANTESXBULXATRXDEPING P_PR_DEPINGOBIEDATA_CODIGO_VACIO XCANTIDADXFORMULA XCANTIDADAXNUMPRODXIDXLOTEOLOTXVENCXDESCR XDEPOSITOXBUL_LXATR_LXDESCARTXCODINS XOPA_MAQUINAXOPA_MAQUINA_FILTROXFUERZA_AUTOCIERREXBUSCAR_GENERICOXFORMULA_EN_EDICIONXFORM_CANT_PRO P_FORM_CANT OPEN_FILES PR_ORDENESP_PR_POR_PEDIDOCLIENTESTCCVENTTVENTASCLASESXPEDIDOSINICIALIZAR_TEMPORAL_PEDIDOSXRESXFORMXMAXFORMTMP_CODIGOS_PRODUCIBLES XFORM_PATHNEWFILE_LOCAL_TMP XFORM_ALIAS XGEN_PATH XGEN_ALIAS XREE_PATH XREE_ALIASPR_GEN_CREATE_TABLEPR_GEN_CREATE_TABLE_REEMPLAZOSPR_ENV_NUMERO_SEMIOP VLD_SEMIOPPRODUCCIPECIE XSEMIFULLDISTINCTBIENESCCFORMULFORMULASFORMULACOD_INSCODCOMPEST_ACTP_NUMINSDESCINSCODINSDATA_CODIGO_LARGOP_EMPREALLOTEVENCWIZARDPR_AP_FEC_ART_BUL_ATRSYS_M PR_AP_FEC_ART_BUL_ATR_ENV_SIMPLE PR_GET_BIENESPR_COMB_BUSCARFILL_BIE_BUL_ATR_DESCRATRIBUTOBULTOS ATRIBUTOSP_PR_LOTE_X_DEFECTO P_FORM_GENPR_GET_FORMULADEPINGP_FORM_HERENCIASTOCKXFACTORXMEDIDAMEDIDA XMEDIDAAUX MEDIDAAUXAAAPRODSEMIOPTMP_PRODSUMMOVSTOCKNUMEROCAUSAUNIDCOMPMENSAJEPEPR_AP_FORM_CANT_DESC RECEPCIONRECEP2PR_GEN_FILL_GENPR_GEN_FILL_REEMPLAZOS FILL_BIE_FULL PR_GEN_ANALIZAR_REEMPLAZOS_TODOS TMPPRODFOR1PR_GENERICOS_REEMPLAZO_WIZARDSCXPR_GEN_FORMULA_REEMPLAZADAOPFOR_TIPO TMP_FORMULASP_EDITA_FORMULAPR_PASAR_FORMULA_CANTIDADPR_FORMULA_EDITAR_WIZARDALLFOR P_PROD_MAQPR_SELECCIONA_MAQUINAMAQUINASPR_MAQSEL_ES_POSIBLEPR_SELECCIONAR_MAQUINA_WIZARD TMPXMAQSELXTABLA_PROD_PLAPLA_PRODUCCIONARTICULOS_LLENARLISTADOS PR_BUL_Y_ATRDEPOSITO XDEPOSITO_LPR_AP_DEPOSITOP_PR_ALTA_LOTEXSTKSTKCIERREXCOMPROBXCAUSAXOK REGISTRARP_PR_STOCK_MINIMOP_NOTIFICAR_STKMIN_X_ITMANALIZAR_STOCK_MINIMOPR_SQL_APERTURA_OPXXXXXTMPMAQ_XNUMPROD 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMt C dey_func2*CBIENESdescins-G(S#CCONVER-%CDEPOSITO-%CMOVSTOCK-$CSTKXDEP-%CDEPOSITO-%CTR04tr04-#CBULTOS-%CATRIBUTO-%CFORMULAS-%CCCFORMUL-%CPRODUCCI-$CSTKXDSP-%CTCOMPRAS-%CCOMPPROD-%CPROD_GEN-%CMaquinas-%Cform_maq-%Cprod_for-%Cdespacho-%Cprod_gen-"CStock-%Ccomppaux-%Cform_res-%Cprodstop-#Cpr_cie-%Cprod_est-%Cpr_otros-%i&C arts_prod-BUABRIR_TABLAS_FIJASCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENED COMPUESTOP_PR_UGW4 dey_func2%BC U XTABLAXORDENXSELEXALIASXPATHXREOPENCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDTCN C+a%F G((prod#6T pr_numero( C% B%; T  T  T  trsac stockstkxdepstkxdspproduccimovstockcompprodprod_forcomppauxprod_estpr_otrosC arts_prod6%  T  B Tpr_ordenes.PRG#TApertura de Produccin T trsac T C% C C T trsac  %   .JTCSCZ/CZC@z 9999,999,999_6TpC s%X T  o T  T C2%C TMPERRTESTC TMPERRTESTN 6%   N    pr_errtest m=% C TMPERRTEST C TMPERRTESTN i pr_errtest C% ! 1C$Orden de produccin ya utilizada !!!! B U"XTIPO_APERTURA CHK_VALUEPR_ORDENES_SET_PROCSP_PR_NUMERO_MANUALPRODUCCIPRODXNUMPROD PR_NUMEROXRESXERRORXOKAAALOCK_GTRSACP_PR_UGTRAN_PRGTRAN_TXTBEG_TRAN WRITE_DATA MENSAJE_CLEAR UNLOCK_ALLEND_TRAN TTS_ERRORXCOMPROBCCFORMULCIERREXCAUSAUSER_LOG PUB_INDEXTTS_IDXSTKP_VALIDA_STK_TIPO PR_ERRTESTMENSAJEs C TC Aguarde...&CAntes de hacer el write()(%CxFuerza_AutoCierrebL T- T% N TS CTC % N 9TN%5 T% ^ T Y C %-A&CEliminando compromisos...F G((id E +C+   HF G((id E +C+   %H$CAgregando produccin...%F G((prod#6T F G((prod E%C4 B 3TCCCCCZCCCiZR6%FG((codins E%S Tal in_despacho- F>!"#$%&a'(CC) )*6+,-. /0123 456789:;<C=6>? pr_ordenes1%Cstkxdepcoddep xQrstkxdep/01$+ C]FC#A TBa TC TD TE%FTG TMPPRODFOR1 TG TMP_Formulas!%C xForm_AliasbCNTGFormulas %CG TGFormulas&-.p$q%C tmp_form_res %CForm_Res Qform_res:oform_res"X"Xs tmp_form_res Tua  Tu-vFtCw (v%vyIr tmp_form_resw10$x%Ft ~-Ft Tyw Tz0 T{1 T|x%| T}$  T}$%X$  CCy~"%S T CTDD<C Registrando Cy C{ Cz... T` TaZbproc_stkyz{}PCZ/CZD1%`ECac TIaTEE%!CRegistrando lotes... CCy~%S) CTCyz{FG((despachoEyz{ > >}>%uKFtQF>'EF>8rprod_for"T$Z+UVY^_gklmno tmpprodfor1"T$Z+UVY^_gklmnF>"#>9rprod_for"T$Z+UVY^_gklmno tmp_formulas"T$Z+UVY^_gklmn#CGuardando genricos...%CGfCFormulasf^ B #%CG .GenericobL FG~ ^JFG((id_fullECZC%C4 >CZTUV$%"CugFG((codigo~$Er arts_prod10$10$ = T U C C BUPR_ORDENES_SET_PROCSXOBJXOK MENSAJE_WAITSYS_MXFUERZA_AUTOCIERREXSTK_OLDXSTKP_VALIDA_STK_TIPOTEST UNLOCK_ALLCOMPPRODIDXIDCOMPPAUXP_PR_NUMERO_MANUALPRODUCCIPRODXNUMPRODXLOTEXFECHAP_PR_ALTA_LOTEBIENESCODINSXCODIGOLOTESXRES ALTA_LOTE IN_DESPACHOXBULXATRXDEPINGXVENCFECHAFORMULAXFORMULACANTIDAD XCANTIDADPENDCONTROLDESCRXDESCRXDESCARTDEPOSITO XDEPOSITODEPINGESTADOCODIGOBULATRLOTEVENCMAQUINA XOPA_MAQUINAPEXPESEMIXSEMISEMIOPXSEMIOPENV XENVASADOESTFABGUARDAR_OTROS_PR PR_ORDENESPR_GET_FORMULAFIRSTNEWTRFXITXCONTROLP_EDITA_FORMULA XFORM_ALIAS XITM_COUNTXHAY_ERRORES_DE_STOCKXFACTOR XFULLDESCRXMEDIDA1XMEDIDA2 XDMEDIDA1 XDMEDIDA2XSM1XSM_MARTICULO_DATOS_AMPLIADOSPROC_STKCODCOMPBULCOMPATRCOMPXCANTCCFORMULUNIDCOMPTIPO_APL XXDEPOSITOCIERRE COMPROMETERADICTEMPERATSTK_ERRSTK_MSG REG_STOCKMENSAJEXXCANTXDISP1DISPONCODSUSTOBIEDATA_CODIGO_VACIOXFACTOR2BULSUSTATRSUSTCANTSUSTUNIDSUSTXDISP2REALSUBFORM_RESMULT_RES TMP_FORM_RESXTMPFORMRES_CERRAR XTMPRESCOUNTCOD_INSTIPO XTMPRESCOD XTMPRESBUL XTMPRESATRXTMPTIPO XTMPCANTIDAD PR_GET_BIENES INI_DESPACHO XCOSTOSTDFN_COSTODESPACHOCOSTOINICIALCOSACT TMPPRODFOR1OPALLFOR_TIPOCENTROMED1COSTOHOYCOSTOCIECOSTOANTIDXTEMPPASOMERMAREF_PESOORDEN TMP_FORMULASXEXSETGENERICOPROD_GENID_FULLGEN_CODCOMBINAGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANP_PR_UG TMP_ARTS_PRODWRITE_DATA_NEW MENSAJE_CLEAR]74    %Ccompprod ?C2Problemas para encontrar el alias COMPPROD (1) !!! C Suspendo?aB-%CxdepbL.C!Error !!!! Falta el parmetro !!! C Suspendo?aB-%C xtemperatbCH T %CxidxbNs T  %C xitm_countbN T F%G((claveE TC4  Ta%1%Ccompprod i2Problemas para encontrar el alias COMPPROD (2) !!!pr_ordenes.prghC2Problemas para encontrar el alias COMPPROD (2) !!!C C Avise al soporte tcnico. B-rcompprod   %C -=%CstkxdepCODDEP )Frstkxdep  L>>!!%Ccomppaux-"#F$%G((claveE TC4  Ta%AF$9>$>$% BU&XIDXCODXBULXATRXCANXAPLXACUXADIXUNI XTEMPERATXIDX XITM_COUNTXDEPMENSAJESYS_MOSTRAR_SCREENCOMPPRODCLAVEENCUSER_LOG PUB_INDEXIDCODBULATRAPLADIUNINCIERRESITEMITMDEPCODIGODEPOSITOCANTIDADODEYFUNC CHK_OPENEDCOMPPAUXTEMPERAT;4%C xdepositobL.C!Error !!!! Falta el parmetro !!!C Suspendo?a B5%C B mB%  B T T T T T  T  T T T T T T T T]proc_stk   T T TT  T%oproduccicompprod !"" ! #  $M % disponop K( FG((claveGE(G T)M+C+ "( CC %a6 T)) H  T T)+T*C6)BC* *6U+XCODXBULXATRXCIERRE XEN_CALIDAD XDEPOSITOMENSAJESYS_MOSTRAR_SCREEN XCANTIDAD SYS_CONTSTKOBIEDATA_CODIGO_VACIO XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLNXCENTRAL XEN_RECHAZO OBTENER_STOCKPROC_STKXDISPXOCXOPPRODUCCIPRODCOMPPRODCODBULATRCANTIDADPENDIDXNUMPRODAPLDEPDISPONOPCLAVEXID XCOMPCANTXDISPOPFG((despacho>    BUDESPACHOCANTIDADINICIALCOD_INSXCODIGOBULXBULATRXATRFECHAXFECHAFECDESPCOMENTOPXNUMPRODXLOTEVENCXVENCADUANAORIGENPROCEDIMPORTACi CValidando stock ... C)TC-aa C BU MENSAJE_WAITPR_ORDENES_SET_PROCSXOK TEST_ARTICULOXFORMULA XCANTIDADXSTKXPE XDEPOSITO MENSAJE_CLEAR]34   , sys_procesando Inicializando C!%C xCierreProdbN T%CxidxbN T %CxSemibC T%C xdepositobC T CX5 T%%C TMPERRTEST C q C CG G( \temp.txtG %CReporte de errores: B 7Reporte de errores produccin CCZ: >Reporte de errores:GG( CC%%T TMPPRODFOR1 T TMP_Formulas!%C xForm_AliasbCTFormulas D%C @TFormulas3 ! T - FG((formula E%F##)%T$borrar.item=xidx ,.xfiltro = "xformula=&xform_alias..formula" %<&& T& scan rest for &xfiltroQ T%-%T%S %'% %() #*  T%-  CT%C#*+ ?if producci.multiple and xsemi=&xform_alias..codcompr T%-  C8xvalido_stock = sys_contstk( &xform_alias..codcomp )  T%S%  F ^J, *%#*CSM6.6.51.1.00.0B F ^J,T,-AT,.#/#0T,1#*T,2#3T,4#5T,6#6T,7F# T8CO2 sys_procesando Procesando: ,1 T T9 T: T; T< T= T> T?h@proc_stk,1,2,49>?:;<= T< T="TC,76%,1%pT +CEl pe de cierre est en 0 !!!B TC T a,%,7:;   T!%,7 CEl factor de [C,1CC,4/6C,4CC,2/6C,2] C9 est en 0 !!!B TC T a*T,-C,- M,-6%  TDCE. ,.FT 7 TD,. TD%,7| TT  TT TGD%%,1PE0272   TH TIJ$TJCC,6 ,6 6%% ,KS y C.TLC,1,2,4C HJM  TL _B TN TLTL%,7 T  T TOT&&%C >#P% CGCS,1,2,4,-,K,7 &JR TG T T T M;%%'() ,1   B CGCS,1,2,4,-,K,7 &JRTOCcompprodO0%'() ,1   TG T T T >TGGLTTT% ?$%,TUV j T T9 T: T; T< T= T> T?h@proc_stk,T,W,X9>?:;<= T< T="TC,Y6,%,Y:;   T!%,Y CEl factor del sustituto [C,TCC,X/6C,XCC,W/6C,W] C9 est en 0 !!!B TC T a% TD,Z,.  TD,Z TD%,Y TT A TT TGD C.TNC,T,W,XC IJM TNTN%,Y T  T% CGCS,T,W,X,-,K,Y &JR TG T T TTOCcompprodO f%b;%%'() ,1    ^ CFCS,1,2,4,-,K,7 &JRTOCcompprodO ;%7;%%'() ,1    3 CFCS,1,2,4,-,K,7 &JRTOCcompprodO I%G C[ C@C,1,4,2HIJ &\GG(%O F] #O>..T% 3 F DF# #8%^%CT^ \temp.txt KT^\tmp\CCZ - Faltantes de stock produccin.txt \temp.txt(^% 4T_sys_procesando BU`XFORMULA XCANTIDADXACUMULAXVALIDAXPE XDE_APERTURA XCIERREPRODXES_TEST XDEBORRARXIDXXACTDISPONIBLE XDEPOSITO SP_MENSAJESYS_PROCESANDOPR_ORDENES_SET_PROCSXSEMIXOKCREAR_TABLA_TMPERRTESTP_LOCALPR_GET_FORMULAP_EDITA_FORMULA XFORM_ALIASXCANTOXDISPO XCANTUNI1 XCANTUNI2 XDISPUNI1 XDISPUNI2XFACTORXDUNI1XDUNI2XDUNIOXERROR_DE_CONFIGURACION XARTICULOFORMULABORRARXFILTRO XVALIDO_STOCK XITM_COUNTP_PR_CIERRE_STKPRODUCCIMULTIPLECOD SYS_CONTSTKXOBJTIPO_APLCANTIDADCANDESVIOCODCOMPBULCOMPBULATRCOMPATRDEPOSITOUNIDCOMPREGISTRO XFULLDESCRXMEDIDA1XMEDIDA2 XDMEDIDA1 XDMEDIDA2XSM1XSM_MARTICULO_DATOS_AMPLIADOSPROC_STKMENSAJE TTS_ERRORXCANTCCFORMULP_PR_PRESICION_CONSUMOSXXCANT XCALIDAD1 XCALIDAD2 XXDEPOSITOADICXDISP1DISPONXDISP2XREGISTRO_COMPROMISODISPOIN COMPROMETERXIDCODSUSTOBIEDATA_CODIGO_VACIOBULSUSTATRSUSTUNIDSUSTCANTSUST MENSAJE_CLEARREPORTAR_TEST_ARTCOMPPRODXNEWFILESP_OCULTAR_DEFINITIVAMENTE3   %CQ TG G( \temp.txtG UC Artculo: // Disponible: C 999,999,999_%C TMPERRTEST% [T AT4Hay en Control de Calidad el Original y el Sustituto % T  T % T  T  T  Tr tmperrtest    UXPRODXCODXATRXBULXDISPXCANTXDUNI XCALIDAD1 XCALIDAD2XDEPXITEMXITMP_LOCALXCALIDADXCALITXTPRODCOD_INSATRBUL DISPONIBLECANTIDADDUNICALIDADCALITXTDEPITEMITM %C3T TMPERRTEST%CYTC%Cselect &xalias QF!h1N CCCC N  N  C N C(CN N NNNQUXALIASXPATHODEYFUNCNEWFILE_LOCAL_TMPPRODCOD_INSATRBULDESCR DISPONIBLECANTIDADDUNICALIDADCALITXTDEPITEMITMSMSM1SM_MFG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(FG(G-(F G(G-(F G(G-(BU BIENESDEPOSITOBULTOSATRIBUTOFORMULASCCFORMULPRODUCCISTOCKSTKXDEPTR04PROD_GEN %C /select &xalias HD ~'>C T '>C TUXDESTINOXALIASCANTIDAD XCANTIDADCCFORMULFOR4FlistadosG~(clases'TChlp_codigos_produciblesN < T G(BU VARIABLEXFILTROXTODOS_LOS_ESTADOSTMP_CODIGOS_PRODUCIBLESSET_FILTRO_Y_ESTADOLISTADOSAYUDACLASESSHOWCOD_INS%C tmp_pedidos'FQ"T\tmp\CC]ROh1N N NNQ& BU TMP_PEDIDOSXPEDIDOSP_LOCALREGISTROPEDIDOPEDITMCANTIDAD} TCW%Cpr_otros HQpr_otrosF G((id E%C4  > > > > > >  > > > > > > > > > >!" >#$ >%& >'( >)* >+, >-. >/0 >12 >34 >56 >78 >9: >;< >=> >?@ >AB >CD >EF%GPLAhHpla_produccion FBUJXPRODXAREAPR_OTROSIDPRODPEDIDOXPEDIDOPEDITMXPEDITMMAQXMAQANCHOXANCHOESPESORXESPESORFUELLEXFUELLETRATADOXTRATADOCOLORXCOLORKILOSXKILOS MATERIAL1 XMATERIAL1 MATERIAL2 XMATERIAL2 MATERIAL3 XMATERIAL3POR_MAT1 XPOR_MAT1POR_MAT2 XPOR_MAT2POR_MAT3 XPOR_MAT3POR_ANTI XPOR_ANTIPOR_DESL XPOR_DESLMASTERXMASTERPOR_MAST XPOR_MASTMEMO1XMEMO1TRABAJOXTRABAJOCILINDRO XCILINDROCOLOR1XCOLOR1COLOR2XCOLOR2COLOR3XCOLOR3COLOR4XCOLOR4COLOR5XCOLOR5COLOR6XCOLOR6MEMO2XMEMO2LARGOXLARGO TIPO_CONFE XTIPO_CONFEMEMO3XMEMO3PLA_KMXPLA_KILOSMETROSP_EMPGUARDAR_EN_BIEAUXPLA_PRODUCCION7 TCW%Cpr_otros HQpr_otrosF G((id E%C4" T T T T  T  T T T T T T T T T T ! T"# T$% T&' T() T*+ T,- T./ T01 T23 T45 T67 T89 T:; T<= T>? T@A TBC TDE FBUFXPRODXAREAPR_OTROSIDXPEDIDOPEDIDOXPEDITMPEDITMXMAQMAQXANCHOANCHOXESPESORESPESORXFUELLEFUELLEXTRATADOTRATADOXCOLORCOLORXKILOSKILOS XMATERIAL1 MATERIAL1 XMATERIAL2 MATERIAL2 XMATERIAL3 MATERIAL3 XPOR_MAT1POR_MAT1 XPOR_MAT2POR_MAT2 XPOR_MAT3POR_MAT3 XPOR_ANTIPOR_ANTI XPOR_DESLPOR_DESLXMASTERMASTER XPOR_MASTPOR_MASTXMEMO1MEMO1XTRABAJOTRABAJO XCILINDROCILINDROXCOLOR1COLOR1XCOLOR2COLOR2XCOLOR3COLOR3XCOLOR4COLOR4XCOLOR5COLOR5XCOLOR6COLOR6XMEMO2MEMO2XLARGOLARGO XTIPO_CONFE TIPO_CONFEXMEMO3MEMO3XPLA_KILOSMETROSPLA_KM%C tmprevmin)QmomovstockQC CZ/CZCZ/CZ tmprevmin, pr_informar_bajo_stock_minimo%C tmprevminQBU XNUMPROD TMPREVMINDISTINCTCODIGOCODBULATRMOVSTOCKNUMEROCAUSAALERTA_STOCK_MINIMOPR_INFORMAR_BAJO_STOCK_MINIMOPIG+(dey_funcdey_fill pr_funcioneslistados pr_envasadoBUDEY_FUNCDEY_FILL PR_FUNCIONESLISTADOS PR_ENVASADOC1UMENSAJE $CAgregando produccin...%aF G((prod#6T F G((prod E%C4 B 3TCCCCCZCCCiZR6%FG((codins E % S T al  in_despacho  -F>aCC 6 !"# $%&'()*+,-./0C1623 pr_ordenes1%C stkxdepcoddep OQrstkxdep#$%! C]F T56 T6-%78S9 F: G((id E"+C+ !" T55: T; T<k=proc_stk:?:$:%:@:cPCZ/CZ:A1TB:A%;C<C T6aF:H%6 %78S9 ' F8>- DE%C tmp_form_res %CForm_Res tQform_res:oform_res77G tmp_form_res TIa  TI-JFHCK (J%JQIr tmp_form_resK%$L FH ~ FH TMK TN$ TO% TPL%P TQ TQ7  CRCMS"% S , CTTBB<C Registrando CM CO CN... T; T<Z=proc_stkMNOQPCZ/CZB1%;C<C T6aT55!CRegistrando lotes... CRCMS% S CRTUCMNOVFWG((despachoEMNO >XU >YQ>ZU%I# FHQF>5F[>\8rprod_for\^_`abcdefghijklmnopqrstuo tmpprodfor1\^_`abcdefghijklmnopqrstuFv>>\9rprod_for\^_`abcdefghijklmnopqrstuo tmp_formulas\^_`abcdefghijklmnopqrstu#CGuardando genricos...%CwfCFormulasf6 Bx e y#%Cw .GenericobLa Fw~z] ^J{F|G((id_fullECZC{~%C4 >\CZ{~~{~{{{{_{a{b{% CugFG((codigo~ Er arts_prod%$%$  TxBU MENSAJE_WAITP_PR_NUMERO_MANUALPRODUCCIPRODXNUMPRODXLOTEXFECHAP_PR_ALTA_LOTEBIENESCODINSXCODIGOLOTESXRES ALTA_LOTE IN_DESPACHOXBULXATRXDEPINGXVENCFECHAFORMULAXFORMULACANTIDAD XCANTIDADPENDCONTROLDESCRXDESCRXDESCARTDEPOSITO XDEPOSITODEPINGESTADOIDXIDCODIGOBULATRLOTEVENCMAQUINA XOPA_MAQUINAPEXPESEMIXSEMISEMIOPXSEMIOPENV XENVASADOESTFABGUARDAR_OTROS_PR PR_ORDENESXCONTROLXHAY_ERRORES_DE_STOCKCCFORMULCIERREXFUERZA_AUTOCIERRECOMPPRODSTK_ERRSTK_MSG REG_STOCKPROC_STKCODDEPITMXITMENSAJEREALSUBFORM_RESMULT_RES TMP_FORM_RESXTMPFORMRES_CERRAR XTMPRESCOUNTCOD_INSTIPO XTMPRESCOD XTMPRESBUL XTMPRESATRXTMPTIPO XTMPCANTIDADPR_ORDENES_SET_PROCS PR_GET_BIENES INI_DESPACHO XCOSTOSTDFN_COSTODESPACHOCOSTOINICIALCOSACT TMPPRODFOR1OPALLFOR_TIPOCODCOMPTIPO_APLBULCOMPATRCOMPCENTROMED1UNIDCOMPADICCOSTOHOYCOSTOCIECOSTOANTIDXTEMPPASOMERMAREF_PESOTEMPERATCODSUSTBULSUSTATRSUSTCANTSUSTUNIDSUSTORDEN TMP_FORMULAS XFORM_ALIASXOKXEXSETGENERICOXOBJPROD_GENID_FULLGEN_CODCOMBINAGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANP_PR_UGSYS_M TMP_ARTS_PRODwizard2 open_files 4 check_openedg8 registrar9 write_data? comprometer^disponQe ini_despachoktestl test_articulojmreportar_test_artcrear_tabla_tmperrtestK close_filespr_pasar_formula_cantidadbuscar_articulos_posiblesinicializar_temporal_pedidosguardar_otros_pr%traer_otros_prXanalizar_stock_minimopr_ordenes_set_procs pr_prueba$write_data_newF"TXTARTICULOS POSIBLES$Ttmp_codigos_produciblesThlpTidu TPTdescrT DescripcinTdescinsT C T T cod_insT CdigoT codigoTCU ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1hlp_codigos_producibleshlprAA bB11"2!A1T2AA1A1AAA`1AC1qAA2AAAAAA!!BQAA2rAc1rrAAyrAAAA3A2aRAABAAa1BABA624AAqRA2\bqqAqqAr "q1At4b1aqAAaqAAQA2ABA1AABcqqAqqAR2rABAA2"!RB!QAqAAABAAA2aG1t1AQBs1AqQBAA2qqQqAABAA3cr"ArQAAAA22Aq11!AAAA2AAAAA3X!1A3ARAqAAqAA1AAAAA22B2aAAAAAAAqAAqAqAABAABABABUqAAqAAA31r12A12A1r1Aq4B2QQAQQ1QQQQAQQQQQQQQ!QQQ1QQaAB3CQ3q2sQRAB3 2A1B61AA#a$AA!AA2AAC2rrbAA3AABcrAAArAAAB4rQsBB22qrAArQPBq6AQ!QAAtqv0rT+2A2aQA21A0d3QQAb2AAB1EAArAAAqq1Aqq2A!A2ArrQBAqAAAruu7q1qQAzAAArAQAAAAB2qrrArrBAAArArARaAAAQTrAqQAB2rBrRAbA uaQaAAA2rR B331AAAAqUAaaqAAqaa1AAQ!QAA 1qQAArrq3ACAA2AAD1113wB'0!c4AAAAA AaARBrAQAbAA2qqrACB0!AAAaAbA3qr2aqAAA3aqAABCC1barAAqAABqABA21AaaR11AAAB2qAA!AA 3qaaraaraaraaraaraaraaraaraaraaraaB2!!A1q1qA3rRrqqRbB2qAA"B1qrAArQAcAA2qrAArBA2sAAB2A33 A4rQsBB22qrAArQPBqqrA2AqAABrAAAqq1Aqq2A!A2ArrQBAqAAAruu7q1qQAzAAArAQAAAB1A!AA112nDfg#gn>n*oiKoyqy cO^wZlk.#L#'5 '*] 5*,, #R,- ..h/ </0 G38 {8y<@ <>w >?> J(?H   T@CATB TMP_Form_ReeC pr_ordenesG~(clasesG+(listadosTGC]%H%C tmp_arts_prodQIh1 \tmp\GJCKCLCMCPNCPOCPCQNRNSNTC UNVC WC XN Q \tmp\GI& JLKJ& MM TY TZC CIERRE OLD[+a T\+a* C T]HW& \R C % T T  TY?pr_cie_numero_op(Cierre de Orden de Produccin C %Y& T_C` = T_HR N  _ %C\a ! _ . _ B _ +CLa produccin est cerrada !!!bB _7 *CProblemas con los ndices !!!bB _N . \Q C CcT;de CfFgG((formula EFiG((codigo EFjG((codins E%lm 1 Tn To)plistadosno2T(   CjN#=% pr_cie_cantidad_1( C  T Tr %ls T8Clut - T8lJ T8ClutTlJTlL Tn To.plistados no T78FjG((codins E7!T<7 CjN(=<vwxyz=S{vwxyz= Tr |(FlT}forCC|Zxfor(z)=&aaa T}bulCC|Zxbul(z)=&aaa T{|T}reaCC|Zxrea(z)=&aaa T}prdCC|Zxcan(z)=&aaa - xrea(z) xprd(z)=&aaa %C|CXTrrFiG((codigoEC|T=|i~%pr_cie_cantidad_2( C  Cf%C\a M! \ C %H"%C tmp_arts_prodN^8listados tmp_arts_prodaF G((prod E+C+  ZFI%-LILKIK >IXXFHFI#)Ctalles y colores[ pr_bul_y_atr( C %C\a ! \E C #%C producci.notabM/T*C*CCl A%+    pr_cie_detalles( C %C\a !T,CC2iC2HC2%$T-C2T.C2,T/CC CC3iC3HC3%$6T0C3T1C3 \ C TN%C%S:TCH6 % C T   T 26 T%N T%r  T%X T  T%C\a ! \ &%C\a "!% %l TZ  TZ!%C tmp_arts_prodQIHB B%C TMP_Form_Ree FQ%CB, FBQC@B BZU XTIPO_CIERREXRAPIDO XRAPIDO_PROD XRAPIDO_CANTXRAPIDO_BATCHCIE XRAPIDO_ID XRAPIDO_TURNOXRAPIDO_FECHA_CIERRE XRAPIDO_FINALPR_CIERRE_OLD_SET_PROCSP_LOCAL ACTIVEFORM DATASESSIONID CHK_VALUE P_PR_TURNO XTABLACREADAXFECHAXRESXCODIGOOBIEDATA_CODIGO_VACIOXBULXATRXFORMULA XCANTIDAD XCANTBAJA XCANTIDADAXNUMPRODXSUBXIDXLOTEOLOTXVENCXDESCR XDEPOSITOXDEPINGXBUL_LXATR_LXDESCARTXCODINS XDESCART2XREMITO XNOTA_PROD XENTRADASXCOMFXCOMHXCOMMXFINFXFINHXFINMXFECCOMXFECFINXTURNOXDEFXOLDID XINTERMEDIOXSEMIXACCSEMIXPECIEXPE XFULLDESCXBULUM XMAXPALLET XARR_PALLET XFORM_PATHNEWFILE_LOCAL_TMP XFORM_ALIAS OPEN_FILES PR_ORDENESCLASESLISTADOSXTMP_ARTS_PRODP_PR_UG TMP_ARTS_PRODCODIGOBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUXCANTIDADXOLDOPNXRESULTADO_CIERRESYS_MXFORMXMAXFORMPR_CIE_NUMERO_OPXRESP VALIDA_OPNWIZARDMENSAJEPR_GET_FORMULACCFORMULPECIE_OBTENER_FORMULAS_USADASFORMULASFORMULABULTOSBIENESCODINSPRODUCCIMULTIPLEXMEDIDAXMEDAUXMEDIDASPR_CIE_CANTIDAD_1XIDXENV OBTENER_SEMISEMIOPXCANXREAXPRDXACCCANXFORXPESZAAAMEDIDAPR_CIE_CANTIDAD_2ARTICULOS_LLENAR ARTS_PRODPROD PR_BUL_Y_ATRNOTAPRODP_LOTES_PREGUNTAP_PR_PE P_PR_TIEMPO P_PR_REMITOPR_CIE_DETALLESXRES2 FINALIZARXRES_REG REGISTRARP_PR_IMPRIME_CIERREIMPRIMIR_FINAL TMP_FORM_REE CHK_DELETED%q T-%SN CLAtencin !!! No se ha definido si esta frmula permite cierres parciales !!!C %El cierre en curso podr ser PARCIAL. Ta TS%UXTCC4Realiza un Cierre FINAL de la Orden de Produccin ? SN6 mTS  T-%SN  Ta TS%TCSN6 % gAC4Error !!! La frmula no admite cierres parciales !!!TNB TSTN C %C %NT C"Est seguro de realizar el cierre CS FINAL PARCIAL6 de la O.P. CC @z 999,999,999_ ? e T 4TC SC NX66 TNBUXRAPIDO XCIE_PARCIALCCFORMUL CIE_PARCIAMENSAJEXDEF MENSAJE_SINO XRAPIDO_FINALXRES2PR_CIERRE_OLD_SET_PROCS CONFIRMAR XRES_PREG MENSAJE_SNXXNUMPROD@F G((prod E%C4 %  % CHa sido anulada !!! B  B TT T  T T TTTTT(TC 6T B 5%C4*CProblemas con los ndices !!! B 17C*Produccin no encontrada o inexistente !!! BBUPRODUCCIPRODXNUMPRODPENDFORMULAMENSAJEXCODIGOCODIGOXBULBULXATRATRXFORMULA XDEPOSITODEPOSITOXDEPINGDEPING XCANTIDADCANTIDADREALXLOTELOTEXVENCVENCXPEPEXPECIEPECIEXESTADO_ANTERIORESTADOI T T T%C TMPERRTESTcFQTTC] T C Faltantes OLD %a& C C % (_*%CCX C [FG((formulaEC%C+  C %7T CC-S 7T CC-N W T SC El artculo C C CC no tiene frmula !!!P%  C TMPERRTEST C TMPERRTESTN   pr_errtest C  "FG((formula E%C+ % ! 7 T"# >T"C$SC%&DC#%&F6 C %DT C"-SC'6 E[T C"-C(NNS6C'6P%  C TMPERRTEST C TMPERRTESTN   pr_errtest C   T NC El artculo C C C no tiene frmula !!! %a4 %a&F) G((idG EG ~$+C+  %)*AT")% T+X,proc_stk).)/)0+ T1 T2/3listados).)/12F5G((codigoE).)/)0%C47 >88"99" rborrar:;./08<9=>?@ABCD):);).)/)0"+")>1E@)FF)F5">GSHICOF5(<>HICO C CKF5#) TLa+a0 TL-5MTMC]+a; F5& I5H% pr_cie_consumos_prevL C  TOa ~T %8P P 6C)No puede usarse una cantidad negativa !!! TO-!%O l .F5& I5HF5-H%C4 (< >HICO%( pr_cie_consumos_adic C F5G((!R,:Validando artculos...F5 TRa.~C./0 8P  F5%CD >D>GSFEG((codins E5.%C4 %ETSt FTG((codigoE5.5/%C4 p F5>GN TR-%EUS FVG((codigoE5.50%C4 F5>GN TR-  F5>GN TR-F5%H T+X,proc_stk5.5/50+ T1 T2/3listados5.5/12F5+><+ABCR %R7 !F5C./0%C TMPERRTEST FQ <,M TTC] T % (*%CCX C FG((formulaEC%C+  C % C 7T CC-Sa / C `T CC-C NC(NNS66aP%  C TMPERRTEST C TMPERRTESTN   pr_errtest C    T SC El artculo C C CC no tiene frmula !!! hFG((formula E%C+ % ! } T"# >T"C$SC%&DC#%&F6 C %&DT C"-SC'6a [T C"-C(NNS6C'6aP%  C TMPERRTEST C TMPERRTESTN   pr_errtest C  d T NC El artculo C C C no tiene frmula !!! TXa%  C T CY% ! , C CKI%C2Hay faltantes, corrige los desvos o adicionales ?Z (!B U[ XUSALOTESXTSMXTSM1XTSM_M TMPERRTESTXOLDIDPRODUCCIIDXIDXOKSYS_MPR_CIERRE_OLD_SET_PROCS CREAR_BORRARMULTIPLEZXBULXCANCCFORMULFORMULAXFORP_PR_CIERRE_STK TEST_ARTICULOXPECIEPROD XDEPOSITOMENSAJEXCODIGOXATRXRAPIDOP_PR_MUESTRA_ERR PR_ERRTESTXFORMULA P_PR_CIE_TEOENVXCANT XCANTIDADXDEFCANTIDADREALSEMIOPSTKCOMPPRODAPL XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKCODBULATRXMEDIDAXMEDAUXMEDIDASLISTADOSBORRARCODIGOP_PR_DESGLOSE_CONSUMOSCANTOTALITEMITMDESCRLOTESUNIDUNIFACTORSMSM1SM_MDEPOSITOBIENESDEPOKTIPINDICEALLCOMPLETA_FALTANTESXPRIMERA_PASADAXBORRARPR_CIE_CONSUMOS_PREVXOKNEGDESVIOPR_CIE_CONSUMOS_ADICXOK1CODINSBULTOS ATRIBUTOSATRIBUTOFOR XTABLACREADACALCULAR_MERMA MENSAJE_SINO%Cborrar"FQG+(dey_funcTCTF=h1NC C C C N NC2CCCCCCC2CCNNNNNNCN N!N "N#N$N%N&D'CQ&  (& G((BU)BORRARDEY_FUNCXTMPPATHNEWFILE_LOCAL_TMPXBILENOBIEDATA_CODIGO_LARGOTIPOKCODBULATRCANDESVIODCODDBULDATRBULTOS ATRIBUTOSLOTESSERIESDESCRDESPACHODEPOSITOTOTALORIGINALAREASIGINDICEITMUNIDUNIFACTOR FALTANTESITEMDISPOSMSM1SM_MVENCADVCODIGOa%Ccomppaux 5Qcomppaux T T% )listados  .listados  T  T  T  T T trsac stockstkxdepstkxdspproduccimovstockcompprodcomppauxprodstoppr_cieC arts_prod6% :T pr_cierre.PRG!TCierre de Produccin T trsac TCR C%h T  T trsac H)    %   6 TCZ/CZTpC%LC%Se ha cerrado la Orden de Produccin CC@z 9999,999,999_% !  C"  T   T 2)C Error !!! T# Q T BU$ XOK_WRITECOMPPAUXXMEDIDAXMEDAUXPRODUCCIMULTIPLEMEDIDASLISTADOSXCODIGOXBUL XACC_INGRESOS XACC_CONSUMOSXERRORAAALOCK_GTRSACP_PR_UGTRAN_PRGTRAN_TXTBEG_TRAN WRITE_DATA UNLOCK_ALLEND_TRAN TTS_ERRORXCOMPROBXNUMPRODXSUBXCAUSAUSER_LOG PUB_INDEXXRAPIDOMENSAJEP_PR_STOCK_MINIMOP_NOTIFICAR_STKMIN_X_ITMANALIZAR_STOCK_MINIMOTTS_IDpC WRITE !!!!%CxturnobN@ T%CxmalasbNm T T-R,: Aguarde..."% S t<1ostkxdepC   "TC C6:oborrarC   &TC C6F%FC9No admite ms de 999 cierres. Consulte al programador !!! T BTp>NCS6 !"#'%Cproducci.notaprodbM>$C% T&%%C' C( C' F)G((batchcie#6T(*F$%  T+remCCZrepl &zz with xremito T+cieCCZrepl &zz with xfecha , T-%. T/0(T1reaCC0Z#repl &xvar with &xvar + xcan(z) T//C02:C C producci.bulCC0Zbultoscodigo&T--C02C0345>66/ T,/ >667 T,7%8w% 9:F G((deposito E9% :SsF>;<rpr_cie*=>?@A B ('C&CDDC$6,-!%.mF)0(iT1pesxbulCC0Zreplace &xvar with xpes(z) F>EEV>FGHIJKLCDDC$6MNOP TQa TR TS TT CUT CWV TXY TYZ T[\F ~ % TTTT\ T]\TSS% TXX]%C E!CSin depsito (1) !!! B T^ T_ T`laproc_stkcd ]cPCCZ/C&ZeS1f%_ C` Brcompprodgcd hijkgcd\c&iS Tll]"% S Tmg %- FnGI"Kgm  (] GI TSS%Cg !CSin depsito (2) !!! Bgoproc_stk   ]cPCCZ/C&ZeS1Tll] pTpWToproducci>g6Wptmp_compensaciones(r%rs Ts TtFq ~n Tuq>Fv Tt Y TtCwTsstzFv 6E D0(@%C02sFG((codins EZ%Sb Tas in_despachoZC0-eSC%C9!CSin depsito (5) !!! BTSS T_ T`hoproc_stkZC09C02PCCZ/C&ZeS1%_YC`TC02 CUSCCZ ,CS6&CS6%CZ < CU@CCZ ,CS6&%d%C `%CC\Fv G((codE cd%C4 X%Cdespacho QdespachoFfG((despacho5~fcd cdTf%FQ CU C%[0(W%C0SFG((armadoEC0#+C+ C0 O%G >HR BUSYS_MXTURNOXMALASXTMP_FORM_RES_CERRARPRODUCCIENVXDEF ARR_PR_SEMISUMCANTIDADSTKXDEPCODIGOXSEMIDEPOSITO XDEPOSITOXCANTIDAD_MAXIMA_POSIBLEBORRARCANDESVIOCODSUBMENSAJE TTS_ERROR XOLD_LOTELOTEPENDESTADOXLOTEVENCXVENCPECIEXPECIEREMITOXREMITOENTRADAS XENTRADASNOTAPROD XNOTA_PRODXSUB XRAPIDO_IDXRAPIDO_BATCHCIEPR_CIEBATCHCIEZZXCANTIDAD_TOTAL XPESOSEMIMULTIPLEACCREALZXVARXCANXPESBULTOS CANTXBULTREAL XCANTIDADP_IN_CALIDAD_VERSIONXDEPINGCALIDAD CAL_APROB CAL_PRIORIDCIEPRODINDICETURNOFECHAPESOXNUMPRODXFINFMALASCOMFXCOMFCOMHXCOMHCOMMXCOMMFINFFINHXFINHFINMXFINMFIRSTNEWTRFXITXCONTROLPR_CIERRE_OLD_SET_PROCS OBTENER_SEMISEMIOPXACCSEMIXCODIGO_PRODUCCIONXCODIGO XACC_COSTO XCANTBAJAO XCANTBAJASTK_TSTSTK_ERRSTK_MSG ACT_STOCKPROC_STKBULATRXFECHADESPACHOIDNCIERRESUNIITMDEP XACC_CONSUMOSXIDPRODCOMPPROD REG_STOCKXSEMIOPTMP_COMPENSACIONES MAX_ABIERTASXCANTIDAD_ENVASADAXCANTIDAD_ENVASADA_TMP XTMP_PRODMOVSTOCKARR_SUMANUMEROCAUSA$XCANTIDAD_PRODUCIDA_DE_SEMIELABORADO#XSALDO_PENDIENTE_DEL_SEMI_PENDIENTEXCANTIDAD_A_COMPENSARARR_STKSTOCKXMAX_STKP_PR_COMPENSACION_PERFORM_RESFORMULACCFORMULMULT_RES TMP_FORM_RES XTMPRESCOUNTCOD_INSTIPOXATRXBUL XTMPRESCOD XTMPRESBUL XTMPRESATRXTMPTIPO XTMPCANTIDADBIENESCODINSLOTESXRES ALTA_LOTE IN_DESPACHOP_PR_UG TMP_ARTS_PRODXLITROS FN_LITROSPR_AGREGAR_MENSAJE_CIERREES_PRODUCTO_TERMINADO XACC_INGRESOSP_EMPP_PR_ALTA_LOTEINGUARDAR_DATOS_STOPS P_PR_PALLETS XMAXPALLET XARR_PALLETARMADO PROCESADO%C TMP_StopsFmrprodstopo tmp_stops C C U PRODSTOPOPE_IDUSTOP_CODTIEMPOORDENPRODCIERRESTOP_MINXNUMPRODXSUB TMP_STOPSOHG+(dey_funcdey_fill pr_funcioneslistados pr_ordenesBUDEY_FUNCDEY_FILL PR_FUNCIONESLISTADOS PR_ORDENESFG((comprob T TR~CCCCZ / CCZ CCCZ / CC Z %  T  T TCRESULTADOS: Obtenidos: CC@z 9999,999,999.99_ Cargados: CC@z 9999,999,999.99_ Merma: CC d@z 9999,999,999.99_ BU MOVSTOCKCOMPROB XACC_INGRESOS XACC_CONSUMOSXSIONONUMEROCAUSAPRODUCCIPRODCODIGOCANTIDAD MENSAJE_SINOFG((comprobR~CCCCZ / CCZ CCCZ / CC Z %T T  BU MOVSTOCKCOMPROBNUMEROCAUSAPRODUCCIPRODCODIGO XACC_INGRESOSCANTIDAD XACC_CONSUMOS%C TMPFMULTI,FQ  T- T-%u(-% r tmpfmultioHQ #TC producci.forCCZ#T C producci.canCCZ QTC T C %   C C %C TMPFMULTI o- tmpfmulti Ta Ta ) C C T-%d Fro tmpfmulti T  C C UXVUELTA TMPFMULTI XINITMULTI XAPPMULTIPRODUCCIMULTIPLENIT XFORM_ALIASXFORMULA XCANMULTIXFORXCANPR_CIERRE_OLD_SET_PROCSPR_GEN_FORMULA_USADAXNUMPROD XFORM_PATH8pr_sql_produccionesa+Q\TMP\rpt_pr_producciones3Q \TMP\rpt_pr_producciones_consumo 5F"TCC@z 999,999,999_2T [ C  C  C  ]  T TC*TC* TC@z 999,999,999_ TC@z 999,999,999_ TQ TT pr_cierre.frx T T TT.t.%%C\CPBT\C 0TC F!Q"listadosaaaaaF!Q C$U%EJECUTAR_REPORTEPR_SQL_PRODUCCIONESXNUMPRODP_LOCALZOPZDESCRRPT_PR_PRODUCCIONESZNUMEROOPZARTCODCODIGOATRBUL ZARTDESCRDESCR2ZFECHAFECHA ZFECHACIEFECHACIE ZCANTIDADOBJCANT_OBJ ZCANTIDADREALREALZLOTELOTEXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVO XFILTRODATOSP_SERVERP_EMPRPT_PR_PRODUCCIONES_CONSUMOIMPRIMIR_FORMULARIOLISTADOSPR_CIERRE_OLD_SET_PROCSH'%CSysmsg YQ \sysmsg =T CMensaje_produccion Mensajes.vcxa T T T T T T T T T  UXPRODXCODXBULXATR XCANTIDADXESTADOXSUBXLITROSXSUBTIPOP_SYSTEMOMSGMSG_LEER MSG_SUBTIPODAT_PRODUCCION DAT_CIERRE DAT_COD_INSDAT_BULDAT_ATR DAT_CANTIDAD DAT_ESTADO DAT_LITROSOBJ_AGREGAR_SUCESOe T% U,TC 6 BUXLITROSPRODUCCIMULTIPLEPECIEREALU%C TMPERRTEST B>F ~JFC-    %C4> FF'-%C4> B3C&Error !!! Avise al soporte tcnico !!! BU BORRAR FALTANTESALL TMPERRTESTCODATRBULCOD_INSITMITEMCANTIDADMENSAJEL%C TMPERRTEST 'BF ~A TF T-~% T  >  > T! TCO% 6F #> FBU XCANTIDAD TMPERRTESTCANTIDADBORRARXLASTCODATRBULCOD_INSCAN FALTANTES4 TCWF TCC+C CO6F%}- TC4  Ta% T  T% # F BUXSEMIOPXAREAXCODXENCPRODUCCIXREGPRODCODIGO4%"obienes% kBC |B- BUXCODATRXBULBIENESCOD_INSTIPO_ART ARR_BIENES9Cbienescodins!CmedidascodigoT!CmedidascodigoTD% S    S ) T T %   !T  T TF ~%T%TT"%  S XT FGI"K (GI %TT% %%T T % (!%C !TC !T" d%" %# pr_cie_mermas(% C&  B %%# S  pr_cie_mermas(% C&  T%a%% ! B BU'XCODIGOBIENESMEDCOD XEN_KILOS1MEDIDASFCE MEDAUXCOD XEN_KILOS2P_PR_VER_MERMAXDEFPRODUCCIMULTIPLECCFORMUL MERMACTRL XACC_INGRESOS XACC_CONSUMOSENVXSEMICODIGOXACCSEMI XACC_COSTOBORRARCANDESVIO XCANTBAJACODXIDPRODIDCOMPPRODCANTIDAD XCANTIDADFACTORZXCANXMERMAXRAPIDO PR_CIE_MERMASXRESPR_CIERRE_OLD_SET_PROCS%C tmprevmin"QoborrarCQ    tmprevmin, pr_informar_bajo_stock_minimo %C tmprevminQBU TMPREVMINBORRARCODBULATRDESCRCANDESVIODISPOSMSM1SM_MALERTA_STOCK_MINIMOXNUMPRODPR_INFORMAR_BAJO_STOCK_MINIMO finalizar` valida_opn confirmar# crear_borrar9 registrar= write_dataCguardar_datos_stopsdpr_cierre_old_set_procsemermadf pre_merma{hcie_obtener_formulas_usadasiimprimir_final mpr_agregar_mensaje_cierre3q fn_litrosescompleta_faltantesscompleta_faltantes_oldu obtener_semi_wes_producto_terminadoxcalcular_mermayanalizar_stock_minimo;q"AA"AA"A!AaAA1A1A1AAr111BQ!A bBq12B2A1AA1A1A1A1A1AA1rrr2"2AbABCr1r3r!dBA2ABAA2"srQArAAArQAAA23AAAA2A11AAAA1ABAAAAA2AAAA3ABABA1qAAAA!A45aAAaAABAB1AAAB2qAAqAqAAC2qqAA$qrqA1AAA!AqABA!AAABtbaqs ABqAr$rQcABrQrr2AqaAAAAArrQcAA4AtaqrAzqq1qAAqq1qAAqAr1rABQAAAqqAAA!qqB!A1AAAqABA!AAA2A2AAAABD2qqAA!qr0#cA5rAA1A@ 3T2AA2AA21aAA3rAAr[#w"bBtBaA s1ASrQAuBAr"1abCA3bqArrsAA""rABsgAtqtAbABA2BBBB(sa!aA}rD2urrwa"ABurwa"AurR#A|2ABAAC5AAAqq1Aqq2A1srAArA<BB5BB1!A!ABA!qAsr1AA2AcB1ACA3&rsAAqQAAAAAsAA@r21AAAAAAS2qA3A2r"aAA 2r"aAAB8qqAA!aA1111!!AAAAAA21r!!AR1AqqA`1qAq2"A2AA"rq1sq1ACBB2qAArr1AAAqArAB2qrr1AABA3a!!!qAA2RRF ArbABB%sa!a2BB22ABcBBA51BAAAB2AAB1O-2}2?6^U6ddi`irr_ùdDgV'v= 4' W? * F @j Y 0 <( KiU %pS|r}Y^('4 C "%C \cfg_prd.ges0 ;R,:0No se ha configurado el mdulo de Produccin !!!BG(9 "%C \cfg_prd.ges0 ;R,:0No se ha configurado el mdulo de Produccin !!!BTCN TCN "%C xrapido_prodbNl T"%C xrapido_cantbN T&%Cxrapido_batchciebN T %C xrapido_idbC T#%C xrapido_turnobN; T*%Cxrapido_fecha_cierrebD|TH %C  T 2 T%Cborrar FQ T-5 TTCCC$6TT T T T T T T TTC]T T! T"T#CXT$CX T%- T&- T' T( T) T*T+CX T, T- T. T/T0CC C$6 T1 T2T3CCC$iCC$HCC$%T4CCC$iCC$HCC$% T5T*CXT6N T7 T T8 T9 T: T; T< T= T> T?@? J(@H2 2TACBTC TMP_Form_ReeD pr_ordenesG~(clasesG+(listados TH TICCIERREJ+a' TK+a#' C TLH' K%+ T T  TH?pr_cie_numero_op(Cierre de Orden de Produccin%HTNCO T-  TNH N%CKP ! N(. N?B N+CLa produccin est cerrada !!!QB N*CProblemas con los ndices !!!QB N. K~CRT<ST CUFVG((formula EFXG((codigo EFZG((codins E%\] T^ T_)`listados^_2T)   CZa#=%g Tbpr_cie_cantidad_1(%bc T-  T T- Td %\e T9C\gf LT9C\gfT\YT\h T^ T_.`listados ^_ T89FZG((codins E8!T=8 CZa(=<ijklm>Snijklm> Td o(t F\TpforCCoZxfor(z)=&aaa TpbulCCoZxbul(z)=&aaa TnoTpreaCCoZxrea(z)=&aaa TpprdCCoZxcan(z)=&aaa - xrea(z) xprd(z)=&aaa %CoCXp TddFXG((codigoECoT>oXq%3TC6SC\\DC\\F6%qDTC-SC\g;6\# [TC-CSNNS6C\g;6\#P%  C TMPERRTEST C TMPERRTESTN  < pr_errtest  TNC El artculo C C C no tiene frmula !!!QF G((idG EG ~$+C+  G%A<T TXproc_stkh T^ T_/`listados^_F%G(( itm_countECZCZ%C4'> rborrarhah^Z 'G((codigoEh%C4P> #rborrarhah^Z>FF,>SCOF-%C4 o(<>CO C K3F#)5TC]F& %t pr_cie_consumos_prev( Ta ~% 6C)No puede usarse una cantidad negativa !!!Q T-!%  T%CKP /! K8%F& % pr_cie_consumos_adic(FG((F Ta.~Ch  F%C >#>S% h% d>N T-!FZG((codins E%C4%ZXSFXG((codigoE%C4 F>N T-%ZSFG((codigoEh%C4 F>N T- F>N T-R %  T %FCh%C TMPERRTEST- FQ F <, P  CValidando artculosJT7\TC] T%\]"o("*%CoCX Coi "FSG((formulaECom%C+ D"%p!7TCSWCoi-S;\ao# !`TCSWCoi-C\]NCSNNS66;\ao#P%  C TMPERRTEST C TMPERRTESTN  @" pr_errtest " TSC El artculo C C CCo no tiene frmula !!!Q $FSG((formula E%C+ $% \e # T f#>TC6SC\\DC\\F6%#?TC-SC\g;6\a $VTC-CSNNS6C\g;6\aP%  C TMPERRTEST C TMPERRTESTN  ~$ pr_errtest $ TNC El artculo C C C no tiene frmula !!!Q%% T%CKP 4%! Kl%%CKP h%! K' T T T.%SS 6S \] %%&& Tpr_cie_confirma( =& T%&TCHs&& &%& C T  & T 2& T%CKP '!H8'x' X' TI x' TI!H' (  (%C TMP_Form_Ree'FQ%CC' FCQCAC BIU XTIPO_CIERREXRAPIDO XRAPIDO_PROD XRAPIDO_CANTXRAPIDO_BATCHCIE XRAPIDO_ID XRAPIDO_TURNOXRAPIDO_FECHA_CIERRE XRAPIDO_FINAL SET_PROCSP_LOCAL ACTIVEFORM DATASESSIONID CHK_VALUE P_PR_TURNOBORRAR XTABLACREADAXFECHAXRESXCODIGOOBIEDATA_CODIGO_VACIOXBULXATRXFORMULA XCANTIDAD XCANTBAJA XCANTIDADAXNUMPRODXSUBXIDXLOTEOLOTXVENCXDESCR XDEPOSITOXDEPINGXBUL_LXATR_LXDESCARTXCODINS XDESCART2XREMITO XNOTA_PROD XENTRADASXCOMFXCOMHXCOMMXFINFXFINHXFINMXFECCOMXFECFINXTURNOXDEFXOLDID XINTERMEDIOXSEMIXACCSEMIXPECIEXPE XFULLDESCXBULUM XMAXPALLET XARR_PALLET XFORM_PATHNEWFILE_LOCAL_TMP XFORM_ALIAS OPEN_FILES PR_ORDENESCLASESLISTADOSXOLDOPNXRESULTADO_CIERRESYS_MXFORMXMAXFORMPR_CIE_NUMERO_OPXRESP VALIDA_OPNWIZARDMENSAJEPR_GET_FORMULACCFORMULPECIE_OBTENER_FORMULAS_USADASFORMULASFORMULABULTOSCODIGOBIENESCODINSPRODUCCIMULTIPLEXMEDIDAXMEDAUXMEDIDASDESCR XOLDCANTIDADPR_CIE_CANTIDAD_1XIDXENV OBTENER_SEMISEMIOPATRXCANXREAXPRDXACCCANXFORXPESZAAAMEDIDA ARR_CANT_OLDPR_CIE_CANTIDAD_2NOTAPRODXCIE_FIN XERROR_FINAL XCIE_PARCIAL CIE_PARCIAXLABELP_LOTES_PREGUNTAP_PR_PE P_PR_TIEMPO P_PR_REMITO XOLD_PECIEPR_CIE_DETALLES TMPERRTESTIDXOK XLUSALOTESXSMXSM1XSM_M CREAR_BORRARP_PR_CIERRE_STK TEST_ARTICULOPRODP_PR_MUESTRA_ERR PR_ERRTEST P_PR_CIE_TEOXCANTCANTIDADREALSTKCOMPPRODAPL XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKCODBULP_PR_DESGLOSE_CONSUMOS ITM_COUNTITEMITMCANTOTALLOTESUNIDUNIFACTORSMSM1SM_MDEPOSITODEPDESVIOOKTIPINDICEFORCOMPLETA_FALTANTESXBORRARPR_CIE_CONSUMOS_PREVXOKNEGPR_CIE_CONSUMOS_ADICXOK1P_DEV ATRIBUTOSATRIBUTO XACC_INGRESOS XACC_CONSUMOSXMERMA MERMACTRL OBTENER_MERMAPR_CIE_CONFIRMAXRES_REG REGISTRARP_PR_IMPRIME_CIERREIMPRIMIR_FINAL TMP_FORM_REE CHK_DELETED@F G((prod E%C4 %  % CHa sido anulada !!! B  B TT T  T T TTTTT(TC 6T B 5%C4*CProblemas con los ndices !!! B 17C*Produccin no encontrada o inexistente !!! BBUPRODUCCIPRODXNUMPRODPENDFORMULAMENSAJEXCODIGOCODIGOXBULBULXATRATRXFORMULA XDEPOSITODEPOSITOXDEPINGDEPING XCANTIDADCANTIDADREALXLOTELOTEXVENCVENCXPEPEXPECIEPECIEXESTADO_ANTERIORESTADOG+(dey_func %Cborrar  ?% h%CborrardFQTCTFLh1N C C C C NNC2CCCCCCC2CCNNNNNNC N!N"N #N $N%N&N'N(D)CQ&  *& & C"ZC#Z#G(( rF"> ! TaBU,DEY_FUNC XTABLACREADABORRARXTMPPATHNEWFILE_LOCAL_TMPXBILENOBIEDATA_CODIGO_LARGOTIPOKCODBULATRCANDESVIODCODDBULDATRBULTOS ATRIBUTOSLOTESSERIESDESCRDESPACHODEPOSITOTOTALORIGINALAREASIGINDICEITMUNIDUNIFACTOR FALTANTESITEM ITM_COUNTDISPOSMSM1SM_MVENCADVCODIGOALL#%Ccomppaux .Qcomppaux T T% )listados .listados  T  T  T  trsac stockstkxdepstkxdspproduccimovstockcompprodcomppauxprodstoppr_cie% T pr_cierre.PRG!TCierre de Produccin T trsac T CR C% * T  BT trsac Hs    %    TCZ/CZTpC% $ C%LC%Se ha cerrado la Orden de Produccin CC@z 9999,999,999_  T   T  2C Error !!! T   T  B U!COMPPAUXXMEDIDAXMEDAUXPRODUCCIMULTIPLEMEDIDASLISTADOSXCODIGOXBULXERRORXOKAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN WRITE_DATA UNLOCK_ALLEND_TRAN TTS_ERRORXCOMPROBXNUMPRODXSUBXCAUSAUSER_LOG PUB_INDEXP_PR_STOCK_MINIMOP_NOTIFICAR_STKMIN_X_ITMANALIZAR_STOCK_MINIMOXRAPIDOMENSAJETTS_ID5%CxturnobN) T%CxmalasbNV T T-R,: Aguarde..."% S <1ostkxdepC   "TC C6F%xFC9No admite ms de 999 cierres. Consulte al programador !!! T BTp>NCS6#%C producci.notabM2>C  T!%%C" C# C" F$G((batchcie#6T#%F$%  &T&remCCZrepl &zz with xremito T&cieCCZrepl &zz with xfecha ' T(%)I T*+('T,reaCC+Z#repl &xvar with &xvar + xcan(z) T**C+-:C C producci.bulCC+Zbultoscodigo&T((C+-C+./0>11* T'* q>112 T'2%3% 4F G((deposito E4% 5S>67rpr_cie%89:;<=#">!C??C$6'(%)F$+(T,pesxbulCC+Zreplace &xvar with xpes(z) F>@@V>ABCDEFGC??C$6HIJK TLa TM TN TOT CQP TRS TST TUVFW ~ %WXWY TOOWXTVWXWY TZVTNN% W[wTRRZ%CW !CSin depsito (1) !!! B T\ T] T^l_proc_stkW[WaWbW ZcPC>Z/C!ZcN1Wd%]zC^ Brcompprode[abfghieW[WaWbVc!WgNW TjjZ"% S Tke %-F FlGI"Kek[  (ZGI TNN%C !CSin depsito (2) !!! Bgmproc_stk    ZcPC>Z/C!ZcN1  nTnQToproducci9e1Qntmp_compensaciones(p%p q Tq TrFo ~ Tso9FtZ/C!ZcN1   TTS%) %C tmp_form_res O%CForm_Res Qform_res:oform_res|}|}~ tmp_form_res TaFC (%Ir tmp_form_resbaT2F ~uF T Ta Tb T%> T aT2} %FG((codins E%S% Tal in_despacho-cN>%C4d!CSin depsito (4) !!! BTNNZmproc_stk4PC>Z/C!ZcN1%) TCRC>CS6!CS6%C?C>CS6! q TRC>CS6!CS6%Cm?C>CS6! "%NUV S F>1@ +(%C+-bFG((codins ET%S Tas in_despachoTC+-cN>%C4!CSin depsito (5) !!! BTNNhmproc_stkTC+4C+-PC>Z/C!ZcN1SC>T 'CS6!CS6%CT @C>T 'CS6!%?%C ;%CC7Ft G((codE ab%C4 3%Cdespacho QdespachoFdG((despacho5~dab ab/d%]FQ C% +(%C+FG((armadoEC+.+C+ C+   >HR BUXTURNOXMALASXTMP_FORM_RES_CERRARPRODUCCIENVXDEF ARR_PR_SEMISUMCANTIDADSTKXDEPCODIGOXSEMIDEPOSITO XDEPOSITOXCANTIDAD_MAXIMA_POSIBLESUBMENSAJE TTS_ERROR XOLD_LOTELOTEPENDESTADOXLOTEVENCXVENCPECIEXPECIEREMITOXREMITOENTRADAS XENTRADASNOTAPROD XNOTA_PRODXSUB XRAPIDO_IDXRAPIDO_BATCHCIEPR_CIEBATCHCIEZZXCANTIDAD_TOTAL XPESOSEMIMULTIPLEACCREALZXVARXCANXPESBULTOS CANTXBULTREAL XCANTIDADP_IN_CALIDAD_VERSIONXDEPINGCALIDAD CAL_APROB CAL_PRIORIDCIEPRODINDICETURNOFECHAPESOXNUMPRODXFINFMALASCOMFXCOMFCOMHXCOMHCOMMXCOMMFINFFINHXFINHFINMXFINMFIRSTNEWTRFXITXCONTROL OBTENER_SEMISEMIOPXACCSEMIXCODIGO_PRODUCCIONXCODIGO XACC_COSTO XCANTBAJAOBORRARCANDESVIO XCANTBAJACODSTK_TSTSTK_ERRSTK_MSG ACT_STOCKPROC_STKBULATRXFECHADESPACHOIDNCIERRESUNIITMDEP XACC_CONSUMOSXIDPRODCOMPPROD REG_STOCKXSEMIOPTMP_COMPENSACIONES MAX_ABIERTASXCANTIDAD_ENVASADAXCANTIDAD_ENVASADA_TMP XTMP_PRODMOVSTOCKARR_SUMANUMEROCAUSA$XCANTIDAD_PRODUCIDA_DE_SEMIELABORADOP_PR_COMPENSACION_PERXSALDOFORM_RESFORMULACCFORMULMULT_RES TMP_FORM_RES XTMPRESCOUNTCOD_INSTIPOXATRXBUL XTMPRESCOD XTMPRESBUL XTMPRESATRXTMPTIPO XTMPCANTIDADBIENESCODINSLOTESXRES ALTA_LOTE IN_DESPACHOXLITROS FN_LITROSPR_AGREGAR_MENSAJE_CIERREES_PRODUCTO_TERMINADOP_EMPP_PR_ALTA_LOTEINGUARDAR_DATOS_STOPS P_PR_PALLETS XMAXPALLET XARR_PALLETARMADO PROCESADO%C TMP_StopsFmrprodstopo tmp_stops C C U PRODSTOPOPE_IDUSTOP_CODTIEMPOORDENPRODCIERRESTOP_MINXNUMPRODXSUB TMP_STOPSCG+( pr_ordenesG+( pr_funcionesG+(dey_funcBU PR_ORDENES PR_FUNCIONESDEY_FUNC%C TMPFMULTI,FQ  T- T-%a(% r tmpfmultioHQ #TC producci.forCCZ#T C producci.canCCZ QTC T C %  C  %C TMPFMULTI o- tmpfmulti Ta Ta C  T-%P Fro tmpfmulti T C  UXVUELTA TMPFMULTI XINITMULTI XAPPMULTIPRODUCCIMULTIPLENIT XFORM_ALIASXFORMULA XCANMULTIXFORXCANPR_GEN_FORMULA_USADAXNUMPROD XFORM_PATHx8pr_sql_produccionesa+Q\TMP\rpt_pr_producciones3Q \TMP\rpt_pr_producciones_consumo 5F"TCC@z 999,999,999_2T [ C  C  C  ]  T TC*TC* TC@z 999,999,999_ TC@z 999,999,999_ TQ TT pr_cierre.frx T T TT.t.%%C\CPBT\C 0TC F!Q"listadosaaaaaF!QU$EJECUTAR_REPORTEPR_SQL_PRODUCCIONESXNUMPRODP_LOCALZOPZDESCRRPT_PR_PRODUCCIONESZNUMEROOPZARTCODCODIGOATRBUL ZARTDESCRDESCR2ZFECHAFECHA ZFECHACIEFECHACIE ZCANTIDADOBJCANT_OBJ ZCANTIDADREALREALZLOTELOTEXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVO XFILTRODATOSP_SERVERP_EMPRPT_PR_PRODUCCIONES_CONSUMOIMPRIMIR_FORMULARIOLISTADOSH'%CSysmsg YQ \sysmsg =T CMensaje_produccion Mensajes.vcxa T T T T T T T T T  UXPRODXCODXBULXATR XCANTIDADXESTADOXSUBXLITROSXSUBTIPOP_SYSTEMOMSGMSG_LEER MSG_SUBTIPODAT_PRODUCCION DAT_CIERRE DAT_COD_INSDAT_BULDAT_ATR DAT_CANTIDAD DAT_ESTADO DAT_LITROSOBJ_AGREGAR_SUCESOe T% U,TC 6 BUXLITROSPRODUCCIMULTIPLEPECIEREAL%C TMPERRTEST BF ~FC-   %C4> 3C&Error !!! Avise al soporte tcnico !!! BU TMPERRTESTBORRARCODATRBULCOD_INSITMITEM FALTANTESCANTIDADMENSAJEL%C TMPERRTEST 'BF ~A TF T-~% T  >  > T! TCO% 6F #> FBU XCANTIDAD TMPERRTESTCANTIDADBORRARXLASTCODATRBULCOD_INSCAN FALTANTES4 TCWF TCC+C CO6F%}- TC4  Ta% T  T% # F BUXSEMIOPXAREAXCODXENCPRODUCCIXREGPRODCODIGO4FG((comprob<~C C Z/ 0C Z/999% T TTC  T TF ~w%sT%^TT"%  S T FGI"K (GI %T%  I%ET (%CTCT dBU XACC_INGRESOS XACC_CONSUMOSXMERMAXSEMIXACCSEMI XACC_COSTO XCANTBAJAXIDPRODMOVSTOCKCOMPROBNUMEROCAUSAPRODUCCIPRODCODIGOCANTIDAD OBTENER_SEMISEMIOPBORRARCANDESVIOCODENVXDEFIDCOMPPRODMULTIPLE XCANTIDADZXCAN4%"obienes% kBC |B- BUXCODATRXBULBIENESCOD_INSTIPO_ART ARR_BIENES%C tmprevmin"QoborrarCQ    tmprevmin, pr_informar_bajo_stock_minimo %C tmprevminQBU TMPREVMINBORRARCODBULATRDESCRCANDESVIODISPOSMSM1SM_MALERTA_STOCK_MINIMOXNUMPRODPR_INFORMAR_BAJO_STOCK_MINIMO valida_opn0 crear_borrar=3 registrar#8 write_data=guardar_datos_stopsZ set_procs[cie_obtener_formulas_usadas]\imprimir_final_pr_agregar_mensaje_cierrec fn_litrosecompleta_faltantes`fcompleta_faltantes_oldg obtener_semiRi obtener_mermajes_producto_terminadojnanalizar_stock_minimoLoq"AA"AA"A!AaAA1A1A1AArqAAr111BQ!212A2A1AA1A1A1A1A1AA1rrr2"22ABbAACr1r3r!dBA2r!AAAAABAA25A2bbAABaAABABA2ABBAAqAA2b#qrqA1AAA!AqABA!AAAubaqt1"q A AABqArrQcAAA2rQsr2AqaAAAAAA2r2AqdtrAqAAArqq1qAAqq1qAAqAARrqAAA!qrB!A1AAAqAaA!AAA2ABAA2AA23B4A211AAAAAAA11ABB1qAAAA!A2qAAqAqAAC2!qqAAArr@$acq%AB3AA1A3T2AAA2A11aAA2AAr[#w"ArCaA 31ASrQAuBAs"1abBA2bqAruAA""qAArgEsqtAbABA4BBBB+sa!aA}rD2urrva"ABvrwa"Au3A}BAAC2AAAqq1Aqq2A1srAAE1!A!ABA"qAsr1AAE8ADA3&rsAAqQAAAAAsAArAAAAAR4qA3Aa!A2qqAA!aA1111!!AAAAAA21r!!AR1AqqA3qAq3"A2AArq11ABB2qAArr1AAAqArAB2qrr1AABA4vraAAJrbABB%sa!a2BB22BcBBAB2a!!!qAA3AAB2X\,`}E`-fCfymJm;[Q2r9?*,vlFCXdj`)oL8t2%+AHgCGE$Kz74    %CxabmbL^ T%C xminbatchbN T %CxstkminbN T   T  T*T!inlist(bienes.grupo,1,2,3,5) C%Cvbul9FQ4obultos1 \tmp\vbul%CN% *CNo tiene bultos asignados !!! d<CN T ~`TTTT2T%!inlist(atributo.clave, [SU ], [VEA]) CFG((codins E T %C!5" T"-+CPr_planificar_nuva. Suspendo?a#Cpr_planificar_nuva2(%     T%"F&'otabla'' TMPCOUNTID% B-F& T)%%*)  C+ B)U,XCODXATRXBUL XCANTIDAD XAPERTURAXABMXMAQ_IDUXCANTIDAD_MENSUALXMESES_PREVISTOSXAUTO XSIN_MENSAJES XMINBATCHXSTKMIN XATR_AUTO XBUL_AUTOXFILTRO_OTROS_COMPONENTES OPEN_FILESVBULBULTOSDESCRCOD_INSP_LOCALMENSAJE ARR_BULTOSZCLAVE CANTXBULTXFILTRO_COLORESTABLAS_AUXILIARESBIENESCODINSXBULTO_X_DEFECTOBULPLANIFICACION_CARGAR XTMPPLANRESSYS_MOSTRAR_SCREENPR_PLANIFICAR_NUVA2XRESTABLAID TMPCOUNTIDXPLAN_IDCREAR_PLANEAMIENTOSTABLAS_AUXILIARES_LIMPIAR4H 8 BNuva W BVea xBColor 2 BUXXX4H Nuva8 B VeaW B Colorx B 2 BUXXX4H 7 B24  V B24  r B 2 BUXXXXBUL4H 7 BSU  V BVEA u B 2 B UXXXa4#  T cG+( pr_maquinasG+( pr_funciones%Cplan_maq Qplan_maq%Cplan_mad Qplan_mad%Cmaquinas Qmaquinas%C VT CCT  T CTC Collection]otablaCQScanProd C F>C]CFG((*otablaCQ#TMPCBULF#)!TCSCANPROD%T T%$#T&%otablaTMPCCOD% T&(T)(TC Collection8otablaCQ*) TMPtablaAtr>*>F+ ~T-C TMPtablaAtrO TC TMPtablaAtr.C/F+ #-FE>+ )+) F+*>C TMPtablaAtr0F+ #-C1C2C3'%&)&) C4C5 L!CK_CZ/(6ZU7XPLAN_ID XOLD_PLAN_IDUXAUTOOMAQOMADOCOLLOCOMAONMAQ XTMPMAQUINAXTMPOMAQ XORDENMAQ PR_MAQUINAS PR_FUNCIONESPLAN_MAQPLAN_MADMAQUINASMAQ_GET_OBJ_PLANORDENMAQUINAPLANIFICACION_BORRARIDCOD_PLANATR_PLANBUL_PLANCANTIDADFORMULAMAQMADIDUFORCOLORTABLASCANPRODRECALCULAR_CANTIDADESFORCOUNTMITMTMPCBULCREAR_PLAN_MAQBULDISTINCTTMPCCODATRCANTSUM TMPTABLAATRALLXRNCREAR_PLAN_MADADDGUARDAR_PLAN_GENPLANIFICACION_GUARDARMAQ_UPD_OBJ_PLANMAQ_UPD_OBJ_PLANDNUV_COMPROMISOS_GUARDARNUV_COMPROMISOS_SURTIDO_GUARDAROEXd U XIDUFORIDUPLAN_MAQPLANPLAN_MADPLAN_GENCOMPPLANMAQPLAN_NUV pr_maquinasF ~5%9C -NFBU OMAQPR_MAQ_SURTIDO_TABLAS PR_MAQUINASIDUTMP_RESCONSUMOSCOD_INSBULATRMAQ_COMPROMETERCANTIDADG+( pr_funciones%CCOMPPLAN KQcompplanTDDTEETFFT GG(C  T a T TC  FT~$+C+   FTC T T3C-  T FBUOMAD PR_FUNCIONESCOMPPLANFORIDIDUXPATH_FXALIAS_FXPATH_GXALIAS_GPR_GEN_FORMULA_USADAFORMULAPLANFIRSTNEWTRFXITPR_GET_FORMULA XCANTIDADCANTIDADXCANTCCFORMULXXCANTMAQ_COMPROMETERCODCOMPBULCOMPATRCOMPTIPO_APLADICUNIDCOMPF ~CTd TTd T d T  F->   UTABLAPR_GET_FORMULAFORCOLORXPORCMTPMASTERXPORCMPXPORCMP1MP1PXPORCMP2MP2PXCANTRCCFORMULPESO CALC_MASTECALC_MP1CALC_MP2  F ^J%C TMP_sel_form[FQfoformulasQXbienesQ   Q  TMP_sel_form#C#C#C#C#C  !""(T!CC"ZICC oTabla.cod!CoTabla.C!C oTabla.Cant!U#XALIASOMADOTABLAFORCOMBINAIDUPLAN_GEN TMP_SEL_FORMFRBIGRUPOBIE_GRPFORMULASBIENESCODCOMPCOD_INSFORMULAGUARDAR_PLAN_GENEXMP1MP1ATRCALC_MP1MP2MP2ATRCALC_MP2MASTER MASTERATR CALC_MASTEBOLSABOLSAATRBOLSACANETIQUETAETIQATRETIQCANXENCANITp%C3B-%CXT F%- -%C4i(C   rplan_gen     UOMADXGRUPOXCODINSXATRXCANTXBUL TMP_SEL_FORMCODCOMPBIE_GRPPR_GEN_ANALIZAR_HERENCIABULCOMPATRCOMPPLANCOMBINAGEN_CODGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANCAN_TIPIDUCANTIDAD@G+( pr_funcionesBCUXFORMULAXRET XTMPMAQUINA PR_FUNCIONESPR_SELECCIONA_MAQUINACCFORMULFORMULAG+( pr_maquinasG+( pr_funciones F ^J"C    TCC C TC%C(TCC]TTTTTcT T T TT !T""T##T  C$ BU%XALIAS XTMPMAQUINAXAUTO PR_MAQUINAS PR_FUNCIONESOPRODOMAQONMAQ OMAQEXTRAPR_GET_FORMULACOD_PLANBUL_PLANATR_PLANFORMULAMAQ_GET_OBJ_MAQSELECCIONA_MAQUINACCFORMUL PR_GET_BIENESMAQ_GET_OBJ_PLANMAQIDUCICLOBIENES CAVIDADESSETUPMAQUINACODIGOORDENCOD_INSBULATRESTADO CAN_TOTALCANTIDADDEPBAJADEPINGMAQ_SET_OBJ_EXTRA_ G+( pr_maquinasG+( pr_funciones  F ^JTC%CTCC]T T  T  T  T  TTTTT BUXALIASOMAQ PR_MAQUINAS PR_FUNCIONESOMADOTABLAMAQ_GET_OBJ_PLANDMADIDUPLANCOD_INSBULATRCANTIDADESTADOFORMULAFORCOLORDEPBAJADEPINGCANTXBUL%Cbienes *Qbienes%Cbultos XQbultos%Catributo Qatributo%Cplan_nuv Qplan_nuv%Cplan_dia Qplan_dia%Cform_maq Qform_maq%Cplan_gen RQplan_gen%CCOMPPLAN QcompplanBUBIENESBULTOSATRIBUTOPLAN_NUVPLAN_DIAFORM_MAQPLAN_GENCOMPPLAN%Cmatpri"FQgobienes QCXQ-Q1 \tmp\matpriF& %C pigmentosF Q|obienes QCXQ-Q Q 1\tmp\pigmentosF & %Cpig_colF Qo pigmentosQ XatributoQ     Q  -Q-Q C   1 \tmp\pig_col TF & & & & H& "& C016 &.& C016C Z C%CbolsasVFQ[obienes Q-Q1 \tmp\bolsasF& %C etiquetasFQdobienes Q-Q1\tmp\etiquetasF& %CcoloresFQeSELECT clave , DESCR , .F. AS repartir , 000000 AS cantidad , SPACE(15) AS MASTER , SPACE(40) AS dmaster , 000.00 AS PMaster , SPACE(3) AS MasterATR, 00000000000000.0000 AS MasterSTK, .F. AS MasterLOA, SPACE(3) AS bul , SPACE(15) AS etiqueta , SPACE(40) AS detiqueta, SPACE(3) AS etiqatr , 00000000000000.0000 AS EtiqCan, SPACE(3) AS c1 , SPACE(15) AS cod1 , SPACE(3) AS bul1 , 00000000000000.0000 AS cant1, SPACE(3) AS c2 , SPACE(15) AS cod2 , SPACE(3) AS bul2 , 00000000000000.0000 AS cant2, SPACE(3) AS c3 , SPACE(15) AS cod3 , SPACE(3) AS bul3 , 00000000000000.0000 AS cant3, SPACE(3) AS c4 , SPACE(15) AS cod4 , SPACE(3) AS bul4 , 00000000000000.0000 AS cant4, SPACE(3) AS c5 , SPACE(15) AS cod5 , SPACE(3) AS bul5 , 00000000000000.0000 AS cant5, SPACE(15) AS Bolsa , SPACE(40) AS dBolsa , SPACE(3) AS BolsaAtr , SPACE(3) AS BolsaBul , 00000000000000.0000 AS BolsaCan, .F. AS marcar , 0000 AS cantxbul, 00000000000000.0000 AS stock, 000000000 AS forcolor FROM atributo ORDER BY DESCR WHERE cod_ins=xcod .AND. &xfiltro_colores INTO TABLE (p_local+"\tmp\colores") READWRITE Q \tmp\coloresCcoloresF#)%Ctablae FQF( \tmp\tabla-FQ \tmp\tabla& & & %C envaseatr F Q%CMP1Atr# F!Q%CMP2AtrI F"QGoatributo Q-Q- envaseatrDoatributo Q-Q-MP1AtrDoatributo Q-Q-MP2Atr%C MasterATRA F#Q|o pigmentosatributo  Q-Q 1\tmp\MasterATRF#& %Cetiqatr F$Qo etiquetasatributo Q-QS 1 \tmp\etiqatrF$& %Catr1 F%Q%Catr2 F&Q%Catr3 F'Q%Catr41 F(Q%Catr5U F)QHoatributo Q-Q-atr1Hoatributo Q-Q-atr2Hoatributo Q-Q-atr3Hoatributo Q-Q-atr4Hoatributo Q-Q-atr5BU*MATPRICOD_INSDESCRSTOCKDSTOCKSTK_LOADBIENESGRUPOP_LOCAL PIGMENTOSCOSTOPIG_COLPGAT2CLAVE AGRUPACIONPREDETATRIBUTO XORDENPREDETPREAGRUPR_COSTO_PIG_COLBOLSAS ETIQUETAS ATRIBUTOSCOLORESPR_NUV_CALCULAR_STOCKXCODTABLAPLAN_NUVMAQMADIDU ENVASEATRMP1ATRMP2ATR MASTERATRETIQATRATR1ATR2ATR3ATR4ATR5'TCdeyfunc dey_func2.prgC \tmp\matpri"C\tmp\pigmentos C \tmp\pig_colC \tmp\bolsas"C\tmp\etiquetas C \tmp\coloresC \tmp\tabla"C\tmp\MasterATR C \tmp\etiqatrCATR1CATR2CATR3CATR4CATR5CvbulCvatrBUODF CHK_DELETEDP_LOCAL CHK_CLOSEDpqplan_nuv}(>rplan_nuvotablaUXMAQIDUXIDMAXPLAN_NUVMAQIDALLTABLAY % $ %rtablaoplan_nuv #)UXMAQIDUXNOVACIAALLTABLAPLAN_NUVMAQFG((Costo1opig_colC  TMPPredet ~F'-CMT0001 >aFUPIG_COLCOSTO AGRUPACION TMPPREDETCOD_INSPREDET TaF~b0T CMaster .TCEtiqueta a )TC   a )TC   a )TCa )TCa )TCa F T BUXVALIDOXOKCOLORESMARCARVALIDAR_GENERICO_ATRMASTER MASTERATRPMASTERETIQUETAETIQATRCOD1C1COD2C2COD3C3COD4C4COD5C5%C 6Ba%C% HC/El siguiente componente no puede ser genrico:  !!!B-!%C-aa A% 6PC7Debe seleccionar el atributo del siguiente componente:  !!!B-*%C xCantidadbN % PC7Debe seleccionar la cantidad del siguiente componente:  !!!B-U XCOMPONENTEXCOD_INSXATR XCANTIDAD XNOFORZARPR_BIE_GENERICO XSIN_MENSAJESMENSAJEPR_COMB_ES_VALIDA2 G+(dey_funcCCalculando stock%CxTablabCgTCCf ~ T5TC]G+(proc_stkH}\ CMP1ATRMP2ATR ENVASEATRCOLORESATR1ATR2ATR3ATR4ATR52CClave' C MASTERATRETIQATR}$CCod_InsClave CU XTABLAXCOD_INSDEY_FUNC MENSAJE_WAITXIDPROC_STKPR_NUV_CALCULAR_STOCK_APLICAR1PR_NUV_CALCULAR_STOCK_APLICAR2 MENSAJE_CLEARSELECT &xTabla ~SELECT &xTabla 5xPre=obtener_Stock(0,xCod_ins, &xClave, SPACE(3)) SELECT &xTabla >UXTABLAXCOD_INSXCLAVEXPRESTOCKSELECT &xTabla <SCAN FOR &xCod_ins=xCod_InsActual AND NOT stk_loadSELECT &xTabla 6xPre=obtener_Stock(0,&xCod_ins, &xClave, SPACE(3)) SELECT &xTabla > >aUXTABLAXCOD_INSACTUALXCOD_INSXCLAVEXPRESTOCKSTK_LOADfn_marcaM fn_unmarca fn_marca_bul fn_marca_atr*crear_planeamientosPlanificacion_Borrarnuv_Compromisos_surtido_Guardar?nuv_Compromisos_GuardarnRecalcular_CantidadesGGuardar_plan_genGuardar_plan_genEXselecciona_maquina1crear_plan_maqcrear_plan_madL open_files`"tablas_auxiliaresC$tablas_auxiliares_limpiar4planificacion_guardar6Planificacion_cargar97Pr_Costo_Pig_Col7Validar_Selecciones8Validar_Generico_Atr:pr_nuv_calcular_stock=pr_nuv_calcular_stock_Aplicar13?pr_nuv_calcular_stock_Aplicar2@qAAARqAAA"Aq!AA"r2At2qq"qAu1A3q111A2qqaA2q111A4q111A32RaAAAAAA'aBrrarQbAR!11AqqrrTrsAqAAA5q!!!!!3qrQAqAB2qaAAS12AB1q1ArC2SqAAe41111A3qAAq1A6 A2a2Qa1"BA111A11111111#3QaDAA1111111114!A!AAAAAAAAAAAAAA2qqAAqqQqAAqQqAA qQA1!1ArqAArQqAAAqQqAAQFqQbqAArqAAqqAAqqAArAAqAAqQqAAqQTqAAQqAAQqAAQqAAQqAAD1qq!!!AAAAAAAA2qqAa2AR3qqqAr3qqqqA3qqAAAqAAqAAqA2!Ar!qAA3q!!Q!A21q!!a!A1>_eJv rV. b n "LK(7Z!m!Q%y%u((4)X)i-9-$0OH01i2H%IlKKLLM MO#OR5(RkUH?UW`R*XXw\'YLZ %d&_X* )%Cxexplosion_surtidosbL4 T-%X T T T-%H  TC TC 2C ERROR !!! 1 Ta  d T 5 T a%  T  % (C 1 G("sql_rptinventarioactual CT  c\tmp\rptinventarioactual.dbf(\tmp\rptinventarioactual_CC Z.dbfDT \tmp\rptinventarioactual_CC Z.dbf T -TC (C 1 G("sql_rptinventarioactual %-( %QC )(\tmp\rptinventarioactual&Q\tmp\rptinventarioactual  C   QC ( QC FHy  X&  !FG-( >"""###$$$%%%&&&'''((()))***+++,,,---...///0atotabla2Q2XtablaQ3 222 333 2C31 \tmp\sql_joinQF \tmp\sql_join  &  4!FG-( 4>"""###$$$%%%&&&'''((()))***+++0aotabla2Q2XtablaQ3 222 24333 342C31 \tmp\sql_joinQF \tmp\sql_join  &  45!FG-( 45>"""###$$$%%%&&&'''((()))***+++0aotabla2Q2XtablaQ3 222 2425333 34352C31 \tmp\sql_joinQF \tmp\sql_join  $& C6Z 45!F%G-(C6Z 45>"""###$$$%%%&&&'''((()))***+++0aotabla2Q2XtablaQ3 C26Z222 2425C36Z333 34352C31 \tmp\sql_joinQF \tmp\sql_joinFQF)(\tmp\rptinventarioactualQ  C T -BU7XEXPLOSION_SURTIDOS XDCONSOLIDADOXDCONXZAFAROCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJEARR_CONSOLIDADOMAXARR_CONSOLIDADOXOLDEMPXPRIMERA_EMPRESAP_CODEMPOEMPDOSGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCEN OPEN_FILESSQL_RPTINVENTARIOACTUALPROCESARP_LOCAL GET_PORCODIGOZTABLATABLA2XDTIPCODIGOATRBULIDCANTIDADCANT_COM DISPONIBLECANT_PEDOCOPPLNDISP1DISP2TOTALACOMPRARSOLUXDIA VENTASXPERSELECTEDALLT2T1DEPOSITODESPACHOEMPiTCC]R%Cproveedo JQproveedo%Cmarcas xQmarcas"%C X C X FG((abrev E T E TF%C 2T %bienes.cod_ins#oBie.data_codigo_vacio% m*T  .and.xdbie=bienes.cod_ins%CX(T  .and.xdbul=bultos.clave%CX*T  .and.xdatr=atributo.clave"%C X C X \ET  4.and.xdcue<=bienes.cod_cue.and.bienes.cod_cue<=xhcue% AT  0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin% "AT  0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgru"%CX CX ET  4.and.xdcos<=bienes.cod_cen.and.bienes.cod_cen<=xhcos%C C 9T  ( and between(bienes.cod_pro,xdpro,xhpro)%C C C=T  , and between(proveedo.cat,xdcatpro,xhcatpro)%C (T   and bienes.marca=xdmar T C 2T  ! and !inlist(bienes.tipo_art,5,6) SELECT p_codemp AS emp , bienes.cod_ins AS codigo , IIF(ISNULL(atributo.clave),SPACE(3),atributo.clave) AS atr , IIF(ISNULL(bultos.clave),SPACE(3),bultos.clave) AS bul , ALLTRIM(bienes.DESCR)+" "+IIF(ISNULL(atributo.DESCR),"",ALLTRIM(atributo.DESCR))+" "+IIF(ISNULL(bultos.DESCR),"",ALLTRIM(bultos.DESCR)) AS DESCR , bienes.linea AS linea , NVL(lineas.DESCR,SPACE(30)) AS lineadescr , bienes.marca AS marca , NVL(marcas.DESCR,SPACE(30)) AS dmarca , grupo AS grupo , NVL(grupos.DESCR,SPACE(30)) AS grupodescr , ' ' AS agrupado , bienes.PRODUC AS PRODUC , bienes.venta AS venta , bienes.compra AS compra , bienes.tipo_art AS tipo_art , bienes.barras AS barras , bienes.dun AS dun , bienes.pesoxu AS pesoxu , bienes.codalt1 AS codalt1 , bienes.cod_pro AS cod_pro , NVL(proveedo.nombre, SPACE(40)) AS proveedor , (bienes.est_act<=1) AND ((bienes.bultos="S" AND bultos.activo#"N") OR (bienes.bultos#"S")) AND ((bienes.atributos="S" AND atributo.activo#"N") OR (bienes.bultos#"S")) AS activo , NVL(proveedo.cat,0) AS cat , IIF(bienes.atributos='S', atributo.surtido,0) AS surtido , {} AS fventa , 00000000 AS dventa , {} AS fcompra , 00000000 AS dcompra , {} AS fant , 00000000 AS dant , .F. AS SELECTED , bienes.ubicacion AS ubicacion , IIF(bienes.bultos="S", IIF(ISNULL(bultos.medcod) ,0000000000,bultos.medcod) , bienes.medcod) AS medcod , IIF(bienes.bultos="S", IIF(ISNULL(bultos.medauxcod) ,0000000000,bultos.medauxcod), bienes.medauxcod) AS medauxcod , SPACE(40) AS dmed , SPACE(3) AS dmeda , SPACE(40) AS dmedaux , SPACE(3) AS dmedauxa , IIF(bienes.bultos="S", IIF(ISNULL(bultos.factor) ,1 ,bultos.factor) , bienes.factor) AS factor , SPACE(3) AS unidad , bienes.ncm , NVL(bieaux.origen, SPACE(20)) AS origen , IIF(NVL(bieaux.ad_lic,0)=1, [LA ],IIF(NVL(bieaux.ad_lic,0)=2, [LNA],[ ])) AS ad_lic , PADR(NVL(bieaux.ad_not,SPACE(250)),250) AS ad_not FROM bienes LEFT OUTER JOIN bultos ON bienes.cod_ins=bultos.cod_ins LEFT OUTER JOIN atributo ON bienes.cod_ins=atributo.cod_ins LEFT OUTER JOIN lineas ON bienes.linea=lineas.codigo LEFT OUTER JOIN grupos ON bienes.grupo=grupos.codigo LEFT OUTER JOIN proveedo ON bienes.cod_pro=proveedo.cod_pro LEFT OUTER JOIN marcas ON bienes.marca=marcas.codigo LEFT OUTER JOIN bieaux ON bienes.cod_ins=bieaux.codigo ORDER BY bienes.cod_ins,atributo.clave,bultos.clave WHERE &filtro INTO CURSOR tmparticulos READWRITE %So tmparticulosQXcomprasQ  %  CC !Q" tmp_compra& 'o tmparticulosQXventasQ  %  CC (Q) tmp_venta& 'F#G-(+G-(&>>)+),C$+)"&"-C$&"G-(Q+Q&T .t."%/CX 0CX /T "betw(stkxdep.deposito,xddep,xhdep)%1+T   and deposito.vendible=[S] SELECT tmparticulos.codigo AS codigo , tmparticulos.atr AS atr , tmparticulos.bul AS bul , tmparticulos.linea AS linea , tmparticulos.lineadescr AS lineadescr , tmparticulos.grupo AS grupo , tmparticulos.grupodescr AS grupodescr , tmparticulos.marca AS marca , tmparticulos.dmarca AS dmarca , tmparticulos.codalt1 AS codalt1 , tmparticulos.unidad AS unidad , tmparticulos.agrupado AS agrupado , NVL(stkxdep.deposito,SPACE(8)) AS deposito , NVL(deposito.DESCR,SPACE(40)) AS ddeposito , NVL(stkxdep.cantidad,0000000000.0000) AS cantidad , NVL(stkxdep.cant_com,0000000000.0000) AS cant_com , 000000000.0000 AS cant_ped , 000000000.0000 AS oc , NVL(deposito.com,"N") AS com , tmparticulos.DESCR AS DESCR , SPACE(3) AS moneda , 99999999.99999 AS valor , 9999999999.99 AS TOTAL , {} AS fechacos , NVL(stkxdep.despacho,SPACE(20)) AS despacho , tmparticulos.PRODUC AS PRODUC , tmparticulos.venta AS venta , tmparticulos.PRODUC AS compra , tmparticulos.tipo_art AS tipo_art , IIF(!EMPTY(tmparticulos.atr+tmparticulos.bul),stock.barras,tmparticulos.barras) AS barras , IIF(!EMPTY(tmparticulos.atr+tmparticulos.bul),stock.dun,tmparticulos.dun) AS dun , tmparticulos.pesoxu AS pesoxu , tmparticulos.emp AS emp , SPACE(12) AS comprob , SPACE(1) AS causa , SPACE(15) AS comprobant , 0 AS tipo_rep , tmparticulos.cod_pro AS cod_pro , tmparticulos.proveedor AS proveedor , tmparticulos.activo AND (((!EMPTY(tmparticulos.atr) OR !EMPTY(tmparticulos.bul)) AND stock.activo) OR (EMPTY(tmparticulos.atr) AND EMPTY(tmparticulos.bul))) AS activo , tmparticulos.cat AS cat , tmparticulos.surtido AS surtido , tmparticulos.fventa AS fventa , tmparticulos.dventa AS dventa , tmparticulos.fcompra AS fcompra , tmparticulos.dcompra AS dcompra , tmparticulos.fant AS fant , tmparticulos.dant AS dant , tmparticulos.SELECTED AS SELECTED , IIF(!EMPTY(tmparticulos.atr+tmparticulos.bul),stock.ubicacion,tmparticulos.ubicacion) AS ubicacion , IIF(!EMPTY(tmparticulos.atr+tmparticulos.bul),stock.uxdia,bienes.uxdia) AS uxdia , IIF(!EMPTY(tmparticulos.atr+tmparticulos.bul),stock.ventasxper,bienes.ventasxper) AS ventasxper , tmparticulos.medcod , tmparticulos.medauxcod , tmparticulos.dmed , tmparticulos.dmedaux , tmparticulos.dmeda , tmparticulos.dmedauxa , IIF(ISNULL(stock.factor) OR stock.factor=0, tmparticulos.factor, stock.factor) AS factor , NVL(stkxdep.venc,{}) AS venc , 000000000.0000 AS cant_pedn , 0000000000.0000 AS cant_peds , tmparticulos.ncm , tmparticulos.origen , tmparticulos.ad_lic , tmparticulos.ad_not FROM tmparticulos LEFT OUTER JOIN stkxdep ON tmparticulos.codigo+tmparticulos.bul+tmparticulos.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr LEFT OUTER JOIN deposito ON stkxdep.deposito=deposito.deposito LEFT OUTER JOIN stock ON tmparticulos.codigo+tmparticulos.atr+tmparticulos.bul+SPACE(8)=stock.codigo+stock.atr+stock.bul+stock.deposito WHERE &filtro INTO CURSOR tmpstock READWRITE %Cmedidas  QmedidasF2G((codigoF3G-(42">352672F3G-(82">3926:2G-(%;!F3!~.< /< }!H y! .<1!4><CC.<C<C.<=<6 /<y!4><CC/<C<C/<=<6%==%=(otcomprastcccomp%QQQCC>?C@AN>B6>CDQD@E>E@FS @F   >%  temp_ocT .t.% "+T  .and.xdbie=tventas.cod_ins%CX #'T  .and.xdbul=tventas.bul%CXK#'T  .and.xdatr=tventas.atrSELECT tccvent.pedido AS pedido , tccvent.ID AS ID , cod_ins AS codigo , bul AS bul , atr AS atr , tccvent.dep AS deposito , SUM(tventas.recepcion-tventas.recep2) AS saldo , SUM(IIF( tccvent.verif=0 OR tccvent.gerencia=2 OR tccvent.arm_bloq OR (tccvent.credito#1 AND tccvent.gerencia#1), tventas.recepcion-tventas.recep2,000000000000.0000)) AS saldon FROM tventas, tccvent WHERE tccvent.pedido=tventas.pedido AND tccvent.est_desp<5 AND tventas.cod_ins #obie.data_codigo_vacio AND &filtro GROUP BY tccvent.ID,tventas.cod_ins, tventas.atr, tventas.bul INTO CURSOR temp_pd %-G'otemp_pdQXcompromQM '' N   'CHQHCIQICCJQJ'q_comoq_comQQQCHJQHCCIJ IJ6QItemp_pd (oocompromQM'NQCJQJ'Nq_comotemp_pdXq_com K'O'KO KO KO KQKQKQCKHCOJQHCCKICOJ KICOJ6QIKKKtemp_pd _1T .t.% :),T  .and.xdbie=tcompras.cod_ins%CX{)(T  .and.xdbul=tcompras.bul%CX)(T  .and.xdatr=tcompras.atr"%/CX 0CX */T "betw(tcccomp.deposito,xddep,xhdep)otcomprastcccomp%QQQ@PCC>?C@AN>B6>CDQD@E>E@FS @F   >%  temp_ocT .t.% >++T  .and.xdbie=tventas.cod_ins%CX~+'T  .and.xdbul=tventas.bul%CX+'T  .and.xdatr=tventas.atr_SELECT tccvent.pedido AS pedido , tccvent.ID AS ID , cod_ins AS codigo , bul AS bul , atr AS atr , tccvent.dep AS deposito , SUM(tventas.recepcion-tventas.recep2) AS saldo , SUM(IIF( tccvent.verif=0 OR tccvent.gerencia=2 OR tccvent.arm_bloq OR (tccvent.credito#1 AND tccvent.gerencia#1), tventas.recepcion-tventas.recep2,000000000000.0000)) AS saldon FROM tventas, tccvent WHERE tccvent.pedido=tventas.pedido AND tccvent.est_desp<5 AND !EMPTY(tventas.cod_ins) AND &filtro GROUP BY tccvent.ID,tventas.cod_ins, tventas.atr, tventas.bul INTO CURSOR temp_pd rotemp_pdQXcompromQM '' N   Q'CRCXQPQHQICCJQJ'PRtemp_pdQXcompromQM '' N   Q'PCHCCJQHCCICCJ CICCJ6QIQJ'Pq_com"%/CX 0CX 0'T betw(deposito,xddep,xhdep)oq_comQQQPQPCHQHCIQICJQSPtemp_pdoesolcomdsolcomXtcompras C>WZC>XZCTWZCTYZTNQTQTQCCTUC>?DQJVWTW VZ CTN TNTTtemp_sol%=7otmpstockXtemp_oc 333GGGXtemp_pd 333KKKXtemp_sol 333[[[Xstock 333CXP3Q3Q3Q3\Q\3]Q]3^Q^3_Q_3`Q`3aQa3bQb3cQc3dQdC3UQUC3eQe QfCKHQgCGDQDQhQi Qj Qk36Q63lQl3mQm3nQn3oQo Qp QqQr Qs3tQt3uQu3tQv3wQw3xQx3yQy3zQz3{Q{3|Q|3}Q}3~Q~3Q3Q3QC[JQW3Q3Q3Q3)Q)3,Q,3"Q"3-Q-3Q3Q3Q3Q3Q3Q34383539373:3C3QCKIQCKHCKIQ3333333tmpstock =otmpstockXtemp_oc 3333PGGGGPXtemp_pd 3333PKKKKPXtemp_sol 333[[[Xstock 333CXPdeposito3Q3Q3Q3\Q\3]Q]3^Q^3_Q_3`Q`3aQa3bQb3cQc3dQdC3UQUC3eQe QfCKHQgCGDQDQhQi Qj Qk36Q63lQl3mQm3nQn3oQo Qp QqQr Qs3tQt3uQu3tQv3wQw3xQx3yQy3zQz3{Q{3|Q|3}Q}3Q3~Q~3Q3QC[JQW3Q3Q3Q3)Q)3,Q,3"Q"3-Q-3Q3Q3Q3Q3Q3Q3<Q<3PQPP6Q3SQS34383539373:33CKIQCKHCKIQ33333PPP3333Ptmpstock%<= C%C=C%=>KT>tmpstock.codigo, tmpstock.atr, tmpstock.bul, tmpstock.depositoLT?tmpstock.codigo, tmpstock.atr, tmpstock.bul, tmpstock.ddeposito >^TQtmpstock.codigo, tmpstock.atr, tmpstock.bul, tmpstock.deposito, tmpstock.despacho_TRtmpstock.codigo, tmpstock.atr, tmpstock.bul, tmpstock.ddeposito, tmpstock.despacho%=>T tmpstock1 ?TtmpstockSELECT codigo , atr , bul , linea , lineadescr , grupo , grupodescr , marca , dmarca , codalt1 , unidad , agrupado , deposito , ddeposito , SUM(cantidad) AS cantidad, SUM(cant_com) AS cant_com, com , DESCR , moneda , valor , TOTAL , fechacos , PRODUC , venta , compra , tipo_art , barras , dun , pesoxu , emp , comprob , causa , comprobant , tipo_rep , cod_pro , proveedor , despacho , fventa , dventa , fcompra , dcompra , fant , dant , ubicacion , SELECTED , medcod , medauxcod , dmed , dmedaux , dmeda , dmedauxa , factor , venc , cant_ped , cant_pedn , cant_peds , oc , 000000000.0000 AS op , 000000000.0000 AS pln , 00000000.0000 AS disp1 , 00000000.0000 AS disp2 , 00000000.0000 AS disponible , 000000.0000 AS stkmin , 000000000000 AS stkmin1 , 0 AS tipostkmin , ncm , origen , ad_lic , ad_not FROM tmpstock GROUP BY &xgroup ORDER BY &xorder INTO CURSOR &xinto READWRITE %=Co tmpstock1QXdepminQ PPNCJQCQQtmpstockF3%SF%C tmp_comprasCQHDVE =FD & %<C' =D&& C{Z%<C' 2VEoCONVERQXmotinvQ  %    QU C   C % tmp_compras& %C'<F3 ~FT3U%C=E FTC3 $FGE333G 4+C+ !333% gF%UDF T T! _FTUHF3>C$%DH %Cq_importacionesFQ%Cconver FQCONVERjoCONVER%CCC ZQQ Q%q_importacionesB>CCC=gCC\gCC\g$CC Rg& %'F3)i1tmpstockDN G-(> %Cq_importaciones@HQ( \tmp\tmpstockQ \tmp\tmpstockG+( ve_funciones ~ZP%== I T T T T T T]proc_stk333C=CX3P6F3!>pqr%I>p% S $PCCostos T T TTH:JuO  _K T T T7TCC66 T cs_generar333C= 3<6TC uL.G+( ve_funcionesve_funciones_precios T T%L6TC333C CX CL6TC333C CXTd TC nM T T TT0 TC6 T T TR cs_generar333TC uO%N%Ccosult MQcosultFG((codigoE333%C4[NTTClT|T}T N T T qO T T TT TC$ cs_generar333C= 3<6TCF3H>lmnCU  U6o!>|} T! cs_generar >~ OP!>lmnF3%== [ %-QoproduccicompprodNQQQUQUF''  M comp_op UT.t."%/CX 0CX Q:T) .and.betw(producci.deposito,xddep,xhdep)% Q(T.and.xdbie=compprod.cod%CXR(T.and.xdbul=compprod.bul%CXWR(T.and.xdatr=compprod.atrDSELECT compprod.cod AS codigo , compprod.bul AS bul , compprod.atr AS atr , compprod.cantidad AS cantidad , producci.deposito AS deposito FROM producci,compprod WHERE producci.ID=compprod.ID AND producci.pend AND producci.PROD#-1 AND compprod.apl#"M" AND &xfiltro_prd INTO CURSOR cur_tmp_assdaf HS U =Tocur_tmp_assdafXtmpstock 3333PPPCUQUPcomp_op 2 U~ocur_tmp_assdaftmpstockU333comp_opF3H,UU =iU*& P(\tmp\ 2U&& (\tmp\F ~=VF3HUV =U!EP 2VE>eeUFT.t."%/CX 0CX V0T#betw(producci.deposito,xddep,xhdep)% V+T.and.xdbie=producci.codigo%CX)W(T.and.xdatr=producci.atr\SELECT * FROM producci WHERE pend .AND. PROD#-1 AND &xfiltro_prd INTO CURSOR op_pend ~YF3% 5XHWX =W!EP 2XE>hhU yY(uY T op_pend.bulCCZxbul=&xvar T op_pend.prdCCZxcan=&xvar T op_pend.reaCCZxrea=&xvar %qYHYXY =7YEP 2XYE>hhF%= lZproc_stkq1 ~ZF3EN>iiUFproc_stkq1 ~hZF3EN>iiUFF3J>fUejUegDhkUegDhiHZ[ ='[B>CUheUhe 6 2[>sCrCUegDhiCpp 6 :UegDhiCpp 6c 6 6%=j\F3G-(~sf\>sCsD%b\>sCs wF3A%S   S aG((codigoG((codinsF3G-(CXG-(nCSYS S  +S S     -6C eS S C /S S C   -6H^pa =_H7^_ X^U _%^FCpUegDhp UegDh6 _FCpUegDhp UegDh 6  _%_NCpUegDhip UegDhi6 _NCpUegDhip UegDhi 6  =`H`` 1`U `%`>Ueh Ueh Ueh  `OUehC6 "UehC6   C=pa%.aU'%C C3 $ laC %SaU%a CHaab c:UC48 UU6eC48 ee6gC48 gg6DC48 DD6hC48 hh6iC48 ii6jC48 jj6kC48 kk6fC48 ff6 h>c7((\tmp\rptinventarioactualQ%CtmpstockhF3Q \tmp\tmpstock.dbf%Cborrar=iFQ \tmp\.dbf \tmp\.idxBU BORRARPROVEEDOMARCASXDCUEXHCUECUENTASABREVCOD_CUEBIENESXDFORFILTROXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRUXDCOSXHCOSXDPROXHPROXDCATPROXHCATPROXDMAR XANTIGUEDADTCODIGOATRBULVFEC_COMFCOMPRA TMPARTICULOSCOMPRASCOD_INS TMP_COMPRAIDFEC_VENFVENTAVENTAS TMP_VENTADVENTADCOMPRAALLXDDEPXHDEP!XSOLO_DEPOSITOS_DE_DISPONIBILIDADMEDIDASTMPSTOCKMEDCODDMEDDESCRDMEDA MEDAUXCODDMEDAUXDMEDAUXAXFILTRO_SUBINDICE_LOTESDESPACHOXDTIPTCOMPRAS RECEPCIONTCCCOMPRECEPRECEP2RECEP3OCORDENPENDTEMP_OCSALDOSALDONCANTEMP_PDCOMPROMCCODQ_COMDEPOSITOPEDIDODEPCOMDSOLCOMCANTIDADESOLCOMSOLITEMITMESTADOTEMP_SOLLINEA LINEADESCRGRUPO GRUPODESCRMARCADMARCACODALT1UNIDADAGRUPADOCANT_COM DISPONIBLECANT_PEDOPPLNDISP1DISP2MONEDAVALORTOTALFECHACOSSTKMINSTKMIN1 TIPOSTKMINACOMPRARPRODUCVENTACOMPRATIPO_ARTBARRASDUNPESOXUEMPCOMPROBCAUSA COMPROBANTTIPO_REPCOD_PRO PROVEEDORACTIVOCATSURTIDOFANTDANT UBICACIONSELECTEDUXDIA VENTASXPERFACTORVENC CANT_PEDN CANT_PEDSNCMORIGENAD_LICAD_NOTSTOCK DDEPOSITOXEXPLOSION_SURTIDOSEXPLOSION_SURTIDOSXGROUPXORDERXINTO STKMINDEPIDEAL A_REPONER TMPSTOCK1DEPMIND TMP_COMPRASFECHAMENTRASALECONVERMOTINVMOTIVOTIPOIMPORTACXACCXFECHA XCON_ULT_IMPQ_IMPORTACIONESDATOULTIMPFULTIMPNP_LOCAL VE_FUNCIONESSMPPTISM1UDIAVXPSM_PPPROC_STKXDTVAXDDSESYS_M XTIPO_REPXCOMPROBXCAUSA XFECHA_COSTO XERR_COSTO XMSG_COSTOXCOSTO XMONCOSTOXDMONMM_MAX XFECHA_TCXDFTC OBTENER_COSTO CS_GENERARXDFCSXMONEDA MM_MONEDAVE_FUNCIONES_PRECIOSXXMONEDAP_PRECIOS_MAX_RECURSIONXOKVE_OBTENER_PRECIOXDVALVE_OBTENER_PRECIO_COMPUTADOXDDSCOBTENER_COSTO_REPOSICIONP_CS_OBTENCION_COSTOCOSULTCOSTOXDNEGATIVOS_NO_VALORIZADOSXCPBTCS_COMPROBANTECOMPPRODPRODUCCIPRODAPLCOMP_OP XFILTRO_PRDCUR_TMP_ASSDAFOP_PENDMULTIPLEREALZXVARXCANXBULXREA P_PLAN_STKPLANIFICADO_TABLAQ1PLANIFICADO_COMPROMISOS_TABLA MINCOMPRA CANTXCAJAXDACTXDSGRXHSGRXDPBLXDSTKCODINSFOR ATRIBUTOSBULTOSEST_ACTSUBGRUPOP_CERO_ES_FALTANTE XDVENCIMIENTO XHVENCIMIENTOXDATOSAMPLIADOSDATOS_AMPLIADOSXDORDP_NUMINSXORDENXDSEPP_PRONUM XDCONDATOSINXEN_UNIDAD_AUXILIAR/  %CxBiebCYT %CxBulbCT %CxAtrbCT %CxdstkbCTN%CxdplbbN T!rptinventarioactualJTTTTT%CxdtvabNT%CxdfcsbDT%CxdmonbN T% 0TSTaT C(CIniciando datos... C CTC % < BUXTABLAXBIEXBULXATRXDSTKXDPLBXDTVAXDFCSXDMONXMANTER_OESTADOXACTIVOSOBIEDATA_CODIGO_VACIOOBULOATRRPTINVENTARIOACTUALXFORMXDNUM1XDBIEXDBULXDATRXDACTMANTENERMANTER_OESTADOPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONARCHIVORELEASEC)CNBUXBIEXBULXATRXACTIVOSEJECUTAR_CONSULTA2XDNUM1F41QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxrptinventarioactualT\xchgTT.T ST T T T CS 6 CBUXTABLAXNEGATIVOS_VALORIZADOSXACTIVOSOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDSTKXDTVAXDVALXDNEGATIVOS_NO_VALORIZADOSXDACT EXP_TABLA 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxrptinventarioactualT\xchgTT TT 1 T 1  C TTTT 1 T 1  C BU XTABLAXTABLA1OEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDDEPXHDEP EXP_TABLA4'%Cxfiltro_articulosbCC T"%C xconsolidadobNv T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxrptinventarioactualT\tmp"Tcontrol_inventario"Tcontrol_inventarioT NT T T NT TNT TaT CBUXFILTRO_ARTICULOS!XSOLO_DEPOSITOS_DE_DISPONIBILIDAD XCONSOLIDADOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDSTKXDTVAXDNEGATIVOS_NO_VALORIZADOSXDACTXDFOR XDCONDATOSXDLOG3XDLOG5 XDCONSOLIDADO EXP_TABLA#%CxdlinbNK T%CxhlinbNw T%CxddepbCTCX%CxhdepbCTCX T T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxrptinventarioactualT  \tmpT T T TT?TTTTTT$%CrptinventarioactualoQ * \rptinventarioactual.dbf  C$%CrptinventarioactualQBUXDLINXHLINXDDEPXHDEPXDSEPXNOMBREXERRXMSGOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_EXCEL FIL_ARCHIVOOFORM XLS_ABRIRXDTIPXDNUM1RPTINVENTARIOACTUALEXP_TABLA_Y_EXCELFTC]%Cq_expl9FQ%Cq_expl1`FQ%Cccformul % .Q\data\CCZ \ccformul Qccformul%Cformulas x% V.Q\data\CCZ \formulas tQformulasoccformulQ formulasQ    CQ   S  q_expl1uotmpstockQccformulQ formulasQq_expl1QCC  6QCC  6QCC  6QC 6Q          *       S  1\tmp\Q\tmp\Eqtmpstockq_expl      F,>     F&  !F ~^( FE   %C4> _ 7>      %Cq_explFQ%Cq_expl1;FQBU"XTABLAQ_EXPLQ_EXPL1P_DOSP_CODEMPP_SYSTEMP_UNOCCFORMULFORMULASFORMULACCODIGOATRBULCANTIDADFCANTFACTIVASCODCOMPCODNEWATRCOMPATRNEWBULCOMPBULNEWCANT_PEDCANTTMPSTOCKQ1SURTIDOP_LOCALALLAAAIDTFQbienescodinsFQcuentaFQstockcodigoFQstkxdepcodigoFQidx04idx04FQbultoscodigoFQatributocodigoF Qidx03F QlisprecF QlineasF QgruposF QdepositoF Qcostoscodigo%CELFQclientes\cel\serdetFQproducciFQcompprodFQtcomprasFQtcccomptcccordQproveedoQcatproQmarcasQcfg_lisBUBIENESCODINS_CUENTASCUENTASTOCKCODIGOSTKXDEPIDX04BULTOSATRIBUTOIDX03LISPRECLINEASGRUPOSDEPOSITOCOSTOSP_EMPCLIENTESPRODUCCICOMPPRODTCOMPRASTCCCOMPTCCCORDPROVEEDOCATPROMARCASCFG_LIS_1QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxrptinventarioactualT\tmpTGTT T NT ST ST TTT CBUXTABLAXLISTA XDESCUENTOOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDLINXHLINXDSTK XDCONDATOSXDACTXDTVAXDVALXDDSCXDSEPEXP_TABLA_EXCEL_PDF['Cexportar %CIniciando exportacion T T1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxLT Cexportaciones_crystal Imp_exp.vcxrptinventarioactualT aT c%CC %CxDiasbN Y T !%C xdiasatrasbN  TTC$TC$C Termin dias T T %CTInventario con vencimiento CCiZ-CCCCHZ0-CCCC%Z0 al CCiZ-CCCCHZ0-CCCC%Z0#T\tmp\CxlsT \tmpT CNombre  T T C  C %C0Q *\xchg\Inventario Vencimiento(CError1:  @(\xchg\Inventario Vencimiento\Cxls?C Copiado a \xchg\Inventario Vencimiento\ C TT No generado%TCCreando alertas %C TMPInvVencQ0QC rptinventarioactual%Csysmsg MQ\sysmsgF ~L CT Cmensaje_lote_vencimiento Mensajes.vcxa !T "#T $%T &'T ()T *+T ,-T ./ 0FBU1XNOMBREXDIAS XDIASATRASXDVENCXHVENCXERRXMSGXAUTXCREARMENSAJESSYS_MLOG_AUTOEXCVERBOSEP_IN_ALERTA_VENCIMIENTOP_IN_ALERTA_VENCIMIENTO_DESDEOFORMXDFEC2XHFEC2XFILEOUTP_LOCALFIL_DIRECTORIO FIL_EXCEL XLS_ABRIRXDTIPCOMBO3INTERACTIVECHANGEEXP_TABLA_Y_EXCELP_SERVEROEXMESSAGE TMPINVVENCP_SYSTEMOMSGMSG_LEER DAT_COD_INSCODIGODAT_BULBULDAT_ATRATR DAT_CANTIDADCANTIDAD DAT_FECHAVENC DAT_DEPOSITODEPOSITODAT_LOTEDESPACHOOBJ_AGREGAR_SUCESO%C q_recepciones&Q%Cc2EQ%Cq_c1fQ%Cq_c2Q%C q_motivosQ%Cconver QCONVER%Cmotinv QmotinvCDatos ampliados+omotinv  q_motivos% doCONVER q_motivos   CQ   q_c1BQ\data\CCC 6Z\conver`oc2 q_motivos   CQ   q_c2&o q_c2q_c1Ǽq_c12Ooq_c12   CQ   q_recepciones YmoCONVER q_motivos   CQ   q_recepciones&  Fi1tmpstockDG-(  >G-(%Cc2Q%C q_motivosQ%Cq_c1#Q%Cq_c2DQ%Cq_c12fQ%C q_recepcionesQBU Q_RECEPCIONESC2Q_C1Q_C2 Q_MOTIVOSCONVERMOTINVSYS_MCODIGOTIPOP_DOSCOD_INSATRBULFECHAMOTIVOP_SYSTEMP_CODEMPP_UNOQ_C12IDTMPSTOCKULTRECALLprocesarbejecutar_consulta2ejecutar_consultaŅ exportar_1H exportar_ifmFexportar_control_inventariodexportar_faltantes\explosion_surtidos1 open_files| exportar_dashexportar_vencimientoМdatos_ampliados5A2A11qbABrr2da"2BBBda"1bAA(r1arqJBr4r )Br2r Br1ArQ ) BrArABsBBAB9xQAA!A#qAr$aAQAQA!QAAA!QAAA!AA#ѱB2 a arqcB!AAђ1Arr%r%bqAAAAAAA37 bAQqAQqA@A(w BbAQAQA!A aAQqAQqA@%!'"qABq2 QPXAAA2A2aQA=2 BBrBA11a BrrbraaB2AABAsBBBA!A%rAAfr2AF411q22aaAA2-22!ArABBrArBK !AaAQAQAA1 BAr1aArq1ACrA !AaAQAq11A21qARBABqAqArAqArAAr1"I CB2qAQaAAAr21rA1112aaA21AA2112ABr2Aq1AABBBA1QA1!A11aAA11AA11AA11!A!AAE1a111BAABqAArqAAB6AAAAAAAAABqA21A3"AB3"baA"baBB3rA!A!!"AB24AAAA2"ABAApAAB4trqAAqAAAAAAAA' QRrrarrBQuABrqAAqAAB2qAaQqqbAB""2B2"BB2uQQAAA21a A1121AAAAqr12111111qAAA3A1AQAQAA!A!A2A"bAbrrb2AAQAQAaAAB1r}1Om "#8<B(\iGKb&" @Ue S  *{ / %",>{Y[     bBC UXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXHOSTXPORT XMAILTIPOLL_OKXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXSSL XFUERZA_LOCALXGMAILXTOKENSEND_EMAIL_ALERTASb[     (%Clc_frombC T,%C lc_fromnamebC T&%Clc_tobC  T+%C lc_replytobC G T!%C xauth_loginbLy T %C xauth_passbL T %CxhostbL T %CxportbL T %C xMailTipobN2 T %CxsslbL] TTC TC  T!"G+( sys_mailctas9C!   $s%      B U&XMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXHOSTXPORT XMAILTIPOLL_OKXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXSSL XFUERZA_LOCALXGMAILXTOKEN LOSENDMAILP_ALERTAS_FROMP_ALERTAS_FROMNAMEP_ALERTAS_REPLYTOP_ALERTAS_AUTHLOGINP_ALERTAS_AUTHPASSP_ALERTAS_HOSTP_ALERTAS_PORTP_ALERTAS_SEND_SSLP_ALERTAS_USA_GMAILP_ALERTAS_TOKEN XCOD_MAILP_ALERTAS_CODIGO SYS_MAILCTASOBTENER_DATOS_CUENTASYS_MAILsend_email_alertas"6qAAaAAAAAAAA21b41H/ %=ƞH64X  G+(proc_stk CCInicializando...%Z T-%Citm_desc Qitm_desc%Cmarcas Qmarcas%Csucursal Qsucursal 5 TCC]RT CC]RT CC]R T CC]R<   T T$listadosC$ 3T&rpt_ve_productos_pendientes_de_entrega8T+rpt_ve_productos_pendientes_de_entrega_full;T.rpt_ve_productos_pendientes_de_entrega_detalle T-% H  TC TC 2C ERROR !!! P 7TC L Ta5 Ta%   T %  (C"#$%! CC Datasessionv&C('%!%Ctmp_consolidado1MF)Q!Q*\tmp\)F) (i1tmp_consolidado1+C>+( $(*\tmp\tmp_consolidado1%!%Ctmp_consolidado2-F-Q!Q*\tmp\-F- (i1tmp_consolidado2+C>+( $(*\tmp\tmp_consolidado2!%Ctmp_consolidado3F.Q!Q*\tmp\.F. i(i1tmp_consolidado3+C>+( s$(*\tmp\tmp_consolidado3 T/- ~ %CtmpQ0FQ*\tmp\0 2i1tmp+C>0+( <Q0"%Ctmp_consolidado1 (Q*\tmp\tmp_consolidado1)F)*\tmp\%z Q*\tmp\0 i1tmp+C>0+( (Q0"%Ctmp_consolidado2 ~(Q*\tmp\tmp_consolidado2-F-*\tmp\Q*\tmp\0 i1tmp+C>0+(  Q0"%Ctmp_consolidado3 W (Q*\tmp\tmp_consolidado3.F.*\tmp\ T-TC1(C"#$%! CC Datasessionv& C2!%Ctmp_consolidado1' F) Y (Q*\tmp\tmp_consolidado1)(*\tmp\!%Ctmp_consolidado1 Q)% !%Ctmp_consolidado2 F-  (Q*\tmp\tmp_consolidado2-(*\tmp\!%Ctmp_consolidado2X Q-!%Ctmp_consolidado3 F.  (Q*\tmp\tmp_consolidado3.(*\tmp\!%Ctmp_consolidado3 Q.  %Cempresas E Q3 \empresasCempresascodigoC(' T-BU4PROC_STK ESTADO_INI ESTADO_INCXDTIP XDTIP_DETAITM_DESCMARCASSUCURSALBORRAR BORRAR_DETABORRAR1ERRORES ARR_CAMBIOSMM_MAXXERRXMSGFN_CAMBIOS_ACTUALIZADOSLISTADOSXREPORTE_LOCAL1XREPORTE_LOCAL2XREPORTE_LOCAL3XZAFARXDCONOCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJEXOLDEMPXPRIMERA_EMPRESAP_CODEMPOEMPDOSGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCENCARGAR_DATOS_ENTORNOEJECUTAR_PROCESOABREVTMP_CONSOLIDADO1P_LOCALEMPALLTMP_CONSOLIDADO2TMP_CONSOLIDADO3XINICIALTMP GET_PORCODIGO OPEN_FILESP_SYSTEMnCproceso CFT.t."%CX CX %[TJ.and.val(xdcli)<=val(tventas.cod_cli).and.val(tventas.cod_cli)<=val(xhcli) GT6.and.xdcli<=tventas.cod_cli.and.tventas.cod_cli<=xhcli"%CX CX % % ET4.and.betw(val(tccvent.agente),val(xdage),val(xhage)) 6T%.and.betw(tccvent.agente,xdage,xhage)H>  iTX.and.tccvent.est_desp=0.and.tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0 )T.and.tccvent.est_desp>=1 T.and.tccvent.est_desp=0 .and. !(tccvent.stock=1 .and. (tccvent.credito=1 .or. tccvent.gerencia=1) .and. tccvent.gerencia#2) .and. !(tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0) T.and.tccvent.est_desp=0 .and. !(tccvent.stock=1 .and. (tccvent.credito=1 .or. tccvent.gerencia=1) .and. tccvent.gerencia#2) .and. !(tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0) .and. !tventas.aprob T.and.tccvent.est_desp=0 .and. !(tccvent.stock=1 .and. (tccvent.credito=1 .or. tccvent.gerencia=1) .and. tccvent.gerencia#2) .and. !(tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0) and tccvent.stock=2 >Tt and tccvent.est_desp=0 and ((tccvent.credito=1 and tccvent.gerencia#2) or tccvent.gerencia=1) and !tccvent.arm_bloq%C C %HT7.and.betw(val(tventas.cod_ins), val(xdbie), val(xhbie)) 9T(.and.betw(tventas.cod_ins, xdbie, xhbie)%C C Q5T$.and.betw(tventas.atr, xdatr, xhatr)%C C 5T$.and.betw(tventas.bul, xdbul, xhbul)% 6T%.and.betw(tccvent.pedido,xdped,xhped)%C ;'T and tccvent.dep=xddepG-(%jT]tventas.pedido, tventas.cod_ins, tventas.atr, tventas.bul, tventas.entrega, tventas.tra_entreTtccvent.pedido d LT?tventas.pedido, tventas.itm, tventas.entrega, tventas.tra_entre(Ttventas.pedido, tventas.itmCConsultando 1 ...&sys_performanceSelectTC]% ! select tventas.cod_ins as codigo , tventas.atr as atr , tventas.bul as bul , tventas.cod_ins + tventas.atr + tventas.bul as codab , tventas.desc_ins as descr_txt , sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) ) as cantidad , mm_moneda(tventas.moneda+1,2) as moneda , tventas.moneda as mon , tventas.cos_lifo as precio , (1-iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100))*100 as dtos, sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) * tventas.cos_lifo * iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100) * iif(tventas.coef=0,1,tventas.coefic) ) as total_pesos , sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) * tventas.cos_lifo * iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100) ) as total_origen , tventas.pedido as pedido , tventas.itm as itm , tccvent.sucfac as sucfac , tccvent.fec_ven as fecha , iif(tccvent.oriped=0,tccvent.pedido,tccvent.oriped) as ped_ini , iif(tccvent.fec_ini={},tccvent.fec_ven,tccvent.fec_ini) as fec_ini , tccvent.fec_ent as fecent1 , tccvent.fec_ent2 as fecent2 , tventas.cod_cli as cliente , tccvent.agente as vendedor , tccvent.prioridad as prio , iif(tccvent.prioridad=0,"Normal",iif(tccvent.prioridad=1,"Media ","Alta ")) as dprio , iif(tccvent.arm_bloq, "SI", "NO") as arm_bloq , tccvent.dv1 as libfacrem , iif(tccvent.dv1,"SI","NO") as dlibfacrem , tccvent.libent as libent , iif(tccvent.libent=1, "SI", "NO") as dlibent , iif(tventas.pck_can=0,"--",iif(tccvent.libent=1, "SI", "NO")) as dlibenti , tventas.pck_can as pck_can , tccvent.bru_pick as pck_bruto , tccvent.net_pick as pck_neto , sum( iif(tventas.pck_can<0,0,tventas.pck_can) * tventas.cos_lifo * iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100) * iif(tventas.coef=0,1,tventas.coefic) ) as pck_tot , iif(tccvent.est_desp>=1,"S","N") as aprobado , iif(tccvent.est_desp>=1,"A","Z") as aprobado_o , iif(tccvent.est_desp>=1,"S", iif(tccvent.est_desp=0.and.tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0," ",iif(tventas.aprob,"S","N"))) as itm_aprob , tccvent.est_desp as est_desp , 000000000000.00 as stock , 000000000000.00 as comprom , 000000000000.00 as oc_pr , 000000000000.00 as pedidossa , 000000000000.00 as pedidosblq , 000000000000.00 as disponible , 000000000000.00 as saldo , 000000000000.00 as saldo2 , 000000000000.00 as saldo_blq , 000000000000.00 as saldo_blq2 , 000000000000.00 as can_apr , 000000000000.00 as can_napr , tccvent.ref as oc , tccvent.txtremito as txt , tccvent.tran as tran , tccvent.ot as ot , space(40) as estado_txt , 0 as estado , tccvent.stock as ap_stock , tccvent.credito as ap_credito , tccvent.gerencia as ap_gerencia , iif(tccvent.stock =1,"SI",iif(tccvent.stock=2, "NO"," ")) as ap_sto , iif(tccvent.credito =1,"SI",iif(tccvent.credito=2, "NO"," ")) as ap_cre , iif(tccvent.gerencia=1,"SI",iif(tccvent.gerencia=2, "NO"," ")) as ap_ger , 000000000000.00 as saldo_acc , 000000000000.00 as saldo_acc2 , min(tventas.tra_entre) as itm_entrega , min( iif(tventas.entrega={}, tccvent.fec_ent, tventas.entrega) ) as fecent , min( iif(tventas.entrega={}, tccvent.fec_ent, tventas.entrega)+iif(tventas.despl#0, tventas.despl,tccvent.despl) ) as fecprob , tventas.coefic as cambio_ori , space(40) as tercero , space(80) as entrega , left(nvl(itm_desc.descr,padr(tventas.desc_ins, 80)),80) as descr_real , padr(tccvent.txtcpbt,255) as txtcpbt , cl.fprorroga as prorroga , iif(!empty(cl.fprorroga), cl.fprorroga, iif(tccvent.fec_ent>tventas.entrega, tccvent.fec_ent,tventas.entrega))-date() as dias , bienes.codalt1 as codalt1 , tccvent.cod_fle as cod_fle , nvl(bienes.pesoxu,00000000000.0000) as pesoxu , 0000000000 as zona , space(40) as nombre , tccvent.suc as suc , space(40) as sucursal , space(40) as dflete , " " as hay_stk , xemp as emp from tventas left outer join itm_desc on str(tventas.pedido,12)+"P"+str(tventas.itm,4)=itm_desc.comprob+itm_desc.causa+str(itm_desc.item,4) left outer join bienes on tventas.cod_ins=bienes.cod_ins , tccvent left outer join cliaux cl on str(tccvent.pedido,12)+"P"=cl.comprob+cl.causa order by &xorden group by &agrupacion where tccvent.est_desp<=1 .and. tventas.pedido=tccvent.pedido .and. tventas.pedido>0 .and. &filtro into cursor tmp readwrite 4rselect tventas.cod_ins as codigo , tventas.atr as atr , tventas.bul as bul , tventas.cod_ins + tventas.atr + tventas.bul as codab , tventas.desc_ins as descr_txt , sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) ) as cantidad , mm_moneda(tventas.moneda+1,2) as moneda , tventas.moneda as mon , tventas.cos_lifo as precio , (1-iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100))*100 as dtos, sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) * tventas.cos_lifo * iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100) * iif(tventas.coef=0,1,tventas.coefic) ) as total_pesos , sum( iif(tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)<0,0,tventas.recepcion-iif(xdsaldo_a_facturar, tventas.facturado,tventas.recep2)) * tventas.cos_lifo * iif(p_deslin,1,1-tventas.des_ins/100) * (1-tccvent.desc1/100) * (1-tccvent.desc2/100) * (1-tccvent.desc3/100) * (1-tccvent.desc4/100) * (1-tccvent.desc5/100) ) as total_origen , tventas.pedido as pedido , tventas.itm as itm , tccvent.sucfac as sucfac , tccvent.fec_ven as fecha , iif(tccvent.oriped=0,tccvent.pedido,tccvent.oriped) as ped_ini , iif(tccvent.fec_ini={},tccvent.fec_ven,tccvent.fec_ini) as fec_ini , tccvent.fec_ent as fecent1 , tccvent.fec_ent2 as fecent2 , tventas.cod_cli as cliente , tccvent.agente as vendedor , tccvent.prioridad as prio , iif(tccvent.prioridad=0,"Normal",iif(tccvent.prioridad=1,"Media ","Alta ")) as dprio , iif(tccvent.arm_bloq, "SI", "NO") as arm_bloq , tccvent.dv1 as libfacrem , iif(tccvent.dv1,"SI","NO") as dlibfacrem , 0 as libent , " " as dlibent , " " as dlibenti , 000000000000.00 as pck_can , 000000000000.00 as pck_bruto , 000000000000.00 as pck_neto , 000000000000.00 as pck_tot , iif(tccvent.est_desp>=1,"S","N") as aprobado , iif(tccvent.est_desp>=1,"A","Z") as aprobado_o , iif(tccvent.est_desp>=1,"S", iif(tccvent.est_desp=0.and.tccvent.stock=0.and.tccvent.credito=0.and.tccvent.gerencia=0," ",iif(tventas.aprob,"S","N"))) as itm_aprob , tccvent.est_desp as est_desp , 000000000000.00 as stock , 000000000000.00 as comprom , 000000000000.00 as oc_pr , 000000000000.00 as pedidossa , 000000000000.00 as pedidosblq , 000000000000.00 as disponible , 000000000000.00 as saldo , 000000000000.00 as saldo2 , 000000000000.00 as saldo_blq , 000000000000.00 as saldo_blq2 , 000000000000.00 as can_apr , 000000000000.00 as can_napr , tccvent.ref as oc , tccvent.txtremito as txt , tccvent.tran as tran , tccvent.ot as ot , space(40) as estado_txt , 0 as estado , tccvent.stock as ap_stock , tccvent.credito as ap_credito , tccvent.gerencia as ap_gerencia , iif(tccvent.stock =1,"SI",iif(tccvent.stock=2, "NO"," ")) as ap_sto , iif(tccvent.credito =1,"SI",iif(tccvent.credito=2, "NO"," ")) as ap_cre , iif(tccvent.gerencia=1,"SI",iif(tccvent.gerencia=2, "NO"," ")) as ap_ger , 000000000000.00 as saldo_acc , 000000000000.00 as saldo_acc2 , min(tventas.tra_entre) as itm_entrega , min( iif(tventas.entrega={}, tccvent.fec_ent, tventas.entrega) ) as fecent , min( iif(tventas.entrega={}, tccvent.fec_ent, tventas.entrega)+iif(tventas.despl#0, tventas.despl,tccvent.despl) ) as fecprob , tventas.coefic as cambio_ori , space(40) as tercero , space(80) as entrega , left(nvl(itm_desc.descr,padr(tventas.desc_ins, 80)),80) as descr_real , padr(tccvent.txtcpbt,255) as txtcpbt , cl.fprorroga as prorroga , iif(!empty(cl.fprorroga), cl.fprorroga, iif(tccvent.fec_ent>tventas.entrega, tccvent.fec_ent,tventas.entrega))-date() as dias , bienes.codalt1 as codalt1 , tccvent.cod_fle as cod_fle , nvl(bienes.pesoxu,00000000000.0000) as pesoxu , 0000000000 as zona , space(40) as nombre , tccvent.suc as suc , space(40) as sucursal , space(40) as dflete , " " as hay_stk , xemp as emp from tventas left outer join itm_desc on str(tventas.pedido,12)+"P"+str(tventas.itm,4)=itm_desc.comprob+itm_desc.causa+str(itm_desc.item,4) left outer join bienes on tventas.cod_ins=bienes.cod_ins , tccvent left outer join cliaux cl on str(tccvent.pedido,12)+"P"=cl.comprob+cl.causa order by &xorden group by &agrupacion where tccvent.est_desp<=1 .and. tventas.pedido=tccvent.pedido .and. tventas.pedido>0 .and. &filtro into cursor tmp readwrite "F#%$' ;4#&$%'4:(/ve_sql_productos_pendientes_de_entrega_v3_sub_1&*sys_performanceSelect) +"%[86T)tventas.cod_ins, tventas.atr, tventas.bulNo",-./0C1Q1C2Q2CC3S1 6Q4CC3N1 6Q56789C:Q:CC3S: 6Q;CC3N: 6Q<C=Q=CC3S= 6Q>CC3N= 6Q?@ABCDEFGHIJKLM3NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs&tuvwxyz{|}~CQCQCQCQ,-.borrar1!CCompletando datos...oborrar1Xbienes ,Xbultos ,.]]Xatributo ,-Xlineas Y,Xgrupos Z,Xmarcas [,,-.126879:=@ABCDEFGHIJKLM3NOPQRSTUVWYZ[CC SIN LINEAQCC SIN GRUPOQCC SIN MARCAQC,\CCC C\S C6 C]S C]6C(X06Q^_ab`cdefg45/hijklm1vQnopqrs1Q2Qt&uvwxyz{|}~borrar+CCalculando stock disponible...F1%   1B%C tmp_stock=FQoborrar,-.Q^Q_QaQbQcQ`QdQeQfQg,-. tmp_stock ~A T T T T T T T T T T T T T TT T TtC6,-.F>^>_>c^_>aC6>eca>`>dc`a>bC6>fdb>gcbF& ,-.F ~AFE,-.F>^^>__>cc>aa>bb>``>dd>ee>ff>gg%C tmp_stock&BFQF&%  3F%DF&& ,-.(\tmp\F%B6& ,-.NCDCZ(\tmp\ !C0& ,-.NCZ(\tmp\G-(,-. T T T~3S|DF%3S#D%,-.CT,-.TcTdT1T1 >l >m GD >l >m*>wClC, SN6FF%D6& ,-.NCDCZ(\tmp\  E0& ,-.NCZ(\tmp\ T T T ~/F%3SE%,-.ET,-. Tc TdT1T1 >l >m F >l >m*>wClC, SN6%TF CFC Indexando...GIHFN G%F2& CC,gZCC-gZCC.gZ(\tmp\ G&& ,-.(\tmp\%GF%nG2& CC,gZCC-gZCC.gZ(\tmp\ G&& ,-.(\tmp\ IHGI I%}H%;H@& CCFgZCZCC,gZCC-gZCC.gZ(\tmp\ yH4& CCFgZCZ,-.(\tmp\ I%H<& FCZCC,gZCC-gZCC.gZ(\tmp\  I0& FCZ,-.(\tmp\ I%rI<& GCZCC,gZCC-gZCC.gZ(\tmp\ I0& GCZ,-.(\tmp\ I,& CZ,-.(\tmp\  L%sK%J%JF& CYZCCFgZCZCC,gZCC-gZCC.gZ(\tmp\ J:& CYZCCFgZCZ,-.(\tmp\ oK%+KB& CYZFCZCC,gZCC-gZCC.gZ(\tmp\ kK6& CYZFCZ,-.(\tmp\ L%KG& CYZCG =CZCC,gZCC-gZCC.gZ(\tmp\ L;& CYZCG =CZ,-.(\tmp\ fN%M%L%LL& CZZCDCC,gZCC-gZCC.gZCCFgZCZ(\tmp\ L@& CZZCD,-.CCFgZCZ(\tmp\ M%_MH& CZZCDCC,gZCC-gZCC.gZFCZ(\tmp\ M<& CZZCD,-.FCZ(\tmp\ bN%NM& CZZCDCC,gZCC-gZCC.gZCG(=CZ(\tmp\ ^NA& CZZCD,-.CG(=CZ(\tmp\ N& &(\tmp\GI F% O>:=%N>:=HOV PTcodigo, atr, bul, codab, descr, cantidad, cantaux, can_Apr, Can_NApr, stock, comprom, oc_pr, disponible, pedidossa, saldo, saldo2, linea, dlinea, grupo, dgrupo, marca, dmarca, ot, oc, saldo_acc, saldo_acc2, agente, nomage, peso, fecent1, fecent2, total_pesos, total_origen, codalt1, pesoxu, pedidosblq, saldo_blq, saldo_blq2, emp, libent,dlibent,dlibenti,pck_can,pck_bruto,pck_neto,pck_tot, ap_sto, ap_cre, ap_ger CSTcodigo,atr,bul,codab,cantidad,cantaux,moneda,precio,dtos,total_pesos,total_origen,pedido,sucfac,fecha,fec_ini, ped_ini,fecent,fecprob,cliente,nombre,agente,nomage,dprio,arm_bloq,dlibfacrem,zona,dzona,tercero,entregaT٣,aprobado,itm_aprob,estado,estado_txt,ap_stock,ap_credito,ap_gerencia,linea,grupo,marca,dlinea,dgrupo,dmarca,descr,tran,oc,txt,ot,peso,descr_real, fecent1, fecent2T٪,saldo_acc,txtcpbt, cant_bkp, canta_bkp,prorroga,dias,stock, comprom, oc_pr, pedidossa, disponible, saldo, saldo2, codalt1, pesoxu, pedidosblq, saldo_blq, saldo_blq2, empTv,libent,dlibent,dlibenti,pck_can,pck_bruto,pck_neto,pck_tot, ap_sto, ap_cre, ap_ger, suc, sucursal, cambio_ori,hay_stk VTcodigo,atr,bul,cantidad,cantaux,moneda,precio,dtos,total_pesos,total_origen,pedido,sucfac,fecha,fec_ini, ped_ini,fecent,fecprob,cliente,nombre,agente,nomage,dprio,arm_bloq,dlibfacrem,zona,dzona,tercero,entregaT,aprobado,itm_aprob,estado,estado_txt,ap_stock,ap_credito,ap_gerencia,linea,grupo,marca,dlinea,dgrupo,dmarca,descr,tran,oc,ot,peso,descr_real, fecent1, fecent2,txtcpbt,prorroga,dias,codalt1, pesoxu, empTn,libent,dlibent,dlibenti,pck_can,pck_bruto,pck_neto,pck_tot, ap_sto, ap_cre, ap_ger, suc, sucursal, cambio_oriC Exportando...F%CfWHhVbW  WHVW V%V& CFg V& F V& G W&  AW& Y bW& ZH{W3[ #XYcopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega') fox2x <select &xfields from borrar into cursor borrex readwrite  Xfcopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega') fox2x for saldo>=0 Kselect &xfields from borrar where saldo>=0 into cursor borrex readwrite  Ygcopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega') fox2x for saldo2>=0 Lselect &xfields from borrar where saldo2>=0 into cursor borrex readwrite  oZecopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega') fox2x for saldo<0 Jselect &xfields from borrar where saldo<0 into cursor borrex readwrite  3[fcopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega') fox2x for saldo2<0 Kselect &xfields from borrar where saldo2<0 into cursor borrex readwrite %.jF Tcodigo,atr, bul, codab, cantidad, cantaux, moneda, precio, total_pesos, total_origen, pedido, sucfac, fecha,fec_ini, ped_ini, fecent, fecprob, cliente, nombre, dprio,arm_bloq, dlibfacrem, zona, dzona, aprobado, aprobado_o, itm_aprob, linea, grupo, marca<T+,saldo_acc, saldo_acc2, descr_real, codalt1`TO,dlibent,dlibenti,pck_can,pck_bruto,pck_neto,pck_tot, suc, sucursal, cambio_oriacopy fields &xfields to (p_local+'\tmp\rpt_ve_productos_pendientes_de_entrega_detalle') fox2x F%]QTDbod.codigo, bod.atr, bod.bul, bod.aprobado_o, bod.fecent, bod.pedido ^ET8bod.codigo, bod.atr, bod.bul, bod.aprobado_o, bod.pedidoselect bod.oc, bod.ot,bod.agente, bod.nomage, bo.peso,bo.codigo, bo.atr, bo.bul,bo.codab,bo.descr,bo.cantidad,bo.cantaux,bo.can_apr,bo.can_napr,bo.stock,bo.comprom,bo.oc_pr,bo.disponible,bo.pedidossa,bo.saldo,bo.saldo2,bo.linea,bo.dlinea,bo.grupo,bo.dgrupo,bo.marca,bo.dmarca, bo.codalt1,bo.pesoxu, bod.cantidad as canti_p, bod.cantaux as canti_pa, bod.moneda, bod.precio, bod.cambio_ori, bo.total_pesos, bod.total_origen, bod.pedido, bod.sucfac, bod.fecha, bod.fecent, bod.cliente, bod.nombre, bod.suc, bod.sucursal, bod.dprio,bod.arm_bloq , bod.dlibfacrem, bod.zona, bod.dzona, bod.aprobado, bod.aprobado_o, bod.itm_aprob, .f. as encabezado , bod.estado , bod.estado_txt , bod.ap_stock , bod.ap_credito , bod.ap_gerencia , bod.ap_sto , bod.ap_cre , bod.ap_ger , bo.saldo_acc as saldo_acc , bod.saldo_acc as saldo_acc1 , bod.saldo_acc2 as saldo_acc9 , val(bod.cliente) as vcodcli , bod.tercero, bod.dias, bod.tran, bod.entrega, bod.total_pesos as total_pesos2 , bo.pedidosblq , bo.saldo_blq , bo.saldo_blq2 , bo.emp , bo.dlibent,bo.dlibenti, bo.pck_can, bo.pck_bruto, bo.pck_neto, bo.pck_tot from borrex bo left outer join a_agrupar bod on bo.codab=bod.codab order by &xorden into cursor borrar1dex readwrite FQFGIHci mc%Ic"& CC,gZCC-gZCC.gZ ic& ,-. JeHcFe d%$d%c0& CCFgZCZCC,gZCC-gZCC.gZ  d$& CCFgZCZ,-. d%id,& FCZCC,gZCC-gZCC.gZ d & FCZ,-. e%d,& GCZCC,gZCC-gZCC.gZ e & GCZ,-. Fe& CZ,-.  g%f%f%e6& CYZCCFgZCZCC,gZCC-gZCC.gZ f*& CYZCCFgZCZ,-. f%Rf2& CYZFCZCC,gZCC-gZCC.gZ f&& CYZFCZ,-. g%f7& CYZCG =CZCC,gZCC-gZCC.gZ g+& CYZCG =CZ,-. h%dh%g%g<& CZZCDCC,gZCC-gZCC.gZCCFgZCZ g0& CZZCD,-.CCFgZCZ `h%&h8& CZZCDCC,gZCC-gZCC.gZFCZ \h,& CZZCD,-.FCZ h%h=& CZZCDCC,gZCC-gZCC.gZCG(=CZ h1& CZZCD,-.CG(=CZ i& &GI T ~oi%^i >a T@(0\tmp\rpt_ve_productos_pendientes_de_entrega_full%i;(+\tmp\rpt_ve_productos_pendientes_de_entregaQFQ\tmp\.*%hnoborrarBCAFGHILMsC1CY6QC2CY6QC1CY6QC2CY6QC1CY6QC2CY6QC1CY6QC2CY6QC1CY 6QC2CY 6QC1CCY 6QC2CCY 6QC1CY6C1CY6C1CY6C1CY6C1CY 6C1CCY 6QC2CY6C2CY6C2CY6C2CY6C2CY 6C2CCY 6QQFGHILMQsBCxkdj;(+\tmp\rpt_ve_productos_pendientes_de_entregaQFQ\tmp\.*BUXEMPSYS_M OPEN_FILESTVENTASFILTROXDCLIXHCLIP_CLINUMXDAGEXHAGE P_AGE_TIPOP_AGENUMXDESTADOXDBIEXHBIEP_NUMINSXDATRXHATRXDBULXHBULXDPEDXHPEDXDDEPPEDIDOTCCVENTXDTIP AGRUPACIONXORDEN ESTADO_INCPERFORMANCE_STARTSYS_PERFORMANCEXTABLA P_PICKING XPICKINGSXCURSORTMP XA_VENCERINDIAS XAL_COSTOAL_COSTO/VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3_SUB_1PERFORMANCE_END/VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3_SUB_2CODIGOATRBULCODAB DESCR_TXTCANTIDADCANTAUXAPROBADOCAN_APRCAN_NAPRMONEDA CAMBIO_ORIPRECIODTOS TOTAL_PESOSTOTP_APR TOTP_NAPR TOTAL_ORIGENTOTO_APR TOTO_NAPRSUCFACFECHAFEC_INIPED_INIFECENTFECPROBCLIENTENOMBRESUCSUCURSALZONADZONAAGENTENOMAGE APROBADO_O ITM_APROBESTADO ESTADO_TXTAP_STOCK AP_CREDITO AP_GERENCIAAP_STOAP_CREAP_GEREST_DESPLINEAGRUPOMARCA ATRIBUTOSBULTOSSTOCKCOMPROMOC_PR PEDIDOSSA PEDIDOSBLQ DISPONIBLESALDOSALDO2 SALDO_BLQ SALDO_BLQ2OCTXTOTTRAN SALDO_ACC SALDO_ACC2ENTREGATERCERO DESCR_REALFECENT1FECENT2TXTCPBTPRORROGACODALT1PESOXUHAY_STKPRIODPRIOARM_BLOQ LIBFACREM DLIBFACREMLIBENTDLIBENTDLIBENTIPCK_CAN PCK_BRUTOPCK_NETOPCK_TOTEMPBORRAR1LINEASDESCRDLINEAGRUPOSDGRUPOMARCASDMARCAOBIEDATA_CODIGO_VACIOBIENESATRIBUTOPESOCANT_BKP CANTA_BKPCOD_INSCLAVEBORRARXDSTK TMP_STOCK XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXCENTRALXDCTR XDEPOSITOXORD_PLN XCOMP_PLN XEN_CALIDAD XSOLICITADOS XORD_OC_FEC XEN_RECHAZO XTIPO_DEP XFILTRO_DEP XORD_VEN_NBL XORD_VEN_BLQ OBTENER_STOCK XDESGLOSE_PDID XDTIP_DETAP_LOCAL A_AGRUPARXDSALDO_X_FECHA_ENTREGAOLDCODOLDSALOLDSAL2XFILTRO_STOCK_PDFILTRAR_PEDIDOS BORRAR_DETAXDORDXDIMPALLXFIELDS XFILTRO_STOCKBORREX BORRAR1DEXORDENXOLD ENCABEZADOC1A1C2A2C3A3C4A4C9A9COAOTOTALCTOTALAXKDJu4%CL3 T%CL[ T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxbTCexportaciones_crystal Imp_exp.vcx)ve_rpt_productos_pendientes_de_entrega_v3T\xchgTT]TT C BU XTABLAXDTIPXDMONOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA) 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxbTCexportaciones_crystal Imp_exp.vcx)ve_rpt_productos_pendientes_de_entrega_v3T\xchgTTTT T  C BU XPDF XVENDEDOROEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOOFORMXDTIPXDTIP2XDAGEXHAGEEXP_PDFbTotccventQXcliauxQ C ZPtventasQ CC !C   66Q CC !C   66C$Q    C$ qBUXDIASTCPEDIDOTCOD_INSDESC_INSFEC_ENTCL FPRORROGAENTREGAFENTREGADIASTCCVENTCLIAUXCOMPROBCAUSATVENTASEST_DESP RECEPCIONRECEP2 XA_VENCERQ T T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxbTCexportaciones_crystal Imp_exp.vcx)ve_rpt_productos_pendientes_de_entrega_v3T\tmp Tpedidos_a_vencer Tpedidos_a_vencerT  dT T T  C"%Cpedidos_a_vencer 'Q\pedidos_a_vencer%%Cpedidos_a_vencerNTT No hay datosB L,\(\xchg\(w TTBUXPDFXDIASXERRXMSGOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_ARCHIVOOFORMXDTIPXDORDXDNUM1EXP_PDFP_SERVEROEXMESSAGE%Cclientes 8Qclientescodcli%Ctccvent sQtccventtccvord%Cbienes Qbienescodins%Cdeposito Qdeposito%Ccentral Qcentral%Cbultos ;Qbultos%Catributo mQatributo%Ctventas Qtventas%Clineas Qlineas%Cmarcas Qmarcas%Cagente 'Qagente%Cgrupos UQgrupos%Czonas Qzonas%CIDX04 Q\idx04%Cpickings QpickingsBUCLIENTESCODCLITCCVENTTCCVORDBIENESCODINSDEPOSITOCENTRALBULTOSATRIBUTOTVENTASLINEASMARCASAGENTEGRUPOSZONASP_COMMONPICKINGS%Cq_filtro!QH6 t+oborrarNq_filtro +oborrarSq_filtro 2+qborrarq_filtro%Cq_filtro QBUQ_FILTROXFILTRO_STOCK_PDPEDIDOBORRARHAY_STKF ~TT,TC  6<ocompromQ pickingsQ   C Q CQ        % >CCCCCSINO6CC--CCSINO66BUXPEDIDOXITM XPRECIO_BRUTOTMPPEDIDOITMCANTIDAD TOTAL_ORIGENARR_PCKCCODATRBULCANPLIBENTLIBCOMPROMPICKINGSPCKPICKINGPCK_CAN PCK_BRUTODLIBENT 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxbTCexportaciones_crystal Imp_exp.vcx)ve_rpt_productos_pendientes_de_entrega_v3T\tmpTTTT  C BU XPDF XVENDEDOROEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDTIPXDAGEXHAGEEXP_PDFejecutar_proceso exportar_1m exportar_rechazados_por_vendedorNpedidos_a_vencerexportar_pedidos_a_vencer open_files,filtrar_pedidosÑpickingsexportar_informes_semanales%2AAA!AAAQQQrQtqG911qbAAArrqAAqAB1qAAqAAqAAqAAABAQA"Ar2QA"ArQA"ArABBBqAA2qAAqAABAAB5qBr&qAA"QaAAA1211" 1r1b1RAAAVAVAaA$qA8Ae@[0!GBtrB!AAbr5d4A`QLuqAAaBsQQBsasrrAqAArAd4saraBtSrBRBBrABwbABRBBCA2Asb1!aAq!aAA11AAAA1A1A1aA!aAAqAA11AAAAA1AarAB1AA q2 Bu{11A11A22BB12a2q2Q2aB3ttQA0LzArc1!aA11AAAA1A1A1aA!aAAqAA11AAAAA1Aa1AAAArAB2O>BBrAB3tArA!"!AB2!"AB3qNB31!"A"qAQAAAB5AAAAA1A!AAA1A!A!A!A!ArArAAAB2A12BAB2rr@ "W ABB2!"AB1ڿ$Tbd+{W,1;Y% m Ea SfxG.#TCCC resp "TCCC err %C <TCClog - AGES Externo - CClog & Clog @TCClog\log - AGES Externo - CClog% G  TC- T9-T9GEST9 logowind.ico TC 2TC TC T9 T9  T C]TC]C]H$ Cr6C'Deben especificarse los datos de envo.B- C0 @C'No se encontr el archivo especificado.C B-  T CCaTCwwHTTPNTGET4Thttp://  dummy_val.agesTCTCwwHTTPN Tapplication/jsonT %C  -C  -application/jsonT)Thttp://   HH POSTwTC GETTCT  %C C CC a (!q N%C JCC!a  XCC!a U"XENVIOXLOG XRESPUESTAXERRORXINTERNO P_EXE_PATHVISIBLECAPTIONICONTOPHEIGHTWIDTH P_EXE_FILEOENVIO NFJSONREADWWCLIENTLOHTTP CHTTPVERBXCMD AGES_SERVERAGES_DIRLCHTMLGET CCONTENTTYPETIPOCJSON ADDPOSTKEY CJSON_KEYNCONNECTTIMEOUTFUNCIONPOST RESPUESTA NFJSONCREATEOEX_TCCaTTTU XRESPFILEXRESPORESP NFJSONREADXENVIOTHIS RESPUESTAOKERRORMSG UOENVIOU/,CTimer aTimer_TimerUTHISATIMERLeer_RespuestaRespuesta_Recibida_Async aTimer_TimerINIT T T T T T T T T T T  T - T . Q -d    U AGES_SERVERAGES_DIRFUNCIONCJSON CJSON_KEYESPERA RESPUESTARESPUESTA_FILEERRORMSG ERROR_FILEOKTIPOATIMERTIMERENABLEDINTERVALAGES_Externo_EnvioCUSTOM[qe1!"AAAb!ABaaq!qAqQra1AQb1TAQQA!AAQ!QAAQB1qqQ1112q2=23O j tV |X  Y2 l [ v f%|(*.*ztXh/  6BC U XAUTXFILESXDESTINOXMSG XDIRECTORIOXUSUARIOXPASS XRECURSIVO XCOPIAZIP XMANTENERZIP XSERVIDORFTP_ENVIAR_ARCHIVOSg 4 T(C>W$TCCC\ BUMSG1MSG2ZDISPLACESWITCHh 4 T(C>X%TCCC\ BUMSG1MSG2ZSWITCHDISPLACE4H CAZ]TCCATCCZ  CazTCCaTCCz  C09TCC0TCC9 2 T BUXDIFY; 4H+ CAZHF Z sTA A  TZ 2TCC  CazlHh z Ta a  ITz 2hTCC  C09H 9 T0 0  T9 2TCC  2+ T BUX DIRECTIONY/    wconnect2.prg5G+(listadosT  T T T T TT @T.T  !T C&% CCfZIP yTCTCC T!- `T!a TCwwZipN%CTC".zipT#\tmp\T #TCTC TT l TC $(%TT%& <%PR %1T No se pudo zipear los archivos:  >/C"No se pudo zipear los archivos !!!'<B-R < T- T /"%C p_ftp_serverbC T(%C p_ftp_dirbC T) %C p_ftp_userbC T* %C p_ftp_passbCG T+T,CFTPNT,-C ,- T,.CC*/ T,0CC+/ $T,1CC C6T,!%C xDirectoriobCT,2TC,3(%MT%& {%p C4<,%%(TTransferencia realizada !!! *CTransferencia realizada !!!0x%! %Z"TError al enviar:  5C&Error al enviar el archivo por FTP !!!0x5 wconnect2.prg BU6XAUTXFILESXDESTINOXMSG XDIRECTORIOXUSUARIOXPASS XRECURSIVO XCOPIAZIP XMANTENERZIP XSERVIDOR FN_PUBLIC WCONNECT2PRGXOKXOK2OZIPXTMPFILE XTMPLOCALXERRLISTADOSWWCLIENTFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEATESTARR NTESTFILES XESTEMPORALNEWFILEP_LOCALZIPFILESOEXMESSAGEMENSAJE P_FTP_SERVER P_FTP_DIR P_FTP_USER P_FTP_PASSOFTPHOSTUSRDECRYPTPWDLOCALDIRFTPDIRFTPSEND ESTADO_REL FN_RELEASE+     %sys_mail_chilkat0%C C C C TC FTP_VacioNTTC HTCC TCC $TCC C6"T CChilkat_9_5_0.SFtpNT :T :T sftp.example.com T T C % T  T-%p(T CmyLogin myPassword % lT  T-%T C !% T  T-%lTc:/temp/hamlet.xml'Tsubdir1/subdir2/hamlet.xmlT C "% hT  T-< %%#,TTransferencia realizada !!! *CTransferencia realizada !!!0x %#5#TError al recibir:  @C'Error al recibir el archivo del FTP !!!C 0x BU$XAUTSXFILEXDESTINOXMSG XDIRECTORIOXUSUARIOXPASSXSERVERXLOCAL XSETEARPASIVOLOSFTP LCHOSTNAMELNPORT LNSUCCESSLCREMOTEFILEPATHLCLOCALFILEPATHOGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATOFTPHOSTDECRYPT P_FTP_USER P_FTP_PASSLOCALDIR XTMPLOCALCONNECTTIMEOUTMS IDLETIMEOUTMSCONNECTXERR LASTERRORTEXTXOKAUTHENTICATEPWINITIALIZESFTPDOWNLOADFILEBYNAMEXAUT+ %CxServerbC%CC=@sftp2C   wconnect2.prg55 T TaG+(listadosT  T T T T TT @T.TTC 0%C C C C BT C FTP_VacioNT !T "T #$T $CC C6 T CFTPNT "CC&% T #CC'% $T $CC C6T !%C xDirectoriobCT (% T )aTC *%C0 { T-"TCC +Z -  ,(-T-. T- % C/< %\%$,TTransferencia realizada !!! X*CTransferencia realizada !!!0x %#TError al recibir:  @C'Error al recibir el archivo del FTP !!!C 0x0 wconnect2.prg BU1XAUTSXFILEXDESTINOXMSG XDIRECTORIOXUSUARIOXPASSXSERVERXLOCAL XSETEARPASIVOFTP_OBTENER_CHILKAT FN_PUBLIC WCONNECT2PRGXOKXOK2OZIPXTMPFILE XTMPLOCALXERRXAUTLISTADOSWWCLIENTFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEOFTPHOSTUSRPWDLOCALDIRDECRYPT P_FTP_USER P_FTP_PASSFTPDIR LPASSIVEFTPFTPGETNERROR CERRORMSGOEXMESSAGE ESTADO_REL FN_RELEASE 7BUARRk 4%CxAutbU5TdTTTCP 8C C Conectando...aa C %C Recibiendo...aa C%GCDesconectando...aa C %nT C V%6T)No se pudo establecer la conexin FTP !!! RkC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CU CFILEORIGEN CFILEDESTINOXAUTTHIS CUSERNAMEUSR CPASSWORDPWDXMAXNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOSTNERROR FTPGETFILEEXFTPDIRLOCALDIRFTPCLOSEXMSG CERRORMSGMENSAJE ESTADO_REL 4%CxAutbU5ToTT Ta&T CC  8C C Conectando...C%C Enviando...C %RCDesconectando... C %yT C a%6T)No se pudo establecer la conexin FTP !!! ]kC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CBU CFILEORIGEN CFILEDESTINOXAUTTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTPXMAX FILE_SIZELOCALDIRNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOSTNERROR FTPSENDFILEEXFTPDIRFTPCLOSEXMSG CERRORMSGMENSAJE ESTADO_RELa %CxAutbU5TZTTTCP 8C C Conectando... C %C Recibiendo... C%=CDesconectando... C %dT |C L%6T)No se pudo establecer la conexin FTP !!! HkC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CULAFILESLCSPECXAUTTHIS CUSERNAMEUSR CPASSWORDPWDXMAXNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOSTNERRORAFTPDIRLOCALDIRFTPCLOSEXMSG CERRORMSGMENSAJE ESTADO_RELH(~ e*C Procesados: C_/C_ ~R ULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNK LNTOTALBYTESLOFTP ESTADO_INC-4#C*.*U LCZIPFILETHIS UNZIPFILESLOCALDIR, 4C U LCZIPFILELCFILESTHISZIPFILESLOCALDIRENCRYPTdecryptswitch7displaceXftp_Enviar_Archivosftp_Obtener_Chilkat ftp_Obtener_Archivos9dummyFtpGetFtpSend FTPList#OnFTPBufferUpdate&unz'z(7 T T T TUHOST P_FTP_SERVERFTPDIR P_FTP_DIRUSR P_FTP_USERPWD P_FTP_PASS T T T T T T- ULOCALDIRHOSTFTPDIRUSRPWDXAUTFTP FTP_Vacio) FTP_VaciowwFTP*a2AA2QA2qaaaaaaA2QAQAQAA2"sQb11QaaAqA2QAqqARqA"AAAA2AAAqAAA!QAB2qqqqqqqQAA"AAAAAAAAqAAArA1AB2!AAq!`q3A1AAAA!!AAqAA1AB3A1AACAAaAAB5AcABAAaAAB3AAsCAAaAAB3q1AQA3q1355 6 < Xy!&C:uIv#;#%?&g*a*0.O.1128263BQ33G%[&&3% ; 9 \S6%  /UXRELEASE FN_PUBLIC FN_RELEASEG<     <<#< !"#BU$FTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEINTERNET_SERVICE_HTTPINTERNET_FLAG_RELOADINTERNET_FLAG_KEEP_CONNECTIONHTTP_STATUS_PROXY_AUTH_REQHTTP_QUERY_STATUS_CODEHTTP_QUERY_FLAG_NUMBERHTTP_QUERY_RAW_HEADERS_CRLF GENERIC_READHKEY_CLASSES_ROOTHKEY_CURRENT_USERHKEY_LOCAL_MACHINE HKEY_USERS ERROR_SUCCESSFORMAT_MESSAGE_FROM_SYSTEMHTTP_QUERY_STATUS_TEXTREG_NONEREG_SZ REG_BINARY REG_DWORDMULTI_SZINTERNET_OPTION_CONNECT_RETRIESFILE_ATTRIBUTE_NORMALINTERNET_DEFAULT_FTP_PORTINTERNET_OPTION_LISTEN_TIMEOUT$INTERNET_OPTION_DATA_RECEIVE_TIMEOUT!INTERNET_OPTION_DATA_SEND_TIMEOUT INTERNET_OPTION_DISABLE_AUTODIALG7     #777 !"#$T  T T T T T T TF T T TT AT @T.T T T T T  AT  @ TT  TT T TT T T T  TT. T  T! T" T# T$BU% FN_RELEASEFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEINTERNET_SERVICE_HTTPINTERNET_FLAG_RELOADINTERNET_FLAG_KEEP_CONNECTIONHTTP_STATUS_PROXY_AUTH_REQHTTP_QUERY_STATUS_CODEHTTP_QUERY_FLAG_NUMBERHTTP_QUERY_RAW_HEADERS_CRLF GENERIC_READINTERNET_OPTION_CONNECT_RETRIESFILE_ATTRIBUTE_NORMALINTERNET_DEFAULT_FTP_PORTINTERNET_OPTION_LISTEN_TIMEOUT$INTERNET_OPTION_DATA_RECEIVE_TIMEOUT!INTERNET_OPTION_DATA_SEND_TIMEOUT INTERNET_OPTION_DISABLE_AUTODIALHKEY_CLASSES_ROOTHKEY_CURRENT_USERHKEY_LOCAL_MACHINE HKEY_USERS ERROR_SUCCESSFORMAT_MESSAGE_FROM_SYSTEMHTTP_QUERY_STATUS_TEXTREG_NONEREG_SZ REG_BINARY REG_DWORDMULTI_SZ fn_release fn_publicqqqA2qq1A2rr1qQQRB6s  %Ls6nDU 5TC C  T T T T T T T%CxTareabO,TC Monitor_Tarea Monitor2.PrgH  TAsientos DiariosTxMSG=''-TDO co_aut WITH .T., xMSG"TSet Procedure to  T *TDocumentos a Cuenta CorrienteTxMSG=te_docs(.T.) T %TReindexacin de archivos3T&DO reindexar_monitor IN ctrl WITH xMSG T -#TMantenimiento de Stock4T#DO in_mantenimiento WITH , , , .t.0TxMSG=" Mantenimiento del Stock" T !TMantenimiento de CCC#TxMSG=sys_mant_ccc(.T.) T !TMantenimiento de CCP#TxMSG=sys_mant_ccp(.T.) T lTUpload del Log%TxMSG=sys_upload_log(.T.)T upload_log T 'TExportacin de CC Clientes$TxMSG=cc_cli_export(.T.) T  <!TExportacin de Stock$TxMSG=in_stk_export(.T.) T  &TExportacin de Resultados$TxMSG=es_sch_export(.T.) T  [)TVerificacin de ConsistencialT_xMSG=IIF(sys_consistencia(.T.),"Consistencia : OK","Consistencia : Se han hecho correcciones.") T  #TUpload del Log Monitor3T&xMSG=sys_upload_log_Monitor(.T.,.f.,2)Tupload_log_monitor T  *TTests: Asientos con problemasBT5xMSG=monitor_an04(15, "Asientos con problemas", this)Ttests_15 T 70T#Tests: Asientos diarios automticos?T2xMSG=monitor_an04(9, "Asientos Automticos", this)T tests_base T 8T+Tests: Clientes Saldo en cc vs comprobantesAT4xMSG=monitor_an04(11, "Cli. Saldo CC vs cpbt", this)T tests_base T  ;T.Tests: Proveedores Saldo en cc vs comprobantes@T3xMSG=monitor_an04(12,"Pro. Saldo CC vs cpbt", this)T tests_base T * 'TTests: Cheques de terceros3T&xMSG=monitor_an04(18,"Chq 3ros", this)T tests_base T  (TTests: Asientos balanceados4T'xMSG=monitor_an04(25,"AS Balanc", this)Ttests_25 T 7 0T#Prod: Actualizar Tabla de Faltantes,TxMSG=in_consulta_faltantes(.t.) T  FT9Tests: Ventas bien registradas (ENC/DET/CC) (No contable)0T#xMSG=monitor_an04(1,"Ventas", this)T tests_base T  GT:Tests: Compras bien registradas (ENC/DET/CC) (No contable)1T$xMSG=monitor_an04(2,"Compras", this)T tests_base T F IT<Tests: Cobranzas bien registradas (ENC/DET/CC) (No contable)3T&xMSG=monitor_an04(3,"Cobranzas", this)T tests_base T  ET8Tests: Pagos bien registrados (ENC/DET/CC) (No contable)/T"xMSG=monitor_an04(4,"Pagos", this)T tests_base T ]%TProd: Analizar Faltantes'TxMSG=in_faltantes(.f.,.t.) T T Seal de Vida&TxMSG=sys_monitor_latido() T >T Tests: Stocks0T#xMSG=monitor_an04(8,"Stocks", this)T tests_base T TTests: Pedidos2T%xMSG=monitor_an04(27,"Pedidos", this)T tests_base T Z%TTests: Ordenes de Compra<T/xMSG=monitor_an04(26,"Ordenes de Compra", this)T tests_base T -T MSGs: Ordenes de Compra vencidas>T1do MSG_Agregar_nuevos in cm_sql_compras with xMSG T 2T%Exportacin de Pagos con imputacionesVTEdo ejecutar_consulta_exportar IN cm_sql_pagos_con_imputaciones WITH 0(TxMSG='Pagos exportados' T S(TTests: IVA vs. Contribucin?T2xMSG=monitor_an04(32,"IVA vs. Contribucin", this)T tests_base T  -T Tests: Stock - Valores negativosDT7xMSG=monitor_an04(33,"Stock - Valores negativos", this)Ttests_33 T !.T!Mantenimiento de Stock AUTOMTICOKT>do mantenimiento_automatico in in_mantenimiento with .t., xMSG T "*TBackup AUTOMTICO del sistema)Tdo Sys_backup with .t., xMSGTtarea_34 T #!TGeneracin de costosNTAdo Generar_Automatico in cs_generar with xMSG, p_mon_35_prefijada TTTarea_35 $$TBaja de cheques*TxMSG=te_debitos_baja(.t.) T %%TGeneracion de PDF AvanceET4=es_ind_gen_pdf(.t., @xMSG, .f., xTMPVend, xTMPTEST) TTTarea_37 2B-TTT T T %C {+T C monitor_config.vcxT  BU XOPERACIONXTAREAXCFXMACROXCONFIGXNOMBREXTIPO ID_INTERNONOMBREMACROOBJETO_CONFIG_NOMBRETIPO OBJETO_CONFIGmonitor2_intercambio.prgmonitor_an04.prg in_consulta_faltantes.prg"SQL_rptinventarioactual.PRGsys_monitor_latido.prgUMONITOR2_INTERCAMBIOPRG MONITOR_AN04IN_CONSULTA_FALTANTESSQL_RPTINVENTARIOACTUALSYS_MONITOR_LATIDOGET_Preseteada,dummy?1qQA11!11Q111A11111Qq1qA1A1aA11111!Q1q1q1q1q1q1AQ11aq1qq11q1Qq1Qq1a1q1!q1Qq11!a1q1AQ11Q1Q11QQQqAQ1A3q!1.L%L-X|3UV %CF*T\XCHG\sch_intercambio.dbf%CwTsch_intercambio%C0 3h1CNT& & & Q%C ,FQG((nombre O FG((nombreUXPATHXALIASP_SERVERNOMBREESTADOFECHA7 CT BUXTABLAXOK BUSCAR_TABLASESTADOO C E%C4 H > >UXTABLACREATE_OPEN_TABLE_INTERCAMBIONOMBREESTADO^C>C6%C W >UXTABLAXESTADOXFECHA BUSCAR_TABLASESTADOFECHACreate_Open_table_Intercambio0Chequear_disponibilidad buscar_tablas! Marcar_Tablas1AA!4AA!A4!3qQA4!A1(=cL&&rQ4% ~ @4*< G+(an04CC.QC Inicio AN04     T T %Cempresas &Q \empresascodigoFG((codigo%#)   E5+Cempresas+ C  !an04 T4%Cp_mon_tests_desdeMDbN TC$$TCBAC$6 T T T T  T! T"c"Tsis_CCCZ0&xTest=.T. TCOT T # T$C Empresa: CC Z5%C$\data\CC Z \clientes.dbf0 (PC Archivo '$\data\CC Z\clientes.dbf' no alcanzado.%an04,C------------>Terminada:CC ZT C #%C C R, T C C >=. %&"' C Enviando SMST!:  %T EMP: C(.CC Z%C) * T+C*,)6 T-&T.C! -+NO/C Terminado SMS%0"1 C Enviando MailT!:  %T EMP: C(.CC Z%C2 3 >T 4\TMP\(.CC Z-CC.txt( T+C3526 T-,T.C! -+NO /CTerminado Mail%6CC Enviando SQL 2TCTestSys_clases_Tests.prgT7 T8 T9T:"T;( C< C=C Terminado SQL( CERROR: > C= T-<%C R rT   'T  EMP:CC Z:  C %Cempresas &Q \empresascodigo #FHCSkip CG+(K B U?XPROCXNOMBREXTAREAOTAREAOEXSQLAN04 AN04_REPORTARXTEST XREGEMPRESA XMSGFINALXSUBJECTXACT_EMP XFILE_ENVIOXACT_EMP_DESCRXFILE_TEST_TEXTP_SYSTEMCODIGOEMPRESASP_MON_TESTS_EMP_TODASP_MON_TESTS_EMPRESA_DESDEP_MON_TESTS_EMPRESA_HASTA IMPR_CLEARXDESDEP_MON_TESTS_DESDEP_MON_TESTS_DESDEMDXHASTAP_MON_TESTS_HASTAXCORP_MON_TESTS_CORRIGEXAUT XFILT_EMPP_MON_TESTS_FILTRO_EMPRESASXMSGXMAILXMINPRIOABREVXP_SRVPROCESARP_MON_TESTS_ENVIAR_RESUMENP_MON_TESTS_PRIORIDAD_RESUMENP_EMPP_MON_TESTS_RESUMENP_MON_TESTS_RESUMEN_AUTOXDEST P_MAIL_CCXMSG2XOK SYS_SEND_MAILP_MON_TESTS_ENVIARP_MON_TESTS_PRIORIDADP_MON_TESTS_COMPLETOP_MON_TESTS_COMPLETO_AUTOP_LOCAL P_MAIL_RCPP_MON_TESTS_ENVIAR_SQLMENSAJEEMPRESAARCHIVO PRIORIDADSISTEMAENVIARDISPONSEMESSAGE  %Cc:\monitor2.log0j!TCc:\monitor2.log C TCc:\monitor2.logCCC -  C(UXTEXTOXMNFL2OEXsys_clases_tests.prgUSYS_CLASES_TESTSPRG AN04_Reportar dummy 1aAqQARAAA"RAb1AqQbAAqQ!AA"AAqA!AqaAqAAaQ2qqAA21n#|?W%Xa [;XLU\'4% ZCbienescodinsF T T T T % S S @%Ctr04 Qtr04F G((tr04G EG %C4 TCO Ta+C+   *%    T-!H% #+C+   ve_procsFH E%C4k4+C+ !  gve_procsFH E %C47+C+ $   ve_procsFH E %C4u7+C+ $   qve_procsFH  #:+C+ '    ve_procsFH <3C&Artculo compuesto sin componentes !!! T- Q% FT!TC T!TC T M %C ?T   ve_procs.PRGCantidad por Bulto = 0 Pedido : CZ Error !!! Unidades por bulto de      = 0 TTC Error !!! Unidades por bulto de      = 0T!TC T!TC !TBU"T_BULTOST_PESO T_VOLUMEN T_RECEPCION TMP_COD_INS TMP_RECEPTMP_BULTMP_ATRTMP_CLIBIENESCOD_INSTEMPCOMP COMPUESTOCONJUNTOTR04REGTR04OKBULATRCALCVE_PROCSMENSAJEOK_COMPBULTOSXXBULXXXBUL PESOXBULT VOLUXBULT CANTXBULTXCBREPORTEXPEDIDOPESO VOLXBULTO 5% FG((codigoE%C4T  T  C TT  C T)TCC8 C8C86T } %C?$T & ve_procs.PRGCantidad por Bulto = 0 Pedido : CZ Error !!! Unidades por bulto de    = 0 TTC Error !!! Unidades por bulto de    = 0T!T  C T!T  C T FG((codigoE%C4\T $T  C  T$T  C  T)TCC8 C8C86T  T!T  C T!T  C TBUAABULAAABULTR04CBULBULTOSCODIGO COMPONENTE TMP_RECEP CANTXBULTCANTIDADT_PESO PESOXBULT T_VOLUMEN VOLUXBULTT_BULTOSBIENESXCBREPORTEXPEDIDOTEMPCOMPCOD_INSBULATRMENSAJEXXBULPESO VOLXBULTOTMP_BULXXXBULF 4%Cx+ BS ? BNUMENSAJESIONO4H C8?B@z 99! dCd8sB @z 99.9999 2B@z 99.99B @z 999.99UXD4H 4 B P B l B  B  B BUXMONEDAINDICE1INDICE2INDICE3INDICE4INDICE5W 4HG HT Sin Analizar tT Pendiente  T Armado  T En Viaje  T Terminado  $T Facturado 2GT Otro  BUXESTADOXEST TC $%C FTCC+ CO6FTCC+ CO6TT  T  T %TC6T%%cF G((id%%CZCZ_ECZ%CXT %CXT TCX%CXFG((codcli ETT  T  T %TC6T#TCS6#TCS 6#TCS 6#T CS! 6#T"CS#6#T$CS%6F% # %C+ #6HF #TCS6#TCS6#TCS6#T CS! 6#T"CS#"6#T$CS%$6$%C&' %C( &T(CS)*6@T&CS CC+ +66@T'CS CC+  ,66@T-CS CC+  .66@T/CS! CC+ 066@T1CS% CC+ 266jT3CS#JCC+C6C44666 #T&CS&6#T'CS'6#T-CS-6#T/CS!/6#T1CS%16#T3CS#36(T5CSCX66(%C78 C c %9:;F9G((codfle E;%%=C9> %S %C? | T?) T7 T8 T@ TA TB" TC$ TDETFGTHITJK  % %C? j &T?CS)*6%CL T7LT8MT@NTAO%TBCPP6TCQ TDE p T7 T8 T@ TA TB"TC TDETFGTRITJK  %C? T?*T7T8 T@ TA%TBC6TC TDETFGTRSTJK _ %C? T?9*T79T89 T@9 TA9 TBTC9TD9TTF9GTR9S% %%=C9> %S  %  T?*T7T8 T@ TA%TBC6TC TDETFGTRSTJKBUU XRECALCULAR XCLIDOMICILIO XCLICIUDADSUCURSALREGISSUCCLIENTESREGISCLIXXCLIDOMICILIO DOMICILIO XXCLICIUDADCIUDAD XXCLICOD_ZIPCOD_ZIPXXCLIPROVINCIA PROVINCIA XXCLIPAISPAIS XXCLIPHONOPHONO P_UNEGOCIOSXSUCIDCOD_CLIXCOD_CLI UNEGOCIOS XUNEGOCIOSCODCLITARJETA XI_DIRECCION XI_CIUDAD XCLICOD_ZIPXI_ZIP XCLIPROVINCIA XI_PROVINCIAXCLIPAISXI_PAIS XCLIPHONOXI_PHONO XFCEDOMICILIO XFCECIUDAD XFCENOMBRE XOTRO_CLINOMBREDOMENTCIUENT XFCECOD_ZIPZIPENT XFCEPROVINCIAPROENT XFCEPHONOPHOENTXFCEPAISPAISENT XFCEHORARIOHORENT XENTDOMICILIO XENTCIUDADFLETESCOD_FLEXFLETECODFLEP_VE_ENTREGA_REALTIPO XENTNOMBRE XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIOXHORARIO XENTCOORDENTCOORDXGEODIRGEODIR2XENTGLNGLNDOM2CIU2ZIP2PRO2PAIS2PHO2XGEOENTGEODIRHORARIOO4     F G((idECZ%C4 C TCTTTTTT T T T T T T!T"T#!%C xporcentajebNT$  TBU%XCOMPROBXCAUSAXITEMXDESCR XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXCHQNUMXCHQSUBXITEM_OCXOLDITM XDESPACHO XPORCENTAJEITM_DESCIDDESCR COMENTARIOTIPOENVCANTENVTARAREF_OCENSAMBLEIB ADICEXPORTCOD_PROCHQNUMCHQSUBITEM_OCOLDITEMDESPACHO PORCENTAJEO4     TC TC F G((idECZ%C4 !>>C   ! " #$%>&C )%Citm_desc.porcentajebN>'BU(XCOMPROBXCAUSAXITEMXDESCR XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXCHQNUMXCHQSUBXITEM_OCXOLDITEM XDESPACHO XPORCENTAJEITM_DESCIDCOMPROBCAUSAITEMDESCR COMENTARIOTIPOENVCANTENVTARAREF_OCENSAMBLEIB ADICEXPORTCOD_PROCHQNUMCHQSUBITEM_OCOLDITEMDESPACHO PORCENTAJE+ 4CBUXCURSORXTIPOPD_TABLA_AYUDAfTC %CET%Cg Tc%CxcursorbCTtmp%%Ctccvent.tipo_ncbN&eotccventclientesQCCCS -  6(Q  Q C  S/A C APR RECH66QQQC  0  C 4C C a66  [+otccventclientesQCCCS -  6(Q  Q C  S/A C APR RECH66QQQC  0  C BUXCURSOR XDEST_DESP XHEST_DESPXLTIPOTCCVENTPEDIDOCLIENTESNOMBRETARJETADES_CLIECLIENTEFEC_VENFECHACREDITOSTOCKGERENCIAEST_DESPESTADOREFOCTIPO_NCCOD_CLIC4%CBUXCURSORXCODIGOXATRXBULXPEDIDOPD_TABLA_AYUDA_ITEM4%C>T%C` Tc%CxcodigobCTCX%CxatrbCTCX%CxbulbCTCX%CxpedidobN TT.t.%C FT9tventas.cod_ins+tventas.atr+tventas.bul=xcodigo+xatr+xbul%,T and tccvent.pedido=xpedido%CxcursorbCTtmpselect tccvent.pedido as pedido , padr(alltrim(clientes.nombre)+iif(clientes.tarjeta="S",+" - "+tccvent.des_clie,""),40) as cliente , tccvent.fec_ven as fecha , iif(tccvent.credito+tccvent.stock+tccvent.gerencia=0, "S/A ",iif(tccvent.credito+tccvent.stock+tccvent.gerencia=3, "APR ","RECH")) as estado , tventas.itm as itm , tventas.cod_ins as codigo , tventas.atr , tventas.bul , tventas.desc_ins as descr , tventas.recepcion-tventas.recep2 as cantidad , itm_desc.ensamble as ensamble , tccvent.tran from tccvent, clientes, tventas left outer join itm_desc on str(tventas.pedido,12)+"P"+str(tventas.itm,4)=itm_desc.comprob+itm_desc.causa+str(itm_desc.item,4) where tccvent.cod_cli=clientes.cod_cli and tccvent.pedido=tventas.pedido and between(tccvent.est_desp,xdest_desp, xhest_desp) and tccvent.pedido#0 and tccvent.cod_cli#"0 " and !empty(tccvent.cod_cli) and &xfiltro into cursor (xcursor) readwrite BUXCURSOR XDEST_DESP XHEST_DESPXCODIGOXATRXBULXPEDIDOXFILTRO4%Cnumfac =Qnumfac T F TCO # T T # T BU XSUCFACXLETRAXCAIXVTONUMFACXERRXOLDCAICAIVTO&%Cccvent 9Qccvent%C facturas_cf`FoccventCHQCQC  B00-00000000V B99-99999999V  CCCi$  facturas_cf K(KCH(FQBU XFECHA XCANT_MENSUAL XCANT_ANUALCCVENT FACTURAS_CFFEC_VENMESFACTURASFAC_VENCAUSAIVACAT4CBUXCURSORAR_TABLA_AYUDA4%CxcursorbC4TtmpoccarmadotccventclientesQQCCCS - 6(Q  Q        0  BU XCURSORCCARMADOARMADOPEDIDOCLIENTESNOMBRETARJETATCCVENTDES_CLIECLIENTEFECHAEST_ARMCOD_CLIq%Cfletes 9Qfletes%rFG((codfle EHf :TT  T  T T TTTTT CFG((comprob ETT T T T T!T"T#TT TRETIRA EL CLIENTE T  T  T  T T T T T T$ fT NO SE ENTREGA T  T  T  T T T T T TBU%XCOMPROBXCAUSAXFLETEFLETESCOD_FLECODFLETIPO XENTNOMBRENOMBRE XENTDOMICILIO DOMICILIO XENTCIUDADCIUDAD XENTCOD_ZIPCOD_ZIP XENTPROVINCIA PROVINCIAXENTPAIS XENTPHONOPHONO XENTHORARIOHORARIO XENTCOORDENTCOORDXGEOENTGEODIRCLIAUXCOMPROBENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORXGEODIR 4[T!!epresup.cerrado and venc>=date()CC CC  and 6CBUXCURSORXFILTRO2XFILTROPD_PRESUP_AYUDA 4%CxcursorbC8Ttmp%CxfiltrobCiT.t.wselect epresup.numero as numero , padr(alltrim(clientes.nombre)+iif(clientes.tarjeta="S",+" - "+epresup.des_clie,""),40) as cliente , epresup.fecha as fecha from epresup, clientes where epresup.cod_cli=clientes.cod_cli .and. epresup.numero#0 .and. epresup.cod_cli#"0 " and !empty(epresup.cod_cli) and &xfiltro into cursor (xcursor) readwrite BUXCURSORXFILTRO<4CBUXCURSORXCODIGOXATRXBULXNUMEROPD_PRESUP_AYUDA_ITEM4%CxcodigobCCTCX%CxatrbCpTCX%CxbulbCTCX%CxnumerobN TT.t.%C ?FT9dpresup.cod_ins+dpresup.atr+dpresup.bul=xcodigo+xatr+xbul%,T and epresup.numero=xnumero%CxcursorbCTtmp7select epresup.numero as numero , padr(alltrim(clientes.nombre)+iif(clientes.tarjeta="S",+" - "+epresup.des_clie,""),40) as cliente , epresup.fecha as fecha , dpresup.itm as itm , dpresup.cod_ins as codigo , dpresup.atr , dpresup.bul , dpresup.desc_ins as descr , dpresup.cantidad as cantidad , from epresup, clientes, dpresup where epresup.cod_cli=clientes.cod_cli and epresup.numero=dpresup.pedido and epresup.numero#0 and epresup.cod_cli#"0 " and !empty(epresup.cod_cli) and &xfiltro into cursor (xcursor) readwrite BUXCURSORXCODIGOXATRXBULXNUMEROXFILTRO4CBUXCURSORPD_CONSOLIDADO_AYUDA 4%CxcursorbC8Ttmp}o pd_consoltccventclientesQQC(Q   BU XCURSORXFILTRO PD_CONSOLCONSOLPEDIDOCLIENTESNOMBRECLIENTETCCVENTCOD_CLIC4%CBUXCURSORXCODIGOXATRXBULXPEDIDOPD_TABLA_AYUDA_ITEM_PROD4%C>T%C` Tc%CxcodigobCTCX%CxatrbCTCX%CxbulbCTCX%CxpedidobN TT.t.%C FT9tventas.cod_ins+tventas.atr+tventas.bul=xcodigo+xatr+xbul%,T and tccvent.pedido=xpedido%CxcursorbCTtmpwselect tccvent.pedido as pedido , padr(alltrim(clientes.nombre)+iif(clientes.tarjeta="S",+" - "+tccvent.des_clie,""),40) as cliente , tccvent.fec_ven as fecha , iif(tccvent.credito+tccvent.stock+tccvent.gerencia=0, "S/A ",iif(tccvent.credito+tccvent.stock+tccvent.gerencia=3, "APR ","RECH")) as estado , tventas.itm as itm , tventas.cod_ins as codigo , tventas.atr , tventas.bul , tventas.desc_ins as descr , tventas.recepcion-tventas.recep2 as cantidad , itm_desc.ensamble as ensamble , nvl(pr_otros.prod, 0000000000) as prod , tccvent.tran as tran from tccvent, clientes , tventas left outer join itm_desc on str(tventas.pedido,12)+"P"+str(tventas.itm,4)=itm_desc.comprob+itm_desc.causa+str(itm_desc.item,4) left outer join pr_otros on str(tventas.pedido)+str(tventas.itm)=str(pr_otros.pedido)+str(peditm) where tccvent.cod_cli=clientes.cod_cli and tccvent.pedido=tventas.pedido and between(tccvent.est_desp,xdest_desp, xhest_desp) and tccvent.pedido#0 and tccvent.cod_cli#"0 " and !empty(tccvent.cod_cli) and &xfiltro and isnull(pr_otros.pedido) into cursor (xcursor) readwrite BUXCURSOR XDEST_DESP XHEST_DESPXCODIGOXATRXBULXPEDIDOXFILTRO 4%CxcursorbC8Ttmp%CxfiltrobCiT.t.$%Cxfiltro_fechasbCH %Cepresup Qepresup%Cdpresup Qdpresupselect "PS "+str(e.numero,12) as numero, e.fecha, e.cod_cli, iif(c.tarjeta#"S",c.nombre,e.des_clie) as nombre , a.nombre as vendedor, d.cod_ins, d.atr, d.bul, d.cantidad, d.precio, d.dto, d.total, d.moneda from epresup e,dpresup d, clientes c, agente a where e.numero=d.numero and e.cod_cli=c.cod_cli and e.vendedor=a.cod_age and &xfiltro into table (xtabla_ps_precios_tmp)  %Ctccvent Qtccvent%Ctventas Qtventasselect "PD "+str(e.pedido,12) as numero, e.fec_ven as fecha, e.cod_cli, iif(c.tarjeta#"S",c.nombre,e.des_clie) as nombre , a.nombre as vendedor, d.cod_ins, d.atr, d.bul, abs(d.recepcion) as cantidad, d.cos_lifo as precio, d.des_ins as dto, d.tot_ven as total, d.moneda from tccvent e,tventas d, clientes c, agente a where e.pedido=d.pedido and e.cod_cli=c.cod_cli and e.agente=a.cod_age and &xfiltro into table (xtabla_ps_precios_tmp)  %Cccvent Qccvent%Cventas LQventas2select iif(e.causa="V","FC ",iif(e.causa="r","RE ",iif(e.causa="c","NC ",iif(e.causa="d","ND ","XX "))))+str(e.pedido,12) as numero, e.fec_ven as fecha, e.cod_cli, iif(c.tarjeta#"S",c.nombre,e.des_clie) as nombre , a.nombre as vendedor, d.cod_ins, d.atr, d.bul, abs(d.recepcion) as cantidad, d.cos_lifo as precio, d.des_ins as dto, d.tot_ven as total, d.moneda from ccvent e, ventas d, clientes c, agente a where e.fac_ven+e.causa=d.fac_ven+d.causa and e.cod_cli=c.cod_cli and e.agente=a.cod_age and &xfiltro into table (xtabla_ps_precios_tmp)  T CWF S  > C  F Q .dbfF BUXFILTROXORIGENXCURSOREPRESUPDPRESUPTCCVENTTVENTASCCVENTVENTASXAREATMP_PS_PRECIOSXTABLA_PS_PRECIOS_TMPMONTXT MM_MONEDAMONEDAALLR%C[ T'TMal llamada la funcin !!!B- T T TCW%Ctccvent Qtccvent%Ctventas Qtventas% &%Ctccventtccvord  F T2TPedido CCZ no encontrado !!!B- T T TF G((ped E%C4 * F T.TPedido CCZ sin tems !!!B- DF+C+   % T'TC  6'TC  6H%TC dTTC dT%>BaUXERRXMSGXPEDIDOXAREAXITEMSXPER_FACXPER_ENTTCCVENTTVENTASPEDIDOPED RECEPCION FACTURADORECEP2ITEMSPER_ENTPER_FAC bul_pes_vol0calc error_msg fmt fn_cambio fn_estado domicilioslevantar_descripcion_completa !guardar_descripcion_completaX$pd_tabla_pendientes_ayuda'pd_tabla_ayuda'pd_tabla_pendientes_ayuda_item ,pd_tabla_ayuda_item,cai_vto2facturas_consumidor_final3ar_tabla_pendientes_ayudaO5ar_tabla_ayuda5domicilio_entrega_real%7pd_presup_pendientes_ayuda;pd_presup_ayuda<pd_presup_pendientes_ayuda_item>pd_presup_ayuda_itemG/_`M.`bWb no tiene los despachos/lotes asignados correctamente !!! itm(CCZ) T! B F%=otempcomp#C# $ rem_no_tot_fac%CNUMFAC MQnumfacF& #' T(H )IND!%' *+  C, F>,./ 2 C,Z%01 2 &3  C 4 G T5 %-6565 165C47 7yAC6%5 TaFQF%CWi8(e F8%Ca!Q9& :(:%5; >C1No se pueden redondear comprobantes mltiples !!! T  F9<(5 T=T>?%CtempcomplFQ"T@A\tmp\CC]RF9 (@FQ@F9~:<fF9^(BF+CNCtmpcmpO  _B!T=C./CO=6!T>C./CO>6F9F+CN?C   T@%DCCFEE TGa%5D CGH%IV%<; TJK R TJT C<L% !% C %CtempcompFQ%CtmpcmpF9Q%Ctempcomp F # FQ T  T< T5%D CCFEE TGaCGHT CaL%  %M .%?= Ctmp_chq  C@%4 CA CB%C=%Cmotivos Qmotivos% ]0CC 6motivoscodigoHr "  CC, D"E  ! D "  CF%G33C)Usa el iva anterior.(%=&occventHJCKL%  T2L$%M N = T?C@"%A B96  0TCCCCDEFG6-g "tCgPara los comprobantes de exportacin a Tierra del Fuego de consumidores finales se utilizar el CUIL !!!) B%CHIlTJCKCCL CM , 6CCL CM CCD ARGENTINANO6  TJHI!+CC C J&TJCJCC C J [TPCJTQCCSR%\TTCU yTTPES%CTRCEDebe definir para esta moneda el cdigo de factura de exportacin !!!) B% TVW * TV#TXCCYZ6T!T[Sin observacionesT\CC]=&T^CCC_ _`O6TaCcbTdCeTfCg%%1 C<  Thi%1M Th)%C1 C< C j3TjCFEX_CPBT_AsociadosFE_objetos.prgITjkClV)ClcCld666TjmnTj9oTjpCgCjqrFst Tt%~Cuvw  %a)TxCFEX_ItemFE_objetos.prg%Csu Csubienescodins%yz{|, !Cyzmedidascodigo%{}Y Tx~{}  RC4Unidad de medida para FE invlida para el artculo: Csu !!!) B  Tx~H U <% TxCu,TxCCCsu ssv6TxTxTxTx~ 8TxCu,TxCCCsu ssv6Txw'TxCC6w T#TxCC6T ?U%TxCu,TxCCCsu ssv6TxTxTxTxTx~ QTxCu,TxCCCsu ssv6Txw%C9TxCC sCsss6T#TxCswxs&TxCxswxT M'TxCC6w T#TxCC6TTxCxrTttx %TXXC62%CCcc6 )TxCFEX_ItemFE_objetos.prgCxrTxTx DescuentoTx~cTxTx TxCcc6TttxF%08cd    >)TxCFEX_ItemFE_objetos.prg( HX x T  T  T  T  T%CTx!TxPercepciones IIBBTx~TxFTxxCC C C6TFTxxCC C C6TTttx%x:Cxr%1%C ,TC FEX_PermisoFE_objetos.prgTC.TC>CrTS TN T#%   t %STC TC((%sys_procesandoC(*)$%CoRespbOC h%sys_procesando6C)Error al registrar la factura electrnica) B%%sys_procesando'CCCZ: ) B-%sys_procesandoRegistrando...%S@TT pTT 3TC#GES.FE.WSFEXv1.FEXResponseAuthorizeT999999999999999TCC$* TT-C-g3TCCR/C\/C=#T1F5>}- BUXFCE_REPROCESOXSOLOLLENO_KRIKOSOCPBTXLLENAQR XWSVERSIONXMONDIVXMONEDAXDIVISAS XCUIT_PROPIOXMSGXOK DATOS_EMPRESALISTADOS OLOCALIZACION CUIT_NUMEROSOWSFEXOLOGINOREGCOMOLCPBTOTA XTIPOCPBTOPERMISOP_VE_FCE_BLOQUEO FE_REGISTRO SERIALIZARODEYFUNCGET_PATHTESTINGXTESTING CERTIFICADOP_SYSTEMP_FCE_CERTCLAVECERTIFICADO_PASSWORD!CERTIFICADO_COMPROBAR_VENCIMIENTO FE_FUNCIONESLIBRERIA_COMPROBAR_VERSION IDSERVICIO SP_MENSAJESYS_PROCESANDO OBTENER_TA_3OEXMENSAJEMESSAGE LOGIN_TICKET CUIT_EMISORXFCE_ID ORIGEN_CUITIDXTIPOPED TIPO_CBTE FECHA_CBTEXFECEMI PUNTO_VTAXNUMEROF COMPROBANTECAUSAXCAUSACBTE_NRO TIPO_EXPO(REG_FACTURA_ELECTRONICA_EXPORTACION_TIPO XTIPOEXPORTDST_CMP(REG_FACTURA_ELECTRONICA_EXPORTACION_PAISCLIENTE XCLINOMFACXIVACATXTIPODOCCUIT_PAIS_CLIENTEXCLIPAISXCUITPAISESCUITCLIENTESDOMALTXDOMI XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP PAISESFCEDESCRDOMICILIO_CLIENTE ID_IMPOSITIVO'REG_FACTURA_ELECTRONICA_EXPORTACION_RUTXCOD_CLI MONEDA_ID*REG_FACTURA_ELECTRONICA_EXPORTACION_MONEDA MONEDA_CTZXCAMBIO IMP_TOTALTX_FINALT_FINALOBS_COMERCIALESOBSXTXTCPBT FORMA_PAGO XCNDSP_DESCRCONDCOBR INCOTERMS-REG_FACTURA_ELECTRONICA_EXPORTACION_INCOTERMSXTIPOEXP INCOTERMS_DS XTIPOEXPD IDIOMA_CBTE*REG_FACTURA_ELECTRONICA_EXPORTACION_IDIOMAFECHA_VENC_PAGOXFCE_FEC_SERVP OCPBTASOC CBTE_TIPOXCAUCBTE_PUNTO_VTA XSUCFACREFXREFNUM2 CBTE_CUITCOMPROBANTES_ASOCIADOSADDTEMPCOMPXACC_PRO_TOTAL_ITEMCOD_INSDESC_INS RECEPCIONOITMBIENESMEDCODMEDIDASCODIGOFCEPRO_UMEDTOT_COM PRO_CODIGOPRO_DS DCODATRBULPRO_QTYPRO_PRECIO_UNIPRO_TOTAL_ITEM MO_TOT_COMPRO_BONIFICACIONP_FCE_EXP_DESCUENTOSCOS_LIFOCALCULO_PRECIO_PSCOEFCOEFICCALCULO_DESCUENTODES_INSITEMS TX_DESCOMT_DESCOMP_FCE_EXP_IIBB_ITMXMOTIVOMOTIVOSTIPO T_ADIC_DTO672NITIIBBZ IIBB_PROVXPERMISOOPER ID_PERMISODST_MERCPERMISOSPERMISO_EXISTENTEORESP-REG_FACTURA_ELECTRONICA_EXPORTACION_REPROCESOFE_PROCESAR_CPBTFEXERRERRCODEERRMSGXFCE_CAE FEXRESULTGETCAE XFCE_VENC FCH_VENC_CAE FEXRESULTAUTHXFACTURA_ELECTRONICAXTIPO_COMPROBANTECCVENTFCE_IDFCE_CAEFCE_VENCFCE_TIPO  TG+( fe_funciones2TC   $%CoRespbOC T-  TaT  % H T-]TC C %No coincide el Tipo de Exportaci{on: CZ - C Z%  T-MTC C No coincide Cliente: CZ - C Z% < T-WTC C No coincide TOTAL: C Z - C  Z%CC  T-QTC C No coincide FECHA: C* - CCC * BUOWSFEV1OCPBTXMSGXOKORESPORESPFEX FE_FUNCIONESFE_OBTENER_CPBT_FEX2 ORIGEN_CUIT TIPO_CBTE PUNTO_VTACBTE_NROORESPEX FEXRESULTGET TIPO_EXPOCLIENTE IMP_TOTAL FECHA_CBTEFE_STOD BUXCOD_CLICLIENTESRUTi%C incoterms ?Q \incotermsEcodigo BUXTIPOEXPP_SYSTEMCODIGO INCOTERMSINCOTERM|%_%Cidx03 BQidx03 # B u BPESUXMONEDAIDX03FCE%V B %C paisesfce _Q \paisesfceEpais BU XENTPROVINCIAP_SYSTEMPAISESCODIGOPAIS PAISESFCE BU BU XTIPOEXPORTQ4?BC00CCZR-C00000000CCCgZRULETRASUCURSALNUMERO +T-C00000000CCZR % C wFG((ccvfac%  3 E !%C4   ACEl comprobante   ya fue utilizado !!! B /3% V  cd  +#%IND cd eG(BA G((idGF E GFG((ccvfac=%C+ C =C=   Ci %CBExiste un comprobante posterior con fecha anterior a la actual !!!C C  Actual :  Fecha: C*C C  Posterior:   Fecha: C* G( B%C ! G((id<GF E GFG((ccvfacD%C C+ C =C=   Ci % CBExiste un comprobante anterior con fecha posterior a la actual !!!C C  Actual :  Fecha: C*C C  Anterior:   Fecha: C* G( BG( sFG EG %C4  0C#El comprobante ya fue utilizado !!! B o% kGGF EGFG 2%C+ C =C= Ci %CBExiste un comprobante posterior con fecha anterior a la actual !!!C C  Actual :  Fecha: C*C C  Posterior:   Fecha: C* G( B%C aG((ccvfac<GGF EGFG G((ccvfac9%C C+ C =C= Ci ]% YCBExiste un comprobante anterior con fecha posterior a la actual !!!C C  Actual :  Fecha: C*C C  Anterior :   Fecha: C* G( BG(TCCZ+% C FG((remito E%C4 -+CEl remito ya fue utilizado !!! B  %  GF EGF2%C+ C=C= Ci e %a C;Existe un remito posterior con fecha anterior al actual !!!C C  Actual :  Fecha: C*C C  Posterior:   Fecha: C* B%C G((remito<GGF EGFG G((remito9%C C+ C=C= Ci % C=Existe un remito anterior con fecha posterior a la actual !!!C C  Actual :  Fecha: C*C C  Anterior :  Fecha: C* G( B BUXNUMFHEADERXNUMEROFXTIPOPEDNULOCCVENTCCVFACP_FCNCND XIMP_FISCALXCAUSAFAC_VENCAUSAMENSAJE P_NOVLDFECVP_NOVLDFECNCNDP_EMPFEC_VENIDXFECEMIXNUMRFORMAT XLETRAREMXSUCFACRXNUMERORREMITOREM_VEN P_NOVLDFECRX G+( ve_funciones!%C xArm_IniciobTGTC%CxArm_FinbTyTC %C xArm_QuienbCTCX %C xArm_CajasbN T!%C xarm_palletbN T%Cxarm_exhbN> T%CxEspOBsbNl T TC T % u% F G((id%% C ZC ZEC Z% CX"T  q%CXTT mTCX)%  %  T  T/%80 99 86 )TC% eTd F  C T C6 >!"%Cmotivos Qmotivos(%#$C%%&680CC%%&6motivoscodigo">'() *+,- ./ 0CC #1  263456 CC89:76;< => ?@ AB CDE FGHI JKLMNOPQRSTC$UVWXYZ[\]^_`abcdefghijklmnopqrstuvC%%&6wxyz{|}~  CC 6  C"C%%&6 C NgmC6C Nr 6 Ca-6 $%Cccvent.arm_exhbN >%Credo_mebN > $>CCK=!>85>>&%Cccvent.sucpropiabN >'%Cccvent.porcentajebL >#%%Cccvent.solo_impbL >#$%Cccvent.versionbNC > ^ >% >  %  >  %  >  >%~{|@ C|fletescodfle%  )%  >   >  M H I ?     ~1  >  ~12 >  2I > BU  VE_FUNCIONES XARM_INICIOXARM_FIN XARM_QUIEN XARM_CAJAS XARM_PALLETXARM_EXHXESPOBSXDTXUN P_UNEGOCIOSXSUCSUCURSALIDCOD_CLIXCOD_CLI UNEGOCIOS XUNEGOCIOSCLIENTESXTIPOPEDLOCALESVE_005 XCON_IMPORTESXFECENTXFECEMIXTIPODOCXCUIT XDOCUMENTOXCOMPLT_VALORDECLARADOCCVENTREG_LOCKNCREDMONEDAXMONEDAMOTIVOSCODIGOXMOTREFXMOTIVODTDEUDAT_FINALRECARGO T_RECARGOREDONDEO T_REDONDEOTOT_VENT_TOTALPEDIDOTIPOXPEDIDOPLANXPLAN IMPONIBLET_TOTIVA EXPORTACIONXIVACAT XENTPROVINCIAXSUCFACIVAINVT_IVAINVINVT_INVIVA_VENT_IVA IMPUESTOS T_IMPUESTOSFEC_VENIVA26T_IVA26CONSFIN T_CONSFINDES_COMT_DESCOMFAC_VENXNUMEROFREM_VENXNUMERORCAUSAXCAUSACOMISION XCOMI_VENCOMI_DIS XCOMI_DISHOYLISTAXLISTAPRODXPRODOTXOTTRANXTRANCONTACTO XCONTACTOTXTCPBTXTXTCPBT TXTREMITO XTXTREMITOITMCOMRXITMCOMRITMCOMFXITMCOMFAGENTE XVENDEDORDISTRIBXDISTRIBCUITCOFINXCOFINDESCA1X4DESCA2X5DES_CLIE XOTRO_CLIDESCADIC XDESCADICMOTIVODESC1T_DESC1DESC2T_DESC2COD_FLEXFLETEFLETEFLETESNOMBREIMPINTT_IIDTO672T_DTO672T672XPORCENTAJE_IIBBSUCACOPIOXACOPIODESC3T_DESC3DESC4T_DESC4DESC5T_DESC5 DESC_CONS T_DESC_CONSDES_NAC1 T_DES_NAC1DES_NAC2 T_DES_NAC2PESOT_PESOPESONETOT_PESON RECEPCION T_RECEPCIONBULTOST_BULTOSVOLUMEN T_VOLUMENDEPXDEPOSPEDVENXPEDVENCOD_CEN XCENCOSFACNREXNREXIDXCPBT PROMOCION XPROMOCIONREV XREVISIONTIPOEXPXTIPOEXPTIPOEXPD XTIPOEXPD TIPOEXPORT XTIPOEXPORTINMEDINMXIDDESC1ET_DESC1EDESC2ET_DESC2EDESC3ET_DESC3ECOEFICXCAMBIOREFXOCASIDIAMULTIPLE XMULTIPLEDIVXDIVISASAP_STK XUSR_AP_STKUSR PUB_INDEXARM_CODXARM_COD ARM_QUIEN ARM_INICIOARM_FIN ARM_CAJAS ARM_PALLETRFCXRFCUN FACTURADONO_FCXNO_FCNFCXCPBTZNFCMAXXMAXCPBT NCNDMOTIVO XNCNDMOTIVOVALORT_VALORVALDECLCOMPLHORARIOXHORARIOLP_SUC XLIQPROD_SUCLP_NUM XLIQPROD_NUMRG5329XRG5329PRG5329 T_IVA_RG5329ARM_EXHREDO_ME T_REDO_MEFCE_TIPOTIPO_DE_COMPROBANTE_AFIP XFCE_CREDITONUMFACLIQPRODTIPODOCIVACATPERMISOXPERMISOFCE_CONC XFCE_CONCEPTOESP_OBSND_PROVXND_PROVTRFXREMITO_TRANSFERENCIANO_CCXTMP_VE_COBRANZA_INICIALIZADOPVPV5 SUCPROPIA P_SUC_PROPIA PORCENTAJESOLO_IMPVERSIONDES_PAGFEC_ENTFCDERESINSTKP_VE_FECENT_VERSIONP_VE_DSP_VERSIONESTADO P_LOGISTICA T- T-%[%C WF>%9F!~ C 5F G((cpbtitmE rC Z%C4 Ta>  %a%j@>VC  %<^( TCO  _M>V%;)>C     q,>C     C F #>%)>C     ,>C     !%    SC-Se factura ms que lo remitido en el remito (" item CC #Z! T$  1d%&'Debi encontrar el remito  ve_comprobante.prg T$%(f )d T*%+ T,aF#)%+#) T-+ T.a  #/T-/0 T.- T1a+C+ CO- F2%33\G((codins E3F;%356 CC7AV  C 5 Ta:%  89 : =BC5No puede haber cantidades negativas en un remito !!!!! T$B-F   C; C<%=> ? 356 /2@SA   2@S  .B0  C  D   E F.%F GH  C  _ TI TJ TKLproc_stk3NAcC6CCOR'6CCOP6QCtempcompOC156CR S6%I$ [CK!B-  %C cur_mov_mult1FTQ%C cur_mov_multFUQBomovstockWXY ZZ cur_mov_mult%  Eoventas"XY #Z cur_mov_mult1[omovstock cur_mov_mult1Q[W["r ZZ cur_mov_mult%  T\ ~ TI TJ TKLproc_stkU]UNUAUU^CUc6C6CCOR'6CCOP6QCtempcompOC156CR US6/T\\U^CUc6&%c\ _S T$6TK)Error al tomar cantidades de movstock !!!CK!B- ' % # T$5TK(Error al tomar depsitos de movstock !!!CK!B-%C cur_mov_mult1T FTQ%C cur_mov_mult FUQ%I SC&CCOP6CCOR'6K Proc_stk: K%CK!B-%`a %C tmp_remtrfD QbcomovstockaWCCO Pr'6ZCtempcompO tmp_remtrf ~Tcde TI TJ TK`Lproc_stkb]bNbAcb^cbbWbfbZ1bS%ISC&CCOP6CCOR'6K Proc_stk: K%CK!B-%C tmp_remtrfQbF,%356  1FH$%+CO- .  T.-F #/T-/0% Fg G((idG EiG +C+ ih Z%=> ? g]56 #B0 C  D  Fg TI TJ TKLproc_stkg]gNgAg^cCCOR'6CCOP6Qg#5CR gS6%ISC&CCOP6CCOR'6K Proc_stk: K%CK!B-FgH% 1C$No hay artculos para registrar !!!!! T$B-% B-%(tj(*p$kve_presupuestoCj)BUmXERR_CENTRO_DE_COSTOS XHAY_ITEMSXTIPOPEDXDEPOSLOTESXITDEPOSITOALLTEMPCOMP RECEPCIONREMITOVENTASCPBTITMOLDITMCOSTOORI_CANFAC_VENXNUMEROFCAUSAMONEDAXMONEDACOEFCOEFICXCAMBIOFCDERERGS_VEN_VARIOSTMPRRREG_RRP_DESLINTOT_VENCALCULO_TOTAL_PSCOS_LIFODES_INSP_VE_REMITO_FACMENSAJEREM_VENITM TTS_ERRORUSER_LOG PUB_INDEXXCAUSAP_VE_PRESUPUESTOSARR_PRESUPUESTOSMAXARR_PRESUPUESTOSMAXYIFIRSTCONSTIFLAGMAX_PRODMAXYNINVBIENESCOD_INSCODINSOBIEDATA_CODIGO_VACIODESC_INSNUMFACINTERNOXACOPIOREG_LOCKRGS_VEN P_I_SINDESP EST_DESPACHO P_ROTULOS ATRIBUTOSATRXFLETEXPEDIDOINMSINSTK P_FACDEPPRIMOTIVOSTIPOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULNULOXNUMERORXFECEMI P_REF_DESPDESPACHO CUR_MOV_MULT1 CUR_MOV_MULTMOVSTOCKNUMEROXREFXCAUITEMQ XCANT_MOVCODIGOCANTIDAD COMPUESTOP_REMITOS_TRANSFERENCIAXREMITO_TRANSFERENCIA TMP_REMTRFXDEP_CONSIGNACIONCLIENTESDEPTRFFECHACOMPROMIIDXIDZ_PRESUPESTADO_DEL_PRESUPUESTOVE_PRESUPUESTO:#%r   'B%LT c T%Cmotivos FQmotivos% FG((codigo(%C6EC6F T 9+  C X C R00000000 /T CF   C> C C C C    C66 C   ! 6"C   #=Cd*CcCrV6666$%&'()C   *6+C ,C   C C -6 C 6.C  6/012345C4C6 C NgmC667C$8 CC Z9C]:;<=>>CC? ?C@6%A >B.%   %CCD +F G((comprobECDCEZ TFCO TG >  >" >,+ >)F G((comprobE!#C-Z>AAG#Hge01!#C-Z3Jge01_provisionesCDELTM!#C-ZG((comprob EM%C4 C>AAC TN "C,ZHge01N FODebi encontrarlo. Cbte : MCt T  BUPXCAUSAXCCREMXNO_FCXTIPOPEDNCREDMOTIVOSCODIGOXMOTREFXMOTIVOCCCLIEAANTCUOXNUMEROF XFCREDITOFCREDITOREG_LOCKCOD_CLIXCOD_CLICOMPROBCAUSAFECHAXFECEMIIMPORTEAPLBULTOST_BULTOSOPERACIOCALLVENCMOTIVO REFERENCED XSIN_APLICARREFXREFCAUXCAUCONDCONDCOBRDESCRLISTAXLISTAFECREFXFECREFCUOTACUOXCUOMAXCUODES_CLIE XOTRO_CLISUCXSUCMONEDAXMONEDACOEFICXCAMBIOHOYIDIDUUSR PUB_INDEXRFCXRFCCOMENTARXREFCC FN_COMENTARIOADELANTOCANCELXPROVISION_COMPROBXPROVISION_CAUSAXPROVISION_CUOTAXREG_PROVISION XIMPORTE_PROVFN_CANCGE01ANULAR_PROVISION_TRANSACCIONGE01_PROVISIONESXPROVISION_FECHATEMPXXREFERR_HAND_F)%  T%P >BUCLIENTESXTIPOPEDXFECEMIFECULT 5 T%>C%K F3>C 6%% 3> C 6> C D% F G((comprob,EC@z 9999,999,999_PCZ%C4 C3>C 6 % FG((pedidoF%##) T Ta R # T T-+COr>%CCAV S   FG((pedido% ECZ>+C+ CZCZ  ! *H=%C+ CZCZ  ! a C% " 6>##C 6%#  >#%$  >%%]6>C 6 %&C@Atencin !!! El comprobante difiere del pedido y de ser anulado,C .no se podr recuperar el pedido correctamente.'FH$%CO  n T-F # T%&FH &>)  &>##)  T* T+ve_procs*%*uC'F  % }otempcompCC-C./ ./ 6TQ pedidos_afectados ~9 FG((tccvord E0%C4^ >C%2  >0F G((comprob/EC0@z 9999,999,999_PCZ%C4>0  T3'ZC#Problemas para encontrar el pedido CC0Z en la cuenta corriente !!!'4567#Problemas para encontrar el pedido CC0Z en la cuenta corriente.ve_comprobante - actualizar() Z T3'<C El pedido CC0Z no est pendiente !!!' 5 T3'CC#Problemas para encontrar el pedido CC0Z !!!'|4567#Problemas para encontrar el pedido CC0Zve_comprobante - actualizar()F%t #) T Ta  # T T-+CO >%CCAV S   o %a FG((peditmECZC Z%C4] > ] %9Y T3'JC*Problemas para encontrar parte del pedido CCZ !!!'4567No se encontr el pedido/item CCZ/CC Zve_comprobante - actualizar() k FH$%CO  T-F # TFBU:XMSGXPEDIDOTCCVENT UPDATE_DTXTIPOPED FACTURADOT_FINALP_VE_NC_ARREGLO_VERSIONXEXTERNO XREP_CANTREP_CANT REP_ULTIMAXFECEMICCCLIECOMPROBXCOD_CLIREG_LOCKIMPORTETVENTASPEDIDOTEMPCOMPMAXYICONSTIFLAGMAX_PRODMAXYNCOD_INSOBIEDATA_CODIGO_VACIODESC_INS INVENTARIO RECEPCIONITEMITMSINSTKRECEP2 P_PICKINGPCK_CANXACOPIOMENSAJEFORACOPIOXERRACTUALIZA_ESTADO_DEL_PEDIDOVE_PROCSTOT_COMT_VALORDECLARADOT_DESCOMPEDIDOS_AFECTADOSTCCVORDEST_DESP TTS_ERRORUSER_LOG PUB_INDEXXNUMEROFXCAUSAPEDITMP_VE_VLD_CAN_REM Ta4TC4C5266 TT%?%     T  T wc% !"YT sT#T$SG+(ve_procs T&%'"%C( \cpbt\vfc.fxp05( \cpbt\vfc.fxpa- %)K*a-C+6+ Ta +,QIF_RE_SUBTOTALif_objetos.prg+/QIF_COMPROBANTEif_objetos.prg)0Q IF_CPBT_COLLif_objetos.prg,1Q IF_CTRL_LX300if_protocolo.prg#T1C3IF_PROTOCOLO.PRGC5614-T0C IF_CPBT_CollIF_Objetos.prgT011?*a-C+60 T7- T8C6T/C09T/:CC;\gT,/<T,=>T,?@  fis_impresor(70+T0BC$%C DV %E%FGH CHcliotroscod_cli%FIJTJCaaK%CoKribO|CMNJL-%C CDVdc %O%FGH CHcliotroscod_cli!%FIO PTPCaaaK%CoExpAFIPbO~CCD;aQPLFRG!(G((%SG GG+(ve_procs BUTXFIS_IMPRESION_OKCVOPXTIPOPED XSUCURSALXSUC XDESCPLANCONDCOBRDESCRVARIABLE XCNDSP_C1D XCNDSP_C2D XCNDSP_C3D XCNDSP_C4D XCNDSP_C5D XCNDSP_C6D XCNDSP_C7D XCNDSP_C8D XCNDSP_C9D XCNDSP_C10D XCNDSP_C11D XCNDSP_C12DXPLAZO XCNDSP_PLAZOA1A2A3A4A5A6A7A8A9A10A11A12PLAZOINVEVE_PROCSXOPMENU TTS_ERRORP_SERVERXFIS_IMPVPEDIDOXEXTERNOOSUBT IF_OBJETOSPRGOCPBTOCPBTCOCTRL IF_PROTOCOLOXFIS_DRVIF_ASIGNAR_IMPRESORAXFIS_CONXFIS_VELXCDEYNCREDITEM IF_NUMEROXNUMEROF OBJ_SUBTOTALIF_TOTALT_FINAL IF_TOTAL_IVAT_IVA FIS_IMPRESOR IF_RESPUESTAIF_OKXCAUSAP_DIR_EXPORT_KRIKOS_HACERCLIOTROSCOD_CLIXCOD_CLISUBEEXTOKRIREG_FACTURA_ELECTRONICA_FEV1OBTENER_ARCHIVOP_DIR_EXPORT_KRIKOSP_DIR_EXPORT_KRIKOS_STOREP_DIR_EXPORT_AFIP_HACEROEXPAFIPPDF_PATHTEMPCOMP P_CENTURY4F% I  C ^ T- > >  > > P >C^ >C$ > > > > >F+%E%C4  C +>Z C   C  >BUXNUMEROXORIGXDESTXCODIGOXBULXATRXCANTPED_DEPFIRSTREG_LOCKPEDIDOORIGENDESTINOTIPOHORAFECHACODIGOBULATRCANTIDAD REFERENCIASTKXDEPDEPOSITOFILE_LOCCANT_COM45FG((codigoGEG T 6+C+     A% 9%  T T T/CE  FHH%VE_COMPROBANTE.PRG#No hay sufuciente stock en STKXDEP. OSupuestamente hay una incongruencia entre STOCK y STKXDEP pues s hay en STOCK.2C%Error, haga un mantenimiento de STOCK%}4CE 0 BUXNUMEROXORIGXCODIGOXBULXATRXCANTACCSTKXDEPCODIGO XCANTIDADBULATRDEPOSITOCANTIDADCANT_COMACC1PED_MERCREPORTEXNUMEROFXCAUSAMENSAJE&%  {%CNOTERM PQnotermF >BUXTIPOPED P_I_SINDESPNOTERMCOMPROBXNUMEROFCAUSAXCAUSAD,Q IF_CTRL_LX300if_protocolo.prg*Q IF_CONSULTAif_protocolo.prg2QIF_RE_CE_CONTADORESif_protocolo.prgTC#TCIF_PROTOCOLO.PRGC5TCIF_Consulta_EstadoIF_Protocolo.prgT AC B U IF_PROTOCOLOPRGXFIS_DRVXFIS_CONXFIS_VELOCTRLOCONSORESPIF_ASIGNAR_IMPRESORAIF_TIPO_CONSULTA PR_CONSULTA IF_RESPUESTAo2QIF_RE_CE_CONTADORESif_protocolo.prg%Cnumfac cCVProblemas con la transaccin en curso. Vuelva a intentar concluir la operacin (1) !!! BF #TCTC T HDO           %   Ta TC!%  ;C.No se pudo conectar con la impresora fiscal!!! B%A^% @T ZT % T T Tfactccfact=&kccfact TTH  [TcT N. de Crdito :   TdT  N. de Dbito : 2TV %  O TC%A1T KT Tcredcccred = &kcccred TTTcT N. de Crdito :  %  g TC%AIT ! cT  T"debiccdebi = &kccdebi T T TdT  N. de Dbito :  D T TTr T T#$ T% T&?%   '   ( T%)%   TCT*+ %%>F #%TCT,remiccremi=&kccremi %%F #4%- B '    T.*T&*  T. T&#T/C00CCZRR T0C%%6&T0C'  06 T1 T2.T3 4 %Cnumfac = cCVProblemas con la transaccin en curso. Vuelva a intentar concluir la operacin (2) !!! B%5e T66+aP #% 7 8 C9 ~ %   T:ve_ncnd(< z %    ve_fcre(< v % O ve_fcre(< r ve_fcre(<  %8 T<%C9 T<%<9 T>% 7 %. ( B  %   P  T>C?%> B  T>C?%> B%> ! 5 H 1  8 B C9 1 B L B<FHl O           % T@fact>@ N %J T@cred>@  % T@debi>@ )%     *%00%%  )%%% %0 ?F #%%&.. T@remi>@*)%%% %0 F #G(T.CB0C.ZA%"TCCZA :Tr%r_ T. BUCORESP IF_PROTOCOLOPRGMENSAJENUMFACXSUCFACTLOCKREG_LOCKCLETRALETRATEXTOXTIPOPEDP_FCNCNDFIS_IMPP_FIS_EMULADOR XIMP_FISCALFIS_OBTENER_CONTADORESFIS_DRVFIS_CONFIS_VELIF_OKIF_ULTIMO_CPBT_AIMPCCFACTIF_ULTIMO_NC_AIF_ULTIMO_NC_BCIF_ULTIMO_CPBT_BCKCCFACTXNUMEROFZ1XCAUSACCCREDKCCCREDCCDEBIIF_ULTIMO_CPBT_AOKKCCDEBIXCCREMCCREMXPVRZ2P_NO_HAY_REMITOSLIQPRODPVRCCREMI IF_ULTIMO_REKCCREMIP_B_SIN_REMITOXNUMERORHEADERXSUCFACR XNUMEROF_ORIG XNUMEROR_ORIGXPV_ELECTRONICOFCEXRES_VEXFORMAUTXEXTERNOP_VE_CLI_INICIALXREFNUMVE_NCND XRESULTADOVE_FCREXVALIDAR VALIDAR_CTTEMPFORMAT XLETRAREM%Ba5 T-&%  F#)%#) T Ta  # T  T- T a+C+ CO 2%  CCAV  OF% XG((codins E F%    ,S    S  #0       K T T Tvproc_stk  !cC$CtempcompO3C" #6%eC%CC@z 9999,999,999_6CP6 Proc_stk: $%GC& TaFH$%CO   T-F # T F' G((idG E)G +C+ )( e%  '*  #0      F' T T Tmproc_stk'*' '!'+cC$',3C" '#6%teC%CC@z 9999,999,999_6CP6 Proc_stk: $%*CC'*/' /'& TaF'H B U- RE_ANALIZO HUBO_ERRORES P_CONTSTK P_RELAXEDXTIPOPEDTEMPCOMPMAXYICONSTIFLAGMAX_PRODMAXYNINVCOD_INSOBIEDATA_CODIGO_VACIODESC_INS RECEPCIONBIENESCODINS P_I_SINDESP EST_DESPACHO P_ROTULOS ATRIBUTOSATRXFLETEXPEDIDOINMSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULXDEPOS P_REF_DESPDESPACHOUSER_LOG PUB_INDEXNO_STOCKCOMPROMIIDXIDCODIGOCANTIDADITM4%C & TG( \temp1.txtG G Hi -CNo hay stock fsico  !!!,No hay stock fsico  !!! /Inconherencia de stock  !!! V,No hay stock fsico  !!! (Cdigo invlido  !!! 2C GG(BUTXTP_LOCALSTK_ERRMENSAJE>C 6    C  6 C$ TTT T"TC! T"T#$T% T&C"#%'F( > >) >$&%C*p%Cmotivos Qmotivos%+,-%0CC..-6motivoscodigo%+/ L >0 l>0C10  >0C10 *>223344%5FOT*>667788%*H3>99c:9c;;; 1>:9;;;99><<*>==>>?? >@A%B>BBFB;-BB     %C4X>CC9  TDXCItem   del armado CCBZ no encontrado !!!EF( CFBUGREM_VENXNUMERORCOD_CLIXCOD_CLIDES_CLIE P_REF_DESPTEMPCOMP DESPACHOEX XOTRO_CLICOD_INSFAC_VENXNUMEROFCAUSAXCAUSADESC_INSOBIEDATA_CODIGO_VACIO DCODATRBULCOD_CUE INVENTARIOBULATRNOSTKSINSTKHOYXTMP_CEN_GLOBAL XCENCOSFACXTMP_CEN_LOCALCENTRO XTMP_CEN_ART XTMP_CEN_CUEXCENTRO_DETERMINADODETERMINAR_CENTRO_DE_COSTOSXERR_CENTRO_DE_COSTOSXTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCAL SUBCENTROXTMP_SUBCEN_ARTXSUBCENTRO_DETERMINADODETERMINAR_SUBCENTRO_DE_COSTOSVENTASCOD_CENXTIPOPEDMOTIVOSCODIGOXMOTIVOXMOTREFTIPOPEDIDOXPEDIDOCOMPCODCOMPBULCOMPATRP_EMPDIM1DIM2R1 RECEPCIONCOS_VENCOSTOBULTOSVALORVALORMON VALORCBIOFEC_ENTXFECEMIARMADOCANT_USA TTS_ERRORMENSAJERGS_VEN_VARIOSTC >     CC   6 C NgmC6!>CtempcompO>>%%.>C   1>C   B%)>C   >,>C  %  M>F G((idECZCZ%C4>!!"(# %C"$!%"#IT##T$# %a%ve_procs'(CtempcompOC)*+ ,-6./0123456789:CCmotivos.porcentajebL C C;< <66/>=-C)*+ ,-6%C)>,-BU>XOLDITEMMONEDAXMONEDAFEC_VENXFECEMICOS_LIFOTEMPCOMPDES_INSLISPREGRAVADACOEFCOEFICXMOTREFXMOTIVOXTIPOPEDXCAMBIOIVAPERLINEAGRUPOCOMPLITMVERSIONACOPIORG5329P_DESLINTOT_VENCALCULO_TOTAL_PS RECEPCIONP_VE_PRESUPUESTOSPRESUP PRESUPITMDPRESUPIDUSADOZ_PRESUPMAXARR_PRESUPUESTOSARR_PRESUPUESTOSGUARDAR_DESCRIPCION_COMPLETAVE_PROCSXNUMEROFXCAUSACOD_INSOBIEDATA_CODIGO_VACIO DCODATRBULDESC_INS COMENTARIOTIPOENVCANTENVTARAREF_OCENSAMBLEIB ADICEXPORTCANNUMEROSUBNUMITEM_OCOLDITMMOTIVOS PORCENTAJEVENTAS4BCCRgUAAA B-U%BF(TCC+CCCO66F(%CCC XFG((ccvfacECr<SotempcompC C C6Q C Q /TCCCC 6>F- C%C4u &F >aRemito:  totalmente facturado. (Cr))ve_comprobante - reg_remitos_facturados()F>FG((remitoEC TC4 T- +C+ C %C  >  Ta!H %   '+rremxfac  CF!G((comprobGE#CrG /%C4$"%#Cr % <&NoventasC'Q(CC%r'6Q)C&$% C& S&T+,C&C& mT+,F!>!-+R F% # #6%C+ HBU.XTIPOPEDCCVENTREGISTRO_CCVENTREMXFACZP_VE_MAX_REMITOS XARR_REMITOSCCVFAC ARR_REM_TOTSUMTOT_COMREMITOTOT_REMTOTALTEMPCOMP RECEPCION XPROPORCIONSALDORT_FINALREM_NO_TOT_FAC FACTURADOUSER_LOG PUB_INDEXXNUMEROFXCAUSAREM_VENMONEDAXMONEDACOEFICXCAMBIO XENCONTRE XREEMPLACEFACTURACCCLIECOMPROBXCOD_CLICOD_CLICAUSAARR_REMTOT_VENORIGINALSALDOVENTAS XDEUDA_REMITODEUDAIMPORTEF0~ C  ~FG((codigoE F>  BU TEMPCOMPCOD_INSOBIEDATA_CODIGO_VACIODESC_INS RECEPCIONSTOCKCODIGOBULATRSUBGRUPO4TC TF%L %N& CO( \borrar99 C      N& CO( \borrar99 C      0~ C    T%}T > %    TBUXMAXCPBT XSUBGRUPO XSEPARACIONXMAXITEMTEMPCOMPP_LOCALCOD_INSOBIEDATA_CODIGO_VACIODESC_INS RECEPCIONSUBGRUPOCPBT P_MAXITEMVEN=4%2%Cplanvarc GQplanvarcF G((id E%C4 ~ >    !"#$%&'()*+,-./0123456789:;<=>?@ABCDBUEXIDCONDCOBRVARIABLEPLANVARCIDDESCR XCNDSP_DESCRCUOTA XCNDSP_CUOTANO_DESGLXCNDSP_NO_DESGLPLAZO XCNDSP_PLAZOANTICIPOXCNDSP_ANTICIPOVALORESXCNDSP_VALORESC1D XCNDSP_C1DC2D XCNDSP_C2DC3D XCNDSP_C3DC4D XCNDSP_C4DC5D XCNDSP_C5DC6D XCNDSP_C6DC7D XCNDSP_C7DC8D XCNDSP_C8DC9D XCNDSP_C9DC10D XCNDSP_C10DC11D XCNDSP_C11DC12D XCNDSP_C12DC1P XCNDSP_C1PC2P XCNDSP_C2PC3P XCNDSP_C3PC4P XCNDSP_C4PC5P XCNDSP_C5PC6P XCNDSP_C6PC7P XCNDSP_C7PC8P XCNDSP_C8PC9P XCNDSP_C9PC10P XCNDSP_C10PC11P XCNDSP_C11PC12P XCNDSP_C12PDIASCHQXCNDSP_DIASCHQNEGOCIOXCNDSP_NEGOCIO4G+( ve_pedido%Cempresas PQ \empresas%CNUMFAC ~QnumfacF # TCWF-%C  TE H$     H:  ZTZ[         S S  TB ++%CDC$ TB 'TA LTE 2% %TA TM TA$     TC F BUXLETRA VE_PEDIDOP_SYSTEMNUMFACXSUCFACXAREAEMPRESASCODIGOP_CODEMP EXPORTACIONXIVACAT XENTPROVINCIAIVACAT ZONAFRANCACLIENTESTARJETAXCOFINXFECEMILIQPROD 5 Ta T  co_ventasa% T?C(Error al registrar el asiento contable: C M ve_comprobante - reg_asiento()BU XRESULTADOXMSG REG_ASIDIA CO_VENTAS TTS_ERRORMENSAJEUSER_LOG PUB_INDEXXNUMEROFXCAUSA+ 4!TC6-TC 6  !T C  6!TC6!TC6!TC6!TC6!TC6!TC6!T C!"6!T#C$%6!T&C'(6!T)C*+6!T,C-.6!T/C016!T2C346!T5C676!T8C9:6!T;C<=6!T>C?@6!TACBC6!TDCEF6!TGCHI6!TJCKL6!TMCNO6!TPCQR6!TSCTU6!TVCWX6!TYCZ[6 T6%8     *% 8  7T*No puede haber un anticipo con plazo#0 !!! T-B-%     # & ) , / 2 5 8 ; > A D G J M P S V Y %% (TDebe tener alguna cuota !!! T-B-  6%      .T!Debe tener un plazo aceptable !!! T-B-  TaBa  %3FT9Si tiene cuotas variables no puede tener cuotas fijas !!! T-B-  ?%8;>ADGJMPSVYd JT=Los porcentajes de las cuotas variables deben sumar 100 % !!! T-B-  % F?T2El plazo debe estar en 0 para cuotas variables !!! T-B-  1%88  ,; ;   ,> >   ,A A   , D  D   ,#G #G   ,&J &J   ,)M )M   ,,P ,P   ,/S /S   ,2V 2V   ,5Y 5Y   TaBa  STFEstn mal ingresados los plazos y porcentajes de cuotas variables !!!! T-B- TaBaU\XRESXMSGXTCUOTACONDCOBRVARIABLE XCNDSP_CUOTACUOTA XTNO_DESGLXCNDSP_NO_DESGLNO_DESGLXTIPOPEDXTPLAZO XCNDSP_PLAZOPLAZO XTANTICIPOXCNDSP_ANTICIPOANTICIPO XTVALORESXCNDSP_VALORESVALORESXTA1 XCNDSP_C1DA1XTA2 XCNDSP_C2DA2XTA3 XCNDSP_C3DA3XTA4 XCNDSP_C4DA4XTA5 XCNDSP_C5DA5XTA6 XCNDSP_C6DA6XTA7 XCNDSP_C7DA7XTA8 XCNDSP_C8DA8XTA9 XCNDSP_C9DA9XTA10 XCNDSP_C10DA10XTA11 XCNDSP_C11DA11XTA12 XCNDSP_C12DA12XTP1 XCNDSP_C1PP1XTP2 XCNDSP_C2PP2XTP3 XCNDSP_C3PP3XTP4 XCNDSP_C4PP4XTP5 XCNDSP_C5PP5XTP6 XCNDSP_C6PP6XTP7 XCNDSP_C7PP7XTP8 XCNDSP_C8PP8XTP9 XCNDSP_C9PP9XTP10 XCNDSP_C10PP10XTP11 XCNDSP_C11PP11XTP12 XCNDSP_C12PP12!TC6!TC6!TC  6!T C  6!TC6!TC6!TC6!TC6!TC6!TC6!T C!"6!T#C$%6!T&C'(6!T)C*+6!T,C-.6!T/C016!T2C346!T5C676!T8C9:6!T;C<=6!T>C?@6!TACBC6!TDCEF6!TGCHI6!TJCKL6!TMCNO6!TPCQR6!TSCTU6!TVCWX6 TY TZ %a T[\ TZ T][ T^[ T_:T\`abcd_efghij Tk Tl T[m Tl Tn[ To[ Tp6Tmqrstupvwxyz%{TjCm|T\ T}-o%C~   IFM SEG  CC$C$ N < *occvent%C{Gz? T}a T-<%C~   S  < $%Cccvent.versionbN*occvent *occvent%C  TaJ%C Sa6   } %CjT\Cm|T  Tj  Tj 1 T[\ TYT[[YT[d T[[TZC[ TT]ZT[YZ T^['TccCd dT,T_CCd dTT:T\`abcd_efghij Tk Tl T[m TkT[[kT[d T[[TlC[ TTnlT[kl To['TttCd dT,TpCCd dTT6Tmqrstupvwxyz T< T Ta%C k MCEl plan de cobranza CCZ est mal definido !!!C  TT TCuota 1T\TmT%  TT!TAnticipoT\TmT %  \%, (( T!T 'TCuota CCZT\ Tm +TC6 X( T %CxtpCCZPT&TCxtaCCZ'TCuota CCZ3TC\CxtpCCZd T3TCmCxtpCCZd TT  T%;TC  6 7TC 6 TCuota 1T\TmT%(TC/CCZ!TC T(TC%\X)TC\ T(TC%m)TCmT T T T+%YTCTTTTT T T @TC~dC~cV66+TC6TTT!TC%TC!TCTC!T C0%SIS GRF ~ T!TCT B\UXTCUOTACONDCOBRVARIABLE XCNDSP_CUOTACUOTA XTNO_DESGLXCNDSP_NO_DESGLNO_DESGLXTPLAZO XCNDSP_PLAZOPLAZO XTANTICIPOXCNDSP_ANTICIPOANTICIPO XTVALORESXCNDSP_VALORESVALORESXTA1 XCNDSP_C1DA1XTA2 XCNDSP_C2DA2XTA3 XCNDSP_C3DA3XTA4 XCNDSP_C4DA4XTA5 XCNDSP_C5DA5XTA6 XCNDSP_C6DA6XTA7 XCNDSP_C7DA7XTA8 XCNDSP_C8DA8XTA9 XCNDSP_C9DA9XTA10 XCNDSP_C10DA10XTA11 XCNDSP_C11DA11XTA12 XCNDSP_C12DA12XTP1 XCNDSP_C1PP1XTP2 XCNDSP_C2PP2XTP3 XCNDSP_C3PP3XTP4 XCNDSP_C4PP4XTP5 XCNDSP_C5PP5XTP6 XCNDSP_C6PP6XTP7 XCNDSP_C7PP7XTP8 XCNDSP_C8PP8XTP9 XCNDSP_C9PP9XTP10 XCNDSP_C10PP10XTP11 XCNDSP_C11PP11XTP12 XCNDSP_C12PP12 V_ANTICIPOV_CUOTATEMPT_FINALV_FINANT_ULTIMO T_INTEREST_TOTAL T_IMPUESTOST_DESCOMT_IVAT_IVA26T_II T_REDONDEOT_DTO672 T_RECARGO T_IVA_RG5329 T_REDO_ME VX_ANTICIPOVX_CUOTATX_FINALVX_FINAN TX_ULTIMO TX_INTERESTX_TOTAL TX_IMPUESTOS TX_DESCOMTX_IVATX_IVA26TX_II TX_REDONDEO TX_DTO672 TX_RECARGO TX_IVA_RG5329P_VE_AJUSTE_DIVISAS2XCAMBIOXERROR_AJUSTE_INNECESARIOXTIPOPEDMOTIVOSTIPOP_EMPXFECREFXDIVISASARR_ERROR_REDONDEOREDONDEOCCVENTFAC_VENCAUSAXREFXCAUXREFERENCIA_VIEJAXMONEDAARR_REFERENCIA_VIEJADES_PAGVERSIONP_VE_AJUSTE_DIVISAS3P_VE_AJUSTE_DIVISASP_VE_AJUSTE_DIVISAS_MAXTEMP1INT_FINC_IVA XMAXARRCUOTAS ARR_CUOTAS XMENSAJE_PLANXRESPLAN VALIDAR_PLANMENSAJEXPLANZ P_VE_VALORESXREMITO_MULTIPLEXOCXIDXCPBTXREMITO_MULTIPLE_ARRACCXPRIMER_VENCIMIENTOANTCUOMAXAPLAXFECEMIAPLXNUMEROFXCOD_CLI XOTRO_CLI XCENCOSFACXMOTREFXMOTIVOXAPL F G((movF0~C C C FEC ZCZ%C4C $>    %C 3cCVNo se puedo modificar el movimiento de inventario del que se importaron los artculos. u8C+No se encontro el movimiento de inventario. B-BaU XREF3XREF3CAUCONVERMOVTEMPCOMPTRANSFCOD_INS RECEPCION TRANSFITEMREF3 REF3CAUSAREF3CANTMENSAJE !qiva_ven($%Civa_ven.rg5329bNJriva_ven     CCCCCCCC C riva_ven     CCCCCBUXNUMEROFXCAUSAT_IVAARRIVA_VENCOMPROBCAUSAZ MAXIVAARRTASAIVAIVA_MOBASEBASE_MOTIPO_REGRG5329BRG5329 RG5329B_MO RG5329_MO% C %% TSFG((tccvord E%C4 JC,No se encontr el pedido original de la NC (CCZ) !!! T  +%C  3TN %   eTS 1%    UTCCCancela el pedido CC@z 999,999,999_ ?SN6 %   'TS %RTS %}TN otventasQCC  6C dQCC  6C dQCQ-Q a_cancelar&% Cd ~TS TNF%S CBUXTIPOPED%CANCELA_PEDIDOS_DE_FACTURA_DE_REMITOSXPEDIDOXTIPO_NCSIONOTCCVENTTCCVORD XOLD_PEDIDOMENSAJE TTS_ERRORXNO_FCXEXTERNO XREP_CANTAUTP_PD_CANCELA_AUT MENSAJE_SINOXACOPIOTVENTASPEDIDO RECEPCIONRECEP2 SUMA_ENTR FACTURADO SUMA_FACTCANTIDADTILDE A_CANCELARCANCELAR_PEDIDO*%  S>a >C h >aF>  F G((comprob/EC @z 9999,999,999_PCZ%C4 C< d TF%~    T T_proc_stkcC$3F >%) ve_orden_de_picking.prg  BU#Z EST_DESPACHOXTIPOPEDXTIPO_NCEST_DESPFC UPDATE_DTTVENTASPENDFORPEDIDOTCCVENTCCCLIECOMPROBXCOD_CLIREG_LOCKARR_PCK MAXARR_PCKCOMPROMIDCANSTK_ERRSTK_TST REG_STOCKPROC_STKCODBULATRDEPITMDSP P_PICKING$LIBERAR_PICKINGS_DE_PEDIDOS_CERRADOSVE_ORDEN_DE_PICKINGPRGO% D&rremxfacBUXTIPOPEDXPEDIDOREMITOPEDIDOXNUMERORuF~nFG((lisxcli,ECZCX%C4 7> > 2%C C C jF G((codins E%C4fTfac_lprCCZ(replace &aaa with tempcomp.cos_lifo UTEMPCOMPACT_PRELISPRECLISXCLICOD_INSBULATRLISPRECODIGOLISTAPRECIOCOS_LIFOBIENESCODINSAAAR$%Cpedidos_a_cancelar 7Qotventaspedidos_a_cancelarQCC  6C dQCC  6C dQCQ -Q  a_cancelar'%     q T-ve_pedidos_cancela( % F > a F ,> aCdCd F ~ <FG((tccvord E %C48 CF QBU XARCHIVO_PDPEDIDOS_A_CANCELARTVENTASPEDIDO RECEPCIONRECEP2 SUMA_ENTR FACTURADO SUMA_FACTCANTIDADTILDE A_CANCELARAUTP_PD_CANCELA_AUTXRESVE_PEDIDOS_CANCELAALLFORTCCVENTTCCVORDCANCELAR_PEDIDOh Tntrsacstockstkxdeptccventcccliecompromdespachopickings%S TtrsacVe_comprobanteCancelacin de pedido x CV FC ??6 C ZP Ta% T TC %t T T Tk trsacVe_comprobanteCancelacin de pedido x CV FC ??6 +%   B T  ]BUAAALOCK_GTRSACBEG_TRANXCAUSAXNUMEROFTCCVENTPEDIDO XRESULTADOXXMSGTRN_CANCELACION_PEDIDOEND_TRAN TTS_ERRORTTS_ID) 4%Cquery,FQVotventasXventas CZCZC ZC Ztccvent CC VCC 6Q CC VrCC 6Q     queryF% ~FG((peditmECZCZ%C4>   FFBUXPEDIDO XACTUALIZARQUERYTVENTASCOD_CLIPEDIDOITM RECEPCIONRECEP2 FACTURADOVENTASCAUSAVENDIDOREMITIDOTCCVENTEST_DESP XAXTUALIZARPEDITM%Cacuerdos .Qacuerdos T;ve_procesar_acuerdos F > BU ACUERDOSXDTOACUPROCESAR_ACUERDO_COMPROBANTEVE_PROCESAR_ACUERDOSXFECEMIT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5CCVENTDTOACU% Ta%F >HY F~C < F G((idchequeEC ZC Z T -7+C+ $C ZC ZC ZC Z /%2' T a!H% W^J T  TfNo se encuentra el valor.ve_comprobante - registrar()BF  >2 > > >> > > c> >  > > > >! ! >" >#> > >$C$ >%>&d>'7>( () )* *+ + >,1>-./01 -2 2'>34 45 5 %6 T7F~C T778 a T7F~8]T778F9 9&>:;<&3=CHEQUE RECHAZADO>7?@CAAB6CD3EFGHIJKLM-./0$C$N:&CIZC<ZOC] 2 % F >F~C FPG((idcheqEC ZC Z TR-=+C+ *C ZC ZC ZC Z %SS>T P TRaF  >1 > > >>P>P>Pc>PS>PS > > > >!P! >" >#>P> P >$C$ >%>&d7>(PV)P*PW+P& >,1>-./01P-2P22>34P45P5'!HTR  BUXXTIPOPEDXOK_CHQMOTIVOSTIPOCCVENTNCND_SUB XND_BANCOPROVTEMPCOMPNUMEROOCHEQUESVEN_OPERIDCHEQUESUBNUMXENCXORIGEN TTS_ERRORUSER_LOG PUB_INDEXXNUMEROFXCAUSACOD_CLIXCOD_CLICOMPROBFEC_RECXFECEMIDES_VAL DIF_VALORCAJ_PROCUENTACUENTA2FECHADES_CLIERECIBOEMISIONAGENTECOMISIONHOYHORASCAUSAASIDIAOCODIGOOCOMPROBOPASEOCAUSA VOPERACIOMONEDAXMONEDACOEFICXCAMBIOMONPASEMONEXTUSRBANCHQNUMCHQP_ND_RECH_VERSIONXACC_CHQTOT_COMCCPROVCOD_PROXND_PROVOPCOMENTARIMPORTEVENCMOTIVOXMOTREFXMOTIVOREFCAUCONDCONDCOBRDESCRFECREFCUOTACUOMAXCUOOPRDES_PROVIDIDUCHEQUESIDCHEQ XOK_CHQ_1COD_CUEFLAGINCODIGOPASE0&B    U XREPROCESS P_FCE_TESTINGP_DEVP_VE_FCE_BLOQUEO\=%$CCZCZtventasPEDITM U>UCCVENTPEDIDORECEP2DEUDAINTVENTAS"CfletescodfleTTCccventOF!Cccventccvfac T !>   T C XT%CCRgT  F> C X %V"Cventasven_fac%CC Rg\COEs una factura de remitos, no se puede anular sin antes liberar los remitos !!! TB  %F > 5TF"Cventasven_fac#+C+  %CCRg> C X%%T %C%C ?FG((codins E%SF G((itm~   T! T" T#$proc_stk&'()*P CC+@z 999,999,999_C$CtempcompO3,%!/C./0#Error de stock.- T1-%C#C#a2 BC#Error indeterminado !!! (Stk_err = C!)C a2 ; T! T" T#W$proc_stk'(340/C$ 3%!7/C./0#Error de stock.- T1-%C#C#a2 3BC#Error indeterminado !!! (Stk_err = C!)C a2 %C5  T! T"t$proc_stk55'5(3C5456DC$7F >FH%CC RgF7G((remito E %8 srccvent9 :;<=>0   rANULADAANULADAC$F #BU?XFLETEXNOMFLEFLETESNOMBRE XREG_CCVENTCCVENTXREFXCAU XREMITO_REFREM_VENCOD_FLEESTADOFLETE XOLD_REMITO XOLD_FECHAFEC_VENVENTASMENSAJE TTS_ERRORPEDIDOXIDTCCVENTIDFAC_VENCAUSAEST_DESPXREAPERTURA_DE_PEDIDOCOD_INSBIENESCODINSLOTESLOTESXITITMSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKCODBULATRDEPOSITOCANXPEDIDODESPACHOUSER_LOG PUB_INDEXXNUMEROFXCAUSAOKNO_APROBDEP RECEPCIONTVENTASRECEP2REMXFACREMITOCOD_CLIFEC_ENTDES_CLIECUITHOYASIDIA4%5%CReabro el pedido CCZ ? T3ve_cancelar_pedidoaaBUXREAPERTURA_DE_PEDIDO MENSAJE_SINOXMSG PROCESAR_PDVE_CANCELAR_PEDIDOBUF~F >2 > > > > > (> Cc6> > > > >> > > >> >C$ > > >8> !"#$!%&'>()*BU+TMP_VE_COBRANZAIMPORTEVEN_OPERTIPOCOD_CLIXCOD_CLICOMPROBXNUMEROFFEC_RECXFECEMIDES_VALDESCR DIF_VALORCAJ_PROXCAUSACUENTACOD_CUECUENTA2FECHADES_CLIE XOTRO_CLIRECIBOEMISIONAGENTECOMISIONNUMEROSUBNUMCUOTASHOYHORASCAUSA VOPERACIOMONEDAXMONEDACOEFICXCAMBIOMONPASEMONEXTREFCUPONUSR PUB_INDEXASIDIA]TCC 4CC[CCCZ] 66%%CrubrofaccodigoT CQT CrV *CC   6  66%  V &%CHCH CiCi *T C CCCiZ  TC* - C* BCU XCOMENTARIOXREMITO_MULTIPLEAPLAXRFCRUBROFACCODIGODESCRCAUSAXBONIFXMOTREFXMOTIVOMOTIVOS XFCE_CONCEPTOXFCE_FEC_SERVDXFCE_FEC_SERVHMESB%Ccliotros .Qcliotros%h Ccliotroscod_cli'%Ccliotros+ C 7+a3%C8Recuerde que debe ingresar el comprobante el en sistema C !!!C C Presione SI para continuar./!BUCLIOTROSCOD_CLIXCOD_CLISISTFAC MENSAJE_SINO BUXREMITO_MULTIPLE_ARR% "%Ctmp_preparacionesF ~FG((armado E%C4 > /C"No se encuentra la preparacin !!! :C-No se encuentra la tabla de preparaciones !!!BUP_VE_PREPARACIONTMP_PREPARACIONESCCARMADOARMADOESTADOMENSAJE registrarreg_factura_electronica!#reg_factura_electronica_exportacion%-reg_factura_electronica_exportacion_reproceso-G'reg_factura_electronica_exportacion_rutJ-reg_factura_electronica_exportacion_incotermsK*reg_factura_electronica_exportacion_monedaK(reg_factura_electronica_exportacion_pais>L*reg_factura_electronica_exportacion_idiomaM(reg_factura_electronica_exportacion_tipo"MformatJM validar_cM reg_ccventY reg_ventasp reg_ccclieact_cli actualizarH impresionped_merc pedir_merc~ pendientefis_obtener_contadores asignar_n_ hay_stockno_stockrgs_venrgs_ven_varios nulo3fcredito^reg_remitos_facturadospsubgrupo) sep_x_cant reg_planvarcletraT reg_asiento+ validar_plan calc_finalreg_movimiento_inventariod reg_iva_venrcancela_el_pedido trn_cancelacion_pedido0&reg_remitos_pedidos)reg_agregar_precios*%cancela_pedidos_de_factura_de_remitos ,cancelar_pedidoG/ saldo_pedido@2 reg_acuerdos5 reg_nd_x_chq?6fce_es_testingAncnd_devolucion_acopio\Bncnd_anulacionBreabre_el_pedido5Mncnd_devolucion'N reg_cobranza6N fn_comentarioyQcontrol_de_sistemas_externosSdummyrUreg_preparacionesUw1A1Arrrrbq BrBAA4D!AraqAAP$A3AxA!!AAAArqAA"rrArqAsBrqA52B2A4AA42BABA2qAArqAAqAA623BB2QAuqAr""A6c AA2ABDAb1AAD32A5Aq3q3S1AARBAB#AAAAAAA2#AABs1AaAaBA1A3a!AADB AAAAA!"AAAAAA2qq2%cAAAqauqAABA41AAQq!QAqqAB!AAQ3AABqAAAArR""CACaAA"rQ2AB!AA4bR"UAbaAr1!BArqQRAb1!AA12!!r1D1!#r1ar1CAABBRBA(AFBdr13333CbaAABaAABf!AAA4AQAAAaAqAB1111A2A1sV21`a!CAAqAAA3q2qAq2q1qAA2BAA23q77rr25QAaa2c aAAaaC2C aAABaBBtaaeaaa#2c aAAbaaa2c aAABaABAAsba"2 AAbaaa2 aAABCAA8bAAAAAAA1qQAAAABAA1AAr1AA!RCARACWDfAsBARBACA232AAAjA2AaABN93!qQAA4}sdsArDA3ABABBABAB7ArQ2QAraAq!rAs vl qAqAAqAA""QA"<AeaqAbQqAAqAAqAAB21qAA9 21qBAABArDCrAAqAAqaav< 11qABrAABrBqADBBB82AA2AAqAArr!0vAerqsq45B1aABAC8q1AAA3u22r111A!2BBr11BABtr5QA4qbSAA"b2AAB2bA1RBAABqABqAB2r1a1aAA2Ar1rbBrA BD1BBt1QA2bqrB1tAABAqABqABrCAB01qE#A1AA!7!Q11QAq1AAD2bAarQBBAC1bAr1BBAAAsaaaaA*8rArQAAAB7qrbaa1qArAAAA2 "2AAAB8g!ArrAB3!1QR7.3AwAA1A1AAQ1AA1AAQQA1AAQQA1B3qB12qABBAB5Ra3A3A211BAAA!AB5"1AAA1AA2B!AAAAr1QAA11QAA11QAAAqAAAqABAh2AAA72rAtbtQ2QA!raAq l2QA2AABrAAqAAraaUr4QA2AAqAAB9q!Aaaq1111AqaaB8A !rs1AbAbeAeBbA23AdrAArAO2q4 3AAArqAAAAA1aACBABB2qA2q23AArsv2t1Rt1sR DqxqAAAAAubqa"Aw DbBsBBTBAsAQAAAB2strBB2br2BAA1AABB2q"AAqABB2q1A!ArrrA!2A2a!AAABAA2CA2bqqAA42qBbqqAA2aqq1q#q1qAAAAAq2b7AtAAtAARAARaAAaQqaQqbAq1B42qAaq11AAA1qA2ABAA1AA1A2A2AQAA2qrqqC!1AqAAq3qA- AAA233tAR21; bAAAAAAAAqBBBAB2qUBrrAArrQrC2A2aAA2tqtA%rCBC3E1Alr1rrAArrABrAB2322AABBB2bqAAirqrBrAArB2AArB21bs1t1rsqAAAAAbBAsuuB26r1ArAABs`aBdtr1qbrt&BAAABBBCCB2qc2A3TrsC!ABBB3pqBrr!1Ab0abSrrsrL2R!ABB|2R!ABAASNABAsBrAAq2AA ArA2q2Q3AAA2 A3tAr11BB2q2aAAaAA2AAbArAAAAB21A21"rqABAAB1&MG`qGM N?9%$Og5kusV?ٖl5 #9 (## #MB cB'R  >  T TT T T  T T T? ve_funcionesF %;%  >% > % ) >C %  >% > %  >9>C! " #C!$ T aF #)%  UHCQ PCCAtencin !!! Precios y bonificaciones por artculo actualizados !!! ?C2Atencin !!! Precios por artculo actualizados !!! QFC9Atencin !!! Bonificaciones por artculo actualizadas !!! BU%XTIPOXAUTMSG VE_PEDIDOXVLDVLD_LISXLISTAMENSAJEMULTIMON XACTUALIZADOSTEMPCOMPCOD_INSLISPRECOEFXMONEDAXERRXMSGXCODIGOXATRATRXBULBULXXPRECIOXXBONIFXXMONEDAACTUALIZAR_PRECIO VE_FUNCIONESXCOD_CLICOS_LIFOP_LISPREC_MULTIMONDES_INSTOT_COMCALCULO_TOTAL_PS RECEPCIONCOEFIC MO_TOT_COMCALCULO_TOTAL_ME%4Ecodcli%Ecod_cli%CCliOtros4 rcliotrosUXCODCLICLIENTESCOD_CLICODCLICLIOTROSG+(listados%CxFiltrobLYT.t.%CClientes Qclientes%CCliOtros QcliotrosFG((cod_cliFG-( T-G 12f3 xsalir=.T. CCNa SCAN FOR &xfiltroC C %Cx9%!G-(G {2f3 CUXFILTROLISTADOSXCUENTAXNOMBREXSALIROWSCLIENTESCLIOTROSCOD_CLIF3 ESTADO_INI VALIDAR_CUIT ESTADO_INCNOMBRE ESTADO_RELCTC %PpT No es CUIT T- "TC % 2> C6 C$UXCODCLIXNOMBRE XENCONTRADOOWSOCNPOSICIONAR_CLIENTECLIENTESTIPODOC BUSCAR_CUIT INSCRIPCIOCLIOTROSCOD_CLI CUITVALIDO CUITVALFEC CUITVALNOMIN'#CoSVP: buscar_cuita T%C t TTC-%C=55T ExtranjeroBC .BC U XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIROCNOWSXCATIVAOCLIENTEOSVP AVFP_LOGUEARBUSCAR_CUIT_PAISESBUSCAR_CUIT_ONLINEwTC-%C` T-T CUIT VACIO!!! G%CPaises Q\PaisesFEcuitn%C4  T-KTCUIT 1 no encontrado en la tabla de paises, revselo!!  C TaT%  pCU XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIRP_SYSTEMPAISESCUITNDESCRMENSAJEG' #C oSVP: MetodoC Z %CoClientebO+TC FE_ClienteFE_Objetos.prgH< *BC  )*BC  n2T C %  T *BC 2T C 2<*BC BU XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIROCNOWSXCATIVAOCLIENTEOSVPXRET AVFP_LOGUEARP_VE_VALIDAR_CUIT_METODOBUSCAR_CUIT_ONLINE1BUSCAR_CUIT_ONLINE2BUSCAR_CUIT_ONLINE3 P_AGES_SOLBUSCAR_CUIT_ONLINEBUSCAR_CUIT_ONLINE4y'  7C  BU XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIRORESPOWSXCATIVAOCLIENTEOSVPXCLIXRESPOAGESSOLOTABLAS OCLIENTES BUSCAR_CUIT'  %CiTVACIO T- B%%CoWSbO CoWS  +  fe_funciones( C$C oSVP: ERROR  Ta T-TError de librera Ta T a%CoWSbOk T a% B-TCH%CoResp.datosGeneralesbOCoResp.datosGenerales EHp! JURIDICA/T FISICAp"T TTTTTCT % ACTIVO, Ta A T- ATTipo oResp.datosGenerales=CoResp.datosGeneralesbT T- BU! XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIRORESPOWSXCATIVAOCLIENTEOSVPXSALIROEXFE_OBTENER_OBJETO_PSA5 FE_FUNCIONES AVFP_LOGUEARMESSAGEOCNFE_CONSULTAR_CUITDATOSGENERALES TIPOPERSONA RAZONSOCIALAPELLIDONOMBRE DIRECCIONDOMICILIOFISCALCIUDAD LOCALIDADCOD_ZIP CODPOSTAL PROVINCIAPROVINCIA_NUM_A_LET IDPROVINCIA ESTADO_CUIT ESTADOCLAVE#/sys_procesandoConsultando AFIP T    G+( qdfoxjson%C T C T %C =96_!T CC [-?T 2url:https://soa.afip.gob.ar/sr-padron/v2/personas/T  T C  % T CCC 8 Z Ta  T-('SCFNo se pudo acceder al servicio de AFIP para validar CUIT/documento !!! T-% [sys_procesandoB->T 1url:https://soa.afip.gob.ar/sr-padron/v2/persona/T  T C sys_procesando @% 'T T Ta < T-(SCFNo se pudo acceder al servicio de AFIP para validar CUIT/documento !!! T- BU XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIROCNXCATIVAOCLIENTEOSVP SP_MENSAJESYS_PROCESANDOOJSXCUITXURLBASEXURL QDFOXJSON JSONSTART JSONOBJECTBUFFSUCCESSDATAOEXMENSAJESP_OCULTAR_DEFINITIVAMENTENOMBRE]#%C @ T  '%C=96 C>  +TC00000000CC[RT DNI T CUITTC-%C T-T CUIT VACIO!!!   wconnect2  T QOHTTPTCwwHTTPNT@TC(https://www.cuitonline.com/search.php?q= T T T-TCtitle="Ver detalles de%Y]TC(


rTCW



9TCC-ETCC> *C=-C\-CR6THU Iva InscriptoT Inscripto! Monotributista%T Monotributo Iva ExentoUTExento% %CC>.TNo se pudo buscar el  !!! ,T  no encontrado, revselo!! %  CTT wconnect2 BU XCUIT_BUSCADOXNOMBRE XENCONTRADO XADVERTIROCNXCATIVAOCLIENTEOSVPXCUITXTIPODOC FN_PUBLIC WCONNECT2OIPXIPWWCLIENTOHTTPXBUSCAXHITXCUITTXTXSRTCHTTPPROXYNAMEXSTRHTTPGETMENSAJENOMBRECATIVA FN_RELEASEsTC # T-%X%k%S5C(Punto de venta para remitos inactivo !!! B% V# % R;CEl punto de venta debe ser CC Z !!!# B# T% S9C,Punto de venta para FC/NC/ND/PS inactivo !!! B % # %SOC%Punto de venta referido para remito (CC Z) inactivo !!!# B#$%    PC+No se puede facturar con el punto de venta CCZ !!!C 'El cliene tiene fijo el punto de venta CC Z B Ta BU XRESULTADOXPVXCLIPVNUMFACP_VE_VALIDAR_PVXTIPOPEDACTIVORMENSAJECLIENTESPVPVRACTIVOFm )%CClientes InscripcioDT ]TCX BUXCUITXCOD_CLI CLILENTESCOD_CLIM%BF>>BUXCOMPLTEMPCOMPCOS_LIFOCOMPLALL& %F~ %TCd TTCT Td T>9>C  C  BU XEXPORTACIONX1X2XCOMPLTEMPCOMP RECEPCIONCOS_LIFOCOMPLTOT_COMCALCULO_TOTAL_PSCOEFCOEFICDES_INS MO_TOT_COMCALCULO_TOTAL_ME Hs < T \ T | T  T  T   T  T  T < T  \ T 2s T BUXIVACAT XTIPO_AFIPTCCfH1 C>UTCg0 CCIVA Responsable Inscriptof T3 CCIVA Responsable no Inscriptof T) CCIVA no Responsablef T( CCIVA Sujeto Exentof= T' CCConsumidor Finalfq T. CCResponsable Monotributof T- CCSujeto no Categorizadof T- CCProveedor del Exteriorf  T+ CCCliente del ExteriorfX T 3 CCIVA Liberado Ley N 19.640f T G CC0IVA Responsable Inscripto Agente de Percepcinf T 5 CCPequeo Contribuyente Eventualf. T , CCMonotributista Socialfg T < CC%Pequeo Contribuyente Eventual Socialf T 2TBCU XTEXTO_AFIPXIVACAT XTIPO_AFIPIVACAT_DESDE_AFIP Ht < T \ T | T  T   T  T  T  T < T \ T 2tT BU XTIPO_AFIPXIVACATH$ AbHI^ C%{ B< BC6 CBC6 CBC6 2^<C/Tipo de comprobante electrnico no definido !!! B BH C% B= BC6 CBC6 CLBC6 2<C/Tipo de comprobante electrnico no definido !!! B CH CB C6 C1B C6 CdB C6 2<C/Tipo de comprobante electrnico no definido !!! B MH C&% B: " B3 CC B4 C` B5 2<C/Tipo de comprobante electrnico no definido !!! B EH| C B C B C| B<C/Tipo de comprobante electrnico no definido !!! B Z B 2 B BUXTIPOPEDXLETRA XFCE_CREDITOXLIQPRODMENSAJE 5G+( ve_pedidoTC% m T T% C g HT;La lista de la moneda debe coincidir con la moneda asignada T T- BU XLISTAXMONEDAXMENSAJEXERRORMSGXOK VE_PEDIDOVLD_LISCFG_LISMONEDA%C+Ba'TCC %1TNo encontrada la moneda (C) TB-TTCBaUXMON_FCEXMONEDAXMENSAJEXERRORXTMONEDA MM_MONEDA#%=B-FG((lisxcliECZ%C4   T Ba % (BCC a B-U XBONLISXCOD_INSXBULXATRXLISPREXCOD_CLI XHERENCIA XAUTOHERENCIALISPRECLISXCLIBONLISVE_OBTENER_BONLIS_EXACTOVE_OBTENER_HERENCIA/     %CxfecactbLrTTC T C  T C  %B-TTT >TC  % %9%C    Ta% 6%CCX  Ta% o%k:%C  CX g Ta%% Cg *TCCg  % C %T C 65TC    % %0%C     Ta% -%C CX  Ta% o%k1%C   CX g Ta% TC d T BUXPRECIOXCOD_INSXBULXATRXLISPREXCOD_CLIXMONEDAXFECACTXCAMBIOXERRXMSG XHERENCIA XLISTABASEXBONLIS XDECIMALES XBONLISBASECFG_LISBONLIS DECIMALES LISTABASE XOK_PRECIOVE_OBTENER_PRECIO_EXACTO P_PRECIOGENP_PRECIOS_VERSIONMONEDACONVERTIR_PRECIOMENSAJE XOK_BONLISVE_OBTENER_BONLIS_EXACTO/  %CxfecactbL_T T C  %B-F G((lisxcliECZ%C4  zT % T  _<'ocfg_lisaTCgT  Ba % 4BCCa   B-UXPRECIOXCOD_INSXBULXATRXLISPREXCOD_CLI XHERENCIA XAUTOHERENCIAXMONEDAXFECACTXCAMBIOLISPRECLISXCLIPRECIOP_PRECIOS_VERSIONMONEDAARR_LISTA_MONEDACFG_LISLISTAFECHAVE_OBTENER_PRECIO_EXACTO_NEWVE_OBTENER_HERENCIA%CoSVPbO:C%?C ve_funciones.prgUOSVPXTEXTOXLOGAVFP_LOGUSER_LOG PUB_INDEX%Cprovinc KQ\provinc%C T,co_impuestos_per_ib_compras2(%C>C1Debe seleccionar una provincia (jurisdiccin) !!!B i"%Cprovinccod eEC8Debe seleccionar una provincia (jurisdiccin) vlida !!!BTCCTXT  5 T C   ve_pedidoG+( ve_funciones F  T6!C C   ("G+( ve_funcioneslistadosCaCscan8~!C C   T ^J,CCCZ/CCZ - %P C )C F>%}Cerror CUXALIAS XLOG_GENERAL XCON_CLIENTES XSIN_CLIENTES XPROVINCIAP_SYSTEMCO_IMPUESTOS_PER_IB_COMPRAS2MENSAJEODEYFUNCNEWFILE_LOCAL_TMP XTEMPCOMP OPEN_FILES VE_PEDIDO VE_FUNCIONESXCANTRECXACTRECERRORCOD_CLILISTADOS ESTADO_INISYS_MOOBJ ESTADO_INCFAC_VENFCE_TIPO GENERAR_ZETAGENERAR_FACTURAING_RESPING_MSG ESTADO_REL O5     5TVTA.LOC. T9F(% #)T  TT T- T te_cierre_locales$%CsucpropcodigoxT T!" B-#%C!cuentasabrevT!#$T% T!TC ZCZC%CpagQ&5'()*+T'C,-T(C,-T)C,-T*C,-T+C,-.'()*+F/ ^J0T012T03T045H 01(T06- 01OT06A$ 01 01 T06BT077T088T099T0::T0;<T0=>zG? T0?>T0@AzG? T0BAT0CDT0EF _J0F& TG ~3TGG>HCoObj.pag_IMP1_CCGZICoObj.pag_IMP2_CCGZ:CoObj.pag_IMP1_CCGZCoObj.pag_IMP2_CCGZ T TJa,Kte_cierre_locales.prgaJTUMOOBJ XLOG_GENERALAAA XRESULTADOXFECHAXIDXUNXASIENTOXACC_IVAXACC_VTAXTOTALXBASE0XBASE1XBASE2XMSGXVENTA XCOMENTARIOXIVAXCEN XACC_CAJATRSACXTIPO2 XCUENTA_CAJAXPASEXDTO672XSUCNUMSUCPROPCODIGOXSUBCIERREBUSCAR_CUENTA_PERCEPCION_BAIRESTE_CIERRE_LOCALESCOD_CENXCTA_LOCCTAVENCUENTASCOD_CUEFECHAPAGXTMPXTMP2XTMP3XTMP4XTMP5ODEYFUNCNEWFILE_LOCAL_TMP CREAR_TABLASDETODETCATIVAIVACATCAUSACENTROPTOVTALETRAZETADESDEHASTAIMPORTEBASE0IMPOPEXBASE1IVA4IVA1BASE2IVA5IVA2PERIB PERCIIBB1NOGRAV IMPNETONONITIMPORTE1IMPORTE2XOK REGISTRARPRG $C Generar:  TaFG((ccvfacTT T  $T C  խTC 6-%CccventccvfacIHE jC-CX Comprobante:  C * - Mal registrado !!! (total) T- hC-CX Comprobante:  C * - Mal registrado !!! (iva) T- C-CX Comprobante:  C *  /  - Mal registrado !!! (CUIT) T- 2EjC-CX Comprobante:  C * - Registrado con anterioridad T-%CC {T6%C CClientescodCli 5uC-CX Comprobante:  C * Cliente no encontrado !!! () T-%C^C-CX Comprobante:  C * SIN CLIENTE !!! T-% B-%Ccons QCONSF#)=TCCC$CC C$C6/TCC C68% C$C   C$C  JC-CX Comprobante:  C *# - La fecha debe estar en el rango C* y CC$C*B-T T ! T"T# $ T%T& 'T( T) T* T+ T, T-a T.%C/uT, /%099q0T,#SIN IDENTIFICAR/VENTA GLOBAL DIARIA T,CC/fH ( 080 086 @1 T1,.2 ve_funciones,--. T4-%- < T,1 096 Hi  CC> *T0CCCCC\gZ CC> T0CCCgZ 2 %T0CCCCgZ 099E T0 2 oC-CX Comprobante:  C *" - Tipo de documento desconocido: 0B-#%C5cuentasabrev T678 t gC-CX Comprobante:  C * - No se encuentra la cuenta 5B-T9%C90 T999:0%C oObj.IVACatbN ; $T:C0806 ~ =%099"096C=B  ` T: z T:;Fe><C X=>CC,f?@C$A B 900CDEC]F G'&$#H%I;:J)CKCLCMCLNOCL%PE 7>PP QQRR"%C oObj.Cod_CenbC{ >SS TT TU TV TW TX TY TZ T[ T\ T] T^ T_ T` Ta Tb Tc Td Te Tf Tg Th Ti Tj Tk Tl Tm Tn To TpTqC(XTrCXTsCXTt u TvTwCXTxC(XTyC(X Tz T{ T|}ve_procsTYTbF/%Ccliauxcomprob > %>/,,VWXuYZ9[\^_`abcdefghijklmnopF T T T< T T(H T T 8TT%@ hT T T TCiva%T (TCd  6%0%C oObj.Desc_InsbC C XT rT7TF><C X A ?CX86NCKC&S@C$N TCO( %C%TC%TC!%}TTTTTKTAritm_desc %$%C?cC-CX Comprobante:  C *# - Mal el IVA, no se puede corregirB- (#%C-TCT!%bC-CX Comprobante:  C *" - Mal el IVA, no se pudo corregirB-(riva_venCCCC 6CCC 6CCC 6CCC 6C rremxfacrccclie JEACC 6C]CZXC-CX Comprobante:  C * - IngresadoBUOOBJ XLOG_GENERALSYS_MFAC_VENCAUSAXOKCCVENTCCVFACXCOMPROBXCAUSAXFECHAFECHAXES_NCFCE_TIPOXNCSIGNOIMPORTEDEUDALOGEARIVAIVA_VENCUITCOD_CLIP_VE_IMP_CLIENTEXDFCONSOCIERRES CIERRE_VENCIE CIERRE_VENDES CIERRE_STKCIE CIERRE_VENHASXFECENT XVENDEDORCLIENTESVENDEDORXNOTASXFLETECOD_FLEXDEPOSXLISTALISTAXVENCXREFXSUCXHORARIOXNOMBRE XENCONTRADOXOBJCLINOMBRETIPODOC XOLD_NOMBRE BUSCAR_CUIT VE_FUNCIONESXCUIT_VALIDADOP_VE_IMP_CUENTAXCUENTACUENTASCOD_CUEXCUITXIVACATIVACATREM_VENSUCDES_CLIEPEDIDOHOYFEC_VENFEC_ENTAGENTEEST_DESPIDPLANFPAGDEPUSRREFTOT_VENIMPNETO IMPONIBLEBULTOSVALDECLFCEFCE_CAEFCE_VENCCOD_CEN XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIR XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIA PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XOTRO_CLI DOMICILIOSVE_PROCSPROVINCCODIGOCLIAUXCOMPROBNOMFAC DOMICILIOCIUDADZIPPAISPHONOEMAILENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORENTCOORDGEOENTFCECTOFCENOMFCEDOMFCECIUFCEZIPFCEPROFCEPAIFCEPHOFCEHORVENTAS ACC_BRUTOACC_IVAXACCARR_IVAXMAXIVA XREG_VENTASNIT XIVA_IMPORTEIVA3 XIVA_ALICUOTAIVA4IVA5IVA6XBASE IMPNETONODESC_INSXDESCRDESCRCOD_INS INVENTARIO RECEPCIONCOS_LIFODES_INSCOEFICLISPREGRAVADAITMIVAPERZITEMTASAIVA_MOBASEBASE_MOTIPO_REGREGISTRAR_IIBBFACTURACAUIDU J( T(P$TC oObj.PercIIBBCCZ%.TT$Td  T T#T   ve_pedidoF '%Cccventccvfac > UXCOMPROBXCAUSAOOBJNITXPERC XPERCTOTAL IIBB_PROVZIMPNETOMONCOTIZGUARDAR_IIBBPROV VE_PEDIDOCCVENTDTO672TC%C1TCCC-6TCF CC6BUXARCHXINICIALXMSGOOBJ XRESPUESTATYPEOING_MSGING_RESP #%CbienescodinsvHTCN$C 6d 6  BUXCOD_INSXPRECIOBIENESIVAIVAPER   T C T T T TC$ T  T T 7 listados    a BUXPRECIOXMONEDAXMONEDA_DESTINOXCAMBIOXERRXMSGXERXIMPORTEXFECHA XMON_ACTUAL XMON_DESTINO XCAMBIO_LOCAL XFECHA_OUTCONVERTIR_ENTRE_MONEDASLISTADOSv Hf 80KTC- 2fT BUXTIPODOC XNRODOCUMENTOXCUITDNI;     TC TC TC TC TC TC TC T C  T C  T C  T C  T C  TC%%C CliVariosCUIT t >k>   BaUXTIPODOC XNRODOCUMENTOXNOMBRE XDOMICILIOXCIUDADXZIP XPROVINCIAXPAIS XTELEFONOXMAIL XRAZONSOCIALXDOMICILIOFISCALXCOD_CLIXIVACATXCUITDNICLIVARIOS_CUITDNI CLIVARIOSCUITINCOD_CLINOMBRE DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISPHONOEMAILIVACAT?     5 TCTC X listados.t.HQ C=80TC=TC[ 2QTC=TC XTC[1TC=-C\-CR T T T T T T T T  T  Ta%C  F F BUXTIPODOC XNRODOCUMENTOXNOMBRE XDOMICILIOXCIUDADXZIP XPROVINCIAXPAIS XTELEFONOXMAIL XRAZONSOCIALXDOMICILIOFISCALXCOD_CLIXIVACAT XENCONTRADOXALIAS XVARIABLE BUSCLIVARIOSLISTADOS XDOCUMENTONOMBRE DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISPHONOEMAILIVACATI?     TC%%C CliVariosCUIT T- BT TTTTTTTT T  Ta BUXTIPODOC XNRODOCUMENTOXNOMBRE XDOMICILIOXCIUDADXZIP XPROVINCIAXPAIS XTELEFONOXMAIL XRAZONSOCIALXDOMICILIOFISCALXCOD_CLIXIVACAT XENCONTRADOXCUITDNICLIVARIOS_CUITDNI CLIVARIOSCOD_CLINOMBRE DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISPHONOEMAILIVACAT%Cclientes AQclientes%Ccliotros sQcliotros T TTC %;%7&%Cclientescodcli 3 T*TNo se encontr el cliente !!! B  T-%&%Cclientescodcli  T*TNo se encontr el cliente !!! B'%Ccliotroscod_cli  TxT El cliente est mal definido !!!C ;C /No est el correspondiente registro en CLIOTROS6 B%  H C TeTEl cliente no est revisado !!!C /No se pueden registrar pedidos ni comprobantes. %i  TZTEl cliente no est revisado !!!C $No se pueden registrar comprobantes. BU XERRXMSGXCOD_CLIXTIPOCLIENTESCLIOTROSP_CLI_REVISADOCOD_CLI XREVISADO PUB_INDEXREVISADOrTTTT TCW%Ccuentas Qcuentas%'%Ccuentascuenta  FB*%C I\S  Q% 3T MT% a(TC  6(TC6%SH$    F%8T B3    THO$     %T 3    OT ] kUXCUETHISCUENTAXCENXLINXGRUXAREACUENTASCOD_CUEATRIBUTOP_VE_CEN_POR_ART P_COSXCUEVLDP_CO_POR_LINEAXLINEAXGRUPOP_CO_CEN_LIN_GRULINEAGRUPOI TCW%CCV T%Ccuentas Qcuentas% C % T%C F TGT La cuenta C # no debe tener centro de costos !!! FB P %C%  %C   TET La cuenta C  debe tener centro de costos !!! %Ccostos 9Qcostos Ta Ta T*dey_func %`% \% XiTEl centro de costos C- no est entre los permitidos para la cuenta C  !!! T F B 5TCentro de costos C invlido !!! T F B%C% 5!TDebe tener lnea !!! T F B ? $%   $TNo debe tener lnea !!! T F B %Clineas Qlineas T-%~#%Clineascodigo1 zTLnea invlida !!! T F B % % !TDebe tener grupo !!! T F B  Y$%   ~$TNo debe tener grupo !!! T F B U%Cgrupos Qgrupos T-%G#%Cgruposcodigo CTGrupo invlido !!! T F B  Q%  %C C QTDNo se permiten centros de costos y lneas/grupos al mismo tiempo !!! T F B   T T F BUXERRXMSG XCUENTA_REG XCENTRO_REG XLINEA_REG XGRUPO_REGXCENTRO_GLOBALXAREAXENCCUENTASTHISCUENTA INICIALIZARXCENABREVCOSTOSXCOSVLD XCOSXCUEVLD XCOSXCUECANTCOS_COSXCUEVLDDEY_FUNCXLINLINEALINEASCODIGOXGRUGRUPOGRUPOSP_CO_CEN_LIN_GRUqTCC- TC=TC\TC\UXFAC_VENXLETRAXPVXNRO XFAC_VENT%C UTC BCTCC0%- T-TCC0 BUXFAC_VEN XFAC_VEN5 XQUITARGUIONXMANTENERVACIOXLETRAXPVXNROSEPARAR_FAC_VENve_obtener_exacto_ambos0ve_obtener_preciovve_obtener_precio_oldve_obtener_herenciave_obtener_precio_exactoUve_obtener_precio_exacto_old ve_obtener_bonif ve_obtener_bonif_exactot tipo_cpbtve_validar_guardar_precioactualizar_precioactualizar_precios_tempcomp posicionar_cliente validar_cuits validar_cuit buscar_cuit!buscar_cuit_paisesV#buscar_cuit_online.%buscar_cuit_online4r(buscar_cuit_online3)buscar_cuit_online2.buscar_cuit_online1s3 validar_pv9buscar_cuit_clientes= des_complI>fn_compl> ivacat_a_afip@ivacat_desde_afip_texto(Bivacat_desde_afipFFtipo_de_comprobante_afipGve_validar_lista_y_monedaMve_validar_moneda_fce>Ove_obtener_bonlis_exactoePve_obtener_precio_new Rve_obtener_precio_exacto_newX avfp_loguearZagregar_comprobantes[ generar_zeta`generar_facturahregistrar_iibblogearSve_obtener_precio_sin_ivaLconvertir_precioclivarios_cuitdniclivarios_guardarCclivarios_buscar_ventanaSclivarios_buscarcliente_revisado inicializarivalidarSeparar_FAC_VENConvertir_Fac_Ven_PV5MTC X T T T 1 2UCUENTAXCENXLINXGRU cenlingruCUSTOM~11A22aA3212aAB3q11A2 qAAqA!AAeqAAqA!AAr3q1Aq32aaAA21A2r2qqaAAA6qqAABB4sArrqAaAqAaAqAaAqAaAqAaAr31sAr1qqAAAqqAAA2AAAAA2qztaA3rbbAQAAAaA3v2s"A"trar1ABAAAAABqQr111aAAA4qaqAaAA4q!1AAAAArraaQAAAAba3q2bq!Ac'D3q1#A2qA412QAr!AAqA5qq8A111!6!AAB2qr2q!ARAAAqAAR1!AbAB3132#A"RA1BrAB""1A1B31#AtA2QB q1b"R"a1ABqAAAqBB3132rQAaAaAAraCrABAAAAAA1A31qa!AA2q2rAaAtBBA11111111111A2Q1q1qQA!31111111111A21AAAAAAAAAAAAAAAAAAAAAAAAA211!AA41qAr2qAq412sArqqAA511A2112qAAABdABAAA22AAATSAABABAAA2A41A22sAs1qqBqBqAA4AA2qABA!QAAArAba"a!!Ar!AB11qQs1ACqA2ABArs11aaAA111111111SrSA4GrqB1AAAbQAAAqAvcAqQ1qABAAArARA2qB8rqAbArAAARrQQbtA!A2sQsAQrr111Q11A1A2ArQPQQQAAA1ABBBbB1BrAAA2!BrABACBc SB21A1AAA1AqqA3qAAB12A222w2QA3211111111111bRAr2qq""B!A1bRA21AAAA24caAAbaAAsAc1Q23ABBA=qr1AqAAAAA2AbbB1AAbbB1ADB4rrAr1AcAb#qABc!QAA!A3AARABB3cBDB!Aa2ABBA2cBDB!Aa2ABBABB31q!QQ21!A!A2 1"} %? X gG SqO|w{wI h A!p!%$%'M!(L0k0k01;14^46k7A99ym9;N;BmB%DNDfKKRER_@P(_d{eee\fqf5iOizn4nti?tvAv~J~Y/g])yΐEќj?^l:^U{  F ] "} W5  \   @   5  %)-%*aYY<G(9"T\tmp\CC]R ve_pedido TTC6 T  ve_aprobacion( %  1 T C  %C C -H)%   g2C%El pedido tiene aprobado el stock !!! %   4C'El pedido tiene aprobado el crdito !!! $   (CEl pedido est aprobado !!! $   \,CEl pedido est sin analizar !!!  9C,El pedido se excede del crdito asignado !!!  =C0El pedido no fue aprobado por falta de stock !!! 2)!CPedido analizado !!! BU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXPEDIDOXTIPO P_PICKINGXRES VE_APROBACIONXMSGAPROBAR_PEDIDOMENSAJETCCVENTSTOCKCREDITO|4"T\tmp\CC]R ve_pedido T -"T \tmp\CC]R"T \tmp\CC]R+G+(listados ve_pedidove_procsG~(clasesC aprobacinTFG((tccvord%4 E%|%TPedido no encontrado !!! B%.%,TEl pedido no est pendiente !!! B *6T)El pedido est en proceso de despacho !!! B%m"Cclientescodcli$%Ciibb_prov(1,1)bU< J(&%Czarr_textos(1,1)bU<  J( T TC$T T T T  T! T"-T#$ T %- T&T'(T)*T+,T-.T/T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T: T; T< T= T>T?% % G( \temp.txt G( \temp.txtG G T@ATBCTDE TFTGHTICC$@GFJH- I I I@ -8T+No se pudo actualizar el tipo de cambio !!! B TK TL&%CFMG((pedidoG ECZG TLCC+CO6N pr_funciones%P]%Ctmp_assemblies FQQC RQ QFQ+CN Y >SCO TT&U ve_pedidoC ZP"TV\tmp\CC]R%WCVX CaY TK%  TZT[ve_aprobacion.prgT\Anlisis de Pedidoy]trsacZstockstkxdeptccventtventascccliecompromicompromcliaux TZ_trsacZ[\T`CC 999,999,999_TaP Tb- Tc- Td-HV  v T-  T-  T- T%%Ctccvent.tipo_ncbN Tef  Te %C ghTgC DatasessionvThCprocvRi)0123456789j:;<=>? G(g)set procedure to &xsetprocs additive  T)TkCl%km TnC]6ocomprom$#1 \tmp\compromnQ<%+&C) -  %L0 G CCZtventaspedidoG .TLCCtventas+ CtventasO6%Cp Tq Tr-RCEHubo un problema interno. Debe realizar un mantenimiento de stock !!!s T+%C* T+%t& %- T- " %N T+5%)- -  7%C C+ u  v+%+%K Tca Tda ]%CO T+ T- Y$%jwx e  T-*%y e  T-% T-Fs>*),+.-C+)-  - 6zC$#/%Cb +  C{%+ kFMG((pedido%Lg #L+C+ cF|-|SM}%C4T>M~|~FMH T T, ve_aprobacion+)-FG((comprob/EC@z 9999,999,999_PCZ%C4 >~  CC ZP% e%Ck TZ TZ4CC@z 9999,999,999_P\[RCC@z 9999,999,999_PEstado: C+)-[trsacZ[\ T%a ve_pedidoGG(BUXTIPOXMSGXPEDIDO XAUTOMATICOXTRAN XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOSINSTK XLOTESXIT2 XASSEMBLIESLISTADOSVE_PROCSCLASESSYS_M XUSR_AP_STKTCCVENTTCCVORDPEDIDOEST_DESPCLIENTESCOD_CLI IIBB_PROV ZARR_TEXTOS XMAXTEXTOSXFECEMIXCOD_CLIMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYN XUSAIVAANTXIDIDAUTXTIPOPEDXDEPOSDEP AP_CREDITOCREDITOAP_STOCKSTOCK AP_GERENCIAGERENCIA EST_DESPACHOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREFXMONEDAMONEDAXDIVISASDIVXTCFIJOTCFIJO XERRMONEDAXCAMBIOCOEFIC XRES_CAMBIOACTUALIZA_CAMBIO_PEDIDO RE_ANALIZO BEG_TVENTASTVENTASCREAR_TMP_LOTES PR_FUNCIONESP_VE_ASSEMBLIESTMP_ASSEMBLIESCREAR_TABLA_ASSEMBLIESITEM XENTPROVINCIA TRAER_CLI XTMP_ALTAS P_VE_ALTASCREAR_TABLA_ALTASLEER_PDAAATRAN_PRGTRAN_TXTLOCK_GTRSACBEG_TRANXNUMXCAUSAALFABETAGAMMAXTIPO_NCTIPO_NCXDS XSETPROCS VE_AP_CREDITODEUDAXAPROB_ANTERIOR FN_APROBACIONP_VE_AP_STOCK_VERSIONXCOMPROMISOS_ANTERIORESCOMPROM LIBERAR_STK TTS_ERRORREAMENSAJEP_PD_DESANALIZAR_TIPO P_PICKING VE_AP_STOCKCONS VE_MIN_PEDP_APFIN_GERENCIA UPDATE_DTAUMENTA_STOCK_PEDIDOTEMPCOMPITMAPROBXRESXESTADO_PEDIDO ESTADO_PEDIDO VE_APROBACIONCCCLIECOMPROB GUARDAR_CLIUSER_LOG PUB_INDEXEND_TRANTTS_IDP_VE_SEGUIMIENTO_PD SEGUIMIENTO,45%   %tTAprobado "TAprobado por Gerencia T D%     "%  Q#TSin Analizar (Parcial) T T Sin Analizar T H e T%$TRechazado por Stock%C 2%TRech. X Stock/Ap. X Ger. a%TAprob.por Gerencia.  #TRechazado por Gerencia "TRechazado por Crdito $TRechazado por Stock T BUXRESXRESCODAP_STOCK AP_CREDITO AP_GERENCIA45%   %tTAprobado T Ap. X Ger. T D%     {"%  F#TSin Analizar (Parcial) T wT Analisis Parc T  %-7% T Rech. X Cred. 3% T Rech. X Stock /T Rech. X Ger. HR  T%T Rech. X Stock%C TRech Stk/Ap Ger. T Aprob. X Ger. .T Rech. X Ger. [T Rech. X Cred. T Rech. X Stock T BUXRESXRESCODAP_STOCK AP_CREDITO AP_GERENCIAFG((pedido% #+C+ F%G((codins EFH%, S     S   T  T  T proc_stk CDP CC@z 999,999,999_C$7% 4T'Error de asignacin de stock pedido !!!!FHBUTVENTASPEDIDO BEG_TVENTASXPEDIDOBIENESCOD_INSCODINSOBIEDATA_CODIGO_VACIO ATRIBUTOSATRSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULTCCVENTDEP RECEPCIONRECEP2XIDITMXMSGFG((pedido% #+C+ F%G((codins EFH%, S     S   T  T  T proc_stk CDcP CC@z 999,999,999_C$7% 4T'Error de asignacin de stock pedido !!!!FHBUTVENTASPEDIDO BEG_TVENTASXPEDIDOBIENESCOD_INSCODINSOBIEDATA_CODIGO_VACIO ATRIBUTOSATRSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULTCCVENTDEP RECEPCIONRECEP2XIDITMXMSGaprobar_pedido estado_pedidoestado_pedido_corto# aumenta_stock_pedido$baja_stock_pedido&%Ba"Q!QAAAaaABAB2q0!B"!rsbAbQAbaaAA!AEq2Abr1A31$Aaa12Abrbas3qAArAQAAa"2ABA111ASA1P!BaAB6aaA"AAB41BAB2ASuA21AAABAEAA2Ar7BsBqA1AqAABBrBAB!2ABcaB2wR2Q!AC"1A12AA"QQA312!2ABAA2sR2QqAC"1AAA12A"A222BCAA3tBraAq+2AAABrAAAB2sBraAqK2AAABrAAAA1!CD101^17Z57<[=CAaAE %YvX 4 Ta"%C xpresupuestobNV%R T-%Cventas Qventas T T T T G(9 G~(clases+G+(listados ve_pedidove_procs%CtempcompCFQTC C T T TC$TC"%C xpresupuestobN T T%TCC CCX6 T T T T T T  T! T" T# T$ T% T& T'7T(C)* )*C+66T,C-T.NT/CXT0CXT1CX T2 T3 T4 T5 T6 T7T8 T9C XT:NT;C(XT<NT=C(X T> T?- T@ TAB TCTDC(X TE TF TG- TH TIaTJNTKTLN TM TNTO TP- TTQCXTCCR CR6&TCRT2%CRCR &STCC , PER.IIBB 6C CCCR Z% TNve_presupuesto_3(V"% CV 9C,El comprobante tiene un importe negativo !!![ TV%V]TCHY  TV! 9 TV Y TV%CVW_ ~!%VV !%C tmp_bie_busQ%CtempcompFQBU XPRESUPUESTOXPREGUNTAR_X_PRESUPUESTOVENTASMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYN ACTIVEFORM DATASESSIONIDCLASESLISTADOS VE_PEDIDOVE_PROCSTEMPCOMP XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILESXMOTIVOXTIPOPEDXFECEMIXDT XERRMONEDAXCOD_CLIP_CC_CLI_CLIENTEXSUCXPLANT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_DESC_CONST_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XSUCFACLOCALESVE_024P_SUCXLISTA LISTA_INIXDIVISASXDISTRIB XVENDEDOR XCENCOSFACXMONEDAXCAMBIO XREVISIONXREVISION_ACTUALXCUITXIVACATXTIPODOC XDOCUMENTOXRG5329 XOTRO_CLIXCOFINXNOMBREXCPBTTXT XZONAFRANCAXUSRXVALIDEZ P_PRESUP_VENC XPRIORIDAD XREFERENCIAXREFXCAU XTRANSFERIBLEXARMADOXCLI_INIXCESDSP XFPRORROGAXFCE_RECHAZADOXENTGLN AP_CREDITO XENTPROVINCIA XDESCRVARXFLETE IIBB_PROVVARIABLES_PUBLICAS VE_COMIENZO YA_CARGADOXRESXFORMXMAXFORMVE_PRESUPUESTO_1LEER_PRESUPUESTOMENSAJEXTCFIJO XRES_CAMBIOACTUALIZA_CAMBIO_PEDIDOWIZARDVE_PRESUPUESTO_2NUMFAC ZONAFRANCA XCLIPROVINCIACLIENTES PROVINCIAXI_PAISPAISXENTPAISDOM2PAIS2SUCURSALXPEDIDO XSIN_IMPORTES XCON_IMPORTESXDEPOSFN_DEP XUSAIVAANTDIRXALICUOTAS_ORIGINALES PREPARAR_DATAVE_DATAMODIFICAR_DATAVE_004P_VE_PRESUP_DESCR VE_DATANCP_DOS SYS_DOSCENP_CODEMP P_DESC_DOSX1X2X3X4X5 P_DESCUENTOS VE_DESCUENTOSXBONIF TXT_BONIFT_IBT_IB_14T_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_REDO_ME T_RECARGO T_TOTIVAINCT_VALORDECLARADOTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_VALORT_PESONT_PESOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASET_IVAARR MAXIVAARRBRUTORECARGO_TARJETA T_CONSFIN INSCRIPTOT_DESCOM T_DES_NACT_IVA T_IVA_RG5329T_IVA26T_FINAL TX_DESCOMTX_IVA TX_IVA_RG5329TX_IVA26TX_FINAL XERR_PERCEP XMSG_PERCEP P_PRESUP_IIBBXPORCENTAJE_IIBBPERCEPCION_IIBBNETO ZIIBB_PROVXDIVP_SYSTEMZIIBBTXTPROVINCCODABREVVE_PRESUPUESTO_3XOK REGISTRAR TMP_BIE_BUS 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM C%C xTempCompbC%CtempcompMFQ%CtempcompqF FQtempcomp (QF& C =& G((%CPROVINC #Q \provinc%CPAISES YQ \paises%Cepresup Qepresup%Cdpresup Qdpresup%Cclientes Qclientes%Cagente Qagente%CCLIENTES KQclientes%Csucursal }Qsucursal%CCONDCOBR Qcondcobr%CBIENES Qbienes%CBIEAUX Qbieaux%CAGENTE 9Qagente%CCUENTAS iQcuentas%CSTOCK Qstock%CDEPOSITO Qdeposito%CCFG_LIS Qcfg_lis%CBULTOS %Qbultos%CATRIBUTO WQatributo%CSTKXDEP Qstkxdep%CNUMFAC Qnumfac%CLISPREC Q\LISPREC%CDESPACHO 'Q \DESPACHO%CIDX04 [Q\idx04%CCOMPROMI Qcompromi%Citm_desc Qitm_desc%Civa_ven Qiva_ven%Ciibbprov !Qiibbprov%Cmedidas QQmedidas%Ccostos Qcostos%Cestven Qestven%Ccliotros Qcliotros%Cfletes QfletesBU%ABRIR_TABLAS_FIJASTEMPCOMP XTEMPCOMPCOD_INSDESC_INSITEMSATRBULIDP_SYSTEMEPRESUPDPRESUPCLIENTESAGENTESUCURSALCONDCOBRBIENESBIEAUXCUENTASSTOCKDEPOSITOCFG_LISBULTOSATRIBUTOSTKXDEPNUMFACP_PRIVP_COMMONCOMPROMIITM_DESCIVA_VENIIBBPROVMEDIDASCOSTOSESTVENCLIOTROSFLETES] T TaWtrsacepresupdpresupitm_desciva_veniibbprov% 6TVe_presupuesto.prgT Presupuesto Ttrsac Ta%XTC%< T TT pT.trsacC  ZS+%   %JC Se ha registrado el presupuesto CC @z 999,999,999,999_ C  T  M T BUAAA XRESULTADOLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN XPRESUPUESTO TTS_ERRORMENSAJEIMPRIMIRTTS_IDu< oepresupC% O T jTBU ARR_PRESUPNUMEROEPRESUP XPRESUPUESTO3 T Ta%qepresupqdpresupRqitm_descCC ZC ZSCZC ZSC'Z T C  C T C T  represup  !"#$%&'()*+,-./0123456789:C;;<6=>1?@ABCDEFGHIJKLMN  OPQRS TT TU TV-FW)~CX CY Z TUCtempcompO T[- T\QT]W^T_WXT`Wa"TbC[\]_`c%[TbCX TVa'%Cdpresup.subcentrobN TdQTeWfTgWXThCdegirdpresupXjklmnoYpqras./fWXWjWkWZWtWuWvCCWX WwWY6WpWxWyUWzWaWsbW/h ( rdpresupXjklmnoYpqras./WXWjWkWZWtWuWvCCWX WwWY6WpWxWyUWzWaWsbW/{ve_procsC ZSUCWX}~ WwWY6WpWWWWWWWWWWWWCC ZS+ve_comprobanteC ZS%V(HD lTAprobado T Rechazado 2T Sin analizar`<Anlisis de crdito: ve_presupuesto.prg T- BUXERRORTRSAC XPRESUPUESTOEPRESUPNUMERODPRESUPITM_DESCCOMPROBCAUSAITEMXDTMNUEVO_NUMERO_DE_PRESUPUESTOXDTFECHACOD_CLIVENDEDORSUCFACLISTAMONEDACAMBIOREVISIONDIVISASCPBTTXTUSRBASEIMPORTEVENCDES_CLIEDES_COMIVAPERIBPERIBTXTSUCDESC1DESC2DESC3DESC4DESC5 DESC_CONSPLAN REFERENCIALUGARDTDTMDESCRVAR PRIORIDADCOD_CENRG5329PRG5329XFECEMIXCOD_CLI XVENDEDORXSUCFACXLISTAXMONEDAXCAMBIO XREVISIONXDIVISASXCPBTTXTXUSR PUB_INDEXT_TOTALT_FINALXVALIDEZ XOTRO_CLIT_DESCOMT_IVAT_DTO672ZIIBBTXTXSUCT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_DESC_CONSXPLAN XREFERENCIA XENTPROVINCIA XDESCRVAR XPRIORIDAD XCENCOSFACXRG5329 T_IVA_RG5329XTOTALXITMXERR_CENTRO_DE_COSTOS_GLOBALTEMPCOMPCOD_INSDESC_INS RECEPCIONXERR_CENTRO_DE_COSTOSXTMP_CEN_GLOBALXTMP_CEN_LOCALCENTRO XTMP_CEN_ART XTMP_CEN_CUECOD_CUEXCENTRO_DETERMINADODETERMINAR_CENTRO_DE_COSTOSXTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCAL SUBCENTROXTMP_SUBCEN_ARTXSUBCENTRO_DETERMINADODETERMINAR_SUBCENTRO_DE_COSTOSATRBULCANTIDADPRECIODTOTOTAL COMENTARIOITMUSADOIVAPERCOS_LIFODES_INSTOT_COM DCODATRBULCOEFCOEFIC ENTREGADOGUARDAR_DESCRIPCION_COMPLETAVE_PROCSOBIEDATA_CODIGO_VACIOTIPOENVCANTENVTARAREF_OCENSAMBLEIB ADICEXPORTCANSUBNUMITEM_OCOLDITMGUARDAR_IIBBPROV REG_IVA_VENVE_COMPROBANTEXTEXTO AP_CREDITOUSER_LOG T T TTG+( ve_pedido T a!oepresup q1% TTTTTTTTT T!"T#$T%&T'(T)*%' T+C-+a,%C+ C+-T./T011T2CC q1.cod_cenbC 3CX6T45T67T89T:9%;T88T<=T>?T@ATBCTDETFGTHITJKTLMTNOTPQTRSTTU?TVC5 7 CG7 T6?TWC5 7 CI7 T6?TXC5 7 CK7 T6?TYC5 7 CM7 T6?TZC5 7 CQ7 T6T[\Cclientescodcli%]S !CCZsucursalid%]S&%^ ^^  k!CCZsucursalid%C^_ T`^_ T`]_ T`]_%C` %a_`C`fletescodfleTb]cTd]e% fSN gTg]f Tg fCC ZSh%Cq1Q!odpresup q1%C otempcompǼ [Ttempcomp S F+CN W T TF Tk ~ F%tempcomp #l  Tkk F+CNk "%l Cm @TCCOD [TCCOD>mmnnoopqC r6stuvwxyzzz{{|5}7~rlmnoff%Cm , Cmbienescodins+>jCC3 336"%C q1.subcentrobN( +>jCC 6  >j3"%C q1.subcentrobN +>jCC 6%Cm >  >S%CprecdescbN( ->CsC ud 6T%Cm C Cmbienescodins&%S S 3CmonCXstockcodigo F>>>!Ccuentascuenta F>> F9>wCps|}uCpsu%Cm Cmbienescodins F;>CINC66 T T T T TTCXTC X T T T T T T`ve_procsC ZSl%C 5Fj >z%CENVASES eQenvasesFG((codigo EFjj>{ T T5 ve_pedidojmjojn>jj(%Ctempcomp.valormontbC>jCFQ F#)Ba B-U XPRESUPUESTOXSALDOSXALIAS_DETALLEMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYN VE_PEDIDO XRESULADO XRESULTADOEPRESUPNUMEROQ1XDTDTXDTMDTMXFECEMIFECHAXCOD_CLICOD_CLIXSUCSUCT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5 T_DESC_CONS DESC_CONSXPLANPLANXLISTALISTAXDIVISASDIVISAS XMSG_LISTADETERMINAR_LISTAMENSAJEXSUCFACSUCFAC XVENDEDORVENDEDOR XCENCOSFACCOD_CENXMONEDAMONEDAXCAMBIOCAMBIO XREVISIONREVISIONXREVISION_ACTUAL P_VE_REVISIONXCPBTTXTCPBTTXTXUSRUSRXVALIDEZVENC XPRIORIDAD PRIORIDAD XOTRO_CLIDES_CLIET_DESCOMDES_COMT_IVAIVA T_IVA_RG5329PRG5329T_DTO672PERIBZIIBBTXTPERIBTXTT_FINALIMPORTE XREFERENCIA REFERENCIA XENTPROVINCIALUGAR TX_DESCOMTX_IVA TX_IVA_RG5329 TX_DTO672TX_FINAL XDESCRVARDESCRVARCLIENTESSUCURSALCOD_FLEXFLETEFLETESXCUIT INSCRIPCIOXIVACATIVACATRG5329XRG5329TRAER_IIBBPROVDPRESUPTEMPCOMPXITMITMCOD_INSATRBUL RECEPCIONCANTIDADUSADOCOS_LIFOPRECIODES_INSDTOTOT_COMTOTAL DCODATRBULDESC_INS COMENTARIOCOEFCOEFIC ENTREGADOITEMOLDCODOLDATROLDBULIVAPERCOD_CUECENTROBIENES SUBCENTROIVAFIJOPRECDESCP_DESLINBULTOS ATRIBUTOSMEDIDACOMISIONCUENTACUENTASDESCRATRIBUTOCALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MEC_IVAXDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMLEVANTAR_DESCRIPCION_COMPLETAVE_PROCSENVASESCODIGOTIPOENVDTIPOENVCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORTXVALOR XVALOR_MONEDATOMAR_VALORIZACIONVALORVALORMON VALORMONT MM_MONEDA"TC 6"TC 6"TC 6"TC  6"T C  6+T C d 6/T  C d 6/T  C d 6/T  C  d 6/T  C  d 6T  dT TTTTTTCXTTC% TCaa%C C T!"T#$T%80T&C XT'(%"3T%C(=T&C(\T'C'-T)*$T+C"SN6T,*OT-C. .-C/0 /0C1666%2F3 G((idE5C2ZN%3 3 3 3  3  T3T3T3T3 T 3 BU6T_DESC1P_VE_PRECIO_DESCCLIENTESDES_COMT_DESC2DES_COM2T_DESC3DES_COM3T_DESC4DES_COM4T_DESC5DES_COM5 T_DESC_CONST_DESC1EDES_ESP1T_DESC2EDES_ESP2T_DESC3EDES_ESP3 T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2 XVENDEDORVENDEDOR XCENCOSFACXPLANFPAGXLISTA LISTA_INI XMSG_LISTADETERMINAR_LISTAMENSAJEXIVACATIVACATXRG5329RG5329XTIPODOC XDOCUMENTOXCUIT INSCRIPCIO XOTRO_CLINOMBREXCOFINXNOMBREXSUCFACPVLOCALESVE_024P_SUCXSUCSUCURSALIDXCOD_CLIH "%C xpresupuestobNN T&%Cxdestino_forzadobN T% T%CC T%CN T%CC! TG+( ve_pedido% T T  T C$ T C T CT CX T T T T T T T T T T T T T T T T7TC C 66T!CXT"CX T# T$T%N T& T' T( T) T*T+ T,C XT-C(XT.NT/C(X T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T: T; T< T=T>C(X T?-T@CXCC d 6T%FG((codins ECbieauxcodF TTCrT(%Ctempcomp.descramplbM >"%C tempcomp.txtbM9 >%SdFG((codigoETCr!CmedidascodigoTrT!CmedidascodigoTrTFG((codigo ECX TT  T!CmedidascodigoTrT!CmedidascodigoTrT%SSFG((codigoETCr j TF > > > >T S FG((codigo,%g( ECXF%Cr]TCr 'TCC C C8>8>CS S 6L>CS S 6)>CS 6%"TCCTy% S /C) S  !? S   9 >%C[ >%C} >TC6F)T C  F(% C   TC6;>Cd TCd T%%d  > #>C d  T #TC6%$>C TTC6%Cartxcli sQartxcliF G((idE  TC4O%=CrCCartxcli.descr_adibC6 vpedido6TCCC 6DH% C   Ctempcomp.markupbN F% T T %]FTCC 156C6TC 156$TC 266 t TTCT%  TC6TC+aFE~C   %H!F%>{Gz? >{Gz?T{Gz?T{Gz?%! T< T=@T C= MediaC= Alta Normal66 T >5T CCC 156C6T T  T  T T TTCd TTCd T#TCd T'TCd T+TCd T,TCCC 2666,TCCC 3866FTCC 476TCC :;6 T: T; TlistadosTC0% %C F>! T>ZZZZZZT" PresupuestoT#PSCCZT$C ZT%S T&$ T'% T(T) T*T+C ZT,S#T-CC999,999,999,999_*T.PS CC999,999,999,999_%/C -F >! T T0 T1 T2T3C45\ST6CC47\g#T8. -  - hT8C89&T:CCC'+;8pdfT04<T14= T2"T>C ?6T2C26FG((codinsFG-( T@:TA-!empty(cod_ins+dcodatrbul) or !empty(cpbttxt){Blistados0>21#Aaaaaa-38-tempcomp)G+(listadosdey_funcvpedido7%3%C D   5EFGH TE!TFC@z 9999,999,999_TGSTH C86 G-IJ TJ-$Ksys_pdf_archivado'J%J= %C:0 WBlistados021#Aaaaaa-a8- TMa  TM-)L:+'&CNO%M9 :BUP XPRESUPUESTOXSALDOSXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNOTREALTIME VE_PEDIDOXFILTROXTIPOPEDXFECEMIXDTXDTMXCOD_CLIXSUCXMOTIVOXPLANT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_DESC_CONST_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XLISTAXSUCFACLOCALESVE_024P_SUC XVENDEDOR XCENCOSFACXMONEDAXCAMBIOXDIVISAS XREVISIONXREVISION_ACTUALXCUITXIVACATXRG5329XTIPODOC XDOCUMENTO XOTRO_CLIXCOFINXNOMBREXCPBTTXTT_DESCOMT_IVA T_IVA_RG5329T_DTO672 TX_DESCOMTX_IVA TX_DTO672 TX_IVA_RG5329ZIIBBTXTT_FINALTX_FINALXVALIDEZ XPRIORIDAD XREFERENCIA XDESCRVARXFLETE IIBB_PROVLEER_PRESUPUESTOXBONIF TXT_BONIF ZPRESUPUESTOLISTADOSDEY_FUNCVPEDIDO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOXOBJ_DATOS_EMPRESA DATOS_EMPRESAZEMPWEBWEB ZEMPEMAILEMAIL ZEMPTXTCPBTTXTCPBT ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUACLIENTESCOD_CLITARJETAPAISPAISESCODIGO ZCLINOMBRENOMBRE ZCLIDIRECCION DOMICILIO ZCLIZIPCIUDADCOD_ZIPCIUDAD ZCLIPROVPAISPROVINC PROVINCIADESCR ZCLITELEFONOPHONOZCLIPAIS ZCLIDOMALTDOMALT ZSUCNOMBRESUCSUCURSAL ZSUCURSALFLETESCOD_FLEZFLETE ZFLENOMBREZFLETIPOTIPOZIVACATZRG5329 ZCLICODIGOCONDCOBRPLAN ZCONDICIONZPLAN INSCRIPCIOZCUIT FN_TIPODOCZRUTRUTZCUITTXTZLISTACFG_LISLISTAZCATIVA OLOCALIZACION!IVA_CATEGORIA_CLIENTES_TEXTO_CPBTXIVAINCIVA_DISCRIMINADOIVAINCAGENTECOD_AGECODAGE ZVENNOMBRE ZVENCODIGOZVENMAIL ZCENCOSFAC ZREVISIONZDESCUENTOSTXTXDIV ZENDIVISASZCAMBIOZMONEDA ZMONEDATXT MM_MONEDAZMONEDASIMBOLOZFECHAZDTZDTM ZFECHAHORANUMFAC XZONAFRANCA ZONAFRANCATEMPCOMP ZLOTES_HAYZLITROS ZDECIMALES ZSUBTOTAL XSUBTOTALACCIVACOD_INSDESC_INSPRECDESCCOS_LIFOP_DESLINDES_INSOBIEDATA_CODIGO_VACIOBIENESCODINSXFACTORFACTOR XBIEDESCRXCODALTCODALT1 DESCRAMPLBIEAUXTXTBULTOSBULXBDESCR MEDAUXCODXMEDAUXMEDIDAS XMEDAUXABRABREVMEDCODXMEDIDA XMEDIDAABRSTOCKATRCODALT ATRIBUTOSATRIBUTOXADESCRMEDIDAMEDAUX MEDIDAABR MEDAUXABRLOTESXDESCR UBICACIONBULDESCATRDESCSUBGRUPO CANTXBULTLINEA RECEPCION P_VE_DESCRVARDESCRVAR EXPORTACION XENTPROVINCIA DCODATRBUL MO_TOT_COMTOT_COM XES_CUENTA_2P_CODEMPP_DOSP_UNO SYS_DOSCENFC_2_CON_IVA_INC OLDSINIVAIVAPER COS_LIFO2ARTXCLIIDXFOUND_ARTXCLIALTCODALTATRALTBUL DESCR_ADIREEMPLAZOS_ARTXCLI DECIMALESP_PD_VALORIZACIONXPERDESCXIVADESCXDIFIVA XSIGNOIVAXACCAPROB ADICEXPORTZVALIDEZ ZPRIORIDAD ZDPRIORIDAD ZREFERENCIA ZDESCUENTOS ZDESCPOR1 ZDESCPOR2 ZDESCPOR3 ZDESCPOR4 ZDESCPOR5 ZDESCUENTO1P_VREDON ZDESCUENTO2 ZDESCUENTO3 ZDESCUENTO4 ZDESCUENTO5ZIVA ZIVA_RG5329ZIBPERZFINAL ZFINAL_PESOS ZFINAL_MO ZIMPORTETXTLETRASZTXTCPBTP_VE_PRESUP_NOTASCPBTTXTZTIPOCOMPROBANTE XIDARCHIVOZID12ZCAUSA ZIDCOMPROBZIDCAUSAZCAIZCAIVTOZCODIGO_DE_BARRAS_AUTOIMPRESOR ZIDCPBTNUM ZIDCPBTCAUZCOMPROBANTENUMERO ZCOMPROBANTEP_PRESUP_NOTAS XFORMULARIOXCOPIASXDRIVER XCOPIAPDFCONSCOPIAPDF XMAILTIPOMAILTIPO XARCHIVOPDFLIMPIAR_FILE_NAMEXARCHIVOPDF_FULLPDF_PATHPREFORM PRECOPIASXDESTINOVE_022ZCOPIA XFILTRODATOSIMPRIMIR_FORMULARIOP_VE_ENVIAR_POR_MAILP_VE_ENVIAR_POR_MAIL_Z XSUCURSALXNUMEROFXCAUSAREALTIMEENVIAR_POR_MAILXOK_GUARDAR_PDF PDF_SE_GUARDASYS_PDF_ARCHIVADOXARCHIVOPDF_TMP PUB_INDEX!P_PDF_REVISION_GUARDAR_COMPRIMIDO&  T TaF~%h TT % T%Cepresupnumero%F >BU XPRESUPUESTOXESTADO XTMP_ESTADODPRESUPNUMEROUSADOCANTIDADEPRESUPESTADO#%Ctmp_clonar_epresup5FQ#%Ctmp_clonar_dpresupgFQ$%Ctmp_clonar_itm_descFQ#%Ctmp_clonar_iva_venFQ$%Ctmp_clonar_iibbprovFQ=oepresup1\tmp\tmp_clonar_epresup%CNY=odpresup1\tmp\tmp_clonar_dpresupwoitm_descC C ZC ZSCZC ZSC'Z1\tmp\tmp_clonar_itm_descKoiva_ven C ZS1\tmp\tmp_clonar_iva_venMoiibbprov C ZS1\tmp\tmp_clonar_iibbprov T T TaWtrsacepresupdpresupitm_desciva_veniibbprov% >TVe_presupuesto.prg!TPresupuesto - Clonar Ttrsac Ta%TC% T  T (Ttrsac+%  -=C ZSC ZS}C Se ha registrado el presupuesto CC@z 999,999,999,999_C )Recuerde que debe actualizar los precios. T U T 3C&No se ha encontrado el presupuesto !!!#%Ctmp_clonar_epresupFQ#%Ctmp_clonar_dpresupFQ$%Ctmp_clonar_itm_desc-FQ#%Ctmp_clonar_iva_ven_FQ$%Ctmp_clonar_iibbprovFQBU XPRESUPUESTO2TMP_CLONAR_EPRESUPTMP_CLONAR_DPRESUPTMP_CLONAR_ITM_DESCTMP_CLONAR_IVA_VENTMP_CLONAR_IIBBPROVEPRESUPNUMEROP_LOCALDPRESUPITM_DESCCOMPROBCAUSAITEMIVA_VENIIBBPROV XPRESUPUESTOAAA XRESULTADOLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANTRANSACCION_CLONACIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXMENSAJETTS_IDh T CTM>C$  - C$> ">C ZS">C ZS">C ZSF&\tmp\tmp_clonar_epresupF&\tmp\tmp_clonar_dpresupF'\tmp\tmp_clonar_itm_descF&\tmp\tmp_clonar_iva_venF'\tmp\tmp_clonar_iibbprovu C ZSClonacin del presupuesto CCZve_presupuesto.prgC ZS BU XPRESUPUESTO2 XPRESUPUESTONUEVO_NUMERO_DE_PRESUPUESTOXVENCTMP_CLONAR_EPRESUPVENCFECHANUMEROESTADOREVISIONCERRADOUSR PUB_INDEXTMP_CLONAR_DPRESUPUSADOALLTMP_CLONAR_ITM_DESCCOMPROBCAUSATMP_CLONAR_IVA_VENTMP_CLONAR_IIBBPROVEPRESUPP_LOCALDPRESUPITM_DESCIVA_VENIIBBPROVUSER_LOG 5 T%Cccclie IQccclie%Cccvent wQccvent TC DatasessionvTCprocv TT T  T  T  T  T  T T T T T T T T TT T T Tj     aS G((set procedure to &xsetprocs additive 1%    ve_creditoBUXIMPORTEXFORZADO XAP_IMPORTECCCLIECCVENTXDS XSETPROCS AP_CREDITOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREF XVENCIDO1 XVENCIDO2XTEXTO_CREDITO VE_AP_CREDITOP_VE_PRESUP_CREDITO VE_CREDITOwizard open_files registrar&nuevo_numero_de_presupuesto) transaccion)leer_presupuesto7 inicializar}Nimprimir9Uestado_del_presupuestoуclonar_presupuestoVtransaccion_clonaciondevaluar_creditos"1BA!AAqAAr"ARr1s1csqQA1bA2S12ADASAA22Ar2QAQAAA22RBAA2FBAAA2s1s1As1Aqa"1AA$B41A22AAAABBBABAqAAB21r12A12A1r1Aq4rAAqACqqaaAA1A1AAA!AAAAAAA!A!A!A1ArAAA1A!AAA1A!AAArAAAAA1AAA1A!A!AAA!AB6rx22AABA2s"AB2r2"Bsr!AtApB NbCs1Q1aA32r$6!AA2ArqAuaAQAA!aAAAb2A$QqQABt1QAB"APR#AA#ABSAARc1AB#A"qA1AqrQABrAQrqA3"!!!!a6!AAbQaAA2qAAB2%AbA2ArArArA23rr1#B1aATqA!A!fAbqA!bASrAdqAaS2qsrAbqs!AA"AArq1"rArq1!ArrAr!qAj!APBAACrt23AC2A3aA1Ar"A aFrB2AbBA"rQ2AArAB2AAABS1qq2(qQ2AAq"1"2qQA2!b!vrr5AuC!qAAAD3qrr1AAAbAaqAB2q4qAA1qAAAqAA1qAAAqAA"rrx2"2AADA1A2qAA1qAAAqAA1qAAAqAAB3qr%%%rararqrarqT2r!A!A111!AB1I'$)#\;)1>2E6m6Z7%r7BL47_Lhn  nw@wg  ba x}G %x 3|:KU4 %- :F>5  T TT  T F *~C S  (C  BUXIDLLENAR_COL_AREASIGLOTESXITAREASIGCANALLXTIPOXCAUXNUMXFECXTIPTEMPCOMPCOD_INSLOTES RECEPCIONPROCESAR_LOTESITEM4   T %> -CZCZ(F(~CZCZ FG((despacho.ECZ%C4%Z%LTHXH >/Cc >/Cc 2H>,Cc V %TV comprom  %}jc !" %C !F ~FW-CZCZ7# %C4. Z lotesxit# B U$XTIPOXIDXITMXCAUXNUMXFECXTIPXCANXFILTROXIDCOM XCAN_LIBREXMSGFLGINCOMPROMIDITMZLOTESXITDESPACHOCODBULATRDEPDSPAREASIGCANP_LOTESXIT_VERSION ACT_STKXDEPNUEVO_COMPROMISOACTUALIZAR_COM_STKCAUNUMFECTIPDEPOSITO}4%2BFG((codigoE>BU XCODXBULXATRXDEPXDSPXCANSTKXDEPCODIGOCANT_COM74    F T CO TTFG((codigo E!TCCDFTC    %%C?T.t. hTcomprom.dep=xdeposselect comprom.*, tccvent.pedido from comprom with (BUFFERING=.T.), tccvent with (BUFFERING=.T.) where comprom.id=tccvent.id .and. tccvent.est_desp<=1 .and. comprom.cod+comprom.bul+comprom.atr+comprom.dep+comprom.dsp=xidcom .and. comprom.id#xid .and. &xfiltro order by tccvent.pedido into cursor tmp_otros %C tmp_otrosN_F ~TCF%[c C    TT!%CpT.t. Tdeposito=xdeposselect * from stkxdep with (BUFFERING=.T.) where codigo+bul+atr = xidcom2 .and. &xfiltro .and. cantidad-cant_com>0 into cursor tmp_dispon T" ~T#C$$"F%#L$%#    $&T""#%"!%"sTCCC  C6CC  C6* : No se pudo asignar lotes/despachos (1).!%!%C !%[sTCCC  C6CC  C6* : No se pudo asignar lotes/despachos (2). sTCCC  C6CC  C6* : No se pudo asignar lotes/despachos (3).  F # BU'XMSGXTABLAXITMXCODXBULXATRXDEPXDSPXCANXCAUXNUMXFECXTIPXREG XCAN_LIBREXIDCOMSTKXDEPCODIGOCANTIDADCANT_COMACTUALIZAR_COM_STKXIDXDEPOSXFILTRO TMP_OTROSCANIDDEPCAUNUMFECTIPDSPXIDCOM2 XCAN_TOMADA XCAN_LIBRE2 TMP_DISPONDEPOSITODESPACHO;4     Kproc_stk     "C BUXIDXCODXBULXATRXDEPXCANXCAUXNUMXFECXITMXTIPXDSPXSEDXSEHREGCOMPROC_STK ACT_STKXDEP%Clotesxi2 F 2FQF ~FG((despacho1ECZ %C4>  F<  ^( F_ > > FQ&olotesxit tmp_cur_lot F T ~ TCOT TFG((~ >C  D% T  %#~  TC F>T%!% ,CError en llenar_col_areasig !!! F #FG((BULOTESXI2 XLOTESXIT2LOTES2LOTESXITDESPACHOITMCODBULATRDEPOSITOORIGINALCANAAADISTINCT TMP_CUR_LOTXITMXACCXREGAREASIGXACC2P_DEVMENSAJEprocesar0procesar_lotes act_stkxdep}nuevo_compromisoAactualizar_com_stkllenar_col_areasig1qqqA|31rBB2rUts2t1213AB2tiBB4BA!AACBtqtBA32AArB3ut12ArQ2 1TA 2B2BAB12AAB2BAB!AA22A2ABC3#B2qArrrrrQBBrAetraCerRAB22c2AABABuAqaB1r2MW))+,t6%{}\[*C"m a Ta TaT\data\1T291 BU DEY_FUNC2P_DEV P_SUSPENDP_SERVERP_SYSTEMXCOD_CLIFORMULARIO_DEUDAM /sys_procesandoAnalizando deuda TC$%Cclientes Qclientes% Cclientescodcli%Cccclie Qccclie%Cven_oper $Qven_oper%Cccclie2KF Q%C ven_oper2tFQ% %<%Cccclie2 0Q\data\CCZ\ccclie %C ven_oper2 82Q\data\CCZ \ven_oper %%Cccclie2 0Q\data\CCZ\ccclie %C ven_oper2 2Q\data\CCZ \ven_oper  T C "%Ctmp_saldo_clienteaFQDoccclieCVFCCcNClCdNDWCRRCBCAAJ-CLASCrRE6666666 CC QCQAQQQ C P tmp_saldo_cliente1%C q1_sal_chqF!Q^oven_oper"C#Q#$  %1 "" q1_sal_chq o q1_sal_chqQ&ven_operQ'CCHQ CC&"ZQC'(QC XQ Q')Q'$Q'*QZQQQC&" ZC&#ZC'" ZC'#Z&"tmp_saldo_cliente1c?otmp_saldo_cliente1ctmp_saldo_cliente1Ǽq1%C q1_sal_chqF!Q%Cq2F,Q%Cq3F-Q%Z Eoccclie2CVFCCcNClCdNDWCRRCBCAAJ-CLASCrRE6666666 CC QCQAQQQ C P tmp_saldo_cliente2%C q1_sal_chqeF!Q_o ven_oper2"C#Q#$  %1 "" q1_sal_chqo q1_sal_chqQ& ven_oper2Q'CCHQ CC&"ZQC'(QC XQ Q')Q'$Q'*QZQQQC&" ZC&#ZC'" ZC'#Z&"tmp_saldo_cliente2c?otmp_saldo_cliente2ctmp_saldo_cliente2Ǽq2Eoq2q110\tmp\tmp_saldo_cliente  9oq110\tmp\tmp_saldo_cliente1 T1 T ~+ %V  TCCC$DDT11>1K(34CC  6CC  6CC 6CC 6CC  C$ 6CC  C$ 6#)5sys_procesandoBU6XCOD_CLIXSALDO1XSALDO2 XVALORES1 XVALORES2XDIAS SP_MENSAJESYS_PROCESANDOXDATECLIENTESCOD_CLICCCLIEVEN_OPERCCCLIE2 VEN_OPER2P_DOSP_CODEMPP_UNOP_SYSTEMXHAY_DOSTMP_SALDO_CLIENTECAUSACOMPROBCPBTDESCRFECHAVENCIMPORTEORDEMPSALDOCANCELTMP_SALDO_CLIENTE1 Q1_SAL_CHQNUMEROSUBNUM DIF_VALORTIPOQ1VODES_VALFEC_RECCAJ_PROTMP_SALDO_CLIENTE1CQ2Q3TMP_SALDO_CLIENTE2TMP_SALDO_CLIENTE2CP_LOCALXSALDOINXVENC1XVENC2SP_OCULTAR_DEFINITIVAMENTE4 T T T T T T've_deuda F  ve_deuda2F QBU XCOD_CLIXSALDO1XSALDO2 XVALORES1 XVALORES2XVENC1XVENC2 OBTENER_SALDOVE_DEUDAXREGTMP_SALDO_CLIENTE VE_DEUDA2 obtener_saldoformulario_deudaGAQc2D3rAAaA!AAAqAAqAA21A!A1A!ABAAr$qAAKqAAqAA6qAA1qAAYqAAVBrAARB3qtrrrAB1 0mML %I~W<d<7estadoJ#CPreparando datos... C-CControlando perodo actual... C%C TMPGRAGIPFQ"CSeparando datos...TCoAGIPpQ XclientesQ XproveedoQ   C CXQ C CXQCCXQC CXQ-Q1Q!i1 tmpgrAGIPM& & >aCC$5 T- <sys_padron_AGIPFQ%]UOESTAGIPESTADO SET_AND_SHOW OPEN_FILESCONTROLAR_PADRON_ACTUAL TMPGRAGIPXBORRARODEYFUNCNEWFILE_LOCAL_TMPDISTINCTIBPRCOD_PRONOMBREPROVEEDOCLCOD_CLICLIENTEACTUALAGIPPCLIENTESCUIT INSCRIPCIOFVHASTATXTFILFPUBFORFVDESDE XRECARGARRELEASESYS_PADRON_AGIP'TCDeyFunc Dey_Func2.prgCClientesCProveedo CAGIPp\UOTDF CHK_OPENEDP_SYSTEM  CestadoJ&CPreparando datosCa TC Suspendo?a T C F ( -%CTMPAGIPF QFQ "i1 tmpactAGIPC "i1 tmpactAGIPC "i1 tmpactAGIPC  CImportando datosCa9TC Estado_Setssys_clases_herramientas.prg G;(,ѿ; C C,CFormateando datos importadosCa>C=/C\/CRC=/C\/CRC=/C\/CRC=-C\-CR9C)Separando clientes y proveedores actualesCaF:C*Formateando datos para futuras referenciasCa"i1 tmpactAGIPD"i1 tmpactAGIPD"i1 tmpactAGIPD&  C?C/Guardando padrn leido para futuras referencias%CZT+TAGIPCCCiZCCCZTF(\.dbfQUXFILEXFECHA OPEN_FILESESTADOOEST SET_AND_SHOWODEYFUNCDEVENTSXMSGSYS_MOSTRAR_SCREENXBORRARNEWFILE_LOCAL_TMPAGIPPTMPAGIP TMPACTAGIPFPUBFVDESDEFVHASTAAVANCEOESFORCUIT POP_POINTSEPALLAGREGAR_VALORES_NUEVOS XTRIMESTREP_SYSTEM~+TAGIPCCCiZCCCZTCAgregarTC T T%C T)TEl CUIT  es invlidoB%CAGIPP Q \AGIPpF ^J@oAGIPp  C  <)tmpAGIP% F#) ^JQB"%C \.dbf0%CTMPMAGIPFQ$Q \.dbfCotmpmAGIP  C  <)tmpAGIP% F ^J#)F  _JFQB  T?T2No se encontr el CUIT en el padrn de alto riesgoB w TnTWNo existe el padrn de Percepciones y Retenciones de Alto Riesgo de AGIP para la fecha C*BUXERRXMSGXCUITXFECHAOOBJ XTRIMESTRESYS_M OLOCALIZACION CUIT_VALIDARP_SYSTEMAGIPPTOPCUITFVDESDEFVHASTAFPUBTMPAGIPTMPMAGIPv %C/ TC$+TAGIPCCCiZCCCZT#%C\.dbf0 =C0No existe datos de AGIP para el trimestre actualB-%C TMPACTAGIPFQ%Q\.dbf C%C TMPACTAGIPHFQ%CtmpAGIPoFQUXFECHAXCUIT XTRIMESTREP_SYSTEMMENSAJE TMPACTAGIPAGREGAR_VALORES_NUEVOSTMPAGIPK7oproveedoclientesTMPINSgoTMPINSQX TMPACTAGIPQ C C  TMPAGIPK]oTMPAGIPKQ XAGIPpQ    C TMPINGF ~GF -   rAGIPpoTMPING%oAGIPp tmpib2F rAGIPpotmpib2%CtmpinsFQ%CTMPAGIPKF Q%Ctmpib2FQ%CTMPINGDFQUXCUIT INSCRIPCIOCLIENTESPROVEEDOTMPINSIBTI TMPACTAGIPCUITTMPAGIPKIBKAGIPPIBPFPUBTMPINGFORFVDESDEFVHASTATMPIB2ALL open_filesagregar_padrondobtener_padron4 controlar_padron_actualRAgregar_Valores_nuevos+tq!2qAA# sqrrAqA2rq33bsqqAA!!!r" r!!!ArrA4qqAAArAr!qQAAA"qAAA5"qQqQqAAAAAA2qA1qAqAAQqAAqAA3qvvrqARrQrqAAqAAqqAAqqAA1u5$= >V [6%ʩlTdo<7estadoJ#CPreparando datos... C-CControlando perodo actual... C%C TMPGRAGIPFQ"CSeparando datos...TCoAGIPSPQ XclientesQ XproveedoQ   C CXQ C CXQCCXQC CXQ-Q1Q!i1 tmpgrAGIPM& & >aCC$5 T- <!sys_padron_AGIP_superadosFQ%hUOESTAGIPESTADO SET_AND_SHOW OPEN_FILESCONTROLAR_PADRON_ACTUAL TMPGRAGIPXBORRARODEYFUNCNEWFILE_LOCAL_TMPDISTINCTIBPRCOD_PRONOMBREPROVEEDOCLCOD_CLICLIENTEACTUALAGIPSPCLIENTESCUIT INSCRIPCIOFVHASTATXTFILFPUBFORFVDESDE XRECARGARRELEASESYS_PADRON_AGIP_SUPERADOS'TCDeyFunc Dey_Func2.prgCClientesCProveedo!CAGIPSp\UOTDF CHK_OPENEDP_SYSTEM  CestadoJ&CPreparando datosCa TC Suspendo?a T C F ( -%CTMPAGIPF QFQ "i1 tmpactAGIPC "i1 tmpactAGIPC "i1 tmpactAGIPC  CImportando datosCa9TC Estado_Setssys_clases_herramientas.prg G;(,ѿ; C,CFormateando datos importadosCa>C=/C\/CRC=/C\/CRC=/C\/CRC=-C\-CR9C)Separando clientes y proveedores actualesCaF:C*Formateando datos para futuras referenciasCa"i1 tmpactAGIPD"i1 tmpactAGIPD"i1 tmpactAGIPD&  C?C/Guardando padrn leido para futuras referencias%C`T&TAGIPSCCCiZCCCHZF(\.dbfQUXFILEXFECHA OPEN_FILESESTADOOEST SET_AND_SHOWODEYFUNCDEVENTSXMSGSYS_MOSTRAR_SCREENXBORRARNEWFILE_LOCAL_TMPAGIPSPTMPAGIP TMPACTAGIPFPUBFVDESDEFVHASTAAVANCEOES POP_POINTSEPINPERCEPCUITALLAGREGAR_VALORES_NUEVOSXMESP_SYSTEMd&TAGIPSCCCiZCCCHZTC T T%C T)TEl CUIT  es invlidoB%CAGIPSP Q\AGIPSPF ^JAoAGIPSP  C <)tmpAGIP% zF#) ^JQB"%C\.dbf0%CTMPMAGIPFQ$Q\.dbfCotmpmAGIP  C <)tmpAGIP% zF ^J#)F  _JFQB  TPTCNo se encontr el CUIT en el padrn de Magnitudes Superadas de AGIPB ] TYTBNo existe el padrn de Magnitudes Superadas de AGIP para la fecha C*BUXERRXMSGXCUITXFECHAOOBJXMES OLOCALIZACION CUIT_VALIDARP_SYSTEMAGIPSPTOPCUITFVDESDEFVHASTAFPUBTMPAGIPTMPMAGIP %C/ TC$&TAGIPSCCCiZCCCHZ#%C\.dbf0 QC>No existe datos de AGIP de Magnitudes Superadas para la fecha C*B-%C TMPACTAGIPFQ%Q\.dbf C%C TMPACTAGIPWFQ%CtmpAGIP~FQUXFECHAXCUITXMESP_SYSTEMMENSAJE TMPACTAGIPAGREGAR_VALORES_NUEVOSTMPAGIPO7oproveedoclientesTMPINSgoTMPINSQX TMPACTAGIPQ C C  TMPAGIPK^oTMPAGIPKQ XAGIPSpQ    C TMPINGF ~HF -   rAGIPSpoTMPING&oAGIPSp tmpib2F rAGIPSpotmpib2%CtmpinsFQ%CTMPAGIPKF Q%Ctmpib2"FQ%CTMPINGHFQUXCUIT INSCRIPCIOCLIENTESPROVEEDOTMPINSIBTI TMPACTAGIPCUITTMPAGIPKIBKAGIPSPIBPFPUBTMPINGFORFVDESDEFVHASTATMPIB2ALL open_filesagregar_padron{obtener_padronN controlar_padron_actualFAgregar_Valores_nuevos(qq!2qAA# sqrAqA2qq33brqqAA!!!q"% r!!!ArarA4qqaAAAr!qQAAA"qAAA5"qQqQqAAAAAA3qAb1qAqAAQqAAqAA3qvvrqAbrQrqAAqAAqqAAqqAA1$2$K& :VM ,[%-ylT%CC$%k%CC$H BTCCC$i$ gTCCC$iCC$H$ TC$CC$%<7estadoJ#CPreparando datos... C-CControlando perodo actual... C%C TMPGRAGIP7FQ"CSeparando datos...TC oagipQ XclientesQ XproveedoQ   C CXQ C CXQCCXQCCXQ-Q1Q!i1 tmpgrAGIPM& & >aCC$5 T- <sys_padron_AGIP_nuevoFQ%U XFECHA_PADRONOESTAGIPESTADO SET_AND_SHOW OPEN_FILESCONTROLAR_PADRON_ACTUAL TMPGRAGIPXBORRARODEYFUNCNEWFILE_LOCAL_TMPDISTINCTIBPRCOD_PRONOMBREPROVEEDOCLCOD_CLICLIENTEACTUALAGIPCLIENTESCUIT INSCRIPCIOFVHASTATXTFILFPUBFORFVDESDE XRECARGARRELEASESYS_PADRON_AGIP_NUEVO'TCDeyFunc Dey_Func2.prgCClientesCProveedoCAGIP\UOTDF CHK_OPENEDP_SYSTEMp  CestadoJ&CPreparando datosCa TCImportar Padrna T C F ( -%CTMPAGIPF QFQ "i1 tmpactAGIPC "i1 tmpactAGIPC "i1 tmpactAGIPC  CImportando datosCa9TC Estado_Setssys_clases_herramientas.prg G;(,ѿ; C,CFormateando datos importadosCa>C=/C\/CRC=/C\/CRC=/C\/CRC=-C\-CR9C)Separando clientes y proveedores actualesCaF:C*Formateando datos para futuras referenciasCa"i1 tmpactAGIPD"i1 tmpactAGIPD"i1 tmpactAGIPD&  C?C/Guardando padrn leido para futuras referenciasTOT\agip\padron_agip_CCCxColabL6.dbfF%C0RFQ ooldC%   T " TQF>  (FQUXFILEXCOLA OPEN_FILESESTADOOEST SET_AND_SHOWODEYFUNCDEVENTSXMSGSYS_MOSTRAR_SCREENXBORRARNEWFILE_LOCAL_TMPAGIPTMPAGIP TMPACTAGIPFPUBFVDESDEFVHASTAAVANCEOES POP_POINTSEPCUITALLAGREGAR_VALORES_NUEVOSXFECHAXPADRONP_SYSTEMOLD XARR_VERSIONVERXVERSION+TAGIPCCCiZCCCZTTC T T%C T)TEl CUIT  es invlidoB%Cagip Q\agipF ^J?oagip  C <)tmpAGIP% yF#) ^JQB?%C\agip\padron_agip_CC%.dbf0 %CTMPMAGIPFQAQ\agip\padron_agip_CC%.dbfCotmpmAGIP  C <)tmpAGIP% F ^J#)F  _JFQB  T8T+No se encontr el CUIT en el padrn de AGIPB  T_THNo existe el padrn de Percepciones y Retenciones de AGIP para la fecha C*BUXERRXMSGXCUITXFECHAOOBJ XTRIMESTRE OLOCALIZACION CUIT_VALIDARP_SYSTEMAGIPTOPCUITFVDESDEFVHASTAFPUBTMPAGIPTMPMAGIPVER %C/ TC$+TAGIPCCCiZCCCZT#%C\.dbf0 =C0No existe datos de AGIP para el trimestre actualB-%C TMPACTAGIPFQ?%C\agip\padron_agip_CC%.dbf0~BQ\agip\padron_agip_CC%.dbf C%C TMPACTAGIPFQ%CtmpAGIPFQUXFECHAXCUIT XTRIMESTREP_SYSTEMMENSAJE TMPACTAGIPAGREGAR_VALORES_NUEVOSTMPAGIPG7oproveedoclientesTMPINSgoTMPINSQX TMPACTAGIPQ C C  TMPAGIPK\oTMPAGIPKQ XagipQ    C TMPINGF ~FF -   ragipoTMPING$oagip tmpib2F ragipotmpib2%CtmpinsFQ%CTMPAGIPKF Q%Ctmpib2FQ%CTMPING@FQUXCUIT INSCRIPCIOCLIENTESPROVEEDOTMPINSIBTI TMPACTAGIPCUITTMPAGIPKIBKAGIPIBPFPUBTMPINGFORFVDESDEFVHASTATMPIB2ALL open_filesfagregar_padron obtener_padron controlar_padron_actualAgregar_Valores_nuevosAAAQArq!2qAA# sqrAqA2rq3s3bqqAA!!!r" r!!!r!Ar!BrA4qqAAbAr!qQAAAqAA5"qQqQqAAAAAA3qA1qAqAA"BqAAqAA3qyvrqABrQrqAAqAAqqAAqqAA1'R<-AElh(X:i%ZV+EU=%Ccons &QconsF#)BUCONS4 CTC%[ T T  TCT0Balance cerrado. La fecha debe ser posterior al C* BUXERRXMSGXFECHA CONS_INITXFSYS_CIERRE_BALANCE cons_init0vld_cierre_balance{1aAqQA2r21A2bq %K=?\PU! ges CBUGESABRIR_TABLAS_FIJAS > > >a > >- >a > >d>CX > - > a > > C XBU TE_001TE_002TE_003TE_004TE_005TE_006TE_007TE_008TE_009TE_010TE_011TE_012TE_013I <7 TlistadosBUARR_IVA MAXARR_IVAIVALISTADOSP%Ccuentas ,Qcuentas%CCHgDC7Slo debe haber una cuenta de Diferencias de Cambio !!!B- !%CC\gOCBSlo debe haber una cuenta de Diferencias de Cambio No Pagadas !!!B- %Ccons KQconsF#)%%CCLgSCFSlo debe haber una cuenta de Retencin de Ganancias a Proveedores !!!B- FG((cuentaECL%C4! ~LC?La cuenta de Retencin de Ganancias a Proveedores no existe !!!B-%4% 0%CCgg"FC9Debe haber una cuenta de Retencin de Ingresos Brutos !!!B- , EBaBU CUENTASATRCANMENSAJECONS HAYRET_GANCUENTAP_LOCALIZACIONIIBB_BA IIBB_CABA open_files, inicializarnvariables_publicasvalidar_configuracion1RD2B3q1B31AAqqDAcArQ&1qqqAAB50aqBDqAC1 9Y 0-;%a U 5 ~+TU%CBIENES 8FQbienesdescins%CBULTOS iF Qbultos%CATRIBUTO FQatributoBUBIENESDESCINSBULTOSATRIBUTO%CBIENES -F Qbienes%Cbultos ^F Qbultos%Catributo FQatributo%CSTOCK FQstockcodigo%CSTKXDEP FQstkxdep%CSTKXSER 2FQstkxser%CDESPACHO oFQ \DESPACHO%CMOVSTOCK QmovstockBU BIENESBULTOSATRIBUTOSTOCKCODIGOSTKXDEPSTKXSERP_PRIVMOVSTOCK %CPROVEEDO ;FQproveedonombre%CTCOMPRAS xFQ \TCOMPRAS%CTCCCOMP FQtcccomptcccord%CCCPROV FQ\ccprovfilesBUPROVEEDONOMBREP_PRIVTCCCOMPTCCCORDOPEN_FILES_STOCKFILES*%CCCCOMP 7FQcccompcccord%CCOMPRAS uFQCOMPRAScom_ord%CPROVEEDO FQproveedonombre%CPER_PROV Qper_prov%CCCPROV FQ\ccprovBUCCCOMPCCCORDCOMPRASCOM_ORDPROVEEDONOMBREPER_PROVP_PRIVt%CCONS )F Qcons%CIDX04 iFQ\idx04idx04BUCONSP_COMMONIDX04%CCLIENTES 8Qclientescodcli%CBANCOS x$Q\bancoscodigo%CVEN_OPER Qven_operven_ope%Ccuentas Qcuentascuenta%Ccheques *Qchequesche_ven%Cchq RQchq%Cccclie Qccclie%Crec_tal Qrec_talBU CLIENTESCODCLIP_SYSTEMCODIGOVEN_OPERVEN_OPECUENTASCUENTACHEQUESCHE_VENCHQCCCLIEREC_TAL`%CBANCOS <$Q\bancoscodigo%CPROVEEDO xQproveedocodpro%CCOM_OPER Qcom_operoper%Cccprov Qccprov%Ccuentas Qcuentascuenta%Ccheques UQchequesche_venBU P_SYSTEMCODIGOPROVEEDOCODPROCOM_OPEROPERCCPROVCUENTASCUENTACHEQUESCHE_VENopen_files_articulos0open_files_stockopen_files_orden_de_compraopen_files_compras\open_files_entorno_operacionopen_files_cobranzagopen_files_pago1AAAB3AAAraAAAqAAAB2AqAAQAB2qAAAAAQAB2bArAB5AAAAAARA!A1AB3AAAA!AAAB10U@CtZXvb|R %*b.+rX"/#4%FTCHF G((cuenta E T  T -T C XTC X%Ccliaux QcliauxF TCO)TC  6 T%~  V .%Ccliauxcomprob}T!F #F #TT !$T"C!SN6 T# T$%ve_comprobante$ T'+aF%(T)fact$ccfact=&kccfact T *T+*%T,cT-N. de Crdito : T,dT- N. de Dbito :  1%T.cred$cccred = &kcccred T /T+/T,cT-N. de Crdito : -T0debi$ccdebi = &kccdebi T 1T+1T,dT- N. de Dbito : >T2$C00CCZR-C00000000CC ZRT'C2,3H '! '%(T4 numfac.fact$>4* %TT4 numfac.cred$>4/ T4 numfac.debi$>41 ' BF T T5T+C  ZT6C ZT+CC+VAT4CCC5@z 99_VAUT+C5C C+>X,$C0C4>Q4-C0C+>Q6+T6CC6VAUT6C5C C6>X,$C0C4>Q4-C0C6>Q66T7CCC5@z 99_VAAT7C5C C+>X$C0C7>Q7-6%+ 000-00000000pT+C X%6 000-00000000T6C X!T CC XCCC  ZVAR!TCC XCCC ZVAR T8T9CC VAT4CCC5@z 99_VAUT9C5C C9>X,$C0C4>Q4-C0C9>Q69 T 9TCCVAUTC5C C>X,$C0C4>Q4-C0C>Q6% 00-00000000 T C X% 00-00000000I TC X%( T4fact$>4*  % T4cred$>4/  T4debi$>41F%, >  T:CO T; T< T= T> T? T@ TA TB TC TD TE TFGFHG((ccvfacF TJ TK TL TM%~  V  FHEF4TLLHNCHO PHO 6<TMMHQHRCHO PHO 6%ST TJJPTKKPF #%UL TV  ,TVCCMLM d6ToapqrODQ;st?C! 6u@v>wCONTADOxdyzN{|}ef`RB~ Ccd6C$ NEV6>80$>C  NgmC6?>0 CS6>H>HCCrarchivo_ncnd_aut Ccd6 TF/>oapqyC;s~ Ccd6{| zNC YSN6C6Q;C  NgmC6YC Y[ Y6C$'ve_comprobanteH~F+>~ Ccd6T%  JF TF#)+C+ C $%   TTF>oa Ccd6S AutomticapqC  NgmC6C$(>oCZC],ge01aCZFH%CCT!Tc TF>oa Ccd6SCDIF. DE CAMBIO Automtica6 Ccd6pqC  NgmC6C$(>oCZC] T- ST h Ta%UC"Error con percepciones de IIBB !!!C Avise al soporte tcnico !!! BTCETC]TCE ve_pedido , T cC0No se puede proceder con la nc/nd automtica !!!C Debe realizarla manualmente.FF #% T T:CO BUXDIFXIMPORTEXSUCFACXSUCXCUENTA XDE_COBRANZAXDESC XFECHA_NCNDATRCANCUENTASCUENTAXXHORARIINICOSXNUMEROFXNUMERORCLIAUX COMPROBANTESOLDREGCOMPROBANTES XENTPROVINCIACLIENTESPRO2 PROVINCIAXENTPAISDIFAUTCAUSACOMPROBENTPRONUMFAC XZONAFRANCAP_CODEMPP_DOSXIVACATIVACATXCOFINXFECEMICLETRALETRAVE_COMPROBANTEXRESP_FCNCNDKCCFACTCCFACTZ1XCAUSATEXTOKCCCREDCCCREDKCCDEBICCDEBIXPRUEBA VALIDAR_CTTEMPCSUCZ2TENCXCUOXNUMFREGCOMPROBANTEST_TOTALT_KILOS T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_DESCOMT_IIT_FINALT_P672T_672C_DTO672CCVENTCCVFACXACC_IBXACC_TTXACC_PERXACC_NETDTO672DEUDAAPLICADOTOT_VENDES_COMFECHAP_PER_IB_COMIENZO P_IIBB_NC_BAXPORCENTAJE_DEL_IBT_IVAARR MAXIVAARRIVAPERXPORIVAC_IVAC_IVA26XPORIB MIN_PER_IIBBP_VREDON T_CONSFINXCOD_CLITARJETA INSCRIPTOT_IVAT_IVA26CONSFIN VE_PEDIDO OLDXNUMEROFHEADERXTIPOPED XLETRAREMXSUCFACRNCNDNCNDMAXCOD_CLIDES_CLIE XOTRO_CLIVENTAPEDIDO IMPONIBLEIVAINVINVDESCPLANIVA_VENFEC_VEN INVENTARIOCOD_CENCENTROIVA26FAC_VENCUIT INSCRIPCIOHOYMOTIVOSUC RECEPCIONT672ESTADOTIPODOCAGENTEVENDEDORREFOCTRANCOEFICXCAMBIODEPPLANLISTADTMAX_PROD P_MAX_PRODVENTASCOS_LIFODESC_INSCOD_CUEGRAVADAITM REG_IVA_VENBATCHXXMOTIVOP_DIFCBIO_VERSIONCCCLIEACCACCCNCNDAUT NCNDAUTDIFCOMENTARIMPORTEVENCCAUFECREFCUOTACUOIDIDUFN_CANCGE01XERROR_A_ENCONTRAR IIBB_PROVMENSAJEGUARDAR_IIBBPROVXNCNDXDIF_SEPARADASIN%Cnumfac *Qnumfac%CCCVENT bQccventccvord%CVENTAS Qventasven_ord%CBATCH QbatchBUNUMFACCCVENTCCVORDVENTASVEN_ORDBATCH4FG((ccvfac%  E!%C4 9CEl comprobante  ya fue utilizado !!! B % #% IND cd G( BA G((idGF EGFG((ccvfac=%C+ C=C=  C i % \COExiste un comprobante posterior al "+xnumf+" con fecha anterior a la actual !!!G( B%C  G((id<GF EGFG((ccvfacD%C C+ C=C=  C i % \COExiste un comprobante anterior al "+xnumf+" con fecha posterior a la actual !!!G( BG( FG EG %C4 9CEl comprobante  ya fue utilizado !!! B % GGF EGFG 2%C+ C=C= C i % \COExiste un comprobante posterior al "+xnumf+" con fecha anterior a la actual !!!G( B%C G((ccvfac<GGF EGFG G((ccvfac9%C C+ C=C= C i % \COExiste un comprobante anterior al "+xnumf+" con fecha posterior a la actual !!!G( BG( BU XNUMFXCAUSAXFECEMICCVENTCCVFACP_FCNCNDFAC_VENCAUSAMENSAJE P_NOVLDFECVP_EMPFEC_VENID open_files# validar_c$1AAr!ArRBBBrs"BqQ12A1QQQQAA1B1A1AAAA1APAr!!QQAAQQAAQA1QAQAAArA~rTr1rB2AAr2Ar1c"2"B!BBB!A6"ArQr1hC3rQrrQurQAruQBrAArQDAQAE2ArrA3!AAArAB3v5QAaa2aAAaaC2aAABaBBtaaeaaa#2aAAbaaa2aAABaABA1?>?M?cL%!%}"IY@ CFG((codcliFG((G-(G(RAG((asidia Ta T  T  T T T T#)%CC_g T-T ـCOBRANZAS: El atributo DIFERENCIAS DE CAMBIO NO TOMADAS (REGULARIZADORA) no est aplicado a una cuenta o lo est ms de una vez.=co_cobranzas.PRGAsientos Diarios B+C+ C COBRANZAS C C CBUUSE_COBCLIENTESCODCLIVEN_OPERCUENTACUENTASCAUSAASIDIAXOKMSGXASIDXASIHXFECDXFECHXDIAATRCANOKREPODIAFECHA REG_ASIDIA UNUSE_COB UNLOCK_ALL]TC F&%  RF E%C4 d!> hF% Tc T % Tc TT  >   L CAC$ !"#$%&'()*+,-./T00  1T11C C$"6 TBU2 XPROVINCIADIARIOGXOKXDEBXCRECONCEPTONEWASIASIENTO XCONCEPTOTIPO2XPASEDEBITOCREDITOCOD_CUEXCUEPOR_QUECOMPROBXCOMPROBCAUXCAUSACOD_CENPASEFECHAXFECHAPROCLINOMBRE XDES_CLIECODIGOCLIENTESCOD_CLITIPOHOY COMENTARIOXCOMENTCAMBIOXCOEFICMONEDAXMONEDAMOTIVOXMOTIVOMONEXTXMONEXTMONPASEXMONPASEUSRXUSRAUX1N PROVINCIAACCACCMEFG((codcli E%C4y%CXuF E%C4 qB- B-FG((cuenta EBC4UCLIENTESCODCLIVEN_OPERCOD_CLI UNEGOCIOSCUENTASCUENTACUE_DEU9%Csucursal .QsucursalBUSUCURSALg%Csucursal,FG(G-(%Cven_oper\FG(G-(BUSUCURSALVEN_OPER TFG((comprob ECZ Ta@+C+ -CZCZ  TH% VTFC  cTNC  d%TND %E T%%TPago de 'TC ,  6% T-HFBU XCONCEPTOCCCLIECOMPROBVEN_OPERCOD_CLICAUSAINICXCCCCAUREF5 T-FG((comprob E%C4%A++C+   %C TaH  Ta BUAUXDIARIOGCOMPROBXCOMPROBXCAUSACAUPROCLI4BCUFECHASYS_CIERRE_BALANCE4%Cd Ta T- T T T-%CnewasibN TTC T-G+(co_autFG((codcliF T   %G((comprob E G((G-(G((asidia Ta T T TTT C TaT   ,% R  A 9TC!%CCLIENTES+  T-TC   C RRCC IITAJ66  0 Cliente inexistente o mal su cuenta.(COBRANZAS) 5$%   w T-TC   C RRCC IITAJ66  ! Tipo de cambio en 0. (COBRANZAS) 1F T    T T TF TCO*+C+    % %%CCUENTAS+ C X  T-|TC   C RRCC IITAJ66   Cuenta invlida.(COBRANZAS)T F HF # T  T! %C #"  T-TC   C RRCC IITAJ66   Fecha C #*- es anterior al cierre de balance.(COBRANZAS)%C #$  T-TC   C RRCC IITAJ66   Fecha C #*, no pertenece a ningn ejercicio.(COBRANZAS)%C% b T-TC   C RRCC IITAJ66  & Comprobante ya registrado en asiento CC&Z .(COBRANZAS)%-F #H '4 T( '5 T( 2 T( T) C*T+,DT-C RRCC IITAJ66 C  T  T.# T/ T01 T! T2 T3% T4CWF5G((asiento%< E%C4. #6T& 8   #6T&% TF*G((asiento E%C4  >& F4  TC #6%57 T7 T T8F *+C+    !% T9 :|T-C ;YCC ;@z 999,999,999,999_C </CC < @z 999,999_6 6 =T> T?  T@TA TB TC DTE FTG H C& TG% '5 TI( T(T> T?  T@TA TBNgmCTC DTE F C&%CC_Jg8 TK-TـCOBRANZAS: El atributo DIFERENCIAS DE CAMBIO NO TOMADAS (REGULARIZADORA) no est aplicado a una cuenta o lo est ms de una vez.=Lco_cobranzas.PRGAsientos DiariosT>C_J T?T@ TA TBNgmC TCTE F C& T(ITA TB F >T F H%%e T? T@  T?T@c T-) T>+ T) T? T@ TC TE C& CMN TNO co_asientosN%NCNQ TR T-6T)El asiento no se genera correctamente !!!% @Strsac7 Co_cobranzasAsientos Automticos TU ) T- T  T-% R5% 0  TC   C RRCC IITAJ66  * Recibo provisorio, no se puede registrar. 1 Ta>  TC   C RRCC IITAJ66  0 Comprobante desconocido, no se puede registrar.F %  /6Lco_cobranzas.PRG   F #+C+    aH%  CVBUWXOKXDESDE_OPERACIONMSGNEWASI XNO_ASIENTOPREGUNTOCO_AUTCLIENTESCODCLIVEN_OPERXCCOD_CLICOMPROBCAUSACUENTACUENTASASIDIAXASIDXASIHXFECDXFECHREG_LOCKAPLICXVLDCLIVLD_CLIMONEDACOEFICXCLACCACC1REGCAJ_PROXCOMPROBXCAUSA FECHA_VALIDAFECHA EJ_ACTUAL HAY_ASIENTOASIENTOTIPOXMOTIVO XCONCEPTOCONCEPTOXDEUDACUE_DEUXCOMENTXFECHAXCOD_CLI XDES_CLIENOMBREXPASEXIMPORT XAREA_ASIDIARIOG NUEVO_ASIENTOAAAACCMEXUSRUSRNUMEROSUBNUMDES_VALXCUEXDEBXCREXMONEDAXCOEFICXMONEXTMONEXTXMONPASEMONPASE XPROVINCIA PROVINCIA OLDMOTIVOATRCANOKREPOAJUSTE_CONVERSIONXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROREND_TRANTRSACTTS_ID UNLOCK_ALLasientovld_cliuse_cob unuse_cobLconcepto hay_asiento fecha_valida reg_asidiaV rra111RBBBB22rarQAr21AAQpSDA2qqqAAqAr3AAD2qaaAqaaAB3qAAAAAAAA1QAqAAAArA2qqAAAAAAA2q4q+AA2rrRAd11Q BrQq1SAAArAAqr Ar Aq AuAAABx2QBQ2ABrQAAAqr1rQADQAsBArAA51ABr1aAAABCBqA AAreEr1AAAB1~ K: # M7 R ^ ~_xv5%u%0\^6XbUU%Cven_oper .Qven_operF>CBUVEN_OPERFEC_COMIFECHAFOR 4%Ccons 1Qcons%X T @T!Las comisiones estn cerradas al CC* !!!BUXMSGXFECHACONS CIE_COMISOCIERRESCIERRE_CIE_COMIS 4"%C xfecha_valorbD@T%Ccons jQconsHv 2%C%C TC .%C  T *TC 2v%CS rTC BUXFECHA XFECHA_VALORCONSP_CIE_COMISIONESOCIERRESCIERRE_CIE_COMISini_ven_oper_fec_comi0 validar_fechafecha_comisiones1AAqQA2bAbAB2"1AbA1qRAqRAArRAA1  %@s wDAlRU*R,: Aguarde... ges C T- %CTEMPCOMPeF wFQtempcomp 1* (on error &onerr Q Ta%B%CCLIENTES !FQclientescodcli%CBIENES ]FQbienesdescins%CCOSTOS FQcostoscodigo%CCUENTAS FQCUENTAScuenta%CCCCLIE F Qccclie%CCONS 3F QCONSF#)%CIDX04 |"Q\idx04idx04%CREMXFAC QREMXFAC%CPROVINC Q\provinc%CPAISES Q\paisesR BUGESABRIR_TABLAS_FIJASXERRORTEMPCOMP _TEMPCOMPCLIENTESCODCLIBIENESDESCINSCOSTOSCODIGOCUENTASCUENTACCCLIECONSP_COMMONIDX04REMXFACP_SYSTEMC >a >a>C X >a >- >a >a >a >a > a > - > - > - > a >a >a >a >- >a >a > >a > >- >- >- >- >-BUVE_001VE_002VE_003VE_004VE_005VE_006VE_007VE_008VE_009VE_010VE_011VE_012VE_013VE_014VE_015VE_016VE_017VE_019VE_020VE_021VE_022VE_023VE_024VE_025VE_027VE_028VE_029VE_030^#<#7T T- Ta T TCDEBUG5SI %a T-F Qcfg #TC = #TC = #TC =Q <  7  T listadosBU P_I_SINDESP P_I_REANAL P_I_NUMAUT P_I_SINCOLP_I_LOG PCFG_DESC1 PCFG_DESC2 PCFG_DESC3P_APRDSP P_SELAUTATRCFGTEXTOARR_IVA MAXARR_IVAIVALISTADOS open_files, inicializar variables_publicas51RbqA1AAAAAAqAAAbAqQr!A1AAARD2D331A!!!Bq1B1@Z^ %,&)|&WG(9"T\tmp\CC]R ve_pedidoF TT CX T  T  T % ve_cancelar_pedido(  ve_pedido( a%  TC --%C LC% % ve_pedidoBUXCERRAR_ACOPIO ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOTCCVENTXPEDIDOXCOD_CLIXTIPOXTIPOPEDXRESVE_CANCELAR_PEDIDOXMSG PROCESAR_PDMENSAJEP_VE_SEGUIMIENTO_PD SEGUIMIENTO#%Cpickings .Qpickings%Ctccvent ^Qtccvent%Cclientes Qclientes%Cccclie Qccclie%Ccondcobr Qcondcobrplan%Ctventas (Qtventas%Ccomprom XQcomprom%Cdeposito Qdeposito%Cdespacho Qdespacho%Cstkxdep Qstkxdep%Cstock QstockBU PICKINGSTCCVENTCLIENTESCCCLIECONDCOBRPLANTVENTASCOMPROMDEPOSITODESPACHOSTKXDEPSTOCK45   ve_cancelar_pedido T!TC@z 9999,999,999_TPFG((tccvord E T%C4qTT T T"stock", "stkxdep", "tccvent", "tventas", "ccclie", "comprom", "cliaux", "clientes", "cfg_lis", "pickings" T% .DO lock_g IN trsac WITH aaa , &xtrs_files %% #Tve_cancelar_pedido.prg%dTCierra el pedido TReabre el pedido TtrsacCCerrar/reabrirFG((tccvord%  E0TC@z 9999,999,999_PCZ%^ > u > >CF G((comprob% F G((comprob E)+C+ !"C#Z H%((%Cclientescodclij%$%&'(El cliente es de ACOPIO, pasa a INACTIVOve_cancelar_pedido.prgCLI$>$( fz&'#El cliente NO es ACOPIO, no se tocave_cancelar_pedido.prgCLI$&%Ccfg_lislista$CBlanquear lista%*%9otccvent    % }&'"La lista es de ACOPIO, se blanqueave_cancelar_pedido.prgLISCZ0>*+N%, &'La lista est usada en C  - -., no se blanqueave_cancelar_pedido.prgLISCZ0>*+N%,  |&'!La lista NO es ACOPIO, no se tocave_cancelar_pedido.prgLISCZ %a %/^0%C F1G((pedidoGECZG T2%C4 %1 !+C+ 1 >3 %1456 %78  T8 T9v:proc_stk141<1=>C1?1@DcC$7F1H%C %7 FA G((IDG E2G +C+ 22 TCO T8 T9_Bproc_stkACA<A=A>ADcC$AE3AFFA #H  }Gve_cancelar_pedido.prg)Imagen de Tccvent en Tventas no coincide.PD CC@z 999,999,999_  {Gve_cancelar_pedido.prg'Imagen de Tccvent en Tventas no existe.PD CC@z 999,999,999_  nGve_cancelar_pedido.prgTiene pickings pendientes.PD CC@z 999,999,999_ TH gF>2C] TI%J1 %CI TII+$TIICCCJCJK_VA%L %CIr TII+$TIICCCLCLK_VA%M%CI TII+$TIICCCMCMK_VA%Nl%CIDTII+$TIICCCNCNK_VA%O%CITII+$TIICCCOCOK_VA%CITII%FP G((plan EQF I>!C@z 9999,999,999_"PRSITUVWPXYZC@z 9999,999,999_[P\P,]#^__``2C@z 9999,999,999_PCZaC]bF1G((pedidoGECZG T2%C4S%1!+C+ 1 >3S TCO T8 T9t:proc_stk141<1=>C1?1@DC$7F1 #F1H O}Gve_cancelar_pedido.prg)Imagen de Tccvent en Tventas no coincide.PD CC@z 999,999,999_ {Gve_cancelar_pedido.prg'Imagen de Tccvent en Tventas no existe.PD CC@z 999,999,999_F!>c7 >C%V/ >da Te Tfve_procse%eChH> i T.j ve_aprobacion-a i> T.j ve_aprobacion-a%ecCh%C T Tla T Tl-% mtrsac%lTnP!ToC@z 9999,999,999_C'on&% TEl C acopio pedido 6CC@z 999,999,999_ ha sido C cerrado reabierto6 !!! % %  Tp m% i2T%No se pudo iniciar la transaccin !!! % 0T#El pedido no ha sido encontrado !!!BUqXPEDIDOXTIPOXTRANXMSGXAUTXCERRAR_ACOPIOXCOMPROBXCAUSAXCOD_CLIXFECHAXLISTA ATMPCOUNT OPEN_FILESVE_CANCELAR_PEDIDOREGISTROTCCVENTTCCVORDXIMPORTECOD_CLIFEC_VENLISTA XTRS_FILESAAATRAN_PRGTRAN_TXTBEG_TRANTRSACSYS_MPEDIDOXIDEST_DESP UPDATE_DTCCCLIECOMPROBCAUSACUOTACLIENTESACOPIOUSER_LOG PUB_INDEXEST_ACTINCFG_LISACTIVADESCRODEYFUNC ARRAY_TO_STR P_PICKINGVALIDAR_PICKINGSTVENTASIDPENDCOD_INSOBIEDATA_CODIGO_VACIOSTOCKSTK_ERRSTK_TST ACT_STOCKPROC_STKBULATRDEP RECEPCIONRECEP2COMPROM REG_STOCKCODCANITMDSPREPORTE TTS_ERRORXTEMPDESC1FMTDESC2DESC3DESC4DESC5CONDCOBRPLANFECHACOMENTARIMPORTEDEUDA FACTURADOVENCPLAZOUSS_DEUREFCAUCONDFECREFCUODES_CLIEMONEDAIDUHOYCREDITOFCXERRACTUALIZA_ESTADO_DEL_PEDIDOVE_PROCSMENSAJEP_ANALISIS_PEDIDOSAPROBAR_PEDIDO VE_APROBACIONXOKEND_TRANXXXCAUSA XXXCOMPROBTTS_IDH4%C8( B999 AB999.99UXNUM  T CPickings Suspendo?aFG((pedido E%C4 T T T T+C+   )%   %T+TCC, 6CC Z !T  < wopickingsQcompromQ  CQ       $% C  T+TCC, 6CC ZH%%v#TC, y %rTYTiene un picking pendiente, no se puede cerrar el pedido sin cerrar o liberar el picking  !!! |sTZTiene pickings pendientes, no se puede cerrar el pedido sin cerrar o liberar los pickings  !!! %%#TC, y %gyT`Tiene un picking con saldo de mercadera, no se puede cerrar el pedido sin descargar el picking  !!! TkTiene pickings pendientes con saldo de mercadera, no se puede cerrar el pedido sin descargar los pickings  !!! BUXMSGXPEDIDOSYS_MOSTRAR_SCREENPICKINGSPEDIDOXPICKINGS_PENDIENTES XMAS_DE_UNOXPICKINGS_CON_SALDO XMAS_DE_UNO2TCCVENTESTADOPICKINGXPICKING ARR_PCK_TMPPCANCOMPROMCPCK open_files procesar_pd?fmtvalidar_pickingsM q%BrA2"A22AABB3AA1AAA!AA1A1AAAAA1AqAB32qrr+ A211AAr1A2Ar2tAAAaAAaa! AAAB6!Arbab nBBrAAbrbarBAABAAABtaQ!AAAaQ!AAAaQ!AAAaQ!AAAaQ!AAAQ!ArrQ tbaNrrAAAAt2A2A12B2ACAAAABAA!AAAAA2qQA2r3rqBBABA221A2!1AB221A2AABBB2W0@5\J5p5HQ5=P%(N-+ GXG+(dey_funcUDEY_FUNCuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTC N TCcod_insC 0BCins U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEOBIEDATA_CODIGO_LARGOBIE_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTC N TCcod_insC 0BCbie U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEOBIEDATA_CODIGO_LARGOBIE_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN 0BCBul U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEBIE_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN 0BCAtr U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEBIE_GET_MASK_S_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_func TCGru_CodC(BCGruU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXDEY_FUNC CHK_VALUEBIE_GET_MASK_N_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_func TCLin_CodC(BCLinU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXDEY_FUNC CHK_VALUEBIE_GET_MASK_N_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_func TCMar_CodC(BCMarU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXDEY_FUNC CHK_VALUEBIE_GET_MASK_N_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_func TCpro_CodC(BCproU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXDEY_FUNC CHK_VALUEBIE_GET_MASK_S_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_funcTCfechaC(BCFecU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXDEY_FUNC CHK_VALUEFIL_GET_MASK_D_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN TCcod_cliC 0BCcli U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEFIL_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN TCAgenteC 0BCage U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEFIL_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN TCcod_proC 0BCpro U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEFIL_GET_MASK_S_FILTERuQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANG+(dey_funcTCN !TCdepositoC 0BCdep U XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALDEY_FUNC CHK_VALUEFIL_GET_MASK_S_FILTERQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEAN QSTRINGG+(dey_funcTCN TCxdC TCxhC TCC %M*BC *BC UXMASKXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALTFILTRODEY_FUNC CHK_VALUEFIL_GET_VAL_FILTERFIL_GET_STR_FILTER_QSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_funcTCxdC TCxhC TC &BC U XMASKXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTRODEY_FUNC CHK_VALUEFIL_GET_NUM_FILTERoQSTRINGQDATEQDATEQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_funcTCxdC TCxhC TC &BC U XMASKXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTRODEY_FUNC CHK_VALUEFIL_GET_FECHA_FILTERltQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGG+(dey_funcTCC TCC TCC %C T. T%C \@T .and. BETWEEN(,,)  BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTTFILTRODEY_FUNC CHK_VALUE]eQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_funcTCNTCNTCC%C T. T%C M@T .and. BETWEEN(,,)  BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTRODEY_FUNC CHK_VALUEfQDOUBLEQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGG+(dey_funcTC=CTCC%C T. T%C oHk CxdxxxbN%CYTC TCCcZ-T .and.   CxdxxxbCk%[C=PT .and. C#  NOT 6C[]  g%C6 T-T .and.   BU XDXXXFLD_XXXALI_XXX VAR_XDXXXXOPER XDECIMALESTFILTRODEY_FUNC CHK_VALUEODEYFUNCINLISTSTRARR_CREARfQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGQSTRINGG+(dey_funcTC=CTCCTCC%C T. T%C %[C=vRT .and. C#  NOT 6C[]  %C%TCT[]-T .and.   BU XDXXXFLD_XXXALI_XXX VAR_XDXXX XSPACELEGHTXOPERTFILTRODEY_FUNC CHK_VALUEODEYFUNCINLISTSTRARR_CREARtQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGG+(dey_funcTCC TCC TCC %T. T%C |_T .and. val()<=val( ) .and. val()<=val() BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTTFILTRODEY_FUNC CHK_VALUEaQDATEQDATEQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGG+(dey_funcTCDTCBADTCC%T. T*%BA qGT .and. <= .and. <= BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTRODEY_FUNC CHK_VALUEQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEAN2T C B U XMASKXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTXUSE_VALTFILTROFIL_GET_MASK_S_FILTERQQSTRINGQSTRINGQSTRINGQSTRINGQSTRING*TC BU XMASKXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTROFIL_GET_MASK_N_FILTERfQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGER*TC BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTTFILTROFIL_GET_STR_FILTERWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRING&TC BUXDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXXTFILTROFIL_GET_NUM_FILTERfQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGER*TC BU XDXXXXHXXXFLD_XXXALI_XXX VAR_XDXXX VAR_XHXXX XSPACELEGHTTFILTROFIL_GET_VAL_FILTERbie_get_bie_filterLbie_get_ins_filterbie_get_bul_filterlbie_get_atr_filterbie_get_gru_filterbie_get_lin_filter2bie_get_mar_filterPbie_get_pro_filtern fil_get_fec_filter fil_get_cli_filter fil_get_age_filter fil_get_pro_filterfil_get_dep_filterfil_get_mask_s_filterxfil_get_mask_n_filterfil_get_mask_d_filterfil_get_str_filter~fil_get_num_filterSfil_get_eqn_filter fil_get_eqs_filterfil_get_val_filterfil_get_fecha_filter!bie_get_mask_s_filterj#bie_get_mask_n_filter$bie_get_str_filter%bie_get_num_filter&bie_get_val_filter{'!4R!3R!4R!3R!4r!3r!3r!3r!:r!7R!4R!4R!3R!8 !A4!aa4!aa4B!!!AaA4R!"!AaA2a"!!A!1qAAABA4b!!!A!!1!AqAAA4B!1!AaA5!1!AqA12!44b4ra4b2{< I@M %"  +' F 1, >1?H7L8P=EXC_IkUy\ccp!q!##''**(-7-`/?9:?:;E;<K<=Q=>WH%V 4\"Yt74%ITCa-6 gG(9 q T% T - ft05 G+(listadosG+(cm_procs%C cpbt_liq_prodQ <7 Tlistados T T- T T T TC T53TC aprobacionessys_aprobaciones.prg%CoapbO T+am6"T\tmp\CC]R C C%CcmcashdF Q TS/T?C@ C$6TA TBSa-6 TK- TL- TMa TN- TO-&% Cxcod_probC TPCX TQ TR-TSC XTTCXTU TV TW%% CxcentrobC TXCX*% C xoc_solicitabN TY TZXT[C XT\C X T][ T^\T_AT`CaCX6TbCaCX6TcCaCX6TdCaCX6TeCX TfTgC(XThCXTiCXTj TkClmTnCXToC(XTpC(X Tq Tr Ts- Tt Tu TvTwC6 Tx Ty Tza T{d T| T}a T~a T TTTCXT T T T T- T T T T T T T T*TC Documentos imp_exp_p.prg T T%CEmpresas J Q \empresasF-T T% T0CONTADOTPCFG((codpro EP%C4W %S S KC>El proveedor contado no est configurado con contado = "S" !!!B  /C"El proveedor contado no existe !!!B T- T+a%6 T CH !6 + C T T '%C  o %k cm_orden( % T% T T Td T T Ta% % % T Caa T-  C a T T|    CD%FS%C  '! F#) T- T %cm_compra_contado( TCuawlT_C= %F~C C FG((refordenECZ3+C+ CZCZ %O%C4 Ta!H%!FG((ref_ocECZ8+C+ %C ZCZCZ j%IRb%C4^ Ta!H%!F%Cgan_pro FTCl%C ganancias Q\*o gananciasǼ1 \tmp\gan_proF& &  TP cm_proveedor( %P%C cpbt_liq_prodQFQ#TClT_C=T>CJSN6% 1%C 6 YF Ta-C C %C4%N3TCLee lo pendiente de recepcin ?  T-%U+CN "%NG C Q +%C %Cartxpro Qartxpro1oartxproP tmp_artxpro%ZF~C VF-%C4 RFSF ~:rtempcompF+CN F+CN TCl%TTTTT%C  ! ;%%SC  d%'TeTfTgThTnTj)TkC Clm6ToTpTu cm_varios( TqCCjTrC.TiCqCkClm/r6f TeTCualT_C= #TClT_C=%C  ! TsN% T(? T?TT$%+( %+F G((plan E+T*T,T-T.T/T0T1 $ T.*TC CF TCTC T?T)C?)6%?CTCT;%%SC  L TuTNTN Tf$TCNS6TuTv%  cm_datos_oc( %C  ! % %C cpbt_liq_prod _  Fcm_liquido_producto( %C  %C  ! B T T T %  C %Ccmcash ocashdata C Q -QC =QP   z cmcash%CcmcashN gs_cashcanc( %C  >! ?" C%x C% "!% ; >sys_procesandoBuscando solicitudes pendientes%Coc_pendFQ,in_controlar_soloc_pendaF& C!ZC"Z!& C!ZC"Z"& & ##& $$%sys_procesando% !!F&G((codinsFG-(&G-((%) >*G+C,C-*6.d /d 0d 1d 2d 3d T4CCA65CC5C566CC6C66 !>*G+C,C-*6.d /d 0d 1d 2d 3d T4CCA65CC5C566CC 8S 6C66G-( +! C9 C:G+(listadosG+(cm_procs,%C CF ! !%! T cm_data( C< C= C9 C> " C:%C  ;"! " cm_datanc( C@%C  "!  #F%A"~"%B" TOa TC TDa%E #)%OA   m# T  cm_showimp( #%# TC%C  #!  #%C  #!  ( T  TGa TH% 1% Ta TI TJ TK TL TM TN TO TP TQ TR TS TT TU TV TW TX TY TZ ;% T[ T\%%G+( ve_pedido J(!.T^C[\f?a-_ T` Ta Tb Tc Td Te Tf Tg Th Ti Tj Tk Tl Tm Tn To /T2 _/TC TGH/5 C2 T+a2%/F#)T 0T% e0 Tcm_orden_de_pago( T~~   |0 T % 2<r((1TrTrTr-Tr TTC% 1< T C TH12 }2 T NC$Se ha registrado la Orden de Pago : CC@z 999,999,999,999_%# u2'%CIngresa el pago ?q2! 2 T ! 2 T ! 2! 5+a5%3%|73 CF R3T||% 3 T|cm_orden_de_compra( T}} |  3 T  4%|h4ZCMError !!!!! Consulte al soporte tcnico. La operacin no podr concluirse !!!C Suspendo?a T  4 T % y5TCH4u5 -5 T PC&Se ha registrado la Orden de Compra : CC|@z 999,999,999,999_! Q5 T ! u5 T ! 5! 5 T T%%   5!%C  6!<%      i6!%C PENDIENTES6FQ%C tmp_bie_bus6Q%Cper_prov6FQ%C xper_prov7FQ\tmp\t.*%CtempcompV7FQ.dbfBU XTIPOCOMPRAXDERECEPXPREGUNTA_OPOC XMODIFICAXLIQPRODXEXTERNOP_CM_VERSION_RECEPCION ACTIVEFORM DATASESSIONID P_COMBEMPXRESCAMBIAR_EMPRESAFT05LISTADOSCM_PROCS CPBT_LIQ_PRODARR_IVA MAXARR_IVAP_MAXIVAIVA XTMP_RESERVAS XRETENCIONES XLIQPROD_IVA XLIQPROD_REM XFCE_TIPOXDTXDTMOAP XTEMPCOMPP_LOCAL OPEN_FILESRESERVAS_INICIALIZARCMCASH IIBB_PROVXSUCFACLOCALESVE_024P_SUCXCANCELAXPROVVARIOSPRINCIPALXVTOXFECENTXFIJOXPLAN XANTICIPOXPLAZOXCUOTAXINT_FIN XDESCPLAN XDESCPLAN2XTXTCPBT XAUTORIZADAXQUIEN XDEPOSITOCM_008XOC_EXT XIMPORTAC XAUT_ESTADOXAUT_USRCON_RECE P_OP_SINSTK HUBO_RECEXSUBDXFECEMIP_CM_FECHA_VACIA XQUINCENA XQUINCENAN ARR_QUINCENAINICIALIZAR_QUINCENA XFECEMI_PAGXMOTIVOXCOEFICXMONEDAXDIVXFIGXRFC XUSAIVAANTXDIRENTXCYO XIMPORTACIONXCOD_PROXUN REFERENCEDXREF XDESPACHOXCAUXCUOXOPXCENTRO XOC_SOLICITACENTROXNUMEROFXNUMERORZ1Z2XLETRAXNFN P_CM_CPBT_LETXNFSXNRNXNRS XOTRO_PROXCUIT XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAIS OLOCALIZACION PAIS_LOCALXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XNOIVACTRL XIB_PER_PROVXCATIVAXCATIVA2XTIPOC XCOMENTARIOXTIPOIVAXSOLOSALDOFACT XDESGLOSENOC XNOC_AUTO XNOP_AUTOXOLD_NOCXOLD_NOP XFECEMBARQUEXOAK XOAK_FECHA XFACTORIMP XFACTORFFXREGIMEN_RETGANXIMP_TRI XINCOTERMT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 XREVISIONXREVISION_ACTUAL ODOCUMENTOS XOC_RETIRA XOC_APRUEBAP_SYSTEMEMPRESASCODIGOP_CODEMP XLUGAR_IIBB PROVINCIAXTRAN P_PROVCONTPROVEEDOCODPROCONTADOMENSAJEXYA_INICIALIZEXFORMXMAXFORMABRIR_TABLAS_FIJASXORDENP_OCCM_ORDENMAX_PROD P_CM_MAX_PRODMAX_DESCMAXYIMAXYNXCREAR_TMPCOMP XCON_DETALLEP_CM_PRIORIDAD_RECEPCIONLEER_OCTEMPCOMPWIZARDCONSXBLOQUEA_PROVEEDORCM_COMPRA_CONTADOXLETRAS_POSIBLESIVA_LETRA_PROVEEDORESCOD_INSCOD_CUECOMPRASREFORDENREFREFITMREFCAUSACONVERREF_OCORDENCAUXTABLATABLA_GANANCIAS GANANCIASGAN_PRODESCR XOLD_COD_PRO CM_PROVEEDORIVACATIVACAT2XRELEO_Y_BLANQUEO RECEPCIONBC MENSAJE_SINOLEER_TODO_PENDIENTE USA_PLANTARTXPROCOD_PRO TMP_ARTXPRO P_SOLOARTXPROATRBUL XES_ADUANA ES_ADUANA INSCRIPCIODES_COMDES_COM2DES_COM3DES_COM4DES_COM5TARJETANOMBRE DOMICILIOCIUDADCOD_ZIPPAISPHONOEMAIL CM_VARIOSPROVINCPAISESXNOMBREIVACTRLXFECREF XCOMPRADOR COMPRADOR XCOMI_COMCOMI_COMCONDPAGOPLANFIJOANTICIPOPLAZOCUOTAINT_FINDESCR2 XPORDIFCBIO XNCNDPROPIAXNCNDXFECDGIOCIERRES CIERRE_COMCIEXPRODEUCUE_DEU XCATIVAREALXCOFIN P_CM_DATOS_OC CM_DATOS_OCP_CPBT_LIQ_PRODOBTENER_CPBT_LIQ_PRODCM_LIQUIDO_PRODUCTOLLENAR_LIQ_PRODXCASHCUOXCASHANOXCASHNUM P_CASHFLOWFECESTIIMPORTETILDEANOCLASECOMPROBIDUCASHDATAEMP ELIMINADOCAUSA GS_CASHCANCASIGNACIONES_COSTOS_LEERLLENAR_TEMPCOMP_EXTERNOP_SOLCOMP_SOLCOM_VERSION SP_MENSAJESYS_PROCESANDOOC_PENDSOLICITUDES_PENDIENTES_AYUDAIN_CONTROLAR_SOLSOLITMCANTIDADCODSP_OCULTAR_DEFINITIVAMENTEBIENESCODINSCUENTASP_CM_IVACOEFICTOT_COMCOS_LIFOCOEFDES_INSDESC2DESC3DESC4DESC5DESCXOLISPREGRAVADAIVAPERALLIVAFIJOPASAR_A_CM_UNI2 PREPARAR_DATACM_DATACLEARDATA_SCAN_TRANSFASIGNACIONES_COSTOS_GRABARMODIFICAR_DATA CM_DATANCMODIFICAR_DATANCP_IMPORTIMPORT XTIPO_IMP XIMPULTIMOP_IMP_POR_ITEM CM_SHOWIMPIFLAGCONST T_REDONDEOT_IVA52T_3298T_IMCOM1T_IMCOM2T_IMCOM3T_IMCOM4T_IMCOM5T_3337 TX_REDONDEOTX_IVA52TX_3298 TX_IMCOM1 TX_IMCOM2 TX_IMCOM3 TX_IMCOM4 TX_IMCOM5TX_3337 XERR_PERCEP XMSG_PERCEP VE_PEDIDOXPORCENTAJE_IIBBPERCEPCION_IIBBT_KILOS T_RECEPCIONT_DESCOMT_TOTALT_INVT_TOTIVAT_IVAINVT_TOTLIN TX_DESCOMTX_TOTALTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINT_IBTX_IBT_RETSTX_RETSZT_IVAVAR TX_IVAVART_IITX_IIT_II2TX_II2 T_SUBTOTAL TX_SUBTOTALZIVA T_IVA_ADIC TX_IVA_ADICCALCULAR_TOTALES INSCRIPTOT_IVAT_IVA_NCT_DTO672T_FINALTX_IVA TX_IVA_NC TX_DTO672TX_FINALT_IVAARR MAXIVAARRVAR_AUX CM_TOTALES XXCAUSA_STOCKXXCAUSAMAXIAPLAPLCANXAPL V_EFECTIVOANT_PAGOANT_ACREMAXCANV_PAGADOV_ACREDIABONAXFEC_COM V_ANTICIPOV_CUOTAV_FINANT_ULTIMO T_INTERES TX_ULTIMO TX_INTERESANTCUOMAXAPL CALC_FINALES CM_CUOTASCM_COMPROBANTECM_COMPROBANTE_NCNDXENCCCCOMPOPFEC_COMXCAUSAXCAMBIONOPP_CM_OC_MANUALCM_ORDEN_DE_PAGOOC_ARR OC_ARR_MAXXOK REGISTRAR_OPXOLD_XOK ACTUALIZA_OCCM_004TE_PAGO PROXIMA_OCCM_ORDEN_DE_COMPRASYS_MOSTRAR_SCREEN REGISTRAR_OCXOLDFORM PENDIENTES TMP_BIE_BUSPER_PROV XPER_PROV'TC T-F$%  `> TCF G((op E %C4ICLa orden de pago CC @z 999,999,999_ ya existe !!! BF %  " > %C[%C W B%FG((orden E%C+  TCO TFG((com_ordF Ta#) T%6#) T Ta i #T T-TNTOPCC  Z T+COV% !%CC" C# C$  %&  +T'$GT(C)* C NgmC+6 T, T%C- H  .O)F #/%0>11%>22%TF3G((tcccord%J EH>22C565 678C0SN6%39*>:C565 67 a%(!.>::C;<; 67 ]2>::C;<; 67( F=G((comprob2EC@z 9999,999,999_PCZCZV%C4E>?C@ZC ZC@z 9999,999,999_PCZCZ >A3B32 % .Mf TFC #/>22%/%CCC-,g CD b FG((ordenTCCC-,g E)+Ctcompras+  ^ %ECDV T,>22%F3G((tcccord%s EH>22C565 678C0SN6%39*>:C565 67 %(J.>::C;<; 67 2>::C;<; 67( F=G((comprob2EC@z 9999,999,999_PCZCZV%C4E>?C@ZC ZC@z 9999,999,999_PCZCZ D >A3B32 N !H F .Vc '%GHG?-. TI-.+pccventJGHG?I% K(LI %CKME !%KLL TLLTMLF$% ! % TS TN%O CbienescodinsF% !%^ CP CQ"%CR j%S)TS U V  TSW  X YC wTZ$[d \d ]d ^d _d `d aTb[Tc\Td]Te^Tf_.%0Cg.Ma6 h cs_generarjklZ)C  ZY-CC- mD6('bcdefn %.M%,d%o`h cs_generarjklZ)C  ZY-CC- mD6('bcdefn h cs_generarjklZ)C  ZY-CC- mD6('bcdefn h cs_generarjklZ)C  ZY-CC- mD6('bcdefn%O Cbienescodins%p##)!C#cuentascuentaFTCtempcompO?>q%(N$Crr6  >st>uu>vv>wxjjkkylz{$$|`aa[[\\]]^^__}}% >%%c&&c7CC& &%6c$C~C66[d \d ]d ^d _d }d T o>%%&&7CC& &%6$C~C66[d \d ]d ^d _d }d TB> ?Y"">##C CC SN66CCp \S1N6aCE\C$ >E2>rCrr6st>.%0Cg.Ma6 proc_stkjkC 6%YC @z 9999,999,999_C$1F >- F >aF[>~)9)C)* C NgmC+6*>--DD..Q>*>%>> TTTT#"TC TTTTCF > > >< cm_compraC  ZY"FFH$%CO   T-F #T% B% T  T% 0000000000004TC X T C;%%TSC   C TC TF>>>@75W>B69>CCC]>\]^_>ylCS6z{ ?Y > >+>wxU>* >-C)* C NgmC+6C$`a 9)    >C0SN6+>V >I> !"#S$%%& >"T'C?F)( >('4%*+ n, -d W >.--%/C xfecembarquebD  >01#%C cccomp.id_extbC>2 %C cccomp.cyobL>34 T5 T6 T789:;<T8T9T:T;T<H! =!%>?!C >A>@%B C(-C !T5C6)+>D T6T7DEFINIRT8C>ET9C>ET:C>ET;C>ET<C>E !%B C(-C !Cevalua?F!T5C6)+>D T6T7DEFINIRT8C>ET9C>ET:C>ET;C>ET<C>E ! T5 T6 T7 ! T5T6 T7 TG5 TH6'%Ccccomp.autorizadabNT"F>IGJH%=>? "9>K8L9M:N;O<"%TS "C P%#Q ve_pedido2%Cmotivos K#FQmotivos%C#FSG((codigo%*ST# E*F= TU+UV ' TWF=>> ?YXlYCZ  =[CCCZ UCU66Z] 6C?CWC* S[W66ACU\CU\*-C]C 6C]C Y6^_`@CZ UCU66aC]C b+CZ UCU666cdC]C e 6wx9)C)* C NgmC+6C$.>f>?C@ZC ZgC]$%C] &)hge02CbZCeZFTUUC Yj Ck Cl Cm %C xper_prov Q\tmp\F~ %T  per_prov.ProvCC Z4replace &tcamp with xper_prov.prv_ib in per_prov Q\tmp\.* TBU XNUMXCAU XTIPOCOMPRA XIB_PER_PROVPER_PROVOPCAUSAP_LOCAL XPER_PROVPRV_CODTCAMPT4(%CM$ CM$ FlistadosBaUXNUMHLP_IMPLISTADOS4 5%N#%C   F TCO TC T-( #%CCCIf INSCRIPCIO Ta!%CI!% G(( inscripcioG(( inscripcio E%C4  MC!El CUIT del proveedor ya existe [ ] C  !!!   G(( # +CNmero de CUIT incompleto !!! B-BaU XCXOKREGXCOFINPROVEEDOORDENZ INSCRIPCIOXCOD_PROCOD_PROMENSAJENOMBRE(TCC=%CfCLTBF #T C T #T C00000CCZRHb  T Nota de CrditoTCcredT1 bT Nota de DbitoTCdebiT2+a Tacm_nd(% B-TCZTCC XCCZR#TC00CCZRTCFG((comprobG!EC 126G %C4CLa C Nota de CrditoNota de Dbito6 Propia  ya existe !!!C 5Verifique el contador. La operacin ha sido abortada. C. M%Cccvent NQccventFG((ccvfac!EC cd6%C4ICLa C Nota de CrditoNota de Dbito6 Propia  ya existe !!!C 5Verifique el contador. La operacin ha sido abortada. C.FHi Tcred Tdebi%C>!BaUCLETRA OLOCALIZACIONIVA_LETRA_PROVEEDORESPROVEEDOIVACATIVACAT2XLIQPRODNUMFACXSUCFACTLOCKREG_LOCKXTEXTOXHEADER XTIPOCOMPRAXNUMXCAUSAXRES_NDPCM_NDXNUMEROFHEADERFORMATCCCOMPCOMPROBMENSAJE UNLOCK_ALLCCVENTCCVFACTTEMPQ4?BC00CCZR-C00000000CCCgZRULETRASUCURSALNUMERO T T!TC546 T T-TN T T T T I!T Ccd6 T T CX T T T TC TC T T T T T T T- T T T T%Ctr04 Qtr04F%x T  "%C! \cpbt\vfc.fxp0I5! \cpbt\vfc.fxpa- t!"a-FQBU#XCPBTZXMAXCPBTCVOP XTIPOCOMPRA XSUCURSALAUTINVEXPEDIDOXLISTAT_BULTOSPV_022XCAUSACTRL_BULXCOD_CLIT_IVA26XARM_COD XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXH XCLIEMAILXHORARIO XZONAFRANCA T_ADIC_IVA T_ADIC_DTO672 XPRIORIDADXSUCFACRTR04 TTS_ERRORXTIPOPEDP_SERVERVPEDIDO 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM%Ba %%SVBa FG((orden E%C4B- Ba BaUP_CM_VERSION_RECEPCIONXORDENTCCCOMPRECEPCONVERORDEN|FG((codins E T%q,>C6 BU BIENESCODINSTEMPCOMPCOD_INSXCOSTO_ANTERIOR COS_LIFO1 RECEPCIONCOS_LIFOPOReF G((idE%C4 Z)rcodxproBUCODXPROIDXCOD_PROTEMPCOMPCOD_INSCODIGO4 T-% 5 TCWFG((cccordFG((tcccordFG((presupF G((presupF G((cuentaF G((codinsdh1 \tmp\borrar C C NN$& (\tmp\borrar.tmpF Ta#) T%#) T Ta  #T T-+CO5V%%CC C C    %vF ET   T > F!%  E %C+F E 5rborrar     F!>"#d $d %d &d 'd (d )d *d +d ,d FH$%CO  1 T-F #TFG((comprobFG-(.F!~ #T/! CC001[kT1! CC01/CCC0H  C0H6Z/CCCC0H  C0iC0i6Z#F T2UKCC4/15. (2"3d #d FG((comprobF G-(678C9Z T:`KC C ;/19 . (: "3d #d F G((pagoF G-(< T=`KC C ;/1< . (= "3d #d F! %2:=  TawR,:Las imputaciones a la cuenta CC Exceden lo presupuestado (CC @z 999,999,999.99_) !!!F>>a! F!QFG-(F G-( F B U@FC_DE_OCSE_PASAP_PRESUPXAREACCCOMPCCCORDTCCCOMPTCCCORDTCOMPRASPRESUPCOMPRASCUENTASCUENTABIENESCODINSP_LOCALDESCRIMPORTETEMPCOMPIFLAGCONSTMAXYIMAX_PRODMAXYNCOD_INSOBIEDATA_CODIGO_VACIODESC_INSCOD_CUECOS_LIFO RECEPCIONKILOSXCUEBORRARTOT_COMDESC2DESC3DESC4DESC5DESCXOT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5COMPROBORDENXMINXFECDGIXMAXXACUMDESC1FEC_COMXORDENFAC_COMCAUSACOD_PROOPXACUM2FEC_DGIPAGOXACUM3APROBFORt 4%C $Ba m%CWX FQBa iB-UARCHAREA% C %CcashcancCFQ%Ccashcan2kFQ TaF~%% .Q \data\CC Z \cashcanc Qcashcanc% a.Q \data\CC Z \cashcan2 Qcashcan2 T-arcashcanc      C ZOF G((id20E C ZC ZCZ%C4< ^( >aFrcashcan2BU P_CASHFLOW XTIPOCOMPRACASHCANCCASHCAN2XINICIALCMCASHTILDEP_DOSP_CODEMPP_SYSTEMP_UNOIDUCLASECUOTAANOCOMPROBCAUSANOPCASHDATAID2ARR_AAA ELIMINADO8 FTC X%CFG((codins%u E TC4  Ta%T ;CArtculo no encontrado !!! [C] !!! TFG((cuenta E%uFG((codins EFFT  T  TCSdTC d d d d d d T%C \STT(%C%TC%TC - %Cempresas /Q \empresas! T!CWF"-#$ F!T%%ST&&CC' (CC SN66S6ZT))C6C"* "* +V 6^T,,CC' (CC SN66S 6LT--d C"* "* +V 6LT..CCu\S6C/6VT0C0CCu\S6C16VT0C0CCu\S6C26VT0C0CCu\S6C36T445d .T66 7C896T::ST;;CC' (CC SN66S6ZT<<C6C"* "* +V 6^T==CC' (CC SN66S 6T>>C d d d d d d Td C"* "* +V 6LT??CCu\S6C/6T@@5d TAA 7() Q%CC"* "* +V 6% `TCd C"* "* +V 6TCC d d d d d d Td C"* "* +V 6BUBTEMPCOMPXCUECOD_INSBIENESCODINSXENCCOD_CUEMENSAJECUENTASCUENTAT_KILOSKILOS T_RECEPCION RECEPCIONXGRAVADAGRAVADA TX_TOT_COMCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOATRIBUTO T_IVA_ADICTOT_COM TX_IVA_ADICZIVA MAXARR_IVAARR_IVAIVAPERP_SYSTEMXAREAEMPRESASCODIGOP_CODEMPT_TOTALT_INVP_CM_INVENTARIO_VERSION INVENTARIOT_TOTIVAIVACAT XLUGAR_IIBBT_IVAINVT_IVAVART_IBIBT_RETSRET1RET2RET3T_IIIIT_II2II2COEFCOEFICTX_TOTALTX_INV TX_TOTIVA TX_IVAINV TX_IVAVARTX_IBTX_IITX_II2 TTCd TTTd TTC TTT T <T  CC  6d dT<TCC  6d dTATCCC  6d dTTMT  TT Cd TT Td TT!C TT"!T ! T#<T$$CC  6d dT<T%%CC  6d dTAT&CCC  6d dTTMT'()*+,-./$%0&1234 T5% T6 <77 8 T89( '%C condpago.aCC9ZT55-T79C condpago.aCC9Z-T79C condpago.pCC9ZT88C97 T65%8d T:.C!Mal definido el plan de pagos !!!; T6#T<6C6 => T= T> T?< T@+@< TA@BTA@TA@CTA@DTA@ ETA@ TA@ TA@FTA@GTA@TA@TA@%@ %9 %"TA Saldo $"TA Cuota # 1%HI ,%5!TAJK TATL! ($TAJC7-TACC7d T'TLCC7d T 5 %IbTAM  TNCJ%%NITNCIZCCJ*R 1TNCIZ/CCJHZCCJ*RTACN#TATL  "TA Anticipo TAJTATL T==CAT>>CL  ?TA@Cuota #CC@@6Z%HI %5 ;TA@JK C@@6TA@TL@!  :TA@JCC@@67CTA@CCC@@67d T=TL@CCC@@67d T  %I TA@M  TNCJ%%NI :TNCIZ/CCJH@KZCCJ*R ` 6TNCIZ/CCJH@KZCCJ*RTA@CN#TA@TL@!T==C@AT>>C@L!TA@ C@AT@@%= (TACA= TA CA%OSP TLCL>BUQTEMPT_FINAL V_ANTICIPO XANTICIPOTEMP1XINT_FINV_CUOTAXCUOTAV_FINANT_ULTIMOT_IVA XUSAIVAANTCONSIVAIVAANTT_IVA_NC T_INTEREST_TOTALT_DESCOMT_3337T_DTO672T_IMCOM1T_IMCOM2T_IMCOM3T_IMCOM4T_IMCOM5T_IVA52T_3298 T_REDONDEOT_IIT_II2TX_FINAL VX_ANTICIPOVX_CUOTAVX_FINAN TX_ULTIMOTX_IVA TX_IVA_NC TX_INTERESTX_TOTAL TX_DESCOMTX_3337 TX_DTO672 TX_IMCOM1 TX_IMCOM2 TX_IMCOM3 TX_IMCOM4 TX_IMCOM5TX_IVA52TX_3298 TX_REDONDEOTX_IITX_II2 XMAXARRCUOTAS XMAXCUOTAS ARR_CUOTASXPERZ TTS_ERRORMENSAJEANTCUO XFINAL_CUOTASXFINAL_CUOTAS_MEMAXAPLAAPLXNUMEROFXCOD_PRO XOTRO_PROCENTROXXCAUSAXMOTIVOXPLANXFIJOXFEC_COMXPLAZOXAPLXVTOAAXDIVXMONEDA4 T- T T T T T T T T  T % S% ST  T TTCd TTTCd TTTCd TTTCd TTTCd TTTTCd TTCd TTCd TTCd TTCd T(.TCCCd T.TCCCd T.TCCCd T.TCCCd T.TCCCd TTCd TTTCd TTTCd TTTCd TTTCd TT%#%  TCT !#T C 6 T!"(#A*T$"CC"$ TT!!C"$%!"(#%C"$)T$"C"$!  T"(# T$"TTC%d TT%TCd TTTCd TTTCd TTTCd TT%#T%CT : T% T& T'T( T%)G+( ve_pedido(6%CCC6C+oZT,CC-9CCCC6C-d .T6T,T-, %/:T0-La base imponible no supera el mnimo de $ 50%121 k T T3 T T T"(#g T$"T4C5d TT54T4Cd TT4T4Cd TT4T4Cd TT4T4Cd TT4T45T66C6d TT66C6d TT66C6d TT66C6d TT66C6d TTC7d TT7TCd TTTCd TTTCd TTTCd TT"%5   TCT !#T C77 6 T!"(# *T$"CC"$ TT!!C"$%! "(# %C"$ )T$"C"$! \ T"(#X T$"T8TC9d TT9TCd TTTCd TTTCd TTTCd TT%5mT9CT  T9 T: T;T<54 T%121 ; T T= T"(#7T$" C>-T3&'?-T 54=:;@BUAXDE INSCRIPTOT_IVAT_IVA_NCT_DTO672T_FINALTX_IVA TX_IVA_NC TX_DTO672TX_FINAL MAXIVAARRPROVEEDOCONTADOTARJETAIVACATXCATIVAT_DESCOMT_TOTALT_DESC1TEMPT_DESC2T_DESC3T_DESC4T_DESC5T_IBZT_RETSTEMP2T_IVAVARTEMP1 T_IVA_ADICXIMP_TRIXCOEFIVAXACCIVAZIVA MAXARR_IVAARR_IVAT_IIT_IVA52T_3298BASE XTIPOCOMPRA VE_PEDIDO MIN_PER_IIBBXPER_IIBB_CALC IIBB_PROVP_VREDONXPORCENTAJE_IIBBXMSGP_DOSP_CODEMPT_3337 TX_DESCOMTX_TOTALTX_IB TX_IVAVAR TX_IVA_ADICTX_IITX_IVA52TX_3298TX_BASETX_3337IVA_NO_COMPUTABLE T_REDONDEO TX_REDONDEOIF%>%: >BUPROVEEDO XTIPOCOMPRAXFECEMIFECULT4%CxtmpcbN/ T%0F~ ,FG((numero E%C4(TC  6H$% C   6 > % C   67 > % C   6i >% C   6 >% C   6 >% C   6 >% C   6$ :"%Ctmp_importacioneskFQ%<otempcomptmp_importaciones ?odetalleQtmp_importaciones ~FG((numero E%C4|0cm_imp_funcionesimportac (CImportacin inexistente !!! T"%Ctmp_importacionesFQBUXTMPCXDATOTEMPCOMP RECEPCIONIMPORTIMPORTACNUMEROP_IMP_POR_ITEM XIMPULTIMOLOG1 XTIPO_IMPTIPO_IMP REC_DESPA REC_FLETE REC_SEGURO REC_BANCO REC_HONORREC_FOBTMP_IMPORTACIONESBORRARDISTINCTDETALLEACTUALIZAR_IMPORTACIONCM_IMP_FUNCIONESMENSAJE TTS_ERRORFG((codinsFG((cuentaFG-(G-(]>-   CC C        (CS  C 666C C 6d d d d d d TC d d d d d d TCC -CC666CC FC1CC  6666 C ~C %C T-%Cbultoscodigo62E$codigoC ! "6 P> 2E$codigoC !"6F>%$&G-(BU'BIENESCODINSCUENTASCUENTATEMPCOMPCOD_INSCOD_CUEUPDSTKCOEFXMONEDACOEFICXCOEFICIVAPER RECEPCIONCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOIVAFIJOTOT_COM MO_TOT_COMIIFACTORUNIDENSIDADCODALTCODALT1FORBULBULTOSMEDCOD MEDAUXCODCODIGOMEDIDASDUNIABREVuF"~ 5 TCOFG-(>-C SC 6 C C 6d d d d d d TC d d d d d d TG-(BUTEMPCOMPCOD_INSOBIEDATA_CODIGO_VACIO RECEPCIONMAXYIBIENESUPDSTKIVAPERIVAFIJOCOD_CUETOT_COMCOS_LIFOCOEFCOEFICDES_INSDESC2DESC3DESC4DESC5DESCXO MO_TOT_COMFORFG-(>-CC6 d  d  d  d  d d TC d  d  d  d  d d TG-(BUTEMPCOMPCOD_INSBIENESUPDSTKTOT_COM RECEPCIONCOS_LIFOCOEFCOEFICDES_INSDESC2DESC3DESC4DESC5DESCXO MO_TOT_COMFOROBIEDATA_CODIGO_VACIO T T T T T T T T T T  T  T  T  T (TT T T T T T T T T(TTF#)%#) T Ta  # T ! T-+C+ CO V%"#$%C"C% C& C'  ()   C*FH$%CO   T-F # T !BU+T_KILOS T_RECEPCIONT_DESCOMT_TOTALT_INVT_TOTIVAT_IVAINVT_TOTLIN TX_DESCOMTX_TOTALTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINZT_RETSTX_RETST_IVAVAR TX_IVAVART_IITX_IIT_II2TX_II2 T_SUBTOTAL TX_SUBTOTALZIVA MAXARR_IVAARR_IVATEMPCOMPMAXYICONSTIFLAGMAX_PRODMAXYNCOD_INSOBIEDATA_CODIGO_VACIODESC_INSCOD_CUECOS_LIFO RECEPCIONKILOS CALC_X_ITM C%Ccons 8F Qcons#)%Ctempcomp`FQ%FQtempcomp (Q %CtempcompF FQtempcomp (Q& CZG((%CPROVEEDO lFQproveedonombre%CCONDPAGO FQcondpagoplan%CBIENES FQbienesdescins%CCOSTOS FQcostoscodigo%CTCOMPRAS ]FQ \TCOMPRAS%CTCCCOMP FQtcccomptcccord%CAGENTE FQagentecodage%CCCCOMP FQcccompcccord%CCUENTAS NFQcuentascuenta%CCCPROV FQ\ccprov%CSTOCK FQstockcodigo%CCOMPRAS FQcomprascom_ord%CDEPOSITO 3FQdeposito%CBULTOS dF Qbultos%CATRIBUTO FQatributo%CSTKXDEP FQstkxdep%CDESPACHO FQ \DESPACHO%CIDX04 IFQ!\idx04idx04%CMOTIVOS |FQmotivos%CCATPRO F Qcatpro%Cunidades FQunidades%CPROVINC Q&\provinc%CPAISES PQ&\paises%CCONDPAGO Qcondpagoplan%Cnumfac Qnumfac%CMOVSTOCK Qmovstock%Cconver Qconver%Ccodxpro HQcodxpro%Cimportac zQimportac%Cper_prov Qper_prov%Cproaux Qproaux%Cmotinv Qmotinv%Ccos 0Qcos%Cesolcom %010 -Q&\data\CC2Z\esolcom ?QC2&\data\CC2Z36\esolcom%Cdsolcom %010 M -Q&\data\CC2Z\dsolcom  ?QC2&\data\CC2Z36\dsolcom%Cmedidas Qmedidas%Ccashdata V %001 4 .Q&\data\CC2Z \cashdata R Qcashdata%CSYSMSG Q&\SYSMSG%CSYSMSGUE Q& \SYSMSGUE%CSYSMSGUA Q& \SYSMSGUA%CSYSMSGUS : Q& \SYSMSGUS%Cccpag f Qccpag%Cartxpro Qartxpro%Ccom_oper Qcom_oper%C incoterms  Q& \incoterms%Citmdescc 6 Qitmdescc%Civa_com f Qiva_com%CCOSMAN Qcosman%CLINEAS Qlineas%Cgrupos Qgrupos%Creservas " Qreservas%Cusuarios \ Q& \usuarios%? %Ctcccompd QtcccompdBUAABRIR_TABLAS_FIJASCONSTEMPCOMPP_TABLAS_FIJAS XTEMPCOMPREFREFITMREFCAUSA REFERENCIAPROVEEDONOMBRECONDPAGOPLANBIENESDESCINSCOSTOSCODIGOP_PRIVTCCCOMPTCCCORDAGENTECODAGECCCOMPCCCORDCUENTASCUENTASTOCKCOMPRASCOM_ORDDEPOSITOBULTOSATRIBUTOSTKXDEPP_COMMONIDX04MOTIVOSCATPROUNIDADESP_SYSTEMNUMFACMOVSTOCKCONVERCODXPROIMPORTACPER_PROVPROAUXMOTINVCOSP_DOSP_CODEMPP_UNOP_SERVERMEDIDASCASHDATACCPAGARTXPROCOM_OPERITMDESCCIVA_COMCOSMANLINEASGRUPOSRESERVAS P_CM_DATOS_OCTCCCOMPD4 T T CF G((id2%C4ECdCcC66 TC40% 0  S  ] T-R+C+ ?CdCcC66    Y%Q Ta!H % T-J+C+ 7CdCcC66  DTCCdCcC66J%    &      pHjl  QCExiste en formato anterior !!!C Consulte al soporte tcnico. Ta!$   l!%   O%K Ta! h Ta! zH  T- BUXLETRAENCXNUMEROFXNUMERORFORMATEAR_COMPROBANTECCCOMPID2 XTIPOCOMPRAENCONTRECOD_PROPROVEEDOTARJETAXCOD_PROFAC_COM2CAUSADES_PROV XOTRO_PRO XFCE_TIPO2FCE_TIPOXLIQPROD XFCE_TIPO P_PROVCONTCUITXCUITLETRAMENSAJEQ<  T-%Q BF G((op E TC4%7% B 3Eoccprov OPCC Z    %  B / B J BUXOPXCUOXMONEDA XEXISTEREF XARR_EXISTECCCOMPOPMONEDACCPROVCOMPROBCAUSACOD_PROXCOD_PROCUOTA T Ta%@co_aut%T %%trsacstkxdepstockcomprascccompccprovconstcomprastcccompimportacdiariogconceptoper_provproauxconvercoscashdatacashcanccashcan2iva_comitmdescc trsacstkxdepstockcomprascccompccprovconstcomprastcccompimportacper_provproauxconvercoscashdatacashcanccashcan2iva_comitmdescc %trsacstkxdepstockcomprascccompccprovconsimportacdiariogconceptoper_provproauxconvercoscashdatacashcanccashcan2iva_comitmdesccC ccvent6 trsacstkxdepstockcomprascccompccprovconsimportacper_provproauxconvercoscashdatacashcanccashcan2iva_comitmdesccC ccvent6%" T  CM_COMPRAT FC/NC/ND/NCPR/NDPRHw MT Factura de compra %T Nota de dbito de compra &T Nota de crdito de compra -T  NC propia al proveedor de compra >-T  ND propia al proveedor de compra w&T Factura de compra contado T trsac  F%G((codpro E CTC T%#T%G Ttrsac  %%  Hc TC Te Tf !T1 BT2 cTC!TC@z 9999,999,999_CH*    Ta T C * C !%C oDocumentosbO 8T!"CcuCev66T!#OP C Z C!$ T  %  % T T% 9 T% P   iCTNo se puede registrar la operacin ya que corresponde a un ejercicio inexistente !!!& T BU'AAA XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTXFECDGIXORDENLOCK_GTRSACXLIQPRODTRAN_PRGTRAN_TXT XTIPOCOMPRABEG_TRANPROVEEDOCOD_PROXCOD_PROCODPROREG_LOCKXOK WRITE_DATA_OP TTS_ERROREND_TRANP_OPXXXCAUSA XXXCOMPROBNOPUSER_LOG PUB_INDEX XOLD_XDIVXDIVVOPOCNCNDIMP ODOCUMENTOS CPBT_CAUSACPBT_COMPROBANTEIMPORTAR_ARCHIVOS_PENDIENTESTTS_IDMENSAJE4F~CC - CUTEMPCOMP RECEPCIONTRANSF CLEARDATA@F>5>g>     +>5>+>-> !"N#N;>$%& ' (S>)*+,-./0!>123>45 BU6TEMPCOMPCOD_INSSTOCKALQUILERSTOCKKPESOPESONETOLISPRECOEFXMONEDADES_INSDESC2DESC3DESC4DESC5DESCXOCOSTOCOEFICXCOEFICCOS_LIFOTIEMPO RECEPCIONKILOSMEDIDACOD_CUECOMISIONCUENTAATRIBUTODESC_INSTOT_COM INVENTARIOII CANTXBULT VOLXBULTO COMPUESTOCONJUNTOCENTRO SUBCENTROBULATRPRECIO_BDIM1DIM2R1SOLSOLITMREFREFITMARTUNIDUNIDENSIDADIVAPERIVAFIJOQ 4FTCfiltervG(%ZFS T-FG((orden"T  \tmp\tcompras.dbf ( FQ  i1qq N S F E T  T-)+C+   % T  ^(F _> CtcomprasOT  FH T)+C+   {T^(F !%  R_> CtcomprasOFT  HF % BC5ERROR !!! Avisar al soporte tcnico del error 896998.9C+Ac no debera entrar nunca !!!!! Suspendo?a  F+CN >F ~ %  FG(( referenciaEC  ZC ZO TC4G((%C4 {%C  : -C%CO6<CSupera el mximo por factura (CCZ) !!!. w3-CC  C CO F>   ! !" "# #$ $% %& &' '( () )  * *+ +, ,- -. ./ /0 01 12 23 34 45 56 67 78 89 9:CC ; S6< =>C  Z? @OA B C *>D DE FF %G$>H I 1 2 T%/>H 1 2 P>H  H>JC K L LM MNHOL X>PCC @CJ+CPPCOO 6666>Q QR R7>S TU VW XY Z1T[[ U W Y %\>] ^>_ _8 8 T` Ta Tb9c cm_compraC ZNF`ab%ep @f cm_compraC  ZN CtempcompOF >g`>CCa a6 >hb4%C5 5iij # FiG((codigoE5>lim4%C6 6nnj FnG((codigoE6>onmF FG((F Q .dbfF0>pq!HLHOF%C F set filter to &xsetfilter BUsXORDENXVACIO_TEMPCOMPXDERECEPXTRER_SOLO_ADICIONALES XSETFILTERTEMPCOMPXNUEVOTCOMPRASORDENTMPP_LOCALQQCRECNOMAXYIOKCOD_INSOBIEDATA_CODIGO_VACIOZXZITMMAXYN FACTURADO RECEPCIONXSOLOSALDOFACTMENSAJESYS_MOSTRAR_SCREENMAX_PRODMAX_DESC REFERENCIAXENCDESC_INSCOD_CUEKILOSCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOTOT_COMCOD_CENCOD_ALTNOM_ALTCOEFMONEDACOEFICGRAVADACOMISIONRECEP2RECEP3CENTRO SUBCENTROBULATRMEDIDAARTIVAPERIVAFIJOP_CM_IVAIMPORTIMPORTACREFREFITMREFCAUSAREFRECNOREFTOTALNUMEROSOLSOLITMITEM XMODIFICAREFSALDO ENTREGADOUNICM_UNI2CANT_U2 PRECIO_U2 REFSALDOU1FACTORDENSIDADLINEAGRUPOIBIBEXRET1RET_GANRET2RET_IB1RET3RET_IB2 XRETENCIONES P_SEGTRANTARATRANENTREGAXNOTAXDESCRXIMPDATOS_POR_ITEM_TRAER CM_COMPRA P_CM_RESERVASRESERVAS_TRAERCPBTTXT ADICEXPORTBULTOSCLAVECODIGODBULDESCRATRIBUTODATRTEMPORAL TEMPORAL1ALL TtrsactcomprastcccompccprovconsconveritmdesccreservasCtcccompd6%T CM_COMPRATOrden de Compra TP trsacC C @z 9999,999,999_6NF C T TC T%Ttrsac% CC  ZN T'a TC !%C oDocumentosbOTNTOC C  Z C T T  T BU XIMP_FORMXDESTINO_FORZADO XSILENT_MAILAAALOCK_GTRSAC P_CM_DATOS_OCTRAN_PRGTRAN_TXTBEG_TRANXORDENPROVEEDOREG_LOCKXXCAUSAXOK WRITE_DATA_OCEND_TRAN TTS_ERRORUSER_LOG PUB_INDEX XOLD_XDIVXDIVVOPOCXDICMSG_REVISAR_SOL_CUMPLIDAS ODOCUMENTOS CPBT_CAUSACPBT_COMPROBANTEIMPORTAR_ARCHIVOS_PENDIENTESTTS_ID T-F$%  F>FG((tcccord E%C4% %  KCLa orden de compra CC@z 999,999,999_ ya existe !!!  B %  T CTNC ZNModificacin de OC cm_compra.prg TF~ TF~>Iproc_stk-cF6T C@z 9999,999,999_PCZCZ(~!"C#ZC$Z #qcos!"C ZNF&*%'    >F(#) T T)a#) T*+%+#) T*+ T)a  #,T*,- T)-T.NT/Cprocv T0G+( cs_generar+CO*V%23%CC4 C5 C6  7  %8( C(bienescodinswT9(6(:d (;d (<d (=d (>d (?d (@%CA %B C %DE cs_generar(((FGH9(:(;(<(=(>C ZNa(6  E cs_generar(((FGH9(:(;(<(=(>C ZN-(6%8( C(bienescodins%I5(5!C(5cuentascuenta%C( :%C(((JstkxdepCODDEP CrstkxdepK(((JF(!%23 T.SF>L(L%M,*>((N(NU>5(5OP(((QF>(7(76(6R(?@(@:(:;(;<(<=(=>(>S(S>TCC(7 (7(6(6C(U(U6(:d (;d (<d (=d (>d (Sd TA>4(45(5V(VW(Wb>X(XYC(ZE\[([\(\](\U(U^C$>((Gproc_stk(((J-(((% 5 %(_ >`(_ 1 _b ] F(>_CtempcompOF>`(_>c(c_(d7>e(ef(fg(hi(i^>j(kl(lm(m(Ln(no(op(q*>r(st(uv(w%xs >y(z>{({ T|T0C|}%C0 C0 B?T~C~|"C~| | ~66B cm_compraC ZN(_((4(%= cm_compraC ZN(_CtempcompO TT(T(T(5"TC TT(T(TCF > > >F(H$%+CO* )  T)-F( #,T*,-%c%~_HC;Hay ms de un solicitante en las solicitudes utilizadas !!! BG+(set procedure to &xsets G+(cm_procsF T]> OP#&%Ctcccomp.quincenabDG>$%Ctcccomp.usrsolbN>~X>T>QFaOP.;<=>>>>U^C$g>?@]H5>Jy]>CDCDBGg% > T T TTTTTTHf  #cm_procsa  %C% C- !TCH TTDEFINIRTCTCTCTCTC  T T T  TT T T TF+>   % 9>  F>!C@z 9999,999,999_"PFRef.:CC Imp:CCZ6C$FOP]HU^C$C@z 9999,999,999_PCZCZC]% cm_procs$%Ctcccomp.usrsolbN*>~%FG((orden E%C4  >> BU XERR_CENTRO_DE_COSTOSPROVEEDOCOD_PROXCOD_PROTIPOIVAXTIPOIVATCCCOMPTCCCORDNOC XMODIFICAXPREGUNTA_OPOCP_CM_OC_MANUALMENSAJEXDTMXTCCC_DEPOSITODEPOSITOUSER_LOG PUB_INDEXXORDEN XOLD_COD_PROORDENINTCOMPRAS ACTUALIZAR_OCPROC_STKCOD_INSATRBUL RECEPCIONRECEP2RECEP3CCPROV XID_CCPROVCOMPROBCAUSACUOTAOPCOSCONS XNOC_AUTOTEMPCOMPIFLAGCONSTMAXYIMAX_PRODMAXYNINVEXSETSXMSG_SOL CS_GENERAROBIEDATA_CODIGO_VACIODESC_INSCOD_CUECOS_LIFOKILOSBIENES XCOSTO_COMPRADES_INSDESC2DESC3DESC4DESC5IIII2P_COSTO_COMPRAS_FCXIMP_TRIIVACAT P_CS_IMP_REPAGREGAR_COSIMPXFECEMI XINCOTERMXMONEDACUENTAS XDEPOSITOCODIGOARTP_GESCOMMEDIDADES_PROV XOTRO_PROFEC_COMIIPERDESCXOTOT_COMCOEFICCOD_ALTNOM_ALTGRAVADAAFECCOMIATRIBUTOCOMISIONCOEFMONEDAHOYITEMITMARR_TMP XNEXT_ITMSOLSOLITMPRODIVAPERIMPORTACIMPORTENTREGACM_UNI2UNICANT_U2 PRECIO_U2LINEAGRUPOIBEXIBRET_GANRET1RET_IB1RET2RET_IB2RET3 P_SEGTRANTRANTARATIPO_IMPXSOLICITANTE_TMP VALIDAR_SOL XOC_SOLICITADATOS_POR_ITEM_GUARDAR CM_COMPRACPBTTXT ADICEXPORT P_CM_RESERVASRESERVAS_GUARDARXTMP_CEN_GLOBALXCENTROXTMP_CEN_LOCALCENTRO XTMP_CEN_ART XTMP_CEN_CUEXCENTRO_DETERMINADODETERMINAR_CENTRO_DE_COSTOSXTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCAL SUBCENTROXTMP_SUBCEN_ARTXSUBCENTRO_DETERMINADODETERMINAR_SUBCENTRO_DE_COSTOSCOD_CENP_CM_CO_SOLICITANTESCM_PROCS NUM_ORDENDTXDTDTMDEUDAT_FINALREDONDEO T_REDONDEOANTICIPO XANTICIPOPLAZOXPLAZOXCUOTAQUINCENA XQUINCENAUSRSOLINT_FINXINT_FINT_TOTAL T_IVA_ADICPLANXPLANFIJOXFIJODESCPLAN XDESCPLANIVA_COMT_IVAIVA_NCT_IVA_NCFEC_ENTXFECENTAPLIC INVENTARIODESC1T_DESC1T_DESC2T_DESC3T_DESC4T_DESC5USRGUIAOAKXOAK OAK_FECHA XOAK_FECHAP3337T_3337DES_COMT_DESCOMIVA52T_IVA52XCOEFICPERIBT_DTO672IMCOM1T_IMCOM1IMCOM2T_IMCOM2IMCOM3T_IMCOM3IMCOM4T_IMCOM4IMCOM5T_IMCOM5T_IIT_II2CUITXCUITCOFINXCOFINDIVXDIVUNXUNLUGARIB XLUGAR_IIBBXTRANFACTOR XFACTORIMPFACTORFF XFACTORFFIMP_TRIINCOTERMOC_EXTXOC_EXT GANANCIASXREGIMEN_RETGAN XIMPORTACDIRENTXDIRENTP_CENTRO_DE_COSTOS_VERSION XAUTORIZADAXQUIENXQUIENESXAP_USR1XAP_USR2XAP_USR3XAP_USR4XAP_USR5P_OC_AUTORIZACION AUTORIZAR_OCOAP HABILITADOINIT ID_CADENAP_CM_OC_AUTO_AUTORIZACIONACCESOEVALUAR_APROBACIONUSUARIOS XAUT_ESTADOXAUT_USRNOTASXTXTCPBTREV XREVISION AUTORIZADAAUT_USRAP_USR1AP_USR2AP_USR3AP_USR4AP_USR5FECHACOMENTARIMPORTEVENCCONDFECREFIDIDUACTUALIZAR_DATOS_OC P_CM_DATOS_OCTCCCOMPDRETIRA XOC_RETIRAAPRUEBA XOC_APRUEBABH %ABTWMODBa 9C,No puede emitir este tipo de comprobante !!!B-  %C-C Slo puede emitir facturas C !!!B-  Ba %ABC s4C'Slo puede emitir facturas A, B o C !!!B- Ba %E 7C*Slo puede emitir facturas o tickets E !!!B- Ba0C#Clasificacin de IVA indefinida !!!B-UXCATIVAXTIPOCMENSAJE45 TCF TCOG(( inscripcio E T- T%C4 [%C#Ya hay un proveedor con ese CUIT [].C  Contina ? TaG((codpro # F B U XCAAAPROVEEDOREGPROV INSCRIPCIOENCMSGXCOD_PROCOD_PRO MENSAJE_SINOCODPRO45 TCW%Cproaux DQproauxF G((op E%C4  >]>    FBUXOPAREAPROAUXOPNOMBRE XOTRO_PRO DOMICILIO XI_DIRECCIONCIUDAD XI_CIUDADZIPXI_ZIP PROVINCIA XI_PROVINCIAPAISXI_PAISCUITXCUITPHONOXI_PHONOEMAILXI_EMAIL 45 TCW%Cproaux DQproauxF G((op E%C4 yB-  T T T T  T  T T T T FBUXOPAREAPROAUXOP XOTRO_PRONOMBRE XI_DIRECCION DOMICILIO XI_CIUDADCIUDADXI_ZIPZIP XI_PROVINCIA PROVINCIAXI_PAISPAISXCUITCUITXI_PHONOPHONOXI_EMAILEMAIL 5 Ta T! co_comprasa% T?C(Error al registrar el asiento contable: C B-BaU XRESULTADOXMSG REG_ASIDIA CO_COMPRAS TTS_ERRORMENSAJEF%H G((cuit E%C4 Dq>   BUPROAUXCUITXCUITNOMBRE XOTRO_PRO DOMICILIO XI_DIRECCIONCIUDAD XI_CIUDAD PROVINCIA XI_PROVINCIAPAISXI_PAISZIPXI_ZIPPHONOXI_PHONOEMAILXI_EMAILCATIVAXCATIVATIPOIVAXTIPOIVA4% c%CHCHHTC% _ T z TBUXFECDGIXFECEMI XFECEMI_PAG %CxordenbL@T F#)-CCO %C4 F G((conver E%C4 B %Cmotinv QmotinvF G((codigo E 4%    I D jC>La operacin no corresponde a una recepcin de proveedores !!!C C Motivo:   B T- T-F '+Cconver+  { *%   b T T % I< &otcccomp% TC%^ T:%CC  ZC ZcomprasrefordenFG((reforden8+C+ %CZC  ZC Z %MT H% :%CC  ZC ZcomprasrefordenFG((reforden8+C+ %CZC  ZC Z %OT HF T! " #%!$ Z F%CCO  )-$CCO %C4 % B> C$! " #6 % %& & ' C  Z M(CCONVERO) "*!+ ,- ./ 0 1%  F2G((ordenitmEC ZC Z%C4 456T627%289 L T4 T5.:listados456<289% =%4~CHLa moneda de la OC no se corresponde con la de la factura en proceso !!!C Los importes sern convertidos. 9CHLa moneda de la OC no se corresponde con la de la factura en proceso !!!C 7Al convertir los precios se produjo el siguiente error:5 TaFy>76=989>?@2@A2AB2BC2CD2DE2E%2Ft ,TGC2  2H2 6F[>I2IHC2 2H 2 6JKGL*  >J%M >N2NOS  FPG((codins EF>7PR O FPG((codins EF>7PRF l F H  B BUSXMOVNUMXCOD_PROXORDEN XFACTURADOXREGXREF3UTEMPCOMPCOD_INSMAX_PRODCONVERMOTINVCODIGOMOTIVOTIPO TIPOAJUSTECAUMENSAJEDESCRXERR_CONVERSIONTRANSFORDENTMP_PROVCOD_PRO TMP_ORDEN XIMP_ARRAYTCCCOMPITEMCOMPRASREFORDENREFREFITMREFCAUSA RECEPCION XSALDOFACTENTRASALEXSOLOSALDOFACTBULATR TRANSFITEMREFRECNOREFTOTALREFSALDOENTREGAFECHAIMPORTIMPORTACNUMERODESC_INSPERSONATCOMPRASORDENITMXERR_CNVXMSG_CNVXIMPORTE_CONVERTIDOCOS_LIFOMONEDAXMONEDACONVERTIR_ENTRE_MONEDASLISTADOSXFECEMICOEFCOEFICXCOEFICDES_INSDESC2DESC3DESC4DESC5DESCXOCM_UNI2XFACTORCANT_U2 PRECIO_U2UNIFACTOR REFSALDOU1P_CM_IVAIVAPERIVAFIJOBIENESCODINS COS_LIFO1vF#) -C F ~f F ^JF%C+`>C6          %\!>  }>%> FG((codins EF>%@TCtempcompOC #FH%C+b BUXALIASTEMPCOMPCOD_INSOOBJ RECEPCIONBULATRUNIDES_INSDESC2DESC3DESC4DESC5DESCXOENTREGAII2DENSIDADFACTORCOS_LIFOBIENESCODINS COS_LIFO1XTCRNPASAR_A_CM_UNI24FG((tcccord ETT % yT   #T C   T F TTC X T-T T T T T T T ! T"# T$% T& T' T() T*+ T,-%.T,N T,S T/0T1S T23%45  T671%Ctcccomp.quincenabD8 "T9C6:"T9C6:!T9C6:!T9C6:!T9C6:T9T9T9T9T9T;< T=%C;T=C89T;C89 >(8%C>9;4 T=>!%>FC9Quincena invlida, debe asignar una quincena correcta !!!? T; T= /T6C4@ C$6 T; T= TA6TBCTDETFGTHI%TJCCKCXK6TLMTNOTPQTRSTTUTVWTXYTZ[T\]T^_T`aTbc%FG((codpro EFTefTghTijTklTmnTopTqp%r4 9Too% %yCt-s %C-as %Cs!%C oDocumentosbO@TuvNTuwOC C Z Cux$%Ctcccomp.usrsolbNxTyz%{F|G((ordenCtcccompdordenT~|T|UXORDENXINCLUYE_DETALLEXVACIO_TEMPCOMPXTRER_ADICIONALESTCCCOMPTCCCORDXDTDTXDTMDTMP_CM_VERSION_RECEPCIONCON_RECE P_OP_SINSTK CON_RECEPCIONXDERECEP HUBO_RECEXCOD_PROCOD_PROXPRODEU XIMPORTACIONPROVEEDOCUE_DEU XDEUDA_OCDEUDAXVENC_OCVTOXPLAN_OCPLAN XOTRO_PRODES_PROVINVE INVENTARIOXPLAZOPLAZOXCUOTACUOTA XANTICIPOANTICIPOXPLANXVTOXFIJOFIJOXCUITCUITXCOFINCOFINIVACATXINT_FININT_FINXSUBDXFECENTFEC_ENT XTIPOCOMPRA XMODIFICAXFECEMIFEC_COM P_CM_QUINCENA ARR_QUINCENA FN_QUINCENA XQUINCENAQUINCENA XQUINCENANZMENSAJEP_CM_FECHA_VACIA XFECEMI_PAGXMONEDAMONEDAXCOEFICCOEFICXDIVDIVXDIRENTDIRENT XDEPOSITODEPOSITOXCENTROCOD_CEN XFACTORIMPFACTOR XFACTORFFFACTORFFXREGIMEN_RETGAN GANANCIASXIMP_TRIIMP_TRI XINCOTERMINCOTERMXTXTCPBTNOTAST_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5CODPROXTIPOIVATIPOIVAXOC_EXTOC_EXT XIMPORTACIMPORTAC XLUGAR_IIBBLUGARIBXTRANTRAN XREVISIONREVXREVISION_ACTUAL P_CM_REVISION LEE_TEMPCOMPP_CM_PRIORIDAD_RECEPCION ODOCUMENTOS CPBT_CAUSACPBT_COMPROBANTE LEER_ARCHIVOS XOC_SOLICITAUSRSOL P_CM_DATOS_OCTCCCOMPDORDEN XOC_RETIRARETIRA XOC_APRUEBAAPRUEBAp>sys_procesandoBuscando recepciones pendientesFCO%Cmotinv Qmotinv%C tmpmovsueltoFQ%C tmpmovsuelto1FQoconverQXtcccompQ XcomprasQ C ZC!ZCZ M conver2Q Q Q CC  6QQCCQCQQQQ #R #I  C$SN  % C&a &6  '   tmpmovsuelto1?o tmpmovsuelto1  tmpmovsuelto%C tmpmovsuelto19FQF& & &  T) ~ T))C'&*%)!%)PFrC'Hay demasiados artculos pendientes !!!C C .Debe ingresar los movimientos individualmente.+,sys_procesandoU- SP_MENSAJESYS_PROCESANDOTEMPCOMPMAX_PRODMOTINV TMPMOVSUELTO TMPMOVSUELTO1CVTRANSFCOD_PROPROVCV2FEC_REMFECHAFECIMPORTACCM RECEPCION CMRECEPCIONENTRASALE CVENTMENOSSALREFCMREFREFITMCMREFITMREFCAUSA CMREFCAUSACONVERTCCCOMPTCORDENCOMPRASITEMCONVER2CAUPEND REC_MANUALXORDENXCOD_PRODISTINCTXERRLEER_MOVIMIENTO_INVENTARIOMENSAJESP_OCULTAR_DEFINITIVAMENTEY(TC%C termina_ocTFQotcomprasCCC 6TQ CCC  6TQ CQ  termina_oc3TC  d6T-3TC  d6%Ctcccomptcccord+>CC T- cm_oc_termina(%(%C T;trsacccprovtcomprastcccomp%T CM_COMPRACT6Actualizacin de la Orden de Compra (Automticamente) TtrsacCC TtrsacTN)TCC@z 9999,999,999_C T  VNo termina la OC CCC@z 9999,999,999_ N2No termina OCs.BU ZZZ OC_ARR_MAXXORDENOC_ARR TERMINA_OCORDEN RECEPCIONRECEP2RECEP3 SUMA_CANT FACTURADO SUMA_FACTCUENTATCOMPRASTCCCOMPPER_FACPER_ENTXRES CM_OC_TERMINAAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TERMINA_LA_OCEND_TRANXXXCAUSA XXXCOMPROBUSER_LOG PUB_INDEXTTS_ID4FG((tcccord EF>NFG((orden E+C+  >NHFG((comprob2EC@z 9999,999,999_PCZCZV%C4E  C ZC ZC@z 9999,999,999_PCZCZ NCC@z 9999,999,999_NTermina la OC. \CC@z 9999,999,999_NNo encontr la OC en ccprov.BUXORDENTCCCOMPTCCCORDPENDTCOMPRASORDENCCPROVCOMPROBXCOD_PROCOD_PROCAUSACUOTAOPINUSER_LOG PUB_INDEXOC_ARRZZZ %~FT>  CCtempcompO  #)%F3~ CCtempcompO   > > > #> C6 #>C6#> C6#>C6#>C6 #>C6#> C6#>C6UXUNIXPUNTUALTEMPCOMP RECEPCIONCANT_U2COS_LIFO PRECIO_U2REFSALDO REFSALDOU1II2II2_U2FORUNICANT_U1FACTOR PRECIO_U1II2_U1MT$%  =< T->in_controlar_soltmpa% 9 T-&in_controlar_sol%)DB La solicitud CC@z 999,999,999_ no existe !!! 5%_BEl item CCZ de la solicitud CC@z 999,999,999_ no existe !!! 1B La solicitud CC@z 999,999,999_ est CC Abierta#C Cerrada Anulada66@!!! BU XSOLICITANTETEMPCOMPSOLSOLITMXRES_SOLVALIDAR_SOLCOMIN_CONTROLAR_SOL VALIDAR_SOLLLotcompras C tmsgtcmp ~EF<TCMensaje_solicitud Mensajes.vcxa T T T T %C A %=C UXORDENXIDSSOLITEMTCOMPRASORDENTMSGTCMPOMSGMSG_LEER MSG_SUBTIPO DAT_SOLICITUDDAT_ITEMOBJ_ABMOBJ_BUSCAR_SUCESO DAT_CANTIDAD DAT_ADI_OC ACC_ESTADON%C TMPCOSCOM G,ocos_acom-Q- tmpcoscomURECIBIDACOS_ACOM TMPCOSCOMU%C TMPCOSCOM S%OCTMPCOSCOM CERRADOB-|rcos_acomo tmpcoscomQ    UP_DEVMENSAJETCCOD_CLIFAC_VENCAUSAITMITM2XCOD_PROXNUMEROFXCAUSACOM_ASIGITM_C TMPCOSCOMH SAMTCCC$01g+aFG((tcccord E%C4 ~!T 2F#)TBUP_EMPNOCTCCCOMPTCCCORDCONSORDENg Ta T T(.%CC TCTCTCT%%C KT +  T  (%C3TC{Gz?CT{Gz?CT{Gz?C% G%CError de loop Suspendo?a CError de loop !!! T- BC5Diferencia de IVA !!! Consulte al soporte tcnico !!! T-C Suspendo? TCT+%S  %C ET +  T  (%C3TC{Gz?CT{Gz?CT{Gz?C% A$CError de loop Suspendo?  BC5Diferencia de IVA !!! Consulte al soporte tcnico !!! T-C Suspendo? (W.%CC SRriva_comCCC BUZIVAXOKXACC_IVA_PESOS XACC_IVA_MO MAXARR_IVAARR_IVAXDIFT_IVAT_IVA_NCP_CM_AJUSTE_IVA_PESOSXLOOPSYS_MOSTRAR_SCREENMENSAJESYS_MTX_IVA TX_IVA_NCXDIVXMONEDAP_CM_AJUSTE_IVA_MEOPTASAIVAIVA_MONOP4F G((idECZ%C4TCTC T BU XCOMPROBXCAUSAXITMXNOTAXDESCRXIMPITMDESCCIDNOTADESCRIMP4F G((idECZ%C4 x!>  !>   BUXCOMPROBXCAUSAXITMXNOTAXDESCRXIMPITMDESCCIDCOMPROBCAUSAITEMNOTADESCRIMPm%Cmotinv *Qmotinv%C tmpmovsueltoVFQoconverQXtcccompQ XcomprasQ C ZCZCZXmotinvQ XbultosQ   !XatributoQ#   !conver2QbienesQ&CR I  CCX6QCC   6Q   QCCC CCқ CCқ2QC'C(  I C)  * C+SN C,a ,6    - tmp_recepciones_pendientes& & & & & U/MOTINV TMPMOVSUELTOCVTRANSFCAUCOD_PROTCPROVCV2FEC_REMFECHAFECIMPORTACCOD_INSATRBULENTRASALECANTIDADDESCRBUCONVERTCCCOMPORDENCOMPRASCMITEMREFREFITMMOMOTIVOCODIGOBULTOSCLAVEATRIBUTOACONVER2BIENESBTIPO TIPOAJUSTE RECEPCION REC_MANUALPENDXORDENXCOD_PROTMP_RECEPCIONES_PENDIENTES%C tmp_reservas(FQ"T\tmp\CC]ROh1N N NNQ& BU TMP_RESERVAS XRESERVASP_LOCALREGISTROPEDIDOPEDITMCANTIDAD4&CZCZF ~ Xrreservas      BUXCOMPROBXCAUSAXITM XREGISTROINRESERVASCOMPROBCAUSAITM TMP_RESERVASREGISTROPEDIDOPEDITMCANTIDAD!4%*BF T(~CZCZHr tmp_reservas       %CTPD:CC Z T PD:VariosF > BUXCOMPROBXCAUSAXITM XREGISTRORESERVASXTXTCOMPROBCAUSAITMREGISTROPEDIDOPEDITMCANTIDADTEMPCOMP DESPACHOEX_TC00000CCCZ6R-C00000000CCCCZ6RVTC00000CCCZ6RC00000000CCCCZ6RBUXNUMEROFXLETRA P_CM_CPBT_LETXNFSXNFNXNUMERORXNRSXNRNH/  %    T T TT TT T T T T T T T T T| cs_generar  C$% T =%Ccosimp Qcosimp T T TT TTTI T T T T T T T Tk cs_generar !C$ TBU"XCOSTO XDESCUENTOXDESC2XDESC3XDESC4XDESC5XMONXCODXBULXATRXDSPPROVEEDOIVACATXIMP_TRI XERR_COSTO XMSG_COSTO XFECHA_COSTO XMONCOSTO XFECHA_TCXMONORIXCOSORI XCOSTO_ORI OBTENER_COSTO CS_GENERARCOSIMPXTIPOXCOMPROBXCAUSA XCOSTO_BASEOBTENER_COSTO_REPOSICIONTEMPCOMPCOD_INSBULATR`TC %B BcHWP AH| C % B<  B C B C  B< C B B C j BQ d  B d  B d  Bs c 0% B< , B c X B c  Bp BH C % B=  B C  B C G B= C o B  C  BR d  B d  B d  Bt c ]%F B= Y B c  B c  Bq CjHf C  B  C & B C N B C v Bo d  B  d  B d  Bu c  B  c > B c f Br MH C % B:  B3 C  B6 C - B: C U Bv d } B4 d  Bx c  B5 c  Bw T BQ W3 BR OP Bc BUXLETRAXCAUSAXLIQPRODXTIPO_FAC_REC_TCKTC %Cccvent DQccvent%Cclientes vQclientes%Csucursal Qsucursal%C cpbt_liq_prodQ TC$H .T cv.liqprod=0 e$Tinlist(cv.liqprod, 0,2) $Tinlist(cv.liqprod, 0,2) T.t. 2T cv.liqprod=0select cv.cod_cli, cv.fec_ven as fecha, cv.fac_ven as comprob, cv.causa, iif(cv.causa="V","FC",iif(cv.causa="c","NC",iif(cv.causa="d","ND","XX")))+" "+cv.fac_ven as cpbt, cv.pedido, cv.deuda as importe , nvl(cl.nombre, space(40)) as nombre , nvl(su.nombre, space(40)) as dsucursal , cv.liqprod#0 as tilde , cv.fcdere as fcdere , cv.iva_ven as iva_ven , cv.liqprod#0 as tildeold , cv.moneda , cv.coefic , iif(between(cv.moneda,0,5), mm_moneda(cv.moneda+1,2), "---") as montxt , iif(val(right(cv.rem_ven,8))=0,space(12), cv.rem_ven) as remito from ccvent cv left outer join clientes cl on cv.cod_cli=cl.cod_cli left outer join sucursal su on cv.cod_cli+str(cv.suc)=su.cod_cli+str(su.sucursal) where cv.cod_cli#"0 " and !empty(cv.cod_cli) and cv.causa#"r" and cv.fec_ven>=xfecha_ini and &xfiltro into cursor cpbt_liq_prod readwrite & & & & & & & C Z& & BUXTIPOCCVENTCLIENTESSUCURSAL CPBT_LIQ_PROD XFECHA_INIXFILTROP_CPBT_LIQ_PROD_FCPBTPEDIDONOMBRE DSUCURSALCOEFICREMITOMONTXTMONEDAIMPORTEFECHA  T- T T TS  T TF~T   T &T C  'TCC, 6 oventasccvent Q!"# # #    cpbt_liq_prod24%%& $&   TaCEl comprobante C VFC5C cNCC dNDXX666  0 tiene distinta moneda de la del comprobante !!!C 3No se actualizar automticamente el tipo de cambio'~C$ %Cclientes WQclientes"C)clientescodcli T* T+ T, T- T. T/;C*+,-./&$$$0 rtempcomp12345678"$$$$*&9$$d   $(:$ $$$$"+T$$$d DT$$$d C& $6T&%%&  ;%% T;a UgT;CSActualiza el tipo de cambio segn los tipos de cambio de los comprobantes de venta?<%;%T9C T bC;El tipo de cambio determinado por los comprobantes es 0 !!!C No se actualiza.'F+CN= (F~ T   T &T C  'TCC, 6 voventas#  cpbt_liq_prod2~C$ %Cclientes tQclientes"C)clientescodcli T* T+ T, T- T. T/rtempcomp12345678$$$$*$&9$  $(:$ $$$TF+CN=>  BU?XCAMBIO_PROMEDIO_ERR XLIQPROD_IVAXITMXITM2TEMPCOMPXACC_ME XACC_PESOS CPBT_LIQ_PRODTILDEXIDCOMPROBCAUSAIVA_VENXLIQPROD_REM_DETREMITOS_LIQ_PRODREMITOFCDERE XLIQPROD_REMVENTASCOD_INSATRBUL RECEPCIONCOS_LIFODES_INSMONEDACOEFICITMTOT_VENDESC_INSCOD_CUECCVENTDES_COMNETOPEDIDOFAC_VENCPBT_LIQ_PROD2P_CPBT_LIQ_PROD_CAMBIOXMONEDAMENSAJECLIENTESCOD_CLIXCOSTO XDESCUENTOXDESC2XDESC3XDESC4XDESC5CM_COSTOUVENREFREFCAUSAREFITMDESPATXT VALORCBIODESPAPCK DCODATRBULXCOEFICNOMBRE XOK_LIQPROD MENSAJE_SINOMAX_PRODMAX_DESCT%Cventas =Qventas T%CCRg%T dfsghsdklfF~% 'TCC, 6  T  D$TC=00C \ BU XCOMPROBXCAUSAXREMITOXFCDEREVENTASXTMPXOLDFAC_VENCAUSAREM_VEN T-%  T-TCX%C CC6Debe tener un centro de costos a nivel comprobante !!! Ta T T -%C g% / C bienescodins%C cT T a&%C      T%Ccuentascuenta%CI\S%C % sC0Debe tener seleccionado un centro de costos !!! CCC Cdigo: CCuenta: C6 Ta % B B  BBUXERR_CENTRO_DE_COSTOSXTMP_CEN_GLOBALXTMP_CEN_LOCAL XTMP_CEN_ART XTMP_CEN_CUEP_CENTRO_DE_COSTOS_VERSIONXCENTRO_HEREDADOP_CM_CENTRO_DE_COSTOSMENSAJE XHAY_POR_CODBIENESCOD_INSCOD_CENP_CM_CEN_POR_ARTCUENTASCOD_CUEATRIBUTOP_CO_FORZAR_CENABREVc%E  T- T T-%C % Cbienescodins%C T Ta&%C     T%8T  B B X BBU XTMP_SUBCEN_GLOBALXTMP_SUBCEN_LOCALXTMP_SUBCEN_ARTP_CENTRO_DE_COSTOS_VERSIONXERR_SUBCENTRO_DE_COSTOSXSUBCENTRO_HEREDADO XHAY_POR_CODBIENESCOD_INS SUBCENTROP_CM_CEN_POR_ART TTS_ERRORY%Cq_xxxx&QEotempcompC CC   q_xxxx TCN%Cq_xxxxQ%B%C tmp_sol_oc "Q\tmp\tmp_sol_ocF+CN  T  T F ~+%C 'FT   # u>       C  F(cm_procsC  D%Cq_xxxxNQBUXREGQ_XXXXTEMPCOMPCOD_INSCOD_CUE RECEPCIONP_LOCALMAX_PRODMAX_DESCMAXYIMAXYN TMP_SOL_OCCODATRBULDESC_INSDESCRENTREGASOLSOLITMITMUNICOMPLETAR_CANTIDADCM_PROCSCANTIDADORDENADO% %Ba F Ta#) T%#) T Ta  #T  T- T+COV% %C C C C    %C H[ O\TCC,g%A<#otcccomp!%  C =KC6La OC de referencia no tiene la misma moneda !!! OC: CCZB- K T MF G((mov(ECCC,g ZCZT%<#otcccomp!%  C `C6La OC de referencia no tiene la misma moneda !!! OC: CCZ MOV: CCZB-  TFH$%CO   T-F #T BUP_CM_VLD_MON_OC XTIPOCOMPRAXORDEN XOLDXORDENTEMPCOMPIFLAGCONSTMAXYIMAX_PRODMAXYNCOD_INSOBIEDATA_CODIGO_VACIODESC_INSCOD_CUECOS_LIFO RECEPCIONKILOSREFREFCAUSA ARR_OC_MONMONEDATCCCOMPORDENXMONEDAMENSAJECONVERMOVREFITMTRANSFH2 MAX 40004  T TT T  BU P_EMPP_CODEMPXCENTROT_IVA_NCT_IVAINVT_TOTALT_IVA TX_IVA_NC TX_IVAINVTX_TOTALTX_IVA TCiTCH!TCC%6(CoTC% TT % TT% , TT k%g T T'TCC6$ BUXFXOFFSETXANOXMES XQUINCENAZXQL TCC$ TC %lT T T T(+TCcT%AT CT CBU XFECHAXRPTXMAXZXDESDE XCM_QUINCENA P_CM_QUINCENA ARR_QUINCENA FN_QUINCENA XQUINCENAN XQUINCENA write_data_opCJ reg_percep_ibvld_impfn_cuitget_ncndWformatdncndimp֊wizard͎ con_recepcion act_costo act_codxproϑvalidarpn libera_areaM fn_cashflow՜ calc_x_itm/ calc_finalesvar_auxpact_pro fn_importac preparar_data+modificar_data.modificar_datancrcalcular_totales3 open_filesexiste_comprobanteexiste_referencia registrar_opdcleardata_scan_transf cleardataL lee_tempcompG  registrar_oc write_data_ocvld_tipoAvld_cuit D guardar_proE traer_pro78! 8:8 :y<Z <=w > A 7A$C WC_ 7_?d gxG8x݆_іǚBFbvz  CjD[F Q٫>/\hEDksͺu}Ҿ#A3?ch!>@h K] !o{  F   g8!I!o!%[䥼VG(9 CF TTCX T T'cm_terminar_orden_de_compra(%C  sys_procesandoBU ACTIVEFORM DATASESSIONID OPEN_FILESTCCCOMPXORDENXCOD_PROXTIPOXRESCM_TERMINAR_ORDEN_DE_COMPRATERMINAR_O_REABRIR_OCSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO'filesfilesBUOPEN_FILES_ORDEN_DE_COMPRAFILESOPEN_FILES_STOCK  T)sys_procesando ProcesandofilesF G((tcccord E%C4_ .% N  T T  T T !TC@z 9999,999,999_TP2T "tcompras", "tcccomp","ccprov"%f T% .do lock_g in trsac with aaa , &xtrs_files % % ,Tcm_terminar_orden_de_compra.prg%D)TCierre de la Orden de Compra {-T Reapertura de la Orden de Compra TtrsacC% T"cm_oc_mantenimiento%C =BCOrden de Compra CC@z 999,999,999_: CF G((pend% q E6T! C@z 9999,999,999_PCZCZ!> CNS6F"G((orden T#-~ !> CNS6L$proc_stk"&"'"( )-"*"+",cT## , %F > -C#SN6F.G((comprob%I E!/+C+ /0C1ZC2Z! 2H%E 0 T3% 4%C3T33+$T33CCC 4C 45_VA% 6.%C3T33+$T33CCC 6C 65_VA%C3YT33%%Ccondpago QcondpagoplanF7 G((plan E 8F.m> /C @z 9999,999,999_0P9 :3; < =>? 7@ABC @z 9999,999,999_CPD7EF 1GH HI I2JK C @z 9999,999,999_PCZCZLC]MTNN!TOC@z 9999,999,999_%  TPtrsacCRONQ d CRONC"Cierre de la Orden de Compra# Reapertura de la Orden de Compra6: CC Zcm_terminar_orden_de_compra.prgONQ% TS%T fT8Error al procesar apertura/cierre de la orden de compra CC@z 999,999,999_ !!!  % tCLa Orden de Compra CC@z 999,999,999_ ha sido C cerrada reabierta6 !!!  % 2T%No se pudo iniciar la transaccin !!!C [ % W 5T(La orden de compra no est pendiente !!!C  % -T La orden de compra no existe !!!CUsys_procesando BUVXORDENXTIPOXAUTXMSGXNO_TRAN SP_MENSAJESYS_PROCESANDOOPEN_FILES_ORDEN_DE_COMPRAFILESTCCCOMPTCCCORDPENDXIMPORTEXCOD_PROCOD_PROXFECHAFEC_COMXFECDGIFEC_DGIXCOMPROBXCAUSA XTRS_FILES P_CASHFLOWAAATRAN_PRGTRAN_TXTBEG_TRANTRSACSYS_MOC_MANTENIMIENTOCM_OC_MANTENIMIENTOMENSAJEORDENXIDTCOMPRASXRECEP ACTUALIZAR_OCPROC_STKCOD_INSATRBULDEPOSITO RECEPCIONRECEP2RECEP3RECEPCCPROVCOMPROBCAUSACUOTAOPXTEMPDESC1FMTDESC2CONDPAGOPLANFECHACOMENTARIMPORTEDEUDA FACTURADOOPERACIOVENCPLAZOUSS_DEUREFCAUCONDDESCRFECREFCUODES_PROVMONEDAOPRIDIDUHOYXXXCAUSA XXXCOMPROBEND_TRANUSER_LOG PUB_INDEXTTS_ID TTS_ERRORSP_OCULTAR_DEFINITIVAMENTE\4!%C8-C6?9B@z 99.99 QB@z 99BUXD open_filesterminar_o_reabrir_ocfmtrq2"BB3D3qr$EA11AA!"!At1AbsAA3rAs2AAAHaQ!AAAaQ!AAAQ!AAqrQPDR AA1aAAA!AAQAAAA3rAA1/QP&`%w  K bJR-G(9%%  | T-ft05%x te_comienzocm_imp_aperturaG+(listadosG~(clases T  T Tcm_imp_imprimir(%"C BU ACTIVEFORM DATASESSIONID P_COMBEMPXTIPOPAGXFROMXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZOCM_IMP_APERTURALISTADOSCLASESXIMPORTXDESTINOCM_IMP_IMPRIMIRIMPRIMIRN4%`CParmetro incorrecto !!!C C +El nmero de importacin no puede ser 0 !!!B-%CN T%CC T%CN  T%CC5 T&oimportacborraroconverXproveedo bienes  Q        Q    Q    detalle%CNTCaFG((codpro E %C incoterms Q! \incoterms#C " incotermscodigoT#$%#C & incotermscodigoT'$%5T(C " Zona Franca Exterior6@T)C * Zona FrancaTerritorio Nacional6FT+importacion.frx T T, T-T.IMP_CCZT/.t.T+C+6TC6T,C,6T-C-6$CImportacin. Suspendo?a0?1listados+,-./aaaaaF QFQBU3XIMPORTXDESTINOXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOMENSAJEIMPORTACNUMEROBORRARCONVERCOD_INSENTRASALECANTIDADCOEFCOEFICFOBDOLARFACTORTOTALCOSTOPESOSBIENESDESCRCODALT1COD_PROPROVEEDONOMBREDETALLE XDEMPRESA FN_EMPRESACODPROP_SYSTEMTIPOIMP ZINCOTERM INCOTERMSINCOTERMINCOPREC ZINCOPRECZORIGENZDESTINODESTINO XFORMULARIOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOSSYS_MOSTRAR_SCREENIMPRIMIR_FORMULARIOLISTADOSimprimirR1bAA"2AB22qArArArArAe@"QArA22RsDsArAE1 %^jBWz;4     UG(9 _ CG+(listadosG~(clases%5%C xDespachobLT%CxdepbLTCXT C - T C  T TTTCXTCX T TTTCXT  T - T  T  T +a T% D in_despacho(% %0TCCꆎCCCCZCCCCZCCCCZFG((codins% ETCX TaQCa HW `TSe ha registrado el lote C para el artculo CC C C% C! .!BU XAUTXMSG XDESPACHOXCOD_INSXBULXATRXCOSTOXFECHAXDEPXBLOQXVENCXPROPS XPROP_COD XDESCR_DESP ACTIVEFORM DATASESSIONID OPEN_FILESLISTADOSCLASESOLOTDATA_CODIGO_VACIOOBIEXGRUPOXRES IN_DESPACHOBIENESCODINSCOD_INSXCOD_PRO ALTA_LOTEMONEDAMENSAJE'c4     %C xdepositobCT CX%C CT  %C N T %C C T  %CC4T %CC]T %CCT %CN T%CC T%CN T%CL$ T-TC TC TC %CDC %Cbienes Qbienes#%CbienescodinsT  T%Cstkxdep 1QstkxdepFG((despachoE%C4  > !"#C  Alta Manual6$% &'( )*+ , -.C]/0!>123%C %Cdeposito Qdeposito #4)T 445%C stkxdepcodigo Nrstkxdep5 4  !>/0 >1F,~5  >F T BU6XRES XDESPACHOXCOD_INSXBULXATRXMONEDAXCOSTOXNOSHOWXFECHAXCOD_PRO XDEPOSITOXDLOTAUX XIMPORTACIONXADUANAXORIGEN XPROCEDENCIAXITEMXLOTEEXTXVENCXOPXBLOQXPROPS XPROP_COD XDESCR_DESPBIENESVENCSTKXDEPDESPACHOCANTIDADINICIALCOD_INSBULATRFECHAFECDESPCOMENTOPADUANAORIGENPROCEDIMPORTACCOSTOMONEDACOD_PRODLOTAUXITEMIDULOTEEXTBLOQPROPSPROP_CODDESCRDEPOSITOCODIGO%%C propiedades GQ propiedades%C Prop_Predet Q Prop_Predet%CGrupos QGruposUP_PROPIEDADES_ADICIONALES PROPIEDADES PROP_PREDETGRUPOS alta_loten open_filesa A"AA11AqA1cAr1A1AA1AABAAB21ArArArArArArArArArArA211!A2AAA1AuQQpAAATABtAr21qAqA!AA1AS%9<60U?QINTEGERQBOOLEANQBOOLEANQBOOLEANG+(Dey_funcCVentasTCNH  Ta Ta Ta FG-(%*5CVentasccventccvfac fac_ven+causa%n1CVentasClientesCODCLICOD_CLI%/CVentasBienesCODINSCOD_INSU XR_RELTIPO XR_CCVENT XR_CLIENTES XR_BIENESDEY_FUNC CHECK_OPENED CHK_VALUEVENTAS REL_OPEN_RELx0QINTEGERQBOOLEANQBOOLEANG+(Dey_funcCBienesTCNH  Ta Ta  Ta Ta FG-(%1-CBienesLineasCodigoLinea%q-CBienesGruposCodigoGrupoU XR_RELTIPO XR_LINEAS XR_GRUPOSDEY_FUNC CHECK_OPENED CHK_VALUEBIENES REL_OPEN_REL?QSTRINGQSTRINGQSTRINGQSTRINGG+(Dey_func%}%C yB- C FG-( F<SET RELATION TO &xr_Condicion INTO (xr_C_Alias) ADDITIVE U XR_H_ALIAS XR_C_ALIAS XR_C_ORDEN XR_CONDICION XR_DONTOPENDEY_FUNC CHECK_OPENED Rel_Ventas, Rel_BienesS Rel_open_rel.1!111AqaQAAA3!1111AraAA4!!qA!Aa1U.c2i%8 !ZpVE%CCreando base de datos...GES.DBC$CCreando tabla MOTINV... C#CCreando tabla STOCK... C$CCreando tabla CONVER... C%CCreando tabla COMPROM... C&CCreando tabla CCCNOTAS... C$CCreando tabla COSTOS... C%CCreando tabla REMXFAC... C!CCreando tabla CFG... C&CCreando tabla DESPACHO... C "CCreando tabla DESP... C !CCreando tabla ROT... C %CCreando tabla SUCPROP... C %CCreando tabla SOLCOM2... C %CCreando tabla FACCRED... C#CCreando tabla IDX01... C%CCreando tabla STKXCOD... C$CCreando tabla MARCAS... C&CCreando tabla ATRIBUTO... C$CCreando tabla BULTOS... C$CCreando tabla CATPRO... C$CCreando tabla NOTERM... C$CCreando tabla OPAGOS... C$CCreando tabla SALDOS... C&CCreando tabla SUCURSAL... C&CCreando tabla TALONARI... C$CCreando tabla ULTCOS... C$CCreando tabla AGENTE... C$CCreando tabla GRUPOS... C$CCreando tabla TCK_CC... C%CCreando tabla TCK_REF... C#CCreando tabla CFG01... C&CCreando tabla COMPROMI... C %CCreando tabla STKXDSP... C!%CCreando tabla ROTULOS... C"$CCreando tabla TRJFEC... C#!CCreando tabla CHQ... C$#CCreando tabla ZONAS... C%$CCreando tabla LINEAS... C&%CCreando tabla STKXDEP... C'$CCreando tabla SOLCOM... C("CCreando tabla TR04... C)&CCreando tabla FORINCOS... C*&CCreando tabla VALQUILE... C+$CCreando tabla FLETES... C,&CCreando tabla ROTNOENT... C-%CCreando tabla DISTRIB... C.$CCreando tabla CHQANU... C/$CCreando tabla CCOFAB... C0%CCreando tabla CENTRAL... C1%CCreando tabla CODXPRO... C2&CCreando tabla IMPORTAC... C3%CCreando tabla EJERCON... C4%CCreando tabla TCK_CCC... C5%CCreando tabla TCK_CLI... C6%CCreando tabla CODXCLI... C7%CCreando tabla STKXSER... C8$CCreando tabla CATCLI... C9&CCreando tabla DEPOSITO... C:&CCreando tabla CASHDATA... C;$CCreando tabla CCCLIE... C<&CCreando tabla CONDCOBR... C=&CCreando tabla PROVEEDO... C>&CCreando tabla COM_OPER... C?&CCreando tabla VEN_OPER... C@$CCreando tabla BIENES... CA&CCreando tabla CONDPAGO... CB$CCreando tabla CESION... CC$CCreando tabla CCPROV... CD$CCreando tabla CHEPRO... CE%CCreando tabla CHEQUES... CF#CCreando tabla BATCH... CG$CCreando tabla NUMFAC... CH&CCreando tabla CASHCANC... CI$CCreando tabla COSMAN... CJ%CCreando tabla CASHCFG... CK%CCreando tabla CASHCUE... CL&CCreando tabla CASHEXPA... CM&CCreando tabla CASHNUME... CN&CCreando tabla CASHPRON... CO&CCreando tabla CASHTIPO... CP&CCreando tabla CASHFLOW... CQ$CCreando tabla CCCOMP... CR&CCreando tabla CCFORMUL... CS%CCreando tabla CFG_LIS... CT$CCreando tabla PROAUX... CU&CCreando tabla COMPPROD... CV&CCreando tabla CONTACTO... CW!CCreando tabla COS... CX&CCreando tabla CLIENTES... CY&CCreando tabla MOVSTOCK... CZ$CCreando tabla CSCOEF... C[$CCreando tabla CCVENT... C\&CCreando tabla RECLAMOS... C]&CCreando tabla FORMULAS... C^#CCreando tabla IDX03... C_$CCreando tabla IMPRES... C`%CCreando tabla LISPREC... Ca#CCreando tabla PARAM... Cb%CCreando tabla TCCCOMP... Cc&CCreando tabla TCOMPRAS... Cd&CCreando tabla PLANVARC... Ce#CCreando tabla IDX02... Cf#CCreando tabla IDX04... Cg"CCreando tabla CONS... Ch$CCreando tabla VENTAS... Ci%CCreando tabla COMPRAS... Cj&CCreando tabla CASHADIC... Ck$CCreando tabla CLIAUX... Cl%CCreando tabla TCCVENT... Cm&CCreando tabla PRODUCCI... Cn%CCreando tabla TVENTAS... Co!CCreando tabla COM... Cp&CCreando tabla DESPFLET... Cq%CCreando tabla MOTIVOS... Cr&CCreando tabla VE_TRANS... Cs&CCreando tabla COMI_ART... Ct&CCreando tabla RET_PROV... Cu&CCreando tabla PER_PROV... Cv&CCreando tabla MAQUINAS... Cw&CCreando tabla FORM_CAL... Cx&CCreando tabla FORM_PAS... Cy&CCreando tabla FORM_GEN... Cz&CCreando tabla OPERARIO... C{&CCreando tabla PROT_ESP... C|&CCreando tabla PROT_ANA... C}&CCreando tabla PROT_DET... C~#CCreando tabla CCPAG... C#CCreando tabla CCCOB... C&CCreando tabla CONCEPTO... C%CCreando tabla DIARIOG... C%CCreando tabla COS_CIE... C!CCreando tabla CHP... C%CCreando tabla COSXCUE... C&CCreando tabla CODBULAT... C&CCreando tabla PLAN_MAQ... C&CCreando tabla PLAN_MAD... C&CCreando tabla PLAN_OPE... C&CCreando tabla PLAN_DIA... C&CCreando tabla COMPPLAN... C&CCreando tabla PLAN_GEN... C&CCreando tabla CASHPROV... C&CCreando tabla CASHPROC... C&CCreando tabla UNIDADES... C&CCreando tabla RUBROFAC... C%CCreando tabla VLOCALE... C%CCreando tabla VLOCALD... C%CCreando tabla CATPRO2... C%CCreando tabla CATPRO3... C&CCreando tabla TARJETAS... C&CCreando tabla TARJ_LIQ... C&CCreando tabla ACUERDOS... C&CCreando tabla ASM_MAST... C&CCreando tabla ASM_DETA... C&CCreando tabla ASM_FORM... C&CCreando tabla ASM_PASE... C&CCreando tabla PLAN_NUV... C%CCreando tabla MAQ_GRP... C&CCreando tabla FORM_MAQ... C&CCreando tabla PLAN_OPD... C%CCreando tabla PRO_ADI... C%CCreando tabla CONVER2... C&CCreando tabla PROD_GEN... C&CCreando tabla PENDRECL... C&CCreando tabla ITM_DESC... C%CCreando tabla IVA_VEN... C%CCreando tabla ESOLCOM... C%CCreando tabla DSOLCOM... C%CCreando tabla CASHUSE... C$CCreando tabla COSVEN... C%CCreando tabla MEDIDAS... C&CCreando tabla PROD_FOR... C$CCreando tabla CASH2P... C&CCreando tabla COMPPAUX... C%CCreando tabla ARMADOR... C&CCreando tabla CODESPEC... C$CCreando tabla CASH2I... C&CCreando tabla CASHCAN2... C%CCreando tabla BUL_GEN... C%CCreando tabla ATR_GEN... C$CCreando tabla TEXTOS... C%CCreando tabla ARTXCLI... C&CCreando tabla MTZ_PROD... C%CCreando tabla INVMODE... C%CCreando tabla INVMODD... C&CCreando tabla CTASBANC... C&CCreando tabla FORM_RES... C#CCreando tabla STOPS... C&CCreando tabla PRODSTOP... C&CCreando tabla COS_ADET... C&CCreando tabla MSGXUSER... C%CCreando tabla MTZ_DEF... C&CCreando tabla IN_FALTA... C&CCreando tabla PLAN_USO... C%CCreando tabla ENVASES... C&CCreando tabla CEN_REFU... C$CCreando tabla NUMREC... C&CCreando tabla COS_ACOM... C&CCreando tabla SPRGRUPO... C&CCreando tabla DRETPROV... C&CCreando tabla MANT_STK... C&CCreando tabla IMP_TRAN... C'CCreando tabla PLANIFICA... C%CCreando tabla REC_TAL... C&CCreando tabla COS_CPRE... C&CCreando tabla CASHRESU... C&CCreando tabla ENSAMBLE... C%CCreando tabla ARTXPRO... C$CCreando tabla ATRIBS... C&CCreando tabla BUL_GENL... C&CCreando tabla BUL_GENG... C&CCreando tabla ATR_GENL... C&CCreando tabla ATR_GENG... C$CCreando tabla COSIMP... C&CCreando tabla IIBBPROV... C&CCreando tabla IIBBPERE... C&CCreando tabla FLE_TIPO... C#CCreando tabla CO_ER... C)CCreando tabla CO_ER_DATOS... C%CCreando tabla IIBBRET... C&CCreando tabla PLVENAGE... C&CCreando tabla CASHPROM... C&CCreando tabla CASHPROP... C%CCreando tabla IVA_COM... C&CCreando tabla CUEXMOTI... C$CCreando tabla PR_CIE... C'CCreando tabla HISTORIAL... C&CCreando tabla ITMDESCC... C$CCreando tabla BIEAUX... C&CCreando tabla TSP_TSPS... C&CCreando tabla TSP_CAMI... C&CCreando tabla TSP_TRAI... C&CCreando tabla TSP_CHOF... C$CCreando tabla COSULT... C&CCreando tabla TSP_ASIG... C&CCreando tabla TSP_LUGA... C&CCreando tabla DBT_FECP... C(CCreando tabla SCH_GASTOS... C-C Creando tabla SCH_GASTOS_CONC... C-C Creando tabla SCH_GASTOS_CPBT... C.C!Creando tabla SCH_GASTOS_CLASE... C$CCreando tabla ARMADO... C#CCreando tabla TRREC... C%CCreando tabla CIECAJE... C%CCreando tabla CIECAJV... C%CCreando tabla CIECAJD... C%CCreando tabla CUENTAS... C%CCreando tabla CIERRES... C&CCreando tabla FORM_EST... C&CCreando tabla PROD_EST... C&CCreando tabla CLIOTROS... C"CCreando tabla TARJ... C&CCreando tabla TARJREGL... C&CCreando tabla RESERVAS... C&CCreando tabla VE_ALTAS... C%CCreando tabla CATCRED... C&CCreando tabla FECOTCOM... C&CCreando tabla PED_PROC... C%CCreando tabla CIECAJP... C&CCreando tabla PLANDTOS... C&CCreando tabla ATRHABIL... C%CCreando tabla EPRESUP... C%CCreando tabla DPRESUP... C"CCreando tabla PRO2... C&CCreando tabla VE_OTROS... C'CCreando tabla PD_CONSOL... C &CCreando tabla PR_OTROS... C &CCreando tabla CCARMADO... C %CCreando tabla CLIMAIL... C %CCreando tabla ARMADOL... C $CCreando tabla DEPMIN... C&CCreando tabla EPREDESP... C&CCreando tabla DPREDESP... C&CCreando tabla CIECAJPD... C&CCreando tabla MIX_ADIC... C#CCreando tabla FECHA... C%CCreando tabla CAT_COM... C'CCreando tabla CLIVARIOS... C$CCreando tabla TE_ANU... C#CCreando tabla ASIST... C)CCreando tabla BIENES_FAST... C'CCreando tabla DESPOTROS... C&CCreando tabla MAILCTAS... C#CCreando tabla EPROT... C#CCreando tabla DPROT... C&CCreando tabla MAILASIG... C$CCreando tabla SEGUIM... C)CCreando tabla BIENES_BUSQ... C'CCreando tabla CLIGRUECE... C 'CCreando tabla CLIGRUECD... C!&CCreando tabla PICKINGS... C"&CCreando tabla SECTORES... C#&CCreando tabla DBT_BFEC... C$%CCreando tabla PSOLCOM... C%'CCreando tabla REC_UPD_1... C&#CCreando tabla CAJAS... C')CCreando tabla PROPIEDADES... C()CCreando tabla PROP_PREDET... C)'CCreando tabla DPICKINGS... C*$CCreando tabla BARRAS... C+&CCreando vista VSTKXCOD... C,)CCreando vista CCCLIE_VENC... C-)CCreando vista SEGUIMIENTO... C.)CCreando vista ABMFORINCOS... C/'CCreando vista CHEQUERAS... C0)CCreando vista VISTA_BATCH... C1)CCreando vista ABMMAQUINAS... C2(CCreando vista ABMMAQ_GRP... C3*CCreando vista ABMGENERICOS... C4)CCreando vista ABMOPERARIO... C5'CCreando vista VPROT_ESP... C6*CCreando vista ABMVPROT_ESP... C7)CCreando vista ABMTARJETAS... C8%CEQUIPOS 0:Q9\EQUIPOS(CCreando vista ABMEQUIPOS... C:%CA010592 : ;<C>?a;=(CCreando vista ABMA010592... C@FAQ)CCreando vista ABMVSTKXCOD... CB%CBANCOS E;Q9\BANCOS'CCreando vista ABMBANCOS... CC(CCreando vista ABMEJERCON... CD&CCreando vista VCHEQUES... CE(CCreando vista VATRIBUTOS... CF&CCreando vista VATR_GEN... CG+CCreando vista ABMVATRIBUTOS... CH)CCreando vista ABMVATR_GEN... CI)CCreando vista ABMCLIENTES... CJ'CCreando vista ABMBIENES... CK%CCreando vista VBULTOS... CL&CCreando vista VBUL_GEN... CM(CCreando vista ABMVBULTOS... CN)CCreando vista ABMVBUL_GEN... CO'CCreando vista ABMAGENTE... CP'CCreando vista ABMCATPRO... CQ)CCreando vista ABMCCFORMUL... CR(CCreando vista ABMCENTRAL... CS)CCreando vista ABMCONDCOBR... CT'CCreando vista ABMCOSTOS... CU)CCreando vista ABMDEPOSITO... CV'CCreando vista ABMFLETES... CW'CCreando vista ABMGRUPOS... CX'CCreando vista ABMLINEAS... CY'CCreando vista ABMMOTINV... CZ(CCreando vista ABMMOTIVOS... C[)CCreando vista ABMPROVEEDO... C\(CCreando vista ABMSUCPROP... C]&CCreando vista ABMZONAS... C^)CCreando vista VSUCURSALES... C_)CCreando vista ABMUNIDADES... C`)CCreando vista ABMRUBROFAC... Ca)CCreando vista ABMACUERDOS... Cb(CCreando vista ABMMEDIDAS... Cc(CCreando vista ABMARMADOR... Cd'CCreando vista ABMTEXTOS... Ce)CCreando vista ABMCTASBANC... Cf(CCreando vista ABMINVMODE... Cg(CCreando vista ABMENVASES... Ch)CCreando vista ABMSPRGRUPO... Ci)CCreando vista ABMCOS_CPRE... Cj)CCreando vista ABMFLE_TIPO... Ck'CCreando vista ABMCATCLI... Cl'CCreando vista ABMMARCAS... Cm,CCreando vista ABMVSUCURSALES... Cn)CCreando vista ABMCONDPAGO... CoC Finalizado.%C GES_GEN.krt0 uD-!Warning! No Procedure File Found! EQGES.DBCTpCSAFETYvG.$-qStoredProceduresSource%C4Er GES_GEN.krt>rCrFV\$-qStoredProceduresObject%C4tEr GES_GEN.krt>rCr\SET SAFETY &g_SetSafety QGES.DBCUs DISPLAYSTATUSMAKETABLE_MOTINVMAKETABLE_STOCKMAKETABLE_CONVERMAKETABLE_COMPROMMAKETABLE_CCCNOTASMAKETABLE_COSTOSMAKETABLE_REMXFAC MAKETABLE_CFGMAKETABLE_DESPACHOMAKETABLE_DESP MAKETABLE_ROTMAKETABLE_SUCPROPMAKETABLE_SOLCOM2MAKETABLE_FACCREDMAKETABLE_IDX01MAKETABLE_STKXCODMAKETABLE_MARCASMAKETABLE_ATRIBUTOMAKETABLE_BULTOSMAKETABLE_CATPROMAKETABLE_NOTERMMAKETABLE_OPAGOSMAKETABLE_SALDOSMAKETABLE_SUCURSALMAKETABLE_TALONARIMAKETABLE_ULTCOSMAKETABLE_AGENTEMAKETABLE_GRUPOSMAKETABLE_TCK_CCMAKETABLE_TCK_REFMAKETABLE_CFG01MAKETABLE_COMPROMIMAKETABLE_STKXDSPMAKETABLE_ROTULOSMAKETABLE_TRJFEC MAKETABLE_CHQMAKETABLE_ZONASMAKETABLE_LINEASMAKETABLE_STKXDEPMAKETABLE_SOLCOMMAKETABLE_TR04MAKETABLE_FORINCOSMAKETABLE_VALQUILEMAKETABLE_FLETESMAKETABLE_ROTNOENTMAKETABLE_DISTRIBMAKETABLE_CHQANUMAKETABLE_CCOFABMAKETABLE_CENTRALMAKETABLE_CODXPROMAKETABLE_IMPORTACMAKETABLE_EJERCONMAKETABLE_TCK_CCCMAKETABLE_TCK_CLIMAKETABLE_CODXCLIMAKETABLE_STKXSERMAKETABLE_CATCLIMAKETABLE_DEPOSITOMAKETABLE_CASHDATAMAKETABLE_CCCLIEMAKETABLE_CONDCOBRMAKETABLE_PROVEEDOMAKETABLE_COM_OPERMAKETABLE_VEN_OPERMAKETABLE_BIENESMAKETABLE_CONDPAGOMAKETABLE_CESIONMAKETABLE_CCPROVMAKETABLE_CHEPROMAKETABLE_CHEQUESMAKETABLE_BATCHMAKETABLE_NUMFACMAKETABLE_CASHCANCMAKETABLE_COSMANMAKETABLE_CASHCFGMAKETABLE_CASHCUEMAKETABLE_CASHEXPAMAKETABLE_CASHNUMEMAKETABLE_CASHPRONMAKETABLE_CASHTIPOMAKETABLE_CASHFLOWMAKETABLE_CCCOMPMAKETABLE_CCFORMULMAKETABLE_CFG_LISMAKETABLE_PROAUXMAKETABLE_COMPPRODMAKETABLE_CONTACTO MAKETABLE_COSMAKETABLE_CLIENTESMAKETABLE_MOVSTOCKMAKETABLE_CSCOEFMAKETABLE_CCVENTMAKETABLE_RECLAMOSMAKETABLE_FORMULASMAKETABLE_IDX03MAKETABLE_IMPRESMAKETABLE_LISPRECMAKETABLE_PARAMMAKETABLE_TCCCOMPMAKETABLE_TCOMPRASMAKETABLE_PLANVARCMAKETABLE_IDX02MAKETABLE_IDX04MAKETABLE_CONSMAKETABLE_VENTASMAKETABLE_COMPRASMAKETABLE_CASHADICMAKETABLE_CLIAUXMAKETABLE_TCCVENTMAKETABLE_PRODUCCIMAKETABLE_TVENTAS MAKETABLE_COMMAKETABLE_DESPFLETMAKETABLE_MOTIVOSMAKETABLE_VE_TRANSMAKETABLE_COMI_ARTMAKETABLE_RET_PROVMAKETABLE_PER_PROVMAKETABLE_MAQUINASMAKETABLE_FORM_CALMAKETABLE_FORM_PASMAKETABLE_FORM_GENMAKETABLE_OPERARIOMAKETABLE_PROT_ESPMAKETABLE_PROT_ANAMAKETABLE_PROT_DETMAKETABLE_CCPAGMAKETABLE_CCCOBMAKETABLE_CONCEPTOMAKETABLE_DIARIOGMAKETABLE_COS_CIE MAKETABLE_CHPMAKETABLE_COSXCUEMAKETABLE_CODBULATMAKETABLE_PLAN_MAQMAKETABLE_PLAN_MADMAKETABLE_PLAN_OPEMAKETABLE_PLAN_DIAMAKETABLE_COMPPLANMAKETABLE_PLAN_GENMAKETABLE_CASHPROVMAKETABLE_CASHPROCMAKETABLE_UNIDADESMAKETABLE_RUBROFACMAKETABLE_VLOCALEMAKETABLE_VLOCALDMAKETABLE_CATPRO2MAKETABLE_CATPRO3MAKETABLE_TARJETASMAKETABLE_TARJ_LIQMAKETABLE_ACUERDOSMAKETABLE_ASM_MASTMAKETABLE_ASM_DETAMAKETABLE_ASM_FORMMAKETABLE_ASM_PASEMAKETABLE_PLAN_NUVMAKETABLE_MAQ_GRPMAKETABLE_FORM_MAQMAKETABLE_PLAN_OPDMAKETABLE_PRO_ADIMAKETABLE_CONVER2MAKETABLE_PROD_GENMAKETABLE_PENDRECLMAKETABLE_ITM_DESCMAKETABLE_IVA_VENMAKETABLE_ESOLCOMMAKETABLE_DSOLCOMMAKETABLE_CASHUSEMAKETABLE_COSVENMAKETABLE_MEDIDASMAKETABLE_PROD_FORMAKETABLE_CASH2PMAKETABLE_COMPPAUXMAKETABLE_ARMADORMAKETABLE_CODESPECMAKETABLE_CASH2IMAKETABLE_CASHCAN2MAKETABLE_BUL_GENMAKETABLE_ATR_GENMAKETABLE_TEXTOSMAKETABLE_ARTXCLIMAKETABLE_MTZ_PRODMAKETABLE_INVMODEMAKETABLE_INVMODDMAKETABLE_CTASBANCMAKETABLE_FORM_RESMAKETABLE_STOPSMAKETABLE_PRODSTOPMAKETABLE_COS_ADETMAKETABLE_MSGXUSERMAKETABLE_MTZ_DEFMAKETABLE_IN_FALTAMAKETABLE_PLAN_USOMAKETABLE_ENVASESMAKETABLE_CEN_REFUMAKETABLE_NUMRECMAKETABLE_COS_ACOMMAKETABLE_SPRGRUPOMAKETABLE_DRETPROVMAKETABLE_MANT_STKMAKETABLE_IMP_TRANMAKETABLE_PLANIFICAMAKETABLE_REC_TALMAKETABLE_COS_CPREMAKETABLE_CASHRESUMAKETABLE_ENSAMBLEMAKETABLE_ARTXPROMAKETABLE_ATRIBSMAKETABLE_BUL_GENLMAKETABLE_BUL_GENGMAKETABLE_ATR_GENLMAKETABLE_ATR_GENGMAKETABLE_COSIMPMAKETABLE_IIBBPROVMAKETABLE_IIBBPEREMAKETABLE_FLE_TIPOMAKETABLE_CO_ERMAKETABLE_CO_ER_DATOSMAKETABLE_IIBBRETMAKETABLE_PLVENAGEMAKETABLE_CASHPROMMAKETABLE_CASHPROPMAKETABLE_IVA_COMMAKETABLE_CUEXMOTIMAKETABLE_PR_CIEMAKETABLE_HISTORIALMAKETABLE_ITMDESCCMAKETABLE_BIEAUXMAKETABLE_TSP_TSPSMAKETABLE_TSP_CAMIMAKETABLE_TSP_TRAIMAKETABLE_TSP_CHOFMAKETABLE_COSULTMAKETABLE_TSP_ASIGMAKETABLE_TSP_LUGAMAKETABLE_DBT_FECPMAKETABLE_SCH_GASTOSMAKETABLE_SCH_GASTOS_CONCMAKETABLE_SCH_GASTOS_CPBTMAKETABLE_SCH_GASTOS_CLASEMAKETABLE_ARMADOMAKETABLE_TRRECMAKETABLE_CIECAJEMAKETABLE_CIECAJVMAKETABLE_CIECAJDMAKETABLE_CUENTASMAKETABLE_CIERRESMAKETABLE_FORM_ESTMAKETABLE_PROD_ESTMAKETABLE_CLIOTROSMAKETABLE_TARJMAKETABLE_TARJREGLMAKETABLE_RESERVASMAKETABLE_VE_ALTASMAKETABLE_CATCREDMAKETABLE_FECOTCOMMAKETABLE_PED_PROCMAKETABLE_CIECAJPMAKETABLE_PLANDTOSMAKETABLE_ATRHABILMAKETABLE_EPRESUPMAKETABLE_DPRESUPMAKETABLE_PRO2MAKETABLE_VE_OTROSMAKETABLE_PD_CONSOLMAKETABLE_PR_OTROSMAKETABLE_CCARMADOMAKETABLE_CLIMAILMAKETABLE_ARMADOLMAKETABLE_DEPMINMAKETABLE_EPREDESPMAKETABLE_DPREDESPMAKETABLE_CIECAJPDMAKETABLE_MIX_ADICMAKETABLE_FECHAMAKETABLE_CAT_COMMAKETABLE_CLIVARIOSMAKETABLE_TE_ANUMAKETABLE_ASISTMAKETABLE_BIENES_FASTMAKETABLE_DESPOTROSMAKETABLE_MAILCTASMAKETABLE_EPROTMAKETABLE_DPROTMAKETABLE_MAILASIGMAKETABLE_SEGUIMMAKETABLE_BIENES_BUSQMAKETABLE_CLIGRUECEMAKETABLE_CLIGRUECDMAKETABLE_PICKINGSMAKETABLE_SECTORESMAKETABLE_DBT_BFECMAKETABLE_PSOLCOMMAKETABLE_REC_UPD_1MAKETABLE_CAJASMAKETABLE_PROPIEDADESMAKETABLE_PROP_PREDETMAKETABLE_DPICKINGSMAKETABLE_BARRASMAKEVIEW_VSTKXCODMAKEVIEW_CCCLIE_VENCMAKEVIEW_SEGUIMIENTOMAKEVIEW_ABMFORINCOSMAKEVIEW_CHEQUERASMAKEVIEW_VISTA_BATCHMAKEVIEW_ABMMAQUINASMAKEVIEW_ABMMAQ_GRPMAKEVIEW_ABMGENERICOSMAKEVIEW_ABMOPERARIOMAKEVIEW_VPROT_ESPMAKEVIEW_ABMVPROT_ESPMAKEVIEW_ABMTARJETASP_SYSTEMMAKEVIEW_ABMEQUIPOS OSECURITYCHEQUEAR_CONVERSION SEC_TABLE_GETODS DATASESSIONIDMAKEVIEW_ABMA010592A010592MAKEVIEW_ABMVSTKXCODMAKEVIEW_ABMBANCOSMAKEVIEW_ABMEJERCONMAKEVIEW_VCHEQUESMAKEVIEW_VATRIBUTOSMAKEVIEW_VATR_GENMAKEVIEW_ABMVATRIBUTOSMAKEVIEW_ABMVATR_GENMAKEVIEW_ABMCLIENTESMAKEVIEW_ABMBIENESMAKEVIEW_VBULTOSMAKEVIEW_VBUL_GENMAKEVIEW_ABMVBULTOSMAKEVIEW_ABMVBUL_GENMAKEVIEW_ABMAGENTEMAKEVIEW_ABMCATPROMAKEVIEW_ABMCCFORMULMAKEVIEW_ABMCENTRALMAKEVIEW_ABMCONDCOBRMAKEVIEW_ABMCOSTOSMAKEVIEW_ABMDEPOSITOMAKEVIEW_ABMFLETESMAKEVIEW_ABMGRUPOSMAKEVIEW_ABMLINEASMAKEVIEW_ABMMOTINVMAKEVIEW_ABMMOTIVOSMAKEVIEW_ABMPROVEEDOMAKEVIEW_ABMSUCPROPMAKEVIEW_ABMZONASMAKEVIEW_VSUCURSALESMAKEVIEW_ABMUNIDADESMAKEVIEW_ABMRUBROFACMAKEVIEW_ABMACUERDOSMAKEVIEW_ABMMEDIDASMAKEVIEW_ABMARMADORMAKEVIEW_ABMTEXTOSMAKEVIEW_ABMCTASBANCMAKEVIEW_ABMINVMODEMAKEVIEW_ABMENVASESMAKEVIEW_ABMSPRGRUPOMAKEVIEW_ABMCOS_CPREMAKEVIEW_ABMFLE_TIPOMAKEVIEW_ABMCATCLIMAKEVIEW_ABMMARCASMAKEVIEW_ABMVSUCURSALESMAKEVIEW_ABMCONDPAGO G_SETSAFETY OBJECTNAMECODEh1 MOTINV.DBFJMOTINVN N C C C C L L N  N  C   L  N  N  L C( L C( C  L N L L L L N C L C( L N N  N !N  "C #C $L %L &L 'L (T & kMACHINE& kMACHINE& kMACHINEU)CODIGOTIPOCENINGCENEGRDEPINGDEPEGRDEPINGPDEPEGRPABMCON_OPCUENTAREMITOSUCREMCOMPROBBAJADIFUSRFORMULADESCRIDUINICIAL TIPOAJUSTEALTALOTECOSTOCLIENTE PROVEEDORPROCLICOD_CENCOD_CENP FORMULARIONOMOVSTKDIAS FORM_COPIAMAXITEMSMODELODLOTAUXDEPING2REGASIRECESINP TRANSPORTEPESADAULT_MOD3h1 STOCK.DBFJSTOCKC C N  N N N  D C C  N   N   C   N   N C  N  N N C  N C N N N N L C C( N N  N N  N !N "N  #C $N %N &N  'N (N )N '& kMACHINE#& *kMACHINE'& kMACHINE& kMACHINE& kMACHINEU+DEPOSITOCODIGOCANTIDADSTK_MINSTK_MAXSTK_ULTFEC_ULTBULATRCANT_PEDSTK_PEDIDTEMP TIPOSTKMINIDUBARRASDUNFACTORCOD_CUESUBGRUPO UBICACIONCOSTOCOSMONCOSCLASEFORINCOSACTIVOCODALTDESCRACTU_PEMINBATCHTOXICOSTK_MIN1 STK_MIN_MUXDIA VENTASXPERVENTADUNMULTEANMULTUVENCANT_OCCANT_COMCANT_PRDARTICULOJh1 CONVER.DBFJCONVERN N N N C D N C C  L  N   N  L  C  C L N C< C C D Cd N C N N N N N C C  C   N !N "N  #C $C %N &N  'C (N )N *N  +C ,C -C .C /C 0N  1N  2N 3C 4C 5C 6C  7C 8N  9L :N ;N <L =N  >N  ?N @C AC BC CN DC EN FN GN HN  IT & JkMACHINE& CkMACHINE& KkMACHINE& kMACHINE.& LkMACHINEr & kMACHINE& ;;kMACHINE& **kMACHINE#& 3MkMACHINE& FFkMACHINE& 33kMACHINE)& C ZC!ZNkMACHINE)& C  ZC:ZOkMACHINEUPENTRAENTRAKSALESALEKCOD_INSFECHATRANSFCOS_ORICOS_DESFLAGORDENIMPORTEBAJACOD_CUECONCEPTOFLAGBEENTOT_COSCOMENTDEP_INGDEP_EGRVENCPERSONACANCELDESPACHOFOBFACTORCOEFICCOEFDOLARCAUREFREF2MOTIVOITEMRECEPBULATRCOSTOIDUMUSR_BAJATIPO_COSIMPORTACSERIEDSERIEHSSLINEAVENDEDORTIPOOPERSUCURSALCOSMONCOD_PROCOD_CLICOD_CENREF3 REF3CAUSAREF3CANT TRANSF_UNOREFITM FACTURADONOMOVSTKENTRA_U2SALE_U2CM_UNI2COMPCODCOMPBULCOMPATR FACTORTEOREFCAUINCOTERMAPROBADO PROCESADOARMADOULT_MODCONVER REFERENCIAREM_PENDREMITOMOVREF_OCh1 COMPROM.DBFJCOMPROMC  C C C C N C C  D  N  C  C  L  N  !& C ZkMACHINE& kMACHINE+&  kMACHINE& kMACHINEUIDCODBULATRDEPCANCAUNUMFECITMTIPDSPFLGPCKCODIGOuh1 CCCNOTAS.DBFJCCCNOTASC M L M D N & kMACHINEUIDNOTA CONFIRMARACCIONESFRECLAMOGESCOMqh1 COSTOS.DBFJCOSTOSC N N N N N N N N  N  N  N  N  N C C C  C( C  T & kMACHINE& kMACHINEa& CCRC0QAB6CCRC0QAB6kMACHINE& kMACHINEUCOD_CENSUCCFACTACDEBIACCREDACREMIACFACTBCDEBIBCCREDBCREMIBCFACTECDEBIECCREDECREMIEIMPASOCBORRARDESCRIDUULT_MODCODIGOORDENsh1 REMXFAC.DBFJREMXFACN  C  C  N & kMACHINE& kMACHINE& kMACHINEUPEDIDOFACTURAREMITOTIPOa^h1CFG.DBFJCFGC( D N C UTEXTOFECHANUMERODESCR1h1 DESPACHO.DBFJDESPACHOC C D N N C N  D N  C  C  C  N  C C N  N N N N C D C N C C  C D L )&  CkMACHINE'&  kMACHINE& kMACHINE#&  kMACHINE& kMACHINEU DESPACHOCOD_INSFECHACANTIDAD CANTIDAD2COMENTOPFECDESPINICIALADUANAORIGENPROCEDCOSTOBULATRIMPORTACTEMPORALSTK_ULTSALDOMONEDACOD_PROFEC1CAUCOSITEMDLOTAUXIDULOTEEXTVENCBLOQCODIGODSP CODBULATRFh1DESP.DBFJDESPN  N  D N C  C  C C C  N  N   D  D  C C N M & kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINEUDESPACHOPEDIDOFECHAESTADOREMITOFACTURACAUSADENTHENTCONFORMEOP FEC_ENT_C FEC_ENT_FFAC1FAC2ORDENNOTAuEh1ROT.DBFJROTN  C C C N  N  L L N  L  N  C   C  C C C C -& C ZCZkMACHINEUPEDIDOCOD_INSBULATRBULTOCANTIDADOKMANUALUSRBAJAITMIDDEPOSITOEAN13DUN14EANLHDUNLHROTULOh1 SUCPROP.DBFJSUCPROPN C D N  C  C C  C  T & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRFECHASALDOIDUCOD_CENCTAVEN CTACOBVENULT_MODh1 SOLCOM2.DBFJSOLCOM2N  D D C C C & kMACHINEUSOLFECHAENTREGASOLIDESTOK SOLICITUD9h1 FACCRED.DBFJFACCREDN  C  C D N N N N N   C  N  N  N  D & kMACHINE%& kMACHINE& kMACHINE& kMACHINEUNUMEROREFCAUFECHAIMPORTECUOTASFINALESTADORECIBOCOD_CLISUCRETENCUOTAVENCPEND=:h1 IDX01.DBFJIDX01C T UNOMBREULT_MOD~h1 STKXCOD.DBFJSTKXCODC C N C C  (& CZkMACHINE& kMACHINE& kMACHINE& kMACHINEUDEPOSITOCODIGO PRIORIDADIDIDUCOD{h1 MARCAS.DBFJMARCASN C C  T N & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MOD PED_SUBIRh1 ATRIBUTO.DBFJATRIBUTOC C C C C C  C N C  N  C  C  N &  kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVEAUTIDDESCRIDUACTIVOGRUPOATR AGRUPACIONGENERICOVENTA PROMOCIONSURTIDOCODIGOCODoh1 BULTOS.DBFJBULTOSC C N  N  N  C C C C   C   C   N  N  N N N  C N  N N  N  N  N N N N  N N & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVE CANTXBULT PESOXBULT VOLUXBULTACTIVOIDDESCRIDUMEDIDA MEDIDAAUXGRUPOBULGENERICOMEDCOD MEDAUXCOD CANTXBULT2VENTAUVENFACTORLARGOANCHOALTURABLARGOBANCHOBALTURAHAPILEAPILECANTXPALCODIGOCODdh1 CATPRO.DBFJCATPRON C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODFCh1 NOTERM.DBFJNOTERMC  C UCOMPROBCAUSAV8h1 OPAGOS.DBFJOPAGOSN  & kMACHINEUOPAGOh1 SALDOS.DBFJSALDOSC  N N D N N D & kMACHINEUCOD_CUEDEBITOCREDITOFECHADEBANTCREANTFECANTCUENTAh1 SUCURSAL.DBFJSUCURSALC N C( C( C C C C  C  C(  C  D  C  N C N C N N N N N N N N N N N C# C# C N  N !C "C2 #C2 $C  %C &C2 'C( (C )Cx *N +C ,N  -T !& CZ kMACHINE& $$kMACHINEU.COD_CLISUCURSALNOMBRE DOMICILIOCIUDAD PROVINCIAPHONOCOD_ZIPCOD_FLEHORARIOIDFECULTDISTRIBCOMI_DISVENDEDORCOMI_VENCOBRADORCOMI_COBFPAGLISTADES_COMDES_COM2DES_COM3DES_COM4DES_COM5DES_ESP1DES_ESP2DES_ESP3 CONTACVEN CONTACCOBDEPOSITOPAISZONAFAXEMAILWEBIDU UNEGOCIOSFCEEMAILFCEDESTENTCOORDGEODIREST_ACTDIR_FACGLNULT_MODh1 TALONARI.DBFJTALONARIC D C N N L C L UTIPOFECHACOD_CLIDESDEHASTAFLAGCOD_AGEBORRARh1 ULTCOS.DBFJULTCOSC D N C C C N !& CkMACHINE& CkMACHINE!& CkMACHINEUCOD_INSFECHACOSTOBULATR CODBULATR COSTO_STDCODIGOXh1 AGENTE.DBFJAGENTEC C C C C N C C N  N  N  N  D  N C C  N N C C2 C  N  N T & CgkMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_AGENOMBRE DOMICILIOCIUDAD PROVINCIAPAISCOD_ZIPCLASECOMIXVENCOMIXCOBCOMIXCOMCOMIXPAGFECHAZONAPHONOCUITCODINSCCOMIXDISFAXEMAILIDULINEA PDF_SUBIRULT_MODCODIGONOMAGECODAGEh1 GRUPOS.DBFJGRUPOSN  C C  N N T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDU SUPERGRUPO PED_SUBIRULT_MODh1 TCK_CC.DBFJTCK_CCN  N  N N D N N  C N U DESDEHASTAIMPORTEIVAFECHACAJAASIENTOLETRAFACTURAh1 TCK_REF.DBFJTCK_REFN  N  N  N UCODIGORECIBOREFAPLICADODAh1 CFG01.DBFJCFG01C  C UCUENTADESCR4h1 COMPROMI.DBFJCOMPROMIC  C C C N C  N N L  C 0& CZkMACHINE'&  kMACHINEU IDCODIGOBULATRCANTIDADIDROTTEMPITMOLDPENDh1 STKXDSP.DBFJSTKXDSPC C C C N N N D '& kMACHINEUDESPACHOCODIGOBULATRORIGINALUSADOSALDOFECHAkhh1 ROTULOS.DBFJROTULOSN  C C C C N  N  N  C  N  C   N   C  C C C C UPEDIDOCOD_INSBULATRCOD_CLIBULTOBULTO2CANTIDADIMPRIMEITMID CANTXBULTODEPOSITOEAN13DUN14EANLHDUNLH?<h1 TRJFEC.DBFJTRJFECC D UCODIGOFECHAeh1CHQ.DBFJCHQN  D N N C C C N C  L  C   C  L  N  N  N  C L L & kMACHINE#& CZC ZkMACHINEUNUMEROFECHAIMPORTE DEP_CLEAR DEP_BANCO DEP_PUEBLO PROVEEDORTIPODESCRTERCCUITEMISORENDOSASUBNUMBANCHQNUMCHQCOD_CLIECHEQUEDUDOSOIDbh1 ZONAS.DBFJZONASN C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODh1 LINEAS.DBFJLINEASN  C C  C N N  N T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUCOD_CENTIPO_LIN MASTERLINE PED_SUBIRULT_MODh1 STKXDEP.DBFJSTKXDEPC C C N C N N N C   C  N  N  D +&  kMACHINE'&  kMACHINE#& kMACHINEUCODIGOBULATRCANTIDADDEPOSITOSTK_ULTCANT_COMTEMPIDDESPACHOCANT_OCCANT_PRDVENCCODDEPCOD2h1 SOLCOM.DBFJSOLCOMN  C N N C N M C C  C  C  C( 1& CZCZ kMACHINESU SOLCODIGOCANT_PEDCANT_RECOKITEMPRESUPCOMENTBULATRUMDESCR SOLICITUDah1TR04.DBFJTR04C C N C C C C C  & kMACHINE& kMACHINE/&  kMACHINE#&  kMACHINE'&  kMACHINEU COD_INS COMPONENTECANTIDADBULATRCBULCATRIDUPARTEFULLTR04MPARTEDh1 FORINCOS.DBFJFORINCOSN C C  N N N N N N  N  N  N  N & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRIDUTC1TC2TC3TC4TC5IM1IM2IM3IM4IM5dah1 VALQUILE.DBFJVALQUILEC N  C  D D C N  N  C  C   C  C  C  C  C C  C  N UCOD_CLIPEDIDOFAC_VENFEC_VENFEC_ENTCOD_INS RECEPCIONKILOSCOD_CENREM_VENCAUSADESC_INSDES_CLIECOD_CUEACTUALCANTFLDKILOFLDTIEMPOth1 FLETES.DBFJFLETESC C C C( C C C  C C  N  C   C   L  N N N C C N  Cx N  N  N N C< T & CgkMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_FLENOMBREPHONO DOMICILIO PROVINCIACIUDADCUITHORARIOINMPAISCOD_ZIPIDUPROPIOZONATIPOVEHICULODOMINIOENTCOORDCOSTOHGEODIR COEF_ACEPT COEF_RECHA MIN_IMPORT DEP_PROPIOEMAILULT_MODCODIGONOMFLECODFLEh1 ROTNOENT.DBFJROTNOENTN  C C C N  N  L L N  L  N  C   & C ZkMACHINEU PEDIDOCOD_INSBULATRBULTOCANTIDADOKMANUALUSRBAJAITMID.h1 DISTRIB.DBFJDISTRIBN  D C C C C N N N  N  C & kMACHINE& kMACHINEU NUMEROFECHADEPCOD_INSBULATRCARGADESCARGA DEVOLUCIONITEMAGENTECOMPROB]h1 CHQANU.DBFJCHQANUC  N  D D $& C ZkMACHINE& CkMACHINEUCUENTANUMEROHOY DIF_VALORCHEQUEFECHAh1 CCOFAB.DBFJCCOFABN L C D C( CP & kMACHINEUORDFABBAJACODIGOFECENTNOMBREDESCRCCOFABwh1 CENTRAL.DBFJCENTRALC C C  N T & kMACHINE& kMACHINE& kMACHINEUCENTRALDESCRIDU UBICACIONULT_MODxh1 CODXPRO.DBFJCODXPROC C C( C C & kMACHINEUCODIGOCOD_INSDESCRATRBULIDzh1 IMPORTAC.DBFJIMPORTACN  C D D C D N N C  C  N  N  N  C C N N N C C D D D D D D N C L L L L  L !L "N #L $N %C &C 'C (C )N *C +C( ,C -N .N /D 0N 1N 2N  3N 4N 5N 6N 7N 8N 9C :L ;N <N =N >N ?N @N AN BN CN DN  EN FC GN HN IN  JD KN LN MN  NCd ON PN QN RN SN TN UD VC & kMACHINE&& WkMACHINES& ++kMACHINE/& C ZXkMACHINESUYNUMEROCOD_PROHOYFECHACODIGOFECINGMONEDACONDPAGOPOSICIONCONDCOMPIMPFLETE IMPSEGUROIMPBANCOBANCOFLETE SUBCENTROIMPDESPAIMPHONORSEGURO HONORARIOSFECFLETE FECSEGUROFECBANCOFECDESPAFECHONORFECEMBFOBCERRADAPAGADO REC_DESPA REC_BANCO REC_FLETE REC_SEGURO REC_HONOR FOB_PESOSREC_FOBPLAZOADUANAORIGENPROCEDDESPACHOCOEFICNUMDESPDESCRCOD_CENPREVGASTIMPFOBFECFOBIMPOTROS ADELANTOSASIENTOINGFLETE INGDERECHO INGESTADISINGOTROS INGPROVISISALDODEPOSITO GSMANUALESBIMPFOB BIMPDESPA BIMPFLETE BIMPSEGURO BIMPBANCO BIMPHONOR BIMPOTROSGSVARIOSFACTORTRAN FACTORTEOGUIATIPOIMPDESTINOASICIEFECCIEINCOPRECINCOTERMMOVTXTPROV BIMPFOBMO TIPOFLETEPESO DIASALMACE VALOR_ANABASE_IVA FECINGESTSIMIPEND PENDIENTE^h1 EJERCON.DBFJEJERCONC D D N C N C  L N  & kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINEU DIRDESDEHASTAIDDESCRMENUIDU NOVEDADESCORTELEG%"h1 TCK_CCC.DBFJTCK_CCCN  N N  N D N N  N  N  C   C  L  C U CODIGOCAJATICKETIMPORTEFECHASALDOASIENTOREFAPLICADOIDRECIBOOKDESCRh1 TCK_CLI.DBFJTCK_CLIN  C( C C C( N N C N  N  N  N  N  N N N N C D N N N N N C C C C( N N N N  N !N "N #N $N %N &C 'N (C( )C( *C( +C( ,L -L .L /L 0D 1C U2CODIGODIR LOCALIDAD PROVINCIATELCPOTHOGARNHOGAR TTARJETA1 TTARJETA2 TTARJETA3 NTARJETA1 NTARJETA2 NTARJETA3NCODTAR1NCODTAR2NCODTAR3NOMBREFNACSEXOESTADOTDOC DOCUMENTOTOCU OCUPACIONTELPARTELCELEMAILH1SEXOH2SEXOH3SEXOH4SEXOH5SEXOH1EDADH2EDADH3EDADH4EDADH5EDADAUTO AUTOMODELOPCARNESPFRUTASPQUESOSPBEBIDASTCARNESTFRUTASTQUESOSTBEBIDASFALTADESCRxh1 CODXCLI.DBFJCODXCLIC C C( C C & kMACHINEUCODIGOCOD_INSDESCRATRBULIDh1 STKXSER.DBFJSTKXSERC C C C N  C & kMACHINE& kMACHINE#& kMACHINEUSERIECODIGOBULATRCANTIDADDEPOSITOSERDEP{h1 CATCLI.DBFJCATCLIN C C  T N & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MOD PED_SUBIRsh1 DEPOSITO.DBFJDEPOSITOC C N C C( C C  C C(  C  C   C   N  C C C C N T & kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINEUDEPOSITOCENTRALSUCFACUSRDESCRIDUCOMDOMCIUZIPCUIT PRIORIDADCALIDADVENDIBLEPICKINGCOD_PROTIPOULT_MODCENTRAL1 Hh1 CASHDATA.DBFJCASHDATAC  C C  C N  N  D D N  C  L  C  C  N C N  D C D N N  N C  N N L C D L N  C M 5& CZCZCZkMACHINE& CO kMACHINEC'3& CZC ZCZ!kMACHINE;& C =CZCZCZ"kMACHINEU#IDCODIGOCOMPROBCAUSACUOTANUMEROFECREALFECESTIIMPORTENOMBREMODIFPROCLIPOSTORIGENCENTROEMPFECVALAGENTEFECHAORIORIGEN2NUMSUBNUMCUENTAANOCLASE ELIMINADODETALLEFMANUALMODIFIC AJUSTEFECPAGOFIJOLOGBORRADOVALORID2 h1 CCCLIE.DBFJCCCLIEC C  C N N N C D D  N   N   D  N  N C  C D N  N  N  C N D N N L L C  C N N  N  N !N "C #N $N %N &D 'D (N )N *N +D ,N -C .C  /L 0N  1C 2C 3N 4L 5L 6T && kMACHINEL& CkMACHINEL V c d CZCZ  & 7kMACHINE)& CZkMACHINE)& CZ8kMACHINE& CPZA6CCZCCZCZC AB69kMACHINE& CPZA6CCZCCZCZC AB6:kMACHINEH& CPZA6CCZ;kMACHINEX& CPZA6CCZ<kMACHINE]& CZCCZCZAZ6=kMACHINEY& C&&kMACHINEV d   !& C>kMACHINE& kMACHINE& --kMACHINE& ..kMACHINE& 33kMACHINEU?COD_CLICOMPROBCAUSAIMPORTEUSS_DEUMOTIVOCOMENTARFECHAVENCOPERACIOBULTOSHOYADELANTOADEL_USSREFCAUCANCELRECIBOINGTESS1CONDLISTAFECREFCUOTACUOMARCAMARKEDCOD_CUEDES_CLIESUCASIENTOPASEAPROBCALIFTIPOCTRLUSRMONEDACALLCALLTMPDIASEST_DESPMAXCUOFECESTCOEFICIDIDUUPDRFCCONTSHOWENVIADAASITIPO2COTIZTRANSFULT_MODCPBT REFERENCIAPORFACCPORFACPPORFECCPORFECPTESTCODIGO] h1 CONDCOBR.DBFJCONDCOBRN N N N N N N N N  N  N  N  N  N N N N N C C  L N N N N N N N N N N N  N !N "C #N $L %L &L 'L (N )L *L +N ,M -N .C /N 0L 1T & kMACHINE& kMACHINE& kMACHINEU2PLANANTICIPODES_PAGPLAZOCUOTAINT_FINA1A2A3A4A5A6A7A8A9A10A11A12DESCRIDUVARIABLEFIJOP1P2P3P4P5P6P7P8P9P10P11P12DESCR2VALORESCONTADO REEMBOLSOENTREGANO_DESGLDIASCHQ NOTIFICARLIBPREPNEGOCIOMODELOFCRECARGO RECARGOART DESGL_REMFAC_ANTIULT_MODgh1 PROVEEDO.DBFJPROVEEDOC C C( C( C( C C C C  C  C  C  C  C  C C C D D N  N N N N  N  N  N  N  D N  N  D  N !C  "C  #N $C %C &C 'C (C )N *N +C ,C -N .N /N 0C 1C 2N 3M 4C 5N 6N 7N 8D 9C :C ;D <N =C >C( ?N @C  AC BC2 CC2 DC EN FN GN HN IL JN KC LC MN NL OC PD QL RN SN TN UN  VC WN XC  YC ZN [M \N ]N  ^C _C `N aT bN cN dN eN fN gN & CghkMACHINE& kMACHINE& >>kMACHINE& ikMACHINE& kMACHINE& @@kMACHINEUjCOD_PROCOD_CENNOMBRE DOMICILIODOM2CIUDADCIU2 PROVINCIAPRO2PHONOPHO2COD_ZIPZIP2 INSCRIPCIOCOD_SENCOD_JUNCOD_FLEALTABAJACREDITODES_COMDES_COM2IVA_COMCRED_COMCRED_USSAJUS_USSCOM_ACUMRET_ACUMFEC_LAST COM_ACUMOC RET_ACUMOC FEC_LASTOC GANANCIASCOD_CUECUE_DEUCOMISIONGUIAMBSIVARETIVAPROVHACCOMI_COMCOMI_PAG COMPRADORPAGADORZONACATFPAG CONTACCOM CONTACPAGIVACAT COMENTARIOTARJETA PROVEEDOR ANTPAGGAN ANTRETGAN FECULTPAGRG3337CONTADOFECULTPAISCLIENTEFANTASIAGANCATIDUFAXEMAILWEBIBIBRETTIPOFISCAT2CAT3MTIPOIVAIVACTRLES_TARJCITIDOCREC ARTPROPIOSVENCINSC USA_PLANTIVARETRETMONOIIBBCMLINEAIMP_TRIRETCPCUE_COM GANANCIAS1CALIFCALIFTXT TIPO_AFIPBANCOTRFBCRUTEST_ACTULT_MODDES_COM3DES_COM4DES_COM5RETARIVACAT2ECHEQUECODIGOCODPRO2Ch1 COM_OPER.DBFJCOM_OPERC C  C  N  D C D N N   D  C  C   C  N  D C C N N  N C N C C N  C D N N C C  C  N !N  "C #C  $N %N  &N  'N  (N )C *N  +N ,N -N .N /N  0C 1N 2D 3N  4N  5N 6L )& C  kMACHINE& 7kMACHINE& kMACHINE#& kMACHINE&& kMACHINE1,& C8kMACHINE14& C ZC(Z9kMACHINE12& :kMACHINE1 )S <& ;kMACHINE 2  G& CZC  Z<kMACHINE 2  E& C CZ'kMACHINE' L !& C =kMACHINE'& )0>kMACHINE& ?kMACHINE)& C ZC(Z@kMACHINE& AkMACHINE& BkMACHINE$& C ZCkMACHINEUDCOD_PROCOMPROBREM_PROORDENFEC_RECDES_VAL DIF_VALORCAJ_PROASIENTOFECHADES_PROVCUENTACOD_CENOPAGOEMISIONANULADOAGENTECOMISIONNUMEROCOEFICTIPOCTRLREFCAU OPERACIONCAUSAHOYUSADOPASEOCODIGOOCOMPROBOCAUSAOPASEOPHORASCUENTA2USRMON_EXT GANANCIASASIDIASUBNUMPROPIONETOGANMONEDAMONEXTMONPASEAPLICASIENTO2DEBITADO PROVINCIAFECESTBANCHQNUMCHQSUBTIPOECHEQUEOPERCHEQUEIDCHEQVENCVALESMAXVALEPAGMENADEBITARCPBTIDCHEQUEDIFNUMCUENUM&h1 VEN_OPER.DBFJVEN_OPERC C  C  N  D C D N N   D  C  C   C  N  D C C N N  N C N C C N C C N  D N N D  N !C "C  #C $C  %C &N 'N (N  )N  *N +N ,C -L .N /N 0N 1N 2N  3D 4C 5D 6C 7N  8N  9C :N ;L <T !& CZ=kMACHINE)& C  kMACHINE& >kMACHINE& kMACHINE#& kMACHINE&& kMACHINE1F& C!g?kMACHINE1 D C$  0& C@kMACHINE14& C ZC*ZAkMACHINE1E& C CZ)kMACHINE) L & BkMACHINE& CkMACHINE'& ,9DkMACHINE)& C ZC*ZEkMACHINE& FkMACHINE& GkMACHINE$& C ZHkMACHINEUICOD_CLICOMPROBREM_VENPEDIDOFEC_RECDES_VAL DIF_VALORCAJ_PROASIENTOFECHADES_CLIECUENTACOD_CENRECIBOEMISIONANULADOAGENTECOMISION VOPERACIONUMEROTIPOCTRLREFCAUCOEFICCAUSALETSUCINGTESHOYUSADOASIENTO2FECHAIPASEHORASCUENTA2OCODIGOOCOMPROBOCAUSAOPASEUSRPROVISASIDIASUBNUMAPLICPROPIONO_CCMONEDAMONEXTMONPASE PROVINCIANRETIVAFRETIVA UNEGOCIOSFEC_COMIRETREFBANCHQNUMCHQDEBITADOSUBTIPOECHEQUEULT_MODVEN_OPEOPERDEPOSITOCHEQUEIDCHEQFECCPBTADEBITARIDCHEQUEDIFNUMCUENUM{h1 BIENES.DBFJBIENESC C C C C  C  C C D  D  C  N  N   N  N  N  N  N  N  N  N  N N  N N N N N  N  N  N  N   N  !N  "N  #N  $N  %C  &N  'N  (N  )N  *N  +N  ,N  -N  .N  /N  0C  1N 2N 3N 4N 5C 6N 7C 8N  9C :N  ;N  <C =N >D ?N @N  AN  BC CN DN ED FN GC HC IN JC KC LC MC NC OC PC QC RN SN TC  UN VD WC  XC  YN ZN [N \N ]C ^C _C `C aC bN cC  dC  eN  fN gC hC iN jN kC  lC# mN  nC  oN pC qN rCP sN  tN uN vN wN xC yN zN {C  |N }N ~C  N N N C  C C  L N N N N N  C N N N N N N N N N N N N N C C N C  C  C N  C# C N C C C N N N C N N T T C N N N  N N L && KkMACHINEKS&& JkMACHINEJS&& LkMACHINELS&& MkMACHINEMS& NNkMACHINE& OOkMACHINE& PPkMACHINE& QQkMACHINE& kMACHINE& rkMACHINE& kMACHINE& {{kMACHINE & C=kMACHINE& mmkMACHINE& kMACHINE& kMACHINE& ookMACHINE& }}kMACHINE& kMACHINE& kMACHINEUCOD_INSCOD_PROCOD_CENCOD_IPROCOD_CUELUGARCOD_SENCOD_JUNALTABAJACANDES_INS COS_LIFO1 COS_LIFO2 COS_LIFO3 COS_LIFO4COS_LPRFAC_LPR1FAC_LPR2FAC_LPR3FAC_LPR4 VIDA_UTILUSOCOEF1COEF2COEF3COEF4CANT1CANT2CANT3CANT4CANT5CANT6CANT7CANT8CANT9CANT10CODTREEKILO1KILO2KILO3KILO4KILO5KILO6KILO7KILO8KILO9KILO10MEDIDAPRECIOCOSTO COEF_PRECREDONACT_INMCOMISIONMINIMOLINEAAGENTEPESOGRUPOACTCOSCOSACTFECACTII CANTXBULT VOLXBULTO COMPUESTOS1S2FEC_ULTSTK_ULT IMPORTADOCLAVE COMISION2VENTACOMPRAPANOLPRODUCCODALT1CODALT2CODALT3CODALT4STK_MINSTK_PEDVEN_CUE SUBCENTROSTK_FECABREVABREV2FAC_LPR5 COS_LIFO5FAC_LPR6 COS_LIFO6IVABULATRBULTOS ATRIBUTOSMONEDADES_CUEABREV3PESOXUUVENCONJUNTOREVENTATIPO_ARTTIPO_COSCTA_VARDESPABARRASCTA_CONMARCALOTESIVAPERDESCRPALLETSCOEF5COEF6 MINCOMPRAFACTORSERIESPESOBRUPALLETIDUDEMORADUN MEDIDAAUXSUBGRUPOFORINCOS IVAPERANTIMP_CUEGENERICOESPECTFGRAVACTU_PE TIPOSTKMINEST_ACTMERMAMINBATCHDESCR2CM_UNI2MEDCOD MEDAUXCODTOXICOBUL_GENATR_GENNO_FRACCICLO CAVIDADESSETUP CANTXCAJASTK_MIN1 STK_MIN_MCONTSTKITCUXDIAVEN_CUEXDES_CUEXNCM VENTASXPEREQZCOD_UPREN_CUM UBICACIONDMARCAMODELODUNMULTEANMULTDISCONTDESCRVARCAT_COM MASTERLINACTULT_MODASISTDTOPRV1DTOPRV2 UXBCOMPRAACOPIOVENCANTICIPOCODIGODESCINSCODINSYh1 CONDPAGO.DBFJCONDPAGON N N N N N N N N  N  N  N  N  N N N N N N C C  N N N N N N N N N N N  N !C "N #T $N & kMACHINE& kMACHINE& kMACHINEU%PLANANTICIPODES_PAGPLAZOCUOTAINT_FINFIJOA1A2A3A4A5A6A7A8A9A10A11A12DESCRIDUP1P2P3P4P5P6P7P8P9P10P11P12DESCR2DIASCHQULT_MODVALORESh1 CESION.DBFJCESIONC C  C  D N C C  C N  #& kMACHINEU COD_CLICOMPROBCAUSAFECHAIMPORTEBANCOCUENTACLIENTEASIENTOkh1 CCPROV.DBFJCCPROVC C  C N N N C D D  N   N   D  N  N C  C D N  N  N  C N D N N L L C  C N N  N  N  !N  "N #N $N %N &N 'N (D )C' *C  +N && kMACHINEL& CkMACHINEL C c d 1 2 (CZC!ZCZC Z  /& CZC ZkMACHINE/& CZC!Z,kMACHINE& CPZA6CCZC!ZCCZC!ZCZC!ZC AB6-kMACHINE& CPZA6CCZC!ZCCZC!ZCZC!ZC AB6.kMACHINEN& CPZA6CCZC Z/kMACHINE^& CPZA6CCZC Z0kMACHINEg& CZC!ZCCZC!ZCZC ZAZ61kMACHINE!& C2kMACHINE& kMACHINE& ))kMACHINE& **kMACHINE& 3kMACHINE& ++kMACHINEU4COD_PROCOMPROBCAUSAIMPORTEUSS_DEUMOTIVOCOMENTARFECHAVENCOPERACIOBULTOSHOYADELANTOADEL_USSREFCAUCANCELOPAGOINGTESS1CONDLISTAFECREFCUOTACUOMARCAMARKEDCOD_CUEDES_PROVSUCASIENTOPASEOPOPRCTRLUSRCOEFICMONEDADIASMAXCUOFECESTIDIDUASITIPO2 REFERENCIAPORFACCPORFACPPORFECCPORFECPTESTCODIGOCPBTh1 CHEPRO.DBFJCHEPROC  N  N  L L C  N  & kMACHINE& kMACHINEUCUENTADESDEHASTABAJABORRARIDUNUMEROnh1 CHEQUES.DBFJCHEQUESC C  C  N  D C D N  C   C  N  C  C  D C N N  C D N N N N N C C  N C  N  N  C D &  kMACHINE#& kMACHINE%& C!kMACHINE& "kMACHINE& #kMACHINE!& CZ$kMACHINE)& C ZCZ%kMACHINE& CO&kMACHINEC'!& C'kMACHINE'& CZ(kMACHINE& kMACHINEU)CODIGOCOMPROBREMITONUMEROFEC_RECDES_VAL DIF_VALORCAJ_PROCOD_CUENOMBRETEMPORALCOD_CENFLAGEMISIONCAUSASUBNUMASIENTOLETSUCHOYPASEMONEXTMONEDACTRLUSRTIPOIDMONPASEIDUBANCHQNUMCHQPROCLIFECESTICHE_VENCHEQUEDESCRCUDESCCUNUMIDCHEQBORRADOSCUDEPCUIMP~h1 BATCH.DBFJBATCHC  C C C L C  UFAC_VENCAUSAARCHSPOOLEDMARKEDREMITOBh1 NUMFAC.DBFJNUMFACN N N N N N N N N  N  N   L  N  N N C( L L C D N N N  L N C L N  N  N  C C  N !L "C #C $N  %N  &N  'L (N )N *N +N ,D -C< .C< /C  0N 1N & 00kMACHINE& kMACHINE& //kMACHINEU2FACTAFACTBFACTEDEBIADEBIBDEBIECREDACREDBCREDEREMIFC ZONAFRANCAFACTZDEBIZCREDZDESCRLETRAREMCCREMCAICAIVTOFIS_IMPFIS_CONFIS_VELFCEPVRFIS_DRVTRANSFFACTCDEBICCREDCACTIVOFACTIVORFACCRED TRANSFSRVFC_CBUFC_ALIASFACTMDEBIMCREDMLIQPRODBONOSFISCOD_MAILINTERNOREMI_ULT REMI_VENC NOMBREMAIL NOMBZMAILIDUPTOVTAPV5h1 CASHCANC.DBFJCASHCANCN  N N N  D C  N C  C  D -& CZCZ kMACHINE6& CZCZCZ kMACHINE& kMACHINE& kMACHINEU NUMEROCUOTAANOOPHOYIDUCLASECOMPROBCAUSAFECHAIDID2Sh1 COSMAN.DBFJCOSMANC C C D N N C C L  C   N  N  N  N N N )& CkMACHINE-& CkMACHINEUCODIGOBULATRFECHACOSTOMONEDATIPOLOTE CONTROLADOIDTIPO2 DESCUENTODESC2DESC3DESC4DESC5CODLOTh1 CASHCFG.DBFJCASHCFGCd Cd N N N N N N N  N  N  N  N  L N  N L L L L L L L L L L L T N L N  L  L !L "L #C $C %L &L 'N (N )C2 *N +N U,FILT_CLIFILT_PROI0I30I60I90I120E0E30E60E90E120TIPOLISFASTMINIMO PLANVDESCENDOSA PORFECVALPROVXCATCHQNODIFOCLIOPROOVALOTESOADIOIMPOPEDVERSIONGENTIPOTIPOCAJAMAXGENCCC_ACTCCP_ACTOOCS CLI_DISTRTSPRYVENTSPRYCOMOPRYVOPRYCCLIINIPROINIPROPATCLIDIASPRODIAS+ h1 CASHCUE.DBFJCASHCUEC  C  C  L C N N L L  C  C  L  N   N & kMACHINEUABREVCOD_CUETIPOCHEQUESTXTTSVALESBANCOSCENTRODESCRCONFIRMCATSUBCLASECUENTASZh1 CASHEXPA.DBFJCASHEXPAN N D N N C N  D C  C  N  N  C(  C  L N D -& C ZC ZkMACHINE7& CC ZC ZkMACHINE6& CZC ZC ZkMACHINEUTIPOSUBTIPOVENCIMPORTECLASEPROVNUMEROFECHAPOSTCENTROCUOTAANODESCRIDUELIMINAREMPFMANUALCOMPROBIDID2?<h1 CASHNUME.DBFJCASHNUMEN  UNUMEROh1 CASHPRON.DBFJCASHPRONN N N N C L N C( )& CZCZkMACHINEUTIPOSUBTIPOMESANOCENTROINGRESOIMPORTEDESCRh1 CASHTIPO.DBFJCASHTIPON N L C( L L L )& CZCZkMACHINEUTIPOSUBTIPOSUMADESCRCLISUBTDUDOSOIDh1 CASHFLOW.DBFJCASHFLOWN C( N N N C L N UTIPODESCRSUBTIPOMESANOCENTROINGRESOIMPORTE ih1 CCCOMP.DBFJCCCOMPC C  C  C N  D N  N N  N  N   N  N  N N N N  N C N N L C C C  C  N  N N C N N   N !N "N #C $C  %C &D 'C (N )N *N +N ,N  -N .C /C 0N 1D 2D 3N  4N  5N  6N  7C 8D 9N  :C ;N  <N =N  >N  ?C @C AC BN CC DN EN FN GN HC IC JM KN  LN MN NN OL PN QN  RN SN  TC UN  VD WN  XL YN ZL [N \N ]N ^N _N `N aN bN cN dC eN fN gN hT iC & jkMACHINE)& C9ZkkMACHINE%& ClkMACHINE& 99kMACHINE+& C8CmkMACHINE%& ==kMACHINE=& OOkMACHINE& nkMACHINE& iokMACHINE0& 9>kMACHINE>= #& C9ZC=ZpkMACHINEUqCOD_PROFAC_COMREM_COMCAUSAORDENFEC_COMTOT_COM IMPONIBLEIVAINVINVIVA_COMPLANDES_PAGANTICIPOPLAZOCUOTADESCUINT_FINDES_PROVDES_COMPIVA_COMPAPLIC INVENTARIOCOD_CENCANTFLDKILOFLDGUIARETIVAP3337RETGANCOMISTOT_COMIDES_COMIVA52COMISIONAGENTEREFCAUFEC_ENTDESCPLANMOTIVOCOEFICDEUDACTRLDESC1DESC2COD_DOCCUITFIJOVTOHOYIMCOM1IMCOM2IMCOM3IMCOM4COFINFEC_DGIOPDESPACHOIMPORTACMONEDAPAGOASIDIASUBDRECETARJETAPAGOSCENTROTIPO_IMPREDONDEOPIMCOM4IVACATLETRADIVNOTASUNTIPOIVAUSRIVA_NCFLAGIBDGLIICOS_ASIGLUGARIBII2FEC_EMBTRAN NOIVACTRLPERIBIMP_TRICODIGOFC GANANCIASVERSIONBASE_GANBASE_IB1BASE_IB2DESC3DESC4DESC5DEPOSITOFCE_TIPOIVACAT2IMCOM5DTFAC_COM2CCCORDCOMPROBFECHAFECHASUBCODPROID2IDKh1 CCFORMUL.DBFJCCFORMULN  C N C C C< C C L  N   N   C  N  N N C N C  N  C N N N N L C C C T & kMACHINE& kMACHINE#& kMACHINE& kMACHINEUFORMULACODIGOCANTIDADCIERREDEPOSITODESCRBULATRPENDMINBATCHMAXBATCHSTKPECOSTOHOYCOSTOCIEACTIVACOSTOANTIDUMAQUINA CIE_PARCIAPESOEST_ACT TOX_DESDE TOX_HASTAMULT_RESDEPING MERMACTRLARTPERULT_MODh1 CFG_LIS.DBFJCFG_LISC C C C C C N C C  C  N  N  C  D C N N C N N C N C  T & kMACHINE& kMACHINEUFIJABONIFACTIVAMONEDADESCRSIMBOLO LISTABASECOD_CLIIVAINCACTUFAC COSTOBASECOSTOPERCOSTOAUTACTFORZAMULTIMONACOPIO ACOPIABLEBONIFPERBONLIS DECIMALESBLOQLISTAIDUULT_MODph1 PROAUX.DBFJPROAUXN  C( C( C C C( C N C   C(  N   N  N & kMACHINE& kMACHINE& kMACHINEU OPNOMBRE DOMICILIOCIUDADZIPPHONO PROVINCIAPAISCUITEMAILCATCATIVATIPOIVAh1 COMPPROD.DBFJCOMPPRODN C C C N C  L C N  C  N  C  N  C N C N C N C N C N C C N N  N N C N  +& kMACHINE& kMACHINEU ITEMCODBULATRCANTIDADIDMULTIPLEBUL1CAN1BUL2CAN2BUL3CAN3BUL4CAN4BUL5CAN5BUL6CAN6BUL7CAN7BUL8CAN8APLADIUNI PRODUCCIONNCIERRESITMDEPORDENCLAVEPMh1 CONTACTO.DBFJCONTACTON  C UCODIGODESCReh1COS.DBFJCOSC C C D N N C C  C  C  L  N  N  N N N N N N N  #& kMACHINE)& CkMACHINE-&  CkMACHINE'&   kMACHINE& kMACHINEUCODIGOBULATRFECHACOSTOMONEDATIPOCOMPROBCAUSALOTE CONTROLADOTIPO2 CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC5EMP CODATRBULCODLOTe h1 CLIENTES.DBFJCLIENTESC C C< C C( C( C C C  C  C(  C(  C   C  C  N  N N N N  N  N  C  C  C C C C C C C N  N !N "N #N $C# %C# &N 'C( (N )N *N +N ,N -M .D /C 0N 1C 2C  3N 4N 5N 6N 7N 8N 9N :C ;N <N =N >N ?N @N AN BC CC DC EC FC  GN HC IC JC2 KC2 LC2 MC  NC  ON PN QC( RC SC TC( UC  VC2 WC XC( YC( ZC [C \N ]C( ^N _C `N aN bN cN dN eL fN gN hN iC jL kL lL mL nL oC pL qM rD sD tD uN vN wN xD yC2 zC( {N  |C }N ~C C N C N Cx Cx Cx C N C M T N  N N N N  N & CgkMACHINE& kMACHINE& kMACHINE& kMACHINE& [[kMACHINE& MMkMACHINEUCOD_CLICOD_CENNOMBRESUC DOMICILIODOM2CIUDADCIU2 PROVINCIAPRO2PHONOPHO2COD_ZIPZIP2 INSCRIPCIOCREDITODES_COMDES_COM2IVA_VENCRED_VENCRED_USSAJUS_USSCOD_CUECUE_DEUIVAIVA26CONSFINVENDEDORCOBRADOR GANANCIASCOD_FLECOMI_VENCOMI_COBZONAFPAGCAT CONTACVEN CONTACCOBIVACATHORARIOLISTANUMCOMNUMREMNUMNDNUMNC COMENTARIOFECULTTARJETAMONEDAMVAR PROVEEDORA1A2A3A4DIASCONDCREDPAISDISTRIBCOMI_DISDES_COM3DES_COM4DES_COM5DES_ESP1DES_ESP2DES_ESP3AGE672IBDEPOSITOPALLETSABREV COMIXNCFMFAXFAX2EMAILEMAIL2WEBIDUCODALTDES_NAC1DES_NAC2DOMENTCIUENTPROENTPHOENTZIPENTEMAILENTFAXENTHORENTHOR2 UNEGOCIOSFANTASIADTONCRUTIBPERPRO_LINKVALORESPLAZO CR_ATRASOPAIS2PAISENTDOCRECVE_CALIF VE_MIN_PEDVE_DESP PERIIBBEXPAG1PAG2PAG3PAG4PAG5PAGH USA_PLANTDOMALTVENCCONSIBPERDIBPERHESP_OBSIIBBCMDEMORAALTAFCEEMAILFCEDESTEMPDEPTRFCATCREDENTCOORDCESDSPTIPODOCNO_CCPVGEODIRGEODIR2GEOENTDIRCOORDEST_ACTPRES_FCDIR_COTULT_MODGRUECCOMPLROTFORM ARTSLIBREGLNACOPIOCODIGONOMCLICODCLI?h1 MOVSTOCK.DBFJMOVSTOCKC N D C N C  C C C  N   C  N  C  C C T )& CkMACHINE& CkMACHINE!& CkMACHINE& kMACHINE& kMACHINE(& C ZkMACHINE'&  kMACHINE%& CkMACHINE%& CkMACHINE0& C Z kMACHINEUCODIGOCANTIDADFECHADEPOSITOUSRNUMEROCAUSABULATRITEMHORACTRLDESPACHOSERIEDSERIEHULT_MODCODFECCOMPROBPRIMARIOCODCODBULFCODATRFPKLIh1 CSCOEF.DBFJCSCOEFC N UCRITERIOCOEFb h1 CCVENT.DBFJCCVENTC C  C  C N  D N N N  N  N  N  N  N N N N  N C N N N L C C C  C  N N  C  N N  C !N "N #C $C %C &D 'C (N )N *N +N ,N -N .N /N 0N 1C 2C 3N 4N 5N 6N 7C 8C 9D :N ;D <C  =N >L ?N  @N  AN  BN  CC DN EL FN GN  HC IL JC  KC LN ML NC ON PN QN RN SN TN  UL VN  WN XN YN ZN [N \N ]C# ^L _C `N aN bN  cN  dM eM fN gN hC iC jN kL lC mT nT oN pN  qN  rL sL tL uN vN wM xN yN  zC {N |C }C ~N C( L L L N N N N N N C D N N N N L L N C N L L N N N L N L N L N C( N C D N N N T T N & kMACHINE& kMACHINE%& CkMACHINE#& kMACHINE& JkMACHINE,& kMACHINECCRg& jjkMACHINE& sskMACHINE&& kMACHINEE 3& CGkMACHINEG R & kMACHINE& kMACHINE& $$kMACHINEUCOD_CLIFAC_VENREM_VENCAUSAPEDIDOFEC_VENTOT_VEN IMPONIBLEINVIVAINVIVA_VENPLANDES_PAGANTICIPOPLAZOCUOTADESCUINT_FINDES_CLIEDES_VENTIVA_VENTIVA_VEN2APLIC INVENTARIOCOD_CENCANTFLDKILOFLDCOMIPERCOMINUMCOMICODDEUDAIVA26CONSFINDES_COMCOMISIONAGENTEREFCAUFEC_ENTDESCPLANDESCADICMOTIVODESC1DESC2DESC3DESC4DESC5DESCA1DESCA2COD_FLEFLETESUCCTRLCOEFICIMPINTCUITCOD_DOCHOYFIJOVTOVENTALISTADV1PESO RECEPCIONBULTOSVOLUMENCOFINMONEDA DESPACHADOEST_DESPASIDIADEPINMEDIDCENTRO SUBCENTROCEDIDADISTRIBCOMI_DIS IMPUESTOSDESC1EDESC2EDESC3EPEDVENPARCIALFCPESONETOREDONDEOP672T672DTO672RECARGOCONTACTOMULTIPLEDIVDES_NAC1DES_NAC2PRODTRANTXTCPBT TXTREMITOAP_STKUSR UNEGOCIOSOTESTADOSTK_CONS ARM_QUIEN ARM_INICIOARM_FIN ARM_CAJASRFCUNSCH1 FACTURADONO_FCNFCNFCMAX NCNDMOTIVOVALORARM_COD PROMOCIONIVACATTIPODOCPERMISOTIPOEXPTIPOEXPDITMCOMFITMCOMRFCEENVAUX1ESP_OBSFCDEREDTOACUFCEFCE_IDFCE_CAEFCE_VENC TIPOEXPORTNCND_SUBFCE_CONCFCE_TIPOIMPRESOIMPRESORVALDECLND_PROVSALDORTRFREGCOTREVANULADA ARM_PALLETNO_CCLIQPRODTRANSFCOMPLTRF2 DESC_CONSHORARIOACOPIONUMCOTLIQ_1LP_SUCLP_NUMNREDTULT_MODPVCCVFACCCVORDFECHACOMPROBREMITONO_DESPREMFEC9h1 RECLAMOS.DBFJRECLAMOSC C C  C N  C C D D  M  G  C   L & kMACHINE& kMACHINE& kMACHINEU IDCOD_CLICOMPROBCAUSACUOTATIPOSUBTIPOFECHAVENCNOTAARCHIVOIDUOLDkMh1 FORMULAS.DBFJFORMULASN  C N C C C C C C  C  C  N  N  N N N C N N N N  N  N N L C N T & kMACHINEUFORMULACODCOMPCANTIDADTIPO_APLDEPOSITOBULCOMPATRCOMPCENTROCODSUSTBULSUSTATRSUSTCANTSUSTMED1MED2UNIDCOMPUNIDSUSTADICCOSTOHOYCOSTOCIECOSTOANTIDXTEMPPASOMERMAREF_PESOTEMPERATORDENULT_MOD_\h1 IDX03.DBFJIDX03C C C T UNOMBRESIMBOLOFCEULT_MODh1 IMPRES.DBFJIMPRESC( C( C( C( C( C( C( C( C( U FCPDOCOPCPRCDPEXMV:h1 LISPREC.DBFJLISPRECC N N C C C N N C  N  N  N  N  N D N N N N N N ,& CZkMACHINE0& CZkMACHINEUCODIGOLISTAPRECIOCOD_CLIBULATRBONIFPUBLICOLISPROVMARGENDTOPRVMONEDAPRECIOOCAMBIOFECHADESC2DESC3DESC4DESC5MARGEN2BONLISLISXCLI30h1 PARAM.DBFJPARAMC UTEXTOnh1 TCCCOMP.DBFJTCCCOMPC C  C  N  D N  N  N N  N  N  N  N   N C N N L C C C  C  N  C C C N N  N  N N N  N !N "N #N $N %N &D 'C (N )N *N +D ,D -N  .N  /N  0C 1C 2N  3D 4M 5C 6N  7N 8N  9C :N ;N <C =M >C ?N  @N AN BN CN DC EN  FN GN HN IN  JN KN LN ML NC ON PC QD RN  SN TN UN VN WN XT YT ZN [L \N ]N & ^kMACHINE1& 5kMACHINE5N !& CZ54kMACHINE& 5_kMACHINE& `kMACHINEUaCOD_PROFAC_COMREM_COMORDENFEC_COMTOT_COMIVA_COMPLANDES_PAGANTICIPOPLAZOCUOTADESCUINT_FINDES_PROVDES_COMPIVA_COMPAPLIC INVENTARIOCOD_CENCANTFLDKILOFLDGUIA OLDRETIVARETGAN OLDRETMBSCOMISTOT_COMIDEUDADES_COMIVA52RETIVARETMBSCOSTVIVOCOSTGANCCOSTCOMICOSTFLETCOSTGUIAFEC_ENTDESCPLANCOEFICP3337FIJOVTOHOYIMCOM1IMCOM2IMCOM3CUITCOFIN FACTURADOFEC_DGIESTADOPENDDESC1DESC2IMCOM4RECEPREDONDEOMONEDADIVNOTASDEPOSITOUNIVA_NC AUTORIZADAAUT_USRIILUGARIBII2USRFACTORFACTORFFTRANDESPLPERIBINCOTERMIMP_TRIOC_EXT GANANCIASOAK OAK_FECHAIMPORTACDESC3DESC4DESC5IMCOM5REVDTDTMFACT_MODIRENTTOLCTOLPTCCCORD PENDIENTEFECHA}h1 TCOMPRAS.DBFJTCOMPRASC N  C  D C N  N  N N  N   N  C  C   C( C C  L C C N N C C N D N  N  N N C N M  C !C "C #C $C %N &N 'N  (N )N *N  +N  ,D -N .N  /N 0N 1N  2N  3N  4N  5C 6N 7N  8N  9N :N ;N <N =N >N ?N @N AN BN  CN  & kMACHINE#& CZC%ZDkMACHINE&& CZCZEkMACHINE& $kMACHINE& CFkMACHINE)& ! CGkMACHINE#& ! #kMACHINEUHCOD_PROORDENFAC_COMFEC_COMCOD_INS RECEPCIONKILOSCOS_LIFODES_INSTOT_COM VIDA_UTILCOD_CENREM_COMDESC_INSDES_PROVCOD_CUETABLACOD_ALTNOM_ALTCOEFCOEFICGRAVADAAFECCOMICOMISIONHOYRECEP2SOLITEMCANT_RECCENTRO SUBCENTROESTADOBULATRMEDIDAARTPENDITMRECEP3PRODIVAPERMONEDAIMPORTAC FACTURADOENTREGACM_UNI2CANT_U2 PRECIO_U2IIPERII2TRANSITOLINEAGRUPODEPOSITODESPLTIPO_IMPTRANIBEXRET_GANRET_IB1RET_IB2DESC2DESC3DESC4DESC5DESCXOMEDCOD MEDAUXCODORDENITM SOLICITUDFECHAULTCOM8h1 PLANVARC.DBFJPLANVARCC  N N N N N N N N  N  N  N  N  C< N N N N N N N N N N N N N N N N L N  N !N & kMACHINEU"IDC1DC2DC3DC4DC5DC6DC1PC2PC3PC4PC5PC6PDESCRC7DC8DC9DC10DC11DC12DC7PC8PC9PC10PC11PC12PANTICIPOCUOTAPLAZOVALORESNO_DESGLDIASCHQNEGOCIO DESGL_REMh1 IDX02.DBFJIDX02D N N N N N N N N & kMACHINEU FECHAINDICE1INDICE2INDICE3INDICE4INDICE5COEFAA1IDX027h1 IDX04.DBFJIDX04D N N N N N N N N  N  N  T & kMACHINEU FECHAINDICE1INDICE2INDICE3INDICE4INDICE5INDICE1CINDICE2CINDICE3CINDICE4CINDICE5CULT_MODIDX04,  h1CONS.DBFJCONSN  N  N  N  N  N  N  N  N  N  N  N   N  D D N D N N N N N N N N N N N CF CF CF CF  CF !CF "CF #CF $N %N &N 'N  (D )N  *C +N ,N  -N .N /N  0C 1D 2N 3C 4C 5C 6C 7C 8C 9C :C ;C <C =C >C ?C @C AN BN CN DN EN FN GN HN IN JN KN LN MN NN OC PN QC  RC  SC  TN UN VN WN XD YN  ZC [N \C ]N ^C( _C< `C  aC< bD cN  dC eN fL gL hL iD jC kN lC mN nC oN pN qN rL sL tL uC  vL wL xL yL zL {N  |N  }C ~C N N C N C N C N C N C N N  L C  C C N C N L N  C N N  L N  C N L N  L L L L  CONSQ-UCOB_OPERPAG_OPERCHEQUEORDENPEDIDORECIBOOPAGOINGRESOIVAIVANOIRG3337OPRETGANVENCIECOMCIEVENDESCOMDESCOBDESPAGDESVENHASCOBHASPAGHASDEPDESDEPHASEXTDESEXTHASTRADESTRAHASFACTXT1FACTXT2FACTXT3FACTXT4FACTXT5FACTXT6FACTXT7FACTXT8MINGANMINGAN1RETGAN1NRETGANDSPFECRECEPHOR_ULTPER_OCNCNDPER_OP_PPER_OP_CTRFDEPTRFHORBALCIEDTO672FCFORMPDFORMOCFORMOPFORMCPFORMRCFORMDPFORMEXFORMMVFORMPRFORMRTFORMNCFORMREFORMNRFORMFCCOPIASNCCOPIASRECOPIASPDCOPIASNRCOPIASOCCOPIASOPCOPIASCPCOPIASRCCOPIASDPCOPIASEXCOPIASMVCOPIASRTCOPIASPRCOPIASMVRFORM MVRCOPIAS IMP_PROVG IMP_CURSO IMP_GASTOIVAANT IVANOIANT RG3337ANT DTO672ANTSTKCIENRETIBRGFORMRGCOPIASRIFORMRICOPIASEM_RAZONEM_DOMIEM_CUITEM_ACTISTK_ININRETIVARVFORMRVCOPIAS HAYRET_IB HAYRET_GAN HAYRET_IVA CIE_COMISCOPIAPDF IMPDEBCREDSFORMDSCOPIASDSAFORM DSACOPIAS VE_MIN_PED VE_MIN_RECIIBB_BA IIBB_CABAIIBB_SFEIMP_IMPODPLUNDPMARDPMIEDPJUEDPVIENRIB_BA NRIB_CABAFRIB_BA FRIB_CABACRIB_BA CRIB_CABAPFFORMPFCOPIASFCEXFORM FCEXCOPIASPLFORMPLCOPIASFCEFORM FCECOPIASNCEFORM NCECOPIASNRCP HAYRET_CP IMP_IMPOLMAILTIPOPREFORM PRECOPIASPRDFORM PRDCOPIAS IIBB_ER_RNRIB_ERFRIB_ERCRIB_ER NRIB_BA_EIIBB_MISNRIB_MISFRIB_MISCRIB_MISIIBB_SALNRAR HAYRET_ARPERIB01QPERIB01P HAYPER_IVAh1 VENTAS.DBFJVENTASC N  C  D C N N N N  N   N  C  C   C Cd C C  C C N N N C C N N C C N C N N  D !N "N #C $N %C &C 'C (N  )N *L +N ,N -N .N /N  0N 1N 2N 3N 4C 5C 6C 7N  8N  9D :N ;N  <N =N  >N  ?N @N AN BN  CN & DkMACHINE&  EkMACHINE& CFkMACHINE& GkMACHINE%& CHkMACHINE!& CIkMACHINE0& CJkMACHINE V#& CZC)ZKkMACHINE& LkMACHINE%&  C)ZMkMACHINEUNCOD_CLIPEDIDOFAC_VENFEC_VENCOD_INS RECEPCIONKILOSCOS_LIFODES_INSTOT_VEN VIDA_UTILCOD_CENREM_VENCAUSADESC_INSDES_CLIECOD_CUECOD_ALTNOM_ALTCOEFCOEFICLISPRE INVENTARIOACTUALCOSTOCOS_VENGRAVADAAFECCOMICOMISIONALQUILERTIEMPOCTRLHOYMONEDA SUBCENTRODEP1CAN1CENTROBULATRRECEPITMNOSTKIVAPERDIM1DIM2R1CANTFACTCOSMONVALORVALORMON VALORCBIOCOMPCODCOMPBULCOMPATRLINEAGRUPOFEC_ENTFCDEREPRESUP PRESUPITMARMADO ASISTENCIACATFACTCOMPLACOPIOBULTOSVERSIONVEN_ORDVEN_FACFECHAREMITOCLIENTECLIFECCODIGOPEDITMFECCPBTITMh1 COMPRAS.DBFJCOMPRASC N  C  D C N  N  N N  N   N  C  C   C Cd C C  C C D L C C N N C C N N D N  N   C !N "N #C $N  %C &C 'N (N  )L *N +D ,N  -N .C  /N 0C 1N 2N  3N 4N  5N 6N 7N  8L 9N  :N  ;N  <L =N  >N ?N @N AN BN CN DN EN FN GN  HN  & IkMACHINE)&  CZJkMACHINE& CKkMACHINE & C=LkMACHINE,& CMkMACHINE C%& $$kMACHINE$& kMACHINE#& CZC$ZNkMACHINE)& &%COkMACHINE&& C4ZC5ZPkMACHINE& kMACHINE#& &%#kMACHINE$& .C/ZQkMACHINEURCOD_PROORDENFAC_COMFEC_COMCOD_INS RECEPCIONKILOSCOS_LIFODES_INSTOT_COM VIDA_UTILCOD_CENREM_COMCAUSADESC_INSDES_PROVCOD_CUE INVENTARIOACTUALVENCTABLACOD_ALTNOM_ALTCOEFCOEFICGRAVADAAFECCOMICOMISIONCTRLHOYOPIMPORTACCENTRO SUBCENTROMONEDAARTPAGOBULATRITMIMPORT UPD_COSTOPORFEC_DGIPRODIVAPERREFREFITMREFCAUSACM_UNI2CANT_U2 PRECIO_U2SOLSOLITMIIPERII2COS_ASIGTIPO_IMPLINEAGRUPONOSTKTRANIBEXRET_GANRET_IB1RET_IB2DESC2DESC3DESC4DESC5DESCXOMEDCOD MEDAUXCODCOM_ORDCOMPROBFECHADESCRPROVIDULTCOM SOLICITUDREFORDENh1 CASHADIC.DBFJCASHADICN N D N N C N  D C  C  C(  C   L  N D N L C( N L L L N D N  )& CZCZkMACHINE!& CkMACHINEUTIPOSUBTIPOVENCIMPORTECLASEPROVNUMEROFECHAPOSTCENTRODESCRIDUUPDATEDDIADIAFIJODIASEMPASARDCLASEEMPREGENERARECUPERAFECGEN ITERACIONESLIMITEASI_MODIDQh1 CLIAUX.DBFJCLIAUXC  C C( C( C C C( C N  C   C(  C(  C  C C C( C C( C C C C( C C< N C< N N N N N N  M !M "N #N $C( %T &M 'M (M )M *M +C( ,N -N .CP /N 0L 1T 2N 3N 4C 5M 6L 7C 8N 9C( :D ;D <D =N >N ?Cx @Cx AD BD CT DT ET FC GN  HC IC JN  KN  LN  MN NC  ON  PC  QN RC SN  TN  UC VD WN XC YD ZD [T \L ]L & kMACHINE& kMACHINE& kMACHINEU^COMPROBCAUSANOMBRE DOMICILIOCIUDADZIPPHONO PROVINCIAPAISCUITEMAILENTDOMENTCIUENTZIPENTPROENTPHOENTHORFCEDOMFCECIUFCEZIPFCEPROFCEPHOFCEHORENTNOMENTPAIFCENOMFCEPAIAPC_CREDAPC_CC1APC_CC2APC_CHQ1APC_CHQ2 APC_DIAS1 APC_DIAS2APC_ATR APC_ATR_GLFCECTOAPC_EVAL TXTGRUPO1 TXTGRUPO2 TXTGRUPO3 TXTGRUPO4 TXTGRUPO5OCTXTSOL APC_RECH1 APC_RECH2NOMFACIDIOMAEN_MILESRETIROAPC_FC1APC_FC2ENTCOORDOBSDEMNOATRCESDSPTIPOEXPP TIPOEXPPD FCE_FSERVD FCE_FSERVH FCE_FSERVP FCE_FSERVT FCE_CONCEPGEODIRGEOENT FPRORROGAFPRES CAR_ARRIBOCAR_INICAR_FINCHOFER CHOFER_DNIDOM1DOM2CAR_TARA CAR_BRUTOCAR_NETOBOLSONES FLD_CLI1C FLD_CLI1N FLD_CLI2C FLD_CLI2N TRANSPORTEGLNENTGLNREFCCAPC_FREFAPC_CREFTIPO_NEG PERASOC_D PERASOC_HULT_MODDESCRVARFC_RECH2 h h1 TCCVENT.DBFJTCCVENTC C  C  N  D N N N N  N  N  N  N   N C N N N L C C C  C  N N  C  N N C N D C  N !N "N #N $N %N &N 'N (N )N *N +N ,C -C .N /D 0N 1D 2N 3L 4C 5C 6C 7N  8N  9N  :N  ;N  <N =C >N ?N @N AN BN CN DN EN FC GN HN IC JC  KL LCP MCP NC ON PN QN RN SN TN  UN VN WN XN YN ZN [N \N ]N ^C _C `C aN bN cD dN  eN  fM gM hC# iN jM kC lD mD nD oC( pN  qN rC sN tC uN vC( wL xL yN zD {C |N  }N ~N N L D N N N D N L N C N N N N N N N T N T T N N N N N N N N N N & kMACHINE%& kMACHINEE & JJkMACHINE& EkMACHINE& ||kMACHINE& kMACHINE& {{kMACHINEUCOD_CLIFAC_VENREM_VENPEDIDOFEC_VENTOT_VENIVA_VENPLANDES_PAGANTICIPOPLAZOCUOTADESCUINT_FINDES_CLIEDES_VENTIVA_VENTIVA_VEN2APLIC INVENTARIOCOD_CENCANTFLDKILOFLDCOMIPERCOMINUMCOMICODDEUDAIVA26CONSFINDES_COMFEC_ENTDESCPLANDES1DES2DES3DES4DES5DESCADICDESC1DESC2DESC3DESC4DESC5SUCCUITCOD_DOCIMPINTHOYFIJOVTOLISTADV1REFCOD_FLEAGENTEPESO RECEPCIONVOLUMENBULTOS FACTURADOCALIFCOFINMONEDACOMISION PRIORIDADNUMUSRTCREDITOSTOCKGERENCIAEST_DESPTIPO_PEDMOTIVOSUCFACDEPIDFCTEXTO1TEXTO2DISTRIBCOMI_DIS IMPUESTOSDESC1EDESC2EDESC3EPEDVEN IMPONIBLEPESONETOREDONDEOCOEFICP672T672DTO672RECARGONUMUSRAAPROBTIPODIVDES_NAC1DES_NAC2FEC_INIPRODTRANTXTCPBT TXTREMITOCONTACTOUSRNOTASOTENVPREP PREPARADOFEC_ENT2HORARIORFCVALOR PROMOCIONIVACATTIPODOCTIPOEXPTIPOEXPDITMCOMFITMCOMRESP_OBSLIBFABREF_EXTORIPEDDESPL TIPOEXPORTVALDECLCOTIZCOTIZFREVREP_CANT REP_MESES REP_ULTIMAFCE_CONCARM_BLOQSEGUIMTCFIJO PED_ESTADOMOTDEMCOMPLSECTOR DESC_CONSVERIFACOPIO UPDATE_DT ANTICIPOFDTDTMFACT_MOVERSIONEST_PICKITEMSPER_ENTPER_FACPER_PICKBRU_PICKNET_PICKLIBENTTCCVORDPENDESTADOB h1 PRODUCCI.DBFJPRODUCCIN  N  D N L N C( C N  C   L  C  C  C C C C C C N N N N N N N N C C C N N  N !N "N #N $N %N &C 'N (N )C *D +N ,N -D .N /N 0N 1N 2N 3N 4N 5N 6N 7N 8N 9D :D ;D <D =D >D ?D @N AN BN CN DN EN FN GN HN IN JN  KN  LN  MN  NN  ON  PN  QN  RD SC TC UC VC WC XC YC ZC [N \C ]C ^N _N `N  aN bD cN dC eN fN gN  hN iD jN kC lN mN nN  oN pD qN rC sN tN uN  vN wD xN yC zN {N |N  }N ~D N C N N N  N D N C N N N  N D N N N N  N N  C  N  N C  C  C  C  C  C  C  N N N D & kMACHINE& CkMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINEUPRODFORMULAFECHACANTIDADPENDCONTROLDESCRDEPOSITOESTADOIDMULTIPLEBUL1BUL2BUL3BUL4BUL5BUL6BUL7BUL8CAN1CAN2CAN3CAN4CAN5CAN6CAN7CAN8CODIGOBULATRPRD1PRD2PRD3PRD4PRD5PRD6PRD7PRD8DEPINGREALPELOTECOMFCOMHCOMMFINFFINHFINMREA1REA2REA3REA4REA5REA6REA7REA8SUBCIE1CIE2CIE3CIE4CIE5CIE6CIE8PECIECOS1COS2COS3COS4COS5COS6COS7COS8COSTOFOR1FOR2FOR3FOR4FOR5FOR6FOR7FOR8CIE7REMITOREM1REM2REM3REM5REM6REM7REM8MALASSEMIBUL9CAN9PRD9FOR9REA9CIE9COS9BUL10CAN10PRD10FOR10REA10CIE10COS10BUL11CAN11PRD11FOR11REA11CIE11COS11BUL12CAN12PRD12FOR12REA12CIE12COS12BUL13CAN13PRD13FOR13REA13CIE13COS13BUL14CAN14PRD14FOR14REA14CIE14COS14BUL15CAN15PRD15FOR15REA15CIE15COS15NCIERRESMAQUINASEMIOPENVBATCHCIEREM4ESTFABENTRADASREM9REM10REM11REM12REM13REM14REM15 CAL_APROB CAL_APCAN CAL_PRIORVENC:h1 TVENTAS.DBFJTVENTASC N  C  D C N  N  N N   N   N  C  C   Cx C C  C C N N N C C N C N N  D N C N C  C !N "L #C $N %N &N 'N (N )N *N +C ,C -C .N  /N  0D 1N 2N  3N 4N  5N  6N 7N 8N !& CZkMACHINE'& # #kMACHINE& 9kMACHINE#& CZC!Z:kMACHINE& 22kMACHINEU;COD_CLIPEDIDOFAC_VENFEC_VENCOD_INS RECEPCIONKILOSCOS_LIFODES_INSTOT_VEN VIDA_UTILCOD_CENREM_VENDESC_INSDES_CLIECOD_CUECOD_ALTNOM_ALTCOEFCOEFICLISPREGRAVADAAFECCOMICOMISIONALQUILERTIEMPORECEP2HOYMONEDACENTRO SUBCENTROBULATRITMAPROBPENDIVAPERCOSTO TRA_ENTRE FACTURADOVALORVALORMON VALORCBIOCOMPCODCOMPBULCOMPATRLINEAGRUPOENTREGADESPLPRESUP PRESUPITM ASISTENCIABULTOS CANTXBULTACOPIOPCK_CANPEDPEDITMkh1COM.DBFJCOMN  C C  N & kMACHINE& kMACHINEUOPCAUSACOMPROBIMPORTEh1 DESPFLET.DBFJDESPFLETN  C T N N N  N C N   T  C  T  T  C N N N T T D N & kMACHINEUDESPACHOCOD_FLE FECHAHORAESTADOIMPORTEPAGADOTIPODOMINIOCOSTOHINICIOHINICIOLSALIDAHCIERREHCIERRELHORASOTROSVALCOEFIC ALMUERZOI ALMUERZOFFECHAFIN SINREMITOSPh1 MOTIVOS.DBFJMOTIVOSN C C  L N C  L L C   C  N  T  N & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRIDU COMISIONESTIPOCUENTAVENTASTRAEARTS PROVISIONDEPOSITO SIN_STOCKULT_MODLISTA/h1 VE_TRANS.DBFJVE_TRANSC  C N  N  D N D D N   N   D  D  N  C  C T & kMACHINE0& C 999999999999_kMACHINE.& C 9999999999_kMACHINE& kMACHINE& kMACHINE&  kMACHINEUIDUCOD_CLIPEDIDOTRA_NUM TRA_FECHA TRA_ENTREOC_FECHAOC_APROBCOB_EMPCOB_CLITRA_HOYOT_FECHA TRA_ENTRE2COMPROBCAUSAULT_ACTCODIGOTRANSh1 COMI_ART.DBFJCOMI_ARTC C C C N  L C  & kMACHINE'& kMACHINEUCOD_AGECOD_INSBULATRCOMISIONACTIVAIDUFULLh1 RET_PROV.DBFJRET_PROVN D N  N N C  C N  N   N  N  N  N  N N N N /& CZC ZkMACHINE& kMACHINEUTIPOFECHANUMEROBASEIMPORTECOMPROBCAUSAREGIMENIMPUESTODEBEHABER PROVINCIABASECALCVERSIONPAGOANTRETANTCODIDh1 PER_PROV.DBFJPER_PROVN  N N N N N N N N  N  N  N  N  N N N N N N N N N N N N C N !& CZkMACHINEUOPPROV1PROV2PROV3PROV4PROV5PROV6PROV7PROV8PROV9PROV10PROV11PROV12PROV13PROV14PROV15PROV16PROV17PROV18PROV19PROV20PROV21PROV22PROV23PROV24CAUSAPROV99(h1 MAQUINAS.DBFJMAQUINASN C N  C  C C C C & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCODIGODESCRCICLOIDUDEPBAJADEPINGCENTRALGRUPOh1 FORM_CAL.DBFJFORM_CALN  C< N N N M N  C & kMACHINEUFORMULADESCRDESDEHASTATIPORESULTAORDENCOD_CLIth1 FORM_PAS.DBFJFORM_PASN  N M N  & kMACHINEUFORMULAPASOTEXTOESTADOh1 FORM_GEN.DBFJFORM_GENN  C C C N C C C N  N  C  & kMACHINE& kMACHINE,& C Z kMACHINE6& C Z kMACHINE U FORMULACODCOMPBULCOMPATRCOMPCANTIDADCODSUSTBULSUSTATRSUSTCANTSUSTPREDETIDUFORMCOMPh1 OPERARIO.DBFJOPERARION C C  L L C T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDU ENCARGADOOPERARIOMAQUINASULT_MODh1 PROT_ESP.DBFJPROT_ESPC  C C C C- C T #& kMACHINE& kMACHINEUIDUCOD_INSBULATRDESCRTAULT_MODCODIGO~h1 PROT_ANA.DBFJPROT_ANAN  C C C C C N T C  C  N   C   N  C N N  C D C & kMACHINE& kMACHINE& kMACHINEUANA_NUMBIE_CODBIE_BULBIE_ATRMOV_PROMOV_LOTEMOV_CANTMOV_FECMOV_REMMOV_PRESMOV_NUMIDUANA_HIGANA_ANAANA_CONDANA_NOCANA_APRANA_APRFLOTEh1 PROT_DET.DBFJPROT_DETN  C- C C C  & kMACHINE& kMACHINEUANA_NUMDESCRRESULTATAIDU;h1 CCPAG.DBFJCCPAGC  C D M N  L C N  N   N   C   N %& CkMACHINE& kMACHINEU COMPROBCAUSAFECHA COMENTARIOUNANULADOCOD_PROTOT_PAGIMPORTAC AS_IMP_CHERECIPROV GANANCIASh1 CCCOB.DBFJCCCOBC  C D M N  L N  L %& CkMACHINE& kMACHINEUCOMPROBCAUSAFECHA COMENTARIOUNANULADO AS_IMP_CHETRANSF{h1 CONCEPTO.DBFJCONCEPTON  CA N  N  && kMACHINEUASIENTOCONCEPTO IMPORTACIOIMPORTCh1 DIARIOG.DBFJDIARIOGN N C  C C  D C C N   C<  N  C  C   N N  C D C N C L N C N  N N  N  N N N N N  N !C "C  && kMACHINE2& kMACHINE A @& CC 99999999999_#kMACHINE<& CC 99999999999_kMACHINEH& CC 99999999999_kMACHINE6& kMACHINEA  !& C$kMACHINEU%DEBITOCREDITOCOD_CUEPOR_QUECOMPROBFECHACODIGONOMBREASIENTO COMENTARIOATRIBUTOCOD_CENREMITOCTRLANULADOPROCLIHOYTIPOPASECAUBANDERAUSRARCHIMPORTAC SUBCENTROASI_MANUMEROSUBNUMMONEDACAMBIOMOTIVOMONEXTMONPASESUBDXCUENTACUEK-h1 COS_CIE.DBFJCOS_CIED & kMACHINEUFECHA{h1CHP.DBFJCHPC  N  D N  N -& C ZCZkMACHINE&& C ZCkMACHINEUCUENTANUMEROFECHAASIENTOSUBNUMIDASFECmh1 COSXCUE.DBFJCOSXCUEC C C  N & kMACHINE& kMACHINEUCENTROIMPCOD_CUEACTIONCUENTAeGh1 CODBULAT.DBFJCODBULATC C  & kMACHINEU CODBULATRBARRASkh1 PLAN_MAQ.DBFJPLAN_MAQC N N C N  N  C N N   N   N   T  T  N  N  N  T T N  T T T N  N  C C C C C  N N C  C & kMACHINE& kMACHINE& kMACHINE& kMACHINE3& C ZCZ!kMACHINE )& C ZCZ"kMACHINE& kMACHINEU#IDUMAQUINAORDENCOD_INS CAN_TOTAL CAN_HECHAOPE_IDUOPE_CODESTADOPLANCICLOINI_PLAN INI_LIMITE DUR_TOTAL DUR_RESTAPRODCAL_INICAL_LIM CAL_ERROREVA_INIEVA_FINULT_INIFORMULAPLA_ESTDEPBAJADEPINGBULATRCOMB_IDU CAVIDADESSETUP PRIMER_IDU PADRE_IDUMAQORDMAQOLD?h1 PLAN_MAD.DBFJPLAN_MADC C C C C N  N  N N   N   C  C  N  N N T T T T N T T T N  N  & kMACHINE& kMACHINE'& kMACHINEUIDUPLANCOD_INSBULATRFORMULACANTIDADESTADOPRODHECHADEPBAJADEPINGCANTXBULORDENSURTIDOINI_PLAN INI_LIMITECAL_INICAL_LIM CAL_ERROREVA_INIEVA_FINULT_INI DUR_TOTAL DUR_RESTACOMBINAEh1 PLAN_OPE.DBFJPLAN_OPEC N N N  N  N  N  T T  C  L  C   N   N  N & kMACHINE& kMACHINE& kMACHINE& kMACHINEUIDUMAQUINAOPE_COD CAN_HECHAESTADOPLANCICLOFEC_INIFEC_FINPLAN_IDUPRO_BADCOMB_IDUCON_INICON_FINSETUPh1 PLAN_DIA.DBFJPLAN_DIAC  N T N N N T N N  N  T  N  N  N T T C C C C & kMACHINE& kMACHINE*& CZCkMACHINE*& CZCkMACHINEUIDUMAQUINASEM_INISEM_TURSEM_LABSEM_NOLSAB_INISAB_TURSAB_LABSAB_NOLDOM_INIDOM_TURDOM_LABDOM_NOLFEC_INIFEC_FINFEC_TXTSEM_TXTSAB_TXTDOM_TXTMAQINIMAQFIN+h1 COMPPLAN.DBFJCOMPPLANC  C C C N C C  C N  N  L  C  N  C N C N C N C N C N C N C N +& kMACHINE& kMACHINE& kMACHINEUPLANCODBULATRCANTIDADAPLIDADIUNIITEMMULTIPLEBUL1CAN1BUL2CAN2BUL3CAN3BUL4CAN4BUL5CAN5BUL6CAN6BUL7CAN7BUL8CAN8CLAVEuh1 PLAN_GEN.DBFJPLAN_GENC C C C C N  C C C  N   N #&  kMACHINE'&  kMACHINE& kMACHINE& kMACHINEU PLANCOMBINAGEN_CODGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANCAN_TIPID_FULLCOMB_GENh1 CASHPROV.DBFJCASHPROVD N  N  N  N  C  & kMACHINE& kMACHINEUMESSEM1SEM2SEM3SEM4IDUh1 CASHPROC.DBFJCASHPROCD N N N N N N N N  N  C   N  N  N N N & kMACHINE& kMACHINEUMESPOR0POR15POR30POR45POR60POR75POR90POR105POR120IDUPOR135POR150POR165POR180POR195hh1 UNIDADES.DBFJUNIDADESN C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODhh1 RUBROFAC.DBFJRUBROFACN C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODh1 VLOCALE.DBFJVLOCALEC D N  N  N N  & kMACHINE& kMACHINEUIDFECHAUNASIENTOTOTALZ*h1 VLOCALD.DBFJVLOCALDC C C  N N C N N N  N & kMACHINE& kMACHINEU IDCLIENTECUITCATIVACAUSALETRACENTRODESDEHASTAIMPORTEfh1 CATPRO2.DBFJCATPRO2N C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODfh1 CATPRO3.DBFJCATPRO3N C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODh1 TARJETAS.DBFJTARJETASN  C( C  C  C  C C  & kMACHINE& kMACHINEUCODIGODESCRCUE_TARCUE_BANCUE_COMCOD_CENIDUh1 TARJ_LIQ.DBFJTARJ_LIQN  D N  N  N N N N N  N  N  N  N  N N N N N N ,& C ZCCZkMACHINE& kMACHINEUTARJETAFECHA LIQUIDACIONASIENTOBRUTOARANCELIVA_ARACAR_21 IVA_CAR_21CAR_105 IVA_CAR_105RET_IVAPER_IVARET_GANRET_IB_1RET_IB_2PER_IB_1PER_IB_2NETOIDKh1 ACUERDOS.DBFJACUERDOSC C  C C C C N  N  N   N   C  C  N  N D D N N  N N C N C  C N N C C T & kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINEUDESCRIDUDCLIHCLIDBIEHBIEDGRUHGRUDLINHLINDVENHVENDTOTIPODFECHFEC PRIORIDADCODIGODTO2DTO3TEXTOLISTACUENTASECTORESTIPO_ACU EN_FACTURAATRBULULT_MODX:h1 ASM_MAST.DBFJASM_MASTC  C  C2 N N C C C C<  C  N  L  N   N N N C C C  C N D D D C C  N C N  C C N  N !C "L #L $L %C &C 'C  (N )C *N  +N & **kMACHINEU,ABREVCOD_CUEDESCRDEBITOCREDITOPROCLICODIGONOMBRE COMENTARIOCOD_CEN SUBCENTRO MODIFICABLNUMEROSUBNUMCAMBIOMONEDASUBDCODPASECOMPROBCONCEPTOOPCATRFECHAVENCEMISIONOLDCODOLDCPBTOLDPASEOLDCAUSAREGISTROASICAUASITIPOMONEXTMONPASEATRIBUTOCOMPLETOOKDEBOKCRETIPO_CHQIMPUESTOIDUAUX1NCAUASI_MODASI_PASEyh1 ASM_DETA.DBFJASM_DETAN  C< M C C & kMACHINE'& CCkMACHINEUASI_MODNOMBREDESCRGRUPOSUBGRUPOGRUPOS8h1 ASM_FORM.DBFJASM_FORMN  N C< N N N N L L  L  N  L & kMACHINE& kMACHINEU ASI_MODFEC_AUTOCONCEPTOMONEDACAMBIOUNIMPORTARCHSUBDBLQ_PASEFUNCIONNOADDCUEjh1 ASM_PASE.DBFJASM_PASEN  N N #& CZCZkMACHINEUASI_MODASI_PASEBLO_CUEASM_PASEh1 PLAN_NUV.DBFJPLAN_NUVN  N  C C C C C N  C  C  C(  N  N  C C C( N N C C( N C N C C( C N C C C N C  C !C "N #C $C %C &N 'C (C )C *N +C ,C -C .N /C  0C 1C 2C 3C 4C( 5C 6C 7N 8L 9N :N  ;N & 22kMACHINE& 11kMACHINE& 00kMACHINE#& <kMACHINEU=IDFORMULACOD_PLANATR_PLANBUL_PLANATRBULCANTIDADMP1MP1ATRMP1DMP1PCALC_MP1MP2MP2ATRMP2DMP2PCALC_MP2MASTERDMASTERPMASTER MASTERATR CALC_MASTEETIQUETA DETIQUETAETIQATRETIQCANC1COD1BUL1CANT1C2COD2BUL2CANT2C3COD3BUL3CANT3C4COD4BUL4CANT4C5COD5BUL5CANT5MARCAMAQMADIDUBOLSADBOLSABOLSAATRBOLSABULBOLSACANREPARTECANTXBULFORCOLORCAN_PLANCODIGOVh1 MAQ_GRP.DBFJMAQ_GRPC C C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUh1 FORM_MAQ.DBFJFORM_MAQN  N C N N C  & kMACHINE& kMACHINE& kMACHINE& kMACHINE%& kMACHINE%& kMACHINE%& kMACHINEUFORMULAMAQ_CODGRP_CODTIPOPREDETIDUFORM_PRE^h1 PLAN_OPD.DBFJPLAN_OPDC N  C  & kMACHINE& kMACHINE& kMACHINEUIDUOPE_CODOPE_IDUsh1 PRO_ADI.DBFJPRO_ADIC N N C & kMACHINEUCOD_PRO CAU_DEU_1 CAU_DEU_2DEU_TXTCODPRO@h1 CONVER2.DBFJCONVER2N C( C( C* C M C  L T  C  C  D  L  N N N  D L L L C N  N  N  C C C C C N N N  & kMACHINE& kMACHINE& kMACHINEU!TRANSFNOMBRE DOMICILIOCPCIUDAD PROVINCIACOMENTCUITFLAGDTPROCLICPROCLIFEC_REMFLAG1ID_EXTMODELO REF_CIERRE REC_MANUALFNOFC REC_MANUALCERRADADESPACHOTRANARMADOBULTOSCOD_FLEDOMINIO1DOMINIO2CHOFERDNITARABRUTOID_NUMCONVERh1 PROD_GEN.DBFJPROD_GENC C C C C N  C C C  N  &  kMACHINEU OPCOMBINAGEN_CODGEN_BULGEN_ATRGEN_CANSUS_CODSUS_BULSUS_ATRSUS_CANID_FULLh1 PENDRECL.DBFJPENDRECLC C(D C C C C D M  C  C  D N  DUCOD_CLINOMBREFECHATIPOTIPODSUBTIPOSUBTIPODVENCNOTACPBTIDCPBTVTOCPBTIMP CPBTFECHAh1 ITM_DESC.DBFJITM_DESCC  C N M C N  N N C  N   C  N   N   N  N  N N C  N (& CZkMACHINEUCOMPROBCAUSAITEMDESCR COMENTARIOTIPOENVCANTENVTARAREF_OCENSAMBLECOD_PROCHQNUMCHQSUBACU_IDACU_REFIB ADICEXPORTITEM_OCOLDITEMIDh1 IVA_VEN.DBFJIVA_VENC  C N N N N N N & kMACHINEU COMPROBCAUSATASAIVAIVA_MOBASEBASE_MOTIPO_REGIDh1 ESOLCOM.DBFJESOLCOMN  D N N N N M N  & kMACHINE& kMACHINEUSOLFECHAUSRUSRAUTUSRCIEESTADO NOTA_CIERRSOLAUXh1 DSOLCOM.DBFJDSOLCOMN  N C C C CP N D C  N  N  C  N   N N N  N C N  N & kMACHINE#& CZCZkMACHINE#& CZCZkMACHINEUSOLITMCODATRBULDESCRCANTIDADFECHANOTASUNIPRECIOCOD_PROPLAN COMPRADORMONEDAGRUPO PRIORIDADIDSEEKPEDIDOPEDITMSOLITMh1 CASHUSE.DBFJCASHUSEN N T N T N T N T & kMACHINE%& kMACHINEU EQUIPO_IDBARRABARRA_FGENERAR GENERAR_FVERVER_FEDITAREDITAR_Fh1 COSVEN.DBFJCOSVENC C C D N N )& CkMACHINEUCODIGOBULATRFECHACOSTOMONEDAdh1 MEDIDAS.DBFJMEDIDASN C  C C  N  C  C N  N  N  T & kMACHINE& kMACHINE& kMACHINE& kMACHINEU CODIGODESCRABREVIDUFCEDESCR2ABREV2FCE2 DECIMALESCONVULT_MODqh1 PROD_FOR.DBFJPROD_FORN  N N  C N C C C C  C  C  C  C  N N N N N C N N N N  N  N N L C N & kMACHINE& kMACHINE%& kMACHINE%& kMACHINEUOPFOR_TIPOFORMULACODCOMPCANTIDADTIPO_APLDEPOSITOBULCOMPATRCOMPCENTROCODSUSTBULSUSTATRSUSTCANTSUSTMED1MED2UNIDCOMPUNIDSUSTADICCOSTOHOYCOSTOCIECOSTOANTIDXTEMPPASOMERMAREF_PESOTEMPERATORDENOPMODOPORIGh1 CASH2P.DBFJCASH2PD D D D D D D D D  D  D  D  D  D D D D D D D D D D D D D D D D D D D  D !D "D #D $D %D &D 'D (D )D *D +D ,D -D .D /D 0D 1D 2D 3D 4D 5D 6D 7D 8D 9D :D ;D <D =D >D ?D @D & COAkMACHINEC'UBP1P2P3P4P5P6P7P8P9P10P11P12P13P14P15P16P17P18P19P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34P35P36P37P38P39P40P41P42P43P44P45P46P47P48P49P50P51P52P53P54P55P56P57P58P59P60P61P62P63P64P65BORRADOh1 COMPPAUX.DBFJCOMPPAUXN C C C C C  C +& kMACHINE& kMACHINEUITEMCODBULATRAPLIDTEMPERATCLAVEfh1 ARMADOR.DBFJARMADORN C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODoh1 CODESPEC.DBFJCODESPECC  C< N C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRDTOIDURh1 CASH2I.DBFJCASH2IC  C( N  N N N N N N  N  N  N  N  N N N N N N N N N N L N N L L L N N N  N !N "N #N $N %N &N 'N (N )N *N +N ,N -N .N /N 0N 1L 3& C=CCC[gZkMACHINE3& C=CCC[gZ2kMACHINEU3TIPODESCRCUENTAI1I2I3I4I5I6I7I8I9I10I11I12I13I14I15I16I17I18I19I20CLITSSUMAACUMTOTAI21I22I23I24I25I26I27I28I29I30I31I32I33I34I35I36I37I38I39I40DUDOSOBORRAR2I/h1 CASHCAN2.DBFJCASHCAN2C  C C  C N  N  D D N  C  L  C  C  N C N  D C D N N  N C  N N L ;& C =CZCZCZkMACHINEUIDCODIGOCOMPROBCAUSACUOTANUMEROFECREALFECESTIIMPORTENOMBREMODIFPROCLIPOSTORIGENCENTROEMPFECVALAGENTEFECHAORIORIGEN2NUMSUBNUMCUENTAANOCLASE ELIMINADOID2qh1 BUL_GEN.DBFJBUL_GENC C N  N  N  C C C C   C   C   N  N  N N N  C N  N N  N  N  N N N N  N N & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVE CANTXBULT PESOXBULT VOLUXBULTACTIVOIDDESCRIDUMEDIDA MEDIDAAUXGRUPOBULGENERICOMEDCOD MEDAUXCOD CANTXBULT2VENTAUVENFACTORLARGOANCHOALTURABLARGOBANCHOBALTURAHAPILEAPILECANTXPALCODIGOCODh1 ATR_GEN.DBFJATR_GENC C C C C C  C N C  N  C  C  N &  kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVEAUTIDDESCRIDUACTIVOGRUPOATR AGRUPACIONGENERICOVENTA PROMOCIONSURTIDOCODIGOCOD6h1 TEXTOS.DBFJTEXTOSN  C( M C C  L N  N N  D  D  T & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRTEXTOCODIDUACTIVOGRUPO COMPROBANTECPBTDESDEHASTAULT_MOD h1 ARTXCLI.DBFJARTXCLIC C C C C C C C C   N   L  N   N  N N N N C C L C N T & kMACHINE'& kMACHINEUCOD_CLICOD_INSATRBULDESCRALTCODALTATRALTBULIDUORDENTIRIMPBARRASDUNFRMCOD CANTXBULT PESOXBULT VOLUXBULTAUX1AUX2 REPROCESOCODALTSECTORULT_MODIDh1 MTZ_PROD.DBFJMTZ_PRODN  D N  D C N N N N  & kMACHINEU TRANSFFECHAMATANZAFEC_MTZCOD_PROCANT_RECCANT_OBTRINDEMOTIVOh1 INVMODE.DBFJINVMODEN  C( L N C  N  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRBALANCEBALANCEOIDUREFMODULT_MODh1 INVMODD.DBFJINVMODDN  C C C N L T & kMACHINEUCODIGOCODATRBULESBASURAULT_MODPh1 CTASBANC.DBFJCTASBANCN  C( C C  N C C  C C   C   N   T & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRCOD_PROCOD_CUETIPOCBUIDUEST_ACT IMPLEYCUE CHQDIFCUECOD_BANULT_MODh1 FORM_RES.DBFJFORM_RESN  C C C N N C  T & kMACHINE& kMACHINEUFORMULACOD_INSBULATRCANTIDADTIPOIDUULT_MODXh1 STOPS.DBFJSTOPSN  C2 C  & kMACHINE& kMACHINE& kMACHINEUSTOP_CODDESCRIDU0h1 PRODSTOP.DBFJPRODSTOPC N  N  N N  N  & kMACHINE& kMACHINE& kMACHINE3& CCCZ / CCZ kMACHINEUOPE_IDUSTOP_CODTIEMPOORDENPRODCIERRE PRODCIERRE;h1 COS_ADET.DBFJCOS_ADETC C  C N C2 N N  C L &  kMACHINE%& CZ kMACHINE+& CZCZ kMACHINEU COD_CLIFAC_VENCAUSAITMDESCRCOSTOITM2COD_PRORECIBIDACOMPROBCOMPROBICOMPROBFh1 MSGXUSER.DBFJMSGXUSERN N N N & kMACHINE& kMACHINE& kMACHINE)& CZCZkMACHINEUTIPOSUBTIPOUSUARIOVALORTIPOSUBpmh1 MTZ_DEF.DBFJMTZ_DEFN  C C C  UMOTIVOSUCIALIMPIAIDUoIh1 IN_FALTA.DBFJIN_FALTAC C C C N C N C C   C  N  N  N   N  N  N  N  N  C C N N  N  N N  C C C N L N  N  N  !C "C( #N $L %N  &N  'N #& kMACHINEU(IDCODIGOATRBULLINEA LINEADESCRGRUPO GRUPODESCRUNIDADAGRUPADOCANTIDADCANT_COM DISPONIBLECANT_PEDOCOPPLNDISP2DESCRMONEDAVALORTOTALSTKMIN TIPOSTKMINACOMPRARPRODUCVENTACOMPRATIPO_ARTMARCARDISP1UXDIA VENTASXPERCOD_PRO PROVEEDORSOLACTIVOSTKMIN1MARCA CANT_PEDNNh1 PLAN_USO.DBFJPLAN_USOC C N  T N  N  T & kMACHINE& kMACHINE& kMACHINE& kMACHINE!& CZkMACHINE& CkMACHINEUIDUCOMBITEMINICIOTIEMPOCANTIDADFECHACOMBIwh1 ENVASES.DBFJENVASESN  C C C  T & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCODIGODESCRABREVIDUULT_MODxuh1 CEN_REFU.DBFJCEN_REFUC C N  N UCENTRODESTINOPOR PRIORIDADh1 NUMREC.DBFJNUMRECN N N C( L C L T & kMACHINE& kMACHINE& kMACHINEUIDNUMEROCODIGODESCRAUTIDUMAILULT_MODh1 COS_ACOM.DBFJCOS_ACOMC C  C N N  C C  C N   N &  kMACHINE%& CZ kMACHINE+& CZCZ kMACHINE#&  kMACHINE)& C ZkMACHINEUCOD_CLIFAC_VENCAUSAITMITM2COD_PROCOM_COMPCOM_CAUCOM_ASIGITM_CCOMPROBCOMPROBICOMPROBFCOMPRACOMPRAFhh1 SPRGRUPO.DBFJSPRGRUPON C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODOh1 DRETPROV.DBFJDRETPROVN C  C C  C N N  N N  N  N  N  N  N & kMACHINE+& CZCZkMACHINEUTIPOCOMPROBCAUSAREFCAUCUOOPRBASEAPLICADO RETENCION PROVINCIA RETDEBIDARETANTAPLANTIDh1 MANT_STK.DBFJMANT_STKC N T T N L & kMACHINEUCOD_INSMOTIVOFECHAFECHA_EJ REPETICION NECESARIOCODINS f h1 IMP_TRAN.DBFJIMP_TRANC N N N N C C C( C   N   N   N   N   C C  C C C C N N N N N N N C N N N N  N   C !N  "C  #C $C %C &N 'C (C )C *C  +C  ,N -N  .N /C 0L 1C 2N 3N 4N  5L 6N 7N 8N 9N :N  ;N <N =N >N ?C  @C AN BC2 CN DC EC FN GN HC IC JC KC LC MC NN OC  PN QC RC SN TN UN VC  WN XC YN  ZN  [N  \D ]N ^C _C  `N  aN  bN  cN  dN eN  fC gC hC iN  jN kN lN mN  nC oC pN qC rC sC tC uN vN wN xL yN  zN  {C |N }N  ~C C N C C & --kMACHINE#& C-ZC]ZkMACHINE& 44kMACHINE#& ('kMACHINEUCOD_INS RECEPCIONCOS_LIFO VIDA_UTILDES_INSCOD_CENDESC_INSCUENTACOD_CUETEMPORALSTOCKKILOSSTOCKK INVENTARIOMEDIDACANATRIBUTONOM_ALTCOD_ALTCOEFCOEFICLISPRETOT_COMCOSTOCOS_VENCOMISIONALQUILERTIEMPOPESOII CANTXBULT VOLXBULTO COMPUESTOBULTOSABREVGRAVADADESPACHOCENTRO SUBCENTROBULATRFLAG1BULDESCATRDESCFRACCSOLITEMARTAPROBCONJUNTORECEP2 TEMPORAL1IMPORTUPDSTKIMPUESTOPORPESONETOPRECIO_BPRODIVAPERDIM1DIM2R1REMITOOLDCODOLDITM COMENTARIOCPBT UBICACIONIVAFIJOSUBGRUPOMONEDA TIENE_ATR TIENE_BULSERIESLOTESDBULDATR MO_TOT_COMMEDAUXFACTOR DCODATRBULDESPATXT TRA_ENTRETRANSF TRANSFITEMREFREFITMREFCAUSAREFRECNOREFTOTALREFSALDOENTREGASOLITMCODALTDUNICANT_U2STOCK_U2CANT_U1STOCK_U1CM_UNI2 REFSALDOU1ORI_CODORI_ATRORI_BULORI_CANVALORVALORMON VALORCBIOPEDIDO DESPACHOEXCOMP_CBACOMP_CANCOMPCODCOMPBULCOMPATRUNI_ARR PRECIO_U1 PRECIO_U2UNIACT_PREDENSIDADTIPOENVDTIPOENVCANTENVII2 IMPORTADO TXTCOSTOSTARADESPAPCKDEPOSITOORDENITMCODIGOth1 PLANIFICA.DBFJ PLANIFICAD T C< N C  & kMACHINE& kMACHINE& kMACHINE& kMACHINE%& kMACHINEUPERIODOFECHADESCRACTIVAIDU2h1 REC_TAL.DBFJREC_TALC  N N  N  N  L N  C M  T & kMACHINE& kMACHINE#& CZCZkMACHINEU IDUPVCODIGODESDEHASTA HABILITADOCERRADOCOD_AGEOBSULT_MODDh1 COS_CPRE.DBFJCOS_CPREN C D L L L L L L  L  D  N  C  C C M C  N N T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCR FECHA_CIECIERRE COSTOS_DIRRTEOFIJADMER CALC_PRODRPRO FECHA_PRO PROD_FIJACOD_INSBULATROBSIDUDIAS_DIRDIAS_PRDULT_MODh1 CASHRESU.DBFJCASHRESUN  C( N N C  N N N N  N  N  N  N  N N N N N N N N N N N N N N N N N L UCODIGODESCRACUMCOLLASTCOLIDUP1P2P3P4P5P6P7P8P9P10P11P12P13P14P15P16P17P18P19P20P21P22P23P24P25X1h1 ENSAMBLE.DBFJENSAMBLEC  C ֽN  M N N M & kMACHINE%& CZkMACHINEUCOMPROBCAUSAITMDESCRCANTIDADPRECIOTAREASh1 ARTXPRO.DBFJARTXPROC C C C C C  N  T & kMACHINE'& kMACHINEU COD_PROCOD_INSATRBULDESCRIDUORDENULT_MODIDZh1 ATRIBS.DBFJATRIBSN C  C  & kMACHINE& kMACHINE$& CZkMACHINEUATRIBUTOCUENTAIDh1 BUL_GENL.DBFJBUL_GENLC C N C C & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVELINEAIDIDUCODIGOCODh1 BUL_GENG.DBFJBUL_GENGC C N C C & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVEGRUPOIDIDUCODIGOCODh1 ATR_GENL.DBFJATR_GENLC C N C C & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVELINEAIDIDUCODIGOCODh1 ATR_GENG.DBFJATR_GENGC C N C C & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCOD_INSCLAVEGRUPOIDIDUCODIGOCODh1 COSIMP.DBFJCOSIMPC C C N N N D N C  C   C   C  L  N N N N N N -& CkMACHINE#& kMACHINE& kMACHINEUCODIGOATRBULCOSTOMONEDATIPOFECHAFACTORCOD_PROIDUCOMPROBCAUSANO_PROY DESCUENTOCOSORIDESC2DESC3DESC4DESC5ID;h1 IIBBPROV.DBFJIIBBPROVC  C N N N N N N N 1& CZCZ kMACHINE& kMACHINEU COMPROBCAUSA PROVINCIACODIGOIMPORTEALICUOTA IMPORTE_MEBASEBASE_MEIDh1 IIBBPERE.DBFJIIBBPEREC N N N  D D -& CZCZkMACHINEUCOD_CLI PROVINCIACODIGOALICUOTADESDEHASTAIDhh1 FLE_TIPO.DBFJFLE_TIPON C C  T & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUULT_MODh1 CO_ER.DBFJCO_ERN N N N C C C N  L & kMACHINE,& C ZCZ kMACHINEU IDNIVELTIPOSUBTIPODESCRFORMULAFORMULAPLINEANEGARIDLIN-h1CO_ER_DATOS.DBFJ CO_ER_DATOSN N N N C N  N  ,& CZCZkMACHINE9& CZCZC ZkMACHINEUPERIODOIMPORTE PORCENTAJEIDCUENTAEMPLINEAIDFULLh1 IIBBRET.DBFJIIBBRETC N N N D D T -& CZCZkMACHINEUCOD_PRO PROVINCIACODIGOALICUOTADESDEHASTAULT_MODIDh1 PLVENAGE.DBFJPLVENAGEN N C C N N UMESANOCODIGOCOD_AGECANTIDADCANT_ORIh1 CASHPROM.DBFJCASHPROMD N  N  N  N  C  & kMACHINE& kMACHINEUMESSEM1SEM2SEM3SEM4IDUh1 CASHPROP.DBFJCASHPROPD N N N N N N N N  N  N  N  N  N N C  & kMACHINE& kMACHINEUMESPOR0POR15POR30POR45POR60POR75POR90POR105POR120POR135POR150POR165POR180POR195IDUh1 IVA_COM.DBFJIVA_COMN  N  N N N & kMACHINE& kMACHINEUOPPAGOTASAIVAIVA_MOh1 CUEXMOTI.DBFJCUEXMOTIN  C  C  N  T UCODIGOCUENTAIDUORDENULT_MOD0h1 PR_CIE.DBFJPR_CIEN  N N  C  N D N N  N   N   N   N   N   N  N  N  N  N  N  N  N  N  N  C & kMACHINE& kMACHINE& kMACHINEUPRODINDICEBATCHCIEIDCIETURNOFECHACANTIDADPESXBUL1PESXBUL2PESXBUL3PESXBUL4PESXBUL5PESXBUL6PESXBUL7PESXBUL8PESXBUL9 PESXBUL10 PESXBUL11 PESXBUL12 PESXBUL13 PESXBUL14 PESXBUL15PESOREMITO h1 HISTORIAL.DBFJ HISTORIALN  C T N M N T & kMACHINE& kMACHINE& kMACHINE& kMACHINEUID_TIPOIDFECHAUSRNOTAABMULT_MODh1 ITMDESCC.DBFJITMDESCCC  C N M M N (& CZkMACHINEUCOMPROBCAUSAITEMNOTADESCRIMPIDTh1 BIEAUX.DBFJBIEAUXC  C C C M C C C C  N   N  C  C  N  N  N  N  M M N C( N N N N N C M M M C N  C !N "C #N $C %C &C 'C (N )N *M +C ,C -C .N /N 0N 1N  2N 3N 4N 5N  6N 7N 8T & kMACHINE& 9kMACHINEU:IDUCODIGOATRBULTXTORIGENPROCEDIMGADUANAANCHOESPESORFUELLECOLORLARGOMAQ1MAQ2MAQ3LBULLATRLISPRVTRABAJOTRATADOCANTIDADKILOSMETROSCILINDRO TIPO_CONFE EXTRUSION IMPRESION CONFECCION MATERIAL1POR_MAT1 MATERIAL2POR_MAT2 MATERIAL3POR_MAT3COLOR1COLOR2COLOR3COLOR4TIPOCOSEXTDESCRWEBCOLOR5COLOR6MASTERPOR_MASTPOR_ANTIPOR_DESLALTURABLARGOBANCHOBALTURAHAPILEAPILECANTXPALULT_MODCOD/h1 TSP_TSPS.DBFJTSP_TSPSN  C( C( C( C C C  N C   C  & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRPHONO DOMICILIO PROVINCIACIUDADCUITPAISCOD_ZIPIDU h1 TSP_CAMI.DBFJTSP_CAMIN  C( C N C  N  & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCODIGODESCRPATENTETIPOIDUTSPoh1 TSP_TRAI.DBFJTSP_TRAIN  C( C C  & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCODIGODESCRPATENTEIDU@h1 TSP_CHOF.DBFJTSP_CHOFN  C( C  N N N  N  N  & kMACHINE& kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUTIPODOC DOCUMENTOTSPCAMIONTRAILERh1 COSULT.DBFJCOSULTC C C D N N C C  C  C  L  N  N  N N N N N N #& kMACHINEUCODIGOBULATRFECHACOSTOMONEDATIPOCOMPROBCAUSALOTE CONTROLADOTIPO2 CAMBIO_ORICOSORI DESCUENTODESC2DESC3DESC4DESC53h1 TSP_ASIG.DBFJTSP_ASIGC N  D N  N  N  L N  C<  C<  C<  C<  N  N C  N C  C C C N N N  N C C N C2 C2 N  C( L  L *& C ZC!kMACHINE& kMACHINE& kMACHINE& kMACHINE'& C ZkMACHINEU"CLIENTEVIAJEFECHACAMIONTRAILERCHOFERPEON LUGARCARGADESTINO1DESTINO2DESTINO3DESTINO4IMPORTEIMP_CHOFFACTURAGNTFACTGNTVUELTAHC1HC2PAL1PAL2LC2TPTURNOTIPOU TONELADASOBS COMENTARIOTSPDPEONELIMINAR BAJAMANUALIDh1 TSP_LUGA.DBFJTSP_LUGAC  N  C( C( C( C C N C( & kMACHINE& kMACHINE& kMACHINEU IDUCODIGODESCR DOMICILIOCIUDADCOD_ZIPPROVINCPAISPHONO`]h1 DBT_FECP.DBFJDBT_FECPN N N  N  N  N N N N  N  N  N  N   N  N  C N  C C N C N N N N C< UCONCEPTODOCTIPODOCNRO CBTEDESDE CBTEHASTACBTEFCHIMPTOTAL IMPTOTCONCIMPNETOIMPOPEXIMPTRIBIMPIVA FCHSERVDES FCHSERVHAS FCHVTOPAGOMONIDMONCOTIZIVA RESULTADOCODAUTORIZACION EMISIONTIPOFCHVTO FCHPROCESOPTOVTACBTETIPONOMBREu!h1SCH_GASTOS.DBFJ SCH_GASTOSC  C N D N C C( C C(  N   D  C   C  N  & kMACHINE& kMACHINE& kMACHINEUIDUVENDEDORID_CONCFECHAIMPORTEID_CPBT PROVEEDORID_CLASENOTASLIQ_ASTO LIQ_FECHAABREVCENTROTRAN}h1SCH_GASTOS_CONC.DBFJSCH_GASTOS_CONCN C C  C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUABREVfh1SCH_GASTOS_CPBT.DBFJSCH_GASTOS_CPBTC C C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUhh1SCH_GASTOS_CLASE.DBFJSCH_GASTOS_CLASEC C C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUq8h1 ARMADO.DBFJARMADON  D N  C C C N N C   N  N  N  C  N & kMACHINE& kMACHINEUARMADOFECHAPEDIDOCOD_INSATRBULCANT_PED CANT_ARMAIDUITEM_PEDITEMCANT_USALOTE PROCESADOh1 TRREC.DBFJTRRECN N  C M T T C  M N -& CZCZ kMACHINEU F1F2F3F4F5F6F7F8F9CPBTh1 CIECAJE.DBFJCIECAJEC D N  N  N N & kMACHINE& kMACHINEUIDFECHAUNASIENTOTOTALSUBh1 CIECAJV.DBFJCIECAJVC C C  N N C N N N  N  N   N  N  N N N N N & kMACHINEUIDCLIENTECUITCATIVACAUSALETRACENTRODESDEHASTAIMPORTEZETAIVA1IVA2NOGRAVBASE1BASE2PERIBBASE0mh1 CIECAJD.DBFJCIECAJDC C  N C( & kMACHINEUIDCUENTAIMPORTE COMENTARIO{h1 CUENTAS.DBFJCUENTASC  N N C C C  L N N  N  N  N  N  C< N N N C  N  N  L L L N N  N  N N C C T & kMACHINE& kMACHINE& kMACHINE& CCRC0QAB6CCRC0QAB6CCRC0QAB6CCRC0QAB6 kMACHINEC\SU!COD_CUEDEBITOCREDITOATRIBUTOCODIGOABREVMODIFICAMORTMONEDARUBROSUBRUBROMOTIVOPRESUPDESCRIVAPEREMPRESA IVAPERANT COMPLEMENTAUXNERXPROVIXCLIXPROPUNTOLINEAGRUPOXLINEAXGRUPOUSUARIOSREF_EXTULT_MODCUENTAORDENh1 CIERRES.DBFJCIERRESN  C( N D N N & kMACHINEUIDCONCEPTOTIPOFECHADESDEHASTA{h1 FORM_EST.DBFJFORM_ESTN  N  C N & kMACHINE#& CZCZkMACHINEUFORMULAESTADODESCRHORAS0h1 PROD_EST.DBFJPROD_ESTN  N  T T M N N C C  N   N  & kMACHINE#& CZCZ kMACHINEU PRODESTFABINICIOFINNOTACANTIDAD CANTIDAD2COD_PRO1COD_PRO2DEMORAPLAZOESTADOh1 CLIOTROS.DBFJCLIOTROSC C< C( C< C( C< C( C2 C2  N  N  D  C<  M M L C N C T C  N N & kMACHINEUCOD_CLIEMAIL1NOMBRE1EMAIL2NOMBRE2EMAIL3NOMBRE3ROT_GRALROT_XITMROT_TIPO CUITVALIDO CUITVALFEC CUITVALNOMDIRTXTDIRCOTCOPIAIMPSISTFACSUBEEXTREQTURNOULT_MODCTA_COB DOLDIVISA NDXDIFCBIO&h1TARJ.DBFJTARJN  C( C C  N C  N C  C  T & kMACHINE& kMACHINE& kMACHINEU CODIGODESCRCOD_PROCOD_CUETIPOIDUEST_ACTBANCOCENTROULT_MOD$h1 TARJREGL.DBFJTARJREGLN  C< D D N N N C( N   N   N  T & kMACHINEU CODIGODESCRDESDEHASTATIPOTARJBONIFCUOTASBRANDIDBANCOTOPEULT_MODh1 RESERVAS.DBFJRESERVASC  C N N  N N %& CZkMACHINE#& CZCZkMACHINEUCOMPROBCAUSAITMPEDIDOPEDITMCANTIDADIDh1 VE_ALTAS.DBFJVE_ALTASC  C ֽN  N  C C C N & kMACHINE%& CZkMACHINEUCOMPROBCAUSAENSAMBLEITMCODATRBULCANTIDADsh1 CATCRED.DBFJCATCREDN C( N C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRCREDITOIDUh1 FECOTCOM.DBFJFECOTCOMD N C< M M T N  & kMACHINE& kMACHINE& kMACHINE& kMACHINEUFECHA SECUENCIALARCHIVOTEXTO RESPUESTAHOYDESPACHOh1 PED_PROC.DBFJPED_PROCC N  N  C  C C C N T & kMACHINE& kMACHINE& kMACHINEU VENDEDOR PEDIDO_GES PEDIDO_VEN PEDIDO_IDVCOD_CLICTRL_GESCTRL_VENESTADO FECHA_GESh1 CIECAJP.DBFJCIECAJPC C C  N C N N N N   N & kMACHINEU IDCLIENTECUITCAUSALETRACENTRODESDEIMPORTEZETAPERIBh1 PLANDTOS.DBFJPLANDTOSC  N  C< D D N N N N  N   N   N   N   N  L L L L C( L N  N & kMACHINE& kMACHINE& kMACHINEUIDUCODIGODESCRDESDEHASTAEFECTIVODECOPROMOLANACIONLINEAPRODUCTOSUBPRODMEDIDACOLORVALE_EFEVALE_TRJVALE_CJEOTROLOCALESPRECLISFAMILIA TIPOPRECIOXh1 ATRHABIL.DBFJATRHABILC C C  & kMACHINE& kMACHINE& kMACHINEUCLAVEDESCRIDUVh1 EPRESUP.DBFJEPRESUPN  D C N C N N  N N  C(  C  M  N  N N N N  D N N N C N N  N N L C( N N N N  C !T "T #L $N %C & kMACHINE& kMACHINE& kMACHINEU&NUMEROFECHACOD_CLISUCFACVENDEDORLISTAMONEDACAMBIOREVISIONDES_CLIEDIVISASCPBTTXTESTADOUSRIMPORTEBASEPEDIDOVENCDES_COMIVAPERIBPERIBTXTSUCPLANDESC1DESC2CERRADO REFERENCIADESC3DESC4DESC5 DESC_CONSLUGARDTDTMDESCRVAR PRIORIDADCOD_CENrh1 DPRESUP.DBFJDPRESUPN  C C C N N N N M  M  N  N  N  N C  N C & kMACHINE#& CZC ZkMACHINEUNUMEROCOD_INSATRBULCANTIDADPRECIODTOTOTALDESC_INS COMENTARIOMONEDACAMBIOUSADOITMCOD_CUEIVAPERCOD_CENIDh1PRO2.DBFJPRO2C C C C2 N CP N CP C  T & kMACHINEU COD_PROCBUFAX1EMAIL1 ENVIAPAGO EMAILPAGOSENVIAOCEMAILOCSUBDULT_MODCODPROeh1 VE_OTROS.DBFJVE_OTROSC  C  M M M & kMACHINEUCOMPROBCAUSAMEMO1MEMO2MEMO3ID_h1 PD_CONSOL.DBFJ PD_CONSOLN  N  T & kMACHINE& kMACHINEUCONSOLPEDIDO FECHAHORAEh1 PR_OTROS.DBFJPR_OTROSN  N N C C N N  C( N  N  N  N  N  C M M M C N C N C N C C C C M M M N  N  N !C "C #C $N %N &N & 'kMACHINE#& CZCZkMACHINEU(PRODANCHOESPESORFUELLECOLORLARGOMAQTRABAJOTRATADOCANTIDADKILOSMETROSCILINDRO TIPO_CONFE EXTRUSION IMPRESION CONFECCION MATERIAL1POR_MAT1 MATERIAL2POR_MAT2 MATERIAL3POR_MAT3COLOR1COLOR2COLOR3COLOR4MEMO1MEMO2MEMO3PEDIDOPEDITMPLA_KMCOLOR5COLOR6MASTERPOR_MASTPOR_ANTIPOR_DESLIDhh1 CCARMADO.DBFJCCARMADON  N  T T N  N N  N  N   N   N   N  C  N N  L & kMACHINE& kMACHINE& kMACHINE& kMACHINEUARMADOPEDIDOFECHAFECHA2USREST_ARMPALLETSBULTOSCAJASARMADORCONSOLTIPODEPESTADOIDBULTOFINALxh1 CLIMAIL.DBFJCLIMAILC C2 C2 C  C< & kMACHINEUCOD_CLINOMBREEMAILMAILTIPOOBSCODCLIh1 ARMADOL.DBFJARMADOLN  C C C C N N C  N & kMACHINEU ARMADOCOD_INSATRBULLOTECANT_PED CANT_ARMAIDUCANT_USAh1 DEPMIN.DBFJDEPMINC C  C C C N N '& kMACHINE& kMACHINEUDEPOSITOIDUCODATRBULCANIDEALIDnh1 EPREDESP.DBFJEPREDESPN  D C N & kMACHINE& kMACHINE& kMACHINEUNUMEROFECHACOD_FLEIMPORTECODFLEth1 DPREDESP.DBFJDPREDESPN  D N  N & kMACHINE& kMACHINE& kMACHINEUNUMEROFECHAPEDIDOITMuh1 CIECAJPD.DBFJCIECAJPDC C  N N & kMACHINEUIDCUENTAT1T2h1 MIX_ADIC.DBFJMIX_ADICC C C C( D N UCODIGOATRBULDESCRFECHACANTIDADebh1 FECHA.DBFJFECHAD N C C UFECHACENTRODCENHCENz\h1 CAT_COM.DBFJCAT_COMN  Cd C  & kMACHINEUCODIGODESCRIDU8h1 CLIVARIOS.DBFJ CLIVARIOSC C< C( C C C( C  C  N  C2  C2  N & kMACHINE& kMACHINEU COD_CLINOMBRE DOMICILIOCIUDAD PROVINCIAPHONOCOD_ZIPCUITPAISEMAILWEBIVACATh1 TE_ANU.DBFJTE_ANUC  C D C C  N N N D  D &  kMACHINEU COMPROBCAUSAPROCESODETALLECUENTAIMPORTEMONEDAMONEXTFECHAANUMODIDh1 ASIST.DBFJASISTN  N  C D D D D D L  L  L  L  L  N N N N N M C N  N L C L D & kMACHINE& kMACHINEUPEDIDO ASISTENCIATECNICOFECHA1FECHA2FECHA3FECHA4FECHA5NOCHE1NOCHE2NOCHE3NOCHE4NOCHE5 COMPLEJO1 COMPLEJO2 COMPLEJO3 COMPLEJO4 COMPLEJO5NOTASTECNICO2TRANCOSTOGARANTIACOD_CLIPENDFECHAh1BIENES_FAST.DBFJ BIENES_FASTC CP C C C N N  N  N  N  C  T  C   N  L C C L C C N N N N N  & kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE& kMACHINE#& kMACHINEUCOD_INSDESCRCODALT1DMARCAMODELOIVAPERFAC_LPR1FAC_LPR2DISCONTEST_ACTCOD_PROACTIDUBARRASFLAGATRBULVENTADATRDBULDTOPRV1DTOPRV2MARGENBONIFFAC_LPR3DESCINSCODINS CODATRBULzh1 DESPOTROS.DBFJ DESPOTROSN  N C( M M & kMACHINEUDESPACHOITMNOMBRE DIRECCIONNOTA\h1 MAILCTAS.DBFJMAILCTASC  N Cd N N Cd N Cd Cd  Cd  Cd  Cd  N  M T N C & kMACHINE& kMACHINE& kMACHINEUIDUCODIGONOMBREENGINESSLHOSTPORT AUTHLOGINAUTHPASSFROMFROMNAMEREPLYTOTIPOOBSULT_MOD USA_GMAILTOKENh1 EPROT.DBFJEPROTN  T N  C N  D & kMACHINEUPRODFECHAUSRCOD_CLISUCELABh1 DPROT.DBFJDPROTN  N  C< N N N M N C & kMACHINEU PRODORDENDESCRDESDEHASTATIPORESULTAVALORCOD_CLI h1 MAILASIG.DBFJMAILASIGC  N Cd N N M & kMACHINE& kMACHINE& kMACHINE#& CZCZkMACHINEUIDUCODIGONOMBRECOD_MAILUSROBSCODUSRh1 SEGUIM.DBFJSEGUIMC  C N T N L & kMACHINEUCOMPROBCAUSAMOTIVOFECHAUSROKWh1BIENES_BUSQ.DBFJ BIENES_BUSQC C( L & kMACHINE& kMACHINEUIDWORDFLAGIDWORDqh1 CLIGRUECE.DBFJ CLIGRUECEN  C( C  C & kMACHINE& kMACHINEUCODIGODESCRIDUEMAILOh1 CLIGRUECD.DBFJ CLIGRUECDN  C & kMACHINE& kMACHINEUCODIGOCOD_CLIh1 PICKINGS.DBFJPICKINGSN  N  D N N N  N & kMACHINE& kMACHINEUPICKINGPEDIDOFECHAUSRESTADOARMADOLIBENTh1 SECTORES.DBFJSECTORESC  C N C( C  & kMACHINE& kMACHINEUCODIGOCOD_CLICODDESCRIDUh1 DBT_BFEC.DBFJDBT_BFECN N  N  N N N N N N  N  N  C  N   C N N N C UTIPO_DOCNRO_DOCCBTE_NRO FECHA_CBTE FCH_VENC_CAE IMP_TOTAL IMP_TOT_CONCIMP_NETO IMP_OP_EXIMPTRIBIMPIVA IMP_MONEDA_IDIMP_MONEDA_CTZ RESULTADOCAE PUNTO_VTA TIPO_CBTEOBSh1 PSOLCOM.DBFJPSOLCOMN  N N D C N N L M  M )& CZCZCZ kMACHINE#& CZCZkMACHINEU SOLITMITMPFECHACOD_PROMONEDAPRECIOACEPTADONOTASOBSSOLITMh1 REC_UPD_1.DBFJ REC_UPD_1C N  N D N  N C  N  N   Cd  C  & kMACHINE& kMACHINE%& kMACHINE!& CZ kMACHINE& kMACHINE& kMACHINE& kMACHINEU TABLAREGISTROPATHULT_MODUSRPENDID_TTS OPERACIONREG_UPDPROGRAMAIDUTABLARECXh1 CAJAS.DBFJCAJASN  C( C  & kMACHINE& kMACHINE& kMACHINEUCODIGODESCRIDUIh1PROPIEDADES.DBFJ PROPIEDADESC  N N N N N N N C  C  C  C2  Cd  N & kMACHINE& kMACHINE& kMACHINE& kMACHINE7&   kMACHINEC UIDUCODIGOPADRE CODIGO_ORIACCIONTIPO AUTOMATICOHIJOSCCOD_INSBULATRNOMBREARBOLETIQUETA CODHEADER3h1PROP_PREDET.DBFJ PROP_PREDETC  N C2 C C C M & kMACHINE& kMACHINE& kMACHINE& kMACHINE#& kMACHINEUIDUCODIGONOMBRECOD_INSBULATRPROPS CODHEADERh1 DPICKINGS.DBFJ DPICKINGSN  C C C C C N N N U PCKCODBULATRDEPDSPCANITMESThh1 BARRAS.DBFJBARRASC C C G G #& kMACHINEUCODIGOATRBULEAN13DUN14VSTKXCODQSELECT Stkxcod.*, Deposito.descr FROM stkxcod LEFT OUTER JOIN deposito ON Stkxcod.deposito = Deposito.deposito WHERE Stkxcod.codigo == ?xcodins ORDER BY Stkxcod.prioridad+CVSTKXCODView UpdateType*CVSTKXCODView WhereType(CVSTKXCODView FetchMemoa*CVSTKXCODView SendUpdatesa,CVSTKXCODView UseMemoSize*CVSTKXCODView FetchSized,CVSTKXCODView MaxRecords.CVSTKXCODViewTablesstkxcod'CVSTKXCODViewPrepared-*CVSTKXCODView CompareMemoa,CVSTKXCODView FetchAsNeeded-(CVSTKXCODViewComment1CVSTKXCODViewBatchUpdateCount.CVSTKXCODViewShareConnection-1CVSTKXCOD.depositoFieldKeyField-2CVSTKXCOD.depositoField UpdatableaECVSTKXCOD.depositoField UpdateNamestkxcod.deposito7CVSTKXCOD.depositoFieldDataTypeC(8)/CVSTKXCOD.codigoFieldKeyField-0CVSTKXCOD.codigoField UpdatableaACVSTKXCOD.codigoField UpdateNamestkxcod.codigo6CVSTKXCOD.codigoFieldDataTypec(15)2CVSTKXCOD.prioridadFieldKeyField-3CVSTKXCOD.prioridadField UpdatableaGCVSTKXCOD.prioridadField UpdateNamestkxcod.prioridad8CVSTKXCOD.prioridadFieldDataTypeN(2)+C VSTKXCOD.idFieldKeyField-,C VSTKXCOD.idField Updatablea9C VSTKXCOD.idField UpdateName stkxcod.id2C VSTKXCOD.idFieldDataTypeC(18),C VSTKXCOD.iduFieldKeyFielda-C VSTKXCOD.iduField Updatablea;C VSTKXCOD.iduField UpdateName stkxcod.idu3C VSTKXCOD.iduFieldDataTypeC(10).CVSTKXCOD.descrFieldKeyField-/CVSTKXCOD.descrField Updatable-@CVSTKXCOD.descrField UpdateNamedeposito.descr5CVSTKXCOD.descrFieldDataTypeC(30)U/D CCCLIE_VENCQ+SELECT * FROM ccclie WHERE cod_cli+DTOS(cancel) = ?xcod_cli+SPACE(8) AND Ccclie.causa = "L" OR (Ccclie.causa = "V") OR (Ccclie.causa = "c") OR (Ccclie.causa = "d" AND ref+cau+STR(cuo) = comprob+causa+STR(cuota)) OR (cod_cli+comprob+causa+STR(cuota) = ?xid_aplicante) ORDER BY Ccclie.venc.C CCCLIE_VENCView UpdateType-C CCCLIE_VENCView WhereType+C CCCLIE_VENCView FetchMemoa-C CCCLIE_VENCView SendUpdatesa/C CCCLIE_VENCView UseMemoSize-C CCCLIE_VENCView FetchSized/C CCCLIE_VENCView MaxRecords0C CCCLIE_VENCViewTablesccclie*C CCCLIE_VENCViewPrepared--C CCCLIE_VENCView CompareMemoa/C CCCLIE_VENCView FetchAsNeeded-+C CCCLIE_VENCViewComment4C CCCLIE_VENCViewBatchUpdateCount1C CCCLIE_VENCViewShareConnection-3CCCCLIE_VENC.cod_cliFieldKeyField-4CCCCLIE_VENC.cod_cliField UpdatableaECCCCLIE_VENC.cod_cliField UpdateNameccclie.cod_cli9CCCCLIE_VENC.cod_cliFieldDataTypeC(6)3CCCCLIE_VENC.comprobFieldKeyField-4CCCCLIE_VENC.comprobField UpdatableaECCCCLIE_VENC.comprobField UpdateNameccclie.comprob:CCCCLIE_VENC.comprobFieldDataTypeC(12)1CCCCLIE_VENC.causaFieldKeyField-2CCCCLIE_VENC.causaField UpdatableaACCCCLIE_VENC.causaField UpdateName ccclie.causa7CCCCLIE_VENC.causaFieldDataTypeC(1)3CCCCLIE_VENC.importeFieldKeyField-4CCCCLIE_VENC.importeField UpdatableaECCCCLIE_VENC.importeField UpdateNameccclie.importe<CCCCLIE_VENC.importeFieldDataTypeN(12,2)3CCCCLIE_VENC.uss_deuFieldKeyField-4CCCCLIE_VENC.uss_deuField UpdatableaECCCCLIE_VENC.uss_deuField UpdateNameccclie.uss_deu<CCCCLIE_VENC.uss_deuFieldDataTypeN(12,2)2CCCCLIE_VENC.motivoFieldKeyField-3CCCCLIE_VENC.motivoField UpdatableaCCCCCLIE_VENC.motivoField UpdateName ccclie.motivo8CCCCLIE_VENC.motivoFieldDataTypeN(2)4CCCCLIE_VENC.comentarFieldKeyField-5CCCCLIE_VENC.comentarField UpdatableaGCCCCLIE_VENC.comentarField UpdateNameccclie.comentar;CCCCLIE_VENC.comentarFieldDataTypeC(30)1CCCCLIE_VENC.fechaFieldKeyField-2CCCCLIE_VENC.fechaField UpdatableaACCCCLIE_VENC.fechaField UpdateName ccclie.fecha4CCCCLIE_VENC.fechaFieldDataTypeD0CCCCLIE_VENC.vencFieldKeyField-1CCCCLIE_VENC.vencField Updatablea?CCCCLIE_VENC.vencField UpdateName ccclie.venc3CCCCLIE_VENC.vencFieldDataTypeD4CCCCLIE_VENC.operacioFieldKeyField-5CCCCLIE_VENC.operacioField UpdatableaGCCCCLIE_VENC.operacioField UpdateNameccclie.operacio:CCCCLIE_VENC.operacioFieldDataTypeN(5)2CCCCLIE_VENC.bultosFieldKeyField-3CCCCLIE_VENC.bultosField UpdatableaCCCCCLIE_VENC.bultosField UpdateName ccclie.bultos8CCCCLIE_VENC.bultosFieldDataTypeN(5)/CCCCLIE_VENC.hoyFieldKeyField-0CCCCLIE_VENC.hoyField Updatablea=CCCCLIE_VENC.hoyField UpdateName ccclie.hoy2CCCCLIE_VENC.hoyFieldDataTypeD4CCCCLIE_VENC.adelantoFieldKeyField-5CCCCLIE_VENC.adelantoField UpdatableaGCCCCLIE_VENC.adelantoField UpdateNameccclie.adelanto=CCCCLIE_VENC.adelantoFieldDataTypeN(12,2)4CCCCLIE_VENC.adel_ussFieldKeyField-5CCCCLIE_VENC.adel_ussField UpdatableaGCCCCLIE_VENC.adel_ussField UpdateNameccclie.adel_uss=CCCCLIE_VENC.adel_ussFieldDataTypeN(12,2)/CCCCLIE_VENC.refFieldKeyField-0CCCCLIE_VENC.refField Updatablea=CCCCLIE_VENC.refField UpdateName ccclie.ref6CCCCLIE_VENC.refFieldDataTypeC(12)/CCCCLIE_VENC.cauFieldKeyField-0CCCCLIE_VENC.cauField Updatablea=CCCCLIE_VENC.cauField UpdateName ccclie.cau5CCCCLIE_VENC.cauFieldDataTypeC(1)2CCCCLIE_VENC.cancelFieldKeyField-3CCCCLIE_VENC.cancelField UpdatableaCCCCCLIE_VENC.cancelField UpdateName ccclie.cancel5CCCCLIE_VENC.cancelFieldDataTypeD2CCCCLIE_VENC.reciboFieldKeyField-3CCCCLIE_VENC.reciboField UpdatableaCCCCCLIE_VENC.reciboField UpdateName ccclie.recibo9CCCCLIE_VENC.reciboFieldDataTypeN(10)2CCCCLIE_VENC.ingtesFieldKeyField-3CCCCLIE_VENC.ingtesField UpdatableaCCCCCLIE_VENC.ingtesField UpdateName ccclie.ingtes9CCCCLIE_VENC.ingtesFieldDataTypeN(10).CCCCLIE_VENC.s1FieldKeyField-/CCCCLIE_VENC.s1Field Updatablea;CCCCLIE_VENC.s1Field UpdateName ccclie.s17CCCCLIE_VENC.s1FieldDataTypeN(12,2)0CCCCLIE_VENC.condFieldKeyField-1CCCCLIE_VENC.condField Updatablea?CCCCLIE_VENC.condField UpdateName ccclie.cond7CCCCLIE_VENC.condFieldDataTypeC(15)1CCCCLIE_VENC.listaFieldKeyField-2CCCCLIE_VENC.listaField UpdatableaACCCCLIE_VENC.listaField UpdateName ccclie.lista7CCCCLIE_VENC.listaFieldDataTypeN(2)2CCCCLIE_VENC.fecrefFieldKeyField-3CCCCLIE_VENC.fecrefField UpdatableaCCCCCLIE_VENC.fecrefField UpdateName ccclie.fecref5CCCCLIE_VENC.fecrefFieldDataTypeD1CCCCLIE_VENC.cuotaFieldKeyField-2CCCCLIE_VENC.cuotaField UpdatableaACCCCLIE_VENC.cuotaField UpdateName ccclie.cuota7CCCCLIE_VENC.cuotaFieldDataTypeN(2)/CCCCLIE_VENC.cuoFieldKeyField-0CCCCLIE_VENC.cuoField Updatablea=CCCCLIE_VENC.cuoField UpdateName ccclie.cuo5CCCCLIE_VENC.cuoFieldDataTypeN(2)1CCCCLIE_VENC.marcaFieldKeyField-2CCCCLIE_VENC.marcaField UpdatableaACCCCLIE_VENC.marcaField UpdateName ccclie.marca4CCCCLIE_VENC.marcaFieldDataTypeL2CCCCLIE_VENC.markedFieldKeyField-3CCCCLIE_VENC.markedField UpdatableaCCCCCLIE_VENC.markedField UpdateName ccclie.marked5CCCCLIE_VENC.markedFieldDataTypeL3CCCCLIE_VENC.cod_cueFieldKeyField-4CCCCLIE_VENC.cod_cueField UpdatableaECCCCLIE_VENC.cod_cueField UpdateNameccclie.cod_cue9CCCCLIE_VENC.cod_cueFieldDataTypeC(9)4CCCCLIE_VENC.des_clieFieldKeyField-5CCCCLIE_VENC.des_clieField UpdatableaGCCCCLIE_VENC.des_clieField UpdateNameccclie.des_clie;CCCCLIE_VENC.des_clieFieldDataTypeC(30)/CCCCLIE_VENC.sucFieldKeyField-0CCCCLIE_VENC.sucField Updatablea=CCCCLIE_VENC.sucField UpdateName ccclie.suc5CCCCLIE_VENC.sucFieldDataTypeN(3)3CCCCLIE_VENC.asientoFieldKeyField-4CCCCLIE_VENC.asientoField UpdatableaECCCCLIE_VENC.asientoField UpdateNameccclie.asiento:CCCCLIE_VENC.asientoFieldDataTypeN(10)0CCCCLIE_VENC.paseFieldKeyField-1CCCCLIE_VENC.paseField Updatablea?CCCCLIE_VENC.paseField UpdateName ccclie.pase6CCCCLIE_VENC.paseFieldDataTypeN(3)1CCCCLIE_VENC.aprobFieldKeyField-2CCCCLIE_VENC.aprobField UpdatableaACCCCLIE_VENC.aprobField UpdateName ccclie.aprob7CCCCLIE_VENC.aprobFieldDataTypeN(3)1CCCCLIE_VENC.califFieldKeyField-2CCCCLIE_VENC.califField UpdatableaACCCCLIE_VENC.califField UpdateName ccclie.calif7CCCCLIE_VENC.califFieldDataTypeN(2)0CCCCLIE_VENC.tipoFieldKeyField-1CCCCLIE_VENC.tipoField Updatablea?CCCCLIE_VENC.tipoField UpdateName ccclie.tipo6CCCCLIE_VENC.tipoFieldDataTypeC(1)0CCCCLIE_VENC.ctrlFieldKeyField-1CCCCLIE_VENC.ctrlField Updatablea?CCCCLIE_VENC.ctrlField UpdateName ccclie.ctrl6CCCCLIE_VENC.ctrlFieldDataTypeN(2)/CCCCLIE_VENC.usrFieldKeyField-0CCCCLIE_VENC.usrField Updatablea=CCCCLIE_VENC.usrField UpdateName ccclie.usr5CCCCLIE_VENC.usrFieldDataTypeN(3)2CCCCLIE_VENC.monedaFieldKeyField-3CCCCLIE_VENC.monedaField UpdatableaCCCCCLIE_VENC.monedaField UpdateName ccclie.moneda8CCCCLIE_VENC.monedaFieldDataTypeN(1)0CCCCLIE_VENC.callFieldKeyField-1CCCCLIE_VENC.callField Updatablea?CCCCLIE_VENC.callField UpdateName ccclie.call3CCCCLIE_VENC.callFieldDataTypeD3CCCCLIE_VENC.calltmpFieldKeyField-4CCCCLIE_VENC.calltmpField UpdatableaECCCCLIE_VENC.calltmpField UpdateNameccclie.calltmp6CCCCLIE_VENC.calltmpFieldDataTypeD0CCCCLIE_VENC.diasFieldKeyField-1CCCCLIE_VENC.diasField Updatablea?CCCCLIE_VENC.diasField UpdateName ccclie.dias6CCCCLIE_VENC.diasFieldDataTypeN(3)4CCCCLIE_VENC.est_despFieldKeyField-5CCCCLIE_VENC.est_despField UpdatableaGCCCCLIE_VENC.est_despField UpdateNameccclie.est_desp:CCCCLIE_VENC.est_despFieldDataTypeN(1)2CCCCLIE_VENC.maxcuoFieldKeyField-3CCCCLIE_VENC.maxcuoField UpdatableaCCCCCLIE_VENC.maxcuoField UpdateName ccclie.maxcuo8CCCCLIE_VENC.maxcuoFieldDataTypeN(2)2CCCCLIE_VENC.fecestFieldKeyField-3CCCCLIE_VENC.fecestField UpdatableaCCCCCLIE_VENC.fecestField UpdateName ccclie.fecest5CCCCLIE_VENC.fecestFieldDataTypeD2CCCCLIE_VENC.coeficFieldKeyField-3CCCCLIE_VENC.coeficField UpdatableaCCCCCLIE_VENC.coeficField UpdateName ccclie.coefic;CCCCLIE_VENC.coeficFieldDataTypeN(20,4).CCCCLIE_VENC.idFieldKeyField-/CCCCLIE_VENC.idField Updatablea;CCCCLIE_VENC.idField UpdateName ccclie.id5CCCCLIE_VENC.idFieldDataTypeC(29)/CCCCLIE_VENC.iduFieldKeyField-0CCCCLIE_VENC.iduField Updatablea=CCCCLIE_VENC.iduField UpdateName ccclie.idu6CCCCLIE_VENC.iduFieldDataTypeC(10)/CCCCLIE_VENC.updFieldKeyField-0CCCCLIE_VENC.updField Updatablea=CCCCLIE_VENC.updField UpdateName ccclie.upd2CCCCLIE_VENC.updFieldDataTypeL/CCCCLIE_VENC.rfcFieldKeyField-0CCCCLIE_VENC.rfcField Updatablea=CCCCLIE_VENC.rfcField UpdateName ccclie.rfc5CCCCLIE_VENC.rfcFieldDataTypeN(3)4CCCCLIE_VENC.contshowFieldKeyField-5CCCCLIE_VENC.contshowField UpdatableaGCCCCLIE_VENC.contshowField UpdateNameccclie.contshow:CCCCLIE_VENC.contshowFieldDataTypeC(1)3CCCCLIE_VENC.enviadaFieldKeyField-4CCCCLIE_VENC.enviadaField UpdatableaECCCCLIE_VENC.enviadaField UpdateNameccclie.enviada9CCCCLIE_VENC.enviadaFieldDataTypeC(1)U SEGUIMIENTOQ}SELECT *, .F. AS upd, SPACE(30) AS tipod, SPACE(30) AS subtipod FROM reclamos WHERE Reclamos.id = ?xid ORDER BY Reclamos.venc.C SEGUIMIENTOView UpdateType-C SEGUIMIENTOView WhereType+C SEGUIMIENTOView FetchMemoa-C SEGUIMIENTOView SendUpdates-/C SEGUIMIENTOView UseMemoSize-C SEGUIMIENTOView FetchSized/C SEGUIMIENTOView MaxRecords2C SEGUIMIENTOViewTablesreclamos*C SEGUIMIENTOViewPrepared--C SEGUIMIENTOView CompareMemoa/C SEGUIMIENTOView FetchAsNeeded-+C SEGUIMIENTOViewComment4C SEGUIMIENTOViewBatchUpdateCount1C SEGUIMIENTOViewShareConnection-.CSEGUIMIENTO.idFieldKeyField-/CSEGUIMIENTO.idField Updatablea=CSEGUIMIENTO.idField UpdateName reclamos.id5CSEGUIMIENTO.idFieldDataTypeC(29)3CSEGUIMIENTO.cod_cliFieldKeyField-4CSEGUIMIENTO.cod_cliField UpdatableaGCSEGUIMIENTO.cod_cliField UpdateNamereclamos.cod_cli9CSEGUIMIENTO.cod_cliFieldDataTypeC(6)3CSEGUIMIENTO.comprobFieldKeyField-4CSEGUIMIENTO.comprobField UpdatableaGCSEGUIMIENTO.comprobField UpdateNamereclamos.comprob:CSEGUIMIENTO.comprobFieldDataTypeC(12)1CSEGUIMIENTO.causaFieldKeyField-2CSEGUIMIENTO.causaField UpdatableaCCSEGUIMIENTO.causaField UpdateNamereclamos.causa7CSEGUIMIENTO.causaFieldDataTypeC(1)1CSEGUIMIENTO.cuotaFieldKeyField-2CSEGUIMIENTO.cuotaField UpdatableaCCSEGUIMIENTO.cuotaField UpdateNamereclamos.cuota8CSEGUIMIENTO.cuotaFieldDataTypeN(10)0CSEGUIMIENTO.tipoFieldKeyField-1CSEGUIMIENTO.tipoField UpdatableaACSEGUIMIENTO.tipoField UpdateName reclamos.tipo6CSEGUIMIENTO.tipoFieldDataTypeC(2)3CSEGUIMIENTO.subtipoFieldKeyField-4CSEGUIMIENTO.subtipoField UpdatableaGCSEGUIMIENTO.subtipoField UpdateNamereclamos.subtipo9CSEGUIMIENTO.subtipoFieldDataTypeC(2)1CSEGUIMIENTO.fechaFieldKeyField-2CSEGUIMIENTO.fechaField UpdatableaCCSEGUIMIENTO.fechaField UpdateNamereclamos.fecha4CSEGUIMIENTO.fechaFieldDataTypeD0CSEGUIMIENTO.vencFieldKeyField-1CSEGUIMIENTO.vencField UpdatableaACSEGUIMIENTO.vencField UpdateName reclamos.venc3CSEGUIMIENTO.vencFieldDataTypeD0CSEGUIMIENTO.notaFieldKeyField-1CSEGUIMIENTO.notaField UpdatableaACSEGUIMIENTO.notaField UpdateName reclamos.nota3CSEGUIMIENTO.notaFieldDataTypeM3CSEGUIMIENTO.archivoFieldKeyField-4CSEGUIMIENTO.archivoField UpdatableaGCSEGUIMIENTO.archivoField UpdateNamereclamos.archivo6CSEGUIMIENTO.archivoFieldDataTypeG/CSEGUIMIENTO.iduFieldKeyField-0CSEGUIMIENTO.iduField Updatablea?CSEGUIMIENTO.iduField UpdateName reclamos.idu6CSEGUIMIENTO.iduFieldDataTypeC(10)/CSEGUIMIENTO.oldFieldKeyField-0CSEGUIMIENTO.oldField Updatablea?CSEGUIMIENTO.oldField UpdateName reclamos.old2CSEGUIMIENTO.oldFieldDataTypeL/CSEGUIMIENTO.updFieldKeyField-0CSEGUIMIENTO.updField Updatable-3CSEGUIMIENTO.updField UpdateName2CSEGUIMIENTO.updFieldDataTypeL1CSEGUIMIENTO.tipodFieldKeyField-2CSEGUIMIENTO.tipodField Updatable-5CSEGUIMIENTO.tipodField UpdateName8CSEGUIMIENTO.tipodFieldDataTypeC(30)4CSEGUIMIENTO.subtipodFieldKeyField-5CSEGUIMIENTO.subtipodField Updatable-8CSEGUIMIENTO.subtipodField UpdateName;CSEGUIMIENTO.subtipodFieldDataTypeC(30)U P ABMFORINCOSQ7SELECT * FROM forincos WHERE Forincos.codigo = ?xcodigo.C ABMFORINCOSView UpdateType-C ABMFORINCOSView WhereType+C ABMFORINCOSView FetchMemoa-C ABMFORINCOSView SendUpdatesa/C ABMFORINCOSView UseMemoSize-C ABMFORINCOSView FetchSized/C ABMFORINCOSView MaxRecords2C ABMFORINCOSViewTablesforincos*C ABMFORINCOSViewPrepared--C ABMFORINCOSView CompareMemoa/C ABMFORINCOSView FetchAsNeeded-+C ABMFORINCOSViewComment4C ABMFORINCOSViewBatchUpdateCount1C ABMFORINCOSViewShareConnection-2CABMFORINCOS.codigoFieldKeyField-3CABMFORINCOS.codigoField UpdatableaECABMFORINCOS.codigoField UpdateNameforincos.codigo8CABMFORINCOS.codigoFieldDataTypeN(4)1CABMFORINCOS.descrFieldKeyField-2CABMFORINCOS.descrField UpdatableaCCABMFORINCOS.descrField UpdateNameforincos.descr8CABMFORINCOS.descrFieldDataTypeC(30)/CABMFORINCOS.iduFieldKeyFielda0CABMFORINCOS.iduField Updatablea?CABMFORINCOS.iduField UpdateName forincos.idu6CABMFORINCOS.iduFieldDataTypeC(10)/CABMFORINCOS.tc1FieldKeyField-0CABMFORINCOS.tc1Field Updatablea?CABMFORINCOS.tc1Field UpdateName forincos.tc17CABMFORINCOS.tc1FieldDataTypeN(6,2)/CABMFORINCOS.tc2FieldKeyField-0CABMFORINCOS.tc2Field Updatablea?CABMFORINCOS.tc2Field UpdateName forincos.tc27CABMFORINCOS.tc2FieldDataTypeN(6,2)/CABMFORINCOS.tc3FieldKeyField-0CABMFORINCOS.tc3Field Updatablea?CABMFORINCOS.tc3Field UpdateName forincos.tc37CABMFORINCOS.tc3FieldDataTypeN(6,2)/CABMFORINCOS.tc4FieldKeyField-0CABMFORINCOS.tc4Field Updatablea?CABMFORINCOS.tc4Field UpdateName forincos.tc47CABMFORINCOS.tc4FieldDataTypeN(6,2)/CABMFORINCOS.tc5FieldKeyField-0CABMFORINCOS.tc5Field Updatablea?CABMFORINCOS.tc5Field UpdateName forincos.tc57CABMFORINCOS.tc5FieldDataTypeN(6,2)/CABMFORINCOS.im1FieldKeyField-0CABMFORINCOS.im1Field Updatablea?CABMFORINCOS.im1Field UpdateName forincos.im17CABMFORINCOS.im1FieldDataTypeN(6,2)/CABMFORINCOS.im2FieldKeyField-0CABMFORINCOS.im2Field Updatablea?CABMFORINCOS.im2Field UpdateName forincos.im27CABMFORINCOS.im2FieldDataTypeN(6,2)/CABMFORINCOS.im3FieldKeyField-0CABMFORINCOS.im3Field Updatablea?CABMFORINCOS.im3Field UpdateName forincos.im37CABMFORINCOS.im3FieldDataTypeN(6,2)/CABMFORINCOS.im4FieldKeyField-0CABMFORINCOS.im4Field Updatablea?CABMFORINCOS.im4Field UpdateName forincos.im47CABMFORINCOS.im4FieldDataTypeN(6,2)/CABMFORINCOS.im5FieldKeyField-0CABMFORINCOS.im5Field Updatablea?CABMFORINCOS.im5Field UpdateName forincos.im57CABMFORINCOS.im5FieldDataTypeN(6,2)Up CHEQUERASQYSELECT * FROM chepro WHERE Chepro.cuenta == ?xcuenta ORDER BY Chepro.cuenta, Chepro.desde,C CHEQUERASView UpdateType+C CHEQUERASView WhereType)C CHEQUERASView FetchMemoa+C CHEQUERASView SendUpdatesa-C CHEQUERASView UseMemoSize+C CHEQUERASView FetchSized-C CHEQUERASView MaxRecords.C CHEQUERASViewTableschepro(C CHEQUERASViewPrepared-+C CHEQUERASView CompareMemoa-C CHEQUERASView FetchAsNeeded-)C CHEQUERASViewComment2C CHEQUERASViewBatchUpdateCount/C CHEQUERASViewShareConnection-0CCHEQUERAS.cuentaFieldKeyField-1CCHEQUERAS.cuentaField UpdatableaACCHEQUERAS.cuentaField UpdateName chepro.cuenta6CCHEQUERAS.cuentaFieldDataTypeC(9)/CCHEQUERAS.desdeFieldKeyField-0CCHEQUERAS.desdeField Updatablea?CCHEQUERAS.desdeField UpdateName chepro.desde6CCHEQUERAS.desdeFieldDataTypeN(12)/CCHEQUERAS.hastaFieldKeyField-0CCHEQUERAS.hastaField Updatablea?CCHEQUERAS.hastaField UpdateName chepro.hasta6CCHEQUERAS.hastaFieldDataTypeN(12).CCHEQUERAS.bajaFieldKeyField-/CCHEQUERAS.bajaField Updatablea=CCHEQUERAS.bajaField UpdateName chepro.baja1CCHEQUERAS.bajaFieldDataTypeL0CCHEQUERAS.borrarFieldKeyField-1CCHEQUERAS.borrarField UpdatableaACCHEQUERAS.borrarField UpdateName chepro.borrar3CCHEQUERAS.borrarFieldDataTypeL-C CHEQUERAS.iduFieldKeyFielda.C CHEQUERAS.iduField Updatablea;C CHEQUERAS.iduField UpdateName chepro.idu4C CHEQUERAS.iduFieldDataTypeC(10)0CCHEQUERAS.numeroFieldKeyField-1CCHEQUERAS.numeroField UpdatableaACCHEQUERAS.numeroField UpdateName chepro.numero7CCHEQUERAS.numeroFieldDataTypeN(10)U  VISTA_BATCHQ select remito,fac_ven,causa,arch,spooled,marked,space(30) as ID,space(15) as IDREMITO from batch where arch not like ''.C VISTA_BATCHView UpdateType-C VISTA_BATCHView WhereType+C VISTA_BATCHView FetchMemoa-C VISTA_BATCHView SendUpdates-/C VISTA_BATCHView UseMemoSize-C VISTA_BATCHView FetchSized/C VISTA_BATCHView MaxRecords/C VISTA_BATCHViewTablesbatch*C VISTA_BATCHViewPrepared--C VISTA_BATCHView CompareMemoa/C VISTA_BATCHView FetchAsNeeded-+C VISTA_BATCHViewComment4C VISTA_BATCHViewBatchUpdateCount1C VISTA_BATCHViewShareConnection-2CVISTA_BATCH.remitoFieldKeyField-3CVISTA_BATCH.remitoField UpdatableaBCVISTA_BATCH.remitoField UpdateName batch.remito9CVISTA_BATCH.remitoFieldDataTypeC(12)3CVISTA_BATCH.fac_venFieldKeyField-4CVISTA_BATCH.fac_venField UpdatableaDCVISTA_BATCH.fac_venField UpdateName batch.fac_ven:CVISTA_BATCH.fac_venFieldDataTypeC(12)1CVISTA_BATCH.causaFieldKeyField-2CVISTA_BATCH.causaField Updatablea@CVISTA_BATCH.causaField UpdateName batch.causa7CVISTA_BATCH.causaFieldDataTypeC(1)0CVISTA_BATCH.archFieldKeyField-1CVISTA_BATCH.archField Updatablea>CVISTA_BATCH.archField UpdateName batch.arch6CVISTA_BATCH.archFieldDataTypeC(8)3CVISTA_BATCH.spooledFieldKeyField-4CVISTA_BATCH.spooledField UpdatableaDCVISTA_BATCH.spooledField UpdateName batch.spooled9CVISTA_BATCH.spooledFieldDataTypeC(1)2CVISTA_BATCH.markedFieldKeyField-3CVISTA_BATCH.markedField UpdatableaBCVISTA_BATCH.markedField UpdateName batch.marked5CVISTA_BATCH.markedFieldDataTypeL.CVISTA_BATCH.idFieldKeyField-/CVISTA_BATCH.idField Updatable-4CVISTA_BATCH.idField UpdateNameid5CVISTA_BATCH.idFieldDataTypeC(30)4CVISTA_BATCH.idremitoFieldKeyField-5CVISTA_BATCH.idremitoField Updatable-@CVISTA_BATCH.idremitoField UpdateNameidremito;CVISTA_BATCH.idremitoFieldDataTypeC(15)U P ABMMAQUINASQ7SELECT * FROM maquinas WHERE Maquinas.codigo = ?xcodigo.C ABMMAQUINASView UpdateType-C ABMMAQUINASView WhereType+C ABMMAQUINASView FetchMemoa-C ABMMAQUINASView SendUpdatesa/C ABMMAQUINASView UseMemoSize-C ABMMAQUINASView FetchSized/C ABMMAQUINASView MaxRecords2C ABMMAQUINASViewTablesmaquinas*C ABMMAQUINASViewPrepared--C ABMMAQUINASView CompareMemoa/C ABMMAQUINASView FetchAsNeeded-+C ABMMAQUINASViewComment4C ABMMAQUINASViewBatchUpdateCount1C ABMMAQUINASViewShareConnection-2CABMMAQUINAS.codigoFieldKeyField-3CABMMAQUINAS.codigoField UpdatableaECABMMAQUINAS.codigoField UpdateNamemaquinas.codigo9CABMMAQUINAS.codigoFieldDataTypeN(10)1CABMMAQUINAS.descrFieldKeyField-2CABMMAQUINAS.descrField UpdatableaCCABMMAQUINAS.descrField UpdateNamemaquinas.descr8CABMMAQUINAS.descrFieldDataTypeC(30)1CABMMAQUINAS.cicloFieldKeyField-2CABMMAQUINAS.cicloField UpdatableaCCABMMAQUINAS.cicloField UpdateNamemaquinas.ciclo8CABMMAQUINAS.cicloFieldDataTypeN(10)/CABMMAQUINAS.iduFieldKeyFielda0CABMMAQUINAS.iduField Updatablea?CABMMAQUINAS.iduField UpdateName maquinas.idu6CABMMAQUINAS.iduFieldDataTypeC(10)3CABMMAQUINAS.depbajaFieldKeyField-4CABMMAQUINAS.depbajaField UpdatableaGCABMMAQUINAS.depbajaField UpdateNamemaquinas.depbaja9CABMMAQUINAS.depbajaFieldDataTypeC(8)2CABMMAQUINAS.depingFieldKeyField-3CABMMAQUINAS.depingField UpdatableaECABMMAQUINAS.depingField UpdateNamemaquinas.deping8CABMMAQUINAS.depingFieldDataTypeC(8)3CABMMAQUINAS.centralFieldKeyField-4CABMMAQUINAS.centralField UpdatableaGCABMMAQUINAS.centralField UpdateNamemaquinas.central9CABMMAQUINAS.centralFieldDataTypeC(8)1CABMMAQUINAS.grupoFieldKeyField-2CABMMAQUINAS.grupoField UpdatableaCCABMMAQUINAS.grupoField UpdateNamemaquinas.grupo7CABMMAQUINAS.grupoFieldDataTypeC(6)U_P ABMMAQ_GRPQ8SELECT * FROM MAQ_GRP WHERE Maq_grp.codigo == ?xcodigo-C ABMMAQ_GRPView UpdateType,C ABMMAQ_GRPView WhereType*C ABMMAQ_GRPView FetchMemoa,C ABMMAQ_GRPView SendUpdatesa.C ABMMAQ_GRPView UseMemoSize,C ABMMAQ_GRPView FetchSized.C ABMMAQ_GRPView MaxRecords4C ABMMAQ_GRPViewTables ges!maq_grp)C ABMMAQ_GRPViewPrepared-,C ABMMAQ_GRPView CompareMemoa.C ABMMAQ_GRPView FetchAsNeeded-*C ABMMAQ_GRPViewComment3C ABMMAQ_GRPViewBatchUpdateCount0C ABMMAQ_GRPViewShareConnection-1CABMMAQ_GRP.codigoFieldKeyField-2CABMMAQ_GRP.codigoField UpdatableaGCABMMAQ_GRP.codigoField UpdateNameges!maq_grp.codigo7CABMMAQ_GRP.codigoFieldDataTypeC(6)0CABMMAQ_GRP.descrFieldKeyField-1CABMMAQ_GRP.descrField UpdatableaECABMMAQ_GRP.descrField UpdateNameges!maq_grp.descr7CABMMAQ_GRP.descrFieldDataTypeC(30).CABMMAQ_GRP.iduFieldKeyFielda/CABMMAQ_GRP.iduField UpdatableaACABMMAQ_GRP.iduField UpdateNameges!maq_grp.idu5CABMMAQ_GRP.iduFieldDataTypeC(10)U O ABMGENERICOSQ5SELECT * FROM form_gen WHERE Form_gen.idu == ?xcodigo/C ABMGENERICOSView UpdateType.C ABMGENERICOSView WhereType,C ABMGENERICOSView FetchMemoa.C ABMGENERICOSView SendUpdatesa0C ABMGENERICOSView UseMemoSize.C ABMGENERICOSView FetchSized0C ABMGENERICOSView MaxRecords3C ABMGENERICOSViewTablesform_gen+C ABMGENERICOSViewPrepared-.C ABMGENERICOSView CompareMemoa0C ABMGENERICOSView FetchAsNeeded-,C ABMGENERICOSViewComment5C ABMGENERICOSViewBatchUpdateCount2C ABMGENERICOSViewShareConnection-4CABMGENERICOS.formulaFieldKeyField-5CABMGENERICOS.formulaField UpdatableaHCABMGENERICOS.formulaField UpdateNameform_gen.formula;CABMGENERICOS.formulaFieldDataTypeN(10)4CABMGENERICOS.codcompFieldKeyField-5CABMGENERICOS.codcompField UpdatableaHCABMGENERICOS.codcompField UpdateNameform_gen.codcomp;CABMGENERICOS.codcompFieldDataTypec(15)4CABMGENERICOS.bulcompFieldKeyField-5CABMGENERICOS.bulcompField UpdatableaHCABMGENERICOS.bulcompField UpdateNameform_gen.bulcomp:CABMGENERICOS.bulcompFieldDataTypeC(3)4CABMGENERICOS.atrcompFieldKeyField-5CABMGENERICOS.atrcompField UpdatableaHCABMGENERICOS.atrcompField UpdateNameform_gen.atrcomp:CABMGENERICOS.atrcompFieldDataTypeC(3)5CABMGENERICOS.cantidadFieldKeyField-6CABMGENERICOS.cantidadField UpdatableaJCABMGENERICOS.cantidadField UpdateNameform_gen.cantidad>CABMGENERICOS.cantidadFieldDataTypeN(14,4)4CABMGENERICOS.codsustFieldKeyField-5CABMGENERICOS.codsustField UpdatableaHCABMGENERICOS.codsustField UpdateNameform_gen.codsust;CABMGENERICOS.codsustFieldDataTypec(15)4CABMGENERICOS.bulsustFieldKeyField-5CABMGENERICOS.bulsustField UpdatableaHCABMGENERICOS.bulsustField UpdateNameform_gen.bulsust:CABMGENERICOS.bulsustFieldDataTypeC(3)4CABMGENERICOS.atrsustFieldKeyField-5CABMGENERICOS.atrsustField UpdatableaHCABMGENERICOS.atrsustField UpdateNameform_gen.atrsust:CABMGENERICOS.atrsustFieldDataTypeC(3)5CABMGENERICOS.cantsustFieldKeyField-6CABMGENERICOS.cantsustField UpdatableaJCABMGENERICOS.cantsustField UpdateNameform_gen.cantsust>CABMGENERICOS.cantsustFieldDataTypeN(14,4)3CABMGENERICOS.predetFieldKeyField-4CABMGENERICOS.predetField UpdatableaFCABMGENERICOS.predetField UpdateNameform_gen.predet9CABMGENERICOS.predetFieldDataTypeN(4)0CABMGENERICOS.iduFieldKeyFielda1CABMGENERICOS.iduField Updatablea@CABMGENERICOS.iduField UpdateName form_gen.idu7CABMGENERICOS.iduFieldDataTypeC(10)U0R ABMOPERARIOQ9SELECT * FROM operario WHERE Operario.codigo = ?xcodigo.C ABMOPERARIOView UpdateType-C ABMOPERARIOView WhereType+C ABMOPERARIOView FetchMemoa-C ABMOPERARIOView SendUpdatesa/C ABMOPERARIOView UseMemoSize-C ABMOPERARIOView FetchSized/C ABMOPERARIOView MaxRecords2C ABMOPERARIOViewTablesoperario*C ABMOPERARIOViewPrepared--C ABMOPERARIOView CompareMemoa/C ABMOPERARIOView FetchAsNeeded-+C ABMOPERARIOViewComment4C ABMOPERARIOViewBatchUpdateCount1C ABMOPERARIOViewShareConnection-2CABMOPERARIO.codigoFieldKeyField-3CABMOPERARIO.codigoField UpdatableaECABMOPERARIO.codigoField UpdateNameoperario.codigo9CABMOPERARIO.codigoFieldDataTypeN(10)1CABMOPERARIO.descrFieldKeyField-2CABMOPERARIO.descrField UpdatableaCCABMOPERARIO.descrField UpdateNameoperario.descr8CABMOPERARIO.descrFieldDataTypeC(30)/CABMOPERARIO.iduFieldKeyFielda0CABMOPERARIO.iduField Updatablea?CABMOPERARIO.iduField UpdateName operario.idu6CABMOPERARIO.iduFieldDataTypeC(10)5CABMOPERARIO.encargadoFieldKeyField-6CABMOPERARIO.encargadoField UpdatableaKCABMOPERARIO.encargadoField UpdateNameoperario.encargado8CABMOPERARIO.encargadoFieldDataTypeL4CABMOPERARIO.operarioFieldKeyField-5CABMOPERARIO.operarioField UpdatableaICABMOPERARIO.operarioField UpdateNameoperario.operario7CABMOPERARIO.operarioFieldDataTypeL4CABMOPERARIO.maquinasFieldKeyField-5CABMOPERARIO.maquinasField UpdatableaICABMOPERARIO.maquinasField UpdateNameoperario.maquinas7CABMOPERARIO.maquinasFieldDataTypeMU VPROT_ESPQwSELECT *, Prot_esp.idu AS clave FROM prot_esp WHERE ( Prot_esp.cod_ins+Prot_esp.bul+Prot_esp.atr ) == ( ?xcodbulatr ),C VPROT_ESPView UpdateType+C VPROT_ESPView WhereType)C VPROT_ESPView FetchMemoa+C VPROT_ESPView SendUpdatesa-C VPROT_ESPView UseMemoSize+C VPROT_ESPView FetchSized-C VPROT_ESPView MaxRecords4C VPROT_ESPViewTables ges!prot_esp(C VPROT_ESPViewPrepared-+C VPROT_ESPView CompareMemoa-C VPROT_ESPView FetchAsNeeded-)C VPROT_ESPViewComment2C VPROT_ESPViewBatchUpdateCount/C VPROT_ESPViewShareConnection--C VPROT_ESP.iduFieldKeyFielda.C VPROT_ESP.iduField UpdatableaAC VPROT_ESP.iduField UpdateNameges!prot_esp.idu4C VPROT_ESP.iduFieldDataTypeC(10)1CVPROT_ESP.cod_insFieldKeyField-2CVPROT_ESP.cod_insField UpdatableaICVPROT_ESP.cod_insField UpdateNameges!prot_esp.cod_ins8CVPROT_ESP.cod_insFieldDataTypec(15)-C VPROT_ESP.bulFieldKeyField-.C VPROT_ESP.bulField UpdatableaAC VPROT_ESP.bulField UpdateNameges!prot_esp.bul3C VPROT_ESP.bulFieldDataTypeC(3)-C VPROT_ESP.atrFieldKeyField-.C VPROT_ESP.atrField UpdatableaAC VPROT_ESP.atrField UpdateNameges!prot_esp.atr3C VPROT_ESP.atrFieldDataTypeC(3)/CVPROT_ESP.descrFieldKeyField-0CVPROT_ESP.descrField UpdatableaECVPROT_ESP.descrField UpdateNameges!prot_esp.descr6CVPROT_ESP.descrFieldDataTypeC(45),C VPROT_ESP.taFieldKeyField--C VPROT_ESP.taField Updatablea?C VPROT_ESP.taField UpdateNameges!prot_esp.ta3C VPROT_ESP.taFieldDataTypeC(15)/CVPROT_ESP.claveFieldKeyField-0CVPROT_ESP.claveField UpdatableaCCVPROT_ESP.claveField UpdateNameges!prot_esp.idu6CVPROT_ESP.claveFieldDataTypeC(10)U% ] ABMVPROT_ESPQCSELECT * FROM ges!vprot_esp WHERE Vprot_esp.clave == ( ?xCodigo )/C ABMVPROT_ESPView UpdateType.C ABMVPROT_ESPView WhereType,C ABMVPROT_ESPView FetchMemo-.C ABMVPROT_ESPView SendUpdatesa0C ABMVPROT_ESPView UseMemoSize.C ABMVPROT_ESPView FetchSized0C ABMVPROT_ESPView MaxRecords8C ABMVPROT_ESPViewTables ges!vprot_esp+C ABMVPROT_ESPViewPrepared-.C ABMVPROT_ESPView CompareMemoa0C ABMVPROT_ESPView FetchAsNeeded-,C ABMVPROT_ESPViewComment5C ABMVPROT_ESPViewBatchUpdateCount2C ABMVPROT_ESPViewShareConnection-0CABMVPROT_ESP.iduFieldKeyFielda1CABMVPROT_ESP.iduField UpdatableaECABMVPROT_ESP.iduField UpdateNameges!vprot_esp.idu7CABMVPROT_ESP.iduFieldDataTypeC(10)4CABMVPROT_ESP.cod_insFieldKeyField-5CABMVPROT_ESP.cod_insField UpdatableaMCABMVPROT_ESP.cod_insField UpdateNameges!vprot_esp.cod_ins;CABMVPROT_ESP.cod_insFieldDataTypec(15)0CABMVPROT_ESP.bulFieldKeyField-1CABMVPROT_ESP.bulField UpdatableaECABMVPROT_ESP.bulField UpdateNameges!vprot_esp.bul6CABMVPROT_ESP.bulFieldDataTypeC(3)0CABMVPROT_ESP.atrFieldKeyField-1CABMVPROT_ESP.atrField UpdatableaECABMVPROT_ESP.atrField UpdateNameges!vprot_esp.atr6CABMVPROT_ESP.atrFieldDataTypeC(3)2CABMVPROT_ESP.descrFieldKeyField-3CABMVPROT_ESP.descrField UpdatableaICABMVPROT_ESP.descrField UpdateNameges!vprot_esp.descr9CABMVPROT_ESP.descrFieldDataTypeC(45)/CABMVPROT_ESP.taFieldKeyField-0CABMVPROT_ESP.taField UpdatableaCCABMVPROT_ESP.taField UpdateNameges!vprot_esp.ta6CABMVPROT_ESP.taFieldDataTypeC(15)2CABMVPROT_ESP.claveFieldKeyField-3CABMVPROT_ESP.claveField UpdatableaICABMVPROT_ESP.claveField UpdateNameges!vprot_esp.clave9CABMVPROT_ESP.claveFieldDataTypeC(10)U1 W ABMTARJETASQ>SELECT * FROM tarjetas WHERE Tarjetas.codigo == ( ?xcodigo ).C ABMTARJETASView UpdateType-C ABMTARJETASView WhereType+C ABMTARJETASView FetchMemoa-C ABMTARJETASView SendUpdatesa/C ABMTARJETASView UseMemoSize-C ABMTARJETASView FetchSized/C ABMTARJETASView MaxRecords6C ABMTARJETASViewTables ges!tarjetas*C ABMTARJETASViewPrepared--C ABMTARJETASView CompareMemoa/C ABMTARJETASView FetchAsNeeded-+C ABMTARJETASViewComment4C ABMTARJETASViewBatchUpdateCount1C ABMTARJETASViewShareConnection-2CABMTARJETAS.codigoFieldKeyField-3CABMTARJETAS.codigoField UpdatableaICABMTARJETAS.codigoField UpdateNameges!tarjetas.codigo9CABMTARJETAS.codigoFieldDataTypeN(10)1CABMTARJETAS.descrFieldKeyField-2CABMTARJETAS.descrField UpdatableaGCABMTARJETAS.descrField UpdateNameges!tarjetas.descr8CABMTARJETAS.descrFieldDataTypeC(40)3CABMTARJETAS.cue_tarFieldKeyField-4CABMTARJETAS.cue_tarField UpdatableaKCABMTARJETAS.cue_tarField UpdateNameges!tarjetas.cue_tar9CABMTARJETAS.cue_tarFieldDataTypeC(9)3CABMTARJETAS.cue_banFieldKeyField-4CABMTARJETAS.cue_banField UpdatableaKCABMTARJETAS.cue_banField UpdateNameges!tarjetas.cue_ban9CABMTARJETAS.cue_banFieldDataTypeC(9)3CABMTARJETAS.cue_comFieldKeyField-4CABMTARJETAS.cue_comField UpdatableaKCABMTARJETAS.cue_comField UpdateNameges!tarjetas.cue_com9CABMTARJETAS.cue_comFieldDataTypeC(9)3CABMTARJETAS.cod_cenFieldKeyField-4CABMTARJETAS.cod_cenField UpdatableaKCABMTARJETAS.cod_cenField UpdateNameges!tarjetas.cod_cen9CABMTARJETAS.cod_cenFieldDataTypeC(6)/CABMTARJETAS.iduFieldKeyFielda0CABMTARJETAS.iduField UpdatableaCCABMTARJETAS.iduField UpdateNameges!tarjetas.idu6CABMTARJETAS.iduFieldDataTypeC(10)UO ABMEQUIPOSQ7SELECT * FROM equipos WHERE Equipos.codigo = ?xcodigo-C ABMEQUIPOSView UpdateType,C ABMEQUIPOSView WhereType*C ABMEQUIPOSView FetchMemoa,C ABMEQUIPOSView SendUpdatesa.C ABMEQUIPOSView UseMemoSize,C ABMEQUIPOSView FetchSized.C ABMEQUIPOSView MaxRecords0C ABMEQUIPOSViewTablesequipos)C ABMEQUIPOSViewPrepared-,C ABMEQUIPOSView CompareMemoa.C ABMEQUIPOSView FetchAsNeeded-*C ABMEQUIPOSViewComment3C ABMEQUIPOSViewBatchUpdateCount0C ABMEQUIPOSViewShareConnection-1CABMEQUIPOS.codigoFieldKeyField-2CABMEQUIPOS.codigoField UpdatableaCCABMEQUIPOS.codigoField UpdateNameequipos.codigo7CABMEQUIPOS.codigoFieldDataTypeN(3).CABMEQUIPOS.iduFieldKeyFielda/CABMEQUIPOS.iduField Updatablea=CABMEQUIPOS.iduField UpdateName equipos.idu5CABMEQUIPOS.iduFieldDataTypeC(10)1CABMEQUIPOS.nombreFieldKeyField-2CABMEQUIPOS.nombreField UpdatableaCCABMEQUIPOS.nombreField UpdateNameequipos.nombre8CABMEQUIPOS.nombreFieldDataTypeC(30)0CABMEQUIPOS.inoutFieldKeyField-1CABMEQUIPOS.inoutField UpdatableaACABMEQUIPOS.inoutField UpdateName equipos.inout6CABMEQUIPOS.inoutFieldDataTypeN(1)4CABMEQUIPOS.actividadFieldKeyField-5CABMEQUIPOS.actividadField UpdatableaICABMEQUIPOS.actividadField UpdateNameequipos.actividad7CABMEQUIPOS.actividadFieldDataTypeT4CABMEQUIPOS.sealvidaFieldKeyField-5CABMEQUIPOS.sealvidaField UpdatableaICABMEQUIPOS.sealvidaField UpdateNameequipos.sealvida7CABMEQUIPOS.sealvidaFieldDataTypeT1CABMEQUIPOS.inicioFieldKeyField-2CABMEQUIPOS.inicioField UpdatableaCCABMEQUIPOS.inicioField UpdateNameequipos.inicio4CABMEQUIPOS.inicioFieldDataTypeT1CABMEQUIPOS.salidaFieldKeyField-2CABMEQUIPOS.salidaField UpdatableaCCABMEQUIPOS.salidaField UpdateNameequipos.salida4CABMEQUIPOS.salidaFieldDataTypeT-C ABMEQUIPOS.ipFieldKeyField-.C ABMEQUIPOS.ipField Updatablea;C ABMEQUIPOS.ipField UpdateName equipos.ip4C ABMEQUIPOS.ipFieldDataTypeC(15).CABMEQUIPOS.macFieldKeyField-/CABMEQUIPOS.macField Updatablea=CABMEQUIPOS.macField UpdateName equipos.mac5CABMEQUIPOS.macFieldDataTypeC(17)2CABMEQUIPOS.userwinFieldKeyField-3CABMEQUIPOS.userwinField UpdatableaECABMEQUIPOS.userwinField UpdateNameequipos.userwin9CABMEQUIPOS.userwinFieldDataTypeC(30)2CABMEQUIPOS.usergesFieldKeyField-3CABMEQUIPOS.usergesField UpdatableaECABMEQUIPOS.usergesField UpdateNameequipos.userges9CABMEQUIPOS.usergesFieldDataTypeC(30)2CABMEQUIPOS.permisoFieldKeyField-3CABMEQUIPOS.permisoField UpdatableaECABMEQUIPOS.permisoField UpdateNameequipos.permiso5CABMEQUIPOS.permisoFieldDataTypeL2CABMEQUIPOS.snd_msgFieldKeyField-3CABMEQUIPOS.snd_msgField UpdatableaECABMEQUIPOS.snd_msgField UpdateNameequipos.snd_msg5CABMEQUIPOS.snd_msgFieldDataTypeM3CABMEQUIPOS.comandosFieldKeyField-4CABMEQUIPOS.comandosField Updatable-?CABMEQUIPOS.comandosField UpdateNamecomandos6CABMEQUIPOS.comandosFieldDataTypeMUK ABMA010592Q3SELECT * FROM a010592 WHERE A010592.a4 = ?xcodigo-C ABMA010592View UpdateType,C ABMA010592View WhereType*C ABMA010592View FetchMemoa,C ABMA010592View SendUpdatesa.C ABMA010592View UseMemoSize,C ABMA010592View FetchSized.C ABMA010592View MaxRecords0C ABMA010592ViewTablesa010592)C ABMA010592ViewPrepared-,C ABMA010592View CompareMemoa.C ABMA010592View FetchAsNeeded-*C ABMA010592ViewComment3C ABMA010592ViewBatchUpdateCount0C ABMA010592ViewShareConnection--C ABMA010592.a1FieldKeyField-.C ABMA010592.a1Field Updatablea;C ABMA010592.a1Field UpdateName a010592.a13C ABMA010592.a1FieldDataTypeC(6)-C ABMA010592.a2FieldKeyField-.C ABMA010592.a2Field Updatablea;C ABMA010592.a2Field UpdateName a010592.a25C ABMA010592.a2FieldDataTypeC(254)-C ABMA010592.a3FieldKeyField-.C ABMA010592.a3Field Updatablea;C ABMA010592.a3Field UpdateName a010592.a34C ABMA010592.a3FieldDataTypeC(30)-C ABMA010592.a4FieldKeyField-.C ABMA010592.a4Field Updatablea;C ABMA010592.a4Field UpdateName a010592.a43C ABMA010592.a4FieldDataTypeN(3).CABMA010592.iduFieldKeyFielda/CABMA010592.iduField Updatablea=CABMA010592.iduField UpdateName a010592.idu5CABMA010592.iduFieldDataTypeC(10)-C ABMA010592.a5FieldKeyField-.C ABMA010592.a5Field Updatablea;C ABMA010592.a5Field UpdateName a010592.a54C ABMA010592.a5FieldDataTypeC(20)U=W ABMVSTKXCODQ>SELECT * FROM ges!vstkxcod WHERE Vstkxcod.deposito == ?xcodigo.C ABMVSTKXCODView UpdateType-C ABMVSTKXCODView WhereType+C ABMVSTKXCODView FetchMemoa-C ABMVSTKXCODView SendUpdatesa/C ABMVSTKXCODView UseMemoSize-C ABMVSTKXCODView FetchSized/C ABMVSTKXCODView MaxRecords6C ABMVSTKXCODViewTables ges!vstkxcod*C ABMVSTKXCODViewPrepared--C ABMVSTKXCODView CompareMemoa/C ABMVSTKXCODView FetchAsNeeded-+C ABMVSTKXCODViewComment4C ABMVSTKXCODViewBatchUpdateCount1C ABMVSTKXCODViewShareConnection-4CABMVSTKXCOD.depositoFieldKeyField-5CABMVSTKXCOD.depositoField UpdatableaMCABMVSTKXCOD.depositoField UpdateNameges!vstkxcod.deposito:CABMVSTKXCOD.depositoFieldDataTypeC(8)2CABMVSTKXCOD.codigoFieldKeyField-3CABMVSTKXCOD.codigoField UpdatableaICABMVSTKXCOD.codigoField UpdateNameges!vstkxcod.codigo9CABMVSTKXCOD.codigoFieldDataTypec(15)5CABMVSTKXCOD.prioridadFieldKeyField-6CABMVSTKXCOD.prioridadField UpdatableaOCABMVSTKXCOD.prioridadField UpdateNameges!vstkxcod.prioridad;CABMVSTKXCOD.prioridadFieldDataTypeN(2).CABMVSTKXCOD.idFieldKeyField-/CABMVSTKXCOD.idField UpdatableaACABMVSTKXCOD.idField UpdateNameges!vstkxcod.id5CABMVSTKXCOD.idFieldDataTypeC(18)/CABMVSTKXCOD.iduFieldKeyFielda0CABMVSTKXCOD.iduField UpdatableaCCABMVSTKXCOD.iduField UpdateNameges!vstkxcod.idu6CABMVSTKXCOD.iduFieldDataTypeC(10)1CABMVSTKXCOD.descrFieldKeyField-2CABMVSTKXCOD.descrField UpdatableaGCABMVSTKXCOD.descrField UpdateNameges!vstkxcod.descr8CABMVSTKXCOD.descrFieldDataTypeC(30)UQ ABMBANCOSQ:SELECT * FROM bancos WHERE Bancos.codigo == ( ?xcodigo ),C ABMBANCOSView UpdateType+C ABMBANCOSView WhereType)C ABMBANCOSView FetchMemoa+C ABMBANCOSView SendUpdatesa-C ABMBANCOSView UseMemoSize+C ABMBANCOSView FetchSized-C ABMBANCOSView MaxRecords.C ABMBANCOSViewTablesbancos(C ABMBANCOSViewPrepared-+C ABMBANCOSView CompareMemoa-C ABMBANCOSView FetchAsNeeded-)C ABMBANCOSViewComment2C ABMBANCOSViewBatchUpdateCount/C ABMBANCOSViewShareConnection-0CABMBANCOS.codigoFieldKeyField-1CABMBANCOS.codigoField UpdatableaACABMBANCOS.codigoField UpdateName bancos.codigo7CABMBANCOS.codigoFieldDataTypeN(10)/CABMBANCOS.descrFieldKeyField-0CABMBANCOS.descrField Updatablea?CABMBANCOS.descrField UpdateName bancos.descr6CABMBANCOS.descrFieldDataTypeC(40).CABMBANCOS.cuitFieldKeyField-/CABMBANCOS.cuitField Updatablea=CABMBANCOS.cuitField UpdateName bancos.cuit5CABMBANCOS.cuitFieldDataTypeC(13)-C ABMBANCOS.iduFieldKeyFielda.C ABMBANCOS.iduField Updatablea;C ABMBANCOS.iduField UpdateName bancos.idu4C ABMBANCOS.iduFieldDataTypeC(10)/CABMBANCOS.bancoFieldKeyField-0CABMBANCOS.bancoField Updatablea?CABMBANCOS.bancoField UpdateName bancos.banco6CABMBANCOS.bancoFieldDataTypeC(60)Uz O ABMEJERCONQ7SELECT * FROM ejercon WHERE Ejercon.id = ( ?xcodigo )-C ABMEJERCONView UpdateType,C ABMEJERCONView WhereType*C ABMEJERCONView FetchMemoa,C ABMEJERCONView SendUpdatesa.C ABMEJERCONView UseMemoSize,C ABMEJERCONView FetchSized.C ABMEJERCONView MaxRecords4C ABMEJERCONViewTables ges!ejercon)C ABMEJERCONViewPrepared-,C ABMEJERCONView CompareMemoa.C ABMEJERCONView FetchAsNeeded-*C ABMEJERCONViewComment3C ABMEJERCONViewBatchUpdateCount0C ABMEJERCONViewShareConnection-.CABMEJERCON.dirFieldKeyField-/CABMEJERCON.dirField UpdatableaACABMEJERCON.dirField UpdateNameges!ejercon.dir4CABMEJERCON.dirFieldDataTypeC(8)0CABMEJERCON.desdeFieldKeyField-1CABMEJERCON.desdeField UpdatableaECABMEJERCON.desdeField UpdateNameges!ejercon.desde3CABMEJERCON.desdeFieldDataTypeD0CABMEJERCON.hastaFieldKeyField-1CABMEJERCON.hastaField UpdatableaECABMEJERCON.hastaField UpdateNameges!ejercon.hasta3CABMEJERCON.hastaFieldDataTypeD-C ABMEJERCON.idFieldKeyField-.C ABMEJERCON.idField Updatablea?C ABMEJERCON.idField UpdateNameges!ejercon.id3C ABMEJERCON.idFieldDataTypeN(3)0CABMEJERCON.descrFieldKeyField-1CABMEJERCON.descrField UpdatableaECABMEJERCON.descrField UpdateNameges!ejercon.descr7CABMEJERCON.descrFieldDataTypeC(30)/CABMEJERCON.menuFieldKeyField-0CABMEJERCON.menuField UpdatableaCCABMEJERCON.menuField UpdateNameges!ejercon.menu5CABMEJERCON.menuFieldDataTypeN(2).CABMEJERCON.iduFieldKeyFielda/CABMEJERCON.iduField UpdatableaACABMEJERCON.iduField UpdateNameges!ejercon.idu5CABMEJERCON.iduFieldDataTypeC(10)4CABMEJERCON.novedadesFieldKeyField-5CABMEJERCON.novedadesField UpdatableaMCABMEJERCON.novedadesField UpdateNameges!ejercon.novedades7CABMEJERCON.novedadesFieldDataTypeL3CABMEJERCON.cortelegFieldKeyField-4CABMEJERCON.cortelegField UpdatableaGCABMEJERCON.cortelegField UpdateNameejercon.corteleg:CABMEJERCON.cortelegFieldDataTypeN(10)UnVCHEQUESQXSELECT * FROM cheques WHERE Cheques.cod_cue == ( ?xcuenta ) ORDER BY Cheques.dif_valor+CVCHEQUESView UpdateType*CVCHEQUESView WhereType(CVCHEQUESView FetchMemoa*CVCHEQUESView SendUpdatesa,CVCHEQUESView UseMemoSize*CVCHEQUESView FetchSized,CVCHEQUESView MaxRecords2CVCHEQUESViewTables ges!cheques'CVCHEQUESViewPrepared-*CVCHEQUESView CompareMemoa,CVCHEQUESView FetchAsNeeded-(CVCHEQUESViewComment1CVCHEQUESViewBatchUpdateCount.CVCHEQUESViewShareConnection-/CVCHEQUES.codigoFieldKeyField-0CVCHEQUES.codigoField UpdatableaECVCHEQUES.codigoField UpdateNameges!cheques.codigo5CVCHEQUES.codigoFieldDataTypeC(6)0CVCHEQUES.comprobFieldKeyField-1CVCHEQUES.comprobField UpdatableaGCVCHEQUES.comprobField UpdateNameges!cheques.comprob7CVCHEQUES.comprobFieldDataTypeC(12)/CVCHEQUES.remitoFieldKeyField-0CVCHEQUES.remitoField UpdatableaECVCHEQUES.remitoField UpdateNameges!cheques.remito6CVCHEQUES.remitoFieldDataTypeC(12)/CVCHEQUES.numeroFieldKeyField-0CVCHEQUES.numeroField UpdatableaECVCHEQUES.numeroField UpdateNameges!cheques.numero6CVCHEQUES.numeroFieldDataTypeN(10)0CVCHEQUES.fec_recFieldKeyField-1CVCHEQUES.fec_recField UpdatableaGCVCHEQUES.fec_recField UpdateNameges!cheques.fec_rec3CVCHEQUES.fec_recFieldDataTypeD0CVCHEQUES.des_valFieldKeyField-1CVCHEQUES.des_valField UpdatableaGCVCHEQUES.des_valField UpdateNameges!cheques.des_val7CVCHEQUES.des_valFieldDataTypeC(30)2CVCHEQUES.dif_valorFieldKeyField-3CVCHEQUES.dif_valorField UpdatableaKCVCHEQUES.dif_valorField UpdateNameges!cheques.dif_valor5CVCHEQUES.dif_valorFieldDataTypeD0CVCHEQUES.caj_proFieldKeyField-1CVCHEQUES.caj_proField UpdatableaGCVCHEQUES.caj_proField UpdateNameges!cheques.caj_pro9CVCHEQUES.caj_proFieldDataTypeN(12,2)0CVCHEQUES.cod_cueFieldKeyField-1CVCHEQUES.cod_cueField UpdatableaGCVCHEQUES.cod_cueField UpdateNameges!cheques.cod_cue6CVCHEQUES.cod_cueFieldDataTypeC(9)/CVCHEQUES.nombreFieldKeyField-0CVCHEQUES.nombreField UpdatableaECVCHEQUES.nombreField UpdateNameges!cheques.nombre6CVCHEQUES.nombreFieldDataTypeC(30)1CVCHEQUES.temporalFieldKeyField-2CVCHEQUES.temporalField UpdatableaICVCHEQUES.temporalField UpdateNameges!cheques.temporal7CVCHEQUES.temporalFieldDataTypeN(3)0CVCHEQUES.cod_cenFieldKeyField-1CVCHEQUES.cod_cenField UpdatableaGCVCHEQUES.cod_cenField UpdateNameges!cheques.cod_cen6CVCHEQUES.cod_cenFieldDataTypeC(6)-C VCHEQUES.flagFieldKeyField-.C VCHEQUES.flagField UpdatableaAC VCHEQUES.flagField UpdateNameges!cheques.flag3C VCHEQUES.flagFieldDataTypeC(1)0CVCHEQUES.emisionFieldKeyField-1CVCHEQUES.emisionField UpdatableaGCVCHEQUES.emisionField UpdateNameges!cheques.emision3CVCHEQUES.emisionFieldDataTypeD.CVCHEQUES.causaFieldKeyField-/CVCHEQUES.causaField UpdatableaCCVCHEQUES.causaField UpdateNameges!cheques.causa4CVCHEQUES.causaFieldDataTypeC(1)/CVCHEQUES.subnumFieldKeyField-0CVCHEQUES.subnumField UpdatableaECVCHEQUES.subnumField UpdateNameges!cheques.subnum5CVCHEQUES.subnumFieldDataTypeN(2)0CVCHEQUES.asientoFieldKeyField-1CVCHEQUES.asientoField UpdatableaGCVCHEQUES.asientoField UpdateNameges!cheques.asiento7CVCHEQUES.asientoFieldDataTypeN(10)/CVCHEQUES.letsucFieldKeyField-0CVCHEQUES.letsucField UpdatableaECVCHEQUES.letsucField UpdateNameges!cheques.letsuc5CVCHEQUES.letsucFieldDataTypeC(3),C VCHEQUES.hoyFieldKeyField--C VCHEQUES.hoyField Updatablea?C VCHEQUES.hoyField UpdateNameges!cheques.hoy/C VCHEQUES.hoyFieldDataTypeD-C VCHEQUES.paseFieldKeyField-.C VCHEQUES.paseField UpdatableaAC VCHEQUES.paseField UpdateNameges!cheques.pase3C VCHEQUES.paseFieldDataTypeN(4)/CVCHEQUES.monextFieldKeyField-0CVCHEQUES.monextField UpdatableaECVCHEQUES.monextField UpdateNameges!cheques.monext8CVCHEQUES.monextFieldDataTypeN(14,2)/CVCHEQUES.monedaFieldKeyField-0CVCHEQUES.monedaField UpdatableaECVCHEQUES.monedaField UpdateNameges!cheques.moneda5CVCHEQUES.monedaFieldDataTypeN(1)-C VCHEQUES.ctrlFieldKeyField-.C VCHEQUES.ctrlField UpdatableaAC VCHEQUES.ctrlField UpdateNameges!cheques.ctrl3C VCHEQUES.ctrlFieldDataTypeN(2),C VCHEQUES.usrFieldKeyField--C VCHEQUES.usrField Updatablea?C VCHEQUES.usrField UpdateNameges!cheques.usr2C VCHEQUES.usrFieldDataTypeN(2)-C VCHEQUES.tipoFieldKeyField-.C VCHEQUES.tipoField UpdatableaAC VCHEQUES.tipoField UpdateNameges!cheques.tipo3C VCHEQUES.tipoFieldDataTypeC(1)+C VCHEQUES.idFieldKeyField-,C VCHEQUES.idField Updatablea=C VCHEQUES.idField UpdateNameges!cheques.id2C VCHEQUES.idFieldDataTypeC(10)0CVCHEQUES.monpaseFieldKeyField-1CVCHEQUES.monpaseField UpdatableaGCVCHEQUES.monpaseField UpdateNameges!cheques.monpase6CVCHEQUES.monpaseFieldDataTypeN(2),C VCHEQUES.iduFieldKeyFielda-C VCHEQUES.iduField Updatablea?C VCHEQUES.iduField UpdateNameges!cheques.idu3C VCHEQUES.iduFieldDataTypeC(10)/CVCHEQUES.banchqFieldKeyField-0CVCHEQUES.banchqField UpdatableaACVCHEQUES.banchqField UpdateNamecheques.banchq6CVCHEQUES.banchqFieldDataTypeN(10)/CVCHEQUES.numchqFieldKeyField-0CVCHEQUES.numchqField UpdatableaACVCHEQUES.numchqField UpdateNamecheques.numchq6CVCHEQUES.numchqFieldDataTypeN(10)/CVCHEQUES.procliFieldKeyField-0CVCHEQUES.procliField UpdatableaACVCHEQUES.procliField UpdateNamecheques.procli5CVCHEQUES.procliFieldDataTypeC(1)0CVCHEQUES.fecestiFieldKeyField-1CVCHEQUES.fecestiField UpdatableaCCVCHEQUES.fecestiField UpdateNamecheques.fecesti3CVCHEQUES.fecestiFieldDataTypeDUHW VATRIBUTOSQ?SELECT * FROM atributo WHERE Atributo.cod_ins == ( ?xcodins )-C VATRIBUTOSView UpdateType,C VATRIBUTOSView WhereType*C VATRIBUTOSView FetchMemoa,C VATRIBUTOSView SendUpdatesa.C VATRIBUTOSView UseMemoSize,C VATRIBUTOSView FetchSized.C VATRIBUTOSView MaxRecords5C VATRIBUTOSViewTables ges!atributo)C VATRIBUTOSViewPrepared-,C VATRIBUTOSView CompareMemoa.C VATRIBUTOSView FetchAsNeeded-*C VATRIBUTOSViewComment3C VATRIBUTOSViewBatchUpdateCount0C VATRIBUTOSViewShareConnection-2CVATRIBUTOS.cod_insFieldKeyField-3CVATRIBUTOS.cod_insField UpdatableaJCVATRIBUTOS.cod_insField UpdateNameges!atributo.cod_ins9CVATRIBUTOS.cod_insFieldDataTypeC(15)0CVATRIBUTOS.claveFieldKeyField-1CVATRIBUTOS.claveField UpdatableaFCVATRIBUTOS.claveField UpdateNameges!atributo.clave6CVATRIBUTOS.claveFieldDataTypeC(3).CVATRIBUTOS.autFieldKeyField-/CVATRIBUTOS.autField UpdatableaBCVATRIBUTOS.autField UpdateNameges!atributo.aut4CVATRIBUTOS.autFieldDataTypeC(1)-C VATRIBUTOS.idFieldKeyField-.C VATRIBUTOS.idField Updatablea@C VATRIBUTOS.idField UpdateNameges!atributo.id4C VATRIBUTOS.idFieldDataTypeC(18)0CVATRIBUTOS.descrFieldKeyField-1CVATRIBUTOS.descrField UpdatableaFCVATRIBUTOS.descrField UpdateNameges!atributo.descr7CVATRIBUTOS.descrFieldDataTypeC(30).CVATRIBUTOS.iduFieldKeyFielda/CVATRIBUTOS.iduField UpdatableaBCVATRIBUTOS.iduField UpdateNameges!atributo.idu5CVATRIBUTOS.iduFieldDataTypeC(10)1CVATRIBUTOS.activoFieldKeyField-2CVATRIBUTOS.activoField UpdatableaHCVATRIBUTOS.activoField UpdateNameges!atributo.activo7CVATRIBUTOS.activoFieldDataTypeC(1)3CVATRIBUTOS.grupoatrFieldKeyField-4CVATRIBUTOS.grupoatrField UpdatableaLCVATRIBUTOS.grupoatrField UpdateNameges!atributo.grupoatr9CVATRIBUTOS.grupoatrFieldDataTypeN(2)5CVATRIBUTOS.agrupacionFieldKeyField-6CVATRIBUTOS.agrupacionField UpdatableaPCVATRIBUTOS.agrupacionField UpdateNameges!atributo.agrupacion;CVATRIBUTOS.agrupacionFieldDataTypeC(3)3CVATRIBUTOS.genericoFieldKeyField-4CVATRIBUTOS.genericoField UpdatableaLCVATRIBUTOS.genericoField UpdateNameges!atributo.generico9CVATRIBUTOS.genericoFieldDataTypeN(1)0CVATRIBUTOS.ventaFieldKeyField-1CVATRIBUTOS.ventaField UpdatableaBCVATRIBUTOS.ventaField UpdateNameatributo.venta6CVATRIBUTOS.ventaFieldDataTypeC(1)4CVATRIBUTOS.promocionFieldKeyField-5CVATRIBUTOS.promocionField UpdatableaJCVATRIBUTOS.promocionField UpdateNameatributo.promocion:CVATRIBUTOS.promocionFieldDataTypeC(1)2CVATRIBUTOS.surtidoFieldKeyField-3CVATRIBUTOS.surtidoField UpdatableaFCVATRIBUTOS.surtidoField UpdateNameatributo.surtido8CVATRIBUTOS.surtidoFieldDataTypeN(1)U SVATR_GENQ=SELECT * FROM atr_gen WHERE Atr_gen.cod_ins == ( ?xcodins )+CVATR_GENView UpdateType*CVATR_GENView WhereType(CVATR_GENView FetchMemoa*CVATR_GENView SendUpdatesa,CVATR_GENView UseMemoSize*CVATR_GENView FetchSized,CVATR_GENView MaxRecords2CVATR_GENViewTables ges!atr_gen'CVATR_GENViewPrepared-*CVATR_GENView CompareMemoa,CVATR_GENView FetchAsNeeded-(CVATR_GENViewComment1CVATR_GENViewBatchUpdateCount.CVATR_GENViewShareConnection-0CVATR_GEN.cod_insFieldKeyField-1CVATR_GEN.cod_insField UpdatableaGCVATR_GEN.cod_insField UpdateNameges!atr_gen.cod_ins7CVATR_GEN.cod_insFieldDataTypeC(15).CVATR_GEN.claveFieldKeyField-/CVATR_GEN.claveField UpdatableaCCVATR_GEN.claveField UpdateNameges!atr_gen.clave4CVATR_GEN.claveFieldDataTypeC(3),C VATR_GEN.autFieldKeyField--C VATR_GEN.autField Updatablea?C VATR_GEN.autField UpdateNameges!atr_gen.aut2C VATR_GEN.autFieldDataTypeC(1)+C VATR_GEN.idFieldKeyField-,C VATR_GEN.idField Updatablea=C VATR_GEN.idField UpdateNameges!atr_gen.id2C VATR_GEN.idFieldDataTypeC(18).CVATR_GEN.descrFieldKeyField-/CVATR_GEN.descrField UpdatableaCCVATR_GEN.descrField UpdateNameges!atr_gen.descr5CVATR_GEN.descrFieldDataTypeC(30),C VATR_GEN.iduFieldKeyFielda-C VATR_GEN.iduField Updatablea?C VATR_GEN.iduField UpdateNameges!atr_gen.idu3C VATR_GEN.iduFieldDataTypeC(10)/CVATR_GEN.activoFieldKeyField-0CVATR_GEN.activoField UpdatableaECVATR_GEN.activoField UpdateNameges!atr_gen.activo5CVATR_GEN.activoFieldDataTypeC(1)1CVATR_GEN.grupoatrFieldKeyField-2CVATR_GEN.grupoatrField UpdatableaICVATR_GEN.grupoatrField UpdateNameges!atr_gen.grupoatr7CVATR_GEN.grupoatrFieldDataTypeN(2)3CVATR_GEN.agrupacionFieldKeyField-4CVATR_GEN.agrupacionField UpdatableaMCVATR_GEN.agrupacionField UpdateNameges!atr_gen.agrupacion9CVATR_GEN.agrupacionFieldDataTypeC(3)1CVATR_GEN.genericoFieldKeyField-2CVATR_GEN.genericoField UpdatableaICVATR_GEN.genericoField UpdateNameges!atr_gen.generico7CVATR_GEN.genericoFieldDataTypeN(1).CVATR_GEN.ventaFieldKeyField-/CVATR_GEN.ventaField Updatablea?CVATR_GEN.ventaField UpdateName atr_gen.venta4CVATR_GEN.ventaFieldDataTypeC(1)2CVATR_GEN.promocionFieldKeyField-3CVATR_GEN.promocionField UpdatableaGCVATR_GEN.promocionField UpdateNameatr_gen.promocion8CVATR_GEN.promocionFieldDataTypeC(1)0CVATR_GEN.surtidoFieldKeyField-1CVATR_GEN.surtidoField UpdatableaCCVATR_GEN.surtidoField UpdateNameatr_gen.surtido6CVATR_GEN.surtidoFieldDataTypeN(1)U@` ABMVATRIBUTOSQESELECT * FROM ges!vatributos WHERE Vatributos.clave == ( ?xcodigo )0C ABMVATRIBUTOSView UpdateType/C ABMVATRIBUTOSView WhereType-C ABMVATRIBUTOSView FetchMemoa/C ABMVATRIBUTOSView SendUpdatesa1C ABMVATRIBUTOSView UseMemoSize/C ABMVATRIBUTOSView FetchSized1C ABMVATRIBUTOSView MaxRecords:C ABMVATRIBUTOSViewTablesges!vatributos,C ABMVATRIBUTOSViewPrepared-/C ABMVATRIBUTOSView CompareMemoa1C ABMVATRIBUTOSView FetchAsNeeded--C ABMVATRIBUTOSViewComment6C ABMVATRIBUTOSViewBatchUpdateCount3C ABMVATRIBUTOSViewShareConnection-5CABMVATRIBUTOS.cod_insFieldKeyField-6CABMVATRIBUTOS.cod_insField UpdatableaOCABMVATRIBUTOS.cod_insField UpdateNameges!vatributos.cod_ins<CABMVATRIBUTOS.cod_insFieldDataTypeC(15)3CABMVATRIBUTOS.claveFieldKeyField-4CABMVATRIBUTOS.claveField UpdatableaKCABMVATRIBUTOS.claveField UpdateNameges!vatributos.clave9CABMVATRIBUTOS.claveFieldDataTypeC(3)1CABMVATRIBUTOS.autFieldKeyField-2CABMVATRIBUTOS.autField UpdatableaGCABMVATRIBUTOS.autField UpdateNameges!vatributos.aut7CABMVATRIBUTOS.autFieldDataTypeC(1)0CABMVATRIBUTOS.idFieldKeyField-1CABMVATRIBUTOS.idField UpdatableaECABMVATRIBUTOS.idField UpdateNameges!vatributos.id7CABMVATRIBUTOS.idFieldDataTypeC(18)3CABMVATRIBUTOS.descrFieldKeyField-4CABMVATRIBUTOS.descrField UpdatableaKCABMVATRIBUTOS.descrField UpdateNameges!vatributos.descr:CABMVATRIBUTOS.descrFieldDataTypeC(30)1CABMVATRIBUTOS.iduFieldKeyFielda2CABMVATRIBUTOS.iduField UpdatableaGCABMVATRIBUTOS.iduField UpdateNameges!vatributos.idu8CABMVATRIBUTOS.iduFieldDataTypeC(10)4CABMVATRIBUTOS.activoFieldKeyField-5CABMVATRIBUTOS.activoField UpdatableaMCABMVATRIBUTOS.activoField UpdateNameges!vatributos.activo:CABMVATRIBUTOS.activoFieldDataTypeC(1)6CABMVATRIBUTOS.grupoatrFieldKeyField-7CABMVATRIBUTOS.grupoatrField UpdatableaQCABMVATRIBUTOS.grupoatrField UpdateNameges!vatributos.grupoatr<CABMVATRIBUTOS.grupoatrFieldDataTypeN(2)8CABMVATRIBUTOS.agrupacionFieldKeyField-9CABMVATRIBUTOS.agrupacionField UpdatableaVCABMVATRIBUTOS.agrupacionField UpdateNameges!vatributos.agrupacion>CABMVATRIBUTOS.agrupacionFieldDataTypeC(3)6CABMVATRIBUTOS.genericoFieldKeyField-7CABMVATRIBUTOS.genericoField UpdatableaQCABMVATRIBUTOS.genericoField UpdateNameges!vatributos.generico<CABMVATRIBUTOS.genericoFieldDataTypeN(1)3CABMVATRIBUTOS.ventaFieldKeyField-4CABMVATRIBUTOS.ventaField UpdatableaKCABMVATRIBUTOS.ventaField UpdateNameges!vatributos.venta9CABMVATRIBUTOS.ventaFieldDataTypeC(1)7CABMVATRIBUTOS.promocionFieldKeyField-8CABMVATRIBUTOS.promocionField UpdatableaSCABMVATRIBUTOS.promocionField UpdateNameges!vatributos.promocion=CABMVATRIBUTOS.promocionFieldDataTypeC(1)5CABMVATRIBUTOS.surtidoFieldKeyField-6CABMVATRIBUTOS.surtidoField UpdatableaOCABMVATRIBUTOS.surtidoField UpdateNameges!vatributos.surtido;CABMVATRIBUTOS.surtidoFieldDataTypeN(1)UZ ABMVATR_GENQASELECT * FROM ges!vatr_gen WHERE Vatr_gen.clave == ( ?xcodigo ).C ABMVATR_GENView UpdateType-C ABMVATR_GENView WhereType+C ABMVATR_GENView FetchMemoa-C ABMVATR_GENView SendUpdatesa/C ABMVATR_GENView UseMemoSize-C ABMVATR_GENView FetchSized/C ABMVATR_GENView MaxRecords6C ABMVATR_GENViewTables ges!vatr_gen*C ABMVATR_GENViewPrepared--C ABMVATR_GENView CompareMemoa/C ABMVATR_GENView FetchAsNeeded-+C ABMVATR_GENViewComment4C ABMVATR_GENViewBatchUpdateCount1C ABMVATR_GENViewShareConnection-3CABMVATR_GEN.cod_insFieldKeyField-4CABMVATR_GEN.cod_insField UpdatableaKCABMVATR_GEN.cod_insField UpdateNameges!vatr_gen.cod_ins:CABMVATR_GEN.cod_insFieldDataTypeC(15)1CABMVATR_GEN.claveFieldKeyField-2CABMVATR_GEN.claveField UpdatableaGCABMVATR_GEN.claveField UpdateNameges!vatr_gen.clave7CABMVATR_GEN.claveFieldDataTypeC(3)/CABMVATR_GEN.autFieldKeyField-0CABMVATR_GEN.autField UpdatableaCCABMVATR_GEN.autField UpdateNameges!vatr_gen.aut5CABMVATR_GEN.autFieldDataTypeC(1).CABMVATR_GEN.idFieldKeyField-/CABMVATR_GEN.idField UpdatableaACABMVATR_GEN.idField UpdateNameges!vatr_gen.id5CABMVATR_GEN.idFieldDataTypeC(18)1CABMVATR_GEN.descrFieldKeyField-2CABMVATR_GEN.descrField UpdatableaGCABMVATR_GEN.descrField UpdateNameges!vatr_gen.descr8CABMVATR_GEN.descrFieldDataTypeC(30)/CABMVATR_GEN.iduFieldKeyFielda0CABMVATR_GEN.iduField UpdatableaCCABMVATR_GEN.iduField UpdateNameges!vatr_gen.idu6CABMVATR_GEN.iduFieldDataTypeC(10)2CABMVATR_GEN.activoFieldKeyField-3CABMVATR_GEN.activoField UpdatableaICABMVATR_GEN.activoField UpdateNameges!vatr_gen.activo8CABMVATR_GEN.activoFieldDataTypeC(1)4CABMVATR_GEN.grupoatrFieldKeyField-5CABMVATR_GEN.grupoatrField UpdatableaMCABMVATR_GEN.grupoatrField UpdateNameges!vatr_gen.grupoatr:CABMVATR_GEN.grupoatrFieldDataTypeN(2)6CABMVATR_GEN.agrupacionFieldKeyField-7CABMVATR_GEN.agrupacionField UpdatableaQCABMVATR_GEN.agrupacionField UpdateNameges!vatr_gen.agrupacion<CABMVATR_GEN.agrupacionFieldDataTypeC(3)4CABMVATR_GEN.genericoFieldKeyField-5CABMVATR_GEN.genericoField UpdatableaMCABMVATR_GEN.genericoField UpdateNameges!vatr_gen.generico:CABMVATR_GEN.genericoFieldDataTypeN(1)1CABMVATR_GEN.ventaFieldKeyField-2CABMVATR_GEN.ventaField UpdatableaGCABMVATR_GEN.ventaField UpdateNameges!vatr_gen.venta7CABMVATR_GEN.ventaFieldDataTypeC(1)5CABMVATR_GEN.promocionFieldKeyField-6CABMVATR_GEN.promocionField UpdatableaOCABMVATR_GEN.promocionField UpdateNameges!vatr_gen.promocion;CABMVATR_GEN.promocionFieldDataTypeC(1)3CABMVATR_GEN.surtidoFieldKeyField-4CABMVATR_GEN.surtidoField UpdatableaKCABMVATR_GEN.surtidoField UpdateNameges!vatr_gen.surtido9CABMVATR_GEN.surtidoFieldDataTypeN(1)U{X ABMCLIENTESQ?SELECT * FROM clientes WHERE Clientes.cod_cli == ( ?xcodigo ).C ABMCLIENTESView UpdateType-C ABMCLIENTESView WhereType+C ABMCLIENTESView FetchMemoa-C ABMCLIENTESView SendUpdatesa/C ABMCLIENTESView UseMemoSize-C ABMCLIENTESView FetchSized/C ABMCLIENTESView MaxRecords6C ABMCLIENTESViewTables ges!clientes*C ABMCLIENTESViewPrepared--C ABMCLIENTESView CompareMemoa/C ABMCLIENTESView FetchAsNeeded-+C ABMCLIENTESViewComment4C ABMCLIENTESViewBatchUpdateCount1C ABMCLIENTESViewShareConnection-3CABMCLIENTES.cod_cliFieldKeyField-4CABMCLIENTES.cod_cliField UpdatableaKCABMCLIENTES.cod_cliField UpdateNameges!clientes.cod_cli9CABMCLIENTES.cod_cliFieldDataTypeC(6)3CABMCLIENTES.cod_cenFieldKeyField-4CABMCLIENTES.cod_cenField UpdatableaKCABMCLIENTES.cod_cenField UpdateNameges!clientes.cod_cen9CABMCLIENTES.cod_cenFieldDataTypeC(6)2CABMCLIENTES.nombreFieldKeyField-3CABMCLIENTES.nombreField UpdatableaICABMCLIENTES.nombreField UpdateNameges!clientes.nombre9CABMCLIENTES.nombreFieldDataTypeC(40)/CABMCLIENTES.sucFieldKeyField-0CABMCLIENTES.sucField UpdatableaCCABMCLIENTES.sucField UpdateNameges!clientes.suc5CABMCLIENTES.sucFieldDataTypeC(1)5CABMCLIENTES.domicilioFieldKeyField-6CABMCLIENTES.domicilioField UpdatableaOCABMCLIENTES.domicilioField UpdateNameges!clientes.domicilio<CABMCLIENTES.domicilioFieldDataTypeC(40)0CABMCLIENTES.dom2FieldKeyField-1CABMCLIENTES.dom2Field UpdatableaECABMCLIENTES.dom2Field UpdateNameges!clientes.dom27CABMCLIENTES.dom2FieldDataTypeC(40)2CABMCLIENTES.ciudadFieldKeyField-3CABMCLIENTES.ciudadField UpdatableaICABMCLIENTES.ciudadField UpdateNameges!clientes.ciudad9CABMCLIENTES.ciudadFieldDataTypeC(30)0CABMCLIENTES.ciu2FieldKeyField-1CABMCLIENTES.ciu2Field UpdatableaECABMCLIENTES.ciu2Field UpdateNameges!clientes.ciu27CABMCLIENTES.ciu2FieldDataTypeC(30)5CABMCLIENTES.provinciaFieldKeyField-6CABMCLIENTES.provinciaField UpdatableaOCABMCLIENTES.provinciaField UpdateNameges!clientes.provincia;CABMCLIENTES.provinciaFieldDataTypeC(1)0CABMCLIENTES.pro2FieldKeyField-1CABMCLIENTES.pro2Field UpdatableaECABMCLIENTES.pro2Field UpdateNameges!clientes.pro26CABMCLIENTES.pro2FieldDataTypeC(1)1CABMCLIENTES.phonoFieldKeyField-2CABMCLIENTES.phonoField UpdatableaGCABMCLIENTES.phonoField UpdateNameges!clientes.phono8CABMCLIENTES.phonoFieldDataTypeC(30)0CABMCLIENTES.pho2FieldKeyField-1CABMCLIENTES.pho2Field UpdatableaECABMCLIENTES.pho2Field UpdateNameges!clientes.pho27CABMCLIENTES.pho2FieldDataTypeC(30)3CABMCLIENTES.cod_zipFieldKeyField-4CABMCLIENTES.cod_zipField UpdatableaKCABMCLIENTES.cod_zipField UpdateNameges!clientes.cod_zip:CABMCLIENTES.cod_zipFieldDataTypeC(12)0CABMCLIENTES.zip2FieldKeyField-1CABMCLIENTES.zip2Field UpdatableaECABMCLIENTES.zip2Field UpdateNameges!clientes.zip27CABMCLIENTES.zip2FieldDataTypeC(12)6CABMCLIENTES.inscripcioFieldKeyField-7CABMCLIENTES.inscripcioField UpdatableaQCABMCLIENTES.inscripcioField UpdateNameges!clientes.inscripcio=CABMCLIENTES.inscripcioFieldDataTypeC(13)3CABMCLIENTES.creditoFieldKeyField-4CABMCLIENTES.creditoField UpdatableaKCABMCLIENTES.creditoField UpdateNameges!clientes.credito<CABMCLIENTES.creditoFieldDataTypeN(12,2)3CABMCLIENTES.des_comFieldKeyField-4CABMCLIENTES.des_comField UpdatableaKCABMCLIENTES.des_comField UpdateNameges!clientes.des_com;CABMCLIENTES.des_comFieldDataTypeN(5,2)4CABMCLIENTES.des_com2FieldKeyField-5CABMCLIENTES.des_com2Field UpdatableaMCABMCLIENTES.des_com2Field UpdateNameges!clientes.des_com2<CABMCLIENTES.des_com2FieldDataTypeN(5,2)3CABMCLIENTES.iva_venFieldKeyField-4CABMCLIENTES.iva_venField UpdatableaKCABMCLIENTES.iva_venField UpdateNameges!clientes.iva_ven;CABMCLIENTES.iva_venFieldDataTypeN(5,2)4CABMCLIENTES.cred_venFieldKeyField-5CABMCLIENTES.cred_venField UpdatableaMCABMCLIENTES.cred_venField UpdateNameges!clientes.cred_ven=CABMCLIENTES.cred_venFieldDataTypeN(12,2)4CABMCLIENTES.cred_ussFieldKeyField-5CABMCLIENTES.cred_ussField UpdatableaMCABMCLIENTES.cred_ussField UpdateNameges!clientes.cred_uss=CABMCLIENTES.cred_ussFieldDataTypeN(12,2)4CABMCLIENTES.ajus_ussFieldKeyField-5CABMCLIENTES.ajus_ussField UpdatableaMCABMCLIENTES.ajus_ussField UpdateNameges!clientes.ajus_uss=CABMCLIENTES.ajus_ussFieldDataTypeN(12,2)3CABMCLIENTES.cod_cueFieldKeyField-4CABMCLIENTES.cod_cueField UpdatableaKCABMCLIENTES.cod_cueField UpdateNameges!clientes.cod_cue9CABMCLIENTES.cod_cueFieldDataTypeC(9)3CABMCLIENTES.cue_deuFieldKeyField-4CABMCLIENTES.cue_deuField UpdatableaKCABMCLIENTES.cue_deuField UpdateNameges!clientes.cue_deu9CABMCLIENTES.cue_deuFieldDataTypeC(9)/CABMCLIENTES.ivaFieldKeyField-0CABMCLIENTES.ivaField UpdatableaCCABMCLIENTES.ivaField UpdateNameges!clientes.iva5CABMCLIENTES.ivaFieldDataTypeC(1)1CABMCLIENTES.iva26FieldKeyField-2CABMCLIENTES.iva26Field UpdatableaGCABMCLIENTES.iva26Field UpdateNameges!clientes.iva267CABMCLIENTES.iva26FieldDataTypeC(1)3CABMCLIENTES.consfinFieldKeyField-4CABMCLIENTES.consfinField UpdatableaKCABMCLIENTES.consfinField UpdateNameges!clientes.consfin9CABMCLIENTES.consfinFieldDataTypeC(1)4CABMCLIENTES.vendedorFieldKeyField-5CABMCLIENTES.vendedorField UpdatableaMCABMCLIENTES.vendedorField UpdateNameges!clientes.vendedor:CABMCLIENTES.vendedorFieldDataTypeC(8)4CABMCLIENTES.cobradorFieldKeyField-5CABMCLIENTES.cobradorField UpdatableaMCABMCLIENTES.cobradorField UpdateNameges!clientes.cobrador:CABMCLIENTES.cobradorFieldDataTypeC(8)5CABMCLIENTES.gananciasFieldKeyField-6CABMCLIENTES.gananciasField UpdatableaOCABMCLIENTES.gananciasField UpdateNameges!clientes.ganancias<CABMCLIENTES.gananciasFieldDataTypeC(20)3CABMCLIENTES.cod_fleFieldKeyField-4CABMCLIENTES.cod_fleField UpdatableaKCABMCLIENTES.cod_fleField UpdateNameges!clientes.cod_fle9CABMCLIENTES.cod_fleFieldDataTypeC(6)4CABMCLIENTES.comi_venFieldKeyField-5CABMCLIENTES.comi_venField UpdatableaMCABMCLIENTES.comi_venField UpdateNameges!clientes.comi_ven<CABMCLIENTES.comi_venFieldDataTypeN(6,2)4CABMCLIENTES.comi_cobFieldKeyField-5CABMCLIENTES.comi_cobField UpdatableaMCABMCLIENTES.comi_cobField UpdateNameges!clientes.comi_cob<CABMCLIENTES.comi_cobFieldDataTypeN(6,2)0CABMCLIENTES.zonaFieldKeyField-1CABMCLIENTES.zonaField UpdatableaECABMCLIENTES.zonaField UpdateNameges!clientes.zona6CABMCLIENTES.zonaFieldDataTypeN(4)0CABMCLIENTES.fpagFieldKeyField-1CABMCLIENTES.fpagField UpdatableaECABMCLIENTES.fpagField UpdateNameges!clientes.fpag6CABMCLIENTES.fpagFieldDataTypeN(2)/CABMCLIENTES.catFieldKeyField-0CABMCLIENTES.catField UpdatableaCCABMCLIENTES.catField UpdateNameges!clientes.cat5CABMCLIENTES.catFieldDataTypeN(2)5CABMCLIENTES.contacvenFieldKeyField-6CABMCLIENTES.contacvenField UpdatableaOCABMCLIENTES.contacvenField UpdateNameges!clientes.contacven<CABMCLIENTES.contacvenFieldDataTypeC(35)5CABMCLIENTES.contaccobFieldKeyField-6CABMCLIENTES.contaccobField UpdatableaOCABMCLIENTES.contaccobField UpdateNameges!clientes.contaccob<CABMCLIENTES.contaccobFieldDataTypeC(35)2CABMCLIENTES.ivacatFieldKeyField-3CABMCLIENTES.ivacatField UpdatableaICABMCLIENTES.ivacatField UpdateNameges!clientes.ivacat8CABMCLIENTES.ivacatFieldDataTypeN(1)3CABMCLIENTES.horarioFieldKeyField-4CABMCLIENTES.horarioField UpdatableaKCABMCLIENTES.horarioField UpdateNameges!clientes.horario:CABMCLIENTES.horarioFieldDataTypeC(20)1CABMCLIENTES.listaFieldKeyField-2CABMCLIENTES.listaField UpdatableaGCABMCLIENTES.listaField UpdateNameges!clientes.lista7CABMCLIENTES.listaFieldDataTypeN(2)2CABMCLIENTES.numcomFieldKeyField-3CABMCLIENTES.numcomField UpdatableaICABMCLIENTES.numcomField UpdateNameges!clientes.numcom8CABMCLIENTES.numcomFieldDataTypeN(1)2CABMCLIENTES.numremFieldKeyField-3CABMCLIENTES.numremField UpdatableaICABMCLIENTES.numremField UpdateNameges!clientes.numrem8CABMCLIENTES.numremFieldDataTypeN(1)1CABMCLIENTES.numndFieldKeyField-2CABMCLIENTES.numndField UpdatableaGCABMCLIENTES.numndField UpdateNameges!clientes.numnd7CABMCLIENTES.numndFieldDataTypeN(1)1CABMCLIENTES.numncFieldKeyField-2CABMCLIENTES.numncField UpdatableaGCABMCLIENTES.numncField UpdateNameges!clientes.numnc7CABMCLIENTES.numncFieldDataTypeN(1)6CABMCLIENTES.comentarioFieldKeyField-7CABMCLIENTES.comentarioField UpdatableaQCABMCLIENTES.comentarioField UpdateNameges!clientes.comentario9CABMCLIENTES.comentarioFieldDataTypeM2CABMCLIENTES.fecultFieldKeyField-3CABMCLIENTES.fecultField UpdatableaICABMCLIENTES.fecultField UpdateNameges!clientes.fecult5CABMCLIENTES.fecultFieldDataTypeD3CABMCLIENTES.tarjetaFieldKeyField-4CABMCLIENTES.tarjetaField UpdatableaKCABMCLIENTES.tarjetaField UpdateNameges!clientes.tarjeta9CABMCLIENTES.tarjetaFieldDataTypeC(1)2CABMCLIENTES.monedaFieldKeyField-3CABMCLIENTES.monedaField UpdatableaICABMCLIENTES.monedaField UpdateNameges!clientes.moneda8CABMCLIENTES.monedaFieldDataTypeN(1)0CABMCLIENTES.mvarFieldKeyField-1CABMCLIENTES.mvarField UpdatableaECABMCLIENTES.mvarField UpdateNameges!clientes.mvar6CABMCLIENTES.mvarFieldDataTypeC(1)5CABMCLIENTES.proveedorFieldKeyField-6CABMCLIENTES.proveedorField UpdatableaOCABMCLIENTES.proveedorField UpdateNameges!clientes.proveedor<CABMCLIENTES.proveedorFieldDataTypeC(10).CABMCLIENTES.a1FieldKeyField-/CABMCLIENTES.a1Field UpdatableaACABMCLIENTES.a1Field UpdateNameges!clientes.a14CABMCLIENTES.a1FieldDataTypeN(2).CABMCLIENTES.a2FieldKeyField-/CABMCLIENTES.a2Field UpdatableaACABMCLIENTES.a2Field UpdateNameges!clientes.a24CABMCLIENTES.a2FieldDataTypeN(2).CABMCLIENTES.a3FieldKeyField-/CABMCLIENTES.a3Field UpdatableaACABMCLIENTES.a3Field UpdateNameges!clientes.a34CABMCLIENTES.a3FieldDataTypeN(2).CABMCLIENTES.a4FieldKeyField-/CABMCLIENTES.a4Field UpdatableaACABMCLIENTES.a4Field UpdateNameges!clientes.a44CABMCLIENTES.a4FieldDataTypeN(2)0CABMCLIENTES.diasFieldKeyField-1CABMCLIENTES.diasField UpdatableaECABMCLIENTES.diasField UpdateNameges!clientes.dias6CABMCLIENTES.diasFieldDataTypeN(3)4CABMCLIENTES.condcredFieldKeyField-5CABMCLIENTES.condcredField UpdatableaMCABMCLIENTES.condcredField UpdateNameges!clientes.condcred:CABMCLIENTES.condcredFieldDataTypeN(1)0CABMCLIENTES.paisFieldKeyField-1CABMCLIENTES.paisField UpdatableaECABMCLIENTES.paisField UpdateNameges!clientes.pais6CABMCLIENTES.paisFieldDataTypeN(4)3CABMCLIENTES.distribFieldKeyField-4CABMCLIENTES.distribField UpdatableaKCABMCLIENTES.distribField UpdateNameges!clientes.distrib9CABMCLIENTES.distribFieldDataTypeC(8)4CABMCLIENTES.comi_disFieldKeyField-5CABMCLIENTES.comi_disField UpdatableaMCABMCLIENTES.comi_disField UpdateNameges!clientes.comi_dis<CABMCLIENTES.comi_disFieldDataTypeN(6,2)4CABMCLIENTES.des_com3FieldKeyField-5CABMCLIENTES.des_com3Field UpdatableaMCABMCLIENTES.des_com3Field UpdateNameges!clientes.des_com3<CABMCLIENTES.des_com3FieldDataTypeN(6,2)4CABMCLIENTES.des_com4FieldKeyField-5CABMCLIENTES.des_com4Field UpdatableaMCABMCLIENTES.des_com4Field UpdateNameges!clientes.des_com4<CABMCLIENTES.des_com4FieldDataTypeN(6,2)4CABMCLIENTES.des_com5FieldKeyField-5CABMCLIENTES.des_com5Field UpdatableaMCABMCLIENTES.des_com5Field UpdateNameges!clientes.des_com5<CABMCLIENTES.des_com5FieldDataTypeN(6,2)4CABMCLIENTES.des_esp1FieldKeyField-5CABMCLIENTES.des_esp1Field UpdatableaMCABMCLIENTES.des_esp1Field UpdateNameges!clientes.des_esp1<CABMCLIENTES.des_esp1FieldDataTypeN(6,2)4CABMCLIENTES.des_esp2FieldKeyField-5CABMCLIENTES.des_esp2Field UpdatableaMCABMCLIENTES.des_esp2Field UpdateNameges!clientes.des_esp2<CABMCLIENTES.des_esp2FieldDataTypeN(6,2)4CABMCLIENTES.des_esp3FieldKeyField-5CABMCLIENTES.des_esp3Field UpdatableaMCABMCLIENTES.des_esp3Field UpdateNameges!clientes.des_esp3<CABMCLIENTES.des_esp3FieldDataTypeN(6,2)2CABMCLIENTES.age672FieldKeyField-3CABMCLIENTES.age672Field UpdatableaICABMCLIENTES.age672Field UpdateNameges!clientes.age6728CABMCLIENTES.age672FieldDataTypeC(1).CABMCLIENTES.ibFieldKeyField-/CABMCLIENTES.ibField UpdatableaACABMCLIENTES.ibField UpdateNameges!clientes.ib5CABMCLIENTES.ibFieldDataTypeC(15)4CABMCLIENTES.depositoFieldKeyField-5CABMCLIENTES.depositoField UpdatableaMCABMCLIENTES.depositoField UpdateNameges!clientes.deposito:CABMCLIENTES.depositoFieldDataTypeC(8)3CABMCLIENTES.palletsFieldKeyField-4CABMCLIENTES.palletsField UpdatableaKCABMCLIENTES.palletsField UpdateNameges!clientes.pallets9CABMCLIENTES.palletsFieldDataTypeC(1)1CABMCLIENTES.abrevFieldKeyField-2CABMCLIENTES.abrevField UpdatableaGCABMCLIENTES.abrevField UpdateNameges!clientes.abrev7CABMCLIENTES.abrevFieldDataTypeC(9)5CABMCLIENTES.comixncfmFieldKeyField-6CABMCLIENTES.comixncfmField UpdatableaOCABMCLIENTES.comixncfmField UpdateNameges!clientes.comixncfm=CABMCLIENTES.comixncfmFieldDataTypeN(6,2)/CABMCLIENTES.faxFieldKeyField-0CABMCLIENTES.faxField UpdatableaCCABMCLIENTES.faxField UpdateNameges!clientes.fax6CABMCLIENTES.faxFieldDataTypeC(20)0CABMCLIENTES.fax2FieldKeyField-1CABMCLIENTES.fax2Field UpdatableaECABMCLIENTES.fax2Field UpdateNameges!clientes.fax27CABMCLIENTES.fax2FieldDataTypeC(20)1CABMCLIENTES.emailFieldKeyField-2CABMCLIENTES.emailField UpdatableaGCABMCLIENTES.emailField UpdateNameges!clientes.email8CABMCLIENTES.emailFieldDataTypeC(50)2CABMCLIENTES.email2FieldKeyField-3CABMCLIENTES.email2Field UpdatableaICABMCLIENTES.email2Field UpdateNameges!clientes.email29CABMCLIENTES.email2FieldDataTypeC(50)/CABMCLIENTES.webFieldKeyField-0CABMCLIENTES.webField UpdatableaCCABMCLIENTES.webField UpdateNameges!clientes.web6CABMCLIENTES.webFieldDataTypeC(50)/CABMCLIENTES.iduFieldKeyFielda0CABMCLIENTES.iduField UpdatableaCCABMCLIENTES.iduField UpdateNameges!clientes.idu6CABMCLIENTES.iduFieldDataTypeC(10)2CABMCLIENTES.codaltFieldKeyField-3CABMCLIENTES.codaltField UpdatableaICABMCLIENTES.codaltField UpdateNameges!clientes.codalt9CABMCLIENTES.codaltFieldDataTypeC(10)4CABMCLIENTES.des_nac1FieldKeyField-5CABMCLIENTES.des_nac1Field UpdatableaMCABMCLIENTES.des_nac1Field UpdateNameges!clientes.des_nac1<CABMCLIENTES.des_nac1FieldDataTypeN(6,2)4CABMCLIENTES.des_nac2FieldKeyField-5CABMCLIENTES.des_nac2Field UpdatableaMCABMCLIENTES.des_nac2Field UpdateNameges!clientes.des_nac2<CABMCLIENTES.des_nac2FieldDataTypeN(6,2)2CABMCLIENTES.domentFieldKeyField-3CABMCLIENTES.domentField UpdatableaICABMCLIENTES.domentField UpdateNameges!clientes.doment9CABMCLIENTES.domentFieldDataTypeC(40)2CABMCLIENTES.ciuentFieldKeyField-3CABMCLIENTES.ciuentField UpdatableaICABMCLIENTES.ciuentField UpdateNameges!clientes.ciuent9CABMCLIENTES.ciuentFieldDataTypeC(30)2CABMCLIENTES.proentFieldKeyField-3CABMCLIENTES.proentField UpdatableaICABMCLIENTES.proentField UpdateNameges!clientes.proent8CABMCLIENTES.proentFieldDataTypeC(1)2CABMCLIENTES.phoentFieldKeyField-3CABMCLIENTES.phoentField UpdatableaICABMCLIENTES.phoentField UpdateNameges!clientes.phoent9CABMCLIENTES.phoentFieldDataTypeC(30)2CABMCLIENTES.zipentFieldKeyField-3CABMCLIENTES.zipentField UpdatableaICABMCLIENTES.zipentField UpdateNameges!clientes.zipent9CABMCLIENTES.zipentFieldDataTypeC(12)4CABMCLIENTES.emailentFieldKeyField-5CABMCLIENTES.emailentField UpdatableaMCABMCLIENTES.emailentField UpdateNameges!clientes.emailent;CABMCLIENTES.emailentFieldDataTypeC(50)2CABMCLIENTES.faxentFieldKeyField-3CABMCLIENTES.faxentField UpdatableaICABMCLIENTES.faxentField UpdateNameges!clientes.faxent9CABMCLIENTES.faxentFieldDataTypeC(20)2CABMCLIENTES.horentFieldKeyField-3CABMCLIENTES.horentField UpdatableaICABMCLIENTES.horentField UpdateNameges!clientes.horent9CABMCLIENTES.horentFieldDataTypeC(20)0CABMCLIENTES.hor2FieldKeyField-1CABMCLIENTES.hor2Field UpdatableaECABMCLIENTES.hor2Field UpdateNameges!clientes.hor27CABMCLIENTES.hor2FieldDataTypeC(20)5CABMCLIENTES.unegociosFieldKeyField-6CABMCLIENTES.unegociosField UpdatableaOCABMCLIENTES.unegociosField UpdateNameges!clientes.unegocios;CABMCLIENTES.unegociosFieldDataTypeC(6)4CABMCLIENTES.fantasiaFieldKeyField-5CABMCLIENTES.fantasiaField UpdatableaMCABMCLIENTES.fantasiaField UpdateNameges!clientes.fantasia;CABMCLIENTES.fantasiaFieldDataTypeC(30)1CABMCLIENTES.dtoncFieldKeyField-2CABMCLIENTES.dtoncField UpdatableaGCABMCLIENTES.dtoncField UpdateNameges!clientes.dtonc9CABMCLIENTES.dtoncFieldDataTypeN(6,2)/CABMCLIENTES.rutFieldKeyField-0CABMCLIENTES.rutField UpdatableaCCABMCLIENTES.rutField UpdateNameges!clientes.rut6CABMCLIENTES.rutFieldDataTypeC(40)1CABMCLIENTES.ibperFieldKeyField-2CABMCLIENTES.ibperField UpdatableaGCABMCLIENTES.ibperField UpdateNameges!clientes.ibper9CABMCLIENTES.ibperFieldDataTypeN(6,2)4CABMCLIENTES.pro_linkFieldKeyField-5CABMCLIENTES.pro_linkField UpdatableaMCABMCLIENTES.pro_linkField UpdateNameges!clientes.pro_link:CABMCLIENTES.pro_linkFieldDataTypeC(6)3CABMCLIENTES.valoresFieldKeyField-4CABMCLIENTES.valoresField UpdatableaKCABMCLIENTES.valoresField UpdateNameges!clientes.valores9CABMCLIENTES.valoresFieldDataTypeN(3)1CABMCLIENTES.plazoFieldKeyField-2CABMCLIENTES.plazoField UpdatableaGCABMCLIENTES.plazoField UpdateNameges!clientes.plazo7CABMCLIENTES.plazoFieldDataTypeN(3)5CABMCLIENTES.cr_atrasoFieldKeyField-6CABMCLIENTES.cr_atrasoField UpdatableaOCABMCLIENTES.cr_atrasoField UpdateNameges!clientes.cr_atraso;CABMCLIENTES.cr_atrasoFieldDataTypeN(4)1CABMCLIENTES.pais2FieldKeyField-2CABMCLIENTES.pais2Field UpdatableaGCABMCLIENTES.pais2Field UpdateNameges!clientes.pais27CABMCLIENTES.pais2FieldDataTypeN(4)3CABMCLIENTES.paisentFieldKeyField-4CABMCLIENTES.paisentField UpdatableaKCABMCLIENTES.paisentField UpdateNameges!clientes.paisent9CABMCLIENTES.paisentFieldDataTypeN(4)2CABMCLIENTES.docrecFieldKeyField-3CABMCLIENTES.docrecField UpdatableaICABMCLIENTES.docrecField UpdateNameges!clientes.docrec5CABMCLIENTES.docrecFieldDataTypeL4CABMCLIENTES.ve_califFieldKeyField-5CABMCLIENTES.ve_califField UpdatableaMCABMCLIENTES.ve_califField UpdateNameges!clientes.ve_calif:CABMCLIENTES.ve_califFieldDataTypeN(1)6CABMCLIENTES.ve_min_pedFieldKeyField-7CABMCLIENTES.ve_min_pedField UpdatableaQCABMCLIENTES.ve_min_pedField UpdateNameges!clientes.ve_min_ped?CABMCLIENTES.ve_min_pedFieldDataTypeN(14,2)3CABMCLIENTES.ve_despFieldKeyField-4CABMCLIENTES.ve_despField UpdatableaKCABMCLIENTES.ve_despField UpdateNameges!clientes.ve_desp9CABMCLIENTES.ve_despFieldDataTypeN(1)5CABMCLIENTES.periibbexFieldKeyField-6CABMCLIENTES.periibbexField UpdatableaOCABMCLIENTES.periibbexField UpdateNameges!clientes.periibbex;CABMCLIENTES.periibbexFieldDataTypeC(1)0CABMCLIENTES.pag1FieldKeyField-1CABMCLIENTES.pag1Field UpdatableaECABMCLIENTES.pag1Field UpdateNameges!clientes.pag13CABMCLIENTES.pag1FieldDataTypeL0CABMCLIENTES.pag2FieldKeyField-1CABMCLIENTES.pag2Field UpdatableaECABMCLIENTES.pag2Field UpdateNameges!clientes.pag23CABMCLIENTES.pag2FieldDataTypeL0CABMCLIENTES.pag3FieldKeyField-1CABMCLIENTES.pag3Field UpdatableaECABMCLIENTES.pag3Field UpdateNameges!clientes.pag33CABMCLIENTES.pag3FieldDataTypeL0CABMCLIENTES.pag4FieldKeyField-1CABMCLIENTES.pag4Field UpdatableaECABMCLIENTES.pag4Field UpdateNameges!clientes.pag43CABMCLIENTES.pag4FieldDataTypeL0CABMCLIENTES.pag5FieldKeyField-1CABMCLIENTES.pag5Field UpdatableaECABMCLIENTES.pag5Field UpdateNameges!clientes.pag53CABMCLIENTES.pag5FieldDataTypeL0CABMCLIENTES.paghFieldKeyField-1CABMCLIENTES.paghField UpdatableaECABMCLIENTES.paghField UpdateNameges!clientes.pagh7CABMCLIENTES.paghFieldDataTypeC(30)5CABMCLIENTES.usa_plantFieldKeyField-6CABMCLIENTES.usa_plantField UpdatableaOCABMCLIENTES.usa_plantField UpdateNameges!clientes.usa_plant8CABMCLIENTES.usa_plantFieldDataTypeL2CABMCLIENTES.domaltFieldKeyField-3CABMCLIENTES.domaltField UpdatableaICABMCLIENTES.domaltField UpdateNameges!clientes.domalt5CABMCLIENTES.domaltFieldDataTypeM4CABMCLIENTES.vencconsFieldKeyField-5CABMCLIENTES.vencconsField UpdatableaMCABMCLIENTES.vencconsField UpdateNameges!clientes.venccons7CABMCLIENTES.vencconsFieldDataTypeD2CABMCLIENTES.ibperdFieldKeyField-3CABMCLIENTES.ibperdField UpdatableaICABMCLIENTES.ibperdField UpdateNameges!clientes.ibperd5CABMCLIENTES.ibperdFieldDataTypeD2CABMCLIENTES.ibperhFieldKeyField-3CABMCLIENTES.ibperhField UpdatableaICABMCLIENTES.ibperhField UpdateNameges!clientes.ibperh5CABMCLIENTES.ibperhFieldDataTypeD3CABMCLIENTES.esp_obsFieldKeyField-4CABMCLIENTES.esp_obsField UpdatableaGCABMCLIENTES.esp_obsField UpdateNameclientes.esp_obs9CABMCLIENTES.esp_obsFieldDataTypeN(1)2CABMCLIENTES.iibbcmFieldKeyField-3CABMCLIENTES.iibbcmField UpdatableaICABMCLIENTES.iibbcmField UpdateNameges!clientes.iibbcm8CABMCLIENTES.iibbcmFieldDataTypeN(1)2CABMCLIENTES.demoraFieldKeyField-3CABMCLIENTES.demoraField UpdatableaICABMCLIENTES.demoraField UpdateNameges!clientes.demora8CABMCLIENTES.demoraFieldDataTypeN(3)0CABMCLIENTES.altaFieldKeyField-1CABMCLIENTES.altaField UpdatableaECABMCLIENTES.altaField UpdateNameges!clientes.alta3CABMCLIENTES.altaFieldDataTypeD4CABMCLIENTES.fceemailFieldKeyField-5CABMCLIENTES.fceemailField UpdatableaICABMCLIENTES.fceemailField UpdateNameclientes.fceemail;CABMCLIENTES.fceemailFieldDataTypeC(50)3CABMCLIENTES.fcedestFieldKeyField-4CABMCLIENTES.fcedestField UpdatableaGCABMCLIENTES.fcedestField UpdateNameclientes.fcedest:CABMCLIENTES.fcedestFieldDataTypeC(40)/CABMCLIENTES.empFieldKeyField-0CABMCLIENTES.empField Updatablea?CABMCLIENTES.empField UpdateName clientes.emp6CABMCLIENTES.empFieldDataTypeN(10)2CABMCLIENTES.deptrfFieldKeyField-3CABMCLIENTES.deptrfField UpdatableaECABMCLIENTES.deptrfField UpdateNameclientes.deptrf8CABMCLIENTES.deptrfFieldDataTypeC(8)3CABMCLIENTES.catcredFieldKeyField-4CABMCLIENTES.catcredField UpdatableaGCABMCLIENTES.catcredField UpdateNameclientes.catcred9CABMCLIENTES.catcredFieldDataTypeN(2)4CABMCLIENTES.entcoordFieldKeyField-5CABMCLIENTES.entcoordField UpdatableaICABMCLIENTES.entcoordField UpdateNameclientes.entcoord;CABMCLIENTES.entcoordFieldDataTypeC(30)2CABMCLIENTES.cesdspFieldKeyField-3CABMCLIENTES.cesdspField UpdatableaECABMCLIENTES.cesdspField UpdateNameclientes.cesdsp8CABMCLIENTES.cesdspFieldDataTypeC(1)3CABMCLIENTES.tipodocFieldKeyField-4CABMCLIENTES.tipodocField UpdatableaGCABMCLIENTES.tipodocField UpdateNameclientes.tipodoc9CABMCLIENTES.tipodocFieldDataTypeN(2)1CABMCLIENTES.no_ccFieldKeyField-2CABMCLIENTES.no_ccField UpdatableaCCABMCLIENTES.no_ccField UpdateNameclientes.no_cc7CABMCLIENTES.no_ccFieldDataTypeC(1).CABMCLIENTES.pvFieldKeyField-/CABMCLIENTES.pvField Updatablea=CABMCLIENTES.pvField UpdateName clientes.pv4CABMCLIENTES.pvFieldDataTypeN(2)2CABMCLIENTES.geodirFieldKeyField-3CABMCLIENTES.geodirField UpdatableaECABMCLIENTES.geodirField UpdateNameclientes.geodir:CABMCLIENTES.geodirFieldDataTypeC(120)3CABMCLIENTES.geodir2FieldKeyField-4CABMCLIENTES.geodir2Field UpdatableaGCABMCLIENTES.geodir2Field UpdateNameclientes.geodir2;CABMCLIENTES.geodir2FieldDataTypeC(120)2CABMCLIENTES.geoentFieldKeyField-3CABMCLIENTES.geoentField UpdatableaECABMCLIENTES.geoentField UpdateNameclientes.geoent:CABMCLIENTES.geoentFieldDataTypeC(120)4CABMCLIENTES.dircoordFieldKeyField-5CABMCLIENTES.dircoordField UpdatableaICABMCLIENTES.dircoordField UpdateNameclientes.dircoord;CABMCLIENTES.dircoordFieldDataTypeC(30)3CABMCLIENTES.est_actFieldKeyField-4CABMCLIENTES.est_actField UpdatableaGCABMCLIENTES.est_actField UpdateNameclientes.est_act9CABMCLIENTES.est_actFieldDataTypeN(1)3CABMCLIENTES.pres_fcFieldKeyField-4CABMCLIENTES.pres_fcField UpdatableaGCABMCLIENTES.pres_fcField UpdateNameclientes.pres_fc9CABMCLIENTES.pres_fcFieldDataTypeC(1)3CABMCLIENTES.dir_cotFieldKeyField-4CABMCLIENTES.dir_cotField UpdatableaGCABMCLIENTES.dir_cotField UpdateNameclientes.dir_cot6CABMCLIENTES.dir_cotFieldDataTypeM3CABMCLIENTES.ult_modFieldKeyField-4CABMCLIENTES.ult_modField UpdatableaGCABMCLIENTES.ult_modField UpdateNameclientes.ult_mod6CABMCLIENTES.ult_modFieldDataTypeT1CABMCLIENTES.gruecFieldKeyField-2CABMCLIENTES.gruecField UpdatableaCCABMCLIENTES.gruecField UpdateNameclientes.gruec8CABMCLIENTES.gruecFieldDataTypeN(10)1CABMCLIENTES.complFieldKeyField-2CABMCLIENTES.complField UpdatableaCCABMCLIENTES.complField UpdateNameclientes.compl9CABMCLIENTES.complFieldDataTypeN(6,2)3CABMCLIENTES.rotformFieldKeyField-4CABMCLIENTES.rotformField UpdatableaGCABMCLIENTES.rotformField UpdateNameclientes.rotform9CABMCLIENTES.rotformFieldDataTypeN(2)5CABMCLIENTES.artslibreFieldKeyField-6CABMCLIENTES.artslibreField UpdatableaKCABMCLIENTES.artslibreField UpdateNameclientes.artslibre;CABMCLIENTES.artslibreFieldDataTypeN(1)/CABMCLIENTES.glnFieldKeyField-0CABMCLIENTES.glnField Updatablea?CABMCLIENTES.glnField UpdateName clientes.gln6CABMCLIENTES.glnFieldDataTypeN(13)2CABMCLIENTES.acopioFieldKeyField-3CABMCLIENTES.acopioField UpdatableaECABMCLIENTES.acopioField UpdateNameclientes.acopio8CABMCLIENTES.acopioFieldDataTypeN(2)UR ABMBIENESQ;SELECT * FROM bienes WHERE Bienes.cod_ins == ( ?xcodigo ),C ABMBIENESView UpdateType+C ABMBIENESView WhereType)C ABMBIENESView FetchMemoa+C ABMBIENESView SendUpdatesa-C ABMBIENESView UseMemoSize+C ABMBIENESView FetchSized-C ABMBIENESView MaxRecords2C ABMBIENESViewTables ges!bienes(C ABMBIENESViewPrepared-+C ABMBIENESView CompareMemoa-C ABMBIENESView FetchAsNeeded-)C ABMBIENESViewComment2C ABMBIENESViewBatchUpdateCount/C ABMBIENESViewShareConnection-1CABMBIENES.cod_insFieldKeyField-2CABMBIENES.cod_insField UpdatableaGCABMBIENES.cod_insField UpdateNameges!bienes.cod_ins8CABMBIENES.cod_insFieldDataTypeC(15)1CABMBIENES.cod_proFieldKeyField-2CABMBIENES.cod_proField UpdatableaGCABMBIENES.cod_proField UpdateNameges!bienes.cod_pro7CABMBIENES.cod_proFieldDataTypeC(6)1CABMBIENES.cod_cenFieldKeyField-2CABMBIENES.cod_cenField UpdatableaGCABMBIENES.cod_cenField UpdateNameges!bienes.cod_cen7CABMBIENES.cod_cenFieldDataTypeC(6)2CABMBIENES.cod_iproFieldKeyField-3CABMBIENES.cod_iproField UpdatableaICABMBIENES.cod_iproField UpdateNameges!bienes.cod_ipro8CABMBIENES.cod_iproFieldDataTypeC(8)1CABMBIENES.cod_cueFieldKeyField-2CABMBIENES.cod_cueField UpdatableaGCABMBIENES.cod_cueField UpdateNameges!bienes.cod_cue7CABMBIENES.cod_cueFieldDataTypeC(9)/CABMBIENES.lugarFieldKeyField-0CABMBIENES.lugarField UpdatableaCCABMBIENES.lugarField UpdateNameges!bienes.lugar6CABMBIENES.lugarFieldDataTypeC(10)1CABMBIENES.cod_senFieldKeyField-2CABMBIENES.cod_senField UpdatableaGCABMBIENES.cod_senField UpdateNameges!bienes.cod_sen7CABMBIENES.cod_senFieldDataTypeC(6)1CABMBIENES.cod_junFieldKeyField-2CABMBIENES.cod_junField UpdatableaGCABMBIENES.cod_junField UpdateNameges!bienes.cod_jun7CABMBIENES.cod_junFieldDataTypeC(6).CABMBIENES.altaFieldKeyField-/CABMBIENES.altaField UpdatableaACABMBIENES.altaField UpdateNameges!bienes.alta1CABMBIENES.altaFieldDataTypeD.CABMBIENES.bajaFieldKeyField-/CABMBIENES.bajaField UpdatableaACABMBIENES.bajaField UpdateNameges!bienes.baja1CABMBIENES.bajaFieldDataTypeD-C ABMBIENES.canFieldKeyField-.C ABMBIENES.canField Updatablea?C ABMBIENES.canField UpdateNameges!bienes.can3C ABMBIENES.canFieldDataTypeC(6)1CABMBIENES.des_insFieldKeyField-2CABMBIENES.des_insField UpdatableaGCABMBIENES.des_insField UpdateNameges!bienes.des_ins9CABMBIENES.des_insFieldDataTypeN(5,2)3CABMBIENES.cos_lifo1FieldKeyField-4CABMBIENES.cos_lifo1Field UpdatableaKCABMBIENES.cos_lifo1Field UpdateNameges!bienes.cos_lifo1<CABMBIENES.cos_lifo1FieldDataTypeN(11,3)3CABMBIENES.cos_lifo2FieldKeyField-4CABMBIENES.cos_lifo2Field UpdatableaKCABMBIENES.cos_lifo2Field UpdateNameges!bienes.cos_lifo2<CABMBIENES.cos_lifo2FieldDataTypeN(11,3)3CABMBIENES.cos_lifo3FieldKeyField-4CABMBIENES.cos_lifo3Field UpdatableaKCABMBIENES.cos_lifo3Field UpdateNameges!bienes.cos_lifo3<CABMBIENES.cos_lifo3FieldDataTypeN(11,3)3CABMBIENES.cos_lifo4FieldKeyField-4CABMBIENES.cos_lifo4Field UpdatableaKCABMBIENES.cos_lifo4Field UpdateNameges!bienes.cos_lifo4<CABMBIENES.cos_lifo4FieldDataTypeN(11,3)1CABMBIENES.cos_lprFieldKeyField-2CABMBIENES.cos_lprField UpdatableaGCABMBIENES.cos_lprField UpdateNameges!bienes.cos_lpr:CABMBIENES.cos_lprFieldDataTypeN(11,3)2CABMBIENES.fac_lpr1FieldKeyField-3CABMBIENES.fac_lpr1Field UpdatableaICABMBIENES.fac_lpr1Field UpdateNameges!bienes.fac_lpr1;CABMBIENES.fac_lpr1FieldDataTypeN(11,3)2CABMBIENES.fac_lpr2FieldKeyField-3CABMBIENES.fac_lpr2Field UpdatableaICABMBIENES.fac_lpr2Field UpdateNameges!bienes.fac_lpr2;CABMBIENES.fac_lpr2FieldDataTypeN(11,3)2CABMBIENES.fac_lpr3FieldKeyField-3CABMBIENES.fac_lpr3Field UpdatableaICABMBIENES.fac_lpr3Field UpdateNameges!bienes.fac_lpr3;CABMBIENES.fac_lpr3FieldDataTypeN(11,3)2CABMBIENES.fac_lpr4FieldKeyField-3CABMBIENES.fac_lpr4Field UpdatableaICABMBIENES.fac_lpr4Field UpdateNameges!bienes.fac_lpr4;CABMBIENES.fac_lpr4FieldDataTypeN(11,3)3CABMBIENES.vida_utilFieldKeyField-4CABMBIENES.vida_utilField UpdatableaKCABMBIENES.vida_utilField UpdateNameges!bienes.vida_util9CABMBIENES.vida_utilFieldDataTypeN(8)-C ABMBIENES.usoFieldKeyField-.C ABMBIENES.usoField Updatablea?C ABMBIENES.usoField UpdateNameges!bienes.uso6C ABMBIENES.usoFieldDataTypeN(12,3)/CABMBIENES.coef1FieldKeyField-0CABMBIENES.coef1Field UpdatableaCCABMBIENES.coef1Field UpdateNameges!bienes.coef15CABMBIENES.coef1FieldDataTypeN(2)/CABMBIENES.coef2FieldKeyField-0CABMBIENES.coef2Field UpdatableaCCABMBIENES.coef2Field UpdateNameges!bienes.coef25CABMBIENES.coef2FieldDataTypeN(2)/CABMBIENES.coef3FieldKeyField-0CABMBIENES.coef3Field UpdatableaCCABMBIENES.coef3Field UpdateNameges!bienes.coef35CABMBIENES.coef3FieldDataTypeN(2)/CABMBIENES.coef4FieldKeyField-0CABMBIENES.coef4Field UpdatableaCCABMBIENES.coef4Field UpdateNameges!bienes.coef45CABMBIENES.coef4FieldDataTypeN(2)/CABMBIENES.cant1FieldKeyField-0CABMBIENES.cant1Field UpdatableaCCABMBIENES.cant1Field UpdateNameges!bienes.cant18CABMBIENES.cant1FieldDataTypeN(12,3)/CABMBIENES.cant2FieldKeyField-0CABMBIENES.cant2Field UpdatableaCCABMBIENES.cant2Field UpdateNameges!bienes.cant28CABMBIENES.cant2FieldDataTypeN(12,3)/CABMBIENES.cant3FieldKeyField-0CABMBIENES.cant3Field UpdatableaCCABMBIENES.cant3Field UpdateNameges!bienes.cant38CABMBIENES.cant3FieldDataTypeN(12,3)/CABMBIENES.cant4FieldKeyField-0CABMBIENES.cant4Field UpdatableaCCABMBIENES.cant4Field UpdateNameges!bienes.cant48CABMBIENES.cant4FieldDataTypeN(12,3)/CABMBIENES.cant5FieldKeyField-0CABMBIENES.cant5Field UpdatableaCCABMBIENES.cant5Field UpdateNameges!bienes.cant58CABMBIENES.cant5FieldDataTypeN(12,3)/CABMBIENES.cant6FieldKeyField-0CABMBIENES.cant6Field UpdatableaCCABMBIENES.cant6Field UpdateNameges!bienes.cant68CABMBIENES.cant6FieldDataTypeN(12,3)/CABMBIENES.cant7FieldKeyField-0CABMBIENES.cant7Field UpdatableaCCABMBIENES.cant7Field UpdateNameges!bienes.cant78CABMBIENES.cant7FieldDataTypeN(12,3)/CABMBIENES.cant8FieldKeyField-0CABMBIENES.cant8Field UpdatableaCCABMBIENES.cant8Field UpdateNameges!bienes.cant88CABMBIENES.cant8FieldDataTypeN(12,3)/CABMBIENES.cant9FieldKeyField-0CABMBIENES.cant9Field UpdatableaCCABMBIENES.cant9Field UpdateNameges!bienes.cant98CABMBIENES.cant9FieldDataTypeN(12,3)0CABMBIENES.cant10FieldKeyField-1CABMBIENES.cant10Field UpdatableaECABMBIENES.cant10Field UpdateNameges!bienes.cant109CABMBIENES.cant10FieldDataTypeN(12,3)1CABMBIENES.codtreeFieldKeyField-2CABMBIENES.codtreeField UpdatableaGCABMBIENES.codtreeField UpdateNameges!bienes.codtree7CABMBIENES.codtreeFieldDataTypeC(9)/CABMBIENES.kilo1FieldKeyField-0CABMBIENES.kilo1Field UpdatableaCCABMBIENES.kilo1Field UpdateNameges!bienes.kilo18CABMBIENES.kilo1FieldDataTypeN(12,3)/CABMBIENES.kilo2FieldKeyField-0CABMBIENES.kilo2Field UpdatableaCCABMBIENES.kilo2Field UpdateNameges!bienes.kilo28CABMBIENES.kilo2FieldDataTypeN(12,3)/CABMBIENES.kilo3FieldKeyField-0CABMBIENES.kilo3Field UpdatableaCCABMBIENES.kilo3Field UpdateNameges!bienes.kilo38CABMBIENES.kilo3FieldDataTypeN(12,3)/CABMBIENES.kilo4FieldKeyField-0CABMBIENES.kilo4Field UpdatableaCCABMBIENES.kilo4Field UpdateNameges!bienes.kilo48CABMBIENES.kilo4FieldDataTypeN(12,3)/CABMBIENES.kilo5FieldKeyField-0CABMBIENES.kilo5Field UpdatableaCCABMBIENES.kilo5Field UpdateNameges!bienes.kilo58CABMBIENES.kilo5FieldDataTypeN(12,3)/CABMBIENES.kilo6FieldKeyField-0CABMBIENES.kilo6Field UpdatableaCCABMBIENES.kilo6Field UpdateNameges!bienes.kilo68CABMBIENES.kilo6FieldDataTypeN(12,3)/CABMBIENES.kilo7FieldKeyField-0CABMBIENES.kilo7Field UpdatableaCCABMBIENES.kilo7Field UpdateNameges!bienes.kilo78CABMBIENES.kilo7FieldDataTypeN(12,3)/CABMBIENES.kilo8FieldKeyField-0CABMBIENES.kilo8Field UpdatableaCCABMBIENES.kilo8Field UpdateNameges!bienes.kilo88CABMBIENES.kilo8FieldDataTypeN(12,3)/CABMBIENES.kilo9FieldKeyField-0CABMBIENES.kilo9Field UpdatableaCCABMBIENES.kilo9Field UpdateNameges!bienes.kilo98CABMBIENES.kilo9FieldDataTypeN(12,3)0CABMBIENES.kilo10FieldKeyField-1CABMBIENES.kilo10Field UpdatableaECABMBIENES.kilo10Field UpdateNameges!bienes.kilo109CABMBIENES.kilo10FieldDataTypeN(12,3)0CABMBIENES.medidaFieldKeyField-1CABMBIENES.medidaField UpdatableaECABMBIENES.medidaField UpdateNameges!bienes.medida7CABMBIENES.medidaFieldDataTypeC(10)0CABMBIENES.precioFieldKeyField-1CABMBIENES.precioField UpdatableaECABMBIENES.precioField UpdateNameges!bienes.precio9CABMBIENES.precioFieldDataTypeN(18,3)/CABMBIENES.costoFieldKeyField-0CABMBIENES.costoField UpdatableaCCABMBIENES.costoField UpdateNameges!bienes.costo8CABMBIENES.costoFieldDataTypeN(18,4)3CABMBIENES.coef_precFieldKeyField-4CABMBIENES.coef_precField UpdatableaKCABMBIENES.coef_precField UpdateNameges!bienes.coef_prec;CABMBIENES.coef_precFieldDataTypeN(6,3)/CABMBIENES.redonFieldKeyField-0CABMBIENES.redonField UpdatableaCCABMBIENES.redonField UpdateNameges!bienes.redon5CABMBIENES.redonFieldDataTypeN(2)1CABMBIENES.act_inmFieldKeyField-2CABMBIENES.act_inmField UpdatableaGCABMBIENES.act_inmField UpdateNameges!bienes.act_inm7CABMBIENES.act_inmFieldDataTypeC(1)2CABMBIENES.comisionFieldKeyField-3CABMBIENES.comisionField UpdatableaICABMBIENES.comisionField UpdateNameges!bienes.comision:CABMBIENES.comisionFieldDataTypeN(6,2)0CABMBIENES.minimoFieldKeyField-1CABMBIENES.minimoField UpdatableaECABMBIENES.minimoField UpdateNameges!bienes.minimo6CABMBIENES.minimoFieldDataTypeC(8)/CABMBIENES.lineaFieldKeyField-0CABMBIENES.lineaField UpdatableaCCABMBIENES.lineaField UpdateNameges!bienes.linea5CABMBIENES.lineaFieldDataTypeN(4)0CABMBIENES.agenteFieldKeyField-1CABMBIENES.agenteField UpdatableaECABMBIENES.agenteField UpdateNameges!bienes.agente6CABMBIENES.agenteFieldDataTypeC(8).CABMBIENES.pesoFieldKeyField-/CABMBIENES.pesoField UpdatableaACABMBIENES.pesoField UpdateNameges!bienes.peso7CABMBIENES.pesoFieldDataTypeN(11,3)/CABMBIENES.grupoFieldKeyField-0CABMBIENES.grupoField UpdatableaCCABMBIENES.grupoField UpdateNameges!bienes.grupo5CABMBIENES.grupoFieldDataTypeN(2)0CABMBIENES.actcosFieldKeyField-1CABMBIENES.actcosField UpdatableaECABMBIENES.actcosField UpdateNameges!bienes.actcos6CABMBIENES.actcosFieldDataTypeC(1)0CABMBIENES.cosactFieldKeyField-1CABMBIENES.cosactField UpdatableaECABMBIENES.cosactField UpdateNameges!bienes.cosact9CABMBIENES.cosactFieldDataTypeN(18,4)0CABMBIENES.fecactFieldKeyField-1CABMBIENES.fecactField UpdatableaECABMBIENES.fecactField UpdateNameges!bienes.fecact3CABMBIENES.fecactFieldDataTypeD,C ABMBIENES.iiFieldKeyField--C ABMBIENES.iiField Updatablea=C ABMBIENES.iiField UpdateName ges!bienes.ii4C ABMBIENES.iiFieldDataTypeN(6,3)3CABMBIENES.cantxbultFieldKeyField-4CABMBIENES.cantxbultField UpdatableaKCABMBIENES.cantxbultField UpdateNameges!bienes.cantxbult<CABMBIENES.cantxbultFieldDataTypeN(13,3)3CABMBIENES.volxbultoFieldKeyField-4CABMBIENES.volxbultoField UpdatableaKCABMBIENES.volxbultoField UpdateNameges!bienes.volxbulto<CABMBIENES.volxbultoFieldDataTypeN(13,3)3CABMBIENES.compuestoFieldKeyField-4CABMBIENES.compuestoField UpdatableaKCABMBIENES.compuestoField UpdateNameges!bienes.compuesto9CABMBIENES.compuestoFieldDataTypeC(1),C ABMBIENES.s1FieldKeyField--C ABMBIENES.s1Field Updatablea=C ABMBIENES.s1Field UpdateName ges!bienes.s15C ABMBIENES.s1FieldDataTypeN(14,3),C ABMBIENES.s2FieldKeyField--C ABMBIENES.s2Field Updatablea=C ABMBIENES.s2Field UpdateName ges!bienes.s25C ABMBIENES.s2FieldDataTypeN(14,3)1CABMBIENES.fec_ultFieldKeyField-2CABMBIENES.fec_ultField UpdatableaGCABMBIENES.fec_ultField UpdateNameges!bienes.fec_ult4CABMBIENES.fec_ultFieldDataTypeD1CABMBIENES.stk_ultFieldKeyField-2CABMBIENES.stk_ultField UpdatableaGCABMBIENES.stk_ultField UpdateNameges!bienes.stk_ult:CABMBIENES.stk_ultFieldDataTypeN(14,3)3CABMBIENES.importadoFieldKeyField-4CABMBIENES.importadoField UpdatableaKCABMBIENES.importadoField UpdateNameges!bienes.importado9CABMBIENES.importadoFieldDataTypeC(1)/CABMBIENES.claveFieldKeyField-0CABMBIENES.claveField UpdatableaCCABMBIENES.claveField UpdateNameges!bienes.clave5CABMBIENES.claveFieldDataTypeC(3)3CABMBIENES.comision2FieldKeyField-4CABMBIENES.comision2Field UpdatableaKCABMBIENES.comision2Field UpdateNameges!bienes.comision2;CABMBIENES.comision2FieldDataTypeN(6,2)/CABMBIENES.ventaFieldKeyField-0CABMBIENES.ventaField UpdatableaCCABMBIENES.ventaField UpdateNameges!bienes.venta5CABMBIENES.ventaFieldDataTypeC(1)0CABMBIENES.compraFieldKeyField-1CABMBIENES.compraField UpdatableaECABMBIENES.compraField UpdateNameges!bienes.compra6CABMBIENES.compraFieldDataTypeC(1)/CABMBIENES.panolFieldKeyField-0CABMBIENES.panolField UpdatableaCCABMBIENES.panolField UpdateNameges!bienes.panol5CABMBIENES.panolFieldDataTypeC(1)0CABMBIENES.producFieldKeyField-1CABMBIENES.producField UpdatableaECABMBIENES.producField UpdateNameges!bienes.produc6CABMBIENES.producFieldDataTypeC(1)1CABMBIENES.codalt1FieldKeyField-2CABMBIENES.codalt1Field UpdatableaGCABMBIENES.codalt1Field UpdateNameges!bienes.codalt18CABMBIENES.codalt1FieldDataTypeC(20)1CABMBIENES.codalt2FieldKeyField-2CABMBIENES.codalt2Field UpdatableaGCABMBIENES.codalt2Field UpdateNameges!bienes.codalt28CABMBIENES.codalt2FieldDataTypeC(20)1CABMBIENES.codalt3FieldKeyField-2CABMBIENES.codalt3Field UpdatableaGCABMBIENES.codalt3Field UpdateNameges!bienes.codalt38CABMBIENES.codalt3FieldDataTypeC(20)1CABMBIENES.codalt4FieldKeyField-2CABMBIENES.codalt4Field UpdatableaGCABMBIENES.codalt4Field UpdateNameges!bienes.codalt48CABMBIENES.codalt4FieldDataTypeC(20)1CABMBIENES.stk_minFieldKeyField-2CABMBIENES.stk_minField UpdatableaGCABMBIENES.stk_minField UpdateNameges!bienes.stk_min8CABMBIENES.stk_minFieldDataTypeN(10)1CABMBIENES.stk_pedFieldKeyField-2CABMBIENES.stk_pedField UpdatableaGCABMBIENES.stk_pedField UpdateNameges!bienes.stk_ped7CABMBIENES.stk_pedFieldDataTypeN(6)1CABMBIENES.ven_cueFieldKeyField-2CABMBIENES.ven_cueField UpdatableaGCABMBIENES.ven_cueField UpdateNameges!bienes.ven_cue7CABMBIENES.ven_cueFieldDataTypeC(9)3CABMBIENES.subcentroFieldKeyField-4CABMBIENES.subcentroField UpdatableaKCABMBIENES.subcentroField UpdateNameges!bienes.subcentro9CABMBIENES.subcentroFieldDataTypeN(2)1CABMBIENES.stk_fecFieldKeyField-2CABMBIENES.stk_fecField UpdatableaGCABMBIENES.stk_fecField UpdateNameges!bienes.stk_fec4CABMBIENES.stk_fecFieldDataTypeD/CABMBIENES.abrevFieldKeyField-0CABMBIENES.abrevField UpdatableaCCABMBIENES.abrevField UpdateNameges!bienes.abrev5CABMBIENES.abrevFieldDataTypeC(9)0CABMBIENES.abrev2FieldKeyField-1CABMBIENES.abrev2Field UpdatableaECABMBIENES.abrev2Field UpdateNameges!bienes.abrev26CABMBIENES.abrev2FieldDataTypeC(9)2CABMBIENES.fac_lpr5FieldKeyField-3CABMBIENES.fac_lpr5Field UpdatableaICABMBIENES.fac_lpr5Field UpdateNameges!bienes.fac_lpr5;CABMBIENES.fac_lpr5FieldDataTypeN(15,2)3CABMBIENES.cos_lifo5FieldKeyField-4CABMBIENES.cos_lifo5Field UpdatableaKCABMBIENES.cos_lifo5Field UpdateNameges!bienes.cos_lifo5<CABMBIENES.cos_lifo5FieldDataTypeN(15,3)2CABMBIENES.fac_lpr6FieldKeyField-3CABMBIENES.fac_lpr6Field UpdatableaICABMBIENES.fac_lpr6Field UpdateNameges!bienes.fac_lpr6;CABMBIENES.fac_lpr6FieldDataTypeN(15,2)3CABMBIENES.cos_lifo6FieldKeyField-4CABMBIENES.cos_lifo6Field UpdatableaKCABMBIENES.cos_lifo6Field UpdateNameges!bienes.cos_lifo6<CABMBIENES.cos_lifo6FieldDataTypeN(15,3)-C ABMBIENES.ivaFieldKeyField-.C ABMBIENES.ivaField Updatablea?C ABMBIENES.ivaField UpdateNameges!bienes.iva3C ABMBIENES.ivaFieldDataTypeC(1)-C ABMBIENES.bulFieldKeyField-.C ABMBIENES.bulField Updatablea?C ABMBIENES.bulField UpdateNameges!bienes.bul3C ABMBIENES.bulFieldDataTypeC(3)-C ABMBIENES.atrFieldKeyField-.C ABMBIENES.atrField Updatablea?C ABMBIENES.atrField UpdateNameges!bienes.atr3C ABMBIENES.atrFieldDataTypeC(3)0CABMBIENES.bultosFieldKeyField-1CABMBIENES.bultosField UpdatableaECABMBIENES.bultosField UpdateNameges!bienes.bultos6CABMBIENES.bultosFieldDataTypeC(1)3CABMBIENES.atributosFieldKeyField-4CABMBIENES.atributosField UpdatableaKCABMBIENES.atributosField UpdateNameges!bienes.atributos9CABMBIENES.atributosFieldDataTypeC(1)0CABMBIENES.monedaFieldKeyField-1CABMBIENES.monedaField UpdatableaECABMBIENES.monedaField UpdateNameges!bienes.moneda6CABMBIENES.monedaFieldDataTypeN(1)1CABMBIENES.des_cueFieldKeyField-2CABMBIENES.des_cueField UpdatableaGCABMBIENES.des_cueField UpdateNameges!bienes.des_cue7CABMBIENES.des_cueFieldDataTypeC(9)0CABMBIENES.abrev3FieldKeyField-1CABMBIENES.abrev3Field UpdatableaECABMBIENES.abrev3Field UpdateNameges!bienes.abrev36CABMBIENES.abrev3FieldDataTypeC(9)0CABMBIENES.pesoxuFieldKeyField-1CABMBIENES.pesoxuField UpdatableaECABMBIENES.pesoxuField UpdateNameges!bienes.pesoxu9CABMBIENES.pesoxuFieldDataTypeN(10,3).CABMBIENES.uvenFieldKeyField-/CABMBIENES.uvenField UpdatableaACABMBIENES.uvenField UpdateNameges!bienes.uven4CABMBIENES.uvenFieldDataTypeN(7)2CABMBIENES.conjuntoFieldKeyField-3CABMBIENES.conjuntoField UpdatableaICABMBIENES.conjuntoField UpdateNameges!bienes.conjunto8CABMBIENES.conjuntoFieldDataTypeC(1)1CABMBIENES.reventaFieldKeyField-2CABMBIENES.reventaField UpdatableaGCABMBIENES.reventaField UpdateNameges!bienes.reventa7CABMBIENES.reventaFieldDataTypeC(1)2CABMBIENES.tipo_artFieldKeyField-3CABMBIENES.tipo_artField UpdatableaICABMBIENES.tipo_artField UpdateNameges!bienes.tipo_art8CABMBIENES.tipo_artFieldDataTypeN(1)2CABMBIENES.tipo_cosFieldKeyField-3CABMBIENES.tipo_cosField UpdatableaICABMBIENES.tipo_cosField UpdateNameges!bienes.tipo_cos8CABMBIENES.tipo_cosFieldDataTypeN(1)1CABMBIENES.cta_varFieldKeyField-2CABMBIENES.cta_varField UpdatableaGCABMBIENES.cta_varField UpdateNameges!bienes.cta_var7CABMBIENES.cta_varFieldDataTypeC(9)/CABMBIENES.despaFieldKeyField-0CABMBIENES.despaField UpdatableaCCABMBIENES.despaField UpdateNameges!bienes.despa6CABMBIENES.despaFieldDataTypeC(35)0CABMBIENES.barrasFieldKeyField-1CABMBIENES.barrasField UpdatableaECABMBIENES.barrasField UpdateNameges!bienes.barras7CABMBIENES.barrasFieldDataTypeN(13)1CABMBIENES.cta_conFieldKeyField-2CABMBIENES.cta_conField UpdatableaGCABMBIENES.cta_conField UpdateNameges!bienes.cta_con7CABMBIENES.cta_conFieldDataTypeC(9)/CABMBIENES.marcaFieldKeyField-0CABMBIENES.marcaField UpdatableaCCABMBIENES.marcaField UpdateNameges!bienes.marca5CABMBIENES.marcaFieldDataTypeN(4)/CABMBIENES.lotesFieldKeyField-0CABMBIENES.lotesField UpdatableaCCABMBIENES.lotesField UpdateNameges!bienes.lotes5CABMBIENES.lotesFieldDataTypeC(1)0CABMBIENES.ivaperFieldKeyField-1CABMBIENES.ivaperField UpdatableaECABMBIENES.ivaperField UpdateNameges!bienes.ivaper8CABMBIENES.ivaperFieldDataTypeN(6,2)/CABMBIENES.descrFieldKeyField-0CABMBIENES.descrField UpdatableaCCABMBIENES.descrField UpdateNameges!bienes.descr6CABMBIENES.descrFieldDataTypeC(80)1CABMBIENES.palletsFieldKeyField-2CABMBIENES.palletsField UpdatableaGCABMBIENES.palletsField UpdateNameges!bienes.pallets8CABMBIENES.palletsFieldDataTypeN(10)/CABMBIENES.coef5FieldKeyField-0CABMBIENES.coef5Field UpdatableaCCABMBIENES.coef5Field UpdateNameges!bienes.coef55CABMBIENES.coef5FieldDataTypeN(2)/CABMBIENES.coef6FieldKeyField-0CABMBIENES.coef6Field UpdatableaCCABMBIENES.coef6Field UpdateNameges!bienes.coef65CABMBIENES.coef6FieldDataTypeN(2)3CABMBIENES.mincompraFieldKeyField-4CABMBIENES.mincompraField UpdatableaKCABMBIENES.mincompraField UpdateNameges!bienes.mincompra<CABMBIENES.mincompraFieldDataTypeN(14,2)0CABMBIENES.factorFieldKeyField-1CABMBIENES.factorField UpdatableaECABMBIENES.factorField UpdateNameges!bienes.factor9CABMBIENES.factorFieldDataTypeN(10,4)0CABMBIENES.seriesFieldKeyField-1CABMBIENES.seriesField UpdatableaECABMBIENES.seriesField UpdateNameges!bienes.series6CABMBIENES.seriesFieldDataTypeC(1)1CABMBIENES.pesobruFieldKeyField-2CABMBIENES.pesobruField UpdatableaGCABMBIENES.pesobruField UpdateNameges!bienes.pesobru:CABMBIENES.pesobruFieldDataTypeN(14,4)0CABMBIENES.palletFieldKeyField-1CABMBIENES.palletField UpdatableaECABMBIENES.palletField UpdateNameges!bienes.pallet6CABMBIENES.palletFieldDataTypeN(3)-C ABMBIENES.iduFieldKeyFielda.C ABMBIENES.iduField Updatablea?C ABMBIENES.iduField UpdateNameges!bienes.idu4C ABMBIENES.iduFieldDataTypeC(10)0CABMBIENES.demoraFieldKeyField-1CABMBIENES.demoraField UpdatableaECABMBIENES.demoraField UpdateNameges!bienes.demora6CABMBIENES.demoraFieldDataTypeN(4)-C ABMBIENES.dunFieldKeyField-.C ABMBIENES.dunField Updatablea?C ABMBIENES.dunField UpdateNameges!bienes.dun4C ABMBIENES.dunFieldDataTypeN(14)3CABMBIENES.medidaauxFieldKeyField-4CABMBIENES.medidaauxField UpdatableaKCABMBIENES.medidaauxField UpdateNameges!bienes.medidaaux:CABMBIENES.medidaauxFieldDataTypeC(10)2CABMBIENES.subgrupoFieldKeyField-3CABMBIENES.subgrupoField UpdatableaICABMBIENES.subgrupoField UpdateNameges!bienes.subgrupo8CABMBIENES.subgrupoFieldDataTypeN(2)2CABMBIENES.forincosFieldKeyField-3CABMBIENES.forincosField UpdatableaICABMBIENES.forincosField UpdateNameges!bienes.forincos8CABMBIENES.forincosFieldDataTypeN(4)3CABMBIENES.ivaperantFieldKeyField-4CABMBIENES.ivaperantField UpdatableaKCABMBIENES.ivaperantField UpdateNameges!bienes.ivaperant;CABMBIENES.ivaperantFieldDataTypeN(6,2)1CABMBIENES.imp_cueFieldKeyField-2CABMBIENES.imp_cueField UpdatableaGCABMBIENES.imp_cueField UpdateNameges!bienes.imp_cue7CABMBIENES.imp_cueFieldDataTypeC(9)2CABMBIENES.genericoFieldKeyField-3CABMBIENES.genericoField UpdatableaICABMBIENES.genericoField UpdateNameges!bienes.generico8CABMBIENES.genericoFieldDataTypeC(1)/CABMBIENES.especFieldKeyField-0CABMBIENES.especField UpdatableaCCABMBIENES.especField UpdateNameges!bienes.espec6CABMBIENES.especFieldDataTypeC(10)0CABMBIENES.tfgravFieldKeyField-1CABMBIENES.tfgravField UpdatableaECABMBIENES.tfgravField UpdateNameges!bienes.tfgrav3CABMBIENES.tfgravFieldDataTypeL1CABMBIENES.actu_peFieldKeyField-2CABMBIENES.actu_peField UpdatableaGCABMBIENES.actu_peField UpdateNameges!bienes.actu_pe7CABMBIENES.actu_peFieldDataTypeN(1)4CABMBIENES.tipostkminFieldKeyField-5CABMBIENES.tipostkminField UpdatableaMCABMBIENES.tipostkminField UpdateNameges!bienes.tipostkmin:CABMBIENES.tipostkminFieldDataTypeN(1)1CABMBIENES.est_actFieldKeyField-2CABMBIENES.est_actField UpdatableaGCABMBIENES.est_actField UpdateNameges!bienes.est_act7CABMBIENES.est_actFieldDataTypeN(1)/CABMBIENES.mermaFieldKeyField-0CABMBIENES.mermaField UpdatableaCCABMBIENES.mermaField UpdateNameges!bienes.merma7CABMBIENES.mermaFieldDataTypeN(6,2)2CABMBIENES.minbatchFieldKeyField-3CABMBIENES.minbatchField UpdatableaICABMBIENES.minbatchField UpdateNameges!bienes.minbatch9CABMBIENES.minbatchFieldDataTypeN(10)0CABMBIENES.descr2FieldKeyField-1CABMBIENES.descr2Field UpdatableaECABMBIENES.descr2Field UpdateNameges!bienes.descr28CABMBIENES.descr2FieldDataTypeC(150)1CABMBIENES.cm_uni2FieldKeyField-2CABMBIENES.cm_uni2Field UpdatableaGCABMBIENES.cm_uni2Field UpdateNameges!bienes.cm_uni27CABMBIENES.cm_uni2FieldDataTypeN(2)0CABMBIENES.medcodFieldKeyField-1CABMBIENES.medcodField UpdatableaECABMBIENES.medcodField UpdateNameges!bienes.medcod6CABMBIENES.medcodFieldDataTypeN(3)3CABMBIENES.medauxcodFieldKeyField-4CABMBIENES.medauxcodField UpdatableaKCABMBIENES.medauxcodField UpdateNameges!bienes.medauxcod9CABMBIENES.medauxcodFieldDataTypeN(3)0CABMBIENES.toxicoFieldKeyField-1CABMBIENES.toxicoField UpdatableaECABMBIENES.toxicoField UpdateNameges!bienes.toxico6CABMBIENES.toxicoFieldDataTypeN(2)1CABMBIENES.bul_genFieldKeyField-2CABMBIENES.bul_genField UpdatableaGCABMBIENES.bul_genField UpdateNameges!bienes.bul_gen7CABMBIENES.bul_genFieldDataTypeN(1)1CABMBIENES.atr_genFieldKeyField-2CABMBIENES.atr_genField UpdatableaGCABMBIENES.atr_genField UpdateNameges!bienes.atr_gen7CABMBIENES.atr_genFieldDataTypeN(1)1CABMBIENES.no_fracFieldKeyField-2CABMBIENES.no_fracField UpdatableaGCABMBIENES.no_fracField UpdateNameges!bienes.no_frac7CABMBIENES.no_fracFieldDataTypeN(2)/CABMBIENES.cicloFieldKeyField-0CABMBIENES.cicloField UpdatableaCCABMBIENES.cicloField UpdateNameges!bienes.ciclo8CABMBIENES.cicloFieldDataTypeN(14,2)3CABMBIENES.cavidadesFieldKeyField-4CABMBIENES.cavidadesField UpdatableaKCABMBIENES.cavidadesField UpdateNameges!bienes.cavidades<CABMBIENES.cavidadesFieldDataTypeN(14,2)/CABMBIENES.setupFieldKeyField-0CABMBIENES.setupField UpdatableaCCABMBIENES.setupField UpdateNameges!bienes.setup5CABMBIENES.setupFieldDataTypeN(3)3CABMBIENES.cantxcajaFieldKeyField-4CABMBIENES.cantxcajaField UpdatableaKCABMBIENES.cantxcajaField UpdateNameges!bienes.cantxcaja<CABMBIENES.cantxcajaFieldDataTypeN(14,2)2CABMBIENES.stk_min1FieldKeyField-3CABMBIENES.stk_min1Field UpdatableaICABMBIENES.stk_min1Field UpdateNameges!bienes.stk_min18CABMBIENES.stk_min1FieldDataTypeN(4)3CABMBIENES.stk_min_mFieldKeyField-4CABMBIENES.stk_min_mField UpdatableaKCABMBIENES.stk_min_mField UpdateNameges!bienes.stk_min_m9CABMBIENES.stk_min_mFieldDataTypeN(4)1CABMBIENES.contstkFieldKeyField-2CABMBIENES.contstkField UpdatableaGCABMBIENES.contstkField UpdateNameges!bienes.contstk7CABMBIENES.contstkFieldDataTypeC(1)-C ABMBIENES.itcFieldKeyField-.C ABMBIENES.itcField Updatablea?C ABMBIENES.itcField UpdateNameges!bienes.itc3C ABMBIENES.itcFieldDataTypeC(1)/CABMBIENES.uxdiaFieldKeyField-0CABMBIENES.uxdiaField UpdatableaCCABMBIENES.uxdiaField UpdateNameges!bienes.uxdia6CABMBIENES.uxdiaFieldDataTypeN(10)2CABMBIENES.ven_cuexFieldKeyField-3CABMBIENES.ven_cuexField UpdatableaICABMBIENES.ven_cuexField UpdateNameges!bienes.ven_cuex8CABMBIENES.ven_cuexFieldDataTypeC(9)2CABMBIENES.des_cuexFieldKeyField-3CABMBIENES.des_cuexField UpdatableaICABMBIENES.des_cuexField UpdateNameges!bienes.des_cuex8CABMBIENES.des_cuexFieldDataTypeC(9)-C ABMBIENES.ncmFieldKeyField-.C ABMBIENES.ncmField Updatablea;C ABMBIENES.ncmField UpdateName bienes.ncm4C ABMBIENES.ncmFieldDataTypeC(15)4CABMBIENES.ventasxperFieldKeyField-5CABMBIENES.ventasxperField UpdatableaICABMBIENES.ventasxperField UpdateNamebienes.ventasxper;CABMBIENES.ventasxperFieldDataTypeN(10)-C ABMBIENES.eqzFieldKeyField-.C ABMBIENES.eqzField Updatablea;C ABMBIENES.eqzField UpdateName bienes.eqz4C ABMBIENES.eqzFieldDataTypeC(35)0CABMBIENES.cod_upFieldKeyField-1CABMBIENES.cod_upField UpdatableaACABMBIENES.cod_upField UpdateName bienes.cod_up6CABMBIENES.cod_upFieldDataTypeC(8)1CABMBIENES.ren_cumFieldKeyField-2CABMBIENES.ren_cumField UpdatableaCCABMBIENES.ren_cumField UpdateNamebienes.ren_cum7CABMBIENES.ren_cumFieldDataTypeN(2)3CABMBIENES.ubicacionFieldKeyField-4CABMBIENES.ubicacionField UpdatableaGCABMBIENES.ubicacionField UpdateNamebienes.ubicacion9CABMBIENES.ubicacionFieldDataTypeC(5)0CABMBIENES.dmarcaFieldKeyField-1CABMBIENES.dmarcaField UpdatableaACABMBIENES.dmarcaField UpdateName bienes.dmarca7CABMBIENES.dmarcaFieldDataTypeC(30)0CABMBIENES.modeloFieldKeyField-1CABMBIENES.modeloField UpdatableaACABMBIENES.modeloField UpdateName bienes.modelo7CABMBIENES.modeloFieldDataTypeC(30)1CABMBIENES.dunmultFieldKeyField-2CABMBIENES.dunmultField UpdatableaCCABMBIENES.dunmultField UpdateNamebienes.dunmult7CABMBIENES.dunmultFieldDataTypeN(2)1CABMBIENES.eanmultFieldKeyField-2CABMBIENES.eanmultField UpdatableaCCABMBIENES.eanmultField UpdateNamebienes.eanmult7CABMBIENES.eanmultFieldDataTypeN(2)1CABMBIENES.discontFieldKeyField-2CABMBIENES.discontField UpdatableaCCABMBIENES.discontField UpdateNamebienes.discont7CABMBIENES.discontFieldDataTypeN(1)2CABMBIENES.descrvarFieldKeyField-3CABMBIENES.descrvarField UpdatableaECABMBIENES.descrvarField UpdateNamebienes.descrvar8CABMBIENES.descrvarFieldDataTypeC(1)1CABMBIENES.cat_comFieldKeyField-2CABMBIENES.cat_comField UpdatableaCCABMBIENES.cat_comField UpdateNamebienes.cat_com7CABMBIENES.cat_comFieldDataTypeN(7)3CABMBIENES.masterlinFieldKeyField-4CABMBIENES.masterlinField UpdatableaGCABMBIENES.masterlinField UpdateNamebienes.masterlin9CABMBIENES.masterlinFieldDataTypeN(2)-C ABMBIENES.actFieldKeyField-.C ABMBIENES.actField Updatablea;C ABMBIENES.actField UpdateName bienes.act0C ABMBIENES.actFieldDataTypeT1CABMBIENES.ult_modFieldKeyField-2CABMBIENES.ult_modField UpdatableaCCABMBIENES.ult_modField UpdateNamebienes.ult_mod4CABMBIENES.ult_modFieldDataTypeT/CABMBIENES.asistFieldKeyField-0CABMBIENES.asistField Updatablea?CABMBIENES.asistField UpdateName bienes.asist5CABMBIENES.asistFieldDataTypeC(1)1CABMBIENES.dtoprv1FieldKeyField-2CABMBIENES.dtoprv1Field UpdatableaCCABMBIENES.dtoprv1Field UpdateNamebienes.dtoprv19CABMBIENES.dtoprv1FieldDataTypeN(6,2)1CABMBIENES.dtoprv2FieldKeyField-2CABMBIENES.dtoprv2Field UpdatableaCCABMBIENES.dtoprv2Field UpdateNamebienes.dtoprv29CABMBIENES.dtoprv2FieldDataTypeN(6,2)3CABMBIENES.uxbcompraFieldKeyField-4CABMBIENES.uxbcompraField UpdatableaGCABMBIENES.uxbcompraField UpdateNamebienes.uxbcompra:CABMBIENES.uxbcompraFieldDataTypeN(10)0CABMBIENES.acopioFieldKeyField-1CABMBIENES.acopioField UpdatableaACABMBIENES.acopioField UpdateName bienes.acopio6CABMBIENES.acopioFieldDataTypeN(2).CABMBIENES.vencFieldKeyField-/CABMBIENES.vencField Updatablea=CABMBIENES.vencField UpdateName bienes.venc4CABMBIENES.vencFieldDataTypeN(5)2CABMBIENES.anticipoFieldKeyField-3CABMBIENES.anticipoField UpdatableaECABMBIENES.anticipoField UpdateNamebienes.anticipo5CABMBIENES.anticipoFieldDataTypeLUPVBULTOSQ;SELECT * FROM bultos WHERE Bultos.cod_ins == ( ?xcodins )*CVBULTOSView UpdateType)CVBULTOSView WhereType'CVBULTOSView FetchMemoa)CVBULTOSView SendUpdatesa+CVBULTOSView UseMemoSize)CVBULTOSView FetchSized+CVBULTOSView MaxRecords0CVBULTOSViewTables ges!bultos&CVBULTOSViewPrepared-)CVBULTOSView CompareMemoa+CVBULTOSView FetchAsNeeded-'CVBULTOSViewComment0CVBULTOSViewBatchUpdateCount-CVBULTOSViewShareConnection-/CVBULTOS.cod_insFieldKeyField-0CVBULTOS.cod_insField UpdatableaECVBULTOS.cod_insField UpdateNameges!bultos.cod_ins6CVBULTOS.cod_insFieldDataTypeC(15)-C VBULTOS.claveFieldKeyField-.C VBULTOS.claveField UpdatableaAC VBULTOS.claveField UpdateNameges!bultos.clave3C VBULTOS.claveFieldDataTypeC(3)1CVBULTOS.cantxbultFieldKeyField-2CVBULTOS.cantxbultField UpdatableaICVBULTOS.cantxbultField UpdateNameges!bultos.cantxbult:CVBULTOS.cantxbultFieldDataTypeN(10,3)1CVBULTOS.pesoxbultFieldKeyField-2CVBULTOS.pesoxbultField UpdatableaICVBULTOS.pesoxbultField UpdateNameges!bultos.pesoxbult:CVBULTOS.pesoxbultFieldDataTypeN(10,3)1CVBULTOS.voluxbultFieldKeyField-2CVBULTOS.voluxbultField UpdatableaICVBULTOS.voluxbultField UpdateNameges!bultos.voluxbult:CVBULTOS.voluxbultFieldDataTypeN(10,3).CVBULTOS.activoFieldKeyField-/CVBULTOS.activoField UpdatableaCCVBULTOS.activoField UpdateNameges!bultos.activo4CVBULTOS.activoFieldDataTypeC(1)*C VBULTOS.idFieldKeyField-+C VBULTOS.idField Updatablea;C VBULTOS.idField UpdateName ges!bultos.id1C VBULTOS.idFieldDataTypeC(18)-C VBULTOS.descrFieldKeyField-.C VBULTOS.descrField UpdatableaAC VBULTOS.descrField UpdateNameges!bultos.descr4C VBULTOS.descrFieldDataTypeC(30)+C VBULTOS.iduFieldKeyFielda,C VBULTOS.iduField Updatablea=C VBULTOS.iduField UpdateNameges!bultos.idu2C VBULTOS.iduFieldDataTypeC(10).CVBULTOS.medidaFieldKeyField-/CVBULTOS.medidaField UpdatableaCCVBULTOS.medidaField UpdateNameges!bultos.medida5CVBULTOS.medidaFieldDataTypeC(10)1CVBULTOS.medidaauxFieldKeyField-2CVBULTOS.medidaauxField UpdatableaICVBULTOS.medidaauxField UpdateNameges!bultos.medidaaux8CVBULTOS.medidaauxFieldDataTypeC(10)0CVBULTOS.grupobulFieldKeyField-1CVBULTOS.grupobulField UpdatableaGCVBULTOS.grupobulField UpdateNameges!bultos.grupobul6CVBULTOS.grupobulFieldDataTypeN(2)0CVBULTOS.genericoFieldKeyField-1CVBULTOS.genericoField UpdatableaGCVBULTOS.genericoField UpdateNameges!bultos.generico6CVBULTOS.genericoFieldDataTypeN(1).CVBULTOS.medcodFieldKeyField-/CVBULTOS.medcodField UpdatableaCCVBULTOS.medcodField UpdateNameges!bultos.medcod4CVBULTOS.medcodFieldDataTypeN(3)1CVBULTOS.medauxcodFieldKeyField-2CVBULTOS.medauxcodField UpdatableaICVBULTOS.medauxcodField UpdateNameges!bultos.medauxcod7CVBULTOS.medauxcodFieldDataTypeN(3)2CVBULTOS.cantxbult2FieldKeyField-3CVBULTOS.cantxbult2Field UpdatableaGCVBULTOS.cantxbult2Field UpdateNamebultos.cantxbult2;CVBULTOS.cantxbult2FieldDataTypeN(10,3)-C VBULTOS.ventaFieldKeyField-.C VBULTOS.ventaField Updatablea=C VBULTOS.ventaField UpdateName bultos.venta3C VBULTOS.ventaFieldDataTypeC(1),C VBULTOS.uvenFieldKeyField--C VBULTOS.uvenField Updatablea;C VBULTOS.uvenField UpdateName bultos.uven3C VBULTOS.uvenFieldDataTypeN(10).CVBULTOS.factorFieldKeyField-/CVBULTOS.factorField Updatablea?CVBULTOS.factorField UpdateName bultos.factor7CVBULTOS.factorFieldDataTypeN(18,8)-C VBULTOS.largoFieldKeyField-.C VBULTOS.largoField Updatablea=C VBULTOS.largoField UpdateName bultos.largo6C VBULTOS.largoFieldDataTypeN(10,2)-C VBULTOS.anchoFieldKeyField-.C VBULTOS.anchoField Updatablea=C VBULTOS.anchoField UpdateName bultos.ancho6C VBULTOS.anchoFieldDataTypeN(10,2).CVBULTOS.alturaFieldKeyField-/CVBULTOS.alturaField Updatablea?CVBULTOS.alturaField UpdateName bultos.altura7CVBULTOS.alturaFieldDataTypeN(10,2).CVBULTOS.blargoFieldKeyField-/CVBULTOS.blargoField Updatablea?CVBULTOS.blargoField UpdateName bultos.blargo4CVBULTOS.blargoFieldDataTypeN(3).CVBULTOS.banchoFieldKeyField-/CVBULTOS.banchoField Updatablea?CVBULTOS.banchoField UpdateName bultos.bancho4CVBULTOS.banchoFieldDataTypeN(3)/CVBULTOS.balturaFieldKeyField-0CVBULTOS.balturaField UpdatableaACVBULTOS.balturaField UpdateNamebultos.baltura5CVBULTOS.balturaFieldDataTypeN(3).CVBULTOS.hapileFieldKeyField-/CVBULTOS.hapileField Updatablea?CVBULTOS.hapileField UpdateName bultos.hapile7CVBULTOS.hapileFieldDataTypeN(10,2)-C VBULTOS.apileFieldKeyField-.C VBULTOS.apileField Updatablea=C VBULTOS.apileField UpdateName bultos.apile3C VBULTOS.apileFieldDataTypeN(3)0CVBULTOS.cantxpalFieldKeyField-1CVBULTOS.cantxpalField UpdatableaCCVBULTOS.cantxpalField UpdateNamebultos.cantxpal6CVBULTOS.cantxpalFieldDataTypeN(3)USVBUL_GENQ=SELECT * FROM bul_gen WHERE Bul_gen.cod_ins == ( ?xcodins )+CVBUL_GENView UpdateType*CVBUL_GENView WhereType(CVBUL_GENView FetchMemoa*CVBUL_GENView SendUpdatesa,CVBUL_GENView UseMemoSize*CVBUL_GENView FetchSized,CVBUL_GENView MaxRecords2CVBUL_GENViewTables ges!bul_gen'CVBUL_GENViewPrepared-*CVBUL_GENView CompareMemoa,CVBUL_GENView FetchAsNeeded-(CVBUL_GENViewComment1CVBUL_GENViewBatchUpdateCount.CVBUL_GENViewShareConnection-0CVBUL_GEN.cod_insFieldKeyField-1CVBUL_GEN.cod_insField UpdatableaGCVBUL_GEN.cod_insField UpdateNameges!bul_gen.cod_ins7CVBUL_GEN.cod_insFieldDataTypeC(15).CVBUL_GEN.claveFieldKeyField-/CVBUL_GEN.claveField UpdatableaCCVBUL_GEN.claveField UpdateNameges!bul_gen.clave4CVBUL_GEN.claveFieldDataTypeC(3)2CVBUL_GEN.cantxbultFieldKeyField-3CVBUL_GEN.cantxbultField UpdatableaKCVBUL_GEN.cantxbultField UpdateNameges!bul_gen.cantxbult;CVBUL_GEN.cantxbultFieldDataTypeN(10,3)2CVBUL_GEN.pesoxbultFieldKeyField-3CVBUL_GEN.pesoxbultField UpdatableaKCVBUL_GEN.pesoxbultField UpdateNameges!bul_gen.pesoxbult;CVBUL_GEN.pesoxbultFieldDataTypeN(10,3)2CVBUL_GEN.voluxbultFieldKeyField-3CVBUL_GEN.voluxbultField UpdatableaKCVBUL_GEN.voluxbultField UpdateNameges!bul_gen.voluxbult;CVBUL_GEN.voluxbultFieldDataTypeN(10,3)/CVBUL_GEN.activoFieldKeyField-0CVBUL_GEN.activoField UpdatableaECVBUL_GEN.activoField UpdateNameges!bul_gen.activo5CVBUL_GEN.activoFieldDataTypeC(1)+C VBUL_GEN.idFieldKeyField-,C VBUL_GEN.idField Updatablea=C VBUL_GEN.idField UpdateNameges!bul_gen.id2C VBUL_GEN.idFieldDataTypeC(18).CVBUL_GEN.descrFieldKeyField-/CVBUL_GEN.descrField UpdatableaCCVBUL_GEN.descrField UpdateNameges!bul_gen.descr5CVBUL_GEN.descrFieldDataTypeC(30),C VBUL_GEN.iduFieldKeyFielda-C VBUL_GEN.iduField Updatablea?C VBUL_GEN.iduField UpdateNameges!bul_gen.idu3C VBUL_GEN.iduFieldDataTypeC(10)/CVBUL_GEN.medidaFieldKeyField-0CVBUL_GEN.medidaField UpdatableaECVBUL_GEN.medidaField UpdateNameges!bul_gen.medida6CVBUL_GEN.medidaFieldDataTypeC(10)2CVBUL_GEN.medidaauxFieldKeyField-3CVBUL_GEN.medidaauxField UpdatableaKCVBUL_GEN.medidaauxField UpdateNameges!bul_gen.medidaaux9CVBUL_GEN.medidaauxFieldDataTypeC(10)1CVBUL_GEN.grupobulFieldKeyField-2CVBUL_GEN.grupobulField UpdatableaICVBUL_GEN.grupobulField UpdateNameges!bul_gen.grupobul7CVBUL_GEN.grupobulFieldDataTypeN(2)1CVBUL_GEN.genericoFieldKeyField-2CVBUL_GEN.genericoField UpdatableaICVBUL_GEN.genericoField UpdateNameges!bul_gen.generico7CVBUL_GEN.genericoFieldDataTypeN(1)/CVBUL_GEN.medcodFieldKeyField-0CVBUL_GEN.medcodField UpdatableaECVBUL_GEN.medcodField UpdateNameges!bul_gen.medcod5CVBUL_GEN.medcodFieldDataTypeN(3)2CVBUL_GEN.medauxcodFieldKeyField-3CVBUL_GEN.medauxcodField UpdatableaKCVBUL_GEN.medauxcodField UpdateNameges!bul_gen.medauxcod8CVBUL_GEN.medauxcodFieldDataTypeN(3)3CVBUL_GEN.cantxbult2FieldKeyField-4CVBUL_GEN.cantxbult2Field UpdatableaMCVBUL_GEN.cantxbult2Field UpdateNameges!bul_gen.cantxbult2<CVBUL_GEN.cantxbult2FieldDataTypeN(10,3).CVBUL_GEN.ventaFieldKeyField-/CVBUL_GEN.ventaField Updatablea?CVBUL_GEN.ventaField UpdateName bul_gen.venta4CVBUL_GEN.ventaFieldDataTypeC(1)-C VBUL_GEN.uvenFieldKeyField-.C VBUL_GEN.uvenField Updatablea=C VBUL_GEN.uvenField UpdateName bul_gen.uven4C VBUL_GEN.uvenFieldDataTypeN(10)/CVBUL_GEN.factorFieldKeyField-0CVBUL_GEN.factorField UpdatableaACVBUL_GEN.factorField UpdateNamebul_gen.factor8CVBUL_GEN.factorFieldDataTypeN(18,8).CVBUL_GEN.largoFieldKeyField-/CVBUL_GEN.largoField Updatablea?CVBUL_GEN.largoField UpdateName bul_gen.largo7CVBUL_GEN.largoFieldDataTypeN(10,2).CVBUL_GEN.anchoFieldKeyField-/CVBUL_GEN.anchoField Updatablea?CVBUL_GEN.anchoField UpdateName bul_gen.ancho7CVBUL_GEN.anchoFieldDataTypeN(10,2)/CVBUL_GEN.alturaFieldKeyField-0CVBUL_GEN.alturaField UpdatableaACVBUL_GEN.alturaField UpdateNamebul_gen.altura8CVBUL_GEN.alturaFieldDataTypeN(10,2)/CVBUL_GEN.blargoFieldKeyField-0CVBUL_GEN.blargoField UpdatableaACVBUL_GEN.blargoField UpdateNamebul_gen.blargo5CVBUL_GEN.blargoFieldDataTypeN(3)/CVBUL_GEN.banchoFieldKeyField-0CVBUL_GEN.banchoField UpdatableaACVBUL_GEN.banchoField UpdateNamebul_gen.bancho5CVBUL_GEN.banchoFieldDataTypeN(3)0CVBUL_GEN.balturaFieldKeyField-1CVBUL_GEN.balturaField UpdatableaCCVBUL_GEN.balturaField UpdateNamebul_gen.baltura6CVBUL_GEN.balturaFieldDataTypeN(3)/CVBUL_GEN.hapileFieldKeyField-0CVBUL_GEN.hapileField UpdatableaACVBUL_GEN.hapileField UpdateNamebul_gen.hapile8CVBUL_GEN.hapileFieldDataTypeN(10,2).CVBUL_GEN.apileFieldKeyField-/CVBUL_GEN.apileField Updatablea?CVBUL_GEN.apileField UpdateName bul_gen.apile4CVBUL_GEN.apileFieldDataTypeN(3)1CVBUL_GEN.cantxpalFieldKeyField-2CVBUL_GEN.cantxpalField UpdatableaECVBUL_GEN.cantxpalField UpdateNamebul_gen.cantxpal7CVBUL_GEN.cantxpalFieldDataTypeN(3)UW ABMVBULTOSQ?SELECT * FROM ges!vbultos WHERE Vbultos.clave == ( ?xcodigo )-C ABMVBULTOSView UpdateType,C ABMVBULTOSView WhereType*C ABMVBULTOSView FetchMemoa,C ABMVBULTOSView SendUpdatesa.C ABMVBULTOSView UseMemoSize,C ABMVBULTOSView FetchSized.C ABMVBULTOSView MaxRecords4C ABMVBULTOSViewTables ges!vbultos)C ABMVBULTOSViewPrepared-,C ABMVBULTOSView CompareMemoa.C ABMVBULTOSView FetchAsNeeded-*C ABMVBULTOSViewComment3C ABMVBULTOSViewBatchUpdateCount0C ABMVBULTOSViewShareConnection-2CABMVBULTOS.cod_insFieldKeyField-3CABMVBULTOS.cod_insField UpdatableaICABMVBULTOS.cod_insField UpdateNameges!vbultos.cod_ins9CABMVBULTOS.cod_insFieldDataTypeC(15)0CABMVBULTOS.claveFieldKeyField-1CABMVBULTOS.claveField UpdatableaECABMVBULTOS.claveField UpdateNameges!vbultos.clave6CABMVBULTOS.claveFieldDataTypeC(3)4CABMVBULTOS.cantxbultFieldKeyField-5CABMVBULTOS.cantxbultField UpdatableaMCABMVBULTOS.cantxbultField UpdateNameges!vbultos.cantxbult=CABMVBULTOS.cantxbultFieldDataTypeN(10,3)4CABMVBULTOS.pesoxbultFieldKeyField-5CABMVBULTOS.pesoxbultField UpdatableaMCABMVBULTOS.pesoxbultField UpdateNameges!vbultos.pesoxbult=CABMVBULTOS.pesoxbultFieldDataTypeN(10,3)4CABMVBULTOS.voluxbultFieldKeyField-5CABMVBULTOS.voluxbultField UpdatableaMCABMVBULTOS.voluxbultField UpdateNameges!vbultos.voluxbult=CABMVBULTOS.voluxbultFieldDataTypeN(10,3)1CABMVBULTOS.activoFieldKeyField-2CABMVBULTOS.activoField UpdatableaGCABMVBULTOS.activoField UpdateNameges!vbultos.activo7CABMVBULTOS.activoFieldDataTypeC(1)-C ABMVBULTOS.idFieldKeyField-.C ABMVBULTOS.idField Updatablea?C ABMVBULTOS.idField UpdateNameges!vbultos.id4C ABMVBULTOS.idFieldDataTypeC(18)0CABMVBULTOS.descrFieldKeyField-1CABMVBULTOS.descrField UpdatableaECABMVBULTOS.descrField UpdateNameges!vbultos.descr7CABMVBULTOS.descrFieldDataTypeC(30).CABMVBULTOS.iduFieldKeyFielda/CABMVBULTOS.iduField UpdatableaACABMVBULTOS.iduField UpdateNameges!vbultos.idu5CABMVBULTOS.iduFieldDataTypeC(10)1CABMVBULTOS.medidaFieldKeyField-2CABMVBULTOS.medidaField UpdatableaGCABMVBULTOS.medidaField UpdateNameges!vbultos.medida8CABMVBULTOS.medidaFieldDataTypeC(10)4CABMVBULTOS.medidaauxFieldKeyField-5CABMVBULTOS.medidaauxField UpdatableaMCABMVBULTOS.medidaauxField UpdateNameges!vbultos.medidaaux;CABMVBULTOS.medidaauxFieldDataTypeC(10)3CABMVBULTOS.grupobulFieldKeyField-4CABMVBULTOS.grupobulField UpdatableaKCABMVBULTOS.grupobulField UpdateNameges!vbultos.grupobul9CABMVBULTOS.grupobulFieldDataTypeN(2)3CABMVBULTOS.genericoFieldKeyField-4CABMVBULTOS.genericoField UpdatableaKCABMVBULTOS.genericoField UpdateNameges!vbultos.generico9CABMVBULTOS.genericoFieldDataTypeN(1)1CABMVBULTOS.medcodFieldKeyField-2CABMVBULTOS.medcodField UpdatableaGCABMVBULTOS.medcodField UpdateNameges!vbultos.medcod7CABMVBULTOS.medcodFieldDataTypeN(3)4CABMVBULTOS.medauxcodFieldKeyField-5CABMVBULTOS.medauxcodField UpdatableaMCABMVBULTOS.medauxcodField UpdateNameges!vbultos.medauxcod:CABMVBULTOS.medauxcodFieldDataTypeN(3)5CABMVBULTOS.cantxbult2FieldKeyField-6CABMVBULTOS.cantxbult2Field UpdatableaOCABMVBULTOS.cantxbult2Field UpdateNameges!vbultos.cantxbult2>CABMVBULTOS.cantxbult2FieldDataTypeN(10,3)0CABMVBULTOS.ventaFieldKeyField-1CABMVBULTOS.ventaField UpdatableaECABMVBULTOS.ventaField UpdateNameges!vbultos.venta6CABMVBULTOS.ventaFieldDataTypeC(1)/CABMVBULTOS.uvenFieldKeyField-0CABMVBULTOS.uvenField UpdatableaCCABMVBULTOS.uvenField UpdateNameges!vbultos.uven6CABMVBULTOS.uvenFieldDataTypeN(10)1CABMVBULTOS.factorFieldKeyField-2CABMVBULTOS.factorField UpdatableaGCABMVBULTOS.factorField UpdateNameges!vbultos.factor:CABMVBULTOS.factorFieldDataTypeN(18,8)0CABMVBULTOS.largoFieldKeyField-1CABMVBULTOS.largoField UpdatableaECABMVBULTOS.largoField UpdateNameges!vbultos.largo9CABMVBULTOS.largoFieldDataTypeN(10,2)0CABMVBULTOS.anchoFieldKeyField-1CABMVBULTOS.anchoField UpdatableaECABMVBULTOS.anchoField UpdateNameges!vbultos.ancho9CABMVBULTOS.anchoFieldDataTypeN(10,2)1CABMVBULTOS.alturaFieldKeyField-2CABMVBULTOS.alturaField UpdatableaGCABMVBULTOS.alturaField UpdateNameges!vbultos.altura:CABMVBULTOS.alturaFieldDataTypeN(10,2)1CABMVBULTOS.blargoFieldKeyField-2CABMVBULTOS.blargoField UpdatableaGCABMVBULTOS.blargoField UpdateNameges!vbultos.blargo7CABMVBULTOS.blargoFieldDataTypeN(3)1CABMVBULTOS.banchoFieldKeyField-2CABMVBULTOS.banchoField UpdatableaGCABMVBULTOS.banchoField UpdateNameges!vbultos.bancho7CABMVBULTOS.banchoFieldDataTypeN(3)2CABMVBULTOS.balturaFieldKeyField-3CABMVBULTOS.balturaField UpdatableaICABMVBULTOS.balturaField UpdateNameges!vbultos.baltura8CABMVBULTOS.balturaFieldDataTypeN(3)1CABMVBULTOS.hapileFieldKeyField-2CABMVBULTOS.hapileField UpdatableaGCABMVBULTOS.hapileField UpdateNameges!vbultos.hapile:CABMVBULTOS.hapileFieldDataTypeN(10,2)0CABMVBULTOS.apileFieldKeyField-1CABMVBULTOS.apileField UpdatableaECABMVBULTOS.apileField UpdateNameges!vbultos.apile6CABMVBULTOS.apileFieldDataTypeN(3)3CABMVBULTOS.cantxpalFieldKeyField-4CABMVBULTOS.cantxpalField UpdatableaKCABMVBULTOS.cantxpalField UpdateNameges!vbultos.cantxpal9CABMVBULTOS.cantxpalFieldDataTypeN(3)UmZ ABMVBUL_GENQASELECT * FROM ges!vbul_gen WHERE Vbul_gen.clave == ( ?xcodigo ).C ABMVBUL_GENView UpdateType-C ABMVBUL_GENView WhereType+C ABMVBUL_GENView FetchMemoa-C ABMVBUL_GENView SendUpdatesa/C ABMVBUL_GENView UseMemoSize-C ABMVBUL_GENView FetchSized/C ABMVBUL_GENView MaxRecords6C ABMVBUL_GENViewTables ges!vbul_gen*C ABMVBUL_GENViewPrepared--C ABMVBUL_GENView CompareMemoa/C ABMVBUL_GENView FetchAsNeeded-+C ABMVBUL_GENViewComment4C ABMVBUL_GENViewBatchUpdateCount1C ABMVBUL_GENViewShareConnection-3CABMVBUL_GEN.cod_insFieldKeyField-4CABMVBUL_GEN.cod_insField UpdatableaKCABMVBUL_GEN.cod_insField UpdateNameges!vbul_gen.cod_ins:CABMVBUL_GEN.cod_insFieldDataTypeC(15)1CABMVBUL_GEN.claveFieldKeyField-2CABMVBUL_GEN.claveField UpdatableaGCABMVBUL_GEN.claveField UpdateNameges!vbul_gen.clave7CABMVBUL_GEN.claveFieldDataTypeC(3)5CABMVBUL_GEN.cantxbultFieldKeyField-6CABMVBUL_GEN.cantxbultField UpdatableaOCABMVBUL_GEN.cantxbultField UpdateNameges!vbul_gen.cantxbult>CABMVBUL_GEN.cantxbultFieldDataTypeN(10,3)5CABMVBUL_GEN.pesoxbultFieldKeyField-6CABMVBUL_GEN.pesoxbultField UpdatableaOCABMVBUL_GEN.pesoxbultField UpdateNameges!vbul_gen.pesoxbult>CABMVBUL_GEN.pesoxbultFieldDataTypeN(10,3)5CABMVBUL_GEN.voluxbultFieldKeyField-6CABMVBUL_GEN.voluxbultField UpdatableaOCABMVBUL_GEN.voluxbultField UpdateNameges!vbul_gen.voluxbult>CABMVBUL_GEN.voluxbultFieldDataTypeN(10,3)2CABMVBUL_GEN.activoFieldKeyField-3CABMVBUL_GEN.activoField UpdatableaICABMVBUL_GEN.activoField UpdateNameges!vbul_gen.activo8CABMVBUL_GEN.activoFieldDataTypeC(1).CABMVBUL_GEN.idFieldKeyField-/CABMVBUL_GEN.idField UpdatableaACABMVBUL_GEN.idField UpdateNameges!vbul_gen.id5CABMVBUL_GEN.idFieldDataTypeC(18)1CABMVBUL_GEN.descrFieldKeyField-2CABMVBUL_GEN.descrField UpdatableaGCABMVBUL_GEN.descrField UpdateNameges!vbul_gen.descr8CABMVBUL_GEN.descrFieldDataTypeC(30)/CABMVBUL_GEN.iduFieldKeyFielda0CABMVBUL_GEN.iduField UpdatableaCCABMVBUL_GEN.iduField UpdateNameges!vbul_gen.idu6CABMVBUL_GEN.iduFieldDataTypeC(10)2CABMVBUL_GEN.medidaFieldKeyField-3CABMVBUL_GEN.medidaField UpdatableaICABMVBUL_GEN.medidaField UpdateNameges!vbul_gen.medida9CABMVBUL_GEN.medidaFieldDataTypeC(10)5CABMVBUL_GEN.medidaauxFieldKeyField-6CABMVBUL_GEN.medidaauxField UpdatableaOCABMVBUL_GEN.medidaauxField UpdateNameges!vbul_gen.medidaaux<CABMVBUL_GEN.medidaauxFieldDataTypeC(10)4CABMVBUL_GEN.grupobulFieldKeyField-5CABMVBUL_GEN.grupobulField UpdatableaMCABMVBUL_GEN.grupobulField UpdateNameges!vbul_gen.grupobul:CABMVBUL_GEN.grupobulFieldDataTypeN(2)4CABMVBUL_GEN.genericoFieldKeyField-5CABMVBUL_GEN.genericoField UpdatableaMCABMVBUL_GEN.genericoField UpdateNameges!vbul_gen.generico:CABMVBUL_GEN.genericoFieldDataTypeN(1)2CABMVBUL_GEN.medcodFieldKeyField-3CABMVBUL_GEN.medcodField UpdatableaICABMVBUL_GEN.medcodField UpdateNameges!vbul_gen.medcod8CABMVBUL_GEN.medcodFieldDataTypeN(3)5CABMVBUL_GEN.medauxcodFieldKeyField-6CABMVBUL_GEN.medauxcodField UpdatableaOCABMVBUL_GEN.medauxcodField UpdateNameges!vbul_gen.medauxcod;CABMVBUL_GEN.medauxcodFieldDataTypeN(3)6CABMVBUL_GEN.cantxbult2FieldKeyField-7CABMVBUL_GEN.cantxbult2Field UpdatableaQCABMVBUL_GEN.cantxbult2Field UpdateNameges!vbul_gen.cantxbult2?CABMVBUL_GEN.cantxbult2FieldDataTypeN(10,3)1CABMVBUL_GEN.ventaFieldKeyField-2CABMVBUL_GEN.ventaField UpdatableaGCABMVBUL_GEN.ventaField UpdateNameges!vbul_gen.venta7CABMVBUL_GEN.ventaFieldDataTypeC(1)0CABMVBUL_GEN.uvenFieldKeyField-1CABMVBUL_GEN.uvenField UpdatableaECABMVBUL_GEN.uvenField UpdateNameges!vbul_gen.uven7CABMVBUL_GEN.uvenFieldDataTypeN(10)2CABMVBUL_GEN.factorFieldKeyField-3CABMVBUL_GEN.factorField UpdatableaICABMVBUL_GEN.factorField UpdateNameges!vbul_gen.factor;CABMVBUL_GEN.factorFieldDataTypeN(18,8)1CABMVBUL_GEN.largoFieldKeyField-2CABMVBUL_GEN.largoField UpdatableaGCABMVBUL_GEN.largoField UpdateNameges!vbul_gen.largo:CABMVBUL_GEN.largoFieldDataTypeN(10,2)1CABMVBUL_GEN.anchoFieldKeyField-2CABMVBUL_GEN.anchoField UpdatableaGCABMVBUL_GEN.anchoField UpdateNameges!vbul_gen.ancho:CABMVBUL_GEN.anchoFieldDataTypeN(10,2)2CABMVBUL_GEN.alturaFieldKeyField-3CABMVBUL_GEN.alturaField UpdatableaICABMVBUL_GEN.alturaField UpdateNameges!vbul_gen.altura;CABMVBUL_GEN.alturaFieldDataTypeN(10,2)2CABMVBUL_GEN.blargoFieldKeyField-3CABMVBUL_GEN.blargoField UpdatableaICABMVBUL_GEN.blargoField UpdateNameges!vbul_gen.blargo8CABMVBUL_GEN.blargoFieldDataTypeN(3)2CABMVBUL_GEN.banchoFieldKeyField-3CABMVBUL_GEN.banchoField UpdatableaICABMVBUL_GEN.banchoField UpdateNameges!vbul_gen.bancho8CABMVBUL_GEN.banchoFieldDataTypeN(3)3CABMVBUL_GEN.balturaFieldKeyField-4CABMVBUL_GEN.balturaField UpdatableaKCABMVBUL_GEN.balturaField UpdateNameges!vbul_gen.baltura9CABMVBUL_GEN.balturaFieldDataTypeN(3)2CABMVBUL_GEN.hapileFieldKeyField-3CABMVBUL_GEN.hapileField UpdatableaICABMVBUL_GEN.hapileField UpdateNameges!vbul_gen.hapile;CABMVBUL_GEN.hapileFieldDataTypeN(10,2)1CABMVBUL_GEN.apileFieldKeyField-2CABMVBUL_GEN.apileField UpdatableaGCABMVBUL_GEN.apileField UpdateNameges!vbul_gen.apile7CABMVBUL_GEN.apileFieldDataTypeN(3)4CABMVBUL_GEN.cantxpalFieldKeyField-5CABMVBUL_GEN.cantxpalField UpdatableaMCABMVBUL_GEN.cantxpalField UpdateNameges!vbul_gen.cantxpal:CABMVBUL_GEN.cantxpalFieldDataTypeN(3)U L ABMAGENTEQ5SELECT * FROM agente WHERE Agente.cod_age == ?xcodigo,C ABMAGENTEView UpdateType+C ABMAGENTEView WhereType)C ABMAGENTEView FetchMemoa+C ABMAGENTEView SendUpdatesa-C ABMAGENTEView UseMemoSize+C ABMAGENTEView FetchSized-C ABMAGENTEView MaxRecords.C ABMAGENTEViewTablesagente(C ABMAGENTEViewPrepared-+C ABMAGENTEView CompareMemoa-C ABMAGENTEView FetchAsNeeded-)C ABMAGENTEViewComment2C ABMAGENTEViewBatchUpdateCount/C ABMAGENTEViewShareConnection-1CABMAGENTE.cod_ageFieldKeyField-2CABMAGENTE.cod_ageField UpdatableaCCABMAGENTE.cod_ageField UpdateNameagente.cod_age7CABMAGENTE.cod_ageFieldDataTypeC(8)0CABMAGENTE.nombreFieldKeyField-1CABMAGENTE.nombreField UpdatableaACABMAGENTE.nombreField UpdateName agente.nombre7CABMAGENTE.nombreFieldDataTypeC(30)3CABMAGENTE.domicilioFieldKeyField-4CABMAGENTE.domicilioField UpdatableaGCABMAGENTE.domicilioField UpdateNameagente.domicilio:CABMAGENTE.domicilioFieldDataTypeC(30)0CABMAGENTE.ciudadFieldKeyField-1CABMAGENTE.ciudadField UpdatableaACABMAGENTE.ciudadField UpdateName agente.ciudad7CABMAGENTE.ciudadFieldDataTypeC(20)3CABMAGENTE.provinciaFieldKeyField-4CABMAGENTE.provinciaField UpdatableaGCABMAGENTE.provinciaField UpdateNameagente.provincia9CABMAGENTE.provinciaFieldDataTypeC(1).CABMAGENTE.paisFieldKeyField-/CABMAGENTE.paisField Updatablea=CABMAGENTE.paisField UpdateName agente.pais4CABMAGENTE.paisFieldDataTypeN(3)1CABMAGENTE.cod_zipFieldKeyField-2CABMAGENTE.cod_zipField UpdatableaCCABMAGENTE.cod_zipField UpdateNameagente.cod_zip7CABMAGENTE.cod_zipFieldDataTypeC(5)/CABMAGENTE.claseFieldKeyField-0CABMAGENTE.claseField Updatablea?CABMAGENTE.claseField UpdateName agente.clase5CABMAGENTE.claseFieldDataTypeC(4)2CABMAGENTE.comixvenFieldKeyField-3CABMAGENTE.comixvenField UpdatableaECABMAGENTE.comixvenField UpdateNameagente.comixven:CABMAGENTE.comixvenFieldDataTypeN(6,2)2CABMAGENTE.comixcobFieldKeyField-3CABMAGENTE.comixcobField UpdatableaECABMAGENTE.comixcobField UpdateNameagente.comixcob:CABMAGENTE.comixcobFieldDataTypeN(6,2)2CABMAGENTE.comixcomFieldKeyField-3CABMAGENTE.comixcomField UpdatableaECABMAGENTE.comixcomField UpdateNameagente.comixcom:CABMAGENTE.comixcomFieldDataTypeN(6,2)2CABMAGENTE.comixpagFieldKeyField-3CABMAGENTE.comixpagField UpdatableaECABMAGENTE.comixpagField UpdateNameagente.comixpag8CABMAGENTE.comixpagFieldDataTypeN(6)/CABMAGENTE.fechaFieldKeyField-0CABMAGENTE.fechaField Updatablea?CABMAGENTE.fechaField UpdateName agente.fecha2CABMAGENTE.fechaFieldDataTypeD.CABMAGENTE.zonaFieldKeyField-/CABMAGENTE.zonaField Updatablea=CABMAGENTE.zonaField UpdateName agente.zona4CABMAGENTE.zonaFieldDataTypeN(6)/CABMAGENTE.phonoFieldKeyField-0CABMAGENTE.phonoField Updatablea?CABMAGENTE.phonoField UpdateName agente.phono6CABMAGENTE.phonoFieldDataTypeC(20).CABMAGENTE.cuitFieldKeyField-/CABMAGENTE.cuitField Updatablea=CABMAGENTE.cuitField UpdateName agente.cuit5CABMAGENTE.cuitFieldDataTypeC(13)1CABMAGENTE.codinscFieldKeyField-2CABMAGENTE.codinscField UpdatableaCCABMAGENTE.codinscField UpdateNameagente.codinsc7CABMAGENTE.codinscFieldDataTypeN(1)2CABMAGENTE.comixdisFieldKeyField-3CABMAGENTE.comixdisField UpdatableaECABMAGENTE.comixdisField UpdateNameagente.comixdis:CABMAGENTE.comixdisFieldDataTypeN(6,2)-C ABMAGENTE.faxFieldKeyField-.C ABMAGENTE.faxField Updatablea;C ABMAGENTE.faxField UpdateName agente.fax4C ABMAGENTE.faxFieldDataTypeC(20)/CABMAGENTE.emailFieldKeyField-0CABMAGENTE.emailField Updatablea?CABMAGENTE.emailField UpdateName agente.email6CABMAGENTE.emailFieldDataTypeC(50)-C ABMAGENTE.iduFieldKeyFielda.C ABMAGENTE.iduField Updatablea;C ABMAGENTE.iduField UpdateName agente.idu4C ABMAGENTE.iduFieldDataTypeC(10)/CABMAGENTE.lineaFieldKeyField-0CABMAGENTE.lineaField Updatablea?CABMAGENTE.lineaField UpdateName agente.linea6CABMAGENTE.lineaFieldDataTypeN(10)3CABMAGENTE.pdf_subirFieldKeyField-4CABMAGENTE.pdf_subirField UpdatableaGCABMAGENTE.pdf_subirField UpdateNameagente.pdf_subir9CABMAGENTE.pdf_subirFieldDataTypeN(1)1CABMAGENTE.ult_modFieldKeyField-2CABMAGENTE.ult_modField UpdatableaCCABMAGENTE.ult_modField UpdateNameagente.ult_mod4CABMAGENTE.ult_modFieldDataTypeTUJ ABMCATPROQ3SELECT * FROM catpro WHERE Catpro.codigo = ?xcodigo,C ABMCATPROView UpdateType+C ABMCATPROView WhereType)C ABMCATPROView FetchMemoa+C ABMCATPROView SendUpdatesa-C ABMCATPROView UseMemoSize+C ABMCATPROView FetchSized-C ABMCATPROView MaxRecords.C ABMCATPROViewTablescatpro(C ABMCATPROViewPrepared-+C ABMCATPROView CompareMemoa-C ABMCATPROView FetchAsNeeded-)C ABMCATPROViewComment2C ABMCATPROViewBatchUpdateCount/C ABMCATPROViewShareConnection-0CABMCATPRO.codigoFieldKeyField-1CABMCATPRO.codigoField UpdatableaACABMCATPRO.codigoField UpdateName catpro.codigo6CABMCATPRO.codigoFieldDataTypeN(4)/CABMCATPRO.descrFieldKeyField-0CABMCATPRO.descrField Updatablea?CABMCATPRO.descrField UpdateName catpro.descr6CABMCATPRO.descrFieldDataTypeC(30)-C ABMCATPRO.iduFieldKeyFielda.C ABMCATPRO.iduField Updatablea;C ABMCATPRO.iduField UpdateName catpro.idu4C ABMCATPRO.iduFieldDataTypeC(10)1CABMCATPRO.ult_modFieldKeyField-2CABMCATPRO.ult_modField UpdatableaCCABMCATPRO.ult_modField UpdateNamecatpro.ult_mod4CABMCATPRO.ult_modFieldDataTypeTUW ABMCCFORMULQ>SELECT * FROM ccformul WHERE Ccformul.formula = ( ?xcodigo ).C ABMCCFORMULView UpdateType-C ABMCCFORMULView WhereType+C ABMCCFORMULView FetchMemoa-C ABMCCFORMULView SendUpdatesa/C ABMCCFORMULView UseMemoSize-C ABMCCFORMULView FetchSized/C ABMCCFORMULView MaxRecords6C ABMCCFORMULViewTables ges!ccformul*C ABMCCFORMULViewPrepared--C ABMCCFORMULView CompareMemoa/C ABMCCFORMULView FetchAsNeeded-+C ABMCCFORMULViewComment4C ABMCCFORMULViewBatchUpdateCount1C ABMCCFORMULViewShareConnection-3CABMCCFORMUL.formulaFieldKeyField-4CABMCCFORMUL.formulaField UpdatableaKCABMCCFORMUL.formulaField UpdateNameges!ccformul.formula:CABMCCFORMUL.formulaFieldDataTypeN(10)2CABMCCFORMUL.codigoFieldKeyField-3CABMCCFORMUL.codigoField UpdatableaICABMCCFORMUL.codigoField UpdateNameges!ccformul.codigo9CABMCCFORMUL.codigoFieldDataTypeC(15)4CABMCCFORMUL.cantidadFieldKeyField-5CABMCCFORMUL.cantidadField UpdatableaMCABMCCFORMUL.cantidadField UpdateNameges!ccformul.cantidad=CABMCCFORMUL.cantidadFieldDataTypeN(14,2)2CABMCCFORMUL.cierreFieldKeyField-3CABMCCFORMUL.cierreField UpdatableaICABMCCFORMUL.cierreField UpdateNameges!ccformul.cierre8CABMCCFORMUL.cierreFieldDataTypeC(1)4CABMCCFORMUL.depositoFieldKeyField-5CABMCCFORMUL.depositoField UpdatableaMCABMCCFORMUL.depositoField UpdateNameges!ccformul.deposito:CABMCCFORMUL.depositoFieldDataTypeC(8)1CABMCCFORMUL.descrFieldKeyField-2CABMCCFORMUL.descrField UpdatableaGCABMCCFORMUL.descrField UpdateNameges!ccformul.descr8CABMCCFORMUL.descrFieldDataTypeC(40)/CABMCCFORMUL.bulFieldKeyField-0CABMCCFORMUL.bulField UpdatableaCCABMCCFORMUL.bulField UpdateNameges!ccformul.bul5CABMCCFORMUL.bulFieldDataTypeC(3)/CABMCCFORMUL.atrFieldKeyField-0CABMCCFORMUL.atrField UpdatableaCCABMCCFORMUL.atrField UpdateNameges!ccformul.atr5CABMCCFORMUL.atrFieldDataTypeC(3)0CABMCCFORMUL.pendFieldKeyField-1CABMCCFORMUL.pendField UpdatableaECABMCCFORMUL.pendField UpdateNameges!ccformul.pend3CABMCCFORMUL.pendFieldDataTypeL4CABMCCFORMUL.minbatchFieldKeyField-5CABMCCFORMUL.minbatchField UpdatableaMCABMCCFORMUL.minbatchField UpdateNameges!ccformul.minbatch;CABMCCFORMUL.minbatchFieldDataTypeN(10)4CABMCCFORMUL.maxbatchFieldKeyField-5CABMCCFORMUL.maxbatchField UpdatableaMCABMCCFORMUL.maxbatchField UpdateNameges!ccformul.maxbatch;CABMCCFORMUL.maxbatchFieldDataTypeN(10)/CABMCCFORMUL.stkFieldKeyField-0CABMCCFORMUL.stkField UpdatableaCCABMCCFORMUL.stkField UpdateNameges!ccformul.stk5CABMCCFORMUL.stkFieldDataTypeC(1).CABMCCFORMUL.peFieldKeyField-/CABMCCFORMUL.peField UpdatableaACABMCCFORMUL.peField UpdateNameges!ccformul.pe7CABMCCFORMUL.peFieldDataTypeN(18,6)4CABMCCFORMUL.costohoyFieldKeyField-5CABMCCFORMUL.costohoyField UpdatableaMCABMCCFORMUL.costohoyField UpdateNameges!ccformul.costohoy=CABMCCFORMUL.costohoyFieldDataTypeN(14,6)4CABMCCFORMUL.costocieFieldKeyField-5CABMCCFORMUL.costocieField UpdatableaMCABMCCFORMUL.costocieField UpdateNameges!ccformul.costocie=CABMCCFORMUL.costocieFieldDataTypeN(14,6)2CABMCCFORMUL.activaFieldKeyField-3CABMCCFORMUL.activaField UpdatableaICABMCCFORMUL.activaField UpdateNameges!ccformul.activa8CABMCCFORMUL.activaFieldDataTypeC(1)4CABMCCFORMUL.costoantFieldKeyField-5CABMCCFORMUL.costoantField UpdatableaMCABMCCFORMUL.costoantField UpdateNameges!ccformul.costoant=CABMCCFORMUL.costoantFieldDataTypeN(14,6)/CABMCCFORMUL.iduFieldKeyFielda0CABMCCFORMUL.iduField UpdatableaCCABMCCFORMUL.iduField UpdateNameges!ccformul.idu6CABMCCFORMUL.iduFieldDataTypeC(10)3CABMCCFORMUL.maquinaFieldKeyField-4CABMCCFORMUL.maquinaField UpdatableaGCABMCCFORMUL.maquinaField UpdateNameccformul.maquina:CABMCCFORMUL.maquinaFieldDataTypeN(10)6CABMCCFORMUL.cie_parciaFieldKeyField-7CABMCCFORMUL.cie_parciaField UpdatableaQCABMCCFORMUL.cie_parciaField UpdateNameges!ccformul.cie_parcia<CABMCCFORMUL.cie_parciaFieldDataTypeC(1)0CABMCCFORMUL.pesoFieldKeyField-1CABMCCFORMUL.pesoField UpdatableaECABMCCFORMUL.pesoField UpdateNameges!ccformul.peso9CABMCCFORMUL.pesoFieldDataTypeN(14,3)3CABMCCFORMUL.est_actFieldKeyField-4CABMCCFORMUL.est_actField UpdatableaKCABMCCFORMUL.est_actField UpdateNameges!ccformul.est_act9CABMCCFORMUL.est_actFieldDataTypeN(1)5CABMCCFORMUL.tox_desdeFieldKeyField-6CABMCCFORMUL.tox_desdeField UpdatableaKCABMCCFORMUL.tox_desdeField UpdateNameccformul.tox_desde;CABMCCFORMUL.tox_desdeFieldDataTypeN(2)5CABMCCFORMUL.tox_hastaFieldKeyField-6CABMCCFORMUL.tox_hastaField UpdatableaKCABMCCFORMUL.tox_hastaField UpdateNameccformul.tox_hasta;CABMCCFORMUL.tox_hastaFieldDataTypeN(2)4CABMCCFORMUL.mult_resFieldKeyField-5CABMCCFORMUL.mult_resField UpdatableaICABMCCFORMUL.mult_resField UpdateNameccformul.mult_res7CABMCCFORMUL.mult_resFieldDataTypeL2CABMCCFORMUL.depingFieldKeyField-3CABMCCFORMUL.depingField UpdatableaECABMCCFORMUL.depingField UpdateNameccformul.deping8CABMCCFORMUL.depingFieldDataTypeC(8)5CABMCCFORMUL.mermactrlFieldKeyField-6CABMCCFORMUL.mermactrlField UpdatableaKCABMCCFORMUL.mermactrlField UpdateNameccformul.mermactrl;CABMCCFORMUL.mermactrlFieldDataTypeC(1)2CABMCCFORMUL.artperFieldKeyField-3CABMCCFORMUL.artperField UpdatableaECABMCCFORMUL.artperField UpdateNameccformul.artper9CABMCCFORMUL.artperFieldDataTypeC(15)3CABMCCFORMUL.ult_modFieldKeyField-4CABMCCFORMUL.ult_modField UpdatableaGCABMCCFORMUL.ult_modField UpdateNameccformul.ult_mod6CABMCCFORMUL.ult_modFieldDataTypeTU5V ABMCENTRALQ=SELECT * FROM central WHERE Central.central == ( ?xcodigo )-C ABMCENTRALView UpdateType,C ABMCENTRALView WhereType*C ABMCENTRALView FetchMemoa,C ABMCENTRALView SendUpdatesa.C ABMCENTRALView UseMemoSize,C ABMCENTRALView FetchSized.C ABMCENTRALView MaxRecords4C ABMCENTRALViewTables ges!central)C ABMCENTRALViewPrepared-,C ABMCENTRALView CompareMemoa.C ABMCENTRALView FetchAsNeeded-*C ABMCENTRALViewComment3C ABMCENTRALViewBatchUpdateCount0C ABMCENTRALViewShareConnection-2CABMCENTRAL.centralFieldKeyField-3CABMCENTRAL.centralField UpdatableaICABMCENTRAL.centralField UpdateNameges!central.central8CABMCENTRAL.centralFieldDataTypeC(8)0CABMCENTRAL.descrFieldKeyField-1CABMCENTRAL.descrField UpdatableaECABMCENTRAL.descrField UpdateNameges!central.descr7CABMCENTRAL.descrFieldDataTypeC(30).CABMCENTRAL.iduFieldKeyFielda/CABMCENTRAL.iduField UpdatableaACABMCENTRAL.iduField UpdateNameges!central.idu5CABMCENTRAL.iduFieldDataTypeC(10)4CABMCENTRAL.ubicacionFieldKeyField-5CABMCENTRAL.ubicacionField UpdatableaICABMCENTRAL.ubicacionField UpdateNamecentral.ubicacion:CABMCENTRAL.ubicacionFieldDataTypeN(1)2CABMCENTRAL.ult_modFieldKeyField-3CABMCENTRAL.ult_modField UpdatableaECABMCENTRAL.ult_modField UpdateNamecentral.ult_mod5CABMCENTRAL.ult_modFieldDataTypeTUY.T ABMCONDCOBRQ;SELECT * FROM condcobr WHERE Condcobr.plan = ( ?xcodigo ).C ABMCONDCOBRView UpdateType-C ABMCONDCOBRView WhereType+C ABMCONDCOBRView FetchMemoa-C ABMCONDCOBRView SendUpdatesa/C ABMCONDCOBRView UseMemoSize-C ABMCONDCOBRView FetchSized/C ABMCONDCOBRView MaxRecords6C ABMCONDCOBRViewTables ges!condcobr*C ABMCONDCOBRViewPrepared--C ABMCONDCOBRView CompareMemoa/C ABMCONDCOBRView FetchAsNeeded-+C ABMCONDCOBRViewComment4C ABMCONDCOBRViewBatchUpdateCount1C ABMCONDCOBRViewShareConnection-0CABMCONDCOBR.planFieldKeyField-1CABMCONDCOBR.planField UpdatableaECABMCONDCOBR.planField UpdateNameges!condcobr.plan6CABMCONDCOBR.planFieldDataTypeN(3)4CABMCONDCOBR.anticipoFieldKeyField-5CABMCONDCOBR.anticipoField UpdatableaMCABMCONDCOBR.anticipoField UpdateNameges!condcobr.anticipo<CABMCONDCOBR.anticipoFieldDataTypeN(5,2)3CABMCONDCOBR.des_pagFieldKeyField-4CABMCONDCOBR.des_pagField UpdatableaKCABMCONDCOBR.des_pagField UpdateNameges!condcobr.des_pag;CABMCONDCOBR.des_pagFieldDataTypeN(5,2)1CABMCONDCOBR.plazoFieldKeyField-2CABMCONDCOBR.plazoField UpdatableaGCABMCONDCOBR.plazoField UpdateNameges!condcobr.plazo7CABMCONDCOBR.plazoFieldDataTypeN(4)1CABMCONDCOBR.cuotaFieldKeyField-2CABMCONDCOBR.cuotaField UpdatableaGCABMCONDCOBR.cuotaField UpdateNameges!condcobr.cuota7CABMCONDCOBR.cuotaFieldDataTypeN(3)3CABMCONDCOBR.int_finFieldKeyField-4CABMCONDCOBR.int_finField UpdatableaKCABMCONDCOBR.int_finField UpdateNameges!condcobr.int_fin;CABMCONDCOBR.int_finFieldDataTypeN(6,2).CABMCONDCOBR.a1FieldKeyField-/CABMCONDCOBR.a1Field UpdatableaACABMCONDCOBR.a1Field UpdateNameges!condcobr.a14CABMCONDCOBR.a1FieldDataTypeN(3).CABMCONDCOBR.a2FieldKeyField-/CABMCONDCOBR.a2Field UpdatableaACABMCONDCOBR.a2Field UpdateNameges!condcobr.a24CABMCONDCOBR.a2FieldDataTypeN(3).CABMCONDCOBR.a3FieldKeyField-/CABMCONDCOBR.a3Field UpdatableaACABMCONDCOBR.a3Field UpdateNameges!condcobr.a34CABMCONDCOBR.a3FieldDataTypeN(3).CABMCONDCOBR.a4FieldKeyField-/CABMCONDCOBR.a4Field UpdatableaACABMCONDCOBR.a4Field UpdateNameges!condcobr.a44CABMCONDCOBR.a4FieldDataTypeN(3).CABMCONDCOBR.a5FieldKeyField-/CABMCONDCOBR.a5Field UpdatableaACABMCONDCOBR.a5Field UpdateNameges!condcobr.a54CABMCONDCOBR.a5FieldDataTypeN(3).CABMCONDCOBR.a6FieldKeyField-/CABMCONDCOBR.a6Field UpdatableaACABMCONDCOBR.a6Field UpdateNameges!condcobr.a64CABMCONDCOBR.a6FieldDataTypeN(3).CABMCONDCOBR.a7FieldKeyField-/CABMCONDCOBR.a7Field UpdatableaACABMCONDCOBR.a7Field UpdateNameges!condcobr.a74CABMCONDCOBR.a7FieldDataTypeN(3).CABMCONDCOBR.a8FieldKeyField-/CABMCONDCOBR.a8Field UpdatableaACABMCONDCOBR.a8Field UpdateNameges!condcobr.a84CABMCONDCOBR.a8FieldDataTypeN(3).CABMCONDCOBR.a9FieldKeyField-/CABMCONDCOBR.a9Field UpdatableaACABMCONDCOBR.a9Field UpdateNameges!condcobr.a94CABMCONDCOBR.a9FieldDataTypeN(3)/CABMCONDCOBR.a10FieldKeyField-0CABMCONDCOBR.a10Field UpdatableaCCABMCONDCOBR.a10Field UpdateNameges!condcobr.a105CABMCONDCOBR.a10FieldDataTypeN(3)/CABMCONDCOBR.a11FieldKeyField-0CABMCONDCOBR.a11Field UpdatableaCCABMCONDCOBR.a11Field UpdateNameges!condcobr.a115CABMCONDCOBR.a11FieldDataTypeN(3)/CABMCONDCOBR.a12FieldKeyField-0CABMCONDCOBR.a12Field UpdatableaCCABMCONDCOBR.a12Field UpdateNameges!condcobr.a125CABMCONDCOBR.a12FieldDataTypeN(3)1CABMCONDCOBR.descrFieldKeyField-2CABMCONDCOBR.descrField UpdatableaGCABMCONDCOBR.descrField UpdateNameges!condcobr.descr8CABMCONDCOBR.descrFieldDataTypeC(25)/CABMCONDCOBR.iduFieldKeyFielda0CABMCONDCOBR.iduField UpdatableaCCABMCONDCOBR.iduField UpdateNameges!condcobr.idu6CABMCONDCOBR.iduFieldDataTypeC(10)4CABMCONDCOBR.variableFieldKeyField-5CABMCONDCOBR.variableField UpdatableaMCABMCONDCOBR.variableField UpdateNameges!condcobr.variable7CABMCONDCOBR.variableFieldDataTypeL0CABMCONDCOBR.fijoFieldKeyField-1CABMCONDCOBR.fijoField UpdatableaECABMCONDCOBR.fijoField UpdateNameges!condcobr.fijo6CABMCONDCOBR.fijoFieldDataTypeN(2).CABMCONDCOBR.p1FieldKeyField-/CABMCONDCOBR.p1Field UpdatableaACABMCONDCOBR.p1Field UpdateNameges!condcobr.p16CABMCONDCOBR.p1FieldDataTypeN(6,2).CABMCONDCOBR.p2FieldKeyField-/CABMCONDCOBR.p2Field UpdatableaACABMCONDCOBR.p2Field UpdateNameges!condcobr.p26CABMCONDCOBR.p2FieldDataTypeN(6,2).CABMCONDCOBR.p3FieldKeyField-/CABMCONDCOBR.p3Field UpdatableaACABMCONDCOBR.p3Field UpdateNameges!condcobr.p36CABMCONDCOBR.p3FieldDataTypeN(6,2).CABMCONDCOBR.p4FieldKeyField-/CABMCONDCOBR.p4Field UpdatableaACABMCONDCOBR.p4Field UpdateNameges!condcobr.p46CABMCONDCOBR.p4FieldDataTypeN(6,2).CABMCONDCOBR.p5FieldKeyField-/CABMCONDCOBR.p5Field UpdatableaACABMCONDCOBR.p5Field UpdateNameges!condcobr.p56CABMCONDCOBR.p5FieldDataTypeN(6,2).CABMCONDCOBR.p6FieldKeyField-/CABMCONDCOBR.p6Field UpdatableaACABMCONDCOBR.p6Field UpdateNameges!condcobr.p66CABMCONDCOBR.p6FieldDataTypeN(6,2).CABMCONDCOBR.p7FieldKeyField-/CABMCONDCOBR.p7Field UpdatableaACABMCONDCOBR.p7Field UpdateNameges!condcobr.p76CABMCONDCOBR.p7FieldDataTypeN(6,2).CABMCONDCOBR.p8FieldKeyField-/CABMCONDCOBR.p8Field UpdatableaACABMCONDCOBR.p8Field UpdateNameges!condcobr.p86CABMCONDCOBR.p8FieldDataTypeN(6,2).CABMCONDCOBR.p9FieldKeyField-/CABMCONDCOBR.p9Field UpdatableaACABMCONDCOBR.p9Field UpdateNameges!condcobr.p96CABMCONDCOBR.p9FieldDataTypeN(6,2)/CABMCONDCOBR.p10FieldKeyField-0CABMCONDCOBR.p10Field UpdatableaCCABMCONDCOBR.p10Field UpdateNameges!condcobr.p107CABMCONDCOBR.p10FieldDataTypeN(6,2)/CABMCONDCOBR.p11FieldKeyField-0CABMCONDCOBR.p11Field UpdatableaCCABMCONDCOBR.p11Field UpdateNameges!condcobr.p117CABMCONDCOBR.p11FieldDataTypeN(6,2)/CABMCONDCOBR.p12FieldKeyField-0CABMCONDCOBR.p12Field UpdatableaCCABMCONDCOBR.p12Field UpdateNameges!condcobr.p127CABMCONDCOBR.p12FieldDataTypeN(6,2)2CABMCONDCOBR.descr2FieldKeyField-3CABMCONDCOBR.descr2Field UpdatableaICABMCONDCOBR.descr2Field UpdateNameges!condcobr.descr2:CABMCONDCOBR.descr2FieldDataTypeC(240)3CABMCONDCOBR.valoresFieldKeyField-4CABMCONDCOBR.valoresField UpdatableaKCABMCONDCOBR.valoresField UpdateNameges!condcobr.valores9CABMCONDCOBR.valoresFieldDataTypeN(3)3CABMCONDCOBR.contadoFieldKeyField-4CABMCONDCOBR.contadoField UpdatableaKCABMCONDCOBR.contadoField UpdateNameges!condcobr.contado6CABMCONDCOBR.contadoFieldDataTypeL5CABMCONDCOBR.reembolsoFieldKeyField-6CABMCONDCOBR.reembolsoField UpdatableaOCABMCONDCOBR.reembolsoField UpdateNameges!condcobr.reembolso8CABMCONDCOBR.reembolsoFieldDataTypeL3CABMCONDCOBR.entregaFieldKeyField-4CABMCONDCOBR.entregaField UpdatableaKCABMCONDCOBR.entregaField UpdateNameges!condcobr.entrega6CABMCONDCOBR.entregaFieldDataTypeL4CABMCONDCOBR.no_desglFieldKeyField-5CABMCONDCOBR.no_desglField UpdatableaICABMCONDCOBR.no_desglField UpdateNamecondcobr.no_desgl7CABMCONDCOBR.no_desglFieldDataTypeL3CABMCONDCOBR.diaschqFieldKeyField-4CABMCONDCOBR.diaschqField UpdatableaGCABMCONDCOBR.diaschqField UpdateNamecondcobr.diaschq9CABMCONDCOBR.diaschqFieldDataTypeN(3)5CABMCONDCOBR.notificarFieldKeyField-6CABMCONDCOBR.notificarField UpdatableaKCABMCONDCOBR.notificarField UpdateNamecondcobr.notificar8CABMCONDCOBR.notificarFieldDataTypeL3CABMCONDCOBR.libprepFieldKeyField-4CABMCONDCOBR.libprepField UpdatableaGCABMCONDCOBR.libprepField UpdateNamecondcobr.libprep6CABMCONDCOBR.libprepFieldDataTypeL3CABMCONDCOBR.negocioFieldKeyField-4CABMCONDCOBR.negocioField UpdatableaGCABMCONDCOBR.negocioField UpdateNamecondcobr.negocio9CABMCONDCOBR.negocioFieldDataTypeN(2)4CABMCONDCOBR.modelofcFieldKeyField-5CABMCONDCOBR.modelofcField UpdatableaICABMCONDCOBR.modelofcField UpdateNamecondcobr.modelofc7CABMCONDCOBR.modelofcFieldDataTypeM3CABMCONDCOBR.recargoFieldKeyField-4CABMCONDCOBR.recargoField UpdatableaGCABMCONDCOBR.recargoField UpdateNamecondcobr.recargo;CABMCONDCOBR.recargoFieldDataTypeN(6,2)6CABMCONDCOBR.recargoartFieldKeyField-7CABMCONDCOBR.recargoartField UpdatableaMCABMCONDCOBR.recargoartField UpdateNamecondcobr.recargoart=CABMCONDCOBR.recargoartFieldDataTypeC(15)5CABMCONDCOBR.desgl_remFieldKeyField-6CABMCONDCOBR.desgl_remField UpdatableaKCABMCONDCOBR.desgl_remField UpdateNamecondcobr.desgl_rem;CABMCONDCOBR.desgl_remFieldDataTypeN(1)4CABMCONDCOBR.fac_antiFieldKeyField-5CABMCONDCOBR.fac_antiField UpdatableaICABMCONDCOBR.fac_antiField UpdateNamecondcobr.fac_anti7CABMCONDCOBR.fac_antiFieldDataTypeL3CABMCONDCOBR.ult_modFieldKeyField-4CABMCONDCOBR.ult_modField UpdatableaGCABMCONDCOBR.ult_modField UpdateNamecondcobr.ult_mod6CABMCONDCOBR.ult_modFieldDataTypeTUeL ABMCOSTOSQ5SELECT * FROM costos WHERE Costos.cod_cen == ?xcodigo,C ABMCOSTOSView UpdateType+C ABMCOSTOSView WhereType)C ABMCOSTOSView FetchMemoa+C ABMCOSTOSView SendUpdatesa-C ABMCOSTOSView UseMemoSize+C ABMCOSTOSView FetchSized-C ABMCOSTOSView MaxRecords.C ABMCOSTOSViewTablescostos(C ABMCOSTOSViewPrepared-+C ABMCOSTOSView CompareMemoa-C ABMCOSTOSView FetchAsNeeded-)C ABMCOSTOSViewComment2C ABMCOSTOSViewBatchUpdateCount/C ABMCOSTOSViewShareConnection-1CABMCOSTOS.cod_cenFieldKeyField-2CABMCOSTOS.cod_cenField UpdatableaCCABMCOSTOS.cod_cenField UpdateNamecostos.cod_cen7CABMCOSTOS.cod_cenFieldDataTypeC(6)-C ABMCOSTOS.sucFieldKeyField-.C ABMCOSTOS.sucField Updatablea;C ABMCOSTOS.sucField UpdateName costos.suc3C ABMCOSTOS.sucFieldDataTypeN(3)0CABMCOSTOS.cfactaFieldKeyField-1CABMCOSTOS.cfactaField UpdatableaACABMCOSTOS.cfactaField UpdateName costos.cfacta6CABMCOSTOS.cfactaFieldDataTypeN(8)0CABMCOSTOS.cdebiaFieldKeyField-1CABMCOSTOS.cdebiaField UpdatableaACABMCOSTOS.cdebiaField UpdateName costos.cdebia6CABMCOSTOS.cdebiaFieldDataTypeN(8)0CABMCOSTOS.ccredaFieldKeyField-1CABMCOSTOS.ccredaField UpdatableaACABMCOSTOS.ccredaField UpdateName costos.ccreda6CABMCOSTOS.ccredaFieldDataTypeN(8)0CABMCOSTOS.cremiaFieldKeyField-1CABMCOSTOS.cremiaField UpdatableaACABMCOSTOS.cremiaField UpdateName costos.cremia6CABMCOSTOS.cremiaFieldDataTypeN(8)0CABMCOSTOS.cfactbFieldKeyField-1CABMCOSTOS.cfactbField UpdatableaACABMCOSTOS.cfactbField UpdateName costos.cfactb6CABMCOSTOS.cfactbFieldDataTypeN(8)0CABMCOSTOS.cdebibFieldKeyField-1CABMCOSTOS.cdebibField UpdatableaACABMCOSTOS.cdebibField UpdateName costos.cdebib6CABMCOSTOS.cdebibFieldDataTypeN(8)0CABMCOSTOS.ccredbFieldKeyField-1CABMCOSTOS.ccredbField UpdatableaACABMCOSTOS.ccredbField UpdateName costos.ccredb6CABMCOSTOS.ccredbFieldDataTypeN(8)0CABMCOSTOS.cremibFieldKeyField-1CABMCOSTOS.cremibField UpdatableaACABMCOSTOS.cremibField UpdateName costos.cremib6CABMCOSTOS.cremibFieldDataTypeN(8)0CABMCOSTOS.cfacteFieldKeyField-1CABMCOSTOS.cfacteField UpdatableaACABMCOSTOS.cfacteField UpdateName costos.cfacte6CABMCOSTOS.cfacteFieldDataTypeN(8)0CABMCOSTOS.cdebieFieldKeyField-1CABMCOSTOS.cdebieField UpdatableaACABMCOSTOS.cdebieField UpdateName costos.cdebie6CABMCOSTOS.cdebieFieldDataTypeN(8)0CABMCOSTOS.ccredeFieldKeyField-1CABMCOSTOS.ccredeField UpdatableaACABMCOSTOS.ccredeField UpdateName costos.ccrede6CABMCOSTOS.ccredeFieldDataTypeN(8)0CABMCOSTOS.cremieFieldKeyField-1CABMCOSTOS.cremieField UpdatableaACABMCOSTOS.cremieField UpdateName costos.cremie6CABMCOSTOS.cremieFieldDataTypeN(8)-C ABMCOSTOS.impFieldKeyField-.C ABMCOSTOS.impField Updatablea;C ABMCOSTOS.impField UpdateName costos.imp3C ABMCOSTOS.impFieldDataTypeC(1).CABMCOSTOS.asocFieldKeyField-/CABMCOSTOS.asocField Updatablea=CABMCOSTOS.asocField UpdateName costos.asoc4CABMCOSTOS.asocFieldDataTypeC(1)0CABMCOSTOS.borrarFieldKeyField-1CABMCOSTOS.borrarField UpdatableaACABMCOSTOS.borrarField UpdateName costos.borrar7CABMCOSTOS.borrarFieldDataTypeC(10)/CABMCOSTOS.descrFieldKeyField-0CABMCOSTOS.descrField Updatablea?CABMCOSTOS.descrField UpdateName costos.descr6CABMCOSTOS.descrFieldDataTypeC(40)-C ABMCOSTOS.iduFieldKeyFielda.C ABMCOSTOS.iduField Updatablea;C ABMCOSTOS.iduField UpdateName costos.idu4C ABMCOSTOS.iduFieldDataTypeC(10)1CABMCOSTOS.ult_modFieldKeyField-2CABMCOSTOS.ult_modField UpdatableaCCABMCOSTOS.ult_modField UpdateNamecostos.ult_mod4CABMCOSTOS.ult_modFieldDataTypeTUY ABMDEPOSITOQ@SELECT * FROM deposito WHERE Deposito.deposito == ( ?xcodigo ).C ABMDEPOSITOView UpdateType-C ABMDEPOSITOView WhereType+C ABMDEPOSITOView FetchMemoa-C ABMDEPOSITOView SendUpdatesa/C ABMDEPOSITOView UseMemoSize-C ABMDEPOSITOView FetchSized/C ABMDEPOSITOView MaxRecords6C ABMDEPOSITOViewTables ges!deposito*C ABMDEPOSITOViewPrepared--C ABMDEPOSITOView CompareMemoa/C ABMDEPOSITOView FetchAsNeeded-+C ABMDEPOSITOViewComment4C ABMDEPOSITOViewBatchUpdateCount1C ABMDEPOSITOViewShareConnection-4CABMDEPOSITO.depositoFieldKeyField-5CABMDEPOSITO.depositoField UpdatableaMCABMDEPOSITO.depositoField UpdateNameges!deposito.deposito:CABMDEPOSITO.depositoFieldDataTypeC(8)3CABMDEPOSITO.centralFieldKeyField-4CABMDEPOSITO.centralField UpdatableaKCABMDEPOSITO.centralField UpdateNameges!deposito.central9CABMDEPOSITO.centralFieldDataTypeC(8)/CABMDEPOSITO.sucFieldKeyField-0CABMDEPOSITO.sucField UpdatableaCCABMDEPOSITO.sucField UpdateNameges!deposito.suc5CABMDEPOSITO.sucFieldDataTypeN(2)/CABMDEPOSITO.facFieldKeyField-0CABMDEPOSITO.facField UpdatableaCCABMDEPOSITO.facField UpdateNameges!deposito.fac5CABMDEPOSITO.facFieldDataTypeC(1)/CABMDEPOSITO.usrFieldKeyField-0CABMDEPOSITO.usrField UpdatableaCCABMDEPOSITO.usrField UpdateNameges!deposito.usr6CABMDEPOSITO.usrFieldDataTypeC(40)1CABMDEPOSITO.descrFieldKeyField-2CABMDEPOSITO.descrField UpdatableaGCABMDEPOSITO.descrField UpdateNameges!deposito.descr8CABMDEPOSITO.descrFieldDataTypeC(30)/CABMDEPOSITO.iduFieldKeyFielda0CABMDEPOSITO.iduField UpdatableaCCABMDEPOSITO.iduField UpdateNameges!deposito.idu6CABMDEPOSITO.iduFieldDataTypeC(10)/CABMDEPOSITO.comFieldKeyField-0CABMDEPOSITO.comField UpdatableaCCABMDEPOSITO.comField UpdateNameges!deposito.com5CABMDEPOSITO.comFieldDataTypeC(1)/CABMDEPOSITO.domFieldKeyField-0CABMDEPOSITO.domField UpdatableaCCABMDEPOSITO.domField UpdateNameges!deposito.dom6CABMDEPOSITO.domFieldDataTypeC(40)/CABMDEPOSITO.ciuFieldKeyField-0CABMDEPOSITO.ciuField UpdatableaCCABMDEPOSITO.ciuField UpdateNameges!deposito.ciu6CABMDEPOSITO.ciuFieldDataTypeC(30)/CABMDEPOSITO.zipFieldKeyField-0CABMDEPOSITO.zipField UpdatableaCCABMDEPOSITO.zipField UpdateNameges!deposito.zip6CABMDEPOSITO.zipFieldDataTypeC(10)0CABMDEPOSITO.cuitFieldKeyField-1CABMDEPOSITO.cuitField UpdatableaECABMDEPOSITO.cuitField UpdateNameges!deposito.cuit7CABMDEPOSITO.cuitFieldDataTypeC(13)5CABMDEPOSITO.prioridadFieldKeyField-6CABMDEPOSITO.prioridadField UpdatableaOCABMDEPOSITO.prioridadField UpdateNameges!deposito.prioridad;CABMDEPOSITO.prioridadFieldDataTypeN(1)3CABMDEPOSITO.calidadFieldKeyField-4CABMDEPOSITO.calidadField UpdatableaGCABMDEPOSITO.calidadField UpdateNamedeposito.calidad9CABMDEPOSITO.calidadFieldDataTypeC(1)4CABMDEPOSITO.vendibleFieldKeyField-5CABMDEPOSITO.vendibleField UpdatableaICABMDEPOSITO.vendibleField UpdateNamedeposito.vendible:CABMDEPOSITO.vendibleFieldDataTypeC(1)3CABMDEPOSITO.pickingFieldKeyField-4CABMDEPOSITO.pickingField UpdatableaGCABMDEPOSITO.pickingField UpdateNamedeposito.picking9CABMDEPOSITO.pickingFieldDataTypeC(6)3CABMDEPOSITO.cod_proFieldKeyField-4CABMDEPOSITO.cod_proField UpdatableaGCABMDEPOSITO.cod_proField UpdateNamedeposito.cod_pro9CABMDEPOSITO.cod_proFieldDataTypeC(8)0CABMDEPOSITO.tipoFieldKeyField-1CABMDEPOSITO.tipoField UpdatableaACABMDEPOSITO.tipoField UpdateName deposito.tipo6CABMDEPOSITO.tipoFieldDataTypeN(2)3CABMDEPOSITO.ult_modFieldKeyField-4CABMDEPOSITO.ult_modField UpdatableaGCABMDEPOSITO.ult_modField UpdateNamedeposito.ult_mod6CABMDEPOSITO.ult_modFieldDataTypeTUHR ABMFLETESQ;SELECT * FROM fletes WHERE Fletes.cod_fle == ( ?xcodigo ),C ABMFLETESView UpdateType+C ABMFLETESView WhereType)C ABMFLETESView FetchMemoa+C ABMFLETESView SendUpdatesa-C ABMFLETESView UseMemoSize+C ABMFLETESView FetchSized-C ABMFLETESView MaxRecords2C ABMFLETESViewTables ges!fletes(C ABMFLETESViewPrepared-+C ABMFLETESView CompareMemoa-C ABMFLETESView FetchAsNeeded-)C ABMFLETESViewComment2C ABMFLETESViewBatchUpdateCount/C ABMFLETESViewShareConnection-1CABMFLETES.cod_fleFieldKeyField-2CABMFLETES.cod_fleField UpdatableaGCABMFLETES.cod_fleField UpdateNameges!fletes.cod_fle7CABMFLETES.cod_fleFieldDataTypeC(6)0CABMFLETES.nombreFieldKeyField-1CABMFLETES.nombreField UpdatableaECABMFLETES.nombreField UpdateNameges!fletes.nombre7CABMFLETES.nombreFieldDataTypeC(30)/CABMFLETES.phonoFieldKeyField-0CABMFLETES.phonoField UpdatableaCCABMFLETES.phonoField UpdateNameges!fletes.phono6CABMFLETES.phonoFieldDataTypeC(30)3CABMFLETES.domicilioFieldKeyField-4CABMFLETES.domicilioField UpdatableaKCABMFLETES.domicilioField UpdateNameges!fletes.domicilio:CABMFLETES.domicilioFieldDataTypeC(40)3CABMFLETES.provinciaFieldKeyField-4CABMFLETES.provinciaField UpdatableaKCABMFLETES.provinciaField UpdateNameges!fletes.provincia9CABMFLETES.provinciaFieldDataTypeC(1)0CABMFLETES.ciudadFieldKeyField-1CABMFLETES.ciudadField UpdatableaECABMFLETES.ciudadField UpdateNameges!fletes.ciudad7CABMFLETES.ciudadFieldDataTypeC(30).CABMFLETES.cuitFieldKeyField-/CABMFLETES.cuitField UpdatableaACABMFLETES.cuitField UpdateNameges!fletes.cuit5CABMFLETES.cuitFieldDataTypeC(13)1CABMFLETES.horarioFieldKeyField-2CABMFLETES.horarioField UpdatableaGCABMFLETES.horarioField UpdateNameges!fletes.horario8CABMFLETES.horarioFieldDataTypeC(20)-C ABMFLETES.inmFieldKeyField-.C ABMFLETES.inmField Updatablea?C ABMFLETES.inmField UpdateNameges!fletes.inm3C ABMFLETES.inmFieldDataTypeC(1).CABMFLETES.paisFieldKeyField-/CABMFLETES.paisField UpdatableaACABMFLETES.paisField UpdateNameges!fletes.pais4CABMFLETES.paisFieldDataTypeN(3)1CABMFLETES.cod_zipFieldKeyField-2CABMFLETES.cod_zipField UpdatableaGCABMFLETES.cod_zipField UpdateNameges!fletes.cod_zip8CABMFLETES.cod_zipFieldDataTypeC(12)-C ABMFLETES.iduFieldKeyFielda.C ABMFLETES.iduField Updatablea?C ABMFLETES.iduField UpdateNameges!fletes.idu4C ABMFLETES.iduFieldDataTypeC(10)0CABMFLETES.propioFieldKeyField-1CABMFLETES.propioField UpdatableaECABMFLETES.propioField UpdateNameges!fletes.propio3CABMFLETES.propioFieldDataTypeL.CABMFLETES.zonaFieldKeyField-/CABMFLETES.zonaField UpdatableaACABMFLETES.zonaField UpdateNameges!fletes.zona4CABMFLETES.zonaFieldDataTypeN(4).CABMFLETES.tipoFieldKeyField-/CABMFLETES.tipoField UpdatableaACABMFLETES.tipoField UpdateNameges!fletes.tipo4CABMFLETES.tipoFieldDataTypeN(1)2CABMFLETES.vehiculoFieldKeyField-3CABMFLETES.vehiculoField UpdatableaECABMFLETES.vehiculoField UpdateNamefletes.vehiculo8CABMFLETES.vehiculoFieldDataTypeN(5)1CABMFLETES.dominioFieldKeyField-2CABMFLETES.dominioField UpdatableaCCABMFLETES.dominioField UpdateNamefletes.dominio7CABMFLETES.dominioFieldDataTypeC(6)2CABMFLETES.entcoordFieldKeyField-3CABMFLETES.entcoordField UpdatableaECABMFLETES.entcoordField UpdateNamefletes.entcoord9CABMFLETES.entcoordFieldDataTypeC(30)0CABMFLETES.costohFieldKeyField-1CABMFLETES.costohField UpdatableaACABMFLETES.costohField UpdateName fletes.costoh9CABMFLETES.costohFieldDataTypeN(12,2)0CABMFLETES.geodirFieldKeyField-1CABMFLETES.geodirField UpdatableaACABMFLETES.geodirField UpdateName fletes.geodir8CABMFLETES.geodirFieldDataTypeC(120)4CABMFLETES.coef_aceptFieldKeyField-5CABMFLETES.coef_aceptField UpdatableaICABMFLETES.coef_aceptField UpdateNamefletes.coef_acept<CABMFLETES.coef_aceptFieldDataTypeN(9,4)4CABMFLETES.coef_rechaFieldKeyField-5CABMFLETES.coef_rechaField UpdatableaICABMFLETES.coef_rechaField UpdateNamefletes.coef_recha<CABMFLETES.coef_rechaFieldDataTypeN(9,4)4CABMFLETES.min_importFieldKeyField-5CABMFLETES.min_importField UpdatableaICABMFLETES.min_importField UpdateNamefletes.min_import=CABMFLETES.min_importFieldDataTypeN(14,2)4CABMFLETES.dep_propioFieldKeyField-5CABMFLETES.dep_propioField UpdatableaICABMFLETES.dep_propioField UpdateNamefletes.dep_propio:CABMFLETES.dep_propioFieldDataTypeN(1)/CABMFLETES.emailFieldKeyField-0CABMFLETES.emailField Updatablea?CABMFLETES.emailField UpdateName fletes.email6CABMFLETES.emailFieldDataTypeC(60)1CABMFLETES.ult_modFieldKeyField-2CABMFLETES.ult_modField UpdatableaCCABMFLETES.ult_modField UpdateNamefletes.ult_mod4CABMFLETES.ult_modFieldDataTypeTUJ ABMGRUPOSQ3SELECT * FROM grupos WHERE Grupos.codigo = ?xcodigo,C ABMGRUPOSView UpdateType+C ABMGRUPOSView WhereType)C ABMGRUPOSView FetchMemoa+C ABMGRUPOSView SendUpdatesa-C ABMGRUPOSView UseMemoSize+C ABMGRUPOSView FetchSized-C ABMGRUPOSView MaxRecords.C ABMGRUPOSViewTablesgrupos(C ABMGRUPOSViewPrepared-+C ABMGRUPOSView CompareMemoa-C ABMGRUPOSView FetchAsNeeded-)C ABMGRUPOSViewComment2C ABMGRUPOSViewBatchUpdateCount/C ABMGRUPOSViewShareConnection-0CABMGRUPOS.codigoFieldKeyField-1CABMGRUPOS.codigoField UpdatableaACABMGRUPOS.codigoField UpdateName grupos.codigo6CABMGRUPOS.codigoFieldDataTypeN(2)/CABMGRUPOS.descrFieldKeyField-0CABMGRUPOS.descrField Updatablea?CABMGRUPOS.descrField UpdateName grupos.descr6CABMGRUPOS.descrFieldDataTypeC(30)-C ABMGRUPOS.iduFieldKeyFielda.C ABMGRUPOS.iduField Updatablea;C ABMGRUPOS.iduField UpdateName grupos.idu4C ABMGRUPOS.iduFieldDataTypeC(10)4CABMGRUPOS.supergrupoFieldKeyField-5CABMGRUPOS.supergrupoField UpdatableaICABMGRUPOS.supergrupoField UpdateNamegrupos.supergrupo:CABMGRUPOS.supergrupoFieldDataTypeN(2)3CABMGRUPOS.ped_subirFieldKeyField-4CABMGRUPOS.ped_subirField UpdatableaGCABMGRUPOS.ped_subirField UpdateNamegrupos.ped_subir9CABMGRUPOS.ped_subirFieldDataTypeN(1)1CABMGRUPOS.ult_modFieldKeyField-2CABMGRUPOS.ult_modField UpdatableaCCABMGRUPOS.ult_modField UpdateNamegrupos.ult_mod4CABMGRUPOS.ult_modFieldDataTypeTU J ABMLINEASQ3SELECT * FROM lineas WHERE Lineas.codigo = ?xcodigo,C ABMLINEASView UpdateType+C ABMLINEASView WhereType)C ABMLINEASView FetchMemoa+C ABMLINEASView SendUpdatesa-C ABMLINEASView UseMemoSize+C ABMLINEASView FetchSized-C ABMLINEASView MaxRecords.C ABMLINEASViewTableslineas(C ABMLINEASViewPrepared-+C ABMLINEASView CompareMemoa-C ABMLINEASView FetchAsNeeded-)C ABMLINEASViewComment2C ABMLINEASViewBatchUpdateCount/C ABMLINEASViewShareConnection-0CABMLINEAS.codigoFieldKeyField-1CABMLINEAS.codigoField UpdatableaACABMLINEAS.codigoField UpdateName lineas.codigo6CABMLINEAS.codigoFieldDataTypeN(2)/CABMLINEAS.descrFieldKeyField-0CABMLINEAS.descrField Updatablea?CABMLINEAS.descrField UpdateName lineas.descr6CABMLINEAS.descrFieldDataTypeC(30)-C ABMLINEAS.iduFieldKeyFielda.C ABMLINEAS.iduField Updatablea;C ABMLINEAS.iduField UpdateName lineas.idu4C ABMLINEAS.iduFieldDataTypeC(10)1CABMLINEAS.cod_cenFieldKeyField-2CABMLINEAS.cod_cenField UpdatableaCCABMLINEAS.cod_cenField UpdateNamelineas.cod_cen7CABMLINEAS.cod_cenFieldDataTypeC(6)2CABMLINEAS.tipo_linFieldKeyField-3CABMLINEAS.tipo_linField UpdatableaECABMLINEAS.tipo_linField UpdateNamelineas.tipo_lin8CABMLINEAS.tipo_linFieldDataTypeN(1)4CABMLINEAS.masterlineFieldKeyField-5CABMLINEAS.masterlineField UpdatableaICABMLINEAS.masterlineField UpdateNamelineas.masterline;CABMLINEAS.masterlineFieldDataTypeN(10)3CABMLINEAS.ped_subirFieldKeyField-4CABMLINEAS.ped_subirField UpdatableaGCABMLINEAS.ped_subirField UpdateNamelineas.ped_subir9CABMLINEAS.ped_subirFieldDataTypeN(1)1CABMLINEAS.ult_modFieldKeyField-2CABMLINEAS.ult_modField UpdatableaCCABMLINEAS.ult_modField UpdateNamelineas.ult_mod4CABMLINEAS.ult_modFieldDataTypeTU5&Q ABMMOTINVQ:SELECT * FROM motinv WHERE Motinv.codigo == ( ?xcodigo ),C ABMMOTINVView UpdateType+C ABMMOTINVView WhereType)C ABMMOTINVView FetchMemoa+C ABMMOTINVView SendUpdatesa-C ABMMOTINVView UseMemoSize+C ABMMOTINVView FetchSized-C ABMMOTINVView MaxRecords2C ABMMOTINVViewTables ges!motinv(C ABMMOTINVViewPrepared-+C ABMMOTINVView CompareMemoa-C ABMMOTINVView FetchAsNeeded-)C ABMMOTINVViewComment2C ABMMOTINVViewBatchUpdateCount/C ABMMOTINVViewShareConnection-0CABMMOTINV.codigoFieldKeyField-1CABMMOTINV.codigoField UpdatableaECABMMOTINV.codigoField UpdateNameges!motinv.codigo6CABMMOTINV.codigoFieldDataTypeN(3).CABMMOTINV.tipoFieldKeyField-/CABMMOTINV.tipoField UpdatableaACABMMOTINV.tipoField UpdateNameges!motinv.tipo4CABMMOTINV.tipoFieldDataTypeN(2)0CABMMOTINV.ceningFieldKeyField-1CABMMOTINV.ceningField UpdatableaECABMMOTINV.ceningField UpdateNameges!motinv.cening6CABMMOTINV.ceningFieldDataTypeC(8)0CABMMOTINV.cenegrFieldKeyField-1CABMMOTINV.cenegrField UpdatableaECABMMOTINV.cenegrField UpdateNameges!motinv.cenegr6CABMMOTINV.cenegrFieldDataTypeC(8)0CABMMOTINV.depingFieldKeyField-1CABMMOTINV.depingField UpdatableaECABMMOTINV.depingField UpdateNameges!motinv.deping6CABMMOTINV.depingFieldDataTypeC(8)0CABMMOTINV.depegrFieldKeyField-1CABMMOTINV.depegrField UpdatableaECABMMOTINV.depegrField UpdateNameges!motinv.depegr6CABMMOTINV.depegrFieldDataTypeC(8)1CABMMOTINV.depingpFieldKeyField-2CABMMOTINV.depingpField UpdatableaGCABMMOTINV.depingpField UpdateNameges!motinv.depingp4CABMMOTINV.depingpFieldDataTypeL1CABMMOTINV.depegrpFieldKeyField-2CABMMOTINV.depegrpField UpdatableaGCABMMOTINV.depegrpField UpdateNameges!motinv.depegrp4CABMMOTINV.depegrpFieldDataTypeL-C ABMMOTINV.abmFieldKeyField-.C ABMMOTINV.abmField Updatablea?C ABMMOTINV.abmField UpdateNameges!motinv.abm3C ABMMOTINV.abmFieldDataTypeN(1)0CABMMOTINV.con_opFieldKeyField-1CABMMOTINV.con_opField UpdatableaECABMMOTINV.con_opField UpdateNameges!motinv.con_op6CABMMOTINV.con_opFieldDataTypeN(1)0CABMMOTINV.cuentaFieldKeyField-1CABMMOTINV.cuentaField UpdatableaECABMMOTINV.cuentaField UpdateNameges!motinv.cuenta6CABMMOTINV.cuentaFieldDataTypeC(9)0CABMMOTINV.remitoFieldKeyField-1CABMMOTINV.remitoField UpdatableaECABMMOTINV.remitoField UpdateNameges!motinv.remito3CABMMOTINV.remitoFieldDataTypeL0CABMMOTINV.sucremFieldKeyField-1CABMMOTINV.sucremField UpdatableaECABMMOTINV.sucremField UpdateNameges!motinv.sucrem6CABMMOTINV.sucremFieldDataTypeN(2)1CABMMOTINV.comprobFieldKeyField-2CABMMOTINV.comprobField UpdatableaGCABMMOTINV.comprobField UpdateNameges!motinv.comprob8CABMMOTINV.comprobFieldDataTypeN(10)1CABMMOTINV.bajadifFieldKeyField-2CABMMOTINV.bajadifField UpdatableaGCABMMOTINV.bajadifField UpdateNameges!motinv.bajadif4CABMMOTINV.bajadifFieldDataTypeL-C ABMMOTINV.usrFieldKeyField-.C ABMMOTINV.usrField Updatablea?C ABMMOTINV.usrField UpdateNameges!motinv.usr4C ABMMOTINV.usrFieldDataTypeC(40)1CABMMOTINV.formulaFieldKeyField-2CABMMOTINV.formulaField UpdatableaGCABMMOTINV.formulaField UpdateNameges!motinv.formula4CABMMOTINV.formulaFieldDataTypeL/CABMMOTINV.descrFieldKeyField-0CABMMOTINV.descrField UpdatableaCCABMMOTINV.descrField UpdateNameges!motinv.descr6CABMMOTINV.descrFieldDataTypeC(30)-C ABMMOTINV.iduFieldKeyFielda.C ABMMOTINV.iduField Updatablea?C ABMMOTINV.iduField UpdateNameges!motinv.idu4C ABMMOTINV.iduFieldDataTypeC(10)1CABMMOTINV.inicialFieldKeyField-2CABMMOTINV.inicialField UpdatableaGCABMMOTINV.inicialField UpdateNameges!motinv.inicial4CABMMOTINV.inicialFieldDataTypeL4CABMMOTINV.tipoajusteFieldKeyField-5CABMMOTINV.tipoajusteField UpdatableaMCABMMOTINV.tipoajusteField UpdateNameges!motinv.tipoajuste:CABMMOTINV.tipoajusteFieldDataTypeN(2)2CABMMOTINV.altaloteFieldKeyField-3CABMMOTINV.altaloteField UpdatableaICABMMOTINV.altaloteField UpdateNameges!motinv.altalote5CABMMOTINV.altaloteFieldDataTypeL/CABMMOTINV.costoFieldKeyField-0CABMMOTINV.costoField UpdatableaCCABMMOTINV.costoField UpdateNameges!motinv.costo2CABMMOTINV.costoFieldDataTypeL1CABMMOTINV.clienteFieldKeyField-2CABMMOTINV.clienteField UpdatableaGCABMMOTINV.clienteField UpdateNameges!motinv.cliente4CABMMOTINV.clienteFieldDataTypeL3CABMMOTINV.proveedorFieldKeyField-4CABMMOTINV.proveedorField UpdatableaKCABMMOTINV.proveedorField UpdateNameges!motinv.proveedor6CABMMOTINV.proveedorFieldDataTypeL0CABMMOTINV.procliFieldKeyField-1CABMMOTINV.procliField UpdatableaECABMMOTINV.procliField UpdateNameges!motinv.procli6CABMMOTINV.procliFieldDataTypeN(1)1CABMMOTINV.cod_cenFieldKeyField-2CABMMOTINV.cod_cenField UpdatableaGCABMMOTINV.cod_cenField UpdateNameges!motinv.cod_cen7CABMMOTINV.cod_cenFieldDataTypeC(6)2CABMMOTINV.cod_cenpFieldKeyField-3CABMMOTINV.cod_cenpField UpdatableaICABMMOTINV.cod_cenpField UpdateNameges!motinv.cod_cenp5CABMMOTINV.cod_cenpFieldDataTypeL4CABMMOTINV.formularioFieldKeyField-5CABMMOTINV.formularioField UpdatableaMCABMMOTINV.formularioField UpdateNameges!motinv.formulario;CABMMOTINV.formularioFieldDataTypeC(40)2CABMMOTINV.nomovstkFieldKeyField-3CABMMOTINV.nomovstkField UpdatableaICABMMOTINV.nomovstkField UpdateNameges!motinv.nomovstk5CABMMOTINV.nomovstkFieldDataTypeL.CABMMOTINV.diasFieldKeyField-/CABMMOTINV.diasField UpdatableaACABMMOTINV.diasField UpdateNameges!motinv.dias4CABMMOTINV.diasFieldDataTypeN(3)4CABMMOTINV.form_copiaFieldKeyField-5CABMMOTINV.form_copiaField UpdatableaMCABMMOTINV.form_copiaField UpdateNameges!motinv.form_copia:CABMMOTINV.form_copiaFieldDataTypeN(2)2CABMMOTINV.maxitemsFieldKeyField-3CABMMOTINV.maxitemsField UpdatableaICABMMOTINV.maxitemsField UpdateNameges!motinv.maxitems8CABMMOTINV.maxitemsFieldDataTypeN(3)0CABMMOTINV.modeloFieldKeyField-1CABMMOTINV.modeloField UpdatableaECABMMOTINV.modeloField UpdateNameges!motinv.modelo7CABMMOTINV.modeloFieldDataTypeN(10)1CABMMOTINV.dlotauxFieldKeyField-2CABMMOTINV.dlotauxField UpdatableaGCABMMOTINV.dlotauxField UpdateNameges!motinv.dlotaux8CABMMOTINV.dlotauxFieldDataTypeC(20)1CABMMOTINV.deping2FieldKeyField-2CABMMOTINV.deping2Field UpdatableaCCABMMOTINV.deping2Field UpdateNamemotinv.deping27CABMMOTINV.deping2FieldDataTypeC(8)0CABMMOTINV.regasiFieldKeyField-1CABMMOTINV.regasiField UpdatableaACABMMOTINV.regasiField UpdateName motinv.regasi3CABMMOTINV.regasiFieldDataTypeL2CABMMOTINV.recesinpFieldKeyField-3CABMMOTINV.recesinpField UpdatableaECABMMOTINV.recesinpField UpdateNamemotinv.recesinp5CABMMOTINV.recesinpFieldDataTypeL4CABMMOTINV.transporteFieldKeyField-5CABMMOTINV.transporteField UpdatableaICABMMOTINV.transporteField UpdateNamemotinv.transporte7CABMMOTINV.transporteFieldDataTypeL0CABMMOTINV.pesadaFieldKeyField-1CABMMOTINV.pesadaField UpdatableaACABMMOTINV.pesadaField UpdateName motinv.pesada3CABMMOTINV.pesadaFieldDataTypeL1CABMMOTINV.ult_modFieldKeyField-2CABMMOTINV.ult_modField UpdatableaCCABMMOTINV.ult_modField UpdateNamemotinv.ult_mod4CABMMOTINV.ult_modFieldDataTypeTUHS ABMMOTIVOSQ;SELECT * FROM motivos WHERE Motivos.codigo = ( ?xcodigo )-C ABMMOTIVOSView UpdateType,C ABMMOTIVOSView WhereType*C ABMMOTIVOSView FetchMemoa,C ABMMOTIVOSView SendUpdatesa.C ABMMOTIVOSView UseMemoSize,C ABMMOTIVOSView FetchSized.C ABMMOTIVOSView MaxRecords4C ABMMOTIVOSViewTables ges!motivos)C ABMMOTIVOSViewPrepared-,C ABMMOTIVOSView CompareMemoa.C ABMMOTIVOSView FetchAsNeeded-*C ABMMOTIVOSViewComment3C ABMMOTIVOSViewBatchUpdateCount0C ABMMOTIVOSViewShareConnection-1CABMMOTIVOS.codigoFieldKeyField-2CABMMOTIVOS.codigoField UpdatableaGCABMMOTIVOS.codigoField UpdateNameges!motivos.codigo7CABMMOTIVOS.codigoFieldDataTypeN(4)0CABMMOTIVOS.descrFieldKeyField-1CABMMOTIVOS.descrField UpdatableaECABMMOTIVOS.descrField UpdateNameges!motivos.descr7CABMMOTIVOS.descrFieldDataTypeC(30).CABMMOTIVOS.iduFieldKeyFielda/CABMMOTIVOS.iduField UpdatableaACABMMOTIVOS.iduField UpdateNameges!motivos.idu5CABMMOTIVOS.iduFieldDataTypeC(10)5CABMMOTIVOS.comisionesFieldKeyField-6CABMMOTIVOS.comisionesField UpdatableaOCABMMOTIVOS.comisionesField UpdateNameges!motivos.comisiones8CABMMOTIVOS.comisionesFieldDataTypeL/CABMMOTIVOS.tipoFieldKeyField-0CABMMOTIVOS.tipoField UpdatableaCCABMMOTIVOS.tipoField UpdateNameges!motivos.tipo5CABMMOTIVOS.tipoFieldDataTypeN(2)1CABMMOTIVOS.cuentaFieldKeyField-2CABMMOTIVOS.cuentaField UpdatableaGCABMMOTIVOS.cuentaField UpdateNameges!motivos.cuenta7CABMMOTIVOS.cuentaFieldDataTypeC(9)1CABMMOTIVOS.ventasFieldKeyField-2CABMMOTIVOS.ventasField UpdatableaGCABMMOTIVOS.ventasField UpdateNameges!motivos.ventas4CABMMOTIVOS.ventasFieldDataTypeL3CABMMOTIVOS.traeartsFieldKeyField-4CABMMOTIVOS.traeartsField UpdatableaGCABMMOTIVOS.traeartsField UpdateNamemotivos.traearts6CABMMOTIVOS.traeartsFieldDataTypeL4CABMMOTIVOS.provisionFieldKeyField-5CABMMOTIVOS.provisionField UpdatableaMCABMMOTIVOS.provisionField UpdateNameges!motivos.provision:CABMMOTIVOS.provisionFieldDataTypeC(9)3CABMMOTIVOS.depositoFieldKeyField-4CABMMOTIVOS.depositoField UpdatableaGCABMMOTIVOS.depositoField UpdateNamemotivos.deposito9CABMMOTIVOS.depositoFieldDataTypeC(8)4CABMMOTIVOS.sin_stockFieldKeyField-5CABMMOTIVOS.sin_stockField UpdatableaICABMMOTIVOS.sin_stockField UpdateNamemotivos.sin_stock:CABMMOTIVOS.sin_stockFieldDataTypeN(1)2CABMMOTIVOS.ult_modFieldKeyField-3CABMMOTIVOS.ult_modField UpdatableaECABMMOTIVOS.ult_modField UpdateNamemotivos.ult_mod5CABMMOTIVOS.ult_modFieldDataTypeT0CABMMOTIVOS.listaFieldKeyField-1CABMMOTIVOS.listaField UpdatableaACABMMOTIVOS.listaField UpdateName motivos.lista6CABMMOTIVOS.listaFieldDataTypeN(4)U?aX ABMPROVEEDOQ?SELECT * FROM proveedo WHERE Proveedo.cod_pro == ( ?xcodigo ).C ABMPROVEEDOView UpdateType-C ABMPROVEEDOView WhereType+C ABMPROVEEDOView FetchMemoa-C ABMPROVEEDOView SendUpdatesa/C ABMPROVEEDOView UseMemoSize-C ABMPROVEEDOView FetchSized/C ABMPROVEEDOView MaxRecords6C ABMPROVEEDOViewTables ges!proveedo*C ABMPROVEEDOViewPrepared--C ABMPROVEEDOView CompareMemoa/C ABMPROVEEDOView FetchAsNeeded-+C ABMPROVEEDOViewComment4C ABMPROVEEDOViewBatchUpdateCount1C ABMPROVEEDOViewShareConnection-3CABMPROVEEDO.cod_proFieldKeyField-4CABMPROVEEDO.cod_proField UpdatableaKCABMPROVEEDO.cod_proField UpdateNameges!proveedo.cod_pro9CABMPROVEEDO.cod_proFieldDataTypeC(6)3CABMPROVEEDO.cod_cenFieldKeyField-4CABMPROVEEDO.cod_cenField UpdatableaKCABMPROVEEDO.cod_cenField UpdateNameges!proveedo.cod_cen9CABMPROVEEDO.cod_cenFieldDataTypeC(6)2CABMPROVEEDO.nombreFieldKeyField-3CABMPROVEEDO.nombreField UpdatableaICABMPROVEEDO.nombreField UpdateNameges!proveedo.nombre9CABMPROVEEDO.nombreFieldDataTypeC(40)5CABMPROVEEDO.domicilioFieldKeyField-6CABMPROVEEDO.domicilioField UpdatableaOCABMPROVEEDO.domicilioField UpdateNameges!proveedo.domicilio<CABMPROVEEDO.domicilioFieldDataTypeC(40)0CABMPROVEEDO.dom2FieldKeyField-1CABMPROVEEDO.dom2Field UpdatableaECABMPROVEEDO.dom2Field UpdateNameges!proveedo.dom27CABMPROVEEDO.dom2FieldDataTypeC(40)2CABMPROVEEDO.ciudadFieldKeyField-3CABMPROVEEDO.ciudadField UpdatableaICABMPROVEEDO.ciudadField UpdateNameges!proveedo.ciudad9CABMPROVEEDO.ciudadFieldDataTypeC(30)0CABMPROVEEDO.ciu2FieldKeyField-1CABMPROVEEDO.ciu2Field UpdatableaECABMPROVEEDO.ciu2Field UpdateNameges!proveedo.ciu27CABMPROVEEDO.ciu2FieldDataTypeC(30)5CABMPROVEEDO.provinciaFieldKeyField-6CABMPROVEEDO.provinciaField UpdatableaOCABMPROVEEDO.provinciaField UpdateNameges!proveedo.provincia;CABMPROVEEDO.provinciaFieldDataTypeC(1)0CABMPROVEEDO.pro2FieldKeyField-1CABMPROVEEDO.pro2Field UpdatableaECABMPROVEEDO.pro2Field UpdateNameges!proveedo.pro26CABMPROVEEDO.pro2FieldDataTypeC(1)1CABMPROVEEDO.phonoFieldKeyField-2CABMPROVEEDO.phonoField UpdatableaGCABMPROVEEDO.phonoField UpdateNameges!proveedo.phono8CABMPROVEEDO.phonoFieldDataTypeC(30)0CABMPROVEEDO.pho2FieldKeyField-1CABMPROVEEDO.pho2Field UpdatableaECABMPROVEEDO.pho2Field UpdateNameges!proveedo.pho27CABMPROVEEDO.pho2FieldDataTypeC(30)3CABMPROVEEDO.cod_zipFieldKeyField-4CABMPROVEEDO.cod_zipField UpdatableaKCABMPROVEEDO.cod_zipField UpdateNameges!proveedo.cod_zip9CABMPROVEEDO.cod_zipFieldDataTypeC(5)0CABMPROVEEDO.zip2FieldKeyField-1CABMPROVEEDO.zip2Field UpdatableaECABMPROVEEDO.zip2Field UpdateNameges!proveedo.zip26CABMPROVEEDO.zip2FieldDataTypeC(5)6CABMPROVEEDO.inscripcioFieldKeyField-7CABMPROVEEDO.inscripcioField UpdatableaQCABMPROVEEDO.inscripcioField UpdateNameges!proveedo.inscripcio=CABMPROVEEDO.inscripcioFieldDataTypeC(13)3CABMPROVEEDO.cod_senFieldKeyField-4CABMPROVEEDO.cod_senField UpdatableaKCABMPROVEEDO.cod_senField UpdateNameges!proveedo.cod_sen9CABMPROVEEDO.cod_senFieldDataTypeC(4)3CABMPROVEEDO.cod_junFieldKeyField-4CABMPROVEEDO.cod_junField UpdatableaKCABMPROVEEDO.cod_junField UpdateNameges!proveedo.cod_jun9CABMPROVEEDO.cod_junFieldDataTypeC(4)3CABMPROVEEDO.cod_fleFieldKeyField-4CABMPROVEEDO.cod_fleField UpdatableaKCABMPROVEEDO.cod_fleField UpdateNameges!proveedo.cod_fle9CABMPROVEEDO.cod_fleFieldDataTypeC(6)0CABMPROVEEDO.altaFieldKeyField-1CABMPROVEEDO.altaField UpdatableaECABMPROVEEDO.altaField UpdateNameges!proveedo.alta3CABMPROVEEDO.altaFieldDataTypeD0CABMPROVEEDO.bajaFieldKeyField-1CABMPROVEEDO.bajaField UpdatableaECABMPROVEEDO.bajaField UpdateNameges!proveedo.baja3CABMPROVEEDO.bajaFieldDataTypeD3CABMPROVEEDO.creditoFieldKeyField-4CABMPROVEEDO.creditoField UpdatableaKCABMPROVEEDO.creditoField UpdateNameges!proveedo.credito<CABMPROVEEDO.creditoFieldDataTypeN(12,2)3CABMPROVEEDO.des_comFieldKeyField-4CABMPROVEEDO.des_comField UpdatableaKCABMPROVEEDO.des_comField UpdateNameges!proveedo.des_com;CABMPROVEEDO.des_comFieldDataTypeN(5,2)4CABMPROVEEDO.des_com2FieldKeyField-5CABMPROVEEDO.des_com2Field UpdatableaMCABMPROVEEDO.des_com2Field UpdateNameges!proveedo.des_com2<CABMPROVEEDO.des_com2FieldDataTypeN(5,2)3CABMPROVEEDO.iva_comFieldKeyField-4CABMPROVEEDO.iva_comField UpdatableaKCABMPROVEEDO.iva_comField UpdateNameges!proveedo.iva_com;CABMPROVEEDO.iva_comFieldDataTypeN(5,2)4CABMPROVEEDO.cred_comFieldKeyField-5CABMPROVEEDO.cred_comField UpdatableaMCABMPROVEEDO.cred_comField UpdateNameges!proveedo.cred_com=CABMPROVEEDO.cred_comFieldDataTypeN(12,2)4CABMPROVEEDO.cred_ussFieldKeyField-5CABMPROVEEDO.cred_ussField UpdatableaMCABMPROVEEDO.cred_ussField UpdateNameges!proveedo.cred_uss=CABMPROVEEDO.cred_ussFieldDataTypeN(12,2)4CABMPROVEEDO.ajus_ussFieldKeyField-5CABMPROVEEDO.ajus_ussField UpdatableaMCABMPROVEEDO.ajus_ussField UpdateNameges!proveedo.ajus_uss=CABMPROVEEDO.ajus_ussFieldDataTypeN(12,2)4CABMPROVEEDO.com_acumFieldKeyField-5CABMPROVEEDO.com_acumField UpdatableaMCABMPROVEEDO.com_acumField UpdateNameges!proveedo.com_acum=CABMPROVEEDO.com_acumFieldDataTypeN(12,2)4CABMPROVEEDO.ret_acumFieldKeyField-5CABMPROVEEDO.ret_acumField UpdatableaMCABMPROVEEDO.ret_acumField UpdateNameges!proveedo.ret_acum=CABMPROVEEDO.ret_acumFieldDataTypeN(12,2)4CABMPROVEEDO.fec_lastFieldKeyField-5CABMPROVEEDO.fec_lastField UpdatableaMCABMPROVEEDO.fec_lastField UpdateNameges!proveedo.fec_last7CABMPROVEEDO.fec_lastFieldDataTypeD6CABMPROVEEDO.com_acumocFieldKeyField-7CABMPROVEEDO.com_acumocField UpdatableaQCABMPROVEEDO.com_acumocField UpdateNameges!proveedo.com_acumoc?CABMPROVEEDO.com_acumocFieldDataTypeN(12,2)6CABMPROVEEDO.ret_acumocFieldKeyField-7CABMPROVEEDO.ret_acumocField UpdatableaQCABMPROVEEDO.ret_acumocField UpdateNameges!proveedo.ret_acumoc?CABMPROVEEDO.ret_acumocFieldDataTypeN(12,2)6CABMPROVEEDO.fec_lastocFieldKeyField-7CABMPROVEEDO.fec_lastocField UpdatableaQCABMPROVEEDO.fec_lastocField UpdateNameges!proveedo.fec_lastoc9CABMPROVEEDO.fec_lastocFieldDataTypeD5CABMPROVEEDO.gananciasFieldKeyField-6CABMPROVEEDO.gananciasField UpdatableaOCABMPROVEEDO.gananciasField UpdateNameges!proveedo.ganancias;CABMPROVEEDO.gananciasFieldDataTypeN(1)3CABMPROVEEDO.cod_cueFieldKeyField-4CABMPROVEEDO.cod_cueField UpdatableaKCABMPROVEEDO.cod_cueField UpdateNameges!proveedo.cod_cue9CABMPROVEEDO.cod_cueFieldDataTypeC(9)3CABMPROVEEDO.cue_deuFieldKeyField-4CABMPROVEEDO.cue_deuField UpdatableaKCABMPROVEEDO.cue_deuField UpdateNameges!proveedo.cue_deu9CABMPROVEEDO.cue_deuFieldDataTypeC(9)4CABMPROVEEDO.comisionFieldKeyField-5CABMPROVEEDO.comisionField UpdatableaMCABMPROVEEDO.comisionField UpdateNameges!proveedo.comision<CABMPROVEEDO.comisionFieldDataTypeN(5,2)0CABMPROVEEDO.guiaFieldKeyField-1CABMPROVEEDO.guiaField UpdatableaECABMPROVEEDO.guiaField UpdateNameges!proveedo.guia6CABMPROVEEDO.guiaFieldDataTypeC(1)/CABMPROVEEDO.mbsFieldKeyField-0CABMPROVEEDO.mbsField UpdatableaCCABMPROVEEDO.mbsField UpdateNameges!proveedo.mbs5CABMPROVEEDO.mbsFieldDataTypeC(1)/CABMPROVEEDO.ivaFieldKeyField-0CABMPROVEEDO.ivaField UpdatableaCCABMPROVEEDO.ivaField UpdateNameges!proveedo.iva5CABMPROVEEDO.ivaFieldDataTypeC(1)2CABMPROVEEDO.retivaFieldKeyField-3CABMPROVEEDO.retivaField UpdatableaICABMPROVEEDO.retivaField UpdateNameges!proveedo.retiva8CABMPROVEEDO.retivaFieldDataTypeC(1)3CABMPROVEEDO.provhacFieldKeyField-4CABMPROVEEDO.provhacField UpdatableaKCABMPROVEEDO.provhacField UpdateNameges!proveedo.provhac9CABMPROVEEDO.provhacFieldDataTypeC(1)4CABMPROVEEDO.comi_comFieldKeyField-5CABMPROVEEDO.comi_comField UpdatableaMCABMPROVEEDO.comi_comField UpdateNameges!proveedo.comi_com<CABMPROVEEDO.comi_comFieldDataTypeN(6,2)4CABMPROVEEDO.comi_pagFieldKeyField-5CABMPROVEEDO.comi_pagField UpdatableaMCABMPROVEEDO.comi_pagField UpdateNameges!proveedo.comi_pag<CABMPROVEEDO.comi_pagFieldDataTypeN(6,2)5CABMPROVEEDO.compradorFieldKeyField-6CABMPROVEEDO.compradorField UpdatableaOCABMPROVEEDO.compradorField UpdateNameges!proveedo.comprador;CABMPROVEEDO.compradorFieldDataTypeC(8)3CABMPROVEEDO.pagadorFieldKeyField-4CABMPROVEEDO.pagadorField UpdatableaKCABMPROVEEDO.pagadorField UpdateNameges!proveedo.pagador9CABMPROVEEDO.pagadorFieldDataTypeC(8)0CABMPROVEEDO.zonaFieldKeyField-1CABMPROVEEDO.zonaField UpdatableaECABMPROVEEDO.zonaField UpdateNameges!proveedo.zona6CABMPROVEEDO.zonaFieldDataTypeN(4)/CABMPROVEEDO.catFieldKeyField-0CABMPROVEEDO.catField UpdatableaCCABMPROVEEDO.catField UpdateNameges!proveedo.cat5CABMPROVEEDO.catFieldDataTypeN(2)0CABMPROVEEDO.fpagFieldKeyField-1CABMPROVEEDO.fpagField UpdatableaECABMPROVEEDO.fpagField UpdateNameges!proveedo.fpag6CABMPROVEEDO.fpagFieldDataTypeN(2)5CABMPROVEEDO.contaccomFieldKeyField-6CABMPROVEEDO.contaccomField UpdatableaOCABMPROVEEDO.contaccomField UpdateNameges!proveedo.contaccom<CABMPROVEEDO.contaccomFieldDataTypeC(20)5CABMPROVEEDO.contacpagFieldKeyField-6CABMPROVEEDO.contacpagField UpdatableaOCABMPROVEEDO.contacpagField UpdateNameges!proveedo.contacpag<CABMPROVEEDO.contacpagFieldDataTypeC(20)2CABMPROVEEDO.ivacatFieldKeyField-3CABMPROVEEDO.ivacatField UpdatableaICABMPROVEEDO.ivacatField UpdateNameges!proveedo.ivacat8CABMPROVEEDO.ivacatFieldDataTypeN(1)6CABMPROVEEDO.comentarioFieldKeyField-7CABMPROVEEDO.comentarioField UpdatableaQCABMPROVEEDO.comentarioField UpdateNameges!proveedo.comentario9CABMPROVEEDO.comentarioFieldDataTypeM3CABMPROVEEDO.tarjetaFieldKeyField-4CABMPROVEEDO.tarjetaField UpdatableaKCABMPROVEEDO.tarjetaField UpdateNameges!proveedo.tarjeta9CABMPROVEEDO.tarjetaFieldDataTypeC(1)5CABMPROVEEDO.proveedorFieldKeyField-6CABMPROVEEDO.proveedorField UpdatableaOCABMPROVEEDO.proveedorField UpdateNameges!proveedo.proveedor<CABMPROVEEDO.proveedorFieldDataTypeN(15)5CABMPROVEEDO.antpagganFieldKeyField-6CABMPROVEEDO.antpagganField UpdatableaOCABMPROVEEDO.antpagganField UpdateNameges!proveedo.antpaggan>CABMPROVEEDO.antpagganFieldDataTypeN(18,2)5CABMPROVEEDO.antretganFieldKeyField-6CABMPROVEEDO.antretganField UpdatableaOCABMPROVEEDO.antretganField UpdateNameges!proveedo.antretgan>CABMPROVEEDO.antretganFieldDataTypeN(18,2)5CABMPROVEEDO.fecultpagFieldKeyField-6CABMPROVEEDO.fecultpagField UpdatableaOCABMPROVEEDO.fecultpagField UpdateNameges!proveedo.fecultpag8CABMPROVEEDO.fecultpagFieldDataTypeD2CABMPROVEEDO.rg3337FieldKeyField-3CABMPROVEEDO.rg3337Field UpdatableaICABMPROVEEDO.rg3337Field UpdateNameges!proveedo.rg33378CABMPROVEEDO.rg3337FieldDataTypeC(1)3CABMPROVEEDO.contadoFieldKeyField-4CABMPROVEEDO.contadoField UpdatableaKCABMPROVEEDO.contadoField UpdateNameges!proveedo.contado9CABMPROVEEDO.contadoFieldDataTypeC(1)2CABMPROVEEDO.fecultFieldKeyField-3CABMPROVEEDO.fecultField UpdatableaICABMPROVEEDO.fecultField UpdateNameges!proveedo.fecult5CABMPROVEEDO.fecultFieldDataTypeD0CABMPROVEEDO.paisFieldKeyField-1CABMPROVEEDO.paisField UpdatableaECABMPROVEEDO.paisField UpdateNameges!proveedo.pais6CABMPROVEEDO.paisFieldDataTypeN(3)3CABMPROVEEDO.clienteFieldKeyField-4CABMPROVEEDO.clienteField UpdatableaKCABMPROVEEDO.clienteField UpdateNameges!proveedo.cliente:CABMPROVEEDO.clienteFieldDataTypeC(15)4CABMPROVEEDO.fantasiaFieldKeyField-5CABMPROVEEDO.fantasiaField UpdatableaMCABMPROVEEDO.fantasiaField UpdateNameges!proveedo.fantasia;CABMPROVEEDO.fantasiaFieldDataTypeC(40)2CABMPROVEEDO.gancatFieldKeyField-3CABMPROVEEDO.gancatField UpdatableaICABMPROVEEDO.gancatField UpdateNameges!proveedo.gancat8CABMPROVEEDO.gancatFieldDataTypeN(2)/CABMPROVEEDO.iduFieldKeyFielda0CABMPROVEEDO.iduField UpdatableaCCABMPROVEEDO.iduField UpdateNameges!proveedo.idu6CABMPROVEEDO.iduFieldDataTypeC(10)/CABMPROVEEDO.faxFieldKeyField-0CABMPROVEEDO.faxField UpdatableaCCABMPROVEEDO.faxField UpdateNameges!proveedo.fax6CABMPROVEEDO.faxFieldDataTypeC(20)1CABMPROVEEDO.emailFieldKeyField-2CABMPROVEEDO.emailField UpdatableaGCABMPROVEEDO.emailField UpdateNameges!proveedo.email8CABMPROVEEDO.emailFieldDataTypeC(50)/CABMPROVEEDO.webFieldKeyField-0CABMPROVEEDO.webField UpdatableaCCABMPROVEEDO.webField UpdateNameges!proveedo.web6CABMPROVEEDO.webFieldDataTypeC(50).CABMPROVEEDO.ibFieldKeyField-/CABMPROVEEDO.ibField UpdatableaACABMPROVEEDO.ibField UpdateNameges!proveedo.ib5CABMPROVEEDO.ibFieldDataTypeC(20)1CABMPROVEEDO.ibretFieldKeyField-2CABMPROVEEDO.ibretField UpdatableaGCABMPROVEEDO.ibretField UpdateNameges!proveedo.ibret7CABMPROVEEDO.ibretFieldDataTypeN(2)3CABMPROVEEDO.tipofisFieldKeyField-4CABMPROVEEDO.tipofisField UpdatableaKCABMPROVEEDO.tipofisField UpdateNameges!proveedo.tipofis9CABMPROVEEDO.tipofisFieldDataTypeN(1)0CABMPROVEEDO.cat2FieldKeyField-1CABMPROVEEDO.cat2Field UpdatableaECABMPROVEEDO.cat2Field UpdateNameges!proveedo.cat26CABMPROVEEDO.cat2FieldDataTypeN(3)0CABMPROVEEDO.cat3FieldKeyField-1CABMPROVEEDO.cat3Field UpdatableaECABMPROVEEDO.cat3Field UpdateNameges!proveedo.cat36CABMPROVEEDO.cat3FieldDataTypeN(3)-C ABMPROVEEDO.mFieldKeyField-.C ABMPROVEEDO.mField Updatablea?C ABMPROVEEDO.mField UpdateNameges!proveedo.m0C ABMPROVEEDO.mFieldDataTypeL3CABMPROVEEDO.tipoivaFieldKeyField-4CABMPROVEEDO.tipoivaField UpdatableaKCABMPROVEEDO.tipoivaField UpdateNameges!proveedo.tipoiva9CABMPROVEEDO.tipoivaFieldDataTypeN(1)3CABMPROVEEDO.ivactrlFieldKeyField-4CABMPROVEEDO.ivactrlField UpdatableaKCABMPROVEEDO.ivactrlField UpdateNameges!proveedo.ivactrl9CABMPROVEEDO.ivactrlFieldDataTypeC(1)3CABMPROVEEDO.es_tarjFieldKeyField-4CABMPROVEEDO.es_tarjField UpdatableaKCABMPROVEEDO.es_tarjField UpdateNameges!proveedo.es_tarj9CABMPROVEEDO.es_tarjFieldDataTypeC(1)0CABMPROVEEDO.citiFieldKeyField-1CABMPROVEEDO.citiField UpdatableaECABMPROVEEDO.citiField UpdateNameges!proveedo.citi6CABMPROVEEDO.citiFieldDataTypeN(2)2CABMPROVEEDO.docrecFieldKeyField-3CABMPROVEEDO.docrecField UpdatableaICABMPROVEEDO.docrecField UpdateNameges!proveedo.docrec5CABMPROVEEDO.docrecFieldDataTypeL6CABMPROVEEDO.artpropiosFieldKeyField-7CABMPROVEEDO.artpropiosField UpdatableaQCABMPROVEEDO.artpropiosField UpdateNameges!proveedo.artpropios<CABMPROVEEDO.artpropiosFieldDataTypeC(1)4CABMPROVEEDO.vencinscFieldKeyField-5CABMPROVEEDO.vencinscField UpdatableaMCABMPROVEEDO.vencinscField UpdateNameges!proveedo.vencinsc7CABMPROVEEDO.vencinscFieldDataTypeD5CABMPROVEEDO.usa_plantFieldKeyField-6CABMPROVEEDO.usa_plantField UpdatableaOCABMPROVEEDO.usa_plantField UpdateNameges!proveedo.usa_plant8CABMPROVEEDO.usa_plantFieldDataTypeL2CABMPROVEEDO.ivaretFieldKeyField-3CABMPROVEEDO.ivaretField UpdatableaECABMPROVEEDO.ivaretField UpdateNameproveedo.ivaret8CABMPROVEEDO.ivaretFieldDataTypeN(2)3CABMPROVEEDO.retmonoFieldKeyField-4CABMPROVEEDO.retmonoField UpdatableaKCABMPROVEEDO.retmonoField UpdateNameges!proveedo.retmono9CABMPROVEEDO.retmonoFieldDataTypeN(1)2CABMPROVEEDO.iibbcmFieldKeyField-3CABMPROVEEDO.iibbcmField UpdatableaICABMPROVEEDO.iibbcmField UpdateNameges!proveedo.iibbcm8CABMPROVEEDO.iibbcmFieldDataTypeN(1)1CABMPROVEEDO.lineaFieldKeyField-2CABMPROVEEDO.lineaField UpdatableaGCABMPROVEEDO.lineaField UpdateNameges!proveedo.linea8CABMPROVEEDO.lineaFieldDataTypeN(10)3CABMPROVEEDO.imp_triFieldKeyField-4CABMPROVEEDO.imp_triField UpdatableaGCABMPROVEEDO.imp_triField UpdateNameproveedo.imp_tri9CABMPROVEEDO.imp_triFieldDataTypeC(1)1CABMPROVEEDO.retcpFieldKeyField-2CABMPROVEEDO.retcpField UpdatableaCCABMPROVEEDO.retcpField UpdateNameproveedo.retcp7CABMPROVEEDO.retcpFieldDataTypeN(2)3CABMPROVEEDO.cue_comFieldKeyField-4CABMPROVEEDO.cue_comField UpdatableaGCABMPROVEEDO.cue_comField UpdateNameproveedo.cue_com9CABMPROVEEDO.cue_comFieldDataTypeC(9)6CABMPROVEEDO.ganancias1FieldKeyField-7CABMPROVEEDO.ganancias1Field UpdatableaMCABMPROVEEDO.ganancias1Field UpdateNameproveedo.ganancias1<CABMPROVEEDO.ganancias1FieldDataTypeC(1)1CABMPROVEEDO.califFieldKeyField-2CABMPROVEEDO.califField UpdatableaCCABMPROVEEDO.califField UpdateNameproveedo.calif7CABMPROVEEDO.califFieldDataTypeN(1)4CABMPROVEEDO.califtxtFieldKeyField-5CABMPROVEEDO.califtxtField UpdatableaICABMPROVEEDO.califtxtField UpdateNameproveedo.califtxt7CABMPROVEEDO.califtxtFieldDataTypeM5CABMPROVEEDO.tipo_afipFieldKeyField-6CABMPROVEEDO.tipo_afipField UpdatableaKCABMPROVEEDO.tipo_afipField UpdateNameproveedo.tipo_afip;CABMPROVEEDO.tipo_afipFieldDataTypeN(2)4CABMPROVEEDO.bancotrfFieldKeyField-5CABMPROVEEDO.bancotrfField UpdatableaICABMPROVEEDO.bancotrfField UpdateNameproveedo.bancotrf;CABMPROVEEDO.bancotrfFieldDataTypeN(10).CABMPROVEEDO.bcFieldKeyField-/CABMPROVEEDO.bcField Updatablea=CABMPROVEEDO.bcField UpdateName proveedo.bc4CABMPROVEEDO.bcFieldDataTypeC(1)/CABMPROVEEDO.rutFieldKeyField-0CABMPROVEEDO.rutField Updatablea?CABMPROVEEDO.rutField UpdateName proveedo.rut6CABMPROVEEDO.rutFieldDataTypeC(20)3CABMPROVEEDO.est_actFieldKeyField-4CABMPROVEEDO.est_actField UpdatableaGCABMPROVEEDO.est_actField UpdateNameproveedo.est_act9CABMPROVEEDO.est_actFieldDataTypeN(1)3CABMPROVEEDO.ult_modFieldKeyField-4CABMPROVEEDO.ult_modField UpdatableaGCABMPROVEEDO.ult_modField UpdateNameproveedo.ult_mod6CABMPROVEEDO.ult_modFieldDataTypeT4CABMPROVEEDO.des_com3FieldKeyField-5CABMPROVEEDO.des_com3Field UpdatableaICABMPROVEEDO.des_com3Field UpdateNameproveedo.des_com3<CABMPROVEEDO.des_com3FieldDataTypeN(6,2)4CABMPROVEEDO.des_com4FieldKeyField-5CABMPROVEEDO.des_com4Field UpdatableaICABMPROVEEDO.des_com4Field UpdateNameproveedo.des_com4<CABMPROVEEDO.des_com4FieldDataTypeN(6,2)4CABMPROVEEDO.des_com5FieldKeyField-5CABMPROVEEDO.des_com5Field UpdatableaICABMPROVEEDO.des_com5Field UpdateNameproveedo.des_com5<CABMPROVEEDO.des_com5FieldDataTypeN(6,2)1CABMPROVEEDO.retarFieldKeyField-2CABMPROVEEDO.retarField UpdatableaCCABMPROVEEDO.retarField UpdateNameproveedo.retar7CABMPROVEEDO.retarFieldDataTypeN(1)3CABMPROVEEDO.ivacat2FieldKeyField-4CABMPROVEEDO.ivacat2Field UpdatableaGCABMPROVEEDO.ivacat2Field UpdateNameproveedo.ivacat29CABMPROVEEDO.ivacat2FieldDataTypeN(1)3CABMPROVEEDO.echequeFieldKeyField-4CABMPROVEEDO.echequeField UpdatableaGCABMPROVEEDO.echequeField UpdateNameproveedo.echeque9CABMPROVEEDO.echequeFieldDataTypeN(1)U S ABMSUCPROPQ;SELECT * FROM sucprop WHERE Sucprop.codigo = ( ?xcodigo )-C ABMSUCPROPView UpdateType,C ABMSUCPROPView WhereType*C ABMSUCPROPView FetchMemoa,C ABMSUCPROPView SendUpdatesa.C ABMSUCPROPView UseMemoSize,C ABMSUCPROPView FetchSized.C ABMSUCPROPView MaxRecords4C ABMSUCPROPViewTables ges!sucprop)C ABMSUCPROPViewPrepared-,C ABMSUCPROPView CompareMemoa.C ABMSUCPROPView FetchAsNeeded-*C ABMSUCPROPViewComment3C ABMSUCPROPViewBatchUpdateCount0C ABMSUCPROPViewShareConnection-1CABMSUCPROP.codigoFieldKeyField-2CABMSUCPROP.codigoField UpdatableaGCABMSUCPROP.codigoField UpdateNameges!sucprop.codigo7CABMSUCPROP.codigoFieldDataTypeN(4)0CABMSUCPROP.descrFieldKeyField-1CABMSUCPROP.descrField UpdatableaECABMSUCPROP.descrField UpdateNameges!sucprop.descr7CABMSUCPROP.descrFieldDataTypeC(30)0CABMSUCPROP.fechaFieldKeyField-1CABMSUCPROP.fechaField UpdatableaECABMSUCPROP.fechaField UpdateNameges!sucprop.fecha3CABMSUCPROP.fechaFieldDataTypeD0CABMSUCPROP.saldoFieldKeyField-1CABMSUCPROP.saldoField UpdatableaECABMSUCPROP.saldoField UpdateNameges!sucprop.saldo9CABMSUCPROP.saldoFieldDataTypeN(12,2).CABMSUCPROP.iduFieldKeyFielda/CABMSUCPROP.iduField UpdatableaACABMSUCPROP.iduField UpdateNameges!sucprop.idu5CABMSUCPROP.iduFieldDataTypeC(10)2CABMSUCPROP.cod_cenFieldKeyField-3CABMSUCPROP.cod_cenField UpdatableaICABMSUCPROP.cod_cenField UpdateNameges!sucprop.cod_cen8CABMSUCPROP.cod_cenFieldDataTypeC(6)1CABMSUCPROP.ctavenFieldKeyField-2CABMSUCPROP.ctavenField UpdatableaCCABMSUCPROP.ctavenField UpdateNamesucprop.ctaven7CABMSUCPROP.ctavenFieldDataTypeC(9)4CABMSUCPROP.ctacobvenFieldKeyField-5CABMSUCPROP.ctacobvenField UpdatableaICABMSUCPROP.ctacobvenField UpdateNamesucprop.ctacobven:CABMSUCPROP.ctacobvenFieldDataTypeC(9)2CABMSUCPROP.ult_modFieldKeyField-3CABMSUCPROP.ult_modField UpdatableaECABMSUCPROP.ult_modField UpdateNamesucprop.ult_mod5CABMSUCPROP.ult_modFieldDataTypeTUGABMZONASQ1SELECT * FROM zonas WHERE Zonas.codigo = ?xcodigo+CABMZONASView UpdateType*CABMZONASView WhereType(CABMZONASView FetchMemoa*CABMZONASView SendUpdatesa,CABMZONASView UseMemoSize*CABMZONASView FetchSized,CABMZONASView MaxRecords,CABMZONASViewTableszonas'CABMZONASViewPrepared-*CABMZONASView CompareMemoa,CABMZONASView FetchAsNeeded-(CABMZONASViewComment1CABMZONASViewBatchUpdateCount.CABMZONASViewShareConnection-/CABMZONAS.codigoFieldKeyField-0CABMZONAS.codigoField Updatablea?CABMZONAS.codigoField UpdateName zonas.codigo5CABMZONAS.codigoFieldDataTypeN(4).CABMZONAS.descrFieldKeyField-/CABMZONAS.descrField Updatablea=CABMZONAS.descrField UpdateName zonas.descr5CABMZONAS.descrFieldDataTypeC(30),C ABMZONAS.iduFieldKeyFielda-C ABMZONAS.iduField Updatablea9C ABMZONAS.iduField UpdateName zonas.idu3C ABMZONAS.iduFieldDataTypeC(10)0CABMZONAS.ult_modFieldKeyField-1CABMZONAS.ult_modField UpdatableaACABMZONAS.ult_modField UpdateName zonas.ult_mod3CABMZONAS.ult_modFieldDataTypeTU>,V VSUCURSALESQ<SELECT * FROM sucursal WHERE Sucursal.cod_cli LIKE ?xcod_cli.C VSUCURSALESView UpdateType-C VSUCURSALESView WhereType+C VSUCURSALESView FetchMemoa-C VSUCURSALESView SendUpdatesa/C VSUCURSALESView UseMemoSize-C VSUCURSALESView FetchSized/C VSUCURSALESView MaxRecords2C VSUCURSALESViewTablessucursal*C VSUCURSALESViewPrepared--C VSUCURSALESView CompareMemoa/C VSUCURSALESView FetchAsNeeded-+C VSUCURSALESViewComment4C VSUCURSALESViewBatchUpdateCount1C VSUCURSALESViewShareConnection-3CVSUCURSALES.cod_cliFieldKeyField-4CVSUCURSALES.cod_cliField UpdatableaGCVSUCURSALES.cod_cliField UpdateNamesucursal.cod_cli9CVSUCURSALES.cod_cliFieldDataTypeC(6)4CVSUCURSALES.sucursalFieldKeyField-5CVSUCURSALES.sucursalField UpdatableaICVSUCURSALES.sucursalField UpdateNamesucursal.sucursal:CVSUCURSALES.sucursalFieldDataTypeN(3)2CVSUCURSALES.nombreFieldKeyField-3CVSUCURSALES.nombreField UpdatableaECVSUCURSALES.nombreField UpdateNamesucursal.nombre9CVSUCURSALES.nombreFieldDataTypeC(30)5CVSUCURSALES.domicilioFieldKeyField-6CVSUCURSALES.domicilioField UpdatableaKCVSUCURSALES.domicilioField UpdateNamesucursal.domicilio<CVSUCURSALES.domicilioFieldDataTypeC(40)2CVSUCURSALES.ciudadFieldKeyField-3CVSUCURSALES.ciudadField UpdatableaECVSUCURSALES.ciudadField UpdateNamesucursal.ciudad9CVSUCURSALES.ciudadFieldDataTypeC(30)5CVSUCURSALES.provinciaFieldKeyField-6CVSUCURSALES.provinciaField UpdatableaKCVSUCURSALES.provinciaField UpdateNamesucursal.provincia;CVSUCURSALES.provinciaFieldDataTypeC(1)1CVSUCURSALES.phonoFieldKeyField-2CVSUCURSALES.phonoField UpdatableaCCVSUCURSALES.phonoField UpdateNamesucursal.phono8CVSUCURSALES.phonoFieldDataTypeC(30)3CVSUCURSALES.cod_zipFieldKeyField-4CVSUCURSALES.cod_zipField UpdatableaGCVSUCURSALES.cod_zipField UpdateNamesucursal.cod_zip:CVSUCURSALES.cod_zipFieldDataTypeC(12)3CVSUCURSALES.cod_fleFieldKeyField-4CVSUCURSALES.cod_fleField UpdatableaGCVSUCURSALES.cod_fleField UpdateNamesucursal.cod_fle9CVSUCURSALES.cod_fleFieldDataTypeC(6)3CVSUCURSALES.horarioFieldKeyField-4CVSUCURSALES.horarioField UpdatableaGCVSUCURSALES.horarioField UpdateNamesucursal.horario:CVSUCURSALES.horarioFieldDataTypeC(20).CVSUCURSALES.idFieldKeyField-/CVSUCURSALES.idField Updatablea=CVSUCURSALES.idField UpdateName sucursal.id5CVSUCURSALES.idFieldDataTypeC(14)2CVSUCURSALES.fecultFieldKeyField-3CVSUCURSALES.fecultField UpdatableaECVSUCURSALES.fecultField UpdateNamesucursal.fecult5CVSUCURSALES.fecultFieldDataTypeD3CVSUCURSALES.distribFieldKeyField-4CVSUCURSALES.distribField UpdatableaGCVSUCURSALES.distribField UpdateNamesucursal.distrib9CVSUCURSALES.distribFieldDataTypeC(8)4CVSUCURSALES.comi_disFieldKeyField-5CVSUCURSALES.comi_disField UpdatableaICVSUCURSALES.comi_disField UpdateNamesucursal.comi_dis<CVSUCURSALES.comi_disFieldDataTypeN(6,2)4CVSUCURSALES.vendedorFieldKeyField-5CVSUCURSALES.vendedorField UpdatableaICVSUCURSALES.vendedorField UpdateNamesucursal.vendedor:CVSUCURSALES.vendedorFieldDataTypeC(8)4CVSUCURSALES.comi_venFieldKeyField-5CVSUCURSALES.comi_venField UpdatableaICVSUCURSALES.comi_venField UpdateNamesucursal.comi_ven<CVSUCURSALES.comi_venFieldDataTypeN(6,2)4CVSUCURSALES.cobradorFieldKeyField-5CVSUCURSALES.cobradorField UpdatableaICVSUCURSALES.cobradorField UpdateNamesucursal.cobrador:CVSUCURSALES.cobradorFieldDataTypeC(8)4CVSUCURSALES.comi_cobFieldKeyField-5CVSUCURSALES.comi_cobField UpdatableaICVSUCURSALES.comi_cobField UpdateNamesucursal.comi_cob<CVSUCURSALES.comi_cobFieldDataTypeN(6,2)0CVSUCURSALES.fpagFieldKeyField-1CVSUCURSALES.fpagField UpdatableaACVSUCURSALES.fpagField UpdateName sucursal.fpag6CVSUCURSALES.fpagFieldDataTypeN(3)1CVSUCURSALES.listaFieldKeyField-2CVSUCURSALES.listaField UpdatableaCCVSUCURSALES.listaField UpdateNamesucursal.lista7CVSUCURSALES.listaFieldDataTypeN(2)3CVSUCURSALES.des_comFieldKeyField-4CVSUCURSALES.des_comField UpdatableaGCVSUCURSALES.des_comField UpdateNamesucursal.des_com;CVSUCURSALES.des_comFieldDataTypeN(6,2)4CVSUCURSALES.des_com2FieldKeyField-5CVSUCURSALES.des_com2Field UpdatableaICVSUCURSALES.des_com2Field UpdateNamesucursal.des_com2<CVSUCURSALES.des_com2FieldDataTypeN(6,2)4CVSUCURSALES.des_com3FieldKeyField-5CVSUCURSALES.des_com3Field UpdatableaICVSUCURSALES.des_com3Field UpdateNamesucursal.des_com3<CVSUCURSALES.des_com3FieldDataTypeN(6,2)4CVSUCURSALES.des_com4FieldKeyField-5CVSUCURSALES.des_com4Field UpdatableaICVSUCURSALES.des_com4Field UpdateNamesucursal.des_com4<CVSUCURSALES.des_com4FieldDataTypeN(6,2)4CVSUCURSALES.des_com5FieldKeyField-5CVSUCURSALES.des_com5Field UpdatableaICVSUCURSALES.des_com5Field UpdateNamesucursal.des_com5<CVSUCURSALES.des_com5FieldDataTypeN(6,2)4CVSUCURSALES.des_esp1FieldKeyField-5CVSUCURSALES.des_esp1Field UpdatableaICVSUCURSALES.des_esp1Field UpdateNamesucursal.des_esp1<CVSUCURSALES.des_esp1FieldDataTypeN(6,2)4CVSUCURSALES.des_esp2FieldKeyField-5CVSUCURSALES.des_esp2Field UpdatableaICVSUCURSALES.des_esp2Field UpdateNamesucursal.des_esp2<CVSUCURSALES.des_esp2FieldDataTypeN(6,2)4CVSUCURSALES.des_esp3FieldKeyField-5CVSUCURSALES.des_esp3Field UpdatableaICVSUCURSALES.des_esp3Field UpdateNamesucursal.des_esp3<CVSUCURSALES.des_esp3FieldDataTypeN(6,2)5CVSUCURSALES.contacvenFieldKeyField-6CVSUCURSALES.contacvenField UpdatableaKCVSUCURSALES.contacvenField UpdateNamesucursal.contacven<CVSUCURSALES.contacvenFieldDataTypeC(35)5CVSUCURSALES.contaccobFieldKeyField-6CVSUCURSALES.contaccobField UpdatableaKCVSUCURSALES.contaccobField UpdateNamesucursal.contaccob<CVSUCURSALES.contaccobFieldDataTypeC(35)4CVSUCURSALES.depositoFieldKeyField-5CVSUCURSALES.depositoField UpdatableaICVSUCURSALES.depositoField UpdateNamesucursal.deposito:CVSUCURSALES.depositoFieldDataTypeC(8)0CVSUCURSALES.paisFieldKeyField-1CVSUCURSALES.paisField UpdatableaACVSUCURSALES.paisField UpdateName sucursal.pais6CVSUCURSALES.paisFieldDataTypeN(3)0CVSUCURSALES.zonaFieldKeyField-1CVSUCURSALES.zonaField UpdatableaACVSUCURSALES.zonaField UpdateName sucursal.zona6CVSUCURSALES.zonaFieldDataTypeN(4)/CVSUCURSALES.faxFieldKeyField-0CVSUCURSALES.faxField Updatablea?CVSUCURSALES.faxField UpdateName sucursal.fax6CVSUCURSALES.faxFieldDataTypeC(20)1CVSUCURSALES.emailFieldKeyField-2CVSUCURSALES.emailField UpdatableaCCVSUCURSALES.emailField UpdateNamesucursal.email8CVSUCURSALES.emailFieldDataTypeC(50)/CVSUCURSALES.webFieldKeyField-0CVSUCURSALES.webField Updatablea?CVSUCURSALES.webField UpdateName sucursal.web6CVSUCURSALES.webFieldDataTypeC(50)/CVSUCURSALES.iduFieldKeyFielda0CVSUCURSALES.iduField Updatablea?CVSUCURSALES.iduField UpdateName sucursal.idu6CVSUCURSALES.iduFieldDataTypeC(10)5CVSUCURSALES.unegociosFieldKeyField-6CVSUCURSALES.unegociosField UpdatableaKCVSUCURSALES.unegociosField UpdateNamesucursal.unegocios;CVSUCURSALES.unegociosFieldDataTypeC(6)4CVSUCURSALES.fceemailFieldKeyField-5CVSUCURSALES.fceemailField UpdatableaICVSUCURSALES.fceemailField UpdateNamesucursal.fceemail;CVSUCURSALES.fceemailFieldDataTypeC(50)3CVSUCURSALES.fcedestFieldKeyField-4CVSUCURSALES.fcedestField UpdatableaGCVSUCURSALES.fcedestField UpdateNamesucursal.fcedest:CVSUCURSALES.fcedestFieldDataTypeC(40)4CVSUCURSALES.entcoordFieldKeyField-5CVSUCURSALES.entcoordField UpdatableaICVSUCURSALES.entcoordField UpdateNamesucursal.entcoord;CVSUCURSALES.entcoordFieldDataTypeC(30)2CVSUCURSALES.geodirFieldKeyField-3CVSUCURSALES.geodirField UpdatableaECVSUCURSALES.geodirField UpdateNamesucursal.geodir:CVSUCURSALES.geodirFieldDataTypeC(120)3CVSUCURSALES.est_actFieldKeyField-4CVSUCURSALES.est_actField UpdatableaGCVSUCURSALES.est_actField UpdateNamesucursal.est_act9CVSUCURSALES.est_actFieldDataTypeN(1)3CVSUCURSALES.dir_facFieldKeyField-4CVSUCURSALES.dir_facField UpdatableaGCVSUCURSALES.dir_facField UpdateNamesucursal.dir_fac9CVSUCURSALES.dir_facFieldDataTypeC(1)/CVSUCURSALES.glnFieldKeyField-0CVSUCURSALES.glnField Updatablea?CVSUCURSALES.glnField UpdateName sucursal.gln6CVSUCURSALES.glnFieldDataTypeN(13)3CVSUCURSALES.ult_modFieldKeyField-4CVSUCURSALES.ult_modField UpdatableaGCVSUCURSALES.ult_modField UpdateNamesucursal.ult_mod6CVSUCURSALES.ult_modFieldDataTypeTUp_ ABMUNIDADESQFSELECT Unidades.* FROM unidades WHERE Unidades.codigo = ( ?xcodigo ).C ABMUNIDADESView UpdateType-C ABMUNIDADESView WhereType+C ABMUNIDADESView FetchMemoa-C ABMUNIDADESView SendUpdatesa/C ABMUNIDADESView UseMemoSize-C ABMUNIDADESView FetchSized/C ABMUNIDADESView MaxRecords6C ABMUNIDADESViewTables ges!unidades*C ABMUNIDADESViewPrepared--C ABMUNIDADESView CompareMemoa/C ABMUNIDADESView FetchAsNeeded-+C ABMUNIDADESViewComment4C ABMUNIDADESViewBatchUpdateCount1C ABMUNIDADESViewShareConnection-2CABMUNIDADES.codigoFieldKeyField-3CABMUNIDADES.codigoField UpdatableaICABMUNIDADES.codigoField UpdateNameges!unidades.codigo8CABMUNIDADES.codigoFieldDataTypeN(4)1CABMUNIDADES.descrFieldKeyField-2CABMUNIDADES.descrField UpdatableaGCABMUNIDADES.descrField UpdateNameges!unidades.descr8CABMUNIDADES.descrFieldDataTypeC(30)/CABMUNIDADES.iduFieldKeyField-0CABMUNIDADES.iduField UpdatableaCCABMUNIDADES.iduField UpdateNameges!unidades.idu6CABMUNIDADES.iduFieldDataTypeC(10)3CABMUNIDADES.ult_modFieldKeyField-4CABMUNIDADES.ult_modField UpdatableaGCABMUNIDADES.ult_modField UpdateNameunidades.ult_mod6CABMUNIDADES.ult_modFieldDataTypeTUcR ABMRUBROFACQ9SELECT * FROM rubrofac WHERE Rubrofac.codigo = ?xcodigo.C ABMRUBROFACView UpdateType-C ABMRUBROFACView WhereType+C ABMRUBROFACView FetchMemoa-C ABMRUBROFACView SendUpdatesa/C ABMRUBROFACView UseMemoSize-C ABMRUBROFACView FetchSized/C ABMRUBROFACView MaxRecords6C ABMRUBROFACViewTables ges!rubrofac*C ABMRUBROFACViewPrepared--C ABMRUBROFACView CompareMemoa/C ABMRUBROFACView FetchAsNeeded-+C ABMRUBROFACViewComment4C ABMRUBROFACViewBatchUpdateCount1C ABMRUBROFACViewShareConnection-2CABMRUBROFAC.codigoFieldKeyField-3CABMRUBROFAC.codigoField UpdatableaICABMRUBROFAC.codigoField UpdateNameges!rubrofac.codigo8CABMRUBROFAC.codigoFieldDataTypeN(4)1CABMRUBROFAC.descrFieldKeyField-2CABMRUBROFAC.descrField UpdatableaGCABMRUBROFAC.descrField UpdateNameges!rubrofac.descr8CABMRUBROFAC.descrFieldDataTypeC(30)/CABMRUBROFAC.iduFieldKeyFielda0CABMRUBROFAC.iduField UpdatableaCCABMRUBROFAC.iduField UpdateNameges!rubrofac.idu6CABMRUBROFAC.iduFieldDataTypeC(10)3CABMRUBROFAC.ult_modFieldKeyField-4CABMRUBROFAC.ult_modField UpdatableaGCABMRUBROFAC.ult_modField UpdateNamerubrofac.ult_mod6CABMRUBROFAC.ult_modFieldDataTypeTUAW ABMACUERDOSQ>SELECT * FROM acuerdos WHERE Acuerdos.codigo == ( ?xcodigo ).C ABMACUERDOSView UpdateType-C ABMACUERDOSView WhereType+C ABMACUERDOSView FetchMemoa-C ABMACUERDOSView SendUpdatesa/C ABMACUERDOSView UseMemoSize-C ABMACUERDOSView FetchSized/C ABMACUERDOSView MaxRecords6C ABMACUERDOSViewTables ges!acuerdos*C ABMACUERDOSViewPrepared--C ABMACUERDOSView CompareMemoa/C ABMACUERDOSView FetchAsNeeded-+C ABMACUERDOSViewComment4C ABMACUERDOSViewBatchUpdateCount1C ABMACUERDOSViewShareConnection-1CABMACUERDOS.descrFieldKeyField-2CABMACUERDOS.descrField UpdatableaGCABMACUERDOS.descrField UpdateNameges!acuerdos.descr8CABMACUERDOS.descrFieldDataTypeC(30)/CABMACUERDOS.iduFieldKeyFielda0CABMACUERDOS.iduField UpdatableaCCABMACUERDOS.iduField UpdateNameges!acuerdos.idu6CABMACUERDOS.iduFieldDataTypeC(10)0CABMACUERDOS.dcliFieldKeyField-1CABMACUERDOS.dcliField UpdatableaECABMACUERDOS.dcliField UpdateNameges!acuerdos.dcli6CABMACUERDOS.dcliFieldDataTypeC(6)0CABMACUERDOS.hcliFieldKeyField-1CABMACUERDOS.hcliField UpdatableaECABMACUERDOS.hcliField UpdateNameges!acuerdos.hcli6CABMACUERDOS.hcliFieldDataTypeC(6)0CABMACUERDOS.dbieFieldKeyField-1CABMACUERDOS.dbieField UpdatableaECABMACUERDOS.dbieField UpdateNameges!acuerdos.dbie7CABMACUERDOS.dbieFieldDataTypeC(15)0CABMACUERDOS.hbieFieldKeyField-1CABMACUERDOS.hbieField UpdatableaECABMACUERDOS.hbieField UpdateNameges!acuerdos.hbie7CABMACUERDOS.hbieFieldDataTypeC(15)0CABMACUERDOS.dgruFieldKeyField-1CABMACUERDOS.dgruField UpdatableaECABMACUERDOS.dgruField UpdateNameges!acuerdos.dgru7CABMACUERDOS.dgruFieldDataTypeN(10)0CABMACUERDOS.hgruFieldKeyField-1CABMACUERDOS.hgruField UpdatableaECABMACUERDOS.hgruField UpdateNameges!acuerdos.hgru7CABMACUERDOS.hgruFieldDataTypeN(10)0CABMACUERDOS.dlinFieldKeyField-1CABMACUERDOS.dlinField UpdatableaECABMACUERDOS.dlinField UpdateNameges!acuerdos.dlin7CABMACUERDOS.dlinFieldDataTypeN(10)0CABMACUERDOS.hlinFieldKeyField-1CABMACUERDOS.hlinField UpdatableaECABMACUERDOS.hlinField UpdateNameges!acuerdos.hlin7CABMACUERDOS.hlinFieldDataTypeN(10)0CABMACUERDOS.dvenFieldKeyField-1CABMACUERDOS.dvenField UpdatableaECABMACUERDOS.dvenField UpdateNameges!acuerdos.dven6CABMACUERDOS.dvenFieldDataTypeC(6)0CABMACUERDOS.hvenFieldKeyField-1CABMACUERDOS.hvenField UpdatableaECABMACUERDOS.hvenField UpdateNameges!acuerdos.hven6CABMACUERDOS.hvenFieldDataTypeC(6)/CABMACUERDOS.dtoFieldKeyField-0CABMACUERDOS.dtoField UpdatableaCCABMACUERDOS.dtoField UpdateNameges!acuerdos.dto7CABMACUERDOS.dtoFieldDataTypeN(6,2)0CABMACUERDOS.tipoFieldKeyField-1CABMACUERDOS.tipoField UpdatableaECABMACUERDOS.tipoField UpdateNameges!acuerdos.tipo6CABMACUERDOS.tipoFieldDataTypeN(2)0CABMACUERDOS.dfecFieldKeyField-1CABMACUERDOS.dfecField UpdatableaECABMACUERDOS.dfecField UpdateNameges!acuerdos.dfec3CABMACUERDOS.dfecFieldDataTypeD0CABMACUERDOS.hfecFieldKeyField-1CABMACUERDOS.hfecField UpdatableaECABMACUERDOS.hfecField UpdateNameges!acuerdos.hfec3CABMACUERDOS.hfecFieldDataTypeD5CABMACUERDOS.prioridadFieldKeyField-6CABMACUERDOS.prioridadField UpdatableaOCABMACUERDOS.prioridadField UpdateNameges!acuerdos.prioridad=CABMACUERDOS.prioridadFieldDataTypeN(6,2)2CABMACUERDOS.codigoFieldKeyField-3CABMACUERDOS.codigoField UpdatableaICABMACUERDOS.codigoField UpdateNameges!acuerdos.codigo9CABMACUERDOS.codigoFieldDataTypeN(10)0CABMACUERDOS.dto2FieldKeyField-1CABMACUERDOS.dto2Field UpdatableaECABMACUERDOS.dto2Field UpdateNameges!acuerdos.dto28CABMACUERDOS.dto2FieldDataTypeN(6,2)0CABMACUERDOS.dto3FieldKeyField-1CABMACUERDOS.dto3Field UpdatableaECABMACUERDOS.dto3Field UpdateNameges!acuerdos.dto38CABMACUERDOS.dto3FieldDataTypeN(6,2)1CABMACUERDOS.textoFieldKeyField-2CABMACUERDOS.textoField UpdatableaGCABMACUERDOS.textoField UpdateNameges!acuerdos.texto9CABMACUERDOS.textoFieldDataTypeC(200)1CABMACUERDOS.listaFieldKeyField-2CABMACUERDOS.listaField UpdatableaGCABMACUERDOS.listaField UpdateNameges!acuerdos.lista7CABMACUERDOS.listaFieldDataTypeN(3)2CABMACUERDOS.cuentaFieldKeyField-3CABMACUERDOS.cuentaField UpdatableaICABMACUERDOS.cuentaField UpdateNameges!acuerdos.cuenta8CABMACUERDOS.cuentaFieldDataTypeC(9)4CABMACUERDOS.sectoresFieldKeyField-5CABMACUERDOS.sectoresField UpdatableaICABMACUERDOS.sectoresField UpdateNameacuerdos.sectores<CABMACUERDOS.sectoresFieldDataTypeC(254)4CABMACUERDOS.tipo_acuFieldKeyField-5CABMACUERDOS.tipo_acuField UpdatableaICABMACUERDOS.tipo_acuField UpdateNameacuerdos.tipo_acu:CABMACUERDOS.tipo_acuFieldDataTypeN(1)6CABMACUERDOS.en_facturaFieldKeyField-7CABMACUERDOS.en_facturaField UpdatableaMCABMACUERDOS.en_facturaField UpdateNameacuerdos.en_factura<CABMACUERDOS.en_facturaFieldDataTypeN(1)/CABMACUERDOS.atrFieldKeyField-0CABMACUERDOS.atrField Updatablea?CABMACUERDOS.atrField UpdateName acuerdos.atr5CABMACUERDOS.atrFieldDataTypeC(3)/CABMACUERDOS.bulFieldKeyField-0CABMACUERDOS.bulField Updatablea?CABMACUERDOS.bulField UpdateName acuerdos.bul5CABMACUERDOS.bulFieldDataTypeC(3)3CABMACUERDOS.ult_modFieldKeyField-4CABMACUERDOS.ult_modField UpdatableaGCABMACUERDOS.ult_modField UpdateNameacuerdos.ult_mod6CABMACUERDOS.ult_modFieldDataTypeTUN T ABMMEDIDASQ<SELECT * FROM medidas WHERE Medidas.codigo == ( ?xcodigo )-C ABMMEDIDASView UpdateType,C ABMMEDIDASView WhereType*C ABMMEDIDASView FetchMemoa,C ABMMEDIDASView SendUpdatesa.C ABMMEDIDASView UseMemoSize,C ABMMEDIDASView FetchSized.C ABMMEDIDASView MaxRecords4C ABMMEDIDASViewTables ges!medidas)C ABMMEDIDASViewPrepared-,C ABMMEDIDASView CompareMemoa.C ABMMEDIDASView FetchAsNeeded-*C ABMMEDIDASViewComment3C ABMMEDIDASViewBatchUpdateCount0C ABMMEDIDASViewShareConnection-1CABMMEDIDAS.codigoFieldKeyField-2CABMMEDIDAS.codigoField UpdatableaGCABMMEDIDAS.codigoField UpdateNameges!medidas.codigo7CABMMEDIDAS.codigoFieldDataTypeN(3)0CABMMEDIDAS.descrFieldKeyField-1CABMMEDIDAS.descrField UpdatableaECABMMEDIDAS.descrField UpdateNameges!medidas.descr7CABMMEDIDAS.descrFieldDataTypeC(10)0CABMMEDIDAS.abrevFieldKeyField-1CABMMEDIDAS.abrevField UpdatableaECABMMEDIDAS.abrevField UpdateNameges!medidas.abrev6CABMMEDIDAS.abrevFieldDataTypeC(3).CABMMEDIDAS.iduFieldKeyFielda/CABMMEDIDAS.iduField UpdatableaACABMMEDIDAS.iduField UpdateNameges!medidas.idu5CABMMEDIDAS.iduFieldDataTypeC(10).CABMMEDIDAS.fceFieldKeyField-/CABMMEDIDAS.fceField UpdatableaACABMMEDIDAS.fceField UpdateNameges!medidas.fce5CABMMEDIDAS.fceFieldDataTypeN(10)1CABMMEDIDAS.descr2FieldKeyField-2CABMMEDIDAS.descr2Field UpdatableaGCABMMEDIDAS.descr2Field UpdateNameges!medidas.descr28CABMMEDIDAS.descr2FieldDataTypeC(10)1CABMMEDIDAS.abrev2FieldKeyField-2CABMMEDIDAS.abrev2Field UpdatableaGCABMMEDIDAS.abrev2Field UpdateNameges!medidas.abrev27CABMMEDIDAS.abrev2FieldDataTypeC(3)/CABMMEDIDAS.fce2FieldKeyField-0CABMMEDIDAS.fce2Field UpdatableaCCABMMEDIDAS.fce2Field UpdateNameges!medidas.fce26CABMMEDIDAS.fce2FieldDataTypeN(10)4CABMMEDIDAS.decimalesFieldKeyField-5CABMMEDIDAS.decimalesField UpdatableaICABMMEDIDAS.decimalesField UpdateNamemedidas.decimales:CABMMEDIDAS.decimalesFieldDataTypeN(1)/CABMMEDIDAS.convFieldKeyField-0CABMMEDIDAS.convField Updatablea?CABMMEDIDAS.convField UpdateName medidas.conv8CABMMEDIDAS.convFieldDataTypeN(18,6)2CABMMEDIDAS.ult_modFieldKeyField-3CABMMEDIDAS.ult_modField UpdatableaECABMMEDIDAS.ult_modField UpdateNamemedidas.ult_mod5CABMMEDIDAS.ult_modFieldDataTypeTU>P ABMARMADORQ8SELECT * FROM armador WHERE Armador.codigo == ?xcodigo-C ABMARMADORView UpdateType,C ABMARMADORView WhereType*C ABMARMADORView FetchMemoa,C ABMARMADORView SendUpdatesa.C ABMARMADORView UseMemoSize,C ABMARMADORView FetchSized.C ABMARMADORView MaxRecords4C ABMARMADORViewTables ges!armador)C ABMARMADORViewPrepared-,C ABMARMADORView CompareMemoa.C ABMARMADORView FetchAsNeeded-*C ABMARMADORViewComment3C ABMARMADORViewBatchUpdateCount0C ABMARMADORViewShareConnection-1CABMARMADOR.codigoFieldKeyField-2CABMARMADOR.codigoField UpdatableaGCABMARMADOR.codigoField UpdateNameges!armador.codigo7CABMARMADOR.codigoFieldDataTypeN(4)0CABMARMADOR.descrFieldKeyField-1CABMARMADOR.descrField UpdatableaECABMARMADOR.descrField UpdateNameges!armador.descr7CABMARMADOR.descrFieldDataTypeC(30).CABMARMADOR.iduFieldKeyFielda/CABMARMADOR.iduField UpdatableaACABMARMADOR.iduField UpdateNameges!armador.idu5CABMARMADOR.iduFieldDataTypeC(10)2CABMARMADOR.ult_modFieldKeyField-3CABMARMADOR.ult_modField UpdatableaECABMARMADOR.ult_modField UpdateNamearmador.ult_mod5CABMARMADOR.ult_modFieldDataTypeTU Q ABMTEXTOSQ:SELECT * FROM textos WHERE Textos.codigo == ( ?xcodigo ),C ABMTEXTOSView UpdateType+C ABMTEXTOSView WhereType)C ABMTEXTOSView FetchMemoa+C ABMTEXTOSView SendUpdatesa-C ABMTEXTOSView UseMemoSize+C ABMTEXTOSView FetchSized-C ABMTEXTOSView MaxRecords2C ABMTEXTOSViewTables ges!textos(C ABMTEXTOSViewPrepared-+C ABMTEXTOSView CompareMemoa-C ABMTEXTOSView FetchAsNeeded-)C ABMTEXTOSViewComment2C ABMTEXTOSViewBatchUpdateCount/C ABMTEXTOSViewShareConnection-0CABMTEXTOS.codigoFieldKeyField-1CABMTEXTOS.codigoField UpdatableaECABMTEXTOS.codigoField UpdateNameges!textos.codigo7CABMTEXTOS.codigoFieldDataTypeN(10)/CABMTEXTOS.descrFieldKeyField-0CABMTEXTOS.descrField UpdatableaCCABMTEXTOS.descrField UpdateNameges!textos.descr6CABMTEXTOS.descrFieldDataTypeC(40)/CABMTEXTOS.textoFieldKeyField-0CABMTEXTOS.textoField UpdatableaCCABMTEXTOS.textoField UpdateNameges!textos.texto2CABMTEXTOS.textoFieldDataTypeM-C ABMTEXTOS.codFieldKeyField-.C ABMTEXTOS.codField Updatablea?C ABMTEXTOS.codField UpdateNameges!textos.cod3C ABMTEXTOS.codFieldDataTypeC(6)-C ABMTEXTOS.iduFieldKeyFielda.C ABMTEXTOS.iduField Updatablea?C ABMTEXTOS.iduField UpdateNameges!textos.idu4C ABMTEXTOS.iduFieldDataTypeC(10)0CABMTEXTOS.activoFieldKeyField-1CABMTEXTOS.activoField UpdatableaECABMTEXTOS.activoField UpdateNameges!textos.activo3CABMTEXTOS.activoFieldDataTypeL/CABMTEXTOS.grupoFieldKeyField-0CABMTEXTOS.grupoField UpdatableaCCABMTEXTOS.grupoField UpdateNameges!textos.grupo6CABMTEXTOS.grupoFieldDataTypeN(10)5CABMTEXTOS.comprobanteFieldKeyField-6CABMTEXTOS.comprobanteField UpdatableaKCABMTEXTOS.comprobanteField UpdateNametextos.comprobante;CABMTEXTOS.comprobanteFieldDataTypeN(2).CABMTEXTOS.cpbtFieldKeyField-/CABMTEXTOS.cpbtField Updatablea=CABMTEXTOS.cpbtField UpdateName textos.cpbt4CABMTEXTOS.cpbtFieldDataTypeN(2)/CABMTEXTOS.desdeFieldKeyField-0CABMTEXTOS.desdeField Updatablea?CABMTEXTOS.desdeField UpdateName textos.desde2CABMTEXTOS.desdeFieldDataTypeD/CABMTEXTOS.hastaFieldKeyField-0CABMTEXTOS.hastaField Updatablea?CABMTEXTOS.hastaField UpdateName textos.hasta2CABMTEXTOS.hastaFieldDataTypeD1CABMTEXTOS.ult_modFieldKeyField-2CABMTEXTOS.ult_modField UpdatableaCCABMTEXTOS.ult_modField UpdateNametextos.ult_mod4CABMTEXTOS.ult_modFieldDataTypeTU S ABMCTASBANCQ:SELECT * FROM ctasbanc WHERE Ctasbanc.codigo == ?xcodigo.C ABMCTASBANCView UpdateType-C ABMCTASBANCView WhereType+C ABMCTASBANCView FetchMemoa-C ABMCTASBANCView SendUpdatesa/C ABMCTASBANCView UseMemoSize-C ABMCTASBANCView FetchSized/C ABMCTASBANCView MaxRecords6C ABMCTASBANCViewTables ges!ctasbanc*C ABMCTASBANCViewPrepared--C ABMCTASBANCView CompareMemoa/C ABMCTASBANCView FetchAsNeeded-+C ABMCTASBANCViewComment4C ABMCTASBANCViewBatchUpdateCount1C ABMCTASBANCViewShareConnection-2CABMCTASBANC.codigoFieldKeyField-3CABMCTASBANC.codigoField UpdatableaICABMCTASBANC.codigoField UpdateNameges!ctasbanc.codigo9CABMCTASBANC.codigoFieldDataTypeN(10)1CABMCTASBANC.descrFieldKeyField-2CABMCTASBANC.descrField UpdatableaGCABMCTASBANC.descrField UpdateNameges!ctasbanc.descr8CABMCTASBANC.descrFieldDataTypeC(40)3CABMCTASBANC.cod_proFieldKeyField-4CABMCTASBANC.cod_proField UpdatableaKCABMCTASBANC.cod_proField UpdateNameges!ctasbanc.cod_pro9CABMCTASBANC.cod_proFieldDataTypeC(6)3CABMCTASBANC.cod_cueFieldKeyField-4CABMCTASBANC.cod_cueField UpdatableaKCABMCTASBANC.cod_cueField UpdateNameges!ctasbanc.cod_cue9CABMCTASBANC.cod_cueFieldDataTypeC(9)0CABMCTASBANC.tipoFieldKeyField-1CABMCTASBANC.tipoField UpdatableaECABMCTASBANC.tipoField UpdateNameges!ctasbanc.tipo6CABMCTASBANC.tipoFieldDataTypeN(1)/CABMCTASBANC.cbuFieldKeyField-0CABMCTASBANC.cbuField UpdatableaCCABMCTASBANC.cbuField UpdateNameges!ctasbanc.cbu6CABMCTASBANC.cbuFieldDataTypeC(22)/CABMCTASBANC.iduFieldKeyFielda0CABMCTASBANC.iduField UpdatableaCCABMCTASBANC.iduField UpdateNameges!ctasbanc.idu6CABMCTASBANC.iduFieldDataTypeC(10)3CABMCTASBANC.est_actFieldKeyField-4CABMCTASBANC.est_actField UpdatableaKCABMCTASBANC.est_actField UpdateNameges!ctasbanc.est_act9CABMCTASBANC.est_actFieldDataTypeC(1)5CABMCTASBANC.impleycueFieldKeyField-6CABMCTASBANC.impleycueField UpdatableaOCABMCTASBANC.impleycueField UpdateNameges!ctasbanc.impleycue;CABMCTASBANC.impleycueFieldDataTypeC(9)5CABMCTASBANC.chqdifcueFieldKeyField-6CABMCTASBANC.chqdifcueField UpdatableaOCABMCTASBANC.chqdifcueField UpdateNameges!ctasbanc.chqdifcue;CABMCTASBANC.chqdifcueFieldDataTypeC(9)3CABMCTASBANC.cod_banFieldKeyField-4CABMCTASBANC.cod_banField UpdatableaGCABMCTASBANC.cod_banField UpdateNamectasbanc.cod_ban:CABMCTASBANC.cod_banFieldDataTypeN(10)3CABMCTASBANC.ult_modFieldKeyField-4CABMCTASBANC.ult_modField UpdatableaGCABMCTASBANC.ult_modField UpdateNamectasbanc.ult_mod6CABMCTASBANC.ult_modFieldDataTypeTU. ABMINVMODEQSELECT * FROM invmode-C ABMINVMODEView UpdateType,C ABMINVMODEView WhereType*C ABMINVMODEView FetchMemoa,C ABMINVMODEView SendUpdatesa.C ABMINVMODEView UseMemoSize,C ABMINVMODEView FetchSized.C ABMINVMODEView MaxRecords4C ABMINVMODEViewTables ges!invmode)C ABMINVMODEViewPrepared-,C ABMINVMODEView CompareMemoa.C ABMINVMODEView FetchAsNeeded-*C ABMINVMODEViewComment3C ABMINVMODEViewBatchUpdateCount0C ABMINVMODEViewShareConnection-1CABMINVMODE.codigoFieldKeyField-2CABMINVMODE.codigoField UpdatableaGCABMINVMODE.codigoField UpdateNameges!invmode.codigo8CABMINVMODE.codigoFieldDataTypeN(10)0CABMINVMODE.descrFieldKeyField-1CABMINVMODE.descrField UpdatableaECABMINVMODE.descrField UpdateNameges!invmode.descr7CABMINVMODE.descrFieldDataTypeC(40)2CABMINVMODE.balanceFieldKeyField-3CABMINVMODE.balanceField UpdatableaICABMINVMODE.balanceField UpdateNameges!invmode.balance5CABMINVMODE.balanceFieldDataTypeL3CABMINVMODE.balanceoFieldKeyField-4CABMINVMODE.balanceoField UpdatableaKCABMINVMODE.balanceoField UpdateNameges!invmode.balanceo9CABMINVMODE.balanceoFieldDataTypeN(1).CABMINVMODE.iduFieldKeyFielda/CABMINVMODE.iduField UpdatableaACABMINVMODE.iduField UpdateNameges!invmode.idu5CABMINVMODE.iduFieldDataTypeC(10)1CABMINVMODE.refmodFieldKeyField-2CABMINVMODE.refmodField UpdatableaCCABMINVMODE.refmodField UpdateNameinvmode.refmod8CABMINVMODE.refmodFieldDataTypeN(10)2CABMINVMODE.ult_modFieldKeyField-3CABMINVMODE.ult_modField UpdatableaECABMINVMODE.ult_modField UpdateNameinvmode.ult_mod5CABMINVMODE.ult_modFieldDataTypeTUP ABMENVASESQ8SELECT * FROM envases WHERE Envases.codigo == ?xcodigo-C ABMENVASESView UpdateType,C ABMENVASESView WhereType*C ABMENVASESView FetchMemoa,C ABMENVASESView SendUpdatesa.C ABMENVASESView UseMemoSize,C ABMENVASESView FetchSized.C ABMENVASESView MaxRecords4C ABMENVASESViewTables ges!envases)C ABMENVASESViewPrepared-,C ABMENVASESView CompareMemoa.C ABMENVASESView FetchAsNeeded-*C ABMENVASESViewComment3C ABMENVASESViewBatchUpdateCount0C ABMENVASESViewShareConnection-1CABMENVASES.codigoFieldKeyField-2CABMENVASES.codigoField UpdatableaGCABMENVASES.codigoField UpdateNameges!envases.codigo8CABMENVASES.codigoFieldDataTypeN(10)0CABMENVASES.descrFieldKeyField-1CABMENVASES.descrField UpdatableaECABMENVASES.descrField UpdateNameges!envases.descr7CABMENVASES.descrFieldDataTypeC(30)0CABMENVASES.abrevFieldKeyField-1CABMENVASES.abrevField UpdatableaECABMENVASES.abrevField UpdateNameges!envases.abrev6CABMENVASES.abrevFieldDataTypeC(3).CABMENVASES.iduFieldKeyFielda/CABMENVASES.iduField UpdatableaACABMENVASES.iduField UpdateNameges!envases.idu5CABMENVASES.iduFieldDataTypeC(10)2CABMENVASES.ult_modFieldKeyField-3CABMENVASES.ult_modField UpdatableaECABMENVASES.ult_modField UpdateNameenvases.ult_mod5CABMENVASES.ult_modFieldDataTypeTUdS ABMSPRGRUPOQ:SELECT * FROM sprgrupo WHERE Sprgrupo.codigo == ?xcodigo.C ABMSPRGRUPOView UpdateType-C ABMSPRGRUPOView WhereType+C ABMSPRGRUPOView FetchMemoa-C ABMSPRGRUPOView SendUpdatesa/C ABMSPRGRUPOView UseMemoSize-C ABMSPRGRUPOView FetchSized/C ABMSPRGRUPOView MaxRecords6C ABMSPRGRUPOViewTables ges!sprgrupo*C ABMSPRGRUPOViewPrepared--C ABMSPRGRUPOView CompareMemoa/C ABMSPRGRUPOView FetchAsNeeded-+C ABMSPRGRUPOViewComment4C ABMSPRGRUPOViewBatchUpdateCount1C ABMSPRGRUPOViewShareConnection-2CABMSPRGRUPO.codigoFieldKeyField-3CABMSPRGRUPO.codigoField UpdatableaICABMSPRGRUPO.codigoField UpdateNameges!sprgrupo.codigo8CABMSPRGRUPO.codigoFieldDataTypeN(4)1CABMSPRGRUPO.descrFieldKeyField-2CABMSPRGRUPO.descrField UpdatableaGCABMSPRGRUPO.descrField UpdateNameges!sprgrupo.descr8CABMSPRGRUPO.descrFieldDataTypeC(30)/CABMSPRGRUPO.iduFieldKeyFielda0CABMSPRGRUPO.iduField UpdatableaCCABMSPRGRUPO.iduField UpdateNameges!sprgrupo.idu6CABMSPRGRUPO.iduFieldDataTypeC(10)3CABMSPRGRUPO.ult_modFieldKeyField-4CABMSPRGRUPO.ult_modField UpdatableaGCABMSPRGRUPO.ult_modField UpdateNamesprgrupo.ult_mod6CABMSPRGRUPO.ult_modFieldDataTypeTUV ABMCOS_CPREQ=SELECT * FROM ges!cos_cpre WHERE Cos_cpre.codigo == ?xcodigo.C ABMCOS_CPREView UpdateType-C ABMCOS_CPREView WhereType+C ABMCOS_CPREView FetchMemoa-C ABMCOS_CPREView SendUpdatesa/C ABMCOS_CPREView UseMemoSize-C ABMCOS_CPREView FetchSized/C ABMCOS_CPREView MaxRecords6C ABMCOS_CPREViewTables ges!cos_cpre*C ABMCOS_CPREViewPrepared--C ABMCOS_CPREView CompareMemoa/C ABMCOS_CPREView FetchAsNeeded-+C ABMCOS_CPREViewComment4C ABMCOS_CPREViewBatchUpdateCount1C ABMCOS_CPREViewShareConnection-2CABMCOS_CPRE.codigoFieldKeyField-3CABMCOS_CPRE.codigoField UpdatableaICABMCOS_CPRE.codigoField UpdateNameges!cos_cpre.codigo8CABMCOS_CPRE.codigoFieldDataTypeN(4)1CABMCOS_CPRE.descrFieldKeyField-2CABMCOS_CPRE.descrField UpdatableaGCABMCOS_CPRE.descrField UpdateNameges!cos_cpre.descr8CABMCOS_CPRE.descrFieldDataTypeC(30)5CABMCOS_CPRE.fecha_cieFieldKeyField-6CABMCOS_CPRE.fecha_cieField UpdatableaOCABMCOS_CPRE.fecha_cieField UpdateNameges!cos_cpre.fecha_cie8CABMCOS_CPRE.fecha_cieFieldDataTypeD2CABMCOS_CPRE.cierreFieldKeyField-3CABMCOS_CPRE.cierreField UpdatableaICABMCOS_CPRE.cierreField UpdateNameges!cos_cpre.cierre5CABMCOS_CPRE.cierreFieldDataTypeL6CABMCOS_CPRE.costos_dirFieldKeyField-7CABMCOS_CPRE.costos_dirField UpdatableaQCABMCOS_CPRE.costos_dirField UpdateNameges!cos_cpre.costos_dir9CABMCOS_CPRE.costos_dirFieldDataTypeL0CABMCOS_CPRE.rteoFieldKeyField-1CABMCOS_CPRE.rteoField UpdatableaECABMCOS_CPRE.rteoField UpdateNameges!cos_cpre.rteo3CABMCOS_CPRE.rteoFieldDataTypeL0CABMCOS_CPRE.fijaFieldKeyField-1CABMCOS_CPRE.fijaField UpdatableaECABMCOS_CPRE.fijaField UpdateNameges!cos_cpre.fija3CABMCOS_CPRE.fijaFieldDataTypeL0CABMCOS_CPRE.dmerFieldKeyField-1CABMCOS_CPRE.dmerField UpdatableaECABMCOS_CPRE.dmerField UpdateNameges!cos_cpre.dmer3CABMCOS_CPRE.dmerFieldDataTypeL5CABMCOS_CPRE.calc_prodFieldKeyField-6CABMCOS_CPRE.calc_prodField UpdatableaOCABMCOS_CPRE.calc_prodField UpdateNameges!cos_cpre.calc_prod8CABMCOS_CPRE.calc_prodFieldDataTypeL0CABMCOS_CPRE.rproFieldKeyField-1CABMCOS_CPRE.rproField UpdatableaECABMCOS_CPRE.rproField UpdateNameges!cos_cpre.rpro3CABMCOS_CPRE.rproFieldDataTypeL5CABMCOS_CPRE.fecha_proFieldKeyField-6CABMCOS_CPRE.fecha_proField UpdatableaOCABMCOS_CPRE.fecha_proField UpdateNameges!cos_cpre.fecha_pro8CABMCOS_CPRE.fecha_proFieldDataTypeD5CABMCOS_CPRE.prod_fijaFieldKeyField-6CABMCOS_CPRE.prod_fijaField UpdatableaOCABMCOS_CPRE.prod_fijaField UpdateNameges!cos_cpre.prod_fija;CABMCOS_CPRE.prod_fijaFieldDataTypeN(6)3CABMCOS_CPRE.cod_insFieldKeyField-4CABMCOS_CPRE.cod_insField UpdatableaKCABMCOS_CPRE.cod_insField UpdateNameges!cos_cpre.cod_ins:CABMCOS_CPRE.cod_insFieldDataTypeC(15)/CABMCOS_CPRE.bulFieldKeyField-0CABMCOS_CPRE.bulField UpdatableaCCABMCOS_CPRE.bulField UpdateNameges!cos_cpre.bul5CABMCOS_CPRE.bulFieldDataTypeC(3)/CABMCOS_CPRE.atrFieldKeyField-0CABMCOS_CPRE.atrField UpdatableaCCABMCOS_CPRE.atrField UpdateNameges!cos_cpre.atr5CABMCOS_CPRE.atrFieldDataTypeC(3)/CABMCOS_CPRE.obsFieldKeyField-0CABMCOS_CPRE.obsField UpdatableaCCABMCOS_CPRE.obsField UpdateNameges!cos_cpre.obs2CABMCOS_CPRE.obsFieldDataTypeM/CABMCOS_CPRE.iduFieldKeyFielda0CABMCOS_CPRE.iduField UpdatableaCCABMCOS_CPRE.iduField UpdateNameges!cos_cpre.idu6CABMCOS_CPRE.iduFieldDataTypeC(10)4CABMCOS_CPRE.dias_dirFieldKeyField-5CABMCOS_CPRE.dias_dirField UpdatableaMCABMCOS_CPRE.dias_dirField UpdateNameges!cos_cpre.dias_dir:CABMCOS_CPRE.dias_dirFieldDataTypeN(4)4CABMCOS_CPRE.dias_prdFieldKeyField-5CABMCOS_CPRE.dias_prdField UpdatableaMCABMCOS_CPRE.dias_prdField UpdateNameges!cos_cpre.dias_prd:CABMCOS_CPRE.dias_prdFieldDataTypeN(4)3CABMCOS_CPRE.ult_modFieldKeyField-4CABMCOS_CPRE.ult_modField UpdatableaKCABMCOS_CPRE.ult_modField UpdateNameges!cos_cpre.ult_mod6CABMCOS_CPRE.ult_modFieldDataTypeTUhW ABMFLE_TIPOQ>SELECT * FROM fle_tipo WHERE Fle_tipo.codigo == ( ?xcodigo ).C ABMFLE_TIPOView UpdateType-C ABMFLE_TIPOView WhereType+C ABMFLE_TIPOView FetchMemoa-C ABMFLE_TIPOView SendUpdatesa/C ABMFLE_TIPOView UseMemoSize-C ABMFLE_TIPOView FetchSized/C ABMFLE_TIPOView MaxRecords6C ABMFLE_TIPOViewTables ges!fle_tipo*C ABMFLE_TIPOViewPrepared--C ABMFLE_TIPOView CompareMemoa/C ABMFLE_TIPOView FetchAsNeeded-+C ABMFLE_TIPOViewComment4C ABMFLE_TIPOViewBatchUpdateCount1C ABMFLE_TIPOViewShareConnection-2CABMFLE_TIPO.codigoFieldKeyField-3CABMFLE_TIPO.codigoField UpdatableaICABMFLE_TIPO.codigoField UpdateNameges!fle_tipo.codigo8CABMFLE_TIPO.codigoFieldDataTypeN(4)1CABMFLE_TIPO.descrFieldKeyField-2CABMFLE_TIPO.descrField UpdatableaGCABMFLE_TIPO.descrField UpdateNameges!fle_tipo.descr8CABMFLE_TIPO.descrFieldDataTypeC(30)/CABMFLE_TIPO.iduFieldKeyFielda0CABMFLE_TIPO.iduField UpdatableaCCABMFLE_TIPO.iduField UpdateNameges!fle_tipo.idu6CABMFLE_TIPO.iduFieldDataTypeC(10)3CABMFLE_TIPO.ult_modFieldKeyField-4CABMFLE_TIPO.ult_modField UpdatableaGCABMFLE_TIPO.ult_modField UpdateNamefle_tipo.ult_mod6CABMFLE_TIPO.ult_modFieldDataTypeTUJ ABMCATCLIQ3SELECT * FROM catcli WHERE Catcli.codigo = ?xcodigo,C ABMCATCLIView UpdateType+C ABMCATCLIView WhereType)C ABMCATCLIView FetchMemoa+C ABMCATCLIView SendUpdatesa-C ABMCATCLIView UseMemoSize+C ABMCATCLIView FetchSized-C ABMCATCLIView MaxRecords.C ABMCATCLIViewTablescatcli(C ABMCATCLIViewPrepared-+C ABMCATCLIView CompareMemoa-C ABMCATCLIView FetchAsNeeded-)C ABMCATCLIViewComment2C ABMCATCLIViewBatchUpdateCount/C ABMCATCLIViewShareConnection-0CABMCATCLI.codigoFieldKeyField-1CABMCATCLI.codigoField UpdatableaACABMCATCLI.codigoField UpdateName catcli.codigo6CABMCATCLI.codigoFieldDataTypeN(4)/CABMCATCLI.descrFieldKeyField-0CABMCATCLI.descrField Updatablea?CABMCATCLI.descrField UpdateName catcli.descr6CABMCATCLI.descrFieldDataTypeC(30)-C ABMCATCLI.iduFieldKeyFielda.C ABMCATCLI.iduField Updatablea;C ABMCATCLI.iduField UpdateName catcli.idu4C ABMCATCLI.iduFieldDataTypeC(10)1CABMCATCLI.ult_modFieldKeyField-2CABMCATCLI.ult_modField UpdatableaCCABMCATCLI.ult_modField UpdateNamecatcli.ult_mod4CABMCATCLI.ult_modFieldDataTypeT3CABMCATCLI.ped_subirFieldKeyField-4CABMCATCLI.ped_subirField UpdatableaGCABMCATCLI.ped_subirField UpdateNamecatcli.ped_subir9CABMCATCLI.ped_subirFieldDataTypeN(1)UJ ABMMARCASQ3SELECT * FROM marcas WHERE Marcas.codigo = ?xcodigo,C ABMMARCASView UpdateType+C ABMMARCASView WhereType)C ABMMARCASView FetchMemoa+C ABMMARCASView SendUpdatesa-C ABMMARCASView UseMemoSize+C ABMMARCASView FetchSized-C ABMMARCASView MaxRecords.C ABMMARCASViewTablesmarcas(C ABMMARCASViewPrepared-+C ABMMARCASView CompareMemoa-C ABMMARCASView FetchAsNeeded-)C ABMMARCASViewComment2C ABMMARCASViewBatchUpdateCount/C ABMMARCASViewShareConnection-0CABMMARCAS.codigoFieldKeyField-1CABMMARCAS.codigoField UpdatableaACABMMARCAS.codigoField UpdateName marcas.codigo6CABMMARCAS.codigoFieldDataTypeN(4)/CABMMARCAS.descrFieldKeyField-0CABMMARCAS.descrField Updatablea?CABMMARCAS.descrField UpdateName marcas.descr6CABMMARCAS.descrFieldDataTypeC(30)-C ABMMARCAS.iduFieldKeyFielda.C ABMMARCAS.iduField Updatablea;C ABMMARCAS.iduField UpdateName marcas.idu4C ABMMARCAS.iduFieldDataTypeC(10)1CABMMARCAS.ult_modFieldKeyField-2CABMMARCAS.ult_modField UpdatableaCCABMMARCAS.ult_modField UpdateNamemarcas.ult_mod4CABMMARCAS.ult_modFieldDataTypeT3CABMMARCAS.ped_subirFieldKeyField-4CABMMARCAS.ped_subirField UpdatableaGCABMMARCAS.ped_subirField UpdateNamemarcas.ped_subir9CABMMARCAS.ped_subirFieldDataTypeN(1)U/_ABMVSUCURSALESQCSELECT * FROM ges!vsucursales WHERE Vsucursales.sucursal = ?xcodigo1CABMVSUCURSALESView UpdateType0CABMVSUCURSALESView WhereType.CABMVSUCURSALESView FetchMemoa0CABMVSUCURSALESView SendUpdatesa2CABMVSUCURSALESView UseMemoSize0CABMVSUCURSALESView FetchSized2CABMVSUCURSALESView MaxRecords<CABMVSUCURSALESViewTablesges!vsucursales-CABMVSUCURSALESViewPrepared-0CABMVSUCURSALESView CompareMemoa2CABMVSUCURSALESView FetchAsNeeded-.CABMVSUCURSALESViewComment7CABMVSUCURSALESViewBatchUpdateCount4CABMVSUCURSALESViewShareConnection-6CABMVSUCURSALES.cod_cliFieldKeyField-7CABMVSUCURSALES.cod_cliField UpdatableaQCABMVSUCURSALES.cod_cliField UpdateNameges!vsucursales.cod_cli<CABMVSUCURSALES.cod_cliFieldDataTypeC(6)7CABMVSUCURSALES.sucursalFieldKeyField-8CABMVSUCURSALES.sucursalField UpdatableaSCABMVSUCURSALES.sucursalField UpdateNameges!vsucursales.sucursal=CABMVSUCURSALES.sucursalFieldDataTypeN(3)5CABMVSUCURSALES.nombreFieldKeyField-6CABMVSUCURSALES.nombreField UpdatableaOCABMVSUCURSALES.nombreField UpdateNameges!vsucursales.nombre<CABMVSUCURSALES.nombreFieldDataTypeC(30)8CABMVSUCURSALES.domicilioFieldKeyField-9CABMVSUCURSALES.domicilioField UpdatableaVCABMVSUCURSALES.domicilioField UpdateNameges!vsucursales.domicilio?CABMVSUCURSALES.domicilioFieldDataTypeC(40)5CABMVSUCURSALES.ciudadFieldKeyField-6CABMVSUCURSALES.ciudadField UpdatableaOCABMVSUCURSALES.ciudadField UpdateNameges!vsucursales.ciudad<CABMVSUCURSALES.ciudadFieldDataTypeC(30)8CABMVSUCURSALES.provinciaFieldKeyField-9CABMVSUCURSALES.provinciaField UpdatableaVCABMVSUCURSALES.provinciaField UpdateNameges!vsucursales.provincia>CABMVSUCURSALES.provinciaFieldDataTypeC(1)4CABMVSUCURSALES.phonoFieldKeyField-5CABMVSUCURSALES.phonoField UpdatableaMCABMVSUCURSALES.phonoField UpdateNameges!vsucursales.phono;CABMVSUCURSALES.phonoFieldDataTypeC(30)6CABMVSUCURSALES.cod_zipFieldKeyField-7CABMVSUCURSALES.cod_zipField UpdatableaQCABMVSUCURSALES.cod_zipField UpdateNameges!vsucursales.cod_zip=CABMVSUCURSALES.cod_zipFieldDataTypeC(12)6CABMVSUCURSALES.cod_fleFieldKeyField-7CABMVSUCURSALES.cod_fleField UpdatableaQCABMVSUCURSALES.cod_fleField UpdateNameges!vsucursales.cod_fle<CABMVSUCURSALES.cod_fleFieldDataTypeC(6)6CABMVSUCURSALES.horarioFieldKeyField-7CABMVSUCURSALES.horarioField UpdatableaQCABMVSUCURSALES.horarioField UpdateNameges!vsucursales.horario=CABMVSUCURSALES.horarioFieldDataTypeC(20)1CABMVSUCURSALES.idFieldKeyField-2CABMVSUCURSALES.idField UpdatableaGCABMVSUCURSALES.idField UpdateNameges!vsucursales.id8CABMVSUCURSALES.idFieldDataTypeC(14)5CABMVSUCURSALES.fecultFieldKeyField-6CABMVSUCURSALES.fecultField UpdatableaOCABMVSUCURSALES.fecultField UpdateNameges!vsucursales.fecult8CABMVSUCURSALES.fecultFieldDataTypeD6CABMVSUCURSALES.distribFieldKeyField-7CABMVSUCURSALES.distribField UpdatableaQCABMVSUCURSALES.distribField UpdateNameges!vsucursales.distrib<CABMVSUCURSALES.distribFieldDataTypeC(8)7CABMVSUCURSALES.comi_disFieldKeyField-8CABMVSUCURSALES.comi_disField UpdatableaSCABMVSUCURSALES.comi_disField UpdateNameges!vsucursales.comi_dis?CABMVSUCURSALES.comi_disFieldDataTypeN(6,2)7CABMVSUCURSALES.vendedorFieldKeyField-8CABMVSUCURSALES.vendedorField UpdatableaSCABMVSUCURSALES.vendedorField UpdateNameges!vsucursales.vendedor=CABMVSUCURSALES.vendedorFieldDataTypeC(8)7CABMVSUCURSALES.comi_venFieldKeyField-8CABMVSUCURSALES.comi_venField UpdatableaSCABMVSUCURSALES.comi_venField UpdateNameges!vsucursales.comi_ven?CABMVSUCURSALES.comi_venFieldDataTypeN(6,2)7CABMVSUCURSALES.cobradorFieldKeyField-8CABMVSUCURSALES.cobradorField UpdatableaSCABMVSUCURSALES.cobradorField UpdateNameges!vsucursales.cobrador=CABMVSUCURSALES.cobradorFieldDataTypeC(8)7CABMVSUCURSALES.comi_cobFieldKeyField-8CABMVSUCURSALES.comi_cobField UpdatableaSCABMVSUCURSALES.comi_cobField UpdateNameges!vsucursales.comi_cob?CABMVSUCURSALES.comi_cobFieldDataTypeN(6,2)3CABMVSUCURSALES.fpagFieldKeyField-4CABMVSUCURSALES.fpagField UpdatableaKCABMVSUCURSALES.fpagField UpdateNameges!vsucursales.fpag9CABMVSUCURSALES.fpagFieldDataTypeN(3)4CABMVSUCURSALES.listaFieldKeyField-5CABMVSUCURSALES.listaField UpdatableaMCABMVSUCURSALES.listaField UpdateNameges!vsucursales.lista:CABMVSUCURSALES.listaFieldDataTypeN(2)6CABMVSUCURSALES.des_comFieldKeyField-7CABMVSUCURSALES.des_comField UpdatableaQCABMVSUCURSALES.des_comField UpdateNameges!vsucursales.des_com>CABMVSUCURSALES.des_comFieldDataTypeN(6,2)7CABMVSUCURSALES.des_com2FieldKeyField-8CABMVSUCURSALES.des_com2Field UpdatableaSCABMVSUCURSALES.des_com2Field UpdateNameges!vsucursales.des_com2?CABMVSUCURSALES.des_com2FieldDataTypeN(6,2)7CABMVSUCURSALES.des_com3FieldKeyField-8CABMVSUCURSALES.des_com3Field UpdatableaSCABMVSUCURSALES.des_com3Field UpdateNameges!vsucursales.des_com3?CABMVSUCURSALES.des_com3FieldDataTypeN(6,2)7CABMVSUCURSALES.des_com4FieldKeyField-8CABMVSUCURSALES.des_com4Field UpdatableaSCABMVSUCURSALES.des_com4Field UpdateNameges!vsucursales.des_com4?CABMVSUCURSALES.des_com4FieldDataTypeN(6,2)7CABMVSUCURSALES.des_com5FieldKeyField-8CABMVSUCURSALES.des_com5Field UpdatableaSCABMVSUCURSALES.des_com5Field UpdateNameges!vsucursales.des_com5?CABMVSUCURSALES.des_com5FieldDataTypeN(6,2)7CABMVSUCURSALES.des_esp1FieldKeyField-8CABMVSUCURSALES.des_esp1Field UpdatableaSCABMVSUCURSALES.des_esp1Field UpdateNameges!vsucursales.des_esp1?CABMVSUCURSALES.des_esp1FieldDataTypeN(6,2)7CABMVSUCURSALES.des_esp2FieldKeyField-8CABMVSUCURSALES.des_esp2Field UpdatableaSCABMVSUCURSALES.des_esp2Field UpdateNameges!vsucursales.des_esp2?CABMVSUCURSALES.des_esp2FieldDataTypeN(6,2)7CABMVSUCURSALES.des_esp3FieldKeyField-8CABMVSUCURSALES.des_esp3Field UpdatableaSCABMVSUCURSALES.des_esp3Field UpdateNameges!vsucursales.des_esp3?CABMVSUCURSALES.des_esp3FieldDataTypeN(6,2)8CABMVSUCURSALES.contacvenFieldKeyField-9CABMVSUCURSALES.contacvenField UpdatableaVCABMVSUCURSALES.contacvenField UpdateNameges!vsucursales.contacven?CABMVSUCURSALES.contacvenFieldDataTypeC(35)8CABMVSUCURSALES.contaccobFieldKeyField-9CABMVSUCURSALES.contaccobField UpdatableaVCABMVSUCURSALES.contaccobField UpdateNameges!vsucursales.contaccob?CABMVSUCURSALES.contaccobFieldDataTypeC(35)7CABMVSUCURSALES.depositoFieldKeyField-8CABMVSUCURSALES.depositoField UpdatableaSCABMVSUCURSALES.depositoField UpdateNameges!vsucursales.deposito=CABMVSUCURSALES.depositoFieldDataTypeC(8)3CABMVSUCURSALES.paisFieldKeyField-4CABMVSUCURSALES.paisField UpdatableaKCABMVSUCURSALES.paisField UpdateNameges!vsucursales.pais9CABMVSUCURSALES.paisFieldDataTypeN(3)3CABMVSUCURSALES.zonaFieldKeyField-4CABMVSUCURSALES.zonaField UpdatableaKCABMVSUCURSALES.zonaField UpdateNameges!vsucursales.zona9CABMVSUCURSALES.zonaFieldDataTypeN(4)2CABMVSUCURSALES.faxFieldKeyField-3CABMVSUCURSALES.faxField UpdatableaICABMVSUCURSALES.faxField UpdateNameges!vsucursales.fax9CABMVSUCURSALES.faxFieldDataTypeC(20)4CABMVSUCURSALES.emailFieldKeyField-5CABMVSUCURSALES.emailField UpdatableaMCABMVSUCURSALES.emailField UpdateNameges!vsucursales.email;CABMVSUCURSALES.emailFieldDataTypeC(50)2CABMVSUCURSALES.webFieldKeyField-3CABMVSUCURSALES.webField UpdatableaICABMVSUCURSALES.webField UpdateNameges!vsucursales.web9CABMVSUCURSALES.webFieldDataTypeC(50)2CABMVSUCURSALES.iduFieldKeyFielda3CABMVSUCURSALES.iduField UpdatableaICABMVSUCURSALES.iduField UpdateNameges!vsucursales.idu9CABMVSUCURSALES.iduFieldDataTypeC(10)8CABMVSUCURSALES.unegociosFieldKeyField-9CABMVSUCURSALES.unegociosField UpdatableaVCABMVSUCURSALES.unegociosField UpdateNameges!vsucursales.unegocios>CABMVSUCURSALES.unegociosFieldDataTypeC(6)7CABMVSUCURSALES.fceemailFieldKeyField-8CABMVSUCURSALES.fceemailField UpdatableaSCABMVSUCURSALES.fceemailField UpdateNameges!vsucursales.fceemail>CABMVSUCURSALES.fceemailFieldDataTypeC(50)6CABMVSUCURSALES.fcedestFieldKeyField-7CABMVSUCURSALES.fcedestField UpdatableaQCABMVSUCURSALES.fcedestField UpdateNameges!vsucursales.fcedest=CABMVSUCURSALES.fcedestFieldDataTypeC(40)7CABMVSUCURSALES.entcoordFieldKeyField-8CABMVSUCURSALES.entcoordField UpdatableaSCABMVSUCURSALES.entcoordField UpdateNameges!vsucursales.entcoord>CABMVSUCURSALES.entcoordFieldDataTypeC(30)5CABMVSUCURSALES.geodirFieldKeyField-6CABMVSUCURSALES.geodirField UpdatableaOCABMVSUCURSALES.geodirField UpdateNameges!vsucursales.geodir=CABMVSUCURSALES.geodirFieldDataTypeC(120)6CABMVSUCURSALES.est_actFieldKeyField-7CABMVSUCURSALES.est_actField UpdatableaQCABMVSUCURSALES.est_actField UpdateNameges!vsucursales.est_act<CABMVSUCURSALES.est_actFieldDataTypeN(1)6CABMVSUCURSALES.dir_facFieldKeyField-7CABMVSUCURSALES.dir_facField UpdatableaQCABMVSUCURSALES.dir_facField UpdateNameges!vsucursales.dir_fac<CABMVSUCURSALES.dir_facFieldDataTypeC(1)2CABMVSUCURSALES.glnFieldKeyField-3CABMVSUCURSALES.glnField UpdatableaICABMVSUCURSALES.glnField UpdateNameges!vsucursales.gln9CABMVSUCURSALES.glnFieldDataTypeN(13)6CABMVSUCURSALES.ult_modFieldKeyField-7CABMVSUCURSALES.ult_modField UpdatableaQCABMVSUCURSALES.ult_modField UpdateNameges!vsucursales.ult_mod9CABMVSUCURSALES.ult_modFieldDataTypeTU!N ABMCONDPAGOQ5SELECT * FROM condpago WHERE Condpago.plan = ?xcodigo.C ABMCONDPAGOView UpdateType-C ABMCONDPAGOView WhereType+C ABMCONDPAGOView FetchMemoa-C ABMCONDPAGOView SendUpdatesa/C ABMCONDPAGOView UseMemoSize-C ABMCONDPAGOView FetchSized/C ABMCONDPAGOView MaxRecords2C ABMCONDPAGOViewTablescondpago*C ABMCONDPAGOViewPrepared--C ABMCONDPAGOView CompareMemoa/C ABMCONDPAGOView FetchAsNeeded-+C ABMCONDPAGOViewComment4C ABMCONDPAGOViewBatchUpdateCount1C ABMCONDPAGOViewShareConnection-0CABMCONDPAGO.planFieldKeyField-1CABMCONDPAGO.planField UpdatableaACABMCONDPAGO.planField UpdateName condpago.plan6CABMCONDPAGO.planFieldDataTypeN(2)4CABMCONDPAGO.anticipoFieldKeyField-5CABMCONDPAGO.anticipoField UpdatableaICABMCONDPAGO.anticipoField UpdateNamecondpago.anticipo<CABMCONDPAGO.anticipoFieldDataTypeN(5,2)3CABMCONDPAGO.des_pagFieldKeyField-4CABMCONDPAGO.des_pagField UpdatableaGCABMCONDPAGO.des_pagField UpdateNamecondpago.des_pag;CABMCONDPAGO.des_pagFieldDataTypeN(5,2)1CABMCONDPAGO.plazoFieldKeyField-2CABMCONDPAGO.plazoField UpdatableaCCABMCONDPAGO.plazoField UpdateNamecondpago.plazo7CABMCONDPAGO.plazoFieldDataTypeN(4)1CABMCONDPAGO.cuotaFieldKeyField-2CABMCONDPAGO.cuotaField UpdatableaCCABMCONDPAGO.cuotaField UpdateNamecondpago.cuota7CABMCONDPAGO.cuotaFieldDataTypeN(3)3CABMCONDPAGO.int_finFieldKeyField-4CABMCONDPAGO.int_finField UpdatableaGCABMCONDPAGO.int_finField UpdateNamecondpago.int_fin;CABMCONDPAGO.int_finFieldDataTypeN(6,2)0CABMCONDPAGO.fijoFieldKeyField-1CABMCONDPAGO.fijoField UpdatableaACABMCONDPAGO.fijoField UpdateName condpago.fijo6CABMCONDPAGO.fijoFieldDataTypeN(2).CABMCONDPAGO.a1FieldKeyField-/CABMCONDPAGO.a1Field Updatablea=CABMCONDPAGO.a1Field UpdateName condpago.a14CABMCONDPAGO.a1FieldDataTypeN(3).CABMCONDPAGO.a2FieldKeyField-/CABMCONDPAGO.a2Field Updatablea=CABMCONDPAGO.a2Field UpdateName condpago.a24CABMCONDPAGO.a2FieldDataTypeN(3).CABMCONDPAGO.a3FieldKeyField-/CABMCONDPAGO.a3Field Updatablea=CABMCONDPAGO.a3Field UpdateName condpago.a34CABMCONDPAGO.a3FieldDataTypeN(3).CABMCONDPAGO.a4FieldKeyField-/CABMCONDPAGO.a4Field Updatablea=CABMCONDPAGO.a4Field UpdateName condpago.a44CABMCONDPAGO.a4FieldDataTypeN(3).CABMCONDPAGO.a5FieldKeyField-/CABMCONDPAGO.a5Field Updatablea=CABMCONDPAGO.a5Field UpdateName condpago.a54CABMCONDPAGO.a5FieldDataTypeN(3).CABMCONDPAGO.a6FieldKeyField-/CABMCONDPAGO.a6Field Updatablea=CABMCONDPAGO.a6Field UpdateName condpago.a64CABMCONDPAGO.a6FieldDataTypeN(3).CABMCONDPAGO.a7FieldKeyField-/CABMCONDPAGO.a7Field Updatablea=CABMCONDPAGO.a7Field UpdateName condpago.a74CABMCONDPAGO.a7FieldDataTypeN(3).CABMCONDPAGO.a8FieldKeyField-/CABMCONDPAGO.a8Field Updatablea=CABMCONDPAGO.a8Field UpdateName condpago.a84CABMCONDPAGO.a8FieldDataTypeN(3).CABMCONDPAGO.a9FieldKeyField-/CABMCONDPAGO.a9Field Updatablea=CABMCONDPAGO.a9Field UpdateName condpago.a94CABMCONDPAGO.a9FieldDataTypeN(3)/CABMCONDPAGO.a10FieldKeyField-0CABMCONDPAGO.a10Field Updatablea?CABMCONDPAGO.a10Field UpdateName condpago.a105CABMCONDPAGO.a10FieldDataTypeN(3)/CABMCONDPAGO.a11FieldKeyField-0CABMCONDPAGO.a11Field Updatablea?CABMCONDPAGO.a11Field UpdateName condpago.a115CABMCONDPAGO.a11FieldDataTypeN(3)/CABMCONDPAGO.a12FieldKeyField-0CABMCONDPAGO.a12Field Updatablea?CABMCONDPAGO.a12Field UpdateName condpago.a125CABMCONDPAGO.a12FieldDataTypeN(3)1CABMCONDPAGO.descrFieldKeyField-2CABMCONDPAGO.descrField UpdatableaCCABMCONDPAGO.descrField UpdateNamecondpago.descr8CABMCONDPAGO.descrFieldDataTypeC(25)/CABMCONDPAGO.iduFieldKeyFielda0CABMCONDPAGO.iduField Updatablea?CABMCONDPAGO.iduField UpdateName condpago.idu6CABMCONDPAGO.iduFieldDataTypeC(10).CABMCONDPAGO.p1FieldKeyField-/CABMCONDPAGO.p1Field Updatablea=CABMCONDPAGO.p1Field UpdateName condpago.p16CABMCONDPAGO.p1FieldDataTypeN(6,2).CABMCONDPAGO.p2FieldKeyField-/CABMCONDPAGO.p2Field Updatablea=CABMCONDPAGO.p2Field UpdateName condpago.p26CABMCONDPAGO.p2FieldDataTypeN(6,2).CABMCONDPAGO.p3FieldKeyField-/CABMCONDPAGO.p3Field Updatablea=CABMCONDPAGO.p3Field UpdateName condpago.p36CABMCONDPAGO.p3FieldDataTypeN(6,2).CABMCONDPAGO.p4FieldKeyField-/CABMCONDPAGO.p4Field Updatablea=CABMCONDPAGO.p4Field UpdateName condpago.p46CABMCONDPAGO.p4FieldDataTypeN(6,2).CABMCONDPAGO.p5FieldKeyField-/CABMCONDPAGO.p5Field Updatablea=CABMCONDPAGO.p5Field UpdateName condpago.p56CABMCONDPAGO.p5FieldDataTypeN(6,2).CABMCONDPAGO.p6FieldKeyField-/CABMCONDPAGO.p6Field Updatablea=CABMCONDPAGO.p6Field UpdateName condpago.p66CABMCONDPAGO.p6FieldDataTypeN(6,2).CABMCONDPAGO.p7FieldKeyField-/CABMCONDPAGO.p7Field Updatablea=CABMCONDPAGO.p7Field UpdateName condpago.p76CABMCONDPAGO.p7FieldDataTypeN(6,2).CABMCONDPAGO.p8FieldKeyField-/CABMCONDPAGO.p8Field Updatablea=CABMCONDPAGO.p8Field UpdateName condpago.p86CABMCONDPAGO.p8FieldDataTypeN(6,2).CABMCONDPAGO.p9FieldKeyField-/CABMCONDPAGO.p9Field Updatablea=CABMCONDPAGO.p9Field UpdateName condpago.p96CABMCONDPAGO.p9FieldDataTypeN(6,2)/CABMCONDPAGO.p10FieldKeyField-0CABMCONDPAGO.p10Field Updatablea?CABMCONDPAGO.p10Field UpdateName condpago.p107CABMCONDPAGO.p10FieldDataTypeN(6,2)/CABMCONDPAGO.p11FieldKeyField-0CABMCONDPAGO.p11Field Updatablea?CABMCONDPAGO.p11Field UpdateName condpago.p117CABMCONDPAGO.p11FieldDataTypeN(6,2)/CABMCONDPAGO.p12FieldKeyField-0CABMCONDPAGO.p12Field Updatablea?CABMCONDPAGO.p12Field UpdateName condpago.p127CABMCONDPAGO.p12FieldDataTypeN(6,2)2CABMCONDPAGO.descr2FieldKeyField-3CABMCONDPAGO.descr2Field UpdatableaECABMCONDPAGO.descr2Field UpdateNamecondpago.descr2:CABMCONDPAGO.descr2FieldDataTypeC(240)3CABMCONDPAGO.diaschqFieldKeyField-4CABMCONDPAGO.diaschqField UpdatableaGCABMCONDPAGO.diaschqField UpdateNamecondpago.diaschq9CABMCONDPAGO.diaschqFieldDataTypeN(3)3CABMCONDPAGO.ult_modFieldKeyField-4CABMCONDPAGO.ult_modField UpdatableaGCABMCONDPAGO.ult_modField UpdateNamecondpago.ult_mod6CABMCONDPAGO.ult_modFieldDataTypeT3CABMCONDPAGO.valoresFieldKeyField-4CABMCONDPAGO.valoresField UpdatableaGCABMCONDPAGO.valoresField UpdateNamecondpago.valores9CABMCONDPAGO.valoresFieldDataTypeN(3)U R,:U LCMESSAGEMakeTable_MOTINVaMakeTable_STOCKLfMakeTable_CONVERkMakeTable_COMPROMuMakeTable_CCCNOTASwMakeTable_COSTOSxMakeTable_REMXFAC{ MakeTable_CFG|MakeTable_DESPACHO"}MakeTable_DESP MakeTable_ROT_MakeTable_SUCPROPVMakeTable_SOLCOM2MakeTable_FACCREDMakeTable_IDX01MakeTable_STKXCODMakeTable_MARCAS8MakeTable_ATRIBUTO7MakeTable_BULTOS;MakeTable_CATPROMakeTable_NOTERMMakeTable_OPAGOSYMakeTable_SALDOSMakeTable_SUCURSALǔMakeTable_TALONARI/MakeTable_ULTCOSMakeTable_AGENTE_MakeTable_GRUPOSMakeTable_TCK_CCMakeTable_TCK_REFMakeTable_CFG01MakeTable_COMPROMIMakeTable_STKXDSPfMakeTable_ROTULOSMakeTable_TRJFEC} MakeTable_CHQӧMakeTable_ZONAS%MakeTable_LINEASMakeTable_STKXDEP]MakeTable_SOLCOMmMakeTable_TR04MakeTable_FORINCOSMakeTable_VALQUILEMakeTable_FLETESMakeTable_ROTNOENT$MakeTable_DISTRIBMakeTable_CHQANU&MakeTable_CCOFABMakeTable_CENTRALؽMakeTable_CODXPROԾMakeTable_IMPORTACMakeTable_EJERCONMakeTable_TCK_CCCMakeTable_TCK_CLIMakeTable_CODXCLIMakeTable_STKXSERMakeTable_CATCLIMakeTable_DEPOSITOMakeTable_CASHDATAOMakeTable_CCCLIEuMakeTable_CONDCOBRyMakeTable_PROVEEDO+MakeTable_COM_OPER"MakeTable_VEN_OPER}MakeTable_BIENES MakeTable_CONDPAGO!MakeTable_CESIONU&MakeTable_CCPROV'MakeTable_CHEPRO0MakeTable_CHEQUES1MakeTable_BATCH6MakeTable_NUMFAC7MakeTable_CASHCANCg=MakeTable_COSMAN7?MakeTable_CASHCFGeAMakeTable_CASHCUEEMakeTable_CASHEXPAMGMakeTable_CASHNUMEIMakeTable_CASHPRON%JMakeTable_CASHTIPOWKMakeTable_CASHFLOWJLMakeTable_CCCOMPSMMakeTable_CCFORMULZMakeTable_CFG_LISw^MakeTable_PROAUXeaMakeTable_COMPPRODMakeTable_PLAN_OPEAMakeTable_PLAN_DIA9DMakeTable_COMPPLAN GMakeTable_PLAN_GEN`JMakeTable_CASHPROVPLMakeTable_CASHPROCOMMakeTable_UNIDADESOMakeTable_RUBROFACePMakeTable_VLOCALEFQMakeTable_VLOCALDCRMakeTable_CATPRO2SMakeTable_CATPRO3TMakeTable_TARJETAS{UMakeTable_TARJ_LIQVMakeTable_ACUERDOSkYMakeTable_ASM_MAST*]MakeTable_ASM_DETAbMakeTable_ASM_FORMbMakeTable_ASM_PASEdMakeTable_PLAN_NUVWeMakeTable_MAQ_GRP$lMakeTable_FORM_MAQlMakeTable_PLAN_OPDnMakeTable_PRO_ADI|oMakeTable_CONVER2EpMakeTable_PROD_GENsMakeTable_PENDRECLXuMakeTable_ITM_DESCvMakeTable_IVA_VEN?yMakeTable_ESOLCOMxzMakeTable_DSOLCOM{MakeTable_CASHUSEt~MakeTable_COSVENMakeTable_MEDIDASMakeTable_PROD_FORnMakeTable_CASH2PmMakeTable_COMPPAUXMakeTable_ARMADORMakeTable_CODESPECMakeTable_CASH2IlMakeTable_CASHCAN22MakeTable_BUL_GEN5MakeTable_ATR_GENMakeTable_TEXTOSMakeTable_ARTXCLIMakeTable_MTZ_PROD~MakeTable_INVMODEšMakeTable_INVMODDMakeTable_CTASBANCMakeTable_FORM_RESMakeTable_STOPSΦMakeTable_PRODSTOPMakeTable_COS_ADET MakeTable_MSGXUSERMakeTable_MTZ_DEF߫MakeTable_IN_FALTAsMakeTable_PLAN_USO0MakeTable_ENVASESMakeTable_CEN_REFUѳMakeTable_NUMRECrMakeTable_COS_ACOMMakeTable_SPRGRUPOԷMakeTable_DRETPROVMakeTable_MANT_STKȺMakeTable_IMP_TRANMakeTable_PLANIFICA!MakeTable_REC_TALUMakeTable_COS_CPREMakeTable_CASHRESUMakeTable_ENSAMBLEMakeTable_ARTXPROMakeTable_ATRIBSMakeTable_BUL_GENLMakeTable_BUL_GENGMakeTable_ATR_GENLMakeTable_ATR_GENG?MakeTable_COSIMPgMakeTable_IIBBPROVMakeTable_IIBBPEREMakeTable_FLE_TIPOMakeTable_CO_ERwMakeTable_CO_ER_DATOSMakeTable_IIBBRETTMakeTable_PLVENAGEdMakeTable_CASHPROMAMakeTable_CASHPROP@MakeTable_IVA_COMuMakeTable_CUEXMOTIiMakeTable_PR_CIEMakeTable_HISTORIALMakeTable_ITMDESCCMakeTable_BIEAUXMakeTable_TSP_TSPSMakeTable_TSP_CAMIMakeTable_TSP_TRAIMakeTable_TSP_CHOFMakeTable_COSULThMakeTable_TSP_ASIGMakeTable_TSP_LUGAMakeTable_DBT_FECPlMakeTable_SCH_GASTOSMakeTable_SCH_GASTOS_CONC MakeTable_SCH_GASTOS_CPBT MakeTable_SCH_GASTOS_CLASE MakeTable_ARMADOn MakeTable_TRRECVMakeTable_CIECAJEfMakeTable_CIECAJVeMakeTable_CIECAJDMakeTable_CUENTASfMakeTable_CIERRESMakeTable_FORM_ESTMakeTable_PROD_ESTMakeTable_CLIOTROSeMakeTable_TARJMakeTable_TARJREGLMakeTable_RESERVAS !MakeTable_VE_ALTAS6"MakeTable_CATCRED}#MakeTable_FECOTCOMi$MakeTable_PED_PROC%MakeTable_CIECAJP,'MakeTable_PLANDTOS(MakeTable_ATRHABILN+MakeTable_EPRESUP,MakeTable_DPRESUP0MakeTable_PRO22MakeTable_VE_OTROS14MakeTable_PD_CONSOL4MakeTable_PR_OTROS5MakeTable_CCARMADOK:MakeTable_CLIMAIL<MakeTable_ARMADOLp=MakeTable_DEPMIN>MakeTable_EPREDESP?MakeTable_DPREDESP@MakeTable_CIECAJPDAMakeTable_MIX_ADIC\BMakeTable_FECHACMakeTable_CAT_COMCMakeTable_CLIVARIOS9DMakeTable_TE_ANUEMakeTable_ASIST GMakeTable_BIENES_FASTIMakeTable_DESPOTROSMMakeTable_MAILCTASNMakeTable_EPROTPMakeTable_DPROTQMakeTable_MAILASIGSMakeTable_SEGUIMGTMakeTable_BIENES_BUSQUMakeTable_CLIGRUECEUMakeTable_CLIGRUECDVMakeTable_PICKINGS@WMakeTable_SECTORESoXMakeTable_DBT_BFECRYMakeTable_PSOLCOM[MakeTable_REC_UPD_1B]MakeTable_CAJASy_MakeTable_PROPIEDADESA`MakeTable_PROP_PREDETbMakeTable_DPICKINGS&dMakeTable_BARRAS6eMakeView_VSTKXCODeMakeView_CCCLIE_VENC nMakeView_SEGUIMIENTOϝMakeView_ABMFORINCOSMakeView_CHEQUERASQMakeView_VISTA_BATCHMakeView_ABMMAQUINASMakeView_ABMMAQ_GRPMakeView_ABMGENERICOSOMakeView_ABMOPERARIOQMakeView_VPROT_ESPMakeView_ABMVPROT_ESP_MakeView_ABMTARJETASMakeView_ABMEQUIPOSMakeView_ABMA010592wMakeView_ABMVSTKXCOD&MakeView_ABMBANCOSI.MakeView_ABMEJERCON'5MakeView_VCHEQUES?MakeView_VATRIBUTOSo]MakeView_VATR_GENkMakeView_ABMVATRIBUTOSyyMakeView_ABMVATR_GENMakeView_ABMCLIENTESbMakeView_ABMBIENESMakeView_VBULTOSּMakeView_VBUL_GENMakeView_ABMVBULTOSMakeView_ABMVBUL_GENY MakeView_ABMAGENTE)MakeView_ABMCATPRO@MakeView_ABMCCFORMULGMakeView_ABMCENTRAL*dMakeView_ABMCONDCOBRgkMakeView_ABMCOSTOSșMakeView_ABMDEPOSITO5MakeView_ABMFLETESMakeView_ABMGRUPOSMakeView_ABMLINEASMakeView_ABMMOTINVMakeView_ABMMOTIVOSMakeView_ABMPROVEEDO) MakeView_ABMSUCPROPpMakeView_ABMZONAS MakeView_VSUCURSALESMakeView_ABMUNIDADESMMakeView_ABMRUBROFACMakeView_ABMACUERDOS0MakeView_ABMMEDIDASyMakeView_ABMARMADORMakeView_ABMTEXTOSMakeView_ABMCTASBANCMakeView_ABMINVMODEMakeView_ABMENVASESpMakeView_ABMSPRGRUPO$MakeView_ABMCOS_CPRE*MakeView_ABMFLE_TIPO?MakeView_ABMCATCLI9FMakeView_ABMMARCAS-MMakeView_ABMVSUCURSALES!TMakeView_ABMCONDPAGO DisplayStatus^aA1AQaAQa!QQQ1QAaAAAAAaaAAAAQ1aQQA1AQA!aaAaQAAQQaQQQQQAaaAaaaaAaAAAQ1AaAQQaaaaaAaQAaaaaAAaa1AQ1Qaa11!AQaAQaQaQaaaaaaaaaaaa11aQQQaaaaaaaaaaaQQQQaaaaaaaaQaaQQaaaQQQQAQaAaQaAaQQAQaQQaa1aaaQaaQaAaaaaaqQaaaQAaaaaAaaa1QaaaQaAqaAaaaaAaaaA1QQQQQaaa!aaaQaaQaaQQ!aqaaQQAaaaa1QqA1qa11aAqqaaaQq1qAaqqAaAqAAqaaqQaqqqqqqqaqqqQQaAaAA1AAA2*58s1q5Z15_5W5@5557#q15a5Q5 55Q5755N5&5E5375( 595I 7 5q5' 5 777 q5i s5770Q15%5 5q155 1q5N5 71 55\5C55v55pga5 5.7 1?75155015$S15p@cQQ 5 @5|5p1D1aA!qQqA5qH1aaAQqA5P caaa5P55 356cQ q q q5 5&1Qq57 >5 a515Q/75qa57I 55I 7QQ15$1555q(57@13q5 5qQQ57 !Q1a15^5$57 7P57v5@X1a15 1555 AU3@WQ1Q5\Q1a1A55e5 ƳQ5 ɳ5aIq155PQ555 q515(5 5I 5E5a55X 35055MS5y S5c50,c!a55a55s5Q(15q5Q5@!5"5,3q5 5!555 55e5e5( 505$535q5535H15d57 QQQ5555$5 5/705 5 5@115 Q55\5'QQ5*5( 5e55 !E3155'5.5-5pQq5J 5 5 55 55 15 Q557435 5v5U7i 5{Q1555'50a115FQ5k 15@A5Q-7 Q5 q5A555550!15555 5X 5x 57 7 5!5f 57#5 55AE5 5 55 50!35(q5 5%755d555 5 5 55' 5 51515pq5+ 5m57 S15 Q5555 55`!55`!05!15 5V55pA01555J 5H s55E5U57%755 55 15555Z 5g 15W5t555 55 7 15Q55q5 15 735T q!Qqa"1q!1Q3DA4AQ2AQ!q2AQ2AQ"11BQq!A1BQq"11!BQqBQqaQ"11Q"11"11qq!q"11Q!qQ!A"11Q2AQBQqQ2AQa!q!qaaQ"1112AQaaBQq"11"11Q"11Qa!QBQq2AQ3d !AQ2Aq2Aq!1q!1a2Aq!1A112Aqaa!1!!QBQ3!A$1Q!1aqqqqqqqqqq3!aaa1Aq3D A$1!2AA!qa2AA"1!QAQBQ3!A$1Q!1!1a2Aq"1Q2Aq!1q3A1!qqQqQ31Q!DQBQBQBQRaBQBQBQRa2Aaq3$!A$1Q!1aRaBQqBQq3A!A!11Qa11a3Q!QqBQQaQa"11a"13taA$1!q2A2A2A2A1a31!1qQ!1aBQqBQq!1A!1AAQ"1Q"1Q"1QQ"1QQ2Aa311QA1QA3taADQ"1RaQ1a!q3!qaQAa3A1AQ1Q11Qq1QQBQq2Aq3!qQQqqQaQaq1qq"1QqqaQa!qqa1q11AQQqqQQ1QQQ1!1!qa1aaQ113tQ1$1aa!AAaq!Q!q2ARa2A!aBQ"1a34!qqq1A!!1Q1QQ!q2A!qA"1q1a3a1Ta2A!qqQq2A!qBQbqabq2Ar1Ra3aA4A!qq1QQ!q1a"1BQbqBQ!qqRa2A3aA4A2A"11QRaQq"1QqRaQa!qQq2AQqbq2A2ABQ2ABQBQBQ2A2A1Q!qq2ABQBQRa2ABQBQQaQa1QRaRa"12A!qq"1"1!qq!qqbq"1Q2A"1QaRaAAAAQaBQQa2ABQBQBQBQBQBQBQ"1QBQ2A!qqRa1aQq!q"11a1a"1BQBQ"1"1"1"1"1BQ"1"1QqRaBQ!q1a!qBQ2A!qqRa!qq2A"1QBQbq2ARaQ1Q1Q1Q1Q1QqRa"1QBQq"1Q"1Q2Aq"1"1Q1BQ2Aqa"1Q2AqBQ"1Q2Aq!1qA"1Q2Aq"1QBQ2Aq2Aq2Aqa2Aqa!1!12AqRaa"1Q3$!!!q!qq!qq"1!qq1a!qq!qq1!q2A2A2A2A!q"1"1"1"12Aa1Q1Q1Q1Q111111111Q!qq111111111QQqQ12A1Q!qq"1Qa1QQaq1QQaQQ1A2A2A2AQQ!qA!q2A1Q2A1QQa1QQa!q!q!q!q!q!qq!qq2A!qA1QQa"12A"12A111Qa2AQa!qqQaQA"1!qq"1"1!qq1aQq!qq1Q1QQ1a!q1Q1Q2AQQa!qQaAQaA2A"1"12A!qq"11aQ1!qqBQ!qq1q"1Q!qqQa2AQa!qq!qq!qq12A1Q2A"12A!qq11a"1"1ABQAa!1q2Aqqq!1q!1q!1q"1Q!1q2Aq!1AQ!1!12AqaA"1QQ3qaqQa1!!!1AA!1Q!qaqa1A!q"1q11qaaqAAQq11a34!qqq1A"1"1"1QQ!1Q1Qa"1!q!qQQ"12AAAqqQQ1aA!Qq3tA1$1QaBQBQBQ!qqAQqQ!qBQ2A2A!qqBQRaQa1a!qQQ!q!qq!qq"1!qQa2A3aA4A!qqRaRaRa"1Q!q1a"1RaBQBQ"1Rabq!qqQq"1!q!q"1"1"12A"1!qqBQ3!!1qq2Aqq2AqA!1qQ"1Q"1Q"1Q"1Q!AaQ!1q"1QAaAa2Aq!1A3!aaA!1A3taA4A"1BQ"1BQ!q1Q1QQ1BQBQ1QqBQBQ"1BQ1a2AqbqQ2ARaRaBQq"1QRa"1Q2Aqa3dA1$1QqQBQ"1QQ3DaAQaBQ2A!qq!qq2AAAAAAAAAA1Q1Q1Q!q1aBQqQaaaaaaaaaa1q1q1q"12A2AaRa2AaBQq2AqRa2Aqa2AqBQq2AqbqRaBQq2Aqa3!!1q1aaaaaaaaaaaa1AqaA!1A3aADQ2A1Q1Q1a!q1a1Q1a1a1aQqRa2AqBQ2Aq2Aqa2Aqa3$!!!qqQq1a2A2AQqQ!q1A!qAQ1AA"1Q!1q"1QBQBQBQBQa!1A3!aaABQ2Aq!1A3!aaA!1q"1QBQ2Aq!1A3!!QaAQaQaQaQa!qA!qA1QaQaQ1Qa!q!qAA!qA1aA!qABQ"1Q1!!qA2AaQa!qq"1QBQ"1QABQ"1Qq!q!1q1"1QQBQq1!1A34A1!qqQqQRa1Q!qq!qA2AqaBQ2AqBQ"1QQa3aA4A2A"1RaQq"1QqRaQa!qQq2AQabq2A2A2AQ1Q12A2ABQ2ABQBQBQBQBQBQqbqbqbqRa2A2ABQQa1Q1Q"12ABQBQRa2AQa1QQaRaRa"1bq2ARaRaRaRa"12A"1QQa2ABQ"11a1a!q1aQ!qq2AQaQa2A2A2AQa"1QbqBQqRa"1Q2A"1!q2Aq!1q2Aqbq!1qBQqRaBQAa2Aq2AqaBQBQBQ!1q2Aq2Aq34A1!qqQqQ1QQ"1!1qBQ"1QQ3tqQQ113d!A4AqBQ"1QRa"1QRa!12Aq2Aq2AqQ"1QQ2AqBQBQBQBQBQa!1q2AqBQBQBQBQBQBQBQRaRaBQaaa!1aaRaBQ2AqBQ"1Q2Aq2Aqa2Aqa3aA$1!q1a2Aqa3$aA$1!q1a2Aqa3taA!q1aQaQaQqQqQqQqQqQqQaQa1qQaQ1Q1Ra"1QQ!q!qq"1BQBQbqQQ2Aqa3DA1!qqQqQaQQ!q!qq1aBQ"1QQ3A1!qqQqQ"1QQ3!!Qq1a1!1AQ11aRaA!!!1A34aA$1!q2A2AQa1a1a2ARaRa2Aq2Aqa3A1!qQq"1Q2AQ!1"1QQ3A1!qQqQaQ"1QQ34aA$1!q1a2Aqa3daA$1!qRa"1QbqQ1Q1Q1RaQ1RaRa2A1Q1Q1!1aBQBQ2Aa3taA$1!q1a2Aqa3!aaA!1A2Aq3!aaA!1A2Aq3!!!qAdqr1RaaRaaBQbqbqbq!qRabqr1r1r1r1r12ABQbqr1r1r1r1r1r1r1aar12A2A"1BQ"1"1ar1bqr1Rabqbq"1bq3!AaBQ2Aq!1q!1q2AqaAAAAAAAAAQQQ!1aaaaaaaaaaqqq"1Q2Aq2Aqa2Aq4q14aiiMs;usrqn$)@)+j53ǚ2_;W}?ڥDЧGMOjUZu`5g]"@lJ3On[DYqltctsy{uY<)%=NN;gDvqZ=(%KT~/A i $  J _t++./2);2k<><=>xf>@@BBH 0HP>P`$`YkB *ko 3 HőF \R s|m y |F ) RY 6 <D  >; d  ! g 6 `( R! 2 2B Z 2R J2@9 i9> ?oBB^I2IJ[JOeOmms% stGuԗQb$ѡ'(1L*YhX,i1ڪ3L;vEROIyzLO$QSy# L`L p!u!a4#{4T U^u:u-R/ =[‘s3]˘$N?Eo2\ì*%<O$MN,kSz> C'gQ%"+/4= 9<>::'Bc)7FRKKHZP?iT zY b_fj"n*"#q#0(x0R2p}|25~5{77/9X9i@@KCuCFFNKwKMMUP/~PwUAUQX`yXXZsZ]] e3epFpr rutttv,v̀;φwٍ T~/%7LGv^ p Щ~:X y(.P0x#56<MA\EtHqOV:/$[Y9aHXd4h]lqw,] }   ;(.%X-4TC V  #g3#$w%#'M'K+t+G-q-. /4!5779 9sE EHS H4Kh ^KgMz MqP PT U ] 3]` -`%f QfBj!sjl7!lnF!npT! pEtb!ltvz!vx!x}!C}~!~!#!&!* & ".P!"2A"7V":k">F۞{"Bؠ"G"MˣȦ"R"U"[9ڰ"`O#fx6#kϽFQ#npd#qFr#u#z8#a#7##2#? $I$($6$"pB$N$ d$Hw$u$($r$U$|$u%l#%"2%M ?%1  M%  Y%3 j%?y%%%%e!% !$% $&% '(& (n3&4 3rS& r߈j'` >' iͦ+( 'f( TQ(0 }(L  ) \) |) ) *4  C* '* ((2* #31<+ ]<3JC+( ]Jq+ q@, ҄,@ ,:hK-cn-nA 0A _d 24d 4 { z5 6( 6p R7$ t ~7 ) '88H) f X8f n j9p d 9 ]:D# :l c -;  m;PC  R<F E <Dq ~ >x v ? ( /5/H3x39)89K:go:>t'>?,?0EiXE M3MT/TvUzUY Y[H[x]*]a7ac@c2mcUm^n$%0/;;4 ges sys_vistas1BUXFLAGGES SYS_VISTAS4%CxMSGAutbC= T% qestadoJTaG+(ges_genTzzczcxzcT zzczcxzcT zzczcxzc%CA% * T Recreando VistasT T  C (Q T%   1aaa=1 {H% CfABMCOMBINACIONESabmcombinaciones Cf ABMA010592 C! Cf ABMGENERICOSE C Cf ABMVRECTALn C 2C MakeView_()ON ERROR &onerr %=% *CNo se pudo crear la vista !!! 95TC  Err vista: . Ultimo:CE i%  T Recreando VistasT *T ,CMakeView_VSTKXCOD()ft05/CMakeView_ABMCLIENTES()/CMakeView_CCCLIE_VENC()/CMakeView_SEGUIMIENTO()-CMakeView_ABMBIENES()-CMakeView_ABMAGENTE()/CMakeView_ABMVSTKXCOD().CMakeView_VATRIBUTOS(),CMakeView_VATR_GEN()1CMakeView_ABMVATRIBUTOS()/CMakeView_ABMVATR_GEN()+CMakeView_VBULTOS().CMakeView_ABMVBULTOS(),CMakeView_VBUL_GEN()/CMakeView_ABMVBUL_GEN(),CMakeView_ABMZONAS()-CMakeView_ABMMARCAS()/CMakeView_VSUCURSALES()2CMakeView_ABMVSUCURSALES()/CMakeView_ABMCONDPAGO()-CMakeView_ABMFLETES()-CMakeView_ABMCOSTOS()-CMakeView_ABMCATCLI().CMakeView_ABMSUCPROP()-CMakeView_ABMGRUPOS()-CMakeView_ABMLINEAS()/CMakeView_ABMPROVEEDO()-CMakeView_ABMCATPRO(),CMakeView_VCHEQUES().CMakeView_ABMCENTRAL()/CMakeView_ABMDEPOSITO()-CMakeView_ABMMOTINV()/CMakeView_ABMFORINCOS()-CMakeView_CHEQUERAS() C/CMakeView_VISTA_BATCH()/CMakeView_ABMCCFORMUL()/CMakeView_ABMCONDCOBR().CMakeView_ABMMOTIVOS()/CMakeView_ABMMAQUINAS().CMakeView_ABMMAQ_GRP()abmcombinacionesG+(ges_gen" abm_GenericosC0CMakeView_ABMGENERICOS()FQ/CMakeView_ABMOPERARIO()-CMakeView_VPROT_ESP()0CMakeView_ABMVPROT_ESP()/CMakeView_ABMUNIDADES()/CMakeView_ABMACUERDOS().CMakeView_ABMEJERCON()/CMakeView_ABMTARJETAS()%CEQUIPOS Q \EQUIPOS.CMakeView_ABMEQUIPOS()%CA010592 T !"Ca!#T$9%& G(.CMakeView_ABMA010592()F'Q G($/CMakeView_ABMRUBROFAC().CMakeView_ABMARMADOR()-CMakeView_ABMTEXTOS()/CMakeView_ABMCTASBANC().CMakeView_ABMINVMODE().CMakeView_ABMENVASES()/CMakeView_ABMCOS_CPRE()/CMakeView_ABMSprGrupo()(/CMakeView_ABMFLE_TIPO()% T-<R BU)XFILE XNOESTADOXAUTXMSGAUTESTADOOESTADOVISIBLEGES_GENXCODINSXCOD_CLI XCODBULATRTEXTOMAXVALUEOEXAAAP_DEV CREAR_VISTAABMCOMBINACIONESP_SERVERCREAR_VISTA_A010592CREAR_VISTA_ABMGENERICOSCREAR_VISTA_ABMVRECTALMENSAJEPROCESAR VISTA_VATRIBSFT05CREAR_TABLA_TMP ABM_GENERICOSODEYFUNCNEWFILE_LOCAL_TMP TMP_GENERICOP_SYSTEM OSECURITYCHEQUEAR_CONVERSION SEC_TABLE_GET OLDSESSION ACTIVEFORM DATASESSIONIDA010592CREAR_VISTA_ABMBANCOS4%CxMSGAutbC= T% ;TRecreando vista: CCC>= [T !CCC>= [( T  &XCMD (% tRCNo se pudo crear la vista !!!CCC>= [ :   ITC  Err vista:CCC>= [ :  BU XCMD XNOESTADOXAUTXMSGAUTOESTADOTEXTOVALUEOEXAAAMENSAJEMESSAGE|%CA010592 4 CaT9 G( CFQ G(BU OSECURITYCHEQUEAR_CONVERSION SEC_TABLE_GET OLDSESSION ACTIVEFORM DATASESSIONIDMAKEVIEW_ABMA010592A010592:" abm_GenericosC CFQUCREAR_TABLA_TMP ABM_GENERICOSODEYFUNCNEWFILE_LOCAL_TMPMAKEVIEW_ABMGENERICOS TMP_GENERICOQ%C ABMBANCOS 5Q\bancos CFQUP_SYSTEMMAKEVIEW_ABMBANCOSBANCOSQ abmrecibos_talonarios.CMakeView_ABMvrectal()U OPENFILESABMRECIBOS_TALONARIOSPROCESAR XNOESTADOXAUTXMSGAUTrecrearprocesarcrear_vista_a010592ECrear_Vista_ABMGenericos=crear_vista_abmbancosCrear_vista_abmvrectal`qbbaB21A!ARQQRABqAQA21QAAA!"qAAA!rAqrBqAQB21AqAA!AAB2A"rAB2!qA3AqA31  5k2%3H&ݢX4,sys_procesando Inicializando T log_errores Ta T- T- T - T - T - T - T - T-sys_mant_varios(%^%??sys_procesando Corrigiendo factor de conversin C%Fsys_procesando'Limpieza de compromisos de producciones C% Asys_procesando"Limpieza de compromisos de pedidos C% \?sys_procesando Mantenimiento de desplazamientos C% Esys_procesando&Actualizacin de comprobantes anulados C% 7sys_procesandoProducciones - depsitos Csys_procesando T" log_erroressys_procesandoBUXAUT SP_MENSAJESYS_PROCESANDO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXTESTEARXFACTOR_DE_CONVERSIONXLIMPIEZA_PRODUCCIONESXLIMPIEZA_PEDIDOSXMANTENIMIENTO_DESPLAZAMIENTOSXINI_VENTAS_FCDEREXCOMPROBANTES_ANULADOSXPRODUCCIONES_DEPOSITOSXRESSYS_MANT_VARIOSFACTOR_DE_CONVERSIONLIMPIEZA_PRODUCCIONESLIMPIEZA_PEDIDOSMANTENIMIENTO_DESPLAZAMIENTOSCOMPROBANTES_ANULADOSPRODUCCIONES_DEPOSITOSSP_OCULTAR_DEFINITIVAMENTEXOKLOG_ERRORES_MOSTRAR%Cccvent *Qccvent%Cremxfac ZQremxfacFG((remitoFG-($>rCremxfac+ BUCCVENTREMXFACREMITOREM_VEN FACTURADOCAUSAALLG+(proc_stk%Cbienes <Qbienes%Cstock hQstockF ~&%S S qFG((codigoG EG !+C+  m%^ TC  %C Z   log_erroresFH %TC %C    log_erroresBUPROC_STKBIENESSTOCKBULTOS ATRIBUTOSCODIGOCOD_INSACTU_PEXMSGACTUALIZAR_ARTICULO_FACTORATRBULLOG_ERRORES_INSERTAR LOG_ERRORES#G+(proc_stk%Ccompprod @Qcompprod%Cproducci rQproducciF G((idFG-(Cproducci+FQF Qcompprod3 %CcompprodFQBUPROC_STKCOMPPRODPRODUCCIIDIN%Cdesp &Qdesp%Cdespflet XQdespflet%Cccvent QccventF ~FG((despacho% E%F%CCRg;G((ccvfacE `G((remito E%C4>FBU DESPDESPFLETCCVENTDESPACHOREMITOCCVFACFACTURACAUSAESTADOG+(proc_stk%Ccomprom >Qcomprom%Cccclie lQccclie%Ctccvent QtccventFG((tccvordFG-(CC,g2P Ctccvent+  F G((idFG-( %Ctccvent+  FQF Qcomprom3 %CcompromFQBU PROC_STKCOMPROMCCCLIETCCVENTTCCVORDCOMPROBINCAUSAEST_DESPID%C tmp_cpbt_1&FQ%C tmp_cpbt_2PFQ%Cccvent ~Qccvent%Cccclie Qccclie %-occclieQ0 EVcd4C Z  C Z  tmp_cpbt_1o tmp_cpbt_1Q ccclieQ QQCcQ        Vcd       tmp_cpbt_2>!>0 F ~-%Cccventccvfac> hoccclieQ 0 [Vcd4C Z  C Z C$  tmp_cpbt_1F ~dusys_procesandoCVFC5CcNCCdND??666 3ge01C Za%C tmp_cpbt_1FQ%C tmp_cpbt_2FQBU TMP_CPBT_1 TMP_CPBT_2CCVENTCCCLIECOD_CLICCOMPROBCAUSAIMPORTECUOTAREFCAUCUOQCOCAIMANULADAALLFORFECHA SP_MENSAJESYS_PROCESANDOFN_CANCGE01_%Cproducci .Qproducci%Cstkxdep ^Qstkxdep%Cbienes QbienesoproducciQbienes   QCS  CX6Q producciQbienes  CS  CX6Q queryF ~TFG((codigo(E     %C4 PSrstkxdep      BUPRODUCCISTKXDEPBIENESPRCODIGOATRBULDEPOSITOLOTESLOTEDESPACHOCOD_INSDEPINGQUERY%Cq1FQ%Cccclie LQccclie%Cven_oper ~Qven_oper;occclieR C$ q1 ~!te_procs%Cq1 FQBU Q1CCCLIEVEN_OPERDISTINCTCOMPROBCAUSAFECHAMANTENIMIENTO_RECIBO_DIASTE_PROCSfacturas_y_remitosfactor_de_conversionlimpieza_producciones estado_despachos\ limpieza_pedidosJ comprobantes_anuladoscproducciones_depositosmantenimiento_desplazamientosqBcBBBSBtB!BB2!A1ArrBB2!!ArArbqaaa!AAsAAaB!ABABB2!AAAArrrArAAqAAB2aAAA!ArqAq1AAAqAB2!1A!A1Arr"rrWrArAAqAAB2qAAqAA!A!A [$rAA rT2AAqAAqAAC2AA1A!Arq1ABB52qAA!AAAB2qAAA1/W h }< ` z<Y{ C!!# %1485[V@G(9"%C \cfg_prd.ges0 q;R,:0No se ha configurado el mdulo de Produccin !!!B T TC$TT T  T  T  T  T  TTC]T TTC(XTCXTCX T- T- T T T T TTS T T T <! T"a T# C$G~(clasesG+(listados+a T'+aq T(Hm ' pr_env_numero_semiop(%C* .%T+,-occformulformulasbienes/-01/323/-04 5+ tmp_codigos_producibles%C'7 ! '% T8,%Ctmp_codigos_produciblesN%pr_env_codigos( 4#)=TCCtmp_codigos_producibles+ 6-C:X6T;,<T C,-\T ,=T,>T?,-,@,AC1No existen frmulas o no hay frmulas activas !!!g.  C1No existen frmulas o no hay frmulas activas !!!g.  %C'7 !FfTCcDF0 E 'm pr_env_cant_lote_pe(%C'7 i ! ' T C ; T%"^ k(O Tk TkTkTkTk-T!k T"-Fi#) Tk ~ TkkT!k3%k !Tk@$TCilNN6%kv ZCExisten ms de CCZ tipos de Cmn@. No se puede continuar !!!gB Co T#kpr_env_bul_cant(% %Cq .%C'7 ! 'mpr_env_deposito(%H Cs%C'7 i!% !%CXXXXFtQ(%Ctmp_codigos_produciblesF6QBUu ACTIVEFORM DATASESSIONIDP_LOCALXRESXFECHAXCODIGOOBIEDATA_CODIGO_VACIOXBULXATRXFORMULA XCANTIDAD XCANTIDADAXNUMPRODXSEMIOPXIDXLOTEOLOTXDESCRXDESC XDEPOSITOXDEPINGXBUL_LXATR_LXDESCARTXCODINSXMEDIDA XMEDIDAAUXXFACTORXSTKXUNID XINTERMEDIOXCANTAUXXFOR RESTARTBULXBULCANT OPEN_FILESCLASESLISTADOSXFORMXMAXFORMPR_ENV_NUMERO_SEMIOP VLD_SEMIOPXCODPRODPRODUCCICODIGODISTINCTCCFORMULBIENESDESCRFORMULASFORMULACOD_INSCODCOMPTMP_CODIGOS_PRODUCIBLESWIZARD XREG_CODIGOPR_ENV_CODIGOSDATA_CODIGO_LARGOXPEPECIEREALLOTE XSEMIFULLBULATR)XCANTIDAD_MANDADA_A_ENVASAR_ANTERIORMENTEPRODPENDSEMIOPTMP_PRODXIDPRODSUMMOVSTOCKCANTIDADNUMEROCAUSACAN1CAN2CAN3CAN4CAN5CAN6CAN7CAN8CAN9CAN10CAN11CAN12CAN13CAN14CAN15PEPR_ENV_FEC_ART_ATRXSEMICODINSMEDIDA MEDIDAAUXFACTORUNIDCOMPATRCOMPACTIVASEMIMENSAJE ARR_CONTARFORMUENVPR_ENV_CANT_LOTE_PEZSTKOBUL LABEL_PLURAL PR_ENV_DETECTA_FORMULAS_ENVASADOPR_ENV_BUL_CANTVLD_CANTPR_ENV_DEPOSITO REGISTRARXXXX T T Tctrsacstockstkxdepstkxdspproduccimovstockcompprod%Tpr_envasado.PRG#TApertura de Produccin TtrsacTC%4TC &CError TEST !!! Suspendo?a >%C TMPERRTEST C TMPERRTESTN  pr_errtest 9C,Error al testear el stock de los insumos !!! R C Ttrsac)%  :CProduccin nmero : CC@z 999,999,999_ 3C&Hubo un error, no se ha registrado !!!  T  T BUXERRORXOKAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANTEST WRITE_DATASYS_MOSTRAR_SCREEN PR_ERRTESTMENSAJE UNLOCK_ALLEND_TRAN TTS_ERRORPR_SQL_ENVASADOXNUMPRODTTS_ID TF G((prod#6T>C C C C C C C C  a  aC C C C C C C C C  C   C  !C  "C  #C $C %C &C 'C (C )C *C +C ,C -C  .C  /C  0C  1C  2C 3C 4C 5C 6C 7C 8C 9C :C ;C <C  =C  >C  ?C  @C  AC BC CDEFGHIJKCLMCLNCLOCLPCLQCLRCLSCLTC LUC LVC LWC LXC LYCLZCL[\]^_``(%C` 9%CDC` Fstkxdepcoddep YrstkxdepCaEDC` FC] BUbXERRORPRODUCCIPRODXNUMPRODFECHAXFECHAFORMULAXFORMULACANTIDADXBULPENDCONTROLDESCRXDESCDEPOSITO XDEPOSITODEPINGXDEPINGESTADOIDXIDMULTIPLEBUL1BUL2BUL3BUL4BUL5BUL6BUL7BUL8BUL9BUL10BUL11BUL12BUL13BUL14BUL15CAN1CAN2CAN3CAN4CAN5CAN6CAN7CAN8CAN9CAN10CAN11CAN12CAN13CAN14CAN15PRD1PRD2PRD3PRD4PRD5PRD6PRD7PRD8PRD9PRD10PRD11PRD12PRD13PRD14PRD15CODIGOXCODIGOATRXATRLOTEXLOTEPEXPEFOR1XFORFOR2FOR3FOR4FOR5FOR6FOR7FOR8FOR9FOR10FOR11FOR12FOR13FOR14FOR15SEMI XINTERMEDIOSEMIOPXSEMIOPENVZBUL 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMe C'CBIENESdescins-G(S&CCONVERconver-CStock-"CDEPOSITO-"CMOVSTOCK-!CSTKXDEP-"CTR04tr04- CBULTOS-"CATRIBUTO-"CFORMULAS-"CCCFORMUL-"CPRODUCCI-!CSTKXDSP-"CTCOMPRAS-"CCOMPPROD-"Ccodbulat-"Ccomppaux-BUABRIR_TABLAS_FIJAS CHECK_OPENED COMPUESTO4 T T T%C"select &xtabla %C Ta%CW Ta%C Ta%C Ta% B 7 T-%jT order %T alias %select &xtabla Q%TCCZT in  TF%9 T P Tuse (xpath+xtabla) &xxvars % FBU XTABLAXORDENXSELEXALIASXPATHXREOPENXXORDENXXSELEXXVARSFG((despacho>    BUDESPACHOCANTIDADINICIALCOD_INSXCODIGOBULXBULATRXATRFECHAXFECHAFECDESPCOMENTOPXNUMPRODXLOTEADUANAORIGENPROCEDIMPORTACF T ~TFG((formula- TC4R BUZFORMUENVFORMULASFORMULACODCOMP XINTERMEDIOXBULTC]R,:Validando stock ... TG+( pr_ordenesF T ~T%C.%TC TFG((codigoGE C G T F G((formula- %TC %C4g%%COTC+CCaa 6 cGCEl factor de la capacidad CC est en 0 !!!T GC'Intermedio no encontrado en la frmula CCZ !!!TG+(listadosR BUXIDXOK PR_ORDENESFORMUENVZXBULXPEXFACTORSTOCKCODIGOXCODIGOXATRFACTORFORMULASFORMULACODCOMP XINTERMEDIO TEST_ARTICULOXSTKMENSAJELISTADOSA 4 T-proc_stk BUXCLAVEXCOD RESULTADOVLD_BULPROC_STKA 4 T-proc_stk BUXCLAVEXCOD RESULTADOVLD_ATRPROC_STK>%CCCCCCCCC C C C C CCBa 0 T(%C%C +T, [TCC: CCC CCCC86Z6T # CC CC86ZhCLa suma de las cantidades por C@& no coincide con la cantidad total !!!C B-UXBULXCANTAUXXTXTZMENSAJEOBUL LABEL_LARGO4%!Ba  F G((prod E%C4% mBa DC7La orden de produccin an est pendiente (abierta) !!!B- 0C#Orden de produccin inexistente !!!B-UXSEMIOPPRODUCCIPRODPENDMENSAJE 4FG~(clases'TChlp_codigos_produciblesN < TBUVARIABLEXFILTROTMP_CODIGOS_PRODUCIBLESAYUDACLASESSHOWCODIGO registrar write_dataswizard open_files*! check_opened# ini_despacho& pr_env_detecta_formulas_envasado (test( valid_bul, valid_atr,vld_cantn- vld_semiop/buscar_articulos_posibles+1TTARTICULOS POSIBLES$Ttmp_codigos_produciblesThlpTidu TPTdescrT DescripcinTdescrT C T T codigoT CdigoT codigoTCU ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1hlp_codigos_producibleshlp3 #AAr!1RAA2 CAA32QArB"q1ARArJ"q1ASAAA32AAAAr* #Ara!AA!AAAAAz.w5AA2bq1AArQ22AAAA4AA2AAAAA12AAACABABUqAAqAAB27212b!ABXs1AA3wQRNsBBA31r12A12A1r1Aq4ub!!!!!!!!!!!A3!AAA!AAAA2A2A!AA21AA1AB6rRB3sqvAQA2 2rCAR|basV2AqAqABR523K q!1AAAaFq3q1rqqAqAqAA2rRrqqRB`1A!!1112a"''2 3k4R47m38;f;=l=?y@HH=IZiII`JMg-MNNO!PQ% V H TdR`]% C a Ta Ta( c:\sistema\system\data\1\ges.dbc'T2694 TPLA pr_comienzoT C]%Cmaquinas Qmaquinas%C tmp_bieaux+F QeobieauxCXQ QQQC 1\tmp\ Q\tmp\  CbienescodinsC Suspendo?a-TC d 6%J*"c:\sistema\2000\pla_produccion.scx rpla_produccion.scx(T  !T" #T$ %T& 'T( )T* +T, -T. /T0 1T2 3T4 5T6 7T8 9T: ;T< =T> ?T@ ATB TC DTE FTG HTI JTK LTM NTO PTQ RTS TT TU VTW BUXXDEVSETS DEY_FUNC2P_DEV P_SUSPENDCXCODIGOP_EMP OPEN_FILES PR_COMIENZOXTABLA_PROD_PLAMAQUINAS TMP_BIEAUXORIDESCR EXTRUSIONMEMO1 IMPRESIONMEMO2 CONFECCIONMEMO3BIEAUXCODIGOP_LOCALSYS_MOSTRAR_SCREENXPLA_KILOSMETROS XCANTIDADBIENESMEDCODLARGOPLA_PRODUCCIONSCXXRESXMAQMAQ1XANCHOANCHOXESPESORESPESORXFUELLEFUELLEXTRATADOTRATADOXCOLORCOLORXKILOSKILOS XMATERIAL1 MATERIAL1 XMATERIAL2 MATERIAL2 XMATERIAL3 MATERIAL3 XPOR_MAT1POR_MAT1 XPOR_MAT2POR_MAT2 XPOR_MAT3POR_MAT3 XPOR_DESLPOR_DESL XPOR_ANTIPOR_ANTIXMASTERMASTER XPOR_MASTPOR_MASTXMEMO1XTRABAJOTRABAJO XCILINDROCILINDROXCOLOR1COLOR1XCOLOR2COLOR2XCOLOR3COLOR3XCOLOR4COLOR4XCOLOR5COLOR5XCOLOR6COLOR6XMEMO2XLARGO XTIPO_CONFE TIPO_CONFEXMEMO3%0Cbieauxcod%}3>    !"#$%&'()*+,-./0123456789:;<=>BU?BIEAUXCODIGOXCODIGOMAQ1XMAQANCHOXANCHOESPESORXESPESORFUELLEXFUELLETRATADOXTRATADOCOLORXCOLORKILOSXKILOS MATERIAL1 XMATERIAL1 MATERIAL2 XMATERIAL2 MATERIAL3 XMATERIAL3POR_MAT1 XPOR_MAT1POR_MAT2 XPOR_MAT2POR_MAT3 XPOR_MAT3POR_DESL XPOR_DESLPOR_ANTI XPOR_ANTIMASTERXMASTERPOR_MAST XPOR_MAST EXTRUSIONXMEMO1TRABAJOXTRABAJOCILINDRO XCILINDROCOLOR1XCOLOR1COLOR2XCOLOR2COLOR3XCOLOR3COLOR4XCOLOR4COLOR5XCOLOR5COLOR6XCOLOR6 IMPRESIONXMEMO2LARGOXLARGO TIPO_CONFE XTIPO_CONFE CONFECCIONXMEMO3guardar_en_bieauxqAQrbFAAqAAXrAC3bAb1BC1? i%ٚؤvkYEG+(dey_funcC Iniciando TCproducciCccformulCformulasCProd_GenCForm_Gen Cidx04idx04CbienescodinsCconverFechaCmovstockFechaCbultoscodigoCatributocodigoCstockCultcosCcosCstkxdepCmotinvClisprecClineasCgruposCmaquinasCpr_otrosFG((codinsFG((codigo<F G((codigo<F T .t.%  6T  %.and.betw(producci.prod, xdopr,xhopr)% +T  .and.xdins=producci.codigo%CXJ(T  .and.xdbul=producci.bul%CX(T  .and.xdatr=producci.atr% 5T  $.and. betw(bienes.linea,xdlin,xhlin)% 95T  $.and. betw(bienes.grupo,xdgru,xhgru)%7T  &.and. betw(producci.fecha,xdfec,xhfec)%C C :T  ).and. betw(producci.deping,xddepi,xhdepi)%C C =<T  +.and. betw(producci.deposito,xddepe,xhdepe)HR  AT  0.and.producci.pend .and. !empty(producci.codigo) BT  1.and.!producci.pend .and. !empty(producci.codigo) A,T  .and.empty(producci.codigo) -T  .and.!empty(producci.codigo)% G%C%>T  -.and. (!producci.multiple and producci.env=0) ?<T  +.and. (producci.multiple or producci.env>0) <T  +.and. (producci.multiple or producci.env>0)T C!T"Formula_VirtualT#C$%T%&e h1C'(#)C *N +L,C-C.D/D C%0C1C2C3C4C5C6C7C8C9C:C;C<C=C>C?C@CANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N^N_N`NaNbN cN dN eN fN gN hN iN jN kN lN mN nN oN pN qN rNsNtNuNvNwNxNyNzN{N|N}N~NNNLNNNNC2C C CCCCNNNN C(N C(NNNNNNNCCCN CNNNNNN C(N NC N  NCNDNNDNNN NNNCCC(NN NMQFQC'(#%C brconsumoFQC'(.dbfTC$%T%&Yh1C'()C *N N LC%CCCC N N N N N N N CLLCQC'(FG((codinsFG((codigoG((IDF G((PRODG-( G-( 0@G-( T-%C tmp_producciQ %a1T.t.% n/T"betw(pr_cie.batchcie, xdbtc,xhbtc)%%4T# and betw(pr_cie.fecha,xdfec,xhfec) %+T and pr_cie.turno=xturno-1%U&SELECT producci.* , producci.fecha AS prcfecha , 000 AS prcindice , 0 AS prcturno , 0000000000000 AS prcbatch , 00000000000.00 AS prccant , IIF(producci.multiple,"ENVASAMIENTO","PRODUCCION") AS tipo_prod , SUM(NVL(pr_cie.peso,0)) AS peso , 0000000000 AS pedido FROM producci LEFT OUTER JOIN bienes ON producci.codigo=bienes.cod_ins LEFT OUTER JOIN pr_cie ON producci.PROD=pr_cie.PROD ORDER BY producci.PROD GROUP BY producci.PROD WHERE &filtro INTO TABLE (p_local+"\tmp\tmp_producci") 0%   <SELECT producci.* , NVL(pr_cie.fecha,{}) AS prcfecha , NVL(pr_cie.indice,0000000000) AS prcindice , NVL(pr_cie.turno,0) AS prcturno , NVL(pr_cie.batchcie,0000000000000) AS prcbatch , NVL(pr_cie.cantidad,00000000000.00) AS prccant , IIF(producci.multiple,"ENVASAMIENTO","PRODUCCION") AS tipo_prod , NVL(pr_cie.peso,0000000000000.00) AS peso , 0000000000 AS pedido FROM producci LEFT OUTER JOIN pr_cie ON producci.PROD=pr_cie.PROD LEFT OUTER JOIN bienes ON producci.codigo=bienes.cod_ins ORDER BY producci.PROD, pr_cie.indice WHERE &filtro AND IIF(!ISNULL(producci.batchcie),&xfiltro_cie,.T.) INTO TABLE (p_local+"\tmp\tmp_producci") >A iSELECT producci.* , producci.comf AS prcfecha , 000000000 AS prcindice , 0 AS prcturno , 0000000000000 AS prcbatch , SUM(NVL(pr_cie.cantidad,00000000000.00)) AS prccant , IIF(producci.multiple,"ENVASAMIENTO","PRODUCCION") AS tipo_prod , SUM(NVL(pr_cie.peso,0)) AS peso , 0000000000 AS pedido FROM producci LEFT OUTER JOIN pr_cie ON producci.PROD=pr_cie.PROD LEFT OUTER JOIN bienes ON producci.codigo=bienes.cod_ins ORDER BY producci.PROD, pr_cie.indice GROUP BY producci.PROD WHERE &filtro AND IIF(!ISNULL(producci.batchcie),&xfiltro_cie,.T.) INTO TABLE (p_local+"\tmp\tmp_producci")  Ta%C + QF$Q\tmp\tmp_producci& FG-(>%%C producci_altFQQproducciT/TSeparando producciones a listar ~'3%A ."Cmaquinascodigo*%C o.FG((deposito E% 'FG((formula EbFG((codins E F<>*,,-,.. 00@@BRbbAC A6++/C 6,,C 6C 6CUC Maana7C TardeC Noche6666C 6#%C producci.notabMp">C&%S S "/C 0@stockarticulo> ">TTC<<<C<<< TTC < < 8T<<TC< < 8T<<TCC< ;FDTCCFDTCCFDTCCFDi>C* C00CCZR:C00CCZRC* C00CCZR:C00CCZRCCCZD 6CCCZH 6CCCZM 6F TCO E>> #FTTT @0FG((codins E %Sp&Tdespacho=xlote &T.t.< SELECT SUM(CONVER.entra-CONVER.sale) FROM CONVER, motinv WHERE CONVER.motivo=motinv.codigo .AND. motinv.con_op=2 .AND. CONVER.orden=xprod .AND. CONVER.cau#"R" .AND. CONVER.cod_ins+CONVER.atr+CONVER.bul = xarticulo .AND. &xfiltro_real INTO ARRAY aaa T F%'>AAC i1FG((codins E F>*,,.. 00112233445566778899::;;<<==>>??@@BCDEFGHI J K L M NOPQbccddeeffgghhiijjkkllmmnnooppqqAArrssttuuvvwwxxyyzz{{||}}~~a++/C 6,,C 6C 6CUC Maana7C TardeC Noche6666C 6>C<<<C<<< >F TCO E>> #(e1!T producci.bulCCZxvar=&xvar %CXa1FG((formula!T producci.forCCZxvar=&xvar EFTcant_foCCZ>RR%REPL &xvar WITH ccformul.cantidad TTT @FG((codins E %S/Tdespacho=xlote /T.t.< SELECT SUM(CONVER.entra-CONVER.sale) FROM CONVER,motinv WHERE CONVER.motivo=motinv.codigo .AND. motinv.con_op=2 .AND. CONVER.orden=xprod .AND. CONVER.cau#"R" .AND. CONVER.cod_ins+CONVER.atr+CONVER.bul = xarticulo .AND. &xfiltro_real INTO ARRAY aaa T F%]1!T objetivo.reaCCZ&REPLACE &xrea WITH &xrea + aaa(1) F%3*%C producci_altprod3TTT"T 0@ T< @ostkxdepCQ 0@CX% 2TC< >ostkxdepCQ 0@% 3TC>F%Cpr_cie2N3FQT C$%T%&!h1C'( *N !C%"C#C$N%C%&C'C(N)N*N+N,N-C.LLCQC'(   T/TC$F#)T T0CCNCN6~*5vTAnalizando consumos... Prod.: CC*ZCb Frmula: CCbZ Envasamiento.6TCobjetivoO C1F %2 5C'(/TT0T(TOrden y Agrupacin finalFG(3(codigoG(4(codigoG((IDFG-(3G-(4>3,4,%58}o brconsumo*CQCQCQ*brct%& C* ZCZ7F&G-(C* ZCZ6&>6C Cbrct+ &>6C Cbrct+ *>d C 1>d6 6C $> C $>C %8;F!~. / w9H8s9 .+94>CC.CC.=6 /s94>CC/CC/=6F!~. / H:H9D: .94>CC.CC.=6 /D:4>CC/CC/=6F !~.- /- ;H:; .-:4>-CC.-C-C.-=-6 /-;4>-CC/-C-C/-=-6%C producci_altI;FQFHe;< 9;F & *( \tmp\obj_op 9;)& 0@( \tmp\obj_cod 9< & *( \tmp\obj_op>)C*Z%:< ~< T; T< T= T>T?/T@UA cs_generar;<= 0@?>@F > =%=='& CZA6C* ZC2(C'(rpt_pr_produccionesQRF)QC'(rpt_pr_producciones/& *(C'(rpt_pr_produccionesQF :(C'(rpt_pr_producciones_detalleQRF1QC'(rpt_pr_producciones_detalle7& *(C'(rpt_pr_producciones_detalleQF#& C* ZD)& C* ZCZD>)C*Z:(C'(rpt_pr_producciones_consumoQR%E2C+oobjetivoQFXLineas 3 Xgrupos 4  brconsumoQH*+./ @0BAQGC3,C(XQC4,C(XQA QI-Q**  *1C'(rpt_pr_producciones_completoTJ ~A%J*A TJ* >a A4(C'(rpt_pr_producciones_completoԻ |BCNo se pudo guardar el archivo C'( rpt_pr_producciones_completo.xls !!!C Revise que no est en uso.KQ%CLBSCC'(rpt_pr_producciones_completoProducciones con DetalleNM .C=C0No se pudo crear la carpeta de exportaciones !!!KF1QC'(rpt_pr_producciones_consumo7& *(C'(rpt_pr_producciones_consumoQ%CborrarCF/Q%Cborrar1CF Q%C brconsumoDFQFQC'(/.dbfC'(/.idxC'(/.cdxC'( .dbfC'( .idxC'( .cdxC'(#.dbfC'(#.idxC'(#.cdxC'(.dbfC'(.idxC'(.cdxFQproducciBUODEY_FUNCOESTADO SET_AND_SHOW OESTADOMAX CHK_OPENEDP_COMMONBIENESCODINSULTCOSCODIGOCOSFORMULASFILTROXDOPRXHOPRXDINSOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRU XTIPO_FECHAXDDEPIXHDEPIXDDEPEXHDEPEXDESTXENV_SIN_COMENZARXDTIP XFORM_PATHNEWFILE_LOCAL_TMP XFORM_ALIASBORRAR2NEWFILEXBILENDATA_CODIGO_LARGOODEYFUNCGET_PATHOPSOPPENDDESCRDESCR3FECHAFECHACIEBULBUL1BUL2BUL3BUL4BUL5BUL6BUL7BUL8BUL9BUL10BUL11BUL12BUL13BUL14BUL15ATRREALCANT_OBJCANT_OB1CANT_OB2CANT_OB3CANT_OB4CANT_OB5CANT_OB6CANT_OB7CANT_OB8CANT_OB9 CANT_OB10 CANT_OB11 CANT_OB12 CANT_OB13 CANT_OB14 CANT_OB15CANT_FORCANT_FO1CANT_FO2CANT_FO3CANT_FO4CANT_FO5CANT_FO6CANT_FO7CANT_FO8CANT_FO9 CANT_FO10 CANT_FO11 CANT_FO12 CANT_FO13 CANT_FO14 CANT_FO15FORMULAFOR1FOR2FOR3FOR4FOR5FOR6FOR7FOR8FOR9FOR10FOR11FOR12FOR13FOR14FOR15REA1REA2REA3REA4REA5REA6REA7REA8REA9REA10REA11REA12REA13REA14REA15MULTIPLEPEPETEOAVANCE EFICIENCIADESCR2MEDIDA MEDIDAAUXTXT_TEO1TXT_TEO2 TXT_REAL1 TXT_REAL2MERMA MERMA_PER MERMA_COSLINEADLINEAGRUPODGRUPOREAL2COS_ESTCOS_REACOS_EFIACTU_PECOS_EST2COS_REA2DEPOSITO DDEPOSITOLOTESEMIOPSEMILOTESEMIPECANT2CONSUM1CONSUM2ENVMAQDMAQBATCHCIETURNODTURNOINDICE TIPO_PRODPESOCOMFCOMHCOMMFINFFINHFINMTPROCTPROCDTPROCHTPROCMTCOMTFINDURACIONSTKAENVPEDIDOFACTORNOTAOBJETIVO BRCONSUMOITMENCART_CODART_BULART_ATRART_DESART_UMART_CANART_REAART_PRMART_COSCON_COSTOT_REATOT_ESTART_LOTCON_ADILOTEADOMSGSTOCKIDPR_OTROSPRODUCCIPRODPR_CIEXPRCIE TMP_PRODUCCI XFILTRO_CIEXDBTCXHBTCXTURNOXSHCONXDETALLE_CIERREPRCCANTALLFORPRCFECHAXDFECXHFECP_LOCAL PRODUCCI_ALTVALUETEXTOMAQUINAXDPEDXHPEDCCFORMULCANTIDADPECIEMAQUINASPRCBATCHPRCTURNO PRCINDICEBULTOS ATRIBUTOS XSEGUNDOSXTPROCXTPROCDXTPROCHXTPROCMXREGXPRODXLOTE XARTICULOLOTES XFILTRO_REALAAAXRECCPRD1PRD2PRD3PRD4PRD5PRD6PRD7PRD8PRD9PRD10PRD11PRD12PRD13PRD14PRD15ZXVARXREAXSEMIOPXSEMIDEP XSEMILOTEXID XCAN_SEMIARR_SEMISUMCNTSTKXDEPDESPACHOPR_CIE2BORRAR1FORM_CODFORM_BULFORM_ATRFORM_UNI FORM_SCOD FORM_SBUL FORM_SATR FORM_SUNIFORM_CANFORM_COSCONS_CANCONS_COSCONS_LOTCONS_ADIBORRARMAXPROCESARXDMERLINEASGRUPOSXDLOTBRCTTCOSXFILTRO_SUBINDICE_LOTESXDORDXDEBUG_SCHILLIGXERRXMSGXCOSTOXMONCOS XFECHA_COSTO XFECHA_TC OBTENER_COSTO CS_GENERARXSDFHFINALXEXPORTAR_DETALLEALOTE_ABCOS_RXUXOLDOPMENSAJEEXPORT_GLOBAL_DIREXPORTAR_DETALLE P_DIR_EXPORT( T T T% %CborrarFQC.dbfC.idxC.cdxTC T  8h1C N  N LC CCNC CCNNNNNCLLCQC%w& &  & &  %!"  C# $(C$#F%G((codins%%'!(E E!(T)! T*!(T+!,T-!.%!" rT/!0%%1S\T2Omovstock.codigo+movstock.bul+movstock.atr+movstock.despacho#xart+xbul+xatr+xlot nET28movstock.codigo+movstock.bul+movstock.atr#xart+xbul+xatr T2.t.$(!T3 objetivo.bulCC$Zxbul=&xvar %%1SVkT22G.and.movstock.codigo+movstock.bul+movstock.atr+movstock.despacho#xart+"/ "+xatr+xlot TT225.and.movstock.codigo+movstock.bul+movstock.atr#xart+"/"+xatr%T4,movstock.despacho  T49SELECT movstock.codigo AS cod_ins , movstock.bul AS bul , movstock.atr AS atr , SUM(movstock.cantidad) AS cantidad , movstock.fecha AS fecha , movstock.despacho AS lote FROM movstock, CONVER, motinv ORDER BY movstock.codigo,movstock.atr,movstock.bul GROUP BY movstock.codigo,movstock.atr,movstock.bul &xgrlote ,movstock.fecha WHERE movstock.numero+movstock.causa=STR(CONVER.TRANSF,12)+"M" .AND. CONVER.motivo=motinv.codigo .AND. motinv.con_op=2 .AND. CONVER.orden=xop .AND. CONVER.ITEM=movstock.ITEM .AND. &FILT INTO CURSOR consumo F5#) T6+C+  T7 T8%9 H  :e T;5< T=>Ha  9g T?]@ cs_generar78?5'505,5.;= 9 T?]@ cs_generar78?5'505,5.;= 9a T?]@ cs_generar78?5'505,5.;= : &TBC5'505,5<C  T?FG((borrar% = E5'505, TDC4 TEC4 TFC4TGCC4 6  GE5'505,G TFC4TGCC4 63TEC5'505,borrarborrar !E5'505,5. TDC4%D FG((borrar1% E5'505, TDC4 TEC4 THC4TICC4 6 H GE5'505,G THC4TICC4 6!E5'505,5. TDC4;TEE+C5'505,borrarborrar1 %D j%%'5' C5'Bienescodinsrborrar  ! 5'505,5Jc?5Jc5.E%1SCG GI6CG -a6 +>5J5J? +>5J5J?T665J? >8F5HSSELECT codigo AS cod_ins , bul AS bul , atr AS atr , SUM(cantidad) AS entra , fecha AS fecha , despacho AS lote , .F. AS enc FROM movstock ORDER BY cod_ins,atr,bul GROUP BY cod_ins,atr,bul &xgrlote,fecha WHERE BETW(numero+causa, STR(xop,8)+"/ 1P", STR(xop,8)+"/999P" ) .AND. cantidad<0 INTO CURSOR consumo F5#)+C+  T7 T8%9H :zT;5< T=>Hv 9| T?]@ cs_generar78?5'505,5.;= 9 T?]@ cs_generar78?5'505,5.;= 9v T?]@ cs_generar78?5'505,5.;= :&TBC5'505,5<C  T?FG((borrar% RE5'505, TDC4 TEC4 TFC4TGCC4 6 GE5'505,G TFC4TGCC4 62TEC5'505,borrarborrar!E5'505,5. TDC4%D @FG((borrar1% E5'505, TDC4 TEC4 THC4TICC4 6 [GE5'505,G THC4TICC4 6!E5'505,5. TDC4:TEE*C5'505,borrarborrar1 %D o%%'5' C5'Bienescodinsrborrar  ! 5'505,5Kc?5Kc5.E%1SCG GI65 <rborrar  ! 5'505,5Kc?5Kc5.E%1SCG GI65 s)>5K5K?T665K? >8F5HFK(LM  TL TMT!N%!O+T!O B T%MnTPLM  TPF%G((codins E!(F%G((codins E!(FQG((codigoE!(!,FRG((codigoE!(!0+TSCC%T CQTCRT TU%!"TV!0TW ($(%T3objetivo.cant_obCC$Zxprd=&xvar !T3 objetivo.bulCC$Zxbul=&xvar %X TV/FYG((codigoE!(/!,TUUXYZITWWCW (, 6/:CCX@z 999,999,999_TWW) TW TV!0FYG((codigoE!(V!,&%%RS %[S VT\YZ pT\%ZTU!O\FRG((codigo%']!(VE!(VFYG((codigo)%!(V!,(0,0E!(V!,CX%%RSkT^R_T`Ra T^%_T`%a&%%RS %[S T\YZ T\%Z%!"9:TbC^ [CCU @z 999,999_ C`] sTbC^ [CCU @z 999,999_ C`C\&, PE:CC\ @z 999,999.9999_6]%!cT\!c  Td Te TfW Tgb%!"TW ($(t!T3 objetivo.reaCC$Zxrea=&xvar Tddh!T3 objetivo.bulCC$Zxbul=&xvar %hpFYG((codigoE!(/!,TeehYZITWWCW (, 6/:CCh@z 999,999,999_TWW) p FYG((codigoE!(V!,&%%RS %[S T\YZ  T\%Z)T\C!c !c 6TW Td!NTe!N\%!" ?TbC^ [CCCeT @z 999,999_ C`] G!xTbC^ [CCCeT @z 999,999_ C`C\&, PE:CC\ @z 999,999.9999_6]F!>!i!P!jS!_^!a`!kf!lg!mW!nb!oe!pU% (F#) Tq Tr Tsa+C+ &F%G((codins EFRG((codigoEFQG((codigoEVTtC%TCC  CQT6CC  CRT6FYG((codigo ECX T^ Tu%%RS#T^R_TuRa #T^%_Tu%a&%%RS %[S #T\YZ  $T\%Z%!c8$Tv!c O$ Tv\;%CwINDC%'=SIM C%x6$TqqTrrvF%$TyC dT  % Tyd%2%TB I% TB%q%Tz % TzF{> ! |}~tCu^6yzBBz  F Ts-HF!_>!qd!CCCCqqdq d6T(\X@F(\XD >!CM!dTF!F{&K ! (F!%'T d ' TY>LC!O !O 6MC!N !N 6U>C!!L!6C!!M!c6>!CM!T>!q!rBUXAVANCE EFICIENCIACANT_REAXSHCONXDMERBORRARODEYFUNCGET_PATHNEWFILEXBILENOBIEDATA_CODIGO_LARGOOPITMENCFORM_CODFORM_BULFORM_ATRFORM_UNI FORM_SCOD FORM_SBUL FORM_SATR FORM_SUNIFORM_CANFORM_COSCONS_CANCONS_COSCONS_LOTCONS_ADILOTEADOMSGXDLOTBORRAR1OBJETIVOMULTIPLEFNZBIENESCODINSCOD_INSCODIGOXOPXARTXATRATRXLOTLOTEXBULBULLOTESFILTXVARXGRLOTECONSUMOACCCOS XERR_COSTO XMSG_COSTOXDTVA P_TIPOCOS XFECHACOSFECHAXMONCOSXDMONXCOSTO OBTENER_COSTO CS_GENERARCOSPROMFN_COSTOXENCXADI XENC_MADRE XITM_MADRE XENC_MADRE1 XITM_MADRE1CANTIDADENTRACOS_ESTCOS_REAREALCANT_OBJ XEFICIENCIAATRIBUTOBULTOSXDESCRDESCRXLITROSXPRIBULXSTRXPRDSTOCKFACTOR ATRIBUTOSXFACTORCLAVEXMEDIDAMEDIDA XMEDIDAAUX MEDIDAAUXXSTR2PEXREALXREAL2OLD_XSTR OLD_XSTR2XREAAVANCEDESCR2TXT_TEO1TXT_TEO2 TXT_REAL1 TXT_REAL2REAL2CANT2XMPXMP2XINI XDESCR_LARGAXMEDIDA2XFACTOR2P_EMPTIPO_ARTXAVCOSPROM2 BRCONSUMOART_CODART_ATRART_BULART_DESART_UMART_CANART_REAART_PRMART_COSCON_COSTOT_REATOT_ESTART_LOTCON_ADIMERMA MERMA_PER MERMA_COS XDCOS_REA XDCOS_EST XDCOS_EFICOS_EFICOS_EST2ACTU_PEPETEOCOS_REA2CONSUM1CONSUM2E4G+( pr_funciones x%Cobjetivo.cant_foCrCCZ65Cobjetivo.cant_obCjCCZ6 lTCobjetivo.cant_obCjCCZ6 / objetivo.cant_foCrCCZ6 # T@%Cobjetivo.cant_obCjCCZ6kB%%Tformula=objetivo.formulaT  )Tformula=objetivo.forCCZ#TC objetivo.forCCZ1T .and. formula#0 .and. formula#-1C  F  T SCAN FOR &xfil( F  ^J %a T HL T T T TH)  T \ cs_generar  ! T \ cs_generar   T \ cs_generar  5FG((codigoGF GECG GF% T  1 T  2L T %O$%  ! T"! KF#G((codins E %%S &S -F'G((codigo ECX T"( GT"#( f T"%"T"h㈵>F#G((codins EF)G((borrarE%C4 T  rborrar*+,-./0123456789:;" ; " #<S a 9>22;" 33; "  F C =BU>XIDX PR_FUNCIONESXOBJXFORMULA XRELACIONXFILOBJETIVOFORMULAPR_GEN_FORMULA_USADAOP XFORM_PATH XFORM_ALIASXITM_FORXCOSTO P_TIPOCOS XFECHACOSFECHAXMONCOSXDMON XERR_COSTO XMSG_COSTOXDTVA OBTENER_COSTO CS_GENERARCODCOMPBULCOMPATRCOMPULTCOSCODIGOCOD_INSCOSTOUNIDCOMPENVSEMIPEXFACTORBIENESCODINSBULTOS ATRIBUTOSSTOCKFACTORBORRARFORM_CODFORM_BULFORM_ATR FORM_SCOD FORM_SBUL FORM_SATRFORM_UNI FORM_SUNIFORM_CANFORM_COSLOTEADOITMENCCODSUSTBULSUSTATRSUSTUNIDSUSTCANTIDADLOTESPR_GEN_DELETE_TABLE4!pr_rpt_produccionesJ BUOFORMPR_RPT_PRODUCCIONESK)CUXDPRODXHPRODXDFECXHFECXSHCONXMERMAXDTIPEJECUTAR_REPORTE+/     #%C xvalorizacionbLn T T C%CxdProdbNT %CxhProdbNT %CxdfecbD T %CxhfecbD:T %CxshconbLjT %CxMermabLT %CxdtipbNT %CxlotesbLT #%C xvalorizacionbN0T  %CxmonedabNeT  "T xshconT !T xdmerT !T xdtva!T  !T xdfecT !T xhfecT "T xgroupT -!T xdlotT T aT a T aHQ  T -T C     T a   c%c T - B U XTIPO_REPORTEXDPRODXHPRODXDFECXHFECXSHCONXMERMAXDTIPXLOTES XVALORIZACIONXMONEDAOFORM XNO_RELEASEXRETURN OBTENER_FORMXDNUM1XHNUM1XDLOG1XDLOTXDCOSTOSXDMON PARAM_DATA PARAM_USARMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR>G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN(TProducciones con DetalleT CCop ProduccinClote_aLoteCpendEstado&CfechaFecha Apertura'Cfechacie Fecha CierreCcodigoCdigoCatrAtrCbulBul$Cdescr2 Descripcin+Ccant_objCantidad Terica'Ccos_est Costo Terico)CrealCantidad Producida$Ccos_rea Costo RealClineaLneaCgrupoGrupo%Cdlinea Descr. Lnea%Cdgrupo Descr. Grupo#C merma_per% Merma'C merma_cos Costo Merma"Cpeteo Pe Terico!Cpe Pe al Cierre,C ddepositoDepsito de AltaCavanceAvance Cpeso Peso SemiCcomfComienzoCfinfFin&Ctprocd Duracin DasCtprochHoras CtprocmMinutos Cart_codCdigoCart_atrAtrCart_bulBul%Cart_des DescripcinCart_umUnidad'Cart_can Cant.Estimada#Cart_rea Cant.RealCart_prm%(Cart_cosCosto Estimado$Ccon_cos Costo Real*Ctot_reaTotal Costo Real(Ccos_rxuCosto x Unidad&Cart_lot Lote ConsumoCmsgNota Cenc EncabezadoT T C &%C \tmp\.xls0 8 \tmp\.xls(\.xls listadosBUXTABLAXARCHIVO_SALIDAXPATHLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDA EXPORTAR_XLSP_LOCAL ESTADO_RELf4TC TC 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxpr_rpt_produccionesT\tmpT T  NTTT T T CBUXTABLAXDFECXHFECXAPCIEXESTADO XCON_MERMAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDNUM5XDNUM2XDLOG1 EXP_TABLAprocesarQfn~ Obtener_Form Ejecutar_SqlEjecutar_Reportezexportar_detalleݐexportar_produccionesӘ*RQQQQ!1A1A11QQrrrraAbAQAQAQAQA2qAAA1!11A11AAAt QAqAAq`srrAA12BDA1APa"0P)0&A2ACDrACsqAAAAA"AAs2rrtQ#3aAcAErs21rrAArjq1QAurQQ r21RqrBRrAArJq1bACAAr"q!QAq!QABBrArAAt0rQCaqaaAAs41rQraaaABAqAAAAAAsAAAAAArAAAAAAAqAAv1q11A1[rBB2qA"ArqAr1"1AAAaAB1ABqArqAAqAAqAArAsC2brqAAtPaaA3AAvA1rQArAABBA#rQ11132C3bAAtaa2BsaaAA AArAA1rQ11132C>bAAuaa"BsaaAA5 6 DArAAutAeAA2QAvyr1r1!Q2rqAA!rqbABBrArArAbA"1AeAB"2rqAA!qqbAAA(Aq, cuQrr1r1brrAbAbAACBr1A2A2AsQ zAAurrar1QATDC2qaAAA;Q1A1132C2rbaQaabAAcBBqqAAA2QArr ABA"B2q322AAAAAAAAA1AAA""1Q111A1A4#!aqAqAQQ1q!aQq1Aa bA2B221"AB1u7EU]o3 3: S> b} : %C#F\FU% B  TCW<7C rushmore]%CxtxtbC T<7TCC$* C^ TCkh1\tmp\performanceCC Cd N  MMr performance   Start F BU XTXTP_DEVXAREARUSHMORE SYS_TIEMPOXTIEMPOP_LOCALCOMANDOHORAMENSAJEDELAYRUSH/% B  TCW%CxtxtbCc TTC^r performance  CheckpointCC$* C^  TC< 7 C rushmore] F $BU XTXTP_DEVXAREAXTIEMPO SYS_TIEMPOCOMANDOHORAMENSAJEDELAYRUSHRUSHMORE% B  TCW%CxtxtbCc TTCWr performance EndCC$* C^ F QC ] F BU XTXTP_DEVXAREAXTIEMPO SYS_TIEMPOCOMANDOHORAMENSAJEDELAYRUSHRUSHMORE PERFORMANCEperformance_start0performance_checkpoint9performance_end01qAArrqArqrAB2qAArArrqAB2qAArAryrAAB1O>dJ1r u%ؑYuX4 )G(9 3G+(listadosG+(fe_funciones_cotG~(clasesTC GT C H T %C despflet.dbf0 8h1despflet N  CT& Q CF%CremitobCw2C%No existe el campo REMITO en DESP !!!B(CV%CCfREMITO!%CV3C&No existe el ndice REMITO en DESP !!!B<7%E J( ^JC X( T T TTCX T$ve_despacho_pregunta(%B T CH  -TX NTN oTS TS%STCX T  T"TVE_ARMAR_DESPACHO.PRGT Armar Despacho%C!%C"tFC Se ha registrado el Despacho N CC@z 999,999,999_ C#C$<%&F'G-(G((sys_procesandoBU*XTIPOXSOLOCOT XSOLOMAIL ACTIVEFORM DATASESSIONIDLISTADOSFE_FUNCIONES_COTCLASESBOLDUNBOLDXCOPIASDESPFLETDESPACHOCOD_FLE FECHAHORA USE_FILESDESPMENSAJEZARRDSPXOLDREGMSGXFLETEXRESVE_DESPACHO_PREGUNTA XRESULTADO GET_DESPACHOSAAA XCONDUCTORXDTRAN_PRGTRAN_TXTCOM_TRAN ACT_DESPACHOFIN_TRANIMPRIMIR_DESPACHOTOTALESPRN_ARRTCCVENTSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO%CDESP &Qdesp%CDESPFLET XQdespflet%CROT Qrot%CSTOCK Qstock%CCLIENTES Qclientescodcli%CSUCURSAL QsucursalID%CTVENTAS b%Q\TVENTASpedido%CTCCVENT Qtccventtccvord%CVENTAS %Q\VENTASven_fac%CCCVENT Qccventccvfac%CCONDCOBR PQcondcobrplan%CFLETES QfletescodfleBUDESPDESPFLETROTSTOCKCLIENTESCODCLISUCURSALIDP_PRIVPEDIDOTCCVENTTCCVORDVEN_FACCCVENTCCVFACCONDCOBRPLANFLETESCODFLE % J( 9JC X(%^CFG((tccvord T T T%ve_armar_despacho( (ve_armar_despacho_por_remito( BU XTIPOARRDSPXOLDLEE_DESPTCCVENTTCCVORDYACCMSGVE_ARMAR_DESPACHO XRESULTADOVE_ARMAR_DESPACHO_POR_REMITO 4 T T Ta T T%C>CC% :%C F E%C4F G((codcli E %C4^FG((rotuloGEC ZG F h%   C       T[ ]   Ta Z%MHI  Q7T*El Pedido no est listo para despachar !!! )TEl Pedido ya est armado !!! *TEl Pedido ya est enviado !!!  ,TEl Pedido ya est terminado !!! 2I6T)El Pedido tiene un estado desconocido !!! K %  %CROT+ 6T)Debe re-emitir los rtulos del pedido !!! 3T&Debe emitir los rtulos del pedido !!! G:T-El Pedido no est aprobado para despachar !!! T- (TEl cliente ya no existe !!! T- %$TEl Pedido no existe !!! T- 6.T!El Pedido ya fue seleccionado !!! T-  TaF E%#TCC[ ]  >X T[ ]   T BUXNUMZZZXXYYOKMSGXDESCARRDSPSE_LO_PUEDE_SACARREPETIDOTCCVENTCLIENTESCODCLICOD_CLIROTROTULOEST_DESPCREDITOSTOCKOLD_DESPFCID P_ROTULOSNOMBREXCLIENTE 4 T+n&%C YBaT %-FG((despacho E+C+  %BaHB-UXNUMZZZARRDSPDESPDESPACHOXOLDPEDIDOsF CG((despacho%K#6T b T T- T+e;%CCCC6P%F G((tccvordEC%C4: C >  > C IVE_ARMAR_DESPACHO.PRGError imposible 1 !!! >FG((remitoEC%C4 C > :IVE_ARMAR_DESPACHO.PRGError imposible 1 !!!F%OG((pedidoEC%C4.+C+ C  H&%C  C  KIVE_ARMAR_DESPACHO.PRGError imposible 2 !!! LG((remitoEC%C4.+C+ C  H&%C  C  HIVE_ARMAR_DESPACHO.PRGError imposible 3 !!!T T- T+;%CCCC6 TaFz>CC6CC6C6C$%#F G((tccvordEC%C4 C >  > C GVE_ARMAR_DESPACHO.PRGError imposible !!! FG((remitoEC%C4y C > GVE_ARMAR_DESPACHO.PRGError imposible !!!TFG((despacho E%C4 8rdespflet!>C C BUDESPFILE_LOCDESPACHOXOLDXDOKZXTIPOARRDSPTCCVENTTCCVORDREG_LOCKEST_DESP UPDATE_DTREPORTECCVENTREMITOESTADOPEDIDOFECHADESPFLETCOD_FLEXFLETE FECHAHORA UNLOCK_ALL4%FG((despacho E%C42%CC C6 "TDebe estar armado !!!B-  TCOBa '%CDespfletdespachor2%CC C6 Q"TDebe estar armado !!!B- n TCOBa &TNo existe el despacho !!!B-BaUREGXOLDDESPDESPACHOXTIPOESTADOMSGDESPFLET4%1FG((tccvordFG((despacho%oG-(% J( JC X( T+ %KTT*TC 6 T T T-HTG-(F G((despacho E%C4 T  FBUXDESPXTIPOTCCVENTTCCVORDDESPDESPACHOPEDIDOARRDSPZFCREMITODESPFLETXFLETECOD_FLEm4 T+_%CJBaTB-UXNUMZARRDSP= Ttrsac TBUAAAEND_TRANTRSACTRAN_PRGTRAN_TXTTTS_ID Ttrsac+trsactccventdesp%2C%No se pudo iniciar la transaccin !!!B-BaUAAABEG_TRANTRSACTRAN_PRGTRAN_TXTLOCK_GMENSAJE4+%C  C6= Ta %F E% %C4 IT El Pedido CC@z 999,999,999_ ya fue facturado !!! T-  TaBUXPEDIDOXTIPOOKTCCVENT P_ROTULOSFCMSG 4 T T Ta T T%Cs TBaTC %C "CC %C %C F G((remito E%C4FG((codcli E %C4@F %CT[]  Ta ,TEl remito ya est entregado !!! T-%C#TCC[] >X <T[]  }(TEl cliente ya no existe !!! T- %C$TEl remito no existe !!! T- .T!El remito ya fue seleccionado !!! T-  TaF G((remito EFG((codcli E F %C#TCC[] >X T[]  T T BUXNUMZZZXXYYOKMSGXDESCXCLIENTEXXNUM NORM_REMITOARRDSPSE_LO_PUEDE_SACARREPETIDOCCVENTREMITOCLIENTESCODCLICOD_CLIESTADONOMBRE4%C%C=R_TC=TC[ %%C= 1234567890- TCC>RTR%--TCC-=TCC-[#TC0000CCCg ZR FT01'TC00000000CCCg ZRT- BUXXXXLETXXSUCXXNUMM64TC %C xsolomailbL[ T-TC %CxDespbN5 T5     7535 !"#$%&+5'()*+,-./0;5123456789:;<=>'5?@ABCDEFG+5HIJKLMNOPQ35RSTUVWXYZ[\] TVa TWaG+(fe_funciones_cot%CtmpaCothF_QTC`ah1bC cCdCeCfCgC(hN iN jCkNlCQ_& defd%Ctmp1FmQT C`aT C`ah1 dCeCfCgC(hN iN jCkNQ m& defd%Ctccvent Qtccvent%CtmpFoQ%CodespXdespflet sXccvent stpCCstRg 5srpqscpc CCstRg  pqQrpcQcstQtpuQdpvQvpwQwCXQxCXQyC(XQzCXQ{CXQ|CXQ}CXQ~Q QpQpQpQpQpQpQpQQpQCXQpQpQ-QppQ QC=QC(XQCXQCXQCXQC(XQCXQCXQCXQaQC XQC XQC(XQCXQCXQCXQ-QsQCXQlC XQQQC(XQCXQCXQCXQCoT o% CNO COTpr'El suario eligi no que no se har COTve_armar_despacho.prg/091000CCR-C0QB-%Cfle_tipo Qfle_tipoFG((codigo ETgFG((codfle E TxTT&TCCo o6TTzT{TTC~TTvVsys_procesandoAnalizando COTC (examinando artculos)6Fo ~!% o T o%C query_armQ2oarmado  query_arm T' ~p.T''CC', 6CCZ%C query_armQFo>o'Fo%C >o >oPROPIO>oI>%oFnG((tccvord Eo%C4>on >ooF G((plan Eo% AFo >>FoT(CCotRgFp%( G((remito Eot>olCotr G((ccvfacEoroc>olCorocF%( 4G((remito Eot aG((ven_facEoroc T) T* T+L+C+ 9ot( !qor coc (   2FG((codins E T,%S^FG((codigo EfeCX T,%#%T))CC,T%SFG((codigoEfT-CgT.i = T-T.i%SFG((codigoEeT/Cg  T/*T0CCg C/ C-FmG((codigoEef%C4 P4>deeffg0>hhi.rtmpacotlbcdefghjkolC( orot6C( ocr6ef0jkFHFo >)Bsys_procesando#Determinando direcciones de entregaFG((codfle EovFG((codcli EodT1CxT2Cz2T3CCC C - 6C{T4CCC~fT5C%owF G((IDEodCowZ T6"%S FG((comprobEoroc#T6CC, C*T1CCx xx6 T7T8T9T:T;T<T=CCfT> %ow T7T8zT9{T:T;}T<T=CC~f*T1CCx xx6T> %CF T7T8T9T:T;T<,T=CCCC ~6fT>  T7T8zT9{T:T;}T<T=CC~fT>T?C82T@CCC< C< - 6C9%CC=>MTACCC=f hTACC=fTBC: TC8 TD9 TE< TF= TG>%C ]T7xT8zT9{T:T;}T<T=CC~fTG gFog>x1y7z8{9|:};<G>~=+>2345+>?@AB:>CDEFCC% CFo %Ctmp_adicionalesFQ%C despotros Q despotrosFTUC`aRo despotrosxCQCQ1UQUFoG+(listados TH TI TJ TK TL TM TN/listadosHIJKLMN(TP\cpbt\ -logo.jpg TO TQ TRC$ TSa%"eotmpacotbdefjkCjCk jOMITIR tmpcoterrorF TT ~0"-TTCTErrores encontrados:C  TTTC 9TTTb | d - e - f | %Cj!-TTT Cdigo de producto invlido%CjCk !TTT - %Ck,"+TTT Unidad de medida invlida%CT "TlistadosT+Error para generar los remitos electrnicos[TSCGDesea igualmente generar el remito electrnico para los datos vlidos?+a%:%S C xsolomailbL  O# CFoaK(    CCt    6TXC#& z{(\tmp\X(G!(FoH$$ 3$& o T$& t y$& xtx 2$& x#) T T T  T T T   T!  T" T# T$T%C"%S  m%TSCVW % TS-%S %!i1tmpCFoH%X& %& o && t <&& xtx 2X&& xF ~&5rtmpxxFo#)!%  C ' TYTZT[ T\T]DSCCZ}listadosZY\[]*iif(p_despacho_impresion=1,se_imprime,.t.)aaaaaFm#)sys_procesando!%  C ) TYTZT[ T\T]DSACCZ#%C\cpbt\vdsa.fxp0|(\cpbt\vdsa.fxp )% e)TCCN 8 (a)listadosZY\[]?betw(recno(), (zpagina-1)*p_maxitemven+1,zpagina*p_maxitemven )aaaaa )VlistadosZY\[].t.aaaaa%C tmp_guias)F!Q=sys_procesandoAnalizando guas de transporteotmpxyz{|CQ"-Q#Cy xyz{|" tmp_guiasF% C\cpbt\guia.frx0   C - T$ave_guias($%$-~#-T1!xT7!yT8!zT9!{T:!|TC!TD!TF!otmpCot   Q&ox1 oy7 oz8 o{9 o|: oC oD oF tmp_guia_tDK(()*+$C& 6 TYTZGUIA.FRX T[ T\T]DSTCCZ, T,& (,%,-VlistadosZY\[]!pvaaaaa%-C -C.%C tmp_guia_t.F'Q%C tmp_guias=.F!Q %Ctmp_adicionalesl.FQ%C \5.sys_procesandoImprimiendo COT%Ctmp_cot.F/Q0(T0CVAL(SUBSTR(remito,2,2))1SELECT remito AS remito, nombre, nomfle, domicilio, ciudad, cp, telefono, cuit, SUM(litros) AS litros, SUM(bultos) AS bultos, SUM(cajas) AS cajas, SUM(tmp.valdec) AS BASE, COUNT(*) AS remitos , IIF(tmp.fle_dep=1, ALLTRIM( ALLTRIM(fledepdom )+", "+ IIF(!EMPTY(ALLTRIM(fledepcp )), "("+ALLTRIM(fledepcp )+") " ,"") +ALLTRIM(fledepciu ))+", "+ALLTRIM(fledeppro ), IIF(p_fce_cot_direccion=1,ALLTRIM( ALLTRIM(entclidom)+", "+ IIF(!EMPTY(ALLTRIM(entclicp)), "("+ALLTRIM(entclicp)+") " ,"") +ALLTRIM(entcliciu))+", "+ALLTRIM(entclipro), ALLTRIM(nomfle)+IIF(!EMPTY(nomfle),", ","")+ALLTRIM( ALLTRIM(domicilio)+", "+ IIF(!EMPTY(ALLTRIM(cp)), "("+ALLTRIM(cp)+") " ,"") +ALLTRIM(ciudad))+", "+ALLTRIM(provincia))) AS dircliente , clicuit, entclicp AS clicp, tmp.regcot, tmp.numcot FROM tmp GROUP BY remito, nombre, nomfle, domicilio, ciudad, telefono, cuit WHERE NOT &xdclist AND (p_dos=0 OR p_codemp#p_dos) ORDER BY nombre INTO CURSOR tmp_cot READWRITE "otmp_cotztmp_cot2 T&CNC fletescodfleF/,% C \cpbt\cot.frx0 15 T3- TYTZCOT.FRX T[ T\T]DSTCCZVlistadosZY\[].t.aaaaad%4NCCDesea imprimir las copias por remito del COT o Remito Electrnico? -5 T3a TYTZCOT.FRX T[ T\T]DST_REMCCZdlistadosZY\[]not EMPTY(numcot)aaaaa%Ctmp_cotX5F/Q%Ctmp15FmQ%Ctmpacot5F_Q.* .*M%C5 .C#Desea enviar los remitos por mail? )6Ca6sys_procesandoBU7XD XSINREMITOS XCOTREMITOXSOLOCOT XNOHARACOTXOK XSOLOMAILXDESPXTMPACOT XTMP_ARCHIVOXTMP1XFLETEXIMPORTEXPEDIDO XVEHICULO_COD XVEHICULOXFLETERO_NOMBRE XFLETERO_TIPO XFLETERO_CUITXFLETERO_DOMINIOXFLETERO_DEPOSITO_PROPIOXFLETERO_DEP_DOMXFLETERO_DEP_CIUXFLETERO_DEP_CPXFLETERO_DEP_PROXFLETERO_DEP_MAILXFLETERO_CODIGO ZDESPACHOZTOTALENTREGAS ZTOTALLITROS ZFLETECODIGO ZFLETENOMBRE ZTOTALPESO ZTOTALVOLUMEN ZFECHAHORAZIMPORTEZVALDECZFECHAZCANTIDAD_DOMICILIOS XTXTARMADOXIS_FACXLITROSXPESOXVOLUMENXFACTORXBDESCR XCANTXBULTOXADESCRXDESCRXNOMBREXCLIDOMXCLICIUXCLIPROXCLITELXENTREGAXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXCLICUITXENTDOMXENTCIUXENTPROXENTTEL XENTCLIDOM XENTCLICIU XENTCLICP XENTCLIPROXCUIT ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXFECHASALIDACOTXLOOPDOM XMSGTXTCOTXARCHIVO_ADICIONALES XGENERARCOT XGENERARTXTXBORRARXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVOFE_FUNCIONES_COTTMPACOTODEYFUNCNEWFILE_LOCAL_TMPCOMPROBCAUSACODIGOATRBULDESCRUNIDADES CANTXBULTCOD_UPREN_CUM COD_UNICOTMP1TCCVENTTMPCCVENTFAC_VENFACTURADESPREMITOCOD_CLICOD_FLESUCNOMBRENOMFLE DOMICILIOCIUDADTELEFONOHORARIO PROVINCIADESPFLET FECHAHORALITROS RECEPCIONBULTOS ARM_CAJASCAJAS ARM_PALLETPALLETSDEUDAIMPORTEPEDIDOFEC_VENFECHAFEC_PEDPLANCPPESOVOLUMENCONTENTRTOT_VENDES_COMVALDEC VAL_C_ENTR TXTREMITOCLIDOMCLICIUCLIPROCLITELENTDOMENTCIUENTPROENTTEL SE_IMPRIMECUITCLICUIT ENTCLIDOM ENTCLICIUENTCLICP ENTCLIPRO ENTCLIDOMVORDENFLE_CUITDOMINIOFLE_DOMFLE_DEP FLEDEPDOM FLEDEPCIUFLEDEPCP FLEDEPPRO FLEDEPMAIL FLEDEPCODREGCOTNUMCOTGEODIRGEOREFNOTAARMDESPACHOREM_VENNOTASMENSAJESYS_MTIPOVE_ARMAR_DESPACHO_FLETEUSER_LOG PUB_INDEXFERE_MARCAR_PROCESADOFLE_TIPOFLETESCODFLE DEP_PROPIOCOD_ZIPPROVINCEMAIL SP_MENSAJESYS_PROCESANDOP_DEVP_VE_PREPARACION QUERY_ARMDISTINCTARMADOTCCVORDFEC_INICONDCOBRPLAZOENTREGAFERE_COMPROBANTE_A_CODIGOUNICOCCVFACVENTASVEN_FACBIENESCODINSCOD_INSFACTORSTOCKOBIEDATA_CODIGO_VACIOLINEA ATRIBUTOSATRIBUTOCLIENTESCODCLIPHONOSUCURSALIDTARJETAP_VE_DSP_VERSION2CLIAUXENTPHOENTHORENTZIP INSCRIPCIODOM2CIU2PHO2HOR2ZIP2PRO2FERE_DOMICILIO_VALIDOP_DESPACHO_IMPRESIONTMP_ADICIONALES DESPOTROSITM DIRECCIONLISTADOS DATOS_EMPRESAP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAP_FCE_COT_ENVIAR TMPCOTERRORVIEWER MENSAJE_SINOCONTROLAR_DIRECCION_ENTREGA SYS_DOSCENP_DOSP_CODEMP XTOTLITROSXTOTPESO XTOTVOLUMEN XVALDEC_TOTALXVALDECNEWFILEP_LOCAL XTOTENTREGASP_DESPACHO_ORDENORDPROCESAR_REMITOS_ELECTRONICOSDOMCONSDSFORMDSCOPIASIMPRIMIR_FORMULARIOSP_OCULTAR_DEFINITIVAMENTEDSAFORM DSACOPIASP_DSP_ART_MULTIPLE P_MAXITEMVENXPAGINASZPAGINA TMP_GUIASACCTILDEXRESVE_GUIASPV TMP_GUIA_TZPALLETSZPESOZBULTOSZCAJAXCNDP_DESP_MAIL_LOGISTICA_ENVIARENVIAR_MAIL_XLS_TRANSPORTETMP_COTXDCLISTSYS_DOSCEN_INLISTTMP_COT2XAGRUPAR_REMITOS_COTP_FCE_COT_COPIA_REMITOP_VE_ENVIAR_POR_MAIL_REMITOVE_ENVIAR_MAILS_REMITOS%C %>a  T<.otmp C T  F>FB T T  T  T  T  T  T T T T T T T T T T T T T T T T T T T !ve_armar_despacho#$%&'      U( SYS_DOSCENTMPREMITO SE_IMPRIMEXPEDXIMPRPEDIDO ARR_BORRARXENTREGAXNOMBREXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXCLICUITXCLIDOMXCLICIUXCLIPROXCLITELXENTDOMXENTCIUXENTPROXENTTEL XENTCLIDOM XENTCLICIU XENTCLICP XENTCLIPROXCUITXGEODIRXGEOENTDIRECCION_DE_ENTREGA_FULLVE_ARMAR_DESPACHOFACTURACAUSACODIGOSUCCOD_FLE {4     %Cfletes Qfletes%Cclientes Qclientes%Ccliaux Qcliaux%Csucursal 7QsucursalFG((codfle EFG((codcli ETC$TC%2TCCC& C& - 6C'TCCC)(fTC*TC+%<F! G((IDECZ T %a^F G((comprob E#TCC ., C /*TCC $ $ $6 TT .T  /T  0T  1T  2T CC 3(fT 4T 5 %8 TT!%T !'T !*T !6T !&T CC!)(f*TCC!$ $!$6T7T!+ %C89  TT8T 9T :T ;T <,T CCCC= )=6(fT7T!>  TT%T 'T *T 6T &T CC)(fT7T+TC2TCCC  C  - 6C TC TC TC T T T T T%C? T$T%T 'T *T 6T &T CC)(fT4TC+BU@PAR_COMPROBANTE PAR_CAUSA PAR_CLIENTEPAR_SUC PAR_FLETEXENTREGAXNOMBREXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXCLICUITXCLIDOMXCLICIUXCLIPROXCLITELXENTDOMXENTCIUXENTPROXENTTEL XENTCLIDOM XENTCLICIU XENTCLICP XENTCLIPROXCUITXGEODIRXGEOENTFLETESCLIENTESCLIAUXSUCURSALCODFLECODCLINOMBRE DOMICILIOCOD_ZIPCIUDADPROVINC PROVINCIAPHONOGEODIRIDCOMPROBENTDOMENTCIUENTPHOENTHORENTZIPENTPROCUITGEOENTHORARIO INSCRIPCIODOM2CIU2PHO2HOR2ZIP2PRO2GEODIR2TIPO74     T CW%P%Ctccvent QtccventF%CgG((tccvord ECg TC4  Ta %Cccvent QccventF%r%q G((rem E TC4  Ta %G((ccvfac E TC4  Ta%  F B%P^TTT TTT T T T T T T T T  T  T T T  T! T" T# T$ T% T& T' T( T) T* T+ T  T ,ve_armar_despacho   !"#$%&'()*+  TCCC C C , 6C CC CC  - 66CCC , 6C  F BU.PAR_COMPROBANTE PAR_CAUSAXENTREGAXNOMBREXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXGEODIRXGEOENTXAREATCCVENTPEDIDOTCCVORDXENCCCVENTREM_VENREMFAC_VENCAUSACCVFAC XPAR_CLIENTECOD_CLIXPAR_SUCSUC XPAR_FLETECOD_FLEXCLICUITXCLIDOMXCLICIUXCLIPROXCLITELXENTDOMXENTCIUXENTPROXENTTEL XENTCLIDOM XENTCLICIU XENTCLICP XENTCLIPROXCUITDIRECCION_DE_ENTREGA_FULLVE_ARMAR_DESPACHO,G+( borrar_cotCUORESP BORRAR_COTMOSTRAR_RESPUESTAK9ve_armar_despacho_cotTMPUXDESP XGENERARCOT XGENERARTXTPROCESAR_REMITOS_ELECTRONICOSVE_ARMAR_DESPACHO_COTXFECHASALIDACOT,)ve_armar_despacho_cotTMPUCONTROLAR_DIRECCION_ENTREGAVE_ARMAR_DESPACHO_COTZ3fe_funciones_cot BUOFEREXUSUARIOXPASSXARCHIVOXRESPTXTORESPCOT_PRESENTAR_REMITO_EXTERNOFE_FUNCIONES_COTG+(listados1sys_procesandoEnviando correo...+TSe enva planilla de logstica T T7otmp   tmplogmailF ~T Z%C E=C2Desea enviar el mail con el despacho a logstica ?   TaTC  >C Logstica  T-sys_procesando%u%C00C#Se ha enviado el mail correctamente q7CError al enviar el mail!!!C C BU XSOLOMAIL XENVIAMAILLISTADOS SP_MENSAJESYS_PROCESANDO XMAIL_MENSAJEXMSG XEMAIL_COPIACOD_FLE FLEDEPMAILDESPACHO FLEDEPCODTMP TMPLOGMAILXEMAIL_DESTINO MENSAJE_SINOXFILEEXPORTAR_LOGISTICASYS_MAILSP_OCULTAR_DEFINITIVAMENTEMENSAJEG+(listados2QEXPORTACIONES_PARAMETROS imp_exp.vcx'Q EXPORTACIONES imp_exp.vcxq Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx QSTRINGT Ctmp 4TCCL Despacho CCZ.xls CExportara T-FM( 4C     FQ >& i1tmpexpoN%i1tmpexpoN%i1tmpexpoN i1tmpexpoC ~p/ sys_mail_funciones"aF# T$ ~[ T$KT$$CC$,6CC%C&C% <C&>6%C$>W T$>$%nCotmpC  tmpmailzF' ~bF'%C'tmpexpocodigo^U>(('())')'(')Q'Q* T*CWG+(listados'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP:T C Exportaciones_Parametros_FormatoIMP_EXPT + ###,###,##0:T C Exportaciones_Parametros_FormatoIMP_EXPT +###,###,##0.00T,T- T. C/#CdespachoPlanilla/CremitoRemito/CfechaFecha/!CNombreRS1_DEST/$C DomicilioDOM_DEST/!CCiudadLoc_Dest/CCPCP_Dest/ CnomfleDescrip/#CpesoKilosaa /&CbultosBultosaa /$CvolumenMT3aa /*Cvaldec Valor_Declaa /,C val_c_entrValor_CRaa /"C txtremitoObserv/CemailsEmail/T0C1 F* BU2XFILEXFLETE XDESPACHOXOLDLISTADOSXPARIMP_EXPVCXXEXPXFOR1XFOR2XEXPFILEODEYFUNCNEWFILE_LOCAL_TMPPDF_PATHSYS_MOSTRAR_SCREENXDCINIT2TMPDESPACHO SYS_DOSCENREMITOP_DOSP_CODEMP P_DESP_MAIL_LOGISTICA_CONSOLIDARTMPEXPOVOLUMENALLCODIGOCANT_ZVALDEC_ZBULTOS_ZEMAILSMAIL_SELECT_DESTINATARIOSSYS_MAIL_FUNCIONESCAUSA TMPCLIMAILXMAILSNOMBREEMAILTMPMAILZVALDECBULTOSXAREA NUM_FORMAT EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS use_files get_despachos existe| repetido) act_despachoSexiste_dlee_despold_desp fin_tran com_tran!se_lo_puede_sacar " existe_remitoR# norm_remito (imprimir_despacho) se_imprimeRmdireccion_de_entrega_fullqdireccion_de_entregazmostrarprocesar_remitos_electronicoscontrolar_direccion_entregaւcot_presentar_remito_externo>enviar_mail_xls_transporteexportar_logisticaA"EAAAs!AAAAA11AAs11AA2AA1111AB#aABBraaD3bAAARArAAAQAAQAAAAB31A2Ar2AB2U2rrqaar1!2q111aAQa1AAABA1AAAAAr21AB2AaqAAq1qAAAAr3q2QAA3qAqAAr1AAaAAAAAaAAAAAAAqQ2qtAqtAAAArA2q1q!!qqAq!!qqAaqAAAq2q2qAr1A2A1qAAAarArD3qAqAAr2B32!qAq2q1tRAAABB4RqA"URrrxqAR1AAQAAAAArrrS1AB3qQ!QAAE1AuA2qq2A1qAq1q1qAA aSqAA a1ABqAA<Pq4AAARq11qAAAAqraAhrA!AArCraAbq1A1ArqArr1Ar1ArBqBbArr1!Arq1!AyQEA BrAAr(sr'!!dqQA$r12aaaaAAA!qbAaCu{2ArCqAAQAq"s#4Uq1AAAAA!AACAs2ar111!!AS%AAABu111!!AsQArQqArQ2b! AaAAAqAA cA! BQr1bABBBAqAAqAAqAAqAAr<"rAbBABBAqAABRqAAqAAAB3sq"rAqA 1 3!AAA!AAAsr"!!!3qAr2a1aaAAA!a!AB3qB1ArQA!ArA1AAAAAABAA A2qA33313qq#rrAAqAAB3r"!qAcsrQQrRAAB21qqqUAAAs#r!3A1aA!2Q{ bw|Xmp(b(s*#*)-B>--s-Z.o.m//U2o299'<A0E<e_&)OoD2 H 8 K'= M[A QGtG nr %z\S U^W<     BUFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEINTERNET_SERVICE_HTTPINTERNET_FLAG_RELOADINTERNET_FLAG_KEEP_CONNECTIONHTTP_STATUS_PROXY_AUTH_REQHTTP_QUERY_STATUS_CODEHTTP_QUERY_FLAG_NUMBERHTTP_QUERY_RAW_HEADERS_CRLF GENERIC_READINTERNET_FLAG_SECUREINTERNET_FLAG_NO_AUTO_REDIRECTINTERNET_FLAG_NO_COOKIESHTTP_QUERY_STATUS_TEXTW7     T  T T T T TT AT @T.T  T T  AT  @TT T T  TT T TBU FN_RELEASEFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEINTERNET_SERVICE_HTTPINTERNET_FLAG_RELOADINTERNET_FLAG_KEEP_CONNECTIONHTTP_STATUS_PROXY_AUTH_REQHTTP_QUERY_STATUS_CODEHTTP_QUERY_FLAG_NUMBERHTTP_QUERY_RAW_HEADERS_CRLF GENERIC_READINTERNET_FLAG_SECUREINTERNET_FLAG_NO_AUTO_REDIRECTINTERNET_FLAG_NO_COOKIESHTTP_QUERY_STATUS_TEXT fn_release, fn_public1qB2rrQQC1>TC%Y9kPq7O&4"%C xconsolidadobN> T \G(9 fTInit% TC($TError:   B TCC BU XAUTXFILTRO_ARTICULOS XCONSOLIDADO ACTIVEFORM DATASESSIONIDXMSGPROCESAROEXMESSAGEMENSAJET Faltantes.sql_rptinventarioactualTTMPF)Q\tmp\control_inventario%Cin_falta Qin_faltaFF ~YF^JF G((idE   %C4 _J U_J>    FQ%C tmp_faltantesFQ Estado Stock:T-La tabla de faltantes ha sido actualizada !!! BUXMSGEXPORTAR_CONTROL_INVENTARIOSQL_RPTINVENTARIOACTUALXFILTRO_ARTICULOS XCONSOLIDADOP_LOCAL TMP_FALTANTESIN_FALTA OFALTANTEIDCODIGOATRBULLOG_ULTProcesar"AArAAA3aAArrrrRBAsAqAA11% @+t?Zi   T T T  T  T  ;TC Estado_SQLsys_clases_actualizaciones.prg TC ( T  TC( /T  NTC( lT   TC( T   TCTMPXCMD( T   m+TCComandossys_comandos.prg%CTMPXCMDiF ~eC w$%   TLatido actualizado TError al actualizar latido (C106C106C106C106)C C %TRet:C C &TRet2:C C &TRet3: C C &TRet4: C C &TRet5: C C  * C 4 O C Y BUOESTXRETXRET2XRET3XRET4XRET5OCMDXRETMXRETM2XRETM3XRETM4XRETM5OEXENVIAR_SEAL_VIDAMESSAGEENVIAR_ESTADO_GENERALENVIAR_ESTADO_TAREASENVIAR_ESTADO_IIBBOBTENER_COMANDOSTMPXCMDCMD_LEERCOMANDOXMSGDISPONSEqrAAAAAq1AAAAQaaaaAAA1%3KGxn4UU impr_Clear,21GE%-9AllRU[T-CT-CT-T-UTHISTAREACONEXIONDISPONSE DIRECTORIOSPADRE&%CThis.DirectoriosbL,%CThis.Padre.directoriosbOhT =TC Directoriossys_clases_tablas.prg BUTHIS DIRECTORIOSPADREBTTTUXTAREA XCONEXIONXPADRETHISTAREACONEXIONPADRE_%CLL2TCMSSQLSYS_CLASES_CONEXION.PRG BUTHISCONEXION KTCTCC C C  b TT%C B-]TIDU=C  AND Sistema=C  AND Empresa=CC ZTC Monitor.TestsIDUC SistemaC Empresa ResultadoC PrioridadTextC UOCONNXRETXFILETHISARCHIVOCONEXIONCONECTARXWHERECTOQTAREAIDUSISTEMAEMPRESASQLINSERTUPDATEMENSAJE PRIORIDADDisponse,directorios_AccessINITConexion_Access/Enviar T- T- T- T- T T T Tc T     U TAREACONEXION DIRECTORIOSPADREMENSAJEEMPRESAARCHIVO PRIORIDADSISTEMATestCUSTOM/;2aaAA32!A21AAqA 318 dn $*)#A%,GeqjXUfCxptovta(9999,4)!Cxtipocpbt(9999,4)#CxtipocpbtEx(9999,4)UTHIS ADDPROPERTYY%C F/TC FE_Registrofe_objetos.prg BUTYPEOTHISOREGCOM4%C !  BUTYPEOTHISOWSFEV1INICIALIZAR_OWSFEV14%C !  BUTYPEOTHISOWSFEXINICIALIZAR_OWSFEX4%C !  BUTYPEOTHISOWSBFEV1INICIALIZAR_OWSBFEV1%CnumfacF<5onumfacC  % TC T<*onumfacC % T C T <.onumfacC % nT C T C C  C  UNUMFACARR_TMPCOUNTFACTAFCEBONOSFISTHISLOGUEAR_WSFEV1FACTE LOGUEAR_WSFEXLOGUEAR_WSBFEV1INICIALIZAR_OWSFEV1INICIALIZAR_OWSFEXINICIALIZAR_OWSBFEV1  + fe_funciones%ChTTTU XNOLOGINXNOMSGOOBJOLOGINFE_OBTENER_OBJETO_FEV1 FE_FUNCIONESTHIS CUIT_EMISOROWSFEV1  + fe_funciones%ChTTT U XNOLOGINXNOMSGOOBJOLOGINFE_OBTENER_OBJETO_FEX FE_FUNCIONESTHIS CUIT_EMISOROLOGINXOWSFEX  + fe_funciones%ChTTT U XNOLOGINXNOMSGOOBJOLOGINFE_OBTENER_OBJETO_BFEV1 FE_FUNCIONESTHIS CUIT_EMISOROLOGINBOWSBFEV1Q%C# %CJ UTYPEOTHISOWSFEV1 LOGIN_TICKETOBTENER_TIPOS_DE_COMPROBANTEOWSFEXOBTENER_TIPOS_DE_COMPROBANTEEXTC%CNCError de conexinB%&CCCZ:B- T   %C  .%C  T  T  T  T  T  %  UXTODOSORESPTHISOWSFEXFE_OBTENER_TIPOSCBTEMENSAJEFEXERRERRCODEERRMSGNITOTIPO FEXRESULTGET TIPO_DE_COMPROBANTEEX_HABILITADOCBTE_ID XTIPOCPBTEXCBTE_DSCBTE_VIG_DESDECBTE_VIG_HASTAz lBC˭ CЭ C   խ C345 UXTIPOXTODOS) BC UXTIPOXTODOSTC%CNCError de conexinB%C  CCCZ: B- T   %C  .%C " T  T  T  T  T  %  UXTODOSORESPTHISOWSFEV1FE_OBTENER_TIPOSCBTEMENSAJEERRORSOERRCODEMSGNITOTIPO RESULTGETTIPO_DE_COMPROBANTE_HABILITADOID XTIPOCPBTDESCFCHDESDE T'J-(%'c(cT:TCCG CAECAEX6"TTTC  3'%CC /TC%C=CError de conexinActualizar Puntos de Venta B%C \  Q%C Z M?CCC Z: Actualizar Puntos de Venta B-+TETCS (Bloqueado)6T#ToWSFEV1T(N T +'%CC 'TC%C=CError de conexinActualizar Puntos de Venta B% TECCCZ:Actualizar Puntos de Venta B-#TFTCAEXCS (Bloqueado)6T"ToWSFEXT(F T M'%CC ITC%C=CError de conexinActualizar Puntos de Venta B%C u  j%C Z f?CCC Z: Actualizar Puntos de Venta B-ETETCS (Bloqueado)6T$ToWSBFEv1T(h TT% BUNITTHISXPTOVTAXTESTINGTYPEOOWSFEV1 LOGIN_TICKETORESPFE_OBTENER_PTOSVENTAMENSAJEERRORSOERRCODEMSGOPTO RESULTGETNRO EMISIONTIPO BLOQUEADOFCHBAJAOEX __DUMMY__OWSFEXFEXERRERRCODEERRMSG FEXRESULTGETPVE_NRO PVE_BLOQUEADO PVE_FCHBAJAOWSBFEV1TC CollectionNTC CollectionNTC CollectionNTC CollectionNTC CollectionNUTHIS COMPROBANTES OBSERVACIONESERRORESERRORESFORMATOEVENTOS1Q&GES.FE.WSFECRED.ConsultarCmpReturnType+QFE_COMPROBANTEFE_Objetos.prgCC C  C  UORESPOCOMP FE_OBJETOSPRGTHIS LEER_ARRAYARRAYCOMPROBANTES COMPROBANTESARRAYOBSERVACIONES OBSERVACIONES ARRAYERRORESERRORESARRAYERRORESFORMATOERRORESFORMATOT %CoArraybOMICUOARRAY OCOLLECTIONOOBJADDLTC TMPCPBTVIS TCC] G+( fe_funcionesG+( cm_funciones%C C C  F4> C - C a >C>C BUXTABLAXALIASXMODO XCUITPROPIO FE_FUNCIONES CM_FUNCIONESTHISCREAR_TABLA_VISUALIZAROCOMP COMPROBANTESINSERTAR_TABLA_VISUALIZARFAC_VENREARMAR_FAC_VENFCE_TIPOPTOVTANROCMP FAC_VEN_TXALLCODIGOBUSCAR_CUIT_PROVEEDOEMI_CUITFORREC_CUIT0 TDD FTTr      CaCaUOCOMPXALIASXFAC_VENXSTRXLONG IMPORTETOTALESTADOFEC_VENFAC_VENFCE_TIPOPTOVTANROCMPEMI_CUIT EMI_NOMBREREC_CUIT REC_NOMBRETOT_VEN ESTADO_TXT ESTADOFEC CODCTACTE FECHAEMISION CODTIPOCMPNROCMPD OLOCALIZACIONCUIT_FORMATEADOCUITEMISOR_STRRAZONSOCIALEMICUITRECEPTOR_STRRAZONSOCIALRECEPFECHAHORAESTADO CODCTACTE2^ TCC] TC TMPVerCred Fh1DCNNNC C< C  C< N N CTCCNQUXTABLAXALIASFEC_VENFAC_VENFCE_TIPOPTOVTANROCMPEMI_CUIT EMI_NOMBREREC_CUIT REC_NOMBRETOT_VENESTADO ESTADO_TXT ESTADOFEC FAC_VEN_TXCODIGO CODCTACTE3%C This.Cliente, UTYPEOTHISCLIENTEDISPOSE CUTHISDISPOSEST"%C this.clientebOLTUXMTHISJSONABLECLIENTETCTC CollectionNTC FE_TributosN TC FE_OpcionalesNTC CollectionN!TCFE_PeriodoAsocNTC CollectionN!TC FE_ClienteNT CFE_QRNT U THISIDALIC_IVATRIBUTOS OPCIONALESCOMPROBANTES_ASOCIADOSPERIODO_ASOCIADOITEMSCLIENTEOBJ_QRPADREi>%C &CC=ABCMRE VTC= BUTHIS COMPROBANTELETRAU  T* ve_funcionesaa BU XQUITARGUIONXMANTENERVACIO XREMITOPV5CONVERTIR_FAC_VEN_PV5 VE_FUNCIONESTHISREMITO +TC FE_TributoFE_Objetos.PRG T%TTT BUXIDGESOTRIBUTOXTOTALOTRIBTHISID_GESIMPORTEBASEIMPBCUOTRIBUTOTHISOBTENER_TOTAL_ID_GESBCUOTRIBUTOTHISOBTENER_TOTAL_ID_GESk T%CTCTC BUXTOTALOTRIBUTO XINCLUYEIVATHISOBTENER_TOTAL_ID_GES{ ,TC FE_OpcionalFE_Objetos.PRGTTC BUXIDXVALOR OOPCIONALIDVALORTHISADDT-UTHISPADRE CUTHISDISPOSE<TCTC BUXEXTTHIS ARCHIVO_PATHARCHIVO_EXTENSIONKTTCCC] T BUXARCHIVOTHISARCHIVO_NOMBREARCHIVO_EXTENSIONMTTCC T BUXPATHTHIS PATH_TEMPORALODEYFUNCGET_PATH-TC BUXAPTHIS PATH_TEMPORALARCHIVO_NOMBRE; TCTCUXAPXPTXANTHIS PATH_TEMPORALARCHIVO_NOMBREe7     Q FE_QR_JSONT C FE_QR_JsonNT C8'T CC* @R ####-##-##_T C8T C8T T C8T T T T C 8T C 8T  T C 8TC  TC"ptoVta" TC"codAut"!TC "tipoCmp" TC"nroCmp"$TC "tipoCodAut"#TC "nroDocRec"$TC "tipoDocRec" BUXVERSIONXFECHAXCUITXPTOVTAXTIPOCMPXNROCMPXIMPORTEXMONEDAXCTZ XTIPODOCREC XNRODOCREC XTIPOCODAUTXCODAUTOJSONVERFECHACUITPTOVTATIPOCMPNROCMPIMPORTEMONEDACTZ TIPODOCREC NRODOCREC TIPOCODAUTCODAUTXJSON NFJSONCREATETHISARREGLAR_CAMPOZ TCTCC@TCCf BUXJSONXCAMPO7     +QFE_COMPROBANTEFE_Objetos.prgT TTTCgTCgTTTTT C T CgT T ET CgETC  BUXJSONXVERSIONXFECHAXCUITXPTOVTAXTIPOCMPXNROCMPXIMPORTEXMONEDAXCTZ XTIPODOCREC XNRODOCREC XTIPOCODAUTXCODAUTOCPBT FE_OBJETOSPRGTHISPADRE FECHA_CBTE ORIGEN_CUIT PUNTO_VTA TIPO_CBTECBTE_NRO IMP_TOTAL IMP_MONEDA_IDIMP_MONEDA_CTZTIPO_DOCNRO_DOCCAE GENERAR_JSON/+Q FOXBARCODEQRFoxBarCodeQR.prgTC TC  TC 3 QVFP_WINSOCK_SEND_MAILsys_winsock.prg-T C VFP_Winsocksys_winsock.prgTC /TC FoxBarCodeQRFOXBARCODEQR.prg"TC 6 % C> r TH TC   TC   TC  BUXFILEXJSONXAGREGARHEADERAFIPXVERSIONLOQR FOXBARCODEQRPRGXTXTP_FCE_QR_VERSIONTHIS ARCHIVO_PATH OBTENER_JSON LOSENDMAIL SYS_WINSOCKENCODE64 JSON_HEADERQRBARCODEIMAGEGOOQRCODEIMAGEFULLQRCODEIMAGEqCNro Doc4%CCThis.Padre.nro_docbN ^T BUSYS_MTHISNRO_DOCPADRE]4%CCThis.Padre.nro_docbN JT BUTHISIBPADRENRO_DOCCAccess4%CCThis.Padre.nro_docbN HX!  rO}BT @^B!  lBT {^B BUSYS_MTHISGLNPADRENRO_DOCjT ve_funciones%cTU XTIPO_AFIPTHISTIPO_IVAXCATGESIVACAT_DESDE_AFIP VE_FUNCIONES IVACAT_GESjT ve_funciones%cTUXCATGESTHIS IVACAT_GES XTIPO_AFIP IVACAT_A_AFIP VE_FUNCIONESTIPO_IVATT#%C This.sucursalbOMTUXMTHISJSONABLESUCURSAL(T-TUOPADRETHISSUCURSALPADRE7%  B 0B-UTHISJSONABLEPADREKT%CoSucbODTUOSUCTHISSUCURSALPADRE1%C This.SucursalbO NCC Fe_ClienteN%% B B-  BUTHISCOD_SUCAGREGAR_SUCURSALJSONABLESUCURSAL*TTUXVALTHISNRO_DOCCUIT_PAIS_CLIENTE*TTUXVALTHISNRO_DOCCUIT_PAIS_CLIENTE BUTHIS MONEDA_ID BUTHIS MONEDA_CTZ BUTHISCUIT_PAIS_CLIENTETCTC CollectionNTC CollectionNTC CollectionNTC FE_QR_EXPNTUTHISIDITEMSPERMISOSCOMPROBANTES_ASOCIADOSOBJ_QRPADRE3TCC$ TC TC TC TC TC F FQCfecotcomYrfecotcom     CFQUXFECHA XSECUENCIALXARCHIVOXTEXTO XRESPUESTA XDESPACHOFECOTCOMP_SERVERFECHA SECUENCIALARCHIVOTEXTO RESPUESTAHOYDESPACHOXTESTOTCCX TCCX VF FQCferegcom v rFERegCom     C (rErFERegCom  C( 1rFERegCom  C( TFQUXCPBTXFUNCIONXTEXTOOCPBT XSERVICIOXAPROBFEREGCOMP_SYSTEMFECHAFUNCIONTEXTO FECHA_CPBTCOMPROBCAUSAIMPORTETIPOAPROBSERVICIO FECHA_CBTE COMPROBANTE IMP_TOTAL TIPO_CBTEOEX __DUMMY__T TCNEARvTCExactv l {F FQC FETKACTFG((SE_CU_VA<GF GECCC >1% CX    hTTT T T   TSET NEAR &xNear SET EXACT &xExact BUXFECHAXTOKENXSIGNXVALIDEZXCUIT XSERVICIOXNEARXEXACTFETKACTP_SYSTEMSE_CU_VASERVICIOVALIDEZCUITTOKENSIGN __DUMMY__ =F gFQCFETKACTNrFETKACT     FQ(,CGuardar_Ticket_ActivoUXFECHAXTOKENXSIGNXVALIDEZXCUIT XSERVICIOOEXFETKACTP_SYSTEMFECHATOKENSIGNVALIDEZCUITSERVICIOTHIS REGISTRARMESSAGEM:TCfe_cpbt_duplicadosfe_objetos_krikos.prg BUOOBJETO TC H/ x6TCfe_cpbt_krikosfe_objetos_krikos.prg 0TC fe_cpbt_GS1fe_objetos_GS1.prg BUOOBJETO XCONECTORP_DIR_EXPORT_KRIKOS_CONECTORINIT0oRegCOM_AccessoWSFEV1_Access( oWSFEX_AccessoWSBFEv1_AccessInicializar_Objetos]Inicializar_oWSFEV1Inicializar_oWSFEXInicializar_oWSBFEv1Obtener_Tipos_de_ComprobantesObtener_Tipos_de_ComprobanteExTipo_De_Comprobante_Habilitado\  Tipo_De_ComprobanteEx_Habilitado Obtener_Tipos_de_Comprobante- Obtener_Puntos_de_ventaINITLeer_ConsultarCmpReturnType Leer_Array Llenar_Tabla_VisualizarInsertar_Tabla_VisualizarCrear_Tabla_visualizarDispose!DESTROY!jsonable_assign"INIT" Letra_Access$ Remito_PV5$Obtener_Total_ID_GESb% Obtener_IIBBt& Obtener_IVA& Obtener_Otros 'Agregar'Disposek(DESTROY(Archivo_Extension_Access( Archivo_Nombre_Access)) Path_Temporal_Access) Archivo_Path_Access4* Archivo_Path_assign* Generar_JSON + Arreglar_Campo. Obtener_JSON/ FE_Generar_QR1 nro_doc_Access4 IB_Access5 GLN_Access 6 tipo_iva_Assign7 IVACat_GES_Assign7 jsonable_assign8 INIT9 Padre_Accessd9 Agregar_Sucursal9 Sucursal_Access*: nro_doc_Assign;Cuit_pais_cliente_Assignw;Imp_moneda_Id_Access;Imp_moneda_ctz_Access;nro_doc_Access"<INITR< Registrar4= Registrar?Obtener_Ticket_ActivoAGuardar_Ticket_Activo*DObtener_Objeto_DuplicadoEObtener_objeto_exportacion'F0 T- T- T- T- T- T- T- T T T  T a T - T           U OLOGINOLOGINXOLOGINBOWSFEV1OWSFEXOWSBFEV1OREGCOMLOGUEAR_WSFEV1 LOGUEAR_WSFEXLOGUEAR_WSBFEV1XNOMSGXTESTING CUIT_EMISORv T- T- T- T- T-      U COMPROBANTES OBSERVACIONESERRORESERRORESFORMATOEVENTOSU)TTUFCHDESDEFCHHASTAM T T T TTC XTCX T T T T  T  T  T  T  T T T T T T TTCX TTTTTTTT T- T- T - T!- T"- T#T$ T% T& T' T( T) T* T+ T, T-- T.- T/ T0 T1- T2- T3T4 T5 T6 T78 T9-      U: ORIGEN_CUITIDCBTE_NROCONCEPTO COMPROBANTELETRACAUSATIPO_DOCNRO_DOC TIPO_CBTE PUNTO_VTA CBT_DESDE CBT_HASTA IMP_TOTAL IMP_TOT_CONCIMP_NETO IMPTO_LIQ IMPTO_LIQ_RNI IMP_OP_EXIMP_IVAIMP_TRIB IMP_MONEDA_IDIMP_MONEDA_CTZ FECHA_CBTEFECHA_SERV_DESDEFECHA_SERV_HASTAFECHA_VENC_PAGOFECHA_VENC_PAGO_KRIKOSFECHA_VENC_PAGO_GS1 FECHA_ENTREGAALIC_IVATRIBUTOS OPCIONALESCOMPROBANTES_ASOCIADOSPERIODO_ASOCIADOCAE CAE_FECHAZONAIMP_PERCIMP_IIBB IMP_PERC_MUN IMP_INTERNOSDESC_TXT DESC_IMPORTEDESC_PORCENTAJEITEMSCLIENTEREMITOOCOBJ_QR REPROCESOHOJAS COD_OPERACIONFECHA_ANULACIONOBSARCHIVO_EXTENSIONP_DIR_EXPORT_KRIKOS_EXTENSIONJSONABLE+    U U" T- ! "UPADRE T T T T T T T T T T  T  T  T U VERFECHACUITPTOVTATIPOCMPNROCMPIMPORTEMONEDACTZ TIPODOCREC NRODOCREC TIPOCODAUTCODAUT T T TTjpg.T!https://www.afip.gob.ar/fe/qr/?p= # $ % & ' ( ) * +U PATH_TEMPORALARCHIVO_NOMBRE ARCHIVO_PATHARCHIVO_EXTENSION JSON_HEADERY T T T T TT T T T T  T  T  T  T - T T T T- , - . / 0 T- 1 2 3 4 5UCOD_CLINOMBRETIPO_IVAGLNNRO_DOC PROVINCIA DIRECCIONCIUDAD PROVINCIA_TXTCOD_ZIPCOD_SUC ESTADO_CUITCATIVASUCURSALIB IVACAT_GESCUITPADREJSONABLED T T T T TUIDBASEIMPIMPORTEALICUOTALIQ_RNI T TUIDVALORk T T T T T T T TUIDDESCBASEIMPALICIMPORTE JURIDICCIONDESCRID_GESUUUUUC TTCXTCXTCX T T T T T T  T  T  T  T  T T T T T T TT TT U PRO_CODIGOPRO_CODIGO_NCMPRO_CODIGO_SECPRO_DSPRO_QTYPRO_UMEDPRO_PRECIO_UNIPRO_PRECIO_UNI_DESCPRO_PRECIO_UNI_SDESCPRO_TOTAL_ITEMPRO_BONIFICACION PRO_BONI_IMP PRO_BONI_PORC PRO_EAN13PRO_CANT_XBULTO PRO_BULTOS IMP_BONIF IMP_TOTALIVA_ID IVA_ALICUOTA IVA_IMPORTE PRO_DESCR IMP_AJUSTEGRAVADO 6 7U  T TTC X TT T T T T T  T  T  T  T  T T T T T T T T T T T- T- T-T T- T TT80 T  T!T" T#- 8 9 : ;U$ ORIGEN_CUITID COMPROBANTECAUSA FECHA_CBTE TIPO_CBTE PUNTO_VTACBTE_NRO TIPO_EXPOPERMISO_EXISTENTEDST_CMPCLIENTECUIT_PAIS_CLIENTEDOMICILIO_CLIENTE ID_IMPOSITIVO MONEDA_ID MONEDA_CTZOBS_COMERCIALES IMP_TOTALOBS FORMA_PAGO INCOTERMS INCOTERMS_DS IDIOMA_CBTEITEMSPERMISOSCOMPROBANTES_ASOCIADOSFECHA_VENC_PAGOOBJ_QR IMP_MONEDA_IDIMP_MONEDA_CTZTIPO_DOCNRO_DOCCAE CAE_FECHA REPROCESObTCXTCX T T T T TU PRO_CODIGOPRO_DSPRO_QTYPRO_UMEDPRO_PRECIO_UNIPRO_TOTAL_ITEMPRO_BONIFICACIONTCX TU ID_PERMISODST_MERC7 T T T TU CBTE_TIPOCBTE_PUNTO_VTACBTE_NRO CBTE_CUITJ T T T TTU CBTE_TIPOCBTE_PUNTO_VTACBTE_NRO CBTE_CUIT CBTE_FECHA <U! = > ?UFE_ControladorCUSTOMMFE_Comprobantes_CreditoFE_Objeto:FE_Objetos.prgOFE_Comprobante_CreditoFE_Objeto:FE_Objetos.prgGPFE_PeriodoAsocFE_Objeto:FE_Objetos.prgRPFE_ComprobanteFE_Objeto:FE_Objetos.prgP FE_Tributos COLLECTIONV FE_Opcionales COLLECTIONV FE_ObjetoCUSTOMV FE_QR_JsonCUSTOM+WFE_QRFE_Objeto:FE_Objetos.prgKX FE_ClienteFE_Objeto:FE_Objetos.prgbY FE_Alic_IVAFE_Objeto:FE_Objetos.prgq[ FE_OpcionalFE_Objeto:FE_Objetos.prg[ FE_TributoFE_Objeto:FE_Objetos.prg\BFEB_ComprobanteFE_Comprobante\ BFEB_Item FEv1_Item\FEB_ComprobanteFE_Comprobante\FEB_Item FEv1_Item\ BFEv1_Item FEv1_Item\ FEv1_ItemFE_Objeto:FE_Objetos.prg\ FE_QR_EXPFE_QR_FEX_ComprobanteFE_Objeto:FE_Objetos.prg_FEX_ItemFE_Objeto:FE_Objetos.prglc FEX_PermisoFE_Objeto:FE_Objetos.prg/dFEX_CPBT_AsociadosFE_Objeto:FE_Objetos.prgldFE_CPBT_AsociadosFE_Objeto:FE_Objetos.prgdFE_Registro_remitoFE_Objeto:FE_Objetos.prgie FE_RegistroFE_Objeto:FE_Objetos.prg~e?13qA2qA2qA2qA2qqxT"AAs"AAs"AACrqq3A1A2A1A2A1A2AA2qAAAaqAAAAaAA1A123qBAAQAAqAAAAaAA1A2qq!b!AQsAAAQAAAqAAQ1AAAsAAAQqAAa!ADAsAAAQAAAqAAQAAAA1aAA;23AA21aaa"QABQAA5 4a1!1A24q!1A312A2q5qaAA2qA2qA2A4q621q1a22q2q2q113qQ"q!!!!!!$A1A2Qqq1qq!!a!!R21q1b2Q!A111B1AAaA2AaA21AAA2qqaA3qqaA4q11A3q21qA2q1A2Aa1qAA1q2q`12231`1!11111qAqA6QQqAfUAAAqA211AqAq!aaAA1Q2qqAqAA3q211a1A1p 11111111111111589953p1>1111111116@111811111@101z  G&"N(.5# ) f>T [ qG }P ~ W sw8z'$$%b&")iE)){ ), -/$02-&BgBE1BBJ3B3CO9RCDWD"EEcIEFiOGUHs\zHH_H.IbTI!JjuJ3KrKKtKKwiNN|NOO@PkPPPQQwQCViVW.WRZwZq^_v`V`a]2aBbcjb8codc1dyhdd d7e \eee?fgfrg'@qq+qq0zzh2 {%{k4L{k{n6{q|r>ۂOEh :ԍ'1$$2[p2a<<<=FF+Jr!bJ=K#nKK' L{M5M}^G^|gAeggkEhhn/iiwiix"j jyaj_jzjj{jj| kl&qrTr{|&|9~|~~~kK/%%(P9&~QUG+( co_funcionesTT T T T  F%C '%CZCZ{%VcdRAL w TWCJEl comprobante no puede ser referenciado. Slo FC, NC, ND, RC, AJ y AS !!!B PCCEl comprobante no puede ser referenciado. Slo cabezas de grupo !!!B- T%C \F++C+  XTFH%Ccuentas Qcuentas T C$TCAXTC X%D%CC2gO%CC K?CEl redondeo no debe superar CC Z !!!B @%C2]C-No hay cuentas definidas para el REDONDEO !!!C Es necesario definir una. 8^C3Hay ms de una cuenta definida para el REDONDEO !!!C Debe haber una sola.B T-*ge01_provision(% B- T T# co_funciones %CB- T# co_funciones %4%C  {Ba B- ?T$Ejercicio inexistente para la fecha C * !!!B-BaU! XREDONDEO CO_FUNCIONESXCOD_CLIXCOMPROBXCAUSAXCUOTAXFECHA_REFERENCIACTACTECOD_CLICOMPROBCAUSACUOTAFECHAXFECHAXIMPORTEXERRXMSGXDIRXRESREFCAUCUOMENSAJEIMPORTECUENTAS XCONCEPTOXCUENTAATRCANP_TE_REDONDEO_MAXIMOGE01_PROVISIONCO_VALIDAR_FECHA_REGISTRACIONCO_ABRIR_TABLAS_EJERCICIO TRANSACCION['  T  T  T ; trsac cccliediariogconcepto% < T Ltrsac ge01.provisiones.prgProvisin de Comprobante%  T  T 3  %  T  T  T Ltrsac ge01.provisiones.prgProvisin de Comprobante%C $C  TB- MB-BaUXCOD_CLIXCOMPROBXCAUSAXCUOTAXFECHA_REFERENCIAXIMPORTEXFECHAXCUENTA XCONCEPTOXERRXMSGAAALOCK_GTRSACBEG_TRAN REGISTRAREND_TRANMENSAJETTS_ID /  3    T T T T</ocuentas % TC K T T1T$No existe la cuenta seleccionada !!!B-&TCC CC 6 T#TCCC 6%Cclientes Qclientes%!" CclientescodcliT!# T  T$a T%CWF&G((asiento#6T 'F(G((asiento E %C4 +>' ( )*% T T &Tc TF&>+,-L./012' 3C4!456N7C$89:;<=>?@F&>+,-L./012' 3C4!456D7C$89:;<=>?@A co_asientos %t TC TD- TFE TCO%VcdLA(>".C @z 9999,999,999_FLG12HIJKCC.6/CCF6LCCG6MCCM6N7C$;OPC]Q>R".FCGZ%C =FEG((comprobECZSge01 x >".C @z 9999,999,999_FLG12HIJKC @z 9999,999,999_/LLMN7C$;OPC]Q>R".FCGZ%C t FE TUCOG((comprobECZ7+C+ $".FCGZCZ D %IcCV < @>KC @z 9999,999,999_/LLMH #U#Wge01".FCGZ$%Ccuentascuenta %C FX >YZ[.C @z 9999,999,999_' FL12"7C$63KCC.6/CCF6O;=>\?@  TC TD- T T$-% ]@C  ZLC Provisiona Ajusta 6CVFCCdND??66 ge01_provisiones.prg BU^XERRXMSGXCOD_CLIXCOMPROBXCAUSAXCUOTAXFECHA_REFERENCIAXIMPORTEXFECHAXCUENTA XCONCEPTOXAREANEWASIXXERRORXDEBITOXCREDITO XCOMENTARIO1 XCOMENTARIO2XMONEDAXMONEXTXMONPASEXCUENTA_DEUDORES XREGCCCLIEXCOEFIC ARR_CUENTASCOD_CUEATRIBUTODESCRCUENTASABREVXCUENTA_CODIGO XASITIPO2 ES_AJUSTECLIENTESCOD_CLICUE_DEUTRSAC XAREA_ASIDIARIOGASIENTOCONCEPTOUNTIPO2DEBITOCREDITOPOR_QUECOMPROBCAUCOD_CENPASEFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEUSR PUB_INDEXFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKCCCLIECAUSACUOTACOMENTARIMPORTEVENCREFCUOFECREFDES_CLIECOEFICIDUASITIPO2ID CPBT_MANTGE01XREG121CANCELFN_CANCVEN_OPERCUENTADES_VALCAJ_PROFEC_COMIUSER_LOG!4C Suspendo?a T T#  co_funciones% B T C  co_funciones  dia_provcon_prov% 7?T$Ejercicio inexistente para la fecha C* !!! BFG((asiento#6TFG((asiento E%C4 ]>2Inversin de Provisin de Comprobantes de ClientesF( \tmp\dia_tmp#Q \tmp\dia_tmpFG((asientoECC,g&+C+ CC,g ^(rdia_tmpHF#) T T&+C+ CC,g T^(FG((asiento_%a T > T > >FH%Cdia_tmpFQ%Cdia_provFQ%Ccon_provFQ co_asientos%Y BF T!CO>"#C@z 9999,999,999_$L%&'(INVERSION PROVISION)*+,-./0C$123C]4>5"#$C%Z%C #6ge01CZb89:;Inversin de provisin AS CC,ge01_provisiones.prgBU<XCOD_CLIXPROVISION_COMPROBXPROVISION_CAUSAXPROVISION_CUOTAXPROVISION_FECHAXFECHASYS_MOSTRAR_SCREENXERRXMSGCO_VALIDAR_FECHA_REGISTRACION CO_FUNCIONESXDIRCO_ABRIR_TABLAS_EJERCICIOXRESDIARIOGASIENTONEWASICONCEPTOUNTIPO2DIA_PROVP_LOCALDIA_TMPARR_PROVXPASEXIMPORTEDEBITOXTEMPCREDITOCON_PROVFN_CHECK_ASIENTO CO_ASIENTOSCCCLIE XREGCCCLIECOD_CLICOMPROBCAUSACUOTAPASEFECHACOMENTARIMPORTEVENCREFCAUCUOFECREFDES_CLIEHOYMONEDACOEFICIDUASITIPO2IDFN_CANCGE01USER_LOG PUB_INDEXXNUMEROFXCAUSA< 4%CxtablabC6TCX%Cxcod_clibCgTCX%Cccclie Qccclie%Cclientes Qclientes%Cagente QagenteT.t.%C F$Tccclie.cod_cli=xcod_cliselect ccclie.cod_cli, clientes.nombre as nombre, ccclie.comprob,ccclie.fecha,-ccclie.importe as importe ,clientes.vendedor, agente.nombre as nomvend from ccclie left outer join clientes on ccclie.cod_cli=clientes.cod_cli left outer join agente on clientes.vendedor=agente.cod_age where ccclie.asitipo2=4 and ccclie.comprob+ccclie.causa+str(ccclie.cuota)#ccclie.ref+ccclie.cau+str(ccclie.cuo) and ccclie.cau$"Vcd" and !empty(ccclie.cancel) and &xfiltro into table (xtabla) QBUXTABLAXCOD_CLICCCLIECLIENTESAGENTEXFILTROprovisionar_comprobante, transaccion~ registrar anular_provision_transaccioncomprobantes_provisionados-"1qdrrSrqAAqAAeqBrAAA1AAAAAAAqA32qA3DqqAqAr2q2223AA#ArrAr32s!qAc1AAaAsQsQA3AvQpsQp2AtrR cqrAU bqrrAAA2BBCbtQ@BA2 A3t32A3AsQsQAt2rBbAAArQarQ2ArAAqAAqAAqAA2AtR c1A#B3AA!AAA!Ar"AA}BB1#6 RN r,-:79:.>%%xiX TC a CTCSQTBORRAR1 Ta Ta( c:\sistema\SYSTEM\DATA\1\ges.DBCTLT  val(deposito)"G+(c:\sistema\2000\proc_stkCP U BBB DEY_FUNC2SETSCL_ATRCL_NOMP_DEV P_SUSPENDCXPEDIDOP_VE_SELAUTLOT_KEYORDEN_DE_PICKING %Ctccvent ,Qtccvent%Cmotinv ZQmotinv%Ctventas Qtventas%Ccomprom Qcomprom%Cclientes Qclientes%Cbienes Qbienes%Cdeposito LQdeposito%Ccentral |QCENTRAL%Cdespacho Qdespacho%Cstkxdep Qstkxdep%Cstock Qstock%Cartxcli :Qartxcli%Cccarmado lQccarmado%Carmador Qarmador%C dpickings Q dpickings%Cpickings QpickingsBUTCCVENTMOTINVTVENTASCOMPROMCLIENTESBIENESDEPOSITOCENTRALDESPACHOSTKXDEPSTOCKARTXCLICCARMADOARMADOR DPICKINGSPICKINGS@G(9%_%CHEst seguro de generar pickings con prioridad de ubicaciones invertida ? B ve_orden_de_picking  T  T FG((tccvord E T%C4{3%Ctccvent.tipo_ncbN  <T/No se puede hacer un picking sobre un PD-NC !!! w<%    BT5El pedido no est aprobado por crdito o gerencia !!! s%a*TEl pedido est bloqueado !!! o%FT9El pedido ya est aprobado y tiene rdenes de picking !!! kCselectsTTT C<ocompromCQq_ped1otventasQ!Xq_ped1Q$ !$tccventQ/!C!"!#  !"!#6C$Q%C!"!#  !"!#6C$Q!"!#Q&!'Q(CC!) !)*6Q+Q,Q-!  !"!# JC!"!#  !"!#6C$ q_pedT12\tmp\C] 31CPickingF0 ~ T4050607T80 C05bienescodinsT90%9 %CqQ$%:UHostkxdepQ<XpickingQ? <E<6<7?E?6?7depositoQGaC<=<>Q=CC?=Q@C<=<>CC?=QAQ-QB<FF<E<6<74 <= DS HS IS q W %C q_pck_stockQJ%Cq_pck_pickeadoQK5ostkxdepQ<depositoQGaXcentralQ/ LL<E<6<7QC<=<>Q=Q-QB<FF<E<6<74 <= DS HS IS /CMS MS LCX6  q_pck_stock|opickingQ?a?E?6?7QCC?=Q@?E?6?74q_pck_pickeadoo q_pck_stockQ<Xq_pck_pickeadoQ? <?<=C?@Q@<=C?@QA<<Bq%C q_pck_stock! QJ%Cq_pck_pickeadoL QKF$TNCC$AD9F%N >$NPrpickingE76=0050706N>0,NFOG((codigoG((articuloF0 G-(050607O*>0C00,F-OQ#) TS-TST TUa% #ve_orden_de_picking.scx(U%U; TWa TXcYtrsacXstockstkxdepcomprompickings dpickingstccvent%X- TX:ZtrsacXVe_orden_de_pickingPicking%X2 T C [%  TX . TX J TX:\trsacXVe_orden_de_pickingPickingH  +C^C  ZKC ZP]+% _X  ` (%_X   LC%Se ha registrado la Orden de Picking CC @z 9999,999,999_a B #CNo se pudo pickear !!!a B C  B  B Tb 7 g"TPicking cancelado !!! %TPedido no encontrado !!!% Ca%CpickingQD%Cq_pedQ0%Cq_ped15Q BUcXPEDIDOXCAUSAXAUTXDESTINOXDRIVER XINVERTIDO ACTIVEFORM DATASESSIONID MENSAJE_SINO OPEN_FILESVE_ORDEN_DE_PICKING XRESULTADOXCENTRALFILTROXPICKINGTCCVENTTCCVORDXMSGTIPO_NCP_PICKING_CREDITO P_TIPO_APFINCREDITOGERENCIAARM_BLOQEST_DESPSYS_MXIDIDPEDIDO#OBTENER_FILTRO_CENTRAL_DESDE_PEDIDOITMCANCOMPROMQ_PED1V RECEPCIONRECEP2QCANSALDOCAN_ORIDESC_INSDESCRENTREGAFEC_ENTENTSTKPCKPEDIDOSTVENTASCQ_PEDXTABLA_PICKINGP_LOCALCREAR_TABLA_DE_PICKINGS XCODBULATRCOD_INSBULATRXITM XCANTIDADP_PICKING_VERSIONSUMSCANTIDADCANT_COMPPICKEADOTOTBLOQSTKXDEPPICKINGCODIGODEPOSITODVENDIBLECALIDAD Q_PCK_STOCKQ_PCK_PICKEADOCENTRAL PKCENTRALXCANTSTOCKARTICULOCANT_PEDALLXLIBERADO_PARA_ENTREGASP_VE_PD_LIBENTREGA_DEFXRESSCXTRSACAAALOCK_GBEG_TRAN TRANSACCIONEND_TRANUSER_LOG PUB_INDEX TTS_ERRORIMPRIMIR_PICKINGMENSAJETTS_ID%Cpicking'Qh1N CCCCCN NQBU XTABLA_PICKINGPICKINGITMCODIGOATRBULDEPOSITODESPACHOCANTIDADIMPORTETC T\tmp\C] %uTdesc Tasc TaF ~= T   T  C bienescodinsT %9 %CqAQ%SC prioridadesHp Lxpck_orden = "d.prioridad &xtipo_prioridad, s.deposito &xtipo_prioridad" :T-s.deposito, d.prioridad, s.despacho, dsp.bloq Txpck_orden = "d.prioridad &xtipo_prioridad, s.deposito &xtipo_prioridad, s.venc" BT5s.deposito, d.prioridad, s.despacho, s.venc, dsp.bloq pTxpck_orden = "s.venc, d.prioridad &xtipo_prioridad, s.deposito &xtipo_prioridad" BT5s.venc, s.deposito, d.prioridad, s.despacho, dsp.bloqbSELECT MAX(s.cantidad) AS cantidad , MAX(s.cant_com) AS cant_com , SUM(NVL(p.cantidad,000000000000000.0000)) AS pickeado , MAX(s.cantidad)-MAX(s.cant_com)-SUM(NVL(p.cantidad,000000000000000.0000)) AS tot , 00000000000000.0000 AS can , s.deposito , d.prioridad , s.despacho , s.venc , dsp.bloq FROM stkxdep s LEFT OUTER JOIN picking p ON s.codigo+s.bul+s.atr+s.deposito+s.despacho=p.codigo+p.bul+p.atr+p.deposito+p.despacho LEFT OUTER JOIN despacho dsp ON s.despacho+s.codigo+s.bul+s.atr=dsp.despacho+dsp.cod_ins+dsp.bul+dsp.atr , deposito d WITH (BUFFERING=.T.) ORDER BY &xpck_orden WHERE s.deposito=d.deposito AND s.codigo+s.bul+s.atr=xcodbulatr AND s.cantidad>0 AND d.picking="S" AND d.vendible="S" AND d.calidad#"S" AND !dsp.bloq AND (EMPTY(xCentralFiltro) OR d.CENTRAL=xCentralFiltro) GROUP BY &xpck_grupo INTO CURSOR q READWRITE  'SELECT MAX(s.cantidad) AS cantidad , MAX(s.cant_com) AS cant_com , SUM(NVL(p.cantidad,000000000000000.0000)) AS pickeado , MAX(s.cantidad)-MAX(s.cant_com)-SUM(NVL(p.cantidad,000000000000000.0000)) AS tot , 00000000000000.0000 AS can , s.deposito , d.prioridad , s.despacho , .F. AS bloq FROM stkxdep s LEFT OUTER JOIN picking p ON s.codigo+s.bul+s.atr+s.deposito+s.despacho=p.codigo+p.bul+p.atr+p.deposito+p.despacho , deposito d WITH (BUFFERING=.T.) ORDER BY d.prioridad &xtipo_prioridad, s.deposito &xtipo_prioridad WHERE s.deposito=d.deposito AND s.codigo+s.bul+s.atr=xcodbulatr AND s.cantidad>0 AND d.picking="S" AND d.vendible="S" AND d.calidad#"S" AND (EMPTY(xCentralFiltro) OR d.CENTRAL=xCentralFiltro) GROUP BY s.deposito, d.prioridad, s.despacho INTO CURSOR q READWRITE  ~ %; T R T% >jrpicking      T% !%5 TaFF%CN]F G((picking#6T!%" Rrpickings#$%&!C$'C(6 7 :rpickings#$%!C$'<)'opickingsC&#)#%  C)  > &F ~ T* T+ T,r-proc_stk  PCC@z 999,999,999_C$3%*u C,/ B0proc_stk1  PCC@z 999,999,999_C$3!%*)C,/ B~2proc_stk  cP1 CC@z 999,999,999_C$7%*C,/ B T3-'%4 4# 8-T3CCZCZtventasPEDITM M T3a%3x>455 ;CError al encontrar el tem CCZ !!!/ T6%C q_detalleQ7docomproma89  :;Q<8! q_detalleEr dpickings89  :;<o q_detalle%C q_detalleQ7 T> T?*@ve_orden_de_picking>?B!>C?DC"Eve_orden_de_picking %CpickingQ% 8C+No hubo artculos para hacer el picking !!!/ B%CpickingQ BUFXAUT XINVERTIDOXPEDIDOXCENTRALFILTROXTABLA_PICKINGP_LOCALCREAR_TABLA_DE_PICKINGSXTIPO_PRIORIDADXPICKING_PARCIALQ_PED XCODBULATRCOD_INSBULATRXITMITM XCANTIDADCANQBIENESLOTESSYS_MP_PICKING_PRIORIDAD_LOTES XPCK_GRUPOTOTXCANTCODIGODEPOSITODESPACHOCANTIDADTCCVENTPICKINGPICKINGSXPICKINGP_VE_PD_LIBENTREGAPEDIDOFECHAUSRLIBENT PUB_INDEXXLIBERADO_PARA_ENTREGASARRSTK_ERRSTK_TSTSTK_MSG REG_STOCKPROC_STKMENSAJEREGCOMXID ACT_STOCKXENCTVENTASPCK_CAN TTS_ERROR Q_DETALLEPCKCODDEPDSPESTCOMPROMXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGDES_LIBERAR_PEDIDOEST_PICK UPDATE_DTACTUALIZAR_ESTADO_PICKING4%CxdestinobN> T%CxdriverbCl Tve_orden_de_picking%Citm_desc Qitm_desc%Cfletes Qfletes%Cagente Qagente%Cbultos FQbultos%Catributo xQatributo CImprimir Suspendo?a C i1qCi1qC i1qCi1qCi1q N %Cmedidas ZQmedidas ~84CC ZPCZitm_descidF Cbienescodins'Cbultoscodigo)Catributocodigo!CmedidascodigoTT!CmedidascodigoT T!8>0> C" #" 6;> C C 8C 8 6F$G((picking E T&T'$T($)aG+(vpedidolistadosdey_funcsys_mail_funciones ve_pedidosys_pdf_archivado T0 T1 T2 T3 T4 T5 T6 T7 T8T9 T: T; T< T=?>listados0123456789=T?=@TA=BTC=D(T;E\cpbt\F -logo.jpg T:G T<HTIJK TLMlistadosILTN=OFJG((tccvord E$%Cclientes Qclientes"CJRclientescodcli%Ccliaux >QcliauxFSG((comprobEC$ ZPTUJVTWCSXTYCSZ;T[CCCS\CS\ - 6CS]T^CCCS`_fTaCSbTcCSdTeCSfTgCJhTiJjcTkCJjDCJj Media*CJj AltaNo determinada666TlJmTnJoTpCY*TppCC[ , C[6*TppCC^ , C^6TqJrTsJt%st FG((codfle Es%v FwG((codigo Ev&TyCsCXCz6 T{sT|C}9T~CCC - 6C2TCC_Cvw6fTCTCoTCT'TCy, C|, C~TJ%+ FG((codage E&TCCCXz6 TFTCJR(TCCCSz QzSz6 TTCS};TCCCSCS - 6CS4TCCCS_fCSvw6TCSTSTJTJ TCTJDTJDTJrT$8TC$LIBERADO PARA ENTREGAR6FFH |  R (& CSIAZ6 | & C2=#)T picking.frx TTPCK CCZT.t.FH  vis_pck ' C 2slistadosaaaaaCCZKK$%JMLA ;sys_meli_pedidos.prgJPaBUXPICKING XEXPORTARXDESTINOXDRIVER OPEN_FILESVE_ORDEN_DE_PICKINGITM_DESCFLETESAGENTEBULTOSATRIBUTOSYS_MOSTRAR_SCREENOBTENER_PICKINGP_PICKING_LOTE_IMPQREF_OCITEM_OC COMENTARIOMEDIDAMEDIDASPEDIDOITMBIENESCODBULATRMEDCODXMEDIDADESCR XMEDIDAABRABREV MEDAUXCODXMEDAUX XMEDAUXABR CANTXBULTCANPICKINGSPICKINGZPICKINGZPEDIDOZFECHAFECHAVPEDIDOLISTADOSDEY_FUNCSYS_MAIL_FUNCIONES VE_PEDIDOSYS_PDF_ARCHIVADO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESAZEMPWEBWEB ZEMPEMAILEMAIL ZEMPTXTCPBTTXTCPBTP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAZUSUARIO_CODIGOTCCVENTUSRZUSUARIO_NOMBREUSR_NOM ZCUIT_TEXTO CUIT_TEXTOTCCVORDCLIENTESCOD_CLICLIAUXCOMPROB ZSUCURSALSUC ZENTNOMBREENTNOM ZENTDIRECCIONENTDOM ZENTZIPCIUDADENTZIPENTCIU ZENTPROVPAISPROVINCENTPRO ZENTTELEFONOENTPHO ZENTHORARIOENTHOR ZENTCOORDENTCOORDZOCREF ZPRIORIDAD PRIORIDAD ZDPRIORIDADZFECHA_DE_ENTREGAFEC_ENTZHORARIO_DE_ENTREGAHORARIOZDOMICILIO_DE_ENTREGAZTXTREM TXTREMITOXFLETECOD_FLECODFLEPAISPAISESCODIGO ZFLENOMBRENOMBRE ZFLECODIGO ZFLEDIRECCION DOMICILIO ZFLEZIPCIUDADCOD_ZIPCIUDAD ZFLEPROVPAIS PROVINCIA ZFLETELEFONOPHONO ZFLEHORARIOZFLECUITCUITZFLETIPOTIPO ZFLETEXTO XVENDEDORCOD_AGECODAGE ZVENNOMBRE ZVENCODIGO ZCLICODIGOZNOMBRE ZCLINOMBRE ZCLIDIRECCION ZCLIZIPCIUDADZIP ZCLIPROVPAIS ZCLITELEFONOZCUITZSUCFACSUCFAC ZFECHAEMISIONFEC_VEN ZFECHAHORAZTXTCPBT ZTXTPEDIDOZTXTPRERREMITOZLIBENTLIBENTZDLIBENTP_PICKING_INDICE REPROCESODEPORDEN XFORMULARIOXCOPIAS XIDARCHIVO XFILTRODATOSVIS_PCKEXPORTAR_PICKINGIMPRIMIR_FORMULARIO PLATAFORMAP_MELI_ETIQUETA_PICKINGMELI_IMPRIMIR_ETIQUETASYS_MELI_PEDIDOSPRG4TC%I T B T T TC TC T  T  T  T  T a%C&ve_orden_de_picking_cerrar( % . T BCF#)T& TC])oqQ1\tmp\QQ\tmp\ T Ta Ttrsacbienesstockstkxdepcomprommovstockdespachoconverconver2pickings dpickingsccarmado% TD trsacVe_orden_de_pickingCierre de Picking%lT C!% P T hT TD"trsacVe_orden_de_pickingCierre de Picking H P+C$C ZKC ZP# %%  ?HZ; CVC/Se cerrado varias denes de picking del pedido CC@z 9999,999,999_& C1YC2Se ha registrado el cierre de la Orden de Picking CC@z 9999,999,999_& 2; T "CNo se pudo cerrar !!!& T T'%CqQ BU(XPICKINGXPICKING_INIFIN XERROR_CIERREXERRORABRIR_Y_VALIDARXARM_COD XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXH XRESULTADOVE_ORDEN_DE_PICKING_CERRAROBTENER_PICKINGQXPEDIDOPEDIDOCODATRBULDEPORDENXTABLACANCANT_OKP_LOCALXTRANSFTRSACAAALOCK_GBEG_TRANTRANSACCION_CERRAR_PICKINGEND_TRANUSER_LOG PUB_INDEX TTS_ERRORMENSAJETTS_ID FG((picking%= E%7CNo se encontr el picking CCZ !!! BT&%Ctccventtccvord 6CNo se encontr el pedido CCZ !!! BTF G((CONVER#6T  0rconver2    C TF~+T T Tdproc_stkcMCC  ZC$5%dC B{proc_stkcPCC ZC$5% C BrCONVER  !"#$%&' (C$aCierre de Picking PD: CCZ PCK: CCZ)TrCONVER  !"#$%&' (C$a**Cierre de Picking PD: CCZ PCK: CCZ)eproc_stkC*MCC  ZC$5%}C B|proc_stkC*PCC ZC$5%'C BF>+%C->F.G((armado}(0/T00T1C2 T31"%C ccarmado.exhbN{rccarmado/456789:;+<=013)>?@ABaC "rccarmado/456789:;+<013)>?@ABaF>/0 H%C q_detallenQDoocompromaEQFE q_detalleEr dpickingsEFo q_detalle%C q_detalleH QD TH TI*Jve_orden_de_pickingHIL>MINC"Ove_orden_de_picking BUPXPICKINGPICKINGSPICKINGMENSAJEXPEDIDOPEDIDOXIDTCCVENTIDCONVERXTRANSFTRANSFDTID_NUMXITMQCANSTK_ERRSTK_MSG REG_STOCKPROC_STKCODBULATRDEPDSPREGCOMITMMOTIVOFECHACOD_INSBAJADEP_INGDEP_EGRDESPACHOITEMENTRASALECOMENTUSR_BAJA P_PICKING_MOT PUB_INDEX P_PICKING_EXPESTADOINXPICKING_INIFINCCARMADOARMADOXNUMARMAXFECHA1 XARM_INICIOXFECHA2FECHA2USREST_ARMARMADORPALLETSBULTOSCAJASTIPOFINALEXHXARM_COD XARM_PALLET XARM_BULTOS XARM_CAJAS P_PICKING_DEPXARM_EXH Q_DETALLEPCKESTCOMPROMXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGDES_LIBERAR_PEDIDOEST_PICK UPDATE_DTACTUALIZAR_ESTADO_PICKINGX 4 Tve_orden_de_pickingFG((picking E%C4 3CPicking no encontrado CCZ !!! B% UC El picking CCZ1 no se puede anular porque ya est confirmado !!! BW% DC*Est seguro de anular la orden de picking CCZ ?  B T  T a T trsac bienesstockstkxdepcomprommovstockdespachoconverconver2pickings dpickings% y T Gtrsac Ve_orden_de_pickingAnulacin de Picking% TC% T  T  .T Gtrsac Ve_orden_de_pickingAnulacin de Picking H +CC ZKC  ZP B "CNo se pudo anular !!! B T%CqHQ BUXPICKINGXAUT XRESULTADO OPEN_FILESVE_ORDEN_DE_PICKINGPICKINGSPICKINGMENSAJEESTADO MENSAJE_SINOXPEDIDOPEDIDOTRSACAAALOCK_GBEG_TRANTRANSACCION_ANULAR_PICKINGEND_TRANUSER_LOG PUB_INDEXTTS_IDQJFG((picking E%C4 w8CNo se encuentra el picking CCZ !!! B %XC El picking CCZ ya est cerrado !!!C No se puede anular !!! BFG((tccvord E%C4 MC,El picking refiere a un pedido inexistente (CCZ) !!! B %IC(El picking refiere a un pedido cerrado (CCZ) !!! BF T  ~    T  TF  ^Jdproc_stkckCCZC$3% C Baproc_stkkCCZC$7% C B T-*% 0TCCZCZtventasPEDITM  Ta%,> ~;CError al encontrar el tem CCZ !!! TF> T T- ve_orden_de_picking">#$C%%ve_orden_de_picking BU&XPICKINGPICKINGSPICKINGMENSAJEESTADOTCCVENTTCCVORDPEDIDOEST_DESPCOMPROMXIDIDPCKSTK_ERRSTK_MSGINOLD REG_STOCKPROC_STKCODBULATRDEPCANITMDSPXENCTVENTASPCK_CAN TTS_ERRORXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGDES_LIBERAR_PEDIDOEST_PICK UPDATE_DTACTUALIZAR_ESTADO_PICKING%ve_orden_de_picking#%Cmotinvcodigo%^ C2Existe el motivo de transferencias para pickings (CCZ=) pero no est bien configurado como 'de transferencias' !!! B {kC7No existe el motivo de transferencias para pickings !!!CC (p_picking_mot)6 B%C ,,%CCdepositodeposito (XCNo existe el depsito C !!!CC (p_picking_exp)6 B mC+No est definido el depsito de expedicin C !!!CC (p_picking_exp)6 B%C ],%CC depositodeposito YXCNo existe el depsito C !!!CC (p_picking_err)6 B uC3No est definido el depsito de errores de picking C  !!!CC (p_picking_err)6 B%C ,%CC depositodeposito' XCNo existe el depsito C  !!!CC (p_picking_dep)6 B jC(No est definido el depsito de picking C  !!!CC (p_picking_dep)6 BF G((picking E %C4 u&CPicking no encontrado !!! BH %  QCDEl picking ya fue confirmado y no se lo puede volver a confirmar !!! B % KC>El picking ya fue cerrado y no se lo puede volver a cerrar !!! B %  MC@El picking ya fue liberado y no se lo puede volver a liberar !!! B BUXORIGEN OPEN_FILESVE_ORDEN_DE_PICKING P_PICKING_MOTMOTINVTIPOMENSAJEP_DEV P_PICKING_EXP P_PICKING_ERR P_PICKING_DEPPICKINGSPICKINGXPICKINGESTADO4 TTC%H BCTC];oqQQ1 \tmp\Q Q \tmp\ F #) T  (& C SIAZ6 Ta)ve_orden_de_picking_confirmar(% T Ta Ttrsacbienesstockstkxdepcomprommovstockdespachoconverconver2pickings dpickingstccvent%T TJtrsacVe_orden_de_pickingConfirmacin de Picking%TC% T T TJtrsacVe_orden_de_pickingConfirmacin de Picking ^Hso ./CC ZKC  ZP %  !LC%Se ha confirmado la Orden de Picking CC@z 9999,999,999_ B o%CNo se pudo confirmar !!! B T -C Se ha cancelado la operacin !!!%CqQ  BUXPICKING XRESULTADOXERRORABRIR_Y_VALIDAROBTENER_PICKINGXTABLACANCANT_OKERRORESQP_LOCALPEDIDOXPEDIDO REPROCESODEPORDENXRESVE_ORDEN_DE_PICKING_CONFIRMARXTRANSFTRSACAAALOCK_GBEG_TRANTRANSACCION_CONFIRMAR_PICKINGEND_TRANUSER_LOG PUB_INDEX TTS_ERRORMENSAJETTS_IDc FG((picking%= E%7CNo se encontr el picking CCZ !!! BT&%Ctccventtccvord 6CNo se encontr el pedido CCZ !!! BTF G((CONVER#6T  0rconver2    C TF ~ T Tgproc_stkcMCC  ZC$3%IC Bxproc_stkcPcC$3%C B T-'%  R-TCCZCZtventasPEDITM g Ta%> ;CError al encontrar el tem CCZ !!! T% mproc_stk MCC  ZC$7%C BTlproc_stk! "cMCC  ZC$1#%KC BrCONVER $%&'()*+,-./ 0C$a!!# "Confirmacin de Picking PD: CCZ PCK: CCZ1%  Teproc_stkC2 MCC  ZC$5#%C B|proc_stkC2 PCC ZC$5#%C BrCONVER $%&'()*+,-./ 0C$a22# Confirmacin de Picking PD: CCZ PCK: CCZ1 T-'%  -TCCZCZtventasPEDITM  Ta%1 >   ;CError al encontrar el tem CCZ !!! T%" Teproc_stkC3"MCC  ZC$1#rCONVER $%&'()*+,-./ 0C$a33#"$Confirmacin de Picking. Error. PD: CCZ PCK: CCZ1WC1C ZKMovimiento de transferencia: CC  ZC ZP4F>5% "Ctccventtccvord%C q_detalle Q7oocomproma8!#Q98 q_detalleEr dpickings8!#9o q_detalle%C q_detalle Q7 T; T<-=ve_orden_de_picking;<?>@<AC"Bve_orden_de_picking BUCXPICKINGPICKINGSPICKINGMENSAJEXPEDIDOPEDIDOXIDTCCVENTIDCONVERXTRANSFTRANSFDTID_NUMXITMQSTK_ERRSTK_MSG REG_STOCKPROC_STKCODBULATRORI_DEPCANITMORI_DSPREGCOMXENCTVENTASPCK_CAN TTS_ERRORCANT_OKDEPERRORESDSPMOTIVOFECHACOD_INSBAJADEP_INGDEP_EGRDESPACHOITEMENTRASALECOMENTUSR_BAJA P_PICKING_MOT PUB_INDEX P_PICKING_DEP P_PICKING_ERRUSER_LOGESTADOIN Q_DETALLEPCKESTCOMPROMXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGDES_LIBERAR_PEDIDOEST_PICK UPDATE_DTACTUALIZAR_ESTADO_PICKING TC %CCentral NQCENTRAL%CqlQ opickingscompromtccventdeposito Q  Q CXQ  Q CXQ QQQ    qWoqtventasCZCZCZCZq ~FG((codins E%S>FG((codigoE!%"SF#G((codigoE$&%S "S F%G((articuloE!$&%S "S 80T'CC  C#  C  TT'C > '%F( G((ID!E$! T*C4%ST+ T+%* ( ,T+(4%S"S %  tT,% T, %* (  T,( %* C( T'C( T-NO T.%*R"T-C( SINO6T.(/T0NO%*"T0C( SINO6F> -> .> 0> ,>+%%Cq1'Q1oqQ234)!$CQ5678CVARIOSQ9     CVARIOSQ234)!$56789     q1%CqQoq1Ǽq%Cq1Q1BU:XPICKINGXTIPO XAGRUPA_LOTESCENTRALQTCCVENTCOD_CLIPICKINGSCOMPROMBARRAS REPROCESO TREPROCESOTIRIMPDESCRDEPORI_DEPDSPORI_DSPDEPOSITO PRIORIDADPICKINGPCKPEDIDOCANTVENTAS CANTXBULTENTREGAITMBIENESCODINSCODBULTOSCODIGOBUL ATRIBUTOSATRIBUTOATRSTOCKARTICULOXDESCRARTXCLIIDXENC XCANTXBULTXBARRAS XREPROCESO XTREPROCESOAUX2XTIRIMPQ1FECHAUSRESTADOCAUNUMFECTIPFLG 4 TTC%L BFG((pickingCF&    TC]GoqQQCXQ1\tmp\QQ\tmp\#)T Ta% 7!ve_orden_de_picking_confirmar.scx(%i Tc Ta TVtrsacstockstkxdepcomprompickings dpickings%= THtrsacVe_orden_de_pickingLiberacin de Picking%TC% T T THtrsacVe_orden_de_pickingLiberacin de Picking GH\X +C C ZKC ZP(%!   JC#Se ha liberado la Orden de Picking CC@z 9999,999,999_" B X#CNo se pudo liberar !!!" B T#%CqQ BU$XPICKINGXAUT XRESULTADOXERRORABRIR_Y_VALIDARPICKINGSPICKINGOBTENER_PICKINGQCODATRBULDEPORDENXTABLACANCANT_OKERRORESDEPTRFP_LOCALXPEDIDOPEDIDOXRESVE_ORDEN_DE_PICKING_CONFIRMARSCXTRSACAAALOCK_GBEG_TRANTRANSACCION_LIBERAR_PICKINGEND_TRANUSER_LOG PUB_INDEX TTS_ERRORMENSAJETTS_ID%CxpedidobN1 T%Cq_pedSQ2TCt.pedido=xpedido.t.6SELECT T.pedido, p.picking, T.ID FROM tccvent T, pickings p WHERE T.pedido=p.pedido AND p.estado<9 AND T.est_desp=5 AND &xfiltro INTO CURSOR q_ped  ~TT<NocompromCC ZCZC?BZ    % F G((picking E >  T T-ve_orden_de_picking % u"C tccventtccvord>C FQBUXPEDIDOQ_PEDXFILTROXIDIDXPCKPICKINGARR_CCOMPROMITMCANPCKPICKINGSESTADOXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGPEDIDOTCCVENTEST_PICK UPDATE_DTFG((picking%= E%7CNo se encontr el picking CCZ !!! BT&%Ctccventtccvord 6CNo se encontr el pedido CCZ !!! BTT%C q_detalleVQ Zoq     Q q_detalleEr dpickings    o q_detalle%C q_detalleQ F T Ta ~ T TT% T-%gproc_stk   cKCC ZC$3%?C B{proc_stk   cKCC ZC$3%C B%dproc_stk   KCC ZC$7%C B T-'%  -TCCZCZtventasPEDITM   Ta%7> ;CError al encontrar el tem CCZ !!! T %F >! %"Ctccventtccvord T" T#-$ve_orden_de_picking"#& >'#(C")ve_orden_de_picking BU*XPICKINGPICKINGSPICKINGMENSAJEXPEDIDOPEDIDOXIDTCCVENTID Q_DETALLEPCKCODATRBULDEPDSPCANT_OKITMESTQCANXITMXTODOSTK_ERRSTK_MSG REG_STOCKPROC_STKREGCOMEST_DESPXENCTVENTASPCK_CAN TTS_ERRORESTADOXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGDES_LIBERAR_PEDIDOEST_PICK UPDATE_DTACTUALIZAR_ESTADO_PICKING ve_orden_de_picking%Ctmp_qCQ#%Ctmp_master_pickingrQF#) T TT  T  F G((picking E TT  T  F Ta ~>%Cq?QCF%( \tmp\tmp_q_CCZ%F \tmp\tmp_q_CCZ.dbf(\tmp\tmp_q.dbfFQ \tmp\tmp_q /F% \tmp\tmp_q_CCZ T-%Ctmp_q +CNo se han marcado pickings !!!B%0otmp_qCQtmp_master_picking otmp_qXtccventQ   XclientesQ. //XcliauxQ 12C  ZP CQQ Q!"Q#$Q%&Q'C( CC)(C)) 6C*Q+tmp_master_picking& CZ3AG+(listadosdey_funcsys_mail_funciones ve_pedido T8 T9 T: T; T< T= T> T? T@TA TB TC TD TE?Flistados89:;<=>?@AEF,G((tccvord E %Cclientes _Qclientes"C,/clientescodcli%Ccliaux QcliauxF0G((comprobEC  ZP(THCCC0! -!0!6TI,#TJC0"TKC0(;TLCCC0)C0) - 6C0*TMCCC0ONfTPC0QTRC0STTC0UTVC,TW,$TX,&GTYC0( CC0)(C0)) 6C0*F(& CSIAZ63#)TZmaster_picking.frx T[ T\ T]T^PCK CCZT_.t.% C` K ?alistadosZ][\^_aaaaa#%Ctmp_master_pickingz Q%Ctmp_q QBUb XEXPORTAR OPEN_FILESVE_ORDEN_DE_PICKINGTMP_QTMP_MASTER_PICKINGQ_BATCHXPICKINGPICKINGZPICKINGZPEDIDOPICKINGSPEDIDOZFECHAFECHAXINITQOBTENER_PICKINGP_LOCALMENSAJECOD CANTXBULTBARRAS REPROCESO TREPROCESODEPDESCR PRIORIDADCANTREFOCCLFCENOMNOMBREENTNOMSUCFEC_ENTFENTHORARIOHENTENTDOMENTZIPENTCIUDOMTCCVENTCLIENTESCCOD_CLICLIAUXCOMPROBCAUSAORDENLISTADOSDEY_FUNCSYS_MAIL_FUNCIONES VE_PEDIDO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESATCCVORDZNOMBRE ZSUCURSAL ZENTNOMBRE ZENTDIRECCION ZENTZIPCIUDAD ZENTPROVPAISPROVINCENTPRO ZENTTELEFONOENTPHO ZENTHORARIOENTHOR ZENTCOORDENTCOORDZOCZFECHA_DE_ENTREGAZHORARIO_DE_ENTREGAZDOMICILIO_DE_ENTREGA XFORMULARIOXDRIVERXCOPIASXDESTINO XIDARCHIVO XFILTRODATOSEXPORTAR_MASTER_PICKINGIMPRIMIR_FORMULARIO TCWTC][oqQQQ Q  Q  Q1\tmp\QG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN%!T Picking: CCZ GTMaster PickingT C CnombreCliente!CempresaClienteCocO.C.CcodCdigoC cantxbultUXBCbarrasEAN#Cdescr DescripcinCcanCantidad%C reproceso Reproceso+C treprocesoTipo ReprocesoCdepDepsito%C prioridad Prioridad%CpedidoPedido*CdomDomicilio de Entrega$Cfent Fecha Entrega#Chent Hora EntregaTC FBUXTIPOXAREAXTMPARCHZNOMBRENOMBRE ZEMPNOMBREEMPRESAZOCOCZDOMICILIO_DE_ENTREGADOMZFECHA_DE_ENTREGAFENTZHORARIO_DE_ENTREGAHENTQP_LOCALLISTADOSXEXPXPAR EX_TITULOZPICKINGEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS H ET Pendiente oT Confirmado TCerrado  TLiberado 2'T Desconocido (CCZ) BUXESTADOXRES T T T T T T%Cpickings Qpickings%Cq1Q%CqQ %%CpickingspedidoT otccventQ tventasQ    QC    6QC 3   C    6 6QC      6QC B    C    6 6Q       q1Voq1XcompromQ"  CZ CZQCQCCQCCCQCQCCQCCC dQCQCCQCCQ q<# #yoqCQCQCQCQ$CQCQCQC Q #% T Sin saldo T T T T =TCC# Sin saldoUCC#8CC#Pickeo completoPickeo parcial6 Sin pickear66PTCC#-CC#CC# 666=TCCC#C#C# 6DTC#TC#%Cq1\Q%CqzQ  BU%XPEDIDOXRESXRES2XRES3XBRUTOXNETOXLIBENTPICKINGSQ1QLIBENTTCIDTITM RECEPCIONRECEP2CANTIDADTOT_VENPRECIODEUDAPRECIOIIMPORTENETOTCCVENTTVENTASPEDIDOCANCOMPLETOPICKEADO PER_PICKEADOBRU_PICKNET_PICKCOMPROMCARR_MAXACC TCWTC]:otmp_master_pickingQ1\tmp\QG+(listadosG~(ClasesTC ExportacionesN(T CExportaciones_ParametrosN%!T  Picking: CC Z &T Master PickingT  C %CpedidoPedido !CpickingPicking CnombreCliente %CocO.C. CcodCdigo C cantxbultUXB CbarrasEAN #Cdescr Descripcin CcanCantidad %C reproceso Reproceso +C treprocesoTipo Reproceso CdepDepsito %C prioridad Prioridad %CsucSucursal *CdomDomicilio de Entrega $Cfent Fecha Entrega #Chent Hora Entrega !CempresaEmpresa T C  FBUXTIPOXAREAXTMPARCH ZEMPNOMBREEMPRESATMP_MASTER_PICKINGP_LOCALLISTADOSXEXPXPAR EX_TITULOZPICKINGEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS  TFG((picking E%C4g > T ~ T BUXPCKXLIBEROPICKINGSPICKINGESTADOM%Ctccvent 3Qtccvent%Cpickings eQpickings%Cq_pcksQvocomprompickingsCQQ    q_pcks%  ~ T " trsac pickings%   T }trsac /ve_orden_de_picking.mantenimiento_de_pickings()Mantenimiento de PickingsC ZK% s T)ve_orden_de_picking T %C ZK+Mantenimiento de Pickings: Picking liberadove_orden_de_picking.prg oC ZK=Mantenimiento de Pickings: Picking no encontrado para liberarve_orden_de_picking.prg T }trsac /ve_orden_de_picking.mantenimiento_de_pickings()Mantenimiento de PickingsC ZK opickingsXcomprom   Q CCQ     q_pcks ~FG((picking E %C4>~C  ZK5Mantenimiento de Pickings: Correccin picking anuladove_orden_de_picking.prg've_mantenimiento_pedidosa1opickings q_pcks ~%ve_orden_de_picking%Cq_pcksBQBUXLIBEROTCCVENTPICKINGSQ_PCKSCOMPROMPCKCANCANTESTADOESTAPICKINGAAALOCK_GTRSACBEG_TRAN!LIBERA_EL_PICKING_SIN_COMPROMISOSVE_ORDEN_DE_PICKINGUSER_LOG PUB_INDEXEND_TRANPEDIDOMANTENIMIENTO_PICKINGSVE_MANTENIMIENTO_PEDIDOSDISTINCTACTUALIZAR_ESTADO_PICKINGH>-=TPedido CCZ bloqueado (no liberado) por Hl 'T anulacin de picking  (T generacin de picking  *T confirmacin de picking  U$T cierre de picking   (T liberacin de picking  27T& proceso no identificado sobre pickingT CCZVC ZKve_orden_de_picking.prgC ZPUXPEDIDOXPICKINGXESTADOTCCVENTDV1XMSGUSER_LOG PUB_INDEXz%o TCW T-%x#TCtccventtccvord  Ta%a T T T T  T  T : ve_orden_de_picking   9>    FBUXPEDIDO P_PICKINGXAREAXENCTCCVENTPEDIDOXRESXRES2XRES3XBRUTOXNETOXLIBENTESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGEST_PICKPER_PICKBRU_PICKNET_PICKLIBENT %&%Ctccventtccvord UC=No se encontr el pedido al buscar el filtro por central!!! (CZ) BCX% _- sys_meli_pedidos  5 ve_pedidos_recibidos %[BCTBCUXPEDIDOXCENTRALFILTROXCENTRAL XDEPOSITOOPLATAXOKTCCVENTPEDIDO MENSAJE_S PLATAFORMA&OBTENER_PLATAFORMAS_AUX_DESDE_REF_FULLSYS_MELI_PEDIDOSREF_EXTBUSCAR_PKCENTRAL_PLATAFORMASVE_PEDIDOS_RECIBIDOS LOGISTIC_T$OBTENER_FILTRO_CENTRAL_DESDE_CENTRALDEP%OBTENER_FILTRO_CENTRAL_DESDE_DEPOSITO '%CdepositodepositoBT WC?No se encontr el deposito al buscar el filtro por central!!! (CZ) BCXBCU XDEPOSITOXCENTRALFILTROXCENTRALDEPOSITOCENTRAL MENSAJE_S$OBTENER_FILTRO_CENTRAL_DESDE_CENTRAL %%Ccentralcentral'%CCENTRAL.PKCentralbC}&TCS 6 TCX WC?No se encontr el deposito al buscar el filtro por central!!! (CZ) BCX BUXCENTRALXCENTRALFILTROCENTRAL PKCENTRAL MENSAJE_S open_filesorden_de_picking-crear_tabla_de_pickingsC transacciontimprimir_picking]/cerrar_picking'Ftransaccion_cerrar_pickingManular_pickingjZtransaccion_anular_picking_abrir_y_validarYfconfirmar_picking/ntransaccion_confirmar_pickingUtobtener_pickingliberar_picking$liberar_pickings_de_pedidos_cerradostransaccion_liberar_pickingoimprimir_master_pickingexportar_pickingHestado_picking+estado_picking_txtAexportar_master_picking!libera_el_picking_sin_compromisosÿmantenimiento_de_pickingsdes_liberar_pedidoactualizar_estado_picking#Obtener_Filtro_Central_desde_pedido%Obtener_Filtro_Central_desde_deposito$Obtener_Filtro_Central_desde_CentralBQ3A""31A!A1A1AAA!AAA1AAA1ArA1AAA1AQAAAB2AAAr2"1bB"PDr2"A20AA Q AArA2BBAurR"1A8222AA1qAA212BB!AAAAARBAAbArAB2qA B312rArr2"Aq12B!2B!A!6q2BaA22AADB2ABArs"sQ3!Asq2At/2Aa2A2AqAACAARAR%AAAA31AAAA!A!A!AAAR1AAsrBr1rAA!!Aqa!!!!!"1bqAbqAb!!!!!rbqAas"!A!rt12rBRxA1CBAA21ArqaAArRq] 2A2"2AABB1AaABB2!A"A2qtaAbqAbaArQsqN2A2A3_2A 2ABtrr#r ArBARAR$2vr1AbQArAr| 2q2"2AArB12!B"A3qr1AAraAAttN2A2AAABr!T2q2aAA"AA"AQA"AAraA1aA1aA1aAA2qv1ArRrM 22"2AAB1A2QBA"A3qraAbqAbaArQrq2A2AqAA2AB2Adg^2A 2AqAABd^PCBrr!AARAR%371A!Azrrq1Arq1AbqAc!A3rtAADAA!A!A!ArAB24A"A"2ABB4r1ArrqRqqAg22"2AAB1A21BB"A2qAbAt" Rr"s!ABBsASA4quaAbqAbaAARArA2~2A2AfA2ABqAABBr!AR%B4qdA2ArQrs"ArQaqQABrAA1 ,AC1sAA!!Aqa!!!!!"ruR6A2AbAB2qB%!3A1QQ2A1A B21a1q1A1QqA2AA2A!ASA ar"aAAA3A!A3qB$!3A2A1A1QQ2A1A B3rrA3u1AAArAj""222! AABBCK qBAtSArAB21q111A1qAb9q3rua1AABA21aaQAAbQ!AA!4qqA!2QraAqA1 A!^)a)**JpJg(gkrBtrpԌJCfq?ig;Vry  R O    +(- $#)43 Qb3F4 _l4q? ?4C ZCG 9G:J xJK KM %(*G]U3G(9"T\tmp\CC]R ve_pedidoTCCC$iCC$H$ TC$ ve_procesar_acuerdos( C BU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXDESDEXHASTAVE_PROCESAR_ACUERDOSXRESPROCESAR_ACUERDOS C Suspendo?a%Cacuerdos PQacuerdos%C seleccionyFQoventasQXartxcli   12  12bienesQ clientesccventQXmotivos 5QQQ Q  Q  Q QQQQQQQCC(XQCQ QC(XQQQ Q C(XQ!Q"Q# Q$C(XQ%Q&Q' Q(C(XQ)Q*Q+ Q,C(XQ-Q.Q/C      1c d C6  seleccion7ve_sql_estadisticasF%C9UhT:CArchivo de Control;'\procesamiento_de_acuerdos_comerciales_C_a_Cxls%C: Q (:ԻD(&procesamiento_de_acuerdos_comerciales_C_a_C%C seleccion2F<QQo seleccionCQCQ seleccion2 ~F4G((ccvfacE<<%C4Y>><<?d @d Ad Bd Cd :C-Se han procesado los acuerdos comerciales !!!DBUEXDESDEXHASTASYS_MOSTRAR_SCREENACUERDOS SELECCIONVFEC_VENFAC_VENCAUSACOD_CLICLIENTESNOMBRECOD_INSBLINEAGRUPOCAGENTEVENDEDORLISTATOT_VEN TOTAL_ANTMOTIVOMOTIVOSDESCRDMOTIVOARTXCLISECTORACUERDO1 DACUERDO1DTOACU1IMPORTE1ACUERDO2 DACUERDO2DTOACU2IMPORTE2ACUERDO3 DACUERDO3DTOACU3IMPORTE3ACUERDO4 DACUERDO4DTOACU4IMPORTE4ACUERDO5 DACUERDO5DTOACU5IMPORTE5VENTASATRBULBIENESCCVENTCODIGOTIPOPROCESAR_ACUERDOS_SELECCIONVE_SQL_ESTADISTICAS EXPORT_DIRXDESTINO P_DIR_EXPORT SELECCION2CCVFACDTOACUDESC1DESC2DESC3DESC4DESC5MENSAJEC Suspendo?a  %C seleccionfF QotempcompQbienesQQ  Q QQQQQQQ QC(XQQ C seleccionve_sql_estadisticasF K( ST d d d d d BU!XDTOACUXFECHAXDESC1XDESC2XDESC3XDESC4XDESC5SYS_MOSTRAR_SCREEN XTOTAL_ANTXTOT_VEN SELECCIONFEC_VENXCOD_CLICOD_CLITCOD_INSBLINEAGRUPO XVENDEDORVENDEDORXLISTALISTATOT_COM TOTAL_ANTTOT_VENACUERDODACUERDODTOACUTEMPCOMPBIENESPROCESAR_ACUERDOS_SELECCIONVE_SQL_ESTADISTICAS\%Cacuerdos .Qacuerdos%C q_acuerdosUQUACUERDOS Q_ACUERDOS[ CJoacuerdosC   q_acuerdosBU INICIALIZARACUERDOSDCLIXCOD_CLIDFECXFECEMIHFEC Q_ACUERDOSprocesar_acuerdosTprocesar_acuerdo_comprobante inicializar completar_descuentos} #Br"B2tAAqAA@1r!AABqAAq1AAB2rqAA  rq2B8AAA2D4 d - h<C+*%.27<78NeU$7TC jsonHelperNUJSON$BC JSONObjectNUPCJSONY%Ct3BC JSONArrayN RBC JSONArrayNUPAARRAYaTC CollectionNACCursor({name:string, schemax:array, rows:array}UTHISSCHEMAS DECLARESCHEMAyT % ITaT" rT-T'UVNEWVALTHISCANONICALNOTATIONQUOTEPROPERTYNAMESSTRINGDELIMITATORJ-(HB  C=[t TaTC C={vfp:0TCCCC}= vfp:true, TCC{\TC N Ta 2 TCEmptyNTCC>\+  TC(TC%C.% C CC .T CTCEmptyN ( TCC % T TC: TCC="'TCC\H C='"($TCCC\C>= C=@TC\%C>"TCC@R ^9999-99-99_# ,TCC@R ^9999-99-99 99:99:99_ CtruefalseTtrue null T C={JTC  C=[xTC J CC@stringnumericdatedatetimebooleanarrayH string T numeric(T dateRT datetimeT boolean T- arrayTC CollectionN 2TCC.CPOINTvgH 9C j"STORE uValue TO oResult.&cProp 2%C TCC  BUPCJSONOOBJECTSIORESULTLISARRAYLISVFP CVFPCLASS JSONARRAYOVFPINFOJSONPARSECLASSOPAIRSJCPAIRCPROPCVALUEUVALUEOOBJCOBJ NBLOCKCOUNTNSEPTHIS_SPLITCOUNTITEMISOBJECTADD _DECODESTRING TC%CCursor HB-T%CC T  C C C <Fh%   T(C.?TC,6C/ WITH oRow.C/TREPLACE    &cReplace <UPCJSONPCALIASOCURSOR JSONOBJECTIS CCURSORALIASNAMEASCHEMAXASCHEMASCHEMAXTOARRAYROWSCOUNTOROWCREPLACEI TCb$TCpoObj.baseClassbCT{(H# CPropertyTC%-C@-م-controls-controlcount-objects-parent-baseclass-classlibrary-parentclass-helpcontextid-whatsthishelpid-top-left-width-height-picture- .!%C@class T ."TCpoObj.bA% cJSON = cJSON + IIF(LEN(cJSON) > 1,",","") + IIF(THIS.quotePropertyNames,THIS.stringDelimitator,"") + LOWER(cProp) + IIF(THIS.quotePropertyNames,THIS.stringDelimitator,"") + ":" + ALLTRIM(THIS._encodeValue(poObj.&cProp))   ACOPY(poObj.&cProp, aValues) mTCC>,6C 6C@C 6:C T}%8T{vfp:true,class:  } BUPOOBJAPROPSNCOUNTICJSONCPROPLISARRAYLISVFP CVFPCLASSCLASSAVALUESTHISQUOTEPROPERTYNAMESSTRINGDELIMITATOR _ENCODEVALUE%Ct& TC TC schema:CursorTCursorT CTC F#) ~ ^JC  BC U PCALIASOCURSOROROW JSONOBJECTSCHEMANAMEASCHEMASCHEMAX JSONARRAYROWSADDTOJSON %Ct`;2JSON2: JSON.declareSchema: invalid parameter countBCC@UPCNAMEPCSCHEMATHISSCHEMASADD; TC@%CIshEBCTCschema:  T aTCb(+TC>%Ch !CpoRef.bCoBase.b ' T -! B U POREFPCSCHEMAISOBASE JSONOBJECTAPROPSNCOUNTICPROPLISVALID=3BCCC=[ CR] UPCSTRING=3BCCC={ CR} UPCSTRINGdTCpuValuebATCTnullHoT T[(C4TC,6CCT] CM4#TC NIYF%C8qTCCZ 1TCCCC_0VCPOINTvVCPOINTv. L$TC truefalse6 DT@C T<T@C O8Ha4 C  ( T C TC <  CToJSONhTC 24TC 2TTC_ BUPUVALUELISARRAYCTYPE CJSONVALUEITHIS _ENCODEVALUESTRINGDELIMITATOR _ENCODESTRING _ISCOLLECTIONAITEMSCOUNTITEMTOJSONENCODE  T T T-(C>lTC\Hh [{T ]}T /%T TT  , hTCC [    T C CollectionN'T CCC C C  ( CC   B U PCJSON NBLOCKCOUNTCOBJ LOPENQUOTECCHARJTHISSTRINGDELIMITATORAOBJECTSNCOUNTIORESULTADDD:BCOCCounth CItemh UPOOBJTCC %CR%TCC %LF%TCC %TAB%#TC' %SINGLEQUOTE%#TC" %DOUBLEQUOTE% BUPCSTRINGTC%CR%C TC%LF%C TC%TAB%C #TC %SINGLEQUOTE%'#TC %DOUBLEQUOTE%" BUPCSTRING TCEmptyN%CC>BHSO C=schema:TCC\@%CC 9qdfoxJSON: Schema  has not been declared C=url:4CC\ 2OC %COC|C U PCJSONPUSOURCETHISBUFFCSCHEMAJSONSCHEMASGETKEYPARSEFROMSCHEMA PARSEFROMURLPARSEIMPORTY,%C@buffCh ? B R BUCMEMBERTHISBUFF H$ CpuValuebA TC(CCC B CC C  RETURN THIS.Buff.&pcProp 2C  U PCPROPPUVALUEOARRAYITHISADDARRAYADDJSONISOBJECTBUFF JSONOBJECT %CCD"CC CollectionN q#CC[] RETURN THIS.Buff.&pcProp UPCPROPPCVALUESTHISBUFF JSONDECODEBCUJSONENCODETHISBUFFaTC%%C JSONSchemahZTUPCJSONTHISBUFFJSONPARSESCHEMA JSONSCHEMAjTC@"TCCC JSONSchema TUPCSCHEMATHISBUFFJSONPARSESCHEMASITEMSCHEMA6TCCTUPCURLTHISBUFFJSONPARSEGETURLURLH CO TCb(TC%Ch-JC puSource.( THIS.Buff. CCC  (C.TC/%Ch{-JC puSource.( THIS.Buff.UPUSOURCEAPROPSNCOUNTICPROPTHISBUFFHz CO TCb(TC%Ch-JC THIS.Buff.( puTarget. CCC z  F(C.vTC/%Chr >C THIS.Buff.UPUTARGETAPROPSNCOUNTICPROPTHISBUFFBC@UPCSCHEMATHISSCHEMABCCU JSONOBJECTTHISTOJSONH CtKTT CpaArraybATCTCC CD TC T T@C C T TCU PAARRAYTHISLINESCOLUMNSUITEMADD_ISARRAYOITEMSJSON DECODEARRAYCOUNT _ISCOLLECTIONBCUJSON ENCODEARRAYTHIS (TC 6%TC 6 (TC  BU PAARRAYNROWSNCOLSTHISLINESCOUNTCOLUMNSUITEMIITEM>4BCCC=[ CR] UPUVALUEOEBCOC BaseClassh C collection@ UPUVALUE BASECLASSBCUPOOBJJSONENCODEI%Ct+BC B BCUPCALIASJSONENCODEU %Ct3BC NBCU PCJSONSTRINGPCALIASJSON PARSECURSORBCUPCJSONJSONPARSE# BCUPCNAMEPCSCHEMAJSON DECLARESCHEMA# BCUPOREFPCSCHEMAJSONISSCHEMAF  | GetLastErrorWIN32API-|InternetCloseHandle wininet.dll.| InternetOpen wininet.dll3|InternetOpenUrl wininet.dll2|InternetReadFile wininet.dll%#)R,:Opening Internet connection...#TCGETURL%m B%'R,:Opening connection to URL... T C% C B    T  T  T  T +aT CC QC  C > % !T  C  \T  % 3R,:CCC  8999,999_ Kb received...%(R C B UPCURL PLVERBOSE GETLASTERRORWIN32APIINTERNETCLOSEHANDLE INTERNETOPENINTERNETOPENURLINTERNETREADFILENINETHNDNURLHNDCURLDATACBUFFERNBYTESRECEIVED NBUFFERSIZE JSONStart0 JSONObjectb JSONArrayInitcanonicalNotation_AssignParseQ parseCursor Encodet  encodeCursor declareSchemafIsSchemaisArrayisObject _encodeValueA_Split@ _isCollection _encodeString _decodeStringInit THIS_AccessAddaddArraym!ToJSON3"Parsek"parseFromSchema # parseFromURL#Import $Export%Is'Clone'Init(ToJSON.*ToArrayc*_isArrayv+ _isCollection+ JSONEncode0,JSONEncodeCursorh,JSONDecodeCursor, JSONDecodeW-JSONDeclareSchema- JSONIsSchema-GetURL-.T1.5 TT' T- T-          UVERSIONSCHEMASSTRINGDELIMITATORQUOTEPROPERTYNAMESCANONICALNOTATION T T T            UBUFFSCHEMAURLO T T  ! " #ULINESCOLUMNS jsonHelperCustomY5 JSONObjectCustom6 JSONArray Collection@71q;q6q1QA14q!A:qq1QAQRAAAARQr1AA!Q!AarQQQr11AB!#!AABC7s!qAsqAA!qAAQAAr7qA1Q AAAA!EAAB!A7q2AaQQAA72qA7As1!AAA6q15q18qqAA!R1rQABABABBqqAQqQA!A4q2QQRbAAAqQA4q3q113q111sAAqAAQAA7qA6QQArQA5q!1A515qQaA5q!4q5qqQ!AA!AAA6qqQ!AAAAA6q16=q1qaaArQ1Arq1AA33qQ1A3qA3qQ1q3q1A31QA3q3Q3Qp17%Ar11AqAr1A5S1AA1ABQA2P0p9P45&& '(L((m**=+,B,:Tw:S@@uG GI=IJZKMhFNN O}OP'X7X[= \\@\]H]_ Q`c#hcddNo8e8gYgthohh{Jii4jjkvkknoqLrrr ssvvvvx +xxxNy-zdz,qzz0z{8{{@{T|Da||HarF)_3c_sw|s_y&%2bM H6Y]4Q IF_CPBT_COLLif_objetos.prg   %CC T%CN T %C xcpbt_mailbC T  TTC T%Cartxcli FQartxcli T 0 - Fecha y hora : CCC  0 - Area tempcomp : CCCtempcompWZC  0 - Datasession : CCC DatasessionvZTCtempcompWdQIF_COMPROBANTEif_objetos.prgQIF_COMPROBANTEif_objetos.prgQ EXCEPTION&Q IF_EMISORif_objetos.prg)Q IF_COMPRADORif_objetos.prg*Q IF_ITEMS_COLLif_objetos.prg$QIF_ITEMif_objetos.prg-QIF_AGREGADO_COLLif_objetos.prg- QIF_AGREGADO_COLLif_objetos.prg1!QIF_PERCEPCIONES_COLLif_objetos.prg%CoCPBT_FbO/TCIF_ComprobanteIF_Objetos.prg%CoCPBT_RbO)/TCIF_ComprobanteIF_Objetos.prg"5# C$ T#-T%&  T'( T)* T+,%%Cxcopias_forzadobL T%CATRIBUTO QatributoVG+(listadosdey_funcsys_mail_funciones ve_pedidosys_pdf_archivado T3 T4 T5 T6 T7 T8 T9 T: T;T< T= T> T? T@?Alistados3456789:;<@TB@C#%C sucprop.emailbC%DE%Csucprop Qsucprop'%CDEsucpropcodigoT4CEFZT5CCCEG(6CEGCCEG)6 CEH(T6CCCEJIf - ARGENTINATKCCCEJIfTLC ARGENTINAT7CEMTBCECTN@OTP@Q(T>R\cpbt\S -logo.jpg T=T T?U&TVCWP XYZY6 T[\listadosV[T]@^5_`abT_CcT`CcTaCcTbCcC?2T@CCCA CA - 6CB/TCCCCDIfCn6TECFTGCHTICI TJ4,TKC>, @, CCCDIff%L{FG((codigo EL FG((codigo#) TMN TOP TQR TST TUV TWX TYZ T[\ T]^ T_` Tab Tcd Tef Tgh Tij TklTmCnToCp2TqCCCr Cr - 6Cs=TtCCCuIfCCCuI/6CnfTvCwTxCy Tz{ T|} T~HW w T~  T~  T~  T~ T T%&r TF~n >TCC/6CC@z 999,999,999_  "TCC@z 999,999,999_TC,. T T T T T%Wcd:!%C6!TC TT S  T T TTCCTCC T T T T T T TTCCnCVFC/CcNCCdNDXX666 C= 00C\C R6 T T *(TxCy ES UNA PRUEBA6T{ T} T T T T T T T T T T T T T TT%$FG((codpro E%%S  `$FG((codigo ETT%$%TCCS6TCF;TCCCGCG - 6CH4TCCCJIfCn6TCM T TT%S%TC T- O&%S%TConsumidor Final  &TCTS%& K& T- T T T T T T T T T T' T( T) T* T+ T, T- T/ T1 T3T67 T< T> T@ TC TE TG To Tq Tt Tv Tx Tz{ T| T~ T- T- T T TTC(XTC(X T TT S  T TTCCTCC T T T T T T T-TO.P.: CC@z 9999,999,999_ T T T T T T TTN TTCX TTCX T! T T TTNT< J( T T T T T T%& + C< 7 J( T-F7~C  +%C +FG((codins E)>CT S %,1%CR\cpbt\vpedido_importados.txt0,0TCR\cpbt\vpedido_importados.txtTCTCTCNTCAprobado*C Sin Analizar Rechazado66<  J( T-5 T J( T T T%Ctmpexpan-FQ5TC,h1N MMQ&  T T T T T T T T T T T T%C&`/%Cmotivos /Qmotivos%=/Cmotivoscodigo TTCn%Cbieaux /Qbieaux%Cmedidas /Qmedidas%Clineas /Qlineas%Cgrupos 0QgruposF7~C  H%CprecdescbN0->CC d 6T'%C  O2TTTT#TCtempcompOHk1K2 1TC1TC S 6TCtempcompO K2TC1TC S 6TCtempcompO%CFG((codins ECbieauxcodF!CmedidascodigoTnT !C medidascodigoT nT   T TCnT(%Ctempcomp.descramplbM3>"%C tempcomp.txtbM3>%%Ctempcomp.ad_licbN4>%S>5FG((codigoE!CmedidascodigoTnT !C medidascodigoT nT  TCnFG((codigo ECX T T U5 T%S5F-G((codigoETC-n 5 TTT S FG((codigo,%U6 ECXF%Cn6TCn 6'TCC C CL>  !"  8>#CS S ##6L>$%&CS S &&6%C'7)>'CS ''6%(|8T)*T+,&%S S x8%C* K8T)*%C, t8T+, 8&%S S 8T)*T+, 8T)*T+,F!>-C) Z.C+Z%/& :T0T1T2 T3 T4 T5 T6 T7 T8 T9 T: T;T<CC= =6 T> T? T@aAproc_stk012;<3456789:>?@F>CC3D%D:"TCCTy%E FS /ECD(G FS  !EH FS   n; >I%CI; >I%C; >I TJ TK&%S WVcdr BFLG((primario%A TX?>TJJCCJ, 6(CCL\cZ) 'TKKCCK, 6%WZ>VTJJDSP:CCC[ [W6 AD:C] OR:C^ PR:C_ T?%`P?TJJLOTE:CWTKKLOTE:CW T@ TJ TK%WZ? TJCCC[ [W6 ?%`?TJCWTKLOTE:CW T%A'TJJCCJ, 6'TKKCCK, 6%WZ@2TJJL:CCCC[ [W6 \ !A%`A?TJJCCJ/L:6CCC[ [W6TKKL:CWFLH A%C4A%WZyATJCW A%`ATJCWTKCWF TaCO&%CCJ> CCK> 4Bi1tempcompMi1tempcompM #a >J >K;rtmpexpanCtempcompOJKF C%Cb C%Cb BTJJ D:Cb%C] CTJJ A:C]%C^ QCTJJ O:C^%C_ CTJJ P:C_F >J%& C >IG+( ve_pedido%&FTC6)Tc C(  ;Tde   f Cg (%c cCg   EThC6;>Cid TCid T%E%d 5E > E%pE> d  E#>C d  T E#TC6h%F>jC TTC6F G((idE TlC4O%l=CnmnoCCartxcli.descr_adibCp6 F%q& F F Cr%l C* 'GF>-C* Z%l C, cGF>.C,Z6TCCC 6sDTCCsDTCCsD8CCD DD6lineascodigo8CCt tt6gruposcodigoFD>uuvnwnxxH%y C & Ctempcomp.markupbN HCzF Tf{{(eOI/TffC{,6CC{d C|%}I T} IT} %~IT~%ITrTC  1 - Area tempcomp : CCCtempcompWZC  1 - Datasession : CCC DatasessionvZ%J,%CR\cpbt\vpedido_lotes.txt0J+TCR\cpbt\vpedido_lotes.txt <  J(%lKFTCC 6C}6TC 6$TC 6 K TTCT% M TC6 TC TaTC+aMFCC   (TC 8%LT{Gz?E~C   hM%L!F%M> >M>TT%C  MEC8Mucho tiempo para acomodar el IVA incluido en VPEDIDO!!! T-%M!5TCCC 6C}6T T T T T TTCd TTCd T#TCd T'TCd T+TCd T T%& O T&TCC 6TCC 6TCC 6TCC 6 -P TTCC 6 T T T<%Cprovinc PQ\provincFI~CQ>TICCI CI6&TICITII &TICI2%CICI QSTCC , PER.IIBB 6CI  CCCI Z%%Ccons RQcons#),TCCC 66,TCCC 66 T T T%S{(SHRS C{"S<TCC"C C{" C{"66# C{"%@|S<TCC"C C{" C{"66 C{"S T 2S%CTasa de IVA invlida !!!BTCC 6TCC 6 T T %-U.%CModifica los decimales ?U%Ccur_ajTQ?otempcompaCOQi cur_ajve_ajuste_decimales%Ccur_ajUQF Tlistados TgT T@TC MediaC Alta Normal66%& ]V T T T T T T T T, ve_aprobacion V T T T T T T T T"TCC 6 TTC000CCZR T T%&XHTC/C AUTORIZADA SIN AUTORIZAR66 T TCTC$Nota de Crdito para Autorizar Pedido6TPDCCZ!TC@z 9999,999,999_TP T T TT T!TC@z 9999,999,999_TP T ja T:TCCCRgC=00C R6+TCCCRgC=61TCCCRg00C R6:TCCCQRgCQ=00CQ R6%&,[{(([%CC{$[%dZ% ZT, @TCCCCC{\gZ-CCCCC{\gZ  [D%CC{ccventremitoCZ DIF PESADA  [%ZT, @TCCCCC{\gZ-CCCCC{\gZ+TCCCQRgCQ=61TCCCQRg00CQ R6%]H[] &2\ATNota de Dbito CCի de Crdito6TND TTd &\ATNota de CrditoCCի de Crdito6TNC TTc & ]TNota de DbitoTDP TT5 &]9TFacturaCCի de Crdito6TFC TTV 2] TTRE TQTr d`H]`` &}^NTNota de Dbito ElectrnicaCCի MiPyME (FCE)6TND TTd & _OTNota de Crdito ElectrnicaCCի MiPyME (FCE)6TNC TTc & i_TNota de DbitoTDP TT5 &`qTFacturaCCի de Crdito6 ElectrnicaCCի MiPyME (FCE)6TFC TTV 2`` TTRE TQTr*%C& C ` T de Exportacin0Tw#IVA EXENTO OPERACION DE EXPORTACION T T T TW TT#ve_procs T T T T T T T%Cxarm_exhbNa T a T TC& X-6rTC  2 - Area tempcomp : CCCtempcompWZC  2 - Datasession : CCC DatasessionvZFTN%C} b b% b C [%&CD(G     4  kd5%&CD(G  c Ta Ta%Cz C| gdF %c> z Tz%d> | T|>#ZZZZZZ Kd>V' cd>V TT(alltrim(cod_ins+desc_ins)#"" .and. recepcion#0 .and. (xfiltro=0 .or. ( (xfiltro=1)=aprob )) and adicexport=0 and impuesto=0) or !empty(cpbttxt)F,count to max_registros for &xfiltrodatos %}ertempcomp . T TTCCC eCCL Percep.BSAS:CC Z (CCC Z%)C 66TCCC eCCL Percep.CABA:CC Z (CCC Z%)C 66TCCC eCCL Percep.S.FE:CC Z (CCC Z%)C 66TCCC eCCL Percep.MIS.:CC Z (CCC Z%)C 66%C+hTTTT whTCCTCTC  T%& p5(C&C 6p%h T! i T!T!"T!#T!$T!%T !&T!!''T!(C!)EX6Hixk% C& iT!)FT!*!( C&jT!)DH jj !(AHjT!*D& !(B !(C jT!*E C&kT!)MHjk !(AjT!*R& !(B !(C kT!*S C& ]kT!)ET!*r 2xkT!) T!+/T,C-C - 6/T.C-C - 6T/T0T1T2C - C%C5 m/T,C-C - 6T.C - C5T3/T/0T05T1 Entrega: >T2C - CT4IT4Ca5T6Ca5-T7CC CCUIT6%C7mT7..T8CC9 CC:6;F scan for &xfiltrodatoso%C-nT;Art. .o<%C= an T< o#T<CC=C6Hno C=nT<(<) C=nT<< -  2oT<< T;C<>=QC;C d 6id M@?%!)Ep%o'C DESCUENTO: D A%p*COImpuestos Internos A%_p/CORecargo No Categorizado A%p9CO Per. IIBB BA CC Z%:!AC!B TC- TD TE TF TG TH- TI TJ% _q T%t TK TL&CKL9'x{MHqt urTHCONTICQPmTJCWVFC/CWcNCCWdNDXX666  -  -  tHr t WVHsTHCONTICQPmTJCWVFC/CWcNCCWdNDXX666  -  -  Wc Wd tTHCO\STICCQ\gmTJCWVFC/CWcNCCWdNDXX666  -  -  v TK TLHItv WVtTHCONTICQPmTJCWVFC/CWcNCCWdNDXX666  -  -  Wc Wd uTHCONTICQPmTJCWVFC/CWcNCCWdNDXX666  -  -  WPvTHCONTICQP%TJC@ -  - TJCJR&TSCCCTJpdf TU-TVC4D(W(%V B  x1%CR\CPBT\VPEDIDO_S-1.PRG0w*R\CPBT\VPEDIDO_S-1.PRG x%x%&gwTDXTEYTFZ[ x)%&& &  x%wTD\TE] wTD^TE_TFZ` x%&x%[xTDaTEb xTDcTEdTFZe x TD TE TF y1%CR\CPBT\VPEDIDO_S-3.PRG0Cy*R\CPBT\VPEDIDO_S-3.PRG }yTDfTEgTFZe?TGC&C&h Zi66TFCF6TDCD(jTDCDk%C .z TD Tl Tm>%CoCPBT_QRbOCn\BarCodeLibrary.DLL0 zTopxToq{TmClaors zF#%C tempcomp.lastbL={ >t-set filter to &xfiltrodatos #6 >taG(#)Tvtempcomp%ws}%Ctmpcmpr{Qx%Ctmpcmpr1{QyF6copy to (p_local+"\tmp\tmpcmpr") for &xfiltrodatos FQn \tmp\tmpcmprx& WotmpcmprCQCQCQC tmpcmpr1FxH>IC Fy ~}Fx Ey*>yyy%Ctmpcmpr1B}QyFxxTvtmpcmpr;%|  & &  %0 } Fv(}% ,%}D~(R \cpbt\comandaCCRg%C~( l~ Fv(z~F%e e  &   7slistadosDFEaaaaa-HJ-v Q%&;CR\cpbt\SC _vfc_vfce6.fxp0 ?R\cpbt\SC _vfc_vfce6.fxp   Fv(%CD %%   slistadosDFEaaaaa-aJ-vslistadosDGFEaaaaa--J-v xlistadosDGFEaaaaa-HJ-v s%He  %e e   CWd Ca6   $%H e  EslistadosDFEaaaaa-aJ-v% GCJIW e   7 S A % GCJIW e  %CD   $M%e e  CWd Ca6 I T T% KTCJIW e  %E „ Fv(ЄqlistadosDGFEaaaaa--J-v T-$sys_pdf_archivadoCW% %E%CS0 SslistadosDFEaaaaa-aJ-v TUa h TU-22SC%U S VC7La factura electrnica no se guarda porque COPIAS=0 !!! % l Fv(z%  |qlistadosDGFEaaaaa-aJ-vslistadosDGFEaaaaa--J-v qlistadosDGFEaaaaa-HJ-v   % Fv(3rTC  3 - Area tempcomp : CCCtempcompWZC  3 - Datasession : CCC DatasessionvZ|To(alltrim(cod_ins+desc_ins)#"" .and. recepcion#0 .and. (xfiltro=0 .or. ( (xfiltro=1)=aprob ) ) and adicexport=0) T$T or !empty(cpbttxt)%&F#%C tempcomp.lastbLԊ >t-set filter to &xfiltrodatos #6 >taG(#)% TX?TCFACTURA PROFORMAPROFORMA INVOICE6FC&Cd. %"Comprobante no vlido como factura6 TCa%CD(G!TC@z 9999,999,999_TPTCCZTHCO\S2TJ Proforma CZ -  - TJCJR TD TE TF TG1%CR\CPBT\VPEDIDO_S-3.PRG0*R\CPBT\VPEDIDO_S-3.PRG TDfTEgTFZ[?TGC&C&h Zi66TFCF6% {listadosDGFEaaaaa-HJ-tempcomp TGC6 TFTDaTDCD(jTDCDk%C TD!TC@z 9999,999,999_TPTFactura ProformaTCCZTHCO\S2TJ Proforma CZ -  - TJCJR F(}listadosDGFEaaaaa-aJ-tempcomp%Ctmpcmpr>FxQ%Ctempcomp $TC datasessionv% (d  G(H%CtempcompCclientes Cccclie Cventas !  TrTC  4 - Area tempcomp : CCCtempcompWZC  4 - Datasession : CCC DatasessionvZ%# C!%SSAM& /F#%C tempcomp.lastbLP >t-set filter to &xfiltrodatos #6 >taG(#)!TC@z 9999,999,999_TPTHCO\S=TJOrden de Produccin CZ -  - TJCJRTD sam_op.frx TETFZ[?TGC&C&h Zi66TFCF6% +listadosDGFE.t.aaaaa-HJ-tempcomp(%SDALCtempcomp TC]TC  5 - Area tempcomp : CC  5 - Datasession : CCC DatasessionvZC  5 - Log file : $C\log\.txt"+(\log\.logqC9Error interno, no se puede continuar con la impresin !!!C !Pruebe reimprimir el comprobante.CBORRAR1CBORRAR2CBORRAR3CBORRAR4 CB T TTCCQ\g T<%%Cnumfac.textoimpbCƖ"onumfac% –TC%SNUV(C9091M :(C9091MTZF T,T or !empty(tempcomp.remtxt)%  C %& F#%C tempcomp.lastbL- >t-set filter to &xfiltrodatos #6 >taG(#) T TD TE TF TGTCONTCQP1%CR\CPBT\VPEDIDO_S-2.PRG0*R\CPBT\VPEDIDO_S-2.PRG J%&dTDTETFZTNRCCZ FS%&& & & &    TD TE TF T BTDTETFZTRE?TGC&C&h Zi66TFCF6 TDTDCDj%TDCDTDCDkTvtempcompH4 B%CtmpcmprjFxQF6copy to (p_local+"\tmp\tmpcmpr") for &xfiltrodatos FQn \tmp\tmpcmprx7(CCCNG CCNG6 xT adicexport=0Tvtmpcmpr %CtmpcmpruQx%Ctmpcmpr1QyF6copy to (p_local+"\tmp\tmpcmpr") for &xfiltrodatos FQn \tmp\tmpcmprx& =otmpcmprCQC tmpcmpr1Fx4>IC Fy ~Fx Ey>y%Ctmpcmpr1QyFxxTvtmpcmpr%C 5 TD.TCRE Q -  - R TJ&TSCCCrQTpdf%&5% 1,% SNUV & TCselect distinct iif(val(dbul)=0,"EXP",iif(between(val(dbul),1,200),"ENT",iif(between(val(dbul),300,399),"3 ",iif(between(val(dbul),400,499),"4 ","???")))) as piso from &xtabla_datos where recepcion#0 into cursor pisos &  T T ~TT TD TG TF TE T T T FlistadosDGFE() and iif(val(dbul)=0,"EXP",iif(between(val(dbul),1,200),"ENT",iif(between(val(dbul),300,399),"3 ",iif(between(val(dbul),400,499),"4 ","???"))))=xpisoaaaaa-v TD TG TF TE T - TQTr T6%& CR\cpbt\S_rfc.fxp0 $R\cpbt\S_rfc.fxp )listadosDGFEaaaaaC&6C&6v$%   Ϥ TU-%CS0  gvlistadosDFEaaaaa-a-Qrv% @2Cra D  Y S c ˤ% ǤCCC6ra D %CtmpcmprFxQ%# C T)%&  ܦF TTDcontrol_ciego.frx TE TF TGTFZTCCCCZ TGTFCF6% TQTr{listadosDGFEaaaaa-tempcomp%CtmpcmprئFxQ%# C%# C TC packing list)%&   zF C T TF (n\tmp\tmp_packing'Qn\tmp\tmp_packing< TF~C C E(CC'' 6 6^(F _)>VC'6F%CN TD TE TF TG1%CR\CPBT\VPEDIDO_S-3.PRG0X*R\CPBT\VPEDIDO_S-3.PRG TD packing.frx TETPL"TGC Zi6TFCF6DT7!empty(recepcion) and !empty(cod_ins) and adicexport=0%CR\CPBT\D0%C a TD% {listadosDGFEaaaaa-tempcomp   %C tmp_packingEFQF T%#v CFG((codins%# CFG-(>n T T TD TE TF TG1%CR\CPBT\VPEDIDO_S-3.PRG0*R\CPBT\VPEDIDO_S-3.PRG |%& 7%&& Ƭ 3%&%%TDCc_AD.Cc TETFZe /"TGC Zi6TFCF6TDCDkH C753C>ĭ 2 TD TE TF TG%SSCHhT[alltrim(cod_ins+desc_ins)#"" .and. (xfiltro=0 .or. ( (xfiltro=1)=aprob )) and adicexport=0%# CFG-(%C Ѯ TD% n{listadosDGFEaaaaa-tempcomp%# C/%C&  FG((codins T T TD TE TF TG3%CR\CPBT\VPEDIDO_S-TSP.PRG0,R\CPBT\VPEDIDO_S-TSP.PRG &TDC_TSP.C TETFZ"TGC Zi6TFCF6FG-(%C ? TD% ܱ{listadosDGFEaaaaa-tempcomp%# C$%C& ]FG((codins T T TD TE TF TG3%CR\CPBT\VPEDIDO_S-ENT.PRG0,R\CPBT\VPEDIDO_S-ENT.PRG v&TDC_ENT.C TETFZe"TGC Zi6TFCF6TDCDFG-(%C TD% Y{listadosDGFEaaaaa-tempcomp%# CCBORRAR1CBORRAR2CBORRAR3CBORRAR4 CBUREALTIMEBATCHPRIXFILTROXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNFORMULARIOOCPBTC IF_OBJETOSPRGXDOSTRANSFERENCIAXENVIARMAILNOREALTIMEXAUT XSOLOSALDO XPROFORMA ZEMAIL_CPBT XCLIEMAIL XCPBT_MAIL ZES_SALDOARTXCLI LOG_TEMPCOMPLOG_AREA_TEMPCOMPNITOCPBT_FOCPBT_ROEXOEMIOCOMOITMSOITMOPAGOODESCOPERT_IVAARRXRECUPERAR_TEMPCOMP SAVE_TEMPCOMPZNDPROXTIPOPEDZSUCFACXSUCFAC ZCPBT_NUM_ACTXCPBTZ ZCPBT_NUM_MAXXMAXCPBTATRIBUTOLISTADOSDEY_FUNCSYS_MAIL_FUNCIONES VE_PEDIDOSYS_PDF_ARCHIVADO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESA ZEMPEMAILEMAILNUMFACSUCPROP DOMICILIOCOD_ZIPCIUDADPROVINC PROVINCIA ZEMPPROVINCIAZEMPPAISPHONOZEMPWEBWEB ZEMPTXTCPBTTXTCPBTP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAZUSUARIO_CODIGOXCAUSATCCVENTUSRCCVENTZUSUARIO_NOMBREUSR_NOM ZCUIT_TEXTO CUIT_TEXTOBORRAR1BORRAR2BORRAR3BORRAR4NEWFILE ZDESPACHOSZDESPACHOS_CANTIDADZDESPACHOS_TXTXPLANCONDCOBRPLAN ZCONDICIONVARIABLE XCNDSP_DESCRDESCR2DESCRZCONTRAREEMBOLSO REEMBOLSOCONDPAGOZDTXDTZDTMXDTM ZFECHAHORAZLEYENDA_EXPORTACIONZCAE P_FCE_TESTINGXFCE_CAE ZCAE_VENC XFCE_VENCZTEXTO1 ZARR_TEXTOSZTEXTO2ZTEXTO3ZTEXTO4ZTEXTO5ZAPROB_CREDITO AP_CREDITO ZAP_CREDITO XAP_CREDITO ZAP_ATRASO XAP_ATRASOZAP_ATRASO_GLOBALXAP_ATRASO_GLOBAL ZAP_CRED_CHQ1 XAP_CRED_CHQ1 ZAP_CRED_CHQ2 XAP_CRED_CHQ2 ZAP_CRED_CC1 XAP_CRED_CC1 ZAP_CRED_CC2 XAP_CRED_CC2ZAP_CRED_DIAS1XAP_CRED_DIAS1ZAP_CRED_DIAS2XAP_CRED_DIAS2ZAP_CRED_RECH1 XAP_RECH1ZAP_CRED_RECH2 XAP_RECH2ZAP_EVALUACIONXAP_EVAL ZLOG_NOMBRE ZLOG_CDIGOCLIENTESTARJETAPAISPAISESCODIGOXCLIPAISCOD_CLIXCOD_CLICODCLICLIOTROS XXCLINOMBRENOMBRE XXCLIFANTASIAFANTASIA P_UNEGOCIOS XUNEGOCIOSREGISCLI ZCLIVARIOS ZCLINOMFAC XCLINOMFAC ZCLIFANTASIA XCLIFANTASIA ZCLINOMBRE XOTRO_CLI ZCLIDIRECCION XCLIDOMICILIO ZCLIZIPCIUDAD XCLICOD_ZIP XCLICIUDAD ZCLIPROVPAIS XCLIPROVINCIA ZCLITELEFONO XCLIPHONO ZCLIDOMALTDOMALTZCLIPAISZLISTAXLISTA ZLISTA_TXT LISTA_DESCRZIVACATXIVACATZCATIVA OLOCALIZACION!IVA_CATEGORIA_CLIENTES_TEXTO_CPBTXIVAINCIVA_DISCRIMINADOXFECEMIP_VE_PD_IVA_INCLUIDOCFG_LISIVAINCP_CODEMPP_DOSP_UNO SYS_DOSCEN ZCLICODIGOZCUITTXT FN_TIPODOCXTIPODOCP_TIPODOC_VERSIONZCUITXCUITZRUTRUTZIIBBIBXRFCRUBROFAC ZRUBROFAC ZCONTACTO XCONTACTO ZPROVEEDOR PROVEEDOR XVENDEDORAGENTECOD_AGECODAGE ZVENNOMBRE ZVENCODIGOZPEDVENXPEDVEN ZCENCOSFAC XCENCOSFACZNREXNRE ZPROMOCION XPROMOCION ZREVISION XREVISION ZFCE_CONCEPTO XFCE_CONCEPTO ZFCE_PERIODOXFCE_FEC_SERVDXFCE_FEC_SERVHZFCE_VENCIMIENTOXFCE_FEC_SERVPZREF_CCXREFCCZLEYENDA_FCE_1ZLEYENDA_FCE_2ZLEYENDA_FCE_3ZLEYENDA_FCE_4ZLEYENDA_FCE_5ZLEYENDA_FCE_6ZLEYENDA_FCE_7XTIPO_COMPROBANTE ZFCE_CREDITOP_FCE_CRED_CBUFC_CBUZFCE_CBUFC_ALIASP_VE_VLD_LEYENDA_FCE_CZTIPOEXPXTIPOEXPZTIPOEXP_DESCRIPCION XTIPOEXPDZTIPOEXP_SUBTOTAL XTIPOEXPPZTIPOEXP_SUBTOTAL_DESCRIPCION XTIPOEXPPDZCESDSPXCESDSP ZFPRORROGA XFPRORROGAZPERMISOXPERMISOZTIPOEXPORTACION_SUBTOTALP_SYSTEM INCOTERMSINCOTERMZTIPOEXPORTACION ZINCOTERMXFLETEFLETESCOD_FLECODFLE ZFLENOMBRE ZFLECODIGO ZFLEDIRECCION ZFLEZIPCIUDAD ZFLEPROVPAIS ZFLETELEFONO ZFLEHORARIOHORARIOZFLECUITCUITZFLETIPOTIPO ZFLETEXTOXENTPAIS ZSUCNOMBREZTIENE_SUCURSAL XSUCURSALDOM2XSUCSUCURSAL ZSUCURSAL ZENTNOMBRE XENTNOMBRE ZENTDIRECCION XENTDOMICILIO ZENTZIPCIUDAD XENTCOD_ZIP XENTCIUDAD ZENTPROVPAIS XENTPROVINCIA ZENTTELEFONO XENTPHONO ZENTHORARIO XENTHORARIO XENTCOORDZENTPAISZDOMICILIO_DE_ENTREGAXFCEPAIS ZCAR_ARRIBO XCAR_ARRIBOZCAR_INIXCAR_INIZCAR_FINXCAR_FINZCHOFERXCHOFER ZCHOFER_DNI XCHOFER_DNIZDOM1XDOM1ZDOM2XDOM2 ZCAR_TARA XCAR_TARA ZCAR_BRUTO XCAR_BRUTO ZCAR_NETO XCAR_NETO ZBOLSONES XBOLSONES ZFLD_CLI1C XFLD_CLI1C ZFLD_CLI1N XFLD_CLI1N ZFLD_CLI2C XFLD_CLI2C ZFLD_CLI2N XFLD_CLI2N ZTRANSPORTE XTRANSPORTE ZFCENOMBRE XFCENOMBRE ZFCEDIRECCION XFCEDOMICILIO ZFCEZIPCIUDAD XFCECOD_ZIP XFCECIUDAD ZFCEPROVPAIS XFCEPROVINCIA ZFCETELEFONO XFCEPHONO ZFCEHORARIO XFCEHORARIOZTXTCPBTXTXTCPBT ZTXTREMITO XTXTREMITOZESPOBSXESPOBSP_VE_OBSERVACIONES_ESPECIALES1P_VE_OBSERVACIONES_ESPECIALES2P_VE_OBSERVACIONES_ESPECIALES3P_VE_OBSERVACIONES_ESPECIALES4ZPEDIDOXPEDIDO ZCOTIZACION XCOTIZACION ZPEDIDOTXTREMXFACFACTURAXNUMEROFPEDIDOZORDENDECOMPRAXOCZORDENDECOMPRASORIGEN XOCTXTSOL ZCONTRATOZIDIOMAXIDIOMA ZEN_MILES XEN_MILES REFERENCIA_OCXNUMREFXCAUZDESCUENTOSTXTXBONIFXDIVXMONEDAXDIVISAS ZENDIVISASZCAMBIOXCAMBIOZMONEDA ZMONEDATXT MM_MONEDAZMONEDASIMBOLO ZPRODUCCIONXOT ZTRANSACCIONXTRAN ZFECHAEMISION ZFECHAENTREGAXFECENTZFECHAENTREGA2XFECENT2ZHORARIOXHORARIOZPLAZOXPLAZO ZREFERENCIA ZFECHAPEDIDOXFEC_INI ZVALORIZACIONT_VALORPROVEEDOCOD_PROXCOD_PROPROVEDOCODPRO XOTRO_PROIVACAT$IVA_CATEGORIA_PROVEEDORES_TEXTO_CPBTXCOFINIVA_CATEGORIA_PROVEEDORES_TEXTOXITMCOMFXITMCOMRNOPT_DESC3T_DESC4T_DESC5 ZTIPOEXPP IIBB_PROVT_VALORDECLARADOXFIS_IMPXFACTURA_ELECTRONICAP_VE_REMITOS_REJUNTE JUNTAR_ITEMSZIMPORTADOS_TXTZIMPORTADOS_HAYTEMPCOMPCOD_INSDESC_INSAPROBBIENESCODINS IMPORTADOCONTROLAR_IMPORTADOBULATRAAA TOMAR_LINEAZAPROB_CREDITO_TXT ZLOTES_TXT ZLOTES_HAY ZARR_NOITEMSZMAXARR_NOITEMS ZSUBTOTAL XSUBTOTALACCIVATMPEXPAN XTMPEXPANNEWFILE_LOCAL_TMPITMDESPATXTDESPAPCKZEXPORTACION_FLETE_DESCRZEXPORTACION_FLETE_IMPORTEZEXPORTACION_FLETE_REGISTROZEXPORTACION_SEGURO_DESCRZEXPORTACION_SEGURO_IMPORTEZEXPORTACION_SEGURO_REGISTRO ZDECIMALESZDECIMALES_CANTIDADZDECIMALES_BULTOSZLITROSZMOTIVO ZMOTIVO_DESCRMOTIVOSXMOTIVOBIEAUXMEDIDASLINEASGRUPOSPRECDESCCOS_LIFOP_DESLINDES_INS RECEPCION ADICEXPORTTOT_COM MO_TOT_COMOBIEDATA_CODIGO_VACIOMEDCODXMEDIDA XMEDIDAABRABREV MEDAUXCODXMEDAUX XMEDAUXABRXFACTORFACTOR XBIEDESCRXCODALTCODALT1 DESCRAMPLTXTAD_LICBULTOSXBDESCRSTOCKCODALT ATRIBUTOSXADESCRZNCMNCMLOTESXDESCRMEDIDAMEDAUX MEDIDAABR MEDAUXABR UBICACIONBULDESCATRDESCSUBGRUPO CANTXBULT P_VE_EAN_DUNXEAN13BARRASXDUN14DUNEAN13DUN14P_VE_PEDIDO_STOCKXCODXATRXBUL XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLNXCENTRAL XDEPOSITOXDEPOS XEN_CALIDAD XEN_RECHAZO XTIPO_DEP OBTENER_STOCKPROC_STKSTOCKKLINEA P_VE_DESCRVARDESCRVAR EXPORTACION XDESCRVAR DCODATRBULXDSP XDSP_PACKINGMOVSTOCKPRIMARIOXID_MOVREMITOOLDITMXNUMERORFAC_VENCAUSAP_VE_DESP_IMPRNUMEROITEMDESPACHOCOMENT FN_DESPACHOSIMPORTACLOTEEXTCANTIDADADUANAORIGENPROCEDP_IMP_LOTES_NACXREGISTRO_TEMPCOMPDESPA XES_CUENTA_2XXX XZONAFRANCA P_IVA_CAT_EMPFC_2_CON_IVA_INC OLDSINIVAIVAPER COS_LIFO2IDXFOUND_ARTXCLIALTCODALTATRALTBUL DESCR_ADIP_VE_ARTXCLI_DESCRREEMPLAZOS_ARTXCLI DECIMALESGRUPODMARCADLINEADGRUPOMODELOP_PD_VALORIZACIONVALORIZAR_ITEMZCOMBINAR_ITEMSXPERDESC T_ADIC_IVA T_ADIC_DTO672XIVADESCT_DESCOM TX_DESCOMXDIFIVAT_IVATX_IVA XSIGNOIVAXTIEMPO_PERDIDOXTIEMPO_PERDIDO_INIXACCXCNTXVAL2MENSAJE ZDESCUENTOS ZDESCPOR1T_DESC1 ZDESCPOR2T_DESC2 ZDESCPOR3 ZDESCPOR4 ZDESCPOR5 ZDESCUENTO1P_VREDON ZDESCUENTO2 ZDESCUENTO3 ZDESCUENTO4 ZDESCUENTO5ZIIBBTXT ZIBPERPORXPORCENTAJE_IIBBZIBPERT_DTO672 TX_DTO672TX_ADIC_DTO672ZIIT_IITX_IIZIVANOIT_IVA26TX_IVA26ZRECARGO T_RECARGO TX_RECARGO ZIIBB_PROVCODCONSZIVAZRG5329 T_IVA_RG5329 TX_IVA_RG5329ZIVA0ZIVA21ZIVA105 MAXIVAARRIVA ZREDONDEO T_REDONDEO TX_REDONDEOZFINALT_FINALTX_FINAL ZFINAL_PESOS ZFINAL_MO MENSAJE_SINOCUR_AJREGISTROVE_AJUSTE_DECIMALES ZIMPORTETXTLETRASZPLAN ZVENCIMIENTO ZPRIORIDAD XPRIORIDAD ZDPRIORIDADZVOLUMEN T_VOLUMEN ZPESOBRUTOT_PESO ZPESONETOT_PESONZBULTOST_BULTOS ZUNIDADES T_RECEPCION ZAPROB_STOCKAP_STOCKZESTADO_PEDIDOXRES ESTADO_PEDIDO VE_APROBACION AP_GERENCIAZVALORDECLARADOZTIPO_COMPROBANTE_EZCOMPROBANTELETRAZCOMPROBANTENUMERO ZPD_NC_AUTXTIPO_NC ZCOMPROBANTEZREMITOZTIPOCOMPROBANTE XIDARCHIVOZID12ZCAUSA ZIDCOMPROBZIDCAUSAZCAIZCAIVTOZCODIGO_DE_BARRAS_AUTOIMPRESOR ZIDCPBTNUM ZIDCPBTCAUP_VE_MAX_REMITOS XARR_REMITOSP_VE_REMITOS_COMBINADOSREF ZREMITOLETRA ZREMITONUMEROP_FCE_CRED_TEXTOCAI_VTOVE_PROCSXSUCFACRZARM_CODXARM_COD ZARM_QUIEN XARM_QUIEN ZARM_INICIO XARM_INICIOZARM_FINXARM_FIN ZARM_CAJAS XARM_CAJAS ZARM_PALLET XARM_PALLETZARM_EXHXARM_EXH ZBLOQUEADOARM_BLOQXDVALP_VE_ASSEMBLIESCONSOLIDA_ASSEMBLIESP_LOCALIZACIONCPBTTXTREMTXTZITMCOMF XFILTRODATOS MAX_REGISTROSXOLDFILTRODATOS ZIBPER_TXTTYPEOOPLATAFORMA_HOLDERZREF_EXTREF_EXT_ORIGINAL ZPLATAFORMA PLATAFORMA ZNICKNAMENICKNAMEZPLA_LOGISTICALOGISTICA_TEXTOOBTENER_REF_EXT_ORIGINALXREF_EXT XPLATAFORMA XNICKNAMEOCPBT OBJ_EMISOR OBJ_COMPRADOR OBJC_ITEMS OBJC_PAGOS OBJC_DESCRECOBJC_PERCEPCIONESIF_LETRAIF_TIPOIF_TIPO2 IF_REMITOS1 IF_NOMBRE1P_FIS_CODIGO_CLIENTE IF_NOMBREFIF_DOM1IF_DOM2IF_DOM3IF_DOMF IF_NOMBRE2 IF_IVA_TIPOIVA_CATEGORIA_CLIENTES_TEXTO IF_IVA_TIPO2 IF_TIPO_DOCIF_CUIT XDOCUMENTO CUIT_NUMEROS XDESCRBIEXBITCODP_FIS_CODIGO_ARTICULOP_FIS_LARGOITEMSIF_AGREGAR_ITEMII IF_AGREGARADD ZPROFORMA XFORMULARIOXCOPIASXDRIVERXDESTINO XCOPIAPDF XMAILTIPO XARCHIVOPDFZCODIGO_BARRASZLECTURA_HUMANACODIGO_DE_BARRAS_CAE_VENC MAIL_CPDFCOPIAPDF MAIL_MT_VALORMAILTIPOLIMPIAR_FILE_NAMEXARCHIVOPDF_FULLPDF_PATHXARCHIVOPDF_TMPXIVA_NO_ALCANZADO_AL_EXTERIOR NO_ALCANZADOPDFORMPDCOPIASLOCALESPDNCEFORM NCECOPIASNCFORMNCCOPIASNCFCEFORM FCECOPIASFCFORMFCCOPIASFCFCEXFORM FCEXCOPIASP_PD_IMPRESION_VERSIONVE_022FP_PUNTO_VENTA FP_CLIENTEZQRJSONZQRP_LOCALOCPBT_QRCAE CAE_FECHAOBJ_QR FE_GENERAR_QRLASTALL XTABLA_DATOSP_VE_COMPROBANTE_AGRUPADOTMPCMPRTMPCMPR1FORIN P_VE_SPOOL P_VE_COMANDAVALIDAR_LEYENDA_FACTURAP_VE_ENVIAR_POR_MAILP_VE_ENVIAR_POR_MAIL_ZIMPRIMIR_FORMULARIOP_VE_CPBT_SOLO_ORIGINALCOPIAIMPP_VE_CPBT_COPIA_AVISAP_ENVIAR_POR_MAIL_NDENVIAR_POR_MAILXMSG_PDFXERR_PDFXOK_GUARDAR_PDF PDF_SE_GUARDASUBIR_COMPROBANTE_PLATAFORMA PUB_INDEX!P_PDF_REVISION_GUARDAR_COMPRIMIDOUSER_LOG P_VE_PROFORMAOLDDSASDFRCC GET_TEMPCOMPSAM_VPEDIDO_OPLOG_FILE_TEMPCOMPBORRAR_ARCHIVO ESTADO_RELZCODIGO_BARRAS_CAIZLECTURA_HUMANA_CAI XSUCREMITO ZTEXTOIMPARR_TMPTEXTOIMPPTOVTAZNUMCOTNUMCOT ZPREREMITOSZIDCOMPROBANTE XCOPIAPDF_REM XMAILTIPO_REMNRFORMNRCOPIASNRP_NO_HAY_REMITOSREFORMRECOPIASREXFORMULARIO_MAILXACOPIO FP_ACOPIOP_MAX_LIN_REMITOZZZP_VE_REMITO_AGRUPADOXARCHIVOPDF_REMP_VEN_PREREM_SEP_X_DEPXALIAS_ANTERIORPISO ZPREREMITOXPISOPISOSOLDXFORMULARIO OLDXDESTINO OLDXDRIVER OLDXCOPIAS OLDXIDARCHIVOP_VE_ENVIAR_POR_MAIL_REMITO#P_VE_ENVIAR_POR_MAIL_REMITO_ADJUNTOP_VE_CTRL_CIEGOSYS_M PACKING_LIST TMP_PACKINGARR_TMP_PACKINGZZZZCANTENVP_CPBT_TRANSPORTEP_CPBT_ENTREGAFP_ENTREGA_CLIENTE4%C& FQ \TMP\.DBF \TMP\.cdx \TMP\.idx \TMP\.fpt(BUXARCHP_LOCALQUESEYO BU XARR_REMITOSP_VE_MAX_REMITOS0F"(\tmp\tempcomp_savedBUTEMPCOMPP_LOCAL<FS&\tmp\tempcomp_saved.dbfBUTEMPCOMPP_LOCAL4 TCW%Ctipodoc NQ\tipodocF- F BUXCODXAREAP_SYSTEMTIPODOCCODIGOABREV %CxtipodocbNITCCZ ` T4TC80CCC[-6 BUXTIPODOCXCUIT XRESPUESTA XTIPODOCV 4  T T(C>#%C\C C T%! TBC\UAAAXVEZXTIMESXLEFTZ=4CCOtmpexpanitmBC tmpexpan.UXCAMPOT\tmp\C]T\tmp\C]F& FG-()&  C %( C FQ6%C full_descrtmp_ensambles_unicos/*%i1tmp_ensambles_unicos M& G-(s> C  Item: 6CCZ  C C%)$%Ctmp_ensamble_ivaincQrotempcompC QCC 6Qtmp_ensamble_ivainc& F~,Ctmp_ensamble_ivaincensamble%>  $%Ctmp_ensamble_ivainc%QF:>C C ~CC >*+C C >\C C > C C >=FG((" C *%C full_descrtempcomp/Bi1tempcomp MFQF &  TaBU XTEMPCOMP2P_LOCAL XTEMPCOMP3TMP_ASSEMBLIESITEMTEMPCOMPENSAMBLEDESCRTMP_ENSAMBLES_UNICOS FULL_DESCRCOD_INSP_VE_ASSEMBLIES_IMPCOS_LIFOPRECIO RECEPCIONCANTIDAD DCODATRBULDESPATXTALLXIVAINCTMP_ENSAMBLE_IVAINCTOTACCCNTTOT_COMCALCULO_TOTAL_PSCOEFCOEFICDES_INS MO_TOT_COMCALCULO_TOTAL_MEFORXRECUPERAR_TEMPCOMP<42BCCC%Z de C de CCCiZUXFECHAMES 4%C FTCC+ CO6'%CccventccvfacT  T% # B  BUXREFXCAUXREGXREFOCTCCVENTCCVENTREF4 G+(i2of5TCI2of5N:TC-C00000CCZRCC T T BU XCODIGO_BARRASXLECTURA_HUMANAXCUITXTIPOCOMPROBANTE XPUNTODEVENTAXCAE XVENCIMIENTOLOLCI2OF5 CODIFICAR CODIGOBARRA LECTURAHUMANA:4%%C'C'85 B *%%CC8m B &#%CdCd8 B "#%C C 8 B %CC8 B  B BUX%C tmp_rejunte'FQF (\tmp\tmp_rejunteFQ\tmp\tmp_rejunteH "& CZCZ  &  <  F ~N^( H* pF,ECZCZ FE9%C4       F _ JG>%C tmp_rejunteyFQFS\tmp\tmp_rejunteBU TMP_REJUNTETEMPCOMPP_LOCALP_VE_REMITOS_REJUNTEPEDIDOOLDITMCOD_INSATRBULIDAAACOS_LIFODES_INSCOD_CUE RECEPCIONTOT_COM MO_TOT_COMBULTOS7    G+(sys_mail_funciones!%C zemail_cpbtbC TH P T r T 2 TT!% C ;T%C z)TC\C.pdf  T%-T No se envia por mail. MAILTIPO=0 C B1%C C =T0No se envia por mail. Cancelado en destinatarios C B%H? CC]=DEY #CC] = VDESARROLLO # ""Tdiego@solinges.com.ar% CC] = GUILLERMO #m&Tguillermo@solinges.com.ar 2<T/guillermo@solinges.com.ar;diego@solinges.com.ar%C  %   D%C-Enva el comprobante por correo electrnico ? .T!Reimpresin. No se envia por mail C B ;T.No hay direccin de correo para envo por mail C B%C %C0 3T&No se gener PDF. No se envia por mail C BQ COLLECTIONTC CollectionC ,%CCp_ve_fce_adjuntos_path! "#$7T#C"Cp_ve_fce_adjuntos_path!\*.*$(#;CCp_ve_fce_adjuntos_path!\C$"  Q COLLECTIONTC Collection3%sys_procesandoEnviando por mail...;'()*+,-./0123%4 D1%CCp_ve_fce_control!  !T'Cp_ve_fce_control! @CT6DEV: No hay direccin de control. No se envia por mail C5sys_procesando B ]T'CFT/CCCp_ve_fce_control! Cp_ve_fce_control!6*%Cp_ve_fce_copia_vend!,T//CC/ ,6C67%'/! T/T8C:;9=T(CCp_ve_fce_subject!8=< T*!T+Cp_ve_fce_replyto!T,C p_ve_fce_from!"T-Cp_ve_fce_fromname!%r T)C -> @ T)C p_ve_fce_msg!*T)C)8=<%?@A F@ G((plan E?!%V C@B ,T)C@B:=<#TCCp_ve_fce_authlogin!"TDCp_ve_fce_authpass!#TECp_ve_fce_send_host!#TFCp_ve_fce_send_port!"TGCp_ve_fce_send_ssl!%THCp_ve_fce_send_Codigo!(T2Cp_ve_fce_send_usa_GMail!$T3Cp_ve_fce_send_Token!ATCCp_ve_fce_enviar!C3 $ 6:CHJ,-CDEFG23+IK TH & Cp_ve_fce_metodo!K qTKC'()*+,-CDEF./01G23L& Cp_ve_fce_metodo! 3TKC'()*+/1M5sys_procesando%K1CNH $& Cp_ve_fce_metodo!Z%O;CComprobante enviado por mail%P $CSe ha enviado por mail.Q VIC*El mail se ha agregado a la cola de envio.%P R7C*El mail se ha agregado a la cola de envio.Q& Cp_ve_fce_metodo!$<CComprobante enviado a Outlook% TCGSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.Q B :CNo se pudo enviar por mailCaR BUSXARCHPDFXMSG XCONTROL_TEST XMAILTIPOXCOD_CLIXCAUSA XELECTRONICO XENVIAR_DESDEXDOSTRANSFERENCIA XFORMULARIOXPVXENVIARMAILNOREALTIMEXAUTSYS_MAIL_FUNCIONES ZEMAIL_CPBTXIDMAIL ZIDCPBTNUMXNUMERORXNUMEROFZEMAILCLIENTESFCEEMAIL XSUCURSALSUCURSALPDF_PATHUSER_LOG PUB_INDEXMAIL_ELEGIR_DESTINATARIOSP_MAIL_BLOQUEOREALTIME MENSAJE_SINO OADJFILESADDVE_FCE_ALTERNATIVO ARR_FILES XCANT_FILESZZ SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKENP_DEVSP_OCULTAR_DEFINITIVAMENTEAGENTEEMAILXNOMBREEMPMAILCONTROLAR_NOMBRE_EMPRESA ZEMPNOMBRE ZCOMPROBANTEMAIL_MACRO_TEXTOS ZCLINOMBREVE_MAILS_REMITOSXPLANCONDCOBRPLANMODELOFC XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTXFCESSL XCOD_MAILCONTROLAR_CUENTA_DE_ENVIOXSUCFACXOKSYS_MAILSYS_MAIL_OUTLOOKIMPRESOP_MAIL_SEND_TIPOP_MAIL_MENSAJEMENSAJEMENSAJE_SUSPENDOH ~ C=ZOTC  C=Z~TC  BUXNOMBREXCOMPROBXCAUSANUMFAC NOMBZMAIL NOMBREMAIL;     %G%Cmailctas Q \MailCtas)%Cmailctascodigo )nCa3No se ha encontrado la cuenta de correo asignada. (CCZ)C No se enva el mailB- CTP%:C      mC3No se ha encontrado la cuenta de correo asignada. (CCZ)C No se enva el mailB-U XCOD_MAILXSUCFACXFROM XFROMNAME XAUTHLOGIN XAUTHPASSXHOSTXPORTXSSLXGMAILXTOKENXREPLYTOXTIPOXENGINENUMFACCOD_MAILP_SERVERMENSAJE_SUSPENDOMAILCTASCODIGO CONTROLAR_CUENTA_DE_ENVIO_CODIGOMENSAJE7    G+( sys_mailctas?BC    UXCODIGOXFROM XFROMNAME XAUTHLOGIN XAUTHPASSXHOSTXPORTXSSLXGMAILXTOKENXREPLYTOXTIPOXENGINE SYS_MAILCTASOBTENER_DATOS_CUENTA% F T T T T T T%Tplasticos_exclusivos.frx TTEM "TC   6TC  6DT7!empty(recepcion) and !empty(cod_ins) and adicexport=0 scan for &xfiltrodatosHc NT NO TRATADO DTDOBLE FTFOND TT TROQUELADO M:TMOLINO LeTLATERAL GTMANGA 2T NO DEFINIDO%Ctmp_produccionFQF((\tmp\tmp_produccion&Q\tmp\tmp_produccionFlistados.t.aaaaa-tempcomp%Ctmp_produccionFQFBUXTIPOPEDTEMPCOMP ZIDCPBTNUM ZIDCPBTCAU XFORMULARIOXCOPIASXDRIVERXDESTINO XIDARCHIVO ZCOMPROBANTEXDESTINO_FORZADOLOCALESVE_022XDRIVER_FORZADO XFILTRODATOSBIEAUX TIPO_CONFE ZTIPO_CONFETMP_PRODUCCIONP_LOCALIMPRIMIR_FORMULARIOLISTADOS]%A'BCC p_ve_fce_ p_ve_fce_1_ V BCUXPARAMP_VE_FCE_ALTERNATIVOCbieauxcodTC?TCMES DEMES DE CCf DE CCCiZ BUTEMPCOMPCOD_INSXTXTBIEAUXTXTMESXFCE_FEC_SERVDn  TC.C%C\CPBT\0^ T BU XFORMULARIOXCODEXFPP_SERVER= (BC_PVCCCZ0U XFORMULARIOXSUCFACXCODE FP_COMPROBAR( BC_EPCU XFORMULARIOXCODIGO FP_COMPROBAR( BC_FPCU XFORMULARIOXCODIGO FP_COMPROBAR)BC_ACOPIOU XFORMULARIOXCODE FP_COMPROBARS%CCFG_LIS 3Qcfg_lis # BUXLISTACFG_LISDESCRo%B%Cq_comb:QotempcompCQC Q C Q C QCQCQCQC  q_comb ~:(6F%S #)R-$    %U>     H +F%Cq_comb]QFBUP_VE_REMITOS_COMBINADOSQ_COMBOLDITMCOD_INSATRBULDES_INSCOS_LIFOCNT RECEPCION SRECEPCIONTOT_COMSTOT_COMPESOSPESOBULTOSSBULTOSPESONETO SPESONETO MO_TOT_COM SMO_TOT_COMTEMPCOMPZ%dB(b%C^!% TTBUXDSPZDESPACHOS_CANTIDADZ ZDESPACHOSTC TC TC eBCC QCC 6CC C6CCfCC 66UXVARXCHR13XHEADER-*BCCX CC6UTEMPCOMPCOD_INS DCODATRBULDESC_INS%Ba  T- T-U% C     C  Ba'%  C$ Ta%%Cӭ  Ta%%C 9 Ta%t%Cvld_formulariosQFQ\cpbt\  Ta T'%  C$  -Czleyenda_fce_1fCfTC4 %C4 atencion=La factura requiere la leyenda de Monotributo obligatoria !!!C C )Debe consultar con el soporte tcnico !!!C C @La factura no ser impresa hasta tanto no se agregue la leyenda.@B-%%Cӭ  -Czleyenda_fce_1fCfTC4 %C4 {atencionDLa factura requiere la leyenda de comprobante MyPyme obligatoria !!!C C )Debe consultar con el soporte tcnico !!!C C @La factura no ser impresa hasta tanto no se agregue la leyenda.@B-%%C &-Czleyenda_exportacionfCfTC4 %C4 atencionDLa factura requiere la leyenda IVA EXENTO FACTURA DE EXPORTACION !!!C C )Debe consultar con el soporte tcnico !!!C C @La factura no ser impresa hasta tanto no se agregue la leyenda.@B--C zincotermfCfTC4 %C4 atencion/La factura requiere la leyenda del INCOTERM !!!C C )Debe consultar con el soporte tcnico !!!C C @La factura no ser impresa hasta tanto no se agregue la leyenda.@B-% + Ta%Cvld_formularioVQ%pB-BaUP_LOCALIZACIONXERRORXVALIDAXTIPOPED P_VE_COMANDA XFORMULARIOXCOPIASP_CODEMPP_DOSP_UNO SYS_DOSCENXSUCFACXIVACATXFECEMIXTIPO_COMPROBANTEP_VE_VLD_LEYENDA_FCE_CXCLIPAISVLD_FORMULARIOP_SERVERXENCXMSGEXPRATENCIONH$ INDHK 8611 %TCC846SN6 BU XIMPORTADOXCOD_INSXBULXATRP_EMP2VQMELI_CONTROLADORsys_meli_logica.prg Hg+ CB-" MLA V +O% 91C&Desea subir la factura a la plataforma  '7sys_meli_pedidos UXCAUSAXNUMEROFXREF_EXT XPLATAFORMA XREALTIMEXMSGXOKXAUT OCONTROLADORSYS_MELI_LOGICAPRGXARCHIVOP_MELI_SUBIR_FACTURA MENSAJE_SINOMELI_SUBIR_COMPROBANTESYS_MELI_PEDIDOSM2sys_plataformas_pedidos.prg BUXREF_EXT XPLATAFORMA XNEWREF_EXTHUB_OBTENER_REF_EXT_ORIGINALSYS_PLATAFORMAS_PEDIDOSPRG  T T TT T T T T  T  T  T  T  T T T T TT cs_generar     %@>C dBUXFECEMIXMONEDAXPD_VAL_TIPO_REPXPD_VAL_COMPROB XPD_VAL_CAUSAXPD_VAL_FECHA_COSTOXPD_VAL_DESC2_ORIXPD_VAL_DESC3_ORIXPD_VAL_DESC4_ORIXPD_VAL_DESC5_ORIXPD_VAL_CAMBIO_ORIGENXPD_VAL_MONORIXPD_VAL_COSORIXPD_VAL_COSTO_ORIXPD_VAL_DESCUENTO_ORIXPD_VAL_ERR_COSTOXPD_VAL_MSG_COSTO XPD_VAL_COSTOXPD_VAL_MONCOSTOXPD_VAL_FECHA_TC OBTENER_COSTO CS_GENERARTEMPCOMPCOD_INSBULATRVALOR VALORMONT MM_MONEDAMARKUPCOS_LIFOF/%C C C `*>4%Cartxcli.descr_adibC C 7> C  C C  C%C >    BU TEMPCOMPARTXCLIALTCODALTBULALTATRCOD_INSBULATR DESCR_ADIDESC_INS DCODATRBULDESCRM TCWTC]otempcomp  Q   Q    C 1\tmp\ TCNQ% FB G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNT Packing ListTT Packing List CCitemItem Ccod_insCdigo(C dcodatrbul Descripcin*CbultosCantidad de Cajas-C cantxbultUnidades por Caja-CnetoxbulPeso Neto por Caja/C brutoxbulPeso Bruto por Caja*CpesonetoPeso Neto Total'CpesoPeso Bruto Total6C recepcionCantidad Total de UnidadesTC +(CCCCxls(8C)No se puede guardar el "packing list" !!!C @Asegrese de no tener abierta alguna versin anterior del mismo. FBUXAREAXTMPARCH XREGISTROSITEMCOD_INS DCODATRBULTEMPCOMPBULTOS CANTXBULTPESONETONETOXBULPESO BRUTOXBUL RECEPCIONP_LOCALXEXPXPARLISTADOS EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSXARCHIVOPDF_FULLOEXMENSAJEborrar_archivoFdummy4 save_tempcompp get_tempcomp fn_tipodoc fn_cuitdni tomar_lineaexpandirconsolida_assemblies zfechatxt referencia_oc)codigo_de_barras_cae_vencH decimales juntar_itemsenviar_por_mailHcontrolar_nombre_empresacontrolar_cuenta_de_envio  controlar_cuenta_de_envio_codigo plasticos_exclusivos ve_fce_alternativobie_nota\ fp_comprobar fp_punto_ventafp_entrega_cliente) fp_cliente} fp_acopio lista_descr$combinar_items fn_despachos_txt_descrvalidar_leyenda_facturacontrolar_importadok$subir_comprobante_plataforma8%obtener_ref_ext_original3'valorizar_item'reemplazos_artxcli+ packing_list-0AqAA2"1ArtAaAAAr#SAAAb13a1Ar"!!BAAb4r3aqAaqAAq2CAAAAaSqAdqAAAQrBQAABBbQ!"SAA"2AbqAbqAa2Q1A1AurAQQAAA!1qAqQqAA2AA2AAbbqAcqAb!!!!!r3qqQA!q1BAA!4qqQA!1111A2qAA!ArRbAA12dqARqABR!A!qqBAA3AC"1s1AAwrq"qBABBv2qqAAqr1AaA!B!A1A!A!AstAs1a!qa!qABbrs!AA"AARAArq1$rArq1!ArAr!qAA2aQAQAAaAArr!Bd!A`BAAbtt11RAAArB21qbaAA2bAA2sqb!AABArAAbAAABtaAqRRAQAQAQArBAB2A2d231AAC3A2aABtBBsRBrRBcrF"BrBqA2A4A3A%ABbBA"r111QAR2AArQQAQBQA2AAABS1q2aAr1Araa(1AAbQA11QAAAAuArArAB3A"21q12111AB11AAAAAA2111111111A111111111ABA11BA$t!02ABYAqAA2AAA t1ACqBY1AqQ1AqaABqaAA"11AAArqQqa1QqQA!AAaAAr1qA1A1A1AABAA2a1rq2AqqAAAqqqqAqqQAB"a112A12AAAAAAABdc*ABr1QaAQW2AArarrrqAAr!CD2A:CAb2A"Q23ABAB3C22qAA1qBAB2A2AAArC1!1A"AaABAAAA3AAABA$B2s1QaAQa!"AAcc"A!"qACAAqAAq1BAAAAB$Ar1QaAQ"rtABB"BAAABBuqrQ!!AAbAr2A1r1QaAQqq1q11AAAb3"AcR1qAArarAB4AArarFrqAAr!CC"Aa3"BfA ABBBBc2!AA11AABqAABArqBqAABAAsrrrrRrCBr"1A!B"AABCqAArAB|Ar11RBAA!AcAbAAra"AAAs2a!Ara"AAAAFs2a!Abva"AAAcAOAAAB2qAABB3A01q!A2qaA2qrAq3AA311AAAAR2q2qqQAaQA8AA$rAbqAABABrAAra!AqArA2q!2rrABAA2RB2qRQ11AAAAA2qAAr1!1aArr1q1qAruABqAArB5qAtAAAA"A1AB1!QaAB"AAAA#!2ATSrBBQA32AAbA2A!DAcqAA2!21!RAraa1ARa3AAqAAaAAAA2aaA3aArAAqA1qa66uR1!Bqqq!qqqq1qAq!AqAArbrqAABrBB2q2qA2r"3rA2q333qq3q1A22AAtA r2A'2WArACrArA2q2BArAAA21AB3211Q222qAWtAtASASAAr1AAS1aAASc1aA1ABAAqAAr21aQAA2aq!qAA2!3114BB2qACsARAA2B2AA#!qa AD1Ku]Yp7 Yr'T;uA0 c3 }E ޥħO ڧީg ( D,7 @ F*Q s<U xF 6 KQ j * T 0 Q > Y ) :X4 k< H@( hQ2 |< W@ }Y be {  %[^X#%C0 D T-BTC *BC U XARCHIVOPDF XCOMPROBANTEXCAUSA XREVISIONXFECHAXUSRXCODEMP XCOMPRIMIDAXOK OPEN_FILESGUARDAR_ARCHIVOR opdfindexQQCXQC(XQC XQCXQ QCXQQ Q Q  Q -TMPCCV%C&ZrTMPCCV    opdfindexQXepresupQ CC,gXclientesQ CQCCXQC???????QQQCQPS Q Q Q  Q  Q CS%CZrTMPCCV    opdfindexQXtccventQ CC,gXclientesQ CQCCXQC???????QQQCQPD Q Q Q  Q  Q CP%CZrTMPCCV    opdfindexQXtcccompQ CC,gXproveedoQ CQCCXQC???????QQQCQOC Q Q Q  Q  Q CN8oTMPCCV-Q  U XTMPCURSOR XTIPO_DATOSFECHACODIGONOMBRECOMPROBCAUSANUMERO COMPROBANTREVISIONFECHAPDFUSREMPPDFINDEXPSTMPCCVCCCOD_CLIEPRESUPCLIENTESCFEC_VENPEDIDOTCCVENTFEC_COMCOD_PROORDENTCCCOMPPROVEEDOSELFC6%CCZC ZRevision 5T"No se encuentra el comprobante en CB- F ^J BU XCOMPROBANTEXCAUSA XREVISIONXCODEMPXPDFFILEXERRMSGOPEN_FILE_PDFSTOREOOBJ'    TC TC TC C >%CCZC ZPDFIndexRevision /T"No se puede ubicar el comprobante.B-*TCC%,T CT CC T CwwZipNTC *.*  T C%  -C Error al descomprimir el archivoB-TCC C FT%Ch T% TCTCH N;#TOC CZ - C%7=TCC  - vCCCZ06 P#TPD CZ - C%=TCC - vCCCZ06TCTC.pdfCBaU XARCHIVOPDF XCOMPROBANTEXCAUSA XREVISIONXCODEMPXNUMEROXNOMBRE XNORENOMBRARXERRMSGOZIPXFILEXFILEZIPNFILES OPEN_FILESOPDFSOBTENER_OBJETOPDFINDEX FILESTOREZIPPEDWWCLIENTODEYFUNCNEWFILE_LOCAL_TMPDATAXERR UNZIPFILESAFILESMENSAJEXDATAXDIRREVISIONP_PDF_REVISION_AGREGARLIMPIAR_FILE_NAMER#,BCCU XARCHIVOPDF XCOMPROBANTEXCAUSA XREVISIONXFECHAXUSRXCODEMP XCOMPRIMIDA GUARDAR_DATA TTC_TCg'T_CCCZ0 *p_pdf_revision_file UXFILEP_PDF_REVISION_FILEXHEADODEYFUNCSPLIT_GETNEXT_ITEMXTAILSYS_CFG#  C TCC TC TC TC TC TC %TC T C C TC 5%CCZC Z revision F !>  qkr C]prPDFIndexC] (CAcanzar C.TC BUXDATAXCOMPROBXCAUSA XREVISIONXFECHAXUSRXCODEMP XCOMPRIMIDAXFILEXFILEZIPXALIAS OPEN_FILESODEYFUNCNEWFILE_LOCAL_TMPSYS_ZIPUSRDATAZIPPEDIDUFECHACOMPROBCAUSAREVISIONEMP FILESTOREOEXSYS_M AVANZAR_LOGXOK GUARDAR_DATACCrearG+( sys_verificarKTCTabla_pdfstoresys_Verificar2_tablas.prgC-aaa BCUXFILESYS_M SYS_VERIFICARXOBJCREAR~G+( sys_verificarPTCTabla_pdfIndexsys_Verificar2_tablas.prgpdfIndex-aaa BCUXFILE SYS_VERIFICARXOBJCREAR3 TCC TC %C ,%Ck T%CCӡTCdbfTC%C0 TC% B-%C ("USE (xFile) ALIAS &xAlias IN 0 U XFILESTOREXALIASXFILEXOKP_PDF_REVISION_PATHP_SYSTEM CREAR_ARCHIVO  %CpdfIndex %CN T TC PDFIndex.dbf%C0 TC% B-%Cpdfindex QC%%Ctccvent 3Qtccvent%Cclientes eQclientes%Cproveedo Qproveedo%Ctcccomp QtcccompU XVISORXALIASXFILEXOKP_PDF_REVISION_PATHP_SYSTEMCREAR_ARCHIVO_INDEXOPEN_FILE_PDFSTOREP_PDF_REVISION_FILETCCVENTCLIENTESPROVEEDOTCCCOMP H! S C H Ta! P C t Ta! N C Ta 2 T- BUXCAUSAXOKP_PDF_REVISION_GUARDARObtener_Archivados$Obtener_objetotObtener_ArchivoGuardar_Archivo  avanzar_log guardar_data Crear_ArchivoCrear_Archivo_Indexqopen_file_PDFStore open_files pdf_se_guarda1&AA3q AArA2bQqA5q1111qAar!S!1qAAAA1aAA1aAA!Aq312qqA212111112qARAAB1q!q2qr3a!AAaAA!!qAA!!AA1A!!qAAAA"1AAAAA1AA3A1  i$QzXwG[iel  " "%!%c(F9%"6CB HXpC5XUy3%CCthis.padre.oLogbO IT fT BUTYPEOTHISPADREOLOGLLOG,TC BUTHISFULLPATHPATHARCHIVOI %C This.PadrebO6T BUTHISCPBT_ASOCIADO_TEXTOPADRE TUA\3%CCthis.padre.oLogbO IT BUTYPEOTHISPADREOLOG %C 3%CbTC DocumentosNTTTUXITEMODOCSTHISODOCITMS CPBT_PADRE CPBT_ITEM %C 3$% CC lCBCUXITEMXNOCREARTHISODOCITMSTYPEOCPBT_ITM_ABSORVERr&% C 6T _T  BUTHISCPBT_ES_ASOCIADO CPBT_CAUSACPBT_COMPROBANTECPBT_ASOCIADO_TEXTO?%C,T BUTYPEOTHIS CPBT_PADRE CPBT_CAUSA?%C,T BUTYPEOTHIS CPBT_PADRECPBT_COMPROBANTE:CT BUXNUEVOTHISANALIZAR_NUEVO_ORIGEN CPBT_CAUSA:CT BUXNUEVOTHISANALIZAR_NUEVO_ORIGEN CPBT_CAUSACPBT_COMPROBANTE:CT BUXNUEVOTHISANALIZAR_NUEVO_ORIGEN CPBT_COD_INS:CT BUXNUEVOTHISANALIZAR_NUEVO_ORIGEN CPBT_LOTE7 %C0CUXNUEVO XANTERIORTHISPADRELIMPIAR_ORIGENI+BTCCUODOCTHISCOUNTITEMREMOVEn&%CoDocumento.PadrebO=TTCU ODOCUMENTOPADRETHIS CPBT_ITEMADDARCHIVO~&Q DOCUMENTOS IMP_EXP_P.prgw% sT-CU ODOCUMENTOS IMP_EXP_PPRGODOC A_IMPORTARA_BORRARPADRETHISAGREGAR_ARCHIVO %C This.PadrebOn;TCImportaciones_Documentos imp_exp_p.prgT BUTHISPADRE DOCUMENTOSCUTHISPADREIMPORTAR_ARCHIVOS_PENDIENTES2 BCUXPATHZIDCAUSA ZIDCPBTNUMTHISPADRE LEER_ARCHIVOS&TaUODOCTHIS A_IMPORTARU TCoLogDoc%C GT%C zT CUXCAUSAXCPBTTHISLLOG CPBT_CAUSACPBT_COMPROBANTE LEER_ARCHIVOSQ COLLECTION%Q DOCUMENTO IMP_EXP_P.prg%C pTC CollectionNC BU OCOLL ODOCUMENTOSODOC IMP_EXP_PPRGTYPEOTHISADDFULLPATHy3%CCthis.padre.oLogbO IT fT BUTYPEOTHISPADREOLOGLLOG)T BUTHISTIENE_ASOCIADOS ASOCIADOSCOUNT=#%C This.ConectorbO6TUTHISCONECTORORIGENGTC$Importaciones_Documentos_Conector_FS imp_exp_p.prg-TC Documentos imp_exp_p.prg-TC Documentos imp_exp_p.prg,TC Asociados imp_exp_p.prgTTTTUTHISCONECTOR DOCUMENTOSDOCUMENTOS_PENDIENTES ASOCIADOSPADRE{8TCImportaciones_Documentos IMP_EXP_P.PRGCCUXPATHXCAUSAXCPBTOIMP_DOC LEER_ARCHIVOSTHISAGREGAR_ASOCIADOSW#QIMPORTACIONES_DOCUMENTOSTaTTUOIMP ES_ASOCIADOPADRETHIS ASOCIADOSADDq!%C oDocumentosbOAT BTT BU ODOCUMENTOSTHIS DOCUMENTOSPADREKT C  T C  T C  T C  T C  ,CCCCCCUXPATHZIDCAUSA ZIDCPBTNUM ODOCUMENTOSXCOD_INSXLOTEXITEMTHIS DOCUMENTOS CPBT_CAUSACPBT_COMPROBANTE CPBT_COD_INS CPBT_LOTE CPBT_ITEMCONECTOROBTENER_ORIGENDOCUMENTOS_PENDIENTESLIMPIARABSORVER_PENDIENTES LEER_ARCHIVOS=&Q DOCUMENTOS IMP_EXP_P.prgBCU ODOCUMENTOS IMP_EXP_PPRGTHISCONECTORBORRAR_ARCHIVOSO4QSTRINGQ DOCUMENTOS IMP_EXP_P.prgBCUXARCHIVO ODOCUMENTOS IMP_EXP_PPRGTHISCONECTORIMPORTAR_ARCHIVO=&Q DOCUMENTOS IMP_EXP_P.prgBCU ODOCUMENTOS IMP_EXP_PPRGTHISCONECTORIMPORTAR_ARCHIVOS_PENDIENTESO4QSTRINGQ DOCUMENTOS IMP_EXP_P.prgBCU XDESTINOZIP ODOCUMENTOS IMP_EXP_PPRGTHISCONECTOR OBTENER_PACKR&Q DOCUMENTOS IMP_EXP_P.prgKCUODOCS IMP_EXP_PPRGODOCTHISCONECTOR ABRIR_ARCHIVO<%Q DOCUMENTO IMP_EXP_P.prgBCUODOC IMP_EXP_PPRGTHISCONECTOR ABRIR_ARCHIVO2%Cthis.documentosbO C BC=%Cthis.Documentos_PendientesbO C CUTHIS DOCUMENTOSLIMPIARDOCUMENTOS_PENDIENTESy3%CCthis.padre.oLogbO IT fT BUTYPEOTHISPADREOLOGLLOG)&Q DOCUMENTOS IMP_EXP_P.prgU ODOCUMENTOS IMP_EXP_PPRG)&Q DOCUMENTOS IMP_EXP_P.prgU ODOCUMENTOS IMP_EXP_PPRG U ODOCUMENTOS UXARCHIVO ODOCUMENTOSnD%C oDocumentosbO Cthis.padre.documentosbO ^T BU ODOCUMENTOSTHISPADRE DOCUMENTOSUXPATHZIDCAUSA ZIDCPBTNUMG+(listadosHB C zT CC  C C +T Caaaa C_ 3 CC C oDocumentosbO  %C C dT CVACIO B 5T C aaaa "C _ 2 B UXPATHZIDCAUSA ZIDCPBTNUM ODOCUMENTOSXCOD_INSXLOTEXITEMLISTADOSTHISORIGENOLOGCAMBIAR_ARCHIVOPDF_PATH CPBT_CAUSACPBT_COMPROBANTE CPBT_COD_INS CPBT_LOTE CPBT_ITEM %CwTC G( TC G(%C C0 sC%No se encontr el archivo a importar.C C WEl problema puede provenir de acentos o caracteres especiales en el nombre del archivo.C C )Por favor lmpielos y vuelva a intentar. C C  Archivo:  T%CB-%C0 IC%No se encontr el archivo a importar.C  Archivo: TCD%C oDocumentosbO Cthis.padre.documentosbO :C-Debe especificarse un objeto de documentos!!!B-/ QSCRIPTING.FILE QSCRIPTING.FILE% Q DOCUMENTO IMP_EXP_P.prg*TCScripting.FileSystemObjectNT C)T C Documento imp_exp_p.prgT  T  T  T C T  T aC &C IMPORTADO -  B UXARCHIVO ODOCUMENTOSXNEWDEFODEYFUNCGET_PATHP_SERVER MENSAJE_STHISOBTENER_DOCUMENTOSOFILOFLODOC IMP_EXP_PPRGOFSGETFILEARCHIVONAMEFECHADATELASTMODIFIEDTIPOTYPEPATHIFILE A_IMPORTARAGREGAR_ARCHIVOOLOGLOGT*TCScripting.FileSystemObjectNTC  TCC Item-g%TC C CCaTU ODOCUMENTOSXORIGENODIROSUBFXITEMODOCITMTHISORIGENOFS GETFOLDER SUBFOLDERSNAMECPBT_ITM_OBTENERLIMPIAROBTENER_ORIGEN LEER_ARCHIVOS *Q DOCUMENTOS IMP_EXP_P.prg/QSCRIPTING.FILEQSCRIPTING.FILE%Q DOCUMENTO IMP_EXP_P.prg%CBa*T CScripting.FileSystemObjectN%C B-T C T %C)TC Documento imp_exp_p.prgTTTTCTC% CU ODOCUMENTOS IMP_EXP_PPRG XNOLEERITEMSOFILOFLODOCTHISORIGENOFS FOLDEREXISTSODIR GETFOLDERFILES ATTRIBUTESARCHIVONAMEFECHADATELASTMODIFIEDTIPOTYPEPATHIFILEAGREGAR_ARCHIVOLEER_ARCHIVOS_ITEMS&Q DOCUMENTOS IMP_EXP_P.prg)Q DOCUMENTO IMP_EXP_P.prg%Ta Ta  C$C Borrado -   ( C%Error al intentar borrar el archivo: C  !!!C ECompruebe que el archivo no est abierto y luego vuelva a intentarlo.C C 3Si el problema persiste avise al soporte tcnico!!!+CError borrando -   U ODOCUMENTOS IMP_EXP_PPRGODOC XPENDIENTES A_IMPORTARA_BORRARIFILEDELETETHISOLOGLOGARCHIVOOEX MENSAJE_S   Ta!%C CC q%C mCCa %C CC  *TCScripting.FileSystemObjectNC(CERROR:   %C  pAC*No se pudo crear el directorio destino!!! C  B BCU XPATHXLOOPXOKXFSTHIS ORIGEN_CREAROFS CREATEFOLDEROEXSYS_MMESSAGEMENSAJE,*Q DOCUMENTOS IMP_EXP_P.prg1Q DOCUMENTO IMP_EXP_P.prgTC % QSCRIPTING.FileSystemObject%C C D%C oDocumentosbO Cthis.padre.documentosbO F:C-Debe especificarse un objeto de documentos!!! B-%%CC  Y*T CScripting.FileSystemObjectNTT TC CT-TC T&C IMPORTADO -  :C NO IMPORTADO - NO SE PUDO CREAR (C%TC%C!T CT U ODOCUMENTOS IMP_EXP_PPRG XSINITEMSODOCXOLDFILEODOCITMNITTHISOBTENER_DOCUMENTOSOFSORIGENOBTENER_ORIGENMENSAJE A_IMPORTAR ORIGEN_CREARFULLPATHPATHOFILGETFILECOPYIFILEOLOGLOGODOCITMSTYPEOIMPORTAR_ARCHIVOS_PENDIENTESw&Q DOCUMENTOS IMP_EXP_P.prg%Q DOCUMENTO IMP_EXP_P.prgpCUODOCS IMP_EXP_PPRGODOCTHISCONECTOR ABRIR_ARCHIVO%Q DOCUMENTO IMP_EXP_P.prgQSTRING %a.| ShellExecute Shell32.DLL*T Copen %C ABRIENDO -   T ~TQpowershell -Command "& { (New-Object -ComObject Shell.Application).ShellExecute('', '', '', 'open', 1) }"TC WScript.ShellNCaUODOC IMP_EXP_PPRGXSCRIPTXFILEOSCRIPTXCOMANDO SHELLEXECUTESHELL32DLLXRESFULLPATHPATHTHISOLOGLOGARCHIVORUN4QSTRINGQ DOCUMENTOS IMP_EXP_P.prgTCD%C oDocumentosbO Cthis.padre.documentosbO :C-Debe especificarse un objeto de documentos!!!B-TCwwZip%CoZipbO6 CError al crear oZIPB-T CC  %CKTC DOC_EXTZIPGuardar conjunto de archivos ZIP %C B/QSCRIPTING.FILEQSCRIPTING.FILE%Q DOCUMENTO IMP_EXP_P.prgrT""TC a%C  B  BU XDESTINOZIP ODOCUMENTOS IMP_EXP_PPRGTHISOBTENER_DOCUMENTOSMENSAJEWWCLIENTOZIPXARCHIVOORIGENODEYFUNCARCHIVOS PUTFILEEXOFILOFLODOC XFULLPATHFULLPATH XRESULTADOZIPFILES oLog_Access0FullPath_AccessCPBT_Asociado_Texto_Access$DESTROY oLog_AccessCPBT_ITM_Absorver7CPBT_ITM_ObtenerCPBT_Asociado_Texto_AccessCPBT_Causa_AccessCPBT_Comprobante_Access CPBT_Causa_Assign}CPBT_Comprobante_AssignCPBT_Cod_Ins_AssignuCPBT_Lote_AssignAnalizar_Nuevo_Origen\LimpiarAgregar_Archivo=Absorver_Pendientes Padre_Access Importar_Archivos_Pendientesd  Leer_Archivos ReImportar_Archivos DESTROYc INITn Agregar_Docs_Coll?  oLog_Access5 Tiene_Asociados_Access Limpiar_Origen0INITAgregar_AsociadoAgregar_AsociadosAbsorver_DocumentosP Leer_ArchivosBorrar_Archivos6Importar_ArchivoImportar_Archivos_PendientesY Obtener_PackAbrir_Archivos Abrir_ArchivoDESTROY oLog_AccesskBorrar_Archivos  Leer_ArchivosZ Abrir_ArchivoImportar_ArchivoObtener_DocumentosObtener_OrigenObtener_OrigenImportar_ArchivohLeer_Archivos_Itemsk" Leer_Archivos#$Borrar_Archivos' Origen_Crear)Importar_Archivos_Pendientes|+Abrir_Archivos/ Abrir_Archivoq0 Obtener_Pack2 T T T T T T T T TT  T - T - T - T - .Q T-  T   U CPBT_CAUSACPBT_COMPROBANTE CPBT_COD_INS CPBT_LOTECPBT_ASOCIADO_TEXTO CPBT_ITEMARCHIVOPATHTIPOFECHAPADREIFILE A_IMPORTARA_BORRARLLOGOLOGDOCOLOGFULLPATHUg T T T T T- T- T T- T T - T -                  U CPBT_CAUSACPBT_COMPROBANTE CPBT_COD_INS CPBT_LOTECPBT_ES_ASOCIADOPADRECPBT_ASOCIADO_TEXTO CPBT_PADRE CPBT_ITEMLLOGOLOGODOCITMS T-UPADRE T- T- T- T- T- T- T- .Q T -       ! " # $ % & ' (U CONECTOR DOCUMENTOSDOCUMENTOS_PENDIENTES ES_ASOCIADO ASOCIADOSPADRETIENE_ASOCIADOSLLOGOLOGDOCOLOGx T T- .Q T- ) * + , - . /UORIGENPADRELLOGOLOGDOCOLOGg 0 1 2 3 4 5 6 7 8 9U DocumentoCUSTOM;oLogDoc loguear_doc_externos:sys_log.prg= Documentos COLLECTION= Asociados COLLECTION?Importaciones_DocumentosCUSTOM?!Importaciones_Documentos_ConectorCUSTOM0A$Importaciones_Documentos_Conector_FS!Importaciones_Documentos_ConectorA11a1A32aA2q11aA4AAa2AAA2bA2aaA2aaA4qq3qq2qq2qq3QA2qqAA2qbA1q2aAA21A222A22!A!A3QqQQA1A11a1A3211A2r21113q1112qA2aaa3aA2A2aA2A2aAA2QA3!AA91a1A3a2a2q22qA1A2@1"!a1AQ!A2rAAAqA!ARAqAQQ111aa2qqQB1RA!AA3QAqAqAq111aAAA2a!Ac AAA3qAAAAAA2QQAAABqA!2R1qaAAAQAAA2aQAA2QQQD3ARAqA|rTqAAAQBrA2141<184pP`p18 H z"2%8@B@%j_L.V5 _:N e? r mD  tIJ zN ` S X v ^ kegm.sc8u^x0|PN}kJsmM~9Vy q+> /r 3 !!7!;";`""A"#F$%UE%}%^%%a%&d@&b&g&3'jY''q*..4946I7 :dG:=u6=??vE1ECFchF_IjIBO"<*w,#8/$'PD*LO%_5bh[bGKY4%CxvistabL0 TG(9G+( in_solcom<  TTCT sol_pendientes T T 9 T  T in_controlar_sol%%Cesolcom.cod_cenbCM+CSe deben aplicar novedades !!!B- C- F TC ( T$in_controlar_sol(%C  F Q.dbf%C tcompras2FQ%Ccompras26FQ%Cconver2]FQ%Cconver22FQ%Ctcccomp2FQ%Ccccomp2FQBUXVISTA ACTIVEFORM DATASESSIONID IN_SOLCOMARR_MASTERLINEASMAXARR_MASTERLINEASXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPXALIASXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2 OPEN_FILESIN_CONTROLAR_SOLMENSAJESOLICITUDES_PENDIENTESXARCHIVO_BACKUPXRES TCOMPRAS2COMPRAS2CONVER2CONVER22TCCCOMP2CCCOMP2[%Ctcccomp ,Qtcccomp%Ccccomp ZQcccomp%Cproveedo Qproveedo%Ccondpago Qcondpago%Ctcompras Qtcompras%Ccompras Qcompras%Cbienes NQbienes%Cbultos |Qbultos%Catributo Qatributo%Cccprov Qccprov%Cesolcom 8?QC  \data\CC Z 6\esolcom%Cdsolcom ?QC  \data\CC Z 6\dsolcom%Cconver Qconver%Cmedidas Qmedidas%Clineas Qlineas%Cusuarios ZQ \usuarios%Cproveedo QproveedoWolineaslineas masterlineas=r masterlineasTODASC]0o masterlineasBUTCCCOMPCCCOMPPROVEEDOCONDPAGOTCOMPRASCOMPRASBIENESBULTOSATRIBUTOCCPROVP_UNOP_SYSTEMP_SERVERCONVERMEDIDASLINEASCODIGODESCRIDU MASTERLINE MASTERLINEASARR_MASTERLINEAS1 4%( C < CG+(ge02FG((tcccord E%C4T T CO= ge02C 9999,999,999_PF # -C Problemas con el comprobante !!!  CBU XORDENXEMPRESAP_DOSSET_DS2SET_DS1GE02TCCCOMPTCCCORDXCOD_PROCOD_PRO XTCCCOMPREGCPBT_VISMENSAJE 4&%Cxfiltro_sol_pendbCIT.t.%%C tcompras2 OQ\data\CCC     6Z \tcompras %Ccompras2 ENQ\data\CCC     6Z\compras %Cconver22 MQ\data\CCC     6Z\conver%Ctcccomp2 NQ\data\CCC     6Z\tcccomp%Ccccomp2 MQ\data\CCC     6Z\cccomp F~C TC.solTC.itm3TC.codC.atrC.bulTC.cod%  T T T T TT T%C   F%I> !"#% 9F$ JF G(( solicitudECZCZ T&1+C+ CZCZC'ZC(Z  T) T*+ T,-0+& C.ocCC&Z T&&T.ocCC&ZT..ocempCC&Z|replace &xfield with xorden , &xfield2 with iif(!x2, p_codemp, iif(p_dos#0 and p_codemp=p_dos, p_uno, p_dos)) F>/a00,% N% F1 0FG((ref_ocEC ZC*Z7+C+ $C ZC*ZC) ZC3Z T456 F>774897% F1 FH% F: 'FG((cccord E%:<SJ% qF= F G((refordenEC ZC*Z2+C+ ?C3ZC ZC*Z F T4- F>774897% -F= >F H% iF$ zF H% F= F G(( solicitudECZCZ T&1+C+ CZCZC'ZC@Z TAB TCCO%CDK TEa  %Fs TE-  % F:  F G((op EATE<S% F=  F  #CT4CE-6 F>774897% h F= y F H F>G90H97BUIX2XAYUDAXFASTXFILTRO_SOL_PENDXSOLXSOLITMXFIELDXORDENP_SYSTEMP_DOSP_CODEMPP_UNO TCOMPRAS2COMPRAS2CONVER22TCCCOMP2CCCOMP2XALIASXITMXARTXART_COD XUCOD_PROXUNOMBREXUPRECIOXUMONEDAXUMONTXT XUFEC_COM XUULTCOMEMP ULTIMA_COMPRAFEC_COMUCOD_PROUNOMBREUPRECIOUMONEDAMONTXT ULTCOMEMPTCOMPRAS SOLICITUDACCSOLITEMORDENXITM_OCITM XRECEPCION RECEPCIONXFIELD2TIENE_OCORDENADOCONVERREF_OCREFITM XCANTIDADENTRASALE ENTREGADOSALDOCANTIDADCCCOMPCCCORDRECECOMPRASREFORDENREFSOLITMXOPOP XREG_COMPRASCOD_INSXCONRECEPAGO SALDO_ORD SALDO_ENT%CxFiltrobCLT.t.%CxEstadobN{T%CxsolbN T%CxitmbN T%(T .and. dsolcom.sol=xsol%O(T .and. dsolcom.itm=xitm3TCesolcom.usraut>=0.t.6%C FQ/sys_performanceGet_solicitudes"%C esolcom.usr1bNselect esolcom.fecha as fecha , dsolcom.sol as sol , dsolcom.itm as itm , dsolcom.cod as cod , dsolcom.atr as atr , dsolcom.bul as bul , dsolcom.descr as descr , dsolcom.cantidad as cantidad , dsolcom.fecha as entrega , esolcom.usr as usr , esolcom.usr1 as usr1 , dsolcom.notas as notas , esolcom.estado as estado , iif(esolcom.estado=0, "Abierta",iif(esolcom.estado=1, "Cerrada","Anulada")) as estado_d , space(40) as dusr , space(40) as dusr1 , .f. as tiene_oc , 0000000000 as oc1 , 0000000000 as oc2 , 0000000000 as oc3 , 0000000000 as oc4 , 0000000000 as oc5 , 0000 as ocemp1 , 0000 as ocemp2 , 0000 as ocemp3 , 0000 as ocemp4 , 0000 as ocemp5 , 0000000000.00 as ordenado , 0000000000.00 as entregado , 0000000000.00 as saldo , .f. as terminar , 0000 as empresa , 0000000000.00 as saldo_ord , 0000000000.00 as saldo_ent , dsolcom.plan as plan , dsolcom.precio as precio , dsolcom.moneda as moneda , dsolcom.comprador as comprador , dsolcom.cod_pro as cod_pro , esolcom.usraut as usraut , dsolcom.grupo as grupo , dsolcom.uni as uni , esolcom.solaux as solaux , left(esolcom.nota_cierr,254) as nota_cierr , iif(dsolcom.prioridad<=1,"Normal",iif(dsolcom.prioridad=2,"Media","Alta")) as dprioridad , dsolcom.prioridad as prioridad , dsolcom.pedido as pedido , dsolcom.peditm as peditm , .f. as upd , 000 as npresup , cod_cen as cod_cen from esolcom, dsolcom order by dsolcom.sol,dsolcom.itm where esolcom.sol=dsolcom.sol and (xestado=-1 or esolcom.estado=xestado) and &xfiltro and &xfiltro2 into cursor query_sols 5select esolcom.fecha as fecha , dsolcom.sol as sol , dsolcom.itm as itm , dsolcom.cod as cod , dsolcom.atr as atr , dsolcom.bul as bul , dsolcom.descr as descr , dsolcom.cantidad as cantidad , dsolcom.fecha as entrega , esolcom.usr as usr , -1 as usr1 , dsolcom.notas as notas , esolcom.estado as estado , iif(esolcom.estado=0, "Abierta",iif(esolcom.estado=1, "Cerrada","Anulada")) as estado_d , space(40) as dusr , space(40) as dusr1 , .f. as tiene_oc , 0000000000 as oc1 , 0000000000 as oc2 , 0000000000 as oc3 , 0000000000 as oc4 , 0000000000 as oc5 , 0000 as ocemp1 , 0000 as ocemp2 , 0000 as ocemp3 , 0000 as ocemp4 , 0000 as ocemp5 , 0000000000.00 as ordenado , 0000000000.00 as entregado , 0000000000.00 as saldo , .f. as terminar , 0000 as empresa , 0000000000.00 as saldo_ord , 0000000000.00 as saldo_ent , dsolcom.plan as plan , dsolcom.precio as precio , dsolcom.moneda as moneda , dsolcom.comprador as comprador , dsolcom.cod_pro as cod_pro , esolcom.usraut as usraut , dsolcom.grupo as grupo , dsolcom.uni as uni , esolcom.solaux as solaux , left(esolcom.nota_cierr,254) as nota_cierr , iif(dsolcom.prioridad<=1,"Normal",iif(dsolcom.prioridad=2,"Media","Alta")) as dprioridad , dsolcom.prioridad as prioridad , dsolcom.pedido as pedido , dsolcom.peditm as peditm , .f. as upd , 000 as npresup , cod_cen as cod_cen from esolcom, dsolcom order by dsolcom.sol,dsolcom.itm where esolcom.sol=dsolcom.sol and (xestado=-1 or esolcom.estado=xestado) and &xfiltro and &xfiltro2 into cursor query_sols ( sys_performanceSelect 1o query_solsXbienes ) *Xproveedo # #Xcondpago ++Xmedidas ,-Xlineas "%-Xcostos .'. C C(XQ CCXQQCXQQCXQCXQCXQC(XQQQ-QQQ Q -Q!"Q"#Q$%&Q&C'CCC*UCCCS C86C S C 6Ȳ6<9 9T:C/ZC0Z,opsolcomCC/ZC0Z:9%  F>=C9 F#)BU>XARCHIVOXALIASXESTADO XAUTORIZACIONXFILTROXSOLXITMXFILTRO2PERFORMANCE_STARTSYS_PERFORMANCEPERFORMANCE_CHECKPOINT QUERY_SOLSPROVEEDONOMBRECONDPAGODESCRDPLANFEC_COMMONTXT ULTCOMEMP DCOMPRADORDMONEDAUCOD_PROUNOMBREUPRECIOUMONEDATILDEMEDIDASDUNIBIENES ATRIBUTOSATRBUTOSBULTOS LISTA_CIELINEACOD_PROBIE_PROLINEAS MASTERLINECOSTOSDCENTROCOD_INSCODPLANUNICODIGOCOD_CENSOLITMPERFORMANCE_ENDXCODXBULBULXATRATRCODINSATRIBUTO ARR_PSOLCOM XIDSOLITMCOUNTPSOLCOMNPRESUPQTC %ao borrar_backupXbienes  6QCXQCXQCXQCC VARIOSC 6Q C Q  CXQ Q Q Q Q QQQQQQC Q C!Q!C"Q"-Q#$C%Q%C&Q& '( )* + ,-./ 0 1 2 3C 4Q4 5#$ '( + ,-./ 0 1 2 3 51 o borrar_backupXbienes  6Xgrupos 978QCCCC78@z 9999999999999999999_QCXQCXQC7 CVarios(Q C Q  CXQ Q Q Q Q QQQQQQC Q C!Q!C"Q"-Q#$C%Q%C&Q& '( )* + ,-./ 0 1 2 3C 4Q4 578#$ 0 1 2 31 T:CW F;  F:QBU< XARCHIVO3ODEYFUNCNEWFILE_LOCAL_TMPFECHASOLITMCODATRBULBIENESDESCR BORRAR_BACKUPCANTIDADENTREGAUSRUSR1NOTASESTADOESTADO_DDUSRDUSR1TIENE_OCOC1OC2OC3OC4OC5OCEMP1OCEMP2OCEMP3OCEMP4OCEMP5ORDENADO ENTREGADOSALDOTERMINAREMPRESA SALDO_ORD SALDO_ENTCOD_PRONOMBREPLANDPLANPRECIOMONEDAFEC_COMMONTXT ULTCOMEMP COMPRADOR DCOMPRADORUNIDUNI LISTA_CIE PRIORIDADCOD_INSGRUPOSCODIGOGRUPOXAREAXALIAS G(-% C WT\data\CCZ T\data\CCZ G(BUXDATASESSIONID1P_DOSP_UNOP_CODEMPP_SERVERP_SYSTEM= G(T\data\CCZ G(BUXDATASESSIONID2P_SERVERP_SYSTEMP_DOSG4%BCUXAYUDAXINCLUIRCERRADAS XAUTORIZACIONXFILTROXSOLXITMXFAST SOLICITUDES:4 BCUXAYUDAXINCLUIRCERRADASXFILTROXSOLXITM SOLICITUDESL4&CBUXAYUDAXESTADO XAUTORIZACIONXFILTROXSOLXITMXFASTSOLICITUDES_VERSION_1 4%CxcursorbC@Toc_pend%CxfiltrobCl T-G+( in_solcom TTC Datasessionv T TTC T Ca F BU XCURSORXFASTXFILTRO IN_SOLCOMXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2XARCHIVOODEYFUNCNEWFILE_LOCAL_TMPXALIASSOLICITUDES_PENDIENTES4%CxcursorbC<T oc_cerradasG+( in_solcom TTC Datasessionv T TTC T  Ca F BU XCURSOR IN_SOLCOMXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2XARCHIVOODEYFUNCNEWFILE_LOCAL_TMPXALIASSOLICITUDES_CERRADAS4%CxcursorbC9Toc_todasG+( in_solcom TTC Datasessionv T TTC T  Ca F BU XCURSOR IN_SOLCOMXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2XARCHIVOODEYFUNCNEWFILE_LOCAL_TMPXALIAS SOLICITUDES%C: FQ%qTesolcom.estado=0 T.t.%CxcursorbCTtmp"%C esolcom.usr1bNMkselect dsolcom.sol as sol , dsolcom.itm as itm , dsolcom.cod as cod , dsolcom.atr as atr , dsolcom.bul as bul , dsolcom.descr as descr , dsolcom.cantidad as cantidad , esolcom.usr1 from esolcom, dsolcom where esolcom.sol=dsolcom.sol .and. dsolcom.sol=xsol .and. dsolcom.itm=xitm .and. &xfiltro into cursor (xcursor) jselect dsolcom.sol as sol , dsolcom.itm as itm , dsolcom.cod as cod , dsolcom.atr as atr , dsolcom.bul as bul , dsolcom.descr as descr , dsolcom.cantidad as cantidad , -1 as usr1 from esolcom, dsolcom where esolcom.sol=dsolcom.sol .and. dsolcom.sol=xsol .and. dsolcom.itm=xitm .and. &xfiltro into cursor (xcursor) T % T  TBUXRESXCURSORXSOLXITMXESTADO XSOLICITANTEXFILTROUSR1 < ,oesolcom% nTC T BUXESTADOXSOL ARR_ESOLCOMESOLCOMESTADOSOLDSOLCOMaT% 1F BFG((ultcom<GF ECC$GF&%  F G((codpro E "T C   6T "TC 6"TC 6-TCC 6"TC   69TC  C 66% F FG((ultcom<GF ECC$GF&%  VF G((codpro E "T C   6T "TC 6"TC 6-TCC 6"TC   69TC  C 66BUX2XFEC_COMTCOMPRAS TCOMPRAS2ULTCOMXARTCOD_INSATRBULFEC_COMPROVEEDOCODPROCOD_PRO XUCOD_PROXUNOMBRENOMBREXUPRECIOCOS_LIFOXUMONEDAMONEDAXUMONTXT MM_MONEDA XUFEC_COM XUULTCOMEMPP_CODEMPP_DOSP_UNOCOMPRASCOMPRAS2)4TC 5TTCX T T T -+ % %%%  "C proveedocodproF G>    !C"  Normal!C"  MediaAlta66 #$ T$CC+C CO6CcostoscodigoCusuarioscodigoE>%&'()*,%$! #$ 5-./012T-C34T.sol_pendientes2 T/T0C Datasessionv T1 T2C-5F6QF , --.* T7aF BU8XSOLXITMXTIPO_EDICION_DESEADA XRESUMIDOXSOLO_EDITAR_PRESUPUESTOSXFECHAXCENTROXUSR1XPRESUP_NPRESUPXRES IN_SOLCOMPROVEEDOCOD_PROSOL_PENDIENTESTMPCODATRBULDESCRCANTIDADENTREGAFECHANOTASNOMBREPLANDPLANPRECIOMONEDA COMPRADOR DCOMPRADORUNIDUNI PRIORIDAD DPRIORIDADDSOLCOMNPRESUPXREGNOCOD_CENDCENTROCOSTOSUSR1DUSR1USUARIOSFORSOLXARCHIVOXALIASXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2ODEYFUNCNEWFILE_LOCAL_TMPSOLICITUDES_PENDIENTESSOL_PENDIENTES2 XACTUALIZAR&TCsolicitudes_pendientesNCF ~% 1C  FBUOSOLICITUDES_PENDIENTESFILL_SOLICITUDES_ATRASADASSOL_PENDIENTESORDENADOCANTIDADMSG_AGREGAR_MSGSOLITMENTREGACODBULATRPRECIO PRIORIDADTCUTHISARCHIVOODEYFUNCNEWFILE_LOCAL_TMP45TT TTC Datasessionv T T C- U XDIASXALIASXARCHIVOXDATASESSIONIDXDATASESSIONID1XDATASESSIONID2XODS2THISARCHIVOALIASSOLICITUDES_PENDIENTES)'%CSysmsg YQ \sysmsg <T CMensaje_solicitud Mensajes.vcxa T T T %C  "4 in_solcomUXSOLXITMXFECHAXCODXBULXATR XCANTIDADXPRECIO XPRIORIDADP_SYSTEMOMSGMSG_LEER MSG_SUBTIPO DAT_SOLICITUDDAT_ITEMOBJ_BUSCAR_SUCESOSOL_INSERTAR_MENSAJE IN_SOLCOM4%CxFiltrobCLT.T.%CxEstadobN{T#%C xautorizacionbN T%CxFiltrobCT.t.%CxsolbN  T%CxitmbN6 T2sys_procesandoPreparando consulta C *sys_procesando Consultando&C  )sys_procesando AnalizandoC- %$Ca %CA010592KFQ%C usuarios_xuFQ sys_security CTCF (Q&  F G-(>G-(> F G-(T T! T"a ~z%#   %" T$CO #!>%a$#  #$%#  T # T!CO T"aT"" '( ">)C6%v >% %" #!>%a$# %C usuarios_xQ*sys_procesando F #)BU+XAYUDAXESTADO XAUTORIZACIONXFILTROXSOLXITMXFAST SP_MENSAJESYS_PROCESANDO OPEN_FILESGET_SOLICITUDESXARCHIVOXALIASPROCESARP_DOSA010592 USUARIOS_XCREATE_OBJECT_SECURITY SYS_SECURITY OSECURITY SEC_TABLE_GET XARCHIVO1ODEYFUNCNEWFILE_LOCAL_TMPA4USRDUSRA3ALLUSR1DUSR1 COMPRADORXOLDSOLXOLDREG XLISTACIESOL XOLDREGISTRO LISTA_CIEREST ENTREGADOCANTIDAD DCOMPRADORSP_OCULTAR_DEFINITIVAMENTEF TCC+C CO6 T TFC generar_soljosol_pendientesQbienesQ CC   6Q    q TTCX ~3%C /T T %CqQQ%IC<Las solicitudes seleccionadas tienen ms de un proveedor !!!B-T%<.osol_pendientesQ% C>Las solicitudes seleccionadas tienen ms de un solicitante !!!C-C C DEV: p_cm_co_solicitantes=16B- TCF>a?osol_pendientesQ1\tmp\tmp_sol_oc<o tmp_sol_oc% pTC TCXC generar oc!a%C tmp_sol_ocQ T TFCupd %!FCaupd F>-%{#)  #BU" XSAVE_XALIASXSAVE_XARCHIVO XREGISTROSOL_PENDIENTESXALIASXARCHIVOSYS_MDISTINCTSCOD_PROBIENESBCODCOD_INSTILDEQXLLENOS_DISTINTOSXCOD_PROMENSAJE XOC_SOLICITAP_CM_CO_SOLICITANTESARR_AAAUSR1P_DEVUPDFORP_LOCALARR_TMP_SOL_OCCOD_CEN TMP_SOL_OCXCENTRO CM_COMPRAPROCESARP_DOS open_filesZver_oc procesar: get_solicitudesresumiro.set_ds16set_ds27solicitudes_pendientes8solicitudes_cerradas8 solicitudes9solicitudes_pendientes_ayuda9solicitudes_cerradas_ayuda~;solicitudes_ayuda<validar_solcom>> validar_solB ultima_compratCver_solGactualizar_alertasDNinitOfill_solicitudes_atrasadasOmsg_agregar_msgPsolicitudes_version_1R generar_ocYI TTsol_pendientes   UARCHIVOALIASsolicitudes_pendientescustomaqA3r!RqAEAA1qAAqAAqAAqAAqAAqAAB31A!AAAAAAA1A!A!AAA!AAA!A1A!AAAArB42ArsAB31dA2AAAAAA!tq2r1"A1ABqqA!BAqqAqrqqAAAqqArqqAq"qqAAABBqqAAAqqA!B1qqA2AAqqAqqAAABB3AAAA2A1A2AA&iQiA03R2rrqArqArR"AAQB2p / q/AAB5AA2A2Q3q3bB2AAA2B2qA2B2qQA2B2AArAA#AAB2r"A2q3qqAbabr"!!!CqqAbabr"!!!BB2q<s13!Ar`qsX2AbrArBBrB2bq1AqAB9A2q3qAqAAA4AA1AAAA!b32AqAAqAArraAB2A#BABBaABA`QA2rr!AA"A2qA1s"AqABtr"ArAu322AsBQAB1?9 Xq$ 2(.N(CtC^^ `4```maa b.bb c/e'VefEfhh[hmqmnnt!t-OLZ!s\˃f tD%9ށ%D V cG(9%%  | T-ft05%x te_comienzocm_imp_aperturaG+(listadosG~(clasesT C T T+a TH  TTCX T T- T T T T T T Tcm_imp_importacion(%CborrarF Q T%FGI(\tmp\ GI FQ\tmp\   >C$oconverQC XQ!CXQ" Q#C XQ$C XQ%C(XQ&Q'Q(CXQ)Q*Q+CXQ,-cur4moconverbienesproveedo-/-0-1Q2-3CXQ(-4-5-0-1-5Q6C-0-1-54TQ7-8-9C-5-9-0-1TQ:-;C-5-9-0-14TQ<=>=?-@-A-,B&B,-detalle_impabm#)  FGI(\tmp\ GI FQ\tmp\  DocomprasproveedocccompDEQDFQ!GHQ"CD#CFCCD#cNCND66Q#C XQ$CDIZQ%B&Q&GJQ'G(Q(CXQ)G4Q*G+Q+G,Q,D,B,DIGI D DI cur1 ~s>)C(LoconverXconver2 -MNMproveedo-QC-M ZQ!C-MZQ"MVQ#C-@ZQ$C XQ%B&Q&-Q'-3Q(CXQ)-4Q*CNOQ+B,Q,--,B, cur2 ~>)C(L0oconvertcomprasproveedotcccompQEQCQ@ ZQ!CQ@ZQ"OCQ#CQ@ ZQ$C XQ%B&Q&QEQ'Q(Q(CXQ)Q4Q*R+Q+B,Q,Q@R@ - -@Q@ Q,B, cur5otcomprasproveedotcccompQEQCQ@ ZQ!CQ@ZQ"OCQ#CQ@ ZQ$C XQ%B&Q&QEQ'Q(Q(CXQ)Q4Q*R+Q+B,Q,Q@R@ R Q,B, cur6%o cur6cur5Ǽcur7ocur7Ǽcur3 ~S >)C(L:o cur2 cur3cur1cur4oconverbienesproveedo-/-0-1Q2-3CXQ(-4-5-0-1-5Q6C-0-1-54TQ7-8-9C-5-9-0-1TQ:-;C-5-9-0-14TQ<=>=?-@-A-,B&B,-/=/-,B,  detalle_impabm#) T9 l TXCC3L>(X v 7K(52:<524#) T4 T3"TCdetalle_impabmNF H  % ! n %\ T j !  % T  !  T  T% cm_imp_abm([S/%[S   T\"]trsac\importac%\T_CM_IMP_APERTURA$T`Apertura de Importacion T\atrsac\_` CbCdC Zic T\etrsac\_`%fOC Se ha registrado la importacin CC@z 999,999,999_ !!!!g 3C&No se pudo concluir la transaccin !!!g ThH 3! |%jT x! % T !  T%Ccur1FKQ%Ccur2>FPQ%Ccur3bFWQ%Ccur4F.Q%Ccur5FSQ%Ccur6FTQ%Ccur7FUQ%CborrarF Q \tmp\ .dbf \tmp\ .cdxBUi ACTIVEFORM DATASESSIONID P_COMBEMPXTIPOPAGXFROMXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZOCM_IMP_APERTURALISTADOSCLASESBORRARNEWFILEXFORMXMAXFORMXIMPORTXNOMBRE XCONDPAGOXMERC_RECIBIDAXCAMBIOXMONEDA XFOB_SNACXFOB_NACXFOB_NAC_PESOS XFOB_PESOSCM_IMP_IMPORTACIONXFACTOR_CONTABIMPORTACP_LOCALFECHADISTINCTCOMPROBCOMPROB2CAUSAREFREF2NOMBREFEC_CONMONEDAMONTXTCAMBIOHOYCOD_PROCONVERCUR4COD_INSENTRASALECANTIDADCOEFCOEFICFOBSUBTOTAL SUBTOTALPDOLARFACTORTOTALCOSTOPESOSBIENESDESCRCODALT1ORDENREFITMPROVEEDODETALLE_IMPABMCOMPRASFEC_COMFAC_COMCCCOMPFAC_COM2OPFEC_DGICUR1 MM_MONEDATRANSFCONVER2DTCUR2TCOMPRASTCCCOMPCUR5CUR6CUR7FROMCUR3XMONTXTALL CM_IMP_ABMCERRADAAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONUSER_LOG PUB_INDEXEND_TRAN TTS_ERRORMENSAJETTS_IDvFG((idx04EC$F^(2%   k T %T &TC idx04.indiceCCZ)%C idx04.indiceCCZC,El tipo de cambio de hoy no fue definido !!!C FIngrselo y modifique nuevamente esta importacin para que se registreC correctamente el FOB en pesos. TT% F G((numero#6T   % 3 %%C importacnumerob } T BF _$>  %C '% "CproveedocodproF > k Tcm_imp_ingresoF >BUIDX04BORRARAAAAMONEDAXFOBFOBCOEFICXCAMBIOMENSAJEXIMPORTIMPORTACNUMERO TTS_ERROR FOB_PESOSPLAZOCONDPAGOCOD_PROPROVEEDOTXTPROVNOMBREXTXTPROVAJUSTAR_TXTPROVCM_IMP_INGRESO%Cproveedo 8Qproveedonombre%Cbienes fQbienes%Cconver Qconver%Ccompras Qcompras%Cconver2 Qconver2%Cimportac &Qimportac%Ccondpago `Qcondpagoplan%Cidx04 "Q \idx04idx04%C incoterms Q \incoterms %Cestimp Q \estimp '%Ccostos _Qcostoscodigo%Ctcccomp QtcccomplistadosBUPROVEEDONOMBREBIENESCONVERCOMPRASCONVER2IMPORTACCONDPAGOPLANP_COMMONIDX04P_SYSTEMCOSTOSCODIGOTCCCOMP INCOTERMS_ZFLISTADOS transaccionE open_filesR1bAA"1tqAA4qaaQq RqaaAAP1A`@ARAaRAzU!rB1B12AA12A1B1A2Q#2A2A1AB1B12AA12A1B1ABBRqAAQqAAQqAAQqAAQqAAQqAAQqAAqqAAH3rr#ba ABB4rQQeRAAABrER!AqqAB3A!A!A1A1AAAAr!AAAAA1A2B2)00@3 %N }m*73;4QSTRINGQSTRINGQSTRINGQSTRINGG+(listadosG+(dey_Func7 TC C TCCXC TCCXC T C N T a %  C AT C % =B-G_ G~(clases<7TC abm_genericosN BUXBIEXBULXATRXFORMULALISTADOSDEY_FUNCXGEN_BIEXGEN_BULXGEN_ATR XGEN_FORMULA CHK_VALUEOBIEDATA_CODIGO_VACIOXOKGET_ART_FOR_DATACLASES POABMGENERICOSHOWJ4 GesG+(dey_FuncG+(Dey_FillCformulasCccformulCbienesCbultosCatributoCform_genC tmp_GenericoCabmtmpGenericoCN%TC C F G((formcompEC Z I+C+ 6C  Z   C Z  F ^JF _JH FG((^C tmp_GenericoDescrcodsustbulsustatrsust NO_CAMBIAR NO_CAMBIARBUXTEMPFGESDEY_FUNCDEY_FILL CHECK_OPENED CHECK_CLOSED CHK_VALUEXFORMULA XGEN_FORMULANEWFILE_LOCAL_TMPCREAR_TABLA_TMPFORM_GENFORMCOMPXGEN_BIEXGEN_BULXGEN_ATRFORMULACODCOMPBULCOMPATRCOMPXOBJ TMP_GENERICO FILL_BIE_FULLG+(dey_FuncCform_genF (FQ$i1 tmp_GenericoC<& UXTEMPFDEY_FUNC CHECK_OPENEDFORM_GEN TMP_GENERICODESCRE C TC FTUSETSXTEMPF OPENFILESTHISFORMTABLA TMP_TABLA1F8> ( \TMP\tmp_GenericoQF G((formcompHC  Z   C Z.*U TMP_GENERICOFORMULATHISFORMCODCOMPCOD_INSBULCOMPBULATRCOMPATRALLP_LOCALFORM_GENFORMCOMPFOR TMP_TABLA17;QSTRINGQSTRINGQSTRINGQSTRING5TC CTCCXCTCCXCTCN+abm_gen_art_for( % ' T T T T B U TXBIETXBULTXATR TXFORMULAXFBIEXFBULXFATR XFFORMULA CHK_VALUEOBIEDATA_CODIGO_VACIOABM_GEN_ART_FORXFRESULT openfileswCrear_Tabla_TMPLOADAntes_de_salirGet_Art_For_DataVTOTReemplazo del Genrico:   Frmula: CZT tmp_GenericoThlpTIDU T a T <T descrT  DescripcinT descrTC T,Tcodsust+" "+atrsust+" "+bulsustTArtculo TTC TTCantsustTCantidad TTNTabm_gen_reemplazosTiduT abmgenericosTC] T T T T   U! ANCHO_TOTALTITULOXGEN_BIEXGEN_BULXGEN_ATR XGEN_FORMULATABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 FORMULARIOIDXCLAVE NOMBRE_VISTA TMP_TABLA1FORMULACOD_INSBULATR abm_genericoshlpabm2 "!2qAAbqqB2q"!QQ11QQR1qrqQAAqaD2q!QqA12qAqA;1A1!!QQQ@18 5MCJ I Sb[%  g2 GTGW5 TG_ G~(clases < 7 TTCabm_talonariosNTCU- BUXPV2XPVCLASESPOABMTALONARIOSPOPV SOLO_LECTURAACCESOSHOW ges%Cagente 8F Qagente%Crec_tal kFQrec_tal%CxpvbN Torec_talXagenteQ   CSi 6QCSi 6QC CXQ vrectal& & & & C ZCZ& & BUGESAGENTEREC_TALXPV HABILITADOTXT_HABCERRADOTXT_CERAGNOMBREVENDEDORCOD_AGEPVVRECTALDESDECODIGOPVCODIGOIDUhW%C+Est seguro que desea borrar el talonario CCCZ ?xa UTHISFORMCLAVE_BUSQUEDABORRAR <FG~C'TF  G ~ ^Jprec_tal            % zrrec_tal        FUPOABMTALONARIOSPORECIBOTALONARIOOOBJVRECTALREC_TALFORPVCODIGODESDEHASTA HABILITADOCERRADOCOD_AGEOBSIDU openfiles command3.click@ hook_releaseTX T-Trec_Tal Tstr(vrectal.codigo)T TalonariosTvrectalTcodigoTcodigoThlpT  abmvrectal T a T T desdeT desdeTDesdeTN TThastaThastaTHastaTN T TcodigoTcodigoTCdigoTN TTtxt_habTtxt_habTHab TTtxt_cerT txt_cerT!Cer T"#T#vendedorT$vendedorT%Vendedor T& T' T(-  U) ANCHO_TOTAL DOS_COPIAR BORRAR_TABLA BORRAR_CLAVETITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDAORDENTITULO_BUSQUEDA TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2ORDEN2TITULO_COLUMNA2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3ORDEN3TITULO_COLUMNA3ANCHO4CLAVE_BUSQUEDA4ORDEN4TITULO_COLUMNA4ANCHO5CLAVE_BUSQUEDA5ORDEN5TITULO_COLUMNA5 WINDOWTYPE SHOWWINDOW CERRAR_TABLASabm_talonarioshlpabm2KqrbQB2AAqA aA1qA3uqaqAa "ArA6CsA21q!!!!!!111AAAAQQQ1 <$\ p( D v:$R 4%L 7 au QlO7{Tf:\sistema\2000*Tf:\sistema\2000\system\data\3#Tf:\sistema\2000\system T- T- T TG~(clasesG+(listados&G(f:\sistema\2000\system\data\3@ inicial.ges7 T aaa=1f:\sistema\2000\sets)"f:\sistema\2000\abrir_tablas_fijas%G+(f:\sistema\2000\pr_comienzo C \pr_planeamientoBUP_LOCALP_SERVERP_SYSTEMP_AGENUMP_CLINUM PUB_INDEXP_CODEMPCLASESLISTADOSFINICIALGESONESC OPEN_FILEST,sys_procesando Inicializando ges C%sys_procesandoBienesFQbienescodins#sys_procesandoTr04FQtr04tr04'sys_procesandoFormulasFQformulas$sys_procesandoStockF Qstock&sys_procesandoStkxdepFQstkxdep%sys_procesandoBultosF Qbultos'sys_procesandoAtributoFQatributo'sys_procesandoCcformulFQccformul%sys_procesandoVentasF QventasG((ven_fac%sys_procesandoCcventF QccventG((ccvfac'sys_procesandoProducciF Qproducci'sys_procesandoCompprodF Qcompprod&sys_procesandoTcccompF Qtcccomp'sys_procesandoTcomprasFQtcompras(sys_procesando SeguridadF+TCSecuritysys_security.prgCsys_procesandoBU SP_MENSAJESYS_PROCESANDOGESABRIR_TABLAS_FIJASBIENESCODINSTR04FORMULASSTOCKSTKXDEPBULTOSATRIBUTOCCFORMULVENTAS STDVENTASVEN_FACCCVENT STDCCVENTCCVFACPRODUCCICOMPPRODTCCCOMPTCOMPRASOSEC SEC_TABLE_GETSP_OCULTAR_DEFINITIVAMENTE>>>CX >- >- >N >- >- >- > a> CX > -> > >CX >aBUCO_001CO_002CO_003CO_004CO_005CO_006CO_007CO_008CO_009CO_010CO_011CO_012EJ_001EJ_002EJ_003CO_INI open_filess inicializarUq1"bBr"UD3SWq41tDdTttTTttdtqB21111B11 /OI =%FX^XiYU  %CoRespbO KT(0TError al leer la respuesta:  3TError al leer la respuesta: C %C TMPREGCOMFQFQFECOTCOMr TMPREGCOM      CCCC RESP=Null6C FQUOCPBTORESPOEXXRESPTEXTOMESSAGE TMPREGCOMFECOTCOMFECHA SECUENCIALARCHIVO RESPUESTAHOYDESPACHOOBTENER_ARCHIVO_NOMBRE GENERAR_TODO TaT C T C T C T C BU XDOMICILIOXCPXCIUXPROVXOKFERE_DOMICILIO_VALIDOFERE_DOMICILIO_CP_VALIDOFERE_DOMICILIO_CIUDAD_VALIDOFERE_DOMICILIO_PROVINCIA_VALIDO BC UXCIU BC UXPROV%BC CC> UXCP T T T T T- T- T-*CB U XDOMICILIOXCALLEXNUMEROXCOMPLEXRETURNBCALLEBNUMEROBCOMPLEFERE_DOMICILIO_SEPARARBCU XDOMICILIOFERE_DOMICILIO_SEPARARBCU XDOMICILIOFERE_DOMICILIO_SEPARARBCU XDOMICILIOFERE_DOMICILIO_SEPARARe#   T CTC % B  T T T (T C 4%C S/N1/21/4BIS  ; T Ta.7%     C  T Ta.T   TaTCHU CxReturnbN B  B 9 B U B BU XDOMICILIOXCALLEXNUMEROXCOMPLEXRETURNBCALLEBNUMEROBCOMPLENPALNITXPALABRAXTEXTOAWORDSFERE_SOLONUMEROS Ta+C>TC=%CC09 j T-!TC\ BUXTEXTOXOKXLETRA3 TC=TCRHS, C$C$TCC\0T000H rH RT091 XT094 VHC AgT001 BT006 CT011 MT051 cH A T003 BDT008 ChT013 MT053B 2,T00C\T00H rYHU R2T91 XUT94 VH~  AT01 BT06 CT92 M T51B UXCOMPROBXCAUSAXLETRAXNROXSUCXID TCC- =TC=TC=TCTCCCZ0;TTB____.txt BUXCUITXPLANTAXPUERTAXFECHA XSECUENCIALXNOMBRE XSECUENCIALTXFECHATTC|%V T T TC\%C> T TC\ BUXTEXTOXVALORXVALOR_NORMALIZADOXPOS1BCaUXTEXTOXVALORXFORZADO XDECIMALES PONER_PIPEG/BCUXTEXTOXVALORXFORZADO XDECIMALES PONER_PIPEG0BCUXTEXTOXVALORXFORZADO XDECIMALES PONER_PIPEG/BCUXTEXTOXVALORXFORZADO XDECIMALES PONER_PIPEG@"BC|UXTEXTOXVALORXFORZADO XDECIMALESXCUITXLARGOPONER_SEPARADORGj %C xSeparadorbCET BCUXTEXTOXVALORXFORZADO XDECIMALES XSEPARADORPONER_SEPARADORGgTC HF CxValorbDqTC CxValorbTTCC \ CxValorbLTC106 CxValorbC  T CxValorbNy%JTCCZ u!TCCCZ. 2 T%TC-%CxTextobC T %C xSeparadorbCT|%C> FTT BUXTEXTOXVALORXFORZADO XDECIMALESXCUIT XSEPARADORXVALORT;TC01TCUXCUITXTEXTO PONER_PIPEPONER_PIPE_CUIT>TC04TCCCZU XCOMPROBANTESXTEXTO PONER_PIPE?,TC BUXARCHIVOFERE_OBTENER_NOMBRE_ARCHIVOTHISCUITPLANTAPUERTAFECHA SECUENCIALTCTCTCTCC C BUXPATH XFULLPATHXARCHIVOXNHANDXTEXTOTHISOBTENER_ARCHIVO_NOMBRE GENERAR_TODOiG+(FE_Funciones_COTTCTCBC C UFE_FUNCIONES_COTXTEXTO PONER_PIPETHIS TIPO_REGISTROPONER_PIPE_CUITCUIThG+(FE_Funciones_COTTC04TCBC C UXTEXTOFE_FUNCIONES_COT PONER_PIPE PONER_PIPENTHIS VALIDACIONESCOUNTw TgTCTCT BUXREG2CXREG2XREG3OVALTHIS VALIDACIONESGENERAR_REGISTRO GENERAR_ITEMSVTCTCTCBUXREG1XREG2CXREG4THISGENERAR_REGISTROGENERAR_VALIDACIONESGENERAR_VALIDACIONES_CANTIDADq6TCFERE_ValidacionFE_Funciones_COT.PRG% aC BU XNOAGREGAROVALTHIS VALIDACIONESADD#TC BUTHISDIRCOT OBTENER_TEXTO"TCUXVALTHISDIRCOT PARSEAR_TEXTO"T BUTHISCALLEDOMICILIO_CALLE,TT UXVALTHISCALLEDOMICILIO_CALLE"T BUTHISNUMERODOMICILIO_NUMERO.T T UXVALTHISNUMERODOMICILIO_NUMERO"T BUTHISDIR_COMPDOMICILIO_COMPLET UXVALTHISDOMICILIO_COMPLE"T BUTHISCPDOMICILIO_CODIGOP.T T UXVALTHISCPDOMICILIO_CODIGOP.T T UXVALTHISCIUDOMICILIO_LOCALIDAD"T BUTHISCIUDOMICILIO_LOCALIDAD"T BUTHISPROVCDOMICILIO_PROVINCIA.T T UXVALTHISPROVCDOMICILIO_PROVINCIA TTCTCTCTCTCTCTC TC TC  BU XTEXTO PONER_PIPETHISDOMICILIO_CALLEDOMICILIO_NUMERODOMICILIO_COMPLEDOMICILIO_PISO DOMICILIO_DTODOMICILIO_BARRIODOMICILIO_CODIGOPDOMICILIO_LOCALIDADDOMICILIO_PROVINCIATCTCTCTCTCTCT CT CT C BU XTEXTOTHISDOMICILIO_CALLE PARSEAR_PIPEDOMICILIO_NUMERODOMICILIO_COMPLEDOMICILIO_PISO DOMICILIO_DTODOMICILIO_BARRIODOMICILIO_CODIGOPDOMICILIO_LOCALIDADDOMICILIO_PROVINCIA TTCTCTCTCTCTCTC TC TC  BU XTEXTOPONER_SEPARADORTHISDOMICILIO_CALLEDOMICILIO_NUMERODOMICILIO_COMPLEDOMICILIO_PISO DOMICILIO_DTODOMICILIO_BARRIODOMICILIO_CODIGOPDOMICILIO_LOCALIDADDOMICILIO_PROVINCIATC CCIUT C T C  T C  C T T TTTTU XDOMICILIOXCP XPROVINCIAXCIUXCALLEXNUMEROXCOMPLESYS_MTHISDIRTXT PONER_PIPEFERE_DOMICILIO_SEPARARCALLENUMERODIR_COMPCIUCPPROVC]G+(FE_Funciones_COTTCTCTCTCTCTC TC TC TC TC TCTCTCTCTCTCTCTCTCTCTCTCTCTC TCTCTCTC TC!TC"TC#TC$TC%TC&TC'TC( TC)TC*TC+TC,TC-TC.TC/TC1a0BC C U2FE_FUNCIONES_COTXTEXTO PONER_PIPETHIS TIPO_REGISTRO FECHA_EMISION CODIGO_UNICOFECHA_SALIDA_TRANSPORTEHORA_SALIDA_TRANSPORTESUJETO_GENERADORDESTINATARIO_CONSUMIDOR_FINALDESTINATARIO_TIPO_DOCUMENTODESTINATARIO_DOCUMENTOPONER_PIPE_CUITDESTIANTARIO_CUITDESTINATARIO_RAZON_SOCIALDESTINATARIO_TENEDORDESTINO_DOMICILIO_CALLEDESTINO_DOMICILIO_NUMERODESTINO_DOMICILIO_COMPLEDESTINO_DOMICILIO_PISODESTINO_DOMICILIO_DTODESTINO_DOMICILIO_BARRIODESTINO_DOMICILIO_CODIGOPDESTINO_DOMICILIO_LOCALIDADDESTINO_DOMICILIO_PROVINCIAPROPIO_DESTINO_DOMICILIO_CODIGOENTREGA_DOMICILIO_ORIGEN ORIGEN_CUITORIGEN_RAZON_SOCIALEMISOR_TENEDORORIGEN_DOMICILIO_CALLEORIGEN_DOMICILIO_NUMEROORIGEN_DOMICILIO_COMPLEORIGEN_DOMICILIO_PISOORIGEN_DOMICILIO_DTOORIGEN_DOMICILIO_BARRIOORIGEN_DOMICILIO_CODIGOPORIGEN_DOMICILIO_LOCALIDADORIGEN_DOMICILIO_PROVINCIATRANSPORTISTA_CUITTIPO_RECORRIDORECORRIDO_LOCALIDADRECORRIDO_CALLERECORRIDO_RUTAPATENTE_VEHICULOPATENTE_ACOPLADOPRODUCTO_NO_TERM_DEV PONER_PIPENNIMPORTE^  TNTCT BUXREG3CXREG3OITMTHISITEMSGENERAR_REGISTROw<TCFERE_Validacion_ItemsFE_Funciones_COT.PRG% gC BU XNOAGREGAROVALTHISITEMSADDG+(FE_Funciones_COTTCTCTCTCTC TC TC TC BC C U FE_FUNCIONES_COTXTEXTO PONER_PIPETHIS TIPO_REGISTROCODIGO_UNICO_PRODUCTO PONER_PIPENRENTAS_CODIGO_UNIDAD_MEDIDACANTIDADPROPIO_CODIGO_PRODUCTOPROPIO_DESCRIPCION_PRODUCTO PROPIO_DESCRIPCION_UNIDAD_MEDIDACANTIDAD_AJUSTADAQ FERE_CPBT%CoRespbOx>C1Error al leer la respuesta de la presentacin !!!B-"%CTMPFERE_RespuestaFQQFERE_VALIDACION(TC  ( TC  % ]C (TC %C UOCPBTORESPMENSAJETMPFERE_RESPUESTAOREMNIT COMPROBANTESCANTIDADOCOMPOBTENERNIT2 VALIDACIONES PROCESADOFERE_MARCAR_PROCESADO NUMEROUNICOCOTNIT3ERRORESOERRCODIGO  CH= rF>aF >a %F> F >   VF>a F >a %F>  F >  BU XNUMEROUNICOXCOTXCOMPROBXCAUSAFERE_NUMEROUNICO_PARSECCVENTREGCOTFORREM_VENTMPREMITONUMCOTFAC_VENCAUSAFACTURATC=TC\TC \Hl 091TrTR 094TrTX 001TVTA 0064TVTB 011fTVTC 051TVTM 003TcTA 008TcTB 013.TcTC 053`TcTM 2TXTXT-U XNUMEROUNICOXCOMPROBXCAUSAXIDXSUCXNROXLETRA "%CTMPFERE_Respuesta8FQTCXh1CCC M NQ%CoRespbOcrTMPFERE_Respuesta (NO SE PUDO LEER LA RESPUESTA DE ARBA !!!NOqHubo un error de comunicacin con ARBA, debe reintentar presentar los remitos ya que estos NO FUERON TRANSMITIDOSXrTMPFERE_Respuesta DEBE REPROCESAR LOS REMITOS!!!%CoRespbC_BrTMPFERE_Respuesta PASO: NO d ( [TC  ( WTC% ;( 7TCC SC ( TC C %CrTMPFERE_Respuesta NO SE PUDO CONECTAR CON ARBANOqHubo un error de comunicacin con ARBA, debe reintentar presentar los remitos ya que estos NO FUERON TRANSMITIDOSXrTMPFERE_Respuesta DEBE REPROCESAR LOS REMITOS!!! ` T(J0TError al leer la respuesta: > B2ve_armar_despacho_por_remito_electronico_resultadoUOCPBTORESPTMPFERE_RESPUESTAXFILEODEYFUNCNEWFILE_LOCAL_TMPCOMPROB RESPUESTA PROCESADORESPFNERRORNIT COMPROBANTESCANTIDADOCOMPOBTENERNIT2 VALIDACIONESOREMNIT3ERRORESOERRFERE_INSERTAR_VALIDACION_ERRORFERE_INSERTAR_VALIDACIONFERE_INSERTAR_ERROR_GENERALOEXXRESPTEXTOMESSAGEIN2VE_ARMAR_DESPACHO_POR_REMITO_ELECTRONICO_RESULTADOe[rTMPFERE_Respuesta PROCESADOCSINO6UOREMCOMPROB RESPUESTA PROCESADO NUMEROUNICO  "TCZ: TgrTMPFERE_Respuesta  C SINO6U OREMOERRXERRORXERRNUMCODIGO DESCRIPCIONCOMPROB RESPUESTA PROCESADONERROR NUMEROUNICOo"TCZ: <rTMPFERE_RespuestaNOUOERRXERRORCODIGOMENSAJECOMPROB RESPUESTA PROCESADOTCC  T C 6T C]_T 9TCLog\GES.FE.Remitos_CCCZ.LOG!TC BUOFEREXUSUARIOXPASSXARCHIVOXRESPTXTORESPXEXTERNOP_FCE_EXTERNO_PATHLIBRERIAPATHLOGGINGP_DEVSERIALIZAR_HEAD PATH_EXTERNOLOGFILEP_SYSTEMPRESENTAR_REMITO_EXTERNO UXREMITOFERE_Registrar_Comunicacion0FERE_Domicilio_Completo_ValidarxFERE_Domicilio_Ciudad_ValidoFERE_Domicilio_Provincia_ValidoFERE_Domicilio_CP_ValidoFERE_Domicilio_Valido#FERE_Domicilio_CalleDFERE_Domicilio_NumeroFERE_Domicilio_CompleFERE_Domicilio_Separar"FERE_SoloNumeros FERE_Comprobante_A_CodigoUnico FERE_Obtener_Nombre_Archivo" Parsear_PipeJPoner_Pipe_CUITK Poner_Pipe Poner_PipeNN! Poner_PipeN Poner_PipeGPoner_SeparadorPoner_SeparadorG; FERE_Reg_1 FERE_Reg_4[Obtener_Archivo_NombreObtener_ArchivoaGenerar_RegistroEGenerar_Validaciones_CantidadGenerar_Validaciones Generar_TodoNueva_ValidacionW DirCOT_Access DirCOT_AssignC Calle_Access Calle_Assign Numero_Access0 Numero_AssignzDir_Comp_AccessDir_Comp_Assign" CP_Accessd CP_Assign CIU_Assign CIU_Access` ProvC_Access ProvC_Assign Obtener_TextoT  Parsear_Texto"Obtener_Texto_limpio#Obtener_desde_GESj%Generar_Registro!' Generar_Items/ Nuevo_ItemI0Generar_Registro0FERE_Procesar_Respuesta2FERE_Marcar_Procesado5FERE_NumeroUnico_Parse7FERE_Mostrar_Respuesta:FERE_Insertar_ValidacionAFERE_Insertar_Validacion_ErrorvBFERE_Insertar_Error_GeneralCFERE_Presentar_Remito_ExternoKDFERE_Presentar_RemitoET01 TT000T000 TC$ T T Ta .Q       U TIPO_REGISTROCUITPLANTAPUERTAFECHA SECUENCIALDESPACHO PRESENTAR VALIDACIONES COLLECTION T T T T T T T T T T  T  T  T  T  T T T T  ! " # $ % & ' ( ) * + , - . / 0U DIRECCIONCALLENUMERODIR_COMPCPPROVCCIUDIRTXTDIRCOTDOMICILIO_CALLEDOMICILIO_NUMERODOMICILIO_COMPLEDOMICILIO_PISO DOMICILIO_DTODOMICILIO_BARRIODOMICILIO_CODIGOPDOMICILIO_LOCALIDADDOMICILIO_PROVINCIAuT02T TTT T T- T T T  T  T - T  T  T T T T T T T T T T T T- T T T T T T T  T! T" T# T$ T% T& T' T( T) T*- T+ .,Q- 1 2 3U. TIPO_REGISTRO FECHA_EMISION CODIGO_UNICOFECHA_SALIDA_TRANSPORTEHORA_SALIDA_TRANSPORTESUJETO_GENERADORDESTINATARIO_CONSUMIDOR_FINALDESTINATARIO_TIPO_DOCUMENTODESTINATARIO_DOCUMENTODESTIANTARIO_CUITDESTINATARIO_RAZON_SOCIALDESTINATARIO_TENEDORDESTINO_DOMICILIO_CALLEDESTINO_DOMICILIO_NUMERODESTINO_DOMICILIO_COMPLEDESTINO_DOMICILIO_PISODESTINO_DOMICILIO_DTODESTINO_DOMICILIO_BARRIODESTINO_DOMICILIO_CODIGOPDESTINO_DOMICILIO_LOCALIDADDESTINO_DOMICILIO_PROVINCIAPROPIO_DESTINO_DOMICILIO_CODIGOENTREGA_DOMICILIO_ORIGEN ORIGEN_CUITORIGEN_RAZON_SOCIALEMISOR_TENEDORORIGEN_DOMICILIO_CALLEORIGEN_DOMICILIO_NUMEROORIGEN_DOMICILIO_COMPLEORIGEN_DOMICILIO_PISOORIGEN_DOMICILIO_DTOORIGEN_DOMICILIO_BARRIOORIGEN_DOMICILIO_CODIGOPORIGEN_DOMICILIO_LOCALIDADORIGEN_DOMICILIO_PROVINCIATRANSPORTISTA_CUITTIPO_RECORRIDORECORRIDO_LOCALIDADRECORRIDO_CALLERECORRIDO_RUTAPATENTE_VEHICULOPATENTE_ACOPLADOPRODUCTO_NO_TERM_DEVIMPORTEITEMS COLLECTIONT03T00000000 T T T T T T 4U TIPO_REGISTROCODIGO_UNICO_PRODUCTORENTAS_CODIGO_UNIDAD_MEDIDACANTIDADPROPIO_CODIGO_PRODUCTOPROPIO_DESCRIPCION_PRODUCTO PROPIO_DESCRIPCION_UNIDAD_MEDIDACANTIDAD_AJUSTADA FERE_CPBTCUSTOMLFERE_DomicilioCUSTOMMFERE_ValidacionCUSTOMlPFERE_Validacion_ItemsCUSTOMV1A1AqAAABqA21q2q2q3q3q2qA2qA2qA2111A1AAAqAAaA111A3qqa!AA!A11!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAA4!!4q11QaAA312131312!2qA2q11AA1AAAA2qqAa2qqA1q1q1A2qQ2qAQ2AQA22qaAA1A2q412q!312q!!312q!312q!!2q!!21312q!!3q2qQQQQQQQQQ2q211 1qR2AA2qAA<qQ4qA!qAA!adaAAAAA3bAqQqQ1qqqqAAqq1qqAAF2@1!Q!aaaaaaaaaaA3!qAAqQ !A1!AAAAAA A"AA!3q2!r2qq!5q3q39 1111@8Q=&p%"*%-0(64,tC7G:ZK= OeE  zrC  7)J2 $R K  S!QY""e# $i!4$$t'&%%{-&&6&'<'m(D(*`*G**J*1+M_++Q+,T=,,X,,['-Z-^--a-,.eX..i./l7/q/o//s02A24:4n66a8#4@JfJGKiKLeNPPmTT>X,kX^ W^f[#gggi?ii'jkl*l!y(Z(k88L8 TLP%:"i~GG+(FE_Funciones_COTT 30707343792 TT123456'Tf:\Sistema\VS\Pruebas\COT\#TC000000C$6T)TB_30707343792_000000_20140316_000001.txtTTCC U FE_FUNCIONES_COTXCUITXUSUARIOXPASSXPATHXARCHIVOFERE_OBTENER_NOMBRE_ARCHIVOORESPPROCESAR_ARCHIVOMOSTRAR_RESPUESTAg/TCGES.FE.GES_FERemito_ElectronicoTC BUXUSUARIOXPASSXARCHIVOOFEREORESPPRESENTAR_REMITORC*Q(TCC(T CC  ( T C C ( 9T C C C*QUORESPNIT COMPROBANTESCANTIDADOCOMPOBTENER MOSTRAR_COMPNIT2 VALIDACIONESOREM MOSTRAR_REMNIT3ERRORESOERRMOSTRAR_VALERR MOSTRAR_ERROR9 UOCOMP CUITEMPRESANUMEROCOMPROBANTECODIGOINTEGRIDAD NOMBREARCHIVO,C-Q Validacion C-#Q!Numero nico: 0 Procesado: CSINO6UOREM NUMEROUNICO PROCESADO<+Error CZ: UOERRCODIGO DESCRIPCIONr/C*Q ERROR GENERAL C*7Q+ - CZ:UOERRTIPOCODIGOMENSAJEProcesar_ArchivoMostrar_Respuestai Mostrar_Comp` Mostrar_RemMostrar_ValErr Mostrar_Error1r1a042q"AAAA!3qq3qs2qq2qqq1 Bc $i%>*04 %+GzRU %C NOT C! 8%C N{T T CC D FT CC DF@T C  JPGC  PNGBMP66%C _T %C  ;  T C C]  T C !%C  C   T C  /| GenerateFileBarCodeLibrary.dll3|SetConfigurationBarCodeLibrary.dllC   C  )VSetConfiguration GenerateFile B U TCTEXTTCFILETNSIZETNTYPELCTYPELCFOLDERTHISNSIZE CTEMPPATH GENERATEFILESETCONFIGURATION7 %C NIT T CC @DFJ ( T T BMP%C  T  %C   T C C]  uT C !%C  C  X T C  m.tcFile;| FullQRCode QRCodeLib.dllRC     V FullQRCode B UTCTEXTTCFILETNSIZETNTYPELCTYPELCFOLDERTHISNSIZENHEIGHTNWIDTH CTEMPPATH FULLQRCODELAUTOCONFIGURATELAUTOFIT NBACKCOLOR NBARCOLORNCORRECTIONLEVEL NENCODING NMARGINPIXELS NMODULEWIDTHl  T BMP%C T %C  n  T C C]  T C !%C  C  T C  m.tcFile'| FastQRCode QRCodeLib.dllC V FastQRCode B UTCTEXTTCFILELCFOLDERLCTYPETHIS CTEMPPATH FASTQRCODE2%C NUT  T CC HDFT CC D FT T PNG%C T  %C   T C C]  T C !%C  C  g T C  m.tcFile"T CLMQH \%C T Mm.lcUrl = [https://chart.googleapis.com/chart?cht=qr] + [&chs=] + TRANSFORM(m.tnSize) + [x] + TRANSFORM(m.tnSize) + [&chld=] + m.lcCorrection + [|] + TRANSFORM(m.lnMargin) + [&chl=] + m.tcText 0|URLDownloadToFile URLMON.DLL )%C   B  + BUTCTEXTTCFILETNSIZETNTYPELCTYPELCFOLDERLCURL LCCORRECTIONLNMARGINTHISNSIZE NMARGINPIXELS CTEMPPATHNCORRECTIONLEVELURLDOWNLOADTOFILEURLMONDLLa'| QRCodeLibVer QRCodeLib.dllT CV QRCodeLibVer B U LCVERSION QRCODELIBVERj.|LibraryVersionBarCodeLibrary.dllT CVLibraryVersion B U LCVERSIONLIBRARYVERSIONMTCCC]TCJ(UTHIS CTEMPPATHTEMPPATHCAPPPATHNSIZENHEIGHTNWIDTHR%KC%CG UTHISLDELETETEMPFILES EMPTYFOLDER CTEMPPATHQOBJECTH0f C JB- C fB-T C *.*,T CScripting.FileSystemObjectNC a BaUTCFOLDERLOFSOLCMASK DELETEFILE T CXT #| GetTempPathWIN32APIT C  % T CCTEMP T CC  \ B ULCPATHLNRETLNSIZE GETTEMPPATHWIN32API CzT Error number: CC _C Error message: C C C Method:  C Line: C _&C FoxBarcodeQR errorxUNERRORCMETHODNLINELCERRMSGLAQRBarcodeImage,FullQRCodeImage.FastQRCodeImageAGooQRCodeImage QRCodeVersion QRBarcodeVersionZ INIT DESTROYy  EmptyFolderTempPathERRORfT T  T aT @ T a T -T C^T C^T T T T T T T          U CTEMPPATHCAPPPATHLDELETETEMPFILESNVERSIONLAUTOCONFIGURATELAUTOFIT NBACKCOLOR NBARCOLORNCORRECTIONLEVEL NENCODING NMARGINPIXELS NMODULEWIDTHNHEIGHTNWIDTHNSIZE FoxBarcodeQRCUSTOM11AA2!QAAAA3ba=1!A!2!QAAAA$2;#2!QAAAAub2>1q!A!2!QAAAA"1Au A8qqQ8qq6!6!1QAA8qq1qQqAat8q3QA8qa;rPppP< <!~^r=S@ $w;%%}'' s((+)Q*4X+#-AH./Z0F2pS2%K`y! wcY'4%C V:C-Carpeta de exportacin imposible de crear !!!B T)%Cxexplosion_surtidosbL T- C% C%   |%C tmp_costos F QT C]#h1 \tmp\ CCCDNNNDNNNNNNNQ \tmp\  & CC%C tmp_remitosFQ%% !  " &B \tmp\C#.dbf( \tmp\C#-1.dbfT$C datasessionvT%CsessionNG(%& T'! T! T()\data\CC Z%Cw27F*Q%Cw28F+Q1RESUME Ca,G (britishON ERROR &onerr C%`'Q \tmp\tmp_remitosC%C# F#QFQ \tmp\C#$ \tmp\C#-1.dbf$ \tmp\C#-1.dbfH$  c=T.0cod_cli, fac_ven, causa, itm, cod_ins, atr, bul  m Hi  // %0T.cod_ins, atr, bul T.cod_ins  /l%0@(T.cod_ins, atr, bul, cod_cli hT.cod_ins, cod_cli  // %0(T.cod_ins, atr, bul, cod_age T.cod_ins, cod_age  /m%0<-T. cod_ins, atr, bul, cod_cli, suc i#T.cod_ins, cod_cli, suc  C/%0)T.cod_ins, atr, bul, clavenum T.cod_ins, clavenum  / o%0;0T.#cod_ins, atr, bul, cod_age, cod_cli k&T.cod_ins, cod_age, cod_cli / %0#T.cod_ins, atr, bul, rfc T. cod_ins, rfc  / U %0' )T.cod_ins, atr, bul, provincia Q T.cod_ins, provincia  /  %0 &T.cod_ins, atr, bul, centro  T.cod_ins, centro  / i %0' =T.0cod_ins, atr, bul, plataforma, canal, logistic_t e 4T.'cod_ins, plataforma, canal, logistic_t  $ H  / T.cod_cli  / T.cod_cli, cod_age  //  T.cod_cli  / J T. cod_cli, suc  /  %0 (T.cod_cli, cod_ins, atr, bul  T.cod_cli, cod_ins  /  T. cod_cli, rfc  /  T.cod_cli, provincia  /  *%/  1  "T.cod_cli, linea, scod  T.cod_cli, linea  / T.cod_cli, centro  / 4T.'cod_cli, plataforma, canal, logistic_t z SELECT cod_ins , atr , bul , DESCR , descrcod , descratr , descrbul , cod_cli , nombre , suc , SUM(ene ) AS ene , SUM(feb ) AS feb , SUM(mar ) AS mar , SUM(abr ) AS abr , SUM(may ) AS may , SUM(jun ) AS jun , SUM(jul ) AS jul , SUM(ago ) AS ago , SUM(sep ) AS sep , SUM(oct ) AS oct , SUM(nov ) AS nov , SUM(dic ) AS dic , SUM(enesc ) AS enesc , SUM(febsc ) AS febsc , SUM(marsc ) AS marsc , SUM(abrsc ) AS abrsc , SUM(maysc ) AS maysc , SUM(junsc ) AS junsc , SUM(julsc ) AS julsc , SUM(agosc ) AS agosc , SUM(sepsc ) AS sepsc , SUM(octsc ) AS octsc , SUM(novsc ) AS novsc , SUM(dicsc ) AS dicsc , SUM(TOTAL ) AS TOTAL , SUM(ene2 ) AS ene2 , SUM(feb2 ) AS feb2 , SUM(mar2 ) AS mar2 , SUM(abr2 ) AS abr2 , SUM(may2 ) AS may2 , SUM(jun2 ) AS jun2 , SUM(jul2 ) AS jul2 , SUM(ago2 ) AS ago2 , SUM(sep2 ) AS sep2 , SUM(oct2 ) AS oct2 , SUM(nov2 ) AS nov2 , SUM(dic2 ) AS dic2 , SUM(tot2 ) AS tot2 , SUM(enep ) AS enep , SUM(febp ) AS febp , SUM(marp ) AS marp , SUM(abrp ) AS abrp , SUM(mayp ) AS mayp , SUM(junp ) AS junp , SUM(julp ) AS julp , SUM(agop ) AS agop , SUM(sepp ) AS sepp , SUM(octp ) AS octp , SUM(novp ) AS novp , SUM(dicp ) AS dicp , SUM(totp ) AS totp , linea , dlinea , grupo , dgrupo , subgrupo , supergrupo , dsgrupo , marca , dmarca , cod_age , nomage , SUM(peso ) AS peso , SUM(cantidad ) AS cantidad , SUM(cantaux ) AS cantaux , unidad , unidadaux , SUM(importe ) AS importe , SUM(costototal ) AS costototal , MIN(prec_min) AS prec_min , MIN(prec_min_a) AS prec_min_a , 000000000000.00 AS precio , 000000000000.00 AS precioaux , 000000000000.00 AS costo , 000000000000.00 AS costoaux , 000000000000.00 AS margen , 000000000000.00 AS contmarg , SUM(pp ) AS pp , SUM(APP ) AS APP , zona , dzona , a1 , a2 , a3 , a4 , cat , clavenum , SUM(subtotal) AS subtotal , SUM(descom) AS descom , SUM(ncnd) AS ncnd , SUM(totalsc) AS totlasc , SUM(importefin) AS importefin , suc_des, suc_dir, suc_ciu, rfc, drfc,factor, provincia , tipo_cpbt,fac_ven, causa, itm, fec_ven , centro, dcentro , gruec, dgruec FROM rpt_ve_estadisticas GROUP BY &xgrupo INTO TABLE (p_local+"\tmp\"+ALLTRIM(xarchivotemporal)+"-1.dbf") >2C343 65C646 67C383 69C686 6:C4d484 6;48>=C> ?> 6@CA BA 6CCD ED 6FCG HG 6ICJ KJ 6LCM NM 6OCP QP 6RCS TS 6UCV WV 6XCY ZY 6[C\ ]\ 6^C_ `_ 6aCb cb 6Q F#S$ \tmp\C#-1.dbf$ \tmp\C#-1.dbf TdHy% ;Te.cod_cli+fac_ven+causa+str(itm)+cod_ins+atr+bul ! TeH/  /Te"" /FTe str(linea,2) /mTecod_cli /%fTestr(val(cod_age)) Tecod_age C/Te str(clavenum) /x%gK)Testr(val(cod_cli))+str(suc,3) tTecod_cli+str(suc,3) /%f+Testr(val(cod_age))+str(linea,2) !Tecod_age+str(linea,2) / }%fTestr(val(cod_age))%gq.Tee+str(val(cod_cli))+str(suc,3) $Tee+cod_cli+str(suc,3)Tee +str(linea,2) y!Tecod_age+str(linea,2)%g).Tee+str(val(cod_cli))+str(suc,3) W$Tee+cod_cli+str(suc,3)Tee +str(linea,2) / Testr(rfc) / Te provincia / Tecentro / / (Teplataforma+canal+logistic_t TdeHQ ! hC!%i %0 +Tee+str(val(cod_ins))+atr+bul  #Tee+str(val(cod_ins)) ?!%0!!Tee+cod_ins+atr+bul ;!Tee+cod_ins hm!Tee+descr h!Tee+idxstr(total) % TeH!D$ /!Te"" /X"%f6"Testr(val(cod_age)) T"Tecod_age // "Te str(clavenum) / "Te"" / #%0"Tecod_ins+atr+bul #Tecod_ins / :#Testr(rfc) / c#Te provincia / #*%/  1 #Testr(linea)+scod #Te str(linea) /$Tecentro /D$*Teplataforma, canal, logistic_t TdeHf$% h$%i$#Tee+str(val(cod_cli)) $Tee+cod_cli h$Tee+nombre h/%Tee+idxstr(total) h %%it%#Tee+str(val(cod_cli)) %Tee+cod_cli F# CajGIEINDEX ON &xxx TO (p_local+"\tmp\"+ALLTRIM(xarchivotemporal)+"-1") GI ( \tmp\C#-1 F#S$ \tmp\C#-1.dbfQ$ \tmp\C#-1.dbf$ \tmp\C#-1.idx T!' G($T()\data\CC!Z G((%C tmp_remitos'FQ% 6' Ck%lS' Cm%   '%C tmp_costos '"Q \tmp\  IDF /( \tmp\rpt_ve_estadisticas_costosQBUnTIPO_LIS EXPORT_DIRMENSAJEXDIR P_DIR_EXPORTXEXPLOSION_SURTIDOS ABRIR_TABLASXDCTRINICIALIZA_TABLA_REMITOSXDCOSTOSXDTIP TMP_COSTOS XTMP_COSTOSP_LOCALCODATRBULFECCOSCOS_ORIMON_ORIFEC_ORITC_ORITC_FECTC1TC2TC3TC4TC5IDPROCESAR TMP_REMITOSP_DOSP_CODEMPXDCSLXARCHIVOTEMPORAL XOLDSESIONXSESION_ALTERNATIVA DATASESSIONID OLP_P_CODEMPP_SERVERP_SYSTEMW27W28SETSBRITISHXGRUPOXDSEPXDXBAXDCODPRECIOCANTIDADIMPORTE PRECIOAUXCANTAUXCOSTO COSTOTOTALCOSTOAUXMARGENCONTMARGALLENEPENE2ENEFEBPFEB2FEBMARPMAR2MARABRPABR2ABRMAYPMAY2MAYJUNPJUN2JUNJULPJUL2JULAGOPAGO2AGOSEPPSEP2SEPOCTPOCT2OCTNOVPNOV2NOVDICPDIC2DICTOTPTOT2TOTALZZZXXXP_AGENUMP_CLINUMXDORDP_NUMINSCREAR_TABLA_RESUMENAVANCEXDEXPEXPORTAR_CONSOLIDADO@V 4 T T% %C tmp_costos "Q\tmp\  ID T G british%CAcuerdos Qacuerdos%2*CAn no se ha implementado !!! T TB(CIniciando datos... 5TCC]R5TCC]R5TCC]R5TCC]R5TCC]R"%C X C X MFG((abrev E T E T"%C X C X T 999999999%CerroresFQF"h1\tmp\MQ!Q\tmp\%Cborrar%FQFCQ!Q\tmp\GIH{  8& CZ !"(\tmp\  H  ## i%$=&& !"(\tmp\ e& (\tmp\ #%$*& !"(\tmp\ "& (\tmp\ ## l%$<*& !"%(\tmp\ h"& %(\tmp\ #%$3& !"C&Z(\tmp\ +& C&Z(\tmp\ C#~%$L,& !"C'Z(\tmp\ z$& C'Z(\tmp\ # %$.& !"%(\tmp\ && %(\tmp\ # %$P,& !"C(Z(\tmp\ ~$& C(Z(\tmp\ # %$*& !")(\tmp\ "& )(\tmp\ # z%$J*& !"*(\tmp\ v"& *(\tmp\ #  %$2& !"+,-(\tmp\  *& +,-(\tmp\  H.  #_ & (\tmp\ # "& %(\tmp\ ## & (\tmp\ #  '& C&Z(\tmp\ # ? "& (\tmp\ # v $& C(Z(\tmp\ #  "& )(\tmp\ # B *%#  .  (& C/Z0(\tmp\ > $& C/Z(\tmp\ #w "& *(\tmp\ # *& +,-(\tmp\GI %1  ,CTomando artculos y clientes2 C3 C.CAnalizando los datos obtenidos2&Ctemp.log Comienzo scana4FH J  (& CZ !" H  ## L %$- &  !" H &   # %$ &&  !"  &   ## 3%$ &&  !"5 /&  5 #%$2&  !"C&Z $&  C&Z C#%#B%$(&  !"C6Z >&  C6Z %$(&  !"C7Z &  C7Z # +%$-&  !"5 '&  5 # %$u(&  !"C(Z &  C(Z #  %$&&  !") &  ) # y%$S&&  !"* u&  * # %$4&  !"+,- &&  +,- JH+F #O&  #z& 5 ## &  # & C&Z # &   # 1& C(Z # \& ) # *%#  . !& C/Z0 & C/Z # & * #F&& +,-F8G((codinsT:C; T;: 0 - CCCNZF T< ~BT<<%C<dG+T;: CC<Z - CCCNZ C bienescodinsFG T=aHUv$ 8ECZ !" T=C4 . H*  ## %$S,% !" !"OE !" T=C4 %  E T=C4 #o%$7% !" !"!E !" T=C4 k!%  gE  T=C4 ## V%$7% !"5 !"5!E !"5 T=C4 R!% 5 5NE 5 T=C4 #|%$L% !"C&Z !"C&Z-E !"C&Z T=C4 x>% C&Z !"C&ZtE C&Z T=C4 C#^%#{%$#;% !"C6Z !"C'Z#E !"C6Z T=C4 w%% C6Z C'ZsE C6Z T=C4 Z%$;% !"C7Z !"C'Z#E !"C7Z T=C4 V%% C7Z C'ZRE C7Z T=C4 # ^%$B% !"5 !"5(E !"5 T=C4 Z,% 5 5VE 5 T=C4 # F%$;% !"C(Z !"C(Z#E !"C(Z T=C4 B%% C(Z C(Z>E C(Z T=C4 # "%$7% !") !")!E !") T=C4 !% ) )E ) T=C4 # %$7% !"* !"*!E !"* T=C4 !% * *E * T=C4 # * %$M% !"+,- !"+,-/E !"+,- T=C4 & ;% +,- +,-" %E +,- T=C4 v$HR r$ # % E T=C4 # !%55 E5 T=C4 ## >!%:! E T=C4 # !+%C&ZC&Z!EC&Z T=C4 # !!%  !E  T=C4 # X"%%C(ZC(ZT"EC(Z T=C4 # "!%))"E) T=C4 # #*%#  . H#0%C/Z0C/Z0D#EC/Z0 T=C4 #%%C/ZC/Z#EC/Z T=C4 ##!%**#E* T=C4 #r$7%+,-+,-n$!E+,- T=C4%= @*T>?T@ATBCTDE%$ %2TFC GH I SIN CODIGO6 G%2TFC GH J SIN CODIGO6(TKC GH J6(TLC GH E6(TMC GH ?6%CL% TL%CM& TM2%CcdC = SC &!CNmotivoscodigo T> T@ TB TDTFOITKOI TL TMF>  //PPQQRRSS"C$ "6!C$ !666TTUUVVWW77&&XXYYZZ((%5[@\BIF]K^L_M``aabb))ccdd00**eeffgg%)7>hh6%# #   )5>iC&[CC&Z] 6i )(>iCCi.i66%#  #  <*D>++jj--kk,,Tlm%non *TpCC\q%r* TlTslaTtlu Tvl Tw Tx3Twyz{|}~Tww"% r +;% (r   + Tw + Tw#TCvwv 6#TCsws 6% 0%], TG ThH,-)   ,Th , T -ThG T T TTTT T T T%CC = 0^%/C !"C tmp_costosid  C  3.T TxClT 0%/ T T TxT T%TC 6 T T T cs_generarCFx "!C6 Tx /TTxClT9% 80200012 C $ 0xr tmp_costos!" !" 0 Tx TxF)%  0 T m1 T%R1%71 Ts N1 Tv i1 T%1%1 Ts 1 Tv% 5%2TChH -2T CiChiHB23 f2> 2> 2> 2> 2> 3> >3> b3>  3>  3>  3>  3>%5H45 >4> b4> 4> 4> 4> 4> 5> :5>  ^5>  5>  5>  5> 5%6H66 #'6>'6 #J6>'7 #m6>'T #6>'U # 6>'V # 6>'W 7H67 #7>'6 #;7>'7 #^7>'T #7>'U #7>'V #7>'WF>% 8>>v>s>t>w>x%8>w 8A>wCd yd  6%j9>z{|}~zzz{{{|||}}}~~~>CC ļB6C ļB6FCC ļB6C ļB6F%ļB: >%ļBK: >;% r    BF">  //PPQQRRSS"C$ "6!C$ !666TTUUVVWW77&&XXYYZZ((%5[@\BIF]K^L_M``aabb))ccdd00**eeffgg6%# #   #=5>iC&[CC&Z] 6i U=(>iCCi.i6% ?%=TChH =T CiChiH=? =>  >> D>> h>> >> >> >> >>  ?>  @?>  d?>  ?> ?%@H?@ #?>'6 #@>'7 #'@>'T #J@>'U # m@>'V # @>'W AH@A #@>'6 #@>'7 #A>'T #;A>'U #^A>'V #A>'WF>>v>s>t>w>x>>wCdyd  6>CC ļB6C ļB6FCC ļB6C ļB6F Ctemp.logFin scan4%C've_sql_estadisticas_auxiliar4C$Post-proceso de artculos sin cdigo2 CF%CBORRAR'S5C%Post-proceso de los datos adicionales2%Ccatcli CQcatcliFG((codigoFG((codcliFG((codigoFG((codigoFG((codigoFG((codigoFG((codageFG((codigoFG-(RFG-(G-(/G-(PG-(SG-(%G-(6G-((G-(7>C 6C 6C 6C 6CCCd 6FDiCCCLIENTES+CLIENTE INVALIDOi6CCLINEAS+ SIN LINEAI6CCGRUPOS+ SIN GRUPOI6CCSprGrupo+SIN SUPERGRUPOI6CCMARCAS+ SIN MARCAI6CCAGENTE+SIN VENDEDOR/COBRADORi6CCZONAS+SIN ZONAI6CCRUBROFAC+SIN RUBRO DE FACT.I6cCCcatcli+ SIN CATEGORIAI6G-(%$ ,HF8G((codinsFG-( 8%>"!]8I3C#Preparando separaciones del reporte2 THHR H;T.cod_cli+fac_ven+causa+str(itm)+cod_ins+atr+bul N THIM #"IT"" #NIT str(linea,4) #uITcod_cli #I%ITstr(val(cod_age)) ITcod_age #OJ%"J)Tstr(val(cod_cli))+str(suc,3) KJTcod_cli+str(suc,3) #J%J+Tstr(val(cod_age))+str(linea,4) J!Tcod_age+str(linea,4) C#JT str(clavenum) # LL%KTstr(val(cod_age))%nK#T+str(val(cod_cli)) KT+cod_cliT +str(linea,4) HLTcod_age%L#T+str(val(cod_cli)) &LT+cod_cliT +str(linea,4) # tLTstr(rfc) # LT provincia # LTcentro # M*Tplataforma+channel+logistic_t TH"MpN N%M%$~M+T+str(val(cod_ins))+atr+bul M#T+str(val(cod_ins)) N%$M!T+cod_ins+atr+bul  NT+cod_ins >NT+descr pNT+idxstr(total)FG-( 8 R THN+Q #NT"" #?O%OTstr(val(cod_age)) ;OTcod_age ## wOT str(clavenum) # OT"" # O%$OTcod_ins+atr+bul OTcod_ins # !PTstr(rfc) # JPT provincia # P*%#  . PT str(linea) PTstr(linea)+scod #PTcentro #+Q*Tplataforma+channel+logistic_t THMQR Q%Q#T+str(val(cod_cli)) QT+cod_cli QT+nombre RT+idxstr(total)  R%[R#T+str(val(cod_cli)) ~RT+cod_cliFG-( TF%1  R CFGI0INDEX ON &oldxxx TO (p_local+'\tmp\'+borrar) GI F% OS C%UF>C 6C 6C 6C 6C 6C 6 C 6 C 6 C 6 C 6 C 6C 6C 6*CExportacin final de datos2 C((\tmp\rpt_ve_estadisticasQ%C tmp_costosUF QF%CNU rpt_erroresFQ%Cborrar2UFQ\tmp\.* T TBUTIPO_LISXVUELTAOLDXDCUEXDCUEOLDXHCUEXHCUEXDCOSTOSXDTIPP_LOCAL XTMP_COSTOS TMP_COSTOSIDXLOG_ERRORES_CAMBIOBRITISHACUERDOSMENSAJEOESTADO SET_AND_SHOWBORRARERRORESTMP SELECCION SELECCION2CUENTASABREVCOD_CUEERRORCREAR_TABLA_GENERALCOD_CLIFAC_VENCAUSAITMCOD_INSATRBULXDSEPXDXBACOD_AGESUCCLAVENUMRFC PROVINCIACENTRO PLATAFORMACHANNEL LOGISTIC_TXDCODLINEASCODXDDATAVANCECOMPLETAR_INICIALIZAR LOG_TEXTOVENDEDORZONACATBIENESCODINS XBASETEXTOTEXTOXREGSCANXENCXDESCBULDESCBULXUNIDADMEDIDA XUNIDADAUX MEDIDAAUXXDESCATRDESCATRXDESCROBIEDATA_CODIGO_VACIODESCRDESCCOD XDESCRCOD XDESCRATR XDESCRBULMOTIVOMOTIVOSGRUPOSUBGRUPO SUPERGRUPOMARCAA1A2A3A4SUC_DESSUC_DIRSUC_CIUUNIDAD UNIDADAUXDESCRCODDESCRATRDESCRBUL TIPO_CPBTFACTORES_VENTACOD_PRONOMPRODCENTROGRUECDGRUECFEC_VENNOMBREREF_EXT LOGISTIC_D XRECEPCION RECEPCIONP_DOSP_CODEMP XFILTRO_CENSYS_DOSCEN_INLISTCOMPLBBBDDDPESOXUCCCXIMPORTEXCOSTOTOT_VENIMPORTE1IMPORTE2IMPORTE3IMPORTE4IMPORTE5GDESCXDREMREM_VENNO_FCXIMPO XPRECIO_U XPRECIO_UA XFECHACOSXFECHA_COSTO_A_FECHAXANTXCIEXACTXFANTXFCIEXFACTXMANTXMCIEXMACTMV_DSPXCOSTO_UNITARIOCOS XERR_COSTO XMSG_COSTO XFECHA_COSTO XMONCOSTOXDMON XFECHA_TCXMON_ORIXCOS_ORIXCAMBIO_ORIGEN OBTENER_COSTO CS_GENERARCS_COSCODFECCOS_ORIMON_ORIFEC_ORITC_ORIAAAIMPOXDUNIAAA2 XDMENSUALXMESXHFECENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDICENE2FEB2MAR2ABR2MAY2JUN2JUL2AGO2SEP2OCT2NOV2DIC2TOTALTOT2CANTIDADCANTAUXPESOIMPORTE COSTOTOTAL PORCENTAJEDESCOMDES_INSTOT_FUL XACUERDOSPREC_MIN PREC_MIN_AXDCTR TMP_REMITOSACUERDODACUERDODTOACUXDEXPEXPORTARVE_SQL_ESTADISTICAS_AUXILIARDISTRIBUCION_DE_LOS_SIN_CODIGOCATCLICODIGOCLIENTESCODCLILINEASMARCASGRUPOSSPRGRUPOAGENTECODAGEZONASRUBROFACSUBTOTALNCNDPRECIO PRECIOAUXCOSTOCOSTOAUXMARGENCONTMARGDLINEADGRUPODSGRUPODMARCANOMAGEDZONADRFCDCATALLZZZXXXP_AGENUMP_CLINUMXDORDP_NUMINSOLDXXX COMPLETARXSTKACTAGREGAR_STOCK_ACTUALENEPFEBPMARPABRPMAYPJUNPJULPAGOPSEPPOCTPNOVPDICPTOTPCREAR_TABLA_RESUMEN RPT_ERRORESBORRAR2;     TF ~`proc_stkC  6C  6F >UXTIPOXCODXATRXBULXCENTRAL XDEPOSITO XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLNBORRAR OBTENER_STOCKPROC_STKCOD_INSXDXBAATRBUL STK_ACTUAL5%h1\CCCC(C C N  N  N  N N C C C NC(CQ\listadostmpF>%CT.t.$%  K%=T,.and.betw(val(codigo),val(xdbie),val(xhbie)) G.T.and.betw(codigo,xdbie,xhbie)% .T.and. betw(linea,xdlin,xhlin)% ! .T.and. betw(marca,xdmar,xhmar)%"# ;.T.and. betw(grupo,xdgru,xhgru)%$% @T/.and. betw(grupos.supergrupo,xdsprgru,xhsprgru)%&  T.and. bul=xdbul%'  T.and. atr=xdatr .TCT!()FDELE FOR &filtro QF(\>) BU*FILTROTIPO_LISP_LOCALTMPCODIGOBULATRDESCRDBULDATRLINEAGRUPOSUBGRUPO SUPERGRUPOMARCAIDUUNIDAD UNIDADAUXFACTOR DESCRIPCIOCOD_INSARTICULOS_LLENARLISTADOSALLXDFORXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDLINXHLINXDMARXHMARXDGRUXHGRUXDSPRGRUXHSPRGRUXDBULXDATRBORRARDESCRCODTC!T+cod_ins+bul+atrFGI(INDEX ON &zzz TO (p_local+'\borrar') GI (FQGIINDEX ON &zzz TO (xborrar2) GI T- T#)+C+  T- TaH 2 C  %C Zo Ta C TC Z %  Ta C  T  %   Ta C  T  C n%CZ[ Ta C TCZ % CZ Ta C T CZ =% C Z&%C Z" Ta C T C Z  % C Z Ta C T C Z  %CZ Ta C TCZ  9%( Ta C  T  %t Ta C  T  % Ta C TFH#)BUXBORRAR2ODEYFUNCNEWFILE_LOCAL_TMPZZZBORRARBORRAR2OKXSEPOLDSEPPAGXDSEPCOMPLETOLINEACOD_CLICOD_AGECLAVENUMSUCRFC PROVINCIACENTRO PLATAFORMACHANNEL LOGISTIC_T>       BUCOD_INSERRORESCODIGOATRBULLINEAGRUPOSUBGRUPO SUPERGRUPOMARCACLAVENUM XCLAVENUMUNIDAD UNIDADAUX5 T T T T TCOF H_}  T  !T str(borrar2.linea,4) T borrar2.cod_cli T% *&T str(val(borrar2.cod_age)) PT borrar2.cod_age     "T str(borrar2.clavenum)  ,% 9T ,str(val(borrar2.cod_cli))+str(borrar2.suc,3) (/T "borrar2.cod_cli+str(borrar2.suc,3)  d%T str(borrar2.provincia,4)  *%    ,T str(borrar2.linea)+borrar2.scod T str(borrar2.linea)  (T borrar2.centro  }BT 5borrar2.plataforma+borrar2.channel+borrar2.logistic_tF ~8T '+errores.codigo+errores.atr+errores.bulF EC%C4  CH  , L > l >  >  >4          >  >  7 >  *%     > >  >  > F F #BUREG XCLAVENUMCLAVENUMXCOD_CLICOD_CLIXCOD_AGECOD_AGEXSUCSUCERRORESXDSEPXXXP_AGENUMP_CLINUMTIPO_LISXDCODPPPBORRARAGREGARLINEAXLINEASCODXSCODBORRAR2l45%4TC ZTC ZTC1ATC2BTC3CTC4DTC5ETC6FTC7GTC8HTC9ITC0JTCA8TCB7TCC6TCD5TCE4TCF3TCG2TCH1TCI0TCJ9TA B aTBC Z BBUXTX%CxdsepbLRCEFalta la variable XDSEP, error en el reporte avise al programador !!! TRB       UTIPO_LISXDCODXDTIPXDSEPMENSAJE% =TBorrar T TTC T T T T H H  T UTlineaT str(linea,4)TdlineaT LINEA Tcod_cliTnombreTnombreT CLIENTE TTcod_age% Tstr(val(cod_age)) (Tcod_ageTnomageT VENDEDOR TzonaT str(zona)TdzonaT ZONA TcatTstr(cat)TdcatT  CATEGORIA T cod_cli, suc% x-T str(val(cod_cli))+"-"+str(suc,3) #Tcod_cli+"-"+str(suc,3)(Talltrim(nombre)+"-"+suc_desT CLIENTE - SUCURSAL T cod_age,linea% [/T"str(val(cod_age))+"-"+str(linea,4) %Tcod_age+"-"+str(linea,4)'Talltrim(Nomage)+"-"+dlineaT VENDEDOR - LINEA  "Tcod_age,cod_cli,linea% Tstr(val(cod_age))% k(T+"-"++str(val(cod_cli)) T +"-"++cod_cli#T+"-"++str(linea,4) ^Tcod_age% (T+"-"++str(val(cod_cli)) 7T +"-"++cod_cli#T+"-"++str(linea,4)2T%alltrim(Nomage)+"-"+nombre+"-"+dlinea'T VENDEDOR - CLIENTE - LINEA  TrfcTstr(rfc)TdrfcT RUBRO  T provinciaT provinciaT provinciaT  PROVINCIA  TcentroTcentroTdcentroT CENTRO  ATcentroTcentroTdcentroT CENTRO  +Tplataforma,channel, logistic_t Talltrim(plataforma)5T(alltrim(channel)+"-"+alltrim(logistic_t)#T PLAT. CANAL LOGISTICA H   Tcod_age% s Tstr(val(cod_age))  Tcod_ageTnomageT VENDEDOR    m TclavenumT str(clavenum)T str(clavenum)H5 i  k TdzonaT ZONA  TdcatT  CATEGORIA  Ta1T A1  Ta2T A2 8 Ta3T A3 i Ta4T A4  J T cod_cli, suc% -T str(val(cod_cli))+"-"+str(suc,3)  #Tcod_cli+"-"+str(suc,3)(Talltrim(nombre)+"-"+suc_desT CLIENTE - LINEA  # % Tcod_ins,atr,bulTcod_ins+atr+bul$Tdescr+descratr+descrbul  Tcod_insTdescrTdescrT ARTICULO   Tcod_cli, Tipo_CPBT% -T str(val(cod_cli))+"-"+ Tipo_CPBT  #Tcod_cli+"-"+ Tipo_CPBT+Talltrim(nombre)+"-"+ Tipo_CPBTT TIPO COMPROBANTE  T provincia% b Tstr(val(provincia)) T provinciaT provinciaT  PROVINCIA  C SIN HACER ;TcentroTcentroTdcentroT CENTRO +Tplataforma,channel, logistic_t Talltrim(plataforma)5T(alltrim(channel)+"-"+alltrim(logistic_t)#T PLAT. CANAL LOGISTICA 2%CdSELECT *, SUM(ene) AS sum_ene, SUM(feb) AS sum_feb, SUM(mar) AS sum_mar, SUM(abr) AS sum_abr, SUM(may) AS sum_may, SUM(jun) AS sum_jun, SUM(jul) AS sum_jul, SUM(ago) AS sum_ago, SUM(sep) AS sum_sep, SUM(oct) AS sum_oct, SUM(nov) AS sum_nov, SUM(dic) AS sum_dic, SUM(cantidad) AS sum_can, SUM(subtotal) AS sum_sub, SUM(descom) AS sum_desc, SUM(ncnd) AS sum_ncnd, SUM(importe) AS sum_imp, SUM(costototal) AS sum_coto, SUM(cantaux) AS sum_canaux,SUM(peso) AS sum_peso ,SUM(TOTAL) AS sum_tot, SPACE(30) AS xlsr_cod, SPACE(60) AS xlsr_des, SPACE(40) AS grupores FROM &xtablatmp WHERE .F. INTO TABLE (xarcres) 1( \tmp\rpt_ve_estadisticas_resumenQSELECT &xtablatmp BH YhSELECT *, SUM(ene) AS sum_ene, SUM(feb) AS sum_feb, SUM(mar) AS sum_mar, SUM(abr) AS sum_abr, SUM(may) AS sum_may, SUM(jun) AS sum_jun, SUM(jul) AS sum_jul, SUM(ago) AS sum_ago, SUM(sep) AS sum_sep, SUM(oct) AS sum_oct, SUM(nov) AS sum_nov, SUM(dic) AS sum_dic, SUM(cantidad) AS sum_can, SUM(subtotal) AS sum_sub, SUM(descom) AS sum_desc, SUM(ncnd) AS sum_ncnd, SUM(importe) AS sum_imp, SUM(costototal) AS sum_coto, SUM(cantaux) AS sum_canaux,SUM(peso) AS sum_peso ,SUM(TOTAL) AS sum_tot, SPACE(30) AS xlsr_cod, SPACE(60) AS xlsr_des, SPACE(40) AS grupores FROM &xtablatmp GROUP BY &xxx INTO TABLE (xarcres) REPLACE precio WITH IIF(sum_can=0 ,0, sum_imp/sum_can) , precioaux WITH IIF(sum_canaux=0 ,0, sum_imp/sum_canaux) , costo WITH IIF(sum_can=0 ,0, sum_coto/sum_can) , costoaux WITH IIF(sum_canaux=0 ,0, sum_coto/sum_canaux) , margen WITH IIF(sum_imp=0 ,0, MAX(MIN(100 * (sum_imp-sum_coto)/sum_imp,999.99), -99.99)) , contmarg WITH sum_imp-sum_coto , xlsr_cod WITH &xxx2, xlsr_des WITH &xxx3, grupores WITH xxx4 ALL INDEX ON &xxx2 TAG FULL 1( \tmp\rpt_ve_estadisticas_resumen hSELECT *, SUM(ene) AS sum_ene, SUM(feb) AS sum_feb, SUM(mar) AS sum_mar, SUM(abr) AS sum_abr, SUM(may) AS sum_may, SUM(jun) AS sum_jun, SUM(jul) AS sum_jul, SUM(ago) AS sum_ago, SUM(sep) AS sum_sep, SUM(oct) AS sum_oct, SUM(nov) AS sum_nov, SUM(dic) AS sum_dic, SUM(cantidad) AS sum_can, SUM(subtotal) AS sum_sub, SUM(descom) AS sum_desc, SUM(ncnd) AS sum_ncnd, SUM(importe) AS sum_imp, SUM(costototal) AS sum_coto, SUM(cantaux) AS sum_canaux,SUM(peso) AS sum_peso ,SUM(TOTAL) AS sum_tot, SPACE(30) AS xlsr_cod, SPACE(60) AS xlsr_des, SPACE(40) AS grupores FROM &xtablatmp GROUP BY &xxx INTO TABLE (xarcres) REPLACE precio WITH IIF(sum_can=0 ,0, sum_imp/sum_can) , precioaux WITH IIF(sum_canaux=0 ,0, sum_imp/sum_canaux) , costo WITH IIF(sum_can=0 ,0, sum_coto/sum_can) , costoaux WITH IIF(sum_canaux=0 ,0, sum_coto/sum_canaux) , margen WITH IIF(sum_imp=0 ,0, MAX(MIN(100 * (sum_imp-sum_coto)/sum_imp,999.99), -99.99)) , contmarg WITH sum_imp-sum_coto , xlsr_cod WITH &xxx2, xlsr_des WITH &xxx3, grupores WITH xxx4 ALL INDEX ON &xxx2 TAG FULL 1( \tmp\rpt_ve_estadisticas_resumenQSELECT &xtablatmp U XRESUMEN2XXXXXX2XARCRES XTABLATMPXARCHIVOTEMPORALODEYFUNCNEWFILE_LOCAL_TMPXXX3XXX4TIPO_LISXDSEPP_AGENUMP_CLINUMXDXBASYS_MP_LOCALb4%CxdesdebN0 T ges C%Ccostos mFQ%Cclientes Qclientes%Cbienes Qbienes%Ccuentas Qcuentas%Cagente +Qagente%C cligruece _Q cligruece%C cligruecd Q cligruecd#%Cccvent  Qccvent$%Ctccvent  Qtccvent"%Cstock  >Qstock#%Cventas  wQventas$%Ctventas  Qtventas%Cbultos Qbultos%Catributo Qatributo%Cidx04 FQ\idx04%Csucursal xQsucursal%Cpaises Q\paises%Cprovinc Q\provinc%Clineas Qlineas%Cmarcas JQmarcas%Cgrupos xQgrupos%Czonas Qzonas%Ccatcli Qcatcli%Cmotivos Qmotivos%Crubrofac 4Qrubrofac%Cacuerdos fQacuerdos%Csprgrupo Qsprgrupo%Ccostos  Q%Cproveedo Qproveedo%Ccostos FQ!%Cplataformas_aux WQplataformas_auxBU XDESDEGESABRIR_TABLAS_FIJASCLIENTESBIENESCUENTASAGENTE CLIGRUECE CLIGRUECDCCVENTTCCVENTSTOCKVENTASTVENTASBULTOSATRIBUTOP_COMMONSUCURSALP_SYSTEMPAISESPROVINCLINEASMARCASGRUPOSZONASCATCLIMOTIVOSRUBROFACACUERDOSSPRGRUPOPROVEEDOPLATAFORMAS_AUX*4#ve_rpt_estadisticas01JTTTTTcTaT -T aT T a C (CIniciando datos... C C BUXDFECXHFECXSIN_PROMOCIONESVE_RPT_ESTADISTICAS01XFORMXDTIPXDLINXHLINXDREMXDCTRXDLOG1XDLOG4MANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONRELEASEB -#CProcesando acuerdos 7FG(( prioridad< T- ~PTCFec_venCod_CliCod_InsLineaGrupoVendedorSectorF~CC %hC>     d (d.%Cseleccion.acuerdoCCZ`TacuerdoCCZTdacuerdoCCZTdtoacuCCZTimporteCCZmREPLACE &xacuerdo WITH 0 , &xdacuerdo WITH "" , &xdtoacu WITH 0 , &ximporte WITH 0 IN seleccion  (.%Cseleccion.acuerdoCCZTacuerdoCCZTdacuerdoCCZTdtoacuCCZTimporteCCZREPLACE &xacuerdo WITH acuerdos.codigo , &xdacuerdo WITH acuerdos.DESCR , &xdtoacu WITH acuerdos.dto , &ximporte WITH tot_ven * EVALUATE(xdtoacu)/100 IN seleccion ! Ta%;%>UOESTADOAVANCEXFILTROACUERDOS PRIORIDADXHUBOPROCESAR_ACUERDOS_FILTRO SELECCIONTIPOACUERDO1CODIGO DACUERDO1DESCRDTOACU1DTOIMPORTE1TOT_VENINZXACUERDO XDACUERDOXDTOACUXIMPORTEIMPORTE2IMPORTE3IMPORTE4IMPORTE5#  TF ?T date(CCC iZ,CCC HZ,CCC %Z)?T date(CCC iZ,CCC HZ,CCC %Z)&TC 'T CC ""6'T CC ""6&TC 'T CC ""6'T CC ""6&TC T CCCZ6T CCCZ6&TC T CCCZ6T CCCZ6&TC 'T CC ""6'T CC ""6&TC T CCCZ6T CCCZ6&TC %C  2T and inlist(sector,C ) TCCAND BUXFFECXFCLIXFBIEXFLINXFGRUXFVENXFLISXSECTORXFILTROXDVALXHVALACUERDOSDFECHFECPROCESAR_ACUERDOS_FILTRO2DCLIHCLIDBIEHBIEDLINHLINDGRUHGRUDVENHVENLISTASECTORES-%C1 BHM C C 5T AND BETWEEN(,,) C "T AND  >=  C "T AND  <=  2 T BUXFLDXDFLDXHFLDXDVALXHVALXFILTRO1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T\xchgTT C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA%CxdirbCVT\xchg m T%CxunidadbN T1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxNT Cexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T T T  TTTT TaTT Ta C BUXTABLAXDFECXHFECXSIN_PROMOCIONESXDIRXUNIDADXFILTRO_ARTICULOSXCARPETAP_SERVEROEXCFIL_DIRECTORIO FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG4XDLOG1XDUNIXDFORXDLOG5 EXP_TABLAG/  TC TC TC TCCX T C  1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxNT Cexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T  \xchgT T   TTTTTTT TaT TTT Ta C %<C BUXTABLAXDFECXHFECXDCOSTOSXTIPO_NO_CODIFICADOSXUNIDADXDEBUGXCENTROXPOR_FECHA_DE_ENTREGA XSEPARACIONXINCLUYE_REMITOS_NO_FACTURADOSOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDCODXDUNIXDSEPXDCTRXDREMXDCOSXHCOSPOR_FECHA_DE_ENTREGAXDLOG3 EXP_TABLA EXP_EXCELp log_errores%Cidx04 JQ\idx04F ~e%T IF G((idx04<GF E GF ()%C idx04.indiceCCZ!% A#TC idx04.indiceCCZ E%  TG  log_erroresC *: No encontr cambio- A#TC idx04.indiceCCZb  log_erroresC *&: No encontr cambio, toma cambio del C *- F> BULOG_ERRORES_CREAR LOG_ERRORESXLOG_ERRORES_CAMBIOP_COMMON SELECCIONMONEDAXDMONXCAMBIOCAMBIOIDX04FEC_VENZLOG_ERRORES_INSERTARP_CODEMPFECHATOT_VEN;F %C;H8: .H\  ToborrarCQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # 1$\borrar8Q$\borrar8% joborrar&CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &1$\borrar8Q$\borrar8%& &($\borrar8  oborrar'CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # '1$\borrar8Q$\borrar8%& '($\borrar8 oborrar&(CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &(1$\borrar8Q$\borrar8%&& &C(Z($\borrar8 C oborrar)CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # )1$\borrar8Q$\borrar8%& C)Z($\borrar8   oborrar'&CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # '&1$\borrar8Q$\borrar8%!& '&($\borrar8   oborrar&*CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &*1$\borrar8Q$\borrar8%#& &C*Z($\borrar8  Hoborrar&+CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &+1$\borrar8Q$\borrar8%#& &C*Z($\borrar8  noborrar&,CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &,1$\borrar8Q$\borrar8%!& &,($\borrar8  oborrar&-./CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C= SC NCC= SC ND # &-./1$\borrar8Q$\borrar8%)& &-./($\borrar8H  oborrarC C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 totales oborrar&C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &totales  oborrar'C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 'totales oborrar&(C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &(totales Coborrar)C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 )totales  oborrar&C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 '&totales  oborrar&*C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &*totales  oborrar&+C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &+totales  oborrar&,C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &,totales  oborrar&-./C C C C C CCCCCCCCCQ1C= SC NCC= SC ND  23 &-./totalesF4H!    A & &($\borrar7  | & '($\borrar7  && &C(Z($\borrar7 C & C)Z($\borrar7  !!& '&($\borrar7  U!#& &C*Z($\borrar7  !!& &+($\borrar7  !!& &,($\borrar7  !)& &-./($\borrar7FF~C= SC NCC= SC ND  23 *F%Hb"#  "#) " E&  " E' "E&C(Z C#EC)Z  D#E'&  e#EC*Z  # E+  # E,  #E-./F4H#2%  $#) .$ E&  X$ E' $E&C(Z C$EC)Z  $ E&  $ E+  % E,  2%E-./F%m*[>C45% 45 6%%C45% 45 6C46% 46 6%%C46% 46 6C47% 47 6%%C47% 47 6C48% 48 6%%C48% 48 6C49% 49 6%%C49% 49 6C4:%4: 6%%C4:%4: 6[>C4;%4; 6%%C4;%4; 6C4<%4< 6%%C4<%4< 6C4=%4= 6%%C4=%4= 6C4>%4> 6%%C4>%4> 6 C4?%4? 6% % C4?%4? 6!C4@%4@ 6%!%!C4@%4@ 6g>"C4A%4A 6%"%"C4A%4A 6 *g>"C41%41 6%"%"C41%41 6FF%v-FX>     X> ! >""F%3> SC NC S/DNC SIN DISTRIBUIRX>     X> ! >""@>@> !>" .F*>CD""F%3> SC NC S/DNC SIN DISTRIBUIR >"">" :HA.#0  #0oborrar&CQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"ES&1$\borrar8Q$\borrar8%& &($\borrar8H80 1   1oborrar&C C C C C CCCCCCCCCQ1ENF &totalesF4H%1U1  U1& &($\borrar7F ~ENF 7F%H11  1 E&F4H11  1 E&F%-7[>C45% 45 6%%C45% 45 6C46% 46 6%%C46% 46 6C47% 47 6%%C47% 47 6C48% 48 6%%C48% 48 6C49% 49 6%%C49% 49 6C4:%4: 6%%C4:%4: 6[>C4;%4; 6%%C4;%4; 6C4<%4< 6%%C4<%4< 6C4=%4= 6%%C4=%4= 6C4>%4> 6%%C4>%4> 6 C4?%4? 6% % C4?%4? 6!C4@%4@ 6%!%!C4@%4@ 6g>"C4A%4A 6%"%"C4A%4A 6 7g>"C41%41 6%"%"C41%41 6F%9FX>     X> ! >""F%X>     X> ! >""@>@> !>" :F*>CD""F%3> SC NC S/DNC SIN DISTRIBUIR >"">"F%{C      !"TF$\borrar8F%;QC= SC NCC= SC ND # C SC NC S/D ;ESF F%QF4QBUHBORRARCON_NCNDTIPO_LISXDCODXDTIPXDSEPCOD_INSDESCRIMPORTEENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDICTOTALENESCFEBSCMARSCABRSCMAYSCJUNSCJULSCAGOSCSEPSCOCTSCNOVSCDICSCTOTALSCES_VENTAP_LOCALSINCODCOD_CLICOD_AGESUCCLAVENUMRFC PROVINCIACENTRO PLATAFORMACHANNEL LOGISTIC_TSUM SUM_IMPORTEOBIEDATA_CODIGO_VACIOTOTALESSUM_ENESUM_FEBSUM_MARSUM_ABRSUM_MAYSUM_JUNSUM_JULSUM_AGOSUM_SEPSUM_OCTSUM_NOVSUM_DIC SUM_TOTALALLDESCOMNCNDSCODLINEAFORS 4E h1\tmp\CCCC(C(CC C C N N NNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&C'N(C)N*N+C,N -C.C/C0N1N2N3C 4C 5N6N7N8N9N:N;N<N=N>N?N@NAN BCCNDNENFNGNHCINJNKNLNMNNNOCPCQCRN SCTCUCVNWLXNYCZC[C(\C]N^N_N `C(aNbNcN dC(eNfNgN hC(iNjNkN lC(mNnNoN pC(qNrNsN tC(uNvNwC xCyN zD{N|N}N~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNCC(N C CCCCN C(BUXBORRARP_LOCALCOD_INSATRBULDESCRDESCRCODDESCRATRDESCRBULCOD_CLINOMBRESUCENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDICENESCFEBSCMARSCABRSCMAYSCJUNSCJULSCAGOSCSEPSCOCTSCNOVSCDICSCTOTALLINEADLINEAGRUPODGRUPOSUBGRUPO SUPERGRUPODSGRUPOMARCADMARCACOD_AGENOMAGEPESOCANTIDADCANTAUXUNIDAD UNIDADAUXIMPORTE COSTOTOTALPREC_MIN PREC_MIN_APRECIO PRECIOAUXCOSTOCOSTOAUXMARGENCONTMARGPPAPPZONADZONAA1A2A3A4CATDCATCLAVENUMSUBTOTALDESCOMNCNDTOTALSC IMPORTEFINSUC_DESSUC_DIRSUC_CIURFCDRFC TIPO_CPBTVENDEDORFACTORES_VENTA STK_ACTUAL PROVINCIACOD_PRONOMPROSCODECOMPLCOMPLACUERDODACUERDODTOACUACUERDOSACUERDO1 DACUERDO1DTOACU1IMPORTE1ACUERDO2 DACUERDO2DTOACU2IMPORTE2ACUERDO3 DACUERDO3DTOACU3IMPORTE3ACUERDO4 DACUERDO4DTOACU4IMPORTE4ACUERDO5 DACUERDO5DTOACU5IMPORTE5FAC_VENCAUSAITMFEC_VENENE2FEB2MAR2ABR2MAY2JUN2JUL2AGO2SEP2OCT2NOV2DIC2TOT2ENEPFEBPMARPABRPMAYPJUNPJULPAGOPSEPPOCTPNOVPDICPTOTPENE2SCFEB2SCMAR2SCABR2SCMAY2SCJUN2SCJUL2SCAGO2SCSEP2SCOCT2SCNOV2SCDIC2SCCENTRODCENTROPEDIDO PLATAFORMAREF_EXT LOGISTIC_T LOGISTIC_DCHANNELGRUECDGRUECC tmp_remitosBUCREAR_TABLA_GENERAL TC]%Cq_expl9FQ%Cq_expl1`FQ%Cccformul % .Q\data\CCZ \ccformul Qccformul%Cformulas x% V.Q\data\CCZ \formulas tQformulasoccformulQ formulasQ    CQ   S  q_expl1o seleccionQccformulQ formulasQq_expl1QCC 6QCC  6QCC  6QC 6QC 6QC 6Q          *      S " 1#\tmp\Q#\tmp\Fq seleccionq_expl!! !   F@>   F!#\tmp\%Cq_explFQ%Cq_expl1FQBU%XTABLAQ_EXPLQ_EXPL1P_DOSP_CODEMPP_SYSTEMP_UNOCCFORMULFORMULASFORMULACCODIGOATRBULCANTIDADFCANTFACTIVASCODCOMPCOD_INSCODNEWATRCOMPATRNEWBULCOMPBULNEW RECEPCIONCANTQ1TOT_VENNTOT_VEN TOT_VEN_ME NTOT_VEN_M SELECCIONSURTIDOP_LOCALALL%Ccur_exp1(Q%Ccur_exp2MQ%Ccur_exp2rQ%C tmp_exp_estQ(%C\tmp\ve_export1.dbf0*Q\tmp\ve_export1.dbf%(%C\tmp\ve_export2.dbf0U*Q\tmp\ve_export2.dbf@ocur_exp2cur_exp1Ǽ1\tmp\tmp_exp_est T -ocur_exp1Ǽ1\tmp\tmp_exp_est T %  C%Ccur_exp1.Q%Ccur_exp2SQ%Ccur_exp2xQ%C tmp_exp_estQBUXTALLYCUR_EXP1CUR_EXP2 TMP_EXP_ESTP_LOCALXDCSL EXPORTAR_XLS> G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTVentas(T\tmp\tmp_exp_est.dbf C!Ccausa Tipo Cpbt(C comprobant ComprobanteCfechaFechaCcodigoCdigoCatrAtrCbulBul#Cdescr Descripcin)CdcodDescripcin Cdigo+CdatrDescripcin Atributo(CdbulDescripcin Bulto#CcantidadCantidadCmedidaMedidaCprecioPrecio$Cdesctos Descuentos!CimporteImporte%Ccod_cli Cd.ClienteCsucSucursal CnombreCliente#CvendedorVendedor!Clinea Cd.LneaCdlineaLnea!Cgrupo Cd.GrupoCdgrupoGrupo#CsubgrupoSubgrupo'C supergrupo Supergrupo!Cmarca Cd.MarcaCdmarcaMarcaCzonaCd.ZonaCdzonaZona#Ccat Cd.Categora Cdcat Categora%C provincia ProvinciaCmotivoMotivo&Cdmotivo Descr.Motivo Ces_ventaVenta(Ccod_ncnd Cod.Aux.NC/NDCa1Aux 1Ca2Aux 2Ca3Aux 3Ca4Aux 4!Crfc Rubro Fact.&Cpesoxu Peso x UnidadCfactorFactor'C medidaaux Medida Aux.$Cecompl ComplementoCitmItemCcentroCentro&Cdcentro Descr.Centro(CgruecCdigo Grupo Ec.(CdgruecGrupo EconmicoCmonedaMonedaCcambioCambioCcosCosto%Ctot_cos Total Costo'Ccos_ori Costo en M.O.*Cmon_oriMoneda de Origen%Cfec_ori Fecha Costo%Ctc_ori Cambio Costo%Ctc_fec Cambio Venta*Ctc1Cambio CC*Ctc2Cambio CC*Ctc3Cambio CC*Ctc4Cambio CC*Ctc5Cambio CCTC %C 3 %%C\tmp\reporte.xls0/ 9\tmp\reporte.xls( \rpt_ventas.xls + CC El archivo \rpt_ventas.xls est en uso !!! BU LISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR MM_MONEDA EX_XLS_ABRIR EXPORTAR_XLS EXPORT_DIR P_DIR_EXPORTMENSAJETCCC]dbf 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01TC\tmp TC CBU XTABLAXDIR OPROPIEDADESOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOLEER_PROPIEDADES EXP_TABLAN1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T\tmpT6TTT  T aT  T aT  T - CBUXTABLAXDFECXHFECXTIPOCOSOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDTIPXDLOG1XDCOSTOSXDLOG3XDCODEXP_TABLA_EXCEL_PDFFQ\tmp\i1NNNNNNN N N N N NNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N%C planifica Q planifica7 T8 T97C:H(C;H%Cplanven5Q<%CqSQ=%Cq1rQ>7o planifica?CC:i7$@ q% C7B7A %C8  TC8%C789A %Cplanven;Q<%CqYQ=%Cq1xQ>! JCNo hay plan para el mes de C7E o no est activo !!!D F:>     :>( !"#$%&'>G d>5I( d(QBUJP_LOCALXARCHIVOTEMPORALPLAN1PLAN2PLAN3PLAN4PLAN5PLAN6PLAN7PLAN8PLAN9PLAN10PLAN11PLAN12PLANAVANCE1AVANCE2AVANCE3AVANCE4AVANCE5AVANCE6AVANCE7AVANCE8AVANCE9AVANCE10AVANCE11AVANCE12AVANCEPLANI1PLANI2PLANI3PLANI4PLANI5PLANI6PLANI7PLANI8PLANI9PLANI10PLANI11PLANI12PLANIAVANCEI1AVANCEI2AVANCEI3AVANCEI4AVANCEI5AVANCEI6AVANCEI7AVANCEI8AVANCEI9 AVANCEI10 AVANCEI11 AVANCEI12AVANCEI PLANIFICAZ XLAST_IDU XLAST_NUMXDFECXHFECPLANVENQQ1PERIODOACTIVA PROCESAR_PLANIDUXIDUMENSAJEMESNUMALLCANTIDADFORIMPORTE T TF@Q\Usr\pr_planificaciones\pr_plan_ventas%Cimporte1bNQCC%Debe actualizar el plan de ventas de C !!!B-9T mesCCZC ca6%T importeCCZaSELECT codigo, atr, bul, &xcampo AS cantidad, &xcampoi AS importe FROM planven INTO CURSOR q1 & FG-( TCCZTCCC=@%~  %>plan'>avanceC d%>plani(>avanceiC dBUZXIDUXZ2 XLAST_IDU XLAST_NUMP_SERVERPLANVENMENSAJEMESNUMXCAMPOXDUNIXCAMPOICODIGOATRBULIDRPT_VE_ESTADISTICASCOD_INSQ1XZXMCANTIDADIMPORTEEFo seleccionQXmovstockQ C Z  CZC cQC CXQQQ C R00000000 seleccionQXmovstockQ  rC Z  CZC cQC CXQQQ C R000000001\tmp\_csQFQ \tmp\.dbfB=\tmp\_cs.dbf(\tmp\.dbfQ\tmp\ ~:K>C 6C 6 > T T TTT %aT  T_ cs_generar ! %a)%"" "  T#% T$%,%"" %"  T$#%$;T&'  T&(listados&%&eC(Error al obtener el cambio de la moneda C+ para la fecha C* !!!* T&T&%&%5  T&(listados&%&eC(Error al obtener el cambio de la moneda C+ para la fecha C* !!!* T  T& > BU, XSELECCION SELECCIONSCANTIDAD RECEPCIONMV_CNTDESPACHOMV_DSPCS_MONCS_COSMOVSTOCKMREM_VENITMNUMEROCAUSAITEMFAC_VENP_LOCALTOT_VENTOT_FUL XERR_COSTO XMSG_COSTOXCOSTO XFECHA_COSTOFEC_VEN XFECHA_TC XMONCOSTOXDMON OBTENER_COSTO CS_GENERARCOD_INSBULATR P_MON_DOL_DIVP_MON_DOL_DIV_REFXSELECCIONMONEDAMONEDAXCAMBIOCAMBIOOBTENER_CAMBIOLISTADOSMENSAJE MM_MONEDA.'ve_sql_estadisticas_auxiliarBU SELECCIONVE_SQL_ESTADISTICAS_AUXILIARL41QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T\tmpT  4TTT T T T Ta CBUXPDF XVENDEDORXDFECXHFECXCLASEXORDENOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDAGEXHAGEXDCLASEXDORDXDLOG1EXP_PDFprocesar+agregar_stock_actual[completar_inicializar completar agregar֘completoidxstrcon_ncnd9crear_tabla_resumenO abrir_tablasejecutar_consultaprocesar_acuerdos_seleccionprocesar_acuerdos_filtroprocesar_acuerdos_filtro2 exportar_1exportar_ventas_planZcontribpasar_a_moneda_destinodistribucion_de_los_sin_codigocrear_tabla_generalinicializa_tabla_remitos0explosion_surtidos0exportar_consolidado 7 exportar_xls:Exportacion_generica_tablaD exportar_dashXFavance>H procesar_planiRcostos_por_loteV seleccion^exportar_informes_semanalesf^qAAAAqAA 1BqAAR%rFqAABqAA1qAAABB12QA1AA11ArA1aA11A1A1aA1AAA11Q1Q11A111!A12AAA ADAAB11111A1AAq1A1A1AAAAA1Q1a111A11AAA1q1A211AA11AA1Q1a1qA111A11A1111AABbQaAABBABqAA2BA!ArABB5!ABAA2BAsQrQrQrQrQ$qA!aAPqAA$BrqAAAb12aA1!A!A11AqAA1aA1AA1!A1!A1!AA111!1q1!1A1!3AA1!1BAaAdr22A1aAaA1!AAq1AAA1A1A1aA1aA1AaAB11111113A11aBAq"rAsa12AaAA1qA1AAqA1AA1AAAq11AQQAA1AQQAAA1!AAA11AQQAA1qA1AA2qA1AA1AQAAB11aA11AaA1A11A1QQA11A6AQQAA11A2qAAA!!AAA"BrQp2uAgRAbEAAmBBGA6B&BB218Aj22Aa111b51Q~ AbBBABu11AAA21AA2!A111111111111A2111111111111AAC7111111A111111AAs1A'AXBAAtQ!"bRA1!A111111111111AC3111111A111111AAsCBqABsR!Aqrrrrrrrrr@)dqqSA212111A1AA1A1Aq11AA1AA1Q1a111B11AAA1q1Ar311AA11AA1Q1a3qA111A11A1111AArAqAwaarBA2qOABqAAr!1ArAqAAB2qqF2w2pqBAAAAAAbAbAArAArABB3qraabaR11QA11A11AqQA1Aa1QAB11Aq1QA11A11A1AQAqAAQB2QA3qr1111aA!1A1Q1A11!Brr122111A1r11A11BBrArB2qq1Qrrqqqqqqqqqrqqqqqqqqq!AA21!A!3q11A111!1!1B11A1AAA1Q1a!2Qa11A1QAq2!A1AA1A!q1Q!1aaaa111A1111A11Q1A21AAA1QQ1!1a1111A11A1AA!!AQ11A2aaAaa2b211A11Q1CCJ&AQAA1&|1&{ACQ4qAAAAA!A1A!AQAQA2!AB1A"A2!AB1A!AAArAAAAA!A!A!ArA!A1AAAAAAAAAAAAAC24  B31Arq2rb7BB BBBABARA31rarqarqaaarqaaR!A3qAqQ!!!!A3"BB2raAA"BB3222R2"BAA3rArdsbaAAA121s1#AABrBB2r1 21}aq1}1}11}11}1A 2EE1rE11111Ar11aq111111BubsQ11q111111BrQ11q1111Ar1%%tsArAq4qr5qs5C32zC2 Br1Att1Ar1Ar1%%tsArB2qrqs5CBurqr2AsArABA2q QB2B2trqAAqAAAAAAAA) AbrsrqAAqAAB2qAAAAAAA1AAAAAB2%!c11AQ11q1QaaqAaQqQQQ Q1AAAC2B24"AB@1P1HQArA!A1Ar"b"A!A1ABBAADBB52rBQbsqRbrAbABB2qrBrA"AB3B22QAB242QAABBAAB2qA3"AB1XZ<Pq / H \  q x     , v>,4 4<U 3<SD DGL, ;xLO` L5OPz WPJT s^TZ Z_ _7  0 O   r V^  h { !0 !% %D? Z?? ?B%7:LjhXEATCI2of5N7C'307098909520100236635286961370620160909 CX3@PF Interleavev 2 of 5 Text$CX.@PF Interleaved 2 of 5\@Arial T<ULO CODIFICARDIGITOVERIFICADOR CODIGOBARRA LECTURAHUMANAo '  TC( TC) TCTC> T  T (6T  CC\gCCG6TT C  G'T CCC  6ZTC 6TC>%CGT0TC> T(0%CC\g2 !TCCC\g0  ,!TCCC\g T  T T UTCTEXTOXSIN_VERIFICADORLCSTARTLCSTOPLCLHLCCBLNLONGLNILNCONTLNSUMLNAUXLCDVTHISDIGITOVERIFICADOR LECTURAHUMANA CODIGOBARRA codificar4 T T T U CODIGOBARRADIGITOVERIFICADOR LECTURAHUMANAi2of5customRqrqq1qqqqqq1rbA!q!AAA3@1Ve .4o + %GMkHH*OXYf '4%CE T%Cg TTC %C T G(9   in_solcom%%Cesolcom.cod_cenbC3+CSe deben aplicar novedades !!! B-G+(dey_funclistadosG~(clasesTCC TC$TCX T T TCC6 T T% H&  Ortmp !"#$%&'o faltantesXbienes ()+/Xmedidas +,-)()(((*(!("+,C-"(.C$0Ca (*6 F1#) T  T2T3C4C5bienescodinsT6 T7 T8 T9%C q_comprasQ:~ocompras!;<=>?@ABC/5E F ; q_compras% #6"C:!proveedocodproT6:!T7CG% T8< T9CT6:! \TT33CC3 C 6,Atencin: El artculo nunca tuvo compras !!!%C q_comprasQ:%C+!]T33CC3 C 65Atencin: El artculo no tiene asignado proveedor !!! %+!6(%C+!proveedocodproP%C6XT33CC3 C 60Atencin: El artculo nunca ha sido comprado !!! ,zT33CC3 C 6IAtencin: El proveedor del artculo difiere del de la ltima compra !!! (7)T6+!T7G% iT33CC3 C 63Atencin: El proveedor del artculo no existe !!! (C+!) GT33CC3 C 6Precio de Venta: CCH Z%CIHT33CC3 C 6Moneda de Venta: CIJ ET33CC3 C 6Moneda de Venta: Invlida !!!%C+,  !C+,medidascodigortmp !"#$%&'KLMCN5EFO+!+"+,C-"7PQR398F1#)  CS% 5 %' %Cq_presup_globalF QT% %C % TU.f.  TUsol=xsolicitud  ,TUsol=xsolicitud and itm=xsolitemselect p.* from psolcom p left outer join proveedo on p.cod_pro=proveedo.cod_pro where &xfiltro into cursor q_presup_global readwrite %C  in_solcom(   in_solcom2(  Ta%# CW 1  V TX CY BUZXRES XSOLICITUDXSOLITEM XTIPO_EDICION XRESUMIDO XREIMPRESIONXTODOSODATOSXSOLO_EDITAR_PRESUPUESTOS ACTIVEFORM DATASESSIONID OPEN_FILES IN_SOLCOMMENSAJEDEY_FUNCLISTADOSCLASESXFILENEWFILE_LOCAL_TMP CREAR_TMPXFECHAXCENTROXUSR PUB_INDEXXUSR1XUSRAUTACCESOXESTADOXUSRCIECODATRBULCANTIDADCOD_PRODESCRUNIDUNINOMBREFECHA PRIORIDAD FALTANTESCODIGOACOMPRARBIENESMEDCODMEDIDAS PROVEEDORCOD_INSMARCARTMP XANTICIPOXNOTAS XTXTOTROSXCODXPROVEEDOR_CODIGO XPROVEEDORXCOMPRA_PRECIOXCOMPRA_MONEDA Q_COMPRASFEC_COMCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOMONEDACOMPRASXATRXBULPROVEEDOXXPRECIOXMONEDA MM_MONEDAPEDIDOPEDITMNOTASPRECIOXCANTIDAD_A_SOLICITARXENT_CLIXPEDIDOXPEDITM LEER_DATOSQ_PRESUP_GLOBALXFILTRO IN_SOLCOM2 REGISTRARXSOL IMPRESION%Cbienes *Qbienes%Catributo \Qatributo%Cbultos Qbultos%Cesolcom ?QC\data\CCZ6\esolcom%Cdsolcom B?QC\data\CCZ6\dsolcom%Cpsolcom ?QC\data\CCZ6\psolcom%Cgrupos Qgrupos%Cproveedo Qproveedo%Ccondpago 0Qcondpago%Ccostos ^Qcostos%Cmedidas QmedidasBU BIENESATRIBUTOBULTOSP_UNOP_SYSTEMP_SERVERGRUPOSPROVEEDOCONDPAGOCOSTOSMEDIDAS T Ta T;trsacesolcomdsolcompsolcom% 5 T%CTC ZTJ  T T TF trsac In_solcomSolicitudes de Compra Ta% T TC % T T T> trsac In_solcomSolicitudes de Compra6%    CC ZJ CPCSe ha registrado la Solicitud CC@z 999,999,999,999_ !!! T BUAAA XRESULTADOLOCK_GTRSACXSOL XTIPO_EDICION XTRAN_COMPROB XSOLICITUD XTRAN_CAUSABEG_TRANXXMSG TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEX IMPRESIONMENSAJETTS_IDoF T ~hT?rdsolcom          C6CCZ6C   %Cq_presup_globalZF ~Vrpsolcom       dUTMPXITMSOLITMCODATRBULDESCRCANTIDADFECHANOTASUNIPRECIOCOD_PROPLAN COMPRADORMONEDAGRUPO PRIORIDADIDSEEKPEDIDOPEDITMXSOLESOLCOMESTADOSOL_INSERTAR_MENSAJEQ_PRESUP_GLOBALITMPACEPTADOOBSzC TransaccionF G((sol#6%CTbresolcom      C [ T%ZModificacin: Item: CCZ in_solcom.prgF#) T@pesolcomtmp   F TCC+C CO6 ~F%~  *>  !!""##$$%%&C&&6''(())*CC Z++,,T-Cdigo: C1T--  Cantidad: CC ZPModificacin: - in_solcom.prg% #F. F0 T1 ~T11rpsolcom2$'#340200$0'0#0304%03"C0$proveedocodproT567T-Prov:C67ET-- Precio:C0'8 CC0#ZmModificacin: Item: CCZ Aceptado: - in_solcom.prg W6pesolcomtmp  FF. C[ T9- BU:SYS_MXREGESOLCOMSOL XTIPO_EDICIONXSOLFECHAUSRUSRAUTESTADOUSRCIECOD_CENUSR1XFECHA PUB_INDEXXUSRAUTXCENTROXUSR1INSERTAR_DESDE_TMP XSOLICITUDXSOLITEMUSER_LOG XTRAN_COMPROB XTRAN_CAUSATMPXITMDSOLCOMITMCODATRBULDESCRCANTIDADNOTASUNIPRECIOCOD_PROPLAN COMPRADORMONEDAGRUPO PRIORIDADIDSEEKPEDIDOPEDITMXTXTPSOLCOMFORQ_PRESUP_GLOBALXPRESUP_NPRESUPITMPACEPTADOOBSXPRESUP_NOMBREPROVEEDONOMBRE MM_MONEDATRSACn 4F G((sol E5T% ein_solcom_notas T Ta T. trsacesolcomdsolcom% V T  TY trsac In_solcomSolicitudes de Compra - CerrarC ZJ Ta%# 9pesolcom  T(T T% T T ;TGtrsac In_solcomSolicitudes de Compra - Cerrar T+%  &% MCSe ha cerrado la Solicitud CC@z 999,999,999,999_ !!!Ba R% NC  `B-UXSOLXAUTESOLCOMSOL XNOTA_CIERRE NOTA_CIERRIN_SOLCOM_NOTASAAA XRESULTADOLOCK_GTRSACXXMSGBEG_TRANESTADOUSRCIE PUB_INDEXOEXMESSAGEEND_TRANTTS_ID TTS_ERRORMENSAJE4 T Ta T.trsacesolcomdsolcom%  T TZtrsac In_solcomSolicitudes de Compra - ReabrirC ZJ Ta% L/pesolcom    T( xT T% T T THtrsac In_solcomSolicitudes de Compra - Reabrir T+%  OCSe ha reabierto la solicitud CC@z 999,999,999,999_ !!!Ba C B-UXSOLAAA XRESULTADOLOCK_GTRSACXXMSGBEG_TRANESOLCOMESTADOUSRCIE PUB_INDEXSOLOEXMESSAGEEND_TRANTTS_ID TTS_ERRORMENSAJE4%Ctmp&FQh1CCCCPNCD N C N C C(N CNCNCN N N NN NNCQBUXFILETMPCODATRBULDESCRCANTIDADNOTASFECHAUNIDUNIPRECIOCOD_PRONOMBREPLANDPLAN COMPRADOR DCOMPRADORMONEDADMONEDAGRUPOSOLITM PRIORIDADPEDIDOPEDITMUSR1DUSR1 4FG((codproF G((planF G((sol% E%C4 ECNo existe la solicitud CC@z 999,999,999_ !!!T  T  T TTTT%TTsol=xsol (Tsol=xsol .and. itm=xsoliteminsert into tmp ( cod, atr, bul , descr , cantidad , fecha , notas , uni , precio , cod_pro , plan , comprador , moneda , grupo , sol , itm , prioridad , pedido , peditm ) select cod, atr, bul , descr , cantidad , fecha , notas , uni , precio , cod_pro , plan , iif(comprador=-1,0,comprador) , moneda , grupo , sol , itm , prioridad , pedido , peditm from dsolcom where &xwhere order by itm F%C+C RT h TCOrtmp  !"#$%&'()*osol_pendientes+ !"#C$$6%&'()*,'F% #F- ~F E-#F E-F.G((codigo E-!F->00>1>2CC%3>-4C-$56>7. T8 T9 T:F;G((codins E8%;=SF=G((codigo E89%;>SF?G((codigo E8:F-o>CCUCC;C;>S C?6C;=S C=6Ȳ6F-#)BU@XSOLXSOLITEMPROVEEDOCODPROCONDPAGOPLANESOLCOMSOLMENSAJEXFECHAFECHAXUSRUSRXUSR1USR1XUSRAUTUSRAUTXESTADOESTADOXUSRCIEUSRCIEXCENTROCOD_CEN XRESUMIDOXWHERESOL_PENDIENTES XREG_SOL_PENDCODATRBULDESCRCANTIDADNOTASUNIPRECIOCOD_PRO COMPRADORMONEDAGRUPOITM PRIORIDADPEDIDOPEDITMENTREGATILDETMPMEDIDASCODIGONOMBREDPLANDMONEDA MM_MONEDA DCOMPRADOR OSECURITYGET_USERDUNIXCODXBULXATRBIENESCODINSBULTOS ATRIBUTOSATRIBUTO F T T T T  %Ccostos pQcostosCcostoscodigoT  T TC  T THx T Rechazada FT No Autorizada 2x(TAutorizada Por:C TH TAbierta TCerrada TAnulada TTCTCCZTSOLCCZ T T  T! T"T .t. T1%C#\CPBT\VSOLCOM_$-1.PRG0 *#\CPBT\VSOLCOM_$-1.PRG sT solcom.frx T  T! T"T!C!6F*CAntes de Imprimir. Suspendo ?%Q&listados"! aaaaaU(XDRIVER_FORZADO XFILTRODATOSTMP ZSOLICITUDXSOLZFECHAXFECHAZCENTROXCENTRO XSOLICITANTEXUSR1COSTOSZDCENTRODESCRZUSR ZUSR_DESC OSECURITYGET_USER ZUSR_CARGAXUSRZUSRAUTXUSRAUT ZUSRAUT_DESCZESTADOXESTADO ZESTADO_DESCZUSRCIEXUSRCIE ZUSRCIE_DESCZSOL XIDARCHIVO XFORMULARIOXCOPIASXDRIVERXDESTINOP_SERVERP_EMPSYS_MIMPRIMIR_FORMULARIOLISTADOSS %C) T#-aU XSOLICITUDXSOLITEM IN_SOLCOMC#%CSysmsg UQ\sysmsg <T CMensaje_solicitud Mensajes.vcxa T T T T T T T T T  UXSOLXITMXFECHAXCODXBULXATR XCANTIDADXPRECIOP_SYSTEMOMSGMSG_LEER MSG_SUBTIPO DAT_SOLICITUDDAT_ITEM DAT_FECHA DAT_COD_INSDAT_BULDAT_ATR DAT_CANTIDAD DAT_PRECIOOBJ_AGREGAR_SUCESO4F G((sol E T Ta T.trsacesolcomdsolcom%  T TYtrsac In_solcomSolicitudes de Compra - AnularC ZJ Ta% g/pesolcom    T( T T% T T TGtrsac In_solcomSolicitudes de Compra - Anular T+%  MCSe ha anulado la Solicitud CC@z 999,999,999,999_ !!!Ba C B-UXSOLESOLCOMSOLAAA XRESULTADOLOCK_GTRSACXXMSGBEG_TRANESTADOUSRCIE PUB_INDEXOEXMESSAGEEND_TRANTTS_ID TTS_ERRORMENSAJE4 in_solcom T T T T T T T T G+(dey_funclistadosG~(clases CTC in_solcomF~C rtmp !"#$%&'(nota xxxCtempcompO )*5+,- T+( T,CC./6 T01%e T-  T2 T3 T-4 in_solcomU5XSOL OPEN_FILES IN_SOLCOM XUNIDADSOL XPRECIOSOLXPLANSOL XCOMPRADORSOL XMONEDASOL XGRUPOSOL XPRIORIDADXENT_CLIDEY_FUNCLISTADOSCLASESXFILENEWFILE_LOCAL_TMP CREAR_TMPTEMPCOMPCOD_INSCODATRBULDESCRCANTIDADFECHANOTASUNIPRECIOCOD_PROPLAN COMPRADORMONEDAGRUPOSOLITM PRIORIDADPEDIDOPEDITM DCODATRBUL RECEPCIONXFECEMIXPEDIDOXPEDITMXFECHAXUSRAUT XTIPO_EDICIONACCESO PUB_INDEXXCENTRO XCENCOSFAC XSOLICITUDXSOLITEM TRANSACCION open_files registrarinsertar_desde_tmp transaccioncerrar_solicitud"reabrir_solicitud& crear_tmpA* leer_datos, impresion6 reimpresion?<sol_insertar_mensaje<anular>crear_solicitud_desde_pedidojBqAA2LABRqAt10uQ32A"R"!AAAEaAABArqQARA@ rQC!A1A21AAAAABA2!AAA!AAAA!AAAAA!A1AB2rM"Aa22AAcABA3qfqABC2rsQrB%2rQ rqQ@BABAqr!"QAAgsrBAB2rrqA2A2AAtAqAABq2q2A2AAqABq2qBqAAB3qrr2QA2QAQ)sAAvAABrqqqrrrqArqArCrQA2q!AQAaAA1A1A1AAQ!qAr3A131Aq3qq2A2AArqABq2qD1rraG2AC1&.2D^%b}%c+{+<!<CS"CGyHJLJHY{^Y`8`4a^asc chIio%<}h~}eXuU^T.t."%CX CX %}<T/betw(val(ventas.cod_cli),val(xdcli),val(xhcli)) -T betw(ventas.cod_cli,xdcli,xhcli)%,T and clientes.gruec=xdgruec%CN$%  % ET4.and.betw(val(ventas.cod_ins),val(xdbie),val(xhbie)) 6T%.and.betw(ventas.cod_ins,xdbie,xhbie)#%   CX )6T%.and. between(ventas.bul,xdbul,xhbul)#%   CX 7T&.and. between(ventas.atr, xdatr,xhatr)% 5T$.and. betw(bienes.linea,xdlin,xhlin)% 55T$.and. betw(bienes.marca,xdmar,xhmar)% 5T$.and. betw(bienes.grupo,xdgru,xhgru)"%CX CX J%ET4.and.betw(val(bienes.cod_pro),val(xdpro),val(xhpro)) F6T%.and.betw(bienes.cod_pro,xdpro,xhpro) tT and C% ET4.and.betw(val(subs(ventas.fac_ven,2,2)),xdcfc,xhcfc)Cremitos$%   %a;T* and !(ventas.causa="r" and !ccvent.no_fc) &T and ventas.causa#"r"%  2T!.and.betw(ccvent.suc,xdsuc,xhsuc)"%!CX "CX `%#%$qDT3.and.betw(val(ccvent.agente),val(xdage),val(xhage)) 5T$.and.betw(ccvent.agente,xdage,xhage) \%$HT7.and.betw(val(clientes.vendedor),val(xdage),val(xhage)) X9T(.and.betw(clientes.vendedor,xdage,xhage)%%& 5T$.and. betw(clientes.cat,xdcat,xhcat)%'( @T/.and. betw(grupos.supergrupo,xdsprgru,xhsprgru)%)* s8T'.and. betw(rubrofac.codigo,xdrfc,xhrfc)%C+ C, 6T%.and. betw(cuentas.abrev,xdcue,xhcue)%-. " 7T&.and. betw(clientes.lista,xdlis,xhlis)%C/ %/s 'T.and. clientes.pais<>1  *T.and. clientes.pais=xdpai%01  5T$.and.betw(ccvent.motivo,xdmot,xhmot)%2; &T.and.ventas.tot_ven=0%3 ;T*.and.ventas.cod_ins#oBie.data_codigo_vacio%4 T F H B  4V 'T.and.ventas.causa="V"  4c+ 'T.and.ventas.causa="c"  4df 'T.and.ventas.causa="d"  4r 'T.and.ventas.causa="r"  4RN ;T*.and. (ventas.causa="r" and ccvent.no_fc)  4RFB <T+.and. (ventas.causa="r" and !ccvent.no_fc) %5 +T.and. ccvent.promocion#"S"%C6 C7 NT=.and. betw( evl(ventas.centro, ccvent.cod_cen), xdcos, xhcos) %aT8.t."%CX CX % >T81betw(val(clientes.cod_cli),val(xdcli),val(xhcli))  /T8"betw(clientes.cod_cli,xdcli,xhcli)% T88 .and. .f. $%  % yFT885.and.betw(val(compras.cod_ins),val(xdbie),val(xhbie)) 7T88&.and.betw(compras.cod_ins,xdbie,xhbie)%  "%!CX "CX %#.T88 and .f. %$HT887.and.betw(val(clientes.vendedor),val(xdage),val(xhage)) 9T88(.and.betw(clientes.vendedor,xdage,xhage)%%& 15T88$.and. betw(clientes.cat,xdcat,xhcat)% 5T88$.and. betw(bienes.linea,xdlin,xhlin)% 5T88$.and. betw(bienes.marca,xdmar,xhmar)% 65T88$.and. betw(bienes.grupo,xdgru,xhgru)%'( @T88/.and. betw(grupos.supergrupo,xdsprgru,xhsprgru)%)* 8T88'.and. betw(rubrofac.codigo,xdrfc,xhrfc)#%   CX P7T88&.and. between(compras.bul,xdbul,xhbul)#%   CX 8T88'.and. between(compras.atr, xdatr,xhatr)%C+ C, 6T88%.and. betw(cuentas.abrev,xdcue,xhcue)%-. ^7T88&.and. betw(clientes.lista,xdlis,xhlis)%/*T88.and. clientes.pais=xdpai%01 T88 and .f.%2'T88.and.compras.tot_ven=0%3c<T88+.and.compras.cod_ins#oBie.data_codigo_vacio%4 T H 4c(T88.and.compras.causa="c"  4d(T88.and.compras.causa="d" *CObteniendo datos de ventas9:%C SeleccionbF;Q<=>?@A2<(CBC 6NY#T@C<;CDE6#TAC<FCDE6%<%ClTGventas.fec_ven2TH%between(ventas.fec_ven, xdfec, xhfec) TGventas.fec_ent2TH%between(ventas.fec_ent, xdfec, xhfec)DTI7ventas.fac_ven+ventas.causa=ccvent.fac_ven+ccvent.causaT=VentasT>CCVent T?TJ Ventas.causaTK ccvent.motivoTL CCVent.desca1TM CCVent.desca2TNVentas.Fac_VenTOVentas.rem_VenTPVentas.recepcionTQventas.fec_entTRventasTScccomp TTTU compras.causaTVcompras.Fac_comTWwcompras.fac_com+compras.causa+compras.cod_pro+str(compras.op)=cccomp.fac_com+cccomp.causa+cccomp.cod_pro+str(cccomp.op)TXcompras.recepcion3TY&between(compras.fec_ven, xdfec, xhfec)TZ ccvent.no_fc/T["evl(ventas.centro, ccvent.cod_cen)0T\#evl(compras.centro, cccomp.cod_cen)T] ccvent.pedidoT^ccvent.solo_impT_ccvent.porcentaje TGxhfecT=TVentasT>TCCVent T?-T?C? CCVENT.causa"P"c-T?C? Ventas.causa"P"c-T?C?VENTAS.TVENTAS.c-T?C?CCVENT.TCCVENT.c2TQ%evl(tventas.entrega, tccvent.fec_ent)TJ'P'TK0TL0TM0#TNSTR(tVentas.Pedido,12)TO space(12)*TItventas.pedido=tccvent.pedidoTPiif(tVentas.recepcion- iif(tVentas.Recep2>=tVentas.facturado,tVentas.Recep2,tVentas.facturado)<=0,00000000000000.00, tVentas.recepcion-iif(tVentas.Recep2>=tVentas.facturado,tVentas.Recep2,tVentas.facturado)))T??.and.tccvent.est_desp<=1TH.t.TZ.f.1T[$evl(tventas.centro, tccvent.cod_cen)T]tccvent.pedidoT^.F.T_.F.%<T` ventas.compl T`000.00%%Cccvent.solo_impbLK2Sselect &xtmpcau as causa , &xtmpfacven as fac_ven , &xtmpremven as rem_ven , &xtmpfec as fec_ven , &xtmpentrega as fec_ent , iif(&xsolo_imp,00000000000000000.00, &xtmprecep) as recepcion , iif(&xtmpven..recepcion=0, 00000000000000000.00, &xtmpven..tot_ven/&xtmpven..recepcion*&xtmprecep) as tot_ven , &xtmprecep*&xtmpven..cos_lifo*iif(&xtmpven..moneda=0,1,&xtmpven..coefic) as tot_ful , 0000000000000.0000 as tot_ven_me , &xtmpven..itm as itm , &xtmpven..moneda as moneda , &xtmpven..coefic as cambio , &xtmpven..des_ins as des_ins , iif(!empty(&xtmpven..cod_ins), &xtmpven..cod_ins, iif(&xtmpcau="c",padr(" SC NC "+alltrim(str(&xtmpmot)),15),iif(&xtmpcau="d",padr(" SC ND "+alltrim(str(&xtmpmot)),15),padr(" SC",15)))) as cod_ins , &xtmpven..atr as atr , &xtmpven..bul as bul , &xtmpven..cod_cli as cod_cli , &xtmpccv..suc as suc , iif(p_age_tipo, &xtmpccv..agente, clientes.vendedor) as vendedor , (1-&xtmpccv..desc1/100) * (1-&xtmpccv..desc2/100) * (1-&xtmpccv..desc3/100) * (1-&xtmpccv..desc4/100) * (1-&xtmpccv..desc5/100) * (1-&xtmpdesca1/100) * (1-&xtmpdesca2/100) as gdesc , nvl(iif(bienes.bultos='S', stock.factor, bienes.factor), 000000.000000) as factor , nvl(bienes.pesoxu,000000.000000) as pesoxu , iif(bienes.bultos='S', bultos.descr,space(20)) as descbul , nvl(iif(bienes.bultos='S', bultos.medida,bienes.medida),space(10)) as medida , nvl(iif(bienes.bultos='S', bultos.medidaaux,bienes.medidaaux),space(10)) as medidaaux , iif(bienes.atributos='S', atributo.descr,space(20)) as descatr , nvl(alltrim( alltrim(bienes.descr)+" "+iif(bienes.atributos='S', alltrim(atributo.descr),"")+" "+iif(bienes.bultos='S', alltrim(bultos.descr),"") ),padr(" SIN CODIFICAR",200)) as descr , nvl(alltrim(bienes.descr),padr(" SIN CODIFICAR",200)) as desccod , nvl(bienes.linea,0000) as linea , nvl(bienes.grupo,0000) as grupo , nvl(bienes.subgrupo,0000) as subgrupo, nvl(grupos.supergrupo,0000) as supergrupo, nvl(bienes.marca,0000) as marca , clientes.zona as zona , clientes.a1 as a1 , clientes.a2 as a2 , clientes.a3 as a3 , clientes.a4 as a4 , clientes.cat as cat , clientes.nombre as nombre , 0000000000 as clavenum , 000000000000.00 as total , 000000000000.00 as cantidad , 000000000000.00 as cantaux , 000000000000.00 as peso , 000000000000.00 as importe , 000000000000.00 as costototal , space(30) as suc_des , space(30) as suc_dir , space(30) as suc_ciu , &xtmpccv..motivo as motivo , &xtmpccv..rfc as rfc , iif(&xtmpcau="V","FC", iif(&xtmpcau="r","RE", iif(&xtmpcau="c","NC",iif(&xtmpcau="d","ND",iif(&xtmpcau="P","PE"," "))))) as tipo_cpbt , 0000000000 as acuerdo , space(30) as dacuerdo , 0000.00 as dtoacu , clientes.suc as tiene_suc , .f. as es_venta , utf_mysc(nvl(provinc.descr, space(30))) as provincia , iif( !empty(clientes.pro2) and !empty(clientes.dom2), clientes.pro2, clientes.provincia) as provi, nvl(bienes.cod_pro,space(6)) as cod_pro , nvl(proveedo.nombre, space(40)) as nompro , "N" as scod , &xtmpno_fc as no_fc , iif(bienes.atributos='S', atributo.surtido,0) as surtido, clientes.gruec as gruec , space(40) as dgruec , iif(nit=1,&xtmpccv..compl,000.00) as ecompl , &xcompl as compl , p_codemp as emp , nvl(artxcli.sector,2) as sector , 00000000000000.00 as acuerdos , 0000000000 as acuerdo1 , space(40) as dacuerdo1 , 00000000000000.00 as dtoacu1 , 00000000000000.00 as importe1 , 0000000000 as acuerdo2 , space(40) as dacuerdo2 , 00000000000000.00 as dtoacu2 , 00000000000000.00 as importe2 , 0000000000 as acuerdo3 , space(40) as dacuerdo3 , 00000000000000.00 as dtoacu3 , 00000000000000.00 as importe3 , 0000000000 as acuerdo4 , space(40) as dacuerdo4 , 00000000000000.00 as dtoacu4 , 00000000000000.00 as importe4 , 0000000000 as acuerdo5 , space(40) as dacuerdo5 , 00000000000000.00 as dtoacu5 , 00000000000000.00 as importe5 , &xsolo_imp as solo_imp , &xporcentaje as porcentaje , &xtmpcentro as centro , space(40) as dcentro , &xtmppedido as pedido from &xtmpven left outer join bienes on &xtmpven..cod_ins=bienes.cod_ins left outer join artxcli on &xtmpven..cod_cli+&xtmpven..cod_ins+&xtmpven..atr+&xtmpven..bul=artxcli.cod_cli+artxcli.cod_ins+artxcli.atr+artxcli.bul left outer join grupos on bienes.grupo=grupos.codigo left outer join stock on &xtmpven..cod_ins+&xtmpven..bul+&xtmpven..atr+space(8)=stock.codigo+stock.bul+stock.atr+space(8) left outer join bultos on &xtmpven..cod_ins+&xtmpven..bul=bultos.cod_ins+bultos.clave left outer join atributo on &xtmpven..cod_ins+&xtmpven..atr=atributo.cod_ins+atributo.clave left outer join proveedo on bienes.cod_pro=proveedo.cod_pro , &xtmpccv, clientes left outer join provinc on iif( !empty(clientes.pro2) and !empty(clientes.dom2), clientes.pro2, clientes.provincia)=provinc.codigo where &xtmpfiltrofecha .and. &xtmprela .and. &xtmpven..cod_cli=clientes.cod_cli .and. &xtmpfiltro into table (p_local+'\tmp\'+xseleccion) zF%select &xtmpcau as causa , &xtmpfacven as fac_ven , &xtmpremven as rem_ven , &xtmpfec as fec_ven , &xtmpentrega as fec_ent , &xtmprecep as recepcion , iif(&xtmpven..recepcion=0, 00000000000000000.00, &xtmpven..tot_ven/&xtmpven..recepcion*&xtmprecep) as tot_ven , &xtmprecep*&xtmpven..cos_lifo*iif(&xtmpven..moneda=0,1,&xtmpven..coefic) as tot_ful , 0000000000000.0000 as tot_ven_me , &xtmpven..itm as itm , &xtmpven..moneda as moneda , &xtmpven..coefic as cambio , &xtmpven..des_ins as des_ins , iif(!empty(&xtmpven..cod_ins), &xtmpven..cod_ins, iif(&xtmpcau="c",padr(" SC NC "+alltrim(str(&xtmpmot)),15),iif(&xtmpcau="d",padr(" SC ND "+alltrim(str(&xtmpmot)),15),padr(" SC",15)))) as cod_ins , &xtmpven..atr as atr , &xtmpven..bul as bul , &xtmpven..cod_cli as cod_cli , &xtmpccv..suc as suc , iif(p_age_tipo, &xtmpccv..agente, clientes.vendedor) as vendedor , (1-&xtmpccv..desc1/100) * (1-&xtmpccv..desc2/100) * (1-&xtmpccv..desc3/100) * (1-&xtmpccv..desc4/100) * (1-&xtmpccv..desc5/100) * (1-&xtmpdesca1/100) * (1-&xtmpdesca2/100) as gdesc , nvl(iif(bienes.bultos='S', stock.factor, bienes.factor), 000000.000000) as factor , nvl(bienes.pesoxu,000000.000000) as pesoxu , iif(bienes.bultos='S', bultos.descr,space(20)) as descbul , nvl(iif(bienes.bultos='S', bultos.medida,bienes.medida),space(10)) as medida , nvl(iif(bienes.bultos='S', bultos.medidaaux,bienes.medidaaux),space(10)) as medidaaux , iif(bienes.atributos='S', atributo.descr,space(20)) as descatr , nvl(alltrim( alltrim(bienes.descr)+" "+iif(bienes.atributos='S', alltrim(atributo.descr),"")+" "+iif(bienes.bultos='S', alltrim(bultos.descr),"") ),padr(" SIN CODIFICAR",200)) as descr , nvl(alltrim(bienes.descr),padr(" SIN CODIFICAR",200)) as desccod , nvl(bienes.linea,0000) as linea , nvl(bienes.grupo,0000) as grupo , nvl(bienes.subgrupo,0000) as subgrupo, nvl(grupos.supergrupo,0000) as supergrupo, nvl(bienes.marca,0000) as marca , clientes.zona as zona , clientes.a1 as a1 , clientes.a2 as a2 , clientes.a3 as a3 , clientes.a4 as a4 , clientes.cat as cat , clientes.nombre as nombre , 0000000000 as clavenum , 000000000000.00 as total , 000000000000.00 as cantidad , 000000000000.00 as cantaux , 000000000000.00 as peso , 000000000000.00 as importe , 000000000000.00 as costototal , space(30) as suc_des , space(30) as suc_dir , space(30) as suc_ciu , &xtmpccv..motivo as motivo , &xtmpccv..rfc as rfc , iif(&xtmpcau="V","FC", iif(&xtmpcau="r","RE", iif(&xtmpcau="c","NC",iif(&xtmpcau="d","ND",iif(&xtmpcau="P","PE"," "))))) as tipo_cpbt , 0000000000 as acuerdo , space(30) as dacuerdo , 0000.00 as dtoacu , clientes.suc as tiene_suc , .f. as es_venta , utf_mysc(nvl(provinc.descr, space(30))) as provincia , iif( !empty(clientes.pro2) and !empty(clientes.dom2), clientes.pro2, clientes.provincia) as provi, nvl(bienes.cod_pro,space(6)) as cod_pro , nvl(proveedo.nombre, space(40)) as nompro , "N" as scod , &xtmpno_fc as no_fc , iif(bienes.atributos='S', atributo.surtido,0) as surtido, clientes.gruec as gruec , space(40) as dgruec , iif(nit=1,&xtmpccv..compl,000.00) as ecompl , &xcompl as compl , p_codemp as emp , nvl(artxcli.sector,2) as sector , 00000000000000.00 as acuerdos , 0000000000 as acuerdo1 , space(40) as dacuerdo1 , 00000000000000.00 as dtoacu1 , 00000000000000.00 as importe1 , 0000000000 as acuerdo2 , space(40) as dacuerdo2 , 00000000000000.00 as dtoacu2 , 00000000000000.00 as importe2 , 0000000000 as acuerdo3 , space(40) as dacuerdo3 , 00000000000000.00 as dtoacu3 , 00000000000000.00 as importe3 , 0000000000 as acuerdo4 , space(40) as dacuerdo4 , 00000000000000.00 as dtoacu4 , 00000000000000.00 as importe4 , 0000000000 as acuerdo5 , space(40) as dacuerdo5 , 00000000000000.00 as dtoacu5 , 00000000000000.00 as importe5 , .f. as solo_imp , .f. as porcentaje , &xtmpcentro as centro , space(40) as dcentro , &xtmppedido as pedido from &xtmpven left outer join bienes on &xtmpven..cod_ins=bienes.cod_ins left outer join artxcli on &xtmpven..cod_cli+&xtmpven..cod_ins+&xtmpven..atr+&xtmpven..bul=artxcli.cod_cli+artxcli.cod_ins+artxcli.atr+artxcli.bul left outer join grupos on bienes.grupo=grupos.codigo left outer join stock on &xtmpven..cod_ins+&xtmpven..bul+&xtmpven..atr+space(8)=stock.codigo+stock.bul+stock.atr+space(8) left outer join bultos on &xtmpven..cod_ins+&xtmpven..bul=bultos.cod_ins+bultos.clave left outer join atributo on &xtmpven..cod_ins+&xtmpven..atr=atributo.cod_ins+atributo.clave left outer join proveedo on bienes.cod_pro=proveedo.cod_pro , &xtmpccv, clientes left outer join provinc on iif( !empty(clientes.pro2) and !empty(clientes.dom2), clientes.pro2, clientes.provincia)=provinc.codigo where &xtmpfiltrofecha .and. &xtmprela .and. &xtmpven..cod_cli=clientes.cod_cli .and. &xtmpfiltro into table (p_local+'\tmp\'+xseleccion) C pos_seleccion %aF TaCWFbG((codigo FaG-(db>ebfG-( H%h H%<G4(i\tmp\ve_est_seleccion_ventas_CCjZ6(i\tmp\ve_est_seleccion_ventas_CCjZԻ H5(i\tmp\ve_est_seleccion_pedidos_CCjZ7(i\tmp\ve_est_seleccion_pedidos_CCjZԻ H TaCW%kXselect compras.causa as causa , compras.fac_com as fac_ven , compras.fec_com as fec_ven , compras.fec_com as fec_ent , compras.itm as itm , compras.recepcion as recepcion , compras.tot_com/compras.recepcion*compras.recepcion as tot_ven , compras.recepcion*compras.cos_lifo*iif(compras.moneda=0,1,compras.coefic) as tot_ful , 0000000000000.0000 as tot_ven_me , compras.moneda as moneda , compras.coefic as cambio , compras.des_ins as des_ins , iif(!empty(compras.cod_ins), compras.cod_ins, iif(compras.causa="c",padr(" SC NC "+alltrim(str(cccomp.motivo)),15),iif(compras.causa="d",padr(" SC ND "+alltrim(str(cccomp.motivo)),15),padr(" SC",15)))) as cod_ins , compras.atr as atr , compras.bul as bul , clientes.cod_cli as cod_cli , 0 as suc , space(8) as vendedor , (1-cccomp.desc1/100) * (1-cccomp.desc2/100) as gdesc , nvl(iif(bienes.bultos='S', stock.factor, bienes.factor), 000000.000000) as factor , nvl(bienes.pesoxu,000000.000000) as pesoxu , iif(bienes.bultos='S', bultos.descr,space(20)) as descbul , nvl(iif(bienes.bultos='S', bultos.medida,bienes.medida),space(10)) as medida , nvl(iif(bienes.bultos='S', bultos.medidaaux,bienes.medidaaux),space(10)) as medidaaux , iif(bienes.atributos='S', atributo.descr,space(20)) as descatr , nvl(alltrim( alltrim(bienes.descr)+" "+iif(bienes.atributos='S', atributo.descr,"")+" "+iif(bienes.bultos='S', bultos.descr,"") ),padr(" SIN CODIFICAR",200)) as descr , nvl(bienes.linea,0000) as linea , nvl(bienes.grupo,0000) as grupo , nvl(bienes.subgrupo,0000) as subgrupo, nvl(grupos.supergrupo,0000) as supergrupo, nvl(bienes.marca,0000) as marca , clientes.zona as zona , clientes.a1 as a1 , clientes.a2 as a2 , clientes.a3 as a3 , clientes.a4 as a4 , clientes.cat as cat , clientes.nombre as nombre , 0000000000 as clavenum , 000000000000.00 as total , 000000000000.00 as cantidad , 000000000000.00 as cantaux , 000000000000.00 as peso , 000000000000.00 as importe , 000000000000.00 as costototal , space(30) as suc_des , space(30) as suc_dir , space(30) as suc_ciu , 0 as motivo , 0 as rfc , iif(compras.causa="V","FC", iif(compras.causa="r","RE", iif(compras.causa="c","NC",iif(compras.causa="d","ND",iif(compras.causa="P","PE"," "))))) as tipo_cpbt , 0000000000 as acuerdo , space(30) as dacuerdo , 0000.00 as dtoacu , clientes.suc as tiene_suc , proveedo.inscripcio as cuit , proveedo.nombre as nompro , .f. as es_venta , utf_mysc(nvl(provinc.descr,space(30))) as provincia , proveedo.provincia as provi , nvl(bienes.cod_pro,space(6)) as cod_pro , nvl(proveedo.nombre, space(40)) as nompro , "N" as scod , .f. as no_fc , iif(bienes.atributos='S', atributo.surtido,0) as surtido, 00 as sector , .f. as solo_imp , .f. as porcentaje , &xctmpcentro as centro , space(40) as dcentro from compras left outer join bienes on compras.cod_ins=bienes.cod_ins left outer join grupos on bienes.grupo=grupos.codigo left outer join stock on compras.cod_ins+compras.bul+compras.atr+space(8)=stock.codigo+stock.bul+stock.atr+space(8) left outer join bultos on compras.cod_ins+compras.bul=bultos.cod_ins+bultos.clave left outer join atributo on compras.cod_ins+compras.atr=atributo.cod_ins+atributo.clave left outer join proveedo on bienes.cod_pro=proveedo.cod_pro left outer join provinc on proveedo.provincia=provinc.codigo , cccomp, clientes where between(compras.fec_com, xdfec, xhfec) .and. cccomp.cod_pro+cccomp.fac_com+cccomp.causa=compras.cod_pro+compras.fac_com+compras.causa .and. compras.cod_pro=proveedo.cod_pro .and. &filtro_c .and. clientes.inscripcio=proveedo.inscripcio .and. !empty(proveedo.inscripcio) .and. proveedo.inscripcio#" - - " .and. proveedo.inscripcio#"30-57952088-0" .and. clientes.cat=3 into table (p_local+'\tmp\'+xseleccion2) %hX X5(i\tmp\ve_est_seleccion_compras_CCjZ7(i\tmp\ve_est_seleccion_compras_CCjZԻ XQ Fa%<YQi\tmp\@;&%Ci\tmp\A.dbf0Y i\tmp\A.dbf JYQF;i\tmp\@/CPost-procesando datos de ventas9:FlG((codigoF;G-(mlm>nlopCCq= SC NCCq= SC ND lo SN6Cq= SC %%Cccvent.solo_impbL?Z ZH>;slstucdls vC$ G-(%w[FlG((codigoF;G-(ml'uc ud lo G-(%xr[FlG((codigoF;G-(ml*uc ud  ly G-(Fz G((idF|G((codcliF;G-(~CZz~S\%CSucursal+ \'%Czprovinccodigo\F;!>Cfz%za\>;z3>;z;z;zG-(%\C@%Ccostos \QcostosFG((codigoF;G-(>fC G-(6%    ] CF;% ];C; %%& ^;C;%& %C /^;%P^ C&%C xAcuerdosbLx ^ C%^ CBUFILTROXDCLIXHCLIP_CLINUMXDGRUECXDFORXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDBULXHBULXDATRXHATRXDLINXHLINXDMARXHMARXDGRUXHGRUXDPROXHPROP_PRONUMXDCFCXHCFCSYS_MXDREMXDTIP XINCREMCOSXDCTRXDSUCXHSUCXDAGEXHAGE P_AGE_TIPOP_AGENUMXDCATXHCATXDSPRGRUXHSPRGRUXDRFCXHRFCXDCUEXHCUEXDLISXHLISXDPAIXDMOTXHMOTXDBONXDSCDXDCAUXDPRMXDCOSXHCOSFILTRO_COESTADOAVANCE SELECCIONNITXTMPVENXTMPCCV XTMPFILTRO XSELECCION XSELECCION2XPEDXPOR_FECHA_DE_ENTREGAODEYFUNCNEWFILE SELECCION2XTMPFECXTMPFILTROFECHAXTMPRELAXTMPCAUXTMPMOT XTMPDESCA1 XTMPDESCA2 XTMPFACVEN XTMPREMVEN XTMPRECEP XTMPENTREGAXCTMPVENXCTMPCCV XCTMPFILTROXCTMPCAU XCTMPFACVEN XCTMPRELA XCTMPRECEPXCTMPFILTROFECHA XTMPNO_FC XTMPCENTRO XCTMPCENTRO XTMPPEDIDO XSOLO_IMP XPORCENTAJEXCOMPLXAREA_SELECCION CLIGRUECECODIGOGRUECDGRUECDESCRALLP_DEVP_LOCALP_CODEMP XINCL_COMPRASMOTIVOSMOTIVOES_VENTAVENTASSCODCOD_INSFORSOLO_IMP RECEPCIONCAUSAFEC_VENXDVEN XACUERDOSTIPOSUCURSALIDCLIENTESCODCLICOD_CLISUC TIENE_SUC PROVINCIAUTF_MYSCPROVINCPROVIZONASUC_DESNOMBRESUC_DIR DOMICILIOSUC_CIUCIUDADXDCOSTOSCOSTOS_POR_LOTECOSTOSCENTRODCENTROTIPO_LISXDSEPAGREGAR_PLATAFORMASXDZONXHZONINCATXDPRVXDMONPASAR_A_MONEDA_DESTINOPROCESAR_ACUERDOS_SELECCIONXEXPLOSION_SURTIDOSEXPLOSION_SURTIDOS)-Q MELI_ENVIOsys_meli_objetos.prg !i1 seleccionC!i1 seleccionC !i1 seleccionC!i1 seleccionC!i1 seleccionC F 1TC MELI_EnvioSys_meli_objetos.prgF~ "(%C tccventTCCVORD%C   !>  8%C  plataformas_auxref_full5> C   FUOENVSYS_MELI_OBJETOSPRG SELECCIONREF_EXT PLATAFORMA LOGISTIC_T LOGISTIC_DCHANNELPLATAFORMAS_AUXPEDIDOTCCVENTINLOGISTIC_TYPE_GESF ~V TT T T-#listados% T>  (R T T T T-#listadosT tcCC Z,replace in tmp_costos &xvar with xcambio % zo seleccionXatributo wXbultos wXagente )*xXlineas 01Xgrupos 34Xmarcas 89Xzonas ;<Xcatcli HIXmotivos >?X tmp_costos CyCC VFCDC cNC/C dNDC rREXX6666Q C00[QQQQQCCCCҡ  6CCCCҡ  6CQQCCXQCCXQQC d  C! d   T6Q"C# d TQ$C!#TQ%&Q&'Q'(Q()Q)C*(C(XQ+,Q,-Q-.Q./Q/0Q0C1CXQ23Q3C4CXQ56Q67Q78Q8C9CXQ:;Q;C<CXQ=>Q>C?C(XQ@AQABQCDQDEQEFQFGQGHQHCICXQJKQKLQLMQMNOPQRSTUVWXYZ[\]^_`abcdeCfQfCfQgC Q ChQhCCCCiCij"Moneda CCiZ invlida6CXQiCiQklCmQmCnQnCoQoCpQpCqQqCrQrstuvexportar o seleccionXatributo wXbultos wXagente )*xXlineas 01Xmarcas 89Xgrupos 34Xzonas ;<Xcatcli HIXmotivos >?X tmp_costos CyCC VFCDC cNC/C dNDC rREXX6666Q C00[QQQQQCCCCҡ  6CCCCҡ  6CQQCCXQCCXQQC d  C! d   T6Q"C# d TQ$C!#TQ%&Q&'Q'(Q()Q)C*(C(XQ+,Q,-Q-.Q./Q/0Q0C1CXQ23Q3C4CXQ56Q67Q78Q8C9CXQ:;Q;C<CXQ=>Q>C?C(XQ@AQABQCDQDEQEFQFGQGHQHCICXQJKQKLQLMQMNOPQRSTUVWXYZ[\]^_`abcdeffQg hCijQiiQkmlnopqr{|}~stuvexportar)%Cxsesion_alternativabU$%C\ve_export1.xls0\ve_export1.xls(%C\tmp\ve_export1.dbf0d"\tmp\ve_export1.dbf( \ve_export1Ի(\tmp\ve_export1 z$%C\ve_export2.xls0\ve_export2.xls(%C\tmp\ve_export2.dbf0<"\tmp\ve_export2.dbf( \ve_export2Ի(\tmp\ve_export2QFBU TMP_COSTOSXMONEDAXDMONXFECHAFECXCAMBIOXEXACTOOBTENER_CAMBIOLISTADOSTC_FECZXVARXDCOSTOSCAUSAFAC_VEN COMPROBANTEFEC_VENFECHA SELECCIONCOD_INSCODIGOATRBULDESCRATRIBUTOBULTOSDESCCODDCODDATRDBUL RECEPCIONCANTIDADDES_INSTOT_VENPRECIOGDESCDESCTOSIMPORTECOD_CLISUCNOMBREVENDEDORAGENTE DVENDEDORFACTORPESOXUMEDIDA MEDIDAAUXLINEALINEASDLINEAGRUPOGRUPOSDGRUPOSUBGRUPO SUPERGRUPOMARCAMARCASDMARCAZONAZONASDZONAMOTIVOMOTIVOSDMOTIVOES_VENTASCODCOD_NCNDA1A2A3A4CATCATCLIDCATRFC PROVINCIASECTORACUERDO1 DACUERDO1DTOACU1IMPORTE1ACUERDO2 DACUERDO2DTOACU2IMPORTE2ACUERDO3 DACUERDO3DTOACU3IMPORTE3ACUERDO4 DACUERDO4DTOACU4IMPORTE4ACUERDO5 DACUERDO5DTOACU5IMPORTE5ECOMPLITMMONEDACAMBIOCOSTOT_COSCOS_ORIMON_ORI MM_MONEDA MON_ORI_CFEC_ORITC_ORITC1TC2TC3TC4TC5CENTRODCENTROGRUECDGRUECCLAVECOD_AGECODEXPORTARMV_CNTMV_DSPCS_MONCS_COSXDIRP_LOCAL seleccion0agregar_plataformasdexportar~g 1"AA4BDQaAA2aA2qAQAQAQA"QaAAAQAFCbAB!A"AQAAAAQAAAaAqA&AqAAQAaAAtAqAqAqAqQQAAAA'AAABaqAAB"AAAQAQAQAQAAA2qA2AaAqA2AAqAArCAAAFqAA!1111"!LA1111A2"AA!2a B21A[1EQBBrbC1AaQqAAA1QqAABE2aABqABvrYAa0rrqaBrraArrrQRqrb1A5BAAb3B!AqrbcAtAA"!A3AcAAG2ArrASAAAqA4q42A4rBB20w@akABA!AAA!AABrB1J#%E3U0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1MN0X3B79 909599047T- b; (E>Kr COMMENT RESERVED WVERSION = 3.00blowfish_memberdata^ parxl^ parxr^ blowfishiniciado^ maxllavebytes^ blosfishconstantes^ xor^ blosfishinicializar^ blowfishdesencriptar^ blowfishencriptar^ blowfishredondear^ decodificarpalabra^ codificarpalabra^ bytepalabra1^ bytepalabra2^ bytepalabra3^ bytepalabra4^ Init^ ClassLibrary^ AddObject^ AddProperty^ BaseClass^ Class^ CloneObject^ Comment^ ControlCount^ Controls^ Destroy^ Error^ Height^ HelpContextID^ NewObject^ Objects^ Parent^ ParentClass^ Picture^ ReadExpression^ ReadMethod^ RemoveObject^ ResetToDefault^ SaveAsClass^ ShowWhatsThis^ Tag^ WhatsThisHelpID^ Width^ WriteExpression^ WriteMethod^ Pixels#d:\litoprint\gestion\bmp\seguro.bmp#d:\litoprint\gestion\bmp\seguro.bmpEncriptacion por blowfishClass1customblowfish_memberdata XML Metadatos para propiedades personalizables. parxl Par de trabajo XL para Blowfish parxr Par de trabajo XR para Blowfish blowfishiniciado version Version de la clase maxllavebytes Numero maximo de caracteres para la Llave o clave *codificar Codifica *decodificar Decodificacion *codificarsimple Codifica de forma simple *decodificarsimple Decodifica una cadena simple *blosfishconstantes Inicia las constanes del algoritmo de BlowFish *xor Compara a nivel de bist dos valores *blosfishinicializar Inicializa todo para blowfish *blowfishdesencriptar Desencripta una cadena de Blowfish *blowfishencriptar Encripta por blowfish *blowfishredondear *decodificarpalabra Decodifica una palabra por bloques *codificarpalabra Codifica un bloque de palabras *bytepalabra1 *bytepalabra2 *bytepalabra3 *bytepalabra4 *decodificarblowfish Decodifica por el metodo de Blowfish *codificarblowfish Codifica por blowfish custom _memberdata =  2077 parxl = 0 parxr = 0 blowfishiniciado = 0 version = '1.3' maxllavebytes = 56 Name = "blowfish" \PROCEDURE codificar LPARAMETERS pcTexto as String LOCAL lnTemporalA, lnTemporalB, lnTemporalC, cResultado, lnContador lnTemporalA=0 lnTemporalB=0 lnTemporalC=0 cResultado="" FOR lnContador=1 TO LEN(pcTexto) lnTemporalA=ASC(SUBSTR(pcTexto,lnContador,1)) lnTemporalB=FLOOR(lnTemporalA/16) lnTemporalC=lnTemporalA % 16 IF lnTemporalB<10 lnTemporalB=lnTemporalB+48 ELSE lnTemporalB=lnTemporalB+55 ENDIF IF lnTemporalC<10 lnTemporalC=lnTemporalC+48 ELSE lnTemporalC=lnTemporalC+55 ENDIF cResultado=cResultado+CHR(lnTemporalB)+CHR(lnTemporalC) ENDFOR RETURN cResultado ENDPROC PROCEDURE decodificar LPARAMETERS pcTexto as String LOCAL lnTemporalA, lnTemporalB, lnTemporalC, cResultado, lnContador lnTemporalA=0 lnTemporalB=0 lnTemporalC=0 cResultado="" FOR lnContador=1 TO LEN(pcTexto) lnTemporalB=ASC(SUBSTR(pcTexto,lnContador,1)) lnContador=lnContador+1 lnTemporalC=ASC(SUBSTR(pcTexto,lnContador,1)) lnTemporalB=IIF(lnTemporalB=0,48,lnTemporalB) IF lnTemporalB<58 lnTemporalB=lnTemporalB-48 ELSE IF lnTemporalB>96 lnTemporalB=lnTemporalB-87 ELSE lnTemporalB=lnTemporalB-55 ENDIF ENDIF IF lnTemporalC<58 lnTemporalC=lnTemporalC-48 ELSE IF lnTemporalC>96 lnTemporalC=lnTemporalC-87 ELSE lnTemporalC=lnTemporalC-55 ENDIF ENDIF lnTemporalA=(lnTemporalB*16)+lnTemporalC cResultado=cResultado+CHR(lnTemporalA) ENDFOR RETURN cResultado ENDPROC PROCEDURE codificarsimple LPARAMETERS pcTexto as String, pcPalabraClave as String LOCAL nDelta, lnTemporalA, cSalidaDato, i, j nDelta=5 lnTemporalA=0 cSalidaDato="" j=1 IF LEN(pcPalabraClave)=0 cSalidaDato=this.Codificar(pcTexto) ELSE FOR i=1 TO LEN(pcTexto) IF j=LEN(pcPalabraClave) j=1 ENDIF lnTemporalA = ASC(SUBSTR(pcTexto,i,1)) lnTemporalA = lnTemporalA + ASC(SUBSTR(pcPalabraClave,j,1)) IF lnTemporalA > 255 lnTemporalA=lnTemporalA-256 ENDIF IF lnTemporalA < nDelta cSalidaDato = cSalidaDato + CHR(nDelta) lnTemporalA = lnTemporalA+ nDelta ENDIF cSalidaDato = cSalidaDato + CHR(lnTemporalA) j=j+1 ENDFOR cSalidaDato=this.Codificar(cSalidaDato) ENDIF RETURN cSalidaDato ENDPROC PROCEDURE decodificarsimple LPARAMETERS pcTexto as String, pcPalabraClave as String LOCAL delta, lnTemporalA, cSalidaDato, i ,j nDelta=5 lnTemporalA=0 cSalidaDato="" j=1 WITH this IF LEN(pcPalabraClave)=0 cSalidaDato= .Decodificar(pcTexto) &&myunescape(pcTexto) ELSE pcTexto=.Decodificar(pcTexto) &&myunescape(pcTexto) FOR i=1 TO LEN(pcTexto) IF j=LEN(pcPalabraClave) j=1 ENDIF lnTemporalA = ASC(SUBSTR(pcTexto,i,1)) IF lnTemporalA=nDelta i=i+1 lnTemporalA = ASC(SUBSTR(pcTexto,i,1)) slnTemporalA = lnTemporalA - nDelta ENDIF lnTemporalA = lnTemporalA - ASC(SUBSTR(pcPalabraClave,j,1)) IF lnTemporalA < 0 lnTemporalA=lnTemporalA+256 ENDIF cSalidaDato = cSalidaDato + CHR(lnTemporalA) j=j+1 ENDFOR ENDIF ENDWITH RETURN cSalidaDato ENDPROC PROCEDURE blosfishconstantes *!* ATENCION LAS LINEAS SIGUIENTES SON VALORES CONSTANTES. *!* NO CAMBIE NINGUNO DE LOS ANTERIORES *---- WITH this STORE 0x243f6a88 TO .aP(1) STORE 0x85a308d3 TO .aP(2) STORE 0x13198a2e TO .aP(3) STORE 0x03707344 TO .aP(4) STORE 0xa4093822 TO .aP(5) STORE 0x299f31d0 TO .aP(6) STORE 0x082efa98 TO .aP(7) STORE 0xec4e6c89 TO .aP(8) STORE 0x452821e6 TO .aP(9) STORE 0x38d01377 TO .aP(10) STORE 0xbe5466cf TO .aP(11) STORE 0x34e90c6c TO .aP(12) STORE 0xc0ac29b7 TO .aP(13) STORE 0xc97c50dd TO .aP(14) STORE 0x3f84d5b5 TO .aP(15) STORE 0xb5470917 TO .aP(16) STORE 0x9216d5d9 TO .aP(17) STORE 0x8979fb1b TO .aP(18) *--- STORE 0xd1310ba6 TO .aS1(1) STORE 0x98dfb5ac TO .aS1(2) STORE 0x2ffd72db TO .aS1(3) STORE 0xd01adfb7 TO .aS1(4) STORE 0xb8e1afed TO .aS1(5) STORE 0x6a267e96 TO .aS1(6) STORE 0xba7c9045 TO .aS1(7) STORE 0xf12c7f99 TO .aS1(8) STORE 0x24a19947 TO .aS1(9) STORE 0xb3916cf7 TO .aS1(10) STORE 0x0801f2e2 TO .aS1(11) STORE 0x858efc16 TO .aS1(12) STORE 0x636920d8 TO .aS1(13) STORE 0x71574e69 TO .aS1(14) STORE 0xa458fea3 TO .aS1(15) STORE 0xf4933d7e TO .aS1(16) STORE 0x0d95748f TO .aS1(17) STORE 0x728eb658 TO .aS1(18) STORE 0x718bcd58 TO .aS1(19) STORE 0x82154aee TO .aS1(20) STORE 0x7b54a41d TO .aS1(21) STORE 0xc25a59b5 TO .aS1(22) STORE 0x9c30d539 TO .aS1(23) STORE 0x2af26013 TO .aS1(24) STORE 0xc5d1b023 TO .aS1(25) STORE 0x286085f0 TO .aS1(26) STORE 0xca417918 TO .aS1(27) STORE 0xb8db38ef TO .aS1(28) STORE 0x8e79dcb0 TO .aS1(29) STORE 0x603a180e TO .aS1(30) STORE 0x6c9e0e8b TO .aS1(31) STORE 0xb01e8a3e TO .aS1(32) STORE 0xd71577c1 TO .aS1(33) STORE 0xbd314b27 TO .aS1(34) STORE 0x78af2fda TO .aS1(35) STORE 0x55605c60 TO .aS1(36) STORE 0xe65525f3 TO .aS1(37) STORE 0xaa55ab94 TO .aS1(38) STORE 0x57489862 TO .aS1(39) STORE 0x63e81440 TO .aS1(40) STORE 0x55ca396a TO .aS1(41) STORE 0x2aab10b6 TO .aS1(42) STORE 0xb4cc5c34 TO .aS1(43) STORE 0x1141e8ce TO .aS1(44) STORE 0xa15486af TO .aS1(45) STORE 0x7c72e993 TO .aS1(46) STORE 0xb3ee1411 TO .aS1(47) STORE 0x636fbc2a TO .aS1(48) STORE 0x2ba9c55d TO .aS1(49) STORE 0x741831f6 TO .aS1(50) STORE 0xce5c3e16 TO .aS1(51) STORE 0x9b87931e TO .aS1(52) STORE 0xafd6ba33 TO .aS1(53) STORE 0x6c24cf5c TO .aS1(54) STORE 0x7a325381 TO .aS1(55) STORE 0x28958677 TO .aS1(56) STORE 0x3b8f4898 TO .aS1(57) STORE 0x6b4bb9af TO .aS1(58) STORE 0xc4bfe81b TO .aS1(59) STORE 0x66282193 TO .aS1(60) STORE 0x61d809cc TO .aS1(61) STORE 0xfb21a991 TO .aS1(62) STORE 0x487cac60 TO .aS1(63) STORE 0x5dec8032 TO .aS1(64) STORE 0xef845d5d TO .aS1(65) STORE 0xe98575b1 TO .aS1(66) STORE 0xdc262302 TO .aS1(67) STORE 0xeb651b88 TO .aS1(68) STORE 0x23893e81 TO .aS1(69) STORE 0xd396acc5 TO .aS1(70) STORE 0x0f6d6ff3 TO .aS1(71) STORE 0x83f44239 TO .aS1(72) STORE 0x2e0b4482 TO .aS1(73) STORE 0xa4842004 TO .aS1(74) STORE 0x69c8f04a TO .aS1(75) STORE 0x9e1f9b5e TO .aS1(76) STORE 0x21c66842 TO .aS1(77) STORE 0xf6e96c9a TO .aS1(78) STORE 0x670c9c61 TO .aS1(79) STORE 0xabd388f0 TO .aS1(80) STORE 0x6a51a0d2 TO .aS1(81) STORE 0xd8542f68 TO .aS1(82) STORE 0x960fa728 TO .aS1(83) STORE 0xab5133a3 TO .aS1(84) STORE 0x6eef0b6c TO .aS1(85) STORE 0x137a3be4 TO .aS1(86) STORE 0xba3bf050 TO .aS1(87) STORE 0x7efb2a98 TO .aS1(88) STORE 0xa1f1651d TO .aS1(89) STORE 0x39af0176 TO .aS1(90) STORE 0x66ca593e TO .aS1(91) STORE 0x82430e88 TO .aS1(92) STORE 0x8cee8619 TO .aS1(93) STORE 0x456f9fb4 TO .aS1(94) STORE 0x7d84a5c3 TO .aS1(95) STORE 0x3b8b5ebe TO .aS1(96) STORE 0xe06f75d8 TO .aS1(97) STORE 0x85c12073 TO .aS1(98) STORE 0x401a449f TO .aS1(99) STORE 0x56c16aa6 TO .aS1(100) STORE 0x4ed3aa62 TO .aS1(101) STORE 0x363f7706 TO .aS1(102) STORE 0x1bfedf72 TO .aS1(103) STORE 0x429b023d TO .aS1(104) STORE 0x37d0d724 TO .aS1(105) STORE 0xd00a1248 TO .aS1(106) STORE 0xdb0fead3 TO .aS1(107) STORE 0x49f1c09b TO .aS1(108) STORE 0x075372c9 TO .aS1(109) STORE 0x80991b7b TO .aS1(110) STORE 0x25d479d8 TO .aS1(111) STORE 0xf6e8def7 TO .aS1(112) STORE 0xe3fe501a TO .aS1(113) STORE 0xb6794c3b TO .aS1(114) STORE 0x976ce0bd TO .aS1(115) STORE 0x04c006ba TO .aS1(116) STORE 0xc1a94fb6 TO .aS1(117) STORE 0x409f60c4 TO .aS1(118) STORE 0x5e5c9ec2 TO .aS1(119) STORE 0x196a2463 TO .aS1(120) STORE 0x68fb6faf TO .aS1(121) STORE 0x3e6c53b5 TO .aS1(122) STORE 0x1339b2eb TO .aS1(123) STORE 0x3b52ec6f TO .aS1(124) STORE 0x6dfc511f TO .aS1(125) STORE 0x9b30952c TO .aS1(126) STORE 0xcc814544 TO .aS1(127) STORE 0xaf5ebd09 TO .aS1(128) STORE 0xbee3d004 TO .aS1(129) STORE 0xde334afd TO .aS1(130) STORE 0x660f2807 TO .aS1(131) STORE 0x192e4bb3 TO .aS1(132) STORE 0xc0cba857 TO .aS1(133) STORE 0x45c8740f TO .aS1(134) STORE 0xd20b5f39 TO .aS1(135) STORE 0xb9d3fbdb TO .aS1(136) STORE 0x5579c0bd TO .aS1(137) STORE 0x1a60320a TO .aS1(138) STORE 0xd6a100c6 TO .aS1(139) STORE 0x402c7279 TO .aS1(140) STORE 0x679f25fe TO .aS1(141) STORE 0xfb1fa3cc TO .aS1(142) STORE 0x8ea5e9f8 TO .aS1(143) STORE 0xdb3222f8 TO .aS1(144) STORE 0x3c7516df TO .aS1(145) STORE 0xfd616b15 TO .aS1(146) STORE 0x2f501ec8 TO .aS1(147) STORE 0xad0552ab TO .aS1(148) STORE 0x323db5fa TO .aS1(149) STORE 0xfd238760 TO .aS1(150) STORE 0x53317b48 TO .aS1(151) STORE 0x3e00df82 TO .aS1(152) STORE 0x9e5c57bb TO .aS1(153) STORE 0xca6f8ca0 TO .aS1(154) STORE 0x1a87562e TO .aS1(155) STORE 0xdf1769db TO .aS1(156) STORE 0xd542a8f6 TO .aS1(157) STORE 0x287effc3 TO .aS1(158) STORE 0xac6732c6 TO .aS1(159) STORE 0x8c4f5573 TO .aS1(160) STORE 0x695b27b0 TO .aS1(161) STORE 0xbbca58c8 TO .aS1(162) STORE 0xe1ffa35d TO .aS1(163) STORE 0xb8f011a0 TO .aS1(164) STORE 0x10fa3d98 TO .aS1(165) STORE 0xfd2183b8 TO .aS1(166) STORE 0x4afcb56c TO .aS1(167) STORE 0x2dd1d35b TO .aS1(168) STORE 0x9a53e479 TO .aS1(169) STORE 0xb6f84565 TO .aS1(170) STORE 0xd28e49bc TO .aS1(171) STORE 0x4bfb9790 TO .aS1(172) STORE 0xe1ddf2da TO .aS1(173) STORE 0xa4cb7e33 TO .aS1(174) STORE 0x62fb1341 TO .aS1(175) STORE 0xcee4c6e8 TO .aS1(176) STORE 0xef20cada TO .aS1(177) STORE 0x36774c01 TO .aS1(178) STORE 0xd07e9efe TO .aS1(179) STORE 0x2bf11fb4 TO .aS1(180) STORE 0x95dbda4d TO .aS1(181) STORE 0xae909198 TO .aS1(182) STORE 0xeaad8e71 TO .aS1(183) STORE 0x6b93d5a0 TO .aS1(184) STORE 0xd08ed1d0 TO .aS1(185) STORE 0xafc725e0 TO .aS1(186) STORE 0x8e3c5b2f TO .aS1(187) STORE 0x8e7594b7 TO .aS1(188) STORE 0x8ff6e2fb TO .aS1(189) STORE 0xf2122b64 TO .aS1(190) STORE 0x8888b812 TO .aS1(191) STORE 0x900df01c TO .aS1(192) STORE 0x4fad5ea0 TO .aS1(193) STORE 0x688fc31c TO .aS1(194) STORE 0xd1cff191 TO .aS1(195) STORE 0xb3a8c1ad TO .aS1(196) STORE 0x2f2f2218 TO .aS1(197) STORE 0xbe0e1777 TO .aS1(198) STORE 0xea752dfe TO .aS1(199) STORE 0x8b021fa1 TO .aS1(200) STORE 0xe5a0cc0f TO .aS1(201) STORE 0xb56f74e8 TO .aS1(202) STORE 0x18acf3d6 TO .aS1(203) STORE 0xce89e299 TO .aS1(204) STORE 0xb4a84fe0 TO .aS1(205) STORE 0xfd13e0b7 TO .aS1(206) STORE 0x7cc43b81 TO .aS1(207) STORE 0xd2ada8d9 TO .aS1(208) STORE 0x165fa266 TO .aS1(209) STORE 0x80957705 TO .aS1(210) STORE 0x93cc7314 TO .aS1(211) STORE 0x211a1477 TO .aS1(212) STORE 0xe6ad2065 TO .aS1(213) STORE 0x77b5fa86 TO .aS1(214) STORE 0xc75442f5 TO .aS1(215) STORE 0xfb9d35cf TO .aS1(216) STORE 0xebcdaf0c TO .aS1(217) STORE 0x7b3e89a0 TO .aS1(218) STORE 0xd6411bd3 TO .aS1(219) STORE 0xae1e7e49 TO .aS1(220) STORE 0x00250e2d TO .aS1(221) STORE 0x2071b35e TO .aS1(222) STORE 0x226800bb TO .aS1(223) STORE 0x57b8e0af TO .aS1(224) STORE 0x2464369b TO .aS1(225) STORE 0xf009b91e TO .aS1(226) STORE 0x5563911d TO .aS1(227) STORE 0x59dfa6aa TO .aS1(228) STORE 0x78c14389 TO .aS1(229) STORE 0xd95a537f TO .aS1(230) STORE 0x207d5ba2 TO .aS1(231) STORE 0x02e5b9c5 TO .aS1(232) STORE 0x83260376 TO .aS1(233) STORE 0x6295cfa9 TO .aS1(234) STORE 0x11c81968 TO .aS1(235) STORE 0x4e734a41 TO .aS1(236) STORE 0xb3472dca TO .aS1(237) STORE 0x7b14a94a TO .aS1(238) STORE 0x1b510052 TO .aS1(239) STORE 0x9a532915 TO .aS1(240) STORE 0xd60f573f TO .aS1(241) STORE 0xbc9bc6e4 TO .aS1(242) STORE 0x2b60a476 TO .aS1(243) STORE 0x81e67400 TO .aS1(244) STORE 0x08ba6fb5 TO .aS1(245) STORE 0x571be91f TO .aS1(246) STORE 0xf296ec6b TO .aS1(247) STORE 0x2a0dd915 TO .aS1(248) STORE 0xb6636521 TO .aS1(249) STORE 0xe7b9f9b6 TO .aS1(250) STORE 0xff34052e TO .aS1(251) STORE 0xc5855664 TO .aS1(252) STORE 0x53b02d5d TO .aS1(253) STORE 0xa99f8fa1 TO .aS1(254) STORE 0x08ba4799 TO .aS1(255) STORE 0x6e85076a TO .aS1(256) *---- STORE 0x4b7a70e9 TO .aS2(1) STORE 0xb5b32944 TO .aS2(2) STORE 0xdb75092e TO .aS2(3) STORE 0xc4192623 TO .aS2(4) STORE 0xad6ea6b0 TO .aS2(5) STORE 0x49a7df7d TO .aS2(6) STORE 0x9cee60b8 TO .aS2(7) STORE 0x8fedb266 TO .aS2(8) STORE 0xecaa8c71 TO .aS2(9) STORE 0x699a17ff TO .aS2(10) STORE 0x5664526c TO .aS2(11) STORE 0xc2b19ee1 TO .aS2(12) STORE 0x193602a5 TO .aS2(13) STORE 0x75094c29 TO .aS2(14) STORE 0xa0591340 TO .aS2(15) STORE 0xe4183a3e TO .aS2(16) STORE 0x3f54989a TO .aS2(17) STORE 0x5b429d65 TO .aS2(18) STORE 0x6b8fe4d6 TO .aS2(19) STORE 0x99f73fd6 TO .aS2(20) STORE 0xa1d29c07 TO .aS2(21) STORE 0xefe830f5 TO .aS2(22) STORE 0x4d2d38e6 TO .aS2(23) STORE 0xf0255dc1 TO .aS2(24) STORE 0x4cdd2086 TO .aS2(25) STORE 0x8470eb26 TO .aS2(26) STORE 0x6382e9c6 TO .aS2(27) STORE 0x021ecc5e TO .aS2(28) STORE 0x09686b3f TO .aS2(29) STORE 0x3ebaefc9 TO .aS2(30) STORE 0x3c971814 TO .aS2(31) STORE 0x6b6a70a1 TO .aS2(32) STORE 0x687f3584 TO .aS2(33) STORE 0x52a0e286 TO .aS2(34) STORE 0xb79c5305 TO .aS2(35) STORE 0xaa500737 TO .aS2(36) STORE 0x3e07841c TO .aS2(37) STORE 0x7fdeae5c TO .aS2(38) STORE 0x8e7d44ec TO .aS2(39) STORE 0x5716f2b8 TO .aS2(40) STORE 0xb03ada37 TO .aS2(41) STORE 0xf0500c0d TO .aS2(42) STORE 0xf01c1f04 TO .aS2(43) STORE 0x0200b3ff TO .aS2(44) STORE 0xae0cf51a TO .aS2(45) STORE 0x3cb574b2 TO .aS2(46) STORE 0x25837a58 TO .aS2(47) STORE 0xdc0921bd TO .aS2(48) STORE 0xd19113f9 TO .aS2(49) STORE 0x7ca92ff6 TO .aS2(50) STORE 0x94324773 TO .aS2(51) STORE 0x22f54701 TO .aS2(52) STORE 0x3ae5e581 TO .aS2(53) STORE 0x37c2dadc TO .aS2(54) STORE 0xc8b57634 TO .aS2(55) STORE 0x9af3dda7 TO .aS2(56) STORE 0xa9446146 TO .aS2(57) STORE 0x0fd0030e TO .aS2(58) STORE 0xecc8c73e TO .aS2(59) STORE 0xa4751e41 TO .aS2(60) STORE 0xe238cd99 TO .aS2(61) STORE 0x3bea0e2f TO .aS2(62) STORE 0x3280bba1 TO .aS2(63) STORE 0x183eb331 TO .aS2(64) STORE 0x4e548b38 TO .aS2(65) STORE 0x4f6db908 TO .aS2(66) STORE 0x6f420d03 TO .aS2(67) STORE 0xf60a04bf TO .aS2(68) STORE 0x2cb81290 TO .aS2(69) STORE 0x24977c79 TO .aS2(70) STORE 0x5679b072 TO .aS2(71) STORE 0xbcaf89af TO .aS2(72) STORE 0xde9a771f TO .aS2(73) STORE 0xd9930810 TO .aS2(74) STORE 0xb38bae12 TO .aS2(75) STORE 0xdccf3f2e TO .aS2(76) STORE 0x5512721f TO .aS2(77) STORE 0x2e6b7124 TO .aS2(78) STORE 0x501adde6 TO .aS2(79) STORE 0x9f84cd87 TO .aS2(80) STORE 0x7a584718 TO .aS2(81) STORE 0x7408da17 TO .aS2(82) STORE 0xbc9f9abc TO .aS2(83) STORE 0xe94b7d8c TO .aS2(84) STORE 0xec7aec3a TO .aS2(85) STORE 0xdb851dfa TO .aS2(86) STORE 0x63094366 TO .aS2(87) STORE 0xc464c3d2 TO .aS2(88) STORE 0xef1c1847 TO .aS2(89) STORE 0x3215d908 TO .aS2(90) STORE 0xdd433b37 TO .aS2(91) STORE 0x24c2ba16 TO .aS2(92) STORE 0x12a14d43 TO .aS2(93) STORE 0x2a65c451 TO .aS2(94) STORE 0x50940002 TO .aS2(95) STORE 0x133ae4dd TO .aS2(96) STORE 0x71dff89e TO .aS2(97) STORE 0x10314e55 TO .aS2(98) STORE 0x81ac77d6 TO .aS2(99) STORE 0x5f11199b TO .aS2(100) STORE 0x043556f1 TO .aS2(101) STORE 0xd7a3c76b TO .aS2(102) STORE 0x3c11183b TO .aS2(103) STORE 0x5924a509 TO .aS2(104) STORE 0xf28fe6ed TO .aS2(105) STORE 0x97f1fbfa TO .aS2(106) STORE 0x9ebabf2c TO .aS2(107) STORE 0x1e153c6e TO .aS2(108) STORE 0x86e34570 TO .aS2(109) STORE 0xeae96fb1 TO .aS2(110) STORE 0x860e5e0a TO .aS2(111) STORE 0x5a3e2ab3 TO .aS2(112) STORE 0x771fe71c TO .aS2(113) STORE 0x4e3d06fa TO .aS2(114) STORE 0x2965dcb9 TO .aS2(115) STORE 0x99e71d0f TO .aS2(116) STORE 0x803e89d6 TO .aS2(117) STORE 0x5266c825 TO .aS2(118) STORE 0x2e4cc978 TO .aS2(119) STORE 0x9c10b36a TO .aS2(120) STORE 0xc6150eba TO .aS2(121) STORE 0x94e2ea78 TO .aS2(122) STORE 0xa5fc3c53 TO .aS2(123) STORE 0x1e0a2df4 TO .aS2(124) STORE 0xf2f74ea7 TO .aS2(125) STORE 0x361d2b3d TO .aS2(126) STORE 0x1939260f TO .aS2(127) STORE 0x19c27960 TO .aS2(128) STORE 0x5223a708 TO .aS2(129) STORE 0xf71312b6 TO .aS2(130) STORE 0xebadfe6e TO .aS2(131) STORE 0xeac31f66 TO .aS2(132) STORE 0xe3bc4595 TO .aS2(133) STORE 0xa67bc883 TO .aS2(134) STORE 0xb17f37d1 TO .aS2(135) STORE 0x018cff28 TO .aS2(136) STORE 0xc332ddef TO .aS2(137) STORE 0xbe6c5aa5 TO .aS2(138) STORE 0x65582185 TO .aS2(139) STORE 0x68ab9802 TO .aS2(140) STORE 0xeecea50f TO .aS2(141) STORE 0xdb2f953b TO .aS2(142) STORE 0x2aef7dad TO .aS2(143) STORE 0x5b6e2f84 TO .aS2(144) STORE 0x1521b628 TO .aS2(145) STORE 0x29076170 TO .aS2(146) STORE 0xecdd4775 TO .aS2(147) STORE 0x619f1510 TO .aS2(148) STORE 0x13cca830 TO .aS2(149) STORE 0xeb61bd96 TO .aS2(150) STORE 0x0334fe1e TO .aS2(151) STORE 0xaa0363cf TO .aS2(152) STORE 0xb5735c90 TO .aS2(153) STORE 0x4c70a239 TO .aS2(154) STORE 0xd59e9e0b TO .aS2(155) STORE 0xcbaade14 TO .aS2(156) STORE 0xeecc86bc TO .aS2(157) STORE 0x60622ca7 TO .aS2(158) STORE 0x9cab5cab TO .aS2(159) STORE 0xb2f3846e TO .aS2(160) STORE 0x648b1eaf TO .aS2(161) STORE 0x19bdf0ca TO .aS2(162) STORE 0xa02369b9 TO .aS2(163) STORE 0x655abb50 TO .aS2(164) STORE 0x40685a32 TO .aS2(165) STORE 0x3c2ab4b3 TO .aS2(166) STORE 0x319ee9d5 TO .aS2(167) STORE 0xc021b8f7 TO .aS2(168) STORE 0x9b540b19 TO .aS2(169) STORE 0x875fa099 TO .aS2(170) STORE 0x95f7997e TO .aS2(171) STORE 0x623d7da8 TO .aS2(172) STORE 0xf837889a TO .aS2(173) STORE 0x97e32d77 TO .aS2(174) STORE 0x11ed935f TO .aS2(175) STORE 0x16681281 TO .aS2(176) STORE 0x0e358829 TO .aS2(177) STORE 0xc7e61fd6 TO .aS2(178) STORE 0x96dedfa1 TO .aS2(179) STORE 0x7858ba99 TO .aS2(180) STORE 0x57f584a5 TO .aS2(181) STORE 0x1b227263 TO .aS2(182) STORE 0x9b83c3ff TO .aS2(183) STORE 0x1ac24696 TO .aS2(184) STORE 0xcdb30aeb TO .aS2(185) STORE 0x532e3054 TO .aS2(186) STORE 0x8fd948e4 TO .aS2(187) STORE 0x6dbc3128 TO .aS2(188) STORE 0x58ebf2ef TO .aS2(189) STORE 0x34c6ffea TO .aS2(190) STORE 0xfe28ed61 TO .aS2(191) STORE 0xee7c3c73 TO .aS2(192) STORE 0x5d4a14d9 TO .aS2(193) STORE 0xe864b7e3 TO .aS2(194) STORE 0x42105d14 TO .aS2(195) STORE 0x203e13e0 TO .aS2(196) STORE 0x45eee2b6 TO .aS2(197) STORE 0xa3aaabea TO .aS2(198) STORE 0xdb6c4f15 TO .aS2(199) STORE 0xfacb4fd0 TO .aS2(200) STORE 0xc742f442 TO .aS2(201) STORE 0xef6abbb5 TO .aS2(202) STORE 0x654f3b1d TO .aS2(203) STORE 0x41cd2105 TO .aS2(204) STORE 0xd81e799e TO .aS2(205) STORE 0x86854dc7 TO .aS2(206) STORE 0xe44b476a TO .aS2(207) STORE 0x3d816250 TO .aS2(208) STORE 0xcf62a1f2 TO .aS2(209) STORE 0x5b8d2646 TO .aS2(210) STORE 0xfc8883a0 TO .aS2(211) STORE 0xc1c7b6a3 TO .aS2(212) STORE 0x7f1524c3 TO .aS2(213) STORE 0x69cb7492 TO .aS2(214) STORE 0x47848a0b TO .aS2(215) STORE 0x5692b285 TO .aS2(216) STORE 0x095bbf00 TO .aS2(217) STORE 0xad19489d TO .aS2(218) STORE 0x1462b174 TO .aS2(219) STORE 0x23820e00 TO .aS2(220) STORE 0x58428d2a TO .aS2(221) STORE 0x0c55f5ea TO .aS2(222) STORE 0x1dadf43e TO .aS2(223) STORE 0x233f7061 TO .aS2(224) STORE 0x3372f092 TO .aS2(225) STORE 0x8d937e41 TO .aS2(226) STORE 0xd65fecf1 TO .aS2(227) STORE 0x6c223bdb TO .aS2(228) STORE 0x7cde3759 TO .aS2(229) STORE 0xcbee7460 TO .aS2(230) STORE 0x4085f2a7 TO .aS2(231) STORE 0xce77326e TO .aS2(232) STORE 0xa6078084 TO .aS2(233) STORE 0x19f8509e TO .aS2(234) STORE 0xe8efd855 TO .aS2(235) STORE 0x61d99735 TO .aS2(236) STORE 0xa969a7aa TO .aS2(237) STORE 0xc50c06c2 TO .aS2(238) STORE 0x5a04abfc TO .aS2(239) STORE 0x800bcadc TO .aS2(240) STORE 0x9e447a2e TO .aS2(241) STORE 0xc3453484 TO .aS2(242) STORE 0xfdd56705 TO .aS2(243) STORE 0x0e1e9ec9 TO .aS2(244) STORE 0xdb73dbd3 TO .aS2(245) STORE 0x105588cd TO .aS2(246) STORE 0x675fda79 TO .aS2(247) STORE 0xe3674340 TO .aS2(248) STORE 0xc5c43465 TO .aS2(249) STORE 0x713e38d8 TO .aS2(250) STORE 0x3d28f89e TO .aS2(251) STORE 0xf16dff20 TO .aS2(252) STORE 0x153e21e7 TO .aS2(253) STORE 0x8fb03d4a TO .aS2(254) STORE 0xe6e39f2b TO .aS2(255) STORE 0xdb83adf7 TO .aS2(256) *--- STORE 0xe93d5a68 TO .aS3(1) STORE 0x948140f7 TO .aS3(2) STORE 0xf64c261c TO .aS3(3) STORE 0x94692934 TO .aS3(4) STORE 0x411520f7 TO .aS3(5) STORE 0x7602d4f7 TO .aS3(6) STORE 0xbcf46b2e TO .aS3(7) STORE 0xd4a20068 TO .aS3(8) STORE 0xd4082471 TO .aS3(9) STORE 0x3320f46a TO .aS3(10) STORE 0x43b7d4b7 TO .aS3(11) STORE 0x500061af TO .aS3(12) STORE 0x1e39f62e TO .aS3(13) STORE 0x97244546 TO .aS3(14) STORE 0x14214f74 TO .aS3(15) STORE 0xbf8b8840 TO .aS3(16) STORE 0x4d95fc1d TO .aS3(17) STORE 0x96b591af TO .aS3(18) STORE 0x70f4ddd3 TO .aS3(19) STORE 0x66a02f45 TO .aS3(20) STORE 0xbfbc09ec TO .aS3(21) STORE 0x03bd9785 TO .aS3(22) STORE 0x7fac6dd0 TO .aS3(23) STORE 0x31cb8504 TO .aS3(24) STORE 0x96eb27b3 TO .aS3(25) STORE 0x55fd3941 TO .aS3(26) STORE 0xda2547e6 TO .aS3(27) STORE 0xabca0a9a TO .aS3(28) STORE 0x28507825 TO .aS3(29) STORE 0x530429f4 TO .aS3(30) STORE 0x0a2c86da TO .aS3(31) STORE 0xe9b66dfb TO .aS3(32) STORE 0x68dc1462 TO .aS3(33) STORE 0xd7486900 TO .aS3(34) STORE 0x680ec0a4 TO .aS3(35) STORE 0x27a18dee TO .aS3(36) STORE 0x4f3ffea2 TO .aS3(37) STORE 0xe887ad8c TO .aS3(38) STORE 0xb58ce006 TO .aS3(39) STORE 0x7af4d6b6 TO .aS3(40) STORE 0xaace1e7c TO .aS3(41) STORE 0xd3375fec TO .aS3(42) STORE 0xce78a399 TO .aS3(43) STORE 0x406b2a42 TO .aS3(44) STORE 0x20fe9e35 TO .aS3(45) STORE 0xd9f385b9 TO .aS3(46) STORE 0xee39d7ab TO .aS3(47) STORE 0x3b124e8b TO .aS3(48) STORE 0x1dc9faf7 TO .aS3(49) STORE 0x4b6d1856 TO .aS3(50) STORE 0x26a36631 TO .aS3(51) STORE 0xeae397b2 TO .aS3(52) STORE 0x3a6efa74 TO .aS3(53) STORE 0xdd5b4332 TO .aS3(54) STORE 0x6841e7f7 TO .aS3(55) STORE 0xca7820fb TO .aS3(56) STORE 0xfb0af54e TO .aS3(57) STORE 0xd8feb397 TO .aS3(58) STORE 0x454056ac TO .aS3(59) STORE 0xba489527 TO .aS3(60) STORE 0x55533a3a TO .aS3(61) STORE 0x20838d87 TO .aS3(62) STORE 0xfe6ba9b7 TO .aS3(63) STORE 0xd096954b TO .aS3(64) STORE 0x55a867bc TO .aS3(65) STORE 0xa1159a58 TO .aS3(66) STORE 0xcca92963 TO .aS3(67) STORE 0x99e1db33 TO .aS3(68) STORE 0xa62a4a56 TO .aS3(69) STORE 0x3f3125f9 TO .aS3(70) STORE 0x5ef47e1c TO .aS3(71) STORE 0x9029317c TO .aS3(72) STORE 0xfdf8e802 TO .aS3(73) STORE 0x04272f70 TO .aS3(74) STORE 0x80bb155c TO .aS3(75) STORE 0x05282ce3 TO .aS3(76) STORE 0x95c11548 TO .aS3(77) STORE 0xe4c66d22 TO .aS3(78) STORE 0x48c1133f TO .aS3(79) STORE 0xc70f86dc TO .aS3(80) STORE 0x07f9c9ee TO .aS3(81) STORE 0x41041f0f TO .aS3(82) STORE 0x404779a4 TO .aS3(83) STORE 0x5d886e17 TO .aS3(84) STORE 0x325f51eb TO .aS3(85) STORE 0xd59bc0d1 TO .aS3(86) STORE 0xf2bcc18f TO .aS3(87) STORE 0x41113564 TO .aS3(88) STORE 0x257b7834 TO .aS3(89) STORE 0x602a9c60 TO .aS3(90) STORE 0xdff8e8a3 TO .aS3(91) STORE 0x1f636c1b TO .aS3(92) STORE 0x0e12b4c2 TO .aS3(93) STORE 0x02e1329e TO .aS3(94) STORE 0xaf664fd1 TO .aS3(95) STORE 0xcad18115 TO .aS3(96) STORE 0x6b2395e0 TO .aS3(97) STORE 0x333e92e1 TO .aS3(98) STORE 0x3b240b62 TO .aS3(99) STORE 0xeebeb922 TO .aS3(100) STORE 0x85b2a20e TO .aS3(101) STORE 0xe6ba0d99 TO .aS3(102) STORE 0xde720c8c TO .aS3(103) STORE 0x2da2f728 TO .aS3(104) STORE 0xd0127845 TO .aS3(105) STORE 0x95b794fd TO .aS3(106) STORE 0x647d0862 TO .aS3(107) STORE 0xe7ccf5f0 TO .aS3(108) STORE 0x5449a36f TO .aS3(109) STORE 0x877d48fa TO .aS3(110) STORE 0xc39dfd27 TO .aS3(111) STORE 0xf33e8d1e TO .aS3(112) STORE 0x0a476341 TO .aS3(113) STORE 0x992eff74 TO .aS3(114) STORE 0x3a6f6eab TO .aS3(115) STORE 0xf4f8fd37 TO .aS3(116) STORE 0xa812dc60 TO .aS3(117) STORE 0xa1ebddf8 TO .aS3(118) STORE 0x991be14c TO .aS3(119) STORE 0xdb6e6b0d TO .aS3(120) STORE 0xc67b5510 TO .aS3(121) STORE 0x6d672c37 TO .aS3(122) STORE 0x2765d43b TO .aS3(123) STORE 0xdcd0e804 TO .aS3(124) STORE 0xf1290dc7 TO .aS3(125) STORE 0xcc00ffa3 TO .aS3(126) STORE 0xb5390f92 TO .aS3(127) STORE 0x690fed0b TO .aS3(128) STORE 0x667b9ffb TO .aS3(129) STORE 0xcedb7d9c TO .aS3(130) STORE 0xa091cf0b TO .aS3(131) STORE 0xd9155ea3 TO .aS3(132) STORE 0xbb132f88 TO .aS3(133) STORE 0x515bad24 TO .aS3(134) STORE 0x7b9479bf TO .aS3(135) STORE 0x763bd6eb TO .aS3(136) STORE 0x37392eb3 TO .aS3(137) STORE 0xcc115979 TO .aS3(138) STORE 0x8026e297 TO .aS3(139) STORE 0xf42e312d TO .aS3(140) STORE 0x6842ada7 TO .aS3(141) STORE 0xc66a2b3b TO .aS3(142) STORE 0x12754ccc TO .aS3(143) STORE 0x782ef11c TO .aS3(144) STORE 0x6a124237 TO .aS3(145) STORE 0xb79251e7 TO .aS3(146) STORE 0x06a1bbe6 TO .aS3(147) STORE 0x4bfb6350 TO .aS3(148) STORE 0x1a6b1018 TO .aS3(149) STORE 0x11caedfa TO .aS3(150) STORE 0x3d25bdd8 TO .aS3(151) STORE 0xe2e1c3c9 TO .aS3(152) STORE 0x44421659 TO .aS3(153) STORE 0x0a121386 TO .aS3(154) STORE 0xd90cec6e TO .aS3(155) STORE 0xd5abea2a TO .aS3(156) STORE 0x64af674e TO .aS3(157) STORE 0xda86a85f TO .aS3(158) STORE 0xbebfe988 TO .aS3(159) STORE 0x64e4c3fe TO .aS3(160) STORE 0x9dbc8057 TO .aS3(161) STORE 0xf0f7c086 TO .aS3(162) STORE 0x60787bf8 TO .aS3(163) STORE 0x6003604d TO .aS3(164) STORE 0xd1fd8346 TO .aS3(165) STORE 0xf6381fb0 TO .aS3(166) STORE 0x7745ae04 TO .aS3(167) STORE 0xd736fccc TO .aS3(168) STORE 0x83426b33 TO .aS3(169) STORE 0xf01eab71 TO .aS3(170) STORE 0xb0804187 TO .aS3(171) STORE 0x3c005e5f TO .aS3(172) STORE 0x77a057be TO .aS3(173) STORE 0xbde8ae24 TO .aS3(174) STORE 0x55464299 TO .aS3(175) STORE 0xbf582e61 TO .aS3(176) STORE 0x4e58f48f TO .aS3(177) STORE 0xf2ddfda2 TO .aS3(178) STORE 0xf474ef38 TO .aS3(179) STORE 0x8789bdc2 TO .aS3(180) STORE 0x5366f9c3 TO .aS3(181) STORE 0xc8b38e74 TO .aS3(182) STORE 0xb475f255 TO .aS3(183) STORE 0x46fcd9b9 TO .aS3(184) STORE 0x7aeb2661 TO .aS3(185) STORE 0x8b1ddf84 TO .aS3(186) STORE 0x846a0e79 TO .aS3(187) STORE 0x915f95e2 TO .aS3(188) STORE 0x466e598e TO .aS3(189) STORE 0x20b45770 TO .aS3(190) STORE 0x8cd55591 TO .aS3(191) STORE 0xc902de4c TO .aS3(192) STORE 0xb90bace1 TO .aS3(193) STORE 0xbb8205d0 TO .aS3(194) STORE 0x11a86248 TO .aS3(195) STORE 0x7574a99e TO .aS3(196) STORE 0xb77f19b6 TO .aS3(197) STORE 0xe0a9dc09 TO .aS3(198) STORE 0x662d09a1 TO .aS3(199) STORE 0xc4324633 TO .aS3(200) STORE 0xe85a1f02 TO .aS3(201) STORE 0x09f0be8c TO .aS3(202) STORE 0x4a99a025 TO .aS3(203) STORE 0x1d6efe10 TO .aS3(204) STORE 0x1ab93d1d TO .aS3(205) STORE 0x0ba5a4df TO .aS3(206) STORE 0xa186f20f TO .aS3(207) STORE 0x2868f169 TO .aS3(208) STORE 0xdcb7da83 TO .aS3(209) STORE 0x573906fe TO .aS3(210) STORE 0xa1e2ce9b TO .aS3(211) STORE 0x4fcd7f52 TO .aS3(212) STORE 0x50115e01 TO .aS3(213) STORE 0xa70683fa TO .aS3(214) STORE 0xa002b5c4 TO .aS3(215) STORE 0x0de6d027 TO .aS3(216) STORE 0x9af88c27 TO .aS3(217) STORE 0x773f8641 TO .aS3(218) STORE 0xc3604c06 TO .aS3(219) STORE 0x61a806b5 TO .aS3(220) STORE 0xf0177a28 TO .aS3(221) STORE 0xc0f586e0 TO .aS3(222) STORE 0x006058aa TO .aS3(223) STORE 0x30dc7d62 TO .aS3(224) STORE 0x11e69ed7 TO .aS3(225) STORE 0x2338ea63 TO .aS3(226) STORE 0x53c2dd94 TO .aS3(227) STORE 0xc2c21634 TO .aS3(228) STORE 0xbbcbee56 TO .aS3(229) STORE 0x90bcb6de TO .aS3(230) STORE 0xebfc7da1 TO .aS3(231) STORE 0xce591d76 TO .aS3(232) STORE 0x6f05e409 TO .aS3(233) STORE 0x4b7c0188 TO .aS3(234) STORE 0x39720a3d TO .aS3(235) STORE 0x7c927c24 TO .aS3(236) STORE 0x86e3725f TO .aS3(237) STORE 0x724d9db9 TO .aS3(238) STORE 0x1ac15bb4 TO .aS3(239) STORE 0xd39eb8fc TO .aS3(240) STORE 0xed545578 TO .aS3(241) STORE 0x08fca5b5 TO .aS3(242) STORE 0xd83d7cd3 TO .aS3(243) STORE 0x4dad0fc4 TO .aS3(244) STORE 0x1e50ef5e TO .aS3(245) STORE 0xb161e6f8 TO .aS3(246) STORE 0xa28514d9 TO .aS3(247) STORE 0x6c51133c TO .aS3(248) STORE 0x6fd5c7e7 TO .aS3(249) STORE 0x56e14ec4 TO .aS3(250) STORE 0x362abfce TO .aS3(251) STORE 0xddc6c837 TO .aS3(252) STORE 0xd79a3234 TO .aS3(253) STORE 0x92638212 TO .aS3(254) STORE 0x670efa8e TO .aS3(255) STORE 0x406000e0 TO .aS3(256) *---- STORE 0x3a39ce37 TO .aS4(1) STORE 0xd3faf5cf TO .aS4(2) STORE 0xabc27737 TO .aS4(3) STORE 0x5ac52d1b TO .aS4(4) STORE 0x5cb0679e TO .aS4(5) STORE 0x4fa33742 TO .aS4(6) STORE 0xd3822740 TO .aS4(7) STORE 0x99bc9bbe TO .aS4(8) STORE 0xd5118e9d TO .aS4(9) STORE 0xbf0f7315 TO .aS4(10) STORE 0xd62d1c7e TO .aS4(11) STORE 0xc700c47b TO .aS4(12) STORE 0xb78c1b6b TO .aS4(13) STORE 0x21a19045 TO .aS4(14) STORE 0xb26eb1be TO .aS4(15) STORE 0x6a366eb4 TO .aS4(16) STORE 0x5748ab2f TO .aS4(17) STORE 0xbc946e79 TO .aS4(18) STORE 0xc6a376d2 TO .aS4(19) STORE 0x6549c2c8 TO .aS4(20) STORE 0x530ff8ee TO .aS4(21) STORE 0x468dde7d TO .aS4(22) STORE 0xd5730a1d TO .aS4(23) STORE 0x4cd04dc6 TO .aS4(24) STORE 0x2939bbdb TO .aS4(25) STORE 0xa9ba4650 TO .aS4(26) STORE 0xac9526e8 TO .aS4(27) STORE 0xbe5ee304 TO .aS4(28) STORE 0xa1fad5f0 TO .aS4(29) STORE 0x6a2d519a TO .aS4(30) STORE 0x63ef8ce2 TO .aS4(31) STORE 0x9a86ee22 TO .aS4(32) STORE 0xc089c2b8 TO .aS4(33) STORE 0x43242ef6 TO .aS4(34) STORE 0xa51e03aa TO .aS4(35) STORE 0x9cf2d0a4 TO .aS4(36) STORE 0x83c061ba TO .aS4(37) STORE 0x9be96a4d TO .aS4(38) STORE 0x8fe51550 TO .aS4(39) STORE 0xba645bd6 TO .aS4(40) STORE 0x2826a2f9 TO .aS4(41) STORE 0xa73a3ae1 TO .aS4(42) STORE 0x4ba99586 TO .aS4(43) STORE 0xef5562e9 TO .aS4(44) STORE 0xc72fefd3 TO .aS4(45) STORE 0xf752f7da TO .aS4(46) STORE 0x3f046f69 TO .aS4(47) STORE 0x77fa0a59 TO .aS4(48) STORE 0x80e4a915 TO .aS4(49) STORE 0x87b08601 TO .aS4(50) STORE 0x9b09e6ad TO .aS4(51) STORE 0x3b3ee593 TO .aS4(52) STORE 0xe990fd5a TO .aS4(53) STORE 0x9e34d797 TO .aS4(54) STORE 0x2cf0b7d9 TO .aS4(55) STORE 0x022b8b51 TO .aS4(56) STORE 0x96d5ac3a TO .aS4(57) STORE 0x017da67d TO .aS4(58) STORE 0xd1cf3ed6 TO .aS4(59) STORE 0x7c7d2d28 TO .aS4(60) STORE 0x1f9f25cf TO .aS4(61) STORE 0xadf2b89b TO .aS4(62) STORE 0x5ad6b472 TO .aS4(63) STORE 0x5a88f54c TO .aS4(64) STORE 0xe029ac71 TO .aS4(65) STORE 0xe019a5e6 TO .aS4(66) STORE 0x47b0acfd TO .aS4(67) STORE 0xed93fa9b TO .aS4(68) STORE 0xe8d3c48d TO .aS4(69) STORE 0x283b57cc TO .aS4(70) STORE 0xf8d56629 TO .aS4(71) STORE 0x79132e28 TO .aS4(72) STORE 0x785f0191 TO .aS4(73) STORE 0xed756055 TO .aS4(74) STORE 0xf7960e44 TO .aS4(75) STORE 0xe3d35e8c TO .aS4(76) STORE 0x15056dd4 TO .aS4(77) STORE 0x88f46dba TO .aS4(78) STORE 0x03a16125 TO .aS4(79) STORE 0x0564f0bd TO .aS4(80) STORE 0xc3eb9e15 TO .aS4(81) STORE 0x3c9057a2 TO .aS4(82) STORE 0x97271aec TO .aS4(83) STORE 0xa93a072a TO .aS4(84) STORE 0x1b3f6d9b TO .aS4(85) STORE 0x1e6321f5 TO .aS4(86) STORE 0xf59c66fb TO .aS4(87) STORE 0x26dcf319 TO .aS4(88) STORE 0x7533d928 TO .aS4(89) STORE 0xb155fdf5 TO .aS4(90) STORE 0x03563482 TO .aS4(91) STORE 0x8aba3cbb TO .aS4(92) STORE 0x28517711 TO .aS4(93) STORE 0xc20ad9f8 TO .aS4(94) STORE 0xabcc5167 TO .aS4(95) STORE 0xccad925f TO .aS4(96) STORE 0x4de81751 TO .aS4(97) STORE 0x3830dc8e TO .aS4(98) STORE 0x379d5862 TO .aS4(99) STORE 0x9320f991 TO .aS4(100) STORE 0xea7a90c2 TO .aS4(101) STORE 0xfb3e7bce TO .aS4(102) STORE 0x5121ce64 TO .aS4(103) STORE 0x774fbe32 TO .aS4(104) STORE 0xa8b6e37e TO .aS4(105) STORE 0xc3293d46 TO .aS4(106) STORE 0x48de5369 TO .aS4(107) STORE 0x6413e680 TO .aS4(108) STORE 0xa2ae0810 TO .aS4(109) STORE 0xdd6db224 TO .aS4(110) STORE 0x69852dfd TO .aS4(111) STORE 0x09072166 TO .aS4(112) STORE 0xb39a460a TO .aS4(113) STORE 0x6445c0dd TO .aS4(114) STORE 0x586cdecf TO .aS4(115) STORE 0x1c20c8ae TO .aS4(116) STORE 0x5bbef7dd TO .aS4(117) STORE 0x1b588d40 TO .aS4(118) STORE 0xccd2017f TO .aS4(119) STORE 0x6bb4e3bb TO .aS4(120) STORE 0xdda26a7e TO .aS4(121) STORE 0x3a59ff45 TO .aS4(122) STORE 0x3e350a44 TO .aS4(123) STORE 0xbcb4cdd5 TO .aS4(124) STORE 0x72eacea8 TO .aS4(125) STORE 0xfa6484bb TO .aS4(126) STORE 0x8d6612ae TO .aS4(127) STORE 0xbf3c6f47 TO .aS4(128) STORE 0xd29be463 TO .aS4(129) STORE 0x542f5d9e TO .aS4(130) STORE 0xaec2771b TO .aS4(131) STORE 0xf64e6370 TO .aS4(132) STORE 0x740e0d8d TO .aS4(133) STORE 0xe75b1357 TO .aS4(134) STORE 0xf8721671 TO .aS4(135) STORE 0xaf537d5d TO .aS4(136) STORE 0x4040cb08 TO .aS4(137) STORE 0x4eb4e2cc TO .aS4(138) STORE 0x34d2466a TO .aS4(139) STORE 0x0115af84 TO .aS4(140) STORE 0xe1b00428 TO .aS4(141) STORE 0x95983a1d TO .aS4(142) STORE 0x06b89fb4 TO .aS4(143) STORE 0xce6ea048 TO .aS4(144) STORE 0x6f3f3b82 TO .aS4(145) STORE 0x3520ab82 TO .aS4(146) STORE 0x011a1d4b TO .aS4(147) STORE 0x277227f8 TO .aS4(148) STORE 0x611560b1 TO .aS4(149) STORE 0xe7933fdc TO .aS4(150) STORE 0xbb3a792b TO .aS4(151) STORE 0x344525bd TO .aS4(152) STORE 0xa08839e1 TO .aS4(153) STORE 0x51ce794b TO .aS4(154) STORE 0x2f32c9b7 TO .aS4(155) STORE 0xa01fbac9 TO .aS4(156) STORE 0xe01cc87e TO .aS4(157) STORE 0xbcc7d1f6 TO .aS4(158) STORE 0xcf0111c3 TO .aS4(159) STORE 0xa1e8aac7 TO .aS4(160) STORE 0x1a908749 TO .aS4(161) STORE 0xd44fbd9a TO .aS4(162) STORE 0xd0dadecb TO .aS4(163) STORE 0xd50ada38 TO .aS4(164) STORE 0x0339c32a TO .aS4(165) STORE 0xc6913667 TO .aS4(166) STORE 0x8df9317c TO .aS4(167) STORE 0xe0b12b4f TO .aS4(168) STORE 0xf79e59b7 TO .aS4(169) STORE 0x43f5bb3a TO .aS4(170) STORE 0xf2d519ff TO .aS4(171) STORE 0x27d9459c TO .aS4(172) STORE 0xbf97222c TO .aS4(173) STORE 0x15e6fc2a TO .aS4(174) STORE 0x0f91fc71 TO .aS4(175) STORE 0x9b941525 TO .aS4(176) STORE 0xfae59361 TO .aS4(177) STORE 0xceb69ceb TO .aS4(178) STORE 0xc2a86459 TO .aS4(179) STORE 0x12baa8d1 TO .aS4(180) STORE 0xb6c1075e TO .aS4(181) STORE 0xe3056a0c TO .aS4(182) STORE 0x10d25065 TO .aS4(183) STORE 0xcb03a442 TO .aS4(184) STORE 0xe0ec6e0e TO .aS4(185) STORE 0x1698db3b TO .aS4(186) STORE 0x4c98a0be TO .aS4(187) STORE 0x3278e964 TO .aS4(188) STORE 0x9f1f9532 TO .aS4(189) STORE 0xe0d392df TO .aS4(190) STORE 0xd3a0342b TO .aS4(191) STORE 0x8971f21e TO .aS4(192) STORE 0x1b0a7441 TO .aS4(193) STORE 0x4ba3348c TO .aS4(194) STORE 0xc5be7120 TO .aS4(195) STORE 0xc37632d8 TO .aS4(196) STORE 0xdf359f8d TO .aS4(197) STORE 0x9b992f2e TO .aS4(198) STORE 0xe60b6f47 TO .aS4(199) STORE 0x0fe3f11d TO .aS4(200) STORE 0xe54cda54 TO .aS4(201) STORE 0x1edad891 TO .aS4(202) STORE 0xce6279cf TO .aS4(203) STORE 0xcd3e7e6f TO .aS4(204) STORE 0x1618b166 TO .aS4(205) STORE 0xfd2c1d05 TO .aS4(206) STORE 0x848fd2c5 TO .aS4(207) STORE 0xf6fb2299 TO .aS4(208) STORE 0xf523f357 TO .aS4(209) STORE 0xa6327623 TO .aS4(210) STORE 0x93a83531 TO .aS4(211) STORE 0x56cccd02 TO .aS4(212) STORE 0xacf08162 TO .aS4(213) STORE 0x5a75ebb5 TO .aS4(214) STORE 0x6e163697 TO .aS4(215) STORE 0x88d273cc TO .aS4(216) STORE 0xde966292 TO .aS4(217) STORE 0x81b949d0 TO .aS4(218) STORE 0x4c50901b TO .aS4(219) STORE 0x71c65614 TO .aS4(220) STORE 0xe6c6c7bd TO .aS4(221) STORE 0x327a140a TO .aS4(222) STORE 0x45e1d006 TO .aS4(223) STORE 0xc3f27b9a TO .aS4(224) STORE 0xc9aa53fd TO .aS4(225) STORE 0x62a80f00 TO .aS4(226) STORE 0xbb25bfe2 TO .aS4(227) STORE 0x35bdd2f6 TO .aS4(228) STORE 0x71126905 TO .aS4(229) STORE 0xb2040222 TO .aS4(230) STORE 0xb6cbcf7c TO .aS4(231) STORE 0xcd769c2b TO .aS4(232) STORE 0x53113ec0 TO .aS4(233) STORE 0x1640e3d3 TO .aS4(234) STORE 0x38abbd60 TO .aS4(235) STORE 0x2547adf0 TO .aS4(236) STORE 0xba38209c TO .aS4(237) STORE 0xf746ce76 TO .aS4(238) STORE 0x77afa1c5 TO .aS4(239) STORE 0x20756060 TO .aS4(240) STORE 0x85cbfe4e TO .aS4(241) STORE 0x8ae88dd8 TO .aS4(242) STORE 0x7aaaf9b0 TO .aS4(243) STORE 0x4cf9aa7e TO .aS4(244) STORE 0x1948c25c TO .aS4(245) STORE 0x02fb8a8c TO .aS4(246) STORE 0x01c36ae4 TO .aS4(247) STORE 0xd6ebe1f9 TO .aS4(248) STORE 0x90d4f869 TO .aS4(249) STORE 0xa65cdea0 TO .aS4(250) STORE 0x3f09252d TO .aS4(251) STORE 0xc208e69f TO .aS4(252) STORE 0xb74e6132 TO .aS4(253) STORE 0xce77e25b TO .aS4(254) STORE 0x578fdfe3 TO .aS4(255) STORE 0x3ac372e6 TO .aS4(256) ENDWITH ENDPROC PROCEDURE xor LPARAMETERS pnValor1 as Number, pnValor2 as Number LOCAL lnResultado, lnMaximo32 lnResultado=BITXOR(pnValor1,pnValor2) lnMaximo32=0xffffffff IF lnResultado< 0 lnResultado= lnMaximo32 + 1 + lnResultado ENDIF RETURN lnResultado ENDPROC PROCEDURE blosfishinicializar LPARAMETERS pcPalabraClave as String LOCAL lnLlaveBytes, lcLlave, lnDato, i, j lnLlaveBytes = LEN(pcPalabraClave) lcLlave='' lnDato =0x00000000 i=0 j=0 WITH this IF lnLlaveBytes = 0 .BlowfishIniciado=0 ELSE IF LEN(pcPalabraClave)>.maxLlaveBytes lcLlave=ALLTRIM(SUBSTR(pcPalabraClave,1,.maxLlaveBytes)) ELSE lcLlave=ALLTRIM(pcPalabraClave) ENDIF *--- Iniciando las constantes de Blowfish en arreglo .BlosfishConstantes() j=0 FOR i=1 TO 18 lnDato = ((ASC(SUBSTR(lcLlave,(j+0)%lnLlaveBytes+1,1))*256+; ASC(SUBSTR(lcLlave,(j+1)%lnLlaveBytes+1,1)))*256+; ASC(SUBSTR(lcLlave,(j+2)%lnLlaveBytes+1,1)))*256+; ASC(SUBSTR(lcLlave,(j+3)%lnLlaveBytes+1,1)) .aP[i] = .XOR(.aP[i], lnDato) j = (j + 4) % lnLlaveBytes ENDFOR lcLlave=.Codificar(lcLlave) .ParXL=0x00000000 .ParXR=0x00000000 FOR i = 1 TO 18 STEP 2 .BlowfishEncriptar() .aP[i] = .ParXL .aP[i + 1] = .ParXR ENDFOR FOR j = 1 TO 256 STEP 2 .BlowfishEncriptar() .aS1[j] = .ParXL .aS1[j+1] = .ParXR .BlowfishEncriptar() .aS2[j] = .ParXL .aS2[j+1] = .ParXR .BlowfishEncriptar() .aS3[j] = .ParXL .aS3[j+1] = .ParXR .BlowfishEncriptar() .aS4[j] = .ParXL .aS4[j+1] = .ParXR ENDFOR .BlowfishIniciado=1 ENDIF ENDWITH RETURN .BlowfishIniciado ENDPROC PROCEDURE blowfishdesencriptar LOCAL xl, xr WITH this Xl = .ParXL Xr = .ParXR Xl = .XOR(Xl, .aP[18]) Xr = .BlowfishRedondear(Xr, Xl, 17) Xl = .BlowfishRedondear(Xl, Xr, 16) Xr = .BlowfishRedondear(Xr, Xl, 15) Xl = .BlowfishRedondear(Xl, Xr, 14) Xr = .BlowfishRedondear(Xr, Xl, 13) Xl = .BlowfishRedondear(Xl, Xr, 12) Xr = .BlowfishRedondear(Xr, Xl, 11) Xl = .BlowfishRedondear(Xl, Xr, 10) Xr = .BlowfishRedondear(Xr, Xl, 9) Xl = .BlowfishRedondear(Xl, Xr, 8) Xr = .BlowfishRedondear(Xr, Xl, 7) Xl = .BlowfishRedondear(Xl, Xr, 6) Xr = .BlowfishRedondear(Xr, Xl, 5) Xl = .BlowfishRedondear(Xl, Xr, 4) Xr = .BlowfishRedondear(Xr, Xl, 3) Xl = .BlowfishRedondear(Xl, Xr, 2) Xr = .XOR(Xr, .aP[1]) .ParXL = Xr .ParXR = Xl ENDWITH ENDPROC PROCEDURE blowfishencriptar LOCAL xl, xr WITH this Xl = .ParXL Xr = .ParXR Xl = .XOR(Xl, .aP[1]) Xr = .BlowfishRedondear(Xr, Xl, 2) Xl = .BlowfishRedondear(Xl, Xr, 3) Xr = .BlowfishRedondear(Xr, Xl, 4) Xl = .BlowfishRedondear(Xl, Xr, 5) Xr = .BlowfishRedondear(Xr, Xl, 6) Xl = .BlowfishRedondear(Xl, Xr, 7) Xr = .BlowfishRedondear(Xr, Xl, 8) Xl = .BlowfishRedondear(Xl, Xr, 9) Xr = .BlowfishRedondear(Xr, Xl, 10) Xl = .BlowfishRedondear(Xl, Xr, 11) Xr = .BlowfishRedondear(Xr, Xl, 12) Xl = .BlowfishRedondear(Xl, Xr, 13) Xr = .BlowfishRedondear(Xr, Xl, 14) Xl = .BlowfishRedondear(Xl, Xr, 15) Xr = .BlowfishRedondear(Xr, Xl, 16) Xl = .BlowfishRedondear(Xl, Xr, 17) Xr = .XOR(Xr, .aP[18]) .ParXL = Xr .ParXR = Xl ENDWITH ENDPROC PROCEDURE blowfishredondear LPARAMETERS pnValorA,pnValorB,pnValorN LOCAL lnResultado as Number WITH this lnResultado= (.XOR(pnValorA, .XOR( ((.XOR( (.aS1[.BytePalabra1(pnValorB)]+.aS2[.BytePalabra2(pnValorB)]), .aS3[.BytePalabra3(pnValorB)]) ) + .aS4[.BytePalabra4(pnValorB)] ), .aP[pnValorN]) )) ENDWITH RETURN lnResultado ENDPROC PROCEDURE decodificarpalabra LPARAMETERS pnPalabra LOCAL lcResultado, lnTemporalA, lnTemporalB, i lcResultado=0 lnTemporalA=0 lnTemporalB=0 && reverse byteorder for intel systems FOR i=7 TO 1 STEP -2 lnTemporalA=ASC(SUBSTR(pnPalabra,i,1)) lnTemporalB=ASC(SUBSTR(pnPalabra,i+1,1)) IF lnTemporalA<58 lnTemporalA=lnTemporalA-48 ELSE lnTemporalA=lnTemporalA-55 ENDIF IF lnTemporalB<58 lnTemporalB=lnTemporalB-48 ELSE lnTemporalB=lnTemporalB-55 ENDIF lcResultado=lcResultado*256+((lnTemporalA*16)+lnTemporalB) ENDFOR RETURN lcResultado ENDPROC PROCEDURE codificarpalabra LPARAMETERS pnPalabra LOCAL lcResultado, lnTemporalA, lnTemporalB, i LOCAL ARRAY laBytes[4] lcResultado="" lnTemporalA=0 lnTemporalB=0 i=0 WITH this STORE .BytePalabra1(pnPalabra)-1 TO laBytes[1] STORE .BytePalabra2(pnPalabra)-1 TO laBytes[2] STORE .BytePalabra3(pnPalabra)-1 TO laBytes[3] STORE .BytePalabra4(pnPalabra)-1 TO laBytes[4] FOR i=4 TO 1 STEP -1 lnTemporalA=FLOOR(laBytes[i]/16) lnTemporalB=laBytes[i] % 16 IF lnTemporalA<10 lnTemporalA=lnTemporalA+48 ELSE lnTemporalA=lnTemporalA+55 ENDIF IF lnTemporalB<10 lnTemporalB=lnTemporalB+48 ELSE lnTemporalB=lnTemporalB+55 ENDIF lcResultado=lcResultado+CHR(lnTemporalA)+CHR(lnTemporalB) ENDFOR ENDWITH RETURN lcResultado ENDPROC PROCEDURE bytepalabra1 LPARAMETERS pnPalabra RETURN ((FLOOR(FLOOR(FLOOR(pnPalabra/256)/256)/256) % 256)+1) ENDPROC PROCEDURE bytepalabra2 LPARAMETERS pnPalabra RETURN ((FLOOR(FLOOR(pnPalabra/256)/256) % 256)+1) ENDPROC PROCEDURE bytepalabra3 LPARAMETERS pnPalabra RETURN ((FLOOR(pnPalabra/256) % 256)+1) ENDPROC PROCEDURE bytepalabra4 LPARAMETERS pnPalabra RETURN ((pnPalabra%256)+1) ENDPROC PROCEDURE decodificarblowfish LPARAMETERS pcMensaje as String, pcPalabraClave as String LOCAL lcPalabraClaveBackup, lnLongitudMensaje, lcSalidaDato, i lcPalabraClaveBackup="" lnLongitudMensaje=0 lcSalidaDato="" i=0 pcMensaje=ALLTRIM(pcMensaje) pcPalabraClave=ALLTRIM(pcPalabraClave) WITH this IF lcPalabraClaveBackup="" OR pcPalabraClave!= lcPalabraClaveBackup .BlowfishIniciado=0 lcPalabraClaveBackup = pcPalabraClave ENDIF IF .BlowfishIniciado=1 OR .BlosfishInicializar(pcPalabraClave) =1 lnLongitudMensaje=LEN(pcMensaje) FOR i=1 TO ((lnLongitudMensaje-INT(lnLongitudMensaje/16)*16)*MOD(lnLongitudMensaje,16)+(INT(lnLongitudMensaje/16)*16))-lnLongitudMensaje pcMensaje=pcMensaje+"0" ENDFOR lnLongitudMensaje=LEN(pcMensaje) lcSalidaDato="" FOR i=1 TO lnLongitudMensaje STEP 16 .ParXR=.DecodificarPalabra(SUBSTR(pcMensaje,i,8)) .ParXL=.DecodificarPalabra(SUBSTR(pcMensaje,i+8,8)) .BlowfishDesencriptar() lcSalidaDato=lcSalidaDato+.CodificarPalabra(.ParXR)+.CodificarPalabra(.ParXL) ENDFOR lcSalidaDato=.Decodificar(lcSalidaDato) ENDIF lcSalidaDato=STRTRAN(lcSalidaDato,CHR(208)+CHR(204)+CHR(208)+PADR('',3,CHR(204))) ENDWITH RETURN STRTRAN(lcSalidaDato,CHR(0),'') ENDPROC PROCEDURE codificarblowfish LPARAMETERS pcMensaje as String, pcPalabraClave as String LOCAL lcPalabraClaveBackup, lnLongitudMensaje, lcSalidaDato, i lcPalabraClaveBackup="" lnLongitudMensaje=0 lcSalidaDato="" i=0 pcMensaje=ALLTRIM(pcMensaje) pcPalabraClave=ALLTRIM(pcPalabraClave) WITH this IF lcPalabraClaveBackup="" OR pcPalabraClave!= lcPalabraClaveBackup .BlowfishIniciado=0 lcPalabraClaveBackup = pcPalabraClave ENDIF IF .BlowfishIniciado=1 OR .BlosfishInicializar(pcPalabraClave)=1 pcMensaje=.Codificar(pcMensaje) lnLongitudMensaje=LEN(pcMensaje) FOR i=1 TO ((lnLongitudMensaje-INT(lnLongitudMensaje/16)*16)*MOD(lnLongitudMensaje,16)+(INT(lnLongitudMensaje/16)*16))-lnLongitudMensaje pcMensaje=pcMensaje+"0" ENDFOR lcSalidaDato="" FOR i=1 TO LEN(pcMensaje) STEP 16 .ParXR=.DecodificarPalabra(SUBSTR(pcMensaje,i,8)) .ParXL=.DecodificarPalabra(SUBSTR(pcMensaje,i+8,8)) .BlowfishEncriptar() lcSalidaDato=lcSalidaDato+.CodificarPalabra(.ParXR)+.CodificarPalabra(.ParXL) ENDFOR ENDIF ENDWITH RETURN lcSalidaDato ENDPROC PROCEDURE Init this.AddProperty('aP[18]') this.AddProperty('aS1[256]') this.AddProperty('aS2[256]') this.AddProperty('aS3[256]') this.AddProperty('aS4[256]') this.BlosfishConstantes() ENDPROC `"GGw%ޔΉUbQSTRING T T T T(C>RTCC\TC zTCG% T0 T7% T0 5T7TC C  BUPCTEXTO LNTEMPORALA LNTEMPORALB LNTEMPORALC CRESULTADO LNCONTADORQSTRING T T T T(C>TCC\TTCC\TC06%: T0 F%`'TW BT7%: nT0 %`TW T7TTC  BUPCTEXTO LNTEMPORALA LNTEMPORALB LNTEMPORALC CRESULTADO LNCONTADORQSTRINGQSTRING T T T T%C>TC (C>%C> TTCC\TCC\%6T% qTC TTC TTC BU PCTEXTOPCPALABRACLAVENDELTA LNTEMPORALA CSALIDADATOIJTHIS CODIFICARQSTRINGQSTRING T T T T%C>TC TC (C>%C> TTCC\%bTTCC\T TCC\% TTC T BU PCTEXTOPCPALABRACLAVEDELTA LNTEMPORALA CSALIDADATOIJNDELTATHIS DECODIFICAR SLNTEMPORALADh=hJ j?$(J `aA(J .(J Dsp(J @'A(J 1)(J .(J ͉A(J !(E( J w8( J ٌA( J l 4( J 6A( J /A(J Մ?(J "A(J BA(J `c?/A(J t!&A(J A(J r/(J [A(J 5A(J ~&j(J OA(J %A(J G$( J -rA( J ( J ߱A( J ic( J iNWq(J `A(J gA(J t (J Xr(J X͋q(J ]BA(J T{(J 6KKA(J A(J `*(J `6A(J `((J #/HA(J gA(J ;A(J :`(J l(J GA( J A(!J d)A("J /x(#J `\`U($J `A(%J rJA(&J bHW('J @c((J j9U()J *(*J A(+J A(,J Ր*A(-J r|(.J }A(/J *oc(0J ]ũ+(1J 1t(2J ‡A(3J cpA(4J `FA(5J \$l(6J S2z(7J w((8J H;(9J Kk(:J `A(;J !(f(<J a(=J 25dA(>J `|H(?J 2](@J A(AJ 0A(BJ @`ĄA(CJ qlA(DJ >#(EJ rA(FJ om(GJ G~A(HJ D .(IJ A(JJ Ji(KJ kA(LJ Bh!(MJ @-A(NJ a g(OJ qzA(PJ ҠQj(QJ A(RJ A(SJ `t&jA(TJ l n(UJ ;z(VJ ~GA(WJ *~(XJ ,>A(YJ v9(ZJ >Yf([J aHA(\J НA(]J oE(^J å}(_J ^;(`J A(aJ `$A(bJ D@(cJ jV(dJ bN(eJ w?6(fJ r(gJ =B(hJ $7(iJ IBA(jJ `ZaA(kJ I(lJ rS(mJ `o#A(nJ y%(oJ A(pJ @A(qJ `)A(rJ A(sJ (tJ )5A(uJ `@(vJ ž\^(wJ c$j(xJ oh(yJ Sl>(zJ 9({J oR;(|J Qm(}J fA(~J (A(J A(J zA(J _iA(J (f(J K.(J uA(J tE(J kAA(J `{:A(J yU(J 2`(J  A(J yr,@(J %g(J ycA(J ?A(J _DfA(J u<(J b-A(J P/(J `UA(J =2(J pA(J H{1S(J >(J `A(J MA(J .V(J `;A(J UA(J ~((J XA(J `A(J '[i(J KyA(J k?A(J 4A(J =(J w0A(J lJ(J [-(J |JA(J A(J 7QA(J K(J @[;A(J `oA(J Ab(J ݘA(J @[A(J Lw6(J A(J +(J I{A(J 3A(J αUA(J Փk(J :A(J A(J eA(J A(J `_A(J lEBA(J @A(J A(J ^O(J Ïh(J 29A(J 5uA(J "//(J A(J NA(J C`A(J A(J A(J (J S{(J `z#A(J A(J -%(J ^q (J h"(J W(J 6d$(J #7A(J cU(J Y(J Cx(J oJ+A(J [} (J Ź(J ndA(J ϕb(J h(J AJsN(J @hA(J J{(J RQ(J "eJA(J A(J xA(J v`+(J A(J S:A(J A(J 8-M(J A(J L(J dA(J c(J ^(J ?kh (J >(J <(J pjk( J 5h(!J R("J `A(#J JA($J >(%J \(&J A('J W((J F[A()J  A(*J A(+J (,J @A(-J t<(.J Xz%(/J 7$A(0J "2A(1J /|(2J `HA(3J G"(4J :(5J 7(6J ƮA(7J {^A(8J ((A(9J (:J A(;J ȣA(<J GA(=J /;(>J 2(?J 1>(@J 8TN(AJ mO(BJ  Bo(CJ @A(DJ ,(EJ y|$(FJ ryV(GJ 5A(HJ NA(IJ a2A(JJ @uqA(KJ A(LJ rU(MJ $qk.(NJ P(OJ ఙA(PJ GXz(QJ t(RJ WA(SJ o)A(TJ @]A(UJ @pA(VJ fC c(WJ @zA(XJ A(YJ 2(ZJ fgA([J $(\J CM(]J Qe*(^J P(_J :(`J q(aJ UN1(bJ 5A(cJ _(dJ V5(eJ `xA(fJ ;<(gJ $Y(hJ QA(iJ @?A(jJ WA(kJ n<(lJ hA(mJ -]A(nJ @A(oJ *>Z(pJ w(qJ =N(rJ e)(sJ (J E(J @}UuA(J mA(J iYA(J @^A(J vWA(J ;Oe(J !A(J 3A(J ษA(J @hA(J Pb=(J @>TA(J F&[(J tA(J `8A(J $(J ti(J G(J V(J [ (J )A(J tb(J #(J *BX(J U (J >(J ap?#(J r3(J oA(J A(J ;"l(J Y7|(J }A(J @(J MA(J A(J P(J A(J 5a(J @4-A(J @؀A(J Z(J [yA(J EA(J hA(J ଺A(J ɞ(J `z{nA(J ͈U(J y_g(J hlA(J A(J 8>q(J (=(J -A(J !>(J @A(J `sA(J upA(J M'A(J (A(J ÄA(J &%A(J A(J v(J eA(J @A(J A( J j 3( J ԷC( J aP( J .9( J A(J tO!(J qA(J M(J 5A(J p(J E/f(J =A(J (J m(J 1(J `dA(J A9U(J DA(J @SAyA(J %xP((J )S(J چ, (J `6A( J bh(!J A("J h(#J '($J ?O(%J A(&J A('J z((J YA()J fA(*J sA(+J B*k@(,J 5 (-J p>A(.J `:A(/J N;(0J (1J VmK(2J 1f&(3J @r\A(4J tn:(5J @fhA(6J Ah(7J `OA(8J ^aA(9J rA(:J V@E(;J IA(<J ::SU(=J (>J 6uA(?J `A(@J gU(AJ K"A(BJ `,%A(CJ `f;3(bJ b $;(cJ @$A(dJ ATA(eJ AA(fJ AA(gJ (-(hJ OA(iJ A(jJ b}d(kJ A(lJ oIT(mJ @A(nJ िsA(oJ gA(pJ AcG (qJ %A(rJ no:(sJ A(tJ [A(uJ {=A(vJ )|#A(wJ amA(xJ jA(yJ 7,gm(zJ ;e'({J A(|J !%A(}J `A(~J @!A(J i(J {f(J oA(J `9A(J `ԫ"A(J ebA(J $[Q(J y{(J ;v(J .97(J /+A(J RA(J %ƅA(J Bh(J `gEA(J Lu(J .x(J 7Bj(J ;(4J @2A(5J A(6J ٷ,(7J Q+(8J @A(9J }}(:J 9A(;J (-}|(<J %(=J `WA(>J rZ(?J LZ(@J 5A(AJ 4A(BJ G(CJ `SA(DJ xA(EJ W;((FJ ŬA(GJ (.y(HJ _x(IJ A(JJ A(KJ kzA(LJ m(MJ @A(NJ %a(OJ d(PJ s}A(QJ W<(RJ ]A(SJ @@'A(TJ m?(UJ !c(VJ `ߌA(WJ &(XJ (3u(YJ *A(ZJ 4V([J `GWA(\J wQ((]J ?[AA(^J ,yA(_J KA(`J QM(aJ 08(bJ bX7(cJ 2dA(dJ @ROA(eJ ygA(fJ d!Q(gJ 2Ow(hJ oA(iJ 'eA(jJ iSH(kJ d(lJ UA(mJ DA(nJ -i(oJ f! (pJ @HsA(qJ Ed(rJ lX(sJ (tJ [(uJ @X(vJ /@A(wJ k(xJ OMA(yJ EY:(zJ D 5>({J A(|J r(}J `LA(~J U¬A(J A(J `|SA(J ]/T(J `NA(J nA(J t(J jbA(J BA(J oA(J @@(J N(J jF4(J (J 6A(J CA(J (J A(J ;?o(J 5(J K(J 'r'(J `a(J gA(J `%OgA(J %E4(J <A(J KyQ(J 2/(J YA(J A(J >A(J `8"A(J X=A(J I(J @A(J `[A(J G[A(J *9(J &A(J /&A(J i%A(J 6A(J :C(J ?ZA(J E'(J EA(J *(J q(J rA(J l\A(J `A(J UA(J Ѩ(J A(J A`A(J eP(J @t`A(J A(J ;ۘ(J L(J dx2(J @A(J [rA(J `tA(J C>.A(J At (J 4K(J $ηA(J [nA(J A(J %sA(J mA(J (J JA(J (J 9OA(J ϧA(J f(J A(J XA(J SdA(J j~A(J `NA(J uA(J V(J @,A(J uZ(J 6n(J yNA(J @RA(J :)7A(J PL(J Vq(J A(J z2(J E(J @sO~A(J J5A(J b(J @dA(J ҽ5(J iq(J @D@A(J yA(J `ӮA(J >S(J @(J `8(J G%(J GA(J A(J šw(J ``u (J A(J ]A(J z(J ~L(J \H(J (J j(J ?|A(J A(J ԛA(J -% ?(J AA(J @&A(J `KA(J ߏW(J r:(UTHISAPAS1AS2AS3AS4QNUMBERQNUMBER TCT A% zT BUPNVALOR1PNVALOR2 LNRESULTADO LNMAXIMO32QSTRINGTC> T T T T%T %C>TCC\ TC C T(TCCCG\CCCG\CCCG\CCCG\#T CC  TCGTC T  T (p CT  T  (x CT T CT T CT T CT TT BUPCPALABRACLAVE LNLLAVEBYTESLCLLAVELNDATOIJTHISBLOWFISHINICIADO MAXLLAVEBYTESBLOSFISHCONSTANTESAPXOR CODIFICARPARXLPARXRBLOWFISHENCRIPTARAS1AS2AS3AS4/ (TTTCCTCTCTCTCTC TC TC TC TC TCTCTCTCTCTCTCTCCTTUXLXRTHISPARXLPARXRXORAPBLOWFISHREDONDEAR/ (TTTCCTCTCTCTCTCTCTCTC TC TC TC TC TCTCTCTCTCCTTUXLXRTHISPARXLPARXRXORAPBLOWFISHREDONDEARQNUMBERdTCCCCCCC CC CC C BUPNVALORAPNVALORBPNVALORN LNRESULTADOTHISXORAS1 BYTEPALABRA1AS2 BYTEPALABRA2AS3 BYTEPALABRA3AS4 BYTEPALABRA4API T T T (9TCC\TCC\%: T0 T7%: T0 T7 T BU PNPALABRA LCRESULTADO LNTEMPORALA LNTEMPORALBI  T T T TJC(JC(JC (JC ( (TCC zTCCG% QT0 lT7% T0 T7TC C  BU PNPALABRA LCRESULTADO LNTEMPORALA LNTEMPORALBILABYTESTHIS BYTEPALABRA1 BYTEPALABRA2 BYTEPALABRA3 BYTEPALABRA44*BCCCC z z zGU PNPALABRA-#BCCC z zGU PNPALABRA&BCC zGU PNPALABRABCGU PNPALABRAcQSTRINGQSTRING T T T TTCTCI% T T%%C TC>E(C 8CGC 8[T0TC> T(T CC\ T CC\ C !TC C TC.TCC C C CC BCC U PCMENSAJEPCPALABRACLAVELCPALABRACLAVEBACKUPLNLONGITUDMENSAJE LCSALIDADATOITHISBLOWFISHINICIADOBLOSFISHINICIALIZARPARXRDECODIFICARPALABRAPARXLBLOWFISHDESENCRIPTARCODIFICARPALABRA DECODIFICARQSTRINGQSTRING T T T TTCTC% T T%%C TC TC>E(C 8CGC 8nT0 T!(C>T CC\ T CC\ C !TC C  BU PCMENSAJEPCPALABRACLAVELCPALABRACLAVEBACKUPLNLONGITUDMENSAJE LCSALIDADATOITHISBLOWFISHINICIADOBLOSFISHINICIALIZAR CODIFICARPARXRDECODIFICARPALABRAPARXLBLOWFISHENCRIPTARCODIFICARPALABRACaP[18]CaS1[256]CaS2[256]CaS3[256]CaS4[256] CUTHIS ADDPROPERTYBLOSFISHCONSTANTES codificar0 decodificarcodificarsimple*decodificarsimpleFblosfishconstantesxorqblosfishinicializarqblowfishdesencriptar&vblowfishencriptarxblowfishredondear{decodificarpalabra5|codificarpalabra} bytepalabra1 bytepalabra2f bytepalabra3 bytepalabra4߀decodificarblowfishcodificarblowfishUInitO1qr1!2A2AA3rtq21AA21AAb2B3qRQQAr2!A21A2AQA2qQ11RAr1qA3!A2AAA2qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqA42Q2QA2q1aA2qA2QAQQQQAAA3A3A3AA4q1q2A2AA3q1q2A2AAA3q3q13q3qQ31ARR!AA1AA121AR1S!AAAA2a1r!;RX b vx ЎOzv6TI^po|7: X={@ߢC=cDQ)G%dbQ6W#%C p_SinInterfazbLk5 T-%gB%Cp_devbL Ta%C p_suspendbL T a%  B    T  C%CRT C oT C ( 1T  C C ->6T C  R%C xPreguntabOTT&%C xPreguntabC K7% SUSPENDO?Cf  SUSPENDO ?Cf T . Suspendo?% 1%CoSplashbOC  T- T a.TC C C C %G T - U-%CxPregunta_ScreenbC SE%Muestro _SCREEN?Cf Muestro _SCREEN ?Cf #T. Muestro _SCREEN? T+TC C C C %O T - ]% T9a GY(<7C rushmore]{{2ENTER%CC]=DEY #{T9 ,,command 6% N% T- C L % TaU XPREGUNTA XSUSPENDER XNOTP_DEVXFORZAR_SCREENXPREGUNTA_SCREENXNODEBUGXNOOCULTAR_SPLASH P_SININTERFAZP_DEV P_SUSPENDXPREGUNTA_HEADERNITTNITXOCULTADO_SPLASH XSTACKINFOTEXTO XCANCELAROSPLASHVISIBLE MENSAJE_SINOXFLAGRUSHMOREENTER WINDOWSTATEGESFORMTIMER1ENABLED OMAILSPOOL SUSPENDER;T *CsuspendC106U P_SUSPEND GUARDAR_CFGsys_suspend_cambiarC6qAAAAACA1q1AA3ArdrAAA1ABR1Aq1ABcRqrqQAAAAAAAAB42a S % #=! hX+ TC      T  T  T  T%C xxcomprobbC%CT  MAILSPOOL  T %CxxcausabCQ%C6T M M T  %C xxcomprob2bC T %Cxxcausa2bC T+, T  C ,+, T  C ,%, a,CError en user_log con comas !!!%Ctts_idbC T%C%B-% B%C pub_indexbN T%CxusrbNH T%Cp_systembC#TCC&C\DATACC&f\%C p_dt_usarbL T-%Cp_codempbNT!%C p_sesion_idbC)T SUPERUSUARIO!%C p_equipo_idbN\THq C xOEntidadbOT %T C C xOEntidadbC T %CxEntidadbC" T !%C xEnt_CodigobC%C xOEntidadbOvT   T   TCW %CxmsgbC T%CxprivbC  T%Cuser_log #%C \user_log.dbf0 qh1 \user_logTC  N!N"N#N$C %C&C'Cd(N)C *C +C,C-C& & $%$QQ \user_logF.H  z%CiTERRCC]RqCError con TTS_ID !!!C C =Probablemente la transaccin ya fue cerrada con anterioridad./ T 2% TC]<7 T  T%C [ *-C$% # %C4W T $ T %0% T012(3 T0C  T0C%B @ ruser_log!"#$%&'()*+-,0     (4< ruser_log!"#$%&'()-,0    (4> ruser_log!"#$%&'*+-,0      ruser_log!"#$%&'-,0    (5:6 T6C+C6  k ruser_log!"#$%&'*+-,0     (7 ruser_log!"#$%&'-,0    (869>T9Imposible logear user_log: C /C8:%Clog FQ\log VrLOG!;<)=C$C^  9(>2@rLOG!;<=C$C^ 9 LF.Hh3 { y%?/puser_log $CC.$#  .$6%CC.%#  .%6 C X u puser_log $ % *CC.* .* 6+CC.+ .+6- ,  C X (>qpuser_log $ % *CC.* .* 6+CC.+ .+6 C X  w%?-puser_log $CC.$#  .$6%CC.%#  .%6 C X s puser_log $ % *CC.* .* 6+CC.+ .+6- ,  C X (>opuser_log $ % *CC.* .* 6+CC.+ .+6 C X  C   )puser_log$CC.$ .$6%CC.% .%6*CC.* .*6+CC.+.+6 C X % %  &ruser_log!"#$%&'()*+-,0      ruser_log!"#$%&'()-,0    (4! vruser_log!"#$%&'*+-,0       ruser_log!"#$%&'-,0    (4 23 n%C oSecuritybOj @A(3|%C   T(B FBaUCXUSRXTIPXCOMPROBXCAUSAXMSGXPRIV XCOMPROB2XCAUSA2 XOENTIDAD XENT_CODIGOXENTIDAD XXCOMPROBXXCAUSA XXCOMPROB2XXCAUSA2MENSAJETTS_IDP_MAIL_COLA_DEBUG PUB_INDEXP_SYSTEM P_DT_USARP_CODEMP P_SESION_ID P_EQUIPO_IDCOD_ENTCODIGO_FORZADOOBTENER_CODIGO CODIGO_REALXIDXSELEFECHAIDID_FINUSREMPTIPCOMPROBCAUSAMSGPRIVADO EQUIPO_ID SESION_IDCOMPROB2CAUSA2ENTIDADCODIGOUSER_LOGSYS_M XDT_SERVER ODTCONTROLSRV_HORAOEXOEXUSLOGOEXUSRXSEGOEXUSR2OEXUSR3XERROR_USR_LOGMESSAGEHORATIPOTXTOERRHNDP_USER_LOG_VERSION OSECURITYREGISTRAR_ACTIVIDADOEXCDSF{ 4%Cuser_log AQ \user_log/ouser_logtmp_logBU XXCOMPROBXXCAUSAP_SYSTEMUSER_LOGCOMPROBCAUSATMP_LOGTC H+ V\TFactura de Venta c%TNota de Crdito de Venta d$TNota de Dbito de Venta CTFactura de Compra e8%TNota de Dbito de Compra fr&TNota de Crdito de Compra 1'TNota de Dbito a Proveedor 2(TNota de Crdito a Proveedor PTPedido de Venta NITOrden de Compra rpTRemito DTDepsito XT Extraccin pT Produccin OTPago R;TRecibo AnTAjuste de cobranza aTAjuste de pago ITInicio del sistema FTFin del sistema i,T Importacin Sb"TSolicitudes de Compra HTDespacho MTEmail JT Asistencia G)9T,Armado/Preparacin de facturacin/inventario SUT Presupuesto K}TPicking 2 TBUXCPBTCAUSAget_log{ comprobante?2sqaAAqABAASAQAAAr1qAAAAAA1AAAAA!AAAAAAA1 1!BAAqLrqAAABrAA2 T AT AuqAT AsS!AaBCAABr122 gAA12 hBAr3j " T AT DAAAAAArABr8AB2q2AAQAABAQAaAqABAA1AQAqAqAA1AAAAAA!AQA!AqAAAAAB1R=&>5>>CC0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0DV0ONJXF 715947418/F] WINDOWS _0DV0ONJXP1458211395E@ WINDOWS _0DV0ONJXF 812938715$$$$$6E% WINDOWS _0DV0ONJXF1458211395{%6665 WINDOWS _0DV0ONJXQ145821139555554 WINDOWS _14D0NZQEC14555113554444_4$46D WINDOWS _1700UHHX7 81293871544333)f) WINDOWS _1700UHHX9 812939548Y)L);).)^( WINDOWS _1700UHHXA 812938715Q(D(6()(v' WINDOWS _0DV0ONJXF 715947418i'\'D'7'& WINDOWS _6MP0N7I1B1455511093&}&b&U&% COMMENT RESERVED %dVERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11 formulario clases.vcxformForm1BorderStyle = 2 Height = 47 Width = 345 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Form1" ControlBox = .T. Closable = .T. ClipControls = .F. TitleBar = 0 AlwaysOnTop = .T. BackColor = 255,255,255 value = 0 sub_max = 100 sub_min = 0 sub_texto = ('Iniciando...') sub_value = 0 sub_umbral = 1 sub_height = 95 debug_time_proc = ('Proc') debug_time_path = maxpasado = 0 autonumerar = .F. verbose = 0 log_aut = .F. sub_autonumerar = .F. Name = "Form1" PROCEDURE min_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.min = m.vNewVal try this.olecontrol1.min=m.vNewVal CATCH ENDTRY ENDPROC PROCEDURE max_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.max = m.vNewVal try this.olecontrol1.max=m.vNewVal this.label2.Caption ="Progreso: " CATCH ENDTRY ENDPROC PROCEDURE value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method if between(m.vNewVal,1,this.max) THIS.value = m.vNewVal try this.olecontrol1.value=m.vNewVal CATCH ENDTRY ELSE TRY IF p_dev THEN this.maxpasado = this.maxpasado +1 this.label2.Caption ="P "+ALLTRIM(STR(this.value)) +"/"+ALLTRIM(STR(this.maxpasado )) +": " ENDIF CATCH ENDTRY endif ENDPROC PROCEDURE texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.texto = m.vNewVal this.label1.caption=m.vNewVal IF thisform.Autonumerar THEN this.lbAutoNumeracion.caption="(" + ALLTRIM(STR(this.value))+" / "+ ALLTRIM(STR(this.Max)) + ")" ENDIF this.label1.refresh this.refresh IF this.log_aut THEN =log_aut_Verbose(this.verbose,,m.vNewVal) ENDIF IF thisform.debug_time THEN thisform.debug_time_output (4,this.texto ) ENDIF ENDPROC PROCEDURE refresh_force thisform.Refresh oDeyFunc.DEVENTS(.t.) && true ENDPROC PROCEDURE enabled_refresh_timer_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enabled_refresh_timer = m.vNewVal thisform.timer1.Enabled = m.vNewVal ENDPROC PROCEDURE push PARAMETERS xTexto AS STRING, xValue AS INTEGER, xMax AS INTEGER, xMin AS INTEGER THIS.pushed=.T. THIS.pushed_max = THIS.MAX THIS.pushed_min = THIS.MIN THIS.pushed_texto = iif( vartype(THIS.texto)="C",THIS.texto,"") THIS.pushed_value = THIS.VALUE THIS.set_full(xTexto,xValue,xMax,xMin) ENDPROC PROCEDURE pop IF this.pushed THEN this.max=this.pushed_max this.min=this.pushed_min this.texto=this.pushed_texto this.value =this.pushed_value this.pushed=.f. ENDIF ENDPROC PROCEDURE avance PARAMETERS xTexto, xValue , xforzar SET PROCEDURE TO Dey_func ADDITIVE xTexto=Chk_Value(xTexto,THIS.texto ,"C") xValue=Chk_Value(xValue,this.value+1,"N") this.value=xValue this.Texto=xTexto IF xforzar THEN this.lABEL1.Refresh ENDIF ENDPROC PROCEDURE set_and_show PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER, xAutoNumerar as Boolean this.set_full(xTexto,xValue,xMax,xMin, xAutoNumerar ) if type("p_sys_procesando")="O" and p_sys_procesando.visible this.Visible=.f. else this.Visible=.t. and not p_SinInterfaz endif ENDPROC PROCEDURE set_full PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER, xAutoNumerar as Boolean SET PROCEDURE TO Dey_func ADDITIVE IF PARAMETERS()<5 THEN xAutoNumerar=this.autonumerar ENDIF xTexto=Chk_Value(xTexto,THIS.texto ,"C") xValue=Chk_Value(xValue,THIS.VALUE ,"N") xMax=Chk_Value(xMax,THIS.MAX,"N") xMin=Chk_Value(xMin,THIS.MIN,"N") IF xMax<2 THEN xMax=2 ENDIF THIS.texto = xTexto THIS.MAX=xMax THIS.MIN=xMin THIS.VALUE = xValue this.autonumerar = xAutoNumerar thisform.Refresh ENDPROC PROCEDURE sub_max_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_max = m.vNewVal thisform.sub_evaluar_porc ENDPROC PROCEDURE sub_min_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_min = m.vNewVal thisform.sub_evaluar_porc ENDPROC PROCEDURE sub_texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF thisform.Sub_Autonumerar THEN this.lbSubAutoNumeracion.caption="(" + ALLTRIM(STR(thisform.pb2.value))+" / "+ ALLTRIM(STR(this.sub_Max)) + ")" ENDIF THIS.sub_texto = m.vNewVal thisform.sub_label.caption=m.vNewVal ENDPROC PROCEDURE sub_value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_value = m.vNewVal IF this.sub_value > this.sub_umbral THEN thisform.pb2.value=thisform.pb2.value+1 this.sub_value = 0 ENDIF ENDPROC PROCEDURE sub_avance this.sub_value=this.sub_value+1 ENDPROC PROCEDURE sub_set_and_show PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER, xAutoNumerar as Boolean this.sub_set_full(xTexto,xValue,xMax,xMin, xAutoNumerar ) if type("p_sys_procesando")="O" and p_sys_procesando.visible this.Visible=.f. else this.Visible=.t. and not p_SinInterfaz endif this.Height = thisform.sub_height ENDPROC PROCEDURE sub_set_full PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER, xAutoNumerar as Boolean SET PROCEDURE TO Dey_func ADDITIVE IF PARAMETERS()<5 THEN xAutoNumerar=this.sub_autonumerar ENDIF xTexto=Chk_Value(xTexto,THIS.sub_texto ,"C") xValue=Chk_Value(xValue,THIS.sub_VALUE ,"N") xMax=Chk_Value(xMax,THIS.sub_MAX,"N") xMin=Chk_Value(xMin,THIS.sub_MIN,"N") IF xMax<2 THEN xMax=2 ENDIF THIS.sub_texto = xTexto THIS.sub_MAX=xMax THIS.sub_MIN=xMin THIS.sub_VALUE = xValue this.sub_autonumerar = xAutoNumerar this.pb2.value=this.pb2.min ENDPROC PROCEDURE sub_evaluar_porc xDif=This.sub_max-this.sub_min thisform.sub_umbral = xDif /100 ENDPROC PROCEDURE sub_hide this.Height = thisform.sub_orig_height ENDPROC PROCEDURE debug_time_set LPARAMETERS xEnabled, xProc, xFile, xPath SET PROCEDURE TO Dey_Func ADDITIVE IF NOT p_Debug_estado THEN xEnabled=.f. ENDIF xEnabled=chk_Value(xEnabled,.t.,"L") xProc=chk_Value(xProc,thisform.debug_time_proc,"C") IF thisform.debug_time THEN xFile=chk_Value(xFile,thisform.debug_time_file,"C") ELSE xFile=chk_Value(xFile,TTOC(DATETIME(),1) +".dbg","C") xPath=chk_value(xPath,thisform.debug_time_path ,"C") xFile=xPath+xFile Endif DO CASE CASE xEnabled AND NOT thisform.debug_time && Inicio thisform.debug_time_file = xFile thisform.debug_time_proc = xProc thisform.debug_time = .t. Thisform.debug_time_output (1) CASE NOT xEnabled AND thisform.debug_time && Fin Thisform.debug_time_output (2) thisform.debug_time = .F. CASE xEnabled AND thisform.debug_time && Reseteo Thisform.debug_time_output (2) thisform.debug_time_file = xFile thisform.debug_time_proc = xProc Thisform.debug_time_output (1) CASE NOT xEnabled AND NOT thisform.debug_time && NADA thisform.debug_time_file = xFile thisform.debug_time_proc = xProc ENDCASE ENDPROC PROCEDURE debug_time_output LPARAMETERS xTipo, xTexto LOCAL xHnd,xWrite,xSECT IF FILE(thisform.debug_time_file ) && Does file exist? xHnd= FOPEN(thisform.debug_time_file ,12) && If so, open read/write = FSEEK(xHnd,0,2) ELSE xHnd = FCREATE(thisform.debug_time_file) && If not, create it ENDIF xSECT=SECONDS() DO CASE CASE xTipo=1 xTexto="Inicio del proceso." thisform.debug_time_init = xSECT thisform.debug_time_last = xSect CASE xTipo=2 xTexto="Fin del proceso." ENDCASE IF xHnd < 0 && Check for error opening file RETURN .f. ELSE && If no error, write to file xWrite=Thisform.debug_time_proc + ";" + STR(xSECT,12,3) + ";" + STR(xSECT-thisform.debug_time_init,12,3) + ";" + STR(xSECT-thisform.debug_time_Last,12,3) + ";" + TTOC(DATETIME(),2) + ";" + xTexto =FPUTS(xHnd,xWrite) ENDIF thisform.debug_time_last = xSECT =FCLOSE(xHnd) && Close file ENDPROC PROCEDURE sub_avance_texto LPARAMETERS xTexto, xValue , xforzar this.sub_avance () This.sub_texto = xTexto IF xforzar THEN this.sub_label.Refresh ENDIF ENDPROC PROCEDURE Init thisform.sub_orig_height = thisform.Height IF type("p_Debug_Estado_Path")#"C" or p_Debug_Estado_Path=='' THEN IF type("p_Local")#"C" p_local=SYS(5)+SYS(2003) ENDIF p_Debug_Estado_Path = p_Local + "\TMP\" ENDIF thisform.debug_time_path = p_Debug_Estado_Path thisform.debug_time_File = thisform.debug_time_path + TTOC(DATETIME(),1)+".DBG" ENDPROC  olecontrol olecontrol Olecontrol1Form1DTop = 24 Left = 4 Height = 18 Width = 336 Name = "Olecontrol1" .OLEObject = C:\Windows\SysWOW64\mscomctl.ocx label!Arial, 0, 9, 5, 15, 12, 32, 3, 0 FontSize = 8 Alignment = 1 BackStyle = 0 Caption = "" Height = 17 Left = 249 Top = 50 Width = 91 ForeColor = 0,0,255 Name = "lbSubAutoNumeracion" Form1lbSubAutoNumeracionlabellabelFontSize = 8 Alignment = 1 BackStyle = 0 Caption = "" Height = 17 Left = 252 Top = 7 Width = 91 ForeColor = 0,0,255 Name = "lbAutoNumeracion" Form1lbAutoNumeracionlabellabelAutoSize = .T. FontBold = .F. FontSize = 8 BackStyle = 1 Caption = "Registro:" Height = 16 Left = 7 Top = 52 Width = 45 BackColor = 255,255,255 Name = "Label4" Form1Label4labellabelAutoSize = .F. FontBold = .F. FontSize = 8 BackStyle = 1 Caption = "Iniciando..." Height = 17 Left = 60 Top = 52 Width = 283 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "sub_label" Form1 sub_labellabellabel.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx  ࡱ> Root Entry`kOleObjectData`AccessObjSiteData&\ChangedPropsy":5j(6(!C4"Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1MAXN Y@MINN  8MousePointer I OLEDropMode I  Root Entry`kOleObjectData`AccessObjSiteData&\ChangedPropsy":5j(6(!C4"zDͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1MAXN @@@MINN  8MousePointer I OLEDropMode I Omin max value Especifica el estado actual de un control. texto enabled_refresh_timer pushed_max pushed_value pushed_texto pushed_min pushed sub_max sub_min sub_texto sub_value sub_umbral sub_height sub_orig_height debug_time debug_time_proc debug_time_file debug_time_path debug_time_init debug_time_last maxpasado autonumerar Si se pone en .T. agrega al final del texto el nro actual verbose log_aut sub_autonumerar *min_assign *max_assign *value_assign *texto_assign *refresh_force *enabled_refresh_timer_assign *push *pop *avance *set_and_show *set_full *sub_max_assign *sub_min_assign *sub_texto_assign *sub_value_assign *sub_avance *sub_set_and_show *sub_set_full *sub_evaluar_avance *sub_evaluar_porc *sub_hide *debug_time_set *debug_time_output *sub_avance_texto "%^smU UTHISFORM REFRESH_FORCETimer011()"{%5*HUIT 8T BUVNEWVALTHISMIN OLECONTROL1fT UT T Progreso: _UVNEWVALTHISMAX OLECONTROL1LABEL2CAPTION%C bT TT ^  %T6TP CCZ/CCZ:  U VNEWVALTHISMAXVALUE OLECONTROL1P_DEV MAXPASADOLABEL2CAPTIONT T %v6T(CCZ / CC Z)   % C %CUVNEWVALTHISTEXTOLABEL1CAPTIONTHISFORM AUTONUMERARLBAUTONUMERACIONVALUEMAXREFRESHLOG_AUTLOG_AUT_VERBOSEVERBOSE DEBUG_TIMEDEBUG_TIME_OUTPUT CaUTHISFORMREFRESHODEYFUNCDEVENTS1T T UVNEWVALTHISENABLED_REFRESH_TIMERTHISFORMTIMER1ENABLED>4QSTRINGQINTEGERQINTEGERQINTEGERTaTT ,T CC C  6T  CUXTEXTOXVALUEXMAXXMINTHISPUSHED PUSHED_MAXMAX PUSHED_MINMIN PUSHED_TEXTOTEXTO PUSHED_VALUEVALUESET_FULLs%lTTTT T-U THISPUSHEDMAX PUSHED_MAXMIN PUSHED_MINTEXTO PUSHED_TEXTOVALUE PUSHED_VALUE4G+(Dey_funcTCC TCNTT%  U XTEXTOXVALUEXFORZARDEY_FUNC CHK_VALUETHISTEXTOVALUELABEL1REFRESHM4QSTRINGQINTEGERQINTEGERQINTEGERQBOOLEAN!C0%Cp_sys_procesandobO T- Ta U XTEXTOXVALUEXMAXXMIN XAUTONUMERARTHISSET_FULLP_SYS_PROCESANDOVISIBLE P_SININTERFAZvM4QSTRINGQINTEGERQINTEGERQINTEGERQBOOLEANG+(Dey_func%C TTC CTC NTC NTC N%  TT T T T T UXTEXTOXVALUEXMAXXMIN XAUTONUMERARDEY_FUNCTHIS AUTONUMERAR CHK_VALUETEXTOVALUEMAXMINTHISFORMREFRESH&T UVNEWVALTHISSUB_MAXTHISFORMSUB_EVALUAR_PORC&T UVNEWVALTHISSUB_MINTHISFORMSUB_EVALUAR_PORC%R9T(CCZ / CCZ)T  T  U VNEWVALTHISFORMSUB_AUTONUMERARTHISLBSUBAUTONUMERACIONCAPTIONPB2VALUESUB_MAX SUB_TEXTO SUB_LABELfT %_TTUVNEWVALTHIS SUB_VALUE SUB_UMBRALTHISFORMPB2VALUETUTHIS SUB_VALUEM4QSTRINGQINTEGERQINTEGERQINTEGERQBOOLEAN!C0%Cp_sys_procesandobO T- Ta T  U XTEXTOXVALUEXMAXXMIN XAUTONUMERARTHIS SUB_SET_FULLP_SYS_PROCESANDOVISIBLE P_SININTERFAZHEIGHTTHISFORM SUB_HEIGHTM4QSTRINGQINTEGERQINTEGERQINTEGERQBOOLEANG+(Dey_func%C TTC CTC NTC NTC N%  TT T T T TT  UXTEXTOXVALUEXMAXXMIN XAUTONUMERARDEY_FUNCTHISSUB_AUTONUMERAR CHK_VALUE SUB_TEXTO SUB_VALUESUB_MAXSUB_MINPB2VALUEMIN.TTd UXDIFTHISSUB_MAXSUB_MINTHISFORM SUB_UMBRALTUTHISHEIGHTTHISFORMSUB_ORIG_HEIGHTCG+(Dey_Func% @ T-TCaLTCC% TC C 'TCCC.dbgCTC CTH<  pT TT aC   C T -  C T TC   <T TU XENABLEDXPROCXFILEXPATHDEY_FUNCP_DEBUG_ESTADO CHK_VALUETHISFORMDEBUG_TIME_PROC DEBUG_TIMEDEBUG_TIME_FILEDEBUG_TIME_PATHDEBUG_TIME_OUTPUT %C0TTC C pTC TCH  TInicio del proceso.TT TFin del proceso.% 2B- iT ;C Z;C Z;C Z;CC;CT CU XTIPOXTEXTOXHNDXWRITEXSECTTHISFORMDEBUG_TIME_FILEDEBUG_TIME_INITDEBUG_TIME_LASTDEBUG_TIME_PROCO CT%H UXTEXTOXVALUEXFORZARTHIS SUB_AVANCE SUB_TEXTO SUB_LABELREFRESHT4%Cp_Debug_Estado_PathbC %Cp_LocalbCzTC]C]T\TMP\T%TCC.DBGUTHISFORMSUB_ORIG_HEIGHTHEIGHTP_DEBUG_ESTADO_PATHP_LOCALDEBUG_TIME_PATHDEBUG_TIME_FILE min_assign0 max_assign value_assignB texto_assign refresh_forceenabled_refresh_timer_assignepushpop8avance  set_and_showset_fullG sub_max_assignB sub_min_assign sub_texto_assign sub_value_assign sub_avance sub_set_and_show sub_set_fullRsub_evaluar_porcnsub_hidedebug_time_setdebug_time_output sub_avance_textoYInit1q"QA2q"QA3q"QAqaAAB4q"Q!aA"qA"aA22q"Q21114"1111A2"A2aA3!!A1A4q"2q"2q"A!Q2q"A2q3aA24!!A1A2qA3221"Ar"qAA4BQ!A11A3qA3A21BaBaAQ2 .!Q-0Aq@37D7R|J??WG\W aQz oY {l u p t=b{`$G 6[Z ,%6)%[pW/%CxFLAGbN> T>% + SUSPENDO ?Cf SUSPENDO?Cf  B-+%CxsionobN C % :CSINO: =CNOSI6aB eNTC4 Atencin !!!CC6xTC6B /C"Llamada errnea a MENSAJE_SINO !!!BUXMENSAJEXSIONOXFLAGXRESP P_SUSPEND P_SININTERFAZMENSAJEP_TRANS_MENSAJEqAqABAA10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1YV0W85VR1149459813GUK 1>`# COMMENT RESERVED =VERSION = 3.00md5PixelsClass1custommd5tohash Cadena a codificar *bourre *acompleter *md5_f *md5_g *md5_h *md5_i *rotate_left *ronde1 *ronde2 *ronde3 *ronde4 *encriptar custom2Height = 37 Width = 38 tohash = Name = "md5" PROCEDURE bourre LOCAL NBR_BIT_BOURRE, BOURRAGE Bourrage = CHR(128)+REPLICATE(CHR(0),63) NBR_BIT_BOURRE=(448-(LEN(THIS.TOHASH)*8)%512)/8 IF (LEN(THIS.TOHASH)*8)%512>=448 NBR_BIT_BOURRE=(448+((512-LEN(THIS.TOHASH)*8)%512))/8 ENDIF RETURN LEFT(bourrage,NBR_BIT_BOURRE) ENDPROC PROCEDURE acompleter LOCAL retour,decalage decalage=TRANSFORM(LEN(this.tohash)* 8,"@0") retour="" retour=retour+CHR(EVALUATE("0x"+SUBSTR(decalage,9,2))) retour=retour+CHR(EVALUATE("0x"+SUBSTR(decalage,7,2))) retour=retour+CHR(EVALUATE("0x"+SUBSTR(decalage,5,2))) retour=retour+CHR(EVALUATE("0x"+SUBSTR(decalage,3,2))) retour=retour+REPLICATE(CHR(0),4) RETURN RETOUR ENDPROC PROCEDURE md5_f LPARAMETERS x,y,z RETURN BITOR(BITAND(X,Y),BITAND(BITNOT(X),Z)) ENDPROC PROCEDURE md5_g LPARAMETERS x,y,z RETURN BITOR(BITAND(X,Z),BITAND(Y,BITNOT(Z))) ENDPROC PROCEDURE md5_h LPARAMETERS x,y,z RETURN BITXOR(X,Y,Z) ENDPROC PROCEDURE md5_i LPARAMETERS x,y,z RETURN BITXOR(Y,BITOR(X,BITNOT(Z))) ENDPROC PROCEDURE rotate_left LPARAMETERS pivot, npivot RETURN BITOR(BITLSHIFT(pivot,npivot),BITRSHIFT(pivot,32-Npivot)) ENDPROC PROCEDURE ronde1 LPARAMETERS PA,PB,PC,PD,PE,PF,PG RETURN PB+this.ROTATE_LEFT(PA+this.MD5_F(PB,PC,PD)+PE+PG,PF) ENDPROC PROCEDURE ronde2 LPARAMETERS PA,PB,PC,PD,PE,PF,PG RETURN PB+this.ROTATE_LEFT(PA+this.MD5_G(PB,PC,PD)+PE+PG,PF) ENDPROC PROCEDURE ronde3 LPARAMETERS PA,PB,PC,PD,PE,PF,PG RETURN PB+this.ROTATE_LEFT(PA+this.MD5_H(PB,PC,PD)+PE+PG,PF) ENDPROC PROCEDURE ronde4 LPARAMETERS PA,PB,PC,PD,PE,PF,PG RETURN PB+this.ROTATE_LEFT(PA+this.MD5_I(PB,PC,PD)+PE+PG,PF) ENDPROC PROCEDURE encriptar LPARAMETERS tcCadena tcCadena=ALLTRIM(TRANSFORM(tcCadena)) this.tohash=tcCadena LOCAL tocompute,CPT_I,CPT_J,CPT_L,TMP_STRING,AA,BB,CC,DD,a,b,c,d,aa,bb,cc,dd A=BITAND(0x67452301,0xFFFFFFFF) B=BITAND(0xEFCDAB89,0xFFFFFFFF) C=BITAND(0x98BADCFE,0xFFFFFFFF) D=BITAND(0x10325476,0xFFFFFFFF) DIMENSION T_X(16) tocompute=this.tohash+this.bourre()+this.acompleter() lentocompute=LEN(tocompute)/64 OldA=A OldB=B OldC=C OldD=D FOR CPT_I=0 TO lentocompute-1 FOR CPT_J=0 TO 15 T_X(CPT_J+1)="" T_X(CPT_J+1)=T_X(CPT_J+1)+RIGHT(TRANSFORM(ASC(SUBSTR(tocompute,(CPT_I*64)+(CPT_J*4)+4,1)),"@0"),2) T_X(CPT_J+1)=T_X(CPT_J+1)+RIGHT(TRANSFORM(ASC(SUBSTR(tocompute,(CPT_I*64)+(CPT_J*4)+3,1)),"@0"),2) T_X(CPT_J+1)=T_X(CPT_J+1)+RIGHT(TRANSFORM(ASC(SUBSTR(tocompute,(CPT_I*64)+(CPT_J*4)+2,1)),"@0"),2) T_X(CPT_J+1)=T_X(CPT_J+1)+RIGHT(TRANSFORM(ASC(SUBSTR(tocompute,(CPT_I*64)+(CPT_J*4)+1,1)),"@0"),2) T_X(CPT_J+1)=BITAND(EVALUATE("0x"+T_X(CPT_J+1)),0xFFFFFFFF) && CAST *? TRANSFORM(T_X(CPT_J+1),"@0") *? ENDFOR OldA=A OldB=B OldC=C OldD=D && Ronde1 a=this.ronde1(a,b,c,d,T_X( 1), 7,this.sinusarray( 1)) d=this.ronde1(d,a,b,c,T_X( 2),12,this.sinusarray( 2)) c=this.ronde1(c,d,a,b,T_X( 3),17,this.sinusarray( 3)) b=this.ronde1(b,c,d,a,T_X( 4),22,this.sinusarray( 4)) a=this.ronde1(a,b,c,d,T_X( 5), 7,this.sinusarray( 5)) d=this.ronde1(d,a,b,c,T_X( 6),12,this.sinusarray( 6)) c=this.ronde1(c,d,a,b,T_X( 7),17,this.sinusarray( 7)) b=this.ronde1(b,c,d,a,T_X( 8),22,this.sinusarray( 8)) a=this.ronde1(a,b,c,d,T_X( 9), 7,this.sinusarray( 9)) d=this.ronde1(d,a,b,c,T_X(10),12,this.sinusarray(10)) c=this.ronde1(c,d,a,b,T_X(11),17,this.sinusarray(11)) b=this.ronde1(b,c,d,a,T_X(12),22,this.sinusarray(12)) a=this.ronde1(a,b,c,d,T_X(13), 7,this.sinusarray(13)) d=this.ronde1(d,a,b,c,T_X(14),12,this.sinusarray(14)) c=this.ronde1(c,d,a,b,T_X(15),17,this.sinusarray(15)) b=this.ronde1(b,c,d,a,T_X(16),22,this.sinusarray(16)) && ronde 2 a=this.ronde2(a,b,c,d,T_X( 2), 5,this.sinusarray(17)) d=this.ronde2(d,a,b,c,T_X( 7), 9,this.sinusarray(18)) c=this.ronde2(c,d,a,b,T_X(12),14,this.sinusarray(19)) b=this.ronde2(b,c,d,a,T_X( 1),20,this.sinusarray(20)) a=this.ronde2(a,b,c,d,T_X( 6), 5,this.sinusarray(21)) d=this.ronde2(d,a,b,c,T_X(11), 9,this.sinusarray(22)) c=this.ronde2(c,d,a,b,T_X(16),14,this.sinusarray(23)) b=this.ronde2(b,c,d,a,T_X( 5),20,this.sinusarray(24)) a=this.ronde2(a,b,c,d,T_X(10), 5,this.sinusarray(25)) d=this.ronde2(d,a,b,c,T_X(15), 9,this.sinusarray(26)) c=this.ronde2(c,d,a,b,T_X( 4),14,this.sinusarray(27)) b=this.ronde2(b,c,d,a,T_X( 9),20,this.sinusarray(28)) a=this.ronde2(a,b,c,d,T_X(14), 5,this.sinusarray(29)) d=this.ronde2(d,a,b,c,T_X( 3), 9,this.sinusarray(30)) c=this.ronde2(c,d,a,b,T_X( 8),14,this.sinusarray(31)) b=this.ronde2(b,c,d,a,T_X(13),20,this.sinusarray(32)) && ronde 3 a=this.ronde3(a,b,c,d,T_X( 6), 4,this.sinusarray(33)) d=this.ronde3(d,a,b,c,T_X( 9),11,this.sinusarray(34)) c=this.ronde3(c,d,a,b,T_X(12),16,this.sinusarray(35)) b=this.ronde3(b,c,d,a,T_X(15),23,this.sinusarray(36)) a=this.ronde3(a,b,c,d,T_X( 2), 4,this.sinusarray(37)) d=this.ronde3(d,a,b,c,T_X( 5),11,this.sinusarray(38)) c=this.ronde3(c,d,a,b,T_X( 8),16,this.sinusarray(39)) b=this.ronde3(b,c,d,a,T_X(11),23,this.sinusarray(40)) a=this.ronde3(a,b,c,d,T_X(14), 4,this.sinusarray(41)) d=this.ronde3(d,a,b,c,T_X( 1),11,this.sinusarray(42)) c=this.ronde3(c,d,a,b,T_X( 4),16,this.sinusarray(43)) b=this.ronde3(b,c,d,a,T_X( 7),23,this.sinusarray(44)) a=this.ronde3(a,b,c,d,T_X(10), 4,this.sinusarray(45)) d=this.ronde3(d,a,b,c,T_X(13),11,this.sinusarray(46)) c=this.ronde3(c,d,a,b,T_X(16),16,this.sinusarray(47)) b=this.ronde3(b,c,d,a,T_X( 3),23,this.sinusarray(48)) && ronde 4 a=this.ronde4(a,b,c,d,T_X( 1), 6,this.sinusarray(49)) d=this.ronde4(d,a,b,c,T_X( 8),10,this.sinusarray(50)) c=this.ronde4(c,d,a,b,T_X(15),15,this.sinusarray(51)) b=this.ronde4(b,c,d,a,T_X( 6),21,this.sinusarray(52)) a=this.ronde4(a,b,c,d,T_X(13), 6,this.sinusarray(53)) d=this.ronde4(d,a,b,c,T_X( 4),10,this.sinusarray(54)) c=this.ronde4(c,d,a,b,T_X(11),15,this.sinusarray(55)) b=this.ronde4(b,c,d,a,T_X( 2),21,this.sinusarray(56)) a=this.ronde4(a,b,c,d,T_X( 9), 6,this.sinusarray(57)) d=this.ronde4(d,a,b,c,T_X(16),10,this.sinusarray(58)) c=this.ronde4(c,d,a,b,T_X( 7),15,this.sinusarray(59)) b=this.ronde4(b,c,d,a,T_X(14),21,this.sinusarray(60)) a=this.ronde4(a,b,c,d,T_X( 5), 6,this.sinusarray(61)) d=this.ronde4(d,a,b,c,T_X(12),10,this.sinusarray(62)) c=this.ronde4(c,d,a,b,T_X( 3),15,this.sinusarray(63)) b=this.ronde4(b,c,d,a,T_X(10),21,this.sinusarray(64)) a=a+olda b=b+oldb c=c+oldC d=d+oldd ENDFOR a=TRANSFORM(BITAND(a,0xFFFFFFFF),"@0") && cast b=TRANSFORM(BITAND(b,0xFFFFFFFF),"@0") && cast c=TRANSFORM(BITAND(c,0xFFFFFFFF),"@0") && cast d=TRANSFORM(BITAND(d,0xFFFFFFFF),"@0") && cast a=SUBSTR(a,9,2)+SUBSTR(a,7,2)+SUBSTR(a,5,2)+SUBSTR(a,3,2) b=SUBSTR(b,9,2)+SUBSTR(b,7,2)+SUBSTR(b,5,2)+SUBSTR(b,3,2) c=SUBSTR(c,9,2)+SUBSTR(c,7,2)+SUBSTR(c,5,2)+SUBSTR(c,3,2) d=SUBSTR(d,9,2)+SUBSTR(d,7,2)+SUBSTR(d,5,2)+SUBSTR(d,3,2) RETURN a+b+c+d ENDPROC PROCEDURE Init * MD5=CREATEOBJECT("MD5") * MD5.tohash="abc" * ? MD5.compute() this.AddProperty("SinusArray[64]") #DEFINE MAX_UINT 4294967296 LOCAL I FOR I = 1 TO 64 this.SinusArray(I)=TRANSFORM(MAX_UINT*ABS(SIN(I)),"@0") this.SinusArray(I)=BITAND(EVALUATE(this.SinusArray(I)),0xFFFFFFFF) &&CAST ENDFOR RETURN .T. ENDPROC " %wU TC CC ?Q'TCC>G $%CC>G-TCC>G BC=UNBR_BIT_BOURREBOURRAGETHISTOHASH TCC>@0_ T#TCC0xC \ #TCC0xC\ #TCC0xC\ #TCC0xC\ TCC Q BURETOURDECALAGETHISTOHASH0BCCCCUXYZ0BCCCCUXYZ$BCUXYZ*BCCCUXYZ- BCCC UPIVOTNPIVOTV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_FV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_GV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_HV4BCC U PAPBPCPDPEPFPGTHIS ROTATE_LEFTMD5_IWTCC_TG        T C #Eg A#T C qA A#TC [A ATC vT2 A  TCCTC>@ T T T T((TKTCCCCC@\@0_RKTCCCCC@\@0_RKTCCCCC@\@0_RKTCCCCC@\@0_R5TCC0xC A T T T T5T C CC5TC C C5TC CC5T C  CC5T C CC5TC C C5TC CC5T C  CC5T C C C 5TC C  C 5TC C C 5T C  C C 5T C C C 5TC C C5TC CC5T C  CC5T C CC5TC C C5TC C C5T C  CC5T C CC5TC C  C5TC CC5T C  CC5T C C C5TC C C5TC CC5T C  C C5T C CC5TC C C5TC CC5T C  C C 5T C CC!5TC C  C"5TC C C#5T C  CC$5T C CC%5TC C C&5TC CC'5T C  C C(5T C CC)5TC C C*5TC CC+5T C  CC,5T C C C-5TC C  C.5TC CC/5T C  CC05T C CC15TC C C25TC CC35T C  CC45T C C C55TC C C65TC C C75T C  CC85T C C C95TC C C:5TC CC;5T C  CC<5T C CC=5TC C  C>5TC CC?5T C  C C@T  T  TT"T CC A@0_"T CC A@0_"TCC A@0_"TCC A@0_9T C  \C \C \C \9T C  \C \C \C \9TC \C\C\C\9TC \C\C\C\B UTCCADENATHISTOHASH TOCOMPUTECPT_ICPT_JCPT_L TMP_STRINGAABBCCDDABCDT_XBOURRE ACOMPLETER LENTOCOMPUTEOLDAOLDBOLDCOLDDRONDE1 SINUSARRAYRONDE2RONDE3RONDE4CSinusArray[64](@.TC ACCD@0_.TCCC ABaUTHIS ADDPROPERTYI SINUSARRAYbourre0 acompletermd5_fmd5_g`md5_hmd5_i rotate_leftronde1Uronde2ronde3}ronde4 encriptarInit1qAA21111222!222A2A2A2A2qr111qRCSQQQRQQQRQQQRQQQRQQQRQQQRQQQRQQQSQQQRQQQRQQQRQQQSQQQRQQQRQQQRQQQA!!!!R3sAq1! B *j"!|&"*%r.(2+ h6.;:V)% f& knTa@"BCUXAUT2XORIGENXDESTINOXMSGXUNZIPXFOLDERFTP_RECIBIR_ARCHIVOSk5    T G+(listadosG+(sys_upload_ftp.prg< T- T  U(TCFTPsys_upload_ftp.prgTCTCTTC%Q T-T (sT %!TArchivo recibido !!! %% #TError al recibir:  !4T'Error al recibir el archivo por FTP !!!% TCwwZipN T T TC*.*(TT %R 4T#No se pudo deszipear los archivos: <<% C C [C BU XAUT2XORIGENXDESTINOXMSGXUNZIPXFOLDERXOKXOK2OZIPXTMPFILE XTMPLOCALXERRXAUTLISTADOSSYS_UPLOAD_FTPPRGWWCLIENTOFTPUSRDECRYPT P_FTP_USERPWD P_FTP_PASSLOCALDIRFTPGETNERROR CERRORMSGOEXMESSAGE UNZIPFILES ESTADO_RELMENSAJE5 T G+(listadosG+(sys_upload_ftp.prg< QFTP T- T P(T CFTPsys_upload_ftp.prgT CT CT TC % L T-T (nT%!TArchivo recibido !!! >% #TError al recibir:  :RT'Error al recibir el archivo por FTP !!!CC C 6< <% i C C BUXAUT2AFILXFOLDERXOKXOK2OZIPXTMPFILE XTMPLOCALXERRXAUTLISTADOSSYS_UPLOAD_FTPPRGOFTPUSRDECRYPT P_FTP_USERPWD P_FTP_PASSLOCALDIRFTPLISTNERROR CERRORMSGOEXMESSAGEXMSGP_DEV ESTADO_RELMENSAJE 7BUARRftp_recibir_ArchivosListar_Archivos8dummy!2"qtQQaAA1AAAaRA2QAAArqA2P!sQQaAA1!AAsqA3A3: Hc %RX 4 G)(G1G2G/GGG0G%G % fG britishG.G G G GH( G (G0C ]G GM(GI G>( G>G] G_ G % G GZ G9(GB G( GF-%C p_dir_sourcesbCC { G)(% ^%Cp_systembC  \gessystem %Cp_serverbCZ G(%C\ges.dbc0V ges H C R %-}C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]C#]Cu#]Cv#]C#]U XBUGXNOABRIRP_LOCALBRITISH P_DIR_SOURCESP_SYSTEMP_SERVERGESABRIR_TABLAS_FIJAScaaaaaaaAaaaaqaaaAaaaaaAadAAAAAAAB1%D;Q]~G5 TC%Ccfg_con NFQ \cfg_con.gesF%q#) %CN+CN #3<     37     TTTCX T- T- T N T - T - T - T aTCX T-TCTCTCTCTCT CT CT CT C T C TC TC %C FBUAAAP_LOCALCFG_CONP_CODEMPPCO_001PCO_002PCO_003PCO_004PCO_005PCO_006PCO_007PCO_008PCO_009PCO_010PCO_011PCO_012ACT4TCCCZ!%CCCC./[gK return &x TCCZTpco_000*TCC>C>C>[ return &y UINDICEXZYactssAq1Q!1QAAA2121RAA2qaAA207%n)L*4 5 TTCpreguntaNTC^TTC T TC^T -!TCC }DT C T Atencin !!!T-T -TT-T-T9 < TC9 8Ta  BUMENSAJEOPCIONESTIEMPOWDW RESPUESTA BACKCOLORTEXTOCAPTIONWIDTH TEXTWIDTH ALIGNMENT CONTROLBOXHEIGHT TEXTHEIGHTCLOSABLE WINDOWTYPE MAXBUTTON MINBUTTONTOPLEFT AUTOCENTERSHOW 4%CCC fCfCTCCC f  % ~TCC=f UNKEYCODEAOPCIONES RESPUESTATHISFORMRELEASEkeypress< Ta T Ta .Q UDESKTOP SHOWWINDOW AUTOCENTERTEXTOLABELpreguntaform21a:11AAA8=22)#?"0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _RIO19GJO8 577153425%2? COMMENT FONTINFO  WINDOWS _RK118EGZB 580429148#8E COMMENT FONTINFO  WINDOWS _ROH188Y2Y 591504596#/;G WINDOWS _ROH188Y3S 591504596E Q ] j v h  WINDOWS _ROH188Y55 591504596 WINDOWS _ROH188Y5J 591504596& 5 D Q k WINDOWS _ROH188Y73 591504596 %5A5 WINDOWS _ROH188Y81 591504596 WINDOWS _ROH188Y8P 591504596iv COMMENT RESERVED  WINDOWS _RO4150XMQ 621322899]hz2 *8 WINDOWS _RIO19GJO8 621322899v3}I WINDOWS _RIO19GJO8 621322899RK WINDOWS _RO415FGCG 621322899kx+Ԫ WINDOWS _RO415FGD6 621322899(7DRy COMMENT RESERVED  & WINDOWS _RX814FMZW 621452150 !K#*#3## WINDOWS _RX815KUVL 621452150##### WINDOWS _RX815KUWB 621452028B$U$h$|$$& WINDOWS _RX815KUYW 621452028).)C)S)n)){ WINDOWS _RX815KV02 621452150*+++9+O,, WINDOWS _RX815KV1S 62145215000000N1U/ COMMENT RESERVED (585 WINDOWS _RIO19LGOE 62682490055555777{88 COMMENT RESERVED 88 WINDOWS _RWG0K52BL 628139866899(9<9 ::#: COMMENT RESERVED 1:E: WINDOWS _S1C15RIJB 639867913\;n;;;;<<<[< WINDOWS _S1C15VMW1 639867913i<<<<<< COMMENT RESERVED }== WINDOWS _RX50YPZFV 641837160==>>%>??? COMMENT RESERVED *?9? WINDOWS _RTB18WH35 611756035?????*A7A@A COMMENT RESERVED NAbA WINDOWS _S0210CPM0 646408699AAAA.B*{CCC COMMENT RESERVED C WINDOWS _RIN0SOMVN 653166107CCCCDƪOOO.P WINDOWS _RIN0SOLWQ 619668203cScccocd WINDOWS _RIN0SOM8R 619668204BhWhlh|hhi̳ WINDOWS _RIN0SOMB2 619668204l m m0mJ WINDOWS _S6U0XAZJS 653556747u COMMENT RESERVED  WINDOWS _0361012SW 681018916.@Q`z COMMENT RESERVED WINDOWS _0360ZZ78I 681293990)8 COMMENT RESERVED WINDOWS _0391BKANI 681312540 ->RNv+ COMMENT RESERVED 9M WINDOWS _RX018M5BA 681808947ʺ޺P]f COMMENT RESERVED t WINDOWS _0AX0UV7CL 708473604¿ COMMENT RESERVED  WINDOWS _0AX0UVWIW 7084793147Oap COMMENT RESERVED  WINDOWS _RWP0SBVP0 715817852&=UQ^g COMMENT RESERVED u WINDOWS _0EK0CEPWC 717630968!. WINDOWS _0EK0CEPWD 7176309687CO\mI COMMENT RESERVED WINDOWS _0EM0R8JWE 722290777  WINDOWS _RIO19GJO8 717776301#8J[m WINDOWS _0EM0RCBCL 717776301(:K]v COMMENT RESERVED F_ WINDOWS _0GH0IKC5O 722355503 COMMENT RESERVED WINDOWS _RXC11MIZI 728054138 COMMENT RESERVED 1 WINDOWS _0EI0QD10O 728131252_kw<IRn COMMENT RESERVED | WINDOWS _0KS132SN1 741252954_~) .;L WINDOWS _0KS15L9C9 741252569Zix WINDOWS _0KS16N5SB 741252913(=M[= COMMENT RESERVED ;I WINDOWS _RWG0K48WX 743608978 COMMENT RESERVED  WINDOWS _RXM0N6P74 743674156&8I_, E d COMMENT RESERVED  WINDOWS _0390XU6JC 749504564-=O`tz COMMENT RESERVED  WINDOWS _0O20ZO8TH 749504685AQct!! COMMENT RESERVED *!C! WINDOWS _RS110OYKO 751131650!!!!"2 t%t%& WINDOWS _RS110RGWA 751131650&&&&&#(& COMMENT RESERVED ,, WINDOWS _0B00H5RCE 761692464OOOOO.Q\Q COMMENT RESERVED jQ~Q WINDOWS _0TE0RTQ6Y 762603588QQQR$RDS0QS WINDOWS _0TE0RWF9P 762603588_StSSSS+TN COMMENT RESERVED UV WINDOWS _0D3151PQG 763641110VVVVVEX_X COMMENT RESERVED mXX WINDOWS _RW90QJYI8 786544856BRdu!7; COMMENT RESERVED I] WINDOWS _RW90R5ZQI 786544870 COMMENT RESERVED  WINDOWS _RWG18C3FQ 786544880JZl} COMMENT RESERVED   WINDOWS _RWF15BK1W 786544889ScuE` COMMENT RESERVED n WINDOWS _02X0T8SHC 7865449016O COMMENT RESERVED ]q WINDOWS _12Y0JASFR 794576982'9Ja4"R COMMENT RESERVED `w WINDOWS _0I90WTWJH 795511960tF COMMENT RESERVED  WINDOWS _04W129M5F 797342987?!3DVs.l WINDOWS _04W16GCEL 685284878 WINDOWS _04W16GCEV 685284878  COMMENT RESERVED  WINDOWS _S68183OO9 807881862Bc"  WINDOWS _S68187F6M 807881862 &7 WINDOWS _S68187F6T 651994286H COMMENT RESERVED Qb WINDOWS _0BN0JN6N0 807881872d. WINDOWS _RIO19GJO8 748309020<QfvI WINDOWS _0BN0KBPDE 716618500+ COMMENT RESERVED  WINDOWS _RR619U4DS 807881894 + = N _  o  WINDOWS _RR619WVA4 606382888  ( 7 K \  COMMENT RESERVED    WINDOWS _RR618MD5T 807881898D U f }    WINDOWS _RR618VSLW 807881898    1  WINDOWS _RIO19GJO8 606382810      COMMENT RESERVED   WINDOWS _0FH128NXB 808025473m}  WINDOWS _RIO19GJO8 719949448.BTt WINDOWS _RIO19GJO8 719949560 1xRa COMMENT RESERVED 4C WINDOWS _0NO0WUVX8 808025519n ))0)?))) WINDOWS _0NO0X3ZVX 748452699)))/~** WINDOWS _RIO19GJO8 748452699***** COMMENT RESERVED ++ WINDOWS _0TS0GG5Z9 808025543g4:::: ;m?; WINDOWS _0TS0GI6TM 763642146M;a;s;b;; WINDOWS _0TS0GI6TN 763642146%<9<K<\<k< COMMENT RESERVED -=<= WINDOWS _08S0VDLA1 808025560====>c> WINDOWS _08S0VJ1PL 694908243>1>C>d>s> WINDOWS _08S0VJ1PV 694908243>??+3?B? COMMENT RESERVED ?? WINDOWS _0390XXFTT 808025585pBBBBB9B WINDOWS _0390Y0B1F 681213569CC-C2+>CMC WINDOWS _0390Y0B1P 681213569CCCD*D COMMENT RESERVED DD WINDOWS _1550H5F67 808291700IIIIEL+>˺ COMMENT RESERVED ʾ WINDOWS _16H1809WO 814124635K=U2_ր:o5  COMMENT RESERVED rd WINDOWS _17E0PP8LR 814126267%4  COMMENT RESERVED Ƈ WINDOWS _17K13I2KS 814512677A~G8 , COMMENT RESERVED Y' WINDOWS _17Q0F288G 814692460ʸbL54& COMMENT RESERVED M WINDOWS _17S0Z9G8Z 814842743 I COMMENT RESERVED i5 WINDOWS _1720Y5HN0 815098075J@c{uL WINDOWS _1720YS1IB 813798560 'x}Ur WINDOWS _1720YS1IC 814779970ZF8 KRs COMMENT RESERVED mO WINDOWS _RK118BY72 817396935"" '/ COMMENT RESERVED f2 WINDOWS _1570S8QBL 818585354ԨyOћk`kql COMMENT RESERVED p WINDOWS _0RF0T4V0Y 818585607d=5/  u WINDOWS _0RF0XWGHM 75802643555*V WINDOWS _RIO19GJO8 818585607F>Ġ͉ WINDOWS _0RK0L7UWL 758075995Zq COMMENT RESERVED " WINDOWS _1AR10ISDK 822307303jf%f-,Jf: COMMENT RESERVED  WINDOWS _RWP0SF3KB 826115158PWr QB COMMENT RESERVED  WINDOWS _08R0YCD1M 827949480rwnY7` WINDOWS _08R0YI6XH 694892160cQ@o1 WINDOWS _08R0YI6XR 694845628oH`K COMMENT RESERVED Q WINDOWS _1D30Y220R 827954760\bx WINDOWS _1D30YRMC9 827954760H6%! WINDOWS _1D30YRMCA 827954760 I COMMENT RESERVED i WINDOWS _1D410W0AI 829386546  $},-8Ng COMMENT RESERVED GE WINDOWS _1DX0R0GDN 829973971ٝh WINDOWS _1DX0R538L 829973752  WINDOWS _1DX0R538M 8299737520 COMMENT RESERVED - WINDOWS _1D410Y9UA 829976823þ?58T COMMENT RESERVED xW WINDOWS _08H0PR6H9 842299457xj.3 o%? WINDOWS _08H0PZ3FC 808025393^wŬ WINDOWS _08H0PZ3FW 759582747sHd^f COMMENT RESERVED m v WINDOWS _1CQ0R4GOI 842348997)?Bfrbw22% COMMENT RESERVED u WINDOWS _1AO0WU1LR 847625587G9BK- ) COMMENT RESERVED ? WINDOWS _1AO0WYSX5 847666048>+'ьf  cr WINDOWS _1AR10OXX9 822249716Y^ WINDOWS _1AO0X2LA6 822249701.h WINDOWS _1AO0Y6XJI 8476653557Hu)q WINDOWS _1AR113AL3 847664957K u% COMMENT RESERVED mm WINDOWS _03A1DKOZI 850612876R!7u k WINDOWS _03A1DOS7C 681294214>1#\ WINDOWS _RIO19GJO8 681336992 WINDOWS _03A1DOS7M 681336992 COMMENT RESERVED  WINDOWS _08S0VUY3S 85073616622Nx71Y5 COMMENT RESERVED " WINDOWS _1DX0R5F5V 850736689nJ%l  WINDOWS _1DX0R7CK4 829973970rkao WINDOWS _1DX0RDUKL 850736205L\ ]~b COMMENT RESERVED 9 WINDOWS _0R80ZB4O5 862080271zJ[(( qN COMMENT RESERVED H 2 WINDOWS _1NH0KTIT7 862080442[d͚$% WINDOWS _1NH0KXY9K 862080442F WINDOWS _1NH0KXY9O 862080442[sv COMMENT RESERVED  WINDOWS _1P30LUG9F 866013672Z*1Yx COMMENT RESERVED L WINDOWS _1S60LWB9E 882007085ž%n COMMENT RESERVED  WINDOWS _1U50L4DYU 886853226\vޤ COMMENT RESERVED  WINDOWS _1U50L50AX 886853241rBԆ COMMENT RESERVED  WINDOWS _1U50L5DG2 886853251ug >l COMMENT RESERVED Ʌ WINDOWS _1U50L9U33 886853380;YZ COMMENT RESERVED Ń WINDOWS _1U50LBNRZ 886853408y8Sp COMMENT RESERVED  WINDOWS _1U50LCFGB 886853426;XutO]fO COMMENT RESERVED IO WINDOWS _1U50LCUJQ 886853436M6ORNN'NMM COMMENT RESERVED M WINDOWS _1U50LD1XR 886853443Mg?fM N COMMENT RESERVED  WINDOWS _1U50LDBLW 886853449@ COMMENT RESERVED r WINDOWS _1YR0ICU0M 898320108D{G:SpA COMMENT RESERVED [T WINDOWS _0GG0G5MZZ 911957786?P_2t$ COMMENT RESERVED  WINDOWS _0GF1DQNHF 917209600h" a}i5 WINDOWS _0GG0FKUZ9 7222875884' WINDOWS _RIO19GJO8 7222875886|7Cu WINDOWS _0GG0FKUZJ 722287588M3dž } COMMENT RESERVED ^ WINDOWS _0351ADQMT 924614685U0B$+ɽ WINDOWS _0361AEQY7 681028838#RIs_syU WINDOWS _0361AEQZ1 924614685 #% COMMENT RESERVED (o WINDOWS _RWG0K1END 924614883Ԭh#tizMm܇ڵ COMMENT RESERVED $ WINDOWS _2610Y3HQT 924681577.''7 oA COMMENT RESERVED < WINDOWS _2610Y5FCP 924682249z׶*kv WINDOWS _2610Y8VH2 9246144856-6 D:v WINDOWS _2610Y8VH3 924682249Z dzxX COMMENT RESERVED yΡ WINDOWS _0I90X9K30 928026703rd COMMENT RESERVED M$ WINDOWS _17A0B13A3 928419525\XAO 8m^ COMMENT RESERVED  WINDOWS _RZF18FJHM 932354663r) g) COMMENT RESERVED \g WINDOWS _29510W3V6 932355926g{ WINDOWS _29511DBRV 932355926 M WINDOWS _2ET0SLME9 954690264= WINDOWS _2ET0SLMEA 9546901962ʌFYv*Q` WINDOWS _2ET0SLMEC 954690251):ދ WINDOWS _2ET0SLMED 9546902640-u COMMENT RESERVED  WINDOWS _2ET0SHXRM 954691182,diT` e:7Hd` COMMENT RESERVED x4M WINDOWS _2ET0XM3KG 954695028+ f7|{ COMMENT RESERVED )| WINDOWS _2GG0O6NUW 9586869375$ թ COMMENT RESERVED ص WINDOWS _RK312NJ3R 959530520C,CCwOM B|4B COMMENT RESERVED BB WINDOWS _2QX11C40V 992971963k{UbG COMMENT RESERVED . WINDOWS _2YX0YBMC31021083884|m\ Tr4 WINDOWS _RIO19GJO8 927559781r"G_"j  WINDOWS FONTINFO 813796887l WINDOWS _RK118BY72 813570903'|{F'* WINDOWS _17A07DVBU 817531332G1`E WINDOWS FONTINFO 813572551  WINDOWS _RK118EGZB 817531332!BBбQX} WINDOWS FONTINFO 1024087768B% ˎb/ WINDOWS _RK312NJ3R 817531332%t _3. WINDOWS FONTINFO 1024087768nTwi WINDOWS _ROH188Y2Y 817531332?jA߯ WINDOWS _ROH188Y3S 813570903Aύ WINDOWS _ROH188Y55 8175313322#v޻F WINDOWS _ROH188Y5J 813572551xو WINDOWS _ROH188Y73 817531332Qv# A WINDOWS _ROH188Y81 813579866vuuv WINDOWS _ROH188Y8P 817531332ut1sty v WINDOWS RESERVED 813579866#spprq WINDOWS _RO4150XMQ 817531332#ommn4tp WINDOWS _RIO19GJO8 817531884mM?kkvd WINDOWS _RIO19GJO8 817531332gdLALAlFT WINDOWS _17A08X98A 813572551CC9@aF3F WINDOWS _17A08X98B 817531332:9@E/@ WINDOWS _17A08X98C 81424830759_W%9, WINDOWS _17A08X98D 817531332  .C? z WINDOWS _17A08X98E 814512257  ;  WINDOWS _17A08X98F 8175313321"i 7+ WINDOWS _17U04L8BW 814944527 WINDOWS _17U04L8BX 814944527yj] WINDOWS _17U04L8BY 817531499w> WINDOWS _17U04L8C0 814944527/ e6 WINDOWS _17U04L8C2 817531499( ܩ WINDOWS _17U04L8C3 814944527wj;; WINDOWS _18V114LSC 817531499- WINDOWS _18V114LSD 817531499R WINDOWS _17A0BAAU3 813665627В~Yq^ COMMENT RESERVED ֍ WINDOWS _31I1216SA10274455841zuzezLzW^h0T COMMENT RESERVED @qz WINDOWS _1U50L3N1Q1032226224= J$.qE COMMENT RESERVED u WINDOWS _1V412T27C10508945884LLL}PbkQ4^4aC4 COMMENT RESERVED q007 WINDOWS _37G0LK4GQ1052933750.=&%g COMMENT RESERVED  WINDOWS _39C0WDOPW1055291727z_qGDEqCA COMMENT RESERVED 9/5 WINDOWS _3CB0S543L1062562375   .N COMMENT RESERVED  WINDOWS _0S10W8JGU1076523174hky57 4 ]4 WINDOWS _0S10W8ZMS 7593309044*ݳb~ WINDOWS _0S10W8ZMT 759330904:P0ھ COMMENT RESERVED #4 WINDOWS _0S10W6LCX1076523801fUm(q 5d^A' WINDOWS _0S10W7YUD 759330880A/Cx WINDOWS _0S10W7YUE 759330880 COMMENT RESERVED 6 WINDOWS _0FH0Z5X0Q1082425444yO>.xEr a-s WINDOWS _0FH0Z94IF 719946587* ?F$ WINDOWS _0FH0Z94IK 719946587یɌA-x5 COMMENT RESERVED d| WINDOWS _0FH0Z9AQ01082425504ajYa&, zaaӇla WINDOWS _0FH0ZBXQC 719946658;{*{{{z WINDOWS _0FH0ZBXR7 719946658yyaaa4y COMMENT RESERVED ]aa WINDOWS _3HD1A73VD1083356212paP. 7 ha WINDOWS _RIO19GJO810833562124PQ WINDOWS _3HD1CCSU61083356212# ƶs COMMENT RESERVED t\1 WINDOWS _3HD19TBYF1083356332]-;}Am$NLT WINDOWS _RIO19GJO81083353940E#R(l WINDOWS _3HD19YMEO1083353940M}J/U1 COMMENT RESERVED % WINDOWS _3HD1CDG2O1083356547ܛƵTb&8 WINDOWS _RIO19GJO81083356279° o WINDOWS _3HD1CFIKX10833565475lk COMMENT RESERVED A܉ WINDOWS _3HD1CV9EV10833581823:":&7 WINDOWS _RIO19GJO81083358182:97|7$8 WINDOWS _3HD1CXUI410833567377) ''JN COMMENT RESERVED q"$ WINDOWS _3HD1D8NCV1083358282J:E:mк!$ WINDOWS _RIO19GJO81083358282m"U" WINDOWS _3HD1DA56B1083358282~rխ  COMMENT RESERVED 6d WINDOWS _3AI13K9YP1083358981o  COMMENT RESERVED @8 WINDOWS _3HD1D3VNY1083359012^tٌY j3 COMMENT RESERVED ¤ WINDOWS _3AI13H6MB1083359032z*Přޤ#/R COMMENT RESERVED 0 WINDOWS _3B20H0QZ51083359052_Abf COMMENT RESERVED 6 WINDOWS _0551DUSB71087138085A nNسR COMMENT RESERVED lb WINDOWS _3IZ0UOW3U1087337063XP2P) COMMENT RESERVED  WINDOWS _08S0VRQ74111688548134֙!G1 WINDOWS _08S0W05KD 6949086688^e WINDOWS _08S0W05KN 6949086685 54l4k COMMENT RESERVED L.2 WINDOWS _38E0Y1MI21131250714ggz3 TN^b7 COMMENT RESERVED =g WINDOWS _40P0O9XX81147952482T>+R.S |S COMMENT RESERVED  WINDOWS _4360WCV5K1154054963z 6β COMMENT RESERVED  WINDOWS _46X16EEFT1163351000`j COMMENT RESERVED Q WINDOWS _47D0Q1P351164403537T4_0ڸ COMMENT RESERVED   WINDOWS _47G178PCN1164869770מ3a7<Ї ׈ COMMENT RESERVED  WINDOWS _1L80J7ZS71184137000Gf|fkfWfeR0)@^ COMMENT RESERVED 3fe WINDOWS _4BZ0Y9MB81184137723#ee/  COMMENT RESERVED /M WINDOWS _4E013L95J1190214216f^WkfjM]y 4Bb WINDOWS _4E013LW181189255184jjggqg WINDOWS _4E013LW191189255184dgWg.gfk COMMENT RESERVED -^f WINDOWS _4FH12YHI21193514136sm-2 fԠX WINDOWS _RIO19GJO81193046059#ܲ<)d WINDOWS _RIO19GJO81193046059~%Ac WINDOWS _RIO19GJO81193046059qdwA^ WINDOWS _4FI0G44LS1193046059j]J-] COMMENT RESERVED E WINDOWS _4H80I6UPC1197097899$u†P  COMMENT RESERVED -2 WINDOWS _4ME0Z30M11218153206$'kv COMMENT RESERVED  WINDOWS _1PQ0R5YGC1219127316SI8c*L COMMENT RESERVED @U WINDOWS _RW912DQFA1227440851M{ĄXuI(u COMMENT RESERVED uz WINDOWS _3IZ0V2NJR1229814683$} h COMMENT RESERVED  WINDOWS _04L0O3SJI12298148435WH[?Dtd COMMENT RESERVED & WINDOWS _S1C0R4FOI1231716387S!.!-q Ӹ COMMENT RESERVED *?" WINDOWS _1WV0MPA6L1232422748yyyy\ ~u= COMMENT RESERVED ( WINDOWS _04W0ZXT8H1245146742+3Q COMMENT RESERVED r'% WINDOWS _RXM124LPA1248295032eLu*/D}ek COMMENT RESERVED ȔX- WINDOWS _1WV0YZ5GQ1251500629\(\|!I\\\ WINDOWS _1WV0Z1P4L1251500629((d(s) WINDOWS _RIO19GJO81251500529P]]\\( COMMENT RESERVED \S\ WINDOWS _4XD117EMF1253739561q' J%$} COMMENT RESERVED ] WINDOWS _RWG0K3G071253739562Kl&2B COMMENT RESERVED c WINDOWS _RWV0ZOX041254506953wV@M COMMENT RESERVED |$ WINDOWS _RS414R9PN126717253844mBQ 4b?4 WINDOWS _RS414UEKB1267172538nx6|jN WINDOWS _RS414UELA 80788185205O,? COMMENT RESERVED 44 WINDOWS _4TY0TKIP31267174103ߑbIy COMMENT RESERVED d WINDOWS _53D128L1P1268553039EVLV*1 WINDOWS _53D12F5T01268553039g/>s COMMENT RESERVED 4 WINDOWS _4S60J1EWT1278445253gΑ/u" COMMENT RESERVED du? WINDOWS _54I0R1CQY1279622678W|@q*gL j COMMENT RESERVED & WINDOWS _54I0Y8ZIU1279625897,5!!@Q COMMENT RESERVED ܸ WINDOWS _4E00XLMQM1288006255Qpu $apegT[`= hkk ^ WINDOWS _4E00YMTFW1189253801$r WINDOWS _4E00YMTFX1288006255tp"< COMMENT RESERVED kk WINDOWS _4E013K4OT1288007981"''D "S" COMMENT RESERVED " WINDOWS _4E018GQNE1288008376(L4'( q'Y9 (J ' WINDOWS _RIO19GJO811892617033333o WINDOWS _4E018JFO311892587133/38(4] COMMENT RESERVED '' WINDOWS _5960PYQNL1291281213F\k\g$6 w\H WINDOWS _5960Q5WJY1291280777X\A_#$ COMMENT RESERVED o WINDOWS _0WI0M1ZWA1294305860\$]]\{\ʸ8 COMMENT RESERVED \\ WINDOWS _15501HCS21319015197 MS  q- COMMENT RESERVED  WINDOWS _5H30GGE2Y1319255548F7D278nL COMMENT RESERVED (' WINDOWS _5IQ0RQ1Y41323203310&432'x^L COMMENT RESERVED &' WINDOWS _4RV0Y6QVV13260278694Or 4 z COMMENT RESERVED H. WINDOWS _5KT0ZRS3R13283866811#(lxyk WINDOWS _5KT0ZWLZH1328385394" 8W WINDOWS _5KT0ZWLZI1328386681 x "( WINDOWS _5KT11ZS8L13283853947 COMMENT RESERVED [2 WINDOWS _0QR107DI51351314132'PJu|W WINDOWS _0QR10F8FW 947616589iTC-~SY WINDOWS _0QR10F8G6 947616589" Dz', WINDOWS _0QR10F8G7 947616589ҘA71Aj{X WINDOWS _0QR10F8GG1219204666@9!dA WINDOWS _0QR10F8GH 947616589cpk WINDOWS _18J108YIP 816744151W7 COMMENT RESERVED  WINDOWS _S15197N6Z1351314141dxmMq7Ev9x WINDOWS _RIO19GJO8 756121122ߠ3" vEd WINDOWS _RIO19GJO8 756121122z -^ WINDOWS _RIO19GJO8 756121122{j^|UF WINDOWS _S1B131UHY 756121122I|4|n%x̜0 WINDOWS _0LK0JVCOV 756121122v>sio3>@u COMMENT RESERVED ie WINDOWS _1960Q8ZPQ1356240550iqCV{Kٿj<ku WINDOWS _1960QAJGT 8183087621fZ;Y WINDOWS _1960QAJGW1356240550ncݢXZ WINDOWS _1960QMX60 818308762ȢAQC oP WINDOWS _1960QMX63 818308762E0 . WINDOWS _1960QMX651356240550&(E WINDOWS _1960R3B8B1356240550]= WINDOWS _1960R3B8E1356240550[ʪ WINDOWS _RIO19GJO81356240550ԕ~ WINDOWS _1960RLW7V1356240550~0wu` COMMENT RESERVED w& WINDOWS _RW9117NLG1364893997*S?w" COMMENT RESERVED h WINDOWS _0FH125X5B1364958013V?I&D}I5oI WINDOWS _RIO19GJO81364958013ta WINDOWS _0FH128DSX 719949530lض COMMENT RESERVED `I WINDOWS _5XL15FHCZ1368301250la}2`Uj WINDOWS _RIO19GJO81368300721*KQa WINDOWS _RIO19GJO81368301135*OL# WINDOWS _5XL15RWMG1368301135|m ^`~T WINDOWS _5XL15RWMH1368300462( COMMENT RESERVED `C WINDOWS _0LS14LXMP1381070552 1C<چ$  COMMENT RESERVED wkNk WINDOWS _04L0NRA171381071299djddF'bd COMMENT RESERVED b` WINDOWS _0FH11K3BK1387104824u!n!4^ WINDOWS _RIO19GJO81387104824Di WINDOWS _0FH11W0G91387104824(Z COMMENT RESERVED 1' WINDOWS _4DZ1202IM1387379340oGnQ{Fu D@d6 WINDOWS _4E01ANB5U13873793405#npÕ^n WINDOWS _4EH10URLD1347313765/*w WINDOWS _RIO19GJO81355381851Zik WINDOWS _RIO19GJO81387379340we[ WINDOWS FONTINFO 1347313765 xC<j WINDOWS _RIO19GJO81387379340!b# WINDOWS FONTINFO 1347313765|ox] WINDOWS _RIO19GJO81387379340r ߾ WINDOWS _4E20YAB7M1347313765#m4U WINDOWS _4FY19LVF01386451993m)AC WINDOWS _4GI0LF14E1387379340pXFޅ WINDOWS _4O50H8WO11387379340 WINDOWS _4PU0JB1H31387379340|oaO͗ WINDOWS _RIO19GJO81387379340s WINDOWS _4PU0JB1H41387379340fH:(H WINDOWS _4XN14CT391387379340}RR/R WINDOWS _4XO148CL61387379340lB^.W WINDOWS _RIO19GJO81387379340b0/H[ WINDOWS FONTINFO 1387379340'! WINDOWS _61I13WBBE1387379340VH.$c$\ COMMENT RESERVED u  WINDOWS _62Q1BZPOG1389410092eƪuu*z3c COMMENT RESERVED Cְ WINDOWS _6430WUWTO13928027710C{d1K  COMMENT RESERVED  WINDOWS _6430TAEAN1393327122xB[>qAocQn COMMENT RESERVED ٟ WINDOWS _6430XOXTW1393841866]'C*Lf  !Kt WINDOWS _6430Y2RL41393841866C75 7_ WINDOWS _6430Y2RL5139339406753C5C3L WINDOWS _64C0S6WEZ139339406733+R 3b COMMENT RESERVED WINDOWS _3ZB0OHPDX1395655562OhXEy4#Neq" WINDOWS _3ZB0OUTOX1395655562@C75 cݠl, WINDOWS _3ZB0OUTOZ1395655517bb*b<YX COMMENT RESERVED sXwO WINDOWS _6580YCLAH1395655571kpbMXhNC WINDOWS _65815238E1395655571̟~^ WINDOWS _65815238F1395610536քukuu- COMMENT RESERVED &h WINDOWS _4RV0Z0E471398111224ҽt2}^7`2- COMMENT RESERVED  WINDOWS _6800OBU5Z1402428187J2HCJ(GJz COMMENT RESERVED c WINDOWS _3XC0MXROM1402428789VpLv_4ޚ COMMENT RESERVED ̚ WINDOWS _RW911M6MA1416137589*lФ COMMENT RESERVED 9 WINDOWS _6A5111S2E1416137710,''NY)äO9 WINDOWS _6A511K6QI1416137710߮W WINDOWS _6A511K6QJ1416137710ˮwÍh COMMENT RESERVED *ݩ WINDOWS _6B50OMVEN1418553625=DNDxLuz`  WINDOWS _6B50P5DMO1418553524ګdK WINDOWS _6B50P5DMP14185535248&D+t WINDOWS _6B50P5DMQ1418553524dԞ= WINDOWS _6B50P5DMR1418553524Qxx< WINDOWS _6B50P5DMS1418553524ҚO4J; WINDOWS _6B50P5DMT1418553524+ : WINDOWS _6B50P5DMU1418553524aH WINDOWS _6B50P5DMV14185506575E7( WINDOWS _6B50P5DMW1418553524 ՏQ9 WINDOWS _6B50P5DMX1418550657҉̇`@ WINDOWS _6B50P5DMY1418553603~e8ǜr WINDOWS _RIO19GJO81418553524,=wyuL8 WINDOWS _6B50P5DN11418553524tSsqru  WINDOWS _6B50P5DN21418553524rquqwc COMMENT RESERVED ' WINDOWS _04L0J63AW1418953220~w9GeC rg_& WINDOWS _04L0JTQ1Z 808192048B WINDOWS _04L0LGGBV1062036913&zzɝ . COMMENT RESERVED h WINDOWS _4E018WK5N1420003573$Q2 . 5a COMMENT RESERVED  WINDOWS _6BQ0RCJMB1420080579*G0 COMMENT RESERVED %$ WINDOWS _5X90Q6NHN1420131258Wcg'|_NЋ COMMENT RESERVED  WINDOWS _6BR12JWZ81420186069cA S +]  WINDOWS _6BR13GX1714201372446ͫ 3 COMMENT RESERVED  WINDOWS _6D60YAO051426807196[pM COMMENT RESERVED v WINDOWS _1WI0QZ48K1428781139U'E,? C V WINDOWS _1WI0RQ4411428781139?w/0GH" COMMENT RESERVED bb WINDOWS _6GJ0Z1VCQ1431919395kܢkuUkUj WINDOWS _6GJ0Z83VF1431864130xiNwti COMMENT RESERVED i< WINDOWS _0E80UB58N1432847585ayNK'76 .ʜ9h) WINDOWS _RIO19GJO81431981506cC7}7h71y WINDOWS FONTINFO 14319815060`D#0 0|m WINDOWS _0E80VTZTX1431981506tca 9<R WINDOWS _0E80UQ8VB 716797148G COMMENT RESERVED n/ WINDOWS _6D5147EES1433891673 u)N> q WINDOWS _6D5149H241428656298h[{ B= COMMENT RESERVED  WINDOWS _04L0J63AW1434880558A ; 5p @l]a WINDOWS _04L0JTQ1Z 8081920480 I Z WINDOWS _04L0LGGBV1434880558 N =6J COMMENT RESERVED  WINDOWS _6LB0O8QBK1452038941rzr?u_GjiO COMMENT RESERVED nu WINDOWS _1D50I92NA14526947461naA< COMMENT RESERVED b WINDOWS _67Q0M4GHW1454792807H0~Y0[3Ef;0U~/ WINDOWS _RIO19GJO81453083432I~2>HEnm^u WINDOWS _67Q0MBJ2F1453082299736*n WINDOWS _6AK0TN6XE14530838639n 3GbB$ WINDOWS _6FO0IYINS14530846766655 WINDOWS _6LR0J2LTY145308411132t02ŧ COMMENT RESERVED .i WINDOWS _0FH0YM7GP1454990470<;t1WhmN; COMMENT RESERVED 1% WINDOWS _6MI0R6ZFL1454991766c$v COMMENT RESERVED q% WINDOWS _6N216DZMJ14563814953!2= 4r$" COMMENT RESERVED 1 WINDOWS _26N0IJQ1T1457146870a"000j!~ COMMENT RESERVED 0g5 WINDOWS _6NE0JMU3R14571473060+/Bת-O WINDOWS _6NE0K1H1T1457147306)&#T=% WINDOWS _RIO19GJO81457147306#x<5 COMMENT RESERVED e4 WINDOWS _1DI0MKXZI1457885259xigi^`nRX'F[ WINDOWS _RIO19GJO8 828986529cbb<`-` WINDOWS _1DI0MR7XD 828986529`__g_X_} COMMENT RESERVED Ua WINDOWS _6NO17TIHG1457955784N^O^NTL COMMENT RESERVED 6]x` WINDOWS _ROK0S53HW14582712866"S]?LZ WINDOWS _ROK0S53K6 591685878blMlYO *N WINDOWS _ROK0S53L5 591685878;/f" Nֿ WINDOWS _ROK0S53M31458271286U WINDOWS _ROK0S53MQ 591685878"2r  WINDOWS _ROK0S53NS1458271286 : WINDOWS _ROK0S53OH 591685878# COMMENT RESERVED A WINDOWS _6NR16SSOM1458271354!eo WINDOWS _6NR16SSON1458271354W$ COMMENT RESERVED [ WINDOWS _S1C15QXKX1458271406<%~FQ>zf0  COMMENT RESERVED ] WINDOWS _5GP0W3B501458271469@RQ, ° WINDOWS _RIO19GJO81458271469 #f WINDOWS _5N80ZPT9R1458271469wd COMMENT RESERVED " WINDOWS _2D40ZUDUZ1458340576%D.Ejj COMMENT RESERVED ϓO WINDOWS _6D513G9BR1458724911IU[7!w WINDOWS _RIO19GJO81458724911 -# COMMENT RESERVED 10 WINDOWS _6NW0LG6PB1458725136&z* Xl WINDOWS _6NW0LIUU61458462294UT WINDOWS _6NW0LIUU71458458704M1- COMMENT RESERVED , WINDOWS _6NW0KXL5F1458725239@K+( XxhX WINDOWS _6NW0L390E1458462322eH@h> WINDOWS _6NW0L390F1458458978#ť COMMENT RESERVED WINDOWS _6NW0LD2KI1458725943W lU /ȍ WINDOWS _RIO19GJO81458462293O+ WINDOWS _6NW0LISHN1458458703sU8 COMMENT RESERVED es WINDOWS _6D60XEILM1458725963Kz%>}"1 WINDOWS _6D60XG91R1458725209tHAb COMMENT RESERVED * WINDOWS _0QR0YK1LX14607039188=P ӗ ,O&|  WINDOWS _0QR10Q23U1460703918̘-a WINDOWS FONTINFO 1356240553ƭ (MW% WINDOWS _33N0IVMVG1390175140  qt  WINDOWS _RIO19GJO81460703918aE\J WINDOWS _5UL0NXLYL1460703918snWS> WINDOWS _5UL0NXLYN1460703918 9>S  WINDOWS _5UL0OJ1G01460703918 F@!fm&@ COMMENT RESERVED ^ < WINDOWS _0YC0EQ2B41460748540 5  COMMENT RESERVED q' WINDOWS _04C183U1H1461544727+0I>/ /!E\H+IE WINDOWS _04C186R6N1461544727<`EUz WINDOWS _04C186R6X1458337569, '9O{ WINDOWS _RIO19GJO81458337569\7 ECP WINDOWS _04D0G1CPS1458337569!#& WINDOWS _08S11YYOM14615447273^F.8 WINDOWS _2BM0R4RRN1461544727 /.A.&  WINDOWS _2BM0U5ICW1461544727%   WINDOWS _2BM0UKA07 946764931F WINDOWS _2BM0WHP4H1461544727# ܣ K WINDOWS _2BM0XGQ161461544727q_aJ.  WINDOWS _2BM0YB0K81461544727'߼\c $  WINDOWS _3QA0QGGF314615447276a=| WINDOWS _6NU0UMIQ31461544727y WINDOWS _6NU0UMIQ81461544727;<Z~ WINDOWS _6NU0UMIQ91458337569(6{R x WINDOWS _6NU0UMIQA1458337956~zz_@@}?q WINDOWS _6NU0UMIQB1458340742qo'l% WINDOWS _6NU0UMIQC1461544727d `i4 WINDOWS _RIO19GJO81461544727ܔiek WINDOWS _6NU0W1KO71458340677L7(t& D WINDOWS _6NU0W1KO814583407049 WINDOWS _6NU0W1KO91458340704a WINDOWS _6NU0W1KOA1458340704||^l/ WINDOWS _6NU0W1KOB1458340677uVuL|`Ɋ WINDOWS _6NU0W1KOC1458340704uqeU{k{ WINDOWS _RIO19GJO81458340677nmItOy{( WINDOWS FONTINFO 1458340677cmljIl~k WINDOWS _6NU0W1KOF1458340677ccKHcpIb WINDOWS _6NU0W1KOG14583406774b;Q:EJ`NgL COMMENT RESERVED AK WINDOWS _6F90NJHI21462198656P283Q9ra*gm9B2 COMMENT RESERVED &2^3 WINDOWS _6E10ZN8EA1462464605c1l&+P"cs-  WINDOWS _6E10ZY3K9145845888422,0 WINDOWS _6E10ZY3KA1425704393[:m/\6 WINDOWS _6E10ZY3KB1462464605x,#+j*.1W WINDOWS _6E10ZY3KC1462464605.j.o$,a.n WINDOWS _6E10ZY3KK1462464605**$4%9J*Wc WINDOWS _RIO19GJO8 577153425#R$> WINDOWS _6NW0LOCJZ1458458840$$ WINDOWS _6PJ0T9P471462463723!8 WINDOWS _6PJ0T9P481462463723BQ:'/ COMMENT RESERVED  WINDOWS _6D50VXI4E1463449400 x u $31q COMMENT RESERVED   WINDOWS _6D513AYNI1463961112ƈ˛Hw*f tt$ QN COMMENT RESERVED  WINDOWS _3P70PA8161479847344es] COMMENT RESERVED I WINDOWS _37Y0V31MJ1481265580l?IuDskHb WINDOWS _37Y0V53GN1356240547$wv=3Tڻ WINDOWS _54T0JDLWI1481265580- q~Zq#U WINDOWS _6TT0LIPLD1481265580wl7lt?u<C COMMENT RESERVED .u WINDOWS _RK317OFNB1481266060G\xXJS ` 1E WINDOWS _RK317OFKC1460691932tpgp+- WINDOWS _RK317OFLU1460691932plf+\1 WINDOWS _0S70KJ6U61460691932^XIX7-XyQ WINDOWS _0S70KJ6U71460691932-;p75v"v6 WINDOWS _4PJ100DK61481266060T"B"|)|. WINDOWS _6TT0MG4HG1481266060htu COMMENT RESERVED ) W WINDOWS _RRW0YLGJZ1481795849C.LJRf} X WINDOWS _RIO19GJO8 9476707716) WINDOWS FONTINFO 1481795849x i  w  WINDOWS _RIO19LGOE 947670771 COMMENT RESERVED W WINDOWS _6U10MUNAQ1481796101]5=p .B;~ COMMENT RESERVED ) WINDOWS _6U90PFNML1482317882K:dT COMMENT RESERVED Iխ WINDOWS _2UO0KTHZK1484474860&7f1i׽ WINDOWS _2UO0LWT0W1010455206ӿ WINDOWS _2UO0LWT0Y1010454956 WINDOWS _2UO0LWT141484474860pcUF COMMENT RESERVED  WINDOWS _RWI0QVYAQ1486770406*b Q ::! COMMENT RESERVED  WINDOWS _5W315MI5Q1487965392n}p W& *WINDOWS _RIO19GJO81381406308#8DuUH*WINDOWS _RIO19GJO81381406308r 6GM:*WINDOWS _RIO19GJO81490777853qI@% *WINDOWS _ROJ10QKJ11381406308N'pw*WINDOWS _ROK0O4DKN1381406308 gZI*WINDOWS _2530ZZ7UB1381406308Z[w *COMMENT RESERVED 2o WINDOWS _6P61111731492158827\+k COMMENT RESERVED G WINDOWS _0GG0G17DD1492226567&r&; %J DOCF(Q COMMENT RESERVED #& WINDOWS _035159SAW1492226587 7[M! `E# WINDOWS _4C013XQAS11842627900{ COMMENT RESERVED ;>*WINDOWS _03Q19IPGP14926020532پe ܷ'̾i 7ל*WINDOWS _RIO19GJO81467514954ͱ/ SU*WINDOWS _0CJ0YC5091467514954qT*WINDOWS _RIO19GJO81492602053X8s*WINDOWS _RIO19GJO81467514954C.*WINDOWS _RIO19GJO81467514954ȩu-f6*WINDOWS _0RB0RYQJ31467514954cS *WINDOWS _14Z0JHJCK14675149543j0*WINDOWS _15501VFII 827702293PE {W6*WINDOWS _1550V7LEY 917405711Җ xÉ*WINDOWS _1HN02TK2M1467514954V|o{%*WINDOWS _1IU0IU9JP 9172112533wmka*WINDOWS _RIO19GJO81467514954woU OGi*WINDOWS _22Z0NBJWV1467514954oUMMKK@^gC*WINDOWS _RIO19GJO81467514954xKcKJI!p *WINDOWS _28Q0ZCQSZ1492602053ECA?m*WINDOWS _2EN0VPYCO1492602053+>D=99`=*WINDOWS _2FA0ZCQEQ1492602053`, 9t[*WINDOWS _3XC0ODISG14926020539X.73v KL*WINDOWS _6BH0T4I791467514954$ʓm*COMMENT RESERVED UC WINDOWS _RJZ17WDRV1494908669t F` T0 * WINDOWS _RJZ17WDLS1454787093,HK WINDOWS _RJZ17WDOX1454787093khI WINDOWS _RJZ17WDPQ1454787093\M@9n WINDOWS _RWV10V8UK1454787093+m5) WINDOWS _RWV10V8V31454787093+u/S WINDOWS _RWV10V8VV1454787093V6C3{~ WINDOWS _RWV10V8X41454787093r0uQu WINDOWS _RWV10V8XW1454787093 %n!y WINDOWS _RWV10V8YE1454787093γlMnr WINDOWS _1VA1EWUKI1454787093"87A WINDOWS _1VA1EWUKJ1454787093 [) WINDOWS _1VA1EWUKK1454787093#ޟc # WINDOWS _1VA1EWUKL1454787093v4VG% WINDOWS _1VA1EWUKM1454787093=a.ٖӰ|  WINDOWS _1VA1EWUKN1454787093~ۊ"t WINDOWS _1VA1EWUKO1454787093ևӆQI8I WINDOWS _1VA1EWUKP1454787093HF@FF6 WINDOWS _1VA1EWUKQ1454787093QA;V:9& WINDOWS _1VA1EWUKR1454787093x76}46ͦ WINDOWS _1VA1EWUKS1454787093B0/.5DH WINDOWS _1VA1EWUKT1454787093('&{'2tVQ: WINDOWS _4XN16S6821454787093&$$""/G0 WINDOWS _4XN16S6831454787093e1 WINDOWS _RX6177KWP1454787093RA#{ WINDOWS _RIO19GJO81454787093tiX8  WINDOWS _5ZM0S42AK1494908669YH\; COMMENT RESERVED F*WINDOWS _03Q19IPGP1495096949RC "xh^uu*WINDOWS _RIO19GJO81467514954ҍ :*WINDOWS _0CJ0YC5091467514954ʙߙÚ˜*WINDOWS _RIO19GJO814950969498HXds*WINDOWS _RIO19GJO81495096949Ti~*WINDOWS _RIO19GJO81467514954еߵ*WINDOWS _0RB0RYQJ31467514954(7=*WINDOWS _14Z0JHJCK1467514954`u*WINDOWS _15501VFII 827702293v*WINDOWS _1550V7LEY 917405711 ,;J*WINDOWS _1HN02TK2M1467514954 *WINDOWS _1IU0IU9JP 917211253Yv*WINDOWS _RIO19GJO81467514954 *%*WINDOWS _22Z0NBJWV1467514954.PjxX*WINDOWS _RIO19GJO81467514954xZ*WINDOWS _28Q0ZCQSZ1495096949}*WINDOWS _2EN0VPYCO1495096949$4CR/T*WINDOWS _2FA0ZCQEQ1495096949 %5D*WINDOWS _3XC0ODISG1495096949(7*WINDOWS _6BH0T4I791467514954 !;Jo*COMMENT RESERVED  WINDOWS _03Q19IPGP1495097004Fot h\f WINDOWS _RIO19GJO814675149546~K~`~u~~ WINDOWS _0CJ0YC5091467514954.CSb'/ WINDOWS _RIO19GJO81495097004ȏ׏ WINDOWS _RIO19GJO81495097004͐ WINDOWS _RIO19GJO81467514954*:IT% WINDOWS _0RB0RYQJ31467514954Ujp WINDOWS _14Z0JHJCK1467514954ʺߺ WINDOWS _15501VFII 827702293$3 WINDOWS _1550V7LEY 917405711av WINDOWS _1HN02TK2M1467514954.CTcs WINDOWS _1IU0IU9JP 917211253 WINDOWS _RIO19GJO81467514954Mbw~ WINDOWS _22Z0NBJWV1467514954H WINDOWS _RIO19GJO81467514954 +0 WINDOWS _28Q0ZCQSZ1495097004!1AQ`_ WINDOWS _2EN0VPYCO1495097004~ WINDOWS _2FA0ZCQEQ1495097004u WINDOWS _3XC0ODISG1495097004N`rR WINDOWS _6BH0T4I791467514954av COMMENT RESERVED +:*WINDOWS _ROJ10MGLJ1495359147C.@Ci DD$XDD*WINDOWS _RIO19GJO81381406308455(57556*WINDOWS _RIO19GJO8149535914766 77)778*WINDOWS _RIO19GJO814953591479-9B9R9a99-<*WINDOWS _ROJ10QKJ11381406308===>>>?*WINDOWS _ROK0O4DKN1381406308@1@F@V@e@@-A*WINDOWS _2530ZZ7UB1381406308BB1BABPBBC*COMMENT RESERVED fDuD*WINDOWS _ROJ10MGLJ1495359158ΌDE-EVQCٌm/*WINDOWS _RIO19GJO81381406308}}}}~~~*WINDOWS _RIO19GJO81495359147*WINDOWS _RIO19GJO81495359147)8*WINDOWS _ROJ10QKJ11381406308Ȇ؆o݇*WINDOWS _ROK0O4DKN1381406308-<ɉ*WINDOWS _2530ZZ7UB1381406308ފ'*COMMENT RESERVED =L*WINDOWS _ROJ10MGLJ1495360086?ɍۍ0-:SJ`*WINDOWS _RIO19GJO81381406308|*WINDOWS _RIO19GJO81495360086b*WINDOWS _RIO19GJO81495360086(=M\S*WINDOWS _ROJ10QKJ11381406308$9IXN*WINDOWS _ROK0O4DKN1381406308dy:u*WINDOWS _2530ZZ7UB1381406308Ody!Z*COMMENT RESERVED *WINDOWS _ROJ10MGLJ1495360600 :L u   ! *WINDOWS _RIO19GJO81381406308 "7GV%*WINDOWS _RIO19GJO81495360600)9H*WINDOWS _RIO19GJO81495360600)9Hw*WINDOWS _ROJ10QKJ11381406308xI*WINDOWS _ROK0O4DKN1381406308*WINDOWS _2530ZZ7UB1381406308*COMMENT RESERVED !&!*WINDOWS _ROJ10MGLJ1495360828k!!rk!.#kkJkk*WINDOWS _RIO19GJO81381406308ZZ[ [/[[[*WINDOWS _RIO19GJO81495360600\\]]!]]l^*WINDOWS _RIO19GJO81495360600__``!``Pc*WINDOWS _ROJ10QKJ11381406308Qefe{eee"ff*WINDOWS _ROK0O4DKN1381406308ggggg|hh*WINDOWS _2530ZZ7UB1381406308iiiiicjj*COMMENT RESERVED kk WINDOWS _ROJ10MGLJ1495360855|lltlxؕ WINDOWS _RIO19GJO81381406308"1Ȧ WINDOWS _RIO19GJO81495360600ڧ#n WINDOWS _RIO19GJO81495360600ڪ#R WINDOWS _ROJ10QKJ11381406308Sh}$ WINDOWS _ROK0O4DKN1381406308Ҳ~ WINDOWS _2530ZZ7UB1381406308ʹܴe COMMENT RESERVED VERSION = 3.00labellabeltextolAutoSize = .T. FontBold = .F. BackStyle = 0 Caption = "Label1" Height = 18 Width = 38 Name = "texto" Class1Pixelstexto"Arial, 0, 10, 6, 16, 13, 14, 3, 0  commandbutton commandbuttonbotonOHeight = 29 Width = 94 FontBold = .F. Caption = "Command1" Name = "boton" Class1Pixelsboton"Arial, 0, 10, 6, 16, 13, 14, 3, 0 BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 abmPixels'Formulario de abm para usar con hlpabm2Class73BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_biePixelsClass1cod_desc cod_desc_bie1BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 cod_descPixels4formabmabmText2textboxtextboxabmLabel2"filtro_access obj_filtro_access ADupla codigo y descripcion: Ejemplo : codigo flete - nombre fleteClass containercod_desccod_descText9labellabel1emailPixelsBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  cod_desc_atrPixelsClass1Class)PROCEDURE When return .f. ENDPROC textboxtextboxcod_descabmformformcpbtHeight = 275 Width = 375 DoCreate = .T. AutoCenter = .T. Caption = "Visualizacin de Comprobantes" WindowType = 1 Name = "Form1" Class7clave Clave del Comprobante PixelsVisualizacin de ComprobantesgridgridGrid1cpbtColumnCount = 1 DeleteMark = .F. Height = 157 Left = 12 ReadOnly = .T. RecordSourceType = 3 Top = 72 Width = 349 Name = "Grid1" Column1.FontBold = .T. Column1.Alignment = 1 Column1.ReadOnly = .T. Column1.Name = "Column1" PROCEDURE Init this.setall('FontBold',.f.,'Column') this.setall('FontName','Courie New','Column') this.setall('FontSize',9,'Column') this.setall('FontBold',.t.,'Header') this.setall('Alignment',2,'Header') ENDPROC  container clases.vcxAutoSize = .F. Top = 0 Left = 402 Height = 21 Width = 24 FontSize = 7 Anchor = 9 Caption = "Dev" Enabled = .F. ForeColor = 255,0,0 Name = "Command8" Text8formulario_acep_cancPixelsClass7textboxtextboxabm1cod_desc_bulatrheaderheaderHeader1cpbt.Grid1.Column1'Caption = "Header1" Name = "Header1" textboxtextboxText1cpbt.Grid1.Column1FontBold = .T. Alignment = 1 BorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 192,192,192 Name = "Text1"  commandbutton commandbuttonCommand1cpbtgTop = 240 Left = 156 Height = 25 Width = 72 FontBold = .T. Caption = "Cerrar" Name = "Command1" ,PROCEDURE Click thisform.release ENDPROC BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc_fle_tipoPixelsClass1cod_desccod_desc_fle_tipo containercod_desclabellabelLabel1cpbtxAutoSize = .T. FontBold = .T. Caption = "Comprobante" Height = 17 Left = 12 Top = 12 Width = 79 Name = "Label1" labellabelLabel3cpbtbAutoSize = .T. Caption = "Datos" Height = 17 Left = 12 Top = 36 Width = 35 Name = "Label3" cpbtBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 1, 9, 6, 15, 12, 13, 3, 0 hlp clases.vcxformhlpabmHeight = 368 Width = 288 DoCreate = .T. Name = "hlpabm" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.Name = "Grid1" Text1.Name = "Text1" UPROCEDURE modificar thisform.text1.enabled=.t. thisform.text1.setfocus ENDPROC  clases.vcxControlSource = "descr" Format = "!" Height = 25 Left = 72 MaxLength = 30 TabIndex = 2 Top = 48 Width = 264 Name = "Text2" Text1textboxLabel21 cod_desc_atr1Class5 *modificar Pixels6Ayuda con ABM simple para tablas del tipo codigo, descboton clases.vcx commandbuttonBoton1hlpabmeTop = 336 Left = 31 Height = 24 Width = 60 FontBold = .T. Caption = "Agregar" Name = "Boton1" PROCEDURE Click local orden orden=order() set order to (thisform.clave) go bott local xsql xsql = 'insert into '+alltrim(thisform.tabla)+' ('+thisform.clave+') values ('+thisform.clave+'+1)' &xsql thisform.modificar ENDPROC labellabel containerPixelsBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_rfcPixelsClass1 clases.vcx1 container clases.vcxtextboxcod_desc cod_desc_rfcLabel1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 4boton clases.vcx commandbuttonBoton2hlpabmeTop = 336 Left = 199 Height = 24 Width = 60 FontBold = .T. Caption = "Borrar" Name = "Boton2" =PROCEDURE Click delete thisform.grid1.setfocus ENDPROC formformulario_acep_cancformulario_acep_canc advertencialabellabelName = "crystal_viewer" formulario_acep_canc23web3boton clases.vcx commandbuttonBoton3hlpabmhTop = 336 Left = 115 Height = 24 Width = 60 FontBold = .T. Caption = "Modificar" Name = "Boton3" .PROCEDURE Click thisform.modificar ENDPROC  container4PROCEDURE When return thisform.tipoabm=1 ENDPROC imageformulario_abm2_1labellisPixelslabel31textboxtextboxText1hlpabm]Enabled = .F. Format = "!" Height = 25 Left = 30 Top = 300 Width = 228 Name = "Text1" .PROCEDURE GotFocus local xdesc xdesc=thisform.clave_busqueda thisform.text1.value=&xdesc ENDPROC PROCEDURE Valid local xdesc xdesc=thisform.clave_busqueda repl &xdesc with thisform.text1.value thisform.text1.enabled=.f. ENDPROC PROCEDURE Click thisform.grid1.setfocus ENDPROC dato_format = z dato_mask = 99999 dato_maxlength = 5 dato_tabla = fle_tipo mensaje_error = ("El tipo de flete no existe") tabla_ayuda = ("busfle_tipo") tabla_codigo = ("codigo") tabla_desc = ("descr") tabla_idxcod = ("codigo") tabla_tabla = ("fle_tipo") Name = "cod_desc_fle_tipo" Label2.Caption = "Tipo flete" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9"  Ayuda_wiki1433Class containeremailemailImage111abmabmhlpabmjArial, 0, 9, 5, 15, 12, 13, 3, 0 Courier New, 0, 11, 9, 17, 13, 10, 4, 0 Arial, 1, 9, 6, 15, 12, 13, 3, 0 formformlistados Height = 101 Width = 336 DoCreate = .T. AutoCenter = .T. Caption = "Listado de ..." destino = 1 formato = 0 reporte = otro1 = Excel otro2 = Lotus otro4 = SDF otro5 = Separado por Comas otros = 0 otro3 = Dbase titulo = Listado de ... Name = "listados" ZPROCEDURE comandos return ENDPROC PROCEDURE Init this.caption=this.titulo ENDPROC form clases.vcx ayuda_wikiCommand2formulario_acep_canc2Pixels11cfg_basePixelsClass container1cod_descClassClass6Ydestino formato reporte otro1 otro2 otro4 otro5 otros otro3 titulo *comandos Pixels container container Container1listadosTTop = 0 Left = 0 Width = 330 Height = 100 BorderWidth = 0 Name = "Container1"  optiongroup optiongroup Optiongroup1listados.Container10) ENDPROC cfg_base container!Arial, 0, 9, 5, 15, 12, 32, 3, 0  cfg_comboPixelsClasscfg_base cfg_combo cfg_combo1var1imageBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc_general_numeroPixelsClasscod_desc container1 commandbutton commandbuttonCommand2listados.Container1fTop = 70 Left = 170 Height = 27 Width = 84 Caption = "Cancelar" TabIndex = 4 Name = "Command2" .PROCEDURE Click thisform.release ENDPROC gPicture = bmp\email.gif BackStyle = 0 Height = 18 Left = 379 Top = 3 Width = 20 Name = "Image1" imageemail direcciontextboxtextboxemailLabel9mascomboboxcomboboxCombo1listados.Container1FontName = "Courier New" ColumnCount = 1 ColumnWidths = "226" RowSourceType = 1 RowSource = "" Enabled = .F. FirstElement = 1 Height = 21 IncrementalSearch = .F. Left = 100 NumberOfElements = 0 Style = 2 TabIndex = 2 Top = 40 Width = 226 Name = "Combo1" PROCEDURE Init local aaa,z z=30 if thisform.otros>=1 aaa=padr(thisform.otro1,z) endif if thisform.otros>=2 aaa=aaa+','+padr(thisform.otro2,z) endif if thisform.otros>=3 aaa=aaa+','+padr(thisform.otro3,z) endif if thisform.otros>=4 aaa=aaa+','+padr(thisform.otro4,z) endif if thisform.otros>=5 aaa=aaa+','+padr(thisform.otro5,z) endif if z>=1 this.rowsource=aaa this.value=1 endif ENDPROC aPROCEDURE Click =messagebox( 'El mesaje ser guardado en la Bandeja de Salida de su'+chr(13)+; 'cliente de E-Mail. Recuerde ejecutar "Enviar y Recibir"'+chr(13)+; 'para que su mensaje llegue a destino.',0,"Mensaje de Correo Electrnico") do ShellExec ; in internet ; with "mailto:"+alltrim(this.parent.direccion.value) ENDPROC labellabel containerPixels cod_desc_tarj cod_desc_tarjlabel commandbutton3Classformulario_abm2 pageframe!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Class11 lis_medidas1 commandbutton commandbuttonCommand1listados.Container1dTop = 70 Left = 75 Height = 27 Width = 84 Caption = "Aceptar" TabIndex = 3 Name = "Command1" PROCEDURE Click thisform.destino = this.parent.optiongroup1.value thisform.formato = this.parent.combo1.value if alltrim(thisform.reporte)#'' do case case thisform.destino=1 report form (thisform.reporte) preview case thisform.destino=2 report form (thisform.reporte) to printer prompt otherwise wait window nowait 'No definido !!!' endcase else thisform.comandos endif thisform.release ENDPROC cod_desc_general_numerocdato_min Mnimo valor tomado como valido dato_max Mximo valor tomado como valido *numero_desc  clases.vcxLabel12label cfg_comboCombocomboboxcombobox containerClass4 containerwebPixelsClass1lis361webImage1imageimageweburlweb lis_combo_11111Text1usrlistadosGArial, 0, 9, 5, 15, 12, 13, 3, 0 Courier New, 0, 9, 7, 15, 12, 8, 3, 0 textboxtextbox campo_texto?BackStyle = 1 Height = 23 Width = 113 Name = "campo_texto" PROCEDURE Valid this.modificado=(this.oldvalue#this.value) ENDPROC PROCEDURE When this.oldvalue=this.value this.modificado=.f. ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "E-Mail" Height = 17 Left = 0 Top = 4 Width = 36 TabIndex = 17 Name = "Label9" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 3PixelstextboxtextboxtextboxLabel10labelayudatextboxClass1oldvalue Uso interno modificado Verdadero=Dato original modificado *updated Mtodo llamado al perder el foco y cuando fue modificado Pixels$Campo TextBox con updated/modificado campo_texto!Arial, 0, 9, 5, 15, 12, 13, 3, 0  cod_desc_age clases.vcx container cod_desc_disfiltro = 'D'$clase mensaje_error = 'Distribuidor invlido!!!' clase = DIS Name = "cod_desc_dis" Label2.Caption = "Distribuidor" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Class1Pixels cod_desc_disBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 2, 9, 5, 15, 12, 14, 3, 0 AutoSize = .T. FontBold = .T. Caption = "Cdigo" Height = 17 Left = 24 Top = 15 Width = 41 TabIndex = 6 Name = "Label2"  commandbuttontextbox clases.vcxPixels formulario clases.vcxformfomulario_wizardWHeight = 52 Width = 386 DoCreate = .T. AutoCenter = .T. Name = "fomulario_wizard" Class2:resultado 1=Cancela, 2=Anterior, 3=Siguiente, 4=Finlizar Pixelswizard_buttons1 clases.vcx containerWizard_buttons1fomulario_wizardTop = 12 Left = 12 Name = "Wizard_buttons1" siguiente.Name = "siguiente" anterior.Name = "anterior" cancelar.Name = "cancelar" finalizar.Name = "finalizar" fomulario_wizardBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 1, 9, 6, 15, 12, 13, 3, 0  cod_desc_cue clases.vcx containercod_cueWidth = 74 Height = 27 Name = "cod_cue" Label2.Visible = .F. Label2.ForeColor = 192,192,192 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 1 Text8.Name = "Text8" Text9.Visible = .F. Text9.Name = "Text9" Class1Pixelscod_cueBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 2, 9, 5, 15, 12, 14, 3, 0 cod_desc clases.vcx container cod_desc_legXdato_format = z dato_mask = 999,999 dato = legajo dato_maxlength = 7 mensaje_error = 'Legajo invlido !!!' tabla_ayuda = hlp_leg tabla_codigo = legajo tabla_desc = nombre tabla_idxcod = legajo tabla_tabla = empleado Name = "cod_desc_leg" Label2.Caption = "Legajo" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Class1Pixels cod_desc_legBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 2, 9, 5, 15, 12, 14, 3, 0  activedoc activedoc activemainFHeight = 37 Width = 37 Caption = "Activedoc1" Name = "activemain" iPROCEDURE Run LPARAMETERS cHyperLinkTarget local xgestart xgestart='gestart' do (xgestart) ENDPROC 3!Arial, 0, 9, 5, 15, 12, 32, 3, 0 acepta_cancelaPixelsClass commandgroupacepta_cancela commandgrouptextbox1lis_numero_generalPixels3Pixels1Class1Pixels activemainformformmenuHeight = 441 Width = 104 DoCreate = .T. AutoCenter = .T. Caption = "Form1" ControlBox = .F. FontName = "Verdana" FontSize = 8 MaxButton = .F. MinButton = .F. Movable = .F. WindowType = 1 Name = "menu" PROCEDURE llamada parameters xindice thisform.enabled=.f. thisform.visible=.f. thisform.opcion_actual=xindice local xmenucase xmenucase='menucase' do (xmenucase) with xindice clear typeahead thisform.enabled=.t. thisform.visible=.t. *thisform.draw ENDPROC PROCEDURE Init priv maximo,tmpwidth,maxwidth thisform.opciones = maxmenu maximo=this.textwidth(alltrim(tit)) for z=1 to maxmenu * maximo=max(len(alltrim(xmenu(z))),maximo) maximo=max(this.textwidth(alltrim(xmenu(z))),maximo) endfor maximo=maximo+20 maxwidth=0 for z=1 to maxmenu aaa='thisform.command'+alltrim(str(z))+'.caption=padr(xmenu(z),250)' && maximo &aaa aaa='thisform.command'+alltrim(str(z))+'.enabled=.t.' &aaa aaa='thisform.command'+alltrim(str(z))+'.visible=.t.' &aaa aaa='thisform.command'+alltrim(str(z))+'.width=maximo' &aaa * aaa='tmpwidth=thisform.command'+alltrim(str(z))+'.width' * &aaa * maxwidth = iif(tmpwidth>maxwidth,tmpwidth,maxwidth) endfor for z=maxmenu+1 to 19 aaa='thisform.command'+alltrim(str(z))+'.top=0' &aaa endfor *for z=1 to maxmenu * aaa='thisform.command'+alltrim(str(z))+'.autosize=.f.' * &aaa * * aaa='thisform.command'+alltrim(str(z))+'.width=maxwidth' * &aaa * *endfor this.height = maxmenu * ( this.command1.height ) this.width = this.command1.width this.autocenter = .t. this.caption=upper(tit) this.opcion_actual = 1 =this.command1.setfocus() this.refresh ENDPROC 5dato_min = 0 dato_max = 999 tabla_desc = ('this.numero_desc()') tabla_codigo = ('this.text8.value') tabla_idxcod = ('') tabla_tabla = ('') tabla_ayuda = ('') nombre = ('') Name = "cod_desc_general_numero" Label2.Caption = "Nmero" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ControlSource = "email" Height = 25 Left = 84 MaxLength = 50 TabIndex = 8 Top = 0 Width = 288 DisabledForeColor = 0,0,0 Name = "direccion" label container lis_medidas container clases.vcx clases.vcx1BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 PROCEDURE Command1.Click thisform.resultado=.t. thisform.release ENDPROC PROCEDURE Command2.Click thisform.resultado=.t. thisform.release ENDPROC PixelsFPROCEDURE Click thisform.resultado=.f. thisform.release ENDPROC Pixels131BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 Classlislis_numero_generallis_numero_generalvar2 container clases.vcxlis_numero_generalCommand1Pixels!Arial, 0, 9, 5, 15, 12, 32, 3, 0  container3var1Class20Iopciones Numero de opciones del menu opcion_actual *llamada *tecla Pixels commandbutton commandbuttonCommand1menuAutoSize = .F. Top = 0 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 1 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command1" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC Top = 1 Left = 169 Name = "var2" Label2.Left = 8 Label2.Top = 44 Label2.Name = "Label2" Text8.Left = 13 Text8.Top = 4 Text8.Name = "Text8" Text9.Name = "Text9" cod_desc_general_numeroTop = 1 Left = 0 Width = 156 Height = 39 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Left = 0 Text9.Top = 42 Text9.Name = "Text9"  container clases.vcxcod_desc_general_numeroName = "lis_numero_general"  container clases.vcxClassClassPixels commandbutton commandbuttonCommand2menuAutoSize = .F. Top = 23 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 2 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command2" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 formulario_acep_canc commandbutton commandbuttonusuarios_listausuarios_listaClassTop = 0 Left = 188 Width = 84 Height = 39 dato = thisform.xhmod Name = "var2" Label2.Left = 96 Label2.Top = 24 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Name = "Text9"  commandbutton commandbuttonCommand3menuAutoSize = .F. Top = 47 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 3 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command3" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC formulario_acep_cancformBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 lis_prodPixelsClass3lislis_prodlis_prodvar1 container clases.vcx2AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Texto descriptivo" Height = 17 Left = 4 Top = 6 Width = 100 TabIndex = 11 Name = "Label12" -bie_cod controled_by_bie *enabled_assign Pixels clases.vcx cfg_editboxPixels1Class31 commandbutton commandbuttonCommand4menuAutoSize = .F. Top = 70 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 4 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command4" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 lis_gruPixelsClass3lislis_grulis_gruvar2 container3i*interactivechange Occurs when the user changes the value of a control using the keyboard or the mouse. MPROCEDURE combo.InteractiveChange this.Parent.interactiveChange ENDPROC PixelsPixels3usuarios_lista commandbutton commandbuttonusuarios_lista5 commandbutton commandbuttonCommand5menuAutoSize = .F. Top = 93 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 5 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command5" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC  container clases.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_trjcod_desc cod_desc_trj container clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0 cfg_base cfg_editbox cfg_editbox1Command21label31Label12 ayuda_web1labellabelMAnchor = 15 Height = 193 Left = 108 Top = 0 Width = 337 Name = "Edit1"  cfg_editboxEdit1Command1label33 container items_lista5 commandbutton commandbuttonCommand6menu AutoSize = .F. Top = 116 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 6 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command6" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC editboxeditboxQWidth = 445 Height = 194 BackStyle = 0 BorderWidth = 0 Name = "cfg_editbox"  containerClassmas31 container!Arial, 0, 9, 5, 15, 12, 32, 3, 0  cfg_textbox31Class111form33label6 commandbutton commandbuttonlabel33 commandbutton5PROCEDURE DblClick this.Parent.mas.Click ENDPROC Pixels commandbutton commandbuttonCommand7menu AutoSize = .F. Top = 139 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 7 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command7" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC BoundColumn = 1 RowSourceType = 5 RowSource = "" Value = 0 Height = 26 Left = 119 NumberOfElements = 3 Top = 2 Width = 277 BoundTo = .T. DisplayCount = 3 Name = "Combo" cfg_base cfg_textbox cfg_textbox1 commandbuttonformulario_acep_cancClass1lis items_lista commandbuttonimage11resizer_controlhlp_tipo_articulooSelCdato Variable que contiene la lista de usuarios *parse_usuarios multiestado_imagen commandbutton commandbuttonCommand8menu AutoSize = .F. Top = 162 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 8 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command8" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC HPROCEDURE Init this.top=1 this.left=1 this.Visible=p_dev ENDPROC  commandbutton advertencia2Class1lis_tsp_choferesresizer_controlformulario_consultaformulario_consultacod_desc_prod_pend1 cod_desc_cuePixelsClass items_lista4PROCEDURE Init this.mensaje_error=oAtr.label_largo+" invlido !!!" dodefault() ENDPROC PROCEDURE Label2.Init this.Caption=oAtr.label_largo ENDPROC Text161 commandbutton commandbuttonCommand9menu AutoSize = .F. Top = 185 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 9 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command9" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC Top = 0 Left = 168 Name = "var2" Label2.Left = 37 Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 15 Text8.Name = "Text8" Text9.Name = "Text9"  clases.vcx cod_desc_grulis!Arial, 0, 9, 5, 15, 12, 32, 3, 0 exportaciones_combohlp_tipo_articulocombobox clases.vcxTop = 0 Left = 0 Width = 157 Height = 40 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" lis_gruvar1 container clases.vcxcod_desc commandbutton commandbutton Command10menu AutoSize = .F. Top = 208 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 10 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command10" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC 6desc_cero = (' Todas') desde = thisform.lis_med tabla = medidas codigo_cero = 0 valor_desde = 0 Name = "lis_medidas" texto.Caption = "Unidades de Medida" texto.Name = "texto" combo.Height = 25 combo.Left = 120 combo.Top = 0 combo.Width = 232 combo.DisabledForeColor = 0,0,0 combo.Name = "combo" hTop = -3 Left = 266 Height = 32 Width = 32 Picture = bmp\edit_azul.png Caption = "" Name = "mas"  commandbuttonvar21 cod_desc_cue container!Arial, 0, 9, 5, 15, 12, 32, 3, 0 textbox1101 commandbutton commandbutton Command11menu AutoSize = .F. Top = 231 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 11 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command11" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC BoundColumn = 2 ColumnCount = 2 ColumnWidths = "250,30" RowSourceType = 1 RowSource = "Todos,0,Producto Terminado,1,Producto en Proceso,2,Materia Prima,3,Materiales Varios,4,Mano de Obra,5,Mano de Obra de Terceros,6,Fazn a / insumos de Terceros,7,Materias Primas + Materiales Varios,8,Todo-PT-MP-MV,9" Value = 0 Style = 2 Width = 350 BoundTo = .T. Name = "hlp_tipo_articulo" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  clases.vcx commandbuttontextbox3617 commandbutton commandbutton Command12menu AutoSize = .F. Top = 254 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 12 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command12" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC  cod_desc_gru*enabled_assign ddesde = thisform.xdgru hasta = thisform.xhgru valor_desde = 0 valor_hasta = 0 Name = "lis_gru"  container clases.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container1lis clases.vcxlispropiedades_containerformPixelsformulario_consultaformulario_consulta3 Ayuda_wiki111lis_bie container commandbutton commandbutton Command13menu AutoSize = .F. Top = 277 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 13 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command13" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC lis_linPixelsClasslis_linlis_linvar2 container clases.vcx cod_desc_linlis_linvar1 container clases.vcx ayuda_wikiform43Pixels41Class(Top = 2 Left = 3 Name = "Parametros" PixelsPixels!Arial, 0, 9, 5, 15, 12, 32, 3, 0 planeamiento_por_maquinaPixels containerplaneamiento_por_maquinaplaneamiento_por_maquinacustom clases.vcx commandbutton commandbutton Command14menu AutoSize = .F. Top = 300 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 14 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command14" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 PixelsClasscod_desccod_desc_prod_pend containercod_descformulario_consultaClassTop = 644 Left = 904 Height = 17 Width = 24 tabla_madre = ('Plan_Maq') tabla_madre_id = ('IDU') tabla_madre_orden = ('Orden') tabla_madre_order = ('IDU') Name = "oSel" control_de_seleccion_y_ordenYBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" txTexto commandbutton commandbutton Command15menu AutoSize = .F. Top = 323 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 15 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command15" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC ^dato_format = z dato_mask = 9999 dato_tabla = m mensaje_error = 'Tarjeta invlida o no encontrada !!!' dato = xtarj tabla_tabla = tarj tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_ayuda = bustarj Name = "cod_desc_tarj" LABEL2.Caption = "Tarjeta" LABEL2.Name = "LABEL2" TEXT8.Name = "TEXT8" TEXT9.Name = "TEXT9" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Texto descriptivo" Height = 17 Left = 2 Top = 0 Width = 100 TabIndex = 11 Name = "Label12" Textotextbox commandbutton commandbutton Command16menu AutoSize = .F. Top = 346 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 16 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command16" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC  ayuda_wikiPixelsClassimage ayuda_wiki6imagen_deshabilitada imagen_habilitada document_id imageayuda_wiki_rojoPixels cod_desc_usr2Classcod_desc container containerlis113crystal11 cod_desc_ven containerpropiedades_container clases.vcx23Pixels41lislabel1ClassPixels1 commandbutton commandbutton Command17menu AutoSize = .F. Top = 369 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 17 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command17" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC 5PROCEDURE DblClick this.Parent.mas.Click ENDPROC datosmultiestado_imagen cbInterno11mas3FPROCEDURE Click thisform.resultado=.t. thisform.release ENDPROC Combo3lisClass containerlis20Command15oControlSource = "usr" Format = "!" Height = 25 Left = 0 TabIndex = 11 Top = 0 Width = 264 Name = "usr" 11 clases.vcxformulario_abm21Pixelslis commandbutton commandbutton Command18menu AutoSize = .F. Top = 392 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 18 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command18" ?PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC 'planeamiento_por_maquina.Grid1.Column16Text1textboxtextbox-Caption = "Estado Tiempo" Name = "Header1" 'planeamiento_por_maquina.Grid1.Column16Header1headerheader'planeamiento_por_maquina.Grid1.Column15Text1textboxtextboxgTop = 0 Left = 264 Height = 32 Width = 32 Picture = bmp\edit_azul.png Caption = "" Name = "mas" labelPixels18Pixels1 cod_desc_bgcod_desc cod_desc_bgPixelslislis commandbutton commandbutton Command19menu AutoSize = .F. Top = 415 Left = 0 Height = 23 Width = 84 FontBold = .F. FontName = "Verdana" FontSize = 8 Caption = "Command1" Enabled = .F. Style = 0 TabIndex = 19 Visible = .F. ColorScheme = 1 ForeColor = 0,0,0 RightToLeft = .T. Name = "Command19" ?PROCEDURE LostFocus this.forecolor=rgb(0,0,0) ENDPROC PROCEDURE GotFocus thisform.opcion_actual=this.tabindex this.forecolor=rgb(255,0,0) ENDPROC PROCEDURE Click if thisform.opciones=this.tabindex thisform.release endif thisform.opcion_actual=this.tabindex =thisform.llamada(this.tabindex) ENDPROC YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 8Caption = "Iniciar antes de(LIMITE)" Name = "Header1" 'planeamiento_por_maquina.Grid1.Column15Header1headerheader'planeamiento_por_maquina.Grid1.Column14Text1gridqControlSource = "usr" Format = "!" Height = 25 Left = 2 TabIndex = 11 Top = 4 Width = 262 Name = "datos" Class containerlis11formmenu#Verdana, 0, 8, 6, 13, 11, 16, 2, 0 formformmduloKTop = 119 Left = 101 DoCreate = .T. Caption = "Form3" Name = "mdulo" Class1Pixelsmdulo!Arial, 0, 9, 5, 15, 12, 13, 3, 0 BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 lis_cobPixelsClass3lislis_cobLeft = 168 Name = "var2" Label2.Left = 8 Label2.Top = 37 Label2.Name = "Label2" Text8.Left = 14 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 9 Text9.Top = 46 Text9.Name = "Text9" lis_cobvar2 container clases.vcx cod_desc_coblis_cobvar11lis_age clases.vcx containerlis_disName = "lis_dis" var1.Label2.Name = "Label2" var1.Text8.Name = "Text8" var1.Text9.Name = "Text9" var1.filtro = "D"$clase var1.Name = "var1" var2.Label2.Name = "Label2" var2.Text8.Name = "Text8" var2.Text9.Name = "Text9" var2.filtro = "D"$clase var2.Name = "var2" Class1Pixelslis_disBArial, 0, 9, 5, 15, 12, 16, 3, 0 Arial, 2, 9, 5, 15, 12, 16, 3, 0 lis_age clases.vcx containerlis_venNName = "lis_ven" var1.Label2.Name = "Label2" var1.Text8.Name = "Text8" var1.Text9.Name = "Text9" var1.filtro = "V"$clase var1.clase = VEN var1.Name = "var1" var2.Label2.Name = "Label2" var2.Text8.Left = 15 var2.Text8.Top = 5 var2.Text8.Name = "Text8" var2.Text9.Name = "Text9" var2.filtro = "V"$clase var2.Name = "var2" Class1Pixelslis_venBArial, 0, 9, 5, 15, 12, 16, 3, 0 Arial, 2, 9, 5, 15, 12, 16, 3, 0 cod_desc clases.vcx container cod_desc_tabJindicetabla = 0 dato_format = z dato_mask = 99 dato_maxlength = 2 dato_tabla = tablas tabla_ayuda = buscatcli tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = tmptablasN Name = "cod_desc_tab" Label2.Caption = "Tipo Tabla" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" PROCEDURE Destroy sele (this.tabla_tabla) use delete file (p_local+"\tmp\"+this.archivo+".dbf") delete file (p_local+"\tmp\"+this.archivo+".cdx") ENDPROC PROCEDURE Text8.Init this.parent.archivo=right(sys(2015),8) create table (p_local+"\tmp\"+this.parent.archivo) free; (; codigo n(2) ,; descr c(30) ; ) use (p_local+"\tmp\"+this.parent.archivo) alias (this.parent.tabla_tabla) for z=1 to 60 if alltrim(i_tab(this.parent.indicetabla,z))#"" insert into (this.parent.tabla_tabla) (codigo,descr) values (z,upper(alltrim(i_tab(this.parent.indicetabla,z)))) endif endfor index on codigo tag codigo index on descr tag descr cod_desc.text8::init ENDPROC Ndato_format = z dato_mask = 9999 dato_maxlength = 4 mensaje_error = "Tarjeta inexistente !!!" tabla_ayuda = bustarjetas tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = tarjetas Name = "cod_desc_trj" Label2.Caption = "Tarjeta" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" (control control_nombre control_clase hlp1cod_descPROCEDURE RightClick IF p_dev THEN =mensaje(this.Parent.cfg_parametro_original +CHR(13)+this.Parent.cfg_parametro ) ENDIF ENDPROC var1 cod_desc_mod111BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 71 container clases.vcx clases.vcx3Class1archivo Archivo temporal para la tabla N indicetabla Tabla N alias Specifies the alias used for each table or view associated with a Cursor object. Pixels cod_desc_tabBArial, 0, 9, 5, 15, 12, 16, 3, 0 Arial, 2, 9, 5, 15, 12, 16, 3, 0 cod_desc clases.vcx container cod_desc_atbjWidth = 540 Height = 40 mensaje_error = Atributo invlido !!! tabla_ayuda = busatb tabla_codigo = atributo tabla_desc = pregunta tabla_idxcod = atributo tabla_tabla = question vacio = 0 dato_format = ! dato_maxlength = 2 Name = "cod_desc_atb" Label2.Caption = "Atributo" Label2.Name = "Label2" Text8.Alignment = 3 Text8.Value = 0 Text8.Format = "z" Text8.Height = 25 Text8.InputMask = "999" Text8.Left = 80 Text8.MaxLength = 3 Text8.Top = 5 Text8.Width = 45 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 135 Text9.MaxLength = 60 Text9.Top = 5 Text9.Width = 395 Text9.Name = "Text9" Class1Pixels cod_desc_atbBArial, 0, 9, 5, 15, 12, 16, 3, 0 Arial, 2, 9, 5, 15, 12, 16, 3, 0  container1textbox11Pixels1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 reporte_ventanaPixelsClass1formreporte_ventanaform cod_desc_usr2Classcrystalimage container3Pixelslabelpropiedades_lis_comboGF113var2lis1toolbartoolbarbarra_de_botones1Caption = "Toolbar1" Name = "barra_de_botones" Class1Pixelsbarra_de_botonesbarra_de_botones clases.vcxtoolbar contabilidad`Caption = "Contabilidad" Height = 22 Left = 148 Top = 81 Width = 33 Name = "contabilidad" Class1Pixels contabilidadcrystalcrystal1propiedades_containerlistextbox12Text133var2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" textboxtextbox1Caption = "Inicio programado" Name = "Header1" 'planeamiento_por_maquina.Grid1.Column14Header1headerheader'planeamiento_por_maquina.Grid1.Column13GPROCEDURE Init dodefault() this.Left=thisform.Width-22 ENDPROC 8Pixels12Class1!Arial, 0, 9, 5, 15, 12, 32, 3, 0  clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0 5 commandbutton11BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cen_depPixelsClass3 containercen_depqTop = 35 Left = -1 Name = "Cod_desc_dep1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" cen_dep Cod_desc_dep1 container clases.vcx cod_desc_depcen_depAutoSize = .T. FontBold = .T. FontSize = 15 BackStyle = 0 Caption = "No llama a dodefault en el init !!!" Height = 27 Left = 0 Top = 0 Width = 308 ForeColor = 255,0,0 Name = "advertencia" 2 lis_combo_1lis_atrform^Top = 0 Left = 252 Height = 24 Width = 24 Enabled = .F. Interval = 100 Name = "Timer1"  containerbtnPlantilla_Excelcrystallabel23 clases.vcxClass1cod_desc_permisosClass clases.vcx1hlp!Arial, 0, 9, 5, 15, 12, 32, 3, 0  lbEtiqueta3propiedades_lis_comboformpropiedades_lis_combopropiedades_textolis411Pixelslis2Height = 500 Width = 706 Desktop = .F. ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "" ControlBox = .T. Icon = bmp\reporte.ico TitleBar = 0 WindowType = 1 WindowState = 2 Name = "reporte_ventana" textbox11 Cod_desc_ctr1 container clases.vcx cod_desc_ctr container1ControlSource = "codigo" Format = "z" Height = 25 InputMask = "9999" Left = 72 MaxLength = 4 TabIndex = 1 Top = 12 Width = 60 Name = "Text1" propiedades_containerlisform containerPixels121lislisBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 Pixels1Class1Pixels clases.vcx containerPROCEDURE Init this.mensaje_error=oBul.label_largo+" invlido !!!" dodefault() ENDPROC PROCEDURE Label2.Init this.Caption=oBul.label_largo ENDPROC  cod_desc_bulcod_desc_bulatr1Class containercod_desc clases.vcx containercod_desc_bulatrdato_format = ! dato_maxlength = 3 valor = vacio = space(3) Name = "cod_desc_bulatr" Label2.Name = "Label2" Text8.Format = "!" Text8.Height = 25 Text8.Left = 80 Text8.MaxLength = 3 Text8.Top = 5 Text8.Width = 64 Text8.Name = "Text8" Text9.Name = "Text9" PROCEDURE GotFocus *!* if used(this.tabla_tabla) *!* sele (this.tabla_tabla) *!* else *!* sele 0 *!* endif *!* xcodins=bienes.cod_ins *!* do stat_on in common *!* use (this.tabla_tabla) excl *!* index on clave tag codigo *!* do stat_off in common ENDPROC propiedades_lis_combo_internopropiedades_textohlpformcod_desccod_desc_permisoshlpabm2Class3gridform1keepClassClass1Pixelscod_desc_bulatrBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 formsetformset acep_cancName = "acep_canc" Class2formformForm1 acep_canc3DoCreate = .T. Caption = "Form1" Name = "Form1" 6PROCEDURE Unload return this.resultado ENDPROC  clases.vcx3spNumeroBdesde = thisform.xdmod hasta = thisform.xhmod Name = "lis_mod"  clases.vcxClass ayuda_webspinner11Pixels acep_canc!Arial, 0, 9, 5, 15, 12, 32, 3, 0 AutoSize = .T. FontBold = .T. Caption = "Marca" Height = 17 Left = 24 Top = 51 Width = 38 TabIndex = 5 Name = "Label1" PAnchor = 9 Height = 20 Left = 300 Top = 0 Width = 20 Name = "Ayuda_wiki1" PROCEDURE Click help id thisform.HelpContextID ENDPROC PROCEDURE Init this.Left=thisform.Width-22 this.TabIndex=255 ENDPROC labelexportaciones_xlsClass1exportaciones_xlsexportaciones_xlsspinner271vTop = 84 Left = 197 Height = 25 Width = 73 FontBold = .T. Caption = "Cancelar" TabIndex = 4 Name = "Command2" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 propiedades_textopropiedades_textocomboboxlis1Pixels|AutoSize = .T. FontBold = .T. FontSize = 10 Caption = "RC" Height = 18 Left = 3 Top = 1 Width = 20 Name = "Label1" textboxtextbox cfg_textboxClass lis_combo_1propiedades_numero container1var2 lbEtiqueta3231 container clases.vcx1Format = "!" Height = 25 InputMask = "" Left = 80 MaxLength = 8 SelectOnEntry = .T. TabIndex = 1 Top = 4 Width = 72 ColorScheme = 2 DisabledForeColor = 0,0,0 Name = "Text8" @Height = 23 Left = 58 Top = 3 Width = 205 Name = "txTexto" 3bPROCEDURE Click thisform.procesar_cancelar thisform.resultado=.f. thisform.release ENDPROC lis1var21Name = "exportaciones_xls" custom1Class3lis11 container containerold_lis_codbulatr2Width = 580 Height = 34 Name = "lis_codbulatr" Class3Pixels lis_codbulatr clases.vcx container Codbulatr1old_lis_codbulatrTop = -2 Left = 0 Width = 312 Height = 40 Name = "Codbulatr1" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Name = "Text1"  lis_codbulatr clases.vcx container Codbulatr2old_lis_codbulatrTop = -1 Left = 336 Width = 240 Height = 40 Name = "Codbulatr2" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Left = 6 Cod_desc_bie1.Text8.Top = 5 Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Left = 217 Cod_desc_bie1.Text9.Top = 5 Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Top = 0 Cod_desc_bie1.Cod_desc_atr1.Left = 107 Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Top = 0 Cod_desc_bie1.Cod_desc_bul1.Left = 172 Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Top = 0 Cod_desc_bie1.Left = 0 Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Name = "Text1" old_lis_codbulatrBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc clases.vcx container cod_desc_topdato_format = z dato_mask = 999 dato_maxlength = 3 mensaje_error = "Tipo de operacin invlida !!!" tabla_ayuda = bustop tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = tipooper Name = "cod_desc_top" Label2.WordWrap = .T. Label2.Caption = "Tipo de Operacin" Label2.Height = 32 Label2.Left = 8 Label2.Top = 1 Label2.Width = 61 Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Class1Pixels cod_desc_topBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 !Arial, 0, 9, 5, 15, 12, 32, 3, 0 sectoresPixelsClass containersectoressectoresLabel10labellabel1lis1;Height = 29 datos_minimo = 0 Name = "propiedades_texto" propiedades_containerlis clases.vcxClass3multiestado_mensaje2113formform frame_dosDataSession = 2 Height = 375 Width = 561 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "" FontName = "Courier New" KeyPreview = .F. WindowType = 0 ZoomBox = .T. Name = "frame_dos" Class1PixelsPantalla DOS para listados frame_dos&Courier New, 0, 9, 7, 15, 12, 8, 3, 0 formformreporteHeight = 550 Width = 790 Desktop = .T. ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "Reporte" Icon = bmp\reporte.ico AlwaysOnTop = .T. Name = "reporte" Class1resultado archivo Pixelsreporte!Arial, 0, 9, 5, 15, 12, 32, 3, 0 !Arial, 0, 9, 5, 15, 12, 32, 3, 0  lis_combo_1hlpabm2propiedades_numero110lis121>Width = 120 Height = 24 BorderWidth = 0 Name = "datetime"  cod_desc_depPixelsClasspropiedades_numeroform1PixelsYBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Text1textboxtextbox+Caption = "Ocupa Hasta" Name = "Header1" 'planeamiento_por_maquina.Grid1.Column13Header1headerheaderText1textboxtextboxpropiedades_numerohlpabm24cod_desc cod_desc_dep container!Arial, 0, 9, 5, 15, 12, 32, 3, 0  clases.vcxtxTextoform311lis_bulPixelsClass1gridForm13lis_bul1formformviewerHeight = 400 Width = 600 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "" MinHeight = 200 MinWidth = 440 WindowType = 1 Name = "viewer" PROCEDURE Init parameters xtxt xarchivo="" do newfile in listados with xarchivo thisform.archivo = p_local+"\tmp\"+xarchivo create table (p_local+"\tmp\"+xarchivo) free (txt m) use (p_local+"\tmp\"+xarchivo) alias viewer append blank append memo txt from (xtxt) repl txt with cpconvert(850,1252,txt) thisform.edit1.controlsource = "viewer.txt" thisform.edit1.width = 576 thisform.edit1.height = 336 thisform.edit1.visible =.T. ENDPROC PROCEDURE Resize thisform.edit1.width = thisform.width-20 thisform.edit1.height = thisform.height-64 thisform.command1.top = thisform.height-40 thisform.command1.left = (thisform.width-132)/2 ENDPROC propiedades_cuadro_textoClassClasseditbox30121form*Height = 29 Name = "propiedades_numero" 1 container clases.vcxPixelsClass1propiedades_container131textboxlisSBClassPROCEDURE Text8.Valid IF (this.Value=-1 OR this.Value=-2) AND this.Parent.Parent.permitir_lineas_especiales THEN RETURN .t. ELSE DODEFAULT() endif ENDPROC  cod_desc_lin container clases.vcxPixelshlp1cod_desc_bie_codaltcombopropiedades_cuadro_textopropiedades_lis_comboeditbox containerCommand62ClassClass archivo PixelseditboxeditboxEdit1viewerxFontName = "Courier New" FontSize = 9 Height = 336 Left = 12 ScrollBars = 2 Top = 12 Width = 576 Name = "Edit1"  commandbutton commandbuttonCommand1viewereTop = 360 Left = 234 Height = 27 Width = 132 Caption = "Salir" TabIndex = 3 Name = "Command1" gPROCEDURE Click sele viewer use delete file (thisform.archivo+".dbf") thisform.release ENDPROC PROCEDURE RightClick this.Parent.Parent.Parent.int_pup_Show_Popup ENDPROC PROCEDURE DblClick this.Parent.Parent.Parent.set_dbl ENDPROC 'planeamiento_por_maquina.Grid1.Column12(Caption = "Restante" Name = "Header1" Text1viewerGArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 9, 7, 15, 12, 8, 3, 0 hTop = 216 Left = 204 Height = 25 Width = 61 FontBold = .T. Caption = "Cancela" Name = "Command2"  commandbuttonhlpabm2!Arial, 0, 9, 5, 15, 12, 32, 3, 0  lbEtiquetaCommand5 clases.vcxpropiedades_cuadro_textopropiedades_cuadro_texto lis_combo_2 document_id hlpabm2AArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 hlpabm2lis clases.vcxlisClasscod_descgridFontBold = .T. FontSize = 7 Anchor = 8 ControlSource = "thisform.datasessionid" Height = 21 Left = 322 Top = 1 Width = 19 Name = "Text1" HPROCEDURE Init this.top=1 this.left=1 this.Visible=p_dev ENDPROC 1uTop = 84 Left = 108 Height = 25 Width = 73 FontBold = .T. Caption = "Aceptar" TabIndex = 3 Name = "Command1" ~resultado tipoabm 1=agregar 2=modificar 3=visualizar *validar Valida la actualizacin, pero no la ejecuta *asignar_color oHeight = 115 Width = 363 DoCreate = .T. AutoCenter = .T. Caption = "Marcas" WindowType = 1 Name = "abm"  commandbuttonformAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Sectores" Height = 17 Left = 0 Top = 5 Width = 54 TabIndex = 14 Name = "Label10" sectores commandbutton commandbutton commandbuttontimer3hlpabm2 cfg_mailsndPixelsClass container cfg_mailsndimNadamAlignment = 3 Height = 23 Left = 154 MaxLength = 254 TabIndex = 1 Top = 1 Width = 100 Name = "Texto" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 imageClass container lis_codbulatrimagelislisTexto'planeamiento_por_maquina.Grid1.Column12lisFontItalic = .T. BorderStyle = 1 ControlSource = "this.parent.nombre" Enabled = .F. Format = "!" Height = 25 InputMask = "" Left = 164 MaxLength = 40 TabIndex = 2 Top = 5 Width = 216 ColorScheme = 2 DisabledForeColor = 0,0,0 Name = "Text9" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Texto" Enabled = .T. Height = 17 Left = 8 Top = 9 Width = 34 TabIndex = 3 DisabledForeColor = 0,0,0 Name = "Label2" Class cod_desc_atr1PROCEDURE Click thisform.clonar ENDPROC ILcomboboxCommand4label containerhlpPixelslisTop = 0 Left = 0 Height = 20 Width = 20 FontBold = .T. FontName = "Arial" FontSize = 15 Anchor = 8 Caption = "?" Enabled = .F. TabIndex = 200 Visible = .F. ForeColor = 0,0,255 Name = "ayuda"  commandbutton containerhlp commandbuttonBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_prodPixels lis_codbulatr clases.vcxlis!Arial, 0, 9, 5, 15, 12, 32, 3, 0 fechaPixelsClasstextboxfechatextbox commandbutton Ayuda_wiki1formset*asignar_color cod_desc_cfg_ventasClassCommand3 commandbuttonbPROCEDURE InteractiveChange *=sys_m("Click") THIS.PARENT.Propiedad.Valor=THIS.VALUE ENDPROC  commandbuttonPixelsgPROCEDURE InteractiveChange *=sys_m("Click") THIS.PARENT.Propiedad.Valor=STR(THIS.VALUE) ENDPROC Command2 lis_codbulatrlabelhlpcomboboxTop = 2 Left = 3 Width = 261 Height = 25 Name = "cbInterno" cmd_filtro.Name = "cmd_filtro" Texto.Name = "Texto" combo.Width = 175 combo.Name = "combo" labelcod_descBPROCEDURE Load dodefault() thisform.asignar_color() ENDPROC hlpabm2hlplabel container clases.vcxCommand1tildeGPROCEDURE Init dodefault() this.Left=thisform.Width-22 ENDPROC PixelsPROCEDURE updated =seek(deposito.central,"central","central") if deposito.central#this.Parent.cod_desc_ctr1.valor select central set order to central seek deposito.central this.Parent.cod_desc_ctr1.valor = deposito.central endif ENDPROC PROCEDURE Click =This.Parent.Proximo() ENDPROC PROCEDURE DblClick this.parent.anterior () this.parent.Mostrar_Edit() ENDPROC  cfg_mailsndimageimage cfg_mailsndimEdit commandbuttoncheckbox@Height = 25 Left = 64 Top = 2 Width = 56 Name = "spNumero"  commandbutton lis_combo_2Pixels lis_combo_2 lis_combo_2lis_codbulatr.Cod_desc_bie1 containercod_desc_bie_codaltqTop = -1 Left = -1 Name = "Cod_desc_ctr1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9"  clases.vcxHeader1ccfg_valor_logico Si est est en .T. el valor de salida es .T. o .F. aunque internamente es 0 o 1 FWidth = 398 Height = 31 cfg_valor_logico = .F. Name = "cfg_combo" cod_desc_tsp_trailerscomboboxlabelform lis_combo_2ClasshBorderStyle = 0 Enabled = .F. Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderPROCEDURE RightClick this.Parent.Parent.Parent.int_pup_Show_Popup ENDPROC PROCEDURE DblClick this.Parent.Parent.Parent.set_dbl ENDPROC textboxtextboxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0  containerCheck1ClasshlpaTop = 0 Left = 322 Height = 27 Width = 28 Picture = bmp\mas.ico Caption = "" Name = "mas"  commandbuttonsectorescampotextboxtextbox containercheckbox clases.vcximageimage cfg_mailsndimHelpimageimage cfg_mailsndimMail8Abm con buffering y transacciones, requiere la clase abm!Arial, 0, 9, 5, 15, 12, 32, 3, 0 'planeamiento_por_maquina.Grid1.Column11 commandbutton commandbuttonpropiedades_lis_combo_interno imp_exp.vcx exportaciones_parametros_formatoPixelsClass exportaciones_parametros_formato exportaciones_parametros_formatocustompropiedades_lis_combo_internoLabel1Pixels Cod_desc_bul1labelvar1 campo_basePixels container campo_base/Width = 430 Height = 27 Name = "campo_base" var2custom clases.vcxpropiedad_adminIL16 clases.vcx containertmrClickpropiedad_adminText1Class!Arial, 0, 9, 5, 15, 12, 32, 3, 0 propiedad_admin ckImprimibleformset cod_desc_bul cod_desc_age clases.vcx container cod_desc_cobfiltro = 'C'$clase mensaje_error = 'Cobrador invlido!!!' clase = COB Name = "cod_desc_cob" Label2.Caption = "Cobrador" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ClassPixels cod_desc_cobBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  hlp_tabla clases.vcx containerold_hlp_moneda BorderWidth = 0 value = 0 maxarreglo = 6 Name = "hlp_moneda" Combo1.BoundColumn = 2 Combo1.ColumnCount = (ALEN(mm_monsym,2)) Combo1.ColumnWidths = "222,0" Combo1.RowSource = "mm_monsym" Combo1.FirstElement = 1 Combo1.NumberOfElements = (ALEN(mm_monsym)) Combo1.Name = "Combo1" PROCEDURE LostFocus *this.value=this.combo1.value-1 ENDPROC PROCEDURE Init *this.value=this.combo1.value-1 ENDPROC PROCEDURE Combo1.Init local usado,z store '' to this.parent.arreglo this.parent.arreglo(1)=padr(mm_moneda(1,1),30) for z=2 to mm_max this.parent.arreglo(z)=padr(mm_moneda(z,1),30) endfor local aaa aaa = this.parent.dato this.controlsource=this.parent.dato aaa=&aaa this.value=min(aaa+1,this.parent.maxarreglo) if !p_multimon this.tooltiptext='Slo para la versin multimoneda !!!' endif ENDPROC PROCEDURE Combo1.Valid local aaa aaa = this.parent.dato &aaa=this.value && -1 ENDPROC  direccion Anchor = 15 Picture = bmp\hlp_priv.ico Stretch = 2 BackStyle = 0 Height = 24 Left = 0 Top = 0 Visible = .F. Width = 24 Name = "imNada" checkboxlabel cod_desc_pvtPixelsPixelspropiedad_admincod_desclabel cod_desc_pvtlabelcustompropiedades_lis_combo_noname ckObligatoriacheckboxcheckbox container clases.vcx containerPixels cfg_controlcustom cfg_controlhlp2customheaderLabel2PROCEDURE iniciar_estados This.estados(1) = "procesando.gif" This.estados(2) = "ok.png" This.estados(3) = "mal.png" ENDPROC Pixels+Name = "multiestado_imagen_conn_ok_error" Class ckEtiquetardato Dato al que est ligado (no usar combo1.controlsource !!!) value Specifies the current state of a control. Pixelsold_hlp_moneda#Verdana, 0, 9, 6, 14, 12, 18, 2, 0 cod_desc clases.vcx container cod_desc_zon25) THEN this.enabled=.t. this.ControlSource ="abmmailctas.usa_gmail" ELSE this.enabled=.f. endif ENDPROC PROCEDURE InteractiveChange Thisform.Actualizar_GMAIL() ENDPROC PROCEDURE ProgrammaticChange Thisform.Actualizar_GMAIL() ENDPROC  container&Top = 48 Left = 0 Name = "gen_txt"  commandbuttoncontrolwizard_buttonsshape clases.vcx cfg_textboxmail_asignaciones containerbtnTablacod_desccf_ve_fce_fromname clases.vcxlabelBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  clases.vcx'Ayuda para tablas del tipo codigo, desccheckboxhlp btn_buscar commandbutton commandbuttoncrystalClassabm_form clases.vcxvar1 wizard_formcheckboxlabellis_marPixels cod_desc_arm cod_desc_arm5controla_bul_atr control_bultos control_atributos  cod_desc_biezName = "grilla_formato_colsel" LV.Top = 0 LV.Left = 0 LV.Height = 264 LV.Width = 444 LV.Name = "LV" GF.Name = "GF" form_controles.vcxform_controles.vcxName = "grilla_formato" grilla_formatogrilla_formatoClassPixelsClassPixelsgrilla_formatogrupo_opcionessdato = thisform.xdmaq dato_format = z dato_mask = 9999 dato_maxlength = 4 dato_tabla = m mensaje_error = ("Mquina invlida!!!") tabla_ayuda = busmaquinas tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = maquinas Name = "cod_desc_maq" Label2.Caption = "Mquina" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" archivo ver_titulo ver_leyenda titulo id Registro de GraphDB label1 label2 label3 label4 label5 label6 *llenar_de_cursor *ver_leyenda_assign *ver_titulo_assign *titulo_assign Text1 containercustom container containerClassfPROCEDURE InteractiveChange this.parent.rollbacks=this.value this.Parent.command1.click ENDPROC  commandbutton consolidadolabelPixelsPROCEDURE Init this.Left=thisform.Width-45 this.TabIndex=254 if !p_dev this.Enabled=.f. this.Visible=.f. endif ENDPROC PROCEDURE DblClick try mensaje( alltrim(str(thisform.width))+" x "+alltrim(str(thisform.height)) ) catch endtry ENDPROC crystallabel commandbutton commandbutton commandbuttonBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 lis_marlabel cod_desc_asmPixelscod_desc cod_desc_asm commandbuttonClassLabel1label containerClassLabel1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 var2timerexportaciones_comboBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0  btnexportarcheckbox containerlabel cfg_textbox(prefijo_parametros *actualizar_gmail  container commandbutton commandbuttoncheckboxlis_mar containerlis_mar clases.vcxcrystalClasslis_biecod_descTop = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" btnsalir commandbuttoncod_desccomboboxcontadortextboxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 cod_desc_cfg_ventas container clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0  container commandbuttonClass clases.vcx cod_desc_mar container clases.vcx cod_desc_mar container clases.vcx cod_desc_mar PROCEDURE Init try if !(gesform.empresas.Puede_Consolidar and gesform.empresas.empresa_dos.presente) this.rowsource="No,N,S,S" endif catch this.rowsource="No,N,S,S" endtry if this.Parent.no_parcial this.rowsource="No,N,S,S" endif ENDPROC pComment = "" Width = 222 Height = 42 BackStyle = 0 BorderWidth = 0 no_parcial = .F. Name = "consolidado" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 crystal btnvisualizarvar1Classvar2editboxeditboxvalor_original formtimer commandbutton commandbuttonClasscustom!Arial, 0, 9, 5, 15, 12, 32, 3, 0 lis_pai lis_combo_1lis_pai containerPixelsPAnchor = 9 Height = 20 Left = 504 Top = 0 Width = 20 Name = "Ayuda_wiki1" Pixelsimage containertextboxtextboxpTop = 4 Left = 51 Height = 48 Width = 48 Picture = bmp\engranajes.ico Caption = "" Name = "BT_IMP_SETUP" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 Pixels containerClasscontrol optiongroup clases.vcx*enabled_assign ClassTop = 70 Left = 361 Height = 25 Width = 55 Caption = "Probar" TabIndex = 6 ToolTipText = "Envia un mail a la direccin de control para probar la configuracin del mail." Name = "btProbar"  containerlis optiongroup containerPixelscrystalviewer.ctBotones crystalviewer ctBotones containervar1timer containerPixels imp_exp.vcx optiongroup 7%:NHU B-UWhen,1q3) containerlis_mod containerwizard_buttonstextbox containersi_no>ultimo_tamao ultimo_ancho original_tamao original_ancho Text1hAlignment = 3 Value = 0 Height = 22 Left = 522 TabIndex = 1 Top = 17 Width = 52 Name = "txPage" timerpano containerwizard_buttons crystalviewerformTexto1var2cod_desc_catpro3ptabla_ayuda = bus_tsp_trai tabla_codigo = codigo tabla_idxcod = codigo tabla_desc = descr tabla_tabla = tsp_trai dato_format = z dato_mask = 999999 dato_maxlength = 6 dato_tabla = tsp_trai mensaje_error = ("Trailer invlido !!!") Name = "cod_desc_tsp_trailers" Label2.Caption = "Trailer" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Top = 0 Left = 168 Width = 160 tabla_tabla = tsp_luga Name = "var2" Label2.Left = 8 Label2.Top = 45 Label2.Name = "Label2" Text8.Left = 15 Text8.Name = "Text8" Text9.Name = "Text9" Vdesde = thisform.xdtsp_lugar hasta = thisform.xhtsp_lugar Name = "lis_tsp_lugares" lis_tsp_choferesPROCEDURE RightClick this.Parent.Parent.Parent.int_pup_Show_Popup ENDPROC PROCEDURE DblClick this.Parent.Parent.Parent.set_dbl ENDPROC YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" textbox?Width = 273 Name = "lis_mar" cmd_filtro.Name = "cmd_filtro" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  crystalviewer tmr_Inicial crystalviewerClass lis_cos_pref btPosicioncombobox olecontrol olecontrol!Arial, 0, 9, 5, 15, 12, 32, 3, 0 usuarioPixelsPixelsClasscod_desclabelcod_desc_uni_fceayuda containerusuariousuarioImage1imageimagevar2usuarioText1textboxtextboxcod_desc_catprovar2usuario containercod_desc cod_desc_mar[PROCEDURE Text8.Init if !used("marcas") use marcas in 0 endif dodefault() ENDPROC >Height = 23 Left = 36 Top = 2 Width = 228 Name = "Text1" Label1textowizard_buttonsinicioBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 control_de_seleccion_y_ordenfPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC  cmd_filtroPixelsPixels containerPHeight = 20 Width = 21 ultimo_ancho = .F. Name = "resizer_control_columnas" datetime containerlabellabel?user_switched usuario_anterior *recuperar_usuario_original  containervar1 cod_desc_ageText2Class clases.vcx container hlp_bienes container cod_desc_bul container clases.vcx_Top = 0 Left = 36 Height = 25 Width = 25 Enabled = .F. Interval = 100 Name = "tmrClick" PixelsClass hlp_bienes+PROCEDURE Init this.Visible=.f. ENDPROC  clases.vcx exportacionesPixelsClass exportaciones exportacioneslog_path *log_guardar hlp hlp_bienescod_desc_tsp_trailers container containerBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 lis_bul container clases.vcx cod_desc_bullis_bul container clases.vcx cod_desc_bul container clases.vcxRWidth = 778 Height = 337 prefijo_parametros = ("") Name = "mail_asignaciones" ]Top = 48 Left = 494 Height = 24 Width = 24 campos_desde_crystal = .T. Name = "gen_xls"  containerLabel9labeltextboxhlp_consolidadoClasslabel hlp_bienesvar1dlog_path = .F. Name = "exportaciones" exportaciones_parametros.Name = "exportaciones_parametros"  container imp_exp.vcxcod_desc_atrhabil clases.vcxcod_desctextboxHeader1PixelsLPROCEDURE Init this.ultimo_tamao = CREATEOBJECT("Collection") ENDPROC Grid1Label8labelPixelscod_desc clases.vcx container cod_desc_flemensaje_error = 'Flete invlido !!!' tabla_codigo = cod_fle tabla_desc = nombre tabla_idxcod = codfle tabla_tabla = fletes vacio = space(6) tabla_ayuda = busfle nombre = Fletes dato_format = ! dato_maxlength = 6 valor = Name = "cod_desc_fle" Label2.Caption = "Flete" Label2.Name = "Label2" Text8.Value = space(6) Text8.MaxLength = 6 Text8.Name = "Text8" Text9.Name = "Text9" ClassimagePixels cod_desc_fleBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc clases.vcx containercod_desc_plancmensaje_error = 'Plan invlido !!! nombre = Planes de Cobranza tabla_ayuda = busfcob tabla_codigo = plan tabla_desc = descr tabla_idxcod = plan tabla_tabla = condcobr vacio = 0 dato_format = z dato_maxlength = 4 Name = "cod_desc_planc" Label2.Caption = "Plan de Cobranza" Label2.Name = "Label2" Text8.ControlSource = "clientes.fpag" Text8.Format = "z" Text8.InputMask = "9999" Text8.MaxLength = 4 Text8.Name = "Text8" Text9.Name = "Text9" ClassimagePixelscod_desc_plancBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc clases.vcx containercod_desc_planp=mensaje_error = Plan de Pagos invlido !!! tabla_ayuda = busfpag tabla_codigo = plan tabla_desc = descr tabla_idxcod = plan tabla_tabla = condpago dato_format = z dato_maxlength = 4 Name = "cod_desc_planp" Label2.Caption = "Plan de Pagos" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ClassPixelscod_desc_planpBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc clases.vcx container cod_desc_promensaje_error = Proveedor invlido !!! nombre = Proveedor tabla_ayuda = buspro tabla_codigo = cod_pro tabla_desc = nombre tabla_idxcod = codpro tabla_tabla = proveedo vacio = space(6) dato_format = ! dato_maxlength = 6 valor = Name = "cod_desc_pro" Label2.Caption = "Proveedor" Label2.Name = "Label2" Text8.Left = 80 Text8.MaxLength = 6 Text8.Top = 5 Text8.Name = "Text8" Text9.Name = "Text9" ClassPixelsPixels cod_desc_proBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc clases.vcx container cod_desc_queWidth = 573 Height = 40 BackColor = 0,0,0 dato_format = z dato_mask = 999 dato_maxlength = 3 dato_tabla = question mensaje_error = "Atributo invlido !!!" tabla_ayuda = busque tabla_codigo = atributo tabla_desc = pregunta tabla_idxcod = atributo tabla_tabla = question Name = "cod_desc_que" Label2.Caption = "Atributo" Label2.Left = 8 Label2.Top = 11 Label2.Name = "Label2" Text8.Left = 84 Text8.Top = 7 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 168 Text9.Top = 7 Text9.Width = 400 Text9.Name = "Text9" ClassformPixels cod_desc_queBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Web" Height = 17 Left = 0 Top = 4 Width = 28 TabIndex = 18 Name = "Label10"  wizard_formcfg_baseTimer1 clases.vcxcrystal_viewer commandbuttonlis_fec crystalviewer dummy_obj commandbuttonPixelslabelimage hlp_bienes hlp_bienesheader filtro_stockBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  cod_desc_uni container optiongroup optiongroupvar1cod_desc clases.vcx containerco_desc_motivosdato_format = z dato_mask = 999 dato_maxlength = 3 mensaje_error = "Motivo Inexistente !!!" tabla_ayuda = busmotivos tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = motivos Name = "co_desc_motivos" Label2.AutoSize = .F. Label2.WordWrap = .T. Label2.Caption = "Motivo Contable" Label2.Height = 27 Label2.Left = 8 Label2.Top = 2 Label2.Width = 64 Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Class btAceptarPixelsco_desc_motivosBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 formformborrarTop = 0 Left = 0 Height = 742 Width = 1017 DoCreate = .T. Caption = "Form1" WindowType = 1 WindowState = 2 Name = "Reporte" ClassPixelsborrar!Arial, 0, 9, 5, 15, 12, 32, 3, 0 GCourier New, 0, 9, 7, 15, 12, 8, 3, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0 lis_serPixelsClass lis_nohlplis_sersWidth = 255 Height = 40 desde = thisform.xdser hasta = thisform.xhser Name = "lis_ser" Label1.Caption = "Serie" Label1.Name = "Label1" Text1.ControlSource = "thisform.xdser" Text1.Height = 24 Text1.Left = 78 Text1.Top = 6 Text1.Width = 174 Text1.Name = "Text1" Text2.Enabled = .F. Text2.Left = 261 Text2.Top = 6 Text2.Visible = .F. Text2.Name = "Text2"  container clases.vcxTop = 0 Left = 168 Name = "var2" Label2.Caption = "" Label2.Name = "Label2" Text8.Left = 14 Text8.Top = 5 Text8.Name = "Text8" Text9.Name = "Text9" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 lis_prvcod_desc_atrhabil clases.vcxArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Wizard_buttons11 clases.vcx/PROCEDURE Init this.Visible=p_dev ENDPROC label clases.vcx container lis_catcliName = "lis_catcli" Class pageframePixelscod_desc_catcli clases.vcx containervar1 lis_catcliTop = 0 Left = 0 Width = 156 Height = 40 Name = "var1" Label2.Name = "Label2" Text8.Format = "z" Text8.InputMask = "99999" Text8.MaxLength = 5 Text8.Name = "Text8" Text9.Name = "Text9" cod_desc_catcli clases.vcx containervar2 lis_catcliTop = 0 Left = 168 Name = "var2" Label2.Caption = "" Label2.Name = "Label2" Text8.Format = "z" Text8.InputMask = "99999" Text8.Left = 15 Text8.MaxLength = 5 Text8.Top = 5 Text8.Name = "Text8" Text9.Name = "Text9"  lis_catcliBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 &formulario_wizard_acep_canc.btPosicion&formulario_wizard_acep_canc.btPosicion&formulario_wizard_acep_canc.btPosicionlabelClassvar1TWidth = 361 Height = 27 BackStyle = 0 BorderWidth = 0 Name = "wizard_buttons1"  texto_dev hlp_bienescliente *parse  olecontrol clases.vcxlis_prv2 lis_combo_3Top = 0 Left = 168 Name = "var2" Label2.Left = 84 Label2.Top = 75 Label2.Visible = .F. Label2.Name = "Label2" Text8.Left = 15 Text8.Name = "Text8" Text9.Visible = .F. Text9.Name = "Text9"  Cod_desc_pro1 link_wikivar1 container clases.vcx cod_desc_pro hlp_bienesLabel7label containerlabel hlp_bienesLabel6labellabellis_prv2 lis_cos_pref!Arial, 0, 9, 5, 15, 12, 32, 3, 0 PixelsgrillagrillaName = "grilla" form_controles.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc_catpro2 lis_catpro2 lis_catpro2Pixels.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx  olecontrolvar1Pixels hlp_bienesLabel5labellabel hlp_bienesa*row_gotfocus Debe ser llamada en cada campo para que actualice los datos externos a la grilla.  lis_combo_3ClassBdesde = thisform.xdage hasta = thisform.xhage Name = "lis_age" headerVCaption = "Versin" Height = 17 Left = 600 Top = 420 Width = 40 Name = "Label1" Label4labellabel+PROCEDURE Init this.Value=.f. ENDPROC  container hlp_bienessolo_descripcioncheckboxcheckbox hlp_bienes Command15 clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0  containersTop = 0 Left = 0 Width = 157 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9"  clases.vcx clases.vcx lis_nohlp lis_nohlp hlp_bienes containerayudita ayudita  lis_nohlp container@Height = 120 Left = 12 Top = 24 Width = 216 Name = "Grid1"  commandbutton commandbuttonPixelsCommand1Text4textboxtextbox crystalviewer Tb_controler1 hlp_bienes olecontrol1 *!* xpag = "this.parent.parent.parent.page"+alltrim(str(this.parent.parent.pageorder -1))+".setfocus" *!* &xpag *!* endif *!* local z *!* for z=1 to this.parent.parent.parent.pagecount *!* if this.parent.parent.pageorder = this.parent.parent.parent *!* exit *!* endif *!* endfor local xpag if this.parent.parent.pageorder>1 xpag = "this.parent.parent.parent.page"+alltrim(str(this.parent.parent.pageorder -1))+".setfocus" &xpag endif ENDPROC Top = 0 Left = 0 Width = 157 Height = 40 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Visible = .F. Text9.Name = "Text9" checkbox hlp_bienes2checkboxvar2 commandbuttoncheckboxvar2wizard_buttons1label container cod_desc_empBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  containerClass commandbutton commandbuttonCommand2page_frame_buttonsTop = 0 Left = 36 Height = 36 Width = 34 Picture = bmp\flecha_derecha_rj.gif DisabledPicture = bmp\flecha_derecha_gr.gif Caption = "" TabIndex = 2 Name = "Command2" PROCEDURE Init *!* if upper(this.parent.parent.name)="PAGE"+alltrim(str(this.parent.parent.parent.pagecount)) *!* this.enabled=.f. *!* endif if this.parent.parent.pageorder=this.parent.parent.parent.pagecount this.enabled=.f. endif ENDPROC PROCEDURE Click local xpag if this.parent.parent.pageorder2,RECCOUNT(),1) oEstado.Value=1 oEstado.Texto="Agregando datos a la planilla" SELECT (THIS.ALIAS) GO TOP DO WHILE !EOF() AND !xSalir oEstado.Value=oEstado.Value+1 IF THIS.grupo_cambio(xGrupo_Iniciado) THEN THIS.grupo_total (xGrupo_Iniciado) THIS.grupo_encabezado() xGrupo_Iniciado=.T. ENDIF xIniciar=.F. THIS.manuales_antes() THIS.linea () THIS.manuales_despues () SELECT (THIS.ALIAS) Skip ENDDO oEstado.Max=xOldMax oEstado.Value=xOldVal IF !xIniciar THEN THIS.grupo_total (xGrupo_Iniciado) THIS.total_General () ENDIF ENDPROC PROCEDURE texto PARAMETERS xCampo,xPos PRIVATE xValue1,xValue2,xValue3 txcam=this.campos_get(xCampo) xFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) SELECT(THIS.ALIAS) xValue1=EVALUATE(xFormula) *!* xValue2='' *!* DO CASE *!* CASE xTipo="C" *!* xValue2=xValue1 *!* CASE xTipo="N" *!* xValue2=TRANSFORM(xValue1,xFormato) *!* CASE xTipo="D" *!* xValue2=TRANSFORM(xValue1,xFormato) *!* CASE xTipo="L" *!* xValue2=&xFormato *!* ENDCASE this.xls_sheet.Cells(this.xls_row,xPos).value=xValue1 this.xls_sheet.Cells(this.xls_row,xPos).numberFormat=xFormato DO CASE CASE xAlinea=="" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=0 CASE xAlinea="R" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4131 CASE xAlinea="C" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4108 CASE xAlinea="L" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4152 ENDCASE this.xls_sheet.Cells(this.xls_row,xPos).Font.Bold=(xCampo=2) ENDPROC PROCEDURE total_general PRIVATE nIt SELECT(THIS.ALIAS) ** Transforma el formato en BOLD this.xls_row=this.xls_row+1 FOR nIt=1 TO this.campos_linea_pos this.Total(1,nIt,.t.) Next ** Impresion de los totales FOR nIt=1 TO this.campos_linea_pos this.Total(1,nIt,.f.) Next ENDPROC PROCEDURE crear_encabezado PARAMETERS xForzar AS Boolean , xReserveLin AS INTEGER PRIVATE txCam,nIt THIS.xls_sheet.cells(1,1)=THIS.PARENT.titulo1 txCam=THIS.campos_get(1) this.xls_workbook.windows(1).visible=.t. FOR nIt=1 TO THIS.campos_linea_pos xLabel=&txCam.(nIt,2) xAncho = &txCam.(nIt,5) xAlinea= &txCam.(nIt,6) THIS.xls_sheet.cells(3,1).COPY IF nIt#1 THEN =THIS.xls_sheet.cells(3,nIt).PasteSpecial ENDIF THIS.xls_sheet.cells(3,nIt).VALUE=xLabel DO CASE CASE xAlinea=="" THIS.xls_sheet.cells(3,nIt).horizontalAlignment=0 CASE xAlinea="R" THIS.xls_sheet.cells(3,nIt).horizontalAlignment=-4131 CASE xAlinea="C" THIS.xls_sheet.cells(3,nIt).horizontalAlignment=-4108 CASE xAlinea="L" THIS.xls_sheet.cells(3,nIt).horizontalAlignment=-4152 ENDCASE NEXT this.xls_workbook.windows(1).visible=.F. ENDPROC PROCEDURE campos_get PARAMETERS xCampo as Integer PRIVATE txCam as String DO Case CASE xCampo=1 txCam="this.campos_linea" CASE xCampo=2 txCam="this.campos_grupo" CASE xCampo=3 txCam="this.campos_grupo_total" CASE xCampo=4 txCam="this.campos_total" CASE xCampo=5 txCam="this.campos_manual" ENDCASE RETURN txCam ENDPROC PROCEDURE totaliza PARAMETERS xCampo,xPos PRIVATE xValue1,xValue2,xValue3 txcam=this.campos_get(xCampo) IF !&txCam.(xPos,7) AND !&txCam.(xPos,8) THEN RETURN ENDIF xFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) xTotal_Final= &txCam.(xPos,7) xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) xSuma_Grupo= &txCam.(xPos,10) SELECT(THIS.ALIAS) xValue1=EVALUATE(xFormula) DO CASE CASE xTipo="N" xSuma_Final=xSuma_Final+xValue1 xSuma_Grupo=xSuma_Grupo+xValue1 CASE xTipo="C" OR xTipo="D" xSuma_Final=xSuma_Final+1 xSuma_Grupo=xSuma_Grupo+1 CASE xTipo="L" xSuma_Final=xSuma_Final+IIF(xValue1,1,0) xSuma_Grupo=xSuma_Grupo+IIF(xValue1,1,0) ENDCASE &txCam.(xPos,9)=xSuma_Final &txCam.(xPos,10)=xSuma_Grupo ENDPROC PROCEDURE total PARAMETERS xLinea_Tipo,xPos,xImprimir_Linea PRIVATE xValue1,xValue2,xValue3 xCampo=1 txcam=this.campos_get(xCampo) xFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) xTotal_Final= &txCam.(xPos,7) xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) xSuma_Grupo= &txCam.(xPos,10) DO CASE CASE xLinea_Tipo=1 AND xTotal_Final xValue1=xSuma_Final Case xLinea_Tipo=2 AND xTotal_Grupo xValue1=xSuma_Grupo OTHERWISE RETURN .t. ENDCASE this.xls_sheet.Cells(this.xls_row,xPos).value=xValue1 this.xls_sheet.Cells(this.xls_row,xPos).numberFormat=xFormato this.xls_sheet.Cells(this.xls_row,xPos).Font.Bold=.t. DO CASE CASE xAlinea=="" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=1 CASE xAlinea="R" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4131 CASE xAlinea="C" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4108 CASE xAlinea="L" this.xls_sheet.Cells(this.xls_row,xPos).horizontalAlignment=-4152 ENDCASE ENDPROC PROCEDURE total_reset PARAMETERS xCampo,xPos txcam=this.campos_get(1) IF xCampo=1 OR xCampo=3 THEN &txCam.(xPos,9)=0 ENDIF IF xCampo=2 OR xCampo=3 THEN &txCam.(xPos,10)=0 ENDIF ENDPROC PROCEDURE subreport_encabezado *!* PRIVATE nIt, txCam *!* SELECT(THIS.ALIAS) *!* txCam=this.campos_get(1) *!* ? *!* FOR nIt=1 TO this.campos_linea_pos *!* xLabel=&txCam.(nIt,2) *!* xAncho = &txCam.(nIt,5) *!* xAlinea= "PAD" + &txCam.(nIt,6) *!* ?? &xAlinea.(xLabel,xAncho-1) + " " *!* Next *!* ? *!* FOR nIt=1 TO this.campos_linea_pos *!* xAncho = &txCam.(nIt,5) *!* ?? REPLICATE("-",xAncho-1) + " " *!* Next *!* this.xls_row=this.xls_row+2 ENDPROC PROCEDURE crear_xls LOCAL z, aaa SELECT (THIS.ALIAS ) FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF ALLTRIM(THIS.archivo_salida )#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(THIS.archivo_temporal)+"_v_"+ALLTRIM(THIS.archivo_salida)+".xls") xplanilla=ALLTRIM(THIS.archivo_salida)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(THIS.archivo_temporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(THIS.archivo_temporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Creando planilla de Excel..." LOCAL xcopy, hayerror, z, maxfields, xdata hayerror = .F. ON ERROR hayerror=.T. IF !FILE(xplanilla) =MESSAGEBOX('No existe '+xplanilla) ON ERROR &onErr RETURN .F. ENDIF COPY FILE (xplanilla) TO (THIS.archivo_salida) IF hayerror =MESSAGEBOX('No se puede crear '+THIS.archivo_salida+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') ON ERROR &onErr RETURN .F. ENDIF PRIVATE x x=GETOBJECT(,'excel.application') IF hayerror hayerror=.F. x=CREATEOBJECT("excel.application") ENDIF IF hayerror =MESSAGEBOX('No se puede abrir la aplicacin Excel') ON ERROR &onErr RETURN .F. ENDIF x.workbooks.OPEN(THIS.archivo_salida) IF hayerror =MESSAGEBOX('No se puede abrir el archivo '+THIS.archivo_salida) x.QUIT RELEASE x ON ERROR &onErr RETURN .F. ENDIF ON ERROR &onerr **x.VISIBLE= .F. this.xls_Workbook = x.workbooks(x.workbooks.COUNT) this.xls_Sheet = this.xls_workbook.Sheets(xotra_planilla) this.xls_App = x this.xls_Workbook.windows(1).visible=.f. ENDPROC PROCEDURE campos_agregar_crystal PRIVATE nIt ON ERROR return .f. *!* PARAMETERS xCampo as Integer,xFormula as String,xLabel as String,; *!* xFormat as String, xTipo as String,xAncho as Integer,xAlinear as string,; *!* xTotal_Final as Boolean,xTotal_Grupo as Boolean, ; *!* xPos as Integer *!* FOR nIt=1 TO ALEN(THIS.parent.campos,1) IF TYPE("this.parent.campos[ nIt, 1]")="L" OR TYPE("this.parent.campos[ nIt, 2]")="L" THEN RETURN .t. ENDIF IF this.parent.campos[ nIt, 1]=="" OR this.parent.campos[ nIt, 2]=="" THEN RETURN .t. ENDIF this.campos_agregar(1,this.parent.campos[ nIt, 1],this.parent.campos[ nIt, 2]) NEXT ON ERROR &onErr ENDPROC PROCEDURE ancho_columnas PRIVATE txCam,nIt txCam=this.campos_get(1) FOR nIt=1 TO this.campos_linea_pos xAncho = &txCam.(nIt,5) *!* IF xAncho=-1 THEN this.xls_sheet.cells(3,nIt).entireColumn.autofit *!* ELSE *!* this.xls_sheet.cells(3,nIt).entireColumn.width=xAncho *!* ENDIF Next ENDPROC PROCEDURE Destroy IF TYPE("this.xls_sheet")="O" THEN This.xls_sheet="" ENDIF IF TYPE("This.xls_workbook")="O" Then This.xls_workbook="" ENDIF IF TYPE("This.xls_app")="O" Then This.xls_app.Quit this.xls_app="" ENDIF ENDPROC Top = 36 Left = 394 Height = 17 Width = 114 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Solo Descripcin" TabIndex = 8 Name = "solo_descripcion"  optiongroup Optiongroup1 hlp_textoheader?Width = 273 Height = 40 BorderWidth = 0 Name = "lis_nohlp"  cod_desc_pddBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  containercod_desc clases.vcxClasslis_operheaderText1Text2[PROCEDURE InteractiveChange this.parent.filtrar ENDPROC PROCEDURE Click ENDPROC header*enabled_assign  lis_catpro container clases.vcx3PROCEDURE Click mensaje(this.ayudita) ENDPROC PROCEDURE Load this.localizacion=oLocalizacion RETURN DODEFAULT() ENDPROC PROCEDURE Init parameters xtipo thisform.tipoabm=xtipo RETURN DODEFAULT(.t.) ENDPROC  advertenciacod_descgraficoBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 Class containerTop = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" hlp.Grid1.Column7Label2multiestado_imagenClasscod_desc cod_desp_tsp datetime_timecod_desc_cat_com clases.vcx&Top = 4 Left = 7 Name = "Columnas" YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" lis_oper clases.vcx clases.vcxhlp_cuentas_filtro datetime_datetextboxgrid clases.vcx containerPixelstextbox containerPROCEDURE Text8.Valid IF (this.Value=-1 OR this.Value=-2) AND this.Parent.Parent.permitir_lineas_especiales THEN RETURN .t. ELSE DODEFAULT() endif ENDPROC ePicture = bmp\help_icon.gif BackStyle = 0 Height = 19 Width = 20 ayudita = "" Name = "ayudita" PixelsimageLabel12PROCEDURE RightClick this.Parent.Parent.Parent.int_pup_Show_Popup ENDPROC PROCEDURE DblClick this.Parent.Parent.Parent.set_dbl ENDPROC &planeamiento_por_maquina.Grid1.Column3textboxHeader1 cod_desc_venClasscod_desc_catpro!Arial, 0, 9, 5, 15, 12, 32, 3, 0 datetime containerPixelsPROCEDURE numero_desc RETURN IIF(this.dato_invalido, "Dato invlido !!!", "Seleccionado " + ALLTRIM(STR(this.text8.Value))) ENDPROC PROCEDURE valor_assign LPARAMETERS vNewVal *sele (this.tabla_tabla) local xvar xvar=this.tabla_codigo xvar=&xvar if m.vNewVal#xvar * set order to (this.tabla_idxcod) * seek m.vNewVal endif THIS.valor = m.vNewVal this.text8.value = m.vNewVal this.text9.value = evaluate(this.tabla_desc) ENDPROC PROCEDURE f1 RETURN 'f1' ENDPROC PROCEDURE autocompletar if not this.codigo_si_o_si or not this.auto_completar then return .f. endif ENDPROC PROCEDURE actualizar parameters xrefresh RETURN ENDPROC PROCEDURE buscar LPARAMETERS lmensaje LOCAL aa aa=THIS.vacio IF TYPE('aa')='C' aa=EVALUATE(THIS.vacio) ELSE aa=THIS.vacio ENDIF IF THIS.text8.VALUE=aa * Est vacio IF THIS.codigo_si_o_si * Debe haber un cdigo vlido IF !lmensaje =mensaje(THIS.mensaje_error) ENDIF RETURN '' ELSE RETURN '' ENDIF ELSE THIS.dato_invalido = not BETWEEN(THIS.text8.VALUE, THIS.dato_min, THIS.dato_max) IF THIS.dato_invalido THEN =mensaje("El valor debe estar entre "+ALLTRIM(STR(THIS.dato_min)) +" y " + ALLTRIM(STR(THIS.dato_max))+ " !!!") ENDIF ENDIF RETURN '' ENDPROC AutoSize = .F. FontBold = .T. Anchor = 12 Caption = "Artculo con stock" Height = 17 Left = 612 Top = 550 Width = 139 TabIndex = 19 BackColor = 128,255,128 Name = "Label6"  clases.vcxtextboxcod_desc_catpro3 containerBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_gan clases.vcxcod_desc_catcredArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp.Grid1.Column7 clases.vcxPixelsClasshlpabm2Header1header lis_combo_1mes_anotextboxtextboxresizer_controlmes_anotextboxClassAutoSize = .F. FontBold = .T. Anchor = 12 Caption = "Artculo sin stock" Height = 17 Left = 324 Top = 550 Width = 139 TabIndex = 18 BackColor = 255,174,174 Name = "Label5" lis_cos container clases.vcx cod_desc_cos commandbuttonwizard_buttonsanterior commandbutton commandbuttonText1-PROCEDURE f1 RETURN dodefault() ENDPROC lis_mod clases.vcxformulario_abm2_1 clases.vcx containerName = "lis_catpro"  clases.vcx'Caption = "Header1" Name = "Header1" Text1PROCEDURE Click =This.Parent.Proximo() ENDPROC PROCEDURE DblClick this.parent.anterior () this.parent.Mostrar_Edit() ENDPROC ,Width = 250 Height = 31 Name = "lis_emp" hlp.Grid1.Column6comboboxClassldesde = thisform.xdtsp_transportista hasta = thisform.xhtsp_transportista Name = "lis_tsp_transportista"  clases.vcxformulario_wizard_acep_cancFPROCEDURE Click thisform.resultado=.f. thisform.release ENDPROC formulario_wizard_acep_cancformulario_wizard_acep_canclis_cos containercustomPixelsClasstextboxTop = 0 Left = 301 Height = 27 Width = 60 FontBold = .T. FontName = "Arial" Caption = "Finalizar" TabIndex = 2 Name = "finalizar" planeamiento_por_maquinacod_desc_catcred clases.vcxhlp_moneda_filtrolis_tsp_lugaresClassAnchor = 3 ControlSource = "thisform.texto" Format = "!" Height = 23 Left = 94 TabIndex = 1 Top = 7 Width = 292 Name = "Text3" textboxClasstextboxmes_anoLabel1hlp_moneda_filtroimage clases.vcxAutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Tecla ESC limpia filtros y reinicia la bsqueda." Height = 17 Left = 763 Top = 550 Width = 261 TabIndex = 17 ForeColor = 0,0,255 Name = "Label4" hlp.Grid1.Column6Header1ClassClasslabelwizard_buttons siguiente commandbutton commandbuttoncod_desc_tsp_lugarescod_desc_catproBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 header*enabled_assign headerClassformulario_abm2_1exportaciones_combolis_maqText1Anchor = 15 Picture = bmp\editar.ico Stretch = 2 BackStyle = 0 Height = 24 Left = 0 Top = 0 Visible = .F. Width = 24 Name = "imEdit" PROCEDURE Click =This.Parent.Proximo() ENDPROC PROCEDURE DblClick this.parent.anterior () this.parent.Mostrar_Edit() ENDPROC  commandbutton commandbuttonformulario_wizard_acep_canclis_tsp_chofereslis_tsp_choferesPROCEDURE Click this.parent.resultado=4 if this.parent.click_finalizar() this.parent.resultado=4 thisform.Release else this.parent.resultado=0 endif ENDPROC  container commandbuttontextboxcontrol_de_seleccion_y_orden container clases.vcxcod_desc_tsp_camionesPixelsCommand2 cod_desc_cos containercod_desc_tsp_lugarescod_desc_tsp_choferes{AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "/" Height = 17 Left = 96 Top = 3 Width = 5 Name = "Label2" PROCEDURE Click if between(this.value,2020,2050) return .t. else mensaje("Ao invlido !!!") return .f. endif ENDPROC PixelsBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  clases.vcx containertextboxlabelBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 resizer_control_parametros clases.vcxTop = 234 Left = 153 Height = 48 Width = 48 Picture = bmp\impresora.gif Caption = "" ToolTipText = "Imprimir el grfico" Name = "Command2" Top = 0 Left = 0 Height = 27 Width = 60 FontBold = .T. FontName = "Arial" Caption = "Cancelar" TabIndex = 3 Name = "cancelar" Pixels cod_desc_gan clases.vcxcod_descBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 exportaciones_optiongroupcod_descHPROCEDURE Click this.parent.parent.parent.header_click(10) ENDPROC &mes ano desde hasta *recalcular resizer_control clases.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0 PixelspHeight = 410 Width = 422 DoCreate = .T. BufferMode = 2 localizacion = .F. tipoabm = .F. Name = "formulario_abm2" Command1.Top = 372 Command1.Left = 144 Command1.Name = "Command1" Command2.Top = 372 Command2.Left = 228 Command2.Name = "Command2" ayuda.Top = 1 ayuda.Left = 387 ayuda.Name = "ayuda" Text1.Left = 360 Text1.Top = 0 Text1.Name = "Text1" ?Height = 390 Width = 505 DoCreate = .T. Name = "formulario_abm2_1" Command1.Top = 360 Command1.Left = 152 Command1.Name = "Command1" Command2.Top = 360 Command2.Left = 236 Command2.Name = "Command2" ayuda.Top = 5 ayuda.Left = 480 ayuda.Name = "ayuda" Text1.Left = 453 Text1.Top = 4 Text1.Name = "Text1" QPROCEDURE Click *=sys_M("grid") this.Parent.sql_refresh(.t.) ENDPROC kTop = 0 Left = 132 Height = 36 Width = 38 Picture = bmp\consulta.ico Caption = "" Name = "Command1" combobox lis_catpro3'Caption = "Header1" Name = "Header1"  commandbutton containerBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 cod_desc_tsp_choferes containerGCourier New, 0, 9, 7, 15, 12, 8, 3, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0 qAutoSize = .T. FontBold = .T. Caption = "Texto" Height = 17 Left = 8 Top = 10 Width = 34 Name = "Label1" PixelsClass-bie_cod controled_by_bie *enabled_assign zTop = 0 Left = 216 Height = 27 Width = 76 FontBold = .T. Caption = "Siguiente >>" TabIndex = 1 Name = "siguiente" ClassPixelsHeader1Header1formulario_wizard_acep_canclis_tsp_trailerlis_tsp_trailer container clases.vcxcod_desc_tsp_trailers container'Caption = "Header1" Name = "Header1" lis_atrPixelsheaderformulario_abm2_1formulario_abm2_1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" &planeamiento_por_maquina.Grid1.Column2hlp.Grid1.Column5 clases.vcxtextboxhlp.Grid1.Column5YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerresizer_control_columnasClassheaderText1BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container'Caption = "Header1" Name = "Header1" textboxLabel1 clases.vcxlabeltextbox containerClasscod_desc_catpro3 clases.vcxHeader1 web_boton container web_boton web_botonAnchor = 3 ControlSource = "thisform.modelo" Format = "!" Height = 23 Left = 611 TabIndex = 5 Top = 9 Width = 299 Name = "Text2" headerName = "lis_catpro2" cod_desc_tsp_camionesPixelsPixelslis_tsp_trailer clases.vcxcod_desc_tsp_trailers container clases.vcxlis_tipo_productokdato_maxlength = 3 mensaje_error = ("Atributo no habilitado!!!") tabla_ayuda = bus_atrhabil tabla_codigo = clave tabla_desc = descr tabla_idxcod = clave tabla_tabla = atrhabil vacio = space(3) valor = (space(3)) dato_format = ! Name = "cod_desc_atrhabil" Label2.Caption = "Atributo" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" marca modelo foco_en_el_grid incluye filtro_fijo todos_los_estados forzado cod_pro fast desde opar_tc_cargar opar_tc opar_tc_frm_name resizer_control_parametroscrystalviewer.Container1hlp_opciones_de_tiempo container rpt_resumen containerPixelsImage1imageimagedatetimePixelsClass lis_catpro3 lis_catpro3GPROCEDURE Click this.parent.parent.parent.header_click(9) ENDPROC ClassTimer1timer clases.vcxbmp\ventas.icovalor_anterior validacion 0=sin validacin,1=ultimo da del mes dias_para_adelante -1=Cualquiera, n=das para adelante dias_para_atras -1=Cualquiera, n=das para atrs  wizard_formdatetime containerheaderheaderClasscampos_linea_pos campos_grupo_pos campos_grupo_total_pos campos_total_pos campos_manual_pos alias Specifies the name used to reference an object in VFP. fyh mostrar_pagina mostrar_fyh mostrar_fyh_format grupo_codigo grupo_valor es_subreporte parent_report crear_encabezado_forward archivo_salida archivo_datos archivo_temporal xls_app campos_desde_crystal xls_row xls_workbook xls_sheet formato_fecha formato_numero formato_texto formato_logico campos_crystal_totaliza *campos_agregar *final *generar *grupo_cambio *grupo_encabezado *grupo_total *iniciar_campos *iniciar *linea *manuales_antes *manuales_despues *scan *texto *total_general *crear_encabezado *campos_get ^campos_grupo[1,6] ^campos_grupo_total[1,6] ^campos_linea[1,6] ^campos_manual[1,6] ^campos_total[1,6] *totaliza *total *total_reset *subreport_encabezado *crear_xls *campos_agregar_crystal *ancho_columnas  bmp\excel.gif bmp\excel.gifPixels generador_xlsAutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Incluye" Height = 17 Left = 8 Top = 36 Width = 42 TabIndex = 15 Name = "Label3" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  lis_sprgruduracion containerClassCHECK1ClassPROCEDURE Click =This.Parent.Proximo() ENDPROC PROCEDURE DblClick this.parent.anterior () this.parent.Mostrar_Edit() ENDPROC url Pixels lis_combo_2lis_tipo_producto containercheckboxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 lis_uniPixelsClass Pageframe1lis_uniTop = 0 Left = 170 Width = 335 Height = 39 Name = "var2" Label2.Left = 201 Label2.Top = 9 Label2.Visible = .F. Label2.Name = "Label2" Text8.Left = 46 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 161 Text9.Top = 47 Text9.Visible = .F. Text9.Name = "Text9" lis_unilabel container clases.vcx cod_desc_uniTop = 0 Left = 0 Width = 204 Height = 39 Name = "var1" Label2.Name = "Label2" Text8.Left = 129 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 306 Text9.Top = 15 Text9.Visible = .F. Text9.Name = "Text9" lis_uni datetime_time container clases.vcx cod_desc_uniWidth = 353 Height = 40 desde = thisform.xdnum1 valor_desde = 0 valor_hasta = 0 hasta = thisform.xhnum1 Name = "lis_uni"  container clases.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 lis_flePixelsClassPixelslis_fleTop = 0 Left = 168 valor = Name = "var2" Label2.Left = 23 Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 15 Text8.Name = "Text8" Text9.Name = "Text9" lis_fle commandbutton container clases.vcx cod_desc_fleTop = 0 Left = 0 Width = 159 valor = Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" lis_fle container clases.vcx cod_desc_fleUdesde = thisform.xdfle hasta = thisform.xhfle valor_desde = .F. Name = "lis_fle"  container clases.vcx clases.vcxcod_desc_sprgru lis_sprgrutextbox container clases.vcx containerText1ClassjTop = 624 Left = 156 Height = 25 Width = 61 FontBold = .T. Caption = "Cancela" Name = "btCancelar" 'Caption = "Header1" Name = "Header1" textboxtimercod_desc_maq_grplis_emplis_emptextbox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 lis_lisPixelsOjo, redefine lis.initClasslis_lisAlignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "99" Left = 181 MaxLength = 2 Top = 5 Width = 28 Name = "Text2" lis_lisText2textboxtextboxlis_lisText1textboxtextboxlis_lisLabel1labellabelPROCEDURE clear this.dock_altura=.f. this.dock_ancho=.f. this.pos_abajo=.f. this.pos_arriba =.f. this.pos_derecha = .f. this.pos_izquierda =.f. this.igualar_altura=.f. this.igualar_ancho = .f. this.margen_derecho=.f. this.margen_inferior = .f. this.margen_izquierdo = .f. this.margen_superior = .f. this.sep_horizontal = 0 this.sep_vertical = 0 this.centrar_horizontal = .f. this.centrar_vertical = .f. ENDPROC BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 Pixels containerhlp.Grid1.Column4hlp.Grid1.Column4 container clases.vcx clases.vcx cod_desc_emplis_emp container clases.vcx containergraficocustomcustomTop = 0 Left = 0 Width = 157 Height = 40 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" (Caption = "Artculo" Name = "Header1" &planeamiento_por_maquina.Grid1.Column2cod_desc_sprgru clases.vcxPixelstextboxAnchor = 15 Picture = bmp\ayuda.ico Stretch = 2 BackStyle = 0 Height = 24 Left = 0 Top = 0 Visible = .F. Width = 24 Name = "imHelp" Class container clases.vcxcheckboxClasscod_desc_cat_com cod_desc_clicod_desc clases.vcxHeader1Width = 75 Height = 24 Name = "datetime_date" Text1.Name = "Text1" Text2.Left = 76 Text2.TabStop = .F. Text2.Top = 26 Text2.Visible = .F. Text2.Name = "Text2"  wizard_formtimer timer_init  cod_desc_gru lis_nohlpAutoSize = .T. FontBold = .T. Caption = "Cdigo" Height = 17 Left = 26 Top = 6 Width = 41 TabIndex = 7 Name = "Label2" PixelsAPROCEDURE DblClick this.Parent.Parent.Parent.set_dbl ENDPROC &planeamiento_por_maquina.Grid1.Column1PixelsPixelsgraficomdesde = thisform.xdsprgru hasta = thisform.xhsprgru valor_desde = 0 valor_hasta = 0 Name = "lis_sprgru"  cod_desc_cli container cod_desc_empPixelsSWidth = 362 Height = 29 BackStyle = 0 BorderWidth = 0 Name = "wizard_buttons" Pixels clases.vcx containerName = "lis_catpro3" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  cod_desc_prod container clases.vcxlis_mod}codigo_cero = (-1) Name = "lis_tipo_producto" Texto.Caption = "Tipo producto" Texto.Name = "Texto" combo.Name = "combo" cod_descPixels cod_desc_cos generador_txtPixels bmp\txt_2.ico bmp\txt_2.icoClasscustom generador_txtcampos_linea_pos campos_grupo_pos campos_grupo_total_pos campos_total_pos campos_manual_pos alias Specifies the name used to reference an object in VFP. fyh mostrar_pagina mostrar_fyh mostrar_fyh_format grupo_codigo grupo_valor es_subreporte parent_report page_header_forward archivo_salida archivo_datos em_razon_social em_domicilio em_cuit em_actividad mostrar_em_razon mostrar_em_cuit mostrar_em_domicilio mostrar_em_actividad mostrar_sub_pagina_grupo mostrar_sub_pagina_general mostrar_page_header total_general_texto total_transporte_texto grupo_total_texto grupo_transporte_texto mostrar_total_grupo mostrar_total_general mostrar_sub_nueva_hoja grupo_salto_pagina *campos_agregar *final *generar *grupo_cambio *grupo_header *grupo_total *iniciar_campos *iniciar *linea *manuales_antes *manuales_despues *scan *texto *total_general *page_header *campos_get ^campos_grupo[1,6] ^campos_grupo_total[1,6] ^campos_linea[1,6] ^campos_manual[1,6] ^campos_total[1,6] *totaliza *total *total_reset *subreport_header *page_footer *page_header_init *page_header_before_label *page_header_after_label *grupo_header_before *grupo_header_after Comment = "Generador de archivos TXT en base a una tabla" Height = 33 Width = 33 Picture = bmp\txt_2.ico campos_linea_pos = 0 campos_grupo_pos = 0 campos_grupo_total_pos = 0 campos_total_pos = 0 campos_manual_pos = 0 alias = ('') mostrar_pagina = .T. mostrar_fyh = .T. mostrar_fyh_format = @D grupo_codigo = ('') grupo_valor = ('') archivo_salida = ('') archivo_datos = ('') em_razon_social = ('') em_domicilio = ('') em_cuit = ('') em_actividad = ('') mostrar_page_header = .T. total_general_texto = ('Total: ') total_transporte_texto = ('Transporte: ') grupo_total_texto = ('Subtotal: ') grupo_transporte_texto = ('Transporte: ') mostrar_total_grupo = .T. mostrar_total_general = .T. Name = "generador_txt" customXTop = 168 Left = 12 sql_alias = ('user_log_detalle') sql_noclose = .T. Name = "GF" |PROCEDURE Init *this.SetAll("dynamicbackcolor", "iif(id_fin=2, rgb(255,150,150), rgb(255,255,255))", "column") ENDPROC 6Alignment = 0 Caption = "Header1" Name = "Header1"  clases.vcxYBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerPixelsWidth = 265 Height = 29 container_princial = .F. cont_hijos_crear = .F. cont_hijos_top_separacion = 0 cont_hijos_left_separacion = 0 Name = "propiedades_lis_combo"  clases.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 xmaxarr xmaxarr=xmaxarr+1 xarr(xmaxarr)=xnum endif if xes_uno_solo * Ya lo revis exit else xxx=substr(xxx, at(",",xxx)+1,255) endif enddo ENDPROC PROCEDURE Init if !used("usuarios") use (p_system+"\usuarios") in 0 endif this.usr.ControlSource = this.dato this.Refresh ENDPROC jWidth = 620 Height = 219 BackStyle = 0 BorderWidth = 0 rollbacks = .F. Name = "sys_log_operaciones" YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  clases.vcxText1textboxtextboxhlp.Grid1.Column1Top = 0 Left = 0 Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 63 Text9.Name = "Text9" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Header1 datetime_date}Anchor = 11 Top = -1 Left = 1 Width = 982 Height = 59 BackStyle = 0 BorderWidth = 0 TabIndex = 1 Name = "ctBotones" UTop = 482 Left = 0 Height = 21 Width = 989 TabIndex = 3 Align = 2 Name = "SB"  lis_combo_1propiedades_labelheaderrTop = 5 Left = 156 Height = 27 Width = 132 Caption = "Configurar Impresora" TabIndex = 2 Name = "Command3" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 Classhlpabm2_agregar_x_listaPixelsClassheader clases.vcxcombobox clases.vcxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Grid1gridform clases.vcx multiestado_imagen_conn_ok_error" %;MIUUInit013)cod_descPixels cod_desc_mail"Ѓ%DVPU BCUf1012") clases.vcx container clases.vcxClass.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx  commandbutton commandbutton containertextboxdTop = 348 Left = 24 Height = 24 Width = 24 Enabled = .F. Interval = 100 Name = "tmr_Inicial" 25) THEN this.enabled=.t. this.ControlSource ="abmmailctas.usa_gmail" ELSE this.enabled=.f. endif RETURN DODEFAULT() ENDPROC PROCEDURE Combo.InteractiveChange This.Parent.Parent.Actualizar_GMAIL() ENDPROC PROCEDURE Combo.ProgrammaticChange This.Parent.Parent.Actualizar_GMAIL() ENDPROC AutoSize = .F. Top = 287 Left = 240 Height = 25 Width = 46 FontSize = 8 Anchor = 12 Caption = "Buscar" Name = "btn_buscar"  clases.vcxcrystal_viewercheckboxlabelcustomexportaciones_combo containerFontBold = .T. FontSize = 12 WordWrap = .T. Alignment = 2 BackStyle = 0 Caption = "Ojo !! Si tocs las medidas del grid/form, revis como queda para DALUZ !!!!" Height = 36 Left = 350 Top = 268 Width = 324 ForeColor = 255,0,0 Name = "Label9" labelGPROCEDURE Click this.parent.parent.parent.header_click(5) ENDPROC Class"%[pjU UTHISFORM VISUALIZARClick013()lis_tsp_lugares containerBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 cod_desccfg_control_internoPixelsformulario_abm2_1BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 qTop = 5 Left = 300 Height = 27 Width = 132 Cancel = .T. Caption = "Salir" TabIndex = 3 Name = "Command2" ,pesos_actualizados ^arreglo_monsym[20,2] Text1cod_desc_cad_aprobcrystalviewer.Container1BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  cod_desc_banWidth = 273 Height = 40 desde = thisform.xdlis hasta = thisform.xhlis Name = "lis_lis2" cmd_filtro.TabIndex = 3 cmd_filtro.ZOrderSet = 1 cmd_filtro.Name = "cmd_filtro" A*deshabilitar_modificaciones *poner_readonly *pos_readonly &planeamiento_por_maquina.Grid1.Column1 containercod_desc_catpro container hlp_moneda1:tmp_cursor xfiltro Filtro sobre la consulta *ejecutar 5DoCreate = .T. Caption = "Form" Name = "abm_form" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 cfg_control_internocfg_control_internomensaje_error = 'Vendedor invlido!!!' filtro = 'V'$clase clase = VEN Name = "cod_desc_ven" Label2.Caption = "Vendedor" Label2.Name = "Label2" Text8.Comment = "" Text8.Name = "Text8" Text9.Name = "Text9" *no_incluye_pesos ^arreglo_monsym[15,2]  clases.vcx cod_desp_tsp Optiongroup1 containerlvalor habilitado *valor_assign *mostrar_edit *proximo *anterior *enabled_assign *valor_access /PROCEDURE Click DO abmbultos_listas ENDPROC Pixels wizard_formcod_desc_catpro3!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandbuttoncod_desc_maq_grp cod_desc_mon clases.vcx containercod_desc_catcli container container clases.vcxAnchor = 15 Picture = bmp\email.gif Stretch = 2 BackStyle = 0 Height = 24 Left = 0 Top = 0 Visible = .F. Width = 24 Name = "imMail" Top = 2 Left = 69 Height = 27 Width = 60 FontBold = .T. FontName = "Arial" Caption = "Inicio" TabIndex = 4 Name = "inicio"  wizard_formFontName = "Courier New" BoundColumn = 2 ColumnCount = 2 RowSourceType = 1 RowSource = "Si,S,No,N" DisplayValue = 91341653 Height = 24 Style = 2 Width = 50 Name = "si_no"  clases.vcx wizard_formexportaciones_comboGPROCEDURE Click this.parent.parent.parent.header_click(4) ENDPROC  container cod_desc_mon containerDPROCEDURE Destroy this.var1.Destroy this.var2.Destroy ENDPROC &Courier New, 0, 9, 7, 15, 12, 9, 3, 0 cod_desc_tsp_lugares!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Top = 0 Left = 0 Width = 160 tabla_tabla = tsp_luga Name = "var1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" cod_desc_tsp_camionesAutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Comienza con" Height = 17 Left = 8 Top = 10 Width = 82 TabIndex = 14 Name = "Label2" cod_desc_sprgru>J%UTUTHIS MODIFICADOOLDVALUEVALUE$TT-UTHISOLDVALUEVALUE MODIFICADOValid,Whenq1213;V)>PROCEDURE Click select (this.Parent.archivo) xtitulo=thisform.caption xlabel1=thisform.label1 xlabel2=thisform.label2 xlabel3=thisform.label3 xlabel4=thisform.label4 xlabel5=thisform.label5 xlabel6=thisform.label6 report form grafico to printer prompt ENDPROC resultado resultado .t.=acepta, .f.=cancela anchodeseado alturadeseada pregunta_confirmacion pregunta_confirmacion_boton ayuda_web document_id opar_tc_cargar opar_tc_frm_name Nombre del formulario para guardar la posicin opar_tc windowstate_deseado escape La tecla escape cancela el formulario. *validar Es llamado por el botn Aceptar. Debe retornar .T. o .F. *procesar_aceptar Es ejecutado si la llamada a validar desde el boton aceptar el .T. *confirmar *inicializar_controles Se ejecuta para inicializar controles manualmente llamado desde INIT *load_controles Se ejecuta para cargar datos antes de que se inicie el formularo, llamado desde Load. *procesar_cancelar *asignar_color #   ?%%eU TCC%C\PTCCC [=g'TCCC  6ZTCC [=?TCC C00CR6C\UAAABBBTHISPARENTDATOVALUE]8%CCC=gCCCRg; 8I B UTHISVALUEPARENTVALIDAR$TCC^= UTHISVALUEPARENTVALIDAR UTHISINITInit,ValidCDblClickRefresh1qA9A2A21 q $) "%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)Top = 0 Left = 168 Name = "var2" LABEL2.Left = 20 LABEL2.Top = 9 LABEL2.ForeColor = 212,208,200 LABEL2.Name = "LABEL2" TEXT8.Left = 15 TEXT8.Top = 5 TEXT8.Name = "TEXT8" TEXT9.Name = "TEXT9" Top = 2 Left = 6 Width = 360 Height = 29 TabIndex = 2 cfg_parametro = *_fromname cfg_grupo = 1 Name = "cf_ve_fce_fromname" Label12.Caption = "Nombre" Label12.Name = "Label12" texto.Height = 23 texto.Left = 189 texto.Top = 2 texto.Width = 166 texto.Name = "texto" PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC PROCEDURE Click if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0  "%r U [B  ( Ta% C  -   BaUXCODIGOXFILTROXSALIRTHIS TABLA_AYUDAPROC_EXTXCOD_INSXBULXATR XHERENCIAXGRUPOOEXP_DEVMENSAJEMESSAGEDETAILSf1_llamada_especial01!AAs2)@PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE Init this.advertencia.Visible=.f. try this.name=strtran(this.Caption," ","_") catch endtry *!* if !empty(this.ayuda_web) *!* this.ayuda_web1.direccion=this.ayuda_web *!* this.ayuda_web1.init *!* endif xwidth = sysmetric(1) xheight = sysmetric(2) if this.anchodeseado>0 if this.anchodeseado>=xwidth-20 this.Width = xwidth-20 else this.Width = this.anchodeseado endif else * No inicializado endif if this.alturadeseada>0 if this.alturadeseada>=xheight-140 this.height = xheight-140 else this.height = this.alturadeseada endif else * No inicializado endif *!* this.MinHeight = this.Height *!* this.MinWidth = this.Width thisform.AutoCenter=.t. ENDPROC PROCEDURE Load this.autocenter=.t. this.MinHeight = this.Height this.MinWidth = this.Width Thisform.asignar_color() ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=27 thisform.release else return dodefault(@nKeyCode, @nShiftAltCtrl) endif ENDPROC "S%g|vU UTHISFORM CRREPORTEPRINTOUTClick012.)lTop = 2 Left = 1 Width = 312 Height = 36 TabIndex = 1 valor = (space(15)) oldvalue = ('') dato_maxlength = 0 solo_los_activos = .F. Name = "Cod_desc_bie1" Label2.TabIndex = 5 Label2.Name = "Label2" Text8.TabIndex = 1 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 283 Text9.TabIndex = 4 Text9.Top = 5 Text9.Width = 13 Text9.Name = "Text9" r YYIM% UvT%CTTC oTUTHISPARENT RESULTADO CLICK_INICIO QUERYUNLOADTHISFORMRELEASEClick,11A11A2)Y:Width = 421 Height = 68 BackStyle = 0 BorderWidth = 0 cfg_parametro = ("") cfg_posicion = 2 cfg_relativo = ("") cfg_path = 2 cfg_valor = ("") cfg_grupo = 0 cfg_grabar = .T. cfg_autoaplicar = .T. cfg_alltrim = .T. cfg_controlador = .F. cfg_ocfg = .F. cfg_parametro_original = .F. Name = "cfg_base" PROCEDURE Click this.parent.resultado=2 if this.parent.click_anterior() this.parent.resultado=2 =this.Parent.queryUnload() thisform.Release else thisform.resultado=0 endif ENDPROC "%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)"%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)7valor_cod valor_bul valor_atr cod bul atr tiene_bul tiene_atr codigo_parcial codigo_bul codigo_atr parche_dbused Temporalmente hasta probar sin afectar todo el sistema *valor_atr_assign *valor_bul_assign *valor_cod_assign *validar_controles *codigo_parcial_access *codigo_parcial_assign "%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)Top = 0 Left = 168 Name = "var2" LABEL2.Left = 20 LABEL2.Top = 9 LABEL2.ForeColor = 212,208,200 LABEL2.Name = "LABEL2" TEXT8.Left = 15 TEXT8.Top = 5 TEXT8.Name = "TEXT8" TEXT9.Name = "TEXT9" PROCEDURE texto_filtro IF NOT THIS.texto_filtro_mostrar THEN RETURN "" ENDIF PRIVATE xTexto xTexto="" TRY IF THIS.Text1.VALUE==THIS.Text2.VALUE THEN IF EMPTY(THIS.Text1.VALUE) THEN xTexto="" ELSE xTexto=THIS.laBEL1.CAPTION +": "+TRANSFORM(THIS.Text1.VALUE) ENDIF ELSE xTexto=THIS.laBEL1.CAPTION +": "+ TRANSFORM(THIS.Text1.VALUE) +" - "+ TRANSFORM(THIS.Text2.VALUE) ENDIF CATCH TO oEX IF p_dev THEN =mensaje(THIS.NAME + ": " + oEX.MESSAGE) ENDIF ENDTRY RETURN xTexto ENDPROC PROCEDURE LostFocus nodefault ENDPROC PROCEDURE Destroy nodefault ENDPROC PROCEDURE Init this.text1.controlsource = this.desde this.text2.controlsource = this.hasta ENDPROC PROCEDURE valor_desde_assign LPARAMETERS vnewval this.valor_desde = vnewval this.text1.value = vnewval ENDPROC PROCEDURE valor_hasta_assign LPARAMETERS vnewval this.valor_hasta = vnewval this.text2.value = vnewval ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal SET PROCEDURE TO Dey_Func ADDITIVE =frm_OptEnabled(this,m.vNewVal) ENDPROC  %G 3UTCCC*#UTHISVALUEPARENTDATO UTHISPARENTVALIDARTC$ UTHISVALUEPARENTVALIDAR UTHISINITInit,ValidjDblClickRefresh13321C_t  )PROCEDURE Click this.parent.resultado=3 if this.parent.click_siguiente() this.parent.resultado=3 =this.Parent.queryUnload() thisform.Release else this.parent.resultado=0 endif ENDPROC Top = 0 Left = 168 Width = 257 Height = 40 ZOrderSet = 0 dato = dato_tabla = Name = "var2" Label2.Left = 21 Label2.Name = "Label2" Text8.Left = 15 Text8.Name = "Text8" Text9.Name = "Text9" BoundColumn = 3 ColumnCount = 2 ColumnWidths = "350,50" RowSourceType = 2 DisplayValue = 73 Height = 25 Left = 112 Style = 2 Top = 3 Width = 311 DisabledForeColor = 0,0,0 Name = "Combo3" 1pos_arriba pos_abajo pos_izquierda pos_derecha margen_superior margen_inferior margen_izquierdo margen_derecho sep_horizontal sep_vertical igualar_ancho igualar_altura dock_ancho dock_altura centrar_horizontal centrar_vertical *clear Clears the contents of a ComboBox or ListBox control. "%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)dato_format = z dato_mask = 999,999 mensaje_error = ("Produccin inexistente!!!") tabla_ayuda = bus_prodpend tabla_codigo = prod tabla_desc = descr tabla_idxcod = prod tabla_tabla = tmpprod tabla_select_proc = ("bus_prod_select") tabla_select_proc_ext = ("listados.prg") tabla_obj_filtro = ("bus_prod_filtro") tabla_obj_filtro_form = pr_filtro_editar Name = "cod_desc_prod" Label2.Caption = "Produccin" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" PROCEDURE Click select (this.Parent.archivo) xtitulo=thisform.caption xlabel1=thisform.label1 xlabel2=thisform.label2 xlabel3=thisform.label3 xlabel4=thisform.label4 xlabel5=thisform.label5 xlabel6=thisform.label6 set PROCEDURE to listados ADDITIVE set classlib to clases o=createobject("reporte_ventana") o.show report form grafico preview in reporte_ventana release o ENDPROC PROCEDURE ejecutar lparameters xtipo do sp_mensaje ; in sys_procesando ; with "Consultando" local xfiltro do case case xtipo=2 * Ultimos 3 meses xfiltro_fecha="fecha>=date()-30*3" case xtipo=3 * Ultimos 6 meses xfiltro_fecha="fecha>=date()-30*6" case xtipo=4 * Todos xfiltro_fecha=".t." otherwise * Pendientes xfiltro_fecha="!cerrado and venc>=date()" endcase do ps_precios ; in ve_procs ; with this.tmp_cursor, thisform.xfiltro, xfiltro_fecha do sp_mensaje ; in sys_procesando ; with "Procesando" zap in tmp select tmp append from dbf(this.tmp_cursor) go top do sp_ocultar_definitivamente ; in sys_procesando use in (this.tmp_cursor) thisform.Refresh thisform.grid1.SetFocus ENDPROC Top = 101 Left = 456 Width = 98 Height = 31 TabIndex = 1 cfg_parametro = *_send_Usa_Gmail cfg_grupo = 1 Name = "Cfg_combo1" Combo.BoundColumn = 2 Combo.ColumnCount = 2 Combo.ColumnWidths = "50,0" Combo.RowSourceType = 1 Combo.RowSource = "NO,0,SI,1" Combo.Height = 26 Combo.ColumnLines = .F. Combo.Left = 46 Combo.NumberOfElements = 2 Combo.Top = 2 Combo.Width = 44 Combo.Name = "Combo" Label12.Caption = "GMail " Label12.Left = 4 Label12.Top = 7 Label12.Name = "Label12"  ͽ%Js YU5 T | GetKeyStateWIN32APITC%tT BTC=yFTC^  U XVALSHIFT GETKEYSTATEWIN32APITHISFORMTIMER1ENABLEDCONTEOTHIS FORECOLORTIMERClick,1qAA3$)U"<<%U UTHISFORM PARAMETROSMOSTRAR_GUARDADOSCaUTHISFORM PARAMETROSMOSTRAR_GUARDADOSClick0 RightClickq1216W)<"Ѓ%DVPU BCUf1011 ) TD%XgUT-TTCCZ % %  TaU THISENABLEDTHISFORMCONTEOCONTADORCAPTIONREFRESHWIZARD_BUTTONS1ANTERIORCLICKCANCELARTimer,1rBaAA1)tPROCEDURE Init local xfiltro,xarea, xcursor, xvalue if !empty(this.controlsource) xvalue=evaluate(this.controlsource) else xvalue=space(9) endif xarea=sele() xfiltro=this.parent.filtro xcursor=this.Parent.cursor_interno select descr,abrev,cod_cue ; from cuentas ; order by descr ; where &xfiltro ; into cursor (xcursor) readwrite if !this.Parent.si_o_si * Agreo uno vaco para que se pueda seleccionar NADA select (xcursor) append blank endif index on descr tag descr this.rowsource=xcursor+".descr,abrev,cod_cue" this.Value=xvalue this.Refresh sele (xarea) ENDPROC PROCEDURE Init this.enabled=(p_Version_actual>25) ENDPROC PROCEDURE Click LOCAL xToken, xOK, xMSG, xClientID, xClientSecret, xFailureInfo, xAccessTokenResponse xToken="" xOK=.T. xMSG="" =sys_m("TOKEN") DO Obtener_Token IN sys_mail_gmail WITH xToken, xOK, xMSG, xClientID, xClientSecret, xFailureInfo, xAccessTokenResponse IF xOK THEN REPLACE abmmailctas.Token WITH xToken ENDIF =mensaje(xMSG) Thisform.actualizar_gmail () ENDPROC "]^%XmgU UTHISFORMRELEASEClick011!)9Height = 21 Width = 21 tabla_alias = ('Seleccion') tabla_campo = ('Is_Sel') tabla_orden = ('Orden') tabla_campo_orden = ('Orden') ord_decimal = 2 tabla_madre = ('') tabla_madre_order = ('') tabla_madre_id = ('') tabla_madre_orden = ('') tabla_campo_id = ('IDU') Name = "control_de_seleccion_y_orden"  X%8UJTTTHTUTHISENABLEDP_DEVLEFTTHISFORMWIDTHTABINDEX T9aGY(<7C rushmore]{{2enter%CC]=DEY #{T9,commandUVISIBLERUSHMOREENTER WINDOWSTATE TaTaU P_SUSPENDTHISFORMSUSPENDOInit,Click RightClick1r2qrqQAA52h #)"i%;SMUUGotFocus011 )PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.var1.text8.Enabled=m.vNewVal this.var1.text9.Enabled=m.vNewVal this.var2.text8.Enabled=m.vNewVal this.var2.text9.Enabled=m.vNewVal ENDPROC estado estado_texto mostrar_checkbox marcado marcado_habilitado margen padre margen_hijo margen_asignando_hijo *estado_access *estado_assign *tooltiptext_assign *mostrar_checkbox_assign *marcado_access *marcado_assign *marcado_habilitado_access *marcado_habilitado_assign *margen_assign *padre_access *padre_assign *resize_hijo *margen_hijo_access *margen_hijo_assign *margen_access *margen_asignar *margen_asignado *margen_hijo_asignado D ++ T%WU2 %+sys_wikiaUP_DEV DOCUMENTARSYS_WIKITHIS DOCUMENT_IDsys_wikiU DOCUMENTARSYS_WIKITHIS DOCUMENT_ID%C%Cpd%C `TlT%CTTT -T U THIS DOCUMENT_IDTHISFORMPARENT AYUDA_WEBPICTUREIMAGEN_DESHABILITADAVISIBLEP_DEVENABLEDIMAGEN_HABILITADA RightClick,ClickInit1B23!!aaAAA1AB"11A3f )+Top = 48 Left = 442 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\archivo.ico DownPicture = bmp\archivo_h.ico Caption = "" TabIndex = 201 ToolTipText = "Guardar los parmetros del reporte" Visible = .F. Name = "btnParam" PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal TRY this.text1.Enabled=m.vNewVal CATCH ENDTRY TRY this.text2.Enabled=m.vNewVal CATCH ENDTRY ENDPROC PROCEDURE par_hasta_access RETURN this.text2.Value ENDPROC PROCEDURE par_desde_access RETURN this.text1.Value ENDPROC PROCEDURE par_caption_access RETURN this.label1.Caption ENDPROC PROCEDURE LostFocus nodefault ENDPROC PROCEDURE Init nodefault ENDPROC PROCEDURE par_desde_assign LPARAMETERS vNewVal this.text1.Value = m.vNewVal this.text1.valid ENDPROC PROCEDURE par_hasta_assign LPARAMETERS vNewVal this.text2.Value = m.vNewVal this.text2.valid ENDPROC  %+e KUXT-T% QT-T-UTHISLEFTTHISFORMWIDTHTABINDEXP_DEVENABLEDVISIBLE=.&CCCZ x CCZ6UMENSAJETHISFORMWIDTHHEIGHTInit,DblClick1qA3aA1z )PROCEDURE enabled_assign LPARAMETERS vNewVal this.combo.Enabled = vNewVal ENDPROC PROCEDURE cfg_valor_access IF this.cfg_valor_logico THEN IF TYPE("this.combo.Value")="C" THEN RETURN (this.combo.Value ="1") else RETURN (this.combo.Value =1) ENDIF ELSE RETURN this.combo.Value ENDIF ENDPROC PROCEDURE cfg_valor_assign LPARAMETERS vNewVal IF this.cfg_valor_logico AND TYPE("vNewVal")="L" THEN vNewVal = IIF(vNewVal,1,0) ENDIF this.combo.Value = vNewVal ENDPROC Top = 0 Left = 163 Width = 156 Height = 39 TabIndex = 2 ZOrderSet = 0 tabla_tabla = producci Name = "var2" Label2.Left = 135 Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 15 Text8.Top = 4 Text8.Name = "Text8" Text9.Name = "Text9" 'dato = dato_format = z dato_mask = 9999999999 dato_maxlength = 10 mensaje_error = "Asiento modelo inexistente !!!" tabla_ayuda = busasimod tabla_codigo = asi_mod tabla_desc = concepto tabla_idxcod = asi_mod tabla_tabla = asm_form Name = "cod_desc_asm" LABEL2.WordWrap = .T. LABEL2.Alignment = 0 LABEL2.Caption = "Asiento Modelo" LABEL2.Height = 32 LABEL2.Left = 11 LABEL2.Top = -1 LABEL2.Width = 45 LABEL2.Name = "LABEL2" TEXT8.Left = 80 TEXT8.Top = 3 TEXT8.Name = "TEXT8" TEXT9.Left = 164 TEXT9.Top = 4 TEXT9.Name = "TEXT9" q XX^% UsT%CTTC lTUTHISPARENT RESULTADOCLICK_ANTERIOR QUERYUNLOADTHISFORMRELEASEClick,11A1A3)XWidth = 283 Height = 35 control_bultos = ("this.Parent.lis_bul1") control_atributos = ("this.Parent.lis_atr1") desde = thisform.xdbie hasta = thisform.xhbie valor_desde = (oBie.data_codigo_vacio) valor_hasta = (oBie.data_codigo_vacio) Name = "lis_bie" mensaje_error = Sucursal invlida !!! tabla_ayuda = bussuc tabla_codigo = sucursal tabla_desc = nombre tabla_idxcod = sucursal tabla_tabla = vsucursales vacio = 0 dato_format = z dato_maxlength = 4 Name = "cod_desc_suc" Label2.Caption = "Sucursal" Label2.Name = "Label2" Text8.Alignment = 3 Text8.Value = 0 Text8.Format = "z" Text8.InputMask = "999" Text8.MaxLength = 3 Text8.Name = "Text8" Text9.Name = "Text9" "R%pUC UTHISPARENT HEADER_CLICKClick012=){nombre = Grupos mensaje_error = El grupo de mquinas es erroneo tabla_ayuda = busmaq_grp tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = maq_grp vacio = (Space(6)) valor = (Space(6)) dato_maxlength = 6 dato_format = ! Name = "cod_desc_maq_grp" Label2.Caption = "Grupo" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" "rry>%d(UTCUTHIS BACKCOLOR SYS_COLOR]T- 8TC _ BTC%TC%%%T T % >% T  :T   HT aU THIS ADVERTENCIAVISIBLENAMECAPTIONXWIDTHXHEIGHT ANCHODESEADOWIDTH ALTURADESEADAHEIGHTTHISFORM AUTOCENTERDTaTT CUTHIS AUTOCENTER MINHEIGHTHEIGHTMINWIDTHWIDTHTHISFORM ASIGNAR_COLORJ %(  CBCUNKEYCODE NSHIFTALTCTRLTHISFORMRELEASE asignar_color0InithLoadKKeyPress12AbA1ABbA1AB32122A13N '.!56)rPROCEDURE propiedad_asignar LPARAMETERS oPro as Propiedades of sys_propiedades.prg, xHijos as Boolean IF typeo(oPro) THEN This.ckPropiedad.Caption = oPro.Nombre ELSE This.ckPropiedad.Caption = "NOT" ENDIF This.cont_hijos_left_offset = this.ckPropiedad.Width + 5 ENDPROC "%TicU UABMBULTOS_LISTASClick01q1$)"%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)`dato_format = z dato_mask = 99999 dato_maxlength = 5 dato_tabla = armador mensaje_error = "El armador no existe !!!" tabla_ayuda = busarm tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = armador Name = "cod_desc_arm" Label2.Caption = "Armador" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" PROCEDURE valor_assign LPARAMETERS vNewVal =DODEFAULT(vNewVal) this.text8.valid ENDPROC PROCEDURE Text8.Valid local xresultado xresultado = dodefault() this.parent.parent.parent.text1.value = alltrim(this.parent.parent.text9.value) ; +' '+alltrim(this.parent.parent.cod_desc_atr1.text9.value) ; +' '+alltrim(vbultos.descr) this.parent.parent.parent.valor_bul=this.value if type("this.parent.parent.parent.bul")="C" aaa=alltrim(this.parent.parent.parent.bul)+"='"+this.value+"'" &aaa ENDIF this.Parent.Parent.Parent.codigo_bul = not EMPTY(this.value) this.Parent.Parent.Parent.codigo_parcial = not this.Parent.Parent.Parent.codigo_bul or ; (not this.Parent.Parent.Parent.codigo_atr and this.Parent.Parent.Parent.tiene_atr) return xresultado ENDPROC codigo_cero = 0 tabla = paises valor_desde = 0 desde = thisform.xdpai codigo_cero1 = -1 desc_cero1 = (' Extranjeros') Name = "lis_pai" cmd_filtro.Name = "cmd_filtro" Texto.Caption = "Pais" Texto.Name = "Texto" combo.Name = "combo" mensaje_error = Cliente invlido !!! tabla_ayuda = buscli tabla_codigo = cod_cli tabla_desc = nombre tabla_idxcod = codcli tabla_tabla = clientes vacio = space(6) dato_format = ! dato_maxlength = 6 valor = Name = "cod_desc_cli" Label2.Caption = "Cliente" Label2.Left = 8 Label2.Top = 9 Label2.Name = "Label2" TEXT8.MaxLength = 6 TEXT8.Name = "TEXT8" Text9.Name = "Text9" u \\% UvT%CTTC oTUTHISPARENT RESULTADOCLICK_FINALIZAR QUERYUNLOADTHISFORMRELEASEClick,11A11A3)\"6t%U2(sys_parametros_guardadosUXULTIMOSYS_PARAMETROS_GUARDADOSTHISmostrar_guardados01q1g)"%rUCUTHISFORM BUTTON_CLICKTHISNAMEClick01112)PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.var1.text8.Enabled=m.vNewVal this.var1.text9.Enabled=m.vNewVal this.var2.text8.Enabled=m.vNewVal this.var2.text9.Enabled=m.vNewVal ENDPROC codigo_cero = (' ') desc_cero = (' Todas') tabla = provinc desde = thisform.xdprv valor_desde = (' ') desc_cero1 = ("") Name = "lis_prv" cmd_filtro.Name = "cmd_filtro" Texto.Caption = "Provincia" Texto.Name = "Texto" combo.Left = 84 combo.Top = 0 combo.Name = "combo" AutoSize = .F. Top = 48 Left = 343 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\pdf.ico DownPicture = bmp\pdf_h.ico Caption = "" TabIndex = 201 ToolTipText = "Impresin en pantalla o impresora" Name = "btnpdf" \PROCEDURE InteractiveChange local xreg if bof("tmp_bie_bus") or eof("tmp_bie_bus") * Nada else xreg=iif(eof() or bof(), -1, recno("tmp_bie_bus")) if this.Value=1 set filter to in tmp_bie_bus else set filter to cantidad>0 in tmp_bie_bus endif if xreg#-1 go xreg else go top endif endif thisform.Refresh ENDPROC PROCEDURE InteractiveChange this.Parent.Cambio_Interactivo() ENDPROC PROCEDURE Valid this.LostFocus () ENDPROC PROCEDURE LostFocus **nodefault IF this.ListIndex #0 THEN * THIS.PARENT.valor_desde = this.Value ENDIF ENDPROC PROCEDURE Init *!* IF this.Parent.agregar_cero THEN *!* INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) *!* ENDIF *!* IF this.Parent.agregar_cero1 THEN *!* INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) *!* ENDIF *!* THIS.ROWSOURCE = ALLTRIM(ALIAS())+"."+xdes +","+xcod *!* THIS.BOUNDCOLUMN = 2 *!* THIS.DISPLAYVALUE = 1 ENDPROC dato Variable date-time value Specifies the current state of a control. date time *validar *enabled_assign *forecolor_assign *value_access *value_assign *date_access *time_access *time_assign *date_assign dato_format = z dato_mask = 9999,999,999 tabla_ayuda = busban tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = bancos Name = "cod_desc_ban" Label2.Caption = "Banco" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" bdato_format = ! dato_maxlength = 8 mensaje_error = 'Depsito central invlido !!!' tabla_ayuda = busctr tabla_codigo = central tabla_desc = descr tabla_idxcod = central tabla_tabla = central vacio = space(8) valor = Name = "cod_desc_ctr" Label2.Caption = "Central" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" "%qUCUTHISFORM CRREPORTE PRINTERSETUPClick01125)mensaje_error = "Categora invlida !!!" tabla_ayuda = buscatcli tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = catcli Name = "cod_desc_catcli" Label2.Caption = "Categora" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ETop = 36 Left = 545 Width = 375 Height = 40 TabIndex = 6 dato = cod_pro dato_tabla = thisform Name = "Cod_desc_pro1" Label2.Left = 1 Label2.Top = 9 Label2.Name = "Label2" Text8.ControlSource = "xcod_pro" Text8.Left = 66 Text8.Top = 5 Text8.Name = "Text8" Text9.Left = 150 Text9.Top = 5 Text9.Name = "Text9" cfg_parametro Nombre del parmetro. Ej. p_systemdescr cfg_posicion 1=Antes, 2=Despues cfg_relativo La posicion en relacion a CFG_Relativo cfg_path 1 = CFG Local, 2= CFG System cfg_valor Valor actual cfg_grupo cfg_grabar cfg_autoaplicar Aplica el valor a la variable publica al momento de grabar cfg_alltrim cfg_controlador cfg_ocfg cfg_parametro_original *cfg_valor_access *cfg_valor_assign *enabled_assign *grabar *obtener_ocfg *cfg_ocfg_assign PROCEDURE Init this.Value=ctod(dtoc(evaluate(this.Parent.dato))) ENDPROC PROCEDURE Valid this.Parent.validar ENDPROC PROCEDURE DblClick this.Value = DATE() this.Parent.validar ENDPROC PROCEDURE Refresh this.Init ENDPROC PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC #Width = 377 Height = 40 mensaje_error = "Bulto invlido !!!" tabla_ayuda = busbul tabla_codigo = clave tabla_desc = descr tabla_idxcod = codigo tabla_tabla = vbultos Name = "cod_desc_bul" Label2.Caption = "Bulto" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" t [[gj% UvT%CTTC oTUTHISPARENT RESULTADOCLICK_CANCELAR QUERYUNLOADTHISFORMRELEASEClick,11A11A4)[u \\% UvT%CTTC oTUTHISPARENT RESULTADOCLICK_SIGUIENTE QUERYUNLOADTHISFORMRELEASEClick,11A11A3)\W">>x%U T-T9Timer T-HB e       T a  TaT9 Timer EndU THISENABLEDCAPTIONTHISFORMVISIBLE TIPO_REPORTE BTNVISUALIZARCLICK BTNIMPRIMIRBTNTABLA AUTOMATIZADO BTNEXPORTARTimer01RaaaaA4)>tabla cursor desc_cero codigo_cero alias Specifies the alias used for each table or view associated with a Cursor object. select_area agregar_cero tabla_codigo tabla_descr texto_filtro_caption texto_filtro_cod_desc texto_filtro_codigo texto_filtro_empty combo_text combo_value agregar_cero1 codigo_cero1 desc_cero1 col_mostrar_codigo col_autoajustar modo enabled_manual old_value valor_anterior readonly Specifies if the user can edit a control, or specifies if a table or view associated with a Cursor object allows updates. enabled_manual_anterior *combo_text_access *combo_value_access *agregar_manuales ^avalues[1,2] *definir_valores Metodo a llamar desde INIT para agregar valores manuales al combo *modo_assign *readonly_access *readonly_assign *interactivechange Occurs when the user changes the value of a control using the keyboard or the mouse. *cambio_interactivo xcod_ins = .F. xbul = .F. xatr = .F. xherencia = .F. dato_format = z dato_mask = 99999 dato_maxlength = 6 mensaje_error = ("No se encontraron las propiedades predeterminadas!!!") tabla_ayuda = busprop_predet tabla_codigo = codigo tabla_desc = nombre tabla_idxcod = codigo tabla_tabla = prop_predet xgrupo = 0 Name = "cod_desc_prop_predet" Label2.Caption = "Propiedades" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" PROCEDURE validar local aaa aaa=dtos(this.text1.value) aaa=stuff(stuff(aaa,5,0,"-"),8,0,"-")+"T"+this.text2.Value aaa=this.dato+"=ctot('"+aaa+"')" &aaa ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.text1.Enabled = m.vNewVal this.text2.Enabled = m.vNewVal ENDPROC PROCEDURE forecolor_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ForeColor = m.vNewVal this.text1.ForeColor=m.vNewVal this.text2.ForeColor=m.vNewVal ENDPROC PROCEDURE value_access *To do: Modify this routine for the Access method local aaa aaa=dtos(this.text1.value) aaa=stuff(stuff(aaa,5,0,"-"),8,0,"-")+"T"+this.text2.Value aaa="xValues=ctot('"+aaa+"')" &aaa RETURN xValues ENDPROC PROCEDURE value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method local aaa,bbb,xdate xDate=m.vNewVal this.text1.Value=ctod(dtoc(xDate)) aaa=ttoc(xDate) if substr(aaa,21,1)="P" bbb=alltrim(str(val(left(stuff(aaa,1,11,""),2))+12)) else bbb=left(stuff(aaa,1,11,""),2) endif this.text2.Value=bbb+substr(aaa,14,3) this.validar this.Refresh ENDPROC PROCEDURE date_access *To do: Modify this routine for the Access method RETURN THIS.text1.value ENDPROC PROCEDURE time_access *To do: Modify this routine for the Access method RETURN this.text2.Value ENDPROC PROCEDURE time_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Time = LEFT(m.vNewVal,5) this.text2.Value=LEFT(m.vNewVal,5) this.validar this.Refresh ENDPROC PROCEDURE date_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF TYPE("vNewVal")="C" THEN THIS.date = LEFT(m.vNewVal,10) this.text1.Value=LEFT(m.vNewVal,10) ENDIF IF TYPE("vNewVal")="D" THEN THIS.date = DTOC(m.vNewVal) this.text1.Value=DTOC(m.vNewVal) ENDIF this.validar this.Refresh ENDPROC PROCEDURE Init THIS.ENABLED = THIS.ENABLED THIS.FORECOLOR = THIS.FORECOLOR *!* BINDEVENT(THIS,"refresh",THIS.text1,"refresh") *!* BINDEVENT(THIS,"refresh",THIS.text2,"refresh") ENDPROC x"__P % UB%;CT-B-UTHISFORMXBTSHIFTMENSAJE CRVERSION UTHISFORMCERRAR_REPORTE RightClick0Click1bqA21 )_AutoSize = .T. FontBold = .T. FontSize = 15 BackStyle = 0 Caption = "No llama a dodefault en el init !!!" Height = 27 Left = 84 Top = 156 Width = 308 ForeColor = 255,0,0 Name = "advertencia" tabla_tabla = pd_demoras tabla_ayuda = buspdd tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo dato_format = z dato_mask = 99 dato_maxlength = 2 Name = "cod_desc_pdd" LABEL2.WordWrap = .T. LABEL2.Caption = "Motivo de Demora" LABEL2.Height = 32 LABEL2.Left = 8 LABEL2.Top = 1 LABEL2.Width = 56 LABEL2.Name = "LABEL2" TEXT8.Left = 80 TEXT8.Top = 5 TEXT8.Name = "TEXT8" TEXT9.Left = 164 TEXT9.Top = 5 TEXT9.Name = "TEXT9" 0Anchor = 3 Top = 56 Left = 0 Width = 396 Height = 39 TabIndex = 3 dato = marca dato_tabla = thisform Name = "Cod_desc_mar1" Label2.Name = "Label2" Text8.Left = 94 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 171 Text9.Top = 5 Text9.Width = 215 Text9.Name = "Text9"  "(%P}U3%,CUTHISVALUETHISFORMCRVIEWERZOOMi % bTCg%^CUNKEYCODE NSHIFTALTCTRLXVALTHIS DISPLAYVALUETHISFORMCRVIEWERZOOMInteractiveChange0KeyPress1aaA32q!1AAB1^}()PROCEDURE Init LOCAL aaa,bbb aaa=TTOC(EVALUATE(THIS.PARENT.dato)) IF SUBSTR(aaa,21,1)="P" bbb=VAL(LEFT(STUFF(aaa,1,11,""),2)) bbb=ALLTRIM(STR(bbb+IIF(bbb>12,12,0))) ELSE bbb=LEFT(STUFF(aaa,1,11,""),2) ENDIF THIS.VALUE=IIF(ALLTRIM(bbb)=='',' ', RIGHT("00"+ALLTRIM(bbb),2))+SUBSTR(aaa,14,3) *!* LOCAL xDT,xTX *!* xDT=EVALUATE(THIS.PARENT.dato) *!* xTX=STR(HOUR(xDT),2)+":"+STR(MINUTE(xDT),2) *!* THIS.VALUE=STRTRAN(xTX, ' ', '0') ENDPROC PROCEDURE Valid if between(val(left(this.value,2)),0,23) .and. between(val(right(this.value,2)),0,59) * OK else return 0 endif this.Parent.validar ENDPROC PROCEDURE DblClick this.Value=LEFT(TIME(),5) this.Parent.validar ENDPROC PROCEDURE Refresh this.Init ENDPROC PROCEDURE RightClick IF p_dev THEN do documentar in sys_wiki with this.document_id, .t. endif ENDPROC PROCEDURE Click do documentar in sys_wiki with this.document_id ENDPROC PROCEDURE Init *=sys_m() TRY IF EMPTY(THIS.document_id) THEN IF EMPTY(THISFORM.document_id) TRY IF !EMPTY(THIS.PARENT.ayuda_web) THISFORM.document_id=THIS.PARENT.ayuda_web ENDIF CATCH ENDTRY ENDIF THIS.document_id = THISFORM.document_id ENDIF CATCH ENDTRY IF EMPTY(THIS.document_id) THIS.PICTURE=THIS.imagen_deshabilitada THIS.VISIBLE=p_dev THIS.ENABLED=.F. ELSE THIS.PICTURE=THIS.imagen_habilitada ENDIF ENDPROC dato_format = z dato_mask = 99999 dato_maxlength = 5 mensaje_error = "Grupo econmico invlido !!!" tabla_ayuda = busgre tabla_codigo = codigo tabla_tabla = cligruece tabla_desc = descr tabla_idxcod = codigo dato_tabla = Name = "cod_desc_gre" Label2.WordWrap = .T. Label2.Caption = "Grupo Econmico" Label2.Height = 32 Label2.Left = 8 Label2.Top = 1 Label2.Width = 65 Label2.Name = "Label2" Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 4 Text9.Name = "Text9" ",%tUT UTHISFORM WINDOWSTATERESIZEGotFocus012>)AutoSize = .F. Top = 48 Left = 239 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\table.ico DownPicture = bmp\table_h.ico Caption = "" TabIndex = 203 ToolTipText = "Mostrar una grilla con los datos" Visible = .F. Name = "btnGrilla" PROCEDURE valor_assign LPARAMETERS vNewVal =DODEFAULT(vNewVal) this.text8.valid ENDPROC PROCEDURE f1 RETURN DODEFAULT() ENDPROC PROCEDURE Text8.Valid local xresultado xresultado = dodefault() this.parent.parent.parent.text1.value = alltrim(this.parent.parent.text9.value) ; +' '+alltrim(vatributos.descr) ; +' '+alltrim(this.parent.parent.cod_desc_bul1.text9.value) this.parent.parent.parent.valor_atr=this.value if type("this.parent.parent.parent.atr")="C" aaa=alltrim(this.parent.parent.parent.atr)+"='"+this.value+"'" &aaa ENDIF this.Parent.Parent.Parent.codigo_atr = not EMPTY(this.value) this.Parent.Parent.Parent.codigo_parcial = not this.Parent.Parent.Parent.codigo_atr or ; (not this.Parent.Parent.Parent.codigo_bul and this.Parent.Parent.Parent.tiene_bul) return xresultado ENDPROC PROCEDURE Text8.DblClick select vatributos dodefault() ENDPROC h"OO%UTaUTHISFORM TMR_PAGINAENABLED1T-C CUTHISFORM TMR_PAGINAENABLEDCRVIEWERSETFOCUSTHIS\ % 4C%U UNKEYCODE NSHIFTALTCTRLTHISFORMCRVIEWER SHOWNTHPAGETHISVALUERELEASE LostFocus0GotFocuskKeyPress1221aA1A14S_ )O"R%pUC UTHISPARENT HEADER_CLICKClick012=)Top = 48 Left = 32 Height = 48 Width = 48 WordWrap = .F. Picture = bmp\txt_2.ico DownPicture = bmp\txt_2_h.ico Caption = "" ToolTipText = "Generacin del archivo de texto" Visible = .F. Name = "btntxt" ntabla_ayuda = bus_tsp_cami tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = tsp_cami mensaje_error = ("Camin invlido !!!") dato_format = z dato_mask = 999999 dato_maxlength = 6 dato_tabla = tsp_cami Name = "cod_desc_tsp_camiones" Label2.Caption = "Camin" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" %Width = 352 Height = 25 tabla = ('') desc_cero = (' Todos') codigo_cero = (' ') select_area = 0 agregar_cero = .F. tabla_codigo = codigo tabla_descr = descr texto_filtro_caption = ('Alltrim(this.texto.caption)+": "') texto_filtro_cod_desc = ('"["+TRANSFORM(THIS.valor_desde)+"] "+this.combo_text') texto_filtro_codigo = ('TRANSFORM(THIS.valor_desde)') texto_filtro_empty = ('THIS.valor_desde=this.codigo_cero') combo_text = combo_value = .F. agregar_cero1 = .F. codigo_cero1 = .F. desc_cero1 = ("") col_mostrar_codigo = .F. col_autoajustar = .T. modo = .F. enabled_manual = .T. old_value = .F. valor_anterior = .F. readonly = .F. enabled_manual_anterior = .F. filtro = ('') texto_filtro_descripcion = .T. desde = xPEP Name = "lis_combo_2" cmd_filtro.Name = "cmd_filtro" R"99Ē%US-TT UTHISPARENTWIDTH CBINTERNOLEFT DATOS_ANCHOREDIMENSIONADOredimensionado01a2)9Top = 10 Left = 283 Height = 17 Width = 337 FontBold = .T. Anchor = 9 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Con operaciones canceladas o con error de transaccin" ControlSource = "this.parent.rollbacks" Name = "Check1" mensaje_error = 'Marca invlida !!!' tabla_ayuda = busmar tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = marcas vacio = 0 nombre = Marcas dato_format = z dato_maxlength = 4 Name = "cod_desc_mar" Label2.Caption = "Marca" Label2.Name = "Label2" Text8.Format = "z" Text8.InputMask = "999" Text8.Left = 80 Text8.MaxLength = 3 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 5 Text9.Name = "Text9" PROCEDURE Timer this.Enabled=.f. _screen.Caption="Timer " thisform.Visible=.f. DO CASE CASE thisform.Tipo_Reporte = 1 thisform.btNVISUALIZAR.Click CASE thisform.Tipo_Reporte = 2 thisform.Btnimprimir.Click CASE thisform.Tipo_Reporte = 3 thisform.btntabla.Click CASE thisform.Tipo_Reporte = 4 thisform.automatizado = .t. thisform.btneXPORTAR.Click ENDCASE thisform.Visible=.t. _screen.Caption="Timer End" ENDPROC PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=6 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() thisform.procesar_impresion() IF thisform.txt_autogenerar THEN thisform.gen_txt.generar () ENDIF thisform.imprimir_texto () =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC "%{UTUTHISPARENT PROPIEDADVALORVALUEInteractiveChange012W)1formulario_modo hlpidu resultado set_acfodaid Al hacer LOAD setea la DataSssionID a la del form activo en la pantalla (.t./.f.) formulario_wizard formulario_aceptar *formulario_modo_assign *formulario_aceptar_access *formulario_wizard_access *botones_acomodar *validar *procesar_aceptar 5PROCEDURE Click IF NOT FILE(FORCEEXT(oDeyFunc.Get_path(5)+THISform.archivotemporal,"dbf")) THEN IF NOT Mensaje_SINO("Debe correr el reporte una vez antes de poder editar el modelo."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF ELSE IF thisform.id_formulario_ultimo #thisform.id_formulario_evaluado THEN IF NOT Mensaje_SINO("Se necesitan actualizar los datos generados anteriormente."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF endif ENDIF =THISFORM.inicializar_columnas() =THISFORM.Pre_Seleccionar_columnas(THISFORM) DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original =thisform.Pos_Seleccionar_columnas(Thisform) ENDPROC PROCEDURE Init this.Visible = thisform.plantillas_xls_habilitado ENDPROC Width = 421 Height = 39 dato_format = z dato_mask = 99 dato_maxlength = 2 dato_tabla = gan_pro mensaje_error = "Rgimen de retencin de ganancias invlido !!!" tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = gan_pro tabla_ayuda = busgan Name = "cod_desc_gan" Label2.Caption = "Rgmen Ret. Gan." Label2.Name = "Label2" Text8.Left = 115 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 199 Text9.Top = 5 Text9.Name = "Text9" "%HUH PCT CT CT  CT LCdTd CKTKUTHISVALUETHISFORMCRVIEWERZOOMPARENTCOMBO1InteractiveChange01a1aa1aa1aa1aa1aa1aB2')lenable_anterior enable_siguiente enable_finalizar enable_inicio enable_cancelar resultado *click_inicio *click_cancelar *click_finalizar *click_anterior *click_siguiente *enable_anterior_assign *enable_cancelar_assign *enable_finalizar_assign *enable_inicio_assign *enable_siguiente_assign *queryunload Occurs before a Form is unloaded. mensaje_error = ('Modelo invlido !!!') tabla_ayuda = businvmode tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = invmode dato_format = ("z999") dato_maxlength = 3 dato_tabla = m dato = thisform.xdmod Name = "cod_desc_mod" Label2.Caption = "Modelo" Label2.Name = "Label2" Text8.Format = "z" Text8.InputMask = "z" Text8.Name = "Text8" Text9.Name = "Text9" "%9"\UT T T T-5TC% xB- C C C C %C T CPDFCa  C CJ-( G( CTT% xC U XNOABRIRPEDFXARCHIVOTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESIMPRIMIR_CRYSTAL XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP IMPRIMIR_PDFGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS ABRIR_PDFBCUTHISPARENTBTNTABLA RIGHTCLICKClick0 RightClick1qrrqACJC1A111 h)AutoSize = .F. Top = 48 Left = 136 Height = 48 Width = 48 FontSize = 7 WordWrap = .F. Picture = bmp\print2.ico DownPicture = bmp\print2_h.ico Caption = "" TabIndex = 202 ToolTipText = "Impresin en pantalla o impresora" Name = "btnimprimir" "%}UTCZUTHISPARENT PROPIEDADVALORVALUEInteractiveChange012\)PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC "%{UTUTHISPARENT PROPIEDADVALORVALUEInteractiveChange012W)otabla_codigo = codigo tabla_desc = descr tabla_ayuda = bus_tsp_luga tabla_idxcod = codigo tabla_tabla = bus_tsp_luga mensaje_error = ("Lugar invlido !!!") dato_tabla = tsp_luga dato_maxlength = 6 dato_mask = 999999 dato_format = z Name = "cod_desc_tsp_lugares" Label2.Caption = "Lugar" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" "R%pUC UTHISPARENT HEADER_CLICKClick012<)tabla_alias tabla_campo tabla_orden tabla_campo_orden ord_agrupar ord_decimal tabla_madre tabla_madre_order tabla_madre_id tabla_madre_orden tabla_campo_id *sel_cantidad *sel_cantidad_no *sel_invertir *sel_ninguno *sel_primero *sel_tiene *sel_todos *ord_subir *ord_bajar *ord_arreglar *sel_actual *rec_push *rec_pop ^rec_stack[1,0] *sel_ultimo *sel_getarray o"VV% UN(h$TC$TC,TMoneda de OrigenT---%'T.TPesos ActualizadosT---TTUZMM_MAXTHISARREGLO_MONSYM MM_MONEDAPESOS_ACTUALIZADOSNUMBEROFELEMENTSVALUEInit01qAAA"A2)V"MK%0o?UT T T T-5TC% qB- C C C % C  C C G( CTTUXNO_VISUALIZARTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_GRILLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01qrqAA2d)jPROCEDURE LostFocus thisform.tmr_Pagina.Enabled=.t. ENDPROC PROCEDURE GotFocus thisform.tmr_Pagina.Enabled=.f. thisform.crVIEWER.SetFocus () this.SetFocus() ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=13 THEN thisform.crvIEWER.showNthPage(this.Value) ENDIF IF nkeycode=27 THEN thisform.Release ENDIF ENDPROC Picture = bmp\help_icon_disabled.gif BackStyle = 0 Height = 20 Width = 20 imagen_deshabilitada = ("bmp\"+"help_icon_disabled.gif") imagen_habilitada = ("bmp\"+"help_icon.gif") document_id = ("") Name = "ayuda_wiki" @"''% U H*     %C oC B-*   >%C )#T%!T :B-*   %C #T%%T B-UNKEYCODE NSHIFTALTCTRLTHISPARENTPROPIEDAD_GRABAROGTIPOVALUE BUTTONCOUNTKeyPress01SAqAS1AAqAS1QaAAqAA2s)'AutoSize = .F. Top = 48 Left = 188 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\access_32.ico DownPicture = bmp\access_32_h.ico Caption = "" TabIndex = 203 ToolTipText = "Exportar a una tabla" Visible = .F. Name = "btnTabla" Top = 48 Left = 291 Height = 48 Width = 48 FontBold = .T. WordWrap = .T. Picture = bmp\excel.ico DownPicture = bmp\excel_h.ico Caption = "" TabIndex = 204 ToolTipText = "Exportar al Excel (MR)" Name = "btnexportar" _dato_format = z dato_mask = 9999 dato_tabla = unidades mensaje_error = "Unidad de negocios invlida !!!" tabla_ayuda = busuni tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = unidades Name = "cod_desc_uni" Label2.Caption = "Unidad de Negocios" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" oPROCEDURE Click lparameters xno_visualizar * xno_visualizar = .t. = No muestra nada, solo genera los datos THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=6 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() if !xno_visualizar =THISFORM.Imprimir_grilla() endif =thisform.grabar_ejecucion() THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC Top = 24 Left = 300 Height = 17 Width = 176 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Mantener el archivo temporal" Value = .F. ControlSource = "thisform.mantener" TabIndex = 200 Name = "keep" Top = 48 Left = 493 Height = 48 Width = 48 FontBold = .T. Picture = bmp\exit.ico DownPicture = bmp\exit_h.ico Caption = "" TabIndex = 205 ToolTipText = "Salir" Name = "btnsalir" PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC 2PROCEDURE valid *!* select producci *!* set order to prod *!* seek this.text8.Value *!* if found() *!* if pend *!* return .t. *!* else *!* mensaje("La produccin no est pendiente !!!") *!* endif *!* else *!* mensaje("La produccin no existe !!!") *!* endif *!* return .f. ENDPROC QAutoSize = .T. ButtonCount = 2 Comment = "" BackStyle = 0 Value = 1 Enabled = .F. Height = 27 Left = 635 Top = 75 Width = 188 TabIndex = 21 Name = "filtro_stock" Option1.BackStyle = 0 Option1.Caption = "Todos" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 98 Option1.AutoSize = .F. Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Solo con stock" Option2.Height = 17 Option2.Left = 85 Option2.Style = 0 Option2.Top = 5 Option2.Width = 98 Option2.AutoSize = .F. Option2.Name = "Option2" *"\%UL%C *G((GEG UTHISPARENT INDICE_ACTUALOLDKEYValid01!Aba2)*Width = 664 Height = 40 BorderWidth = 0 valor_cod = (oBie.data_codigo_vacio) valor_bul = (space(3)) valor_atr = (space(3)) tiene_bul = .F. tiene_atr = .F. codigo_parcial = .F. codigo_bul = .F. codigo_atr = .F. parche_dbused = .F. Name = "lis_codbulatr" cmd_filtro.Name = "cmd_filtro" PROCEDURE Click *=sys_m("Click") LOCAL oCN AS propiedades_container OF clases.vcx THIS.PARENT.Propiedad.Valor=THIS.VALUE IF THIS.VALUE = 1 THEN IF THIS.PARENT.Propiedad.Hijos.COUNT>0 THEN THIS.PARENT.cont_hijos_crear = .T. *=sys_m("Prop") THIS.PARENT.Propiedad =THIS.PARENT.Propiedad ENDIF ELSE DO WHILE THIS.PARENT.contenedores.COUNT>0 oCN=THIS.PARENT.contenedores (1) THIS.PARENT.REMOVEOBJECT (oCN.NAME) ENDDO ENDIF =THIS.PARENT.redimensionar() ENDPROC "R%pUCUTHISPARENT HEADER_CLICKClick012<)tclase = mensaje_error = 'Agente invlido!!!' tabla_ayuda = busage tabla_codigo = cod_age tabla_desc = nombre tabla_idxcod = codage tabla_tabla = agente vacio = space(8) dato_format = ! dato_maxlength = 8 valor = Name = "cod_desc_age" Label2.Caption = "Agente" Label2.Name = "Label2" Text8.MaxLength = 8 Text8.Name = "Text8" Text9.Name = "Text9" H // %6'U BaU BaU BaU BaU BaU/TT UVNEWVALTHISANTERIORENABLEDENABLE_ANTERIOR/TT UVNEWVALTHISCANCELARENABLEDENABLE_CANCELAR/TT UVNEWVALTHIS FINALIZARENABLEDENABLE_FINALIZAR/TT UVNEWVALTHISINICIOENABLED ENABLE_INICIO/TT UVNEWVALTHIS SIGUIENTEENABLEDENABLE_SIGUIENTETUTHISPARENT RESULTADOqTTTT T  U THISCANCELARENABLEDENABLE_CANCELARANTERIORENABLE_ANTERIOR SIGUIENTEENABLE_SIGUIENTE FINALIZARENABLE_FINALIZARINICIO ENABLE_INICIO click_inicio,click_cancelar:click_finalizarHclick_anteriorVclick_siguientedenable_anterior_assignrenable_cancelar_assignenable_finalizar_assign>enable_inicio_assignenable_siguiente_assignDestroypInit1q3q3q3q3q3q2!3q2!3q2!3q2!3q2!3a3aaaaa2$IU{   V#:*x18!<)/(AutoSize = .T. ButtonCount = 2 BackStyle = 0 Value = 1 Height = 47 Width = 71 Name = "grupo_opciones" Option1.FontBold = .F. Option1.BackStyle = 0 Option1.Caption = "Option1" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Top = 5 Option1.Width = 61 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontBold = .F. Option2.BackStyle = 0 Option2.Caption = "Option2" Option2.Value = 0 Option2.Height = 17 Option2.Left = 5 Option2.Top = 25 Option2.Width = 61 Option2.AutoSize = .T. Option2.Name = "Option2"  PROCEDURE definir_valores =DODEFAULT() SET PROCEDURE TO ve_control_de_pedidos ADDITIVE LOCAL nIt LOCAL ARRAY aArray(1,1) =Plataformas_Disponibles(@aArray) FOR nIt=1 TO ALEN(aArray,1) this.agregar_manuales(aArray(nIt,2),aArray(nIt,1)) NEXT ENDPROC "$UPPER(lc_msg) THEN loSendMail.MessageHTML = lc_msg ELSE loSendMail.MESSAGE = lc_msg ENDIF DO FORM sys_mailedit WITH loSendMail, "" TO xRes IF NOT xRes THEN RETURN .f. ENDIF lc_sub = loSendMail.subject lc_msg = loSendMail.MESSAGE thisform.ocfg2.lineas.p_ve_fce_subject.valor=lc_sub thisform.ocfg2.lineas.p_ve_fce_msg.valor=lc_msg THIS.PARENT.cf_ve_fce_subject.cfg_valor = lc_sub tHIS.PARENT.cf_ve_fce_msg.cfg_valor = lc_msg THISFORM.REFRESH ENDPROC "%*g9UT T T T-5TC% jB- C C% C  C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONTXT_AUTOGENERARGEN_TXTGENERARIMPRIMIR_TEXTOGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01rqA"A2)"R%m{U TC CollectionNUTHIS ULTIMO_TAMAOInit012A);"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)"xtabla_tabla = producci tabla_codigo = prod tabla_desc = descr tabla_ayuda = bus_prodpend mensaje_error = "Produccin inexistente o no pendiente !!!" dato_format = z dato_mask = 999999999 tabla_idxcod = prod Name = "cod_desc_prod_pend" Label2.Caption = "Produccin" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 5 Text9.Name = "Text9" ShowWindow = 2 DoCreate = .T. Name = "crystalviewer_top" Container1.Command2.Name = "Command2" Container1.Command3.Name = "Command3" Container1.Command1.Name = "Command1" Container1.Name = "Container1" Texto1.Name = "Texto1" tmr_Pagina.Name = "tmr_Pagina" IL.Top = 409 IL.Left = 60 IL.Height = 13 IL.Width = 13 IL.Name = "IL" Tb_controler1.Name = "Tb_controler1" IL16.Top = 409 IL16.Left = 108 IL16.Height = 25 IL16.Width = 25 IL16.Name = "IL16" SB.Top = 482 SB.Left = 0 SB.Height = 21 SB.Width = 989 SB.Name = "SB" tmr_Inicial.Name = "tmr_Inicial" LABEL1.Name = "LABEL1" ctBotones.ctZoom.ogZoom.Option1.Left = 5 ctBotones.ctZoom.ogZoom.Option1.Top = 4 ctBotones.ctZoom.ogZoom.Option1.Name = "Option1" ctBotones.ctZoom.ogZoom.Option2.Left = 5 ctBotones.ctZoom.ogZoom.Option2.Top = 20 ctBotones.ctZoom.ogZoom.Option2.Name = "Option2" ctBotones.ctZoom.ogZoom.Option3.Left = 61 ctBotones.ctZoom.ogZoom.Option3.Top = 3 ctBotones.ctZoom.ogZoom.Option3.Name = "Option3" ctBotones.ctZoom.ogZoom.Option4.Left = 61 ctBotones.ctZoom.ogZoom.Option4.Top = 19 ctBotones.ctZoom.ogZoom.Option4.Name = "Option4" ctBotones.ctZoom.ogZoom.Option5.Left = 111 ctBotones.ctZoom.ogZoom.Option5.Top = 3 ctBotones.ctZoom.ogZoom.Option5.Name = "Option5" ctBotones.ctZoom.ogZoom.Option6.Left = 111 ctBotones.ctZoom.ogZoom.Option6.Top = 20 ctBotones.ctZoom.ogZoom.Option6.Name = "Option6" ctBotones.ctZoom.ogZoom.Name = "ogZoom" ctBotones.ctZoom.Combo1.Name = "Combo1" ctBotones.ctZoom.Name = "ctZoom" ctBotones.txPage.Name = "txPage" ctBotones.lbPage.Name = "lbPage" ctBotones.btSalir.Name = "btSalir" ctBotones.BT_IMPRIMIR.Name = "BT_IMPRIMIR" ctBotones.BT_IMP_SETUP.Name = "BT_IMP_SETUP" ctBotones.BT_BUSCAR.Name = "BT_BUSCAR" ctBotones.BT_PDF.Name = "BT_PDF" ctBotones.BT_XLS.Name = "BT_XLS" ctBotones.BT_ARBOL.Name = "BT_ARBOL" ctBotones.BT_P1.Name = "BT_P1" ctBotones.BT_PA.Name = "BT_PA" ctBotones.BT_PS.Name = "BT_PS" ctBotones.BT_PU.Name = "BT_PU" ctBotones.Name = "ctBotones" PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.var1.text8.Enabled=m.vNewVal this.var1.text9.Enabled=m.vNewVal this.var2.text8.Enabled=m.vNewVal this.var2.text9.Enabled=m.vNewVal ENDPROC PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC enable_cancelar Habilita el boton 1 enable_anterior Habilita el boton 2 enable_siguiente Habilita el boton 3 enable_finalizar Habilita el boton 4 resultado Boton presionado. 1=Cancelar, 2=Anterior, 3=Siguiente, 4=Finalizar enable_inicio *click_cancelar Valida el clic. Si retorna .t., entonces the hace el release del form con el cdigo de resultado. *click_anterior Valida el clic. Si retorna .t., entonces the hace el release del form con el cdigo de resultado. *click_siguiente Valida el clic. Si retorna .t., entonces the hace el release del form con el cdigo de resultado. *click_finalizar Valida el clic. Si retorna .t., entonces the hace el release del form con el cdigo de resultado. *click_inicio Valida el clic. Si retorna .t., entonces the hace el release del form con el cdigo de resultado. *enable_anterior_assign *enable_cancelar_assign *enable_finalizar_assign *enable_inicio_assign *enable_siguiente_assign ButtonCount = 3 BackStyle = 0 Value = 1 ControlSource = "thisform.xdrsm" Height = 68 Width = 220 ToolTipText = "Especificar sin se incluye en el listado un resumen de datos" StatusBarText = "Especificar sin se incluye en el listado un resumen de datos" Name = "rpt_resumen" Option1.BackStyle = 0 Option1.Caption = "Sin resumen" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.StatusBarText = "Omitir el resumen final de datos" Option1.ToolTipText = "Omitir el resumen final de datos" Option1.Top = 5 Option1.Width = 89 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Incluir resumen al final" Option2.Height = 17 Option2.Left = 5 Option2.StatusBarText = "Incluir en el listado un resumen final de datos" Option2.ToolTipText = "Incluir en el listado un resumen final de datos" Option2.Top = 24 Option2.Width = 143 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.BackStyle = 0 Option3.Caption = "Solo imprimir el resumen" Option3.Height = 17 Option3.Left = 5 Option3.StatusBarText = "Solo imprimir el resumen final de datos" Option3.ToolTipText = "Solo imprimir el resumen final de datos" Option3.Top = 43 Option3.Width = 158 Option3.AutoSize = .T. Option3.Name = "Option3" PROCEDURE RightClick thisform.suspender = .t. ENDPROC PROCEDURE Click *=sys_mostrar_screen("impr",.t.) this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=2 ximpresion=.t. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC ".%^rlUBUTHISFORMTIPOABMWhen011))/"%U TCXbuscarTCfHK CbC8Tlocate for alltrim(xtxt)$upper()&aaa  CbNIT+locate for alltrim(xtxt)$upper(alltrim(str(,18)))&aaa  UAAAXTXTBUSCARTHISFORM BUSCAR_TXTCLAVE_BUSQUEDA_ACTUALREFRESHClick01"B4) PROCEDURE llenar_de_cursor parameters xcursor, cserie1, cserie2, cserie3, cserie4, cserie5, cserie6 local xmaxseries,z for z=1 to 6 xvar="cserie"+alltrim(str(z)) if evaluate(xvar)="" exit endif endfor xmaxseries = z-1 if xmaxseries<=1 =mensaje("No hay labels suficientes !!!") return .f. endif THISform.LockScreen = .T. select graphdb this.OleBoundControl1.ControlSource = "graphdb.gen" #DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) #DEFINE bartype -4099 select (xcursor) THISform.LockScreen = .T. cGData = " " for z=1 to xmaxseries cGData = cGData + TAB + evaluate("cserie"+alltrim(str(z))) endfor cGData = cGData + CRLF scan cGData = cGData + evaluate(field(1)) for z=1 to xmaxseries cGData = cGData + TAB + transform( evaluate(field(z+1)) ,"999999999999") endfor cGData = cGData + CRLF endscan select graphdb append general gen DATA m.cGData THISform.LockScreen = .F. return with this.OleBoundControl1.object.Application.DataSheet .Cells.Clear select (xcursor) *Agrega ttulos de FILA for z=1 to xmaxseries .Cells(z+1, 1).Value = evaluate("cserie"+alltrim(str(z))) endfor y=2 scan *Agrega ttulos de COLUMNA .Cells(1, y).Value = evaluate(field(1)) * Agrega los datos for z=1 to xmaxseries .Cells(z+1, y).Value = evaluate(field(z+1)) endfor endscan endwith THISform.LockScreen = .f. return #DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) #DEFINE bartype -4099 select (xcursor) cGData = " " for z=1 to xmaxseries cGData = cGData + TAB + evaluate("cserie"+alltrim(str(z))) endfor cGData = cGData + CRLF scan cGData = cGData + evaluate(field(1)) for z=1 to xmaxseries cGData = cGData + TAB + transform( evaluate(field(z+1)) ,"999999999999") endfor cGData = cGData + CRLF endscan THISform.LockScreen = .T. select graphdb append general gen class "msgraph.chart" DATA m.cGData with THIS.OleBoundControl1 .ControlSource = "Gen" .autoformat(bartype,1) .HasTitle = this.ver_titulo .HasLegend = this.ver_leyenda .ChartTitle.Caption = this.titulo * .ChartArea.Font.Size = 8 * .Application.Update * .ChartType = xl3DBarClustered * .HasTitle = True * .ChartTitle.Text = "Sales per Product" * .ChartTitle.Font.Size = 12 * .Axes(xlValue).HasTitle = True * .Axes(xlValue).AxisTitle.Caption = "Dollars ($)" * .ChartArea.AutoScaleFont = False endwith THISform.LockScreen = .F. ENDPROC PROCEDURE ver_leyenda_assign LPARAMETERS vNewVal THIS.OleBoundControl1.HasLegend = vNewVal this.check2.Value=vNewVal THIS.ver_leyenda = m.vNewVal ENDPROC PROCEDURE ver_titulo_assign LPARAMETERS vNewVal THIS.OleBoundControl1.HasTitle = vNewVal this.check1.Value=vNewVal THIS.ver_titulo = m.vNewVal ENDPROC PROCEDURE titulo_assign LPARAMETERS vNewVal THIS.OleBoundControl1.ChartTitle.Caption = m.vNewVal THIS.titulo = m.vNewVal ENDPROC PROCEDURE Destroy if used("graphdb") select graphdb use endif *!* delete file (alltrim(this.archivo)+".dbf") ENDPROC PROCEDURE Init *!* this.archivo=right(sys(2015),8) *!* create table (p_local+"\tmp\"+this.archivo) (gen g) *!* use (p_local+"\tmp\"+this.archivo) alias graphdb *!* append blank if !used("graphdb") use (p_system+"\graphdb") in 0 endif select GraphDB if reccount()xmaxarr xmaxarr=xmaxarr+1 xarr(xmaxarr)=xnum endif if xes_uno_solo * Ya lo revis exit else xxx=substr(xxx, at(",",xxx)+1,255) endif enddo ENDPROC "L%Mz hU<Q PROPIEDADESsys_propiedades.prgQBOOLEAN%CfT TNOTT  U OPROSYS_PROPIEDADESPRGXHIJOSTYPEOTHIS CKPROPIEDADCAPTIONNOMBRECONT_HIJOS_LEFT_OFFSETWIDTHpropiedad_asignar01BaaA2)"R%pUCUTHISPARENT HEADER_CLICKClick012<)PROCEDURE COMBO.Init xtabla = THIS.PARENT.tabla THIS.PARENT.CURSOR = RIGHT(SYS(2015),8) xcursor = p_local+'\tmp\'+THIS.PARENT.CURSOR xcursor2 = p_local+'\tmp\'+RIGHT(SYS(2015),8) PRIVATE xcod,xdes,xFiltro,xoldSel xCod=ALLTRIM(This.Parent.tabla_codigo) xDes=ALLTRIM(this.Parent.tabla_descr) xFiltro='' IF this.Parent.filtro #'' THEN xFiltro=' Where ' + this.Parent.filtro ENDIF SELECT 0 SELECT * FROM (xtabla) &xFiltro ORDER BY &xDes INTO TABLE (xcursor2) xoldSel=SELECT(0) IF this.Parent.agregar_cero THEN INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) ENDIF IF this.Parent.agregar_cero1 THEN INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) ENDIF SELECT * FROM (xcursor2) ORDER BY &xDes INTO TABLE (xcursor) USE SELECT (xoldSel) USE SELECT (THIS.PARENT.select_area) USE (xcursor) IF THIS.PARENT.select_area=0 THEN THIS.PARENT.select_area=SELECT(0) ENDIF THIS.PARENT.ALIAS = ALIAS() THIS.ROWSOURCE = ALLTRIM(ALIAS())+"."+xdes +","+xcod THIS.BOUNDCOLUMN = 2 THIS.DISPLAYVALUE = 1 ENDPROC PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC OPROCEDURE InteractiveChange this.valor=monedas_filtro.codigo ENDPROC PROCEDURE Init if !used("monedas_filtro") use (p_system+"\monedas_filtro") in 0 endif select monedas_filtro locate for codigo=evaluate(this.variable) if !found() go top in monedas_filtro endif this.valor=monedas_filtro.codigo ENDPROC ":'%w')U-Q PROPIEDADESsys_propiedades.prgT%C xTT T T T  T TUOPROSYS_PROPIEDADESPRGTHIS PROPIEDADTYPEOTXNOMBREVALUEOGTIPONOMBRETIPO CKETIQUETAETIQUETA CKIMPRIMIBLEIMPRIMIR CKOBLIGATORIAOBLIGA-Q PROPIEDADESsys_propiedades.prgT%C xTT  T T T  T T C CUOPROSYS_PROPIEDADESPRGTHIS PROPIEDADTYPEOTXNOMBREVALUEOGTIPONOMBRETIPOETIQUETA CKETIQUETAOBLIGA CKOBLIGATORIAIMPRIMIR CKIMPRIMIBLE TABLA_GUARDARPROPIEDAD_GUARDADA BUTHIS PROPIEDAD7T T- CUVNEWVALTHIS PROPIEDADPROPIEDAD_NUEVAPROPIEDAD_ACTUALIZAR!TaCUTHISPROPIEDAD_NUEVATXNOMBRESETFOCUSpropiedad_actualizar0propiedad_grabarpropiedad_accesspropiedad_assign setear_nuevoS1Q11aaaaaA2Q11aaaaaA33q"31 ~>e q%$-)"%'UC UTHISPARENTTECLACUTHISPARENTEN_FOCOCUTHISPARENT SALE_DEL_FOCODblClick0GotFocusl LostFocus13a2a1<[)PROCEDURE antes_de_salir LOCAL xOk xOk=DODEFAULT() IF THIS.controla_bul_atr THEN IF TYPE("this.control_bultos")="O" THEN IF THIS.valor_desde == THIS.valor_hasta THEN THIS.control_bultos.bie_cod=THIS.valor_desde ELSE THIS.control_bultos.bie_cod='' ENDIF THIS.control_bultos.INIT THIS.control_bultos.GotFocus ENDIF IF TYPE("this.control_atributos")="O" THEN IF THIS.valor_desde == THIS.valor_hasta THEN THIS.control_atributos.bie_cod=THIS.valor_desde ELSE THIS.control_atributos.bie_cod='' ENDIF THIS.control_atributos.INIT THIS.control_atributos.GotFocus ENDIF ENDIF RETURN xOk ENDPROC PROCEDURE Init LOCAL xOk, xCon xOk=DODEFAULT() IF THIS.controla_bul_atr THEN IF TYPE("this.control_bultos")="C" THEN IF TYPE(THIS.control_bultos)="O" THEN xCon=THIS.control_bultos THIS.control_bultos = &xCon THIS.control_bultos.controled_by_bie=.T. ENDIF ENDIF IF TYPE("this.control_atributos")="C" THEN IF TYPE(THIS.control_atributos)="O" THEN xCon=THIS.control_atributos THIS.control_atributos = &xCon THIS.control_atributos.controled_by_bie=.T. ENDIF ENDIF ENDIF RETURN xOk ENDPROC PROCEDURE Click *=mensaje("An no implementado !!!") local aaa,xtxt xtxt=space(30) do form buscar thisform.buscar_txt=upper(xtxt) do case case type(thisform.clave_busqueda_actual)="C" aaa="locate for alltrim(xtxt)$upper("+thisform.clave_busqueda_actual+")" &aaa case type(thisform.clave_busqueda_actual)="N" aaa="locate for alltrim(xtxt)$upper(alltrim(str("+thisform.clave_busqueda_actual+",18)))" &aaa endcase thisform.Refresh ENDPROC "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)PROCEDURE Click LOCAL xCodigo, xControl xControl=this.Objeto_Clave xCodigo=oHLPABMParent.Clonar_Sugerir_Clave("", &xControl, .t.) ENDPROC PROCEDURE Init this.Visible =.f. IF TYPE("oHLPABMParent")="O" THEN *IF TYPE("oHLPABMParent.clonar_sugerir")="N" AND TYPE("oHLPABMParent.SubTipoABM")=2 THEN this.Visible = INLIST(oHLPABMParent.clonar_sugerir,2,3) this.Visible = (oHLPABMParent.TipoABM=1) and (oHLPABMParent.SubTipoABM=2) this.Visible = this.Visible and TYPE(this.Objeto_Clave)="O" * ENDIF ENDIF ENDPROC "}%.U;TC CU XDATO_LEFTTHIS DATOS_MINIMO CBINTERNOREACOMODAR_DATOSREDIMENSIONAR_INTERNOS7%0CCgUTHIS PROPIEDADCONVALOR CBINTERNOPROPIEDAD_VALOR_ASIGNARVALOR# TUTHISCONT_HIJOS_LEFT_OFFSET CBINTERNOLEFTWIDTHC CUTHIS CBINTERNODISPOSE]<Q PROPIEDADESsys_propiedades.prgQBOOLEANT T-UOPROSYS_PROPIEDADESPRGXHIJOSTHIS CBINTERNO PROPIEDADreacomodar_datos0propiedad_valor_asignarResizeMdisposepropiedad_asignar1qA2QA33212: W )"R%pUCUTHISPARENT HEADER_CLICKClick012<)dato_format = z dato_mask = z dato_maxlength = 2 dato_tabla = unidfce tabla_ayuda = busunifce tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = unidfce Name = "cod_desc_uni_fce" Label2.WordWrap = .T. Label2.Caption = "Un. Factura Electrnica" Label2.Height = 32 Label2.Left = 8 Label2.Top = 1 Label2.Width = 66 Label2.Name = "Label2" Text8.Left = 80 Text8.Top = 5 Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 5 Text9.Name = "Text9" dato_format = z dato_mask = 999999 dato_tabla = tsp_tsps dato_maxlength = 6 mensaje_error = 'Transportista invlido !!!' tabla_ayuda = bus_tsp_tsps tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = tsp_tsps Name = "cod_desp_tsp" Label2.Caption = "Transportista" Label2.Left = 5 Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 88 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 167 Text9.Top = 5 Text9.Name = "Text9" dato_format = z dato_mask = 9999 dato_maxlength = 4 dato_tabla = SprGrupo mensaje_error = ("SuperGrupo invlido !!!") tabla_ayuda = bussprgru tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = SprGrupo Name = "cod_desc_sprgru" Label2.Caption = "SuperGrupo" Label2.Name = "Label2" Text8.Alignment = 3 Text8.Value = 0 Text8.Format = "z" Text8.InputMask = "9999" Text8.MaxLength = 4 Text8.Name = "Text8" Text9.Name = "Text9" dato_format = z dato_mask = 9999 dato_maxlength = 4 dato_tabla = grupos mensaje_error = "Grupo invlido !!!" tabla_ayuda = busgru tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = grupos Name = "cod_desc_gru" Label2.Caption = "Grupo" Label2.Name = "Label2" Text8.Alignment = 3 Text8.Value = 0 Text8.Format = "z" Text8.InputMask = "9999" Text8.MaxLength = 4 Text8.Name = "Text8" Text9.Name = "Text9"  !   w%._ \U>%CBa7BCUTHISFORMPREGUNTA_CONFIRMACION MENSAJE_SINOPREGUNTA_CONFIRMACION_BOTONTCUTHIS BACKCOLOR SYS_COLORP % 0 IBCUNKEYCODE NSHIFTALTCTRLTHISFORMESCAPETHISRELEASE7%$C BUTHISFORMOPAR_TC_CARGAROPAR_TCWIND_SETS_GRABARTHIS RESULTADOTa .TCtc_form_parametrostc.vcx,%Cp_formularios_posicionarbN T%T-TT  C U THIS AUTOCENTERTHISFORMLOAD_CONTROLESOPAR_TCP_FORMULARIOS_POSICIONAROPAR_TC_CARGAR MINHEIGHTHEIGHTMINWIDTHWIDTH ASIGNAR_COLORv4TT-MTC _U,%Cp_formularios_posicionarbN T%  T  C C C TC%TC%%%cT~T%%T TTTT%WT TaU XRESULTADOTHIS RESULTADO ADVERTENCIAVISIBLENAMECAPTIONP_FORMULARIOS_POSICIONARTHISFORMOPAR_TC_CARGAROPAR_TCFRM_NAMEOPAR_TC_FRM_NAMEWIND_SETS_DESEADOS_CARGARWIND_SETS_CARGARWIND_SETS_DESEADOS_SETEARXWIDTHXHEIGHT ANCHODESEADOWIDTH ALTURADESEADATOPHEIGHT MINHEIGHTMINWIDTHWINDOWSTATE_DESEADO WINDOWSTATEINICIALIZAR_CONTROLES AUTOCENTER% %Catablesy#(CatablesFCQ CUTHIS DATASESSIONATABLESZ confirmar, asignar_colorKeyPressUnload|LoadInitoDestroyh1!qaA22A2BA2AA212qAAaAAABA1ABBA1AB21R1A3AUQQr1!AABA2  c~",M j) "R%f{UTUTHISCAPTION P_PRO_CAT3 Label2.Init0120)e"LLb%U$TTCD$TT CU THIS LABEL_ANCHO LBETIQUETAWIDTHLEFTTXTEXTO DATOS_MINIMO DATOS_ANCHOREDIMENSIONADO<Q PROPIEDADESsys_propiedades.prgQBOOLEAN%CTT  T a TNOTT T - C UOPROSYS_PROPIEDADESPRGXHIJOSTYPEOTHIS LBETIQUETACAPTIONNOMBRETXTEXTOVALUEVALORENABLEDREDIMENSIONAR_INTERNOredimensionar_interno0propiedad_asignar!1BA12Baaa1A2!Bj )LC"**o%sU$TTCD$TT CU THIS LABEL_ANCHO LBETIQUETAWIDTHLEFTSPNUMERO DATOS_MINIMO DATOS_ANCHOREDIMENSIONADO<Q PROPIEDADESsys_propiedades.prgQBOOLEAN%CTT C gT a TNOTT T -U OPROSYS_PROPIEDADESPRGXHIJOSTYPEOTHIS LBETIQUETACAPTIONNOMBRESPNUMEROVALUEVALORENABLEDredimensionar_interno0propiedad_asignar"1BA12Baa1A3!2Z )*"j%XlfUT-UTHISVISIBLEInit011 ) PROCEDURE data_refresh this.grid_clear this.data_requery this.grid_sets ENDPROC PROCEDURE maq_cod_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Maq_cod = m.vNewVal this.tabla_file =p_local+"\tmp\tmp_Maq_"+ALLTRIM(STR(THIS.Maq_cod)) this.tmp_alias ="tmp_Maq_"+ALLTRIM(STR(THIS.Maq_cod)) this.osel.tabla_alias =this.tmp_alias this.data_refresh ENDPROC PROCEDURE data_requery SET PROCEDURE TO pr_planeamiento_grilla ADDITIVE LOCAL xAlias, xFile, xOK xAlias=this.tmp_alias xFile=this.tabla_file xOk=pr_gri_data_requery(@xAlias, @xFile, this.maq_cod ) this.tmp_alias =xAlias this.tabla_file = xFile RETURN xOk ENDPROC PROCEDURE maquina_vacia RETURN .t. ENDPROC PROCEDURE tabla_crear SET PROCEDURE TO pr_planeamiento_grilla ADDITIVE =pr_gri_tabla_crear(@this.tmp_alias, @this.tabla_file ) && maq_ ENDPROC PROCEDURE tabla_limpiar SELECT (This.tmp_alias) ZAP ENDPROC PROCEDURE grid_sets this.grid1.RecordSource = This.tmp_alias this.Grid1.SetAll("DynamicBackColor", "this.parent.set_Grid_Colors()", "Column") *this.Grid1.SetAll("Sparse", .f., "Column") ENDPROC PROCEDURE grid_clear this.grid1.RecordSource ='' ENDPROC PROCEDURE estado_name PARAMETERS xEstado SET PROCEDURE TO pr_planeamiento_grilla ADDITIVE RETURN pr_gri_estado_name(xEstado) ENDPROC PROCEDURE prod_subir PARAMETERS xAgrupar xOldG=this.osel.ord_agrupar IF PARAMETERS()=1 THEN this.osel.ord_agrupar=xAgrupar ENDIF this.osel.ord_subir This.osel.ord_agrupar=xOldG ENDPROC PROCEDURE prod_bajar PARAMETERS xAgrupar xOldG=this.osel.ord_agrupar IF PARAMETERS()=1 THEN this.osel.ord_agrupar=xAgrupar ENDIF this.osel.ord_bajar This.osel.ord_agrupar=xOldG ENDPROC PROCEDURE set_dbl SELECT (This.tmp_alias) This.DblClick (IDU) ENDPROC PROCEDURE maq_update PARAMETERS xIDU,xActual SET PROCEDURE TO pr_planeamiento_grilla ADDITIVE =pr_gri_maq_update( xIDU, xActual, this.tmp_alias) this.grID1.Refresh ENDPROC PROCEDURE pup_show_popup PARAMETERS xIDU Thisform.pup_show_menu (this.maq_cod ,xIDU) ENDPROC PROCEDURE int_pup_show_popup SELECT (This.tmp_alias) This.pup_show_popup (IDU) ENDPROC PROCEDURE maq_remove PARAMETERS xIDU SELECT (This.tmp_alias) SET ORDER TO IDU SEEK xIDU IF FOUND() THEN DELETE ENDIF this.oSel.ord_arreglar ENDPROC PROCEDURE set_grid_colors xColor=RGB(255,255,255) xAlias=ALIAS() SELECT (THIS.tmp_alias ) IF Cal_Error #0 THEN DO CASE CASE Cal_Error=1 xColor=RGB(221,221,255) CASE Cal_Error=2 xColor=RGB(255,0,0) ENDCASE ENDIF IF BETWEEN(Est_Cod,5,9) THEN IF Cal_Error =0 THEN xColor=RGB(221,255,221) ELSE xColor=RGB(255,221,221) ENDIF ENDIF SELECT (xAlias) RETURN xColor ENDPROC PROCEDURE error_name LPARAMETERS xError SET PROCEDURE TO pr_planeamiento_grilla ADDITIVE RETURN pr_gri_error_name(xError) ENDPROC PROCEDURE DblClick PARAMETERS xIDU thisform.maquinas_modifica(xIDU) ENDPROC PROCEDURE Resize DODEFAULT() *!* THIS.grid1.TOP=0 *!* THIS.grid1.LEFT=0 *!* THIS.grid1.HEIGHT = THIS.HEIGHT *!* THIS.grid1.WIDTH = THIS.WIDTH ENDPROC PROCEDURE Refresh this.data_refresh ENDPROC PROCEDURE Click LPARAMETERS xnoabrirpedf LOCAL xArchivo THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=7 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.solo_impresion_antes() *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 =THISFORM.imprimir_crystal() *=sys_mostrar_screen("PDF",.T.) IF EMPTY(THISFORM.xpdfarchivo) THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ELSE *!* IF FILE(THISFORM.xpdfarchivo) THEN *!* xhnd=FOPEN(THISFORM.xpdfarchivo, 12) *!* IF xhnd#-1 *!* =FCLOSE(xhnd) *!* ELSE *!* THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ENDIF *!* ENDIF ENDIF *** Manejo del objeto CRVista para grabar en PDF =THISFORM.imprimir_pdf(.T., THISFORM.xpdfarchivo) *=thisform.solo_impresion_despues() =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() STORE .F. TO THISFORM.param_data SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 IF !xnoabrirpedf =THISFORM.Abrir_PDF(THISFORM.xpdfarchivo) ENDIF *!* this.MousePointer= 11 *!* thisform.MousePointer= 11 *!* thisform.tipo_reporte=7 *!* ximpresion=.f. *!* PRIVATE xok *!* xOK=thisform.validar_datos() *!* IF NOT xOK then *!* RETURN .f. *!* ENDIF *!* thisform.preprocesar_impresion() *!* =thisform.procesar_impresion() *!* *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 *!* =thisform.imprimir_crystal() *!* *** Manejo del objeto CRVista para grabar en PDF *!* =thisform.imprimir_pdf() *!* =thisform.grabar_ejecucion() *!* thisform.postprocesar_impresion() *!* store .f. to thisform.param_data *!* set default to (p_server) *!* =sets() *!* this.MousePointer= 0 *!* thisform.MousePointer= 0 ENDPROC PROCEDURE RightClick RETURN this.Parent.btntabla.RightClick () ENDPROC PROCEDURE click_cancelar return .t. ENDPROC PROCEDURE click_anterior return .t. ENDPROC PROCEDURE click_siguiente return .t. ENDPROC PROCEDURE click_finalizar return .t. ENDPROC PROCEDURE click_inicio return .t. ENDPROC PROCEDURE enable_anterior_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enable_anterior = m.vNewVal this.anterior.enabled = m.vNewVal ENDPROC PROCEDURE enable_cancelar_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enable_cancelar = m.vNewVal this.cancelar.enabled = m.vNewVal ENDPROC PROCEDURE enable_finalizar_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enable_finalizar = m.vNewVal this.finalizar.enabled = m.vNewVal ENDPROC PROCEDURE enable_inicio_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enable_inicio = m.vNewVal this.inicio.enabled = m.vNewVal ENDPROC PROCEDURE enable_siguiente_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enable_siguiente = m.vNewVal this.siguiente.enabled = m.vNewVal ENDPROC PROCEDURE Destroy this.parent.resultado=this.resultado ENDPROC PROCEDURE Init this.cancelar.enabled = this.enable_cancelar this.anterior.enabled = this.enable_anterior this.siguiente.enabled = this.enable_siguiente this.finalizar.enabled = this.enable_finalizar this.inicio.enabled = this.enable_inicio ENDPROC ,Width = 422 Height = 21 BackStyle = 0 BorderWidth = 1 propiedad = .F. contenedores = .F. padre = .F. cont_hijos_top_offset = 0 cont_hijos_left_offset = 0 container_princial = .T. cont_hijos_top_separacion = 10 cont_hijos_left_separacion = 10 cont_hijos_crear = .T. cont_propio_offset_top = 0 cont_propio_offset_left = 0 cont_propio_top_offset = 0 cont_propio_left_offset = 0 ocultar_borde = .T. label_ancho = 0 datos_ancho = 0 datos_minimo = 0 contenedor_principal = .F. redimencionar_bloqueado = .F. Name = "propiedades_container" "R%pUCUTHISPARENT HEADER_CLICKClick012<)PROCEDURE reacomodar_datos LPARAMETERS xDato_Left this.datos_minimo = xDato_Left this.cbInterno.reacomodar_datos(xDato_Left) this.redimensionar_internos() ENDPROC PROCEDURE propiedad_valor_asignar IF this.propiedad.ConValor THEN this.cbinterno.Propiedad_Valor_asignar (VAL(this.propiedad.Valor)) ENDIF ENDPROC PROCEDURE Resize this.cont_hijos_left_offset = this.cbinterno.Left + this.cbinterno.Width ENDPROC PROCEDURE dispose this.cbinterno.dispose() =DODEFAULT() ENDPROC PROCEDURE propiedad_asignar LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg, xHijos as Boolean This.cbInterno.propiedad = oPro xhijos=.f. ENDPROC 3PROCEDURE InteractiveChange IF this.Value > 0 thisform.crviEWER.zoom(this.Value) ENDIF ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=13 THEN LOCAL xval xVal=VAL(this.DisplayValue) IF xval>0 THEN thisform.crviEWER.zoom(xval) ENDIF ENDIF ENDPROC "R%pUCUTHISPARENT HEADER_CLICKClick012<)dato = xlista dato_format = z dato_mask = 99 dato_maxlength = 2 dato_tabla = m mensaje_error = "Lista de precios invlida !!!" tabla_ayuda = buslis tabla_codigo = lista tabla_desc = descr tabla_idxcod = lista tabla_tabla = cfg_lis Name = "cod_desc_lis" Label2.Caption = "Lista" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 5 Text9.Name = "Text9" AutoSize = .T. FontUnderline = .T. WordWrap = .T. BackStyle = 0 Caption = "Label1" Height = 17 Width = 38 ForeColor = 0,0,255 document_id =  4"" Name = "link_wiki" Width = 408 Height = 32 tabla_ayuda = buscatcred tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = catcred mensaje_error = "Categora de crdito inexistente !!!" dato_format = z dato_mask = 99 dato_maxlength = 2 Name = "cod_desc_catcred" Label2.Caption = "Cat. Crdito" Label2.Name = "Label2" Text8.Height = 25 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 162 Text9.Top = 4 Text9.Visible = .T. Text9.Width = 239 Text9.Name = "Text9" "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE When *return .f. ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC Height = 256 Width = 383 DoCreate = .T. Name = "formulario_salir" Command1.Top = 0 Command1.Left = 336 Command1.Enabled = .F. Command1.Visible = .F. Command1.Name = "Command1" Command2.Top = 228 Command2.Left = 161 Command2.Caption = "Aceptar" Command2.Name = "Command2" AYUDA.Top = 0 AYUDA.Left = 336 AYUDA.Name = "AYUDA" Text1.Name = "Text1" ayuda_wiki1.Height = 20 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)"f%jxU C CUTHISFORM ASIGNAR_COLORLoad0117)PROCEDURE ali_objetos LPARAMETERS xMovil, xFijo, xParametros IF NOT This.chequear_parametros (@xMovil, @xFijo, @xParametros) THEN RETURN .f. ENDIF IF xParametros.pos_arriba THEN xMovil.Top= xFijo.Top - xMovil.Height - xParametros.Sep_Horizontal ENDIF IF xParametros.pos_abajo THEN xMovil.Top= xFijo.Top + xFijo.Height + xParametros.Sep_Horizontal ENDIF IF xParametros.pos_izquierda THEN xMovil.Left = xFijo.Left - xMovil.Width - xParametros.Sep_Vertical ENDIF IF xparametros.pos_derecha THEN xMovil.Left = xFijo.Left + xFijo.Width + xParametros.Sep_Vertical ENDIF IF xparametros.margen_superior THEN xMovil.Top= xFijo.Top + xParametros.Sep_Horizontal ENDIF IF xparametros.margen_inferior THEN xMovil.Top= (xFijo.Top + xFijo.Height) - xMovil.Height - xParametros.Sep_Horizontal ENDIF IF xparametros.margen_izquierdo THEN xMovil.Left = xFijo.Left + xParametros.Sep_Vertical ENDIF IF xparametros.margen_derecho THEN xMovil.Left= (xFijo.Left + xFijo.Width) - xMovil.Width - xParametros.Sep_Vertical ENDIF ENDPROC PROCEDURE param_creador LPARAMETERS xPos_Arriba, xPos_Abajo, xPos_Izquierda, xPos_Derecha, ; xMargen_Superior, xMargen_Inferior, xMargen_Izquierdo, xMargen_Derecho, ; xSep_Horizontal , xSep_Vertical, ; xDock_Altura, xDock_Ancho, xIgualar_Altura, xIgualar_Ancho, ; xCentrar_Horizontal, xCentrar_Vertical SET PROCEDURE TO Dey_func ADDITIVE IF xPos_Arriba OR xPos_Abajo THEN xMargen_Superior = .F. xMargen_Inferior = .F. ENDIF IF xPos_Izquierda OR xPos_Derecha THEN xMargen_Izquierdo=.F. xMargen_Derecho = .F. ENDIF xSep_Horizontal=chk_Value(xSep_Horizontal,0,"N") xSep_Vertical=chk_Value(xSep_Vertical,0,"N") THIS.Parametros.pos_abajo = xPos_Abajo THIS.Parametros.pos_arriba = xPos_Arriba THIS.Parametros.pos_derecha = xPos_Derecha THIS.Parametros.pos_izquierda = xPos_Izquierda THIS.Parametros.margen_derecho = xMargen_Derecho THIS.Parametros.Margen_inferior = xMargen_Inferior THIS.Parametros.margen_izquierdo = xMargen_Izquierdo THIS.Parametros.margen_superior = xMargen_Superior THIS.Parametros.sep_horizontal = xSep_Horizontal THIS.Parametros.sep_vertical = xSep_Vertical This.parametros.dock_altura = xDock_Altura This.parametros.dock_ancho = xDock_Ancho This.parametros.igualar_altura = xIgualar_Altura this.parametros.igualar_ancho = xIgualar_Ancho this.parametros.centrar_horizontal = xCentrar_Horizontal this.parametros.centrar_vertical = xCentrar_Vertical RETURN THIS.Parametros ENDPROC PROCEDURE siz_objetos LPARAMETERS xMovil, xFijo, xParametros IF NOT This.chequear_parametros (@xMovil, @xFijo, @xParametros) THEN RETURN .f. ENDIF IF xParametros.igualar_ancho THEN xMovil.Width = xFijo.Width ENDIF IF This.parametros.dock_altura THEN xMovil.Height = xFijo.Top - xMovil.Top ENDIF IF this.parametros.margen_superior THEN xMovil.height = xFijo.Top - xMovil.top - this.parametros.sep_vertical ENDIF ENDPROC PROCEDURE chequear_parametros LPARAMETERS xMovil, xFijo, xParametros SET PROCEDURE TO Dey_func ADDITIVE xMovil=chk_value(xMovil,This.obj_movil, "O") xFijo=Chk_Value(xFijo,chk_value(this.obj_fijo,This.Parent,"O"),"O") xParametros=chk_Value(xParametros,chk_value(this.obj_parametros,This.parametros,"O") ,"O") IF TYPE("xMovil")#"O" OR TYPE("xFijo")#"O" OR TYPE("xParametros")#"O" THEN RETURN .f. ENDIF ENDPROC PROCEDURE siz_guardar_columnas LPARAMETERS xGrid, xCol, xBind, xForm, xMetodo LOCAL xOK SET PROCEDURE TO dey_func ADDITIVE xCol = chk_value(xCol, This.columnas, "O") xCol.original_Tamao=CREATEOBJECT("Collection") FOR EACH cCol IN xGrid.Columns xName=cCol.Name xWidth=INT(cCol.Width) xCol.original_tamao.Add (xWidth, xName) IF xBind THEN BINDEVENT(cCol,"Resize",xForm,xMetodo) ENDIF NEXT xCol.original_ancho = xGrid.Width this.columnas.original_ancho = xCol.original_ancho this.columnas.original_Tamao = xCol.original_Tamao ENDPROC PROCEDURE siz_ajustar_columnas LPARAMETERS xGrid, xCol LOCAL xOK SET PROCEDURE TO Dey_func ADDITIVE xCol = chk_value(xCol, This.columnas, "O") xCol.ultimo_ancho = chk_value(xCol.original_ancho, xGrid.Width, "N") xVariacion = xGrid.Width / xCol.original_ancho *xGrid.Parent.Caption=STR(xVariacion,14,4 ) +" _ "+ STR(xCol.original_ancho )+" _ "+ STR(xGrid.Width) FOR EACH cCol IN xGrid.Columns TRY xName=cCol.Name xWidth=INT(xCol.original_tamao(xName) * xVariacion) cCol.Width=xWidth CATCH ENDTRY NEXT ENDPROC PROCEDURE ali_form LPARAMETERS xMovil, xForm, xParametros IF NOT This.chequear_parametros (@xMovil, @xForm, @xParametros) THEN RETURN .f. ENDIF IF xparametros.margen_superior THEN xMovil.Top= 0 + xParametros.Sep_Horizontal ENDIF IF xparametros.margen_inferior THEN xMovil.Top= (0 + xForm.Height) - xMovil.Height - xParametros.Sep_Horizontal ENDIF IF xparametros.margen_izquierdo THEN xMovil.Left = 0 + xParametros.Sep_Vertical ENDIF IF xparametros.margen_derecho THEN xMovil.Left= (0 + xForm.Width) - xMovil.Width - xParametros.Sep_Vertical ENDIF IF xParametros.centrar_horizontal THEN xMovil.Left = (xForm.Width / 2 ) - (xMovil.Width / 2) ENDIF IF xParametros.centrar_vertical THEN xMovil.Top = (xForm.Top / 2) - (xMovil.Top / 2 ) ENDIF IF xParametros.Igualar_altura THEN xMovil.Height = xForm.height - xMovil.Top ENDIF IF xParametros.Igualar_Ancho THEN xMovil.Width = xForm.Width - xMovil.LEft ENDIF ENDPROC PROCEDURE ali_columnas LPARAMETERS xMovil, xGrid, xColNum, xParametros IF NOT This.chequear_parametros (@xMovil, @xGrid, @xParametros) THEN RETURN .f. ENDIF LOCAL ARRAY xCols(xGrid.ColumnCount,4) LOCAL xCol, xWid, xLeft, xWidth FOR EACH xCol IN xGrid.Columns xCols(xCol.ColumnOrder,1)=xCol NEXT xWid=IIF(xGrid.RecordMark,12,0)+IIF(xGrid.DeleteMark,12,0) FOR nIT=xGrid.LeftColumn TO ALEN(xCols,1) xCol=xCols(nIt,1) IF nIt=xColNum THEN xLeft=xWid xWidth=xCol.Width ENDIF xWid=xWid+xCol.Width+1 xCols(nIt,2)=xWid NEXT IF xparametros.margen_izquierdo THEN xMovil.Left = xLeft + xParametros.Sep_Vertical ENDIF IF xparametros.margen_derecho THEN xMovil.Left= (xLeft + xWidth) - xMovil.Width - xParametros.Sep_Vertical ENDIF IF xParametros.centrar_horizontal THEN xMovil.Left = xLeft+(xWidth / 2 ) - (xMovil.Width / 2) ENDIF IF xParametros.Igualar_Ancho THEN xMovil.Width = xWidth ENDIF ENDPROC acontenedor cfg_grupo enabled Specifies if the form or control can respond to user-generated events. cfg_grupo_hijo enabled_hijos cfg_grabar ocfg1 ocfg2 ocfg3 cfg_crear_propiedades cfg_asignar_propiedades filtro logpath xdebug *cargar *inicializar *grabar *enabled_assign *propagar_enabled *propagar_enabled_otros *enabled_hijos_access *enabled_hijos_assign *propagar_enabled_hijos *leer_valores_iniciales Crea un Array con todas las variables publicas para luego comparar ^var_publicas[1,4] *propagar_ocfg *controlar_pordefecto *publicar_valores_iniciales *avfp_log Width = 533 Height = 37 dato_format = z dato_mask = 99999 mensaje_error = "Lista predefinida invlida !!!" tabla_ayuda = bus_lista_prefedefinida tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = bul_lis valor = 0 vacio = 0 Name = "cod_desc_listas" Label2.Caption = "Lista prefedinida" Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 113 Text8.Top = 5 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 197 Text9.Top = 5 Text9.Width = 331 Text9.Name = "Text9" "%ZoiU UTHISFORM MODIFICARClick011#)PROCEDURE propiedad_asignar LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg, xHijos AS Boolean IF typeo(oPro) THEN IF oPro.Hijos.Count=0 OR oPro.EtIQUETA = 1 THIS.Lbpropiedad.CAPTION = oPro.Nombre THIS.cont_hijos_left_offset = THIS.Lbpropiedad.LEft+THIS.Lbpropiedad.WIDTH + 1 ELSE THIS.Lbpropiedad.CAPTION = "" ENDIF ELSE *=sys_M("NotY") THIS.Lbpropiedad.CAPTION = "" ENDIF ENDPROC b"II%U$TTCD$TT CU THIS LABEL_ANCHO LBETIQUETAWIDTHLEFTTXTEXTO DATOS_MINIMO DATOS_ANCHOREDIMENSIONADO<Q PROPIEDADESsys_propiedades.prgQBOOLEAN%CTT  T a TNOTT T -  UOPROSYS_PROPIEDADESPRGXHIJOSTYPEOTHIS LBETIQUETACAPTIONNOMBRETXTEXTOVALUEVALORENABLEDREDIMENSIONAR_INTERNOredimensionar_interno0propiedad_asignar!1BA12Baaa1A1!/W )I"D%;U#4!CT T %C GABPAPT %T -T - UXTITULOXFILTROXTODOS_LOS_ESTADOSXUSADOXFORZADOXDESDEXACTIVOS XVENDIBLESTHISFORMACTIVOSVALUE VENDIBLESP_EMPGRID1COLUMN11 COLUMNORDER P_SIN_BULATRCOLUMN2VISIBLECOLUMN3REFRESH=TC6C6AC     SF Cq&#)sys_procesandoT CBUXCLASETHISFORMACTIVOSVALUE VENDIBLES HLP_BIENES2FAST FILTRO_FIJOMARCAMODELOCOD_PROTEXTOINCLUYESOLO_DESCRIPCION TMP_BIE_BUSSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOTHISPARENTTEXT1REFRESHGRID1SETFOCUSInit0Command11.Click1191aA1AAA4rQb2B5)mensaje_error = Centro de Costos invlido !!! tabla_ayuda = buscos tabla_codigo = cod_cen tabla_desc = descr tabla_idxcod = codigo tabla_tabla = costos vacio = space(6) nombre = Centros de Costos dato_format = ! dato_maxlength = 6 valor = Name = "cod_desc_cos" Label2.WordWrap = .T. Label2.Caption = "Centro de Costos" Label2.Height = 32 Label2.Left = 8 Label2.Top = 2 Label2.Width = 57 Label2.Name = "Label2" Text8.MaxLength = 8 Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 4 Text9.Name = "Text9" PROCEDURE Init parameters xtitulo, xfiltro, xtodos_los_estados, xusado, xforzado, xdesde, xactivos, xvendibles *=sys_mostrar_Screen("Inicio",.t.) dodefault(xtitulo, xfiltro, xtodos_los_estados, xusado, xforzado, xdesde) *!* this.grid1.Anchor=0 *!* this.grid1.top=58 *!* this.grid1.Height = this.text1.Top - this.grid1.top *!* this.grid1.Width = thisform.Width - this.grid1.Left *!* this.grid1.Anchor=15 thisform.activos.Value=xactivos thisform.vendibles.Value=xvendibles IF INLIST(p_emp,"GAB", "PAP") thisform.grid1.coluMN11.ColumnOrder = 2 ENDIF IF p_sin_bulatr>=1 THEN thisform.grid1.colUMN2.visible=.f. thisform.grid1.colUMN3.visible=.f. ENDIF thisform.Refresh ENDPROC PROCEDURE Command11.Click xclase = iif(thisform.activos.value,1,0)+iif(thisform.vendibles.value,1,0)*2 =hlp_bienes2(thisform.fast, thisform.filtro_fijo, thisform.marca, thisform.modelo, thisform.cod_pro, thisform.texto, thisform.incluye, thisform.solo_descripcion.value, xclase) zap in tmp_bie_bus select tmp_bie_bus append from dbf("q") go top do sp_ocultar_definitivamente ; in sys_procesando this.parent.text1.value="" thisform.refresh this.parent.grid1.setfocus() return ENDPROC "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)"%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)"^%qUT- UTHISFORM RESULTADORELEASEClick012;)4PROCEDURE Click if p_muchos_articulos<=1 =hlp_bienes(thisform.fast, thisform.filtro_fijo, thisform.marca, thisform.modelo, thisform.cod_pro, thisform.texto, thisform.incluye, thisform.solo_descripcion.value) else =hlp_bienes2(thisform.fast, thisform.filtro_fijo, thisform.marca, thisform.modelo, thisform.cod_pro, thisform.texto, thisform.incluye, thisform.solo_descripcion.value) endif *thisform.texto_dev.caption="1: "+alltrim(str(bbb-aaa))+" "+"2: "+alltrim(str(ccc-bbb))+" R:"+alltrim(str(_tally))+" Grid Ancho:"+alltrim(str(thisform.grid1.Width)) zap in tmp_bie_bus select tmp_bie_bus append from dbf("tmp_bie_cur") go top do sp_ocultar_definitivamente ; in sys_procesando this.parent.text1.value="" thisform.refresh this.parent.grid1.setfocus() return ENDPROC   %?UTC4TCC-[-[T%T=ctot('')&aaa UAAATHISTEXT1VALUETEXT2DATOFT T T UVNEWVALTHISENABLEDTEXT1TEXT2FT T T UVNEWVALTHIS FORECOLORTEXT1TEXT2TC4TCC-[-[T%TxValues=ctot('')&aaa BUAAATHISTEXT1VALUETEXT2XVALUEST TCC*#TC%C\P'TCCCCC [=g ZTCC [=TC\   U VNEWVALAAABBBXDATETHISTEXT1VALUETEXT2VALIDARREFRESHBUTHISTEXT1VALUEBUTHISTEXT2VALUEOTC =TC =  UVNEWVALTHISTIMETEXT2VALUEVALIDARREFRESH%CvNewValbCSTC  =TC  =%CvNewValbDTC *TC *  UVNEWVALTHISDATETEXT1VALUEVALIDARREFRESH)TTUTHISENABLED FORECOLORvalidar,enabled_assignforecolor_assignF value_access value_assignn date_access time_access time_assign date_assignInitr1qRBR5q"QQ2q"QQ3sRBR3qrqA233qs2qqAAqA2115m 8[2U-&2B(TG*nL0V<e)  |% d7 UG FUTHISPARENT AREA_ANTERIORGTCWUTHISPARENT AREA_ANTERIORa"%  ZTaTT-UTHISPARENTES_F1 PRIMER_WHENOLDVALUEVALUE MODIFICADO%  TCTC"%C  p T]%CCdigo inactivo !!!"Cdigo inexistente o no vlido !!!   T T%C F !T  T % C  %CfLISCCT- B  BUTHISPARENTES_F1XOK AREA_ANTERIORNOMBREBUSCARCODIGO_SI_O_SI DATO_INVALIDOTEXT9REFRESH MODIFICADOOLDVALUEVALUEVALORVALIDUPDATED PARENTCLASSANTES_DE_SALIR PRIMER_WHEN%B- TCTC%Ce FU AREA_ANTERIORTHISREADONLYPARENTNOMBREF1TEXT8REFRESHTEXT9fTC TC%CGTCC CC.C.6T T  H) Cthis.parent.dato_maskbC T C ) Cthis.parent.dato_maskbNNT CC Z) Cthis.parent.dato_maskbUT T <%CFTCa%C  FTa7T-S[BUTHISPARENT AREA_INICIAL AREA_ANTERIORXOKDATO CONTROLSOURCE DATO_TABLAVALUEVALORFORMAT DATO_FORMAT INPUTMASK DATO_MASK MAXLENGTHDATO_MAXLENGTHAAABBB TABLA_TABLANOMBREBUSCAR INICIALIZADOTEXT9REFRESHA %: T CUNKEYCODE NSHIFTALTCTRLTHISDBLCLICK LostFocus,GotFocusfWhenValidFDblClick'InitKeyPressU1a3a!3!aA4Av"AA2Ab1AAA4qqA2A3"rqaAbAbT3AAAB3AA1FeW s.J:34 []S ) "-%~UCUTHISPARENTVAR1TABLA_OBJ_FILTRO_MODIFICARClick0111@)c"JJx%U- TC C BUXRETTHISFORM ASIGNAR_COLORTCUTHIS BACKCOLOR SYS_COLORLoad0 asignar_color1q31Uy)JPROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.var1.Enabled=THIS.Enabled this.var2.Enabled=THIS.Enabled ENDPROC PROCEDURE Init IF THIS.controled_by_bie THEN THIS.ENABLED = NOT (ALLTRIM(THIS.bie_cod) == '') IF NOT THIS.ENABLED THEN THIS.bie_cod=oBie.data_codigo_vacio =THIS.GOTFOCUS () THIS.var1.valor=EVALUATE(THIS.var1.vacio) THIS.var2.valor=EVALUATE(THIS.var2.vacio) ENDIF ENDIF RETURN DODEFAULT() ENDPROC PROCEDURE GotFocus xOk=DODEFAULT() IF xOk AND TYPE("THIS.bie_cod")=="C" AND this.controled_by_bie THEN xcodins = THIS.bie_cod if dbused("ges") open database ges endif IF USED("vatributos") SELECT vatributos USE ENDIF SELE 0 USE vatributos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR INDEX ON ID TAG ID IF RECCOUNT("vatributos") = 0 THEN this.Enabled=.f. ENDIF ENDIF ENDPROC PROCEDURE Click *!* if !empty(this.direccion) *!* do ShellExec ; *!* in internet ; *!* with "http://"+p_ayuda_web+"/"+alltrim(this.direccion) *!* endif * DO hlp_form_edit IN sys_help WITH thisform do documentar in sys_wiki with thisform.document_id ENDPROC PROCEDURE Init local xx try xx=thisform.document_id this.Enabled = !empty(xx) this.Visible = !empty(xx) catch try this.Enabled = !empty(thisform.document_id) this.Visible = !empty(thisform.document_id) catch this.Enabled = .f. this.Visible = .f. endtry endtry ENDPROC PROCEDURE RightClick IF p_dev THEN do documentar in sys_wiki with thisform.document_id, .t. endif ENDPROC "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)"C%B2UCUTHISPARENT SALE_DEL_FOCOUC UTHISPARENTTECLACUTHISPARENTEN_FOCO LostFocus0WhennDblClickyGotFocus1a233a2?Ze )"^%qUTa UTHISFORM RESULTADORELEASEClick012;)-FontSize = 8 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "100,0" RowSourceType = 1 RowSource = "Ancho,1,Completa,2,400%,400,300%,300,200%,200,150%,150,130%,130,100%,100,75%,75,50%,50" Height = 22 ColumnLines = .F. Left = 166 Style = 0 Top = 8 Width = 71 BoundTo = .T. Name = "Combo1" "C%B2UCUTHISPARENT SALE_DEL_FOCOC UTHISPARENTTECLACUTHISPARENTEN_FOCOU LostFocus0DblClicknGotFocusWhen1a23a22?^ )PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE When *return .f. ENDPROC "C%B2UCUTHISPARENT SALE_DEL_FOCOUC UTHISPARENTTECLACUTHISPARENTEN_FOCO LostFocus0WhennDblClickyGotFocus1a233a1?Ze )PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE When *return .f. ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC "g%U)TUTHISPARENT ROLLBACKSVALUECOMMAND1CLICKInteractiveChange01a2[)PROCEDURE click_inicio return .t. ENDPROC PROCEDURE click_cancelar return .t. ENDPROC PROCEDURE click_finalizar return .t. ENDPROC PROCEDURE click_anterior return .t. ENDPROC PROCEDURE click_siguiente return .t. ENDPROC PROCEDURE enable_anterior_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.anterior.Enabled=vNewVal THIS.enable_anterior = m.vNewVal ENDPROC PROCEDURE enable_cancelar_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.cancelar.Enabled=vNewVal THIS.enable_cancelar = m.vNewVal ENDPROC PROCEDURE enable_finalizar_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.finalizar.Enabled=vNewVal THIS.enable_finalizar = m.vNewVal ENDPROC PROCEDURE enable_inicio_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.inicio.Enabled=vNewVal THIS.enable_inicio = m.vNewVal ENDPROC PROCEDURE enable_siguiente_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.siguiente.Enabled=vNewVal THIS.enable_siguiente = m.vNewVal ENDPROC PROCEDURE Destroy this.parent.resultado=this.resultado ENDPROC PROCEDURE Init this.cancelar.enabled = this.enable_cancelar this.anterior.enabled = this.enable_anterior this.siguiente.enabled = this.enable_siguiente this.finalizar.enabled = this.enable_finalizar this.inicio.enabled = this.enable_inicio ENDPROC "S%g|vUCaUTHISPARENT SQL_REFRESHClick013F)~PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl DO CASE CASE nKeyCode=10 .OR. (nKeyCode=13.AND.nShiftAltCtrl=2) * CTRL-ENTER IF DODEFAULT(9, 0) THIS.PARENT.propiedad_grabar () NODEFAULT ELSE RETURN .F. ENDIF CASE nKeyCode=2 .OR. (nKeyCode=4.AND.nShiftAltCtrl=2) * CTRL-RIGHT IF DODEFAULT(9, 0) THIS.PARENT.ogTipo.VALUE = THIS.PARENT.ogTipo.VALUE -1 IF THIS.PARENT.ogTipo.VALUE = 0 THIS.PARENT.ogTipo.VALUE = THIS.PARENT.ogTipo.ButtonCount ENDIF NODEFAULT ELSE RETURN .F. ENDIF CASE nKeyCode=26 .OR. (nKeyCode=19.AND.nShiftAltCtrl=2) * CTRL-LEFT IF DODEFAULT(9, 0) THIS.PARENT.ogTipo.VALUE = THIS.PARENT.ogTipo.VALUE +1 IF THIS.PARENT.ogTipo.VALUE >THIS.PARENT.ogTipo.ButtonCount THIS.PARENT.ogTipo.VALUE = 1 ENDIF NODEFAULT ELSE RETURN .F. ENDIF ENDCASE ENDPROC FontName = "Courier New" FontSize = 11 BorderStyle = 0 Margin = 0 ReadOnly = .F. SelectOnEntry = .F. BackColor = 255,128,128 Name = "Text1" "R%pUCUTHISPARENT HEADER_CLICKClick012<)NWidth = 177 Name = "propiedades_lis_combo_noname" cbInterno.cmd_filtro.Name = "cmd_filtro" cbInterno.Texto.Name = "Texto" cbInterno.combo.Anchor = 10 cbInterno.combo.Left = 0 cbInterno.combo.Top = 0 cbInterno.combo.Name = "combo" cbInterno.Anchor = 10 cbInterno.Left = 0 cbInterno.Width = 177 cbInterno.Name = "cbInterno" "%'UCUTHISPARENT SALE_DEL_FOCOCUTHISPARENTEN_FOCOC UTHISPARENTTECLA LostFocus0GotFocusnDblClick1a2a22?^)PROCEDURE LostFocus =this.parent.parent.parent.sale_del_foco() ENDPROC PROCEDURE GotFocus =this.parent.parent.parent.en_foco() ENDPROC PROCEDURE DblClick =this.parent.parent.parent.tecla(13,0) ENDPROC FontName = "Courier New" FontSize = 11 Alignment = 0 BorderStyle = 0 Margin = 0 MousePointer = 1 ReadOnly = .F. BackColor = 255,128,128 Name = "Text1" p"WW%U|T T T T T UVNEWVALTHISENABLEDVAR1TEXT8TEXT9VAR2enabled_assign01q"2)W"R%pUCUTHISPARENT HEADER_CLICKClick012<)"%U'FCUTHISPARENT TMP_ALIASDBLCLICKIDUDblClick01A1N) PROCEDURE confirmar IF EMPTY(thisform.pregunta_confirmacion) THEN RETURN .t. ELSE RETURN Mensaje_sino(thisform.pregunta_confirmacion,thisform.pregunta_confirmacion_boton) ENDIF ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=27 and thisform.escape this.Release else return dodefault(@nKeyCode, @nShiftAltCtrl) endif ENDPROC PROCEDURE Unload IF thisform.opar_tc_cargar THEN * =sys_mostrar_Screen("Wndset cargar",.t.) thisform.opar_tc.Wind_sets_grabar(this) ENDIF return thisform.resultado ENDPROC PROCEDURE Load this.autocenter=.t. Thisform.load_controles thisform.opar_tc = NEWOBJECT("tc_form_parametros","tc.vcx") IF TYPE("p_formularios_posicionar")#"N" THEN p_formularios_posicionar=0 ENDIF IF p_formularios_posicionar=0 THEN thisform.opar_tc_cargar = .f. ENDIF this.MinHeight = this.Height this.MinWidth = this.Width thisform.asignar_color() ENDPROC PROCEDURE Init parameters xresultado this.resultado = xresultado this.advertencia.Visible=.f. *!* if !empty(this.ayuda_web) *!* this.ayuda_web1.direccion=this.ayuda_web *!* this.ayuda_web1.init *!* endif try this.name=strtran(this.Caption," ","_") catch ENDTRY IF TYPE("p_formularios_posicionar")#"N" THEN p_formularios_posicionar=0 ENDIF IF thisform.opar_tc_cargar AND p_formularios_posicionar#0 THEN thisform.opar_tc.frm_name=thisform.opar_tc_frm_name thisform.opar_tc.wind_sets_deseados_cargar(thisform) thisform.opar_tc.Wind_sets_cargar() thisform.opar_tc.wind_sets_deseados_setear(thisform) ENDIF xwidth = sysmetric(1) xheight = sysmetric(2) if this.anchodeseado>0 if this.anchodeseado>=xwidth-20 this.Width = xwidth-20 else this.Width = this.anchodeseado endif else * No inicializado endif if this.alturadeseada>0 if this.alturadeseada>=xheight-140 this.Top=10 this.height = xheight-140 else this.height = this.alturadeseada endif else * No inicializado endif this.MinHeight = this.Height this.MinWidth = this.Width IF this.WindowState_Deseado<>-1 THEN this.WindowState = this.WindowState_Deseado ENDIF thisform.inicializar_controles thisform.AutoCenter=.t. ENDPROC PROCEDURE Destroy if this.DataSession=2 * =sys_mostrar_screen("Suspendo?", .t.) * La ejecuto varias veces por si hay ms de una DB close databases close databases close databases * Si no quedan DBs, elimina las tablas libres de la DB dimension atables(1) if aused("atables")>0 local z for z=1 to alen("atables",1) select (atables(z,1)) use endfor endif endif dodefault() ENDPROC R"99r%UTaUTHISFORM SUSPENDER*T T T Ta5TC% jB- C C C %.rpt  C  C  C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS RightClick0Click^12rqAA2/K)9PROCEDURE Click IF TYPE("thisform.archivotemporal")="C" IF !THIS.PARENT.keep.VALUE IF TYPE("thisform.archivotemporal")="C" IF USED(THISFORM.archivotemporal) SELE (THISFORM.archivotemporal) USE ENDIF IF FILE(p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') DELETE FILE (p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF ELSE =MESSAGEBOX("El archivo temporal es "+p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF THISFORM.RELEASE ENDPROC  2"  %[ 0 V U BUTHIS PROPIEDADz-Q PROPIEDADESsys_propiedades.prg%CCT  4% C  TC T T T-T%C%wTC^TC^ TT-Q PROPIEDADESsys_propiedades.prg%Ci C C 7C *%  e UOPROSYS_PROPIEDADESPRGTYPEOTHISPARENT PROPIEDAD HIJOS_CARGARTEXTOCAPTIONNOMBREHIJOSCOUNTITEMCOMBOENABLED VALOR_FIJOOBLIGA FORECOLOR BORDERCOLOROPRO2AGREGAR_MANUALESDEFINIR_VALORESCODIGONUMBEROFELEMENTSREDIMENSIONAR_INTERNOST-UTHIS PROPIEDAD-TCUXVALORTHISCOMBOVALUEPROGRAMMATICCHANGE$T(TCD$TT C U THIS LABEL_ANCHOTEXTOWIDTHLEFTCOMBOPARENT DATOS_MINIMO DATOS_ANCHOREDIMENSIONADO UTHISREDIMENSIONAR_INTERNO'T CU XDATO_LEFTTHIS DATOS_MINIMOREDIMENSIONAR_INTERNOSTC]UTHISDESDEDTT BCUTHISAVALUEST.QPROPIEDADES_CONTAINER clases.vcxT%? + TCC  C "% ;TaT  + TCC  CUTHISPARENT PROPIEDADVALORVALUEOCNCLASESVCX CONTENEDORESCOUNT REMOVEOBJECTNAME HIJOS_CARGARHIJOSCONT_HIJOS_CREAR REDIMENSIONAR-%C& CUTYPEOTHISPARENT PROPIEDADINTERACTIVECHANGEpropiedad_access0propiedad_assignXdisposepropiedad_valor_asignarredimensionar_internowredimensionar_internossreacomodar_datosInit definir_valores>combo.InteractiveChangecombo.ProgrammaticChange13BaaAqAq1AAa11AABAABA32q22BA122q322aAb!ABAA12A1e%1'[4+:1B3 bE7}K9N=1L SR{ o) "%e}wUUTHISPARENTMASCLICKDblClick011*)"%e}wUUTHISPARENTSET_DBLDblClick01116)"%e}wUUTHISPARENTMASCLICKDblClick011*) BoundColumn = 2 ColumnCount = 2 ColumnWidths = "138,17" RowSourceType = 6 RowSource = "" DisplayValue = 0 Value = 0 FirstElement = 1 Height = 25 Left = 84 NumberOfElements = 0 Style = 2 TabIndex = 9 Top = 0 Width = 268 BoundTo = .T. Name = "combo" `"GGz%OP^UT- T*C(z0:CC Z)Hj,    % T  !C(z1:CC Z) 2,T  $C(z2:CC Z)*C(z3:CC Z)Hk" CC% T CC%  T CC% T CC%  T 2" T  "TCxZoom  C,%CTCTTC(H &H," TTT TTT 2"TTT HS TTT 2TTT(CT Ca C T!aC"#U$THISENABLEDXZOOMXSYSMTHISFORMCRVIEWER REPORTSOURCE CRREPORTEAGREGAR_LOG_EJECUCION PAPERSIZECRYSTAL_TAMAO P_CRY_TAMAOPARAMETERFIELDS GETITEMBYNAME DEFAULTVALUEAZOOMODEYFUNCSPLIT_TO_ARRAY CTBOTONESCTZOOMOGZOOMVALUEOCATCHPAPERORIENTATIONCOMBO1OPEXMENSAJEMESSAGE WINDOWSTATERESIZEDEVENTS VIEWREPORTZOOM TMR_PAGINATXPAGESETFOCUSTimer01daq1aAAAB$2BT12B1BAABb22f )G"V-%2 U BCUOGRILLA C"C.FechaFechax$C.descrUsuarioxBC.msg OperacionCdDaUTHISFOR_ADD_COLUMNAPARENTWIDTH~ pC "dynamicbackcolor", "iif( :.id_fin=2, rgb(255,150,150), rgb(255,255,255))", "column" UOGRILLAXALIASTHISFOR_DYNAMICS_COLLADD sql_refresh0sql_crear_columnasX for_dynamics1q2"A!22V  )Rcrreporte crvista xzoom cvbusqueda xbtshift crversion crystal_tamao log_ejecucion padre ^archivo[10,0] *mostrar_pgina *crviewer_clicked *busqueda_cerrar *busqueda_buscar *busqueda_mostrar *agregar_caption *agregar_log_ejecucion *cerrar_reporte *imprimir_pdf *imprimir_xls *asignar_color *button_click   ׳% 0 lX UTCUTHIS BACKCOLOR SYS_COLORl  He5      %C tB-5    %C B-5     e%C R aB-U NKEYCODE NSHIFTALTCTRLTHISFORMWIZARD_BUTTONS1ENABLE_FINALIZAR FINALIZARCLICKENABLE_SIGUIENTE SIGUIENTEENABLE_ANTERIORANTERIOR7%$C BUTHISFORMOPAR_TC_CARGAROPAR_TCWIND_SETS_GRABARTHIS RESULTADO-%TC _-%eYG(9aTT .T Ctc_form_parametrostc.vcx,%Cp_formularios_posicionarbN T % T - C UTHISNAMECAPTION SET_ACFODAID ACTIVEFORM DATASESSIONIDALTURA_INICIALHEIGHT ANCHO_INICIALWIDTHTHISFORMOPAR_TCP_FORMULARIOS_POSICIONAROPAR_TC_CARGAR ASIGNAR_COLORiT-% zTC C C T  TC%TC%TT%% )T|%]TxT%"% T%TT%NTTa'T T+%C   G(TC 6T !T"CCZTaT #abT"U$THIS ADVERTENCIAVISIBLETHISFORMOPAR_TC_CARGARP_FORMULARIOS_POSICIONAROPAR_TCFRM_NAMEOPAR_TC_FRM_NAMEWIND_SETS_DESEADOS_CARGARWIND_SETS_CARGARWIND_SETS_DESEADOS_SETEAR BORDERSTYLE BORDEDESEADOXWIDTHXHEIGHT MINHEIGHTHEIGHTMINWIDTHWIDTH ANCHODESEADO ALTURADESEADAWINDOWSTATE_DESEADO WINDOWSTATE AUTOCENTERCONTADORLEFTWIZARD_BUTTONS1TOPP_DEMORA_IMPRESION TIMER_DEMORACONTEOTIMER1INTERVALCAPTIONENABLED asignar_color,KeyPress`Unload`LoadInit12Q3AqAR3AqAQ3AqAA3BA2AAA21AA 2aDAA621BAqA1AAABAqA1AAAR1A|A1A23RMj&!9F07aW[) PROCEDURE filtro_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.filtro = m.vNewVal THIS.var1.filtro = m.vNewVal THIS.var2.filtro = m.vNewVal ENDPROC "R%pUCUTHISPARENTEJECUTARVALUEClick01a11)&Top = 0 Left = 168 Width = 159 Height = 40 valor = Name = "var2" Label2.Caption = "" Label2.Height = 17 Label2.Left = 8 Label2.Top = 9 Label2.Width = 2 Label2.Name = "Label2" Text8.Value = space(6) Text8.Left = 15 Text8.Top = 5 Text8.Name = "Text8" Text9.Name = "Text9" Top = 0 Left = 0 Width = 159 Height = 40 valor = Name = "var1" Label2.Name = "Label2" Text8.Value = space(6) Text8.Name = "Text8" Text9.Name = "Text9" "R%o}U CTUTHISENABLED P_RUBROFACInit013Q)"N%U.FQ.dbf UVIEWERTHISFORMARCHIVORELEASEClick01qAa2\)EHeight = 503 Width = 989 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "" MinHeight = 200 MinWidth = 440 Icon = KeyPreview = .T. WindowType = 1 xzoom = .F. cvbusqueda = .F. xbtshift = 0 crversion = ("") crystal_tamao = -1 log_ejecucion = ("") padre = .F. Name = "crystalviewer" 8"I% ^U% TCG((codigo TCOE%C4R,:Cdigo repetido !!! G(( #B- Ba BaUTHISFORMTIPOABMXORDERCODIGOREGISTROTEXT1VALUE BUTHISFORM RESULTADO4TUXTIPOTHISFORMTIPOABM C CUTHIS ASIGNAR_COLORTCUTHIS BACKCOLOR SYS_COLORvalidar0Unload4Init`Load asignar_color1aqqArA22q421[x#:T()PROCEDURE sql_refresh LPARAMETERS oGrilla *=sys_m("SQL") return dodefault(@oGrilla) ENDPROC PROCEDURE sql_crear_columnas THIS.for_add_columna() *THIS.for_add_columna(,".Fecha","Fecha",120,,,,,,,,,,,,,"iif(id_fin=2, rgb(255,150,150), rgb(255,255,255))" ) THIS.for_add_columna(,".Fecha","Fecha",120 ) THIS.for_add_columna(,".descr","Usuario",120) THIS.for_add_columna(,".msg","Operacion",MAX(this.Parent.Width - 240-5,100),,,,,,,,,,,.t.) ENDPROC PROCEDURE for_dynamics lparameters oGrilla, xAlias this.for_dynamics_coll.add( [ "dynamicbackcolor", "iif( ] + xAlias + [.id_fin=2, rgb(255,150,150), rgb(255,255,255))", "column" ] ) ENDPROC $PROCEDURE sql_refresh lparameters xObtener_Datos if xObtener_Datos then this.obtener_datos (this.rollbacks) endif this.gf.sql_crear_columnas () GO BOTTOM in (this.gf.sql_alias ) this.gF.sql_refresh(this.grid1) ENDPROC PROCEDURE obtener_datos lparameters xrollbacks ENDPROC PROCEDURE Init LOCAL xAnchor xAnchor=this.Anchor this.grid1.Width = this.Width - this.grid1.Left this.grid1.Height = this.Height - this.grid1.Top this.Anchor=xAnchor this.sql_refresh (.f.) ENDPROC PROCEDURE Destroy =this.gf.dispose () ENDPROC "%&S ?U CG+(ve_control_de_pedidosC(C#CCCUVE_CONTROL_DE_PEDIDOSNITAARRAYPLATAFORMAS_DISPONIBLESTHISAGREGAR_MANUALESdefinir_valores01r11A1)"M%XnhU BUTHIS RESULTADOUnload013+)"%cUh%)CC#6CU XOBTENER_DATOSTHIS OBTENER_DATOS ROLLBACKSGFSQL_CREAR_COLUMNAS SQL_ALIAS SQL_REFRESHGRID1 U XROLLBACKSxT T TTC-U XANCHORTHISANCHORGRID1WIDTHLEFTHEIGHTTOP SQL_REFRESHCUTHISGFDISPOSE sql_refresh0 obtener_datosInit%Destroy1q1A!a2q3q31  2)"`%4 "UCUTHISPARENTCAMBIO_INTERACTIVO CUTHIS LOSTFOCUS%UTHIS LISTINDEXUInteractiveChange0Validm LostFocusInit122bB3<=Yj)Q"88% U<Q PROPIEDADESsys_propiedades.prgQBOOLEAN%C'%  T  $T    T  T UOPROSYS_PROPIEDADESPRGXHIJOSTYPEOHIJOSCOUNTETIQUETATHIS LBPROPIEDADCAPTIONNOMBRECONT_HIJOS_LEFT_OFFSETLEFTWIDTHpropiedad_asignar01AqaA1A2A3)8`vacio = 0 valor = -1 tabla_tabla = monedas_filtro tabla_codigo = codigo tabla_desc = descr tabla_ayuda = busmon mensaje_error = "Moneda no encontrada !!!" dato_format = z dato_tabla = m dato_mask = 99 tabla_idxcod = codigo Name = "cod_desc_mon" Label2.Caption = "Moneda" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ="$$<%~U$ C UVNEWVALTHISTEXT8VALIDg TCRTC C CT 3%Cthis.parent.parent.parent.bulbC-T C =''&aaa T C NT  %   BU XRESULTADOTHISPARENTTEXT1VALUETEXT9 COD_DESC_ATR1VBULTOSDESCR VALOR_BULAAABUL CODIGO_BULCODIGO_PARCIAL CODIGO_ATR TIENE_ATR valor_assign0 Text8.Validy1q2q$2A2Rt)$"ٛ%?e MU 4 C%CxTitulobCAT$%CxControlSourcebC|TTTCUXCONTROLSOURCEXTITULOTHISFORMCAPTIONEDIT1 COLORSOURCE CONTROLSOURCEVALOR_ORIGINALInit01AA1A1!2C)"%auoUTUTHISVISIBLEP_DEVInit012$)PROCEDURE sel_cantidad SELECT (this.tabla_alias) this.rec_push COUNT FOR Evaluate(this.tabla_campo) TO SelCount this.rec_pop RETURN SelCount ENDPROC PROCEDURE sel_cantidad_no SELECT (this.tabla_alias) this.rec_push COUNT FOR NOT Evaluate(this.tabla_campo) TO SelCount this.rec_pop RETURN SelCount ENDPROC PROCEDURE sel_invertir SELECT (THIS.tabla_alias) THIS.rec_push xcampo=THIS.tabla_campo REPLACE &xcampo WITH NOT &xcampo ALL THIS.rec_pop ENDPROC PROCEDURE sel_ninguno SELECT (this.tabla_alias ) this.rec_push xCampo=this.tabla_campo Replace &xCampo WITH .f. for &xCampo this.rec_pop ENDPROC PROCEDURE sel_primero SELECT (this.tabla_alias ) this.rec_push GO TOP cRC=0 DO WHILE NOT EOF(this.tabla_alias) IF EVALUATE(this.tabla_campo) THEN cRC=RECNO() EXIT ENDIF SKIP ENDDO this.rec_pop RETURN cRC ENDPROC PROCEDURE sel_tiene RETURN this.sel_cantidad()>0 ENDPROC PROCEDURE sel_todos SELECT (this.tabla_alias) this.rec_push xcampo=this.tabla_campo Replace &xCampo WITH .t. for &xCampo = .f. this.rec_pop ENDPROC PROCEDURE ord_subir PARAMETERS xhighlighted LOCAL ARRAY xORDArray(1,1) xCampo=THIS.tabla_campo xCampoO=THIS.tabla_campo_orden THIS.rec_push IF xhighlighted OR NOT THIS.sel_tiene() THEN REPLACE &xCampoO WITH &xCampoO - 1.5 IN (THIS.tabla_alias) THIS.ord_arreglar() ELSE SELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray xOrdI=(1/10^THIS.ord_decimal) IF THIS.ord_agrupar THEN FOR nIT=1 TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN EXIT ENDIF NEXT xOrdP=xORDArray(nIT,2) - 2 + xOrdI FOR nIT2=nIt TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN xORDArray(nIT,2)=xOrdP xOrdP=xOrdP+xOrdI ENDIF Next ELSE xSec=1 xLastNo=0 FOR nIT=1 TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN xORDArray(nIT,2)=xLastNo+(xOrdI*xSec) xSec=xSec+1 ELSE xSec=1 xLastNo=xORDArray(nIT,2)-1 ENDIF Next ENDIF THIS.ord_arreglar(@xOrdArray) ENDIF THIS.rec_pop ENDPROC PROCEDURE ord_bajar PARAMETERS xhighlighted LOCAL ARRAY xORDArray(1,1) xCampo=THIS.tabla_campo xCampoO=THIS.tabla_campo_orden THIS.rec_push IF xhighlighted OR NOT THIS.sel_tiene() THEN REPLACE &xCampoO WITH &xCampoO + 1.5 IN (THIS.tabla_alias) THIS.ord_arreglar() ELSE SELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray xOrdI=(1/10^THIS.ord_decimal) IF THIS.ord_agrupar THEN FOR nIT=1 TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN EXIT ENDIF NEXT xOrdP=xORDArray(nIT,2) + 2 - xOrdI FOR nIT2=nIt TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN xORDArray(nIT,2)=xOrdP xOrdP=xOrdP-xOrdI ENDIF Next ELSE FOR nIT=1 TO ALEN(xORDArray,1) IF xORDArray(nIT,3) THEN xORDArray(nIT,2)=xORDArray(nIT,2)+1.5 ENDIF Next ENDIF THIS.ord_arreglar(@xOrdArray) ENDIF THIS.rec_pop ENDPROC PROCEDURE ord_arreglar PARAMETERS xORDArray LOCAL ARRAY xORDArray2(1,1) xParam=(PARAMETERS()=1) THIS.rec_push xCampoO=THIS.tabla_campo_orden xCampoID=THIS.tabla_campo_id XACampoID=ALLTRIM(THIS.tabla_alias) +"."+ ALLTRIM(THIS.tabla_campo_id ) xOP=0 xMCampoO=THIS.tabla_madre_orden IF xParam THEN FOR nIT=1 TO ALEN(xORDArray,1) GOTO xORDArray(nIT,1) REPLACE &xCampoO WITH xORDArray(nIT,2) IN (THIS.tabla_alias) NEXT ENDIF SELECT RECNO(), &xCampoO FROM (THIS.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray2 IF THIS.tabla_madre #'' THEN xAlias=ALIAS() SELECT (THIS.tabla_madre) xOldMOrder=ORDER() IF ORDER() # THIS.tabla_madre_order THEN SET ORDER TO (THIS.tabla_madre_order) ENDIF SELECT (xAlias) ENDIF FOR nIT=1 TO ALEN(xORDArray2,1) IF TYPE("xORDArray2(nIT,1)")#"N" THEN LOOP ENDIF GOTO xORDArray2(nIT,1) REPLACE &xCampoO WITH nIT IN (THIS.tabla_alias) IF THIS.tabla_madre #'' THEN SEEK &XACampoID IN (THIS.tabla_madre) IF FOUND(THIS.tabla_madre) THEN REPLACE &xMCampoO WITH nIT IN (THIS.tabla_madre) ENDIF ENDIF NEXT IF THIS.tabla_madre #'' THEN SELECT (THIS.tabla_madre) SET ORDER TO (xOldMOrder) ENDIF THIS.rec_pop ENDPROC PROCEDURE sel_actual RETURN Evaluate(this.tabla_alias+"."+this.tabla_campo) ENDPROC PROCEDURE rec_push xNewPos=ALEN(this.rec_stack,1)+1 DIMENSION this.rec_stack (xNewPos) this.rec_stack (xNewPos)=RECNO(this.tabla_alias) RETURN xNewPos ENDPROC PROCEDURE rec_pop xNewPos=ALEN(this.rec_stack,1) GOTO this.rec_stack (xNewPos) IN (this.tabla_alias) DIMENSION this.rec_stack (xNewPos-1) RETURN xNewPos ENDPROC PROCEDURE sel_ultimo SELECT (this.tabla_alias ) this.rec_push GO BOTTOM cRC=0 DO WHILE NOT BOF(this.tabla_alias) IF EVALUATE(this.tabla_campo) THEN cRC=RECNO() EXIT ENDIF SKIP -1 ENDDO this.rec_pop RETURN cRC ENDPROC PROCEDURE sel_getarray PARAMETERS xORDArray,xhighlighted xCampo=THIS.tabla_campo xCampoO=THIS.tabla_campo_orden SELECT (This.tabla_alias) IF xhighlighted OR NOT THIS.sel_tiene() THEN xOrdArray(1,1)=RECNO() xOrdArray(1,2)=&xCampoO xOrdArray(1,3)=&xCampo ELSE SELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO WHERE &xCampo INTO ARRAY xORDArray ENDIF ENDPROC PROCEDURE Init this.rec_stack(1)=0 ENDPROC "%7 U$ C UVNEWVALTHISTEXT8VALID BCUg TCRTC C CT 3%Cthis.parent.parent.parent.atrbC-T C =''&aaa T C NT  %   BU XRESULTADOTHISPARENTTEXT1VALUETEXT9 VATRIBUTOSDESCR COD_DESC_BUL1 VALOR_ATRAAAATR CODIGO_ATRCODIGO_PARCIAL CODIGO_BUL TIENE_BULF CU VATRIBUTOS valor_assign0f1y Text8.ValidText8.DblClick1q22q$2A3q1Rk}= b")PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.var1.Enabled=THIS.Enabled this.var2.Enabled=THIS.Enabled ENDPROC PROCEDURE GotFocus xOk=DODEFAULT() IF xOk AND TYPE("THIS.bie_cod")=="C" AND this.controled_by_bie THEN xcodins = THIS.bie_cod if dbused("ges") open database ges endif IF USED("vbultos") SELECT vbultos USE ENDIF SELE 0 USE vbultos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR INDEX ON ID TAG ID IF RECCOUNT("vbultos") = 0 THEN this.Enabled=.f. ENDIF ENDIF ENDPROC PROCEDURE Init IF THIS.controled_by_bie THEN THIS.ENABLED = NOT (ALLTRIM(THIS.bie_cod) == '') IF NOT THIS.ENABLED THEN THIS.bie_cod=oBie.data_codigo_vacio =THIS.GOTFOCUS () THIS.var1.valor=EVALUATE(THIS.var1.vacio) THIS.var2.valor=EVALUATE(THIS.var2.vacio) ENDIF ENDIF RETURN DODEFAULT() ENDPROC AutoSize = .T. ButtonCount = 4 Anchor = 257 BackStyle = 0 BorderStyle = 0 Value = 1 Height = 27 Left = 0 Top = 12 Width = 418 Name = "Optiongroup1" Option1.BackStyle = 0 Option1.Caption = "Pendientes" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 81 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Ultimos 3 meses" Option2.Height = 17 Option2.Left = 102 Option2.Style = 0 Option2.Top = 5 Option2.Width = 113 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.BackStyle = 0 Option3.Caption = "Ultimos 6 meses" Option3.Height = 17 Option3.Left = 231 Option3.Style = 0 Option3.Top = 5 Option3.Width = 113 Option3.AutoSize = .T. Option3.Name = "Option3" Option4.BackStyle = 0 Option4.Caption = "Todos" Option4.Height = 17 Option4.Left = 360 Option4.Style = 0 Option4.Top = 5 Option4.Width = 53 Option4.AutoSize = .T. Option4.Name = "Option4" 8"[%H&U$ C UVNEWVALTHISTEXT8VALIDUK%C>0TC=% ;FG((codins% ET%%Cges ges G(GES %Cges ges%C vatributos ?F PF Q vatributos& & %STaTa  TCXT-T-%Cvbultos /F @FQvbultos& & %STaTa TCXT-T-XTC  C CT,%Cthis.parent.parent.codbC*TC='' &aaa UTC  C   BCUTHISVALUEPARENTES_F1BIENESCODINSCOD_INSXCODINS PARCHE_DBUSEDGES VATRIBUTOSCLAVECODIGODESCR ATRIBUTOS COD_DESC_ATR1ENABLED TIENE_ATRVALORVBULTOSBULTOS COD_DESC_BUL1 TIENE_BULTEXT1 COD_DESC_BIE1TEXT9 VALOR_CODAAACODCODIGO_PARCIAL valor_assign0Inity Text8.Valid1q25AbrArbARAAqAqAAAAAqAqAAAAABASA2Rm( )"M%RnhU UNROWNCOL ActivateCell0121)OLEDropEffects = 0 tabla_tabla = cat_com tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo mensaje_error = "Categora invlida !!!" tabla_ayuda = bus_cat_com hlp = .F. Name = "cod_desc_cat_com" Label2.WordWrap = .T. Label2.Caption = "Categora de Compras" Label2.Height = 32 Label2.Left = 8 Label2.Top = 2 Label2.Width = 74 Label2.Name = "Label2" Text8.Left = 80 Text8.Top = 6 Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 6 Text9.Name = "Text9" ("g%94UT T T T-5TC% jB- C C C % C  C  C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAPOSTPROCESAR_IMPRESIONP_SERVERSETSY% B-T T T T-5TC% B- C C C % % C  C C C G( CTTU XNOBROWSEP_DEVTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS CTUTHISVISIBLEP_CRYSTAL_ACCESSClick0 RightClickCInit1rqA#A3qqArqA2AA31nu$6P)PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC PROCEDURE RightClick LPARAMETERS xNoBrowse IF NOT p_dev THEN RETURN .F. ENDIF THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() IF NOT xNoBrowse THEN **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF NOT THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF ENDIF =THISFORM.grabar_ejecucion() =THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC PROCEDURE Init =dodefault() this.Visible=p_crystal_access ENDPROC "R%f{UTUTHISCAPTION P_PRO_CAT1 Label2.Init0120),"{%U9T-T-T UTHISENABLEDTHISFORM TIMER_INITGRID_MOVER_ARRIBAINITTimer011)"+H%*L 8U4%CV%C i CT  U XTITULOXTABLA XEXPRESIONXORDENXTITULO_EXPRESIONXIDXCLAVETHISFORMTIMER1ENABLED TIMER_INITInit01 !QAb4)S"::F%UT-UTHISCONTROL-TTUVNEWVALTHISENABLEDCONTROLT UVNEWVALTHISCONTROLVALORBUTHISCONTROLVALOR%C @%CfCfCCfCf  T! BCU TYPEOTHISCONTROLOOBJOBJECTSNAMECONTROL_NOMBRE PARENTCLASS CONTROL_CLASEDestroy0enabled_assignXcfg_valor_assigncfg_valor_accessInit$12q12qQ22qAAAAA2#H ' B_):"%b pUC%C5T  ;TCC CC. C.6TC%T(8CError al obtener el dato: C   T  T  6T C C^ C^6% T aTT TT %C )TCTUOEXTHISDATOTEXT8VALUEVALORXNVALXEVA DATO_TABLASYS_MMESSAGEENABLEDLABEL2TEXT9 FORECOLORDISABLEDBACKCOLOR BACKCOLORDISABLEDFORECOLORTABLA_OBJ_FILTRO OBJ_FILTROTABLA_SELECT_PROC_EXT MOSTRAR_LABELInit01rd@bAACbaa2aaaaARB12w) " Ӏ%uL ZUCa3sys_procesandoIniciando subida SQL T T    %CoSQLbO"sys_clases_conexion/sys_procesandoConectado al SQL%C -% )C%\TMP\C f^T  T\tmp\  2sys_procesandoRealizando el envoT C ( T %  3T   u WT   qT % C T sys_procesando B UTHISPARENTBTNTABLA RIGHTCLICK SP_MENSAJESYS_PROCESANDOOSQLXTABLAXAUTXMENSAJETHISFORMXOKOEXOEX2 OBTENER_SQLSYS_CLASES_CONEXIONCONECTARMENSAJEARCHIVOTEMPORALP_LOCALSQL_SUBIR_TABLA USERVALUEMESSAGESP_OCULTAR_DEFINITIVAMENTET T T T- 5TC% uB-T C CollectionN%C O C % C  C C C6%   LC g C( %TC%C CC*PQ&CFecha: CCC C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONOEXXMSGXOK VALIDAR_DATOSXLS_COLL_PARAMXLS_A_USAR_REVISARINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOPRE_SELECCIONAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONINICIALIZAR_COLUMNAS_EXTERNOPARENTVISIBLE P_SININTERFAZ AUTOMATIZADOSELECCIONAR_COLUMNAS IMPRIMIR_XLS ERR_HAND_OEXLOG_PATHPOS_SELECCIONAR_COLUMNASGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS RightClick0Click1C44!ABABA#BB1AAAA2qqA22AcA!aAAABA2k- G) &"  k%UFT T T UVNEWVALTHISFILTROVAR1VAR2 filtro_assign01q"QQ2) h"OO#d%b*U<TTCC]R T\tmp\"T\tmp\CC]R5   TC T C T %T  Where FHSELECT * FROM (xtabla) &xFiltro ORDER BY &xDes INTO TABLE (xcursor2) T CW%_INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) %BaINSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) @SELECT * FROM (xcursor2) ORDER BY &xDes INTO TABLE (xcursor) Q F QF Q%TCWTC#TCC. ,TTUXTABLATHISPARENTTABLACURSORXCURSORP_LOCALXCURSOR2XCODXDESXFILTROXOLDSEL TABLA_CODIGO TABLA_DESCRFILTRO AGREGAR_CERO AGREGAR_CERO1 SELECT_AREAALIAS ROWSOURCE BOUNDCOLUMN DISPLAYVALUEK"T.&THIS.PARENT.valor_desde = &xcodigo UXCODIGOTHISPARENTALIAS TABLA_CODIGOM"T.xvalor = &xcodigo TUXCODIGOTHISPARENTALIAS TABLA_CODIGO VALOR_DESDEXVALORInit0 LostFocusMValid11!2RQAQAQAAAQA"13"a3"Q11#Q*&m0)O"%sUC5El mesaje ser guardado en la Bandeja de Salida de suC 7cliente de E-Mail. Recuerde ejecutar "Enviar y Recibir"C %para que su mensaje llegue a destino.Mensaje de Correo Electrnicox/internetmailto:CU SHELLEXECINTERNETTHISPARENT DIRECCIONVALUEClick01C 2V)"%U2/internethttp://CU SHELLEXECINTERNETTHISPARENTURLVALUEClick013d)PROCEDURE DblClick this.Parent.tecla(13) ENDPROC PROCEDURE Init this.recordsourcetype= 1 this.parent.registro=-1 this.refresh this.SetAll("fontsize",8,"column") this.SetAll("fontsize",8,"text") this.SetAll("fontname","Courier New","column") this.SetAll("fontname","Courier New","text") this.SetAll("selectonentry",.f.,"column") this.SetAll("mousepointer",1,"text") this.SetAll("margin",0,"text") * 2017/06/05 this.SetAll("readonly",.t.,"column") ENDPROC PROCEDURE Resize this.Parent.ajustar_ancho ENDPROC ButtonCount = 6 BackStyle = 0 Value = 0 ControlSource = "" Height = 144 Left = 11 Top = 48 Width = 145 Name = "ogTipo" Option1.BackStyle = 0 Option1.Caption = "Etiqueta" Option1.Height = 17 Option1.Left = 29 Option1.Top = 15 Option1.Width = 63 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Marca" Option2.Height = 17 Option2.Left = 29 Option2.Top = 34 Option2.Width = 51 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.BackStyle = 0 Option3.Caption = "Opciones" Option3.Height = 17 Option3.Left = 29 Option3.Top = 53 Option3.Width = 71 Option3.AutoSize = .T. Option3.Name = "Option3" Option4.BackStyle = 0 Option4.Caption = "Texto" Option4.Height = 17 Option4.Left = 29 Option4.Top = 72 Option4.Width = 61 Option4.Name = "Option4" Option5.BackStyle = 0 Option5.Caption = "Cuadro de Texto" Option5.Height = 17 Option5.Left = 29 Option5.Top = 91 Option5.Width = 108 Option5.AutoSize = .T. Option5.Name = "Option5" Option6.Caption = "Nmero" Option6.Height = 17 Option6.Left = 29 Option6.Top = 110 Option6.Width = 63 Option6.AutoSize = .T. Option6.Name = "Option6"  PROCEDURE RightClick *=sys_mostrar_screen("EXP_SQL",.T.) =this.Parent.btntabla.RightClick (.t.) do sp_mensaje ; in sys_procesando ; with "Iniciando subida SQL" LOCAL oSQL, xTabla, xAut, xMensaje xMensaje="" oSQL=thisform.osql LOCAL xOK, oEX, oEX2 IF TYPE("oSQL")#"O" THEN DO Obtener_SQL IN sys_clases_conexion WITH oSQL ENDIF do sp_mensaje ; in sys_procesando ; with "Conectado al SQL" IF NOT oSQL.Conectar() THEN IF NOT xAut THEN =Mensaje(oSQL.mensaje ) ENDIF ENDIF IF "\TMP\"$UPPER(THISFORM.archivotemporal) xTabla = THISFORM.archivotemporal ELSE xTabla = p_local+'\tmp\'+THISFORM.archivotemporal ENDIF TRY do sp_mensaje ; in sys_procesando ; with "Realizando el envo" xOK = oSQL.SQL_Subir_Tabla(,xTabla, , , , @oEX2) CATCH TO oEX xOK=-1 ENDTRY IF xOK=-1 THEN TRY xMensaje= oEX2.USERVALUE.MESSAGE CATCH TRY xMensaje= oEX2.MESSAGE CATCH xMensaje= oSQL.Mensaje ENDTRY ENDTRY IF NOT xAut THEN =Mensaje(xMensaje) ENDIF ENDIF thisform.osql = oSQL do sp_ocultar_definitivamente ; in sys_procesando RETURN xOK ENDPROC PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=4 ximpresion=.F. LOCAL oEx, xMSG PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.xls_coll_param=CREATEOBJECT("Collection") IF THISFORM.xls_a_usar_revisar() THEN =THISFORM.inicializar_columnas() if not thisform.imprimir_xls_usar_externo then =thisform.Pre_Seleccionar_columnas(Thisform) endif =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.inicializar_columnas_externo() *=sys_m("Click") IF this.Parent.Visible AND NOT p_SinInterfaz AND NOT this.parent.automatizado and not thisform.imprimir_xls_usar_externo =thisform.seleccionar_columnas(Thisform) ENDIF TRY =THISFORM.imprimir_xls() CATCH TO oEx IF p_SinInterfaz THEN xMSG=err_hand_oex(oEx) IF NOT EMPTY(THIS.PARENT.Log_path) THEN =STRTOFILE(REPLICATE("*",80),THIS.PARENT.Log_path,1) =STRTOFILE("Fecha: "+TTOC(DATETIME()),THIS.PARENT.Log_path,1) =STRTOFILE(xMSG,THIS.PARENT.Log_path,1) ENDIF ELSE THROW ENDIF ENDTRY =thisform.Pos_Seleccionar_columnas(Thisform) =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() ENDIF SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 ENDPROC e"LL%UP.%Cthisform.archivotemporalbC?% .%Cthisform.archivotemporalbC%C FQ)%C\tmp\.dbf0#\tmp\.dbf ;?CEl archivo temporal es \tmp\.dbfx UTHISPARENTKEEPVALUETHISFORMARCHIVOTEMPORALP_LOCALRELEASEClick01AAA1AAAA2)L"uuD%,1U/L% Pageframe1Command1 Command2 ` +%Label' % T %aC L T a T- #  G CHo?  Label? 1%- T 2%C LC Combobox T a )T- ;T-T(T  T CUO1THISFORMOBJECTSNAMECLASSENABLEDDISABLEDFORECOLOR FORECOLOROBJREADONLYOPAGE PAGEFRAME1PAGES BASECLASSCOMMAND1VISIBLECOMMAND2ANCHORLEFTWIDTH POS_READONLYponer_readonly01A!1AAAABABrA!1A"ABAACA1A1)u"% j VU1T T UVNEWVALTHIS DIRECCIONENABLEDBUTHIS DIRECCIONREADONLYT UVNEWVALTHIS DIRECCIONREADONLYenabled_assign0readonly_accessreadonly_assign1qS"43qR2 D)2PROCEDURE InteractiveChange DO CASE CASE THIS.VALUE = 1 THISFORM.crviewer.ZOOM(1) THIS.PARENT.combo1.VALUE=1 CASE THIS.VALUE = 2 THISFORM.crviewer.ZOOM(2) THIS.PARENT.combo1.VALUE=2 CASE THIS.VALUE = 3 THISFORM.crviewer.ZOOM(150) THIS.PARENT.combo1.VALUE=150 CASE THIS.VALUE = 4 THISFORM.crviewer.ZOOM(130) THIS.PARENT.combo1.VALUE=130 CASE THIS.VALUE = 5 THISFORM.crviewer.ZOOM(100) THIS.PARENT.combo1.VALUE=100 CASE THIS.VALUE = 6 THISFORM.crviewer.ZOOM(75) THIS.PARENT.combo1.VALUE=75 ENDCASE ENDPROC PROCEDURE Init local z for z=1 to mm_max this.arreglo_monsym(z,1)=mm_moneda(z,1) this.arreglo_monsym(z,2)=mm_moneda(z,2) endfor this.arreglo_monsym(z,1)="Moneda de Origen" this.arreglo_monsym(z,2)="---" if this.pesos_actualizados z=z+1 this.arreglo_monsym(z,1)="Pesos Actualizados" this.arreglo_monsym(z,2)="---" endif this.NumberOfElements = z this.Value=1 ENDPROC "b%X DU1T T UVNEWVALTHISURLENABLEDBUTHISURLREADONLYT UVNEWVALTHISURLREADONLYenabled_assign0readonly_accessreadonly_assign1qR!33qR24 )"k%7U+G+( sys_winsocksys_mail_funciones/QVFP_WINSOCK_SEND_MAIL sys_winsock%TCVFP_Winsock_Send_MailNTT T %CfT  T " sys_mailedit(% =B-T T TTTT  U SYS_WINSOCKSYS_MAIL_FUNCIONES LOSENDMAILLC_SUBTHISPARENTCF_VE_FCE_SUBJECT CFG_VALORLC_MSG CF_VE_FCE_MSGSUBJECT MESSAGEHTMLMESSAGE SYS_MAILEDITXRESTHISFORMOCFG2LINEASP_VE_FCE_SUBJECTVALOR P_VE_FCE_MSGREFRESHClick01RbaA"qAba2&)DoCreate = .T. Name = "hlp_texto" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.Name = "Grid1" Text1.Name = "Text1" btn_buscar.Name = "btn_buscar" @"''%S Uo%GTa%Tabmmailctas.usa_gmail _T- BCUP_VERSION_ACTUALTHISENABLED CONTROLSOURCECUTHISPARENTACTUALIZAR_GMAILCUTHISPARENTACTUALIZAR_GMAILInit0Combo.InteractiveChangeCombo.ProgrammaticChange1AQA21211 %J )'"f%uUTUTHISPARENTBTPROBARENABLEDpropagar_enabled_otros011"N)")#%0UTUTHISENABLEDP_VERSION_ACTUAL T Ta TCTOKEN5sys_mail_gmail%> C C UXTOKENXOKXMSG XCLIENTID XCLIENTSECRET XFAILUREINFOXACCESSTOKENRESPONSESYS_M OBTENER_TOKENSYS_MAIL_GMAIL ABMMAILCTASTOKENMENSAJETHISFORMACTUALIZAR_GMAILInit0Clickq1Q2!QA12N)"%zU<%TC{/ENTER}C C  BCUXVALcfg_valor_assign01qR1w)"_{%mU#% B-UP_VERSION_ACTUALactualizar_gmail01QqA=)NPROCEDURE Init parameters xControlSource, xTitulo =dodefault() IF TYPE("xTitulo")#"C" THEN xTitulo=thisform.Caption endif IF TYPE("xControlSource")#"C" THEN xControlSource=thisform.edit1.ColorSource endif thisform.edit1.ControlSource = xControlSource thisform.valor_original= EVALUATE(xControlSource) ENDPROC Height = 366 Width = 623 DoCreate = .T. Caption = "Edicin de comentarios" valor_original = .F. Name = "memo_edit" Command1.Top = 336 Command1.Left = 228 Command1.Name = "Command1" Command2.Top = 336 Command2.Left = 312 Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 20 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" ,"e%M%pU8T T T T-5TC% jB- C C C %.rpt  C  C  C CJ-( G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS\+TVersin Crystal: C -T Formulario: C]C /TArchivo Reporte: C -TLog Ejecucin: C C.%CDesea editar el reporte?U.| ShellExecute SHELL32.DLL0T CopenCCU XTEXTTHISFORM CRVERSIONARCHIVOREPORTE LOG_EJECUCIONMENSAJE MENSAJE_SINO SHELLEXECUTESHELL32DLLXERRORClick0 RightClicks1rqAA3qB14+);"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )""%]uoUG((descrUDESCRPROVINCGotFocus01!11)"ii% U"CFontBold-Column.CFontName Courie NewColumn$CFontSize Column"CFontBoldaHeader%C AlignmentHeaderUTHISSETALLInit01!A!Q3)i"]^%XmgU UTHISFORMRELEASEClick011!)"0%6 {Uf%GTa%Tabmmailctas.usa_gmail _T-UP_VERSION_ACTUALTHISENABLED CONTROLSOURCE CUTHISFORMACTUALIZAR_GMAIL CUTHISFORMACTUALIZAR_GMAILInit0InteractiveChangeProgrammaticChange1AQA321  )p"WW%U|T T T T T UVNEWVALTHISENABLEDVAR1TEXT8TEXT9VAR2enabled_assign01q"2)W"%zU:%Cmarcas *Qmarcas CUMARCAS Text8.Init01!A1P)[Width = 386 Height = 39 BackStyle = 0 BorderWidth = 0 nombre = '' codigo_si_o_si = .F. tabla_codigo = '' tabla_desc = '' tabla_ayuda = '' tabla_tabla = '' tabla_idxcod = '' mensaje_error = 'Error !!!' vacio = 0 filtro = dato = dato_format = dato_mask = dato_maxlength = 0 keyf1 = proc_ext = listados dato_tabla = valor = 0 inicializado = .F. texto_filtro_mostrar = .F. texto_filtro_descripcion = .T. texto_filtro_codigo = ('TRANSFORM(this.text8.Value)') texto_filtro_cod_desc = ('"["+TRANSFORM(this.text8.Value)+"] " + this.text9.Value') texto_filtro_caption = ('Alltrim(this.label2.caption)+": "') texto_filtro_empty = ('Empty(this.text8.value)') texto_caption = .F. auto_completar = .T. solo_los_activos = .T. param_reporte = .T. par_caption = .F. par_desde = .F. par_hasta = .F. primer_when = .F. disabledforecolor = (rgb(0,0,0)) enabledforecolor = (rgb(0,0,0)) dato_invalido = .F. tabla_prefiltrar = .F. obj_filtro = .F. tabla_obj_filtro_form = .F. mostrar_label = .T. hlp = .T. readonly = .F. enabled_text9 = .F. valor_descripcion = .F. Name = "cod_desc" "%S)UBTC G+(sys_mail_funcionesCMaila3sys_procesandoEnviando por mail... TTV TaT A01-00000000T EMPRESA EJEMPLO SA/    T XT  PRUEBA - C C3 $NOMBRE CLIENTETTTT C C C C C C C C*dQC C %ESTE ES UN MAIL DE PRUEBA SIN VALIDEZTT T!T"T#$ %& T&H ']ST%C& #( ')T%C& )*sys_procesando%%5C(Mail enviado a la direccion de control!!+ ;7CError al enviar el mail!!!C C &+U,XLOCALSYS_MAIL_FUNCIONESSYS_MOSTRAR_SCREEN SP_MENSAJESYS_PROCESANDOXTIPOXCAUSA XELECTRONICO XCOMPROBANTEXNOMBRELC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTTHISPARENTCF_VE_FCE_CONTROL CFG_VALORMAIL_MACRO_TEXTOSCF_VE_FCE_SUBJECTCF_VE_FCE_REPLYTOCF_VE_FCE_FROMCF_VE_FCE_FROMNAME CF_VE_FCE_MSGCF_VE_FCE_AUTHLOGINCF_VE_FCE_AUTHPASSCF_VE_FCE_SEND_HOSTCF_VE_FCE_SEND_PORTXSSL CFG_COMBO6XOKXMSGP_VE_FCE_METODOSYS_MAILSYS_MAIL_OUTLOOK SP_OCULTARMENSAJEBCUTHISCLICKClick0 RightClick1q1!3rbbaa aabaa121AQqA21':)" %=mUC UTHISPARENTTECLAbTT $Cfontsizecolumn"Cfontsizetext/Cfontname Courier Newcolumn-Cfontname Courier Newtext'C selectonentry-column&C mousepointertext Cmargintext"CreadonlyacolumnUTHISRECORDSOURCETYPEPARENTREGISTROREFRESHSETALL UTHISPARENT AJUSTAR_ANCHODblClick0InitcResize112AB!qa#52)D);"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)";"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )"B"))%nLU BUTHIS PROPIEDAD-Q PROPIEDADESsys_propiedades.prg C%C VB- T TaC C %CT - Q PROPIEDADESsys_propiedades.prg%C   L%3CgCg     .T  C C C% CUOPROSYS_PROPIEDADESPRGTHISELIMINAR_HIJOSTYPEOXHIJOSXSEPNIT PROPIEDAD_PREPROPIEDAD_ASIGNAR PROPIEDADOPRO2CONT_HIJOS_CREARHIJOS HIJOS_CARGARTIPOVALORCODIGOCOUNTNOMBREPROPIEDAD_PROPIO_CREARPROPIEDAD_HIJOS PROPIEDAD_POSCONTENEDOR_PRINCIPALREDIMENSIONAR_INTERNOS0-Q PROPIEDADESsys_propiedades.prgUOPROSYS_PROPIEDADESPRG0-Q PROPIEDADESsys_propiedades.prgUOPROSYS_PROPIEDADESPRG0-Q PROPIEDADESsys_propiedades.prgUOPROSYS_PROPIEDADESPRG<Q PROPIEDADESsys_propiedades.prgQBOOLEANHM C  tB- C 2CU OPROSYS_PROPIEDADESPRGXHIJOSTYPEOTHISCONTAINER_PRINCIALACCIONPROPIEDAD_PROPIO_CREAR:<Q PROPIEDADESsys_propiedades.prgQBOOLEAN.QPROPIEDADES_CONTAINER Clases.vcxQSTRING T- TC H  G~( clases.vcx-Cpropiedades_label  rG~( clases.vcx0Cpropiedades_checkbox T- EG~( clases.vcxH6 1Cpropiedades_lis_combo 268Cpropiedades_lis_combo_NoName  T- G~( clases.vcx-Cpropiedades_texto T- G~( clases.vcx4Cpropiedades_cuadro_texto T- sG~( clases.vcx.Cpropiedades_numero T- 2B-TC T T  T  TaT C C UOPROSYS_PROPIEDADESPRGXHIJOSOCNCLASESVCXXNOMBRE XNOSUSPENDER HIJOS_CARGARTHISCONT_OBTENER_NOMBRETIPO ADDOBJECTETIQUETACONT_OBTENER_OBJETO BORDERWIDTHTOPCONT_HIJOS_TOP_OFFSETCONT_HIJOS_TOP_SEPARACIONLEFTCONT_HIJOS_LEFT_OFFSETCONT_HIJOS_LEFT_SEPARACIONVISIBLEHEIGHT CONTENEDORESADDNAME REDIMENSIONARL-Q PROPIEDADESsys_propiedades.prgBcnC\_UOPROSYS_PROPIEDADESPRGRAMA-Q PROPIEDADESsys_propiedades.prg.QPROPIEDADES_CONTAINER clases.vcxTThis.CoCN=&xNombre BU OPROSYS_PROPIEDADESPRGOCNCLASESVCXXNOMBRETHISCONT_OBTENER_NOMBREg2QPROPIEDADES_CONTAINER Clases.vcx% ST   T T T T %T TTCD% OTT CUOCNCLASESVCXXQUITARXTOPXHEIGHTXWIDTHXLEFTTHIS CONTENEDORESCOUNTCONT_HIJOS_LEFT_OFFSETCONT_HIJOS_LEFT_SEPARACIONTOPCONT_PROPIO_TOP_OFFSETHEIGHTCONT_HIJOS_TOP_OFFSETCONT_HIJOS_TOP_SEPARACIONLEFTWIDTHREDIMENCIONAR_BLOQUEADOREDIMENSIONADO1%C*CUTYPEOTHISPADRE REDIMENSIONAR CT-UTHISELIMINAR_HIJOSPADRER%CK7 CCUTYPEOTHIS CONTENEDORESOCNDISPOSECLEAR< C5 CUOCONTHISPROPIEDAD_VALOR_ASIGNAR CONTENEDORESPROPIEDAD_VALORES_ASIGNAR'T CUOPROTHIS PROPIEDADPROPIEDAD_VALORES_ASIGNARx2QPROPIEDADES_CONTAINER Clases.vcx T T T% Z T TC DT -6TCC 333333? 6DVC   CUOCNCLASESVCXXQUITAR XDATOS_MEDIA XDATOS_MAX XLABEL_ANCHOTHIS CONTENEDORESCOUNTREDIMENSIONAR_INTERNOS LABEL_ANCHOREACOMODAR_DATOSREDIMENSIONAR_INTERNO REDIMENSIONAR'T CU XDATO_LEFTTHIS DATOS_MINIMOREDIMENSIONAR_INTERNOS UTHISDISPOSEJQ PROPIEDADESsys_propiedades.prgQPROPIEDADES_CONTAINER%lTT5TC ContenedoresSys_Propiedades.prgT   U OPROSYS_PROPIEDADESPRGOCNTHIS OCULTAR_BORDE BORDERWIDTHPADRE CONTENEDORES PROPIEDADRESIZEpropiedad_access0propiedad_assignX propiedad_pre propiedad_pospropiedad_hijos9propiedad_asignarpropiedad_propio_crearcont_obtener_nombre^ cont_obtener_objeto redimensionar redimensionadoGdisposeeliminar_hijospropiedad_valores_asignarppropiedades_leerredimensionar_internoscreacomodar_datosDestroyInit)13QqACIAAArAA!A2222qaQQA3QaAbAaAaAaAaABaAqAQ1222!1qAqQB1AA3aAA23aAAA2qAA2q2!AAQAqAaAAAB3q32!AQ1e!$Z:#~=%@'8\C1P`c:i} jB,Y9))desde hasta valor_desde valor_hasta filtro texto_filtro_mostrar texto_filtro_descripcion Especifica si se muestra tanto el codigo como la descripcion texto_filtro_separa Texto a usar para separar el DESDE HASTA. Usar espacios antes y despues. param_reporte par_desde par_hasta par_caption tabla_obj_filtro_mostrar mostrar_label2 valor_descripcion *valor_desde_assign *valor_hasta_assign *antes_de_salir *texto_filtro Evalua los objetos internos y obtiene el texto del filtro *par_desde_access *par_hasta_access *par_caption_access *par_desde_assign *par_hasta_assign *enabled_assign *valor_descripcion_access *updated Solo si es especficamente llamado de text2.lostfocus !!! JWidth = 273 Height = 40 BackStyle = 0 BorderWidth = 0 filtro = texto_filtro_mostrar = .F. texto_filtro_descripcion = .F. texto_filtro_separa = Hasta: param_reporte = .T. par_desde = .F. par_hasta = .F. par_caption = .F. tabla_obj_filtro_mostrar = .F. mostrar_label2 = .F. valor_descripcion = ("") Name = "lis" PROCEDURE Click local xvariable xvariable=this.Parent.campo.Value if used("tmp_check") select tmp_check use endif local xcliente xcliente = this.Parent.cliente release xarr_items if empty(xcliente) xfiltro=".f." else xfiltro="cod_cli=xcliente" endif select ; cod as codigo, descr, .f. as tilde ; from sectores ; where ; &xfiltro ; into cursor tmp_check readwrite index on codigo tag codigo index on descr tag descr dimension xarr_items(200) maxarr_items=0 this.Parent.parse(xvariable, @xarr_items, @maxarr_items) for z=1 to maxarr_items select tmp_check locate for codigo=xarr_items(z) if found() replace tilde with .t. in tmp_check endif endfor DO FORM sectores.scx xvariable="" select tmp_check set order to CODIGO && CODIGO scan for tilde xvariable=xvariable+iif(empty(xvariable),"",",")+alltrim(str(tmp_check.codigo)) endscan select tmp_check use this.Parent.campo.Value=xvariable this.Parent.Refresh ENDPROC PROCEDURE propiedad_actualizar LOCAL oPro as propiedades OF sys_propiedades.prg oPro=this.propiedad IF NOT typeo(oPro) THEN THIS.txNombre.Value = "" THIS.ogTipo.Value = 0 else THIS.txNombre.Value = oPro.Nombre THIS.ogTipo.Value = oPro.Tipo this.ckEtiqueta.Value = oPro.Etiqueta this.ckImprimible.Value = oPro.Imprimir this.ckObligatoria.Value = oPro.Obliga ENDIF ENDPROC PROCEDURE propiedad_grabar LOCAL oPro AS propiedades OF sys_propiedades.prg oPro=THIS.propiedad IF NOT typeo(oPro) THEN THIS.txNombre.VALUE = "" THIS.ogTipo.VALUE = 0 ELSE oPro.Nombre = THIS.txNombre.VALUE oPro.Tipo = THIS.ogTipo.VALUE oPro.Etiqueta = this.ckEtiqueta.Value oPro.Obliga = this.ckObligatoria.Value oPro.impRIMIR = this.ckImprimible.Value oPro.Tabla_guardar () this.propiedad_guardada () ENDIF ENDPROC PROCEDURE propiedad_access *To do: Modify this routine for the Access method RETURN THIS.propiedad ENDPROC PROCEDURE propiedad_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.propiedad = m.vNewVal this.propiedad_nueva=.f. this.propiedad_actualizar () ENDPROC PROCEDURE setear_nuevo this.propiedad_nueva=.t. this.txnombre.SetFocus () ENDPROC "l`%Ci QU N'%   JT No,N,S,S qT No,N,S,S%T No,N,S,SU GESFORMEMPRESASPUEDE_CONSOLIDAR EMPRESA_DOSPRESENTETHIS ROWSOURCEPARENT NO_PARCIALInit01qAARA3)"i%OUT%CHFQC  TC  (F(%CC Codigo> a9  TFG((CODIGO~ =TCC,6CCC.codigoZFQT U XVARIABLETHISPARENTDATOSVALUE TMP_ALIAS TABLA_OBTENER XARR_DATOS MAXARR_DATOS PARSE_DATOSZTILDEINFORMULARIO_SELECCIONFORMULARIO_TITULOFORMULARIO_CODIGOFORMULARIO_DESCRIPCIONCODIGOREFRESHClick01qarAAAAAAb2),"{%U`$Tprocesando.gifTok.pngTmal.pngUTHISESTADOSiniciar_estados01A1v)"%}U!Ta UTHISFORMTEXT1ENABLEDSETFOCUS modificar012J)AutoSize = .F. WordWrap = .T. Alignment = 2 Caption = "Agregar cod_desc o cualquier clase que maneje la propiedad VALOR para el dato. Si no es COD_DESC asignar el nombre o la clase en el parmetro" Height = 30 Left = 12 Top = 0 Visible = .F. Width = 432 Name = "Label1" Z"AA0%z$Ut T+amTCC,\TC%TCTCg%C!(%C!%)TT%@! iTCC,\UXVARXARRXMAXARRZXNUMXXXYYY XES_UNO_SOLO]%Cusuarios 6Q \usuariosT UP_SYSTEMTHISUSR CONTROLSOURCEDATOREFRESHparse_usuarios0Init12AAABAA11ABAA3Ab1B],)ATop = 24 Left = 694 Width = 78 Height = 31 TabIndex = 1 cfg_parametro = *_send_SSL cfg_grupo = 1 Name = "Cfg_combo6" Combo.BoundColumn = 2 Combo.ColumnCount = 2 Combo.ColumnWidths = "50,0" Combo.RowSourceType = 1 Combo.RowSource = "NO,0,SI,1" Combo.Height = 26 Combo.ColumnLines = .F. Combo.Left = 30 Combo.NumberOfElements = 2 Combo.Top = 2 Combo.Width = 44 Combo.Name = "Combo" Label12.Caption = "SSL" Label12.Left = 4 Label12.Top = 7 Label12.Name = "Label12" 8Top = 74 Left = 454 Width = 321 Height = 29 TabIndex = 10 cfg_parametro = *_authpass cfg_grupo = 1 Name = "cf_ve_fce_authpass" Label12.Caption = "Contrasea" Label12.Name = "Label12" texto.Height = 23 texto.Left = 148 texto.Top = 2 texto.Width = 166 texto.PasswordChar = "*" texto.Name = "texto" &Top = 50 Left = 454 Width = 321 Height = 29 TabIndex = 9 cfg_parametro = *_authlogin cfg_grupo = 1 Name = "cf_ve_fce_authlogin" Label12.Caption = "Usuario de correo" Label12.Name = "Label12" texto.Height = 23 texto.Left = 148 texto.Top = 2 texto.Width = 166 texto.Name = "texto" &Top = 2 Left = 454 Width = 321 Height = 29 TabIndex = 7 cfg_parametro = *_send_host cfg_grupo = 1 Name = "cf_ve_fce_send_host" Label12.Caption = "Servidor de correo" Label12.Name = "Label12" texto.Height = 23 texto.Left = 148 texto.Top = 2 texto.Width = 166 texto.Name = "texto" %Top = 47 Left = 6 Width = 360 Height = 29 TabIndex = 4 cfg_parametro = *_replyto cfg_grupo = 1 Name = "cf_ve_fce_replyto" Label12.Caption = "Direccin de respuesta" Label12.Name = "Label12" texto.Height = 23 texto.Left = 189 texto.Top = 2 texto.Width = 166 texto.Name = "texto" PROCEDURE Timer * Aborta la operacin de impresin this.Enabled=.f. thisform.conteo = thisform.conteo - 1 thisform.contador.Caption=alltrim(str(thisform.conteo)) thisform.contador.Refresh if thisform.conteo<0 if thisform.wizard_buttons1.anterior.Enabled thisform.wizard_buttons1.anterior.Click else thisform.wizard_buttons1.cancelar.Click endif else this.Enabled=.t. endif ENDPROC Alignment = 0 ColumnCount = 3 ColumnWidths = "150,50,50" RowSourceType = 6 RowSource = "monedas_filtro.descr" Value = 0 Height = 24 Style = 2 Width = 250 BoundTo = .T. tabla = .F. alias = .F. valor = 0 variable =  6m.xxx Name = "hlp_moneda_filtro" h"OO%%UEbienes2FG((codins EFUMOSTRAR_ARTICULOBIENES2 TMP_BIE_BUSCOD_INSBIENESCODINSUClick0Init1rr34 )On"UU>%$U ;*sys_procesando Consultando EHa Tfecha>=date()-30*3 Tfecha>=date()-30*6 T.t. 2&T!cerrado and venc>=date()'%C CC `T and $ve_procstmp_cur)sys_procesando ProcesandoSFCtmp_cur&#) sys_procesandoQ F UXTIPO SP_MENSAJESYS_PROCESANDOXFILTROTHIS FILTRO_SELECTPD_PRESUP_AYUDAVE_PROCSTMPSP_OCULTAR_DEFINITIVAMENTETMP_CURTHISFORMREFRESHGRID1SETFOCUS;4 CCU XTITULOXTABLA XEXPRESIONXORDENXTITULO_EXPRESIONXIDXCLAVETHISEJECUTARejecutar0Init1qAr111bArAGr1Qr32} ?)U|"ccG% U TCG((#6KT insert into C ( ) values (+1) &xsql UORDENTHISFORMCLAVEXSQLTABLA MODIFICARClick01qQr1)c"}%g~vU UTHISFORMGRID1SETFOCUSClick01A22)"%tUBUTUTHISCAPTIONTITULOcomandos0Init?1A2125O)"*%1+Ut T+amTCC,\TC%TCTCg%C!(%C!%)TT%@! iTCC,\UXVARXARRXMAXARRZXNUMXXXYYY XES_UNO_SOLO TT~SELECT &xCodigo AS Codigo, &xDescr AS DESCR, .F. AS Tilde FROM (THIS.tabla_alias) INTO CURSOR (THIS.tmp_alias) READWRITE & & UXCODIGOXDESCRTHIS TABLA_CODIGO TABLA_DESCRCODIGODESCR%C'T%CUTC%C QT UTHIS TABLA_TABLA TABLA_ALIASDATOS CONTROLSOURCEDATOREFRESH parse_datos0 tabla_obtenerInit12AAABAA11ABAA33A1AAaARAb17>,%Y8)w"^^%UTa CUTHISFORM KEYPREVIEW+T-T- CUTHISPARENTFOCO_EN_EL_GRIDTHISFORM KEYPREVIEW LostFocus0GotFocush132;Z)^/PROCEDURE Click PRIVATE xValSHIFT xValSHIFT=0 #DEFINE VK_lSHIFT 0x10 && Relocate to a header file #DEFINE VK_lCONTROL 0x11 && Relocate to a header file #DEFINE VK_lAlt 0x12 && Relocate to a header file DECLARE INTEGER GetKeyState IN WIN32API INTEGER && Relocate to where WinAPI calls are declared xValSHIFT=GetKeyState(VK_lSHIFT) IF xValSHIFT#0 THEN THISFORM.timer1.ENABLED = NOT THISFORM.timer1.ENABLED RETURN ENDIF THISFORM.conteo = MIN(THISFORM.conteo +61,121) THIS.FORECOLOR = RGB(255,0,0) THISFORM.timer1.TIMER ENDPROC w"^^%U+T-T- CUTHISPARENTFOCO_EN_EL_GRIDTHISFORM KEYPREVIEWTa CUTHISFORM KEYPREVIEWGotFocus0 LostFocus132\|)^PROCEDURE Init this.Left=thisform.Width-45 this.TabIndex=254 if !p_dev this.Enabled=.f. this.Visible=.f. endif ENDPROC PROCEDURE DblClick try mensaje( alltrim(str(thisform.width))+" x "+alltrim(str(thisform.height)) ) catch endtry ENDPROC v"]]% UT#%Ctmp_usuarios_checkKFQ;ousuarios-Qtmp_usuarios_check& &    T C    ( 0F-C %C4,>asys_usuarios.scx TFG((CODIGO~-TCC,6CCZFQT U XVARIABLETHISPARENTUSRVALUETMP_USUARIOS_CHECKCODIGODESCRTILDEUSUARIOS XARR_USUARIOSMAXARR_USUARIOSPARSE_USUARIOSZIN SYS_USUARIOSSCXREFRESHClick01qa2qAAq1AArArAb2)]">%fU0%C tmp_bie_busC tmp_bie_bus+ 7 .TCC+C C tmp_bie_busO6% G( G(% # #) UXREGTHISVALUE TMP_BIE_BUSCANTIDADTHISFORMREFRESHInteractiveChange01qa1AAQAA2Q)"%U ?UTa CUTHISFORM KEYPREVIEW+T-T- CUTHISPARENTFOCO_EN_EL_GRIDTHISFORM KEYPREVIEWT- CUTHISFORM KEYPREVIEW LostFocus0GotFocushSetFocus1332;Z )AutoSize = .T. ButtonCount = 4 BackStyle = 0 BorderStyle = 0 Value = 1 Height = 27 Left = 0 Top = 12 Width = 418 Name = "Optiongroup1" Option1.BackStyle = 0 Option1.Caption = "Pendientes" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 81 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Ultimos 3 meses" Option2.Height = 17 Option2.Left = 102 Option2.Style = 0 Option2.Top = 5 Option2.Width = 113 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.BackStyle = 0 Option3.Caption = "Ultimos 6 meses" Option3.Height = 17 Option3.Left = 231 Option3.Style = 0 Option3.Top = 5 Option3.Width = 113 Option3.AutoSize = .T. Option3.Name = "Option3" Option4.BackStyle = 0 Option4.Caption = "Todos" Option4.Height = 17 Option4.Left = 360 Option4.Style = 0 Option4.Top = 5 Option4.Width = 53 Option4.AutoSize = .T. Option4.Name = "Option4" "(%q,UUl%C m.vNewValbN8T RTCUVNEWVALTHISESTADOCAMBIAR_ESTADO%1TB%fTT-%CTCTaH~) Cc:\sistema\2000\bmp\0&Tc:\sistema\2000\bmp\) Cf:\sistema\2000\bmp\0f&Tf:\sistema\2000\bmp\ 2~T TT-UXESTADOTHISESTADOPICTUREVISIBLEESTADOSXIMAGEN`CD%>J(T- CUTHISESTADOSCANTIDAD_ESTADOSVISIBLEINICIAR_ESTADOSiniciar_estados0 estado_assign;cambiar_estadoInit14q!A13qaAA1AQaaAAA3bA1A *Z%u"/)dato_format = z dato_maxlength = 4 mensaje_error = "Lnea invlida !!!" tabla_ayuda = buslin tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = lineas dato_mask = 9999 Name = "cod_desc_lin" Label2.Caption = "Lnea" Label2.Name = "Label2" Text8.Format = "z" Text8.InputMask = "9999" Text8.Left = 80 Text8.MaxLength = 4 Text8.Top = 4 Text8.Name = "Text8" Text9.Name = "Text9" w"^^%U+T-T- CUTHISPARENTFOCO_EN_EL_GRIDTHISFORM KEYPREVIEWTa CUTHISFORM KEYPREVIEWGotFocus0 LostFocus132\|)^"%DsSU%P=C   =C  S F C tmp_bie_cur&#)sys_procesandoT  CBUP_MUCHOS_ARTICULOS HLP_BIENESTHISFORMFAST FILTRO_FIJOMARCAMODELOCOD_PROTEXTOINCLUYESOLO_DESCRIPCIONVALUE HLP_BIENES2 TMP_BIE_BUSSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOTHISPARENTTEXT1REFRESHGRID1SETFOCUSClick011ArqQb2B5))w"^^%UTa CUTHISFORM KEYPREVIEW+T-T- CUTHISPARENTFOCO_EN_EL_GRIDTHISFORM KEYPREVIEW LostFocus0GotFocush132;Z)^-PROCEDURE iniciar_estados ENDPROC PROCEDURE estado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF TYPE("m.vNewVal")="N" THEN THIS.estado = m.vNewVal ELSE THIS.estado = 0 ENDIF This.Cambiar_Estado(this.estado) ENDPROC PROCEDURE cambiar_estado LPARAMETERS xEstado IF xEstado#THIS.estado THEN THIS.estado=xEstado RETURN ENDIF IF xEstado=0 THEN THIS.PICTURE ="" this.Visible=.f. ENDIF IF xEstado<= ALEN(THIS.estados,1) THEN xImagen=THIS.estados(xEstado) this.Visible=.t. WITH THIS DO CASE CASE FILE("c:\sistema\2000\bmp\"+xImagen) .PICTURE="c:\sistema\2000\bmp\"+xImagen CASE FILE("f:\sistema\2000\bmp\"+xImagen) .PICTURE="f:\sistema\2000\bmp\"+xImagen OTHERWISE .PICTURE=xImagen ENDCASE ENDWITH ELSE this.Picture ="" this.Visible=.f. ENDIF ENDPROC PROCEDURE Init DIMENSION this.estados (max(this.cantidad_estados,1) ) IF this.cantidad_estados = 0 THEN STORE "" TO this.estados ENDIF this.Visible=.f. =this.iniciar_estados () ENDPROC 2Top = 24 Left = 6 Width = 360 Height = 29 TabIndex = 3 cfg_parametro = *_from cfg_grupo = 1 Name = "cf_ve_fce_from" Label12.Caption = "Direccion de envo" Label12.Name = "Label12" texto.Height = 23 texto.Left = 189 texto.MaxLength = 200 texto.Top = 2 texto.Width = 166 texto.Name = "texto" PROCEDURE actualizar_gmail IF NOT (p_Version_actual>25) THEN RETURN .F. ENDIF *!* LOCAL xGMAIL *!* xGMAIL=(THISFORM.ckgmail.VALUE#0) *!* This.btAutorizar.ENABLED =xGMAIL *!* This.btAutorizar.CAPTION=IIF(EMPTY(abmmailctas.token),"Autorizar","Validar") *!* *!* This.text6.ENABLED = !xGMAIL *!* *!* This.text7.ENABLED = !xGMAIL *!* *!* This.text8.ENABLED = !xGMAIL *!* *!* THISFORM.text9.ENABLED = !xGMAIL *!* THISFORM.si_no1.ENABLED = !xGMAIL ENDPROC "C%Or ^UTC(XTC(XTC(XTTCXT S  U THISPARENTTEXT2VALUETEXT3TEXT4 COD_DESC_MAR1VALOR COD_DESC_PRO1 FILTRO_STOCK TMP_BIE_BUSREFRESHClick01aa3)"%R U9Tthisform.text1.value=&xdesc UXDESCTHISFORMCLAVE_BUSQUEDATT)repl &xdesc with thisform.text1.value T-UXDESCTHISFORMCLAVE_BUSQUEDATEXT1ENABLED UTHISFORMGRID1SETFOCUSGotFocus0ValidClick1q3q32_{ #)"%U/Tgestart UCHYPERLINKTARGETXGESTARTRun01qqA1^) "Ҧ%U1T T UVNEWVALTHISENABLEDCOMBOenabled_assign01q"Q1)PROCEDURE f1 local xsalir, xFiltro, oEx as Exception xsalir = .f. IF TYPE("this.obj_filtro")="O" THEN xFiltro=this.obj_filtro ELSE xfiltro = this.filtro ENDIF this.es_f1=.t. if TYPE("xFiltro")#"O" and EMPTY(xFiltro) THEN try do (this.tabla_ayuda) in (this.proc_ext) with this.text8.value, xcod_cli,,!this.solo_los_activos catch to oEx try do (this.tabla_ayuda) in (this.proc_ext) with this.text8.value, xcod_cli catch to oEx xsalir = .t. if p_dev mensaje(oex.message+" - "+oex.details) endif endtry endtry else try do (this.tabla_ayuda) in (this.proc_ext) with this.text8.value, xcod_cli, xFiltro ,!this.solo_los_activos catch to oEx try do (this.tabla_ayuda) in (this.proc_ext) with this.text8.value, xcod_cli,xFiltro catch to oEx xsalir = .t. if p_dev mensaje(oex.message+" - "+oex.details) endif endtry endtry endif this.es_f1=.f. sele (this.tabla_tabla) if xsalir mensaje("No se puede obtener ayuda !!!") aa=THIS.vacio IF TYPE('aa')='C' aa=EVALUATE(THIS.vacio) ELSE aa=THIS.vacio ENDIF return endif local aa aa=this.tabla_codigo aa=&aa this.text8.value = aa aa=this.tabla_desc aa=&aa this.updated sele (this.tabla_tabla) return aa ENDPROC tabla cursor desc_cero codigo_cero alias Specifies the alias used for each table or view associated with a Cursor object. select_area agregar_cero tabla_codigo tabla_descr texto_filtro_caption texto_filtro_cod_desc texto_filtro_codigo texto_filtro_empty combo_text combo_value agregar_cero1 codigo_cero1 desc_cero1 valor value Specifies the current state of a control. readonly Specifies if the user can edit a control, or specifies if a table or view associated with a Cursor object allows updates. *combo_text_access *combo_value_access *agregar_manuales *valor_access *valor_assign *value_access *value_assign *readonly_access *readonly_assign PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.direccion.Enabled=m.vNewVal THIS.Enabled = m.vNewVal ENDPROC PROCEDURE readonly_access *To do: Modify this routine for the Access method RETURN this.direccion.ReadOnly ENDPROC PROCEDURE readonly_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.direccion.ReadOnly = m.vNewVal ENDPROC r"YY%U CTC6 T(T&TCC f$TC TCD#Tmoneda[CCZ,2]C (l'T C'T CT  this.monedaT T %  T UXDESDEXIDXXARREGLOXMAXTHISNO_INCLUYE_PESOSZMM_MAXARREGLO_MONSYM MM_MONSYM ADDPROPERTYMONEDA ROWSOURCENUMBEROFELEMENTS DISPLAYCOUNTVALUEREFRESHInit012bBB"2qqAA1)Y'"ғ%UX%C#Ba QCAo invlido !!!B-UTHISVALUEMENSAJEClick01qqA1v)"^%qUT- UTHISFORM RESULTADORELEASEClick012;)PROCEDURE Click local xvariable xvariable=this.Parent.Datos.Value if used(this.Parent.tmp_alias ) SELECT (this.Parent.tmp_alias ) use ENDIF =this.Parent.tabla_obtener() dimension xarr_datos(200) maxarr_datos=0 =this.parent.parse_datos(xvariable, @xarr_datos, @maxarr_datos) for z=1 to maxarr_datos SELECT (this.Parent.tmp_alias ) if SEEK(xarr_datos(z),this.Parent.tmp_alias, "Codigo") replace tilde with .t. in (this.Parent.tmp_alias) endif endfor DO FORM (this.Parent.Formulario_Seleccion) WITH this.parent.tmp_alias, this.Parent.Formulario_Titulo, this.Parent.Formulario_Codigo, this.Parent.Formulario_Descripcion xvariable="" select (this.Parent.tmp_alias) set order to CODIGO && CODIGO scan for tilde xvariable=xvariable+iif(empty(xvariable),"",",")+alltrim(str(EVALUATE(this.Parent.tmp_alias+".codigo"))) endscan select (this.Parent.tmp_alias) use this.Parent.Datos.Value=xvariable this.Parent.Refresh ENDPROC ?PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=1 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() store .f. to thisform.param_data set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC PROCEDURE RightClick LOCAL xText xText="Versin Crystal: " + Thisform.crversion + CHR(10) xText=xText + "Formulario: " + SYS(1271, thisform)+ CHR(10) xText=xText + "Archivo Reporte: " + Thisform.archivoreporte+ CHR(10) xText=xText + "Log Ejecucin: " + Thisform.log_ejecucion + CHR(10) =mensaje(xText) IF mensaje_sino("Desea editar el reporte?",2) THEN DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow xerror=ShellExecute( 0, "open", JUSTFNAME(Thisform.archivoreporte), "", JUSTPATH(Thisform.archivoreporte) , 1) ENDIF ENDPROC Width = 54.60 Height = 2.67 valor_desde_anterior = .F. valor_hasta_anterior = .F. desde = thisform.xdfec hasta = thisform.xhfec Name = "lis_fec" cmd_filtro.Name = "cmd_filtro" Label1.BackStyle = 0 Label1.Caption = "Fechas" Label1.Height = 1.13 Label1.Left = 2.80 Label1.Top = 0.67 Label1.Width = 8.60 Label1.Name = "Label1" Text1.FontName = "Courier New" Text1.Alignment = 3 Text1.Value = {} Text1.Height = 1.60 Text1.Left = 15.60 Text1.MaxLength = 10 Text1.Top = 0.40 Text1.Width = 16.80 Text1.Name = "Text1" Text2.FontName = "Courier New" Text2.Alignment = 3 Text2.Value = {^2099/12/31} Text2.Height = 1.60 Text2.Left = 36.40 Text2.MaxLength = 10 Text2.Top = 0.40 Text2.Width = 16.80 Text2.Name = "Text2" ,PROCEDURE Click local usuario =sys_m("usuario") IF !this.parent.user_switched oSecurity.Save_User endif usuario = -1 oSecurity.accesoc(@usuario,.t.) && Con foco en usuario if usuario#-1 this.Parent.text1.Value = alltrim(oSecurity.get_user(usuario)) this.Parent.text1.ForeColor= RGB(255,0,0) this.parent.user_switched=.t. do user_log with pub_index, 6, "", "", "Cambia a usuario: "+this.Parent.text1.Value , "clases.usuario" else * No pas la clave, no pasa nada do user_log with pub_index, 6, "", "", "Cambia a usuario: Clave rechazada, continua "+alltrim(oSecurity.get_user(pub_index)) , "clases.usuario" endif ENDPROC PROCEDURE Init this.parent.text1.ForeColor= RGB(0,0,0) this.parent.text1.value= alltrim(oSecurity.get_user(pub_index)) ENDPROC 2"f%UBT G+(Dey_FuncC UVNEWVALTHISENABLEDDEY_FUNCFRM_OPTENABLEDenabled_assign01q""A1);"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)"B"))%UK%C1 CTa D BUTHISPARENTVALIDARTHISFORMPROCESAR_ACEPTAR RESULTADOClick01aA2{))PROCEDURE ejecutar lparameters xtipo try do sp_mensaje ; in sys_procesando ; with "Consultando" CATCH ENDTRY local xfiltro do case case xtipo=2 * Ultimos 3 meses xfiltro="fecha>=date()-30*3" case xtipo=3 * Ultimos 6 meses xfiltro="fecha>=date()-30*6" case xtipo=4 * Todos xfiltro=".t." otherwise * Pendientes xfiltro="!cerrado and venc>=date()" endcase IF !EMPTY(this.filtro_select) AND VARTYPE(this.filtro_select)="C" xfiltro=xfiltro + " and "+ this.filtro_select endif *mensaje(xfiltro) do pd_presup_ayuda ; in ve_procs ; with "tmp_cur", xfiltro do sp_mensaje ; in sys_procesando ; with "Procesando" zap in tmp select tmp append from dbf("tmp_cur") go top do sp_ocultar_definitivamente ; in sys_procesando use in tmp_cur select tmp thisform.Refresh thisform.grid1.SetFocus ENDPROC PROCEDURE Init PARAMETERS xtitulo,xtabla,xexpresion,xorden,xtitulo_expresion,xid,xclave *!* xfiltro=IIF(!EMPTY(p_cc_vendedor), "epresup.vendedor=["+PADR(p_cc_vendedor,8)+"]",".t.") * Debera ser as pero no est bien hecha la clase HLP * =DODEFAULT(xtitulo,xtabla,xexpresion,xorden,xtitulo_expresion,xid,xclave) =DODEFAULT() this.ejecutar(1) ENDPROC "<%' UO%*Ta HT-UTHISVALUEPARENTCOMBO1ENABLEDTUTHISENABLEDTHISFORMOTROSValid0 Option3.Init1aAAA31q )f"MM/%U1T T UVNEWVALTHISENABLEDCOMBOT CUTHISENABLEDenabled_assign0Init1q"Q311)Ms"ZZ%s  n% UBCCUTHISAVALUESCOMBO LISTINDEXBCUTHISAVALUESCOMBO LISTINDEX>%CxCodbLCxDesbL CxPosbL J-(T-TB%C%F%Cthis.avalues(1,1)bLCthis.avalues(1,2)bL T !TC%C ZTTTCTUXCODXDESXPOSTHISAVALUESENABLEDCOMBONUMBEROFELEMENTSa%+C%ZCUTHIS AGREGAR_CEROAGREGAR_MANUALES CODIGO_CERO DESC_CERO AGREGAR_CERO1 CODIGO_CERO1 DESC_CERO1)T CUVNEWVALTHISMODODEFINIR_VALORES BUTHISENABLEDBT T T UVNEWVALTHISREADONLYENABLED_MANUALENABLEDTUTHISVALOR_ANTERIOR VALOR_DESDENTCthis.avalues(1,1)bLCthis.avalues(1,2)bL  tT ~T UVNEWVALTHISENABLED_MANUALCOMBOENABLEDUTUVNEWVALTHIS VALOR_DESDEUVNEWVAL  CTTC!(C%CTT !% T  % 'T CCZ,0UNITXVALTHISDEFINIR_VALORESCOMBO CONTROLSOURCEDESDEAVALUES LISTINDEX VALOR_DESDECOL_AUTOAJUSTAR COLUMNLINESCOL_MOSTRAR_CODIGO COLUMNWIDTHSWIDTHM%9 TC CUTHISCOMBO LISTINDEX VALOR_DESDEAVALUESANTES_DE_SALIR% C / B 5%Z T vTC%TC TC  BU XSECUNDARIOTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGOBUTHISTEXTOCAPTION BUTHIS COMBO_VALUE BUTHIS COMBO_TEXTcombo_text_access0combo_value_accesswagregar_manualesdefinir_valores modo_assignreadonly_accessreadonly_assignGotFocusenabled_assignantes_de_salirvalor_desde_assignvalor_hasta_assignInit LostFocus texto_filtrorpar_caption_access par_desde_access par_hasta_accessJ 133a1ABaAAaA12!A!A2q"23q"11412qQA!3A3q4qA2aQ1AAA"a1qAA2A4qA!A!!!A43217 )#1'=7)V<.uE0H8T:cX=^@ bR x xW . hW j l #)Z%"  %UV%C !Ba OCMes invlido !!!B-UTHISVALUEMENSAJEValid01qqA1r) W">>!% UU%C; CTa  N BUTHISPARENTVALIDARTHISFORMPROCESAR_ACEPTAR RESULTADORELEASEClick01aA2)>"%A{ aUA 0&CCCZ x CCZ :UMENSAJETHISFORMWIDTHHEIGHT^TT% WT-T-UTHISLEFTTHISFORMWIDTHTABINDEXP_DEVENABLEDVISIBLEDblClick0Init1aA2A2t)X"??%U*TTUTHISLEFTTHISFORMWIDTHTABINDEX$IUTHISFORM HELPCONTEXTIDInit0Click1q33@\~)?"R%pUCUTHISPARENTEJECUTARVALUEClick01a11)3PROCEDURE valor_assign LPARAMETERS vNewVal =DODEFAULT(vNewVal) this.text8.valid ENDPROC PROCEDURE Init *dodefault() *this.vacio=oBie.data_codigo_vacio ENDPROC PROCEDURE Text8.Valid IF LEN(THIS.VALUE)>15 THEN THIS.VALUE=LEFT(THIS.VALUE,15) ENDIF IF !THIS.PARENT.es_f1 SELE bienes SET ORDER TO codins IF bienes.cod_ins#THIS.VALUE SEEK THIS.VALUE ENDIF LOCAL xcodins xcodins=bienes.cod_ins IF This.Parent.Parent.parche_dbused THEN *** REVISAR_TEMPORAL IF NOT DBUSED("ges") OPEN DATABASE ges ENDIF SET DATABASE TO GES ELSE IF DBUSED("ges") OPEN DATABASE ges ENDIF ENDIF IF !USED('vatributos') SELE 0 ELSE SELE vatributos ENDIF USE vatributos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR IF bienes.atributos='S' THIS.PARENT.cod_desc_atr1.ENABLED=.T. THIS.PARENT.PARENT.tiene_atr = .T. ELSE THIS.PARENT.cod_desc_atr1.valor=SPACE(3) THIS.PARENT.cod_desc_atr1.ENABLED=.F. THIS.PARENT.PARENT.tiene_atr = .F. ENDIF IF !USED('vbultos') SELE 0 ELSE SELE vbultos ENDIF USE vbultos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR IF bienes.bultos='S' THIS.PARENT.cod_desc_bul1.ENABLED=.T. THIS.PARENT.PARENT.tiene_bul = .T. ELSE THIS.PARENT.cod_desc_bul1.valor=SPACE(3) THIS.PARENT.cod_desc_bul1.ENABLED=.F. THIS.PARENT.PARENT.tiene_bul = .F. ENDIF THIS.PARENT.PARENT.text1.VALUE = ALLTRIM(bienes.DESCR) ; +' '+ALLTRIM(THIS.PARENT.PARENT.cod_desc_bie1.cod_desc_atr1.text9.VALUE) ; +' '+ALLTRIM(THIS.PARENT.PARENT.cod_desc_bie1.cod_desc_bul1.text9.VALUE) THIS.PARENT.PARENT.valor_cod=THIS.VALUE IF TYPE("this.parent.parent.cod")="C" aaa=ALLTRIM(THIS.PARENT.PARENT.cod)+"='"+THIS.VALUE+"'" TRY &aaa CATCH * Caracteres invlidos, dejo como est ENDTRY ENDIF THIS.PARENT.PARENT.codigo_parcial = (THIS.PARENT.PARENT.tiene_atr AND EMPTY(THIS.PARENT.cod_desc_atr1.valor)) OR ; (THIS.PARENT.PARENT.tiene_bul AND EMPTY(THIS.PARENT.cod_desc_bul1.valor)) ENDIF RETURN DODEFAULT() ENDPROC  ?"& & V?%q o UT %\%Cges L ges G(GES %Cges ges%C vatributosF FTQ vatributos&  & T  UVNEWVALTHIS VALOR_ATR PARCHE_DBUSEDGES VATRIBUTOSXCODINS VALOR_CODCLAVECODIGODESCR COD_DESC_BIE1 COD_DESC_ATR1VALORT %\%Cges L ges G(GES %Cges ges%CvbultosF FTQvbultos&  & T  UVNEWVALTHIS VALOR_BUL PARCHE_DBUSEDGESVBULTOSXCODINS VALOR_CODCLAVECODIGODESCR COD_DESC_BIE1 COD_DESC_BUL1VALOR1T T UVNEWVALTHIS VALOR_COD COD_DESC_BIE1VALORIUTHIS COD_DESC_BIE1TEXT8VALID COD_DESC_ATR1 COD_DESC_BUL1 BUTHISCODIGO_PARCIALT UVNEWVALTHISCODIGO_PARCIALNTC=TCRTTUVNEWVALXVAL1XVAL2THIS VALOR_ATR VALOR_BULBUTHIS VALOR_ATR VALOR_BUL BUTHIS VALOR_CODBUTHIS COD_DESC_BIE1LABEL2CAPTIONT%Cxv1bCPTC mTT%Cxv2bCTC TT%Cxv3bC#TC CTT T  T  U XV1XV2XV3THIS COD_DESC_BIE1VACIO COD_DESC_BUL1 COD_DESC_ATR1 VALOR_CODTEXT8VALUE VALOR_BUL VALOR_ATRUUT UVNEWVALTHIS VALOR_CODaT T T T UVNEWVALTHIS COD_DESC_BIE1ENABLED COD_DESC_ATR1 COD_DESC_BUL1BUTHISTEXT1VALUEvalor_atr_assign0valor_bul_assignvalor_cod_assignvalidar_controlescodigo_parcial_accesscodigo_parcial_assignpar_hasta_assignpar_hasta_accessypar_desde_accesspar_caption_accessantes_de_salirInit9 LostFocusHpar_desde_assignWenabled_assignvalor_descripcion_accessC 1q"$bARAAqA3q"$bARAAqA2q"S31133q"3q#!2122!22Q1AbaAbaA4A3A3q!3qS"31k#/D3M8T:&Y=P_CwhEkG - nIR  q`, 7 bW b d g m)& _"FF.% UjT%CFT  cTUTHISPARENT RESULTADO CLICK_INICIOTHISFORMRELEASEClick011a11A2)Fb"IIsL% UjT%CFT  cTUTHISPARENT RESULTADOCLICK_FINALIZARTHISFORMRELEASEClick011a11A3)Ia"HH_% UjT%CFT  cTUTHISPARENT RESULTADOCLICK_CANCELARTHISFORMRELEASEClick011a11A4)HPROCEDURE Click LPARAMETERS xLocal xLocal=EVL(xLocal, 0) set procedure to sys_mail_funciones addi =sys_mostrar_Screen("Mail",.t.) DO sp_mensaje ; IN sys_procesando ; WITH "Enviando por mail..." LOCAL xTipo, xCausa, xElectronico, xComprobante, xNombre xTipo=1 xCausa="V" xElectronico=.t. xComprobante="A01-00000000" xNombre="EMPRESA EJEMPLO SA" LOCAL lc_to, lc_subj, lc_msg, lc_attach, lc_replyto, lc_from, lc_fromname, xauth_login, xauth_pass, xFCeHost, xFCEPort lc_to=this.parent.cf_ve_fce_control.cfg_valor lc_subj = "PRUEBA - "+Mail_Macro_Textos(this.parent.cf_ve_fce_subject.cfg_valor, xTipo, xCausa, xElectronico, xComprobante, xNombre,date(2099,12,31),"NOMBRE CLIENTE") **lc_attach = xarchpdf && +";"+xarchxls lc_replyto = this.parent.cf_ve_fce_replyto.cfg_valor lc_from = this.parent.cf_ve_fce_from.cfg_valor lc_fromname = this.parent.cf_ve_fce_fromname.cfg_valor lc_msg = Mail_Macro_Textos(this.parent.cf_ve_fce_msg.cfg_valor, xTipo, xCausa, xElectronico, xComprobante, xNombre) + CHR(13)+CHR(10)+ CHR(13)+CHR(10)+ CHR(13)+CHR(10) +REPLICATE("*",100)+CHR(13)+CHR(10)+"ESTE ES UN MAIL DE PRUEBA SIN VALIDEZ" xauth_login = this.parent.cf_ve_fce_authlogin.cfg_valor xauth_pass = this.parent.cf_ve_fce_authpass.cfg_valor xFCeHost = this.parent.cf_ve_fce_send_host.cfg_valor xFCEPort = this.parent.cf_ve_fce_send_port.cfg_valor xSSL = this.parent.cfg_combo6.cfg_valor * =sys_mostrar_screen("Suspendo?", .t.) LOCAL xok, xmsg xmsg="" **xok=sys_mail(@xmsg, lc_to, lc_subj, lc_msg, lc_attach, lc_replyto, lc_from, lc_fromname, xauth_login, xauth_pass, xFCeHost, xFCEPort) DO CASE CASE p_ve_fce_metodo = 1 xok=sys_mail(@xmsg, lc_to, lc_subj, lc_msg, lc_attach, lc_replyto, lc_from, lc_fromname, xauth_login, xauth_pass, xFCeHost, xFCEPort, 3, , , , , , , , , , , xSSL, xLocal) CASE p_ve_fce_metodo = 2 xok=sys_mail_outlook(@xmsg, lc_to, lc_subj, lc_msg, lc_attach, lc_replyto, 3) ENDCASE DO sp_ocultar IN sys_procesando IF xOK THEN =mensaje("Mail enviado a la direccion de control!!") ELSE =mensaje("Error al enviar el mail!!!"+CHR(13)+CHR(13)+xMSG) ENDIF ENDPROC PROCEDURE RightClick RETURN this.Click(1) ENDPROC " %2U^T TTT U VNEWVALTHISFORMULARIO_MODOTHISFORMWIZARD_BUTTONS11VISIBLEFORMULARIO_WIZARD BTACEPTARFORMULARIO_ACEPTAR BTCANCELARBUTHISFORMULARIO_MODOBUTHISFORMULARIO_MODOTTTT&T&TUTHISFORMWIZARD_BUTTONS11LEFT BTPOSICIONTOP BTACEPTAR BTCANCELAR BaU7Ta%0G(9UTHIS AUTOCENTER SET_ACFODAID ACTIVEFORM DATASESSIONIDT BUXWIZARD_RESULTADOTHISFORM RESULTADOG4TTT U XRESULTADOTHIS RESULTADO BORDERSTYLETHISFORMFORMULARIO_MODOBOTONES_ACOMODAR, % /BCHD%7      7     7     % U NKEYCODE NSHIFTALTCTRLTHISFORMFORMULARIO_WIZARDWIZARD_BUTTONS1ENABLE_FINALIZAR FINALIZARCLICKENABLE_SIGUIENTE SIGUIENTEENABLE_ANTERIORANTERIORformulario_modo_assign0formulario_aceptar_accessformulario_wizard_accessLbotones_acomodarvalidarLoadUnloadInit_KeyPress1q"bba233ba3q4!A33q832AqAsAsAC6"Iy P w$2 M%-4" D)^"EE% UgT%CFT  `TUTHISPARENT RESULTADOCLICK_ANTERIORTHISFORMRELEASEClick011a1A3)EjPROCEDURE Destroy this.control=.f. ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal this.Enabled=vNewVal this.control.enabled=vNewVal ENDPROC PROCEDURE cfg_valor_assign LPARAMETERS vNewVal this.control.Valor=m.vNewVal ENDPROC PROCEDURE cfg_valor_access RETURN this.control.Valor ENDPROC PROCEDURE Init IF NOT typeo(THIS.control ) THEN FOR EACH oOBJ IN THIS.OBJECTS IF (UPPER(oOBJ.NAME)=UPPER(THIS.control_nombre)) OR (EMPTY(THIS.control_nombre) AND UPPER(oOBJ.PARENTCLASS)=UPPER(THIS.control_clase)) THEN THIS.control = oOBJ EXIT ENDIF NEXT ENDIF RETURN DODEFAULT() ENDPROC Rtabla_ayuda = busmailctas tabla_codigo = codigo tabla_desc = nombre tabla_idxcod = codigo tabla_tabla = mailctas mensaje_error = No se encontr la cuenta !!! dato_maxlength = 6 dato_mask = 999999 dato_format = z Name = "cod_desc_mail" Label2.Caption = "Mail" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Width = 296 Height = 32 BackStyle = 0 BorderWidth = 0 tabla_tabla = ("") tabla_alias = ("") tabla_codigo = ("Codigo") tabla_descr = ("Descr") tmp_tabla = ("") tmp_alias = ("TMPListaAlias") formulario_seleccion = ("sys_Items_seleccion") formulario_titulo = ("Seleccin de items") formulario_codigo = ("Cdigo") formulario_descripcion = ("Nombre") dato = ("") campo_maximo = 0 Name = "items_lista" PROCEDURE parse_datos LPARAMETERS xvar, xarr, xmaxarr LOCAL z, xnum, xxx,yyy xxx=xvar DO WHILE .T. yyy=SUBSTR(xxx,1, AT(",",xxx)-1) xes_uno_solo = EMPTY(yyy) IF xes_uno_solo yyy=ALLTRIM(xxx) ENDIF xnum=VAL(yyy) IF EMPTY(yyy) EXIT ENDIF FOR z=1 TO xmaxarr IF xarr(z)=xnum * Existe EXIT ENDIF ENDFOR IF z>xmaxarr xmaxarr=xmaxarr+1 xarr(xmaxarr)=xnum ENDIF IF xes_uno_solo * Ya lo revis EXIT ELSE xxx=SUBSTR(xxx, AT(",",xxx)+1,255) ENDIF ENDDO ENDPROC PROCEDURE tabla_obtener LOCAL xCodigo, xDescr xCodigo=THIS.tabla_codigo xDescr=THIS.tabla_descr SELECT &xCodigo AS Codigo, &xDescr AS DESCR, .F. AS Tilde ; FROM (THIS.tabla_alias); INTO CURSOR (THIS.tmp_alias) READWRITE INDEX ON Codigo TAG Codigo INDEX ON DESCR TAG DESCR ENDPROC PROCEDURE Init IF EMPTY(this.tabla_tabla) THEN this.tabla_tabla=this.tabla_Alias ENDIF IF EMPTY(this.tabla_Alias) THEN this.tabla_alias=JUSTSTEM(this.tabla_tabla) ENDIF if !used(this.tabla_alias) use (this.tabla_tabla) in 0 ALIAS (This.Tabla_Alias) endif this.Datos.ControlSource = this.dato this.Refresh ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.url.Enabled = m.vNewVal THIS.Enabled = m.vNewVal ENDPROC PROCEDURE readonly_access *To do: Modify this routine for the Access method RETURN this.url.ReadOnly ENDPROC PROCEDURE readonly_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.url.ReadOnly = m.vNewVal ENDPROC b"IIsL% UjT%CFT  cTUTHISPARENT RESULTADOCLICK_SIGUIENTETHISFORMRELEASEClick011a11A3)I;"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )";"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)"g"NN6%U2T TUVNEWVALTHISENABLEDCOMBOT CUTHISENABLEDenabled_assign0Init1q"a211)NPROCEDURE Init this.Enabled=p_dev this.enabled=p_dev this.Left=thisform.Width-72 this.TabIndex=253 ENDPROC PROCEDURE Click _screen.visible=.t. set sysmenu to defa release rushmore public rushmore sys(3054,1,"rushmore") on error on key label enter if left(sys(0),5)="DEY #" then clear macros on key endif _screen.windowstate= 2 try show window "command" catch endtry ENDPROC PROCEDURE RightClick p_suspend=.t. thisform.suspendo = .t. *=sys_mostrar_screen("Suspendo?",.t.) ENDPROC "Q*%LU  T T-C2T/CCZC+6 T  U XPAGXKNOWTHISFORMCRVIEWERGETLASTPAGENUMBER CTBOTONESLBPAGECAPTIONTXPAGEVALUEGETCURRENTPAGENUMBER&CUXY EVENTINFO USEDEFAULTTHISFORMCRVIEWERSETFOCUS"T-T-UTHISFORM CVBUSQUEDACVPADRECUXTEXTOTHISFORMCRVIEWER SEARCHFORTEXTT sys_crystal_buscarJTT UOOBJSYS_CRYSTAL_BUSCARCVPADRETHISFORM CVBUSQUEDASHOW4%-TUXTEXTOP_DEVTHISFORMCAPTION4%-TUXTEXTOP_DEVTHISFORM LOG_EJECUCIONL$%Cthisform.padrebO1  E UTHISFORMPADRECERRAR_VISUALIZADORRELEASEFTCaCUXARCHIVOTHISFORMPADRE XPDFARCHIVO IMPRIMIR_PDF ABRIR_PDFO% H1C$En proceso... aun no implementado!! B-UP_DEVMENSAJETCUTHIS BACKCOLOR SYS_COLORa LH"H BT_BUSCARH  BT_ARBOL~T BT_IMPRIMIR  BT_IMP_SETUPC  BT_EXPORTAR C  BT_P18    BT_PAg    BT_PS    BT_PU    BT_BUSCAR BT_PARAR BT_PDF" C BT_XLSH C(ZUXBUTTONTHISFORMBUSQUEDA_MOSTRARCRVIEWERDISPLAYGROUPTREEBUTTONVALUE PRINTREPORT CRREPORTE PRINTERSETUPEXPORT SHOWFIRSTPAGEMOSTRAR_PGINASHOWPREVIOUSPAGE SHOWNEXTPAGE SHOWLASTPAGE IMPRIMIR_PDF IMPRIMIR_XLSOEX C CUTHISFORM ASIGNAR_COLOR?     TTTTTTTTT T  T  T %- NCCRViewer olecontrol&CrystalReports12.ActivexReportViewer.16T&CrystalReports12.ActivexReportViewer.1  pOCCRViewer olecontrol'CrystalReports115.ActivexReportViewer.17T'CrystalReports115.ActivexReportViewer.1  NCCRViewer olecontrol&CrystalReports11.ActivexReportViewer.16T&CrystalReports11.ActivexReportViewer.1  NCCRViewer olecontrol&CrystalReports10.ActivexReportViewer.16T&CrystalReports10.ActivexReportViewer.1 :CCRViewer olecontrolCRViewer9.CRViewer"TCRViewer9.CRViewer P JCCRViewer olecontrol"CrystalReports.CrystalReportViewer7T'CrystalReports.CrystalReportViewer (11)(L #:CCRViewer olecontrolCRViewer9.CRViewer&TCRViewer9.CRViewer (9)(HCB-% ITC - Versin: C - Rpt: C  =TC - Versin: C - Rpt:   L)TVisualizacin: TXT^T-T aT!aT"aT#aT$aT%aT&aT'aT(-T)aT*T+-% xTaT,-. /T0. U1XREPORTEXARBOLXARR1XARR2XARR3XARR4XARR5XARR6XARR7XARR8XARR9XARR10XZOOMXNOSHOW XFORM_PADRETHISFORM CRREPORTEARCHIVOPADRE ADDOBJECT CRVERSIONOEXMENSAJEMESSAGEP_DEVCAPTION REPORTTITLEARCHIVOREPORTECRVIEWERWIDTHHEIGHTVISIBLEENABLEDRILLDOWNENABLESTOPBUTTONENABLECLOSEBUTTONENABLEEXPORTBUTTONENABLEGROUPTREEENABLENAVIGATIONCONTROLSENABLEPRINTBUTTONENABLEPROGRESSCONTROLENABLEREFRESHBUTTONENABLEZOOMCONTROLDISPLAYGROUPTREEDISPLAYTOOLBAR CTBOTONESBT_ARBOLENABLEDRESIZE TMR_INICIALfT#T*TUTHISFORMCRVIEWERWIDTHTOP CTBOTONESHEIGHTSB/ %( UNKEYCODE NSHIFTALTCTRLTHISFORMRELEASEmostrar_pgina0crviewer_clickedQbusqueda_cerrarbusqueda_buscarbusqueda_mostrarTagregar_captionagregar_log_ejecucionMcerrar_reporte imprimir_pdf4 imprimir_xls asignar_color* button_clickbLoadInitResizeKeyPress1!A3222qB2q3qqA2qqA2AA3s1QA4qA32r1AA33aaaaaaaaaaaqaa!AAAAqaqAABABABA1AcA3a131A1  G -S\$ q+$2*#7:/ZD4K6# NY> v y\ /)"%pU  UTHISVAR1DESTROYVAR2Destroy0119)PROCEDURE Init dodefault() local xdesde, xidx, xarreglo, xmax xdesde=iif(this.no_incluye_pesos,2,1) xidx=0 for z=xdesde to mm_max xidx=xidx+1 this.arreglo_monsym(xidx,1)=upper(mm_monsym(z,1)) this.arreglo_monsym(xidx,2)=mm_monsym(z,2) endfor xmax = max(xidx , 1) xarreglo="moneda["+alltrim(str(xmax))+",2]" this.addproperty( xarreglo ) for z=1 to xmax this.moneda(z,1)=this.arreglo_monsym(z,1) this.moneda(z,2)=this.arreglo_monsym(z,2) endfor this.RowSource = "this.moneda" this.NumberOfElements = xmax this.DisplayCount = xmax if this.no_incluye_pesos and this.Value=0 this.Value=1 endif this.Refresh ENDPROC  !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" }"dd%  UGT @TUVNEWVALTHISENABLEDCOPTBUTTONSTUTHISENABLEDenabled_assign0Init1q"B1A221 )d%"  %d(sUT%C tmp_checkBFQT<%CT .f. T cod_cli=xclienteselect cod as codigo, descr, .f. as tilde from sectores where &xfiltro into cursor tmp_check readwrite & &  T C  ( F- C%C4>a sectores.scx TFG((CODIGO~S-TCC,6CC ZFQT U XVARIABLETHISPARENTCAMPOVALUE TMP_CHECKXCLIENTECLIENTE XARR_ITEMSXFILTROCODIGODESCR MAXARR_ITEMSPARSEZTILDEINSECTORESSCXREFRESHClick01qaqAAr1rA'q1AACrArAb2 ) "rr6%)Ua  T%CTC%{T,C%T,C%T,C%#T,C%ZT T U AAAZTHISFORMOTROSOTRO1OTRO2OTRO3OTRO4OTRO5THIS ROWSOURCEVALUEInit01bQAaAaAaAaA1A1)r""  y%UTT%CH[ ? ?(!" 2R,:No definido !!!   U THISFORMDESTINOTHISPARENT OPTIONGROUP1VALUEFORMATOCOMBO1REPORTECOMANDOSRELEASEClick01aaAA2) `PROCEDURE recuperar_usuario_original parameters xok if this.user_switched this.text1.ForeColor= RGB(0,0,0) this.user_switched=.f. oSecurity.Rest_user do user_log with pub_index, 6, "", "", "Retorna al usuario original", "clases.usuario" endif ENDPROC PROCEDURE Destroy this.recuperar_usuario_original dodefault() ENDPROC *PROCEDURE valor_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor = m.vNewVal THIS.imMail.VISIBLE=.F. THIS.imHelp.VISIBLE=.F. THIS.imEdit.VISIBLE=.F. THIS.imNada.VISIBLE=.F. IF THIS.ENABLED AND this.habilitado THEN DO CASE CASE m.vNewVal=0 THIS.imNada.VISIBLE=.T. CASE m.vNewVal=1 THIS.imMail.VISIBLE=.T. CASE m.vNewVal=2 THIS.imEdit.VISIBLE=.T. CASE m.vNewVal=3 THIS.imHelp.VISIBLE=.T. ENDCASE ENDIF ENDPROC PROCEDURE mostrar_edit DO FORM sys_ve_fce_mailsnd WITH this ENDPROC PROCEDURE proximo IF This.Valor=3 THEN this.valor=0 ELSE This.valor=this.valor+1 ENDIF ENDPROC PROCEDURE anterior IF This.Valor=0 THEN this.valor=3 ELSE This.valor=this.valor-1 ENDIF ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.valor = this.valor ENDPROC PROCEDURE valor_access *To do: Modify this routine for the Access method RETURN IIF(this.habilitado, THIS.valor , 0) ENDPROC "mm %t'&U BaU BaU BaU BaU BaU1T T UVNEWVALTHISENABLE_ANTERIORANTERIORENABLED1T T UVNEWVALTHISENABLE_CANCELARCANCELARENABLED1T T UVNEWVALTHISENABLE_FINALIZAR FINALIZARENABLED1T T UVNEWVALTHIS ENABLE_INICIOINICIOENABLED1T T UVNEWVALTHISENABLE_SIGUIENTE SIGUIENTEENABLEDTUTHISPARENT RESULTADOqTTTT T  U THISCANCELARENABLEDENABLE_CANCELARANTERIORENABLE_ANTERIOR SIGUIENTEENABLE_SIGUIENTE FINALIZARENABLE_FINALIZARINICIO ENABLE_INICIOclick_cancelar0click_anteriorBclick_siguienteTclick_finalizarf click_inicioxenable_anterior_assignenable_cancelar_assignenable_finalizar_assignbenable_inicio_assignenable_siguiente_assign8DestroyInit1q3q4q3q3q3q"R3q"R3q"R3q"R3q"R3a3aaaaa2&KY   d#&N.6>!B)m"%cxrUCUMENSAJETHISAYUDITAClick012()PROCEDURE poner_readonly FOR EACH o1 IN THISFORM.OBJECTS IF o1.NAME="Pageframe1" OR o1.NAME="Command1" OR o1.NAME="Command2" * No actuar ELSE IF o1.CLASS#"Label" TRY IF o1.ENABLED TRY o1.DISABLEDFORECOLOR=o1.FORECOLOR CATCH ENDTRY IF .T. OR VARTYPE(obj.READONLY)="L" THEN o1.READONLY=.T. ELSE o1.ENABLED=.F. ENDIF ENDIF CATCH ENDTRY ENDIF ENDIF ENDFOR FOR EACH opage IN THISFORM.pageframe1.PAGES FOR EACH obj IN opage.OBJECTS DO CASE CASE obj.BASECLASS#"Label" TRY IF obj.ENABLED TRY obj.DISABLEDFORECOLOR=o1.FORECOLOR CATCH ENDTRY IF VARTYPE(obj.READONLY)="L" AND NOT INLIST(obj.BASECLASS,"Combobox") THEN obj.READONLY=.T. ELSE obj.ENABLED=.F. ENDIF ENDIF CATCH ENDTRY ENDCASE ENDFOR ENDFOR thisform.command1.Visible =.f. thisform.command2.Anchor = 0 thisform.command2.Left = Thisform.Width / 2 - thisform.command2.Width /2 thisform.command2.Anchor = 260 thisform.pos_readonly () ENDPROC Width = 352 Height = 25 tabla = ('') desc_cero = (' Todos') codigo_cero = (' ') select_area = 0 agregar_cero = .F. tabla_codigo = codigo tabla_descr = descr texto_filtro_caption = ('Alltrim(this.texto.caption)+": "') texto_filtro_cod_desc = ('"["+TRANSFORM(THIS.valor_desde)+"] "+this.combo_text') texto_filtro_codigo = ('TRANSFORM(THIS.valor_desde)') texto_filtro_empty = ('THIS.valor_desde=this.codigo_cero') combo_text = combo_value = .F. agregar_cero1 = .F. codigo_cero1 = .F. desc_cero1 = ("") valor = (.f.) value = .F. readonly = .F. filtro = ('') texto_filtro_descripcion = .T. Name = "lis_combo_1" cmd_filtro.Name = "cmd_filtro"  qPROCEDURE Init parameters xtitulo, xfiltro, xtodos_los_estados, xusado, xforzado, xdesde this.preposicionado=xusado dodefault() IF thisform.opar_tc_cargar AND p_formularios_posicionar#0 THEN thisform.opar_tc.frm_name=thisform.opar_tc_frm_name thisform.opar_tc.wind_sets_leer(thisform) thisform.opar_tc.Wind_sets_cargar() thisform.opar_tc.Wind_sets_aplicar(thisform) thisform.Resize ELSE thisform.opar_tc.wind_sets_xgrabar = .f. ENDIF if xusado * Ya tena una consulta, foco en el grid this.grid1.SetFocus else * Foco en el campo de bsqueda this.text3.SetFocus endif thisform.filtro_fijo=xfiltro thisform.forzado=xforzado if type("xdesde")="L" xdesde=0 endif thisform.desde=xdesde *if xdesde=2 *!* this.filtro_depositos.visible=.t. *!* this.filtro_depositos.enabled=.t. *endif this.filtro_stock.Visible=.t. this.filtro_stock.enabled=.t. ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *!* =sys_mostrar_Screen("Suspendo?", .t.) do case case nKeyCode=10 .OR. (nKeyCode=13.AND.nShiftAltCtrl=2) * CTRL+ENTER Ejecuta la busqueda dodefault(nkeycode, 0) this.command11.Click this.text3.SetFocus case nKeyCode=27 and nShiftAltCtrl=0 * ESC Borra todos los filtros y pasa el foco a Comienza Con dodefault(27, 0) this.command1.Click this.text3.SetFocus *!* case nKeyCode=10 and nShiftAltCtrl=2 *!* *!* * CTRL - X Borra todos los filtros y pasa el foco a Comienza Con *!* dodefault(10, 0) *!* this.command1.Click *!* case nKeyCode=10 and nShiftAltCtrl=2 *!* *!* * CTRL - ENTER Ejecuta la consulta *!* dodefault(13, 0) *!* this.command11.Click otherwise if this.foco_en_el_grid * Estoy en el grid dodefault(nKeyCode, nShiftAltCtrl) else endif endcase ENDPROC PROCEDURE en_foco this.foco_en_el_grid=.t. dodefault() ENDPROC PROCEDURE sale_del_foco this.foco_en_el_grid=.f. dodefault() ENDPROC PROCEDURE Activate return ENDPROC PROCEDURE salida if this.forzado DO mostrar_articulo IN bienes2 with tmp_bie_bus.cod_ins select bienes set order to codins seek tmp_bie_bus.cod_ins sele tmp_bie_bus else dodefault() endif ENDPROC PROCEDURE Unload IF thisform.opar_tc_cargar THEN thisform.opar_tc.Wind_sets_grabar(this) ENDIF ENDPROC PROCEDURE Load thisform.opar_tc = NEWOBJECT("tc_form_parametros","tc.vcx") IF p_formularios_posicionar=0 THEN thisform.opar_tc_cargar = 0 ENDIF RETURN DODEFAULT() ENDPROC PROCEDURE Grid1.COLUMN1.Text1.GotFocus debug dodefault() ENDPROC PROCEDURE Grid1.Init dodefault() this.SetAll("DynamicBackColor","iif(tmp_bie_bus.cantidad<=0, rgb(255,174,174), iif(tmp_bie_bus.discont=2, rgb(255,255,128), rgb(128,255,128)))","Column") if .t. this.Highlight=.t. this.HighlightBackColor = rgb(119,187,255) this.HighlightRowLineWidth=1 this.HighlightStyle=2 else this.Highlight=.f. this.HighlightBackColor = rgb(255,128,128) this.HighlightRowLineWidth=3 this.HighlightStyle=0 endif ENDPROC PROCEDURE Grid1.When this.Parent.foco_en_el_grid =.t. ENDPROC $ $$%`"X Ut4%$ C F% RG((%C K% CCC C . C .6GT CCC C . C .6% . T  FT .t.!listados  % E t sql_funciones-=CCTHIS.text8.VALUEbC' ' CC Z6 T %C4 % `SET FILT TO &xfiltro E  sql_funciones  sql_funciones-=CCTHIS.text8.VALUEbC' ' CC Z6C 1=1  and 6 %C4J TCdigo inactivo !!!/T"Cdigo inexistente o no vlido !!!G(T%CaabCTCT'%CTHIS.text8.VALUEbCaab^Caclases.C@<.buscar(): La variable no tiene el tipo de dato esperado !!!C Suspendo?a B% %% C B Bm%>% 1C BiT aa=&aa BULMENSAJETHISTABLA_PREFILTRAR TABLA_SELECT TABLA_TABLAP_SQL TABLA_IDXCODDATOTEXT8VALUE DATO_TABLA AREA_INICIALFILTROXFILTROSET_FILTRO_Y_ESTADOLISTADOSSOLO_LOS_ACTIVOSSQL_SEEK_UNICO SQL_FUNCIONES TABLA_CODIGOXERROR_BUSQUEDASQL_CONVERSION_DE_FILTROAAVACIOMENSAJE_SUSPENDOCLASSSYS_MOSTRAR_SCREENCODIGO_SI_O_SIMENSAJE MENSAJE_ERROR TABLA_DESCQ EXCEPTION T-#%Cthis.obj_filtrobOZTrTTa#%C  $%CxFiltrobOC /    (7!   ( Ta % YC - C C  Tabla ayuda: C  en C /    (8%    (~ Ta % zC - T- F %8*CNo se puede obtener ayuda !!!T%CaabCTC0TBT aa=&aa T T aa=&aa  F BUXSALIRXFILTROOEXTHIS OBJ_FILTROFILTROES_F1F1_LLAMADA_ESPECIALTEXT8VALUE TABLA_AYUDAPROC_EXTSOLO_LOS_ACTIVOSP_DEVMENSAJEMESSAGEDETAILS TABLA_TABLAAAVACIO TABLA_CODIGO TABLA_DESCUPDATED4 %   TC FTCa%Cy F BU XREFRESHTHIS INICIALIZADO AREA_ANTERIOR TABLA_TABLANOMBREBUSCARTEXT9REFRESHT T %ST TaT% T%TT  %T  U VNEWVALTHISENABLEDTEXT8 ENABLED_TEXT9TEXT9LABEL2 FORECOLORENABLEDFORECOLORDISABLEDFORECOLOR BaU FTxvar=&xvar % fG(( E T T T C U VNEWVALTHIS TABLA_TABLAXVAR TABLA_CODIGO TABLA_IDXCODVALORTEXT8VALUETEXT9 TABLA_DESCM% C 9 B5 %C ,TCC xSeparadorbC6 %7TCC C 6CC6TC % TC 9TC  BU XSECUNDARIO XANTERIORXNAME1 XSEPARADORTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOXRETURNTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGOBCUTHISTEXTO_FILTRO_CAPTION%  #B-5 F% `G((% % 5 T  set filt to &xfiltro (G(G  sql_funciones- =''(%#)T aa=&aa TT aa=&aa T UTHISCODIGO_SI_O_SIAUTO_COMPLETARXRECXCOUNTAA TABLA_TABLAP_SQL TABLA_IDXCODFILTROXFILTRO SQL_SEEK_TOP SQL_FUNCIONES TABLA_CODIGOTEXT8VALUE TABLA_DESCTEXT9VALID TCTC%C P TM%CCdigo inactivo !!!"Cdigo inexistente o no vlido !!! T T%C F UXOK AREA_ANTERIORTHISNOMBREBUSCARCODIGO_SI_O_SITEXT9REFRESHBUTHISLABEL2CAPTIONBUTHISTEXT8VALUEBUTHISTEXT8VALUEF  T UVNEWVALTHISTEXT8WHENGOTFOCUSVALUEVALID?%C 8%UTHIS TABLA_TABLATABLA_SELECT_PROCTABLA_SELECT_PROC_EXT OBJ_FILTROK%D%C3 FQ CUTHISTABLA_PREFILTRAR TABLA_TABLA TABLA_SELECT*( UXRESTHISTABLA_OBJ_FILTRO_FORMOBJ_FILTRO_ACTUALIZADO1T T UVNEWVALTHISLABEL2VISIBLE MOSTRAR_LABELBUTHISTEXT8READONLYT UVNEWVALTHISTEXT8READONLYBUTHISTEXT9VALUE C BUTHISFILTRO_PREPARARFILTRO C BUTHISOBJ_FILTRO_PREPARAR OBJ_FILTROB-UXCODIGOXFILTROXSALIRCaUTHIS ACTUALIZAR$% CUTHIS MODIFICADOUPDATED%C,T@%CCC CC. C.6<TCCC CC. C.6 (TT6T CC^ C^6% TaT  T  T  T  %C TCTUTHISDATOTEXT8VALUEVALOR DATO_TABLA OCOD_DESC_ERRENABLEDLABEL2TEXT9 FORECOLORDISABLEDBACKCOLOR BACKCOLORDISABLEDFORECOLORTABLA_OBJ_FILTRO OBJ_FILTROTABLA_SELECT_PROC_EXT MOSTRAR_LABEL CUTHIS AUTOCOMPLETARE#%Cthis.obj_filtrobO> T-UTHIS OBJ_FILTRODESTROYbuscar,f1* actualizar enabled_assign valid; valor_assignI texto_filtro_texto_caption_access autocompletar sincronizarpar_caption_accessgpar_desde_accesspar_hasta_accesspar_desde_assign tabla_selectfobj_filtro_actualizadotabla_obj_filtro_modificartmostrar_label_assignreadonly_accessAreadonly_assignnvalor_descripcion_access filtro_accessobj_filtro_accessf1_llamada_especialaRefresh LostFocusInitGotFocusDestroy1qAA5qABBqAIBrh BAAcra!AtrArAAAAB33A2CBAAQAAAAAa!AAAt13qrR2AAB4q"RQAfaaAaaAA3q2qr2A"Q11Aqq!AA!!A42qAABqAbwAQ11A4qBAA2A3223qQ22QD5!AAA3qa2qR!33qR3333u23A3cd@ABFcaaaaaaA2B1321A2 N :[ !/%$HX hrN vp !!K"r"""1#X## $$%%%7&b&&!'`'#''&(k(((( +)}).)H*1f*|*3**"7*1(Q11pS1M2s)$"4%U, CTTUTHISENABLED P_UNIDADESVISIBLEInit012P)"vvjA%-Ut T+amTCC,\TC%TCTCg%C!(%C!%)TT%@! iTCC,\UXVARXARRXMAXARRZXNUMXXXYYY XES_UNO_SOLOparse012AAABAA11ABAA29)v"]^%XmgU UTHISFORMRELEASEClick012#)iHeight = 572 Width = 1024 DoCreate = .T. Visible = .F. WindowState = 0 marca = 0 modelo = (space(40)) foco_en_el_grid = .F. incluye = (space(40)) filtro_fijo = ".t." todos_los_estados = .F. forzado = .F. cod_pro = (space(6)) fast = .T. desde = .F. opar_tc_cargar = .T. opar_tc = (.f.) opar_tc_frm_name = ("hlp_bienes") texto = (space(40)) Name = "hlp_bienes" Grid1.ColumnCount = 11 Grid1.COLUMN1.Header1.Caption = "" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Visible = .T. Grid1.COLUMN1.Text1.BackColor = 255,255,255 Grid1.COLUMN1.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.ControlSource = "" Grid1.COLUMN1.Width = 108 Grid1.COLUMN1.Visible = .T. Grid1.COLUMN1.BackColor = 255,255,255 Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Caption = "Header1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Visible = .T. Grid1.COLUMN2.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.ControlSource = "" Grid1.COLUMN2.Width = 75 Grid1.COLUMN2.Visible = .T. Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Caption = "Header1" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Visible = .T. Grid1.COLUMN3.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.ControlSource = "" Grid1.COLUMN3.Width = 76 Grid1.COLUMN3.Visible = .T. Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Caption = "Header1" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Visible = .T. Grid1.COLUMN4.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.ControlSource = "" Grid1.COLUMN4.Width = 75 Grid1.COLUMN4.Visible = .T. Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Caption = "Header1" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Visible = .T. Grid1.COLUMN5.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.ControlSource = "" Grid1.COLUMN5.Width = 75 Grid1.COLUMN5.Visible = .T. Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Caption = "Header1" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Visible = .T. Grid1.COLUMN6.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.ControlSource = "" Grid1.COLUMN6.Width = 75 Grid1.COLUMN6.Visible = .T. Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Caption = "Header1" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Visible = .T. Grid1.COLUMN7.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.ControlSource = "" Grid1.COLUMN7.Width = 75 Grid1.COLUMN7.Visible = .T. Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Caption = "Header1" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Format = "z" Grid1.COLUMN8.Text1.InputMask = "999,999.99" Grid1.COLUMN8.Text1.Visible = .T. Grid1.COLUMN8.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.ControlSource = "" Grid1.COLUMN8.Width = 75 Grid1.COLUMN8.Visible = .T. Grid1.COLUMN8.Format = "z" Grid1.COLUMN8.InputMask = "999,999.99" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Caption = "Header1" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Format = "z" Grid1.COLUMN9.Text1.InputMask = "999,999.99" Grid1.COLUMN9.Text1.Visible = .T. Grid1.COLUMN9.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.ControlSource = "" Grid1.COLUMN9.Width = 75 Grid1.COLUMN9.Visible = .T. Grid1.COLUMN9.Format = "z" Grid1.COLUMN9.InputMask = "999,999.99" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Caption = "Header1" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Visible = .T. Grid1.COLUMN10.Text1.SelectedBackColor = 119,187,255 Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.ControlSource = "" Grid1.COLUMN10.Width = 75 Grid1.COLUMN10.Visible = .T. Grid1.COLUMN10.Name = "COLUMN10" Grid1.Column11.Header1.Name = "Header1" Grid1.Column11.Text1.Visible = .T. Grid1.Column11.Text1.SelectedBackColor = 119,187,255 Grid1.Column11.Text1.Name = "Text1" Grid1.Column11.Visible = .T. Grid1.Column11.Name = "Column11" Grid1.Height = 357 Grid1.HighlightRowLineWidth = 1 Grid1.Left = 0 Grid1.Panel = 1 Grid1.RecordSource = "" Grid1.ScrollBars = 3 Grid1.TabIndex = 10 Grid1.Top = 149 Grid1.Width = 1024 Grid1.SelectedItemBackColor = 119,187,255 Grid1.HighlightStyle = 2 Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 0 Text1.TabIndex = 7 Text1.Top = 515 Text1.Width = 972 Text1.Name = "Text1" btn_buscar.Top = 515 btn_buscar.Left = 973 btn_buscar.Enabled = .F. btn_buscar.TabIndex = 12 btn_buscar.Visible = .F. btn_buscar.Name = "btn_buscar" tilde.Top = 108 tilde.Left = 547 tilde.Alignment = 0 tilde.Enabled = .F. tilde.Visible = .F. tilde.Name = "tilde" ColumnCount = 11 FontBold = .F. FontName = "Courier New" FontSize = 11 Anchor = 15 DeleteMark = .F. Height = 262 Left = 0 MousePointer = 1 Panel = 1 RecordMark = .F. RecordSourceType = 1 RowHeight = 20 ScrollBars = 2 Top = 22 Visible = .T. Width = 287 HighlightBackColor = 255,128,128 HighlightForeColor = 0,0,0 HighlightStyle = 2 AllowCellSelection = .F. Name = "Grid1" Column1.FontBold = .F. Column1.FontName = "Courier New" Column1.FontSize = 11 Column1.Alignment = 0 Column1.ControlSource = "" Column1.Width = 270 Column1.Visible = .T. Column1.SelectOnEntry = .F. Column1.Name = "Column1" Column2.FontBold = .F. Column2.FontName = "Courier New" Column2.FontSize = 11 Column2.Visible = .T. Column2.SelectOnEntry = .F. Column2.Name = "Column2" Column3.FontBold = .F. Column3.FontName = "Courier New" Column3.FontSize = 11 Column3.Width = 76 Column3.Visible = .T. Column3.SelectOnEntry = .F. Column3.Name = "Column3" Column4.FontBold = .F. Column4.FontName = "Courier New" Column4.FontSize = 11 Column4.Visible = .T. Column4.SelectOnEntry = .F. Column4.Name = "Column4" Column5.FontBold = .F. Column5.FontName = "Courier New" Column5.FontSize = 11 Column5.Visible = .T. Column5.Name = "Column5" Column6.FontBold = .F. Column6.FontName = "Courier New" Column6.FontSize = 11 Column6.Visible = .T. Column6.Name = "Column6" Column7.FontBold = .F. Column7.FontName = "Courier New" Column7.FontSize = 11 Column7.Visible = .T. Column7.Name = "Column7" Column8.FontBold = .F. Column8.FontName = "Courier New" Column8.FontSize = 11 Column8.Visible = .T. Column8.Name = "Column8" Column9.FontBold = .F. Column9.FontName = "Courier New" Column9.FontSize = 11 Column9.Visible = .T. Column9.Name = "Column9" Column10.FontBold = .F. Column10.FontName = "Courier New" Column10.FontSize = 11 Column10.Visible = .T. Column10.Name = "Column10" Column11.FontBold = .F. Column11.FontName = "Courier New" Column11.FontSize = 11 Column11.Visible = .T. Column11.Name = "Column11" "U%ZUZ FQ#\tmp\.dbf#\tmp\.cdxUTHIS TABLA_TABLAP_LOCALARCHIVO1TCC]R>h1\tmp\NC*Q\tmp\(<#%CC :rCCC f& &  U THISPARENTARCHIVOP_LOCALCODIGODESCR TABLA_TABLAZI_TAB INDICETABLACOD_DESCTEXT8INITDestroy0 Text8.Init1A2131AA2 )"O%iU UTHISPARENTINTERACTIVECHANGEcombo.InteractiveChange012#B)Height = 323 Width = 635 DoCreate = .T. margen_derecho = (101) Name = "hlpabm2_agregar_x_lista" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.TabIndex = 1 Grid1.Name = "Grid1" Text1.TabIndex = 2 Text1.Name = "Text1" btn_buscar.Top = 215 btn_buscar.Left = 542 btn_buscar.Width = 90 btn_buscar.TabIndex = 9 btn_buscar.Name = "btn_buscar" tilde.Alignment = 0 tilde.TabIndex = 11 tilde.Name = "tilde" Command1.Top = 29 Command1.Left = 542 Command1.Height = 25 Command1.Width = 90 Command1.TabIndex = 3 Command1.Name = "Command1" Command2.Top = 91 Command2.Left = 542 Command2.Width = 90 Command2.TabIndex = 5 Command2.Name = "Command2" Command3.Top = 153 Command3.Left = 542 Command3.Width = 90 Command3.TabIndex = 7 Command3.Name = "Command3" Command4.Top = 246 Command4.Left = 542 Command4.Width = 90 Command4.TabIndex = 10 Command4.Name = "Command4" Command5.Top = 184 Command5.Left = 542 Command5.Width = 90 Command5.TabIndex = 8 Command5.Name = "Command5" Command6.Top = 122 Command6.Left = 542 Command6.Width = 90 Command6.TabIndex = 6 Command6.Name = "Command6" tHeight = 334 Width = 417 DoCreate = .T. WindowState = 0 filtro_select = .F. Name = "hlp_presupuestos" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.Width = 4 Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.Column11.Header1.Name = "Header1" Grid1.Column11.Text1.Name = "Text1" Grid1.Column11.Name = "Column11" Grid1.Height = 262 Grid1.Left = 0 Grid1.Panel = 1 Grid1.Top = 44 Grid1.Width = 416 Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 0 Text1.Top = 308 Text1.Width = 367 Text1.Name = "Text1" btn_buscar.Top = 309 btn_buscar.Left = 370 btn_buscar.Name = "btn_buscar" tilde.Alignment = 0 tilde.Name = "tilde" "%5*TU4T-T-TTmenucaseTaTaUXINDICETHISFORMENABLEDVISIBLE OPCION_ACTUAL XMENUCASE5TTCC (n TCCCC DT T (DT thisform.commandCC Z.caption=padr(xmenu(z),250)&aaa 5T thisform.commandCC Z .enabled=.t.&aaa 5T thisform.commandCC Z .visible=.t.&aaa 6T thisform.commandCC Z .width=maximo&aaa  (/T thisform.commandCC Z.top=0&aaa T  T TaTCfTC  UMAXIMOTMPWIDTHMAXWIDTHTHISFORMOPCIONESMAXMENUTHIS TEXTWIDTHTITZXMENUAAAHEIGHTCOMMAND1WIDTH AUTOCENTERCAPTION OPCION_ACTUALSETFOCUSREFRESHllamada0Init1qrQR4bAARRbGAa"9  ')Width = 411 Height = 39 dato_format = z dato_mask = 999 mensaje_error = "Configuracin contable invlida !!!" tabla_ayuda = bus_cfg_ventas tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = cfg_ventas Name = "cod_desc_cfg_ventas" Label2.Caption = "Config. Contable" Label2.Name = "Label2" Text8.Left = 103 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 187 Text9.Top = 5 Text9.Name = "Text9"  " &%3 V U!BCCC._UTHISALIAS TABLA_DESCR!BCCC._UTHISALIAS TABLA_CODIGOUXCURSOR2XCODXDES BUTHISVALORT UVNEWVALTHISVALOR BUTHIS VALOR_DESDET UVNEWVALTHIS VALOR_DESDE BUTHISREADONLYBT T T UVNEWVALTHISREADONLYENABLED_MANUALENABLEDI &T 0T UVNEWVALTHISCOMBOENABLED BUTHIS COMBO_TEXT BUTHIS COMBO_VALUEBUTHISTEXTOCAPTION% C / B 5%Z T vTC%TC TC  BU XSECUNDARIOTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGO FUTHISALIASKT.THIS.valor_desde = &xcodigo CUXCODIGOTHISALIAS TABLA_CODIGOANTES_DE_SALIR F-CT Ta1xOK=.F. %C This.DesdebCTON ERROR &onErr U THISALIAS VALOR_DESDE TABLA_CODIGOCOMBOVALUEXOK CONTROLSOURCEDESDEUVNEWVALT F- CTCTCT T U VNEWVALXVALXDESCRXVALCODTHIS VALOR_DESDEALIAS TABLA_CODIGO TABLA_DESCRCOMBOVALUE DISPLAYVALUEUcombo_text_access0combo_value_accesssagregar_manuales valor_access valor_assign  value_accessE value_assignoreadonly_accessreadonly_assignenabled_assignRpar_hasta_accesspar_desde_accesspar_caption_access texto_filtroEGotFocus LostFocusInitovalor_hasta_assignovalor_desde_assignantes_de_salir13333q"33q"33q"112qQA!3223qA!A!!!A424AaaaA13qA2qQ"!212A2>e  r j%*`1<!?#UB%x G6*=\8]_< hG ' vJP n zT ) "%U$!internetCU SHELLEXECINTERNETTHISPARENTURLClick011P)[dato_format = z dato_mask = 99999 dato_maxlength = 5 mensaje_error = "Estado de venta invlido !!!" tabla_ayuda = busestven tabla_codigo = codigo tabla_desc = descr tabla_idxcod = codigo tabla_tabla = estven Name = "cod_desc_estven" Label2.Caption = "Estado de Venta" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9"  PROCEDURE formulario_modo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.formulario_modo = m.vNewVal THISFORM.wizard_buttons11.Visible = thisform.formulario_wizard THISFORM.btaceptar.Visible = thisform.formulario_aceptar THISFORM.btCancelar.Visible = thisform.formulario_aceptar ENDPROC PROCEDURE formulario_aceptar_access *To do: Modify this routine for the Access method RETURN (THIS.formulario_modo=1) ENDPROC PROCEDURE formulario_wizard_access *To do: Modify this routine for the Access method RETURN (THIS.formulario_modo=2) ENDPROC PROCEDURE botones_acomodar THISFORM.wizard_buttons11.LEFT = THISFORM.btposicion.LEFT THISFORM.wizard_buttons11.TOP = THISFORM.btposicion.TOP THISFORM.btaceptar.Top =THISFORM.btposicion.TOP THISFORM.btCancelar.Top =THISFORM.btposicion.TOP THISFORM.btaceptar.LEFT =THISFORM.btposicion.LEFT + THISFORM.btposicion.btaceptar.LEFT THISFORM.btCancelar.LEFT =THISFORM.btposicion.LEFT + THISFORM.btposicion.btCancelar.LEFT ENDPROC PROCEDURE validar RETURN .T. ENDPROC PROCEDURE Load THIS.AUTOCENTER=.T. IF THIS.set_acfodaid SET DATASESSION TO _SCREEN.ACTIVEFORM.DATASESSIONID ENDIF ENDPROC PROCEDURE Unload && Como un formularo Top-Level no puede tener el parametro TO && el resultado lo guardo en xWizard_Resultado xWizard_Resultado= thisform.resultado return thisform.resultado ENDPROC PROCEDURE Init PARAMETERS xresultado THIS.resultado = xresultado THIS.BORDERSTYLE= 2 && Formulario_modo && && 1 - Aceptar/Cancelar && 2 - Wizard && THISFORM.formulario_modo = THISFORM.formulario_modo THISFORM.botones_acomodar ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF NOT thisform.formulario_wizard THEN RETURN DODEFAULT(nKeyCode,nShiftAltCtrl) ENDIF DO CASE CASE THISFORM.wizard_buttons1.enable_finalizar .AND. nKeyCode=10 .OR. (nKeyCode=13.AND.nShiftAltCtrl=2) * CTRL-ENTER THISFORM.wizard_buttons1.finalizar.CLICK NODEFAULT CASE THISFORM.wizard_buttons1.enable_siguiente .AND. nKeyCode=2 .OR. (nKeyCode=4.AND.nShiftAltCtrl=2) * CTRL-RIGHT THISFORM.wizard_buttons1.siguiente.CLICK NODEFAULT CASE THISFORM.wizard_buttons1.enable_anterior .AND. nKeyCode=26 .OR. (nKeyCode=19.AND.nShiftAltCtrl=2) * CTRL-LEFT THISFORM.wizard_buttons1.anterior.CLICK NODEFAULT ENDCASE *!* case thisform.wizard_buttons1.enable_cancelar .and. nKeyCode=27 *!* * CTRL-LEFT *!* thisform.wizard_buttons1.anterior.click *!* nodefault ENDPROC PROCEDURE cfg_valor_access *To do: Modify this routine for the Access method RETURN THIS.cfg_valor ENDPROC PROCEDURE cfg_valor_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.cfg_valor = m.vNewVal ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal ENDPROC PROCEDURE grabar Local xtpath, xvar, xvalue, xpos, xrel xtpath = this.cfg_path xvar = this.cfg_parametro_original xValue = This.cfg_valor xpos = this.cfg_posicion xrel = this.cfg_relativo xAlltrim = This.cfg_alltrim *!* LOCAL xpath, xtexto, zzzz, xponer *!* DO CASE *!* CASE xtpath=1 *!* xpath=p_local+'\ges.cfg' *!* CASE xtpath=2 *!* xpath=p_system+'\ges.cfg' *!* ENDCASE *!* ocfg = NEWOBJECT("CFG_Ctrl","Sys_cfg.prg") *!* ocfg.archivo = xpath *!* ocfg.cargar LOCAL oCFG oCFG = this.Obtener_oCFG() ocfg.agregar (xvar, xvalue, xpos, xrel, xAlltrim) IF oCFG.Individual THEN ocfg.grabar ENDIF IF this.cfg_autoaplicar THEN &xVar=xValue ENDIF ENDPROC PROCEDURE obtener_ocfg LOCAL xtpath, xvar, xvalue, xpos, xrel IF TYPE("THIS.cfg_ocfg")#"O" THEN xtpath = THIS.cfg_path LOCAL xpath DO CASE CASE xtpath=1 xpath=p_local+'\ges.cfg' CASE xtpath=2 xpath=p_system+'\ges.cfg' ENDCASE ocfg = NEWOBJECT("CFG_Ctrl","Sys_cfg.prg") ocfg.archivo = xpath ocfg.cargar oCFG.Individual = .t. ELSE ocfg=THIS.cfg_ocfg ENDIF RETURN ocfg ENDPROC PROCEDURE cfg_ocfg_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.cfg_ocfg = m.vNewVal IF THIS.cfg_ocfg.cfg_asignar_propiedades THEN this.cfg_parametro = "this.cfg_ocfg.lineas."+this.cfg_parametro_original +".Valor" this.Init ENDIF ENDPROC PROCEDURE Init TRY IF EMPTY(this.cfg_parametro_original) THEN this.cfg_parametro_original = this.cfg_parametro ENDIF This.CFG_Valor = EVALUATE(this.cfg_parametro) CATCH TO oEx ENDTRY ENDPROC PROCEDURE Init *=sys_mostrar_screen("Suspendo?", .t.) LOCAL oEx IF ALLTRIM(THIS.dato)='' * mensaje("El control "+alltrim(this.name)+" no tiene .DATO asignado !!!") THIS.text8.VALUE=THIS.valor *!* else *!* * 2008/06/30 Debo asignarle el valor de this.dato al control *!* =sys_mostrar_Screen("Suspendo?", .t.) *!* if !empty(this.dato_tabla) *!* *!* try *!* local asewdsds *!* asewdsds=evaluate(this.dato) *!* this.valor=evaluate(this.dato) *!* catch *!* * Imposible de asigna porque no est definido this.dato *!* endtry *!* else *!* * No debera estar as...no genero error por compatibilidad con el cdigo mal escrito... *!* endif *!* ELSE * 2015/04/07 TRY LOCAL xNVal, xEVA xEVA=IIF(ALLTRIM(THIS.dato_tabla)="", ALLTRIM(ALIAS())+".",ALLTRIM(THIS.dato_tabla)+".") +THIS.dato xNVal=EVALUATE(xEVA) IF THIS.valor#xNVal * =sys_m("Pre valor") THIS.valor=xNVal ENDIF CATCH TO oEx =sys_m("Error al obtener el dato: " +xEVA+CHR(13)+oEx.MESSAGE) ENDTRY ENDIF THIS.text8.ENABLED=THIS.ENABLED THIS.label2.ENABLED=THIS.ENABLED THIS.text9.FORECOLOR=IIF(THIS.ENABLED , RGB(0,0,0) , RGB(192,192,192) ) IF !THIS.ENABLED THIS.label2.ENABLED=.T. THIS.text8.DISABLEDBACKCOLOR=THIS.BACKCOLOR THIS.text9.DISABLEDBACKCOLOR=THIS.BACKCOLOR THIS.text8.DISABLEDFORECOLOR=THIS.FORECOLOR THIS.text9.DISABLEDFORECOLOR=THIS.FORECOLOR ENDIF IF NOT EMPTY(THIS.tabla_obj_filtro ) THEN THIS.obj_filtro = NEWOBJECT(THIS.tabla_obj_filtro, THIS.tabla_select_proc_ext) **this.obj_filtro.oParent=this ENDIF THIS.mostrar_label = THIS.mostrar_label ENDPROC 6XPROCEDURE campos_agregar PARAMETERS xCampo as Integer,xFormula as String,xLabel as String,; xFormat as String, xTipo as String,xAncho as Integer,xAlinear as string,; xTotal_Final as Boolean,xTotal_Grupo as Boolean, ; xPos as Integer PRIVATE txCam,nIt xPos=chk_value(xPos,0,"N") xTipo=chk_value(xTipo,"C","C") xAlinear=chk_value(xAlinear,IIF(xTipo="N","L","R"),"C") IF TYPE("xCampo")="L" THEN IF !xCampo THEN FOR nIt=1 TO 5 txcam=this.campos_get(nIt) &txCam._pos=0 NEXT RETURN .t. ENDIF ENDIF txcam=this.campos_get(xCampo) &txCam._pos=&txCam._pos+1 xPos=&txCam._pos IF ALEN(&txCam,1)=date()-30*3 Tfecha>=date()-30*6 T.t. 2&T!cerrado and venc>=date()%ve_procs )sys_procesando ProcesandoS F C&#) sys_procesandoQ UXTIPO SP_MENSAJESYS_PROCESANDOXFILTRO XFILTRO_FECHA PS_PRECIOSVE_PROCSTHIS TMP_CURSORTHISFORMTMPSP_OCULTAR_DEFINITIVAMENTEREFRESHGRID1SETFOCUSejecutar01qr111bAUrQ2)#"b%?UTUVNEWVALTHISCOMBOENABLED%o&%Cthis.combo.ValuebCMB1 kB BUTHISCFG_VALOR_LOGICOCOMBOVALUEc'%CvNewValbL ITC6TUVNEWVALTHISCFG_VALOR_LOGICOCOMBOVALUEenabled_assign0cfg_valor_accesstcfg_valor_assign11q12!aQAAA3qqA12Kr9`)6":%U9%2#CC UP_DEVMENSAJETHISPARENTCFG_PARAMETRO_ORIGINAL CFG_PARAMETRO RightClick011A1)"%B 0UTUVNEWVALTHISTEXTOENABLEDBUTHISTEXTOVALUETUVNEWVALTHISTEXTOVALUEenabled_assign0cfg_valor_accesstcfg_valor_assign1q122q11Kr)ShowWindow = 1 DoCreate = .T. timer_init = .F. Name = "hlp2" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.Left = 0 Grid1.Top = 22 Grid1.Name = "Grid1" Text1.Name = "Text1" btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" "4%<mU BUTHIS CFG_VALORT UVNEWVALTHIS CFG_VALORT UVNEWVALTHISENABLEDTTTT T T   T C!C %  %&xVar=xValue UXTPATHXVARXVALUEXPOSXRELTHISCFG_PATHCFG_PARAMETRO_ORIGINAL CFG_VALOR CFG_POSICION CFG_RELATIVOXALLTRIM CFG_ALLTRIMOCFG OBTENER_OCFGAGREGAR INDIVIDUALGRABARCFG_AUTOAPLICAR6#%C THIS.cfg_ocfgbO THb T\ges.cfg T \ges.cfg&T CCFG_Ctrl Sys_cfg.prgT  T a &T  B UXTPATHXVARXVALUEXPOSXRELTHISCFG_PATHXPATHP_LOCALP_SYSTEMOCFGARCHIVOCARGAR INDIVIDUALCFG_OCFGuT %n6Tthis.cfg_ocfg.lineas..Valor UVNEWVALTHISCFG_OCFGCFG_ASIGNAR_PROPIEDADES CFG_PARAMETROCFG_PARAMETRO_ORIGINALINIT_ J%C1TTC(XUTHISCFG_PARAMETRO_ORIGINAL CFG_PARAMETRO CFG_VALOROEXcfg_valor_access0cfg_valor_assignXenabled_assigngrabar obtener_ocfgcfg_ocfg_assignTInit013q"3q"3q~!A!A3q1q11AbA3q"QaA2A1ARA1ew 5X3-J4S)"y%F oUTUTHISVALORMONEDAS_FILTROCODIGO %Cmonedas_filtro B"Q\monedas_filtroF-C%C4 x #)TUP_SYSTEMMONEDAS_FILTROCODIGOTHISVARIABLEVALORInteractiveChange0Inits113!Ar1A24?ZD)"%6nDU}%C :TC STC X TCWTTnselect descr,abrev,cod_cue from cuentas order by descr where &xfiltro into cursor (xcursor) readwrite %  F& (T .descr,abrev,cod_cueT   FUXFILTROXAREAXCURSORXVALUETHIS CONTROLSOURCEPARENTFILTROCURSOR_INTERNOSI_O_SIDESCR ROWSOURCEVALUEREFRESHInit011R!A22bQA2i)8"%U1T T UVNEWVALTHISCOMBO3ENABLEDUenabled_assign0Init1qS"33 )!ButtonCount = 6 BackStyle = 0 BorderStyle = 0 Value = 1 Height = 39 Left = -3 Top = 1 Width = 159 Name = "ogZoom" Option1.Tag = "1" Option1.BackStyle = 0 Option1.Caption = "Ancho" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Top = 4 Option1.Width = 61 Option1.Name = "Option1" Option2.Tag = "2" Option2.BackStyle = 0 Option2.Caption = "Toda" Option2.Value = 0 Option2.Height = 17 Option2.Left = 5 Option2.Top = 20 Option2.Width = 46 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.Tag = "100" Option3.BackStyle = 0 Option3.Caption = "150%" Option3.Value = 0 Option3.Height = 17 Option3.Left = 61 Option3.Top = 3 Option3.Width = 50 Option3.AutoSize = .F. Option3.Name = "Option3" Option4.Tag = "75" Option4.BackStyle = 0 Option4.Caption = "130%" Option4.Value = 0 Option4.Height = 17 Option4.Left = 61 Option4.Top = 19 Option4.Width = 50 Option4.AutoSize = .T. Option4.Name = "Option4" Option5.BackStyle = 0 Option5.Caption = "100%" Option5.Height = 17 Option5.Left = 111 Option5.Top = 3 Option5.Width = 50 Option5.AutoSize = .T. Option5.Name = "Option5" Option6.BackStyle = 0 Option6.Caption = "75%" Option6.Height = 17 Option6.Left = 111 Option6.Top = 20 Option6.Width = 43 Option6.AutoSize = .T. Option6.Name = "Option6" PROCEDURE redimensionar_interno *=sys_m("redim int",this.datos_minimo=0) this.label_ancho = this.lbEtiqueta.Width +this.lbEtiqueta.Left + 5 this.txtexto.Left = MAX(this.datos_minimo,this.label_ancho ) this.datos_ancho = this.txTexto.Left + this.txTexto.Width + 3 this.Width = this.datos_ancho this.redimensionado () ENDPROC PROCEDURE propiedad_asignar LPARAMETERS oPro as Propiedades of sys_propiedades.prg, xHijos as Boolean IF typeo(oPro) THEN This.lbEtiqueta.Caption = oPro.Nombre this.txTexto.Value = oPro.ValOR this.txTexto.Enabled = .t. ELSE This.lbEtiqueta.Caption = "NOT" this.txTexto.Value = "" this.txTexto.Enabled = .f. ENDIF this.redimensionar_interno () ENDPROC ;"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )""\%`tlU C BUAGENTENOMBREf1011)R"99Ē%UCUTHISPARENTPROXIMO#CCUTHISPARENTANTERIOR MOSTRAR_EDITClick0DblClickb122'F{)9R"99Ē%UCUTHISPARENTPROXIMO#CCUTHISPARENTANTERIOR MOSTRAR_EDITClick0DblClickb121'Fy)9".%^rlUBUTHISFORMTIPOABMWhen011)) Anchor = 260 Top = 204 Left = 53 TabIndex = 199 enable_anterior = .T. enable_siguiente = .T. enable_finalizar = .T. enable_inicio = .T. enable_cancelar = .T. Name = "Wizard_buttons1" SIGUIENTE.Caption = "Siguiente >>" SIGUIENTE.Name = "SIGUIENTE" ANTERIOR.Caption = "<< Anterior" ANTERIOR.Name = "ANTERIOR" CANCELAR.Caption = "Cancelar" CANCELAR.Name = "CANCELAR" FINALIZAR.Caption = "Finalizar" FINALIZAR.Name = "FINALIZAR" INICIO.Caption = "Inicio" INICIO.Name = "INICIO" dummy_obj.Name = "dummy_obj" R"99Ē%UCUTHISPARENTPROXIMO#CCUTHISPARENTANTERIOR MOSTRAR_EDITClick0DblClickb122'F{)9R"99Ē%UCUTHISPARENTPROXIMO#CCUTHISPARENTANTERIOR MOSTRAR_EDITClick0DblClickb122'F{)9DataSession = 2 Height = 101 Width = 566 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "" Closable = .F. MaxButton = .F. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 WindowState = 0 arbol = .F. archivoreporte = crreporte = nombregrupo = codigogrupo = descripciongrupo = ordengrupos = crdescripciongrupo = titulo1 = titulo2 = archivotemporal = xdbul = o planillaxls = xdnum1 = 0 xdnum2 = 0 xdnum3 = 0 xdnum4 = 0 xdnum5 = 0 xhnum1 = 0 xhnum2 = 0 xhnum3 = 0 xhnum4 = 0 xhnum5 = 0 xhlog10 = .F. fecha = .T. hlpidu = (Space(10)) archivotexto = ('') param_count = 0 campos_count = 0 xls_totalizar = .F. xls_totalizar_formato = ('###,###,##0.00') xls_number_format = ('') tipo_reporte = 0 campos_separa = ('') campos_encabezado = ('') campos_titulo = ('') campos_orden = ('') planillamdb = param_objetos_usar = .T. xhfec1 = (date(2099,12,31)) formula_count = 0 xls_abrir = 0 xdnum6 = 0 xhnum6 = 0 xdtot_fin = .T. xdtot_sep = .T. filtro_parametro = ('Mostrar_Texto') xdfec2 = {} mostrar_externo = .F. manter_oestado = .F. exportacion = .F. xls_archivo = ("Reporte.xls") xls_archivo_automatico = .T. xls_archivo_preguntar = .T. xhsubgru = .F. xdsubgru = .F. xdsprgru = 0 xhsprgru = 0 cr_showtop = .F. xfecha_reporte = .F. solo_salir = .F. campos_formato = .F. xpdfprompt = .T. xpdfarchivo = .F. xdtipo_art = 0 ayuda_web = ("") xhfec2 = (date(2099,12,31)) xdnum7 = (0) xhnum7 = (0) crversion = ("") crystal_tamao = -1 document_id = ("") log_ejecucion = ("") xdnum8 = (0) xhnum9 = (0) xhnum8 = (0) xdconsolidado = 1 titulo1_parametro = ("") titulo2_parametro = ("") oestado = .F. sininterfaz = .F. osql = .F. archivo_salida_renombra = .T. log_path = ('') xhmar = (0) xdmar = (0) campos_parametros = .F. campos_parametros_original = .F. id_formulario = (Space(50)) id_formulario_evaluado = .F. plantillas_xls_habilitado = (.t.) id_formulario_ultimo = ("") automatizado = .F. version_reporte = 0 Name = "crystal" ;"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)"dato_format = z dato_mask = 99 dato_maxlength = 2 mensaje_error = "Cadena de aprobacin invlida !!!" tabla_ayuda = ayuda_cadenas tabla_codigo = tmp_aprob.id_cad tabla_desc = tmp_aprob.descr tabla_idxcod = id_cad tabla_tabla = tmp_aprob proc_ext = sys_aprobaciones Name = "cod_desc_cad_aprob" Label2.Caption = "Aprobacin" Label2.Top = 8 Label2.Name = "Label2" Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 164 Text9.Top = 4 Text9.Name = "Text9" q"XXv%U0$T invlido !!! CUTHIS MENSAJE_ERROROBUL LABEL_LARGOTUTHISCAPTIONOBUL LABEL_LARGOInit0 Label2.Init1A311Rt)Xl"SS!% :U}Q EXCEPTION T-%%Cthis.obj_filtrobO\T vTTa&%CxFiltrobOC z 3   (v (%  (r Ta% nC -  T 3   (P )  (L Ta% HC - T- F%*CNo se puede obtener ayuda !!!T%CaabCTC TBT aa=&aa T T aa=&aa  F BUXSALIRXFILTROOEXTHIS OBJ_FILTROFILTROES_F1 TABLA_AYUDAPROC_EXTTEXT8VALUEXCOD_CLISOLO_LOS_ACTIVOSP_DEVMENSAJEMESSAGEDETAILS TABLA_TABLAAAVACIO TABLA_CODIGO TABLA_DESCUPDATEDf101RAa1QAAA1AAAA!AAAt12)S"%B 0UBUTHISEDIT1VALUETUVNEWVALTHISEDIT1VALUETUVNEWVALTHISEDIT1ENABLEDcfg_valor_access0cfg_valor_assign^enabled_assign12q12q114[)M"44S%Ud%C /sys_wiki ]$CAyuda no implentada !!!UTHIS DOCUMENT_ID DOCUMENTARSYS_WIKIMENSAJEClick01QAA2)4resultado set_acfodaid Al hacer LOAD setea la DataSssionID a la del form activo en la pantalla (.t./.f.) hlpidu alturadeseada anchodeseado document_id bordedeseado Borde a aplicar en INIT windowstate_deseado Si es -1 no cambia. Si es mayor lo aplica opar_tc opar_tc_cargar opar_tc_frm_name conteo suspendo Poniendo este valor en .t. se habilitan los suspend ancho_inicial altura_inicial timer_demora *asignar_color  "C%M#aU<TTCC]R T\tmp\"T\tmp\CC]R5   TC T C T %T  Where FHSELECT * FROM (xtabla) &xFiltro ORDER BY &xDes INTO TABLE (xcursor2) T CW%_INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) %BaINSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) @SELECT * FROM (xcursor2) ORDER BY &xDes INTO TABLE (xcursor) Q F QF Q%TCWTC#TCC. ,TTUXTABLATHISPARENTTABLACURSORXCURSORP_LOCALXCURSOR2XCODXDESXFILTROXOLDSEL TABLA_CODIGO TABLA_DESCRFILTRO AGREGAR_CERO AGREGAR_CERO1 SELECT_AREAALIAS ROWSOURCE BOUNDCOLUMN DISPLAYVALUE COMBO.Init011!2RQAQAQAAAQA"12)"%Y&(U-T T-T-T-T-% &H" Ta Ta Ta "TaU VNEWVALTHISVALORIMMAILVISIBLEIMHELPIMEDITIMNADAENABLED HABILITADO!sys_ve_fce_mailsndUSYS_VE_FCE_MAILSNDTHISN%&T GTUTHISVALORN%&T GTUTHISVALOR/T TUVNEWVALTHISENABLEDVALOR BC 6UTHIS HABILITADOVALOR valor_assign0 mostrar_editproximoanterior_enabled_assign valor_access1q"QQQQAA32aqA2aqA2q"122(F!""(&.)]"DD% U` TBxCodigo=oHLPABMParent.Clonar_Sugerir_Clave("", &xControl, .t.) UXCODIGOXCONTROLTHIS OBJETO_CLAVET-#%C oHLPABMParentbOTC'T  $TCbO UTHISVISIBLE OHLPABMPARENTCLONAR_SUGERIRTIPOABM SUBTIPOABM OBJETO_CLAVEClick0Init1!21qAC1)DF"--%UX7%    >Ba Q CUTHISVALUEPARENTPERMITIR_LINEAS_ESPECIALES Text8.Valid01qrB1)-UBorderStyle = 2 Height = 251 Width = 470 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Caption" Closable = .F. MaxButton = .F. Enabled = .T. Icon = ("bmp\"+p_icono_sistema) KeyPreview = .T. WindowType = 1 WindowState = 0 set_acfodaid = .T. hlpidu = (Space(10)) alturadeseada = 0 anchodeseado = 0 document_id = ("") bordedeseado = 2 windowstate_deseado = (-1) opar_tc = .F. opar_tc_cargar = .F. opar_tc_frm_name = ("General") conteo = 0 suspendo = .F. ancho_inicial = 0 altura_inicial =  20 timer_demora = 0 Name = "wizard_form" "V%BUsys_wikiU DOCUMENTARSYS_WIKITHISFORM DOCUMENT_ID GTTC TC TC TC T-T-UXXTHISFORM DOCUMENT_IDTHISENABLEDVISIBLE4%-sys_wikiaUP_DEV DOCUMENTARSYS_WIKITHISFORM DOCUMENT_IDClick0Init RightClicku13q21aaAA2B1 &; \ )p"WW%U|T T T T T UVNEWVALTHISENABLEDVAR1TEXT8TEXT9VAR2enabled_assign01q"2)WF"--%UX7%    >Ba Q CUTHISVALUEPARENTPERMITIR_LINEAS_ESPECIALES Text8.Valid01qrB1)-p"WW%U|T T T T T UVNEWVALTHISENABLEDVAR1TEXT8TEXT9VAR2enabled_assign01q"2)W9"  B%5%mUHT TTUVNEWVALTHISENABLEDVAR1VAR2 TC3%C THIS.bie_codbC  T%Cgesp ges%CvbultosFQFQvbultos& & & %CvbultosNT -U XOKTHISCONTROLED_BY_BIEXCODINSBIE_CODGESVBULTOSCLAVECODIGODESCRIDENABLED%TC % T CTC T C  BCU THISCONTROLED_BY_BIEENABLEDBIE_CODOBIEDATA_CODIGO_VACIOGOTFOCUSVAR1VALORVACIOVAR2enabled_assign0GotFocusInit1q"aa32RAqAAAA4!11AA2n $) G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).PROCEDURE Init xtabla = THIS.PARENT.tabla THIS.PARENT.CURSOR = RIGHT(SYS(2015),8) xcursor = p_local+'\tmp\'+THIS.PARENT.CURSOR xcursor2 = p_local+'\tmp\'+RIGHT(SYS(2015),8) PRIVATE xcod,xdes,xFiltro,xoldSel xCod=ALLTRIM(This.Parent.tabla_codigo) xDes=ALLTRIM(this.Parent.tabla_descr) xFiltro='' IF this.Parent.filtro #'' THEN xFiltro=' Where ' + this.Parent.filtro ENDIF SELECT 0 SELECT * FROM (xtabla) &xFiltro ORDER BY &xDes INTO TABLE (xcursor2) xoldSel=SELECT(0) IF this.Parent.agregar_cero THEN INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) ENDIF IF this.Parent.agregar_cero1 THEN INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) ENDIF SELECT * FROM (xcursor2) ORDER BY &xDes INTO TABLE (xcursor) USE SELECT (xoldSel) USE SELECT (THIS.PARENT.select_area) USE (xcursor) IF THIS.PARENT.select_area=0 THEN THIS.PARENT.select_area=SELECT(0) ENDIF THIS.PARENT.ALIAS = ALIAS() THIS.ROWSOURCE = ALLTRIM(ALIAS())+"."+xdes +","+xcod THIS.BOUNDCOLUMN = 2 THIS.DISPLAYVALUE = 1 ENDPROC PROCEDURE LostFocus **nodefault xcodigo=THIS.PARENT.ALIAS+'.' + THIS.PARENT.tabla_codigo THIS.PARENT.valor_desde = &xcodigo ENDPROC PROCEDURE Valid xcodigo=THIS.PARENT.ALIAS+'.' + THIS.PARENT.tabla_codigo xvalor = &xcodigo THIS.PARENT.valor_desde = xvalor ENDPROC E",,G%A%yUHT TTUVNEWVALTHISENABLEDVAR1VAR2%TC % T CTC T C  BCU THISCONTROLED_BY_BIEENABLEDBIE_CODOBIEDATA_CODIGO_VACIOGOTFOCUSVAR1VALORVACIOVAR2 TC3%C THIS.bie_codbC  T%Cgesp ges%C vatributosFQFQ vatributos& & & %C vatributosNT -U XOKTHISCONTROLED_BY_BIEXCODINSBIE_CODGES VATRIBUTOSCLAVECODIGODESCRIDENABLEDenabled_assign0InitGotFocus1q"aa2!11AA32RAqAAAA2),G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).G"..p%UUTHISPARENTINT_PUP_SHOW_POPUPUTHISPARENTSET_DBL RightClick0DblClickp11311Dc).;"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )""uuM%Z m U!   UTHIS GRID_CLEAR DATA_REQUERY GRID_SETST ,T \tmp\tmp_Maq_CCZ#Ttmp_Maq_CCZT U VNEWVALTHISMAQ_COD TABLA_FILEP_LOCAL TMP_ALIASOSEL TABLA_ALIAS DATA_REFRESH G+(pr_planeamiento_grillaTTTCTT BU PR_PLANEAMIENTO_GRILLAXALIASXFILEXOKTHIS TMP_ALIAS TABLA_FILEPR_GRI_DATA_REQUERYMAQ_COD BaU; G+(pr_planeamiento_grillaCUPR_PLANEAMIENTO_GRILLAPR_GRI_TABLA_CREARTHIS TMP_ALIAS TABLA_FILE FSUTHIS TMP_ALIASeTLCDynamicBackColorthis.parent.set_Grid_Colors()ColumnUTHISGRID1 RECORDSOURCE TMP_ALIASSETALLTUTHISGRID1 RECORDSOURCE84 G+(pr_planeamiento_grillaBCUXESTADOPR_PLANEAMIENTO_GRILLAPR_GRI_ESTADO_NAMEf4T%C?T TUXAGRUPARXOLDGTHISOSEL ORD_AGRUPAR ORD_SUBIRf4T%C?T TUXAGRUPARXOLDGTHISOSEL ORD_AGRUPAR ORD_BAJAR! FCUTHIS TMP_ALIASDBLCLICKIDUS 4 G+(pr_planeamiento_grillaC UXIDUXACTUALPR_PLANEAMIENTO_GRILLAPR_GRI_MAQ_UPDATETHIS TMP_ALIASGRID1REFRESH!4CUXIDUTHISFORM PUP_SHOW_MENUTHISMAQ_COD! FCUTHIS TMP_ALIASPUP_SHOW_POPUPIDUO4 F G((IDU E%C4; UXIDUTHIS TMP_ALIASIDUOSEL ORD_ARREGLAR+TC^ TC F%HS |TC^ TC^%C %TC^  TC^ F BUXCOLORXALIASTHIS TMP_ALIAS CAL_ERROREST_COD8 G+(pr_planeamiento_grillaBCUXERRORPR_PLANEAMIENTO_GRILLAPR_GRI_ERROR_NAME4CUXIDUTHISFORMMAQUINAS_MODIFICA CU UTHIS DATA_REFRESH data_refresh0maq_cod_assign data_requeryp maquina_vaciav tabla_crear tabla_limpiar grid_setsA grid_clear estado_name prod_subir prod_bajar-set_dbl maq_updatepup_show_popupint_pup_show_popup& maq_removeuset_grid_colors error_named DblClick Resize Refresh1 13q"1a32q22A3b312q2q2!1A23q2!1A2322qq23qAA2a31a1aAAr1aaAA4q3q271Ns d"s' -":0&[ 5.+B6#O9DS>8YAa]D< bMb nb u f i g k )ub"IIsL%UTa UTHISFORM RESULTADORELEASETa UTHISFORM RESULTADORELEASECommand1.Click0Command2.Clickq132Di)I"<%5` NU C%CProducto Terminado&CProducto en Proceso C Materia Prima$CMateriales VariosC Mano de Obra+CMano de Obra de TercerosUTHISAGREGAR_MANUALESdefinir_valores01QaA1;) PROCEDURE combo_text_access *To do: Modify this routine for the Access method RETURN ALLTRIM(TRANSFORM(EVALUATE(this.alias + "."+this.tabla_descr ))) ENDPROC PROCEDURE combo_value_access *To do: Modify this routine for the Access method RETURN ALLTRIM(TRANSFORM(EVALUATE(this.alias + "."+this.tabla_codigo))) ENDPROC PROCEDURE agregar_manuales lparameters xCursor2, xCod, xDes ENDPROC PROCEDURE valor_access *To do: Modify this routine for the Access method RETURN THIS.valor ENDPROC PROCEDURE valor_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor = m.vNewVal ENDPROC PROCEDURE value_access *To do: Modify this routine for the Access method RETURN THIS.valor_desde ENDPROC PROCEDURE value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_desde = m.vNewVal ENDPROC PROCEDURE readonly_access *To do: Modify this routine for the Access method RETURN THIS.ReadOnly ENDPROC PROCEDURE readonly_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ReadOnly = m.vNewVal this.enabled_manual = not m.vNewVal this.Enabled = not m.vNewVal ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method try this.combo.Enabled=m.vNewVal catch endtry THIS.Enabled = m.vNewVal ENDPROC PROCEDURE par_hasta_access RETURN this.combo_text ENDPROC PROCEDURE par_desde_access RETURN this.combo_value ENDPROC PROCEDURE par_caption_access *To do: Modify this routine for the Access method RETURN THIS.texto.Caption ENDPROC PROCEDURE texto_filtro LPARAMETERS xSecundario IF NOT THIS.texto_filtro_mostrar OR EVALUATE(this.texto_filtro_empty) THEN RETURN "" ENDIF PRIVATE xName,xTexto IF xSecundario THEN xName="" ELSE xName=EVALUATE(this.texto_filtro_caption) ENDIF IF this.texto_filtro_descripcion THEN xTexto=EVALUATE(this.texto_filtro_cod_desc) ELSE xTexto=EVALUATE(this.texto_filtro_codigo) ENDIF RETURN xName+xTexto ENDPROC PROCEDURE GotFocus select (this.alias) ENDPROC PROCEDURE LostFocus **nodefault xcodigo=THIS.ALIAS+'.' + this.tabla_codigo THIS.valor_desde = &xcodigo this.antes_de_salir() ENDPROC PROCEDURE Init NODEFAULT SELE (THIS.ALIAS) LOCA FOR THIS.valor_desde=EVALUATE(this.tabla_codigo) THIS.COMBO.VALUE=THIS.valor_desde xOK=.T. ON ERROR xOK=.F. IF TYPE("This.Desde")="C" THEN THIS.COMBO.CONTROLSOURCE = THIS.desde ENDIF ON ERROR &onErr ENDPROC PROCEDURE valor_hasta_assign LPARAMETERS vnewval nodefault ENDPROC PROCEDURE valor_desde_assign LPARAMETERS vnewval LOCAL xVal, xDescr, xValCod THIS.valor_desde = vnewval SELE (THIS.ALIAS) LOCA FOR m.vnewval = EVALUATE(this.tabla_codigo ) xVal = EVALUATE(this.tabla_codigo ) xDescr = EVALUATE(this.tabla_descr ) THIS.COMBO.VALUE=xVal this.combo.DisplayValue = xDescr ENDPROC PROCEDURE antes_de_salir nodefault ENDPROC ["BBr%UT BCUTHIS LOCALIZACION OLOCALIZACION$4T BCaUXTIPOTHISFORMTIPOABMLoad0Initw12q1C^)B"iiD%/rUIFBCDato invlido !!! Seleccionado CCZ6UTHIS DATO_INVALIDOTEXT8VALUETxvar=&xvar % AT T TCU VNEWVALXVARTHIS TABLA_CODIGOVALORTEXT8VALUETEXT9 TABLA_DESC Bf1U,%  %B-UTHISCODIGO_SI_O_SIAUTO_COMPLETAR4BUXREFRESHvT%CaabCHTC bT%%% C B  B f%T C  % bLCEl valor debe estar entre CC Z y CC Z !!! BU LMENSAJEAATHISVACIOTEXT8VALUECODIGO_SI_O_SIMENSAJE MENSAJE_ERROR DATO_INVALIDODATO_MINDATO_MAX numero_desc0 valor_assignf1~ autocompletar actualizarbuscar1a2quRC"Q22qA3qA2qr!A"AAQ!AA2| Xy!%)iq"XXv%U0$T invlido !!! CUTHIS MENSAJE_ERROROATR LABEL_LARGOTUTHISCAPTIONOATR LABEL_LARGOInit0 Label2.Init1A311Rt)Xx"__P % U"Ccentralcentral%}FG((central ETUDEPOSITOCENTRALTHISPARENT COD_DESC_CTR1VALORupdated01!qA1)_.PROCEDURE combo_text_access *To do: Modify this routine for the Access method RETURN ALLTRIM(this.avalues(this.combo.ListIndex ,1)) ENDPROC PROCEDURE combo_value_access *To do: Modify this routine for the Access method RETURN this.avalues(this.combo.ListIndex,2) ENDPROC PROCEDURE agregar_manuales lparameters xCod, xDes, xPos IF TYPE("xCod")="L" AND TYPE("xDes")="L" AND TYPE("xPos")="L" THEN DIMENSION this.avalues(1,2) STORE .F. TO this.avalues this.Enabled = .f. this.combo.NumberOfElements = 0 RETURN ENDIF IF EMPTY(xPos) THEN IF TYPE("this.avalues(1,1)")="L" AND TYPE("this.avalues(1,2)")="L" THEN xPos=1 ELSE xPos=ALEN(this.avalues,1)+1 ENDIF ENDIF IF ALEN(this.avalues,1)0 THEN THIS.valor_desde = This.aValues(this.combo.ListIndex ,2) ENDIF this.antes_de_salir() ENDPROC PROCEDURE texto_filtro LPARAMETERS xSecundario IF NOT THIS.texto_filtro_mostrar OR EVALUATE(this.texto_filtro_empty) THEN RETURN "" ENDIF PRIVATE xName,xTexto IF xSecundario THEN xName="" ELSE xName=EVALUATE(this.texto_filtro_caption) ENDIF IF this.texto_filtro_descripcion THEN xTexto=EVALUATE(this.texto_filtro_cod_desc) ELSE xTexto=EVALUATE(this.texto_filtro_codigo) ENDIF RETURN xName+xTexto ENDPROC PROCEDURE par_caption_access *To do: Modify this routine for the Access method RETURN THIS.texto.Caption ENDPROC PROCEDURE par_desde_access RETURN this.combo_value ENDPROC PROCEDURE par_hasta_access RETURN this.combo_text ENDPROC  Height = 312 Width = 287 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "" MinButton = .F. MousePointer = 1 Visible = .T. Icon = ("bmp\"+p_icono_sistema) KeyPreview = .T. WindowType = 1 WindowState = 0 LockScreen = .F. titulo = titulo_busqueda = '' id = .F. oldkey = ancho_total = 288 ancho = 100 ancho1 = 0 ancho2 = 0 clave_busqueda1 = clave_busqueda2 = clave_busqueda3 = titulo_columna1 = '' titulo_columna2 = '' titulo_columna3 = '' ancho3 = 0 ancho_grid = 0 filtro = tipo_campo = C tipo_campo2 = C tipo_campo3 = C tipo_campo1 = C cancelado = .F. tipo_campo4 = C tipo_campo5 = C tipo_campo6 = C tipo_campo7 = C tipo_campo8 = C tipo_campo9 = C titulo_columna4 = '' titulo_columna5 = '' titulo_columna6 = '' titulo_columna7 = '' titulo_columna8 = '' titulo_columna9 = '' orden4 = .F. orden5 = .F. orden6 = .F. orden7 = .F. orden8 = .F. orden9 = .F. clave_busqueda4 = clave_busqueda5 = clave_busqueda6 = clave_busqueda7 = clave_busqueda8 = clave_busqueda9 = ancho4 = 0 ancho5 = 0 ancho6 = 0 ancho7 = 0 ancho8 = 0 ancho9 = 0 preposicionado = .F. caption_agregado = .F. form_menos_grid = 0 ajuste_ancho_inicial = .T. ancho10 = 0 clave_busqueda10 = orden10 = .F. tipo_campo10 = C titulo_columna10 = '' indice_actual = .F. format1 = format2 = format3 = format4 = format5 = format6 = format7 = format8 = format9 = format10 = format11 = inputmask1 = inputmask2 = inputmask3 = inputmask4 = inputmask5 = inputmask6 = inputmask7 = inputmask8 = inputmask9 = inputmask10 = inputmask11 = inputmask = format = colid = 0 colid1 = 0 colid2 = 0 colid3 = 0 colid4 = 0 colid5 = 0 colid6 = 0 colid7 = 0 colid8 = 0 colid9 = 0 colid10 = 0 colid_actual = 0 ancho_columna_fill = -1 tilde_habilitar = .F. texto =  9"Filtro" tilde_texto = "Filtro" tilde_filtro = ".t." tilde_valor = .F. grid_mover_arriba = 22 usar_init_timer = .F. orden_numerico = (.f.) orden1_numerico = .F. orden2_numerico = .F. orden3_numerico = .F. orden4_numerico = .F. orden5_numerico = .F. orden6_numerico = .F. orden7_numerico = .F. orden8_numerico = .F. orden9_numerico = .F. orden10_numerico = .F. orden_numerico_actual = .F. Name = "hlp"  PROCEDURE estado_access *To do: Modify this routine for the Access method RETURN THIS.estado ENDPROC PROCEDURE estado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.estado = m.vNewVal this.multiestado_imagen1.estado = m.vNewVal ENDPROC PROCEDURE tooltiptext_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ToolTipText = m.vNewVal this.label1.ToolTipText = m.vNewVal ENDPROC PROCEDURE mostrar_checkbox_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.mostrar_checkbox = m.vNewVal ENDPROC PROCEDURE marcado_access *To do: Modify this routine for the Access meth RETURN THIS.check1.Value ENDPROC PROCEDURE marcado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.check1.Value = m.vNewVal ENDPROC PROCEDURE marcado_habilitado_access *To do: Modify this routine for the Access method RETURN THIS.check1.Enabled ENDPROC PROCEDURE marcado_habilitado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.check1.Enabled = m.vNewVal ENDPROC PROCEDURE margen_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Margen = m.vNewVal ENDPROC PROCEDURE padre_access *To do: Modify this routine for the Access method RETURN THIS.Padre ENDPROC PROCEDURE padre_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Padre = m.vNewVal IF TYPE("m.vNewVal")="O" AND NOT ISNULL(m.vNewVal) THEN BINDEVENT(this.Padre, "Margen_Hijo_asignado",this, "Margen_asignar") ENDIF =this.Resize () ENDPROC PROCEDURE margen_hijo_access *To do: Modify this routine for the Access method RETURN THIS.margen_hijo ENDPROC PROCEDURE margen_hijo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.margen_hijo = m.vNewVal This.margen_asignando_hijo=.t. =this.margen_hijo_asignado (m.vNewVal) This.margen_asignando_hijo=.F. ENDPROC PROCEDURE margen_access *To do: Modify this routine for the Access method IF TYPE("This.Padre")="O" AND NOT ISNULL(This.Padre) THEN RETURN This.Padre.Margen_Hijo ELSE RETURN THIS.margen ENDIF ENDPROC PROCEDURE margen_hijo_asignado LPARAMETERS vNewVal *** Va a parar a Margen porque lo asign el padre. IF NOT This.margen_asignando_hijo THEN this.margen = vNewVal ENDIF ENDPROC PROCEDURE Destroy this.padre = .f. ENDPROC PROCEDURE Resize *Thisform.Caption=thisform.Caption + " R:"+this.Name this.multiestado_imagen1.Height = MAX(this.Height,1) this.multiestado_imagen1.Width = this.multiestado_imagen1.Height this.multiestado_imagen1.Left = this.Width - this.multiestado_imagen1.Width - 2 this.check1.Left = this.margen this.check1.Visible = this.mostrar_checkbox this.label1.Top = Max((this.Height /2) - (this.label1.Height /2),0) this.label1.Left = IIF(this.mostrar_checkbox, this.check1.Left + this.check1.Width , this.margen) this.label1.Width=MAX( this.multiestado_imagen1.Left,1) - this.labeL1.Left This.margen_hijo = this.label1.Left + 10 *This.label1.Caption ="M:"+STR(This.margen)+ " C:"+STR(this.check1.Left) ENDPROC PROCEDURE Init this.Resize ENDPROC !"j%UFG((deposito%IE%!TC%CT -Tcentral=central.central  U DEPOSITOTHISPARENT COD_DESC_DEP1VALORCENTRALVACIOFILTROTHISFORMREFRESHupdated01q!AABaA2)"8%/(UvT 8T B eT oUVNEWVALTHISENABLEDTEXT1TEXT2BUTHISTEXT2VALUEBUTHISTEXT1VALUEBUTHISLABEL1CAPTIONUU,T UVNEWVALTHISTEXT1VALUEVALID,T UVNEWVALTHISTEXT2VALUEVALIDenabled_assign0par_hasta_accesspar_desde_accesspar_caption_access0 LostFocusaInitppar_desde_assignpar_hasta_assign1q"QAQA2222A3A4qQ2qQ1 %Ld"e %)"%2e OU1%*T-UTHISPARENT PAGEORDERENABLED%yMTthis.parent.parent.parent.pageCCZ .setfocus &xpag UXPAGTHISPARENT PAGEORDERInit0Click1A2~A2 )"%2&UH%  B5 T %%C T %T: C_ 8T: C_ - C_(8% 4C :    BU THISTEXTO_FILTRO_MOSTRARXTEXTOTEXT1VALUETEXT2LABEL1CAPTIONOEXP_DEVMENSAJENAMEMESSAGEUU/TTUTHISTEXT1 CONTROLSOURCEDESDETEXT2HASTA-TTUVNEWVALTHIS VALOR_DESDETEXT1VALUE-TTUVNEWVALTHIS VALOR_HASTATEXT2VALUE texto_filtro0 LostFocusDestroyInit valor_desde_assigntvalor_hasta_assign11AqqQAAAB3A3A3aa3q13q12'2P[!v%:*"c0)" %K'UT-T-T-T-T-T-T-T-T -T -T -T -T TT-T-UTHIS DOCK_ALTURA DOCK_ANCHO POS_ABAJO POS_ARRIBA POS_DERECHA POS_IZQUIERDAIGUALAR_ALTURA IGUALAR_ANCHOMARGEN_DERECHOMARGEN_INFERIORMARGEN_IZQUIERDOMARGEN_SUPERIORSEP_HORIZONTAL SEP_VERTICALCENTRAR_HORIZONTALCENTRAR_VERTICALclear011)"ER%F-Ug TC%W)%Cthis.control_bultosbO%~T T  ,%Cthis.control_atributosbOS%T  5T      BU XOKTHISCONTROLA_BUL_ATR VALOR_DESDE VALOR_HASTACONTROL_BULTOSBIE_CODINITGOTFOCUSCONTROL_ATRIBUTOST  TC%D)%Cthis.control_bultosbC%CbOTTHIS.control_bultos = &xCon Ta,%Cthis.control_atributosbC@%CbO<T"THIS.control_atributos = &xCon Ta BUXOKXCONTHISCONTROLA_BUL_ATRCONTROL_BULTOSCONTROLED_BY_BIECONTROL_ATRIBUTOSantes_de_salir0Init1q"a1ABa1AAA3"AA!AAA2 );"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)"gPROCEDURE inicializar LPARAMETERS oContenedor, oCFG1, oCFG2 IF TYPE("oContenedor")="O" THEN this.contenedor = oContenedor ELSE this.contenedor = This.Parent ENDIF this.oCFG1 = oCFG1 this.ocfg2 = oCFG2 oCFG1.cfg_asignar_propiedades = this.cfg_asignar_propiedades oCFG1.cfg_crear_propiedades = this.cfg_crear_propiedades oCFG2.cfg_asignar_propiedades = this.cfg_asignar_propiedades oCFG2.cfg_crear_propiedades = this.cfg_crear_propiedades This.Propagar_ocfg ENDPROC PROCEDURE grabar IF TYPE("this.contenedor")<>"O" THEN RETURN .f. ENDIF LOCAL xYGrupo, xTGrupo, xHGrupo, xOK, oEx xYGrupo=This.cfg_grupo xHGrupo=This.cfg_grupo_hijo FOR EACH oCtrl IN this.contenedor.Objects TRY xOK = (xYGrupo=oCtrl.CFG_Grupo) IF UPPER(oCtrl.Class)="CFG_CONTROL" THEN xOK = .f. ENDIF xOK=xOK AND oCTRL.CFG_Grabar CATCH TO oEx xOK = .f. ENDTRY IF xOK THEN oCtrl.Grabar ENDIF NEXT FOR EACH oCtrl IN this.contenedor.Objects IF UPPER(oCtrl.Class)="CFG_CONTROL" AND xHGrupo=oCtrl.CFG_Grupo AND oCTRL.CFG_Grabar THEN oCtrl.Grabar ENDIF NEXT this.propagar_enabled_otros ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enabled = m.vNewVal THIS.enabled_Hijos = m.vNewVal This.Propagar_Enabled() ENDPROC PROCEDURE propagar_enabled IF TYPE("this.contenedor")<>"O" THEN RETURN .f. ENDIF LOCAL xYGrupo, xTGrupo, xHGrupo xYGrupo=This.cfg_grupo xHGrupo=This.cfg_grupo_hijo FOR EACH oCtrl IN this.contenedor.Objects TRY xTGrupo=oCtrl.CFG_Grupo IF UPPER(oCtrl.Class)="CFG_CONTROL" THEN xTGrupo=0 ENDIF CATCH xTGrupo=0 ENDTRY IF xTGRupo=xYGrupo THEN oCtrl.Enabled=This.Enabled ENDIF NEXT FOR EACH oCtrl IN this.contenedor.Objects IF UPPER(oCtrl.Class)="CFG_CONTROL" AND xHGrupo=oCtrl.CFG_Grupo THEN oCtrl.Enabled=this.Enabled_Hijos ENDIF NEXT this.propagar_enabled_otros ENDPROC PROCEDURE enabled_hijos_access *To do: Modify this routine for the Access method RETURN THIS.Enabled_Hijos ENDPROC PROCEDURE enabled_hijos_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled_Hijos = m.vNewVal This.Propagar_Enabled_Hijos() ENDPROC PROCEDURE propagar_enabled_hijos IF TYPE("this.contenedor")<>"O" THEN RETURN .f. ENDIF LOCAL xYGrupo, xTGrupo, xHGrupo xYGrupo=This.cfg_grupo xHGrupo=This.cfg_grupo_hijo FOR EACH oCtrl IN this.contenedor.Objects IF UPPER(oCtrl.Class)="CFG_CONTROL" AND xHGrupo=oCtrl.CFG_Grupo THEN oCtrl.Enabled=this.Enabled_Hijos ENDIF NEXT this.propagar_enabled_otros ENDPROC PROCEDURE leer_valores_iniciales LPARAMETERS xFiltro this.avfp_log("Inicia lectura") IF TYPE("xFiltro")="C" THEN this.filtro = xFiltro ENDIF LOCAL xDD AS STRING , xStr , nVal, xN, xSDD, oEX, xIt LOCAL oDF2 AS deyfunc OF dey_func2.prg oDF2=NEWOBJECT("deyfunc", "dey_func2.prg") this.avfp_log("Pos_DeyFunc") LOCAL ARRAY dVal(1) xDD=FORCEEXT(oDF2.NewFile_Local_Tmp(), "TXT") *this.avfp_log("Memorizando a: " + xDD) LIST MEMORY LIKE (this.Filtro+"*") TO FILE (xDD) NOCONSOLE *this.avfp_log("Memorizado a: " + xDD) xStr=FILETOSTR(xDD) DELETE FILE (xDD) nVal=ALINES(dVal,xStr) LOCAL nPos LOCAL ARRAY aVal(nVal,3) xN=1 FOR xIt=1 TO ALEN(dVal,1) xStr=dVal(xIt) TRY nPos = AT(" ",xStr ) IF nPos>0 THEN xSDD = ALLTRIM(LEFT(xStr ,nPos )) ELSE xSDD = ALLTRIM(xStr) ENDIF IF LEFT(UPPER(xSDD ),2)=This.filtro THEN aVal(xN,1)=xSDD xN=xN+1 ENDIF CATCH ENDTRY NEXT this.avfp_log("Termin la lectura de lneas") DIMENSION aVal(xN,3) this.avfp_log("Inicia el objetivado:" + ALLTRIM(STR(ALEN(aVal,1)))) FOR xN=1 TO ALEN(aVal,1) TRY aVal(xN,2) = EVALUATE(aVal(xN,1)) THIS.oCFG3.Agregar(aVal(xN,1),aVal(xN,2)) CATCH TO oEX aVal(xN,2) = "NODATAOERROR" aVal(xN,3) = .T. ENDTRY NEXT this.avfp_log("Termin el objetivado") ENDPROC PROCEDURE propagar_ocfg IF TYPE("this.contenedor")<>"O" THEN RETURN .F. ENDIF LOCAL xYGrupo, xTGrupo, xHGrupo, xOK, oEx xYGrupo=THIS.cfg_grupo xHGrupo=THIS.cfg_grupo_hijo FOR EACH oCtrl IN THIS.contenedor.OBJECTS TRY xOK = (xYGrupo=oCtrl.cfg_grupo) IF UPPER(oCtrl.CLASS)="CFG_CONTROL" THEN xOK = .F. ENDIF IF xOK THEN oCtrl.CFG_oCFG=IIF(oCtrl.cfg_path=1, THIS.ocfg1, THIS.ocfg2) ENDIF CATCH TO oEx xOK = .F. ENDTRY NEXT FOR EACH oCtrl IN THIS.contenedor.OBJECTS IF UPPER(oCtrl.CLASS)="CFG_CONTROL" AND xHGrupo=oCtrl.cfg_grupo AND oCtrl.CFG_Grabar THEN oCtrl.ocfg1=THIS.ocfg1 oCtrl.ocfg2=THIS.ocfg2 oCtrl.cfg_asignar_propiedades = THIS.cfg_asignar_propiedades oCtrl.cfg_crear_propiedades = THIS.cfg_crear_propiedades oCtrl.Propagar_OCFG ENDIF NEXT ENDPROC PROCEDURE controlar_pordefecto LPARAMETERS oCFG as cfg_ctrl of SYS_CFG.prg This.oCFG3.Comparar_Valores(@oCFG) ENDPROC PROCEDURE publicar_valores_iniciales LPARAMETERS xFiltro IF TYPE("xFiltro")="C" THEN this.filtro = xFiltro ENDIF This.avfp_log ("Leyendo valores...") =This.leer_valores_iniciales() This.avfp_log ("Leidos, publicando...") =This.oCFG3.Publicar_Valores() This.avfp_log ("Termin la publicacin") ENDPROC PROCEDURE avfp_log LPARAMETERS xtexto, xreinicializar IF this.xdebug AND NOT EMPTY(THIS.logpath) THEN SET ALTERNATE TO (THIS.logpath+"log.txt") ADDITIVE SET ALTERNATE ON SET CONSOLE OFF ? TIME(0)+" "+PADR("CFG_Control: ",30) + xtexto SET CONSOLE OFF SET ALTERNATE TO ENDIF ENDPROC PROCEDURE Init this.oCFG3 = NEWOBJECT("CFG_CTRL", "SYS_CFG.PRG") this.ocfg3.CFG_Crear_Propiedades=this.CFG_Crear_Propiedades ENDPROC  korden Orden de la tabla titulo Ttulo del formulario clave_busqueda Clave de la busqueda y dato de la columna 1 titulo_busqueda Ttulo de la columna 1 tabla Tabla de los datos clave Campo clave de la tabla id Id de los listados y abm comienzo oldkey oldbuffering ancho_total Ancho total del Form ancho Ancho de la columna 1 ancho1 Ancho de la columna 2 ancho2 Ancho de la columna 3 clave_busqueda1 Dato columna 2 clave_busqueda2 Dato columna 3 clave_busqueda3 Dato columna 4 titulo_columna1 Ttulo columna 2 titulo_columna2 Ttulo comlumna 3 titulo_columna3 Ttulo columna 4 ancho3 Ancho de la columna 4 ancho_grid Ancho del grid - 0=Ancho Total orden1 Orden columna 2 orden2 Orden columna 3 orden3 Orden columna 3 orden_actual Orden actual de muestra y bsqueda columna_actual Nmero de la columna actual registro filtro Se usa internamente para corregir un problema que existe con tablas filtradas. tipo_campo tipo_campo2 tipo_campo3 clave_busqueda_actual tipo_campo1 tipo_campo_actual buscar_txt cancelado tipo_campo4 tipo_campo5 tipo_campo6 tipo_campo7 tipo_campo8 tipo_campo9 titulo_columna4 titulo_columna5 titulo_columna6 titulo_columna7 titulo_columna8 titulo_columna9 orden4 orden5 orden6 orden7 orden8 orden9 clave_busqueda4 clave_busqueda5 clave_busqueda6 clave_busqueda7 clave_busqueda8 clave_busqueda9 ancho4 ancho5 ancho6 ancho7 ancho8 ancho9 preposicionado Establece si la tabla ya se encuentra preposicionada en el registro inicial caption_agregado form_menos_grid Ancho del form - ancho del grid ajuste_ancho_inicial ancho10 clave_busqueda10 orden10 tipo_campo10 titulo_columna10 indice_actual format1 format2 format3 format4 format5 format6 format7 format8 format9 format10 format11 inputmask1 inputmask2 inputmask3 inputmask4 inputmask5 inputmask6 inputmask7 inputmask8 inputmask9 inputmask10 inputmask11 inputmask Specifies how data is entered and displayed in a control. format Specifies the input and output formatting of a control's Value property. colid colid1 colid2 colid3 colid4 colid5 colid6 colid7 colid8 colid9 colid10 colid_actual ancho_columna_fill tilde_habilitar texto tilde_texto tilde_filtro tilde_valor grid_mover_arriba usar_init_timer orden_numerico Si se pone en .T. se trata de un campo de texto a tratar como numrico orden1_numerico orden2_numerico orden3_numerico orden4_numerico orden5_numerico orden6_numerico orden7_numerico orden8_numerico orden9_numerico orden10_numerico orden_numerico_actual Si se establece en .T. el cdigo se intentar usar como numrico *tecla *actualizar Actualiza el display *salida Release del Form *header_click Cliick en el header, cambio de orden *en_foco no funciona *alineacion *caption_agregado_assign *sale_del_foco no funciona *ajustar_ancho *filtrar *inicializar_controles *asignar_color VPROCEDURE texto_filtro IF NOT THIS.texto_filtro_mostrar THEN RETURN "" ENDIF PRIVATE xTexto xTexto="" TRY IF THIS.text1.VALUE==THIS.text2.VALUE OR (EMPTY(THIS.text1.VALUE) AND THIS.text1.VALUE>{^2010-01-01} ) THEN IF EMPTY(THIS.text1.VALUE) THEN xTexto="" ELSE xTexto=THIS.laBEL1.CAPTION +": "+TRANSFORM(THIS.text1.VALUE) ENDIF ELSE xTexto=THIS.laBEL1.CAPTION +": " IF NOT EMPTY(THIS.text1.VALUE) THEN xTexto=xTexto+ TRANSFORM(THIS.text1.VALUE) +" Hasta: "+ TRANSFORM(THIS.text2.VALUE) ELSE xTexto=xTexto+" Hasta: "+ TRANSFORM(THIS.text2.VALUE) ENDIF ENDIF CATCH TO oEX IF p_dev THEN =mensaje(THIS.NAME + ": " + oEX.MESSAGE) ENDIF ENDTRY RETURN xTexto ENDPROC PROCEDURE valor_desde_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.text1.Value = m.vNewVal THIS.VALOR_DESDE = m.vNewVal ENDPROC PROCEDURE valor_hasta_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.text2.Value = m.vNewVal THIS.VALOR_HASTA = m.vNewVal ENDPROC PROCEDURE Init NODEFAULT IF TYPE("this.desde")="C" THEN THIS.text1.CONTROLSOURCE = THIS.desde ENDIF IF TYPE("this.hasta")="C" THEN THIS.text2.CONTROLSOURCE = THIS.hasta ENDIF ENDPROC PROCEDURE LostFocus nodefault ENDPROC PROCEDURE Text1.RightClick sys_fecha=this.Value do fecha_menu.mpr this.Value=sys_fecha ENDPROC PROCEDURE Text1.GotFocus this.Parent.valor_desde_anterior = this.value ENDPROC PROCEDURE Text1.DblClick *#DEFINE VK_lSHIFT 0x10 && Relocate to a header file #DEFINE VK_lCONTROL 0x11 && Relocate to a header file #DEFINE VK_lAlt 0x12 && Relocate to a header file DECLARE INTEGER GetKeyState IN WIN32API INTEGER && Relocate to where WinAPI calls are declared LOCAL xValAlt, xValCTRL xValAlt=GetKeyState(VK_lAlt) xValCTRL=GetKeyState(VK_lCONTROL) * =sys_m("Doble") DO CASE CASE (xValCTRL < 0 OR xValCTRL > 1 ) AND (xValAlt< 0 OR xValAlt> 1) this.Value=oDeyFunc.dt_mes_anterior_primer_dia(DATE()) CASE xValAlt< 0 OR xValAlt> 1 this.Value=oDeyFunc.dt_mes_primer_dia(DATE()) CASE xValCTRL < 0 OR xValCTRL > 1 this.Value=oDeyFunc.dt_ao_primer_dia(DATE()) OTHERWISE this.Value=DATE() ENDCASE ENDPROC PROCEDURE Text2.RightClick sys_fecha=this.Value do fecha_menu.mpr this.Value=sys_fecha ENDPROC PROCEDURE Text2.GotFocus this.Parent.valor_hasta_anterior = this.value ENDPROC PROCEDURE Text2.DblClick *#DEFINE VK_lSHIFT 0x10 && Relocate to a header file #DEFINE VK_lCONTROL 0x11 && Relocate to a header file #DEFINE VK_lAlt 0x12 && Relocate to a header file DECLARE INTEGER GetKeyState IN WIN32API INTEGER && Relocate to where WinAPI calls are declared LOCAL xValAlt, xValCTRL xValAlt=GetKeyState(VK_lAlt) xValCTRL=GetKeyState(VK_lCONTROL) LOCAL xFechaReferencia xFechaReferencia=THIS.PARENT.text1.VALUE IF EMPTY(xFechaReferencia) THEN DO CASE CASE xValAlt< 0 OR xValAlt> 1 THIS.VALUE=DATE(YEAR(DATE()), MONTH(DATE()),1) CASE xValCTRL < 0 OR xValCTRL > 1 THIS.VALUE=DATE(YEAR(DATE()), 1,1) OTHERWISE THIS.VALUE=DATE() ENDCASE ELSE DO CASE CASE (xValCTRL < 0 OR xValCTRL > 1 ) AND (xValAlt< 0 OR xValAlt> 1) this.Value=oDeyFunc.dt_mes_siguiente_ultimo_dia(xFechaReferencia) CASE xValAlt< 0 OR xValAlt> 1 THIS.VALUE=oDeyFunc.dt_mes_ultimo_dia(xFechaReferencia) CASE xValCTRL < 0 OR xValCTRL > 1 THIS.VALUE=oDeyFunc.dt_ao_ultimo_dia(xFechaReferencia) OTHERWISE THIS.VALUE=DATE() ENDCASE ENDIF ENDPROC PROCEDURE Text2.LostFocus this.Parent.updated ENDPROC  " % g/ U%  B5 T F%$COBA  %C T %T: C_ ~T: %C I3TC_ Hasta: C_ z'T Hasta: C_(% C :    BU THISTEXTO_FILTRO_MOSTRARXTEXTOTEXT1VALUETEXT2LABEL1CAPTIONOEXP_DEVMENSAJENAMEMESSAGE1T T UVNEWVALTHISTEXT1VALUE VALOR_DESDE1T T UVNEWVALTHISTEXT2VALUE VALOR_HASTA{ %C this.desdebC:T %C this.hastabCtTUTHISTEXT1 CONTROLSOURCEDESDETEXT2HASTAU8Tfecha_menu.mprTU SYS_FECHATHISVALUE FECHA_MENUMPRTUTHISPARENTVALOR_DESDE_ANTERIORVALUE2 | GetKeyStateWIN32API TCTCH^+6      TCC$   TCC$   TCC$ 2+TC$U GETKEYSTATEWIN32APIXVALALTXVALCTRLTHISVALUEODEYFUNCDT_MES_ANTERIOR_PRIMER_DIADT_MES_PRIMER_DIADT_AO_PRIMER_DIA8Tfecha_menu.mprTU SYS_FECHATHISVALUE FECHA_MENUMPRTUTHISPARENTVALOR_HASTA_ANTERIORVALUE | GetKeyStateWIN32API TCTCT%CH   TCCC$iCC$H$   TCCC$i$ 2TC$  H36      TC    TC    TC 2TC$U GETKEYSTATEWIN32APIXVALALTXVALCTRLXFECHAREFERENCIATHISPARENTTEXT1VALUEODEYFUNCDT_MES_SIGUIENTE_ULTIMO_DIADT_MES_ULTIMO_DIADT_AO_ULTIMO_DIA UTHISPARENTUPDATED texto_filtro0valor_desde_assignvvalor_hasta_assignInit< LostFocusText1.RightClickText1.GotFocushText1.DblClickText2.RightClickqText2.GotFocusText2.DblClick&Text2.LostFocus 11AqbqQA1qAAAB3qR!3qR!3AaAaA4A4R3a2aaaaA2R3a2raAaAA32! .($I/,!:.H?2G4JC ` `G hI ke6K) PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 nKeyCode=0 =this.dblclick() nodefault endif ENDPROC PROCEDURE DblClick *#DEFINE VK_lSHIFT 0x10 && Relocate to a header file #DEFINE VK_lCONTROL 0x11 && Relocate to a header file #DEFINE VK_lAlt 0x12 && Relocate to a header file DECLARE INTEGER GetKeyState IN WIN32API INTEGER && Relocate to where WinAPI calls are declared LOCAL xValAlt, xValCTRL xValAlt=GetKeyState(VK_lAlt) xValCTRL=GetKeyState(VK_lCONTROL) DO CASE CASE xValAlt< 0 OR xValAlt> 1 this.Value=DATE(YEAR(DATE()), MONTH(DATE()),1) CASE xValCTRL < 0 OR xValCTRL > 1 this.Value=DATE(YEAR(DATE()), 1,1) OTHERWISE this.Value=DATE() ENDCASE ENDPROC PROCEDURE GotFocus this.valor_anterior = this.Value ENDPROC PROCEDURE Valid do case case this.validacion=1 * Fin de mes local xerr xerr=.f. if !empty(this.Value) if month(this.Value)=12 if day(this.Value)=31 * ok else xerr=.t. endif else if this.Value=date(year(this.Value), month(this.Value)+1, 1)-1 * ok else xerr=.t. endif endif endif if xerr mensaje("Debe ser el ltimo da del mes !!!") return .f. endif case this.validacion=2 * Fin de quincena local xerr xerr=.f. if !empty(this.Value) if month(this.Value)=12 if day(this.Value)=31 or day(this.Value)=15 * ok else xerr=.t. endif else if this.Value=date(year(this.Value), month(this.Value)+1, 1)-1 or day(this.Value)=15 * ok else xerr=.t. endif endif endif if xerr mensaje("Debe ser 15 o el ltimo da del mes !!!") return .f. endif endcase IF this.dias_para_adelante>-1 if this.Value>DATE()+this.dias_para_adelante mensaje("La fecha mxima es "+DTOC(DATE()+this.dias_para_adelante)+" !!!") return .f. endif ENDIF IF this.dias_para_atras>-1 if this.Value>DATE()-this.dias_para_atras mensaje("La fecha mnima es "+DTOC(DATE()+this.dias_para_atras)+" !!!") return .f. endif ENDIF return .t. *!* do case *!* case this.validacion=1 *!* * Fin de mes *!* *!* local xerr *!* xerr=.f. *!* if !empty(this.Value) *!* if month(this.Value)=12 *!* if day(this.Value)=31 *!* * ok *!* else *!* xerr=.t. *!* endif *!* else *!* if this.Value=date(year(this.Value), month(this.Value)+1, 1)-1 *!* * ok *!* else *!* xerr=.t. *!* endif *!* endif *!* endif *!* if xerr *!* mensaje("Debe ser el ltimo da del mes !!!") *!* return 0 *!* endif *!* *!* case this.validacion=2 *!* * Fin de quincena *!* local xerr *!* xerr=.f. *!* if !empty(this.Value) *!* if month(this.Value)=12 *!* if day(this.Value)=31 or day(this.Value)=15 *!* * ok *!* else *!* xerr=.t. *!* endif *!* else *!* if this.Value=date(year(this.Value), month(this.Value)+1, 1)-1 or day(this.Value)=15 *!* * ok *!* else *!* xerr=.t. *!* endif *!* endif *!* endif *!* if xerr *!* mensaje("Debe ser 15 o el ltimo da del mes !!!") *!* return 0 *!* endif *!* endcase *!* IF this.dias_para_adelante>-1 *!* if this.Value>DATE()+this.dias_para_adelante *!* mensaje("La fecha mxima es "+DTOC(DATE()+this.dias_para_adelante)+" !!!") *!* return 0 *!* endif *!* ENDIF *!* IF this.dias_para_atras>-1 *!* if this.Value>DATE()-this.dias_para_atras *!* mensaje("La fecha mnima es "+DTOC(DATE()+this.dias_para_atras)+" !!!") *!* return 0 *!* endif *!* ENDIF *!* return 1 ENDPROC PROCEDURE RightClick sys_fecha=this.Value do fecha_menu.mpr this.Value=sys_fecha ENDPROC PROCEDURE propiedad_access *To do: Modify this routine for the Access method RETURN THIS.propiedad ENDPROC PROCEDURE propiedad_assign LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg this.eliminar_hijos () IF NOT typeo(oPro) THEN RETURN .F. ENDIF LOCAL xHijos, xSEP, nIt xSEP="" xHijos=.T. =THIS.propiedad_pre(@oPro) =THIS.propiedad_asignar(@oPro) IF typeo(oPro) THEN *!* IF oPro.Hijos.COUNT=1 AND oPro.Hijos.ITEM(1).Hijos.COUNT>0 THEN *!* *!* oPro=oPro.Hijos.ITEM(1) *!* *!* *This.Propiedad_asignar(@oPro, @xHijos) *!* *!* This.cont_hijos_crear = .f. *!* *!* xSEP="DD-" *!* ENDIF ENDIF THIS.propiedad = oPro LOCAL oPro2 AS Propiedades OF sys_propiedades.prg * This.Eliminar_Hijos() *=sys_m("Pro hijos:"+oPro.Nombre) IF typeo(oPro) AND THIS.cont_hijos_crear THEN FOR EACH oPro2 IN oPro.Hijos oPro2.Hijos_cargar IF oPro.tipo=3 AND ((VAL(oPro.Valor)#0 AND VAL(oPro.Valor)#oPro2.Codigo) OR oPro2.hijos.Count = 0) THEN LOOP ENDIF oPro2.Nombre=xSEP+oPro2.Nombre *=sys_m("null", typeo(oPro2) ) THIS.Propiedad_Propio_crear (@oPro2) =THIS.propiedad_hijos(@oPro2) NEXT ENDIF =THIS.propiedad_pos(@oPro) IF this.contenedor_principal THEN this.redimensionar_internos () ENDIF ENDPROC PROCEDURE propiedad_pre LPARAMETERS oPro as Propiedades of sys_propiedades.prg ENDPROC PROCEDURE propiedad_pos LPARAMETERS oPro as Propiedades of sys_propiedades.prg ENDPROC PROCEDURE propiedad_hijos LPARAMETERS oPro as Propiedades of sys_propiedades.prg ENDPROC PROCEDURE propiedad_asignar LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg, xHijos as Boolean DO CASE CASE NOT typeo(oPro) OR NOT this.container_princial RETURN .F. CASE oPro.AccioN =0 THIS.Propiedad_Propio_Crear(oPro, @xHijos ) OTHERWISE THIS.Propiedad_Propio_Crear(oPro, @xHijos) ENDCASE ENDPROC PROCEDURE propiedad_propio_crear LPARAMETERS oPro as Propiedades of sys_propiedades.prg, xHijos as Boolean LOCAL oCN as Propiedades_Container OF Clases.vcx LOCAL xNombre as String xNOSuspender=.f. *=sys_m("Pro Crear: "+oPro.Nombre,xNOSuspender) oPro.Hijos_Cargar xNombre=this.Cont_obtener_nombre (oPro) DO CASE CASE oPro.Tipo=1 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Label:" + oPro.nomBRE , xNOSuspender) = this.AddObject(xNombre, "propiedades_label",oPro, This) CASE oPro.Tipo=2 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Checkbox", xNOSuspender) = this.AddObject(xNombre, "propiedades_checkbox",oPro, This) xHijos=.f. CASE oPro.Tipo=3 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Combo", xNOSuspender) DO CASE CASE oPro.EtiquetA = 1 = this.AddObject(xNombre, "propiedades_lis_combo",oPro, This) OTHERWISE = this.AddObject(xNombre, "propiedades_lis_combo_NoName",oPro, This) ENDCASE xHijos=.f. CASE oPro.Tipo=4 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Checkbox", xNOSuspender) = this.AddObject(xNombre, "propiedades_texto",oPro, This) xHijos=.f. CASE oPro.Tipo=5 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Checkbox", xNOSuspender) = this.AddObject(xNombre, "propiedades_cuadro_texto",oPro, This) xHijos=.f. CASE oPro.Tipo=6 SET CLASSLIB TO clases.vcx ADDITIVE *=sys_m("Checkbox", xNOSuspender) = this.AddObject(xNombre, "propiedades_numero",oPro, This) xHijos=.f. OTHERWISE RETURN .f. ENDCASE oCN=This.cont_obtener_objeto(oPro) oCN.BorderWidth = this.BorderWidth oCN.Top=this.cont_hijos_Top_offset + This.cont_hijos_Top_Separacion oCN.Left=this.cont_hijos_left_offset + This.cont_hijos_Left_Separacion oCN.Visible=.t. This.Height = oCN.Top + oCN.Height *This.cont_hijos_Top_offset = This.cont_hijos_Top_offset + oCN.Height +This.cont_hijos_Top_Separacion *this.cont_hijos_left_offset =this.cont_hijos_left_offset+This.cont_hijos_Left_Separacion This.contenedores.Add(oCN, oCN.Name ) This.Redimensionar (oCN) ENDPROC PROCEDURE cont_obtener_nombre LPARAMETERS oPro as Propiedades of sys_propiedades.prg RETURN "cn"+STRTRAN(oPro.Rama,"\","_") ENDPROC PROCEDURE cont_obtener_objeto LPARAMETERS oPro as Propiedades of sys_propiedades.prg LOCAL oCN as propiedades_container of clases.vcx xNombre="This."+This.cont_obtener_nombre(oPro) oCN=&xNombre RETURN oCN ENDPROC PROCEDURE redimensionar LPARAMETERS oCN AS Propiedades_Container OF Clases.vcx, xQuitar LOCAL xTop,xHeight, xWidth,xLeft *=sys_m("Redir: " + THIS.NAME) IF THIS.Contenedores.COUNT>0 THEN xLeft = THIS.cont_hijos_left_offset + THIS.cont_hijos_left_separacion xTop=0 xWidth=0 xHeight=0 FOR EACH oCN IN THIS.Contenedores oCN.TOP = xTop + this.cont_propio_top_offset xTop = oCN.TOP + oCN.HEIGHT +THIS.cont_hijos_Top_offset + THIS.cont_hijos_top_separacion oCN.LEFT = xLeft xWidth=MAX(oCN.LEFT + oCN.WIDTH ,xWidth) NEXT IF NOT this.redimencionar_bloqueado THEN THIS.WIDTH = xWidth THIS.HEIGHT = xTop ENDIF ENDIF THIS.redimensionado () ENDPROC PROCEDURE redimensionado IF typeo(This.Padre) THEN this.Padre.redimensionar(this) ENDIF ENDPROC PROCEDURE dispose *=sys_m("Dispose: "+This.Name) This.Eliminar_Hijos() This.Padre = .f. ENDPROC PROCEDURE eliminar_hijos IF Typeo(this.contenedores) THEN FOR EACH oCN IN this.Contenedores oCN.Dispose () NEXT =this.contenedores.Clear() ENDIF ENDPROC PROCEDURE propiedad_valores_asignar LOCAL oCon this.propiedad_valor_asignar() FOR EACH oCon IN this.contenedores oCon.propiedad_valores_asignar() NEXT ENDPROC PROCEDURE propiedades_leer LPARAMETERS oPro this.propiedad = oPro =This.propiedad_valores_asignar() ENDPROC PROCEDURE redimensionar_internos LPARAMETERS oCN AS Propiedades_Container OF Clases.vcx, xQuitar LOCAL xDatos_media, xDatos_Max, xLabel_Ancho xDatos_media=0 xLabel_Ancho=0 xDatos_Max=0 IF THIS.Contenedores.COUNT>0 THEN FOR EACH oCN IN THIS.Contenedores oCN.Redimensionar_internos xLabel_Ancho=xLabel_Ancho+oCN.label_ancho xDatos_Max=MAX(xDatos_Max, oCN.label_ancho ) NEXT xDatos_media=xLabel_Ancho / THIS.Contenedores.COUNT FOR EACH oCN IN THIS.Contenedores xDatos_Max=MAX(IIF( oCN.label_ancho > xDatos_media*1.2, xDatos_Max ,oCN.label_ancho ), xDatos_Max) NEXT FOR EACH oCN IN THIS.Contenedores oCN.reacomodar_datos(xDatos_Max) NEXT ENDIF THIS.redimensionar_interno THIS.redimensionar() ENDPROC PROCEDURE reacomodar_datos LPARAMETERS xDato_Left this.datos_minimo = xDato_Left this.redimensionar_internos() ENDPROC PROCEDURE Destroy This.Dispose ENDPROC PROCEDURE Init LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg, oCN as Propiedades_Container as Clases.vcx IF this.Ocultar_Borde THEN this.BorderWidth = 0 ENDIF This.Padre = oCN this.contenedores = NEWOBJECT("Contenedores","Sys_Propiedades.prg") This.Propiedad = oPro this.Resize ENDPROC  ࡱ> Root Entry@lh@OleObjectDataxAccessObjSiteData&\ChangedPropsg8j(6(!C47f,~4ͫS\$89368265E-85FE-11d1-8BE3-0000F8754DA1H3 %PROCEDURE valor_atr_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_atr = m.vNewVal *this.cod_desc_bie1.cod_desc_atr1.text8.Value = m.vNewVal IF THIS.parche_dbused THEN *** REVISAR_TEMPORAL IF NOT DBUSED("ges") OPEN DATABASE ges ENDIF SET DATABASE TO GES ELSE IF DBUSED("ges") OPEN DATABASE ges ENDIF ENDIF if used("vatributos") select vatributos else select 0 endif xcodins=this.valor_cod use vatributos index on clave tag codigo index on descr tag descr this.cod_desc_bie1.cod_desc_atr1.valor = m.vNewVal ENDPROC PROCEDURE valor_bul_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_bul = m.vNewVal *this.cod_desc_bie1.cod_desc_bul1.text8.Value = m.vNewVal IF THIS.parche_dbused THEN *** REVISAR_TEMPORAL IF NOT DBUSED("ges") OPEN DATABASE ges ENDIF SET DATABASE TO GES ELSE IF DBUSED("ges") OPEN DATABASE ges ENDIF ENDIF if used("vbultos") select vbultos else select 0 endif xcodins=this.valor_cod use vbultos index on clave tag codigo index on descr tag descr this.cod_desc_bie1.cod_desc_bul1.valor = m.vNewVal ENDPROC PROCEDURE valor_cod_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_cod = m.vNewVal *this.cod_desc_bie1.text8.Value = m.vNewVal this.cod_desc_bie1.valor = m.vNewVal ENDPROC PROCEDURE validar_controles this.cod_desc_bie1.text8.valid this.cod_desc_bie1.cod_desc_atr1.text8.Valid this.cod_desc_bie1.cod_desc_bul1.text8.Valid this.cod_desc_bie1.text8.valid ENDPROC PROCEDURE codigo_parcial_access *To do: Modify this routine for the Access method RETURN THIS.codigo_parcial ENDPROC PROCEDURE codigo_parcial_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.codigo_parcial = m.vNewVal ENDPROC PROCEDURE par_hasta_assign LPARAMETERS vNewVal *RETURN this.valor_atr + this.valor_bul xVal1=LEFT(vNewVal,3) xVal2=Right(vNewVal,3) this.valor_atr=xVal1 this.valor_bul=xVal2 ENDPROC PROCEDURE par_hasta_access RETURN this.valor_atr + this.valor_bul ENDPROC PROCEDURE par_desde_access RETURN this.valor_cod ENDPROC PROCEDURE par_caption_access RETURN this.cod_desc_bie1.label2.Caption ENDPROC PROCEDURE antes_de_salir * Prueba local xv1,xv2,xv3 xv1=this.cod_desc_bie1.vacio if type('xv1')='C' xv1=evaluate(this.cod_desc_bie1.vacio) else xv1=this.cod_desc_bie1.vacio endif xv2=this.cod_desc_bie1.cod_desc_bul1.vacio if type('xv2')='C' xv2=evaluate(this.cod_desc_bie1.cod_desc_bul1.vacio) else xv2=this.cod_desc_bie1.cod_desc_bul1.vacio endif xv3=this.cod_desc_bie1.cod_desc_atr1.vacio if type('xv3')='C' xv3=evaluate(this.cod_desc_bie1.cod_desc_atr1.vacio) else xv3=this.cod_desc_bie1.cod_desc_atr1.vacio endif this.valor_cod = this.cod_desc_bie1.text8.value this.valor_bul = this.cod_desc_bie1.cod_desc_bul1.text8.value this.valor_atr = this.cod_desc_bie1.cod_desc_atr1.text8.value ENDPROC PROCEDURE Init nodefault ENDPROC PROCEDURE LostFocus nodefault ENDPROC PROCEDURE par_desde_assign LPARAMETERS vNewVal this.valor_cod = m.vNewVal ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.cod_desc_bie1.Enabled=m.vNewVal this.cod_desc_bie1.cod_desc_atr1.Enabled=m.vNewVal this.cod_desc_bie1.cod_desc_bul1.Enabled=m.vNewVal THIS.Enabled = m.vNewVal ENDPROC PROCEDURE valor_descripcion_access RETURN this.text1.Value ENDPROC  qPROCEDURE Timer this.enabled=.f. local xzoom, xsysm *!* Attach the report to the viewer thisform.crviewer.reportsource = thisform.crreporte thisform.agregar_log_ejecucion( "(z0:" + alltrim(str(thisform.crviewer.reportsource.papersize))+ ")" ) do case case thisform.crystal_tamao = 0 case thisform.crystal_tamao = -1 if p_cry_tamao<>0 then thisform.crviewer.reportsource.papersize = p_cry_tamao thisform.agregar_log_ejecucion( "(z1:" + alltrim(str(p_cry_tamao))+ ")" ) endif otherwise thisform.crviewer.reportsource.papersize = thisform.crystal_tamao thisform.agregar_log_ejecucion( "(z2:" + alltrim(str(thisform.crystal_tamao))+ ")" ) endcase thisform.agregar_log_ejecucion( "(z3:" + alltrim(str(thisform.crviewer.reportsource.papersize))+ ")" ) do case case between(sysmetric(1),0,640) xsysm=1 case between(sysmetric(1),0,800) xsysm=2 case between(sysmetric(1),0,1024) xsysm=3 case between(sysmetric(1),0,1280) xsysm=4 otherwise xsysm=5 endcase try try *Busca parametro por defecto xzoom=thisform.crreporte.parameterfields.getitembyname("xZoom").defaultvalue local array azoom(1) odeyfunc.split_to_array(@azoom,xzoom,",") if xsysm>alen(azoom,1) then xsysm=alen(azoom,1) endif thisform.ctbotones.ctzoom.ogzoom.value=0 thisform.xzoom=azoom(xsysm) catch to ocatch do case case thisform.crviewer.reportsource.paperorientation=1 do case case xsysm=5 thisform.ctbotones.ctzoom.ogzoom.value=3 thisform.ctbotones.ctzoom.combo1.value=150 thisform.xzoom=150 case xsysm=4 thisform.ctbotones.ctzoom.ogzoom.value=4 thisform.ctbotones.ctzoom.combo1.value=130 thisform.xzoom=130 otherwise thisform.ctbotones.ctzoom.ogzoom.value=1 thisform.ctbotones.ctzoom.combo1.value=1 thisform.xzoom=1 endcase case thisform.crviewer.reportsource.paperorientation=2 do case case xsysm=5 thisform.ctbotones.ctzoom.ogzoom.value=3 thisform.ctbotones.ctzoom.combo1.value=150 thisform.xzoom=150 otherwise thisform.ctbotones.ctzoom.ogzoom.value=1 thisform.ctbotones.ctzoom.combo1.value=1 thisform.xzoom=1 endcase endcase endtry catch to opex =mensaje(opex.message) endtry thisform.windowstate = 2 thisform.resize odeyfunc.devents(.t.) thisform.crviewer.viewreport thisform.crviewer.zoom(thisform.xzoom ) thisform.tmr_pagina.enabled = .t. thisform.ctbotones.txpage.setfocus () ENDPROC ࡱ>  Root Entry0EhOleObjectData5 AccessObjSiteData&\ChangedProps=  !"#$%&'()*+,-./01234567#$,j(6(!C4~/fͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1FgkW_B'jY0(z7qf(fV ImageHeight I  ImageWidth I DtTB_PSlt   ( @ fCfCfCfCfCfC-fCfC--fCfC---fCfC----fCfC-----fCfC------------------fCfC-------------------fCfC--------------------fCfC---------------------fCfC----------------------fCfC----------------------fCfC---------------------fCfC--------------------fCfC-------------------fCfCfCfCfCfCfCfCfCfCfCfCfCfC------fCfC-----fCfC----fCfC---fCfC--fCfC-fCfCfCfCfCfC????"q%o ~UFTTT T  T  TT?grafico(!"UTHISPARENTARCHIVOXTITULOTHISFORMCAPTIONXLABEL1LABEL1XLABEL2LABEL2XLABEL3LABEL3XLABEL4LABEL4XLABEL5LABEL5XLABEL6LABEL6GRAFICOClick01"1)"ff;h%UFTTT T  T  TTG+(listadosG~(clasesTCreporte_ventanaN ?grafico<UTHISPARENTARCHIVOXTITULOTHISFORMCAPTIONXLABEL1LABEL1XLABEL2LABEL2XLABEL3LABEL3XLABEL4LABEL4XLABEL5LABEL5XLABEL6LABEL6LISTADOSCLASESOSHOWGRAFICOREPORTE_VENTANAClick01"Br2)farbol archivoreporte craplicacion crreporte crvista nombregrupo Texto que aparece en cada grupo. Ej: "Vendedor : " codigogrupo Identificador del grupo. Ej: {rptclientes.vendedor} descripciongrupo Texto describe al identificador. E: {rptclientes.anombre} ordengrupos Formula para el orden en que aparecen los grupos crdescripciongrupo Descripcion del grupo para el drilldown. titulo1 Titulo del listado titulo2 Titulo del listado (2 linea) xdcli xhcli xdfec xhfec xdult xdage xhage xdzon xhzon xdcat xhcat xdlis xhlis xdord xdtip xdsep xdfor xdnot xdsal xdpai xdprv xdsuc archivotemporal xdbie xhbie xdfle xhfle xdpro xhpro xdbul xhbul xdatr xhatr xdgru xdlin xhgru xhlin xdcue xhcue xdcos xhcos xddep xhdep xdval xddsc xdstk xddec xdact xdlva xddse xdser xdtar xduni xdsub xdtva xdsgr xhsgr xdfcs xdsce xhsce xdcau xdasi xddiv xdcod xdimp xhimp xdmon xdres xdtcp xdnum xdcen xhcen xdmov xdtot xdxcc xdxcp planillaxls Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en XLS.El formato es p_system\prt\+archivotemporal+_F_+* xdxba xdcfc xhcfc xhsuc xdmot xhmot xdbon xdspg xddat xdrem xdctr xdscd xdcostos xdclase xdlog1 xhlog1 xdlog2 xhlog2 xdlog3 xhlog3 xdlog4 xhlog4 xdlog5 xhlog5 xdnum1 xdnum2 xdnum3 xdnum4 xdnum5 xhnum1 xhnum2 xhnum3 xhnum4 xhnum5 xdped xhped xdlog6 xdlog7 xdlog8 xdlog9 xdlog10 xhlog6 xhlog7 xhlog9 xhlog8 xhlog10 mantener fecha Flag que decide la impresin de la fecha en el reporte xdfec1 param_usar dontchangenothing tables_use_loc_adv hlpidu archivotexto txt_autogenerar xls_autogenerar xdrsm param_count campos_count xls_totalizar xls_totalizar_formato xls_number_format tipo_reporte Especifica el tipo de reporte solicitado. imprimir_xls_usar_viejo Especifica si se va a usar el procedimiento viejo de exportacion a excel campos_separa Frmula a utilizar en el EVALUATE para determinar si hay separacin. campos_encabezado Frmula a utilizar en el EVALUATE para poner el encabezado de la separacin campos_titulo campos_orden planillamdb Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en Access. El formato es p_system\prt\+archivotemporal+_F_+* imprimir_tabla_usar_viejo param_objetos_usar xhfec1 formula_usar formula_count xls_abrir 0=Consulta si abre en el EXCEL, 1=Abre directamente, 2=No abre ni consulta, solo lo genera, 3=Lo genera y pregunta dnde lo guarda, 4=Lo genera y pregunta dnde lo guarda pero no abre crystal_no_report .t. = No hy una versin para crystal de este reporte (para diferenciarlo de la inexistencia del archivo rpt) xdnum6 xhnum6 param_noerror imprimir_xls_usar_externo Especifica si usa el procedimiento externo de exportacin a excel. xls_coll_param xdtot_fin xdtot_sep filtros_mostrar filtro_parametro Parametro al cual se pasa el texto del filtro xdfec2 mostrar_externo manter_oestado exportacion xls_archivo xls_archivo_automatico xls_archivo_preguntar xhsubgru xdsubgru xdsprgru xhsprgru cr_showtop xfecha_reporte solo_salir campos_formato xpdfprompt xpdfarchivo xdtipo_art ayuda_web xhfec2 xdnum7 xhnum7 crversion crystal_tamao document_id log_ejecucion xdnum8 xhnum9 xhnum8 xdconsolidado titulo1_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, titulo2_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, oestado sininterfaz osql Contenedor del objeto para conexin SQL suspender archivo_salida_renombra log_path xhmar xdmar campos_parametros campos_parametros_original id_formulario id_formulario_evaluado plantillas_xls_habilitado id_formulario_ultimo automatizado version_reporte ^archivo[10,0] ^files_to_delete[30,0] *file_to_delete *delete_files *procesar *imprimir_crystal *imprimir_vfp *imprimir_reporte_vfp *imprimir_tabla_viejo *entorno Establece el entorno de impresin, por ejemplo las relaciones y las rutinas de soporte. *procesar_impresion *imprimir_xls *inicializar_columnas Asigna los rtulos y los campos a las columnas de excel. *preprocesar_impresion *postprocesar_impresion *pre_impresion ^arr_1[20,0] *param_aplicar *tables_loc_adv_aplica *imprimir_texto *acomodar_botones *param_agregar *campos_agregar *validar_datos *debug_time_iniciar *debug_time_finalizar *imprimir_xls_viejo Procedimiento viejo de exportacion a excel *imprimir_tabla *param_objetos_aplicar *formula_aplicar *formula_agregar ^formula_data[10,2] *imprimir_xls_externo Invocacin al procedimiento externo de exportacion a excel. *inicializar_columnas_externo Asigna los rtulos y los campos a las columnas de excel PARA EL GENERADOR EXTERNO. *xls_coll_getnew *imprimir_grilla *imprimir_pdf *reacomodar_botones Llamado luego de asignar el orden por defecto de los botones, para permitir manipularlos. *xls_a_usar_pedir Solicita los libros a controlar si estn libres para la exportacin. *xls_a_usar_revisar Controla si los reportes a usar estn libres para la exportacin. *get_shortpath Obtiene el Path corto de un archivo *ejecutar_sql *ejecutar_externo *ejecutar_parametros En este mtodo cada subclase debera poder manejar sus parmetros cuando se los pasa de forma externa. *exp_tabla_plano *xls_columnas_auto No tocar el contenido, se genera automticamente! *show_and_play *solo_salir_assign ^param_data[20,2] *xls_columna ^campos[255,10] *grabar_ejecucion *estado_avance *estado_texto *estado_visible *imprimir_xls_largos *agregar_caption *agregar_log_ejecucion *abrir_pdf *solo_impresion_antes *sleep *asignar_impresora *cerrar_visualizador *formato_rango_fechas *seleccionar_columnas *pre_seleccionar_columnas *id_formulario_evaluado_access *evaluar_id_formulario *id_formulario_access *pos_seleccionar_columnas *asignar_color *log_aut *exportar_definicion_columnas PROCEDURE Init parameters xtitulo,xtabla,xexpresion,xorden,xtitulo_expresion,xid,xclave *!* if this.ancho_grid=0 *!* this.ancho_grid=this.ancho_total *!* endif *!* sele (this.tabla) *!* if parameters()>0 *!* this.orden_actual = xorden *!* this.id = xid *!* this.caption = xtitulo *!* this.grid1.recordsource = xtabla *!* this.grid1.column1.controlsource = xexpresion *!* this.grid1.column1.header1.caption = xtitulo_expresion *!* this.clave = xclave *!* else *!* this.width = this.ancho_total *!* this.caption = this.titulo *!* this.grid1.width = this.ancho_grid && this.ancho_total && *!* this.grid1.ColumnCount = 0 *!* this.grid1.ColumnCount = 10 *!* this.grid1.recordsource = this.tabla *!* this.grid1.column1.controlsource = this.clave_busqueda *!* this.grid1.column2.controlsource = this.clave_busqueda1 *!* this.grid1.column3.controlsource = this.clave_busqueda2 *!* this.grid1.column4.controlsource = this.clave_busqueda3 *!* this.grid1.column5.controlsource = this.clave_busqueda4 *!* this.grid1.column6.controlsource = this.clave_busqueda5 *!* this.grid1.column7.controlsource = this.clave_busqueda6 *!* this.grid1.column8.controlsource = this.clave_busqueda7 *!* this.grid1.column9.controlsource = this.clave_busqueda8 *!* this.grid1.column10.controlsource = this.clave_busqueda9 *!* this.grid1.column1.Alignment = this.alineacion(this.tipo_campo) *!* this.grid1.column2.Alignment = this.alineacion(this.tipo_campo1) *!* this.grid1.column3.Alignment = this.alineacion(this.tipo_campo2) *!* this.grid1.column4.Alignment = this.alineacion(this.tipo_campo3) *!* this.grid1.column5.Alignment = this.alineacion(this.tipo_campo4) *!* this.grid1.column6.Alignment = this.alineacion(this.tipo_campo5) *!* this.grid1.column7.Alignment = this.alineacion(this.tipo_campo6) *!* this.grid1.column8.Alignment = this.alineacion(this.tipo_campo7) *!* this.grid1.column9.Alignment = this.alineacion(this.tipo_campo8) *!* this.grid1.column10.Alignment = this.alineacion(this.tipo_campo9) *!* this.grid1.column1.text1.Alignment = this.alineacion(this.tipo_campo) *!* this.grid1.column2.text1.Alignment = this.alineacion(this.tipo_campo1) *!* this.grid1.column3.text1.Alignment = this.alineacion(this.tipo_campo2) *!* this.grid1.column4.text1.Alignment = this.alineacion(this.tipo_campo3) *!* this.grid1.column5.text1.Alignment = this.alineacion(this.tipo_campo4) *!* this.grid1.column6.text1.Alignment = this.alineacion(this.tipo_campo5) *!* this.grid1.column7.text1.Alignment = this.alineacion(this.tipo_campo6) *!* this.grid1.column8.text1.Alignment = this.alineacion(this.tipo_campo7) *!* this.grid1.column9.text1.Alignment = this.alineacion(this.tipo_campo8) *!* this.grid1.column10.text1.Alignment = this.alineacion(this.tipo_campo9) *!* this.grid1.column1.header1.caption = this.titulo_busqueda *!* this.grid1.column2.header1.caption = this.titulo_columna1 *!* this.grid1.column3.header1.caption = this.titulo_columna2 *!* this.grid1.column4.header1.caption = this.titulo_columna3 *!* this.grid1.column5.header1.caption = this.titulo_columna4 *!* this.grid1.column6.header1.caption = this.titulo_columna5 *!* this.grid1.column7.header1.caption = this.titulo_columna6 *!* this.grid1.column8.header1.caption = this.titulo_columna7 *!* this.grid1.column9.header1.caption = this.titulo_columna8 *!* this.grid1.column10.header1.caption = this.titulo_columna9 *!* local xtotal,xcolumnas,xbarra *!* * this.ancho en % *!* xcolumnas = iif(this.ancho#0,1,0); *!* +iif(this.ancho1#0,1,0); *!* +iif(this.ancho2#0,1,0); *!* +iif(this.ancho3#0,1,0); *!* +iif(this.ancho4#0,1,0); *!* +iif(this.ancho5#0,1,0); *!* +iif(this.ancho6#0,1,0); *!* +iif(this.ancho7#0,1,0); *!* +iif(this.ancho8#0,1,0); *!* +iif(this.ancho9#0,1,0) *!* xbarra = 1 *!* xtotal = this.ancho_grid -21 *!* *!* this.grid1.column1.width = int(xtotal * this.ancho / 100) *!* this.grid1.column2.width = int(xtotal * this.ancho1 / 100) *!* this.grid1.column3.width = int(xtotal * this.ancho2 / 100) *!* this.grid1.column4.width = int(xtotal * this.ancho3 / 100) *!* this.grid1.column5.width = int(xtotal * this.ancho4 / 100) *!* this.grid1.column6.width = int(xtotal * this.ancho5 / 100) *!* this.grid1.column7.width = int(xtotal * this.ancho6 / 100) *!* this.grid1.column8.width = int(xtotal * this.ancho7 / 100) *!* this.grid1.column9.width = int(xtotal * this.ancho8 / 100) *!* this.grid1.column10.width = int(xtotal * this.ancho9 / 100) *!* *!* this.grid1.columncount=xcolumnas *!* endif *!* this.orden_actual = this.orden *!* this.clave_busqueda_actual = this.clave_busqueda *!* this.tipo_campo_actual = this.tipo_campo *!* this.columna_actual = 1 *!* this.grid1.column1.header1.fontbold=.t. *!* sele (this.grid1.recordsource) *!* set order to (this.orden_actual) asce *!* IF NOT this.preposicionado then *!* go top *!* ENDIF *!* this.text1.left = 1 && Nuevo *!* this.text1.width = this.ancho_total-2 -51 && Nuevo *!* this.btn_buscar.left = this.ancho_total -51 *!* if this.tilde_habilitar *!* this.tilde.enabled=.t. *!* this.tilde.visible=.t. *!* this.tilde.Caption=this.tilde_texto *!* this.tilde.value=this.tilde_valor *!* else *!* this.tilde.enabled=.f. *!* this.tilde.visible=.f. *!* this.tilde.value=.f. *!* this.Height=this.Height-22 *!* this.grid1.anchor=0 *!* this.grid1.top=this.grid1.top-22 *!* this.grid1.anchor=15 *!* endif *!* this.autocenter = .t. && Nuevo *!* this.comienzo=.t. *!* this.oldkey='' *=sys_mostrar_screen("Suspendo?", .t.) if parameters()>0 dodefault(xtitulo,xtabla,xexpresion,xorden,xtitulo_expresion,xid,xclave) else dodefault() endif thisform.timer1.Enabled=thisform.timer_init ENDPROC  4"  %% k U 4 ({T cserieCCZ%C w!T%*CNo hay labels suficientes !!! B-T aF T graphdb.gen FT aT (q'TC CcserieCCZTC C  ~TCC/(0TC CCC/ 999999999999_TC C F  T -B@  F(1TCcserieCCZ T ~<!TCC/(8)TCC/T -B FT ('TC CcserieCCZTC C  ~PTCC/(30TC CCC/ 999999999999_TC C T aF #O msgraph.chart TGenCTTT !T -U"XCURSORCSERIE1CSERIE2CSERIE3CSERIE4CSERIE5CSERIE6 XMAXSERIESZXVARMENSAJETHISFORM LOCKSCREENGRAPHDBTHISOLEBOUNDCONTROL1 CONTROLSOURCECGDATAGENOBJECT APPLICATION DATASHEETCELLSCLEARVALUEY AUTOFORMATHASTITLE VER_TITULO HASLEGEND VER_LEYENDA CHARTTITLECAPTIONTITULOBTTT UVNEWVALTHISOLEBOUNDCONTROL1 HASLEGENDCHECK2VALUE VER_LEYENDABTTT UVNEWVALTHISOLEBOUNDCONTROL1HASTITLECHECK1VALUE VER_TITULO4T T UVNEWVALTHISOLEBOUNDCONTROL1 CHARTTITLECAPTIONTITULO*%Cgraphdb#FQUGRAPHDB%Cgraphdb 4Q\graphdbF%CN +CNO msgraph.chart #UP_SYSTEMGRAPHDBTHISIDGENllenar_de_cursor0ver_leyenda_assignver_titulo_assign titulo_assignDestroyInitZ1QAAA2qArqAQAArBAAABBqAQAAq1"!AL4q21"3q21"3q"3qAA4AqRaQAA3 L Q + VO Z 7 _R ) ;"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )""%` }U=(%6T-UTHISPARENT PAGEORDER PAGECOUNTENABLED(% MTthis.parent.parent.parent.pageCCZ .setfocus &xpag UXPAGTHISPARENT PAGEORDER PAGECOUNTInit0Click1A2qA2  ) PROCEDURE LostFocus set help on select (this.Parent.area_anterior) ENDPROC PROCEDURE GotFocus set help off this.Parent.area_anterior=select() ENDPROC PROCEDURE When IF NOT this.parent.es_f1 and !this.Parent.primer_when THEN this.Parent.primer_when=.t. this.parent.oldvalue=this.value this.parent.modificado=.f. ENDIF ENDPROC PROCEDURE Valid if !this.parent.es_f1 * * No es ayuda * local xok area_anterior=alias() this.parent.nombre = this.parent.buscar() if empty(this.parent.nombre) .and. this.parent.codigo_si_o_si && ='' 20/01/2006 xok=0 else if inlist(this.parent.nombre,"Cdigo inactivo !!!","Cdigo inexistente o no vlido !!!") OR this.Parent.dato_invalido xok=0 ELSE xok=1 endif endif if alltrim(area_anterior)#'' sele (area_anterior) endif this.parent.text9.refresh this.parent.modificado=(this.parent.oldvalue#this.value) this.parent.valor=this.value * if this.parent.valid() if xok=1 and this.parent.valid() this.Parent.updated if upper(this.Parent.Parent.ParentClass)="LIS" this.Parent.Parent.antes_de_salir() else this.Parent.antes_de_salir() endif this.Parent.primer_when=.f. return xok else return 0 endif endif ENDPROC PROCEDURE DblClick local area_anterior IF this.ReadOnly THEN RETURN .f. ENDIF area_anterior=alias() this.parent.nombre = this.parent.f1() if alltrim(area_anterior)#'' sele (area_anterior) endif this.parent.text8.refresh this.parent.text9.refresh ENDPROC PROCEDURE Init * Guarda el area que exista cuando se inicializ this.parent.area_inicial=alias() area_anterior=alias() local xok if alltrim(this.parent.dato)#'' this.controlsource = iif(alltrim(this.parent.dato_tabla)="", alltrim(alias())+".",alltrim(this.parent.dato_tabla)+".") +this.parent.dato else this.value = this.parent.valor endif this.format = this.parent.dato_format do case case type("this.parent.dato_mask")="C" this.inputmask = alltrim(this.parent.dato_mask) case type("this.parent.dato_mask")="N" this.inputmask = alltrim(str(this.parent.dato_mask)) case type("this.parent.dato_mask")="U" this.inputmask = "" endcase this.maxlength = this.parent.dato_maxlength release aaa,bbb * Si la tabla que se utiliza en este control no existe, no se inicializa * Si existe, busca el valor actual y actualiza el control. if used(this.parent.tabla_tabla) sele (this.parent.tabla_tabla) this.parent.nombre = this.parent.buscar(.t.) * Retorna posicionado en el area en que fue llamado, si existe if alltrim(area_anterior)#'' sele (area_anterior) endif this.parent.inicializado=.t. else this.parent.inicializado=.f. endif try * No se por qu a veces da error this.parent.text9.refresh catch endtry return ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 nKeyCode=0 =this.dblclick() nodefault endif ENDPROC ;"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)";"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)";"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )" "%PGUBQ UTHIS DURACION_SEG#T QUVNEWVALTHIS DURACION_SEGB UTHIS DURACION_SEG$T <<UVNEWVALTHIS DURACION_SEGB< UTHIS DURACION_SEG T <UVNEWVALTHIS DURACION_SEGTT G+(dey_func&TC UVNEWVALTHIS DURACION_SEGDEY_FUNCVALUEDT_DURACION_A_TEXTO LIMITE_BAJO LIMITE_ALTOduracion_dia_access0duracion_dia_assignbduracion_hora_accessduracion_hora_assignduracion_min_access#duracion_min_assignRduracion_seg_assign123q34q33qb3q""a2}J C m W`#);"""#%m UP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORTC^UTHIS FORECOLORClick0GotFocus LostFocus81A113132 4)" PROCEDURE propiedad_access *To do: Modify this routine for the Access method RETURN THIS.propiedad ENDPROC PROCEDURE propiedad_assign LPARAMETERS oPro AS Propiedades OF sys_propiedades.prg IF typeo(oPro) THEN THIS.PARENT.Parent.Propiedad.Hijos_cargar () THIS.texto.CAPTION = oPro.Nombre IF oPro.Hijos.COUNT=1 AND oPro.Hijos.ITEM(1).Hijos.COUNT>0 THEN oPro=oPro.Hijos.ITEM(1) ENDIF THIS.COMBO.ENABLED = NOT oPro.valor_fiJO ELSE THIS.texto.CAPTION ="" THIS.COMBO.ENABLED = .F. ENDIF THIS.propiedad = oPro IF typeo(oPro) THEN IF oPro.Obliga >0 THEN *=sys_m("Obliga") this.texto.ForeColor = RGB(255,0,0) THIS.COMBO.BORDERCOLOR = RGB(255,0,0) ELSE this.texto.ForeColor = 0 THIS.COMBO.BORDERCOLOR = 0 ENDIF ENDIF LOCAL oPro2 AS Propiedades OF sys_propiedades.prg IF typeo(oPro) THEN *=sys_M("1 hijo") THIS.agregar_manuales () THIS.definir_valores () FOR EACH oPro2 IN oPro.Hijos THIS.agregar_manuales (oPro2.Codigo, oPro2.Nombre ) NEXT IF THIS.COMBO.NUMBEROFELEMENTS = 2 AND oPro.Hijos.COUNT=1 THEN * =this.propiedad_valor_asignar(oPro.hijoS.item(1).Codigo) ENDIF ENDIF THIS.redimensionar_internos ENDPROC PROCEDURE dispose this.propiedad = .f. ENDPROC PROCEDURE propiedad_valor_asignar LPARAMETERS xValor *=sys_m("Valor") This.combo.Value = xValor this.combo.ProgrammaticChange () ENDPROC PROCEDURE redimensionar_interno *=sys_m("redim int combo") this.label_ancho = this.texto.Width +this.texto.Left + 5 this.combo.Left = MAX(this.parent.datos_minimo-this.left,this.label_ancho ) this.datos_ancho = this.combo.Left + this.combo.Width + 3 this.Width = this.datos_ancho this.redimensionado () ENDPROC PROCEDURE redimensionar_internos this.redimensionar_interno ENDPROC PROCEDURE reacomodar_datos LPARAMETERS xDato_Left this.datos_minimo = xDato_Left this.redimensionar_internos() ENDPROC PROCEDURE Init This.desde = this.desde + SYS(2015) ENDPROC PROCEDURE definir_valores this.avalues(1,1)="" this.avalues(2,0)=0 RETURN DODEFAULT() ENDPROC PROCEDURE combo.InteractiveChange this.Parent.propiedad.Valor = This.Value LOCAL oCN AS propiedades_container OF clases.vcx THIS.PARENT.PArent.Propiedad.Valor=THIS.VALUE IF THIS.VALUE #0 THEN *=sys_m("int") DO WHILE THIS.PARENT.Parent.contenedores.COUNT>0 oCN=THIS.PARENT.Parent.contenedores (1) THIS.PARENT.Parent.REMOVEOBJECT (oCN.NAME) ENDDO *=sys_m("Hijos interactive") THIS.PARENT.Parent.Propiedad.Hijos_cargar () IF THIS.PARENT.Parent.Propiedad.Hijos.COUNT>0 THEN THIS.PARENT.Parent.cont_hijos_crear = .T. *=sys_m("Prop") THIS.PARENT.Parent.Propiedad =THIS.PARENT.parent.Propiedad ENDIF ELSE DO WHILE THIS.PARENT.Parent.contenedores.COUNT>0 oCN=THIS.PARENT.Parent.contenedores (1) THIS.PARENT.Parent.REMOVEOBJECT (oCN.NAME) ENDDO ENDIF =THIS.PARENT.parent.redimensionar() ENDPROC PROCEDURE combo.ProgrammaticChange IF TYPEo(this.Parent.propiedad) THEN this.InteractiveChange () ENDIF ENDPROC "%g OUFT T T UVNEWVALTHISENABLEDLABEL5COMBO1,%C% FUTHISOLDAREATCUTHISOLDAREAenabled_assign0 LostFocusGotFocus1q"QQ3A32 5K);"""#%m UTC^UTHIS FORECOLOR/TTC^UTHISFORM OPCION_ACTUALTHISTABINDEX FORECOLORP%# TCUTHISFORMOPCIONESTHISTABINDEXRELEASE OPCION_ACTUALLLAMADA LostFocus0GotFocuseClick1313A1120O4 )""0`% ]7UM(F'TCUZTHISPARENT MAXARREGLOARREGLOI_TABTABLA %Cm!TT  B TT BUTHISPARENTVALIDVALUE MODIFICADOOLDVALUEUPDATED*TT-UTHISPARENTOLDVALUEVALUE MODIFICADOInit0ValidWhen1qA3aaaA3a2q)!"z%iU 4 TlistadosT\tmp\"h1\tmp\MQ\tmp\>CR9T  viewer.txtT @T PT aUXTXTXARCHIVONEWFILELISTADOSTHISFORMARCHIVOP_LOCALTXTVIEWEREDIT1 CONTROLSOURCEWIDTHHEIGHTVISIBLEpTT@T(T UTHISFORMEDIT1WIDTHHEIGHTCOMMAND1TOPLEFTInit0Resize1qq"QAA32)P"77ԇ%FUUU, J(%TCC(&TCCTT  aaa=&aaa T C F% %4T $Slo para la versin multimoneda !!!UUSADOZTHISPARENTARREGLO MM_MONEDAMM_MAXAAADATO CONTROLSOURCEVALUE MAXARREGLO P_MULTIMON TOOLTIPTEXT1T&aaa=this.value UAAATHISPARENTDATO LostFocus0Init; Combo1.InitF Combo1.Valid1452RaAs1bAA2q1A26Qt# F#)7:PROCEDURE mostrar_pgina LOCAL xPAG, xKnow xPAG=0 xKnow=.f. THISFORM.crvIEWER.getLastPageNumber(@xPAG, @xKnow ) THISFORM.ctBotones.lbPage.CAPTION ="/"+ALLTRIM(STR(xPAG))+IIF(xKnow,"","+") TRY THISFORM.ctBotones.txPage.VALUE= THISFORM.crvIEWER.getCurrentPageNumber CATCH ENDTRY ENDPROC PROCEDURE crviewer_clicked *** ActiveX Control Event *** LPARAMETERS x, y, eventinfo, usedefault *!* thisform.Caption ="Clicked" thisform.crviewer.SetFocus() ENDPROC PROCEDURE busqueda_cerrar thisform.cvbusqueda.cvpadre=.f. thisform.cvbusqueda = .f. ENDPROC PROCEDURE busqueda_buscar LPARAMETERS xtexto *!* thisform.Caption="'"+xtexto+"'" thisform.crviewer.searchForText(xtexto) ENDPROC PROCEDURE busqueda_mostrar LOCAL oOBj DO FORM sys_crystal_buscar NAME oObj LINKED NOSHOW oObj.CVPadre=thisform thisform.cvbusqueda = oObj oObj.show ENDPROC PROCEDURE agregar_caption LPARAMETERS xTexto IF p_dev THEN Thisform.Caption = Thisform.Caption + xTexto ENDIF ENDPROC PROCEDURE agregar_log_ejecucion LPARAMETERS xTexto IF p_dev THEN Thisform.log_ejecucion = Thisform.log_ejecucion + xTexto ENDIF ENDPROC PROCEDURE cerrar_reporte if type("thisform.padre")="O" then thisform.padre.Cerrar_Visualizador else thisform.release endif ENDPROC PROCEDURE imprimir_pdf *=sys_M("exportar") LOCAL xArchivo xArchivo=Thisform.padre.xpdfarchivo Thisform.padre.imprimir_pdf(.T., @xArchivo) Thisform.padre.Abrir_PDF(xArchivo) *DO Imprimir_PDF_Crystal IN listados WITH .t., , thisform.crreporte, ; Thisform.padre , not Thisform.padre.xPDFPrompt ENDPROC PROCEDURE imprimir_xls IF NOT p_dev THEN =mensaje("En proceso... aun no implementado!! ") RETURN .f. ENDIF ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE button_click *** ActiveX Control Event *** LPARAMETERS xBUTTON TRY DO CASE CASE xBUTTON = "BT_BUSCAR" THISFORM.busqueda_mostrar CASE xBUTTON = "BT_ARBOL" THISFORM.crVIEWER.DisplayGroupTree= (BUTTON.VALUE=1) CASE xBUTTON = "BT_IMPRIMIR" THISFORM.crVIEWER.printReport CASE xBUTTON = "BT_IMP_SETUP" THISFORM.CRReporte.printersetup(0) CASE xBUTTON = "BT_EXPORTAR" THISFORM.CRReporte.EXPORT() CASE xBUTTON="BT_P1" THISFORM.crVIEWER.showFirstPage THISFORM.mostrar_pgina CASE xBUTTON="BT_PA" THISFORM.crVIEWER.showPreviousPage THISFORM.mostrar_pgina CASE xBUTTON="BT_PS" THISFORM.crVIEWER.showNextPage THISFORM.mostrar_pgina CASE xBUTTON="BT_PU" THISFORM.crVIEWER.showLastPage THISFORM.mostrar_pgina CASE xBUTTON="BT_BUSCAR" * thisform.crvIEWER.searchForText() CASE xBUTTON="BT_PARAR" * thisform.crvIEWER.st CASE xBUTTON="BT_PDF" THISFORM.imprimir_pdf () CASE xBUTTON="BT_XLS" THISFORM.imprimir_XLS () ENDCASE CATCH TO oex ENDTRY ENDPROC PROCEDURE Load dodefault() thisform.asignar_color() *=sys_m("load") ENDPROC PROCEDURE Init lparameters xreporte,xarbol,; xarr1 ,; xarr2 ,; xarr3 ,; xarr4 ,; xarr5 ,; xarr6 ,; xarr7 ,; xarr8 ,; xarr9 ,; xarr10 ,; xzoom,; xnoshow,; xform_Padre thisform.crreporte = xreporte thisform.archivo[1] = xarr1 thisform.archivo[2] = xarr2 thisform.archivo[3] = xarr3 thisform.archivo[4] = xarr4 thisform.archivo[5] = xarr5 thisform.archivo[6] = xarr6 thisform.archivo[7] = xarr7 thisform.archivo[8] = xarr8 thisform.archivo[9] = xarr9 thisform.archivo[10] = xarr10 thisform.padre= xform_padre *=sys_mostrar_screen("Suspendo?", .t.) if .f. try thisform.addobject("CRViewer","olecontrol","CrystalReports12.ActivexReportViewer.1") thisform.crversion ="CrystalReports12.ActivexReportViewer.1" catch try thisform.addobject("CRViewer","olecontrol","CrystalReports115.ActivexReportViewer.1") thisform.crversion ="CrystalReports115.ActivexReportViewer.1" catch try thisform.addobject("CRViewer","olecontrol","CrystalReports11.ActivexReportViewer.1") thisform.crversion ="CrystalReports11.ActivexReportViewer.1" catch try thisform.addobject("CRViewer","olecontrol","CrystalReports10.ActivexReportViewer.1") thisform.crversion ="CrystalReports10.ActivexReportViewer.1" catch thisform.addobject("CRViewer","olecontrol","CRViewer9.CRViewer") thisform.crversion ="CRViewer9.CRViewer" endtry endtry endtry endtry else try thisform.addobject("CRViewer","olecontrol","CrystalReports.CrystalReportViewer") thisform.crversion ="CrystalReports.CrystalReportViewer (11)" catch to oex try thisform.addobject("CRViewer","olecontrol","CRViewer9.CRViewer") thisform.crversion ="CRViewer9.CRViewer (9)" catch to oex mensaje(oex.message) return .f. endtry endtry endif *crystalreports.crystalreportviewer *!* IF p_dev *!* thisform.Caption=Thisform.CRVersion *!* endif *BINDEVENT(thisform.crviewer, "Clicked", thisform, "crviewer_clicked2",4) if p_dev TRY thisform.caption = alltrim(thisform.crreporte.reporttitle)+" - Versin: "+alltrim(thisform.crversion)+" - Rpt: "+alltrim(THISFORM.crreporte.archivoreporte) CATCH TRY thisform.caption = alltrim(thisform.crreporte.reporttitle)+" - Versin: "+alltrim(thisform.crversion)+" - Rpt: " CATCH ENDTRY ENDTRY else thisform.caption = "Visualizacin: " + thisform.crreporte.reporttitle endif thisform.crviewer.width = 600 thisform.crviewer.height = 350 thisform.crviewer.visible =.f. thisform.crviewer.enabledrilldown = .t. thisform.crviewer.enablestopbutton = .t. thisform.crviewer.enableclosebutton = .t. thisform.crviewer.enableexportbutton = .t. thisform.crviewer.enablegrouptree = .t. thisform.crviewer.enablenavigationcontrols = .t. thisform.crviewer.enableprintbutton = .t. *thisform.CRViewer.HasPrintSetupButton = .t. thisform.crviewer.enableprogresscontrol = .t. thisform.crviewer.enablerefreshbutton = .f. *thisform.CRViewer.EnableSearchButton = .t. thisform.crviewer.enablezoomcontrol = .t. thisform.crviewer.displaygrouptree = xarbol thisform.crviewer.displaytoolbar = .f. if not xnoshow then thisform.crviewer.visible =.t. endif thisform.ctbotones.bt_ARBOL.enabled=xarbol *thisform.ctbotones.tb.buttons.item("TB_ARBOL").value=iif(xarbol,1,0) *!* thisform.tb_controler1.tb_iconos(thisform.ctbotones.tb, thisform.il,.t.) *!* thisform.tb_controler1.tb_iconos(thisform.ctbotones.btsalir , thisform.il,.t.) thisform.resize thisform.tmr_inicial.enabled=not xnoshow ENDPROC PROCEDURE Resize *!* thisform.container1.top = thisform.height-52 *!* thisform.container1.left = MAX((thisform.width-444)/2, thisform.ctzoom.left+thisform.ctzoom.width) *!* thisform.ctBotones.txPage.Left = thisform.ctBotones.tb.Width + thisform.ctBotones.tb.left *!* thisform.ctBotones.lbPage.Left = thisform.ctBotones.txPage.Width + thisform.ctBotones.txPage.left *!* thisform.ctbotones.tb_SEP.Left = thisform.ctBotones.lbPage.Width + thisform.ctBotones.lbPage.left *!* thisform.ctBotones.ctzoom.Left = thisform.ctBotones.tb_SEP.Width + thisform.ctBotones.tb_SEP.Left *!* thisform.ctBotones.btsalir.Left = thisform.ctBotones.Width - thisform.ctBotones.btsalir.Width *!* thisform.ctBotones2.txPage.Left = thisform.ctBotones2.bt_PU.Width + thisform.ctBotones2.bt_PU.left *!* thisform.ctBotones2.lbPage.Left = thisform.ctBotones2.txPage.Width + thisform.ctBotones2.txPage.left *!* thisform.ctBotones2.ctzoom.Left = thisform.ctBotones2.tb_SEP.Width + thisform.ctBotones2.tb_SEP.Left *!* thisform.ctBotones2.btsalir.Left = thisform.ctBotones2.Width - thisform.ctBotones2.btsalir.Width thisform.CRViewer.width = thisform.width thisform.CRViewer.top = thisform.ctBotones.top + thisform.ctBotones.Height thisform.CRViewer.height = thisform.height-thisform.CRViewer.top - thisform.SB.Height ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=27 THEN thisform.Release ENDIF ENDPROC d"KK%,%4tU@ F C(  BUTHIS TABLA_ALIASREC_PUSH TABLA_CAMPOSELCOUNTREC_POPA F C (  BUTHIS TABLA_ALIASREC_PUSH TABLA_CAMPOSELCOUNTREC_POP\ F T(REPLACE &xcampo WITH NOT &xcampo ALL UTHIS TABLA_ALIASREC_PUSHXCAMPO TABLA_CAMPOREC_POP\ F T(Replace &xCampo WITH .f. for &xCampo UTHIS TABLA_ALIASREC_PUSHXCAMPO TABLA_CAMPOREC_POP F #) T+C+ k%Cc TCO!H  BUTHIS TABLA_ALIASREC_PUSHCRC TABLA_CAMPOREC_POPBCUTHIS SEL_CANTIDADc F T/Replace &xCampo WITH .t. for &xCampo = .f. UTHIS TABLA_ALIASREC_PUSHXCAMPO TABLA_CAMPOREC_POP4TT % C >REPLACE &xCampoO WITH &xCampoO - 1.5 IN (THIS.tabla_alias) C dSELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray T    %  (C%C }!TC   (C%C T T   T T (C%C "T  T  TTC C  U XHIGHLIGHTED XORDARRAYXCAMPOTHIS TABLA_CAMPOXCAMPOOTABLA_CAMPO_ORDENREC_PUSH SEL_TIENE ORD_ARREGLARXORDI ORD_DECIMAL ORD_AGRUPARNITXORDPNIT2XSECXLASTNOREC_POP4TT % C >REPLACE &xCampoO WITH &xCampoO + 1.5 IN (THIS.tabla_alias) C dSELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray T    %  (C%C }!TC   (C%C T T   (C{%C w-T C ?C  U XHIGHLIGHTED XORDARRAYXCAMPOTHIS TABLA_CAMPOXCAMPOOTABLA_CAMPO_ORDENREC_PUSH SEL_TIENE ORD_ARREGLARXORDI ORD_DECIMAL ORD_AGRUPARNITXORDPNIT2REC_POPL4TC TT T C .C T T  %(C#C@REPLACE &xCampoO WITH xORDArray(nIT,2) IN (THIS.tabla_alias) \SELECT RECNO(), &xCampoO FROM (THIS.tabla_alias) ORDER BY &xCampoO INTO ARRAY xORDArray2 % TC F TC%CG(( F(C'%CxORDArray2(nIT,1)bN0.#C3REPLACE &xCampoO WITH nIT IN (THIS.tabla_alias) %*SEEK &XACampoID IN (THIS.tabla_madre) %C44REPLACE &xMCampoO WITH nIT IN (THIS.tabla_madre) %; F G(( U XORDARRAY XORDARRAY2XPARAMTHISREC_PUSHXCAMPOOTABLA_CAMPO_ORDENXCAMPOIDTABLA_CAMPO_ID XACAMPOID TABLA_ALIASXOPXMCAMPOOTABLA_MADRE_ORDENNIT TABLA_MADREXALIAS XOLDMORDERTABLA_MADRE_ORDERREC_POPBC.UTHIS TABLA_ALIAS TABLA_CAMPOPTCTCO BUXNEWPOSTHIS REC_STACK TABLA_ALIASPTC#C BUXNEWPOSTHIS REC_STACK TABLA_ALIAS F #6 T+C q%Cc TCO! H  BUTHIS TABLA_ALIASREC_PUSHCRC TABLA_CAMPOREC_POP$ 4TT F% C TCOxOrdArray(1,2)=&xCampoO xOrdArray(1,3)=&xCampo rSELECT RECNO(), &xCampoO, &xCampo FROM (This.tabla_alias) ORDER BY &xCampoO WHERE &xCampo INTO ARRAY xORDArray U XORDARRAY XHIGHLIGHTEDXCAMPOTHIS TABLA_CAMPOXCAMPOOTABLA_CAMPO_ORDEN TABLA_ALIAS SEL_TIENETUTHIS REC_STACK sel_cantidad0sel_cantidad_no sel_invertir; sel_ninguno sel_primeroy sel_tiene> sel_todosn ord_subir ord_bajar ord_arreglar+ sel_actual`rec_pushrec_pop$ sel_ultimo sel_getarraynInit112A232QaAAAAA222q2A"qAAAqAAq!AAAA3q2A!qAAAqAAqAAAA3q2ABbQAAqAA1aAAAAAbA322QB2QaAAAA2!A4a26 Yj['{-)40/T/7XO i{ Fg<_ )K"M%U %C 6B-%m!T% !T% !T   %!T    %BT%)T%T   %)T     UXMOVILXFIJO XPARAMETROSTHISCHEQUEAR_PARAMETROS POS_ARRIBATOPHEIGHTSEP_HORIZONTAL POS_ABAJO POS_IZQUIERDALEFTWIDTH SEP_VERTICAL POS_DERECHAMARGEN_SUPERIORMARGEN_INFERIORMARGEN_IZQUIERDOMARGEN_DERECHO&C     G+(Dey_func% T- T-% T- T-TCNT C NTTTTTTTTTT T T T  T! T"T# BU$ XPOS_ARRIBA XPOS_ABAJOXPOS_IZQUIERDA XPOS_DERECHAXMARGEN_SUPERIORXMARGEN_INFERIORXMARGEN_IZQUIERDOXMARGEN_DERECHOXSEP_HORIZONTAL XSEP_VERTICAL XDOCK_ALTURA XDOCK_ANCHOXIGUALAR_ALTURAXIGUALAR_ANCHOXCENTRAR_HORIZONTALXCENTRAR_VERTICALDEY_FUNC CHK_VALUETHIS PARAMETROS POS_ABAJO POS_ARRIBA POS_DERECHA POS_IZQUIERDAMARGEN_DERECHOMARGEN_INFERIORMARGEN_IZQUIERDOMARGEN_SUPERIORSEP_HORIZONTAL SEP_VERTICAL DOCK_ALTURA DOCK_ANCHOIGUALAR_ALTURA IGUALAR_ANCHOCENTRAR_HORIZONTALCENTRAR_VERTICAL %C 6B-%_T%T  % $T   U XMOVILXFIJO XPARAMETROSTHISCHEQUEAR_PARAMETROS IGUALAR_ANCHOWIDTH PARAMETROS DOCK_ALTURAHEIGHTTOPMARGEN_SUPERIOR SEP_VERTICALG+(Dey_funcTCO*TCCOO*TCC  OOH%CxMovilbOCxFijobO C xParametrosbO B-U XMOVILXFIJO XPARAMETROSDEY_FUNC CHK_VALUETHIS OBJ_MOVILOBJ_FIJOPARENTOBJ_PARAMETROS PARAMETROS+G+(dey_funcTC OT C CollectionN  T  TC 8C  %C ResizeTT T  UXGRIDXCOLXBINDXFORMXMETODOXOKDEY_FUNC CHK_VALUETHISCOLUMNASORIGINAL_TAMAOCCOLCOLUMNSXNAMENAMEXWIDTHWIDTHADDORIGINAL_ANCHO G+(Dey_funcTCO!TC NT     T  TCC  8T  UXGRIDXCOLXOKDEY_FUNC CHK_VALUETHISCOLUMNAS ULTIMO_ANCHOORIGINAL_ANCHOWIDTH XVARIACIONCCOLCOLUMNSXNAMENAMEXWIDTHORIGINAL_TAMAO %C 6B-%cT%&T  % T  % &T  %B$T   %|$T  %T  %T UXMOVILXFORM XPARAMETROSTHISCHEQUEAR_PARAMETROSMARGEN_SUPERIORTOPSEP_HORIZONTALMARGEN_INFERIORHEIGHTMARGEN_IZQUIERDOLEFT SEP_VERTICALMARGEN_DERECHOWIDTHCENTRAR_HORIZONTALCENTRAR_VERTICALIGUALAR_ALTURA IGUALAR_ANCHO8 %C :B-    T 3T C 6C 6"(CjTC%5 T  T T  T %T %#T % %T   %1T UXMOVILXGRIDXCOLNUM XPARAMETROSTHISCHEQUEAR_PARAMETROSXCOLS COLUMNCOUNTXCOLXWIDXLEFTXWIDTHCOLUMNS COLUMNORDER RECORDMARK DELETEMARKNIT LEFTCOLUMNWIDTHMARGEN_IZQUIERDOLEFT SEP_VERTICALMARGEN_DERECHOCENTRAR_HORIZONTAL IGUALAR_ANCHO ali_objetos0 param_creador siz_objetos`chequear_parametrossiz_guardar_columnas/ siz_ajustar_columnas ali_form ali_columnaso1qA#A!A!A!A"A!A!A!A35$bAbA21112111212121213qA"1AQARAA3"qA4qq!B!AA1ba2q!rDAE4qA#qA!aA!qA!aA"AA"AA"A"A21qAb1AA1!Q1AA#qA!1A"QA"A1*N $< SJ p fS tds}) nombre Uso interno - No tocar codigo_si_o_si El codigo no debe ser vacio ni 0. tabla_codigo Nombre del campo clave tabla_desc Nombre del campo de descripcin tabla_ayuda Subrutina de ayuda de listados.prg tabla_tabla Nombre de la tabla tabla_idxcod Indice de la tabla por la clave principal mensaje_error Mensaje de error al ser invlido el dato. vacio Expresion de vacio (space(5)) o 0 (0) (OJO !!!) filtro dato Variable/campo al que est unido el control text8 dato_format Formato del dato dato_mask InputMask del dato dato_maxlength MaxLength del dato keyf1 Usio interno. Temporal para la tecla f1 oldvalue Valor original modificado Verdadero = Dato modificado proc_ext Archivo de procemientos externo. (usualmente listados) dato_tabla Tabla del dato. Si es una variable, debe ser "m" (sin las comillas) valor es_f1 inicializado area_inicial area_anterior texto_filtro_mostrar Determina si retorna algun texto correspodiente al filtro en este control texto_filtro_descripcion Determina si se muestra tanto el codigo como el texto a mostrar texto_filtro_codigo Funcion evaluate a ejecutarse para mostrar el filtro texto_filtro_cod_desc Funcion evaluate a ejecutarse para mostrar el filtro con el cdigo mas la descripcion texto_filtro_caption Texto a mostrar como caption texto_filtro_empty Evaluate donde se comprueba si el filtro est vacio texto_caption Slo se usa para procesar el evaluate de texto_filtro_caption. NO ASIGNAR VALOR auto_completar Al estar en .t. se llama al mtodo autocompletar que completa el valor si se necesita un cdigo SI O SI y hay slo un valor posible solo_los_activos Por defecto solo permite los activos. Si no existe el campo est_act de tipo N, toma todos (por compatibilidad) param_reporte par_caption par_desde par_hasta primer_when disabledforecolor Specifies the foreground color of a disabled control. enabledforecolor dato_invalido tabla_prefiltrar tabla_select_proc tabla_obj_filtro obj_filtro tabla_select_proc_ext tabla_obj_filtro_form mostrar_label hlp .t. no permite edicin, .f. s. Ver hlp_cat_com readonly Specifies if the user can edit a control, or specifies if a table or view associated with a Cursor object allows updates. enabled_text9 valor_descripcion *buscar *f1 *actualizar Actualiza los controles *updated Funcin llamada cuando el control es modificado. *enabled_assign *valid Validacin del Contenedor. Debe retornar siempre .t./.f. *valor_assign *antes_de_salir Es llamado cada vez que se sale del control y luego de ser validado *texto_filtro Evalua los datos y regresa el texto correspodiente a la seleccion. *texto_caption_access *autocompletar Mtodo que completa el valor si se necesita un cdigo SI O SI y hay slo un valor posible, siempre que auto_completar est en .T. *sincronizar *par_caption_access *par_desde_access *par_hasta_access *par_desde_assign *tabla_select *obj_filtro_actualizado *tabla_obj_filtro_modificar *mostrar_label_assign *readonly_access *readonly_assign *valor_descripcion_access *preparar_filtro *filtro_access *filtro_preparar Funcin llamada en Filtro_Access para prepara el filtro dinmicamente. *obj_filtro_access *obj_filtro_preparar *f1_llamada_especial  DoCreate = .T. grid_mover_arriba = 0 Name = "hlp_bienes2" Grid1.COLUMN1.Header1.Name = "Header1" Grid1.COLUMN1.Text1.Name = "Text1" Grid1.COLUMN1.Name = "COLUMN1" Grid1.COLUMN2.Header1.Name = "Header1" Grid1.COLUMN2.Text1.Name = "Text1" Grid1.COLUMN2.Name = "COLUMN2" Grid1.COLUMN3.Header1.Name = "Header1" Grid1.COLUMN3.Text1.Name = "Text1" Grid1.COLUMN3.Name = "COLUMN3" Grid1.COLUMN4.Header1.Name = "Header1" Grid1.COLUMN4.Text1.Name = "Text1" Grid1.COLUMN4.Name = "COLUMN4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.Height = 432 Grid1.Left = 1 Grid1.Top = 60 Grid1.Width = 1019 Grid1.Name = "Grid1" Text1.Name = "Text1" btn_buscar.Name = "btn_buscar" tilde.Top = 108 tilde.Left = 924 tilde.Alignment = 0 tilde.Name = "tilde" Cod_desc_mar1.Label2.Name = "Label2" Cod_desc_mar1.Text8.Name = "Text8" Cod_desc_mar1.Text9.Name = "Text9" Cod_desc_mar1.Top = 276 Cod_desc_mar1.Left = 12 Cod_desc_mar1.Enabled = .F. Cod_desc_mar1.Visible = .F. Cod_desc_mar1.Name = "Cod_desc_mar1" Command11.Top = 3 Command11.Left = 347 Command11.Name = "Command11" Command1.Top = 3 Command1.Left = 395 Command1.Name = "Command1" Label1.Enabled = .F. Label1.Left = 573 Label1.Top = 329 Label1.Visible = .F. Label1.Name = "Label1" Text2.Enabled = .F. Text2.Left = 637 Text2.Top = 326 Text2.Visible = .F. Text2.Name = "Text2" Label2.Caption = "Texto" Label2.Enabled = .T. Label2.Left = 14 Label2.Top = 15 Label2.Visible = .T. Label2.Name = "Label2" Text3.Enabled = .T. Text3.Left = 51 Text3.Top = 12 Text3.Visible = .T. Text3.Name = "Text3" Label3.Enabled = .F. Label3.Left = 34 Label3.Top = 353 Label3.Visible = .F. Label3.Name = "Label3" Text4.Enabled = .F. Text4.Left = 120 Text4.Top = 350 Text4.Visible = .F. Text4.Name = "Text4" Command15.Name = "Command15" solo_descripcion.Top = 353 solo_descripcion.Left = 420 solo_descripcion.Alignment = 0 solo_descripcion.Enabled = .F. solo_descripcion.Visible = .F. solo_descripcion.Name = "solo_descripcion" Label4.Name = "Label4" Label5.Name = "Label5" Label6.Name = "Label6" Label7.Name = "Label7" Cod_desc_pro1.Label2.Name = "Label2" Cod_desc_pro1.Text8.Name = "Text8" Cod_desc_pro1.Text9.Name = "Text9" Cod_desc_pro1.Top = 264 Cod_desc_pro1.Left = 552 Cod_desc_pro1.Enabled = .F. Cod_desc_pro1.Visible = .F. Cod_desc_pro1.Name = "Cod_desc_pro1" texto_dev.Name = "texto_dev" filtro_stock.Option1.Left = 5 filtro_stock.Option1.Top = 5 filtro_stock.Option1.Name = "Option1" filtro_stock.Option2.Left = 85 filtro_stock.Option2.Top = 5 filtro_stock.Option2.Name = "Option2" filtro_stock.Left = 696 filtro_stock.Top = 0 filtro_stock.Name = "filtro_stock" Label8.Left = 624 Label8.Top = 5 Label8.Name = "Label8" Label9.Name = "Label9" bPROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE KeyPress lparameters nkeycode, nshiftaltctrl do case case thisform.wizard_buttons1.enable_finalizar .and. nkeycode=10 .or. (nkeycode=13.and.nshiftaltctrl=2) * CTRL-ENTER if dodefault(9, 0) thisform.wizard_buttons1.finalizar.click nodefault else return .f. endif case thisform.wizard_buttons1.enable_siguiente .and. nkeycode=2 .or. (nkeycode=4.and.nshiftaltctrl=2) * CTRL-RIGHT if dodefault(9, 0) thisform.wizard_buttons1.siguiente.click nodefault else return .f. endif case thisform.wizard_buttons1.enable_anterior .and. nkeycode=26 .or. (nkeycode=19.and.nshiftaltctrl=2) * CTRL-LEFT if dodefault(9, 0) thisform.wizard_buttons1.anterior.click nodefault else return .f. endif endcase ENDPROC PROCEDURE Unload *!* set topic id to IF thisform.opar_tc_cargar THEN * =sys_mostrar_Screen("Wndset cargar",.t.) thisform.opar_tc.Wind_sets_grabar(this) ENDIF return thisform.resultado ENDPROC PROCEDURE Load try this.name=strtran(this.Caption," ","_") catch endtry if this.set_acfodaid try SET DATASESSION TO _SCREEN.ActiveForm.DataSessionId catch endtry ENDIF THIS.altura_inicial = THIS.HEIGHT THIS.ancho_inicial = THIS.WIDTH thisform.opar_tc = NEWOBJECT("tc_form_parametros","tc.vcx") IF TYPE("p_formularios_posicionar")#"N" THEN p_formularios_posicionar=0 ENDIF IF p_formularios_posicionar=0 THEN thisform.opar_tc_cargar = .f. ENDIF *!* if thisform.HelpContextID#0 *!* mensaje('No debe setearse "HelpContextID" sino "Help_Topic" !!!') *!* set topic id to *!* else *!* xvar=thisform.Help_topic *!* do case *!* case type("thisform.Help_Topic")="C" .and. alltrim(thisform.Help_Topic)#"" *!* set topic to &xvar *!* case type("thisform.Help_Topic")="N" .and. thisform.Help_Topic#0 *!* set topic id to &xvar *!* otherwise *!* mensaje("No se ha ingresado la clave de ayuda !!!") *!* set topic id to *!* set topic to *!* endcase *!* endif thisform.asignar_color() ENDPROC PROCEDURE Init this.advertencia.Visible=.f. IF thisform.opar_tc_cargar AND p_formularios_posicionar#0 THEN thisform.opar_tc.frm_name=thisform.opar_tc_frm_name *=sys_m("ver") thisform.opar_tc.wind_sets_deseados_cargar(thisform) thisform.opar_tc.Wind_sets_cargar() thisform.opar_tc.wind_sets_deseados_setear(thisform) ENDIF THIS.BORDERSTYLE = THIS.BordeDeseado LOCAL xWidth, xHeight xWidth = SYSMETRIC(1) xHeight = SYSMETRIC(2) THIS.MINHEIGHT = THIS.HEIGHT THIS.MINWIDTH = THIS.WIDTH IF THIS.AnchoDeseado=0 * No inicializado ELSE IF THIS.AnchoDeseado <0 THEN THIS.WIDTH = xWidth + THIS.AnchoDeseado ELSE IF THIS.AnchoDeseado>=xWidth-20 THIS.WIDTH = xWidth-20 ELSE THIS.WIDTH = THIS.AnchoDeseado ENDIF ENDIF ENDIF IF THIS.AlturaDeseada=0 * No inicializado ELSE IF THIS.AlturaDeseada<0 THEN THIS.HEIGHT = xHeight + THIS.AlturaDeseada ELSE IF THIS.AlturaDeseada>=xHeight-140 THIS.HEIGHT = xHeight-140 ELSE THIS.HEIGHT = THIS.AlturaDeseada ENDIF ENDIF ENDIF IF this.WindowState_Deseado<>-1 THEN this.WindowState = this.WindowState_Deseado ENDIF THIS.AUTOCENTER = .T. * TIMER !!! this.contador.Left = this.wizard_buttons1.Left+this.wizard_buttons1.Width+10 this.contador.Top = this.wizard_buttons1.Top+7 if txnlevel()>0 and (p_demora_impresion>0 or thisform.timer_demora>0) * Estoy en una transaccin, no puedo esperar que responda ms all de p_demora_impresion segundos * Con p_demora_impresion = 0 deshabilito esta funcin thisform.conteo = iif(thisform.timer_demora>0, thisform.timer_demora, p_demora_impresion) && p_form_demora en segundos this.timer1.Interval = 1000 && 1 segundo this.contador.caption = alltrim(str(thisform.conteo)) && Caption inicial del contador this.contador.visible = .t. && Solo visible si corresponde this.timer1.Enabled = .t. else this.contador.caption = "" && Caption inicial del contador endif ENDPROC  Q"8 8 %C ? eu U4T T UVNEWVALTHIS VALOR_DESDEVAR1TEXT8VALUE4T T UVNEWVALTHIS VALOR_HASTAVAR2TEXT8VALUEW T%Cxv1bCLTC iTT%Cxv2bCTC T0% TTT U XV1XV2THISVAR1VACIOVAR2TEXT8VALUE VALOR_DESDE VALOR_HASTA%  B5 T %kTC TC,TCa ( % C :    BUTHISTEXTO_FILTRO_MOSTRARXTEXTO VALOR_DESDE VALOR_HASTAVAR1 TEXTO_FILTROVAR2 TEXTO_CAPTIONTEXTO_FILTRO_SEPARAOEXP_DEVMENSAJENAMEMESSAGEBUTHISVAR1 PAR_DESDEBUTHISVAR2 PAR_DESDEBUTHISVAR1 PAR_CAPTIONT UVNEWVALTHISVAR1 PAR_DESDET UVNEWVALTHISVAR2 PAR_DESDEv &T 0 ST ]T UVNEWVALTHISVAR1ENABLEDVAR2 BUTHISVALOR_DESCRIPCIONTTTTTTT -T -T  T  T  T  *%Cthis.var1.obj_filtrobOQT  %%Cthis.cmd_filtrobOT T   % T- UTHISVAR1TEXT8 CONTROLSOURCEDESDEVAR2HASTATEXT9FILTROSOLO_LOS_ACTIVOSTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_DESCRIPCION OBJ_FILTRO CMD_FILTROVISIBLETABLA_OBJ_FILTRO_MOSTRARENABLEDMOSTRAR_LABEL2 MOSTRAR_LABELvalor_desde_assign0valor_hasta_assignantes_de_salir texto_filtropar_desde_accessapar_hasta_accesspar_caption_accesspar_desde_assignpar_hasta_assign=enabled_assignvalor_descripcion_access&InitV1q"3q"34Q1A2Q1AA41AqAAAAB3333qR3qQ3qQAQA"33aabababaAQaaAA1AA1Y ~Kn"+/IC1H37M5R8?uX;j]FlH q)8 >ࡱ>   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNRoot EntryhOleObjectData >AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I ImageWidth I 8#$,j(6(!C4~ ͫ  TB_EXPORTAR TB_IMPRIMIRTB_SALIRTB_ARBOL TB_BUSCARTB_P1TB_PATB_PSTB_PU TB_IMP_SETUPTB_PDFTgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{w#$,j(6(!C4~ ͫ  TB_EXPORTAR TB_IMPRIMIRTB_SALIRTB_ARBOL TB_BUSCARTB_P1TB_PATB_PSTB_PU TB_IMP_SETUPTB_PDFTB_EXCEL lt ( @̲ҼĨмffff^`bJDllj|zꬮhjxxzxpTTbdZD:ؼ촴VVddnNNhhV@8~|ͲffӼض޾ꤤppXXDDXXhhְڶzLLbbdf``NN^^jj溚ҬʨĢdd\\^^lBBfDD涬ĸNN|||XXZZ얖hh88ʴHHЮRRjXVD0(\J@rff\PHdVRtjnnnTD<PFB^ZVvbZ~ljXxXXX<<:LHB|vvppNNN~~~xxxVVVzzzvvvRRRtttlllppp^^^rrrLLLfff<<<```\\\ZZZzllPPPPLLffHHHƒDDDJFF444bbbӞD˽$B0-ܽ2X/./MXĒCMMXŗ;MX11˴/X ֹ#/͸.մͥ\eɱ˭-*|1;8U ;ݰ;QL018 hL'ݦ;;/8fOroq4=;;-2L 8f ,r3"4;;L 8d~>r3"4ćՒ 8dZ=>r3"4ˣ10 T8r3"4MD1 T_cWQr3"4tuvvwxyz T)8q{\d|}~r3"47jkkllmn T)8ooohppq\crs3"4`abbbbbbAT)_cdef^g)hi38"4RSSSSSSSAT)8+UVWXYZ[\]^_"4JKKKKKKKA)8!,HLM OPQ+3"4$EFFFFFFFA)8!GHDI10-!3"4$?@@@@@@@A)8!,C.<<.D!3"4566666666')8!,9/;<=;>!3"4$%&&&&&&&&'()*+,-./010!3"4LL !"#  =777777:77777?lt6 &h( @“fft^^iYYvv̳Ʈzmmi__uuEBBPMM|{}olŹ涭ٿټ̢ٷŸʬŢȥӹ̨溛ЪԲ֭װڵ۷߾Vyn~pYv~~~}}}|||zzzyyyxxxwwwvvvuuutttsssqqqpppooonnnmmmkkkgggfffeeeccc```___^^^\\\ZZZYYYWWWUUURRRQQQPPPOOONNNMMMLLLKKKJJJIIIHHHGGGEEEDDDAAA===<<<:::555333̩ߢPyGYVPS|öjOPвfMPSVövVGpߪwIMPSVYöuYJƪHIMPSVY\ܪlIMPSVYȹ总ܪnMPS]w}zwsڪqPZnbf}zEF٪Ĕb`bfiU]nªDCتY\`bfk`S\UVWbtɺ֪eY\`bfkhQzk[XY]mwժY\`bfkmRkvRSWj|~n^[]dowҪc`bfklRi~PQRSTUV_r{m^`bfkf_kNPQRSTUVWXYa{l|gSTUVWXYsVVVzx\`vLKJbtxzuoii "%'V^gigĐ!3752/.,+-0*6:::::::983 ;;;;;;;;;;(!@@@@@@@@@@#!)<<<<<<<<<<4=========4AAAAAAAAAA&!$BBBBBBBBBB>>>>>>>>>>1 ?????????? ????( sggUOOĻ{{κzcaտ˫÷ֳԯܸzgq~~~|||zzzvvvsssqqqmmmddd```___XXXWWWUUUPPPNNNEEECCCWWWWWWWOdkljh`WcF @)>gi^L" 'CPebT:&Aa=-N\M@FORUc^=-HL4DS[YI7f]_F,---+18KUgZJ*-04.2563/3aW=.5EG1!#%,78V=4$@;B<99?W (XW  WQ lPSnS]w??}zslt   ( @ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHlt   ( @ @80( XNE;22% qeZODD3"}pcWWA+݈ـՀ`@ U*j5@80( XNE;22% qeZODD3"}pcWWA+݈ـՀ`@ U*j5@80( XNE;22% qeZODD3"}pcWWA+݈ـՀ`@ U*j5@80( XNE;22% qeZODD3"}pcWWA+݈ـՀ`@ U*j5lt ( @ȋ|yffƓ˘׎ڳ֮ݰàԤ|մޫ‘{߬ݪΛợפ٦ܩSmѤimګ̞e}ݬͨlfnĦբ֣ۨԡ緕٪ɚQe֘{{{aBk}U6Ijgkpxur@}_mtss B92990DE 9$93 e PSSSSSS}S}|S}S}|S}S}}|SSSSSSSSS}SS???+S} Rp)N65S|}~x6PaaXXISxys9UNFOaYZZfzw{ISrstDpNPiufvw?+So6p OaZ`cqc5Ske MeOXZblm--hYan5S]2MeOXZfghhgfiXj+S,,!3 ;GaZ_bccb_YQd5S #*H\] ^F[XZ_``_ZX[3S,TUHV&WMENPXYZZYX[G;S ,J)KL*M )NOPQQPOG6RS@ABC9 DE)FGGFH3 I 6.78%9:;<===>=:?+,-./'0 112345#$%%&'( )*"+ !" ??lt   ( @ --fC-fCfC-fCfC-fC-fC-fC--fC-fC---fC-fC----fC-fC-----fC-fC------------------fC-fC-------------------fC-fC--------------------fC-fC---------------------fC-fC----------------------fC-fC----------------------fC-fC---------------------fC-fC--------------------fC-fC-------------------fC-fC------fCfCfCfCfCfCfCfCfCfCfCfCfC-fC-----fC-fC----fC-fC---fC-fC--fC-fC-fC-fCfC-fCfC-fC-???????ππ????????lt   ( @ fCfCfCfCfCfC-fCfC--fCfC---fCfC----fCfC-----fCfC------------------fCfC-------------------fCfC--------------------fCfC---------------------fCfC----------------------fCfC----------------------fCfC---------------------fCfC--------------------fCfC-------------------fCfC------fCfCfCfCfCfCfCfCfCfCfCfCfCfC-----fCfC----fCfC---fCfC--fCfC-fCfCfCfCfCfC???????????????lt   ( @ fCfCfCfCfCfC-fCfC--fCfC---fCfC----fCfC-----fCfC------------------fCfC-------------------fCfC--------------------fCfC---------------------fCfC----------------------fCfC----------------------fCfC---------------------fCfC--------------------fCfC-------------------fCfCfCfCfCfCfCfCfCfCfCfCfCfC------fCfC-----fCfC----fCfC---fCfC--fCfC-fCfCfCfCfCfC???? lt   ( @ -fC-fCfC-fCfC-fC-fC-fC--fC-fC---fC-fC----fC-fC-----fC-fC------------------fC-fC-------------------fC-fC--------------------fC-fC---------------------fC-fC----------------------fC-fC----------------------fC-fC---------------------fC-fC--------------------fC-fC-------------------fC-fCfCfCfCfCfCfCfCfCfCfCfCfC------fC-fC-----fC-fC----fC-fC---fC-fC--fC-fC-fC-fCfC-fCfC-fC--?s33s? lt   ( @ JVTI{nKKKKKK___*O:KCAJUwwwMMMMMM\\\555:::DDDm;=#Z>;TldPBB$N!# A___EEEnnnPMM~MTAg_<Z2H5(wwwAAAhewvjgcZUMLD9)wwwJJJmmm꺺1 ,H|ml^ZVUQLD3!Q(0OvvvZZZ涶(w/{^{odl^F;?=3&szLy⫫xuli뺮pig:15!l%'(/!J洴uuufffzzzztd~שּׁnt|B:4+:婩vvv~~~KKKRRRc^]pljLhmd|pty7)&AI>%ӋnnnޢtttXYZqqrȵUum_{pty7)&M>01یxxxwwwͷpppzzzr֍MPS/*+ZgUU닋zzzڑýѨ~xJKK&'+\zPPP}}}QQQFFFmmmc`_PQRÉUUU~~~|||þxxxrrr{{{ވoooɁ===OOO```ņ@@@PPPyyy꿿¼ņ:::eee|||fffŇ:::fff涭rrrȅ999oooǚ溛̻֭YYY...UUUԲ۷۷۷۷۷___/// iYYkkk߾߾߾߾߾߾߾~~~===̢i__ȿ}}}ٷϒolt^^}ټuuٿꥇ|{ߊvv̳̳̳̳̳̳̳̳̳̳̳Ʈo??? ltB !#, (!F~~}}||{{yywwttrrookkhhdd``[[WWRRLLGGAA;;55..'' Ŀ½ƾxvLLTTFF**`_XWlk[[ttzy44DCfeywVU\[|{~~urrd$$z}<,x147:=A D,Gb\BY666 74mh:c>bbIIB34cvcbbbFIB6D4cdz>|b>RYY3HFHB7F4>h`yebb\8bO883FZRKOF4b:c>]xm>>>b448\\ ?SKGO44:cccichccc>bb48\gPO44c>>cc:y}k:hhh|||_VKG88>>>cch}ju]d`}k}ytTVWG88bb>cc:qrv^itYP8\bbb>c:}jv:q~tkkn}gYP4\44b>c:mhzuqv{iqh:|48gZYP8[444bc::hwxqy]q::c>48gYP8Z884b>c::ctutv::mcb4\[ZWP8Z\884bcmmqrs`q:::cb8\ ZWG8Y[884bc:mhnoph::c>48[?KO8Y \884>c:h^lc:::cb8\ ZYKO8Rg8844>chijk:c>b48[?KGH8OY[\844bcdefcb448g?RPOF8FPY \8844]`ab488[ZWKOFD8 !"#%&'(*+-/0159;=@7 AB 38 !"&')*,./0159;=<>4?> !#$&()+/0159;< 4 "#%'(*,-./01597:4#$()./015678 !"#$%&'()*+,-./01234      lt6  &h ( @ ll\\00<|>얖XXddZZ䒔lljTD<\J@jXVtj<||≯율4|4DD::@@@@@@ꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8llj,,PP.|.Ϊ𜢜,,NN44DD@@ꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8llj``""P|P((PP8888ꤤVVffnNNں¬ppXXDDXXhhbdV@8lljbb"|"Π,,HHHHꬮVVffpTTnNNhhbdV@8lljddT|T,|,ppꬮVVffpTTpTThhbdV@8llj \\&|&ΤPPȌꬮVVffpTTpTThhbdV@8lljTT,,H|HddȔ||PPꬮVVffpTTpTThhbdV@8llj::DD8|8βttˆ||XX<|<촴VVddnNNľpTThhbdV@8llj66HH4|4ΰȌhhȐLL<|<@@ꬮhjxxzxpTTffbdZD:lljXX**H|H̔PPԬ88L|L::<|>@|@,|,P|P"|"R|R(|(D|D8|84~4PP((\\dd XX44<>8{88{8:{9,w/uk`aPGCJB6<^.V|N<><===;~:@}@??WW\\]\TVzvzbauu^_OKjDC{C==+q+ZZmmggQTvPLFlC)r)\\nmonpossԪYYVUQUS&o&aaǸϸлѺŸuwooҮ|{٨XYWVOXQ"l"gg+p+8y7)s+woۅUT±Z[VVOWQ)q)[[7y65|6~vكWV^^TTRQMMWWZYOWQ*r*\\1u2{w܄[ZɳnnUTPXS)q)\\pq؃_^贒NMQ[V)r)\\ӧde߅\\ڲKHKWP)q)\\جllAATRϦǽĦgjkmm"n"ggɡUU8|8*p*\\駾,p+.s.'m&UU}gd&o&bbΥåĪæμĦŨȲWW.v/)r)]]YY:|:9}9GG\\ZZZZYY\\\\]]ZZZZYY[[YY????;;:}:(r()r))r))r))r))r)(r(*r**r*)r)*r**r*?~?887"77Y%/5 1U4QINTEGERQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGQBOOLEANQBOOLEAN QINTEGER 5  T C N TCCC .TCCNLR6C %CxCampobLz% v (kT C &txCam._pos=0 BaT C &txCam._pos=&txCam._pos+1 xPos=&txCam._pos 0IF ALEN(&txCam,1)\ TUXGRUPO_INICIADO XAUTOCICLO XSUPERIOR XINFERIORXLABELXTEXTOTHISALIASMOSTRAR_SUB_PAGINA_GRUPOMOSTRAR_TOTAL_GRUPONIT PAGE_HEADERCAMPOS_LINEA_POSTOTALLIN XSUB_LABELGRUPO_TRANSPORTE_TEXTOGRUPO_TOTAL_TEXTO4%5TtxtAlias% %\TMP\CfT.dbf ,T\tmp\.dbfT%C0FQ -C No existe U THISALIASNAME ARCHIVO_DATOSPARENTARCHIVOTEMPORALP_LOCAL TXARCHIVODBFMENSAJEz5 F(bCCTUNITTHISALIASCAMPOS_LINEA_POSTEXTOTOTALIZALIN F Ta T-%M C T- F T-+C+  MC%CC C C Ta T- C C C C C C FH%  CC C CUTHISALIASXINICIARXGRUPO_INICIADO ES_SUBREPORTESUBREPORT_HEADERXSALIR PAGE_HEADER GRUPO_CAMBIO GRUPO_TOTAL GRUPO_HEADERMANUALES_ANTESLINEAMANUALES_DESPUES TOTAL_GENERALY 45TCxFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) FTC TH  C- T NSTC _ DyTC _ LxValue2=&xFormato TCHD LTC  RTC  CDTC B UXCAMPOXPOSXVALUE1XVALUE2XVALUE3TXCAMTHIS CAMPOS_GETALIASXFORMULAXTIPOXFORMATOXALINEAXANCHO04QBOOLEANQBOOLEANQBOOLEAN5 F/%    B-% T( TCa  T  %  C %?T YT T( TC- %CTCC>\ T  U XAUTOCICLO XSUPERIOR XINFERIORNITXLABELXTEXTOTHISALIASMOSTRAR_SUB_PAGINA_GENERALMOSTRAR_TOTAL_GENERALCAMPOS_LINEA_POSTOTALLIN PAGE_HEADER XSUB_LABELTOTAL_TRANSPORTE_TEXTOTOTAL_GENERAL_TEXTO!4QBOOLEANQINTEGER5TCN% 5T!.Page_Header(xForzar,xReserveLin) &txCall B5     FC%  B- T,C12345A 6%  `BTC% BT CT/TC Pgina : CCZ6)TCC_6 TC C>C CC!" %#T$%  T$%&T'CUIT: (  T'%) T*+   T*%,FT-. ] T-0%,& ) # CC$('C* C- TTC/% B (0xLabel=&txCam.(nIt,2) xAncho = &txCam.(nIt,5) #xAlinea= "PAD" + &txCam.(nIt,6) '?? &xAlinea.(xLabel,xAncho-1) + " "  (0xAncho = &txCam.(nIt,5) C-1Q TTC2% ^B%3 %4Caaa5%6Caa7U8XFORZAR XRESERVELINXOK CHK_VALUETHIS ES_SUBREPORTEPAGE_HEADER_FORWARDTXCALL PARENT_REPORTNITTXCAMXVALUE1XVALUE2XVALUE3ALIAS PAGE_FOOTERLINMAXLINXDPRNINICIALFORMFEEDMOSTRAR_PAGE_HEADERPAGE_HEADER_INIT CAMPOS_GETPAGTXPAGMOSTRAR_PAGINATXFEC MOSTRAR_FYHFYHMOSTRAR_FYH_FORMATTEMPANCHOPARENTTITULO1MOSTRAR_EM_RAZONXEM_RAZON_SOCIALEM_RAZON_SOCIALMOSTRAR_EM_CUITXEM_CUITEM_CUITMOSTRAR_EM_DOMICILIO XEM_DOMICILIO EM_DOMICILIOMOSTRAR_EM_ACTIVIDAD XEM_ACTIVIDAD EM_ACTIVIDADPAGE_HEADER_BEFORE_LABELCAMPOS_LINEA_POSXANCHOPAGE_HEADER_AFTER_LABELMOSTRAR_SUB_NUEVA_HOJAMOSTRAR_SUB_PAGINA_GRUPO GRUPO_TOTALMOSTRAR_SUB_PAGINA_GENERAL TOTAL_GENERAL64QINTEGER5H*& [Tthis.campos_linea Tthis.campos_grupo $Tthis.campos_grupo_total Tthis.campos_total &Tthis.campos_manual BUXCAMPOTXCAM 45TC8IF !&txCam.(xPos,7) AND !&txCam.(xPos,8) THEN kBxFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) !xTotal_Final= &txCam.(xPos,7) !xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) !xSuma_Grupo= &txCam.(xPos,10) FTC H NT  T   C D :T  T   LT  C6T  C6&txCam.(xPos,9)=xSuma_Final &txCam.(xPos,10)=xSuma_Grupo U XCAMPOXPOSXVALUE1XVALUE2XVALUE3TXCAMTHIS CAMPOS_GETALIASXFORMULAXTIPO XSUMA_FINAL XSUMA_GRUPO45 TTC xFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) !xTotal_Final= &txCam.(xPos,7) !xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) !xSuma_Grupo= &txCam.(xPos,10) TC? QHk6 $     TTC- Q   T TC_  R TTC_ 2kTC XTCH LTC  CTC  2TC B U XLINEA_TIPOXPOSXIMPRIMIR_LINEAXVALUE1XVALUE2XVALUE3XCAMPOTXCAMTHIS CAMPOS_GETXANCHO XTOTAL_FINAL XTOTAL_GRUPO XSUMA_FINALXFORMATO XSUMA_GRUPOXALINEA 4TC% R&txCam.(xPos,9)=0 % &txCam.(xPos,10)=0 UXCAMPOXPOSTXCAMTHIS CAMPOS_GETa 5C FTC(xLabel=&txCam.(nIt,2) xAncho = &txCam.(nIt,5) $xAlinea= "PAD" + &txCam.(nIt,6) '?? &xAlinea.(xLabel,xAncho-1) + " " (<xAncho = &txCam.(nIt,5) C-Q T CU NITTXCAMTHIS PAGE_HEADERALIAS CAMPOS_GETCAMPOS_LINEA_POSXANCHOLIN!4QBOOLEANQINTEGERTCN"TC6"TC6%  B-%Caa-a%Ca-a U XFORZAR XRESERVELIN CHK_VALUETHISMOSTRAR_SUB_PAGINA_GRUPOMOSTRAR_SUB_PAGINA_GENERALLINMAXLIN GRUPO_TOTAL TOTAL_GENERAL$!4QBOOLEANQINTEGERUXFORZAR XRESERVELIN$!4QBOOLEANQINTEGERUXFORZAR XRESERVELIN$!4QBOOLEANQINTEGERUXFORZAR XRESERVELIN4QBOOLEANUXGRUPO_INICIADO4QBOOLEANUXGRUPO_INICIADO%CCons B%GT%tT%T%TU THISEM_RAZON_SOCIALCONSEM_RAZON EM_ACTIVIDADEM_ACTIEM_CUIT EM_DOMICILIOEM_DOMIcampos_agregar0finalgenerarX grupo_cambiol grupo_header grupo_total iniciar lineascanAtexto total_general~ page_header[ campos_get !totalizaW"total% total_resetv)subreport_header6* page_footer+page_header_initu-page_header_before_label-page_header_after_label-grupo_header_before;.grupo_header_afteri.Init.1D QAqAASAAaq31aaaaAAA2!4bAaAaaA3!bqA!AaAAqqA3RAAAQAAARAA2qA1qA1qAArAAAAARA3bAbAAAA3qqqAA2"AqAAAA3RAA!A!AQAAaAaAaA2qAAAAAARA3qQAArRqAAAAABq"A!A"A"AqqqAAAr1qAqAAA!A"AA2!r111A11A2RAAAAA4Q2a1!!AAaAaaA2BQAaA3AqAqAqA2#!qA#A"A3222!2!2aAAb1Ab1Ab1Ab1A1 -*}8F4 ~[W : q\ A_8T5L]nj%r%&&B* ^*.3.N/_u/ 1k-1 333i333324\44444M6)7 PROCEDURE valor_desde_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_desde = m.vNewVal this.var1.text8.value = m.vNewVal ENDPROC PROCEDURE valor_hasta_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.valor_hasta = m.vNewVal this.var2.text8.value = m.vNewVal ENDPROC PROCEDURE antes_de_salir local xv1,xv2 *=sys_m("a de s") xv1=this.var1.vacio if type('xv1')='C' xv1=evaluate(this.var1.vacio) else xv1=this.var1.vacio endif xv2=this.var2.vacio if type('xv2')='C' xv2=evaluate(this.var2.vacio) else xv2=this.var2.vacio endif if this.var1.text8.value#xv1 .and. this.var2.text8.value=xv2 this.var2.text8.value=this.var1.text8.value endif this.valor_desde = this.var1.text8.value this.valor_hasta = this.var2.text8.value ENDPROC PROCEDURE texto_filtro IF NOT THIS.texto_filtro_mostrar THEN RETURN "" ENDIF PRIVATE xTexto xTexto="" TRY IF THIS.valor_desde==THIS.valor_hasta THEN xTexto=THIS.var1.texto_filtro() ELSE xTexto=THIS.var1.texto_filtro() xTexto=xTexto + THIS.var2.texto_filtro(.T., xTexto,this.var1.texto_caption, THIS.texto_filtro_separa) ENDIF CATCH TO oEX IF p_dev THEN =mensaje(this.name + ": " + oEX.MESSAGE) ENDIF ENDTRY RETURN xTexto ENDPROC PROCEDURE par_desde_access *To do: Modify this routine for the Access method RETURN THIS.var1.par_desde ENDPROC PROCEDURE par_hasta_access *To do: Modify this routine for the Access method RETURN THIS.var2.par_desde ENDPROC PROCEDURE par_caption_access *To do: Modify this routine for the Access method RETURN THIS.var1.par_caption ENDPROC PROCEDURE par_desde_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.var1.par_desde = m.vNewVal ENDPROC PROCEDURE par_hasta_assign LPARAMETERS vNewVal tHIS.var2.par_desde = m.vNewVal ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method TRY this.var1.enabled = m.vNewVal CATCH ENDTRY TRY this.var2.enabled = m.vNewVal CATCH ENDTRY THIS.Enabled = m.vNewVal ENDPROC PROCEDURE valor_descripcion_access *To do: Modify this routine for the Access method RETURN THIS.valor_descripcion ENDPROC PROCEDURE Init THIS.var1.text8.CONTROLSOURCE = THIS.desde THIS.var2.text8.CONTROLSOURCE = THIS.hasta THIS.var1.text9.CONTROLSOURCE = '' THIS.var2.text9.CONTROLSOURCE = '' THIS.var1.filtro = THIS.filtro THIS.var2.filtro = THIS.filtro THIS.var1.solo_los_activos = .F. THIS.var2.solo_los_activos = .F. THIS.var1.texto_filtro_mostrar = THIS.texto_filtro_mostrar THIS.var2.texto_filtro_mostrar = THIS.texto_filtro_mostrar THIS.var1.texto_filtro_descripcion = THIS.texto_filtro_descripcion THIS.var2.texto_filtro_descripcion = THIS.texto_filtro_descripcion TRY IF TYPE("this.var1.obj_filtro")="O" THEN THIS.var2.obj_filtro= THIS.var1.obj_filtro ENDIF IF TYPE("this.cmd_filtro")="O" THEN THIS.cmd_filtro.visible = this.tabla_obj_filtro_mostrar THIS.cmd_filtro.enabled = this.tabla_obj_filtro_mostrar ENDIF CATCH ENDTRY TRY IF NOT this.mostrar_label2 THEN this.var2.mostrar_label = .f. ENDIF CATCH ENDTRY ENDPROC 5"55%0/D40U % Iz=1%Cڭ    &C  CBH  %CTC  '   Q%C+ MH %C } H %C  H %C+  H      %T #) =#) U#6 2  T C %%C >!T C C >= T  CCC fF G(( H2 (-CC g  C >+%C CC ZCC >= "-CC g  C >T  " C DGEC G %C+@G E G T  ! N GF EC gGF%C+GF EC gGFT     UNKEYCODE NSHIFTALTCTRLP_BUS_BUSQUEDAS_CON_ACENTOSFORMKEYPRESSTHISFORM BUSCAR_TXTXTXTTHISSALIDAOLDKEYXOLDKEYXOLDREGGRID1 RECORDSOURCE ORDEN_ACTUAL COLID_ACTUALBARRASTIPO_CAMPO_ACTUALORDEN_NUMERICO_ACTUALTEXT1REFRESH ACTUALIZARI FG((  UTHISTEXT1REFRESHGRID1 RECORDSOURCE ORDEN_ACTUALSETFOCUST- UTHIS CANCELADORELEASE 4 5 TH0 ST vT T T T T  %T  HT   kT   T   T%r F G((T S=CaError al invocar el orden Cf !!!  T%nBHv T- T- T- ;T- hT- T- T- T-  T-  IT -  vT!-Hn  T"T#$T%&T'(TaT)* T"T#+T%,T'-TaT). &T"T#/T%0T'1TaT)2 T"T#3T%4T'5TaT)6 8T"T#7T%8T'9TaT): T" T#;T%<T'=TaT)> JT" T#?T%@T'ATaT)B T" T#CT%DT'ETaT)F  \ T" T#GT%HT'ITaT)J   T" T#KT%LT'MT aT)N  n T"T#OT%PT'QT!aT)RTFG(("TS#) TUUXHEADERXTAGAAATHISORDENORDEN1ORDEN2ORDEN3ORDEN4ORDEN5ORDEN6ORDEN7ORDEN8ORDEN9ORDEN10GRID1 RECORDSOURCE INDICE_ACTUALMENSAJE_SUSPENDOP_DEVCOLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4COLUMN5COLUMN6COLUMN7COLUMN8COLUMN9COLUMN10COLUMN11 ORDEN_ACTUALCLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPO COLID_ACTUALCOLIDORDEN_NUMERICO_ACTUALORDEN_NUMERICOCLAVE_BUSQUEDA1 TIPO_CAMPO1COLID1ORDEN1_NUMERICOCLAVE_BUSQUEDA2 TIPO_CAMPO2COLID2ORDEN2_NUMERICOCLAVE_BUSQUEDA3 TIPO_CAMPO3COLID3ORDEN3_NUMERICOCLAVE_BUSQUEDA4 TIPO_CAMPO4COLID4ORDEN4_NUMERICOCLAVE_BUSQUEDA5 TIPO_CAMPO5COLID5ORDEN5_NUMERICOCLAVE_BUSQUEDA6 TIPO_CAMPO6COLID6ORDEN6_NUMERICOCLAVE_BUSQUEDA7 TIPO_CAMPO7COLID7ORDEN7_NUMERICOCLAVE_BUSQUEDA8 TIPO_CAMPO8COLID8ORDEN8_NUMERICOCLAVE_BUSQUEDA9 TIPO_CAMPO9COLID9ORDEN9_NUMERICOCLAVE_BUSQUEDA10 TIPO_CAMPO10COLID10ORDEN10_NUMERICOOLDKEY ACTUALIZAR+%CO$TCOUTHISREGISTROl4He N5 B CR B 2e BU XTIPODATOe'%CvNewValbCC LT - T UVNEWVALTHISFORMCAPTIONTHISCAPTION_AGREGADO' T <   T T Td% ( +TC CCZ6T  this.anchoTC T)TC  CC Z6T  this.anchoTC %&xColVar = xPorc+xVal ( +TC CCZ6TCCZ)%Cthis.tipo_campoC %  UTthis.grid1.column .width = int(xtotal * this.ancho / 100) &xprop 2TCthis.grid1.column.width!TC this.anchoTdd ( +TC CCZ6TCCZ)%Cthis.tipo_campoC%  UTthis.grid1.column .width = int(xtotal * this.ancho / 100) eTthis.grid1.column0.width = int( xtotal1 * xcorreccion * this.ancho / 100) &xprop %  T - UXINICIALZXTOTALACCXFIJO XCORRECCIONZGRIZCOLXPORCXCOLVARTHIS ANCHO_GRID ARR_CAMPOSGRID1 COLUMNCOUNTXTOTAL1XANCHO_FIJO_PERANCHO_COLUMNA_FILLXVALAJUSTE_ANCHO_INICIALXPROPTHISFORMREFRESH"8%CCC@.t.  T4%CC@.t.  2TCCC  and 6Cset filt to &asas %C  %C  #) U THISFILTROTILDE_HABILITAR TILDE_FILTROASASTILDEVALUETHISFORMREFRESHTCUTHIS BACKCOLOR SYS_COLOR4T C UTHIS ANCHO_GRIDTHISFORMWIDTHFORM_MENOS_GRID AJUSTAR_ANCHOREFRESHY TCW FTC FT CUXAREATHISTABLAFILTRO BUSCAR_TXTTHISFORM ASIGNAR_COLORCUTHISGRID1REFRESH 4 T C% zT T    F %  T T T T T T T  T  T  TC 6C 6C 6C 6C 6C 6C !6C "6C #6C $6C %6T &T  T &'( &8pT(this.grid1.columnCC'Z$.controlsource = this.clave_busquedaC' CC'Z6 &xprop }T(this.grid1.columnCC'Z,.Alignment = this.alineacion(this.tipo_campoC' CC'Z6) &xprop T(this.grid1.columnCC'Z2.text1.Alignment = this.alineacion(this.tipo_campoC' CC'Z6) &xprop %'T  ) rT(this.grid1.columnCC'Z&.header1.caption = this.titulo_columnaC' CC'Z6 &xprop @T(this.grid1.columnCC'Z.header1.Alignment = 2 &xprop aT(this.grid1.columnCC'Z.format = this.formatC' CC'Z6 &xprop gT(this.grid1.columnCC'Z.inputmask = this.inputmaskC' CC'Z6 &xprop T  Ca *% +T +T  ,T - .T / 0T 1 2T 3T 4aF %5'(  <T6Cthis.clave_busquedaC'CC'Z63T7C this.ordenC'CC'Z6&INDEX ON &xidx_hlp1 TAG &xidx_hlp2 (8G(( % 9 #)T :;T : 3T <; 3% =T >?aT >@aT > AT >B C } T >?-T >@-T >B-T D D% Ey T F T G G ET FT HaT IaT JT K T L D MUNXTITULOXTABLA XEXPRESIONXORDENXTITULO_EXPRESIONXIDXCLAVEXTOTAL XCOLUMNASXPARAMTHIS ANCHO_GRIDTHISFORMFORM_MENOS_GRID ANCHO_TOTALTABLA ORDEN_ACTUALIDCAPTIONGRID1 RECORDSOURCECOLUMN1 CONTROLSOURCEHEADER1CLAVEWIDTHTITULOANCHOANCHO1ANCHO2ANCHO3ANCHO4ANCHO5ANCHO6ANCHO7ANCHO8ANCHO9ANCHO10 COLUMNCOUNTZXPROPTITULO_BUSQUEDA AJUSTAR_ANCHO WINDOWSTATEORDENCLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPO COLID_ACTUALCOLIDCOLUMNA_ACTUALFONTBOLDP_SQL XIDX_HLP1 XIDX_HLP2OEXPREPOSICIONADOTEXT1LEFT BTN_BUSCARTILDE_HABILITARTILDEENABLEDVISIBLE TILDE_TEXTOVALUE TILDE_VALORHEIGHTGRID_MOVER_ARRIBAANCHORTOP AUTOCENTERCOMIENZOOLDKEYMINWIDTH MINHEIGHTREFRESH0on escape &onesc T CU XCANCELADOBUSTHISFORM CANCELADO T BU XCANCELADOBUSTHISFORM CANCELADOTHISCLAVE%jFG((% XCT-  U THISCOMIENZOGRID1 RECORDSOURCE ORDEN_ACTUALPREPOSICIONADOTECLATHISFORMFILTRAR ACTUALIZAR' CUNKEYCODE NSHIFTALTCTRLTHISTECLATaUTHISFORM CANCELADOtecla0 actualizar)salida header_clicken_foco alineacioncaption_agregado_assign ajustar_ancho.filtrar asignar_colormResizeLoad-GotFocusInit Release-Unload^-Activate-KeyPress. QueryUnload/1aAAA!AA11AA1A1A1A11Q1Q1Q"2AAa"A"aaaaBaaaaBBBB443q11111111111A2A1AACaqaqaqaqaqaqaqaqaqaqaqA11111q111111q111111q111111q111111q111111q111111q111111q111111q111111q111111q1AQ5SA3qAAA4qrA!3qtBr1qAAAR!AACcRQAACA3qB"BRQAAB323q23bA21a112a63r!ArBbbAC3111q1aBBA1QA2#aarb15AB215A33"22AB3BR31 V [ s\x |_ ]{(k 0 {!= !)F>)4+OX+r+Q+",U=,,],-_-T>r>>> ?(?r@@@ A&A)5 x %wU%C oContenedorbO>TYTTTTTTT U OCONTENEDOROCFG1OCFG2THIS CONTENEDORPARENTCFG_ASIGNAR_PROPIEDADESCFG_CREAR_PROPIEDADES PROPAGAR_OCFG#%Cthis.contenedorbO*B-TT T!%C f CFG_CONTROL T-T ( T- %   t9%C f CFG_CONTROL   p   UXYGRUPOXTGRUPOXHGRUPOXOKOEXTHIS CFG_GRUPOCFG_GRUPO_HIJOOCTRL CONTENEDOROBJECTSCLASS CFG_GRABARGRABARPROPAGAR_ENABLED_OTROS;T T CUVNEWVALTHISENABLED ENABLED_HIJOSPROPAGAR_ENABLEDm#%Cthis.contenedorbO*B-TTT!%C f CFG_CONTROL T T%T  \/%C f CFG_CONTROL  XT    U XYGRUPOXTGRUPOXHGRUPOTHIS CFG_GRUPOCFG_GRUPO_HIJOOCTRL CONTENEDOROBJECTSCLASSENABLED ENABLED_HIJOSPROPAGAR_ENABLED_OTROS BUTHIS ENABLED_HIJOS)T CUVNEWVALTHIS ENABLED_HIJOSPROPAGAR_ENABLED_HIJOS#%Cthis.contenedorbO*B-TT/%C f CFG_CONTROL  T    U XYGRUPOXTGRUPOXHGRUPOTHIS CFG_GRUPOCFG_GRUPO_HIJOOCTRL CONTENEDOROBJECTSCLASSENABLED ENABLED_HIJOSPROPAGAR_ENABLED_OTROSCInicia lectura%CxFiltrobCPT)QSTRING  # QDEYFUNC dey_func2.prg'T Cdeyfunc dey_func2.prgC Pos_DeyFunc TCC TXT+(*9TC TC T (C\TC PTC %TCC=TC%CCf=LTTX,CTermin la lectura de lneas3CInicia el objetivado:CCCZ(C@#TCC&CCC ( %T NODATAOERRORTa%CTermin el objetivadoUXFILTROTHISAVFP_LOGFILTROXDDXSTRNVALXNXSDDOEXXITODF2 DEY_FUNC2PRGDVALNEWFILE_LOCAL_TMPNPOSAVALOCFG3AGREGAR#%Cthis.contenedorbO*B-TT T!%C f CFG_CONTROL T- %+T C  6 ( T- 9%C f CFG_CONTROL   TTTT UXYGRUPOXTGRUPOXHGRUPOXOKOEXTHIS CFG_GRUPOCFG_GRUPO_HIJOOCTRL CONTENEDOROBJECTSCLASSCFG_OCFGCFG_PATHOCFG1OCFG2 CFG_GRABARCFG_ASIGNAR_PROPIEDADESCFG_CREAR_PROPIEDADES PROPAGAR_OCFG9"QCFG_CTRL SYS_CFG.prgCUOCFGSYS_CFGPRGTHISOCFG3COMPARAR_VALORES%CxFiltrobC2T"CLeyendo valores... C%CLeidos, publicando...C&CTermin la publicacinUXFILTROTHISFILTROAVFP_LOGLEER_VALORES_INICIALESOCFG3PUBLICAR_VALORES % C G(log.txtG G .C^ C CFG_Control: G G(UXTEXTOXREINICIALIZARTHISXDEBUGLOGPATHB)TCCFG_CTRL SYS_CFG.PRGTUTHISOCFG3CFG_CREAR_PROPIEDADES inicializar,grabarzenabled_assignpropagar_enabledenabled_hijos_accessenabled_hijos_assign8propagar_enabled_hijosleer_valores_iniciales propagar_ocfgD controlar_pordefectopublicar_valores_iniciales_avfp_logxInit;11A212131qAqQQAqAAAQAA2q"!21qAQAA2AAQ1AA23q"21qAQ1AA2qA1qQr1!1AAAAA311aQqABQ21qAqQQAAAAQ1111BA3!B2qA!Qa2babaA2a1 *B5/i<IB]KmbO y h\ w \\)resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign |j"Q|Q|͹2%kxloU T- T-TTHe C bCTCborr_agr 2 TCborr_agr %F TCC]R( \tmp\F"Q \tmp\  F *> CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6D % " =CUNKEYCODE NSHIFTALTCTRL C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLOR UTHISFORM VISUALIZAR  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASEX %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORAagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]tecla^Load^salidabReleasecInitd1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA31AA32CAA!qAABqA"B22%A!QAA5uAA2Ab1A"q!!qAB1qB2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJ8Qю}Ӕڟ)Q|PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN)B-ON ERROR &onErr TC% B-% C  C C C CUDEY_FUNCOESTADOVISIBLETHIS ES_SUBREPORTEARCHIVO_SALIDAP_LOCALPARENTARCHIVOTEMPORALINICIARCAMPOS_AGREGARINICIAR_CAMPOSTXCAM CAMPOS_GETXOKCAMPOS_AGREGAR_CRYSTAL CREAR_XLSSUBREPORT_ENCABEZADOCREAR_ENCABEZADOSCANANCHO_COLUMNASFINAL 4QBOOLEAN%/B- T- FTC4%CtxValbCthis.grupo_valorb Ta % Ta%TBa B-UXGRUPO_INICIADOTHIS GRUPO_CODIGOTCAMBIOALIASTXVAL GRUPO_VALOR5 FT([C(CUNITTHISALIASXLS_ROWCAMPOS_GRUPO_POSTEXTOCAMPOS_LINEA_POS TOTAL_RESET4QBOOLEAN F% 6B-5T(Ca(C-UXGRUPO_INICIADOTHISALIASNITXLS_ROWCAMPOS_LINEA_POSTOTAL=%5TtxtAlias%%\TMP\CfT.dbf )T\tmp\.dbfT%C0FQ $C No existe  F#)UTHISALIASNAME ARCHIVO_DATOSARCHIVO_TEMPORALP_LOCAL TXARCHIVODBFMENSAJEv5 FT(oCCUNITTHISALIASXLS_ROWCAMPOS_LINEA_POSTEXTOTOTALIZA% F Ta T- T-%K T-%CoEstadobOTT   T TCCNCN6T -T Agregando datos a la planilla F#)+C+  T  %C C C Ta T- C C C FHTT  % C CUTHISALIASXINICIARXGRUPO_INICIADOXSALIR ES_SUBREPORTEXOLDMAXOESTADOMAXXOLDVALVALUETEXTO GRUPO_CAMBIO GRUPO_TOTALGRUPO_ENCABEZADOMANUALES_ANTESLINEAMANUALES_DESPUES TOTAL_GENERALc 45TCxFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) FTC %T   %T  HI/ %T   R&T   C&T   L/&T  -T  UXCAMPOXPOSXVALUE1XVALUE2XVALUE3TXCAMTHIS CAMPOS_GETALIASXFORMULA XLS_SHEETCELLSXLS_ROWVALUE NUMBERFORMATXFORMATOXALINEAHORIZONTALALIGNMENTFONTBOLD5 FT(\Ca(C-UNITTHISALIASXLS_ROWCAMPOS_LINEA_POSTOTALi!4QBOOLEANQINTEGER 5%TTC T  a( HxLabel=&txCam.(nIt,2) xAncho = &txCam.(nIt,5) xAlinea= &txCam.(nIt,6) %3C"THjD "T R#T C #T LD#TT  -UXFORZAR XRESERVELINTXCAMNITTHIS XLS_SHEETCELLSPARENTTITULO1 CAMPOS_GET XLS_WORKBOOKWINDOWSVISIBLECAMPOS_LINEA_POSCOPY PASTESPECIALVALUEXLABELXALINEAHORIZONTALALIGNMENT64QINTEGER5H*& [Tthis.campos_linea Tthis.campos_grupo $Tthis.campos_grupo_total Tthis.campos_total &Tthis.campos_manual BUXCAMPOTXCAM 45TC8IF !&txCam.(xPos,7) AND !&txCam.(xPos,8) THEN kBxFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) !xTotal_Final= &txCam.(xPos,7) !xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) !xSuma_Grupo= &txCam.(xPos,10) FTC H NT  T   C D :T  T   LT  C6T  C6&txCam.(xPos,9)=xSuma_Final &txCam.(xPos,10)=xSuma_Grupo U XCAMPOXPOSXVALUE1XVALUE2XVALUE3TXCAMTHIS CAMPOS_GETALIASXFORMULAXTIPO XSUMA_FINAL XSUMA_GRUPOH45 TTC xFormula=&txCam.(xPos,1) xLabel=&txCam.(xPos,2) xTipo=&txCam.(xPos,3) xFormato=&txCam.(xPos,4) xAncho = &txCam.(xPos,5) xAlinea= &txCam.(xPos,6) !xTotal_Final= &txCam.(xPos,7) !xTotal_Grupo= &txCam.(xPos,8) xSuma_Final= &txCam.(xPos,9) !xSuma_Grupo= &txCam.(xPos,10) Hw   T    T 2Ba%T%T&TaH[A %T R&T C&T LA&TU XLINEA_TIPOXPOSXIMPRIMIR_LINEAXVALUE1XVALUE2XVALUE3XCAMPOTXCAMTHIS CAMPOS_GET XTOTAL_FINAL XSUMA_FINAL XTOTAL_GRUPO XSUMA_GRUPO XLS_SHEETCELLSXLS_ROWVALUE NUMBERFORMATXFORMATOFONTBOLDXALINEAHORIZONTALALIGNMENT 4TC% R&txCam.(xPos,9)=0 % &txCam.(xPos,10)=0 UXCAMPOXPOSTXCAMTHIS CAMPOS_GETU  F(C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} K%C0C\prt\C_v_C.xls0 TC.xls T $4%C\prt\C_v_*]" crystal_xls(C"%CfC reporte.xlsfT\prt\C T T \reporte.xls T  T \reporte.xls TT  ,T Creando planilla de Excel...  T-1 hayerror=.T.%C0 C No existe xON ERROR &onErr B-(%CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.xON ERROR &onErr B-5"TCexcel.application\%# T-!TCexcel.applicationN%1C%No se puede abrir la aplicacin ExcelxON ERROR &onErr B-C%0CNo se puede abrir el archivo x <ON ERROR &onErr B-ON ERROR &onerr TCTCTT-UZAAATHISALIASARCHIVO_SALIDAP_SYSTEMARCHIVO_TEMPORAL XPLANILLAXOTRA_PLANILLA CRYSTAL_XLSOESTADOVALUETEXTOXCOPYHAYERROR MAXFIELDSXDATAX WORKBOOKSOPENQUIT XLS_WORKBOOKCOUNT XLS_SHEETSHEETSXLS_APPWINDOWSVISIBLE451 return .f. $(CZ%Cthis.parent.campos[ nIt, 1]bL&Cthis.parent.campos[ nIt, 2]bL Ba:%CC Ba2CCCON ERROR &onErr UNITTHISPARENTCAMPOSCAMPOS_AGREGAR| 5TC(uxAncho = &txCam.(nIt,5) U TXCAMNITTHIS CAMPOS_GETCAMPOS_LINEA_POS XLS_SHEETCELLS ENTIRECOLUMNAUTOFIT$%Cthis.xls_sheetbO4T'%CThis.xls_workbookbOoT"%C This.xls_appbO TUTHIS XLS_SHEET XLS_WORKBOOKXLS_APPQUITcampos_agregar0final;generar grupo_cambio grupo_encabezadoR grupo_totalCiniciarUlineascantexto total_generalcrear_encabezado campos_gettotaliza'totalu total_reset$subreport_encabezado% crear_xls%campos_agregar_crystal,ancho_columnasz-DestroyW.1D QAqAAA1ABAAAAAASAAaq31Ab2!AABA2!A1aAABqA1AqA"A3!bqA!AaAAqqA3qqAAAA4!qArsQAQA6bAbAAAAQ3qqAAA3!AAQqqAAAA3R^Q1QAaAaAaA3qsQAQA3RB1A!1!A1A1A1AA2!r111A11A2RAAAAA4QqARQa1QAaAaAaA4BQAaA3`1AAA!!AAAsrB"1qAR! 1qAr"A1qAcq1qA23q2JqAqA!A12CD4AAqA!A1; NR b os @ ,Rm2<G]n m! "1."%Q%)u!**~*,,44K7op7889)B6A1PROCEDURE tecla LPARAMETERS nKeyCode, nShiftAltCtrl *thisform.Caption = ALLTRIM(STR(nKeyCode)) *,,,, (225,233,237,243,250)(193,201,205,211,218) *=sys_M("Key") if ( (nkeycode< 32) or (nkeycode> 122 AND (p_bus_busquedas_con_acentos=0 OR (p_bus_busquedas_con_acentos=1 AND NOT INLIST(nkeycode,225,233,237,243,250, 193,201,205,211,218)))) ) and !inlist(nkeycode, -2, 13, 27, 24, 5, 3, 18, 127, 1, 6) form::keypress(nKeyCode, nShiftAltCtrl) return endif do case case nkeycode== -2 && F3 *!* aaa="locate for alltrim('"+upper(alltrim(thisform.buscar_txt))+"')$upper("+thisform.clave_busqueda_actual+") rest" *!* &aaa if alltrim(thisform.buscar_txt)#"" xtxt=alltrim(thisform.buscar_txt) continue endif case nkeycode== 13 && Enter this.salida case nkeycode== 24 && Abajo if !eof() skip endif case nkeycode== 5 && Arriba if !bof() skip -1 endif case nkeycode== 18 && PgUp if !bof() skip -12 endif case nkeycode== 3 && PgDown if !eof() skip 12 endif case nkeycode== 13 && Enter this.salida case nkeycode== 27 && Escape this.oldkey= '' go top case nkeycode== 1 && Home go top case nkeycode== 6 && End go bott otherwise local xoldkey,xoldreg xoldkey = alltrim(this.oldkey) if nkeycode== 127 && Backspace if len(this.oldkey)>=1 this.oldkey= left(this.oldkey,len(this.oldkey)-1) endif else this.oldkey= this.oldkey+ upper( chr( abs(nkeycode))) endif sele (this.grid1.recordsource) set order to (this.orden_actual) asce try do case case this.colid_actual=1 && EAN13 locate for barras>=val(alltrim(this.oldkey)) * (10^(13-len(this.oldkey))) if !( alltrim(this.oldkey) = left(str(barras,13), len(alltrim(this.oldkey))) ) locate for barras>=val(alltrim(xoldkey)) * (10^(13-len(xoldkey))) this.oldkey = xoldkey endif case this.tipo_campo_actual="C" AND NOT this.orden_numerico_actual set exact off seek alltrim(this.oldkey) set exact on if eof() set exact off seek xoldkey set exact on this.oldkey = xoldkey endif case this.tipo_campo_actual="N" OR this.orden_numerico_actual set near on seek val(this.oldkey) set near off if eof() set near on seek val(xoldkey) set near off this.oldkey = xoldkey endif endcase catch * Error en tipo de datos probablemente, no tiene mucha solucin, sucede con indices tipo str()+str()w endtry endcase this.text1.refresh thisform.actualizar *this.grid1.refresh() ENDPROC PROCEDURE actualizar this.text1.refresh sele (this.grid1.recordsource) set order to (this.orden_actual) this.grid1.refresh this.grid1.setfocus ENDPROC PROCEDURE salida this.cancelado = .f. this.release ENDPROC PROCEDURE header_click PARAMETERS xheader *=sys_m("header") PRIV xtag,aaa xtag='' DO CASE CASE xheader=1 xtag = THIS.orden CASE xheader=2 xtag = THIS.orden1 CASE xheader=3 xtag = THIS.orden2 CASE xheader=4 xtag = THIS.orden3 CASE xheader=5 xtag = THIS.orden4 CASE xheader=6 xtag = THIS.orden5 CASE xheader=7 xtag = THIS.orden6 CASE xheader=8 xtag = THIS.orden7 CASE xheader=9 xtag = THIS.orden8 CASE xheader=10 xtag = THIS.orden9 CASE xheader=11 xtag = THIS.orden10 ENDCASE IF xtag#'' TRY SELE (THIS.grid1.RECORDSOURCE) SET ORDER TO (xtag) ASCE THIS.indice_actual = xtag CATCH =mensaje_suspendo(.T.,"Error al invocar el orden "+UPPER(xtag)+" !!!",,,,not p_dev) xtag="" ENDTRY IF xtag="" THEN RETURN ENDIF ENDIF DO CASE CASE THIS.columna_actual=1 THIS.grid1.column1.header1.FONTBOLD=.F. CASE THIS.columna_actual=2 THIS.grid1.column2.header1.FONTBOLD=.F. CASE THIS.columna_actual=3 THIS.grid1.column3.header1.FONTBOLD=.F. CASE THIS.columna_actual=4 THIS.grid1.column4.header1.FONTBOLD=.F. CASE THIS.columna_actual=5 THIS.grid1.column5.header1.FONTBOLD=.F. CASE THIS.columna_actual=6 THIS.grid1.column6.header1.FONTBOLD=.F. CASE THIS.columna_actual=7 THIS.grid1.column7.header1.FONTBOLD=.F. CASE THIS.columna_actual=8 THIS.grid1.column8.header1.FONTBOLD=.F. CASE THIS.columna_actual=9 THIS.grid1.column9.header1.FONTBOLD=.F. CASE THIS.columna_actual=10 THIS.grid1.column10.header1.FONTBOLD=.F. CASE THIS.columna_actual=11 THIS.grid1.column11.header1.FONTBOLD=.F. ENDCASE DO CASE CASE xheader=1 THIS.orden_actual = THIS.orden THIS.clave_busqueda_actual = THIS.clave_busqueda THIS.tipo_campo_actual = THIS.tipo_campo THIS.colid_actual = THIS.colid THIS.grid1.column1.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden_numerico CASE xheader=2 THIS.orden_actual = THIS.orden1 THIS.clave_busqueda_actual = THIS.clave_busqueda1 THIS.tipo_campo_actual = THIS.tipo_campo1 THIS.colid_actual = THIS.colid1 THIS.grid1.column2.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden1_numerico CASE xheader=3 THIS.orden_actual = THIS.orden2 THIS.clave_busqueda_actual = THIS.clave_busqueda2 THIS.tipo_campo_actual = THIS.tipo_campo2 THIS.colid_actual = THIS.colid2 THIS.grid1.column3.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden2_numerico CASE xheader=4 THIS.orden_actual = THIS.orden3 THIS.clave_busqueda_actual = THIS.clave_busqueda3 THIS.tipo_campo_actual = THIS.tipo_campo3 THIS.colid_actual = THIS.colid3 THIS.grid1.column4.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden3_numerico CASE xheader=5 THIS.orden_actual = THIS.orden4 THIS.clave_busqueda_actual = THIS.clave_busqueda4 THIS.tipo_campo_actual = THIS.tipo_campo4 THIS.colid_actual = THIS.colid4 THIS.grid1.column5.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden4_numerico CASE xheader=6 THIS.orden_actual = THIS.orden5 THIS.clave_busqueda_actual = THIS.clave_busqueda5 THIS.tipo_campo_actual = THIS.tipo_campo5 THIS.colid_actual = THIS.colid5 THIS.grid1.column6.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden5_numerico CASE xheader=7 THIS.orden_actual = THIS.orden6 THIS.clave_busqueda_actual = THIS.clave_busqueda6 THIS.tipo_campo_actual = THIS.tipo_campo6 THIS.colid_actual = THIS.colid6 THIS.grid1.column7.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden6_numerico CASE xheader=8 THIS.orden_actual = THIS.orden7 THIS.clave_busqueda_actual = THIS.clave_busqueda7 THIS.tipo_campo_actual = THIS.tipo_campo7 THIS.colid_actual = THIS.colid7 THIS.grid1.column8.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden7_numerico CASE xheader=9 THIS.orden_actual = THIS.orden8 THIS.clave_busqueda_actual = THIS.clave_busqueda8 THIS.tipo_campo_actual = THIS.tipo_campo8 THIS.colid_actual = THIS.colid8 THIS.grid1.column9.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden8_numerico CASE xheader=10 THIS.orden_actual = THIS.orden9 THIS.clave_busqueda_actual = THIS.clave_busqueda9 THIS.tipo_campo_actual = THIS.tipo_campo9 THIS.colid_actual = THIS.colid9 THIS.grid1.column10.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden9_numerico CASE xheader=11 THIS.orden_actual = THIS.orden10 THIS.clave_busqueda_actual = THIS.clave_busqueda10 THIS.tipo_campo_actual = THIS.tipo_campo10 THIS.colid_actual = THIS.colid10 THIS.grid1.column11.header1.FONTBOLD=.T. this.orden_numerico_actual = this.orden10_numerico ENDCASE THIS.columna_actual=xheader SELE (THIS.grid1.RECORDSOURCE) SET ORDER TO (THIS.orden_actual) ASCE THIS.oldkey= '' GO TOP THIS.actualizar ENDPROC PROCEDURE en_foco * 192,192,192 if this.registro#recno() this.registro=recno() endif ENDPROC PROCEDURE alineacion parameters xtipodato do case case xtipodato="N" return 1 case xtipodato="C" return 0 otherwise return 3 endcase ENDPROC PROCEDURE caption_agregado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF TYPE("vNewVal") = "C" AND NOT EMPTY(vNewVal) THEN thisform.Caption = thisform.Caption + " - " + vNewVal endif THIS.caption_agregado = m.vNewVal ENDPROC PROCEDURE ajustar_ancho LPARAMETERS xinicial *this.ancho_grid=this.width-5 LOCAL z, xtotal, acc, xfijo, xcorreccion, zGri, zCol, xPorc, xColVar xtotal = THIS.ancho_grid -25 RELEASE arr_campos DIMENSION arr_campos(THIS.grid1.COLUMNCOUNT) xtotal1 = xtotal xancho_fijo_per = 0 xPorc=100 IF THIS.ancho_columna_fill#-1 THEN FOR z=1 TO THIS.grid1.COLUMNCOUNT zGri=IIF(z-1=0,"", ALLTRIM(STR(z-1))) xColVar="this.ancho"+zGri xVal= EVALUATE(xColVar) xPorc=xPorc-xVal NEXT zGri=IIF(THIS.ancho_columna_fill=0,"", ALLTRIM(STR(THIS.ancho_columna_fill))) xColVar="this.ancho"+zGri xVal=EVALUATE(xColVar) IF (xPorc+xVal)>0 THEN &xColVar = xPorc+xVal ENDIF ENDIF * Primero los de ancho fijo FOR z=1 TO THIS.grid1.COLUMNCOUNT zGri=IIF(z-1=0,"", ALLTRIM(STR(z-1))) zCol=ALLTRIM(STR(z)) IF EVALUATE( "this.tipo_campo" + zGri) # "C" IF xinicial OR THIS.ajuste_ancho_inicial * Es la primera vez, tengo que ajustar xprop="this.grid1.column"+zCol+".width = int(xtotal * this.ancho" + zGri+" / 100)" &xprop ELSE xtotal1 = xtotal1 - EVALUATE("this.grid1.column"+zCol+".width") xancho_fijo_per = xancho_fijo_per + EVALUATE( "this.ancho" + zGri ) ENDIF ENDIF ENDFOR xcorreccion = 100/(100-xancho_fijo_per) * Ahora los de ancho variable FOR z=1 TO THIS.grid1.COLUMNCOUNT zGri=IIF(z-1=0,"", ALLTRIM(STR(z-1))) zCol=ALLTRIM(STR(z)) IF EVALUATE( "this.tipo_campo" + zGri ) = "C" IF xinicial OR THIS.ajuste_ancho_inicial * Es la primera vez, tengo que ajustar xprop="this.grid1.column"+zCol+".width = int(xtotal * this.ancho" + zGri +" / 100)" ELSE xprop="this.grid1.column"+zCol+".width = int( xtotal1 * xcorreccion * this.ancho" + zGri+" / 100)" ENDIF &xprop ENDIF ENDFOR IF xinicial OR THIS.ajuste_ancho_inicial THIS.ajuste_ancho_inicial =.F. ENDIF THISFORM.REFRESH ENDPROC PROCEDURE filtrar if alltrim(this.filtro)#'' or (this.tilde_habilitar and lower(alltrim(this.tilde_filtro))#".t.") local asas asas=this.filtro if this.tilde_habilitar and lower(alltrim(this.tilde_filtro))#".t." and this.tilde.value asas=alltrim(asas) + iif(!empty(asas), " and ", "") + alltrim(this.tilde_filtro) endif set filt to &asas if empty(asas) * Se queda donde est else if evaluate(asas) * Est entre los resultantes, no hago nada else go top endif endif thisform.Refresh endif ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE Resize *=sys_mostrar_screen("Suspendo?", .t.) this.ancho_grid=thisform.Width-thisform.form_menos_grid =this.ajustar_ancho() thisform.Refresh ENDPROC PROCEDURE Load local xarea xarea=select() select (this.tabla) this.filtro=filter() select (xarea) this.buscar_txt="" thisform.asignar_color() ENDPROC PROCEDURE GotFocus * this.oldkey= '' *=sys_m("Col:"+alltrim(STR(Thisform.grid1.ColumnCount ))) this.grid1.refresh() *=sys_m("Col:"+alltrim(STR(Thisform.grid1.ColumnCount ))) ENDPROC PROCEDURE Init PARAMETERS xtitulo,xtabla,xexpresion,xorden,xtitulo_expresion,xid,xclave LOCAL xtotal,xcolumnas, xParam && ,xbarra, xParam=PARAMETERS() IF THIS.ancho_grid=0 THISFORM.form_menos_grid=5 THIS.ancho_grid=THIS.ancho_total-THISFORM.form_menos_grid ENDIF SELE (THIS.tabla) *=sys_m("hlp 1" + This.tabla + "-"+IIF(USED(this.tabla),"USADA","NO USADA") +" - DS: "+STR(SET("Datasession" ))) IF xParam>0 *=sys_m("hlp +0") THIS.orden_actual = xorden THIS.ID = xid THIS.CAPTION = xtitulo THIS.grid1.RECORDSOURCE = xtabla THIS.grid1.column1.CONTROLSOURCE = xexpresion THIS.grid1.column1.header1.CAPTION = xtitulo_expresion THIS.clave = xclave ELSE THIS.WIDTH = THIS.ancho_total THIS.CAPTION = THIS.titulo * this.ancho en % xcolumnas = IIF(THIS.ANCHO#0,1,0); +IIF(THIS.ancho1#0,1,0); +IIF(THIS.ancho2#0,1,0); +IIF(THIS.ancho3#0,1,0); +IIF(THIS.ancho4#0,1,0); +IIF(THIS.ancho5#0,1,0); +IIF(THIS.ancho6#0,1,0); +IIF(THIS.ancho7#0,1,0); +IIF(THIS.ancho8#0,1,0); +IIF(THIS.ancho9#0,1,0); +IIF(THIS.ancho10#0,1,0) THIS.grid1.COLUMNCOUNT=xcolumnas THIS.grid1.RECORDSOURCE = THIS.tabla * xbarra = 1 THIS.grid1.COLUMNCOUNT=xcolumnas FOR z=1 TO THIS.grid1.COLUMNCOUNT xprop="this.grid1.column"+ALLTRIM(STR(z))+".controlsource = this.clave_busqueda" + IIF(z-1=0, "", ALLTRIM(STR(z-1))) &xprop xprop="this.grid1.column"+ALLTRIM(STR(z))+".Alignment = this.alineacion(this.tipo_campo" + IIF(z-1=0, "", ALLTRIM(STR(z-1)))+")" &xprop xprop="this.grid1.column"+ALLTRIM(STR(z))+".text1.Alignment = this.alineacion(this.tipo_campo" + IIF(z-1=0, "", ALLTRIM(STR(z-1)))+")" &xprop IF z-1=0 THIS.grid1.column1.header1.CAPTION = THIS.titulo_busqueda ELSE xprop="this.grid1.column"+ALLTRIM(STR(z))+".header1.caption = this.titulo_columna" + IIF(z-1=0, "", ALLTRIM(STR(z-1))) &xprop ENDIF xprop="this.grid1.column"+ALLTRIM(STR(z))+".header1.Alignment = 2" &xprop xprop="this.grid1.column"+ALLTRIM(STR(z))+".format = this.format" + IIF(z-1=0, "", ALLTRIM(STR(z-1))) &xprop xprop="this.grid1.column"+ALLTRIM(STR(z))+".inputmask = this.inputmask" + IIF(z-1=0, "", ALLTRIM(STR(z-1))) &xprop ENDFOR THIS.grid1.WIDTH = THIS.ancho_grid && this.ancho_total && =THIS.ajustar_ancho(.T.) IF THIS.WINDOWSTATE= 2 * MAximizar THIS.WINDOWSTATE= 2 ENDIF *=sys_m("Col:"+alltrim(STR(Thisform.grid1.ColumnCount )),Thisform.grid1.ColumnCount>0) ENDIF THIS.orden_actual = THIS.orden THIS.clave_busqueda_actual = THIS.clave_busqueda THIS.tipo_campo_actual = THIS.tipo_campo THIS.colid_actual = THIS.colid THIS.columna_actual = 1 THIS.grid1.column1.header1.FONTBOLD=.T. SELE (THIS.grid1.RECORDSOURCE) IF p_sql FOR z=0 TO 10 TRY xidx_hlp1=EVALUATE("this.clave_busqueda"+IIF(z=0,"",ALLTRIM(STR(z)))) xidx_hlp2=EVALUATE("this.orden"+IIF(z=0,"",ALLTRIM(STR(z)))) INDEX ON &xidx_hlp1 TAG &xidx_hlp2 CATCH TO oex * Nada ENDTRY ENDFOR ENDIF SET ORDER TO (THIS.orden_actual) ASCE IF NOT THIS.preposicionado THEN GO TOP ENDIF THIS.text1.LEFT = 1 && Nuevo THIS.text1.WIDTH = THIS.ancho_total-2 -51 && Nuevo THIS.btn_buscar.LEFT = THIS.ancho_total -51 IF THIS.tilde_habilitar THIS.tilde.ENABLED=.T. THIS.tilde.VISIBLE=.T. THIS.tilde.CAPTION=THIS.tilde_texto THIS.tilde.VALUE=THIS.tilde_valor ELSE THIS.tilde.ENABLED=.F. THIS.tilde.VISIBLE=.F. THIS.tilde.VALUE=.F. THIS.HEIGHT=THIS.HEIGHT-22 IF THIS.grid_mover_arriba # 0 THEN THIS.grid1.ANCHOR=0 THIS.grid1.TOP=THIS.grid1.TOP-THIS.grid_mover_arriba *!* this.text1.Top=this.text1.Top-22 *!* this.btn_buscar.Top=this.btn_buscar.Top-22 THIS.grid1.ANCHOR=15 ENDIF ENDIF *=sys_m("hlp s" + This.tabla + "-"+IIF(USED(this.tabla),"USADA","NO USADA") +" - DS: "+STR(SET("Datasession" ))) THIS.AUTOCENTER = .T. && Nuevo THIS.comienzo=.T. THIS.oldkey='' THIS.MINWIDTH=THIS.WIDTH THIS.MINHEIGHT=THIS.HEIGHT *=sys_m("Col:"+alltrim(STR(Thisform.grid1.ColumnCount )),Thisform.grid1.ColumnCount>0) THISFORM.REFRESH *=sys_m("Col:"+alltrim(STR(Thisform.grid1.ColumnCount ))) ENDPROC PROCEDURE Release on escape &onesc xCanceladoBus=thisform.cancelado dodefault() ENDPROC PROCEDURE Unload xCanceladoBus=thisform.cancelado return (this.clave) ENDPROC PROCEDURE Activate if this.comienzo sele (this.grid1.recordsource) set order to (this.orden_actual) asce if !this.preposicionado * Si no est preposicionado, me voy al principo con un ESC, debera estar siempre preposicionado no ? =this.tecla(27,0) endif this.comienzo=.f. endif thisform.filtrar this.actualizar ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl NODEFAULT =this.tecla(nKeyCode, nShiftAltCtrl) ENDPROC PROCEDURE QueryUnload thisform.cancelado = .t. ENDPROC 2XPROCEDURE buscar PARAMETERS lmensaje IF THIS.tabla_prefiltrar THEN =THIS.tabla_Select () ENDIF SELE (THIS.tabla_tabla) IF !p_sql SET ORDER TO (THIS.tabla_idxcod) ENDIF * * Este bloque est para corregir un bug del VFP * IF NOT EMPTY(THIS.dato) IF THIS.text8.VALUE # EVALUATE( IIF(ALLTRIM(THIS.dato_tabla)="", ALLTRIM( THIS.area_inicial )+".",ALLTRIM(THIS.dato_tabla)+".") +THIS.dato ) THIS.text8.VALUE = EVALUATE( IIF(ALLTRIM(THIS.dato_tabla)="", ALLTRIM( THIS.area_inicial )+".",ALLTRIM(THIS.dato_tabla)+".") +THIS.dato ) ENDIF ENDIF IF THIS.filtro#'' LOCAL xfiltro xfiltro=THIS.filtro * SET FILT TO &xfiltro ELSE xfiltro=".t." ENDIF * Busqueda de los activos (si corresponde) + el filtro DO set_filtro_y_estado IN listados WITH xfiltro, !THIS.solo_los_activos IF !p_sql SEEK (THIS.text8.VALUE) ELSE * * SQL CONVERSION: para convertir el final para datos que no sean C o N hay que armar una funcioncita * DO sql_seek_unico ; IN sql_funciones ; WITH ; .F. ,; THIS.tabla_tabla ,; THIS.tabla_codigo+"="+ IIF(TYPE("THIS.text8.VALUE")="C", "'"+ THIS.text8.VALUE +"'", ALLTRIM(STR(THIS.text8.VALUE))) ENDIF LOCAL xerror_busqueda xerror_busqueda="" IF !FOUND() * Busqueda con el filtro nicamente * * SQL CONVERSION: Filtros a formato SQL * IF !p_sql SET FILT TO &xfiltro SEEK (THIS.text8.VALUE) ELSE DO sql_conversion_de_filtro ; IN sql_funciones ; WITH xfiltro DO sql_seek_unico ; IN sql_funciones ; WITH ; .F. ,; THIS.tabla_tabla ,; THIS.tabla_codigo+"="+ IIF(TYPE("THIS.text8.VALUE")="C", "'"+ THIS.text8.VALUE +"'", ALLTRIM(STR(THIS.text8.VALUE)))+; IIF(xfiltro="1=1",""," and "+xfiltro) ENDIF IF FOUND() xerror_busqueda="Cdigo inactivo !!!" ELSE xerror_busqueda="Cdigo inexistente o no vlido !!!" ENDIF ENDIF SET FILT TO LOCAL aa aa=THIS.vacio IF TYPE('aa')='C' aa=EVALUATE(THIS.vacio) ELSE aa=THIS.vacio ENDIF * 2021-06-16 if type("THIS.text8.VALUE")#type("aa") =mensaje_suspendo(.t., "clases."+lower(this.Class)+".buscar(): La variable no tiene el tipo de dato esperado !!!") =sys_mostrar_screen("Suspendo?", .t.) return "" endif IF THIS.text8.VALUE=aa * Est vacio IF THIS.codigo_si_o_si * Debe haber un cdigo vlido IF !lmensaje * wait window nowait this.mensaje_error =mensaje(THIS.mensaje_error) ENDIF RETURN '' ELSE RETURN '' ENDIF ELSE *!* * No est vacio *!* IF !FOUND() *!* * Pero no existe *!* IF !lmensaje *!* * wait window nowait this.mensaje_error *!* =mensaje(THIS.mensaje_error) *!* ENDIF *!* RETURN 'Dato Invlido !!!' *!* ELSE *!* aa=THIS.tabla_desc *!* aa=&aa *!* RETURN aa *!* ENDIF IF xerror_busqueda#"" IF !lmensaje * =mensaje(xerror_busqueda) =mensaje(THIS.mensaje_error) ENDIF RETURN xerror_busqueda ELSE aa=THIS.tabla_desc aa=&aa RETURN aa ENDIF ENDIF ENDPROC PROCEDURE f1 LOCAL xsalir, xFiltro, oEx AS EXCEPTION xsalir = .F. IF TYPE("this.obj_filtro")="O" THEN xFiltro=THIS.obj_filtro ELSE xFiltro = THIS.filtro ENDIF THIS.es_f1=.T. IF NOT THIS.f1_llamada_especial(THIS.text8.VALUE, @xFiltro, @xsalir) THEN **** SI THIS.f1_llamada_especial retorna .F. es que no tienen una llamada especial. **** Por lo que corro el cdigo general. IF TYPE("xFiltro")#"O" AND EMPTY(xFiltro) THEN TRY DO (THIS.tabla_ayuda) IN (THIS.proc_ext) WITH THIS.text8.VALUE,,!THIS.solo_los_activos CATCH TO oEx TRY DO (THIS.tabla_ayuda) IN (THIS.proc_ext) WITH THIS.text8.VALUE CATCH TO oEx xsalir = .T. IF p_dev mensaje(oEx.MESSAGE+" - "+oEx.DETAILS; +chr(13)+""; +chr(13)+"Tabla ayuda: "+alltrim(THIS.tabla_ayuda)+" en "+alltrim(THIS.proc_ext); ) ENDIF ENDTRY ENDTRY ELSE TRY DO (THIS.tabla_ayuda) IN (THIS.proc_ext) WITH THIS.text8.VALUE, xFiltro ,!THIS.solo_los_activos CATCH TO oEx TRY DO (THIS.tabla_ayuda) IN (THIS.proc_ext) WITH THIS.text8.VALUE,xFiltro CATCH TO oEx xsalir = .T. IF p_dev mensaje(oEx.MESSAGE+" - "+oEx.DETAILS) ENDIF ENDTRY ENDTRY ENDIF ENDIF THIS.es_f1=.F. SELE (THIS.tabla_tabla) IF xsalir mensaje("No se puede obtener ayuda !!!") aa=THIS.vacio IF TYPE('aa')='C' aa=EVALUATE(THIS.vacio) ELSE aa=THIS.vacio ENDIF RETURN ENDIF LOCAL aa aa=THIS.tabla_codigo aa=&aa THIS.text8.VALUE = aa aa=THIS.tabla_desc aa=&aa THIS.UPDATED SELE (THIS.tabla_tabla) RETURN aa ENDPROC PROCEDURE actualizar parameters xrefresh if (xrefresh .and. this.inicializado) .or. !xrefresh local area_anterior area_anterior=alias() sele (this.tabla_tabla) this.nombre = this.buscar(.t.) if alltrim(area_anterior)#'' sele (area_anterior) endif this.text9.refresh endif return ENDPROC PROCEDURE enabled_assign LPARAMETERS vnewval THIS.ENABLED = m.vnewval THIS.text8.ENABLED=m.vnewval IF THIS.enabled_text9 THEN THIS.text9.ENABLED=m.vnewval ENDIF *this.label2.enabled=m.vnewval THIS.label2.ENABLED=.T. *THIS.text8.FORECOLOR = IIF(m.vNewVal , this.enabledforecolor, this.disabledForeColor) *THIS.text9.FORECOLOR = IIF(m.vNewVal , this.enabledforecolor, this.disabledForeColor) *THIS.label2.FORECOLOR = IIF(m.vNewVal , this.enabledforecolor, this.disabledForeColor) THIS.label2.FORECOLOR = THIS.enabledforecolor IF m.vnewval THIS.text8.FORECOLOR = THIS.enabledforecolor IF THIS.enabled_text9 THEN THIS.text9.FORECOLOR = THIS.enabledforecolor ENDIF ELSE THIS.text8.DISABLEDFORECOLOR = THIS.DISABLEDFORECOLOR IF THIS.enabled_text9 THEN THIS.text9.DISABLEDFORECOLOR = THIS.DISABLEDFORECOLOR ENDIF ENDIF ENDPROC PROCEDURE valid return .t. ENDPROC PROCEDURE valor_assign LPARAMETERS vNewVal sele (this.tabla_tabla) local xvar xvar=this.tabla_codigo xvar=&xvar if m.vNewVal#xvar set order to (this.tabla_idxcod) seek m.vNewVal endif THIS.valor = m.vNewVal this.text8.value = m.vNewVal this.text9.value = evaluate(this.tabla_desc) *!* local aa *!* aa=this.vacio *!* if type('aa')='C' *!* aa=evaluate(this.vacio) *!* else *!* aa=this.vacio *!* endif *!* *!* if this.text8.value=aa *!* * Est vacio *!* this.text9.value="" *!* THIS.valor = m.vNewVal *!* this.text8.value= m.vNewVal *!* else *!* *!* xvar=this.tabla_desc *!* xvar=&xvar *!* *!* this.text9.value=xvar *!* THIS.valor = m.vNewVal *!* this.text8.value= m.vNewVal *!* *!* endif ENDPROC PROCEDURE texto_filtro LPARAMETERS xSecundario, xAnterior, xName1, xSeparador IF NOT THIS.texto_filtro_mostrar OR EVALUATE(this.texto_filtro_empty) THEN RETURN "" ENDIF PRIVATE xName,xTexto, xReturn IF xSecundario AND NOT empty(xAnterior) THEN xName=IIF(TYPE("xSeparador")="C",xSeparador,"") ELSE IF xSecundario THEN xName = IIF(Not EMPTY(xName1),xName1,EVALUATE(this.texto_filtro_caption))+IIF(empty(xAnterior),xSeparador,"") else xName = EVALUATE(this.texto_filtro_caption) ENDIF ENDIF IF this.texto_filtro_descripcion THEN xTexto=EVALUATE(this.texto_filtro_cod_desc) ELSE xTexto=EVALUATE(this.texto_filtro_codigo) ENDIF RETURN xName+xTexto ENDPROC PROCEDURE texto_caption_access *To do: Modify this routine for the Access method RETURN EVALUATE(this.texto_filtro_caption) ENDPROC PROCEDURE autocompletar if not this.codigo_si_o_si or not this.auto_completar then return .f. endif private xrec,xcount, aa sele (this.tabla_tabla) if !p_sql set order to (this.tabla_idxcod) endif if !p_sql if this.filtro#'' private xfiltro xfiltro=this.filtro set filt to &xfiltro endif count to xcount set filter to else do sql_seek_top ; in sql_funciones ; with ; 2 ,; .f. ,; THIS.tabla_tabla ,; this.tabla_codigo+"='"+THIS.text8.VALUE+"'" count to xcount endif if xcount=1 then go top aa=this.tabla_codigo aa=&aa this.text8.value = aa aa=this.tabla_desc aa=&aa this.text9.value=aa this.text8.valid endif ENDPROC PROCEDURE sincronizar local xok area_anterior=alias() this.nombre = this.buscar() if empty(this.nombre) .and. this.codigo_si_o_si && ='' 20/01/2006 xok=0 else if inlist(this.nombre,"Cdigo inactivo !!!","Cdigo inexistente o no vlido !!!") xok=0 else xok=1 endif endif if alltrim(area_anterior)#'' sele (area_anterior) endif this.text9.refresh ENDPROC PROCEDURE par_caption_access *To do: Modify this routine for the Access method RETURN this.label2.Caption ENDPROC PROCEDURE par_desde_access *To do: Modify this routine for the Access method RETURN THIS.text8.Value ENDPROC PROCEDURE par_hasta_access *To do: Modify this routine for the Access method RETURN THIS.text8.Value ENDPROC PROCEDURE par_desde_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.text8.When this.text8.GotFocus this.text8.value = m.vNewVal this.text8.valid ENDPROC PROCEDURE tabla_select IF NOT USED(THIS.tabla_tabla) THEN do (this.tabla_select_proc) in (this.tabla_select_proc_ext) WITH THIS.tabla_tabla, this.obj_filtro * DO bus_prod_select IN listados WITH THIS.tabla_tabla ENDIF ENDPROC PROCEDURE obj_filtro_actualizado IF THIS.tabla_prefiltrar THEN IF USED(THIS.tabla_tabla) THEN SELECT (THIS.tabla_tabla) USE ENDIF =THIS.tabla_Select () ENDIF ENDPROC PROCEDURE tabla_obj_filtro_modificar LOCAL xRes DO FORM (this.tabla_obj_filtro_form) WITH this TO xRES this.obj_filtro_actualizado ENDPROC PROCEDURE mostrar_label_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.label2.Visible = m.vNewVal THIS.mostrar_label = m.vNewVal ENDPROC PROCEDURE readonly_access *To do: Modify this routine for the Access method RETURN THIS.text8.Readonly ENDPROC PROCEDURE readonly_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.text8.Readonly = m.vNewVal ENDPROC PROCEDURE valor_descripcion_access *To do: Modify this routine for the Access method RETURN THIS.text9.Value ENDPROC PROCEDURE filtro_access *** NO MODIFICAR ESTO! USAR THIS.Preparar_Filtro =This.Filtro_Preparar() RETURN THIS.filtro ENDPROC PROCEDURE obj_filtro_access *** NO MODIFICAR ESTO! USAR THIS.Preparar_Filtro =This.Obj_Filtro_Preparar() RETURN THIS.obj_filtro ENDPROC PROCEDURE f1_llamada_especial LPARAMETERS xCodigo, xFiltro, xsalir *** .F. dice que esta bsqueda no tiene una llamada ESPECIAL *** por lo que se corre la llamda generica. RETURN .f. ENDPROC PROCEDURE Refresh this.actualizar(.t.) ENDPROC PROCEDURE LostFocus if this.modificado =this.updated() endif ENDPROC PROCEDURE Init *=sys_m("Init") IF ALLTRIM(THIS.dato)='' * mensaje("El control "+alltrim(this.name)+" no tiene .DATO asignado !!!") THIS.text8.VALUE=THIS.valor *!* else *!* * 2008/06/30 Debo asignarle el valor de this.dato al control *!* =sys_mostrar_Screen("Suspendo?", .t.) *!* if !empty(this.dato_tabla) *!* *!* try *!* local asewdsds *!* asewdsds=evaluate(this.dato) *!* this.valor=evaluate(this.dato) *!* catch *!* * Imposible de asigna porque no est definido this.dato *!* endtry *!* else *!* * No debera estar as...no genero error por compatibilidad con el cdigo mal escrito... *!* endif *!* else * 2015/04/07 *!* try *!* if this.valor#evaluate(THIS.dato) *!* this.valor=evaluate(THIS.dato) *!* endif *!* catch *!* endtry * 2023/04/24 try if this.valor#evaluate( iif(empty(this.dato_tabla), alltrim(alias())+".",alltrim(this.dato_tabla)+".")+THIS.dato) this.valor=evaluate(iif(empty(this.dato_tabla), alltrim(alias())+".",alltrim(this.dato_tabla)+".")+THIS.dato) endif catch to ocod_desc_err endtry ENDIF THIS.text8.ENABLED=THIS.ENABLED THIS.label2.ENABLED=THIS.ENABLED THIS.text9.FORECOLOR=IIF(THIS.ENABLED , RGB(0,0,0) , RGB(192,192,192) ) IF !THIS.ENABLED THIS.label2.ENABLED=.T. THIS.text8.DISABLEDBACKCOLOR=THIS.BACKCOLOR THIS.text9.DISABLEDBACKCOLOR=THIS.BACKCOLOR THIS.text8.DISABLEDFORECOLOR=THIS.FORECOLOR THIS.text9.DISABLEDFORECOLOR=THIS.FORECOLOR ENDIF IF NOT EMPTY(this.tabla_obj_filtro ) THEN this.obj_filtro = NEWOBJECT(this.tabla_obj_filtro, this.tabla_select_proc_ext) **this.obj_filtro.oParent=this ENDIF This.mostrar_label = This.mostrar_label ENDPROC PROCEDURE GotFocus = this.autocompletar () ENDPROC PROCEDURE Destroy IF TYPE("this.obj_filtro") ="O" THEN this.obj_filtro.destroy this.obj_filtro = .f. ENDIF ENDPROC "]<%U4(%CCCC! %CC TC(!BUXFILEZTHISFORMFILES_TO_DELETEOCATCH(?%CCC  1aaaa=1CON ERROR &onerr BUZTHISFORMFILES_TO_DELETEARCHIVOTEMPORALMANTENERTCaTTTQ EXCEPTION T7C'Iniciando servidor de automatizacin... %- 0TCCrystalRuntime.Application.11N-T CrystalRuntime.Application.11(T 0TCCrystalRuntime.Application.10N-T CrystalRuntime.Application.10(T /TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(T 1TCCrystalRuntime.Application.8.0N.T CrystalRuntime.Application.8.0(T T u F/TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(qT T+%CTHISFORM.CRAplicacionbO1}C01 - El servidor de automatizacin de impresionesC #no existe o no est bien instalado.C ()x1xerror=2 #CAbriendo reporte... T C !%CC Rf.RPT'T C C >[%%C _ .RPT0$T  _ .RPT -T  .RPT%C 0TC (CarchivoreporteC  (C(prn1: C)%  C;C(prn2: CPRINTv:C)'C(z0:CCZ)HI _ %T!C(z1:CCZ) 2T$C(z2:CCZ)'C(z3:CCZ)%4ON ERROR &onerr 1C!Configurando datos del reporte... Ta%TC %(<%Cthisform.archivo[z]bCC %CC0g.TCC 8C El archivo CC no existe !!! T-! !0C Pasando parmetros al reporte...!%T"#%$ %& He %' {@Titulo2} T%(")" %' {@Empresa} T%("C"  %& H $ %'{@NombreGrupo}Y T%("*"$ %'{@CodigoGrupo} T%(+) %'{@DescripcionGrupo} T%(,+ %'{@CRDescripcionGrupo} T%(-$ %'{@OrdenGrupos}A T%(. %' {@Titulo2}~ T%(")" %' {@Empresa} T%("C"%/ C0%1 0(CC234 a%CCCC234' PrintDate1 PrintDate2 PrintTime1 PrintTime2 ,T2345a%6 78 T8,%9:C this.filtrosbO U C T8C9;<(=Q  >?@A">?@B8(= %C D CE%FCGCImprimiendo... CaH<%CoEstadobOCoEstadobOCI  m TIJ- G~(clasesG+(listados0C Configurando la visualizacin... TM-TCCrystalViewer_topMCCCCCCCCC C NNC-O%N%P Q TJa TJ-ON ERROR &onerr HC El reporte C  tiene problemas.C (CE)x /C El reporte C  no existe.xON ERROR &onerr G(RUS XDEMPRESA FN_EMPRESATHISFORM CRAPLICACION CRREPORTECRVISTAXERRORXMESSOEX ESTADO_AVANCE CRVERSIONMESSAGEARCHIVOREPORTEP_EMP OPENREPORTAGREGAR_LOG_EJECUCION PRINTERNAMEP_PRN_SETEAR_DEFAULTASIGNAR_IMPRESORA PAPERSIZECRYSTAL_TAMAO P_CRY_TAMAOXOKTABLES_USE_LOC_ADVTABLES_LOC_ADV_APLICAZDATABASETABLESCOUNTARCHIVOLOCATION GET_SHORTPATHMENSAJE ESTADO_TEXTO REPORTTITLETITULO1DONTCHANGENOTHINGXFORMULA FORMULAFIELDSNAMETEXTTITULO2 NOMBREGRUPO CODIGOGRUPODESCRIPCIONGRUPOCRDESCRIPCIONGRUPO ORDENGRUPOS FORMULA_USARFORMULA_APLICARFECHAAREASSECTIONS REPORTOBJECTSSUPPRESS PARAM_USAR PARAM_APLICARXMOSTRAR_FILTROTHISFILTROS_MOSTRARFILTROSFILTRO_OBTENEROCATCHPARAMETERFIELDS GETITEMBYNAMEFILTRO_PARAMETROCLEARCURRENTVALUEANDRANGEADDCURRENTVALUEPARAM_OBJETOS_USARPARAM_OBJETOS_APLICAR PRE_IMPRESION XIMPRESION PRINTERSETUPPRINTOUTOESTADOVISIBLECLASESLISTADOSARBOL TIPO_REPORTEESTADO_VISIBLEMOSTRAR_EXTERNOSHOWP_SERVER 4U XIMPRESION*4G+(listadosTCa<%CoEstadobOCoEstadobOC  d |T-%?\prt\(!" G~(clasesT Creporte_ventanaNT  ?\prt\< UXREPORTELISTADOS XDEMPRESA FN_EMPRESAOESTADOVISIBLE XIMPRESIONP_SYSTEMCLASESOCAPTIONTHISFORMTITULO1SHOWREPORTE_VENTANA<%CoEstadobOCoEstadobOC  < TT-F%\TMP\CfQ Q\tmp\G~(clasesG+(listadosTCreporte_ventanaN  !%C browsfieldsbCT.BROWSE &browsfields TITLE THISFORM.titulo1 k ' <FQU OESTADOVISIBLETHISFORMARCHIVOTEMPORAL RPTBROWSEP_LOCALCLASESLISTADOSOSHOWTITULO1. G+(listados C T T T T T<%CoEstadobOCoEstadobOC  T a% C_C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte. T -% TC <%CoEstadobOCoEstadobOC   T - B C  T(C%'%CxCamposArr(nIt,1)bC%CT T'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bL'T-'%CxCamposArr(nIt,5)bCqT%SUMAR %CT%SUMAR #TCCf'%CxCamposArr(nIt,7)bC0T%SUMAR %CtT%SUMAR #TCCfT =0 TT T T\tmp\TReportesT T!" T"-T#C $% &%'(.sys_destino_excel('('*'(%'(+<%CoEstadobOCoEstadobOC    T -B-H@ C'(hT +a 2T +-H '(T'( '(T'(,-./01% +m(T#CArchivo de Excel#XLS%C#iT#C$% & T#C$% &%C#0T,C#T-C#T.C# T/+an-T0,\-(CC/Z)..%C00 > T#0!T//%/cj!%2T'&C# T3T4 5T6 7(T8C 9 * 96 T: T; T<=>?1 hayerror=.T.%Cf FQFQ %CN '( W GC:El reporte no ha devuelto registros para exportar a excel. FQ<%CoEstadobOCoEstadobOC  4 L T -B-(C. %CC/bD TC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} % B%C*C@\prt\C_v_C.xls0 X T!C.xls T: m 1%C@\prt\C_v_*]5  crystal_xls(!C"%C!fC reporte.xlsf T!@\prt\C! T: 1 T!@ \reporte.xls T: i T!@ \reporte.xls T: C imporimir xls CB,CCreando planilla de Excel... D+" o.%C!0 C No existe ! !!(#%" CNo se puede crear #C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa. "TECexcel.application\TEFaTGHI! EJ!TECexcel.applicationNC Por abrirK%"2C%No se puede abrir la aplicacin Excel !5L C Version: EMK%C#0CExisteK TLC#ENO(PCError: PQK K)CBorrando planilla inicialK #(CAgregando planilla vaciaKTLCENR!CGrabando planillaK Cname: LSK(P#C Error name: PQKC#8ETUCGrabadaK(P'CError ReadOnly: PQK T"a C No Existe!K%" .CNo se puede abrir el archivo # EV%CoEstadobOCoEstadobOC   T-  <sys_procesandoUTHISFORMOESTADOVISIBLEREFRESHRELEASESP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOJ!(CC0%CThisform.Param_data(nIt,1)bC? $C5CC(;% 7% C Problemas al pasar el parmetro CCf al reporte en Crystal.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   3C Problemas al pasar el parmetro CCf al reporte  C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   UNITTHISFORM PARAM_DATA CRREPORTEPARAMETERFIELDS GETITEMBYNAMECLEARCURRENTVALUEANDRANGEADDCURRENTVALUEOCATCH PARAM_NOERRORP_DEVMENSAJEMESSAGEARCHIVOREPORTE@ T%(CTC! (C ?<%Cthisform.archivo[w]bCC   ;T C\C  % T C/C  ,% CC  >  7T CC  \T C. % T C =%CC fCCf3%CC  0.TCC   /8C El archivo CC   no existe !!!B-"(9*(C5)%CC18(CC-1TCCC! (C )<%Cthisform.archivo[w]bCC   %T C\C  % T C/C  ,% CC  >  !T CC  \T C. % UT C =%CC fCCf%CC  0CTCC   8C El archivo CC   no existe !!!B-UCRSUBREPORTOBJECTXTHISFORM CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWARCHIVODIRBARFRMNAMEPOINTPOS GET_SHORTPATHMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT<%CoEstadobOCoEstadobOC  < TT-TC%%\TMP\CfT.txt &T\tmp\.txt%C07%C!Desea abrir el archivo de Texto?.| ShellExecute Shell32.DLL!Copen 5CEl archivo se ha guardado en: C   C No existe  U OESTADOVISIBLETXARCHIVOTEXTOTHISFORM ARCHIVOTEXTOARCHIVOTEMPORALP_LOCAL MENSAJE_SINO SHELLEXECUTESHELL32DLLMENSAJE Q COMMANDBUTTON7T   )T C T T T T T TTTT T C T0 T T T"TC6TTC 8T5 T%TTT T!'T!C" "6+T!!C# #62T!!C# "  6 TC 8C! 8T#T"T"!T#"T" T# TU$ BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVENABLEDREP_IDBTNTXT BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNPLANTILLA_EXCELBTNSALIRREACOMODAR_BOTONES ANCHO_BOTONES INTER_BOTONESNUMERO_BOTONES XTABINDEXCBTNXANCHO_BOTONESXLEFTWIDTHXTOPHEIGHTNITLEFTTOPTABINDEXXCKANCHOCKFECHAKEEP M4QSTRINGQVARIANTQINTEGERQINTEGERQBOOLEAN%cB-G+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-( BTCN %2TT%CxDatabDTCN TC %C  C T T T aU XNAMEXDATA XFECHALIMITEXPOSXOMITIRDEY_FUNCTHIS PARAM_COUNTTHISFORM PARAM_DATA CHK_VALUECR_VALIDAFECHA PARAM_USAR4QSTRINGQSTRINGQINTEGERQBOOLEANQBOOLEANQSTRINGQOBJECTQSTRINGQSTRINGG+(Dey_FuncB%CxFieldbLCxLabelbL CxPosbL T J( BTCC] TCN%iT  T %C  C T T T T %C HT !%CxForbL T   T %C T T  BUXFIELDXLABELXPOS XTOTAL_SEPARAXTOTAL_GENERAL XOPERACIONXFOR XOPER_TOTALXIDUDEY_FUNCTHIS CAMPOS_COUNTTHISFORMCAMPOS CHK_VALUECAMPOS_FORMATO BaU8%CoEstadobO1CaUOESTADODEBUG_TIME_SETTHISCAPTION2%CoEstadobO+C-UOESTADODEBUG_TIME_SET _C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte.%T B  %C  Q \tmp\  F %C NnGC:El reporte no ha devuelto registros para exportar a excel. F QB- (C.%CC /bDT C /8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} K%C 0C\prt\C _v_C .xls0 cTC .xls T ~4%C\prt\C _v_*]F" crystal_xls(C "%CfC reporte.xlsfT\prt\C T BT \reporte.xls T zT \reporte.xls T T-TC  .sys_destino_excel(H. CT a 2.T -HCi iT% (TCArchivo de ExcelXLS%CTC T,TCreando planilla de Excel...  !1 hayerror=.T.+ %C0 C No existe x!(%>CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.x!" u"T"Cexcel.application\  Ta% T- !T"Cexcel.applicationN  Ta%41C%No se puede abrir la aplicacin Excelx! VC"#$ k Ta%-CNo se puede abrir el archivo x "%<"!ON ERROR &onerr T"&-T'"#("#')*'"#')+A3,T/TProcesando el encabezamiento... T +CC  - ;T.CC  8C@C  8 63T..C@CC GC G6 *"#')+.3* "/0;T"#')+.3C  -T  T1 %1 F T2CC]R T3 (1T T33CC  -% 1 P T33,DCOPY TO (p_local+"\tmp\"+xplanilla_aux) FIELDS &xfields TYPE XL5 (C \tmp\2.xls"#$/T@CC1 8 C1 86!TC@C 6T@C1G"TC@zC 6T4+"#')+A1*;"#')+A2:4CCCNZ*;"#')+A2:4CCCNZ5"#')6'"#')+A4*"#')0"#'7- %8 9  F T:CN (1;T.CC  8C@C  8 63T..C@CC GC G6 !%CC  -bN%8B1T;=Sum(.4:.CC:Z)"T"#')<;2T"#')=: >?a%@>4T"#')=: A@%97T"#')=: BA9T&TAjustando Columnas ... T 1;T.CC  8C@C  8 63T..C@CC GC G6 ."#')CA:.BD0T"#')+A1 '"#')+A1*"#')*'"#')+A1*TT Guardando... "EFT"G-"#'7  \tmp\2.xlsT&-T"Ga6%CAbre el archivo en el Excel ?x%%',T"G- "%<".| ShellExecute SHELL32.DLL!| FindWindowWIN32APITM9N.TOCMopen \tmpH%O !RC!No se puede ejecutar ShellExecuteC Cdigo del error: CCOZ v%'ZT"G- "% rT"&a<"! F QBM Sub Macro1()' Macro1 Macro1+' Macro grabada el 25/10/2000 por Guillermo Range("D2").Select)# Selection.NumberFormat = "0.00" With Selection.( .HorizontalAlignment = xlGeneral+% .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0" .ShrinkToFit = False! .MergeCells = False End With With Selection.Font .Name = "Arial"! .FontStyle = "Bold" .Size = 23$ .Strikethrough = False" .Superscript = False  .Subscript = False" .OutlineFont = False .Shadow = False/) .Underline = xlUnderlineStyleNone'! .ColorIndex = xlAutomatic End With Range("E4").Select! With Selection.Interior .ColorIndex = 15  .Pattern = xlSolid End With-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select=7 ActiveCell.FormulaR1C1 = "hasfhsdfhksdhfkshdfkhskf" Range("E5").Select-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select>8 Selection.Borders(xlDiagonalDown).LineStyle = xlNone<6 Selection.Borders(xlDiagonalUp).LineStyle = xlNone,& With Selection.Borders(xlEdgeLeft)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With+% With Selection.Borders(xlEdgeTop)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With.( With Selection.Borders(xlEdgeBottom)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With-' With Selection.Borders(xlEdgeRight)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With2, With Selection.Borders(xlInsideVertical)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With4. With Selection.Borders(xlInsideHorizontal)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With Calculate End Sub Sub Macro2()' Macro2 Macro1+' Macro grabada el 25/10/2000 por Guillermo.( Application.Run "reporte.xls!Macro1" End SubUPX1X2MENSAJETHISXLS_AUTOGENERARGEN_XLSARCHIVO_TEMPORALARCHIVOTEMPORALGENERARZAAATHISFORMP_LOCAL PLANILLAXLSP_SYSTEM XPLANILLAXOTRA_PLANILLA CRYSTAL_XLSHAYERROR XXLS_ARCHIVOODEYFUNCGET_PATH XLS_ARCHIVOSYS_DESTINO_EXCELCAPTION XLS_ABRIRXLS_ARCHIVO_PREGUNTARXPLANILLA_FINALOESTADOVALUETEXTOXCOPY MAXFIELDSXDATAX WORKBOOKSOPENQUITVISIBLEXLIBROSCOUNTSHEETSSELECTRANGECOPYCAMPOSXCOL ACTIVESHEETPASTE XMAXFIELDS XPLANILLA_AUXXFIELDSXRANGOCUTACTIVATECLOSE XLS_TOTALIZARXLS_NUMBER_FORMATTXNROW TXSUMFORMFORMULACELLSFONTBOLDXLS_TOTALIZAR_FORMATO NUMBERFORMAT ENTIRECOLUMNCOLUMNSAUTOFITACTIVEWORKBOOKSAVE DISPLAYALERTS SHELLEXECUTESHELL32DLL FINDWINDOWWIN32APIPHWNDHWNDXERROR T T T T TTa C  T  (C % $'%CxCamposArr(nIt,1)bC%C  T    T  '%CxCamposArr(nIt,3)bLfT -'%CxCamposArr(nIt,4)bLT -'%CxCamposArr(nIt,5)bCT %SUMAR g%C  6T %SUMAR c#T CC  fT  =0T T T\tmp\TReportesT  T!T\tmp\reporte.mdb TT T (TC   6 T!"#$% T#-1 hayerror=.T.%C  FQFQ%CN[HC;El reporte no ha devuelto registros para exportar a Access.& FQB-%  INDEX ON &xOrden TAG REP_mdb (C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} B%C*C'\prt\C_v_C.mdb0 |TC.mdb T! 1%C'\prt\C_v_*]Y crystal_MDB(C"%CfC reporte.MDBf!T'\prt\C T! UT' \reporte.MDB T! T' \reporte.MDB T!*CCreando Tabla de Access...)+a %C0 C No existe x!(%#CNo se puede crear C dRevise entre las tareas en ejecucin que no exista una instancia de Access creada por este programa.x!*#T*CAccess.application\%#  T#-"T*CAccess.applicationN%#i2C&No se puede abrir la aplicacin Accessx!C*+%#-CNo se puede abrir el archivo x *,<*!ON ERROR &onErr T- T+CC P T%C L !T. FTC/.dbfT0CC\\T1CC\\ T2(.& T22CC %. " T22,6COPY TO (xPlanilla_Aux) FIELDS &xfields TYPE FOX2X C Importando...)5C dBase 5.001Reporte-*34 1a=1 (. 8T*56Reporte7 8C  ON ERROR &OnErr C Guardando...) T-7%CAbre el archivo en el Access ?x %- *9 *,<*.| ShellExecute SHELL32.DLL-T=Copen\tmp:%=  RC!No se puede ejecutar ShellExecuteC Cdigo del error: CC=Z&  %- *9 *,  T*a<*! FQBU> XLEDGETOP XLEDGEBOTTOM XLAUTOMATIC XLCONTINUOUSXLTHINOESTADOVISIBLEZAAATHISFORMCAMPOS XCAMPOSARR XCOLCOUNTNIT XPLANILLAMDB PLANILLAMDB XTEMPORALARCHIVOTEMPORALXTABLAP_LOCALXALIASXORDEN CAMPOS_ORDEN XPLANILLAXPLANILLA_FINAL XPLANILLA_AUXXSEPFOR CAMPOS_SEPARAXSEPENCCAMPOS_ENCABEZADOXTITULO CAMPOS_TITULOCAPTIONXOTRA_PLANILLAXCOPYHAYERROR MAXFIELDSXDATAMENSAJEP_SYSTEM CRYSTAL_MDBAVANCEXOPENCURRENTDATABASEQUITXLIBROS XMAXFIELDSNEWFILE_LOCAL_TMPXTMPPATHXTMPFILEXFIELDSDOCMDTRANSFERDATABASE CURRENTDB TABLEDEFSFIELDSNAMECLOSECURRENTDATABASE SHELLEXECUTESHELL32DLLXERROR%CoControlbO9 T o,TCObjeto_ControladorObjetos TC(,TCObjeto_ControladorObjetos% TCa  BU XCICLOOOBJOCONTROLXRET CRYSTAL_PARAMTHISFORM CRREPORTEOEXTHISPARAM_OBJETOS_APLICAR N!(CJS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf F TC(ByCProblemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!  T " ( *(C   )%CC   8(CC   #TCC  {!(CwS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf s TC(oC*Subreporte: Problemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!! UXFORMULANITTHISFORM CRREPORTE FORMULAFIELDS FORMULA_DATANAMETEXTOCATCHMENSAJECRSUBREPORTOBJECTZSECTIONSCOUNTY REPORTOBJECTSKINDX OPENSUBREPORTDATABASETABLES RPTOBJECT.4QSTRINGQSTRINGQINTEGERG+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-(BTCN%TT%C6CTTT aU XNAMEXFORMULAXPOSDEY_FUNCTHIS FORMULA_COUNTTHISFORM FORMULA_DATA CHK_VALUE FORMULA_USAR#Q EXPORTACIONESimp_exp'TC exportacionesimp_expT%TCC C  C TC CollectionNBaU OEXPIMP_EXPXPARARCHIVO_SALIDA_RENOMBRATHISFORMTHISXLS_COLL_PARAMCOUNTXLS_COLL_GETNEWADDPARAMETROS_COLLEXPORTAR_XLS_COLLxG~(Clases(TCExportaciones_parametrosN% hC BUXNO_LEER_CRYSTALXPARDO_LEER_CRYSTALTHIS %C % TT$TCWWAPI IP\WWAPI.PRG?TCHKCUSOFTWARE\Solinges\GES\Reportes  TCC6'TC Archivo PDF:CPDF%C T  $TCWWAPI IP\WWAPI.PRGBCHKCUSOFTWARE\Solinges\GES\Reportes Ca  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDF 'TCCCPDF  TTT  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDFU XNOPREGUNTARXARCHIVOTHISFORM CRREPORTE XPDFPROMPT EXPORTOPTIONSDESTINATIONTYPE FORMATTYPEOAPIREADREGISTRYSTRINGNAME DISKFILENAMEWRITEREGISTRYSTRINGEXPORT OEX_EXPORTMENSAJE XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP U BOTON_ARRAY0&CC reporte.xlsUOCOLLADDODEYFUNCGET_PATHTC Collection Y"TCexcel.application\(gC/%CoEXCbO CoCollbO Ba T %C %C fC f~C'La planilla se encuentra en abierta !!!C 0Cierrela antes de intentar generarla nuevamente.C C   % -T aB-U OXLSOEXOCOLLOWBOEXCTHISFORMXLS_A_USAR_PEDIR WORKBOOKSTYPEOXTXTFULLNAMEMENSAJEVISIBLE$#%SCH  [%NC B  T CX T*|GetShortPathNamekernel32TC  %TCCC =C  T BU XFILEXFINALP_EMPTHISCHK_LONGVALUEP_DEVMENSAJEXLNXPATHGETSHORTPATHNAMEKERNEL32 Ta C(CIniciando datos... C C C TC %CxdestinobCT%.DBF TC.dbf ( T( P% L$CDestino invlido : %  )%CoEstadobO C   T- BU XNO_RELEASEXDESTINOXARCHIVOTHISFORMMANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONEXPORTAR_DEFINICION_COLUMNASARCHIVOOCOPYXXXP_DEVMENSAJERELEASETYPEOMQINTEGERQBOOLEANQSTRINGQBOOLEANQINTEGER%CxabrirbN} TTaT TaH  T-TC  "  TC  tT Ta  TC  T-   c%   BU XTIPO_REPORTE XNO_RELEASEXTABLA XMANTENERXABRIRXRETURNTHISFORMMOSTRAR_EXTERNOMANTENER EJECUTAR_SQL BTNVISUALIZARCLICKARCHIVOTHIS XLS_ABRIR AUTOMATIZADO BTNEXPORTAR XPDFPROMPTBTNPDFRELEASE% QOBJECT7T   T -T -T -T -T -T -T -T aT UVNEWVAL BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVBTNTXTENABLED BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNSALIRTHIS SOLO_SALIR T@ TT T T T%TCC 8 %CGTCCG  BUXCOLUMNAXINIXLAPXFINXSTRXCOLXCURg;QGUARDAR_PARAMETROS_CRYSTALform_controles.vcx 'T %C #FQ \rptparam wr tmprptparam  CEjecucin tipo CC Z C] F Q(5%C tmprptparam`F QUOPARAMFORM_CONTROLESVCXOEXTHISFORM PARAMETROSPAR_LEERREP_IDP_SYSTEM TMPRPTPARAM PUB_INDEXP_CODEMP TIPO_REPORTE VAL_TEXTOSb<%CoEstadobOCoEstadobOC  JB-CUXTEXTOOESTADOAVANCEa<%CoEstadobOCoEstadobOC  JB-TUXTEXTOOESTADOTEXTOa<%CoEstadobOCoEstadobOC  JB-TUXVISIBLEOESTADOVISIBLEX /T@CC 8 C 86!TC@C 6T@CG"TC@zC 6T     T CT T-TTT- eT(s F T  T  T CN+ qT  wCOPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 T T  T   T T (  C _CCZTj ACCC6Z:CCC 6Z!ATC C6CC" C#T  $%$T T 7T ATU&XALIASXEXCEL XPLANILLA_AUXXFIELDS XMAXFIELDSX1X2XRANGO XRECCOPIADOXPLAN XRECACTUAL XRECFALTAXDISPLAYALERTSXPATH XLIBROBASEXLIBROMVOEXXCL1XCL2ODEYFUNCNEWFILE_LOCAL_TMP DISPLAYALERTSXVISIBLEVISIBLEXTOPTOP WORKBOOKSADDCOUNTNITOPENSHEETSRANGECOPYCELLS PASTESPECIALCLOSESAVEAS4%-TUXTEXTOP_DEVTHISFORMCAPTION!TUXTEXTOTHISFORM LOG_EJECUCION^.| ShellExecute Shell32.DLL&CopenCCUXARCHIVO SHELLEXECUTESHELL32DLLb-TCC lnMillisecsbN6|SleepWIN32APICBU LNMILLISECSSLEEPWIN32APITCCPRINTv TTT T C TTT T U XIMPRESORAXPAPERORIENTATION XPAPERSIZE XPAPERSOURCEXPRINTERDUPLEXTHISFORM CRREPORTEPAPERORIENTATION PAPERSIZE PAPERSOURCE PRINTERDUPLEX SELECTPRINTER, T-T-UTHISFORMCRVISTARELEASE CRREPORTE CRAPLICACIONlTC -   T&%C C3 $ \%C4TCC 6: Hasta C* X%C3 $ 8TCC 6: Desde C* T@TCC 6: C* al C* BU XVARIABLE XSEPARADORXTXTXDXHXRES QCRYSTAL clases.vcx %CPlantillas_XLS )%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C"Q\plantillas_xls%C > T  5  :% $C plantillas_xlsID_Form y T =sys_editar_reportes_excel_arbol(  a%   u2QEXPORTACIONES_PARAMETROS IMP_EXP.VCx6TCExportaciones_Parametros IMP_EXP.VCXC C UOFORMCLASESVCXP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONTYPEOTHISFORMXCOD_PLANTILLAXRESP_XLS_MOSTRAR_SELECCION_MODELOSTHISID_FORMULARIO_EVALUADOSYS_EDITAR_REPORTES_EXCEL_ARBOLCAMPOS_PARAMETROS_ORIGINALOPARIMP_EXPPLANTILLA_LEERDO_APLICAR_CRYSTALo QCRYSTAL clases.vcx%C B T %CPlantillas_XLS >)%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C "Q\plantillas_xlsC C UOFORMCLASESVCXTYPEOTHISFORMP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONCAMPOS_PARAMETROSDO_LEER_CRYSTALCAMPOS_PARAMETROS_ORIGINALCLONARSE BUTHIS ID_FORMULARIO BUTHISFORM ID_FORMULARIO:%C'T BUTHIS ID_FORMULARIOTHISFORMNAMEg QCRYSTAL clases.vcx%C B TCUOFORMCLASESVCXTYPEOTHISFORMTHISCAMPOSTCUTHIS BACKCOLOR SYS_COLOR!QLOGUEAR sys_log.prg%C <TCloguear sys_log.prgCC  %  % >%CCCampoNombrea !(C :/CCC C   (TC!(C/CCCC (CUOLOGSSYS_LOGPRGOPARNITNIT2PI_XLS_EXPORTAR_CAMPOSTHISINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOINICIALIZAR_COLUMNAS_EXTERNOLOGTHISFORMCAMPOSXLS_COLL_PARAMCOUNTITEM EX_XLS_CAMPOSOEX LOG_EXCEPCION %C) T%{TTa CT-  BCUNSTYLE XTIPO_REPORTETHISFORM TIPO_REPORTETMRCLICKENABLEDTHISVISIBLE UTHISFORM DELETE_FILEShJ(TT CT-  T  T + C >%CC \9 T C [ T  T  ( %9T .xls WT aUTHISFORMFILES_TO_DELETE MINHEIGHTHEIGHTMINWIDTHWIDTHACOMODAR_BOTONESTHISMANTENERXCAPTIONCAPTIONZNAMEONADAXLS_ARCHIVO_AUTOMATICO XLS_ARCHIVOOSQLOSQLCON C=TC Exportaciones_Parametros_FormatoIMP_EXP!T###,###,##0.005TCExportaciones_ParametrosIMP_EXP5TCExportaciones_ParametrosIMP_EXPG~(clasesG+(listadosTNT CXT CXT TT CXT CXTCXTCXT-TCXTCXTTT TTCXTCXTCXTCXTCXTTTTCXT CXT!-T"C XT#C XT$aT%T&NT'CXT(CXT)T*NT+C$T,T-BAT.T/BAT0CXT1CXT2CXT3T4T5T6T7T8T9T:T;T<T=T>T?T@TASTBNTCSTDTETFCXTGCXTH TI-TJ TKTLNTM-TNTOTPTQTRTS-TTSTUSTVTWTXYZT[T\ T]T^NT_T`TaTbTcaTdNTeNTfTgThTiTjTkTlTmTnToTpTqTr-Ts-Tt-Tu-Tv-Tw-Tx-Ty-Tz-T{-T|-T}-T~-T-T-T-T-T-T-T- CUSETSTHISFORMCAMPOS_FORMATO NUM_FORMATCAMPOS_PARAMETROSCAMPOS_PARAMETROS_ORIGINALCLASESLISTADOSXDACTXDAGEXHAGEXDASIXDATRXHATRXDBIEXHBIEXDBONXDBULXHBULXDCATXHCATXDCAUXDCLASEXDCLIXHCLIXDCODXDCENXHCENXDCFCXHCFCXDCOSTOSXDCOSXHCOSXDCTRXDCUEXHCUEXDDATXDDECXDDIVXDDEPXHDEPXDDSCXDDSEXDFCSXDFECXHFECXDFEC1XHFEC1XDFLEXHFLEXDFORXDGRUXHGRUXDSUBGRUXHSUBGRUXDIMPXHIMPXDLINXHLINXDLISXHLISXDLVAXDMONXDMOTXHMOTXDMOVXDNOTXDNUMXDORDXDPAIXDPROXHPROXDPRVXDREMXDRESXDRSMXDSALXDSCDXDSCEXHSCEXDSEPXDSGRXHSGRXDSPGXDSTKXDSUBXDSUCXHSUCXDSEROLOTDATA_CODIGO_VACIOXDTARXDTCPXDTIPXDTOTXDTVAXDULTXDUNIXDVALXDXBAXDXCCXDXCPXDZONXHZONXDNUM1XHNUM1XDNUM2XHNUM2XDNUM3XHNUM3XDNUM4XHNUM4XDNUM5XHNUM5XDLOG1XHLOG1XDLOG2XHLOG2XDLOG3XHLOG3XDLOG4XHLOG4XDLOG5XHLOG5XDLOG6XHLOG6XDLOG7XHLOG7XDLOG8XHLOG8XDLOG9XHLOG9XDLOG10XHLOG10 ASIGNAR_COLOR4 C$T UTHISFORMACOMODAR_BOTONESCHK_LONGTOPHEIGHT% %Catablesy%(CatablesFCQCT- CUTHIS DATASESSIONATABLESZCAMPOS_PARAMETROSDISPOSEfile_to_delete0 delete_filesimprimir_crystal imprimir_vfpimprimir_reporte_vfpimprimir_tabla_viejo imprimir_xlspreprocesar_impresiondPpostprocesar_impresionQ param_aplicar>Stables_loc_adv_aplicaBVimprimir_textoT\acomodar_botones^ param_agregar^dcampos_agregarf validar_datosjdebug_time_iniciarjdebug_time_finalizar,kimprimir_xls_viejokimprimir_tablakparam_objetos_aplicarformula_aplicarformula_agregarimprimir_xls_externoעxls_coll_getnewt imprimir_pdf#reacomodar_botonesxls_a_usar_pedirxls_a_usar_revisarr get_shortpath֬ ejecutar_sqlgejecutar_externosolo_salir_assignܳ xls_columnagrabar_ejecucion̶ estado_avance˸ estado_textoNestado_visibleϹimprimir_xls_largosTagregar_captionagregar_log_ejecuciond abrir_pdfsleep:asignar_impresoracerrar_visualizador\formato_rango_fechasseleccionar_columnasdpre_seleccionar_columnasid_formulario_evaluado_access6evaluar_id_formulariobid_formulario_accesspos_seleccionar_columnas asignar_colorexportar_definicion_columnasShowUnloadInitLoadResize.Destroy1qAAAAAAB311BAB3sAAAAAA1WqASAAC1Aqaq11AaAAq41"QAAAAAAe'sBAqAB111B1BAA!A1AAA)AtAAA!A$A2A!_ b!AABA2AAB23q6q"A2Ar4AA!ArrA4@#A"A"AAB1qAAAqqAqqAq1AAq1AAAQrhAbAqAAaaArq!A!AA1AAA11AAB2DAAqAAqAAABC"q!AAA"AA" !BA!AAraA1AqqqAAAqAAq14vABAR1qAAA2aqQ!A1!A1!AA"!ADrArAaBAAARAABvb!xqa1BqQAA5QAAArA!a1qQqArAAAABQACAArA!a1qQqArAAAArQ!a1qQqArAAAraA!a1qQqArAAAB5BvQAAAaQaaaaAbraQAAA11AAACCBAAC?qraQA221CqB4CR1C  AAAAA4S1A11aAqAAAAAA"1A11aA1qAAAAAAAAA3A"1aAAqRAA3rcaaaaaaaaa!Ar!AArr!rq24q9sA"AA1qAaAA3A""AAa1qAA!AA"A2q2AA3A2"aAARAqAqAAAA!!AAArAaA$AAq2D"AA"AAr!AAAAAAAqAA22ru1A2Q1!ABBb!q1!!!aAAAaqABBAva1qBqr3b3qA2!A2ADqCBABF!aAaaa!!A!!q!!aaqq!qq!qq!qq!!qq!Aqq!1!aAaaaaaA:@B1qAAAqqAqqAq1AAAQtB#AA"AqABAAA"q!AAA"AA" AAr2!A!AAqAA2AAAa1!ABaQAAr1qA2!A2ADqCBAB9qqAq!AA>q2AAAB"1A2RAAAAAAAA2"AA1qAA32qr1AABAAq2qqA3QaaCq"aA!A BAqaaa BBA3q2qb21!AqAAAAAAqAAAA5qq1AA1A2qBqA!AAABAA2qB1Q1A1A11AA3qrrA!3qr2BA2qQxrAABqAA4qqA2qqA2qqA2qb!qAAqA11G6A1A3qqA2qr3qb2qA5q12111211127qbrbAAAA3A"AQA"aAA3QAA"ABa332B1A3QA22!!A1QAAAAAA3A1A3=21qaAAA!AA>RQ!"!"!"!"!"!""!"!"!"!baba"!""!2b2A3aUQQrQ!AABA2`+&+>,{i,..U1 x1oJ‰cy‹9eGlӜĨe9E[it]a[eG X# zK+ vE sZ h 9P w     :A I9\W Y!m l"" r"6# x[## ~$*, P,, ,(- H-d. ./ F/1 13( A3554 `5&9K U9a;i ;;} <-< X<< '== => 4>}B 9BC FCrD HDG cGjY YY Z[ )[PROCEDURE file_to_delete PARAMETERS xfile *=sys_mostrar_screen("Suspendo?", .t.) FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])=ALLTRIM(xfile) EXIT ELSE IF ALLTRIM(THISFORM.files_to_delete[z])="" TRY THISFORM.files_to_delete[z]=ALLTRIM(xfile) CATCH TO oCatch ENDTRY EXIT ENDIF ENDIF ENDFOR RETURN ENDPROC PROCEDURE delete_files FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])#"" .AND. ; !(THISFORM.archivotemporal$THISFORM.files_to_delete[z] .AND. THISFORM.mantener) ON ERROR aaaa=1 DELETE FILE (THISFORM.files_to_delete[z]) ON ERROR &onerr ENDIF ENDFOR RETURN ENDPROC PROCEDURE imprimir_crystal * * ximpresion = .t. && imprime directamente * * * Tipo Reporte = 7 PDF - Solo genera el objeto visor pero no lo muestra. * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THISFORM.CRAplicacion = NULL THISFORM.CRReporte = NULL THISFORM.CRVista = NULL *=sys_mostrar_Screen("Suspendo?", .t.) LOCAL xerror, xMess, oEx AS EXCEPTION xerror=0 *!* ON ERROR xerror=1 THISFORM.estado_avance ('Iniciando servidor de automatizacin...') IF .F. TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") THISFORM.crversion ="CrystalRuntime.Application.11" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") THISFORM.crversion ="CrystalRuntime.Application.10" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") THISFORM.crversion ="CrystalRuntime.Application.8.0" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDTRY ENDTRY ENDTRY ELSE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDIF IF TYPE("THISFORM.CRAplicacion")#"O" THEN =MESSAGEBOX('1 - El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+xMess+")") ON ERROR xerror=2 ELSE THISFORM.estado_avance ('Abriendo reporte...') * A partir de ahora no hace falta inicializar THISFORM.archivoreporte con texto terminado en .rpt, la extensin * se colocar aqu en caso de que no la tenga. Adems se evaluar la existencia de la terminacin _XXX donde XXX * corresponde al cdigo de la empresa. Si existe el reporte xxxxxxx_XXX.rpt se tomar ese reporte, sino el normal. * Lo limpio por si acaso THISFORM.archivoreporte=ALLTRIM(THISFORM.archivoreporte) * Elimino la extensin .RPT si existe IF UPPER(RIGHT(THISFORM.archivoreporte,4))=".RPT" THISFORM.archivoreporte=STUFF(THISFORM.archivoreporte, LEN(THISFORM.archivoreporte)-3, 4, "") ENDIF * Si existe el reporte de la empresa, modifico lo tomo, sino tomo el genrico IF FILE(THISFORM.archivoreporte+"_"+p_emp+".RPT") THISFORM.archivoreporte=THISFORM.archivoreporte+"_"+p_emp+".RPT" ELSE THISFORM.archivoreporte=THISFORM.archivoreporte+".RPT" ENDIF IF FILE(THISFORM.archivoreporte) THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) =ADDPROPERTY(THISFORM.CRReporte, "archivoreporte", ALLTRIM(THISFORM.archivoreporte)) * =sys_mostrar_Screen("crystal",.t.) THISFORM.agregar_log_ejecucion( "(prn1: "+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") IF p_prn_setear_default=1 THEN Thisform.asignar_impresora () THISFORM.agregar_log_ejecucion( "(prn2: "+SET("PRINT",2)+":"+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") ENDIF THISFORM.agregar_log_ejecucion( "(z0:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")") DO CASE CASE THISFORM.crystal_tamao = 0 CASE THISFORM.crystal_tamao = -1 IF p_cry_tamao<>0 THEN THISFORM.CRReporte.PAPERSIZE = p_cry_tamao THISFORM.agregar_log_ejecucion( "(z1:" + ALLTRIM(STR(p_cry_tamao))+ ")" ) ENDIF OTHERWISE THISFORM.CRReporte.PAPERSIZE = THISFORM.crystal_tamao THISFORM.agregar_log_ejecucion( "(z2:" + ALLTRIM(STR(THISFORM.crystal_tamao))+ ")") ENDCASE THISFORM.agregar_log_ejecucion( "(z3:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")" ) IF xerror=0 ON ERROR &onerr THISFORM.estado_avance ('Configurando datos del reporte...') xok=.T. IF THISFORM.Tables_Use_Loc_ADV THEN *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THISFORM.Tables_Loc_ADV_Aplica() ELSE FOR z=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT IF TYPE("thisform.archivo[z]")="C" .AND. THISFORM.archivo[z]#"" IF FILE(THISFORM.archivo[z]) THISFORM.CRReporte.DATABASE.TABLES[z].location = THISFORM.get_shortpath( THISFORM.archivo[z]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.archivo[z])+" no existe !!!") xok=.F. EXIT ENDIF ELSE EXIT ENDIF ENDFOR ENDIF THISFORM.estado_texto('Pasando parmetros al reporte...') IF xok * * Configuracion General * THISFORM.CRReporte.ReportTitle = THISFORM.titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF THISFORM.dontchangenothing THEN ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+THISFORM.NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = THISFORM.CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = THISFORM.DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = THISFORM.CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = THISFORM.OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF THISFORM.Formula_usar THEN THISFORM.Formula_aplicar() ENDIF IF !THISFORM.fecha * Suprime la fecha y la hora FOR z=1 TO THISFORM.CRReporte.areas[2].sections[1].reportobjects.COUNT IF INLIST(THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].NAME,"PrintDate1","PrintDate2", "PrintTime1","PrintTime2") THEN THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF THISFORM.param_usar THEN THISFORM.param_aplicar ENDIF ***************************************************************************** ******* Paso el parametro de filtro si es posible ******************** LOCAL xMostrar_Filtro xMostrar_Filtro='' IF THIS.filtros_mostrar AND TYPE("this.filtros")="O" THEN TRY xMostrar_Filtro=THIS.filtros.Filtro_Obtener() CATCH TO oCatch ENDTRY ENDIF TRY THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).ClearCurrentValueAndRange THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).AddCurrentValue(xMostrar_Filtro) CATCH TO oCatch ENDTRY ********************************************************************** IF THISFORM.param_objetos_usar THEN THISFORM.param_objetos_aplicar ENDIF THISFORM.pre_impresion() IF ximpresion THISFORM.CRReporte.printersetup(0) THISFORM.estado_avance ('Imprimiendo...') THISFORM.CRReporte.PrintOut(.T.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oEstado)) THEN ELSE oEstado.VISIBLE=.F. ENDIF ELSE * Pongo esto porque a veces no encuentra "CrystalViewer_top" SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.estado_avance ('Configurando la visualizacin...') * No quiero ms el arbol visible THISFORM.arbol=.F. THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; THISFORM.archivo[1],; THISFORM.archivo[2],; THISFORM.archivo[3],; THISFORM.archivo[4],; THISFORM.archivo[5],; THISFORM.archivo[6],; THISFORM.archivo[7],; THISFORM.archivo[8],; THISFORM.archivo[9],; THISFORM.archivo[10],; 130, THISFORM.tipo_reporte = 7, thisform; ) THISFORM.estado_visible(.F.) IF THISFORM.tipo_reporte # 7 THEN IF THISFORM.Mostrar_Externo THEN THISFORM.CRVista.SHOW ELSE THISFORM.CRVista.VISIBLE=.T. ENDIF ELSE THISFORM.CRVista.VISIBLE=.F. ENDIF ENDIF *=sys_mostrar_screen("Suspendo?", .t.) * Antes de seguir espera que termine el renderizado, esto es para que se pueda ejecutar thisform.solo_impresion_despues() y no afecte los datos *!* set alternate to c:\sistema\temp.txt *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *!* do while thisform.crvista.crviEWER.isBusy *!* set alternate to c:\sistema\temp.txt additive *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *thisform.sleep(3000) *!* aaa_timer=seconds() *!* do while seconds()-aaa_timer<3 *!* enddo *!* *!* *!* enddo *!* set alternate off *!* set alternate to c:\sistem\temp.txt ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' no existe.') ENDIF ENDIF ON ERROR &onerr SET DEFAULT TO (P_SERVER) ENDPROC PROCEDURE imprimir_vfp PARAMETERS ximpresion * * ximpresion = .t. && imprime directamente * ENDPROC PROCEDURE imprimir_reporte_vfp PARAMETERS xreporte SET PROCEDURE TO listados ADDITIVE xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif IF ximpresion REPORT FORM (p_system+"\prt\"+xreporte) TO PRINTER PROMPT ELSE SET CLASSLIB TO clases o=CREATEOBJECT("reporte_ventana") o.CAPTION=THISFORM.titulo1 o.SHOW REPORT FORM (p_system+"\prt\"+xreporte) PREVIEW IN reporte_ventana ENDIF RELEASE o ENDPROC PROCEDURE imprimir_tabla_viejo * * Vieja rutina de exportar a DBF * IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif SELECT 0 IF "\TMP\"$UPPER(THISFORM.archivotemporal) USE (THISFORM.archivotemporal) ALIAS rptbrowse ELSE USE (p_local+'\tmp\'+THISFORM.archivotemporal) ALIAS rptbrowse ENDIF SET CLASSLIB TO clases ADDI SET PROCEDURE TO listados ADDITIVE o=CREATEOBJECT("reporte_ventana") o.SHOW *report form (p_system+"\prt\"+xreporte) preview in reporte_ventana IF TYPE("browsfields")="C" BROWSE &browsfields TITLE THISFORM.titulo1 ELSE BROWSE TITLE THISFORM.titulo1 ENDIF RELEASE o SELECT rptbrowse USE ENDPROC PROCEDURE imprimir_xls *!* xlCalculationAutomatic -4105 *!* xlCalculationManual -4135 * =sys_mostrar_screen("Suspendo?", .t.) * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 6 = Formato de Texto * y = 7 = Frmula de calculo en el TOTAL (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1, x2 SET PROCEDURE TO listados ADDITIVE =estado_ini(7) && Constantes de EXCEL xledgetop=8 xledgebottom=9 xlautomatic=-4105 xlcontinuous=1 xlthin=2 *=sys_mostrar_Screen("XLS Suspendo?", .t.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.T. ENDIF IF THISFORM.imprimir_xls_usar_viejo THEN *!* xres=THISFORM.imprimir_xls_viejo() *!* IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN *!* ELSE *!* oestado.VISIBLE=.F. *!* ENDIF *!* RETURN xres =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") THISFORM.imprimir_xls_usar_viejo = .F. ENDIF IF THISFORM.imprimir_xls_usar_externo THEN xres=THISFORM.imprimir_xls_externo () IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN xres ENDIF LOCAL z, aaa =ACOPY(THISFORM.campos,xcamposarr) ***Correccin para utilizar reportes del viejo formato y conteo de campos xcolcount=0 FOR nit=1 TO ALEN(xcamposarr,1) IF xcolcount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xcamposarr(nit,1)=="" THEN xcolcount = nit - 1 ENDIF ELSE xcolcount = nit - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xcamposarr(nit,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xcamposarr(nit,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xcamposarr(nit,5)='%SUMAR' ELSE IF xcamposarr(nit,5)=="" THEN xcamposarr(nit,5)="%SUMAR" ELSE xcamposarr(nit,5)=UPPER(xcamposarr(nit,5)) ENDIF ENDIF IF TYPE("xCamposArr(nIt,7)")#"C" THEN xcamposarr(nit,7)='%SUMAR' ELSE IF xcamposarr(nit,7)=="" THEN xcamposarr(nit,7)="%SUMAR" ELSE xcamposarr(nit,7)=UPPER(xcamposarr(nit,7)) ENDIF ENDIF xcamposarr(nit,10)="=0" NEXT xrecordcount=0 xplanillaxls=THISFORM.planillaxls xtemporal=THISFORM.archivotemporal xtabla=p_local+'\tmp\'+xtemporal xalias="Reportes" xorden = THISFORM.campos_orden xplanilla='' LOCAL hayerror hayerror = .F. xplanilla_final=odeyfunc.get_path(10)+THISFORM.xls_archivo * 0=Consulta si abre en el EXCEL, * 1=Abre directamente, * 2=No abre ni consulta, solo lo genera, * 3=Pregunta dnde lo guarda y solo genera (no lo abre) * 4=Pregunta dnde lo guarda y lo abre directamente * 5=Valor por defecto (Sin seleccionar) IF THIS.xls_abrir#2 && 12/06/2014 DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir ENDIF IF THIS.xls_abrir = 5 THEN *** No se seleccion nada. Anulada la ejecucin. IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 2 CASE THIS.xls_abrir = 4 THIS.xls_abrir = 1 ENDCASE LOCAL xnpath, xnfile, xnext, xidx, xnewf LOCAL owbt IF THISFORM.xls_archivo_preguntar THEN xplanilla_final=PUTFILE("Archivo de Excel",xplanilla_final,"XLS") IF EMPTY(xplanilla_final) THEN *hayerror = .t. xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo ENDIF ELSE xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo IF FILE(xplanilla_final) THEN xnpath = JUSTPATH(xplanilla_final) xnfile = JUSTSTEM(xplanilla_final) xnext = JUSTEXT(xplanilla_final) xidx = 1 DO WHILE .T. xnewf = xnpath+"\"+xnfile+"("+ALLTRIM(STR(xidx))+")."+xnext IF NOT FILE(xnewf) THEN xplanilla_final = xnewf EXIT ENDIF xidx = xidx + 1 IF xidx>99 THEN EXIT ENDIF ENDDO IF p_crystal_version>0 THEN THIS.xls_archivo = JUSTFNAME(xplanilla_final) ENDIF ENDIF ENDIF xplanilla_aux='' xsepfor=THISFORM.campos_separa xsepenc=THISFORM.campos_encabezado xtitulo=IIF(THISFORM.campos_titulo=='', THISFORM.CAPTION , THISFORM.campos_titulo ) xotra_planilla=1 xinirow=3 xinisep=3 LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. IF USED(xtabla) THEN SELECT (xtabla) USE ENDIF SELECT 0 USE (xtabla) ALIAS (xalias) IF RECCOUNT()=0 AND THIS.xls_abrir#2 && 12/06/2014 =mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF NOT xorden=='' THEN * INDEX ON &xOrden TAG REP_XLS ENDIF IF ALLTRIM(xplanillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_"+ALLTRIM(xplanillaxls)+".xls") xplanilla=ALLTRIM(xplanillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(xtemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF =sys_mostrar_screen("imporimir xls",THISFORM.suspender) =oestado.avance("Creando planilla de Excel...") DO WHILE NOT hayerror IF !FILE(xplanilla) THEN =mensaje('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xplanilla_final) IF hayerror =mensaje('No se puede crear '+xplanilla_final+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') x=GETOBJECT(,'excel.application') x.screenupdating = .T. APPLICATION.calculation = xlcalculationautomatic * x.VISIBLE=.T. EXIT ENDIF LOCAL x,Y *!* x=GETOBJECT(,'excel.application') *!* IF hayerror THEN *!* hayerror=.F. x=CREATEOBJECT("excel.application") =log_aut("","Por abrir") *!* ENDIF IF hayerror THEN =mensaje('No se puede abrir la aplicacin Excel') EXIT ENDIF PRIVATE owbfinal =log_aut("","Version: "+x.Version) IF FILE(xplanilla_final) THEN =log_aut("","Existe") TRY owbfinal=x.workbooks.OPEN(xplanilla_final) CATCH TO oExAut =log_aut("","Error: "+oExAut.MESSAGE) TRY =log_aut("","Borrando planilla inicial") DELETE FILE (xplanilla_final) =log_aut("","Agregando planilla vacia") owbfinal=x.workbooks.ADD() =log_aut("","Grabando planilla") TRY =log_aut("","name: "+owbfinal.name) CATCH TO oExAut =log_aut("","Error name: "+oExAut.MESSAGE) ENDTRY x.ActiveWorkbook.SAVEAS(xplanilla_final,56) =log_aut("","Grabada") CATCH TO oExAut =log_aut("","Error ReadOnly: "+oExAut.MESSAGE) hayerror =.T. ENDTRY ENDTRY ELSE =log_aut("","No Existe!") ENDIF IF hayerror THEN =mensaje('No se puede abrir el archivo '+xplanilla_final) x.QUIT RELEASE x EXIT ENDIF =log_aut("","Abierto") ON ERROR &onerr xlibros=x.workbooks.COUNT IF RECCOUNT(xalias)>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* x.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* x.workbooks(xlibros).Close *!* x.workbooks.OPEN(xPlanilla_Final) xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") owbfinal.SAVEAS(xplanilla_final,51) owbfinal.CLOSE owbfinal=x.workbooks.OPEN(xplanilla_final) DELETE FILE (FORCEEXT(xplanilla_final,"xls")) ENDIF x.screenupdating = .F. * x.VISIBLE=.F. xactsheet=owbfinal.sheets(xotra_planilla) ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW **x.workbooks(xlibros).windows(1).visible=.f. * * Coloca el encabezamiento en la planilla * xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,1).COPY =oestado.avance("Procesando el encabezamiento...") z=1 DO WHILE ALLTRIM(xcamposarr[z,1])#"" xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,z).SELECT xactsheet.paste xactsheet.cells(3,z).VALUE = xcamposarr[z,2] z=z+1 IF z>ALEN(xcamposarr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 IF xmaxfields>0 THEN =sys_mostrar_screen("auxiliar",THISFORM.suspender ) * * Crea la planilla auxiliar * SELE (xalias) xplanilla_aux =newfile_local_tmp()+".xls" xfields = "" LOCAL xTieneMemo, xNCampo, xIDCampo xTieneMemo= .F. LOCAL ARRAY TMPaMemo(1) =AFIELDS("TMPaMemo",xalias) *=sys_m("Validar campos") SELE (xalias) GO TOP xcampos_inexistentes="" FOR z=1 TO xmaxfields TRY aaa=EVALUATE(ALLTRIM(xcamposarr[z,1])) CATCH xcampos_inexistentes = xcampos_inexistentes + IIF(!EMPTY(xcampos_inexistentes), ", ","") + ALLTRIM(xcamposarr[z,1]) ENDTRY xfields = xfields + ALLTRIM(xcamposarr[z,1]) IF z1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado x.activeworkbook.CLOSE x.displayalerts = .T. x.screenupdating = .T. x.displayalerts=.T. x.WINDOWSTATE= -4137 && xlMaximized x.VISIBLE=.T. ELSE TRY x.activeworkbook.CLOSE CATCH ENDTRY x.displayalerts = .F. xWD=x.HWND x.QUIT && = .T. IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF ENDIF RELEASE x, xactsheet, xcellact EXIT ENDDO SELE (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN ENDPROC PROCEDURE preprocesar_impresion RELEASE oEstado PUBLIC oEstado IF p_SinInterfaz THEN DO FORM estado NAME thisform.oEstado NOSHOW ELSE DO FORM estado NAME thisform.oEstado ENDIF oEstado=thisform.oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=1000 oEstado.VALUE=1 SET DEFAULT TO (p_server) THISFORM.debug_time_iniciar this.id_formulario_ultimo = this.id_formulario_evaluado ENDPROC PROCEDURE postprocesar_impresion IF NOT (TYPE("thisform.oEstado")#"O" or (TYPE("thisform.oEstado")="O" and ISNULL(thisform.oEstado))) THEN thisform.oestado.visible=.f. thisform.oestado.refresh thisform.oEstado.RELEASE ENDIF IF NOT (TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado))) THEN oestado.visible=.f. oestado.refresh oEstado.RELEASE RELEASE oEstado ENDIF do sp_ocultar_definitivamente ; in sys_procesando ENDPROC PROCEDURE param_aplicar FOR nit=1 TO ALEN(THISFORM.Param_data,1) *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("Thisform.Param_data(nIt,1)")="C" THEN TRY *Limpio los valores por defecto que tengan asignado el parmetro THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).AddCurrentValue(THISFORM.Param_data(nit,2)) CATCH TO oCatch IF NOT THISFORM.param_noerror THEN if !p_dev =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte en Crystal."+CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) else =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte "; +thisform.archivoreporte; +CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) endif ENDIF ENDTRY ENDIF NEXT ENDPROC PROCEDURE tables_loc_adv_aplica crSubreportObject=5 FOR x=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO THISFORM.CRReporte.Sections.COUNT FOR Y=1 TO THISFORM.CRReporte.Sections[z].ReportObjects.COUNT IF THISFORM.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE imprimir_texto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif txArchivoTexto=ALLTRIM(THISFORM.archivotexto) IF txArchivoTexto=='' THEN IF "\TMP\"$UPPER(THISFORM.archivotemporal) txArchivoTexto=THISFORM.archivotemporal+".txt" ELSE txArchivoTexto=(p_local+'\tmp\'+THISFORM.archivotemporal+".txt") ENDIF ENDIF IF FILE(txArchivoTexto) THEN IF Mensaje_SiNo("Desea abrir el archivo de Texto?",1) THEN DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",(txArchivoTexto),"", "", 1) ELSE =Mensaje("El archivo se ha guardado en: " +CHR(13)+; txArchivoTexto) ENDIF ELSE =Mensaje("No existe " + txArchivoTexto) ENDIF ENDPROC PROCEDURE acomodar_botones dimension boton_array(10) as CommandButton thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btnparam.enabled = thisform.btnparam.enabled and not empty(thisform.parametros.rep_id) boton_array(1) = thisform.btntxt boton_array(2) = thisform.btnvisualizar boton_array(3) = thisform.btnimprimir boton_array(4) = thisform.btntabla boton_array(5) = thisform.btngrilla boton_array(6) = thisform.btnexportar boton_array(7) = thisform.btnpdf boton_array(8) = thisform.btnPlantilla_Excel boton_array(9) = thisform.btnparam boton_array(10) = thisform.btnsalir thisform.reacomodar_botones(@boton_array) ancho_botones = 48 inter_botones = 4 numero_botones=0 xtabindex=200 for each cbtn in boton_array numero_botones = numero_botones +iif(cbtn.visible,1,0) next xancho_botones = numero_botones * ancho_botones + inter_botones * (numero_botones-1) xleft = int((thisform.width - xancho_botones )/2) xtop = thisform.height - ancho_botones - 3 private nit nit=0 for each cbtn in boton_array if cbtn.visible then cbtn.left = xleft + nit * (ancho_botones + inter_botones) cbtn.top = xtop cbtn.tabindex=xtabindex + nit + 1 nit=nit+1 endif next LOCAL xckAncho xckAncho = IIF(thisform.ckFecha.Visible,thisform.ckfecha.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible,thisform.keep.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible and thisform.ckFecha.Visible,10,0 ) xLeft=int (thisform.Width /2) - INT(xckAncho/2) thisform.keep.top = xtop - 20 thisform.ckfecha.Top = xtop - 20 thisform.ckfecha.LEft = xleft thisform.keep.left = xleft + thisform.ckfecha.width + 20 thisform.ckfecha.tabindex = xtabindex thisform.keep.tabindex = xtabindex+1 xtabindex=xtabindex+1 *!* if not thisform.imprimir_tabla_usar_viejo then *!* thisform.btntabla.picture = 'ACCESS_32.ICO' *!* thisform.btntabla.downpicture = 'ACCESS_32_H.ICO' *!* endif ENDPROC PROCEDURE param_agregar PARAMETERS xName AS STRING ,xData AS Variant ,xFechaLimite AS INTEGER , xPos AS INTEGER, xOmitir as Boolean IF xOmitir THEN *** Esto permite pasar parametros opciones depende del prt a usar. *** Por ejemplo, el parmetro xTotal solo se manda cuando xOpcional = (xdTip=1) RETURN .f. ENDIF SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xName")="L" AND TYPE("xData")="L" AND TYPE("xPos")="L" THEN THIS.param_count=0 STORE .F. TO THISFORM.param_data RETURN ENDIF xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.param_count = THIS.param_count + 1 xPos=THIS.param_count ENDIF IF TYPE("xData")="D" THEN xFechaLimite = Chk_Value(xFechaLimite,1,"N") xData=CR_ValidaFecha(xData,xFechaLimite) ENDIF IF xPos > ALEN(THISFORM.param_data,1) THEN DIMENSION THISFORM.param_data(xPos,ALEN(THISFORM.param_data,2)) ENDIF THISFORM.param_data(xPos,1)=xName THISFORM.param_data(xPos,2)=xData THISFORM.param_usar = .T. ENDPROC PROCEDURE campos_agregar PARAMETERS xField AS STRING ,xLabel AS String , xPos AS INTEGER, xTotal_Separa as Boolean , xTotal_General as Boolean, xOperacion as String, xFor as Object, xOper_Total as String, xIDU as String SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xField")="L" AND TYPE("xLabel")="L" AND TYPE("xPos")="L" THEN THIS.campos_count=0 STORE "" TO THISFORM.campos RETURN ENDIF xIDU=EVL(xIDU,SYS(2015)) xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.campos_count = THIS.campos_count + 1 xPos=THIS.campos_count ENDIF IF xPos > ALEN(THISFORM.campos,1) THEN DIMENSION THISFORM.campos(xPos,ALEN(THISFORM.campos,2)) ENDIF THISFORM.campos(xPos,1)=xField THISFORM.campos(xPos,2)=xLabel THISFORM.campos(xPos,3)=xTotal_Separa THISFORM.campos(xPos,4)=xTotal_General IF NOT EMPTY(xOperacion) THEN THISFORM.campos(xPos,5)=xOperacion ENDIF IF TYPE("xFor")="L" AND xFor THEN THISFORM.campos(xPos,6)=thisform.campos_formato ELSE THISFORM.campos(xPos,6)=xFor ENDIF IF NOT EMPTY(xOper_Total) THEN THISFORM.campos(xPos,7)=xOper_Total ENDIF THISFORM.campos(xPos,8)=xIDU RETURN xPos ENDPROC PROCEDURE validar_datos RETURN .t. ENDPROC PROCEDURE debug_time_iniciar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.T.,THIS.CAPTION) ENDIF ENDPROC PROCEDURE debug_time_finalizar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.F.) ENDIF ENDPROC PROCEDURE imprimir_xls_viejo * * 1) Presupone que se ha completado el arreglo campos[x,y] * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1,x2 =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") IF THIS.xls_autogenerar THEN THIS.gen_xls.archivo_temporal = THIS.archivotemporal THIS.gen_xls.generar RETURN ENDIF LOCAL z, aaa IF !USED(THISFORM.archivotemporal) USE (p_local+'\tmp\'+THISFORM.archivotemporal) IN 0 ENDIF SELECT (THISFORM.archivotemporal) IF RECCOUNT(THISFORM.archivotemporal)=0 THEN =Mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (THISFORM.archivotemporal) USE RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF ALLTRIM(THISFORM.planillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_"+ALLTRIM(THISFORM.planillaxls)+".xls") xplanilla=ALLTRIM(THISFORM.planillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(THISFORM.archivotemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF LOCAL hayerror hayerror = .F. xXLS_Archivo=oDeyFunc.Get_Path(10)+THISFORM.xls_archivo DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 1 ENDCASE IF THISFORM.xls_archivo_preguntar xXLS_Archivo=PUTFILE("Archivo de Excel",xXLS_Archivo,"XLS") IF EMPTY(xXLS_Archivo) THEN *hayerror = .t. xPlanilla_Final=oDeyFunc.Get_Path(5)+THISFORM.xls_archivo ENDIF ENDIF oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Creando planilla de Excel..." LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. DO WHILE NOT hayerror IF !FILE(xplanilla) =MESSAGEBOX('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xXLS_Archivo) IF hayerror =MESSAGEBOX('No se puede crear '+xXLS_Archivo+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') EXIT ENDIF LOCAL x TRY x=GETOBJECT(,'excel.application') CATCH hayerror=.T. ENDTRY IF hayerror hayerror=.F. TRY x=CREATEOBJECT('excel.application') CATCH hayerror=.T. ENDTRY ENDIF IF hayerror =MESSAGEBOX('No se puede abrir la aplicacin Excel') EXIT ENDIF TRY x.workbooks.OPEN(xXLS_Archivo) CATCH hayerror=.T. ENDTRY IF hayerror =MESSAGEBOX('No se puede abrir el archivo '+xXLS_Archivo) x.QUIT RELEASE x EXIT ENDIF ON ERROR &onerr x.VISIBLE= .F. xlibros=x.workbooks.COUNT ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW *!* x.workbooks(xlibros).windows(1).visible=.f. x.workbooks(xlibros).sheets(xotra_planilla).SELECT x.workbooks(xlibros).sheets(xotra_planilla).RANGE("A3").COPY * * Coloca el encabezamiento en la planilla * oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Procesando el encabezamiento..." z=1 DO WHILE NOT EMPTY(THISFORM.campos[z,1]) xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).SELECT x.ActiveSheet.Paste x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).VALUE = THISFORM.campos[z,2] z=z+1 ENDDO xmaxfields=z-1 IF xmaxfields>0 * * Crea la planilla auxiliar * SELE (THISFORM.archivotemporal) xplanilla_aux = RIGHT(SYS(2015),8) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(THISFORM.campos[z,1]) IF zALEN(xCamposArr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 * * Crea la planilla auxiliar * SELE (xAlias) xPlanilla_Aux =NewFile_Local_TMP()+".dbf" xTMPPath=SUBSTR(xPlanilla_Aux,1,RAT("\",xPlanilla_Aux)) xTMPFile=SUBSTR(xPlanilla_Aux,RAT("\",xPlanilla_Aux)+1) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(xCamposArr[z,1]) IF z ALEN(THISFORM.formula_data,1) THEN DIMENSION THISFORM.formula_data(xPos,ALEN(THISFORM.formula_data,2)) ENDIF THISFORM.formula_data(xPos,1)=xName THISFORM.formula_data(xPos,2)=xFormula THISFORM.formula_usar = .T. ENDPROC PROCEDURE imprimir_xls_externo *=sys_m("xls externo") LOCAL oExp as exportaciones of imp_exp LOCAL xpar * Creacion de los objetos a realizar la exportacion oExp=NEWOBJECT("exportaciones", "imp_exp") oExp.archivo_salida_renombra = thisform.archivo_Salida_renombra IF This.xls_coll_param.count=0 THEN xPar=thisform.xls_coll_getnew() This.xls_coll_param.Add(xPar) ENDIF FOR EACH xPar IN This.xls_coll_param oEXP.parametros_coll.ADD(xPar) NEXT oEXP.exportar_xls_coll() this.xls_coll_param = CREATEOBJECT("Collection") RETURN .t. ENDPROC PROCEDURE xls_coll_getnew LPARAMETERS xNo_leer_Crystal LOCAL xPar SET CLASSLIB TO "Clases" xPar=CREATEOBJECT("Exportaciones_parametros") IF NOT xNo_leer_Crystal THEN xPar.do_Leer_Crystal(This) ENDIF RETURN xPar ENDPROC PROCEDURE imprimir_pdf lparameters xnopreguntar, xarchivo if !isnull(thisform.crreporte) if thisform.xpdfprompt and not xnopreguntar then thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 oapi = newobject("WWAPI", "IP\WWAPI.PRG") xarchivo=oapi.readregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name) xarchivo=iif(isnull(xarchivo),"", xarchivo) xarchivo=putfile("Archivo PDF:",justpath(xarchivo), "PDF") if not empty(xarchivo) then thisform.crreporte.exportoptions.diskfilename=xarchivo try oapi = newobject("WWAPI", "IP\WWAPI.PRG") oapi.writeregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name,justpath(xarchivo), .t.) catch endtry try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif **=thisform.crreporte.ExportOptions.PromptForExportOptions() ELSE xArchivo=EVL(xarchivo, EVL(thisform.xpdfarchivo, oDeyFunc.NewFile_Local_TMP(,"PDF"))) thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 thisform.crreporte.exportoptions.diskfilename=xArchivo try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif endif ENDPROC PROCEDURE reacomodar_botones LPARAMETERS boton_array ENDPROC PROCEDURE xls_a_usar_pedir LPARAMETERS oColl oColl.Add(oDeyFunc.Get_path(5)+"reporte.xls") ENDPROC PROCEDURE xls_a_usar_revisar local oxls, oex, ocoll, owb *=sys_m("USAR A REVISAR") ocoll= newobject("Collection") try oexc=getobject(,'excel.application') catch to oex endtry =thisform.xls_a_usar_pedir (@ocoll) if not type("oEXC") = "O" or not type("oColl") = "O" then return .t. endif try owb=oexc.workbooks catch endtry if typeo(owb) then for each xtxt in ocoll for each owb in oexc.workbooks if upper(xtxt)=upper(owb.fullname) then =mensaje("La planilla se encuentra en abierta !!!"+ chr(13)+; "Cierrela antes de intentar generarla nuevamente."+chr(13)+chr(13)+xtxt) if oexc.visible=.f. then oexc.visible=.t. endif return .f. endif next next endif ENDPROC PROCEDURE get_shortpath lparameters xFile LOCAL xFinal IF p_emp="SCH" AND this.chk_long.Value THEN IF p_dev THEN mensaje(xFile) ENDIF RETURN xFile ENDIF local xLN, xpath xPath=space(256) xLN=0 Declare long GetShortPathName in kernel32 string lpszLongPath, string @lpszShortPath, long lBuffer xLN=GetShortPathName(xFile,@xpath,256) if xLN>0 then xFinal= ADDBS(JUSTPATH(left(xPath,xLN)))+JUSTFNAME(xFile) ELSE xFinal=xFile endif *!* IF p_dev THEN *!* mensaje(xFile) *!* ENDIF RETURN xFinal ENDPROC PROCEDURE ejecutar_sql LPARAMETERS xNO_RELEASE, xdestino LOCAL xarchivo thisform.mantener=.T. thisform.preprocesar_impresion() =oEstado.Set_and_Show("Iniciando datos...",1,4) thisform.procesar_impresion() thisform.postprocesar_impresion() *=sys_m("Definiciones") Thisform.exportar_definicion_columnas() xarchivo=thisform.Archivo[1] if type("xdestino")="C" if !(".DBF"$xdestino) xdestino=alltrim(xdestino)+".dbf" endif try copy file (xarchivo) to (xdestino) xarchivo=xdestino catch to oCopyxxx if p_dev mensaje("Destino invlido : "+xdestino) endif endtry endif IF NOT xNO_Release THEN thisform.RELEASE IF TYPE("oEstado")="O" AND TYPEO(oEstado) THEN =oEstado.release oEstado=.f. ENDIF ENDIF RETURN xarchivo ENDPROC PROCEDURE ejecutar_externo LPARAMETERS xTipo_Reporte AS INTEGER ,xNO_RELEASE AS Boolean , xTabla AS STRING, xMantener AS Boolean, xAbrir AS INTEGER LOCAL xReturn *xAbrir XLS:0=Consulta si abre en el EXCEL * 1=Abre directamente * 2=No abre ni consulta, solo lo genera * 3=Lo genera y pregunta dnde lo guarda IF type("xabrir")#"N" THEN xAbrir=0 ENDIF *** Esto es importante para que se muestre el form de crystal!!! THISFORM.Mostrar_Externo=.T. THISFORM.mantener = xMantener xReturn=.T. DO CASE CASE xTipo_Reporte=0 && Solo Tabla obtiene la tabla xNO_RELEASE=.F. && Especifica si el form se cierre luego de ejecutar el reporte xTabla=THISFORM.Ejecutar_Sql(xNO_RELEASE) CASE xTipo_Reporte=1 && Crystal THISFORM.BtnVisualizar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=4 && Excel THIS.xls_abrir = xAbrir thisform.automatizado = .t. THISFORM.BtnExportar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=7 && PDF thisform.xpdfprompt = .f. thisform.btnpDF.Click CASE xTipo_Reporte=99 && Visualizar Form para tocar parmetros manualmente ENDCASE IF NOT (xNO_RELEASE) THEN THISFORM.RELEASE ENDIF RETURN xReturn ENDPROC PROCEDURE solo_salir_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF vNewVal THEN dimension boton_array(9) as object thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btntxt.Enabled = .f. thisform.btnvisualizar.Enabled = .f. thisform.btnimprimir.Enabled = .f. thisform.btntabla.Enabled = .f. thisform.btngrilla.Enabled = .f. thisform.btnexportar.Enabled = .f. thisform.btnpdf.Enabled = .f. *thisform.btnparam thisform.btnsalir.Enabled = .t. ENDIF THIS.Solo_Salir = m.vNewVal ENDPROC PROCEDURE xls_columna LPARAMETERS xColumna LOCAL xIni, xLap, xFin, xSTR, xCol xIni=64 xLap=26 xFin=xIni+xLap xSTR="" xCur=0 *xColumna=229 xCol=xColumna IF xCol>xLap THEN xSTR=CHR(xIni+INT(xCol/xLap)) ENDIF IF MOD(xCol,xLap)>0 THEN xSTR=xSTR+CHR(xIni+MOD(xCol,xLap)) ENDIF RETURN xSTR ENDPROC PROCEDURE grabar_ejecucion LOCAL oParam AS guardar_parametros_crystal OF form_controles.vcx LOCAL oEx TRY oParam=THISFORM.parametros THISFORM.parametros.par_Leer IF NOT EMPTY(oParam.rep_id) THEN SELECT 0 USE p_system+"\rptparam" ALIAS tmprptparam AGAIN INSERT INTO tmprptparam VALUES (; oParam.rep_id,; pub_index,; p_codemp,; DATETIME(),; "Ejecucin tipo "+ALLTRIM(STR(THISFORM.tipo_reporte)),; oParam.val_textos,; SYS(2015), 1,2,THISFORM.tipo_reporte) SELECT tmprptparam USE ENDIF CATCH TO oEx ENDTRY IF USED("tmprptparam") SELECT tmprptparam USE ENDIF ENDPROC PROCEDURE estado_avance LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Avance(xTexto) ENDPROC PROCEDURE estado_texto LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Texto=xTexto ENDPROC PROCEDURE estado_visible LPARAMETERS xVisible IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Visible=xVisible ENDPROC PROCEDURE imprimir_xls_largos LPARAMETERS xAlias, xEXCEL, xPlanilla_Aux, xFields, xmaxfields LOCAL x1, x2 x1 = 64+ IIF(INT(xmaxfields/26)=0,0,INT(xmaxfields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xmaxfields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 LOCAL xRecCopiado, xPlan, xRecActual, xRecFalta, xDisplayAlerts LOCAL xPath, xLibroBase, xLibroMV, oEx, xCL1, xCL2 xPath=oDeyFunc.NewFile_Local_TMP() xDisplayAlerts = xEXCEL.DisplayAlerts xEXCEL.DisplayAlerts= .F. xVisible=xEXCEL.VISIBLE xTop=xEXCEL.TOP xEXCEL.VISIBLE=.F. TRY xEXCEL.TOP=5000 CATCH TO oEx ENDTRY SELECT (xAlias) xRecActual=0 xPlan=0 xRecFalta = RECCOUNT() DO WHILE xRecFalta>0 xPlan = xPlan + 1 COPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 xRecCopiado = _TALLY xRecFalta = xRecFalta - xRecCopiado xRecActual = xRecActual + xRecCopiado ENDDO xEXCEL.workbooks.ADD xLibroBase = xEXCEL.workbooks.COUNT xRecActual = 1 FOR nIt=1 TO xPlan xEXCEL.workbooks.OPEN(xPath+"_"+ALLTRIM(STR(nIt))) xLibroMV = xEXCEL.workbooks.COUNT xEXCEL.workbooks(xLibroMV).sheets(1).RANGE( "A"+ALLTRIM(STR(IIF(nIt=1,1,2)))+":"+xrango+ALLTRIM(STR(IIF(nIt=xPlan,xRecCopiado,65000)+1))).COPY * xEXCEL.VISIBLE=.T. xCL1=xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1) xCL1.PasteSpecial() *!* *!* xEXCEL.workbooks(xLibroBase).ACTIVATE *!* xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).SELECT * xEXCEL.VISIBLE=.F. * xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).Paste xRecActual = xRecActual + 65000 *!* xEXCEL.VISIBLE=.T. *!* xEXCEL.workbooks(xLibroMV).ACTIVATE *!* xEXCEL.workbooks(xLibroMV).sheets(1).Cells(1,1).SELECT *!* xEXCEL.VISIBLE=.F. xEXCEL.workbooks(xLibroMV).CLOSE ENDFOR xEXCEL.workbooks(xLibroBase).SAVEAS(xPlanilla_Aux) xEXCEL.workbooks(xLibroBase).CLOSE xEXCEL.DisplayAlerts = xDisplayAlerts xTop=xEXCEL.TOP TRY xEXCEL.TOP=xTop CATCH ENDTRY xEXCEL.VISIBLE=xVisible ENDPROC PROCEDURE agregar_caption LPARAMETERS xTexto IF p_dev THEN Thisform.Caption = Thisform.Caption + xTexto ENDIF  ENDPROC PROCEDURE agregar_log_ejecucion LPARAMETERS xTexto Thisform.log_ejecucion = Thisform.log_ejecucion + xTexto ENDPROC PROCEDURE abrir_pdf LPARAMETERS xArchivo DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",JustFName(xArchivo),"", JUSTPATH(xArchivo), 0) ENDPROC PROCEDURE sleep LPARAMETERS lnmillisecs lnmillisecs = IIF(TYPE("lnMillisecs")="N", lnmillisecs, 0) DECLARE Sleep IN WIN32API INTEGER = sleep(lnmillisecs) return ENDPROC PROCEDURE asignar_impresora LPARAMETERS xImpresora LOCAL xPaperOrientation, xPaperSize, xPaperSource, xPrinterDuplex xImpresora = EVL(xImpresora, SET("PRINT",2)) xPaperOrientation= THISFORM.CRReporte.PaperOrientation xPaperSize = THISFORM.CRReporte.PaperSize xPaperSource = THISFORM.CRReporte.PaperSource xPrinterDuplex = THISFORM.CRReporte.PrinterDuplex THISFORM.CRReporte.SelectPrinter ("",xImpresora,"") THISFORM.CRReporte.PaperOrientation = xPaperOrientation THISFORM.CRReporte.PaperSize = xPaperSize THISFORM.CRReporte.PaperSource = xPaperSource THISFORM.CRReporte.PrinterDuplex = xPrinterDuplex ENDPROC PROCEDURE cerrar_visualizador *=sys_mostrar_screen("cerrar",.t.) thisform.crvista.release thisform.crreporte=.f. THISFORM.CRAplicacion=.f. *!* THISFORM.CRAplicacion *!* THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) *!* THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; ENDPROC PROCEDURE formato_rango_fechas lparameters xvariable, xseparador, xtxt, xd, xh xseparador=evl(xseparador, " - ") local xres xres="" if !empty(xd) or xh#date(2099,12,31) if empty(xd) xres = iif(!empty(xvariable), xseparador, "")+xtxt+": Hasta "+dtoc(xh) else if xh=date(2099,12,31) xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": Desde "+dtoc(xd) else xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": "+dtoc(xd)+" al "+dtoc(xh) endif endif endif return xres ENDPROC PROCEDURE seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF PRIVATE xCod_Plantilla , xRes IF p_xls_mostrar_seleccion_modelos#0 AND SEEK(THIS.id_formulario_evaluado, "plantillas_xls","ID_Form") THEN xCod_Plantilla =0 DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original, .t. TO xRes *=sys_m("vuelta") IF xRes AND xCod_Plantilla #0 THEN LOCAL opar as Exportaciones_Parametros Of IMP_EXP.VCx oPar=NEWOBJECT("Exportaciones_Parametros","IMP_EXP.VCX") oPar.plantilla_leer (xCod_Plantilla) oPar.do_aplicar_crystal (Thisform) endif ENDIF ENDPROC PROCEDURE pre_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF oForm.campos_parametros.Do_Leer_Crystal(oForm) oForm.campos_parametros_original.Clonarse(oForm.campos_parametros) ENDPROC PROCEDURE id_formulario_evaluado_access *To do: Modify this routine for the Access method RETURN THIS.id_formulario ENDPROC PROCEDURE evaluar_id_formulario RETURN thisform.id_formulario ENDPROC PROCEDURE id_formulario_access *To do: Modify this routine for the Access method IF EMPTY(this.id_formulario) THEN This.id_formulario = thisform.Name ENDIF RETURN THIS.id_formulario ENDPROC PROCEDURE pos_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF *=sys_m("Pos") DIMENSION this.campos(255,ALEN(this.campos,2)) ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE exportar_definicion_columnas **** OJO, est pensado para la clase en forma genrica. ***************************************************** **** Puede haber reportes que necesiten algo especfico. ***************************************************** LOCAL oLogs AS loguear OF sys_log.prg LOCAL oPar, nIt, nIt2 IF !EMPTY(pi_XLS_Exportar_Campos) THEN oLogs=NEWOBJECT("loguear", "sys_log.prg","",JUSTPATH(pi_XLS_Exportar_Campos), JUSTFNAME(pi_XLS_Exportar_Campos),, , , , -1) TRY THIS.inicializar_columnas IF THIS.imprimir_xls_usar_externo THEN THIS.inicializar_columnas_externo ENDIF IF NOT THIS.imprimir_xls_usar_externo THEN oLogs.LOG(PADR("Campo",20)+"Nombre",.T.) FOR nIt=1 TO ALEN(THISFORM.campos,1) oLogs.LOG(PADR(THISFORM.campos(nIt,1),20)+THISFORM.campos(nIt,2)) NEXT ELSE FOR nIt2=1 TO THIS.xls_coll_param.count oPar=THIS.xls_coll_param.Item(nIt2) FOR nIt=1 TO ALEN(oPar.ex_xls_campos,1) oLogs.LOG(PADR(oPar.ex_xls_campos(nIt,1),20)+oPar.ex_xls_campos(nIt,2)) NEXT NEXT ENDIF CATCH TO oEx oLogs.Log_Excepcion(oEx) ENDTRY ENDIF ENDPROC PROCEDURE Show LPARAMETERS nStyle, xTipo_Reporte IF EMPTY(nStyle) THEN nStyle=0 ENDIF IF nStyle=3 THEN THISFORM.tipo_reporte = xTipo_Reporte THISFORM.tmrclick.ENABLED=.T. = DODEFAULT(1) THIS.VISIBLE = .F. ELSE RETURN DODEFAULT(nStyle) ENDIF ENDPROC PROCEDURE Unload THISFORM.delete_files *!* local z *!* for z=1 to alen(thisform.archivo) *!* if thisform.archivo[z]#"" *!* delete file (thisform.archivo[z]) *!* else *!* exit *!* endif *!* endfor ENDPROC PROCEDURE Init STORE "" TO THISFORM.files_to_delete THISFORM.MINHEIGHT = THISFORM.HEIGHT THISFORM.MINWIDTH = THISFORM.WIDTH THISFORM.acomodar_botones() THIS.mantener=.F. try local xcaption xcaption=this.caption z=1 do while z<=len(xcaption) if !isalpha(substr(xcaption,z,1)) xcaption=stuff(xcaption,z,1,"") else z=z+1 endif enddo this.name=xcaption catch to oNada ENDTRY IF thisform.xls_archivo_automatico THEN thisform.xls_archivo = this.Caption +".xls" ENDIF TRY thisform.osql = oSQLCon CATCH ENDTRY && thisform.tipo_reporte && Especifica el tipo de reporte solicitado && 1 Crystal or VFP Preview && 2 Crystal or VFP Print && 3 Tabla Exportar && 4 Excel && 5 TXT && 6 Tabla Grilla && 7 PDF && 8 SQL o MySQL (Genera primero la tabla) ENDPROC PROCEDURE Load *!* if _screen.activeform.datasessionid=this.datasessionid *!* =mensaje('El reporte no tiene su propia sesin de datos !!!'+chr(13)+'No se puede continuar.') *!* return .f. *!* endif =sets() thisform.campos_formato = NEWOBJECT("Exportaciones_Parametros_Formato","IMP_EXP") thisform.campos_formato .num_format="###,###,##0.00" Thisform.campos_parametros= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") Thisform.campos_parametros_original= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.xdact='N' THISFORM.xdage=SPACE(8) THISFORM.xhage=SPACE(8) THISFORM.xdasi = 'T' && Tipo de asientos THISFORM.xdatr=SPACE(3) THISFORM.xhatr=SPACE(3) THISFORM.xdbie=SPACE(8) THISFORM.xhbie=SPACE(8) THISFORM.xdbon=.F. && Solo las bonificaciones THISFORM.xdbul=SPACE(3) THISFORM.xhbul=SPACE(3) THISFORM.xdcat=0 THISFORM.xhcat=0 THISFORM.xdcau = ' ' && Causa THISFORM.xdclase=1 && Clase = Tipo THISFORM.xdcli=SPACE(6) THISFORM.xhcli=SPACE(6) THISFORM.xdcod = SPACE(6) && Cdigo (6 chars) THISFORM.xdcen=SPACE(6) THISFORM.xhcen=SPACE(6) THISFORM.xdcfc=0 && Centro de Facturacin THISFORM.xhcfc=0 && Centro de Facturacin THISFORM.xdcostos=0 && Costos THISFORM.xdcos=SPACE(6) THISFORM.xhcos=SPACE(6) THISFORM.xdctr=.F. && Para contribucin THISFORM.xdcue=SPACE(9) THISFORM.xhcue=SPACE(9) THISFORM.xddat=.T. && Slo los que tienen datos THISFORM.xddec=0 && Decimales THISFORM.xddiv = 'N' && Con divisin THISFORM.xddep=SPACE(8) THISFORM.xhdep=SPACE(8) THISFORM.xddsc=0 THISFORM.xddse='N' THISFORM.xdfcs=DATE() && Fecha para costos THISFORM.xdfec = {} THISFORM.xhfec = {^2099-12-31} THISFORM.xdfec1 = {} THISFORM.xhfec1 = {^2099-12-31} THISFORM.xdfle=SPACE(6) THISFORM.xhfle=SPACE(6) THISFORM.xdfor=SPACE(250) THISFORM.xdgru=0 THISFORM.xhgru=0 THISFORM.xdsubgru=0 THISFORM.xhsubgru=0 THISFORM.xdimp = 0 && Importacin THISFORM.xhimp = 0 && Importacin THISFORM.xdlin=0 THISFORM.xhlin=0 THISFORM.xdlis=0 THISFORM.xhlis=0 THISFORM.xdlva=0 THISFORM.xdmon = 0 && Moneda THISFORM.xdmot = 0 && Motivo Contable THISFORM.xhmot = 0 && Motivo Contable THISFORM.xdmov='S' && Solo las que tuvieron movimientos THISFORM.xdnot='N' THISFORM.xdnum = 'S' && Orden Alfanumrico/Numrico THISFORM.xdord=1 THISFORM.xdpai=0 THISFORM.xdpro=SPACE(6) THISFORM.xhpro=SPACE(6) THISFORM.xdprv=' ' THISFORM.xdrem = .F. && Incluye remitos THISFORM.xdres = ' ' && Completo/Resumen THISFORM.xdrsm = 1 && 1- Sin Resumen / 2- Con Resumen Final / 3- Solo Resumen THISFORM.xdsal='N' THISFORM.xdscd = .F. && Solo los codificados THISFORM.xdsce = 0 && Subcentro THISFORM.xhsce = 0 && Subcentro THISFORM.xdsep=1 THISFORM.xdsgr=0 && Subgrupo THISFORM.xhsgr=0 && Subgrupo THISFORM.xdspg=.F. && Saltos de Pgina THISFORM.xdstk='S' THISFORM.xdsub='S' THISFORM.xdsuc=0 && Sucursal THISFORM.xhsuc=0 && Sucursal THISFORM.xdser=oLot.data_codigo_vacio THISFORM.xdtar=1 && Tipo de Articulos (PT,MP...) 1=Todos (Ajustar pues tipo_art=1=MT !!!) THISFORM.xdtcp = ' ' && Cliente/Proveedor THISFORM.xdtip=1 && Tipo de Listado THISFORM.xdtot='N' && Totalizado THISFORM.xdtva=1 && Tipo de Valorizacin : 1=Sin Valorizar, 2=Costos, 3=Listas de precios THISFORM.xdult = {} THISFORM.xduni = 1 && Unidad (primaria/secundaria) THISFORM.xdval = 0 THISFORM.xdxba = .T. && Con detalle de bultos y atributos THISFORM.xdxcc = 'N' && Por centros de costos THISFORM.xdxcp = 'N' && Por cliente/proveedor THISFORM.xdzon=0 THISFORM.xhzon=0 ******************* Generales ******************* THISFORM.xdnum1 = 0 THISFORM.xhnum1 = 0 THISFORM.xdnum2 = 0 THISFORM.xhnum2 = 0 THISFORM.xdnum3 = 0 THISFORM.xhnum3 = 0 THISFORM.xdnum4 = 0 THISFORM.xhnum4 = 0 THISFORM.xdnum5 = 0 THISFORM.xhnum5 = 0 THISFORM.xdlog1 = .F. THISFORM.xhlog1 = .F. THISFORM.xdlog2 = .F. THISFORM.xhlog2 = .F. THISFORM.xdlog3 = .F. THISFORM.xhlog3 = .F. THISFORM.xdlog4 = .F. THISFORM.xhlog4 = .F. THISFORM.xdlog5 = .F. THISFORM.xhlog5 = .F. THISFORM.xdlog6 = .F. THISFORM.xhlog6 = .F. THISFORM.xdlog7 = .F. THISFORM.xhlog7 = .F. THISFORM.xdlog8 = .F. THISFORM.xhlog8 = .F. THISFORM.xdlog9 = .F. THISFORM.xhlog9 = .F. THISFORM.xdlog10 = .F. THISFORM.xhlog10 = .F. thisform.asignar_color () ENDPROC PROCEDURE Resize =THISFORM.acomodar_botones () thisform.chk_long.Top = thisform.Height - thisform.chk_long.Height - 10 ENDPROC PROCEDURE Destroy if this.DataSession=2 * =sys_mostrar_screen("Suspendo?", .t.) * La ejecuto varias veces por si hay ms de una DB close databases close databases close databases * Si no quedan DBs, elimina las tablas libres de la DB dimension atables(1) if aused("atables")>0 local z for z=1 to alen("atables",1) select (atables(z,1)) use endfor endif endif =this.campos_parametros.Dispose() this.campos_parametros=.f. dodefault() ENDPROC formformPixelscrystalDataSession = 2 Height = 101 Width = 566 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "" Closable = .F. MaxButton = .F. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 WindowState = 0 arbol = .F. archivoreporte = crreporte = nombregrupo = codigogrupo = descripciongrupo = ordengrupos = crdescripciongrupo = titulo1 = titulo2 = archivotemporal = xdbul = o planillaxls = xdnum1 = 0 xdnum2 = 0 xdnum3 = 0 xdnum4 = 0 xdnum5 = 0 xhnum1 = 0 xhnum2 = 0 xhnum3 = 0 xhnum4 = 0 xhnum5 = 0 xhlog10 = .F. fecha = .T. hlpidu = (Space(10)) archivotexto = ('') param_count = 0 campos_count = 0 xls_totalizar = .F. xls_totalizar_formato = ('###,###,##0.00') xls_number_format = ('') tipo_reporte = 0 campos_separa = ('') campos_encabezado = ('') campos_titulo = ('') campos_orden = ('') planillamdb = param_objetos_usar = .T. xhfec1 = (date(2099,12,31)) formula_count = 0 xls_abrir = 0 xdnum6 = 0 xhnum6 = 0 xdtot_fin = .T. xdtot_sep = .T. filtro_parametro = ('Mostrar_Texto') xdfec2 = {} mostrar_externo = .F. manter_oestado = .F. exportacion = .F. xls_archivo = ("Reporte.xls") xls_archivo_automatico = .T. xls_archivo_preguntar = .T. xhsubgru = .F. xdsubgru = .F. xdsprgru = 0 xhsprgru = 0 cr_showtop = .F. xfecha_reporte = .F. solo_salir = .F. campos_formato = .F. xpdfprompt = .T. xpdfarchivo = .F. xdtipo_art = 0 ayuda_web = ("") xhfec2 = (date(2099,12,31)) xdnum7 = (0) xhnum7 = (0) crversion = ("") crystal_tamao = -1 document_id = ("") log_ejecucion = ("") xdnum8 = (0) xhnum9 = (0) xhnum8 = (0) xdconsolidado = 1 titulo1_parametro = ("") titulo2_parametro = ("") oestado = .F. sininterfaz = .F. osql = .F. archivo_salida_renombra = .T. log_path = ('') xhmar = (0) xdmar = (0) campos_parametros = .F. campos_parametros_original = .F. id_formulario = (Space(50)) id_formulario_evaluado = .F. plantillas_xls_habilitado = (.t.) id_formulario_ultimo = ("") automatizado = .F. version_reporte = 0 Name = "crystal" \ PROCEDURE file_to_delete PARAMETERS xfile *=sys_mostrar_screen("Suspendo?", .t.) FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])=ALLTRIM(xfile) EXIT ELSE IF ALLTRIM(THISFORM.files_to_delete[z])="" TRY THISFORM.files_to_delete[z]=ALLTRIM(xfile) CATCH TO oCatch ENDTRY EXIT ENDIF ENDIF ENDFOR RETURN ENDPROC PROCEDURE delete_files FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])#"" .AND. ; !(THISFORM.archivotemporal$THISFORM.files_to_delete[z] .AND. THISFORM.mantener) ON ERROR aaaa=1 DELETE FILE (THISFORM.files_to_delete[z]) ON ERROR &onerr ENDIF ENDFOR RETURN ENDPROC PROCEDURE imprimir_crystal * * ximpresion = .t. && imprime directamente * * * Tipo Reporte = 7 PDF - Solo genera el objeto visor pero no lo muestra. * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THISFORM.CRAplicacion = NULL THISFORM.CRReporte = NULL THISFORM.CRVista = NULL *=sys_mostrar_Screen("Suspendo?", .t.) LOCAL xerror, xMess, oEx AS EXCEPTION xerror=0 *!* ON ERROR xerror=1 THISFORM.estado_avance ('Iniciando servidor de automatizacin...') IF .F. TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") THISFORM.crversion ="CrystalRuntime.Application.11" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") THISFORM.crversion ="CrystalRuntime.Application.10" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") THISFORM.crversion ="CrystalRuntime.Application.8.0" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDTRY ENDTRY ENDTRY ELSE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDIF IF TYPE("THISFORM.CRAplicacion")#"O" THEN =MESSAGEBOX('1 - El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+xMess+")") ON ERROR xerror=2 ELSE THISFORM.estado_avance ('Abriendo reporte...') * A partir de ahora no hace falta inicializar THISFORM.archivoreporte con texto terminado en .rpt, la extensin * se colocar aqu en caso de que no la tenga. Adems se evaluar la existencia de la terminacin _XXX donde XXX * corresponde al cdigo de la empresa. Si existe el reporte xxxxxxx_XXX.rpt se tomar ese reporte, sino el normal. * Lo limpio por si acaso THISFORM.archivoreporte=ALLTRIM(THISFORM.archivoreporte) * Elimino la extensin .RPT si existe IF UPPER(RIGHT(THISFORM.archivoreporte,4))=".RPT" THISFORM.archivoreporte=STUFF(THISFORM.archivoreporte, LEN(THISFORM.archivoreporte)-3, 4, "") ENDIF * Si existe el reporte de la empresa, modifico lo tomo, sino tomo el genrico IF FILE(THISFORM.archivoreporte+"_"+p_emp+".RPT") THISFORM.archivoreporte=THISFORM.archivoreporte+"_"+p_emp+".RPT" ELSE THISFORM.archivoreporte=THISFORM.archivoreporte+".RPT" ENDIF IF FILE(THISFORM.archivoreporte) THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) =ADDPROPERTY(THISFORM.CRReporte, "archivoreporte", ALLTRIM(THISFORM.archivoreporte)) * =sys_mostrar_Screen("crystal",.t.) THISFORM.agregar_log_ejecucion( "(prn1: "+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") IF p_prn_setear_default=1 THEN Thisform.asignar_impresora () THISFORM.agregar_log_ejecucion( "(prn2: "+SET("PRINT",2)+":"+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") ENDIF THISFORM.agregar_log_ejecucion( "(z0:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")") DO CASE CASE THISFORM.crystal_tamao = 0 CASE THISFORM.crystal_tamao = -1 IF p_cry_tamao<>0 THEN THISFORM.CRReporte.PAPERSIZE = p_cry_tamao THISFORM.agregar_log_ejecucion( "(z1:" + ALLTRIM(STR(p_cry_tamao))+ ")" ) ENDIF OTHERWISE THISFORM.CRReporte.PAPERSIZE = THISFORM.crystal_tamao THISFORM.agregar_log_ejecucion( "(z2:" + ALLTRIM(STR(THISFORM.crystal_tamao))+ ")") ENDCASE THISFORM.agregar_log_ejecucion( "(z3:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")" ) IF xerror=0 ON ERROR &onerr THISFORM.estado_avance ('Configurando datos del reporte...') xok=.T. IF THISFORM.Tables_Use_Loc_ADV THEN *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THISFORM.Tables_Loc_ADV_Aplica() ELSE FOR z=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT IF TYPE("thisform.archivo[z]")="C" .AND. THISFORM.archivo[z]#"" IF FILE(THISFORM.archivo[z]) THISFORM.CRReporte.DATABASE.TABLES[z].location = THISFORM.get_shortpath( THISFORM.archivo[z]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.archivo[z])+" no existe !!!") xok=.F. EXIT ENDIF ELSE EXIT ENDIF ENDFOR ENDIF THISFORM.estado_texto('Pasando parmetros al reporte...') IF xok * * Configuracion General * THISFORM.CRReporte.ReportTitle = THISFORM.titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF THISFORM.dontchangenothing THEN ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+THISFORM.NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = THISFORM.CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = THISFORM.DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = THISFORM.CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = THISFORM.OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF THISFORM.Formula_usar THEN THISFORM.Formula_aplicar() ENDIF IF !THISFORM.fecha * Suprime la fecha y la hora FOR z=1 TO THISFORM.CRReporte.areas[2].sections[1].reportobjects.COUNT IF INLIST(THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].NAME,"PrintDate1","PrintDate2", "PrintTime1","PrintTime2") THEN THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF THISFORM.param_usar THEN THISFORM.param_aplicar ENDIF ***************************************************************************** ******* Paso el parametro de filtro si es posible ******************** LOCAL xMostrar_Filtro xMostrar_Filtro='' IF THIS.filtros_mostrar AND TYPE("this.filtros")="O" THEN TRY xMostrar_Filtro=THIS.filtros.Filtro_Obtener() CATCH TO oCatch ENDTRY ENDIF TRY THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).ClearCurrentValueAndRange THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).AddCurrentValue(xMostrar_Filtro) CATCH TO oCatch ENDTRY ********************************************************************** IF THISFORM.param_objetos_usar THEN THISFORM.param_objetos_aplicar ENDIF THISFORM.pre_impresion() IF ximpresion THISFORM.CRReporte.printersetup(0) THISFORM.estado_avance ('Imprimiendo...') THISFORM.CRReporte.PrintOut(.T.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oEstado)) THEN ELSE oEstado.VISIBLE=.F. ENDIF ELSE * Pongo esto porque a veces no encuentra "CrystalViewer_top" SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.estado_avance ('Configurando la visualizacin...') * No quiero ms el arbol visible THISFORM.arbol=.F. THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; THISFORM.archivo[1],; THISFORM.archivo[2],; THISFORM.archivo[3],; THISFORM.archivo[4],; THISFORM.archivo[5],; THISFORM.archivo[6],; THISFORM.archivo[7],; THISFORM.archivo[8],; THISFORM.archivo[9],; THISFORM.archivo[10],; 130, THISFORM.tipo_reporte = 7, thisform; ) THISFORM.estado_visible(.F.) IF THISFORM.tipo_reporte # 7 THEN IF THISFORM.Mostrar_Externo THEN THISFORM.CRVista.SHOW ELSE THISFORM.CRVista.VISIBLE=.T. ENDIF ELSE THISFORM.CRVista.VISIBLE=.F. ENDIF ENDIF *=sys_mostrar_screen("Suspendo?", .t.) * Antes de seguir espera que termine el renderizado, esto es para que se pueda ejecutar thisform.solo_impresion_despues() y no afecte los datos *!* set alternate to c:\sistema\temp.txt *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *!* do while thisform.crvista.crviEWER.isBusy *!* set alternate to c:\sistema\temp.txt additive *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *thisform.sleep(3000) *!* aaa_timer=seconds() *!* do while seconds()-aaa_timer<3 *!* enddo *!* *!* *!* enddo *!* set alternate off *!* set alternate to c:\sistem\temp.txt ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' no existe.') ENDIF ENDIF ON ERROR &onerr SET DEFAULT TO (P_SERVER) ENDPROC PROCEDURE imprimir_vfp PARAMETERS ximpresion * * ximpresion = .t. && imprime directamente * ENDPROC PROCEDURE imprimir_reporte_vfp PARAMETERS xreporte SET PROCEDURE TO listados ADDITIVE xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif IF ximpresion REPORT FORM (p_system+"\prt\"+xreporte) TO PRINTER PROMPT ELSE SET CLASSLIB TO clases o=CREATEOBJECT("reporte_ventana") o.CAPTION=THISFORM.titulo1 o.SHOW REPORT FORM (p_system+"\prt\"+xreporte) PREVIEW IN reporte_ventana ENDIF RELEASE o ENDPROC PROCEDURE imprimir_tabla_viejo * * Vieja rutina de exportar a DBF * IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif SELECT 0 IF "\TMP\"$UPPER(THISFORM.archivotemporal) USE (THISFORM.archivotemporal) ALIAS rptbrowse ELSE USE (p_local+'\tmp\'+THISFORM.archivotemporal) ALIAS rptbrowse ENDIF SET CLASSLIB TO clases ADDI SET PROCEDURE TO listados ADDITIVE o=CREATEOBJECT("reporte_ventana") o.SHOW *report form (p_system+"\prt\"+xreporte) preview in reporte_ventana IF TYPE("browsfields")="C" BROWSE &browsfields TITLE THISFORM.titulo1 ELSE BROWSE TITLE THISFORM.titulo1 ENDIF RELEASE o SELECT rptbrowse USE ENDPROC PROCEDURE imprimir_xls *!* xlCalculationAutomatic -4105 *!* xlCalculationManual -4135 * =sys_mostrar_screen("Suspendo?", .t.) * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 6 = Formato de Texto * y = 7 = Frmula de calculo en el TOTAL (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1, x2 SET PROCEDURE TO listados ADDITIVE =estado_ini(7) && Constantes de EXCEL xledgetop=8 xledgebottom=9 xlautomatic=-4105 xlcontinuous=1 xlthin=2 *=sys_mostrar_Screen("XLS Suspendo?", .t.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.T. ENDIF IF THISFORM.imprimir_xls_usar_viejo THEN *!* xres=THISFORM.imprimir_xls_viejo() *!* IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN *!* ELSE *!* oestado.VISIBLE=.F. *!* ENDIF *!* RETURN xres =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") THISFORM.imprimir_xls_usar_viejo = .F. ENDIF IF THISFORM.imprimir_xls_usar_externo THEN xres=THISFORM.imprimir_xls_externo () IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN xres ENDIF LOCAL z, aaa =ACOPY(THISFORM.campos,xcamposarr) ***Correccin para utilizar reportes del viejo formato y conteo de campos xcolcount=0 FOR nit=1 TO ALEN(xcamposarr,1) IF xcolcount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xcamposarr(nit,1)=="" THEN xcolcount = nit - 1 ENDIF ELSE xcolcount = nit - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xcamposarr(nit,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xcamposarr(nit,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xcamposarr(nit,5)='%SUMAR' ELSE IF xcamposarr(nit,5)=="" THEN xcamposarr(nit,5)="%SUMAR" ELSE xcamposarr(nit,5)=UPPER(xcamposarr(nit,5)) ENDIF ENDIF IF TYPE("xCamposArr(nIt,7)")#"C" THEN xcamposarr(nit,7)='%SUMAR' ELSE IF xcamposarr(nit,7)=="" THEN xcamposarr(nit,7)="%SUMAR" ELSE xcamposarr(nit,7)=UPPER(xcamposarr(nit,7)) ENDIF ENDIF xcamposarr(nit,10)="=0" NEXT xrecordcount=0 xplanillaxls=THISFORM.planillaxls xtemporal=THISFORM.archivotemporal xtabla=p_local+'\tmp\'+xtemporal xalias="Reportes" xorden = THISFORM.campos_orden xplanilla='' LOCAL hayerror hayerror = .F. xplanilla_final=odeyfunc.get_path(10)+THISFORM.xls_archivo * 0=Consulta si abre en el EXCEL, * 1=Abre directamente, * 2=No abre ni consulta, solo lo genera, * 3=Pregunta dnde lo guarda y solo genera (no lo abre) * 4=Pregunta dnde lo guarda y lo abre directamente * 5=Valor por defecto (Sin seleccionar) IF THIS.xls_abrir#2 && 12/06/2014 DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir ENDIF IF THIS.xls_abrir = 5 THEN *** No se seleccion nada. Anulada la ejecucin. IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 2 CASE THIS.xls_abrir = 4 THIS.xls_abrir = 1 ENDCASE LOCAL xnpath, xnfile, xnext, xidx, xnewf LOCAL owbt IF THISFORM.xls_archivo_preguntar THEN xplanilla_final=PUTFILE("Archivo de Excel",xplanilla_final,"XLS") IF EMPTY(xplanilla_final) THEN *hayerror = .t. xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo ENDIF ELSE xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo IF FILE(xplanilla_final) THEN xnpath = JUSTPATH(xplanilla_final) xnfile = JUSTSTEM(xplanilla_final) xnext = JUSTEXT(xplanilla_final) xidx = 1 DO WHILE .T. xnewf = xnpath+"\"+xnfile+"("+ALLTRIM(STR(xidx))+")."+xnext IF NOT FILE(xnewf) THEN xplanilla_final = xnewf EXIT ENDIF xidx = xidx + 1 IF xidx>99 THEN EXIT ENDIF ENDDO IF p_crystal_version>0 THEN THIS.xls_archivo = JUSTFNAME(xplanilla_final) ENDIF ENDIF ENDIF xplanilla_aux='' xsepfor=THISFORM.campos_separa xsepenc=THISFORM.campos_encabezado xtitulo=IIF(THISFORM.campos_titulo=='', THISFORM.CAPTION , THISFORM.campos_titulo ) xotra_planilla=1 xinirow=3 xinisep=3 LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. IF USED(xtabla) THEN SELECT (xtabla) USE ENDIF SELECT 0 USE (xtabla) ALIAS (xalias) IF RECCOUNT()=0 AND THIS.xls_abrir#2 && 12/06/2014 =mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF NOT xorden=='' THEN * INDEX ON &xOrden TAG REP_XLS ENDIF IF ALLTRIM(xplanillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_"+ALLTRIM(xplanillaxls)+".xls") xplanilla=ALLTRIM(xplanillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(xtemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF =sys_mostrar_screen("imporimir xls",THISFORM.suspender) =oestado.avance("Creando planilla de Excel...") DO WHILE NOT hayerror IF !FILE(xplanilla) THEN =mensaje('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xplanilla_final) IF hayerror =mensaje('No se puede crear '+xplanilla_final+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') x=GETOBJECT(,'excel.application') x.screenupdating = .T. APPLICATION.calculation = xlcalculationautomatic * x.VISIBLE=.T. EXIT ENDIF LOCAL x,Y *!* x=GETOBJECT(,'excel.application') *!* IF hayerror THEN *!* hayerror=.F. x=CREATEOBJECT("excel.application") =log_aut("","Por abrir") *!* ENDIF IF hayerror THEN =mensaje('No se puede abrir la aplicacin Excel') EXIT ENDIF PRIVATE owbfinal =log_aut("","Version: "+x.Version) IF FILE(xplanilla_final) THEN =log_aut("","Existe") TRY owbfinal=x.workbooks.OPEN(xplanilla_final) CATCH TO oExAut =log_aut("","Error: "+oExAut.MESSAGE) TRY =log_aut("","Borrando planilla inicial") DELETE FILE (xplanilla_final) =log_aut("","Agregando planilla vacia") owbfinal=x.workbooks.ADD() =log_aut("","Grabando planilla") TRY =log_aut("","name: "+owbfinal.name) CATCH TO oExAut =log_aut("","Error name: "+oExAut.MESSAGE) ENDTRY x.ActiveWorkbook.SAVEAS(xplanilla_final,56) =log_aut("","Grabada") CATCH TO oExAut =log_aut("","Error ReadOnly: "+oExAut.MESSAGE) hayerror =.T. ENDTRY ENDTRY ELSE =log_aut("","No Existe!") ENDIF IF hayerror THEN =mensaje('No se puede abrir el archivo '+xplanilla_final) x.QUIT RELEASE x EXIT ENDIF =log_aut("","Abierto") ON ERROR &onerr xlibros=x.workbooks.COUNT IF RECCOUNT(xalias)>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* x.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* x.workbooks(xlibros).Close *!* x.workbooks.OPEN(xPlanilla_Final) xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") owbfinal.SAVEAS(xplanilla_final,51) owbfinal.CLOSE owbfinal=x.workbooks.OPEN(xplanilla_final) DELETE FILE (FORCEEXT(xplanilla_final,"xls")) ENDIF x.screenupdating = .F. * x.VISIBLE=.F. xactsheet=owbfinal.sheets(xotra_planilla) ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW **x.workbooks(xlibros).windows(1).visible=.f. * * Coloca el encabezamiento en la planilla * xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,1).COPY =oestado.avance("Procesando el encabezamiento...") z=1 DO WHILE ALLTRIM(xcamposarr[z,1])#"" xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,z).SELECT xactsheet.paste xactsheet.cells(3,z).VALUE = xcamposarr[z,2] z=z+1 IF z>ALEN(xcamposarr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 IF xmaxfields>0 THEN =sys_mostrar_screen("auxiliar",THISFORM.suspender ) * * Crea la planilla auxiliar * SELE (xalias) xplanilla_aux =newfile_local_tmp()+".xls" xfields = "" LOCAL xTieneMemo, xNCampo, xIDCampo xTieneMemo= .F. LOCAL ARRAY TMPaMemo(1) =AFIELDS("TMPaMemo",xalias) *=sys_m("Validar campos") SELE (xalias) GO TOP xcampos_inexistentes="" FOR z=1 TO xmaxfields TRY aaa=EVALUATE(ALLTRIM(xcamposarr[z,1])) CATCH xcampos_inexistentes = xcampos_inexistentes + IIF(!EMPTY(xcampos_inexistentes), ", ","") + ALLTRIM(xcamposarr[z,1]) ENDTRY xfields = xfields + ALLTRIM(xcamposarr[z,1]) IF z1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado x.activeworkbook.CLOSE x.displayalerts = .T. x.screenupdating = .T. x.displayalerts=.T. x.WINDOWSTATE= -4137 && xlMaximized x.VISIBLE=.T. ELSE TRY x.activeworkbook.CLOSE CATCH ENDTRY x.displayalerts = .F. xWD=x.HWND x.QUIT && = .T. IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF ENDIF RELEASE x, xactsheet, xcellact EXIT ENDDO SELE (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN ENDPROC PROCEDURE preprocesar_impresion RELEASE oEstado PUBLIC oEstado IF p_SinInterfaz THEN DO FORM estado NAME thisform.oEstado NOSHOW ELSE DO FORM estado NAME thisform.oEstado ENDIF oEstado=thisform.oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=1000 oEstado.VALUE=1 SET DEFAULT TO (p_server) THISFORM.debug_time_iniciar this.id_formulario_ultimo = this.id_formulario_evaluado ENDPROC PROCEDURE postprocesar_impresion IF NOT (TYPE("thisform.oEstado")#"O" or (TYPE("thisform.oEstado")="O" and ISNULL(thisform.oEstado))) THEN thisform.oestado.visible=.f. thisform.oestado.refresh thisform.oEstado.RELEASE ENDIF IF NOT (TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado))) THEN oestado.visible=.f. oestado.refresh oEstado.RELEASE RELEASE oEstado ENDIF do sp_ocultar_definitivamente ; in sys_procesando ENDPROC PROCEDURE param_aplicar FOR nit=1 TO ALEN(THISFORM.Param_data,1) *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("Thisform.Param_data(nIt,1)")="C" THEN TRY *Limpio los valores por defecto que tengan asignado el parmetro THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).AddCurrentValue(THISFORM.Param_data(nit,2)) CATCH TO oCatch IF NOT THISFORM.param_noerror THEN if !p_dev =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte en Crystal."+CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) else =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte "; +thisform.archivoreporte; +CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) endif ENDIF ENDTRY ENDIF NEXT ENDPROC PROCEDURE tables_loc_adv_aplica crSubreportObject=5 FOR x=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO THISFORM.CRReporte.Sections.COUNT FOR Y=1 TO THISFORM.CRReporte.Sections[z].ReportObjects.COUNT IF THISFORM.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE imprimir_texto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif txArchivoTexto=ALLTRIM(THISFORM.archivotexto) IF txArchivoTexto=='' THEN IF "\TMP\"$UPPER(THISFORM.archivotemporal) txArchivoTexto=THISFORM.archivotemporal+".txt" ELSE txArchivoTexto=(p_local+'\tmp\'+THISFORM.archivotemporal+".txt") ENDIF ENDIF IF FILE(txArchivoTexto) THEN IF Mensaje_SiNo("Desea abrir el archivo de Texto?",1) THEN DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",(txArchivoTexto),"", "", 1) ELSE =Mensaje("El archivo se ha guardado en: " +CHR(13)+; txArchivoTexto) ENDIF ELSE =Mensaje("No existe " + txArchivoTexto) ENDIF ENDPROC PROCEDURE acomodar_botones dimension boton_array(10) as CommandButton thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btnparam.enabled = thisform.btnparam.enabled and not empty(thisform.parametros.rep_id) boton_array(1) = thisform.btntxt boton_array(2) = thisform.btnvisualizar boton_array(3) = thisform.btnimprimir boton_array(4) = thisform.btntabla boton_array(5) = thisform.btngrilla boton_array(6) = thisform.btnexportar boton_array(7) = thisform.btnpdf boton_array(8) = thisform.btnPlantilla_Excel boton_array(9) = thisform.btnparam boton_array(10) = thisform.btnsalir thisform.reacomodar_botones(@boton_array) ancho_botones = 48 inter_botones = 4 numero_botones=0 xtabindex=200 for each cbtn in boton_array numero_botones = numero_botones +iif(cbtn.visible,1,0) next xancho_botones = numero_botones * ancho_botones + inter_botones * (numero_botones-1) xleft = int((thisform.width - xancho_botones )/2) xtop = thisform.height - ancho_botones - 3 private nit nit=0 for each cbtn in boton_array if cbtn.visible then cbtn.left = xleft + nit * (ancho_botones + inter_botones) cbtn.top = xtop cbtn.tabindex=xtabindex + nit + 1 nit=nit+1 endif next LOCAL xckAncho xckAncho = IIF(thisform.ckFecha.Visible,thisform.ckfecha.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible,thisform.keep.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible and thisform.ckFecha.Visible,10,0 ) xLeft=int (thisform.Width /2) - INT(xckAncho/2) thisform.keep.top = xtop - 20 thisform.ckfecha.Top = xtop - 20 thisform.ckfecha.LEft = xleft thisform.keep.left = xleft + thisform.ckfecha.width + 20 thisform.ckfecha.tabindex = xtabindex thisform.keep.tabindex = xtabindex+1 xtabindex=xtabindex+1 *!* if not thisform.imprimir_tabla_usar_viejo then *!* thisform.btntabla.picture = 'ACCESS_32.ICO' *!* thisform.btntabla.downpicture = 'ACCESS_32_H.ICO' *!* endif ENDPROC PROCEDURE param_agregar PARAMETERS xName AS STRING ,xData AS Variant ,xFechaLimite AS INTEGER , xPos AS INTEGER, xOmitir as Boolean IF xOmitir THEN *** Esto permite pasar parametros opciones depende del prt a usar. *** Por ejemplo, el parmetro xTotal solo se manda cuando xOpcional = (xdTip=1) RETURN .f. ENDIF SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xName")="L" AND TYPE("xData")="L" AND TYPE("xPos")="L" THEN THIS.param_count=0 STORE .F. TO THISFORM.param_data RETURN ENDIF xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.param_count = THIS.param_count + 1 xPos=THIS.param_count ENDIF IF TYPE("xData")="D" THEN xFechaLimite = Chk_Value(xFechaLimite,1,"N") xData=CR_ValidaFecha(xData,xFechaLimite) ENDIF IF xPos > ALEN(THISFORM.param_data,1) THEN DIMENSION THISFORM.param_data(xPos,ALEN(THISFORM.param_data,2)) ENDIF THISFORM.param_data(xPos,1)=xName THISFORM.param_data(xPos,2)=xData THISFORM.param_usar = .T. ENDPROC PROCEDURE campos_agregar PARAMETERS xField AS STRING ,xLabel AS String , xPos AS INTEGER, xTotal_Separa as Boolean , xTotal_General as Boolean, xOperacion as String, xFor as Object, xOper_Total as String, xIDU as String SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xField")="L" AND TYPE("xLabel")="L" AND TYPE("xPos")="L" THEN THIS.campos_count=0 STORE "" TO THISFORM.campos RETURN ENDIF xIDU=EVL(xIDU,SYS(2015)) xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.campos_count = THIS.campos_count + 1 xPos=THIS.campos_count ENDIF IF xPos > ALEN(THISFORM.campos,1) THEN DIMENSION THISFORM.campos(xPos,ALEN(THISFORM.campos,2)) ENDIF THISFORM.campos(xPos,1)=xField THISFORM.campos(xPos,2)=xLabel THISFORM.campos(xPos,3)=xTotal_Separa THISFORM.campos(xPos,4)=xTotal_General IF NOT EMPTY(xOperacion) THEN THISFORM.campos(xPos,5)=xOperacion ENDIF IF TYPE("xFor")="L" AND xFor THEN THISFORM.campos(xPos,6)=thisform.campos_formato ELSE THISFORM.campos(xPos,6)=xFor ENDIF IF NOT EMPTY(xOper_Total) THEN THISFORM.campos(xPos,7)=xOper_Total ENDIF THISFORM.campos(xPos,8)=xIDU RETURN xPos ENDPROC PROCEDURE validar_datos RETURN .t. ENDPROC PROCEDURE debug_time_iniciar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.T.,THIS.CAPTION) ENDIF ENDPROC PROCEDURE debug_time_finalizar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.F.) ENDIF ENDPROC PROCEDURE imprimir_xls_viejo * * 1) Presupone que se ha completado el arreglo campos[x,y] * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1,x2 =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") IF THIS.xls_autogenerar THEN THIS.gen_xls.archivo_temporal = THIS.archivotemporal THIS.gen_xls.generar RETURN ENDIF LOCAL z, aaa IF !USED(THISFORM.archivotemporal) USE (p_local+'\tmp\'+THISFORM.archivotemporal) IN 0 ENDIF SELECT (THISFORM.archivotemporal) IF RECCOUNT(THISFORM.archivotemporal)=0 THEN =Mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (THISFORM.archivotemporal) USE RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF ALLTRIM(THISFORM.planillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_"+ALLTRIM(THISFORM.planillaxls)+".xls") xplanilla=ALLTRIM(THISFORM.planillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(THISFORM.archivotemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF LOCAL hayerror hayerror = .F. xXLS_Archivo=oDeyFunc.Get_Path(10)+THISFORM.xls_archivo DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 1 ENDCASE IF THISFORM.xls_archivo_preguntar xXLS_Archivo=PUTFILE("Archivo de Excel",xXLS_Archivo,"XLS") IF EMPTY(xXLS_Archivo) THEN *hayerror = .t. xPlanilla_Final=oDeyFunc.Get_Path(5)+THISFORM.xls_archivo ENDIF ENDIF oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Creando planilla de Excel..." LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. DO WHILE NOT hayerror IF !FILE(xplanilla) =MESSAGEBOX('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xXLS_Archivo) IF hayerror =MESSAGEBOX('No se puede crear '+xXLS_Archivo+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') EXIT ENDIF LOCAL x TRY x=GETOBJECT(,'excel.application') CATCH hayerror=.T. ENDTRY IF hayerror hayerror=.F. TRY x=CREATEOBJECT('excel.application') CATCH hayerror=.T. ENDTRY ENDIF IF hayerror =MESSAGEBOX('No se puede abrir la aplicacin Excel') EXIT ENDIF TRY x.workbooks.OPEN(xXLS_Archivo) CATCH hayerror=.T. ENDTRY IF hayerror =MESSAGEBOX('No se puede abrir el archivo '+xXLS_Archivo) x.QUIT RELEASE x EXIT ENDIF ON ERROR &onerr x.VISIBLE= .F. xlibros=x.workbooks.COUNT ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW *!* x.workbooks(xlibros).windows(1).visible=.f. x.workbooks(xlibros).sheets(xotra_planilla).SELECT x.workbooks(xlibros).sheets(xotra_planilla).RANGE("A3").COPY * * Coloca el encabezamiento en la planilla * oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Procesando el encabezamiento..." z=1 DO WHILE NOT EMPTY(THISFORM.campos[z,1]) xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).SELECT x.ActiveSheet.Paste x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).VALUE = THISFORM.campos[z,2] z=z+1 ENDDO xmaxfields=z-1 IF xmaxfields>0 * * Crea la planilla auxiliar * SELE (THISFORM.archivotemporal) xplanilla_aux = RIGHT(SYS(2015),8) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(THISFORM.campos[z,1]) IF zALEN(xCamposArr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 * * Crea la planilla auxiliar * SELE (xAlias) xPlanilla_Aux =NewFile_Local_TMP()+".dbf" xTMPPath=SUBSTR(xPlanilla_Aux,1,RAT("\",xPlanilla_Aux)) xTMPFile=SUBSTR(xPlanilla_Aux,RAT("\",xPlanilla_Aux)+1) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(xCamposArr[z,1]) IF z ALEN(THISFORM.formula_data,1) THEN DIMENSION THISFORM.formula_data(xPos,ALEN(THISFORM.formula_data,2)) ENDIF THISFORM.formula_data(xPos,1)=xName THISFORM.formula_data(xPos,2)=xFormula THISFORM.formula_usar = .T. ENDPROC PROCEDURE imprimir_xls_externo *=sys_m("xls externo") LOCAL oExp as exportaciones of imp_exp LOCAL xpar * Creacion de los objetos a realizar la exportacion oExp=NEWOBJECT("exportaciones", "imp_exp") oExp.archivo_salida_renombra = thisform.archivo_Salida_renombra IF This.xls_coll_param.count=0 THEN xPar=thisform.xls_coll_getnew() This.xls_coll_param.Add(xPar) ENDIF FOR EACH xPar IN This.xls_coll_param oEXP.parametros_coll.ADD(xPar) NEXT oEXP.exportar_xls_coll() this.xls_coll_param = CREATEOBJECT("Collection") RETURN .t. ENDPROC PROCEDURE xls_coll_getnew LPARAMETERS xNo_leer_Crystal LOCAL xPar SET CLASSLIB TO "Clases" xPar=CREATEOBJECT("Exportaciones_parametros") IF NOT xNo_leer_Crystal THEN xPar.do_Leer_Crystal(This) ENDIF RETURN xPar ENDPROC PROCEDURE imprimir_pdf lparameters xnopreguntar, xarchivo if !isnull(thisform.crreporte) if thisform.xpdfprompt and not xnopreguntar then thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 oapi = newobject("WWAPI", "IP\WWAPI.PRG") xarchivo=oapi.readregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name) xarchivo=iif(isnull(xarchivo),"", xarchivo) xarchivo=putfile("Archivo PDF:",justpath(xarchivo), "PDF") if not empty(xarchivo) then thisform.crreporte.exportoptions.diskfilename=xarchivo try oapi = newobject("WWAPI", "IP\WWAPI.PRG") oapi.writeregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name,justpath(xarchivo), .t.) catch endtry try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif **=thisform.crreporte.ExportOptions.PromptForExportOptions() ELSE xArchivo=EVL(xarchivo, EVL(thisform.xpdfarchivo, oDeyFunc.NewFile_Local_TMP(,"PDF"))) thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 thisform.crreporte.exportoptions.diskfilename=xArchivo try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif endif ENDPROC PROCEDURE reacomodar_botones LPARAMETERS boton_array ENDPROC PROCEDURE xls_a_usar_pedir LPARAMETERS oColl oColl.Add(oDeyFunc.Get_path(5)+"reporte.xls") ENDPROC PROCEDURE xls_a_usar_revisar local oxls, oex, ocoll, owb *=sys_m("USAR A REVISAR") ocoll= newobject("Collection") try oexc=getobject(,'excel.application') catch to oex endtry =thisform.xls_a_usar_pedir (@ocoll) if not type("oEXC") = "O" or not type("oColl") = "O" then return .t. endif try owb=oexc.workbooks catch endtry if typeo(owb) then for each xtxt in ocoll for each owb in oexc.workbooks if upper(xtxt)=upper(owb.fullname) then =mensaje("La planilla se encuentra en abierta !!!"+ chr(13)+; "Cierrela antes de intentar generarla nuevamente."+chr(13)+chr(13)+xtxt) if oexc.visible=.f. then oexc.visible=.t. endif return .f. endif next next endif ENDPROC PROCEDURE get_shortpath lparameters xFile LOCAL xFinal IF p_emp="SCH" AND this.chk_long.Value THEN IF p_dev THEN mensaje(xFile) ENDIF RETURN xFile ENDIF local xLN, xpath xPath=space(256) xLN=0 Declare long GetShortPathName in kernel32 string lpszLongPath, string @lpszShortPath, long lBuffer xLN=GetShortPathName(xFile,@xpath,256) if xLN>0 then xFinal= ADDBS(JUSTPATH(left(xPath,xLN)))+JUSTFNAME(xFile) ELSE xFinal=xFile endif *!* IF p_dev THEN *!* mensaje(xFile) *!* ENDIF RETURN xFinal ENDPROC PROCEDURE ejecutar_sql LPARAMETERS xNO_RELEASE, xdestino LOCAL xarchivo thisform.mantener=.T. thisform.preprocesar_impresion() =oEstado.Set_and_Show("Iniciando datos...",1,4) thisform.procesar_impresion() thisform.postprocesar_impresion() *=sys_m("Definiciones") Thisform.exportar_definicion_columnas() xarchivo=thisform.Archivo[1] if type("xdestino")="C" if !(".DBF"$xdestino) xdestino=alltrim(xdestino)+".dbf" endif try copy file (xarchivo) to (xdestino) xarchivo=xdestino catch to oCopyxxx if p_dev mensaje("Destino invlido : "+xdestino) endif endtry endif IF NOT xNO_Release THEN thisform.RELEASE IF TYPE("oEstado")="O" AND TYPEO(oEstado) THEN =oEstado.release oEstado=.f. ENDIF ENDIF RETURN xarchivo ENDPROC PROCEDURE ejecutar_externo LPARAMETERS xTipo_Reporte AS INTEGER ,xNO_RELEASE AS Boolean , xTabla AS STRING, xMantener AS Boolean, xAbrir AS INTEGER LOCAL xReturn *xAbrir XLS:0=Consulta si abre en el EXCEL * 1=Abre directamente * 2=No abre ni consulta, solo lo genera * 3=Lo genera y pregunta dnde lo guarda IF type("xabrir")#"N" THEN xAbrir=0 ENDIF *** Esto es importante para que se muestre el form de crystal!!! THISFORM.Mostrar_Externo=.T. THISFORM.mantener = xMantener xReturn=.T. DO CASE CASE xTipo_Reporte=0 && Solo Tabla obtiene la tabla xNO_RELEASE=.F. && Especifica si el form se cierre luego de ejecutar el reporte xTabla=THISFORM.Ejecutar_Sql(xNO_RELEASE) CASE xTipo_Reporte=1 && Crystal THISFORM.BtnVisualizar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=4 && Excel THIS.xls_abrir = xAbrir thisform.automatizado = .t. THISFORM.BtnExportar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=7 && PDF thisform.xpdfprompt = .f. thisform.btnpDF.Click CASE xTipo_Reporte=99 && Visualizar Form para tocar parmetros manualmente ENDCASE IF NOT (xNO_RELEASE) THEN THISFORM.RELEASE ENDIF RETURN xReturn ENDPROC PROCEDURE solo_salir_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF vNewVal THEN dimension boton_array(9) as object thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btntxt.Enabled = .f. thisform.btnvisualizar.Enabled = .f. thisform.btnimprimir.Enabled = .f. thisform.btntabla.Enabled = .f. thisform.btngrilla.Enabled = .f. thisform.btnexportar.Enabled = .f. thisform.btnpdf.Enabled = .f. *thisform.btnparam thisform.btnsalir.Enabled = .t. ENDIF THIS.Solo_Salir = m.vNewVal ENDPROC PROCEDURE xls_columna LPARAMETERS xColumna LOCAL xIni, xLap, xFin, xSTR, xCol xIni=64 xLap=26 xFin=xIni+xLap xSTR="" xCur=0 *xColumna=229 xCol=xColumna IF xCol>xLap THEN xSTR=CHR(xIni+INT(xCol/xLap)) ENDIF IF MOD(xCol,xLap)>0 THEN xSTR=xSTR+CHR(xIni+MOD(xCol,xLap)) ENDIF RETURN xSTR ENDPROC PROCEDURE grabar_ejecucion LOCAL oParam AS guardar_parametros_crystal OF form_controles.vcx LOCAL oEx TRY oParam=THISFORM.parametros THISFORM.parametros.par_Leer IF NOT EMPTY(oParam.rep_id) THEN SELECT 0 USE p_system+"\rptparam" ALIAS tmprptparam AGAIN INSERT INTO tmprptparam VALUES (; oParam.rep_id,; pub_index,; p_codemp,; DATETIME(),; "Ejecucin tipo "+ALLTRIM(STR(THISFORM.tipo_reporte)),; oParam.val_textos,; SYS(2015), 1,2,THISFORM.tipo_reporte) SELECT tmprptparam USE ENDIF CATCH TO oEx ENDTRY IF USED("tmprptparam") SELECT tmprptparam USE ENDIF ENDPROC PROCEDURE estado_avance LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Avance(xTexto) ENDPROC PROCEDURE estado_texto LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Texto=xTexto ENDPROC PROCEDURE estado_visible LPARAMETERS xVisible IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Visible=xVisible ENDPROC PROCEDURE imprimir_xls_largos LPARAMETERS xAlias, xEXCEL, xPlanilla_Aux, xFields, xmaxfields LOCAL x1, x2 x1 = 64+ IIF(INT(xmaxfields/26)=0,0,INT(xmaxfields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xmaxfields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 LOCAL xRecCopiado, xPlan, xRecActual, xRecFalta, xDisplayAlerts LOCAL xPath, xLibroBase, xLibroMV, oEx, xCL1, xCL2 xPath=oDeyFunc.NewFile_Local_TMP() xDisplayAlerts = xEXCEL.DisplayAlerts xEXCEL.DisplayAlerts= .F. xVisible=xEXCEL.VISIBLE xTop=xEXCEL.TOP xEXCEL.VISIBLE=.F. TRY xEXCEL.TOP=5000 CATCH TO oEx ENDTRY SELECT (xAlias) xRecActual=0 xPlan=0 xRecFalta = RECCOUNT() DO WHILE xRecFalta>0 xPlan = xPlan + 1 COPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 xRecCopiado = _TALLY xRecFalta = xRecFalta - xRecCopiado xRecActual = xRecActual + xRecCopiado ENDDO xEXCEL.workbooks.ADD xLibroBase = xEXCEL.workbooks.COUNT xRecActual = 1 FOR nIt=1 TO xPlan xEXCEL.workbooks.OPEN(xPath+"_"+ALLTRIM(STR(nIt))) xLibroMV = xEXCEL.workbooks.COUNT xEXCEL.workbooks(xLibroMV).sheets(1).RANGE( "A"+ALLTRIM(STR(IIF(nIt=1,1,2)))+":"+xrango+ALLTRIM(STR(IIF(nIt=xPlan,xRecCopiado,65000)+1))).COPY * xEXCEL.VISIBLE=.T. xCL1=xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1) xCL1.PasteSpecial() *!* *!* xEXCEL.workbooks(xLibroBase).ACTIVATE *!* xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).SELECT * xEXCEL.VISIBLE=.F. * xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).Paste xRecActual = xRecActual + 65000 *!* xEXCEL.VISIBLE=.T. *!* xEXCEL.workbooks(xLibroMV).ACTIVATE *!* xEXCEL.workbooks(xLibroMV).sheets(1).Cells(1,1).SELECT *!* xEXCEL.VISIBLE=.F. xEXCEL.workbooks(xLibroMV).CLOSE ENDFOR xEXCEL.workbooks(xLibroBase).SAVEAS(xPlanilla_Aux) xEXCEL.workbooks(xLibroBase).CLOSE xEXCEL.DisplayAlerts = xDisplayAlerts xTop=xEXCEL.TOP TRY xEXCEL.TOP=xTop CATCH ENDTRY xEXCEL.VISIBLE=xVisible ENDPROC PROCEDURE agregar_caption LPARAMETERS xTexto IF p_dev THEN Thisform.Caption = Thisform.Caption + xTexto ENDIF  ENDPROC PROCEDURE agregar_log_ejecucion LPARAMETERS xTexto Thisform.log_ejecucion = Thisform.log_ejecucion + xTexto ENDPROC PROCEDURE abrir_pdf LPARAMETERS xArchivo DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",JustFName(xArchivo),"", JUSTPATH(xArchivo), 0) ENDPROC PROCEDURE sleep LPARAMETERS lnmillisecs lnmillisecs = IIF(TYPE("lnMillisecs")="N", lnmillisecs, 0) DECLARE Sleep IN WIN32API INTEGER = sleep(lnmillisecs) return ENDPROC PROCEDURE asignar_impresora LPARAMETERS xImpresora LOCAL xPaperOrientation, xPaperSize, xPaperSource, xPrinterDuplex xImpresora = EVL(xImpresora, SET("PRINT",2)) xPaperOrientation= THISFORM.CRReporte.PaperOrientation xPaperSize = THISFORM.CRReporte.PaperSize xPaperSource = THISFORM.CRReporte.PaperSource xPrinterDuplex = THISFORM.CRReporte.PrinterDuplex THISFORM.CRReporte.SelectPrinter ("",xImpresora,"") THISFORM.CRReporte.PaperOrientation = xPaperOrientation THISFORM.CRReporte.PaperSize = xPaperSize THISFORM.CRReporte.PaperSource = xPaperSource THISFORM.CRReporte.PrinterDuplex = xPrinterDuplex ENDPROC PROCEDURE cerrar_visualizador *=sys_mostrar_screen("cerrar",.t.) thisform.crvista.release thisform.crreporte=.f. THISFORM.CRAplicacion=.f. *!* THISFORM.CRAplicacion *!* THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) *!* THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; ENDPROC PROCEDURE formato_rango_fechas lparameters xvariable, xseparador, xtxt, xd, xh xseparador=evl(xseparador, " - ") local xres xres="" if !empty(xd) or xh#date(2099,12,31) if empty(xd) xres = iif(!empty(xvariable), xseparador, "")+xtxt+": Hasta "+dtoc(xh) else if xh=date(2099,12,31) xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": Desde "+dtoc(xd) else xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": "+dtoc(xd)+" al "+dtoc(xh) endif endif endif return xres ENDPROC PROCEDURE seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF PRIVATE xCod_Plantilla , xRes IF p_xls_mostrar_seleccion_modelos#0 AND SEEK(THIS.id_formulario_evaluado, "plantillas_xls","ID_Form") THEN xCod_Plantilla =0 DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original, .T. TO xRes IF NOT xRes THEN RETURN .f. ENDIF IF xRes AND xCod_Plantilla #0 THEN LOCAL opar AS Exportaciones_Parametros OF IMP_EXP.vcx opar=NEWOBJECT("Exportaciones_Parametros","IMP_EXP.VCX") opar.plantilla_leer (xCod_Plantilla) opar.do_aplicar_crystal (THISFORM) ENDIF ENDIF ENDPROC PROCEDURE pre_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF oForm.campos_parametros.Do_Leer_Crystal(oForm) oForm.campos_parametros_original.Clonarse(oForm.campos_parametros) ENDPROC PROCEDURE id_formulario_evaluado_access *To do: Modify this routine for the Access method RETURN THIS.id_formulario ENDPROC PROCEDURE evaluar_id_formulario RETURN thisform.id_formulario ENDPROC PROCEDURE id_formulario_access *To do: Modify this routine for the Access method IF EMPTY(this.id_formulario) THEN This.id_formulario = thisform.Name ENDIF RETURN THIS.id_formulario ENDPROC PROCEDURE pos_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF *=sys_m("Pos") DIMENSION this.campos(255,ALEN(this.campos,2)) ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE exportar_definicion_columnas **** OJO, est pensado para la clase en forma genrica. ***************************************************** **** Puede haber reportes que necesiten algo especfico. ***************************************************** LOCAL oLogs AS loguear OF sys_log.prg LOCAL oPar, nIt, nIt2 IF !EMPTY(pi_XLS_Exportar_Campos) THEN oLogs=NEWOBJECT("loguear", "sys_log.prg","",JUSTPATH(pi_XLS_Exportar_Campos), JUSTFNAME(pi_XLS_Exportar_Campos),, , , , -1) TRY THIS.inicializar_columnas IF THIS.imprimir_xls_usar_externo THEN THIS.inicializar_columnas_externo ENDIF IF NOT THIS.imprimir_xls_usar_externo THEN oLogs.LOG(PADR("Campo",20)+"Nombre",.T.) FOR nIt=1 TO ALEN(THISFORM.campos,1) oLogs.LOG(PADR(THISFORM.campos(nIt,1),20)+THISFORM.campos(nIt,2)) NEXT ELSE FOR nIt2=1 TO THIS.xls_coll_param.count oPar=THIS.xls_coll_param.Item(nIt2) FOR nIt=1 TO ALEN(oPar.ex_xls_campos,1) oLogs.LOG(PADR(oPar.ex_xls_campos(nIt,1),20)+oPar.ex_xls_campos(nIt,2)) NEXT NEXT ENDIF CATCH TO oEx oLogs.Log_Excepcion(oEx) ENDTRY ENDIF ENDPROC PROCEDURE Destroy if this.DataSession=2 * =sys_mostrar_screen("Suspendo?", .t.) * La ejecuto varias veces por si hay ms de una DB close databases close databases close databases * Si no quedan DBs, elimina las tablas libres de la DB dimension atables(1) if aused("atables")>0 local z for z=1 to alen("atables",1) select (atables(z,1)) use endfor endif endif =this.campos_parametros.Dispose() this.campos_parametros=.f. dodefault() ENDPROC PROCEDURE Resize =THISFORM.acomodar_botones () thisform.chk_long.Top = thisform.Height - thisform.chk_long.Height - 10 ENDPROC PROCEDURE Load *!* if _screen.activeform.datasessionid=this.datasessionid *!* =mensaje('El reporte no tiene su propia sesin de datos !!!'+chr(13)+'No se puede continuar.') *!* return .f. *!* endif =sets() thisform.campos_formato = NEWOBJECT("Exportaciones_Parametros_Formato","IMP_EXP") thisform.campos_formato .num_format="###,###,##0.00" Thisform.campos_parametros= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") Thisform.campos_parametros_original= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.xdact='N' THISFORM.xdage=SPACE(8) THISFORM.xhage=SPACE(8) THISFORM.xdasi = 'T' && Tipo de asientos THISFORM.xdatr=SPACE(3) THISFORM.xhatr=SPACE(3) THISFORM.xdbie=SPACE(8) THISFORM.xhbie=SPACE(8) THISFORM.xdbon=.F. && Solo las bonificaciones THISFORM.xdbul=SPACE(3) THISFORM.xhbul=SPACE(3) THISFORM.xdcat=0 THISFORM.xhcat=0 THISFORM.xdcau = ' ' && Causa THISFORM.xdclase=1 && Clase = Tipo THISFORM.xdcli=SPACE(6) THISFORM.xhcli=SPACE(6) THISFORM.xdcod = SPACE(6) && Cdigo (6 chars) THISFORM.xdcen=SPACE(6) THISFORM.xhcen=SPACE(6) THISFORM.xdcfc=0 && Centro de Facturacin THISFORM.xhcfc=0 && Centro de Facturacin THISFORM.xdcostos=0 && Costos THISFORM.xdcos=SPACE(6) THISFORM.xhcos=SPACE(6) THISFORM.xdctr=.F. && Para contribucin THISFORM.xdcue=SPACE(9) THISFORM.xhcue=SPACE(9) THISFORM.xddat=.T. && Slo los que tienen datos THISFORM.xddec=0 && Decimales THISFORM.xddiv = 'N' && Con divisin THISFORM.xddep=SPACE(8) THISFORM.xhdep=SPACE(8) THISFORM.xddsc=0 THISFORM.xddse='N' THISFORM.xdfcs=DATE() && Fecha para costos THISFORM.xdfec = {} THISFORM.xhfec = {^2099-12-31} THISFORM.xdfec1 = {} THISFORM.xhfec1 = {^2099-12-31} THISFORM.xdfle=SPACE(6) THISFORM.xhfle=SPACE(6) THISFORM.xdfor=SPACE(250) THISFORM.xdgru=0 THISFORM.xhgru=0 THISFORM.xdsubgru=0 THISFORM.xhsubgru=0 THISFORM.xdimp = 0 && Importacin THISFORM.xhimp = 0 && Importacin THISFORM.xdlin=0 THISFORM.xhlin=0 THISFORM.xdlis=0 THISFORM.xhlis=0 THISFORM.xdlva=0 THISFORM.xdmon = 0 && Moneda THISFORM.xdmot = 0 && Motivo Contable THISFORM.xhmot = 0 && Motivo Contable THISFORM.xdmov='S' && Solo las que tuvieron movimientos THISFORM.xdnot='N' THISFORM.xdnum = 'S' && Orden Alfanumrico/Numrico THISFORM.xdord=1 THISFORM.xdpai=0 THISFORM.xdpro=SPACE(6) THISFORM.xhpro=SPACE(6) THISFORM.xdprv=' ' THISFORM.xdrem = .F. && Incluye remitos THISFORM.xdres = ' ' && Completo/Resumen THISFORM.xdrsm = 1 && 1- Sin Resumen / 2- Con Resumen Final / 3- Solo Resumen THISFORM.xdsal='N' THISFORM.xdscd = .F. && Solo los codificados THISFORM.xdsce = 0 && Subcentro THISFORM.xhsce = 0 && Subcentro THISFORM.xdsep=1 THISFORM.xdsgr=0 && Subgrupo THISFORM.xhsgr=0 && Subgrupo THISFORM.xdspg=.F. && Saltos de Pgina THISFORM.xdstk='S' THISFORM.xdsub='S' THISFORM.xdsuc=0 && Sucursal THISFORM.xhsuc=0 && Sucursal THISFORM.xdser=oLot.data_codigo_vacio THISFORM.xdtar=1 && Tipo de Articulos (PT,MP...) 1=Todos (Ajustar pues tipo_art=1=MT !!!) THISFORM.xdtcp = ' ' && Cliente/Proveedor THISFORM.xdtip=1 && Tipo de Listado THISFORM.xdtot='N' && Totalizado THISFORM.xdtva=1 && Tipo de Valorizacin : 1=Sin Valorizar, 2=Costos, 3=Listas de precios THISFORM.xdult = {} THISFORM.xduni = 1 && Unidad (primaria/secundaria) THISFORM.xdval = 0 THISFORM.xdxba = .T. && Con detalle de bultos y atributos THISFORM.xdxcc = 'N' && Por centros de costos THISFORM.xdxcp = 'N' && Por cliente/proveedor THISFORM.xdzon=0 THISFORM.xhzon=0 ******************* Generales ******************* THISFORM.xdnum1 = 0 THISFORM.xhnum1 = 0 THISFORM.xdnum2 = 0 THISFORM.xhnum2 = 0 THISFORM.xdnum3 = 0 THISFORM.xhnum3 = 0 THISFORM.xdnum4 = 0 THISFORM.xhnum4 = 0 THISFORM.xdnum5 = 0 THISFORM.xhnum5 = 0 THISFORM.xdlog1 = .F. THISFORM.xhlog1 = .F. THISFORM.xdlog2 = .F. THISFORM.xhlog2 = .F. THISFORM.xdlog3 = .F. THISFORM.xhlog3 = .F. THISFORM.xdlog4 = .F. THISFORM.xhlog4 = .F. THISFORM.xdlog5 = .F. THISFORM.xhlog5 = .F. THISFORM.xdlog6 = .F. THISFORM.xhlog6 = .F. THISFORM.xdlog7 = .F. THISFORM.xhlog7 = .F. THISFORM.xdlog8 = .F. THISFORM.xhlog8 = .F. THISFORM.xdlog9 = .F. THISFORM.xhlog9 = .F. THISFORM.xdlog10 = .F. THISFORM.xhlog10 = .F. thisform.asignar_color () ENDPROC PROCEDURE Init STORE "" TO THISFORM.files_to_delete THISFORM.MINHEIGHT = THISFORM.HEIGHT THISFORM.MINWIDTH = THISFORM.WIDTH THISFORM.acomodar_botones() THIS.mantener=.F. try local xcaption xcaption=this.caption z=1 do while z<=len(xcaption) if !isalpha(substr(xcaption,z,1)) xcaption=stuff(xcaption,z,1,"") else z=z+1 endif enddo this.name=xcaption catch to oNada ENDTRY IF thisform.xls_archivo_automatico THEN thisform.xls_archivo = this.Caption +".xls" ENDIF TRY thisform.osql = oSQLCon CATCH ENDTRY && thisform.tipo_reporte && Especifica el tipo de reporte solicitado && 1 Crystal or VFP Preview && 2 Crystal or VFP Print && 3 Tabla Exportar && 4 Excel && 5 TXT && 6 Tabla Grilla && 7 PDF && 8 SQL o MySQL (Genera primero la tabla) ENDPROC PROCEDURE Unload THISFORM.delete_files *!* local z *!* for z=1 to alen(thisform.archivo) *!* if thisform.archivo[z]#"" *!* delete file (thisform.archivo[z]) *!* else *!* exit *!* endif *!* endfor ENDPROC PROCEDURE Show LPARAMETERS nStyle, xTipo_Reporte IF EMPTY(nStyle) THEN nStyle=0 ENDIF IF nStyle=3 THEN THISFORM.tipo_reporte = xTipo_Reporte THISFORM.tmrclick.ENABLED=.T. = DODEFAULT(1) THIS.VISIBLE = .F. ELSE RETURN DODEFAULT(nStyle) ENDIF ENDPROC "h<%U4(%CCCC! %CC TC(!BUXFILEZTHISFORMFILES_TO_DELETEOCATCH(?%CCC  1aaaa=1CON ERROR &onerr BUZTHISFORMFILES_TO_DELETEARCHIVOTEMPORALMANTENERTCaTTTQ EXCEPTION T7C'Iniciando servidor de automatizacin... %- 0TCCrystalRuntime.Application.11N-T CrystalRuntime.Application.11(T 0TCCrystalRuntime.Application.10N-T CrystalRuntime.Application.10(T /TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(T 1TCCrystalRuntime.Application.8.0N.T CrystalRuntime.Application.8.0(T T u F/TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(qT T+%CTHISFORM.CRAplicacionbO1}C01 - El servidor de automatizacin de impresionesC #no existe o no est bien instalado.C ()x1xerror=2 #CAbriendo reporte... T C !%CC Rf.RPT'T C C >[%%C _ .RPT0$T  _ .RPT -T  .RPT%C 0TC (CarchivoreporteC  (C(prn1: C)%  C;C(prn2: CPRINTv:C)'C(z0:CCZ)HI _ %T!C(z1:CCZ) 2T$C(z2:CCZ)'C(z3:CCZ)%4ON ERROR &onerr 1C!Configurando datos del reporte... Ta%TC %(<%Cthisform.archivo[z]bCC %CC0g.TCC 8C El archivo CC no existe !!! T-! !0C Pasando parmetros al reporte...!%T"#%$ %& He %' {@Titulo2} T%(")" %' {@Empresa} T%("C"  %& H $ %'{@NombreGrupo}Y T%("*"$ %'{@CodigoGrupo} T%(+) %'{@DescripcionGrupo} T%(,+ %'{@CRDescripcionGrupo} T%(-$ %'{@OrdenGrupos}A T%(. %' {@Titulo2}~ T%(")" %' {@Empresa} T%("C"%/ C0%1 0(CC234 a%CCCC234' PrintDate1 PrintDate2 PrintTime1 PrintTime2 ,T2345a%6 78 T8,%9:C this.filtrosbO U C T8C9;<(=Q  >?@A">?@B8(= %C D CE%FCGCImprimiendo... CaH<%CoEstadobOCoEstadobOCI  m TIJ- G~(clasesG+(listados0C Configurando la visualizacin... TM-TCCrystalViewer_topMCCCCCCCCC C NNC-O%N%P Q TJa TJ-ON ERROR &onerr HC El reporte C  tiene problemas.C (CE)x /C El reporte C  no existe.xON ERROR &onerr G(RUS XDEMPRESA FN_EMPRESATHISFORM CRAPLICACION CRREPORTECRVISTAXERRORXMESSOEX ESTADO_AVANCE CRVERSIONMESSAGEARCHIVOREPORTEP_EMP OPENREPORTAGREGAR_LOG_EJECUCION PRINTERNAMEP_PRN_SETEAR_DEFAULTASIGNAR_IMPRESORA PAPERSIZECRYSTAL_TAMAO P_CRY_TAMAOXOKTABLES_USE_LOC_ADVTABLES_LOC_ADV_APLICAZDATABASETABLESCOUNTARCHIVOLOCATION GET_SHORTPATHMENSAJE ESTADO_TEXTO REPORTTITLETITULO1DONTCHANGENOTHINGXFORMULA FORMULAFIELDSNAMETEXTTITULO2 NOMBREGRUPO CODIGOGRUPODESCRIPCIONGRUPOCRDESCRIPCIONGRUPO ORDENGRUPOS FORMULA_USARFORMULA_APLICARFECHAAREASSECTIONS REPORTOBJECTSSUPPRESS PARAM_USAR PARAM_APLICARXMOSTRAR_FILTROTHISFILTROS_MOSTRARFILTROSFILTRO_OBTENEROCATCHPARAMETERFIELDS GETITEMBYNAMEFILTRO_PARAMETROCLEARCURRENTVALUEANDRANGEADDCURRENTVALUEPARAM_OBJETOS_USARPARAM_OBJETOS_APLICAR PRE_IMPRESION XIMPRESION PRINTERSETUPPRINTOUTOESTADOVISIBLECLASESLISTADOSARBOL TIPO_REPORTEESTADO_VISIBLEMOSTRAR_EXTERNOSHOWP_SERVER 4U XIMPRESION*4G+(listadosTCa<%CoEstadobOCoEstadobOC  d |T-%?\prt\(!" G~(clasesT Creporte_ventanaNT  ?\prt\< UXREPORTELISTADOS XDEMPRESA FN_EMPRESAOESTADOVISIBLE XIMPRESIONP_SYSTEMCLASESOCAPTIONTHISFORMTITULO1SHOWREPORTE_VENTANA<%CoEstadobOCoEstadobOC  < TT-F%\TMP\CfQ Q\tmp\G~(clasesG+(listadosTCreporte_ventanaN  !%C browsfieldsbCT.BROWSE &browsfields TITLE THISFORM.titulo1 k ' <FQU OESTADOVISIBLETHISFORMARCHIVOTEMPORAL RPTBROWSEP_LOCALCLASESLISTADOSOSHOWTITULO1. G+(listados C T T T T T<%CoEstadobOCoEstadobOC  T a% C_C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte. T -% TC <%CoEstadobOCoEstadobOC   T - B C  T(C%'%CxCamposArr(nIt,1)bC%CT T'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bL'T-'%CxCamposArr(nIt,5)bCqT%SUMAR %CT%SUMAR #TCCf'%CxCamposArr(nIt,7)bC0T%SUMAR %CtT%SUMAR #TCCfT =0 TT T T\tmp\TReportesT T!" T"-T#C $% &%'(.sys_destino_excel('('*'(%'(+<%CoEstadobOCoEstadobOC    T -B-H@ C'(hT +a 2T +-H '(T'( '(T'(,-./01% +m(T#CArchivo de Excel#XLS%C#iT#C$% & T#C$% &%C#0T,C#T-C#T.C# T/+an-T0,\-(CC/Z)..%C00 > T#0!T//%/cj!%2T'&C# T3T4 5T6 7(T8C 9 * 96 T: T; T<=>?1 hayerror=.T.%Cf FQFQ %CN '( W GC:El reporte no ha devuelto registros para exportar a excel. FQ<%CoEstadobOCoEstadobOC  4 L T -B-(C. %CC/bD TC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} % B%C*C@\prt\C_v_C.xls0 X T!C.xls T: m 1%C@\prt\C_v_*]5  crystal_xls(!C"%C!fC reporte.xlsf T!@\prt\C! T: 1 T!@ \reporte.xls T: i T!@ \reporte.xls T: C imporimir xls CB,CCreando planilla de Excel... D+" o.%C!0 C No existe ! !!(#%" CNo se puede crear #C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa. "TECexcel.application\TEFaTGHI! EJ!TECexcel.applicationNC Por abrirK%"2C%No se puede abrir la aplicacin Excel !5L C Version: EMK%C#0CExisteK TLC#ENO(PCError: PQK K)CBorrando planilla inicialK #(CAgregando planilla vaciaKTLCENR!CGrabando planillaK Cname: LSK(P#C Error name: PQKC#8ETUCGrabadaK(P'CError ReadOnly: PQK T"a C No Existe!K%" .CNo se puede abrir el archivo # EV%CoEstadobOCoEstadobOC   T-  <sys_procesandoUTHISFORMOESTADOVISIBLEREFRESHRELEASESP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOJ!(CC0%CThisform.Param_data(nIt,1)bC? $C5CC(;% 7% C Problemas al pasar el parmetro CCf al reporte en Crystal.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   3C Problemas al pasar el parmetro CCf al reporte  C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   UNITTHISFORM PARAM_DATA CRREPORTEPARAMETERFIELDS GETITEMBYNAMECLEARCURRENTVALUEANDRANGEADDCURRENTVALUEOCATCH PARAM_NOERRORP_DEVMENSAJEMESSAGEARCHIVOREPORTE@ T%(CTC! (C ?<%Cthisform.archivo[w]bCC   ;T C\C  % T C/C  ,% CC  >  7T CC  \T C. % T C =%CC fCCf3%CC  0.TCC   /8C El archivo CC   no existe !!!B-"(9*(C5)%CC18(CC-1TCCC! (C )<%Cthisform.archivo[w]bCC   %T C\C  % T C/C  ,% CC  >  !T CC  \T C. % UT C =%CC fCCf%CC  0CTCC   8C El archivo CC   no existe !!!B-UCRSUBREPORTOBJECTXTHISFORM CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWARCHIVODIRBARFRMNAMEPOINTPOS GET_SHORTPATHMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT<%CoEstadobOCoEstadobOC  < TT-TC%%\TMP\CfT.txt &T\tmp\.txt%C07%C!Desea abrir el archivo de Texto?.| ShellExecute Shell32.DLL!Copen 5CEl archivo se ha guardado en: C   C No existe  U OESTADOVISIBLETXARCHIVOTEXTOTHISFORM ARCHIVOTEXTOARCHIVOTEMPORALP_LOCAL MENSAJE_SINO SHELLEXECUTESHELL32DLLMENSAJE Q COMMANDBUTTON7T   )T C T T T T T TTTT T C T0 T T T"TC6TTC 8T5 T%TTT T!'T!C" "6+T!!C# #62T!!C# "  6 TC 8C! 8T#T"T"!T#"T" T# TU$ BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVENABLEDREP_IDBTNTXT BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNPLANTILLA_EXCELBTNSALIRREACOMODAR_BOTONES ANCHO_BOTONES INTER_BOTONESNUMERO_BOTONES XTABINDEXCBTNXANCHO_BOTONESXLEFTWIDTHXTOPHEIGHTNITLEFTTOPTABINDEXXCKANCHOCKFECHAKEEP M4QSTRINGQVARIANTQINTEGERQINTEGERQBOOLEAN%cB-G+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-( BTCN %2TT%CxDatabDTCN TC %C  C T T T aU XNAMEXDATA XFECHALIMITEXPOSXOMITIRDEY_FUNCTHIS PARAM_COUNTTHISFORM PARAM_DATA CHK_VALUECR_VALIDAFECHA PARAM_USAR4QSTRINGQSTRINGQINTEGERQBOOLEANQBOOLEANQSTRINGQOBJECTQSTRINGQSTRINGG+(Dey_FuncB%CxFieldbLCxLabelbL CxPosbL T J( BTCC] TCN%iT  T %C  C T T T T %C HT !%CxForbL T   T %C T T  BUXFIELDXLABELXPOS XTOTAL_SEPARAXTOTAL_GENERAL XOPERACIONXFOR XOPER_TOTALXIDUDEY_FUNCTHIS CAMPOS_COUNTTHISFORMCAMPOS CHK_VALUECAMPOS_FORMATO BaU8%CoEstadobO1CaUOESTADODEBUG_TIME_SETTHISCAPTION2%CoEstadobO+C-UOESTADODEBUG_TIME_SET _C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte.%T B  %C  Q \tmp\  F %C NnGC:El reporte no ha devuelto registros para exportar a excel. F QB- (C.%CC /bDT C /8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} K%C 0C\prt\C _v_C .xls0 cTC .xls T ~4%C\prt\C _v_*]F" crystal_xls(C "%CfC reporte.xlsfT\prt\C T BT \reporte.xls T zT \reporte.xls T T-TC  .sys_destino_excel(H. CT a 2.T -HCi iT% (TCArchivo de ExcelXLS%CTC T,TCreando planilla de Excel...  !1 hayerror=.T.+ %C0 C No existe x!(%>CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.x!" u"T"Cexcel.application\  Ta% T- !T"Cexcel.applicationN  Ta%41C%No se puede abrir la aplicacin Excelx! VC"#$ k Ta%-CNo se puede abrir el archivo x "%<"!ON ERROR &onerr T"&-T'"#("#')*'"#')+A3,T/TProcesando el encabezamiento... T +CC  - ;T.CC  8C@C  8 63T..C@CC GC G6 *"#')+.3* "/0;T"#')+.3C  -T  T1 %1 F T2CC]R T3 (1T T33CC  -% 1 P T33,DCOPY TO (p_local+"\tmp\"+xplanilla_aux) FIELDS &xfields TYPE XL5 (C \tmp\2.xls"#$/T@CC1 8 C1 86!TC@C 6T@C1G"TC@zC 6T4+"#')+A1*;"#')+A2:4CCCNZ*;"#')+A2:4CCCNZ5"#')6'"#')+A4*"#')0"#'7- %8 9  F T:CN (1;T.CC  8C@C  8 63T..C@CC GC G6 !%CC  -bN%8B1T;=Sum(.4:.CC:Z)"T"#')<;2T"#')=: >?a%@>4T"#')=: A@%97T"#')=: BA9T&TAjustando Columnas ... T 1;T.CC  8C@C  8 63T..C@CC GC G6 ."#')CA:.BD0T"#')+A1 '"#')+A1*"#')*'"#')+A1*TT Guardando... "EFT"G-"#'7  \tmp\2.xlsT&-T"Ga6%CAbre el archivo en el Excel ?x%%',T"G- "%<".| ShellExecute SHELL32.DLL!| FindWindowWIN32APITM9N.TOCMopen \tmpH%O !RC!No se puede ejecutar ShellExecuteC Cdigo del error: CCOZ v%'ZT"G- "% rT"&a<"! F QBM Sub Macro1()' Macro1 Macro1+' Macro grabada el 25/10/2000 por Guillermo Range("D2").Select)# Selection.NumberFormat = "0.00" With Selection.( .HorizontalAlignment = xlGeneral+% .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0" .ShrinkToFit = False! .MergeCells = False End With With Selection.Font .Name = "Arial"! .FontStyle = "Bold" .Size = 23$ .Strikethrough = False" .Superscript = False  .Subscript = False" .OutlineFont = False .Shadow = False/) .Underline = xlUnderlineStyleNone'! .ColorIndex = xlAutomatic End With Range("E4").Select! With Selection.Interior .ColorIndex = 15  .Pattern = xlSolid End With-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select=7 ActiveCell.FormulaR1C1 = "hasfhsdfhksdhfkshdfkhskf" Range("E5").Select-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select>8 Selection.Borders(xlDiagonalDown).LineStyle = xlNone<6 Selection.Borders(xlDiagonalUp).LineStyle = xlNone,& With Selection.Borders(xlEdgeLeft)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With+% With Selection.Borders(xlEdgeTop)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With.( With Selection.Borders(xlEdgeBottom)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With-' With Selection.Borders(xlEdgeRight)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With2, With Selection.Borders(xlInsideVertical)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With4. With Selection.Borders(xlInsideHorizontal)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With Calculate End Sub Sub Macro2()' Macro2 Macro1+' Macro grabada el 25/10/2000 por Guillermo.( Application.Run "reporte.xls!Macro1" End SubUPX1X2MENSAJETHISXLS_AUTOGENERARGEN_XLSARCHIVO_TEMPORALARCHIVOTEMPORALGENERARZAAATHISFORMP_LOCAL PLANILLAXLSP_SYSTEM XPLANILLAXOTRA_PLANILLA CRYSTAL_XLSHAYERROR XXLS_ARCHIVOODEYFUNCGET_PATH XLS_ARCHIVOSYS_DESTINO_EXCELCAPTION XLS_ABRIRXLS_ARCHIVO_PREGUNTARXPLANILLA_FINALOESTADOVALUETEXTOXCOPY MAXFIELDSXDATAX WORKBOOKSOPENQUITVISIBLEXLIBROSCOUNTSHEETSSELECTRANGECOPYCAMPOSXCOL ACTIVESHEETPASTE XMAXFIELDS XPLANILLA_AUXXFIELDSXRANGOCUTACTIVATECLOSE XLS_TOTALIZARXLS_NUMBER_FORMATTXNROW TXSUMFORMFORMULACELLSFONTBOLDXLS_TOTALIZAR_FORMATO NUMBERFORMAT ENTIRECOLUMNCOLUMNSAUTOFITACTIVEWORKBOOKSAVE DISPLAYALERTS SHELLEXECUTESHELL32DLL FINDWINDOWWIN32APIPHWNDHWNDXERROR T T T T TTa C  T  (C % $'%CxCamposArr(nIt,1)bC%C  T    T  '%CxCamposArr(nIt,3)bLfT -'%CxCamposArr(nIt,4)bLT -'%CxCamposArr(nIt,5)bCT %SUMAR g%C  6T %SUMAR c#T CC  fT  =0T T T\tmp\TReportesT  T!T\tmp\reporte.mdb TT T (TC   6 T!"#$% T#-1 hayerror=.T.%C  FQFQ%CN[HC;El reporte no ha devuelto registros para exportar a Access.& FQB-%  INDEX ON &xOrden TAG REP_mdb (C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} B%C*C'\prt\C_v_C.mdb0 |TC.mdb T! 1%C'\prt\C_v_*]Y crystal_MDB(C"%CfC reporte.MDBf!T'\prt\C T! UT' \reporte.MDB T! T' \reporte.MDB T!*CCreando Tabla de Access...)+a %C0 C No existe x!(%#CNo se puede crear C dRevise entre las tareas en ejecucin que no exista una instancia de Access creada por este programa.x!*#T*CAccess.application\%#  T#-"T*CAccess.applicationN%#i2C&No se puede abrir la aplicacin Accessx!C*+%#-CNo se puede abrir el archivo x *,<*!ON ERROR &onErr T- T+CC P T%C L !T. FTC/.dbfT0CC\\T1CC\\ T2(.& T22CC %. " T22,6COPY TO (xPlanilla_Aux) FIELDS &xfields TYPE FOX2X C Importando...)5C dBase 5.001Reporte-*34 1a=1 (. 8T*56Reporte7 8C  ON ERROR &OnErr C Guardando...) T-7%CAbre el archivo en el Access ?x %- *9 *,<*.| ShellExecute SHELL32.DLL-T=Copen\tmp:%=  RC!No se puede ejecutar ShellExecuteC Cdigo del error: CC=Z&  %- *9 *,  T*a<*! FQBU> XLEDGETOP XLEDGEBOTTOM XLAUTOMATIC XLCONTINUOUSXLTHINOESTADOVISIBLEZAAATHISFORMCAMPOS XCAMPOSARR XCOLCOUNTNIT XPLANILLAMDB PLANILLAMDB XTEMPORALARCHIVOTEMPORALXTABLAP_LOCALXALIASXORDEN CAMPOS_ORDEN XPLANILLAXPLANILLA_FINAL XPLANILLA_AUXXSEPFOR CAMPOS_SEPARAXSEPENCCAMPOS_ENCABEZADOXTITULO CAMPOS_TITULOCAPTIONXOTRA_PLANILLAXCOPYHAYERROR MAXFIELDSXDATAMENSAJEP_SYSTEM CRYSTAL_MDBAVANCEXOPENCURRENTDATABASEQUITXLIBROS XMAXFIELDSNEWFILE_LOCAL_TMPXTMPPATHXTMPFILEXFIELDSDOCMDTRANSFERDATABASE CURRENTDB TABLEDEFSFIELDSNAMECLOSECURRENTDATABASE SHELLEXECUTESHELL32DLLXERROR%CoControlbO9 T o,TCObjeto_ControladorObjetos TC(,TCObjeto_ControladorObjetos% TCa  BU XCICLOOOBJOCONTROLXRET CRYSTAL_PARAMTHISFORM CRREPORTEOEXTHISPARAM_OBJETOS_APLICAR N!(CJS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf F TC(ByCProblemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!  T " ( *(C   )%CC   8(CC   #TCC  {!(CwS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf s TC(oC*Subreporte: Problemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!! UXFORMULANITTHISFORM CRREPORTE FORMULAFIELDS FORMULA_DATANAMETEXTOCATCHMENSAJECRSUBREPORTOBJECTZSECTIONSCOUNTY REPORTOBJECTSKINDX OPENSUBREPORTDATABASETABLES RPTOBJECT.4QSTRINGQSTRINGQINTEGERG+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-(BTCN%TT%C6CTTT aU XNAMEXFORMULAXPOSDEY_FUNCTHIS FORMULA_COUNTTHISFORM FORMULA_DATA CHK_VALUE FORMULA_USAR#Q EXPORTACIONESimp_exp'TC exportacionesimp_expT%TCC C  C TC CollectionNBaU OEXPIMP_EXPXPARARCHIVO_SALIDA_RENOMBRATHISFORMTHISXLS_COLL_PARAMCOUNTXLS_COLL_GETNEWADDPARAMETROS_COLLEXPORTAR_XLS_COLLxG~(Clases(TCExportaciones_parametrosN% hC BUXNO_LEER_CRYSTALXPARDO_LEER_CRYSTALTHIS %C % TT$TCWWAPI IP\WWAPI.PRG?TCHKCUSOFTWARE\Solinges\GES\Reportes  TCC6'TC Archivo PDF:CPDF%C T  $TCWWAPI IP\WWAPI.PRGBCHKCUSOFTWARE\Solinges\GES\Reportes Ca  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDF 'TCCCPDF  TTT  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDFU XNOPREGUNTARXARCHIVOTHISFORM CRREPORTE XPDFPROMPT EXPORTOPTIONSDESTINATIONTYPE FORMATTYPEOAPIREADREGISTRYSTRINGNAME DISKFILENAMEWRITEREGISTRYSTRINGEXPORT OEX_EXPORTMENSAJE XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP U BOTON_ARRAY0&CC reporte.xlsUOCOLLADDODEYFUNCGET_PATHTC Collection Y"TCexcel.application\(gC/%CoEXCbO CoCollbO Ba T %C %C fC f~C'La planilla se encuentra en abierta !!!C 0Cierrela antes de intentar generarla nuevamente.C C   % -T aB-U OXLSOEXOCOLLOWBOEXCTHISFORMXLS_A_USAR_PEDIR WORKBOOKSTYPEOXTXTFULLNAMEMENSAJEVISIBLE$#%SCH  [%NC B  T CX T*|GetShortPathNamekernel32TC  %TCCC =C  T BU XFILEXFINALP_EMPTHISCHK_LONGVALUEP_DEVMENSAJEXLNXPATHGETSHORTPATHNAMEKERNEL32 Ta C(CIniciando datos... C C C TC %CxdestinobCT%.DBF TC.dbf ( T( P% L$CDestino invlido : %  )%CoEstadobO C   T- BU XNO_RELEASEXDESTINOXARCHIVOTHISFORMMANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONEXPORTAR_DEFINICION_COLUMNASARCHIVOOCOPYXXXP_DEVMENSAJERELEASETYPEOMQINTEGERQBOOLEANQSTRINGQBOOLEANQINTEGER%CxabrirbN} TTaT TaH  T-TC  "  TC  tT Ta  TC  T-   c%   BU XTIPO_REPORTE XNO_RELEASEXTABLA XMANTENERXABRIRXRETURNTHISFORMMOSTRAR_EXTERNOMANTENER EJECUTAR_SQL BTNVISUALIZARCLICKARCHIVOTHIS XLS_ABRIR AUTOMATIZADO BTNEXPORTAR XPDFPROMPTBTNPDFRELEASE% QOBJECT7T   T -T -T -T -T -T -T -T aT UVNEWVAL BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVBTNTXTENABLED BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNSALIRTHIS SOLO_SALIR T@ TT T T T%TCC 8 %CGTCCG  BUXCOLUMNAXINIXLAPXFINXSTRXCOLXCURg;QGUARDAR_PARAMETROS_CRYSTALform_controles.vcx 'T %C #FQ \rptparam wr tmprptparam  CEjecucin tipo CC Z C] F Q(5%C tmprptparam`F QUOPARAMFORM_CONTROLESVCXOEXTHISFORM PARAMETROSPAR_LEERREP_IDP_SYSTEM TMPRPTPARAM PUB_INDEXP_CODEMP TIPO_REPORTE VAL_TEXTOSb<%CoEstadobOCoEstadobOC  JB-CUXTEXTOOESTADOAVANCEa<%CoEstadobOCoEstadobOC  JB-TUXTEXTOOESTADOTEXTOa<%CoEstadobOCoEstadobOC  JB-TUXVISIBLEOESTADOVISIBLEX /T@CC 8 C 86!TC@C 6T@CG"TC@zC 6T     T CT T-TTT- eT(s F T  T  T CN+ qT  wCOPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 T T  T   T T (  C _CCZTj ACCC6Z:CCC 6Z!ATC C6CC" C#T  $%$T T 7T ATU&XALIASXEXCEL XPLANILLA_AUXXFIELDS XMAXFIELDSX1X2XRANGO XRECCOPIADOXPLAN XRECACTUAL XRECFALTAXDISPLAYALERTSXPATH XLIBROBASEXLIBROMVOEXXCL1XCL2ODEYFUNCNEWFILE_LOCAL_TMP DISPLAYALERTSXVISIBLEVISIBLEXTOPTOP WORKBOOKSADDCOUNTNITOPENSHEETSRANGECOPYCELLS PASTESPECIALCLOSESAVEAS4%-TUXTEXTOP_DEVTHISFORMCAPTION!TUXTEXTOTHISFORM LOG_EJECUCION^.| ShellExecute Shell32.DLL&CopenCCUXARCHIVO SHELLEXECUTESHELL32DLLb-TCC lnMillisecsbN6|SleepWIN32APICBU LNMILLISECSSLEEPWIN32APITCCPRINTv TTT T C TTT T U XIMPRESORAXPAPERORIENTATION XPAPERSIZE XPAPERSOURCEXPRINTERDUPLEXTHISFORM CRREPORTEPAPERORIENTATION PAPERSIZE PAPERSOURCE PRINTERDUPLEX SELECTPRINTER, T-T-UTHISFORMCRVISTARELEASE CRREPORTE CRAPLICACIONlTC -   T&%C C3 $ \%C4TCC 6: Hasta C* X%C3 $ 8TCC 6: Desde C* T@TCC 6: C* al C* BU XVARIABLE XSEPARADORXTXTXDXHXRES QCRYSTAL clases.vcx %CPlantillas_XLS )%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C"Q\plantillas_xls%C > T  5  :% $C plantillas_xlsID_Form  T =sys_editar_reportes_excel_arbol(  a% B-%   2QEXPORTACIONES_PARAMETROS IMP_EXP.vcx6TCExportaciones_Parametros IMP_EXP.VCXC C UOFORMCLASESVCXP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONTYPEOTHISFORMXCOD_PLANTILLAXRESP_XLS_MOSTRAR_SELECCION_MODELOSTHISID_FORMULARIO_EVALUADOSYS_EDITAR_REPORTES_EXCEL_ARBOLCAMPOS_PARAMETROS_ORIGINALOPARIMP_EXPPLANTILLA_LEERDO_APLICAR_CRYSTALo QCRYSTAL clases.vcx%C B T %CPlantillas_XLS >)%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C "Q\plantillas_xlsC C UOFORMCLASESVCXTYPEOTHISFORMP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONCAMPOS_PARAMETROSDO_LEER_CRYSTALCAMPOS_PARAMETROS_ORIGINALCLONARSE BUTHIS ID_FORMULARIO BUTHISFORM ID_FORMULARIO:%C'T BUTHIS ID_FORMULARIOTHISFORMNAMEg QCRYSTAL clases.vcx%C B TCUOFORMCLASESVCXTYPEOTHISFORMTHISCAMPOSTCUTHIS BACKCOLOR SYS_COLOR!QLOGUEAR sys_log.prg%C <TCloguear sys_log.prgCC  %  % >%CCCampoNombrea !(C :/CCC C   (TC!(C/CCCC (CUOLOGSSYS_LOGPRGOPARNITNIT2PI_XLS_EXPORTAR_CAMPOSTHISINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOINICIALIZAR_COLUMNAS_EXTERNOLOGTHISFORMCAMPOSXLS_COLL_PARAMCOUNTITEM EX_XLS_CAMPOSOEX LOG_EXCEPCION% %Catablesy%(CatablesFCQCT- CUTHIS DATASESSIONATABLESZCAMPOS_PARAMETROSDISPOSE4 C$T UTHISFORMACOMODAR_BOTONESCHK_LONGTOPHEIGHT C=TC Exportaciones_Parametros_FormatoIMP_EXP!T###,###,##0.005TCExportaciones_ParametrosIMP_EXP5TCExportaciones_ParametrosIMP_EXPG~(clasesG+(listadosTNT CXT CXT TT CXT CXTCXTCXT-TCXTCXTTT TTCXTCXTCXTCXTCXTTTTCXT CXT!-T"C XT#C XT$aT%T&NT'CXT(CXT)T*NT+C$T,T-BAT.T/BAT0CXT1CXT2CXT3T4T5T6T7T8T9T:T;T<T=T>T?T@TASTBNTCSTDTETFCXTGCXTH TI-TJ TKTLNTM-TNTOTPTQTRTS-TTSTUSTVTWTXYZT[T\ T]T^NT_T`TaTbTcaTdNTeNTfTgThTiTjTkTlTmTnToTpTqTr-Ts-Tt-Tu-Tv-Tw-Tx-Ty-Tz-T{-T|-T}-T~-T-T-T-T-T-T-T- CUSETSTHISFORMCAMPOS_FORMATO NUM_FORMATCAMPOS_PARAMETROSCAMPOS_PARAMETROS_ORIGINALCLASESLISTADOSXDACTXDAGEXHAGEXDASIXDATRXHATRXDBIEXHBIEXDBONXDBULXHBULXDCATXHCATXDCAUXDCLASEXDCLIXHCLIXDCODXDCENXHCENXDCFCXHCFCXDCOSTOSXDCOSXHCOSXDCTRXDCUEXHCUEXDDATXDDECXDDIVXDDEPXHDEPXDDSCXDDSEXDFCSXDFECXHFECXDFEC1XHFEC1XDFLEXHFLEXDFORXDGRUXHGRUXDSUBGRUXHSUBGRUXDIMPXHIMPXDLINXHLINXDLISXHLISXDLVAXDMONXDMOTXHMOTXDMOVXDNOTXDNUMXDORDXDPAIXDPROXHPROXDPRVXDREMXDRESXDRSMXDSALXDSCDXDSCEXHSCEXDSEPXDSGRXHSGRXDSPGXDSTKXDSUBXDSUCXHSUCXDSEROLOTDATA_CODIGO_VACIOXDTARXDTCPXDTIPXDTOTXDTVAXDULTXDUNIXDVALXDXBAXDXCCXDXCPXDZONXHZONXDNUM1XHNUM1XDNUM2XHNUM2XDNUM3XHNUM3XDNUM4XHNUM4XDNUM5XHNUM5XDLOG1XHLOG1XDLOG2XHLOG2XDLOG3XHLOG3XDLOG4XHLOG4XDLOG5XHLOG5XDLOG6XHLOG6XDLOG7XHLOG7XDLOG8XHLOG8XDLOG9XHLOG9XDLOG10XHLOG10 ASIGNAR_COLORhJ(TT CT-  T  T + C >%CC \9 T C [ T  T  ( %9T .xls WT aUTHISFORMFILES_TO_DELETE MINHEIGHTHEIGHTMINWIDTHWIDTHACOMODAR_BOTONESTHISMANTENERXCAPTIONCAPTIONZNAMEONADAXLS_ARCHIVO_AUTOMATICO XLS_ARCHIVOOSQLOSQLCON UTHISFORM DELETE_FILES %C) T%{TTa CT-  BCUNSTYLE XTIPO_REPORTETHISFORM TIPO_REPORTETMRCLICKENABLEDTHISVISIBLEfile_to_delete0 delete_filesimprimir_crystal imprimir_vfpimprimir_reporte_vfpimprimir_tabla_viejo imprimir_xlspreprocesar_impresiondPpostprocesar_impresionQ param_aplicar>Stables_loc_adv_aplicaBVimprimir_textoT\acomodar_botones^ param_agregar^dcampos_agregarf validar_datosjdebug_time_iniciarjdebug_time_finalizar,kimprimir_xls_viejokimprimir_tablakparam_objetos_aplicarformula_aplicarformula_agregarimprimir_xls_externoעxls_coll_getnewt imprimir_pdf#reacomodar_botonesxls_a_usar_pedirxls_a_usar_revisarr get_shortpath֬ ejecutar_sqlgejecutar_externosolo_salir_assignܳ xls_columnagrabar_ejecucion̶ estado_avance˸ estado_textoNestado_visibleϹimprimir_xls_largosTagregar_captionagregar_log_ejecuciond abrir_pdfsleep:asignar_impresoracerrar_visualizador\formato_rango_fechasseleccionar_columnasdpre_seleccionar_columnas.id_formulario_evaluado_accessQevaluar_id_formulario}id_formulario_accesspos_seleccionar_columnas asignar_colorexportar_definicion_columnasDestroyResizeLoad^Init{UnloadShow1qAAAAAAB311BAB3sAAAAAA1WqASAAC1Aqaq11AaAAq41"QAAAAAAe'sBAqAB111B1BAA!A1AAA)AtAAA!A$A2A!_ b!AABA2AAB23q6q"A2Ar4AA!ArrA4@#A"A"AAB1qAAAqqAqqAq1AAq1AAAQrhAbAqAAaaArq!A!AA1AAA11AAB2DAAqAAqAAABC"q!AAA"AA" !BA!AAraA1AqqqAAAqAAq14vABAR1qAAA2aqQ!A1!A1!AA"!ADrArAaBAAARAABvb!xqa1BqQAA5QAAArA!a1qQqArAAAABQACAArA!a1qQqArAAAArQ!a1qQqArAAAraA!a1qQqArAAAB5BvQAAAaQaaaaAbraQAAA11AAACCBAAC?qraQA221CqB4CR1C  AAAAA4S1A11aAqAAAAAA"1A11aA1qAAAAAAAAA3A"1aAAqRAA3rcaaaaaaaaa!Ar!AArr!rq24q9sA"AA1qAaAA3A""AAa1qAA!AA"A2q2AA3A2"aAARAqAqAAAA!!AAArAaA$AAq2D"AA"AAr!AAAAAAAqAA22ru1A2Q1!ABBb!q1!!!aAAAaqABBAva1qBqr3b3qA2!A2ADqCBABF!aAaaa!!A!!q!!aaqq!qq!qq!qq!!qq!Aqq!1!aAaaaaaA:@B1qAAAqqAqqAq1AAAQtB#AA"AqABAAA"q!AAA"AA" AAr2!A!AAqAA2AAAa1!ABaQAAr1qA2!A2ADqCBAB9qqAq!AA>q2AAAB"1A2RAAAAAAAA2"AA1qAA32qr1AABAAq2qqA3QaaCq"aA!A BAqaaa BBA3q2qb21!AqAAAAAAqAAAA5qq1AA1A2qBqA!AAABAA2qB1Q1A1A11AA3qrrA!3qr2BA2qQxrAABqAA4qqA2qqA2qqA2qb!qAAqA11G6A1A3qqA2qr3qb2qA5q12111211127qbrbAAAA3A"AQAqA"aAA3QAA"ABa332B1A3QA22!!A1QAAAAAA3aUQQrQ!AABA3A3RQ!"!"!"!"!"!""!"!"!"!baba"!""!2b221qaAAA!AA>=A1A2`+&+>,{i,..U1 x1oJ‰cy‹9eGlӜĨe9E[it]a[eG X# zK+ vE sZ h 9P w     :A I9\W Y!m l"" r"6# x[## ~$*, P,, ,(- H-d. ./ F/1 13( A3554 `5>9K m9y;l ;; '<E< p<= ?== => !L>B <BD MDE P-EV V Z 'ZZ  [[ )arbol archivoreporte craplicacion crreporte crvista nombregrupo Texto que aparece en cada grupo. Ej: "Vendedor : " codigogrupo Identificador del grupo. Ej: {rptclientes.vendedor} descripciongrupo Texto describe al identificador. E: {rptclientes.anombre} ordengrupos Formula para el orden en que aparecen los grupos crdescripciongrupo Descripcion del grupo para el drilldown. titulo1 Titulo del listado titulo2 Titulo del listado (2 linea) xdcli xhcli xdfec xhfec xdult xdage xhage xdzon xhzon xdcat xhcat xdlis xhlis xdord xdtip xdsep xdfor xdnot xdsal xdpai xdprv xdsuc archivotemporal xdbie xhbie xdfle xhfle xdpro xhpro xdbul xhbul xdatr xhatr xdgru xdlin xhgru xhlin xdcue xhcue xdcos xhcos xddep xhdep xdval xddsc xdstk xddec xdact xdlva xddse xdser xdtar xduni xdsub xdtva xdsgr xhsgr xdfcs xdsce xhsce xdcau xdasi xddiv xdcod xdimp xhimp xdmon xdres xdtcp xdnum xdcen xhcen xdmov xdtot xdxcc xdxcp planillaxls Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en XLS.El formato es p_system\prt\+archivotemporal+_F_+* xdxba xdcfc xhcfc xhsuc xdmot xhmot xdbon xdspg xddat xdrem xdctr xdscd xdcostos xdclase xdlog1 xhlog1 xdlog2 xhlog2 xdlog3 xhlog3 xdlog4 xhlog4 xdlog5 xhlog5 xdnum1 xdnum2 xdnum3 xdnum4 xdnum5 xhnum1 xhnum2 xhnum3 xhnum4 xhnum5 xdped xhped xdlog6 xdlog7 xdlog8 xdlog9 xdlog10 xhlog6 xhlog7 xhlog9 xhlog8 xhlog10 mantener fecha Flag que decide la impresin de la fecha en el reporte xdfec1 param_usar dontchangenothing tables_use_loc_adv hlpidu archivotexto txt_autogenerar xls_autogenerar xdrsm param_count campos_count xls_totalizar xls_totalizar_formato xls_number_format tipo_reporte Especifica el tipo de reporte solicitado. imprimir_xls_usar_viejo Especifica si se va a usar el procedimiento viejo de exportacion a excel campos_separa Frmula a utilizar en el EVALUATE para determinar si hay separacin. campos_encabezado Frmula a utilizar en el EVALUATE para poner el encabezado de la separacin campos_titulo campos_orden planillamdb Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en Access. El formato es p_system\prt\+archivotemporal+_F_+* imprimir_tabla_usar_viejo param_objetos_usar xhfec1 formula_usar formula_count xls_abrir 0=Consulta si abre en el EXCEL, 1=Abre directamente, 2=No abre ni consulta, solo lo genera, 3=Lo genera y pregunta dnde lo guarda, 4=Lo genera y pregunta dnde lo guarda pero no abre crystal_no_report .t. = No hy una versin para crystal de este reporte (para diferenciarlo de la inexistencia del archivo rpt) xdnum6 xhnum6 param_noerror imprimir_xls_usar_externo Especifica si usa el procedimiento externo de exportacin a excel. xls_coll_param xdtot_fin xdtot_sep filtros_mostrar filtro_parametro Parametro al cual se pasa el texto del filtro xdfec2 mostrar_externo manter_oestado exportacion xls_archivo xls_archivo_automatico xls_archivo_preguntar xhsubgru xdsubgru xdsprgru xhsprgru cr_showtop xfecha_reporte solo_salir campos_formato xpdfprompt xpdfarchivo xdtipo_art ayuda_web xhfec2 xdnum7 xhnum7 crversion crystal_tamao document_id log_ejecucion xdnum8 xhnum9 xhnum8 xdconsolidado titulo1_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, titulo2_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, oestado sininterfaz osql Contenedor del objeto para conexin SQL suspender archivo_salida_renombra log_path xhmar xdmar campos_parametros campos_parametros_original id_formulario id_formulario_evaluado plantillas_xls_habilitado id_formulario_ultimo automatizado version_reporte ^archivo[10,0] ^files_to_delete[30,0] *file_to_delete *delete_files *procesar *imprimir_crystal *imprimir_vfp *imprimir_reporte_vfp *imprimir_tabla_viejo *entorno Establece el entorno de impresin, por ejemplo las relaciones y las rutinas de soporte. *procesar_impresion *imprimir_xls *inicializar_columnas Asigna los rtulos y los campos a las columnas de excel. *preprocesar_impresion *postprocesar_impresion *pre_impresion ^arr_1[20,0] *param_aplicar *tables_loc_adv_aplica *imprimir_texto *acomodar_botones *param_agregar *campos_agregar *validar_datos *debug_time_iniciar *debug_time_finalizar *imprimir_xls_viejo Procedimiento viejo de exportacion a excel *imprimir_tabla *param_objetos_aplicar *formula_aplicar *formula_agregar ^formula_data[10,2] *imprimir_xls_externo Invocacin al procedimiento externo de exportacion a excel. *inicializar_columnas_externo Asigna los rtulos y los campos a las columnas de excel PARA EL GENERADOR EXTERNO. *xls_coll_getnew *imprimir_grilla *imprimir_pdf *reacomodar_botones Llamado luego de asignar el orden por defecto de los botones, para permitir manipularlos. *xls_a_usar_pedir Solicita los libros a controlar si estn libres para la exportacin. *xls_a_usar_revisar Controla si los reportes a usar estn libres para la exportacin. *get_shortpath Obtiene el Path corto de un archivo *ejecutar_sql *ejecutar_externo *ejecutar_parametros En este mtodo cada subclase debera poder manejar sus parmetros cuando se los pasa de forma externa. *exp_tabla_plano *xls_columnas_auto No tocar el contenido, se genera automticamente! *show_and_play *solo_salir_assign ^param_data[20,2] *xls_columna ^campos[255,10] *grabar_ejecucion *estado_avance *estado_texto *estado_visible *imprimir_xls_largos *agregar_caption *agregar_log_ejecucion *abrir_pdf *solo_impresion_antes *sleep *asignar_impresora *cerrar_visualizador *formato_rango_fechas *seleccionar_columnas *pre_seleccionar_columnas *id_formulario_evaluado_access *evaluar_id_formulario *id_formulario_access *pos_seleccionar_columnas *asignar_color *log_aut *exportar_definicion_columnas  commandbutton commandbutton btnvisualizarcrystalAutoSize = .F. Comment = " " Top = 48 Left = 84 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\preview2.ico DownPicture = bmp\preview2_h.ico Caption = "" TabIndex = 201 ToolTipText = "Impresin en pantalla o impresora" Name = "btnvisualizar" ?PROCEDURE RightClick LOCAL xText xText="Versin Crystal: " + Thisform.crversion + CHR(10) xText=xText + "Formulario: " + SYS(1271, thisform)+ CHR(10) xText=xText + "Archivo Reporte: " + Thisform.archivoreporte+ CHR(10) xText=xText + "Log Ejecucin: " + Thisform.log_ejecucion + CHR(10) =mensaje(xText) IF mensaje_sino("Desea editar el reporte?",2) THEN DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow xerror=ShellExecute( 0, "open", JUSTFNAME(Thisform.archivoreporte), "", JUSTPATH(Thisform.archivoreporte) , 1) ENDIF ENDPROC PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=1 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() store .f. to thisform.param_data set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC ,"e%M%pU\+TVersin Crystal: C -T Formulario: C]C /TArchivo Reporte: C -TLog Ejecucin: C C.%CDesea editar el reporte?U.| ShellExecute SHELL32.DLL0T CopenCCU XTEXTTHISFORM CRVERSIONARCHIVOREPORTE LOG_EJECUCIONMENSAJE MENSAJE_SINO SHELLEXECUTESHELL32DLLXERROR8T T T T-5TC% jB- C C C %.rpt  C  C  C CJ-( G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS RightClick0Click 1qB2rqAA2 4) commandbutton commandbuttonbtnsalircrystalTop = 48 Left = 493 Height = 48 Width = 48 FontBold = .T. Picture = bmp\exit.ico DownPicture = bmp\exit_h.ico Caption = "" TabIndex = 205 ToolTipText = "Salir" Name = "btnsalir" PROCEDURE Click IF TYPE("thisform.archivotemporal")="C" IF !THIS.PARENT.keep.VALUE IF TYPE("thisform.archivotemporal")="C" IF USED(THISFORM.archivotemporal) SELE (THISFORM.archivotemporal) USE ENDIF IF FILE(p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') DELETE FILE (p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF ELSE =MESSAGEBOX("El archivo temporal es "+p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF THISFORM.RELEASE ENDPROC e"LL%UP.%Cthisform.archivotemporalbC?% .%Cthisform.archivotemporalbC%C FQ)%C\tmp\.dbf0#\tmp\.dbf ;?CEl archivo temporal es \tmp\.dbfx UTHISPARENTKEEPVALUETHISFORMARCHIVOTEMPORALP_LOCALRELEASEClick01AAA1AAAA2)LcheckboxcheckboxkeepcrystalTop = 24 Left = 300 Height = 17 Width = 176 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Mantener el archivo temporal" Value = .F. ControlSource = "thisform.mantener" TabIndex = 200 Name = "keep"  commandbutton commandbutton btnexportarcrystalTop = 48 Left = 291 Height = 48 Width = 48 FontBold = .T. WordWrap = .T. Picture = bmp\excel.ico DownPicture = bmp\excel_h.ico Caption = "" TabIndex = 204 ToolTipText = "Exportar al Excel (MR)" Name = "btnexportar"  PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=4 ximpresion=.F. LOCAL oEx, xMSG, xCancelar PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.xls_coll_param=CREATEOBJECT("Collection") IF THISFORM.xls_a_usar_revisar() THEN =THISFORM.inicializar_columnas() IF NOT THISFORM.imprimir_xls_usar_externo THEN =THISFORM.Pre_Seleccionar_columnas(THISFORM) ENDIF =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.inicializar_columnas_externo() *=sys_m("Click") IF THIS.PARENT.VISIBLE AND NOT p_SinInterfaz AND NOT THIS.PARENT.automatizado AND NOT THISFORM.imprimir_xls_usar_externo xCancelar=THISFORM.seleccionar_columnas(THISFORM) IF xCancelar THEN RETURN .F. ENDIF ENDIF TRY =THISFORM.imprimir_xls() CATCH TO oEx IF p_SinInterfaz THEN xMSG=err_hand_oex(oEx) IF NOT EMPTY(THIS.PARENT.Log_path) THEN =STRTOFILE(REPLICATE("*",80),THIS.PARENT.Log_path,1) =STRTOFILE("Fecha: "+TTOC(DATETIME()),THIS.PARENT.Log_path,1) =STRTOFILE(xMSG,THIS.PARENT.Log_path,1) ENDIF ELSE THROW ENDIF ENDTRY =THISFORM.Pos_Seleccionar_columnas(THISFORM) =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() ENDIF SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 ENDPROC PROCEDURE RightClick *=sys_mostrar_screen("EXP_SQL",.T.) =this.Parent.btntabla.RightClick (.t.) do sp_mensaje ; in sys_procesando ; with "Iniciando subida SQL" LOCAL oSQL, xTabla, xAut, xMensaje xMensaje="" oSQL=thisform.osql LOCAL xOK, oEX, oEX2 IF TYPE("oSQL")#"O" THEN DO Obtener_SQL IN sys_clases_conexion WITH oSQL ENDIF do sp_mensaje ; in sys_procesando ; with "Conectado al SQL" IF NOT oSQL.Conectar() THEN IF NOT xAut THEN =Mensaje(oSQL.mensaje ) ENDIF ENDIF IF "\TMP\"$UPPER(THISFORM.archivotemporal) xTabla = THISFORM.archivotemporal ELSE xTabla = p_local+'\tmp\'+THISFORM.archivotemporal ENDIF TRY do sp_mensaje ; in sys_procesando ; with "Realizando el envo" xOK = oSQL.SQL_Subir_Tabla(,xTabla, , , , @oEX2) CATCH TO oEX xOK=-1 ENDTRY IF xOK=-1 THEN TRY xMensaje= oEX2.USERVALUE.MESSAGE CATCH TRY xMensaje= oEX2.MESSAGE CATCH xMensaje= oSQL.Mensaje ENDTRY ENDTRY IF NOT xAut THEN =Mensaje(xMensaje) ENDIF ENDIF thisform.osql = oSQL do sp_ocultar_definitivamente ; in sys_procesando RETURN xOK ENDPROC  " % ]UT T T T-5TC % yB-T C CollectionN%C q C % C C C C6%   nTC%jB-  C(B%0TC%C ,CC*PQ&CFecha: CCC >C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONOEXXMSG XCANCELARXOK VALIDAR_DATOSXLS_COLL_PARAMXLS_A_USAR_REVISARINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOPRE_SELECCIONAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONINICIALIZAR_COLUMNAS_EXTERNOPARENTVISIBLE P_SININTERFAZ AUTOMATIZADOSELECCIONAR_COLUMNAS IMPRIMIR_XLS ERR_HAND_OEXLOG_PATHPOS_SELECCIONAR_COLUMNASGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSCa3sys_procesandoIniciando subida SQL T T    %CoSQLbO"sys_clases_conexion/sys_procesandoConectado al SQL%C -% )C%\TMP\C f^T  T\tmp\  2sys_procesandoRealizando el envoT C ( T %  3T   u WT   qT % C T sys_procesando B UTHISPARENTBTNTABLA RIGHTCLICK SP_MENSAJESYS_PROCESANDOOSQLXTABLAXAUTXMENSAJETHISFORMXOKOEXOEX2 OBTENER_SQLSYS_CLASES_CONEXIONCONECTARMENSAJEARCHIVOTEMPORALP_LOCALSQL_SUBIR_TABLA USERVALUEMESSAGESP_OCULTAR_DEFINITIVAMENTEClick0 RightClick1qqA22AcRqAA!aAAABA3C44!ABABA#BB1AAAA11 J)  commandbutton commandbuttonbtnTablacrystalAutoSize = .F. Top = 48 Left = 188 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\access_32.ico DownPicture = bmp\access_32_h.ico Caption = "" TabIndex = 203 ToolTipText = "Exportar a una tabla" Visible = .F. Name = "btnTabla" PROCEDURE Init =dodefault() this.Visible=p_crystal_access ENDPROC PROCEDURE RightClick LPARAMETERS xNoBrowse IF NOT p_dev THEN RETURN .F. ENDIF THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() IF NOT xNoBrowse THEN **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF NOT THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF ENDIF =THISFORM.grabar_ejecucion() =THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC ("g%94U CTUTHISVISIBLEP_CRYSTAL_ACCESSY% B-T T T T-5TC% B- C C C % % C  C C C G( CTTU XNOBROWSEP_DEVTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETST T T T-5TC% jB- C C C % C  C  C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAPOSTPROCESAR_IMPRESIONP_SERVERSETSInit0 RightClickuClick12qqArqA2AA3rqA#A2>_E"a2) commandbutton commandbutton btnimprimircrystalAutoSize = .F. Top = 48 Left = 136 Height = 48 Width = 48 FontSize = 7 WordWrap = .F. Picture = bmp\print2.ico DownPicture = bmp\print2_h.ico Caption = "" TabIndex = 202 ToolTipText = "Impresin en pantalla o impresora" Name = "btnimprimir" PROCEDURE Click *=sys_mostrar_screen("impr",.t.) this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=2 ximpresion=.t. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC PROCEDURE RightClick thisform.suspender = .t. ENDPROC R"99r%U*T T T Ta5TC% jB- C C C %.rpt  C  C  C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSTaUTHISFORM SUSPENDERClick0 RightClickY1rqAA31|')9 commandbutton commandbuttonbtntxtcrystalTop = 48 Left = 32 Height = 48 Width = 48 WordWrap = .F. Picture = bmp\txt_2.ico DownPicture = bmp\txt_2_h.ico Caption = "" ToolTipText = "Generacin del archivo de texto" Visible = .F. Name = "btntxt" PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=6 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() thisform.procesar_impresion() IF thisform.txt_autogenerar THEN thisform.gen_txt.generar () ENDIF thisform.imprimir_texto () =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC "%*g9UT T T T-5TC% jB- C C% C  C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONTXT_AUTOGENERARGEN_TXTGENERARIMPRIMIR_TEXTOGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01rqA"A2) generador_txt clases.vcxcustomgen_txtcrystal&Top = 48 Left = 0 Name = "gen_txt"  generador_xls clases.vcxcustomgen_xlscrystal]Top = 48 Left = 494 Height = 24 Width = 24 campos_desde_crystal = .T. Name = "gen_xls"  commandbutton commandbutton btnGrillacrystalAutoSize = .F. Top = 48 Left = 239 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\table.ico DownPicture = bmp\table_h.ico Caption = "" TabIndex = 203 ToolTipText = "Mostrar una grilla con los datos" Visible = .F. Name = "btnGrilla" oPROCEDURE Click lparameters xno_visualizar * xno_visualizar = .t. = No muestra nada, solo genera los datos THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=6 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() if !xno_visualizar =THISFORM.Imprimir_grilla() endif =thisform.grabar_ejecucion() THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC "MK%0o?UT T T T-5TC% qB- C C C % C  C C G( CTTUXNO_VISUALIZARTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_GRILLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01qrqAA2d)exportaciones_filtros clases.vcxcustomFiltroscrystal'Top = 24 Left = 36 Name = "Filtros"  commandbutton commandbuttonbtnpdfcrystalAutoSize = .F. Top = 48 Left = 343 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\pdf.ico DownPicture = bmp\pdf_h.ico Caption = "" TabIndex = 201 ToolTipText = "Impresin en pantalla o impresora" Name = "btnpdf" PROCEDURE RightClick RETURN this.Parent.btntabla.RightClick () ENDPROC PROCEDURE Click LPARAMETERS xnoabrirpedf LOCAL xArchivo THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=7 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.solo_impresion_antes() *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 =THISFORM.imprimir_crystal() *=sys_mostrar_screen("PDF",.T.) IF EMPTY(THISFORM.xpdfarchivo) THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ELSE *!* IF FILE(THISFORM.xpdfarchivo) THEN *!* xhnd=FOPEN(THISFORM.xpdfarchivo, 12) *!* IF xhnd#-1 *!* =FCLOSE(xhnd) *!* ELSE *!* THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ENDIF *!* ENDIF ENDIF *** Manejo del objeto CRVista para grabar en PDF =THISFORM.imprimir_pdf(.T., THISFORM.xpdfarchivo) *=thisform.solo_impresion_despues() =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() STORE .F. TO THISFORM.param_data SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 IF !xnoabrirpedf =THISFORM.Abrir_PDF(THISFORM.xpdfarchivo) ENDIF *!* this.MousePointer= 11 *!* thisform.MousePointer= 11 *!* thisform.tipo_reporte=7 *!* ximpresion=.f. *!* PRIVATE xok *!* xOK=thisform.validar_datos() *!* IF NOT xOK then *!* RETURN .f. *!* ENDIF *!* thisform.preprocesar_impresion() *!* =thisform.procesar_impresion() *!* *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 *!* =thisform.imprimir_crystal() *!* *** Manejo del objeto CRVista para grabar en PDF *!* =thisform.imprimir_pdf() *!* =thisform.grabar_ejecucion() *!* thisform.postprocesar_impresion() *!* store .f. to thisform.param_data *!* set default to (p_server) *!* =sets() *!* this.MousePointer= 0 *!* thisform.MousePointer= 0 ENDPROC "%9"\UBCUTHISPARENTBTNTABLA RIGHTCLICKT T T T-5TC% xB- C C C C %C T CPDFCa  C CJ-( G( CTT% xC U XNOABRIRPEDFXARCHIVOTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESIMPRIMIR_CRYSTAL XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP IMPRIMIR_PDFGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS ABRIR_PDF RightClick0Clickr112qrrqACJC1A1?[)guardar_parametros_crystalform_controles.vcxcustom Parametroscrystal=Top = 4 Left = 60 par_habilitado = 0 Name = "Parametros" rPROCEDURE mostrar_guardados LPARAMETERS xUltimo DO FORM sys_parametros_guardados WITH this, xUltimo ENDPROC "6t%U2(sys_parametros_guardadosUXULTIMOSYS_PARAMETROS_GUARDADOSTHISmostrar_guardados01q1g) commandbutton commandbuttonbtnParamcrystalTop = 48 Left = 442 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\archivo.ico DownPicture = bmp\archivo_h.ico Caption = "" TabIndex = 201 ToolTipText = "Guardar los parmetros del reporte" Visible = .F. Name = "btnParam" PROCEDURE RightClick thisform.parametros.mostrar_guardados(.t.) ENDPROC PROCEDURE Click thisform.parametros.mostrar_guardados ENDPROC U"<<%UCaUTHISFORM PARAMETROSMOSTRAR_GUARDADOS UTHISFORM PARAMETROSMOSTRAR_GUARDADOS RightClick0Clicku121@\)<checkboxcheckboxchk_longcrystalTop = 84 Left = 7 Height = 13 Width = 13 Alignment = 0 Caption = "Check1" Value = .F. Visible = .F. Name = "chk_long" pPROCEDURE Init this.Visible = (p_dev .and. p_emp="SCH") this.Enabled = (p_dev .and. p_emp="SCH") ENDPROC "g%UAT SCH T SCH UTHISVISIBLEP_DEVP_EMPENABLEDInit012e)checkboxcheckboxckFechacrystalTop = 24 Left = 24 Height = 17 Width = 162 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Imprimir fecha de emisin" Value = .F. ControlSource = "thisform.fecha" TabIndex = 200 Name = "ckFecha" PROCEDURE Init ENDPROC " %;MIUUInit013)timertimertmrClickcrystal_Top = 0 Left = 36 Height = 25 Width = 25 Enabled = .F. Interval = 100 Name = "tmrClick" PROCEDURE Timer this.Enabled=.f. _screen.Caption="Timer " thisform.Visible=.f. DO CASE CASE thisform.Tipo_Reporte = 1 thisform.btNVISUALIZAR.Click CASE thisform.Tipo_Reporte = 2 thisform.Btnimprimir.Click CASE thisform.Tipo_Reporte = 3 thisform.btntabla.Click CASE thisform.Tipo_Reporte = 4 thisform.automatizado = .t. thisform.btneXPORTAR.Click ENDCASE thisform.Visible=.t. _screen.Caption="Timer End" ENDPROC W">>x%U T-T9Timer T-HB e       T a  TaT9 Timer EndU THISENABLEDCAPTIONTHISFORMVISIBLE TIPO_REPORTE BTNVISUALIZARCLICK BTNIMPRIMIRBTNTABLA AUTOMATIZADO BTNEXPORTARTimer01RaaaaA4)> ayuda_wiki clases.vcximage Ayuda_wiki1crystalPAnchor = 9 Height = 20 Left = 504 Top = 0 Width = 20 Name = "Ayuda_wiki1" QPROCEDURE Init this.Top=2 this.Left=thisform.Width-22 dodefault() ENDPROC "N%U3TT CUTHISTOPLEFTTHISFORMWIDTHInit01q1F) commandbutton commandbuttonbtnPlantilla_ExcelcrystalTop = 48 Left = 394 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\excel_guardar_como.ico DownPicture = bmp\excel_h_guardar_como.ico Caption = "" TabIndex = 201 ToolTipText = "Guardar los parmetros del reporte" Visible = .F. Name = "btnPlantilla_Excel" 5PROCEDURE Init this.Visible = thisform.plantillas_xls_habilitado ENDPROC PROCEDURE Click IF NOT FILE(FORCEEXT(oDeyFunc.Get_path(5)+THISform.archivotemporal,"dbf")) THEN IF NOT Mensaje_SINO("Debe correr el reporte una vez antes de poder editar el modelo."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF ELSE IF thisform.id_formulario_ultimo #thisform.id_formulario_evaluado THEN IF NOT Mensaje_SINO("Se necesitan actualizar los datos generados anteriormente."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF endif ENDIF =THISFORM.inicializar_columnas() =THISFORM.Pre_Seleccionar_columnas(THISFORM) DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original =thisform.Pos_Seleccionar_columnas(Thisform) ENDPROC "vvH%UTUTHISVISIBLETHISFORMPLANTILLAS_XLS_HABILITADOD)%CCCdbf0 p!%C?Debe correr el reporte una vez antes de poder editar el modelo.C 7Desea correrlo ahora con los parmetros especificados?C C ;Recuerde usar filtros para agilizar la apertura del modelo.C 5Los datos se usan como ejemplo al momento de editarlo QB- lCa %%C:Se necesitan actualizar los datos generados anteriormente.C 7Desea correrlo ahora con los parmetros especificados?C C ;Recuerde usar filtros para agilizar la apertura del modelo.C 5Los datos se usan como ejemplo al momento de editarlo B- Ca C C 5sys_editar_reportes_excel_arbol C UODEYFUNCGET_PATHTHISFORMARCHIVOTEMPORAL MENSAJE_SINO BTNGRILLACLICKID_FORMULARIO_ULTIMOID_FORMULARIO_EVALUADOINICIALIZAR_COLUMNASPRE_SELECCIONAR_COLUMNASSYS_EDITAR_REPORTES_EXCEL_ARBOLCAMPOS_PARAMETROS_ORIGINALPOS_SELECCIONAR_COLUMNASInit0Click112qAqAAAR1B^*)vcrystalform20Class6..\misc\exchange\enviar\die-2005-01-28\bmp\reporte.icoPixelscrystalbArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 formformPixelscrystalDataSession = 2 Height = 101 Width = 566 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "" Closable = .F. MaxButton = .F. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 WindowState = 0 arbol = .F. archivoreporte = crreporte = nombregrupo = codigogrupo = descripciongrupo = ordengrupos = crdescripciongrupo = titulo1 = titulo2 = archivotemporal = xdbul = o planillaxls = xdnum1 = 0 xdnum2 = 0 xdnum3 = 0 xdnum4 = 0 xdnum5 = 0 xhnum1 = 0 xhnum2 = 0 xhnum3 = 0 xhnum4 = 0 xhnum5 = 0 xhlog10 = .F. fecha = .T. hlpidu = (Space(10)) archivotexto = ('') param_count = 0 campos_count = 0 xls_totalizar = .F. xls_totalizar_formato = ('###,###,##0.00') xls_number_format = ('') tipo_reporte = 0 campos_separa = ('') campos_encabezado = ('') campos_titulo = ('') campos_orden = ('') planillamdb = param_objetos_usar = .T. xhfec1 = (date(2099,12,31)) formula_count = 0 xls_abrir = 0 xdnum6 = 0 xhnum6 = 0 xdtot_fin = .T. xdtot_sep = .T. filtro_parametro = ('Mostrar_Texto') xdfec2 = {} mostrar_externo = .F. manter_oestado = .F. exportacion = .F. xls_archivo = ("Reporte.xls") xls_archivo_automatico = .T. xls_archivo_preguntar = .T. xhsubgru = .F. xdsubgru = .F. xdsprgru = 0 xhsprgru = 0 cr_showtop = .F. xfecha_reporte = .F. solo_salir = .F. campos_formato = .F. xpdfprompt = .T. xpdfarchivo = .F. xdtipo_art = 0 ayuda_web = ("") xhfec2 = (date(2099,12,31)) xdnum7 = (0) xhnum7 = (0) crversion = ("") crystal_tamao = -1 document_id = ("") log_ejecucion = ("") xdnum8 = (0) xhnum9 = (0) xhnum8 = (0) xdconsolidado = 1 titulo1_parametro = ("") titulo2_parametro = ("") oestado = .F. sininterfaz = .F. osql = .F. archivo_salida_renombra = .T. log_path = ('') xhmar = (0) xdmar = (0) campos_parametros = .F. campos_parametros_original = .F. id_formulario = (Space(50)) id_formulario_evaluado = .F. plantillas_xls_habilitado = (.t.) id_formulario_ultimo = ("") automatizado = .F. version_reporte = 0 Name = "crystal" \ PROCEDURE file_to_delete PARAMETERS xfile *=sys_mostrar_screen("Suspendo?", .t.) FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])=ALLTRIM(xfile) EXIT ELSE IF ALLTRIM(THISFORM.files_to_delete[z])="" TRY THISFORM.files_to_delete[z]=ALLTRIM(xfile) CATCH TO oCatch ENDTRY EXIT ENDIF ENDIF ENDFOR RETURN ENDPROC PROCEDURE delete_files FOR z=1 TO 30 IF ALLTRIM(THISFORM.files_to_delete[z])#"" .AND. ; !(THISFORM.archivotemporal$THISFORM.files_to_delete[z] .AND. THISFORM.mantener) ON ERROR aaaa=1 DELETE FILE (THISFORM.files_to_delete[z]) ON ERROR &onerr ENDIF ENDFOR RETURN ENDPROC PROCEDURE imprimir_crystal * * ximpresion = .t. && imprime directamente * * * Tipo Reporte = 7 PDF - Solo genera el objeto visor pero no lo muestra. * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THISFORM.CRAplicacion = NULL THISFORM.CRReporte = NULL THISFORM.CRVista = NULL *=sys_mostrar_Screen("Suspendo?", .t.) LOCAL xerror, xMess, oEx AS EXCEPTION xerror=0 *!* ON ERROR xerror=1 THISFORM.estado_avance ('Iniciando servidor de automatizacin...') IF .F. TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") THISFORM.crversion ="CrystalRuntime.Application.11" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") THISFORM.crversion ="CrystalRuntime.Application.10" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") THISFORM.crversion ="CrystalRuntime.Application.8.0" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDTRY ENDTRY ENDTRY ELSE TRY THISFORM.CRAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") THISFORM.crversion ="CrystalRuntime.Application.9" CATCH TO oEx xMess=oEx.MESSAGE xerror=1 ENDTRY ENDIF IF TYPE("THISFORM.CRAplicacion")#"O" THEN =MESSAGEBOX('1 - El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+xMess+")") ON ERROR xerror=2 ELSE THISFORM.estado_avance ('Abriendo reporte...') * A partir de ahora no hace falta inicializar THISFORM.archivoreporte con texto terminado en .rpt, la extensin * se colocar aqu en caso de que no la tenga. Adems se evaluar la existencia de la terminacin _XXX donde XXX * corresponde al cdigo de la empresa. Si existe el reporte xxxxxxx_XXX.rpt se tomar ese reporte, sino el normal. * Lo limpio por si acaso THISFORM.archivoreporte=ALLTRIM(THISFORM.archivoreporte) * Elimino la extensin .RPT si existe IF UPPER(RIGHT(THISFORM.archivoreporte,4))=".RPT" THISFORM.archivoreporte=STUFF(THISFORM.archivoreporte, LEN(THISFORM.archivoreporte)-3, 4, "") ENDIF * Si existe el reporte de la empresa, modifico lo tomo, sino tomo el genrico IF FILE(THISFORM.archivoreporte+"_"+p_emp+".RPT") THISFORM.archivoreporte=THISFORM.archivoreporte+"_"+p_emp+".RPT" ELSE THISFORM.archivoreporte=THISFORM.archivoreporte+".RPT" ENDIF IF FILE(THISFORM.archivoreporte) THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) =ADDPROPERTY(THISFORM.CRReporte, "archivoreporte", ALLTRIM(THISFORM.archivoreporte)) * =sys_mostrar_Screen("crystal",.t.) THISFORM.agregar_log_ejecucion( "(prn1: "+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") IF p_prn_setear_default=1 THEN Thisform.asignar_impresora () THISFORM.agregar_log_ejecucion( "(prn2: "+SET("PRINT",2)+":"+ALLTRIM(THISFORM.CRReporte.PrinterName)+ ")") ENDIF THISFORM.agregar_log_ejecucion( "(z0:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")") DO CASE CASE THISFORM.crystal_tamao = 0 CASE THISFORM.crystal_tamao = -1 IF p_cry_tamao<>0 THEN THISFORM.CRReporte.PAPERSIZE = p_cry_tamao THISFORM.agregar_log_ejecucion( "(z1:" + ALLTRIM(STR(p_cry_tamao))+ ")" ) ENDIF OTHERWISE THISFORM.CRReporte.PAPERSIZE = THISFORM.crystal_tamao THISFORM.agregar_log_ejecucion( "(z2:" + ALLTRIM(STR(THISFORM.crystal_tamao))+ ")") ENDCASE THISFORM.agregar_log_ejecucion( "(z3:" + ALLTRIM(STR(THISFORM.CRReporte.PAPERSIZE))+ ")" ) IF xerror=0 ON ERROR &onerr THISFORM.estado_avance ('Configurando datos del reporte...') xok=.T. IF THISFORM.Tables_Use_Loc_ADV THEN *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THISFORM.Tables_Loc_ADV_Aplica() ELSE FOR z=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT IF TYPE("thisform.archivo[z]")="C" .AND. THISFORM.archivo[z]#"" IF FILE(THISFORM.archivo[z]) THISFORM.CRReporte.DATABASE.TABLES[z].location = THISFORM.get_shortpath( THISFORM.archivo[z]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.archivo[z])+" no existe !!!") xok=.F. EXIT ENDIF ELSE EXIT ENDIF ENDFOR ENDIF THISFORM.estado_texto('Pasando parmetros al reporte...') IF xok * * Configuracion General * THISFORM.CRReporte.ReportTitle = THISFORM.titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF THISFORM.dontchangenothing THEN ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THISFORM.CRReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+THISFORM.NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = THISFORM.CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = THISFORM.DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = THISFORM.CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = THISFORM.OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+THISFORM.titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF THISFORM.Formula_usar THEN THISFORM.Formula_aplicar() ENDIF IF !THISFORM.fecha * Suprime la fecha y la hora FOR z=1 TO THISFORM.CRReporte.areas[2].sections[1].reportobjects.COUNT IF INLIST(THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].NAME,"PrintDate1","PrintDate2", "PrintTime1","PrintTime2") THEN THISFORM.CRReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF THISFORM.param_usar THEN THISFORM.param_aplicar ENDIF ***************************************************************************** ******* Paso el parametro de filtro si es posible ******************** LOCAL xMostrar_Filtro xMostrar_Filtro='' IF THIS.filtros_mostrar AND TYPE("this.filtros")="O" THEN TRY xMostrar_Filtro=THIS.filtros.Filtro_Obtener() CATCH TO oCatch ENDTRY ENDIF TRY THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).ClearCurrentValueAndRange THISFORM.CRReporte.ParameterFields.GetItemByName(THISFORM.filtro_parametro ).AddCurrentValue(xMostrar_Filtro) CATCH TO oCatch ENDTRY ********************************************************************** IF THISFORM.param_objetos_usar THEN THISFORM.param_objetos_aplicar ENDIF THISFORM.pre_impresion() IF ximpresion THISFORM.CRReporte.printersetup(0) THISFORM.estado_avance ('Imprimiendo...') THISFORM.CRReporte.PrintOut(.T.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oEstado)) THEN ELSE oEstado.VISIBLE=.F. ENDIF ELSE * Pongo esto porque a veces no encuentra "CrystalViewer_top" SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.estado_avance ('Configurando la visualizacin...') * No quiero ms el arbol visible THISFORM.arbol=.F. THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; THISFORM.archivo[1],; THISFORM.archivo[2],; THISFORM.archivo[3],; THISFORM.archivo[4],; THISFORM.archivo[5],; THISFORM.archivo[6],; THISFORM.archivo[7],; THISFORM.archivo[8],; THISFORM.archivo[9],; THISFORM.archivo[10],; 130, THISFORM.tipo_reporte = 7, thisform; ) THISFORM.estado_visible(.F.) IF THISFORM.tipo_reporte # 7 THEN IF THISFORM.Mostrar_Externo THEN THISFORM.CRVista.SHOW ELSE THISFORM.CRVista.VISIBLE=.T. ENDIF ELSE THISFORM.CRVista.VISIBLE=.F. ENDIF ENDIF *=sys_mostrar_screen("Suspendo?", .t.) * Antes de seguir espera que termine el renderizado, esto es para que se pueda ejecutar thisform.solo_impresion_despues() y no afecte los datos *!* set alternate to c:\sistema\temp.txt *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *!* do while thisform.crvista.crviEWER.isBusy *!* set alternate to c:\sistema\temp.txt additive *!* set alternate on *!* ? iif(thisform.crvista.crviEWER.isBusy, "Busy", "Not Busy") *!* set alternate off *!* set alternate to *thisform.sleep(3000) *!* aaa_timer=seconds() *!* do while seconds()-aaa_timer<3 *!* enddo *!* *!* *!* enddo *!* set alternate off *!* set alternate to c:\sistem\temp.txt ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(THISFORM.archivoreporte)+' no existe.') ENDIF ENDIF ON ERROR &onerr SET DEFAULT TO (P_SERVER) ENDPROC PROCEDURE imprimir_vfp PARAMETERS ximpresion * * ximpresion = .t. && imprime directamente * ENDPROC PROCEDURE imprimir_reporte_vfp PARAMETERS xreporte SET PROCEDURE TO listados ADDITIVE xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif IF ximpresion REPORT FORM (p_system+"\prt\"+xreporte) TO PRINTER PROMPT ELSE SET CLASSLIB TO clases o=CREATEOBJECT("reporte_ventana") o.CAPTION=THISFORM.titulo1 o.SHOW REPORT FORM (p_system+"\prt\"+xreporte) PREVIEW IN reporte_ventana ENDIF RELEASE o ENDPROC PROCEDURE imprimir_tabla_viejo * * Vieja rutina de exportar a DBF * IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif SELECT 0 IF "\TMP\"$UPPER(THISFORM.archivotemporal) USE (THISFORM.archivotemporal) ALIAS rptbrowse ELSE USE (p_local+'\tmp\'+THISFORM.archivotemporal) ALIAS rptbrowse ENDIF SET CLASSLIB TO clases ADDI SET PROCEDURE TO listados ADDITIVE o=CREATEOBJECT("reporte_ventana") o.SHOW *report form (p_system+"\prt\"+xreporte) preview in reporte_ventana IF TYPE("browsfields")="C" BROWSE &browsfields TITLE THISFORM.titulo1 ELSE BROWSE TITLE THISFORM.titulo1 ENDIF RELEASE o SELECT rptbrowse USE ENDPROC PROCEDURE imprimir_xls *!* xlCalculationAutomatic -4105 *!* xlCalculationManual -4135 * =sys_mostrar_screen("Suspendo?", .t.) * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 6 = Formato de Texto * y = 7 = Frmula de calculo en el TOTAL (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1, x2 SET PROCEDURE TO listados ADDITIVE =estado_ini(7) && Constantes de EXCEL xledgetop=8 xledgebottom=9 xlautomatic=-4105 xlcontinuous=1 xlthin=2 *=sys_mostrar_Screen("XLS Suspendo?", .t.) IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.T. ENDIF IF THISFORM.imprimir_xls_usar_viejo THEN *!* xres=THISFORM.imprimir_xls_viejo() *!* IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN *!* ELSE *!* oestado.VISIBLE=.F. *!* ENDIF *!* RETURN xres =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") THISFORM.imprimir_xls_usar_viejo = .F. ENDIF IF THISFORM.imprimir_xls_usar_externo THEN xres=THISFORM.imprimir_xls_externo () IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN xres ENDIF LOCAL z, aaa =ACOPY(THISFORM.campos,xcamposarr) ***Correccin para utilizar reportes del viejo formato y conteo de campos xcolcount=0 FOR nit=1 TO ALEN(xcamposarr,1) IF xcolcount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xcamposarr(nit,1)=="" THEN xcolcount = nit - 1 ENDIF ELSE xcolcount = nit - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xcamposarr(nit,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xcamposarr(nit,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xcamposarr(nit,5)='%SUMAR' ELSE IF xcamposarr(nit,5)=="" THEN xcamposarr(nit,5)="%SUMAR" ELSE xcamposarr(nit,5)=UPPER(xcamposarr(nit,5)) ENDIF ENDIF IF TYPE("xCamposArr(nIt,7)")#"C" THEN xcamposarr(nit,7)='%SUMAR' ELSE IF xcamposarr(nit,7)=="" THEN xcamposarr(nit,7)="%SUMAR" ELSE xcamposarr(nit,7)=UPPER(xcamposarr(nit,7)) ENDIF ENDIF xcamposarr(nit,10)="=0" NEXT xrecordcount=0 xplanillaxls=THISFORM.planillaxls xtemporal=THISFORM.archivotemporal xtabla=p_local+'\tmp\'+xtemporal xalias="Reportes" xorden = THISFORM.campos_orden xplanilla='' LOCAL hayerror hayerror = .F. xplanilla_final=odeyfunc.get_path(10)+THISFORM.xls_archivo * 0=Consulta si abre en el EXCEL, * 1=Abre directamente, * 2=No abre ni consulta, solo lo genera, * 3=Pregunta dnde lo guarda y solo genera (no lo abre) * 4=Pregunta dnde lo guarda y lo abre directamente * 5=Valor por defecto (Sin seleccionar) IF THIS.xls_abrir#2 && 12/06/2014 DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir ENDIF IF THIS.xls_abrir = 5 THEN *** No se seleccion nada. Anulada la ejecucin. IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 2 CASE THIS.xls_abrir = 4 THIS.xls_abrir = 1 ENDCASE LOCAL xnpath, xnfile, xnext, xidx, xnewf LOCAL owbt IF THISFORM.xls_archivo_preguntar THEN xplanilla_final=PUTFILE("Archivo de Excel",xplanilla_final,"XLS") IF EMPTY(xplanilla_final) THEN *hayerror = .t. xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo ENDIF ELSE xplanilla_final=odeyfunc.get_path(5)+THISFORM.xls_archivo IF FILE(xplanilla_final) THEN xnpath = JUSTPATH(xplanilla_final) xnfile = JUSTSTEM(xplanilla_final) xnext = JUSTEXT(xplanilla_final) xidx = 1 DO WHILE .T. xnewf = xnpath+"\"+xnfile+"("+ALLTRIM(STR(xidx))+")."+xnext IF NOT FILE(xnewf) THEN xplanilla_final = xnewf EXIT ENDIF xidx = xidx + 1 IF xidx>99 THEN EXIT ENDIF ENDDO IF p_crystal_version>0 THEN THIS.xls_archivo = JUSTFNAME(xplanilla_final) ENDIF ENDIF ENDIF xplanilla_aux='' xsepfor=THISFORM.campos_separa xsepenc=THISFORM.campos_encabezado xtitulo=IIF(THISFORM.campos_titulo=='', THISFORM.CAPTION , THISFORM.campos_titulo ) xotra_planilla=1 xinirow=3 xinisep=3 LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. IF USED(xtabla) THEN SELECT (xtabla) USE ENDIF SELECT 0 USE (xtabla) ALIAS (xalias) IF RECCOUNT()=0 AND THIS.xls_abrir#2 && 12/06/2014 =mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF NOT xorden=='' THEN * INDEX ON &xOrden TAG REP_XLS ENDIF IF ALLTRIM(xplanillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_"+ALLTRIM(xplanillaxls)+".xls") xplanilla=ALLTRIM(xplanillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(xtemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(xtemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF =sys_mostrar_screen("imporimir xls",THISFORM.suspender) =oestado.avance("Creando planilla de Excel...") DO WHILE NOT hayerror IF !FILE(xplanilla) THEN =mensaje('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xplanilla_final) IF hayerror =mensaje('No se puede crear '+xplanilla_final+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') x=GETOBJECT(,'excel.application') x.screenupdating = .T. APPLICATION.calculation = xlcalculationautomatic * x.VISIBLE=.T. EXIT ENDIF LOCAL x,Y *!* x=GETOBJECT(,'excel.application') *!* IF hayerror THEN *!* hayerror=.F. x=CREATEOBJECT("excel.application") =log_aut("","Por abrir") *!* ENDIF IF hayerror THEN =mensaje('No se puede abrir la aplicacin Excel') EXIT ENDIF PRIVATE owbfinal =log_aut("","Version: "+x.Version) IF FILE(xplanilla_final) THEN =log_aut("","Existe") TRY owbfinal=x.workbooks.OPEN(xplanilla_final) CATCH TO oExAut =log_aut("","Error: "+oExAut.MESSAGE) TRY =log_aut("","Borrando planilla inicial") DELETE FILE (xplanilla_final) =log_aut("","Agregando planilla vacia") owbfinal=x.workbooks.ADD() =log_aut("","Grabando planilla") TRY =log_aut("","name: "+owbfinal.name) CATCH TO oExAut =log_aut("","Error name: "+oExAut.MESSAGE) ENDTRY x.ActiveWorkbook.SAVEAS(xplanilla_final,56) =log_aut("","Grabada") CATCH TO oExAut =log_aut("","Error ReadOnly: "+oExAut.MESSAGE) hayerror =.T. ENDTRY ENDTRY ELSE =log_aut("","No Existe!") ENDIF IF hayerror THEN =mensaje('No se puede abrir el archivo '+xplanilla_final) x.QUIT RELEASE x EXIT ENDIF =log_aut("","Abierto") ON ERROR &onerr xlibros=x.workbooks.COUNT IF RECCOUNT(xalias)>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* x.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* x.workbooks(xlibros).Close *!* x.workbooks.OPEN(xPlanilla_Final) xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") owbfinal.SAVEAS(xplanilla_final,51) owbfinal.CLOSE owbfinal=x.workbooks.OPEN(xplanilla_final) DELETE FILE (FORCEEXT(xplanilla_final,"xls")) ENDIF x.screenupdating = .F. * x.VISIBLE=.F. xactsheet=owbfinal.sheets(xotra_planilla) ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW **x.workbooks(xlibros).windows(1).visible=.f. * * Coloca el encabezamiento en la planilla * xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,1).COPY =oestado.avance("Procesando el encabezamiento...") z=1 DO WHILE ALLTRIM(xcamposarr[z,1])#"" xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xactsheet.SELECT(xotra_planilla) xactsheet.cells(3,z).SELECT xactsheet.paste xactsheet.cells(3,z).VALUE = xcamposarr[z,2] z=z+1 IF z>ALEN(xcamposarr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 IF xmaxfields>0 THEN =sys_mostrar_screen("auxiliar",THISFORM.suspender ) * * Crea la planilla auxiliar * SELE (xalias) xplanilla_aux =newfile_local_tmp()+".xls" xfields = "" LOCAL xTieneMemo, xNCampo, xIDCampo xTieneMemo= .F. LOCAL ARRAY TMPaMemo(1) =AFIELDS("TMPaMemo",xalias) *=sys_m("Validar campos") SELE (xalias) GO TOP xcampos_inexistentes="" FOR z=1 TO xmaxfields TRY aaa=EVALUATE(ALLTRIM(xcamposarr[z,1])) CATCH xcampos_inexistentes = xcampos_inexistentes + IIF(!EMPTY(xcampos_inexistentes), ", ","") + ALLTRIM(xcamposarr[z,1]) ENDTRY xfields = xfields + ALLTRIM(xcamposarr[z,1]) IF z1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado x.activeworkbook.CLOSE x.displayalerts = .T. x.screenupdating = .T. x.displayalerts=.T. x.WINDOWSTATE= -4137 && xlMaximized x.VISIBLE=.T. ELSE TRY x.activeworkbook.CLOSE CATCH ENDTRY x.displayalerts = .F. xWD=x.HWND x.QUIT && = .T. IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF ENDIF RELEASE x, xactsheet, xcellact EXIT ENDDO SELE (xalias) USE IF TYPE("oEstado")#"O" OR (TYPE("oEstado")="O" AND ISNULL(oestado)) THEN ELSE oestado.VISIBLE=.F. ENDIF RETURN ENDPROC PROCEDURE preprocesar_impresion RELEASE oEstado PUBLIC oEstado IF p_SinInterfaz THEN DO FORM estado NAME thisform.oEstado NOSHOW ELSE DO FORM estado NAME thisform.oEstado ENDIF oEstado=thisform.oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=1000 oEstado.VALUE=1 SET DEFAULT TO (p_server) THISFORM.debug_time_iniciar this.id_formulario_ultimo = this.id_formulario_evaluado ENDPROC PROCEDURE postprocesar_impresion IF NOT (TYPE("thisform.oEstado")#"O" or (TYPE("thisform.oEstado")="O" and ISNULL(thisform.oEstado))) THEN thisform.oestado.visible=.f. thisform.oestado.refresh thisform.oEstado.RELEASE ENDIF IF NOT (TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado))) THEN oestado.visible=.f. oestado.refresh oEstado.RELEASE RELEASE oEstado ENDIF do sp_ocultar_definitivamente ; in sys_procesando ENDPROC PROCEDURE param_aplicar FOR nit=1 TO ALEN(THISFORM.Param_data,1) *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("Thisform.Param_data(nIt,1)")="C" THEN TRY *Limpio los valores por defecto que tengan asignado el parmetro THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THISFORM.crReporte.ParameterFields.GetItemByName(THISFORM.Param_data(nit,1)).AddCurrentValue(THISFORM.Param_data(nit,2)) CATCH TO oCatch IF NOT THISFORM.param_noerror THEN if !p_dev =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte en Crystal."+CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) else =Mensaje("Problemas al pasar el parmetro "+UPPER(THISFORM.Param_data(nit,1))+" al reporte "; +thisform.archivoreporte; +CHR(13)+CHR(13)+; "EL REPORTE PUEDE TENER DATOS ERRONEOS!!!"+CHR(13)+CHR(13)+; oCatch.MESSAGE) endif ENDIF ENDTRY ENDIF NEXT ENDPROC PROCEDURE tables_loc_adv_aplica crSubreportObject=5 FOR x=1 TO THISFORM.CRReporte.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO THISFORM.CRReporte.Sections.COUNT FOR Y=1 TO THISFORM.CRReporte.Sections[z].ReportObjects.COUNT IF THISFORM.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(THISFORM.Archivo,1) IF TYPE("thisform.archivo[w]")="C" .AND. THISFORM.Archivo[w]#"" DirBar=RAT("\",THISFORM.Archivo[w]) IF DirBar=0 THEN DirBar=RAT("/",THISFORM.Archivo[w]) ENDIF IF DirBar#0 .AND. LEN(THISFORM.Archivo[w])>=DirBar+1 THEN FrmName=SUBSTR(THISFORM.Archivo[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(THISFORM.Archivo[w]) THISFORM.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=thisform.get_shortpath( THISFORM.Archivo[w]) ELSE mensaje("El archivo "+ALLTRIM(THISFORM.Archivo[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE imprimir_texto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN else oEstado.VISIBLE=.F. endif txArchivoTexto=ALLTRIM(THISFORM.archivotexto) IF txArchivoTexto=='' THEN IF "\TMP\"$UPPER(THISFORM.archivotemporal) txArchivoTexto=THISFORM.archivotemporal+".txt" ELSE txArchivoTexto=(p_local+'\tmp\'+THISFORM.archivotemporal+".txt") ENDIF ENDIF IF FILE(txArchivoTexto) THEN IF Mensaje_SiNo("Desea abrir el archivo de Texto?",1) THEN DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",(txArchivoTexto),"", "", 1) ELSE =Mensaje("El archivo se ha guardado en: " +CHR(13)+; txArchivoTexto) ENDIF ELSE =Mensaje("No existe " + txArchivoTexto) ENDIF ENDPROC PROCEDURE acomodar_botones dimension boton_array(10) as CommandButton thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btnparam.enabled = thisform.btnparam.enabled and not empty(thisform.parametros.rep_id) boton_array(1) = thisform.btntxt boton_array(2) = thisform.btnvisualizar boton_array(3) = thisform.btnimprimir boton_array(4) = thisform.btntabla boton_array(5) = thisform.btngrilla boton_array(6) = thisform.btnexportar boton_array(7) = thisform.btnpdf boton_array(8) = thisform.btnPlantilla_Excel boton_array(9) = thisform.btnparam boton_array(10) = thisform.btnsalir thisform.reacomodar_botones(@boton_array) ancho_botones = 48 inter_botones = 4 numero_botones=0 xtabindex=200 for each cbtn in boton_array numero_botones = numero_botones +iif(cbtn.visible,1,0) next xancho_botones = numero_botones * ancho_botones + inter_botones * (numero_botones-1) xleft = int((thisform.width - xancho_botones )/2) xtop = thisform.height - ancho_botones - 3 private nit nit=0 for each cbtn in boton_array if cbtn.visible then cbtn.left = xleft + nit * (ancho_botones + inter_botones) cbtn.top = xtop cbtn.tabindex=xtabindex + nit + 1 nit=nit+1 endif next LOCAL xckAncho xckAncho = IIF(thisform.ckFecha.Visible,thisform.ckfecha.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible,thisform.keep.Width,0 ) xckAncho = xckAncho + IIF(thisform.keep.Visible and thisform.ckFecha.Visible,10,0 ) xLeft=int (thisform.Width /2) - INT(xckAncho/2) thisform.keep.top = xtop - 20 thisform.ckfecha.Top = xtop - 20 thisform.ckfecha.LEft = xleft thisform.keep.left = xleft + thisform.ckfecha.width + 20 thisform.ckfecha.tabindex = xtabindex thisform.keep.tabindex = xtabindex+1 xtabindex=xtabindex+1 *!* if not thisform.imprimir_tabla_usar_viejo then *!* thisform.btntabla.picture = 'ACCESS_32.ICO' *!* thisform.btntabla.downpicture = 'ACCESS_32_H.ICO' *!* endif ENDPROC PROCEDURE param_agregar PARAMETERS xName AS STRING ,xData AS Variant ,xFechaLimite AS INTEGER , xPos AS INTEGER, xOmitir as Boolean IF xOmitir THEN *** Esto permite pasar parametros opciones depende del prt a usar. *** Por ejemplo, el parmetro xTotal solo se manda cuando xOpcional = (xdTip=1) RETURN .f. ENDIF SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xName")="L" AND TYPE("xData")="L" AND TYPE("xPos")="L" THEN THIS.param_count=0 STORE .F. TO THISFORM.param_data RETURN ENDIF xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.param_count = THIS.param_count + 1 xPos=THIS.param_count ENDIF IF TYPE("xData")="D" THEN xFechaLimite = Chk_Value(xFechaLimite,1,"N") xData=CR_ValidaFecha(xData,xFechaLimite) ENDIF IF xPos > ALEN(THISFORM.param_data,1) THEN DIMENSION THISFORM.param_data(xPos,ALEN(THISFORM.param_data,2)) ENDIF THISFORM.param_data(xPos,1)=xName THISFORM.param_data(xPos,2)=xData THISFORM.param_usar = .T. ENDPROC PROCEDURE campos_agregar PARAMETERS xField AS STRING ,xLabel AS String , xPos AS INTEGER, xTotal_Separa as Boolean , xTotal_General as Boolean, xOperacion as String, xFor as Object, xOper_Total as String, xIDU as String SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xField")="L" AND TYPE("xLabel")="L" AND TYPE("xPos")="L" THEN THIS.campos_count=0 STORE "" TO THISFORM.campos RETURN ENDIF xIDU=EVL(xIDU,SYS(2015)) xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.campos_count = THIS.campos_count + 1 xPos=THIS.campos_count ENDIF IF xPos > ALEN(THISFORM.campos,1) THEN DIMENSION THISFORM.campos(xPos,ALEN(THISFORM.campos,2)) ENDIF THISFORM.campos(xPos,1)=xField THISFORM.campos(xPos,2)=xLabel THISFORM.campos(xPos,3)=xTotal_Separa THISFORM.campos(xPos,4)=xTotal_General IF NOT EMPTY(xOperacion) THEN THISFORM.campos(xPos,5)=xOperacion ENDIF IF TYPE("xFor")="L" AND xFor THEN THISFORM.campos(xPos,6)=thisform.campos_formato ELSE THISFORM.campos(xPos,6)=xFor ENDIF IF NOT EMPTY(xOper_Total) THEN THISFORM.campos(xPos,7)=xOper_Total ENDIF THISFORM.campos(xPos,8)=xIDU RETURN xPos ENDPROC PROCEDURE validar_datos RETURN .t. ENDPROC PROCEDURE debug_time_iniciar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.T.,THIS.CAPTION) ENDIF ENDPROC PROCEDURE debug_time_finalizar IF TYPE("oEstado")="O" THEN =oEstado.debug_time_set(.F.) ENDIF ENDPROC PROCEDURE imprimir_xls_viejo * * 1) Presupone que se ha completado el arreglo campos[x,y] * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL x1,x2 =mensaje("El sistema usa el procedimiento anterior !!! "+CHR(13)+"Por favor avise al soporte.") IF THIS.xls_autogenerar THEN THIS.gen_xls.archivo_temporal = THIS.archivotemporal THIS.gen_xls.generar RETURN ENDIF LOCAL z, aaa IF !USED(THISFORM.archivotemporal) USE (p_local+'\tmp\'+THISFORM.archivotemporal) IN 0 ENDIF SELECT (THISFORM.archivotemporal) IF RECCOUNT(THISFORM.archivotemporal)=0 THEN =Mensaje("El reporte no ha devuelto registros para exportar a excel.") SELECT (THISFORM.archivotemporal) USE RETURN .F. ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR IF ALLTRIM(THISFORM.planillaxls)#"" .AND. FILES(p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_"+ALLTRIM(THISFORM.planillaxls)+".xls") xplanilla=ALLTRIM(THISFORM.planillaxls)+".xls" xotra_planilla=2 ELSE IF (SYS(2000,p_system+"\prt\"+ALLTRIM(THISFORM.archivotemporal)+"_v_*"))#"" DO FORM crystal_xls WITH ALLTRIM(THISFORM.archivotemporal) TO xplanilla IF UPPER(xplanilla)#UPPER("reporte.xls") xplanilla=p_system+"\prt\"+ALLTRIM(xplanilla) xotra_planilla=2 ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ELSE xplanilla = p_system+'\reporte.xls' xotra_planilla=1 ENDIF ENDIF LOCAL hayerror hayerror = .F. xXLS_Archivo=oDeyFunc.Get_Path(10)+THISFORM.xls_archivo DO FORM sys_destino_excel WITH THIS.CAPTION, THIS.xls_abrir TO THIS.xls_abrir DO CASE CASE INLIST(THIS.xls_abrir,3,4) THISFORM.xls_archivo_preguntar = .T. OTHERWISE THISFORM.xls_archivo_preguntar = .F. ENDCASE DO CASE CASE THIS.xls_abrir = 3 THIS.xls_abrir = 1 ENDCASE IF THISFORM.xls_archivo_preguntar xXLS_Archivo=PUTFILE("Archivo de Excel",xXLS_Archivo,"XLS") IF EMPTY(xXLS_Archivo) THEN *hayerror = .t. xPlanilla_Final=oDeyFunc.Get_Path(5)+THISFORM.xls_archivo ENDIF ENDIF oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Creando planilla de Excel..." LOCAL xcopy, z, maxfields, xdata ON ERROR hayerror=.T. DO WHILE NOT hayerror IF !FILE(xplanilla) =MESSAGEBOX('No existe '+xplanilla) EXIT ENDIF COPY FILE (xplanilla) TO (xXLS_Archivo) IF hayerror =MESSAGEBOX('No se puede crear '+xXLS_Archivo+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') EXIT ENDIF LOCAL x TRY x=GETOBJECT(,'excel.application') CATCH hayerror=.T. ENDTRY IF hayerror hayerror=.F. TRY x=CREATEOBJECT('excel.application') CATCH hayerror=.T. ENDTRY ENDIF IF hayerror =MESSAGEBOX('No se puede abrir la aplicacin Excel') EXIT ENDIF TRY x.workbooks.OPEN(xXLS_Archivo) CATCH hayerror=.T. ENDTRY IF hayerror =MESSAGEBOX('No se puede abrir el archivo '+xXLS_Archivo) x.QUIT RELEASE x EXIT ENDIF ON ERROR &onerr x.VISIBLE= .F. xlibros=x.workbooks.COUNT ***************************************************************************************************** ***************************************************************************************************** ** Con esto solo ocultaria la ventana de nuestro libro pero hay que modificar ** lo procedimientos para referenciar los libros sin usar valores relativos como ** ActiveSheet o ArtiveWorkbook, tampoco podes hacer un select && HOOK_XLS_SHOW *!* x.workbooks(xlibros).windows(1).visible=.f. x.workbooks(xlibros).sheets(xotra_planilla).SELECT x.workbooks(xlibros).sheets(xotra_planilla).RANGE("A3").COPY * * Coloca el encabezamiento en la planilla * oEstado.VALUE=oEstado.VALUE+1 oEstado.texto="Procesando el encabezamiento..." z=1 DO WHILE NOT EMPTY(THISFORM.campos[z,1]) xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).SELECT x.ActiveSheet.Paste x.workbooks(xlibros).sheets(xotra_planilla).RANGE( xcol + "3" ).VALUE = THISFORM.campos[z,2] z=z+1 ENDDO xmaxfields=z-1 IF xmaxfields>0 * * Crea la planilla auxiliar * SELE (THISFORM.archivotemporal) xplanilla_aux = RIGHT(SYS(2015),8) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(THISFORM.campos[z,1]) IF zALEN(xCamposArr,1) THEN EXIT ENDIF ENDDO xmaxfields=z-1 * * Crea la planilla auxiliar * SELE (xAlias) xPlanilla_Aux =NewFile_Local_TMP()+".dbf" xTMPPath=SUBSTR(xPlanilla_Aux,1,RAT("\",xPlanilla_Aux)) xTMPFile=SUBSTR(xPlanilla_Aux,RAT("\",xPlanilla_Aux)+1) xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(xCamposArr[z,1]) IF z ALEN(THISFORM.formula_data,1) THEN DIMENSION THISFORM.formula_data(xPos,ALEN(THISFORM.formula_data,2)) ENDIF THISFORM.formula_data(xPos,1)=xName THISFORM.formula_data(xPos,2)=xFormula THISFORM.formula_usar = .T. ENDPROC PROCEDURE imprimir_xls_externo *=sys_m("xls externo") LOCAL oExp as exportaciones of imp_exp LOCAL xpar * Creacion de los objetos a realizar la exportacion oExp=NEWOBJECT("exportaciones", "imp_exp") oExp.archivo_salida_renombra = thisform.archivo_Salida_renombra IF This.xls_coll_param.count=0 THEN xPar=thisform.xls_coll_getnew() This.xls_coll_param.Add(xPar) ENDIF FOR EACH xPar IN This.xls_coll_param oEXP.parametros_coll.ADD(xPar) NEXT oEXP.exportar_xls_coll() this.xls_coll_param = CREATEOBJECT("Collection") RETURN .t. ENDPROC PROCEDURE xls_coll_getnew LPARAMETERS xNo_leer_Crystal LOCAL xPar SET CLASSLIB TO "Clases" xPar=CREATEOBJECT("Exportaciones_parametros") IF NOT xNo_leer_Crystal THEN xPar.do_Leer_Crystal(This) ENDIF RETURN xPar ENDPROC PROCEDURE imprimir_pdf lparameters xnopreguntar, xarchivo if !isnull(thisform.crreporte) if thisform.xpdfprompt and not xnopreguntar then thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 oapi = newobject("WWAPI", "IP\WWAPI.PRG") xarchivo=oapi.readregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name) xarchivo=iif(isnull(xarchivo),"", xarchivo) xarchivo=putfile("Archivo PDF:",justpath(xarchivo), "PDF") if not empty(xarchivo) then thisform.crreporte.exportoptions.diskfilename=xarchivo try oapi = newobject("WWAPI", "IP\WWAPI.PRG") oapi.writeregistrystring("HKCU", "SOFTWARE\Solinges\GES\Reportes",thisform.name,justpath(xarchivo), .t.) catch endtry try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif **=thisform.crreporte.ExportOptions.PromptForExportOptions() ELSE xArchivo=EVL(xarchivo, EVL(thisform.xpdfarchivo, oDeyFunc.NewFile_Local_TMP(,"PDF"))) thisform.crreporte.exportoptions.destinationtype=1 thisform.crreporte.exportoptions.formattype=31 thisform.crreporte.exportoptions.diskfilename=xArchivo try thisform.crreporte.export(.f.) catch to oex_export mensaje("Imposible exportar !!!"+chr(13)+chr(13)+"Quizs el archivo "+alltrim(xarchivo)+" ya est abierto o bien el lector de PDFs est colgado.",,,,,,; "Imposible exportar a un PDF") endtry endif endif ENDPROC PROCEDURE reacomodar_botones LPARAMETERS boton_array ENDPROC PROCEDURE xls_a_usar_pedir LPARAMETERS oColl oColl.Add(oDeyFunc.Get_path(5)+"reporte.xls") ENDPROC PROCEDURE xls_a_usar_revisar local oxls, oex, ocoll, owb *=sys_m("USAR A REVISAR") ocoll= newobject("Collection") try oexc=getobject(,'excel.application') catch to oex endtry =thisform.xls_a_usar_pedir (@ocoll) if not type("oEXC") = "O" or not type("oColl") = "O" then return .t. endif try owb=oexc.workbooks catch endtry if typeo(owb) then for each xtxt in ocoll for each owb in oexc.workbooks if upper(xtxt)=upper(owb.fullname) then =mensaje("La planilla se encuentra en abierta !!!"+ chr(13)+; "Cierrela antes de intentar generarla nuevamente."+chr(13)+chr(13)+xtxt) if oexc.visible=.f. then oexc.visible=.t. endif return .f. endif next next endif ENDPROC PROCEDURE get_shortpath lparameters xFile LOCAL xFinal IF p_emp="SCH" AND this.chk_long.Value THEN IF p_dev THEN mensaje(xFile) ENDIF RETURN xFile ENDIF local xLN, xpath xPath=space(256) xLN=0 Declare long GetShortPathName in kernel32 string lpszLongPath, string @lpszShortPath, long lBuffer xLN=GetShortPathName(xFile,@xpath,256) if xLN>0 then xFinal= ADDBS(JUSTPATH(left(xPath,xLN)))+JUSTFNAME(xFile) ELSE xFinal=xFile endif *!* IF p_dev THEN *!* mensaje(xFile) *!* ENDIF RETURN xFinal ENDPROC PROCEDURE ejecutar_sql LPARAMETERS xNO_RELEASE, xdestino LOCAL xarchivo thisform.mantener=.T. thisform.preprocesar_impresion() =oEstado.Set_and_Show("Iniciando datos...",1,4) thisform.procesar_impresion() thisform.postprocesar_impresion() *=sys_m("Definiciones") Thisform.exportar_definicion_columnas() xarchivo=thisform.Archivo[1] if type("xdestino")="C" if !(".DBF"$xdestino) xdestino=alltrim(xdestino)+".dbf" endif try copy file (xarchivo) to (xdestino) xarchivo=xdestino catch to oCopyxxx if p_dev mensaje("Destino invlido : "+xdestino) endif endtry endif IF NOT xNO_Release THEN thisform.RELEASE IF TYPE("oEstado")="O" AND TYPEO(oEstado) THEN =oEstado.release oEstado=.f. ENDIF ENDIF RETURN xarchivo ENDPROC PROCEDURE ejecutar_externo LPARAMETERS xTipo_Reporte AS INTEGER ,xNO_RELEASE AS Boolean , xTabla AS STRING, xMantener AS Boolean, xAbrir AS INTEGER LOCAL xReturn *xAbrir XLS:0=Consulta si abre en el EXCEL * 1=Abre directamente * 2=No abre ni consulta, solo lo genera * 3=Lo genera y pregunta dnde lo guarda IF type("xabrir")#"N" THEN xAbrir=0 ENDIF *** Esto es importante para que se muestre el form de crystal!!! THISFORM.Mostrar_Externo=.T. THISFORM.mantener = xMantener xReturn=.T. DO CASE CASE xTipo_Reporte=0 && Solo Tabla obtiene la tabla xNO_RELEASE=.F. && Especifica si el form se cierre luego de ejecutar el reporte xTabla=THISFORM.Ejecutar_Sql(xNO_RELEASE) CASE xTipo_Reporte=1 && Crystal THISFORM.BtnVisualizar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=4 && Excel THIS.xls_abrir = xAbrir thisform.automatizado = .t. THISFORM.BtnExportar.CLICK xTabla=THISFORM.Archivo[1] CASE xTipo_Reporte=7 && PDF thisform.xpdfprompt = .f. thisform.btnpDF.Click CASE xTipo_Reporte=99 && Visualizar Form para tocar parmetros manualmente ENDCASE IF NOT (xNO_RELEASE) THEN THISFORM.RELEASE ENDIF RETURN xReturn ENDPROC PROCEDURE solo_salir_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF vNewVal THEN dimension boton_array(9) as object thisform.btnparam.Visible = (thisform.parametros.par_habilitado = 10) or (thisform.parametros.par_habilitado = 5 and p_dev) thisform.btntxt.Enabled = .f. thisform.btnvisualizar.Enabled = .f. thisform.btnimprimir.Enabled = .f. thisform.btntabla.Enabled = .f. thisform.btngrilla.Enabled = .f. thisform.btnexportar.Enabled = .f. thisform.btnpdf.Enabled = .f. *thisform.btnparam thisform.btnsalir.Enabled = .t. ENDIF THIS.Solo_Salir = m.vNewVal ENDPROC PROCEDURE xls_columna LPARAMETERS xColumna LOCAL xIni, xLap, xFin, xSTR, xCol xIni=64 xLap=26 xFin=xIni+xLap xSTR="" xCur=0 *xColumna=229 xCol=xColumna IF xCol>xLap THEN xSTR=CHR(xIni+INT(xCol/xLap)) ENDIF IF MOD(xCol,xLap)>0 THEN xSTR=xSTR+CHR(xIni+MOD(xCol,xLap)) ENDIF RETURN xSTR ENDPROC PROCEDURE grabar_ejecucion LOCAL oParam AS guardar_parametros_crystal OF form_controles.vcx LOCAL oEx TRY oParam=THISFORM.parametros THISFORM.parametros.par_Leer IF NOT EMPTY(oParam.rep_id) THEN SELECT 0 USE p_system+"\rptparam" ALIAS tmprptparam AGAIN INSERT INTO tmprptparam VALUES (; oParam.rep_id,; pub_index,; p_codemp,; DATETIME(),; "Ejecucin tipo "+ALLTRIM(STR(THISFORM.tipo_reporte)),; oParam.val_textos,; SYS(2015), 1,2,THISFORM.tipo_reporte) SELECT tmprptparam USE ENDIF CATCH TO oEx ENDTRY IF USED("tmprptparam") SELECT tmprptparam USE ENDIF ENDPROC PROCEDURE estado_avance LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Avance(xTexto) ENDPROC PROCEDURE estado_texto LPARAMETERS xTexto IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Texto=xTexto ENDPROC PROCEDURE estado_visible LPARAMETERS xVisible IF TYPE("oEstado")#"O" or (TYPE("oEstado")="O" and ISNULL(oEstado)) THEN RETURN .f. ENDIF oEstado.Visible=xVisible ENDPROC PROCEDURE imprimir_xls_largos LPARAMETERS xAlias, xEXCEL, xPlanilla_Aux, xFields, xmaxfields LOCAL x1, x2 x1 = 64+ IIF(INT(xmaxfields/26)=0,0,INT(xmaxfields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xmaxfields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 LOCAL xRecCopiado, xPlan, xRecActual, xRecFalta, xDisplayAlerts LOCAL xPath, xLibroBase, xLibroMV, oEx, xCL1, xCL2 xPath=oDeyFunc.NewFile_Local_TMP() xDisplayAlerts = xEXCEL.DisplayAlerts xEXCEL.DisplayAlerts= .F. xVisible=xEXCEL.VISIBLE xTop=xEXCEL.TOP xEXCEL.VISIBLE=.F. TRY xEXCEL.TOP=5000 CATCH TO oEx ENDTRY SELECT (xAlias) xRecActual=0 xPlan=0 xRecFalta = RECCOUNT() DO WHILE xRecFalta>0 xPlan = xPlan + 1 COPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 xRecCopiado = _TALLY xRecFalta = xRecFalta - xRecCopiado xRecActual = xRecActual + xRecCopiado ENDDO xEXCEL.workbooks.ADD xLibroBase = xEXCEL.workbooks.COUNT xRecActual = 1 FOR nIt=1 TO xPlan xEXCEL.workbooks.OPEN(xPath+"_"+ALLTRIM(STR(nIt))) xLibroMV = xEXCEL.workbooks.COUNT xEXCEL.workbooks(xLibroMV).sheets(1).RANGE( "A"+ALLTRIM(STR(IIF(nIt=1,1,2)))+":"+xrango+ALLTRIM(STR(IIF(nIt=xPlan,xRecCopiado,65000)+1))).COPY * xEXCEL.VISIBLE=.T. xCL1=xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1) xCL1.PasteSpecial() *!* *!* xEXCEL.workbooks(xLibroBase).ACTIVATE *!* xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).SELECT * xEXCEL.VISIBLE=.F. * xEXCEL.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1).Paste xRecActual = xRecActual + 65000 *!* xEXCEL.VISIBLE=.T. *!* xEXCEL.workbooks(xLibroMV).ACTIVATE *!* xEXCEL.workbooks(xLibroMV).sheets(1).Cells(1,1).SELECT *!* xEXCEL.VISIBLE=.F. xEXCEL.workbooks(xLibroMV).CLOSE ENDFOR xEXCEL.workbooks(xLibroBase).SAVEAS(xPlanilla_Aux) xEXCEL.workbooks(xLibroBase).CLOSE xEXCEL.DisplayAlerts = xDisplayAlerts xTop=xEXCEL.TOP TRY xEXCEL.TOP=xTop CATCH ENDTRY xEXCEL.VISIBLE=xVisible ENDPROC PROCEDURE agregar_caption LPARAMETERS xTexto IF p_dev THEN Thisform.Caption = Thisform.Caption + xTexto ENDIF  ENDPROC PROCEDURE agregar_log_ejecucion LPARAMETERS xTexto Thisform.log_ejecucion = Thisform.log_ejecucion + xTexto ENDPROC PROCEDURE abrir_pdf LPARAMETERS xArchivo DECLARE INTEGER ShellExecute ; IN Shell32.DLL ; INTEGER nWinHandle ,; STRING cOperation ,; STRING cFileName ,; STRING cParameters ,; STRING cDirectory ,; INTEGER nShowWindow ShellExecute(0,"open",JustFName(xArchivo),"", JUSTPATH(xArchivo), 0) ENDPROC PROCEDURE sleep LPARAMETERS lnmillisecs lnmillisecs = IIF(TYPE("lnMillisecs")="N", lnmillisecs, 0) DECLARE Sleep IN WIN32API INTEGER = sleep(lnmillisecs) return ENDPROC PROCEDURE asignar_impresora LPARAMETERS xImpresora LOCAL xPaperOrientation, xPaperSize, xPaperSource, xPrinterDuplex xImpresora = EVL(xImpresora, SET("PRINT",2)) xPaperOrientation= THISFORM.CRReporte.PaperOrientation xPaperSize = THISFORM.CRReporte.PaperSize xPaperSource = THISFORM.CRReporte.PaperSource xPrinterDuplex = THISFORM.CRReporte.PrinterDuplex THISFORM.CRReporte.SelectPrinter ("",xImpresora,"") THISFORM.CRReporte.PaperOrientation = xPaperOrientation THISFORM.CRReporte.PaperSize = xPaperSize THISFORM.CRReporte.PaperSource = xPaperSource THISFORM.CRReporte.PrinterDuplex = xPrinterDuplex ENDPROC PROCEDURE cerrar_visualizador *=sys_mostrar_screen("cerrar",.t.) thisform.crvista.release thisform.crreporte=.f. THISFORM.CRAplicacion=.f. *!* THISFORM.CRAplicacion *!* THISFORM.CRReporte = THISFORM.CRAplicacion.OpenReport(THISFORM.archivoreporte) *!* THISFORM.CRVista = CREATEOBJECT("CrystalViewer_top",THISFORM.CRReporte,THISFORM.arbol,; ENDPROC PROCEDURE formato_rango_fechas lparameters xvariable, xseparador, xtxt, xd, xh xseparador=evl(xseparador, " - ") local xres xres="" if !empty(xd) or xh#date(2099,12,31) if empty(xd) xres = iif(!empty(xvariable), xseparador, "")+xtxt+": Hasta "+dtoc(xh) else if xh=date(2099,12,31) xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": Desde "+dtoc(xd) else xres = iif(!empty(xvariable), xseparador, "")+xseparador+xtxt+": "+dtoc(xd)+" al "+dtoc(xh) endif endif endif return xres ENDPROC PROCEDURE seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF PRIVATE xCod_Plantilla , xRes IF p_xls_mostrar_seleccion_modelos#0 AND SEEK(THIS.id_formulario_evaluado, "plantillas_xls","ID_Form") THEN xCod_Plantilla =0 DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original, .T. TO xRes IF NOT xRes THEN RETURN .f. ENDIF IF xRes AND xCod_Plantilla #0 THEN LOCAL opar AS Exportaciones_Parametros OF IMP_EXP.vcx opar=NEWOBJECT("Exportaciones_Parametros","IMP_EXP.VCX") opar.plantilla_leer (xCod_Plantilla) opar.do_aplicar_crystal (THISFORM) ENDIF ENDIF ENDPROC PROCEDURE pre_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_system+"\plantillas_xls.dbf") THEN LOCAL oTabla AS tabla_Plantillas_XLS OF sys_verificar2_tablas.prg oTabla=NEWOBJECT("tabla_Plantillas_XLS","sys_verificar2_tablas.prg") oTabla.crear_funcion () ENDIF USE (p_system+"\plantillas_xls") IN 0 ENDIF oForm.campos_parametros.Do_Leer_Crystal(oForm) oForm.campos_parametros_original.Clonarse(oForm.campos_parametros) ENDPROC PROCEDURE id_formulario_evaluado_access *To do: Modify this routine for the Access method RETURN THIS.id_formulario ENDPROC PROCEDURE evaluar_id_formulario RETURN thisform.id_formulario ENDPROC PROCEDURE id_formulario_access *To do: Modify this routine for the Access method IF EMPTY(this.id_formulario) THEN This.id_formulario = thisform.Name ENDIF RETURN THIS.id_formulario ENDPROC PROCEDURE pos_seleccionar_columnas LPARAMETERS oForm AS crystal OF clases.vcx IF NOT typeo(oForm) THEN oForm=THISFORM ENDIF *=sys_m("Pos") DIMENSION this.campos(255,ALEN(this.campos,2)) ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC PROCEDURE exportar_definicion_columnas **** OJO, est pensado para la clase en forma genrica. ***************************************************** **** Puede haber reportes que necesiten algo especfico. ***************************************************** LOCAL oLogs AS loguear OF sys_log.prg LOCAL oPar, nIt, nIt2 IF !EMPTY(pi_XLS_Exportar_Campos) THEN oLogs=NEWOBJECT("loguear", "sys_log.prg","",JUSTPATH(pi_XLS_Exportar_Campos), JUSTFNAME(pi_XLS_Exportar_Campos),, , , , -1) TRY THIS.inicializar_columnas IF THIS.imprimir_xls_usar_externo THEN THIS.inicializar_columnas_externo ENDIF IF NOT THIS.imprimir_xls_usar_externo THEN oLogs.LOG(PADR("Campo",20)+"Nombre",.T.) FOR nIt=1 TO ALEN(THISFORM.campos,1) oLogs.LOG(PADR(THISFORM.campos(nIt,1),20)+THISFORM.campos(nIt,2)) NEXT ELSE FOR nIt2=1 TO THIS.xls_coll_param.count oPar=THIS.xls_coll_param.Item(nIt2) FOR nIt=1 TO ALEN(oPar.ex_xls_campos,1) oLogs.LOG(PADR(oPar.ex_xls_campos(nIt,1),20)+oPar.ex_xls_campos(nIt,2)) NEXT NEXT ENDIF CATCH TO oEx oLogs.Log_Excepcion(oEx) ENDTRY ENDIF ENDPROC PROCEDURE Show LPARAMETERS nStyle, xTipo_Reporte IF EMPTY(nStyle) THEN nStyle=0 ENDIF IF nStyle=3 THEN THISFORM.tipo_reporte = xTipo_Reporte THISFORM.tmrclick.ENABLED=.T. = DODEFAULT(1) THIS.VISIBLE = .F. ELSE RETURN DODEFAULT(nStyle) ENDIF ENDPROC PROCEDURE Unload THISFORM.delete_files *!* local z *!* for z=1 to alen(thisform.archivo) *!* if thisform.archivo[z]#"" *!* delete file (thisform.archivo[z]) *!* else *!* exit *!* endif *!* endfor ENDPROC PROCEDURE Init STORE "" TO THISFORM.files_to_delete THISFORM.MINHEIGHT = THISFORM.HEIGHT THISFORM.MINWIDTH = THISFORM.WIDTH THISFORM.acomodar_botones() THIS.mantener=.F. try local xcaption xcaption=this.caption z=1 do while z<=len(xcaption) if !isalpha(substr(xcaption,z,1)) xcaption=stuff(xcaption,z,1,"") else z=z+1 endif enddo this.name=xcaption catch to oNada ENDTRY IF thisform.xls_archivo_automatico THEN thisform.xls_archivo = this.Caption +".xls" ENDIF TRY thisform.osql = oSQLCon CATCH ENDTRY && thisform.tipo_reporte && Especifica el tipo de reporte solicitado && 1 Crystal or VFP Preview && 2 Crystal or VFP Print && 3 Tabla Exportar && 4 Excel && 5 TXT && 6 Tabla Grilla && 7 PDF && 8 SQL o MySQL (Genera primero la tabla) ENDPROC PROCEDURE Load *!* if _screen.activeform.datasessionid=this.datasessionid *!* =mensaje('El reporte no tiene su propia sesin de datos !!!'+chr(13)+'No se puede continuar.') *!* return .f. *!* endif =sets() thisform.campos_formato = NEWOBJECT("Exportaciones_Parametros_Formato","IMP_EXP") thisform.campos_formato .num_format="###,###,##0.00" Thisform.campos_parametros= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") Thisform.campos_parametros_original= NEWOBJECT("Exportaciones_Parametros","IMP_EXP") SET CLASSLIB TO clases ADDITIVE SET PROCEDURE TO listados ADDITIVE THISFORM.xdact='N' THISFORM.xdage=SPACE(8) THISFORM.xhage=SPACE(8) THISFORM.xdasi = 'T' && Tipo de asientos THISFORM.xdatr=SPACE(3) THISFORM.xhatr=SPACE(3) THISFORM.xdbie=SPACE(8) THISFORM.xhbie=SPACE(8) THISFORM.xdbon=.F. && Solo las bonificaciones THISFORM.xdbul=SPACE(3) THISFORM.xhbul=SPACE(3) THISFORM.xdcat=0 THISFORM.xhcat=0 THISFORM.xdcau = ' ' && Causa THISFORM.xdclase=1 && Clase = Tipo THISFORM.xdcli=SPACE(6) THISFORM.xhcli=SPACE(6) THISFORM.xdcod = SPACE(6) && Cdigo (6 chars) THISFORM.xdcen=SPACE(6) THISFORM.xhcen=SPACE(6) THISFORM.xdcfc=0 && Centro de Facturacin THISFORM.xhcfc=0 && Centro de Facturacin THISFORM.xdcostos=0 && Costos THISFORM.xdcos=SPACE(6) THISFORM.xhcos=SPACE(6) THISFORM.xdctr=.F. && Para contribucin THISFORM.xdcue=SPACE(9) THISFORM.xhcue=SPACE(9) THISFORM.xddat=.T. && Slo los que tienen datos THISFORM.xddec=0 && Decimales THISFORM.xddiv = 'N' && Con divisin THISFORM.xddep=SPACE(8) THISFORM.xhdep=SPACE(8) THISFORM.xddsc=0 THISFORM.xddse='N' THISFORM.xdfcs=DATE() && Fecha para costos THISFORM.xdfec = {} THISFORM.xhfec = {^2099-12-31} THISFORM.xdfec1 = {} THISFORM.xhfec1 = {^2099-12-31} THISFORM.xdfle=SPACE(6) THISFORM.xhfle=SPACE(6) THISFORM.xdfor=SPACE(250) THISFORM.xdgru=0 THISFORM.xhgru=0 THISFORM.xdsubgru=0 THISFORM.xhsubgru=0 THISFORM.xdimp = 0 && Importacin THISFORM.xhimp = 0 && Importacin THISFORM.xdlin=0 THISFORM.xhlin=0 THISFORM.xdlis=0 THISFORM.xhlis=0 THISFORM.xdlva=0 THISFORM.xdmon = 0 && Moneda THISFORM.xdmot = 0 && Motivo Contable THISFORM.xhmot = 0 && Motivo Contable THISFORM.xdmov='S' && Solo las que tuvieron movimientos THISFORM.xdnot='N' THISFORM.xdnum = 'S' && Orden Alfanumrico/Numrico THISFORM.xdord=1 THISFORM.xdpai=0 THISFORM.xdpro=SPACE(6) THISFORM.xhpro=SPACE(6) THISFORM.xdprv=' ' THISFORM.xdrem = .F. && Incluye remitos THISFORM.xdres = ' ' && Completo/Resumen THISFORM.xdrsm = 1 && 1- Sin Resumen / 2- Con Resumen Final / 3- Solo Resumen THISFORM.xdsal='N' THISFORM.xdscd = .F. && Solo los codificados THISFORM.xdsce = 0 && Subcentro THISFORM.xhsce = 0 && Subcentro THISFORM.xdsep=1 THISFORM.xdsgr=0 && Subgrupo THISFORM.xhsgr=0 && Subgrupo THISFORM.xdspg=.F. && Saltos de Pgina THISFORM.xdstk='S' THISFORM.xdsub='S' THISFORM.xdsuc=0 && Sucursal THISFORM.xhsuc=0 && Sucursal THISFORM.xdser=oLot.data_codigo_vacio THISFORM.xdtar=1 && Tipo de Articulos (PT,MP...) 1=Todos (Ajustar pues tipo_art=1=MT !!!) THISFORM.xdtcp = ' ' && Cliente/Proveedor THISFORM.xdtip=1 && Tipo de Listado THISFORM.xdtot='N' && Totalizado THISFORM.xdtva=1 && Tipo de Valorizacin : 1=Sin Valorizar, 2=Costos, 3=Listas de precios THISFORM.xdult = {} THISFORM.xduni = 1 && Unidad (primaria/secundaria) THISFORM.xdval = 0 THISFORM.xdxba = .T. && Con detalle de bultos y atributos THISFORM.xdxcc = 'N' && Por centros de costos THISFORM.xdxcp = 'N' && Por cliente/proveedor THISFORM.xdzon=0 THISFORM.xhzon=0 ******************* Generales ******************* THISFORM.xdnum1 = 0 THISFORM.xhnum1 = 0 THISFORM.xdnum2 = 0 THISFORM.xhnum2 = 0 THISFORM.xdnum3 = 0 THISFORM.xhnum3 = 0 THISFORM.xdnum4 = 0 THISFORM.xhnum4 = 0 THISFORM.xdnum5 = 0 THISFORM.xhnum5 = 0 THISFORM.xdlog1 = .F. THISFORM.xhlog1 = .F. THISFORM.xdlog2 = .F. THISFORM.xhlog2 = .F. THISFORM.xdlog3 = .F. THISFORM.xhlog3 = .F. THISFORM.xdlog4 = .F. THISFORM.xhlog4 = .F. THISFORM.xdlog5 = .F. THISFORM.xhlog5 = .F. THISFORM.xdlog6 = .F. THISFORM.xhlog6 = .F. THISFORM.xdlog7 = .F. THISFORM.xhlog7 = .F. THISFORM.xdlog8 = .F. THISFORM.xhlog8 = .F. THISFORM.xdlog9 = .F. THISFORM.xhlog9 = .F. THISFORM.xdlog10 = .F. THISFORM.xhlog10 = .F. thisform.asignar_color () ENDPROC PROCEDURE Resize =THISFORM.acomodar_botones () thisform.chk_long.Top = thisform.Height - thisform.chk_long.Height - 10 ENDPROC PROCEDURE Destroy if this.DataSession=2 * =sys_mostrar_screen("Suspendo?", .t.) * La ejecuto varias veces por si hay ms de una DB close databases close databases close databases * Si no quedan DBs, elimina las tablas libres de la DB dimension atables(1) if aused("atables")>0 local z for z=1 to alen("atables",1) select (atables(z,1)) use endfor endif endif =this.campos_parametros.Dispose() this.campos_parametros=.f. dodefault() ENDPROC "h<%U4(%CCCC! %CC TC(!BUXFILEZTHISFORMFILES_TO_DELETEOCATCH(?%CCC  1aaaa=1CON ERROR &onerr BUZTHISFORMFILES_TO_DELETEARCHIVOTEMPORALMANTENERTCaTTTQ EXCEPTION T7C'Iniciando servidor de automatizacin... %- 0TCCrystalRuntime.Application.11N-T CrystalRuntime.Application.11(T 0TCCrystalRuntime.Application.10N-T CrystalRuntime.Application.10(T /TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(T 1TCCrystalRuntime.Application.8.0N.T CrystalRuntime.Application.8.0(T T u F/TCCrystalRuntime.Application.9N,T CrystalRuntime.Application.9(qT T+%CTHISFORM.CRAplicacionbO1}C01 - El servidor de automatizacin de impresionesC #no existe o no est bien instalado.C ()x1xerror=2 #CAbriendo reporte... T C !%CC Rf.RPT'T C C >[%%C _ .RPT0$T  _ .RPT -T  .RPT%C 0TC (CarchivoreporteC  (C(prn1: C)%  C;C(prn2: CPRINTv:C)'C(z0:CCZ)HI _ %T!C(z1:CCZ) 2T$C(z2:CCZ)'C(z3:CCZ)%4ON ERROR &onerr 1C!Configurando datos del reporte... Ta%TC %(<%Cthisform.archivo[z]bCC %CC0g.TCC 8C El archivo CC no existe !!! T-! !0C Pasando parmetros al reporte...!%T"#%$ %& He %' {@Titulo2} T%(")" %' {@Empresa} T%("C"  %& H $ %'{@NombreGrupo}Y T%("*"$ %'{@CodigoGrupo} T%(+) %'{@DescripcionGrupo} T%(,+ %'{@CRDescripcionGrupo} T%(-$ %'{@OrdenGrupos}A T%(. %' {@Titulo2}~ T%(")" %' {@Empresa} T%("C"%/ C0%1 0(CC234 a%CCCC234' PrintDate1 PrintDate2 PrintTime1 PrintTime2 ,T2345a%6 78 T8,%9:C this.filtrosbO U C T8C9;<(=Q  >?@A">?@B8(= %C D CE%FCGCImprimiendo... CaH<%CoEstadobOCoEstadobOCI  m TIJ- G~(clasesG+(listados0C Configurando la visualizacin... TM-TCCrystalViewer_topMCCCCCCCCC C NNC-O%N%P Q TJa TJ-ON ERROR &onerr HC El reporte C  tiene problemas.C (CE)x /C El reporte C  no existe.xON ERROR &onerr G(RUS XDEMPRESA FN_EMPRESATHISFORM CRAPLICACION CRREPORTECRVISTAXERRORXMESSOEX ESTADO_AVANCE CRVERSIONMESSAGEARCHIVOREPORTEP_EMP OPENREPORTAGREGAR_LOG_EJECUCION PRINTERNAMEP_PRN_SETEAR_DEFAULTASIGNAR_IMPRESORA PAPERSIZECRYSTAL_TAMAO P_CRY_TAMAOXOKTABLES_USE_LOC_ADVTABLES_LOC_ADV_APLICAZDATABASETABLESCOUNTARCHIVOLOCATION GET_SHORTPATHMENSAJE ESTADO_TEXTO REPORTTITLETITULO1DONTCHANGENOTHINGXFORMULA FORMULAFIELDSNAMETEXTTITULO2 NOMBREGRUPO CODIGOGRUPODESCRIPCIONGRUPOCRDESCRIPCIONGRUPO ORDENGRUPOS FORMULA_USARFORMULA_APLICARFECHAAREASSECTIONS REPORTOBJECTSSUPPRESS PARAM_USAR PARAM_APLICARXMOSTRAR_FILTROTHISFILTROS_MOSTRARFILTROSFILTRO_OBTENEROCATCHPARAMETERFIELDS GETITEMBYNAMEFILTRO_PARAMETROCLEARCURRENTVALUEANDRANGEADDCURRENTVALUEPARAM_OBJETOS_USARPARAM_OBJETOS_APLICAR PRE_IMPRESION XIMPRESION PRINTERSETUPPRINTOUTOESTADOVISIBLECLASESLISTADOSARBOL TIPO_REPORTEESTADO_VISIBLEMOSTRAR_EXTERNOSHOWP_SERVER 4U XIMPRESION*4G+(listadosTCa<%CoEstadobOCoEstadobOC  d |T-%?\prt\(!" G~(clasesT Creporte_ventanaNT  ?\prt\< UXREPORTELISTADOS XDEMPRESA FN_EMPRESAOESTADOVISIBLE XIMPRESIONP_SYSTEMCLASESOCAPTIONTHISFORMTITULO1SHOWREPORTE_VENTANA<%CoEstadobOCoEstadobOC  < TT-F%\TMP\CfQ Q\tmp\G~(clasesG+(listadosTCreporte_ventanaN  !%C browsfieldsbCT.BROWSE &browsfields TITLE THISFORM.titulo1 k ' <FQU OESTADOVISIBLETHISFORMARCHIVOTEMPORAL RPTBROWSEP_LOCALCLASESLISTADOSOSHOWTITULO1. G+(listados C T T T T T<%CoEstadobOCoEstadobOC  T a% C_C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte. T -% TC <%CoEstadobOCoEstadobOC   T - B C  T(C%'%CxCamposArr(nIt,1)bC%CT T'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bL'T-'%CxCamposArr(nIt,5)bCqT%SUMAR %CT%SUMAR #TCCf'%CxCamposArr(nIt,7)bC0T%SUMAR %CtT%SUMAR #TCCfT =0 TT T T\tmp\TReportesT T!" T"-T#C $% &%'(.sys_destino_excel('('*'(%'(+<%CoEstadobOCoEstadobOC    T -B-H@ C'(hT +a 2T +-H '(T'( '(T'(,-./01% +m(T#CArchivo de Excel#XLS%C#iT#C$% & T#C$% &%C#0T,C#T-C#T.C# T/+an-T0,\-(CC/Z)..%C00 > T#0!T//%/cj!%2T'&C# T3T4 5T6 7(T8C 9 * 96 T: T; T<=>?1 hayerror=.T.%Cf FQFQ %CN '( W GC:El reporte no ha devuelto registros para exportar a excel. FQ<%CoEstadobOCoEstadobOC  4 L T -B-(C. %CC/bD TC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} % B%C*C@\prt\C_v_C.xls0 X T!C.xls T: m 1%C@\prt\C_v_*]5  crystal_xls(!C"%C!fC reporte.xlsf T!@\prt\C! T: 1 T!@ \reporte.xls T: i T!@ \reporte.xls T: C imporimir xls CB,CCreando planilla de Excel... D+" o.%C!0 C No existe ! !!(#%" CNo se puede crear #C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa. "TECexcel.application\TEFaTGHI! EJ!TECexcel.applicationNC Por abrirK%"2C%No se puede abrir la aplicacin Excel !5L C Version: EMK%C#0CExisteK TLC#ENO(PCError: PQK K)CBorrando planilla inicialK #(CAgregando planilla vaciaKTLCENR!CGrabando planillaK Cname: LSK(P#C Error name: PQKC#8ETUCGrabadaK(P'CError ReadOnly: PQK T"a C No Existe!K%" .CNo se puede abrir el archivo # EV%CoEstadobOCoEstadobOC   T-  <sys_procesandoUTHISFORMOESTADOVISIBLEREFRESHRELEASESP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOJ!(CC0%CThisform.Param_data(nIt,1)bC? $C5CC(;% 7% C Problemas al pasar el parmetro CCf al reporte en Crystal.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   3C Problemas al pasar el parmetro CCf al reporte  C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!C C   UNITTHISFORM PARAM_DATA CRREPORTEPARAMETERFIELDS GETITEMBYNAMECLEARCURRENTVALUEANDRANGEADDCURRENTVALUEOCATCH PARAM_NOERRORP_DEVMENSAJEMESSAGEARCHIVOREPORTE@ T%(CTC! (C ?<%Cthisform.archivo[w]bCC   ;T C\C  % T C/C  ,% CC  >  7T CC  \T C. % T C =%CC fCCf3%CC  0.TCC   /8C El archivo CC   no existe !!!B-"(9*(C5)%CC18(CC-1TCCC! (C )<%Cthisform.archivo[w]bCC   %T C\C  % T C/C  ,% CC  >  !T CC  \T C. % UT C =%CC fCCf%CC  0CTCC   8C El archivo CC   no existe !!!B-UCRSUBREPORTOBJECTXTHISFORM CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWARCHIVODIRBARFRMNAMEPOINTPOS GET_SHORTPATHMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT<%CoEstadobOCoEstadobOC  < TT-TC%%\TMP\CfT.txt &T\tmp\.txt%C07%C!Desea abrir el archivo de Texto?.| ShellExecute Shell32.DLL!Copen 5CEl archivo se ha guardado en: C   C No existe  U OESTADOVISIBLETXARCHIVOTEXTOTHISFORM ARCHIVOTEXTOARCHIVOTEMPORALP_LOCAL MENSAJE_SINO SHELLEXECUTESHELL32DLLMENSAJE Q COMMANDBUTTON7T   )T C T T T T T TTTT T C T0 T T T"TC6TTC 8T5 T%TTT T!'T!C" "6+T!!C# #62T!!C# "  6 TC 8C! 8T#T"T"!T#"T" T# TU$ BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVENABLEDREP_IDBTNTXT BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNPLANTILLA_EXCELBTNSALIRREACOMODAR_BOTONES ANCHO_BOTONES INTER_BOTONESNUMERO_BOTONES XTABINDEXCBTNXANCHO_BOTONESXLEFTWIDTHXTOPHEIGHTNITLEFTTOPTABINDEXXCKANCHOCKFECHAKEEP M4QSTRINGQVARIANTQINTEGERQINTEGERQBOOLEAN%cB-G+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-( BTCN %2TT%CxDatabDTCN TC %C  C T T T aU XNAMEXDATA XFECHALIMITEXPOSXOMITIRDEY_FUNCTHIS PARAM_COUNTTHISFORM PARAM_DATA CHK_VALUECR_VALIDAFECHA PARAM_USAR4QSTRINGQSTRINGQINTEGERQBOOLEANQBOOLEANQSTRINGQOBJECTQSTRINGQSTRINGG+(Dey_FuncB%CxFieldbLCxLabelbL CxPosbL T J( BTCC] TCN%iT  T %C  C T T T T %C HT !%CxForbL T   T %C T T  BUXFIELDXLABELXPOS XTOTAL_SEPARAXTOTAL_GENERAL XOPERACIONXFOR XOPER_TOTALXIDUDEY_FUNCTHIS CAMPOS_COUNTTHISFORMCAMPOS CHK_VALUECAMPOS_FORMATO BaU8%CoEstadobO1CaUOESTADODEBUG_TIME_SETTHISCAPTION2%CoEstadobO+C-UOESTADODEBUG_TIME_SET _C-El sistema usa el procedimiento anterior !!! C Por favor avise al soporte.%T B  %C  Q \tmp\  F %C NnGC:El reporte no ha devuelto registros para exportar a excel. F QB- (C.%CC /bDT C /8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} K%C 0C\prt\C _v_C .xls0 cTC .xls T ~4%C\prt\C _v_*]F" crystal_xls(C "%CfC reporte.xlsfT\prt\C T BT \reporte.xls T zT \reporte.xls T T-TC  .sys_destino_excel(H. CT a 2.T -HCi iT% (TCArchivo de ExcelXLS%CTC T,TCreando planilla de Excel...  !1 hayerror=.T.+ %C0 C No existe x!(%>CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.x!" u"T"Cexcel.application\  Ta% T- !T"Cexcel.applicationN  Ta%41C%No se puede abrir la aplicacin Excelx! VC"#$ k Ta%-CNo se puede abrir el archivo x "%<"!ON ERROR &onerr T"&-T'"#("#')*'"#')+A3,T/TProcesando el encabezamiento... T +CC  - ;T.CC  8C@C  8 63T..C@CC GC G6 *"#')+.3* "/0;T"#')+.3C  -T  T1 %1 F T2CC]R T3 (1T T33CC  -% 1 P T33,DCOPY TO (p_local+"\tmp\"+xplanilla_aux) FIELDS &xfields TYPE XL5 (C \tmp\2.xls"#$/T@CC1 8 C1 86!TC@C 6T@C1G"TC@zC 6T4+"#')+A1*;"#')+A2:4CCCNZ*;"#')+A2:4CCCNZ5"#')6'"#')+A4*"#')0"#'7- %8 9  F T:CN (1;T.CC  8C@C  8 63T..C@CC GC G6 !%CC  -bN%8B1T;=Sum(.4:.CC:Z)"T"#')<;2T"#')=: >?a%@>4T"#')=: A@%97T"#')=: BA9T&TAjustando Columnas ... T 1;T.CC  8C@C  8 63T..C@CC GC G6 ."#')CA:.BD0T"#')+A1 '"#')+A1*"#')*'"#')+A1*TT Guardando... "EFT"G-"#'7  \tmp\2.xlsT&-T"Ga6%CAbre el archivo en el Excel ?x%%',T"G- "%<".| ShellExecute SHELL32.DLL!| FindWindowWIN32APITM9N.TOCMopen \tmpH%O !RC!No se puede ejecutar ShellExecuteC Cdigo del error: CCOZ v%'ZT"G- "% rT"&a<"! F QBM Sub Macro1()' Macro1 Macro1+' Macro grabada el 25/10/2000 por Guillermo Range("D2").Select)# Selection.NumberFormat = "0.00" With Selection.( .HorizontalAlignment = xlGeneral+% .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0" .ShrinkToFit = False! .MergeCells = False End With With Selection.Font .Name = "Arial"! .FontStyle = "Bold" .Size = 23$ .Strikethrough = False" .Superscript = False  .Subscript = False" .OutlineFont = False .Shadow = False/) .Underline = xlUnderlineStyleNone'! .ColorIndex = xlAutomatic End With Range("E4").Select! With Selection.Interior .ColorIndex = 15  .Pattern = xlSolid End With-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select=7 ActiveCell.FormulaR1C1 = "hasfhsdfhksdhfkshdfkhskf" Range("E5").Select-' Columns("E:E").EntireColumn.AutoFit Range("E4").Select>8 Selection.Borders(xlDiagonalDown).LineStyle = xlNone<6 Selection.Borders(xlDiagonalUp).LineStyle = xlNone,& With Selection.Borders(xlEdgeLeft)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With+% With Selection.Borders(xlEdgeTop)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With.( With Selection.Borders(xlEdgeBottom)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With-' With Selection.Borders(xlEdgeRight)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With2, With Selection.Borders(xlInsideVertical)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With4. With Selection.Borders(xlInsideHorizontal)'! .LineStyle = xlContinuous .Weight = xlThin'! .ColorIndex = xlAutomatic End With Calculate End Sub Sub Macro2()' Macro2 Macro1+' Macro grabada el 25/10/2000 por Guillermo.( Application.Run "reporte.xls!Macro1" End SubUPX1X2MENSAJETHISXLS_AUTOGENERARGEN_XLSARCHIVO_TEMPORALARCHIVOTEMPORALGENERARZAAATHISFORMP_LOCAL PLANILLAXLSP_SYSTEM XPLANILLAXOTRA_PLANILLA CRYSTAL_XLSHAYERROR XXLS_ARCHIVOODEYFUNCGET_PATH XLS_ARCHIVOSYS_DESTINO_EXCELCAPTION XLS_ABRIRXLS_ARCHIVO_PREGUNTARXPLANILLA_FINALOESTADOVALUETEXTOXCOPY MAXFIELDSXDATAX WORKBOOKSOPENQUITVISIBLEXLIBROSCOUNTSHEETSSELECTRANGECOPYCAMPOSXCOL ACTIVESHEETPASTE XMAXFIELDS XPLANILLA_AUXXFIELDSXRANGOCUTACTIVATECLOSE XLS_TOTALIZARXLS_NUMBER_FORMATTXNROW TXSUMFORMFORMULACELLSFONTBOLDXLS_TOTALIZAR_FORMATO NUMBERFORMAT ENTIRECOLUMNCOLUMNSAUTOFITACTIVEWORKBOOKSAVE DISPLAYALERTS SHELLEXECUTESHELL32DLL FINDWINDOWWIN32APIPHWNDHWNDXERROR T T T T TTa C  T  (C % $'%CxCamposArr(nIt,1)bC%C  T    T  '%CxCamposArr(nIt,3)bLfT -'%CxCamposArr(nIt,4)bLT -'%CxCamposArr(nIt,5)bCT %SUMAR g%C  6T %SUMAR c#T CC  fT  =0T T T\tmp\TReportesT  T!T\tmp\reporte.mdb TT T (TC   6 T!"#$% T#-1 hayerror=.T.%C  FQFQ%CN[HC;El reporte no ha devuelto registros para exportar a Access.& FQB-%  INDEX ON &xOrden TAG REP_mdb (C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} B%C*C'\prt\C_v_C.mdb0 |TC.mdb T! 1%C'\prt\C_v_*]Y crystal_MDB(C"%CfC reporte.MDBf!T'\prt\C T! UT' \reporte.MDB T! T' \reporte.MDB T!*CCreando Tabla de Access...)+a %C0 C No existe x!(%#CNo se puede crear C dRevise entre las tareas en ejecucin que no exista una instancia de Access creada por este programa.x!*#T*CAccess.application\%#  T#-"T*CAccess.applicationN%#i2C&No se puede abrir la aplicacin Accessx!C*+%#-CNo se puede abrir el archivo x *,<*!ON ERROR &onErr T- T+CC P T%C L !T. FTC/.dbfT0CC\\T1CC\\ T2(.& T22CC %. " T22,6COPY TO (xPlanilla_Aux) FIELDS &xfields TYPE FOX2X C Importando...)5C dBase 5.001Reporte-*34 1a=1 (. 8T*56Reporte7 8C  ON ERROR &OnErr C Guardando...) T-7%CAbre el archivo en el Access ?x %- *9 *,<*.| ShellExecute SHELL32.DLL-T=Copen\tmp:%=  RC!No se puede ejecutar ShellExecuteC Cdigo del error: CC=Z&  %- *9 *,  T*a<*! FQBU> XLEDGETOP XLEDGEBOTTOM XLAUTOMATIC XLCONTINUOUSXLTHINOESTADOVISIBLEZAAATHISFORMCAMPOS XCAMPOSARR XCOLCOUNTNIT XPLANILLAMDB PLANILLAMDB XTEMPORALARCHIVOTEMPORALXTABLAP_LOCALXALIASXORDEN CAMPOS_ORDEN XPLANILLAXPLANILLA_FINAL XPLANILLA_AUXXSEPFOR CAMPOS_SEPARAXSEPENCCAMPOS_ENCABEZADOXTITULO CAMPOS_TITULOCAPTIONXOTRA_PLANILLAXCOPYHAYERROR MAXFIELDSXDATAMENSAJEP_SYSTEM CRYSTAL_MDBAVANCEXOPENCURRENTDATABASEQUITXLIBROS XMAXFIELDSNEWFILE_LOCAL_TMPXTMPPATHXTMPFILEXFIELDSDOCMDTRANSFERDATABASE CURRENTDB TABLEDEFSFIELDSNAMECLOSECURRENTDATABASE SHELLEXECUTESHELL32DLLXERROR%CoControlbO9 T o,TCObjeto_ControladorObjetos TC(,TCObjeto_ControladorObjetos% TCa  BU XCICLOOOBJOCONTROLXRET CRYSTAL_PARAMTHISFORM CRREPORTEOEXTHISPARAM_OBJETOS_APLICAR N!(CJS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf F TC(ByCProblemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!!  T " ( *(C   )%CC   8(CC   #TCC  {!(CwS%CTHISFORM.Formula_data(nit,1)bCCCfCCCf s TC(oC*Subreporte: Problemas al pasar la frmula CCf.C C (EL REPORTE PUEDE TENER DATOS ERRONEOS!!! UXFORMULANITTHISFORM CRREPORTE FORMULAFIELDS FORMULA_DATANAMETEXTOCATCHMENSAJECRSUBREPORTOBJECTZSECTIONSCOUNTY REPORTOBJECTSKINDX OPENSUBREPORTDATABASETABLES RPTOBJECT.4QSTRINGQSTRINGQINTEGERG+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-(BTCN%TT%C6CTTT aU XNAMEXFORMULAXPOSDEY_FUNCTHIS FORMULA_COUNTTHISFORM FORMULA_DATA CHK_VALUE FORMULA_USAR#Q EXPORTACIONESimp_exp'TC exportacionesimp_expT%TCC C  C TC CollectionNBaU OEXPIMP_EXPXPARARCHIVO_SALIDA_RENOMBRATHISFORMTHISXLS_COLL_PARAMCOUNTXLS_COLL_GETNEWADDPARAMETROS_COLLEXPORTAR_XLS_COLLxG~(Clases(TCExportaciones_parametrosN% hC BUXNO_LEER_CRYSTALXPARDO_LEER_CRYSTALTHIS %C % TT$TCWWAPI IP\WWAPI.PRG?TCHKCUSOFTWARE\Solinges\GES\Reportes  TCC6'TC Archivo PDF:CPDF%C T  $TCWWAPI IP\WWAPI.PRGBCHKCUSOFTWARE\Solinges\GES\Reportes Ca  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDF 'TCCCPDF  TTT  C- (CImposible exportar !!!C C Quizs el archivo C7 ya est abierto o bien el lector de PDFs est colgado.Imposible exportar a un PDFU XNOPREGUNTARXARCHIVOTHISFORM CRREPORTE XPDFPROMPT EXPORTOPTIONSDESTINATIONTYPE FORMATTYPEOAPIREADREGISTRYSTRINGNAME DISKFILENAMEWRITEREGISTRYSTRINGEXPORT OEX_EXPORTMENSAJE XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP U BOTON_ARRAY0&CC reporte.xlsUOCOLLADDODEYFUNCGET_PATHTC Collection Y"TCexcel.application\(gC/%CoEXCbO CoCollbO Ba T %C %C fC f~C'La planilla se encuentra en abierta !!!C 0Cierrela antes de intentar generarla nuevamente.C C   % -T aB-U OXLSOEXOCOLLOWBOEXCTHISFORMXLS_A_USAR_PEDIR WORKBOOKSTYPEOXTXTFULLNAMEMENSAJEVISIBLE$#%SCH  [%NC B  T CX T*|GetShortPathNamekernel32TC  %TCCC =C  T BU XFILEXFINALP_EMPTHISCHK_LONGVALUEP_DEVMENSAJEXLNXPATHGETSHORTPATHNAMEKERNEL32 Ta C(CIniciando datos... C C C TC %CxdestinobCT%.DBF TC.dbf ( T( P% L$CDestino invlido : %  )%CoEstadobO C   T- BU XNO_RELEASEXDESTINOXARCHIVOTHISFORMMANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONEXPORTAR_DEFINICION_COLUMNASARCHIVOOCOPYXXXP_DEVMENSAJERELEASETYPEOMQINTEGERQBOOLEANQSTRINGQBOOLEANQINTEGER%CxabrirbN} TTaT TaH  T-TC  "  TC  tT Ta  TC  T-   c%   BU XTIPO_REPORTE XNO_RELEASEXTABLA XMANTENERXABRIRXRETURNTHISFORMMOSTRAR_EXTERNOMANTENER EJECUTAR_SQL BTNVISUALIZARCLICKARCHIVOTHIS XLS_ABRIR AUTOMATIZADO BTNEXPORTAR XPDFPROMPTBTNPDFRELEASE% QOBJECT7T   T -T -T -T -T -T -T -T aT UVNEWVAL BOTON_ARRAYTHISFORMBTNPARAMVISIBLE PARAMETROSPAR_HABILITADOP_DEVBTNTXTENABLED BTNVISUALIZAR BTNIMPRIMIRBTNTABLA BTNGRILLA BTNEXPORTARBTNPDFBTNSALIRTHIS SOLO_SALIR T@ TT T T T%TCC 8 %CGTCCG  BUXCOLUMNAXINIXLAPXFINXSTRXCOLXCURg;QGUARDAR_PARAMETROS_CRYSTALform_controles.vcx 'T %C #FQ \rptparam wr tmprptparam  CEjecucin tipo CC Z C] F Q(5%C tmprptparam`F QUOPARAMFORM_CONTROLESVCXOEXTHISFORM PARAMETROSPAR_LEERREP_IDP_SYSTEM TMPRPTPARAM PUB_INDEXP_CODEMP TIPO_REPORTE VAL_TEXTOSb<%CoEstadobOCoEstadobOC  JB-CUXTEXTOOESTADOAVANCEa<%CoEstadobOCoEstadobOC  JB-TUXTEXTOOESTADOTEXTOa<%CoEstadobOCoEstadobOC  JB-TUXVISIBLEOESTADOVISIBLEX /T@CC 8 C 86!TC@C 6T@CG"TC@zC 6T     T CT T-TTT- eT(s F T  T  T CN+ qT  wCOPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xfields TYPE XL5 T T  T   T T (  C _CCZTj ACCC6Z:CCC 6Z!ATC C6CC" C#T  $%$T T 7T ATU&XALIASXEXCEL XPLANILLA_AUXXFIELDS XMAXFIELDSX1X2XRANGO XRECCOPIADOXPLAN XRECACTUAL XRECFALTAXDISPLAYALERTSXPATH XLIBROBASEXLIBROMVOEXXCL1XCL2ODEYFUNCNEWFILE_LOCAL_TMP DISPLAYALERTSXVISIBLEVISIBLEXTOPTOP WORKBOOKSADDCOUNTNITOPENSHEETSRANGECOPYCELLS PASTESPECIALCLOSESAVEAS4%-TUXTEXTOP_DEVTHISFORMCAPTION!TUXTEXTOTHISFORM LOG_EJECUCION^.| ShellExecute Shell32.DLL&CopenCCUXARCHIVO SHELLEXECUTESHELL32DLLb-TCC lnMillisecsbN6|SleepWIN32APICBU LNMILLISECSSLEEPWIN32APITCCPRINTv TTT T C TTT T U XIMPRESORAXPAPERORIENTATION XPAPERSIZE XPAPERSOURCEXPRINTERDUPLEXTHISFORM CRREPORTEPAPERORIENTATION PAPERSIZE PAPERSOURCE PRINTERDUPLEX SELECTPRINTER, T-T-UTHISFORMCRVISTARELEASE CRREPORTE CRAPLICACIONlTC -   T&%C C3 $ \%C4TCC 6: Hasta C* X%C3 $ 8TCC 6: Desde C* T@TCC 6: C* al C* BU XVARIABLE XSEPARADORXTXTXDXHXRES QCRYSTAL clases.vcx %CPlantillas_XLS )%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C"Q\plantillas_xls%C > T  5  :% $C plantillas_xlsID_Form  T =sys_editar_reportes_excel_arbol(  a% B-%   2QEXPORTACIONES_PARAMETROS IMP_EXP.vcx6TCExportaciones_Parametros IMP_EXP.VCXC C UOFORMCLASESVCXP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONTYPEOTHISFORMXCOD_PLANTILLAXRESP_XLS_MOSTRAR_SELECCION_MODELOSTHISID_FORMULARIO_EVALUADOSYS_EDITAR_REPORTES_EXCEL_ARBOLCAMPOS_PARAMETROS_ORIGINALOPARIMP_EXPPLANTILLA_LEERDO_APLICAR_CRYSTALo QCRYSTAL clases.vcx%C B T %CPlantillas_XLS >)%C\plantillas_xls.dbf0 <QTABLA_PLANTILLAS_XLSsys_verificar2_tablas.prg@TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C "Q\plantillas_xlsC C UOFORMCLASESVCXTYPEOTHISFORMP_SYSTEMOTABLASYS_VERIFICAR2_TABLASPRG CREAR_FUNCIONCAMPOS_PARAMETROSDO_LEER_CRYSTALCAMPOS_PARAMETROS_ORIGINALCLONARSE BUTHIS ID_FORMULARIO BUTHISFORM ID_FORMULARIO:%C'T BUTHIS ID_FORMULARIOTHISFORMNAMEg QCRYSTAL clases.vcx%C B TCUOFORMCLASESVCXTYPEOTHISFORMTHISCAMPOSTCUTHIS BACKCOLOR SYS_COLOR!QLOGUEAR sys_log.prg%C <TCloguear sys_log.prgCC  %  % >%CCCampoNombrea !(C :/CCC C   (TC!(C/CCCC (CUOLOGSSYS_LOGPRGOPARNITNIT2PI_XLS_EXPORTAR_CAMPOSTHISINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOINICIALIZAR_COLUMNAS_EXTERNOLOGTHISFORMCAMPOSXLS_COLL_PARAMCOUNTITEM EX_XLS_CAMPOSOEX LOG_EXCEPCION %C) T%{TTa CT-  BCUNSTYLE XTIPO_REPORTETHISFORM TIPO_REPORTETMRCLICKENABLEDTHISVISIBLE UTHISFORM DELETE_FILEShJ(TT CT-  T  T + C >%CC \9 T C [ T  T  ( %9T .xls WT aUTHISFORMFILES_TO_DELETE MINHEIGHTHEIGHTMINWIDTHWIDTHACOMODAR_BOTONESTHISMANTENERXCAPTIONCAPTIONZNAMEONADAXLS_ARCHIVO_AUTOMATICO XLS_ARCHIVOOSQLOSQLCON C=TC Exportaciones_Parametros_FormatoIMP_EXP!T###,###,##0.005TCExportaciones_ParametrosIMP_EXP5TCExportaciones_ParametrosIMP_EXPG~(clasesG+(listadosTNT CXT CXT TT CXT CXTCXTCXT-TCXTCXTTT TTCXTCXTCXTCXTCXTTTTCXT CXT!-T"C XT#C XT$aT%T&NT'CXT(CXT)T*NT+C$T,T-BAT.T/BAT0CXT1CXT2CXT3T4T5T6T7T8T9T:T;T<T=T>T?T@TASTBNTCSTDTETFCXTGCXTH TI-TJ TKTLNTM-TNTOTPTQTRTS-TTSTUSTVTWTXYZT[T\ T]T^NT_T`TaTbTcaTdNTeNTfTgThTiTjTkTlTmTnToTpTqTr-Ts-Tt-Tu-Tv-Tw-Tx-Ty-Tz-T{-T|-T}-T~-T-T-T-T-T-T-T- CUSETSTHISFORMCAMPOS_FORMATO NUM_FORMATCAMPOS_PARAMETROSCAMPOS_PARAMETROS_ORIGINALCLASESLISTADOSXDACTXDAGEXHAGEXDASIXDATRXHATRXDBIEXHBIEXDBONXDBULXHBULXDCATXHCATXDCAUXDCLASEXDCLIXHCLIXDCODXDCENXHCENXDCFCXHCFCXDCOSTOSXDCOSXHCOSXDCTRXDCUEXHCUEXDDATXDDECXDDIVXDDEPXHDEPXDDSCXDDSEXDFCSXDFECXHFECXDFEC1XHFEC1XDFLEXHFLEXDFORXDGRUXHGRUXDSUBGRUXHSUBGRUXDIMPXHIMPXDLINXHLINXDLISXHLISXDLVAXDMONXDMOTXHMOTXDMOVXDNOTXDNUMXDORDXDPAIXDPROXHPROXDPRVXDREMXDRESXDRSMXDSALXDSCDXDSCEXHSCEXDSEPXDSGRXHSGRXDSPGXDSTKXDSUBXDSUCXHSUCXDSEROLOTDATA_CODIGO_VACIOXDTARXDTCPXDTIPXDTOTXDTVAXDULTXDUNIXDVALXDXBAXDXCCXDXCPXDZONXHZONXDNUM1XHNUM1XDNUM2XHNUM2XDNUM3XHNUM3XDNUM4XHNUM4XDNUM5XHNUM5XDLOG1XHLOG1XDLOG2XHLOG2XDLOG3XHLOG3XDLOG4XHLOG4XDLOG5XHLOG5XDLOG6XHLOG6XDLOG7XHLOG7XDLOG8XHLOG8XDLOG9XHLOG9XDLOG10XHLOG10 ASIGNAR_COLOR4 C$T UTHISFORMACOMODAR_BOTONESCHK_LONGTOPHEIGHT% %Catablesy%(CatablesFCQCT- CUTHIS DATASESSIONATABLESZCAMPOS_PARAMETROSDISPOSEfile_to_delete0 delete_filesimprimir_crystal imprimir_vfpimprimir_reporte_vfpimprimir_tabla_viejo imprimir_xlspreprocesar_impresiondPpostprocesar_impresionQ param_aplicar>Stables_loc_adv_aplicaBVimprimir_textoT\acomodar_botones^ param_agregar^dcampos_agregarf validar_datosjdebug_time_iniciarjdebug_time_finalizar,kimprimir_xls_viejokimprimir_tablakparam_objetos_aplicarformula_aplicarformula_agregarimprimir_xls_externoעxls_coll_getnewt imprimir_pdf#reacomodar_botonesxls_a_usar_pedirxls_a_usar_revisarr get_shortpath֬ ejecutar_sqlgejecutar_externosolo_salir_assignܳ xls_columnagrabar_ejecucion̶ estado_avance˸ estado_textoNestado_visibleϹimprimir_xls_largosTagregar_captionagregar_log_ejecuciond abrir_pdfsleep:asignar_impresoracerrar_visualizador\formato_rango_fechasseleccionar_columnasdpre_seleccionar_columnas.id_formulario_evaluado_accessQevaluar_id_formulario}id_formulario_accesspos_seleccionar_columnas asignar_colorexportar_definicion_columnasShowUnloadInitLoad,ResizeIDestroy1qAAAAAAB311BAB3sAAAAAA1WqASAAC1Aqaq11AaAAq41"QAAAAAAe'sBAqAB111B1BAA!A1AAA)AtAAA!A$A2A!_ b!AABA2AAB23q6q"A2Ar4AA!ArrA4@#A"A"AAB1qAAAqqAqqAq1AAq1AAAQrhAbAqAAaaArq!A!AA1AAA11AAB2DAAqAAqAAABC"q!AAA"AA" !BA!AAraA1AqqqAAAqAAq14vABAR1qAAA2aqQ!A1!A1!AA"!ADrArAaBAAARAABvb!xqa1BqQAA5QAAArA!a1qQqArAAAABQACAArA!a1qQqArAAAArQ!a1qQqArAAAraA!a1qQqArAAAB5BvQAAAaQaaaaAbraQAAA11AAACCBAAC?qraQA221CqB4CR1C  AAAAA4S1A11aAqAAAAAA"1A11aA1qAAAAAAAAA3A"1aAAqRAA3rcaaaaaaaaa!Ar!AArr!rq24q9sA"AA1qAaAA3A""AAa1qAA!AA"A2q2AA3A2"aAARAqAqAAAA!!AAArAaA$AAq2D"AA"AAr!AAAAAAAqAA22ru1A2Q1!ABBb!q1!!!aAAAaqABBAva1qBqr3b3qA2!A2ADqCBABF!aAaaa!!A!!q!!aaqq!qq!qq!qq!!qq!Aqq!1!aAaaaaaA:@B1qAAAqqAqqAq1AAAQtB#AA"AqABAAA"q!AAA"AA" AAr2!A!AAqAA2AAAa1!ABaQAAr1qA2!A2ADqCBAB9qqAq!AA>q2AAAB"1A2RAAAAAAAA2"AA1qAA32qr1AABAAq2qqA3QaaCq"aA!A BAqaaa BBA3q2qb21!AqAAAAAAqAAAA5qq1AA1A2qBqA!AAABAA2qB1Q1A1A11AA3qrrA!3qr2BA2qQxrAABqAA4qqA2qqA2qqA2qb!qAAqA11G6A1A3qqA2qr3qb2qA5q12111211127qbrbAAAA3A"AQAqA"aAA3QAA"ABa332B1A3QA22!!A1QAAAAAA3A1A3=21qaAAA!AA>RQ!"!"!"!"!"!""!"!"!"!baba"!""!2b2A3aUQQrQ!AABA2`+&+>,{i,..U1 x1oJ‰cy‹9eGlӜĨe9E[it]a[eG X# zK+ vE sZ h 9P w     :A I9\W Y!m l"" r"6# x[## ~$*, P,, ,(- H-d. ./ F/1 13( A3554 `5>9K m9y;l ;; '<E< p<= ?== => !L>B <BC ICD KDG fGY Y Z 'Z[ )arbol archivoreporte craplicacion crreporte crvista nombregrupo Texto que aparece en cada grupo. Ej: "Vendedor : " codigogrupo Identificador del grupo. Ej: {rptclientes.vendedor} descripciongrupo Texto describe al identificador. E: {rptclientes.anombre} ordengrupos Formula para el orden en que aparecen los grupos crdescripciongrupo Descripcion del grupo para el drilldown. titulo1 Titulo del listado titulo2 Titulo del listado (2 linea) xdcli xhcli xdfec xhfec xdult xdage xhage xdzon xhzon xdcat xhcat xdlis xhlis xdord xdtip xdsep xdfor xdnot xdsal xdpai xdprv xdsuc archivotemporal xdbie xhbie xdfle xhfle xdpro xhpro xdbul xhbul xdatr xhatr xdgru xdlin xhgru xhlin xdcue xhcue xdcos xhcos xddep xhdep xdval xddsc xdstk xddec xdact xdlva xddse xdser xdtar xduni xdsub xdtva xdsgr xhsgr xdfcs xdsce xhsce xdcau xdasi xddiv xdcod xdimp xhimp xdmon xdres xdtcp xdnum xdcen xhcen xdmov xdtot xdxcc xdxcp planillaxls Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en XLS.El formato es p_system\prt\+archivotemporal+_F_+* xdxba xdcfc xhcfc xhsuc xdmot xhmot xdbon xdspg xddat xdrem xdctr xdscd xdcostos xdclase xdlog1 xhlog1 xdlog2 xhlog2 xdlog3 xhlog3 xdlog4 xhlog4 xdlog5 xhlog5 xdnum1 xdnum2 xdnum3 xdnum4 xdnum5 xhnum1 xhnum2 xhnum3 xhnum4 xhnum5 xdped xhped xdlog6 xdlog7 xdlog8 xdlog9 xdlog10 xhlog6 xhlog7 xhlog9 xhlog8 xhlog10 mantener fecha Flag que decide la impresin de la fecha en el reporte xdfec1 param_usar dontchangenothing tables_use_loc_adv hlpidu archivotexto txt_autogenerar xls_autogenerar xdrsm param_count campos_count xls_totalizar xls_totalizar_formato xls_number_format tipo_reporte Especifica el tipo de reporte solicitado. imprimir_xls_usar_viejo Especifica si se va a usar el procedimiento viejo de exportacion a excel campos_separa Frmula a utilizar en el EVALUATE para determinar si hay separacin. campos_encabezado Frmula a utilizar en el EVALUATE para poner el encabezado de la separacin campos_titulo campos_orden planillamdb Si contiene el nombre de una planilla vlida, se utilizar sta para mostrar los datos en Access. El formato es p_system\prt\+archivotemporal+_F_+* imprimir_tabla_usar_viejo param_objetos_usar xhfec1 formula_usar formula_count xls_abrir 0=Consulta si abre en el EXCEL, 1=Abre directamente, 2=No abre ni consulta, solo lo genera, 3=Lo genera y pregunta dnde lo guarda, 4=Lo genera y pregunta dnde lo guarda pero no abre crystal_no_report .t. = No hy una versin para crystal de este reporte (para diferenciarlo de la inexistencia del archivo rpt) xdnum6 xhnum6 param_noerror imprimir_xls_usar_externo Especifica si usa el procedimiento externo de exportacin a excel. xls_coll_param xdtot_fin xdtot_sep filtros_mostrar filtro_parametro Parametro al cual se pasa el texto del filtro xdfec2 mostrar_externo manter_oestado exportacion xls_archivo xls_archivo_automatico xls_archivo_preguntar xhsubgru xdsubgru xdsprgru xhsprgru cr_showtop xfecha_reporte solo_salir campos_formato xpdfprompt xpdfarchivo xdtipo_art ayuda_web xhfec2 xdnum7 xhnum7 crversion crystal_tamao document_id log_ejecucion xdnum8 xhnum9 xhnum8 xdconsolidado titulo1_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, titulo2_parametro Este texto reemplaza a titulo1 si est definido. Se usa cuando el reporte es manipulado externamente, oestado sininterfaz osql Contenedor del objeto para conexin SQL suspender archivo_salida_renombra log_path xhmar xdmar campos_parametros campos_parametros_original id_formulario id_formulario_evaluado plantillas_xls_habilitado id_formulario_ultimo automatizado version_reporte ^archivo[10,0] ^files_to_delete[30,0] *file_to_delete *delete_files *procesar *imprimir_crystal *imprimir_vfp *imprimir_reporte_vfp *imprimir_tabla_viejo *entorno Establece el entorno de impresin, por ejemplo las relaciones y las rutinas de soporte. *procesar_impresion *imprimir_xls *inicializar_columnas Asigna los rtulos y los campos a las columnas de excel. *preprocesar_impresion *postprocesar_impresion *pre_impresion ^arr_1[20,0] *param_aplicar *tables_loc_adv_aplica *imprimir_texto *acomodar_botones *param_agregar *campos_agregar *validar_datos *debug_time_iniciar *debug_time_finalizar *imprimir_xls_viejo Procedimiento viejo de exportacion a excel *imprimir_tabla *param_objetos_aplicar *formula_aplicar *formula_agregar ^formula_data[10,2] *imprimir_xls_externo Invocacin al procedimiento externo de exportacion a excel. *inicializar_columnas_externo Asigna los rtulos y los campos a las columnas de excel PARA EL GENERADOR EXTERNO. *xls_coll_getnew *imprimir_grilla *imprimir_pdf *reacomodar_botones Llamado luego de asignar el orden por defecto de los botones, para permitir manipularlos. *xls_a_usar_pedir Solicita los libros a controlar si estn libres para la exportacin. *xls_a_usar_revisar Controla si los reportes a usar estn libres para la exportacin. *get_shortpath Obtiene el Path corto de un archivo *ejecutar_sql *ejecutar_externo *ejecutar_parametros En este mtodo cada subclase debera poder manejar sus parmetros cuando se los pasa de forma externa. *exp_tabla_plano *xls_columnas_auto No tocar el contenido, se genera automticamente! *show_and_play *solo_salir_assign ^param_data[20,2] *xls_columna ^campos[255,10] *grabar_ejecucion *estado_avance *estado_texto *estado_visible *imprimir_xls_largos *agregar_caption *agregar_log_ejecucion *abrir_pdf *solo_impresion_antes *sleep *asignar_impresora *cerrar_visualizador *formato_rango_fechas *seleccionar_columnas *pre_seleccionar_columnas *id_formulario_evaluado_access *evaluar_id_formulario *id_formulario_access *pos_seleccionar_columnas *asignar_color *log_aut *exportar_definicion_columnas  commandbutton commandbutton btnvisualizarcrystalAutoSize = .F. Comment = " " Top = 48 Left = 84 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\preview2.ico DownPicture = bmp\preview2_h.ico Caption = "" TabIndex = 201 ToolTipText = "Impresin en pantalla o impresora" Name = "btnvisualizar" ?PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=1 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() store .f. to thisform.param_data set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC PROCEDURE RightClick LOCAL xText xText="Versin Crystal: " + Thisform.crversion + CHR(10) xText=xText + "Formulario: " + SYS(1271, thisform)+ CHR(10) xText=xText + "Archivo Reporte: " + Thisform.archivoreporte+ CHR(10) xText=xText + "Log Ejecucin: " + Thisform.log_ejecucion + CHR(10) =mensaje(xText) IF mensaje_sino("Desea editar el reporte?",2) THEN DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow xerror=ShellExecute( 0, "open", JUSTFNAME(Thisform.archivoreporte), "", JUSTPATH(Thisform.archivoreporte) , 1) ENDIF ENDPROC ,"e%M%pU8T T T T-5TC% jB- C C C %.rpt  C  C  C CJ-( G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS\+TVersin Crystal: C -T Formulario: C]C /TArchivo Reporte: C -TLog Ejecucin: C C.%CDesea editar el reporte?U.| ShellExecute SHELL32.DLL0T CopenCCU XTEXTTHISFORM CRVERSIONARCHIVOREPORTE LOG_EJECUCIONMENSAJE MENSAJE_SINO SHELLEXECUTESHELL32DLLXERRORClick0 RightClicks1rqAA3qB14+) commandbutton commandbuttonbtnsalircrystalTop = 48 Left = 493 Height = 48 Width = 48 FontBold = .T. Picture = bmp\exit.ico DownPicture = bmp\exit_h.ico Caption = "" TabIndex = 205 ToolTipText = "Salir" Name = "btnsalir" PROCEDURE Click IF TYPE("thisform.archivotemporal")="C" IF !THIS.PARENT.keep.VALUE IF TYPE("thisform.archivotemporal")="C" IF USED(THISFORM.archivotemporal) SELE (THISFORM.archivotemporal) USE ENDIF IF FILE(p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') DELETE FILE (p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF ELSE =MESSAGEBOX("El archivo temporal es "+p_local+"\tmp\"+THISFORM.archivotemporal+'.dbf') ENDIF ENDIF THISFORM.RELEASE ENDPROC e"LL%UP.%Cthisform.archivotemporalbC?% .%Cthisform.archivotemporalbC%C FQ)%C\tmp\.dbf0#\tmp\.dbf ;?CEl archivo temporal es \tmp\.dbfx UTHISPARENTKEEPVALUETHISFORMARCHIVOTEMPORALP_LOCALRELEASEClick01AAA1AAAA2)LcheckboxcheckboxkeepcrystalTop = 24 Left = 300 Height = 17 Width = 176 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Mantener el archivo temporal" Value = .F. ControlSource = "thisform.mantener" TabIndex = 200 Name = "keep"  commandbutton commandbutton btnexportarcrystalTop = 48 Left = 291 Height = 48 Width = 48 FontBold = .T. WordWrap = .T. Picture = bmp\excel.ico DownPicture = bmp\excel_h.ico Caption = "" TabIndex = 204 ToolTipText = "Exportar al Excel (MR)" Name = "btnexportar"  PROCEDURE RightClick *=sys_mostrar_screen("EXP_SQL",.T.) =this.Parent.btntabla.RightClick (.t.) do sp_mensaje ; in sys_procesando ; with "Iniciando subida SQL" LOCAL oSQL, xTabla, xAut, xMensaje xMensaje="" oSQL=thisform.osql LOCAL xOK, oEX, oEX2 IF TYPE("oSQL")#"O" THEN DO Obtener_SQL IN sys_clases_conexion WITH oSQL ENDIF do sp_mensaje ; in sys_procesando ; with "Conectado al SQL" IF NOT oSQL.Conectar() THEN IF NOT xAut THEN =Mensaje(oSQL.mensaje ) ENDIF ENDIF IF "\TMP\"$UPPER(THISFORM.archivotemporal) xTabla = THISFORM.archivotemporal ELSE xTabla = p_local+'\tmp\'+THISFORM.archivotemporal ENDIF TRY do sp_mensaje ; in sys_procesando ; with "Realizando el envo" xOK = oSQL.SQL_Subir_Tabla(,xTabla, , , , @oEX2) CATCH TO oEX xOK=-1 ENDTRY IF xOK=-1 THEN TRY xMensaje= oEX2.USERVALUE.MESSAGE CATCH TRY xMensaje= oEX2.MESSAGE CATCH xMensaje= oSQL.Mensaje ENDTRY ENDTRY IF NOT xAut THEN =Mensaje(xMensaje) ENDIF ENDIF thisform.osql = oSQL do sp_ocultar_definitivamente ; in sys_procesando RETURN xOK ENDPROC PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=4 ximpresion=.F. LOCAL oEx, xMSG, xCancelar PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.xls_coll_param=CREATEOBJECT("Collection") IF THISFORM.xls_a_usar_revisar() THEN =THISFORM.inicializar_columnas() IF NOT THISFORM.imprimir_xls_usar_externo THEN =THISFORM.Pre_Seleccionar_columnas(THISFORM) ENDIF =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.inicializar_columnas_externo() *=sys_m("Click") IF THIS.PARENT.VISIBLE AND NOT p_SinInterfaz AND NOT THIS.PARENT.automatizado AND NOT THISFORM.imprimir_xls_usar_externo xCancelar= not THISFORM.seleccionar_columnas(THISFORM) IF xCancelar THEN RETURN .F. ENDIF ENDIF TRY =THISFORM.imprimir_xls() CATCH TO oEx IF p_SinInterfaz THEN xMSG=err_hand_oex(oEx) IF NOT EMPTY(THIS.PARENT.Log_path) THEN =STRTOFILE(REPLICATE("*",80),THIS.PARENT.Log_path,1) =STRTOFILE("Fecha: "+TTOC(DATETIME()),THIS.PARENT.Log_path,1) =STRTOFILE(xMSG,THIS.PARENT.Log_path,1) ENDIF ELSE THROW ENDIF ENDTRY =THISFORM.Pos_Seleccionar_columnas(THISFORM) =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() ENDIF SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 ENDPROC  " % ]UCa3sys_procesandoIniciando subida SQL T T    %CoSQLbO"sys_clases_conexion/sys_procesandoConectado al SQL%C -% )C%\TMP\C f^T  T\tmp\  2sys_procesandoRealizando el envoT C ( T %  3T   u WT   qT % C T sys_procesando B UTHISPARENTBTNTABLA RIGHTCLICK SP_MENSAJESYS_PROCESANDOOSQLXTABLAXAUTXMENSAJETHISFORMXOKOEXOEX2 OBTENER_SQLSYS_CLASES_CONEXIONCONECTARMENSAJEARCHIVOTEMPORALP_LOCALSQL_SUBIR_TABLA USERVALUEMESSAGESP_OCULTAR_DEFINITIVAMENTET T T T-5TC % yB-T C CollectionN%C r C % C C C C6%   oTC %kB-  C(C%1TC%C -CC*PQ&CFecha: CCC ?C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONOEXXMSG XCANCELARXOK VALIDAR_DATOSXLS_COLL_PARAMXLS_A_USAR_REVISARINICIALIZAR_COLUMNASIMPRIMIR_XLS_USAR_EXTERNOPRE_SELECCIONAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONINICIALIZAR_COLUMNAS_EXTERNOPARENTVISIBLE P_SININTERFAZ AUTOMATIZADOSELECCIONAR_COLUMNAS IMPRIMIR_XLS ERR_HAND_OEXLOG_PATHPOS_SELECCIONAR_COLUMNASGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS RightClick0Click1C44!ABABA#BB1AAAA2qqA22AcbqAA!aAAABA2k- G)  commandbutton commandbuttonbtnTablacrystalAutoSize = .F. Top = 48 Left = 188 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\access_32.ico DownPicture = bmp\access_32_h.ico Caption = "" TabIndex = 203 ToolTipText = "Exportar a una tabla" Visible = .F. Name = "btnTabla" PROCEDURE Click THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC PROCEDURE RightClick LPARAMETERS xNoBrowse IF NOT p_dev THEN RETURN .F. ENDIF THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=3 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() IF NOT xNoBrowse THEN **** Aca hace la derivacin a los dos procedimientos, el viejo y el nuevo IF NOT THISFORM.imprimir_tabla_usar_viejo THEN =THISFORM.imprimir_tabla_viejo() ELSE =THISFORM.imprimir_tabla() ENDIF ENDIF =THISFORM.grabar_ejecucion() =THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC PROCEDURE Init =dodefault() this.Visible=p_crystal_access ENDPROC ("g%94UT T T T-5TC% jB- C C C % C  C  C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAPOSTPROCESAR_IMPRESIONP_SERVERSETSY% B-T T T T-5TC% B- C C C % % C  C C C G( CTTU XNOBROWSEP_DEVTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_TABLA_USAR_VIEJOIMPRIMIR_TABLA_VIEJOIMPRIMIR_TABLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS CTUTHISVISIBLEP_CRYSTAL_ACCESSClick0 RightClickCInit1rqA#A3qqArqA2AA31nu$6P) commandbutton commandbutton btnimprimircrystalAutoSize = .F. Top = 48 Left = 136 Height = 48 Width = 48 FontSize = 7 WordWrap = .F. Picture = bmp\print2.ico DownPicture = bmp\print2_h.ico Caption = "" TabIndex = 202 ToolTipText = "Impresin en pantalla o impresora" Name = "btnimprimir" PROCEDURE RightClick thisform.suspender = .t. ENDPROC PROCEDURE Click *=sys_mostrar_screen("impr",.t.) this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=2 ximpresion=.t. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() =thisform.procesar_impresion() =thisform.solo_impresion_antes() if ".rpt"$thisform.ArchivoReporte =thisform.imprimir_crystal() else =thisform.imprimir_vfp() endif *=thisform.solo_impresion_despues() =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC R"99r%UTaUTHISFORM SUSPENDER*T T T Ta5TC% jB- C C C %.rpt  C  C  C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESARCHIVOREPORTEIMPRIMIR_CRYSTAL IMPRIMIR_VFPGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETS RightClick0Click^12rqAA2/K)9 commandbutton commandbuttonbtntxtcrystalTop = 48 Left = 32 Height = 48 Width = 48 WordWrap = .F. Picture = bmp\txt_2.ico DownPicture = bmp\txt_2_h.ico Caption = "" ToolTipText = "Generacin del archivo de texto" Visible = .F. Name = "btntxt" PROCEDURE Click this.MousePointer= 11 thisform.MousePointer= 11 thisform.tipo_reporte=6 ximpresion=.f. PRIVATE xok xOK=thisform.validar_datos() IF NOT xOK then RETURN .f. ENDIF thisform.preprocesar_impresion() thisform.procesar_impresion() IF thisform.txt_autogenerar THEN thisform.gen_txt.generar () ENDIF thisform.imprimir_texto () =thisform.grabar_ejecucion() thisform.postprocesar_impresion() set default to (p_server) =sets() this.MousePointer= 0 thisform.MousePointer= 0 ENDPROC "%*g9UT T T T-5TC% jB- C C% C  C C C G( CTTUTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONTXT_AUTOGENERARGEN_TXTGENERARIMPRIMIR_TEXTOGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01rqA"A2) generador_txt clases.vcxcustomgen_txtcrystal&Top = 48 Left = 0 Name = "gen_txt"  generador_xls clases.vcxcustomgen_xlscrystal]Top = 48 Left = 494 Height = 24 Width = 24 campos_desde_crystal = .T. Name = "gen_xls"  commandbutton commandbutton btnGrillacrystalAutoSize = .F. Top = 48 Left = 239 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\table.ico DownPicture = bmp\table_h.ico Caption = "" TabIndex = 203 ToolTipText = "Mostrar una grilla con los datos" Visible = .F. Name = "btnGrilla" oPROCEDURE Click lparameters xno_visualizar * xno_visualizar = .t. = No muestra nada, solo genera los datos THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=6 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF =THISFORM.inicializar_columnas() =THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() if !xno_visualizar =THISFORM.Imprimir_grilla() endif =thisform.grabar_ejecucion() THISFORM.postprocesar_impresion() SET DEFAULT TO (p_server) =sets() THISFORM.MOUSEPOINTER= 0 THIS.MOUSEPOINTER= 0 ENDPROC "MK%0o?UT T T T-5TC% qB- C C C % C  C C G( CTTUXNO_VISUALIZARTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSINICIALIZAR_COLUMNASPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONIMPRIMIR_GRILLAGRABAR_EJECUCIONPOSTPROCESAR_IMPRESIONP_SERVERSETSClick01qrqAA2d)exportaciones_filtros clases.vcxcustomFiltroscrystal'Top = 24 Left = 36 Name = "Filtros"  commandbutton commandbuttonbtnpdfcrystalAutoSize = .F. Top = 48 Left = 343 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\pdf.ico DownPicture = bmp\pdf_h.ico Caption = "" TabIndex = 201 ToolTipText = "Impresin en pantalla o impresora" Name = "btnpdf" PROCEDURE Click LPARAMETERS xnoabrirpedf LOCAL xArchivo THIS.MOUSEPOINTER= 11 THISFORM.MOUSEPOINTER= 11 THISFORM.tipo_reporte=7 ximpresion=.F. PRIVATE xok xok=THISFORM.validar_datos() IF NOT xok THEN RETURN .F. ENDIF THISFORM.preprocesar_impresion() =THISFORM.procesar_impresion() =THISFORM.solo_impresion_antes() *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 =THISFORM.imprimir_crystal() *=sys_mostrar_screen("PDF",.T.) IF EMPTY(THISFORM.xpdfarchivo) THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ELSE *!* IF FILE(THISFORM.xpdfarchivo) THEN *!* xhnd=FOPEN(THISFORM.xpdfarchivo, 12) *!* IF xhnd#-1 *!* =FCLOSE(xhnd) *!* ELSE *!* THISFORM.xpdfarchivo=oDeyFunc.NewFile_Local_TMP(,"PDF") *!* ENDIF *!* ENDIF ENDIF *** Manejo del objeto CRVista para grabar en PDF =THISFORM.imprimir_pdf(.T., THISFORM.xpdfarchivo) *=thisform.solo_impresion_despues() =THISFORM.grabar_ejecucion() THISFORM.postprocesar_impresion() STORE .F. TO THISFORM.param_data SET DEFAULT TO (p_server) =sets() THIS.MOUSEPOINTER= 0 THISFORM.MOUSEPOINTER= 0 IF !xnoabrirpedf =THISFORM.Abrir_PDF(THISFORM.xpdfarchivo) ENDIF *!* this.MousePointer= 11 *!* thisform.MousePointer= 11 *!* thisform.tipo_reporte=7 *!* ximpresion=.f. *!* PRIVATE xok *!* xOK=thisform.validar_datos() *!* IF NOT xOK then *!* RETURN .f. *!* ENDIF *!* thisform.preprocesar_impresion() *!* =thisform.procesar_impresion() *!* *** Genera el objeto CRVista pero no lo muestra por Tipo_Reporte=7 *!* =thisform.imprimir_crystal() *!* *** Manejo del objeto CRVista para grabar en PDF *!* =thisform.imprimir_pdf() *!* =thisform.grabar_ejecucion() *!* thisform.postprocesar_impresion() *!* store .f. to thisform.param_data *!* set default to (p_server) *!* =sets() *!* this.MousePointer= 0 *!* thisform.MousePointer= 0 ENDPROC PROCEDURE RightClick RETURN this.Parent.btntabla.RightClick () ENDPROC "%9"\UT T T T-5TC% xB- C C C C %C T CPDFCa  C CJ-( G( CTT% xC U XNOABRIRPEDFXARCHIVOTHIS MOUSEPOINTERTHISFORM TIPO_REPORTE XIMPRESIONXOK VALIDAR_DATOSPREPROCESAR_IMPRESIONPROCESAR_IMPRESIONSOLO_IMPRESION_ANTESIMPRIMIR_CRYSTAL XPDFARCHIVOODEYFUNCNEWFILE_LOCAL_TMP IMPRIMIR_PDFGRABAR_EJECUCIONPOSTPROCESAR_IMPRESION PARAM_DATAP_SERVERSETS ABRIR_PDFBCUTHISPARENTBTNTABLA RIGHTCLICKClick0 RightClick1qrrqACJC1A111 h)guardar_parametros_crystalform_controles.vcxcustom Parametroscrystal=Top = 4 Left = 60 par_habilitado = 0 Name = "Parametros" rPROCEDURE mostrar_guardados LPARAMETERS xUltimo DO FORM sys_parametros_guardados WITH this, xUltimo ENDPROC "6t%U2(sys_parametros_guardadosUXULTIMOSYS_PARAMETROS_GUARDADOSTHISmostrar_guardados01q1g) commandbutton commandbuttonbtnParamcrystalTop = 48 Left = 442 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\archivo.ico DownPicture = bmp\archivo_h.ico Caption = "" TabIndex = 201 ToolTipText = "Guardar los parmetros del reporte" Visible = .F. Name = "btnParam" PROCEDURE Click thisform.parametros.mostrar_guardados ENDPROC PROCEDURE RightClick thisform.parametros.mostrar_guardados(.t.) ENDPROC U"<<%U UTHISFORM PARAMETROSMOSTRAR_GUARDADOSCaUTHISFORM PARAMETROSMOSTRAR_GUARDADOSClick0 RightClickq1216W)<checkboxcheckboxchk_longcrystalTop = 84 Left = 7 Height = 13 Width = 13 Alignment = 0 Caption = "Check1" Value = .F. Visible = .F. Name = "chk_long" pPROCEDURE Init this.Visible = (p_dev .and. p_emp="SCH") this.Enabled = (p_dev .and. p_emp="SCH") ENDPROC "g%UAT SCH T SCH UTHISVISIBLEP_DEVP_EMPENABLEDInit012e)checkboxcheckboxckFechacrystalTop = 24 Left = 24 Height = 17 Width = 162 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Imprimir fecha de emisin" Value = .F. ControlSource = "thisform.fecha" TabIndex = 200 Name = "ckFecha" PROCEDURE Init ENDPROC " %;MIUUInit013)timertimertmrClickcrystal_Top = 0 Left = 36 Height = 25 Width = 25 Enabled = .F. Interval = 100 Name = "tmrClick" PROCEDURE Timer this.Enabled=.f. _screen.Caption="Timer " thisform.Visible=.f. DO CASE CASE thisform.Tipo_Reporte = 1 thisform.btNVISUALIZAR.Click CASE thisform.Tipo_Reporte = 2 thisform.Btnimprimir.Click CASE thisform.Tipo_Reporte = 3 thisform.btntabla.Click CASE thisform.Tipo_Reporte = 4 thisform.automatizado = .t. thisform.btneXPORTAR.Click ENDCASE thisform.Visible=.t. _screen.Caption="Timer End" ENDPROC W">>x%U T-T9Timer T-HB e       T a  TaT9 Timer EndU THISENABLEDCAPTIONTHISFORMVISIBLE TIPO_REPORTE BTNVISUALIZARCLICK BTNIMPRIMIRBTNTABLA AUTOMATIZADO BTNEXPORTARTimer01RaaaaA4)> ayuda_wiki clases.vcximage Ayuda_wiki1crystalPAnchor = 9 Height = 20 Left = 504 Top = 0 Width = 20 Name = "Ayuda_wiki1" QPROCEDURE Init this.Top=2 this.Left=thisform.Width-22 dodefault() ENDPROC "N%U3TT CUTHISTOPLEFTTHISFORMWIDTHInit01q1F) commandbutton commandbuttonbtnPlantilla_ExcelcrystalTop = 48 Left = 394 Height = 48 Width = 48 FontSize = 7 WordWrap = .T. Picture = bmp\excel_guardar_como.ico DownPicture = bmp\excel_h_guardar_como.ico Caption = "" TabIndex = 201 ToolTipText = "Guardar los parmetros del reporte" Visible = .F. Name = "btnPlantilla_Excel" 5PROCEDURE Click IF NOT FILE(FORCEEXT(oDeyFunc.Get_path(5)+THISform.archivotemporal,"dbf")) THEN IF NOT Mensaje_SINO("Debe correr el reporte una vez antes de poder editar el modelo."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF ELSE IF thisform.id_formulario_ultimo #thisform.id_formulario_evaluado THEN IF NOT Mensaje_SINO("Se necesitan actualizar los datos generados anteriormente."+CHR(13)+; "Desea correrlo ahora con los parmetros especificados?"+CHR(13)+CHR(13)+; "Recuerde usar filtros para agilizar la apertura del modelo."+CHR(13)+; "Los datos se usan como ejemplo al momento de editarlo",1) RETURN .F. ELSE thisform.btnGrilla.Click (.t.) && Ejecutar sin visualizar ENDIF endif ENDIF =THISFORM.inicializar_columnas() =THISFORM.Pre_Seleccionar_columnas(THISFORM) DO FORM sys_editar_reportes_excel_arbol WITH THISFORM.id_formulario_evaluado, THISFORM.campos_parametros_original =thisform.Pos_Seleccionar_columnas(Thisform) ENDPROC PROCEDURE Init this.Visible = thisform.plantillas_xls_habilitado ENDPROC "vvH%UD)%CCCdbf0 p!%C?Debe correr el reporte una vez antes de poder editar el modelo.C 7Desea correrlo ahora con los parmetros especificados?C C ;Recuerde usar filtros para agilizar la apertura del modelo.C 5Los datos se usan como ejemplo al momento de editarlo QB- lCa %%C:Se necesitan actualizar los datos generados anteriormente.C 7Desea correrlo ahora con los parmetros especificados?C C ;Recuerde usar filtros para agilizar la apertura del modelo.C 5Los datos se usan como ejemplo al momento de editarlo B- Ca C C 5sys_editar_reportes_excel_arbol C UODEYFUNCGET_PATHTHISFORMARCHIVOTEMPORAL MENSAJE_SINO BTNGRILLACLICKID_FORMULARIO_ULTIMOID_FORMULARIO_EVALUADOINICIALIZAR_COLUMNASPRE_SELECCIONAR_COLUMNASSYS_EDITAR_REPORTES_EXCEL_ARBOLCAMPOS_PARAMETROS_ORIGINALPOS_SELECCIONAR_COLUMNASTUTHISVISIBLETHISFORMPLANTILLAS_XLS_HABILITADOClick0Init1qAqAAAR211*)vcrystalform20Class6..\misc\exchange\enviar\die-2005-01-28\bmp\reporte.icoPixelscrystalbArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 W >>J%U- TC C BUXRETTHISFORM ASIGNAR_COLORTCUTHIS BACKCOLOR SYS_COLORLoad, asignar_color|1q31Uy)>B ))kB%`:lU[Q EXCEPTION T-#%Cthis.obj_filtrobOZTrTTa$%CxFiltrobOC j3   (f%  (b Ta % ^C - 83   (4)   (0 Ta % ,C - T- F %*CNo se puede obtener ayuda !!!T%CaabCTCTBT aa=&aa T T aa=&aa  F BUXSALIRXFILTROOEXTHIS OBJ_FILTROFILTROES_F1 TABLA_AYUDAPROC_EXTTEXT8VALUEXCOD_CLISOLO_LOS_ACTIVOSP_DEVMENSAJEMESSAGEDETAILS TABLA_TABLAAAVACIO TABLA_CODIGO TABLA_DESCUPDATEDf1,12AA1QAAA1AAAAa!AAAt12)) B%XldU C BUAGENTENOMBREf1,11)hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6X %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORA  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASE UTHISFORM VISUALIZAR C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLORD % " =CUNKEYCODE NSHIFTALTCTRLagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]Init^ReleasedsalidafLoadfteclaj1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA3uAA2Ab1A"q!!qAB1qB3%A!QAA522CAA!qAABqA"B21AA2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJ7}#@Sn@\ڟc)Q|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" WPROCEDURE Click IF thisform.se_puede_operar() thisform.modificar endif ENDPROC "f%U$%C UTHISFORMSE_PUEDE_OPERAR MODIFICARClick011A2L) commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" ;PROCEDURE Click IF thisform.se_puede_operar() if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif endif ENDPROC PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC "yy7%  Uq%CjI%CEst seguro que desea borrar a CCΛ ?xf UTHISFORMSE_PUEDE_OPERARCLAVE_BUSQUEDABORRARBUClick0 RightClick11AA2A<0)y commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6D % " =CUNKEYCODE NSHIFTALTCTRL C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLOR UTHISFORM VISUALIZAR  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASEX %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORAagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]tecla^Load^salidabReleasecInitd1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA31AA32CAA!qAABqA"B22%A!QAA5uAA2Ab1A"q!!qAB1qB2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJ8Qю}Ӕڟ)Q|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign *se_puede_operar  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" WPROCEDURE Click IF thisform.se_puede_operar() thisform.modificar endif ENDPROC "f%U$%C UTHISFORMSE_PUEDE_OPERAR MODIFICARClick011A2L) commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" ;PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC PROCEDURE Click IF thisform.se_puede_operar() if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif endif ENDPROC "yy7%  UBUq%CjI%CEst seguro que desea borrar a CCΛ ?xf UTHISFORMSE_PUEDE_OPERARCLAVE_BUSQUEDABORRAR RightClick0Click?1A=1AA1n0)y commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6X %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORA  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASE UTHISFORM VISUALIZAR C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLORD % " =CUNKEYCODE NSHIFTALTCTRLagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]Init^ReleasedsalidafLoadfteclaj1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA3uAA2Ab1A"q!!qAB1qB3%A!QAA522CAA!qAABqA"B21AA2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJ7}#@Sn@\ڟc)Q|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign *se_puede_operar  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" PROCEDURE Click IF thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) thisform.modificar endif ENDPROC "j%U8'%CC.1 UTHISFORMSE_PUEDE_OPERARTABLACLAVE MODIFICARClick01qA2w) commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" fPROCEDURE Click IF thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif endif ENDPROC PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC "% B 0U'%CC.~I%CEst seguro que desea borrar a CCΛ ?xz UTHISFORMSE_PUEDE_OPERARTABLACLAVECLAVE_BUSQUEDABORRARBUClick0 RightClick1qAA2A<[) commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6D % " =CUNKEYCODE NSHIFTALTCTRL C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLOR UTHISFORM VISUALIZAR  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASEX %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORAagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]tecla^Load^salidabReleasecInitd1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA31AA32CAA!qAABqA"B22%A!QAA5uAA2Ab1A"q!!qAB1qB2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJ8Qю}Ӕڟ)Q|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign *se_puede_operar  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) thisform.modificar ELSE mensaje(xmsg) endif ENDPROC d"KK]k% Uf%TCC.%CG  _CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVE MODIFICARMENSAJEClick01qQA2)K commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif ELSE mensaje(xmsg) endif ENDPROC "W%J mUBU%TCC.%CI%CEst seguro que desea borrar a CCΛ ?x  CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVECLAVE_BUSQUEDABORRARMENSAJE RightClick0Click?1A=qQAA2n) commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6 BUX %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORA  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASE UTHISFORM VISUALIZAR C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLORD % " =CUNKEYCODE NSHIFTALTCTRLagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]se_puede_operar^Init^ReleasedsalidafLoadfteclaj1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA32uAA2Ab1A"q!!qAB1qB3%A!QAA522CAA!qAABqA"B21AA2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJBKLf#ARoo  f)|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign *se_puede_operar  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) thisform.modificar ELSE mensaje(xmsg) endif ENDPROC d"KK]k% Uf%TCC.%CG  _CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVE MODIFICARMENSAJEClick01qQA2)K commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif ELSE mensaje(xmsg) endif ENDPROC PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC "W%J mU%TCC.%CI%CEst seguro que desea borrar a CCΛ ?x  CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVECLAVE_BUSQUEDABORRARMENSAJEBUClick0 RightClick;1qQAA3A< ;) commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 hlp clases.vcxformPixelshlpabm2 !DataSession = 2 BorderStyle = 0 Height = 323 Width = 626 ShowWindow = 2 DoCreate = .T. Closable = .F. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 nombre_vista = ('abm') idxclave = campo_idu = idu dos_tabla = ('') dos_idxclave = ('') dos_clave = ('') dos_clave_formula = (" 'xdos_scatter.' + xclave ") borrar_validar = .T. borrar_tabla = ('') borrar_clave = ('') dos_blanquea = ('') dos_blanquea_valores = ('') tabla_filtrada = .F. cerrar_tablas = .T. dos_vista = .F. formulario = .F. vista_vista = .F. tmp_alias_1 = ("") tmp_alias_2 = ("") tmp_alias_3 = ("") tmp_alias_4 = ("") tmp_alias_5 = ("") tmp_alias_6 = ("") tmp_original_1 = ("") tmp_original_2 = ("") tmp_original_3 = ("") tmp_original_4 = ("") tmp_original_5 = ("") tmp_original_6 = ("") clonar_enable = .F. clave_original = ("") clave_tabla = ("") clave_vista = ("") clonar_sugerir = 0 subtipoabm = 0 dos_campos_excluir = ("") dos_campos_incluir = .F. dos_campos_like = .F. entidad = .F. fechahora = .F. dos_controlador = .F. dos_espejar_multiple = 0 xclavepos = ("") solo_modificar_datos_no_criticos = .F. margen_derecho = (91) ancho_total = 627 ancho_grid = 500 clave = .F. clave_busqueda = .F. Name = "hlpabm2" Grid1.Column1.Header1.Name = "Header1" Grid1.Column1.Text1.Name = "Text1" Grid1.Column1.Width = 380 Grid1.Column1.Name = "Column1" Grid1.Column2.Header1.Caption = "" Grid1.Column2.Header1.Name = "Header1" Grid1.Column2.Text1.Name = "Text1" Grid1.Column2.Width = 98 Grid1.Column2.Name = "Column2" Grid1.Column3.Header1.Name = "Header1" Grid1.Column3.Text1.Name = "Text1" Grid1.Column3.Name = "Column3" Grid1.Column4.Header1.Name = "Header1" Grid1.Column4.Text1.Name = "Text1" Grid1.Column4.Name = "Column4" Grid1.COLUMN5.Header1.Name = "Header1" Grid1.COLUMN5.Text1.Name = "Text1" Grid1.COLUMN5.Name = "COLUMN5" Grid1.COLUMN6.Header1.Name = "Header1" Grid1.COLUMN6.Text1.Name = "Text1" Grid1.COLUMN6.Name = "COLUMN6" Grid1.COLUMN7.Header1.Name = "Header1" Grid1.COLUMN7.Text1.Name = "Text1" Grid1.COLUMN7.Name = "COLUMN7" Grid1.COLUMN8.Header1.Name = "Header1" Grid1.COLUMN8.Text1.Name = "Text1" Grid1.COLUMN8.Name = "COLUMN8" Grid1.COLUMN9.Header1.Name = "Header1" Grid1.COLUMN9.Text1.Name = "Text1" Grid1.COLUMN9.Name = "COLUMN9" Grid1.COLUMN10.Header1.Name = "Header1" Grid1.COLUMN10.Text1.Name = "Text1" Grid1.COLUMN10.Name = "COLUMN10" Grid1.COLUMN11.Header1.Name = "Header1" Grid1.COLUMN11.Text1.Name = "Text1" Grid1.COLUMN11.Name = "COLUMN11" Grid1.AllowAddNew = .F. Grid1.Height = 253 Grid1.Left = 5 Grid1.Panel = 1 Grid1.TabIndex = 1 Grid1.Top = 24 Grid1.Width = 535 Grid1.AllowCellSelection = .T. Grid1.Name = "Grid1" Text1.Height = 25 Text1.Left = 5 Text1.TabIndex = 2 Text1.Top = 288 Text1.Width = 535 Text1.Name = "Text1" btn_buscar.Top = 209 btn_buscar.Left = 546 btn_buscar.Height = 25 btn_buscar.Width = 73 btn_buscar.FontBold = .T. btn_buscar.FontSize = 9 btn_buscar.Anchor = 9 btn_buscar.TabIndex = 7 btn_buscar.Name = "btn_buscar" TILDE.Alignment = 0 TILDE.Name = "TILDE" +PROCEDURE agregar LOCAL xsugerencia, xresvista, xresultado LOCAL xarch, xclave, xclavepos xclavepos=.f. xresultado = .F. THISFORM.TipoABM=1 THISFORM.SubtipoABM=1 *=sys_mostrar_Screen("Agregar. Suspendo?", .t.) DO CASE CASE TYPE(THISFORM.clave)="C" xresvista=THISFORM.vista("",'borr_agr') OTHERWISE xresvista=THISFORM.vista(-1,'borr_agr') ENDCASE IF xresvista SELE borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=RIGHT(SYS(2015),8) COPY STRU TO (p_local+'\tmp\'+xarch) SELE 0 USE (p_local+'\tmp\'+xarch) EXCL ALIAS (THISFORM.nombre_vista) *!* dIF THISFORM.inicializar() SELE (THISFORM.nombre_vista) APPEND BLANK REPL (THISFORM.clave) WITH THISFORM.sugerir() ,; (THISFORM.campo_idu) WITH SYS(2015) =THISFORM.inicializar_registro() DO WHILE .T. SELE (THISFORM.nombre_vista) LOCAL xclave =THISFORM.abm() IF THISFORM.resultado SELE (THISFORM.nombre_vista) IF TYPE(THISFORM.clave)='N' xclave=THISFORM.clave xclave=&xclave IF xclave=-1 xsugerencia = THISFORM.nuevo_numero() SELE (THISFORM.nombre_vista) REPL (THISFORM.clave) WITH xsugerencia ENDIF ENDIF TRY xclavepos=EVALUATE(thisform.clave) CATCH ENDTRY IF THISFORM.txn_lock() IF THISFORM.finalizar() xresultado = .T. EXIT ENDIF ENDIF ELSE * Se cancel la operacin EXIT ENDIF ENDDO *!* dENDIF ENDIF IF xresultado THEN =THISFORM.agregar_pos(xclavepos) ENDIF =THISFORM.limpiar_tmp() RETURN xresultado ENDPROC PROCEDURE modificar LPARAMETERS xAuto, xCodigo LOCAL xresultado, xclavepos, xno_mostrar_abm *=sys_m("Modificar") if vartype(p_hlpabm2_version)#"N" p_hlpabm2_version=0 endif * Vista xresultado = .F. SELE (THISFORM.tabla) LOCAL xreg xreg=IIF(EOF().OR.BOF(),-1,RECNO()) THISFORM.tipoabm=2 IF NOT xAuto THEN if p_hlpabm2_version>0 and !empty(xCodigo) * Se pasa el cliente (o lo que sea) como parmetro para modificar =seek( xcodigo, THISFORM.tabla, thisform.idxclave) xno_mostrar_abm = .t. else xCodigo=EVALUATE(THISFORM.tabla+"."+THISFORM.clave) endif ENDIF IF THISFORM.vista( xCodigo ) =THISFORM.inicializar() DO WHILE .T. SET PROCEDURE TO sys_reg_compare ADDI LOCAL xalias_vista xalias_vista=ALIAS() private ocompare, ocompare1, ocompare2, ocompare3, ocompare4, ocompare5, ocompare6 ocompare=CREATEOBJECT("reg_compare") ocompare.PUSH(1,xalias_vista) IF NOT xAuto THEN =THISFORM.abm(xno_mostrar_abm) ELSE thisform.resultado = .t. ENDIF *=sys_mostrar_screen("Modificar Suspendo?", .t.) ocompare.PUSH(2,xalias_vista) TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY IF THISFORM.txn_lock() THIS.txn_begin IF THISFORM.finalizar( ,iif(type("tts_id")="C",tts_id,"")) *!* tts_id = xold_tts_id *!* LOCAL xcomparacion *!* xcomparacion=ocompare.COMPARE() *!* IF !EMPTY(xcomparacion) *!* DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos *!* ENDIF xresultado = .T. EXIT ENDIF ENDIF ENDDO ENDIF IF xresultado THEN THIS.modificar_pos(xclavepos) ENDIF SELE (THISFORM.tabla) IF xreg#-1 GO xreg ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE borrar parameters xevitar_validacin local xclavepos * Vista sele (thisform.tabla) xacodigo=evaluate(thisform.clave) *=sys_m("Borrar") thisform.tipoabm=4 if thisform.vista( xacodigo ) if xevitar_validacin then xval_result=.t. xmsg= 'ABM de '+proper(thisform.tabla)+". Omitio Validacin: Cod. "+ transform(xacodigo) =user_log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad, xaCodigo ) else xval_result=thisform.borrar_valida() endif if xval_result then =thisform.inicializar() do while .t. if thisform.txn_lock() thisform.txn_begin sele (thisform.nombre_vista) **Obtengo los datos antes de borrar... Solo necesito la clave... && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_getdata endif try xclavepos=evaluate(thisform.clave) catch endtry if thisform.vista_vista or p_hlpabm2_vista delete else xidu=idu select (thisform.tabla) delete for idu=xidu endif thisform.resultado=.t. if thisform.finalizar() exit endif endif enddo endif endif if thisform.resultado then thisform.borrar_pos(xclavepos) endif =thisform.limpiar_tmp() ENDPROC PROCEDURE inicializar *!* aaa=1 && No Lock !!!! *!* do lock_g in trsac with aaa ,; *!* thisform.nombre_vista *!* * '(V) '+ *!* if aaa=1 *!* * Abort el usuario *!* unlock all *!* sele (thisform.nombre_vista) *!* return .f. *!* endif *!* * txn_begin sele (thisform.nombre_vista) return .t. ENDPROC PROCEDURE finalizar lparameters xclonar, xtts_id *=sys_mostrar_screen("Finalizar Suspendo?", .t.) thisform.finalizar_modificaciones no_fld=.f. on error no_fld=.t. if idu=space(10) repl idu with sys(2015) endif on error &onerr local errores,xclave dimension errores(7) local osqlm as object osqlm = .null. local registro,xok xok=.t. xok_p_dos=.t. if thisform.resultado .and. thisform.tipoabm=1 xclave=evaluate(thisform.clave) xok=thisform.vld_codigo(xclave) if thisform.dos_copiar then && HOOK_P_DOS *** Validemos la clave en la empresa p_dos sele (thisform.nombre_vista) scatter name thisform.dos_scatter memo xok_p_dos=thisform.vld_codigo_dos(xclave) xok = xok_p_dos and xok * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes() endif if xok this.txn_begin sele (thisform.nombre_vista) public xregdata(fcount()) scatter to xregdata memo sele borr_agr && (thisform.nombre_vista) go top if recc()<1 or xclonar append blank endif gather from xregdata memo endif endif if xok then aaa=0 * thisform.txn_begin * {C} Le pona esto para forzar el rollback que no existe ThisForm.Resultado = .F. if thisform.resultado *** Si hay que hacer espejado y no estoy borrando.... if thisform.dos_copiar and thisform.tipoabm#4 then && HOOK_P_DOS *Obtengo los datos para guardarlos posteriormente thisform.dos_getdata endif * p_BrokerStatus ="BrkError" {C} para probar rollback if p_brokerstatus == "BrkActivo" set procedure to _ubroker, _utmapper additive if needexport(thisform.nombre_vista) try osqlm = newobject(getexportclassname(thisform.nombre_vista)) osqlm.savecurrentrecord catch to oerr release osqlm p_brokerstatus = "BrkError" endtry endif endif if (p_brokerstatus == "BrkError") and needexport(thisform.nombre_vista) do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" thisform.txn_rollback xok=.t. else if thisform.vista_vista or p_hlpabm2_vista else * =sys_mostrar_screen("Agregar o clonar Suspendo?", .t.) if thisform.tipoabm=1 or xclonar local xiddato xiddato = "Agrega"+iif(xclonar, " clonando", "")+": ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." xiddato = xiddato +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) DO user_log WITH pub_index, 6, "", "", xiddato , "Class:hlpabm2",,, THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?"))) thisform.hook_txn_agrega_clona("Class:hlpabm2", THIS.entidad, alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"?")))) select borr_agr * scatter to xregdata memo release xregdata scatter name xregdata MEMO xregdata.idu=sys(2015) * select (thisform.tabla) * append blank * gather from xregdata memo insert into (thisform.tabla) from name xregdata * =sys_mostrar_screen("Suspendo?", .t.) * Clona los datos colocados en otras tablas que no sean la principal =thisform.clonar_dependientes2() else if thisform.tipoabm=4 * Borrar else * Modificar select (thisform.nombre_vista) scatter to xregdata memo xclave = idu select (thisform.tabla) locate for idu=xclave if found() gather from xregdata memo else thisform.txn_rollback xok=.f. && 2015/5/15, antes .t. mensaje("Error con el IDU !!!") endif endif endif endif if xok && 2015/5/15, antes no exista if thisform.tipoabm=2 * Modificar local xclavepos TRY xclavepos=EVALUATE(THISFORM.clave) CATCH ENDTRY LOCAL xcomparacion xcomparacion=ocompare.COMPARE() IF !EMPTY(xcomparacion) DO user_log WITH pub_index, 6, "", "", "Mod: "+xcomparacion , "Class:hlpabm2",,, THIS.entidad, xclavepos endif endif thisform.txn_commit if aaa=0 xok=.t. =thisform.hook_txn(thisform.tipoabm) =unlock_all() **** Realiza el espejado en la base de datos p_dos && HOOK_P_DOS if thisform.dos_copiar then && HOOK_P_DOS thisform.dos_mirror =thisform.hijas_guardar_dos() endif if vartype(osqlm) = "O" try osqlm.opensqltbl osqlm.exporttosql(tipoabmtotipomov(thisform.tipoabm)) catch to oerr release osqlm p_brokerstatus = "BrkError" do mensaje with "Error al intentar conexin con One Line Click - consulte a soporte" endtry release osqlm endif else if vartype(osqlm) = "O" release osqlm endif =aerror('errores') if errores(1)=1884 * Unicidad *wait window nowait 'Registro repetido !!!' =mensaje('Registro repetido !!!') else * wait window nowait 'No se pudo actualizar !!!' =mensaje('No se pudo actualizar !!!') endif xok=.f. endif endif && 2015/5/15, antes no exista endif else thisform.txn_rollback xok=.t. endif =thisform.hijas_liberar() else *wait window nowait 'Registro repetido !!!' ** Donde dio el error??? && HOOK_P_DOS if !xok_p_dos then try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida(alt)!!!') endtry else try =mensaje('Registro repetido o clave invlida (alt)!!!'+chr(13)+"Clave: "+alltrim(thisform.clave)+" Valor: "+evaluate(thisform.nombre_vista+"."+thisform.clave)) catch =mensaje('Registro repetido o clave invlida !!!') endtry endif thisform.txn_rollback xok=.f. endif if !xok return .f. else =unlock_all() thisform.refresh return .t. endif ENDPROC PROCEDURE abm lparameters xno_mostrar_abm PRIVATE oHLPABMParent oHLPABMParent = This local xresultado,xarea xarea=sele() *=sys_mostrar_Screen("Suspendo?", .t.) do form (thisform.formulario) with thisform.tipoabm to xresultado if !xno_mostrar_abm thisform.Show else * No quiero que muestr la lista de clientes o lo que sea porque fue una operacin directa (por ejemplo modificacin) endif thisform.resultado = xresultado if !thisform.resultado then select (thisform.nombre_vista ) if thisform.tipoabm#1 if thisform.vista_vista or p_hlpabm2_vista =tablerevert(.t.) else endif endif endif sele (xarea) ENDPROC PROCEDURE visualizar * Vista SELE (THISFORM.tabla) THISFORM.tipoabm=3 IF THISFORM.vista( EVALUATE(THISFORM.clave) ) SELE (THISFORM.nombre_vista) =cursorsetprop("Buffering",5) =THISFORM.inicializar() =THISFORM.abm() SELE (THISFORM.nombre_vista) if thisform.vista_vista or p_hlpabm2_vista =TABLEREVERT(.t.) else endif * thisform.txn_rollback *aaa=-1 && Rollback a pedido *do end_tran in trsac with aaa,tran_prg,tran_txt ENDIF =THISFORM.limpiar_tmp() ENDPROC PROCEDURE vldagregar return ENDPROC PROCEDURE sugerir LPARAMETERS xCodigo_Nuevo IF NOT EMPTY(xCodigo_Nuevo) AND TYPE(THISFORM.Clave)=TYPE("xCodigo_Nuevo") THEN RETURN xCodigo_Nuevo ENDIF LOCAL xres IF TYPE(THISFORM.Clave) ='N' * * Siempre retorna -1 para que la mquina luego decida cul asigna * xres = -1 ELSE * * Llama a sugerir_no_num, que retornar vacio segn el tipo de dato salvo que haya sido redefinida * area=SELE() SELE (THISFORM.tabla) xres = THISFORM.sugerir_no_num() SELE (area) ENDIF RETURN xres ENDPROC PROCEDURE sugerir_no_num local l1 l1=evaluate(thisform.clave) do case case type('l1')='C' return space(len(l1)) case type('l1')='N' return 0 case type('l1')='Y' return 0 case type('l1')='D' return {} case type('l1')='T' return {} case type('l1')='L' return .f. case type('l1')='M' return '' case type('l1')='O' return '' case type('l1')='G' return '' case type('l1')='U' return '' endcase ENDPROC PROCEDURE vista PARAMETERS xcodigo,xalias IF PARAMETERS()<2 xalias=THISFORM.nombre_vista ENDIF IF USED(THISFORM.nombre_vista) SELE (THISFORM.nombre_vista) USE ENDIF IF USED('borr_agr') SELE borr_agr USE ENDIF SELE 0 ON ERROR aaa=ERROR() aaa=0 if thisform.vista_vista or p_hlpabm2_vista USE (THISFORM.nombre_vista) ALIAS (xalias) else xclave=thisform.clave select * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite endif ON ERROR &onerr IF aaa#0 =mensaje(MESSAGE()+CHR(13)+MESSAGE(1)) * Suspensd con Debug _SCREEN.VISIBLE=.T. DEBUG SUSP ON ERROR &onerr RETURN.F. ENDIF * * Abre las tablas hijas * =thisform.hijas_abrir() select &xalias RETURN .T. ENDPROC PROCEDURE vld_codigo parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif local xorder,xaborta sele (thisform.tabla) xorder=order() set order to (thisform.idxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xcodigo set dele on xok=!found() else xok=.t. endif sele (thisform.tabla) set order to (xorder) return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE limpiar_tmp if used(thisform.nombre_vista) sele (thisform.nombre_vista) use endif if used('borr_agr') sele borr_agr use endif sele (thisform.tabla) ENDPROC PROCEDURE txn_begin tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do beg_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad ENDPROC PROCEDURE txn_commit =thisform.hijas_guardar() tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=0 do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE txn_rollback tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla) aaa=-1 && Rollback a pedido do end_tran in trsac with aaa,tran_prg,tran_txt,,, this.entidad tts_id="" ENDPROC PROCEDURE nuevo_numero local xorden,xres, xfilter *=sys_mostrar_screen("Nuevo",.t.) sele (thisform.tabla) xorden=order() set order to (thisform.idxclave) if thisform.clave_unica set dele off endif IF thisform.tabla_filtrada THEN xfilter=FILTER() SET FILTER TO ENDIF go bott xres = evaluate(thisform.clave) + 1 set dele on sele (thisform.tabla) set order to (xorden) IF thisform.tabla_filtrada AND NOT EMPTY(xFilter) THEN SET FILTER TO &xfilter ENDIF return xres ENDPROC PROCEDURE usr_vld_codigo parameters xcod return .t. ENDPROC PROCEDURE borrar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.borrar_enable = m.vNewVal thisform.command3.Enabled=m.vNewVal ENDPROC PROCEDURE agregar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.agregar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE modificar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.modificar_enable = m.vNewVal thisform.command2.Enabled=m.vNewVal ENDPROC PROCEDURE visualizar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.visualizar_enable = m.vNewVal thisform.command5.Enabled=m.vNewVal ENDPROC PROCEDURE solo_lectura_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.solo_lectura = m.vNewVal if m.vNewVal * Solo si this.command1.enabled = !m.vNewVal this.command2.enabled = !m.vNewVal this.command3.enabled = !m.vNewVal this.command6.enabled = !m.vNewVal endif ENDPROC PROCEDURE buscar =mensaje("Todava no est implementado !!!") return xtxt=space(30) do Form buscar for z=1 to 4 do case case evaluate("this.tipo_campo"+alltrim(str(z)))="C" endcase endfor sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar parameters xheader local xtag,aaa xtag='' do case case xheader=1 xtag = this.orden case xheader=2 xtag = this.orden1 case xheader=3 xtag = this.orden2 case xheader=4 xtag = this.orden3 endcase if xtag#'' aaa=0 on error aaa=1 sele (this.grid1.recordsource) set order to (xtag) asce if aaa=1 return endif on error &onerr endif do case case this.columna_actual=1 this.grid1.column1.header1.fontbold=.f. case this.columna_actual=2 this.grid1.column2.header1.fontbold=.f. case this.columna_actual=3 this.grid1.column3.header1.fontbold=.f. case this.columna_actual=4 this.grid1.column4.header1.fontbold=.f. endcase do case case xheader=1 this.orden_actual = this.orden this.clave_busqueda_actual = this.clave_busqueda this.tipo_campo_actual = this.tipo_campo this.grid1.column1.header1.fontbold=.t. case xheader=2 this.orden_actual = this.orden1 this.clave_busqueda_actual = this.clave_busqueda1 this.tipo_campo_actual = this.tipo_campo1 this.grid1.column2.header1.fontbold=.t. case xheader=3 this.orden_actual = this.orden2 this.clave_busqueda_actual = this.clave_busqueda2 this.tipo_campo_actual = this.tipo_campo2 this.grid1.column3.header1.fontbold=.t. case xheader=4 this.orden_actual = this.orden3 this.clave_busqueda_actual = this.clave_busqueda3 this.tipo_campo_actual = this.tipo_campo3 this.grid1.column4.header1.fontbold=.t. endcase this.columna_actual=xheader sele (this.grid1.recordsource) set order to (this.orden_actual) asce this.oldkey= '' go top this.actualizar ENDPROC PROCEDURE txn_lock *if !p_tts * Reserva archivos *!* tran_prg = 'Class:hlpabm2' *!* tran_txt = 'ABM de '+proper(thisform.tabla)+"."; *!* +" Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) ; *!* +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." ; *!* +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) tran_prg = 'Class:hlpabm2' tran_txt = 'ABM de '+proper(thisform.tabla)+"." tran_txt = tran_txt + " Operacin: "+iif(thisform.tipoabm=1,"Agregar.",iif(thisform.tipoabm=2,"Modificar.",iif(thisform.tipoabm=3,"Visualizar.",iif(thisform.tipoabm=4,"Borrar.","No definida.")))) if thisform.tipoabm=1 * No hay id an else tran_txt = tran_txt +" ID: "+alltrim(iif(type(thisform.clave)="C",evaluate(thisform.clave),iif(type(thisform.clave)="N",alltrim(str(evaluate(thisform.clave))),"Clave no numrica ni de texto")))+"." tran_txt = tran_txt +" DESCR: "+alltrim(iif(type(thisform.clave_busqueda)="C",evaluate(thisform.clave_busqueda),iif(type(thisform.clave_busqueda)="N",alltrim(str(evaluate(thisform.clave_busqueda))),"Descripcin no numrica ni de texto"))) endif aaa=0 do lock_g in trsac with aaa ,; thisform.nombre_vista ,; thisform.tabla ,; iif(!empty(thisform.lock_adicional_1), thisform.lock_adicional_1, .f.) ,; iif(!empty(thisform.lock_adicional_2), thisform.lock_adicional_2, .f.) ,; iif(!empty(thisform.lock_adicional_3), thisform.lock_adicional_3, .f.) if aaa#0 =unlock_all() * Abort el usuario return .f. else return .t. endif *else * return .t. *endif ENDPROC PROCEDURE vld_codigo_dos parameters xcodigo tts_error=0 do case case type('xcodigo')="C" if alltrim(xcodigo)='' .or. alltrim(xcodigo)='-1' return .f. endif otherwise if xcodigo=0 return .f. endif endcase if !thisform.usr_vld_codigo(xcodigo) return .f. endif IF THIS.dos_espejar_multiple>0 THEN *** POR AHORA DUPLICO EL CDIGO, luego veo como se unifica RETURN THIS.vld_codigo_dos_multiple() ENDIF local xorder,xaborta thisform.dos_setdb xidxclave = thisform.dos_idxclave xdos_scatter = thisform.dos_scatter IF thisform.dos_clave=='' THEN thisform.dos_clave = thisform.clave ENDIF xclave = thisform.dos_clave xdos_Formula = thisform.dos_clave_formula xixcodcla = &xdos_Formula xCod=&xixcodcla Sele TMPpDosMirr xorder=order() set order to (xidxclave) if thisform.tipoabm=1 * Agregar if thisform.clave_unica set dele off endif seek xCod set dele on xok=!found() else xok=.t. endif thisform.dos_setdbback return xok .and. tts_error=0 && No hubo errores ENDPROC PROCEDURE dos_mirror LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_mirror() ELSE LOCAL oSCD, oSCO LOCAL ARRAY xaCopia(1),xaValores(1) LOCAL xaCount1, xaCount2, nIt, xaSTR1, xaStr2, xFLDList, xFLDLike , xFLDEXCEPT THISFORM.dos_setdb xtipoabm=THISFORM.tipoabm xOP=xtipoabm xidxclave = THISFORM.dos_idxclave xdos_scatter = THISFORM.dos_scatter IF THISFORM.dos_clave=='' THEN THISFORM.dos_clave = THISFORM.clave ENDIF xclave = THISFORM.dos_clave xdos_Formula = THISFORM.dos_clave_formula xdos_agrega_si_falta = THISFORM.dos_agrega_si_falta xixcodcla = &xdos_Formula xCod=&xixcodcla *=sys_mostrar_screen("Excluir", .t.) IF EMPTY(THIS.dos_campos_excluir) THEN xFLDEXCEPT ="" ELSE xFLDEXCEPT = " fields EXCEPT " +THIS.dos_campos_excluir ENDIF IF EMPTY(THIS.dos_campos_Like) THEN xFLDLike="" ELSE xFLDLike= " fields Like " +THIS.dos_campos_Like ENDIF IF EMPTY(THIS.dos_campos_Incluir) THEN xFLDList="" ELSE xFLDList= " fields " +THIS.dos_campos_Incluir ENDIF ************** COPIA DE CODIGOS EN BLANCO ************************************** IF p_dos=p_codEmp THEN *** paso el objeto a oSCO y lo blanqueo oSCO=xdos_scatter SELECT TMPpDosMirr SCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO ******** Paso los parametros separados por ,(coma) a un array *************** xaCount1 = odeyfunc.split_to_array(@xaCopia,THISFORM.dos_Blanquea,",") xaCount2 = odeyfunc.split_to_array(@xaValores,THISFORM.dos_Blanquea_Valores,",") ******** Copio los valores seleccionados FOR nIt=1 TO xaCount1 xaSTR1=ALLTRIM(xaCopia(nIt)) xaStr2=ALLTRIM(xaValores(nIt)) ** Reemplazo los . por el nombre del objeto. Es para ahorrar espacio y escritura IF LEFT(xaSTR1,1)="." THEN xaSTR1="oSCD"+xaSTR1 ENDIF IF LEFT(xaStr2,1)="." THEN xaStr2="oSCO"+xaStr2 ENDIF ***************** ACA SE HACE LA COPIA DE CADA CAMPO ********************* &xaSTR1 = EVALUATE(xaStr2) NEXT *** Se se haban seleccionado vuelvo a tomar el blanqueado. IF xaCount1 > 0 THEN IF xtipoabm=1 THEN xdos_scatter = oSCD ENDIF ENDIF ELSE oSCD = xdos_scatter ENDIF ********************************************************************************* DO CASE CASE xOP=1 && Agregar SELECT TMPpDosMirr APPEND BLANK GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. CASE xOP= 2 && Modificar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN IF xdos_agrega_si_falta THEN SELECT TMPpDosMirr APPEND BLANK GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK=.T. ELSE xOK=.F. ENDIF ELSE GATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO xOK= .T. ENDIF CASE xOP=4 && Borrar SELECT TMPpDosMirr SET ORDER TO (xidxclave) SEEK xCod IF !FOUND() THEN xOK=.F. ELSE DELETE xOK= .T. ENDIF ENDCASE THISFORM.dos_setdbBack ENDIF ENDPROC PROCEDURE dos_getdata IF this.dos_espejar_multiple>0 THEN thisform.dos_controlador.dos_getdata() ELSE xAlias=ALIAS() SELE (THISFORM.nombre_vista) SCATTER NAME THISFORM.dos_scatter MEMO SELECT (xAlias) ENDIF ENDPROC PROCEDURE dos_setdb LPARAMETERS xTabla, xAlias, xClave IF this.dos_espejar_multiple>0 THEN thisform.dos_Controlador.dos_setdb(xTabla, xAlias, xClave) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF IF EMPTY(xTabla) THEN xTabla=THISFORM.dos_tabla ENDIF IF TYPE("xClave")="L" THEN IF THISFORM.dos_idxclave=='' AND TYPE("thisform.idxclave")="C" THEN IF THISFORM.idxclave#'' THEN THISFORM.dos_idxclave=THISFORM.idxclave ENDIF ENDIF xClave=THISFORM.dos_idxclave ENDIF IF p_dos=p_codEmp THEN xSegunda_Tabla=p_uno ELSE xSegunda_Tabla=p_dos ENDIF THISFORM.xoldDS=THISFORM.DATASESSIONID THISFORM.xoldDBC=DBC() THISFORM.xp_dos=p_system+"\data\"+ALLTRIM(STR(xSegunda_Tabla)) THISFORM.xnewDBC=THISFORM.xp_dos + "\ges.dbc" THISFORM.xnDS=CREATEOBJECT("Session") =sets() OPEN DATABASE (THISFORM.xnewDBC) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF IF THIS.dos_vista THEN THIS.dos_vista_abrir (xTabla, xAlias, xClave, THISFORM.xp_dos) ELSE IF !FILE(FORCEEXT(THISFORM.xp_dos +"\" + xTabla,"dbf")) THEN This.dos_Crear_Tabla(xTabla) ENDIF USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN ENDIF IF xClave#'' THEN SELECT &xAlias SET ORDER TO &xClave ENDIF ENDIF ENDPROC PROCEDURE dos_setdbback LPARAMETERS xAlias IF this.dos_espejar_multiple>0 THEN THISFORM.dos_Controlador.dos_setdbBack(xAlias) ELSE IF EMPTY(xAlias) THEN xAlias="TMPpDosMirr" ENDIF SELECT &xAlias USE SET DATABASE TO (THISFORM.xNewDBC) CLOSE DATABASES THISFORM.DATASESSIONID = THISFORM.xoldds THISFORM.xnDS=.F. SET DATABASE TO (THISFORM.xoldDBC) ENDIF THISFORM.ENABLED=.T. THISFORM.LOCKSCREEN =.F. ENDPROC PROCEDURE borrar_valida SET PROCEDURE TO Dey_Func ADDITIVE IF NOT thisform.borrar_validar THEN RETURN .t. ENDIF xaTabla=IIF(thisform.borrar_tabla =='', Thisform.tabla ,thisform.borrar_tabla) xaClave=IIF(thisform.borrar_Clave =='', thisform.clave,thisform.Borrar_Clave) xaCodigo=Evaluate(xaClave) xResult=sys_validar_anulaciones(xaTabla,xaCodigo) xRESP=.t. xOmitirTXT= CHR(13) +CHR(13) +"Para omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn." IF NOT xResult=='' THEN *!* IF acceso( 114 , .f. ) THEN *!* &&SI NO SE QUIERE PREGUNTAR SI BORRA IGUALMENTE PONER .F. *!* IF .f. Then *!* xResp=Mensaje_SiNo("Desea borrar igualmente el registro?"+CHR(13)+CHR(13)+xResult+xOmitirTXT,2) *!* IF xResp THEN *!* xMsg= 'ABM de '+proper(thisform.tabla)+". Borrado Incondicional: Cod. " + TRANSFORM(xaCodigo) *!* =User_Log(pub_index, 0, "", "", xmsg, "Class:hlpabm2:Borrar_Valida",,, this.entidad , xaCodigo) *!* ENDIF *!* Else *!* =Mensaje(xResult+xOmitirTXT) *!* xRESP=.f. *!* ENDIF *!* ELSE =Mensaje(xResult) xRESP=.f. *!* ENDIF ENDIF RETURN xRESP ENDPROC PROCEDURE antes_de_salir RETURN .t. ENDPROC PROCEDURE agregar_pos LPARAMETERS xPos ENDPROC PROCEDURE clonar lparameters xauto, xcodigo, xcodigonuevo local xsugerencia, xresvista, xresultado local xarch, xclave, xclavepos xclavepos=.f. xresultado = .f. *=sys_m("Clonar") thisform.tipoabm=1 thisform.subtipoabm=2 if not xauto then xcodigo=evaluate(thisform.tabla+"."+thisform.clave) endif xresvista=thisform.vista(xcodigo,'borr_agr') if xresvista sele borr_agr && (thisform.nombre_vista) *copy stru to (p_local+'\borr_agr') xarch=right(sys(2015),8) copy to (p_local+'\tmp\'+xarch) sele 0 use (p_local+'\tmp\'+xarch) excl alias (thisform.nombre_vista) *!* dIF THISFORM.inicializar() sele (thisform.nombre_vista) this.clave_original = evaluate(thisform.clave) repl (thisform.clave) with thisform.sugerir(xcodigonuevo) ,; (thisform.campo_idu) with sys(2015) * Elimina datos clonados innecesarios o que problematicos. =thisform.clonar_inicializar() do while .t. sele (thisform.nombre_vista) local xclave if not xauto then =thisform.abm() else thisform.resultado = .t. endif if thisform.resultado sele (thisform.nombre_vista) if type(thisform.clave)='N' xclave=thisform.clave xclave=&xclave if xclave=-1 xsugerencia = thisform.nuevo_numero() sele (thisform.nombre_vista) repl (thisform.clave) with xsugerencia endif endif try xclavepos=evaluate(thisform.clave) thisform.xclavepos = xclavepos catch endtry if thisform.txn_lock() if thisform.finalizar(.t.) xresultado = .t. exit else * Error al finalizar if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Error al iniciar la transaccin if xauto * No se puede reintentar porque no hay ABM exit endif endif else * Se cancel la operacin exit endif enddo select borr_agr if thisform.vista_vista or p_hlpabm2_vista =tablerevert() else endif endif if xresultado then =thisform.agregar_pos(xclavepos) endif this.clonar_pos(xresultado, xclavepos, this.clave_original, xauto) =thisform.limpiar_tmp() return xresultado ENDPROC PROCEDURE dos_vista_abrir LPARAMETERS xTabla, xAlias, xClave, xPath2 ENDPROC PROCEDURE clonar_enable_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.clonar_enable = m.vNewVal thisform.command1.Enabled=m.vNewVal ENDPROC PROCEDURE clonar_inicializar IF INLIST(THIS.clonar_sugerir,1,3,4) THEN LOCAL xClave xClave=this.clave_vista REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() ENDIF ENDPROC PROCEDURE clonar_sugerir_clave LPARAMETERS xEncabezado, oObj, xReemplazar *=Sys_M("Sugerir") IF TYPE("oObj")="O" THEN xEncabezado=oOBJ.Value ENDIF IF TYPE("xEncabezado")#"C" THEN xEncabezado="" ELSE xEncabezado=ALLTRIM(xEncabezado) ENDIF LOCAL xSTR, xNUM, xVal, xTabla, xCampo, xCampoVista, xCeros LOCAL ARRAY xArrClave(1) STORE 0 TO xArrClave xTabla = THIS.tabla xCampo = THIS.clave xVal = ALLTRIM(THIS.clave_original ) *** PARA QUE ??? *!* IF LEN(xEncabezado)>=LEN(xVal) THEN *!* xEncabezado="" *!* ENDIF LOCAL xHead, xFinal, xFinalN, xCodigo IF xEncabezado="" THEN xValor=ALLTRIM(xVal) xHead="" xFinal="" FOR nIT=LEN(xValor) TO 1 STEP -1 IF NOT BETWEEN(ASC(RIGHT(xValor,nIT)),48,57) THEN xHead=LEFT(xValor,LEN(xValor) - nIT+1) xFinal=RIGHT(xValor, nIT-1) ENDIF NEXT ELSE xHead=xEncabezado xFinal=SUBSTR(xVal, LEN(xHead)+1) ENDIF IF xHead="" THEN SELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ELSE SELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave ENDIF xFinalN=ALLTRIM(STR(xArrClave+1)) IF LEN(xFinalN) CC] C+a F  C% F %C bNTT xclave=&xclave %PTC F >  tTC ~%C%C Ta! !%C C BU XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMCLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTASUGERIR CAMPO_IDUINICIALIZAR_REGISTROABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR AGREGAR_POS LIMPIAR_TMP %CN> T T- F TCC+C CO6T % %C C Ta TC. %C  C +aG+(sys_reg_compare TC5TC reg_compareNC% C TaC )TC 3%C 2%CCCtts_idbC6 Ta!%C F% # C U!XAUTOXCODIGO XRESULTADO XCLAVEPOSXNO_MOSTRAR_ABMP_HLPABM2_VERSIONTHISFORMTABLAXREGTIPOABMIDXCLAVECLAVEVISTA INICIALIZARSYS_REG_COMPARE XALIAS_VISTAOCOMPARE OCOMPARE1 OCOMPARE2 OCOMPARE3 OCOMPARE4 OCOMPARE5 OCOMPARE6PUSHABM RESULTADOTXN_LOCKTHIS TXN_BEGIN FINALIZARTTS_ID MODIFICAR_POS LIMPIAR_TMPt4 FTCT%C9% TaAT ABM de C. Omitio Validacin: Cod. C_EC  Class:hlpabm2:Borrar_Valida  TC%5 C+a1%C-  F%  TC %   T FTa%C)!%`C CUXEVITAR_VALIDACIN XCLAVEPOSTHISFORMTABLAXACODIGOCLAVETIPOABMVISTA XVAL_RESULTXMSGUSER_LOG PUB_INDEXTHISENTIDAD BORRAR_VALIDA INICIALIZARTXN_LOCK TXN_BEGIN NOMBRE_VISTA DOS_COPIAR DOS_GETDATA VISTA_VISTAP_HLPABM2_VISTAXIDUIDUFOR RESULTADO FINALIZAR BORRAR_POS LIMPIAR_TMP FBaUTHISFORM NOMBRE_VISTA   T-1 no_fld=.t.%C XW>C]on error &onerr  QOBJECT T  T a T a %   TCT C%k F ^JT CT   C%   F 7C. ^(F#)%CN   _%  T% %   A % BrkActivoG+(_ubroker _utmapper%C TCC  (!<TBrkError*%BrkError C O"BError al intentar conexin con One Line Click - consulte a soporte # T a  %$%  %  9&T&AgregaC clonando6: ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T&& DESCR: CCC'bC C'GCC'bNCCC'Z&#Descripcin no numrica ni de texto66()& Class:hlpabm2*CCCbC C&CCbNCCCZ?66hC Class:hlpabm2*CCCbC C&CCbNCCCZ?66+F< ^JTC]r,Jxregdata C- % Y  F ^( T F,-%C4 _  # T -!CError con el IDU !!!"% % . PT.C Z/T/C01%C/ R()Mod: / Class:hlpabm2*. 2% T aC 3 C4%P 5 C6%CO  7CC 98(! <TBrkErrorO"BError al intentar conexin con One Line Click - consulte a soporte<  %COF <Cerroresz%C\ "CRegistro repetido !!!"  &CNo se pudo actualizar !!!" T -  # T a C:  % tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 7C*Registro repetido o clave invlida(alt)!!!"  w tC+Registro repetido o clave invlida (alt)!!!C Clave: C Valor: C." 3C&Registro repetido o clave invlida !!!" # T -% B-  C4 ;BaU<XCLONARXTTS_IDTHISFORMFINALIZAR_MODIFICACIONESNO_FLDIDUERRORESXCLAVEOSQLMREGISTROXOK XOK_P_DOS RESULTADOTIPOABMCLAVE VLD_CODIGO DOS_COPIAR NOMBRE_VISTA DOS_SCATTERVLD_CODIGO_DOSCLONAR_DEPENDIENTESTHIS TXN_BEGINXREGDATABORR_AGRAAA DOS_GETDATAP_BROKERSTATUS_UBROKER _UTMAPPER NEEDEXPORTGETEXPORTCLASSNAMESAVECURRENTRECORDOERRMENSAJE TXN_ROLLBACK VISTA_VISTAP_HLPABM2_VISTAXIDDATOCLAVE_BUSQUEDAUSER_LOG PUB_INDEXENTIDADHOOK_TXN_AGREGA_CLONATABLACLONAR_DEPENDIENTES2 XCLAVEPOS XCOMPARACIONOCOMPARECOMPARE TXN_COMMITHOOK_TXN UNLOCK_ALL DOS_MIRRORHIJAS_GUARDAR_DOS OPENSQLTBL EXPORTTOSQLTIPOABMTOTIPOMOV HIJAS_LIBERARREFRESH5 T  TCW(% e  oT % F %%  Ca  FU XNO_MOSTRAR_ABM OHLPABMPARENTTHIS XRESULTADOXAREATHISFORM FORMULARIOTIPOABMSHOW RESULTADO NOMBRE_VISTA VISTA_VISTAP_HLPABM2_VISTA FT%CC FC Buffering C C F% Ca  C U THISFORMTABLATIPOABMVISTACLAVE NOMBRE_VISTA INICIALIZARABM VISTA_VISTAP_HLPABM2_VISTA LIMPIAR_TMPBU1%C CbC xCodigo_Nuevob A B%CbNsT  TCW FTC F BU XCODIGO_NUEVOTHISFORMCLAVEXRESAREATABLASUGERIR_NO_NUMTCH* Cl1bCO BCC>X Cl1bNp B Cl1bY B Cl1bDB Cl1bTB Cl1bLB- Cl1bM B Cl1bO@ B Cl1bGa B Cl1bU BUL1THISFORMCLAVE 4%C -T%CV FQ%Cborr_agr~FQF1 aaa=ERROR() T% Q IT Xselect * from (thisform.tabla) where &xclave=xcodigo into cursor (xalias) readwrite ON ERROR &onerr %CCEC CE T9 aLON ERROR &onerr B- C select &xalias BaU XCODIGOXALIASTHISFORM NOMBRE_VISTABORR_AGRAAA VISTA_VISTAP_HLPABM2_VISTAXCLAVECLAVEMENSAJEVISIBLE HIJAS_ABRIR4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-  F TCG((%A% !G EG T C4 V T a F G((B  U XCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOXORDERXABORTATABLAIDXCLAVETIPOABM CLAVE_UNICAXOKa%C% FQ%Cborr_agrMFQ FUTHISFORM NOMBRE_VISTABORR_AGRTABLA<T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 T+trsac U TRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAABEG_TRANTRSACTHISENTIDAD CT Class:hlpabm2TABM de C T+trsac T U THISFORM HIJAS_GUARDARTRAN_PRGTRAN_TXTTABLAAAAEND_TRANTRSACTHISENTIDADTTS_IDT Class:hlpabm2TABM de CT+trsac T U TRAN_PRGTRAN_TXTTHISFORMTABLAAAAEND_TRANTRSACTHISENTIDADTTS_ID F TCG((%OG%w TCG(#6TCG F G((%C SET FILTER TO &xfilter  BU XORDENXRESXFILTERTHISFORMTABLAIDXCLAVE CLAVE_UNICATABLA_FILTRADACLAVE4BaUXCOD1T T UVNEWVALTHIS BORRAR_ENABLETHISFORMCOMMAND3ENABLED1T T UVNEWVALTHISAGREGAR_ENABLETHISFORMCOMMAND1ENABLED1T T UVNEWVALTHISMODIFICAR_ENABLETHISFORMCOMMAND2ENABLED1T T UVNEWVALTHISVISUALIZAR_ENABLETHISFORMCOMMAND5ENABLEDT % T T T T UVNEWVALTHIS SOLO_LECTURACOMMAND1ENABLEDCOMMAND2COMMAND3COMMAND6-C Todava no est implementado !!!BTCXbuscar(Hx- Cthis.tipo_campoCCZCFG((T#)  4  T H ?T   bT  T  T % $ T  1aaa=1F G(( %  Bon error &onerr H9 fT- T- T- T-H eT TTTa TTTTa +TTTTa TT T!TaT FG((T#)  U"MENSAJEXTXTBUSCARZTHISGRID1 RECORDSOURCE ORDEN_ACTUALOLDKEY ACTUALIZARXHEADERXTAGAAAORDENORDEN1ORDEN2ORDEN3COLUMNA_ACTUALCOLUMN1HEADER1FONTBOLDCOLUMN2COLUMN3COLUMN4CLAVE_BUSQUEDA_ACTUALCLAVE_BUSQUEDATIPO_CAMPO_ACTUAL TIPO_CAMPOCLAVE_BUSQUEDA1 TIPO_CAMPO1CLAVE_BUSQUEDA2 TIPO_CAMPO2CLAVE_BUSQUEDA3 TIPO_CAMPO3T Class:hlpabm2"TABM de C.T Operacin: CAgregar.jC Modificar.KC Visualizar.+C Borrar. No definida.6666% |T ID: CCCbC CACCbNCCCZ Clave no numrica ni de texto66.T DESCR: CCCbC CGCCbNCCCZ&#Descripcin no numrica ni de texto66 Tstrsac CC  -6CC  -6CC  -6% CB- BaUTRAN_PRGTRAN_TXTTHISFORMTABLATIPOABMCLAVECLAVE_BUSQUEDAAAALOCK_GTRSAC NOMBRE_VISTALOCK_ADICIONAL_1LOCK_ADICIONAL_2LOCK_ADICIONAL_3 UNLOCK_ALL@4 TH% CxcodigobCq$%C C-1 mB- 2%B-%C B-% BC   T  T  %ETTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G(( %%G EG TC4  Ta B UXCODIGO TTS_ERRORTHISFORMUSR_VLD_CODIGOTHISDOS_ESPEJAR_MULTIPLEVLD_CODIGO_DOS_MULTIPLEXORDERXABORTA DOS_SETDB XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULA TMPPDOSMIRRTIPOABM CLAVE_UNICAXCODXOK DOS_SETDBBACK%-C   #     T TTT%TTTT xixcodcla = &xdos_Formula xCod=&xixcodcla %C!q T #T fields EXCEPT !%C" T !T fields Like "%C# T 9T fields #%$% TF&ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO T C),'(T C *,'( ( T CC TCC %C =.RT oSCD %C=.ToSCO&xaSTR1 = EVALUATE(xaStr2) % % T  TH }F&BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4 3%F&9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a / T+- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T+a F& G(( E,%C4  T+-  T+a -U.XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_MIRROROSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPT DOS_SETDBXTIPOABMTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMP TMPPDOSMIRRODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCOD DOS_SETDBBACKf%&C _ TC F ^J FUTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_GETDATAXALIAS NOMBRE_VISTA DOS_SCATTER2%AC +%CtT TMPpDosMirr%CT%CxClavebL/5% Cthisform.idxclavebC % T  T % S T  j T  TTC"T\data\CC ZT\ges.dbcTCSessionN C%C+SELECT &xAlias Q%`C '%CC\dbf0 C@USE (THISFORM.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %'SELECT &xAlias SET ORDER TO &xClave UXTABLAXALIASXCLAVETHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDB DOS_TABLA DOS_IDXCLAVEIDXCLAVEP_DOSP_CODEMPXSEGUNDA_TABLAP_UNOXOLDDS DATASESSIONIDXOLDDBCXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIRDOS_CREAR_TABLA%1C %CdT TMPpDosMirrSELECT &xAlias QG(TT -G( T aT -U XALIASTHISDOS_ESPEJAR_MULTIPLETHISFORMDOS_CONTROLADOR DOS_SETDBBACKXNEWDBC DATASESSIONIDXOLDDSXNDSXOLDDBCENABLED LOCKSCREEN_G+(Dey_Func% ,Ba(TC 6(TC 6T CT C T arT C C YPara omitir la validacin presione el botn BORRAR utilizando el botn derecho del ratn.%  OC  T - B UDEY_FUNCTHISFORMBORRAR_VALIDARXATABLA BORRAR_TABLATABLAXACLAVE BORRAR_CLAVECLAVEXACODIGOXRESULTSYS_VALIDAR_ANULACIONESXRESP XOMITIRTXTMENSAJE BaU UXPOS T- T-T T % TC .  TCborr_agr %FTCC]R(\tmp\F"Q\tmp\  F TC .> C  C] C +aM F %  C  T a% ; F %C bN}T xclave=&xclave %yTC  F >  TC T  %C %Ca  Ta! %! 7%3! I!F%  z C %C C C BU!XAUTOXCODIGO XCODIGONUEVO XSUGERENCIA XRESVISTA XRESULTADOXARCHXCLAVE XCLAVEPOSTHISFORMTIPOABM SUBTIPOABMTABLACLAVEVISTABORR_AGRP_LOCAL NOMBRE_VISTATHISCLAVE_ORIGINALSUGERIR CAMPO_IDUCLONAR_INICIALIZARABM RESULTADO NUEVO_NUMEROTXN_LOCK FINALIZAR VISTA_VISTAP_HLPABM2_VISTA AGREGAR_POS CLONAR_POS LIMPIAR_TMPUXTABLAXALIASXCLAVEXPATH21T T UVNEWVALTHIS CLONAR_ENABLETHISFORMCOMMAND1ENABLEDo%ChT4REPLACE &xClave WITH THIS.Clonar_Sugerir_Clave() UTHISCLONAR_SUGERIRXCLAVE CLAVE_VISTA%CoObjbO9T!%C xEncabezadobCk T TC   J( T T TC %TC T T"C>(%CCCR09 TCC>=TCR  TTCC>\%URSELECT MAX(VAL(&xCampo)) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave kSELECT MAX(VAL(SUBSTR(&xCampo, LEN(xHead)+1))) FROM &xTabla WHERE &xCampo=xHead INTO ARRAY xArrClave TCC Z%C>C> TCC>0T%uT  %replace &xCampoVista WITH xCodigo  BU XENCABEZADOOOBJ XREEMPLAZARVALUEXSTRXNUMXVALXTABLAXCAMPO XCAMPOVISTAXCEROS XARRCLAVETHISTABLACLAVECLAVE_ORIGINALXHEADXFINALXFINALNXCODIGOXVALORNIT CLAVE_VISTAREFRESHB.UTHISTABLACLAVEB.UTHIS NOMBRE_VISTACLAVEs"%C This.EntidadbOp-TC Entidadessys_entidades.prgTC"%C this.EntidadbO` 0 TC( TC.( TC (\CERR:   BU OENTSTHISENTIDADTABLA_A_ENTIDADTABLAXCODTHISFORMCLAVEOEX SETEAR_CODIGOMESSAGE+ Ta  C TT%TTTxixcodcla = &xdos_Formula xCod=&xixcodcla F TC G((%q%JG EG TC4 Ta  B UXORDERXABORTAXOK XIDXCLAVE XDOS_SCATTERXCLAVE XDOS_FORMULAOESPXCOD XIXCODCLATHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNOTHISFORM DOS_IDXCLAVE DOS_SCATTER DOS_CLAVECLAVEDOS_CLAVE_FORMULAXALIASTIPOABM CLAVE_UNICADOS_SETDBBACK_UNO TTS_ERRORU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO UXTABLAsT % lT T T UVNEWVALTHIS SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND1ENABLEDCOMMAND3COMMAND6 BUXCODIGOD % " =CUNKEYCODE NSHIFTALTCTRL C%T(T   T  $T  T %  %QCError en formulario: Clave DOSC Consulte al soporte tcnico. T-T G(  T  T a C (["%  9 T   C(5GCError al abrir tablas !!! C C C  T - W  T -% vB- CT"%C xHLPABMTablabCT F CUSETSP_ESPEJA_MULTIPLETXCOPIATHISFORM DOS_COPIARP_DOS DOS_TABLAP_UNOP_CODEMPMENSAJE XP_DOS_COPIAR DATASESSIONIDXFASEXOK_OPEN OPENFILESOCATCHERRORNOOEXAS LINECONTENTSMESSAGE BUSCAR_TXTTABLA XHLPABMTABLA ASIGNAR_COLOR UTHISFORM VISUALIZAR  C%(kTCTCTT T  T  %     U UNLOCK_ALLTHISFORMTTSZTTS_LCKTTS_BUFTRAN_PRGTTS_PRGTRAN_TXTTTS_TXTTTS_OK TTS_ERROR CERRAR_TABLASDOS_CONTROLADORRELEASEHOOK_BEFORE_RELEASEHLP HOOK_RELEASEX %C tts_lck(1)bU(vTCTCTTT  T  T a T -T  T %abmTTCabm%TTT"T  T "T   "T!  TdTdT dT"dT#dT!dT$d<%    # ' f.C!No tiene acceso a esta opcin !!!%B-DT&Cdos_mirror_controladorsys_mirror_funciones.prgT&'C&( %) * A;C.La tabla de la empresa DOS no esta establecida%T)-B-T+CU,XVARZTHISFORMTTS_LCKTTS_BUFTTS_PRGTRAN_PRGTTS_TXTTRAN_TXTTTS_OK TTS_ERRORTTSFORM_MENOS_GRIDMARGEN_DERECHO ANCHO_GRID ANCHO_TOTALHLPINIT NOMBRE_VISTATABLAIDXCLAVECLAVETHISTEXT1WIDTHLEFTGRID1COMMAND1ENABLED SOLO_LECTURA SOLO_MODIFICAR_DATOS_NO_CRITICOSCOMMAND2COMMAND3COMMAND6COMMAND4COMMAND5 BTN_BUSCARMENSAJEDOS_CONTROLADOR OFORMULARIO ESPEJOS_CREAR DOS_COPIAR DOS_TABLA FECHAHORAagregar0 modificarQborrar inicializart finalizar abm visualizar4 vldagregarxsugerirsugerir_no_numvista9! vld_codigo# limpiar_tmp% txn_begin;& txn_commit( txn_rollback) nuevo_numero*usr_vld_codigo,borrar_enable_assign0,agregar_enable_assign,modificar_enable_assign-visualizar_enable_assign-solo_lectura_assign.buscar.txn_lockD5vld_codigo_dos8 dos_mirror%< dos_getdataUD dos_setdb*E dos_setdbback}I borrar_validaJantes_de_salir M agregar_posMclonar5Mdos_vista_abrirRclonar_enable_assignRclonar_inicializar=Sclonar_sugerir_claveSclave_tabla_access=Xclave_vista_accesstXentidad_accessXvld_codigo_dos_multipleZ clonar_pos^]dos_crear_tabla]'solo_modificar_datos_no_criticos_assign]se_puede_operar^tecla^Load_salida cRelease5cInite1ArU!Qr"!B1AA"A22AAABAACA4uArsABrrAAD!A2"AAABAAAA3qq!rQA1#A!AAA2AABABA"A7r2!QA1"R"QACrQQAAB%AaqqQAAAq rr1aAAAAbs!Ar!!AB21"ArqqQAqAqqA2#bAABBAAqAA1AAAqrA4qrB2aAAA3AF3A3qArA3q"qA3"ABAAqAA1BB32AA1qB"q3qAqA1qAAqAb#aAaAA5AAAqAA4!Q aA333"aA!aARbbA3qq2q"Q2q"Q2q#Q2q"Q2q#baaaA3AABQv1111A21AA1AaqaqaqaqA1111q1111q1111q1111qAQ5!Q aA62rqA9qAqA1qAAqAcAa1A1tb"aAaAB4qbq1b1A1D1ABABA4qAAQAQAB21AAB1qQ!2qqQAA1qAAAA3aA2bAAQa1AAA1A2$!AA!qAA1!AB3qbAA"AQ2B3!2qAb!BB2q2q2ArU!RrA"!B1AA"A1AABAABAABAArABA412q"Q2qAA2AA#74!aAAB1!AQqAQA333"qA!q!ABCAB3ua1A1b"aAaB!ABC513q2q"bbaA3q31AA32CAA!qAABqA"B22%A!QAA5uAA2Ab1A"q!!qAB1qB2Z;zs ar  -!N-D0,de0D2Lse2m2ku2}4o4H6d6P9q9; <<<@ 6@@/AA<ACECDeCDDiDEo"EDFu&sFG|*,GOH3lH P?PW X\@\ohahbi'inWn?p1icptJytul{'u7uo}Tu}r~B~m~~!8a8 =1B шd>6n@BJBbM~T7Hc ")|resultado resultado de la llamada al formulario de abm: .t = Aceptar, .f. = Cancelar tipoabm 1=agregar 2=modificar 3=visualiar 4=borrar clave_unica Especifica si el archivo tiene una clave principal, es decir, si se obliga a tener una clave nica por registro nombre_vista Nombre de la vista idxclave Indice de la clave. Vacio=Idxclave=Clave campo_idu agregar_enable modificar_enable borrar_enable visualizar_enable tts_ok tts_error tts_prg tts_txt tts solo_lectura Solo permite visualizar los datos dos_tabla Nombre del alias de la base de datos p_dos dos_copiar Habilita a la clase para iniciar los procesos de espejado en la base p_dos dos_scatter Variable que contiene el Scatter de la base principal temporariamente dos_agrega_si_falta Agrega el registro si al modificarlo no existe en la base de datos p_dos xoldds xolddbc xnewdbc xnds xp_dos dos_idxclave Permite utilizar un orden diferente para la tabla de p_DOS dos_clave dos_clave_formula borrar_validar borrar_tabla borrar_clave dos_blanquea dos_blanquea_valores tabla_filtrada Si est en .T. antes de analizar un nuevo nmero para el cdigo, quita el filtro para evitar repeticiones. cerrar_tablas Cierra las tablas al salir dos_vista formulario vista_vista .T. = Es una vista, .F. = Es un cursor RW de creacin automtica tmp_alias_1 tmp_alias_2 tmp_alias_3 tmp_alias_4 tmp_alias_5 tmp_alias_6 tmp_original_1 tmp_original_2 tmp_original_3 tmp_original_4 tmp_original_5 tmp_original_6 clonar_enable lock_adicional_1 lock_adicional_2 lock_adicional_3 clave_original clave_tabla clave_vista clonar_sugerir subtipoabm dos_campos_excluir dos_campos_incluir dos_campos_like entidad fechahora Marca el comienzo del ABM, para poder sincronizar otras tablas con las modificaciones posteriores dos_controlador dos_espejar_multiple xclavepos solo_modificar_datos_no_criticos margen_derecho *agregar *modificar *borrar *inicializar Inicializacin de transaccin *finalizar Cierre de transaccin y actualizacin de los datos *abm Llamada al formulario de abm *visualizar *vldagregar Validacin del nuevo registro, debe ser redefinida *sugerir Sugiere una nueva clave. *sugerir_no_num Sugiere un cdigo para claves no numricas. Vaco. Para redefinir. *inicializar_registro Inicializa el registro agregado *vista Crea la vista ABM *vld_codigo *limpiar_tmp *txn_begin Comienzo de la transaccin *txn_commit Fin de la transaccin (Commit) *txn_rollback Rollback *hook_txn Funcin llamada si la transaccin concluye satisfactoriamente. Ojo !!! Est fuera de la transaccin. *hook_release Es el ultimo metodo que se llama antes de hacer el Release del Form. *nuevo_numero Sugiere el prximo nmero para los cdigo numricos *usr_vld_codigo A reemplazar por el programador para validar el codigo. Solo debe comprobar el si el rango es vlido o si los caracteres son vlidos, no si est repetido. *finalizar_modificaciones Fuera del formulario y dentro de la transaccin. *borrar_enable_assign *agregar_enable_assign *modificar_enable_assign *visualizar_enable_assign ^tts_lck[50,0] ^tts_buf[50,0] *solo_lectura_assign *buscar *txn_lock *vld_codigo_dos *dos_mirror Ejecuta los procesos de Mirror en la base p_dos *dos_getdata Realiza el Scatter de la base de datos principal *dos_setdb *dos_setdbback *borrar_valida *antes_de_salir *hook_before_release *agregar_pos *modificar_pos *borrar_pos *hijas_guardar *hijas_abrir *hijas_liberar *hijas_guardar_dos *clonar *dos_vista_abrir *clonar_enable_assign *clonar_inicializar Permite modificar la copia "clonada" para eliminarle basura *clonar_dependientes *clonar_dependientes2 *clonar_sugerir_clave *clave_tabla_access *clave_vista_access *entidad_access *vld_codigo_dos_multiple *clonar_pos Se ejecuta despus del ABM, antes del salir del clonado *dos_crear_tabla *hook_txn_agrega_clona Llamado desde dentro de la transaccin al agregar o clonar. Sirve para loguear alguna cosa. *solo_modificar_datos_no_criticos_assign *se_puede_operar  commandbutton commandbuttonCommand1hlpabm2Top = 29 Left = 546 Height = 25 Width = 73 FontBold = .T. FontSize = 9 Anchor = 9 Caption = "Agregar" TabIndex = 3 Name = "Command1" 0PROCEDURE Click thisform.agregar() ENDPROC "%[pjU CUTHISFORMAGREGARClick012%) commandbutton commandbuttonCommand2hlpabm2Top = 65 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Modificar" TabIndex = 4 Name = "Command2" PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) thisform.modificar ELSE mensaje(xmsg) endif ENDPROC d"KK]k% Uf%TCC.%CG  _CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVE MODIFICARMENSAJEClick01qQA2)K commandbutton commandbuttonCommand3hlpabm2Top = 137 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Borrar" TabIndex = 5 Name = "Command3" PROCEDURE RightClick RETURN * NOOOOOOOOOO *!* IF !acceso( 114 , .f. ) OR NOT thisform.borrar_validar THEN *!* RETURN *!* ENDIF *!* if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+'?'+CHR(13)+CHR(13)+; *!* "ATENCION!!! ESTA OMITIENDO EL PROCESO DE VALIDACIN!!!",4)=6 *!* thisform.borrar (.t.) *!* endif ENDPROC PROCEDURE Click LOCAL xmsg xmsg=thisform.se_puede_operar(EVALUATE(thisform.tabla+"."+thisform.clave)) IF EMPTY(xmsg) if messagebox('Est seguro que desea borrar a '+alltrim(evaluate(thisform.clave_busqueda))+' ?',4)=6 thisform.borrar endif ELSE mensaje(xmsg) endif ENDPROC "W%J mUBU%TCC.%CI%CEst seguro que desea borrar a CCΛ ?x  CUXMSGTHISFORMSE_PUEDE_OPERARTABLACLAVECLAVE_BUSQUEDABORRARMENSAJE RightClick0Click?1A=qQAA2n) commandbutton commandbuttonCommand4hlpabm2Top = 245 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Salir" TabIndex = 8 Name = "Command4" fPROCEDURE Click xOK=thisform.Antes_de_salir() IF xOK THEN thisform.release ENDIF ENDPROC "%U1TC%* UXOKTHISFORMANTES_DE_SALIRRELEASEClick01A2[) commandbutton commandbuttonCommand5hlpabm2Top = 173 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Visualizar" TabIndex = 6 Name = "Command5" 3PROCEDURE Click thisform.visualizar ENDPROC "%[pjU UTHISFORM VISUALIZARClick013() commandbutton commandbuttonCommand6hlpabm2Top = 101 Left = 546 Height = 25 Width = 73 FontBold = .T. Anchor = 9 Caption = "Clonar" TabIndex = 4 Name = "Command6" 1PROCEDURE Click thisform.clonar ENDPROC "j%WlfU UTHISFORMCLONARClick014&)hlpabm2hlp7Class8Abm con buffering y transacciones, requiere la clase abmPixelshlpabm2jArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 11, 9, 17, 13, 11, 4, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 _ FF#%8(}UTCUTHIS BACKCOLOR SYS_COLORIT-6TC _>TC%TC%%%TT% ,%  T (T  4T aU THIS ADVERTENCIAVISIBLENAMECAPTIONXWIDTHXHEIGHT ANCHODESEADOWIDTH ALTURADESEADAHEIGHTTHISFORM AUTOCENTERDTaTT CUTHIS AUTOCENTER MINHEIGHTHEIGHTMINWIDTHWIDTHTHISFORM ASIGNAR_COLORF %& ?BCUNKEYCODE NSHIFTALTCTRLTHISFORMRELEASE asignar_color,Init`Load+KeyPress12ABA1ABBA1AB3212A13N '.!56)F %3m SU`TT% YT-T-UTHISLEFTTHISFORMWIDTHTABINDEXP_DEVENABLEDVISIBLE=.&CCCZ x CCZ6UMENSAJETHISFORMWIDTHHEIGHTInit,DblClick1A3aA1 ) '%p~U# CTUTHISLEFTTHISFORMWIDTHInit,1r2<) %U3TTTUTHISTOPLEFTVISIBLEP_DEVInit,11=)  W % e U4T T UVNEWVALTHIS VALOR_DESDEVAR1TEXT8VALUE4T T UVNEWVALTHIS VALOR_HASTAVAR2TEXT8VALUEM T%Cxv1bCJTCeTT%Cxv2bCTCT.% TTT U XV1XV2THISVAR1VACIOVAR2TEXT8VALUE VALOR_DESDE VALOR_HASTA%  B5 T%eTCTC,TCa  (  % C :    BUTHISTEXTO_FILTRO_MOSTRARXTEXTO VALOR_DESDE VALOR_HASTAVAR1 TEXTO_FILTROVAR2 TEXTO_CAPTIONTEXTO_FILTRO_SEPARAOEXP_DEVMENSAJENAMEMESSAGEBUTHISVAR1 PAR_DESDEBUTHISVAR2 PAR_DESDEBUTHISVAR1 PAR_CAPTIONT UVNEWVALTHISVAR1 PAR_DESDET UVNEWVALTHISVAR2 PAR_DESDEn$T ,MT UT UVNEWVALTHISVAR1ENABLEDVAR2 BUTHISVALOR_DESCRIPCIONTTTTTTT -T -T  T  T  T  (%Cthis.var1.obj_filtrobOMT  #%Cthis.cmd_filtrobOT T % T-UTHISVAR1TEXT8 CONTROLSOURCEDESDEVAR2HASTATEXT9FILTROSOLO_LOS_ACTIVOSTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_DESCRIPCION OBJ_FILTRO CMD_FILTROVISIBLETABLA_OBJ_FILTRO_MOSTRARENABLEDMOSTRAR_LABEL2 MOSTRAR_LABELvalor_desde_assign,valor_hasta_assignantes_de_salir texto_filtropar_desde_access7par_hasta_accessdpar_caption_accesspar_desde_assignpar_hasta_assignenabled_assignFvalor_descripcion_accessInit1q"3q"34qQ1A2qQ1AA4AqqAAAAB3333qR3qQ3qQAQA"33aabababaA1aaAAAA1Y ~Kn"+/IC1H37M5R8?uX;j]FlH q)  %vUCUTHISPARENTVAR1TABLA_OBJ_FILTRO_MODIFICARClick,111@)  % n UBCCUTHISAVALUESCOMBO LISTINDEXBCUTHISAVALUESCOMBO LISTINDEX<%CxCodbLCxDesbL CxPosbL J-(T-TB%CD%Cthis.avalues(1,1)bLCthis.avalues(1,2)bL  TTC%C PTTTCTUXCODXDESXPOSTHISAVALUESENABLEDCOMBONUMBEROFELEMENTS]%)C%VCUTHIS AGREGAR_CEROAGREGAR_MANUALES CODIGO_CERO DESC_CERO AGREGAR_CERO1 CODIGO_CERO1 DESC_CERO1)T CUVNEWVALTHISMODODEFINIR_VALORES BUTHISENABLEDBT T T UVNEWVALTHISREADONLYENABLED_MANUALENABLEDTUTHISVALOR_ANTERIOR VALOR_DESDENTCthis.avalues(1,1)bLCthis.avalues(1,2)bL  rT zT UVNEWVALTHISENABLED_MANUALCOMBOENABLEDUTUVNEWVALTHIS VALOR_DESDEUVNEWVAL  CTTC(C%CTT !% T  %  'T CCZ,0UNITXVALTHISDEFINIR_VALORESCOMBO CONTROLSOURCEDESDEAVALUES LISTINDEX VALOR_DESDECOL_AUTOAJUSTAR COLUMNLINESCOL_MOSTRAR_CODIGO COLUMNWIDTHSWIDTHK%7 TC CUTHISCOMBO LISTINDEX VALOR_DESDEAVALUESANTES_DE_SALIR% C - B 5 %V TpTC%TCTC  BU XSECUNDARIOTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGOBUTHISTEXTOCAPTION BUTHIS COMBO_VALUE BUTHIS COMBO_TEXTcombo_text_access,combo_value_accessoagregar_manualesdefinir_valores modo_assign|readonly_accessreadonly_assignGotFocusienabled_assignantes_de_salirlvalor_desde_assignwvalor_hasta_assignInit LostFocus texto_filtropar_caption_access par_desde_access par_hasta_access 133a1ABAAAaA12AA2q"23q"11412qQA!3A3q4qA2aQ1AAAaqAA2rA4qA!A!!A43217 )#1'=7)V<.uE0H8T:cX=^@ bR x xW . hW j l #)  nG% UCUTHISPARENTCAMBIO_INTERACTIVO CUTHIS LOSTFOCUS%UTHIS LISTINDEXUInteractiveChange,Valide LostFocusInit122BB3<=Yj) A%uMUf %'CC#6CU XOBTENER_DATOSTHIS OBTENER_DATOS ROLLBACKSGFSQL_CREAR_COLUMNAS SQL_ALIAS SQL_REFRESHGRID1 U XROLLBACKSxT T TTC-U XANCHORTHISANCHORGRID1WIDTHLEFTHEIGHTTOP SQL_REFRESHCUTHISGFDISPOSE sql_refresh, obtener_datosInitDestroy1q1A!a2q3q31  2) }%3EAUUInit,13q) l,%" U BCUOGRILLA C"C.FechaFechax$C.descrUsuarioxBC.msg OperacionCdDaUTHISFOR_ADD_COLUMNAPARENTWIDTH~ pC "dynamicbackcolor", "iif( :.id_fin=2, rgb(255,150,150), rgb(255,255,255))", "column" UOGRILLAXALIASTHISFOR_DYNAMICS_COLLADD sql_refresh,sql_crear_columnasP for_dynamics1q2"A!22V  ) 7%_tnUCaUTHISPARENT SQL_REFRESHClick,13F) r%U)TUTHISPARENT ROLLBACKSVALUECOMMAND1CLICKInteractiveChange,1a2[) a H H ^$%G V# U!BCCC._UTHISALIAS TABLA_DESCR!BCCC._UTHISALIAS TABLA_CODIGOUXCURSOR2XCODXDES BUTHISVALORT UVNEWVALTHISVALOR BUTHIS VALOR_DESDET UVNEWVALTHIS VALOR_DESDE BUTHISREADONLYBT T T UVNEWVALTHISREADONLYENABLED_MANUALENABLEDE$T ,T UVNEWVALTHISCOMBOENABLED BUTHIS COMBO_TEXT BUTHIS COMBO_VALUEBUTHISTEXTOCAPTION% C - B 5 %V TpTC%TCTC  BU XSECUNDARIOTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGO FUTHISALIASKT.THIS.valor_desde = &xcodigo CUXCODIGOTHISALIAS TABLA_CODIGOANTES_DE_SALIR F-CT Ta1xOK=.F.%C This.DesdebCTON ERROR &onErr U THISALIAS VALOR_DESDE TABLA_CODIGOCOMBOVALUEXOK CONTROLSOURCEDESDEUVNEWVALT F- CTCTCT T U VNEWVALXVALXDESCRXVALCODTHIS VALOR_DESDEALIAS TABLA_CODIGO TABLA_DESCRCOMBOVALUE DISPLAYVALUEUcombo_text_access,combo_value_accesskagregar_manuales valor_access valor_assign value_access- value_assignSreadonly_accessreadonly_assignenabled_assign*par_hasta_accesspar_desde_accesspar_caption_access texto_filtro GotFocusy LostFocusInitvalor_hasta_assignvalor_desde_assign2antes_de_salir<13333q"33q"33q"112qQA!3223qA!A!!A424AaaaA13qA2qQ"!212A2>e  r j%*`1<!?#UB%x G6*=\8]_< hG ' vJP n zT )H P 77G%J*zU4TTCC]R T\tmp\"T\tmp\CC]R5   TC T C T %T  Where FHSELECT * FROM (xtabla) &xFiltro ORDER BY &xDes INTO TABLE (xcursor2) T CW%_INSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero,THIS.PARENT.desc_cero) %<aINSERT INTO (xcursor2) (&xCod,&xDes) VALUES (THIS.PARENT.codigo_cero1,THIS.PARENT.desc_cero1) @SELECT * FROM (xcursor2) ORDER BY &xDes INTO TABLE (xcursor) Q F QF Q%TCWTC#TCC. ,TTUXTABLATHISPARENTTABLACURSORXCURSORP_LOCALXCURSOR2XCODXDESXFILTROXOLDSEL TABLA_CODIGO TABLA_DESCRFILTRO AGREGAR_CERO AGREGAR_CERO1 SELECT_AREAALIAS ROWSOURCE BOUNDCOLUMN DISPLAYVALUEK"T.&THIS.PARENT.valor_desde = &xcodigo UXCODIGOTHISPARENTALIAS TABLA_CODIGOM"T.xvalor = &xcodigo TUXCODIGOTHISPARENTALIAS TABLA_CODIGO VALOR_DESDEXVALORInit, LostFocus=Valid11!2RQqA1A1AAArQA"13"a3"Q11#Q*&m0)7 P;%U1T T UVNEWVALTHISENABLEDCOMBOenabled_assign,1q"Q1)% d"U] 45 T T Tgui_getBUYCADVARPICLONGGUI_GETgui_rea,1QA60mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2HK0HTUM01328962318o~#O YfK WINDOWS _2HK0HW25E1328962318 > ] WINDOWS _2HK0HTUM01328962318$ WINDOWS _3190UEEC71328962318"7LZ WINDOWS _2HK0HTUM01328962318)k9 COMMENT RESERVED AVERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 tbPixelsClass5toolbartbtoolbarCarchivo system local causa empresa comprob datos *activar  commandbutton commandbuttoneditartb commandbutton*PROCEDURE Click clear events ENDPROC Top = 3 Left = 116 Height = 37 Width = 38 Picture = bmp\salir.gif Caption = "" TabIndex = 3 ToolTipText = "Salir" Name = "salir" tbsalir commandbutton commandbuttonAutoSize = .F. Top = 3 Left = 5 Height = 37 Width = 38 Picture = bmp\file_notepad.ico Caption = "" TabIndex = 2 ToolTipText = "Editar" Name = "editar" tb commandbutton visualizartb commandbutton commandbuttonBrowsePROCEDURE Click =sets() select (thisform.datos) browse for &xfiltrodatos in screen nowait select (thisform.datos) ENDPROC Top = 3 Left = 79 Height = 37 Width = 38 Picture = bmp\grids.ico Caption = "" TabIndex = 1 ToolTipText = "Ver datos" Name = "Browse" Top = 3 Left = 42 Height = 37 Width = 38 Picture = bmp\flatscreen.ico Caption = "" TabIndex = 1 ToolTipText = "Previsualizar" Name = "visualizar" Caption = "Toolbar1" Height = 43 Left = 96 Sizable = .F. Top = 7 Width = 159 ControlBox = .F. archivo = .F. system = .F. local = .F. causa = .F. empresa = .F. comprob = .F. datos = "" Name = "tb" PROCEDURE Click *!* xfile = this.parent.archivo *!* xcausa = this.parent.causa *!* =this.Parent.activar(2) *!* =procesar(2, xfile, xcausa) *!* =this.Parent.activar(0) =sets() select (thisform.datos) set talk off set echo off set alternate to (p_local+"\tmp\formularios.txt") set alternate on xhay_preview=.f. try show window frxpreviewinscreen activate window frxpreviewinscreen catch try report form (p_system+"\data\"+alltrim(xempresa)+"\cpbt\"+this.parent.archivo) preview in screen nowait for &xfiltrodatos nodialog noconsole catch to oex if xdev mensaje(oex.message) endif endtry endtry set alternate off set alternate to clear ENDPROC tPROCEDURE Click *!* xfile = this.parent.archivo *!* xcausa = this.parent.causa *!* =this.Parent.activar(1) *!* =procesar(1, xfile, xcausa) *!* =this.Parent.activar(0) =sets() select (thisform.datos) modify report (p_system+"\data\"+alltrim(xempresa)+"\cpbt\"+this.parent.archivo) in screen nowait select (thisform.datos) clear ENDPROC |PROCEDURE activar parameters xxx return this.editar.Enabled=.f. this.visualizar.Enabled=.f. this.browse.Enabled=.f. do case case xxx=1 this.editar.Enabled=.t. case xxx=2 this.visualizar.Enabled=.t. case xxx=3 this.browse.Enabled=.t. endcase ENDPROC PROCEDURE Init parameters xfile, xdatos && , xcausa, xcomprob if type("xcausa")#"C" xcausa="" endif this.empresa=p_codemp *this.causa=xcausa *this.comprob=xcomprob this.archivo=xfile this.datos = xdatos this.Dock(1) *!* if empty(this.causa) *!* this.previsualizar.Enabled=.f. *!* this.previsualizar.Visible=.f. *!* endif ENDPROC "G%@UOUUClick01Q2) "%UT C F-browse for &xfiltrodatos in screen nowait FUSETSTHISFORMDATOSClick012})"(%9 Uc C FG2G$G(\tmp\formularios.txtG T- r,t, L report form (p_system+"\data\"+alltrim(xempresa)+"\cpbt\"+this.parent.archivo) preview in screen nowait for &xfiltrodatos nodialog noconsole (H%DC GG(U SETSTHISFORMDATOSP_LOCAL XHAY_PREVIEWFRXPREVIEWINSCREENOEXXDEVMENSAJEMESSAGEClick01baBa AABbaB2)`"GG%U_ C F4/3\data\C\cpbt\: FU SETSTHISFORMDATOSP_SYSTEMXEMPRESATHISPARENTARCHIVOSCREENClick01BB3i)G"V-%BU4BT-T-T-HO sTa Ta TaUXXXTHISEDITARENABLED VISUALIZARBROWSE{ 4%CxcausabC4 TTTTCU XFILEXDATOSXCAUSATHISEMPRESAP_CODEMPARCHIVODATOSDOCKactivar0Init*1qA111A2A6 (q)%|nۍR'/4  %   ^BC /  U XSUSPENDOXMENSAJEXTIPOXTIEMPOXTITULOXSOLOLOG XMENSAJELARGO XLINK_MSG XNOMENSAJE XLOGLEVEL XBTNSALIRP_DEV P_SUSPENDSYS_MOSTRAR_SCREENMENSAJE!A1%DHtVQ3<    37    < 7 %CP_EMPbCTsol TCC@T  T T T T T T  T  T  T T@T'http://pedidos.solinges.com.ar/pedidos/.zip T  TT#<#7 T T T T T T T T<7T T T$%C p_SinInterfazbL "< 7 T -!,TCC a"#\$PedidosTCBackupsTCFacturas         <%7% T%-%&'()T&*\ges.cfg9T+CCFG_Ctrl Sys_cfg.prga&ped_ind_ C+,U- XLEER_CFGP_PED_IND_HABILITADOP_PED_IND_HOSTP_PED_IND_FTPDIR P_PED_IND_USR P_PED_IND_PWDP_PED_IND_HTTPBASEP_PED_IND_CONFIGURACIONP_PED_IND_CFG_TIPO P_PED_IND_TVQ P_PED_IND_VERP_PED_IND_DIRMAILP_PED_CFG_FECHAP_PED_IND_SIN_PRECIOP_PED_IND_PRECIO_MODIFICABLEP_PED_IND_POPUPNOTAXEMPP_EMPP_PED_IND_AGES_SERVERP_PED_IND_AGES_DIRP_PED_IND_AGES_HEADP_PED_IND_AGESP_PED_IND_DIRECTOP_PED_IND_DIRECTO_USARP_PED_IND_AGES_LOCALP_PED_IND_AGES_LOCAL_USARP_PED_IND_ADVERTIRP_PED_IND_ANTIGUOP_PED_IND_PROCESADOSP_PED_IND_DOCSP_PED_IND_DOCS_BACKUPSP_PED_IND_DOCS_FACTURAS P_SININTERFAZ DEY_FUNC2ODEYFUNCGET_PATH P_SYSTEMDESCRP_PED_IND_LOCALXPATHXTEXTOZZZZXPONERP_SYSTEMOCFGAPLICAR_VALORESq21qA:51CqqAsAAAsq1D20YmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2350I77PJ 917522440 +ͭ @$ COMMENT RESERVED ) WINDOWS _1IU0Q4UK9 917670325J/u ^} " COMMENT RESERVED  WINDOWS _2D20UUVVE 950373652IWrR  COMMENT RESERVED  WINDOWS _2330LQQOB 959530545 b ' U &# H  COMMENT RESERVED | WINDOWS _2NL0JLW9P 984763689 f #e COMMENT RESERVED  WINDOWS _2NL0IYSZS 984901985p COMMENT RESERVED * WINDOWS _2Q80MV71J 991256790e   COMMENT RESERVED Q WINDOWS _1FK0RE89Y1053641075| .!s"G COMMENT RESERVED ! WINDOWS _1FR02IRAS1092843382_mf.IV/; COMMENT RESERVED  WINDOWS _5800RMXCT1288398552" oa WINDOWS _5800ROD8N1288398552A3 }  COMMENT RESERVED 9 WINDOWS _66L0Q5DNX1398958668 H YV '[;F XF COMMENT RESERVED Y WINDOWS _66L0NGNGQ1399031428U $ COMMENT RESERVED  WINDOWS _6BH0KJAWN1419332725XZ=GZZ2*M*?* COMMENT RESERVED Y WINDOWS _6BJ0PWMIP14196442733/B3D3 WINDOWS _6BJ0Q3JK11419644273FFPn-\2Hqd WINDOWS _6BJ0Q3JK21419469138J+LZLF WINDOWS _6BJ0Q3JK31419469138`+EE WINDOWS _6BL0WZJ461419611800P(/L8/3q WINDOWS _6BL0XC29E1419611564`/p///\ COMMENT RESERVED 3uE WINDOWS _6BJ0JACGX1419645039O+%!iN WINDOWS _1FR0CEW8E1419609174?+|kH(Z) WINDOWS _1FR0CEW8E1419643714(}fL WINDOWS _1FR0CEW8E1419643714J&qJNUԋ WINDOWS RESERVED 14196437149PLagPF WINDOWS _6BJ0NQXBD1419643714,P2+!>.- WINDOWS _1FR0CEW8E14196437142V,!. WINDOWS _1FR0CEW8E1419643714+HD,>-,_1 WINDOWS RESERVED 1419609174$(1(]Ho+> WINDOWS _6BJ0PSEVA1419644601.2>(yH}{ WINDOWS _6BJ0PSEVB1419643714\NR(;n.C WINDOWS _6BJ0TM7CY1419472660-.22[OH WINDOWS _6BJ15KZMY1419643714 Hh*GV* WINDOWS _1FR0CEW8E1419644601e,-u,LO WINDOWS _1FR0CEW8E1419643714E+NNd) WINDOWS _1FR0CEW8E1419645039BS ,'PG WINDOWS _6BM032OCH1419643714F ( ~%b^ WINDOWS _6BM032OCI1419643714 ]D WINDOWS _6BM032OCJ1419644601*T ]xCe COMMENT RESERVED V- WINDOWS _1FR0CEW8E1433961718SE: COMMENT RESERVED Z WINDOWS _4VP146SL61455064644M[{o@? L COMMENT RESERVED  WINDOWS _6OV0ZJ0ZA1460834166SySkSWA"Z])Width = 475 Height = 311 columna = 0 oparametros = .F. valor_anterior = .F. texto_ejemplo = ("") Name = "exportaciones_parametros_control" IPROCEDURE InteractiveChange This.Parent.formato_actualizado() ENDPROC wAutoSize = .T. Caption = "Orientacin" Enabled = .F. Height = 17 Left = 5 Top = 114 Width = 65 Name = "Label2"  commandbuttonTCaption = "Formato:" Height = 25 Left = 7 Top = 38 Width = 73 Name = "Label6" columna oparametros valor_anterior texto_ejemplo *columna_assign *mostrar_parametros *mostrar_columna *columna_cambiada *texto_ejemplo_access *texto_ejemplo_assign !Arial, 0, 9, 5, 15, 12, 32, 3, 0 labelAHeight = 30 Left = 84 Top = 4 Width = 385 Name = "txTitulo"  exportaciones_parametros_control(exportaciones_parametros_formato_controlbAutoSize = .T. Caption = "Titulo:" Height = 17 Left = 9 Top = 9 Width = 35 Name = "Label1" PixelsClassdAnchor = 10 Caption = "Fuente:" Height = 25 Left = 84 Top = 79 Width = 180 Name = "lbFuente"  imp_exp.vcxIPROCEDURE InteractiveChange This.Parent.formato_actualizado() ENDPROC `Top = 78 Left = 406 Height = 27 Width = 63 Anchor = 8 Caption = "Fondo" Name = "btFondo"  commandbutton7PROCEDURE Click This.parent.Crear_Formato() ENDPROC Label1Combo1(exportaciones_parametros_formato_control exportaciones_parametros_controlHeight = 17 Width = 25 fo_empty = -1 num_format = ('0.00') col_width = -1 font_size = -1 font_name = ('') font_color = -1 col_seleccionada = .F. num_format_fox = .F. fo_interior = -1 fo_esfecha = .F. fec_format = ("dd/mm/yyyy") fo_alinear = -1 col_hidden = .F. fo_tipo_dato = ("") fuente_texto = .F. fo_backcolor = -1 fo_alinearvertical = -1 fo_wraptext = .F. Name = "exportaciones_parametros_formato" (exportaciones_parametros_formato_control commandbuttonlabelparametros abrir_planilla_auxiliar_largos log_aut verbose archivo_salida_renombra *preparar_tabla *plantilla_seleccion *abriendo_archivos_excel *preparando_encabezado *abrir_planilla_auxiliar *anexar_planilla *agregar_filtros Metodo llamado para agregar la lista de filtros *copiar_array *preseleccion_planillas *cel_exportar *cel_exportar_coll *abrir_planilla_largos (exportaciones_parametros_formato_controlLabel1 ckTotalizarlabelvar_l1 *leer_estructura *tipo_texto *subtipo_texto *preevaluar_tipos *abrir_tablas *pos_preevaluo *preevaluar_tipos_pos ^arr_tipos[1,0] ^arr_subtipos[1,0] *armar_tipos *imp_xls_crear_columnas *sql_crear_columnas font_bold = .T. font_name = ("Arial") font_size = 12 fo_backcolor = (rgb(192,192,192)) Name = "exportaciones_parametros_formato_titulo" Label4labeloformato texto_ejemplo *asignar_oformato *actualizar_ejemplo *crear_formato *formato_actualizado *texto_ejemplo_access *texto_ejemplo_assign GHeight = 23 Width = 23 Name = "exportaciones_parametros_collection" hTop = 2 Left = 348 Height = 27 Width = 117 Anchor = 8 Caption = "Modificar" Name = "btModificar" IPROCEDURE InteractiveChange This.Parent.formato_actualizado() ENDPROC checkboxlabellabel imp_exp.vcxcustom(exportaciones_parametros_formato_controlcustomfo_empty num_format Formato de los campos numricos col_width font_bold font_size font_name font_italic font_color col_seleccionada num_format_fox fo_interior fo_esfecha fec_format fo_alinear col_hidden fo_tipo_dato fuente_texto fo_backcolor fo_alinearvertical fo_wraptext *fo_aplica Aplica todos los formatos al rango especificado. *fo_copy *num_format_access *fo_numerofox *num_format_fox_assign *fo_nuevo *clonarse *fuente_texto_access *fuente_texto_assign *fo_aplica_control *fuente_texto_elegir 'exportaciones_parametros_formato_tituloPixelsClass exportaciones_parametros_formato'exportaciones_parametros_formato_titulocustom imp_exp.vcxWidth = 196 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "CheckBox con Reporte de Filtro" texto_ev_codigo = ('IIF(Empty(this.value)," ","Si")') texto_ev_descr = ('""') texto_ev_label = ('This.caption + ": " ') texto_mostrar = .T. texto_filtro_mostrar = .F. param_reporte = .T. par_desde = .F. par_hasta = .F. par_caption = .F. enabled_limpiar = .F. xbuffer_valor = .F. Name = "exportaciones_checkbox" bTop = 77 Left = 283 Height = 27 Width = 63 Anchor = 8 Caption = "Elegir" Name = "btFuente" exportaciones_parametrosHeight = 20 Width = 37 coleccion = .F. _memberdata =  104 Name = "exportaciones_crystal_propiedades" )prop_nombre prop_valor *prop_aplicar Height = 18 Width = 25 abrir_planilla_auxiliar_largos = .F. log_aut = .F. verbose = 0 archivo_salida_renombra = .F. Name = "exportaciones_xls" exportaciones_crystal_propiedadexportaciones_parametrosexportaciones_crystal_propiedad(exportaciones_parametros_formato_enteros(exportaciones_parametros_formato_control exportaciones_parametros_formato(exportaciones_parametros_formato_enterosGnum_format = ('0') Name = "exportaciones_parametros_formato_enteros"  exportaciones_parametros_controlPROCEDURE Init LPARAMETERS xProp, xValor IF NOT EMPTY(xProp) THEN this.prop_nombre = xProp this.prop_valor = xValor ENDIF ENDPROC PROCEDURE prop_aplicar LPARAMETERS oForm as Form LOCAL xMacro as String xMacro="oForm."+this.prop_nombre TRY &xMacro = this.prop_valor CATCH TO oEx =mensaje_suspendo(.t.,"Error al APLICAR la propiedad "+this.prop_nombre +Err_hand_oex(oEx)) ENDTRY ENDPROC BoundColumn = 2 ColumnCount = 2 ColumnWidths = "200,0" RowSourceType = 1 RowSource = "Sumar,%SUMAR,Contar,%CONTARA,Contar vacas,%CONTAR.BLANCOS" Height = 25 Left = 216 Top = 36 Width = 120 BoundTo = .T. Name = "cbOperacion" Anchor = 10 ControlSource = "THIS.Parent.oFormato.Num_Format" Enabled = .F. Height = 24 Left = 84 Top = 36 Width = 228 Name = "txFormato" AutoSize = .T. Caption = "(-1 significa ancho automtico)" Height = 17 Left = 176 Top = 158 Width = 171 Name = "Label5" PROCEDURE texto_filtro LPARAMETERS xSecundario IF NOT THIS.texto_filtro_mostrar OR EVALUATE(this.texto_filtro_empty) THEN RETURN "" ENDIF PRIVATE xName,xTexto IF xSecundario THEN xName="" ELSE xName=EVALUATE(this.texto_filtro_caption) ENDIF IF this.texto_filtro_descripcion THEN xTexto=EVALUATE(this.texto_filtro_cod_desc) ELSE xTexto=EVALUATE(this.texto_filtro_codigo) ENDIF RETURN xName+xTexto ENDPROC PROCEDURE combo_text_access *To do: Modify this routine for the Access method RETURN ALLTRIM(TRANSFORM(this.ListItem(this.ListIndex ))) ENDPROC PROCEDURE combo_value_access *To do: Modify this routine for the Access method RETURN ALLTRIM(TRANSFORM(this.Value)) ENDPROC PROCEDURE par_caption_access *To do: Modify this routine for the Access method RETURN THIS.combo_text ENDPROC PROCEDURE par_caption_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method ENDPROC PROCEDURE par_desde_access *To do: Modify this routine for the Access method RETURN THIS.value ENDPROC PROCEDURE par_desde_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.value = m.vNewVal this.Valid ENDPROC PROCEDURE par_hasta_access RETURN THIS.combo_text ENDPROC PROCEDURE par_hasta_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.par_hasta = m.vNewVal ENDPROC PROCEDURE crear_formato LOCAL oFor oFor=NEWOBJECT("exportaciones_parametros_formato", "Imp_Exp.vcx") this.parent.oparametros.ex_xls_campos(this.parent.columna,6)=oFor This.Parent.mostrar_columna() ENDPROC PROCEDURE formato_actualizado this.Parent.columna_cambiada () ENDPROC "q\%nUCUTHISPARENTFORMATO_ACTUALIZADOInteractiveChange011>) PROCEDURE do_leer_crystal LPARAMETERS xObjeto LOCAL xObj,nIt, xTotCount xTotCount=0 DO CASE CASE xObjeto.BASECLASS="Pageframe" xTotCount=xObjeto.PAGECOUNT OTHERWISE IF TYPE("xObjeto.controlcount")="N" AND xObjeto.CONTROLCOUNT>0 THEN xTotCount=xObjeto.CONTROLCOUNT ENDIF ENDCASE IF xTotCount=0 THEN RETURN .F. ENDIF FOR nIt=1 TO xTotCount DO CASE CASE xObjeto.BASECLASS="Form" xObj = xObjeto.CONTROLS(nIt) CASE xObjeto.BASECLASS="Pageframe" xObj = xObjeto.PAGES(nIt) CASE xObjeto.BASECLASS="Page" xObj = xObjeto.CONTROLS(nIt) CASE xObjeto.BASECLASS="Container" xObj = xObjeto.CONTROLS(nIt) ENDCASE IF TYPE("xObj.Texto_Mostrar")="L" IF xObj.Texto_Mostrar THEN =THIS.filtro_agregar(xObj.Texto_Filtro(), xObj.NAME,.F.,.F., xObj.CLASS, xObj.BASECLASS) ENDIF ELSE IF TYPE("xObj.Texto_filtro_Mostrar")="L" IF xObj.Texto_filtro_Mostrar THEN =THIS.filtro_agregar(xObj.Texto_Filtro(), xObj.NAME,.F.,.F., xObj.CLASS, xObj.BASECLASS) ENDIF ELSE THIS.do_leer_crystal(xObj) ENDIF ENDIF NEXT ENDPROC PROCEDURE filtro_agregar LPARAMETERS xTexto_Filtro, xName, xValue1, xValue2, xClass, xBaseClass IF PARAMETERS()=0 THEN This.fil_coll = NEWOBJECT("Collection") RETURN ENDIF LOCAL xFil IF EMPTY(xTexto_Filtro) THEN RETURN ENDIF xFil=NEWOBJECT("obj_filtro","sys_contenedores.prg") xFil.Fil_BaseClass = xBaseClass xFil.Fil_Class = xClass xFil.Fil_Name = xName xFil.Fil_Texto = xTexto_Filtro xFil.Fil_Value1 = xValue1 xFil.Fil_Value2 = xValue2 this.fil_coll.add(xFil) RETURN xFil ENDPROC PROCEDURE filtro_obtener LPARAMETERS xSepara PRIVATE xFil, xSepara2, xFinal, xNFil, xAuto, xNCFil xNFil = 0 xAuto = .T. IF PARAMETERS()=0 THEN IF THIS.fil_texto_tipo = 0 THEN xNFil=This.filtros_por_linea xSepara=CHR(13)+CHR(10) xAuto=.F. ELSE xSepara=this.fil_separador_linea ENDIF ENDIF xFinal='' xSepara2='' xNCFil=0 FOR EACH xFil IN THIS.fil_coll xNCFil=xNCFil+1 xFinal=xFinal + xSepara2+ALLTRIM(TRANSFORM(xFil.Fil_Texto)) IF xAuto THEN xSepara2=xSepara ELSE IF xNCFil=xNFil THEN xNCFil=0 xSepara2=xSepara ELSE xSepara2=this.fil_separador_linea ENDIF ENDIF NEXT RETURN xFinal ENDPROC PROCEDURE filtro_agregar_desde_hasta LPARAMETERS xLabel, xDVal, xHVal, xHLabel, xEmpty IF EMPTY(xDVal) OR xDVal=xEmpty THEN xTDVal="" ELSE xTDVal=ALLTRIM(TRANSFORM(xDVal)) ENDIF IF EMPTY(xHVal) OR xHVal=xEmpty THEN xTHVal="" ELSE xTHVal=ALLTRIM(TRANSFORM(xHVal)) ENDIF IF NOT (EMPTY(xTDVal) AND EMPTY(xTHVal)) THEN this.filtro_agregar(xLabel + xTDVal+; " "+IIF(EMPTY(xTHVal),""," "+xHLabel+": "+xTHVal)) ENDIF ENDPROC PROCEDURE Init This.filtro_agregar () && Reset ENDPROC PROCEDURE InteractiveChange this.ProgrammaticChange () ENDPROC PROCEDURE ProgrammaticChange this.Parent.cbOperacion.enabled=(this.Value) IF TYPEO("this.parent.oparametros") THEN this.parent.oparametros.ex_xls_campos(this.Parent.columna,3)=this.Value ENDIF ENDPROC  9PROCEDURE xls_texto_access *To do: Modify this routine for the Access method LOCAL oExp as exportar_texto OF "f:\sistema\2000\imp_exp.vcx" oExp=this.exp_txt =oExp.Val_Agregar () =oExp.Val_AgregarEx (THIS.xls_campo) =oExp.Val_AgregarEx (THIS.xls_descr) =oExp.Val_AgregarEx (THIS.xls_total_separa) =oExp.Val_AgregarEx (THIS.xls_total_general) =oExp.Val_AgregarEx ("") &&THIS.xls_formato) =oExp.Val_AgregarEx (THIS.xls_incluida ) =oExp.Val_AgregarEx (THIS.xls_orden ) RETURN oExp.val_texto ENDPROC PROCEDURE xls_texto_assign LPARAMETERS vNewVal LOCAL oExp as exportar_texto OF "f:\sistema\2000\imp_exp.vcx" oExp=this.exp_txt oExp.val_texto = vNewVal TRY THIS.xls_campo = oExp.val_coleccion_nextex(,"") tHIS.xls_descr = oExp.val_coleccion_nextex(,"") THIS.xls_total_separa= oExp.val_coleccion_nextex(,.f.) THIS.xls_total_general= oExp.val_coleccion_nextex(,.f.) THIS.xls_formato = oExp.val_coleccion_nextex(,"") THIS.xls_incluida = oExp.val_coleccion_nextex(,0) THIS.xls_orden = oExp.val_coleccion_nextex(,0) CATCH TO oEx ENDTRY RETURN oExp.val_texto ENDPROC PROCEDURE xls_codigo_access *To do: Modify this routine for the Access method xTexto='thisform.campos_agregar ("'+ALLTRIM(this.xls_campo)+'",'+; '"'+ALLTRIM(this.xls_descr)+'",,'+; IIF(this.xls_total_separa ,".t.",".f.")+","+; IIF(this.xls_total_general,".t.",".f.")+")" RETURN xTexto ENDPROC PROCEDURE xls_codigo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.xls_codigo = m.vNewVal ENDPROC PROCEDURE Init PARAMETERS xField AS STRING ,xLabel AS String , xPos AS INTEGER, xTotal_Separa as Boolean , xTotal_General as Boolean, xFormato as Object , xIncluida as Integer, xOrden as Integer xFormato = oDeyFunc.Chk_Value(xFormato,NEWOBJECT("Exportaciones_Parametros_Formato","Clases.vcx","",.t.),"O") THIS.xls_campo =oDeyFunc.chk_value(xField,"") THIS.xls_descr =oDeyFunc.chk_value(xLabel,"") THIS.xls_total_separa =xTotal_Separa THIS.xls_total_general =xTotal_General THIS.xls_formato =xFormato this.xls_incluida = oDeyFunc.chk_value(xIncluida,0) this.xls_orden = oDeyFunc.chk_value(xOrden,0) LOCAL oExp as exportar_texto OF "f:\sistema\2000\imp_exp.vcx" oExp=NEWOBJECT("Exportar_Texto", "Imp_Exp.vcx") oExp.set_div="XLD" oExp.set_head ="XLH" this.exp_txt= oExp ENDPROC PROCEDURE InteractiveChange This.Parent.formato_actualizado() ENDPROC PROCEDURE ProgrammaticChange This.Parent.formato_actualizado() ENDPROC PROCEDURE Init *!* this. *!* DO CASE *!* CASE THIS.Fo_Alinear = 0 *!* xRange.APPLICATION.SELECTION.HorizontalAlignment = -4131 *!* CASE THIS.Fo_Alinear = 1 *!* xRange.APPLICATION.SELECTION.HorizontalAlignment = -4152 *!* CASE THIS.Fo_Alinear = 2 *!* xRange.APPLICATION.SELECTION.HorizontalAlignment = -4108 *!* ENDCASE ENDPROC cAnchor = 10 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "200,0" RowSourceType = 1 RowSource = "Automtico,-1,Izquierda,0,Derecha,1,Centrado,2" Value = 0 ControlSource = "THIS.Parent.oFormato.fo_alinear" Enabled = .F. Height = 28 Left = 84 NumberOfElements = 3 Top = 110 Width = 385 BoundTo = .T. DisplayCount = 4 Name = "cbAlineacion" Height = 19 Width = 29 oform_name = ('') oform = .F. cry_tipo_exportacion = 0 cry_excel_abrir = 2 fil_tabla = ('') fil_excel = ('') fil_directorio = ('') cry_excel_tipo = 0 fil_tmp_tabla = ('') fil_excel_plano = ('') cry_mostrar_form = .F. oform_mostrar = .F. fil_archivo = .F. fil_copiar_xchg = .F. verbose = 0 log_aut = .F. exp_mensaje = ("") fil_pdf = ('') log_path = .F. Name = "exportaciones_crystal" "q\%nUCUTHISPARENTFORMATO_ACTUALIZADOInteractiveChange011>)"q\%nUCUTHISPARENTFORMATO_ACTUALIZADOInteractiveChange011>) "%U5"TCCUTHISPARENTOFORMATO FO_BACKCOLORACTUALIZAR_EJEMPLOClick01!2)"qq8%UCUTHISPARENTFORMATO_ACTUALIZADOCUTHISPARENTFORMATO_ACTUALIZADOUInteractiveChange0ProgrammaticChangenInit122:>g)qg"NN6%Uv%?"TC _TCCUTHISPARENTOFORMATO FONT_COLORACTUALIZAR_EJEMPLOClick01!aA2)NWidth = 32 Height = 32 Picture = bmp\exportar_excel.png cr_func_edit = .F. obj_control = .F. opar_actual = .F. f_ods = .F. cr_public_var = .F. verbose = 0 log_aut = .F. archivo_salida_renombra = .F. Name = "exportaciones" PROCEDURE prop_aplicar LPARAMETERS oForm as Form *=sys_m("Props") LOCAL oProp as exportaciones_crystal_propiedad OF imp_exp.vcx *LOCAL oProp2 as exportaciones_crystal_propiedad OF imp_exp.vcx FOR EACH oProp IN This.Coleccion * oProp2=NEWOBJECT("exportaciones_crystal_propiedad","imp_exp.vcx","",oProp.xProp, oProp.xValor) =oProp.Prop_Aplicar(oform) * =oProp2.Prop_Aplicar(oform) NEXT ENDPROC PROCEDURE prop_reiniciar this.Coleccion = CREATEOBJECT("Collection") ENDPROC PROCEDURE prop_agregar LPARAMETERS xProp, xValor IF EMPTY(xProp) THEN THIS.prop_reiniciar () RETURN .T. ENDIF LOCAL oProp AS exportaciones_crystal_propiedad OF imp_exp.vcx oProp=NEWOBJECT("exportaciones_crystal_propiedad","imp_exp.vcx","",xProp, xValor) TRY THIS.Coleccion.ADD(oProp,xProp) CATCH TO oEx =mensaje_suspendo(.t.,"Error al agregar la propiedad "+xProp+Err_hand_oex(oEx)) ENDTRY ENDPROC PROCEDURE Init This.prop_reiniciar ENDPROC 8"%U3 TCCUTHISPARENTLBFUENTECAPTIONOFORMATOFUENTE_TEXTO_ELEGIRACTUALIZAR_EJEMPLOClick012)"A%7~nU CUTHISPROGRAMMATICCHANGEvT*%Cthis.parent.oparametroso+TU THISPARENT CBOPERACIONENABLEDVALUETYPEO OPARAMETROS EX_XLS_CAMPOSCOLUMNAInteractiveChange0ProgrammaticChangeb12A17` )"2 %=qU>TC exportaciones_parametros_formato Imp_Exp.vcx(TCUOFORTHISPARENT OPARAMETROS EX_XLS_CAMPOSCOLUMNAMOSTRAR_COLUMNACUTHISPARENTCOLUMNA_CAMBIADA crear_formato0formato_actualizado1q21),PROCEDURE columna_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Columna = m.vNewVal this.mostrar_columna () ENDPROC PROCEDURE mostrar_parametros LPARAMETERS oPar as exportaciones_parametros OF imp_exp.vcx This.oparametros = oPar This.mostrar_columna () ENDPROC PROCEDURE mostrar_columna IF THIS.columna=0 OR NOT typeo(THIS.oparametros) THEN THIS.txtitulo.CONTROLSOURCE = "" this.ckTotalizar.ControlSource ="" This.cboperacion.ControlSource="" THIS.oformato.asignar_oformato() ELSE THIS.oparametros.ex_xls_campos(THIS.columna,4)=EVL( THIS.oparametros.ex_xls_campos(THIS.columna,4),.f.) THIS.oparametros.ex_xls_campos(THIS.columna,5)=EVL( THIS.oparametros.ex_xls_campos(THIS.columna,5),"") THIS.txtitulo.CONTROLSOURCE = "this.parent.oparametros.ex_xls_campos(this.parent.columna,2)" this.ckTotalizar.ControlSource = "this.parent.oparametros.ex_xls_campos(this.parent.columna,4)" This.cboperacion.ControlSource = "this.parent.oparametros.ex_xls_campos(this.parent.columna,5)" this.ckTotalizar.ProgrammaticChange oFor=THIS.oparametros.ex_xls_campos(THIS.columna,6) THIS.oformato.asignar_oformato(@oFor) ENDIF ENDPROC PROCEDURE texto_ejemplo_access *To do: Modify this routine for the Access method RETURN this.oformato.Texto_Ejemplo ENDPROC PROCEDURE texto_ejemplo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Texto_Ejemplo = m.vNewVal this.oformato.texto_ejemplo=m.vNewVal ENDPROC PROCEDURE LostFocus this.columna_cambiada ENDPROC b"II%UD %C =TTUXPROPXVALORTHIS PROP_NOMBRE PROP_VALORQFORMQSTRINGToForm. b&xMacro = this.prop_valor (<CaError al APLICAR la propiedad CUOFORMXMACROTHIS PROP_NOMBREOEXMENSAJE_SUSPENDO ERR_HAND_OEXInit0 prop_aplicar1!A2A3)IeTop = 61 Left = 2 BackStyle = 0 BorderWidth = 0 Name = "oFormato" Combo1.Name = "Combo1" lbFuenteLabel.Name = "lbFuenteLabel" btFuente.Name = "btFuente" lbFuente.Name = "lbFuente" Label3.Name = "Label3" txMuestra.Name = "txMuestra" btColor.Name = "btColor" LABEL1.Name = "LABEL1" cbAlineacion.Name = "cbAlineacion" LABEL2.Name = "LABEL2" btModificar.Name = "btModificar" btFondo.Name = "btFondo" ckCol_Hidden.Alignment = 0 ckCol_Hidden.Name = "ckCol_Hidden" Label4.Name = "Label4" spCol_Width.Name = "spCol_Width" Label5.Name = "Label5" Label6.Name = "Label6" txFormato.Name = "txFormato" D"++_%2>Uu:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxTC%CpT ATC Exportaciones_parametros_formato Imp_Exp.vcxTT T T T T TT C CUOFORIMP_EXPVCXXFORTYPEOTHISOFORMATO TXMUESTRAENABLEDBTFUENTEBTCOLORBTFONDO SPCOL_WIDTH TXFORMATO CKCOL_HIDDEN BTMODIFICARACTUALIZAR_EJEMPLOREFRESH:Q EXPORTACIONES_PARAMETROS_FORMATO imp_Exp.vcx%CC%C cT ,CC Z,C B6C I6 CUOFORIMP_EXPVCXTYPEOTHISOFORMATOFO_APLICA_CONTROL TXMUESTRA FONT_NAMELBFUENTECAPTION FONT_SIZE FONT_BOLD FONT_ITALICFORMATO_ACTUALIZADOBUTHIS TXMUESTRAVALUET T T-HP( Cthis.texto_ejemplobN2TTHIS.Parent.oFormato.Num_Format( Cthis.texto_ejemplobDTa2TTHIS.Parent.oFormato.Fec_Format( Cthis.texto_ejemplobT2TTHIS.Parent.oFormato.Fec_FormatTa 2TU VNEWVALTHIS TEXTO_EJEMPLO TXMUESTRAVALUEOFORMATO FO_ESFECHA TXFORMATO CONTROLSOURCEWTATC Exportaciones_parametros_formato Imp_Exp.vcxUTHISLBFUENTECAPTIONOFORMATOasignar_oformato0actualizar_ejemplo^texto_ejemplo_accesstexto_ejemplo_assign0Init<1!CA3211111A3ba1AA33q"Q!!!1A311c&Q':,/U@)+Height = 35 Width = 35 Picture = bmp\importar_excel.jpg lexcel = .F. lxls_origen = .F. lxls_temporal = .F. lworkbook = .F. lcolumnas_count = 0 lhoja = .F. ldbf_destino = .F. ldbf_alias = TMPIMPDBF lcol_vacias_count = 0 rec_malas = 0 rec_buenas = 0 val_art_cod_ins = cod_ins val_art_bul = bul val_art_atr = atr val_art_descr = descr usar_odbc = .F. lexcel_propio = .F. usar_celdas = .F. lxls_offset = 2 lcol_encontradas_count = 0 usar_columnas_fijas_celdas = .T. lxls_hoja = ("Hoja1$") lxls_filaforzada = 0 lxls_tipo = -1 lxls_subtipo = -1 lxls_version = -1 lxls_cargar_estructura = .F. lxls_point = ("") lxls_separator = ("") usar_csv = .F. lcsv_head = .F. lxls_codigo = -1 val_valido = valido lcsv_char = (",") lxls_filasvacias = 5 var_l1 = .F. usar_fijo = .F. usar_lee_estructura = .F. lxls_offset_ejemplo = 0 lcsv_strconv = 0 val_func = ("=THIS.validar_fila ()") val_column = (1) val_art_codalt = codalt1 val_usar_codalt = .F. lxls_hoja_actual = 0 lxls_hojas_todas = .F. lxls_hoja_campo = ("") suspender = .F. val_pre = ("=This.Pre_Validar()") val_pos = ("=This.Pos_Validar()") lxls_nombre = ("") lxls_obs = ("") xls_omitir_errores_lectura = .F. val_crear_columna = .T. lxls_crear_columnas_automatico = .F. lxls_crear_columnas_automatico_cantidad = 0 subclase = .T. val_nousar_bulatr = .F. tx_confirma = ("Est seguro de querer importar los datos vlidos?") p_suspend = .F. Name = "importaciones_xls" }"dd%  UGT @TUVNEWVALTHISENABLEDCOPTBUTTONSTUTHISENABLEDenabled_assign0Init1q"B1A221 )dTtexto_ev_codigo texto_ev_descr texto_ev_label texto_mostrar texto_filtro_mostrar param_reporte par_desde par_hasta par_caption enabled_limpiar Al poner esto en .T., si se deshabilita el control, el valor se pone en .F. pero lo guarda internamente para recuperarlo si se vuelve a habilitar xbuffer_valor Este valor solo se usa cuando se DESHABILITA el control y Enabled_Limpiar=.T. *texto_codigo *texto_descr *texto_label *texto_filtro *par_desde_access *par_desde_assign *par_hasta_access *par_hasta_assign *par_caption_access *par_caption_assign *enabled_assign  oform_name Nombre del formulario Crystal a abrirse oform Objeto contenedor del Formulacio Crystal cry_tipo_exportacion 0 - Solo Tabla. 1-Crystal. 4-Excel. 5-Tabla+Excel, 6-Tabla+Excel Plano. 99-Visualizar el form. cry_excel_abrir 0=Consulta si abre en el EXCEL, 1=Abre directamente, 2=No abre ni consulta, solo lo genera, 3=Lo genera y pregunta dnde lo guarda fil_tabla Path completo de la tabla resultante fil_excel Path completo del archivo de excel resultante fil_directorio cry_excel_tipo 1-Exportacin de excel via Crystal, 2-Exportar la tabla TMP a Excel, 3-Ambos. fil_tmp_tabla Path completo de la tabla temporal resultante. fil_excel_plano Path resultante de la exportacin plana de la tabla TMP cry_mostrar_form oform_mostrar fil_archivo fil_copiar_xchg verbose log_aut exp_mensaje Mensaje resultante de la exportacin. til para errores. fil_pdf log_path *form_obtener Metodo donde se instancia el form y se lo guarda en oForm *cry_ejecutar Ejecucin de la consulta y obtencin de datos a exportar *exp_tabla Solo ejecuta el SQL y crea la tabla temporal *exp_excel Crea el archivo de Excel *fil_copiar_archivos *fil_analizar_path *fil_copiar_tabla *fil_copiar_xl5 *fil_copiar_xls *exp_base *exp_excel_plano Exporta Excel sin formato *oform_obtener Obtener el formulario a utilizar *exp_tabla_y_excel Exporta la tabla + el XLS con formato *exp_mostrar_form *exp_mostrar_reporte *exp_pdf *fil_copiar_pdf *dispose *log_aut_salida *exp_sql *exp_tabla_excel_pdf *leer_propiedades &PROCEDURE preparar_tabla LPARAMETERS xTabla, xAlias, xOrden, xTag LOCAL z,aaa IF USED(xTabla) THEN SELECT (xTabla) USE ENDIF SELECT 0 USE (xTabla) ALIAS (xAlias) AGAIN IF RECCOUNT(xAlias)=0 THEN =Mensaje("No se han devuelto registros para exportar a oOOSM.") SELECT (xAlias) USE RETURN .F. ENDIF IF NOT xOrden=='' THEN INDEX ON &xOrden TAG &xTag ENDIF LOCAL xFiltt IF TYPE("this.parametros.ex_tabla_filtro")="C" AND not EMPTY(this.parametros.ex_tabla_filtro) THEN xFiltt=this.parametros.ex_tabla_filtro SET filter TO &xFiltt ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR ENDPROC PROCEDURE plantilla_seleccion LPARAMETERS xPlanilla, xOtra_Planilla LOCAL xPL, xTMP, xPath xPL=ALLTRIM(This.Parametros.ex_archivo_plantilla) xTMP=JUSTSTEM(ALLTRIM(This.Parametros.ex_archivo_entrada)) xPath=oDeyFunc.Get_Path(3) IF NOT Empty(xPL) .AND. FILES(FORCEEXT(xPath+xTMP+"_v_"+xPL,"ods")) THEN xPlanilla=FORCEEXT(xPL,"ods") xOtra_Planilla=2 ELSE IF NOT Empty (SYS(2000,xPath+xTMP+"_v_*")) DO FORM crystal_xls WITH xTMP TO xPlanilla IF UPPER(xPlanilla)#UPPER("reporte.ods") xPlanilla=xPath+ALLTRIM(xPlanilla) xOtra_Planilla=2 ELSE xPlanilla = oDeyFunc.Get_Path(2)+'reporte.ods' xOtra_Planilla=1 ENDIF ELSE xPlanilla = oDeyFunc.Get_Path(2)+'reporte.ods' xOtra_Planilla=1 ENDIF ENDIF ENDPROC PROCEDURE abriendo_archivos_ods LPARAMETERS xPlanilla, xPlanilla_Final, xoOOSMApp as com.sun.star.frame.Desktop IF !FILE(xPlanilla) THEN =MESSAGEBOX('No existe '+xPlanilla) RETURN .F. ENDIF TRY COPY FILE (xPlanilla) TO (xPlanilla_Final) CATCH TO oOBJ =MESSAGEBOX('No se puede crear '+xPlanilla_Final+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de oOOSM creada por este programa.') THROW ENDTRY TRY LOCAL xURL xURL="" * Lo elimino porque no existe "borrar_oo2" * DO OOoConvertToURL IN borrar_oo2 WITH xPlanilla_final, xURL * DO OOoOpenURL IN borrar_oo2 WITH xURL, xoOOSMApp CATCH TO oOBJ =MESSAGEBOX('No se puede abrir el archivo '+xPlanilla_Final) xoOOSMApp.QUIT RELEASE xoOOSMApp THROW oOBJ ENDTRY ENDPROC PROCEDURE preparando_encabezado LPARAMETERS xCamposArr, xACTSheet, xMaxFields LOCAL z * X!S xACTSheet.cells(3,1).COPY z=1 DO WHILE NOT EMPTY(xCamposArr[z,1]) xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) * X!S xACTSheet.cells(3,z).SELECT * X!S xACTSheet.paste * xCell = oSheet.getCellByPosition( i-1, 0 ) xACTSheet.getCellByPosition( z-1,2 ).setString( xCamposArr[z,2]) * X!S xACTSheet.cells(3,z).VALUE = xCamposArr[z,2] z=z+1 IF z>ALEN(xCamposArr,1) THEN EXIT ENDIF ENDDO xMaxFields=z-1 ENDPROC PROCEDURE abrir_planilla_auxiliar LPARAMETERS xAlias,xPlanilla_Aux,xoOOSMApp,xCamposArr,xmaxfields LOCAL xFields,z * * Crea la planilla auxiliar * SELE (xAlias) xPlanilla_Aux =oDeyFunc.NewFile_Local_TMP()+".ods" xfields = "" FOR z=1 TO xmaxfields xfields = xfields + ALLTRIM(xCamposArr[z,1]) IF z O BUTHISSET_HEADHEAD_INIW#%C this.head_endbL:B P BUTHISSET_HEADHEAD_ENDV"%C this.div_endbL9B O BUTHISSET_DIVDIV_ENDU"%C this.div_inibL8B<> N BUTHISSET_DIVDIV_INI!QINTEGERQINTEGER%C CT dT%CBC BCCUXINDICEXLARGOTHISVAL_COLECCION_INDICE VAL_COLECCION%O-BC"C" |#BCCUXVALORXDIVXFORMATO XCOMILLADOTHIS VAL_AGREGARVAL_IGUALAR_TIPOSTCxValorbTC xValor_NuevobHj CH CH C TC 2 T N%C %C=TLTC\ TaTC_%TC TCZ LTCTF6 Dj%C TC* fTCDatevSET DATE &xFormato TC@D_SET DATE &xDate  TTC 2 T CyHu NTCg LTT D:TC# T^TC 2u T 2 T BUXVALOR XVALOR_NUEVOXFORMATOXTY1XTY2XTRIMXDATEXVALU!QINTEGERQVARIANTTCBCUXINDICEXTIPOXVALTHISVAL_COLECCION_NEXTVAL_IGUALAR_TIPOS TC CollectionUTHIS VAL_COLECCIONT-UTHIS VAL_COLECCIONval_texto_access0val_texto_assign val_agregarhead_ini_accesshead_end_accessdiv_end_accessdiv_ini_accessval_coleccion_nextv val_agregarexoval_igualar_tiposDval_coleccion_nextex, Init Destroy 12Q!QAA3qq!A!!AA!AA5!qAqA!!AA31aA41qA4!qA4!aA4!qA1A211A21QqAA!AA!!A!AQAAA1aA1AAAAAA!AAAA1qQQ431  >(-d73_@9I?xRE [Q&  hX? vq7R)" %i9UtQFORM9QEXPORTACIONES_CRYSTAL_PROPIEDAD imp_exp.vcxmCUOFORMOPROPIMP_EXPVCXTHIS COLECCION PROP_APLICAR TC CollectionNUTHIS COLECCION% %C0 CBa9QEXPORTACIONES_CRYSTAL_PROPIEDAD imp_exp.vcxHTCexportaciones_crystal_propiedad imp_exp.vcx C( 9CaError al agregar la propiedad C  U XPROPXVALORTHISPROP_REINICIAROPROPIMP_EXPVCX COLECCIONADDOEXMENSAJE_SUSPENDO ERR_HAND_OEX UTHISPROP_REINICIAR prop_aplicar0prop_reiniciar prop_agregar Init1CB42qAA31 #)lcraplicacion crreporte crvista f_xls parametros_coll Collection de objetos de Parametros de exportacion utilizados en Exportar_XLS_Coll cr_func_edit obj_control Referencia al objeto que la llama o a un objeto de control para realizar procesos intermedios opar_actual f_ods cr_public_var verbose log_aut archivo_salida_renombra *exportar_xls *oestado_chequear *oestado_quitar *exportar_crystal *cr_param_aplicar *cr_localizar_tablas *exportar_xls_coll Crea los XLS utilizando como base la collection Parametros_Coll *exportar_ods *exportar_xls_cell *cell_exportar_coll *set_displayalert PROCEDURE asignar_oformato LPARAMETERS oFor AS exportaciones_parametros_Formato OF imp_exp.vcx xFor=typeo(oFor) IF typeo(oFor) THEN THIS.oFormato=oFor ELSE THIS.oFormato=NEWOBJECT("Exportaciones_parametros_formato","Imp_Exp.vcx") endif *THIS.combo1.ENABLED=xFor THIS.txMuestra.ENABLED=xFor *THIS.cbalineacion.ENABLED = xFor THIS.btFuente.ENABLED = xFor THIS.btcolor.ENABLED = xFor THIS.btFondo.ENABLED = xFor this.spCol_Width.Enabled = xFor this.txformato.Enabled = xFor this.ckCol_Hidden.Enabled = xFor THIS.btModificar.ENABLED = NOT xFor THIS.actualizar_ejemplo () this.Refresh() ENDPROC PROCEDURE actualizar_ejemplo LOCAL oFor as exportaciones_parametros_formato of imp_Exp.vcx IF typeo(This.oFormato) THEN This.oformato.fo_aplica_control(this.txMuestra ) IF NOT EMPTY(This.oformato.font_name) THEN this.lbFuente.Caption = This.oformato.font_name+","+ALLTRIM(STR(This.oformato.font_size))+","+IIF(This.oformato.font_bold,"B","") +IIF(This.oformato.font_Italic,"I","") ENDIF ENDIF This.formato_actualizado () ENDPROC PROCEDURE texto_ejemplo_access *To do: Modify this routine for the Access method RETURN THIS.txMuestra.Value ENDPROC PROCEDURE texto_ejemplo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Texto_Ejemplo = m.vNewVal THIS.txMuestra.VALUE= m.vNewVal THIS.oFormato.Fo_EsFecha=.F. DO CASE CASE TYPE("this.texto_ejemplo" ) ="N" THIS.txFormato.CONTROLSOURCE = "THIS.Parent.oFormato.Num_Format" CASE TYPE("this.texto_ejemplo" ) ="D" THIS.oFormato.Fo_EsFecha=.T. THIS.txFormato.CONTROLSOURCE = "THIS.Parent.oFormato.Fec_Format" CASE TYPE("this.texto_ejemplo" ) ="T" THIS.txFormato.CONTROLSOURCE = "THIS.Parent.oFormato.Fec_Format" THIS.oFormato.Fo_EsFecha=.T. OTHERWISE THIS.txFormato.CONTROLSOURCE = "" ENDCASE ENDPROC PROCEDURE Init This.lbFuente.Caption ="" this.oformato =NEWOBJECT("Exportaciones_parametros_formato","Imp_Exp.vcx") ENDPROC 2{"b2b2>%O,0Be.U QCRYSTAL clases.vcxTTReporteTT  T  C &CC!(Ci%CC eqCCCCCCCC %!CTTTTT+TC 6T T!"T#$T%&T'(C)* T+,T-.T/.T/0T12T34T56T34T78 T'(T9:T; BU<OCRYSTALCLASESVCXTHISEX_ARCHIVO_ENTRADAARCHIVOTEMPORALEX_ARCHIVO_SALIDAEX_ARCHIVO_PLANTILLA PLANILLAXLSEX_ARCHIVO_REPORTEARCHIVOREPORTE EX_XLS_ABRIR XLS_ABRIREX_XLS_CAMPOS_AGREGAR EX_XLS_CAMPOSCAMPOSNITEX_XLS_CAMPOS_COUNTEX_XLS_CAMPOS_ORDEN CAMPOS_ORDENEX_XLS_CAMPOS_ENCABEZADOCAMPOS_ENCABEZADOEX_XLS_CAMPOS_SEPARA CAMPOS_SEPARAEX_XLS_TOTALIZAR_SEPARACION XDTOT_SEPEX_XLS_TOTALIZAR_FINAL XDTOT_FIN EX_TITULO CAMPOS_TITULOCAPTION EX_TITULO1TITULO1 EX_TITULO2TITULO2 EX_FILTROSFILTROSEX_FILTROS_MOSTRARFILTROS_MOSTRAREX_CR_DONTCHANGENOTHINGDONTCHANGENOTHINGARCHIVOEX_CR_ARCHIVOS EX_CR_ARBOLARBOLEX_CR_CODIGOGRUPO CODIGOGRUPOEX_CR_CRDESCRIPCIONGRUPOCRDESCRIPCIONGRUPOEX_CR_DESCRIPCIONGRUPODESCRIPCIONGRUPOEX_CR_ORDENGRUPOS ORDENGRUPOSEX_CR_NOMBREGRUPO NOMBREGRUPOEX_CR_SUPRIME_FECHAFECHAPLAN_ID_FORMULARIOID_FORMULARIO_EVALUADO PLAN_NOMBREQSTRINGQSTRINGQINTEGERQBOOLEANQBOOLEANQOBJECTQSTRINGQBOOLEANQSTRINGG+(Dey_FuncB%CxFieldbLCxLabelbL CxPosbL T J( BTCC] TCN %M T-%T  T %C  C T T T T %C jT #%C  C T T T UXFIELDXLABELXPOS XTOTAL_SEPARAXTOTAL_GENERALXFORMATO XOPERACIONXLIMPIARFORMATOXIDUDEY_FUNCTHISEX_XLS_CAMPOS_COUNT EX_XLS_CAMPOSODEYFUNC CHK_VALUETYPEOEX_XLS_FORMATO_DEFECTO>4QSTRINGQVARIANTQINTEGERQINTEGERG+(Dey_Func@%CxNamebLCxDatabL CxPosbL TJ-(BTCN% TT%CxDatabDWTCNTC TTT aU XNAMEXDATA XFECHALIMITEXPOSDEY_FUNCTHISEX_CR_PARAM_COUNT EX_CR_PARAM CHK_VALUECR_VALIDAFECHAEX_CR_PARAM_USARTCCTCCTCCTTTU XID XENCABEZADOXORDENODEYFUNC CHK_VALUETHISEX_XLS_CAMPOS_SEPARAEX_XLS_CAMPOS_ENCABEZADOEX_XLS_CAMPOS_ORDEN6TCExportaciones_Parametros imp_exp.vcxTCCb(TxPar.CTThis.C &xText1 = &xText2  w!(Cs!(Co(TC(  BU XCOUNTXPARNIT1NIT2XTEXT1XTEXT2XPROPTHIS EX_XLS_CAMPOSOCATCHtQGRIDLQ EXPORTACIONES_PARAMETROS_FORMATOf:\sistema\2000\imp_exp.vcxQCOLUMNm TC.:TC Exportaciones_Parametros_FormatoIMP_EXP-TCC9##.##0.00T  T  T T!CUOGRIDXFOROCOLCOLUMNSXSO CONTROLSOURCE RECORDSOURCE NUM_FORMAT INPUTMASK FONT_BOLDFONTBOLD FONT_COLOR FORECOLOR FONT_SIZEFONTSIZE FO_INTERIOR BACKCOLORTHISEX_XLS_CAMPOS_AGREGARHEADER1CAPTION QCRYSTAL Clases.vcxTTT C T  T TTTTTTTTC T!"T#$T#%T&%T'(T)*T+,T)*T-. TU/OCRYSTALCLASESVCXARCHIVOTEMPORALTHISEX_ARCHIVO_ENTRADA PLANILLAXLSEX_ARCHIVO_PLANTILLAARCHIVOREPORTEEX_ARCHIVO_REPORTEDO_APLICAR_CRYSTAL_CAMPOS CAMPOS_ORDENEX_XLS_CAMPOS_ORDENCAMPOS_ENCABEZADOEX_XLS_CAMPOS_ENCABEZADO CAMPOS_SEPARAEX_XLS_CAMPOS_SEPARA XDTOT_SEPEX_XLS_TOTALIZAR_SEPARACION XDTOT_FINEX_XLS_TOTALIZAR_FINAL CAMPOS_TITULO EX_TITULOTITULO1 EX_TITULO1TITULO2 EX_TITULO2FILTROS_MOSTRAREX_FILTROS_MOSTRARDONTCHANGENOTHINGEX_CR_DONTCHANGENOTHINGEX_CR_ARCHIVOSARCHIVOARBOL EX_CR_ARBOL CODIGOGRUPOEX_CR_CODIGOGRUPOEX_CR_CRDESCRIPCIONGRUPOCRDESCRIPCIONGRUPODESCRIPCIONGRUPOEX_CR_DESCRIPCIONGRUPO ORDENGRUPOSEX_CR_ORDENGRUPOS NOMBREGRUPOEX_CR_NOMBREGRUPOFECHAEX_CR_SUPRIME_FECHA BUTHISEX_XLS_CAMPOS_COUNT4QEXPORTACION_PARAMETROS imp_exp.vcx %CPlantillas_XLS )%C\Plantillas_XLS.dbf0 @TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C<(%C\Plantillas_XLS.dbf0QPlantillas_XLS%C A T  %CF}( TT C] ,%CPlantillas_XLSCodigo :C-Error al ubicar la plantilla a actualizar !!! B-\>  CaC BUXCODIGO OPARAMETROSIMP_EXPVCXP_SERVEROTABLA CREAR_FUNCIONPLANTILLAS_XLSTYPEOTHISXIDUCODIGO PLANTILLA_IDUMENSAJEIDUNOMBRE PLAN_NOMBRE PARAMETROS NFJSONCREATEPAR_USR PUB_INDEXID_FORMPLAN_ID_FORMULARIOFECHAIN6QEXPORTACIONES_PARAMETROS imp_exp.vcx %CPlantillas_XLS )%C\Plantillas_XLS.dbf0 @TCtabla_Plantillas_XLSsys_verificar2_tablas.prg C<(%C\Plantillas_XLS.dbf0QPlantillas_XLS%C C T %C-C Error al ubicar la plantilla !!! B- ,%CPlantillas_XLSCodigo :C-Error al ubicar la plantilla a actualizar !!! B-T  T  T TTTT TC BUXCODIGO OPARAMETROSIMP_EXPVCXP_SERVEROTABLA CREAR_FUNCIONPLANTILLAS_XLSTYPEOTHISMENSAJE EX_TITULONOMBRE PLANTILLA_IDUIDU PLAN_FECHAFECHAPLAN_ID_FORMULARIOID_FORM PLAN_CODIGOCODIGO PLAN_NOMBREPLAN_USRPAR_USR REVIVIR_JSON PARAMETROS2QEXPORTACIONES_PARAMETROS imp_exp.vcxTC:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx&CC!(Cc%CC _>TC exportaciones_parametros_Formato imp_exp.vcxCC TC BU XJSONOPARIMP_EXPVCX NFJSONREADOFORTHIS EX_XLS_CAMPOSNITTYPEOCLONARSE_QEXPORTACIONES_PARAMETROS imp_exp.vcxQBOOLEANQBOOLEANQBOOLEAN% lTC]'Cel_Rango', 'ex_array_datos', 'ex_cr_archivos', 'ex_cr_param', 'ex_filtros', 'ex_xls_campos'f TC % Q& C C  C !(C CUOPARIMP_EXPVCXXNOCREARFORMATO XNUEVOIDU XSOLO_CAMPOS XEXCLUSIONOPAR2THISODEYFUNC CLONAR_OBJETOEX_XLS_CAMPOS_COUNT EX_XLS_CAMPOSEX_XLS_CAMPOS_AGREGARNITCLONARSE_CAMPOU QCRYSTAL clases.vcx C&CC!(C%CC ~CCCCCCCCC%N!CU OCRYSTALCLASESVCXCAMPOS_AGREGARCAMPOSTHIS EX_XLS_CAMPOSNITEX_XLS_CAMPOS_COUNTQGRILLA_FORMATOas C!(C%CC vCC.CCCCCUOGFASFOR_ADD_COLUMNANITTHIS EX_XLS_CAMPOS#CCC CC U XCODIGOXNUEVAPOSICIONXPOSICIONACTUALNITTARRAYTHIS EX_XLS_CAMPOSODEYFUNCARRAY_REORDENAR_ITEM'QGRILLAForm_Controles:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxTC QCOLUMNTCTC %C C U OGRILLAFORM_CONTROLESXCOLUMNAOFORIMP_EXPVCXCOLUMNA_ACTUALOCOLCOLUMNSTHIS EX_XLS_CAMPOSTYPEOFO_APLICA_CONTROLTC CCCCCCCCC6UOPARNITXNOCREARFORMATO XNUEVOIDUXIDUTHISEX_XLS_CAMPOS_AGREGAR EX_XLS_CAMPOS TC6TC 6( CC6%C*CCTUXCOLUMNAXTODOSXDESDEXHASTATHISEX_XLS_CAMPOS_COUNTNIT EX_XLS_CAMPOS0QBOOLEANQBOOLEANQBOOLEAN6TCexportaciones_parametros imp_exp.vcxC BUXNOCREARFORMATO XNUEVOIDU XSOLO_CAMPOSOPAROCLONARSETHIS;8TCexportaciones_xls_rango imp_exp.vcxUTHIS CEL_RANGOdo_leer_crystal0ex_xls_campos_agregaryex_cr_param_agregar+ ex_xls_separacion_agregarV ex_copyn do_leer_gridYdo_aplicar_crystalex_xls_campos_count_accessplantilla_guardarplantilla_leeri revivir_jsonDclonarse(!do_aplicar_crystal_campos#do_aplicar_grilla_formatoR%ex_xls_campos_reordenary&aplicar_formato_columnam'clonarse_campo(columna_eliminar) clon_crear/+Init+12q111aAAaA2111111112Q12111111A1113Q""AAaA2qAA!A1A3"AA1qAaA32bQAAAAA21111A32113111121122R12111111A133AqAAARArq1QqAA3aqAAARAqqAA2111111133q!!bAA3qqAaaAA6aAAaA2fJA3q1A12qbRAA2q1'3qArA3a32+I 4K |\_vg}Lu=U z $%%'=D'*R*-i.0z02!223+35/956;67@7 8)b2PROCEDURE fo_aplica LPARAMETERS xRange AS Excel.RANGE *=sys_m("fo_aplica.range") IF THIS.fo_esfecha THEN xRange.NumberFormat = THIS.fec_format ENDIF IF THIS.fo_empty THEN RETURN ENDIF IF NOT EMPTY(THIS.num_format) AND NOT THIS.fo_esfecha THEN xRange.NumberFormat = THIS.num_format ENDIF WITH xRange.FONT .Bold = THIS.font_bold IF NOT EMPTY(THIS.font_name ) THEN .NAME = THIS.font_name ENDIF IF THIS.font_size#-1 THEN .SIZE = THIS.font_size ENDIF .Italic = THIS.font_italic IF THIS.font_color#-1 THEN .COLOR = THIS.font_color ENDIF ENDWITH IF THIS.Col_Width=-1 THEN xRange.EntireColumn.AUTOFIT ELSE TRY xRange.COLUMNWIDTH = THIS.Col_Width CATCH ENDTRY ENDIF *=sys_m("Columna") DO CASE CASE THIS.Fo_Alinear = 0 xRange.APPLICATION.SELECTION.HorizontalAlignment = -4131 CASE THIS.Fo_Alinear = 1 xRange.APPLICATION.SELECTION.HorizontalAlignment = -4152 CASE THIS.Fo_Alinear = 2 xRange.APPLICATION.SELECTION.HorizontalAlignment = -4108 ENDCASE DO CASE CASE THIS.fo_alinearvertical = 1 xRange.VerticalAlignment = -4107 CASE THIS.fo_alinearvertical = 2 xRange.VerticalAlignment = -4108 CASE THIS.fo_alinearvertical = 3 xRange.VerticalAlignment = -4117 CASE THIS.fo_alinearvertical = 4 xRange.VerticalAlignment = -4130 CASE THIS.fo_alinearvertical = 5 *=Sys_m("Col") xRange.VerticalAlignment = -4160 ENDCASE IF THIS.Col_Hidden THEN xRange.EntireColumn.Hidden = .t. ENDIF IF This.Fo_Wraptext THEN xRange.WrapText = .t. ENDIF IF THIS.fo_interior#-1 OR this.fo_backcolor #-1 THEN *xRange.Interior.Pattern = xlSolid * xRange.Interior.PatternColorIndex = xlAutomatic xRange.Interior.COLOR = IIF(THIS.fo_interior#-1, THIS.fo_interior, this.fo_backcolor) * xRange.Interior.TintAndShade = 0 * xRange.Interior.PatternTintAndShade = 0 ENDIF ENDPROC PROCEDURE fo_copy LOCAL xCount, xPro, xFor, nIt, xText1, xText2 xFor=NEWOBJECT("Exportaciones_Parametros_Formato","imp_exp.vcx") LOCAL ARRAY xProp(256) xCount=AMEMBERS(xProp, this,0, "C") FOR nIt=1 TO xCount xText1="xFor."+xProp(nIt) xText2="This."+xProp(nIt) TRY &xText1 = &xText2 CATCH ENDTRY NEXT RETURN xFor ENDPROC PROCEDURE num_format_access *To do: Modify this routine for the Access method IF EMPTY(this.num_format) THEN RETURN this.fo_numerofox(this.num_format_fox) ELSE RETURN THIS.num_format ENDIF ENDPROC PROCEDURE fo_numerofox LPARAMETERS xForFox IF EMPTY(xForFox) THEN RETURN "" ENDIF *=sys_m("NumeroFox") *!* LOCAL xST, xInt, xDec, xPrev, xInt2 *!* xST=STRTRAN(xForFox,"9","0") *!* xInt=STREXTRACT(xST,"",".",0,2) *!* xDec=STREXTRACT(xST,".","") *!* xPrev=OCCURS("0",xInt) *!* IF xPrev>1 THEN *!* xInt2=STRTRAN(xInt,"0","") *!* xInt2=STRTRAN(xInt,"#","0") *!* xInt2=STRTRAN(xInt,"","#") *!* ELSE *!* xInt2="0" *!* ENDIF *!* *xInt2=STRTRAN(xInt2,",",".") *!* RETURN xInt2+IIF(EMPTY(xDec), "","."+xDec) xForFox=STRTRAN(xForFox,"9","") xForFox=STRTRAN(xForFox,"#","0") xForFox=STRTRAN(xForFox,"","#") RETURN xForFox ENDPROC PROCEDURE num_format_fox_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.num_format_fox = m.vNewVal this.num_format = this.fo_numerofox(m.vNewVal) ENDPROC PROCEDURE fo_nuevo LOCAL xFor xFor=NEWOBJECT("Exportaciones_Parametros_Formato","imp_exp.vcx") RETURN xfor ENDPROC PROCEDURE clonarse LPARAMETERS oFor as exportaciones_parametros_formato of imp_exp.vcx LOCAL xExclusion xExclusion=UPPER("'Cel_Rango', 'ex_array_datos', 'ex_cr_archivos', 'ex_cr_param', 'ex_filtros', 'ex_xls_campos'") LOCAL oFor2 oFor2=this oDeyFunc.Clonar_Objeto(@oFor,@oFor2, , , xExclusion) *!* THIS.ex_xls_campos_agregar() *!* FOR nIt=1 TO ALEN(THIS.ex_xls_campos,1) *!* THIS.ex_xls_campos_agregar( ; *!* oPar.ex_xls_campos(nIt,1), ; *!* oPar.ex_xls_campos(nIt,2),,; *!* oPar.ex_xls_campos(nIt,3),; *!* oPar.ex_xls_campos(nIt,4),; *!* oPar.ex_xls_campos(nIt,6),; *!* oPar.ex_xls_campos(nIt,5)) *!* NEXT ENDPROC PROCEDURE fuente_texto_access *To do: Modify this routine for the Access method RETURN This.font_name + ","+ALLTRIM(STR(this.font_size)) +","+IIF(this.font_bold,"B","")+IIF(this.font_italic,"I","") ENDPROC PROCEDURE fuente_texto_assign LPARAMETERS xFuente LOCAL xEstilo IF NOT EMPTY(xFuente) DIMENSION tArray(3) oDeyFunc.split_to_array(@tArray, xFuente) THIS.font_name = tArray(1) THIS.font_size = VAL(tArray(2)) xEstilo = tArray(3) THIS.font_bold = ("B"$xEstilo) THIS.font_Italic = ("I"$xEstilo) ENDIF THIS.Fuente_Texto = m.xFuente ENDPROC PROCEDURE fo_aplica_control LPARAMETERS oControl AS COLUMN DO CASE CASE INLIST(oControl.BASECLASS, "Textbox", "Column") IF NOT EMPTY(THIS.font_name) THEN oControl.FONTNAME = IIF(NOT EMPTY(THIS.font_name) ,THIS.font_name,oControl.FONTNAME ) oControl.FONTBOLD = THIS.font_bold oControl.FONTITALIC = THIS.font_italic ENDIF oControl.FONTSIZE = IIF(THIS.font_size >0,THIS.font_size,oControl.FONTSIZE) oControl.FORECOLOR = IIF(THIS.font_color#-1,THIS.font_color,oControl.FORECOLOR ) oControl.BACKCOLOR = IIF(THIS.fo_backcolor #-1,THIS.fo_backcolor,oControl.BACKCOLOR ) OTHERWISE =Mensaje("El control con BaseClass="+oControl.BASECLASS +" no est soportado aun!!!") ENDCASE ENDPROC PROCEDURE fuente_texto_elegir LPARAMETERS xFuente, xTamao, xBold, xItalic xFuente=EVL(xFuente, This.font_name) xTamao=EVL(xTamao,this.font_size) xBold=EVL(xBold,this.font_bold) xItalic=EVL(xItalic, This.font_italic) xEstilo=IIF(xBold,"B","") xEstilo=xEstilo+IIF(xItalic,"I","") DO CASE CASE EMPTY(XfUENTE) xFuenteCompleta=GETFONT() CASE EMPTY(XtAMAO) xFuenteCompleta=GETFONT(xFuente) CASE EMPTY(xEstilo) xFuenteCompleta=GETFONT(xFuente, xTamao) OTHERWISE xFuenteCompleta=GETFONT(xFuente, xTamao, xEstilo) ENDCASE IF NOT EMPTY(xFuenteCompleta) THEN this.fuente_texto=xFuenteCompleta ENDIF RETURN this.fuente_texto ENDPROC PROCEDURE Init LPARAMETERS xIsEmpty This.fo_empty = xIsEmpty ENDPROC PROCEDURE cel_add LPARAMETERS xCol, xFila, xValor, xFormula, xFormato, xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color LOCAL xCel AS exportaciones_xls_celda OF "f:\sistema\2000\imp_exp.vcx" xCel=NEWOBJECT("Exportaciones_XLS_Celda","IMP_EXP") *=sys_m("cel_add") DO CASE CASE TYPE("xFila")="N" xCel.Dir_Fila=xFila CASE TYPE("xFila")="L" xCel.Dir_Fila=THIS.act_Fila+IIF(xFila,0,1) ENDCASE DO CASE CASE TYPE("xCol")="N" xCel.Dir_Col=xCol CASE TYPE("xCol")="L" xCel.Dir_Col=THIS.act_col+IIF(xCol,0,1) ENDCASE xCel.off_col = IIF(TYPE("xOff_Col")="N",xOff_Col,0) xCel.off_fila = IIF(TYPE("xOff_Fila")="N",xOff_Fila,0) xCel.Valor = xValor xCel.Valorformula = xFormula xCel.Formato=xFormato xCel.Cel_Padre =THIS xCel.bor_tipo=xBor_Tipo xCel.bor_color=xBor_Color THIS.act_Fila=xCel.Dir_Fila THIS.act_col=xCel.Dir_Col THIS.Uso_Col = MAX(THIS.Uso_Col , xCel.Dir_Col) THIS.uso_Fila= MAX(THIS.uso_Fila , xCel.Dir_Fila) RETURN THIS.Cel_coll.ADD(xCel) ENDPROC PROCEDURE off_col_access *To do: Modify this routine for the Access method LOCAL xCol, xOff *!* IF TYPE("this.cel_padre.off_Col")="N" then *!* xCol=THIS.off_Col *!* xOff=this.cel_padre.off_Col *!* xCol=xOff+xCol *!* ELSE xCol=THIS.off_Col *!* ENDIF RETURN xCol ENDPROC PROCEDURE off_fila_access *To do: Modify this routine for the Access method LOCAL xFila, xOff *!* IF TYPE("this.cel_padre.off_fila")="N" then *!* xFila=THIS.off_fila *!* xOff=this.cel_padre.off_fila *!* xFila=xOff+xFila *!* ELSE xFila=THIS.off_fila *!* ENDIF RETURN xFila ENDPROC PROCEDURE cel_rango_add LPARAMETERS xRango xRango.Cel_Padre =this RETURN this.Cel_coll.add(xRango) ENDPROC PROCEDURE wrk_offset_full_fila_access LOCAL xFila, xOff, xWRKOff IF TYPE("this.cel_padre.act_fila")="N" THEN xFila=this.off_fila xWRKOff=this.wrk_offset_fila xFila=xFila+xWRKOff ELSE xFila=This.off_fila ENDIF RETURN xFila ENDPROC PROCEDURE aplicar_borde LPARAMETERS xActSheet2, oCel2 =sys_m("E") LOCAL xActSheet AS Excel.Worksheet , oCel AS exportaciones_xls_rango OF "f:\sistema\2000\imp_exp.vcx" xActSheet=xActSheet2 oCel=oCel2 IF oCel.bor_tipo=0 THEN RETURN ENDIF LOCAL oSel AS Excel.RANGE, sd AS Excel LOCAL xlDiagonalDown,xlDiagonalUp, xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideHorizontal, xlInsideVertical LOCAL xlHairline, xlMedium, xlThick, xlThin, xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlLineStyleNone, xlSlantDashDot LOCAL xlNone xlDiagonalDown=5 xlDiagonalUp=6 xlEdgeLeft=7 xlEdgeTop=8 xlEdgeBottom=9 xlEdgeRight=10 xlInsideHorizontal=12 xlInsideVertical=11 xlHairline=1 xlMedium=-4138 xlThick=4 xlThin=2 xlContinuous=0 xlDash=-4115 xlDashDot=4 xlDashDotDot=5 xlDot=-4118 xlDouble=-4119 xlLineStyleNone=-4142 xlSlantDashDot=13 xlNone=0 oSel=xActSheet.RANGE(xActSheet.Cells(oCel.act_ini_fila,oCel.act_ini_col).Address(.T.,.T.), xActSheet.Cells(oCel.uso_fila,oCel.uso_col).Address(.T.,.T.)) TRY oSel.BORDERS(xlDiagonalDown).LineStyle = xlNone oSel.BORDERS(xlDiagonalUp).LineStyle = xlNone CATCH ENDTRY DO CASE CASE oCel.bor_tipo=1 TRY WITH oSel.BORDERS(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY CASE oCel.bor_tipo=2 TRY WITH oSel.BORDERS(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY CASE oCel.bor_tipo=3 TRY WITH oSel.BORDERS(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlMedium ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY TRY WITH oSel.BORDERS(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 *.TintAndShade = 0 .Weight = xlThin ENDWITH CATCH ENDTRY ENDCASE ENDPROC PROCEDURE wrk_offset_full_col_access LOCAL xCol, xOff, xWRKOff IF TYPE("this.cel_padre.act_Col")="N" THEN xCol=this.off_Col xWRKOff=this.wrk_offset_Col xCol=xCol+xWRKOff ELSE xCol=This.off_Col ENDIF RETURN xCol ENDPROC PROCEDURE valorformula_access *To do: Modify this routine for the Access method LOCAL xRForm, xCell AS Excel.RANGE LOCAL xRC, xRF xRForm = THIS.valorformula IF TYPE("xRForm")="C" THEN xCell=THIS.xls_cell xRC=xCell.Address(.F.,.F.) xRC=STRTRAN(xRC,ALLTRIM(STR(xCell.ROW)),"") xRF = ALLTRIM(STR(xCell.ROW)) IF TYPE("this.cel_padre.cel_padre")="O" THEN xFI=ALLTRIM(STR(THIS.cel_padre.cel_padre.act_ini_Fila)) xCI=THIS.cel_padre.cel_padre.act_ini_col xFF=ALLTRIM(STR(this.cel_padre.cel_padre.uso_fila)) xCF=THIS.cel_padre.cel_padre.uso_col ENDIF xRForm = STRTRAN(xRForm,"?RC",xRC) xRForm = STRTRAN(xRForm,"?RF",xRF) xRForm = STRTRAN(xRForm,"?FI",xFI) xRForm = STRTRAN(xRForm,"?FF",xFF) xCell=.F. ELSE ENDIF RETURN xRForm ENDPROC PROCEDURE cel_add_row LPARAMETERS xCol, xFila, xValor, xFormula, xFormato, xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color this.cel_add( .t. , ,"" ,,xFormato, xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color) ENDPROC PROCEDURE cel_add_pares LPARAMETERS xCol, xFila, xValor1, xFormula1, oFormato1, xValor2, xFormula2, oFormato2,xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color This.cel_add(xCol , xFila, xValor1,xFormula1,oFormato1,xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color) This.cel_add( , .t. ,xValor2,xFormula2,oFormato2,xOff_Col, xOff_Fila, xBor_Tipo, xBor_Color) ENDPROC PROCEDURE Init this.cel_coll = CREATEOBJECT("Collection") ENDPROC $PROCEDURE exp_tabla this.cry_tipo_exportacion = 0 && Solo Tabla!!! this.exp_base ENDPROC PROCEDURE exp_excel LPARAMETERS xAbrir IF type("xAbrir")="N" THEN THIS.oForm.xls_abrir = xAbrir ENDIF this.cry_tipo_exportacion = 4 && Solo EXCEL!!! this.exp_base() ENDPROC PROCEDURE fil_copiar_archivos LOCAL xDestino, xDestino2, xDestino3 DO CASE CASE this.cry_tipo_exportacion = 0 this.fil_copiar_tabla(this.fil_analizar_path(this.fil_tabla)) CASE this.cry_tipo_exportacion = 4 this.fil_copiar_xls(this.fil_analizar_path(this.fil_excel)) CASE this.cry_tipo_exportacion= 5 this.fil_copiar_tabla(this.fil_analizar_path(this.fil_tabla)) this.fil_copiar_xls(this.fil_analizar_path(this.fil_excel)) CASE this.cry_tipo_exportacion= 6 this.fil_copiar_tabla(this.fil_analizar_path(this.fil_tabla)) this.fil_copiar_xl5(this.fil_analizar_path(this.fil_excel_plano)) CASE this.cry_tipo_exportacion= 7 This.log_aut_salida("",this.fil_analizar_path(this.fil_archivo )) this.fil_copiar_tabla(this.fil_analizar_path(this.fil_archivo )) ENDCASE ENDPROC PROCEDURE fil_analizar_path LPARAMETERS xDestino LOCAL xFil, xDir xDir="" xFil="" IF EMPTY(xDestino) THEN xFil = JUSTSTEM(THIS.fil_tmp_tabla) ELSE xFil = JUSTSTEM(xDestino) ENDIF IF NOT EMPTY(JUSTPATH(xDestino)) THEN xDir=JUSTPATH(xDestino) ELSE IF NOT EMPTY(This.fil_directorio) THEN xDir = This.fil_directorio ELSE xDir = JUSTPATH(THIS.fil_tmp_tabla) ENDIF ENDIF RETURN ADDBS(xDir)+xFil ENDPROC PROCEDURE fil_copiar_tabla LPARAMETERS xDestino, xTabla IF EMPTY(xTabla) THEN xTabla=THIS.fil_tmp_tabla ENDIF xTabla=FORCEEXT(xTabla,"dbf") xDestino=FORCEEXT(xDestino,"dbf") IF ALLTRIM(UPPER(xTabla))<>ALLTRIM(UPPER(xDestino)) THEN IF FILE(FORCEEXT(xTabla,"dbf")) THEN COPY FILE (FORCEEXT(xTabla,"dbf")) TO (FORCEEXT(xDestino,"dbf")) ENDIF IF FILE(FORCEEXT(xTabla,"fpt")) THEN COPY FILE (FORCEEXT(xTabla,"fpt")) TO (FORCEEXT(xDestino,"fpt")) ENDIF IF FILE(FORCEEXT(xTabla,"idx")) THEN COPY FILE (FORCEEXT(xTabla,"idx")) TO (FORCEEXT(xDestino,"idx")) ENDIF IF FILE(FORCEEXT(xTabla,"cdx")) THEN COPY FILE (FORCEEXT(xTabla,"cdx")) TO (FORCEEXT(xDestino,"cdx")) ENDIF ENDIF THIS.fil_tabla = FORCEEXT(xTabla,"dbf") ENDPROC PROCEDURE fil_copiar_xl5 LPARAMETERS xDestino, xTabla IF EMPTY(xTabla) THEN xTabla=this.fil_tmp_tabla ENDIF xDestino=ForceExt(xDestino,"xls") SELECT 0 USE (xTabla) ALIAS TMPEXPCRY AGAIN COPY TO (xDestino) TYPE XL5 USE this.fil_excel_plano = xDestino ENDPROC PROCEDURE fil_copiar_xls LPARAMETERS xDestino, xXLS IF EMPTY(xXLS) THEN if p_crystal_version=0 then xXLS=ADDBS(Justpath(this.fil_tmp_tabla))+"reporte.xls" else xXLS=ADDBS(Justpath(this.fil_tmp_tabla))+this.oform.xls_archivo endif ENDIF xDestino=ForceExt(xDestino,"xls") COPY FILE (xXLS) TO (xDestino) this.fil_excel=xDestino ENDPROC PROCEDURE exp_base * =sys_mostrar_screen("Suspendo?", .t.) *=mensaje("Inicio Exp Base",,,, .t.,,,,3) This.oForm.Log_Path=This.Log_Path THIS.oForm.Mostrar_Externo=.T. THIS.oForm.mantener = .T. IF this.oform_mostrar THEN * =mensaje("Adentro Mostrar",,,, .t.,,,, 3) this.oForm.Solo_Salir=.t. this.oform.show(1) ENDIF DO CASE CASE INLIST(THIS.cry_tipo_exportacion, 0 , 6) * =mensaje("CASE cry_tipo_exportacion, 0 , 6)",,,, .t.,,, , 3) = THIS.oForm.ejecutar_sql(.T.) * =mensaje("FIN SQL",,,, .t.,,, , 3) CASE THIS.cry_tipo_exportacion = 1 THIS.oForm.BtnVisualizar.CLICK CASE INLIST(THIS.cry_tipo_exportacion, 4 , 5) THIS.oForm.automatizado = .t. THIS.oForm.BtnExportar.CLICK CASE INLIST(THIS.cry_tipo_exportacion, 7) THIS.oForm.xPDFPrompt=.f. this.oForm.xPDFArchivo=ADDBS(this.fil_directorio) + this.fil_archivo This.log_aut_salida("","Crear PDF") THIS.oForm.btnPDF.click(.t.) &&Agrego el .t. para que no abra los PDF This.log_aut_salida("",IIF(FILE(this.oForm.xPDFArchivo),"SI ", "NO ")+"Existe "+this.oForm.xPDFArchivo ) CASE INLIST(THIS.cry_tipo_exportacion, 8) * Guille if empty(this.fil_tabla) this.fil_tabla = this.fil_archivo endif if empty(this.fil_excel) this.fil_excel = this.fil_archivo endif if empty(this.fil_pdf) this.fil_pdf = this.fil_archivo endif try delete file (this.fil_directorio+"\"+this.fil_tabla + iif(upper(right(this.fil_tabla,4))=".DBF","",".dbf")) catch endtry try delete file (this.fil_directorio+"\"+this.fil_excel + iif(upper(right(this.fil_excel,4))=".XLS","",".xls")) catch endtry try delete file (this.fil_directorio+"\"+this.fil_pdf + iif(upper(right(this.fil_pdf,4))=".PDF","",".PDF")) catch endtry * Corrijo error de implementacin this.oForm.xls_archivo = this.fil_excel + iif(upper(right(this.fil_excel,4))=".XLS","",".xls") && Archivo xls this.oform.xls_abrir = 2 && No abrir nunca * Excel THIS.oForm.automatizado = .t. THIS.oForm.BtnExportar.CLICK * Pdf THIS.oForm.xPDFPrompt=.f. this.oForm.xPDFArchivo=ADDBS(this.fil_directorio) + this.fil_pdf + + iif(upper(right(this.fil_pdf,4))=".PDF","",".pdf") This.log_aut_salida("","Crear PDF") THIS.oForm.btnPDF.click(.t.) &&Agrego el .t. para que no abra los PDF This.log_aut_salida("",IIF(FILE(this.oForm.xPDFArchivo),"SI ", "NO ")+"Existe "+this.oForm.xPDFArchivo ) * Necesito que la tabla se llame (fil_tabla) * rename (this.fil_directorio+"\"+this.oform.archivotemporal+ iif(upper(right(this.oform.archivotemporal,4))=".DBF","",".dbf")) to (this.fil_directorio+"\"+this.fil_tabla + iif(upper(right(this.fil_tabla,4))=".DBF","",".dbf")) copy file (this.fil_directorio+"\"+this.oform.archivotemporal+ iif(upper(right(this.oform.archivotemporal,4))=".DBF","",".dbf")) to (this.fil_directorio+"\"+this.fil_tabla + iif(upper(right(this.fil_tabla,4))=".DBF","",".dbf")) OTHERWISE RETURN .F. ENDCASE *=mensaje("ENDCASE",,,, .t.,,, , 3) THIS.fil_tmp_tabla = THIS.oForm.Archivo[1] *=mensaje("Copiando Archivos",,,, .t.,,, , 3) THIS.fil_copiar_archivos *=mensaje("Terminando",,,, .t.,,, , 3) ENDPROC PROCEDURE exp_excel_plano this.cry_tipo_exportacion = 6 && Tabla + XLS Plano!!! this.exp_base ENDPROC PROCEDURE oform_obtener IF EMPTY(This.Log_Path) THEN This.Log_Path=P_system+"\Log\Exportaciones\"+JUSTSTEM(This.oForm_Name)+"_"+TtoC(DATETIME(),1)+".txt" ENDIF DO FORM (this.oform_name) NAME this.oform LINKED NOSHOW This.oForm.Log_Path=This.Log_Path ENDPROC PROCEDURE exp_tabla_y_excel LPARAMETERS xAbrir IF type("xAbrir")="N" THEN THIS.oForm.xls_abrir = xAbrir ENDIF this.cry_tipo_exportacion = 5 && Tabla y EXCEL con formato this.exp_base() ENDPROC PROCEDURE exp_mostrar_form LPARAMETERS oPadre as form, xCrystal IF TYPE("oPadre.crystal_view")#"L" THEN oPadre.AddProperty ("crystal_view") ENDIF IF TYPE("oPadre.form_reporte")#"L" THEN oPadre.AddProperty ("form_reporte") ENDIF IF TYPE("oPadre.bloqueo")#"O" THEN SET CLASSLIB TO form_controles ADDITIVE oPadre.AddObject("bloqueo", "Bloqueo") ENDIF oPadre.crystal_view=.T. oPadre.form_reporte=THIS.oform oPadre.bloqueo.bloquear=.T. THIS.oForm.Mostrar_Externo=.T. *THIS.oForm.mantener = .T. IF xCrystal THEN THIS.oForm.SHOW(3,1) else THIS.oForm.SHOW(1) ENDIF ENDPROC PROCEDURE exp_mostrar_reporte LPARAMETERS oPadre this.exp_mostrar_form (oPadre, .t.) ENDPROC PROCEDURE exp_pdf this.cry_tipo_exportacion = 7 && Solo PDF!!! this.exp_base() ENDPROC PROCEDURE fil_copiar_pdf LPARAMETERS xDestino, xPDF *!* IF EMPTY(xPDF) THEN *!* xPDF=ADDBS(Justpath(this.fil_tmp_tabla))+"reporte.xls" *!* ENDIF *!* xDestino=ForceExt(xDestino,"xls") *!* COPY FILE (xPDF) TO (xDestino) *!* this.fil_pdf=xDestino ENDPROC PROCEDURE dispose IF TYPE("this.oform")="O" and !isnull(this.oform) this.oform.Release this.oform = .f. ENDIF ENDPROC PROCEDURE log_aut_salida LPARAMETERS xID, xTexto IF this.Log_aut THEN =log_aut_verbose(this.verbose , xID, xTexto) ENDIF ENDPROC PROCEDURE exp_sql LPARAMETERS oSQL, xTabla, xAut *=sys_mostrar_screen("EXP_SQL",.T.) LOCAL xOK, oEX, oEX2 IF TYPE("oSQL")#"O" THEN DO Obtener_SQL IN sys_clases_conexion WITH oSQL ENDIF IF NOT oSQL.Conectar() THEN IF NOT xAut THEN THIS.exp_mensaje=oSQL.Mensaje =Mensaje(THIS.exp_mensaje ) RETURN -1 ENDIF ENDIF THIS.exp_tabla() xTabla = THIS.fil_tabla TRY xOK = oSQL.SQL_Subir_Tabla(,xTabla, , , , @oEX2) CATCH TO oEX xOK=-1 ENDTRY IF xOK=-1 THEN TRY THIS.exp_mensaje = oEX2.USERVALUE.MESSAGE CATCH TRY THIS.exp_mensaje = oEX2.MESSAGE CATCH THIS.exp_mensaje = oSQL.Mensaje ENDTRY ENDTRY IF NOT xAut THEN =Mensaje(THIS.exp_mensaje ) ENDIF ENDIF RETURN xOK ENDPROC PROCEDURE exp_tabla_excel_pdf LPARAMETERS xAbrir IF type("xAbrir")="N" THEN THIS.oForm.xls_abrir = xAbrir ENDIF this.cry_tipo_exportacion = 8 && Tabla , Excel con formato y PDF this.exp_base() ENDPROC PROCEDURE leer_propiedades LPARAMETERS oProps oProps.Prop_Aplicar(this.oform) ENDPROC PROCEDURE Init LPARAMETERS xForm IF NOT EMPTY("xForm") THEN this.oform_name = xForm this.oform_obtener ENDIF ENDPROC PROCEDURE Destroy this.dispose () ENDPROC "rrl %y5UQ EXCEL.RANGE%;T%UB %C  TFT %C T  % T  T%BT%n   T H? T T ?THT {T T T T T%>Ta%bTa&%  ! /T"C   !6U#XRANGETHIS FO_ESFECHA NUMBERFORMAT FEC_FORMATFO_EMPTY NUM_FORMATFONTBOLD FONT_BOLD FONT_NAMENAME FONT_SIZESIZEITALIC FONT_ITALIC FONT_COLORCOLOR COL_WIDTH ENTIRECOLUMNAUTOFIT COLUMNWIDTH FO_ALINEAR APPLICATION SELECTIONHORIZONTALALIGNMENTFO_ALINEARVERTICALVERTICALALIGNMENT COL_HIDDENHIDDEN FO_WRAPTEXTWRAPTEXT FO_INTERIOR FO_BACKCOLORINTERIOR>TC Exportaciones_Parametros_Formato imp_exp.vcxTCCb(TxFor.CTThis.C &xText1 = &xText2  BUXCOUNTXPROXFORNITXTEXT1XTEXT2XPROPTHISD%C'BC = BUTHIS NUM_FORMAT FO_NUMEROFOXNUM_FORMAT_FOXv%C! BTC9TC#0TC# BUXFORFOX6T TC UVNEWVALTHISNUM_FORMAT_FOX NUM_FORMAT FO_NUMEROFOXQ>TC Exportaciones_Parametros_Formato imp_exp.vcx BUXFOR:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxlTC]'Cel_Rango', 'ex_array_datos', 'ex_cr_archivos', 'ex_cr_param', 'ex_filtros', 'ex_xls_campos'f TCUOFORIMP_EXPVCX XEXCLUSIONOFOR2THISODEYFUNC CLONAR_OBJETOPMB,CCZ,CB6CI6UTHIS FONT_NAME FONT_SIZE FONT_BOLD FONT_ITALIC%C CTCTCCgTCTBT IT  U XFUENTEXESTILOTARRAYODEYFUNCSPLIT_TO_ARRAYTHIS FONT_NAME FONT_SIZE FONT_BOLD FONT_ITALIC FUENTE_TEXTOQCOLUMNH"' CTextboxColumn5%C *TCC 6TT+T C    6,T C    6,T C  6 2JCEl control con BaseClass= no est soportado aun!!!UOCONTROL BASECLASSTHIS FONT_NAMEFONTNAMEFONTBOLD FONT_BOLD FONTITALIC FONT_ITALICFONTSIZE FONT_SIZE FORECOLOR FONT_COLOR BACKCOLOR FO_BACKCOLORMENSAJEtTC TC TC TC T CB6 T  CI6H; C T C' CT C' C T C' 2;T C '%C aT   B U XFUENTEXTAMAOXBOLDXITALICTHIS FONT_NAME FONT_SIZE FONT_BOLD FONT_ITALICXESTILOXFUENTECOMPLETA FUENTE_TEXTOTUXISEMPTYTHISFO_EMPTY fo_aplica0fo_copynum_format_access fo_numerofoxMnum_format_fox_assignfo_nuevoKclonarsefuente_texto_access fuente_texto_assignc fo_aplica_control fuente_texto_elegir Init1a"1A!AA1A"QAqAqABr1AAaqaqaqAaaaaaA!A!AbD3QAA2B1A4qA0qqq2q"2q2rq>3qq!QAaaaA"3qQ11AA31baaa1aA!A3q1O>mNL dR " n\N ` a d km.zV()rt"[[t %S$U;QIMPORTACIONES_XLS imp_exp.vcx+     %CxCodigobLT C%)} (%C TMPIMPSETSQ%C TMPIMPSTRU-QoImp_Sets  WCxCodigobN   (CxCodigobCC    <) TMPIMPSETS3oImp_Stru TMPIMPSTRU C C %C TMPIMPSETSNT!"T#C$T%%T&&T'C'T()T**T++T,,T-C.- %-%TODAS%VT/aT-T01T2CC22 T3C33 T4C54 T6C76 T8C88 T9C99 F ~TC:TC;T C<T C=T C>T ?T @TATBTC%C==TCC\H D`6C C  D6C C   B-UEXTIPOXSUBTIPOXVERSIONOIMPORTACIONESIMP_EXPVCXXCODIGO XXLSNOMBRE XXLSFORMATO XXLSDESCR XDBFCAMPO XDBFFORMATO XDBFOPCIONAL XFIJODESDE XFIJOHASTA XFIJOANCHO XREPETICIONTHIS ABRIR_TABLASVERSIONTIPOSUBTIPOIMP_SETS TMPIMPSETS TMPIMPSTRUTOPCODIGOCODIGOTIMP_STRUORDENID_SETAGREGAR_COLUMNAAGREGAR_COLUMNA_VACIA LXLS_OFFSET LXLS_OFFSELXLS_SEPARATOR LXLS_SEPAR LXLS_POINT LCSV_HEAD LCSV_CHAR USAR_CELDAS USAR_CELDAUSAR_CSV USAR_FIJOVAR_L1 LXLS_HOJAHOJALXLS_HOJAS_TODAS LCSV_STRCONV F_STRCONVVAL_FUNC VAL_COLUMN LXLS_NOMBRE DESCR_AUTOLXLS_OBSOBSVAL_PREVAL_POSNOMBREFORMATODESCRCAMPODBFFORMOPCIONALINICIOFINANCHO REPETICION TIPOCAMPOqHj GBExtractos bancarios 2jBTipo desconocidoUXTIPOnHg AB Banco Frances 2gBSubTipo desconocidoUXSUBTIPO %C TCC@TCcsv*T Cxlsxlsxxlsmxlsb C oImp_Sets         WCxCodigobN   (CxCodigobCC            TMPPREEV?% C CxCodigobN   _H6 CxCodigobN T CxCodigobC6 T%BC ( (TT% (oTMPPREEV TMPPrevG% T %r(oTMPPREEVTMPPrevG% nT%(oTMPPREEVTMPPrevG% TJ%CxCodigobN  CxCodigobCC  4oTMPPREEVTMPPrevG%  TCC  %CTMPPREEVQ%C UXTIPOXSUBTIPOXVERSIONXCODIGOOFORMXEXTXCSVXXLSXFCSVXFXLSTHIS ABRIR_TABLASIMP_SETSTIPOSUBTIPOVERSIONCODIGOCODIGOTUSAR_CSVTMPPREEVPREEVALUAR_TIPOSXHABILITADO_XLSXHABILITADO_CSVTMPPREVGPREEVALUAR_TIPOS_POS}%CImp_Sets 9FQ \Imp_Sets%CImp_Stru vFQ \Imp_StruUP_SYSTEMH, %Cbancos qQ\bancos,TImportar extractos bancarios%#%Cbancoscodigo"T de   &TImportacin de pedidos'%C CxCodigobC %%Cclientescodcli"T de   %Cproveedo Qproveedo%TImportacin de costos'%C CxCodigobC %%Cproveedocodpro$T de C U XTIPOXSUBTIPOXVERSIONXCODIGOOFORMXEXTP_SYSTEMCAPTIONBANCOSDESCRCLIENTESNOMBREPROVEEDO<)TExtractos bancariosUTHIS ARR_TIPOS?/QGRILLA_FORMATOForm_Controles.vcx CUOGFFORM_CONTROLESVCXFOR_ADD_COLUMNA CUTHIS ARMAR_TIPOSleer_estructura0 tipo_texto subtipo_texto\ preevaluar_tipos abrir_tablaspreevaluar_tipos_posN armar_tiposasql_crear_columnasInit(1ABAAA; 51Q11Q1111A1r!!!!!AAaaaaAAqA3q1A3q1aA31#QA ARARQB!AAB!AAB!AAB!AAAR6qAqA31A11!AA1bqQ!AA2qARqQAAAA2531 D q ^L hT<r;<e )[PROCEDURE leer_estructura LPARAMETERS xTipo, xSubTipo, xVersion, oImportaciones AS importaciones_xls OF imp_exp.vcx, xCodigo LOCAL xxlsNombre, xxlsFormato, xxlsDescr, xdbfCampo, xdbfFormato, xdbfOpcional, xfijodesde, xfijohasta, xfijoancho, xrepeticion *=sys_m("Leer estructura") IF TYPE("xCodigo")="L" THEN xCodigo=-1 ENDIF THIS.Abrir_Tablas() IF xVersion = - 1 THEN CALCULATE MAX(VERSION) FOR Tipo=xTipo AND SubTipo=xSubTipo IN Imp_Sets TO xVersion ENDIF IF USED("TMPIMPSETS") THEN USE IN TMPIMPSETS ENDIF IF USED("TMPIMPSTRU") THEN USE IN TMPIMPSTRU ENDIF SELECT TOP 1 * ; FROM Imp_Sets ; WHERE Tipo=xTipo AND SubTipo=xSubTipo AND VERSION=xVersion AND ; (; (TYPE("xCodigo")="N" AND (Codigo=xCodigo OR xCodigo=-1)) ; OR ; (TYPE("xCodigo")="C" AND (CodigoT=xCodigo OR EMPTY(xCodigo))) ; ); ORDER BY Codigo,codigot, VERSION DESC; INTO CURSOR TMPIMPSETS SELECT * ; FROM Imp_Stru ORDER BY Orden ; WHERE ID_Set=TMPIMPSETS.ID_Set; INTO CURSOR TMPIMPSTRU oImportaciones.Agregar_Columna() oImportaciones.Agregar_Columna_Vacia() IF RECCOUNT("TMPIMPSETS") >0 THEN oImportaciones.lxls_offset = TMPIMPSETS.lxls_offse oImportaciones.lxls_separator = ALLTRIM(TMPIMPSETS.lxls_separ) oImportaciones.lxls_point = TMPIMPSETS.lxls_point oImportaciones.lcsv_head = TMPIMPSETS.lcsv_head oImportaciones.lcsv_char = ALLTRIM(TMPIMPSETS.lcsv_char) oImportaciones.usar_celdas = TMPIMPSETS.usar_celda oImportaciones.usar_csv = TMPIMPSETS.usar_csv oImportaciones.Usar_Fijo = TMPIMPSETS.Usar_Fijo oImportaciones.var_l1 = TMPIMPSETS.var_l1 oImportaciones.lxls_hoja = EVL(TMPIMPSETS.Hoja, oImportaciones.lxls_hoja ) IF oImportaciones.lxls_hoja="%TODAS%" THEN oImportaciones.lxls_hojas_todas=.T. oImportaciones.lxls_hoja="" ENDIF oImportaciones.lcsv_strconv = TMPIMPSETS.f_strconv oImportaciones.Val_Func = EVL(ALLTRIM(TMPIMPSETS.Val_Func), oImportaciones.Val_Func ) oImportaciones.Val_Column = EVL(TMPIMPSETS.Val_Column,oImportaciones.Val_Column) oImportaciones.lxls_nombre=EVL(TMPIMPSETS.Descr_Auto, oImportaciones.lxls_nombre) oImportaciones.lxls_Obs=EVL(TMPIMPSETS.Obs, oImportaciones.lxls_Obs) oImportaciones.Val_Pre = EVL(TMPIMPSETS.Val_Pre,oImportaciones.Val_Pre) oImportaciones.Val_Pos = EVL(TMPIMPSETS.Val_Pos,oImportaciones.Val_Pos) SELECT TMPIMPSTRU SCAN xxlsNombre=ALLTRIM(TMPIMPSTRU.Nombre) xxlsFormato=ALLTRIM(TMPIMPSTRU.Formato) xxlsDescr=ALLTRIM(TMPIMPSTRU.DESCR) xdbfCampo=ALLTRIM(TMPIMPSTRU.Campo) xdbfFormato=ALLTRIM(TMPIMPSTRU.dbfform) xdbfOpcional=TMPIMPSTRU.opcional xfijodesde=TMPIMPSTRU.inicio xfijohasta=TMPIMPSTRU.fin xfijoancho=TMPIMPSTRU.ANCHO xrepeticion=TMPIMPSTRU.repeticion IF LEFT(xxlsFormato,1)="=" THEN xxlsFormato=EVALUATE(SUBSTR(xxlsFormato,2)) ENDIF DO CASE CASE TMPIMPSTRU.TipoCampo=0 oImportaciones.Agregar_Columna(xxlsNombre, xxlsFormato, xxlsDescr, ALLTRIM(xdbfCampo), xdbfFormato, xdbfOpcional, xfijodesde, xfijohasta, xfijoancho, xrepeticion) CASE TMPIMPSTRU.TipoCampo=1 oImportaciones.Agregar_Columna_Vacia(xxlsNombre, xxlsFormato, xxlsDescr, ALLTRIM(xdbfCampo), xdbfFormato, xdbfOpcional, xfijodesde, xfijohasta, xfijoancho, xrepeticion) ENDCASE ENDSCAN ELSE RETURN .F. ENDIF ENDPROC PROCEDURE tipo_texto LPARAMETERS xTipo DO CASE CASE xTipo=1 RETURN "Extractos bancarios" OTHERWISE RETURN "Tipo desconocido" ENDCASE ENDPROC PROCEDURE subtipo_texto LPARAMETERS xSubTipo DO CASE CASE xSubTipo=1 RETURN "Banco Frances" OTHERWISE RETURN "SubTipo desconocido" ENDCASE ENDPROC PROCEDURE preevaluar_tipos LPARAMETERS xTipo, xSubTipo, xVersion, xCodigo, oForm, xEXT LOCAL xCSV, xXLS, xFCSV, xFXLS IF NOT EMPTY(xExt) THEN xEXT=ALLTRIM(lower(xEXT)) xFCSV = INLIST(xExt,"csv") xFXLS = INLIST(xExt,"xls","xlsx","xlsm","xlsb") ENDIF This.Abrir_Tablas() SELECT * FROM Imp_Sets ; WHERE (Tipo=xTipo or xTipo=-1) and (SubTipo=xSubTipo or xSubTipo=-1) and ; (Version=xVersion or xVersion=-1) and ; (; (TYPE("xCodigo")="N" AND (Codigo=xCodigo or xCodigo=-1)) ; OR ; (TYPE("xCodigo")="C" AND (CodigoT=xCodigo or EMPTY(xCodigo))) ; ); and; (not xFXLS OR (xFXLS AND NOT usar_CSV)) and (not xFCSV OR (xFCSV AND usar_CSV)); into cursor TMPPREEV IF _tally=0 AND NOT EMPTY(xCodigo) AND NOT (TYPE("xCodigo")="N" AND xCodigo=-1) THEN DO CASE CASE TYPE("xCodigo")="N" xCodigo=-1 CASE TYPE("xCodigo")="C" xCodigo="" ENDCASE RETURN this.preevaluar_tipos(@xTipo, @xSubTipo, @xVersion, @xCodigo, @oForm, @xEXT) ENDIF COUNT FOR usar_csv TO xCSV COUNT FOR NOT usar_csv TO xXLS oForm.xHabilitado_XLS = (xXLS>0) oForm.xHabilitado_CSV = (xCSV>0) IF xTipo=-1 THEN SELECT Tipo FROM TMPPREEV GROUP BY Tipo INTO CURSOR TMPPrevG IF _tally=1 THEN xTipo=TMPPREVG.Tipo ENDIF ENDIF IF xSubTipo=-1 THEN SELECT SubTipo FROM TMPPREEV GROUP BY SubTipo INTO CURSOR TMPPrevG IF _tally=1 THEN xSubTipo=TMPPREVG.SubTipo ENDIF ENDIF IF xVersion=-1 THEN SELECT Version FROM TMPPREEV GROUP BY Version INTO CURSOR TMPPrevG IF _tally=1 THEN xVersion=TMPPREVG.Version ENDIF ENDIF IF (; (TYPE("xCodigo")="N" AND xCodigo=-1) ; OR ; (TYPE("xCodigo")="C" AND EMPTY(xCodigo)) ; ) THEN SELECT Codigo, CodigoT FROM TMPPREEV GROUP BY Codigo, CodigoT INTO CURSOR TMPPrevG IF _tally=1 THEN xCodigo=EVL(TMPPREVG.CodigoT, EVL(TMPPREVG.Codigo,-1)) ENDIF ENDIF IF USED("TMPPREEV") THEN USE IN TMPPREEV ENDIF This.Preevaluar_tipos_pos ( xTipo, xSubTipo, xVersion, xCodigo, oForm, xEXT) ENDPROC PROCEDURE abrir_tablas IF NOT USED("Imp_Sets") THEN SELECT 0 USE (p_system+"\Imp_Sets") ENDIF IF NOT USED("Imp_Stru") THEN SELECT 0 USE (p_system+"\Imp_Stru") ENDIF ENDPROC PROCEDURE preevaluar_tipos_pos LPARAMETERS xTipo, xSubTipo, xVersion, xCodigo, oForm, xEXT DO case CASE xTipo=1 IF NOT USED("bancos") then USE (p_system+"\bancos") IN 0 ENDIF oForm.Caption="Importar extractos bancarios" IF xCodigo>0 THEN IF SEEK(xCodigo,"bancos","codigo") then oForm.Caption = oForm.Caption + " de " + bancos.descr ENDIF ENDIF CASE xTipo=3 oForm.Caption="Importacin de pedidos" IF NOT EMPTY(xCodigo) AND TYPE("xCodigo")="C" THEN IF SEEK(xCodigo,"clientes","codcli") then oForm.Caption = oForm.Caption + " de " + clientes.Nombre ENDIF ENDIF CASE xTipo=4 IF NOT USED("proveedo") then USE ("proveedo") IN 0 ENDIF oForm.Caption="Importacin de costos" IF NOT EMPTY(xCodigo) AND TYPE("xCodigo")="C" THEN IF SEEK(xCodigo,"proveedo","codpro") then oForm.Caption = oForm.Caption + " de " + ALLTRIM(proveedo.nombre ) ENDIF ENDIF ENDCASE ENDPROC PROCEDURE armar_tipos DIMENSION this.arr_tipos (1) this.arr_tipos (1) = "Extractos bancarios" ENDPROC PROCEDURE sql_crear_columnas *!* THIS.for_add_columna("CODIGO",THISFORM.gf.sql_alias +".COD_Ins","Codigo",100,"","", THISFORM.gf.sql_alias +".cod_ins", "cod_ins","codins") *!* THIS.for_add_columna("Atr",THISFORM.gf.sql_alias +".Atr","Atr",30,"","", THISFORM.gf.sql_alias +".Atr", "Atr","Atr") *!* THIS.for_add_columna("Bul",THISFORM.gf.sql_alias +".Bul","Bul",30,"","", THISFORM.gf.sql_alias +".cod_ins", "Bul","Bul") *!* THIS.for_add_columna("DESCR",THISFORM.gf.sql_alias +".Descr","Descripcin",190,"","", THISFORM.gf.sql_alias +".Descr", "Descr","Descr") LOCAL oGF as Grilla_Formato OF Form_Controles.vcx oGF.for_add_columna () ENDPROC PROCEDURE Init this.armar_tipos() ENDPROC ."S%|!:U)T CUVNEWVALTHISCOLUMNAMOSTRAR_COLUMNAR2QEXPORTACIONES_PARAMETROS imp_exp.vcxT CUOPARIMP_EXPVCXTHIS OPARAMETROSMOSTRAR_COLUMNA%% C nTTTC 6T CC - 8T CC  OT<this.parent.oparametros.ex_xls_campos(this.parent.columna,2)OT<this.parent.oparametros.ex_xls_campos(this.parent.columna,4)OT<this.parent.oparametros.ex_xls_campos(this.parent.columna,5)  T C C  U THISCOLUMNATYPEO OPARAMETROSTXTITULO CONTROLSOURCE CKTOTALIZAR CBOPERACIONOFORMATOASIGNAR_OFORMATO EX_XLS_CAMPOSPROGRAMMATICCHANGEOFORBUTHISOFORMATO TEXTO_EJEMPLO1T T UVNEWVALTHIS TEXTO_EJEMPLOOFORMATO UTHISCOLUMNA_CAMBIADAcolumna_assign0mostrar_parametrosmostrar_columnatexto_ejemplo_accesstexto_ejemplo_assign LostFocusq1q"2!3Q111aAC33q"Q32/ U/%Z* !1) G". . %P m U TH4  PageframecT 28%CxObjeto.controlcountbN  T%B-(H Form4TC  PageframehTC PageTC  ContainerTC(%CxObj.Texto_MostrarbL5% 1(CC  --  /%CxObj.Texto_filtro_MostrarbL%(CC  --  C UXOBJETOXOBJNIT XTOTCOUNT BASECLASS PAGECOUNT CONTROLCOUNTCONTROLSPAGES TEXTO_MOSTRARTHISFILTRO_AGREGAR TEXTO_FILTRONAMECLASSTEXTO_FILTRO_MOSTRARDO_LEER_CRYSTAL#%CNTC CollectionB%CnB1TC obj_filtrosys_contenedores.prgT T T T T TC BU XTEXTO_FILTROXNAMEXVALUE1XVALUE2XCLASS XBASECLASSTHISFIL_COLLXFIL FIL_BASECLASS FIL_CLASSFIL_NAME FIL_TEXTO FIL_VALUE1 FIL_VALUE2ADD5 T Ta%C%T TC C  T- T  T T T TTCC _%8 T %o T T T  BU XSEPARAXFILXSEPARA2XFINALXNFILXAUTOXNCFILTHISFIL_TEXTO_TIPOFILTROS_POR_LINEAFIL_SEPARADOR_LINEAFIL_COLL FIL_TEXTO%C @ T [TCC_%C T TCC_%CC  >C CC : 6U XLABELXDVALXHVALXHLABELXEMPTYXTDVALXTHVALTHISFILTRO_AGREGAR CUTHISFILTRO_AGREGARdo_leer_crystal0filtro_agregarfiltro_obtenerfiltro_agregar_desde_hastaInit" 1qAA2qAQQQQA!A!AAAA3!AArAAB2q"aQAAA1AAB3qAAA22?)dF.<kE\ lk ). F"--\$ %-d%U% C / B 5%Z T vTC%TC TC  BU XSECUNDARIOTHISTEXTO_FILTRO_MOSTRARTEXTO_FILTRO_EMPTYXNAMEXTEXTOTEXTO_FILTRO_CAPTIONTEXTO_FILTRO_DESCRIPCIONTEXTO_FILTRO_COD_DESCTEXTO_FILTRO_CODIGOBCCC_UTHISLISTITEM LISTINDEXBCC_UTHISVALUE BUTHIS COMBO_TEXT UVNEWVAL BUTHISVALUE&T UVNEWVALTHISVALUEVALID BUTHIS COMBO_TEXTT UVNEWVALTHIS PAR_HASTA texto_filtro0combo_text_accesscombo_value_accesspar_caption_accesspar_caption_assign<par_desde_accessWpar_desde_assign{par_hasta_accesspar_hasta_assign1qA!A!!!A4s332q53q"32q"2Cl8!a%+?0 7"u:)-PROCEDURE val_texto_access *To do: Modify this routine for the Access method LOCAL xVal2, xText, xDI, xDE xText=this.head_ini FOR nIt=1 TO this.val_coleccion.Count xVal=this.val_coleccion(nIt) xDI=this.div_ini xDE= IIF(nit#this.val_coleccion.Count or this.div_ultima, this.div_end, "") xVal2=xDI + xVal + xDE xText=xText+xVal2+IIF(this.val_agregar_retorno, CHR(13)+CHR(10),"") NEXT xText=xText+this.head_end RETURN xText ENDPROC PROCEDURE val_texto_assign LPARAMETERS vNewVal LOCAL xVal2 xVal2 = m.vNewVal IF this.val_agregar_retorno THEN xVal2=STRTRAN(xVal2, CHR(13)+CHR(10),"") ENDIF this.val_coleccion=NEWOBJECT("Collection") this.val_coleccion_indice=0 xVal2=STREXTRACT(xVal2,this.head_ini,this.head_end,1,2) DO WHILE .t. xVal3=STREXTRACT(xVal2,this.div_ini,this.div_end,1,4) IF EMPTY(xVal3) THEN EXIT ENDIF xVal2=STRTRAN(xVal2, xval3,"",1,1) xVal3=STREXTRACT(xVal3,this.div_ini,this.div_end,1,2) this.val_coleccion.add (xVal3) ENDDO ENDPROC PROCEDURE val_agregar LPARAMETERS xVal AS STRING , xDiv AS STRING, xLargo AS INTEGER IF TYPE("xVal")="L" AND NOT xVal THEN THIS.val_coleccion=NEWOBJECT("Collection") RETURN .T. ENDIF IF TYPE("xVal")#"C" THEN RETURN .F. ENDIF IF NOT EMPTY(xLargo) THEN xVal=PADR(xVal, xLargo) ENDIF THIS.val_coleccion.ADD(xVal) ENDPROC PROCEDURE head_ini_access IF TYPE("this.head_ini")="L" THEN RETURN "<"+this.set_head+">" ELSE RETURN THIS.head_ini ENDIF ENDPROC PROCEDURE head_end_access IF TYPE("this.head_end")="L" THEN RETURN "" ELSE RETURN THIS.head_end ENDIF ENDPROC PROCEDURE div_end_access IF TYPE("this.div_end")="L" THEN RETURN "" ELSE RETURN THIS.div_end ENDIF ENDPROC PROCEDURE div_ini_access IF TYPE("this.div_ini")="L" THEN RETURN "<"+this.set_div+">" ELSE RETURN THIS.div_ini ENDIF ENDPROC PROCEDURE val_coleccion_next LPARAMETERS xIndice as Integer, xLargo as Integer IF NOT EMPTY(xIndice ) THEN this.val_coleccion_indice = xIndice ELSE this.val_coleccion_indice = this.val_coleccion_indice + 1 ENDIF IF EMPTY(xLargo) THEN RETURN this.val_coleccion(this.val_coleccion_indice) ELSE RETURN PADR(this.val_coleccion(this.val_coleccion_indice),xLargo) ENDIF ENDPROC PROCEDURE val_agregarex LPARAMETERS xValor, xDiv, xFormato, xComillado IF xComillado THEN RETURN this.val_agregar('"'+this.val_igualar_tipos("",xValor, xFormato)+'"',xDiv) ELSE RETURN this.val_agregar(this.val_igualar_tipos("",xValor, xFormato),xDiv) ENDIF ENDPROC PROCEDURE val_igualar_tipos LPARAMETERS xValor, xValor_Nuevo, xFormato LOCAL xTy1, xTy2, xTrim, xDate xTy1=TYPE("xValor") xTy2=TYPE("xValor_Nuevo") LOCAL xVal DO CASE CASE xTy1="C" DO CASE CASE xTy2="C" DO CASE CASE NOT EMPTY(xFormato) xVal=ALLTRIM(xValor_Nuevo) OTHERWISE xVal=xValor_Nuevo ENDCASE CASE xTy2="N" IF NOT EMPTY(xFormato) THEN IF LEFT(xFormato,1)="T" THEN xFormato=SUBSTR(xFormato,2) xTrim=.T. ENDIF xVal=TRANSFORM(xValor_Nuevo, xFormato) IF xTrim THEN xVal=ALLTRIM(xVal) ENDIF ELSE xVal=STR(xValor_Nuevo,20,6) ENDIF CASE xTy2="L" xVal=IIF(xValor_Nuevo,"T","F") CASE xTy2="D" IF EMPTY(xFormato) THEN xVal=DTOC(xValor_Nuevo) ELSE xDate=SET("Date") SET DATE &xFormato xVal=TRANSFORM(xValor_Nuevo, "@D") SET DATE &xDate ENDIF CASE xTy2="T" xVal=TTOC(xValor_Nuevo) OTHERWISE xVal=xValor_Nuevo ENDCASE CASE xTy2="C" DO CASE CASE xTy1="N" xVal=VAL(xValor_Nuevo) CASE xTy1="L" xVal=xValor_Nuevo="T" CASE xTy1="D" xVal=CTOD(xValor_Nuevo) CASE xTy1="T" xVal=CTOT(xValor_Nuevo) OTHERWISE xVal=xValor_Nuevo ENDCASE OTHERWISE xVal=xValor_Nuevo ENDCASE RETURN xVal *!* LPARAMETERS xValor, xValor_Nuevo, xFormato *!* LOCAL xTy1, xTy2 *!* xTy1=TYPE("xValor") *!* xTy2=TYPE("xValor_Nuevo") *!* IF xTy1=xTy2 AND NOT (xTy1="C" AND xTy2="C" AND NOT EMPTY(xFormato)) THEN *!* RETURN xValor_Nuevo *!* ENDIF *!* LOCAL xVal *!* DO CASE *!* CASE xTy2="C" *!* CASE xTy2="N" *!* IF NOT EMPTY(xFormato) THEN *!* xVal=TRANSFORM(xValor, xFormato) *!* ELSE *!* xVal=STR(xValor_Nuevo,20,6) *!* ENDIF *!* CASE xTy2="L" *!* xVal=IIF(xValor_Nuevo,"T","F") *!* CASE xTy2="D" *!* xVal=DTOC(xValor_Nuevo) *!* CASE xTy2="T" *!* xVal=TTOC(xValor_Nuevo) *!* OTHERWISE *!* xVal=xValor_Nuevo *!* ENDCASE *!* CASE xTy2="C" *!* DO CASE *!* CASE xTy1="N" *!* xVal=VAL(xValor_Nuevo) *!* CASE xTy1="L" *!* xVal=xValor_Nuevo="T" *!* CASE xTy1="D" *!* xVal=CTOD(xValor_Nuevo) *!* CASE xTy1="T" *!* xVal=CTOT(xValor_Nuevo) *!* OTHERWISE *!* xVal=xValor_Nuevo *!* ENDCASE *!* OTHERWISE *!* xVal=xValor_Nuevo *!* ENDCASE *!* DO CASE *!* RETURN xVal ENDPROC PROCEDURE val_coleccion_nextex LPARAMETERS xIndice as Integer, xTipo as Variant LOCAL xVal xVal = this.val_coleccion_next(xIndice) RETURN this.val_igualar_tipos(xTipo, xVal) ENDPROC PROCEDURE Init this.val_coleccion = NEWOBJECT("Collection") ENDPROC PROCEDURE Destroy this.val_coleccion = .f. ENDPROC 8PROCEDURE do_leer_crystal LPARAMETERS oCrystal AS crystal OF clases.vcx THIS.ex_archivo_entrada = oCrystal.archivotemporal THIS.ex_archivo_salida = "Reporte" THIS.ex_archivo_plantilla = oCrystal.planillaxls THIS.ex_archivo_reporte = oCrystal.ArchivoReporte this.ex_xls_abrir = oCrystal.xls_abrir THIS.ex_xls_campos_agregar() DIMENSION THIS.ex_xls_campos(ALEN(oCrystal.Campos,1),ALEN(oCrystal.Campos,2)) FOR nIt=1 TO ALEN(oCrystal.Campos,1) IF NOT EMPTY( oCrystal.Campos(nIt,1)) THIS.ex_xls_campos_agregar( oCrystal.Campos(nIt,1), oCrystal.Campos(nIt,2),,oCrystal.Campos(nIt,3),oCrystal.Campos(nIt,4),oCrystal.Campos(nIt,6),oCrystal.Campos(nIt,5),,oCrystal.Campos(nIt,8)) ENDIF NEXT IF THIS.ex_xls_campos_count>0 THEN DIMENSION THIS.ex_xls_campos(THIS.ex_xls_campos_count ,ALEN(oCrystal.Campos,2)) ENDIF THIS.ex_xls_campos_orden = oCrystal.Campos_orden THIS.ex_xls_campos_encabezado = oCrystal.campos_encabezado THIS.ex_xls_campos_separa = oCrystal.campos_separa THIS.ex_xls_totalizar_separacion = oCrystal.xdtot_sep THIS.ex_xls_totalizar_final = oCrystal.xdtot_fin THIS.ex_titulo = IIF(oCrystal.campos_titulo=='', oCrystal.CAPTION , oCrystal.campos_titulo ) THIS.ex_titulo1 = oCrystal.Titulo1 THIS.ex_titulo2 = oCrystal.Titulo2 THIS.ex_filtros = oCrystal.Filtros THIS.ex_filtros_mostrar = oCrystal.Filtros_Mostrar THIS.ex_cr_dontchangenothing = oCrystal.dontchangenothing =ACOPY(oCrystal.archivo, THIS.ex_cr_archivos ) THIS.ex_cr_arbol = oCrystal.Arbol THIS.ex_cr_codigogrupo = oCrystal.codigogrupo THIS.ex_cr_crdescripciongrupo = oCrystal.codigogrupo THIS.ex_cr_crdescripciongrupo = oCrystal.crdescripciongrupo THIS.ex_cr_descripciongrupo = oCrystal.descripciongrupo THIS.ex_cr_ordengrupos = oCrystal.ordengrupos THIS.ex_cr_nombregrupo = oCrystal.nombregrupo THIS.ex_cr_ordengrupos = oCrystal.ordengrupos THIS.ex_cr_suprime_fecha = !oCrystal.fecha THIS.ex_cr_dontchangenothing = oCrystal.dontchangenothing this.plan_id_formulario =oCrystal.id_formulario_evaluado This.plan_nombre =oCrystal.caption RETURN THIS ENDPROC PROCEDURE ex_xls_campos_agregar LPARAMETERS xField AS STRING ,xLabel AS STRING , xPos AS INTEGER, xTotal_Separa AS Boolean , xTotal_General AS Boolean, xFormato AS OBJECT, xOperacion AS STRING , xLimpiarFormato AS Boolean, xIDU as String SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xField")="L" AND TYPE("xLabel")="L" AND TYPE("xPos")="L" THEN THIS.ex_xls_campos_count=0 STORE "" TO THIS.ex_xls_campos RETURN ENDIF xIDU=EVL(xIDU,SYS(2015)) xPos = oDeyFunc.Chk_Value(xPos,0,"N") IF xLimpiarFormato THEN xFormato = .F. ENDIF IF xPos=0 THEN THIS.ex_xls_campos_count = THIS.ex_xls_campos_count + 1 xPos=THIS.ex_xls_campos_count ENDIF IF xPos > ALEN(THIS.ex_xls_campos,1) THEN DIMENSION THIS.ex_xls_campos(xPos,ALEN(THIS.ex_xls_campos,2)) ENDIF THIS.ex_xls_campos(xPos,1)=xField THIS.ex_xls_campos(xPos,2)=xLabel THIS.ex_xls_campos(xPos,3)=xTotal_Separa THIS.ex_xls_campos(xPos,4)=xTotal_General IF NOT EMPTY(xOperacion) THEN THIS.ex_xls_campos(xPos,5)=xOperacion ENDIF IF typeo(This.ex_xls_formato_defecto) AND NOT typeo(xFormato) THEN xFormato = This.ex_xls_formato_defecto ENDIF THIS.ex_xls_campos(xPos,6)=xFormato this.ex_xls_campos(xPos,8)=xIDU ENDPROC PROCEDURE ex_cr_param_agregar PARAMETERS xName AS STRING ,xData AS Variant ,xFechaLimite AS INTEGER , xPos AS INTEGER SET PROCEDURE TO Dey_Func ADDITIVE IF TYPE("xName")="L" AND TYPE("xData")="L" AND TYPE("xPos")="L" THEN THIS.ex_cr_param_count=0 STORE .F. TO THIS.ex_cr_param RETURN ENDIF xPos = Chk_Value(xPos,0,"N") IF xPos=0 THEN THIS.ex_cr_param_count = THIS.ex_cr_param_count + 1 xPos=THIS.ex_cr_param_count ENDIF IF TYPE("xData")="D" THEN xFechaLimite = Chk_Value(xFechaLimite,1,"N") xData=CR_ValidaFecha(xData,xFechaLimite) ENDIF THIS.ex_cr_param(xPos,1)=xName THIS.ex_cr_param(xPos,2)=xData THIS.ex_cr_param_usar = .T. ENDPROC PROCEDURE ex_xls_separacion_agregar LPARAMETERS xID, xEncabezado, xOrden xID=oDeyFunc.chk_value(xID,"","C") xEncabezado=oDeyFunc.chk_value(xEncabezado,"","C") xOrden=oDeyFunc.chk_value(xOrden,"","C") this.ex_xls_campos_separa=xID this.ex_xls_campos_encabezado=xEncabezado this.ex_xls_campos_orden=xOrden ENDPROC PROCEDURE ex_copy LOCAL xCount, xPar, nIt1,nit2, xText1, xText2 xPar=NEWOBJECT("Exportaciones_Parametros","imp_exp.vcx") LOCAL ARRAY xProp(256) xCount=AMEMBERS(xProp, this, 0, "C") FOR nIt1=1 TO xCount xText1="xPar."+xProp(nIt1) xText2="This."+xProp(nIt1) TRY &xText1 = &xText2 CATCH ENDTRY NEXT TRY FOR nit1=1 TO ALEN(this.ex_xls_campos, 1) FOR nit2=1 TO ALEN(this.ex_xls_campos, 2) xPar.ex_xls_campos(nit1,nit2)=this.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY RETURN xPar ENDPROC PROCEDURE do_leer_grid LPARAMETERS oGrid as Grid LOCAL xFor as Exportaciones_Parametros_Formato OF "f:\sistema\2000\imp_exp.vcx" FOR EACH oCol as Column IN oGrid.Columns xSo=STRTRAN(oCol.ControlSource, oGrid.RecordSource+".","") xFor=NEWOBJECT("Exportaciones_Parametros_Formato","IMP_EXP") xFor.num_format=STRTRAN(STRTRAN(oCol.InputMask ,"9","#"),"#.##", "0.00") xFor.font_Bold= oCol.FontBold xFor.font_color=oCol.ForeColor xFor.Font_size=oCol.FontSize xFor.fo_interior = oCol.BackColor this.ex_xls_campos_agregar(xSo, oCol.header1.caption, , ,, xFor) NEXT ENDPROC PROCEDURE do_aplicar_crystal LPARAMETERS oCrystal AS Crystal OF Clases.vcx oCrystal.archivotemporal = THIS.ex_archivo_entrada oCrystal.planillaxls = THIS.ex_archivo_plantilla oCrystal.ArchivoReporte = THIS.ex_archivo_reporte This.do_aplicar_crystal_campos(oCrystal) oCrystal.Campos_orden = THIS.ex_xls_campos_orden oCrystal.campos_encabezado = THIS.ex_xls_campos_encabezado oCrystal.campos_separa= THIS.ex_xls_campos_separa oCrystal.xdtot_sep=THIS.ex_xls_totalizar_separacion oCrystal.xdtot_fin=THIS.ex_xls_totalizar_final oCrystal.campos_titulo= THIS.ex_titulo oCrystal.Titulo1= THIS.ex_titulo1 oCrystal.Titulo2=THIS.ex_titulo2 *oCrystal.Filtros=THIS.ex_filtros oCrystal.Filtros_Mostrar=THIS.ex_filtros_mostrar oCrystal.dontchangenothing =THIS.ex_cr_dontchangenothing =ACOPY(THIS.ex_cr_archivos, oCrystal.archivo ) oCrystal.Arbol = THIS.ex_cr_arbol oCrystal.codigogrupo=THIS.ex_cr_codigogrupo oCrystal.codigogrupo=THIS.ex_cr_crdescripciongrupo oCrystal.crdescripciongrupo = THIS.ex_cr_crdescripciongrupo oCrystal.descripciongrupo = THIS.ex_cr_descripciongrupo oCrystal.ordengrupos =THIS.ex_cr_ordengrupos oCrystal.nombregrupo=THIS.ex_cr_nombregrupo oCrystal.ordengrupos=THIS.ex_cr_ordengrupos oCrystal.fecha=!THIS.ex_cr_suprime_fecha oCrystal.dontchangenothing= THIS.ex_cr_dontchangenothing ENDPROC PROCEDURE ex_xls_campos_count_access *To do: Modify this routine for the Access method RETURN THIS.ex_xls_campos_count ENDPROC PROCEDURE plantilla_guardar LPARAMETERS xCodigo, oParametros AS exportacion_parametros OF imp_exp.vcx IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_server+"\Plantillas_XLS.dbf") oTabla=NEWOBJECT("tabla_Plantillas_XLS", "sys_verificar2_tablas.prg") oTabla.crear_funcion() RELEASE oTabla ENDIF IF FILE(p_server+"\Plantillas_XLS.dbf") THEN USE Plantillas_XLS IN 0 ENDIF ENDIF IF NOT Typeo(oParametros) THEN oParametros=THIS ENDIF LOCAL xIDU IF EMPTY(xCodigo) THEN SELECT Plantillas_XLS CALCULATE MAX(codigo) TO xCodigo xCodigo=xCodigo+1 oParametros.Plantilla_IDU=SYS(2015) APPEND BLANK ELSE IF !SEEK(xCodigo, "Plantillas_XLS" ,"Codigo") THEN =Mensaje("Error al ubicar la plantilla a actualizar !!!") RETURN .F. ENDIF ENDIF REPLACE IDU WITH oParametros.Plantilla_IDU,; codigo WITH xCodigo,; Nombre WITH oParametros.Plan_Nombre,; Parametros WITH nfjsonCreate(oParametros,.T.),; par_usr WITH pub_index,; id_form WITH oparametros.Plan_ID_Formulario,; Fecha WITH DATETIME() IN Plantillas_XLS *!* CREATE TABLE (p_server+"\Plantillas_XLS.DBF") ; *!* (; *!* idu c(10) ,; *!* codigo N(6) ,; *!* nombre c(100) ,; *!* Parametros M ,; *!* par_usr N(10),; *!* Privado n(1); *!* Fecha T; *!* ) RETURN oParametros ENDPROC PROCEDURE plantilla_leer LPARAMETERS xCodigo, oParametros AS exportaciones_parametros OF imp_exp.vcx IF !USED("Plantillas_XLS") THEN IF NOT FILE(p_server+"\Plantillas_XLS.dbf") oTabla=NEWOBJECT("tabla_Plantillas_XLS", "sys_verificar2_tablas.prg") oTabla.crear_funcion() RELEASE oTabla ENDIF IF FILE(p_server+"\Plantillas_XLS.dbf") THEN USE Plantillas_XLS IN 0 ENDIF ENDIF IF NOT Typeo(oParametros) THEN oParametros=THIS ENDIF IF EMPTY(xCodigo) THEN =Mensaje("Error al ubicar la plantilla !!!") RETURN .F. ELSE IF !SEEK(xCodigo, "Plantillas_XLS" ,"Codigo") THEN =Mensaje("Error al ubicar la plantilla a actualizar !!!") RETURN .F. ENDIF ENDIF oParametros.ex_titulo= Plantillas_XLS.Nombre oParametros.ex_titulo= Plantillas_XLS.Nombre oParametros.plantilla_idu = Plantillas_XLS.IDU oParametros.plan_fecha = Plantillas_XLS.Fecha oParametros.plan_id_formulario = Plantillas_XLS.ID_Form oParametros.plan_codigo = Plantillas_XLS.Codigo oParametros.plan_nombre = Plantillas_XLS.Nombre oParametros.plan_usr = Plantillas_XLS.Par_Usr oParametros.Revivir_JSON(Plantillas_XLS.Parametros) RETURN oParametros ENDPROC PROCEDURE revivir_json LPARAMETERS xJSON LOCAL oPar as exportaciones_parametros of imp_exp.vcx oPar = nfjsonRead(xJSON) LOCAL oFor as exportaciones_parametros_Formato of imp_exp.vcx DIMENSION THIS.ex_xls_campos(ALEN(oPar.ex_xls_campos,1),ALEN(oPar.ex_xls_campos,2)) FOR nIt=1 TO ALEN(oPar.ex_xls_campos,1) IF typeo(oPar.ex_xls_campos(nIt,6)) THEN oFor=NEWOBJECT("exportaciones_parametros_Formato","imp_exp.vcx") oFor.Clonarse (oPar.ex_xls_campos(nIt,6)) oPar.ex_xls_campos(nIt,6)=oFor ENDIF NEXT This.Clonarse (oPar) RETURN This ENDPROC PROCEDURE clonarse LPARAMETERS oPar AS exportaciones_parametros OF imp_exp.vcx, xNoCrearFormato AS Boolean, xNuevoIDU AS Boolean, xSolo_Campos AS Boolean *=sys_m("oPar") IF NOT xSolo_Campos THEN LOCAL xExclusion xExclusion=UPPER("'Cel_Rango', 'ex_array_datos', 'ex_cr_archivos', 'ex_cr_param', 'ex_filtros', 'ex_xls_campos'") LOCAL oPar2 oPar2=THIS oDeyFunc.Clonar_Objeto(@oPar,@oPar2, , , xExclusion) ENDIF IF oPar.ex_xls_campos_count>0 THEN DIMENSION THIS.ex_xls_campos(ALEN(oPar.ex_xls_campos,1),ALEN(oPar.ex_xls_campos,2)) ENDIF THIS.ex_xls_campos_agregar() FOR nIt=1 TO ALEN(oPar.ex_xls_campos,1) THIS.Clonarse_Campo(oPar,nIt,xNoCrearFormato, xNuevoIDU) NEXT *=sys_m("oPar2") * xField AS STRING ,xLabel AS String , xPos AS INTEGER, xTotal_Separa as Boolean , xTotal_General as Boolean, xFormato as Object, xOperacion as String , xDesdeCrystal, xIDU ENDPROC PROCEDURE do_aplicar_crystal_campos LPARAMETERS oCrystal as crystal of clases.vcx oCrystal.campos_agregar() DIMENSION oCrystal.Campos(ALEN(THIS.ex_xls_campos,1),ALEN(THIS.ex_xls_campos,2)) FOR nIt=1 TO ALEN(THIS.ex_xls_campos,1) IF NOT EMPTY( THIS.ex_xls_campos(nIt,1)) * this.ex_xls_campos_agregar( oCrystal.Campos(nIt,1), oCrystal.Campos(nIt,2),,oCrystal.Campos(nIt,3),oCrystal.Campos(nIt,4),oCrystal.Campos(nIt,6),oCrystal.Campos(nIt,5)) oCrystal.campos_agregar(this.ex_xls_campos(nIt,1), this.ex_xls_campos(nIt,2),,this.ex_xls_campos(nIt,3),this.ex_xls_campos(nIt,4),this.ex_xls_campos(nIt,5),this.ex_xls_campos(nIt,6),this.ex_xls_campos(nIt,5),this.ex_xls_campos(nIt,8)) ENDIF NEXT IF THIS.ex_xls_campos_count>0 then DIMENSION oCrystal.Campos(THIS.ex_xls_campos_count ,ALEN(oCrystal.Campos,2)) ENDIF ENDPROC PROCEDURE do_aplicar_grilla_formato LPARAMETERS oGF as Grilla_Formato of as form_controles.vcx oGF.for_add_columna() FOR nIt=1 TO ALEN(THIS.ex_xls_campos,1) IF NOT EMPTY( THIS.ex_xls_campos(nIt,1)) oGF.for_add_columna (THIS.ex_xls_campos(nIt,8),; "."+THIS.ex_xls_campos(nIt,1),; THIS.ex_xls_campos(nIt,2),,,,,,,,,,,,,,,; THIS.ex_xls_campos(nIt,4),THIS.ex_xls_campos(nIt,3),,,; THIS.ex_xls_campos(nIt,6); ) *!* THIS.ex_xls_campos(xPos,1)=xField *!* THIS.ex_xls_campos(xPos,2)=xLabel *!* THIS.ex_xls_campos(xPos,3)=xTotal_Separa *!* THIS.ex_xls_campos(xPos,4)=xTotal_General *!* THIS.ex_xls_campos(xPos,5)=xOperacion *!* THIS.ex_xls_campos(xPos,6)=xFormato ENDIF NEXT ENDPROC PROCEDURE ex_xls_campos_reordenar LPARAMETERS xCodigo, xNuevaPosicion, xPosicionActual LOCAL nIt DIMENSION tArray(ALEN(this.ex_xls_campos,1),ALEN(this.ex_xls_campos,2)) =ACOPY(this.ex_xls_campos,tArray) oDeyFunc.Array_Reordenar_Item(@tArray,,xNuevaPosicion,xCodigo,8) =ACOPY(tArray, this.ex_xls_campos) ENDPROC PROCEDURE aplicar_formato_columna LPARAMETERS oGrilla as Grilla of Form_Controles, xColumna LOCAL oFor as exportaciones_parametros_formato OF imp_exp.vcx *=sys_m("Formato") xColumna=EVL(xColumna,oGrilla.columna_actual ) LOCAL oCol as Column oCol=oGrilla.Columns(xColumna) oFor=this.ex_xls_campos(xColumna,6) IF typeo(oFor) THEN oFor.fo_aplica_control(oCol) ENDIF ENDPROC PROCEDURE clonarse_campo LPARAMETERS oPar, nIt,xNoCrearFormato,xNuevoIDU, xIDU xIDU=EVL(xIDU,"") THIS.ex_xls_campos_agregar( ; oPar.ex_xls_campos(nIt,1), ; oPar.ex_xls_campos(nIt,2),,; oPar.ex_xls_campos(nIt,3),; oPar.ex_xls_campos(nIt,4),; oPar.ex_xls_campos(nIt,6),; oPar.ex_xls_campos(nIt,5),xNoCrearFormato, IIF(xNuevoIDU, xIDU,oPar.ex_xls_campos(nIt,8))) ENDPROC PROCEDURE columna_eliminar LPARAMETERS xColumna, xTodos xDesde=IIF(xTodos,1,xColumna) xHasta=IIF(xTodos,THIS.ex_xls_campos_count,xColumna) LOCAL nIt FOR nIt=xDesde TO xHasta =ADEL(THIS.ex_xls_campos,IIF(xTodos,1,xColumna) ) IF ALEN(THIS.ex_xls_campos,1)>1 THEN DIMENSION THIS.ex_xls_campos(ALEN(THIS.ex_xls_campos,1)-1, ALEN(THIS.ex_xls_campos,2)) ENDIF THIS.ex_xls_campos_count= THIS.ex_xls_campos_count-1 NEXT ENDPROC PROCEDURE clon_crear LPARAMETERS xNoCrearFormato AS Boolean, xNuevoIDU AS Boolean, xSolo_Campos AS Boolean oParO=NEWOBJECT("exportaciones_parametros", "imp_exp.vcx") oParO.Clonarse(this) RETURN oParO ENDPROC PROCEDURE Init this.cel_rango = newOBJECT("exportaciones_xls_rango","imp_exp.vcx") ENDPROC  lexcel Objeto para contener la instancia del Excel abierta lxls_origen Archivo de origen de los datos lxls_temporal Copia temporal creada para importar lworkbook Hoja abierta en el excel con los datos a importar lcolumnas_count Nmero de columnas a importar lhoja Hoja a utilizar ldbf_destino Dbf de destino de la importacin ldbf_alias Alias usado internamente para procesos lcol_vacias_count rec_malas rec_buenas val_art_cod_ins val_art_bul val_art_atr val_art_descr usar_odbc lexcel_propio usar_celdas lxls_offset Especifica desde que fila empieza a importar al hacerlo celda por celda. - 1=Header, 2>Dato a importar lcol_encontradas_count usar_columnas_fijas_celdas Cuando esta en T no busca las columnas, las usa fijas por orden. lxls_hoja lxls_filaforzada lxls_tipo lxls_subtipo lxls_version lxls_cargar_estructura lxls_point lxls_separator usar_csv lcsv_head lxls_codigo val_valido lcsv_char lxls_filasvacias var_l1 usar_fijo usar_lee_estructura lxls_offset_ejemplo lcsv_strconv val_func Funcion para validar las filas al importar val_column val_art_codalt val_usar_codalt lxls_hoja_actual Nro de hoja actual que se est procesando lxls_hojas_todas Si est en .T. trabaja sobre todas las hojas recursivamente. (TODAS TIENEN QUE TENER EL MISMO FORMATO) lxls_hoja_campo Nombre del campo donde se guarda el nombre de la hoja de la cual proviene el dato suspender val_pre val_pos lxls_nombre lxls_obs xls_omitir_errores_lectura val_crear_columna lxls_crear_columnas_automatico lxls_crear_columnas_automatico_cantidad subclase val_nousar_bulatr Si se pone en .T. vacia las validaciones de bulto y atributo tx_confirma p_suspend *abrir_excel *dispose *abrir_datos *preparar_temporal *aplicar_formato *importar *preparar_formato Prepara el formato de columnas *agregar_columna Agregar una columna a importar *crear_plantilla Crea una plantilla con los datos a importar *crear_libro Crear un libro en blanco *formato_header *guardar_dbf Guardar datos como DBF *eliminar_registro_formato Eliminar el registro conteniendo el formato creado temporalmente *aplicar_formato_dbf *ext_pos_importar Llamada externa para ejecutar procesos luego de la importacin. *agregar_columna_vacia Mtodo para agregar columnas vacias luedo de importar el archivo de excel. *abrir_dbf *cerrar_dbf *insertar_columnas_vacias *validar_datos *validar_fila *validar_articulo *xfile_tmp *crear_columnas *limpiar_todo *rec_hay_malas *rec_hay_buenas *antes_de_validar *agregar_leyendas *obtener_datos *limpiar_y_mostrar *obtener_datos_celdas *crear_dbf *guardar_datos_celda *igualar_valores *buscar_columnas_celdas *agregar_columna_encontrada *igualar_valores_fechas *seleccionar_hoja *importar_csv *obtener_datos_csv *pos_validar *pre_validar *importar_fijo *obtener_datos_fijo *aplicar_separadores *enumerar_columnas_celdas *crear_dbf_estructura *agregar_columna_enumerada *buscar_columnas_repeticiones ^lcol_encontradas[1,10] ^lcol_vacias[1,10] ^lcolumnas[1,10] *llenar_datos *clonarse *sql_crear_columnas *imp_xls_crear_columnas *imp_exp_crear_columnas *crear_columnas_automatico *crear_columnas_automatico_pos *mensaje_suspendo_log *loguear *nueva_fila *nueva_columna *sys_m 2A"(2(2 %k,1-U %C= FQFQ%CNEC3No se han devuelto registros para exportar a excel. FQB-% INDEX ON &xOrden TAG &xTag E%Cthis.parametros.ex_tabla_filtrobC C |T SET filter TO &xFiltt (C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} U XTABLAXALIASXORDENXTAGZAAAMENSAJEXFILTTTHIS PARAMETROSEX_TABLA_FILTRO^BQEXPORTACIONES_PARAMETROSF:\sistema\2000\imp_exp.vcxT TC TCC TC HW  TT3 C CC_v_xls0 P%TC_v_xls T 2W$%CC_v_*]  crystal_xls("%CfC reporte.xlsfTC T #TC reporte.xls T S#TC reporte.xls TU XPLANILLAXOTRA_PLANILLAXPLANILLA_FINALXPLXTMPXPATHXPAR1FTHIS PARAMETROSEX_ARCHIVO_PLANTILLAEX_ARCHIVO_ENTRADAODEYFUNCGET_PATHEX_ANEXAR_USARFINALEX_TITULO_HOJA CRYSTAL_XLSG$QEXCEL.APPLICATION3CIniciando creacin y aperturaBQEXPORTACIONES_PARAMETROSF:\sistema\2000\imp_exp.vcxT%C0 "% C No existe  $C No existe B- Q!TCexcel.applicationN( % ?C%No se puede abrir la aplicacin ExcelC   0CError CREATE Excel:  % 7 *(( 3% CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa. 9CNo se puede crear :  Ta YC( % .CNo se puede abrir el archivo  7CNo se puede abrir el archivo  < :C$Salida normal de creacin y aperturaU XPLANILLAXPLANILLA_FINAL XEXCELAPPLOG_AUT_VERBOSETHISVERBOSEXPAR1F PARAMETROSLOG_AUTMENSAJEOOBJMESSAGEEX_ANEXAR_USARFINALVISIBLE WORKBOOKSOPENQUIT%C1 T T+CC g;TCC 8C@C 8 63TC@CCGCG6   'T CT%Cc!TU XCAMPOSARR XACTSHEET XMAXFIELDSXINIROWZCELLSCOPYXCOLSELECTPASTEVALUE /QEXCEL.WorkbookQEXCEL.Workbook FTC .xls T(TCC% T,E%Cthis.parametros.ex_tabla_filtrobC C bCOPY TO (xPlanilla_Aux) FIELDS &xFields TYPE XL5 FOR EVALUATE(THIS.parametros.ex_tabla_filtro) 4COPY TO (xPlanilla_Aux) FIELDS &xFields TYPE XL5 TC F(*%C.CCbD%CC JTC exportaciones_parametros_Formato imp_exp.vcxTa BUXALIAS XPLANILLA_AUXOXLS XCAMPOSARR XMAXFIELDSXFIELDSZOWBDATA OWBTEMPORALODEYFUNCNEWFILE_LOCAL_TMPTHIS PARAMETROSEX_TABLA_FILTRO WORKBOOKSOPENTYPEO FO_ESFECHA6QEXCEL.WorkbookQEXCEL.APPLICATIONFQEXPORTACIONES_PARAMETROS imp_exp.vcxQ COLLECTIONTC CollectioneQEXCEL.WorkbookQEXCEL.WorksheetQBOOLEANQINTEGER QEXCEL.WorksheetT T -%CCxls0 STC  Ta uTC %  C   T'Q EXCEL.NAMEQ EXCEL.NAMEP BTC  L% & T C %C xDelSheetbOT  _OLD4% C xDelSheetbO "C \CC { CUXANEXAR_ARCHIVOXOLD_WB XEXCELAPPXPAROCOLLDELXNEW_WB XACTSHEET XSHEETS_DELNIT XDELSHEETTHIS PARAMETROS DISPLAYALERTS WORKBOOKSADDOPENEX_ANEXAR_LIMPIASHEETSNAMEONAMEONAME2NAMESDELETEEX_ANEXAR_REEMPLAZA WORKSHEETSEX_TITULO_HOJAMOVECOUNTSELECTSAVEAS 7% !CxParametros.ex_filtrosbO PB-T%T A3    T A3  U XACTSHEET XPARAMETROSXFILEX_FILTROS_MOSTRAR EX_FILTROSFIL_TEXTO_TIPOROWS ENTIREROWINSERTRANGEVALUEFILTRO_OBTENERXOBJFIL_COLL FIL_TEXTOTC TC ( ( TC #TUX XPARAMETROS XMAXFIELDSXWBXSHNITNIT2XVAL WORKBOOKSADDSHEETSEX_ARRAY_DATOS_FEX_ARRAY_DATOS_CEX_ARRAY_DATOSCELLSVALUET TCTCTC listadosTC*T CC \6T C %C TC   T %(d@%CCC (CCZ)6xls0 ;TCC (CCZ)6xls! TCxlsT T C%C @TC  ZTTCxlsT C U OPARAMETROSXPLANILLA_FINALXANEXAR_ARCHIVOXANEXAR_PLANILLAZXTMP XTMP_PATH XTMP_NAMEXTMP_EXTEX_ARCHIVO_SALIDALIMPIAR_FILE_NAMELISTADOSXPATHTMPODEYFUNCGET_PATHTHISARCHIVO_SALIDA_RENOMBRAEX_ANEXAR_ARCHIVOEX_ANEXAR_PLANILLAEQEXPORTACIONES_XLS_CELDAf:\sistema\2000\imp_exp.vcxTT%CT T %CT T T T T CT '%CoCel.valorformulabCT  T "%C oCel.FormatobOC T-U XACTSHEETOCELFXNCOLXNFILXWRKFXWRKCWRK_OFFSET_FULL_FILAWRK_OFFSET_FULL_COLDIR_FILADIR_COLACT_FILAACT_COLXCELACTCELLSXLS_CELLFORMULA VALORFORMULAVALUEVALORFORMATO FO_APLICA%5QEXPORTACIONES_XLS_RANGO imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx  T T$%CoCCel.Act_FilabNT#%C oCCel.Act_ColbNT % _T a.C!xActSheet.Application.Visible=.t. %CTT-%CoCel.cel_padre.act_filabN%T ;%T 7T%gT %T TC-%CoCel.cel_padre.act_filabN*TTC -%CoCel.cel_padre.act_filabNTTTTC-%CoCel.cel_padre.act_filabN!TCD!TCD!TCD!TCD<TC CF6<TC CF6U XACTSHEETOCCELIMP_EXPVCXOCEL XACT_FILAXACT_COLACT_FILAACT_COLCEL_COLL VFP_SUSPENDER APPLICATIONVISIBLESYS_MCEL_RANGO_TIPOWRK_OFFSET_COLWRK_OFFSET_FILAUSO_PADRE_FILA CEL_PADREUSO_PADRE_PROPIO_FILAUSO_FILA USO_PADRE_COLUSO_PADRE_PROPIO_COLUSO_COLTHISCEL_EXPORTAR_COLL APLICAR_BORDEOFF_COLOFF_FILA CEL_EXPORTAR ACT_INI_FILA ACT_INI_COL3ClargosTCCxls  /T@CC 8 C 86!TC@C 6T@CG"TC@zC 6T   /QEXCEL.WorkbookQEXCEL.WorkbookTC TT-TT T( TCC% T,T- 7T(E F T T  TCN+CT  wCOPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xFields TYPE XL5 T  T T T !T " T( $TC_CCZ #T "a$%ACCC6Z: CCC  6Z&9TCC6C$' C(T )C*TT T % T+T< BU,XALIAS XPLANILLA_AUXOXLS XCAMPOSARR XMAXFIELDSX1X2NITSYS_MODEYFUNCNEWFILE_LOCAL_TMPXRANGO XRECCOPIADOXPLAN XRECACTUAL XRECFALTAXDISPLAYALERTSXPATH XLIBROBASEXLIBROMVOEXXCL1XCL2OWBDATA OWBTEMPORAL DISPLAYALERTSXVISIBLEVISIBLEXTOPTOPXFIELDSZ WORKBOOKSADDCOUNTOPENSHEETSRANGECOPYCELLS PASTESPECIALCLOSESAVEAS WINDOWSTATETUTHISARCHIVO_SALIDA_RENOMBRA!P_XLS_SOLO_RENOMBRA_DESDE_CRYSTALpreparar_tabla0plantilla_seleccionabriendo_archivos_excelpreparando_encabezado abrir_planilla_auxiliar anexar_planilla0agregar_filtros  copiar_arraypreseleccion_planillas2 cel_exportarcel_exportar_collabrir_planilla_largosE%Init ,11AA!RQAqABAqR1AAA2!!QA!1QA!11A1AA3A2!"1AAqA!AA4"! AAAAA!qAqA21Aq1qAAA4q1!ABR!AAAAA2abQAAAqAAtAqAAqAAAAACAA2Q6qqqAbBAA3rBA1AA31rq13A#AAABa2Aa3Q2AAAAq11A!AA:QAA1AB!Aa!a!1AA!a!1AAARaaAQAQAAA3q1b!q1!ABAAqA11A1BAAAq3Q1$<'GmS>ltn0%$@ $T(q(|(?1hk1:#:e:<)(2^"EE%UT UTHISCRY_TIPO_EXPORTACIONEXP_BASEZ%CxAbrirbN6TT CUXABRIRTHISOFORM XLS_ABRIRCRY_TIPO_EXPORTACIONEXP_BASEhH a PCC CC  CCCC  CCCC   aCC  CC UXDESTINO XDESTINO2 XDESTINO3THISCRY_TIPO_EXPORTACIONFIL_COPIAR_TABLAFIL_ANALIZAR_PATH FIL_TABLAFIL_COPIAR_XLS FIL_EXCELFIL_COPIAR_XL5FIL_EXCEL_PLANOLOG_AUT_SALIDA FIL_ARCHIVO  T T%CPTC jTC%CCա TC %C T TCBCUXDESTINOXFILXDIRTHIS FIL_TMP_TABLAFIL_DIRECTORIO %C,TTCdbfTCdbf%CCfCCf%CCdbf0$Cdbf(Cdbf%CCfpt0$Cfpt(Cfpt%CCidx09$Cidx(Cidx%CCcdx0{$Ccdx(CcdxTCdbfUXDESTINOXTABLATHIS FIL_TMP_TABLA FIL_TABLA %C,TTCxlsFQ (ԻQTUXDESTINOXTABLATHIS FIL_TMP_TABLA TMPEXPCRYFIL_EXCEL_PLANO %C%T%TCC reporte.xls ~ TCCTCxls(TUXDESTINOXXLSP_CRYSTAL_VERSIONTHIS FIL_TMP_TABLAOFORM XLS_ARCHIVO FIL_EXCELrTTaTa%nTaCHG CCa    CT a  CT- TCC Crear PDFCa DCCC0 SI NO 6Existe  C6%C T%C4T%C_T B\CCCRf.DBF.dbf6  B\CCCRf.XLS.xls6  cB\CCCRf.PDF.PDF6 m>TCCCRf.XLS.xls6TT a T-HTCCCCRf.PDF.pdf6C Crear PDFCa DCCC0 SI NO 6Existe \CCCRf.DBF.dbf6(\CCCRf.DBF.dbf6 2GB-TC UTHISOFORMLOG_PATHMOSTRAR_EXTERNOMANTENER OFORM_MOSTRAR SOLO_SALIRSHOWCRY_TIPO_EXPORTACION EJECUTAR_SQL BTNVISUALIZARCLICK AUTOMATIZADO BTNEXPORTAR XPDFPROMPT XPDFARCHIVOFIL_DIRECTORIO FIL_ARCHIVOLOG_AUT_SALIDABTNPDF FIL_TABLA FIL_EXCELFIL_PDF XLS_ARCHIVO XLS_ABRIRARCHIVOTEMPORAL FIL_TMP_TABLAARCHIVOFIL_COPIAR_ARCHIVOST UTHISCRY_TIPO_EXPORTACIONEXP_BASE%C\HT\Log\Exportaciones\C_CC.txtJTUTHISLOG_PATHP_SYSTEM OFORM_NAMEOFORMZ%CxAbrirbN6TT CUXABRIRTHISOFORM XLS_ABRIRCRY_TIPO_EXPORTACIONEXP_BASEQFORM)%CoPadre.crystal_viewbLXC crystal_view)%CoPadre.form_reportebLC form_reporte$%CoPadre.bloqueobOG~(form_controles!CbloqueoBloqueoTaTT aT a%nC C U OPADREXCRYSTAL ADDPROPERTYFORM_CONTROLES ADDOBJECT CRYSTAL_VIEW FORM_REPORTETHISOFORMBLOQUEOBLOQUEARMOSTRAR_EXTERNOSHOWCaUOPADRETHISEXP_MOSTRAR_FORM T CUTHISCRY_TIPO_EXPORTACIONEXP_BASE UXDESTINOXPDFO-%C this.oformbO C H T-UTHISOFORMRELEASE< %5CUXIDXTEXTOTHISLOG_AUTLOG_AUT_VERBOSEVERBOSE%CoSQLbOZ"sys_clases_conexion%C % T  C B C T TC(T% OT   vT  T  % C  BUOSQLXTABLAXAUTXOKOEXOEX2 OBTENER_SQLSYS_CLASES_CONEXIONCONECTARTHIS EXP_MENSAJEMENSAJE EXP_TABLA FIL_TABLASQL_SUBIR_TABLA USERVALUEMESSAGEZ%CxAbrirbN6TT CUXABRIRTHISOFORM XLS_ABRIRCRY_TIPO_EXPORTACIONEXP_BASECUOPROPS PROP_APLICARTHISOFORM?%CxForm 8T UXFORMTHIS OFORM_NAME OFORM_OBTENER CUTHISDISPOSE exp_tabla0 exp_excel{fil_copiar_archivosfil_analizar_pathRfil_copiar_tablafil_copiar_xl5hfil_copiar_xls4exp_baseTexp_excel_plano9 oform_obtenerexp_tabla_y_excelIexp_mostrar_formexp_mostrar_reporteexp_pdfVfil_copiar_pdfdisposelog_aut_salida7exp_sqlexp_tabla_excel_pdf/leer_propiedadesInitDestroy13q1A4aaaaaA2q1ARQ1AA3AaaAAAAAAAAB3AaA21QAAa!2e#1AbqAArD1AA1AA1A!A!A!A2AAdqA32AAqa2q1A41AAAA1a1A5q!248A2!A2!AB1ABBBa11AAAA3q1A4q13qrA21]} FHp'0'BF$  ^Q; { k] xDg4 RB$"*"s#Z##e#S$jq$$r)ER"99 E%K"U %C= FQFQ%CN@C3No se han devuelto registros para exportar a oOOSM. FQB-% INDEX ON &xOrden TAG &xTag E%Cthis.parametros.ex_tabla_filtrobC C wT SET filter TO &xFiltt (C.%CC/bDTC/8REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} U XTABLAXALIASXORDENXTAGZAAAMENSAJEXFILTTTHIS PARAMETROSEX_TABLA_FILTRO TCTCCTC 3%C CC_v_ods0 TCods T $%CC_v_*] z crystal_xls("%CfC reporte.odsf<TC T v#TC reporte.ods T #TC reporte.ods TU XPLANILLAXOTRA_PLANILLAXPLXTMPXPATHTHIS PARAMETROSEX_ARCHIVO_PLANTILLAEX_ARCHIVO_ENTRADAODEYFUNCGET_PATH CRYSTAL_XLS-QCOM.sun.star.frame.Desktop%C0 `C No existe xB- ((!CNo se puede crear C cRevise entre las tareas en ejecucin que no exista una instancia de oOOSM creada por este programa.x C T(-CNo se puede abrir el archivo x < U XPLANILLAXPLANILLA_FINAL XOOOSMAPPOOBJXURLQUIT! T+CC ;TCC 8C@C 8 63TC@CCGCG6 +CT%C!TU XCAMPOSARR XACTSHEET XMAXFIELDSZXCOLGETCELLBYPOSITION SETSTRING  FTC.ods T(TCC% T,E%Cthis.parametros.ex_tabla_filtrobC C ZbCOPY TO (xPlanilla_Aux) FIELDS &xfields TYPE XL5 FOR EVALUATE(this.parametros.ex_tabla_filtro) 4COPY TO (xPlanilla_Aux) FIELDS &xfields TYPE XL5  T U XALIAS XPLANILLA_AUX XOOOSMAPP XCAMPOSARR XMAXFIELDSXFIELDSZODEYFUNCNEWFILE_LOCAL_TMPTHIS PARAMETROSEX_TABLA_FILTROXURL6QOOOSM.WorkbookQOOOSM.APPLICATIONFQEXPORTACIONES_PARAMETROS imp_exp.vcxQ COLLECTIONTC CollectioneQOOOSM.WorkbookQOOOSM.WorksheetQBOOLEANQINTEGER QOOOSM.WorksheetT T -%CCods0 STC  Ta uTC %  C   T'Q OOOSM.NAMEQ OOOSM.NAMEP BTC  L% & T C %C xDelSheetbOT  _OLD4% C xDelSheetbO "C \CC { C UXANEXAR_ARCHIVOXOLD_WB XOOOSMAPPXPAROCOLLDELXNEW_WB XACTSHEET XSHEETS_DELNIT XDELSHEETTHIS PARAMETROS DISPLAYALERTS WORKBOOKSADDOPENEX_ANEXAR_LIMPIASHEETSNAMEONAMEONAME2NAMESDELETEEX_ANEXAR_REEMPLAZA WORKSHEETSEX_TITULO_HOJAMOVECOUNTSELECTSAVEASCLOSE 7% !CxParametros.ex_filtrosbO PB-T%T A3    T A3  U XACTSHEET XPARAMETROSXFILEX_FILTROS_MOSTRAR EX_FILTROSFIL_TEXTO_TIPOROWS ENTIREROWINSERTRANGEVALUEFILTRO_OBTENERXOBJFIL_COLL FIL_TEXTOT-UTHISOSMpreparar_tabla0plantilla_seleccionabriendo_archivos_odspreparando_encabezadoabrir_planilla_auxiliar3anexar_planillaz agregar_filtrosfDestroy'11AA!RAqABAqR1AAA2QA2aA!11A1AA2"qA!AAqqA3q1AAA4q1!ABR!AAv>abQAAAqAAtAqAAqAAAAACAA2Q5qqqAbBAA31$6>K% ^YS xl )9"wwR% U BUTHISNAMET UVNEWVALTHIS PAR_CAPTION BUTHISVALUET UVNEWVALTHISVALUE BU UVNEWVALpar_caption_access0par_caption_assignSpar_desde_accesspar_desde_assignpar_hasta_accesspar_hasta_assign13q"33q"33q4d`  L s)w:pPROCEDURE preparar_tabla LPARAMETERS xTabla, xAlias, xOrden, xTag LOCAL z,aaa IF USED(xTabla) THEN SELECT (xTabla) USE ENDIF SELECT 0 USE (xTabla) ALIAS (xAlias) AGAIN IF RECCOUNT(xAlias)=0 THEN =Mensaje("No se han devuelto registros para exportar a excel.",,-1) SELECT (xAlias) USE RETURN .F. ENDIF IF NOT xOrden=='' THEN INDEX ON &xOrden TAG &xTag ENDIF LOCAL xFiltt IF TYPE("this.parametros.ex_tabla_filtro")="C" AND not EMPTY(this.parametros.ex_tabla_filtro) THEN xFiltt=this.parametros.ex_tabla_filtro SET filter TO &xFiltt ENDIF FOR z=1 TO FCOUNT() IF TYPE(FIELD(z))="D" aaa=FIELD(z) REPLACE &aaa WITH {^1980-01-01} FOR EVALUATE(aaa)={} ENDIF ENDFOR ENDPROC PROCEDURE plantilla_seleccion LPARAMETERS xPlanilla, xOtra_Planilla, xPlanilla_Final LOCAL xPL, xTMP, xPath LOCAL xPar1 AS Exportaciones_Parametros OF F:\sistema\2000\imp_exp.vcx xPar1=THIS.Parametros xPL=ALLTRIM(xPar1.ex_archivo_plantilla) xTMP=JUSTSTEM(ALLTRIM(xPar1.ex_archivo_entrada)) xPath=oDeyFunc.Get_Path(3) DO CASE CASE xPar1.ex_anexar_usarfinal xPlanilla=xPlanilla_Final xOtra_Planilla=xPar1.ex_titulo_hoja CASE NOT EMPTY(xPL) .AND. FILES(FORCEEXT(xPath+xTMP+"_v_"+xPL,"xls")) xPlanilla=FORCEEXT(xPath+xTMP+"_v_"+xPL,"xls") xOtra_Planilla=2 OTHERWISE IF NOT EMPTY (SYS(2000,xPath+xTMP+"_v_*")) DO FORM crystal_xls WITH xTMP TO xPlanilla IF UPPER(xPlanilla)#UPPER("reporte.xls") xPlanilla=xPath+ALLTRIM(xPlanilla) xOtra_Planilla=2 ELSE xPlanilla = oDeyFunc.Get_Path(2)+'reporte.xls' xOtra_Planilla=1 ENDIF ELSE xPlanilla = oDeyFunc.Get_Path(2)+'reporte.xls' xOtra_Planilla=1 ENDIF ENDCASE ENDPROC PROCEDURE abriendo_archivos_excel LPARAMETERS xPlanilla, xPlanilla_Final, xExcelApp AS Excel.APPLICATION =Log_Aut_Verbose(this.verbose,"" ,'Iniciando creacin y apertura') LOCAL xPar1 AS Exportaciones_Parametros OF F:\sistema\2000\imp_exp.vcx xPar1=THIS.Parametros IF !FILE(xPlanilla) THEN IF NOT this.log_aut THEN =Mensaje('No existe '+xPlanilla) ELSE =Log_Aut_Verbose(this.verbose,"" , 'No existe '+xPlanilla) ENDIF RETURN .F. ENDIF *!* TRY *!* xExcelApp=GETOBJECT(,'excel.application') *!* CATCH TO oOBJ *!* IF this.log_aut THEN *!* =Mensaje('No se puede abrir la aplicacin Excel'+CHR(13)+oOBJ.Message) *!* ELSE *!* =Log_Aut_Verbose(this.verbose,"" ,'Error GET Excel:'+oOBJ.Message) *!* ENDIF TRY xExcelApp=CREATEOBJECT("excel.application") CATCH TO oOBJ IF this.log_aut THEN =Mensaje('No se puede abrir la aplicacin Excel'+CHR(13)+oOBJ.Message) ELSE =Log_Aut_Verbose(this.verbose,"" ,'Error CREATE Excel:'+oOBJ.Message) ENDIF THROW oOBJ ENDTRY *!* ENDTRY IF NOT xPar1.ex_anexar_usarfinal THEN TRY COPY FILE (xPlanilla) TO (xPlanilla_Final) CATCH TO oOBJ IF this.log_aut THEN =Mensaje('No se puede crear '+xPlanilla_Final+CHR(13)+'Revise entre las tareas en ejecucin que no exista una instancia de Excel creada por este programa.') ELSE =Log_Aut_Verbose(this.verbose,"" , 'No se puede crear '+xPlanilla_Final+": "+oOBJ.Message) ENDIF xExcelApp.VISIBLE=.T. THROW ENDTRY ENDIF TRY xExcelApp.workbooks.OPEN(xPlanilla_Final) CATCH TO oOBJ IF this.log_aut THEN =Mensaje('No se puede abrir el archivo '+xPlanilla_Final) ELSE =Log_Aut_Verbose(this.verbose,"" ,'No se puede abrir el archivo '+xPlanilla_Final) ENDIF xExcelApp.QUIT RELEASE xExcelApp THROW oOBJ ENDTRY =Log_Aut_Verbose(this.verbose,"" , 'Salida normal de creacin y apertura') ENDPROC PROCEDURE preparando_encabezado LPARAMETERS xCamposArr, xACTSheet, xMaxFields, xIniRow IF EMPTY(xIniRow) THEN xIniRow=3 ENDIF LOCAL z xACTSheet.cells(xIniRow,1).COPY z=1 DO WHILE NOT EMPTY(xCamposArr[z,1]) xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xACTSheet.cells(xIniRow,z).SELECT xACTSheet.paste xACTSheet.cells(xIniRow,z).VALUE = xCamposArr[z,2] z=z+1 IF z>ALEN(xCamposArr,1) THEN EXIT ENDIF ENDDO xMaxFields=z-1 ENDPROC PROCEDURE abrir_planilla_auxiliar LPARAMETERS xAlias,xPlanilla_Aux,oXLS,xCamposArr,xmaxfields LOCAL xFields,z LOCAL oWBData as Excel.Workbook, oWBTemporal as Excel.Workbook * * Crea la planilla auxiliar * SELE (xAlias) xPlanilla_Aux =oDeyFunc.NewFile_Local_TMP()+".xls" xFields = "" FOR z=1 TO xmaxfields xFields = xFields + ALLTRIM(xCamposArr[z,1]) IF z0 xPlan = xPlan + 1 COPY TO (xPath+"_"+ALLTRIM(STR(xPlan))) FOR BETWEEN(RECNO(),xRecActual+1,xRecActual+65000) FIELDS &xFields TYPE XL5 xRecCopiado = _TALLY xRecFalta = xRecFalta - xRecCopiado xRecActual = xRecActual + xRecCopiado ENDDO oWBData=oXLS.workbooks.ADD xLibroBase = oXLS.workbooks.COUNT xRecActual = 1 FOR nIt=1 TO xPlan oWBTemporal=oXLS.workbooks.OPEN(xPath+"_"+ALLTRIM(STR(nIt))) xLibroMV = oXLS.workbooks.COUNT * oXLS.workbooks(xLibroMV).sheets(1).RANGE( "A"+ALLTRIM(STR(IIF(nIt=1,1,2)))+":"+xrango+ALLTRIM(STR(IIF(nIt=xPlan,xRecCopiado,65000)+1))).COPY oWBTemporal.sheets(1).RANGE( "A"+ALLTRIM(STR(IIF(nIt=1,1,2)))+":"+xrango+ALLTRIM(STR(IIF(nIt=xPlan,xRecCopiado,65000)+1))).COPY *xCL1=oXLS.workbooks(xLibroBase).sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1) xCL1=oWBData.sheets(1).Cells(xRecActual+1+IIF(nIt=1,-1,0),1) xCL1.PasteSpecial() xRecActual = xRecActual + 65000 oWBTemporal.CLOSE ENDFOR oWBData.SAVEAS(xPlanilla_Aux) *oXLS.workbooks(xLibroBase).CLOSE oXLS.DisplayAlerts = xDisplayAlerts xTop=oXLS.TOP TRY oXLS.TOP=xTop CATCH ENDTRY IF xVisible THEN oXLS.WINDOWSTATE= -4137 && xlMaximized ENDIF oXLS.VISIBLE=xVisible RELEASE oWBTemporal RETURN oWBData ENDPROC PROCEDURE Init this.archivo_salida_renombra=(p_xls_solo_renombra_desde_crystal=0) ENDPROC |"||F %q{rU"CQEXPORTACIONES_PARAMETROS imp_exp.vcxQINTEGERTC%sTG+(Dey_FuncTC OT T  T  $QEXCEL.APPLICATION T T T T T% {C PreEstadoT  T  Ta   E (A( =%TC(S T (Cn% '%CxCamposArr(nIt,1)bC%C T  T '%CxCamposArr(nIt,3)bLNT -'%CxCamposArr(nIt,4)bLT -'%CxCamposArr(nIt,5)bCT %SUMAR O%C T %SUMAR K#T CC fT  =0!"#$%&'T()T!*%CC!աT%C+,!  T%!T#ReportesT$- T. T/ T0T 11 C./0 2 T& T3T45T67T89T": T; T<TC= T>?T@?TABTCDC Entrada TEFGHI TaH/ J *TC%#$REP_XLS K(LCM T- J/% JB-C&;. N,CCreando planilla de Excel...O C&. P(Q(SCError: QRC Line: CCQSZC QTC QUO T-CCreada excel...O1VQEXCEL.WorksheetWQEXCEL.Worksheet/XQEXCEL.WorkbookYQEXCEL.WorkbookZ+"T[-T\-T]^_TXC]^TVC;X` Va/CProcesando el encabezamiento...O CV<> b%C4 TVc4 %<H   J >%CoParametros.ex_tabla_filtrobC Cd = Cd(E S TECN%E (TYC#3< e  (TYC#3< f J TYC< gTEh/Ti@CC< 8 C< 86!TiCi@Ci 6Tj@C<G"TjCj@zCj 6TkijH f  J@ >%CoParametros.ex_tabla_filtrobC Cd & Cd(l < TlCN Jf Tlh%l T.C.xlsxC.3Xm XnTXC.^oTVC;X`C.xls/Y`pA2:kCClZqrTrC>Vs Crt%> TrCCVsuT\-C-YnT\a&CAjustando Columnas ...O T<;TvCC 8C@C 8 63TvvC@CCGCG6 VwA:vxy%>TVsz"Vs>{ X`{"X`s{ (<'%CxCamposArr(nIt,6)bO@T|C--C> Vs}:C--C>l Vs}T~C CC|Vp~ %6 8 (TCreando separaciones ... F##) T Ta T T ~]T%~TC6%C6  Y% T>TV{CC (<%C A TC--C@ Vs}TC--C Vs}TC VsH/! C %SUMAR$T=Sum(:)" C %CONTARJ&T=COUNT(:)# C %CONTARA'T=COUNTA(:)* C %CONTAR.BLANCOS+T =COUNTBLANK(:) 2/%TZCC ?CCZxFormula=&xMacroTOT TTaCTTT0T  C  +C--}T T>V{CTTV{T- qV{C--tV{ !TVszC8 TVsaT@>TC6 T-% TT>V{CC (<%C A TC--C@ Vs}TC--C Vs}TC VsH! C %SUMAR$T=Sum(:)" C %CONTAR &T=COUNT(:)# C %CONTARAV'T=COUNTA(:)* C %CONTAR.BLANCOS+T =COUNTBLANK(:) 2%TZCC ?CCZxFormula=&xMacroTOT TTaCWTTT0T  C  +C--}T,CCreando totales generales...O (<%C C TC VsTC  TTaCTTT VaVs{ ,CCreando totales generales...O (<%C C TC--C Vs}&TC--Cl Vs}TCl VsHT! C %SUMAR$T=Sum(:)" C %CONTAR8&T=COUNT(:)# C %CONTARA'T=COUNTA(:)* C %CONTAR.BLANCOS+T =COUNTBLANK(:)" CC ='=5%TZCC ?CCZxFormula=&xMacroTOT 2TTC  TTaCTTT VaVs{%~Q EXCEL.NAME$TCCVc _-_BTCCC>VsC>l<VsVp%VVCV QEXCEL.workbookT%"`a!TZC?CC>lZTZ!TZC?CC>lZTZ  KT CC \TC. %T C =%CC fCCfG%CC 0'T C C8C El archivo CC  no existe !!!B-"(P*(CL)%CCH8(CCD1TCCC ! (C @F%CxParametros.ex_cr_archivos[w]bCC  <T C\C % T C/C ,% CC >  8T CC \TC. %sT C =%CC fCCf4%CC 0<T C 08C El archivo CC  no existe !!!B-U XPARAMETROSCRSUBREPORTOBJECTXTHIS CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWEX_CR_ARCHIVOSDIRBARFRMNAMEPOINTPOSMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT$ %/B(TC3%C ex_XLS_AbrirbN TH CC CCBaU EX_XLS_ABRIRNITXPARTHISPARAMETROS_COLLCOUNTEX_ENTRADA_TIPO EXPORTAR_XLSEXPORTAR_XLS_CELL4QEXPORTACIONES_PARAMETROS imp_exp.vcxTC%dTG+(Dey_FuncTCOT   QEXCEL.Application T  T T T TTa    (( %TC( T(C%r'%CxCamposArr(nIt,1)bCS%COT nT'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bLT-'%CxCamposArr(nIt,5)bC@T%SUMAR %CT%SUMAR #TCCfT =0 !"T#$TC%%CCT C&' Z T TReportesT( T!T"C)%C"T*C&') T*)T*C*xls T+T,-T"C.%C"_T/C&'. yT/.T/C/xlsT01 C. T23T45T6 T7 T8T9: T; T<T=>T?@ TABCDE T a *T C REP_XLS F(GCH T -% B-C!7 I,CCreando planilla de Excel...J ZC!*  K(Ls T -MQEXCEL.WorksheetNQEXCEL.Worksheet+ TOC PQTMC PR/CProcesando el encabezamiento...JT S CM8 T%C, ~ pTMU, z%8 $C+ 8 V>%Cxparametros.ex_tabla_filtrobC CW CW(A  TACN/TX@CC8 8 C8 86!TXCX@CX 6TY@C8G"TYCY@zCY 6TZXY+ [O\]A1^< [O\]A2:ZCCAZ^< [O\]A2:ZCCAZ_ T`A MaM]A4^ Mb [Oc-&CAjustando Columnas ...J T8;TdCC 8C@C 8 63TddC@CCGCG6 MeA:dfgTMhiMh^ [O\^' [O\]A1^(8 '%CxCamposArr(nIt,6)bO @TjC--C;Mhk:C--C;`MhkTlCCCjM]lm %2 4 !(TnCreando separaciones ... F#) To Tpa Tq Tr ~wTrr%pd TsC2%sC2 p s%p Tqo;rTtqMuqv^C wxC wx(8%C= TyC--C<MhkTzC--CqMhkT{CqMhHY! C%SUMAR$T|=Sum(y:z)" C%CONTAR0&T|=COUNT(y:z) 2YxFormula=&xCamposArr(nIt,5) T{}|T{~aC {TTT0T C +C--{kToo Tqo;rMuqv^C wxTtqTooMuqv^T - wMuqv^ MbMuqv^ w!TMhtiC4 TMht~aT<;roTsC2 Tp-%p TrrTqo;rMuqv^C wxC wx(8%C= TyC--C<MhkTzC--CqMhkT{CqMhHO! C%SUMAR$T|=Sum(y:z)" C%CONTAR&&T|=COUNT(y:z) 2OxFormula=&xCamposArr(nIt,5) T{}|T{~aC {TTT0T C +C--{kToo,CCreando totales generales...J(8%C? T{CqMhT|C T{}|T{~aC {TTTMh^ A,CCreando totales generales...J(8$%C? TyC--CMhk&TzC--C`MhkT{C`MhH! C%SUMARD$T|=Sum(y:z)" C%CONTAR&T|=COUNT(y:z) 2 xFormula=&xCamposArr(nIt,10) T{}|T{~aC {TTTMh^%Q EXCEL.Name$TCCMU _-_BTCCC;MhC;`8MhM] %MuMuCM T TCO [ 0 THEN DO CASE CASE oParametros.ex_entrada_tipo = 1 **** Crea y abre la planilla auxiliar (DBF->XLS) IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecCount ELSE xRecCount=RECCOUNT() ENDIF IF xRecCount>65000 THEN oWBData=THIS.f_xls.Abrir_Planilla_Largos(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ELSE oWBData=THIS.f_xls.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ENDIF CASE oParametros.ex_entrada_tipo = 2 oWBData=THIS.f_xls.copiar_array(@oXLS,@oParametros,@xMaxFields) xRecCount = oParametros.ex_array_datos_f ENDCASE * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 *!* * *!* * Copia los datos *!* * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).COPY *!* xRecordCount=xRecCount *!* oACTSheet.ACTIVATE *!* oACTSheet.cells(xIniRow+1,1).SELECT *!* LOCAL xSel *!* xSel=oXLS.SELECTION *!* xSel.PasteSpecial (-4163, -4142, .F., .F.) *!* oXLS.workbooks(xlibros+1).CLOSE(.F.) *!* =oEstado.Avance("Ajustando Columnas ...") *!* z=xMaxFields * * Copia los datos * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).Copy DO CASE CASE oParametros.ex_entrada_tipo = 1 IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecordCount ELSE xRecordCount=RECCOUNT() ENDIF CASE oParametros.ex_entrada_tipo = 2 xRecordCount= oParametros.ex_array_datos_f ENDCASE IF xRecordCount>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* oXLS.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* oXLS.workbooks(xlibros).Close *!* oXLS.workbooks.OPEN(xPlanilla_Final) xPlanilla_Final = FORCEEXT(xPlanilla_Final,"xlsx") oWBFinal.SAVEAS(xPlanilla_Final,51) oWBFinal.CLOSE oWBFinal=oXLS.workbooks.OPEN(xPlanilla_Final) oACTSheet=oWBFinal.sheets(xOtra_Planilla) DELETE FILE (FORCEEXT(xPlanilla_Final,"xls")) ENDIF * oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY oWBData.sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY LOCAL xTMPCel1 * xTMPCel1=oACTSheet.Cells(4,1) xTMPCel1=oACTSheet.Cells(xinirow+1,1) xTMPCel1.PasteSpecial() IF xinirow<3 * Para que elimine el formato de encabezado....solo se usa para exportaci "no estandard"...no es muy elegante, ya lo se... xTMPCel1=oACTSheet.Cells(3,1).Clear() endif oXLS.DisplayAlerts=.F. oWBData.CLOSE(.F.) oXLS.DisplayAlerts=.T. =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) oACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT IF xinirow>1 oACTSheet.Cells(1,1).VALUE = xTitulo oACTSheet.Cells(xIniRow+1,1).SELECT ELSE * No puede haber ttulo porque pisara el encabezado endif ENDIF oWBFinal.sheets(1).SELECT oWBFinal.sheets(1).Cells(1,1).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=oACTSheet.Cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+oACTSheet.Cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(oACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN *=sys_mostrar_Screen("Rengln",.t.) xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 oACTSheet.ROWS(xEndSep+2).EntireRow.SELECT oXLS.CutCopyMode = .F. oXLS.SELECTION.COPY oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.PasteSpecial (-4163, -4142, .F., .F.) oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.ClearContents ENDIF oACTSheet.Cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) oACTSheet.Cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN *=sys_mostrar_screen("Totales SIN separacin",.t.) IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=oACTSheet.Cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* *=sys_mostrar_screen("Totales generales CON separacin",.t.) =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=oACTSheet.Cells(4,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" CASE LEFT(xCamposArr(nIt,5),2)="'=" xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT OTHERWISE xFormula=xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ENDIF IF oParametros.ex_agregar_nombre_rango THEN LOCAL oName AS Excel.NAME, xNameTXT xNameTXT = STRTRAN(STRTRAN(oACTSheet.NAME, " ", "_"),"-","_") oName=oXLS.ActiveWorkbook.names.ADD(xNameTXT,oACTSheet.RANGE(oACTSheet.Cells(xIniRow,1),oACTSheet.Cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF oParametros.ex_sin_formato THEN oACTSheet.ROWS(1).DELETE oACTSheet.ROWS(1).DELETE ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_xls.Agregar_Filtros(oACTSheet,oParametros) ********************************************************* LOCAL oACWB AS Excel.workbook oACWB =oXLS.ActiveWorkbook IF oParametros.ex_xls_grafico THEN oACWB .sheets(oParametros.ex_xls_grafico_hoja).ChartObjects(oParametros.ex_xls_grafico_Nombre).ACTIVATE xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_values,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).VALUES = xMacroTOT xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_xvalues,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).XValues =xMacroTOT ENDIF oACWB .SAVE RELEASE oACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,oACWB ,oXLS) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") oACWB .sheets(1).SELECT oACWB .SAVE * Ahora solo lo cierro si no se va a abrir * oXLS.DisplayAlerts=.F. * xLiWB.CLOSE ENDIF IF oParametros.ex_entrada_tipo = 1 THEN DELETE FILE (xPlanilla_Aux) ENDIF oEstado.VISIBLE=.F. oParametros.ex_archivo_salida = xPlanilla_Final DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. CASE xXLS_Abrir = 4 xResp_O=.T. ENDCASE oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. IF xResp_O THEN * Ya viene abierta, solo la visibilizo oXLS.VISIBLE=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized DECLARE INTEGER SetForegroundWindow IN user32.DLL AS WinAPI_SetForegroundWindow INTEGER HWND WinAPI_SetForegroundWindow(oXLS.HWND) ELSE * Se cierra IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL(JUSTEXT(xPLanilla_Final),"Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF *!* IF xlibros=1 THEN * Un solo libro, salgo completamente IF oXLS.workbooks.COUNT>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y oXLS.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado oACWB .CLOSE oXLS.DisplayAlerts = .T. oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized oXLS.VISIBLE=.T. ELSE TRY oACWB .CLOSE CATCH ENDTRY oXLS.DisplayAlerts = .F. xWD=oXLS.HWND oXLS.QUIT IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* oXLS.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* oXLS.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* oXLS.DisplayAlerts = .T. *!* oXLS.ScreenUpdating = .T. *!* *!* oXLS.DisplayAlerts=.T. *!* oXLS.VISIBLE=.T. *!* ENDIF ENDIF RELEASE oXLS EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE oestado_chequear LPARAMETERS xMax as Integer IF TYPE("oEstado") # "O" or isnull(oEstado) THEN SET PROCEDURE TO Dey_func ADDITIVE RELEASE oEstado PUBLIC oEstado DO FORM estado NAME oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=chk_value(xMax,1000,"N") oEstado.VALUE=1 RETURN .t. ELSE RETURN .f. ENDIF ENDPROC PROCEDURE oestado_quitar LPARAMETERS xoEstado_Propio IF xoEstado_Propio and TYPE("oEstado")="O" THEN oEstado.RELEASE RELEASE oEstado ENDIF ENDPROC PROCEDURE exportar_crystal LPARAMETERS xParametros as Object , xImpresion as Boolean, xModal as Boolean xoEstado_Propio=this.oestado_chequear() IF xoEstado_Propio THEN oEstado.max=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,this.exportaciones_parametros,"O") this.oPar_Actual=xParametros * * ximpresion = .t. && imprime directamente * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THIS.crAplicacion = NULL THIS.crReporte = NULL THIS.crVista = NULL LOCAL xerror xerror=0 ON ERROR xerror=1 xoEstado_Propio=this.oestado_chequear(6) oEstado.Avance('Iniciando servidor de automatizacin...') THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") endif endif endif IF xerror=0 ON ERROR xerror=2 oEstado.Avance('Abriendo reporte...') IF FILE(xParametros.ex_archivo_reporte) THIS.crReporte = THIS.crAplicacion.OpenReport(xParametros.ex_archivo_reporte) IF xerror=0 ON ERROR &onerr oEstado.Avance('Configurando datos del reporte...') xok=.T. *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THIS.cr_localizar_tablas (xParametros) oEstado.texto='Pasando parmetros al reporte...' IF xok * * Configuracion General * THIS.crReporte.ReportTitle = xParametros.ex_titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF xParametros.ex_cr_dontchangenothing ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.cr_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+xParametros.ex_Cr_NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = xParametros.ex_Cr_CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = xParametros.ex_Cr_OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.ex_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF xParametros.ex_Cr_suprime_fecha * Suprime la fecha y la hora FOR z=1 TO THIS.crReporte.areas[2].sections[1].reportobjects.COUNT IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintDate1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintTime1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF xParametros.ex_Cr_param_usar THEN this.cr_param_aplicar (xParametros) ENDIF ***************************************************************************** IF NOT EMPTY(this.cr_func_edit) THEN LOCAL xFNC xFNC=this.cr_func_edit &xFNC ENDIF IF ximpresion THIS.crReporte.printersetup(0) oEstado.Avance('Imprimiendo...') THIS.crReporte.PrintOut(.T.) oEstado.VISIBLE=.F. ELSE oEstado.Avance('Configurando la visualizacin...') THIS.crVista = NEWOBJECT("CrystalViewer_top","Clases.vcx","",THIS.crReporte,xParametros.ex_Cr_Arbol,; xParametros.ex_Cr_archivos[1],; xParametros.ex_Cr_archivos[2],; xParametros.ex_Cr_archivos[3],; xParametros.ex_Cr_archivos[4],; xParametros.ex_Cr_archivos[5],; xParametros.ex_Cr_archivos[6],; xParametros.ex_Cr_archivos[7],; xParametros.ex_Cr_archivos[8],; xParametros.ex_Cr_archivos[9],; xParametros.ex_Cr_archivos[10]; ) oEstado.VISIBLE=.F. THIS.crVista.Show (IIF(xModal,1,0)) IF TYPE(xParametros.ex_cr_public_var)="L" THEN LOCAL xVar xVar=xParametros.ex_cr_public_var &xVar= this.crvista ENDIF ENDIF ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' no existe.') ENDIF ELSE =MESSAGEBOX('El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+MESSAGE()+")") ENDIF this.oestado_quitar (xoEstado_Propio) SET DEFAULT TO (P_SERVER) this.opar_actual=.f. ENDPROC PROCEDURE cr_param_aplicar LPARAMETERS xParametros as Object FOR nit=1 TO 10 *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("xParametros.ex_cr_Param(nIt,1)")="C" THEN *Limpio los valores por defecto que tengan asignado el parmetro THIS.crreporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THIS.crReporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nIt,1)).AddCurrentValue(xParametros.ex_cr_Param(nIt,2)) ENDIF NEXT ENDPROC PROCEDURE cr_localizar_tablas LPARAMETERS xParametros as Object crSubreportObject=5 FOR x=1 TO this.CRReporte.DATABASE.TABLES.COUNT RptName=this.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO this.CRReporte.Sections.COUNT FOR Y=1 TO this.CRReporte.Sections[z].ReportObjects.COUNT IF this.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE exportar_xls_coll LPARAMETERS ex_XLS_Abrir LOCAL nIt, xPar IF This.Parametros_Coll.count=0 THEN RETURN ENDIF FOR nIt=1 TO This.Parametros_Coll.Count xPar=This.Parametros_coll (nIt) IF nIt=This.Parametros_Coll.Count AND TYPE("ex_XLS_Abrir")="N" THEN xPar.ex_XLS_Abrir=ex_XLS_Abrir ENDIF DO CASE CASE INLIST(xPar.ex_entrada_tipo,1,2) This.Exportar_xls(xPar) CASE INLIST(xPar.ex_entrada_tipo,3) This.exportar_xls_cell(xPar) ENDCASE NEXT RETURN .t. ENDPROC PROCEDURE exportar_ods LPARAMETERS xParametros as exportaciones_parametros OF "imp_exp.vcx" xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_ods.parametros=xParametros * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * y = 6 = Objeto contenedor de los formatos de la columna * * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL xOK, x as Excel.Application && Constantes de EXCEL xlEdgeTop=8 xlEdgeBottom=9 xlAutomatic=-4105 xlContinuous=1 xlThin=2 oEstado.VISIBLE=.T. LOCAL z, aaa LOCAL xCamposArr(255,10) TRY LOCAL nit1,nit2 FOR nit1=1 TO 255 FOR nit2=1 TO 10 xCamposArr(nit1,nit2)=xParametros.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY ***Correccin para utilizar reportes del viejo formato y conteo de campos xColCount=0 FOR nIt=1 TO ALEN(xCamposArr,1) IF xColCount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xCamposArr(nIt,1)=="" THEN xColCount = nIt - 1 ENDIF ELSE xColCount = nIt - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xCamposArr(nIt,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xCamposArr(nIt,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xCamposArr(nIt,5)='%SUMAR' ELSE IF xCamposArr(nIt,5)=="" THEN xCamposArr(nIt,5)="%SUMAR" ELSE xCamposArr(nIt,5)=UPPER(xCamposArr(nIt,5)) ENDIF ENDIF xCamposArr(nIt,10)="=0" NEXT LOCAL xTemporal, xTitulo, xAlias, xOrden, xTabla, xPlanilla, xPathTMP xPlanillaXLS=xParametros.ex_archivo_plantilla xTemporal=JUSTPATH(xParametros.ex_archivo_entrada) IF EMPTY(xTemporal) THEN xTabla=oDeyFunc.Get_Path(5)+xTemporal ELSE xTabla=xTemporal ENDIF xAlias="Reportes" xOrden = xParametros.ex_xls_campos_orden xPlanilla='' xPathTMP=JUSTPATH(xParametros.ex_archivo_salida) IF EMPTY(xPathTMP) THEN xPlanilla_Final=oDeyFunc.Get_Path(5)+xParametros.ex_archivo_salida ELSE xPlanilla_Final = xParametros.ex_archivo_salida ENDIF xPlanilla_Final=FORCEEXT(xPlanilla_Final,"xls") xPlanilla_Aux='' xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPathTMP=JUSTPATH(xParametros.ex_Anexar_Archivo) IF EMPTY(xPathTMP) THEN xAnexar_Archivo=oDeyFunc.Get_Path(5)+xParametros.ex_Anexar_Archivo ELSE xAnexar_Archivo = xParametros.ex_Anexar_Archivo ENDIF xAnexar_Archivo=FORCEEXT(xAnexar_Archivo,"xls") xAnexar_Planilla=xParametros.ex_Anexar_Planilla AND NOT EMPTY(xParametros.ex_Anexar_Archivo) xSepFor=xParametros.ex_xls_campos_separa xSepEnc=xParametros.ex_xls_campos_encabezado xTitulo=xParametros.ex_titulo xOtra_Planilla=1 xMaxFields=0 xXLS_Abrir=xParametros.ex_xls_abrir xIniRow=3 xIniSep=3 xdtot_sep=xParametros.ex_xls_totalizar_separacion xdtot_fin=xParametros.ex_xls_totalizar_final xRecCount=0 LOCAL xcopy, hayerror, z, maxfields, xdata xOK=.T. **** Abre la tabla, aplica Orden y Corrige Fecha TRY xOK=THIS.f_ods.Preparar_Tabla(xTabla, xAlias, xOrden, "REP_XLS") CATCH TO oOBJ THIS.oestado_quitar (xoEstado_Propio) xOK=.F. ENDTRY IF NOT xOK THEN RETURN .F. ENDIF **** Selecciona la Planilla a abrir =THIS.f_ods.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS TRY =THIS.f_ods.Abriendo_Archivos_ods(@xPlanilla, @xPlanilla_Final, @x) CATCH TO oExODS xOK=.F. ENDTRY Local xACTSheet as Excel.Worksheet LOCAL xACTSheetL as Excel.Worksheet DO WHILE xOK * X!S x.VISIBLE=.F. xlibros=x.getSheets.getCount() *x.workbooks.COUNT xACTSheet= x.getSheets.getByIndex(0) * x.workbooks(xlibros).sheets(xOtra_Planilla) =oEstado.Avance("Procesando el encabezamiento...") **** Preparo el encabezado y cuento los campos THIS.f_ods.oSM= x THIS.f_ods.Preparando_Encabezado(@xCamposArr, @xACTSheet, @xMaxFields) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF IF xMaxFields>0 THEN **** Crea y abre la planilla auxiliar (DBF->XLS) THIS.f_ods.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@x,@xCamposArr,@xMaxFields) IF TYPE("xparametros.ex_tabla_filtro")="C" AND not EMPTY(xparametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(xparametros.ex_tabla_filtro) To xRecCount ELSE xRecCount=RECCOUNT() ENDIF * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 * * Copia los datos * x.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).cut xRecordCount=xRecCount xACTSheet.ACTIVATE xACTSheet.RANGE("A4").SELECT xACTSheet.paste x.workbooks(xlibros+1).CLOSE(.F.) =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT xACTSheet.cells(1,1).VALUE = xTitulo xACTSheet.cells(1,3).SELECT ENDIF x.workbooks(xlibros).sheets(1).SELECT x.workbooks(xlibros).sheets(1).RANGE( "A1" ).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=xACTSheet.cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+xACTSheet.cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(xACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 xACTSheet.ROWS(xEndSep+2).EntireRow.SELECT x.CutCopyMode = .F. x.SELECTION.COPY xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT xACTSheet.paste xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.ClearContents ENDIF xACTSheet.cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) xACTSheet.cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=xACTSheet.cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=xACTSheet.cells(4,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ENDIF IF xParametros.ex_agregar_nombre_rango THEN LOCAL oName as Excel.Name, xNameTXT xNameTXT = STRTRAN(STRTRAN(xActSheet.Name, " ", "_"),"-","_") oName=x.ActiveWorkbook.names.Add(xNameTXT,xACTSheet.range(xACTSheet.cells(xIniRow,1),xACTSheet.cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF xPArametros.ex_sin_formato THEN xACTSheet.Rows(1).Delete xACTSheet.Rows(1).Delete ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_ods.Agregar_Filtros(xACTSheet,xParametros) ********************************************************* xACWB=x.ActiveWorkbook xLiWB=x.workbooks(xlibros) xACWB.SAVE RELEASE xACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_ods.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") xACWB.SAVE x.DisplayAlerts=.F. xLiWB.CLOSE ENDIF DELETE FILE (xPlanilla_Aux) oEstado.VISIBLE=.F. DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. ENDCASE IF xResp_O THEN IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT RELEASE x ENDIF DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow LOCAL xPLAA, xPLAT xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") xPLAT = JUSTPATH(xPlanilla_Final) xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) IF xerror<=32 =Mensaje_s("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) ENDIF ELSE IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT ELSE ***************************************************************************************************************************************************** ***************************************************************************************************************************************************** ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* x.workbooks(xlibros).close x.VISIBLE=.T. ENDIF ENDIF RELEASE x EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE exportar_xls_cell LPARAMETERS xParametros AS exportaciones_parametros OF "imp_exp.vcx" xParametros = oDeyFunc.chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_xls.parametros=xParametros LOCAL xoEstado_Propio xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF *=sys_mostrar_screen("Exportar_CELL", .t.) LOCAL xPlanilla_Final,xPlanilla_Nombre, xAnexar_Archivo, xAnexar_Planilla, xOK, x xPlanilla_Final='' xAnexar_Archivo='' xAnexar_Planilla='' **** PreSelecciona la Planilla a abrir THIS.f_xls.preseleccion_planillas(@xParametros, @xPlanilla_Final, @xAnexar_Archivo, @xAnexar_Planilla) xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPlanilla='' xOtra_Planilla='' **** Selecciona la Planilla a abrir =THIS.f_xls.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla, xPlanilla_Final) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS xOK=.T. x=.F. TRY =THIS.f_xls.Abriendo_Archivos_Excel(@xPlanilla, @xPlanilla_Final, @x) CATCH xOK=.F. ENDTRY LOCAL xACTSheet AS Excel.Worksheet LOCAL xACTSheetL AS Excel.Worksheet LOCAL xMacroTOT DO WHILE xOK x.VISIBLE=.F. x.DisplayAlerts=.F. xlibros=x.workbooks.COUNT xACTSheet=x.workbooks(xlibros).sheets(xOtra_Planilla) xACTSheet.ACTIVATE this.f_xls.Cel_Exportar_Coll(xActSheet, xParametros.cel_rango) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF xResp_O=.T. DO CASE CASE xParametros.ex_xls_abrir= 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xParametros.ex_xls_abrir = 1 xResp_O=.T. CASE xParametros.ex_xls_abrir = 2 xResp_O=.F. CASE xParametros.ex_xls_abrir = 3 xResp_O=.F. ENDCASE LOCAL xACWB AS Excel.workbook xACWB=x.ActiveWorkbook xACWB.SAVE IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ENDIF * =sys_mostrar_screen("Exportar_CELL - CERRAR", .t.) x.ScreenUpdating = .T. x.DisplayAlerts=.T. IF xResp_O THEN * =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 3", .T.) * Ya viene abierta, solo la visibilizo x.visible=.t. DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(x.HWnd) *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT>1 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* ENDIF *!* ENDIF *!* DECLARE LONG ShellExecute ; *!* IN SHELL32.DLL ; *!* INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; *!* STRING cParameters, STRING cDirectory, INTEGER nShowWindow *!* LOCAL xPLAA, xPLAT *!* xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") *!* xPLAT = JUSTPATH(xPlanilla_Final) *!* xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) *!* IF xerror<=32 *!* IF p_dev THEN *!* DEBUG *!* SUSPEND *!* ELSE *!* =Mensaje("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) *!* ENDIF *!* ENDIF ELSE * IF xXLS_Abrir = 3 if xParametros.ex_xls_abrir=3 && Ojo !!! Lo correg yo (Guille) * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF endif * Tengo que cerrarla *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT=0 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 4", .T.) *!* ENDIF * Un solo libro, salgo completamente if x.workbooks.count>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado xACWB.Close x.DisplayAlerts = .T. x.ScreenUpdating = .T. x.DisplayAlerts=.T. x.VISIBLE=.T. else x.activeworkbook.close x.DisplayAlerts = .f. x.Quit && = .T. endif *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* x.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* x.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* x.DisplayAlerts = .T. *!* x.ScreenUpdating = .T. *!* x.DisplayAlerts=.T. *!* x.VISIBLE=.T. *!* ENDIF ENDIF RELEASE x EXIT ENDDO THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE set_displayalert LPARAMETERS xValor LOCAL xOK TRY xExcelApp=GETOBJECT(,'excel.application') xExcelApp.DisplayAlerts=xValor xOK=.t. CATCH TO oOBJ xOK=.f. ENDTRY RETURN xOK ENDPROC PROCEDURE Init SET CLASSLIB TO Clases addi SET CLASSLIB TO imp_exp ADDITIVE This.f_xls=NEWOBJECT("exportaciones_XLS","imp_exp") This.f_ods=NEWOBJECT("exportaciones_ODS","imp_exp") This.Parametros_coll=CREATEOBJECT("Collection") this.archivo_salida_renombra=(p_xls_solo_renombra_desde_crystal=0) ENDPROC "l54%0U /%TCexcel.application\( y$TCexcel.applicationNTa( H   12.0TaUTHISLEXCELOOBJ LEXCEL_PROPIO USAR_CELDASUSAR_LEE_ESTRUCTURAVERSION USAR_ODBC CUTHIS LIMPIAR_TODO %C 4T NT% CT( TC (T C BaUXARCHIVOXTMPXHOJATHIS LXLS_ORIGENPREPARAR_TEMPORAL LXLS_TEMPORALOEX LWORKBOOKLEXCEL WORKBOOKSOPENLHOJASELECCIONAR_HOJA7TC.xls(UTHIS LXLS_TEMPORALODEYFUNCNEWFILE_LOCAL_TMP LXLS_ORIGEN % %T C 6"TC 6T % TTT kT T T % gTTTT ( %%     P9TCC |-aCC % L'TC TC%%CC   STCC|C ANombres posibles: C C CC |C C 6!Ta% T C'TC  DU XPLANTILLA XSINLEYENDAS XLLENARDATOSXHOJANITXOFFHXOFFFXOFFDXWIDTH1XWIDTH2THIS LXLS_OFFSET USAR_CELDASLHOJALCOLUMNAS_COUNTUSAR_LEE_ESTRUCTURACELLSODEYFUNC SPLIT_ITEM LCOLUMNASFORMATO_HEADER ENTIRECOLUMNAUTOFIT COLUMNWIDTHWRAPTEXTh CImportar Ta%\BC%BC TC (  T-DCa#Error al abrir la aplicacin EXCEL.C    % %B- PT Ca (  T-ACa Error al abrir el archivo EXCEL.C     %  TC ( i%  e T-ACa Error al formatear las columnas.C    H~2  "TC (  T-BCa!Error al abrir los datos del dbf.C     & ST C (  T-7CaError al crear el dbf.C     TC ( " T-:CaError al buscar columnas.C     % lTC (  T-JCa)Error al buscar columnas automticamente.C     T C ( M T-7CaError al crear el dbf.C    % ) CBuscarTC CFormatoT Ca ( % T-:CaError al buscar columnas.C     UTC (  T-:CaError al leer las celdas.C     22 T C ( . T-9CaError guardar los datos.C     XTC (  T-;CaError al abrir los el dbf.C    %  F TC ( B T-9CaError guardar los datos.C     lTC (  T-@CaError formatear el archivo DBF.C     TC ( G T-CCa"Error al insertar columnas vacias.C     m TC! ( T-=CaError en 'antes de validar'.C     TC" ( > T-<CaError al validar los datos.C     C# C$ BU%XXLSXDBFXOKTHISSYS_MUSAR_CSV IMPORTAR_CSV USAR_FIJO IMPORTAR_FIJO ABRIR_EXCELOEXMENSAJE_SUSPENDO_LOGMESSAGE ABRIR_DATOS USAR_CELDASLXLS_CREAR_COLUMNAS_AUTOMATICOPREPARAR_FORMATOERRORNO USAR_ODBC OBTENER_DATOS LXLS_TEMPORALUSAR_LEE_ESTRUCTURACREAR_DBF_ESTRUCTURAENUMERAR_COLUMNAS_CELDASCREAR_COLUMNAS_AUTOMATICO CREAR_DBFBUSCAR_COLUMNAS_CELDASOBTENER_DATOS_CELDAS GUARDAR_DBF ABRIR_DBFELIMINAR_REGISTRO_FORMATOAPLICAR_FORMATO_DBFINSERTAR_COLUMNAS_VACIASANTES_DE_VALIDAR VALIDAR_DATOS CERRAR_DBF LIMPIAR_TODO T %T C 6T T % TTT% &   !TC 6T  (g&TCC6LTC"THIS.lCol_Encontradas(nIt,2)this.lcolumnas(nIt,2)6% 5'T C'T C%cHY_ CbN(T 0.0000 CbD.T  dd/mm/yyyy;@ CbT&5T dd/mm/yyyyTHH:MM:SS CbC_#T @%  GC:Se evit el formateo de celdas por estar protegida la hojaUXCELDASXHOJANITXOFFHXOFFFXOFFD XCOLCOUNTXCOLXLSTHISLHOJA LXLS_OFFSET USAR_CELDASCELLS ENTIREROWINSERTLCOL_ENCONTRADAS_COUNTLCOLUMNAS_COUNTXFORMATEOCELDASPROTECTCONTENTS PROTECTIONALLOWFORMATTINGCELLSLCOL_ENCONTRADASXCEL LCOLUMNAS ENTIRECOLUMN NUMBERFORMATP_DEVMENSAJEQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQINTEGERQINTEGERQINTEGER QINTEGERG+(Dey_Func   P%C xxlsNombrebLC xxlsFormatobL C xdbfCampobL jTJ(! (CbT  BTT % C/ C% (CT  T  !%C dbfOpcionalbNfTT C  % k ( g% Cc"%CC C_%C  5T   T ! [T C  %C*H& C=C TCXCC()gQ C=NT C()TCC gTCC gTCC6'TC 6TCNQ3T'C,CNQ6 C=DT DD/MM/AAAA C=M&$TTEXTO SIN LONGITUD FIJATC TC T T T T T "%C xdbfOpcionalbLTC6T T T T  T   U XXLSNOMBRE XXLSFORMATOXXLSDESCRIPCION XDBFCAMPO XDBFFORMATO XDBFOPCIONAL XFIJODESDE XFIJOHASTA XFIJOANCHO XREPETICIONDEY_FUNCNITXPOSXFORMATOTHISLCOLUMNAS_COUNT LCOLUMNASXLARGOODEYFUNC SPLIT_ITEM XDECIMALES Ta CTC ( T-=C#Error al abrir la aplicacin EXCEL.C  TC (  T-5CError al crear la planilla.C  <!TCa ( T-8CError al dibujar la plantilla.C %  TC ( T-4CError al agregar leyendas.C TC % dT C ( T-0CError al llenar datos.C  C UXXLS XSINLEYENDAS XLLENARDATOSXOKTHIS ABRIR_EXCELOEXMENSAJEMESSAGE CREAR_LIBROAPLICAR_FORMATOAGREGAR_LEYENDAS LLENAR_DATOSLIMPIAR_Y_MOSTRAR7TCTCUTHIS LWORKBOOKLEXCEL WORKBOOKSADDLHOJASHEETSsFTArialT TaTTU XSELECTIONFONTNAMESIZEBOLD ENTIREROW ROWHEIGHTINTERIOR COLORINDEX%C )T CT%C0c T-"C  T-C T-T-U XARCHIVOTHIS LDBF_DESTINOLEXCEL DISPLAYALERTSLHOJACELLSSELECT LWORKBOOKSAVEASCLOSE2TSELECT &xAlias #)3UXALIASTHIS LDBF_ALIAS T(TCTC%CC .0ALTER TABLE &xAlias ALTER COLUMN &xCol &xFor  U XALIASNITXCOLXFORXDATOTHIS LDBF_ALIASLCOLUMNAS_COUNT LCOLUMNASQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQINTEGERQINTEGERQINTEGER QINTEGERG+(Dey_Func P%C xxlsNombrebLC xxlsFormatobL C xdbfCampobL bT J( ! (C ZT   B  T ( &%CCC  fCCf T %T  T %C  C % (C T  T  T C  %  (% C "%CC  C%C  |T    T ! T C   %C>H: C=C TCXCC()gQ C=N TC()TCCgTCCgTCC6'TC 6TCNQ3T'C,CNQ6 C=D:T DD/MM/AAAATC TC T T T T T "%C xdbfOpcionalbL1TC6T T T T  T   U XXLSNOMBRE XXLSFORMATOXXLSDESCRIPCION XDBFCAMPO XDBFFORMATO XDBFOPCIONAL XFIJODESDE XFIJOHASTA XFIJOANCHO XREPETICIONDEY_FUNCNITTHISLCOL_VACIAS_COUNT LCOL_VACIASXPOS LCOLUMNASXFORMATOXLARGOODEYFUNC SPLIT_ITEM XDECIMALESG{TC%C?SELECT &xAlias QF3USE (THIS.ldbf_destino) ALIAS &xAlias EXCLUSIVE UXALIASTHIS LDBF_ALIASAT 0SELECT &xAlias Q :UXALIASTHIS LDBF_ALIAS T F(TC TC %CC .%CCfCC f Ta/ALTER TABLE &xAlias Add COLUMN &xCol &xFor '%  C |T TL/ALTER TABLE &xAlias Add COLUMN &xCol &xFor (3T  C  Columna:  U XCOLXFOROEXXCOLVALIDAR_AGREGADAXALIASTHIS LDBF_ALIASNITLCOL_VACIAS_COUNT LCOL_VACIAS VAL_VALIDOVAL_CREAR_COLUMNAMESSAGET T T T T &xPre_Validar SELECT &xAlias ~SELECT &xalias &xVal_Func SELECT &xalias &xPos_Validar SELECT &xalias T%C @#COUNT FOR NOT &xValido TO xMal W TTTCN% C% CBUXMALXALIASXDESCR_ROEXXVALIDO XVAL_FUNC XPRE_VALIDAR XPOS_VALIDARTHIS LDBF_ALIAS VAL_VALIDOVAL_FUNCVAL_PREVAL_POS REC_MALAS REC_BUENASREC_HAY_BUENAS REC_HAY_MALAST % XT rT % TTTTT TT %C \QREPLACE &xValido WITH THIS.validar_articulo (&xCod, &xBul, &xAtr, @xDescr_R) SELECT &xalias %C !replace &xDescr WITH xDescr_R % T %replace &xcod WITH bienes.cod_ins UXALIASXDESCR_ROEXTHIS LDBF_ALIASXCODXBULXATRXDESCRXVALIDOVAL_USAR_CODALTVAL_ART_CODALTVAL_ART_COD_INSVAL_NOUSAR_BULATR VAL_ART_BUL VAL_ART_ATR VAL_ART_DESCR VAL_VALIDO% T-6 pr_funcionesa % B-@ dey_fill   <Ba B-UXCODXBULXATRXDESCRXVALIDOOBIEDATA_CODIGO_VACIOPR_COMB_BUSCAR PR_FUNCIONESTHISVAL_USAR_CODALTFILL_BIE_BUL_ATR_DESCRDEY_FILLBIENESDESCRATRIBUTOBULTOSATRBUL T- 5C ?T-T-!%C This.lExcelbO%C TaT T- U THISLEXCEL DISPLAYALERTS LWORKBOOKCLOSELHOJA LEXCEL_PROPIOQUITVISIBLE WINDOWSTATE#T T T T T% TTT>T "Lea atentamente las instrucciones: T T iLa fila 2 muestra el formato y ancho de los datos de la columna, X son caracteres (texto), 9 son nmeros.T bLa fila 4 muestra la funcin de cada columna. No confundir con el ttulo de la misma, que es fijo.ST 3El orden de las columnas SIEMPRE debe ser el mismo.T sPuede ser que en algunos casos no se necesite ningn dato de esa columna, pero el espacio debe existir igualmente.T iSlo los ttulos de las columnas (fila 1 con fondo gris), son necesarios para la importacin, todo lo quesT Sle sigue ms abajo, incluyendo este texto, se debe borrar y es a nivel informativo.(C TArialT TaT!(C TArialT TaTUXHOJANITXOFFHXOFFFXOFFDXWIDTH1XWIDTH2XOFFLTHISLHOJA LXLS_OFFSET USAR_CELDASCELLSFONTNAMESIZEBOLD COLORINDEXC   Ta T%C PT jT%C0  7TDriver=Microsoft Excel Driver (*.xls);CTDriver=Microsoft Excel Driver (*.xls);DBQ=T C DispLoginlC DispWarnings-ljTCDDriver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=;driverid=1046 %,TNo se pudo conectar al servidor%C TMPSheetNamesGF QC TMPSheetNamesm # )-CC fCC f!%C4 CC f @sys_importar_seleccionar_hoja( TMPSheetNamesT C T C %C 8 T- +TSELECT * FROM " " tHojaTCResulti% CF(CCC  Ta CgT-CT-T- BUXXLSXDBFXOKXHOJATHIS LDBF_DESTINONCONNXCONDRVXMSG TMPSHEETNAMES TABLE_NAME LXLS_HOJASYS_IMPORTAR_SELECCIONAR_HOJAXTABLE CSQLCOMMANDNRETTMPAFRESULTLEXCEL DISPLAYALERTS LWORKBOOKCLOSELHOJA }T-T-!%C This.lExcelbOyTaTT- UTHISLHOJA LWORKBOOKLEXCELVISIBLE WINDOWSTATE2 ;     TTCT T T T%TC  T uT TSELECT &xAlias + dC T -(C T -T!C T C"#( %$ T a  T a%$ %%Ca#Error al importar datos en la fila CCZ de la hoja 'C' !!! C CSe ha cancelado la importacin del resto de las filas de la hoja!!!&% t% p b+CC!"#' l  $%) ) T T  T  mB% T T -% ; T a %"V%CC"#CC"# CC"#  T aV%CC"#CC"# CC"#  T a  #%CC"#d T a#%CC"# T a  T a% T  TCCOF  T T$%) ) ` T T CO(%+TC,%-Ba BCa.T/0-C12T-T1-U3XXLS XRECURSIVOXDBFXALIASXCOLXFORXCAMPOS XSEPARADORNROWXNAXNATESTXSEGUIR XSEGUIR_HASTAXNACXPNAC XNOMBREHOJANITOEXOEX2THIS LDBF_DESTINO LDBF_ALIAS LXLS_OFFSETLXLS_FILASVACIAS VAL_COLUMN XVAL_COLUMNLCOL_ENCONTRADASLHOJANAME NUEVA_FILALCOL_ENCONTRADAS_COUNT NUEVA_COLUMNA XERROROMITIDOXCOLXLSCELLSVALUEXLS_OMITIR_ERRORES_LECTURAP_IMP_XLS_MENSAJE_CANCELARMENSAJE_SUSPENDO_LOGGUARDAR_DATOS_CELDAINLXLS_FILAFORZADAFORLXLS_HOJAS_TODASSELECCIONAR_HOJALXLS_HOJA_ACTUALOBTENER_DATOS_CELDASLEXCEL DISPLAYALERTS LWORKBOOKCLOSEj%C )T CT%C0c T T T T 1 ( TC  %C> ocTCCC 6El nombre del campo 'C' es mayor a 10 caracteres!!!TC  %CC .T T, F+create table (xarchivo) free (&xcampos) use (xarchivo) alias &xalias c%C [C UXARCHIVOTHIS LDBF_DESTINOXALIASXCOLXFORXCAMPOS XSEPARADORXMSG LDBF_ALIASNITLCOLUMNAS_COUNT LCOLUMNASMENSAJET TC TC %CC B- %CxValor=&xCol REPLACE &xCol WITH xValor U GTCTC %CREPLACE &xCol WITH xValor  Q%C C T #REPLACE &xHoja WITH xHojaNombre U NITXVALOR XREFERENCIA XHOJANOMBREXFORXALIASXCOLXHOJATHIS LDBF_ALIASLCOL_ENCONTRADASIGUALAR_VALORESLXLS_HOJA_CAMPOV (%C xReferenciabCxValorbK B + THw'! C xReferenciabNH CxValorbLTC6 CxValorbC5Q ESTADO_SETSsys_clases_herramientas.prg9TC Estado_Setssys_clases_herramientas.prgC ,TCCCC SeparatorvC g C ! C xReferenciabCJHF CxValorbL-TCSiNo6 2FTC_! C xReferenciabDjH|f CxValorbLT CxValorbCTC#%CTC  CxValorbT,TC CxValorbNfTCl$! C xReferenciabT'H# CxValorbLT CxValorbCTC CxValorbD#TC(F T BU XREFERENCIAXVALOR XDECIMALESXRETORNOOEXOESSYS_CLASES_HERRAMIENTASPRG SET_POINTSEPTHIS LXLS_POINTLXLS_SEPARATOR POP_POINTSEPIGUALAR_VALORES_FECHAS'       TT Ta% (C    ( T (x T - -T C %CxValTbCr T DTCALLTRIM(UPPER(xVALT))CCC f|%C)4%C  C    T a %T( H T% tC !&% C  C (  T T (j%C f"CC  T%C QCa+No se encontr alguna columna obligatoria. C Falta: !B-U"XXLSXDBFXALIASXCOLXFORXCAMPOS XSEPARADORNROWXNAXNATESTNITNIT2OEX2XVALT XREPETICIONXPRUEBATHIS LXLS_OFFSETXSEGUIRUSAR_COLUMNAS_FIJAS_CELDASLCOLUMNAS_COUNTAGREGAR_COLUMNA_ENCONTRADALHOJACELLSVALUEODEYFUNCINLISTSTRARR_CREAR LCOLUMNASOEXXCUENTALCOL_ENCONTRADAS_COUNTLCOL_ENCONTRADASTX_AGREGAR_ITEMMENSAJE_SUSPENDO_LOGv %CTJ(!(CT BTT%CC'TC'TC'TC'TC'TCT'TC'TC'T C 'T C UXCOLXXLSCOLNITTHISLCOL_ENCONTRADAS_COUNTLCOL_ENCONTRADASXPOS LCOLUMNAS[ TCC\fH:-$ ENE JAN k T FEB T MAR T$ ABR APR T MAY T JUN( T JULK T$ AGO AUG | T SEP T  OCT T  NOV T $ DIC DEC  T 2- T'BCCC\gCC=g$UXFXMESCXMES H T%{TB- BC Hoja1$BC%CT    T T C  9%CC fCCfCC $fCCf  B %C TMPSheetNamesFQFh1 C<Q   r TMPSheetNames Fsys_importar_seleccionar_hoja( TMPSheetNames%C TMPSheetNamesFQ% BC a B-U XNOMBRE_HOJA XRECURSIVOTHISLXLS_HOJAS_TODASLXLS_HOJA_ACTUAL LWORKBOOKSHEETSCOUNT LXLS_HOJAXTMPOSHEETXHOJAXTMPFILEODEYFUNCNEWFILE_LOCAL_TMPNAME TMPSHEETNAMES TABLE_NAMESYS_IMPORTAR_SELECCIONAR_HOJASELECCIONAR_HOJA}  Ta CT C ( T-0CError al crear el dbf.C  T C ( T-5CError al obtener datos CSV.C  *TC (w T-4CError al abrir los el dbf.C  TC ( T-9CError formatear el archivo DBF.C  TC (j T-<C"Error al insertar columnas vacias.C  TC ( T-6CError en 'antes de validar'.C  TC (S T-5CError al validar los datos.C  C C BUXCSVXDBFXOKTHIS CREAR_DBFOEXMENSAJEMESSAGEOBTENER_DATOS_CSV ABRIR_DBFAPLICAR_FORMATO_DBFINSERTAR_COLUMNAS_VACIASANTES_DE_VALIDAR VALIDAR_DATOS CERRAR_DBF LIMPIAR_TODO? T FTCcsv%CCC T%TC  T " ";APPEND FROM (xCSV) TYPE DELIMITED WITH CHARACTER &xChar #)% 8CO UXCSVXALIASXFSTHIS LDBF_ALIASODEYFUNCNEWFILE_LOCAL_TMP LCSV_STRCONV USAR_FIJOAPLICAR_SEPARADORESXCHAR LCSV_CHAR LCSV_HEADFOR LXLS_OFFSET~  Ta CT C ( T-0CError al crear el dbf.C  T C ( T-6CError al obtener datos fijo.C  +TC (x T-4CError al abrir los el dbf.C  TC ( T-9CError formatear el archivo DBF.C  TC (k T-<C"Error al insertar columnas vacias.C  TC ( T-6CError en 'antes de validar'.C  TC (T T-5CError al validar los datos.C  C C BUXCSVXDBFXOKTHIS CREAR_DBFOEXMENSAJEMESSAGEOBTENER_DATOS_FIJO ABRIR_DBFAPLICAR_FORMATO_DBFINSERTAR_COLUMNAS_VACIASANTES_DE_VALIDAR VALIDAR_DATOS CERRAR_DBF LIMPIAR_TODOT FT"";APPEND FROM (xCSV) TYPE DELIMITED WITH CHARACTER &xChar #)%CO U XCSVXALIASTHIS LDBF_ALIASXCHAR LCSV_CHAR LCSV_HEADFOR LXLS_OFFSET  G$( TCTC  T(T C( p T.TC C =8TC C C \T &TC C \ T T C C TCC BUOIMPXCSVXSTRMXCOUNTNFILEXSTRFNITNIT2XCOLCLINESXSTRLCOLUMNAS_COUNT LCOLUMNAS LCSV_CHARODEYFUNCNEWFILE_LOCAL_TMP+       C CT%T  T  Ta  ( T - TC %CxValTbCI T vTC  %C C (  T(U XBORRAR_TMPXDBFXALIASXCOLXFORXCAMPOS XSEPARADORNROWXNAXNATEST NROWEJEMPLONITNIT2OEX2XVALTTHISAGREGAR_COLUMNA_ENUMERADAAGREGAR_COLUMNA LXLS_OFFSETLXLS_OFFSET_EJEMPLOXSEGUIRLHOJACELLSVALUEXVALT2OEX%C )T CT%C0c T T T T Fh1 C< C< C< C C NNNM use (xarchivo) alias &xalias %C CUXARCHIVOTHIS LDBF_DESTINOXALIASXCOLXFORXCAMPOS XSEPARADORXMSG LDBF_ALIASNOMBREFORMATOEJEMPLOCAMPODBFFORMOPCIONAL TIPOCAMPOORDENDESCRMENSAJE%C6B-TC TC/r U XCOLXXLSCOLXEJEMPLOALLTHIS LDBF_ALIASSYS_CONVERSORESNOMBREORDENEJEMPLO U XLLENARDATOS+QIMPORTACIONES_XLS imp_exp.vcx TC&CCC T& C C C  T  BU OIMPIMP_EXPVCXOTHISTHISODEYFUNC CLONAR_OBJETO LCOLUMNASLCOLUMNAS_COUNT LCOL_VACIASLCOL_VACIAS_COUNT/QGRILLA_FORMATOform_controles.vcx C(/C.CC(/C.C C U OGFFORM_CONTROLESVCXFOR_ADD_COLUMNANITTHISLCOLUMNAS_COUNT LCOLUMNASLCOL_VACIAS_COUNT LCOL_VACIAS{+       TT TaT C C ( gTC %CxValTbC T%C  #!+CCOLCC ZC (254)C  CUXXLSXDBFXALIASXCOLXFORXCAMPOS XSEPARADORNROWXNAXNATEST XCOLCUENTANITNIT2OEX2XVALT XREPETICIONTHIS LXLS_OFFSETXSEGUIR'LXLS_CREAR_COLUMNAS_AUTOMATICO_CANTIDADAGREGAR_COLUMNALHOJACELLSVALUEAGREGAR_COLUMNA_ENCONTRADACREAR_COLUMNAS_AUTOMATICO_POS9CCU XSUSPENDOXTEXTOXVERBOSETHISLOGUEARMENSAJE_SUSPENDO UXTEXTOXVERBOSE UXFILA UXCOLUMNAXFILA;)C     UXTEXTO XNOSUSPENDERXFORZARSYS_MTHIS P_SUSPEND CUTHISDISPOSE C CUTHISAGREGAR_COLUMNAAGREGAR_COLUMNA_VACIA abrir_excel0dispose abrir_datospreparar_temporalPaplicar_formatoimportarpreparar_formatoZagregar_columnamcrear_plantilla" crear_libro%formato_header% guardar_dbf&eliminar_registro_formato%(aplicar_formato_dbfy(agregar_columna_vacia) abrir_dbf~1 cerrar_dbf!2insertar_columnas_vacias2 validar_datos4 validar_fila{7validar_articuloD: limpiar_todo;agregar_leyendasU= obtener_datosBlimpiar_y_mostrar#Hobtener_datos_celdasH crear_dbfRguardar_datos_celdaxUigualar_valoresWbuscar_columnas_celdas\agregar_columna_encontrada=bigualar_valores_fechaseseleccionar_hojag importar_csvSkobtener_datos_csvo importar_fijoqobtener_datos_fijouaplicar_separadoresvenumerar_columnas_celdas%ycrear_dbf_estructura|agregar_columna_enumerada~ llenar_datosqclonarsesql_crear_columnas crear_columnas_automaticobmensaje_suspendo_logloguear nueva_fila nueva_columnaŅsys_mDestroyfInit1QAAA!!A42q"AAAAAACu 12Q!1AAA1AAQqAARArBC3q!QA!QAAAqAAAAA!!!A!qAA'"ABqA2aqAAAABAAAA1AAA3qqRA3A2aAb2qqAaaaQa1ACAqqA3A "AAArQAA!A22!AAAAAAq11qAAA11!A5qAQAAAAA11AA33q"1A113q!AA!2!QAA3qAABAA3A "qAAAaAA1qAQAB22!AAABAAq11qAA21!A3a!!AA12!AC3qAAAAqA1AA2q"!!A""1A1aA1AA2r!A!A!B"aA"QA31qbaqArqA5A!1AAA31DA1A!11 11AA1AA3"AAq3AAAqAA!A2rAA21AA3!bA1!AQQ"11 AAABAAAQAAB1aAaA1A1AAAAQAAABAAA"Baq!AA4q"BAR1AAAA!AAA311qAA1AAA1AA3ARBA1QAA1BAA3qqA!QAABAAAAQAACaBAAAA!AA!vAA3q!AAAqqArqqqqqqqq3qqAaaAaaaAaaaAAs3!qqaA2AA2sAAqAArAbqAA!qA3qAQAAAAAaAQA3qaA"AqQ"A3qAaAAAAAaAQA3qqsQ"A3!AaAA2qqBbAAAA!AAAAA4q"BAK !AAA3qA2!2q2rQaQ1bQ12AA3qAbABAQA2Q!22q22221c,R/C2 VZQ 7^J$9 p$u.sV.:2~\22233B5 r55597#e7B9.BBBBCqC@F(dFHHIKe#LMsM@O0gOTKT[x\\\sjaj/o\YoqrwxA2-`SFȌ"JcV>j|<!UQe^`lɥu"`.33Te693<Q`@{C)PROCEDURE abrir_excel TRY This.lExcel=GETOBJECT(,'excel.application') CATCH TO oOBJ TRY This.lExcel=CREATEOBJECT("excel.application") this.lexcel_propio = .t. CATCH TO oOBJ THROW oOBJ ENDTRY ENDTRY DO CASE CASE This.Usar_Celdas CASE This.usar_lee_estructura CASE This.lExcel.Version>="12.0" *!* this.lexcel.Quit *!* this.lexcel = .f. *!* =Mensaje("No se puede importar usando excel 2007."+CHR(13)+; *!* "Si tiene alguna versin anterior instalada, abrala, cierre todas los libros y reintente el procedimiento.") *!* RETURN .f. this.usar_odbc = .t. ENDCASE ENDPROC PROCEDURE dispose =this.limpiar_todo () ENDPROC PROCEDURE abrir_datos LPARAMETERS xArchivo, xTMP LOCAL xHoja IF NOT EMPTY(xArchivo) THEN THIS.lxls_origen=xArchivo ELSE xArchivo=THIS.lxls_origen ENDIF IF xTMP THEN TRY =THIS.preparar_temporal() xArchivo=THIS.lxls_temporal CATCH TO oEx THROW ENDTRY ENDIF *IF NOT THIS.usar_odbc THEN TRY THIS.lworkbook=THIS.lExcel.workbooks.OPEN(xArchivo) CATCH TO oEx THROW ENDTRY THIS.lhoja=this.Seleccionar_Hoja() *ENDIF RETURN .T. *!* ="Hoja1$"= THIS.lworkbook.sheets(xHoja) *!* IF USED("TMPSheetNames") THEN *!* SELECT TMPSheetNames *!* USE *!* ENDIF *!* SQLTABLES(nConn,"", "TMPSheetNames") *!* GO TOP IN TMPSheetNames *!* LOCATE FOR ALLTRIM(UPPER(table_name))=ALLTRIM(UPPER(THIS.lxls_hoja)) *!* IF !FOUND() OR ALLTRIM(UPPER(THIS.lxls_hoja))="" THEN *!* DO FORM sys_importar_seleccionar_hoja WITH "TMPSheetNames", xXLS TO xHoja *!* xTable=ALLTRIM(xHoja) *!* ELSE *!* xTable=ALLTRIM(TMPSheetNames.table_name) *!* ENDIF ENDPROC PROCEDURE preparar_temporal this.lxls_temporal = oDeyFunc.NewFile_Local_TMP()+".xls" COPY FILE (this.lxls_origen) TO (this.lxls_temporal) ENDPROC PROCEDURE aplicar_formato LPARAMETERS xPlantilla, xSinLeyendas, xLlenarDatos *=sys_m("Aplicar formato") LOCAL xHoja, nIt, xOffH, xOffF, xOffD, xwidth1, xwidth2 IF NOT xPlantilla THEN xOffH=THIS.lxls_offset-IIF(THIS.Usar_Celdas,1,2) xOffF=IIF(THIS.Usar_Celdas,0, xOffH+1) xOffD=THIS.lxls_offset IF NOT THIS.Usar_Celdas THEN xOffH=xOffH+1 xOffF=xOffF+1 xOffD=xOffD+1 ENDIF ELSE xOffH=THIS.lxls_offset-1 xOffF=THIS.lxls_offset xOffD=THIS.lxls_offset+1 IF NOT THIS.Usar_Celdas THEN xOffH=xOffH+1 xOffF=xOffF+1 xOffD=xOffD+1 ENDIF ENDIF xHoja=THIS.lhoja FOR nIt=1 TO THIS.lcolumnas_count IF NOT (THIS.Usar_Celdas OR THIS.usar_lee_estructura) OR xPlantilla THEN xHoja.cells(xOffH,nIt)=oDeyFunc.Split_Item(1, THIS.lcolumnas(nIt,1), "|", .F., , , .T.) THIS.formato_header (xHoja.cells(xOffH,nIt)) IF NOT xSinLeyendas THEN xHoja.cells(xOffF,nIt)=THIS.lcolumnas(nIt,2) ENDIF ENDIF xHoja.cells(xOffH,nIt).EntireColumn.AUTOFIT xwidth1=xHoja.cells(xOffH,nIt).COLUMNWIDTH IF NOT EMPTY(THIS.lcolumnas(nIt,3)) AND NOT xSinLeyendas THEN xHoja.cells(xOffD+1,nIt)= IIF(AT("|", THIS.lcolumnas(nIt,1))=0,"",; "Nombres posibles: "+CHR(13)+CHR(10)+; STRTRAN(THIS.lcolumnas(nIt,1),"|",CHR(13)+CHR(10)); ) xHoja.cells(xOffD+1,nIt).WrapText = .T. ENDIF IF NOT xSinLeyendas xHoja.cells(xOffH,nIt).EntireColumn.AUTOFIT xwidth2=xHoja.cells(xOffH,nIt).COLUMNWIDTH xHoja.cells(xOffH,nIt).COLUMNWIDTH = MAX(xwidth1, xwidth2, 13) ENDIF NEXT ENDPROC PROCEDURE importar LPARAMETERS xXLS, xDBF LOCAL xOk this.sys_m("Importar") xOk=.T. IF THIS.usar_csv THEN RETURN THIS.importar_csv ( xXLS, xDBF) ENDIF IF THIS.usar_fijo THEN RETURN THIS.importar_fijo ( xXLS, xDBF) ENDIF TRY xOk=xOk AND THIS.abrir_excel () CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al abrir la aplicacin EXCEL."+CHR(13)+oEx.MESSAGE, 10) ENDTRY IF !xOk THEN RETURN .F. ENDIF TRY xOk=xOk AND THIS.abrir_datos(xXLS, .T.) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al abrir el archivo EXCEL."+CHR(13)+oEx.MESSAGE, 10) ENDTRY **=sys_mostrar_screen("Preparar Formato",.t.) TRY IF NOT (THIS.Usar_Celdas AND NOT THIS.lxls_crear_columnas_automatico ) THEN ** No se hace ac porque se hace abajo luego de buscar las columnas ya que pueden ser dinmicas xOk=xOk AND THIS.Preparar_Formato() ENDIF CATCH TO oEx IF NOT oEx.ERRORNO=1429 THEN xOk=.F. =THIS.mensaje_suspendo_log(.T.,"Error al formatear las columnas."+CHR(13)+oEx.MESSAGE, 10) ENDIF ENDTRY DO CASE CASE THIS.usar_odbc TRY xOk=xOk AND THIS.obtener_datos( THIS.lxls_temporal , xDBF) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al abrir los datos del dbf."+CHR(13)+oEx.MESSAGE, 10) ENDTRY CASE THIS.Usar_Lee_Estructura **=sys_mostrar_screen("Estructura",.t.) TRY xOk=xOk AND THIS.Crear_dbf_Estructura(xDBF) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al crear el dbf."+CHR(13)+oEx.MESSAGE, 10) ENDTRY TRY xOk=xOk AND THIS.Enumerar_columnas_celdas( THIS.lxls_temporal) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al buscar columnas."+CHR(13)+oEx.MESSAGE, 10) ENDTRY *!* TRY *!* xOk=xOk AND THIS.obtener_datos_celdas( THIS.lxls_temporal) *!* CATCH TO oEx *!* xOk=.F. *!* =this.mensaje_suspendo_log(.t.,"Error al leer las celdas."+CHR(13)+oEx.MESSAGE) *!* ENDTRY CASE THIS.Usar_Celdas *=sys_m("Usar celdas") IF THIS.lxls_crear_columnas_automatico THEN TRY xOk=xOk AND THIS.crear_columnas_automatico () CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al buscar columnas automticamente."+CHR(13)+oEx.MESSAGE, 10) ENDTRY ENDIF TRY xOk=xOk AND THIS.crear_dbf(xDBF) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al crear el dbf."+CHR(13)+oEx.MESSAGE, 10) ENDTRY IF NOT THIS.lxls_crear_columnas_automatico THEN TRY This.sys_m("Buscar") xOk=xOk AND THIS.buscar_columnas_celdas( THIS.lxls_temporal) This.sys_m("Formato") xOk=xOk AND THIS.Preparar_Formato(.t.) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al buscar columnas."+CHR(13)+oEx.MESSAGE, 10) ENDTRY ENDIF TRY xOk=xOk AND THIS.obtener_datos_celdas( THIS.lxls_temporal) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al leer las celdas."+CHR(13)+oEx.MESSAGE, 10) ENDTRY OTHERWISE TRY xOk=xOk AND THIS.Guardar_DBF(xDBF) CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error guardar los datos."+CHR(13)+oEx.MESSAGE, 10) ENDTRY ENDCASE TRY xOk=xOk AND THIS.abrir_dbf() CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al abrir los el dbf."+CHR(13)+oEx.MESSAGE, 10) ENDTRY IF !THIS.Usar_Celdas AND NOT THIS.Usar_Lee_Estructura TRY xOk=xOk AND THIS.Eliminar_Registro_Formato() CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error guardar los datos."+CHR(13)+oEx.MESSAGE, 10) ENDTRY ENDIF TRY xOk=xOk AND THIS.aplicar_formato_dbf() CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error formatear el archivo DBF."+CHR(13)+oEx.MESSAGE, 10) ENDTRY TRY xOk=xOk AND THIS.insertar_columnas_vacias() CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al insertar columnas vacias."+CHR(13)+oEx.MESSAGE, 10) ENDTRY TRY xOk=xOk AND THIS.antes_de_validar() CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error en 'antes de validar'."+CHR(13)+oEx.MESSAGE, 10) ENDTRY TRY xOk=xOk AND THIS.validar_datos () CATCH TO oEx xOk=.F. =this.mensaje_suspendo_log(.T.,"Error al validar los datos."+CHR(13)+oEx.MESSAGE, 10) ENDTRY =THIS.cerrar_dbf() =THIS.limpiar_todo() RETURN xOk ENDPROC PROCEDURE preparar_formato LPARAMETERS xCeldas LOCAL xHoja, nIt, xOffH, xOffF, xOffD LOCAL xColCount, xColXLS *=sys_m("Preparar") xHoja=THIS.lhoja xOffH=THIS.lxls_offset-IIF(THIS.Usar_Celdas,1,2) xOffF=THIS.lxls_offset-1 xOffD=THIS.lxls_offset IF NOT THIS.Usar_Celdas THEN xOffH=xOffH+1 xOffF=xOffF+1 xOffD=xOffD+1 ENDIF IF NOT THIS.Usar_Celdas THEN xHoja.Cells(THIS.lxls_offset, 1).EntireRow.INSERT (-4121) ENDIF xColCount=IIF(xCeldas,THIS.lCol_Encontradas_Count, THIS.lcolumnas_count) xFormateoCeldas=(NOT xHoja.ProtectContents OR xHoja.Protection.AllowFormattingCells) FOR nIt=1 TO xColCount xColXLS=IIF(xCeldas,THIS.lCol_Encontradas(nIt,6), nIt) xCel=IIF(xCeldas,"THIS.lCol_Encontradas(nIt,2)", "this.lcolumnas(nIt,2)") IF NOT THIS.Usar_Celdas THEN xHoja.Cells(xOffH,xColXLS)=THIS.lcolumnas(nIt,4) xHoja.Cells(xOffF,xColXLS)=THIS.lcolumnas(nIt,2) ENDIF IF xFormateoCeldas THEN DO CASE CASE TYPE(xCel) ="N" xHoja.Cells(xOffD,xColXLS).EntireColumn.NumberFormat = "0.0000" CASE TYPE(xCel) ="D" xHoja.Cells(xOffD,xColXLS).EntireColumn.NumberFormat = "dd/mm/yyyy;@" CASE TYPE(xCel) ="T" xHoja.Cells(xOffD,xColXLS).EntireColumn.NumberFormat = "dd/mm/yyyyTHH:MM:SS" CASE TYPE(xCel) ="C" xHoja.Cells(xOffD,xColXLS).EntireColumn.NumberFormat = "@" ENDCASE *xHoja.Cells(xOffD,xColXLS).EntireColumn.AUTOFIT ENDIF NEXT IF NOT xFormateoCeldas AND p_dev THEN =mensaje("Se evit el formateo de celdas por estar protegida la hoja") ENDIF ENDPROC PROCEDURE agregar_columna LPARAMETERS xxlsNombre AS STRING, xXLSFormato AS STRING, xxlsDescripcion AS STRING, xdbfCampo AS STRING, xdbfFormato AS STRING, xdbfOpcional AS INTEGER, xfijodesde AS INTEGER, xfijohasta AS INTEGER, xfijoancho AS INTEGER, xrepeticion AS INTEGER SET PROCEDURE TO Dey_Func ADDITIVE LOCAL nIt, xPos, xFormato IF TYPE("xxlsNombre")="L" AND TYPE("xxlsFormato")="L" AND TYPE("xdbfCampo")="L" THEN THIS.lcolumnas_count=0 STORE "" TO THIS.lcolumnas FOR nIt=1 TO ALEN(THIS.lcolumnas,1) THIS.lcolumnas(nIt,10)=0 NEXT RETURN ENDIF THIS.lcolumnas_count= THIS.lcolumnas_count + 1 xPos=THIS.lcolumnas_count IF xPos > ALEN(THIS.lcolumnas,1) THEN DIMENSION THIS.lcolumnas(xPos,ALEN(THIS.lcolumnas,2)) FOR nIt=1 TO ALEN(THIS.lcolumnas,2)-1 THIS.lcolumnas(xPos,nIt)="" NEXT THIS.lcolumnas(xPos,10)=0 ENDIF IF TYPE("dbfOpcional")="N" THEN xdbfOpcional=(xdbfOpcional=1) ENDIF xrepeticion=EVL(xrepeticion,0) IF xrepeticion=0 THEN FOR nIt=1 TO xPos-1 IF nIt<=ALEN(THIS.lcolumnas,1) THEN IF ALLTRIM(THIS.lcolumnas(nIt,1))=ALLTRIM(xxlsNombre) THEN IF THIS.lcolumnas(nIt,10)=0 THEN THIS.lcolumnas(nIt,10)=1 xrepeticion=2 EXIT ELSE xrepeticion=THIS.lcolumnas(nIt,10)+1 ENDIF ENDIF ENDIF NEXT ENDIF IF EMPTY(xXLSFormato) THEN DO CASE CASE LEFT(xdbfFormato,1) ="C" xXLSFormato=REPLICATE("X",VAL(STREXTRACT(xdbfFormato,"(",")"))) CASE LEFT(xdbfFormato,1) ="N" *=sys_mostrar_screen("formato",.t.) xFormato=STREXTRACT(xdbfFormato,"(",")") xLargo=VAL(oDeyFunc.split_item(1,xFormato)) xDecimales=VAL(oDeyFunc.split_item(2,xFormato) ) xDecimales=IIF(ISNULL(xDecimales),0,xDecimales) xLargo=xLargo-IIF(xDecimales>0, xDecimales+1,0) xXLSFormato=REPLICATE("N",xLargo) xXLSFormato="'"+xXLSFormato + IIF(xDecimales=0,"", ","+REPLICATE("N",xDecimales)) CASE LEFT(xdbfFormato,1) ="D" xXLSFormato="DD/MM/AAAA" CASE LEFT(xdbfFormato,1) ="M" xXLSFormato="TEXTO SIN LONGITUD FIJA" ENDCASE ENDIF xxlsDescripcion=EVL(xxlsDescripcion,xxlsNombre) xdbfCampo=EVL(xdbfCampo,xxlsNombre) THIS.lcolumnas(xPos,1)=xxlsNombre THIS.lcolumnas(xPos,2)=xXLSFormato THIS.lcolumnas(xPos,3)=xxlsDescripcion THIS.lcolumnas(xPos,4)=xdbfCampo THIS.lcolumnas(xPos,5)=xdbfFormato IF TYPE("xdbfOpcional")="L" THEN xdbfOpcional=IIF(xdbfOpcional,1,0) ENDIF THIS.lcolumnas(xPos,6)=xdbfOpcional THIS.lcolumnas(xPos,7)=xfijodesde THIS.lcolumnas(xPos,8)=xfijohasta THIS.lcolumnas(xPos,9)=xfijoancho THIS.lcolumnas(xPos,10)=xrepeticion ENDPROC PROCEDURE crear_plantilla LPARAMETERS xXLS, xSinLeyendas, xLlenarDatos LOCAL xOk xOk=.T. TRY xOk=xOk AND THIS.abrir_excel() CATCH TO oEx xOk=.F. =Mensaje("Error al abrir la aplicacin EXCEL."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.crear_libro() CATCH TO oEx xOk=.F. =Mensaje("Error al crear la planilla."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.aplicar_formato(.T., xSinLeyendas, xLlenarDatos) CATCH TO oEx xOk=.F. =Mensaje("Error al dibujar la plantilla."+CHR(13)+oEx.MESSAGE) ENDTRY IF NOT xSinLeyendas THEN TRY xOk=xOk AND THIS.agregar_leyendas() CATCH TO oEx xOk=.F. =Mensaje("Error al agregar leyendas."+CHR(13)+oEx.MESSAGE) ENDTRY ENDIF xLlenarDatos=EVL(xLlenarDatos,0) IF xLlenarDatos>0 THEN TRY xOk=xOk AND THIS.Llenar_Datos(xLlenarDatos) CATCH TO oEx xOk=.F. =Mensaje("Error al llenar datos."+CHR(13)+oEx.MESSAGE) ENDTRY ENDIF THIS.limpiar_y_mostrar () ENDPROC PROCEDURE crear_libro this.lworkbook = this.lexcel.workbooks.add() this.lhoja = this.lworkbook.sheets(1) ENDPROC PROCEDURE formato_header LPARAMETERS xSelection With xSelection.Font .Name = "Arial" .Size = 12 .Bold = .T. EndWith xSelection.EntireRow.RowHeight = 18 xSelection.Interior.ColorIndex = 15 ENDPROC PROCEDURE guardar_dbf LPARAMETERS xArchivo IF NOT EMPTY(xArchivo) THEN this.ldbf_destino =xArchivo ELSE xArchivo=this.ldbf_destino ENDIF IF FILE(xArchivo) THEN DELETE FILE (xArchivo) ENDIF this.lexcel.displayalerts=.f. this.lhoja.cells(1,1).select this.lworkbook.saveas(xArchivo, 11, , , , , , , , 1252) this.lexcel.displayalerts=.f. this.lworkbook.close() this.lhoja=.f. this.lworkbook = .f. ENDPROC PROCEDURE eliminar_registro_formato xAlias=THIS.ldbf_alias SELECT &xAlias GO TOP DELETE PACK ENDPROC PROCEDURE aplicar_formato_dbf LOCAL xAlias, nIt, xCol, xFor, xdato TRY xAlias=this.ldbf_alias * *=sys_mostrar_screen("Aplica",.t.) FOR nIt=1 TO THIS.lcolumnas_count xCol=THIS.lcolumnas(nIt,4) xFor=THIS.lcolumnas(nIt,5) IF EMPTY(xCol) OR EMPTY(xFor) THEN LOOP ENDIF ALTER TABLE &xAlias ALTER COLUMN &xCol &xFor NEXT CATCH THROW ENDTRY ENDPROC PROCEDURE agregar_columna_vacia LPARAMETERS xxlsNombre AS STRING, xxlsFormato AS STRING, xxlsDescripcion AS STRING, xdbfCampo AS STRING, xdbfFormato AS STRING, xdbfOpcional AS INTEGER, xfijodesde AS INTEGER, xfijohasta AS INTEGER, xfijoancho AS INTEGER, xrepeticion AS INTEGER SET PROCEDURE TO Dey_Func ADDITIVE LOCAL nIt IF TYPE("xxlsNombre")="L" AND TYPE("xxlsFormato")="L" AND TYPE("xdbfCampo")="L" THEN THIS.lCol_Vacias_count=0 STORE "" TO THIS.lCol_Vacias FOR nIt=1 TO ALEN(THIS.lCol_Vacias,1) THIS.lCol_Vacias(nIt,10)=0 NEXT RETURN ENDIF LOCAL xPos, nIt xPos=0 FOR nIt=1 TO THIS.lCol_Vacias_count IF ALLTRIM(UPPER(THIS.lCol_Vacias(nIt,1)))=ALLTRIM(UPPER(xxlsNombre)) THEN xPos=nIt ENDIF NEXT IF xPos=0 THEN THIS.lCol_Vacias_count= THIS.lCol_Vacias_count + 1 xPos=THIS.lCol_Vacias_count ENDIF IF xPos > ALEN(THIS.lCol_Vacias,1) THEN DIMENSION THIS.lCol_Vacias(xPos,ALEN(THIS.lCol_Vacias,2)) FOR nIt=1 TO ALEN(THIS.lCol_Vacias,2)-1 THIS.lCol_Vacias(xPos,nIt)="" NEXT THIS.lCol_Vacias(xPos,10)=0 ENDIF xrepeticion=EVL(xrepeticion,0) IF xrepeticion=0 THEN FOR nIt=1 TO xPos-1 IF nIt<=ALEN(THIS.lcolumnas,1) THEN IF ALLTRIM(THIS.lcolumnas(nIt,1))=ALLTRIM(xxlsNombre) THEN IF THIS.lcolumnas(nIt,10)=0 THEN THIS.lcolumnas(nIt,10)=1 xrepeticion=2 EXIT ELSE xrepeticion=THIS.lcolumnas(nIt,10)+1 ENDIF ENDIF ELSE **=sys_m("vacia") ENDIF NEXT ENDIF IF EMPTY(xxlsFormato) THEN DO CASE CASE LEFT(xdbfFormato,1) ="C" xxlsFormato=REPLICATE("X",VAL(STREXTRACT(xdbfFormato,"(",")"))) CASE LEFT(xdbfFormato,1) ="N" *=sys_mostrar_screen("formato",.t.) xFormato=STREXTRACT(xdbfFormato,"(",")") xLargo=VAL(oDeyFunc.split_item(1,xFormato)) xDecimales=VAL(oDeyFunc.split_item(2,xFormato) ) xDecimales=IIF(ISNULL(xDecimales),0,xDecimales) xLargo=xLargo-IIF(xDecimales>0, xDecimales+1,0) xxlsFormato=REPLICATE("N",xLargo) xxlsFormato="'"+xxlsFormato + IIF(xDecimales=0,"", ","+REPLICATE("N",xDecimales)) CASE LEFT(xdbfFormato,1) ="D" xxlsFormato="DD/MM/AAAA" ENDCASE ENDIF xxlsDescripcion=EVL(xxlsDescripcion,xxlsNombre) xdbfCampo=EVL(xdbfCampo,xxlsNombre) *!* if type("xxlsNombre")="L" then *!* xxlsNombre=xdbfCampo *!* endif THIS.lCol_Vacias(xPos,1)=xxlsNombre THIS.lCol_Vacias(xPos,2)=xxlsFormato THIS.lCol_Vacias(xPos,3)=xxlsDescripcion THIS.lCol_Vacias(xPos,4)=xdbfCampo THIS.lCol_Vacias(xPos,5)=xdbfFormato IF TYPE("xdbfOpcional")="L" THEN xdbfOpcional=IIF(xdbfOpcional,1,0) ENDIF THIS.lCol_Vacias(xPos,6)=xdbfOpcional THIS.lCol_Vacias(xPos,7)=xfijodesde THIS.lCol_Vacias(xPos,8)=xfijohasta THIS.lCol_Vacias(xPos,9)=xfijoancho THIS.lCol_Vacias(xPos,10)=xrepeticion ENDPROC PROCEDURE abrir_dbf Set CPDialog Off xAlias=ALLTRIM(this.ldbf_alias) IF USED(xAlias) THEN SELECT &xAlias USE ENDIF SELECT 0 USE (THIS.ldbf_destino) ALIAS &xAlias EXCLUSIVE ENDPROC PROCEDURE cerrar_dbf xAlias=THIS.ldbf_alias TRY SELECT &xAlias USE CATCH ENDTRY ENDPROC PROCEDURE insertar_columnas_vacias LOCAL xCol, xFor, oEx LOCAL xColValidar_Agregada *=sys_m("Vacias") TRY xAlias=this.ldbf_alias SELECT (xAlias) FOR nIt=1 TO THIS.lcol_vacias_count xCol=THIS.lcol_vacias(nIt,4) xFor=THIS.lcol_vacias(nIt,5) IF EMPTY(xCol) OR EMPTY(xFor) THEN LOOP ENDIF IF ALLTRIM(UPPER(xCol))==ALLTRIM(UPPER(This.val_valido )) THEN xColValidar_Agregada=.t. ENDIF ALTER TABLE &xAlias Add COLUMN &xCol &xFor NEXT IF NOT xColValidar_Agregada AND this.val_crear_columna AND NOT EMPTY(This.val_valido ) THEN xCol=This.val_valido xFor="L" ALTER TABLE &xAlias Add COLUMN &xCol &xFor ENDIF CATCH TO oEx oEx.Message=oEx.Message+CHR(13)+"Columna: "+xCol + " "+xFor THROW ENDTRY ENDPROC PROCEDURE validar_datos LOCAL xMal, xalias, xDescr_R, oEx, xValido LOCAL xVal_Func, xPre_Validar, xPos_Validar xalias=this.ldbf_alias xValido= this.val_valido xVal_Func=this.val_func xPre_Validar=This.Val_Pre xPos_Validar=This.Val_Pos *=sys_m("validar") &xPre_Validar SELECT &xAlias SCAN SELECT &xalias &xVal_Func SELECT &xalias ENDSCAN &xPos_Validar SELECT &xalias xMal=0 IF NOT EMPTY(xValido) THEN COUNT FOR NOT &xValido TO xMal ELSE xMal=0 ENDIF this.rec_malas = xMal this.rec_buenas = RECCOUNT() - xMal IF this.rec_buenas >0 THEN this.rec_Hay_buenas () ENDIF IF xMal>0 THEN This.Rec_Hay_Malas() ENDIF RETURN ENDPROC PROCEDURE validar_fila *=sys_m("Validar Fila") LOCAL xalias, xDescr_R, oEx xalias=this.ldbf_alias LOCAL xCod, xBul, xAtr, xDescr, xValido IF this.val_usar_codalt THEN xCod=this.val_Art_codalt else xCod=this.val_art_cod_ins ENDIF IF this.val_nousar_bulatr THEN this.val_art_bul ="" This.val_art_atr ="" ENDIF xBul=this.val_art_bul xAtr=This.val_art_atr xDescr=this.val_art_descr xDescr_R="" xValido=this.val_valido IF NOT EMPTY(xValido) THEN REPLACE &xValido WITH THIS.validar_articulo (&xCod, &xBul, &xAtr, @xDescr_R) ENDIF SELECT &xalias IF NOT Alltrim(xDescr)="" THEN replace &xDescr WITH xDescr_R ENDIF IF this.val_usar_codalt THEN xCod=this.val_art_cod_ins replace &xcod WITH bienes.cod_ins ENDIF ENDPROC PROCEDURE validar_articulo LPARAMETERS xcod, xbul, xatr, xDescr LOCAL xValido IF xcod # oBie.data_codigo_vacio THEN xValido=.F. DO pr_comb_buscar IN pr_funciones WITH xcod, xbul, xatr,, .T., xValido, this.val_usar_codalt IF NOT xValido THEN RETURN .F. ENDIF DO Fill_Bie_Bul_Atr_Descr IN dey_fill WITH bienes.descr, atributo.descr, bultos.descr,bienes.atr,bienes.Bul, 60, xDescr RETURN .T. ELSE RETURN .F. ENDIF ENDPROC PROCEDURE limpiar_todo TRY this.lexcel.displayalerts=.f. try this.lworkbook.close() catch endtry THIS.lhoja=.F. THIS.lworkbook=.F. IF TYPE("This.lExcel")="O" THEN IF THIS.lexcel_propio THEN =THIS.lexcel.QUIT() ELSE THIS.lexcel.VISIBLE=.T. THIS.lexcel.WINDOWSTATE=1 ENDIF THIS.lexcel=.F. ENDIF CATCH ENDTRY ENDPROC PROCEDURE agregar_leyendas LOCAL xHoja, nIt, xOffH, xOffF, xOffD, xwidth1, xwidth2, xOffL xHoja=THIS.lhoja xOffH=THIS.lxls_offset-1 xOffF=THIS.lxls_offset xOffD=THIS.lxls_offset+1 xOffL=xOffD+4 IF NOT THIS.Usar_Celdas THEN xOffH=xOffH+1 xOffF=xOffF+1 xOffD=xOffD+1 ENDIF xHoja.cells( xOffL,1) = "Lea atentamente las instrucciones:" xHoja.cells( xOffL+1,1) = "" xHoja.cells( xOffL+2,1) = "La fila 2 muestra el formato y ancho de los datos de la columna, X son caracteres (texto), 9 son nmeros." xHoja.cells( xOffL+3,1) = "La fila 4 muestra la funcin de cada columna. No confundir con el ttulo de la misma, que es fijo." xHoja.cells(xOffL+4,1) = "El orden de las columnas SIEMPRE debe ser el mismo." xHoja.cells(xOffL+5,1) = "Puede ser que en algunos casos no se necesite ningn dato de esa columna, pero el espacio debe existir igualmente." xHoja.cells(xOffL+6,1) = "Slo los ttulos de las columnas (fila 1 con fondo gris), son necesarios para la importacin, todo lo que" xHoja.cells(xOffL+7,1) = "le sigue ms abajo, incluyendo este texto, se debe borrar y es a nivel informativo." FOR nIt=xOffL TO xOffL WITH xHoja.cells(nIt,1).FONT .NAME = "Arial" .SIZE = 12 .Bold = .T. .ColorIndex = 3 ENDWITH NEXT FOR nIt=xOffL+2 TO xOffL+7 WITH xHoja.cells(nIt,1).FONT .NAME = "Arial" .SIZE = 10 .Bold = .T. .ColorIndex = 3 ENDWITH NEXT ENDPROC PROCEDURE obtener_datos LPARAMETERS xXLS, xDBF LOCAL xOK, xHoja xOK=.t. xHoja="" *=sys_m("Obtener datos") IF NOT EMPTY(xDBF) THEN THIS.ldbf_destino =xDBF ELSE xDBF = THIS.ldbf_destino ENDIF IF FILE(xDBF) THEN DELETE FILE (xDBF) ENDIF LOCAL nConn, xConDRV xConDRV= "Driver=" + "Microsoft Excel Driver (*.xls);" xConDRV= [Driver=] + ; [Microsoft Excel Driver (*.xls);] + ; [DBQ=] + xXLS nConn=-1 TRY =SQLSETPROP(0,"DispLogin",3) =SQLSETPROP(0,"DispWarnings" ,.F.) nConn=SQLSTRINGCONNECT("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq="+xXLS+";driverid=1046") *nConn=SQLSTRINGCONNECT(xConDRV) CATCH ENDTRY IF nConn = -1 THEN xMSG="No se pudo conectar al servidor" ENDIF IF USED("TMPSheetNames") THEN SELECT TMPSheetNames USE ENDIF SQLTABLES(nConn,"", "TMPSheetNames") GO TOP IN TMPSheetNames LOCATE FOR ALLTRIM(UPPER(table_name))=ALLTRIM(UPPER(THIS.lxls_hoja)) IF !FOUND() OR ALLTRIM(UPPER(THIS.lxls_hoja))="" THEN DO FORM sys_importar_seleccionar_hoja WITH "TMPSheetNames", xXLS TO xHoja xTable=ALLTRIM(xHoja) ELSE xTable=ALLTRIM(TMPSheetNames.table_name) ENDIF IF EMPTY(xTable ) THEN ** ERROR CON EL NOMBRE DE LA HOJA xOK=.f. ELSE *!* cTabla = Trim(SheetNames.Table_Name) *!* cCursor = Chrtran(cTabla," $","_") * --- Get Specific Table Contents Into Cursor --- cSQLCommand = 'SELECT * FROM "' + xTable +'" tHoja' nRet = SQLEXEC(nConn, cSQLCommand, 'Result') IF nRet = 1 * --- Result Returned Into Cursor 'Result' --- LOCAL ARRAY tmpaF(1) =AFIELDS(tmpaF) SELECT Result COPY TO (xDBF) FOR NOT ISNULL(EVALUATE(tmpaF(1,1))) ENDIF xOK=.t. ENDIF =SQLDISCONNECT(nConn) THIS.lexcel.displayalerts=.F. THIS.lworkbook.CLOSE() THIS.lhoja=.F. THIS.lworkbook = .F. RETURN xOK ENDPROC PROCEDURE limpiar_y_mostrar TRY THIS.lhoja=.F. THIS.lworkbook=.F. IF TYPE("This.lExcel")="O" THEN this.lExcel.Visible=.t. THIS.lexcel.WINDOWSTATE=1 THIS.lexcel=.F. ENDIF CATCH ENDTRY ENDPROC PROCEDURE obtener_datos_celdas LPARAMETERS xXLS, xRecursivo LOCAL xDBF, xAlias, xCol, xFor, xCampos, xSeparador, nRow, xna, xnatest, xSeguir, xSeguir_Hasta, xNAC, xPNAC, xNombreHoja LOCAL nIt, oEx, oEx2 *=sys_m("Obtener datos") xDBF = THIS.ldbf_destino xAlias=ALLTRIM(THIS.ldbf_alias ) nRow=THIS.lxls_offset && 1=Header, 2=Datos Formato, 3>Dato a importar. *nRow=2579 xSeguir = 0 xSeguir_Hasta=THIS.lxls_filasvacias xPNAC=99999999 *=sys_m("Val columna") IF THIS.Val_column>0 THEN xVal_column=THIS.lCol_Encontradas(THIS.Val_column,6) ELSE xVal_column=0 ENDIF **=sys_mostrar_screen("Importar Server?", .t.) TRY xNombreHoja=THIS.lhoja.NAME xSeparador="" SELECT &xAlias DO WHILE xSeguir<=xSeguir_Hasta =THIS.Nueva_Fila(nRow) APPEND BLANK * *=sys_mostrar_screen("Nrow="+ALLTRIM(STR(nRow)), nRow>=2580) xna=.F. FOR nIt=1 TO THIS.lCol_Encontradas_Count =THIS.Nueva_Columna(nIt, nRow) xErrorOmitido=.F. xColXLS=THIS.lCol_Encontradas(nIt,6) TRY * Verifico que el tipo de dato no sea N/A xnatest=THIS.lhoja.Cells(nRow,nIt).VALUE CATCH TO oEx * No es un dato vlido, elimino el registro agregado y termino la importacin IF THIS.xls_omitir_errores_lectura THEN xErrorOmitido=.T. ELSE xna=.T. IF NOT THIS.xls_omitir_errores_lectura THEN IF p_imp_xls_mensaje_cancelar=1 THEN =THIS.mensaje_suspendo_log(.T.,"Error al importar datos en la fila "+ALLTRIM(STR(nRow)) + " de la hoja '"+ALLTRIM(xNombreHoja)+"' !!! "+CHR(13)+; "Se ha cancelado la importacin del resto de las filas de la hoja!!!") ENDIF ENDIF ENDIF ENDTRY IF !xna IF NOT xErrorOmitido THEN TRY THIS.guardar_datos_celda (nIt, THIS.lhoja.Cells(nRow,xColXLS).VALUE,, xNombreHoja) CATCH ENDTRY ENDIF ELSE * Elimino el registro y salgo DELETE IN (xAlias) IF THIS.lxls_filaforzada >0 AND nRow< THIS.lxls_filaforzada THEN xPNAC=99999999 xSeguir=0 ELSE xSeguir=999999999999 ENDIF ENDIF NEXT IF !xna nRow=nRow+1 xNAC=.F. IF xErrorOmitido THEN xNAC=.T. ELSE IF xVal_column = 0 THEN IF ISNULL(THIS.lhoja.Cells(nRow,1).VALUE) AND ISNULL(THIS.lhoja.Cells(nRow,2).VALUE) AND ISNULL(THIS.lhoja.Cells(nRow,3).VALUE) THEN xNAC=.T. ENDIF IF EMPTY(THIS.lhoja.Cells(nRow,1).VALUE) AND EMPTY(THIS.lhoja.Cells(nRow,2).VALUE) AND EMPTY(THIS.lhoja.Cells(nRow,3).VALUE) THEN xNAC=.T. ENDIF ELSE TRY IF ISNULL(THIS.lhoja.Cells(nRow,xVal_column).VALUE) THEN xNAC=.T. ENDIF IF EMPTY(THIS.lhoja.Cells(nRow,xVal_column).VALUE) THEN xNAC=.T. ENDIF CATCH xNAC=.T. ENDTRY ENDIF ENDIF IF xNAC THEN xSeguir=xSeguir+1 xPNAC=MIN(RECNO()+1, xPNAC) ELSE xSeguir=0 xPNAC=99999999 ENDIF ENDIF IF THIS.lxls_filaforzada >0 AND nRow< THIS.lxls_filaforzada THEN xSeguir=0 xPNAC=99999999 * xSeguir=.T. ENDIF ENDDO DELETE FOR RECNO()>=xPNAC && Elimino todos los registros posteriores al Primer NAC CATCH TO oEx2 THROW ENDTRY IF THIS.lxls_hojas_todas THEN THIS.lhoja = THIS.seleccionar_hoja() IF THIS.lxls_hoja_actual=0 THEN RETURN .T. ELSE RETURN THIS.obtener_datos_celdas(xXLS, .T.) ENDIF ENDIF THIS.lexcel.displayalerts=.F. THIS.lworkbook.CLOSE() THIS.lhoja=.F. THIS.lworkbook = .F. ENDPROC PROCEDURE crear_dbf lparameters xarchivo if not empty(xarchivo) then this.ldbf_destino =xarchivo else xarchivo=this.ldbf_destino endif if file(xarchivo) then delete file (xarchivo) endif local xalias, xcol, xfor, xcampos, xseparador, xmsg xalias=this.ldbf_alias xseparador="" xcampos="" xmsg="" try **=sys_mostrar_screen("Pre Col",.t.) for nit=1 to this.lcolumnas_count xcol=this.lcolumnas(nit,4) if len(xcol)>10 xmsg=IIF(EMPTY(xmsg),"",CHR(10))+xmsg+"El nombre del campo '"+alltrim(xcol)+"' es mayor a 10 caracteres!!!" endif xfor=this.lcolumnas(nit,5) if empty(xcol) or empty(xfor) then loop endif xcampos=xcampos+xseparador+xcol +" "+ xfor xseparador=", " next *!* FOR nIt=1 TO THIS.lcol_vacias_count *!* xCol=THIS.lcol_vacias (nIt,4) *!* xFor=THIS.lcol_vacias (nIt,5) *!* IF EMPTY(xCol) OR EMPTY(xFor) THEN *!* LOOP *!* ENDIF *!* xCampos=xCampos+xSeparador+xCol +" "+ xFor *!* xSeparador=", " *!* NEXT * *=sys_mostrar_screen("Pre create",.t.) select 0 create table (xarchivo) free (&xcampos) use (xarchivo) alias &xalias catch if !empty(xmsg) mensaje(xmsg) endif throw endtry ENDPROC PROCEDURE guardar_datos_celda LPARAMETERS nIt, xValor, xReferencia, xHojaNombre LOCAL xFor, xAlias, xCol, xHoja xAlias=THIS.ldbf_alias xCol=THIS.lcol_encontradas(nIt,4) xFor=THIS.lcol_encontradas(nIt,5) IF EMPTY(xCol) OR EMPTY(xFor) THEN RETURN .F. ENDIF TRY IF ISNULL(xValor) THEN xValor=&xCol ENDIF REPLACE &xCol WITH xValor CATCH TRY xReferencia=EVALUATE(xCol) xValor=THIS.igualar_valores(xReferencia,xValor) IF xValor#xReferencia THEN REPLACE &xCol WITH xValor ENDIF CATCH ENDTRY ENDTRY IF NOT EMPTY(xHojaNombre) AND NOT EMPTY(THIS.lxls_hoja_campo) xHoja=THIS.lxls_hoja_campo TRY REPLACE &xHoja WITH xHojaNombre CATCH ENDTRY ENDIF ENDPROC PROCEDURE igualar_valores LPARAMETERS xReferencia, xValor, xDecimales LOCAL xRetorno, oEx IF TYPE("xReferencia")=TYPE("xValor") THEN RETURN xValor ENDIF TRY xRetorno=xReferencia DO CASE CASE TYPE("xReferencia")="N" DO CASE CASE TYPE("xValor")="L" xRetorno=IIF(xValor,1,0) CASE TYPE("xValor")="C" LOCAL oES as Estado_Sets OF sys_clases_herramientas.prg oES=NEWOBJECT("Estado_Sets", "sys_clases_herramientas.prg") oEs.set_pointsep(this.lxls_point, this.lxls_separator ) xRetorno=VAL(Strtran(Strtran(xValor,SET("Separator" ),""),chr(160),"")) oEs.Pop_PointSep() ENDCASE CASE TYPE("xReferencia")="C" DO CASE CASE TYPE("xValor")="L" xRetorno=IIF(xValor,"Si","No") otherwise xRetorno=TRANSFORM(xValor) ENDCASE CASE TYPE("xReferencia")="D" DO CASE CASE TYPE("xValor")="L" xRetorno={ / / } CASE TYPE("xValor")="C" xRetorno=CTOD(xValor) IF EMPTY(xRetorno) THEN xRetorno=this.igualar_valores_fechas (xValor) ENDIF CASE TYPE("xValor")="T" xRetorno=TTOD(xValor) CASE TYPE("xValor")="N" xRetorno=DATE(1900,1,1)+xValor-2 ENDCASE CASE TYPE("xReferencia")="T" DO CASE CASE TYPE("xValor")="L" xRetorno={ / / } CASE TYPE("xValor")="C" xRetorno=CTOT(xValor) CASE TYPE("xValor")="D" xRetorno=DTOT(xValor) ENDCASE ENDCASE CATCH TO oEx xRetorno=xReferencia ENDTRY RETURN xRetorno ENDPROC PROCEDURE buscar_columnas_celdas LPARAMETERS xXLS LOCAL xDBF, xAlias, xCol, xFor, xCampos, xSeparador, nRow, xna, xnatest LOCAL nIt, nIt2, oEx2, oEx2, xVALT, xRepeticion, xPrueba xRepeticion=1 nRow=THIS.lxls_offset - 1 &&Cuando se usa celdas no se inserta el renglon de formato entonces 1=Header, 2>Dato a importar. xSeguir=.T. IF THIS.usar_columnas_fijas_celdas THEN &&& Como no se buscan se pasan una por una en orden como si fueron encontradas FOR nIt=1 TO THIS.lcolumnas_count =THIS.agregar_columna_encontrada(nIt, nIt) NEXT ELSE &&& Busca las columnas y las agrega encontradas segun el orden. TRY FOR nIt=1 TO THIS.lcolumnas_count xRepeticion=1 FOR nIt2=1 TO 255 xnatest=.F. TRY xVALT= THIS.lhoja.Cells(nRow,nIt2).VALUE IF TYPE("xValT")#"C" THEN xVALT="" ENDIF *=sys_m("Columnas") xPrueba=oDeyFunc.InlistStrArr_Crear("ALLTRIM(UPPER(xVALT))",ALLTRIM(UPPER(THIS.lcolumnas(nIt,1))),1,,,"|") IF EVALUATE(xPrueba) THEN IF THIS.lcolumnas(nIt,10)=0 OR THIS.lcolumnas(nIt,10)=xRepeticion THEN xnatest=.T. ELSE xRepeticion=xRepeticion+1 ENDIF ENDIF CATCH TO oEx2 xSeguir=xSeguir ENDTRY IF xnatest THEN =THIS.agregar_columna_encontrada(nIt, nIt2) EXIT ENDIF NEXT IF NOT xnatest AND THIS.lcolumnas(nIt,6)=0 THEN *** Si NO la encontre y NO es opcional... la agrego con 0. =THIS.agregar_columna_encontrada(nIt, 0) ENDIF NEXT CATCH TO oEx THROW ENDTRY LOCAL xCampos, xCuenta xCuenta=0 xCampos="" FOR nIt=1 TO THIS.lcol_encontradas_count IF THIS.lcol_encontradas(nIt,6)=0 THEN =oDeyFunc.TX_Agregar_Item(@xCampos, THIS.lcol_encontradas(nIt,1),3 ) xCuenta=xCuenta+1 ENDIF NEXT IF NOT EMPTY(xCampos) THEN =this.mensaje_suspendo_log(.t.,"No se encontr alguna columna obligatoria. "+CHR(13)+"Falta: " + xCampos) *=sys_mostrar_screen("Suspendo?", .t.) RETURN .F. ENDIF ENDIF ENDPROC PROCEDURE agregar_columna_encontrada LPARAMETERS xCol, xXLSCol LOCAL nIt IF PARAMETERS() = 0 THEN THIS.lcol_encontradas_count =0 STORE "" TO THIS.lcol_encontradas FOR nIt=1 TO ALEN(THIS.lcol_encontradas,1) THIS.lcol_encontradas(nIt,10)=0 NEXT RETURN ENDIF LOCAL xPos THIS.lcol_encontradas_count = THIS.lcol_encontradas_count + 1 xPos=THIS.lcol_encontradas_count IF xPos > ALEN(THIS.lcol_encontradas,1) THEN DIMENSION THIS.lcol_encontradas(xPos,ALEN(THIS.lcol_encontradas,2)) ENDIF THIS.lcol_encontradas(xPos,1)=THIS.lcolumnas(xCol,1) THIS.lcol_encontradas(xPos,2)=THIS.lcolumnas(xCol,2) THIS.lcol_encontradas(xPos,3)=THIS.lcolumnas(xCol,3) THIS.lcol_encontradas(xPos,4)=THIS.lcolumnas(xCol,4) THIS.lcol_encontradas(xPos,5)=THIS.lcolumnas(xCol,5) THIS.lcol_encontradas(xPos,6)=xXLSCol THIS.lcol_encontradas(xPos,7)=THIS.lcolumnas(xCol,7) THIS.lcol_encontradas(xPos,8)=THIS.lcolumnas(xCol,8) THIS.lcol_encontradas(xPos,9)=THIS.lcolumnas(xCol,9) THIS.lcol_encontradas(xPos,10)=THIS.lcolumnas(xCol,10) ENDPROC PROCEDURE igualar_valores_fechas LPARAMETERS xf LOCAL xMesC, xMes xMesC= UPPER(SUBSTR(xf, 4,3)) DO CASE CASE xMesC="ENE" OR xMesC="JAN" xmes=1 CASE xMesC="FEB" xmes=2 CASE xMesC="MAR" xmes=3 CASE xMesC="ABR" OR xMesC="APR" xmes=4 CASE xMesC="MAY" xmes=5 CASE xMesC="JUN" xmes=6 CASE xMesC="JUL" xmes=7 CASE xMesC="AGO" OR xMesC="AUG" xmes=8 CASE xMesC="SEP" xmes=9 CASE xMesC="OCT" xmes=10 CASE xMesC="NOV" xmes=11 CASE xMesC="DIC" OR xMesC="DEC" xmes=12 OTHERWISE *!* TRY *!* mensaje("Error de conversin en la fecha !!!("+(xMesC)+")("+xf+")") *!* CATCH *!* mensaje("Error de conversin en la fecha !!!") *!* ENDTRY xmes=1 ENDCASE RETURN DATE( 2000+VAL(SUBSTR(xf, 8,2)), xmes, VAL(LEFT(xf,2))) ENDPROC PROCEDURE seleccionar_hoja LPARAMETERS xNombre_Hoja, xRecursivo DO CASE CASE this.lxls_hojas_todas THIS.lxls_hoja_actual=THIS.lxls_hoja_actual+1 IF THIS.lxls_hoja_actual>THIS.lworkbook.sheets.COUNT THEN THIS.lxls_hoja_actual=0 RETURN .F. ELSE RETURN THIS.lworkbook.sheets(THIS.lxls_hoja_actual) ENDIF CASE THIS.lxls_hoja = "Hoja1$" *** Se dej el valor por defecto, se devuelve la hoja 1 RETURN THIS.lworkbook.sheets(1) ENDCASE IF EMPTY(xNombre_Hoja) THEN xNombre_Hoja = THIS.lxls_hoja ENDIF LOCAL xTMP , oSheet, xHoja, xTMPFile xHoja="" xTMPFile = oDeyFunc.NewFile_Local_TMP() *!* ="Hoja1$"= THIS.lworkbook.sheets(xHoja) FOR EACH oSheet IN THIS.lworkbook.sheets IF ALLTRIM(UPPER(oSheet.NAME))=ALLTRIM(UPPER(xNombre_Hoja )) OR ALLTRIM(UPPER(oSheet.NAME+"$"))=ALLTRIM(UPPER(xNombre_Hoja )) THEN **** Encontrada, se pasa. RETURN oSheet ENDIF NEXT IF USED("TMPSheetNames") THEN SELECT TMPSheetNames USE ENDIF SELECT 0 CREATE TABLE (xTMPFile) FREE (Table_Name c(60)) USE (xTMPFile) ALIAS TMPSheetNames FOR EACH oSheet IN THIS.lworkbook.sheets INSERT INTO TMPSheetNames VALUES (oSheet.NAME) NEXT DO FORM sys_importar_seleccionar_hoja WITH "TMPSheetNames", THIS.lworkbook.NAME TO xHoja IF USED("TMPSheetNames") THEN SELECT TMPSheetNames USE ENDIF IF !xRecursivo THEN RETURN THIS.seleccionar_hoja(xHoja, .T.) ELSE RETURN .F. ENDIF ENDPROC PROCEDURE importar_csv LPARAMETERS xCSV, xDBF LOCAL xOk xOk=.T. TRY xOk=xOk AND THIS.crear_dbf(xDBF) CATCH TO oEx xOk=.F. =Mensaje("Error al crear el dbf."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.obtener_datos_csv(xCSV) CATCH TO oEx xOk=.F. =Mensaje("Error al obtener datos CSV."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.abrir_dbf() CATCH TO oEx xOk=.F. =Mensaje("Error al abrir los el dbf."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.aplicar_formato_dbf() CATCH TO oEx xOk=.F. =Mensaje("Error formatear el archivo DBF."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.insertar_columnas_vacias() CATCH TO oEx xOk=.F. =Mensaje("Error al insertar columnas vacias."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.antes_de_validar() CATCH TO oEx xOk=.F. =Mensaje("Error en 'antes de validar'."+CHR(13)+oEx.MESSAGE) ENDTRY TRY xOk=xOk AND THIS.validar_datos () CATCH TO oEx xOk=.F. =Mensaje("Error al validar los datos."+CHR(13)+oEx.MESSAGE) ENDTRY =THIS.cerrar_dbf() =THIS.limpiar_todo() RETURN xOk ENDPROC PROCEDURE obtener_datos_csv LPARAMETERS xCSV LOCAL xAlias, xFS xAlias=THIS.ldbf_alias SELECT (xAlias) **=sys_mostrar_screen("AntesCSV",.t.) xFS=oDeyFunc.NewFile_Local_TMP(,"csv") IF this.lcsv_strconv # 0 THEN =strtofile(STRCONV(FILETOSTR(xCSV),this.lcsv_strconv),xFS) xCSV = xFS ENDIF IF this.usar_fijo THEN xCSV=this.aplicar_separadores (this, xCSV) ENDIF LOCAL xChar xChar='"'+this.lcsv_char+'"' APPEND FROM (xCSV) TYPE DELIMITED WITH CHARACTER &xChar GO TOP IF this.lcsv_head THEN DELETE FOR RECNO()Dato a importar. xSeguir=.T. xColCuenta=EVL(THIS.lxls_crear_columnas_automatico_cantidad,254) THIS.agregar_columna () FOR nIt=1 TO xColCuenta xVALT= THIS.lhoja.Cells(nRow,nIt).VALUE IF TYPE("xValT")#"C" THEN xVALT="" ENDIF IF EMPTY(xVALT) AND THIS.lxls_crear_columnas_automatico_cantidad=0 THEN *** Est en automtico y el ttulo est vacio EXIT ENDIF THIS.agregar_columna (xVALT, , , "COL"+ALLTRIM(STR(nIt)), "C (254)") =THIS.agregar_columna_encontrada(nIt, nIt) NEXT this.crear_columnas_automatico_pos() ENDPROC PROCEDURE mensaje_suspendo_log LPARAMETERS xSuspendo, xTexto, xVerbose =this.loguear(xTexto, xVerbose) =mensaje_suspendo(xSuspendo, xTexto) ENDPROC PROCEDURE loguear LPARAMETERS xTexto, xVerbose ENDPROC PROCEDURE nueva_fila LPARAMETERS xFila ENDPROC PROCEDURE nueva_columna LPARAMETERS xColumna, xFila ENDPROC PROCEDURE sys_m LPARAMETERS xTexto, xNOSuspender, xForzar =sys_M(m.xTexto, xNOSuspender or (not this.p_suspend and not m.xForzar)) ENDPROC PROCEDURE Destroy =this.dispose() ENDPROC PROCEDURE Init this.agregar_columna() this.agregar_columna_vacia () ENDPROC "\ % U'C QEXPORTACIONES_XLS_CELDAf:\sistema\2000\imp_exp.vcx1T CExportaciones_XLS_CeldaIMP_EXPH CxFilabNT  CxFilabL%T  C6H, CxColbNVT  CxColbL%T  C6-T CCxOff_ColbN6.T CC xOff_FilabN6T T T T  T T T  T  T C  DT C  DBC UXCOLXFILAXVALORXFORMULAXFORMATOXOFF_COL XOFF_FILA XBOR_TIPO XBOR_COLORXCELDIR_FILATHISACT_FILADIR_COLACT_COLOFF_COLOFF_FILAVALOR VALORFORMULAFORMATO CEL_PADREBOR_TIPO BOR_COLORUSO_COLUSO_FILACEL_COLLADD' T BUXCOLXOFFTHISOFF_COL' T BUXFILAXOFFTHISOFF_FILA.TBCUXRANGO CEL_PADRETHISCEL_COLLADD-%Cthis.cel_padre.act_filabNmTTT T BUXFILAXOFFXWRKOFFTHISOFF_FILAWRK_OFFSET_FILA CEZQEXCEL.WorksheetQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx T T%B#Q EXCEL.RANGEQEXCEL#     3 T T  T  T  T  T  T T TT T T TT T TTTT T TCTCCaaC !CaaC"#! T$%T$ % H i DC $@T%T&T' N C $T%T&T'  C $T%T&T'  [C $WT%T&T' e  C $T%T&T'  +C $'T%T&T' 5 C $T%T&T'  C $T%T&T'  BC$>T%T&T' L C$T%T&T'   C $T%T&T'  oC $kT%T&T' y C $T%T&T'  )C $%T%T&T' 3 C$T%T&T'  C$T%T&T' U( XACTSHEET2OCEL2SYS_M XACTSHEETOCELBOR_TIPOOSELSDXLDIAGONALDOWN XLDIAGONALUP XLEDGELEFT XLEDGETOP XLEDGEBOTTOM XLEDGERIGHTXLINSIDEHORIZONTALXLINSIDEVERTICAL XLHAIRLINEXLMEDIUMXLTHICKXLTHIN XLCONTINUOUSXLDASH XLDASHDOT XLDASHDOTDOTXLDOTXLDOUBLEXLLINESTYLENONEXLSLANTDASHDOTXLNONERANGECELLS ACT_INI_FILA ACT_INI_COLADDRESSUSO_FILAUSO_COLBORDERS LINESTYLE COLORINDEXWEIGHT,%Cthis.cel_padre.act_ColbNlTTT T BUXCOLXOFFXWRKOFFTHISOFF_COLWRK_OFFSET_COLQ EXCEL.RANGE T%CxRFormbCTTC--TCCCZTCCZ.%Cthis.cel_padre.cel_padrebO2T CC ZT  TCC ZT TC?RCTC?RFTC?FI TC?FF T-  BUXRFORMXCELLXRCXRFTHIS VALORFORMULAXLS_CELLADDRESSROWXFI CEL_PADRE ACT_INI_FILAXCI ACT_INI_COLXFFUSO_FILAXCFUSO_COLQ''Ca U XCOLXFILAXVALORXFORMULAXFORMATOXOFF_COL XOFF_FILA XBOR_TIPO XBOR_COLORTHISCEL_ADD3   1C +Ca UXCOLXFILAXVALOR1 XFORMULA1 OFORMATO1XVALOR2 XFORMULA2 OFORMATO2XOFF_COL XOFF_FILA XBOR_TIPO XBOR_COLORTHISCEL_ADD TC CollectionNUTHISCEL_COLLcel_add0off_col_accessoff_fila_accessC cel_rango_addwrk_offset_full_fila_access aplicar_bordewrk_offset_full_col_accessuvalorformula_accessG cel_add_row cel_add_paresYInity1q1QAQA11A333qA2A3aAA121q3AaqAAqAAqAAqAAbqAAqAAqAAqAAqAAqAAbqAAqAAqAAqAAqAAqAAB3A31AaaBA3qq2121#"0&B=*B4dPWm(CKgO U) -"  %2'U:QEXPORTAR_TEXTOf:\sistema\2000\imp_exp.vcxT CCCCCCC C  B U OEXPTHISEXP_TXT VAL_AGREGAR VAL_AGREGAREX XLS_CAMPO XLS_DESCRXLS_TOTAL_SEPARAXLS_TOTAL_GENERAL XLS_INCLUIDA XLS_ORDEN VAL_TEXTO0:QEXPORTAR_TEXTOf:\sistema\2000\imp_exp.vcxTT TCTCTC-T C-T CT CT C(  BUVNEWVALOEXPTHISEXP_TXT VAL_TEXTO XLS_CAMPOVAL_COLECCION_NEXTEX XLS_DESCRXLS_TOTAL_SEPARAXLS_TOTAL_GENERAL XLS_FORMATO XLS_INCLUIDA XLS_ORDENOEXTthisform.campos_agregar ("C","C",,C .t..f.6,C .t..f.6) BUXTEXTOTHIS XLS_CAMPO XLS_DESCRXLS_TOTAL_SEPARAXLS_TOTAL_GENERALT UVNEWVALTHIS XLS_CODIGOx4QSTRINGQSTRINGQINTEGERQBOOLEANQBOOLEANQOBJECTQINTEGERQINTEGERPTCC Exportaciones_Parametros_Formato Clases.vcxaO T C T C T T T T C T C :QEXPORTAR_TEXTOf:\sistema\2000\imp_exp.vcx,TCExportar_Texto Imp_Exp.vcxTXLDTXLHT UXFIELDXLABELXPOS XTOTAL_SEPARAXTOTAL_GENERALXFORMATO XINCLUIDAXORDENODEYFUNC CHK_VALUETHIS XLS_CAMPO XLS_DESCRXLS_TOTAL_SEPARAXLS_TOTAL_GENERAL XLS_FORMATO XLS_INCLUIDA XLS_ORDENOEXPSET_DIVSET_HEADEXP_TXTxls_texto_access0xls_texto_assignxls_codigo_accessxls_codigo_assignuInit11111113qaaA33q"3112 Dlx& 0# . 6) 1  %  UT(T CT 2TC  6T .TC C C 6T BUXVAL2XTEXTXDIXDETHISHEAD_ININIT VAL_COLECCIONCOUNTXVALDIV_INI DIV_ULTIMADIV_ENDVAL_AGREGAR_RETORNOHEAD_END:T %JTCC C TC CollectionT"TC +a3"TC  %C!TC"TC  C U VNEWVALXVAL2THISVAL_AGREGAR_RETORNO VAL_COLECCIONVAL_COLECCION_INDICEHEAD_INIHEAD_ENDXVAL3DIV_INIDIV_ENDADD.QSTRINGQSTRINGQINTEGER %CxValbL rTC CollectionBa%CxValbCB-%C TCCUXVALXDIVXLARGOTHIS VAL_COLECCIONADDR!%C this.head_inibL7B<>K BUTHISSET_HEADHEAD_INIS!%C this.head_endbL8BL BUTHISSET_HEADHEAD_ENDR %C this.div_endbL7BK BUTHISSET_DIVDIV_ENDQ %C this.div_inibL6B<>J BUTHISSET_DIVDIV_INI!QINTEGERQINTEGER%C AT`T%CBCBCCUXINDICEXLARGOTHISVAL_COLECCION_INDICE VAL_COLECCION %M-BC"C"x#BCCUXVALORXDIVXFORMATO XCOMILLADOTHIS VAL_AGREGARVAL_IGUALAR_TIPOSdTCxValorbTC xValor_Nuevob HfT C H{ C H C TC2 T N%C h%C=T2TC\ TaTC_ %dTCTCZ LTCTF6 DD%CTC*@TCDatevSET DATE &xFormato TC@D_SET DATE &xDate  TfTC2{ T C? H; NTCg LTT DTC# T&TC2; T2T T BUXVALOR XVALOR_NUEVOXFORMATOXTY1XTY2XTRIMXDATEXVALU!QINTEGERQVARIANTTCBCUXINDICEXTIPOXVALTHISVAL_COLECCION_NEXTVAL_IGUALAR_TIPOS TC CollectionUTHIS VAL_COLECCIONT-UTHIS VAL_COLECCIONval_texto_access,val_texto_assign val_agregarthead_ini_access|head_end_accessdiv_end_access]div_ini_accessval_coleccion_next8 val_agregarex%val_igualar_tiposval_coleccion_nextex Init6 Destroyo 12Q!QAA3qqA!!AA!AA5qAqA!AA3aA4qA4qA4aA4qA1A211A21Qq!!A!q!A!AQA!!1aA1A!A!!!!!!AA1qQQ431  >(-d73_@9I?xRE [Q&  hX? vq7R) container container exportacionesWidth = 32 Height = 32 Picture = bmp\exportar_excel.png cr_func_edit = .F. obj_control = .F. opar_actual = .F. f_ods = .F. cr_public_var = .F. verbose = 0 log_aut = .F. archivo_salida_renombra = .F. Name = "exportaciones" PROCEDURE exportar_xls LPARAMETERS oParametros AS exportaciones_parametros OF "imp_exp.vcx", xXLS_Abrir AS INTEGER xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF *=sys_m("Exportar_XLS") SET PROCEDURE TO Dey_Func ADDITIVE oParametros = chk_value(oParametros,THIS.exportaciones_parametros,"O") THIS.f_xls.parametros=oParametros THIS.f_xls.Verbose=THIS.Verbose THIS.f_xls.log_aut = THIS.log_aut * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * y = 6 = Objeto contenedor de los formatos de la columna * * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL xOK, oXLS AS Excel.APPLICATION, xWD xRecordCount=0 && Constantes de EXCEL xlEdgeTop=8 xlEdgeBottom=9 xlAutomatic=-4105 xlContinuous=1 xlThin=2 IF THIS.log_aut THEN =log_aut_verbose(THIS.Verbose, "", "PreEstado") ENDIF oEstado.Verbose=THIS.Verbose oEstado.log_aut=THIS.log_aut oEstado.VISIBLE=.T. LOCAL z, aaa LOCAL xCamposArr(255,10) TRY LOCAL nit1,nit2 FOR nit1=1 TO 255 FOR nit2=1 TO 10 xCamposArr(nit1,nit2)=oParametros.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY ***Correccin para utilizar reportes del viejo formato y conteo de campos xColCount=0 FOR nIt=1 TO ALEN(xCamposArr,1) IF xColCount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xCamposArr(nIt,1)=="" THEN xColCount = nIt - 1 ENDIF ELSE xColCount = nIt - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xCamposArr(nIt,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xCamposArr(nIt,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xCamposArr(nIt,5)='%SUMAR' ELSE IF xCamposArr(nIt,5)=="" THEN xCamposArr(nIt,5)="%SUMAR" ELSE xCamposArr(nIt,5)=UPPER(xCamposArr(nIt,5)) ENDIF ENDIF xCamposArr(nIt,10)="=0" NEXT LOCAL xTemporal, xTitulo, xAlias, xOrden, xTabla, xPlanilla, xPathTMP xPlanillaXLS=oParametros.ex_archivo_plantilla xTemporal=oParametros.ex_archivo_entrada IF EMPTY(JUSTPATH(xTemporal)) THEN xTabla=oDeyFunc.Get_Path(5)+xTemporal ELSE xTabla=xTemporal ENDIF xAlias="Reportes" xOrden = oParametros.ex_xls_campos_orden xPlanilla_Final='' xAnexar_Archivo='' xAnexar_Planilla='' THIS.f_xls.archivo_salida_renombra=THIS.archivo_salida_renombra THIS.f_xls.preseleccion_planillas(@oParametros, @xPlanilla_Final, @xAnexar_Archivo, @xAnexar_Planilla) xPlanilla='' xPlanilla_Aux='' xPlanilla_Nombre=oParametros.ex_Titulo_Hoja xSepFor=oParametros.ex_xls_campos_separa xSepEnc=oParametros.ex_xls_campos_encabezado xTitulo=oParametros.ex_titulo xOtra_Planilla=1 xMaxFields=0 xXLS_Abrir=EVL(xXLS_Abrir, oParametros.ex_xls_abrir) xIniRow=oParametros.ex_xls_celda_inicio xIniSep=oParametros.ex_xls_celda_inicio xdtot_sep=oParametros.ex_xls_totalizar_separacion xdtot_fin=oParametros.ex_xls_totalizar_final =log_aut_verbose(THIS.Verbose, "", "Entrada") xRecCount=0 LOCAL xcopy, hayerror, z, maxfields, xdata xOK=.T. DO CASE CASE oParametros.ex_entrada_tipo = 1 **** Abre la tabla, aplica Orden y Corrige Fecha TRY xOK=THIS.f_xls.Preparar_Tabla(xTabla, xAlias, xOrden, "REP_XLS") CATCH TO oOBJ THIS.oestado_quitar (xoEstado_Propio) xOK=.F. ENDTRY CASE oParametros.ex_entrada_tipo = 2 **** Array ENDCASE IF NOT xOK THEN RETURN .F. ENDIF *=sys_mostrar_screen("Exportar",.t.) **** Selecciona la Planilla a abrir =THIS.f_xls.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla, xPlanilla_Final) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS TRY =THIS.f_xls.Abriendo_Archivos_Excel(@xPlanilla, @xPlanilla_Final, @oXLS) CATCH TO oEx4 =oEstado.Avance("Error: "+oEx4.MESSAGE+CHR(13)+"Line: "+ALLTRIM(STR(oEx4.LINENO))+CHR(13) ; + oEx4.DETAILS +CHR(13) ; + oEx4.PROCEDURE) xOK=.F. ENDTRY =oEstado.Avance("Creada excel...") LOCAL oACTSheet AS Excel.Worksheet, oACTSheetL AS Excel.Worksheet LOCAL oWBFinal as Excel.Workbook, oWBData as Excel.Workbook LOCAL xMacroTOT DO WHILE xOK **oXLS.VISIBLE=.F. oXLS.ScreenUpdating = .F. oXLS.DisplayAlerts=.F. xlibros=oXLS.workbooks.COUNT oWBFinal= oXLS.workbooks(xlibros) oACTSheet=oWBFinal.sheets(xOtra_Planilla) oACTSheet.ACTIVATE =oEstado.Avance("Procesando el encabezamiento...") **** Preparo el encabezado y cuento los campos THIS.f_xls.Preparando_Encabezado(@xCamposArr, @oACTSheet, @xMaxFields, xIniRow) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY oACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF *=sys_m("exportar") IF xMaxFields>0 THEN DO CASE CASE oParametros.ex_entrada_tipo = 1 **** Crea y abre la planilla auxiliar (DBF->XLS) IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecCount ELSE xRecCount=RECCOUNT() ENDIF IF xRecCount>65000 THEN oWBData=THIS.f_xls.Abrir_Planilla_Largos(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ELSE oWBData=THIS.f_xls.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ENDIF CASE oParametros.ex_entrada_tipo = 2 oWBData=THIS.f_xls.copiar_array(@oXLS,@oParametros,@xMaxFields) xRecCount = oParametros.ex_array_datos_f ENDCASE * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 *!* * *!* * Copia los datos *!* * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).COPY *!* xRecordCount=xRecCount *!* oACTSheet.ACTIVATE *!* oACTSheet.cells(xIniRow+1,1).SELECT *!* LOCAL xSel *!* xSel=oXLS.SELECTION *!* xSel.PasteSpecial (-4163, -4142, .F., .F.) *!* oXLS.workbooks(xlibros+1).CLOSE(.F.) *!* =oEstado.Avance("Ajustando Columnas ...") *!* z=xMaxFields * * Copia los datos * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).Copy DO CASE CASE oParametros.ex_entrada_tipo = 1 IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecordCount ELSE xRecordCount=RECCOUNT() ENDIF CASE oParametros.ex_entrada_tipo = 2 xRecordCount= oParametros.ex_array_datos_f ENDCASE IF xRecordCount>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* oXLS.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* oXLS.workbooks(xlibros).Close *!* oXLS.workbooks.OPEN(xPlanilla_Final) xPlanilla_Final = FORCEEXT(xPlanilla_Final,"xlsx") oWBFinal.SAVEAS(xPlanilla_Final,51) oWBFinal.CLOSE oWBFinal=oXLS.workbooks.OPEN(xPlanilla_Final) oACTSheet=oWBFinal.sheets(xOtra_Planilla) DELETE FILE (FORCEEXT(xPlanilla_Final,"xls")) ENDIF * oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY oWBData.sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY LOCAL xTMPCel1 * xTMPCel1=oACTSheet.Cells(4,1) xTMPCel1=oACTSheet.Cells(xinirow+1,1) xTMPCel1.PasteSpecial() IF xinirow<3 * Para que elimine el formato de encabezado....solo se usa para exportaci "no estandard"...no es muy elegante, ya lo se... xTMPCel1=oACTSheet.Cells(3,1).Clear() endif oXLS.DisplayAlerts=.F. oWBData.CLOSE(.F.) oXLS.DisplayAlerts=.T. =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) oACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT IF xinirow>1 oACTSheet.Cells(1,1).VALUE = xTitulo oACTSheet.Cells(xIniRow+1,1).SELECT ELSE * No puede haber ttulo porque pisara el encabezado endif ENDIF oWBFinal.sheets(1).SELECT oWBFinal.sheets(1).Cells(1,1).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=oACTSheet.Cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+oACTSheet.Cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(oACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN *=sys_mostrar_Screen("Rengln",.t.) xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 oACTSheet.ROWS(xEndSep+2).EntireRow.SELECT oXLS.CutCopyMode = .F. oXLS.SELECTION.COPY oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.PasteSpecial (-4163, -4142, .F., .F.) oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.ClearContents ENDIF oACTSheet.Cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) oACTSheet.Cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN *=sys_mostrar_screen("Totales SIN separacin",.t.) IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=oACTSheet.Cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* *=sys_mostrar_screen("Totales generales CON separacin",.t.) =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=oACTSheet.Cells(4,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" CASE LEFT(xCamposArr(nIt,5),2)="'=" xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT OTHERWISE xFormula=xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ENDIF IF oParametros.ex_agregar_nombre_rango THEN LOCAL oName AS Excel.NAME, xNameTXT xNameTXT = STRTRAN(STRTRAN(oACTSheet.NAME, " ", "_"),"-","_") oName=oXLS.ActiveWorkbook.names.ADD(xNameTXT,oACTSheet.RANGE(oACTSheet.Cells(xIniRow,1),oACTSheet.Cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF oParametros.ex_sin_formato THEN oACTSheet.ROWS(1).DELETE oACTSheet.ROWS(1).DELETE ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_xls.Agregar_Filtros(oACTSheet,oParametros) ********************************************************* LOCAL oACWB AS Excel.workbook oACWB =oXLS.ActiveWorkbook IF oParametros.ex_xls_grafico THEN oACWB .sheets(oParametros.ex_xls_grafico_hoja).ChartObjects(oParametros.ex_xls_grafico_Nombre).ACTIVATE xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_values,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).VALUES = xMacroTOT xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_xvalues,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).XValues =xMacroTOT ENDIF oACWB .SAVE RELEASE oACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,oACWB ,oXLS) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") oACWB .sheets(1).SELECT oACWB .SAVE * Ahora solo lo cierro si no se va a abrir * oXLS.DisplayAlerts=.F. * xLiWB.CLOSE ENDIF IF oParametros.ex_entrada_tipo = 1 THEN DELETE FILE (xPlanilla_Aux) ENDIF oEstado.VISIBLE=.F. oParametros.ex_archivo_salida = xPlanilla_Final DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. CASE xXLS_Abrir = 4 xResp_O=.T. ENDCASE oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. IF xResp_O THEN * Ya viene abierta, solo la visibilizo oXLS.VISIBLE=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized DECLARE INTEGER SetForegroundWindow IN user32.DLL AS WinAPI_SetForegroundWindow INTEGER HWND WinAPI_SetForegroundWindow(oXLS.HWND) ELSE * Se cierra IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL(JUSTEXT(xPLanilla_Final),"Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF *!* IF xlibros=1 THEN * Un solo libro, salgo completamente IF oXLS.workbooks.COUNT>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y oXLS.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado oACWB .CLOSE oXLS.DisplayAlerts = .T. oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized oXLS.VISIBLE=.T. ELSE TRY oACWB .CLOSE CATCH ENDTRY oXLS.DisplayAlerts = .F. xWD=oXLS.HWND oXLS.QUIT IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* oXLS.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* oXLS.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* oXLS.DisplayAlerts = .T. *!* oXLS.ScreenUpdating = .T. *!* *!* oXLS.DisplayAlerts=.T. *!* oXLS.VISIBLE=.T. *!* ENDIF ENDIF RELEASE oXLS EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE oestado_chequear LPARAMETERS xMax as Integer IF TYPE("oEstado") # "O" or isnull(oEstado) THEN SET PROCEDURE TO Dey_func ADDITIVE RELEASE oEstado PUBLIC oEstado DO FORM estado NAME oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=chk_value(xMax,1000,"N") oEstado.VALUE=1 RETURN .t. ELSE RETURN .f. ENDIF ENDPROC PROCEDURE oestado_quitar LPARAMETERS xoEstado_Propio IF xoEstado_Propio and TYPE("oEstado")="O" THEN oEstado.RELEASE RELEASE oEstado ENDIF ENDPROC PROCEDURE exportar_crystal LPARAMETERS xParametros as Object , xImpresion as Boolean, xModal as Boolean xoEstado_Propio=this.oestado_chequear() IF xoEstado_Propio THEN oEstado.max=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,this.exportaciones_parametros,"O") this.oPar_Actual=xParametros * * ximpresion = .t. && imprime directamente * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THIS.crAplicacion = NULL THIS.crReporte = NULL THIS.crVista = NULL LOCAL xerror xerror=0 ON ERROR xerror=1 xoEstado_Propio=this.oestado_chequear(6) oEstado.Avance('Iniciando servidor de automatizacin...') THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") endif endif endif IF xerror=0 ON ERROR xerror=2 oEstado.Avance('Abriendo reporte...') IF FILE(xParametros.ex_archivo_reporte) THIS.crReporte = THIS.crAplicacion.OpenReport(xParametros.ex_archivo_reporte) IF xerror=0 ON ERROR &onerr oEstado.Avance('Configurando datos del reporte...') xok=.T. *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THIS.cr_localizar_tablas (xParametros) oEstado.texto='Pasando parmetros al reporte...' IF xok * * Configuracion General * THIS.crReporte.ReportTitle = xParametros.ex_titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF xParametros.ex_cr_dontchangenothing ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.cr_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+xParametros.ex_Cr_NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = xParametros.ex_Cr_CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = xParametros.ex_Cr_OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.ex_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF xParametros.ex_Cr_suprime_fecha * Suprime la fecha y la hora FOR z=1 TO THIS.crReporte.areas[2].sections[1].reportobjects.COUNT IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintDate1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintTime1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF xParametros.ex_Cr_param_usar THEN this.cr_param_aplicar (xParametros) ENDIF ***************************************************************************** IF NOT EMPTY(this.cr_func_edit) THEN LOCAL xFNC xFNC=this.cr_func_edit &xFNC ENDIF IF ximpresion THIS.crReporte.printersetup(0) oEstado.Avance('Imprimiendo...') THIS.crReporte.PrintOut(.T.) oEstado.VISIBLE=.F. ELSE oEstado.Avance('Configurando la visualizacin...') THIS.crVista = NEWOBJECT("CrystalViewer_top","Clases.vcx","",THIS.crReporte,xParametros.ex_Cr_Arbol,; xParametros.ex_Cr_archivos[1],; xParametros.ex_Cr_archivos[2],; xParametros.ex_Cr_archivos[3],; xParametros.ex_Cr_archivos[4],; xParametros.ex_Cr_archivos[5],; xParametros.ex_Cr_archivos[6],; xParametros.ex_Cr_archivos[7],; xParametros.ex_Cr_archivos[8],; xParametros.ex_Cr_archivos[9],; xParametros.ex_Cr_archivos[10]; ) oEstado.VISIBLE=.F. THIS.crVista.Show (IIF(xModal,1,0)) IF TYPE(xParametros.ex_cr_public_var)="L" THEN LOCAL xVar xVar=xParametros.ex_cr_public_var &xVar= this.crvista ENDIF ENDIF ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' no existe.') ENDIF ELSE =MESSAGEBOX('El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+MESSAGE()+")") ENDIF this.oestado_quitar (xoEstado_Propio) SET DEFAULT TO (P_SERVER) this.opar_actual=.f. ENDPROC PROCEDURE cr_param_aplicar LPARAMETERS xParametros as Object FOR nit=1 TO 10 *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("xParametros.ex_cr_Param(nIt,1)")="C" THEN *Limpio los valores por defecto que tengan asignado el parmetro THIS.crreporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THIS.crReporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nIt,1)).AddCurrentValue(xParametros.ex_cr_Param(nIt,2)) ENDIF NEXT ENDPROC PROCEDURE cr_localizar_tablas LPARAMETERS xParametros as Object crSubreportObject=5 FOR x=1 TO this.CRReporte.DATABASE.TABLES.COUNT RptName=this.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO this.CRReporte.Sections.COUNT FOR Y=1 TO this.CRReporte.Sections[z].ReportObjects.COUNT IF this.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE exportar_xls_coll LPARAMETERS ex_XLS_Abrir LOCAL nIt, xPar IF This.Parametros_Coll.count=0 THEN RETURN ENDIF FOR nIt=1 TO This.Parametros_Coll.Count xPar=This.Parametros_coll (nIt) IF nIt=This.Parametros_Coll.Count AND TYPE("ex_XLS_Abrir")="N" THEN xPar.ex_XLS_Abrir=ex_XLS_Abrir ENDIF DO CASE CASE INLIST(xPar.ex_entrada_tipo,1,2) This.Exportar_xls(xPar) CASE INLIST(xPar.ex_entrada_tipo,3) This.exportar_xls_cell(xPar) ENDCASE NEXT RETURN .t. ENDPROC PROCEDURE exportar_ods LPARAMETERS xParametros as exportaciones_parametros OF "imp_exp.vcx" xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_ods.parametros=xParametros * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * y = 6 = Objeto contenedor de los formatos de la columna * * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL xOK, x as Excel.Application && Constantes de EXCEL xlEdgeTop=8 xlEdgeBottom=9 xlAutomatic=-4105 xlContinuous=1 xlThin=2 oEstado.VISIBLE=.T. LOCAL z, aaa LOCAL xCamposArr(255,10) TRY LOCAL nit1,nit2 FOR nit1=1 TO 255 FOR nit2=1 TO 10 xCamposArr(nit1,nit2)=xParametros.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY ***Correccin para utilizar reportes del viejo formato y conteo de campos xColCount=0 FOR nIt=1 TO ALEN(xCamposArr,1) IF xColCount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xCamposArr(nIt,1)=="" THEN xColCount = nIt - 1 ENDIF ELSE xColCount = nIt - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xCamposArr(nIt,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xCamposArr(nIt,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xCamposArr(nIt,5)='%SUMAR' ELSE IF xCamposArr(nIt,5)=="" THEN xCamposArr(nIt,5)="%SUMAR" ELSE xCamposArr(nIt,5)=UPPER(xCamposArr(nIt,5)) ENDIF ENDIF xCamposArr(nIt,10)="=0" NEXT LOCAL xTemporal, xTitulo, xAlias, xOrden, xTabla, xPlanilla, xPathTMP xPlanillaXLS=xParametros.ex_archivo_plantilla xTemporal=JUSTPATH(xParametros.ex_archivo_entrada) IF EMPTY(xTemporal) THEN xTabla=oDeyFunc.Get_Path(5)+xTemporal ELSE xTabla=xTemporal ENDIF xAlias="Reportes" xOrden = xParametros.ex_xls_campos_orden xPlanilla='' xPathTMP=JUSTPATH(xParametros.ex_archivo_salida) IF EMPTY(xPathTMP) THEN xPlanilla_Final=oDeyFunc.Get_Path(5)+xParametros.ex_archivo_salida ELSE xPlanilla_Final = xParametros.ex_archivo_salida ENDIF xPlanilla_Final=FORCEEXT(xPlanilla_Final,"xls") xPlanilla_Aux='' xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPathTMP=JUSTPATH(xParametros.ex_Anexar_Archivo) IF EMPTY(xPathTMP) THEN xAnexar_Archivo=oDeyFunc.Get_Path(5)+xParametros.ex_Anexar_Archivo ELSE xAnexar_Archivo = xParametros.ex_Anexar_Archivo ENDIF xAnexar_Archivo=FORCEEXT(xAnexar_Archivo,"xls") xAnexar_Planilla=xParametros.ex_Anexar_Planilla AND NOT EMPTY(xParametros.ex_Anexar_Archivo) xSepFor=xParametros.ex_xls_campos_separa xSepEnc=xParametros.ex_xls_campos_encabezado xTitulo=xParametros.ex_titulo xOtra_Planilla=1 xMaxFields=0 xXLS_Abrir=xParametros.ex_xls_abrir xIniRow=3 xIniSep=3 xdtot_sep=xParametros.ex_xls_totalizar_separacion xdtot_fin=xParametros.ex_xls_totalizar_final xRecCount=0 LOCAL xcopy, hayerror, z, maxfields, xdata xOK=.T. **** Abre la tabla, aplica Orden y Corrige Fecha TRY xOK=THIS.f_ods.Preparar_Tabla(xTabla, xAlias, xOrden, "REP_XLS") CATCH TO oOBJ THIS.oestado_quitar (xoEstado_Propio) xOK=.F. ENDTRY IF NOT xOK THEN RETURN .F. ENDIF **** Selecciona la Planilla a abrir =THIS.f_ods.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS TRY =THIS.f_ods.Abriendo_Archivos_ods(@xPlanilla, @xPlanilla_Final, @x) CATCH TO oExODS xOK=.F. ENDTRY Local xACTSheet as Excel.Worksheet LOCAL xACTSheetL as Excel.Worksheet DO WHILE xOK * X!S x.VISIBLE=.F. xlibros=x.getSheets.getCount() *x.workbooks.COUNT xACTSheet= x.getSheets.getByIndex(0) * x.workbooks(xlibros).sheets(xOtra_Planilla) =oEstado.Avance("Procesando el encabezamiento...") **** Preparo el encabezado y cuento los campos THIS.f_ods.oSM= x THIS.f_ods.Preparando_Encabezado(@xCamposArr, @xACTSheet, @xMaxFields) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF IF xMaxFields>0 THEN **** Crea y abre la planilla auxiliar (DBF->XLS) THIS.f_ods.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@x,@xCamposArr,@xMaxFields) IF TYPE("xparametros.ex_tabla_filtro")="C" AND not EMPTY(xparametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(xparametros.ex_tabla_filtro) To xRecCount ELSE xRecCount=RECCOUNT() ENDIF * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 * * Copia los datos * x.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).cut xRecordCount=xRecCount xACTSheet.ACTIVATE xACTSheet.RANGE("A4").SELECT xACTSheet.paste x.workbooks(xlibros+1).CLOSE(.F.) =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT xACTSheet.cells(1,1).VALUE = xTitulo xACTSheet.cells(1,3).SELECT ENDIF x.workbooks(xlibros).sheets(1).SELECT x.workbooks(xlibros).sheets(1).RANGE( "A1" ).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=xACTSheet.cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+xACTSheet.cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(xACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 xACTSheet.ROWS(xEndSep+2).EntireRow.SELECT x.CutCopyMode = .F. x.SELECTION.COPY xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT xACTSheet.paste xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.ClearContents ENDIF xACTSheet.cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) xACTSheet.cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=xACTSheet.cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=xACTSheet.cells(4,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ENDIF IF xParametros.ex_agregar_nombre_rango THEN LOCAL oName as Excel.Name, xNameTXT xNameTXT = STRTRAN(STRTRAN(xActSheet.Name, " ", "_"),"-","_") oName=x.ActiveWorkbook.names.Add(xNameTXT,xACTSheet.range(xACTSheet.cells(xIniRow,1),xACTSheet.cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF xPArametros.ex_sin_formato THEN xACTSheet.Rows(1).Delete xACTSheet.Rows(1).Delete ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_ods.Agregar_Filtros(xACTSheet,xParametros) ********************************************************* xACWB=x.ActiveWorkbook xLiWB=x.workbooks(xlibros) xACWB.SAVE RELEASE xACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_ods.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") xACWB.SAVE x.DisplayAlerts=.F. xLiWB.CLOSE ENDIF DELETE FILE (xPlanilla_Aux) oEstado.VISIBLE=.F. DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. ENDCASE IF xResp_O THEN IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT RELEASE x ENDIF DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow LOCAL xPLAA, xPLAT xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") xPLAT = JUSTPATH(xPlanilla_Final) xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) IF xerror<=32 =Mensaje_s("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) ENDIF ELSE IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT ELSE ***************************************************************************************************************************************************** ***************************************************************************************************************************************************** ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* x.workbooks(xlibros).close x.VISIBLE=.T. ENDIF ENDIF RELEASE x EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE exportar_xls_cell LPARAMETERS xParametros AS exportaciones_parametros OF "imp_exp.vcx" xParametros = oDeyFunc.chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_xls.parametros=xParametros LOCAL xoEstado_Propio xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF *=sys_mostrar_screen("Exportar_CELL", .t.) LOCAL xPlanilla_Final,xPlanilla_Nombre, xAnexar_Archivo, xAnexar_Planilla, xOK, x xPlanilla_Final='' xAnexar_Archivo='' xAnexar_Planilla='' **** PreSelecciona la Planilla a abrir THIS.f_xls.preseleccion_planillas(@xParametros, @xPlanilla_Final, @xAnexar_Archivo, @xAnexar_Planilla) xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPlanilla='' xOtra_Planilla='' **** Selecciona la Planilla a abrir =THIS.f_xls.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla, xPlanilla_Final) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS xOK=.T. x=.F. TRY =THIS.f_xls.Abriendo_Archivos_Excel(@xPlanilla, @xPlanilla_Final, @x) CATCH xOK=.F. ENDTRY LOCAL xACTSheet AS Excel.Worksheet LOCAL xACTSheetL AS Excel.Worksheet LOCAL xMacroTOT DO WHILE xOK x.VISIBLE=.F. x.DisplayAlerts=.F. xlibros=x.workbooks.COUNT xACTSheet=x.workbooks(xlibros).sheets(xOtra_Planilla) xACTSheet.ACTIVATE this.f_xls.Cel_Exportar_Coll(xActSheet, xParametros.cel_rango) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF xResp_O=.T. DO CASE CASE xParametros.ex_xls_abrir= 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xParametros.ex_xls_abrir = 1 xResp_O=.T. CASE xParametros.ex_xls_abrir = 2 xResp_O=.F. CASE xParametros.ex_xls_abrir = 3 xResp_O=.F. ENDCASE LOCAL xACWB AS Excel.workbook xACWB=x.ActiveWorkbook xACWB.SAVE IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ENDIF * =sys_mostrar_screen("Exportar_CELL - CERRAR", .t.) x.ScreenUpdating = .T. x.DisplayAlerts=.T. IF xResp_O THEN * =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 3", .T.) * Ya viene abierta, solo la visibilizo x.visible=.t. DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(x.HWnd) *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT>1 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* ENDIF *!* ENDIF *!* DECLARE LONG ShellExecute ; *!* IN SHELL32.DLL ; *!* INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; *!* STRING cParameters, STRING cDirectory, INTEGER nShowWindow *!* LOCAL xPLAA, xPLAT *!* xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") *!* xPLAT = JUSTPATH(xPlanilla_Final) *!* xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) *!* IF xerror<=32 *!* IF p_dev THEN *!* DEBUG *!* SUSPEND *!* ELSE *!* =Mensaje("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) *!* ENDIF *!* ENDIF ELSE * IF xXLS_Abrir = 3 if xParametros.ex_xls_abrir=3 && Ojo !!! Lo correg yo (Guille) * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF endif * Tengo que cerrarla *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT=0 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 4", .T.) *!* ENDIF * Un solo libro, salgo completamente if x.workbooks.count>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado xACWB.Close x.DisplayAlerts = .T. x.ScreenUpdating = .T. x.DisplayAlerts=.T. x.VISIBLE=.T. else x.activeworkbook.close x.DisplayAlerts = .f. x.Quit && = .T. endif *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* x.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* x.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* x.DisplayAlerts = .T. *!* x.ScreenUpdating = .T. *!* x.DisplayAlerts=.T. *!* x.VISIBLE=.T. *!* ENDIF ENDIF RELEASE x EXIT ENDDO THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE set_displayalert LPARAMETERS xValor LOCAL xOK TRY xExcelApp=GETOBJECT(,'excel.application') xExcelApp.DisplayAlerts=xValor xOK=.t. CATCH TO oOBJ xOK=.f. ENDTRY RETURN xOK ENDPROC PROCEDURE Init SET CLASSLIB TO Clases addi SET CLASSLIB TO imp_exp ADDITIVE This.f_xls=NEWOBJECT("exportaciones_XLS","imp_exp") This.f_ods=NEWOBJECT("exportaciones_ODS","imp_exp") This.Parametros_coll=CREATEOBJECT("Collection") this.archivo_salida_renombra=(p_xls_solo_renombra_desde_crystal=0) ENDPROC |"||X %q{rU"CQEXPORTACIONES_PARAMETROS imp_exp.vcxQINTEGERTC%sTG+(Dey_FuncTC OT T  T  $QEXCEL.APPLICATION T T T T T T% C PreEstadoT  T  Ta   R (N( J%TC(` T !(C{% '%CxCamposArr(nIt,1)bC%C!T ! T !'%CxCamposArr(nIt,3)bL[T!-'%CxCamposArr(nIt,4)bLT!-'%CxCamposArr(nIt,5)bCT!%SUMAR \%C!+T!%SUMAR X#T!CC!fT! =0"#$%&'(T)*T"+%CC"աT&C,-"  T&"T$ReportesT%. T/ T0 T1T 22 C/01 3 T' T4T56T78T9:T#; T< T=TC> T?@TA@TBCTDEC Entrada TFGHIJ TaH< K& *TC&$%REP_XLS L(M"CN T- K<% WB-C'</ O,CCreando planilla de Excel...P C'/ Q(R5SCError: RSC Line: CCRTZC RUC RVP T-CCreada excel...P1WQEXCEL.WorksheetXQEXCEL.Worksheet/YQEXCEL.WorkbookZQEXCEL.Workbook[+"T\-T]-T^_`TYC^_TWC<Ya Wb/CProcesando el encabezamiento...P CW=? c%C5 TWd5 %=H   K >%CoParametros.ex_tabla_filtrobC Ce J Ce(F ` TFCN%F (TZC$4= f  (TZC$4= g K TZC= hTFi/Tj@CC= 8 C= 86!TjCj@Cj 6Tk@C=G"TkCk@zCk 6TljkH s  KM >%CoParametros.ex_tabla_filtrobC Ce 3 Ce( I TCN Ks Ti% T/C/xlsxC/3Ym YnTYC/_oTWC<YaC/xls/ZapA2:lCCZqrTrC?Ws Crt%? TrCCWsuT]-C-ZnT]a&CAjustando Columnas ...P T=;TvCC 8C@C 8 63TvvC@CCGCG6 WwA:vxy%?TWsz#Ws?{ Ya{"Yas{!(='%CxCamposArr(nIt,6)bO@T|C--C?!Ws}:C--C?!Ws}T~C!CC|Wp~ %7 9 (TCreando separaciones ... F$#) T Ta T T ~jT%TC7%C7  f% T?TW{CC!(=%C!B TC--CA!Ws}TC--C!Ws}TC!WsH<! C!%SUMAR$T=Sum(:)" C!%CONTARW&T=COUNT(:)# C!%CONTARA'T=COUNTA(:)* C!%CONTAR.BLANCOS+T =COUNTBLANK(:) 2<%T[CC!?CCZxFormula=&xMacroTOT TTaCTTT0T! C! +C--}T T?W{CTTW{T- qW{C--tW{ !TWszC9 TWsaTA?TC7 T-% TT?W{CC!(=%C!B TC--CA!Ws}TC--C!Ws}TC!WsH! C!%SUMAR$T=Sum(:)" C!%CONTAR&T=COUNT(:)# C!%CONTARAc'T=COUNTA(:)* C!%CONTAR.BLANCOS+T =COUNTBLANK(:) 2%T[CC!?CCZxFormula=&xMacroTOT TTaCdTTT0T! C! +C--}T,CCreando totales generales...P!(=%C!D TC!WsTC! TTaCTTT WbWs{ ,CCreando totales generales...P!(=%C!D TC--C!Ws}&TC--C!Ws}TC!WsHa! C!%SUMAR$T=Sum(:)" C!%CONTARE&T=COUNT(:)# C!%CONTARA'T=COUNTA(:)* C!%CONTAR.BLANCOS+T =COUNTBLANK(:)" CC!='=B%T[CC!?CCZxFormula=&xMacroTOT 2aTC! TTaCTTT WbWs{%Q EXCEL.NAME$TCCWd _-_BTCCC?WsC?=WsWp%WWCW QEXCEL.workbookT%"ab!T[C?CC?ZT[!T[C?CC?ZT[  KT CC \TC. %T C =%CC fCCfG%CC 0'T C C8C El archivo CC  no existe !!!B-"(P*(CL)%CCH8(CCD1TCCC ! (C @F%CxParametros.ex_cr_archivos[w]bCC  <T C\C % T C/C ,% CC >  8T CC \TC. %sT C =%CC fCCf4%CC 0<T C 08C El archivo CC  no existe !!!B-U XPARAMETROSCRSUBREPORTOBJECTXTHIS CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWEX_CR_ARCHIVOSDIRBARFRMNAMEPOINTPOSMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT$ %/B(TC3%C ex_XLS_AbrirbN TH CC CCBaU EX_XLS_ABRIRNITXPARTHISPARAMETROS_COLLCOUNTEX_ENTRADA_TIPO EXPORTAR_XLSEXPORTAR_XLS_CELL4QEXPORTACIONES_PARAMETROS imp_exp.vcxTC%dTG+(Dey_FuncTCOT   QEXCEL.Application T  T T T TTa    (( %TC( T(C%r'%CxCamposArr(nIt,1)bCS%COT nT'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bLT-'%CxCamposArr(nIt,5)bC@T%SUMAR %CT%SUMAR #TCCfT =0 !"T#$TC%%CCT C&' Z T TReportesT( T!T"C)%C"T*C&') T*)T*C*xls T+T,-T"C.%C"_T/C&'. yT/.T/C/xlsT01 C. T23T45T6 T7 T8T9: T; T<T=>T?@ TABCDE T a *T C REP_XLS F(GCH T -% B-C!7 I,CCreando planilla de Excel...J ZC!*  K(Ls T -MQEXCEL.WorksheetNQEXCEL.Worksheet+ TOC PQTMC PR/CProcesando el encabezamiento...JT S CM8 T%C, ~ pTMU, z%8 $C+ 8 V>%Cxparametros.ex_tabla_filtrobC CW CW(A  TACN/TX@CC8 8 C8 86!TXCX@CX 6TY@C8G"TYCY@zCY 6TZXY+ [O\]A1^< [O\]A2:ZCCAZ^< [O\]A2:ZCCAZ_ T`A MaM]A4^ Mb [Oc-&CAjustando Columnas ...J T8;TdCC 8C@C 8 63TddC@CCGCG6 MeA:dfgTMhiMh^ [O\^' [O\]A1^(8 '%CxCamposArr(nIt,6)bO @TjC--C;Mhk:C--C;`MhkTlCCCjM]lm %2 4 !(TnCreando separaciones ... F#) To Tpa Tq Tr ~wTrr%pd TsC2%sC2 p s%p Tqo;rTtqMuqv^C wxC wx(8%C= TyC--C<MhkTzC--CqMhkT{CqMhHY! C%SUMAR$T|=Sum(y:z)" C%CONTAR0&T|=COUNT(y:z) 2YxFormula=&xCamposArr(nIt,5) T{}|T{~aC {TTT0T C +C--{kToo Tqo;rMuqv^C wxTtqTooMuqv^T - wMuqv^ MbMuqv^ w!TMhtiC4 TMht~aT<;roTsC2 Tp-%p TrrTqo;rMuqv^C wxC wx(8%C= TyC--C<MhkTzC--CqMhkT{CqMhHO! C%SUMAR$T|=Sum(y:z)" C%CONTAR&&T|=COUNT(y:z) 2OxFormula=&xCamposArr(nIt,5) T{}|T{~aC {TTT0T C +C--{kToo,CCreando totales generales...J(8%C? T{CqMhT|C T{}|T{~aC {TTTMh^ A,CCreando totales generales...J(8$%C? TyC--CMhk&TzC--C`MhkT{C`MhH! C%SUMARD$T|=Sum(y:z)" C%CONTAR&T|=COUNT(y:z) 2 xFormula=&xCamposArr(nIt,10) T{}|T{~aC {TTTMh^%Q EXCEL.Name$TCCMU _-_BTCCC;MhC;`8MhM] %MuMuCM T TCO [ 0 THEN DO CASE CASE oParametros.ex_entrada_tipo = 1 **** Crea y abre la planilla auxiliar (DBF->XLS) IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecCount ELSE xRecCount=RECCOUNT() ENDIF IF xRecCount>65000 THEN oWBData=THIS.f_xls.Abrir_Planilla_Largos(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ELSE oWBData=THIS.f_xls.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ENDIF CASE oParametros.ex_entrada_tipo = 2 oWBData=THIS.f_xls.copiar_array(@oXLS,@oParametros,@xMaxFields) xRecCount = oParametros.ex_array_datos_f ENDCASE * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 *!* * *!* * Copia los datos *!* * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).COPY *!* xRecordCount=xRecCount *!* oACTSheet.ACTIVATE *!* oACTSheet.cells(xIniRow+1,1).SELECT *!* LOCAL xSel *!* xSel=oXLS.SELECTION *!* xSel.PasteSpecial (-4163, -4142, .F., .F.) *!* oXLS.workbooks(xlibros+1).CLOSE(.F.) *!* =oEstado.Avance("Ajustando Columnas ...") *!* z=xMaxFields * * Copia los datos * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).Copy DO CASE CASE oParametros.ex_entrada_tipo = 1 IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecordCount ELSE xRecordCount=RECCOUNT() ENDIF CASE oParametros.ex_entrada_tipo = 2 xRecordCount= oParametros.ex_array_datos_f ENDCASE IF xRecordCount>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* oXLS.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* oXLS.workbooks(xlibros).Close *!* oXLS.workbooks.OPEN(xPlanilla_Final) xPlanilla_Final = FORCEEXT(xPlanilla_Final,"xlsx") oWBFinal.SAVEAS(xPlanilla_Final,51) oWBFinal.CLOSE oWBFinal=oXLS.workbooks.OPEN(xPlanilla_Final) oACTSheet=oWBFinal.sheets(xOtra_Planilla) DELETE FILE (FORCEEXT(xPlanilla_Final,"xls")) ENDIF * oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY oWBData.sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY LOCAL xTMPCel1 * xTMPCel1=oACTSheet.Cells(4,1) xTMPCel1=oACTSheet.Cells(xinirow+1,1) xTMPCel1.PasteSpecial() IF xinirow<3 * Para que elimine el formato de encabezado....solo se usa para exportaci "no estandard"...no es muy elegante, ya lo se... xTMPCel1=oACTSheet.Cells(3,1).Clear() endif oXLS.DisplayAlerts=.F. oWBData.CLOSE(.F.) oXLS.DisplayAlerts=.T. =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) oACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT IF xinirow>1 oACTSheet.Cells(1,1).VALUE = xTitulo oACTSheet.Cells(xIniRow+1,1).SELECT ELSE * No puede haber ttulo porque pisara el encabezado endif ENDIF oWBFinal.sheets(1).SELECT oWBFinal.sheets(1).Cells(1,1).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=oACTSheet.Cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+oACTSheet.Cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(oACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN *=sys_mostrar_Screen("Rengln",.t.) xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 oACTSheet.ROWS(xEndSep+2).EntireRow.SELECT oXLS.CutCopyMode = .F. oXLS.SELECTION.COPY oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.PasteSpecial (-4163, -4142, .F., .F.) oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.ClearContents ENDIF oACTSheet.Cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) oACTSheet.Cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN *=sys_mostrar_screen("Totales SIN separacin",.t.) IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=oACTSheet.Cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* *=sys_mostrar_screen("Totales generales CON separacin",.t.) =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=oACTSheet.Cells(4,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" CASE LEFT(xCamposArr(nIt,5),2)="'=" xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT OTHERWISE xFormula=xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ENDIF IF oParametros.ex_agregar_nombre_rango THEN LOCAL oName AS Excel.NAME, xNameTXT xNameTXT = STRTRAN(STRTRAN(oACTSheet.NAME, " ", "_"),"-","_") oName=oXLS.ActiveWorkbook.names.ADD(xNameTXT,oACTSheet.RANGE(oACTSheet.Cells(xIniRow,1),oACTSheet.Cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF oParametros.ex_sin_formato THEN oACTSheet.ROWS(1).DELETE oACTSheet.ROWS(1).DELETE ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_xls.Agregar_Filtros(oACTSheet,oParametros) ********************************************************* LOCAL oACWB AS Excel.workbook oACWB =oXLS.ActiveWorkbook IF oParametros.ex_xls_grafico THEN oACWB .sheets(oParametros.ex_xls_grafico_hoja).ChartObjects(oParametros.ex_xls_grafico_Nombre).ACTIVATE xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_values,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).VALUES = xMacroTOT xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_xvalues,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).XValues =xMacroTOT ENDIF oACWB .SAVE RELEASE oACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,oACWB ,oXLS) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") oACWB .sheets(1).SELECT oACWB .SAVE * Ahora solo lo cierro si no se va a abrir * oXLS.DisplayAlerts=.F. * xLiWB.CLOSE ENDIF IF oParametros.ex_entrada_tipo = 1 THEN DELETE FILE (xPlanilla_Aux) ENDIF oEstado.VISIBLE=.F. oParametros.ex_archivo_salida = xPlanilla_Final DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. CASE xXLS_Abrir = 4 xResp_O=.T. ENDCASE oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. IF xResp_O THEN * Ya viene abierta, solo la visibilizo oXLS.VISIBLE=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized DECLARE INTEGER SetForegroundWindow IN user32.DLL AS WinAPI_SetForegroundWindow INTEGER HWND WinAPI_SetForegroundWindow(oXLS.HWND) ELSE * Se cierra IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL(JUSTEXT(xPLanilla_Final),"Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF *!* IF xlibros=1 THEN * Un solo libro, salgo completamente IF oXLS.workbooks.COUNT>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y oXLS.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado oACWB .CLOSE oXLS.DisplayAlerts = .T. oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized oXLS.VISIBLE=.T. ELSE TRY oACWB .CLOSE CATCH ENDTRY oXLS.DisplayAlerts = .F. xWD=oXLS.HWND oXLS.QUIT IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* oXLS.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* oXLS.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* oXLS.DisplayAlerts = .T. *!* oXLS.ScreenUpdating = .T. *!* *!* oXLS.DisplayAlerts=.T. *!* oXLS.VISIBLE=.T. *!* ENDIF ENDIF RELEASE oXLS EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE oestado_chequear LPARAMETERS xMax as Integer IF TYPE("oEstado") # "O" or isnull(oEstado) THEN SET PROCEDURE TO Dey_func ADDITIVE RELEASE oEstado PUBLIC oEstado DO FORM estado NAME oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=chk_value(xMax,1000,"N") oEstado.VALUE=1 RETURN .t. ELSE RETURN .f. ENDIF ENDPROC PROCEDURE oestado_quitar LPARAMETERS xoEstado_Propio IF xoEstado_Propio and TYPE("oEstado")="O" THEN oEstado.RELEASE RELEASE oEstado ENDIF ENDPROC PROCEDURE exportar_crystal LPARAMETERS xParametros as Object , xImpresion as Boolean, xModal as Boolean xoEstado_Propio=this.oestado_chequear() IF xoEstado_Propio THEN oEstado.max=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,this.exportaciones_parametros,"O") this.oPar_Actual=xParametros * * ximpresion = .t. && imprime directamente * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THIS.crAplicacion = NULL THIS.crReporte = NULL THIS.crVista = NULL LOCAL xerror xerror=0 ON ERROR xerror=1 xoEstado_Propio=this.oestado_chequear(6) oEstado.Avance('Iniciando servidor de automatizacin...') THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") endif endif endif IF xerror=0 ON ERROR xerror=2 oEstado.Avance('Abriendo reporte...') IF FILE(xParametros.ex_archivo_reporte) THIS.crReporte = THIS.crAplicacion.OpenReport(xParametros.ex_archivo_reporte) IF xerror=0 ON ERROR &onerr oEstado.Avance('Configurando datos del reporte...') xok=.T. *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THIS.cr_localizar_tablas (xParametros) oEstado.texto='Pasando parmetros al reporte...' IF xok * * Configuracion General * THIS.crReporte.ReportTitle = xParametros.ex_titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF xParametros.ex_cr_dontchangenothing ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.cr_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+xParametros.ex_Cr_NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = xParametros.ex_Cr_CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = xParametros.ex_Cr_OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.ex_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF xParametros.ex_Cr_suprime_fecha * Suprime la fecha y la hora FOR z=1 TO THIS.crReporte.areas[2].sections[1].reportobjects.COUNT IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintDate1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintTime1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF xParametros.ex_Cr_param_usar THEN this.cr_param_aplicar (xParametros) ENDIF ***************************************************************************** IF NOT EMPTY(this.cr_func_edit) THEN LOCAL xFNC xFNC=this.cr_func_edit &xFNC ENDIF IF ximpresion THIS.crReporte.printersetup(0) oEstado.Avance('Imprimiendo...') THIS.crReporte.PrintOut(.T.) oEstado.VISIBLE=.F. ELSE oEstado.Avance('Configurando la visualizacin...') THIS.crVista = NEWOBJECT("CrystalViewer_top","Clases.vcx","",THIS.crReporte,xParametros.ex_Cr_Arbol,; xParametros.ex_Cr_archivos[1],; xParametros.ex_Cr_archivos[2],; xParametros.ex_Cr_archivos[3],; xParametros.ex_Cr_archivos[4],; xParametros.ex_Cr_archivos[5],; xParametros.ex_Cr_archivos[6],; xParametros.ex_Cr_archivos[7],; xParametros.ex_Cr_archivos[8],; xParametros.ex_Cr_archivos[9],; xParametros.ex_Cr_archivos[10]; ) oEstado.VISIBLE=.F. THIS.crVista.Show (IIF(xModal,1,0)) IF TYPE(xParametros.ex_cr_public_var)="L" THEN LOCAL xVar xVar=xParametros.ex_cr_public_var &xVar= this.crvista ENDIF ENDIF ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' no existe.') ENDIF ELSE =MESSAGEBOX('El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+MESSAGE()+")") ENDIF this.oestado_quitar (xoEstado_Propio) SET DEFAULT TO (P_SERVER) this.opar_actual=.f. ENDPROC PROCEDURE cr_param_aplicar LPARAMETERS xParametros as Object FOR nit=1 TO 10 *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("xParametros.ex_cr_Param(nIt,1)")="C" THEN *Limpio los valores por defecto que tengan asignado el parmetro THIS.crreporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THIS.crReporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nIt,1)).AddCurrentValue(xParametros.ex_cr_Param(nIt,2)) ENDIF NEXT ENDPROC PROCEDURE cr_localizar_tablas LPARAMETERS xParametros as Object crSubreportObject=5 FOR x=1 TO this.CRReporte.DATABASE.TABLES.COUNT RptName=this.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO this.CRReporte.Sections.COUNT FOR Y=1 TO this.CRReporte.Sections[z].ReportObjects.COUNT IF this.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE exportar_xls_coll LPARAMETERS ex_XLS_Abrir LOCAL nIt, xPar IF This.Parametros_Coll.count=0 THEN RETURN ENDIF FOR nIt=1 TO This.Parametros_Coll.Count xPar=This.Parametros_coll (nIt) IF nIt=This.Parametros_Coll.Count AND TYPE("ex_XLS_Abrir")="N" THEN xPar.ex_XLS_Abrir=ex_XLS_Abrir ENDIF DO CASE CASE INLIST(xPar.ex_entrada_tipo,1,2) This.Exportar_xls(xPar) CASE INLIST(xPar.ex_entrada_tipo,3) This.exportar_xls_cell(xPar) ENDCASE NEXT RETURN .t. ENDPROC PROCEDURE exportar_ods LPARAMETERS xParametros as exportaciones_parametros OF "imp_exp.vcx" LOCAL x1,x2 xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_ods.parametros=xParametros * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * y = 6 = Objeto contenedor de los formatos de la columna * * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL xOK, x as Excel.Application && Constantes de EXCEL xlEdgeTop=8 xlEdgeBottom=9 xlAutomatic=-4105 xlContinuous=1 xlThin=2 oEstado.VISIBLE=.T. LOCAL z, aaa LOCAL xCamposArr(255,10) TRY LOCAL nit1,nit2 FOR nit1=1 TO 255 FOR nit2=1 TO 10 xCamposArr(nit1,nit2)=xParametros.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY ***Correccin para utilizar reportes del viejo formato y conteo de campos xColCount=0 FOR nIt=1 TO ALEN(xCamposArr,1) IF xColCount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xCamposArr(nIt,1)=="" THEN xColCount = nIt - 1 ENDIF ELSE xColCount = nIt - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xCamposArr(nIt,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xCamposArr(nIt,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xCamposArr(nIt,5)='%SUMAR' ELSE IF xCamposArr(nIt,5)=="" THEN xCamposArr(nIt,5)="%SUMAR" ELSE xCamposArr(nIt,5)=UPPER(xCamposArr(nIt,5)) ENDIF ENDIF xCamposArr(nIt,10)="=0" NEXT LOCAL xTemporal, xTitulo, xAlias, xOrden, xTabla, xPlanilla, xPathTMP xPlanillaXLS=xParametros.ex_archivo_plantilla xTemporal=JUSTPATH(xParametros.ex_archivo_entrada) IF EMPTY(xTemporal) THEN xTabla=oDeyFunc.Get_Path(5)+xTemporal ELSE xTabla=xTemporal ENDIF xAlias="Reportes" xOrden = xParametros.ex_xls_campos_orden xPlanilla='' xPathTMP=JUSTPATH(xParametros.ex_archivo_salida) IF EMPTY(xPathTMP) THEN xPlanilla_Final=oDeyFunc.Get_Path(5)+xParametros.ex_archivo_salida ELSE xPlanilla_Final = xParametros.ex_archivo_salida ENDIF xPlanilla_Final=FORCEEXT(xPlanilla_Final,"xls") xPlanilla_Aux='' xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPathTMP=JUSTPATH(xParametros.ex_Anexar_Archivo) IF EMPTY(xPathTMP) THEN xAnexar_Archivo=oDeyFunc.Get_Path(5)+xParametros.ex_Anexar_Archivo ELSE xAnexar_Archivo = xParametros.ex_Anexar_Archivo ENDIF xAnexar_Archivo=FORCEEXT(xAnexar_Archivo,"xls") xAnexar_Planilla=xParametros.ex_Anexar_Planilla AND NOT EMPTY(xParametros.ex_Anexar_Archivo) xSepFor=xParametros.ex_xls_campos_separa xSepEnc=xParametros.ex_xls_campos_encabezado xTitulo=xParametros.ex_titulo xOtra_Planilla=1 xMaxFields=0 xXLS_Abrir=xParametros.ex_xls_abrir xIniRow=3 xIniSep=3 xdtot_sep=xParametros.ex_xls_totalizar_separacion xdtot_fin=xParametros.ex_xls_totalizar_final xRecCount=0 LOCAL xcopy, hayerror, z, maxfields, xdata xOK=.T. **** Abre la tabla, aplica Orden y Corrige Fecha TRY xOK=THIS.f_ods.Preparar_Tabla(xTabla, xAlias, xOrden, "REP_XLS") CATCH TO oOBJ THIS.oestado_quitar (xoEstado_Propio) xOK=.F. ENDTRY IF NOT xOK THEN RETURN .F. ENDIF **** Selecciona la Planilla a abrir =THIS.f_ods.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS TRY =THIS.f_ods.Abriendo_Archivos_ods(@xPlanilla, @xPlanilla_Final, @x) CATCH TO oExODS xOK=.F. ENDTRY Local xACTSheet as Excel.Worksheet LOCAL xACTSheetL as Excel.Worksheet DO WHILE xOK * X!S x.VISIBLE=.F. xlibros=x.getSheets.getCount() *x.workbooks.COUNT xACTSheet= x.getSheets.getByIndex(0) * x.workbooks(xlibros).sheets(xOtra_Planilla) =oEstado.Avance("Procesando el encabezamiento...") **** Preparo el encabezado y cuento los campos THIS.f_ods.oSM= x THIS.f_ods.Preparando_Encabezado(@xCamposArr, @xACTSheet, @xMaxFields) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF IF xMaxFields>0 THEN **** Crea y abre la planilla auxiliar (DBF->XLS) THIS.f_ods.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@x,@xCamposArr,@xMaxFields) IF TYPE("xparametros.ex_tabla_filtro")="C" AND not EMPTY(xparametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(xparametros.ex_tabla_filtro) To xRecCount ELSE xRecCount=RECCOUNT() ENDIF * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 * * Copia los datos * x.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).cut xRecordCount=xRecCount xACTSheet.ACTIVATE xACTSheet.RANGE("A4").SELECT xACTSheet.paste x.workbooks(xlibros+1).CLOSE(.F.) =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT xACTSheet.cells(1,1).VALUE = xTitulo xACTSheet.cells(1,3).SELECT ENDIF x.workbooks(xlibros).sheets(1).SELECT x.workbooks(xlibros).sheets(1).RANGE( "A1" ).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=xACTSheet.cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+xACTSheet.cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(xACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 xACTSheet.ROWS(xEndSep+2).EntireRow.SELECT x.CutCopyMode = .F. x.SELECTION.COPY xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT xACTSheet.paste xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.ClearContents ENDIF xACTSheet.cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) xACTSheet.cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=xACTSheet.cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=xACTSheet.cells(4,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ENDIF IF xParametros.ex_agregar_nombre_rango THEN LOCAL oName as Excel.Name, xNameTXT xNameTXT = STRTRAN(STRTRAN(xActSheet.Name, " ", "_"),"-","_") oName=x.ActiveWorkbook.names.Add(xNameTXT,xACTSheet.range(xACTSheet.cells(xIniRow,1),xACTSheet.cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF xPArametros.ex_sin_formato THEN xACTSheet.Rows(1).Delete xACTSheet.Rows(1).Delete ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_ods.Agregar_Filtros(xACTSheet,xParametros) ********************************************************* xACWB=x.ActiveWorkbook xLiWB=x.workbooks(xlibros) xACWB.SAVE RELEASE xACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_ods.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") xACWB.SAVE x.DisplayAlerts=.F. xLiWB.CLOSE ENDIF DELETE FILE (xPlanilla_Aux) oEstado.VISIBLE=.F. DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. ENDCASE IF xResp_O THEN IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT RELEASE x ENDIF DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow LOCAL xPLAA, xPLAT xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") xPLAT = JUSTPATH(xPlanilla_Final) xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) IF xerror<=32 =Mensaje_s("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) ENDIF ELSE IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT ELSE ***************************************************************************************************************************************************** ***************************************************************************************************************************************************** ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* x.workbooks(xlibros).close x.VISIBLE=.T. ENDIF ENDIF RELEASE x EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE exportar_xls_cell LPARAMETERS xParametros AS exportaciones_parametros OF "imp_exp.vcx" xParametros = oDeyFunc.chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_xls.parametros=xParametros LOCAL xoEstado_Propio xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF *=sys_mostrar_screen("Exportar_CELL", .t.) LOCAL xPlanilla_Final,xPlanilla_Nombre, xAnexar_Archivo, xAnexar_Planilla, xOK, x xPlanilla_Final='' xAnexar_Archivo='' xAnexar_Planilla='' **** PreSelecciona la Planilla a abrir THIS.f_xls.preseleccion_planillas(@xParametros, @xPlanilla_Final, @xAnexar_Archivo, @xAnexar_Planilla) xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPlanilla='' xOtra_Planilla='' **** Selecciona la Planilla a abrir =THIS.f_xls.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla, xPlanilla_Final) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS xOK=.T. x=.F. TRY =THIS.f_xls.Abriendo_Archivos_Excel(@xPlanilla, @xPlanilla_Final, @x) CATCH xOK=.F. ENDTRY LOCAL xACTSheet AS Excel.Worksheet LOCAL xACTSheetL AS Excel.Worksheet LOCAL xMacroTOT DO WHILE xOK x.VISIBLE=.F. x.DisplayAlerts=.F. xlibros=x.workbooks.COUNT xACTSheet=x.workbooks(xlibros).sheets(xOtra_Planilla) xACTSheet.ACTIVATE this.f_xls.Cel_Exportar_Coll(xActSheet, xParametros.cel_rango) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF xResp_O=.T. DO CASE CASE xParametros.ex_xls_abrir= 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xParametros.ex_xls_abrir = 1 xResp_O=.T. CASE xParametros.ex_xls_abrir = 2 xResp_O=.F. CASE xParametros.ex_xls_abrir = 3 xResp_O=.F. ENDCASE LOCAL xACWB AS Excel.workbook xACWB=x.ActiveWorkbook xACWB.SAVE IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ENDIF * =sys_mostrar_screen("Exportar_CELL - CERRAR", .t.) x.ScreenUpdating = .T. x.DisplayAlerts=.T. IF xResp_O THEN * =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 3", .T.) * Ya viene abierta, solo la visibilizo x.visible=.t. DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(x.HWnd) *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT>1 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* ENDIF *!* ENDIF *!* DECLARE LONG ShellExecute ; *!* IN SHELL32.DLL ; *!* INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; *!* STRING cParameters, STRING cDirectory, INTEGER nShowWindow *!* LOCAL xPLAA, xPLAT *!* xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") *!* xPLAT = JUSTPATH(xPlanilla_Final) *!* xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) *!* IF xerror<=32 *!* IF p_dev THEN *!* DEBUG *!* SUSPEND *!* ELSE *!* =Mensaje("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) *!* ENDIF *!* ENDIF ELSE * IF xXLS_Abrir = 3 if xParametros.ex_xls_abrir=3 && Ojo !!! Lo correg yo (Guille) * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF endif * Tengo que cerrarla *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT=0 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 4", .T.) *!* ENDIF * Un solo libro, salgo completamente if x.workbooks.count>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado xACWB.Close x.DisplayAlerts = .T. x.ScreenUpdating = .T. x.DisplayAlerts=.T. x.VISIBLE=.T. else x.activeworkbook.close x.DisplayAlerts = .f. x.Quit && = .T. endif *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* x.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* x.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* x.DisplayAlerts = .T. *!* x.ScreenUpdating = .T. *!* x.DisplayAlerts=.T. *!* x.VISIBLE=.T. *!* ENDIF ENDIF RELEASE x EXIT ENDDO THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE set_displayalert LPARAMETERS xValor LOCAL xOK TRY xExcelApp=GETOBJECT(,'excel.application') xExcelApp.DisplayAlerts=xValor xOK=.t. CATCH TO oOBJ xOK=.f. ENDTRY RETURN xOK ENDPROC PROCEDURE Init SET CLASSLIB TO Clases addi SET CLASSLIB TO imp_exp ADDITIVE This.f_xls=NEWOBJECT("exportaciones_XLS","imp_exp") This.f_ods=NEWOBJECT("exportaciones_ODS","imp_exp") This.Parametros_coll=CREATEOBJECT("Collection") this.archivo_salida_renombra=(p_xls_solo_renombra_desde_crystal=0) ENDPROC }"|| %q |rU"CQEXPORTACIONES_PARAMETROS imp_exp.vcxQINTEGER TC%~TG+(Dey_FuncTC O T T T $QEXCEL.APPLICATION T T T T T T%C PreEstadoTTTa   ] (Y( U%TC (!k T"#(C%"$'%CxCamposArr(nIt,1)bC%C#T"#  T"#'%CxCamposArr(nIt,3)bLfT#-'%CxCamposArr(nIt,4)bLT#-'%CxCamposArr(nIt,5)bCT#%SUMAR g%C#6T#%SUMAR c#T#CC#fT# =0$%&'()*T+,T$-%CC$աT(C./$   T($T&ReportesT'0 T1 T2 T3T 44 C123 5 T) T6T78T9:T;<T%= T> T?TC@ TABTCBTDETFGCEntrada THIJKL TaHG M1 *TC(&'REP_XLS N(O-CP T- MG% bB-C)>1 Q,CCreando planilla de Excel...R C)1 S(T@SCError: TUC Line: CCTVZC TWC TXR T-CCreada excel...R1YQEXCEL.WorksheetZQEXCEL.Worksheet/[QEXCEL.Workbook\QEXCEL.Workbook]+"T^-T_-T`abT[C`aTYC>[c Yd/CProcesando el encabezamiento...R CY?A e%C7 TYf7 %?H )  M >%CoParametros.ex_tabla_filtrobC Cg U Cg(H k THCN%H (T\C&6? h  (T\C&6? i M) T\C? jTHk/T@CC? 8 C? 86!TC@C 6T@C?G"TC@zC 6TlH ~  MX >%CoParametros.ex_tabla_filtrobC Cg > Cg( T TCN M~ Tk% T1C1xlsxC13[m [nT[C1aoTYC>[cC1xls/\cpA2:lCCZqrTrCAYs Crt%A TrCCYsuT_-C-\nT_a&CAjustando Columnas ...R T?;TvCC 8C@C 8 63TvvC@CCGCG6 YwA:vxy%ATYsz%YsA{ [c{"[cs{#(?'%CxCamposArr(nIt,6)bO@T|C--CA#Ys}:C--CA#Ys}T~C#CC|Yp~ %9 ; (TCreando separaciones ... F&#) T Ta T T ~uT%TC9%C9  q% TATY{CC#(?%C#D TC--CC#Ys}TC--C#Ys}TC#YsHG! C#%SUMAR$T=Sum(:)" C#%CONTARb&T=COUNT(:)# C#%CONTARA'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:) 2G%T]CC#?CCZxFormula=&xMacroTOT TTaCTTT0T# C# +C--}T TAY{CTTY{T- qY{C--tY{ !TYszC; TYsaTCATC9 T-% TTAY{CC#(?%C#D TC--CC#Ys}TC--C#Ys}TC#YsH ! C#%SUMAR$T=Sum(:)" C#%CONTAR$&T=COUNT(:)# C#%CONTARAn'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:) 2 %T]CC#?CCZxFormula=&xMacroTOT TTaCoTTT0T# C# +C--}T,CCreando totales generales...R#(?%C#F TC#YsTC# TTaCTTT YdYs{ ,CCreando totales generales...R#(?%C#F TC--C#Ys}&TC--C#Ys}TC#YsHl! C#%SUMAR$T=Sum(:)" C#%CONTARP&T=COUNT(:)# C#%CONTARA'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:)" CC#='=M%T]CC#?CCZxFormula=&xMacroTOT 2lTC# TTaCTTT YdYs{%Q EXCEL.NAME$TCCYf _-_BTCCCAYsCA?YsYp%YYCY QEXCEL.workbookT%"cd!T]C?CCAZT]!T]C?CCAZT]  KT CC \TC. %T C =%CC fCCfG%CC 0'T C C8C El archivo CC  no existe !!!B-"(P*(CL)%CCH8(CCD1TCCC ! (C @F%CxParametros.ex_cr_archivos[w]bCC  <T C\C % T C/C ,% CC >  8T CC \TC. %sT C =%CC fCCf4%CC 0<T C 08C El archivo CC  no existe !!!B-U XPARAMETROSCRSUBREPORTOBJECTXTHIS CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWEX_CR_ARCHIVOSDIRBARFRMNAMEPOINTPOSMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT$ %/B(TC3%C ex_XLS_AbrirbN TH CC CCBaU EX_XLS_ABRIRNITXPARTHISPARAMETROS_COLLCOUNTEX_ENTRADA_TIPO EXPORTAR_XLSEXPORTAR_XLS_CELL#4QEXPORTACIONES_PARAMETROS imp_exp.vcx TC%oTG+(Dey_FuncTC O T  QEXCEL.Application T T T T TTa    (( %TC( T(C%}'%CxCamposArr(nIt,1)bC^%CZT yT'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bLT-'%CxCamposArr(nIt,5)bCKT%SUMAR %CT%SUMAR #TCCfT =0 !"#$T%&TC'%CNT"C() e T"T ReportesT!* T#T$C+%C$T,C()+ T,+T,C,xls T-T./T$C0%C$jT1C()0 T10T1C1xlsT23 C0 T45T67T8 T9 T:T;< T= T>T?@TAB TCDEFG T a *T C" !REP_XLS H(ICJ T -% B-C#9 K,CCreando planilla de Excel...L eC#, M(N~ T -OQEXCEL.WorksheetPQEXCEL.Worksheet+ TQCRSTOCRT/CProcesando el encabezamiento...LT UCO: V%C.  {TOW. %: $C -: X>%Cxparametros.ex_tabla_filtrobC CY  CY(C + TCCN/T@CC: 8 C: 86!TC@C 6T@C:G"TC@zC 6TZ+[Q\]A1^<[Q\]A2:ZCCCZ^<[Q\]A2:ZCCCZ_ T`C OaO]A4^ Ob[Qc-&CAjustando Columnas ...L T:;TdCC 8C@C 8 63TddC@CCGCG6 OeA:dfgTOhiOh^[Q\^'[Q\]A1^(: '%CxCamposArr(nIt,6)bO @TjC--C=Ohk:C--C=`OhkTlCCCjO]lm %4 6 ,(TnCreando separaciones ... F #) To Tpa Tq Tr ~Trr%po TsC4%sC4 p ~%p Tqo=rTtqOuqv^CwxCwx(:%C? TyC--C>OhkTzC--CqOhkT{CqOhHd! C%SUMAR$T|=Sum(y:z)" C%CONTAR;&T|=COUNT(y:z) 2dxFormula=&xCamposArr(nIt,5) T{}|T{~aC{TTT0T C +C--{kToo  Tqo=rOuqv^CwxTtqTooOuqv^T- wOuqv^ ObOuqv^ w!TOhtiC6 TOht~aT>=roTsC4 Tp-%p TrrTqo=rOuqv^CwxCwx(:%C? TyC--C>OhkTzC--CqOhkT{CqOhHZ! C%SUMAR$T|=Sum(y:z)" C%CONTAR1&T|=COUNT(y:z) 2ZxFormula=&xCamposArr(nIt,5) T{}|T{~aC{TTT0T C +C--{kToo,CCreando totales generales...L(:%CA T{CqOhT|C T{}|T{~aC{TTTOh^ L,CCreando totales generales...L(:/%CA +TyC--COhk&TzC--C`OhkT{C`OhH ! C%SUMARO$T|=Sum(y:z)" C%CONTAR&T|=COUNT(y:z) 2 xFormula=&xCamposArr(nIt,10) T{}|T{~aC{'TTTOh^%Q EXCEL.Name$TCCOW _-_BTCCC=OhC=`:OhO]%OuOuCO TTCQ[ 0 THEN DO CASE CASE oParametros.ex_entrada_tipo = 1 **** Crea y abre la planilla auxiliar (DBF->XLS) IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecCount ELSE xRecCount=RECCOUNT() ENDIF IF xRecCount>65000 THEN oWBData=THIS.f_xls.Abrir_Planilla_Largos(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ELSE oWBData=THIS.f_xls.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@oXLS,@xCamposArr,@xMaxFields) ENDIF CASE oParametros.ex_entrada_tipo = 2 oWBData=THIS.f_xls.copiar_array(@oXLS,@oParametros,@xMaxFields) xRecCount = oParametros.ex_array_datos_f ENDCASE * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 *!* * *!* * Copia los datos *!* * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).COPY *!* xRecordCount=xRecCount *!* oACTSheet.ACTIVATE *!* oACTSheet.cells(xIniRow+1,1).SELECT *!* LOCAL xSel *!* xSel=oXLS.SELECTION *!* xSel.PasteSpecial (-4163, -4142, .F., .F.) *!* oXLS.workbooks(xlibros+1).CLOSE(.F.) *!* =oEstado.Avance("Ajustando Columnas ...") *!* z=xMaxFields * * Copia los datos * *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).SELECT *!* oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(RECCOUNT()+1)) ).Copy DO CASE CASE oParametros.ex_entrada_tipo = 1 IF TYPE("oParametros.ex_tabla_filtro")="C" AND NOT EMPTY(oParametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(oParametros.ex_tabla_filtro) TO xRecordCount ELSE xRecordCount=RECCOUNT() ENDIF CASE oParametros.ex_entrada_tipo = 2 xRecordCount= oParametros.ex_array_datos_f ENDCASE IF xRecordCount>65000 THEN *!* xplanilla_final = FORCEEXT(xplanilla_final,"xlsx") *!* oXLS.workbooks(xlibros).SaveAS(xplanilla_final,51) *!* oXLS.workbooks(xlibros).Close *!* oXLS.workbooks.OPEN(xPlanilla_Final) xPlanilla_Final = FORCEEXT(xPlanilla_Final,"xlsx") oWBFinal.SAVEAS(xPlanilla_Final,51) oWBFinal.CLOSE oWBFinal=oXLS.workbooks.OPEN(xPlanilla_Final) oACTSheet=oWBFinal.sheets(xOtra_Planilla) DELETE FILE (FORCEEXT(xPlanilla_Final,"xls")) ENDIF * oXLS.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY oWBData.sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecordCount+1)) ).COPY LOCAL xTMPCel1 * xTMPCel1=oACTSheet.Cells(4,1) xTMPCel1=oACTSheet.Cells(xinirow+1,1) xTMPCel1.PasteSpecial() *!* IF xinirow<3 *!* *!* * Para que elimine el formato de encabezado....solo se usa para exportaci "no estandard"...no es muy elegante, ya lo se... *!* *!* xTMPCel1=oACTSheet.Cells(3,1).Clear() *!* endif oXLS.DisplayAlerts=.F. oWBData.CLOSE(.F.) oXLS.DisplayAlerts=.T. =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) oACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT IF xinirow>1 oACTSheet.Cells(1,1).VALUE = xTitulo oACTSheet.Cells(xIniRow+1,1).SELECT ELSE * No puede haber ttulo porque pisara el encabezado endif ENDIF oWBFinal.sheets(1).SELECT oWBFinal.sheets(1).Cells(1,1).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=oACTSheet.Cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+oACTSheet.Cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(oACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN *=sys_mostrar_Screen("Rengln",.t.) xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 oACTSheet.ROWS(xEndSep+2).EntireRow.SELECT oXLS.CutCopyMode = .F. oXLS.SELECTION.COPY oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.PasteSpecial (-4163, -4142, .F., .F.) oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.ClearContents ENDIF oACTSheet.Cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) oACTSheet.Cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN *=sys_mostrar_screen("Totales SIN separacin",.t.) IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 oACTSheet.ROWS(xEndSep+1).EntireRow.SELECT oXLS.SELECTION.INSERT (-4121) oXLS.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=oACTSheet.Cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" OTHERWISE xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=oACTSheet.Cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* *=sys_mostrar_screen("Totales generales CON separacin",.t.) =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=oACTSheet.Cells(4,nIt).Address(.F.,.F.) xRowFin=oACTSheet.Cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=oACTSheet.Cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTARA" xFormula="=COUNTA("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR.BLANCOS" xFormula="=COUNTBLANK("+xRowINI+":"+xRowFin+")" CASE LEFT(xCamposArr(nIt,5),2)="'=" xMacroTOT=STRTRAN(xCamposArr(nIt,5),"?", ALLTRIM(STR(xCellACT.ROW))) xFormula=&xMacroTOT OTHERWISE xFormula=xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT oACTSheet.ACTIVATE oACTSheet.Cells(1,1).SELECT ENDIF IF oParametros.ex_agregar_nombre_rango THEN LOCAL oName AS Excel.NAME, xNameTXT xNameTXT = STRTRAN(STRTRAN(oACTSheet.NAME, " ", "_"),"-","_") oName=oXLS.ActiveWorkbook.names.ADD(xNameTXT,oACTSheet.RANGE(oACTSheet.Cells(xIniRow,1),oACTSheet.Cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF oParametros.ex_sin_formato THEN oACTSheet.ROWS(1).DELETE oACTSheet.ROWS(1).DELETE ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_xls.Agregar_Filtros(oACTSheet,oParametros) ********************************************************* LOCAL oACWB AS Excel.workbook oACWB =oXLS.ActiveWorkbook IF oParametros.ex_xls_grafico THEN oACWB .sheets(oParametros.ex_xls_grafico_hoja).ChartObjects(oParametros.ex_xls_grafico_Nombre).ACTIVATE xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_values,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).VALUES = xMacroTOT xMacroTOT=STRTRAN(oParametros.ex_xls_grafico_xvalues,"?", ALLTRIM(STR(xIniRow+xRecordCount))) oACWB .ActiveChart.SeriesCollection(1).XValues =xMacroTOT ENDIF oACWB .SAVE RELEASE oACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,oACWB ,oXLS) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") oACWB .sheets(1).SELECT oACWB .SAVE * Ahora solo lo cierro si no se va a abrir * oXLS.DisplayAlerts=.F. * xLiWB.CLOSE ENDIF IF oParametros.ex_entrada_tipo = 1 THEN DELETE FILE (xPlanilla_Aux) ENDIF oEstado.VISIBLE=.F. oParametros.ex_archivo_salida = xPlanilla_Final DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. CASE xXLS_Abrir = 4 xResp_O=.T. ENDCASE oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. IF xResp_O THEN * Ya viene abierta, solo la visibilizo oXLS.VISIBLE=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized DECLARE INTEGER SetForegroundWindow IN user32.DLL AS WinAPI_SetForegroundWindow INTEGER HWND WinAPI_SetForegroundWindow(oXLS.HWND) ELSE * Se cierra IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL(JUSTEXT(xPLanilla_Final),"Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF *!* IF xlibros=1 THEN * Un solo libro, salgo completamente IF oXLS.workbooks.COUNT>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y oXLS.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado oACWB .CLOSE oXLS.DisplayAlerts = .T. oXLS.ScreenUpdating = .T. oXLS.DisplayAlerts=.T. oXLS.WINDOWSTATE= -4137 && xlMaximized oXLS.VISIBLE=.T. ELSE TRY oACWB .CLOSE CATCH ENDTRY oXLS.DisplayAlerts = .F. xWD=oXLS.HWND oXLS.QUIT IF p_xls_kill_excel=1 THEN TRY =sys_killproc(, , , , , xWD) CATCH ENDTRY ENDIF ENDIF *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* oXLS.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* oXLS.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* oXLS.DisplayAlerts = .T. *!* oXLS.ScreenUpdating = .T. *!* *!* oXLS.DisplayAlerts=.T. *!* oXLS.VISIBLE=.T. *!* ENDIF ENDIF RELEASE oXLS EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE oestado_chequear LPARAMETERS xMax as Integer IF TYPE("oEstado") # "O" or isnull(oEstado) THEN SET PROCEDURE TO Dey_func ADDITIVE RELEASE oEstado PUBLIC oEstado DO FORM estado NAME oEstado oEstado.VISIBLE=.F. oEstado.MIN=1 oEstado.MAX=chk_value(xMax,1000,"N") oEstado.VALUE=1 RETURN .t. ELSE RETURN .f. ENDIF ENDPROC PROCEDURE oestado_quitar LPARAMETERS xoEstado_Propio IF xoEstado_Propio and TYPE("oEstado")="O" THEN oEstado.RELEASE RELEASE oEstado ENDIF ENDPROC PROCEDURE exportar_crystal LPARAMETERS xParametros as Object , xImpresion as Boolean, xModal as Boolean xoEstado_Propio=this.oestado_chequear() IF xoEstado_Propio THEN oEstado.max=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,this.exportaciones_parametros,"O") this.oPar_Actual=xParametros * * ximpresion = .t. && imprime directamente * xdempresa=fn_empresa(.T.) && .t. = mantiene abierto el archivo de empresas THIS.crAplicacion = NULL THIS.crReporte = NULL THIS.crVista = NULL LOCAL xerror xerror=0 ON ERROR xerror=1 xoEstado_Propio=this.oestado_chequear(6) oEstado.Avance('Iniciando servidor de automatizacin...') THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.11") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.10") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.9") IF xerror=1 xerror=0 THIS.crAplicacion = CREATEOBJECT("CrystalRuntime.Application.8.0") endif endif endif IF xerror=0 ON ERROR xerror=2 oEstado.Avance('Abriendo reporte...') IF FILE(xParametros.ex_archivo_reporte) THIS.crReporte = THIS.crAplicacion.OpenReport(xParametros.ex_archivo_reporte) IF xerror=0 ON ERROR &onerr oEstado.Avance('Configurando datos del reporte...') xok=.T. *************DIEGO - RUTEO AVANZADO DE TABLAS POR NOMBRE Y EN SUBREPORTES ********************************* xok=THIS.cr_localizar_tablas (xParametros) oEstado.texto='Pasando parmetros al reporte...' IF xok * * Configuracion General * THIS.crReporte.ReportTitle = xParametros.ex_titulo1 * * Configuracion de los grupos * * Redefinicin de las frmulas IF xParametros.ex_cr_dontchangenothing ***********************DIEGO - ANULACION DE CAMBIOS EN GRUPOS ****************************************************** ********************** SORRY Pero queria evitar que me cambies formulas que controlo desde el reporte. FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.cr_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ELSE FOR EACH xformula IN THIS.crReporte.FormulaFields DO CASE CASE xformula.NAME = "{@NombreGrupo}" xformula.TEXT = '"'+xParametros.ex_Cr_NombreGrupo+'"' CASE xformula.NAME = "{@CodigoGrupo}" xformula.TEXT = xParametros.ex_Cr_CodigoGrupo CASE xformula.NAME = "{@DescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_DescripcionGrupo CASE xformula.NAME = "{@CRDescripcionGrupo}" xformula.TEXT = xParametros.ex_Cr_CRDescripcionGrupo CASE xformula.NAME = "{@OrdenGrupos}" xformula.TEXT = xParametros.ex_Cr_OrdenGrupos CASE xformula.NAME = "{@Titulo2}" xformula.TEXT = '"'+xParametros.ex_titulo2+'"' CASE xformula.NAME = "{@Empresa}" xformula.TEXT = '"'+ALLTRIM(xdempresa)+'"' ENDCASE ENDFOR ENDIF IF xParametros.ex_Cr_suprime_fecha * Suprime la fecha y la hora FOR z=1 TO THIS.crReporte.areas[2].sections[1].reportobjects.COUNT IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintDate1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF IF THIS.crReporte.areas[2].sections[1].reportobjects[z].NAME="PrintTime1" THIS.crReporte.areas[2].sections[1].reportobjects[z].suppress=.T. ENDIF ENDFOR ENDIF *********** MODIFICACION DE DIEGO PARA PASAR PARAMETROS AL REPORTE ********** ***************************************************************************** * * Solo se habilita al setear Thisform.Param_Usar a .T.****************** * ***************************************************************************** IF xParametros.ex_Cr_param_usar THEN this.cr_param_aplicar (xParametros) ENDIF ***************************************************************************** IF NOT EMPTY(this.cr_func_edit) THEN LOCAL xFNC xFNC=this.cr_func_edit &xFNC ENDIF IF ximpresion THIS.crReporte.printersetup(0) oEstado.Avance('Imprimiendo...') THIS.crReporte.PrintOut(.T.) oEstado.VISIBLE=.F. ELSE oEstado.Avance('Configurando la visualizacin...') THIS.crVista = NEWOBJECT("CrystalViewer_top","Clases.vcx","",THIS.crReporte,xParametros.ex_Cr_Arbol,; xParametros.ex_Cr_archivos[1],; xParametros.ex_Cr_archivos[2],; xParametros.ex_Cr_archivos[3],; xParametros.ex_Cr_archivos[4],; xParametros.ex_Cr_archivos[5],; xParametros.ex_Cr_archivos[6],; xParametros.ex_Cr_archivos[7],; xParametros.ex_Cr_archivos[8],; xParametros.ex_Cr_archivos[9],; xParametros.ex_Cr_archivos[10]; ) oEstado.VISIBLE=.F. THIS.crVista.Show (IIF(xModal,1,0)) IF TYPE(xParametros.ex_cr_public_var)="L" THEN LOCAL xVar xVar=xParametros.ex_cr_public_var &xVar= this.crvista ENDIF ENDIF ENDIF ON ERROR &onerr ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' tiene problemas.'+CHR(13)+"("+MESSAGE()+")") ENDIF ELSE =MESSAGEBOX('El reporte '+ALLTRIM(xParametros.ex_archivo_reporte)+' no existe.') ENDIF ELSE =MESSAGEBOX('El servidor de automatizacin de impresiones'+CHR(13)+'no existe o no est bien instalado.'+CHR(13)+"("+MESSAGE()+")") ENDIF this.oestado_quitar (xoEstado_Propio) SET DEFAULT TO (P_SERVER) this.opar_actual=.f. ENDPROC PROCEDURE cr_param_aplicar LPARAMETERS xParametros as Object FOR nit=1 TO 10 *Me fijo si Thisform.Param_data(nIt,1) es un nombre de parmetro y no un .f. IF TYPE("xParametros.ex_cr_Param(nIt,1)")="C" THEN *Limpio los valores por defecto que tengan asignado el parmetro THIS.crreporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nit,1)).ClearCurrentValueAndRange *Agrego el valor al parmetro del reporte... Y listo... THIS.crReporte.ParameterFields.GetItemByName(xParametros.ex_cr_Param(nIt,1)).AddCurrentValue(xParametros.ex_cr_Param(nIt,2)) ENDIF NEXT ENDPROC PROCEDURE cr_localizar_tablas LPARAMETERS xParametros as Object crSubreportObject=5 FOR x=1 TO this.CRReporte.DATABASE.TABLES.COUNT RptName=this.CRReporte.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR FOR z=1 TO this.CRReporte.Sections.COUNT FOR Y=1 TO this.CRReporte.Sections[z].ReportObjects.COUNT IF this.CRReporte.Sections[z].ReportObjects[y].Kind=crSubreportObject THEN FOR x=1 TO this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES.COUNT RptName=this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION FOR w= 1 TO ALEN(xParametros.ex_cr_archivos,1) IF TYPE("xParametros.ex_cr_archivos[w]")="C" .AND. xParametros.ex_cr_archivos[w]#"" DirBar=RAT("\",xParametros.ex_cr_archivos[w]) IF DirBar=0 THEN DirBar=RAT("/",xParametros.ex_cr_archivos[w]) ENDIF IF DirBar#0 .AND. LEN(xParametros.ex_cr_archivos[w])>=DirBar+1 THEN FrmName=SUBSTR(xParametros.ex_cr_archivos[w],DirBar+1) PointPos=RAT(".",FrmName) IF PointPos#0 THEN FrmName=LEFT(FrmName,PointPos-1) ENDIF IF ALLTRIM(UPPER(FrmName))==ALLTRIM(UPPER(RptName)) THEN IF FILE(xParametros.ex_cr_archivos[w]) this.CRReporte.Sections[z].ReportObjects[y].OpenSubreport.DATABASE.TABLES[x].LOCATION=xParametros.ex_cr_archivos[w] ELSE mensaje("El archivo "+ALLTRIM(xParametros.ex_cr_archivos[w])+" no existe !!!") RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDFOR ENDFOR ENDIF ENDFOR ENDFOR ENDPROC PROCEDURE exportar_xls_coll LPARAMETERS ex_XLS_Abrir LOCAL nIt, xPar IF This.Parametros_Coll.count=0 THEN RETURN ENDIF FOR nIt=1 TO This.Parametros_Coll.Count xPar=This.Parametros_coll (nIt) IF nIt=This.Parametros_Coll.Count AND TYPE("ex_XLS_Abrir")="N" THEN xPar.ex_XLS_Abrir=ex_XLS_Abrir ENDIF DO CASE CASE INLIST(xPar.ex_entrada_tipo,1,2) This.Exportar_xls(xPar) CASE INLIST(xPar.ex_entrada_tipo,3) This.exportar_xls_cell(xPar) ENDCASE NEXT RETURN .t. ENDPROC PROCEDURE exportar_ods LPARAMETERS xParametros as exportaciones_parametros OF "imp_exp.vcx" LOCAL x1,x2 xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF SET PROCEDURE TO Dey_Func ADDITIVE xParametros = chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_ods.parametros=xParametros * * 1) Presupone que se ha completado el arreglo campos[x,y] MAS ARREGLO NUEVO FORMATO (OPCIONAL) * * x = # campo * y = 1 = Nombre campo * y = 2 = Ttulo columna excel * y = 3 = Total Separacin * y = 4 = Total General * y = 5 = Frmula de calculo en separacin (%SUMAR, %CONTAR) * y = 10 = USO INTERNO (ACUMULAR SEPARACIONES) * y = 6 = Objeto contenedor de los formatos de la columna * * * 2) Presupone que se ha colocado en nombre del archivo temporal en thisform.archivotemporal * * * 3) Si thisform.planillaxls tiene una planilla vlida en p_system\prt\ con el formato: * * thisform.archivotemporal+"_f_"+xxxxxxxx (Sin la extensin) * * se la utilizar. * * 4) Si thisform.planillaxls ="" utilizar alguna de las planillas * * thisform.archivotemporal+"_v_"+xxxxxxxx.xls * * * o bien p_system\reporte.xls * * 5) Habiendo una planila distinta de reporte.xls, escribir los datos en la segunta hoja. * LOCAL xOK, x as Excel.Application && Constantes de EXCEL xlEdgeTop=8 xlEdgeBottom=9 xlAutomatic=-4105 xlContinuous=1 xlThin=2 oEstado.VISIBLE=.T. LOCAL z, aaa LOCAL xCamposArr(255,10) TRY LOCAL nit1,nit2 FOR nit1=1 TO 255 FOR nit2=1 TO 10 xCamposArr(nit1,nit2)=xParametros.ex_xls_campos(nit1,nit2) NEXT nit2 NEXT nit1 CATCH TO oCatch ENDTRY ***Correccin para utilizar reportes del viejo formato y conteo de campos xColCount=0 FOR nIt=1 TO ALEN(xCamposArr,1) IF xColCount = 0 THEN IF TYPE("xCamposArr(nIt,1)")=="C" THEN IF xCamposArr(nIt,1)=="" THEN xColCount = nIt - 1 ENDIF ELSE xColCount = nIt - 1 ENDIF ENDIF IF TYPE("xCamposArr(nIt,3)")#"L" THEN xCamposArr(nIt,3)=.F. ENDIF IF TYPE("xCamposArr(nIt,4)")#"L" THEN xCamposArr(nIt,4)=.F. ENDIF IF TYPE("xCamposArr(nIt,5)")#"C" THEN xCamposArr(nIt,5)='%SUMAR' ELSE IF xCamposArr(nIt,5)=="" THEN xCamposArr(nIt,5)="%SUMAR" ELSE xCamposArr(nIt,5)=UPPER(xCamposArr(nIt,5)) ENDIF ENDIF xCamposArr(nIt,10)="=0" NEXT LOCAL xTemporal, xTitulo, xAlias, xOrden, xTabla, xPlanilla, xPathTMP xPlanillaXLS=xParametros.ex_archivo_plantilla xTemporal=JUSTPATH(xParametros.ex_archivo_entrada) IF EMPTY(xTemporal) THEN xTabla=oDeyFunc.Get_Path(5)+xTemporal ELSE xTabla=xTemporal ENDIF xAlias="Reportes" xOrden = xParametros.ex_xls_campos_orden xPlanilla='' xPathTMP=JUSTPATH(xParametros.ex_archivo_salida) IF EMPTY(xPathTMP) THEN xPlanilla_Final=oDeyFunc.Get_Path(5)+xParametros.ex_archivo_salida ELSE xPlanilla_Final = xParametros.ex_archivo_salida ENDIF xPlanilla_Final=FORCEEXT(xPlanilla_Final,"xls") xPlanilla_Aux='' xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPathTMP=JUSTPATH(xParametros.ex_Anexar_Archivo) IF EMPTY(xPathTMP) THEN xAnexar_Archivo=oDeyFunc.Get_Path(5)+xParametros.ex_Anexar_Archivo ELSE xAnexar_Archivo = xParametros.ex_Anexar_Archivo ENDIF xAnexar_Archivo=FORCEEXT(xAnexar_Archivo,"xls") xAnexar_Planilla=xParametros.ex_Anexar_Planilla AND NOT EMPTY(xParametros.ex_Anexar_Archivo) xSepFor=xParametros.ex_xls_campos_separa xSepEnc=xParametros.ex_xls_campos_encabezado xTitulo=xParametros.ex_titulo xOtra_Planilla=1 xMaxFields=0 xXLS_Abrir=xParametros.ex_xls_abrir xIniRow=3 xIniSep=3 xdtot_sep=xParametros.ex_xls_totalizar_separacion xdtot_fin=xParametros.ex_xls_totalizar_final xRecCount=0 LOCAL xcopy, hayerror, z, maxfields, xdata xOK=.T. **** Abre la tabla, aplica Orden y Corrige Fecha TRY xOK=THIS.f_ods.Preparar_Tabla(xTabla, xAlias, xOrden, "REP_XLS") CATCH TO oOBJ THIS.oestado_quitar (xoEstado_Propio) xOK=.F. ENDTRY IF NOT xOK THEN RETURN .F. ENDIF **** Selecciona la Planilla a abrir =THIS.f_ods.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS TRY =THIS.f_ods.Abriendo_Archivos_ods(@xPlanilla, @xPlanilla_Final, @x) CATCH TO oExODS xOK=.F. ENDTRY Local xACTSheet as Excel.Worksheet LOCAL xACTSheetL as Excel.Worksheet DO WHILE xOK * X!S x.VISIBLE=.F. xlibros=x.getSheets.getCount() *x.workbooks.COUNT xACTSheet= x.getSheets.getByIndex(0) * x.workbooks(xlibros).sheets(xOtra_Planilla) =oEstado.Avance("Procesando el encabezamiento...") **** Preparo el encabezado y cuento los campos THIS.f_ods.oSM= x THIS.f_ods.Preparando_Encabezado(@xCamposArr, @xACTSheet, @xMaxFields) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF IF xMaxFields>0 THEN **** Crea y abre la planilla auxiliar (DBF->XLS) THIS.f_ods.Abrir_Planilla_Auxiliar(@xAlias,@xPlanilla_Aux,@x,@xCamposArr,@xMaxFields) IF TYPE("xparametros.ex_tabla_filtro")="C" AND not EMPTY(xparametros.ex_tabla_filtro) THEN COUNT FOR EVALUATE(xparametros.ex_tabla_filtro) To xRecCount ELSE xRecCount=RECCOUNT() ENDIF * * Determina el Rango * x1 = 64+ IIF(INT(xMaxFields/26)=0,0,INT(xMaxFields/26)) && -1 x1=IIF(x1=64,"",CHR(x1)) x2 = 64 + MOD(xMaxFields,26) x2=IIF(x2=64,"z",CHR(x2)) xrango=x1+x2 * * Copia los datos * x.workbooks(xlibros+1).sheets(1).RANGE("A1").SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).SELECT x.workbooks(xlibros+1).sheets(1).RANGE("A2:"+xrango+ALLTRIM(STR(xRecCount+1)) ).cut xRecordCount=xRecCount xACTSheet.ACTIVATE xACTSheet.RANGE("A4").SELECT xACTSheet.paste x.workbooks(xlibros+1).CLOSE(.F.) =oEstado.Avance("Ajustando Columnas ...") z=xMaxFields xcol = IIF(INT( (z-1) /26)=0,"",CHR(64+INT( (z-1) /26))) xcol = xcol + CHR(64+IIF(MOD(z,26)=0,26,MOD(z,26))) xACTSheet.COLUMNS("A:"+xcol).EntireColumn.AUTOFIT xACTSheet.cells(1,1).VALUE = xTitulo xACTSheet.cells(1,3).SELECT ENDIF x.workbooks(xlibros).sheets(1).SELECT x.workbooks(xlibros).sheets(1).RANGE( "A1" ).SELECT ***************** FOR nIt=1 TO xMaxFields IF TYPE("xCamposArr(nIt,6)")="O" THEN xSelRange=xACTSheet.cells(xIniRow+1,nIt).Address(.F.,.F.)+":"+xACTSheet.cells(xIniRow+xRecordCount,nIt).Address(.F.,.F.) xFor=xCamposArr(nIt,6) xFor.Fo_Aplica(xACTSheet.RANGE(xSelRange)) ENDIF NEXT ***************** IF NOT xSepFor=='' AND NOT xSepEnc=='' THEN oEstado.texto="Creando separaciones ..." SELECT (xAlias) GO TOP xDespRow=0 xInicial =.T. xEndSep=1 xRec=0 SCAN xRec=xRec+1 IF xInicial THEN xSepara=EVALUATE(xSepFor) ENDIF IF NOT xSepara==EVALUATE(xSepFor) OR xInicial THEN IF NOT xInicial THEN xEndSep=xDespRow + xIniRow+ xRec - 1 xEncabeza=xEndSep+2 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ELSE xEndSep=xDespRow + xIniRow + xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) xEncabeza = xEndSep + 1 xDespRow = xDespRow + 1 xACTSheet.ROWS(xEndSep+2).EntireRow.SELECT x.CutCopyMode = .F. x.SELECTION.COPY xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT xACTSheet.paste xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.ClearContents ENDIF xACTSheet.cells(xEncabeza,1).VALUE=EVALUATE(xSepEnc) xACTSheet.cells(xEncabeza,1).FONT.Bold = .T. xIniSep = xIniRow + xRec + xDespRow xSepara = EVALUATE(xSepFor) xInicial=.F. ENDIF ENDSCAN IF NOT xInicial THEN xRec=xRec+1 xEndSep=xDespRow + xIniRow+ xRec - 1 xACTSheet.ROWS(xEndSep+1).EntireRow.SELECT x.SELECTION.INSERT (-4121) x.SELECTION.INSERT (-4121) FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,3) AND xdtot_sep THEN xRowINI=xACTSheet.cells(xIniSep,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(xEndSep,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(xEndSep+1,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,5) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH xCamposArr(nIt,10)=xCamposArr(nIt,10)+"+"+xCellACT.Address(.F.,.F.) ENDIF NEXT xDespRow =xDespRow + 2 ENDIF =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xCellACT=xACTSheet.cells(xEndSep+3,nIt) xFormula=xCamposArr(nIt,10) xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ELSE ************** TOTALES SIN SEPARACION ********************* =oEstado.Avance("Creando totales generales...") FOR nIt=1 TO xMaxFields IF xCamposArr(nIt,4) AND xdtot_fin THEN xRowINI=xACTSheet.cells(4,nIt).Address(.F.,.F.) xRowFin=xACTSheet.cells(4+xRecordCount-1,nIt).Address(.F.,.F.) xCellACT=xACTSheet.cells(4+xRecordCount,nIt) DO CASE CASE xCamposArr(nIt,5)="%SUMAR" xFormula="=Sum("+xRowINI+":"+xRowFin+")" CASE xCamposArr(nIt,5)="%CONTAR" xFormula="=COUNT("+xRowINI+":"+xRowFin+")" OTHERWISE xFormula=&xCamposArr(nIt,10) ENDCASE xCellACT.Formula=xFormula xCellACT.FONT.Bold = .T. WITH xCellACT.BORDERS(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic ENDWITH ENDIF NEXT xACTSheet.cells(1,1).SELECT ENDIF IF xParametros.ex_agregar_nombre_rango THEN LOCAL oName as Excel.Name, xNameTXT xNameTXT = STRTRAN(STRTRAN(xActSheet.Name, " ", "_"),"-","_") oName=x.ActiveWorkbook.names.Add(xNameTXT,xACTSheet.range(xACTSheet.cells(xIniRow,1),xACTSheet.cells(xIniRow+xRecordCount,xMaxFields))) ENDIF IF xPArametros.ex_sin_formato THEN xACTSheet.Rows(1).Delete xACTSheet.Rows(1).Delete ENDIF ******* Agregado de filtros a la hoja ******************* THIS.f_ods.Agregar_Filtros(xACTSheet,xParametros) ********************************************************* xACWB=x.ActiveWorkbook xLiWB=x.workbooks(xlibros) xACWB.SAVE RELEASE xACTSheet, xCellACT IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_ods.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ELSE =oEstado.Avance("Guardando...") xACWB.SAVE x.DisplayAlerts=.F. xLiWB.CLOSE ENDIF DELETE FILE (xPlanilla_Aux) oEstado.VISIBLE=.F. DO CASE CASE xXLS_Abrir = 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xXLS_Abrir = 1 xResp_O=.T. CASE xXLS_Abrir = 2 xResp_O=.F. CASE xXLS_Abrir = 3 xResp_O=.F. ENDCASE IF xResp_O THEN IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT RELEASE x ENDIF DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow LOCAL xPLAA, xPLAT xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") xPLAT = JUSTPATH(xPlanilla_Final) xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) IF xerror<=32 =Mensaje_s("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) ENDIF ELSE IF xXLS_Abrir = 3 * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF ENDIF IF xlibros=1 THEN x.DisplayAlerts=.F. x.QUIT ELSE ***************************************************************************************************************************************************** ***************************************************************************************************************************************************** ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* x.workbooks(xlibros).close x.VISIBLE=.T. ENDIF ENDIF RELEASE x EXIT ENDDO IF USED(xAlias) SELECT (xAlias) USE ENDIF THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE exportar_xls_cell LPARAMETERS xParametros AS exportaciones_parametros OF "imp_exp.vcx" xParametros = oDeyFunc.chk_value(xParametros,THIS.exportaciones_parametros,"O") THIS.f_xls.parametros=xParametros LOCAL xoEstado_Propio xoEstado_Propio=THIS.oestado_chequear() IF xoEstado_Propio THEN oEstado.MAX=6 ENDIF *=sys_mostrar_screen("Exportar_CELL", .t.) LOCAL xPlanilla_Final,xPlanilla_Nombre, xAnexar_Archivo, xAnexar_Planilla, xOK, x xPlanilla_Final='' xAnexar_Archivo='' xAnexar_Planilla='' **** PreSelecciona la Planilla a abrir THIS.f_xls.preseleccion_planillas(@xParametros, @xPlanilla_Final, @xAnexar_Archivo, @xAnexar_Planilla) xPlanilla_Nombre=xParametros.ex_Titulo_Hoja xPlanilla='' xOtra_Planilla='' **** Selecciona la Planilla a abrir =THIS.f_xls.Plantilla_Seleccion(@xPlanilla, @xOtra_Planilla, xPlanilla_Final) =oEstado.Avance("Creando planilla de Excel...") **** Copio la plantilla, abro el EXCEL y el XLS xOK=.T. x=.F. TRY =THIS.f_xls.Abriendo_Archivos_Excel(@xPlanilla, @xPlanilla_Final, @x) CATCH xOK=.F. ENDTRY LOCAL xACTSheet AS Excel.Worksheet LOCAL xACTSheetL AS Excel.Worksheet LOCAL xMacroTOT DO WHILE xOK x.VISIBLE=.F. x.DisplayAlerts=.F. xlibros=x.workbooks.COUNT xACTSheet=x.workbooks(xlibros).sheets(xOtra_Planilla) xACTSheet.ACTIVATE this.f_xls.Cel_Exportar_Coll(xActSheet, xParametros.cel_rango) IF NOT EMPTY(xPlanilla_Nombre) THEN TRY xACTSheet.NAME=xPlanilla_Nombre CATCH ENDTRY ENDIF xResp_O=.T. DO CASE CASE xParametros.ex_xls_abrir= 0 xResp_O=(MESSAGEBOX("Abre el archivo en el Excel ?",4)=6) CASE xParametros.ex_xls_abrir = 1 xResp_O=.T. CASE xParametros.ex_xls_abrir = 2 xResp_O=.F. CASE xParametros.ex_xls_abrir = 3 xResp_O=.F. ENDCASE LOCAL xACWB AS Excel.workbook xACWB=x.ActiveWorkbook xACWB.SAVE IF xAnexar_Planilla THEN =oEstado.Avance("Anexando...") THIS.f_xls.Anexar_Planilla(xAnexar_Archivo,xACWB,x) xPlanilla_Final=xAnexar_Archivo ENDIF * =sys_mostrar_screen("Exportar_CELL - CERRAR", .t.) x.ScreenUpdating = .T. x.DisplayAlerts=.T. IF xResp_O THEN * =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 3", .T.) * Ya viene abierta, solo la visibilizo x.visible=.t. DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(x.HWnd) *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT>1 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* ENDIF *!* ENDIF *!* DECLARE LONG ShellExecute ; *!* IN SHELL32.DLL ; *!* INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; *!* STRING cParameters, STRING cDirectory, INTEGER nShowWindow *!* LOCAL xPLAA, xPLAT *!* xPLAA = FORCEEXT(JUSTSTEM(xPlanilla_Final),"xls") *!* xPLAT = JUSTPATH(xPlanilla_Final) *!* xerror=ShellExecute( 0, "open", xPLAA, "", xPLAT , 1) *!* IF xerror<=32 *!* IF p_dev THEN *!* DEBUG *!* SUSPEND *!* ELSE *!* =Mensaje("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) *!* ENDIF *!* ENDIF ELSE * IF xXLS_Abrir = 3 if xParametros.ex_xls_abrir=3 && Ojo !!! Lo correg yo (Guille) * A dnde lo copio ? LOCAL xcopia xcopia=GETFIL("xls","Archivo","Aceptar") IF NOT EMPTY(xcopia) COPY FILE (xPlanilla_Final) TO (xcopia) ENDIF endif * Tengo que cerrarla *!* IF xlibros=1 THEN *!* IF x.workbooks.COUNT=0 THEN *!* x.DisplayAlerts=.F. *!* x.QUIT *!* RELEASE x *!* ELSE *!* =sys_mostrar_screen("Excel QUIT CON LIBROS ABIERTOS 4", .T.) *!* ENDIF * Un solo libro, salgo completamente if x.workbooks.count>1 *=sys_mostrar_screen("Excel. Incongruencia entre xlibros y x.workbooks.count !!!", .T.) * Por si acaso dejo el excel abierto y cierro el libro, ya est guardado xACWB.Close x.DisplayAlerts = .T. x.ScreenUpdating = .T. x.DisplayAlerts=.T. x.VISIBLE=.T. else x.activeworkbook.close x.DisplayAlerts = .f. x.Quit && = .T. endif *!* ELSE *!* ***************************************************************************************************************************************************** *!* ***************************************************************************************************************************************************** *!* ** Si no cerras el libro usando siempre x en vez de la API tenes que cerrar *!* ** el libro al no querer verlo y veamos el resto de los libros abiertos *!* *!* x.workbooks(xlibros).close *!* * Para mi hay que poner esto *!* x.ActiveWorkbook.Close *!* * Hay ms de un libro, visibilizo to lo que haba *!* x.DisplayAlerts = .T. *!* x.ScreenUpdating = .T. *!* x.DisplayAlerts=.T. *!* x.VISIBLE=.T. *!* ENDIF ENDIF RELEASE x EXIT ENDDO THIS.oestado_quitar (xoEstado_Propio) RETURN ENDPROC PROCEDURE set_displayalert LPARAMETERS xValor LOCAL xOK TRY xExcelApp=GETOBJECT(,'excel.application') xExcelApp.DisplayAlerts=xValor xOK=.t. CATCH TO oOBJ xOK=.f. ENDTRY RETURN xOK ENDPROC PROCEDURE Init SET CLASSLIB TO Clases addi SET CLASSLIB TO imp_exp ADDITIVE This.f_xls=NEWOBJECT("exportaciones_XLS","imp_exp") This.f_ods=NEWOBJECT("exportaciones_ODS","imp_exp") This.Parametros_coll=CREATEOBJECT("Collection") this.archivo_salida_renombra=(p_xls_solo_renombra_desde_crystal=0) ENDPROC |"||gn %q{rU"CQEXPORTACIONES_PARAMETROS imp_exp.vcxQINTEGER TC%~TG+(Dey_FuncTC O T T T $QEXCEL.APPLICATION T T T T T T%C PreEstadoTTTa   ] (Y( U%TC (!k T"#(C%"$'%CxCamposArr(nIt,1)bC%C#T"#  T"#'%CxCamposArr(nIt,3)bLfT#-'%CxCamposArr(nIt,4)bLT#-'%CxCamposArr(nIt,5)bCT#%SUMAR g%C#6T#%SUMAR c#T#CC#fT# =0$%&'()*T+,T$-%CC$աT(C./$   T($T&ReportesT'0 T1 T2 T3T 44 C123 5 T) T6T78T9:T;<T%= T> T?TC@ TABTCBTDETFGCEntrada THIJKL TaHG M1 *TC(&'REP_XLS N(O-CP T- MG% bB-C)>1 Q,CCreando planilla de Excel...R C)1 S(T@SCError: TUC Line: CCTVZC TWC TXR T-CCreada excel...R1YQEXCEL.WorksheetZQEXCEL.Worksheet/[QEXCEL.Workbook\QEXCEL.Workbook]+"T^-T_-T`abT[C`aTYC>[c Yd/CProcesando el encabezamiento...R CY?A e%C7 TYf7 %?H )  M >%CoParametros.ex_tabla_filtrobC Cg U Cg(H k THCN%H (T\C&6? h  (T\C&6? i M) T\C? jTHk/T@CC? 8 C? 86!TC@C 6T@C?G"TC@zC 6TlH ~  MX >%CoParametros.ex_tabla_filtrobC Cg > Cg( T TCN M~ Tk% T1C1xlsxC13[m [nT[C1aoTYC>[cC1xls/\cpA2:lCCZqrTrCAYs CrtT_-C-\nT_a&CAjustando Columnas ...R T?;TuCC 8C@C 8 63TuuC@CCGCG6 YvA:uwx%ATYsy%YsAz [cz"[csz#(?'%CxCamposArr(nIt,6)bO@T{C--CA#Ys|:C--CA#Ys|T}C#CC{Yp}~ %9 ; (TCreando separaciones ... F&#) T Ta T T ~CT%dTC9%C9  ?% TATYzCC#(?%C#D TC--CC#Ys|TC--C#Ys|TC#YsH! C#%SUMAR$T=Sum(:)" C#%CONTAR0&T=COUNT(:)# C#%CONTARAz'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:) 2%T]CC#?CCZxFormula=&xMacroTOT TTaC{TTT0T# C# +C--|T TAYzCTTYzT- qYzC--tYz !TYsyC; TYsaTCATC9 T-% TTAYzCC#(?u%C#D qTC--CC#Ys|TC--C#Ys|TC#YsHe! C#%SUMAR$T=Sum(:)" C#%CONTAR&T=COUNT(:)# C#%CONTARA<'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:) 2%T]CC#?CCZxFormula=&xMacroTOT TTaC=TTT0T# C# +C--|T,CCreando totales generales...R#(?%C#F TC#YsTC# TTaCTTT YdYsz ,CCreando totales generales...R#(?%C#F TC--C#Ys|&TC--C#Ys|TC#YsH:! C#%SUMAR$T=Sum(:)" C#%CONTAR&T=COUNT(:)# C#%CONTARAh'T=COUNTA(:)* C#%CONTAR.BLANCOS+T =COUNTBLANK(:)" CC#='=%T]CC#?CCZxFormula=&xMacroTOT 2:TC# TTaCTTT YdYsz%dQ EXCEL.NAME$TCCYf _-_BTCCCAYsCA?YsYp%YYCY QEXCEL.workbookT%"cd!T]C?CCAZT]!T]C?CCAZT]  KT CC \TC. %T C =%CC fCCfG%CC 0'T C C8C El archivo CC  no existe !!!B-"(P*(CL)%CCH8(CCD1TCCC ! (C @F%CxParametros.ex_cr_archivos[w]bCC  <T C\C % T C/C ,% CC >  8T CC \TC. %sT C =%CC fCCf4%CC 0<T C 08C El archivo CC  no existe !!!B-U XPARAMETROSCRSUBREPORTOBJECTXTHIS CRREPORTEDATABASETABLESCOUNTRPTNAMELOCATIONWEX_CR_ARCHIVOSDIRBARFRMNAMEPOINTPOSMENSAJEZSECTIONSY REPORTOBJECTSKIND OPENSUBREPORT$ %/B(TC3%C ex_XLS_AbrirbN TH CC CCBaU EX_XLS_ABRIRNITXPARTHISPARAMETROS_COLLCOUNTEX_ENTRADA_TIPO EXPORTAR_XLSEXPORTAR_XLS_CELL#4QEXPORTACIONES_PARAMETROS imp_exp.vcx TC%oTG+(Dey_FuncTC O T  QEXCEL.Application T T T T TTa    (( %TC( T(C%}'%CxCamposArr(nIt,1)bC^%CZT yT'%CxCamposArr(nIt,3)bLT-'%CxCamposArr(nIt,4)bLT-'%CxCamposArr(nIt,5)bCKT%SUMAR %CT%SUMAR #TCCfT =0 !"#$T%&TC'%CNT"C() e T"T ReportesT!* T#T$C+%C$T,C()+ T,+T,C,xls T-T./T$C0%C$jT1C()0 T10T1C1xlsT23 C0 T45T67T8 T9 T:T;< T= T>T?@TAB TCDEFG T a *T C" !REP_XLS H(ICJ T -% B-C#9 K,CCreando planilla de Excel...L eC#, M(N~ T -OQEXCEL.WorksheetPQEXCEL.Worksheet+ TQCRSTOCRT/CProcesando el encabezamiento...LT UCO: V%C.  {TOW. %: $C -: X>%Cxparametros.ex_tabla_filtrobC CY  CY(C + TCCN/T@CC: 8 C: 86!TC@C 6T@C:G"TC@zC 6TZ+[Q\]A1^<[Q\]A2:ZCCCZ^<[Q\]A2:ZCCCZ_ T`C OaO]A4^ Ob[Qc-&CAjustando Columnas ...L T:;TdCC 8C@C 8 63TddC@CCGCG6 OeA:dfgTOhiOh^[Q\^'[Q\]A1^(: '%CxCamposArr(nIt,6)bO @TjC--C=Ohk:C--C=`OhkTlCCCjO]lm %4 6 ,(TnCreando separaciones ... F #) To Tpa Tq Tr ~Trr%po TsC4%sC4 p ~%p Tqo=rTtqOuqv^CwxCwx(:%C? TyC--C>OhkTzC--CqOhkT{CqOhHd! C%SUMAR$T|=Sum(y:z)" C%CONTAR;&T|=COUNT(y:z) 2dxFormula=&xCamposArr(nIt,5) T{}|T{~aC{TTT0T C +C--{kToo  Tqo=rOuqv^CwxTtqTooOuqv^T- wOuqv^ ObOuqv^ w!TOhtiC6 TOht~aT>=roTsC4 Tp-%p TrrTqo=rOuqv^CwxCwx(:%C? TyC--C>OhkTzC--CqOhkT{CqOhHZ! C%SUMAR$T|=Sum(y:z)" C%CONTAR1&T|=COUNT(y:z) 2ZxFormula=&xCamposArr(nIt,5) T{}|T{~aC{TTT0T C +C--{kToo,CCreando totales generales...L(:%CA T{CqOhT|C T{}|T{~aC{TTTOh^ L,CCreando totales generales...L(:/%CA +TyC--COhk&TzC--C`OhkT{C`OhH ! C%SUMARO$T|=Sum(y:z)" C%CONTAR&T|=COUNT(y:z) 2 xFormula=&xCamposArr(nIt,10) T{}|T{~aC{'TTTOh^%Q EXCEL.Name$TCCOW _-_BTCCC=OhC=`:OhO]%OuOuCO TTCQ[ 0 then lnSaveError = this.nlastapierror endif this.CryptHashData(lhCryptHashHandle, picPassword , len(picPassword),0) if this.nlastapierror <> 0 then lnSaveError = this.nlastapierror endif this.CryptDeriveKey(; pihProviderHandle, ; dnCALG_RC2, ; lhCryptHashHandle, ; dnCRYPT_EXPORTABLE, ; @pihCryptKeyHandle) if this.nlastapierror <> 0 then lnSaveError = this.nlastapierror endif this.CryptDestroyHash(lhCryptHashHandle) if this.nlastapierror = 0 then this.nlastapierror = lnSaveError endif Case picType == dcS this.CryptCreateHash(pihProviderHandle,dnCALG_MD5,0,0,@lhCryptHashHandle) if this.nlastapierror <> 0 then lnSaveError = this.nlastapierror endif This.CryptHashData(lhCryptHashHandle, picPassword, len(picPassword), 0) if this.nlastapierror <> 0 then lnSaveError = this.nlastapierror endif this.CryptDeriveKey(; pihProviderHandle, ; dnCALG_RC4, ; lhCryptHashHandle, ; dnCRYPT_EXPORTABLE, ; @pihCryptKeyHandle) if this.nlastapierror <> 0 then lnSaveError = this.nlastapierror endif this.CryptDestroyHash(lhCryptHashHandle) if this.nlastapierror = 0 then this.nlastapierror = lnSaveError endif Case picType == dcBR this.CryptGenKey( ; pihProviderHandle, ; dnCALG_RC2, ; dnCRYPT_EXPORTABLE, ; @pihCryptKeyHandle) Case picType == dcSR this.CryptGenKey(; pihProviderHandle, ; dnCALG_RC4, ; dnCRYPT_EXPORTABLE, ; @pihCryptKeyHandle) Endcase Return ENDPROC PROCEDURE cryptencrypt Lparameter pihKeyHandle, pihHashKeyHandle, pinFinal, ; pinFlags, ptcData, ptcDataLen, pinMaxDataLen *** pihKeyHandle - Handle of Key Objcet, *** Returned by CryptGenKey() or CryptImportKey() *** pihHashKeyHandle - 0 if no hash is to be done, else *** Handle of Hash Object, Returned by CryptCreateHash() *** pinFinal - -1 (True) if last block, 0 (False) if not the last block to decrypt *** pinFlags - Optional: CRYPT_OAEP when Enhanced and RSA Encryption *** for PKCS #1 version 2 formatting *** ptcData - in: Data String to be Encrypted; out: Encrypted data *** ptcDataLen - in: Length of pcData to Encrypt; out: length of Encrypted data *** Encoded as a 4 character string (use - BinToStr(n,4) to create *** use - StrToBin(c) to read) *** pinMaxDataLen - Length of pcData buffer (Block Encryption Requires extra buffer space *** by as much as 1 Block Length *** Return - Decrypted Data via Left(pcData,lnDataLenLen) *** Used to Encrypt and Simultaneously Hash (Optional:pnHashKey) the Data *** for use by the CryptGetHashParam() or CryptSignHash() signature Local lnError lnError = CryptEncrypt( ; pihKeyHandle, ; pihHashKeyHandle, ; pinFinal, ; pinFlags, ; @ptcData, ; @ptcDataLen, ; pinMaxDataLen) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return left(ptcData,this.strtobin(ptcDataLen)) ENDPROC PROCEDURE decryptstr Lparameter picData, pihKeyHandle, pilLastString *** picData - Data to be Decrypted *** pihKeyHandle - Handle to Decryption Key (Type determine Block or Stream) *** pilLastString - .T. when this is the last string to decrypt *** Returns - Decrypted String *** Wrapper to decrypt a string Local lcDataLen lcDataLen = this.BinToStr(len(picData),4) Return this.CryptDecrypt( ; pihKeyHandle, ; 0, ; iif(pilLastString,-1,0), ; 0, ; picData, ; lcDataLen) ENDPROC PROCEDURE cryptdecrypt Lparameter pihKeyHandle, pihHashKeyHandle, pinFinal, ; pinFlags, ptcData, ptcDataLen *** pihKeyHandle - Handle of Key Objcet, *** Returned by CryptGenKey() or CryptImportKey() *** pihHashKeyHandle - 0 if no hash is to be done, else *** Handle of Hash Object Returned by CryptCreateHash() *** pinFinal - -1 (True) if last block, *** 0 (False) if not the last block to decrypt *** pinFlags - Optional: CRYPT_OAEP when Enhanced and RSA Decryption *** for PKCS #1 version 2 formatting *** ptcData - in: Data String to be Decrypted; out: decrypted data *** ptcDataLen - in: Length of pcData to decrypt; out: length of decrypted data *** Encoded as a 4 character string (use - BinToStr(n,4) to create *** use - StrToBin(c) to read) *** Return - Decrypted Data via Left(pcData,lnDataLenLen) *** Used to Decrypt and Simultaneously Hash (Optional:pnHashKey) the Decrypted Data to Verify it's *** signature Local lnError lnError = CryptDecrypt( ; pihKeyHandle, ; pihHashKeyHandle, ; pinFinal, ; pinFlags, ; @ptcData, ; @ptcDataLen) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return left(ptcData,this.StrToBin(ptcDataLen)) ENDPROC PROCEDURE cryptgetkeyparam Lparameter pihKeyHandle, pinParam, ptcData, ; ptcDataLen, pinFlags *** pihKeyHandle - Handle of Key Objcet, *** Returned by CryptGenKey() or CryptImportKey() *** pinParam - Parameter to Retrieve(defined in wincrypt.h) *** --- All Keys Support --- *** dnKP_IV Initialization vector *** dnKP_SALT Salt value *** dnKP_PADDING Padding values *** dnKP_MODE Mode of the cipher *** dnKP_MODE_BITS Number of bits to feedback *** dnKP_PERMISSIONS Key permissions DWORD *** dnKP_ALGID Key algorithm *** dnKP_BLOCKLEN Block size of the cipher *** --- pihKeyHandle is DSS Key BLOB Pointer --- *** dnKP_P Prime Modulus from DSS Key BLOB *** dnKP_Q Prime Q from DSS Key BLOB *** dnKP_G Generator from DSS Key BLOB *** --- pihKeyHandle is Block Session Key Pointer --- *** dnKP_IV Initialization vector *** dnKP_SALT Salt value *** dnKP_PADDING Padding values *** dnKP_MODE Mode of the cipher *** dnKP_MODE_BITS Number of bits to feedback *** dnKP_PERMISSIONS Key permissions DWORD *** dnKP_ALGID Key algorithm *** dnKP_BLOCKLEN Block size of the cipher *** ptcData - in: Buffer String; out:Parameter String *** ptcDataLen - in: Length of ptcData Buffer; *** out: length of Parameter String *** Encoded as a 4 character string (use - BinToStr(n,4) to create *** use - StrToBin(c) to read) *** Return - Requested Parameter as a String Value *** Used to return a Parameter from the CSP that pihKeyHandle points to Local lnError lnError = CryptGetKeyParam( ; pihKeyHandle, ; pinParam, ; @ptcData, ; @ptcDataLen, ; pinFlags) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return left(ptcData,this.StrToBin(ptcDataLen)) ENDPROC PROCEDURE cryptdestroykey Lparameter pihKeyHandle *** pihKeyHandle - Handle of CSP Key returned by CryptAcquireContext() *** Return - .T. *** Destroys the Key Container Pointer where the encrypt/decrypt key was located *** This is suggested for Security Reasons *** Many CSP's also scrub the key before removing the handle. This function is *** not required to scrub the container, just to destroy the pointer. Local lnError lnError = cryptdestroykey(pihKeyHandle) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif return ENDPROC PROCEDURE releasecryptkeyhandle LPARAMETER pihKeyHandle *** pihKeyHandle - Handle to the Key structure to destroy *** Returns - .T. (Logical) *** Releases the memory where the key structure was stored. *** Most Cryptographic Service Providers Scramble the Structure Contents *** as well as freeing it up. This is done so that another program can't query *** looking for keys that are left laying around. this.cryptdestroykey(pihKeyHandle) ENDPROC PROCEDURE apierror LPARAMETER picProgram LOCAL lnError, lcErrorMessage *** picProgram - Progrm/User Defined Message String *** that Initiated the Call *** Returns - .T. *** *** Displays the last Windows error using the Windows API *** lnError = this.getlasterror() lcErrorMessage = this.SystemMessage(lnError) if this.lDisplayLowLevelApiErrors then messagebox(dcErrorIn+picProgram+chr(13)+chr(10)+ ; dcErrorSeverity+alltrim(str(this.GetLastApiErrorSeverity(),10))+chr(13)+chr(10)+ ; dcErrorFacility+alltrim(str(this.GetLastApiErrorFacility(),10))+chr(13)+chr(10)+ ; dcErrorCode+alltrim(str(this.GetLastApiErrorCode(),10))+chr(13)+chr(10)+ ; lcErrorMessage+chr(13)+chr(10), ; 16, ; dcError) endif ENDPROC PROCEDURE systemmessage LPARAMETER pinError *** pinError - Windows API Error Number *** returns - Formated Windows API Error Message String *** Sets flags and calls for Windows API Format Message which *** Returns the Windows Error Message associated *** with the Windows Error Number Input *** return this.FormatMessage(BITOR(FORMAT_MESSAGE_FROM_SYSTEM, ; FORMAT_MESSAGE_IGNORE_INSERTS) , ; pinError) ENDPROC PROCEDURE formatmessage Lparameter pinFlags, pinMessageNum *** pinFlags - Windows API defined flags for Format Message *** pinMessageNum - Windows API Message Number *** Returns - Formated Message String Associated *** with the Message Number that was input *** *** Windows API call to FormatMessage *** Returns the Windows String Text Assocaited with *** the Windows Message Number that a Windows API *** returns, formated based on the flags that were passed to it. *** currently does not support C like printf() ability *** Local lcMessage, lcNull lcMessage = space(256) lcNull = dcEmpty lnMessageLen = FormatMessage( ; pinFlags, ; @lcNull, ; pinMessageNum, ; 0, ; @lcMessage, ; 256, ; @lcNull) Return left(lcMessage,lnMessageLen) ENDPROC PROCEDURE cryptdestroyhash Lparameter pihHashKeyHandle *** pihHashKeyHandle - Handle of Hashed Key returned by CryptCreateHash() *** Return - .T. *** Destroys the Hashed Key Pointer where the hashed crypt key was located *** This is suggested for Security Reasons *** Many CSP's also scrub the key before removing the handle. This function is *** not required to scrub the container, just to destroy the pointer. Local lnError lnError = cryptdestroyhash(pihHashKeyHandle) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif return ENDPROC PROCEDURE cryptgetprovparam Lparameter pihKeyHandle, pinParam, ptcData, ; ptcDataLen, pinFlags *** pihKeyHandle - Handle of Key Objcet, *** Returned by CryptGenKey() or CryptImportKey() *** pinParam - Parameter to Retrieve(defined in wincrypt.h) *** dnPP_ENUMALGS *** dnPP_ENUMCONTAINERS *** dnPP_IMPTYPE *** dnPP_NAME *** dnPP_VERSION *** dnPP_CONTAINER *** PP_SIG_KEYSIZE_INC *** PP_KEYX_KEYSIZE_INC *** PP_ENUMALGS_EX *** PP_KEYSET_SEC_DESCR *** PP_UNIQUE_CONTAINER *** PP_PROVTYPE *** PP_USE_HARDWARE_RNG *** ptcData - in: Buffer String; out:Parameter String *** ptcDataLen - in: Length of ptcData Buffer; *** out: length of Parameter String *** Encoded as a 4 character string (use - BinToStr(n,4) to create *** use - StrToBin(c) to read) *** Return - Requested Parameter as a String Value *** Used to return a Parameter from the CSP that pihKeyHandle points to Local lnError lnError = CryptGetProvParam( ; pihKeyHandle, ; pinParam, ; @ptcData, ; @ptcDataLen, ; pinFlags) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return left(ptcData,this.StrToBin(ptnDataLen)) ENDPROC PROCEDURE getcryptblocklength LPARAMETER pihKeyHandle *** pihKeyHandle - Handle of Key Objcet, *** Returned by CryptGenKey() or CryptImportKey() *** Return - Length of an encryption block for the current key *** Used to return a Parameter from a Crypt Key Local lnParamLen, lnReturn Local lcParam, lcParamLen lnReturn = 0 lnParamLen = 4 lcParam = space(lnParamLen) lcParamLen = this.BinToStr(lnParamLen,4) lcParam = this.CryptGetKeyParam( ; pihKeyHandle, ; dnKP_BLOCKLEN, ; lcParam, ; lcParamLen, ; 0) return this.StrToBin(lcParam) ENDPROC PROCEDURE strtobin LPARAMETER picInput *** picInput - Integer encoded into a character string *** Left most Character is least significant *** Right most character is most significant *** return - Integer represented by character string *** Converts Integer encoded Character String into an Integer LOCAL lnreturn, lnCounter lnReturn = 0 for lnCounter = 1 to len(picInput) lnReturn = lnReturn + bitlshift(asc(substr(picInput,lnCounter,1)),bitlshift((lnCounter-1),3)) endfor return lnReturn ENDPROC PROCEDURE bintostr LPARAMETER pinInput, pinStringLen *** pinInput - Integer to be encoded into a character string *** return - Integer represented by character string *** Left most Character is least significant *** Right most character is most significant *** Converts an Integer into a Character String LOCAL lnreturn, lnCounter lcReturn = dcEmpty for lnCounter = 1 to pinStringLen lcReturn = lcReturn + chr(bitand(bitrshift(pinInput,bitlshift((lnCounter-1),3)),255)) endfor return lcReturn ENDPROC PROCEDURE getcryptuserkeyhandle LPARAMETER pihProviderHandle, pihUserKey, pinKeySpec *** pihProvHandle - Handle of CSP *** pinKeySpec - Type of a User Key to Generate *** Returns Handle to the User Key of Specified Type this.CryptGetUserKey( ; pihProviderHandle, ; pinKeySpec, ; @pihUserKey ; ) Return ENDPROC PROCEDURE cryptimportkey Lparameter pihProviderHandle, picBlob, pinBlobLen, pihImpKeyHandle, pinFlags, pthKeyHandle *** pihProviderHandle - Handle of the CSP *** @picBlob - Encrypted Blob *** pinBlobLen - Length of Encrypted Blob *** pihImpKeyHandle - Handle of a Crypt Key to use to decrypt this key *** Usually this is the private key of the this Computer *** pinFlags - (defined in wincrypt.h) *** CRYPT_DESTROYKEY - destroy OPAQUEKEYBLOB key in CSP *** CRYPT_SSL2_FALLBACK - *** CRYPT_OAEP - when Enhanced and RSA Encryption *** for PKCS #1 version 2 formatting *** pthKeyHandle - Handle of the Key to Be Exported *** Returns - Sesion Key Handle *** Imports a crypto key by Decrypting a Key Blob and converting it into a key Handle Local lnError Local lcKeyHandle lcKeyHandle = this.BinToStr(pthKeyHandle,4) lnError = CryptImportKey( ; pihProviderHandle, ; @picBlob, ; pinBlobLen, ; pihImpKeyHandle, ; pinFlags, ; @lcKeyHandle ; ) pthKeyHandle = this.StrToBin(lcKeyHandle) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return ENDPROC PROCEDURE getlastapierror *** Returns the last error from the last crypto API call return this.nlastapierror ENDPROC PROCEDURE getlastapierrorfacility *** Returns the facility code of the last error from the last crypto API call *** FACILITY_NULL 0 *** FACILITY_RPC 1 *** FACILITY_DISPATCH 2 *** FACILITY_STORAGE 3 *** FACILITY_ITF 4 *** FACILITY_WIN32 7 *** FACILITY_WINDOWS 8 *** FACILITY_SSPI 9 *** FACILITY_CONTROL 10 *** FACILITY_CERT 11 *** FACILITY_INTERNET 12 *** FACILITY_MEDIASERVER 13 *** FACILITY_MSMQ 14 *** FACILITY_SETUPAPI 15 return bitand(bitrshift(this.nlastapierror,16),0xFFF) ENDPROC PROCEDURE getlastapierrorseverity *** Returns the severity code of the last error from the last crypto API call *** 00 - Success *** 01 - Informational *** 10 - Warning *** 11 - Error return bitrshift(this.nlastapierror,30) ENDPROC PROCEDURE getlastapierrorcode *** Returns the code of the last error from the last crypto API call return bitand(this.nlastapierror,0xFFFF) ENDPROC PROCEDURE getlastapierrorcustomercodeflag *** Returns the severity code of the last error from the last crypto API call *** 00 - Windows Code *** 01 - Customer Code return bitand(bitrshift(this.nlastapierror,29),1) ENDPROC PROCEDURE cryptreleasecontext LPARAMETER pihProviderHandle *** pihContextHandle - Handle of CSP to Release *** Release a CSP Handle and Frees up Memory Reserved by it CryptReleaseContext(pihProviderHandle,0) Return ENDPROC PROCEDURE cryptsignhash Lparameter pihHashKeyHandle, pinKeyType, pinFlags *** pihHashKeyHandle - Handle of Hash Object, Returned by CryptCreateHash() *** pinKeyType - Private Key to Sign with (usually AT_SIGNATURE) *** pinFlags - Flags (See Crypto API Documentation) *** by as much as 1 Block Length *** Returned - Signed String in picSignature *** Used to Sign a Hash for storage as a signanture. Local lnError, lnSignatureLen Local lcDescription, lcSignature, lcSingatureLen *** lcDescription - No Longer used, set to NULL lcDescription = dcEmpty lcSignature = dcEmpty lcSignatureLen = this.BinToStr(0,4) * Get the Signature Length lnError = CryptSignHash( ; pihHashKeyHandle, ; pinKeyType, ; @lcDescription, ; pinFlags, ; @lcSignature, ; @lcSignatureLen ; ) *** Do not check for error, since More Data Needed may result from 0 length lcSignature = space(this.StrToBin(lcSignatureLen)) lnError = CryptSignHash( ; pihHashKeyHandle, ; pinKeyType, ; @lcDescription, ; pinFlags, ; @lcSignature, ; @lcSignatureLen ; ) if lnError = 0 then this.nlastapierror = getlasterror() this.apierror(program()) else this.nlastapierror = 0 endif Return lcSignature ENDPROC PROCEDURE cryptverifysignature Lparameter pihHashKeyHandle, picSignature, pihPublicKeyHandle, pinFlags *** pihHashKeyHandle - Handle of Hash Object, Returned by CryptCreateHash() *** picSignature - Signature String to Verify *** pihPublicKeyHandle - Handle of Public Signature Key *** pinFlags - Flags (See Crypto API Documentation) *** Returns - .T. if verified, .F. if not verified or a different error occured *** Used to Verify a Signature Local lnError, lnSignatureLen lnSignatureLen = len(picSignature) lnError = CryptVerifySignature( ; pihHashKeyHandle, ; @picSignature, ; lnSignatureLen, ; pihPublicKeyHandle, ; dcEmpty, ; pinFlags ; ) if lnError = 0 then * Signature did not verify or a different error occured. * Error Number for NTE_BAD_SIGNATURE 0x80090006 * getlasterror() returns a signed number and 0x??????? is unsigned, * getlasterror() and 0x???? cannot be compared with an = * compare with bitxor() this.nlastapierror = getlasterror() this.apierror(program()) Return .F. else * Signature Verified this.nlastapierror = 0 Return .T. endif ENDPROC PROCEDURE createrandomcryptkeys LPARAMETER picContainerName, picProviderName, pinProviderType * pihProviderHandle - Handle of CSP * picContainerName - Name of Container to Create (NULL is Default) * picProviderName - Name of CSP Provider (NULL is Default) * pihProviderType - MS Windows Defnied CSP provider Type * Returns - .T. Success, .F. Error ** Creates a Key Container in the CSP Provider local lnError, lhUserKey, lhProviderHandle lhProviderHandle = 0 lhUserKey = 0 * Create New Key Container lnError = CryptAcquireContext(@lhProviderHandle,picContainerName,picProviderName,pinProviderType,dnCRYPT_NEWKEYSET) if lnError = 0 then do case * Test for Key Containter Already Exists (This is an OK Condition) case bitxor(getlasterror(),0x8009000F)=0 this.nlastapierror = 0 * Open Context Normally lnError = CryptAcquireContext(@lhProviderHandle,picContainerName,picProviderName,pinProviderType,0) if lnError = 0 this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTPROVTYP_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) return .F. endif * Test for Service Provider Not Defined Error case bitxor(getlasterror(),0x80090017)=0 this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTPROVTYP_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) return .F. * Any Other Error otherwise this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTINITIALIZE_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) return .F. endcase else this.nlastapierror = 0 endif * Try to Retrieve Signature Key lnError = CryptGetUserKey(lhProviderHandle,dnAT_SIGNATURE,@lhUserKey) if lnError = 0 then * Test for NTE_NO_KEY if bitxor(getlasterror(),0x8009000D)=0 then * (Attempt to Create a Key) lnError = CryptGenKey(lhProviderHandle,dnAT_SIGNATURE,0,@lhUserKey) if lnError = 0 then this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTSIGGENKEY_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) this.CryptReleaseContext(lhProviderHandle) return .F. else this.nlastapierror = 0 endif else this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTSIGGETKEY_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) this.CryptReleaseContext(lhProviderHandle) return .F. endif else this.nlastapierror = 0 endif lnError = CryptDestroyKey(lhUserKey) * Try to Retrieve Exchange Key lnError = CryptGetUserKey(lhProviderHandle,dnAT_KEYEXCHANGE,@lhUserKey) if lnError = 0 then * Test for NTE_NO_KEY if bitxor(getlasterror(),0x8009000D)=0 then * (Attempt to Create a Key) lnError = CryptGenKey(lhProviderHandle,dnAT_KEYEXCHANGE,0,@lhUserKey) if lnError = 0 then this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTEXCGENKEY_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) this.CryptReleaseContext(lhProviderHandle) return .F. else this.nlastapierror = 0 endif else this.nlastapierror = getlasterror() if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTEXCGETKEY_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.apierror(program()) this.CryptReleaseContext(lhProviderHandle) return .F. endif else this.nlastapierror = 0 endif lnError = CryptDestroyKey(lhUserKey) this.CryptReleaseContext(lhProviderHandle) this.lIsInstalled = .T. return .T. ENDPROC PROCEDURE apideclarations *** Declare Parameter Types and Location *** of the Windows API Crypt Functions *** See Crypto API Documentation for Information on Calls Declare INTEGER CryptAcquireContextA ; IN WIN32API AS CryptAcquireContext ; INTEGER @hProvHandle, ; STRING cContainer, ; STRING cProvider, ; INTEGER nProvType, ; INTEGER nFlags Declare INTEGER CryptCreateHash ; IN WIN32API AS CryptCreateHash ; INTEGER hProviderHandle, ; INTEGER nALG_ID, ; INTEGER hKeyhandle, ; INTEGER nFlags, ; INTEGER @hCryptHashHandle Declare INTEGER CryptDeriveKey ; IN WIN32API AS CryptDeriveKey ; INTEGER hProviderHandle, ; INTEGER nALG_ID, ; INTEGER hBaseDataHandle, ; INTEGER nFlags, ; INTEGER @hCryptKeyHandle Declare INTEGER CryptDecrypt ; IN WIN32API as CryptDecrypt ; INTEGER hKeyHandle, ; INTEGER hHashHandle, ; SHORT nFinished, ; INTEGER nFlags, ; STRING @cData, ; STRING @nDataLen && Pointer to DWORD INTEGER Declare INTEGER CryptDestroyKey ; IN WIN32API AS CryptDestroyKey; INTEGER hKeyHandle Declare INTEGER CryptDestroyHash ; IN WIN32API AS CryptDestroyHash; INTEGER hKeyHandle Declare INTEGER CryptEncrypt ; IN WIN32API as CryptEncrypt ; INTEGER hKeyHandle, ; INTEGER hHashHandle, ; SHORT nFinished, ; INTEGER nFlags, ; STRING @cData, ; STRING @cDataLen, ; && Pointer to DWORD value INTEGER nBufLen Declare INTEGER CryptExportKey ; IN WIN32API AS CryptExportKey ; INTEGER hKey, ; INTEGER hExpKey, ; INTEGER nBlobType, ; INTEGER nFlags, ; STRING @lcData, ; STRING @lcDataLen && Pointer to DWORD INTEGER Declare INTEGER CryptGenKey ; IN WIN32API AS CryptGenKey ; INTEGER hProviderHandle, ; INTEGER nALG_ID, ; INTEGER nFlags, ; INTEGER @hCryptKeyHandle Declare INTEGER CryptGetUserKey ; IN WIN32API AS CryptGetUserKey; INTEGER hProvHandle, ; INTEGER nKeySpec, ; INTEGER @hUserKey Declare INTEGER CryptGetKeyParam ; IN WIN32API as CryptGetKeyParam ; INTEGER hKeyHandle, ; INTEGER nParam, ; STRING @cData, ; STRING @nDataLen, ; && Pointer to DWORD INTEGER INTEGER nFlags Declare INTEGER CryptGetProvParam ; IN WIN32API as CryptGetProvParam ; INTEGER hKeyHandle, ; INTEGER nParam, ; STRING @cData, ; STRING @nDataLen, ; && Pointer to DWROD INTEGER INTEGER nFlags Declare INTEGER CryptHashData ; IN WIN32API AS CryptHashData ; INTEGER hHashHandle, ; STRING @cData, ; INTEGER nDataLen, ; INTEGER nFlags Declare INTEGER CryptImportKey ; IN WIN32API AS CryptImportKey ; INTEGER hProviderHandle, ; STRING @cEncryptedBlob, ; INTEGER nEncryptedBlobLen, ; INTEGER hDecryptionKeyHandle, ; INTEGER nFlags, ; STRING @cImportKeyHandle Declare INTEGER CryptReleaseContext ; IN WIN32API AS CryptReleaseContext ; INTEGER hProvHandle, ; INTEGER nReserved Declare INTEGER CryptSignHash ; IN WIN32API AS CryptSignHash ; INTEGER hHashKeyHandle, ; INTEGER nKeyType, ; STRING @cDescription, ; INTEGER inFlags, ; STRING @cSignature, ; STRING @cSignatureLen && Pointer to DWROD INTEGER Declare INTEGER CryptVerifySignature ; IN WIN32API AS CryptVerifySignature ; INTEGER hHashKeyHandle, ; STRING @cSignature, ; INTEGER nSignatureLen, ; INTEGER inPublicKeyHandle, ; STRING @cDescription, ; INTEGER inFlags Declare INTEGER GetLastError ; in win32api as GetLastError Declare INTEGER FindWindow ; IN WIN32API ; STRING cNull, ; STRING cWinName Declare INTEGER FormatMessage ; IN WIN32API ; INTEGER nFlags, ; STRING @cSource, ; INTEGER nMessageId, ; INTEGER nLanguageId, ; STRING @cMessage, ; INTEGER nMessageLen, ; STRING @cArgum ENDPROC PROCEDURE apisetup LOCAL lhProviderHandle, lcProviderName, lcContainerName *** Create Handle to Crypto Provider If type('this.cProviderName') != T_CHARACTER then this.cProviderName = dcEmpty && Default EndIf lcProviderName = this.cProviderName If type('this.cContainerName') != T_CHARACTER then this.cContainerName = dcFOXPRO_APP && Default EndIf lcContainerName = this.cContainerName lhProviderHandle = 0 if !this.CreateRandomCryptKeys(lcContainerName,lcProviderName,dnPROV_RSA_FULL) return .F. endif this.CryptAcquireContext(@lhProviderHandle,lcContainerName,lcProviderName,dnPROV_RSA_FULL,0) this.hProviderHandle = lhProviderHandle Return .T. ENDPROC PROCEDURE decryptsessionblockfile LPARAMETER pcEncryptedFileName, pcPassword, pcDecryptedFileName *** pcEncryptedFileName - File Path and Name of file with Encrypted Contents *** pcPassword - Password *** pcDecryptedFileName - File Path and Name of file to Create with Decrypted Contents *** Returns .T. - Successful *** .F. - Error LOCAL lhKeyHandle, lhExportKeyHandle, lhEncryptedFileHandle, lhDecryptedFileHandle LOCAL lnYN, lnBytesWritten, lnKeyLength, lnBlockReadSize, lnCryptBlockLen LOCAL lcEncryptedSessionKey, lcEncryptedText, lcTestLength this.lDoubleDecryptError = .F. if (empty(pcEncryptedFileName) or empty(pcEncryptedFileName) or empty(pcPassword)) and this.ldisplayhighlevelapierrors if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileParameter_ERR_LOC) endif return .F. endif lhEncryptedFileHandle = fopen(alltrim(pcEncryptedFileName)) if lhEncryptedFileHandle = -1 and this.ldisplayhighlevelapierrors then if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileNoFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif if file(alltrim(pcDecryptedFileName)) if this.ldisplayhighlevelapierrors then lnYN =messagebox(dcDecryptSessionFileExists_ERR_LOC, MB_APPLMODAL + MB_YESNO + MB_ICONQUESTION, dcFileExists) if lnYN = IDNo then fclose(lhEncryptedFileHandle) return .F. endif endif endif lhDecryptedFileHandle = fcreate(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileCreate_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif fclose(lhEncryptedFileHandle) return .F. endif lhKeyHandle = 0 lhExchangeKeyHandle = 0 this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle, dcB,rtrim(pcPassword)) if lhKeyHandle <> 0 then *** Get Block Length for this Encryption Key lnCryptBlockLen = this.GetCryptBlockLength(lhKeyHandle) lnBlockReadSize = 1024 - mod(1024,lnCryptBlockLen) *** See what encryption Length would be for an ecrypted block of this size lcTestLength = space(lnBlockReadSize) lnBlockReadSize = len(this.EncryptStrBlock(lcTestLength, lhKeyHandle, .F.)) fseek(lhEncryptedFileHandle,0,0) do while !feof(lhEncryptedFileHandle) lcEncryptedText = fread(lhEncryptedFileHandle,lnBlockReadSize) lnBytesWritten = fwrite(lhDecryptedFileHandle,this.DecryptStr(lcEncryptedText, lhKeyHandle, feof(lhEncryptedFileHandle))) if this.GetLastApiError() <> 0 or lnBytesWritten = 0 then if this.GetLastApiError() = this.DoubleDecryptError() this.lDoubleDecryptError = .T. else if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileWrite_ERR_LOC) endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .F. endif enddo if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileComplete_LOC, MB_OK, dcCompleted) endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .T. ENDPROC PROCEDURE decryptsessionblockstring LPARAMETERS pcEncryptedString, pcPassword, pcDecryptedString *** pcEncryptedString - String to Decrypt *** pcPassword - Password *** pcDecryptedString - Decrypted String *** Returns .T. - Ok *** .F. - Error LOCAL lhKeyHandle, lhExchangeKeyHandle LOCAL lcSaveText, lcReturn, llOk lhKeyHandle = 0 lhExchangeKeyHandle = 0 llOk = .F. this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle,dcB,rtrim(pcPassword)) if lhKeyHandle <> 0 then if len(pcEncryptedString) > 0 then lcSaveText = this.DecryptStr(pcEncryptedString, lhKeyHandle, .T.) if this.GetLastApiError() = 0 then pcDecryptedString = lcSaveText llOk = .T. else if this.GetLastApiError() = this.DoubleDecryptError() this.lDoubleDecryptError = .T. endif endif endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif return llOk ENDPROC PROCEDURE decryptsessionstreamfile LParameter pcEncryptedFileName, pcPassword, pcDecryptedFileName *** pcEncryptedFileName - File Path and Name of file to Decrypt *** pcPassword - Password *** pcDecryptedFileName - File Path and Name of file to Place Decrypted Contents Into *** Returns .T. - Successful *** .F. - Error LOCAL lhKeyHandle, lhExportKeyHandle, lhEncryptedFileHandle, lhDecryptedFileHandle LOCAL lnYN, lnBytesWritten, lnKeyLength LOCAL lcEncryptedSessionKey, lcEncryptedText if empty(pcEncryptedFileName) or empty(pcEncryptedFileName) or empty(pcPassword) if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileParameter_ERR_LOC) endif return .F. endif lhEncryptedFileHandle = fopen(alltrim(pcEncryptedFileName)) if lhEncryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileNoFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif if file(alltrim(pcDecryptedFileName)) if this.ldisplayhighlevelapierrors then lnYN =messagebox(dcDecryptSessionFileExists_ERR_LOC, MB_APPLMODAL + MB_YESNO + MB_ICONQUESTION, dcFileExists) if lnYN = IDNo then fclose(lhEncryptedFileHandle) return .F. endif endif endif lhDecryptedFileHandle = fcreate(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileCreate_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif fclose(lhEncryptedFileHandle) return .F. endif lhKeyHandle = 0 lhExchangeKeyHandle = 0 this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle, dcS,rtrim(pcPassword)) if lhKeyHandle <> 0 then fseek(lhEncryptedFileHandle,0,0) do while !feof(lhEncryptedFileHandle) lcEncryptedText = fread(lhEncryptedFileHandle,1024) lnBytesWritten = fwrite(lhDecryptedFileHandle,this.DecryptStr(lcEncryptedText, lhKeyHandle, feof(lhEncryptedFileHandle))) if this.GetLastApiError() <> 0 or lnBytesWritten = 0 then if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileWrite_ERR_LOC) endif this.ReleaseCryptKeyHandle(lhKeyHandle) fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .F. endif enddo if this.ldisplayhighlevelapierrors then messagebox(dcDecryptSessionFileComplete_LOC, MB_OK, dcCompleted) endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .T. ENDPROC PROCEDURE decryptsessionstreamstring LPARAMETERS pcEncryptedString, pcPassword, pcDecryptedString *** pcEncryptedString - String to Decrypt *** pcPassword - Password *** Returns != '' - Decrypton of pcEncryptedString *** == '' - Error LOCAL lhKeyHandle, lhExchangeKeyHandle lhKeyHandle = 0 lhExchangeKeyHandle = 0 this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle, dcS,rtrim(pcPassword)) if lhKeyHandle <> 0 then if len(pcEncryptedString) > 0 then lcSaveText = this.DecryptStr(pcEncryptedString, lhKeyHandle, .T.) if this.GetLastApiError() = 0 then pcDecryptedString = lcSaveText else pcDecryptedString = dcEmpty this.ReleaseCryptKeyHandle(lhKeyHandle) return .F. endif else pcDecryptedString = dcEmpty this.ReleaseCryptKeyHandle(lhKeyHandle) return .F. endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif return .T. ENDPROC PROCEDURE encryptsessionblockfile LPARAMETER pcDecryptedFileName, pcPassword, pcEncryptedFileName *** pcDecryptedFileName - File Path and Name of file with Decrypted Contents *** pcPassword - Password *** pcEncryptedFileName - File Path and Name of file to Create with Encrypted Contents *** Returns .T. - Successful *** .F. - Error LOCAL lhKeyHandle, lhExportKeyHandle, lhEncryptedFileHandle, lhDecryptedFileHandle LOCAL lnYN, lnBytesWritten, lnCryptBlockLen, lnBlockReadSize LOCAL lcEncryptedSessionKey, lcDecryptedText if empty(pcDecryptedFileName) or empty(pcEncryptedFileName) or empty(pcPassword) if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileParameter_ERR_LOC) endif return .F. endif lhDecryptedFileHandle = fopen(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileNoFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif if file(alltrim(pcEncryptedFileName)) if this.ldisplayhighlevelapierrors then lnYN =messagebox(dcEncryptSessionFileExists_ERR_LOC, MB_APPLMODAL + MB_YESNO + MB_ICONQUESTION, dcFileExists) if lnYN = IDNo then fclose(lhDecryptedFileHandle) return .F. endif endif endif lhEncryptedFileHandle = fcreate(alltrim(pcEncryptedFileName)) if lhEncryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileCreate_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif fclose(lhDecryptedFileHandle) return .F. endif lhKeyHandle = 0 lhExchangeKeyHandle = 0 lcEncryptedSessionKey = dcEmpty this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle,dcB,rtrim(pcPassword)) if lhKeyHandle <> 0 then *** Get Block Length for this Encryption Key lnCryptBlockLen = this.GetCryptBlockLength(lhKeyHandle) lnBlockReadSize = 1024 - mod(1024,lnCryptBlockLen) fseek(lhDecryptedFileHandle,0,0) do while !feof(lhDecryptedFileHandle) lcDecryptedText = fread(lhDecryptedFileHandle,lnBlockReadSize) lnBytesWritten = fwrite(lhEncryptedFileHandle,this.EncryptStrBlock(lcDecryptedText, lhKeyHandle, feof(lhDecryptedFileHandle))) if this.GetLastApiError() <> 0 or lnBytesWritten = 0 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileWrite_ERR_LOC) endif this.ReleaseCryptKeyHandle(lhKeyHandle) fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .F. endif enddo if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileComplete_LOC, MB_OK, dcCompleted) endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .T. ENDPROC PROCEDURE encryptsessionblockstring LPARAMETERS pcDecryptedString, pcPassword, pcEncryptedString *** pcDecryptedString - String to Encrypt *** pcEncryptedString - Reference to String to Hold Encrypted Value *** pcPassword - Password *** Returns != '' - Encryption of pcDecryptedString *** == '' - Error LOCAL lhKeyHandle, lhExchangeKeyHandle LOCAL llOk, lcSaveString lhKeyHandle = 0 lhExchangeKeyHandle = 0 llOk = .F. this.lDoubleEncryptError = .F. this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle,dcB,rtrim(pcPassword)) if lhKeyHandle <> 0 then if len(pcDecryptedString) > 0 then lcSaveString = this.EncryptStrBlock(pcDecryptedString, lhKeyHandle, .T.) if this.GetLastApiError() = 0 then pcEncryptedString = lcSaveString llOk = .T. else if this.GetLastApiError() = this.DoubleEncryptError() this.lDoubleEncryptError = .T. endif endif endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif return llOk ENDPROC PROCEDURE encryptsessionstreamfile LPARAMETER pcDecryptedFileName, pcPassword, pcEncryptedFileName *** pcDecryptedFileName - File Path and Name of file with Decrypted Contents *** pcPassword - Password *** pcEncryptedFileName - File Path and Name of file to Create with Encrypted Contents *** Returns .T. - Successful *** .F. - Error LOCAL lhKeyHandle, lhExportKeyHandle, lhEncryptedFileHandle, lhDecryptedFileHandle LOCAL lnYN, lnBytesWritten LOCAL lcEncryptedSessionKey, lcDecryptedText if empty(pcDecryptedFileName) or empty(pcEncryptedFileName) or empty(pcPassword) if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileParameter_ERR_LOC) endif return .F. endif lhDecryptedFileHandle = fopen(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileNoFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif if file(alltrim(pcEncryptedFileName)) if this.ldisplayhighlevelapierrors then lnYN =messagebox(dcEncryptSessionFileExists_ERR_LOC, MB_APPLMODAL + MB_YESNO + MB_ICONQUESTION, dcFileExists) if lnYN = IDNo then fclose(lhDecryptedFileHandle) return .F. endif endif endif lhEncryptedFileHandle = fcreate(alltrim(pcEncryptedFileName)) if lhEncryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileCreate_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif fclose(lhDecryptedFileHandle) return .F. endif lhKeyHandle = 0 lhExchangeKeyHandle = 0 lcEncryptedSessionKey = dcEmpty this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle, dcS,rtrim(pcPassword)) if lhKeyHandle <> 0 then fseek(lhDecryptedFileHandle,0,0) do while !feof(lhDecryptedFileHandle) lcDecryptedText = fread(lhDecryptedFileHandle,1024) lnBytesWritten = fwrite(lhEncryptedFileHandle,this.EncryptStrStream(lcDecryptedText, lhKeyHandle, feof(lhDecryptedFileHandle))) if this.GetLastApiError() <> 0 or lnBytesWritten = 0 then if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileWrite_ERR_LOC) endif this.ReleaseCryptKeyHandle(lhKeyHandle) fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .F. endif enddo if this.ldisplayhighlevelapierrors then messagebox(dcEncryptSessionFileComplete_LOC, MB_OK, dcCompleted) endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif fclose(lhDecryptedFileHandle) fclose(lhEncryptedFileHandle) return .T. ENDPROC PROCEDURE encryptsessionstreamstring LPARAMETERS pcDecryptedString, pcPassword, pcEncryptedString *** pcDecryptedString - String to Encrypt *** pcPassword - Password *** pcEncryptedString - Refrence to a String to hold the Encrypted String Value *** Returns != '' - Encryption of pcDecryptedString *** == '' - Error LOCAL lhKeyHandle, lhExportKeyHandle LOCAL lcEncryptedSessionKey, llOk, lcSaveString lhKeyHandle = 0 lhExchangeKeyHandle = 0 lcEncryptedSessionKey = dcEmpty llOk = .F. this.GetCryptSessionKeyHandle(this.hProviderHandle,@lhKeyHandle,dcS,rtrim(pcPassword)) if lhKeyHandle <> 0 then if len(pcDecryptedString) > 0 then lcSaveString = this.EncryptStrStream(pcDecryptedString, lhKeyHandle, .T.) if this.GetLastApiError() = 0 then pcEncryptedString = lcSaveString llOk = .T. endif endif this.ReleaseCryptKeyHandle(lhKeyHandle) endif return llOk ENDPROC PROCEDURE signfile LPARAMETERS pcDecryptedFileName, pcSignature, pcSignaturePublicKey *** pcDecryptedFileName - File name to Create an Encrypted Signature for *** pcSignature - Reference to a Signature String *** pcSignaturePublicKey - Reference to a Signature Public Key String *** Return Signature in pcSignature *** Signature PublicKey in pcSignaturePublicKey *** .T. - Success *** .F. - Failure *** Create a Signature for the given file. Local lhHashHandle, lnError, lnYN, lhSignFileHandle, lhDecryptedFileHandle, lnBytesWritten, lhKey Local lcInput, lcSignature, lcDecrytedText if empty(pcDecryptedFileName) if this.ldisplayhighlevelapierrors then messagebox(dcSignFileParamter_ERR_LOC) endif return .F. endif lhDecryptedFileHandle = fopen(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcSignFileDecryptedFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif lhHashHandle = 0 this.CryptCreateHash(this.hProviderHandle,dnCALG_MD5,0,0,@lhHashHandle) if this.GetLastApiError() <> 0 then if this.ldisplayhighlevelapierrors then messagebox (dcSignFileHashObject_ERR_LOC) endif fclose(lhDecryptedFileHandle) return .F. endif do while !feof(lhDecryptedFileHandle) lcDecryptedText = fread(lhDecryptedFileHandle,1024) this.CryptHashData(lhHashHandle, lcDecryptedText, len(lcDecryptedText), 0) if this.GetLastApiError() <> 0 then if this.ldisplayhighlevelapierrors then messagebox (dcSignFileHashing_ERR_LOC) endif this.CryptDestroyHash(lhHashHandle) fclose(lhDecryptedFileHandle) return .F. endif enddo lcSignature = this.CryptSignHash(lhHashHandle, dnAT_SIGNATURE, 0) if this.GetLastApiError() <> 0 if this.ldisplayhighlevelapierrors then messagebox (ErrorSigningData) endif this.CryptDestroyHash(lhHashHandle) fclose(lhDecryptedFileHandle) return .F. endif pcSignature = lcSignature this.CryptDestroyHash(lhHashHandle) this.ExportSignaturePublicKey(@pcSignaturePublicKey) fclose(lhDecryptedFileHandle) return .T. ENDPROC PROCEDURE encryptstrstream Lparameter picData, pihKeyHandle, pilLastString *** picData - Data to be Encrypted *** pihKeyHandle - Handle to Encryption Key (Type determines Block or Stream) *** pilLastString - Last String to Encrypt with this Key *** Returns - Encrypted String *** Wrapper to encrypt a string Local lnDataLen LOCAL lcDataLen lnDataLen = len(picData) lcDataLen = this.BinToStr(lnDataLen,4) Return this.CryptEncrypt( ; pihKeyHandle, ; 0, ; iif(pilLastString,-1,0), ; 0, ; @picData, ; @lcDataLen, ; lnDataLen) ENDPROC PROCEDURE encryptstrblock Lparameter picData, pihKeyHandle, pilLastString *** picData - Data to be Encrypted *** pihKeyHandle - Handle to Encryption Key (Type determines Block or Stream) *** pilLastString - Last String to Encrypt with this Key *** Returns - Encrypted String *** Wrapper to encrypt a string Local lnDataLen, lnMaxLen LOCAL lcDataLen, lcEmptySpace lnDataLen = len(picData) lcDataLen = this.BinToStr(lnDataLen,4) *** The following is needed, Just in case a stream key is passed *** When called with a Stream pihKeyHandle, this routine encrypts the *** EmptySpace string even though maxlen = 0 *** Leaving this out would corrupt memory and result in a GPF lcEmptySpace = space(lnDataLen) CryptEncrypt( ; pihKeyHandle, ; 0, ; -1, ; 0, ; @lcEmptySpace, ; @lcDataLen, ; 0) *** Do not check lnError since more data is available error will result from this call *** on a block, when the data length is shorter (Not a multiple of the block length) lnMaxLen = this.strtobin(lcDataLen) * ReSet lcDataLen, since last cryptencrypt call changed it lcDataLen = this.BinToStr(lnDataLen,4) picData = picData + space(lnMaxLen - lnDataLen) Return this.CryptEncrypt( ; pihKeyHandle, ; 0, ; iif(pilLastString,-1,0), ; 0, ; picData, ; lcDataLen, ; lnMaxLen) ENDPROC PROCEDURE doubleencrypterror *** Convert 0x80090012 to two's complement return -1 * ( bitxor(0x80090012,0xffffffff) + 1 ) ENDPROC PROCEDURE getdoubleencrypterror return this.lDoubleEncryptError ENDPROC PROCEDURE getdoubledecrypterror return this.lDoubleDecryptError ENDPROC PROCEDURE doubledecrypterror *** Convert 0x80090005 to two's complement return -1 * ( bitxor(0x80090005,0xffffffff) + 1 ) ENDPROC PROCEDURE getisinstalled return this.lIsInstalled ENDPROC PROCEDURE usekeycontanier LParameter pcContainerName *** Change Key Container Currently in Use LOCAL lhProviderHandle this.cContainerName = pcContainerName this.CryptReleaseContext(this.hProviderHandle) lnError = this.CryptAcquireContext(@lhProviderHandle,pcContainerName,this.cProviderName,dnPROV_RSA_FULL,0) If lnError = 0 this.hProviderHandle = 0 if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTUSEKEYCONTAINER_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.nlastapierror = getlasterror() this.apierror(program()) return .F. else this.nlastapierror = 0 this.hProviderHandle = lhProviderHandle endif return .T. ENDPROC PROCEDURE createnewkeycontainer LPARAMETER pcContainerName *** Creates a new Key Container and Makes it the Container Currently in Use LOCAL lnError, lhProviderHandle lhProviderHandle = 0 this.cContainerName = pcContainerName lnError = this.CryptAcquireContext(@lhProviderHandle,pcContainerName,this.cProviderName,dnPROV_RSA_FULL,dnCRYPT_NEWKEYSET) If lnError = 0 this.hProviderHandle = 0 if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTNEWKEYCONTAINER_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.nlastapierror = getlasterror() this.apierror(program()) return .F. else this.nlastapierror = 0 this.hProviderHandle = lhProviderHandle endif return .T. ENDPROC PROCEDURE deletekeycontainer LPARAMETER pcContainer *** pcContainer - Container Name of the Key Container to Delete *** Deletes a Key Container and *** Releases the Provider Handle when the Container to Delete is the one currently in use LOCAL lhProviderHandle lhProviderHandle = 0 if this.cContainerName = pcContainer then this.CryptReleaseContext(this.hProviderHandle) this.hProviderHandle = 0 endif lnError = this.CryptAcquireContext(@lhProviderHandle,pcContainerName,this.cProviderName,dnPROV_RSA_FULL,dnCRYPT_DELETEKEYSET) if lnError = 0 if this.lDisplayLowLevelApiErrors messagebox(dcCRYPTDELETEKEYCONTAINER_ERR_LOC,MB_APPLMODAL+MB_ICONEXCLAMATION+MB_OK,dcError) endif this.nlastapierror = getlasterror() this.apierror(program()) return .F. else this.nlastapierror = 0 endif return .T. ENDPROC PROCEDURE exportexchangepublickey LPARAMETER pcPublicKey LOCAL lcPublicKey, lhExchangeKey lhExchangeKey = 0 lcPublicKey = dcEmpty if !this.cryptgetuserkey(this.hProviderHandle,dnAT_KEYEXCHANGE,@lhExchangeKey) return .F. endif if !this.cryptexportkey(lhExchangeKey,0,dnPUBLICKEYBLOB,0,@lcPublicKey) return .F. endif pcPublicKey = lcPublicKey return .T. ENDPROC PROCEDURE exportsignaturepublickey LPARAMETER pcPublicKey LOCAL lcPublicKey, lhSignatureKey lhSignatureKey = 0 lcPublicKey = dcEmpty if !this.cryptgetuserkey(this.hProviderHandle,dnAT_SIGNATURE,@lhSignatureKey) return .F. endif if !this.cryptexportkey(lhSignatureKey,0,dnPUBLICKEYBLOB,0,@lcPublicKey) return .F. endif pcPublicKey = lcPublicKey return .T. ENDPROC PROCEDURE importpublickey LPARAMETERS pcPublicKey, phPublicKeyHandle *** pcPublicKey - Public Key to Import *** phPublicKeyHandle - Reference to a Handle, in which the Public Key is Returned *** Returns - Public Key Handle in phPublicKeyHandle *** .T. - Success *** .F. - Failure LOCAL lhPublicKeyHandle, lnError lhPublicKeyHandle = 0 if !this.CryptImportKey(this.hProviderHandle, pcPublicKey, len(pcPublicKey), 0, 0, @lhPublicKeyHandle) Return .F. endif phPublicKeyHandle = lhPublicKeyHandle Return .T. ENDPROC PROCEDURE exportsignaturepairkeys LPARAMETER pcPassword, pcPairKey *** pcPassword - Password for Encryption of Exported Key *** pcPairKey - Reference String to pass Encrypted Key back to caller *** Return .T. - Success *** .F. - Failure LOCAL lcPairKey, lhHash, lhEncryptKey, lhExchangeKey, lhSignatureKey lhHash = 0 lhExchangeKey = 0 lhSignatureKey = 0 lhEncryptKey = 0 lcPairKey = dcEmpty if !this.cryptcreatehash(this.hProviderHandle, dnCALG_MD5, 0, 0, @lhHash) return .F. endif if !this.crypthashdata(lhHash, pcPassword, len(pcPassword), 0) return .F. endif if !this.cryptderivekey(this.hProviderHandle, dnCALG_RC2, lhHash, dnCRYPT_EXPORTABLE, @lhEncryptKey) return .F. endif if !this.cryptgetuserkey(this.hProviderHandle, dnAT_KEYEXCHANGE, @lhExchangeKey) return .F. endif if !this.cryptgetuserkey(this.hProviderHandle, dnAT_SIGNATURE, @lhSignatureKey) return .F. endif if !this.cryptexportkey(lhSignatureKey ,lhEncryptKey, dnPRIVATEKEYBLOB, 0, @lcPairKey) return .F. endif pcPairKey = lcPairKey return .T. ENDPROC PROCEDURE exportexchangepairkeys LPARAMETER pcPassword, pcPairKey *** pcPassword - Password for Encryption of Exported Key *** pcPairKey - Reference String to pass Encrypted Key back to caller *** Return .T. - Success *** .F. - Failure LOCAL lcPairKey, lhHash, lhEncryptKey, lhExchangeKey, lhExchangeKey lhHash = 0 lhExchangeKey = 0 lhexchangeKey = 0 lhEncryptKey = 0 lcPairKey = dcEmpty if !this.cryptcreatehash(this.hProviderHandle, dnCALG_MD5, 0, 0, @lhHash) return .F. endif if !this.crypthashdata(lhHash, pcPassword, len(pcPassword), 0) return .F. endif if !this.cryptderivekey(this.hProviderHandle, dnCALG_RC2, lhHash, dnCRYPT_EXPORTABLE, @lhEncryptKey) return .F. endif if !this.cryptgetuserkey(this.hProviderHandle, dnAT_KEYEXCHANGE, @lhExchangeKey) return .F. endif if !this.cryptgetuserkey(this.hProviderHandle, dnAT_KEYEXCHANGE, @lhExchangeKey) return .F. endif if !this.cryptexportkey(lhExchangeKey ,lhEncryptKey, dnPRIVATEKEYBLOB, 0, @lcPairKey) return .F. endif pcPairKey = lcPairKey return .T. ENDPROC PROCEDURE exportsessionkey LPARAMETER pcPassword, pcSessionKey *** pcPassword - Password for Encryption of Exported Key *** pcSessionKey - Reference String to pass Encrypted Key back to caller *** Return .T. - Success *** .F. - Failure *** Exports a session key encrypted with the Exchange Private Key of the Current Key Container LOCAL lcPairKey, lhHash, lhEncryptKey, lhExchangeKey lhHash = 0 lhExchangeKey = 0 lhEncryptKey = 0 lcPairKey = dcEmpty if !this.cryptcreatehash(this.hProviderHandle, dnCALG_MD5, 0, 0, @lhHash) return .F. endif if !this.crypthashdata(lhHash, pcPassword, len(pcPassword), 0) return .F. endif if !this.cryptderivekey(this.hProviderHandle, dnCALG_RC2, lhHash, dnCRYPT_EXPORTABLE, @lhEncryptKey) return .F. endif if !this.cryptgetuserkey(this.hProviderHandle, dnAT_KEYEXCHANGE, @lhExchangeKey) return .F. endif if !this.cryptexportkey(lhEncryptKey ,lhExchangeKey, dnSIMPLEBLOB, 0, @lcPairKey) return .F. endif pcSessionKey = lcPairKey return .T. ENDPROC PROCEDURE verifyfilesignature LPARAMETERS pcDecryptedFileName, pcSignature, pcSignaturePublicKey, plVerified *** pcDecryptedFileName - File name to Create an Encrypted Signature for *** pcSignature - Signature String *** pcSignaturePublicKey - Public Key String *** plVerified - Reference to Verification Logical *** Return Signature in pcSignature *** Signature PublicKey in pcSignaturePublicKey *** .T. - Success *** .F. - Failure *** Logical Variable to Return Verification Information Local lhHashHandle, lnError, lnYN, lhSignFileHandle, lhDecryptedFileHandle, lnBytesWritten, lhPublicKey Local lcInput, lcSignature, lcDecrytedText if empty(pcDecryptedFileName) if this.ldisplayhighlevelapierrors then messagebox(dcSignFileParamter_ERR_LOC) endif return .F. endif lhDecryptedFileHandle = fopen(alltrim(pcDecryptedFileName)) if lhDecryptedFileHandle = -1 then if this.ldisplayhighlevelapierrors then messagebox(dcSignFileDecryptedFile_ERR_LOC,MB_ICONEXCLAMATION + MB_APPLMODAL + MB_OK) endif return .F. endif lhHashHandle = 0 this.CryptCreateHash(this.hProviderHandle,dnCALG_MD5,0,0,@lhHashHandle) if this.GetLastApiError() <> 0 then if this.ldisplayhighlevelapierrors then messagebox (dcSignFileHashObject_ERR_LOC) endif fclose(lhDecryptedFileHandle) return .F. endif do while !feof(lhDecryptedFileHandle) lcDecryptedText = fread(lhDecryptedFileHandle,1024) this.CryptHashData(lhHashHandle, lcDecryptedText, len(lcDecryptedText), 0) if this.GetLastApiError() <> 0 then if this.ldisplayhighlevelapierrors then messagebox (dcSignFileHashing_ERR_LOC) endif this.CryptDestroyHash(lhHashHandle) fclose(lhDecryptedFileHandle) return .F. endif enddo lhPublicKey = 0 this.ImportPublicKey(pcSignaturePublicKey, @lhPublicKey) if this.CryptVerifySignature(lhHashHandle, pcSignature, lhPublicKey, 0) this.CryptDestroyHash(lhHashHandle) fclose(lhDecryptedFileHandle) plVerified = .T. else this.CryptDestroyHash(lhHashHandle) fclose(lhDecryptedFileHandle) return .F. endif return .T. ENDPROC PROCEDURE Init * this.ldisplaylowlevelapierrors = .T. this.ApiDeclarations && Declare API Functions this.ApiSetup && Create CSP Handle for use with this class ENDPROC \ wincrypt.hv1@c:\program files (x86)\microsoft visual foxpro advanced\foxpro.h~ 1"zz?%sQazU"TC%sTC CCt TBU PIHPROVHANDLE PICCONTAINER PICPROVIDER PINPROVTYPEPINFLAGSLNERRORCRYPTACQUIRECONTEXTTHIS NLASTAPIERROR GETLASTERRORAPIERROR TC%nTCCCt B- TBaU PIHPROVHANDLE PINKEYSPECPOHUSERKEYHANDLE LNUSERKEYLNERRORCRYPTGETUSERKEYTHIS NLASTAPIERROR GETLASTERRORAPIERRORTC%kTCCCt TBU PIHPROVHANDLE PINALG_IDPINFLAGSPIHCRYPTKEYHANDLELNERROR CRYPTGENKEYTHIS NLASTAPIERROR GETLASTERRORAPIERROR  TC T"C TCC X&TC %T CCCt B- T  TBaU PIHKEYHANDLEPIHEXPKEYHANDLE PINBLOBTYPEPINFLAGS POKEYSTRINGLCDATALNERRORLCLEN LCEMPTYSTRINGTHISBINTOSTRCRYPTEXPORTKEYSTRTOBIN NLASTAPIERROR GETLASTERRORAPIERROR BCU GETLASTERROR"TC%sTC CCt TBU PIHPROVHANDLE PINALG_IDPIHBASEDATAHANDLEPINFLAGSPIHCRYPTKEYHANDLELNERRORCRYPTDERIVEKEYTHIS NLASTAPIERROR GETLASTERRORAPIERROR"TC%sTC CCt TBU PIHPROVHANDLE PINALG_ID PIHKEYHANDLEPINFLAGSPIHCRYPTHASHHANDLELNERRORCRYPTCREATEHASHTHIS NLASTAPIERROR GETLASTERRORAPIERRORTC%kTCCCt TBU PIHHASHKEYHANDLEPICDATA PINDATALENPINFLAGSLNERROR CRYPTHASHDATATHIS NLASTAPIERROR GETLASTERRORAPIERROR# (% B,S,BR,SR  %RCCtC must be called with parameter picType = 'B' or 'S' or 'BR' or 'SR'x B T TH B70CCCC % PT CC> % T 7CCCC C   % T C % 3T  S0CCCC % T CC> % T 7CCCC C   % IT C % T  BR3CCCC C    SR3CCCC C   BUPIHPROVIDERHANDLEPIHCRYPTKEYHANDLEPICTYPE PICPASSWORDLHCRYPTHASHHANDLE LNSAVEERRORTHISLDISPLAYHIGHLEVELAPIERRORSCRYPTCREATEHASH NLASTAPIERROR CRYPTHASHDATACRYPTDERIVEKEYCRYPTDESTROYHASH CRYPTGENKEY*TC%T C CCt T BCC =U PIHKEYHANDLEPIHHASHKEYHANDLEPINFINALPINFLAGSPTCDATA PTCDATALEN PINMAXDATALENLNERROR CRYPTENCRYPTTHIS NLASTAPIERROR GETLASTERRORAPIERRORSTRTOBINcTCC>1BCC6UPICDATA PIHKEYHANDLE PILLASTSTRING LCDATALENTHISBINTOSTR CRYPTDECRYPT&TC%{T C CCt T BCC =U PIHKEYHANDLEPIHHASHKEYHANDLEPINFINALPINFLAGSPTCDATA PTCDATALENLNERROR CRYPTDECRYPTTHIS NLASTAPIERROR GETLASTERRORAPIERRORSTRTOBIN"TC%sTC CCt TBCC =U PIHKEYHANDLEPINPARAMPTCDATA PTCDATALENPINFLAGSLNERRORCRYPTGETKEYPARAMTHIS NLASTAPIERROR GETLASTERRORAPIERRORSTRTOBINxTC%STCCCt mTBU PIHKEYHANDLELNERRORCRYPTDESTROYKEYTHIS NLASTAPIERROR GETLASTERRORAPIERRORCU PIHKEYHANDLETHISCRYPTDESTROYKEY! TCTC%C Error in C C Error Severity - CCC ZC C Error Facility - CCC ZC C Error Facility - CCC  ZC C C C ERRORxU PICPROGRAMLNERRORLCERRORMESSAGETHIS GETLASTERROR SYSTEMMESSAGELDISPLAYLOWLEVELAPIERRORSGETLASTAPIERRORSEVERITYGETLASTAPIERRORFACILITYGETLASTAPIERRORCODE$BCCUPINERRORTHIS FORMATMESSAGEFORMAT_MESSAGE_FROM_SYSTEMFORMAT_MESSAGE_IGNORE_INSERTSm  TCX T)TCBC=UPINFLAGS PINMESSAGENUM LCMESSAGELCNULL LNMESSAGELEN FORMATMESSAGExTC%STCCCt mTBUPIHHASHKEYHANDLELNERRORCRYPTDESTROYHASHTHIS NLASTAPIERROR GETLASTERRORAPIERROR"TC%sTC CCt TBCC  =U PIHKEYHANDLEPINPARAMPTCDATA PTCDATALENPINFLAGSLNERRORCRYPTGETPROVPARAMTHIS NLASTAPIERROR GETLASTERRORAPIERRORSTRTOBIN PTNDATALEN   T TTCXTC#TCBCU PIHKEYHANDLE LNPARAMLENLNRETURNLCPARAM LCPARAMLENTHISBINTOSTRCRYPTGETKEYPARAMSTRTOBINv  T(C>f,TCCC\C BUPICINPUTLNRETURN LNCOUNTERv   T(f*TCCCC  BUPININPUT PINSTRINGLENLNRETURN LNCOUNTERLCRETURN/CBUPIHPROVIDERHANDLE PIHUSERKEY PINKEYSPECTHISCRYPTGETUSERKEYTC &TC TC %T C CCt T BUPIHPROVIDERHANDLEPICBLOB PINBLOBLENPIHIMPKEYHANDLEPINFLAGS PTHKEYHANDLELNERROR LCKEYHANDLETHISBINTOSTRCRYPTIMPORTKEYSTRTOBIN NLASTAPIERROR GETLASTERRORAPIERROR BUTHIS NLASTAPIERRORBCCUTHIS NLASTAPIERRORBCUTHIS NLASTAPIERRORBCUTHIS NLASTAPIERRORBCCUTHIS NLASTAPIERRORCBUPIHPROVIDERHANDLECRYPTRELEASECONTEXT  T TTC &TC TCC X&TC %T CCCt   T  BUPIHHASHKEYHANDLE PINKEYTYPEPINFLAGSLNERRORLNSIGNATURELEN LCDESCRIPTION LCSIGNATURELCSINGATURELENLCSIGNATURELENTHISBINTOSTR CRYPTSIGNHASHSTRTOBIN NLASTAPIERROR GETLASTERRORAPIERROR TC>%TC%TC CCt B- TBaU PIHHASHKEYHANDLE PICSIGNATUREPIHPUBLICKEYHANDLEPINFLAGSLNERRORLNSIGNATURELENCRYPTVERIFYSIGNATURETHIS NLASTAPIERROR GETLASTERRORAPIERROR0 T T!TC%H}" CC  AlT !TC%hT C% NHC1Crypt Service Provider Not Installed or Not Found0ERRORxCCt B-" CC  AT C% HC1Crypt Service Provider Not Installed or Not Found0ERRORxCCt B- 2T C% ?C(Crypt Service Provider Failed to Acquire0ERRORxCCt B- T TC %"%CC  ATC %T C% YCBCrypt Service Provider Failed to Create an Signature Key Container0ERRORxCCt CB- T  T C% YCBCrypt Service Provider Failed to Return an Signature Key Container0ERRORxCCt CB- T TCTC %"%CC  A#TC %T C% XCACrypt Service Provider Failed to Create an Exchange Key Container0ERRORxCCt CB- T  T C% XCACrypt Service Provider Failed to Return an Exchange Key Container0ERRORxCCt CB- T TCCTaBaUPICCONTAINERNAMEPICPROVIDERNAMEPINPROVIDERTYPELNERROR LHUSERKEYLHPROVIDERHANDLECRYPTACQUIRECONTEXT GETLASTERRORTHIS NLASTAPIERRORLDISPLAYLOWLEVELAPIERRORSAPIERRORCRYPTGETUSERKEY CRYPTGENKEYCRYPTRELEASECONTEXTCRYPTDESTROYKEY LISINSTALLEDI|CryptAcquireContextAWIN32APIQCryptAcquireContext@|CryptCreateHashWIN32APIQCryptCreateHash>|CryptDeriveKeyWIN32APIQCryptDeriveKey=| CryptDecryptWIN32APIQ CryptDecryptW7|CryptDestroyKeyWIN32APIQCryptDestroyKey9|CryptDestroyHashWIN32APIQCryptDestroyHash?| CryptEncryptWIN32APIQ CryptEncryptWA|CryptExportKeyWIN32APIQCryptExportKey6| CryptGenKeyWIN32APIQ CryptGenKey<|CryptGetUserKeyWIN32APIQCryptGetUserKeyC|CryptGetKeyParamWIN32APIQCryptGetKeyParamE|CryptGetProvParamWIN32APIQCryptGetProvParam:| CryptHashDataWIN32APIQ CryptHashDataA|CryptImportKeyWIN32APIQCryptImportKeyA|CryptReleaseContextWIN32APIQCryptReleaseContext@| CryptSignHashWIN32APIQ CryptSignHashM|CryptVerifySignatureWIN32APIQCryptVerifySignature0| GetLastErrorwin32apiQ GetLastError!| FindWindowWIN32API1| FormatMessageWIN32APIUCRYPTACQUIRECONTEXTAWIN32APICRYPTACQUIRECONTEXTCRYPTCREATEHASHCRYPTDERIVEKEY CRYPTDECRYPTCRYPTDESTROYKEYCRYPTDESTROYHASH CRYPTENCRYPTCRYPTEXPORTKEY CRYPTGENKEYCRYPTGETUSERKEYCRYPTGETKEYPARAMCRYPTGETPROVPARAM CRYPTHASHDATACRYPTIMPORTKEYCRYPTRELEASECONTEXT CRYPTSIGNHASHCRYPTVERIFYSIGNATURE GETLASTERROR FINDWINDOW FORMATMESSAGE"(%Cthis.cProviderNamebCGTT)%Cthis.cContainerNamebCT FOXPRO_APPT T%C B-CTBaU LHPROVIDERHANDLELCPROVIDERNAMELCCONTAINERNAMETHIS CPROVIDERNAMECCONTAINERNAMECREATERANDOMCRYPTKEYSCRYPTACQUIRECONTEXTHPROVIDERHANDLE     T-.%CC C  5%*C?Must Enter an Encrypted File Name and a Decrypted File Name andC C  a PasswordC C in a parameter of this FunctionxB-TCC% %xC"Encrypted File Could Not be OpenedC C 7Please Enter a File that Exists and is Not Already Open0xB-%CC0%bTCDecrypted File ExistsC C Do you wish to OverWrite it?$ File Existsx% CB-TCC%D%.>C/Decrypted File Could not be Created/Overwritten0x CB- T T CBCV%T CT C GTC XT CC->C+C T C #TCC C"%C %CCTa %9C-Error Occured During Write of Decryption FilexC C CB-%j4CFile Decryption Completed CompletedxC C CBaUPCENCRYPTEDFILENAME PCPASSWORDPCDECRYPTEDFILENAME LHKEYHANDLELHEXPORTKEYHANDLELHENCRYPTEDFILEHANDLELHDECRYPTEDFILEHANDLELNYNLNBYTESWRITTEN LNKEYLENGTHLNBLOCKREADSIZELNCRYPTBLOCKLENLCENCRYPTEDSESSIONKEYLCENCRYPTEDTEXT LCTESTLENGTHTHISLDOUBLEDECRYPTERRORLDISPLAYHIGHLEVELAPIERRORSLHEXCHANGEKEYHANDLEGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLEGETCRYPTBLOCKLENGTHENCRYPTSTRBLOCK DECRYPTSTRGETLASTAPIERRORDOUBLEDECRYPTERRORRELEASECRYPTKEYHANDLE?  T T T- C BCV %/%C>TCa %C  T Ta %C C TaC BUPCENCRYPTEDSTRING PCPASSWORDPCDECRYPTEDSTRING LHKEYHANDLELHEXCHANGEKEYHANDLE LCSAVETEXTLCRETURNLLOKTHISGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLE DECRYPTSTRGETLASTAPIERRORDOUBLEDECRYPTERRORLDOUBLEDECRYPTERRORRELEASECRYPTKEYHANDLE  #%CC C % C?Must Enter an Encrypted File Name and a Decrypted File Name andC C  a PasswordC C in a parameter of this FunctionxB-TCC%% xC"Encrypted File Could Not be OpenedC C 7Please Enter a File that Exists and is Not Already Open0xB-%CC0% bTCDecrypted File ExistsC C Do you wish to OverWrite it?$ File Existsx%~ CB-TCC%% >C/Decrypted File Could not be Created/Overwritten0x CB- T T C SCV %C+C cT C#TCC C "%C  _% -9C-Error Occured During Write of Decryption FilexC  C CB-% 4CFile Decryption Completed CompletedxC  C CBaUPCENCRYPTEDFILENAME PCPASSWORDPCDECRYPTEDFILENAME LHKEYHANDLELHEXPORTKEYHANDLELHENCRYPTEDFILEHANDLELHDECRYPTEDFILEHANDLELNYNLNBYTESWRITTEN LNKEYLENGTHLCENCRYPTEDSESSIONKEYLCENCRYPTEDTEXTTHISLDISPLAYHIGHLEVELAPIERRORSLHEXCHANGEKEYHANDLEGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLE DECRYPTSTRGETLASTAPIERRORRELEASECRYPTKEYHANDLE?  T T CSCV%1%C>TCa %C  T  TC B-  TC B-C BaU PCENCRYPTEDSTRING PCPASSWORDPCDECRYPTEDSTRING LHKEYHANDLELHEXCHANGEKEYHANDLETHISGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLE LCSAVETEXT DECRYPTSTRGETLASTAPIERRORRELEASECRYPTKEYHANDLE#   #%CC C %  C?Must Enter a Decrypted File Name and an Encrypted File Name andC C  a PasswordC C in a parameter of this FunctionxB-TCC%% xC"Decrypted File Could Not be OpenedC C 7Please Enter a File that Exists and is Not Already Open0xB-%CC0% bTCEncrypted File ExistsC C Do you wish to OverWrite it?$ File Existsx% CB-TCC%% >C/Encrypted File Could not be Created/Overwritten0x CB- T T T  C BCV %T C T C GC+C T C #TCC C "%C  % j9C-Error Occured During Write of Encryption FilexC  C CB-% 4CFile Encryption Completed CompletedxC  C CBaUPCDECRYPTEDFILENAME PCPASSWORDPCENCRYPTEDFILENAME LHKEYHANDLELHEXPORTKEYHANDLELHENCRYPTEDFILEHANDLELHDECRYPTEDFILEHANDLELNYNLNBYTESWRITTENLNCRYPTBLOCKLENLNBLOCKREADSIZELCENCRYPTEDSESSIONKEYLCDECRYPTEDTEXTTHISLDISPLAYHIGHLEVELAPIERRORSLHEXCHANGEKEYHANDLEGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLEGETCRYPTBLOCKLENGTHENCRYPTSTRBLOCKGETLASTAPIERRORRELEASECRYPTKEYHANDLEI   T T T-T- C BCV %9%C>$TCa %C  T Ta  %C C TaC BUPCDECRYPTEDSTRING PCPASSWORDPCENCRYPTEDSTRING LHKEYHANDLELHEXCHANGEKEYHANDLELLOK LCSAVESTRINGTHISLDOUBLEENCRYPTERRORGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLEENCRYPTSTRBLOCKGETLASTAPIERRORDOUBLEENCRYPTERRORRELEASECRYPTKEYHANDLE   #%CC C % C?Must Enter a Decrypted File Name and an Encrypted File Name andC C  a PasswordC C in a parameter of this FunctionxB-TCC%% xC"Decrypted File Could Not be OpenedC C 7Please Enter a File that Exists and is Not Already Open0xB-%CC0% ~bTCEncrypted File ExistsC C Do you wish to OverWrite it?$ File Existsx%z CB-TCC%% >C/Encrypted File Could not be Created/Overwritten0x CB- T T  T  C SCV %C+C lT C#TCC C "%C  h% 69C-Error Occured During Write of Encryption FilexC  C CB-% 4CFile Encryption Completed CompletedxC  C CBaUPCDECRYPTEDFILENAME PCPASSWORDPCENCRYPTEDFILENAME LHKEYHANDLELHEXPORTKEYHANDLELHENCRYPTEDFILEHANDLELHDECRYPTEDFILEHANDLELNYNLNBYTESWRITTENLCENCRYPTEDSESSIONKEYLCDECRYPTEDTEXTTHISLDISPLAYHIGHLEVELAPIERRORSLHEXCHANGEKEYHANDLEGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLEENCRYPTSTRSTREAMGETLASTAPIERRORRELEASECRYPTKEYHANDLE  T T T T- C SCV %%C>TCa %C  T TaC  BUPCDECRYPTEDSTRING PCPASSWORDPCENCRYPTEDSTRING LHKEYHANDLELHEXPORTKEYHANDLELCENCRYPTEDSESSIONKEYLLOK LCSAVESTRINGLHEXCHANGEKEYHANDLETHISGETCRYPTSESSIONKEYHANDLEHPROVIDERHANDLEENCRYPTSTRSTREAMGETLASTAPIERRORRELEASECRYPTKEYHANDLE}    %C% C<Must Enter a Signature Reference, a Decrypted File Name, andC C  a passwordC C as a parameter to This FunctionxB-TCC%s% h1C"Decrypted File Could not be Opened0xB- T2C CCC  %C %  Cx CB-+C TCCC> %C % CError Hashing DataxC  CB-T C %C 5%  CxC  CB- T C C  CBaUPCDECRYPTEDFILENAME PCSIGNATUREPCSIGNATUREPUBLICKEY LHHASHHANDLELNERRORLNYNLHSIGNFILEHANDLELHDECRYPTEDFILEHANDLELNBYTESWRITTENLHKEYLCINPUT LCSIGNATURELCDECRYTEDTEXTTHISLDISPLAYHIGHLEVELAPIERRORSCRYPTCREATEHASHHPROVIDERHANDLEGETLASTAPIERRORDCSIGNFILEHASHOBJECT_ERR_LOCLCDECRYPTEDTEXT CRYPTHASHDATACRYPTDESTROYHASH CRYPTSIGNHASHERRORSIGNINGDATAEXPORTSIGNATUREPUBLICKEY|TC>TC5BCC6UPICDATA PIHKEYHANDLE PILLASTSTRING LNDATALEN LCDATALENTHISBINTOSTR CRYPTENCRYPT  TC>TCTCX#C TC TCTCX5BCC6 U PICDATA PIHKEYHANDLE PILLASTSTRING LNDATALENLNMAXLEN LCDATALEN LCEMPTYSPACETHISBINTOSTR CRYPTENCRYPTSTRTOBIN,)BC @ A AU BUTHISLDOUBLEENCRYPTERROR BUTHISLDOUBLEDECRYPTERROR,)BC A AU BUTHIS LISINSTALLED4TC%TC%T% FC/Crypt Key Container Could not be Opened for Use0ERRORxT C CCt B- &T TBaU PCCONTAINERNAMELHPROVIDERHANDLETHISCCONTAINERNAMECRYPTRELEASECONTEXTHPROVIDERHANDLELNERRORCRYPTACQUIRECONTEXT CPROVIDERNAMELDISPLAYLOWLEVELAPIERRORS NLASTAPIERROR GETLASTERRORAPIERROR/  TT%TC%T%CC,New Crypt Key Container Could not be Created0ERRORxT C CCt B- !T TBaU PCCONTAINERNAMELNERRORLHPROVIDERHANDLETHISCCONTAINERNAMECRYPTACQUIRECONTEXT CPROVIDERNAMEHPROVIDERHANDLELDISPLAYLOWLEVELAPIERRORS NLASTAPIERROR GETLASTERRORAPIERROR4 T%TCT%TC % % ?C(Crypt Key Container Could not be Deleted0ERRORxT C CCt B- &T BaU PCCONTAINERLHPROVIDERHANDLETHISCCONTAINERNAMECRYPTRELEASECONTEXTHPROVIDERHANDLELNERRORCRYPTACQUIRECONTEXTPCCONTAINERNAME CPROVIDERNAMELDISPLAYLOWLEVELAPIERRORS NLASTAPIERROR GETLASTERRORAPIERROR  T T!%C TB-%%C B- TBaU PCPUBLICKEY LCPUBLICKEY LHEXCHANGEKEYTHISCRYPTGETUSERKEYHPROVIDERHANDLECRYPTEXPORTKEY  T T!%C TB-%%C B- TBaU PCPUBLICKEY LCPUBLICKEYLHSIGNATUREKEYTHISCRYPTGETUSERKEYHPROVIDERHANDLECRYPTEXPORTKEYr   T-%CC> WB- TBaU PCPUBLICKEYPHPUBLICKEYHANDLELHPUBLICKEYHANDLELNERRORTHISCRYPTIMPORTKEYHPROVIDERHANDLE  T T T T T9%C CCC  B-$%CC> B-@%C CCC C   B-!%C  IB-!%C  uB-&%C B- TBaU PCPASSWORD PCPAIRKEY LCPAIRKEYLHHASH LHENCRYPTKEY LHEXCHANGEKEYLHSIGNATUREKEYTHISCRYPTCREATEHASHHPROVIDERHANDLE CRYPTHASHDATACRYPTDERIVEKEYCRYPTGETUSERKEYCRYPTEXPORTKEY  T T T T T9%CCCC  B-$%CC> B-@%CCCC C   B-!%C IB-!%C uB-&%C B- TBaU PCPASSWORD PCPAIRKEY LCPAIRKEYLHHASH LHENCRYPTKEY LHEXCHANGEKEYTHISCRYPTCREATEHASHHPROVIDERHANDLE CRYPTHASHDATACRYPTDERIVEKEYCRYPTGETUSERKEYCRYPTEXPORTKEY  T T T T9%CCCC  B-$%CC> B-@%CCCC C   B-!%C 8B-&%C iB- TBaU PCPASSWORD PCSESSIONKEY LCPAIRKEYLHHASH LHENCRYPTKEY LHEXCHANGEKEYTHISCRYPTCREATEHASHHPROVIDERHANDLE CRYPTHASHDATACRYPTDERIVEKEYCRYPTGETUSERKEYCRYPTEXPORTKEYh     %C%C<Must Enter a Signature Reference, a Decrypted File Name, andC C  a passwordC C as a parameter to This FunctionxB-TCC%w%l1C"Decrypted File Could not be Opened0xB- T2CCCC %C% Cx CB-+C TCCC>%C%CError Hashing DataxC CB- T C "%C -C C Ta ZC CB-BaUPCDECRYPTEDFILENAME PCSIGNATUREPCSIGNATUREPUBLICKEY PLVERIFIED LHHASHHANDLELNERRORLNYNLHSIGNFILEHANDLELHDECRYPTEDFILEHANDLELNBYTESWRITTEN LHPUBLICKEYLCINPUT LCSIGNATURELCDECRYTEDTEXTTHISLDISPLAYHIGHLEVELAPIERRORSCRYPTCREATEHASHHPROVIDERHANDLEGETLASTAPIERRORDCSIGNFILEHASHOBJECT_ERR_LOCLCDECRYPTEDTEXT CRYPTHASHDATACRYPTDESTROYHASHIMPORTPUBLICKEYCRYPTVERIFYSIGNATURE  UTHISAPIDECLARATIONSAPISETUPcryptacquirecontext0cryptgetuserkey\ cryptgenkeyycryptexportkey getlasterrormcryptderivekeycryptcreatehash crypthashdatagetcryptsessionkeyhandle cryptencrypt decryptstrj cryptdecrypt$cryptgetkeyparamucryptdestroykeyreleasecryptkeyhandleapierror systemmessage formatmessage&cryptdestroyhashcryptgetprovparamgetcryptblocklengthstrtobinbintostrgetcryptuserkeyhandleZcryptimportkeygetlastapierrorggetlastapierrorfacilitygetlastapierrorseveritygetlastapierrorcodegetlastapierrorcustomercodeflag3cryptreleasecontextk cryptsignhashcryptverifysignature createrandomcryptkeys!apideclarations@*apisetupn0decryptsessionblockfile-2decryptsessionblockstring9decryptsessionstreamfile<decryptsessionstreamstringTBencryptsessionblockfile`DencryptsessionblockstringKencryptsessionstreamfilekMencryptsessionstreamstringSsignfileUencryptstrstreamZencryptstrblock[doubleencrypterrorV]getdoubleencrypterror]getdoubledecrypterror]doubledecrypterror]getisinstalled"^usekeycontanierM^createnewkeycontainerW`deletekeycontainerGbexportexchangepublickey^dexportsignaturepublickeyfeimportpublickeyofexportsignaturepairkeysLgexportexchangepairkeysiexportsessionkeyLlverifyfilesignaturenInits1qq'2AB32qAr310q2AB3qPr+sg2qAr33q@q'2AB3qq'2AB31{2AB31P!"AAAaAaAvaAaAAaAaAvaAaAQ5Q5AB30q2Ab4y3 qh2Ab2r0q'2Ab3qz"2AB2q3qQ" A3q33q{"2AB2rq'2Ab3q63qA2A2B2qqhR2AB322'2S22qB2qish2A31X2qqA31"1!AqA"!Aq!AqAA1"1!AqA!AqAA"1"1!AqA!AqAA"q3tg8X 4AAqAr38q!A AqA!AqA2!!1qAAAA!AqA1R1!1!!AAqAA!AAAr21QqAAAA382!A AqAA!AqA2!!1qAAAA!AqA1111!!AqAA!AAAr21QqqAqAAs2812!A AqAA!AqA1!!1qAAAA!AqA1R1!1!!AqAA!AAAr31QqAAAA382!A AqAA!AqA1!!1qAAAA!AqA1111!!AqAA!AAAr21QqAAA2! AqAA!AqA!q!AqA11q!AqAAq!AqAr3xqX48SqX422222qt2R1!aAqAr3qR1!1AqAr2qvb1AR1!AqAr3qqARqAr3qqARqAr3qAr2wqABqAqAqAqAbqAr3wqABqAqAqAqAbqAr39qABqAqAqAbqAr31! AqAA!AqA!q!AqA11q!AqAAQ"qAr31 H 2j M%8:? F $R$d'%]'4C4::<<GBnB|K KMF#NO^OSl+SU%UXCXZZw``bbdeg+ =ggh>hy}L} ٌ;Z!g:/lvU":qiM~.BbiCi\u;wgy{X}}FrCjy. [C2,\j ^  )z%?9c5 ZBUQA1%a[HpS%BCOC UOOBJETOq1%Zd}=*5   T %C xstackinfobUTC ((C xstackinfo( H -TCXCCC  ZC  ];TCX Ln:CCC  ZC  2/TCX CC C  TC C  T 5   %C p_errtimebN$T :T CALTEvT CALTEvT CCONSvTCPRINTvONG*G %C <  T C2G( \log\reporte.C000CCZRG C-PQ- Computadora : CCOMPUTER5 % Equipo ID : CZ% Sesion ID : CZ(# Versin :  Programa :  # Error : # Comprobante : -Fecha de Proceso : CC$* C^7 Usuario : [CZ]  Notas : TC>7 %C8TC8 T+%K %C77\TGG(G %C  G( % ONG % ONG %G* BUMPROGMERRORMCOMPROBMNOTASACCZ IMPRESORA_ONZZNEWMPROG XSTACKINFO OLDALTETO OLDALTEONOLDCONS P_ERRTIMEP_SYSTEM PUB_INDEX P_EQUIPO_ID P_SESION_IDOREPEX P_VERSIONCL_NOM111AAAAAAA2a1ab"a"qQQA1q11qq2Q1AA1AQAqaaAbRAQaAQaAaAB?%c34 TCW%Clog IFQ\logF)>C$C^%CxmensajebOn> Error: CC ZC C  Mensaje:  C C  Detalles:  C C Lnea: C ZC C Procedimiento: C C Contenido Lnea:   >   >( FBUXMENSAJEXAREAP_SYSTEMLOGUSR PUB_INDEXFECHAHORATIPOTXTERRORNOMESSAGEDETAILSLINENO PROCEDURE LINECONTENTS SESION_ID P_SESION_IDOERRHNDqqR!AqQ AAA1%v~{X G4 Tgui_getBUYCADVARPICLONGAAAGUI_GETqrRA5%E +T6X! TCW'%Ccons Clocales D C%C- F#BCC C6  F BCUXAREAABRIR_TABLAS_FIJASACCESOLOCALESCO_013OCIERRES CIERRE_BALCIEqrAB2A1% q1TO  %C  \S% hC8No se encuentra habilitado para utilizar esta opcin !!!C C  Permiso: CC ZB-BaUXPERMISOXMSGCL_ATRMENSAJEAqAq3%'2$!e4%%C\log\logact.txt0 %G(\log\logact.txtG G aUFecha Hora Usr Nombre Comprobante Cbt.Auxiliar ActaU-------- -------- --- ------------------------------ --------------- ------------ --- [ G(\log\logact.txtG G CC$* C^ CZ  H TAL 2TC   H? bTANU TMOD 2TCZ GG(BULG_CAUSA LG_COMPROBLG_AUXLG_ACTP_SYSTEM PUB_INDEXCL_NOM1QaaaaA#a1!A11!AbaA2%t GX{ 4G~(clasesG+(listadosTCreporte_ventanaN%CLn T-% "%C xbrowsfieldsbC-BROWSE FIELDS &xbrowsfields TITLE xtitulo  ' <BU XBROWSEFIELDSXTITULOCLASESLISTADOSO P_SININTERFAZSHOW!rA"ABqB1%%q7\$WU4 %FileC]  T T-% g1 xlock=.t. TC3on error &onerr + %%ZR,: Locking File CCf ... [CCZ]C ] Cancela la transaccin.%CC7xX!B- d5R,: Locking File CCf ... [CCZ]T TC3%CCBaUXABORTAZZZXLOCKP_DEVP_CONTROL_LOCKSDB_LOGfile_loc,1qA1aqAQAA!ABq;%"jW4%C+ %C r%C n T+CS F%aR,:Locking Register in CCf ... [CCZ]C ] Cancela la transaccin.%CC7xXB- 1<R,:Locking Register in CCf ... [CCZ]T%jCCCO | BaUXABORTAZZZP_CONTROL_LOCKSDB_LOGqqaqAAAABBBr:%~NCF%&B TCW%Clog_time #%C \log_time.dbf0 ^h1 \log_timeC TN  N C& & QQ \log_time%C: T%C\ TErlog_time   C FU XTAREAXFUNCIDXFUNCDIR P_LOG_TIMEXAREAP_SYSTEM SESION_IDFECHAFUNCIDFUNCDIRDESCR P_SESION_ID1AAr1BAAAAQ2%U+S4H 2B- LBa %%Cbienes  BN  %Cbienes+T TCbienesO#%Cbienescodins,TN A Ta% #6%Cbienes+ H  # B %%Cbienes  BN  %Cbienes+2T QTCbienesO#%Cbienescodins%TN S   Ta% #6%Cbienes+ H  # B %%Cbienes  iBS } %Cbienes+T TCbienesO#%CbienescodinsTS  Ta%Y #6%Cbienes+ UH p # B 2BaUXCOD P_CONTSTKBIENESCOD_INSCONTSTKXREGXRESLOTESq1q1q1R!rQA2bABAAA1R!rQA2RABAAA1R"rQA2eABAAAqA104mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _28J0NIB0V 930764634E4& WINDOWS _28J0NJAVI 930764634"&C(LU( COMMENT RESERVED  WINDOWS _2BM0U6P63 946764857 2Vn$3 COMMENT RESERVED @$ WINDOWS _2OY19C4K3 988195111H&T$  COMMENT RESERVED  WINDOWS _1W315UDE61091139394''''".'& COMMENT RESERVED & WINDOWS _57B0V9NH81286698670 P0O< COMMENT RESERVED  WINDOWS _20T0LQK0D1297242368%%%1&Rֳ%.%% WINDOWS _2300K9VCC 917670001%%Ts&& COMMENT RESERVED  WINDOWS _5BL0NVUSG1297313411Z kCDQR6 WINDOWS _5BL0NWXVO1297242415{ COMMENT RESERVED & WINDOWS _ROH18GBXC1419641720r{ COMMENT RESERVED b WINDOWS _1T80PKGZ51434827387  -1h<Px<I ( WINDOWS _1T80PXDV31366070706,, ,c K; WINDOWS _1T80PZYGB1366116366#BN#+2 WINDOWS _2300K9VCC1366070706d.O.?.-"J WINDOWS _2300K9VCC1366070706-//I WINDOWS _2300K9VCC 917670001c4-? WINDOWS _5WQ0JB1F21366116509Nq COMMENT RESERVED d WINDOWS _1HI001WNW1468811076v axjw@\ COMMENT RESERVED F WINDOWS _22Z0MVPHA1481935235(V xly^ COMMENT RESERVED D WINDOWS _2300K9VCC1481935543*c)z COMMENT RESERVED a WINDOWS _5Z00WBWB91485536196 $7=Tk" WINDOWS _5Z00WEQL11485531704^$ugP>H1 WINDOWS _5Z00WHXKI1380092244B0 [g WINDOWS _5Z00ZXD291380091318pa$# WINDOWS _5Z1133SHH1485531704# /.-V2-J; WINDOWS _5Z1133SHI1485531704.((T (y.V,,: WINDOWS _5Z1133SHJ1485531704'%.$%{$9 WINDOWS _2300K9VCC1485531704\51s7 WINDOWS _2300K9VCC1485531704#XG+ WINDOWS _2300K9VCC1485535490 K dov4 WINDOWS _2300K9VCC14855317046 m WINDOWS _2300K9VCC1485531704? *   Q  WINDOWS _5ZG0KJ2P91381456341A 1 "  COMMENT RESERVED }*WINDOWS _1HI002CGQ1490717830S8|Y *COMMENT RESERVED  WINDOWS _1HI002CGQ1491175014r|r EGrrSnr COMMENT RESERVED rVERSION = 3.00M"44% UCUTHISPARENT ABRIR_ARCHIVOTTCp%^C!La carpeta de los documentos es: C C C Desea abrir la carpeta? T""RUN /N "Explorer.exe" &xDir U XPATHTHISPARENTOIMP_DOCCONECTORORIGENP_DEV MENSAJE_SINOXDIRClick0 RightClickh12sqqA2Xy)4"R%U&CCUTHISPARENTOIMP_DOCIMPORTAR_ARCHIVOS_PENDIENTES LEER_ARCHIVOSClick0111c)x"__P % Uk7%C!Est seguro de borrar el archivo?dCCCU MENSAJE_SINOTHISPARENTOIMP_DOCBORRAR_ARCHIVOSOBTENER_MARCADOS LEER_ARCHIVOSClick01rA2)_NTop = 72 Left = 240 Height = 37 Width = 37 Anchor = 3 Name = "Imagenes" ITop = 57 Left = 0 Height = 399 Width = 697 Anchor = 15 Name = "LV" .OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX archivos_externosarchivos_externosImagenes olecontrol olecontrolBL olecontrolimage!Arial, 0, 9, 5, 15, 12, 32, 3, 0 archivos_externosPixelsClass13 containerarchivos_externosTop = 2 Left = 225 Height = 54 Width = 54 Picture = bmp\candado_cerrado.ico DownPicture = bmp\candado_abierto2.ico Alignment = 0 BackStyle = 0 Caption = "Otros" ControlSource = "this.parent.editar_otros" Style = 1 Name = "ckOtros" archivos_externosckOtroscheckboxcheckboxPROCEDURE Click *=sys_mostrar_screen("Suspendo?", .t.) This.parent.Abrir_Archivo() ENDPROC PROCEDURE RightClick LOCAL xPath xPath=this.parent.oimp_doc.conector.Origen xpath=JUSTPATH(xPath) IF p_Dev AND mensaje_sino("La carpeta de los documentos es: "+CHR(13)+xPath+CHR(13)+CHR(13)+; "Desea abrir la carpeta?",1) THEN LOCAL xDir xDir='"'+xPath+'"' RUN /N "Explorer.exe" &xDir ENDIF ENDPROC archivos_externosCommand8 commandbutton commandbuttonbtTodos  Root Entry`Py40 OleObjectData AccessObjSiteData&SChangedProps  !"#$%&'()*+,-./012]F<xml xmlns:x="urn:schemS8Cannot License in this hostrg N2NY70s CM_COM~2.F2Y70sz7Y cm_compra.FXP as-microsoft-com:office:excel"> <x:ChartSpace> <x:OWCVersion>11.0.0.6555 </x:OWCVersion> <x:Width>13653</x:Width> <x:Height>7303</x:Height> <x:Palette> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#8080FF</x:Entry> <x:Entry>#802060</x:Entry> <x:Entry>#FFFFA0</x:Entry> <x:Entry>#A0E0E0</x:Entry> <x:Entry>#600080</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#008080</x:Entry> <x:Entry>#C0C0FF</x:Entry> <x:Entry>#000080</x:Entry> <x:Entry>#FF00FF</x:Entry> <x:Entry>#80FFFF</x:Entry> <x:Entry>#0080FF</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#C0FF80</x:Entry> <x:Entry>#FFC0FF</x:Entry> <x:Entry>#FF80FF</x:Entry> </x:Palette> <x:DefaultFont>Arial</x:DefaultFont> </x:ChartSpace> </xml>9 KX2 ;1˪ PR_ART~1.SCT<ﾐ6}Lz7e pr_art_atr_bul.sct,Sv >X2;1˪ PR_ART~1.SCX<ﾐ6}Lz7e pr_art_atr_bul.scxXrP !V2#I7a PR_BAR~1.SCT:L7z7mpr_barra_menu.SCT V2 I7a PR_BAR~1.S " OI% Z7 UuCT-4 QIMPORTACIONES_DOCUMENTOS IMP_EXP_P.PRG% Q DOCUMENTO IMP_EXP_P.PRGT  C  T ?QMSCOMCTLLIB.ListItemQMSCOMCTLLIB.ListSubItems2 Q DOCUMENTO IMP_EXP_P.PRG X*TC  T % TC^TaTaTTC C TC C TC C T!" #U$XPATHZIDCAUSA ZIDCPBTNUMTHISLV LISTITEMSCLEARBTCOPIARENABLEDOID IMP_EXP_PPRGODOCOIMP_DOC LEER_ARCHIVOS DOCUMENTOSFIL_DIRECTORIOCONECTORORIGENOLVIOLVISSADDARCHIVOTAG A_IMPORTAR FORECOLORBOLD LISTSUBITEMSOLVISCPBT_ASOCIADO_TEXTOAPLICAR_FORMATOFECHATIPOCKOTROSVISIBLETIENE_ASOCIADOS{*Q DOCUMENTOS imp_exp_p.prg%CoDocsbOo*TC Documentos imp_exp_p.prg%Q DOCUMENTO imp_exp_p.prg% % T C *%   kT CDWT C  BUODOCS IMP_EXP_PPRGXSOLO_SELECCIONADOODOCOITTHISLV LISTITEMSCHECKEDTAGAGREGAR_ARCHIVOCOUNT SELECTEDITEMSYS_MCCUTHISOIMP_DOCABRIR_ARCHIVOSOBTENER_MARCADOS1T T UVNEWVALTHISMOSTRAR_GUARDARBTCOPIARVISIBLEG%@TC^TaUODOC A_IMPORTAROLVIS FORECOLORBOLDH&Q DOCUMENTOS imp_exp_p.prg%CoDocsbOk*TC Documentos imp_exp_p.prg%Q DOCUMENTO imp_exp_p.prg%T C % 84T C  BU ODOCS IMP_EXP_PPRGODOCOITTHISLV LISTITEMSCHECKEDTAGAGREGAR_ARCHIVOCOUNT;TCImportaciones_Documentos IMP_EXP_P.PRGTT$T'T  'T  T T T U THISOIMP_DOCBTCOPIARVISIBLEMOSTRAR_CONFIRMARMOSTRAR_GUARDAR BTINVERTIRLEFTWIDTH BTNINGUNOBTTODOSANCHOR leer_archivos0obtener_marcados abrir_archivo mostrar_guardar_assignaaplicar_formatoobtener_tilde_todoFInit11DQa"!AAb4ARq!AAA1A2q2q"Q2q!A2aARq!AAaqAA3aaBqq1112)1)^@3C7<I= PP X g)  "s s %! ` U%CxObjetobOaTTC CollectionC TH PageframeT 28%CxObjeto.controlcountbN  T %5B-(Hc) FormTC  PageframeTC  PageTC  Container)TC (%CxObj.Param_ReportebL|%xC CUXOBJETOTHISPARENT PAR_COLECCION VAL_GENERADOR VAL_AGREGARXOBJNIT XTOTCOUNT BASECLASS PAGECOUNT CONTROLCOUNTCONTROLSPAGES PARAM_REPORTE PAR_LEER_UNOPAR_LEER=TCguardar_parametroform_controles.vcx%CoParbOyCUOOBJOPARTHIS PAR_COLECCIONADDwC%3 aCBUTHIS VAL_GENERADOR VAL_AGREGAR PAR_COLECCIONCOUNTPAR_LEEROOBJ VAL_TEXTO CTC CollectionT >TCguardar_parametroform_controles.vcxC U VNEWVALOPARXTEXTTHIS VAL_GENERADOR VAL_AGREGAR PAR_COLECCION VAL_TEXTO VAL_COLECCIONADD%CxObjetobO4T  TCxObjetoC(U XOBJETOTHISPARENTOOBJOEXOPAR PAR_COLECCIONPAR_NAMEPAR_GRABAR_UNO'$sys_parametros_guardadosUSYS_PARAMETROS_GUARDADOSTHISR TBTC  BUXTEXTOOBJTHIS PAR_COLECCION VAL_MOSTRAR~TC Collection/TCExportar_Texto Imp_Exp.vcxTCPARTCHPARUTHIS PAR_COLECCION VAL_GENERADORSET_DIVSET_HEADT-T-UTHIS PAR_COLECCION VAL_GENERADORpar_leer0 par_leer_unoval_textos_access<val_textos_assign par_guardar@mostrar_guardadosAval_mostrar_accessInitDestroy1qAAA2qAQQQQA!AAA3qqAA2AAaA3qRqAA3qAABA2A2qAA2q21(0/88 QDBsQO bQF eX m] s)s PROCEDURE ItemCheck *** ActiveX Control Event *** LPARAMETERS oitm LOCAL oObj oObj=this.Parent.gF.column_coll(oItm.Key) oObj.Col_Seleccionada=oITM.Checked ENDPROC PROCEDURE Resize IF TYPE("this.ColumnHeaders")="O" THEN THIS.COLUMNHEADERS(2).WIDTH = IIF(p_dev,0,100) THIS.COLUMNHEADERS(3).WIDTH = IIF(THIS.PARENT.grupos_cargados AND THIS.PARENT.grupos_mostrar, 100, 0) THIS.COLUMNHEADERS(1).WIDTH = THIS.WIDTH - THIS.COLUMNHEADERS(2).WIDTH - THIS.COLUMNHEADERS(3).WIDTH - 6 THIS.COLUMNHEADERS(3).Position = IIF(p_dev and THIS.PARENT.grupos_cargados AND THIS.PARENT.grupos_mostrar,1,2) this.ColumnHeaders(3).Alignment= 2 && lvwColumnCenter ENDIF ENDPROC "%U?QMSCOMCTLLIB.ToolbarQMSCOMCTLLIB.ImageList.QMSCOMCTLLIB.ButtonQ EXCEPTIONT%T %C T (U OTBOIMXCAPTION_CLEAROBTOEX IMAGELISTBUTTONSCAPTIONKEYIMAGE tb_iconos01BAQ1ABA1)tfila_actual id_checked Variable que indica si se ha ejecutado el id_fila_lostfocus de la fila. Se inicializa a mano cada vez que se activa uno de los componentes del id. columna_actual es_f1 columna_anterior fila_anterior oldvalue Valor anterior de un control. Se completa manalmente al obtener el foco xtmp_cod_ins for_sparce campo_actual valor_actual *validar_fila *actualizar_fila Debe ser llamada para actualizar controles de la fila actual. *grilla_actualizada Codigo que debe ser llamado cada vez que un campo es modificado. La llamada debe colocarse solo en los campos tiles. No est configurado para que se la llame automticamente *id_fila_lostfocus Debe llamarse cada vez que el ID de la fila es modificado (Ej: cod-bul-atr) y slo si es compuesto. *enter Cambio de fila *cambio_de_fila *cambio_de_columna *campo_actual_access *valor_actual_access Height = 32 Width = 32 Picture = bmp\grids.ico for_recordsource = .F. for_recordsourcetype = .F. sql_ordenado = ("") sql_alias = ('') sql_filtro = .F. sql_filtro_ext = ('') sql_noclose = .F. for_localizar = .T. sql_noorder = .F. sql_norecmov = .F. sql_cerrar_al_salir = .F. status_panel = .F. grid_sets_id = ("") oval = .F. slq_totalizar = .F. sql_totalizar = .F. column_coll_default = .F. for_dynamics_coll = .F. for_fontsize = -1 fil_filtro = .F. fil_filtrado = .F. fil_autofiltro_campo = ("") fil_autofiltro_creado = .F. fil_autofiltro_campos = .F. sql_ordenado_inverso = .F. for_control_defecto = ("") sql_mueve = 1 val_cargado = .F. val_columnascreadas = .F. val_cargapendiente = .F. for_sparce = .F. sql_reposicionar = .F. sql_reposicionar_campo = .F. sql_reposicionar_valor = .F. sql_reposicionar_obtenido = .F. fil_autofiltro_mayusculas = .T. for_readonly = .T. grid_sets_autosave = .F. ogrilla = .F. for_aplicar_formato = .F. for_autofit = .F. for_arreglo_columnas = .F. Name = "grilla_formato"  NPROCEDURE bloquear_access *To do: Modify this routine for the Access method RETURN THIS.Bloquear ENDPROC PROCEDURE bloquear_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF THIS.bloquear = m.vNewVal THEN RETURN .f. ENDIF IF m.vNewVal THEN this.old_cap = thisform.Caption IF TYPE("this.oHija")="O" AND NOT EMPTY(this.oHija.bloqueo_txt) THEN thisform.Caption = thisform.Caption + " [*] "+ this.oHija.bloqueo_txt endif ELSE thisform.Caption = this.old_cap This.oHija=.f. ENDIF THIS.bloquear = m.vNewVal this.visible = m.vNewVal this.ZOrder(0) ENDPROC PROCEDURE bloqueando_access *To do: Modify this routine for the Access method RETURN THIS.Bloqueando ENDPROC PROCEDURE bloqueando_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Bloqueando = m.vNewVal IF NOT THIS.Bloqueando THEN IF TYPE("this.oPadre")="O" THEN this.oPadre.bloquear=.f. ENDIF ENDIF ENDPROC PROCEDURE activado IF this.bloquear AND TYPE("this.oHija")="O" THEN * _screen.Caption = _Screen.Caption + " HAC " this.oHija.Activar ELSE * _screen.Caption = _Screen.Caption + " HNAC " ENDIF ENDPROC PROCEDURE bloqueado_access *To do: Modify this routine for the Access method RETURN THIS.Bloqueado ENDPROC PROCEDURE bloqueado_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Bloqueado = m.vNewVal ENDPROC PROCEDURE ohija_access *To do: Modify this routine for the Access method RETURN THIS.oHija ENDPROC PROCEDURE ohija_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.oHija = m.vNewVal IF TYPE("THIS.oHija") ="O" THEN This.oHija.oPadre=this this.Bloquear=.t. this.ohija.Bloqueando=.t. ENDIF ENDPROC PROCEDURE opadre_access *To do: Modify this routine for the Access method RETURN THIS.oPadre ENDPROC PROCEDURE opadre_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.oPadre = m.vNewVal ENDPROC PROCEDURE autobloquear LPARAMETERS oPadre IF TYPE("oPadre")="O" THEN oPadre.oHija = this ENDIF ENDPROC PROCEDURE queryunload this.bloqueando=.f. this.oHija=.f. this.oPadre=.f. ENDPROC PROCEDURE reacomodar this.top=0 this.left=0 this.Width=thisform.Width this.Height=thisform.Height ENDPROC PROCEDURE Init =this.reacomodar () this.bl.Visible=.f. BINDEVENT(thisform, "QueryUnload", This, "QueryUnload") BINDEVENT(thisform, "Release", This, "QueryUnload") BINDEVENT(thisform, "Activate", This, "Activado") BINDEVENT(thisform, "Resize", This, "reacomodar") ENDPROC -PROCEDURE Click LOCAL xOK, xDestinoZIP xDestinoZIP="" xOK=THIS.PARENT.oimp_doc.Obtener_Pack(@xDestinoZIP,THIS.PARENT.obtener_tilde_todo ()) IF xOK=0 THEN IF mensaje_sino("Se cre un archivo comprimido con los datos en:"+CHR(13)+; xDestinoZIP+CHR(13)+CHR(13)+; "Desea abrir la carpeta donde se cre?",2) THEN xDir='"'+JUSTPATH(xDestinoZIP)+'"' RUN /N "Explorer.exe" &xDir ENDIF ELSE IF xOK=1 THEN =mensaje("Hubo un error al comprimir los archivos !!!") ENDIF ENDIF ENDPROC PROCEDURE Init this.Visible = p_dev ENDPROC PROCEDURE enter this.parent.parent.activatecell(this.parent.parent.activerow+1,1) ENDPROC PROCEDURE campo_actual_access IF this.columna_actual>0 THEN RETURN this.Columns(this.columna_actual).ControlSource ELSE RETURN "" endif ENDPROC PROCEDURE valor_actual_access *To do: Modify this routine for the Access method LOCAL xValor IF THIS.columna_actual>0 THEN xValor=EVALUATE(THIS.campo_actual) RETURN xValor ELSE RETURN .NULL. ENDIF ENDPROC PROCEDURE AfterRowColChange LPARAMETERS nColIndex xfa = this.fila_anterior xca = this.columna_anterior if xfa<>this.activerow this.fila_actual=this.activerow =this.cambio_de_fila() endif if xca<>ncolindex this.columna_actual=ncolindex =this.cambio_de_columna() endif ENDPROC PROCEDURE BeforeRowColChange LPARAMETERS nColIndex this.fila_anterior=this.activerow this.columna_anterior=this.activecolumn ENDPROC PROCEDURE Init this.fila_anterior=0 this.columna_anterior=0 this.fila_actual=0 this.columna_actual=0 this.setall('FontBold',.f.,'Column') this.setall('FontName','Courie New','Column') this.setall('FontSize',9,'Column') this.setall('FontBold',.t.,'Header') this.setall('Alignment',2,'Header') ENDPROC 0for_formato for_controlsource for_ancho for_caption for_inputmask columna for_sqlcol for_codigo col_seleccionada for_orden for_orden_tag col_descripcion Descripcion de la columna col_control for_readonly evn_not_when for_align for_autosize for_backcolor oval for_totalizar for_runtotal for_autofit evn_not_valid for_sparce for_grupo col_grupo opar_formato Objeto Exportaciones_Parametros_Formato of IMP_EXP.VCX opar_aplicar_formato extradata *header_dblclick *evn_header_dblclick *header_click *evn_header_click *field_click *field_dblclick *field_when *field_gotfocus *field_lostfocus *evn_field_click *evn_field_dblclick *evn_field_gotfocus *evn_field_lostfocus *evn_field_when *queryunload Occurs before a Form is unloaded. *aplicar_formato *col_binds *sql_ordenar *aplicar_control *field_rightclick *evn_field_rightclick *field_keypress *evn_field_keypress *field_valid *evn_field_valid *oval_gettext *oval_settext *copy *evn_column_moved *column_moved *field_moved *clonarse " S % U  Ta ETC S tT  T  T  T- BU OOBJXOKTHISPAR_NAME PAR_FULLNAME PAR_CAPTION PAR_VAL_DESDE PAR_DESDE PAR_VAL_HASTA PAR_HASTAzCCCCCBUTHIS VAL_GENERADOR VAL_AGREGARPAR_NAME PAR_CAPTION PAR_VAL_DESDE PAR_VAL_HASTA VAL_TEXTOT TCTCTCTCU VNEWVALTHIS VAL_GENERADOR VAL_TEXTOPAR_NAME VAL_COLECCION PAR_CAPTION PAR_VAL_DESDE PAR_VAL_HASTAg TCCf%BB<> `BUXDIVXIOb ;#TC. R T BUOOBJXPARENTTHIS PAR_FULLNAMEPARENTNAME+ TH, CxValorbNYTCCZ CxValorbC T CxValorbLTCCC6Z CxValorbDTC* CxValorbTTCTUXVALORXVALTHIS PAR_VAL_DESDE+ TH, CxValorbNYTCCZ CxValorbC T CxValorbLTCCC6Z CxValorbDTC* CxValorbTTCTUXVALORXVALTHIS PAR_VAL_HASTAJ TC TCUOOBJ PAR_DESDETHISPAR_IGUALAR_TIPOS PAR_VAL_DESDE PAR_HASTA PAR_VAL_HASTAU H#E CxValorbNNTCg CxValorbCw T CxValorbLT1 CxValorbD3TCC31/12/99 31/12/20996# CxValorbTE4TCC31/12/99 31/12/20996 BUXVALOR XVALOR_NUEVOXVAL*'B:  | UTHIS PAR_CAPTION PAR_VAL_DESDE PAR_VAL_HASTA /TCExportar_Texto Imp_Exp.vcxTPARTHPARHx CoObjbOBC% CxTextbCC TUOOBJXTEXTTHIS VAL_GENERADORSET_DIVSET_HEAD PAR_LEER_UNO VAL_TEXTO par_leer_uno0val_texto_accessval_texto_assigndiv_get par_fullnamepar_val_desde_assignpar_val_hasta_assignpar_grabar_unoLpar_igualar_tiposval_mostrar_accessj Init 1qqAA1AA1AA1AAA2aaaa3qR411AA3qq1A2qrA3qrA3q4q11AA4r3aqQA1 %-z*,546?=|IN8 ]_] g qc {s s u ) }"ddx?%aU% &B-% pT"T[*]  TT T CU VNEWVALTHISBLOQUEAROLD_CAPTHISFORMCAPTION BLOQUEO_TXTVISIBLEZORDERZTTTTT-UTHISTOPLEFTWIDTHTHISFORMHEIGHTBLVISIBLET UVNEWVALTHISOHIJAT UVNEWVALTHISOPADREbloquear_assign0InitS ohija_assign opadre_assign&1qqA1!1A!!3112q"3q"2 .)d ࡱ> Root EntryéG>@OleObjectData\AccessObjSiteData&\ChangedProps#$,j(6(!C4~ rͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1h-pPROCEDURE par_leer_uno LPARAMETERS oObj LOCAL xOK xOK=.t. TRY TRY THIS.par_name = THIS.par_fullname(oObj) CATCH THROW ENDTRY TRY THIS.par_caption = oObj.par_caption CATCH THROW ENDTRY TRY THIS.par_val_desde = oObj.Par_Desde CATCH THROW ENDTRY TRY THIS.par_val_hasta = oObj.Par_Hasta CATCH THROW ENDTRY CATCH xOK=.F. ENDTRY *=sys_m("Par_Leer") RETURN xOK ENDPROC PROCEDURE val_texto_access *To do: Modify this routine for the Access method this.val_generador.val_agregar() this.val_generador.val_agregar(this.par_name) this.val_generador.val_agregar(this.par_caption) this.val_generador.val_agregar(this.par_val_desde) this.val_generador.val_agregar(this.par_val_hasta) RETURN this.val_generador.val_texto ENDPROC PROCEDURE val_texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method this.val_generador.val_Texto = m.vNewVal this.par_name=this.val_generador.val_coleccion(1) this.par_caption=this.val_generador.val_coleccion(2) this.par_val_desde=this.val_generador.val_coleccion(3) this.par_val_hasta=this.val_generador.val_coleccion(4) ENDPROC PROCEDURE div_get LPARAMETERS xDIV, xIO xDIV=ALLTRIM(UPPER(xDIV)) IF xIO=1 THEN RETURN "<"+xDIV+">" ELSE RETURN "" ENDIF ENDPROC PROCEDURE par_fullname LPARAMETERS oObj LOCAL xParent TRY xParent=this.par_fullname(oObj.parent)+"."+oObj.Name CATCH xParent="" ENDTRY RETURN xParent ENDPROC PROCEDURE par_val_desde_assign LPARAMETERS xValor *To do: Modify this routine for the Assign method LOCAL xVal xVal="" DO CASE CASE TYPE("xValor")="N" xVal=ALLTRIM(STR(xValor)) CASE TYPE("xValor")="C" xVal=xValor CASE TYPE("xValor")="L" xVal=ALLTRIM(STR(IIF(xValor ,1,0))) CASE TYPE("xValor")="D" xVal=DTOC(xValor) CASE TYPE("xValor")="T" xVal=TTOC(xValor) ENDCASE THIS.par_val_desde = xVal ENDPROC PROCEDURE par_val_hasta_assign LPARAMETERS xValor *To do: Modify this routine for the Assign method LOCAL xVal xVal="" DO CASE CASE TYPE("xValor")="N" xVal=ALLTRIM(STR(xValor)) CASE TYPE("xValor")="C" xVal=xValor CASE TYPE("xValor")="L" xVal=ALLTRIM(STR(IIF(xValor ,1,0))) CASE TYPE("xValor")="D" xVal=DTOC(xValor) CASE TYPE("xValor")="T" xVal=TTOC(xValor) ENDCASE THIS.par_val_hasta = xVal ENDPROC PROCEDURE par_grabar_uno LPARAMETERS oObj *this.par_name = this.par_parent(oObj)+"."+oObj.Name *this.par_caption = oObj.Par_Caption oObj.Par_Desde = this.par_igualar_tipos(oObj.Par_Desde,this.par_val_desde) oObj.Par_Hasta = this.par_igualar_tipos(oObj.Par_Hasta,this.par_val_hasta) ENDPROC PROCEDURE par_igualar_tipos LPARAMETERS xValor, xValor_Nuevo LOCAL xVal DO CASE CASE TYPE("xValor")="N" xVal=VAL(xValor_Nuevo) CASE TYPE("xValor")="C" xVal=xValor_Nuevo CASE TYPE("xValor")="L" xVal=(xValor_Nuevo="1") CASE TYPE("xValor")="D" xVal=CTOD(IIF(xValor_Nuevo="31/12/99","31/12/2099",xValor_Nuevo)) CASE TYPE("xValor")="T" xVal=CTOT(IIF(xValor_Nuevo="31/12/99","31/12/2099",xValor_Nuevo)) ENDCASE RETURN xVal * xVal=CTOD(IIF(xValor_Nuevo="31/12/99","31/12/2099",xValor_Nuevo)) * xVal=CTOT(IIF(xValor_Nuevo="31/12/99","31/12/2099",xValor_Nuevo)) ENDPROC PROCEDURE val_mostrar_access *To do: Modify this routine for the Access method RETURN this.par_caption + ": " + this.par_val_desde + " | " + this.par_val_hasta ENDPROC PROCEDURE Init LPARAMETERS oObj, xText this.val_generador = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") this.val_generador.set_div = "PAR" this.val_generador.set_Head = "HPAR" DO case CASE TYPE("oObj")="O" RETURN this.par_leer_uno(oObj) CASE TYPE("xText")="C" AND NOT EMPTY(xText) this.val_texto = xText ENDCASE ENDPROC  ࡱ> Root Entry: @OleObjectDataAccessObjSiteData&\ChangedPropsKѽj(6(!C4;%N}#;ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1ES9A0A~1.SCXBﾰ2HW4uyHideSelectionL LabelEdit I  MousePointer I View I  CheckboxesLFullRowSelectL GridLinesLCXBh( Ԕ Descripcin ԔCdigo ԔGrupo " %LU BUTHISBLOQUEAR% &B-% T0%C this.oHijabO C &T [*]  TT-T T C U VNEWVALTHISBLOQUEAROLD_CAPTHISFORMCAPTIONOHIJA BLOQUEO_TXTVISIBLEZORDER BUTHIS BLOQUEANDOiT % b!%C this.oPadrebO^T-UVNEWVALTHIS BLOQUEANDOOPADREBLOQUEARH*%C this.oHijabO 7  AUTHISBLOQUEAROHIJAACTIVAR BUTHIS BLOQUEADOT UVNEWVALTHIS BLOQUEADO BUTHISOHIJArT %C THIS.oHijabOkTTaTaUVNEWVALTHISOHIJAOPADREBLOQUEAR BLOQUEANDO BUTHISOPADRET UVNEWVALTHISOPADRE:%CoPadrebO3TUOPADREOHIJATHIS-T-T-T-UTHIS BLOQUEANDOOHIJAOPADREITTTTUTHISTOPLEFTWIDTHTHISFORMHEIGHT CT-+C QueryUnload QueryUnload'CRelease QueryUnload%CActivateActivado%CResize reacomodarUTHIS REACOMODARBLVISIBLETHISFORMbloquear_access0bloquear_assignWbloqueando_accessbloqueando_assignactivadobloqueado_accessbloqueado_assign& ohija_accessd ohija_assign opadre_access6 opadre_assign[ autobloquear queryunload reacomodarCInit13qqA1aA1A!!33q#2AA3B23q"33q"1A23q"3qA22113qRQ2cc,#4%>9( ?*-D2"hN4S7^Y<_@' dEB C k) "4%h+U)&CUTHISPARENT ACTIVATECELL ACTIVEROWF%,BC ? BUTHISCOLUMNA_ACTUALCOLUMNS CONTROLSOURCEP%8TC B IBUXVALORTHISCOLUMNA_ACTUAL CAMPO_ACTUALTT%]T C%T  C U NCOLINDEXXFATHIS FILA_ANTERIORXCACOLUMNA_ANTERIOR ACTIVEROW FILA_ACTUALCAMBIO_DE_FILACOLUMNA_ACTUALCAMBIO_DE_COLUMNA0TTU NCOLINDEXTHIS FILA_ANTERIOR ACTIVEROWCOLUMNA_ANTERIOR ACTIVECOLUMNTTTT"CFontBold-Column.CFontName Courie NewColumn$CFontSize Column"CFontBoldaHeader%C AlignmentHeaderUTHIS FILA_ANTERIORCOLUMNA_ANTERIOR FILA_ACTUALCOLUMNA_ACTUALSETALLenter0campo_actual_accessvalor_actual_accessAfterRowColChangeBeforeRowColChangeInit21a3aaA2ra!rA3qb2B2B5q114"A!Q2T~  11!8) ࡱ> Root EntryéG>OleObjectData2AccessObjSiteData&\ChangedProps Kѽj(6(!C4 H=)N}# Hͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1 LabelEdit I  MousePointer I  MultiSelectLView I  CheckboxesLFullRowSelectL GridLinesLArchivoArchivo  CPBTCPBT x FechaFecha  TipoTipo1PROCEDURE sql_refresh LPARAMETERS xColumnas_Coll LOCAL oCol, oItm THIS.lv.ListItems.CLEAR THIS.grupos_cargados =.F. FOR EACH oCol IN THIS.gf.column_coll oItm=THIS.lv.ListItems.ADD(,UPPER(oCol.For_Codigo), IIF(EMPTY(oCol.Col_Descripcion),oCol.for_caption,oCol.Col_Descripcion)) oItm.Checked = oCol.Col_Seleccionada oItm.ListSubItems.ADD(,"CODIGO",UPPER(oCol.For_Codigo)) oItm.ListSubItems.ADD(,"GRUPO",oCol.Col_Grupo) THIS.grupos_cargados = THIS.grupos_cargados OR NOT EMPTY(oCol.Col_Grupo) NEXT THIS.RESIZE () ENDPROC PROCEDURE sel_column_coll_access *To do: Modify this routine for the Access method LOCAL oColl, oCol, oITM oColl=NEWOBJECT("Collection") FOR EACH oITM IN this.lv.ListItems IF oItm.Checked THEN =ocoll.Add(this.gf.column_coll(oItm.Key),UPPER(ALLTRIM(oItm.Key))) ENDIF NEXT RETURN oColl ENDPROC PROCEDURE col_selected LPARAMETERS xCol xCol=UPPER(ALLTRIM(xCol)) LOCAL xSel xSel=.f. TRY xSel=this.lv.ListItems(xCol).Checked CATCH ENDTRY RETURN (xSel) ENDPROC PROCEDURE col_reemplazar LPARAMETERS xColumna, xCampo, xValor, xTabla, xTrim, xNoSeleccionada xTrim=EVL(xTrim,1) LOCAL xAlias, xTexto IF NOT EMPTY(xTabla) THEN xAlias="IN "+xTabla xTexto=xTabla ELSE xAlias="" xTexto=Alias() ENDIF IF EMPTY(xCampo) THEN xCampo=xColumna ENDIF IF RIGHT(xValor,1)="." THEN xValor=xValor+xColumna ENDIF * Cambio Guille porque no lo hace solo y depende de que est posicionado en esa tabla. Sino da error al evaluar xvalor_actual select(xtabla) IF EMPTY(xColumna) OR (This.col_selected (xColumna) AND NOT xNoSeleccionada) OR (not This.col_selected (xColumna) AND xNoSeleccionada) THEN *=sys_mostrar_screen("Reemplazo", .t.) TRY xValorActual = this.oCNV.cnv_normalizar(&xCampo,, xTrim) xValorNuevo = this.oCNV.cnv_normalizar(&xValor,, xTrim) IF xValorActual # xValorNuevo THEN this.xCambios = this.xCambios + IIF(EMPTY(this.xCambios),"","|") + xCampo + ":"+ xValorActual + ">"+ xValorNuevo ENDIF CATCH to oEx this.xCambios = this.xCambios + "Error ("+xCampo+"): "+oEx.Message if p_dev * Porque no lleva bien el error para arriba mensaje("Error ("+xCampo+"): "+oEx.Message) endif ENDTRY REPLACE &xCampo WITH &xValor &xAlias ENDIF ENDPROC PROCEDURE for_add_columna LPARAMETERS oGF, xColumna, xNegado, xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit IF EMPTY(xColumna) OR ((This.col_selected (xColumna) AND NOT xNegado) OR (not This.col_selected (xColumna) AND xNegado)) THEN xColumna = EVL(xColumna,"") xCtrlSource=EVL(xCtrlSource, "."+xColumna) RETURN oGF.for_add_columna(xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor, xFor_Totalizar, xFor_RunTotal) ENDIF ENDPROC PROCEDURE imp_agregar_columna LPARAMETERS oImp_XLS, xColumna, xNegado, xlsNombre AS STRING, xlsFormato AS String, xlsDescripcion as String, dbfCampo AS String, dbfFormato AS String, dbfOpcional as Integer *oCS.imp_agregar_columna(this,"Cod_cen",,,,"Centro de costos",,"C(6)") IF EMPTY(xColumna) OR ((This.col_selected (xColumna) AND NOT xNegado) OR (not This.col_selected (xColumna) AND xNegado)) THEN xlsNombre=EVL(xlsNombre, xColumna) dbfCampo =EVL(dbfCampo , xColumna) RETURN oImp_XLS.Agregar_columna(xlsNombre, xlsFormato, xlsDescripcion, dbfCampo, dbfFormato, dbfOpcional ) ENDIF ENDPROC PROCEDURE imp_agregar_columna_vacia LPARAMETERS oImp_XLS, xColumna, xNegado, xlsNombre AS STRING, xlsFormato AS String, xlsDescripcion as String, dbfCampo AS String, dbfFormato AS String, dbfOpcional as Integer IF EMPTY(xColumna) OR ((This.col_selected (xColumna) AND NOT xNegado) OR (not This.col_selected (xColumna) AND xNegado)) THEN xlsNombre=EVL(xlsNombre, xColumna) dbfCampo =EVL(dbfCampo , xColumna) RETURN oImp_XLS.Agregar_columna_Vacia(xlsNombre, xlsFormato, xlsDescripcion, dbfCampo, dbfFormato, dbfOpcional ) ENDIF ENDPROC PROCEDURE validar LPARAMETERS xValido, xColumna RETURN xValido AND This.col_selected (xColumna) ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method LOCAL oIt as MSComctlLib.ListItem THIS.ENABLED = m.vNewVal IF NOT m.vNewVal THIS.lv.ENABLED = .F. THIS.lv.checkboxes = .F. FOR EACH oIt IN this.lv.ListItems IF oIt.Checked THEN oIt.ForeColor = RGB(255,0,0) oIt.Bold = .t. ELSE oIt.ForeColor = RGB(0,0,0) oIt.Bold = .F. ENDIF NEXT ENDIF ENDPROC PROCEDURE Resize This.lv.Width = this.Width-this.lv.Left -2 this.lv.Height=this.Height-this.lv.top -2 ENDPROC PROCEDURE Init this.ocnv = NEWOBJECT("sys_conversor", "sys_conversores.prg") this.oDS = NEWOBJECT("Data_Status", "sys_clases_tablas.prg") this.Resize() this.gf.for_add_columna() this.col_recargar_columnas () this.sql_refresh () ENDPROC I"gIgI.%<NFBAU TC Collection6TCgrilla_formato_columnaclasesC C U XGRIDXFORMXFORTHIS COLUMN_COLLXCOLCOLUMNSADDCOLUMNANAME COL_BINDS UXCOLCUXCOLTHIS SQL_ORDENARTAG UXCOL UXCOL BaUXCOLXRET UXCOL UXCOL% C )  qm _  i { T-U THISGRID_SETS_AUTOSAVE GRID_SETS_IDGRID_SETS_GUARDARXCOL COLUMN_COLL QUERYUNLOADSQL_CERRAR_TABLASOGRILLA     Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx%CTC cOLLECTIONB%CO:TC Collection%C%C=.zTC\  T%C T%C TK%C=. TC%CxSQLColbL: T%CxOrdenbLg T%CxTAGbL T%TC%C C T  TCgrilla_formato_columnaform_controles-a TBC!U"XCODIGO XCTRLSOURCEXCAPTIONXANCHOXFORMATO XINPUTMASKXSQLCOLXORDENXTAG XSELECCIONADA XDESCRIPCIONXCONTROL XREADONLY XEVN_NOT_WHEN XFOR_AUTOSIZE XFOR_ALINGXFOR_BACKCOLORXFOR_TOTALIZAR XFOR_RUNTOTAL XFOR_AUTOFITXGRUPO OPAR_FORMATOIMP_EXPVCXOFORFORM_CONTROLESTHIS COLUMN_COLLXFOR SQL_ALIAS FOR_LOCALIZARFOR_TRASPONER_LABELSFOR_CONTROL_DEFECTOFOR_ADD_OCOLUMNAX  "CAplicando formatosY C  T T T   ( TCTC]( TCTC CC%C  T  T   C %CxAS_ColbO<% F8T  F T - UXGRILLAXRSXCOLXGCOLTHISSTATUSCOBJOBJECTS DELETECOLUMNXAS_COL XAS_WIDTH RECORDSOURCE COLUMNCOUNT COLUMN_COLLCOUNTREFRESHNITCOLUMNSNAMEAPLICAR_FORMATO FOR_AUTOFIT COL_BINDS FOR_AUTOSIZECOLUMNAWIDTHPARENT T T'%CC C TCT,  BUXSQLXADDOCOLTHIS COLUMN_COLL FOR_SQLCOL ;CEVN_Header_DblClickEVN_Header_DblClick5CEVN_Header_ClickEVN_Header_Click9CEVN_Field_DblClickEVN_Field_DblClick3CEVN_Field_ClickEVN_Field_Click=CEVN_Field_RightClickEVN_Field_RightClick4CEVN_Field_WhenEVN_Field_When9CEVN_Field_GotFocusEVN_Field_GotFocus;CEVN_Field_LostFocusEVN_Field_LostFocus6CEVN_Field_ValidEVN_Field_Valid<CEVN_Field_KeyPressEVN_Field_KeyPress5CEVN_Column_MovedEVN_Column_Moved ;CEVN_Header_DblClickEVN_Header_DblClick  5CEVN_Header_ClickEVN_Header_Click  ]9CEVN_Field_DblClickEVN_Field_DblClick g 3CEVN_Field_ClickEVN_Field_Click  =CEVN_Field_RightClickEVN_Field_RightClick  I4CEVN_Field_WhenEVN_Field_When(W 9CEVN_Field_GotFocusEVN_Field_GotFocus  ;CEVN_Field_LostFocusEVN_Field_LostFocus  ?6CEVN_Field_ValidEVN_Field_Valid I <CEVN_Field_KeyPressEVN_Field_KeyPress  8CEVN_Column_MovedEVN_Column_Moved UXFORXFORMOCHTHISV CCreando ndicesT%C pT T%C SELECT &xAlias % C O   K 9%C 5T T INDEX ON &xOrden TAG &xTag ( GUXALIAS2 XNOINVERTIRTHISSTATUSXALIAS SQL_ALIAS SQL_NOORDERXORDENXTAGOCOL COLUMN_COLL FOR_ORDEN FOR_ORDEN_TAGOEX !CAplicando ndices%C T%C T  %C T ! TCCf (%CL)B-TCf %oT  T -TCfC  G TUXORDEN XNOINVERTIRTHISSTATUSOCOLOEXXINVERSO SQL_ORDENADOOCOL2 COLUMN_COLL FOR_ORDEN_TAG FOR_CODIGOSQL_ORDENADO_INVERSO SQL_ORDENAR SQL_ALIAS7 !CPreparando GrillaT% SELECT &xAlias #6T  SELECT &xAlias Hc C C C CCa % oSELECT &xAlias #6 H SELECT &xAlias #)  SELECT &xAlias #6 %CxLabelbO T-TUXGRILLAXLABELTHISSTATUSXALIAS SQL_ALIAS SQL_NORECMOVXRNHEIGHT HEADERHEIGHT ROWHEIGHT FOR_ORDENAR FOR_APLICAR FOR_DYNAMICSFOR_DYNAMICS_COLL_APLICAR SQL_ORDENARREFRESH SQL_MUEVEVISIBLEOGRILLA T%C K FQ%CxLabelbOTa Ca U XGRILLAXLABEL RECORDSOURCETHIS SQL_ALIAS SQL_NOCLOSEVISIBLEPARENTREFRESHODEYFUNCDEVENTS CFiltrando datos TTT SELECT &xAlias %%C +SET FILTER TO &xvalido AND &xValido_Ext SET FILTER TO &xvalido  d%C 81SET FILTER TO NOT (&xvalido AND &xValido_Ext) `SET FILTER TO NOT &xvalido #)%CxGrillabO  U XVALIDEZXGRILLATHISSTATUSXALIASXVALIDO SQL_ALIAS SQL_FILTRO XVALIDO_EXTSQL_FILTRO_EXTREFRESHaCCODIGOTMPCSDBF.COD_InsCodigodTMPCSDBF.cod_inscod_inscodinsLCAtr TMPCSDBF.AtrAtr TMPCSDBF.AtrAtrAtrPCBul TMPCSDBF.BulBulTMPCSDBF.cod_insBulBul^CDESCRTMPCSDBF.Descr DescripcinTMPCSDBF.DescrDescrDescr]CInicialTMPCSDBF.InicialZTMPCSDBF.InicialInicialInicialUTHISFOR_ADD_COLUMNATCCfH0 BULVT ATR|T ARTICULOT BUXCAPTIONXCAPTOBUL LABEL_CORTOOATROBIE LABEL_LARGO UXCOLF%?TSELECT &xalias QUTHISSQL_CERRAR_AL_SALIRXALIAS SQL_ALIAS UOGRILLAXALIASH'%Cthis.status_panelbOATUXTEXTTHIS STATUS_PANELTEXTc#%C C :TCCUOGRILLATYPEOTHIS GRI_PREPARAR GRI_ARREGLAR BaUXCOLXRET UXGRILLATHIS QUERYUNLOAD^QGRIDTC %C u*CEl ID de la grilla est vacioB-%C grid_sets Q \grid_setsT@ QGRILLA_FORMATO_COLUMNAform_controles A C  C   TFG((FULLIDEC CZCZ%C4 > WG((MIDIDECZ%C4  ^J _J > S > >> >UXGRILLATHISOGRILLA GRID_SETS_ID PUB_INDEXMENSAJEP_SYSTEMOVAL VAL_TEXTOCCOLUMNAFORM_CONTROLES COLUMN_COLL OVAL_GETTEXT VAL_AGREGAR FOR_CODIGOXTEXTXTEXT2 GRID_SETSFULLIDP_CODEMPDATOSMIDIDOOBJEMPIDUSUARIO[QGRID%CT*CEl ID de la grilla est vacioB-%C grid_sets Q \grid_sets TF G((FULLIDEC C ZC Z%C4 T PG((MIDIDEC C Z%C4L T /TCExportar_Texto Imp_Exp.vcxTGRSTHGRST T-+ T ;TCCCfTCTCC P TaUXGRILLATHIS GRID_SETS_IDMENSAJEP_SYSTEMXSALIRXNOMBREXTEXTOXCOL GRID_SETSFULLID PUB_INDEXP_CODEMPDATOSMIDIDOVALSET_DIVSET_HEAD VAL_TEXTOVAL_COLECCION_NEXT COLUMN_COLL OVAL_SETTEXT&1QGRILLA_FORMATOform_controles.vcx 7QGRILLA_FORMATO_COLUMNAform_controles.vcx"%CCbB-%CNAME.TThis.ToGF.&xTX=&xTX2 U OGFAPARCHNITXTXXTX2XPARXFORFORM_CONTROLESVCX&fQ COLLECTIONQCOLUMNQGRILLA_FORMATO_COLUMNAform_controles.vcxQINTEGERTC Collection(.QGRILLA_FORMATO_COLUMNAT % C ! BU OCOLLOCOLOGFCFORM_CONTROLESVCXNITTHIS COLUMN_COLLCOUNTCOLUMNA COLUMNORDERADD FOR_CODIGO7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcxTC CollectionTC U OCOLFORM_CONTROLESVCXOCOL2THISCOLUMN_COLL_DEFAULT COLUMN_COLLCOPYADD FOR_CODIGOy9xGrid.SetAll(&sDyn) %rCFontSizeUXGRIDSDYNTHISFOR_DYNAMICS_COLL FOR_FONTSIZESETALL  F%C C } FG(%hT- B-% C% Ta   T  % TCfT ''T  F %C bUC %C &SET FILTER TO &xTexto2$&TXFiltrado 4SET FILTER TO &xTexto2$&TXFiltrado AND &xFiltro2  SET FILTER TO &xFiltro2 #) UXTEXTOXGRIDTHIS SQL_ALIAS FIL_FILTRO FIL_FILTRADOREFRESHFIL_AUTOFILTRO_CREADOFIL_AUTOFILTRO_CREAR TXFILTRADOXTEXTO2XFILTRO2FIL_AUTOFILTRO_CAMPOFIL_AUTOFILTRO_MAYUSCULAS FT T T C  TH" C.bC T" C.bM T" C.bN(TStr(,20,2)" C.bDeTDTOC()" C.bTTDTOC()% TUPPER()%C TT+ F%CbU%C:ALTER table (This.sql_alias) ADD COLUMN &xDestino M(4) B-%C (replace &xDestino WITH &xOrigen ALL T aU THIS SQL_ALIASXORIGENXCAMPOXSTRXDESTINOFIL_AUTOFILTRO_CAMPOXSIGNOFIL_AUTOFILTRO_CAMPOS_CREARFIL_AUTOFILTRO_CAMPOSFIL_AUTOFILTRO_MAYUSCULASFIL_AUTOFILTRO_CREADOUXCOLNKEYCODE NSHIFTALTCTRL% B-%C T F2LOCATE FOR &xCampo=this.sql_reposicionar_valor %C4 #)UTHISSQL_REPOSICIONAR SQL_ALIASSQL_REPOSICIONAR_OBTENIDOXCAMPOSQL_REPOSICIONAR_CAMPOh% B-%CaTa!TC.UTHISSQL_REPOSICIONAR SQL_ALIASSQL_REPOSICIONAR_OBTENIDOSQL_REPOSICIONAR_VALORSQL_REPOSICIONAR_CAMPOBQEXPORTACIONES_PARAMETROSf:\sistema\2000\imp_exp.vcx C!(C[C.CCCCUOPARFTHISFOR_ADD_COLUMNANITEX_XLS_CAMPOS_AGREGAR UOCOLV>QINTEGERQGRILLA_FORMATOform_controles.cvxTCUNCOLOGFFORM_CONTROLESCVXOCOL COLUMN_COLL7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx7TCgrilla_formato_columnaform_controlesCCUOCOLFORM_CONTROLESVCXOCOL2ODEYFUNC CLONAR_OBJETOTHISFOR_ADD_OCOLUMNAFQGRILLA_FORMATO_COLUMNAform_Controles.vcxQBOOLEAN%hTC]TCCf BU OFORFORM_CONTROLESVCX XNUEVOCODIGO FOR_CODIGOOPAR_APLICAR_FORMATOTHISFOR_APLICAR_FORMATO COLUMN_COLLADDe TCC"CU XKEY XPOSICIONOCOLTHIS COLUMN_COLLITEMREMOVE FOR_CODIGOADD UOCOL XPOSICION TC CollectionTC Collection/TCExportar_Texto Imp_Exp.vcxTGRSTHGRS%CxGridbOCU XGRIDXFORMTHISFIL_AUTOFILTRO_CAMPOSFOR_DYNAMICS_COLLOVALSET_DIVSET_HEAD LEER_GRID leer_grid0evn_header_dblclick?evn_header_clickWevn_field_clickevn_field_dblclickevn_field_whenevn_field_lostfocusevn_field_gotfocus  queryunload#for_add_columna< for_aplicar sql_crear col_binds for_ordenar sql_ordenar gri_arreglar% gri_preparar@ sql_filtrarMsql_crear_columnas_for_trasponer_labels9evn_field_rightclick5 sql_cerrar_tablasM for_dynamics status sql_refresha!evn_field_valid!dispose'"grid_sets_guardar_"grid_sets_cargar%leer_gf( coll_ordenadoa*grid_sets_default+for_dynamics_coll_aplicar6-fil_autofiltro-fil_autofiltro_crear0evn_field_keypressx4sql_reposicionar_mover4sql_reposicionar_obtener5leer_parametros6importar_columna7leer_columna_gf7 leer_columnae8for_add_ocolumna9for_columna_reordenar:evn_column_movedk;Init;1qAaQA3q2q12q2q2q2q2q2AAAAA2r!AArA!AAAAaAAAA"QAA 4!CAbQ1AQQrqAqAAAA3AqAA2qQ1AaRAQAA1AAAAAAaAAA3q!AR!ABQAAAA31QAQAAAAAaAqqAAA"a12q1!Qr!AA1qq1!QAb!Qa!QAA2AAA3!!A!AAQA23qqaaA2q2!q!AA24qq1A3q1A3q2q3aqAA1aA1r!QQBB5AqAA1rqABaq1AQAB31q"qAAAaQA1baqAAAA2rqAA2qqAqArA3a!ArA2A1A!AqaBAAQ21A!!!!!A!A!QAAaqAA"A231qAq!QAA21qABA2!E2q2Q2qqqR3a1A13ra!32aqQA3 AQ x8Z #) 3V wk|Uw,% Z1 !#kJD#:%Pe%c&]&&_&.'fQ''h(x(m(>)td))w))z)D.k.,2J2[8$8:V0:;f;t<q<?}@.DDWDDFDES FF[GJaJK c'KK fKLlLMtNN'zNO0|#O`P3)gI PROCEDURE par_leer LPARAMETERS xObjeto *=sys_m("Par Leer") IF type("xObjeto")#"O" THEN *** AutoIniciacin xObjeto=this.Parent this.par_coleccion=NEWOBJECT("Collection") this.val_generador.val_agregar() ENDIF LOCAL xObj,nIt, xTotCount xTotCount=0 DO CASE CASE xObjeto.BASECLASS="Pageframe" xTotCount=xObjeto.PAGECOUNT OTHERWISE IF TYPE("xObjeto.controlcount")="N" AND xObjeto.CONTROLCOUNT>0 THEN xTotCount=xObjeto.CONTROLCOUNT ENDIF ENDCASE IF xTotCount=0 THEN RETURN .F. ENDIF FOR nIt=1 TO xTotCount DO CASE CASE xObjeto.BASECLASS="Form" xObj = xObjeto.CONTROLS(nIt) CASE xObjeto.BASECLASS="Pageframe" xObj = xObjeto.PAGES(nIt) CASE xObjeto.BASECLASS="Page" xObj = xObjeto.CONTROLS(nIt) CASE xObjeto.BASECLASS="Container" xObj = xObjeto.CONTROLS(nIt) ENDCASE IF TYPE("xObj.Param_Reporte")="L" IF xObj.Param_Reporte THEN =THIS.par_leer_uno(xObj) ENDIF ELSE THIS.par_leer(xObj) ENDIF NEXT ENDPROC PROCEDURE par_leer_uno LPARAMETERS oObj LOCAL oPar oPar = NEWOBJECT("guardar_parametro","form_controles.vcx","",oObj) IF TYPE("oPar") ="O" THEN this.par_coleccion.add(oPar) ENDIF ENDPROC PROCEDURE val_textos_access *To do: Modify this routine for the Access method this.val_generador.val_agregar() IF this.par_coleccion.count=0 THEN this.par_leer ENDIF FOR EACH oObj IN this.par_coleccion this.val_generador.val_agregar(oObj.Val_Texto) NEXT RETURN this.val_generador.val_texto ENDPROC PROCEDURE val_textos_assign LPARAMETERS vNewVal LOCAL oPar, xText this.val_generador.val_agregar() this.par_coleccion = NEWOBJECT("Collection") this.val_generador.val_Texto = m.vNewVal FOR EACH xText IN this.val_generador.val_coleccion oPar = NEWOBJECT("guardar_parametro","form_controles.vcx","",,xText) this.par_coleccion.add ( oPar) NEXT ENDPROC PROCEDURE par_guardar LPARAMETERS xObjeto IF type("xObjeto")#"O" THEN *** AutoIniciacin xObjeto=this.Parent ENDIF LOCAL oObj, oEx FOR EACH oPar IN this.par_coleccion TRY oObj=EVALUATE("xObjeto"+oPar.Par_Name) oPar.Par_Grabar_uno(oObj) CATCH TO oEx * =sys_m("Error: "+oPar.Par_Name+CHR(13)+oPar.Par_Name+CHR(13)+oEx.Message) ENDTRY NEXT ENDPROC PROCEDURE mostrar_guardados DO FORM sys_parametros_guardados WITH this ENDPROC PROCEDURE val_mostrar_access LOCAL xTEXT xTEXT="" FOR EACH oObj IN this.par_coleccion xTEXT=xTEXT+oObj.Val_Mostrar+ CHR(13) NEXT RETURN xText ENDPROC PROCEDURE Init this.par_coleccion = NEWOBJECT("Collection") this.val_generador = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") this.val_generador.set_div = "CPAR" this.val_generador.set_Head = "CHPAR" ENDPROC PROCEDURE Destroy this.par_coleccion = .f. this.val_generador = .f. ENDPROC PkPROCEDURE leer_grid LPARAMETERS xGrid, xform LOCAL xFor THIS.column_coll = NEWOBJECT("Collection") FOR EACH xCol IN xGrid.COLUMNS xFor=NEWOBJECT("grilla_formato_columna","clases","",xCol) THIS.column_coll.ADD(xFor, xFor.Columna.NAME) this.col_binds(xFor, xForm) NEXT ENDPROC PROCEDURE evn_header_dblclick LPARAMETERS xCol ENDPROC PROCEDURE evn_header_click LPARAMETERS xCol this.sql_ordenar(xCol.Tag) ENDPROC PROCEDURE evn_field_click LPARAMETERS xCol ENDPROC PROCEDURE evn_field_dblclick LPARAMETERS xCol ENDPROC PROCEDURE evn_field_when LPARAMETERS xCol, xRet RETURN .t. ENDPROC PROCEDURE evn_field_lostfocus LPARAMETERS xCol ENDPROC PROCEDURE evn_field_gotfocus LPARAMETERS xCol ENDPROC PROCEDURE queryunload IF this.grid_sets_autosave AND NOT EMPTY(this.grid_sets_id) THEN this.grid_sets_guardar ENDIF TRY FOR EACH xCol IN THIS.column_coll TRY xCol.QUERYUNLOAD CATCH ENDTRY NEXT CATCH ENDTRY this.sql_cerrar_tablas this.oGrilla=.f. ENDPROC PROCEDURE for_add_columna LPARAMETERS xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, ; xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, ; xFor_Autosize, xfor_aling, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit, xGrupo,; oPar_Formato as exportaciones_parametros_Formato of imp_exp.vcx LOCAL oFor as grilla_formato_columna OF form_controles.vcx IF PARAMETERS()=0 THEN THIS.column_coll=NEWOBJECT("cOLLECTION") RETURN ENDIF *=sys_m("Agregar") LOCAL xFor IF VARTYPE(THIS.column_coll)#"O" THEN THIS.column_coll = NEWOBJECT("Collection") ENDIF IF EMPTY(xcodigo) THEN IF LEFT(xCtrlSource,1) ="." THEN xcodigo=SUBSTR(xCtrlSource,2) ELSE xcodigo=xCtrlSource ENDIF ENDIF IF EMPTY(xCAPTION) THEN xCaption=xcodigo ENDIF IF EMPTY(xAncho) THEN xAncho=75 && Por ahora, luego hay que calcularlo ENDIF IF LEFT(xCtrlSource,1) ="." THEN xCtrlSource=ALLTRIM(THIS.sql_alias)+xCtrlSource ENDIF IF TYPE("xSQLCol")="L" THEN xSQLCol=xCtrlSource ENDIF IF TYPE("xOrden")="L" THEN xOrden=xCtrlSource ENDIF IF TYPE("xTAG")="L" THEN xTag=xcodigo ENDIF IF THIS.for_localizar THEN xCaption=THIS.for_trasponer_labels (xCaption) ENDIF IF EMPTY(xControl) AND NOT EMPTY(this.for_control_defecto) xControl=this.for_control_defecto ENDIF oFor=NEWOBJECT("grilla_formato_columna","form_controles","",.F.,.T.,xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly, xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit, xGrupo) oFor.opar_formato = oPar_Formato RETURN this.for_add_ocolumna(oFor) ENDPROC PROCEDURE for_aplicar LPARAMETERS xGrilla, xRS LOCAL xCol, xGCol This.Status ("Aplicando formatos") *=sys_m("For aplicar") FOR EACH cobj IN xGrilla.OBJECTS =xGrilla.DELETECOLUMN() NEXT LOCAL xAS_Col, xAS_Width xAS_Width=0 xGrilla.RECORDSOURCE=xRS xGrilla.COLUMNCOUNT=THIS.column_coll.COUNT xGrilla.REFRESH FOR nIt=1 TO xGrilla.COLUMNCOUNT xGCol=xGrilla.COLUMNS(nIt) xGCol.Name=SYS(2015) next FOR nIt=1 TO xGrilla.COLUMNCOUNT xGCol=xGrilla.COLUMNS(nIt) xCol=THIS.column_coll(nIt) xCol.Aplicar_Formato(xGCol, this.for_autofit) =xCol.Col_Binds(xGCol) IF xCol.for_Autosize=1 AND EMPTY(xAS_Col) THEN xAS_Col=xCol ELSE xAS_Width=xAS_Width+xCol.Columna.Width ENDIF TRY =THIS.Col_Binds(xCol, THIS.PARENT) CATCH ENDTRY NEXT IF type("xAS_Col")="O" THEN IF xGrilla.width-xAS_Width-70>0 THEN xAS_Col.Columna.width=xGrilla.width-xAS_Width-70 ENDIF ENDIF xAS_Col=.f. xGrilla.REFRESH ENDPROC PROCEDURE sql_crear LOCAL xSQL, xADD, oCol xSQL="" xAdd="" FOR EACH oCol IN this.column_coll IF vartype(oCol.For_SQLCol)="C" AND NOT EMPTY(oCol.For_SQLCol) THEN xSQL=xSQL+xAdd+alltrim(oCol.For_SQLCol) xAdd=", " ENDIF NEXT RETURN xSQL ENDPROC PROCEDURE col_binds LPARAMETERS xFor, xForm LOCAL oCH BINDEVENT(xFor,"EVN_Header_DblClick", THIS, "EVN_Header_DblClick") BINDEVENT(xFor,"EVN_Header_Click", THIS, "EVN_Header_Click") BINDEVENT(xFor,"EVN_Field_DblClick", THIS, "EVN_Field_DblClick") BINDEVENT(xFor,"EVN_Field_Click", THIS, "EVN_Field_Click") BINDEVENT(xFor,"EVN_Field_RightClick", THIS, "EVN_Field_RightClick") BINDEVENT(xFor,"EVN_Field_When", THIS, "EVN_Field_When",1) BINDEVENT(xFor,"EVN_Field_GotFocus", THIS, "EVN_Field_GotFocus") BINDEVENT(xFor,"EVN_Field_LostFocus", THIS, "EVN_Field_LostFocus") BINDEVENT(xFor,"EVN_Field_Valid", THIS, "EVN_Field_Valid",1) BINDEVENT(xFor,"EVN_Field_KeyPress", THIS, "EVN_Field_KeyPress",1) BINDEVENT(xFor,"EVN_Column_Moved", THIS, "EVN_Column_Moved") TRY BINDEVENT(THIS,"EVN_Header_DblClick", xForm, "EVN_Header_DblClick") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Header_Click", xForm, "EVN_Header_Click") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_DblClick", xForm, "EVN_Field_DblClick") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_Click", xForm, "EVN_Field_Click") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_RightClick", xForm, "EVN_Field_RightClick") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_When", xForm, "EVN_Field_When",1) CATCH TO oCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_GotFocus", xForm, "EVN_Field_GotFocus") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_LostFocus", xForm, "EVN_Field_LostFocus") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_Valid", xForm, "EVN_Field_Valid",1) CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_KeyPress", xForm, "EVN_Field_KeyPress",1) CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Column_Moved", xForm, "EVN_Column_Moved",1) CATCH ENDTRY ENDPROC PROCEDURE for_ordenar LPARAMETERS xAlias2, xNoInvertir THIS.STATUS ("Creando ndices") LOCAL xAlias xAlias = THIS.sql_alias IF NOT EMPTY(xAlias) THEN THIS.sql_alias = xAlias2 xAlias=xAlias2 ENDIF IF NOT EMPTY(THIS.sql_alias) THEN SELECT &xAlias ENDIF IF NOT THIS.sql_noorder AND ISEXCLUSIVE() THEN LOCAL xOrden, xTag FOR EACH oCol IN THIS.column_coll TRY IF NOT EMPTY(oCol.For_Orden) THEN xOrden=oCol.For_Orden xTag=oCol.For_Orden_Tag INDEX ON &xOrden TAG &xTag ENDIF CATCH TO oEx ENDTRY NEXT ENDIF ENDPROC PROCEDURE sql_ordenar LPARAMETERS xOrden, xNoInvertir THIS.STATUS ("Aplicando ndices") LOCAL oCol, oEx, oCol, xInverso IF EMPTY(xOrden) THEN xOrden="" IF NOT EMPTY(THIS.sql_ordenado) THEN xOrden=THIS.sql_ordenado ELSE FOR EACH oCol2 IN THIS.column_coll IF NOT EMPTY(oCol2.For_Orden_Tag) THEN xOrden=oCol2.For_Codigo EXIT ENDIF NEXT ENDIF ENDIF TRY oCol=THIS.column_coll(UPPER(xOrden)) CATCH TO oEx ENDTRY IF VARTYPE(oCol)="L" THEN RETURN .F. ENDIF xInverso = (THIS.sql_ordenado=UPPER(xOrden) ) and Not xNoInvertir IF xInverso THEN THIS.sql_ordenado_inverso = NOT THIS.sql_ordenado_inverso ELSE THIS.sql_ordenado_inverso = .F. ENDIF THIS.sql_ordenado=UPPER(xOrden) oCol.SQL_Ordenar(THIS.sql_alias, THIS.sql_ordenado_inverso ) SET CONSOLE OFF THIS.sql_alias=THIS.sql_alias ENDPROC PROCEDURE gri_arreglar LPARAMETERS xGrilla, xLabel THIS.STATUS ("Preparando Grilla") LOCAL xAlias xAlias = THIS.sql_alias IF NOT THIS.sql_norecmov THEN SELECT &xAlias GO BOTTOM LOCAL xRN xRN=(xGrilla.HEIGHT - xGrilla.HEADERHEIGHT)/xGrilla.ROWHEIGHT TRY SELECT &xAlias SKIP -(xRN-3) CATCH ENDTRY ENDIF THIS.for_ordenar(THIS.sql_alias) && Crea los ndices THIS.for_aplicar(xGrilla, THIS.sql_alias) this.for_dynamics (xGrilla, THIS.sql_alias) This.for_dynamics_coll_aplicar(xGrilla) THIS.sql_ordenar(, .t.) && Aplica el rden activo con "NOORDENAR=.T." xGrilla.REFRESH IF NOT THIS.sql_norecmov THEN SELECT &xAlias GO BOTTOM xGrilla.REFRESH ENDIF DO CASE * 0 - No mueve, 1 - Top, 2 - Bottom. CASE this.sql_mueve = 1 SELECT &xAlias GO Top xGrilla.REFRESH CASE this.sql_mueve = 2 SELECT &xAlias GO BOTTOM xGrilla.REFRESH ENDCASE IF TYPE("xLabel")="O" THEN xLabel.VISIBLE=.F. ENDIF this.oGrilla=xGrilla ENDPROC PROCEDURE gri_preparar LPARAMETERS xGrilla, xLabel xGrilla.RECORDSOURCE="" IF USED(this.sql_alias) AND NOT this.sql_noclose THEN SELECT (this.sql_alias) USE ENDIF IF TYPE("xLabel")="O" THEN xLabel.VISIBLE=.T. xLabel.parent.REFRESH ENDIF oDeyFunc.DEVENTS(.t.) ENDPROC PROCEDURE sql_filtrar LPARAMETERS xValidez, xGrilla THIS.STATUS ("Filtrando datos") LOCAL xAlias, xValido xAlias=THIS.sql_alias xValido=this.sql_filtro xValido_Ext=this.sql_filtro_Ext SELECT &xAlias IF xValidez THEN IF NOT EMPTY(xValido_Ext) THEN SET FILTER TO &xvalido AND &xValido_Ext ELSE SET FILTER TO &xvalido ENDIF ELSE IF NOT EMPTY(xValido_Ext) THEN SET FILTER TO NOT (&xvalido AND &xValido_Ext) ELSE SET FILTER TO NOT &xvalido ENDIF ENDIF GO TOP IF TYPE("xGrilla")="O" THEN xGrilla.refresh ENDIF ENDPROC PROCEDURE sql_crear_columnas THIS.for_add_columna("CODIGO","TMPCSDBF.COD_Ins","Codigo",100,"","", "TMPCSDBF.cod_ins", "cod_ins","codins") THIS.for_add_columna("Atr","TMPCSDBF.Atr","Atr",30,"","", "TMPCSDBF.Atr", "Atr","Atr") THIS.for_add_columna("Bul","TMPCSDBF.Bul","Bul",30,"","", "TMPCSDBF.cod_ins", "Bul","Bul") THIS.for_add_columna("DESCR","TMPCSDBF.Descr","Descripcin",190,"","", "TMPCSDBF.Descr", "Descr","Descr") THIS.for_add_columna("Inicial","TMPCSDBF.Inicial","",90,"","", "TMPCSDBF.Inicial", "Inicial","Inicial") ENDPROC PROCEDURE for_trasponer_labels LPARAMETERS xCaption LOCAL xCapT xCapT=ALLTRIM(UPPER(xcaption)) DO CASE CASE xCapT="BUL" xCaption=obul.label_corto CASE xCapT="ATR" xCaption=oAtr.label_corto CASE xCapT="ARTICULO" xCaption=oBie.label_largo ENDCASE RETURN xCaption ENDPROC PROCEDURE evn_field_rightclick LPARAMETERS xCol ENDPROC PROCEDURE sql_cerrar_tablas IF this.sql_cerrar_al_salir THEN LOCAL xalias xalias=this.sql_alias SELECT &xalias USE ENDIF ENDPROC PROCEDURE for_dynamics lparameters oGrilla, xAlias ** this.for_dynamics_coll.add( [ "dynamicbackcolor", "iif( ] + xAlias + [.id_fin=2, rgb(255,150,150), rgb(255,255,255))", "column" ] ) ENDPROC PROCEDURE status LPARAMETERS xText IF TYPE("this.status_panel") = "O" THEN this.status_panel.Text=xText ENDIF ENDPROC PROCEDURE sql_refresh LPARAMETERS oGrilla IF NOT TYPEo(oGrilla) AND typeo(this.ogrilla) THEN oGrilla=this.ogrilla endif =This.gri_preparar (oGrilla) =this.gri_arreglar (oGrilla) ENDPROC PROCEDURE evn_field_valid LPARAMETERS xCol, xRet RETURN .t. ENDPROC PROCEDURE dispose LPARAMETERS xgrilla THIS.QUERYUNLOAD ENDPROC PROCEDURE grid_sets_guardar LPARAMETERS xGrilla as Grid xGrilla=EVL(xGrilla, this.ogrilla) IF EMPTY(this.grid_sets_id) AND pub_index=0 THEN =mensaje("El ID de la grilla est vacio") RETURN .f. ENDIF IF !USED("grid_sets") THEN USE (p_system+"\grid_sets") IN 0 ENDIF this.oVal.Val_Texto="" FOR EACH cColumna as grilla_formato_columna of form_controles IN this.column_coll cColumna.oVal_GetText this.oVal.val_agregar(cColumna.for_codigo) this.oVal.val_agregar(cColumna.oVal.val_texto) NEXT LOCAL xText, xText2 xText=this.oVal.val_texto SELECT grid_sets SET ORDER TO FULLID && ID+STR(USUARIO)+STR(EMP) SEEK PADR(THIS.grid_sets_id,10) + STR(pub_index)+STR(p_codemp) IF FOUND() THEN replace datos WITH xText ELSE SET ORDER TO MIDID && ID+STR(USUARIO) SEEK THIS.grid_sets_id + STR(pub_index) IF FOUND() THEN SCATTER NAME oObj MEMO APPEND BLANK GATHER NAME oObj MEMO replace emp WITH p_codemp ELSE APPEND BLANK replace datos WITH xText replace emp WITH p_codemp replace id WITH this.grid_sets_id replace usuario WITH pub_index ENDIF ENDIF ENDPROC PROCEDURE grid_sets_cargar LPARAMETERS xGrilla AS GRID IF EMPTY(THIS.grid_sets_id) THEN =mensaje("El ID de la grilla est vacio") RETURN .F. ENDIF IF ! USED("grid_sets") THEN USE (p_system+"\grid_sets") IN 0 ENDIF LOCAL xSalir, xNombre, xTexto, xCol xTexto="" SELECT grid_sets SET ORDER TO FULLID && ID+STR(USUARIO)+STR(EMP) SEEK PADR(THIS.grid_sets_id,10) + STR(pub_index)+STR(p_codemp) IF FOUND() THEN xTexto=Datos ELSE SET ORDER TO MIDID && ID+STR(USUARIO) SEEK PADR(THIS.grid_sets_id,10) + STR(pub_index) IF FOUND() THEN xTexto=Datos ENDIF ENDIF THIS.oVal = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") THIS.oVal.set_div = "GRS" THIS.oVal.set_Head = "HGRS" THIS.oVal.Val_Texto=xTexto xSalir=.F. DO WHILE NOT xSalir TRY xNombre = ALLTRIM(UPPER(THIS.oVal.val_coleccion_next())) xTexto = THIS.oVal.val_coleccion_next() xCol=THIS.column_coll(xNombre) =xCol.oVal_SetText(xTexto) CATCH xSalir=.T. ENDTRY ENDDO ENDPROC PROCEDURE leer_gf LPARAMETERS oGF AS grilla_formato OF "form_controles.vcx" LOCAL ARRAY aParCh (1) LOCAL nIt, xTX, xTX2, xPar LOCAL xFor as grilla_formato_columna OF form_controles.vcx IF AMEMBERS(aParCh, oGF,0,"C")=0 THEN RETURN .f. ENDIF FOR EACH xPar IN aParCH IF INLIST(xPar,"NAME") THEN LOOP ENDIF xTX="This."+xPar xTX2="oGF."+xPar &xTX=&xTX2 NEXT *!* FOR EACH xFor IN oGF.column_coll *!* THIS.column_coll.ADD(xFor, UPPER(xFor.For_Codigo)) *!* NEXT *!* this.column_coll_default = oGF.column_coll_default *!* this.fil_autofiltro_campo = oGF.fil_autofiltro_campo *!* this.fil_autofiltro_campos = oGF.fil_autofiltro_campos *!* this.fil_autofiltro_creado = oGF.fil_autofiltro_creado *!* this.fil_filtrado = oGF.fil_filtrado *!* this.fil_filtro = oGF.fil_filtro *!* this.for_dynamics_coll = oGF.for_dynamics_coll *!* this.for_fontsize = oGF.for_fontsize *!* this.for_localizar = oGF.for_localizar *!* this.for_recordsource = oGF.for_recordsource *!* this.for_recordsourcetype = oGF.for_recordsourcetype *!* this.grid_sets_id = oGF.grid_sets_id *!* this.oval = oGF.oVal *!* this.slq_totalizar = oGF.slq_totalizar *!* this.sql_alias = oGF.sql_alias *!* this.sql_cerrar_al_salir =oGF.sql_cerrar_al_salir *!* this.sql_filtro = oGF.sql_filtro *!* this.sql_filtro_ext = oGF.sql_filtro_ext *!* this.sql_noclose = oGF.sql_noclose *!* this.sql_norecmov = oGF.sql_norecmov *!* this.sql_ordenado = oGF.sql_ordenado *!* this.sql_totalizar = oGF.sql_totalizar *!* this.status_panel = oGF.status_panel ENDPROC PROCEDURE coll_ordenado LOCAL oColl as Collection, oCol as Column, oGFC as grilla_formato_columna OF form_controles.vcx , nIt as Integer oColl=NEWOBJECT("Collection") FOR nIt = 1 TO this.column_coll.Count FOR EACH oGFC as grilla_formato_columna IN this.column_coll oCol = oGFC.columna IF oCol.ColumnOrder = nIt THEN oColl.Add (oGFC, oGFC.for_codigo) EXIT ENDIF NEXT NEXT RETURN oColl ENDPROC PROCEDURE grid_sets_default **** Guardar los seteos por defecto de la grilla LOCAL oCol as grilla_formato_columna OF form_controles.vcx LOCAL oCol2 as grilla_formato_columna OF form_controles.vcx this.column_coll_default = NEWOBJECT("Collection") FOR EACH oCol IN this.column_coll oCol2=ocol.Copy this.column_coll_default.add (oCol2, oCol2.for_codigo ) NEXT ENDPROC PROCEDURE for_dynamics_coll_aplicar LPARAMETERS xGrid LOCAL sDyn FOR EACH sDyn IN this.for_dynamics_coll xGrid.SetAll(&sDyn) NEXT IF this.for_fontsize#-1 THEN xGrid.SetAll("FontSize", this.for_fontsize) ENDIF ENDPROC PROCEDURE fil_autofiltro LPARAMETERS xTexto, xGrid SELECT (THIS.sql_alias) IF EMPTY(xTexto) AND EMPTY(this.fil_filtro ) THEN SELECT (THIS.sql_alias) SET FILTER TO IF THIS.fil_filtrado THEN THIS.fil_filtrado=.F. ENDIF xGrid.REFRESH RETURN .F. ENDIF IF NOT THIS.fil_autofiltro_creado THEN THIS.Fil_AutoFiltro_Crear() ENDIF IF NOT THIS.fil_filtrado THEN THIS.fil_filtrado=.T. ENDIF LOCAL TXFiltrado, xTexto2, xFiltro2 TXFiltrado=THIS.fil_autofiltro_campo IF this.fil_autofiltro_mayusculas THEN xTexto=UPPER(xTexto) ENDIF xTexto2="'"+xTexto+"'" xFiltro2=THIS.fil_filtro SELECT (THIS.sql_alias) IF TYPE(TXFiltrado)#"U" AND NOT EMPTY(xTexto) THEN IF EMPTY(xFiltro2) THEN SET FILTER TO &xTexto2$&TXFiltrado ELSE SET FILTER TO &xTexto2$&TXFiltrado AND &xFiltro2 ENDIF ELSE SET FILTER TO &xFiltro2 ENDIF GO TOP xGrid.REFRESH ENDPROC PROCEDURE fil_autofiltro_crear SELECT (This.sql_alias) LOCAL xOrigen, xCampo, xSTR, xDestino xDestino=this.fil_autofiltro_campo xOrigen="" xSigno="" =This.fil_autofiltro_campos_crear() FOR EACH xCampo IN this.fil_autofiltro_campos xSTR="" DO CASE CASE TYPE(This.sql_alias+"."+xCampo)="C" xSTR=xCampo CASE TYPE(This.sql_alias+"."+xCampo)="M" xSTR=xCampo CASE TYPE(This.sql_alias+"."+xCampo)="N" xSTR="Str("+xCampo+",20,2)" CASE TYPE(This.sql_alias+"."+xCampo)="D" xSTR="DTOC("+xCampo+")" CASE TYPE(This.sql_alias+"."+xCampo)="T" xSTR="DTOC("+xCampo+")" ENDCASE IF this.fil_autofiltro_mayusculas THEN xSTR="UPPER("+xSTR+")" ENDIF IF NOT EMPTY(xSTR) THEN xOrigen=xOrigen+xSigno+xSTR xSigno="+" ENDIF NEXT SELECT (This.sql_alias) IF TYPE(xDestino)="U" THEN IF ISEXCLUSIVE() THEN ALTER table (This.sql_alias) ADD COLUMN &xDestino M(4) ELSE RETURN .f. ENDIF ENDIF IF NOT EMPTY(xOrigen) THEN replace &xDestino WITH &xOrigen ALL ENDIF this.fil_autofiltro_creado = .t. ENDPROC PROCEDURE evn_field_keypress LPARAMETERS xCol, nKeyCode, nShiftAltCtrl ENDPROC PROCEDURE sql_reposicionar_mover IF NOT this.sql_reposicionar THEN RETURN .f. ENDIF IF USED(this.sql_alias) AND this.sql_reposicionar_obtenido THEN LOCAL xCampo xCampo=this.sql_reposicionar_campo SELECT (this.sql_alias) LOCATE FOR &xCampo=this.sql_reposicionar_valor IF !FOUND() THEN GO TOP ENDIF ENDIF ENDPROC PROCEDURE sql_reposicionar_obtener IF NOT this.sql_reposicionar THEN RETURN .f. ENDIF IF USED(this.sql_alias) THEN this.sql_reposicionar_obtenido =.t. This.sql_reposicionar_valor = EVALUATE(this.sql_alias +"."+this.sql_reposicionar_campo ) ENDIF ENDPROC PROCEDURE leer_parametros LPARAMETERS oPar as exportaciones_parametros of f:\sistema\2000\imp_exp.vcx this.for_add_columna() FOR nit=1 TO ALEN(oPar.ex_xls_campos_agregar,1) *!* THIS.ex_xls_campos(xPos,1)=xField *!* THIS.ex_xls_campos(xPos,2)=xLabel *!* THIS.ex_xls_campos(xPos,3)=xTotal_Separa *!* THIS.ex_xls_campos(xPos,4)=xTotal_General *!* IF NOT EMPTY(xOperacion) THEN *!* THIS.ex_xls_campos(xPos,5)=xOperacion *!* ENDIF *!* THIS.ex_xls_campos(xPos,6)=xFormato this.for_add_columna(, "."+oPar.ex_xls_campos_agregar(nIt,1), oPar.ex_xls_campos_agregar(nIt,2), , ,; , , , , , , , ,, , , ,oPar.ex_xls_campos_agregar(nIt,4), oPar.ex_xls_campos_agregar(nIt,3), , ) *!* LPARAMETERS xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, ; *!* xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, ; *!* xFor_Autosize, xfor_aling, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit, xGrupo NEXT ENDPROC PROCEDURE importar_columna LPARAMETERS oCol ENDPROC PROCEDURE leer_columna_gf LPARAMETERS nCol as Integer, oGF as grilla_formato of form_controles.cvx oCol=oGF.column_coll(nCol) ENDPROC PROCEDURE leer_columna LPARAMETERS oCol as grilla_formato_columna of form_controles.vcx LOCAL oCol as grilla_formato_columna of form_controles.vcx oCol2=NEWOBJECT("grilla_formato_columna","form_controles") oDeyFunc.Clonar_Objeto(oCol, @oCol2) this.for_add_ocolumna(oCol2) ENDPROC PROCEDURE for_add_ocolumna LPARAMETERS oFor AS grilla_Formato_columna OF form_Controles.vcx, xNuevoCodigo AS Boolean IF xNuevoCodigo THEN oFor.For_Codigo=SYS(2015) ENDIF oFor.opar_aplicar_formato=THIS.for_aplicar_formato THIS.column_coll.ADD(oFor, UPPER(oFor.For_Codigo)) RETURN oFor ENDPROC PROCEDURE for_columna_reordenar LPARAMETERS xKey, xPosicion LOCAL oCol oCol = This.column_coll.Item(xKey) This.column_coll.Remove (oCol.for_codigo ) This.column_coll.Add(oCol, oCol.for_codigo,,xPosicion-1) ENDPROC PROCEDURE evn_column_moved LPARAMETERS oCol, xPosicion ENDPROC PROCEDURE Init LPARAMETERS xGrid, xForm this.fil_autofiltro_campos = NEWOBJECT("Collection") this.for_dynamics_coll = NEWOBJECT("Collection") this.oVal = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") this.oVal.set_div = "GRS" this.oVal.set_Head = "HGRS" IF TYPE("xGrid")="O" THEN this.leer_grid (xGrid,xform) ENDIF ENDPROC n"UUFQ %luU  T- <TCC fCC   6 T"CCODIGOC f CGRUPO T C  CUXCOLUMNAS_COLLOCOLOITMTHISLV LISTITEMSCLEARGRUPOS_CARGADOSGF COLUMN_COLLADD FOR_CODIGOCOL_DESCRIPCION FOR_CAPTIONCHECKEDCOL_SELECCIONADA LISTSUBITEMS COL_GRUPORESIZETC Collection}%y'CC  CC f BU OCOLLOCOLOITMTHISLV LISTITEMSCHECKEDADDGF COLUMN_COLLKEYjTCCf T- OTC Y BUXCOLXSELTHISLV LISTITEMSCHECKEDTC %C lTIN  T  T TC%C T%CR.T FA%CC   C    <xValorActual = this.oCNV.cnv_normalizar(&xCampo,, xTrim) <xValorNuevo = this.oCNV.cnv_normalizar(&xValor,, xTrim) % AT  CC |6: > ( 0T  Error ():  %{&CError ():  (REPLACE &xCampo WITH &xValor &xAlias UXCOLUMNAXCAMPOXVALORXTABLAXTRIMXNOSELECCIONADAXALIASXTEXTOTHIS COL_SELECTED XVALORACTUAL XVALORNUEVOXCAMBIOSOEXMESSAGEP_DEVMENSAJE,_     B%C.C C    %TC TC. YBC UOGFXCOLUMNAXNEGADOXCODIGO XCTRLSOURCEXCAPTIONXANCHOXFORMATO XINPUTMASKXSQLCOLXORDENXTAG XSELECCIONADA XDESCRIPCIONXCONTROL XREADONLY XEVN_NOT_WHEN XFOR_AUTOSIZE XFOR_ALINGXFOR_BACKCOLORXFOR_TOTALIZAR XFOR_RUNTOTAL XFOR_AUTOFITTHIS COL_SELECTEDFOR_ADD_COLUMNAdQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERB%C.C  C    TC TC %BC U OIMP_XLSXCOLUMNAXNEGADO XLSNOMBRE XLSFORMATOXLSDESCRIPCIONDBFCAMPO DBFFORMATO DBFOPCIONALTHIS COL_SELECTEDAGREGAR_COLUMNAdQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERB%C.C  C    TC TC %BC U OIMP_XLSXCOLUMNAXNEGADO XLSNOMBRE XLSFORMATOXLSDESCRIPCIONDBFCAMPO DBFFORMATO DBFOPCIONALTHIS COL_SELECTEDAGREGAR_COLUMNA_VACIA& B C UXVALIDOXCOLUMNATHIS COL_SELECTEDQMSCOMCTLLIB.ListItemT % T-T-%TC^T a TC^T -U VNEWVALOITTHISENABLEDLV CHECKBOXES LISTITEMSCHECKED FORECOLORBOLDK$T$TUTHISLVWIDTHLEFTHEIGHTTOP6TC sys_conversorsys_conversores.prg6TC Data_Statussys_clases_tablas.prg CC C CUTHISOCNVODSRESIZEGFFOR_ADD_COLUMNACOL_RECARGAR_COLUMNAS SQL_REFRESH sql_refresh0sel_column_coll_access col_selectedcol_reemplazarfor_add_columnaimp_agregar_columna? imp_agregar_columna_vacia validar] enabled_assign ResizeInit1qq1!A3q!qAA3qqA21!AAAA1AbACA4#1A2A%21RB2A"21RB22q!!q!AAA3AA3aa1>Jm!#(B$ XI4 scPrW ~Z0k-nH&)U cPROCEDURE leer_archivos LPARAMETERS xPath, zidcausa, zidcpbtnum this.lv.ListItems.Clear () this.btcopiar.Enabled=.F. LOCAL oID as Importaciones_Documentos OF IMP_EXP_P.PRG LOCAL oDoc as Documento OF IMP_EXP_P.PRG oID=this.oimp_doc oID.Leer_Archivos (xPath, zidcausa, zidcpbtnum,oID.documentos ) this.fil_directorio = oID.conECTOR.origen LOCAL oLVI as MSComctlLib.ListItem, oLVISS as MSComctlLib.ListSubItems FOR EACH oDoc as Documento OF IMP_EXP_P.PRG IN oID.DoCUMENTOS oLVI=this.LV.ListItems.Add(,oDoc.ARCHIVO ,oDoc.ARCHIVO ,0,0) oLVI.Tag=oDoc IF oDoc.a_IMPORTAR THEN oLVI.ForeColor= RGB(220,0,0) oLVI.Bold = .t. this.btcopiar.Enabled=.t. ENDIF oLVISS=oLVI.listSubItems oLVIS=oLVISS.Add(,,oDoc.CPBT_Asociado_Texto) this.aplicar_formato(oDoc) oLVIS=oLVISS.Add(,,oDoc.Fecha ) this.aplicar_formato(oDoc) oLVIS=oLVISS.Add(,,oDoc.Tipo) this.aplicar_formato(oDoc) NEXT this.ckOtros.Visible = oID.Tiene_ASOCIADOS ENDPROC PROCEDURE obtener_marcados LPARAMETERS oDocs AS Documentos OF imp_exp_p.prg, xSolo_Seleccionado IF TYPE("oDocs")#"O" THEN oDocs=NEWOBJECT("Documentos", "imp_exp_p.prg") ENDIF LOCAL oDoc AS Documento OF imp_exp_p.prg IF NOT xSolo_Seleccionado FOR EACH oIt IN THIS.lv.ListItems IF oIt.checked THEN oDoc=oIt.TAG oDocs.agregar_archivo ( oDoc) ENDIF NEXT ENDIF IF oDocs.COUNT=0 AND this.lv.ListItems.Count>=0 THEN oIt = THIS.lv.SELECTEDITEM =sys_m("DW") oDoc=oIt.TAG oDocs.agregar_archivo ( oDoc) ENDIF RETURN oDocs ENDPROC PROCEDURE abrir_archivo this.oimp_doc.Abrir_Archivos(this.obtener_marcados()) ENDPROC PROCEDURE mostrar_guardar_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.mostrar_guardar = m.vNewVal this.btcopiar.Visible = m.vNewVal ENDPROC PROCEDURE aplicar_formato LPARAMETERS oDoc IF oDoc.a_IMPORTAR THEN oLVIS.ForeColor= RGB(220,0,0) oLVIS.Bold = .t. ENDIF ENDPROC PROCEDURE obtener_tilde_todo LPARAMETERS oDocs AS Documentos OF imp_exp_p.prg IF TYPE("oDocs")#"O" THEN oDocs=NEWOBJECT("Documentos", "imp_exp_p.prg") ENDIF LOCAL oDoc AS Documento OF imp_exp_p.prg FOR EACH oIt IN THIS.lv.ListItems IF oIt.checked THEN oDoc=oIt.TAG oDocs.agregar_archivo ( oDoc) ENDIF NEXT IF oDocs.COUNT=0 THEN FOR EACH oIt IN THIS.lv.ListItems oDoc=oIt.TAG oDocs.agregar_archivo ( oDoc) NEXT ENDIF RETURN oDocs ENDPROC PROCEDURE Init this.oimp_doc = NEWOBJECT("Importaciones_Documentos", "IMP_EXP_P.PRG") this.btCopiar.Visible = this.mostrar_confirmar this.btCopiar.visible=this.mostrar_guardar This.btInvertir.Left = this.Width - this.btinvertir.Width - 2 This.btNinguno.Left = this.btInvertir.left - this.btNinguno.Width - 2 This.btTodos.left = this.btNinguno.left - this.btinvertir.Width - 2 This.btTodos.Anchor=8 This.btNinguno.Anchor=8 This.btInvertir.Anchor=8 ENDPROC &"&&%\{$$3"U8 C CCUXORIGENTHISEVN_HEADER_DBLCLICKPARENT UXCOL8 C CCUXORIGENTHISEVN_HEADER_CLICKPARENT UXCOL8 C CCUXORIGENTHISEVN_FIELD_CLICKPARENT8 C CCUXORIGENTHISEVN_FIELD_DBLCLICKPARENTr  C TCCT BUXRETXORIGENARETOOBJPARENTTHISEVN_FIELD_WHEN EVN_NOT_WHEN8 C CCUXORIGENTHISEVN_FIELD_GOTFOCUSPARENT8 C CCUXORIGENTHISEVN_FIELD_LOSTFOCUSPARENT UXCOL UXCOL UXCOL UXCOL BaUXCOLXRETT-UTHISCOLUMNA QCOLUMNQBOOLEAN%COGT aT%CO CTT T  T  T  TTTCCfTCCfT%T%  C %C CUOCOLXAUTOFIT_GLOBALTHISCOLUMNAAPLICAR_CONTROLWIDTH FOR_ANCHOHEADER1CAPTION FOR_CAPTION ALIGNMENT FOR_ALIGN CONTROLSOURCEFOR_CONTROLSOURCEFORMAT FOR_FORMATO INPUTMASK FOR_INPUTMASKTAG FOR_CODIGONAMEREADONLY FOR_READONLY FOR_BACKCOLOR BACKCOLOR FOR_AUTOFITAUTOFITTYPEO OPAR_FORMATOOPAR_APLICAR_FORMATOFO_APLICA_CONTROLNT%COG2CDblClickheader_dblclick,CClick header_click%Header+CDblClickfield_dblclick%CClick field_click/C RightClickfield_rightclick&CWhen field_when-C LostFocusfield_lostfocus+CGotFocusfield_gotfocus+CKeyPressfield_KeyPress%CValid field_valid)CMoved column_movedUOCOLTHISCOLUMNAOCONTROLHEADER1CONTROLSCLASSr  T ?%C ;T%C ~SELECT &xAlias % "SET ORDER TO &xOrden ASCENDING #SET ORDER TO &xOrden DESCENDING  T -T aC (^ T-G  TUXALIASXINVERSOXORDENOCOL2AOEXTHIS FOR_ORDEN_TAGCOLUMNAPARENTCOLUMNSHEADER1FONTBOLDREFRESHK' T G~(form_grilla_ControlesTC {%%}%C T 'T C {%%}'%C  CoColbO D C |  g% HeadercC (C@1TCCC{%%}TextCCZ &TCC{%%} C(d -C(`%CError al instanciar TTCoCol.Ta T  !T ( T- .C (<U OCOLOEXNIT XEXTRADATAOOBJXNOMBREXCONTROLOEXO1OEXO2OCONTROLTHISCOLUMNAFORM_GRILLA_CONTROLES FOR_CAPTION EXTRADATA COL_CONTROL ACONTROLESODEYFUNCSPLIT_TO_ARRAYCONTROLSCLASS REMOVEOBJECTNAME ADDOBJECTSYS_MCURRENTCONTROLVISIBLECAPTIONSPARSEPARENT FOR_SPARCE EXTRA_DATA8 C CCUXORIGENTHISEVN_FIELD_RIGHTCLICKPARENT UXCOLK  C CCUNKEYCODE NSHIFTALTCTRLXORIGENTHISEVN_FIELD_KEYPRESSPARENTBaUXCOLNKEYCODE NSHIFTALTCTRL  C TCCT T BUXRETXORIGENARETOOBJPARENTTHISEVN_FIELD_VALID EVN_NOT_VALID BaUXCOLXRETyQCOLUMNTTCCCU XCOLTHISCOLUMNAOVAL VAL_TEXTO VAL_AGREGAREXNAME COLUMNORDERWIDTHQCOLUMNTT TCTCT C U XTEXTXCOLTHISCOLUMNAOVAL VAL_TEXTONAMEVAL_COLECCION_NEXTEX COLUMNORDERWIDTHZ7QGRILLA_FORMATO_COLUMNAform_controles.vcx "%CCb|B-;TCgrilla_formato_columnaform_controles.vcx(CJ'%CCNAMECOLUMNA.ToCol.CTThis.C&xTX=&xTX2  BUOCOLFORM_CONTROLESVCXAPARCHNITXTXXTX2THIS5 C CCUXORIGENTHISEVN_COLUMN_MOVED7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx T*C'NAME','COLUMNA' BUOCOLFORM_CONTROLESVCXOCOL2COL2THISODEYFUNC CLONAR_OBJETO     Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx/TCExportar_Texto Imp_Exp.vcxTGRSCDTHGRSCD%&TCCC6&TCCN6&T CCC6&T!CCC6&T"CCC6&T#CCC6&T$CCC6&T%CC C 6&T&CC C 6$T'CCL-6&T(CCN6%CNT) `%CCBH> CbN$T) 2>T) \T)/T*CCN C^6$T+CCL-6$T,CCL-6$T-CCL-6T.T/ FT0CC CC  CCC66&T1CC C 6T2C T C3C4U5XCOL XUSAFORMATOXCODIGO XCTRLSOURCEXCAPTIONXANCHOXFORMATO XINPUTMASKXSQLCOLXORDENXTAG XSELECCIONADA XDESCRIPCIONXCONTROL XREADONLY XEVN_NOT_WHEN XFOR_AUTOSIZE XFOR_ALIGNXFOR_BACKCOLORXFOR_TOTALIZAR XFOR_RUNTOTAL XFOR_AUTOFITXGRUPO OPAR_FORMATOIMP_EXPVCXTHISOVALSET_DIVSET_HEAD FOR_CODIGO FOR_ANCHO FOR_CAPTIONFOR_CONTROLSOURCE FOR_FORMATO FOR_INPUTMASK FOR_SQLCOL FOR_ORDEN FOR_ORDEN_TAG FOR_READONLY FOR_AUTOSIZE FOR_ALIGN FOR_BACKCOLOR FOR_TOTALIZAR FOR_RUNTOTAL FOR_AUTOFIT EVN_NOT_WHENCOL_SELECCIONADACOL_DESCRIPCION COL_CONTROL COL_GRUPOAPLICAR_CONTROL COL_BINDSheader_dblclick0evn_header_dblclick header_clickevn_header_click field_click5field_dblclick field_whenfield_gotfocusfield_lostfocus4evn_field_clickevn_field_dblclickevn_field_gotfocusevn_field_lostfocusevn_field_when queryunload)aplicar_formatoQ col_binds sql_ordenarB aplicar_control0 field_rightclickevn_field_rightclick/field_keypressGevn_field_keypress field_validevn_field_valid oval_gettext' oval_settextcopy column_movedclonarseInit1q2q3q2q3q2q2qA2q2q2q3q3q3q2r33rA2a11111qq2q1AAaAA2qq"rQaQAAA32Q!!A!1AAA1AaA2qq!Aqrqs1ABaQQQAAAA1ABE5q2q32q2qAQ2r31aaa2q2A5r"qAqAAA2A2qr2d aaaaaaaaaAaqraAAAAAAAaaa2r& M_ PqC'",&>P1(y5*9,=.%J@1l~F3R JPr le => ;^ 6$<AK&I)&&VPROCEDURE header_dblclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.EVN_Header_DblClick(xOrigen(1).parent) ENDPROC PROCEDURE evn_header_dblclick LPARAMETERS xCol ENDPROC PROCEDURE header_click LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_header_click (xOrigen(1).parent) ENDPROC PROCEDURE evn_header_click LPARAMETERS xCol ENDPROC PROCEDURE field_click LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_click (xOrigen(1).parent) ENDPROC PROCEDURE field_dblclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_dblclick(xOrigen(1).parent) ENDPROC PROCEDURE field_when LPARAMETERS xRet LOCAL ARRAY xOrigen(3) LOCAL aret, oObj AEVENTS(xOrigen,0) oObj=xOrigen(1).parent =this.evn_field_when (oObj) aRet=not this.evn_not_when RETURN aRet ENDPROC PROCEDURE field_gotfocus LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_gotfocus (xOrigen(1).parent) ENDPROC PROCEDURE field_lostfocus LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_lostfocus (xOrigen(1).parent) ENDPROC PROCEDURE evn_field_click LPARAMETERS xCol ENDPROC PROCEDURE evn_field_dblclick LPARAMETERS xCol ENDPROC PROCEDURE evn_field_gotfocus LPARAMETERS xCol ENDPROC PROCEDURE evn_field_lostfocus LPARAMETERS xCol ENDPROC PROCEDURE evn_field_when LPARAMETERS xCol,xret RETURN .t. ENDPROC PROCEDURE queryunload this.columna=.f. ENDPROC PROCEDURE aplicar_formato LPARAMETERS oCol as Column , xAutoFit_Global as Boolean IF VARTYPE(oCol)="O" THEN this.columna=oCol ELSE oCol=this.columna ENDIF IF VARTYPE(this.columna)="O" THEN this.aplicar_control() oCol.width = this.for_ancho oCol.Header1.caption = this.for_caption oCol.Header1.Alignment= 9 oCol.Alignment=this.for_align oCol.controlsource = this.for_controlsource oCol.format = this.for_formato oCol.inputmask = this.for_inputmask oCol.Tag=UPPER(ALLTRIM(This.For_Codigo)) oCol.Name=UPPER(ALLTRIM(This.For_Codigo)) * this.columna.Header1.fontUnderline=not EMPTY(This.For_Orden_Tag) oCol.ReadOnly=this.for_readonly IF this.for_backcolor#-1 THEN oCol.BackColor= this.For_BackColor ENDIF IF This.For_autofit OR xAutoFit_Global THEN oCol.AutoFit() ENDIF IF typeo(this.opar_formato) AND this.opar_Aplicar_Formato THEN this.opar_formato.fo_Aplica_control(This.Columna) ENDIF ENDIF ENDPROC PROCEDURE col_binds LPARAMETERS oCol THIS.columna = oCol LOCAL oControl IF VARTYPE(THIS.columna)="O" THEN *=sys_m("binds", TYPE("This.Columna.Text1")="O") BINDEVENT(THIS.columna.Header1,"DblClick", THIS,"header_dblclick") BINDEVENT(THIS.columna.Header1,"Click", THIS,"header_click") FOR EACH oControl IN This.Columna.Controls IF oControl.Class#"Header" THEN BINDEVENT(oControl,"DblClick", THIS,"field_dblclick") BINDEVENT(oControl,"Click", THIS,"field_click") BINDEVENT(oControl,"RightClick", THIS,"field_rightclick") BINDEVENT(oControl,"When", THIS,"field_when",1) BINDEVENT(oControl,"LostFocus", THIS,"field_lostfocus") BINDEVENT(oControl,"GotFocus", THIS,"field_gotfocus") BINDEVENT(oControl,"KeyPress", THIS,"field_KeyPress") BINDEVENT(oControl,"Valid", THIS,"field_valid") ENDIF NEXT BINDEVENT(THIS.columna,"Moved", THIS,"column_moved") ENDIF ENDPROC PROCEDURE sql_ordenar LPARAMETERS xAlias, xInverso LOCAL xOrden, oCol2, a, oEx a=1 TRY IF NOT EMPTY(THIS.For_Orden_Tag) THEN xOrden=THIS.For_Orden_Tag IF NOT EMPTY(xAlias) THEN SELECT &xAlias ENDIF IF NOT xInverso THEN SET ORDER TO &xOrden ASCENDING ELSE SET ORDER TO &xOrden DESCENDING ENDIF FOR EACH oCol2 IN THIS.columna.PARENT.COLUMNS oCol2.Header1.FONTBOLD=.F. NEXT THIS.columna.Header1.FONTBOLD=.T. THIS.columna.PARENT.REFRESH() ENDIF CATCH TO oEx xOrden=.F. SET CONSOLE OFF ENDTRY a=a ENDPROC PROCEDURE aplicar_control LOCAL oCol, oEx, nIt, xExtraData, oObj, xNombre, xControl, oExO1, oExO2 LOCAL oControl oCol=THIS.columna SET CLASSLIB TO form_grilla_Controles ADDITIVE xExtraData = STREXTRACT(THIS.for_caption, "{%","%}") IF NOT EMPTY(xExtraData ) THEN THIS.extradata = xExtraData ENDIF THIS.for_caption = STRTRAN(THIS.for_caption, "{%"+xExtraData+"%}","") IF NOT EMPTY(THIS.col_control) AND TYPE("oCol")="O" THEN LOCAL xNombre LOCAL ARRAY aControles(1) oDeyFunc.Split_to_Array(@aControles, THIS.col_control, "|") *=sys_m("Columnas") FOR EACH oControl IN THIS.columna.CONTROLS * DO WHILE THIS.columna.CONTROLCOUNT>1 IF oControl.CLASS#"Header" THEN oCol.REMOVEOBJECT(oControl.NAME) ENDIF * ENDDO NEXT FOR nIt=1 TO ALEN(aControles,1) xNombre = EVL(STREXTRACT(aControles(nIt), "{%","%}"), "Text"+ALLTRIM(STR(nIt))) xControl = STRTRAN(aControles(nIt), "{%"+xNombre+"%}","") TRY oCol.ADDOBJECT(xNombre , xControl) CATCH TO oExO1 TRY oCol.ADDOBJECT(xNombre , xControl ) CATCH TO oExO2 =Sys_m("Error al instanciar "+xControl) ENDTRY ENDTRY oCol.CURRENTCONTROL=xNombre oObj= EVALUATE("oCol."+xNombre) oObj.VISIBLE=.T. TRY oObj.CAPTION="" CATCH ENDTRY * =sys_mostrar_screen("Aplicar.",.t.) TRY oCol.SPARSE = (oCol.PARENT.For_Sparce AND oObj.For_Sparce) CATCH TO oEx oCol.SPARSE=.F. ENDTRY TRY oObj.Extra_Data(THIS.extradata ) CATCH TO oEx ENDTRY NEXT ENDIF ENDPROC PROCEDURE field_rightclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_rightclick (xOrigen(1).parent) ENDPROC PROCEDURE evn_field_rightclick LPARAMETERS xCol ENDPROC PROCEDURE field_keypress LPARAMETERS nKeyCode, nShiftAltCtrl LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_keyPress (xOrigen(1).parent,nKeyCode, nShiftAltCtrl) ENDPROC PROCEDURE evn_field_keypress LPARAMETERS xCol,nKeyCode, nShiftAltCtrl RETURN .t. ENDPROC PROCEDURE field_valid LPARAMETERS xRet LOCAL ARRAY xOrigen(3) LOCAL aret, oObj AEVENTS(xOrigen,0) oObj=xOrigen(1).parent =this.evn_field_valid (oObj, this) aRet=not this.evn_not_valid xOrigen(1).evn_not_valid =this.evn_not_valid RETURN aRet ENDPROC PROCEDURE evn_field_valid LPARAMETERS xCol,xret RETURN .t. ENDPROC PROCEDURE oval_gettext LOCAL xCol as Column xCol=this.columna this.oVal.Val_Texto="" this.oVal.Val_AgregarEx(xCol.Name) this.oVal.Val_AgregarEx(xCol.ColumnOrder) this.oVal.Val_AgregarEx(xCol.Width) ENDPROC PROCEDURE oval_settext LPARAMETERS xText LOCAL xCol as Column xCol=this.columna This.oVal.Val_Texto=xText TRY xCol.Name =this.oVal.val_coleccion_NextEx(,"") xCol.ColumnOrder=this.oVal.val_coleccion_NextEx(,0 ) xCol.Width=this.oVal.val_coleccion_NextEx(,0) CATCH ENDTRY *!* this.oVal.Val_AgregarEx(xCol.Name) *!* this.oVal.Val_AgregarEx(xCol.ColumnOrder) *!* this.oVal.Val_AgregarEx(xCol.Width) ENDPROC PROCEDURE copy LOCAL oCol as grilla_formato_columna OF form_controles.vcx LOCAL ARRAY aParCh (1) LOCAL nIt, xTX, xTX2 IF AMEMBERS(aParCh, this, 0,"C")=0 THEN RETURN .f. ENDIF oCol=NEWOBJECT("grilla_formato_columna","form_controles.vcx") FOR nIt =1 TO ALEN(aParCH) IF INLIST(aParCH(nIT),"NAME", "COLUMNA") THEN LOOP ENDIF xTX="oCol."+aParCH(nIt) xTX2="This."+aParCH(nIt) &xTX=&xTX2 NEXT RETURN oCol ENDPROC PROCEDURE column_moved LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_column_moved (xOrigen(1)) ENDPROC PROCEDURE clonarse LPARAMETERS oCol as grilla_formato_columna of form_controles.vcx LOCAL oCol2 as grilla_formato_columna of form_controles.vcx Col2=this oDeyFunc.Clonar_Objeto(@oCol,@Col2, , , "'NAME','COLUMNA'") RETURN this ENDPROC PROCEDURE Init LPARAMETERS xCol, xUsaFormato,xCodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, ; xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xControl, xReadOnly, xevn_not_when, ; xfor_autosize, xfor_align, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit, xGrupo, ; oPar_Formato as exportaciones_parametros_Formato of imp_exp.vcx THIS.oVal = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") THIS.oVal.set_div = "GRSCD" THIS.oVal.set_Head = "HGRSCD" IF xUsaFormato THEN THIS.for_codigo=IIF(VARTYPE(xCodigo)="C",xCodigo,"") THIS.for_ancho= IIF(VARTYPE(xAncho)="N",xAncho,30) THIS.for_caption = IIF(VARTYPE(xCaption)="C",xCaption,"") THIS.for_controlsource = IIF(VARTYPE(xCtrlSource)="C",xCtrlSource,"") THIS.for_formato = IIF(VARTYPE(xFormato)="C",xFormato,"") THIS.for_inputmask = IIF(VARTYPE(xInputMask)="C",xInputMask,"") THIS.for_SQLCol = IIF(VARTYPE(xSQLCol)="C",xSQLCol,"") THIS.for_Orden = IIF(VARTYPE(xOrden)="C",xOrden,"") THIS.for_Orden_Tag= IIF(VARTYPE(xTag)="C",xTag,"") THIS.For_ReadOnly = IIF(VARTYPE(xReadOnly)="L",xReadOnly,.F.) THIS.For_Autosize = IIF(VARTYPE(xfor_autosize)="N",xfor_autosize,0) IF VARTYPE(xfor_align)="N" THIS.for_align= xfor_align ELSE IF VARTYPE(xCtrlSource)="C" DO CASE CASE TYPE(xCtrlSource)="N" THIS.for_align=1 OTHERWISE THIS.for_align=3 ENDCASE ELSE THIS.for_align= 3 ENDIF ENDIF THIS.For_BackColor= IIF(VARTYPE(xFor_BackColor)="N", xFor_BackColor, RGB(255,255,255)) THIS.For_totalizar = IIF(VARTYPE(xFor_Totalizar)="L",xFor_Totalizar,.F.) THIS.For_RunTotal = IIF(VARTYPE(xFor_RunTotal)="L",xFor_RunTotal,.F.) THIS.For_AutoFit = IIF(VARTYPE(xFor_AutoFit)="L",xFor_AutoFit,.F.) ENDIF THIS.evn_not_when = xevn_not_when THIS.col_seleccionada = xSeleccionada THIS.col_descripcion = IIF(VARTYPE(xDescripcion)="C" AND NOT EMPTY(xDescripcion),xDescripcion,IIF(VARTYPE(xCaption)="C",xCaption,"")) THIS.col_control=IIF(VARTYPE(xControl)="C",xControl,"") this.col_grupo= EVL(xGrupo,"") This.oPar_formato = oPar_Formato =THIS.aplicar_control() =THIS.col_binds(xCol) ENDPROC Height = 22 Width = 25 for_sqlcol = .F. for_codigo = .F. col_seleccionada = .F. for_orden = .F. for_orden_tag = .F. col_descripcion = ("") for_readonly = .F. evn_not_when = .F. for_align = .F. for_autosize = .F. for_backcolor = .F. oval = .F. for_totalizar = .F. for_runtotal = .F. for_autofit = .F. evn_not_valid = .F. for_sparce = .F. for_grupo = ("") col_grupo = ("") opar_formato = .F. opar_aplicar_formato = .F. extradata = .F. Name = "grilla_formato_columna" customcustomgrilla_formato_columnaHeight = 22 Width = 25 for_sqlcol = .F. for_codigo = .F. col_seleccionada = .F. for_orden = .F. for_orden_tag = .F. col_descripcion = ("") for_readonly = .F. evn_not_when = .F. for_align = .F. for_autosize = .F. for_backcolor = .F. oval = .F. for_totalizar = .F. for_runtotal = .F. for_autofit = .F. evn_not_valid = .F. for_sparce = .F. for_grupo = ("") col_grupo = ("") opar_formato = .F. opar_aplicar_formato = .F. extradata = .F. Name = "grilla_formato_columna" &PROCEDURE header_dblclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.EVN_Header_DblClick(xOrigen(1).parent) ENDPROC PROCEDURE evn_header_dblclick LPARAMETERS xCol ENDPROC PROCEDURE header_click LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_header_click (xOrigen(1).parent) ENDPROC PROCEDURE evn_header_click LPARAMETERS xCol ENDPROC PROCEDURE field_click LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_click (xOrigen(1).parent) ENDPROC PROCEDURE field_dblclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_dblclick(xOrigen(1).parent) ENDPROC PROCEDURE field_when LPARAMETERS xRet LOCAL ARRAY xOrigen(3) LOCAL aret, oObj AEVENTS(xOrigen,0) oObj=xOrigen(1).parent =this.evn_field_when (oObj) aRet=not this.evn_not_when RETURN aRet ENDPROC PROCEDURE field_gotfocus LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_gotfocus (xOrigen(1).parent) ENDPROC PROCEDURE field_lostfocus LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_lostfocus (xOrigen(1).parent) ENDPROC PROCEDURE evn_field_click LPARAMETERS xCol ENDPROC PROCEDURE evn_field_dblclick LPARAMETERS xCol ENDPROC PROCEDURE evn_field_gotfocus LPARAMETERS xCol ENDPROC PROCEDURE evn_field_lostfocus LPARAMETERS xCol ENDPROC PROCEDURE evn_field_when LPARAMETERS xCol,xret RETURN .t. ENDPROC PROCEDURE queryunload this.columna=.f. ENDPROC PROCEDURE aplicar_formato LPARAMETERS oCol as Column , xAutoFit_Global as Boolean IF VARTYPE(oCol)="O" THEN this.columna=oCol ELSE oCol=this.columna ENDIF IF VARTYPE(this.columna)="O" THEN this.aplicar_control() oCol.width = this.for_ancho oCol.Header1.caption = this.for_caption oCol.Header1.Alignment= 9 oCol.Alignment=this.for_align oCol.controlsource = this.for_controlsource oCol.format = this.for_formato oCol.inputmask = this.for_inputmask oCol.Tag=UPPER(ALLTRIM(This.For_Codigo)) oCol.Name=UPPER(ALLTRIM(This.For_Codigo)) * this.columna.Header1.fontUnderline=not EMPTY(This.For_Orden_Tag) oCol.ReadOnly=this.for_readonly IF this.for_backcolor#-1 THEN oCol.BackColor= this.For_BackColor ENDIF IF This.For_autofit OR xAutoFit_Global THEN oCol.AutoFit() ENDIF IF typeo(this.opar_formato) AND this.opar_Aplicar_Formato THEN this.opar_formato.fo_Aplica_control(This.Columna) ENDIF ENDIF ENDPROC PROCEDURE col_binds LPARAMETERS oCol THIS.columna = oCol LOCAL oControl IF VARTYPE(THIS.columna)="O" THEN *=sys_m("binds", TYPE("This.Columna.Text1")="O") BINDEVENT(THIS.columna.Header1,"DblClick", THIS,"header_dblclick") BINDEVENT(THIS.columna.Header1,"Click", THIS,"header_click") FOR EACH oControl IN This.Columna.Controls IF oControl.Class#"Header" THEN BINDEVENT(oControl,"DblClick", THIS,"field_dblclick") BINDEVENT(oControl,"Click", THIS,"field_click") BINDEVENT(oControl,"RightClick", THIS,"field_rightclick") BINDEVENT(oControl,"When", THIS,"field_when",1) BINDEVENT(oControl,"LostFocus", THIS,"field_lostfocus") BINDEVENT(oControl,"GotFocus", THIS,"field_gotfocus") BINDEVENT(oControl,"KeyPress", THIS,"field_KeyPress") BINDEVENT(oControl,"Valid", THIS,"field_valid") ENDIF NEXT BINDEVENT(THIS.columna,"Moved", THIS,"column_moved") ENDIF ENDPROC PROCEDURE sql_ordenar LPARAMETERS xAlias, xInverso LOCAL xOrden, oCol2, a, oEx a=1 TRY IF NOT EMPTY(THIS.For_Orden_Tag) THEN xOrden=THIS.For_Orden_Tag IF NOT EMPTY(xAlias) THEN SELECT &xAlias ENDIF IF NOT xInverso THEN SET ORDER TO &xOrden ASCENDING ELSE SET ORDER TO &xOrden DESCENDING ENDIF FOR EACH oCol2 IN THIS.columna.PARENT.COLUMNS oCol2.Header1.FONTBOLD=.F. NEXT THIS.columna.Header1.FONTBOLD=.T. THIS.columna.PARENT.REFRESH() ENDIF CATCH TO oEx xOrden=.F. SET CONSOLE OFF ENDTRY a=a ENDPROC PROCEDURE aplicar_control LOCAL oCol, oEx, nIt, xExtraData, oObj, xNombre, xControl, oExO1, oExO2 LOCAL oControl oCol=THIS.columna SET CLASSLIB TO form_grilla_Controles ADDITIVE IF TYPE("THIS.for_caption")="C" THEN xExtraData = STREXTRACT(THIS.for_caption, "{%","%}") IF NOT EMPTY(xExtraData ) THEN THIS.extradata = xExtraData ENDIF THIS.for_caption = STRTRAN(THIS.for_caption, "{%"+xExtraData+"%}","") ELSE xExtraData = "" ENDIF IF NOT EMPTY(THIS.col_control) AND TYPE("oCol")="O" THEN LOCAL xNombre LOCAL ARRAY aControles(1) oDeyFunc.Split_to_Array(@aControles, THIS.col_control, "|") *=sys_m("Columnas") FOR EACH oControl IN THIS.columna.CONTROLS * DO WHILE THIS.columna.CONTROLCOUNT>1 IF oControl.CLASS#"Header" THEN oCol.REMOVEOBJECT(oControl.NAME) ENDIF * ENDDO NEXT FOR nIt=1 TO ALEN(aControles,1) xNombre = EVL(STREXTRACT(aControles(nIt), "{%","%}"), "Text"+ALLTRIM(STR(nIt))) xControl = STRTRAN(aControles(nIt), "{%"+xNombre+"%}","") TRY oCol.ADDOBJECT(xNombre , xControl) CATCH TO oExO1 TRY oCol.ADDOBJECT(xNombre , xControl ) CATCH TO oExO2 =Sys_m("Error al instanciar "+xControl) ENDTRY ENDTRY oCol.CURRENTCONTROL=xNombre oObj= EVALUATE("oCol."+xNombre) oObj.VISIBLE=.T. TRY oObj.CAPTION="" CATCH ENDTRY * =sys_mostrar_screen("Aplicar.",.t.) TRY oCol.SPARSE = (oCol.PARENT.For_Sparce AND oObj.For_Sparce) CATCH TO oEx oCol.SPARSE=.F. ENDTRY TRY oObj.Extra_Data(THIS.extradata ) CATCH TO oEx ENDTRY NEXT ENDIF ENDPROC PROCEDURE field_rightclick LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_rightclick (xOrigen(1).parent) ENDPROC PROCEDURE evn_field_rightclick LPARAMETERS xCol ENDPROC PROCEDURE field_keypress LPARAMETERS nKeyCode, nShiftAltCtrl LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_field_keyPress (xOrigen(1).parent,nKeyCode, nShiftAltCtrl) ENDPROC PROCEDURE evn_field_keypress LPARAMETERS xCol,nKeyCode, nShiftAltCtrl RETURN .t. ENDPROC PROCEDURE field_valid LPARAMETERS xRet LOCAL ARRAY xOrigen(3) LOCAL aret, oObj AEVENTS(xOrigen,0) oObj=xOrigen(1).parent =this.evn_field_valid (oObj, this) aRet=not this.evn_not_valid xOrigen(1).evn_not_valid =this.evn_not_valid RETURN aRet ENDPROC PROCEDURE evn_field_valid LPARAMETERS xCol,xret RETURN .t. ENDPROC PROCEDURE oval_gettext LOCAL xCol as Column xCol=this.columna this.oVal.Val_Texto="" this.oVal.Val_AgregarEx(xCol.Name) this.oVal.Val_AgregarEx(xCol.ColumnOrder) this.oVal.Val_AgregarEx(xCol.Width) ENDPROC PROCEDURE oval_settext LPARAMETERS xText LOCAL xCol as Column xCol=this.columna This.oVal.Val_Texto=xText TRY xCol.Name =this.oVal.val_coleccion_NextEx(,"") xCol.ColumnOrder=this.oVal.val_coleccion_NextEx(,0 ) xCol.Width=this.oVal.val_coleccion_NextEx(,0) CATCH ENDTRY *!* this.oVal.Val_AgregarEx(xCol.Name) *!* this.oVal.Val_AgregarEx(xCol.ColumnOrder) *!* this.oVal.Val_AgregarEx(xCol.Width) ENDPROC PROCEDURE copy LOCAL oCol as grilla_formato_columna OF form_controles.vcx LOCAL ARRAY aParCh (1) LOCAL nIt, xTX, xTX2 IF AMEMBERS(aParCh, this, 0,"C")=0 THEN RETURN .f. ENDIF oCol=NEWOBJECT("grilla_formato_columna","form_controles.vcx") FOR nIt =1 TO ALEN(aParCH) IF INLIST(aParCH(nIT),"NAME", "COLUMNA") THEN LOOP ENDIF xTX="oCol."+aParCH(nIt) xTX2="This."+aParCH(nIt) &xTX=&xTX2 NEXT RETURN oCol ENDPROC PROCEDURE column_moved LOCAL ARRAY xOrigen(3) AEVENTS(xOrigen,0) this.evn_column_moved (xOrigen(1)) ENDPROC PROCEDURE clonarse LPARAMETERS oCol as grilla_formato_columna of form_controles.vcx LOCAL oCol2 as grilla_formato_columna of form_controles.vcx Col2=this oDeyFunc.Clonar_Objeto(@oCol,@Col2, , , "'NAME','COLUMNA'") RETURN this ENDPROC PROCEDURE Init LPARAMETERS xCol, xUsaFormato,xCodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, ; xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xControl, xReadOnly, xevn_not_when, ; xfor_autosize, xfor_align, xFor_BackColor, xFor_Totalizar, xFor_RunTotal, xFor_AutoFit, xGrupo, ; oPar_Formato as exportaciones_parametros_Formato of imp_exp.vcx THIS.oVal = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") THIS.oVal.set_div = "GRSCD" THIS.oVal.set_Head = "HGRSCD" IF xUsaFormato THEN THIS.for_codigo=IIF(VARTYPE(xCodigo)="C",xCodigo,"") THIS.for_ancho= IIF(VARTYPE(xAncho)="N",xAncho,30) THIS.for_caption = IIF(VARTYPE(xCaption)="C",xCaption,"") THIS.for_controlsource = IIF(VARTYPE(xCtrlSource)="C",xCtrlSource,"") THIS.for_formato = IIF(VARTYPE(xFormato)="C",xFormato,"") THIS.for_inputmask = IIF(VARTYPE(xInputMask)="C",xInputMask,"") THIS.for_SQLCol = IIF(VARTYPE(xSQLCol)="C",xSQLCol,"") THIS.for_Orden = IIF(VARTYPE(xOrden)="C",xOrden,"") THIS.for_Orden_Tag= IIF(VARTYPE(xTag)="C",xTag,"") THIS.For_ReadOnly = IIF(VARTYPE(xReadOnly)="L",xReadOnly,.F.) THIS.For_Autosize = IIF(VARTYPE(xfor_autosize)="N",xfor_autosize,0) IF VARTYPE(xfor_align)="N" THIS.for_align= xfor_align ELSE IF VARTYPE(xCtrlSource)="C" DO CASE CASE TYPE(xCtrlSource)="N" THIS.for_align=1 OTHERWISE THIS.for_align=3 ENDCASE ELSE THIS.for_align= 3 ENDIF ENDIF THIS.For_BackColor= IIF(VARTYPE(xFor_BackColor)="N", xFor_BackColor, RGB(255,255,255)) THIS.For_totalizar = IIF(VARTYPE(xFor_Totalizar)="L",xFor_Totalizar,.F.) THIS.For_RunTotal = IIF(VARTYPE(xFor_RunTotal)="L",xFor_RunTotal,.F.) THIS.For_AutoFit = IIF(VARTYPE(xFor_AutoFit)="L",xFor_AutoFit,.F.) ENDIF THIS.evn_not_when = xevn_not_when THIS.col_seleccionada = xSeleccionada THIS.col_descripcion = IIF(VARTYPE(xDescripcion)="C" AND NOT EMPTY(xDescripcion),xDescripcion,IIF(VARTYPE(xCaption)="C",xCaption,"")) THIS.col_control=IIF(VARTYPE(xControl)="C",xControl,"") this.col_grupo= EVL(xGrupo,"") This.oPar_formato = oPar_Formato =THIS.aplicar_control() =THIS.col_binds(xCol) ENDPROC '"&&h%$(t"U8 C CCUXORIGENTHISEVN_HEADER_DBLCLICKPARENT UXCOL8 C CCUXORIGENTHISEVN_HEADER_CLICKPARENT UXCOL8 C CCUXORIGENTHISEVN_FIELD_CLICKPARENT8 C CCUXORIGENTHISEVN_FIELD_DBLCLICKPARENTr  C TCCT BUXRETXORIGENARETOOBJPARENTTHISEVN_FIELD_WHEN EVN_NOT_WHEN8 C CCUXORIGENTHISEVN_FIELD_GOTFOCUSPARENT8 C CCUXORIGENTHISEVN_FIELD_LOSTFOCUSPARENT UXCOL UXCOL UXCOL UXCOL BaUXCOLXRETT-UTHISCOLUMNA QCOLUMNQBOOLEAN%COGT aT%CO CTT T  T  T  TTTCCfTCCfT%T%  C %C CUOCOLXAUTOFIT_GLOBALTHISCOLUMNAAPLICAR_CONTROLWIDTH FOR_ANCHOHEADER1CAPTION FOR_CAPTION ALIGNMENT FOR_ALIGN CONTROLSOURCEFOR_CONTROLSOURCEFORMAT FOR_FORMATO INPUTMASK FOR_INPUTMASKTAG FOR_CODIGONAMEREADONLY FOR_READONLY FOR_BACKCOLOR BACKCOLOR FOR_AUTOFITAUTOFITTYPEO OPAR_FORMATOOPAR_APLICAR_FORMATOFO_APLICA_CONTROLNT%COG2CDblClickheader_dblclick,CClick header_click%Header+CDblClickfield_dblclick%CClick field_click/C RightClickfield_rightclick&CWhen field_when-C LostFocusfield_lostfocus+CGotFocusfield_gotfocus+CKeyPressfield_KeyPress%CValid field_valid)CMoved column_movedUOCOLTHISCOLUMNAOCONTROLHEADER1CONTROLSCLASSr  T ?%C ;T%C ~SELECT &xAlias % "SET ORDER TO &xOrden ASCENDING #SET ORDER TO &xOrden DESCENDING  T -T aC (^ T-G  TUXALIASXINVERSOXORDENOCOL2AOEXTHIS FOR_ORDEN_TAGCOLUMNAPARENTCOLUMNSHEADER1FONTBOLDREFRESH' T G~(form_grilla_Controles&%CTHIS.for_captionbCTC {%%}%C T 'T C {%%}  T'%C  CoColbO  C |  % HeaderC (C1TCCC{%%}TextCCZ &TCC{%%} AC( nC(%CError al instanciar TTCoCol.Ta T  2!T (NT- oC (}U OCOLOEXNIT XEXTRADATAOOBJXNOMBREXCONTROLOEXO1OEXO2OCONTROLTHISCOLUMNAFORM_GRILLA_CONTROLES FOR_CAPTION EXTRADATA COL_CONTROL ACONTROLESODEYFUNCSPLIT_TO_ARRAYCONTROLSCLASS REMOVEOBJECTNAME ADDOBJECTSYS_MCURRENTCONTROLVISIBLECAPTIONSPARSEPARENT FOR_SPARCE EXTRA_DATA8 C CCUXORIGENTHISEVN_FIELD_RIGHTCLICKPARENT UXCOLK  C CCUNKEYCODE NSHIFTALTCTRLXORIGENTHISEVN_FIELD_KEYPRESSPARENTBaUXCOLNKEYCODE NSHIFTALTCTRL  C TCCT T BUXRETXORIGENARETOOBJPARENTTHISEVN_FIELD_VALID EVN_NOT_VALID BaUXCOLXRETyQCOLUMNTTCCCU XCOLTHISCOLUMNAOVAL VAL_TEXTO VAL_AGREGAREXNAME COLUMNORDERWIDTHQCOLUMNTT TCTCT C U XTEXTXCOLTHISCOLUMNAOVAL VAL_TEXTONAMEVAL_COLECCION_NEXTEX COLUMNORDERWIDTHZ7QGRILLA_FORMATO_COLUMNAform_controles.vcx "%CCb|B-;TCgrilla_formato_columnaform_controles.vcx(CJ'%CCNAMECOLUMNA.ToCol.CTThis.C&xTX=&xTX2  BUOCOLFORM_CONTROLESVCXAPARCHNITXTXXTX2THIS5 C CCUXORIGENTHISEVN_COLUMN_MOVED7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx T*C'NAME','COLUMNA' BUOCOLFORM_CONTROLESVCXOCOL2COL2THISODEYFUNC CLONAR_OBJETO     Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx/TCExportar_Texto Imp_Exp.vcxTGRSCDTHGRSCD%&TCCC6&TCCN6&T CCC6&T!CCC6&T"CCC6&T#CCC6&T$CCC6&T%CC C 6&T&CC C 6$T'CCL-6&T(CCN6%CNT) `%CCBH> CbN$T) 2>T) \T)/T*CCN C^6$T+CCL-6$T,CCL-6$T-CCL-6T.T/ FT0CC CC  CCC66&T1CC C 6T2C T C3C4U5XCOL XUSAFORMATOXCODIGO XCTRLSOURCEXCAPTIONXANCHOXFORMATO XINPUTMASKXSQLCOLXORDENXTAG XSELECCIONADA XDESCRIPCIONXCONTROL XREADONLY XEVN_NOT_WHEN XFOR_AUTOSIZE XFOR_ALIGNXFOR_BACKCOLORXFOR_TOTALIZAR XFOR_RUNTOTAL XFOR_AUTOFITXGRUPO OPAR_FORMATOIMP_EXPVCXTHISOVALSET_DIVSET_HEAD FOR_CODIGO FOR_ANCHO FOR_CAPTIONFOR_CONTROLSOURCE FOR_FORMATO FOR_INPUTMASK FOR_SQLCOL FOR_ORDEN FOR_ORDEN_TAG FOR_READONLY FOR_AUTOSIZE FOR_ALIGN FOR_BACKCOLOR FOR_TOTALIZAR FOR_RUNTOTAL FOR_AUTOFIT EVN_NOT_WHENCOL_SELECCIONADACOL_DESCRIPCION COL_CONTROL COL_GRUPOAPLICAR_CONTROL COL_BINDSheader_dblclick0evn_header_dblclick header_clickevn_header_click field_click5field_dblclick field_whenfield_gotfocusfield_lostfocus4evn_field_clickevn_field_dblclickevn_field_gotfocusevn_field_lostfocusevn_field_when queryunload)aplicar_formatoQ col_binds sql_ordenarB aplicar_control0 field_rightclickevn_field_rightclickpfield_keypressevn_field_keypress field_valid_evn_field_valid? oval_gettexth oval_settext8copyD column_movedclonarse=Init=1q2q3q2q3q2q2qA2q2q2q3q3q3q2r33rA2a11111qq2q1AAaAA2qq"rQaQAAA32Q!!A!1AAA1AaA2qqa!ArAsqs1ABaQQQAAAA1ABE5q2q32q2qAQ2r31aaa2q2A5r"qAqAAA2A2qr2d aaaaaaaaaAaqraAAAAAAAaaa2r& M_ PqC'",&>P1(y5*9,=.%J@1l~F3R JPr le =d!F8Z=c `)*DBc7GR&O)&0for_formato for_controlsource for_ancho for_caption for_inputmask columna for_sqlcol for_codigo col_seleccionada for_orden for_orden_tag col_descripcion Descripcion de la columna col_control for_readonly evn_not_when for_align for_autosize for_backcolor oval for_totalizar for_runtotal for_autofit evn_not_valid for_sparce for_grupo col_grupo opar_formato Objeto Exportaciones_Parametros_Formato of IMP_EXP.VCX opar_aplicar_formato extradata *header_dblclick *evn_header_dblclick *header_click *evn_header_click *field_click *field_dblclick *field_when *field_gotfocus *field_lostfocus *evn_field_click *evn_field_dblclick *evn_field_gotfocus *evn_field_lostfocus *evn_field_when *queryunload Occurs before a Form is unloaded. *aplicar_formato *col_binds *sql_ordenar *aplicar_control *field_rightclick *evn_field_rightclick *field_keypress *evn_field_keypress *field_valid *evn_field_valid *oval_gettext *oval_settext *copy *evn_column_moved *column_moved *field_moved *clonarse grilla_formato_columnacustom1ClassPixelsgrilla_formato_columna u%\@+U)&CUTHISPARENT ACTIVATECELL ACTIVEROWB%*BC; BUTHISCOLUMNA_ACTUALCOLUMNS CONTROLSOURCEL%6TC BEBUXVALORTHISCOLUMNA_ACTUAL CAMPO_ACTUALTT%[T C%T  C U NCOLINDEXXFATHIS FILA_ANTERIORXCACOLUMNA_ANTERIOR ACTIVEROW FILA_ACTUALCAMBIO_DE_FILACOLUMNA_ACTUALCAMBIO_DE_COLUMNA0TTU NCOLINDEXTHIS FILA_ANTERIOR ACTIVEROWCOLUMNA_ANTERIOR ACTIVECOLUMNTTTT"CFontBold-Column.CFontName Courie NewColumn$CFontSize Column"CFontBoldaHeader%C AlignmentHeaderUTHIS FILA_ANTERIORCOLUMNA_ANTERIOR FILA_ACTUALCOLUMNA_ACTUALSETALLenter,campo_actual_accessvalor_actual_accessAfterRowColChangepBeforeRowColChangeInit1a3AaA2rA!rA3qB2BB5q114"A!Q2T~  11!8)G }G}G.%:dDX?U TC Collection6TCgrilla_formato_columnaclasesC C U XGRIDXFORMXFORTHIS COLUMN_COLLXCOLCOLUMNSADDCOLUMNANAME COL_BINDS UXCOLCUXCOLTHIS SQL_ORDENARTAG UXCOL UXCOL BaUXCOLXRET UXCOL UXCOL% C ' gcW _o T-U THISGRID_SETS_AUTOSAVE GRID_SETS_IDGRID_SETS_GUARDARXCOL COLUMN_COLL QUERYUNLOADSQL_CERRAR_TABLASOGRILLA     Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx%CTC cOLLECTIONB%CO6TC Collection%C%C=.rTC\ T%C T%C TK%C=.TC%CxSQLColbL( T%CxOrdenbLS T%CxTAGbL| T%TC%C C T  TCgrilla_formato_columnaform_controles-a TBC!U"XCODIGO XCTRLSOURCEXCAPTIONXANCHOXFORMATO XINPUTMASKXSQLCOLXORDENXTAG XSELECCIONADA XDESCRIPCIONXCONTROL XREADONLY XEVN_NOT_WHEN XFOR_AUTOSIZE XFOR_ALINGXFOR_BACKCOLORXFOR_TOTALIZAR XFOR_RUNTOTAL XFOR_AUTOFITXGRUPO OPAR_FORMATOIMP_EXPVCXOFORFORM_CONTROLESTHIS COLUMN_COLLXFOR SQL_ALIAS FOR_LOCALIZARFOR_TRASPONER_LABELSFOR_CONTROL_DEFECTOFOR_ADD_OCOLUMNAF  "CAplicando formatosW C  T T T   ( TCTC]( TCTC CC%C  T T  C%CxAS_ColbO*% F&T  F T - UXGRILLAXRSXCOLXGCOLTHISSTATUSCOBJOBJECTS DELETECOLUMNXAS_COL XAS_WIDTH RECORDSOURCE COLUMNCOUNT COLUMN_COLLCOUNTREFRESHNITCOLUMNSNAMEAPLICAR_FORMATO FOR_AUTOFIT COL_BINDS FOR_AUTOSIZECOLUMNAWIDTHPARENT T T%%CC C TCT,  BUXSQLXADDOCOLTHIS COLUMN_COLL FOR_SQLCOL ;CEVN_Header_DblClickEVN_Header_DblClick5CEVN_Header_ClickEVN_Header_Click9CEVN_Field_DblClickEVN_Field_DblClick3CEVN_Field_ClickEVN_Field_Click=CEVN_Field_RightClickEVN_Field_RightClick4CEVN_Field_WhenEVN_Field_When9CEVN_Field_GotFocusEVN_Field_GotFocus;CEVN_Field_LostFocusEVN_Field_LostFocus6CEVN_Field_ValidEVN_Field_Valid<CEVN_Field_KeyPressEVN_Field_KeyPress5CEVN_Column_MovedEVN_Column_Moved;CEVN_Header_DblClickEVN_Header_DblClick5CEVN_Header_ClickEVN_Header_ClickS9CEVN_Field_DblClickEVN_Field_DblClick[3CEVN_Field_ClickEVN_Field_Click=CEVN_Field_RightClickEVN_Field_RightClick34CEVN_Field_WhenEVN_Field_When (?9CEVN_Field_GotFocusEVN_Field_GotFocus;CEVN_Field_LostFocusEVN_Field_LostFocus6CEVN_Field_ValidEVN_Field_Valid%m<CEVN_Field_KeyPressEVN_Field_KeyPressu8CEVN_Column_MovedEVN_Column_MovedUXFORXFORMOCHTHISH CCreando ndicesT%C nT T%C SELECT &xAlias % C A   =-%C )T T INDEX ON &xOrden TAG &xTag  ( 9UXALIAS2 XNOINVERTIRTHISSTATUSXALIAS SQL_ALIAS SQL_NOORDERXORDENXTAGOCOL COLUMN_COLL FOR_ORDEN FOR_ORDEN_TAGOEX !CAplicando ndices%C T%C ~T %C T !TCCf (%CLB-TCf %]T  sT -TCfC  G TUXORDEN XNOINVERTIRTHISSTATUSOCOLOEXXINVERSO SQL_ORDENADOOCOL2 COLUMN_COLL FOR_ORDEN_TAG FOR_CODIGOSQL_ORDENADO_INVERSO SQL_ORDENAR SQL_ALIAS% !CPreparando GrillaT% SELECT &xAlias #6T  SELECT &xAlias HcC C C CCa % gSELECT &xAlias #6  Hx SELECT &xAlias #)  SELECT &xAlias #6 %CxLabelbOT-TUXGRILLAXLABELTHISSTATUSXALIAS SQL_ALIAS SQL_NORECMOVXRNHEIGHT HEADERHEIGHT ROWHEIGHT FOR_ORDENAR FOR_APLICAR FOR_DYNAMICSFOR_DYNAMICS_COLL_APLICAR SQL_ORDENARREFRESH SQL_MUEVEVISIBLEOGRILLA T%C I FQ%CxLabelbOTa Ca U XGRILLAXLABEL RECORDSOURCETHIS SQL_ALIAS SQL_NOCLOSEVISIBLEPARENTREFRESHODEYFUNCDEVENTS CFiltrando datos TTT SELECT &xAlias %%C +SET FILTER TO &xvalido AND &xValido_Ext SET FILTER TO &xvalido X%C .1SET FILTER TO NOT (&xvalido AND &xValido_Ext) TSET FILTER TO NOT &xvalido #)%CxGrillabO  U XVALIDEZXGRILLATHISSTATUSXALIASXVALIDO SQL_ALIAS SQL_FILTRO XVALIDO_EXTSQL_FILTRO_EXTREFRESHaCCODIGOTMPCSDBF.COD_InsCodigodTMPCSDBF.cod_inscod_inscodinsLCAtr TMPCSDBF.AtrAtr TMPCSDBF.AtrAtrAtrPCBul TMPCSDBF.BulBulTMPCSDBF.cod_insBulBul^CDESCRTMPCSDBF.Descr DescripcinTMPCSDBF.DescrDescrDescr]CInicialTMPCSDBF.InicialZTMPCSDBF.InicialInicialInicialUTHISFOR_ADD_COLUMNATCCf H, BULPT ATRtT ARTICULOT BUXCAPTIONXCAPTOBUL LABEL_CORTOOATROBIE LABEL_LARGO UXCOLD%=TSELECT &xalias QUTHISSQL_CERRAR_AL_SALIRXALIAS SQL_ALIAS UOGRILLAXALIASF%%Cthis.status_panelbO?TUXTEXTTHIS STATUS_PANELTEXTa!%C C 8TCCUOGRILLATYPEOTHIS GRI_PREPARAR GRI_ARREGLAR BaUXCOLXRET UXGRILLATHIS QUERYUNLOADPQGRIDTC %C s*CEl ID de la grilla est vacioB-%C grid_sets Q \grid_setsT> QGRILLA_FORMATO_COLUMNAform_controles ; C  C   TFG((FULLIDEC CZCZ %C4 >IG((MIDIDECZ %C4 ^J _J >E > >> >UXGRILLATHISOGRILLA GRID_SETS_ID PUB_INDEXMENSAJEP_SYSTEMOVAL VAL_TEXTOCCOLUMNAFORM_CONTROLES COLUMN_COLL OVAL_GETTEXT VAL_AGREGAR FOR_CODIGOXTEXTXTEXT2 GRID_SETSFULLIDP_CODEMPDATOSMIDIDOOBJEMPIDUSUARIOKQGRID%CR*CEl ID de la grilla est vacioB-%C grid_sets Q \grid_sets TF G((FULLIDEC C ZC Z %C4 T FG((MIDIDEC C Z %C4B T /TCExportar_Texto Imp_Exp.vcxTGRSTHGRST T-+ D-TCCCfTCTCC@ TaUXGRILLATHIS GRID_SETS_IDMENSAJEP_SYSTEMXSALIRXNOMBREXTEXTOXCOL GRID_SETSFULLID PUB_INDEXP_CODEMPDATOSMIDIDOVALSET_DIVSET_HEAD VAL_TEXTOVAL_COLECCION_NEXT COLUMN_COLL OVAL_SETTEXT 1QGRILLA_FORMATOform_controles.vcx 7QGRILLA_FORMATO_COLUMNAform_controles.vcx %CCbB-%CNAME.TThis.ToGF.&xTX=&xTX2 U OGFAPARCHNITXTXXTX2XPARXFORFORM_CONTROLESVCX fQ COLLECTIONQCOLUMNQGRILLA_FORMATO_COLUMNAform_controles.vcxQINTEGERTC Collection(,QGRILLA_FORMATO_COLUMNA T % C ! BU OCOLLOCOLOGFCFORM_CONTROLESVCXNITTHIS COLUMN_COLLCOUNTCOLUMNA COLUMNORDERADD FOR_CODIGO7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcxTC CollectionTC U OCOLFORM_CONTROLESVCXOCOL2THISCOLUMN_COLL_DEFAULT COLUMN_COLLCOPYADD FOR_CODIGOu7xGrid.SetAll(&sDyn) %nCFontSizeUXGRIDSDYNTHISFOR_DYNAMICS_COLL FOR_FONTSIZESETALL  F%C C y FG(%dT- B-%  C% Ta   T  % TCfT ''T  F%C bUC %C &SET FILTER TO &xTexto2$&TXFiltrado 4SET FILTER TO &xTexto2$&TXFiltrado AND &xFiltro2 SET FILTER TO &xFiltro2 #) UXTEXTOXGRIDTHIS SQL_ALIAS FIL_FILTRO FIL_FILTRADOREFRESHFIL_AUTOFILTRO_CREADOFIL_AUTOFILTRO_CREAR TXFILTRADOXTEXTO2XFILTRO2FIL_AUTOFILTRO_CAMPOFIL_AUTOFILTRO_MAYUSCULAS FT T T C  T H C.bC T C.bM T C.bNTStr(,20,2) C.bDWTDTOC() C.bTTDTOC()% TUPPER()%C TT+ F%CbU| %Ci:ALTER table (This.sql_alias) ADD COLUMN &xDestino M(4) xB-%C (replace &xDestino WITH &xOrigen ALL T aU THIS SQL_ALIASXORIGENXCAMPOXSTRXDESTINOFIL_AUTOFILTRO_CAMPOXSIGNOFIL_AUTOFILTRO_CAMPOS_CREARFIL_AUTOFILTRO_CAMPOSFIL_AUTOFILTRO_MAYUSCULASFIL_AUTOFILTRO_CREADOUXCOLNKEYCODE NSHIFTALTCTRL% B-%C T F2LOCATE FOR &xCampo=this.sql_reposicionar_valor %C4 #)UTHISSQL_REPOSICIONAR SQL_ALIASSQL_REPOSICIONAR_OBTENIDOXCAMPOSQL_REPOSICIONAR_CAMPOd% B-%C]Ta!TC.UTHISSQL_REPOSICIONAR SQL_ALIASSQL_REPOSICIONAR_OBTENIDOSQL_REPOSICIONAR_VALORSQL_REPOSICIONAR_CAMPOBQEXPORTACIONES_PARAMETROSf:\sistema\2000\imp_exp.vcx C(C[C.CCCCUOPARFTHISFOR_ADD_COLUMNANITEX_XLS_CAMPOS_AGREGAR UOCOLV>QINTEGERQGRILLA_FORMATOform_controles.cvxTCUNCOLOGFFORM_CONTROLESCVXOCOL COLUMN_COLL7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcx7TCgrilla_formato_columnaform_controlesCCUOCOLFORM_CONTROLESVCXOCOL2ODEYFUNC CLONAR_OBJETOTHISFOR_ADD_OCOLUMNAFQGRILLA_FORMATO_COLUMNAform_Controles.vcxQBOOLEAN %fTC]TCCf BU OFORFORM_CONTROLESVCX XNUEVOCODIGO FOR_CODIGOOPAR_APLICAR_FORMATOTHISFOR_APLICAR_FORMATO COLUMN_COLLADDe TCC"CU XKEY XPOSICIONOCOLTHIS COLUMN_COLLITEMREMOVE FOR_CODIGOADD UOCOL XPOSICION TC CollectionTC Collection/TCExportar_Texto Imp_Exp.vcxTGRSTHGRS%CxGridbOCU XGRIDXFORMTHISFIL_AUTOFILTRO_CAMPOSFOR_DYNAMICS_COLLOVALSET_DIVSET_HEAD LEER_GRID leer_grid,evn_header_dblclick5evn_header_clickIevn_field_clickevn_field_dblclickevn_field_whenevn_field_lostfocusevn_field_gotfocus queryunloadfor_add_columna for_aplicar/ sql_crearn col_binds@ for_ordenar$ sql_ordenar gri_arreglarY gri_preparar^ sql_filtrarcsql_crear_columnascfor_trasponer_labels9evn_field_rightclick'sql_cerrar_tablas; for_dynamicsstatus sql_refresh? evn_field_valid dispose grid_sets_guardar/!grid_sets_cargarx$leer_gf' coll_ordenado)grid_sets_default*for_dynamics_coll_aplicar+fil_autofiltro{,fil_autofiltro_crearC/evn_field_keypress2sql_reposicionar_mover2sql_reposicionar_obtener 4leer_parametros4importar_columna5leer_columna_gf6 leer_columna6for_add_ocolumna7for_columna_reordenar8evn_column_moved9Init91q!aQA3q2q12q2q2q2q2q2A!AAA2rAArAq!AAAAraAAAAQAA 4!#AbQ1AQQrqAqAAAA3!QAA2qQ1AaRAQAA1AAAAAAaAAA3qA2!A"1AAAA311!1AAAAAaAQqAAA"a12q!Qr!AA1qq!QAB!QA!QAA2AAA3!AAAQA23qqAAA2q2q!AA24qQ1A3qA3q2q3aqAA1aA1r!QQBB5!qAA1rqABaq1AQAB31qqAaAAaQA1bAqAAAA2rq!A2qq!qARA3aArAAAAqaBAAQ21!AAQAAAqAAA23qAq!QAA2qA"A2!E2q2Q2qqqR3a1A13ra!32aqQA3 AQ x8Z #) 3V wk|Uw,% Z1 !#kJD#:%Pe%c&]&&_&.'fQ''h(x(m(>)td))w))z)D.k.,2J2[8$8:V0:;f;t<q<?}@.DDWDDFDES FF[GJaJK c'KK fKLlLMtNN'zNO0|#O`P3)}G%?OV- KC     %CoDeyFuncbOhG+(internet T T T T T T T TTC T  T  T  T  T  T T } T T  T% TCCTC%TCTC PED-LOC.cfg%C0 Ta.T CCFG_Ctrl Sys_cfg.prga C ! : T" T# T$ T% T& T' T( T) T * T + T , T- T. DU/XHOSTXFTPDIRXUSRXPWD XHTTPBASEXCFGTXTXPEDTVQXPEDVER XPED_DIRMAILXPEDAGES XPED_DIRECTOXPED_DIRECTO_USARXPEDAGES_LOCALXPED_SIN_PRECIOXPED_PRECIO_MODIFICABLEXPED_POPUPNOTA DEY_FUNC2INTERNETXDIRMAILXCFGFILEXFLOCALODEYFUNCGET_PATHXCFGTIPOP_PED_IND_CFG_TIPOP_PED_IND_CONFIGURACIONXOKIND_DESCARGAR_CFG IND_LEER_CFGXLOCCFGP_LOCALP_PED_IND_LOCALOCFGAPLICAR_VALORESP_PED_IND_HOSTP_PED_IND_FTPDIR P_PED_IND_USR P_PED_IND_PWDP_PED_IND_DIRMAILP_PED_IND_HTTPBASE P_PED_IND_TVQ P_PED_IND_VERP_PED_IND_AGESP_PED_IND_AGES_LOCALP_PED_IND_SIN_PRECIOP_PED_IND_PRECIO_MODIFICABLEP_PED_IND_POPUPNOTA3 "FC TEMP_PEDCFG ^JTCTCTCTC T C T C TCTC#%C oObj.Ped_AGESbCTC)%CoObj.Ped_AGES_LocalbCDTC(%CoObj.Ped_cfg_fechabTTTTTCCT T !  T"#  ,U$XCFGOOBJP_PED_IND_HOSTPED_HOSTP_PED_IND_FTPDIRPED_DIR P_PED_IND_USRPED_USER P_PED_IND_PWDPED_PASSP_PED_IND_DIRMAIL PED_DIRMAILP_PED_IND_HTTPBASEPED_HTTP P_PED_IND_TVQPED_TVQ P_PED_IND_VERPED_VERP_PED_IND_AGESPED_AGESP_PED_IND_AGES_LOCALPED_AGES_LOCALP_PED_CFG_FECHA PED_CFG_FECHAP_PED_IND_SIN_PRECIOPED_SIN_PRECIOP_PED_IND_PRECIO_MODIFICABLEPED_PRECIO_MODIFICABLEP_PED_IND_AGES_SERVERIND_REEVALUAR_AGESP_PED_IND_DIRECTO PED_DIRECTOP_PED_IND_DIRECTO_USARPED_DIRECTO_USARP_PED_IND_POPUPNOTA PED_POPUPNOTAETCTC/T/UXAGESP_PED_IND_AGES_SERVERP_PED_IND_AGES_DIRP_PED_IND_AGES_HEADo Ta+TCSecuritySys_Security.prg%CxFLocalbCTC %CC=fHTTP T  TT C  T CwwZipN!TCC*.* #TCCCCdatC BUXCFGTXTXCFGFILE XHTTPBASEXFLOCALXURLXDATXOKOCRYODEYFUNCNEWFILE_LOCAL_TMPXRET DOWNLOAD_HTTPWWCLIENTOZIPXOK2 UNZIPFILES INVERSE_FILEG      T C  T C  T C  T C  TC TC TC %C $T CCCXMLh TEMP_PEDCFGCdCdCdCdCdCdCdC2Cd T!N"N#Cd$N%N&Nur TEMP_PEDCFG C   C 1' G+(es_ind_gen_art5)*+,$T)pedidos.solinges.com.arT*/$T+induart@solinges.com.arT,PedINDNew1991!- wconnect2T/CFTP_CFGNT/0CCT/1aT2CCC/3U4 XPED_HOSTXPED_DIR XPED_USER XPED_PASS XPED_DIRMAIL XPED_HTTPXPED_TVQXPED_VER XNOENVIARXFILET XPED_AGES XPED_DIRECTOXPED_DIRECTO_USARXPED_AGES_LOCALXPED_SIN_PRECIOXPED_PRECIO_MODIFICABLEXPED_POPUPNOTAXFILEDXFILEZODEYFUNCGET_PATHP_PED_IND_CONFIGURACION TEMP_PEDCFGPED_HOSTPED_DIRPED_USERPED_PASS PED_DIRMAILPED_HTTPPED_TVQPED_VERPED_AGES PED_CFG_FECHA PED_DIRECTOPED_DIRECTO_USARPED_AGES_LOCALPED_SIN_PRECIOPED_PRECIO_MODIFICABLE PED_POPUPNOTAIND_CREAR_IND_ZIPES_IND_GEN_ARTD_HOSTD_FTPDIRD_USRD_PWD FN_PUBLIC WCONNECT2OLOCALDIR LPASSIVEFTPXRESFTPSENDTCdatTCzip+TCSecuritySys_Security.prgC TCwwZipNTCU XFILEXFILEDXFILEZOCRY INVERSE_FILEWWCLIENTOZIPXOK2ZIPFILES Ind_Leer_CFGInd_Reevaluar_AGES Ind_Descargar_CFG Ind_Crear_XML* ind_crear_ind_zipl1qA!0A3!AABA2q"!!!!!!!2!A!AAAAB2qQa21AAarR36q1111111AA U21CABqa3aauR1:q U`- e yt0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _23V0XUI8I 919305713Y)=KnK COMMENT RESERVED ( WINDOWS _23Q0NB13X 919357981n}W COMMENT RESERVED  WINDOWS _2WS0VFN1I1434892925.\ =B COMMENT RESERVED  WINDOWS _6HR0MCTUP1435732978. NV({{ E WINDOWS _6HR0MCTUQ1434932026  COMMENT RESERVED j WINDOWS _26O0M8LZ51435733361t(_ m^kP COMMENT RESERVED 6 WINDOWS _23P10JZ491465551224+ ? M L!iAe)  COMMENT RESERVED < WINDOWS _23P00SUPR1465564251 S 2 *_ g COMMENT RESERVED WINDOWS _23O0SJ5EX1465581966ʼnP COMMENT RESERVED  WINDOWS _6QS10VST41479101676 x I%J N ~ COMMENT RESERVED ^ WINDOWS _23O10NY5D1479101763J < % ~(:< COMMENT RESERVED  WINDOWS _23P10JZ491479101818wt`85@0 COMMENT RESERVED  WINDOWS _23O0SDMYJ1479102162{'"erc"W COMMENT RESERVED 9VERSION = 3.00mensaje(msg_estado_access^ msg_estado_assign^ PixelsClass1custommensajecustom msg_spoolPixelsClass1custom msg_spoolHeight = 17 Width = 22 col_entrada = .F. col_salida = .F. col_archivo = .F. user_id = 0 cantidad_mensajes = 0 mensajes_cantidad = 0 mensajes_estado = (-1) Name = "msg_spool" customPixelsmensaje_cierrePixelsClass1mensaje_solicitudClassmensaje_produccionPixelsClass1mensaje_articulo_cantidadmensaje_produccion4dat_produccion dat_estado dat_cierre dat_litros Class1mensaje_solicitudcustom mensajes.vcx1211custom1mensaje_articulo_cantidad1mensaje_comprobantePixelsClassClassLdat_solicitud dat_fecha dat_entrega dat_item dat_adi_oc dat_adi_notas dat_solicitud = .F. dat_fecha = .F. dat_entrega = .F. dat_item = .F. dat_adi_oc = 0 dat_adi_notas = .F. msg_tipo = 3 msg_ver_clase = ("msg_solicitud") Name = "mensaje_solicitud" &Name = "mensaje_comprobante_vencido"  mensajes.vcxcustommensaje_comprobante_vencidomensajemensaje_comprobantefdat_procli dat_causa dat_comprobante dat_importe dat_fecha dat_vence dat_procli_d dat_comprob custom mensajes.vcxmensaje_comprobante_vencidoPixelsmensaje_comprobante mensajes.vcx mensaje_textoPixelsClassmensaje mensaje_textodat_texto dat_texto_asunto 1mensaje_articulo_cantidad mensajes.vcxcustom mensaje_ocdat_produccion = 0 dat_estado = 0 dat_cierre = 0 dat_litros = 0 msg_tipo = 6 msg_ver_clase = ("msg_produccion") msg_imagen = ('Produccion') Name = "mensaje_produccion" Pixelsdat_texto = ("") dat_texto_asunto = ("") msg_ver_clase = ("Msg_Texto") msg_imagen = ('Texto') msg_tipo = 1 Name = "mensaje_texto" qdat_tiempo = 60 msg_tipo = 7 msg_ver_clase = ("Msg_Cierre") msg_imagen = ('Cierre') Name = "mensaje_cierre" customcustom mensajes.vcxmensaje_lote_vencimientoPixelsClassmensaje_articulo_cantidadmensaje_lote_vencimiento dat_fecha dat_fecha = {} dat_lote = (space(20)) msg_ver_clase = ("msg_lote_vencimiento") msg_tipo = 8 Name = "mensaje_lote_vencimiento" custom mensajes.vcxdat_solicitud dat_fecha dat_entrega dat_item dat_adi_oc dat_adi_notas dat_oc dat_recibido dat_vence dat_adi_recibido dat_adi_cod_pro mensaje_articulo_cantidad mensajes.vcxddat_cod_ins dat_atr dat_bul dat_cantidad dat_precio dat_deposito dat_lote *msg_cod_bul_atr SUBTIPOSPixelsClassmensajecustommensaje_articulo_cantidad mensaje_occustomcustom mensaje_tiposPixelsClass mensaje_tiposName = "SUBTIPOS"  mensaje_tipos collection collection mensaje_textomensaje_cierre mensajes.vcx dat_tiempo Height = 34 Width = 36 msg_tipo = 0 msg_subtipo = 0 msg_nombre = .F. msg_clase = .F. msg_topic = .F. msg_imagen = ("") msg_imagen_sel = ("") msg_suscripto = 0 Name = "mensaje_tipos" col_entrada col_salida col_archivo user_id cantidad_mensajes mensajes_cantidad mensajes_estado *col_archivo_access *col_entrada_access *col_salida_access *col_llenar *sql_agregar_nuevos *msg_tipo_a_clase *sql_usuario_acepta Funcion filtro para determinar si un usuario tiene asignado el aceptar determinados mensajes *fil_analizar_filtros Obtiene los resultantes de la tabla msgxuser para tener analizados los filtros ^fil_analizado[10,10] dat_procli = (space(6)) dat_causa = (" ") dat_comprobante = (space(15)) dat_importe = 0 dat_fecha = {} dat_vence = {} dat_procli_d = (Space(60)) dat_comprob = .F. msg_tipo = 4 msg_ver_clase = ("Msg_Comprobante") Name = "mensaje_comprobante" PROCEDURE msg_asunto_access RETURN "Cierre del sistema en "+ALLTRIM(STR(this.dat_tiempo))+" - "+this.dat_texto ENDPROC PROCEDURE dat_predeterminados this.dat_texto =SPACE(15) this.dat_texto_asunto=SPACE(3) this.dat_tiempo=60 ENDPROC PROCEDURE dat_guardar this.val_generador.val_agregar(this.dat_texto) this.val_generador.val_agregar(this.dat_texto_asunto) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_tiempo)) ENDPROC PROCEDURE dat_leer LPARAMETERS xDato TRY this.dat_texto =this.val_generador.val_coleccion_next() this.dat_texto_asunto=this.val_generador.val_coleccion_next() this.dat_Tiempo=VAL(this.val_generador.val_coleccion_next()) CATCH ENDTRY ENDPROC PROCEDURE msg_asunto_access LOCAL xST xST=this.msg_subtipo DO CASE CASE xST=1 RETURN "Nuevo Comprobante: "+this.dat_comprobante CASE xST=2 RETURN "Vencido: "+this.dat_comprobante CASE xST=3 RETURN "Comprobante Pendiente: "+this.dat_comprobante OTHERWISE RETURN "Comprobante: "+this.dat_comprobante ENDCASE ENDPROC PROCEDURE dat_leer LPARAMETERS xDato LOCAL xTXT TRY this.dat_procli=this.val_generador.val_coleccion_next() this.dat_procli_d=this.val_generador.val_coleccion_next() this.dat_comprob=this.val_generador.val_coleccion_next() this.dat_causa=this.val_generador.val_coleccion_next() this.dat_comprobante=this.val_generador.val_coleccion_next() this.dat_importe=this.dat_igualar_tipos(this.dat_importe, this.val_generador.val_coleccion_next()) xTXT=this.val_generador.val_coleccion_next() xTXT=CTOD(xTXT) this.dat_fecha=this.dat_igualar_tipos(this.dat_fecha, xTXT) xTXT=this.val_generador.val_coleccion_next() xTXT=CTOD(xTXT) this.dat_vence=this.dat_igualar_tipos(this.dat_vence, xTXT) CATCH ENDTRY ENDPROC PROCEDURE dat_guardar this.val_generador.val_agregar(this.dat_procli) this.val_generador.val_agregar(this.dat_procli_D) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_comprob)) this.val_generador.val_agregar(this.dat_causa) this.val_generador.val_agregar(this.dat_comprobante) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_importe)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_fecha)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_vence)) ENDPROC PROCEDURE msg_id_suceso_access RETURN this.dat_procli + this.dat_causa + this.dat_comprob + STR(this.msg_tipo) + STR(this.msg_subtipo) ENDPROC  msg_tipo msg_subtipo msg_nombre msg_clase msg_topic Especifica si se agrega como Topic a suscribirse o no. msg_imagen msg_imagen_sel msg_suscripto *msg_inicializar Crea los tipos y subtipos necesarios. *msg_tipo_key *msg_agregar_hijo *msg_suscripcion dat_cod_ins = (Space(15)) dat_atr = (Space(3)) dat_bul = (Space(3)) dat_cantidad = 0 dat_precio = 0 dat_deposito = (space(8)) dat_lote = (space(20)) msg_ver_clase = ("msg_articulo_cantidad") msg_imagen = ('Comprar') msg_tipo = 2 Name = "mensaje_articulo_cantidad" KHeight = 18 Width = 24 msg_id = .F. msg_tipo = 0 msg_subtipo = 1 msg_fecha = .F. msg_validez = .F. msg_datos = .F. obj_datos = .F. msg_user_to = .F. obj_clase = 0 obj_alias = .F. val_generador = .F. msg_asunto = .F. user_from = .F. msg_user_from = .F. msg_user_fromc = .F. lv_textocolor = .F. msg_estado = .F. msg_estadoc = .F. msg_ver_clase = ("Msg_Base") msg_imagen = ('') msg_id_suceso = .F. obj_abm = 0 lv_textobold = .F. msg_user_ctrl = ("") msg_user_ctrlc = .F. user_toc = .F. msg_user_toc = .F. xestado = .F. msg_validez_dias = 35 Name = "mensaje" dat_solicitud = .F. dat_fecha = .F. dat_entrega = .F. dat_item = .F. dat_adi_oc = 0 dat_adi_notas = .F. dat_oc = .F. dat_recibido = .F. dat_vence = .F. dat_adi_recibido = .F. dat_adi_cod_pro = .F. msg_tipo = 5 msg_ver_clase = ("msg_OC") Name = "mensaje_oc" msg_id msg_tipo msg_subtipo msg_fecha msg_validez msg_datos obj_datos msg_user_to obj_clase obj_alias val_generador msg_asunto user_from msg_user_from msg_user_fromc lv_textocolor msg_estado msg_estadoc msg_ver_clase msg_imagen msg_id_suceso obj_abm lv_textobold msg_user_ctrl msg_user_ctrlc user_toc msg_user_toc xestado msg_validez_dias *msg_id_access *msg_tipo_access *msg_subtipo_access *msg_fecha_access *msg_validez_access *msg_datos_access *msg_user_to_access *msg_leer *obj_clase_assign *obj_alias_access *obj_alias_assign *msg_asunto_access *dat_leer *dat_guardar *obj_datos_access *obj_datos_assign *user_from_access *msg_user_from_access *msg_user_fromc_access *lv_textocolor_access *msg_estado_access *msg_estadoc_access *msg_ver_clase_access *msg_imagen_access *dat_leer_pre *dat_leer_pos *dat_guardar_pre *dat_guardar_pos *msg_id_suceso_access *obj_grabar *obj_cargar *dat_predeterminados *dat_igualar_tipos *lv_textobold_access *acc_archivar *obj_buscar *acc_tomar_control *msg_user_ctrl_access *msg_user_ctrl_assign *msg_publicar_cambios *msg_user_ctrlc_access *msg_estado_assign *acc_estado *user_toc_access *msg_user_toc_access *obj_agregar_suceso *obj_buscar_suceso *msg_fecha_assign *msg_subtipo_assign *msg_tipo_assign *msg_user_from_assign *msg_user_to_assign *msg_validez_assign *dat_leer_datos_adicionales *definicion_tipo_subtipo *msg_validez_dias_access *msg_validez_dias_assign *dit >PROCEDURE dat_leer LPARAMETERS xDat this.val_generador.val_Texto = xDat TRY this.dat_texto =this.val_generador.val_coleccion(1) CATCH ENDTRY TRY this.dat_texto_asunto=this.val_generador.val_coleccion(2) CATCH ENDTRY ENDPROC PROCEDURE dat_guardar this.val_generador.val_agregar() this.val_generador.val_agregar(this.dat_texto) this.val_generador.val_agregar(this.dat_texto_asunto) this.obj_datos.datos=this.val_generador.val_texto ENDPROC PROCEDURE msg_asunto_access this.msg_asunto=ALLTRIM(THIS.dat_texto_asunto) RETURN this.msg_asunto ENDPROC tPROCEDURE msg_cod_bul_atr LPARAMETERS xFormateado LOCAL xCodBulAtr IF xFormateado THEN xCodBulAtr=PADR(THIS.dat_cod_ins,15)+PADR(THIS.dat_atr ,3)+PADR(THIS.dat_bul ,3) ELSE xCodBulAtr=ALLTRIM(THIS.dat_cod_ins) =ODeyFunc.TX_Agregar_Item(@xCodBulAtr,THIS.dat_atr ,3,"-") =ODeyFunc.TX_Agregar_Item(@xCodBulAtr,THIS.dat_bul ,3,"-") ENDIF RETURN xCodBulAtr ENDPROC PROCEDURE msg_asunto_access LOCAL xAsunto xAsunto="Comprar: "+this.msg_cod_bul_atr RETURN xAsunto ENDPROC PROCEDURE dat_guardar this.val_generador.val_agregar(this.dat_cod_ins) this.val_generador.val_agregar(this.dat_atr) this.val_generador.val_agregar(this.dat_bul) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_cantidad)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_precio)) ENDPROC PROCEDURE dat_leer LPARAMETERS xDato TRY this.dat_cod_ins =this.val_generador.val_coleccion_next() this.dat_atr=this.val_generador.val_coleccion_next() this.dat_bul=this.val_generador.val_coleccion_next() this.dat_cantidad=this.dat_igualar_tipos(0, this.val_generador.val_coleccion_next() ) this.dat_precio=this.dat_igualar_tipos(0, this.val_generador.val_coleccion_next()) CATCH ENDTRY ENDPROC PROCEDURE dat_predeterminados this.dat_cod_ins =SPACE(15) this.dat_atr=SPACE(3) this.dat_bul=SPACE(3) this.dat_cantidad=0 this.dat_precio=0 ENDPROC  z"a a ա%w I& U/TCExportar_Texto Imp_Exp.vcxTMSGDT HMSGD%C T T % C U XNOLEERXCLASEXIDXALIASXABMOSVPTHIS VAL_GENERADORSET_DIVSET_HEADOBJ_ABM OBJ_CLASEMSG_LEERTH( m2TSol.: CZ - C* 9T Sol. sin OC: CZ - C* 22TSol.: CZ - C* BUXSTTHIS MSG_SUBTIPO MSG_ASUNTO DAT_SOLICITUD DAT_FECHA?0TCZCZCZCZ BUTHIS MSG_ID_SUCESO DAT_SOLICITUDDAT_ITEMMSG_TIPO MSG_SUBTIPO C $TCC$TCC$TCC$TCC U XDATOTHIS DAT_SOLICITUDDAT_IGUALAR_TIPOS VAL_GENERADORVAL_COLECCION_NEXTDAT_ITEM DAT_FECHA DAT_ENTREGA C CC CC CC CCUTHIS VAL_GENERADOR VAL_AGREGARDAT_IGUALAR_TIPOS DAT_SOLICITUDDAT_ITEM DAT_FECHA DAT_ENTREGAx CTTTTTTUTHIS DAT_SOLICITUDDAT_ITEM DAT_FECHA DAT_ENTREGA DAT_ADI_OC DAT_ADI_NOTASt  TC%Cdsolcom o?QC\data\CCZ6\dsolcomF!EsolitmCZCZ%C4T  %Ctcompras Qtcompras TF 3KCZCZCZCZ( T%C mSELECT &xAlias UXALIASXCNTP_UNOP_SYSTEMP_SERVERDSOLCOMTHIS DAT_SOLICITUDDAT_ITEMSOLITM DAT_ADI_NOTASNOTASTCOMPRAS RECEPCIONSOLITEM DAT_ADI_OCInit0msg_asunto_accessmsg_id_suceso_accessdat_leerY dat_guardardat_predeterminadosdat_leer_datos_adicionales`1q!AA2q1!1!A22qAAAAA23aa2Ar1AAAq1"!A1V ~ &+,34 <)a "v%YUT >TC H pTC zUXDATTHIS VAL_GENERADOR VAL_TEXTO DAT_TEXTO VAL_COLECCIONDAT_TEXTO_ASUNTOXCCCTUTHIS VAL_GENERADOR VAL_AGREGAR DAT_TEXTODAT_TEXTO_ASUNTO OBJ_DATOSDATOS VAL_TEXTO$TC BUTHIS MSG_ASUNTODAT_TEXTO_ASUNTOdat_leer0 dat_guardar msg_asunto_access1q1AA2aa2Q1  3)"{{t%}U;8BCierre del sistema en CCZ - UTHIS DAT_TIEMPO DAT_TEXTO7TCXTCXT<UTHIS DAT_TEXTODAT_TEXTO_ASUNTO DAT_TIEMPOOCC CCUTHIS VAL_GENERADOR VAL_AGREGAR DAT_TEXTODAT_TEXTO_ASUNTODAT_IGUALAR_TIPOS DAT_TIEMPOi XTCTCTCCg bUXDATOTHIS DAT_TEXTO VAL_GENERADORVAL_COLECCION_NEXTDAT_TEXTO_ASUNTO DAT_TIEMPOmsg_asunto_access0dat_predeterminados dat_guardardat_leer12!!3aa3qqqA2o  ){PROCEDURE dat_leer_datos_adicionales LOCAL xAlias, xCNT xAlias=ALIAS() *!* IF !USED("dsolcom") THEN *!* USE dsolcom IN 0 *!* ENDIF *!* SELECT dsolcom *!* SEEK STR(this.dat_solicitud)+STR(this.dat_item) ORDER tag solitm *!* IF FOUND() THEN *!* this.dat_adi_notas=dsolcom.notas *!* ENDIF IF !USED("tcompras") THEN USE tcompras IN 0 ENDIF SELECT tcompras SEEK STR(this.dat_oc)+STR(this.dat_item) ORDER tag ordenitm IF FOUND() THEN this.dat_adi_recibido = tcompras.recep3 this.dat_adi_cod_pro = tcompras.cod_pro ENDIF IF NOT EMPTY(xAlias) THEN SELECT &xAlias ENDIF ENDPROC PROCEDURE dat_predeterminados DODEFAULT() this.dat_oc=0 this.dat_item=0 this.dat_fecha={ / / } this.dat_entrega={ / / } this.dat_vence={ / / } this.dat_adi_OC=0 this.dat_adi_notas="" this.dat_adi_recibido=0 ENDPROC PROCEDURE dat_guardar DODEFAULT() this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_OC)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_item)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_fecha)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_entrega)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_Vence)) ENDPROC PROCEDURE dat_leer LPARAMETERS xDato DODEFAULT(xDato) TRY this.dat_OC=this.dat_igualar_tipos(this.dat_OC,this.val_generador.val_coleccion_next()) this.dat_item=this.dat_igualar_tipos(this.dat_item,this.val_generador.val_coleccion_next()) this.dat_fecha=this.dat_igualar_tipos(this.dat_fecha,this.val_generador.val_coleccion_next()) this.dat_entrega=this.dat_igualar_tipos(this.dat_entrega,this.val_generador.val_coleccion_next()) this.dat_vence=this.dat_igualar_tipos(this.dat_vence,this.val_generador.val_coleccion_next()) CATCH ENDTRY ENDPROC PROCEDURE msg_id_suceso_access RETURN STR(this.dat_oc) +STR(this.dat_item) + STR(this.msg_tipo) + STR(this.msg_subtipo) ENDPROC PROCEDURE msg_asunto_access LOCAL xST xST=this.msg_subtipo LOCAL xAsunto xAsunto="" DO CASE OTHERWISE xAsunto="OC: "+STR(this.dat_oc,5 ) + " - " + DTOC(this.dat_vence) + " - " + ALLTRIM(this.msg_cod_bul_atr ()) ENDCASE RETURN xAsunto ENDPROC "jjJk%%UCCC#CC CC CC #CC U THIS VAL_GENERADOR VAL_AGREGAR DAT_COD_INSDAT_ATRDAT_BULDITDAT_LOTE DAT_FECHA DAT_CANTIDAD DAT_DEPOSITO TCTCTCTC$TCC $T C C T C U XDATOTHIS DAT_COD_INS VAL_GENERADORVAL_COLECCION_NEXTDAT_ATRDAT_BULDAT_LOTE DAT_FECHADAT_IGUALAR_TIPOS DAT_CANTIDAD DAT_DEPOSITO UXALIASXCNTV CTCXTTCXTUTHISDAT_LOTE DAT_FECHA DAT_DEPOSITO DAT_CANTIDAD^KT Vence Art.: Ca Lote: C Fecha: C* BUXASUNTOTHISMSG_COD_BUL_ATRDAT_LOTE DAT_FECHA;,TCaC BUTHIS MSG_ID_SUCESOMSG_COD_BUL_ATRDAT_LOTE DAT_FECHA DAT_DEPOSITO dat_guardar0dat_leerzdat_leer_datos_adicionalesdat_predeterminados*msg_asunto_accessmsg_id_suceso_accessZ1baa112qAAA31!a!3q21  95a=""B)jG"..4C% uz UI&%CTHIS.col_archivobO6C BUTHIS COL_LLENAR COL_ARCHIVOI&%CTHIS.col_entradabO6C BUTHIS COL_LLENAR COL_ENTRADAH%%CTHIS.col_salidabO5C BUTHIS COL_LLENAR COL_SALIDATestadoJHCB TC CollectionTTsysmsgue T C CollectionT Tsysmsgua BT C CollectionT Tsysmsgus% i T T TOP CC ZSELECT &xTop * FROM &xAlias ORDER BY fecha DESC , id DESC WHERE SUBSTR(id,11,10)=STR(pub_index) AND (EMPTY(validez) OR validez>DATETIME()) AND (This.mensajes_estado=-1 OR Estado=This.mensajes_estado) INTO CURSOR tmpmsg READWRITE & 2CAnalizando mensajes...CN ~@ C@TCC mensajes.vcxTMPMSGTC CUXTIPOOCOLLXALIASOMSG OESTADOWNDXTOPESTADOTHIS COL_ENTRADA COL_ARCHIVO COL_SALIDAMENSAJES_CANTIDADFECHA SET_AND_SHOWAVANCEMSG_TIPO_A_CLASETMPMSGTIPO OBJ_ALIASADDMSG_IDRELEASE o4sysmsguaC =C XC  \CZ4sysmsgusC =C XC  \CZsysmsgueC =C XQC  \CZtmpMSGIDBosysmsgtmpMSGID TMPMSGID2% iF >C =CZ1rsysmsgueo TMPMSGID2C FQF QUTHISFIL_ANALIZAR_FILTROSSYSMSGUEID PUB_INDEXSYSMSGUASYSMSGUSTMPMSGIDSYSMSG TMPMSGID2ALLSQL_USUARIO_ACEPTATIPOSUBTIPOH LT Mensaje_Texto &Tmensaje_articulo_cantidad Tmensaje_solicitud  Tmensaje_comprobante T mensaje_oc ETmensaje_produccion sTmensaje_cierre %Tmensaje_lote_vencimiento 2TMensaje BUXTIPOXCLASEL %+ TBCUXTIPOXSUBTIPOTHIS FIL_ANALIZADO T T F(%-  %C4 <rmsgxuser F ~  7(3T  ~  wT ~  %!(CT   T U NITXTIPOXSUBTHIS FIL_ANALIZADOMSGXUSERTIPOSUBTIPOUSUARIOVALOR PUB_INDEXcol_archivo_access0col_entrada_accesscol_salida_access col_llenar~sql_agregar_nuevosmsg_tipo_a_clasesql_usuario_acepta fil_analizar_filtros3 1bA2bA3QA3qrA1Q1Q1QAaA"qA2 %"qBqAqA3qq11a111q111QAA21A3asQAAsAAAD1AAA1c 1 E> cV j |\ ])."ז%c'&U%J-TCCC TCC-C- BU XFORMATEADO XCODBULATRTHIS DAT_COD_INSDAT_ATRDAT_BULODEYFUNCTX_AGREGAR_ITEM0T Comprar:  BUXASUNTOTHISMSG_COD_BUL_ATRCCC CC CCU THIS VAL_GENERADOR VAL_AGREGAR DAT_COD_INSDAT_ATRDAT_BULDAT_IGUALAR_TIPOS DAT_CANTIDAD DAT_PRECIO TCTCTC!TCC!T CC U XDATOTHIS DAT_COD_INS VAL_GENERADORVAL_COLECCION_NEXTDAT_ATRDAT_BUL DAT_CANTIDADDAT_IGUALAR_TIPOS DAT_PRECIOYTCXTCXTCXTTUTHIS DAT_COD_INSDAT_ATRDAT_BUL DAT_CANTIDAD DAT_PRECIOmsg_cod_bul_atr0msg_asunto_accessC dat_guardardat_leerdat_predeterminados1qq!A3q2aaa2qqqqA3!!!1s -L i()"f\%O`8U  TC%Ctcompras EQtcomprasF#EordenitmCZCZ%C4TT  %C SELECT &xAlias U XALIASXCNTTCOMPRASTHISDAT_OCDAT_ITEMORDENITMDAT_ADI_RECIBIDORECEP3DAT_ADI_COD_PROCOD_PRO CTTTTTTTTU THISDAT_OCDAT_ITEM DAT_FECHA DAT_ENTREGA DAT_VENCE DAT_ADI_OC DAT_ADI_NOTASDAT_ADI_RECIBIDO C CC CC CC CC CCU THIS VAL_GENERADOR VAL_AGREGARDAT_IGUALAR_TIPOSDAT_OCDAT_ITEM DAT_FECHA DAT_ENTREGA DAT_VENCE C $TCC$TCC$TCC$TCC$T C C U XDATOTHISDAT_OCDAT_IGUALAR_TIPOS VAL_GENERADORVAL_COLECCION_NEXTDAT_ITEM DAT_FECHA DAT_ENTREGA DAT_VENCE,)BCZCZCZCZUTHISDAT_OCDAT_ITEMMSG_TIPO MSG_SUBTIPOT TH< 2>TOC: CZ - C* - CC BUXSTTHIS MSG_SUBTIPOXASUNTODAT_OC DAT_VENCEMSG_COD_BUL_ATRdat_leer_datos_adicionales0dat_predeterminados| dat_guardardat_leermsg_id_suceso_access msg_asunto_accessn1AAr111A"!A2aaa23qAAAAAA22qqA1&`Ce(! "1,M=.@) 6PROCEDURE definicion_tipo_subtipo * Subtipo * 0 : Produccin Abierta * 1 : Produccin Reabierta * 2 : Produccin Cerrada Parcial * 3 : Produccin Cerrada Final * 4 : Envasado Abierta * 5 : Envasado Reabierta * 6 : Envasado Cerrada Parcial * 7 : Envasado Cerrada Final * 8 : PT Produccin cierre parcial y final * 9 : PT Envasado cierre parcial y final * Estado * 0 : Abierta * 1 : Reabierta * 2 : Cerrada Parcial * 3 : Cerrada Final ENDPROC PROCEDURE msg_id_suceso_access RETURN STR(this.dat_produccion)+STR(this.dat_cierre) + STR(this.msg_tipo) + STR(this.msg_subtipo) ENDPROC PROCEDURE msg_asunto_access * Subtipo * 10 : Produccin Abierta * 1 : Produccin Reabierta * 2 : Produccin Cerrada Parcial * 3 : Produccin Cerrada Final * 4 : Envasado Abierta * 5 : Envasado Reabierta * 6 : Envasado Cerrada Parcial * 7 : Envasado Cerrada Final * 8 : PT Produccin cierre parcial y final * 9 : PT Envasado cierre parcial y final * Estado * 0 : Abierta * 1 : Reabierta * 2 : Cerrada Parcial * 3 : Cerrada Final DO CASE CASE INLIST(this.msg_subtipo, 1,2,3,10) xTipoProd="" CASE INLIST(this.msg_subtipo, 4,5,6,7) xTipoProd="ENV" CASE INLIST(this.msg_subtipo, 8,9) xTipoProd="PT" ENDCASE DO CASE CASE this.dat_estado =0 OR this.dat_estado =1 RETURN "Abierta "+xTipoProd+": "+STR(this.dat_produccion)+" ("+ this.msg_cod_bul_atr () +")" CASE this.dat_estado =2 RETURN "Cierre P. "+xTipoProd+": "+ALLTRIM(STR(this.dat_produccion))+"/"+ALLTRIM(STR(this.dat_cierre))+" ("+ this.msg_cod_bul_atr () +")" CASE this.dat_estado =3 RETURN "Cierre "+xTipoProd+": "+ALLTRIM(STR(this.dat_produccion))+"/"+ALLTRIM(STR(this.dat_cierre))+" ("+ this.msg_cod_bul_atr ()+")" OTHERWISE RETURN "Prod : "+STR(this.dat_produccion)+" ("+ this.msg_cod_bul_atr () +")" ENDCASE ENDPROC PROCEDURE dat_predeterminados DODEFAULT() this.dat_produccion=0 this.dat_estado=0 this.dat_cierre=0 this.dat_litros=0 ENDPROC PROCEDURE dat_leer LPARAMETERS xDato DODEFAULT(xDato) TRY this.dat_produccion=this.dat_igualar_tipos(this.dat_produccion,this.val_generador.val_coleccion_next()) this.dat_estado=this.dat_igualar_tipos(this.dat_estado,this.val_generador.val_coleccion_next()) this.dat_cierre=this.dat_igualar_tipos(this.dat_cierre,this.val_generador.val_coleccion_next()) this.dat_litros=this.dat_igualar_tipos(this.dat_litros,this.val_generador.val_coleccion_next()) CATCH ENDTRY ENDPROC PROCEDURE dat_guardar DODEFAULT() this.val_generador.val_agregar(this.dat_igualar_tipos("", this.Dat_Produccion)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.Dat_estado)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.Dat_cierre)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.Dat_litros)) ENDPROC PROCEDURE msg_ver_clase_access * Subtipo * 0 : Produccin Abierta * 1 : Produccin Reabierta * 2 : Produccin Cerrada Parcial * 3 : Produccin Cerrada Final * 4 : Envasado Abierta * 5 : Envasado Reabierta * 6 : Envasado Cerrada Parcial * 7 : Envasado Cerrada Final * 8 : PT Produccin cierre parcial y final * 9 : PT Envasado cierre parcial y final DO case CASE INLIST(this.msg_subtipo, 0,1,2,3,8) RETURN "msg_produccion" CASE INLIST(this.msg_subtipo, 4,5,6,7,9) RETURN "msg_produccion_env" ENDCASE ENDPROC PROCEDURE msg_inicializar LPARAMETERS xNoInicializar IF xNoInicializar OR THIS.msg_subtipo#0 THEN RETURN .T. ENDIF DO CASE CASE THIS.msg_tipo = 0 THIS.MSG_Agregar_Hijo(1, "Mensaje de texto","Mensaje_Texto", .f.,,"Pendiente") THIS.MSG_Agregar_Hijo(2, "Mensaje con articulo y cantidad","mensaje_articulo_cantidad") THIS.MSG_Agregar_Hijo(3, "Solicitudes de compra","mensaje_solicitud", .T.,,"Comprar") THIS.MSG_Agregar_Hijo(4, "Mensaje Comprobante","mensaje_comprobante",.t.) THIS.MSG_Agregar_Hijo(5, "rdenes de Compra","mensaje_oc",.t.,,"Comprar") THIS.MSG_Agregar_Hijo(6, "Producciones","Mensaje_produccion",.t.,,"Produccion") THIS.MSG_Agregar_Hijo(7, "Cierre","Mensaje_Cierre") CASE THIS.msg_tipo=1 CASE THIS.msg_tipo=2 THIS.MSG_Agregar_Hijo(2, "Nueva Solicitud?",,.f.) CASE THIS.msg_tipo=3 CASE THIS.msg_tipo=4 CASE THIS.msg_tipo=5 THIS.MSG_Agregar_Hijo(2, "Algo en la OC",,.f.) CASE THIS.msg_tipo=6 THIS.MSG_Agregar_Hijo(10, "Produccin Abierta") THIS.MSG_Agregar_Hijo(1,"Produccin Reabierta") THIS.MSG_Agregar_Hijo(2, "Produccin Cerrada Parcial",,.t.) THIS.MSG_Agregar_Hijo(3, "Produccin Cerrada Final",,.t.) THIS.MSG_Agregar_Hijo(4, "Envasado Abierta") THIS.MSG_Agregar_Hijo(5, "Envasado Reabierta") THIS.MSG_Agregar_Hijo(6, "Envasado Cerrada Parcial",,.t.) THIS.MSG_Agregar_Hijo(7, "Envasado Cerrada Final",,.t.) THIS.MSG_Agregar_Hijo(8, "PT Produccin cierre parcial y final",,.t.) THIS.MSG_Agregar_Hijo(9, "PT Envasado cierre parcial y final",,.t.) * Subtipos * 0 : Produccin Abierta * 1 : Produccin Reabierta * 2 : Produccin Cerrada Parcial * 3 : Produccin Cerrada Final * 4 : Envasado Abierta * 5 : Envasado Reabierta * 6 : Envasado Cerrada Parcial * 7 : Envasado Cerrada Final * 8 : PT Produccin cierre parcial y final * 9 : PT Envasado cierre parcial y final CASE THIS.msg_tipo=7 ENDCASE ENDPROC PROCEDURE msg_tipo_key LPARAMETERS xTipo, xSubtipo xP=PARAMETERS() DO CASE CASE xP=2 CASE xP=1 xSubtipo=this.msg_subtipo CASE xP=0 xSubtipo=this.msg_subtipo xTipo=this.msg_tipo ENDCASE RETURN "Key_"+ALLTRIM(STR(xTipo,3))+"_"+ALLTRIM(STR(xSubtipo,3)) ENDPROC PROCEDURE msg_agregar_hijo LPARAMETERS xSubTipo, xNombre, xClase, xTopic, xClase_Tipo, xImagen, xImagen_Sel LOCAL xTipo xClase_Tipo=EVL(xClase_Tipo, This.Class ) IF this.msg_tipo = 0 THEN xTipo=xSubTipo xSubTipo=0 ELSE xTipo=This.msg_tipo eNDIF IF TYPE("xImagen")="L" THEN xImagen=this.msg_imagen ENDIF IF TYPE("xImagen")="L" THEN xImagen_Sel=this.msg_imagen_Sel ENDIF oMSGT = NEWOBJECT(xClase_Tipo,"mensajes.vcx","",xTipo,xSubTipo, xNombre, xClase, xTopic,.f.,xImagen, xImagen_Sel) this.subTIPOS.Add(oMSGT, oMSGT.msg_tipo_key() ) RETURN oMSGT ENDPROC PROCEDURE msg_suscripcion LPARAMETERS xTipo, xSubtipo, xValor LOCAL oMSGT *=sys_m("Suscripto") IF this.msg_tipo=xTipo AND this.msg_subtipo = xSubtipo THEN this.msg_suscripto = xValor RETURN .t. ENDIF IF this.msg_tipo=0 THEN xKey=this.msg_tipo_key (xTipo,0) ELSE xKey=this.msg_tipo_key (xtipo,xSubtipo) ENDIF oMSGT=this.subTIPOS(xKey) oMSGT.msg_suscripcion(xTipo, xSubtipo, xValor) ENDPROC PROCEDURE Init LPARAMETERS xTipo, xSubTipo, xNombre, xClase, xTopic, xNoInicializar, xImagen, xImagen_Sel This.msg_tipo =EVL(xTipo, 0) this.msg_subtipo=EVL(xSubtipo,0) this.msg_clase = EVL(xClase, "Mensaje") this.msg_nombre = EVL(xNombre,IIF(This.msg_tipo=0 and this.msg_subtipo=0, "Tipos de Mensajes disponibles", "Mensaje")) this.msg_topic = xTopic this.msg_imagen = EVL(xImagen,"") this.msg_imagen_sel = EVL(xImagen_Sel,"") This.msg_Inicializar(xNoInicializar) ENDPROC hPROCEDURE col_archivo_access *To do: Modify this routine for the Access method IF type("THIS.col_archivo")#"O" THEN this.col_llenar(2) ENDIF RETURN THIS.col_archivo ENDPROC PROCEDURE col_entrada_access *To do: Modify this routine for the Access method IF type("THIS.col_entrada")#"O" THEN this.col_llenar(1) ENDIF RETURN THIS.col_entrada ENDPROC PROCEDURE col_salida_access IF type("THIS.col_salida")#"O" THEN this.col_llenar(3) ENDIF RETURN THIS.col_salida ENDPROC PROCEDURE col_llenar LPARAMETERS xTipo &&xTipo 1-Entrada, 2-Archivo, 3-Salida LOCAL oColl, xAlias, oMSG, oEstadoWND, xTop DO FORM estado NAME oEstadoWND LINKED NOSHOW DO case CASE xTipo=1 this.col_entrada =NEWOBJECT("Collection") oColl=this.col_entrada xAlias="sysmsgue" CASE xTipo=2 this.col_archivo =NEWOBJECT("Collection") oColl=this.col_archivo xAlias="sysmsgua" CASE xTipo=3 this.col_salida =NEWOBJECT("Collection") oColl=this.col_salida xAlias="sysmsgus" endcase IF this.mensajes_cantidad = 0 THEN xTop="" eLSE xTop=" TOP "+ALLTRIM(STR(This.mensajes_cantidad )) ENDIF SELECT &xTop * ; FROM &xAlias ; ORDER BY fecha DESC , id DESC ; WHERE SUBSTR(id,11,10)=STR(pub_index) AND (EMPTY(validez) OR validez>DATETIME()) AND (This.mensajes_estado=-1 OR Estado=This.mensajes_estado); INTO CURSOR tmpmsg READWRITE INDEX on fecha TAG Fecha oEstadoWND.set_and_show("Analizando mensajes...", 1, RECCOUNT()+1, 1) SCAN oEstadoWND.Avance() oMSG=NEWOBJECT(this.msg_tipo_a_clase(tmpmsg.tipo),"mensajes.vcx","",,xTipo,"","TMPMSG",2) oMSG.obj_alias=xAlias oColl.add(oMSG,oMSG.MSG_ID) ENDSCAN oEstadoWND.Release() ENDPROC PROCEDURE sql_agregar_nuevos &&& Preanalizo los filtros por usuario THIS.fil_analizar_filtros SELECT LEFT(sysmsgue.ID,10)+SPACE(10) AS ID FROM sysmsgue WHERE SUBSTR(ID,11,10)=STR(pub_index); UNION all SELECT LEFT(sysmsgua.ID,10)+SPACE(10) FROM sysmsgua WHERE SUBSTR(ID,11,10)=STR(pub_index); UNION all SELECT LEFT(sysmsgus.ID,10)+SPACE(10) FROM sysmsgus WHERE SUBSTR(ID,11,10)=STR(pub_index); INTO CURSOR tmpMSGID SELECT *; FROM sysmsg ; WHERE NOT sysmsg.ID IN (SELECT tmpMSGID.ID FROM tmpMSGID) ; INTO CURSOR TMPMSGID2 READWRITE IF _TALLY>0 THEN SELECT TMPMSGID2 REPLACE ID WITH LEFT(ID,10)+STR(pub_index) ALL INSERT INTO sysmsgue ; SELECT * ; FROM TMPMSGID2 ; WHERE THIS.sql_usuario_acepta(tipo, subtipo) ENDIF SELECT tmpMSGID USE SELECT TMPMSGID2 USE ENDPROC PROCEDURE msg_tipo_a_clase LPARAMETERS xTipo LOCAL xClase DO CASE CASE xTipo=1 xClase="Mensaje_Texto" CASE xTipo=2 xClase="mensaje_articulo_cantidad" CASE xTipo=3 xClase="mensaje_solicitud" CASE xTipo=4 xClase="mensaje_comprobante" CASE xTipo=5 xClase="mensaje_oc" CASE xTipo=6 xClase="mensaje_produccion" CASE xTipo=7 xClase="mensaje_cierre" CASE xTipo=8 xClase="mensaje_lote_vencimiento" OTHERWISE xClase="Mensaje" ENDCASE RETURN xClase ENDPROC PROCEDURE sql_usuario_acepta LPARAMETERS xTipo, xSubtipo IF xSubtipo=0 THEN xSubtipo=1 ENDIF RETURN (this.fil_analizado(xTipo, xSubtipo)=1) ENDPROC PROCEDURE fil_analizar_filtros LOCAL nIt, xTipo, xSub xTipo=10&&Cant Maxima de Tipos xSub=10 &&Cant Maxima de Subtipos DIMENSION this.fil_analizado(xTipo,xSub) *** Primero me aseguro los valores base para todos los tipos SELECT msgxuser FOR nIt =1 TO xTipo LOCATE FOR tipo=nIt AND subtipo=0 AND usuario=-1 IF !FOUND() THEN INSERT INTO msgxuser (tipo, subtipo, usuario, valor) VALUES (nIt,0,-1,0) ENDIF NEXT *** Primero aplico los valores base para todos los tipos SELECT msgxuser SCAN FOR subtipo=0 AND usuario=-1 FOR nIt=1 TO xSub this.fil_analizado(tipo,nIt)=valor next ENDSCAN *** Luego los particulares para cada subtipo SCAN FOR subtipo#0 AND usuario=-1 this.fil_analizado(tipo,subtipo)=valor ENDSCAN *** Luego los particulares para el usuario SCAN FOR usuario=pub_index IF subtipo=0 THEN FOR nIt=1 TO ALEN(this.fil_analizado,2) this.fil_analizado(tipo,nIt)=valor NEXT ELSE this.fil_analizado(tipo,subtipo)=valor ENDIF ENDSCAN ENDPROC  PROCEDURE Init LPARAMETERS xNoLeer, xclase, xID, xalias, xABM, oSVP this.val_generador = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") this.val_generador.set_div = "MSGD" this.val_generador.set_Head = "HMSGD" IF NOT EMPTY(xABM) THEN this.obj_abm = xABM ENDIF this.obj_clase=xclase IF NOT xNOLeer THEN this.msg_leer (xalias) ENDIF ENDPROC PROCEDURE msg_asunto_access LOCAL xST xST=this.msg_subtipo DO CASE CASE xST=1 This.msg_asunto="Sol.: "+STR(this.dat_solicitud,5 )+" - "+DTOC(this.dat_fecha) CASE xST=2 This.msg_asunto="Sol. sin OC: "+STR(this.dat_solicitud,5 ) +" - "+DTOC(this.dat_fecha) OTHERWISE This.msg_asunto="Sol.: "+STR(this.dat_solicitud,5 )+" - "+DTOC(this.dat_fecha) ENDCASE RETURN This.msg_asunto ENDPROC PROCEDURE msg_id_suceso_access this.msg_id_suceso = STR(this.dat_solicitud) +STR(this.dat_item) + STR(this.msg_tipo) + STR(this.msg_subtipo) RETURN this.msg_id_suceso ENDPROC PROCEDURE dat_leer LPARAMETERS xDato DODEFAULT(xDato) TRY this.dat_solicitud=this.dat_igualar_tipos(this.dat_solicitud,this.val_generador.val_coleccion_next()) this.dat_item=this.dat_igualar_tipos(this.dat_item,this.val_generador.val_coleccion_next()) this.dat_fecha=this.dat_igualar_tipos(this.dat_fecha,this.val_generador.val_coleccion_next()) this.dat_entrega=this.dat_igualar_tipos(this.dat_entrega,this.val_generador.val_coleccion_next()) CATCH ENDTRY ENDPROC PROCEDURE dat_guardar DODEFAULT() this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_solicitud)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_item)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_fecha)) this.val_generador.val_agregar(this.dat_igualar_tipos("", this.dat_entrega)) ENDPROC PROCEDURE dat_predeterminados DODEFAULT() this.dat_solicitud=0 this.dat_item=0 this.dat_fecha={ / / } this.dat_entrega={ / / } this.dat_adi_OC=0 this.dat_adi_notas="" ENDPROC PROCEDURE dat_leer_datos_adicionales LOCAL xAlias, xCNT xAlias=ALIAS() IF !USED("dsolcom") THEN use (iif(p_uno#0,p_system+"\data\"+alltrim(str(p_uno)),p_server)+"\dsolcom") IN 0 ENDIF SELECT dsolcom SEEK STR(this.dat_solicitud)+STR(this.dat_item) ORDER tag solitm IF FOUND() THEN this.dat_adi_notas=dsolcom.notas ENDIF IF !USED("tcompras") THEN USE tcompras IN 0 ENDIF xCNT=0 SELECT tcompras SUM recepcion FOR STR(SOL)+STR(ITeM,3)=STR(this.dat_solicitud)+STR(this.dat_item,3) TO xCNT this.dat_adi_OC=xCNT IF NOT EMPTY(xAlias) THEN SELECT &xAlias ENDIF ENDPROC PROCEDURE dat_guardar this.val_generador.val_agregar(this.dat_cod_ins) this.val_generador.val_agregar(this.dat_atr) this.val_generador.val_agregar(this.dat_bul) this.val_generador.val_agregar(this.dit("",this.dat_lote,20)) this.val_generador.val_agregar(this.dit("", this.dat_fecha)) this.val_generador.val_agregar(this.dit("", this.dat_Cantidad)) this.val_generador.val_agregar(this.dit("",this.dat_deposito),8) ENDPROC PROCEDURE dat_leer LPARAMETERS xDato TRY this.dat_cod_ins =this.val_generador.val_coleccion_next(,15) this.dat_atr=this.val_generador.val_coleccion_next(,3) this.dat_bul=this.val_generador.val_coleccion_next(,3) this.dat_lote=this.val_generador.val_coleccion_next(,20) this.dat_fecha=this.dat_igualar_tipos(this.dat_fecha,this.val_generador.val_coleccion_next()) this.dat_Cantidad=this.dat_igualar_tipos(this.dat_Cantidad,this.val_generador.val_coleccion_next()) this.dat_deposito=this.val_generador.val_coleccion_next(,8) CATCH ENDTRY ENDPROC PROCEDURE dat_leer_datos_adicionales LOCAL xAlias, xCNT *!* xAlias=ALIAS() *!* *!* IF !USED("dsolcom") THEN *!* *!* USE dsolcom IN 0 *!* *!* ENDIF *!* *!* SELECT dsolcom *!* *!* SEEK STR(this.dat_solicitud)+STR(this.dat_item) ORDER tag solitm *!* *!* IF FOUND() THEN *!* *!* this.dat_adi_notas=dsolcom.notas *!* *!* ENDIF *!* IF !USED("tcompras") THEN *!* USE tcompras IN 0 *!* ENDIF *!* SELECT tcompras *!* SEEK STR(this.dat_oc)+STR(this.dat_item) ORDER tag ordenitm *!* IF FOUND() THEN *!* this.dat_adi_recibido = tcompras.recep3 *!* this.dat_adi_cod_pro = tcompras.cod_pro *!* ENDIF *!* IF NOT EMPTY(xAlias) THEN *!* SELECT &xAlias *!* ENDIF ENDPROC PROCEDURE dat_predeterminados DODEFAULT() this.dat_lote = SPACE(20) this.dat_fecha={ / / } this.dat_deposito=SPACE(8) this.dat_cantidad=0 ENDPROC PROCEDURE msg_asunto_access LOCAL xAsunto xAsunto="Vence Art.: "+this.msg_cod_bul_atr (.t.) +" Lote: "+ ALLTRIM(This.dat_lote) + " Fecha: "+DTOC(this.dat_fecha ) RETURN xAsunto ENDPROC PROCEDURE msg_id_suceso_access this.msg_id_suceso=this.msg_cod_bul_atr(.t.)+this.dat_lote + DTOS(this.dat_fecha )+this.dat_deposito RETURN this.msg_id_suceso ENDPROC )"))J6%%`7#U%T BUTHISMSG_ID OBJ_DATOSIDM$%CTHIS.obj_datosbO:T BUTHISMSG_TIPO OBJ_DATOSTIPOP$%CTHIS.obj_datosbO0 B IBUTHIS MSG_SUBTIPO OBJ_DATOSSUBTIPOBUTHIS OBJ_DATOSFECHABUTHIS OBJ_DATOSVALIDEZBUTHIS OBJ_DATOSDATOSG%C! B @BCCCg8UTHIS OBJ_DATOSUSER_TOB%C/T ITSELECT &xalias % ^JTC]TT T   ^JT %;T C&T <<UXALIASXOBJTHIS OBJ_ALIASOBJ_ABMIDTIPOMSG_TIPOSUBTIPO MSG_SUBTIPOEMPP_CODEMP OBJ_DATOS MSG_FECHA MSG_VALIDEZMSG_VALIDEZ_DIAS8%CB-T UVNEWVALTHIS OBJ_CLASE%CH% JBsysmsg qBsysmsgue Bsysmsgua Bsysmsgus BUTHIS OBJ_ALIAS OBJ_CLASET UVNEWVALTHIS OBJ_ALIASBCC=UTHIS OBJ_DATOSDATOS UXDATOU$%CTHIS.obj_datosbO+B-    mT w BUTHISDAT_GUARDAR_PRE DAT_GUARDARDAT_GUARDAR_POS OBJ_DATOS ID_SUCESO MSG_ID_SUCESO|$%CxOBJbOC uTCC  UXOBJTHIS OBJ_DATOS DAT_LEER_PREDATOSDAT_LEER DAT_LEER_POSDAT_LEER_DATOS_ADICIONALES BUTHIS USER_FROMG%C! B @BCCCg8UTHIS OBJ_DATOS USER_FROMBCCU OSECURITYGET_USERTHIS MSG_USER_FROMTH( CQBC^ C zBC^ C cBC@^ 2BC^ BUXESTADOTHIS MSG_ESTADO LV_TEXTOCOLORBUTHIS OBJ_DATOSESTADO T TH9 aTRevisado  T Completado 2T Pendiente BUXESTADOXESTADOCTHIS MSG_ESTADO BUTHIS MSG_VER_CLASE BUTHIS MSG_IMAGEN* CTUXDATOTHISDAT_PREDETERMINADOS VAL_GENERADOR VAL_TEXTOCUTHIS VAL_GENERADOR VAL_AGREGARTUTHIS OBJ_DATOSDATOS VAL_GENERADOR VAL_TEXTO"T BUTHIS MSG_ID_SUCESOMSG_ID  _JUTHIS OBJ_BUSCAR OBJ_DATOS TCxValorbTC xValor_Nuevob% C r BH CH C%C T TC N.TCZ L_TCTF6 DTC* TTC 2 T CH N TCg L/TT DRTC# TvTC 2 T 2 T BUXVALOR XVALOR_NUEVOXLARGOXTY1XTY2XVALjTH(W CFBa 2WB- BUXESTADOTHIS MSG_ESTADO LV_TEXTOBOLD$%  +B-%CF%TSYSMSGUA% T TSYSMSGUET TUTHISOBJ_ABM OBJ_CLASE OBJ_BUSCAR OBJ_ALIAS MSG_ESTADO OBJ_GRABARTSELECT &xAlias %E Eid%C4 CBorradoB-UXALIASTHIS OBJ_ALIASOBJ_ABM OBJ_DATOSIDMENSAJEpH_ 8T _T UTHIS MSG_USER_CTRL PUB_INDEXMSG_PUBLICAR_CAMBIOSG%C! B @BCCCg8UTHIS OBJ_DATOS USER_CTRLT%0TCZ MTUVNEWVALTHIS OBJ_DATOS USER_CTRL  TT-psysmsgCZC =C =/psysmsgueCZC =C =/psysmsguaCZC =C =/psysmsgusCZC =C =U THIS OBJ_GRABARXID XUSR_CTRLMSG_ID MSG_USER_CTRLSYSMSG USER_CTRLIDSYSMSGUESYSMSGUASYSMSGUSBCCU OSECURITYGET_USERTHIS MSG_USER_CTRLTUVNEWVALTHIS OBJ_DATOSESTADO)T % "T+psysmsgC =C =-psysmsgueC =C =-psysmsguaC =C =-psysmsgusC =C =%   UXESTADOXIDTHIS MSG_ESTADO OBJ_GRABARMSG_IDSYSMSGESTADOIDSYSMSGUESYSMSGUASYSMSGUS MSG_USER_CTRLACC_TOMAR_CONTROL BUTHISUSER_TOCBCCU OSECURITYGET_USERTHIS MSG_USER_TOQ%CB-TsysmsgT UTHISOBJ_BUSCAR_SUCESO OBJ_ALIASOBJ_ABM OBJ_GRABARDTCC> BCSYSMSG ID_SucesoUXMSGIDTHIS MSG_ID_SUCESOSYSMSG ID_SUCESO1T T UVNEWVALTHIS MSG_FECHA OBJ_DATOSFECHA1T T UVNEWVALTHIS MSG_SUBTIPO OBJ_DATOSSUBTIPOT UVNEWVALTHISMSG_TIPOT UVNEWVALTHIS MSG_USER_FROMT UVNEWVALTHIS MSG_USER_TO1T T UVNEWVALTHIS MSG_VALIDEZ OBJ_DATOSVALIDEZ:%'T BUTHISMSG_VALIDEZ_DIASP_SYSMSG_VALIDEZ_DIAST UVNEWVALTHISMSG_VALIDEZ_DIAS+BCUXVALOR XVALOR_NUEVOXLARGOTHISDAT_IGUALAR_TIPOS/TCExportar_Texto Imp_Exp.vcxTMSGDTHMSGD%C T T % C U XNOLEERXCLASEXIDXALIASXABMTHIS VAL_GENERADORSET_DIVSET_HEADOBJ_ABM OBJ_CLASEMSG_LEER msg_id_access0msg_tipo_accesszmsg_subtipo_accessmsg_fecha_accessomsg_validez_accessmsg_datos_accessmsg_user_to_accessmsg_leerpobj_clase_assignPobj_alias_accessobj_alias_assignmsg_asunto_accessdat_leer dat_guardar4obj_datos_access?obj_datos_assign+user_from_accessmsg_user_from_access7msg_user_fromc_accesslv_textocolor_accessmsg_estado_access msg_estadoc_access# msg_ver_clase_access msg_imagen_access7 dat_leer_pre` dat_guardar_pre dat_guardar_pos msg_id_suceso_accessa obj_grabar dat_igualar_tipos lv_textobold_access acc_archivarq obj_buscaracc_tomar_controlmsg_user_ctrl_access@msg_user_ctrl_assignmsg_publicar_cambios,msg_user_ctrlc_accessmsg_estado_assign acc_estado%user_toc_accessmsg_user_toc_accessobj_agregar_sucesoMobj_buscar_sucesomsg_fecha_assign[msg_subtipo_assignmsg_tipo_assign)msg_user_from_assignfmsg_user_to_assignmsg_validez_assignmsg_validez_dias_accessQmsg_validez_dias_assignditInitq1b3BaA2BA3333rQA3qqA!a111AaaA2qqA!3BaaaaAA3q"3b3q25BqAaA3qB11A23rQA3S2rq!q!q!!A331Q1qaA333q1232232QArAA!AAQAAAAAAA!AAAA3rqqqA3AqA2AAaaAA2q1aQQAqAA2qaA3rQA3qAQ1A32S2q13qq1qAA23Q21sAc3q3q"Q2q"Q2q"3q"3q"3q"Q2rA3q"32qq!AA1: c'wi!:&YA/2hG8!PFR aIz gK lM. 2 oNY b tZ _ c e k >mi{/}XfQt7h#U} 7+%;fI=Sh\ei p u "z%"+#'U##)#$0$@%4g%%8&&<&%'?P''B'G(Ep((I&))N)i*Q**T+F,))l"SS%6>UU,)BCZCZCZCZUTHISDAT_PRODUCCION DAT_CIERREMSG_TIPO MSG_SUBTIPOH C > T CnTENV C TPTH$   8BAbierta : CZ (C) jLB Cierre P. : CCZ/CCZ (C) IBCierre : CCZ/CCZ (C) 2-BProd : CZ (C)UTHIS MSG_SUBTIPO XTIPOPROD DAT_ESTADODAT_PRODUCCIONMSG_COD_BUL_ATR DAT_CIERREL CTTTTUTHISDAT_PRODUCCION DAT_ESTADO DAT_CIERRE DAT_LITROS C $TCC$TCC$TCC$TCC U XDATOTHISDAT_PRODUCCIONDAT_IGUALAR_TIPOS VAL_GENERADORVAL_COLECCION_NEXT DAT_ESTADO DAT_CIERRE DAT_LITROS C CC CC CC CCUTHIS VAL_GENERADOR VAL_AGREGARDAT_IGUALAR_TIPOSDAT_PRODUCCION DAT_ESTADO DAT_CIERRE DAT_LITROSH# CKBmsg_produccion# C Bmsg_produccion_envUTHIS MSG_SUBTIPOdefinicion_tipo_subtipo0msg_id_suceso_access;msg_asunto_accessdat_predeterminadosdat_leer dat_guardarmsg_ver_clase_access1012 AAaaA43qAAAAA231q1A2#Px:dA I)  T/= + \)S,QPROCEDURE msg_id_access *To do: Modify this routine for the Access method this.msg_id=THIS.obj_datos.ID RETURN this.msg_id ENDPROC PROCEDURE msg_tipo_access *To do: Modify this routine for the Access method IF TYPE("THIS.obj_datos")="O" this.msg_tipo=THIS.obj_datos.tipo ENDIF RETURN this.msg_tipo ENDPROC PROCEDURE msg_subtipo_access *To do: Modify this routine for the Access method IF TYPE("THIS.obj_datos")#"O" RETURN this.msg_subtipo ELSE RETURN THIS.obj_datos.subtipo ENDIF ENDPROC PROCEDURE msg_fecha_access *To do: Modify this routine for the Access method RETURN THIS.obj_datos.Fecha ENDPROC PROCEDURE msg_validez_access *To do: Modify this routine for the Access method RETURN THIS.obj_datos.validez ENDPROC PROCEDURE msg_datos_access *To do: Modify this routine for the Access method RETURN THIS.obj_datos.datos ENDPROC PROCEDURE msg_user_to_access *To do: Modify this routine for the Access method IF EMPTY(this.obj_datos.user_to) THEN RETURN -2 ELSE RETURN INT(VAL(ALLTRIM(THIS.obj_datos.user_to))) ENDIF ENDPROC PROCEDURE msg_leer LPARAMETERS xAlias LOCAL xOBJ IF EMPTY(xAlias) THEN xalias=this.obj_alias ELSE this.obj_alias=xalias ENDIF SELECT &xalias IF this.obj_abm = 1 THEN SCATTER NAME xOBJ MEMO BLANK xOBJ.ID=SYS(2015) xObj.Tipo=this.msg_tipo xObj.SubTipo=this.msg_SubTipo xObj.Emp=p_codemp ELSE SCATTER NAME xOBJ MEMO ENDIF this.obj_datos =xObj IF this.obj_abm = 1 THEN this.msg_fecha = DATETIME() this.msg_validez = this.msg_fecha + this.msg_validez_dias * 24*60*60 ENDIF ENDPROC PROCEDURE obj_clase_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF EMPTY(vNewVal) THEN RETURN .f. ENDIF THIS.obj_clase = m.vNewVal ENDPROC PROCEDURE obj_alias_access *To do: Modify this routine for the Access method IF EMPTY(THIS.obj_alias) THEN DO CASE CASE this.obj_clase = 0 && Mensaje del sistema RETURN "sysmsg" CASE this.obj_clase = 1 && Mensaje recibido RETURN "sysmsgue" CASE this.obj_clase = 2 && Mensaje Archivado RETURN "sysmsgua" CASE this.obj_clase = 3 && Mensaje enviado RETURN "sysmsgus" ENDCASE ENDIF RETURN THIS.obj_alias ENDPROC PROCEDURE obj_alias_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.obj_alias = m.vNewVal ENDPROC PROCEDURE msg_asunto_access *To do: Modify this routine for the Access method RETURN ALLTRIM(LEFT(THIS.obj_datos.datos,30)) ENDPROC PROCEDURE dat_leer LPARAMETERS xDato ENDPROC PROCEDURE dat_guardar ENDPROC PROCEDURE obj_datos_access *To do: Modify this routine for the Access method IF TYPE("THIS.obj_datos")#"O" THEN RETURN .f. ENDIF this.dat_guardar_pre this.dat_guardar this.dat_guardar_pos TRY THIS.obj_datos.id_suceso=this.msg_id_suceso CATCH endtry RETURN THIS.obj_datos ENDPROC PROCEDURE obj_datos_assign LPARAMETERS xOBJ IF TYPE("xOBJ")="O" AND NOT ISNULL(xOBJ) THEN THIS.obj_datos = xOBJ this.dat_leer_pre(xOBJ.datos) this.dat_leer (xOBJ.datos) this.dat_leer_pos this.dat_leer_datos_adicionales endif ENDPROC PROCEDURE user_from_access *To do: Modify this routine for the Access method RETURN THIS.user_from ENDPROC PROCEDURE msg_user_from_access *To do: Modify this routine for the Access method IF EMPTY(this.obj_datos.user_from) THEN RETURN -1 ELSE RETURN INT(VAL(ALLTRIM(this.obj_datos.user_from))) ENDIF ENDPROC PROCEDURE msg_user_fromc_access *To do: Modify this routine for the Access method RETURN ALLTRIM(oSecurity.Get_USer(This.msg_user_from)) ENDPROC PROCEDURE lv_textocolor_access *To do: Modify this routine for the Access method LOCAL xEstado xEstado=this.msg_estado DO CASE CASE BETWEEN(xEstado,0,4) RETURN RGB(255,0,0) CASE BETWEEN(xEstado,5,9) RETURN RGB(0,0,128) CASE BETWEEN(xEstado,10,99) RETURN RGB(0,128,64) OTHERWISE RETURN RGB(0,0,0) ENDCASE RETURN THIS.LV_TextoColor ENDPROC PROCEDURE msg_estado_access *To do: Modify this routine for the Access method RETURN THIS.obj_datos.ESTADO ENDPROC PROCEDURE msg_estadoc_access *To do: Modify this routine for the Access method LOCAL xEstado, xEstadoC xEstado=THIS.msg_estado xEstadoC="" DO CASE CASE xEstado=5 xEstadoC="Revisado" CASE xEstado=10 xEstadoC="Completado" OTHERWISE xEstadoC="Pendiente" ENDCASE RETURN xEstadoC ENDPROC PROCEDURE msg_ver_clase_access *To do: Modify this routine for the Access method RETURN THIS.msg_ver_clase ENDPROC PROCEDURE msg_imagen_access *To do: Modify this routine for the Access method RETURN THIS.msg_imagen ENDPROC PROCEDURE dat_leer_pre LPARAMETERS xDato =this.dat_predeterminados () this.val_generador.val_Texto = xDato ENDPROC PROCEDURE dat_guardar_pre this.val_generador.val_agregar() ENDPROC PROCEDURE dat_guardar_pos this.obj_datos.datos=this.val_generador.val_texto ENDPROC PROCEDURE msg_id_suceso_access *To do: Modify this routine for the Access method this.msg_id_suceso=THIS.msg_id RETURN this.msg_id_suceso ENDPROC PROCEDURE obj_grabar this.obj_buscar GATHER NAME this.obj_datos MEMO ENDPROC PROCEDURE dat_igualar_tipos LPARAMETERS xValor, xValor_Nuevo, xLargo LOCAL xTy1, xTy2 xTy1=TYPE("xValor") xTy2=TYPE("xValor_Nuevo") IF xTy1=xTy2 AND xTy1#"C" THEN RETURN xValor_Nuevo ENDIF LOCAL xVal DO CASE CASE xTy1="C" DO CASE CASE xTy2="C" IF EMPTY(xLargo) THEN xVal=xValor_Nuevo ELSE xVal=PADR(xValor_Nuevo, xLargo) ENDIF CASE xTy2="N" xVal=STR(xValor_Nuevo,20,6) CASE xTy2="L" xVal=IIF(xValor_Nuevo,"T","F") CASE xTy2="D" xVal=DTOC(xValor_Nuevo) CASE xTy2="T" xVal=TTOC(xValor_Nuevo) OTHERWISE xVal=xValor_Nuevo ENDCASE CASE xTy2="C" DO CASE CASE xTy1="N" xVal=VAL(xValor_Nuevo) CASE xTy1="L" xVal=xValor_Nuevo="T" CASE xTy1="D" xVal=CTOD(xValor_Nuevo) CASE xTy1="T" xVal=CTOT(xValor_Nuevo) OTHERWISE xVal=xValor_Nuevo ENDCASE OTHERWISE xVal=xValor_Nuevo ENDCASE RETURN xVal ENDPROC PROCEDURE lv_textobold_access *To do: Modify this routine for the Access method LOCAL xEstado xEstado=this.msg_estado DO CASE CASE BETWEEN(xEstado,0,4) RETURN .t. OTHERWISE RETURN .f. ENDCASE RETURN THIS.LV_TextoBold ENDPROC PROCEDURE acc_archivar IF this.obj_abm =1 OR this.obj_clase = 3 THEN RETURN .f. ENDIF IF this.obj_buscar() THEN DELETE ENDIF IF this.obj_clase = 1 THEN *** Archivar this.obj_alias="SYSMSGUA" IF this.msg_estado<5 THEN this.msg_estado=5 ENDIF ELSE *** Des Archivar this.obj_alias="SYSMSGUE" ENDIF this.obj_abm = 1 this.obj_grabar this.obj_abm = 2 ENDPROC PROCEDURE obj_buscar LOCAL xAlias xAlias=this.obj_alias SELECT &xAlias IF this.obj_abm=1 THEN APPEND BLANK ELSE SEEK this.obj_datos.id ORDER TAG id IF !FOUND() THEN =Mensaje("Borrado") RETURN .f. ENDIF ENDIF ENDPROC PROCEDURE acc_tomar_control DO CASE CASE this.msg_user_ctrl =-2 this.msg_user_ctrl = pub_index CASE this.msg_user_ctrl = pub_index this.msg_user_ctrl = -2 ENDCASE this.msg_publicar_cambios ENDPROC PROCEDURE msg_user_ctrl_access *To do: Modify this routine for the Access method IF EMPTY(this.obj_datos.user_ctrl) THEN RETURN -2 ELSE RETURN INT(VAL(ALLTRIM(this.obj_datos.user_ctrl))) ENDIF ENDPROC PROCEDURE msg_user_ctrl_assign LPARAMETERS vNewVal IF vNewVal#-2 THEN this.obj_datos.user_ctrl=STR(vNewVal) ELSE this.obj_datos.user_ctrl="" ENDIF ENDPROC PROCEDURE msg_publicar_cambios this.obj_grabar LOCAL xID, xUSR_CTRL xID=This.msg_id xUSR_CTRL=This.msg_user_ctrl UPDATE sysmsg SET User_Ctrl=STR(xUSR_CTRL) where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgue SET User_Ctrl=STR(xUSR_CTRL) where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgua SET User_Ctrl=STR(xUSR_CTRL) where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgus SET User_Ctrl=STR(xUSR_CTRL) where LEFT(id,10)=LEFT(xID,10) ENDPROC PROCEDURE msg_user_ctrlc_access *To do: Modify this routine for the Access method *To do: Modify this routine for the Access method RETURN ALLTRIM(oSecurity.Get_USer(This.msg_user_ctrl)) ENDPROC PROCEDURE msg_estado_assign LPARAMETERS vNewVal this.obj_datos.estado=vNewVal ENDPROC PROCEDURE acc_estado LPARAMETERS xEstado LOCAL xID this.msg_estado = xEstado this.obj_grabar IF xEstado = 10 THEN xID = this.msg_id UPDATE sysmsg SET Estado=xEstado where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgue SET Estado=xEstado where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgua SET Estado=xEstado where LEFT(id,10)=LEFT(xID,10) UPDATE sysmsgus SET Estado=xEstado where LEFT(id,10)=LEFT(xID,10) IF this.msg_user_ctrl =-2 THEN this.acc_tomar_control ENDIF ENDIF ENDPROC PROCEDURE user_toc_access *To do: Modify this routine for the Access method RETURN THIS.User_ToC ENDPROC PROCEDURE msg_user_toc_access RETURN ALLTRIM(oSecurity.Get_USer(This.msg_user_TO)) ENDPROC PROCEDURE obj_agregar_suceso IF this.obj_buscar_suceso() THEN *** Existe el suceso, no es necesario agregarlo *** ToDO: Agregar control de modificaciones. RETURN .f. ENDIF *** Grabo en el principal this.obj_alias="sysmsg" this.obj_abm =1 this.obj_grabar ENDPROC PROCEDURE obj_buscar_suceso LOCAL xMSGID xMSGID=PADR(this.msg_id_suceso,LEN(SYSMSG.ID_Suceso)) RETURN SEEK(xMSGID, "SYSMSG", "ID_Suceso") ENDPROC PROCEDURE msg_fecha_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_fecha = m.vNewVal THIS.obj_datos.Fecha = m.vNewVal ENDPROC PROCEDURE msg_subtipo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_subtipo = m.vNewVal THIS.obj_datos.subtipo = m.vNewVal ENDPROC PROCEDURE msg_tipo_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_tipo = m.vNewVal ENDPROC PROCEDURE msg_user_from_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_user_from = m.vNewVal ENDPROC PROCEDURE msg_user_to_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_user_to = m.vNewVal ENDPROC PROCEDURE msg_validez_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_validez = m.vNewVal THIS.obj_datos.validez = m.vNewVal ENDPROC PROCEDURE msg_validez_dias_access *To do: Modify this routine for the Access method IF THIS.msg_validez_dias=-1 THEN THIS.msg_validez_dias=p_sysmsg_validez_dias ENDIF RETURN THIS.msg_validez_dias ENDPROC PROCEDURE msg_validez_dias_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.msg_validez_dias = m.vNewVal ENDPROC PROCEDURE dit LPARAMETERS xValor, xValor_Nuevo, xLargo RETURN this.dat_igualar_tipos(@xValor, @xValor_Nuevo, @xLargo) ENDPROC PROCEDURE Init LPARAMETERS xNoLeer, xclase, xID, xalias, xABM this.val_generador = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") this.val_generador.set_div = "MSGD" this.val_generador.set_Head = "HMSGD" IF NOT EMPTY(xABM) THEN this.obj_abm = xABM ENDIF this.obj_clase=xclase IF NOT xNOLeer THEN this.msg_leer (xalias) ENDIF ENDPROC  $" %^ Z U%  +BaH@ ACMensaje de texto Mensaje_Texto- PendienteNCMensaje con articulo y cantidadmensaje_articulo_cantidadHCSolicitudes de compramensaje_solicitudaComprar=CMensaje Comprobantemensaje_comprobantea=Crdenes de Compra mensaje_ocaComprarCC ProduccionesMensaje_producciona Produccion*CCierreMensaje_Cierre * e%CNueva Solicitud?- {  "C Algo en la OC- %C Produccin Abierta'CProduccin Reabierta/CProduccin Cerrada Parciala-CProduccin Cerrada Finala#CEnvasado Abierta%CEnvasado Reabierta-CEnvasado Cerrada Parciala+CEnvasado Cerrada Finala9C$PT Produccin cierre parcial y finala7C "PT Envasado cierre parcial y finala UXNOINICIALIZARTHIS MSG_SUBTIPOMSG_TIPOMSG_AGREGAR_HIJO  TCH( ; ^T TT(BKey_CCZ_CCZUXTIPOXSUBTIPOXPTHIS MSG_SUBTIPOMSG_TIPORTC  % l T T T %CxImagenbLT %CxImagenbLT ?T C mensajes.vcx-C C  B UXSUBTIPOXNOMBREXCLASEXTOPIC XCLASE_TIPOXIMAGEN XIMAGEN_SELXTIPOTHISCLASSMSG_TIPO MSG_IMAGENMSG_IMAGEN_SELOMSGTSUBTIPOSADD MSG_TIPO_KEY$%  QTBa%TC TC TC C U XTIPOXSUBTIPOXVALOROMSGTTHISMSG_TIPO MSG_SUBTIPO MSG_SUSCRIPTOXKEY MSG_TIPO_KEYSUBTIPOSMSG_SUSCRIPCION#T C T C T CMensaje ]T CC    #Tipos de Mensajes disponibles Mensaje6 T TC TC CUXTIPOXSUBTIPOXNOMBREXCLASEXTOPICXNOINICIALIZARXIMAGEN XIMAGEN_SELTHISMSG_TIPO MSG_SUBTIPO MSG_CLASE MSG_NOMBRE MSG_TOPIC MSG_IMAGENMSG_IMAGEN_SELMSG_INICIALIZARmsg_inicializar0 msg_tipo_key+msg_agregar_hijo%msg_suscripcion#Init 1qqAa1bbQbbb!bQq1QqmB3111A3qaaAAA2qBqAbAQ31aaaa2#9/ GB( [P m) "qq%B+UTH( ^#BNuevo Comprobante:  B Vencido:  'BComprobante Pendiente:  2B Comprobante: UXSTTHIS MSG_SUBTIPODAT_COMPROBANTEB 1TCTCTCTCT C$T C C TCTC#T C  TCTC#T C  ;UXDATOXTXTTHIS DAT_PROCLI VAL_GENERADORVAL_COLECCION_NEXT DAT_PROCLI_D DAT_COMPROB DAT_CAUSADAT_COMPROBANTE DAT_IMPORTEDAT_IGUALAR_TIPOS DAT_FECHA DAT_VENCECC CCCC CC  CC  CC U THIS VAL_GENERADOR VAL_AGREGAR DAT_PROCLI DAT_PROCLI_DDAT_IGUALAR_TIPOS DAT_COMPROB DAT_CAUSADAT_COMPROBANTE DAT_IMPORTE DAT_FECHA DAT_VENCE/,BCZCZUTHIS DAT_PROCLI DAT_CAUSA DAT_COMPROBMSG_TIPO MSG_SUBTIPOmsg_asunto_access0dat_leerS dat_guardarLmsg_id_suceso_access1q1111qA2qqqqqqqAAAA2aaaa31Sr7 YW$)/)q0amPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _23P00MJ1V 919302331@NE=E@fEF@N6@ WINDOWS _23P00RPHN 918881945BBwBaBDBH WINDOWS _23P00RPHS 9188819455B&BBAA WINDOWS _23P00RPHT 918880911AA|A_A@ COMMENT RESERVED ~@4@ WINDOWS _23O1CB38R 919312539vM[ _lQ WINDOWS _23P01HRBI 9188815596 WINDOWS _23O1CB38R 918862980) WINDOWS RESERVED 918862940zkXH WINDOWS _23O1CK592 918862675! WINDOWS _23O1CK593 918862940w WINDOWS _23O1CB38R 918862675j]O? WINDOWS RESERVED 918882749  WINDOWS _23O1CK596 918862675Y WINDOWS _23O1CK597 918882749J;' COMMENT RESERVED A WINDOWS _23O1CL4RV 919312653hjahaaRh2Nhh COMMENT RESERVED h WINDOWS _23Q0NTN7Q 919357642Jgh i86iyj=g4 ^ WINDOWS _23O1CL4RV 918984327ppppp WINDOWS _23O1CL4RV 918984389dqsqqqq WINDOWS _23O1CL4RV 918984327/rdv=J/ COMMENT RESERVED  WINDOWS _26O0PQE721031961497_DԖ|ے3D` WINDOWS _26O0PYDUA 926179579  > WINDOWS _23O1F66YB 927629661- : G U  WINDOWS _23P01ZPQF 927629661k z gB WINDOWS _2780YOMVF 927629661}22 WINDOWS _2780YOMVH 951405395D3dCsCCC COMMENT RESERVED go WINDOWS _33H0RGR711032487633o^h*` g9p2ha^ WINDOWS _33H0RI0EI1032487633:(:AhpW~ COMMENT RESERVED G^P WINDOWS _23P101Z151043482007 _6^* +m<T  _ WINDOWS _23O1CL4RV 919887574:_go WINDOWS RESERVED 919887574 % 224: WINDOWS _23O1CL4RV 919887574-2:2G2U2^ WINDOWS RESERVED 919887574c2r222n WINDOWS _23Z0QT15C 9198949632::;_%1 WINDOWS _23Z0S6O3O 919887574I_V_c_q_gg WINDOWS _23Z0S6O3P 919887574____~ WINDOWS _23Z0S6O3Q 919888249Oodovooo WINDOWS _23O1CL4RV 919888249o^^^9 WINDOWS RESERVED 919888249oZg3h1:[ WINDOWS _23O1CL4RV 91988824911 ::[ WINDOWS RESERVED 919888249^)^ppp WINDOWS _23Z0S6O6G 919888249pppapSp{ WINDOWS _23Z0S6O6H 919888249Fp)iih:{ WINDOWS _2420WQRF9 919888249{a[aIa/Ez WINDOWS _2420WQRFA 919888249"EEED` WINDOWS _2420XCYJI 919888249DDDW;? WINDOWS _2440PJ4E7 919887574J;A6;;-;;` WINDOWS _2440PJ4E8 919887574;;::@D WINDOWS _2440PZEGE 91988824974%44F 8 |3 COMMENT RESERVED WINDOWS _6QS11IU14146558256399M]e]V9dQ#9099 WINDOWS _23P00MJ1V1465582563v]f8\7 WINDOWS _23P00RPHN1465564149\\\]df WINDOWS _6QS1ECRQC1465582563],];]\,8 WINDOWS _6QS1ECRQD1465564149^^]]D7 WINDOWS _6QS1ECRQE1465582563]]]r9]W6 COMMENT RESERVED 88VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 msg_basePixelsClass10 containermsg_basexAnchor = 10 Height = 25 Left = 48 ReadOnly = .T. TerminateRead = .F. Top = 56 Width = 508 Name = "txMSG_Asunto" msg_base txMSG_AsuntotextboxtextboxrAutoSize = .T. FontBold = .T. Caption = "Asunto" Height = 17 Left = 6 Top = 60 Width = 42 Name = "Label4" msg_baseLabel4labellabeluAnchor = 10 Height = 25 Left = 48 ReadOnly = .T. TerminateRead = .F. Top = 30 Width = 508 Name = "txUser_To" msg_base txUser_TotextboxtextboxpAutoSize = .T. FontBold = .T. Caption = "Para" Height = 17 Left = 6 Top = 34 Width = 29 Name = "Label3" msg_baseLabel3labellabelaAnchor = 8 Height = 25 Left = 431 ReadOnly = .T. Top = 4 Width = 125 Name = "txMSG_Fecha" msg_base txMSG_Fechatextboxtextbox~AutoSize = .T. FontBold = .T. Anchor = 8 Caption = "Fecha" Height = 17 Left = 394 Top = 8 Width = 36 Name = "Label2" msg_baseLabel2labellabelaAnchor = 10 Height = 25 Left = 48 ReadOnly = .T. Top = 4 Width = 228 Name = "txUser_From" msg_base txUser_FromtextboxtextboxmAutoSize = .T. FontBold = .T. Caption = "De" Height = 17 Left = 6 Top = 8 Width = 17 Name = "Label1" msg_baseLabel1labellabelbAnchor = 11 Top = 0 Left = 0 Width = 562 Height = 85 SpecialEffect = 1 Name = "Container1" msg_base Container1 container containerdobj_msg *obj_msg_access *obj_msg_assign *obj_dat_asignar *abrir_archivos *msg_dobleclick BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 tAutoSize = .T. FontBold = .T. Caption = "Fecha" Height = 17 Left = 12 Top = 130 Width = 36 Name = "lbFecha" textboxtextbox13AutoSize = .T. FontBold = .T. FontSize = 11 Caption = "Datos de la produccin" Height = 20 Left = 12 Top = 95 Width = 165 ForeColor = 0,64,128 Name = "Label6" labellabelLabel6msg_produccionlabellabelLabel7msg_producciontextboxtextbox txProduccionBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 msg_ocPixelsClass21msg_basemsg_ocmsg_oc Cod_desc_pro1PROCEDURE obj_msg_access *To do: Modify this routine for the Access method RETURN THIS.obj_msg ENDPROC PROCEDURE obj_msg_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.obj_msg = m.vNewVal this.txUser_From.ControlSource = "THIS.parent.obj_msg.MSG_User_FromC" this.txUser_To.ControlSource = "THIS.parent.obj_msg.MSG_User_TOC" this.txMSG_Fecha.ControlSource = "THIS.parent.obj_msg.MSG_Fecha" this.txMSG_Asunto.ControlSource = "THIS.parent.obj_msg.MSG_Asunto" this.obj_dat_asignar(m.vNewVal) this.Refresh ENDPROC PROCEDURE obj_dat_asignar LPARAMETERS oMSG ENDPROC PROCEDURE Init this.abrir_archivos ENDPROC MWidth = 562 Height = 88 BorderWidth = 0 obj_msg = .F. Name = "msg_base"  containerBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0  msg_solicitudPixelsClass18msg_base msg_solicitudQHeight = 73 Left = 6 ReadOnly = .T. Top = 264 Width = 553 Name = "ebNotas"  msg_solicitudebNotaseditboxeditboxAutoSize = .T. FontBold = .T. Caption = "OC" Height = 17 Left = 149 Top = 231 Visible = .T. Width = 19 Name = "Label11"  msg_solicitudLabel11labellabelvHeight = 25 InputMask = "99999.99" Left = 182 ReadOnly = .T. Top = 228 Visible = .T. Width = 71 Name = "txOC"  msg_solicitudtxOCtextboxtextboxAutoSize = .T. FontBold = .T. Caption = "Total" Height = 17 Left = 456 Top = 231 Visible = .T. Width = 30 Name = "Label10"  msg_solicitudLabel10labellabel{Height = 25 InputMask = "9999999.99" Left = 490 ReadOnly = .T. Top = 228 Visible = .T. Width = 67 Name = "txTotal"  msg_solicitudtxTotaltextboxtextboxAutoSize = .T. FontBold = .T. Caption = "Precio" Height = 17 Left = 277 Top = 231 Visible = .T. Width = 39 Name = "Label9"  msg_solicitudLabel9labellabelzHeight = 25 InputMask = "99999.99" Left = 320 ReadOnly = .T. Top = 228 Visible = .T. Width = 71 Name = "txPrecio"  msg_solicitudtxPreciotextboxtextboxAutoSize = .T. FontBold = .T. Caption = "Comprar" Height = 17 Left = 13 Top = 230 Visible = .T. Width = 52 Name = "Label8"  msg_solicitudLabel8labellabel{Height = 25 InputMask = "99999.99" Left = 69 ReadOnly = .T. Top = 227 Visible = .T. Width = 63 Name = "txCantidad"  msg_solicitud txCantidadtextboxtextbox msg_solicitudLis_codbulatr1 container clases.vcx lis_codbulatrEnabled = .F. Format = "99999" Height = 25 HideSelection = .T. InputMask = "99999" Left = 335 Top = 125 Width = 62 DisabledForeColor = 0,0,0 Name = "txItem"  msg_solicitudtxItemtextboxtextboxsAutoSize = .T. FontBold = .T. Caption = "Item" Height = 17 Left = 307 Top = 129 Width = 27 Name = "Label7"  msg_solicitudLabel7labellabel msg_solicitud!Arial, 0, 9, 5, 15, 12, 32, 3, 0  msg_cierrePixelsClass1 msg_texto msg_cierreName = "msg_cierre" Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" rbTexto.Top = 87 rbTexto.Left = 0 rbTexto.Height = 237 rbTexto.Width = 562 rbTexto.Name = "rbTexto" Timer1.Top = 36 Timer1.Left = 336 Timer1.Name = "Timer1"  containermensajes_ver.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0  msg_textoPixelsClass3msg_base msg_textoyAutoSize = .T. FontBold = .T. Caption = "Produccin" Height = 17 Left = 403 Top = 128 Width = 67 Name = "Label7" msg_produccionlabellabelLabel8 containermensajes_ver.vcx6CPROCEDURE Timer this.Enabled = .f. this.parent.resize ENDPROC PTop = 36 Left = 336 Height = 25 Width = 25 Interval = 100 Name = "Timer1"  msg_textoTimer1timertimer.OLEObject = C:\WINDOWS\system32\richtx32.ocx ATop = 87 Left = 0 Height = 237 Width = 562 Name = "rbTexto"  msg_textorbTexto olecontrol8Top = 155 Left = 8 Height = 65 Enabled = .F. Name = "Lis_codbulatr1" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Enabled = .F. Cod_desc_bie1.Text8.Left = 64 Cod_desc_bie1.Text8.Top = 5 Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Left = 269 Cod_desc_bie1.Text9.Top = 5 Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Top = 0 Cod_desc_bie1.Cod_desc_atr1.Left = 164 Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Top = 0 Cod_desc_bie1.Cod_desc_bul1.Left = 227 Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Top = 2 Cod_desc_bie1.Left = -4 Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Height = 26 Text1.Left = 2 Text1.Top = 36 Text1.Width = 548 Text1.Name = "Text1" AutoSize = .T. FontBold = .T. FontSize = 11 Caption = "Datos de la solicitud" Height = 20 Left = 12 Top = 96 Width = 145 ForeColor = 0,64,128 Name = "Label5" Label5labellabelEnabled = .F. Format = "99999" Height = 25 HideSelection = .T. InputMask = "99999" Left = 238 Top = 127 Width = 62 DisabledForeColor = 0,0,0 Name = "txSolicitud"  msg_solicitud txSolicitudtextboxtextboxxAutoSize = .T. FontBold = .T. Caption = "Solicitud" Height = 17 Left = 185 Top = 131 Width = 51 Name = "Label6"  msg_solicitud ࡱ> Root Entry.OleObjectDataAccessObjSiteData&OChangedPropsF `|;!C4:!C4O8 qhj ZtuQha;jdfn[iaetr -0000F8754DA1go_de_articulo3.pr Appearance I  BackColor I  BorderStyle I  BulletIndentN {\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}} \viewkind4\uc1\pard\lang3082\fs18 Olecontrol1 \par } EDisableNoScrollLHideSelectionLLockedL RightMarginN  ScrollBars I TextH Olecontrol1 AutoVerbMenuLnuv_movimiedv_d % `` "! !@ %allta0((%qK_a WH) olecontrolAutoSize = .T. FontBold = .T. FontSize = 11 Caption = "Datos de la Orden de Compra" Height = 20 Left = 12 Top = 96 Width = 211 ForeColor = 0,64,128 Name = "Label5" msg_octextboxtextbox2txFechamsg_oclabellabelLabel6msg_octextboxtextboxtxOCmsg_oclabel1msg_produccionuAutoSize = .T. FontBold = .T. Caption = "Litros" Height = 17 Left = 404 Top = 188 Width = 35 Name = "Label8" textbox containermensajes_ver.vcxTop = 152 Left = 5 Enabled = .F. dato_tabla = m Name = "Cod_desc_pro1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9"  container clases.vcx cod_desc_proLabel6labellabelEnabled = .F. Height = 25 HideSelection = .T. Left = 69 Top = 127 Width = 81 DisabledForeColor = 0,0,0 Name = "txFecha"  msg_solicitudtxFechatextboxtextboxtAutoSize = .T. FontBold = .T. Caption = "Fecha" Height = 17 Left = 12 Top = 131 Width = 36 Name = "lbFecha"  msg_solicitudlbFechalabellabelxtotal *xtotal_access  containermensajes_ver.vcxlabel4Top = 156 Left = -2 Enabled = .F. Name = "Cod_desc_dep1" Label2.Name = "Label2" Text8.BackStyle = 0 Text8.Left = 69 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 143 Text9.Top = 5 Text9.Name = "Text9" Label8AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cantidad" Height = 17 Left = 383 Top = 155 Width = 52 Name = "Label7" RHeight = 25 Left = 447 ReadOnly = .T. Top = 120 Width = 109 Name = "txLote" VHeight = 25 Left = 446 ReadOnly = .T. Top = 150 Width = 109 Name = "txCantidad" msg_comprobantetxLoteBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 msg_lote_vencimientoPixelsClass6msg_articulo_cantidadmsg_lote_vencimiento Cod_desc_dep1{Height = 25 InputMask = "99999.99" Left = 69 ReadOnly = .T. Top = 254 Visible = .T. Width = 63 Name = "txCantidad" txPreciomsg_ocgridEnabled = .F. Height = 25 HideSelection = .T. Left = 69 Top = 126 Width = 81 DisabledForeColor = 0,0,0 Name = "txFecha" labelLabel5labelgridmsg_oc txEntregatextboxtextboxmsg_ocLabel12labelmsg_oc_PROCEDURE xtotal_access RETURN THIS.parent.obj_msg.dat_Cantidad * THIS.parent.obj_msg.dat_precio ENDPROC PROCEDURE Init DODEFAULT() ENDPROC PROCEDURE obj_dat_asignar LPARAMETERS oMSG this.txFecha.ControlSource = "THIS.parent.obj_msg.dat_fecha" this.txSolicitud.ControlSource = "THIS.parent.obj_msg.dat_solicitud" this.txItem.ControlSource = "THIS.parent.obj_msg.dat_Item" this.lis_codbulatr1.valor_cod =THIS.parent.obj_msg.dat_cod_ins this.lis_codbulatr1.valor_atr =THIS.parent.obj_msg.dat_atr this.lis_codbulatr1.valor_bul =THIS.parent.obj_msg.dat_bul this.txCantidad.ControlSource = "THIS.parent.obj_msg.dat_Cantidad" this.txOC.ControlSource = "THIS.parent.obj_msg.dat_adi_OC" this.txPrecio.ControlSource = "THIS.parent.obj_msg.dat_precio" this.txTotal.ControlSource = "THIS.parent.xTotal" this.ebNotas.ControlSource = "THIS.parent.obj_msg.dat_adi_notas" ENDPROC PROCEDURE abrir_archivos IF !USED("bienes") THEN USE bienes IN 0 ENDIF IF !USED("bultos") THEN USE bultos IN 0 ENDIF IF !USED("atributo") THEN USE atributo IN 0 ENDIF SET DATABASE TO ges ENDPROC `Height = 25 Left = 6 ReadOnly = .T. Top = 292 Visible = .F. Width = 553 Name = "ebNotas" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 19, 3, 0 msg_articulo_cantidadPixelsClassmsg_basemsg_articulo_cantidadtAutoSize = .T. FontBold = .T. Caption = "Comprar" Height = 17 Left = 7 Top = 171 Width = 52 Name = "Label5" msg_articulo_cantidadLabel5labellabelPHeight = 25 Left = 60 ReadOnly = .T. Top = 168 Width = 109 Name = "Text1" msg_articulo_cantidadText1textboxtextboxmsg_articulo_cantidadLis_codbulatr1 container clases.vcx lis_codbulatrEnabled = .F. Format = "99999" Height = 25 HideSelection = .T. InputMask = "99999" Left = 472 Top = 124 Width = 72 DisabledForeColor = 0,0,0 Name = "txProduccion" textboxText2msg_produccionEnabled = .F. Height = 25 HideSelection = .T. Left = 472 Top = 184 Width = 72 DisabledForeColor = 0,0,0 Name = "Text2" msg_produccionClassEnabled = .F. Height = 25 HideSelection = .T. Left = 477 Top = 126 Width = 81 DisabledForeColor = 0,0,0 Name = "txEntrega" ebNotaseditboxeditboxmsg_ocLabel11labellabelmsg_oc containermensajes_ver.vcxAWidth = 562 Height = 201 Name = "msg_articulo_cantidad" Container1.Name = "Container1" Label1.Name = "Label1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" PROCEDURE obj_msg_assign LPARAMETERS vNewVal DODEFAULT(vNewVal) this.lis_codbulatr1.valor_cod =THIS.parent.obj_msg.dat_cod_ins this.lis_codbulatr1.valor_atr =THIS.parent.obj_msg.dat_atr this.lis_codbulatr1.valor_bul =THIS.parent.obj_msg.dat_bul *this.lis_codbulatr1.cod_desc_bie1.text8.Valid ENDPROC PROCEDURE abrir_archivos IF !USED("bienes") THEN USE bienes IN 0 ENDIF IF !USED("bultos") THEN USE bultos IN 0 ENDIF IF !USED("atributo") THEN USE atributo IN 0 ENDIF SET DATABASE TO ges ENDPROC 7Top = 96 Left = 2 Height = 65 Enabled = .F. Name = "Lis_codbulatr1" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Enabled = .F. Cod_desc_bie1.Text8.Left = 64 Cod_desc_bie1.Text8.Top = 5 Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Left = 269 Cod_desc_bie1.Text9.Top = 5 Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Top = 0 Cod_desc_bie1.Cod_desc_atr1.Left = 164 Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Top = 0 Cod_desc_bie1.Cod_desc_bul1.Left = 227 Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Top = 2 Cod_desc_bie1.Left = -4 Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Height = 26 Text1.Left = 2 Text1.Top = 36 Text1.Width = 548 Text1.Name = "Text1" GWidth = 562 Height = 354 xtotal = .F. Name = "msg_solicitud" Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" PROCEDURE obj_msg_assign LPARAMETERS vNewVal DODEFAULT(vNewVal) this.rbTexto.ControlSource = "THIS.parent.obj_msg.Dat_Texto" *this.ebTexto.ControlSource = "THIS.parent.obj_msg.Dat_Texto" this.txMSG_Asunto.ControlSource = "THIS.parent.obj_msg.Dat_Texto_asunto" this.Resize this.Refresh ENDPROC PROCEDURE Resize this.rbTexto.Width=this.Width-this.rbTexto.left*2 this.rbTexto.Height=this.Height-this.rbTexto.Top - this.rbTexto.Left ENDPROC lWidth = 562 Height = 322 Name = "msg_texto" Container1.Name = "Container1" Label1.Name = "Label1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.ReadOnly = .T. txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.ReadOnly = .T. txMSG_Asunto.Name = "txMSG_Asunto" j"QQ-i% U> C%Cdeposito 7QdepositoUDEPOSITOCQMENSAJE_LOTE_VENCIMIENTOF:\sistema\2000\mensajes.vcx CTTT T  U VNEWVALFTHIS TXCANTIDADVALUE DAT_CANTIDADTEXT1 DAT_FECHATXLOTEDAT_LOTE COD_DESC_DEP1VALOR DAT_DEPOSITOabrir_archivos0obj_msg_assign1AA31aaaa1_)Q6"%$\U"BUTHISPARENTOBJ_MSG DAT_CANTIDAD DAT_PRECIO%Cbienes *Qbienes%Cbultos XQbultos%Catributo Qatributo%Cproveedo Qproveedo G(gesUBIENESBULTOSATRIBUTOPROVEEDOGESd0TTHIS.parent.obj_msg.dat_fecha-TTHIS.parent.obj_msg.dat_oc/TTHIS.parent.obj_msg.dat_Item0TTHIS.parent.obj_msg.dat_vence6T#THIS.parent.obj_msg.dat_adi_cod_pro  T T T 3T THIS.parent.obj_msg.dat_Cantidad7T$THIS.parent.obj_msg.dat_adi_recibido1TTHIS.parent.obj_msg.dat_precio%TTHIS.parent.xTotal4T!THIS.parent.obj_msg.dat_adi_notasUOMSGTHISTXFECHA CONTROLSOURCETXOCTXITEM TXENTREGA COD_DESC_PRO1DATOTEXT8WHENVALIDLIS_CODBULATR1 VALOR_CODPARENTOBJ_MSG DAT_COD_INS VALOR_ATRDAT_ATR VALOR_BULDAT_BUL TXCANTIDAD TXRECIBIDOTXPRECIOTXTOTALEBNOTAS CU xtotal_access0abrir_archivosobj_dat_asignarInit13!A!AAAAA2qb2qQB22ev%"@M-)"%uUT- UTHISENABLEDPARENTRESIZETimer0118)AutoSize = .T. FontBold = .T. Caption = "Cantidad" Height = 17 Left = 13 Top = 257 Visible = .T. Width = 52 Name = "Label8" zHeight = 25 InputMask = "99999.99" Left = 384 ReadOnly = .T. Top = 255 Visible = .F. Width = 71 Name = "txPrecio"  btVisualizarlabelmsg_comprobante txImportetextboxmsg_lote_vencimientomsg_lote_vencimientolabellabelLabel6msg_lote_vencimientotextboxtextbox txCantidadmensajes_ver.vcx containertextboxmsg_lote_vencimiento container clases.vcx cod_desc_depmsg_lote_vencimientoLabel7labellabellabellabel containermsg_produccion_envPixelsmsg_produccionPixels txCantidadmsg_octextboxqAutoSize = .T. FontBold = .T. Caption = "OC" Height = 17 Left = 191 Top = 130 Width = 19 Name = "Label6" msg_oclabellabelLabel7msg_octextboxtextboxtxItemmsg_ocmensajes_ver.vcxxtotal *xtotal_access labelmsg_articulo_cantidadPixels containerwAutoSize = .T. FontBold = .T. Caption = "Entrega" Height = 17 Left = 420 Top = 130 Width = 46 Name = "Label12" AutoSize = .T. FontBold = .T. Caption = "Recibido" Height = 17 Left = 149 Top = 258 Visible = .T. Width = 51 Name = "Label11"  txRecibidotextbox containertextbox>Width = 661 Height = 402 obj_msg = .F. Name = "msg_visor" PROCEDURE obj_msg_access *To do: Modify this routine for the Access method RETURN THIS.obj_msg ENDPROC PROCEDURE obj_msg_assign LPARAMETERS oMSG IF ISNULL(oMSG) or TYPE("oMSG")#"O" THEN RETURN .f. ENDIF TRY this.RemoveObject("msg_visor") CATCH ENDTRY LOCAL xClass xClass=oMSG.msg_ver_clase SET CLASSLIB TO mensajes_ver.vcx ADDITIVE This.ADDOBJECT ("msg_visor",xClass) THIS.obj_msg = oMSG this.msg_visor.top=3 this.msg_visor.Left=3 this.msg_visor.height=this.Height-this.msg_visor.Top-3 this.msg_visor.Width=this.width-this.msg_visor.left-3 this.msg_visor.obj_msg = oMSG this.msg_visor.anchor=15 this.msg_visor.visible=.t. ENDPROC PROCEDURE msg_dobleclick this.msg_visor.Msg_dobleClick ENDPROC PROCEDURE abrir_archivos DODEFAULT() IF !USED("deposito") THEN USE deposito IN 0 ENDIF ENDPROC PROCEDURE obj_msg_assign LPARAMETERS vNewVal AS mensaje_lote_vencimiento OF F:\sistema\2000\mensajes.vcx DODEFAULT(@vNewVal) THIS.txcantidad.VALUE = vNewVal.dat_cantidad THIS.text1.VALUE = vNewVal.dat_fecha THIS.txlote.VALUE = vNewVal.dat_lote this.cod_desc_dep1.valor= vNewVal.dat_deposito ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Lote" Height = 17 Left = 384 Top = 125 Width = 27 Name = "Label6" textboxtextboxmsg_produccion_envmsg_comprobanteClassmsg_baselabelsAutoSize = .T. FontBold = .T. Caption = "Item" Height = 17 Left = 282 Top = 130 Width = 27 Name = "Label7" lbFechamsg_produccionmensajes_ver.vcx tmp_cursor Label8Grid1?obj_msg *obj_msg_access *obj_msg_assign *msg_dobleclick  msg_visor containerClassPixels msg_visormsg_ocmensajes_ver.vcx containerLabel10label;Width = 562 Height = 186 Name = "msg_comprobante" Container1.Name = "Container1" Label1.Name = "Label1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" PROCEDURE msg_dobleclick this.btVisualizar.Click ENDPROC PROCEDURE obj_dat_asignar LPARAMETERS oMSG this.txFecha.ControlSource = "THIS.parent.obj_msg.dat_fecha" this.txVence.ControlSource = "THIS.parent.obj_msg.dat_vence" this.txComprobante.ControlSource = "THIS.parent.obj_msg.dat_Comprobante" this.txProCli.ControlSource = "THIS.parent.obj_msg.dat_procli" this.txProCli_d.ControlSource = "THIS.parent.obj_msg.dat_procli_d" this.txImporte.ControlSource = "THIS.parent.obj_msg.dat_importe" ENDPROC PROCEDURE abrir_archivos IF !USED("clientes") THEN USE clientes IN 0 ENDIF IF !USED("proveedo") THEN USE proveedo IN 0 ENDIF SET DATABASE TO ges ENDPROC oWidth = 562 Height = 354 xtotal = .F. Name = "msg_oc" Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Left = 48 txMSG_Asunto.Top = 56 txMSG_Asunto.Name = "txMSG_Asunto" Enabled = .F. Format = "99999" Height = 25 HideSelection = .T. InputMask = "99999" Left = 213 Top = 126 Width = 62 DisabledForeColor = 0,0,0 Name = "txOC"  lis_codbulatr clases.vcx containerLis_codbulatr1msg_octextboxlabelmsg_ocBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 msg_produccion_envClasslabelmsg_octxTotaltextboxtextboxmsg_ocLabel9labellabellbFechamsg_comprobanterAutoSize = .T. FontBold = .T. Caption = "Fecha" Height = 17 Left = 4 Top = 99 Width = 36 Name = "lbFecha" textboxtextboxtxFechamsg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 51 Top = 95 Width = 81 DisabledForeColor = 0,0,0 Name = "txFecha" labellabelLabel5msg_comprobanteyAutoSize = .T. FontBold = .T. Caption = "Vencimiento" Height = 17 Left = 395 Top = 99 Width = 73 Name = "Label5" textboxtextboxtxVencemsg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 468 Top = 95 Width = 84 DisabledForeColor = 0,0,0 Name = "txVence" labellabelLabel6msg_comprobanteyAutoSize = .T. FontBold = .T. Caption = "Comprobante" Height = 17 Left = 160 Top = 99 Width = 79 Name = "Label6" textboxtextbox txComprobantemsg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 240 Top = 95 Width = 108 DisabledForeColor = 0,0,0 Name = "txComprobante" labellabelLabel7msg_comprobanteoAutoSize = .T. FontBold = .T. Caption = "De" Height = 17 Left = 4 Top = 129 Width = 17 Name = "Label7" textboxtextboxtxProClimsg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 51 Top = 125 Width = 81 DisabledForeColor = 0,0,0 Name = "txProCli" textboxtextbox txProCli_Dmsg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 132 Top = 125 Width = 264 DisabledForeColor = 0,0,0 Name = "txProCli_D" label commandbuttonmsg_comprobanteAutoSize = .T. FontBold = .T. Caption = "Importe" Height = 17 Left = 4 Top = 159 Visible = .F. Width = 46 Name = "Label8" msg_comprobanteEnabled = .F. Height = 25 HideSelection = .T. Left = 51 Top = 155 Visible = .F. Width = 81 DisabledForeColor = 0,0,0 Name = "txImporte"  commandbuttonoTop = 124 Left = 456 Height = 25 Width = 97 FontBold = .T. Caption = "Visualizar" Name = "btVisualizar" PROCEDURE Click xcomprob = this.Parent.obj_msg.dat_comprob xcausa = this.Parent.obj_msg.dat_causa xcod_pro=this.Parent.obj_msg.dat_procli xop = 0 DO cpbt_vis2 IN GE02 with xcomprob, xcausa, xcod_pro, xop &&xcomprob, xcausa, xcod_pro, xop ENDPROC |Height = 25 InputMask = "99999.99" Left = 203 ReadOnly = .T. Top = 255 Visible = .T. Width = 71 Name = "txRecibido" AutoSize = .T. FontBold = .T. Caption = "Total" Height = 17 Left = 456 Top = 258 Visible = .F. Width = 30 Name = "Label10" {Height = 25 InputMask = "9999999.99" Left = 490 ReadOnly = .T. Top = 255 Visible = .F. Width = 67 Name = "txTotal" BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 PROCEDURE obj_dat_asignar LPARAMETERS oMSG this.TxProduccion.ControlSource = "THIS.parent.obj_msg.dat_produccion" this.lis_codbulatr1.valor_cod =THIS.parent.obj_msg.dat_cod_ins this.lis_codbulatr1.valor_atr =THIS.parent.obj_msg.dat_atr this.lis_codbulatr1.valor_bul =THIS.parent.obj_msg.dat_bul this.Text1.ControlSource = "THIS.parent.obj_msg.dat_Cantidad" this.Text2.ControlSource = "THIS.parent.obj_msg.dat_Litros" ENDPROC bAnchor = 7 Height = 76 Left = 12 RecordSourceType = 1 Top = 159 Width = 336 Name = "Grid1" Enabled = .F. Format = "99999" Height = 25 HideSelection = .T. InputMask = "99999" Left = 310 Top = 126 Width = 62 DisabledForeColor = 0,0,0 Name = "txItem" AutoSize = .T. FontBold = .T. Caption = "Precio" Height = 17 Left = 341 Top = 258 Visible = .F. Width = 39 Name = "Label9" 8Top = 182 Left = 8 Height = 65 Enabled = .F. Name = "Lis_codbulatr1" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Enabled = .F. Cod_desc_bie1.Text8.Left = 64 Cod_desc_bie1.Text8.Top = 5 Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Left = 269 Cod_desc_bie1.Text9.Top = 5 Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Top = 0 Cod_desc_bie1.Cod_desc_atr1.Left = 164 Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Top = 0 Cod_desc_bie1.Cod_desc_bul1.Left = 227 Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Top = 2 Cod_desc_bie1.Left = -4 Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Height = 26 Text1.Left = 2 Text1.Top = 36 Text1.Width = 548 Text1.Name = "Text1" XPROCEDURE xtotal_access RETURN THIS.parent.obj_msg.dat_Cantidad * THIS.parent.obj_msg.dat_precio ENDPROC PROCEDURE abrir_archivos IF !USED("bienes") THEN USE bienes IN 0 ENDIF IF !USED("bultos") THEN USE bultos IN 0 ENDIF IF !USED("atributo") THEN USE atributo IN 0 ENDIF IF !USED("proveedo") THEN USE proveedo IN 0 ENDIF SET DATABASE TO ges ENDPROC PROCEDURE obj_dat_asignar LPARAMETERS oMSG this.txFecha.ControlSource = "THIS.parent.obj_msg.dat_fecha" this.txoc.ControlSource = "THIS.parent.obj_msg.dat_oc" this.txItem.ControlSource = "THIS.parent.obj_msg.dat_Item" this.txEntrega.ControlSource = "THIS.parent.obj_msg.dat_vence" this.cod_desc_pro1.dato = "THIS.parent.obj_msg.dat_adi_cod_pro" this.cod_desc_pro1.text8.when this.cod_desc_pro1.text8.valid this.lis_codbulatr1.valor_cod =THIS.parent.obj_msg.dat_cod_ins this.lis_codbulatr1.valor_atr =THIS.parent.obj_msg.dat_atr this.lis_codbulatr1.valor_bul =THIS.parent.obj_msg.dat_bul this.txCantidad.ControlSource = "THIS.parent.obj_msg.dat_Cantidad" this.txRecibido.ControlSource = "THIS.parent.obj_msg.dat_adi_recibido" this.txPrecio.ControlSource = "THIS.parent.obj_msg.dat_precio" this.txTotal.ControlSource = "THIS.parent.xTotal" this.ebNotas.ControlSource = "THIS.parent.obj_msg.dat_adi_notas" ENDPROC PROCEDURE Init DODEFAULT() ENDPROC vPROCEDURE Destroy IF USED(this.tmp_cursor) THEN SELECT (this.tmp_cursor) USE ENDIF ENDPROC PROCEDURE obj_dat_asignar LPARAMETERS oMSG DODEFAULT(oMSG) LOCAL nIt this.tmp_cursor="C"+SYS(2015) SELECT producci SET ORDER TO Prod SEEK THIS.parent.obj_msg.dat_produccion IF !FOUND() THEN RETURN .f. ENDIF SELECT bul, real FROM producci WHERE .f. INTO CURSOR (this.tmp_cursor ) READWRITE FOR nIt=1 TO 8 IF NOT EMPTY(EVALUATE("producci.bul"+ALLTRIM(STR(nIt)))) and NOT EMPTY(EVALUATE("producci.rea"+ALLTRIM(STR(nIt)))) THEN INSERT INTO (this.tmp_cursor) values (EVALUATE("producci.bul"+ALLTRIM(STR(nIt))), EVALUATE("producci.rea"+ALLTRIM(STR(nIt)))) ENDIF NEXT SELECT (this.tmp_cursor) GO TOP this.grid1.RecordSource = this.tmp_cursor this.grid1.ColumnCount=2 this.grid1.column1.width = 50 this.grid1.column2.width = 100 this.grid1.column2.TEXT1.FORMAT="Z" this.grid1.column2.TEXT1.INPUTMASK="999,999.99" this.grid1.column2.FORMAT="Z" this.grid1.column2.INPUTMASK="999,999.99" ENDPROC PROCEDURE abrir_archivos DODEFAULT() IF !USED("producci") THEN USE producci IN 0 ENDIF ENDPROC "%7&U,%C% FQUTHIS TMP_CURSOR- CTCC]F G((ProdE%C4 oB-+oproducci  -(KH%CC producci.bulCCZΡ CC producci.reaCCZΡ GHrC producci.bulCCZC producci.reaCCZ F#)T T T 2T dT Z#T  999,999.99T Z T  999,999.99UOMSGNITTHIS TMP_CURSORPRODUCCIPRODPARENTOBJ_MSGDAT_PRODUCCIONBULREALGRID1 RECORDSOURCE COLUMNCOUNTCOLUMN1WIDTHCOLUMN2TEXT1FORMAT INPUTMASK> C%Cproducci 7QproducciUPRODUCCIDestroy0obj_dat_asignarvabrir_archivosY1AAA2qqq!qAAAQa1aa1q3AA1[!(k()T";;]%% U5T"THIS.parent.obj_msg.dat_produccionTT  T  3T  THIS.parent.obj_msg.dat_Cantidad1TTHIS.parent.obj_msg.dat_LitrosUOMSGTHIS TXPRODUCCION CONTROLSOURCELIS_CODBULATR1 VALOR_CODPARENTOBJ_MSG DAT_COD_INS VALOR_ATRDAT_ATR VALOR_BULDAT_BULTEXT1TEXT2obj_dat_asignar01qR23);"||Kj%3%UqTTT T  GE02 U XCOMPROBTHISPARENTOBJ_MSG DAT_COMPROBXCAUSA DAT_CAUSAXCOD_PRO DAT_PROCLIXOP CPBT_VIS2GE02Click01baa1)| Width = 549 Height = 225 Name = "msg_produccion" Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" Lis_codbulatr1.Cod_desc_bie1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Lis_codbulatr1.Cod_desc_bie1.Name = "Cod_desc_bie1" Lis_codbulatr1.Text1.Height = 26 Lis_codbulatr1.Text1.Left = 2 Lis_codbulatr1.Text1.Top = 36 Lis_codbulatr1.Text1.Width = 284 Lis_codbulatr1.Text1.Name = "Text1" Lis_codbulatr1.Top = 120 Lis_codbulatr1.Left = 12 Lis_codbulatr1.Width = 300 Lis_codbulatr1.Height = 65 Lis_codbulatr1.Name = "Lis_codbulatr1" Text1.Height = 25 Text1.Left = 472 Text1.Top = 154 Text1.Width = 72 Text1.Name = "Text1" Label5.Caption = "Cantidad" Label5.Left = 404 Label5.Top = 157 Label5.Name = "Label5" Width = 626 Height = 236 tmp_cursor = .F. Name = "msg_produccion_env" Container1.Top = 0 Container1.Left = 0 Container1.Width = 624 Container1.Height = 85 Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Top = 4 txUser_From.Name = "txUser_From" Label2.Left = 459 Label2.Top = 8 Label2.Name = "Label2" txMSG_Fecha.Left = 499 txMSG_Fecha.Top = 4 txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Height = 25 txUser_To.Left = 48 txUser_To.Top = 30 txUser_To.Width = 576 txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Height = 25 txMSG_Asunto.Left = 48 txMSG_Asunto.Top = 56 txMSG_Asunto.Width = 576 txMSG_Asunto.Name = "txMSG_Asunto" Lis_codbulatr1.Cod_desc_bie1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Lis_codbulatr1.Cod_desc_bie1.Name = "Cod_desc_bie1" Lis_codbulatr1.Text1.Height = 26 Lis_codbulatr1.Text1.Left = 288 Lis_codbulatr1.Text1.Top = 7 Lis_codbulatr1.Text1.Width = 324 Lis_codbulatr1.Text1.Name = "Text1" Lis_codbulatr1.Top = 120 Lis_codbulatr1.Left = 12 Lis_codbulatr1.Width = 612 Lis_codbulatr1.Height = 36 Lis_codbulatr1.Name = "Lis_codbulatr1" Text1.Left = 438 Text1.Top = 95 Text1.Name = "Text1" Label5.Left = 383 Label5.Top = 99 Label5.Name = "Label5" Label6.Top = 97 Label6.Name = "Label6" Label7.Left = 231 Label7.Top = 99 Label7.Name = "Label7" txProduccion.Left = 300 txProduccion.Top = 95 txProduccion.Name = "txProduccion" Label8.Left = 515 Label8.Top = 99 Label8.Name = "Label8" Text2.Left = 552 Text2.Top = 95 Text2.Name = "Text2" B"))"+% U C0TTHIS.parent.obj_msg.Dat_Texto7T$THIS.parent.obj_msg.Dat_Texto_asunto  UVNEWVALTHISRBTEXTO CONTROLSOURCE TXMSG_ASUNTORESIZEREFRESHQ$T*TUTHISRBTEXTOWIDTHLEFTHEIGHTTOPobj_msg_assign0Resize1qr2A1%B ))4"6%hU"BUTHISPARENTOBJ_MSG DAT_CANTIDAD DAT_PRECIO CU0TTHIS.parent.obj_msg.dat_fecha4T!THIS.parent.obj_msg.dat_solicitud/TTHIS.parent.obj_msg.dat_ItemT T  T  3T THIS.parent.obj_msg.dat_Cantidad1TTHIS.parent.obj_msg.dat_adi_OC1TTHIS.parent.obj_msg.dat_precio%TTHIS.parent.xTotal4T!THIS.parent.obj_msg.dat_adi_notasUOMSGTHISTXFECHA CONTROLSOURCE TXSOLICITUDTXITEMLIS_CODBULATR1 VALOR_CODPARENTOBJ_MSG DAT_COD_INS VALOR_ATRDAT_ATR VALOR_BULDAT_BUL TXCANTIDADTXOCTXPRECIOTXTOTALEBNOTAS%Cbienes *Qbienes%Cbultos XQbultos%Catributo Qatributo G(gesUBIENESBULTOSATRIBUTOGES xtotal_access0Initobj_dat_asignarabrir_archivosN133qA2QB2!A!AAA1e{ T)"jj%U UTHIS BTVISUALIZARCLICK60TTHIS.parent.obj_msg.dat_fecha0TTHIS.parent.obj_msg.dat_vence6T#THIS.parent.obj_msg.dat_Comprobante1TTHIS.parent.obj_msg.dat_procli3T THIS.parent.obj_msg.dat_procli_d2TTHIS.parent.obj_msg.dat_importeU OMSGTHISTXFECHA CONTROLSOURCETXVENCE TXCOMPROBANTETXPROCLI TXPROCLI_D TXIMPORTEs%Cclientes .Qclientes%Cproveedo `Qproveedo G(gesUCLIENTESPROVEEDOGESmsg_dobleclick0obj_dat_asignarcabrir_archivos12qa1!3AAAA12X )jName = "msg_lote_vencimiento" Container1.Name = "Container1" LABEL1.Name = "LABEL1" txUser_From.Name = "txUser_From" Label2.Name = "Label2" txMSG_Fecha.Name = "txMSG_Fecha" Label3.Name = "Label3" txUser_To.Name = "txUser_To" Label4.Name = "Label4" txMSG_Asunto.Name = "txMSG_Asunto" Lis_codbulatr1.cmd_filtro.Name = "cmd_filtro" Lis_codbulatr1.Cod_desc_bie1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Lis_codbulatr1.Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Lis_codbulatr1.Cod_desc_bie1.Name = "Cod_desc_bie1" Lis_codbulatr1.Text1.Height = 26 Lis_codbulatr1.Text1.Left = 2 Lis_codbulatr1.Text1.Top = 36 Lis_codbulatr1.Text1.Width = 320 Lis_codbulatr1.Text1.Name = "Text1" Lis_codbulatr1.Top = 84 Lis_codbulatr1.Left = 2 Lis_codbulatr1.Name = "Lis_codbulatr1" Text1.Left = 447 Text1.Top = 92 Text1.Name = "Text1" Label5.Caption = "Fecha" Label5.Left = 386 Label5.Top = 96 Label5.Name = "Label5" "vv1% U BUTHISOBJ_MSGl#%CCoMSGbO 1B- XC msg_visor bTG~(mensajes_ver.vcxC msg_visorTT T $T   $T   T T T aUOMSGTHIS REMOVEOBJECTXCLASS MSG_VER_CLASE MENSAJES_VERVCX ADDOBJECTOBJ_MSG MSG_VISORTOPLEFTHEIGHTWIDTHANCHORVISIBLE UTHIS MSG_VISORMSG_DOBLECLICKobj_msg_access0obj_msg_assignVmsg_dobleclickX13q1qAAr11AA1131b)v "'%nU BUTHISOBJ_MSGT 5T"THIS.parent.obj_msg.MSG_User_FromC3T THIS.parent.obj_msg.MSG_User_TOC0TTHIS.parent.obj_msg.MSG_Fecha1TTHIS.parent.obj_msg.MSG_AsuntoC   U VNEWVALTHISOBJ_MSG TXUSER_FROM CONTROLSOURCE TXUSER_TO TXMSG_FECHA TXMSG_ASUNTOOBJ_DAT_ASIGNARREFRESH UOMSG UTHISABRIR_ARCHIVOSobj_msg_access0obj_msg_assignVobj_dat_asignarInit13q"Q112q21a& L\w)"Z%+Uk CTTT  U VNEWVALTHISLIS_CODBULATR1 VALOR_CODPARENTOBJ_MSG DAT_COD_INS VALOR_ATRDAT_ATR VALOR_BULDAT_BUL%Cbienes *Qbienes%Cbultos XQbultos%Catributo Qatributo G(gesUBIENESBULTOSATRIBUTOGESobj_msg_assign0abrir_archivos1q3!A!AAA1*O )%x/J- 45 H?! l  AR,Aguarde !!! El archivo CCf est bloqueado.on error &onerr X m% IkR,Aguarde !!! El registro CCCO@z 999,999,999_ del archivo CCf est bloqueado. HR,.Aguarde !!! Registro bloqueado en el archivo CCf.on error &onerr X Ph% 9R,Reintentando leer archivo CCf !!!  M-R,Reintentando leer archivo !!!on error &onerr X }i%CC]G*( e ThR(,' LA IMPRESORA NO RECIBE DATOS !!! C ) PARA CONTINUAR O PARA ABORTAR%xX QG* G on error &onerr X aG  2GY({G(LBU MERRORMESSMESS1MPROGMLINENOTECLAAAABBBLIN XRESULTADO PUB_INDEXqq2A22A2AB2A2A2raraa1AaAAraAABB2%Pb& U74    5 'T CC>C>C>C>6'T CC > C > 6TC6#TC  6TC TC T C T  T(C  8TC]Is,(  N t, 9 u, <,BUYCADENA1VAR1PIC1LONG1CADENA2VAR2PIC2LONG2CADENA3VAR3PIC3LONG3XXYYXXNOMBRESCREENgui_get3,1q2rq1"!!qBB1%K=PM"Y 3C'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T     .%Cm.lUniquePopupsbL  y (C uT C] T  presupuestT pedidosT otrosT  facturaciT  logsticaT  gestindecT  cuentascorT  operacioneT  newitemT  reportesT   configuracs  Cs "\1C %do ve_pedidos_recibidos with .t., .t..1C do ve_cancelar_pedido,1C do ve_anular_pedido<1C #do ve_reimprimir_comprobante with 211C do ve_control_de_pedidos)1C do ve_aprobacionB1 C )do ve_rotulos_de_facuras_y_remitos with 031 C do ve_importaciones_krikos41 C do ve_mantenimiento_pedidos,1 C do ve_cambiar_lista91C  do form ve_liberacion_de_entrega-1C do in_control_armado%1C  do ve_armado21C do ve_control_de_pickingsL1C 3do mantenimiento_de_pickings in ve_orden_de_picking71C do ve_cancelar_pedido with .t.!1C C sC  N=sC "Anlisis de Todos los PedidosaTsC "!Reanalizar los Pedidos RechazadosC CJ- /1C do ve_analizar_pedidos11C do ve_reanalizar_pedidossC  NRsC "Facturacin Directa de PedidosC<- CJ- OsC " FacturacinC<- CJ- bmp\fc.icoJsC "Facturacin de RemitosC<- CJ- VsC ""Facturacion sin Baja de MercaderiaC- CJ- RsC "Facturacin por Lote y PeriodoC<- CJ- UsC "Facturacin Automtica! C<- CJ- DsC "Notas de CrditoC=- CJ- BsC "Nota de DbitoC=- CJ- As C "Reimpresin de ComprobanteC-s C "\-Fs C "Remitos a FacturarC}- CJ- Ys C "Remitos que no se FacturanC- CJ- " Qs C "Remito sin Baja de MercaderaC- CJ- WsC "Remitos de TransferenciaC- CJ- # ZsC "Cambio de Estado de RemitosC- CJ- " @sC "Liberar Remito de FacturaCJ-GsC "Asignar Remito a FacturaCJ-$ ^sC "Modificacin Parcial de RemitosC}- CJ- % sC "\-;sC " Impresin de Etiquetas de CorreoEsC "*Impresin de Rtulos de Facturas y RemitossC "\-.sC "Control GES vs AFIP>sC "Visualizar Facturas de CreditoasC "\-GsC ",Control de la Cola de Correos de Facturacinj1C QDO _6zi11jxyu IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1C QDO _6zi11jxyv IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1C QDO _6zi11jxyw IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1C QDO _6zi11jxyx IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")01C do ve_factura_inmediataJ1C 1do facturacion_automatica in ve_factura_inmediataj1C QDO _6zi11jxyy IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1C QDO _6zi11jxyz IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")<1 C #do ve_reimprimir_comprobante with 1j1 C QDO _6zi11jxz0 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1 C QDO _6zi11jxz1 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1 C QDO _6zi11jxz2 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")j1C QDO _6zi11jxz3 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?"):1C !do ve_cambio_de_estado_de_remitos.1C do ve_liberar_remitos71C do ve_asociar_remito_a_factura31C do ve_modificacion_remitos=1C $do form ve_imprimir_etiquetas_correoB1C )do ve_rotulos_de_facuras_y_remitos with 111C do form ve_fe_visualizar41C do form ve_fecre_visualizarB1C )do mostrar_cola in sys_mail_spool with ,3sC  N7sC "Armar Predespacho&5sC "Armar Despachos'CsC "Modificar Despacho de Remitos'MsC "Facturacin de Despachoabmp\despacho.ico9sC "Terminar o Reabrir un DespachoAsC "Enviar Remitos Electronicos(=sC "Enviar mail a logstica)2sC "Enviar remitos por mail4s C "Despachos Pagados$ /s C "Gestin de Conformes9s C "Retiros de Clientes*Xs C "Remitos Pendientes de Entrega'bmp\reporte.icoQs C "Remitos por Transporte'bmp\reporte.ico>sC "#Solicitud de Mercadera a Depsitos*1C do ve_predespacho>1C %do ve_armar_despacho_por_remito_listaG1C .do ve_armar_despacho_por_remito_lista with .t.j1C QDO _6zi11jxz4 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")01C do ve_terminar_despachoQ1C 8do ve_armar_despacho_por_remito_lista with .t., .t., .f.Q1C 8do ve_armar_despacho_por_remito_lista with .t., .f., .t.31C do ve_enviar_mails_remitos51 C do form ve_despachos_pagados!1 C C +1 C do form ve_retirosE1 C ,do form ve_rpt_remitos_pendientes_de_entrega>1 C %do form ve_rpt_remitos_por_transporteO1C 6do form ve_rpt_solicitud_de_mercaderia_a_depositos.scxsC  N2sC "Asignacin de Conformes/sC "Reporte de Conformes-1C do form ve_conformes11C do form ve_rpt_conformessC  NRsC "#Visualizacin de Cuentas Corrientesbmp\ctacte.icoOsC "Cuentas CorrientesC- bmp\reporte.icoSsC "Desplazamiento de PagoC- bmp\reporte.icoNsC "Facturas a CobrarC- bmp\reporte.ico[sC "Distribucin de Deuda (Ageing)C- bmp\reporte.icojsC "Resumenes de Cuentas Corrientes+CAR C- bmp\reporte.icoSsC "Provisiones EfectuadasC- bmp\reporte.icoQsC ")Exportacin de Saldos en Cuenta CorrienteC- s C "\-os C "Anlisis de DeudaC+INDSRIMAXCAL C- bmp\excel.icos C "\-Os C "Control de Deudas,-. C- '1C do ge01 with 1:1C !do form ve_rpt_cuentas_corrientes61C do form ve_rpt_desplazamiento91C  do form ve_rpt_facturas_a_cobrar/1C do form sch_rpt_ageing/1C do form rpt_resumen_cc31C do form ve_rpt_provisiones*1C do cc_cli_export-1 C do es_deuda_clientes01 C do ve_control_de_deudassC  N/sC "SpoolerCS- <sC "Impresin de RtulosCS- hsC "Anulacin de ComprobantesC.- C- Cs- C~- OsC "'Anulacin de Talonarios de ComprobantesCS- :sC "Procesar NC/ND Automticasa8sC "Visualizacin de ComprobantesKsC "ABM de Puntos de VentaC^- CS- ;sC "Mantenimiento de Pedidos$ Ws C ""Rentabilidad de Pedidos y FacturasC@- CS- Ds C "Modificacin de ComprobantesC- Ds C "Cesin de Facturas a ClienteCS- Cs C "TransferenciasCp- CS- 8s C "ABM de ArmadoresCS- DsC "ABM de Rubros de FacturacinCS- ,sC "Exportar Facturas8sC "Calcular Demoras de Pagoa/sC "Acuerdos ComercialesFsC "+Validacin de configuracin y estado de FCEEsC "*Busqueda de Comprobantes por TX/OT/PermisoAsC "&Visor de estado del controlador fiscal:sC "Envo de Comprobantes y RemitosVsC "Ver Prespuestos Archivados/bmp\pdf_icon.gifUsC "-Modificacin de tipode cambio en comprobantesC- &1C  do ve_spooler&1C  do ve_rotulos11C do ve_anular_comprobante21C do form ve_anular_varios01C do ve_procesar_ncnd_aut'1C do ve_vis_cpbt&1C  do ve_numfac241C do ve_mantenimiento_pedidos+1 C do ve_rentabilidad)1 C do ve_modif_cpbt/1 C do ve_cesion_a_cliente&1 C  do dos_transf%1 C  do armadores$1C  do rubrofac01C do ve_facturas_exportar%1C  do ve_demora!1C C *1C do form fe_prueba41C do form ve_buscar_ot_transJ1C 1do Mostrar_Estado_Controlador_Fiscal in ve_numfac41C do dos_transf with ,,,,,.t.:1C !do form sys_pdf_archivado with ,2+1C do ve_cambio_de_tcsC  NPsC "ABM de Acuerdos ComercialesC- CS- DsC "Procesar Acuerdos ComercialesCJ-(1C do abm_acuerdos01C do ve_procesar_acuerdossC  NDsC "Subdiario IVA Ventasbmp\reporte.icoFsC "Estadsticas de Ventasbmp\reporte.icoOsC "Productos Pendientes de Entregabmp\reporte.ico7sC "Pedidosbmp\reporte.icoWsC "'Artculos Bloqueados por Falta de Stockbmp\reporte.icoDsC "Comprobantes Cedidosbmp\reporte.icoEsC "Comprobantes Emitidosbmp\reporte.ico@sC "Remitos Emitidosbmp\reporte.icoQs C "Comisiones por VentaCo- bmp\reporte.ico]s C " Comisiones de Venta por ArtculoCo- bmp\reporte.icoFs C "Preparacin de Pedidosbmp\reporte.icoFs C "ltimo precio de ventabmp\reporte.icoGs C "Cumplimiento de Pedidosbmp\reporte.icoCsC "Consulta de Ventasbmp\consulta.ico3sC "Abrir directorio de PDFssC "\-JsC " ContribucinC5- bmp\consulta.ico<sC " Presupuestosbmp\reporte.ico21C do form ve_rpt_iva_ventas61C do form ve_rpt_estadisticas01j1C QDO _6zi11jxz5 IN LOCFILE("2000\VE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_MENU?")/1C do form ve_rpt_pedidos<1C #do form ve_rpt_articulos_bloqueados.1C do form ve_rpt_cesion@1C 'do form ve_rpt_comprobantes_emitidos_v281C do form ve_rpt_remitos_emitidos51 C do form ve_te_rpt_comisiones?1 C &do form ve_rpt_comisiones_por_articulo91 C  do form ve_rpt_armado_de_pedidos>1 C %do form ve_rpt_ultimo_precio_de_venta?1 C &do form ve_rpt_cumplimiento_de_pedidos.1C do ve_consulta_ventas:1C !do sys_mostrar_directorio with 1341C do form ve_rpt_contribucion41C do form ve_rpt_presupuestossC  N<sC " Configuracinbmp\config.ico.1C do form ve_configurart :% CBT  T   %, Cp- ,C< C U0OFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JXYKP_VE_PRESUPUESTOS _6ZI11JXYLACCESOP_NP _6ZI11JXYM _6ZI11JXYN P_LOGISTICA _6ZI11JXYO _6ZI11JXYP _6ZI11JXYQ _6ZI11JXYRP_ANALISIS_PEDIDOSP_DIR_IMPORT_KRIKOS_HACERP_VE_LIBERACION_ENTREGAS P_PICKING P_VE_FC_AUTP_CIERRE_CONTABLEP_REMITOS_TRANSFERENCIAP_DEVP_VE_MODIF_REMITOS P_PREDESPACHOP_TIPO_DESPACHOP_FCE_COT_ENVIARP_DESP_MAIL_LOGISTICA_ENVIARP_VE_DSP_VERSIONP_EMPP_DOSP_CODEMPP_UNOP_PDF_REVISION_GUARDAR< T- Ta T- T- UDIRREAAUTINM VE_PEDIDO< T- T- T- T- UDIRREAAUTINM VE_PEDIDO< T- Ta Ta T- UAUTDIRREAINM VE_PEDIDO< T- T- Ta T- UAUTDIRREAINM VE_PEDIDO UVE_FACTURACION_DE_REMITOS@ T- T- Ta T-aUAUTDIRREAINM VE_PEDIDO T%Ctccvent 9Qtccvent%%Ctccvent.tipo_ncbNo T T- Ta T- T-9UXTIPO_NCTCCVENTP_NC_APROBACIONDIRREAAUTINM VE_PEDIDO< T- Ta T- T- UDIRREAAUTINM VE_PEDIDO< T- T- Ta T- UAUTDIRREAINM VE_PEDIDOG T- T- Ta T- Ta UAUTDIRREAINMXNO_FC VE_PEDIDO@ T- T- Ta T-aUAUTDIRREAINM VE_PEDIDOR T- T- Ta T- Ta Ta UAUTDIRREAINMXNO_FCXREMITO_TRANSFERENCIA VE_PEDIDO T-UINMVE_DESPACHO_FACTURA41)ve_rpt_productos_pendientes_de_entrega_v3U)VE_RPT_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3 _6zi11jxysE _6zi11jxyt;F _6zi11jxyuF _6zi11jxyvG _6zi11jxywdG _6zi11jxyxG _6zi11jxyyG _6zi11jxyzI _6zi11jxz0I _6zi11jxz1I _6zi11jxz2ZJ _6zi11jxz3J _6zi11jxz4YK _6zi11jxz5Kqqc AA!AAA!AAA4CbaSbbR!1AQ!qB"b"RB"brrQqq1!A!rR2!Bq1QQ!"33qa1rBB2BaQcRaa!qaAaQAQAABBbrrBRbbr21!aQAAbAA QA1 1111w111ARD111111q117vHzY>`z}qE}TLlڄSV]4k%r=y×1J)0`Hz%/'u)'"Y '     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] KT  operacioneT  solicitudeT  preparaciT  despachosT reportesT  tablasauxiT  _0b40vzmlls  Fs " \- ;sC " Visualizar Inventario x Artculo:sC "Anular OperacionesC- 5sC "Reimpresin de Operaciones/sC "Impresin de Rtulos0sC "Control de Inventario>sC "Control de MovimientosC- 8sC "Remito a ClienteC}- Js C ""Remito a Cliente que No se FacturaC- Ts C "!Remito a Cliente de TransferenciaC-  4s C " ABM de LotesC_- Cs C "Asignacin de Lote AuxiliarC_- 2s C "Aprobaciones de Calidad3sC "Modificacin de Anlisis=sC ""Cancelacin de Recepcin Pendiente>sC "Control de MovimientosC- )sC " Etiquetasa/sC "Cierre Clasificacin;sC "Desarme de Pallet/Armado @sC "Importacin de Recepciones /1C do form in_operaciones(1C do form stk_vis/1C do in_anular_operacion+1C do form in_imprime31C do form in_rotulos_sel_movj1C QDO _6zi11jy2q IN LOCFILE("2000\IN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_MENU?")21C do in_control_movimientosj1C QDO _6zi11jy2r IN LOCFILE("2000\IN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_MENU?")j1 C QDO _6zi11jy2s IN LOCFILE("2000\IN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_MENU?")j1 C QDO _6zi11jy2t IN LOCFILE("2000\IN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_MENU?")'1 C do in_despacho,1 C do in_asig_lote_aux&1 C  do in_calidad-1C do in_protocolos_modF1C -do form in_recepciones_recbibidas_manualmente21C do in_control_movimientos-1C do form in_etiquetas31C do in_cierre_clasificacion.1C do in_pallet_desarmarI1C 0do recepciones_por_lote in in_recepciones_x_lotesC  NEsC "Crear Solicitud de MercaderaC- `sC "Controlar SolicitudesC- C- bmp\consulta.ico;sC "Reabrir SolicitudesC- :sC "Anular SolicitudesC- `sC "Reporte de SolicitudesC- C- bmp\reporte.ico/sC "Reimprimir Solicitud-sC "Actualizar AlertasFsC "Generacin Numeracin AuxiliarC- %1C  do in_solcom,1C do in_controlar_sol/1C do form in_sol_reabrir.1C do form in_sol_anular31C do form in_rpt_solicitudes31C do form in_sol_reimprimirB1C )do actualizar_alertas in in_controlar_sol01C do in_solcom_numero_auxsC  N-sC "Pedidos a Preparar1sC "Preparacin de Pedidos3sC "Anulacin de Preparacin>sC "#Impresin de Rtulos de Preparacin-1C do in_control_armado%1C  do ve_armado?1C &do anular_armado_pregunta in ve_armado.1C do ve_armado_imprimirsC  N5sC "Armar Despachos de Remitos9sC "Modificar Despachos de Remitos/sC "Terminar un DespachoMsC "Remitos Pendientes de Entregabmp\reporte.icoFsC "Remitos por Transportebmp\reporte.icosC "\-6sC "Enviar Remitos Electronicos>1C %do ve_armar_despacho_por_remito_listaG1C .do ve_armar_despacho_por_remito_lista with .t.01C do ve_terminar_despachoE1C ,do form ve_rpt_remitos_pendientes_de_entrega>1C %do form ve_rpt_remitos_por_transporteL1C 3do ve_armar_despacho_por_remito_lista with .t., .t.sC  NAsC "Inventario Actualbmp\reporte.icoFsC "Inventario Retroactivobmp\reporte.icoIsC "Movimientos de Inventariobmp\reporte.icoUsC "%Movimientos de Inventario con Detallebmp\reporte.icoOsC "Productos Pendientes de Entregabmp\reporte.icoIsC "Necesidades de produccionbmp\reporte.ico;sC " Recepcionesbmp\reporte.ico41C do form rptinventarioactual<1C #do form in_rpt_movimientos with .t.31C do form in_rpt_movimientos-1C do form rptmovcondetj1C QDO _6zi11jy2u IN LOCFILE("2000\IN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_MENU?")81C do form in_rpt_plan_necesidades:1C !do form in_rpt_recepciones with 2sC  N8sC "ABM de Motivos de Operaciones,sC "ABM de Protocolos)sC "ABM de Modelos"1C  do motinv)1C do abmprotocolo1&1C  do in_modelossC  N0sC "Exportacin del Stock(sC " MantenimientoDsC "Consolidacin del Stocka Cq- ?sC "Transferencias 6sC "Calcular Das de Stocka(sC " Configuracin)1C do in_stk_export,1C do in_mantenimiento41C do form in_consolidar_stock*1C do dos_transf_stk)1C do pr_dias_stock.1C do form in_configurart :% CT  T  U!OFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JY2JACCESO _6ZI11JY2KP_SOLCOMP_DOSP_CODEMP _6ZI11JY2LP_VE_PREPARACION _6ZI11JY2MP_TIPO_DESPACHO _6ZI11JY2N _6ZI11JY2O _6ZI11JY2PP_REMITOS_TRANSFERENCIA P_PR_PALLETSP_IN_RECEPCIONES_X_LOTE>%  7 UP_IN_FALTANTES_VERSION IN_FALTANTES2 IN_FALTANTESG+( ve_comienzo C%Ccentral JQcentral% &CMdulo no configurado !!!R B- C CR T- T - T a T - T - aU VE_COMIENZOABRIR_TABLAS_FIJASCENTRALLOCALESVE_INIMENSAJEVARIABLES_PUBLICAS OPEN_FILESAUTDIRREAINMXNO_FC VE_PEDIDOG+( ve_comienzo C%Ccentral JQcentral% &CMdulo no configurado !!!R B- C CR T- T - T a T - T a aU VE_COMIENZOABRIR_TABLAS_FIJASCENTRALLOCALESVE_INIMENSAJEVARIABLES_PUBLICAS OPEN_FILESAUTDIRREAINMXNO_FC VE_PEDIDOG+( ve_comienzo C%Ccentral JQcentral% &CMdulo no configurado !!!R B- C CR T- T - T a T - T a T a U VE_COMIENZOABRIR_TABLAS_FIJASCENTRALLOCALESVE_INIMENSAJEVARIABLES_PUBLICAS OPEN_FILESAUTDIRREAINMXNO_FCXREMITO_TRANSFERENCIA VE_PEDIDO41)ve_rpt_productos_pendientes_de_entrega_v3U)VE_RPT_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3 _6zi11jy2q}! _6zi11jy2r! _6zi11jy2s# _6zi11jy2t% _6zi11jy2u&qqc AA!AAA!AAAdSrc2QBB2!11!qaa!1RbQ11!1QQbaqQbRA1!aBbAbAA11A1A1A2bQqARR1A1A2bQqARR1A1A2bQqAR11UC0GgHGK| LPQ8VPVV%Gv[dT '     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]#T  operacioneT  asientosdeT  cierresmenT  _0b40vzmllT reportesT  configuracs  Rs " \sC "Mantenimiento ContableC]- )1C do abmejercicios51C do form co_cierre_y_apertura&1C  do co_interco31C do co_ajuste_por_inflacion11C do form co_mantenimientosC  NDsC "Consultar el Diariobmp\consulta.icosC "\-5sC "Mayorbmp\reporte.ico7sC "Balancebmp\reporte.ico6sC "Diariobmp\reporte.ico?sC "Flujo de Fondosbmp\reporte.icosC "\-LsC "Exportaciones SIAP y otrosbmp\impuestos.png9s C " Posicin IVA bmp\afip.png.1C do form co_diario_verj1C QDO _6a1125oik IN LOCFILE("2000\CO_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CO_MENU?")j1C QDO _6a1125oil IN LOCFILE("2000\CO_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CO_MENU?").1C do form co_rpt_diario71C do form co_rpt_flujo_de_fondos(1C do form co_siap'1 C do form co_ivasC  N>sC "Confi\1C %do form cm_rpt_pagos_con_imputaciones>1C %do form cm_rpt_busquedas_estadisticas41C do form cm_rpt_estadisticas?1C &do form cm_rpt_ultimo_precio_de_compra>1 C %do form cm_rpt_importaciones_cobradas:1 C !do form in_rpt_recepciones with 1W1 C >do ejecutar_consulta_exportar in cm_sql_pagos_con_imputacionessC  N(sC " Configuracin.1C do form cm_configurart :% C"T  T  +%   "<C U!OFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JY5RACCESOP_OC _6ZI11JY5S _6ZI11JY5T _6ZI11JY5U _6ZI11JY5V _6ZI11JY5WP_PDF_REVISION_GUARDARP_CM_OC_ENVIARP_CM_VERSION_RECEPCIONP_DOSP_CODEMPP_COMPRAS_DESGLOSEP_DEVP_EMPcm_sql_comprasUMSG_AGREGAR_NUEVOSCM_SQL_COMPRASo %a7*"cm_ctacte_proveedores_detallada_v2 h'cm_ctacte_proveedores_detalladaU"CM_CTACTE_PROVEEDORES_DETALLADA_V2CM_CTACTE_PROVEEDORES_DETALLADA _6zi11jy5x$ _6zi11jy5y$qqc AA!AAA!AAA4#rbBqRbQqa!!1!QQBBAAAqR1A1Qa""bqabbrrr"1AAqbAAQA11qA1FInJJ%2nVV'!G'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T     .%Cm.lUniquePopupsbL  y (C uT C] T  planeamienT  operacioneT  protocolosT  tablasauxiT frmulasT  abmdemquiT  componenteT  operariosT  reportesT   configuracs  Fs "\sC "Anulacin de ProduccinC4 ?sC "Reapertura de ProduccinC4 DsC ")Reimpresion de Producciones/Preparaciones:s C "Cambio de Etapa de Producciones+s C "Imprimir Rtulos&1C  do pr_ordenes'1C do pr_envasado01C do pr_ordenes with ,.t.j1C QDO _6l40ndlq9 IN LOCFILE("2000\PR_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is PR_MENU?")+1C do pr_cierre_batch%1C  do pr_anular)1C do pr_reabrir_op51C do pr_reimprimir_ordenes.prg%1 C  do pr_etapas31 C do form pr_rotulos_sel_movsC  NHsC "!Ingreso/Modificacin de ProtocoloC =sC "Anulacin de ProtocoloC 1sC "Impresin de Protocolo01C do pr_protocolos with 001C do pr_protocolos with 161C do imprimir in pr_protocolossC  N#sC "Frmulas.sC "MquinasCNHsC ""Componentes de Artculos GenricosCN/sC " OperariosCN,sC "TurnosCN!1C C !1C C !1C C !1C C j1C QDO _6l40ndlqa IN LOCFILE("2000\PR_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is PR_MENU?")sC  NNsC "ABM de FrmulasCN C C WsC "Reemplazo de ComponentesCN C C DsC "Impresin de Frmulabmp\reporte.icoCsC "Listado de Frmulasbmp\reporte.icoRsC ""Listado de Frmulas por Componentebmp\reporte.icoFsC "Composicin de Formulabmp\reporte.ico'1C do pr_formulas41C do pr_cambio_de_componentes*1C do pr_sql_formula;1C "do form pr_rpt_listado_de_formulas?1C &do form pr_rpt_formulas_por_componente@1C 'do form pr_rpt_listado_de_formula_unicasC  N*sC "ABM de MquinasCsC "Listado de Mquinasbmp\reporte.icosC "\-4sC "ABM de Grupos de Mquinas'1C do abmmaquinas-1C do form rptmaquinas-1C do abmmaquinas_gruposC  NDsC ")ABM de Componentes de Artculos Genricos)1C do abm_genericossC  N+sC "ABM de OperariosDsC "Listado de Operariosbmp\reporte.ico'1C do abmoperario.1C do form rptoperariossC  NEsC "Ordenes de Produccinbmp\reporte.icoDsC "Artculos a Entregarbmp\reporte.icoCsC "Produccin Diariabmp\impresora.ico@sC "Estado del Stockbmp\reporte.ico41C do form pr_rpt_producciones<1C #do form pr_rpt_articulos_a_entregar:1C !do form pr_rpt_produccion_diaria2.1C do form rptplanestadosC  N-sC " Configuracinat :% CT  T  % @<C UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6L40NDLQ2ACCESO _6L40NDLQ3 _6L40NDLQ4 _6L40NDLQ5 _6L40NDLQ6 _6L40NDLQ7 P_PR_PL_MAQ>%  7 UP_IN_FALTANTES_VERSION IN_FALTANTES2 IN_FALTANTESJ%& CUP_PR_CIERRE_VERSION PR_CIERRE PR_CIERRE_OLDc-G+(Dey_FuncDey_Fill pr_maquinas7,pr_planeamiento_por_maquina_turJUDEY_FUNCDEY_FILL PR_MAQUINAS FRMPLANMAQDIAPR_PLANEAMIENTO_POR_MAQUINA_TUR _6l40ndlq8z _6l40ndlq9 _6l40ndlqavqqc AA!AAA!AAA dSrsbq"qa!AqAaqQQQ1a1rB2"bqA2AqABqRB2AbAA QA11A1111A1r1`<;@SS@ChCD}%65956"Y?!2'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] T  cobranzasT  ncndautomT pagosT  bancosyvalT  depsitosT  extraccionT  _1tb0oil3qT tarjetasT   dbitodechT  bancosT   transferenT  casctesT  variosT  cierresdecT  _4ke0munedT  gastosvariT  ingresosvaT reportesT  _3g00pdv3ls  Es " \sC "#Modificacin de Cheques de TercerosCsC "(Transferencias de Valores entre Empresas.sC "Bsqueda de Valores(1C do te_chequeras)1C do te_ab_cheques@1C 'do te_renumeracion_cheques_propios.prg 71C do te_cambio_fecha_terceros_v2,1C do te_transferencia+1C do form te_valoressC  NNsC "'ABM de Tarjetas de Crdito RecaudadorasC SsC ",Cierres y Vencimientos de Tarjetas PagadorasC *1C do te_abmtarjetas01C do te_tarjetas_cierressC  N4sC "Dbito de Cheques PropiosKsC "(Debito de Cheques Propios (Automatizado) @sC "%Anulacin de Dbito de Cheque Propio+1C do te_debitos_baja91C  do te_debitos_baja with .t., .t.+1C do te_debitos_altasC  N(sC " ABM de Bancos6sC "Exportacin Tabla de Bancos%1C  do abmbancos11C do te_bancos_exportacionsC  N6sC "Transferencia entre Cuentas$sC " Anulacin:1C !do te_transferencia_entre_cuentasD1C +do te_transferencia_entre_cuentas_anulacionsC  N9sC "Cuentas Corrientes de Clientes<sC "!Cuentas Corrientes de Proveedores'1C do ge01 with 2'1C do ge02 with 2sC  N7sC "Asientos ModeloC- KsC "0Transferencia de Documentos a Cuentas Corrientes9sC "Ingreso de Saldos de Tesorera5sC "Mantenimiento de Tesorera4sC "ABM Talonarios de Recibos7sC "ABM de TarjetasC- AsC "ABM de Puntos de CobranzaC+- AsC "Cierres de Caja C Js C "Liquidaciones de Tarjeta C (s C " Gastos Varios*s C "Ingresos Variosj1C QDO _6zi11jy98 IN LOCFILE("2000\TE_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is TE_MENU?")#1C  do te_docs%1C  do te_saldos,1C do te_mantenimiento11C do te_recibos_talonarios#1C  do abmtarj"1C  do numrec!1C C !1 C C !1 C C !1 C C sC  N*sC "Cierres de Caja6sC "Anulacin de Cierre de Caja-1C do te_cierre_locales?1C &do co_anulacion_asientos_tipo2 with 57sC  N3sC "Liquidaciones de Tarjeta>sC "#Anulacin de Liquidacin de Tarjeta/1C do te_resumen_tarjetas91C  do te_resumen_tarjetas_anulacionsC  N3sC "Ingreso de Gastos Varios5sC "Anulacin de Gastos Varios(1C do te_gastos_v2/1C do te_gastos_anulacionsC  N*sC "Ingresos Varios$sC " Anulacin'1C do te_ingresos11C do te_ingresos_anulacionsC  NOsC "Cheques y Documentos en Carterabmp\reporte.icoSsC "#Movimientos de Cuentas de Tesorerabmp\reporte.icoPsC " Movimientos de Cuentas Bancariasbmp\reporte.icoHsC "Cheques Propios Emitidosbmp\reporte.icoVsC "&Pagos (Comprobantes de Pago y Ajustes)bmp\reporte.icoMsC "Cobranzas (Recibos y Ajustes)bmp\reporte.icoCsC "Saldos de Tesorerabmp\reporte.icoVsC "Vencimiento de Cheques Propios bmp\reporte.icoCs C "Historia de Valoresbmp\reporte.ico>s C "Buscar Valoresbmp\reporte.ico;s C " Retencionesbmp\reporte.icoGs C " ComisionesCo- bmp\reporte.ico:s C " Talonariosbmp\reporte.icoBsC "Control de Chequesbmp\reporte.icoasC "1Diferencias de Cambio y Desplazamiento en Recibosbmp\reporte.ico_sC "/Diferencias de Cambio y Desplazamiento en Pagosbmp\reporte.icoGsC "Comisiones por Cobranzabmp\reporte.ico:1C !do form te_rpt_cheques_en_cartera31C do form te_rpt_movimientos>1C %do form te_rpt_depositos_extracciones81C do form te_rpt_cheques_emitidos-1C do form te_rpt_pagos/1C do form te_rpt_recibos81C do form te_rpt_saldos_tesoreriaC1C *do form te_rpt_vencimiento_cheques_propios;1 C "do form te_rpt_historia_de_valores+1 C do form te_valores<1 C #do form te_rpt_retenciones_clientes51 C do form ve_te_rpt_comisiones:1 C !do form te_rpt_recibos_talonariosB1C )do form te_rpt_control_cheques_ingresados=1C $do form te_rpt_diferencias_de_cambioC1C *do form te_rpt_diferencias_de_cambio_pagos21C do form te_rpt_comisionessC  N(sC " Configuracin.1C do form te_configurart :% C2T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JY90ACCESO _6ZI11JY91 _6ZI11JY92 _6ZI11JY93 _6ZI11JY94 _6ZI11JY95 _6ZI11JY96P_TE_RC_ENVIARP_DEVP_TE_PAG_ENVIARP_TE_BAJA_AUTOMATIZADAP_TE_CIERRE_CAJA_Y_LIQ_TARJETAS UTE_PAG_REIMPRESION co_comienzo T co_modificar(% OB!%  ?C2Solo se pueden modificar asientos sobre modelo !!!Ba T%% T  T T %Zco_asientos_modelo + co_asientos U OPEN_FILES CO_COMIENZOXASIENTO_A_MODIFICAR_O_DUPLICAR CO_MODIFICARXRESCONCEPTOASI_MODMENSAJEXABMXTIPOCO_ASIENTOS_MODELO CO_ASIENTOS _6zi11jy97G4 _6zi11jy98m4qqc AA!AAA!AAATr2b2aQA!1q"211r2a!qaa!Aq!Q2AC21qa2aaAq2q2AaQaAAqqrQAr1Q1!a11QAq2b2c2s"r11Q!1!bAA1r01cAAqA2aAA2A1d]aad%Y{JWW!'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] T  operacioneT  importacioT reportess  Fs " \sC "Modificacin de CostosCm- sC "\-VsC ".Ingreso y Modificacin de Costos de ReposicinCm- IsC "!Anulacin de Costos de ReposicinCm- s C "\-Ms C "%Costo Adicional a FC/NC/ND de ClienteCk- @s C "Generar Incrementos de Costos Is C "&ABM de Frmulas de Incremento de Costo Cs C "Actualizar Costos StandardCLEFsC "Copia de costos entre empresasC- (sC " ImportacionesDsC ")ABM de parmetros de generacin de costos&1C  do cs_generar,1C do cs_anular_cierre,1C do cs_anular_costos61C do form cs_consulta_de_costos31C do form cs_modificar_costoj1C QDO _6os0k007v IN LOCFILE("2000\CS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CS_MENU?"):1C !do cs_anular_costos_de_reposicion.1 C do cs_costo_adicional(1 C do cs_sinnombre$1 C  do forincos.1 C do cs_costos_standard01C do form cs_costos_copia!1C C &1C  do abmcoscpresC  N/sC "Importar costosa2sC "Importar costo de venta01C do form cs_importar.scx31C do form cs_importar_cosvensC  NGsC "Producciones con Costosbmp\reporte.icoCsC "Frmulas con Costosbmp\reporte.icoDsC "Costos por Artculosbmp\reporte.icoXsC "Compras y RecepcionesCLEa bmp\reporte.icoQsC "!Analisis de Variaciones de Costosbmp\reporte.icoNsC "Costos Adicionales por Facturabmp\reporte.ico41C do form pr_rpt_producciones:1C !do form cs_rpt_formulas_costeadas:1C !do form cs_rpt_costo_por_articulo=1C $do form cs_rpt_compras_y_recepciones91C  do form cs_variaciones_de_costos;1C "do form cs_rpt_costo_adicional.scxt :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6OS0K007SACCESO _6OS0K007TP_DEV P_FORINCOSP_EMP UCS_MODIFICAR_COSTO_REPOSICION _6os0k007vqqc AA!AAA!AAAdrb2bAaa1Aa!1r2BAbAA1q1W((%b<dTo! '     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]T  operacioneT  proyectadoT reportesT otrosT  configuracs  Ds " OperacionesCQ- NALT+OAs "ReportesC- NALT+R2s "Otros NALT+ORs " ConfiguracinCQ- C- NALT+C1 C 1 C 1 C 1 C sC  N1sC " ProyectadoC-2sC " AdicionalesC-)sC "Procesar Datos8sC "Modificar ResumenCQ-DsC "Modificar DetalleC- CQ- 'sC " T.C. Generar*sC "T.C. Visualizar!1C C j1C QDO _6a1125osr IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")j1C QDO _6a1125oss IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")j1C QDO _6a1125ost IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")j1C QDO _6a1125osu IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")&1C  do tc_generarj1C QDO _6a1125osv IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")sC  N/sC "Proyectado de Ventas2sC "Proyectado de Cobranzas0sC "Proyectado de Compras.sC "Proyectado de Pagos71C do gs_pronostico_ventas with 161C do gs_cobranza_mensual with 171C do gs_pronostico_ventas with 261C do gs_cobranza_mensual with 2sC  N7sC "Resumenbmp\reporte.ico7sC "Detallebmp\reporte.icoj1C QDO _6a1125osw IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")j1C QDO _6a1125osx IN LOCFILE("2000\GS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GS_MENU?")sC  N3sC "Estadistica de Cobranzas31C do gs_estadistica_cobranzasC  NLsC "Configuracin de TiposCQ- C BsC "Configuracin de CuentasC ?sC "Configuracin GeneralC 01C do form gs_config_tipos-1C do gs_config_cuentas21C do form gs_config_generalt :% C T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6A1125OSNACCESO _6A1125OSO _6A1125OSP _6A1125OSQOBAR_GS CASH_ESTADOPUEDE_VER_EDITAR T%C BCB-G(9 T TF #)F G((tipo#) {2ctrl+a{2ctrl+b{2ctrl+c{2f1 CBUXTMPMSGOBAR_GS CASH_ESTADOPUEDE_VER_EDITARMENSAJE ACTIVEFORM DATASESSIONIDMAXTIPO MAXSUBTIPOCASHNUMECASHADICTIPOGS_ADICIONALESCTRLABCF1 UNLOCK_ALL$G(9 CU ACTIVEFORM DATASESSIONID GS_GENERAR UNLOCK_ALL$G(9 CU ACTIVEFORM DATASESSIONID GS_RESUMEN UNLOCK_ALL$G(9 CU ACTIVEFORM DATASESSIONID GS_DETALLE UNLOCK_ALL %a> T\tmp Ttc.exeT! /N1  &xvar (,CError al ejecutar comando: SET DEFAULT TO &p_server UXSYSTEMP_SYSTEMTC_MAINP_LOCAL P_EXE_PATHXVAROEXMENSAJE3G(9gs_rpt_resumen CU ACTIVEFORM DATASESSIONIDGS_RPT_RESUMEN UNLOCK_ALL3G(9gs_rpt_detalle CU ACTIVEFORM DATASESSIONIDGS_RPT_DETALLE UNLOCK_ALL _6a1125osr _6a1125oss _6a1125ost _6a1125osuF _6a1125osv _6a1125osw _6a1125osxBqqC AA!AAAAAAD"#"Bqa!qaqarr11"!BAA1qqArQrRr"!!B1r1r1q1q4qAA1a1a1S',j,u0o04.t147Dy7Z<Yr<@@w@% {"Y!DsCCW$s"Mostrar mensajess"\-.s"Borrar contrasea guardadas"\-s"Salir61$oFORMMSGs.Systray1.icondblclickevent51#oSecurity.sys_borrar_clave_guardada#1oFORMMSGs.ReleasetUSHORTCUTAAaaaQ11%P"Y!'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T     .%Cm.lUniquePopupsbL  y (C uT C] T  asistenciaT  exportaciT gastosT  _3ko14l080T variosT pfT newitemT  importacioT  reportesT   _5yt0p9stfs  8s " Asistencias NALT+AAs "Exportacin de Datos NALT+EBs "Plazo Entrega Pedidos NALT+P1s "T.C. NALT+T3s "Gastos NALT+G1s "E.R. NALT+E3s "Varios NALT+V1 C 1 C 31м do form ve_trans_cambiar_plazo*1м do form es_sch_rpt_tc1 C 1 C 1 C sC  N1sC "Ingreso de Asistencias3sC "Anulacin de Asistencias1sC "Reporte de Asistencias1sC "Control de Asistencias*1C do ve_asistencias41C do ve_asistencias_anulacion31C do form ve_rpt_asistencias51C do ve_control_de_asistenciassC  N+sC "Saldos Contables'sC " Contribucin01C do es_sch_export_contab11C do es_sch_export_contribsC  N,sC "Ingreso de Gastos.sC "Anulacin de Gastos)1C do es_sch_gastos?1C &do co_anulacion_asientos_tipo2 with 55sC  N+sC "E.R. interactivo2sC "E.R. interactivo Actual.sC "E.R. automtico (1).sC "E.R. automtico (2).sC "E.R. automtico (3).sC "E.R. automtico (4).sC "E.R. automtico (5)$sC " E.R. fast9s C "E.R. (11) Todo - Gen. y Exp.+s C "E.R. (12) Genera3s C "E.R. (13) Exporta y sube7s C "E.R. (13) Exporta y no sube*s C "Cashfree Actual2sC "Cashfree Actual (Reusa)?1C &do es_sch_todos_los_asientos with ,,,1@1C 'do es_sch_todos_los_asientos with 1,,,1D1C +do es_sch_todos_los_asientos with 1, 1, 1,1E1C ,do es_sch_todos_los_asientos with 1, 1, 2, 1E1C ,do es_sch_todos_los_asientos with 1, 1, 3, 1D1C +do es_sch_todos_los_asientos with 1, 1, 4,1E1C ,do es_sch_todos_los_asientos with 1, 1, 5, 1E1C ,do es_sch_todos_los_asientos with 1, 1, 2, 3F1 C -do es_sch_todos_los_asientos with 1, 1, 11, 1F1 C -do es_sch_todos_los_asientos with 1, 1, 12, 1F1 C -do es_sch_todos_los_asientos with 1, 1, 13, 1F1 C -do es_sch_todos_los_asientos with 1, 0, 13, 1+1 C do gs_cashfree_sch71C do gs_cashfree_sch with ,,,.t.sC  N2sC "Exportaciones One Click9sC "Exportaciones One Click (Test)#sC "CashfreesC "\-$sC " HoneywellsC "\-sC "P+F'sC " One-ClickCRM,s C "Importaciones XLS's C " Cotizaciones+s C "Arts. a Importar's C " Das de Giro%s C " \1C %do sys_monedas_mexico with , .t., .t.t :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JYF5 _6ZI11JYF6 _6ZI11JYF7 _6ZI11JYF8 _6ZI11JYF9 _6ZI11JYFA _6ZI11JYFBP_DEVqqc AA!AAA!AAQA"2211A1Qq!A1q!AQQAQQaaaaq!1AqqqQq!!Q!AQqQ!bBsaAA111bAA1%3o"Y!'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] T newitemT  otrasopcios  6s " \1C %do procesar in ve_informe_diario_task>1C %do procesar in pr_informe_diario_task>1C %do procesar in cm_informe_diario_taskt :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JZ45 _6ZI11JZ46qqc AA!AAA!AAAC!Q!a1bAA1%"Y$'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T  s  7s " \s "Armado de Pallets NALT+A;s "Notificaciones NALT+N1 C 1 C sC  N+sC "Armado de Pallet,sC "Imprimir Comandos.1C do ve_armado with ,,1:1C !do imprimir_comandos in ve_armadosC  N2sC "Ventas - Informe Diario6sC "Produccin - Informe Diario3sC "Compras - Informe Diario>1C %do procesar in ve_informe_diario_task>1C %do procesar in pr_informe_diario_task>1C %do procesar in cm_informe_diario_taskt :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11JZ9J _6ZI11JZ9Kqqc AA!AAA!AAA!a1bAA1%!*쎓T$'     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]T newitemT controls  Bs "Importacin de Wizell NALT+I4s "Control NALT+C1 C 1 C sC  N;sC "Importacin de Wizell:1C !do es_tfw_shoppy_v3 with p_codempsC  N3sC "Control de Stock 11C do tfw_control_stock.prgt :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6BB12EYDE _6BB12EYDFP_CODEMPP_DEVqqC AA!AAAAAA#B2BAA1%,U$~'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] T  importartis  As "Reporte de Logstica NALT+R>s "Deuda de Clientes NALT+D=s " Subir Datosa NALT+S<s "Importar Tienda NALT+I11м do form es_sri_rpt_logistica)1м do es_deuda_clientes31м do es_sri_actualizacion_mysql1 C sC  N*sC "Importar Tienda0sC "Importar Tienda (DEV))1C do es_sri_tienda21C do es_sri_tienda with .t.t :% CwT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6E91108U8 _6E91108U9 _6E91108UA _6E91108UBqqc AA!AAA!AAA1!bAA1%l& dT %B'     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]T  importacis  As "Importacin de datos NALT+I1 C sC  N/sC "Importacin de datos1sC "Subir datos a internet41C do es_lec_importacion_datos71C do es_lec_actualizacion_mysqlt :% C;T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6A1125QN0qqC AA!AAAAAAAqBAA1%dT+%{GY(GY>s"Sincronizacion de datos NALT+S.1мdo form sys_sincronizar_recibirU _6A1125QP4aa1%l& dTK%B'     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]T  importacis  As "Importacin de datos NALT+I1 C sC  N/sC "Importacin de datos1sC "Subir datos a internet41C do es_lec_importacion_datos71C do es_lec_actualizacion_mysqlt :% C;T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6A1125QR7qqC AA!AAAAAAAqBAA1% p 8 "Yk%sCCW;s"Imputar a otros comprobantesCV*s"Visualizar comprobanteDs"%Modificacin de fechas, notas y otrosCVEs"Anular comprobante (no fiscal)Vcd :s"Seguimiento del comprobanteCV1s"Mantenimiento del comprobante,s"Ver diferencia de cambioLs"Modificar fecha/cambio reciboR C ;s "Mantenimiento del pedidoPs "Redondeo?s "Provisionar/ajustar comprobanteC s "\-8s "Eliminar comprobante provisorioa81&do cpbt_imp in ge01 with xmoneda,xtipo%1do cpbt_vis in ge01*1do comentar_cpbt in ge01g1UDO _6zi11jzcc IN LOCFILE("2000\GE01_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE01_MENU?")(1do seguimiento in ge01g1UDO _6zi11jzcd IN LOCFILE("2000\GE01_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE01_MENU?")(1do ver_difcbio in ge01a1Odo te_modificar_cambio_recibo with ctacte.cod_cli, ctacte.comprob, ctacte.causag1 UDO _6zi11jzce IN LOCFILE("2000\GE01_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE01_MENU?")I1 7do provisionar_comprobante in ge01_provisiones with .t.@1 .do provisionar_comprobante in ge01_provisiones*1 do nocpbt_provis in ge01tU MENEMERGEACCESOCTACTECAUSAH Vcdrz<%C.- C- Cs- C~- .C!No tiene permisos suficientes !!!B v  T T-CCs6CV<Cc)CdCr6666CC\gCCRgC= 2<C/No se puede anular este tipo de comprobante !!!>C1Debe consultar nuevamente la cuenta corriente !!!U CTACTECAUSAACCESOMENSAJEXERRXMSGVE_ANULAR_COMPROBANTERCOMPROBNge01<C/Debe volver a consultar la cuenta corriente !!!U CPBT_MANTGE01MENSAJEoTCC,g ;C.Debe volver a consultar lacuenta corriente !!!BUXPEDIDOCTACTECOMPROBVE_MANTENIMIENTO_PEDIDOSMENSAJE _6zi11jzccD _6zi11jzcd _6zi11jzce ABRaQsss?A AA11qB1bR.2P%i  7 "Y%sCCW;s"Imputar a otros comprobantesCW/s"Modificar fechasCW*s"Visualizar comprobante.s"Nota de GestinCW>s"Eliminar comprobante ProvisorioCW1s"Mantenimiento del comprobante,s"Ver diferencia de cambioRs"Anular Orden de CompraP CZ- CK- Rs "Cerrar Orden de CompraP C- CK- Ds "Modificar Cambio PagoO C s "Redondeo?s "Provisionar/Ajustar ComprobanteC 81&do cpbt_imp in ge02 with xmoneda,xtipo%1do cpbt_mod in ge02%1do cpbt_vis in ge02*1do comentar_cpbt in ge02*1do nocpbt_provis in ge02g1UDO _6zi11jzf3 IN LOCFILE("2000\GE02_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE02_MENU?")(1do ver_difcbio in ge02g1UDO _6zi11jzf4 IN LOCFILE("2000\GE02_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE02_MENU?")g1 UDO _6zi11jzf5 IN LOCFILE("2000\GE02_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is GE02_MENU?")_1 Mdo te_modificar_cambio_pago with ctacte.cod_pro, ctacte.comprob, ctacte.causaI1 7do provisionar_comprobante in ge02_provisiones with .t.@1 .do provisionar_comprobante in ge02_provisionestU MENEMERGEACCESOCTACTECAUSANge02<C/Debe volver a consultar la cuenta corriente !!!U CPBT_MANTGE02MENSAJE%PTCC,g Ta T?sys_logica_fisicaAnulacin de OC CCZ%,cm_anular_orden_de_compra *CNo es una Orden de Compra !!!U CAUSAXORDENCOMPROBXRESXLOGFISSYS_LOGICA_FISICA ANULAR_OCCM_ANULAR_ORDEN_DE_COMPRAMENSAJE%PTCC,gT%CSeguro que quiere cerrar la OC CC@z 999,999,999_ ?0cm_terminar_orden_de_compra *CNo es una Orden de Compra !!!UCAUSAXORDENCOMPROB MENSAJE_SINOTERMINAR_O_REABRIR_OCCM_TERMINAR_ORDEN_DE_COMPRAMENSAJE _6zi11jzf3* _6zi11jzf4 _6zi11jzf5A""BQQsss?1AtBA1AAAA1SQ e.B %x]*w?X%sCCW5s"Visualizar presupuestoCV@s"Modificar presupuestoC CJ 2s"RemitirC} CJ .s"Remitir sin preguntara3s"FacturarC< CJ /s"Facturar sin preguntara1s"ClonarC CJ >s"Convertir en pedidoC CJ Ws "!Convertir en pedido sin preguntarC CJ  s "Imprimir1DO _6tj0w1xt7 IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xt8 IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xt9 IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xta IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xtb IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xtc IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xtd IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1DO _6tj0w1xte IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1 DO _6tj0w1xtf IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")1 DO _6tj0w1xtg IN LOCFILE("2000\VE_CONTROL_DE_PRESUPUESTOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PRESUPUESTOS_MENU?")tU MENEMERGEACCESOP_VE_PRESUP_CONV_AUTFUOCSVISUALIZAR_PRESUPUESTONUMEROV,ve_control_de_presupuestosve_presupuestoUVE_PRESUPUESTOOCSNUMEROACTUALIZAR_ESTADO_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOS OPEN_FILES(%ve_control_de_presupuestosUREMITIR_PRESUPUESTO_2VE_CONTROL_DE_PRESUPUESTOS,ve_control_de_presupuestosve_presupuesto Ta,ve_control_de_presupuestosUREMITIR_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOSOCSNUMERO OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTO(%ve_control_de_presupuestosUFACTURAR_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOS,ve_control_de_presupuestosve_presupuesto Ta,ve_control_de_presupuestosUFACTURAR_MOSTRADOR_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOSOCSNUMERO OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTO\F TCC+C CO6 ve_presupuesto TaUXREGOCSCLONAR_PRESUPUESTOVE_PRESUPUESTONUMEROXACTUALIZAR_GRILLA T T4ve_control_de_presupuestos%Cp>ve_presupuesto T a, ve_control_de_presupuestosU XPEDIDOXMSGPEDIDO_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOSOCSNUMEROPEDIDOIN OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTOF TCC+C CO6 T T4ve_control_de_presupuestos%C> ve_presupuesto T a, ve_control_de_presupuestosU XREGOCSXMSGXPEDIDOCONVERTIR_EN_PEDIDONUMEROVE_CONTROL_DE_PRESUPUESTOSPEDIDOIN OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTOF TCC+C CO6 T-8ve_presupuestoaF% #UXREGOCSXSALDOSIMPRIMIRVE_PRESUPUESTONUMERO _6tj0w1xt7M _6tj0w1xt8 _6tj0w1xt9T _6tj0w1xta _6tj0w1xtb _6tj0w1xtc- _6tj0w1xtdL _6tj0w1xte _6tj0w1xtfq _6tj0w1xtgAR"2r3 3 3 3 3 3 3 3 3 3 ?q11Q11Q11qr1AA1qrCA1qrrBA4c\o!x$"*"H&-`&*3*.:.!3E938S)8-9A%1dT%RsCCW)s"Visualizar asistencia(s"Modificar asistencia/s"Cerrar o reabrir asistencia1DO _6a1125qzb IN LOCFILE("2000\VE_CONTROL_DE_ASISTENCIAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_ASISTENCIAS_MENU?")1DO _6a1125qzc IN LOCFILE("2000\VE_CONTROL_DE_ASISTENCIAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_ASISTENCIAS_MENU?")1DO _6a1125qzd IN LOCFILE("2000\VE_CONTROL_DE_ASISTENCIAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_ASISTENCIAS_MENU?")tU MENEMERGEF TCC+C CO6ave_asistencias T-+ve_control_de_asistenciasF% #UXREGOCSVE_ASISTENCIASNUMERO OPEN_FILESXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_ASISTENCIAVE_CONTROL_DE_ASISTENCIASF TCC+C CO6ve_asistencias T-+ve_control_de_asistenciasF% #UXREGOCSVE_ASISTENCIASNUMERO OPEN_FILESXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_ASISTENCIAVE_CONTROL_DE_ASISTENCIASF TCC+C CO6 T/ve_control_de_asistenciasve_asistencias Ta+ ve_control_de_asistenciasF% #U XREGOCSXMSGCERRAR_O_REABRIR_ASISTENCIANUMEROVE_CONTROL_DE_ASISTENCIAS OPEN_FILESVE_ASISTENCIASXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_ASISTENCIA _6a1125qzb _6a1125qzc _6a1125qzdA   ?qr$rA1qrrA1qrrA1 7Z^$r%ȧD"Y1&'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    9.%Cm.lUniquePopupsbL  y (C uT C] T tablasT agentesT  articulosT  _417189shbT  bultosyatrT  _04w0y88vkT lneasT  supergrupoT  gruposT   estadosdevT   _6nn0npetiT   cambiosdecT   importacioT  _1v40xvjr5T envasesT  listasdeprT clientesT  abmdecategT  _04w0y4abhT zonasT  _5u90xwommT  plandecuenT  motivosconT  _6xf18zht9T  depsitosT fletesT  tiposdecamT  proveedoreT  clasificacT newitemT otrosT   sucursalesT ! unidadesdeT " abmdecuentT #mdulosT $ configuracT % clavedelusT & configurarT ' padronesytT ( actualizacT )debugT * _1ro16h9syT + _0wh0ndme0T ,usuariosT -equiposT . _23x0qa62yT / _18w1dztywT 0 mantenimieT 1gestaskT 2 _58s10d63iT 3testsT 4 backupyrecT 5ayudaT 6devT 7bloqueosT 8 _4oa14z0duT 9 ventasinfos  Ts "\sC " DepsitosCU- Cx- ;sC "FletesCU- Cy- Ns C "Tipos de Cambio e IndicesCU- Cz- @s C " ProveedoresCU- C{- s C "Otros!1C C !1C C !1C C !1C C !1C C !1C C !1C C !1C C !1 C C !1 C C !1 C C sC  N&sC " ABM Agentes-sC "Listado de AgentesGsC " Comisiones de Venta por ProductoCU-DsC "Cambio de AgenteCU- Ct- #1C  do agentes+1C do form rptagentes;1C "do form ve_comisiones_por_articulo11C do agentes_cambio_agentesC  N(sC " ABM Artculos-sC "Bultos y AtributosAsC "ABM Depsitos por ArtculoC-?sC "ABM Articulos CompuestosC-0sC "Listados de Artculos<sC "!Listado de Depsitos por Artculo!sC "Marcas!sC "Lneas&s C " Supergrupos!s C "Grupos+s C "Estados de Venta<s C " PropiedadesC 4s C "Generar Cdigos de BarrasDsC "Cambios de CodigoCn- C 3sC " ImportacionesC9sC "Unidades de MedidaC-<sC "EnvasesOpcin no habilitadaLsC "Pasar el artculo a lotesCn- C 7sC "Sincronizar datos auxiliares#1C  do bienes2!1C C #1C  do depxcod81C do form ve_articulos_compuestos-1C do form rptarticulos+1C do form rptdepasig!1C C !1C C !1 C C !1 C C !1 C C !1 C C -1 C do codigos_de_barras!1C C !1C C !1C C !1C C ,1C do in_pasar_a_lotes71C do sincronizar_todo in bienes2sC  N2sC "ABM Bultos por Artculo5sC "ABM Atributos por ArtculoBsC "Bultos y Atributos GenericosAsC "ABM Atributos HabilitadosC- AsC "Listado de Bultosbmp\reporte.icoDsC "Listado de Atributosbmp\reporte.icosC "\-8sC "Crear combinaciones faltantes"1C  do bultos%1C  do atributos!1C C 41C do abmatributos_habilitados*1C do form rptbultos-1C do form rptatributosD1C +do Comb_Crear_Faltantes in abmcombinacionessC  N/sC "ABM Bultos genericos2sC "ABM Atributos genericossC "\-HsC "(Actualizar bultos genericos en artculosaKsC "+Actualizar atributos genericos en artculosa&1C  do abmbul_gen&1C  do abmatr_gend1C KDO _6zi11jzi3 IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C KDO _6zi11jzi4 IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")sC  N(sC " ABM de Marcas,sC "Listado de Marcas"1C  do marcas*1C do form rptmarcassC  N(sC " ABM de Lneas,sC "Listado de Lneas"1C  do lineas*1C do form rptlineassC  N-sC "ABM de Supergrupos1sC "Listado de Supergrupos)1C do abmsupergrupo/1C do form rptsupergrupossC  N(sC " ABM de Grupos,sC "Listado de Grupos"1C  do grupos*1C do form rptgrupossC  N2sC "ABM de Estados de Venta6sC "Listado de Estados de Venta01C do abm_estados_de_venta51C do form lis_estados_de_ventasC  N@sC "%ABM Propiedades generales disponiblesGsC ",ABM Propiedades predeterminadas por artculoE1C ,do abm_propiedades_predeterminadas_generales;1C "do abm_propiedades_predeterminadassC  NFsC "Cambio de Cdigos de ArticulosCn- sC "\-EsC "Cambios en loteCn- NUV <1C #do sys_cambio_de_codigo_de_articulo:1C !do form bie_xls_cambio_codigo.scxsC  N.sC "Agregar / Modificar!sC "Borrar-sC "Agregar compuestos91C  do form bie_xls_actualizar_datos11C do form bie_xls_eliminar;1C "do form bie_xls_agregar_compuestossC  N4sC "ABM de Unidades de MedidasC "\-AsC "!Unificacin de Unidades de Medidaa3sC "Listado de Unidadesa'1C do abm_medidassC  N)sC "ABM de Envases2sC "Listado de Envasesa'1C do abm_envasessC  NIsC ""Configuracin de Listas de PreciosCU-5sC "ABM de PreciosCU->sC "Copiar Lista de PreciosCU-MsC "&Copiar Lista de Precios entre EmpresasCU-TsC "4Aplicar Incremento/Decremento a una Lista de PreciosaEsC "Depuracin de Lista de PreciosCU-LsC "Listado de Listas de Preciosbmp\reporte.ico>sC "Crear lista para AcopioCU-,1C do form abm_lis_cfg'1C do abm_lis_pre-1C do form abm_lis_cop41C do form abm_lis_sincronizar-1C do form abm_lis_inc-1C do form abm_lis_depd1C KDO _6zi11jzi6 IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")/1C do form abm_lis_acopiosC  N*sC "ABM de Clientes,sC "ABM de Sucursales3sC "ABM de Grupos Econmicos;sC " Listado de Clientes y Sucursales%sC " Categoras8sC "Planes de CobranzaC sC "Zonas;sC "Categoras de CrditoCAs C "Importaciones/ExportacionesC5s C "GeoReferenciar Direcciones/s C "Validar Cuits Online9s C "Crdito: ActualizarCGs C "!Inactivacin de Clientes por LoteC(1C do clientes.prg&1C  do sucursales%1C  do cligruece,1C do form rptclientes!1C C !1C C !1C C &1C  do abmcatcred!1 C C I1 C 0do GeoReferenciar_Clientes in sys_georeferenciar91 C  do Validar_Cuits in ve_funciones,1 C do clientes_credito11 C do ve_inactivar_clientessC  N8sC "ABM de Categoras de Clientes<sC "!Listado de Categoras de Clientes"1C  do catcli*1C do form rptcatclisC  N4sC "ABM de Planes de Cobranza8sC "Listado de Planes de Cobranza!1C do planc+1C do form rptplancobsC  N'sC " ABM de Zonas+sC "Listado de Zonas!1C do zonas)1C do form rptzonassC  N.sC "Agregar / ModificarOsC "4Importar mail para comprobantes electrnicos y otrosZsC "?Importar mail para comprobantes electrnicos (versin anterior)5sC "Exportar Notas de Clientes.sC "Importar Sucursales91C  do form cli_xls_actualizar_datos>1C %do form cli_xls_agregar_email_climail:1C !do form cli_xls_agregar_email_fce61C do exportar_memos in clientesA1C (do Importar_Sucursales in sucursales.prgsC  N>sC "ABM del Plan de CuentasCU-,sC "Motivos Contables6sC "Listado del Plan de Cuentas:sC "Listado de Cuentas por Atributo9sC "Cambio de CuentasC- 1sC "Copiar plan de cuentas3sC "Importar plan de cuentasd1C KDO _6zi11jzi9 IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")!1C C +1C do form rptcuentas+1C do form rptcuexatr.1C do co_cambiar_cuentas11C do form co_cuentas_copia41C do form co_cuentas_importarsC  N3sC "ABM de Motivos Contables7sC "Listado de Motivos Contables#1C  do motivos+1C do form rptmotivossC  N?sC "ABM de Centros de CostosCU-7sC "Listado de Centros de Costos"1C  do costos+1C do form rptcentrossC  N5sC "ABM de Depsitos Centrales+sC "ABM de Depsitos/sC "Listado de Depsitos3sC "Importacin de Depsitos%1C  do centralesd1C KDO _6zi11jzib IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")-1C do form rptdepositosF1C -do form in_depositos_xls_actualizar_datos.scxsC  N(sC " ABM de Fletes3sC "ABM de Tipos de Vehculo,sC "Listado de Fletes5sC "GeoReferenciar Direcciones"1C  do fletesH1C /do abmbase with "fle_tipo", "Tipos de Vehculo"*1C do form rptfletesG1C .do GeoReferenciar_Fletes in sys_georeferenciarsC  N)sC "Tipo de Cambio=sC ""Importar Tipos de Cambio desde XLS<sC "!Tomar Tipos de Cambio de Internet,sC "Indices MensualessC "\-)sC "ABM de Monedas3sC "ABM de Indices Mensuales61C do form idx_tipo_de_cambio_v2/1C do idx04_importacionesd1C KDO _6zi11jzic IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?").1C do form idx_mensuales)1C do form abmidx03)1C do form abmidx01sC  N-sC "ABM de Proveedores1sC "Listado de Proveedores*sC "Clasificaciones)sC "Planes de Pago@sC "%Cambio de Cdigo de Proveedores (new):sC "Cambio de Cdigo de Proveedores+1C do proveedores.prg/1C do form rptproveedores!1C C !1C C =1C $do sys_cambio_de_codigo_de_proveedor01C do co_cambiar_proveedorsC  N.sC "ABM de Categoras 12sC "Listado de Categoras 13sC "ABM de Categoras 2a2sC "Listado de Categoras 23sC "ABM de Categoras 3a2sC "Listado de Categoras 3)1C do catpro with 121C do form rptcatpro with 1)1C do catpro with 211C do form rptcatpro with 2)1C do catpro with 321C do form rptcatpro with 3sC  N0sC "ABM de Planes de Pago4sC "Listado de Planes de Pago!1C do planp+1C do form rptplanpagsC  NHsC "Sucursales PropiasCU- C|- /sC "Unidades de Negocios,sC "Cuentas de CorreoHsC "Demoras de PedidosCU- C|- HsC "Textos PredefinidosCU- C- !1C C !1C C! !1C C" &1C  do pd_demoras"1C  do textossC  N4sC "ABM de Sucursales Propias8sC "Listado de Sucursales Propias#1C  do sucpropsC!  N6sC! "ABM de Unidades de Negocios:sC! "Listado de Unidades de Negocios$1C!  do unidades;1C! "mensaje("An no implementado !!!")sC"  N3sC" "ABM de Cuentas de Correo0sC" "Asignacin de Cuentas'1C" do abmmailctas'1C" do abmmailasigsC#  NTsC# " FacturacinC- CJ- bmp\ventas.icoQsC# "ComprasC- CK- bmp\carrito.icoSsC# " TesoreraC - CL- bmp\monedas.icoQsC# " InventarioCB- CM- bmp\caja.icoWsC# " ProduccinCC- CN- bmp\engranajes.ico[sC# " ContabilidadC- CO- bmp\contabilidad.icoOsC# "CostosCD- CP- bmp\costos.icoNsC# "GestinCE- CQ- bmp\cubo.icoYs C# " EspecialesCI- CR- bmp\herramientas.icoIs C# "Sistema de mensajesbmp\sysmsg1_icono.ico.1C# do form ve_barra_menu.1C# do form cm_barra_menu.1C# do form te_barra_menu.1C# do form in_barra_menu.1C# do form pr_barra_menu.1C# do form co_barra_menu.1C# do form cs_barra_menu.1C# do form gs_barra_menud1 C# KDO _6zi11jzig IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?");1 C# "do CHK_Iniciar in sys_mensajes.prgsC$  N.sC$ "Seleccionar Empresa,sC$ "Clave del Usuario-sC$ "Configurar Mdulos:sC$ "Impresoras LocalesCE- :sC$ "Variables GlobalesC6- BsC$ "CierresC!- bmp\nuevo.png2sC$ " ContadoresC6- 4sC$ "Padrones y Tablas de IIBBHs C$ " Configuracin Global del SistemaCi- Gs C$ "Configuracin Local del SistemaCi- ;s C$ "Configurar ServidorCi- 3s C$ "Configuracion del equipoQs C$ "Control de la Cola de CorreosC-  TsC$ "$Suscripciones al sistema de mensajesC-  *sC$ "Actualizaciones 1C$ do ft05!1C$ C% !1C$ C& /1C$ do form sys_impresoras-1C$ do form sys_globales,1C$ do form sys_cierres/1C$ do form sys_contadores!1C$ C' *1 C$ do sys_cfg_global)1 C$ do sys_cfg_local@1 C$ 'do Intercambiar_Servers in comienzo.prg/1 C$ do form sys_cfg_equipo:1 C$ !do mostrar_cola in sys_mail_spool=1C$ $do sys_mensajes_suscripcion with .t.!1C$ C( sC%  N*sC% "Cambio de ClavesC% "\-;sC% "Borrar clave guardada31C% oSecurity.sys_cambio_clave<1C% #oSecurity.sys_borrar_clave_guardadasC&  N6sC& "Configurar Mdulo de Ventas7sC& "Configurar Mdulo de Compras<sC& "!Configurar Mdulo de Contabilidad:sC& "Configurar Mdulo de Inventario9sC& "Configurar Mdulo de Tesorera:sC& "Configurar Mdulo de EspecialesXsC& "0Configuracin Contable del Mdulo de FacturacinCY- 1sC& "Tipos de Importacionesd1C& KDO _6zi11jzii IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzij IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzik IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzil IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzim IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzin IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C& KDO _6zi11jzio IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")&1C&  do abmtipoimpsC'  N&sC' " Padrn ARBA.sC' "Padrn AGIP (Nuevo)>sC' "Padrn AGIP Alto Riesgo Fiscala@sC' " Padrn AGIP Magnitudes Superadasa2sC' "Consulta de Padrn ARBA6sC' "Descargar padrn mes actual:sC' "Descargar pardrn mes siguiente+1C' do sys_padron_iibb11C' do sys_padron_agip_nuevo+1C' do sys_padron_agip51C' do sys_padron_agip_superados21C' do form sys_iibb_consultap1C' Wdo Actualizar_IIBB in sys_actualizaciones with ,oDeyFunc.dt_mes_primer_dia(date()), .t.{1C' bdo Actualizar_IIBB in sys_actualizaciones with ,oDeyFunc.dt_mes_siguiente_primer_dia(date()), .t.sC(  N<sC( "!Actualizacin general del sistemasC( "\-JsC( "/Actualizar libreras de facturacin electrnicasC( "\-HsC( "!Actualizar a la siguiente versin sC( "\-<sC( "!Actualizar envo de EstadoGeneralO1C( 6do sys_actualizaciones with .f.,.t.,.f., .f., .t., .t.@1C( 'do sys_actualizaciones with .f.,.f.,.t.T1C( ;do sys_actualizaciones with .f.,.t.,.f., .f., .t., .t., .t.F1C( -oAGESSol.oSistema.Informar_EstadoGeneral(.t.)sC)  N;sC) "EmpresasC C ;sC) " SeguridadCh  6sC) "Mantenimiento Base de Datos=sC) ""Mantenimiento Avanzado del Sistema0sC) "Mantenimientos VariosQsC) "Backup y Recuperacin de DatosC C HsC) "!Registro de Actividad del SistemaC  !1C) C* !1C) C+ !1C) C. !1C) C/ !1C) C0 !1C) C4 41C) do form sys_analizador_mainsC*  N3sC* " ABM EmpresasC sC* "\-=sC* "Asignacin de permisosC (1C* do sys_empresas11C* do sys_permisos_empresassC+  N#sC+ "Usuarios"sC+ "Equipos7sC+ "Enviar Mensaje a los EquipossC+ "\-8sC+ "Cierre el sistema remotamentesC+ "\-+sC+ "Limpiar comandos!1C+ C, !1C+ C- /1C+ do sys_mensaje_equipos.1C+ do sys_equipos_cerrar<1C+ #do limpiar_comandos in sys_comandossC,  N'sC, " ABM UsuariossC, "\-?sC, "$Asignacin de Permisos a un UsuarioFsC, "+Asignacin de un Permisos a varios UsuariossC, "\-:sC, "Copiar Configuracin de Usuario>sC, "#Copiar Configuracin entre EmpresassC, "\-Bs C, "Permisos asignadosbmp\reporte.icoDs C, "Permisos disponiblesbmp\reporte.ico(1C, do sys_usuarios(1C, do sys_permisos41C, do sys_permisos_por_permiso91C,  do form sys_configuracion_copiaA1C, (do form sys_configuracion_copia_empresa;1 C, "do form sys_rpt_permisos_asignados11 C, do form sys_rpt_permisossC-  N&sC- " ABM EquipossC- "\-<sC- "!Asignacin de Permisos por EquiposC- "\->sC- "#Habilitar Permiso de Inicio a Todos;sC- " Quitar Permiso de Inicio a Todos'1C- do sys_equipos01C- do sys_permisos_equiposd1C- KDO _6zi11jzip IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C- KDO _6zi11jziq IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")sC.  N3sC. "Reindexacin de Archivos4sC. "Verificacin de los Datos/sC. "Recreacin de Vistas0sC. "Enviar Log de Errores&sC. " Ver Archivo)1C. do ctrl with .t.)1C. do sys_verificar/1C. do sys_vistas with .t.*1C. do sys_upload_log01C. do form mnt_ver_archivosC/  N9sC/ "Actualizacin de Archivosa7sC/ "Verificacin de Consistencia5sC/ "Recuperar Versin Anterior@sC/ "Eliminar Datos de Operaciones 8sC/ "Inicializacin Bsica %1C/  do sys_check,1C/ do sys_consistencia01C/ do sys_version_anterior(1C/ do sys_eliminar51C/ do sys_inicializacion_basicasC0  NJsC0 "/Mantenimiento de Cuentas Corrientes de ClientesMsC0 "2Mantenimiento de Cuentas Corrientes de Proveedores0sC0 "Mantenimientos Varios0sC0 "Sincronizar ArtculosEsC0 "Sincronizar Empresas !" )sC0 "Ver IP Pblico"sC0 "Gestask+sC0 "Guardar Globaless C0 "Beta s C0 "Tests(1C0 do sys_mant_ccc(1C0 do sys_mant_ccp+1C0 do sys_mant_variosd1C0 KDO _6zi11jzir IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")$1C0  do sys_sync/1C0 do form sys_ip_publico!1C0 C1 91C0  do sys_guardar_globales with .t.!1 C0 C2 !1 C0 C3 sC1  N/sC1 "Anticipos PendientesFsC1 "+Comprobantes Pendientes de Entrega o Retiro)sC1 "Procesar Mails4sC1 "Consultar Backups ,sC1 "Test Ftp Schillig*sC1 "Alerta Entregas$sC1 " Faltantes+sC1 "Pedidos a Vencer3s C1 "Alertas Cheques a Vencer51C1 do anticipos_pendientes_taskO1C1 6do ve_comprobantes_pendientes_de_entrega_o_retiro_task61C1 do sys_mail_spool_task with 2C1C1 *do task_controlar_ultimos_backups with .t.B1C1 )do sch_exportaciones_one_click with ,,.t.31C1 do ve_alerta_entregas_task81C1 do in_faltantes_x_deposito_task41C1 do ve_pedidos_a_vencer_task1 C1 fdo alertas_cheques in te_sql_cheques_en_cartera with [guillermo@solinges.com.ar;diego@solinges.com.ar]sC2  N"sC2 "Pallets;1C2 "do pr_puesto_produccion_1 with .t.sC3  N>sC3 "#Clientes: Mayor vs Cuenta CorrienteAsC3 "&Proveedores: Mayor vs Cuenta Corriente-1C3 do test_cc_vs_my_cli-1C3 do test_cc_vs_my_prosC4  N?sC4 "Configuracin de BackupsC 6sC4 "Backup de DatosC <sC4 "Recuperacin de DatosC 8sC4 "Control de Backups Realizados/1C4 do form sys_backup_cfg&1C4  do sys_backup'1C4 do sys_restore.1C4 do sys_backup_controlsC5  N3sC5 "Ayuda bmp\ayuda.icoDsC5 "Soporte Remotobmp\acceso_remoto.ico$sC5 " Novedades-sC5 "Acerca del Sistemad1C5 KDO _6zi11jzis IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")d1C5 KDO _6zi11jzit IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")11C5 do novedades in internet.1C5 do form splash with 0sC6  N(sC6 "Debug 4sC6 "Debug con Suspend 'sC6 " Test Lockeos-sC6 "Test TransaccionessC6 "\-4sC6 "Habilitar Suspendo#8sC6 "DesHabilitar Suspendo# sC6 "\-/s C6 " Habilitar DEV5s C6 "Deshabilitar p_DEV s C6 "\-#s C6 "Bloqueoss C6 "\-/sC6 "Tests Notificaciones"sC6 "No usar$sC6 " Ver StocksC6 "\-#sC6 "ComandossC6 "\-AsC6 "&Poner datos de la empresa para captura)sC6 "Control DeudasE1C6 ,do sys_mostrar_screen with .f.,.f., .f., .t.?1C6 &do sys_mostrar_screen with .f.,.t.,.t.,1C6 do Sys_lockear_test21C6 do sys_test_transacciones21C6 p_suspend = not p_suspend21C6 p_suspend = not p_suspend*1 C6 p_dev = not p_dev(1 C6 p_dev=not p_dev!1 C6 C7 !1C6 C8 #1C6  do pruebas21C6 do sys_ver_stock with .t.-1C6 do form sys_comandosd1C6 KDO _6zi11jziu IN LOCFILE("2000\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")01C6 do ve_control_de_deudassC7  NMsC7 "'Simula el envo de correo pero no enva$AsC7 "Bloquear direccin de envio$JsC7 "$Desbloquear mail (P_DEV aun bloquea)$?sC7 "Desbloqueo ABSOLUTO (OJO)$sC7 "\-2sC7 " Bloquear FCE%5sC7 "Desbloquear FCE%sC7 "\-Gs C7 "!IIBB Usa padrn ficticio si falta&<s C7 "No usa padrn ficticio&)1C7 p_mail_bloqueo=3)1C7 p_mail_bloqueo=1)1C7 p_mail_bloqueo=0)1C7 p_mail_bloqueo=2+1C7 p_ve_fce_bloqueo=1+1C7 p_ve_fce_bloqueo=0)1 C7 p_iibb_bloqueo=1)1 C7 p_iibb_bloqueo=0sC8  N1sC8 "Faltantes por depsito+sC8 "Pedidos a vencer*sC8 "Alerta entregas2sC8 "Ventas - Informe diario6sC8 "Produccin - Informe diario3sC8 "Compras - Informe diario@sC8 "%Notificacin de comprobantes vencidos81C8 do in_faltantes_x_deposito_task41C8 do ve_pedidos_a_vencer_task31C8 do ve_alerta_entregas_task!1C8 C9 >1C8 %do procesar in pr_informe_diario_task>1C8 %do procesar in cm_informe_diario_task<1C8 #do te_notificacion_vencimiento_tasksC9  N'sC9 " Sin unidades'sC9 " Con unidades>1C9 %do procesar in ve_informe_diario_taskG1C9 .do procesar in ve_informe_diario_task with ,,1t :% CyT  T  <'<'<'<'<'<'!s'"ABM de C(%s'" Listado de C(!s'"ABM de C)%s'" Listado de C)!s'"ABM de C*%s'" Listado de C*"1'do catpro with 1+1'do form rptcatpro with 1"1'do catpro with 2*1'do form rptcatpro with 2"1'do catpro with 3+1'do form rptcatpro with 3% <+ U,OFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAMETABLASACCESOMODULOS CONFIGURACION MANTENIMIENTO PUB_INDEXAYUDA _6ZI11JZI0P_DEV P_DEV_MENUP_PROPIEDADES_ADICIONALES P_ATRBUL_GENP_EMPP_MAIL_SEND_TIPOP_SEC_GUARDAR_CLAVEP_DOSP_CODEMPP_UNO P_SUSPENDP_MAIL_BLOQUEOP_VE_FCE_BLOQUEOP_IIBB_BLOQUEO CLASIFICAC P_PRO_CAT1 P_PRO_CAT2 P_PRO_CAT3DEVE abmbul_gen-C Se han actualizado los genericosUAGREGAR_GENERICOS_FALTANTES ABMBUL_GENMENSAJEE abmatr_gen-C Se han actualizado los genericosUAGREGAR_GENERICOS_FALTANTES ABMATR_GENMENSAJErpt_listas_de_precioURPT_LISTAS_DE_PRECIO1%Ccuentas#FQUCUENTAS ABMCUENTAS U DEPOSITOS2H + E _ y       U P_LOCALIZACIONSYS_MONEDAS_ARGENTINASYS_MONEDAS_CHILESYS_MONEDAS_URUGUAYSYS_MONEDAS_BOLIVIASYS_MONEDAS_USASYS_MONEDAS_PARAGUAYSYS_MONEDAS_PERUSYS_MONEDAS_COLOMBIASYS_MONEDAS_MEXICOH SCH@es_barra_menu_sch INDoes_barra_menu_ind DLCes_barra_menu_dlc UNIes_barra_menu_uni CAMes_barra_menu_cam DAL+es_barra_menu_dal VILZes_barra_menu_vil BELes_barra_menu_bel TFWes_barra_menu_tfw SRIes_barra_menu_sriU P_EMPES_BARRA_MENU_SCHES_BARRA_MENU_INDES_BARRA_MENU_DLCES_BARRA_MENU_UNIES_BARRA_MENU_CAMES_BARRA_MENU_DALES_BARRA_MENU_VILES_BARRA_MENU_BELES_BARRA_MENU_TFWES_BARRA_MENU_SRInG+( ve_comienzo C Ta ve_configurar(%gF>aU VE_COMIENZOABRIR_TABLAS_FIJAS XRESULTADO VE_CONFIGURARLOCALESVE_INInG+( cm_comienzo C Ta cm_configurar(%gF>aU CM_COMIENZOABRIR_TABLAS_FIJAS XRESULTADO CM_CONFIGURARLOCALESCM_INIG+( co_comienzo C%Cejercon KQejerconF Ta co_configurar(%F>aU CO_COMIENZOABRIR_TABLAS_FIJASEJERCON XRESULTADO CO_CONFIGURARLOCALESCO_INIG+( in_comienzo C%Ccentral KQcentralF Ta in_configurar(%F>aG+(U IN_COMIENZOABRIR_TABLAS_FIJASCENTRAL XRESULTADO IN_CONFIGURARLOCALESIN_INItG+( te_comienzo C Ta te_configurar(%gF>aG+(U TE_COMIENZOABRIR_TABLAS_FIJAS XRESULTADO TE_CONFIGURARLOCALESTE_INIkG+( es_comienzo C TaF>a#CMdulo configurado !!!G+(U ES_COMIENZOABRIR_TABLAS_FIJAS XRESULTADOLOCALESES_INIMENSAJEB%*sys_facturacion ;UP_CO_CONFIG_VENTASSYS_FACTURACIONABM_CFG_VENTASLTC8Esta seguro de habilitar el permiso en todos los equipos% Dey_Func2"CEquipos\ >aU XRSP MENSAJE_SINOCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEMPERMISOALLITC5Esta seguro de QUITAR el permiso en todos los equipos% Dey_Func2"CEquipos\ >-U XRSP MENSAJE_SINOCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEMPERMISOALL$!bienes2CUACTUALIZAR_BIENES_FASTBIENES20-internethttp:///homeU SHELLEXECINTERNET P_AYUDA_WEB USYS_SOPORTE_REMOTO(TSISTEMAS ESPECIALES S.A.TSISTSISTSISTSISTSISTSISTSISTSISTSISUGESFORMCAPTIONBOTON_BARRA_PRINCIPAL2CHECK_EMPRESA1 _6zi11jzi3Ў _6zi11jzi4O _6zi11jzi6Ώ _6zi11jzi9 _6zi11jzibY _6zi11jzicw _6zi11jzigH _6zi11jzii _6zi11jzijƕ _6zi11jzik _6zi11jzil _6zi11jzim _6zi11jzin^ _6zi11jzio _6zi11jzip _6zi11jziq _6zi11jzir _6zi11jzis _6zi11jzit[ _6zi11jziuqqc AA!AAA!AAaADbB#2BarB1aAB2q11q!Q"B!QAA!aaCC!!!!aQqQbRA2q"qRBRqAC1QQraQa!AqQaa1CA1q1q!Q1QCa1Q!q1aC!2!2!!!Aa!A1aA1qqC3sC#"Ar1B1aqCCCCCCCaa!aQ!AaaA21!qqa"BAaqCC1AaqQQQR!CAaBA1Qa1!1A!baq2BACCBqBR1!A1Q!!!1!C"Rr!a1A1qqqbAAQQQ"!!B?Q1Q11qAAq1q11q2q2q2q2q2q2q2q2qA1aaaaaaaaaaA1QqA1QqA1Q1AtqA1Q1AqqAb1QqAb1Qs3b11qqA1A!A1A!A111q1aaaaaaaaa11g^!v$:"R:! A\9  \f8 |wt4!!% &*$.*-=-W1So14g4[6y%,808."Y:&sCCWDs"Modificar pedido C;-  CJ $s"Cuenta corriente$s"Notas del pedido0s"Actualizar estadoCJ;s"Rotular el pedidoCJ Cs"Mantenimiento del pedido CJ- #s"Imprimir pedido9s" Cerrar pedidoC- CJ s "\-_s "#Factura no interactiva - con remito  CJ Ws "#Factura no interactiva - sin remito CJ s "\-0s "Imprimir proforma.s"Exportar acopios"\-xs"Generar picking  '      CJ zs"Analizar quiebres  '      CJ s"\-Bs"#Modificar fecha probable de entrega2s"Modificar prioridads"\-Ls"Bloquear/desbloquearCr- CJ C s"\-Es"Gerencia: aprobar/rechazarCJ C Ls"!Gerencia: no intervenir (analiza)CJ C s"\-Rs"Liberar para FC/RE C    Ts"Bloquear para FC/RE C    s"\-_s"Liberar entrega de lo pickeado C    `s"Bloquear entrega de lo pickeado C    s "\-=s!"Actualizar Precios C 1wDO _6zi11jzmo IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")@1.do ge01.prg with 1, pedidos_pendientes.codigo1wDO _6zi11jzmp IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")^1Ldo actualizar_estado in ve_control_de_pedidos with pedidos_pendientes.pedido1wDO _6zi11jzmq IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzmr IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzms IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzmt IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1 wDO _6zi11jzmu IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1 wDO _6zi11jzmv IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1 wDO _6zi11jzmw IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzmx IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzmy IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzmz IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn0 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn1 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn2 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn3 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn4 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn5 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn6 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn7 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1wDO _6zi11jzn8 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")1!wDO _6zi11jzn9 IN LOCFILE("2000\VE_CONTROL_DE_PEDIDOS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PEDIDOS_MENU?")tU MENEMERGEP_NPACCESOTIPO_NCP_DEVPEDIDOS_PENDIENTESARM_BLOQ P_PICKINGP_PICKING_CREDITOCREDITOGERENCIAP_VE_PD_LIBFACREM LIBFACREMP_VE_PD_LIBENTREGALIBENT TT5%Hb  T- T- T- T- 2 T- Ta T- T-!  o T- Ta T- T-= a$ ve_control_de_pedidosU XPEDIDOXTIPO_NCPEDIDOS_PENDIENTESPEDIDOTIPO_NCDIRREAAUTINMP_ANALISIS_PEDIDOS VE_PEDIDOACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOSy"Ctccventtccvord)%Ctccvent4 R rC Error !!!UPEDIDOS_PENDIENTESPEDIDOTCCVENTCOD_CLICODIGOSHOW_NOTAS_PEDIDOMENSAJEnT0ve_impresion_rotulosPCCZ$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOIMPRESION_ROTULOSVE_IMPRESION_ROTULOSACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOSIT $ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOVE_MANTENIMIENTO_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOShT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLAL%C6Est seguro de que desea proceder a CERRAR el pedido ?T*ve_control_de_pedidos$ve_control_de_pedidosU MENSAJE_SINOXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLA|T>$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOVE_FACTURA_INMEDIATA REP_ULTIMA REP_MESESACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOS|T>$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOVE_FACTURA_INMEDIATA REP_ULTIMA REP_MESESACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOShT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLA_T!ve_exportar_acopio$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_EXPORTAR_ACOPIOACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOSxT)ve_orden_de_pickingP$ve_control_de_pedidos>U XPEDIDOPEDIDOS_PENDIENTESPEDIDOORDEN_DE_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOSSTKINIT $ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDO VE_QUIEBRESACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOShT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLAhT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLAhT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLAzT<ve_control_de_pedidosC6$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSGERENCIAACTUALIZAR_PEDIDO_EN_TABLAhT*ve_control_de_pedidos$ve_control_de_pedidosUXPEDIDOPEDIDOS_PENDIENTESPEDIDOPROCESARVE_CONTROL_DE_PEDIDOSACTUALIZAR_PEDIDO_EN_TABLA%/TCC+Cpedidos_pendientesO6% +ve_control_de_pedidosaF% #'ve_control_de_pedidosUXREGP_VE_PD_LIBFACREMPEDIDOS_PENDIENTES LIBFACREMLIBVE_CONTROL_DE_PEDIDOSPEDIDOACTUALIZAR_PEDIDO_EN_TABLA%/TCC+Cpedidos_pendientesO6%+ve_control_de_pedidos-F% #'ve_control_de_pedidosUXREGP_VE_PD_LIBFACREMPEDIDOS_PENDIENTES LIBFACREMLIBVE_CONTROL_DE_PEDIDOSPEDIDOACTUALIZAR_PEDIDO_EN_TABLACLib%/TCC+Cpedidos_pendientesO6%,ve_control_de_pickingsaF% #'ve_control_de_pedidosU XREGSYS_MP_VE_PD_LIBENTREGAPEDIDOS_PENDIENTESLIBENTLIBERAR_ENTREGAVE_CONTROL_DE_PICKINGSPEDIDOACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOS%/TCC+Cpedidos_pendientesO6%,ve_control_de_pickings-F% #'ve_control_de_pedidosU XREGP_VE_PD_LIBENTREGAPEDIDOS_PENDIENTESLIBENTLIBERAR_ENTREGAVE_CONTROL_DE_PICKINGSPEDIDOACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOS/TCC+Cpedidos_pendientesO68aaaF% #'ve_control_de_pedidosUXREGVE_FACTURA_INMEDIATAPEDIDOS_PENDIENTESPEDIDO REP_ULTIMA REP_MESESACTUALIZAR_PEDIDO_EN_TABLAVE_CONTROL_DE_PEDIDOS _6zi11jzmo _6zi11jzmp _6zi11jzmq _6zi11jzmr _6zi11jzms _6zi11jzmtW _6zi11jzmu _6zi11jzmv _6zi11jzmw _6zi11jzmxk _6zi11jzmyH _6zi11jzmzP _6zi11jzn0! _6zi11jzn1! _6zi11jzn2" _6zi11jzn3|# _6zi11jzn4j$ _6zi11jzn5<% _6zi11jzn6& _6zi11jzn7( _6zi11jzn8) _6zi11jzn92+ABAA21araaa""aaRa"Baa?221BBF1!qaA1qD1qD@1qD@1rDB@1qD`1qD`1qD@1qD@1qD1qD1qD01qD01qD01qD01qD01q22BrAABt1q2"BrAABt1q2bBrAABt1q4bBrAABt1qrAAt2=0$)Y)-a-2g42+6mC6E:1s]:>N{>$Co  %Cq_stkZQ  in_control_armadoTCq_stkN&>C 6%Cq_stkQ UXPEDIDOXREGPEDIDOS_PENDIENTESPEDIDOORDEN_DE_PICKINGVE_ORDEN_DE_PICKING P_PICKINGPICKINGSXRESXRES2ESTADO_PICKING_TXTPICKINGEST_PICKQ_STK PICKEABLESIN_CONTROL_ARMADOXRECCSTKPER %SI0 TCC+C CO6T5 T- T- Ta T-! F%, #%%Ctccventtccvord(% $ IC El pedido CCZ# no est liberado para facturar !!! UXPEDIDOXREGPEDIDOS_PENDIENTESFINALPEDIDODIRREAAUTINM VE_PEDIDOTCCVENTEST_DESPINMENSAJE %SI0 TCC+C CO6T5 T- T- Ta T-! F%, #%%Ctccventtccvord(% $ IC El pedido CCZ# no est liberado para facturar !!! UXPEDIDOXREGPEDIDOS_PENDIENTESFINALPEDIDODIRREAAUTINM VE_PEDIDOTCCVENTEST_DESPINMENSAJE%CqQ+opedidos_pendientesq%CqcQC Suspendo?a@in_control_armado C  6aUQPEDIDOPEDIDOS_PENDIENTESTILDESYS_MOSTRAR_SCREENPROCESARIN_CONTROL_ARMADO%CqQ+opedidos_pendientesq%CqcQ@in_control_armado C  6-UQPEDIDOPEDIDOS_PENDIENTESTILDEPROCESARIN_CONTROL_ARMADO _6hz1a6oyn _6hz1a6oyp _6hz1a6oyq _6hz1a6oyr _6hz1a6oys A"rB?uA2AAbABcbABB13tARb"BAAA13tARb"BAAA1"A!Ar1"A!A1D*Ba!Zy!%e &'%7]}"Y&x '     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] @T tablasT  articulosT  importacioT preciosT clientesT variosT  mantenimies  Ts "\sC "Copiar lista de preciosCU-7sC "Listado de Listas de Precios'1C do abm_lis_pre-1C do form abm_lis_cop51C do form rpt_listas_de_preciosC  N*sC "ABM de Clientes(1C do clientes.prgsC  N6sC "Reimpresin de Comprobantes:sC " IVA Ventasbmp\reporte.icoFsC "Estadisticas de Ventasbmp\reporte.icosC "\-RsC ""Movimiento de cuentas de Tesorerabmp\reporte.ico<1C #do ve_reimprimir_comprobante with 121C do form ve_rpt_iva_ventas61C do form ve_rpt_estadisticas0131C do form te_rpt_movimientossC  N1sC "Mantenimiento de Stock(sC "Debug ,1C do in_mantenimiento?1C &do sys_mostrar_screen with .f.,.t.,.t.t :% Cq T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAMETABLASACCESO _6ZI11JZPX _6ZI11JZPYP_DEVqqc AA!AAA!AAAD2!1!q1aRqqQab"!a1bAA1%d"Y&'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] \T tablasT  articulosT  importacioT preciosT  proveedoreT newitemT variosT  mantenimies  Ts "\s "Ordenes de Compra NALT+O3s "Varios NALT+V:s " Mantenimiento NALT+M1 C 1 C 1 C 1 C sC  NKsC " ArtculosCU- Cv- C- "sC "Precios!sC "Marcas&sC " Proveedores!1C C !1C C "1C  do marcas!1C C sC  N(sC " ABM Artculos(sC " Importaciones7sC "Cambio de Cdigo de Artculo/sC "Listado de Artculos#1C  do bienes2!1C C <1C #do sys_cambio_de_codigo_de_articulo-1C do form rptarticulossC  N,sC "Agregar Artculos.sC "Modificar Artculos+sC "Borrar Artculos61C do form bie_xls_agregar_datos91C  do form bie_xls_actualizar_datos11C do form bie_xls_eliminarsC  N5sC "ABM de PreciosCU->sC "Copiar lista de preciosCU-7sC "Listado de Listas de Precios'1C do abm_lis_pre-1C do form abm_lis_cop51C do form rpt_listas_de_preciosC  N-sC "Abm de Proveedores+1C do proveedores.prgsC  NEsC "Crear OCCT- CK-   4sC " Modificar OCC- ;sC "Cerrar o Reabrir OCC- ,1C do cm_compra with 621C do cm_compra with 6,,,.t.71C do cm_terminar_orden_de_comprasC  N6sC "Reimpresin de Comprobantes:sC " IVA Ventasbmp\reporte.icoFsC "Estadisticas de Ventasbmp\reporte.ico<1C #do ve_reimprimir_comprobante with 121C do form ve_rpt_iva_ventas61C do form ve_rpt_estadisticas01sC  N1sC "Mantenimiento de Stock(sC "Debug ,1C do in_mantenimiento?1C &do sys_mostrar_screen with .f.,.t.,.t.t :% CT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAMETABLASACCESO _6ZI11JZSM _6ZI11JZSN _6ZI11JZSOP_OCP_DEVqqc AA!AAA!AAAD2!a!q1aRqqQRB!qab!abAA10 W PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _RJ714CG2H 590514796 1 53+ 1.000 0.000 0.000112900.00 F   0 8 20T 2 2 FF T F WINDOWS _RJ714CG2J 9 1 3855.000 0.000 F FFF F WINDOWS _RJJ17LDW6 9 32 3646.000 0.000 F FFF F WINDOWS _RJ714CG2K 9 4 1980.000 0.000 F FFF F WINDOWS _RJJ17LDYH 9 5 3542.000 0.000 F FFF F WINDOWS _RJ714CG2L 9 7 2084.000 0.000 F FFF F WINDOWS _RJJ18HIF6 9 8 4063.000 -1114112 T FTT FFT WINDOWS _RJ714GSA1 590514796 5 04 520.833 833.333 1458.333 1458.333 -1 -1 -1 -1 -1 -1 3 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSA2 590514796 8 0511875.000 416.667 1458.333 2604.167 C -1 -1 -1 -1 -1 -1 6 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSA4 590514796 5 08 520.833 3541.667 1458.333 4375.000 -1 -1 -1 -1 -1 -1 7 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSA5 590514796 8 0911875.000 3125.000 1458.333 5104.167 : C -1 -1 -1 -1 -1 -1 ; 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSA6 590514796 5 0= 520.833 8750.000 1458.333 8020.833 -1 -1 -1 -1 -1 -1 < 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSA7 590514796 8 0>11875.000 8333.333 1458.33310729.167 ? C -1 -1 -1 -1 -1 -1 @ 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSAB 824730775 5 0B 520.83319583.333 1458.333 2187.500 -1 -1 -1 -1 -1 -1 A 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSAC 590514796 8 0C11875.00019166.667 1458.333 2604.167 N -1 -1 -1 -1 -1 -1 D 0 7 1 TT F 2 1 0 1 TF3 0F WINDOWS _RJ714GSAG 590514796 5 0F 520.83322916.667 1458.333 4375.000 -1 -1 -1 -1 -1 -1 E 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSAI 590514796 8 0G11875.00022291.667 1458.333 6666.667 D -1 -1 -1 -1 -1 -1 H 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSAJ 590514796 5 0J 520.83329270.833 1458.333 7291.667 -1 -1 -1 -1 -1 -1 I 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSAK 590514796 8 0K11875.00029479.167 1458.333 6979.167 D -1 -1 -1 -1 -1 -1 L 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSAL 590514796 5 0N 520.83341041.667 1458.333 5104.167 -1 -1 -1 -1 -1 -1 M 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSAN 590514796 8 0O11875.00037083.333 1458.333 9270.833 N -1 -1 -1 -1 -1 -1 P 0 7 1 TT F 2 1 0 1 TF3 0F WINDOWS _RJ714GSAO 590514796 5 0R 520.83346875.000 1458.333 4375.000 -1 -1 -1 -1 -1 -1 Q 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSAP 590514796 8 0S11875.00046666.667 1458.33318437.500 C -1 -1 -1 -1 -1 -1 T 0 7 1 TT F 2 0 0 1 TF3 0F WINDOWS _RJ714GSCJ 590514796 8 0U21354.167 0.000 1666.667 7395.833 D -1 -1 -1 -1 -1 -1 V 1 8 1 T F 0 0 0 1 TF3 0F WINDOWS _RJ714GSCK 590514796 5 0X21562.500102812.50 1458.333 4375.000 -1 -1 -1 -1 -1 -1 W 1 8 1 T F 0 TF3 0F WINDOWS _RJ714GSCL 590514796 8 0Y21562.500107500.00 1666.667 3541.667 N -1 -1 -1 -1 -1 -1 Z 1 8 1 T F 0 1 0 1 TF3 0F WINDOWS _RJ714JPFH 590514796 8 0[11875.00065416.667 1458.333 2187.500 \ C -1 -1 -1 -1 -1 -1 ] 0 7 1 T F 2 0 0 1 TF3 0F WINDOWS _RJ714L2UB 590514796 8 0^11875.00067708.333 1458.333 5416.667 _ C -1 -1 -1 -1 -1 -1 ` 0 7 1 T F 2 0 0 1 TF3 0F WINDOWS _RJ714RNLL 590514796 5 0b 520.83365625.000 1458.333 1458.333 0 0 0 -1 -1 -1 a 1 8 1 T F 0 TF3 0F WINDOWS _RJ714SLAZ 590514796 5 0d 520.83368125.000 1458.333 4375.000 0 0 0 -1 -1 -1 c 1 8 1 T F 0 TF3 0F WINDOWS _RJ7152101 590514796 7 4 208.333 208.333 2395.833111354.17 -1 -1 -1 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _RJ7152P1Q 590514796 6 208.333 2916.667 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7152XPD 590514796 6 416.667 8333.333 2187.500 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7153QI2 590514796 6 312.50019166.667 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ71547IV 590514796 6 208.33322291.667 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7154CTR 590514796 6 416.66729062.500 2187.500 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7154JH5 590514796 6 208.33336770.833 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7154ZFP 590514796 6 312.50046458.333 2187.500 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ71559F0 590514796 6 312.50064791.667 2187.500 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJ7155F9K 590514796 6 312.50067500.000 2187.500 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QMDB7 824732721 8 0e11875.00073229.167 1458.333 7500.000h f C -1 -1 -1 -1 -1 -1 g 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJD0QN3YN 824732723 8 0i11875.00081041.667 1458.333 7500.000l j C -1 -1 -1 -1 -1 -1 k 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJD0QNP54 824732726 8 0m11875.00088750.000 1458.333 7500.000p n C -1 -1 -1 -1 -1 -1 o 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJD0QO4I5 824732727 8 0q11875.00096458.333 1458.333 7500.000t r C -1 -1 -1 -1 -1 -1 s 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJD0QPUWZ 824732729 8 0u11875.000104166.67 1458.333 7500.000x v C -1 -1 -1 -1 -1 -1 w 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJD0QQAEG 590514796 6 208.33373125.000 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QQFJQ 590514796 6 208.33380833.333 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QQTPW 590514796 6 208.33388437.500 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QQY28 590514796 6 208.33396145.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QR3TR 590514796 6 208.333103854.17 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _RJD0QRAP2 590514796 5 0z 520.83373229.167 1458.333 5833.333 0 0 0 -1 -1 -1 y 1 8 1 T F 0 TF3 0F WINDOWS _RJD0QRW09 590514796 5 0| 520.83381041.667 1458.333 5833.333 0 0 0 -1 -1 -1 { 1 8 1 T F 0 TF3 0F WINDOWS _RJD0QS291 590514796 5 0~ 520.83388750.000 1458.333 5833.333 0 0 0 -1 -1 -1 } 1 8 1 T F 0 TF3 0F WINDOWS _RJD0QSBEE 590514796 5 0 520.83396458.333 1458.333 5833.333 0 0 0 -1 -1 -1  1 8 1 T F 0 TF3 0F WINDOWS _RJD0QSH3P 590514796 5 0 520.833104166.67 1458.333 5833.333 0 0 0 -1 -1 -1 1 8 1 T F 0 TF3 0F WINDOWS _RJJ17M9IT 590514796 8 0 5937.500 416.667 2708.33349895.833 C 0 0 0 -1 -1 -1 1 16 1 T F 2 0 0 1 TF3 0F WINDOWS _RJJ17VOJT 824732738 8 016562.50070000.000 1458.33310729.167 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJJ17VOJU 824732737 8 016562.50081041.667 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJJ17VOJV 824732733 8 016562.50088750.000 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJJ17VOJW 824732732 8 016562.50096458.333 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJJ17VOJX 824732730 8 016562.500104166.67 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 0 1 TF3 0F WINDOWS _RJJ18B8ND 590514796 6 16041.66770312.500 208.33310416.667 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18BEAF 590514796 6 16041.66781041.667 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18BKQ4 590514796 6 16041.66788750.000 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18CSDA 590514796 6 16041.66796458.333 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18CZEH 590514796 6 16041.667104166.67 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18HN7R 590514796 6 26145.83370000.000 208.33310729.167 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18HN7S 590514796 6 26145.83381041.667 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18HN7T 590514796 6 26145.83388750.000 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18HN7U 590514796 6 26145.83396458.333 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18HN7V 590514796 6 26145.833104166.67 208.333 7500.000 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RJJ18NCO5 824732745 8 026770.83370000.000 1458.33310729.167 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 2 1 TF3 0F WINDOWS _RJJ18NCO6 824732743 8 026666.66781041.667 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 2 1 TF3 0F WINDOWS _RJJ18NCO7 824732742 8 026666.66788750.000 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 2 1 TF3 0F WINDOWS _RJJ18NCO8 824732741 8 026666.66796458.333 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 2 1 TF3 0F WINDOWS _RJJ18NCO9 824732740 8 026666.667104166.67 1458.333 7500.000 C -1 -1 -1 -1 -1 -1 0 7 1 T F 2 1 2 1 TF3 0F WINDOWS _RJJ18AZUN 59051479618 F 2 6 WINDOWS _RJJ18AZUP 59051479618 F 2 6 WINDOWS _RJJ18AZUR 59051479618 F 2 6 WINDOWS _RJJ18AZUT 59051479618 F 2 6 WINDOWS _RJJ18AZUV 59051479618 F 2 6 WINDOWS 23 14.000 7.000 11.000 7.000 3 0 0 8 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 1 8 WINDOWS 23 12.000 5.000 9.000 6.000 3 0 0 7 WINDOWS 23 25.000 9.000 19.000 54.000 5 1 1 16 WINDOWS 25 F WINDOWS 26 ! Courier New?)winspool\\server\HP LaserJet 6LLPT1:\\server\HP LaserJet 6L4C odXXLetterDINU"4_*DRIVER=winspool DEVICE=\\server\HP LaserJet 6L OUTPUT=LPT1: ORIENTATION=1 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=259 PRINTQUALITY=600 COLOR=2 YRESOLUTION=600 TTOPTION=1 COLLATE=1  left(id,1) Courier New"Id" borrar.id Courier New Courier New"Codigo"alltrim( borrar.codigo)  Courier New Courier New "Comprobante" borrar.comp  Courier New Courier New"Cta" borrar.cuota Courier New Courier New"F.Real"borrar.fecreal Courier New Courier New "F.Estimada"borrar.fecesti Courier New Courier New "Importe"borrar.importe Courier New Courier New"Nombre" borrar.nombre Courier NewDATE() Courier New Courier New"Pgina"_PAGENO Courier New borrar.post  Courier New borrar.centro  Courier New Courier New"P." Courier New"Centro" borrar.sema  Courier New"@z 9,999,999.99" borrar.sem1  Courier New"@z 9,999,999.99" borrar.sem2  Courier New"@z 9,999,999.99" borrar.sem3  Courier New"@z 9,999,999.99" borrar.sem4  Courier New"@z 9,999,999.99" Courier New "Anterior" Courier New "Semana 1" Courier New "Semana 2" Courier New "Semana 3" Courier New "Semana 4"total_tipo(borrar.id) Times New Romansa  Courier New"@z 9,999,999.99"s1  Courier New"@z 9,999,999.99"s2  Courier New"@z 9,999,999.99"s3  Courier New"@z 9,999,999.99"s4  Courier New"@z 9,999,999.99" borrar.sema  Courier New"@z 9,999,999.99" borrar.sem1  Courier New"@z 9,999,999.99" borrar.sem2  Courier New"@z 9,999,999.99" borrar.sem3  Courier New"@z 9,999,999.99" borrar.sem4  Courier New"@z 9,999,999.99"sasema0s1sem10s2sem20s3sem30s4sem40 Courier New Courier New Courier NewTimes New RomandataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" cursor?Alias = "borrar" CursorSource = borrar.dbf Name = "Cursor1" % U2',)oventasCV FC 2Cc NC Cd ND RE 666QCC Q      d QCC CCgZ6QCCCC$>CC$<borrarUFEC_VENCAUSAFAC_VENCOD_INSATRBULDESC_INS RECEPCION MM_MONEDAMONEDAMONTXTCOS_LIFODES_INSVENTASTOT_VENP_NUMINSORDENCOD_CLIXCOD_CLIBORRAR1% U22'-*oventasCV FC 2Cc NC Cd ND RE 666QCC Q      d QCC CCgZ6QCCCC$CC$<borrarUFEC_VENCAUSAFAC_VENCOD_INSATRBULDESC_INS RECEPCION MM_MONEDAMONEDAMONTXTCOS_LIFODES_INSVENTASTOT_VENP_NUMINSORDENCOD_CLIXCOD_CLIBORRAR1% U2L'-*oventasCV FC 2Cc NC Cd ND RE 666QCC Q      d QCC CCgZ6QCCCC$tCC$<borrarUFEC_VENCAUSAFAC_VENCOD_INSATRBULDESC_INS RECEPCION MM_MONEDAMONEDAMONTXTCOS_LIFODES_INSVENTASTOT_VENP_NUMINSORDENCOD_CLIXCOD_CLIBORRAR1%U2f'/,oventasCV FC 2Cc NC Cd ND RE 666QCC Q      d QCC CCgZ6QCCCCC$<borrarUFEC_VENCAUSAFAC_VENCOD_INSATRBULDESC_INS RECEPCION MM_MONEDAMONEDAMONTXTCOS_LIFODES_INSVENTASTOT_VENP_NUMINSORDENCOD_CLIXCOD_CLIBORRAR1%}AD5;'&4 %C xHLPABMCodbLJTCdigo"%C xHLPABMDescrbLT Descripcin!%C xHLPABMFormbLTabmbaseG_ G~(clases<7TCabm_baseNTCU-  BU XHLPABMTABLA XHLPABMTITULO XHLPABMCOD XHLPABMDESCR XHLPABMFORMCLASES POABMBASE SOLO_LECTURAACCESOSHOW] ges%C :FUSE &xHLPABMTabla SELECT &xHLPABMTabla BUGES XHLPABMTABLA%[G((codigo#6"TCCCCgZCX=G((nomfle tTCX BUXCOD_FLEP_FLENUMCODIGOCOD_FLENOMFLE."C CUSETEAR_VALORESTHIS XHLPABMTABLA XHLPABMTITULO XHLPABMCOD XHLPABMDESCR XHLPABMFORM'QABM_BASETFTCC p_espeja_bLC p_espeja_ -6T codigoT T -T T ThlpTCodigoT<TDescrTTDescrTCTTCodigoTTcodigoTCbU POABMBASE XHLPABMTABLA XHLPABMTITULO XHLPABMCOD XHLPABMDESCR XHLPABMFORM DOS_TABLA DOS_COPIARP_ESPEJA_HABILITARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 openfilessugerir_no_num>InitSetear_Valores  Uabm_basehlpabm2q1A!AAAcrqQB2"QAA9qQ!A3!5qab1aQQaa252&)A)`#H>7.0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2G20XTBZ1 957709940Ie Z3 3@% WINDOWS _2G20XZJLE 957709933!   g COMMENT RESERVED  WINDOWS _39R0TTTD41061587725   WINDOWS _39R0TVHSC1056272138yg\L  COMMENT RESERVED v VERSION = 3.00epocxPixelsClass2 containerepocx Root Entry]~OleObjectDataXAccessObjSiteData&8ChangedProps`qO&RH WG _extentxO WG889368265EE-11d1-8BE3-0000F8754DA1_extentyOL IndentationN @ LabelEdit I  LineStyle I  MousePointer I SortedL OLEDragMode I OLEDropMode I xNodsd Root Entry0\e@OleObjectDataqAccessObjSiteData&8ChangedPropsV.MPEPwv"TPF0TFPHostControlLeftTopWidthHeight88 COMMPORT I  BaudRate I  Prot IsCAXActive CommPortCom2BaudRatebr9600ocolType I :Top = 0 Left = 0 Height = 37 Width = 36 Name = "ocx" epocxtmuocx olecontrol olecontrol,Width = 42 Height = 44 Name = "epocxtmu"  container%S)9W'4 5p_*TC U TCoVfpbATC O%    'must supply a vfp object/arrayB&TCC L6H zT CemptyNC array(1) C T C -   T C C[ \< CoVfp.BaseClassbC Collection I#T Ca   TC  collection QT {" C":  }CC C 6} 2-T {C-   } BC AUOVFPFORMATTEDOUTPUTNONULLARRAYITEM CROOTNAME AMEMBERSFLAGXCOL2ARRESARRAYESOBJETO_NIVELOJSONARRAYCJSON PROCOBJECT BASECLASS COLLTAGNAMEk ]BCIC CC  _kv_collection_kl_collection66UTHISCOLLXCOL2ARRCOUNTGETKEY%C 7 Bnull5_nivel TTC7TCCm.obt.baseclassbC ?6T Collection% % T {  TC% H-T "collectionitems": [  mT  [ C   TCT  ] cC  b%C UTC  BT C  ( _TCC @.T C ,6 1T "C  _vfpsafe_":%esobjeto = TYPE('m.obt.&Var')='O' %IF TYPE('m.obt.&var') = 'U':2T "unable to evaluate expression".)esarray = TYPE('m.obt.&Var',1) = 'A' Hx[ C   *thiso=m.obt.&VAR 9TCCm.thiso.baseclassbC  ?6% Collection.TC ":VC ":neste = m.este+procobject(m.obt.&VAR,.T.,m.nonullarrayitem,m.aMembersFlag, xCol2Arr)+IIF(xCol2Arr ,"",[}]) &`este = m.este+[{]+procobject(m.obt.&VAR,.F.,m.nonullarrayitem,m.aMembersFlag, xCol2Arr)+[}]  2['este = m.este+concatval(m.obt.&VAR) TCT   B UOBT ISCOLLECTIONNONULLARRAYITEM AMEMBERSFLAGXCOL2ARRESTEXTABSNIVELBC BASECLASSPROCCOLLECTIONAMNMX1VARESARRAY PROCARRAYESOBJETOTHISO COLLTAGNAME$nrows = ALEN(m.obt.&arrayName,1) $ncols = ALEN(m.obt.&arrayName,2) T %TC   6#titems = ALEN(m.obt.&arrayName) TCT [  T + .T C  , 6% lTCT [ '  ( #elem = m.obt.&arrayName( m.pn ) 0T C  , 6%C Oq3% C   IT  mT C  8TCCm.elem.baseclassbC ?6% CollectionH2T  { "collectionC ":'T C a  T } } 1T {C -  }T  % TCT  ]TCT  ]UOBT ARRAYNAMENONULLARRAYITEMBIDIMNCOLSNROWSXTABSNIVELESTENELEMTITEMSPNELEM CONCATVALBC BASECLASS COLLTAGNAME PROCOBJECT AMEMBERSFLAGj% & B cT  BC C C QUN_NIVEL%C ' Bnull TC HT FBYINQTCC C V L&TC truefalse6 DTT"C " C 1T"C " CVMdT"C V" GQWT"C  " B UVALORTVARVC MUSTENCODEESCAPEANDENCODEBCC "\/C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C >C >UVALORcTC \\\TC "\"%C  VBTC C \bTC C \fTC C \nTC C \rTC C \t%C  B(O/TC C  \uCC @0_R BC VUVALUN MUSTENCODEXT!T CC  (% T CemptyNC KeyC  C ValueC  T C .T  C  , 6%C OXT  C  6%C C  Collection  Ta@T  {   "collectionC " :T C  T-T  {0T  C   T  }% T C% T  }T C  VUOBTNONULLARRAYITEMS AMEMBERSFLAGXCOL2ARR ISCOLLECTIONNMCOUNTCONLLAVEGETKEYX1ELEMITEMESTEXTABS CONCATVAL BASECLASS COLLTAGNAMENIVEL PROCOBJECTNONULLARRAYITEM collTagName` procobject procarrayL nivel  concatval mustEncodenescapeandencodeprocCollectionbqqAAbRr11B33q3ArAA#AAbRR!AABBsBBC"Q4BA1Q1Ar222B"rBCB!AB#7qbQA3q5#aaqbAB3q3qsAArAArA51sQQAbaAB!AABBB1~BGZ.02C7E"U%*w,L0,*GYU'5TC% OT ( called From C  line CC _)  T  T%C=TC[(%CCA={[ C 0 dTC %C=`TC[TC strictdatev G(TC  G( ( 3%C  C  0TnfJson-> C C  %C  ] B!BCC O 6UCJSONSTRREVIVECOLLECTIONOAVFP STACKLEVELSAERRS CALLEDFROMCERROROSTOJSON NFJSONREAD2OERR1TYPEO AVFP_LOG_EXMESSAGE  I T T'TCC C C C VTCC A=;TC {}",:[]\\(C9T%CCC A={}",:[])CCCC  A=@true/false/null 5T CC AT CstackNT CemptyNHx C{ T C C  C[ TC a 2" expecting [{ got % ET C (  T( T C H JJT Invalid Json: C C  Parsing: C PR 2zT program error # C _C C   at line: C _C C  Parsing: C PR%C    B UCJSONSTRREVIVECOLLECTIONXCERRORCJSONPCHARNLAJXXOSTACKOJSON PUSHOBJECT PROCSTRINGOERRSTRPYERRORNOMESSAGELINENO #5 5   T   T  TC "}6 T a T- T T T T T  T+ T  H rT  %j expecting B) C } }   C' C ] ]   C :J%C : T. F$expecting : got C  , Hq C ,#TC[ [6 C   - expecting  got C  2TC , %C "YC  . expecting "  got C  +% [C [ $expecting [ got C  C UOBJEVALUEROWPOSCOLPOSBIDIMNCOLS ARRAYNAME EXPECTING ARRAYLEVELVARIEXPECTINGPROPERTYNAMEEXPECTINGVALUE OBJECTOPENXNLOSTACKCOUNTAJ CLOSEOBJECT CLOSEARRAY PROPERTYNAME PROCVALUE% T % cT .DIMENSION obj.&arrayname(m.rowpos,m.ncols) 1obj.&arrayname(m.rowpos,m.colpos) = m.valasig %C O1procstring(obj.&arrayname(m.rowpos,m.colpos))  T &DIMENSION obj.&arrayname(m.rowpos) (obj.&arrayname(m.rowpos) = m.valasig %C O(procstring(obj.&arrayname(m.rowpos)) UOBJ ARRAYNAMEVALASIGBIDIMCOLPOSROWPOSNCOLS5 T1(C \u\\u;%CC R\\uCC R\u i$T CC \uV$TC0xCC =gTCC 2RS% ?T &#C _ =T  (T CC \ T C T UCSTRUSTXXSTRDECANSI[%C\ &B5 @C  \\\b\f\n\r\t\"\/ T E0% \\ CC R=\ ,VTC C >=CC Rbnrt/"C C C C C/ C" T  T UVALUEAAELEMUNESCT TC 3+CC R" C  T T C "%CC  R") expecting " got C  TC "V&TCC 9_6 TCC?ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_?_______________________________________________________________%tabindexT _tabindexT: Ta T-UOBJXVARIAJ EXPECTINGEXPECTINGVALUEEXPECTINGPROPERTYNAMEH C { C% C CemptyN procstring(obj.&vari) TaT,} T - 3C CemptyN    T-T,] T a C[ CHLw  T C array T T  T - C (1) T  _vfpSafe_C (1)   w T T  TDIME obj.&arrayname(1,2) T aT  T"TC []{]6 T a T- 2TC "#T C 6 T+ C T C m% CC R" "  CC R}],  CCC R=\ !T TCC RTC C >=H-L, C   "  |#Expecting value got  % "expecting " got # C ,}  expecting ,} got # C ,] L expecting ,] got % C C TC \\\%C TC  ~TC Hz C @null T/ C @trueC @false aT true) CC -1234567890.Ee3  Ttvaln = &im T  T-  Ta%/,bad number format: got C  2z=)expecting "|number|null|true|false| got C % C   T} T - Ta +,C     T] T a T-$TC ,6 Hd ] C } CUOBJAJXOSTACK PUSHOBJECT ARRAYLEVELVARIEXPECTINGPROPERTYNAME EXPECTINGEXPECTINGVALUEANUEVOEL ARRAYNAMEBIDIMCOLPOSROWPOS PUSHARRAYNCOLSISSTRINGVALUE CLOSECHARISOBJECTISARRAY UNESCUNICODEUNESCAPECONTROLCISJSONDT JSONDATETODTTVALNIM BADNUMBER CLOSEARRAY CLOSEOBJECTl%CA. unexpected ] % ] unexpected ] T %  T T T!TCC,}6 Ta T - e% 2T  TT,][ KT,] T a T-U OSTACKPOP ARRAYLEVEL ARRAYNAMEROWPOSCOLPOS EXPECTINGISOBJECTEXPECTINGPROPERTYNAMEEXPECTINGVALUEBIDIM%CO- unexpected }% vT,} T- Ta T- T,] Ta T-UOSTACKPOP ARRAYLEVEL EXPECTINGEXPECTINGVALUEEXPECTINGPROPERTYNAME OBJECTOPEN5TCemptyNTC Ub( +TC  T-|TCm.o. bO,C R_KV_COLLECTION,_KL_COLLECTION ,Cm.o. .collectionitemsbA H. TC collectionNtv = m.o.&estavar (T C R_KV_COLLECTION*%C  C   (C % T C  T C 1%C OCesteValbA QT C % #C C  C # Cm.o. bA Ta)FOR T = 1 TO ALEN(m.o.&estavar)DIMENSION &estavar(m.t) ,IF TYPE('m.o.&estaVar(m.T)') = 'O'7&estavar(m.t) = revivecollection(m.o.&estavar(m.t)) %&estavar(m.t) = m.o.&estavar(m.t)  Cm.o.bO -estaprop = revivecollection(m.o.&estavar) 2.estaprop = m.o.&estavar %TC _KV_COLLECTION%TC _KL_COLLECTIONH' C     C  (1) $ACOPY(&estavar,m.oconv.&estavar) 2'C     \#T  Collection q T-% B   B UOOCONVNPROPELEMXESTAVARESARRAY ESCOLECCIONESTAPROP KEYVALCOLLTVCOLLECTIONITEMSTESTEVALVALUEREVIVECOLLECTIONADDKEY RETCOLLECTION COLLECTION BASECLASS TC ZVBCC >"CC 01234567890:T-> C \- C \- C  \T C \: C \: CT  C-  C:  a-6UCSTRTC ZV(% 0000-00-00T00:00:00VB -TC{^C  T00:00:00V}%C  B   Invalid date U CJSONDATECRETCOUTHISADDCAUTHISADD)&BCO UTHISCOUNTITEM)&BCA UTHISCOUNTITEM8TCC B UCRETTHISITEMCOUNTREMOVE nfjsonread2: procstringanuevoel unescunicodeunescapecontrolco propertyname procvalueL closearray; closeobject& revivecollection1!isjsondt' jsondatetodt( pushobject) pusharray)isobject)isarray?*POP*5    USTACK COLLECTION:,T"RAA!ABAAAABqA4taAAARR!BAAAqBBBA35"2rbABrbAAAb1AAAACC42RAA2aAB4qSBBbQABB3qAA5aARB3q3A21A"Aa aA4qR2BRAB2"1AA1A1aA22BeAAqqAAACScBBaaAB4aARaA2R1AB5QARA4qSRBRAAA11ABB2qQABBSQAAB1AA4q{4qBAB733b3b3r147&E ?SG jl(I +fO#+u-"i-.Kw.7^799M;;(<A<<<F=]===>q;>%y7 |N')TCCCCfLOAD6      TaBULCUNLOADWWUTILSWWEVAL WWCOLLECTIONSWWCONFIGWWBUSINESSOBJECTWWSQLWWXMLWWHTTPWWFTPWWSOCKET WWSCRIPTINGWWREGEXWWPDF WWXMLSTATE WWXMLADAPTERWWCACHELLDOTNETBRIDGELOADEDWWDOTNETBRIDGEWWSMTPWWJSONSERIALIZER WWJSONSERVICEWWSFTP WWENCRYPTIONMARKDOWNPARSER 4 5/TCCpcMethodbCCfADD6%C [BTCCC`@TCCPATHv@%ADD %CC B"%C;; BT; n"%C;; A BTC;TCSET PATH TO &lcoldpath BUPCPATHPCMETHODAPATH LCOLDPATHPath9tqqqqqqqqqqqqqqqqqqqqqqqqA4!AAAQaA!Aa!Aq!A5J#%Oqd8( TG+(sys_download_ftp%T monitor_v.zipTCT C TMP\$T CC tmp\CT C inst\ TCa a   *.*( *.*;TC Estado_SQLsys_clases_actualizaciones.prgTC ~C tmp\udp\ 1 GESSVC*.*(C tmp\udp\*.*)TC tmp\udp\GESSVCUPD.exeRUN /N &xRun UOCMDXMSGOEST2XTMPSYS_DOWNLOAD_FTPXARCHIVOPAD_VERSION_UPDTXORIGEN P_FTP_MON_UDTXDESTINOP_LOCAL XDIRUNZIPXDIRINSTP_SYSTEMXOKFTP_RECIBIR_ARCHIVOSXRET4LIMPIAR_COMANDOSXRUNqSAAA1%d C 0 0 0 -1 -1 -1 ? 0 8 1 T T F 2 0 0 1 TF3 0F WINDOWS _SAE0MO0R1 662262863 8 0@28750.000 8437.500 1770.833 6770.833 D 0 0 0 -1 -1 -1 A 0 9 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE0MO0R2 662262863 5 0C28854.167100416.67 1562.500 5104.167 0 0 0 -1 -1 -1 B 0 9 1 T F 0 TF3 0F WINDOWS _SAE0MO0R3 662262863 8 0D28750.000103333.33 1770.833 5416.667 N 0 0 0 -1 -1 -1 E 0 9 1 T F 2 1 0 1 TF3 0F WINDOWS _SAE0MPI51 662263002 5 0G 1562.50043437.500 2812.50027708.333 0 0 0 -1 -1 -1 F 1 18 1 T F 0 TF3 0F WINDOWS _SAE0MPI53 662262900 5 0I 8020.833 8541.667 1562.500 3645.833 0 0 0 -1 -1 -1 H 0 9 1 T F 0 TF3 0F WINDOWS _SAE0MPI56 662262900 7 4 7708.333 8333.333 2395.833101145.83 0 0 0 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _SAE0MPI57 662262900 6 7812.50016458.333 2187.500 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE0MPI58 662262900 6 7812.50055312.500 2187.500 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE0MPI59 662282351 5 0K 8020.83369583.333 1562.500 3645.833 0 0 0 -1 -1 -1 J 0 9 1 T F 0 TF3 0F WINDOWS _SAE0MPI5A 662262900 6 7708.33369166.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE0MPI5B 662262995 5 0M 8020.83378437.500 1562.500 2916.667 0 0 0 -1 -1 -1 L 0 9 1 T F 0 TF3 0F WINDOWS _SAE0MPI5C 662262900 6 7708.33378020.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE0MQC1J 662281725 5 0O 8125.00016770.833 1562.500 8020.833 0 0 0 -1 -1 -1 N 0 9 1 T F 0 TF3 0F WINDOWS _SAE0MROR0 662284041 5 0Q 8020.83355520.833 1562.500 2916.667 0 0 0 -1 -1 -1 P 0 9 1 T F 0 TF3 0F WINDOWS _SAE16DWOM 662288558 8 0R19583.33316041.667 1666.66711562.500 S C 0 0 0 -1 -1 -1 T 0 8 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE16V4RV 662282242 5 0V14270.833 8645.833 1666.667 6562.500 0 0 0 -1 -1 -1 U 1 9 1 T F 0 TF3 0F WINDOWS _SAE16VF25 662282267 8 0W14166.66718645.833 1875.00036666.667 Y C 0 0 0 -1 -1 -1 Z 1 9 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE17CT6I 662283928 8 0[19583.33328333.333 1666.667 9166.667 \ C 0 0 0 -1 -1 -1 ] 0 8 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE17D4V1 662282683 8 0^19583.33348333.333 1666.667 7604.167 D 0 0 0 -1 -1 -1 _ 0 8 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE17E0ER 662283936 8 0`19583.33338333.333 1666.667 9375.000 a C 0 0 0 -1 -1 -1 b 0 8 1 T F 2 0 0 1 TF3 0F WINDOWS _SAE18S5FA 662283954 6 7812.50028020.833 2187.500 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE18S5FB 662283997 5 0d 8020.83328229.167 1562.500 8020.833 0 0 0 -1 -1 -1 c 0 9 1 T F 0 TF3 0F WINDOWS _SAE18SDUH 662283959 6 7812.50037604.167 2187.500 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE18SDUI 662284003 5 0f 8020.83342291.667 1562.500 5104.167 0 0 0 -1 -1 -1 e 0 9 1 T F 0 TF3 0F WINDOWS _SAE18SQU5 662283970 6 7812.50047812.500 2187.500 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE18SQU6 662284044 5 0h 8020.83348020.833 1562.500 3645.833 0 0 0 -1 -1 -1 g 0 9 1 T F 0 TF3 0F WINDOWS _SAE18WGRY 662284060 7 4 5000.000 8333.333 2812.500101145.83 0 0 0 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _SAE18WOEF 662284067 6 5104.16747812.500 3020.833 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _SAE18XC8E 662284086 5 0j 5625.00023229.167 1562.500 8020.833 0 0 0 -1 -1 -1 i 0 9 1 T F 0 TF3 0F WINDOWS _SAE18Y0E9 662284112 5 0l 5625.00072604.167 1562.500 5104.167 0 0 0 -1 -1 -1 k 0 9 1 T F 0 TF3 0F WINDOWS 23 15.000 7.000 12.000 8.000 3 0 m 0 9 WINDOWS 23 14.000 7.000 11.000 7.000 3 0 n 0 8 WINDOWS 23 27.000 14.000 20.000 18.000 7 0 o 1 18 WINDOWS 23 16.000 7.000 12.000 9.000 4 0 p 1 9 WINDOWS 25 qr F WINDOWS 26 vw {! Courier NewF/winspoolHP LaserJet 3200 Series PCLLPT1:HP LaserJet 3200 Series PCL4C odXXLetterDINU"4NNDRIVER=winspool DEVICE=HP LaserJet 3200 Series PCL OUTPUT=LPT1: ORIENTATION=1 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=600 COLOR=1 YRESOLUTION=600 TTOPTION=3 COLLATE=0 pendrecl.cod_clipendrecl.cpbtfecha  Courier NewJpendrecl.tipod+iif(alltrim(pendrecl.subtipod)="",""," "+pendrecl.subtipod)  Courier New pendrecl.venc Courier New pendrecl.nota  Courier NewDATE() Courier New Courier New "Pgina "_PAGENO Courier New Courier New"Reclamos Pendientes" Courier New"Fecha" Courier New"Venc." Courier New"Nota" Courier New "Comprobante" Courier New"Tipo" pendrecl.cpbt  Courier New Courier New "Cliente :"2"["+alltrim(pendrecl.cod_cli)+"] "+pendrecl.nombre  Courier Newpendrecl.cpbtvto  Courier Newpendrecl.fecha Courier Newpendrecl.cpbtimp  Courier New Courier New "Vencimiento" Courier New "Importe" Courier New"Fecha" Courier New "Comprobante" Courier New "Reclamo" Courier New Courier New Courier New Courier Newdataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" cursorqTop = 20 Left = 10 Height = 90 Width = 95 Alias = "pendrecl" CursorSource = pendrecl.dbf Name = "Cursor1" %jB E&) 4 TCW%Ccons DQconsF#)%  T%T% > F BUXTIPOXDATOXAREACONSPAG_OPERzbArQB2BB1%#VUX)x7    >BC UXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTO XMAILTIPOLC_CC LC_CCNAMELC_CCO LC_CCONAME LC_TONAMEXOKSEND_EMAIL_OUTLOOK[ 7     DQOUTLOOK.APPLICATIONQOBJECTQOUTLOOK.MailItem2QOUTLOOK.accountsQOUTLOOK.account Ta T a #TCOutlook.ApplicationN(uBT"Error al instanciar el Outlook!!! C C  T -%  B &%Clc_tobC  T&%Clc_CCbC  T'%Clc_CCObC  8 T +%C lc_CCONamebC  t T *%C lc_toNamebC   T (%Clc_subjbC Ttest'%Clc_msgbC (Ttest%%CC lc_attachbCO ^ T+%C lc_replytobC  T%C xMailTipobN T&%  3 C Mail Bloqueo H%? CC]=DEY #CC] = VDESARROLLO # "Tdiego@solinges.com.ar# CC]=UMLAUT #&Tguillermo@solinges.com.ar 2<T/guillermo@solinges.com.ar;diego@solinges.com.ar T T G+(sys_mail_funciones:TC "#"sys_mail_outlook_personalizado.prg%C0>$    T%Cp_ve_fce_perfil& T'(6 T- \TCMAPI((u T-%&%Cp_ve_fce_perfil& &CCp_ve_fce_perfil&)  TC*(k@T Problemas al crear el correo!!! C C  T -%  B  +,#Coutlook Destinatariosa C -C-C -%C lc_attachbOk. T./gCC/01 %C CC01T2%CfT3 T4-%Cp_ve_fce_cuenta& | x )%5Cp_ve_fce_cuenta&t T6%C0 7%C0 8%8 KTCC)Quiere editar el mail antes de enviarlo?96%Y :  w ;(< \C No se puedo enviar el correo !!!'Problemas al enviar e-mails con Outlook=%*  C'> ? &  T T T a B U@XMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTO XMAILTIPOLC_CC LC_CCNAMELC_CCO LC_CCONAME LC_TONAMEXOK LOSENDMAILLL_ERROEXXLOGONNITXCUENTA LOOUTLOOK LONAMESPACE LOMAILITEMACCOUNTSACCOUNTXPATHF1XPATHF2XPATHF3MESSAGEP_MAIL_SEND_FROMP_MAIL_SEND_REPLYTOP_DEVP_MAIL_BLOQUEOSYS_MOSTRAR_SCREENSYS_MAIL_FUNCIONESODEYFUNCGET_PATHOUTLOOK_PARAMETROSLCPERFILVE_FCE_ALTERNATIVOSESSION GETNAMESPACELOGON CREATEITEMXSPLXRECAGREGAR_DESTINATARIOS TMLC_ATTACHF TMLC_ATTACH ATTACHMENTSADDSUBJECTHTMLBODYBODY DISPLAYNAMESENDUSINGACCOUNTOUTLOOK_CUENTA OUTLOOK_FIRMA MENSAJE_SINODISPLAYSEND OEX_OUTLOOKMENSAJESENDANDRECEIVELOGOFF@%C+B-TC TC %C;, (C9TC%CC #TC<>TC T U LOMAILITEMLC_TO LC_TONAMEXTIPOXSPLNITXREC XDIRECCIONODEYFUNCARRAY_PARSEAR_DOBLE_LISTA RECIPIENTSADDTYPE+QOUTLOOK.MailItem%CfCf % T  T U LOMAILITEMACCOUNTS XDESTINATARIO XENVIARPORXCUENTAOREC RECIPIENTS ADDRESSENTRYADDRESSACCOUNT DISPLAYNAMESENDUSINGACCOUNTTC ?TCCMicrosoft\Signatures\.htm %C0 TC CU LOMAILITEMXCUENTAXARCHIVOODEYFUNCGET_PATHHTMLBODYTC ?TCCMicrosoft\Signatures\.txt %C0 TC CU LOMAILITEMXCUENTAXARCHIVOODEYFUNCGET_PATHBODY3   w sys_mail Nguillermo@solinges.com.ar;federico@solinges.com.ar;guillermo.negrete@gmail.comUXMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTO XMAILTIPOLC_CC LC_CCNAMELC_CCO LC_CCONAME LC_TONAMEPASAR_DE_LISTASYS_MAILCsys_mail_outlooksolingesSolingesVsys_mail_outlookguillermo.negrete@gmail.comSolingesU LOMAILITEMACCOUNTSXCUENTASELECCIONAR_CUENTA_DESTINATARIOSYS_MAIL_OUTLOOKE  T#sys_mail_outlookU LOMAILITEMXCUENTAXFIRMAAGREGAR_FIRMA_HTMLSYS_MAIL_OUTLOOKSend_email_outlook/Agregar_DestinatariosZSeleccionar_Cuenta_Destinatario Agregar_Firma_HTMLp Agregar_FirmaNOutlook_Parametros(Outlook_Cuentah Outlook_Firmamt5qA!1!AAgAaAqAAAAqAQAAAd!1aAAA1AAabAAAAAAq6qQA"QABAAAAAaA2A2BAAA41qA111SQ1AA3qBaAAAA21A21A51u33a2t21   A]. I !'%wT)  T T-G+(sys_mail_funcionesG+(listadosdey_func T  T  T T T T T T TT T T T;listados  (T\cpbt\ -logo.jpg T T T%-T No se envia por mail. MAILTIPO=0 C! B%CGC-" =T0No se envia por mail. Cancelado en destinatarios C! B%C QD%C-Enva el comprobante por correo electrnico ?# M.T!Reimpresin. No se envia por mail C! B ;T.No hay direccin de correo para envo por mail C! B%C0 13T&No se gener PDF. No se envia por mail C! B$Q COLLECTIONT$C CollectionC$%%C C$%3&sys_procesandoEnviando por mail...;()*+,-./012345%6%C7 8 T(7 CT6DEV: No hay direccin de control. No se envia por mail C! 8sys_procesando B T(CT1CC7 76%(1& T1%T)C: 9 T+$ T,; T-< T.=:T*CC>?6 9 T@A TBC TDE TFG THI T4J T5KT/L THP MqTLC()*+,-.@BDF/0123H45N M3TLC()*+,13O8sys_procesando%L/ CPHl"  M %Q;C!Comprobante enviado por mail $CSe ha enviado por mail.R { IC!*El mail se ha agregado a la cola de envio. 7C*El mail se ha agregado a la cola de envio.R M" <C!Comprobante enviado a Outlook TCGSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.R B  :C!No se pudo enviar por mail CR BUSXCOD_CLIXCOMPROBXCAUSAXARCHPDF XARCHPDFCC XTIPO_EMAILXFECHA_EMISION XMAILTIPO XELECTRONICOSYS_MAIL_FUNCIONESLISTADOSDEY_FUNC ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUA DATOS_EMPRESAP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAZEMAILXMSGUSER_LOG PUB_INDEXMAIL_ELEGIR_DESTINATARIOS MENSAJE_SINO OADJFILESADD SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XENVIAR_DESDE LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKENP_DEVXGESCOB_CONTROLSP_OCULTAR_DEFINITIVAMENTEMAIL_MACRO_TEXTOSXGESCOB_SUBJECTXGESCOB_REPLYTO XGESCOB_FROMXGESCOB_FROMNAME P_GESCOB_MSGP_GESCOB_MSG_ND XAUTH_LOGINXGESCOB_AUTHLOGIN XAUTH_PASSXGESCOB_AUTHPASSXFCEHOSTXGESCOB_SEND_HOSTXFCEPORTXGESCOB_SEND_PORTXFCESSLXGESCOB_SEND_SSLXGESCOB_SEND_USA_GMAILXGESCOB_SEND_TOKENXOKXGESCOB_METODOSYS_MAILSYS_MAIL_OUTLOOKIMPRESOP_MAIL_SEND_TIPOMENSAJE12AB"BAA&2AV"A01"2AA3AT4u111AR13AqA1AAA1%, bUdQU)&%CxdbiebC; T5 Ta T%C6T)No se especific la empresa de origen !!!B-%C4T'No se especific la empresa destino !!!B-.sys_procesandoCopiando costosTC T C hC ( 4TError al abrir los archivos de CCZ T-%  C sys_procesandoB-+TCINDC$6F>oCOSQCCa6 1Q7ocos_cieQCCa61 Q  C Ca ( 24TError al abrir los archivos de CCZ T-%F%C_S n F%CS    C C cos_copia!C cos_cie_copiasys_procesando BU XEMPORIGEN XEMPDESTINOXMSGXDBIEXOK SP_MENSAJESYS_PROCESANDOXBORRAR1ODEYFUNCNEWFILE_LOCAL_TMPXBORRAR2 OPEN_FILESOEX3 CLOSE_FILESSP_OCULTAR_DEFINITIVAMENTE XFECHA_DESDEP_EMPP_CS_FECHA_DESDECSCOSCODIGOFECHA COS_COPIACSCCOS_CIE COS_CIE_COPIAALL CHK_DELETEDA Dey_Func2CcosCcos_cieUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_CLOSED  Dey_Func2 T+CcosC a(%  (CcosC a-(    !/Ccos_cieC a(%   ,Ccos_cieC a-(    U XP_EMPXP_EXCLUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDGET_PATHOEXERRORNOOEX2 Close_Files Open_Files1AsaqAAqAAArArrAAqAQArAQAA2A1q5BAAAAAA2AaE i+%-49d-5BGX)Csys_CFGTC H^ C.TCCFG_Ctrl Sys_cfg.prgaC  .TCCFG_Ctrl Sys_cfg.prgaC  %~ QTC( zTError:  .TCCFG_Ctrl Sys_cfg.prga TC (  BUXTPATHXVARXVALUEXPOSXREL XOPERACIONXVALOROCFGSYS_MAGREGAR_Y_GRABARBORRAR_Y_GRABAROEXMESSAGE OBTENER_VALORT .TCCFG_Ctrl Sys_cfg.prgaCUXTPATHXVAROCFGBORRAR_Y_GRABAR_TC%G B XB-U XPARAMETROOPARXOKTHISOBTENERVALOR TC hTCTa C ( T- BU XPARAMETROOPARXOKOEXOEX2THIS PARAMETRIZARLINEASOBTENERTYPEO  T!%CCRf_SYSMSG[TCCf_SYSMSG%Cp_codempbNTC TC H B\Ges.cfg B\Ges.cfg I$B\GesFE-CCZ.cfg %B\GesEMP-CCZ.cfg B \GesUSR.cfg %B\GesUSR-CCZ.cfg *3B\GesUSR-C00000CCZR.cfg *%CC0mBC BCU XTPATHXEMPRESAXLOCAL2P_LOCALP_CODEMPP_SYSTEM PUB_INDEXTHIS OBTENER_PATHRT!%C This.LineasbOKTUXVALORTHISFILTROLINEAS%CxArchivobNVTTC'%C CxFiltrobC T(%C CxArchivobC T%  %  U XAUTOCARGARXARCHIVOXFILTRO XAUTOAPLICARTHISTIPO_CFG OBTENER_PATHFILTROARCHIVOCARGARAPLICAR_VALORES %C0GTC ^ TTTCC  U XTEXTO XMAXLINEASXLINEAOONIT ARR_LINEASTHISARCHIVOLINEASCFG_CREAR_PROPIEDADES AGREGAR_LINEA TTQLINEAz%v TC C  CCU XTEXTOTHISLINEASKEYSORTOLINGRABARLINEASETSARCHIVO TC QLINEAS sys_cfg.prg T- {TCCfT  BC U XPARAMETROXVALORTHIS PARAMETRIZAROLINSYS_CFGPRGLINEASVALOROLINE H CxValorbC%TCC C {/ENTER}TCC {/ENTER}TCC {/ENTER}% BC  B CxValorbN BCCZ CxValorbL*BC106 CxValorbTUBC CxValorbD| BC* 2%  BC  B  BUXVALORXALLTRIML%CC=fP_ - B EBC\U XPARAMETROlTCTC$C= U XPARAMETROXVALOR XPOSICION XRELATIVOXALLTRIMTHIS NORMALIZAR PARAMETRIZARLINEAS AGREGAR_LINEAH!C CU XPARAMETROXVALOR XPOSICION XRELATIVOXALLTRIMTHISAGREGARGRABARTC TC Ta( CCf Ta( T-U XPARAMETROXOKOEXOEX2THIS PARAMETRIZARLINEASREMOVE8C CU XPARAMETROXVALOR XPOSICION XRELATIVOXALLTRIMTHISBORRARGRABARZQCFG_CTRL QLINEAS sys_cfg.prgTCUOCFGOLINSYS_CFGPRGLINEASTHISCOMPARAR_VALORES1QLINEA* CUOLINTHISLINEASAPLICARC Iniciando...QLINEA#C Publicando:  CC Iniciando...UTHISAVFP_LOGOLINLINEASPARAMETRO_PUBLICOPUBLICAR Ba%Cp_localbCCTc:\temp%)G(c:\temp\log_servicios.txt *G(c:\temp\log_servicios.txtG G "CC Z-C G G(UXTEXTOXREINICIALIZARP_LOCAL B-%Cp_localbCCTc:\temp%)G(c:\temp\log_servicios.log *G(c:\temp\log_servicios.logG G "CC Z-C G G(UXTEXTOXREINICIALIZARP_LOCALP 4C Ta I T-U XPARAMETROXOKTHISREMOVERQLINEA sys_cfg.prg T- T-%CxLineabO| T %C= B-T CNewLinea TCLineaNCLineando C  .%C C this.FiltrobC z)%C fCCC >=f vB-T CBorrando C C Posicionando C CAdd H' C TC  C C  2C (C C Propiedades % ,CCrea Propiedad C CVuelve BUXLINEA XPOSICION XRELATIVOOLINSYS_CFGPRGXANTESXDESPUESOEXTHISKEYSORTAVFP_LOGASIGNARFILTRO PARAMETROINDICECOUNTBORRARANALIZAR_POSICIONADDCFG_CREAR_PROPIEDADESAGREGAR_PROPIEDAD?QLINEA sys_cfg.prgCP_UOLINSYS_CFGPRGTHIS ADDPROPERTY PARAMETRO-%C xPosicionbL  GB-H\ C % T  TB C%TC U XPOSICION XRELATIVOXANTESXDESPUESTHISCOUNTITEM PARAMETROa QLINEAS sys_cfg.prg)QLINEA sys_cfg.prgZCUOLINSSYS_CFGPRGOLINTHISCOMPARAR_VALOR TC%CxLinbLTCLineaTTC BUXLINEAXDEFECTOXLINTHISOBTENER PARAMETROVALOR AGREGAR_LINEAg TC%CxLinbLJ B ` BUXLINEAXDEFECTOXLINTHISOBTENERVALORQLINEA sys_cfg.prgQSTRING%CoLinbOZT sTCf)QLINEA sys_cfg.prg% BB-UOLINSYS_CFGPRGXPARAM PARAMETROXLINTHISQLINEA sys_cfg.prg!QLINEAQ EXCEPTIONQBOOLEAN TCT T T (U OLINSYS_CFGPRGOLIN2OEXXGRABARTHISOBTENERVALORGRABAR`;listadosaaTCCfUXVALORXSALIDALIMPIAR_CARACTERESLISTADOSTHIS PARAMETRO T %C =*cTaT C \*TCCC C= \f"T C C= \T UXLINEAXVARXVALORTHISLINEAOMITIDO PARAMETROVALORT CT !T C*6"T   = T   B U XVALORXNUEVOXPARAMXOMITIDOTHIS NORMALIZARVALOR PARAMETROOMITIDOLINEA)TP_ BUXVALTHIS PARAMETRON #TC(> T BUXVALTHISPARAMETRO_PUBLICOOEX(TCUXVALORTHISVALOR NORMALIZARPARAMETRO_VALOR!BCU XREFERENCIATHIS NORMALIZARVALORa HZ! C xReferenciabLHN CxValorbCxB1 CxValorbN B 2B-! C xReferenciabC9H5 CxValorbCr%TCC C {/ENTER}TCC {/ENTER}TCC {/ENTER} BCV CxValorbN BCCZ CxValorbLBC106 CxValorbTBC CxValorbD" BC* 25 B! C xReferenciabNHk CxValorbN B CxValorbC BCCg BCCg! C xReferenciabD/BCCC\gCC\gCC\g$! C xReferenciabTG BC 2Z BUXVALOR XREFERENCIAT UXLINEATHISLINEACaUTHISAPLICAR%M0C// =CBT%RELEASE &xPar PUBLIC &xPar &xPar = THIS.Valor &C=CU XPUBLICARTHISOMITIDOAVFP_LOGPARAMETRO_PUBLICO NORMALIZARVALORXPAR.  BCc:\temp\UXTEXTOXREINICIALIZARTHIS AVFP_LOG2sBG( \CFGlog.logG G )C^ Csys_cfg:G G(UXPATHXTEXTOXREINICIALIZAR* TT T T C H CT T &CParmetro actualizado. ST T "CParmetro borrado. T T CCT (T TCError: Ca Ta BUOCMDOSQL XCONTINUARXPATHXVARXVALUE XOPERACIONXVALOR ADIC_PATHADIC_VAR ADIC_VALUEADIC_OPERACIONSYS_CFGRES_TIPOESTADORES_AGREGAR_MENSAJEODEYFUNCTEXTOSNORMALIZAR_TEXTOOEXMESSAGEACTUALIZAR_ESTADOBorrar obtener_Valor,Obtener Obtener_Path Filtro_AssignINITcargar grabar Asignar  Normalizar  ParametrizarAgregarAgregar_y_GrabarBorrar|Borrar_y_GrabartComparar_ValoresAplicar_valoresPublicar_valoresavfp_logavfp_logBorrar Agregar_Lineapagregar_propiedadAnalizar_posicionComparar_Valorese Obtener_CrearObtener2Obtenercomparar_ValorParametro_Assign  Linea_AssignE! Linea_AccessS"Parametro_Publico_AccessV#Parametro_Valor_Access# Valor_Assign$ NormalizarSez$ Normalizar$AsignarG(Publicar(Aplicar(avfp_log) avfp_log2:*CMD_Cambiar_Parametro*  Ta T- T- T T T .Q             UCFG_CREAR_PROPIEDADESCFG_ASIGNAR_PROPIEDADES INDIVIDUALARCHIVOFILTROTIPO_CFGLINEAS} Ta T-          UCFG_CREAR_PROPIEDADESFILTRO T T T T- T T T Ta   ! " # $ % & ' ( ) *U PARAMETROPARAMETRO_PUBLICOPARAMETRO_VALOROMITIDOVALORLINEAINDICEGRABARCFG_CtrlCUSTOM1Lineas COLLECTION2LineaCUSTOM3}B1q111AQABA1q<qA2QqA2rA11A1R1R1B1R11R121AAAA2q1A11QAqAAAA21A1AaRaA3q1!AA!2QaA3QAAAA2qA2qQA2q2qQAQAA2q21A2A21A2qAAAba"ba8qAAAba"ba3qqA2qAQ1AqAAs11!!qAqA"Aa221qA!2AA1qBA2A2qQQA2qQA3AaAAq2!QB>qqA2q"aA"!21!!"1qa2q!A2q2qq2qAQAAA2q!22q!AAqAab32Bbaba4qqa1!1AB1@1p`1?,!O=)oSF4x2RVX\nC{bKk]Lp( ?g!q "C"M#b s#(m<()?0)+R=++W+,b,-k-.y/00112334P4&44+5f545585:<:!;nB;V;rv;<u<W=o=`>>B  5:1 $0?LQ0`>%TW J|II)UC TTCUOITEMCCLAVEPADRETHISCLAVEADDCUCCLAVETHISREMOVE*'TCsql_collection_de_caNUTHISSQL_OBJETOS_CA$ T- %CS#TCADODB.ConnectionN%T<TTTT C  Ta(  T- BU XOKTHIS SQL_CONEXIONSTATECOMMANDTIMEOUTCONNECTIONTIMEOUTCONNECTIONSTRINGP_SQL_CONEXION_ADOCURSORLOCATIONMODEOPENOEXTUTHISPADRE< 7BU SQL_SESIONES4%CxtablabCf0C#Mal uso de la funcin SQL_USE() !!!B-%CxaliasbC TTC datasessionv0%C sql_sesiones(CCZ)bOGKT sql_sesiones(CCZ)=createobject("sql_datasession")&aaa  zT CC Ta(  T-% 3  Csql_cursoradapterN5TCC %CC  U-C No se pudo abrir la conexion !!!B-TCADODB.RecordsetN TC T-+C  TC  Ta( %!% F/C"No se pudo asignar la conexion !!!B-T TADOTTaTaTTT%TTTTTT 2T!a"T"select * from %C#Ba C$zCC$xB-U%XTABLAXALIAS XACTUALIZABLEXNO_DATAMENSAJEXDSAAAXEXISTEXAUX1O SQL_SESIONESSQL_OBJETOS_CAOEXAGREGARXOBJABRIR_CONEXIONORSACTIVECONNECTION SQL_CONEXIONISOLATIONLEVELDATASOURCETYPE DATASOURCE MAPBINARY MAPVARCHARCURSORLOCATION CURSORTYPELOCKTYPEALIASTABLESUPDATABLEFIELDLISTUPDATENAMELIST KEYFIELDLIST FETCHSIZE FETCHASNEEDED SELECTCMD CURSORFILL ERRORARRAYV4%CxaliasbC8 TBCaUXTABLAXALIAS XACTUALIZABLESQL_USEY4%CxaliasbC8 TBC-UXTABLAXALIAS ACTUALIZABLETHISSQL_USE4%C$ TC%C=B FQTC datasessionv0%C sql_sesiones(CCZ)bOB  BUXALIASXSIDXDS SQL_SESIONESSQL_OBJETOS_CAELIMINAR+4BCU XFORUPDATEXALIASXWHERESQL_SEEK04BCUXTOP XFORUPDATEXALIASXWHERESQL_SEEK4%CxordenbC@ T%CxtopbNk T%C B- FQTC datasessionv0%C sql_sesiones(CCZ)bOB5TCC T select Ctop CCZ6* from CC  where 6 CC  order by C6Hf% CfTEMPORALCLIENTES#T ID_TemporalClientes& CfTEMPORALPRODUCTOSI$T ID_TemporalProductos 2fT idu%T a% %Ca FTT (C.TCC/@ %Cf ADOBOOKMARK"TC ,60T   . T   CzCCx   T -%C--%@T a%CNk-aBa --B- CzCCx--B-U XFORUPDATEXALIASXWHEREXORDENXTOPXSIDXDSXOBJ SQL_SESIONESSQL_OBJETOS_CA SELECTCMD KEYFIELDLIST SENDUPDATES ACTUALIZABLE CURSORFILLALIASUPDATABLEFIELDLISTUPDATENAMELISTXFIELXCOMMAITABLES ERRORARRAYTC datasessionv0%C sql_sesiones(CCZ)bONB"TCUXDS SQL_SESIONES SQL_CONEXION BEGINTRANSSQL_NIVEL_DE_TRANSACCIONESTC datasessionv0%C sql_sesiones(CCZ)bONB"TCUXDS SQL_SESIONES SQL_CONEXION COMMITTRANSSQL_NIVEL_DE_TRANSACCIONESTC datasessionv0%C sql_sesiones(CCZ)bONB%C "TCUXDS SQL_SESIONES SQL_CONEXION ROLLBACKTRANSSQL_NIVEL_DE_TRANSACCIONESc 4%CxaliasbC4 TTC datasessionv0%C sql_sesiones(CCZ)bOKT sql_sesiones(CCZ)=createobject("sql_datasession")&aaa  TCC Ta( 0 T-% w3 Csql_cursoradapterN5 T CC%CC  T CADODB.RecordsetNT CTT ADOT  T T T T aT a% T T T T T T -T %C -Ba \C zCC xB-U! XCONSULTAXALIASXTABLAXDSAAAXEXISTEO SQL_SESIONESSQL_OBJETOS_CAOEXAGREGARXOBJABRIR_CONEXIONORSACTIVECONNECTION SQL_CONEXIONISOLATIONLEVELDATASOURCETYPE DATASOURCECURSORLOCATION CURSORTYPELOCKTYPE MAPBINARY MAPVARCHARALIASTABLESUPDATABLEFIELDLISTUPDATENAMELIST KEYFIELDLIST SENDUPDATES SELECTCMD CURSORFILL ERRORARRAYU4%H'| .t.MT1=1 2|%CFiltro sin convertir !!! BUXFILTROP_SQLMENSAJEagregar,eliminarinitabrir_conexion destroysql_inicializacionsql_use-sql_use_no_data sql_use_all_data3 sql_close sql_seek_unico sql_seek_top= sql_seek sql_begin_transactione sql_commit@ sql_rollbacksql_ejecutar_a_ca# sql_ejecutarsql_conversion_de_filtro   U: T T T  USQL_OBJETOS_CA SQL_CONEXIONSQL_NIVEL_DE_TRANSACCIONES0 T- T T U ACTUALIZABLECLAVEPADREsql_collection_de_ca collectionesql_datasessioncustomsql_cursoradapter cursoradapter1Q3q1q3rC2A%AbBA>5qA21qAA2AA2ArqBpqDAAAqA37;:dA#ttA4Ar2A2qAAAArBABB4354qAA"rAArBAs" Q1aA1A2Q!AAAABARA"qqAqA1BA2"4BA2"4BA2!A5AAA2ArB39;:cA3qqA43qaQAA1514Gi [+ /$W j h& n* st&zw 0 \":""]"#b$,l6718V9@z9 ;O8;Kc/KK0KL;>Ev `% 1 |9 [T*Tc:\sistema\2000F QborrarFQ old_borrarG+(sys_reg_compareTC reg_compareNCborrarC old_borrarCC<BUP_LOCALBORRAR OLD_BORRARSYS_REG_COMPAREOCOMPAREPUSHMENSAJECOMPARE 4%DTC]TC]%CLk TC%C %.C El alias no existe !!! Suspendo?aBEl alias no existe !!! TCW%C%2T LT F( \tmp\ F B BParmetro invlido !!!U XNUMXTABLETHISTABLE1TABLE2P_DEVSYS_MOSTRAR_SCREENXAREAXARCHP_LOCALY"%C xarr_comparebL= T WTC T FQ\tmp\FQ\tmp\( T%o% b=C/No se pudieron abrir los archivos !!! Suspendo?a BEl alias no existe !!! B   T  T F+CC / % %CCCC /@T  .FTCC /FTCC /%MT  CC , 6CC /@:C>CT  %C comparet1FQ%C comparet2FQ#\tmp\.dbf#\tmp\.dbf B U XARR_COMPAREXMAX_ARR_COMPAREXERRP_LOCALTHISTABLE1 COMPARET1TABLE2 COMPARET2OEXP_DEVSYS_MOSTRAR_SCREENXTXTZXEV1XEV2TOSTRING"4H CFN^.BCC8 CCZ CCZ6 CD BC* CT BC CCBCC= CLBCVF6 2BNo DeterminadoUXVALpushPcompareitostringdATC]TC]   UTABLE1TABLE2 reg_comparecustomtB7211AuA"AArr1AA3qt!ArA2AA2rT2AAArr2AAqAAqAA213qrrrrqA41 +S Hcu  s( :%EQ=[-b\]=F*B4QSTRING% BrkInactivom:-Conectividad con One Line Click deshabilitadaB %BrkErrorOBError al intentar conexin con One Line Click - consulte a soporteBQSTRINGTCC`fp%CC C> GCCLIENTES ARTICULOS DEU_DOC_INI DEU_DOC_MANT TODOS_INI ]CQParmetro incorrecto. 1)CLIENTES 2)ARTICULOS 3)DEU_DOC_INI o bien 4)DEU_DOC_MANTxB TG+(_ucursoradapterges TC TExLaunchHA CLIENTESnC- ARTICULOSC- DEU_DOC_INIC- DEU_DOC_MANTC  TODOS_INI0%C Interfaz con OnLineClick  Ca%Ca%Ca%CErrorx 3C$Exportacin finalizada correctamente@x 7< <BU AMETODOP_BROKERSTATUSMENSAJE LOERRORSTR_UCURSORADAPTERGESOEXCARGAINICIALCLIENTESCARGAINICIALARTICULOSCARGAINICIALDOCDEUEXPORTDOCANDDEUQUESTIONCONTINUE BRKPSERVER^TC'TCTSqlExDocumentosN#TC TSqlExDeudasNUTHIS BRKPSERVER GETBRKPSERVERODOCODEU"B\UTHIS BRKPSERVER WORKSUBDIRCPBT1"B\UTHIS BRKPSERVER WORKSUBDIRCPBT2"B\UTHIS BRKPSERVER WORKSUBDIRALLFILES BUTHIS BRKPSERVER'$B \BrkError.txtUTHIS BRKPSERVER WORKSUBDIRQSTRINGQSTRING6G+(,c:\sistema\2000\ve_sql_facturas_a_cobrar.prg TC BrkCbTmp.DBF(T \BrkCbTmp.DBFC ( T  BU LOERRSTR LOAUXNAMEC EXPORTAR_1THIS WORKSUBDIR BRKPSERVERRENAMEANDCOPYSTRUCPBT1CPBT2OERRMESSAGE,QSTRINGQSTRINGQBOOLEANQINTEGERQ TCOMMANDGESQSTRING T- TC TCommandGes(C"T Delete From CC Ta(T< BU AFILENAMES AERRORSTRLORESULTFILEIDXLOCMDLOCMDSTREXECUTEOERRMESSAGElQSTRINGXBC#Se eliminarn todos los datos de :  Contino ?4AtencinxU ATABLENAMESQSTRINGQSTRINGTC%C(CT,CBCU ATABLENAMES LOMESSAGEITHISQUESTIONCONTINUE" QBOOLEANQSTRING T #TCTSQLExABMBienesN6%C C  C(IT . Exportando todos los registro de la tabla :   <U ANOQUESTION AERRORSTROBIETHISQUESTIONCONTINUE SQLTBLNAMEDELETETEMPORALEXPORTALLRECORDSOERRMESSAGE FOXTBLNAME$ QBOOLEANQSTRING T %TCTSQLExABMClientesN6%C C  C(IT . Exportando todos los registro de la tabla :   <U ANOQUESTION AERRORSTROCLITHISQUESTIONCONTINUE SQLTBLNAMEDELETETEMPORALEXPORTALLRECORDSOERRMESSAGE FOXTBLNAMEQSTRING TC%~TC%zTC%TCTC(8T $ - Exportando Deudas y documentos U AERRSTRTHISGETCBTESFROMGESDBODOCGENDIFCOMPROBANTESODEU GENDIFDEUDAS EXPORTTOSQLOERRMESSAGE QBOOLEANQSTRING T6TTemporalDocumentosC  TemporalDeuda 2% C C C(8T $ - Exportando Deudas y documentos U ANOQUESTION AERRORSTR LOTABLENAMESTHISQUESTIONCONTINUEMLDELETETEMPORALALLFILESEXPORTDOCANDDEUOERRMESSAGE2 << " CUODOCODEU'Q TEXLAUNCHTU ALAUNCHERTHIS OLAUNCHERsQSTRINGQSTRINGG+( _uglobals.prgQINTEGER T%CCFCSin moneda para pedido  se asign pesos  cTC`-%C>C012345 FMCMoneda incorrecta para pedido  se asign pesos  _TCg BU ASTRMONEDAAPEDIDO _UGLOBALSPRGLORESULT WRITEFILELOGTHIS OLAUNCHERFILELOGFQSTRINGOQCURRENCYQBOOLEANQSTRINGQINTEGERQCURRENCYG+( _uglobals.prgTCbienes TC% QbienesF F TCO%%Cabienescodigoq% SV% ; T R T  m T  TJCArtculo no existente  se asign iva en 21%   % Q   # %6 F BUACODBIENLOAUXLOUSED LOSAVEDALIASLOOLDPOSLORESULT _UGLOBALSPRG LOSAVEALIASBIENESIVAIVAPER WRITEFILELOGTHIS OLAUNCHERFILELOGkJQSTRINGQSTRINGQINTEGERQDATEQCURRENCY%C nQccclieF\>P   PCZ C]%C QcliauxF >P%C KQremxfacF >UAPEDIDOACODCLIAMONEDAAFECHAAIMPORTECCCLIECAUSACOD_CLICOMPROBFECHAMONEDAIDIDUCLIAUXREMXFACPEDIDO$OQSTRINGQCURRENCYQCURRENCYQCURRENCYQSTRING[QSTRINGQDATEQCURRENCYQCURRENCY QINTEGER QINTEGERG+( _uglobals.prgT T C TC ZTC A%CCLIENTESClientescodigo cuit c T%C  9CSin tipo de cambio para pedido  F>  Cg!C "g#P$C %`&'()C]* +, ,- ./ 01 2 T  T3 T4 T5 T6"+C +  aT C %  T  %C  9CSin tipo de cambio para pedido F7MTC 8g 9C 6C: ;d 6T< 0d T= 2d T><=<=T?>T@?C BAT33T44>T55?T66C>DC 8gEC FgGC Hx=IC B=J KL 9 CgM&N O ;PQ H F9>R3ST6U4V5W6$C T6X(YFCProblemas almacenando  Detalle : YZU[ LOOLDPEDIDO LOCANTIDAD LOCOS_LIFO LOTIPOCAMBIOLOCUITLOCODCLILOFECHA LOTOTVENLIN LOACUMTOTVEN LOOLDMONEDALOMONEDA _UGLOBALSPRGTP NROPEDIDOTHIS GETVALIDMONEYMONEDACCLIENTESTOD FECHAPEDIDO LOOKUPSTRSTRGETTIPODECAMBIOLOTIPODECAMBIO WRITEFILELOG OLAUNCHERFILELOGTCCVENTCOD_CLIFEC_VENREFNROORDENCOMPRAPEDIDOSUCFAC SUCFACTURATIPODOCAGENTEVENDEDORCOEFICCUITGERENCIAIDTRANNROTRANCONTACTOPLANNROPLANDESC1 DESCGRAL1DESC2 DESCGRAL2 LOTOTVENACUM LODESGRALACUMLOIMPONIBLEACUM LOIVAACUMTVENTASCANTIDADPRECIOP_DESLIN DESCLINEA LODES1_100 LODES2_100 LODESGRALLINLOIMPONIBLELINLOIVALIN GETIVABIENITEM LOIVABIEN RECEPCIONRECEP2CANTIDADENVIADADESC_INS DESCRIPCION1COD_INSITM LINEAITEMCOS_LIFOIVAPERCOEFDES_INSTOT_VEN LOTOTVENLINEATOT_VENTDEUDA LOIMPONIBLEDES_COM IMPONIBLEIVA_VENALTAOTRASTABLASOERRMESSAGEUUCTemporalPedidosrSELECT * FROM TemporalPedidos WHERE Retorno = '001' and UPPER(Destino) = 'GES' ORDER BY FGeneracion, HGeneracion TP+C+ H C`A C`B C`M 2U _USECONDITIONTEMPORALPEDIDOSMETODO BUTHIS SQLTBLNAME/%C (CUTHIS SQLTBLNAME _USENODATAlQSTRING(T"CC ", ""0scatter fields &fldlist name this.osaveddata UFLDLISTTHIS DSOURCEFIELDS(CmGTREPLACE C WITH This.oSavedData.C&cmd >ONECLUITHIS DSOURCEFIELDSCMD DTARGETFIELDSDESTINOUQSTRINGQSTRING T%CCfCfT TC F   >%C Cz3T  Error nro : CCZ CC  % FU TIPOMOVERRSTR LOSAVEALIASTHIS SQLTBLNAMEDIRECTFIELDSTOSQLCURSORINDIRECTFIELDSTOSQLCURSORMETODOXERRORBRERRORSTR WRITEFILELOG OLAUNCHERFILELOG8%C 1QUTHIS FOXTBLALIAS FOXTBLNAME&QSTRINGQBOOLEAN Ta T C  F#)+C+ CCAH( T-IT . Exportando todos los registro de la tabla :   BU AERRORSTRLORESULTTHIS OPENSQLTBLEXECFOXQUERYFORALLRECORDS FOXTBLALIASSAVECURRENTRECORD EXPORTTOSQLOERRMESSAGE FOXTBLNAMEC CU_CLOSETHIS SQLTBLNAMEQ TEXLAUNCHQ CHARACTERTC T"TTemporalDOCUMENTOSTTipoDoc NroDocumen Fecha_EmiCliente MontoOrigi VencimientSaldoCondPagoMetodoTTipoDoc NroDocumento Fecha_EmiCliente MontoOriginal VencimientoSaldoCondPagoMetodoU ALAUNCHERC13THIS OLAUNCHER SQLTBLNAME DSOURCEFIELDS DTARGETFIELDS(%B\UTHIS OLAUNCHER BRKPSERVER WORKSUBDIR WORKFILEDIF BUTHISWORKFILEDIFALIASQSTRINGQSTRING  TzTvSELECT Cpbt as TipoDoc, FmtNumCpbt(Numero) as Nrodocumento, DTOS(Fecha) as Fecha_Emi, CAST(Codigo as Int) as Cliente, ~STR(Importe,12,2) as MontoOriginal, DTOS(Vto) as Vencimiento, STR(Saldo,12,2) as Saldo, Comentario as CondPago, 'A' as Metodo FROM  T2 "WHERE NOT exists ( SELECT T1.Cpbt FROM  T1 HWHERE T1.Cpbt=T2.Cpbt AND T1.Numero=T2.Numero AND T1.Cuota = T2.Cuota)  UNION x( SELECT Cpbt as TipoDoc, FmtNumCpbt(Numero) as Nrodocumento, DTOS(Fecha) as Fecha_Emi, CAST(Codigo as Int) as Cliente, ~STR(Importe,12,2) as MontoOriginal, DTOS(Vto) as Vencimiento, STR(Saldo,12,2) as Saldo, Comentario as CondPago, 'B' as Metodo FROM  T1 "WHERE NOT exists ( SELECT T2.Cpbt FROM  T2 HWHERE T1.Cpbt=T2.Cpbt AND T1.Numero=T2.Numero AND T1.Cuota = T2.Cuota) )  INTO TABLE  &losqlcmd (T BU LOERRSTRLOSQLCMDTHIS OLAUNCHERCPBT2CPBT1 WORKFILEDIFOERRMESSAGEPQSTRING " TG  F#)+C+  F  FH F%Ca Cz3T Error nro : CCZ CC C ( @T  BULOERRSTRTHIS OPENSQLTBLWORKFILEDIFALIASSAVECURRENTRECORD SQLTBLNAMEDIRECTFIELDSTOSQLCURSORXERRORBRERRORSTR WRITEFILELOG OLAUNCHERFILELOG_CLOSEOERRMESSAGEQ TEXLAUNCHQ CHARACTERTC TT BrkDeuDif.DBFT BrkDeuDifT TemporalDEUDAT CodigoClie LimiteCredDV DVMenos30DVMas30 PendienteF ChequesDevMetodoT CodigoCliente LimiteCredito DeudaVencidaDeudaVencidaMenos30DeudaVencidaMas30PendienteFacturarChequesDevueltosMetodoU ALAUNCHERC13THIS OLAUNCHER WORKFILEDIFWORKFILEDIFALIAS SQLTBLNAME DSOURCEFIELDS DTARGETFIELDS(%B\UTHIS OLAUNCHER BRKPSERVER WORKSUBDIRDEUDAS1(%B\UTHIS OLAUNCHER BRKPSERVER WORKSUBDIRDEUDAS2BUTHIS OLAUNCHER BRKPSERVER CLIENTESTBLT' '/T\BrkDeuTmp.DBFuTySELECT DISTINCT CAST(T2.Codigo as Int) as CodigoClie, T2.Codigo as CodigoStr, STR(TCliente.credito,16,2) as LimiteCred,  as DV,  as DVMenos30,  as DVMas30,  as PendienteF,  as ChequesDev FROM  T2,  TCliente #WHERE T2.codigo = TCliente.cod_cli ORDER BY CodigoStr  INTO TABLE  &losqlcmd C   U CH16 LOAUXNAMETHIS OLAUNCHER BRKPSERVER WORKSUBDIRLOSQLCMDCPBT2 CLIENTESTBLRENAMEANDCOPYSTRUDEUDAS1DEUDAS2TSELECT *, 'A' as Metodo FROM  T2 'WHERE NOT exists (SELECT T1.CodigoClie FROM  T1 #WHERE T1.CodigoClie=T2.CodigoClie ) UNION ( SELECT *, 'B' as Metodo FROM  T1 'WHERE NOT exists (SELECT T2.CodigoClie FROM  T2 #WHERE T1.CodigoClie=T2.CodigoClie ))  UNION (SELECT T2.*, 'M' as Metodo FROM  T2,  T1 (WHERE (T1.CodigoClie=T2.CodigoClie) AND O(T1.LimiteCred<>T2.LimiteCred OR T1.DV<>T2.DV OR T1.DVMenos30<>T2.DVMenos30 OR YT1.DVMas30<>T2.DVMas30 OR T1.PendienteF<>T2.PendienteF OR T1.ChequesDev<>T2.ChequesDev ) ) INTO TABLE  &losqlcmd ULOSQLCMDTHISDEUDAS2DEUDAS1 WORKFILEDIFQSTRINGQSTRINGCQCURRENCYQCURRENCYQCURRENCYQCURRENCYQDATEQDATEQINTEGER QBOOLEAN  C T1o comprobatesordenados%C  Q  F  TC$T+C+ } T T T T TF+C+  H+C+  %RE %   'T Y% UT"%ND  T TH F 8%      ya>CZCZCZCZCZH C (T BU LOERRSTR LOAUXNAME LODVMENOS30 LODVMAS30 LOPENDIENTEF LOCHEQUESDEVLOHOY LOHOYMENOS30 LOOLDCLIELOFINTHISMAKEEMPTYBASETABLEDEUDAS OLAUNCHERCPBT2CODIGOCOMPROBATESORDENADOS DEUDAS2ALIASDEUDAS2 CODIGOSTRCPBTFECHAIMPORTEMOTIVONEXT DVMENOS30DVMAS30 PENDIENTEF CHEQUESDEVDV MAKEDIFFILEOERRMESSAGE2Q TEXLAUNCHQ CHARACTERTC TTCLIENTEST ABMCLIENTES TTemporalCLIENTEST inscripcionombreciudadcod_zip provincia domiciliophonofantasiapho2faxemailwebvendedorTcuitcliente localidadcp provincia domiciliotelefononombrefantasia telefono2faxemailsitioweb codvendedorU ALAUNCHERC13THIS OLAUNCHER FOXTBLNAME FOXTBLALIAS SQLTBLNAME DSOURCEFIELDS DTARGETFIELDSMQSTRING>Cg;%CzonaszonasCODIGOdescrk >B%C\paisesPaisesCODIGODescr >>%CagenteagenteCODIGONombre  >%C NF> C  U LOAUXDESCRCCLIENTE ABMCLIENTESCOD_CLI LOOKUPSTRSTRZONAP_SYSTEMPAISVENDEDORMONEDA MM_MONEDACQ TEXLAUNCHQ CHARACTERTC TTBIENEST ABMBIENES!TTemporalPRODUCTOSNTCod_insPesopesoxumedidacod_cen[Tcodigo pesobrutopesoneto unimedida centrocostoU ALAUNCHERC13THIS OLAUNCHER FOXTBLNAME FOXTBLALIAS SQLTBLNAME DSOURCEFIELDS DTARGETFIELDSsQSTRING >>CZ>C Z>C%C >  >  =%ClineaslineasCODIGO descr >=%CgruposgruposCODIGOdescr A >%Sl>U LOAUXDESCRCOMPANIABRAND ABMBIENESMARCACODBARRABARRASMONEDA MM_MONEDADESCR DESCRIPCIONCOD_INS LOOKUPSTRSTRLINEA CATEGORIAGRUPO SUBCATEGORIA IMPORTADOCOSTOCOSACTQSTRING%C TSELECT distinct bienes.* FROM BIENES, MOVSTOCK LWHERE bienes.cod_ins == movstock.codigo AND movstock.fecha >= {^2008-01-01} %T INTO CURSOR  &loquery ULOQUERYTHIS FOXTBLALIAS;QSTRING'BCCf ABMCLIENTES ABMBIENESUATBLNAME'QSTRINGBTSQLExUATBLNAMEQINTEGERH# @ BA ] BM z BB 2 BUTIPOABMWQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQBOOLEANQSTRINGQBOOLEANTC TC% Q F  F T COTCa%ET aFieldValue =  &lomacro \ T% tQ   # % FU ATBLNAME ATBLALIASAIDXNAMEAKEYAFIELDTORETURN AFIELDVALUELOUSED LOSAVEALIASLORESULTLOOLDPOSLOMACRO-QSTRINGQSTRINGQSTRING%C0] =(  Q (Q=(UAFILE1AFILE2ANEWFILEaWBCC-6C=CC-\CC>C-R C,6UNUMERO{QSTRINGQDATE V,TC{^C @R 9999-99-99_} k T BU AFECHASTRLORESULTPTC`%CR\6B\ I BULORESULTP_SERVER*.QDATEQINTEGERQCURRENCYQSTRING T %   sBa #%C Qidx04FG((idx04GF E%C+ TIndiceCZavalue = &locmd B B-UAFECHAAMONEDAAVALUELOCMDIDX04FECHAinit& cpbt1_access cpbt2_accessallfiles_accessWbrkpserver_accessfileloggetcbtesfromgesdbdeletetemporalquestioncontinue questioncontinueml cargainicialarticulosu cargainicialclientes exportdocanddeucargainicialdocdeuKdestroyinit" getvalidmoneym getivabien?altaotrastablas" processalta processbaja"processmodificacion" consumepedido"sqltblname_accessH$ opensqltblq$savecurrentrecord$directfieldstosqlcursorX%indirectfieldstosqlcursor& exporttosql&&execfoxqueryforallrecords'exportallrecordsJ(destroy*init@*workfiledif_access5,workfiledifalias_access,gendifcomprobantes, exporttosql1init3deudas1_accessj5deudas2_access5clientestbl_access.6makeemptybasetabledeudasy6 makediffile8 gendifdeudas;init@indirectfieldstosqlcursorCinitKEindirectfieldstosqlcursorFexecfoxqueryforallrecords5I needexportGJgetexportclassnameJtipoabmtotipomovJ lookupstrstrrKrenameandcopystruM fmtnumcpbtpNstodN getbrkpserveryOgettipodecambioOT BrokerTmp TT BrkCb1.DBFT BrkCb2.DBFTBrk*.DBF T T          U WORKSUBDIR BRKPSERVERCPBT1CPBT2ALLFILESODOCODEUS        U T T T T T T T         U SQLTBLNAME OSAVEDDATA OLAUNCHER FOXTBLNAME FOXTBLALIAS DSOURCEFIELDS DTARGETFIELDScT BrkCbDif.DBFTBrkCbDif ! " # $ %U WORKFILEDIFWORKFILEDIFALIAST BrkDeu1.DBFT BrkDeu2.DBFTBrkDeu2T Clientes.DBF & ' ( ) * + ,UDEUDAS1DEUDAS2 DEUDAS2ALIAS CLIENTESTBL - .U! / 0 1U texlaunchcustomV tsqlpedidoscustomX tsqlexportcustomzXtsqlexdocumentos tsqlexportY tsqlexdeudastsqlexdocumentosZtsqlexabmclientes tsqlexportZtsqlexabmbienes tsqlexport[AAAAAA!!!!1!1!AAAA2q1AqqAB1q133333A3aA3"!a!AAq33"RAA31aAAqA3QaAAqA31A1AAA1AAAA3a!AA3qqA:A3q!aAA3qQ!qqARA1AAAAAA1A4"!AqQ$!AqQ#1AqQ4qQAAArQT #1AArQBAE AsAaA333a 2AA13Q1A33qA!37AQ1qA1A3QA4#QbAA3;AA! 3Q347A3aRQAAA1qAA=AA 3Q3Q3a3W3@1*31!!Q!AqAAQ1AA!AAAAAAAA:AA2 " 3$A!AAA9AAa5QQAAArA4R QA8q313!111A3q!!ArAAAA1A3CAA3qq3A3A3q!Aqa1qAA1aqqQ P9=`4Q1AP101<4x K87 s Q: U< Y Y> ]@  aBZ eO wbe%o31~?>L  iLZ! "&0F&4N3444#5!55Y56@88B9d9F9,:Jw:@;P;L<QZ<>e>+?i;?A}B+BCE2FF-FF18G@L6LOTQTXTTT5UrUUHV7ZZ<^^fRhkfkn"obr<'ruK;,v^wgByxxwExGy{HTyzT(z!}t.}_l,"uB685B^COQgzPhnojw;=%@NGLeG5S =`*UfQSTRING N3BDBFCC C  XBaUATBLNAMEP_GBLDBTYPEP_DATAD ISLOCALTABLE*QINTEGERR U MILLISECONDS4%CxarchbC%CC=f(V) gTBCC[f | BCf  BUXARCHOFFSETm;QSTRINGQSTRINGQSTRINGQSTRINGQADODB.Connection TCADODB.Connection!%COC U1%CC CC C [T8Provider=SQLOLEDB.1;Persist Security Info=False;User ID= ; Password=; Initial Catalog=; Data Source= xT;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog= ;Data Source=T C"CSet Dateformat dmy,Cset implicit_transactions on B fBU ADBNAME ASERVERNAME AUSERNAME AUSERPASSWORDLOCONNCONNECTIONSTRINGCURSORLOCATIONOPENEXECUTE&TC datasessionv BULORETURNQCUSTOMQSTRING%CCd.CBye  de tipo : x )CBye Objeto de tipo : xUAOBJ OPTIONALIDCLASS.QSTRINGC : CCZxUADONDEGETACTIVESESSIONQINTEGERQSTRINGQINTEGER TTCy C("TCC C  CxUAIDSESSABIGSTRLOCANTI ATABLEALIASESX4!QINTEGERQINTEGER"QSTRINGQ CHARACTER%CWBTC(-TCTCWIF ( ( loFldType = "T" ) OR ( loFldType = "D" ) ) AND EMPTY(&loFldName) then)"replace &loFldName WITH .NULL. ULOCOUNTLOI LOFLDNAME LOFLDTYPEISDBF LOARRFIELDS-QSTRINGQSTRINGQSTRINGQINTEGERTC%/BC=CC>C>R  BU AREPLACEIN ATOREPLACE AREPLACEWITHPOSNAMEQSTRING%CEJERCONK"BC_C- %XCLOjo, se intenta renombrar la tabla ejercicio sin posicionar EJERCON, fallarxUAOLDNAME REPLACESTREJERCONDIRP_GBL TECHNOCHECK=%C! B 6 BCUAFECHAF%DBF) B ? BCUAFECHAP_GBLDBTYPEF%DBF) B ? BCUAFECHAP_GBLDBTYPEQSTRINGQSTRING T%CCTCCf%C nB%C TC F  TC%CQ CC% FUATBLNAME LOSAVEALIASISDBFP_MAPPER CLOSECURSORGETACTIVESESSIONUR QBOOLEANQSTRING TCLOSE &loMacro UALLCONNECTIONSTOCLOSEP_MAPPERCLOSEALLCURSORSLOMACROU D%C,CQ @  NUISDBFSLEEPP_MAPPERCLOSEALLCURSORSVQINTEGER%C4CQ OCU AIDSESSIONISDBFSLEEPP_MAPPERCLOSESESSIONCURSORSQSTRING%%CZZ_ rC;falta ZZ_ en el nombre de la tabla usada en la sentencia : # posiblemente en un _Useconditionx"TCZZ_UACOMMANDP_GBL TECHNOCHECKhQSTRINGQSTRINGQSTRINGQBOOLEANQSTRINGQINTEGERQBOOLEANQSTRINGQINTEGER%CC T%C ,TUse  alias XX_&loMacro >TSelect * FROM XX_ INTO CURSOR ZZ_&loMacro 0T INTO CURSOR  READWRITE&loMacro C TC .Ca UATBLNAMEACMD AALIASNAMEANODATAAORDER AWORKAREA AEXCLUSIVELOMACROLOIDDATASESSIONISDBFREPLACETABLENAMEGETACTIVESESSIONP_MAPPER OPENCURSORKQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANQSTRING T%Cv%CNT IN CZ%CCT ORDER %CCT ALIAS TUse %dT Exclusive&loMacro *C--C U ATBLNAME AALIASNAMEAORDER AWORKAREA AEXCLUSIVELOMACROISDBFP_MAPPER OPENCURSORGETACTIVESESSION.QSTRINGQSTRINGQBOOLEANQTCURSORADAPTERGES%CvC )TC-a-CU ATBLNAME AALIASNAME AEXCLUSIVELOCUADISDBF_USEP_MAPPER OPENCURSORGETACTIVESESSION:.QSTRINGQBOOLEANQSTRINGQSTRINGQSTRING&%CC C> TC%CT SET ORDER TO %T Descending &loMacro 3%C>/CCU AINDEXNAME ADESCENDING LOTBLNAMELOMACROISDBFP_MAPPERSORTGETACTIVESESSION5QSTRINGQSTRINGQSTRINGQTCURSORADAPTERGESQSTRINGQINTEGER TSEEK "" &loMacro '%   C  . TCTCC *%C C C  *TCWHERE CfWT SEEK Tabla: C Alias: C  TipoFiltro: C % C  ,TC CC>R TC  !TC Cond:  CU ACONDITIONLOMACROLOALIASXCALOLOG LOPOSWHEREP_CANCELSHOWSTACK P_CANCELLOGISDBFP_MAPPERFINDCAGETACTIVESESSIONISNODATA ISFILTERED SELECTCMD BASETABLE FILTERTOSTR FILTERTYPEDEBUGSHOWSTACKQSTRINGQTCURSORADAPTERGES%CC TCCC%C C Buffering&aMacroIndex C Buffering &aMacroIndex U AMACROINDEXLOCAISDBFP_MAPPERFINDCAGETACTIVESESSION3QINTEGERCC TUAERRORP_MAPPER STARTTRANGETACTIVESESSION8 QSTRINGQINTEGERCUAERRMSGAERRNOP_MAPPER COMMITTRAN;%CC> C C UP_MAPPER ROLLBACKTRANREFRESHALLCURSORS UP_MAPPERREFRESHALLCURSORSiQSTRINGQTCURSORADAPTERGESTCC%C b UAALIASLOCP_MAPPERFINDCAGETACTIVESESSION RECORDREFRESH CCU_REFRESHRECORDTABLEk4     uC UPCLA1LA2LA3LA4LA5LA6LA7LA8LA9LA10LA11LA12LA13LA14LA15LA16LA17LA18LA19LA20LA21LA22LA23LA24LA25P_MAPPERPREPARETOLOCKFILESiQSTRINGQTCURSORADAPTERGESTCC%C b UAALIASLOCP_MAPPERFINDCAGETACTIVESESSION CURSORREFRESHA%C<B C<<<UISDBFP_GBL_CLOSEALLCURSORSP_DATADP_MAPPERg C J(TC CollectionTTC TCommandGesU LOCKEDFILESTHISLISTCAKEYSORTWORKCMD  CUTHISCLOSEALLCURSORSgQTCURSORADAPTERGESQSTRINGQBOOLEAN TCfCCZC Ta(W% HC&Intentando crear un CA ya existente : , en la sesion CZC C $No lo creo ya que dejo vivo el viejoxC x< T- BU ACALOKEYSTRLORESULTALIAS SESSIONIDTHISLISTCAADDERROBJP_GBL TECHNOCHECKMESSAGE CCxU QSTRINGQINTEGERQSTRINGQTCURSORADAPTERGESTCfCCZ TC%CO T T BUAALIASASESSIONLOKEYSTRRESULTTHISLISTCA}QTCURSORADAPTERGESQINTEGERTCG(%Co FQ<UACALOSAVEIDSESSIONGETACTIVESESSION SESSIONIDALIAS QSTRINGQINTEGERQTCURSORADAPTERGESTC%C %C- CaCCfCCZC U AALIASASESSIONXCACLTHISFINDCAALIASARRERRLISTCAREMOVEUNUSEtQTCURSORADAPTERGES+mTC%C$%C- %oC$Quisiste cerrar el cursor del alias 4 tena algo para grabar y no pude hacer table updatex  CaC%COiC U XCATHISLISTCACOUNTITEMALIASP_GBL TECHNOCHECKREMOVEUNUSEQINTEGERQINTEGERQINTEGERQTCURSORADAPTERGEST(TC% C %COC U AIDSESSION LOCOUNTCAICAXCATHISLISTCACOUNTIITEM SESSIONIDREMOVEUNUSEQBOOLEANQSTRINGQSTRINGQSTRINGQBOOLEANQSTRINGQINTEGERQBOOLEANQINTEGER QINTEGER QSTRING QTCURSORADAPTERGES QTCURSORADAPTERGES%CNT C G(G+(_ucursoradapterges%m-T CTCursorAdapterGesN )T CTCursorAdapterGesNT C  T  %C %CN% C'Workarea <> 0 y eso no puedo resoverlo.C C  WA : CZ - Tabla :  - Alias : C C  Sigo de todas formas !!! x %CC> CCC %C \&%CC C> OC  B T  C B   <  %C  F  s%otCTengo un CA para el alias : A pero el cursor no EXISTE !!!!. Lo cerraste sin hacer un _close()x B U AISCONDITIONATBLNAMEACMD AALIASNAMEANODATAAORDER AWORKAREA AEXCLUSIVEAIDDATASESSIONLOSAVEIDDATASESSION LOOLDALIAS LOCAEXISTXCAGETACTIVESESSION_UCURSORADAPTERGESTHISFINDCAALIAS SESSIONIDP_GBL TECHNOCHECK_CLOSEOPENADDCA SETORDERTOUNUSE=QSTRINGQINTEGERQSTRINGQBOOLEANQTCURSORADAPTERGESTC%C C % YCIntent ordernar el alias % pero no encontr el CA en la sesin CZxU AALIASASESSION AINDEXNAME ADESCENDINGXCATHISFINDCA SETORDERTOP_GBL TECHNOCHECKQSTRINGT,Update EntLock with (Rowlock) set Proceso = 'PROC' ,  Terminal = ''' FROM EntLock with (index=U_TT) Where (/T Tabla = 'C' OR BCC>=ULOCMDP_GBL TERMINALIDITHISLOCKEDFILESCOUNT LOCKEDFILESQSTRINGRTEUpdate EntLock with (RowLock) set Proceso = '', Terminal = '' Where ((0T Tabla = 'C' OR 7BCC>= ) AND Terminal = ''ULOCMDITHISLOCKEDFILESCOUNT LOCKEDFILESP_GBL TERMINALID4%-CCUTHISLOCKEDFILESCOUNTWORKCMDEXECUTE LOCKCMDSTRak4     TTCTCTCTCTCTCTCTCT C T C T C T C T C TCTCTCTCTCTCTCTCTCTCTCTC%LCTaUPCLA1LA2LA3LA4LA5LA6LA7LA8LA9LA10LA11LA12LA13LA14LA15LA16LA17LA18LA19LA20LA21LA22LA23LA24LA25THISLOCKEDFILESCOUNT LOCKEDFILESFN_AREA PREPAREDLOCKSCCUTHISWORKCMDEXECUTE UNLOCKCMDSTR. J(TT-U LOCKEDFILESTHISLOCKEDFILESCOUNT PREPAREDLOCKSQINTEGERTG(,%   1C%Heeeeyyy TRANSACCION sin loqueos !!!!xC  U ATRANSACSESSIONIDTHISTRANSACSESSIONIDP_GBL TECHNOCHECK PREPAREDLOCKSLOCKEDFILESCOUNTP_DATADADOCONN BEGINTRANS LOCKFILES@)QTCURSORADAPTERGES9CaUCAGTHISLISTCAALIAS QSTRINGQINTEGERQINTEGERTC)QTCURSORADAPTERGES)%C- C zTC JTALIAS : C C C  C C C B-BaU AERRMSGAERRNOLOACTIVESESSIONGETACTIVESESSIONCAGTHISLISTCA SESSIONIDALIASERRARRAYp QSTRINGQINTEGER T T %CC  ;CERROR durante la transaccin : CZ xCa ( iT T Ca *;CERROR durante la transaccin : CZ xU AERRMSGAERRNOTHISSTARTUNLOCKFILES UPDATEALLP_DATADADOCONN COMMITTRANSENDUNLOCKFILES ROLLBACKTRANOERRERRORNOMESSAGEnQBOOLEAN &  gC%Y  U REFRESHLOCKEDTHIS REVERTALLP_DATADADOCONN ROLLBACKTRANSREFRESHLOCKEDCURSORSENDUNLOCKFILES:)QTCURSORADAPTERGES3 UCAGTHISLISTCA CURSORREFRESHQSTRINGQINTEGER(%CaB- %CBaB-U ABASETABLELOITHISLOCKEDFILESCOUNT LOCKEDFILESQINTEGERTC)QTCURSORADAPTERGES(%C { U LOACTIVESESSIONGETACTIVESESSIONCAGTHISLISTCA SESSIONIDISLOCKED BASETABLE CURSORREFRESHgQINTEGER)QTCURSORADAPTERGES`%\ U AIDSESSIONCAGTHISLISTCA SESSIONID CURSORREFRESHIsDBF0Sleepfn_area GetConnectionGetActiveSession DebugFree DebugShowSessDebugShowAllAlias _RepareFields ReplaceStr< RenameTbl _DToS* _DToTw _TToD _CloseA _CloseAll _EndData _CloseAllCursorsJ _CloseSessionCursors ReplaceTableNameg _UseCondition^_Use _UseNoData  _SetOrderTo$_SEEK_IndexOn _StartTran _CommitTranM _RollBackTran_RefreshAllCursors"_RefreshRecordTableT_RefreshRecord _LockFiles1_RefreshCursor_ReleaseSystemSQL|InitDestroy AddCA  ShowAlias"FindCA"UnUse# CloseCursorx$CloseAllCursors%CloseSessionCursorsb' Opencursor(Sorti. LockCmdStr/ UnLockCmdStr31 LockFilesj2PrepareToLockFiles2StartUnLockFiles7EndUnLockFiles[7 StartTran7 RevertAll9 UpdateAllf9 CommitTran: RollBackTran<RefreshAllCursors=IsLocked'>RefreshLockedCursors?RefreshSessionCursors?O T T  T T- T $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < =ULISTCAWORKCMD LOCKEDFILESLOCKEDFILESCOUNT PREPAREDLOCKSTRANSACSESSIONIDTMapperCustomE?1Br4!R3raAA32 A!qA33rA33!!!!A3"AA!QQq!AA3!"1A4!!AA7qA3qA3qA3!AA1AABAQA1A33q3AAB3!AA3R!A!:!rAA8AqAqAqAAD6BB3bABAQAA3!sqAAA43q!AA5!3Q3BA33!A33Q3!A3qAAqqq1133!!qAA36rQqAA3!AAAq4!AB3A!AAAqAA3!!!2qqAAA<j#rAAr1 AAAAyaAqAAA!AAAF3!Q!AA6AA3!Ar3cqA3bA3q33!A3A3!qABq3AAA8!AA3A3!qqAAAq3!AA7!qAA3 00    8T so ~ .) G, R3 [6 `AoOTXcaDhQ*o7vq~j$w$)+!6+-T-70dD04{4-6>666F7l78"E8a8$n839+d99-9%;02;;7<<A-??G @@J@C[DCzD]DF"kFG6uGIC JILSsL@NfoNZw'Z[\_;`6bxbb8c h`hhh1i"Bi=k'"kk6& lq;3-q(uNIMuvqTw[w~Xwxe3yzm&{{t=-| %  p# IOX|*N)Q ENTIDADESsys_entidades.prgTC EntidadesN BU OENTIDADES SYS_ENTIDADESPRG_2CClienteCLIClientesCod_Cli4C ProveedorPROProveedoCod_Pro1CArtculoBIEBienesCod_ins/CAgenteAGEAgenteCod_Age/CFletesFLEFletesCod_Fle.CBultosBULvBultosClave2CSucursalSUC VSucursalESIDaUOENTS CREAR_ENTIDAD)Q ENTIDADESsys_entidades.prg-TC Entidadessys_entidades.prgTC%C xOEntidadbOCUXTABLA XCODIGO_REAL XOENTIDADOENTS SYS_ENTIDADESPRGTABLA_A_ENTIDAD SETEAR_CODIGO*TC CollectionN UTHIS ENTIDADESCREAR_ENTIDADESaM%CCfCCfI B BCUXTABLAOENTTHIS ENTIDADESTABLAOBTENER_GENERICAaM%CCfCCfI B BCUXENTIDADOENTTHIS ENTIDADESENTIDADOBTENER_GENERICAaM%CCfCCfI B BCUXCOD_ENTOENTTHIS ENTIDADESCOD_ENTOBTENER_GENERICA# sys_entidades.prgUCREAR_ENTIDADES SYS_ENTIDADESPRGTHISL2CCEntidadNUXENTIDADXCOD_ENTXTABLA XTABLA_CODIGOXCODIGO_FORZADOTHIS ENTIDADESADD# BCEntidadaNU~TTT T T T U XENTIDADXCOD_ENTXTABLA XTABLA_CODIGO XGENERICAXCODIGO_FORZADOTHISENTIDADCOD_ENTTABLA TABLA_CODIGOGENERICACODIGO_FORZADO"TCUXCODIGOTHIS CODIGO_REAL NORMALIZARO 2(TCC. < BUTHIS CODIGO_REAL NORMALIZARTABLA TABLA_CODIGOH CxValorbC= B CxValorbNf BCCZ CxValorbD BC* CxValorbT BC CxValorbLBC106 BUXVALORCrear_EntidadesObtener_entidadINIT-Tabla_a_EntidadEntidad_a_Tabla"Cod_Ent_a_TablaCrear_Entidadesl Crear_EntidadObtener_GenericahINIT Setear_CodigoObtener_Codigo normalizarT T-       U ENTIDADES T T T T T T- T- UCOD_ENTTABLA TABLA_CODIGOENTIDAD CODIGO_REALGENERICACODIGO_FORZADO EntidadesCUSTOM EntidadCUSTOM 2q)A!4QA52qqAAA2qqAAA2qqAAA22q!2=2q2A2qA231 Y%)!3*w=3G5 J8 N: \B - eET iK GpZ6 #cE QT %!!|X*U QHLPABM2 clases.vcxTTTTTT  T  T  T  TTTUOHLPCLASESVCXTHIS NOMBRE_VISTA DOS_SCATTER DATASESSIONIDXOLDDS DOS_TABLA DOS_IDXCLAVE DOS_CLAVEDOS_CLAVE_FORMULADOS_AGREGA_SI_FALTADOS_AGREGAR_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRM%C84 T-UTYPEOTHISESPEJOSOESPEJORELEASE OFORMULARIO TC CollectionN %NT kT % !TCdos_mirror_objetoNT  T TCUTHISESPEJOSOESPOCOLLP_ESPEJA_TODASGESFORMEMPRESASCOLECCION_EXTRA COLECCIONOEMPCODIGOP_CODEMPXEMPRESA OCONTROLADOR OFORMULARIOADD? TCF^J FUXALIASTHIS OFORMULARIO NOMBRE_VISTA DOS_SCATTERvTTC oC U XTABLAXALIASXCLAVEOPARTHIS OFORMULARIOXOLDDS DATASESSIONIDXOLDDBCESPEJOS DOS_SETDB_UNOb3CTG( U XALIASOPARTHISESPEJOSDOS_SETDBBACK_UNO OFORMULARIO DATASESSIONIDXOLDDSTHISFORMXOLDDBC:3CUXALIASOPARTHISESPEJOSDOS_MIRROR_UNOT-T-UTHIS OCONTROLADOR OFORMULARIOnE%CThis.oFormulariobOCThis.oControladorbO [T BUTHIS OFORMULARIO OCONTROLADORg%C(TSELECT &xAlias QG(T-UXALIASTHISXNEWDBCXNDS%CD$T TMPpDosMirr_CCZ%ClT%CxClavebL@%$CTHIS.oFormulario.idxclavebC %TTT "T  \data\CC ZT  \ges.dbcT CSessionN C %CSELECT &xAlias Q%"C  H<USE (THIS.xp_dos +"\" + xTabla) ALIAS &xAlias IN 0 AGAIN %SELECT &xAlias SET ORDER TO &xClave TUXTABLAXALIASXCLAVETHISXEMPRESA OFORMULARIO DOS_TABLA DOS_IDXCLAVEIDXCLAVEXSEGUNDA_TABLAXP_DOSP_SYSTEMXNEWDBCXNDSSETS DOS_VISTADOS_VISTA_ABRIR. #    T  TT T % T  T T T xixcodcla = &xdos_Formula xCod=&xixcodcla %C _ T  &T  fields EXCEPT %C  T  $T  fields Like %C   T  6T  fields  %!" T F ASCATTER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT BLANK MEMO "TC %,#$"TC &,#$(TCCT CC%C=.[ToSCD%C =.T oSCO &xaSTR1 = EVALUATE(xaStr2) %% T  TH  F BGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T'a  F  G(( E(%C4 N%5 F 9GATHER NAME oSCD &xFLDList &xFLDLike &xFLDEXCEPT MEMO T'a J T'- AGATHER NAME xdos_scatter &xFLDList &xFLDLike &xFLDEXCEPT MEMO T'a  F  G(( E(%C4  T'-  T'aC )U*XALIASOSCDOSCOXACOPIA XAVALORESXACOUNT1XACOUNT2NITXASTR1XASTR2XFLDLISTXFLDLIKE XFLDEXCEPTTHIS DOS_SETDB_UNOXTIPOABM OFORMULARIOTIPOABMXOP XIDXCLAVE DOS_IDXCLAVE XDOS_SCATTER DOS_SCATTER DOS_CLAVECLAVEXCLAVE XDOS_FORMULADOS_CLAVE_FORMULAXDOS_AGREGA_SI_FALTADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRP_DOSP_CODEMPODEYFUNCSPLIT_TO_ARRAY DOS_BLANQUEADOS_BLANQUEA_VALORESXOKXCODDOS_SETDBBACK_UNO Leer_HLPABM20RELEASE% espejos_crear Dos_GetData` Dos_SetDB Dos_SetDBBack Dos_MirrorRELEASEoFormulario_AccessLDos_SetDBBack_Uno Dos_SetDB_UnooDos_Mirror_Uno  T T- T T T T T T T T  T  T  U NOMBRE_VISTA DOS_SCATTER DATASESSIONIDXOLDDS DOS_TABLA DOS_IDXCLAVE DOS_CLAVEDOS_CLAVE_FORMULADOS_AGREGA_SI_FALTADOS_CAMPOS_EXCLUIRDOS_CAMPOS_LIKEDOS_CAMPOS_INCLUIRb T- T- T      UESPEJOS OFORMULARIO ODSANTERIOR T T T T T T- T-  UXP_DOSXNEWDBCXNDSXEMPRESAXALIAS OFORMULARIO OCONTROLADORDos_Mirror_DummyFormCUSTOMdos_mirror_controladorCUSTOMQdos_mirror_objetoCUSTOM?2111111111117aAAA2111Aa11AAA2q2q1AA2qrAA3qqAA;2QaA3qA"AQ3AA1AAA1A&!AAQ!A1!A2qq1221A2211taArAArA4#!AAQAQAB21AAA1Q!2QAA1AAA211 716^n$V,'y ?-+H56 Q=. ]CO  mF H qKs # xUH xy-j e%o <2*UQ T T T T T TU FIL_BASECLASS FIL_CLASSFIL_NAME FIL_TEXTO FIL_VALUE1 FIL_VALUE2 obj_filtroCustom,81$%, CVG*U   #TCC0 QCCZ RTCRTC =!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!T CC \g!T CC \g!T CC \g!T CC \g T( :TC%C Gc T TC 8  TTCCg8 BUXRESXEANXCODXVLDXSUM XVERIFICADORARR_EANZ validar_ean13,122""aAAb1% J kt {[bU+%Cborrar"FQ.h1borrarCC T T T TTn7X.BC%C F>CSuspendo T TT H;'XB T C F>BU BORRARCBLHXERRORXMSGXCODIGO_BARRASXLECTURA_HUMANAXNUM N14_A_DUN14MENSAJESYS_MXFIRST N13_A_DUN144  #TCC0QCCZRTC =TCR T T T "C  % T,TDifiere en "Lectura Humana" !!!% p T>T+Difiere el dgito verificador !!! Debe ser C % T  T (C >TC \ TCBU XERRORXMSGXCODIGO_BARRASXLECTURA_HUMANAXNUMXWIDEXC14XC13XDVZXTMPLHXDIGITO_VERIFICADORCODIFICAR_DUN144 +TCCZCC0 QCC Z RTC = T T T"C BU XCODIGO_BARRASXLECTURA_HUMANAXNUMXFIRSTXC14XC13XDIGITO_VERIFICADORCODIFICAR_DUN14XERRORXMSG4G+(i2of5TCI2of5NCT T T BU XERRORXMSGXCODIGO_BARRASXLECTURA_HUMANAXDIGITO_VERIFICADORXC13LOI2OF5 CODIFICAR CODIGOBARRA LECTURAHUMANADIGITOVERIFICADOR   #TCC0QCCZRTCRTC =!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!TCC\g!T CC \g!T CC \g!T CC \g!T CC \g!T CC \g T( WTC%C G T TC 8  TTCCg8 BUXRESXDUNXCODXVLDXSUMARR_DUN XVERIFICADORZ n14_a_dun14< n13_a_dun14codificar_dun14 validar_dun14xqAAR2ArQqRRrQqB3y3!!"3A2AAAB21!"B2rRB22""aAAb3 /73  \A2 n sK j %ZbA\HY$+o% T-T Ca HI~ Cg T 2~ TG+( dey_filters%Cconver2 Qconver2%Ctcccomp Qtcccomp%Ctcompras %Qtcompras T CC]RT CC]RTCC]RTC%CconsFQQCONSF%%T TC \%8 T XTCCD$T!empty(movstock.codigo)"%CX CX 9T( and BETW(movstock.deposito,xddep,xhdep)%&-T and movstock.despacho=xdser+T .T.C"#xcod_cli!+T$.T.C&'xcod_pro%%() 7T& and inlist(movstock.causa, "M", "R")%C* /T AND MOVSTOCK.Despacho=xDLote N+in_mantenimiento.prg TMP_Inicial./ %-,M El tema es as:b\ Siempre se toman los inventarios iniciales de conver desde in_mantenimiento.prg (empresa 1)F@ Toma la fecha de comienzo de inventario de CONS.DBF (empresa 1) Para cada empresa Si se lo pide histricoPJ Se seleccionan todos los movimientos desde la fecha desde a tabla TODOS  sinoWQ Se toman los movimientos desde la fecha de comienzo de inventario. Tabla TODOS  finsi fin para& Se combinan en otra tabla TODOS Si se lo pide histrico Se la copia MOVIMIENTOS  sino& si se pidi con saldo anterior} Se seleccionan todos los movimientos anteriores a max(desde, fecha de inventario inicial) de cada artculo. TABLA ANTERIOR  fini|v Se seleccionan todos los movimientos posteriores a la fecha de inventario inicial de cada artculo TABLA MOVIMIENTOS  finsi%C10C1 T23C0C C40T332 C4 !Q5\tmp\  %P FQ5\tmp\ 6rtodoso tmp_final2F & 77 9%:B F !~.; /; > H :  .; 4>;CC.;C;C.;=;6 /;: 4>;CC/;C;C/;=;6)otodos7 MOVIMIENTOS% otodosSALDO ANTERIORQ= > ? @C AQAC2XQB > ? @QC7 >?@anterior ~ FG((codins ED>FFG((codigoED>D@FHG((codigoED>D?TTICB CCHBCHB6 CCFBCFB6FD >BIFDnoanteriorX MOVIMIENTOS D>D?D@<><?<@DC<> 15\QF<5\%E Jo MOVIMIENTOS>?@CAQA>?@q1FK& >?@KF<G-(>?@KKAF<& >?@C77TL>?@ TM ~ %L>?@ TL>?@ TMTMMA >NM%o MOVIMIENTOS>?@BCAQAOPQR>?@B>?@B cur_tmp_movSA((5\tmp\rptmovcondetQR%C cur_tmp_movFSQF Q5\tmp\ .*%dF6Q5\tmp\ .*BUU XRESUMIDOXARTXSOLO_CON_SALDOXDCONEXISTE_EMPRESAP_DOSXDBIE XTIPO_LIS DEY_FILTERSCONVER2TCCCOMPTCOMPRASTODOSTODOS1TODOS2 XANTERIOR XPATH_INICIALODEYFUNCNEWFILE_LOCAL_TMPCONSBIENESXDINIXDHISXFECHA_COMIENZOOCIERRESCIERRE_STK_INIXDFECFILTROXDDEPXHDEPXDSEROLOTDATA_CODIGO_VACIOFFCLIFIL_GET_CLI_FILTERXDCLIXHCLIFFPROFIL_GET_PRO_FILTERXDPROXHPROXDMOTXHMOTXDLOTETOMAR_INVENTARIO_INICIALIN_MANTENIMIENTOPRGXDBULXDATR OPEN_FILESP_UNO OLD_XSCANXSCANP_CODEMPP_LOCAL TMP_FINAL2FECHAFORBORRARXFILTRO_SUBINDICE_LOTESDESPACHO MOVIMIENTOS COMPROBANTCODATRBULCANTIDADDESCR CODATRBULANTERIORCODINSBULTOSCODIGOATRIBUTO XDESCRFULLDISTINCTQ1XCODXACCSALDOLINEADLINEAGRUPODGRUPO CUR_TMP_MOVIN4T\data\CCZ C gesFQbienescodinsFQbultoscodigoFQatributocodigoFQdepositoFQmovstockFQCONVERCONVERFQproducciFQclientescodcliF QproveedocodproF Qventasven_facF QcomprasF QmotinvF Qtr04tr04FQdespachoFQccventccvordF Qdesp%CcccompFQQcccompF Qdesp%Ctcccomp]FQQtcccomp%CtcomprasFQQtcompras%Cconver2FQQconver2UXEMPRESAP_SERVERP_SYSTEMSETSGESBIENESCODINSBULTOSCODIGOATRIBUTODEPOSITOMOVSTOCKCONVERPRODUCCICLIENTESCODCLIPROVEEDOCODPROVENTASVEN_FACCOMPRASMOTINVTR04DESPACHOCCVENTCCVORDDESPCCCOMPTCCCOMPTCOMPRASCONVER2 TaT C T C T C :T*C  C  a6 B U XCAUSAXRETFILTRO_CLIENTETODOSCODPRCLFILTRO_PROVEEDO FILTRO_CAUSACAUSAXDMOTXHMOTMOTIVOr%.T.Z%CERETURN &ffcli VB- kBaUXCOD_CLIFFCLITODOSPROCLIv%.T.^%PIRETURN NOT &ffpro ZB- oBaUXCOD_PROFFPROTODOSPROCLIY%CBaH4R 9BC S M    BVcr BV Bc Br B)BCM    cBP BM  BM    BM    BM    ABM I 2RBaUXCAUSAXDOPECCCOMPRECEMOTINVTIPOCONVERCAUQ4+C,?TCC,[ BCgUXSTR4%C;T%C\ TC$1QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx rptmovcondetT\xchgTT  TT T a%p T - T -T CBUXTABLAXDFECXHFECXSOLO_MOVIMIENTOSXDFULLOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG1XDLOG2XDLOG3XDLOG10 EXP_TABLA4TC %CxdepbLaTCX1QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx rptmovcondetT \xchgT T  T T C$TTTT Ta TaTT CBUXTABLAXCODXATRXBULXLOTXDEPXDFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXHFECXDBIEXDATRXDBULXDSERXDLOG1XDLOG3XDDEPXHDEP EXP_TABLA  T+ TTC6T9 CZ-C*--&C U XCOD_INSXATRXBULXLOTXDEP XTIPOHISTORIAXOLDTIPOHISTORIAXDFECFECHA_TIPOHISTORIACAPTIONCONSULTA_DETALLE H ?TC$] nTCCC$iCC$HCC$%$ T BU XTIPOHISTORIAXDFEC\4TC %CxlotbL_ T%CxdepbLTCX%C tmp_verstockFQTC]5 T  \tmp\7 sql_rptmovcondet Q 3 QGRILLA_FORMATOform_controles.vcx3T Cgrilla_formatoForm_Controles.vcxT  tmp_verstockC.fechaFecha -C .comprobant Comprobanten )C .depositoDepsito< %C .despachoLoten LC .cantidadCantidad 999,999.99 999,999.99 FC.saldoSaldo 999,999.99 999,999.99 #C.empresaEmp -C .comentario Comentario %C.nombreNombre 'C .motdescrMotivo $C.dusrUsuario psys_browse_movstock  tmp_verstockMOVIMIENTOS DETALLADOS%C tmp_verstock>FQ .dbfBUXCODXATRXBULXLOTXDEPXDFEC XTIPOHISTORIA TMP_VERSTOCK XTMP_VERSTOCKXTABLAP_LOCAL EXPORTAR_2SQL_RPTMOVCONDETOGFFORM_CONTROLESVCXOEV SQL_ALIASFOR_ADD_COLUMNASYS_BROWSE_MOVSTOCK COLUMN_COLL+ %C %CC oT^BETW(movstock.codigo+DTOS(movstock.Fecha),xdbie+DTOS(xfecha_comienzo),xdbie+DTOS(xhfec)) and  %C C mTِBETW(movstock.codigo+movstock.bul+movstock.atr+DTOS(movstock.Fecha),xdbie+xdbul+xdatr+DTOS(xfecha_comienzo),xdbie+xdbul+xdatr+DTOS(xhfec)) and  %CC TtBETW(movstock.codigo+DTOS(movstock.Fecha),xdbie+DTOS(xfecha_comienzo),xdbie+DTOS(xhfec)) and movstock.atr=xdatr and  TtBETW(movstock.codigo+DTOS(movstock.Fecha),xdbie+DTOS(xfecha_comienzo),xdbie+DTOS(xhfec)) and movstock.bul=xdbul and  STBBETW(DTOS(movstock.Fecha),DTOS(xfecha_comienzo),DTOS(xhfec)) and % \T and iif(causa$[Vcr], C val(substr(movstock.numero,2,2)) , .t.)%   AT0 and xdlin<=bienes.linea and bienes.linea<=xhlin%   SAT0 and xdgru<=bienes.grupo and bienes.grupo<=xhgru% (T and bienes.marca=xdmar%T.t. 7T*movstock.fecha>=nvl(tmp_inicial.fecha, {})H  jT]movstock.codigo+movstock.atr+movstock.bul=tmp_inicial.cod_ins+tmp_inicial.atr+tmp_inicial.bul +Tكmovstock.codigo+movstock.atr+movstock.bul+movstock.deposito=tmp_inicial.cod_ins+tmp_inicial.atr+tmp_inicial.bul+tmp_inicial.dep_ing T٪movstock.codigo+movstock.atr+movstock.bul+movstock.deposito+movstock.despacho=tmp_inicial.cod_ins+tmp_inicial.atr+tmp_inicial.bul+tmp_inicial.dep_ing+tmp_inicial.despachoSELECT movstock.codigo AS cod , movstock.atr AS atr , movstock.bul AS bul , PADR(bienes.DESCR,40) AS DESCR , bienes.codalt1 AS codalt1 , movstock.fecha AS fecha , movstock.causa AS causa , movstock.numero AS numero , SPACE(15) AS comprobant , movstock.deposito AS deposito , movstock.cantidad AS cantidad , 0000000000.00 AS saldo , movstock.seried AS seried , movstock.serieh AS serieh , movstock.despacho AS despacho , NVL(bienes.importado,"N") AS importado , NVL(bienes.series,"N") AS series , movstock.ITEM AS ITEM , SPACE(200) AS comentario , STR(xempresa,3) AS empresa , SPACE(6) AS codprcl , " " AS procli , SPACE(40) AS nombre , 00000000000 AS motivo , SPACE(40) AS motdescr , .F. AS borrar , .F. AS saldo_ini , movstock.codigo+movstock.atr+movstock.bul AS codatrbul , PADR(ALLTRIM(movstock.codigo)+IIF(EMPTY(movstock.atr),"","/")+ALLTRIM(movstock.atr)+IIF(EMPTY(movstock.bul),"","/")+ALLTRIM(movstock.bul),23) AS codfull , 00000000000.00 AS importe , 00 AS moneda , SPACE(3) AS montxt , 0000000000 AS importac , 000 AS usr , SPACE(40) AS dusr , SPACE(30) AS ddeposito , SPACE(8) AS depori , SPACE(30) AS ddepori , bienes.linea AS linea , lineas.DESCR AS dlinea , bienes.grupo AS grupo , grupos.DESCR AS dgrupo , bienes.marca AS marca , movstock.hora AS hora , 0000000000 AS pedido FROM movstock LEFT OUTER JOIN bienes ON movstock.codigo=bienes.cod_ins LEFT OUTER JOIN tmp_inicial ON &filtro_ini LEFT OUTER JOIN lineas ON bienes.linea=lineas.codigo LEFT OUTER JOIN grupos ON bienes.grupo=grupos.codigo ORDER BY movstock.fecha, movstock.hora WHERE &filtro1 AND &filtro2 INTO TABLE (p_local+'\tmp\'+todos) Q\tmp\Cscan T~+$CdepositodepositoF> TTCX T%C%STSER: % STDSP: TLOT:TC %!M !R F"G((CONVEREC%$F# G((movE%C'Z!>(#()#*F,G((codigo E#.$%,/ ,0 >1a TFT2 >3H+(0 !M ,/ #( *% "4  "TCC"5 C#5%CMOTINV+ TC, F#%6r-"TRE:C#7  %C8p$TMOV INT C8 %,9&TPROD:CC#:Z 2TCMV:CC#;@z 9999,999,999_F><CC#= #=CC#> #>66?CC#= CCC#> P66.#.@,,%A.B "C %Cpickings Qpickings%Ctccvent Qtccvent)%C"Cpickingspicking(%CDFtccventtccvord,><E=?CFDF  J !R!M ,/  !M #(  -TCC#7 OC:C#766TC#( IMP:CC#(Z65TCC#8 RE:C#86>TCC  - 6CC"5 C#52TCMV CC#;@z 9999,999,999_Fa><CC#= #=#>6?CC#= CP6.#.@,%#6R3%CCC#7,gtcccomptcccordF><G>?P THFIG((REFORDENEC#; ZC#'Z TK-8+C+ %7CLZC#; ZC#'Z %MM0THHCCH OP:/6CCINZ TKa%OF%#( Q>P#QR#RSCC#RTC#RUERR6 {Q>PIVRIRSCCIRTCIRUERR6FIH%K FIG((REFORDENEC#: ZC#LZ%C4n TK-8+C+ %7CLZC#: ZC#LZ j%MOb0THHCCH OP:/6CCINZ TKa%O^F%#(Q>P#QR#RSCC#RTC#RUERR6 SQ>PIVRIRSCCIRTCIRUERR6FIH %O%#(Q>P#QR#RSCC#RTC#RUERR6 FWG((ORDENITMEC#:ZC#LZFQ>PWVRWRSCCWRTCWRUERR6T HF% %"4  !Vcdr FY%!rNG((ven_facE%! sG((remito E%FYG((ven_facF\G((codcli EY=F^G((ccvfacE%!9><^=?C)^)FYFF%Cclientes+ %` TC!rYaYb FC Ya - 6C!r YF PD CCYFZ - 6C!r C^7 OC C^7 - 6Cc  \d6 TC!rYaYb FC Ya6C!r YF  - PD CCYFZ6C!r C^7 - OC C^76 TAnulado]TCC!V FC 2C!d ND C!c NC RE 666C%F%O %!r FYG((CPBTITME%!C'Z%C4 >PYVYfd ^gd ^hd ^id ^jd ^kd RYRSCCYRTCYRUERR6  %YaYb FYG((ven_fac !C# TTCOP C%TlCCC%,gTm'Uocccompcomprasn>n)IVIfd Ihd Iid Ijd Ikd Iod ngd nhd nid njd nkd QPIRCCIRTCIRUERR6QSnNIN nNl Ipm q% "X><Cq?P)CqPCqRCqSCq # !P %Fr G((PRODECC%=g_TART: Cr-CCrt  / rt6CCru  / ru6%Cr[$ATvCC/%CC%C/%[g6%v+$!Tw producci.remCCvZ Q$Twproducci.remitoTxCCwΛ%Cx$"T Remito: CCwΛTCPR C%>)$CrdepositodepositoF>yr>z !T~%T TransferenciaTCPR C%>) !A%TArmadoTCPR C%>) !Fl& TTCFC C%F^G((ccvfacE%!><^=?C>)^) !D'T{C%,F^G((ccvord E{ T%C4i'F}G((pedido E{%C42'2T Despacho CC}@z 999,999,999_TCFC ^aF>=^= ' TTCFC ????>) !K("TSalida por expedicinTCPD C%>)F%C(F G((dsp E T-+C+  (%( Ta!H%(FG((codpro E>TC!FH)) ?C`)F\G((codcli E<F>d\d ?P)FG((codpro E<F>dd>CCC C> !RM Cd & PROV: [C>] Cd6%Cusuarios h*Q \usuarios"C)usuarioscodigoF%Cusuarios+ *>FG((codins EFG((codigoEuFG((codigoEtTTC CCC6 CCC6F >FQUXEMPRESATODOSXDBIEXDBULXDATRFILTRO1FILTROP_DOSSYS_DOSCEN_INLISTXDLINXHLINXDGRUXHGRUXDMARXDHISFILTRO2P_INV_INI_POR_DEPOSITO FILTRO_INIP_LOCALSYS_MXACCXSCANFECHAXDFECDEPOSITO DDEPOSITODESCRXCOMENTXCOMPROBXDSPLOTDESPACHOSERIES IMPORTADOCAUSACONVER2CONVER STR_A_NUMNUMEROMOVITEMIMPORTACUSRUSR_BAJAINMOTINVCODIGOMOTIVOTIPO TIPOAJUSTE SALDO_INICANTIDADSALDOFLAGCOMENTCAUREFREF2CON_OPORDENTRANSFCODPRCLCOD_CLICOD_PROPROCLIMOTDESCR P_PICKING P_PICKING_MOTID_NUMPICKINGSTCCVENTPEDIDOTCCCOMPXOPSCOMPRASREFORDENENCREFITMREFCAUSAOPXDFULLIMPORTEFOBMONEDAMONTXTMM_MAX MM_MONEDACOS_LIFOTCOMPRASORDENITMVENTASVEN_FACREMITOCLIENTESCODCLICCVENTCCVFAC XTIPO_LISFAC_VENREM_VENXDTIPNOMBRECPBTITMDES_INSDESC1DESC2DESC3DESC4DESC5XOPXITMCCCOMPDESCXOITM ARR_TMP_TODOSPRODUCCIPRODATRBULXSUBZZXREMITODEPORIDDEPORIAAACCVORDDESPDSP XENCDESPACHOCOD_INSCODPROVEEDOCODPROXBORRARANALIZA_FILTRO COMPROBANT COMENTARIOBORRARP_SYSTEMDUSRUSUARIOSBIENESCODINSBULTOSATRIBUTO XDESCRFULL|41QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx rptmovcondetT\xchgT T  dTTT T TTT Ta T-T CBUXTABLAXCODXATRXBULXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDBIEXDATRXDBULXDLINXHLINXDLOG1XDLOG3XDOPE EXP_TABLA open_filesanaliza_filtrofiltro_clientefiltro_proveedo filtro_causa' str_a_num exportar_1 exportar_2amostrar_detalle_loop fecha_tipohistoria4"consulta_detalle"todos7( exportar_3XAAR1A1AAAtQQQrWqAAr2AbAAD"AaAqA"AAaaa!aaaaqaaaaa1aaAA!!!AqAqAAAAAAA qr1r1BrAqBtABrarqBuRQAB "BqAArAqAAB2qqqq1qrqAA!qAA1qAAAqAA13q3qaqqAqA3qaqQqAqA4qqA111111111111qA4qA2t1AAQ"AAB2AQ"AB2C"bbC41111A3AAqAArtB21Qa1QqAqAA2B3& RRAAA1AAAA1AqA11 1q AzACrQAAAA1ArrsAAArA#ArA!QAAaaAA!wAA1AAABIaQ#rt7rrAqaAqABAAsAqaArABAAbqqrAABAbBCsDABrrq1Arsr1r1 AAAqrr BEABqD]"CBr12AQ!AB"CrC"B2"B|1ABrr!ArA"B""BuQqAAAArBADqAqrAqrAA"q1Arr1r1BrBqA4Q"AB1l"/&S&[''( 9(((#. 8D..A>.1HW1i4mp4=6zg6O7w7==, %qGVN+qTC sys_conversorNTC%BCU XVALOR XRESULTADOXTRIMXLARGO XDECIMALESXFORMATOOCNV DATE_FUNCTIONCNV_NORMALIZARMTCC H@= CmTC N CAun no implementado T CAun no implementado D  CAun no implementado L= CAun no implementado BU XVALOR XRESULTADOXTRIMXLARGO XDECIMALESXFORMATOTHISCNV_NORMALIZAR_TEXTOMENSAJETC TC TC TC Ht C T CxValorbC%TC%TC CxValorbNTC @TCC9C QC.C9Q6 TC_%TC%TC CxValorbTTC CxValorbL5TC106 CxValorbDHb STC 2TC* CxValorbOBObjeto%TC BUXVALORXTRIMXLARGO XDECIMALESXFORMATOTHIS DATE_FUNCTIONcnv_normalizarCNV_Normalizar_Texto%TS  U DATE_FUNCTION sys_conversorCUSTOM5Q4AAAAAAA2q11111A1!A1!1A1!A1qAA1A41wA %-2:/Xv+]/  #CFacturacin automtica TC TC T CC$ T CC$ TCC3 $ TC 5TCTC%C5TC DatasessionvTCSessionN$TVE_FACTURA_INMEDIATAT G( C ve_pedido  ve_pedido ve_pedido 5 T- T T-% U4ve_factura_inmediata_periodo( j Ta%C%C%C C ! "C !%CR G(" G(1 T- G(BU#XFACPEDXFECEMI_EXTERNO1 XPERIODO1 XTIPO_FC_AUTXINICIAL XREP_ULTIMA XREP_MESESXRECALCULAR_PEDIDOXSILENTXSIN_IMPRESION XTIPO_PEDSYS_MXPERIODOXFECEMI_EXTERNO XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMPXPEDPATHTODSTOLDDSIDNAMETDSID DATASESSIONIDSETS OPEN_FILES VE_PEDIDORECREAR_TEMPCOMPXEXTERNO_ERRORXEXTERNO_ERRMSGXRESVE_FACTURA_INMEDIATA_PERIODOFI_OBTENER_PEDIDOSFI_MOSTRAR_FORMULARIOFI_FACTURAR_MARCADAS DEY_FUNC2 5 T%q?ve_factura_inmediata_pedidos(- TMPFACPEDIDOS 8ve_factura_automatica(- TMPFACPEDIDOSFG( BU XTIPO_FC_AUTXCATXRESVE_FACTURA_INMEDIATA_PEDIDOSVE_FACTURA_AUTOMATICA TMPFACPEDIDOS\ %C tmpfacpedidos1QCrfcotccventQXclientesQ   XrubrofacQ $-Q    Q  C Q-QCCXQCC(XQ % Ca 6  1Q,>a &  %'>a& & & BU(XPEDPATHXFACPED TMPFACPEDIDOSSYS_MMARCAPEDIDOFAC_VENFEC_VENTCCCOD_CLISUCTOT_VENIVA_VENREP_CANT REP_MESES REP_ULTIMACLINOMBRECATSUCFAC REP_NECESARIAREP_PROX REP_NECESSTOCKCREDITOGERENCIAARM_BLOQRFCRUBABREVRABREVDESCRRDESCRTCCVENTCLIENTESRUBROFACCODIGOEST_DESPXPERIODOFOR%4BC3 $%Cc T TBCCCiCH$U XREP_CANT XREP_MESES XREP_ULTIMAXPERIODOl C a Ta TaTC6TC6 T< 7 T  proc_stk T CSQ  sys_doscen\ges.dbc@ inicial.ges@ atrcan.ges ve_comienzo"T\tmp\CC]R ve_pedidoUSETS DEY_FUNC2P_DEV P_SUSPEND P_UNO_CFGP_CODEMPP_UNOP_OLDDOSP_DOS P_MIN_HORAMOVSTIMEPROC_STKCL_ATRDC_PUBLICAR_ARR_DOSCEN SYS_DOSCENP_SERVERINICIALGESATRCANVARIABLES_PUBLICAS VE_COMIENZO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOVE_FACTURA_INMEDIATA| 5 TFG((tccvord EF G((ped ETCC+CO6BUXFACPEDXPEDIDO BEG_TVENTASTCCVENTTCCVORDTVENTASPED C a Ta TaTCSQ sys_doscen \ges.dbc@ inicial.ges@ atrcan.ges  ve_comienzo"T\tmp\CC]R ve_pedidoCUXCATSETS DEY_FUNC2INICIAL P_SUSPENDOP_DEVCL_ATRDC_PUBLICAR_ARR_DOSCEN SYS_DOSCENP_SERVERGESATRCANVARIABLES_PUBLICAS VE_COMIENZO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOCREAR_PEDIDOS_CLIENTESc ve_comienzo"T\tmp\CC]R ve_pedido CUXCATVARIABLES_PUBLICAS VE_COMIENZO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOCREAR_PEDIDOS_CLIENTESr$oclientes% kgCUXCATXCODCLICOD_CLICLIENTESCATACLIXCAT CREAR_PEDIDO8 T TTC ve_pedido T  T  T  T T T T TF #FG((codigoECXCZrtempcompCS\(\?6CS\(\?6  T T  T! T"- T#- T$a T%-FQ{ T&Ccreara' aU(XCATXCOD_CLIXCOD_INS XFACTURADOSXTIPOPED XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMPRECREAR_TEMPCOMP VE_PEDIDOXPEDIDO_EXTERNOXCOD_CLI_EXTERNO XSUC_EXTERNOXSUCFAC_EXTERNOXREP_CANT_EXTERNOXREP_MESES_EXTERNOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCCFG_LISLISPRECCODIGOCOD_INS RECEPCIONLISPRECOS_LIFOTOT_COMPRECIOIVAINCTEMPCOMPMAX_PROD_EXTERNOMAX_DESC_EXTERNOXTMPCOMP_EXTERNOAUTDIRREAINMONERRSYS_MOSTRAR_SCREEN  T TTC ve_pedido T  T  T  T  T  T T T TErtempcomp  T T T T- T - T!a T"-FQ{ T#aU$XCOD_CLIXPRECIO XFACTURADOSXTIPOPED XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMPRECREAR_TEMPCOMP VE_PEDIDOXPEDIDO_EXTERNOXCOD_CLI_EXTERNO XSUC_EXTERNOXSUCFAC_EXTERNOXMOTIVO_EXTERNOP_ND_AUTO_MOTIVOXREP_CANT_EXTERNOXREP_MESES_EXTERNOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCCOD_INS RECEPCIONLISPRECOS_LIFOTOT_COMP_ND_AUTO_ARTICULOTEMPCOMPMAX_PROD_EXTERNOMAX_DESC_EXTERNOXTMPCOMP_EXTERNOAUTDIRREAINMONERRG+(listados$C=cargar_datos_fc_aut()a T TT T-T C % T  d  T F TTFG((codinsEC F%CtempcompNh # +CtempcompN > > >  >TC%SAFG((codigo ET C% SF G((codigo E!T C F >" ># >$ >%& >'( >) >*%C ,> + Q> +S">,C$%')->.C$)/F*>0 12F+CN34  BU5LISTADOSSYS_M XCANTIDADXDTOXLISTAXPRECIOTCCVENTLISTA XUSAIVAANTXIVAPERIVAPER TMPSRIFACCOD_INSPROV_CODPAIS_CODIMPORTEXACCBIENESCODINSOBIEDATA_CODIGO_LARGOTEMPCOMPBULATR RECEPCIONXDESCRDESCR ATRIBUTOSATRIBUTOCODIGOXCODXATRBULTOSXBULDESC_INS DCODATRBULCOS_LIFOCOEFXMONEDACOEFICXCAMBIO_EXTERNODES_INSLISPREIVAFIJOTOT_COMCALCULO_TOTAL_PS MO_TOT_COMCALCULO_TOTAL_MEOLDCODOLDATROLDBULMAX_PROD_EXTERNOMAX_DESC_EXTERNO T%K T hTC F~ tFT C   ve_pedidoTTTTTT T TC T  T! T"- T#- T$a T%- T&- T'%%()*)  T&a<T'/La moneda del pedido no coincide con el XLS !!!$%() (+ { T&a=T'0No est definido el tipo de cambio en el XLS !!!T,CC(-f T. T/ T0T1(2T3(4 T5T6C(7@%(4T8(9 Y C(4paisescodigoT8:;T<()T=(+ C> T? T@(A  T?FBQ%& 3a (>(C'%CH G(D%E_!T%E6C)Se han producido errores al facturar !!!C x% t%$/C"Se han actualizado los pedidos !!!C p%Cl-C Se han facturado los pedidos !!!C%C tmpfacpedidosQBUFXFACPED XTIPO_FC_AUTXRECALCULAR_PEDIDOXSILENTXSIN_IMPRESION XTIPO_PED XFACTURADOSXTIPOPED TMPFACPEDIDOSMARCA XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMPRECREAR_TEMPCOMP VE_PEDIDOXPEDIDO_EXTERNOPEDIDOXCOD_CLI_EXTERNOCOD_CLI XSUC_EXTERNOSUCXSUCFAC_EXTERNOSUCFACXREP_CANT_EXTERNOREP_CANTXREP_MESES_EXTERNO REP_MESESMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCFI_LEER_PEDIDOMAX_PROD_EXTERNOMAX_DESC_EXTERNOAUTDIRREAINMXERR_INI XERR_IN_MSG TMPSRIFACMONEDATCCVENTCAMBIOXI_NOMBRE_EXTERNONOMBREXI_DIRECCION_EXTERNOXI_CIUDAD_EXTERNOXI_ZIP_EXTERNOXI_PROVINCIA_EXTERNOPROV_CODXI_PAIS_EXTERNOPAIS_CODXI_PHONO_EXTERNOXI_EMAIL_EXTERNOEMAILXI_CUIT_EXTERNOCUITPAISESCUIT_FISXMONEDAXCAMBIO_EXTERNOCARGAR_DATOS_FC_AUTXTMPCOMP_EXTERNOXCTA_COB_EXTERNOCTAPAGOTEMPCOMPMENSAJETDSIDXEXTERNO_ERROR G(9 $%X!TC Debugueando ? m T- T-#CFacturacin automtica% 'es_sri_importar_facturacion( (Qc:\sistema\tmpsrifac Ta% !i1 tmpsrifac C!i1 tmpsrifac C!i1 tmpsrifac C  T a5  T C$ TT T!ve_factura_automatica(%FECCC - Inicio\log\facturacin automtica.txt ~QCCC - Cliente: C\log\facturacin automtica.txt%  TCX  RCCC - Comprobante: C\log\facturacin automtica.txt T -%C &>  CF%CN( ve_factura_automatica_resultadosBU ACTIVEFORM DATASESSIONIDP_DEV XDEBUGUEANDO MENSAJE_SINOXRESSYS_MES_SRI_IMPORTAR_FACTURACION TMPSRIFACCOMPROBMONTXTMENSAJEXINICIALXFECEMI_EXTERNO1XFACPED XPERIODO1 XTIPO_FC_AUTVE_FACTURA_AUTOMATICAP_SYSTEMNOMBREXCOMPROBANTE_EXTERNOVE_FACTURA_INMEDIATA MM_MONEDAMONEDA VE_FACTURA_AUTOMATICA_RESULTADOSfi_mostrar_formularioYfi_obtener_pedidos rep_necesariaK test_debug fi_leer_pedido crear_pedidos_debugZcrear_pedidos_menu@crear_pedidos_clientes crear_pedidocrear_ndcargar_datos_fc_autSfi_facturar_marcadasKfacturacion_automaticau(226""BrrrrAAAAAAA#BA"ABqaBB3q2Asa2A2QAB11!AA3AQrqq2ScD1b#Ar`1qrrB2qAQq2ScD1b#A4qc#A2qqA!!AA2rArrrA19rA]rA1"B2bArrBrQAA#rqBrqBrRrA"ssqAC2r5Ar1qA2ABAB!bABtA1AAAAAa1AAAAAA3AA2qAAr21qRB""eABr!ABAB36%P ]Bp nS ]8u'RH:l7VQ+"aA"((I(i0(0<f<C"%swLwMXY+H %%C Modo dev? T T T T T- Ta Ta%CxparamidbL T%C xparamcaubL T"%C xtipo_armadobL4 T RG(9 \,%C L   C5Es un comando de armado de pallet sin identificar !!!C 5Antes de armar el pallet debe iniciar el palletizado. B-%CoDeyFuncbOA  aG+(listados75TCTC"T\tmp\CC]R%Carm_tmpF Q! ve_pedido"T#\tmp\CC]R$ ve_armado#"T&\tmp\CC]R' ve_armado&! ve_armadoF(Q i1arm_tmp)C& *+,- T./ T01 T2 T3 T T T T T4 TTC] TC$ TC$ T T T5 T6 T7 T8 T9 T:-+a H  % %aj$ve_armado_numero(  T %A T%C< ! T%C= ! 4%#% CPA u%ve_pedido_consolidado(a H P T C T4 A 2 T %C= 0!  %t TC TC T?@T?A TBC% D T%44 E T4% ]Fa T%"TG?H ?I TG4 CformJ% | #C------- INICIO -------KKve_armado_data_v2(G#C------- FIN -------K  8ve_armado_data(GC finalizarJ%C= !  % z 'otempcompNOcur_finTQ &ve_armado_datos-v2(Q  T!%C= H   TTCUH  T . T T %T 7C"Se ha registrado el armado nmero CCZ % 0Vve_impresion_rotulosACCZ  !  !%C tmp_lotes, FXQ#.*BUYXPARAMID XPARAMCAU XTIPO_ARMADO XPOR_COMANDO XCON_PALLETXLOGIN_FORZADOP_DEV MENSAJE_SINO P_IN_SCAN_COD ACTIVEFORM DATASESSIONIDMENSAJE DEY_FUNC2LISTADOSXMAXFORMXFORMXRESXPEDIDO XPEDIDO_OLD XTEMPCOMP BEG_TVENTASXIDXFECHAXFECHA2XNUMARMA XNUMARMA_OLDXCONSOLIDADO_OLD XLOTESXIT2ODEYFUNCNEWFILE_LOCAL_TMP XASSEMBLIESP_LOCALARM_TMP OPEN_FILES VE_PEDIDO XTMP_LOTESCREAR_TABLA_PARA_LOTES VE_ARMADOXTMP_LOGCREAR_TABLA_PARA_LOGTEMPCOMPLOTECOD_INSATRBULCODIGOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYN XCONSOLIDADOXARM_COD XARM_PALLETXARM_EXH XARM_BULTOS XARM_CAJASXFINALVE_ARMADO_NUMEROVALIDAR_ARMADOWIZARDVE_PEDIDO_CONSOLIDADOCCARMADOFECHAFECHA2XUSR PUB_INDEXLEER_PD_ARMADOLEER_CONSOLIDADO LEER_ARMADOXPERMITE_AGREGARPEDIDOCONSOLSYS_M LOG_ARMADOVE_ARMADO_DATA_V2VE_ARMADO_DATA RECEPCION TEMPORAL1CUR_FIN XCOMPLETAVE_ARMADO_DATOSV2XOKREGISTRAR_ARMADOIMPRESION_ROTULOSVE_IMPRESION_ROTULOS TMP_LOTESK FG((tccvord ET%CcurZFQ1otventas  cur ~9T  T T T#listados  %< UoarmadoCQ      % TC  T  Torarm_tmp      FBUXPEDIDO XCON_PALLETTCCVENTTCCVORDXIDIDCURTVENTASPEDIDO RECEPCIONRECEP2XCODCOD_INSXATRATRXBULBULXDESCR ART_DESCRLISTADOSARR_ARMASUM CANT_ARMACANTIDADARMADOXXA TEMPORAL1DESC_INSORI_CANARM_TMPT BUXMAXCAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMTC TC %|F -C %C4 x BFG((G(5  T ve_Armado.prgT  Preparacin T . trsac ccarmadoarmado%  T  trsac  % P T-%FG((armado}(T TaFFFG(( T- Ta-~C C a6 F|> TaT F! G((idGEG 4+C+ !# ]rarmadol!#!!!$!%F!HF%%"%C ccarmado.exhbNrccarmado&'()*+,-./012345C667890 :; rccarmado&'()*+,-./01345C667890 : FG((armado E%C4>'4(5)C6*6+7,8-9./00 1:"%C ccarmado.exhbN >2; /C"No se pudo encontrar el armado !!!< T=%=##>?C ZG T @trsac  2C%No se pudo iniciar la transaccin !!!< 2C%No se pudo iniciar la transaccin !!!< TA CBBC 6UC XTIPO_ARMADO XSIN_DATOSXARMADOXPEDIDO XCON_PALLETARM_TMPCOD_INSARMADOTRAN_PRGTRAN_TXTAAALOCK_GTRSACBEG_TRAN XNUEVO_ARMADOXNUMARMACCARMADOFORARMADOLXHAY XCOMPLETA TEMPORAL1FECHAXFECHAPEDIDOATRBULCANT_PED RECEPCION CANT_ARMALOTEIDUXID TMP_LOTESIDCODLOTCANCONSOLFECHA2USREST_ARMARMADORPALLETSBULTOSCAJASTIPOESTADODEPFINALEXH XCONSOLIDADOXFECHA2XUSRXARM_COD XARM_PALLET XARM_BULTOS XARM_CAJASXFINALXARM_EXHMENSAJE TTS_ERRORUSER_LOG PUB_INDEXEND_TRANTTS_ID UNLOCK_ALL  F%%CccarmadoarmadoFTTT T  T  TT"%C ccarmado.exhbNT  T#%CARMADOARMADOTFS#)F~PF>C 6C 6 !!"" T#,$listados# >&#FF'~Ur tmp_lotes()*''''"'F%CNBa B-U+XVENTASXNUMARMAARMADOCCARMADOXFECHAFECHAXFECHA2FECHA2XUSRUSRXARM_CODARMADOR XARM_BULTOSBULTOS XARM_PALLETPALLETS XARM_CAJASCAJASXARM_EXHEXHXIDIDUARM_TMPPEDIDOCOD_INSATRBUL TEMPORAL1 CANT_ARMACANT_PED RECEPCIONREFITMITEM_PEDITEMLOTEXDESCR ART_DESCRLISTADOSDESC_INSARMADOLCODLOTCANBo pd_consol Qtmp_pedidos_pendientes T T ve_consolidar_pedidosF ~grarm_tmp         BULETRA PD_CONSOLCONSOL XCONSOLIDADOTMP_PEDIDOS_PENDIENTESZLITROS ZCANTIDAD CONSOLIDARVE_CONSOLIDAR_PEDIDOSQCOD_INSATRBUL RECEPCION TEMPORAL1DESC_INSPEDIDODESCR %%BaH: FG((armado E%C4%O<-oarmado % Ba K]C0La preparacin ya fue parcialmente facturada !!!C No se puede modificar.B- WCLa preparacin CCZ/ no corresponde a una preparacin de pedido !!!B- 6CLa preparacin CCZ no existe !!!B- FG((armado E%C41%%yBa GCLa preparacin (pallet) CCZ ya est desarmada !!!B- -GCLa preparacin CCZ no corresponde a un pallet !!!B- ?CLa preparacin (pallet) CCZ no existe !!!B-U XARMADO XTIPO_ARMADOCCARMADOARMADOTIPOARR_VALIDAR_ARMADOCANT_USAMENSAJEESTADO 4 T^occarmadoventas   q%CNXC.La preparacin ya fue facturada o remitida !!!C No se puede anular. T B5   T  ve_Armado.prg%T Anulacin de preparacin T . trsac ccarmadoarmado%  T trsac   % a T trsac   5CSe ha anulado el armado CCZ !!! T 2C%No se pudo iniciar la transaccin !!! T 2C%No se pudo iniciar la transaccin !!! T T C BUXERRXNUMARMADISTINCTCCARMADOARMADOPEDIDOVENTASQMENSAJETRAN_PRGTRAN_TXTAAALOCK_GTRSACBEG_TRANINEND_TRANTTS_ID UNLOCK_ALLr T Ta ve_armado_numero(a%g TBUXNUMARMAXRESVE_ARMADO_NUMEROXERR ANULAR_ARMADOXNUARMA%C tmp_lotes,FQ^h1CCCCNQ& BU XTMP_LOTES TMP_LOTESCODATRBULLOTCANID}%Ctmp_log*FQ+h1TCQ& BUXTMPTMP_LOGFHTXT%Cusuarios =Q \usuarios%pBSIN INICIAR SESION FG((codigo E BBUXUSRP_SYSTEMUSUARIOSCODIGODESCR#      T TTC=T CC[ T +C ET  %C$ "T C C$ =T C C$ [ AT  T  T T TH! CUA  TC ! CUX  TC CUCTC PAN)TC PALMTC PAG$TCCC gCC g PAC$TCCC gCC g PARTCCC g! PRI  &TCCC g PRXSTCCC g PRCTCCC g SALTC BU XRESULTADOXERRXMSGXCMDXCOMANDOXMENSAJE XMENSAJEDEV XCON_PALLETZ XPARAMETROS XPRODUCCION MAXARR_PARAM ARR_PARAMCMD_SESION_ABRIRCMD_SESION_ABRIR_SOLAMENTECMD_SESION_CERRARCMD_PALLET_NUEVOCMD_PALLET_LEERCMD_PALLET_GUARDARCMD_PALLET_CERRARCMD_PALLET_REABRIRCMD_PRODUCCION_INICIAR CMD_PRODUCCION_INICIAR_SOLAMENTECMD_PRODUCCION_CERRAR CMD_SALIRTC TC TC %%C\cpbt\pallet.frx0%Ctmp_idQTC]Vh1\tmp\C C2 C2 C2Q\tmp\4G+(listadosdey_funcsys_mail_funciones T T T T T T T T TT T T T T?listados(T\cpbt\ -logo.jpg TT CCZT!CCZT"CCZ%#$Ctccventtccvord%%&#&%"C#&clientescodcliT'C%(T)C#* T+ T,#- sys_barcodesC , T/+- sys_barcodesC$PAL / T0+- sys_barcodesC$PAR 09rtmp_id    ,/0T1pallet T2T3 pallet.frx)T4C5C66 T6 T7T8palletT9.t. T:-T;PL - T;C;<U=listados346789aaaaa-:;-%Ctmp_idQ\tmp\.BU>XARMADOXPEDIDOXAUT XID_BULTOP_SERVERTMP_IDXARCHP_LOCALIDIDTXTCMD_PALCMD_PARLISTADOSDEY_FUNCSYS_MAIL_FUNCIONES ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESAP_EMP P_EMP_LOGOZPALLETZPEDIDOZBULTOTCCVENTPEDIDOCLIENTESCOD_CLIZNOMBRENOMBREZOCREF ZID_BULTOZCOMANDO_PALLET_IDTXT CODIGO128A SYS_BARCODESZCOMANDO_PALLET_LEERZCOMANDO_PALLET_REABRIR ZIDCOMPROBZIDCAUSA XFORMULARIOXDESTINOP_DEVXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOS XCOPIAPDF XARCHIVOPDFLIMPIAR_FILE_NAMEIMPRIMIR_FORMULARIO{%Cccarmado 5Qccarmado%Carmado cQarmado%Carmador Qarmador%C pd_consol Q pd_consol%Carmadol Qarmadol%Ccomprom 'Qcomprom%p%Cproducci lQproducciBU XTIPO_ARMADOCCARMADOARMADOARMADOR PD_CONSOLARMADOLCOMPROMPRODUCCI T#%Cproducciprod% )%%x ATLa produccin CCZ no existe o est anulada. T %:TLa produccin CCZ no est pendiente. T NTLa produccin CCZ' es un envasamiento, no est permitido. T 2TLa produccin CCZ no existe. T BUXERRXERRMSG XPRODUCCION XRESULTADOPRODUCCIMULTIPLEPENDFORMULA T T T% TCresultado_palletNTPRITT C  BU XPRODUCCION XRESULTADOXERRXERRMSGINICIAR_PRODUCCIONTIPO PRODUCCIONLOTEPRODUCCIMENSAJEY T T T/Ccmd_sesion_abrir_solamente"%C*Ccambi a otro usuarioC TCresultado_palletNT CUAT  IDC2Usuario inexistente o sin permisos suficientes !!!  BU XRESULTADOXUSR PUB_INDEXXCLAVE LOG_ARMADO OSECURITYCAMBIAR_A_OTRO_USUARIOREGISTRAR_LOGINCL_NOMTIPOUSUARIOMENSAJE T TCXT DESCONOCIDOTCNQ TCresultado_palletNTCUCT BU XRESULTADO OSECURITYREGISTRAR_SALIDACL_AVECL_NOMCL_ATRTIPOUSUARIO T%Cccarmado GQccarmadoFG((armado}(T TCCid bulto*oarmado qT CNrccarmado  C0   TCresultado_palletNTPANT BUXARMADO XOLD_ARMADO XRESULTADOCCARMADOARMADOXFECHASYS_MDISTINCTPEDIDOXPEDIDOQ XID_BULTOCONSOLFECHAFECHA2USREST_ARMARMADORPALLETSBULTOSCAJASTIPOESTADODEPIDBULTO PUB_INDEXPALLET5 TTCCg ve_armado%Ca TCresultado_palletNTPALT BU XNUMARMAXARMADO XRESULTADO ARR_PARAM OPEN_FILES VE_ARMADO LEER_ARMADOTIPOPALLET'%C\cpbt\comandos.frx0%Ctmp_idFQTC]eh1\tmp\C2C2C2C2C2Q\tmp\4G+(listadosdey_funcsys_mail_funciones T  T  T T T T T T TT T T T T?listados  (T\cpbt\ -logo.jpg T T% sys_barcodes$PAN T % sys_barcodes$PAG T!% sys_barcodes$PAC! T"% sys_barcodes$PRC" T#% sys_barcodes$SAL#Crtmp_id !"#T$comandos T%T& comandos.frx)T'C(C)66 T* T+T,palletT-.t. T.-T/COMANDOST/C/0U1listados&'*+,-aaaaa-./-%Ctmp_idQ\tmp\.BU2P_SERVERTMP_IDXARCHP_LOCALPANPAGPACPRCSALIRLISTADOSDEY_FUNCSYS_MAIL_FUNCIONES ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESAP_EMP P_EMP_LOGOZPAN CODIGO128A SYS_BARCODESZPAGZPACZPRCZSALIR ZIDCOMPROBZIDCAUSA XFORMULARIOXDESTINOP_DEVXAUTXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOS XCOPIAPDF XARCHIVOPDFLIMPIAR_FILE_NAMEIMPRIMIR_FORMULARIO T ve_armado+a  T TC$TC] T  T  T  T  T T TTC TC TCaH 2!   % TCresultado_palletNTPAGT%>> SS! BUXARMADOXPEDIDO XCON_PALLET XRESULTADO OPEN_FILES VE_ARMADO XTIPO_ARMADOXFECHAXIDXUSR PUB_INDEXXARM_COD XARM_PALLET XARM_BULTOS XARM_CAJASXARM_EXHXNUMARMA XCONSOLIDADOXOKREGISTRAR_ARMADOTIPOPALLETARM_TMPORI_CAN TEMPORAL1ALL TMP_LOTES TF(%gTC T-% %%Cccarmadoarmado Ta  Ta%H   TCresultado_palletNT PACT  %C  F >F  %SST PACT  BUXARMADOXPEDIDO XCON_PALLET XRESULTADOAAAARM_TMP TEMPORAL1CMD_PALLET_GUARDARXOKCCARMADOARMADOINTIPOPALLETESTADOIMPRIMIR_PALLETIDBULTO TMP_LOTESV TCresultado_palletNTPRCT BU XPRODUCCION XRESULTADOTIPO PRODUCCION? TCresultado_palletNTSAL BU XRESULTADOTIPO T T-%%Cccarmadoarmado%%F > Ta /CEl pallet no est cerrado !!!  /CNo correspode a un pallet !!!  @/CNo se encuentra el pallet !!! % ve_armado%Ca  TCresultado_palletNTPALT   T- BU XARMADO XRESULTADOXOKCCARMADOTIPOESTADOMENSAJE OPEN_FILES VE_ARMADO LEER_ARMADOPALLET#TCXTCXTCXTCTC  T  T -% 6%C \CPBT\ve_armado_scan_ .prg0#C \CPBT\ve_armado_scan_ .prg H> EPST UNI T aTC=+C=0TC[/TCCC\C \% -TCCg8 T-H5)- C Cbienesbarras TCXCXTCD Ta* C Cbienesdun TCXCXTCD Ta, C Cstockbarras t$TCXTCD Ta) C Cstockdun $TCXTCD Ta6 C !C_C despachoidu %T%C 5%CstockarticuloTCD Ta  (%CC=bienescodins TCD Ta  2) %aTCC=%C  T-H V#%CbienescodinsR Ta%C>#TCXCR N% @ TTCC\TCC\TCC\%Cproducci Qproducci%Cproducciprod,%'TCX < Ta J #%Cbienescodins TaTCXCX 2 T-% < T T T T, ve_armado% % p T  T T T T, ve_armado  BU XENCONTRADOXDATAXMULT XTIPO_ARMADOXPROD XDATA_CODIGO XDATA_ATR XDATA_BUL XDATA_AUXXDATA_ORIGINALXSALTAR_GENERICOSP_IN_SCAN_ESPECIALP_SERVERP_EMPXDATANUMBIENESCOD_INSEANMULTDUNMULTSTOCKCODIGOATRBULDESPACHO P_IN_SCAN_COD XDATA_LOTPRODUCCIPRODLOTEVALIDAR_COD_ATR_BUL_LOT VE_ARMADOOTCC=#%CbienescodinsHTCC\TCC\TCC\%C ,%Cstockarticulo Ta  D#%Cbienescodins6 Ta @U XENCONTRADOXDATA XDATA_CODIGO XDATA_ATR XDATA_BUL XDATA_LOT TT TTCCgTCCgTCCg%  ve_armado   ve_armado T%C TT C%C T CUAT T T T CT CUAT T  B U XCON_PALLET OLD_PUB_INDEX PUB_INDEXXUSRXCLAVEXARMADO ARR_PARAMXPRODXPEDIDOIMPRIMIR_PALLET VE_ARMADOCMD_PALLET_CERRARCMD_PRODUCCION_CERRAR XRESULTADOCMD_SESION_ABRIR_SOLAMENTETIPOUSUARIOPALLET PRODUCCIONCMD_PALLET_NUEVOTCCgTCCgG+(listados ve_armado%xTCTC %C T  BU XPRODUCCIONXARMADO ARR_PARAMXPRODXRESLISTADOS VE_ARMADO XRESULTADOCMD_PRODUCCION_CERRAR CMD_PRODUCCION_INICIAR_SOLAMENTEPALLET/  &%    G $G( \log\log_armado.txtG CC  (C%, TCPCCZH CD8 C* CNb CZ CL( C TRUEFALSE6 CC C 2 Vartype:CGG(BUXTXTP1P2P3P4P5P6P7P8P9P10 P_LOG_ARMADOP_DEVP_SYSTEMZXXg F%%%CccarmadoarmadoFHb  a   -T  AC4No se puede liberar o bloquear si no est armado !!! \AC4No se puede liberar o bloquear si no est armado !!!BUXARMADOXESTADOCCARMADOFINALLIBMENSAJE >UT Preparacin: CCZC Liberada Bloqueada (no liberada)6FC ZG ve_armado.prg%=% &T Ctccventtccvord ! T a% >  ClT Preparacin: CCZ Pedido:CCZC Liberado Bloqueado (no liberado)6OC ZG ve_armado.prgC ZP 9%CPedido no encontrado !!!  % v)%C pd_consolconsol?+C+   ;%&T Ctccventtccvord  T a% >  CT Preparacin: CCZ Consolidado:CC Z Pedido:CCZC Liberado Bloqueado (no liberado)6OC ZG ve_armado.prgC ZP ,%CPedido no encontrado !!! FH r)CNo existe el consolidado !!!  0C#No existe pedido ni consolidado !!! BUXARMADOXESTCCARMADOFINALXMSGUSER_LOG PUB_INDEXPEDIDOTCCVENTXENCDV1 UPDATE_DTMENSAJECONSOL PD_CONSOLleer_pd_armadoautoitemwizardregistrar_armado  leer_armado^leer_consolidado#validar_armado% anular_armado)anular_armado_preguntaP-crear_tabla_para_lotes .crear_tabla_para_log/usuario_actual/procesar_comando0imprimir_pallet5 open_files+>iniciar_produccion? cmd_produccion_iniciar_solamente<>B BCCFgCDUDEkEF FyO;OYY[GV\fq(ghh]k{kllppq?ryR3zQ~Yp~3 |)0‡[#ȠtN6lSan[)\i %GSY_T =Y+5 TCT  %Cmarcas WQmarcas2(C 6TCC% F0Q "\tmp\rpt_cm_pagos_con_imputaciones3( $\tmp\rpt_cm_pagos_con_imputaciones_1Q2Q $\tmp\rpt_cm_pagos_con_imputaciones_g5( &\tmp\rpt_cm_pagos_con_imputaciones_g_1QTC% F0Q "\tmp\rpt_cm_pagos_con_imputaciones3 $\tmp\rpt_cm_pagos_con_imputaciones_12Q $\tmp\rpt_cm_pagos_con_imputaciones_g5 &\tmp\rpt_cm_pagos_con_imputaciones_g_15( &\tmp\rpt_cm_pagos_con_imputaciones_g_28Q &\tmp\rpt_cm_pagos_con_imputaciones_g_2 >otmpǼ1 %\tmp\rpt_cm_pagos_con_imputaciones_xx7Q %\tmp\rpt_cm_pagos_con_imputaciones_xx 5( $\tmp\rpt_cm_pagos_con_imputaciones_gQF Q9 *\tmp\rpt_cm_pagos_con_imputaciones_g_2.dbf7 (\tmp\rpt_cm_pagos_con_imputaciones_1.dbf8 )\tmp\rpt_cm_pagos_con_imputaciones_xx.dbf9 *\tmp\rpt_cm_pagos_con_imputaciones_g_1.dbf C BU XTIEMPOXDCONP_DOSP_CODEMPMARCASNIT XPROX_EMPPREPARA_EMPRESACALCULARP_LOCALTMPTMP1 USE_FILES*4G+( dey_func2 TCTC C CInicializando... CFG((codproT .t."% CX CX |% '[T  J.and.val(xdpro)<=val(compras.cod_pro).and.val(compras.cod_pro)<=val(xhpro) xGT  6.and.xdpro<=compras.cod_pro.and.compras.cod_pro<=xhpro% =T  , and between(compras.importac, xdimp, xhimp)% :=T  ,.and.xdnop<=compras.op.and.compras.op<=xhnop% :T  ) and BETWEEN(compras.orden, xdnoc, xhnoc)% AT  0.and.xdncp<=compras.pago.and.compras.pago<=xhncp$%  %vFT  5.and.betw(val(compras.cod_ins),val(xdbie),val(xhbie)) 7T  &.and.betw(compras.cod_ins,xdbie,xhbie)"%CX CX 7T  &.and. between(compras.bul,xdbul,xhbul)"%CX CX v8T  '.and. between(compras.atr, xdatr,xhatr)%  7T  & and between(proveedo.cat,xdcat,xhcat)&%C! !C3 $ 4;T  * and BETWEEN(cccomp.fec_dgi, xddgi, xhdgi)&%C" "C3 $ 7T  & and BETWEEN(cccomp.hoy, xdhoy, xhhoy)%Ccompras QcomprasF#%CAtributo Qatributo%Ccatpro ,Qcatpro%CBultos ZQbultos%C TmpMedUno "Qmedidas)codigo%C TmpMeddos "Qmedidas*codigo!CCreando temporal....T+C,Ccalcular-SELECT compras.*, NVL(bienes.cod_cue,compras.cod_cue) AS cuenta , NVL(bienes.codalt1,SPACE(20)) AS com_alt , NVL(bienes.linea,0000000000) AS linea2 , NVL(bienes.grupo,0000000000) AS grupo2 , NVL(bienes.marca,0000000000) AS marca2 , NVL(bienes.marca,0000000000) AS marca , NVL(lineas.DESCR,SPACE(40)) AS dlinea , NVL(grupos.DESCR,SPACE(40)) AS dgrupo , NVL(marcas.DESCR,SPACE(40)) AS dmarca , cccomp.usr, space(40) as dusr FROM compras LEFT OUTER JOIN bienes ON compras.cod_ins=bienes.cod_ins LEFT OUTER JOIN lineas ON bienes.linea=lineas.codigo LEFT OUTER JOIN grupos ON bienes.grupo=grupos.codigo LEFT OUTER JOIN marcas ON bienes.marca=marcas.codigo , cccomp, proveedo WHERE STR(cccomp.op)+STR(cccomp.pago)=STR(compras.op)+STR(compras.pago) AND BETW(DTOS(compras.fec_com)+compras.fac_com+compras.causa, DTOS(xdfec)+SPACE(13), DTOS(xhfec)+REPLICATE("z",13) ) AND &filtro AND compras.cod_pro=proveedo.cod_pro INTO TABLE (p_local+"\tmp\"+xarch) Q CTemporal creado....F#Q.\tmp\+#ocompras/0CC126Q3CC426Q5CC626Q7/0/0bases& C/ZC0Z8F#G-(C/ZC0Z9T .t."%:C X ;C X G-(<=:T -xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcueC Indexando....8INDEX ON STR(op)+STR(pago) TO (borrar33) FOR &filtro C Indexado....$%:C X ;C X  # G-(<=G-(>?G-(@G-(ABF?G-(C)G-(D* TE TF TG TH TI TJ TK TL TM TNJh1. \tmp\borrar3OCPCQC<h1. \tmp\borrar2/N 0N RDSDTDUCVCWCXCYCZCd[C\CP]N^C_N`NaNbNcNdNeNfNgNhC iC<jCkC(lN mCnC(oLOCpN qC(rNsNtNuCvCwN xN yNzN {C(|N }C(~N C(N N C(N C(N TNoGRP T-F& OO%CN. >OF##)C Revisando....F8EC#/ZC#0ZF# T T T T T+C+ '%C#>  >z >| >~%%C/ZC0ZC T99%C {>yy T9%C >yy C Suspendo?aT96%C .>yy OC Suspendo?a1T99999%C >yy C Suspendo?aTC/ZC0ZT#21d -TC1 983 6T#24d T#6<T99999#292 TTTT%SH %<EFG((grp_cod E=%C4 u >O=>Q=F#TO TE< TJ TK TL TM %@EFG((grp_cod E#@%C4 Z >O#@>QF#TO TE@ TJ TK TL TMCDescrah%CCC#/C#0 ZPC#ZC#/ Z#C#Z6itmdesccIDnT T %C#> F?G((codins E#>TC?%C# F$G((codigoE#>#T C$%C# wF&G((codigoE#>#T C&!T[C#>]  T# T TH$ ZF,>/#/R#S9ST9TUC#CFCC#cNCND66V9W#>X#Y#Z[#[\]#0#0_#^C#a#b#c#d#e#f#h=i=j#Ax##l#m#@nCC# #6Or#s#t#u*v)w>`#C9292992 6g#2C9292992 6y#2C92992 6Q>z#z{#{|#|}#}~#~#%NoGRPO TaF#  F >/#/0#0_#R#S9ST9TUC#CFCC#cNCND66V9W#>X#Y#Z[#[\a#b#c#d#e#f#h=i=j#Ax##kBl#m#@nCC# #6r#s#t#u*v)O >w>`#C9292992 6g#2C9292992 6y#2C92992 6Q>z#z{#{|#|}#}~#~#%NoGRP TaF# $F>/#/0#0_#R#S9ST9TUC#CFCC#cNCND66V9W#>X#Y#Z[#[\]#^C#a#b#c#d#e#f#h=j#Ax##l#m#@nCC# #6r#s#t#u*v)O >w>`#C9292992 6g#2C9292992 6y#2C92992 6Q>z#z{#{|#|}#}~#~#%NoGRP$ TaF#F%v$'%CtipoimpCodigor$>>9%>C# #6%Cusuarios $Q \usuarios%9((%"C9usuarioscodigo!>9%Ccatpro w%QcatproF%G((codigo EpF>ppq%F# T- TN/TFF2%V&TGG929#THH9929TII9 &(TGG292 9290THH292 9929!TII292 9TJJ2%S'TKK929#TLL9929TMM9 '(TKK292 9290TLL292 9929!TMM292 9H%(CLiq. Tarjetas... CC Copia 1...FGIHQ() }(& C/ZC0Z( (& hCR( (& R( )#& mCRC/ZC0Z(GI C Suspendo?a3(."\tmp\rpt_cm_pagos_con_imputacionesQC Copia 2...F% ) #5(.$\tmp\rpt_cm_pagos_con_imputaciones_gQ%Ccompras)F#Q%C tmpmeduno*F)Q%C tmpmeddosF*F*Q.\tmp\+.*'CFinalizando exportacin...BUXEMPRESA_ACTUAL DEY_FUNC2BORRAR22BORRAR33NEWFILE_LOCAL_TMP ESTADO_INI ESTADO_INC USE_FILESPROVEEDOCODPROFILTROXDPROXHPROP_PRONUMXDIMPXHIMPXDNOPXHNOPXDNOCXHNOCXDNCPXHNCPXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDBULXHBULXDATRXHATRXDCATXHCATXDDGIXDHOYCOMPRASATRIBUTOCATPROBULTOSMEDIDASCODIGO TMPMEDUNO TMPMEDDOSXARCHNEWFILESYS_MP_LOCALOPPAGOIVAPERTOT_COMBASE_IVAIIPERBASE_IIII2 BASE_III2BASESCCCOMPXDCUEXHCUECUENTACUENTASCOD_INSBIENESCOD_PROCENTROCOSTOSMEDCOD MEDAUXCODXOLDACCACC1ACC2ACC3SACCSACC1SACC2SACC3ULTNUMGRP_CODGRP_FULGRP_NOMFECHAFEC_DGIHOYCOM_CODCOM_NUMCOM_INSCOM_ATRCOM_BULCOM_DSCCOM_ALTCOM_DESCOM_CANCOM_MONCOM_CAMCOM_COSCOM_DECCOM_DEC2COM_DEC3COM_DEC4COM_DEC5 COM_DECXOCOM_TOTCTA_CODCTA_DESCEN_CODCEN_DESCEN_SBPRO_CODPRO_DESNUM_ERRCATDCATU2_CANU2_PREU2_UNIU2_MEDCOM_MEDEMPIMP COM_TOT_ILINEADLINEAGRUPODGRUPOMARCADMARCATRANTIPO_IMP DTIPO_IMPUSRDUSRORDENXGRPKEEPGRPBORRAR3XIDXACC_IVAXACC_IIXACC_II2 XACC_OTROSLINEA2GRUPO2MARCA2XDIF_IVAIVA_COMP3337BORRAR2XIVA_DIFXDIF_IIIIXII_DIFSYS_MOSTRAR_SCREENXDIF_II2XII2_DIF XDIF_OTROSIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5 XOTROS_DIFXIVAXIIXII2 RECEPCIONXOTROSXDSEPXDORDABREVDESCRINNOMBREITMCAUSAXDESCRITMDESCC XDESCR_GRANDECODINSATRBULDESC_INSTEMPXDTIPFEC_COMFAC_COM2COEFIC MM_MONEDAMONEDADES_INSDESC2DESC3DESC4DESC5DESCXOIMPORTAC SUBCENTRODES_PROVCANT_U2 PRECIO_U2CM_UNI2COS_LIFODES_COMDEUDATIPOIMPP_SYSTEMUSUARIOSINICIALXINCLUIR_LIQ_TARJ LIQ_TARJETAS>+cm_rpt_pagos_con_imputacionesJ BUOFORMCM_RPT_PAGOS_CON_IMPUTACIONES$ CUXDFECXHFECEJECUTAR_REPORTE TCCTC-%cy T- BU XTIPO_REPORTEXTABLAXDFECXHFECOFORMXRETURN OBTENER_FORMEJECUTAR_PARAMETROSEJECUTAR_EXTERNO1 CFQT CHTCi< 7 estadoJ T   C Exportando "\xchg\Compras_20*.*( <C Exportando CZ_C00CC ZR 6TCompras_CZ_C00CC ZRY(\xchg\CC $C  C $C $6X(\tmp\CC $C  C $C $6% 'Detalle de Compras=\tmp\.xls(\xchg\.xlsFT  %   T TFQ.*  T -BUXDFECXHFECXTABLAEJECUTAR_REPORTE COMPRAS12332Z1Z2ZAXMZM OTMPESTADOESTADOTOPHEIGHT SET_AND_SHOWP_SERVERZAVANCE XMARCHIVOFEC_DGIP_LOCALEXPORTAR_A_EXCELRELEASE4G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTTT C CopO.P. CpagoC.P. CFechaFecha )CFec_dgiFecha Subdiario #CCom_cod Tipo Cpbt CCom_numNmero CordenO.C. "CCom_insArtculo CCom_atrAtr. CCom_bulBul. %CCom_dsc Descripcin ,CCom_altCdigo Alternativo CCom_medMedida "CCom_canCantidad CCom_camCambio CCom_monMoneda CCom_cosPrecio CCom_decDto.1 CCom_dec2Dto.2 CCom_dec3Dto.3 CCom_dec4Dto.4 CCom_dec5Dto.5 &C Com_decxo Dto. x Op. CCom_TotTotal CCta_CodCuenta ,CCta_DesDescripcin Cuenta CCen_codCentro "CCen_sb Subcentro &CPro_cod Cdigo Prov. &CPro_des Nombre Prov. "Cu2_uni U2 Unidad $Cu2_can U2 Cantidad "Cu2_pre U2 Precio "Cu2_med U2 Medida !Cimp Importacin +Ctipo_impTipo Importacin #CHoy Fecha Proceso CdusrUsuario T C BU XARCHIVO XPLANILLAXTITULOLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSe4HQ  G(gesT\data\CCZ C ges T  G(gesT\data\CCZ C ges T 2Q G(gesT\data\CCZ C ges T BU XPROX_EMPGESP_SERVERP_SYSTEMP_CODEMPSETS XPROX_EMP2P_DOS!41QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxcm_rpt_pagos_con_imputacionesT\xchgTT TT T a C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG3 EXP_TABLAA%Ccccomp *QcccompF G((ID%Ccostos jQcostosFG((codigo%Cbienes QbienesFG((codins%Ccuentas QcuentasFG((cuenta%Ccompras :Qcompras%Cproveedo lQproveedo%Cimportac Qimportac%Ctipoimp Q \tipoimp%Ccatpro Qcatpro%Citmdescc 6QitmdesccBUCCCOMPIDCOSTOSCODIGOBIENESCODINSCUENTASCUENTACOMPRASPROVEEDOIMPORTACP_SYSTEMCATPROITMDESCCC Suspendo?a TaTCDTCFTCiT CHT CiT CH$+d  d C %   T T T  BU SYS_MOSTRAR_SCREENXINICIAL_TARJETASXXDFECXDFECXDDGIXXHFECXHFECXHDGIXANOXMES XANO_HASTA XMES_HASTATOMO_LIQ_DEL_MES  TCTC T T1 co_funcionesC$-%%Ccuentas Qcuentasodiariogconceptocuentas       C \S    C  tmp_comprobantes_compra ~}% !CcuentascuentaF/>ASCC Z$ !"# $% &'()*NoGRP+,-./H y 0%1F2G((grp_cod E $%C4  2>* $>23 F>* $ T1- 0y%1RF2G((grp_cod E S/P%C4 : 2>* S/P>23 F>* S/P T1-(%Ctmp_comprobantes_compraFQ BU5XANOXMESXDESDEXHASTA FECHA_PRI_MES FECHA_ULT_MESXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESCUENTASDESCRDIARIOGCONCEPTOASIENTOCOD_CUETIPO2ATRIBUTODEBITOCREDITOFECHATMP_COMPROBANTES_COMPRABORRAR2FEC_DGIHOYCOM_CODCOM_NUMCOM_DSC COMENTARIOCOM_DESCOM_CANCOM_MONCOM_CAMCOM_COSCOM_TOTCTA_CODABREVCTA_DESCEN_CODCEN_DESPRO_CODPRO_DESGRP_CODCATDCATEMPNIT COM_TOT_IXDORDXINICIAL_TARJETASBORRAR3GRP_NOMIN&41QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxcm_rpt_pagos_con_imputacionesT\tmpTT TTT  C BU XTABLAXDFECXHFEC XCONSOLIDADOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG3 EXP_TABLAcalcularb obtener_form7 ejecutar_sqlm7ejecutar_reporte7ejecutar_consulta_exportar8exportar_a_excel<prepara_empresa0C exportar_1D use_filesyF liq_tarjetas8Itomo_liq_del_mesJexportarQr!A$$1A"QAAB1"QQqQArAqAC3q2r!qAAAAAABaqAA!qA"AqAbAbqA1AqAA!A!A!A!ARp.and. tcccomp.cod_pro#space(6) .and. tcccomp.cod_pro#"0 " % &GT6.and. xdocd<=tcccomp.orden .and. tcccomp.orden<=xhocd "%CX CX KT:.and. xdpro<=tcccomp.cod_pro .and. tcccomp.cod_pro<=xhpro *% >T-.and. BETWEEN(tcccomp.fec_com, xdfec, xhfec) %C C % hTW .and. between(iif(tcompras.entrega#{},tcompras.entrega,tcccomp.fec_ent), xdent, xhent) >T- .and. between(tcccomp.fec_ent, xdent, xhent)H C!ZET4 .and. tcccomp.pend#'N'.and.tcccomp.cod_pro#'0 ' !ET4 .and. tcccomp.pend='N'.and.tcccomp.cod_pro#'0 '&%C"D C#D -QT@ and BETWEEN(tcccomp.quincena, xquincena_desde, xquincena_hasta)%$% 6T%.and.betw(bienes.linea, xdlin, xhlin)%&' 6T%.and.betw(bienes.grupo, xdgru, xhgru)%() 56T%.and.betw(bienes.marca, xdmar, xhmar)%C* C+ %,IT8.and.betw(val(tcompras.cod_ins), val(xdbie), val(xhbie)) :T).and.betw(tcompras.cod_ins, xdbie, xhbie)%C- C. %,iET4.and.betw(val(tcompras.atr), val(xdatr), val(xhatr)) 6T%.and.betw(tcompras.atr, xdatr, xhatr)%C/ C0 e %,! ET4.and.betw(val(tcompras.bul), val(xdbul), val(xhbul)) a 6T%.and.betw(tcompras.bul, xdbul, xhbul)%C1 C2 jTY and betw(iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen), xdcen, xhcen)GIG T3H  4K T3 tcccomp.orden 4{ T3 tcccomp.fec_com 4 T3 tcccomp.cod_pro$CConsultando... 56&%Ctcccomp.quincenabD<>%7 G$>select tcccomp.orden as orden , iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ," ",tcccomp.cod_pro) as cod_pro , padr(iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ,"ANULADA",proveedo.nombre),40) as nombre , tcccomp.fec_com as fecha , tcccomp.quincena as quincena , tcccomp.deuda as deuda , tcccomp.facturado as facturado, tcccomp.tot_com as base , iif(tcccomp.pend#'N'.and.!(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" "),'PEND.','TERM.')+' ' as pend , nvl(tcompras.cod_ins,obie.data_codigo_vacio) as det_cod , nvl(tcompras.atr,oatr.data_codigo_vacio) as det_atr , nvl(tcompras.bul,obul.data_codigo_vacio) as det_bul , padr(tcompras.desc_ins,200) as det_desc , nvl(bienes.codalt1,space(40)) as det_alt , nvl(bienes.linea,0000000000) as linea , nvl(lineas.descr,space(40)) as dlinea , nvl(bienes.grupo,0000000000) as grupo , nvl(grupos.descr,space(40)) as dgrupo , nvl(bienes.marca,0000000000) as marca , nvl(marcas.descr,space(40)) as dmarca , bienes.ncm as ncm , bienes.pesoxu as pesoxu , nvl(bieaux.origen,space(20)) as origen , iif(nvl(bieaux.ad_lic,0)=1,"LA ",iif(nvl(bieaux.ad_lic,0)=2,"LNA"," ")) as ad_lic , nvl(bieaux.ad_not,space(250)) as ad_not , nvl(tcompras.recepcion,0000000000.00) as det_recep, nvl(tcompras.cos_lifo,0000000000.0000) as det_costo, mm_moneda(nvl(tcompras.moneda,0)+1,2) as det_moneda , nvl(tcompras.des_ins,000.00) as det_dto , nvl(tcompras.desc2,000.00) as det_dto2 , nvl(tcompras.desc3,000.00) as det_dto3 , nvl(tcompras.desc4,000.00) as det_dto4 , nvl(tcompras.desc5,000.00) as det_dto5 , nvl(tcompras.descxo,000.00) as det_dtoxo , nvl(tcompras.tot_com,0000000000.00) as det_total, nvl(tcompras.facturado,0000000000.00) as det_facturado, nvl(tcompras.recep2,0000000000.00)+nvl(tcompras.recep3,0000000000.00) as det_recibi , nvl( tcompras.recepcion * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as deuda_mo , nvl( tcompras.facturado * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as factu_mo , nvl( (tcompras.recepcion - tcompras.facturado) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalf_mo , nvl( (tcompras.recepcion - tcompras.recep2 - tcompras.recep3) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalr_mo , nvl(tcompras.moneda,0) as det_mon , 0000000000000.00 as det_sal_f , 0000000000000.00 as det_sal_r , 0000000000000.00 as deuda_b , 0000000000000.00 as factu_b , val(tcccomp.cod_pro) as cod_pron , iif(nvl(tcompras.entrega,{})#{},nvl(tcompras.entrega,{}), iif(empty(tcccomp.fec_ent),tcccomp.fec_com, tcccomp.fec_ent)) as entrega, 000000000 as transf , space(12) as ref2 , space(20) as despacho , 1 as datatipo , tcompras.itm as itm , space(20) as estado , space(1) as estado2 , tcccomp.usr as usr , space(140) as dusr , tcccomp.aut_usr as quien , space(40) as dquien , space(40) as ops , tcccomp.autorizada as autorizada , .f. as renglon1 , nvl(tcompras.cm_uni2,0) as cm_uni2 , nvl(tcompras.cant_u2,0) as cant_u2 , nvl(tcompras.precio_u2,0) as precio_u2, iif(nvl(tcompras.cm_uni2,0)<=1, med1.abrev, med2.abrev) as medida , tcompras.sol as sol , tcompras.item as solitm , 00000.000 as per_entre, 00000 as dia_entre, .f. as enc_oc , .f. as enc_itm , 00000000000000.0000 as cumpl_it , 00000000000000.0000 as cumpl_pd , 00000000000000.0000 as per_it , 00000000000000.0000 as per_pd , 00000000000000.0000 as rtotal0 , 00000000000000.0000 as rtotal1 , 00000000000000.0000 as rtotal4 , int( month(tcccomp.fec_com)/3-.1 )+1 as trimestre, 0000000000 as itmcv , tcccomp.hoy as hoy , 00000000000000.000000 as cambio_o , 00000000000000.000000 as cambio_d , {} as fecha_mov, tcccomp.tran as tran , tcccomp.oak as oak , tcccomp.oak_fecha as oak_fecha, space(200) as clientes , 0000000000 as importac , tcccomp.deposito as deposito , nvl(deposito.descr,space(40)) as ddeposito, " " as moneda_ref , 00000000000000.000000 as cambio_ref , {} as fcbio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as deuda_ref , space(200) as errmsg , iif(!empty(tcompras.cod_ins), bienes.cod_cue, tcompras.cod_cue) as cuenta , space(9) as acuenta , space(40) as dcuenta , iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) as centro , evl(costos.descr, space(40)) as dcentro , tcccomp.plan as plan , condpago.descr as dplan , SPACE(60) as solicita from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join tcompras on tcccomp.orden=tcompras.orden left outer join bienes on tcompras.cod_ins=bienes.cod_ins left outer join medidas med1 on bienes.medcod=med1.codigo left outer join medidas med2 on bienes.medauxcod=med2.codigo left outer join deposito on tcccomp.deposito=deposito.deposito left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.grupo=grupos.codigo left outer join marcas on bienes.marca=marcas.codigo left outer join bieaux on bienes.cod_ins=bieaux.codigo left outer join costos on costos.cod_cen=iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) left outer join condpago on tcccomp.plan=condpago.plan where &filtro order by &sqlorden into table (xborrar) 8>select tcccomp.orden as orden , iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ," ",tcccomp.cod_pro) as cod_pro , padr(iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ,"ANULADA",proveedo.nombre),40) as nombre , tcccomp.fec_com as fecha , tcccomp.quincena as quincena , tcccomp.deuda as deuda , tcccomp.facturado as facturado, tcccomp.tot_com as base , iif(tcccomp.pend#'N'.and.!(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" "),'PEND.','TERM.')+' ' as pend , nvl(tcompras.cod_ins,obie.data_codigo_vacio) as det_cod , nvl(tcompras.atr,oatr.data_codigo_vacio) as det_atr , nvl(tcompras.bul,obul.data_codigo_vacio) as det_bul , padr(tcompras.desc_ins,200) as det_desc , nvl(bienes.codalt1,space(40)) as det_alt , nvl(bienes.linea,0000000000) as linea , nvl(lineas.descr,space(40)) as dlinea , nvl(bienes.grupo,0000000000) as grupo , nvl(grupos.descr,space(40)) as dgrupo , nvl(bienes.marca,0000000000) as marca , nvl(marcas.descr,space(40)) as dmarca , bienes.ncm as ncm , bienes.pesoxu as pesoxu , nvl(bieaux.origen,space(20)) as origen , iif(nvl(bieaux.ad_lic,0)=1,"LA ",iif(nvl(bieaux.ad_lic,0)=2,"LNA"," ")) as ad_lic , nvl(bieaux.ad_not,space(250)) as ad_not , nvl(tcompras.recepcion,0000000000.00) as det_recep, nvl(tcompras.cos_lifo,0000000000.000) as det_costo, mm_moneda(nvl(tcompras.moneda,0)+1,2) as det_moneda , nvl(tcompras.des_ins,000.00) as det_dto , nvl(tcompras.desc2,000.00) as det_dto2 , nvl(tcompras.desc3,000.00) as det_dto3 , nvl(tcompras.desc4,000.00) as det_dto4 , nvl(tcompras.desc5,000.00) as det_dto5 , nvl(tcompras.descxo,000.00) as det_dtoxo , nvl(tcompras.tot_com,0000000000.00) as det_total, nvl(tcompras.facturado,0000000000.00) as det_facturado, nvl(tcompras.recep2,0000000000.00)+nvl(tcompras.recep3,0000000000.00)+nvl(i.recepcion,0000000000.00) as det_recibi , nvl( tcompras.recepcion * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as deuda_mo , nvl( tcompras.facturado * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as factu_mo , nvl( (tcompras.recepcion - tcompras.facturado) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalf_mo , nvl( (tcompras.recepcion - tcompras.recep2 - tcompras.recep3 - nvl(i.recepcion,0)) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0) as detsalr_mo , nvl(tcompras.moneda,0) as det_mon , 0000000000000.00 as det_sal_f , 0000000000000.00 as det_sal_r , 0000000000000.00 as deuda_b , 0000000000000.00 as factu_b , val(tcccomp.cod_pro) as cod_pron , iif(nvl(tcompras.entrega,{})#{},nvl(tcompras.entrega,{}), iif(empty(tcccomp.fec_ent),tcccomp.fec_com, tcccomp.fec_ent)) as entrega, 000000000 as transf , space(12) as ref2 , space(20) as despacho , 1 as datatipo , tcompras.itm as itm , space(20) as estado , space(1) as estado2 , tcccomp.usr as usr , space(140) as dusr , tcccomp.aut_usr as quien , space(40) as dquien , space(40) as ops , tcccomp.autorizada as autorizada , .f. as renglon1 , nvl(tcompras.cm_uni2,0000000000.00) as cm_uni2 , nvl(tcompras.cant_u2,0000000000.00) as cant_u2 , nvl(tcompras.precio_u2,0000000000.000) as precio_u2, iif(nvl(tcompras.cm_uni2,0)<=1, med1.abrev, med2.abrev) as medida , tcompras.sol as sol , tcompras.item as solitm , 00000.000 as per_entre, 00000 as dia_entre, .f. as enc_oc , .f. as enc_itm , 00000000000000.0000 as cumpl_it , 00000000000000.0000 as cumpl_pd , 00000000000000.0000 as per_it , 00000000000000.0000 as per_pd , 00000000000000.0000 as rtotal0 , 00000000000000.0000 as rtotal1 , 00000000000000.0000 as rtotal4 , int( month(tcccomp.fec_com)/3-.1 )+1 as trimestre, 0000000000 as itmcv , tcccomp.hoy as hoy , 00000000000000.000000 as cambio_o , 00000000000000.000000 as cambio_d , {} as fecha_mov, tcccomp.tran as tran , tcccomp.oak as oak , tcccomp.oak_fecha as oak_fecha, space(200) as clientes , 0000000000 as importac , tcccomp.deposito as deposito , nvl(deposito.descr,space(40)) as ddeposito, " " as moneda_ref , 00000000000000.000000 as cambio_ref , {} as fcbio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as deuda_ref , space(200) as errmsg , iif(!empty(tcompras.cod_ins), bienes.cod_cue, tcompras.cod_cue) as cuenta , space(9) as acuenta , space(40) as dcuenta , iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) as centro , evl(costos.descr, space(40)) as dcentro , tcccomp.plan as plan , condpago.descr as dplan , SPACE(60) as solicita from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join tcompras on tcccomp.orden=tcompras.orden left outer join bienes on tcompras.cod_ins=bienes.cod_ins left outer join medidas med1 on bienes.medcod=med1.codigo left outer join medidas med2 on bienes.medauxcod=med2.codigo left outer join imp_tran i on str(tcompras.orden)+str(tcompras.itm) = str(i.sol)+str(i.solitm) left outer join deposito on tcccomp.deposito=deposito.deposito left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.grupo=grupos.codigo left outer join marcas on bienes.marca=marcas.codigo left outer join bieaux on bienes.cod_ins=bieaux.codigo left outer join costos on costos.cod_cen=iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) left outer join condpago on tcccomp.plan=condpago.plan where &filtro order by &sqlorden into table (xborrar)  ;q%7 lWselect tcccomp.orden as orden , iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ," ",tcccomp.cod_pro) as cod_pro , padr(iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ,"ANULADA",proveedo.nombre),40) as nombre , tcccomp.fec_com as fecha , tcccomp.deuda as deuda , tcccomp.facturado as facturado, tcccomp.tot_com as base , iif(tcccomp.pend#'N'.and.!(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" "),'PEND.','TERM.')+' ' as pend , nvl(tcompras.cod_ins,obie.data_codigo_vacio) as det_cod , nvl(tcompras.atr,oatr.data_codigo_vacio) as det_atr , nvl(tcompras.bul,obul.data_codigo_vacio) as det_bul , padr(tcompras.desc_ins,200) as det_desc , nvl(bienes.codalt1,space(40)) as det_alt , nvl(bienes.linea,0000000000) as linea , nvl(lineas.descr,space(40)) as dlinea , nvl(bienes.grupo,0000000000) as grupo , nvl(grupos.descr,space(40)) as dgrupo , nvl(bienes.marca,0000000000) as marca , nvl(marcas.descr,space(40)) as dmarca , bienes.ncm as ncm , bienes.pesoxu as pesoxu , nvl(bieaux.origen,space(20)) as origen , iif(nvl(bieaux.ad_lic,0)=1,"LA ",iif(nvl(bieaux.ad_lic,0)=2,"LNA"," ")) as ad_lic , nvl(bieaux.ad_not,space(250)) as ad_not , nvl(tcompras.recepcion,0000000000.00) as det_recep, nvl(tcompras.cos_lifo,0000000000.0000) as det_costo, mm_moneda(nvl(tcompras.moneda,0)+1,2) as det_moneda , nvl(tcompras.des_ins,000.00) as det_dto , nvl(tcompras.desc2,000.00) as det_dto2 , nvl(tcompras.desc3,000.00) as det_dto3 , nvl(tcompras.desc4,000.00) as det_dto4 , nvl(tcompras.desc5,000.00) as det_dto5 , nvl(tcompras.descxo,000.00) as det_dtoxo , nvl(tcompras.tot_com,0000000000.00) as det_total, nvl(tcompras.facturado,0000000000.00) as det_facturado, nvl(tcompras.recep2,0000000000.00)+nvl(tcompras.recep3,0000000000.00) as det_recibi , nvl( tcompras.recepcion * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as deuda_mo , nvl( tcompras.facturado * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as factu_mo , nvl( (tcompras.recepcion - tcompras.facturado) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalf_mo , nvl( (tcompras.recepcion - tcompras.recep2 - tcompras.recep3) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalr_mo , nvl(tcompras.moneda,0) as det_mon , 0000000000000.00 as det_sal_f , 0000000000000.00 as det_sal_r , 0000000000000.00 as deuda_b , 0000000000000.00 as factu_b , val(tcccomp.cod_pro) as cod_pron , iif(nvl(tcompras.entrega,{})#{},nvl(tcompras.entrega,{}), iif(empty(tcccomp.fec_ent),tcccomp.fec_com, tcccomp.fec_ent)) as entrega, 000000000 as transf , space(12) as ref2 , space(20) as despacho , 1 as datatipo , tcompras.itm as itm , space(20) as estado , space(1) as estado2 , tcccomp.usr as usr , space(140) as dusr , tcccomp.aut_usr as quien , space(40) as dquien , space(40) as ops , tcccomp.autorizada as autorizada , .f. as renglon1 , nvl(tcompras.cm_uni2,0) as cm_uni2 , nvl(tcompras.cant_u2,0) as cant_u2 , nvl(tcompras.precio_u2,0) as precio_u2, iif(nvl(tcompras.cm_uni2,0)<=1, med1.abrev, med2.abrev) as medida , tcompras.sol as sol , tcompras.item as solitm , 00000.000 as per_entre, 00000 as dia_entre, .f. as enc_oc , .f. as enc_itm , 00000000000000.0000 as cumpl_it , 00000000000000.0000 as cumpl_pd , 00000000000000.0000 as per_it , 00000000000000.0000 as per_pd , 00000000000000.0000 as rtotal0 , 00000000000000.0000 as rtotal1 , 00000000000000.0000 as rtotal4 , int( month(tcccomp.fec_com)/3-.1 )+1 as trimestre, 0000000000 as itmcv , tcccomp.hoy as hoy , 00000000000000.000000 as cambio_o , 00000000000000.000000 as cambio_d , {} as fecha_mov, tcccomp.tran as tran , tcccomp.oak as oak , tcccomp.oak_fecha as oak_fecha, space(200) as clientes , 0000000000 as importac , tcccomp.deposito as deposito , nvl(deposito.descr,space(40)) as ddeposito, " " as moneda_ref , 00000000000000.000000 as cambio_ref , {} as fcbio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as deuda_ref , space(200) as errmsg , iif(!empty(tcompras.cod_ins), bienes.cod_cue, tcompras.cod_cue) as cuenta , space(9) as acuenta , space(40) as dcuenta , iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) as centro , evl(costos.descr, space(40)) as dcentro , tcccomp.plan as plan , condpago.descr as dplan , SPACE(60) as solicita from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join tcompras on tcccomp.orden=tcompras.orden left outer join bienes on tcompras.cod_ins=bienes.cod_ins left outer join medidas med1 on bienes.medcod=med1.codigo left outer join medidas med2 on bienes.medauxcod=med2.codigo left outer join deposito on tcccomp.deposito=deposito.deposito left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.grupo=grupos.codigo left outer join marcas on bienes.marca=marcas.codigo left outer join bieaux on bienes.cod_ins=bieaux.codigo left outer join costos on costos.cod_cen=iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) left outer join condpago on tcccomp.plan=condpago.plan where &filtro order by &sqlorden into table (xborrar) 7qselect tcccomp.orden as orden , iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ," ",tcccomp.cod_pro) as cod_pro , padr(iif(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" " ,"ANULADA",proveedo.nombre),40) as nombre , tcccomp.fec_com as fecha , tcccomp.deuda as deuda , tcccomp.facturado as facturado, tcccomp.tot_com as base , iif(tcccomp.pend#'N'.and.!(tcccomp.cod_pro="0 " .or. tcccomp.cod_pro=" "),'PEND.','TERM.')+' ' as pend , nvl(tcompras.cod_ins,obie.data_codigo_vacio) as det_cod , nvl(tcompras.atr,oatr.data_codigo_vacio) as det_atr , nvl(tcompras.bul,obul.data_codigo_vacio) as det_bul , padr(tcompras.desc_ins,200) as det_desc , nvl(bienes.codalt1,space(40)) as det_alt , nvl(bienes.linea,0000000000) as linea , nvl(lineas.descr,space(40)) as dlinea , nvl(bienes.grupo,0000000000) as grupo , nvl(grupos.descr,space(40)) as dgrupo , nvl(bienes.marca,0000000000) as marca , nvl(marcas.descr,space(40)) as dmarca , bienes.ncm as ncm , bienes.pesoxu as pesoxu , nvl(bieaux.origen,space(20)) as origen , iif(nvl(bieaux.ad_lic,0)=1,"LA ",iif(nvl(bieaux.ad_lic,0)=2,"LNA"," ")) as ad_lic , nvl(bieaux.ad_not,space(250)) as ad_not , nvl(tcompras.recepcion,0000000000.00) as det_recep, nvl(tcompras.cos_lifo,0000000000.000) as det_costo, mm_moneda(nvl(tcompras.moneda,0)+1,2) as det_moneda , nvl(tcompras.des_ins,000.00) as det_dto , nvl(tcompras.desc2,000.00) as det_dto2 , nvl(tcompras.desc3,000.00) as det_dto3 , nvl(tcompras.desc4,000.00) as det_dto4 , nvl(tcompras.desc5,000.00) as det_dto5 , nvl(tcompras.descxo,000.00) as det_dtoxo , nvl(tcompras.tot_com,0000000000.00) as det_total, nvl(tcompras.facturado,0000000000.00) as det_facturado, nvl(tcompras.recep2,0000000000.00)+nvl(tcompras.recep3,0000000000.00)+nvl(i.recepcion,0000000000.00) as det_recibi , nvl( tcompras.recepcion * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as deuda_mo , nvl( tcompras.facturado * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as factu_mo , nvl( (tcompras.recepcion - tcompras.facturado) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0000000000.00) as detsalf_mo , nvl( (tcompras.recepcion - tcompras.recep2 - tcompras.recep3 - nvl(i.recepcion,0)) * tcompras.cos_lifo * (1-tcompras.des_ins/100)*(1-tcompras.desc2/100)*(1-tcompras.desc3/100)*(1-tcompras.desc4/100)*(1-tcompras.desc5/100)*(1-tcompras.descxo/100) ,0) as detsalr_mo , nvl(tcompras.moneda,0) as det_mon , 0000000000000.00 as det_sal_f , 0000000000000.00 as det_sal_r , 0000000000000.00 as deuda_b , 0000000000000.00 as factu_b , val(tcccomp.cod_pro) as cod_pron , iif(nvl(tcompras.entrega,{})#{},nvl(tcompras.entrega,{}), iif(empty(tcccomp.fec_ent),tcccomp.fec_com, tcccomp.fec_ent)) as entrega, 000000000 as transf , space(12) as ref2 , space(20) as despacho , 1 as datatipo , tcompras.itm as itm , space(20) as estado , space(1) as estado2 , tcccomp.usr as usr , space(140) as dusr , tcccomp.aut_usr as quien , space(40) as dquien , space(40) as ops , tcccomp.autorizada as autorizada , .f. as renglon1 , nvl(tcompras.cm_uni2,0000000000.00) as cm_uni2 , nvl(tcompras.cant_u2,0000000000.00) as cant_u2 , nvl(tcompras.precio_u2,0000000000.000) as precio_u2, iif(nvl(tcompras.cm_uni2,0)<=1, med1.abrev, med2.abrev) as medida , tcompras.sol as sol , tcompras.item as solitm , 00000.000 as per_entre, 00000 as dia_entre, .f. as enc_oc , .f. as enc_itm , 00000000000000.0000 as cumpl_it , 00000000000000.0000 as cumpl_pd , 00000000000000.0000 as per_it , 00000000000000.0000 as per_pd , 00000000000000.0000 as rtotal0 , 00000000000000.0000 as rtotal1 , 00000000000000.0000 as rtotal4 , int( month(tcccomp.fec_com)/3-.1 )+1 as trimestre, 0000000000 as itmcv , tcccomp.hoy as hoy , 00000000000000.000000 as cambio_o , 00000000000000.000000 as cambio_d , {} as fecha_mov, tcccomp.tran as tran , tcccomp.oak as oak , tcccomp.oak_fecha as oak_fecha, space(200) as clientes , 0000000000 as importac , tcccomp.deposito as deposito , nvl(deposito.descr,space(40)) as ddeposito, " " as moneda_ref , 00000000000000.000000 as cambio_ref , {} as fcbio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as deuda_ref , space(200) as errmsg , iif(!empty(tcompras.cod_ins), bienes.cod_cue, tcompras.cod_cue) as cuenta , space(9) as acuenta , space(40) as dcuenta , iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) as centro , evl(costos.descr, space(40)) as dcentro , tcccomp.plan as plan , condpago.descr as dplan , SPACE(60) as solicita from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join tcompras on tcccomp.orden=tcompras.orden left outer join bienes on tcompras.cod_ins=bienes.cod_ins left outer join medidas med1 on bienes.medcod=med1.codigo left outer join medidas med2 on bienes.medauxcod=med2.codigo left outer join imp_tran i on str(tcompras.orden)+str(tcompras.itm) = str(i.sol)+str(i.solitm) left outer join deposito on tcccomp.deposito=deposito.deposito left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.grupo=grupos.codigo left outer join marcas on bienes.marca=marcas.codigo left outer join bieaux on bienes.cod_ins=bieaux.codigo left outer join costos on costos.cod_cen=iif(!empty(tcompras.cod_cen), tcompras.cod_cen, tcccomp.cod_cen) left outer join condpago on tcccomp.plan=condpago.plan where &filtro order by &sqlorden into table (xborrar) Q 8& C9ZC:Z9T;%C tmp_cambiosqQ<Goidx04=idx04C=Q==C$ tmp_cambiosC Procesando...5>F8 ~w%;9-r >?a T;9 T@%8ABrTC8DTE8FTG8HTI8J t%8AsTK8DTL8FTM8HTN8J >O sTK8DC8ATL8FC8ATM8HC8ATN8JC8A>OC8A%Bs TCK TEL TGM TIN >P t%CBet TC TE TG TI >P tTCKCB TELCB TGMCB TINCB >PCB>8QG>8RI>8SC>8TE0TGGC8U 8V8U 60TIIC8U 8V8U 6>8VG>8WI%8Av,TXCtmp_cambios.indiceCC8AZ%Xtvk>YCZ[X\<=]CX^X 6_CXQX 6 v#>`ERR: Cambio actual = 0%C8a w'%C8acuentascuentaw!>8bcdeCConsolidando...5>%Ctmp1QwFfQAoprimera9Q9CVQgCWQh9tmp1&%Ctcccomp.quincenabDzoprimeraXitmdescc C89 ZNC8:ZCZtmp189ij=kfgQVUfhQWfgfhQlmnopqrstuvwxyz{|}~^QQRQHJDFAST:?OPQY[]_dbCCQ89f9 ttotalgeneral }oprimeraXitmdescc C89 ZNC8:ZCZtmp189ij=fgQVUfhQWfgfhQlmnopqrstuvwxyz{|}~^QQRQHJDFAST:?OPQY[]_dbCCQ89f9 ttotalgeneralF8QFH~~ 4@~& C9ZC:ZCZ 4x~%& C=*C9ZC:ZCZ 4~ & iC9ZC:ZCZ& C9ZC:ZCZ& C9ZCZ& CZ& 99 G((fullG+(cm_procs%CA010592AFQ%CusuariosiFQ sys_security CTC F (QQ& FG-(H>CANULADAj6CCG-(*>CANULADAj6G-(%CusuariosQ$o ttotalgeneralǼresumen1& C9 ZC:Z9G((orden9o ttotalgeneral9VW9asumar1K(VW+CDeterminando recepciones...5>@o ttotalgeneral9i=j9 tmpordnumT.t.%$% 1T .and.betw(b.linea, xdlin, xhlin)%&' R1T .and.betw(b.grupo, xdgru, xhgru)%() 1T .and.betw(b.marca, xdmar, xhmar)%C* C+ Y%,CT2.and.betw(val(cv.cod_ins), val(xdbie), val(xhbie)) U4T#.and.betw(cv.cod_ins, xdbie, xhbie)%C- C. %,ǃ?T..and.betw(val(cv.atr), val(xdatr), val(xhatr)) 0T.and.betw(cv.atr, xdatr, xhatr)%C/ C0 %,s?T..and.betw(val(cv.bul), val(xdbul), val(xhbul)) 0T.and.betw(cv.bul, xdbul, xhbul)insert into ttotalgeneral ( orden, cod_pro, det_cod, det_bul,det_atr,det_recibi,fecha, fecha_mov, transf, datatipo, ref2, despacho, det_desc, itm, cm_uni2, cant_u2, itmcv, nombre, det_conver) select orn.orden,orn.cod_pro, cv.cod_ins, cv.bul, cv.atr, cv.entra-cv.sale, orn.fecha, cv.fecha, cv.transf, 2, cv.ref2, nvl(ms.despacho,""), cv.persona, iif(cv.refitm=0,99,cv.refitm) as refitm , cv.cm_uni2, cv.entra_u2, cv.item, orn.nombre, cv.entra-cv.sale from conver cv left outer join movstock ms on ms.numero+ms.causa+str(ms.item,4) = str(cv.transf,12)+"M"+str(cv.item,4), tmpordnum orn, bienes b where cv.orden=orn.orden and nvl(cv.orden,0)>0 and cv.cod_ins=b.cod_ins and &filtro %7݉kinsert into ttotalgeneral ( orden, cod_pro, det_cod, det_bul,det_atr,det_recibi,fecha, fecha_mov, transf, datatipo, ref2, despacho, det_desc, itm, cm_uni2, cant_u2, itmcv, nombre, det_conver) select cv.sol as orden, cv.cod_alt as cod_pro, cv.cod_ins, cv.bul, cv.atr, cv.recepcion as entra, orn.fecha, {} as fecha, cv.import as transf, 2, "" as ref2, "TRANSITO" as despacho, "" as persona, iif(cv.solitm=0,99,cv.solitm) as refitm , 0 as cm_uni2, 0 as entra_u2, cv.item, orn.nombre,cv.recepcion from imp_tran cv left outer join bienes b on cv.cod_ins=b.cod_ins, tmpordnum orn where cv.sol=orn.orden and &filtro )CDeterminando trnsitos...5>F'~TRANSITO ` TFG((refordenEC ZCZ T-8+C+ %CZC ZCZ %M 0TCC OP:/6CCZ TaH% FG((refordenEC9 ZC:Z T-8+C+ %CZC9 ZC:Z %O0TCC OP:/6CCZ TaHF>FG((ref_ocEC9 ZC:ZF>FG-(C9 ZC:Z.>C~~ d6,>CCFDC Calculando...5>cm_sql_compras_aux%Cmovstock JQmovstock%Cccvent xQccvent CImportaciones...5>cm_sql_compras_auxC Resumiendo...5>cm_sql_compras_auxFQFQF% .HC !s ~  ! ~ % ؐCSin detalles...5>&%Ctcccomp.quincenabDݏo ttotalgeneral9=kijmVWl? tmpsalida o ttotalgeneral9=ijmVWl? tmpsalidaFQF C Detalles...5>%   5oresumen1QXreservasQ 9Cg N :: XtccventQ XclientesQ C QCQC QCjC(XQC QCCXQqHJ 4(& C=C9ZC:ZCZCZ 4&& jC9ZC:ZCZCZ 4ђ 2"& C9ZC:ZCZCZ%%   oq9ij=Vlmnqrstuvwxy{|}~^H:Oq1%(\tmp\ordenes_de_compra.Cq1ordenes_de_compra\tmpQ9oq9:q1.(\tmp\ordenes_de_compra_reservas7Cq1ordenes_de_compra_reservas\tmpQF%;"cm_sql_compras_auxiliar#(\tmp\rpt_cm_compras% %Ccm_sql_compras_aux MC@No existe la carpeta GES EXPORTACIONES y no puede ser creada !!!B%C ttotalgeneral1FQ%C tmpsalidaZFQ .* .*BUCOMPRASBIEAUXLINEASGRUPOSMARCASIDX04CUENTASRESERVASCOSTOSXBORRARXBORRAR2ODEYFUNCNEWFILE_LOCAL_TMPERRORESXERRORES ARR_CAMBIOSMM_MAXXERRXMSGFN_CAMBIOS_ACTUALIZADOSLISTADOSTCCCOMPFILTROXDANUXDOCDXHOCDXDPROXHPROXDFECXHFECXDENTXHENTXDETXDTIPXQUINCENA_DESDEXQUINCENA_HASTAXDLINXHLINXDGRUXHGRUXDMARXHMARXDBIEXHBIEP_NUMINSXDATRXHATRXDBULXHBULXDCENXHCENSQLORDENXDORDOESTADO SET_AND_SHOWXDTRAPRIMERAORDENITMOLD TMP_CAMBIOSFECHAAVANCERENGLON1 XRESULTADODET_MONXDMON XRESULTADO_F DETSALF_MO XRESULTADO_R DETSALR_MO XRESULTADO_DEDEUDA_MO XRESULTADO_FAFACTU_MOXPESOS_FXPESOS_R XPESOS_DE XPESOS_FACAMBIO_OCAMBIO_DDEUDA_BFACTU_B DET_SAL_F DET_SAL_RBASEDEUDA FACTURADOXCBIO MONEDA_REF MM_MONEDA CAMBIO_REF FCBIO_REF TOTAL_REF DET_TOTAL DEUDA_REFERRMSGCUENTADCUENTADESCRACUENTAABREVTMP1SALDODSALDOFCOD_PRONOMBREQUINCENA SALDO_A_FPENDDET_CODDET_ATRDET_BULDET_DESCDET_ALTLINEADLINEAGRUPODGRUPOMARCADMARCANCMPESOXUORIGENAD_LICAD_NOT DET_RECEP DET_COSTO DET_MONEDADET_DTO DET_RECIBI DET_DEUDA DET_FACTUCOD_PRONENTREGATRANSFREF2DESPACHODATATIPOESTADOESTADO2USRDUSRQUIENDQUIENOPS AUTORIZADACM_UNI2CANT_U2 PRECIO_U2MEDIDASOLSOLITM PER_ENTRE DIA_ENTREENC_OCENC_ITMCUMPL_ITCUMPL_PDPER_ITPER_PDRTOTAL0RTOTAL1RTOTAL4 TRIMESTREITMCV FECHA_MOVTRANOAK OAK_FECHACLIENTESIMPORTAC DET_CONVERDEPOSITO DDEPOSITOCENTRODCENTROPLANDPLANSOLICITAITMDESCCNOTACOMPROBCAUSAITEM TTOTALGENERALFULLIDID2ID3CM_PROCSA010592USUARIOSCREATE_OBJECT_SECURITY SYS_SECURITY OSECURITY SEC_TABLE_GET XARCHIVO1A4A3 OC_ESTADOOC_ESTADO_ABREVIADOALLRESUMEN1ASUMAR1 XSUMADEUDAXSUMAFACTURADO TMPORDNUMXOPSREFORDENENCREFREFITMREFCAUSAOPCONVERREF_OCFORCALCULAR_OTROSCM_SQL_COMPRAS_AUXMOVSTOCKCCVENT IMPORTACIONES RESUMIENDOTMPSALEXRECEP TMPSALIDA XRESERVASRERSPEDIDOPEDITMCANTIDADRESERVACLCLIENTETCTXNVENCOD_CLITCCVENTQBORRARXXMLDISTINCTQ1P_LOCALFN_XML P_CM_DATOS_OC SOLICITANTECM_SQL_COMPRAS_AUXILIAR XEXPORTAR EXPORT_DIREXPORTARMENSAJE/cm_rpt_comprasJ BUOFORMCM_RPT_COMPRASB TC %CxdprobCgT%CxhprobCT%CxdfecbDT%CxhfecbDT%Cxdfec1bD:T TT a T aHh  T-T C     Ta   c%c2 T- B U XTIPO_REPORTEXFILEXHFEC1XDPROXHPROXDFECXHFECOFORM XNO_RELEASEXRETURN OBTENER_FORMXDFEC1MOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR TCC$%Csysmsg WQ\sysmsg%Csysmsgue Q \sysmsgue%Csysmsgua Q \sysmsgua%Csysmsgus Q \sysmsgusFQ)otmpcmsql tmpcmsql2 ~F'%d    .5TC Mensaje_OC Mensajes.vcxa  FT T TTTTTTTT TC (TOrdenes de compra revisadas BUXMSGXFILEOMSG EJECUTAR_SQLP_SYSTEMTMPCMSQLDATATIPO TMPCMSQL2 DET_RECEP DET_RECIBI P_OC_PORCMSG_LEER MSG_SUBTIPODAT_OCORDENDAT_ITEMITM DAT_FECHAFECHA DAT_VENCEENTREGA DAT_COD_INSDET_CODDAT_BULDET_BULDAT_ATRDET_ATR DAT_CANTIDAD DAT_RECIBIDO MSG_FECHAOBJ_AGREGAR_SUCESO ~H CayB >  C-C6?n > Cqh? > 2 >BU PER_DEMORAPUNTAJE ~H C  H> MUY BUENO Crt!@y>BUENO CN`@>REGULAR 2>MALOBUPUNTAJE CALIFICACION#4% SCFNo pueden mostrarse las reservas con las recepciones !!! Uno u otra...B%CxdmonbN T1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxGT Cexportaciones_crystal Imp_exp.vcxcm_rpt_comprasT  \xchgT T  TTTTTTT C BUXTABLAXDFECXHFECXDTIPXDMONXXML XRESERVAS XRECEPCIONESMENSAJEOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG5XDLOG9XDLOG6 EXP_TABLA#4% SCFNo pueden mostrarse las reservas con las recepciones !!! Uno u otra...B%CxdmonbN T1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxGT Cexportaciones_crystal Imp_exp.vcxcm_rpt_comprasT  \tmpT T  TTTTTTT C BUXTABLAXDFECXHFECXDTIPXDMONXXML XRESERVAS XRECEPCIONESMENSAJEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG5XDLOG9XDLOG6 EXP_TABLA obtener_formȟ ejecutar_sqlmsg_agregar_nuevos&puntaje* calificacion exportar_1 exportar_ocs1A!A!A!A!AsA1AAA!ArsqGuAqA!AAAAQ1QAcAaAaAaAAAQaAAQaAAAdb111AHeᓣqAaAAbAsr1AderB2RBAAm22ABRqAAB\qAAcQ1p0ArAt11Q1Aa#qAAqAArrBrbAHsAAA1AAAAAAA*&ArrrAAAAsAAAABrwrAqAA!AsAtAsA11Ac ArAqD11b1!AR RrrBC6!A3fAAAqAAqAAC2q2AAAAbA1Q211A1A3q1AAAAqqAAQqA4AAA2qb"BAAA34c1AAAq"!BA21c1AAAq"!BA14*:Uk~#E=^%c 3 ^w LnV.,G(9 pr_ordenes T T T- T-!pr_reimprimir_ordenes(%C BU ACTIVEFORM DATASESSIONID OPEN_FILES PR_ORDENESXNUMPRODXDESCR XRESULTADOXREQPR_REIMPRIMIR_ORDENES REIMPRIMIR 4 pr_ordenesG+( pr_funcionesF G((prod E T T T T  T  TTTTTTTTFG((deposito ETCT C!T"C#T$C%T& ORIGINAL '#T(DUPLICADO DESTINATARIOT)C*T+,T-.%/<  01(T 1 T 1T 1T 1T012(/T 2C producci.bulCC2Z/T 2C producci.canCC2Z/T 2C producci.prdCC2Z(T 2C2 3T43 5 %6C Suspendo?a7<8 8T9:0oproducci,;98% T<C8T=C8T>C8  T< T= T>%?7@a/%A3 @a/ %At @a/ @a/BaUBXNUMPRODXREQ OPEN_FILES PR_ORDENES PR_FUNCIONESPRODUCCIPRODZNUMPRODZNUMEROCOIA_NXCODIGOCODIGOXBULBULXATRATRXFORMULAFORMULA XCANTIDADCANTIDAD XDEPOSITODEPOSITOXDEPINGDEPINGXFECHAFECHAXIDID XOPA_MAQUINAMAQUINA ZDEP_DESCRDESCRZDEP_DOMDOMZDEP_ZIPZIPZDEP_CIUCIU ZDESTINO1 PUBHEADER ZDESTINO2XDESCRPR_GET_FORMULAXLOTELOTEXVENCVENCMULTIPLEXFORZTNITPEXPEPR_SQL_ENVASADOENVSYS_MOSTRAR_SCREEN ARR_PRD_ENVXSEMIOPSEMIOPPECIEZORI_CANZORI_LOT ZORI_PECIEP_PR_IMP_VERSIONPR_SQL_APERTURA_OPP_EDITA_FORMULA reimprimirIS!AA3Rbqq!!!!12!q1ABbsr"AAAAC22A3AACq1 ' %X f#> s-Vb,G(9"T\tmp\CC]RG+(listadosdey_funcG~(clases pr_protocolos T T CX T  T C$T T T+a TH  pr_protocolos_1(T% +aTCH  T! . o TrC1No se pudo concluir correctamente la transaccin.C *Debe modificar el detalle del comprobante.! >C1Error irrecuperable. Consulte al soporte tcnico. T!%C ! C Suspendo?a    #)pr_protocolos_2(% +aTCH  T! .  TrC1No se pudo concluir correctamente la transaccin.C *Debe modificar el detalle del comprobante.! >C1Error irrecuperable. Consulte al soporte tcnico. T!%C !%C cur_dprotCFQ%C cur_eprotlFQ.*BU XTIPO_ACCION ACTIVEFORM DATASESSIONIDXARCHIVOP_LOCALLISTADOSDEY_FUNCCLASES OPEN_FILES PR_PROTOCOLOSXNUMPRODXCOD_CLIXSUCXFECHAXELABXUSRXFORMXMAXFORMPR_PROTOCOLOS_1XRESXFORMULAPRODUCCIFORMULA XRESULTADO REGISTRARMENSAJEWIZARDSYS_MOSTRAR_SCREENLEER_PROTOCOLOPR_PROTOCOLOS_2 CUR_DPROT CUR_EPROT 4H 6B- %mT ~B- % T B-  TBaUXRESXFORMXMAXFORMf Ta T*trsaceprotdprot%Q Tktrsac Pr_protocolos Protocolos CIngreso/Modificacin Anulacin6%5TC% T 1T MTktrsac Pr_protocolos Protocolos CIngreso/Modificacin Anulacin6H@ % %  +  pr_protocolos %  {,CSe ha guardado el protocolo !!!   %  +CSe ha anulado el protocolo !!!  B  B C$ B @ B T  [BU XTIPO_ACCIONTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRAN TTS_ERRORIMPRIMIR_PROTOCOLO PR_PROTOCOLOSMENSAJETTS_ID%F G((prod E%C4z5>   Lreprot     qdprotF~C rdprot qeprotqdprot[ T- BU XTIPO_ACCIONEPROTPRODXNUMPRODFECHAXFECHAUSRXUSRCOD_CLIXCOD_CLISUCXSUCELABXELABDPROT CUR_DPROTDESCRORDENDESDEHASTAVALORRESULTATIPOTRSAC%Cusuarios 6Q \usuariosCdespachoCclientesCsucursalCbienesCatributoCbultosCproducciCeprotCdprotBUP_SYSTEM CHK_OPENEDAG(9G+(listadosdey_funcG~(clases"T\tmp\CC]R T pr_protocolo( %6  pr_protocolosT  T TCX TT   pr_protocolosBU ACTIVEFORM DATASESSIONIDLISTADOSDEY_FUNCCLASESXARCHIVOP_LOCALXNUMPROD PR_PROTOCOLOXRES OPEN_FILES PR_PROTOCOLOSXFECHAXUSRXCOD_CLIXSUCXELABLEER_PROTOCOLOIMPRIMIR_PROTOCOLO4&oeprot cur_eprotT  ((T CC producci.cieCC Z DTCC 6% T T T TT k TC TTCX TTQodprotCXQQQQ cur_dprot% 8foform_calQCXQQQQ cur_dprot>D/H>V/D>Txt>Enc#)BU XNUMPRODXFECHAXUSRXCOD_CLIXSUCXELABEPROTPROD CUR_EPROTXCIERREZFECHAUSRCOD_CLISUCELAB PUB_INDEXTIPO_TDESDE OLD_DESDEHASTA OLD_HASTARESULTA OLD_RESULTDPROT CUR_DPROTVALORFORM_CALFORMULAXFORMULAFORTIPO&%Cxdestino_forzadobNJ T%n T%CC T%CN T%CC T/G+( pr_protocoloslistadosdey_func T T  T  T  T  T  T T TT T?listados     TTT(T\cpbt\ -logo.jpg T T T!"T#$% C$%bienescodinsT&C'(%')S)C$%$*atributocodigoT&& C+(%',Sd'C$%$-bultoscodigoT&& C,( T./ T01%Cusuarios Q2 \usuariosC3usuarioscodigoT45(%C6 9C6clientescodcli T76T89: ] T7 T8T;$<F=G((DESPACHO!E$<$%$-$* T>?T@ protocolo.frx TA TB TCa(TDPR CC"Z - Protocolo(TEPR CC"Z - ProtocoloTECEFTGC6TBCB6o Cur_dprotHI(CH/(CCJ Z a CCK Z)BCH1(CCJ Z +/- CCK Z)C(X66QLCCCHCCM ZCN=6QOcur_protC Suspendo?aRZSlistados@GBAD.t.aaaaa-CE-FQQBUTXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNOTREALTIME PR_PROTOCOLOSLISTADOSDEY_FUNC ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOXOBJ_DATOS_EMPRESA DATOS_EMPRESAZEMPWEBWEB ZEMPEMAILEMAIL ZEMPTXTCPBTTXTCPBT ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUA ZPROTOCOLOXNUMPRODXCODIGOPRODUCCICODIGOZDESCRBIENESDESCR ATRIBUTOSATRATRIBUTOBULTOSBULZEMISIONXFECHA ZELABORACIONXELABP_SYSTEMXUSRZUSUARIOUSUARIOSXCOD_CLIZCLIENTE_CODIGOZCLIENTE_NOMBRECLIENTESNOMBREZLOTELOTEDESPACHO ZVENCIMIENTOVENC XFORMULARIOXCOPIASXDRIVER XCOPIAPDF XIDARCHIVO XARCHIVOPDFLIMPIAR_FILE_NAMEXDESTINOTIPOORDENDESDEHASTA PARAMETROSVALORRESULTA RESULTADO CUR_DPROTCUR_PROTSYS_MOSTRAR_SCREENIMPRIMIR_FORMULARIOwizard registrar3 transaccion/ open_filesimprimirleer_protocoloimprimir_protocoloq%11!1A1B1!A1AAABAA2rS!1A1B1!A1AAABAABBqAAqAAB31r12qA12A1r1Ar3q22"2AA14AAAA22BBB3q<sVArr1!AqrAB2ARQQ1Q1Q!!A2%421AB2b2A"1A"cBRA3qbA2ArArArA1!rArqAA#Ar"usrAB1S* h 870S'RF*%TYT,< G(9 $"T\tmp\CC]Rte_pago%Cchp QchpG+(listadosG~(clases T C$ T C$ T - T +a1 T H- c-!te_renumeracion_cheques_propios-1(%C  _! -%Cq_chpQoUven_operQXcuentasQ (XclientesQ- 0-0COPA3CAAJCLASXX666QQQQQ !Q"Q#CC-%C(X(Q%C+ ,S com_operQXcuentasQ (XproveedoQ$ *$*COPA3CAAJCLASXX666QQQQQ !Q"Q#CC$%C(X(Q%C+ ,S q_chp& & & & & & ""& %%&  T a-!te_renumeracion_cheques_propios-2(%F T1<~   rT11C2%14C'Se han realizado las modificaciones !!!3 =C0No se han realizado todas las modificaciones !!!3%C  )!BU4 ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILESTE_PAGOCHPLISTADOSCLASESXDESDEXHASTA XCONSULTADOXFORMXMAXFORMTE_RENUMERACION_CHEQUES_PROPIOSXRESWIZARDQ_CHPCAUSACAUSATXTCCOMPROBCUDESCRBANCOCUENTANUMERO DIF_VALORECHEQUEABREVOLDECHOLDDIFOLDNUMCAJ_PROIMPORTEORIGENPNOMBRECOM_OPERCUENTASCOD_CUEPROVEEDOCOD_PROFECHAPROPIOCLVEN_OPERCLIENTESCOD_CLI XOKRESULTADO REGISTRARMENSAJE 4H 6B- %mT ~B- % T B-  TBaUXRESXFORMXMAXFORM~TC Suspendo?a TT TT T% F G((num E T -+C+   "%S   T a!H% F uTChp: Cta:C Num:CC Z Fec:C* Echeq:CSiNo6 -->  T8TNo se encontr el valor CC Z !!! `F G((num E T -8+C+   S  ~%C4v T a!H% FuTChp: Cta:C Num:CC Z Fec:C* Echeq:CSiNo6 --> \ T8TNo se encontr el valor CC Z !!!% B TCL6 T T-# co_funciones% 8 T3TEjercicio inexistente !!! (C*) BF G((ID!EC  ZCZ T T %C4s T TTdiariogdT  conceptod T-/ co_funciones % o T3TEjercicio inexistente !!! (C*) B T!a T"v#trsac"consproveedocom_operccprovchequesdiariogconcepto %"i T"+$trsac"Te_pagoPago T%"TC%% T" T" T"+&trsac"Te_pagoPagoHX . B XC' B T( sBU)XNUMQ_CHPNUMEROSYS_MOSTRAR_SCREENXASIENTOXFECHAXASIDEBIXFECDEBIXOKORIGENCOM_OPERNUMOLDNUMXENCPROPIOCUENTAXTXTABREVOLDDIFOLDECHXMSGVEN_OPERCAUSAASIENTOASIDIAFECHA XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESCHPIDXALIAS_DXALIAS_CTRSACAAALOCK_GBEG_TRAN TRANSACCIONEND_TRANMENSAJETTS_IDC Suspendo?a T%AF RF TCOT %%G((cuenumE C Z%C4! TOT  El cheque CCZ de la cuenta C  ya existe !!!%FF WF n # T%% >!T Num:CCZ>%J>T Fec:C*%>1T Echeq:CSiNo6% %FG((asiento E T-+C+  O$%   G Ta!H%!C cuentascuenta$>CCZ % F!G((asiento E %C49+C+   5.>!CH.N CCZ H  T0T #Asiento de dbito no encontrado !!!   T#T Pase no encontrado !!!  TT No hay asiento !!!%kJ"##te_renumeracion_cheques_propios.prg J"# #te_renumeracion_cheques_propios.prg [ T$- BU%SYS_MOSTRAR_SCREENXOKQ_CHPORIGENCOM_OPERVEN_OPER XREGISTROXCAMBIA_NUMERONUMEROOLDNUMCUENUMCUENTAXMSGBANCO TTS_ERRORXTXTCHPIN DIF_VALOROLDDIFECHEQUEOLDECHXASIENTODIARIOGASIENTOXENCCOD_CUEIMPORTECREDITO COMENTARIOCUENTASDESCRXASIDEBIDIARIOGDUSER_LOG PUB_INDEXTRSACwizard@ registrard transaccionWA%"RA"1AA2dA+2r"B2AABAABBI31r12qA12A1r1Ar3r11br!AAAAqQArAAAAqQAB2A31AsRa1ABk222AA12BBB3~brrArAAbrrAA2rBAA2rAAAAAB2rAAAB1AAA2ABB1:  O. Sk%M%C&6(h&Q,4 G H CC]=TFWHY[TC:\sistema\system 2"TC:\sistema\system_tfwCCC%BQ\stockgQ \stkxdepg+Q\data\CCZ\stock/Q\data\CCZ\stock/Q\data\CCZ\stock-Q\data\CCZ\stkxdep1Q\data\CCZ\stkxdep1Q\data\CCZ\stkxdepo4stock2     4stock3     stock     qloq C Q C Q C Q C Q  q_stockMostockg CQ q1%CN/C"Registros duplicados en stockg !!! Lostkxdepg               q% JC>Cantidades invlidas en Stkxdepg (Global) a nivel registro !!!x LBostkxdepg C QC QC QC Q      q% `CTCantidades invlidas en Stkxdepg a nivel de codigo, depsito y despacho (Global) !!!x LBoq_stockQstockgQ  QQ Q Q      qoBstkxdep2     Bstkxdep3     stkxdep     qoq C Q C Q C Q C Q  q_stocksostkxdepg CQ q1%CN0C$Registros duplicados en stkxdepg !!!x Lostockg  "    "         q%  7C+Cantidades invlidas en Stockg (Global) !!!x LBostkxdepg C Q C Q C Q C Q  qqZoq_stockQqqQ  QQ QQ$Q$ Q  Q% Q& Q'  B            q% ) FC:Incoherencia entre Stockg (Global) y Stkxdepg (Global) !!!x LBBU(XFISICOXPATHCONTROLAR_STOCKSTOCK2STOCK3STKXDEP2STKXDEP3CODIGOATRBULCANTIDADCANT_COMCANT_OCCANT_PRDSTOCKQQ_STOCKCANSTOCKGQ1MENSAJEDESPACHODEPOSITOEMPSTKXDEPGCOMOCPRDSSCODIGOSATRSBUL SCANTIDADSTKXDEPCANT_PEDQQ SDEPOSITO SCANT_COMSCANT_OC SCANT_PRD$%CxempresabN: TT\log)\data\CCZ\ges.DBC%C"obienesQq_artsTq_artsopickingsQ compromQtccventQ Q          q%CNDC8Incoherencia de ID entre el pedido y sus compromisos !!!x Lnopickingstccvent  Q    q%CNOCCHay pickings pendientes sin su correspondiente pedido pendiente !!!x LBeostkxdepCQq% f%CDuplicados en Stkxdep !!!x LBKostockCQq% #CDuplicados en Stock !!!x LB%Cmovstock"F Q%Cm1DF!Q%Cm2fF"QF-Q\data\CCZ \movstock!F1Q\data\CCZ \movstock"8om2Q#m1Q#movomovC%Q&C & q% ,CC'Error en cantidades !!!x LB%Bostkxdep%()*% ( ) * (% q% /C#Cantidades invlidas en Stkxdep !!!x LBostock%+()*% + ( ) * (% q% -C!Cantidades invlidas en Stock !!!x LBXocompromQXpickingsQ  tccventQ   Q ,-.CQ% 7          ,-.%q_com1oq_com1QtccventQ ,-.C%Q   ,-.q_comwomovQ1     C %Q%     q_movoq_comQXq_movQ1 ,-.     ,-. %Q3C %  % q_com2% [ PCDError en Movstock --> Compromisos, hay ms compromisos que stock !!!x LBmomovQ1q_arts   C %Q    q1oq1XstkxdepQ6 5CXCX556666655556Q76Q86Q96%Q:56%movstock_vs_stkxdep%  -C!Error en Movstock --> Stkxdep !!!x LBostkxdepQ6Xq1 5CXCX556666655556Q76Q86Q96%Q:56%stkxdep_vs_movstock% +,C Error en Stkxdep --> Movstock!!!x LBotventasQ tccventQ>  => > Q   ? @Q% >  >  =qp?opickingsQ qp B B q1pocompromQq1,-.5   5 com1+otccvent q1_ocompromq1,-. 5   com2$o com2com1ǼcomsocomQ,-.CQ,-.qoqstkxdepQ6,-.66QG6QH666(,-.666666( com% 1C%Error entre Compromisos y Stkxdep !!!x LBotventasQ tccventQ>>   => Q   ? @Q% >  > C   =qp?opickingsQ qp B B q1ocompromQq15 =,-.5   5 com1wocom1Q =,CQ =,com1oqpXcom1 CB ZCB=ZBBBCD ZCD=ZD,DDB B=BBBB%D,DQIDQJD QKD=QLDB%CDQMq?oqCMQ%qoqstockQ6%6Q76QG6QH6+666%6+ q% +CError entre Pedidos y Stock !!!x LBBUNXALIASXEMPRESAXFISICOXCARPETAXPATHCOD_INSCODIGOBIENESQ_ARTSTIDID_PDPEDIDOPPICKINGCPICKINGSCOMPROMTCCVENTPCKESTADOCANQTPEDIDOEST_DESPATRBULDESPACHODEPOSITOCNTSTKXDEPSTOCKMOVSTOCKM1M2EMPMOVCANTIDADCANTFNCANT_COMCANT_OCCANT_PRDCANT_PEDCODDEPDSPQ_COM1Q_COMMQ_MOVCAN_MOVQ_COM2Q1SSCODIGO SDESPACHO SDEPOSITO SCANTIDADMOVSTOCK_VS_STKXDEPSTKXDEP_VS_MOVSTOCKITMTC RECEPCIONRECEP2TVENTASQPDISTINCTCOM1COM2COMSATRSBULCATRCBULCPEDIDOCITMSALDOBCCZ: UXEMPRESAcontrolar_stock fn&xc!A"""RAA !AAAA~"AAAAA "AAAAA B2!AAAAO"qAAAAA"aAAAAAD3ARR!1A0a "AAAAA"AAAAAZ"QAAAAA"1AAAAAqAA2qAA2qAA"AAAAAAA@"AAAAA1"AAAAAP w "AAAAA "AAAAA "AAAAA  D7"AAAAA w #AAAAAC2q11MAAB%&*Pd'Z`WS,U5G+( co_funcionesT T T T T T T F %CB- 3%CZCZCZCZ%CcdOAL@  TWCJEl comprobante no puede ser referenciado. Slo FC, NC, ND, CP, AJ y AS !!!B PCCEl comprobante no puede ser referenciado. Slo cabezas de grupo !!!B- T%C F ++C+   T F H%Ccuentas Qcuentas TC$TC XTCAX%%CC2 g%CC!9 ?CEl redondeo no debe superar CC! Z !!!B {%C2  ]C-No hay cuentas definidas para el REDONDEO !!!C Es necesario definir una. s^C3Hay ms de una cuenta definida para el REDONDEO !!!C Debe haber una sola.B T-2ge02_provision(% B- T T## co_funciones%@CB- T#$ co_funciones%8%C%Ba B- '?T$Ejercicio inexistente para la fecha C* !!!B-BaU& XREDONDEO CO_FUNCIONESXCOD_PROXCOMPROBXCAUSAXCUOTAXFECHA_REFERENCIAXOP XCOMPROB2CTACTECOD_PROCOMPROBCAUSACUOTAOPFECHACOMPROB2XFECHAXIMPORTEXERRXMSGXDIRXRESREFCAUCUOOPRMENSAJEIMPORTECUENTASXCUENTA XCONCEPTOATRCANP_TE_REDONDEO_MAXIMOGE02_PROVISIONCO_VALIDAR_FECHA_REGISTRACIONCO_ABRIR_TABLAS_EJERCICIO TRANSACCIONc+  T  T  T ; trsac ccprovdiariogconcepto% D T Ltrsac ge02.provisiones.prgProvisin de Comprobante%  T  T 7   %  T  T  T Ltrsac ge02.provisiones.prgProvisin de Comprobante%C ,C  TB- UB-BaUXCOD_PROXCOMPROBXCAUSAXCUOTAXOPXFECHA_REFERENCIAXIMPORTEXFECHAXCUENTA XCONCEPTOXERRXMSGAAALOCK_GTRSACBEG_TRAN REGISTRAREND_TRANMENSAJETTS_IDP 3   3   T T T T</ocuentas % TC O T T1T$No existe la cuenta seleccionada !!!B-&TCC CC 6 T#T CCC!6%Cproveedo Qproveedo%"#CproveedocodproT"$ T T%a T&CWF'G((asiento#6T (F)G((asiento E %C4 +>( ) *+% T T * TTcF'>,-.L/0123 ( 4P5"567N8C$9:;<=>?@AF'>,-.L/0123 ( 4P5"567D8C$9:;<=>?@AB co_asientos %x TD TE- TFF TCO%CcdLZ>#/C @z 9999,999,999_GLHI23 JKL MCC/60CCG6NCCH6OCCI6PCCP6Q8C$<RSC]T @A!>U#/GCHZCIZ%C FFG((comprobECZCZVge02   >#/C @z 9999,999,999_GLHI23 JKL MC @z 9999,999,999_0LNOP Q8C$<RSC]T @A!>U#/GCHZCIZ%C FF TXCOG((comprobECZCZC+C+ 0#/GCHZCIZCZCZ %KcCY J>MC @z 9999,999,999_0LNOP H #X)Zge02#/GCHZCIZ$%CcuentascuentaO %C!K F[>\]^c/C @z 9999,999,999_( GL23 #8C$73MCC/60CCG6R<>?@A ~ TD TE- T T%-%@ _AC  ZLC  Provisiona Ajusta 6CCFCCdND??66 ge02_provisiones.prg BU`XERRXMSGXCOD_PROXCOMPROBXCAUSAXCUOTAXOPXFECHA_REFERENCIAXIMPORTEXFECHAXCUENTA XCONCEPTOXAREANEWASIXXERRORXDEBITOXCREDITO XCOMENTARIO1 XCOMENTARIO2XMONEDAXMONEXTXMONPASEXCUENTA_DEUDORES XREGCCPROVXCOEFIC ARR_CUENTASCOD_CUEATRIBUTODESCRCUENTASABREVXCUENTA_CODIGO XASITIPO2 ES_AJUSTEPROVEEDOCOD_PROCUE_DEUTRSAC XAREA_ASIDIARIOGASIENTOCONCEPTOUNTIPO2DEBITOCREDITOPOR_QUECOMPROBCAUCOD_CENPASEFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEUSR PUB_INDEXFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKCCPROVCAUSACUOTAOPCOMENTARIMPORTEVENCREFCUOOPRFECREFDES_PROVCOEFICIDUASITIPO2ID CPBT_MANTGE02XREG121CANCELFN_CANCCOM_OPERCUENTADES_VALCAJ_PROUSER_LOGH4C Suspendo?a T T #  co_funciones % B  T C  co_funciones dia_provcon_prov% ;?T $Ejercicio inexistente para la fecha C* !!! B FG((asiento#6TFG((asiento E%C4 `>5Inversin de Provisin de Comprobantes de ProveedoresF( \tmp\dia_tmp#Q \tmp\dia_tmpFG((asientoECC,g&+C+ CC,g ^(rdia_tmpHF#) T T&+C+ CC,g T^(FG((asiento_%h T > T > >FH%Cdia_tmpFQ%Cdia_provFQ%Ccon_prov"FQ co_asientos % ` B F! T"CO>#$C@z 9999,999,999_%L&'()*INVERSION PROVISION+,-./0123C$456C]7!>8#$%C&ZC'Z%C )9ge02CZCZb;<=>Inversin de provisin AS CC,ge02_provisiones.prgBU?XCOD_PROXPROVISION_COMPROBXPROVISION_CAUSAXPROVISION_CUOTA XPROVISION_OPXPROVISION_FECHAXFECHASYS_MOSTRAR_SCREENXERRXMSGCO_VALIDAR_FECHA_REGISTRACION CO_FUNCIONESXDIRCO_ABRIR_TABLAS_EJERCICIOXRESDIARIOGASIENTONEWASICONCEPTOUNTIPO2DIA_PROVP_LOCALDIA_TMPARR_PROVXPASEXIMPORTEDEBITOXTEMPCREDITOCON_PROVFN_CHECK_ASIENTO CO_ASIENTOSCCPROV XREGCCPROVCOD_PROCOMPROBCAUSACUOTAOPPASEFECHACOMENTARIMPORTEVENCREFCAUCUOOPRFECREFDES_PROVHOYMONEDACOEFICIDUASITIPO2IDFN_CANCGE02USER_LOG PUB_INDEXXNUMEROFXCAUSA- 4%Cxcod_probC8TCX%Cccprov fQccprov%Cproveedo Qproveedo%Cagente QagenteT.t.%C $Tccprov.cod_pro=xcod_proselect ccprov.cod_pro, proveedo.nombre as nombre, ccprov.comprob,ccprov.fecha,-ccprov.importe as importe ,proveedo.vendedor, agente.nombre as nomvend from ccprov left outer join proveedo on ccprov.cod_pro=proveedo.cod_pro left outer join agente on proveedo.vendedor=agente.cod_age where ccprov.asitipo2=20 and ccprov.comprob+ccprov.causa+str(ccprov.cuota)+str(ccprov.op)#ccprov.ref+ccprov.cau+str(ccprov.cuo)+str(ccprov.opr) and ccprov.cau$"Ccd" and !empty(ccprov.cancel) and &xfiltro into table (xtabla) QBUXTABLAXCOD_PROCCPROVPROVEEDOAGENTEXFILTROprovisionar_comprobante, transaccion registrar anular_provision_transaccioncomprobantes_provisionadosg#1qbtSr2qAAqAAeqBrAAA1AAAAAAA!qA32qA3qqAqAr222r3AA#ArrAr312s!qAc1AAaAsQsQA3AvQpsQp2AtrRPcqAUPbq2AAABBCbtQ0BA2 A3t32A3AsQsQAt2rBbAAArQarQ2ArAAqAAqAAqAA2AtR@cA#B3A!AAA!Ar"AA} BB1# U Yuoj..<:-<?% 3 uI SV$-G(9 CF TTCX T T%cm_anular_orden_de_compra(%C  BU ACTIVEFORM DATASESSIONID OPEN_FILESTCCCOMPXORDENXCOD_PRO XANULACIONXRESCM_ANULAR_ORDEN_DE_COMPRA ANULAR_OCORDENfilesBUOPEN_FILES_ORDEN_DE_COMPRAFILES 4TC filesFG((tcccord E%C4%C  TT T  T  !TC@z 9999,999,999_TPVT "tcompras", "tcccomp", "ccprov","cos", "cosimp","cosult"%> T.do lock_g in trsac with aaa , &xtrs_files %C*Tcm_anular_orden_de_compra.prg)TAnulacin de Orden de Compra Ttrsac2CC@z 9999,999,999_NF CF G((pend% E6TC@z 9999,999,999_PCZCZFG((orden E+C+  =proc_stk!"#$-%c%C& y.' cs_generar!"#FHF*G((comprob E/+C+  +,C-ZC.Z H%%YF8> 0 /ANULADA  T0trsacT1N!T2C@z 9999,999,999_C21 T3%?QCLa Orden de Compra CC@z 999,999,999_ ha sido anulada !!!4 2C%No se pudo iniciar la transaccin !!!4 -C La orden de compra no existe !!!4BU5XORDEN XANULACIONOPEN_FILES_ORDEN_DE_COMPRAFILESTCCCOMPTCCCORDTIENE_ENTREGASXIMPORTEXCOD_PROCOD_PROXFECHAFEC_COMXFECDGIFEC_DGIXCOMPROBXCAUSA XTRS_FILES P_CASHFLOWAAATRAN_PRGTRAN_TXTBEG_TRANTRSACUSER_LOG PUB_INDEXPROVEEDOREG_LOCKPENDORDENXIDTCOMPRAS ACTUALIZAR_OCPROC_STKCOD_INSATRBULDEPOSITO RECEPCIONP_COSTO_COMPRAS_FCELIMINAR_COSTO_OC CS_GENERARINCCPROVCOMPROBCAUSACUOTAOPDES_PROVEND_TRANXXXCAUSA XXXCOMPROBTTS_IDMENSAJEGF% T-FG((orden E+C+  % Ta!H% B- GC:No se puede anular una OC que tiene entregas parciales !!! 97C*No se puede anular una OC ya facturada !!!BaUTCCCOMP FACTURADOXENTTCOMPRASORDENXORDENRECEP3MENSAJE open_files\ anular_octiene_entregasw rQ2BBB3B32rgE2"us1AbBrArAArAAAH5qQA2A!ABAB3q1q1AAAAqqAqAq1 )bx^ %uFjLCG}OX`-iG(9T90G+(ve_procslistadosve_presupuestoTCT C%CtempcompF QT C ve_presupuestoC %-RLT?epresup.fecha>=date()-180 and !cerrado and epresup.venc>=date()CF #) T&ve_control_de_presupuestos(%CocsFQ%Cocs_tmpFQ%C ocs_tmp_bieFQ T.dbf.cdx .dbf .cdx ^BU ACTIVEFORM DATASESSIONIDXDATASESSIONIDVE_PROCSLISTADOSVE_PRESUPUESTOXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2TEMPCOMP XTEMPCOMP OPEN_FILES CREAR_TABLAXFILTRO PRESUPUESTOSOCSXRESVE_CONTROL_DE_PRESUPUESTOSOCS_TMP OCS_TMP_BIEO 4G+(ge01G+(listadosCC ZSBU XPRESUPUESTOXCOD_CLIGE01LISTADOSCPBT_VIS/ %CxFiltro2bN6 T%Cocs_tmp]FQ7sys_performanceControl de presupuestosselect epresup.fecha as fecha , epresup.numero as numero , epresup.cod_cli as codigo , iif(!empty(epresup.des_clie), epresup.des_clie, nvl(clientes.nombre,space(40))) as nombre , .f. as tilde , usr as quien , space(40) as dquien , importe as importe , epresup.pedido as pedido , epresup.vendedor as vendedor , nvl(agente.nombre,space(40)) as dvendedor, epresup.venc as venc , epresup.cerrado as cerrado , epresup.estado as estado , iif(epresup.estado=0, padr("No tiene",30),iif(epresup.estado=1, padr("Parcial",30),padr("Total",30))) as estadotxt , epresup.suc as suc , NVL(sucursal.nombre, SPACE(40)) as dsuc , epresup.referencia as referencia from epresup left outer join clientes on epresup.cod_cli=clientes.cod_cli left outer join agente on epresup.vendedor=agente.cod_age left outer join sucursal on epresup.cod_cli+STR(epresup.suc)=sucursal.cod_cli+STR(sucursal.sucursal) order by epresup.numero where epresup.cod_cli#"0 " .and.epresup.cod_cli#" " .and. &xfiltro into table (xarchivo) Q-sys_performance Primer select%Cusuarios Q \usuariosFG((codigoFG-( >  >sys_performanceAsignacin de usuarios y otrosBUXFILTROXFILTRO2OCS_TMPPERFORMANCE_STARTSYS_PERFORMANCEXARCHIVOPERFORMANCE_CHECKPOINTP_SYSTEMUSUARIOSCODIGOQUIENDQUIENDESCRALLPERFORMANCE_END%Cocs&FQ#h1DN CC(LNC( N C( N N  CC(DLNCN C(C(QF& C& & CZ& & & & BUXARCHIVOOCSFECHANUMEROCODIGONOMBRETILDEEMISORDEMISORQUIENDQUIENIMPORTEPEDIDOVENDEDOR DVENDEDORVENCCERRADOESTADO ESTADOTXTSUC REFERENCIADSUC41C$Convertir en pedido. Automticamente T-%C tmp_epresupvFQ%C tmp_dpresupFQ%C tmp_itm_descFQ T -oepresup  tmp_epresupT  T G+( ve_funciones T T%%C !%  8odpresup  tmp_dpresupdoitm_descCCZC ZSCZC ZSC'Z tmp_itm_desc Tztrsacstockstkxdeptccventtventasccclieepresupdpresupitm_desc%+TVe_control_de_presupuestos.prg T Convertir en pedido T!trsac %T C"%  T T T#trsac +% $  %%=& ve_pedido% FCSe ha registrado el pedido CC@z 999,999,999,999_( T)  T  !CCliente inactivo !!!( T  (C( T %C tmp_epresupSFQ%C tmp_dpresup~FQ%C tmp_itm_descFQ B U* XPRESUPUESTOXPEDIDOXMSGXAUTSYS_MXEXTERNO TMP_EPRESUP TMP_DPRESUP TMP_ITM_DESC XRESULTADOEPRESUPNUMEROXCOD_CLICOD_CLIXSUCSUC VE_FUNCIONESXERRCLIENTE_REVISADOCLIENTESEST_ACTP_VE_PRESUP_CLI_ACTIVODPRESUPCANTIDADITM_DESCCOMPROBCAUSAITEMAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANCONVERTIR_EN_PEDIDO_TRANSACCIONEND_TRAN TTS_ERRORP_VE_SEGUIMIENTO_PD SEGUIMIENTO VE_PEDIDOMENSAJETTS_IDTCprocvG+( ve_pedido%Ctr04 LQtr04 T Ta T-FG((codcli E %C4k F T  T  T  T C$ TC$TCXTCX TTCX T T T T T T T T T T T T T T  T! T" T# T$ T% T&T'N T(7T)C*+ *+C,66 T-T.C X T/0 T1T2CX T3T4N T5 T6 T7T8CX T9T:CX T;T<NT=T>NT?T@TA TBCTDCXTE TF TG TH TI TJTKCXL ve_pedidoFMG((tccvord#6T O>  P QCCQ QR6O SC$TC$UC$VC$WXYYZ[\]80^C]_`a`bbccddeeffghPPiijjkkllmmn0oo]Co99806pqrsttuvwqxy>zz{|F}>  ~C @z 9999,999,999_PC$C$C$SC$^ C @z 9999,999,999_PCZC]ghvv>zz{|F T T ~ FG((codinsECFTTTTTTCTFG((codins ETC%SFG((codigo ET C%S FG((codigo ET CTTF>  QRTC$O CSC 6SC$-*>zz{|z">pC{>C>d'%Cdpresup.subcentrobN >F,>  T T Tiproc_stkCXPM^ CC @z 999,999,999_C$7F ~ <^(F_*>~C  ZPFF>O C0 ve_aprobacion -a  % @C Procesando: CCOZ Cliente inexistente !!!% ? gCCliente C  CR no encontrado !!!C No se registrar el pedido.% e[C] C: Cliente C  CR no encontrado !!!>set procedure to &xsetproc_convertir_en_pedido_transaccion T- BU(XSETPROC_CONVERTIR_EN_PEDIDO_TRANSACCION VE_PEDIDOTR04XERRORTRSAC XUSAIVAANTCLIENTESCODCLI TMP_EPRESUPCOD_CLIXSUCXPEDIDOXTIPOPEDXFECEMIXFECENTXFLETE XVENDEDOR XCOMI_VENXDISTRIB XCOMI_DIST_DESC1T_DESC2T_DESC3T_DESC4T_DESC5T_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XLISTAXPRODXTRANXTXTCPBT XTXTREMITO XCONTACTOXMONEDAXCAMBIO XERRMONEDAXDIVISASXPLANXSUCFACLOCALESVE_024P_SUCXMOTIVOXREFXDEPOS P_DEFADEPXPEDVEN XCENCOSFACXNRE XPROMOCION XREVISIONXREVISION_ACTUALXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGAXFCE_RECHAZADOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXREF_EXTXFEC_INIX1X2X3X4X5XOC INIT_OTROSTCCVENTTCCVORDPEDIDOSUCDES_CLIENOMBREHOYFEC_VENFEC_INIFEC_ENTCUIT INSCRIPCIOSUCFACAGENTEVENDEDOREST_DESPTIPODOCIDNOTASCPBTTXTTXTCPBTPLANLISTACOD_CENCOD_FLEDISTRIBUSR PUB_INDEXDESC1DESC2DESC3DESC4DESC5DEPIVACATTOT_VENBASEIVA_VENIVADES_COMDEUDAIMPORTE IMPONIBLEDIVDIVISASMONEDACOEFICCAMBIOCCCLIECOMPROBCAUSAFECHAVENCFECREFIDU TMP_DPRESUPACCXITMBIENESCODINSCOD_INSOBIEDATA_CODIGO_LARGOXCODXBULBULXATRATRXCANCANTIDADITMXDESCRDESCR ATRIBUTOSATRIBUTOCODIGOBULTOSXXPRECIOPRECIOXXBONIFDTOTVENTAS RECEPCIONCOS_LIFODES_INSDESC_INSDESCRVARAPROBLISPREPRESUP XPRESUPUESTO PRESUPITMCOD_CUEIVAPERCOEFCALCULO_TOTAL_PS PROVINCIACENTRO SUBCENTRODPRESUPUSADOFORNUMEROSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STK TMP_ITM_DESCAAAITM_DESCEPRESUPESTADO_DEL_PRESUPUESTOAPROBAR_PEDIDO VE_APROBACIONP_DEVMENSAJEXAUTLOCAL_LOG_ERRORES_INSERTARXCODAGEXNOMBREG+(ve_presupuestoTCve_presupuesto+5     < J(TSTCCZFG((numero E#Ecodcli T TTT.TCC  CC(X6T T!T "T T #T $T % Ta%C detalle_p F&Q0've_presupuesto detalle_pSotventas()(*(+Q,- tmpdpreitm& ,/9p tmpdpreitm,tccvent,).)%123 %Ctventas2 B1Q4\data\CC1Z\tventas5%Ctccvent2 1Q4\data\CC1Z\tccvent6%C TMPDPREITM2F7QT8C]Yotventas25)5*5+Q,-19\tmp\8Q9\tmp\87& ,/;p tmpdpreitm2,tccvent2,)7)F.9\tmp\8C visualizar:vis_pre(%C detalle_pF&QU<XPREVE_PRESUPUESTO XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILESXCOD_CLI XVENDEDORXSUCFACXPLANXLISTA XLISTA_DESCRXXMONEDAXXCOEFICXRESXDESCCLI IIBB_PROVXXCAUSA XXCOMPROBEPRESUPNUMEROLISTACFG_LISCOD_CLICODCLICLIENTESXMOTIVOXCAMBIO XREVISIONREVISIONDES_CLIENOMBREVENDEDORSUCFACPLANDESCRMONEDACAMBIO DETALLE_PLEER_PRESUPUESTOTVENTASPEDIDO PRESUPITM RECEPCIONFEC_VENPRESUP TMPDPREITMFECHATCCVENTP_DOSP_CODEMPP_UNOP_SYSTEMTVENTAS2TCCVENT2 TMPDPREITM2 XTMPDPREITM2P_LOCALSYS_MVIS_PRE4%Cepresup 3Qepresup%%Cepresupnumero .C!No se encontr el presupuesto !!!BG+( ve_funciones T T$%C CB TT T  T  TC$ T T T T T T T T T T- T- Ta T- T-% a% C \,CSe ha registrado el remito 0G+(ve_procslistadosve_presupuesto%CtempcompF$QTC%&'ve_presupuestoBU( XPRESUPUESTOEPRESUPMENSAJE VE_FUNCIONESXERRXMSGCLIENTE_REVISADOXCOD_CLI_EXTERNOXPEDIDO_EXTERNOCOD_CLI XSUC_EXTERNOSUCXSUCFAC_EXTERNOSUCFACXFECEMI_EXTERNOXREP_CANT_EXTERNOXREP_MESES_EXTERNOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAX_PROD_EXTERNOMAX_DESC_EXTERNOXCOMPROB_EXTERNOXCAUSA_EXTERNOXTMPCOMP_EXTERNO XTEMPCOMPAUTDIRREAINMXEXTERNO_ERROR VE_PEDIDOVE_PROCSLISTADOSVE_PRESUPUESTOTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILES4%Cepresup 3Qepresup%%Cepresupnumero .C!No se encontr el presupuesto !!!BG+( ve_funciones T T&%C CB TT T  T  TC$ T T T T T T T T T T- T- Ta T- T-% a% C _-CSe ha registrado la factura 0G+(ve_procslistadosve_presupuesto%CtempcompF$QTC%&'ve_presupuestoBU( XPRESUPUESTOEPRESUPMENSAJE VE_FUNCIONESXERRXMSGCLIENTE_REVISADOCOD_CLIXPEDIDO_EXTERNOXCOD_CLI_EXTERNO XSUC_EXTERNOSUCXSUCFAC_EXTERNOSUCFACXFECEMI_EXTERNOXREP_CANT_EXTERNOXREP_MESES_EXTERNOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAX_PROD_EXTERNOMAX_DESC_EXTERNOXCOMPROB_EXTERNOXCAUSA_EXTERNOXTMPCOMP_EXTERNO XTEMPCOMPAUTDIRREAINMXEXTERNO_ERROR VE_PEDIDOVE_PROCSLISTADOSVE_PRESUPUESTOTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILES4(CConvertir en pedido. Manual%%Cepresupnumero .C!No se encontr el presupuesto !!!BTT G+( ve_funciones T  T&%C   CB!%  i!CCliente inactivo !!! B7TC#Convierte el saldo del presupuesto? T- Ta T- T-0- C0G+(ve_procslistadosve_presupuesto%CtempcompbFQTCve_presupuestoBU XPRESUPUESTOXPEDIDOXMSGSYS_MMENSAJEXCOD_CLIEPRESUPCOD_CLIXSUCSUC VE_FUNCIONESXERRCLIENTE_REVISADOCLIENTESEST_ACTP_VE_PRESUP_CLI_ACTIVOXSALDO_DEL_PRESUPUESTO MENSAJE_SINODIRREAAUTINM VE_PEDIDOACTUALIZAR_ESTADO_PRESUPUESTOVE_PROCSLISTADOSVE_PRESUPUESTOTEMPCOMP XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILESCepresupnumero"Cclientescodcli Cagentecodage TF>  CC   6  CCNo tiene.CCParcial CTotal66BU XPRESUPUESTOEPRESUPCOD_CLIVENDEDORXUSR_NOMUSR_NOMUSROCSFECHACODIGONOMBREDES_CLIECLIENTESQUIENDQUIENIMPORTEPEDIDO DVENDEDORAGENTEVENCCERRADOESTADO ESTADOTXTSUC5TTG+( ve_funciones T T$%C C B T - T - T a T -(ve_presupuesto Ta,ve_control_de_presupuestosBUXCOD_CLI_EXTERNOOCSCODIGO XSUC_EXTERNOSUC VE_FUNCIONESXERRXMSGCLIENTE_REVISADOMENSAJEAUTDIRREAINM VE_PEDIDONUMERO OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOS5TTG+( ve_funciones T T$%C C B T - T - T a T -(ve_presupuesto Ta,ve_control_de_presupuestosBUXCOD_CLI_EXTERNOOCSCODIGO XSUC_EXTERNOSUC VE_FUNCIONESXERRXMSGCLIENTE_REVISADOMENSAJEAUTDIRREAINM VE_PEDIDONUMERO OPEN_FILESVE_PRESUPUESTOXACTUALIZAR_GRILLAACTUALIZAR_ESTADO_PRESUPUESTOVE_CONTROL_DE_PRESUPUESTOSver_presupuesto presupuestos" crear_tabla convertir_en_pedido convertir_en_pedido_transaccionvisualizar_presupuestoc*remitir_presupuesto1facturar_mostrador_presupuesto6pedido_presupuesto;actualizar_estado_presupuesto?facturar_presupuesto Bremitir_presupuesto_2?D"qAArQBcBqAAqAAqAA1121AB2!B2AqAAtIAqrUC3qBqAAp1rAA31qAAqAAqAArbQB322AA2AaABAAAqAAqAAqAA322cArrsr13112B~QVPqQ urBr"r"rqBrqBqQ0#DsAAsBtqrQrAt@ArAQAB3qs1rqAA6AAqAArBs2qAA4q1ARAAbAAARAqAAB2q1ASAAbaAARAqAAB3TAAbaAAAsqAAB2q"!rB3bAAAB2bAAAB2*iB0( LH- ZO{nBHTBMJMRcR+XJXS\}\`7;` bY0,bcw%Q2L-4 )G(9 3G~(clasesG+(listadosve_asistencias %Ctmp_asistenciasF Q!%C xasistenciabN T T  T T T TTTTCXTCX T- T- T- T- T- T T T T T T- TTCXT C!" C#T$ T%-+a! T&+a T'H & T%a%$%C(  T%  T% zve_asistencia_1(%&%Casist asistenciav(CLa asistencia ya existe !!!* T%%C%&+ ! &,%$% T,  T,  T,ve_asistencia_2(%,%% T.C/Hs . T%! . . T%%C%&+ !%%% ! %Ctmp_asistenciasPF Q .dbf .cdxBU0 XASISTENCIA XVISUALIZARXDESDE_CONTROL ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESVE_ASISTENCIASTMP_ASISTENCIASXPEDIDOXTRANXFECHA1XFECHA2XFECHA3XFECHA4XFECHA5XTECNICO XTECNICO2XNOCHE1XNOCHE2XNOCHE3XNOCHE4XNOCHE5 XCOMPLEJO1 XCOMPLEJO2 XCOMPLEJO3 XCOMPLEJO4 XCOMPLEJO5 XGARANTIAXCOSTOXCOD_CLIXTMPODEYFUNCNEWFILE_LOCAL_TMPCREAR_TABLA_TEMPORAL XMODIFICAXRESXFORMXMAXFORM LEER_DATOSVE_ASISTENCIA_1MENSAJEWIZARD XTIPO_FORMVE_ASISTENCIA_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM0h1MQBUXTMPNOTASTMP_ASISTENCIAS C%Ctccvent 6Qtccvent%Ctventas fQtventas%Cagente Qagente%Casist Qasist%Cclientes QclientesBUABRIR_TABLAS_FIJASTCCVENTTVENTASAGENTEASISTCLIENTES4 T Tatrsacasist% TVe_asistencias.prg9T AsistenciasC - Modificacin6 Ttrsac Ta%3TC% T /T KT trsac+%   C C  ZJ ICSe ha registrado la asistencia CC @z 999,999,999,999_ T $ T BUAAA XRESULTADOLOCK_GTRSACTRAN_PRGTRAN_TXT XMODIFICABEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEX XASISTENCIAMENSAJETTS_ID` T TaTrasist      !"#$%&'()*+,-./012345a T- BU6XERRORTRSACINASIST ASISTENCIA XASISTENCIAXNOTASTMP_ASISTENCIASNOTASTRANPEDIDOTECNICOFECHA1FECHA2FECHA3FECHA4FECHA5NOCHE1NOCHE2NOCHE3NOCHE4NOCHE5 COMPLEJO1 COMPLEJO2 COMPLEJO3 COMPLEJO4 COMPLEJO5TECNICO2GARANTIACOSTOCOD_CLIPENDXTRANXPEDIDOXTECNICOXFECHA1XFECHA2XFECHA3XFECHA4XFECHA5XNOCHE1XNOCHE2XNOCHE3XNOCHE4XNOCHE5 XCOMPLEJO1 XCOMPLEJO2 XCOMPLEJO3 XCOMPLEJO4 XCOMPLEJO5 XTECNICO2 XGARANTIAXCOSTOXCOD_CLIFG(( asistencia E%C4%X T%| T T T  T  T  T T T T T T T T T T!" T#$ T%& T'( T)* T+, T-.>/00BU1 XASISTENCIAASIST ASISTENCIATRANXTRANPEDIDOXPEDIDOXFECHA1FECHA1XFECHA2FECHA2XFECHA3FECHA3XFECHA4FECHA4XFECHA5FECHA5XTECNICOTECNICO XTECNICO2TECNICO2XNOCHE1NOCHE1XNOCHE2NOCHE2XNOCHE3NOCHE3XNOCHE4NOCHE4XNOCHE5NOCHE5 XCOMPLEJO1 COMPLEJO1 XCOMPLEJO2 COMPLEJO2 XCOMPLEJO3 COMPLEJO3 XCOMPLEJO4 COMPLEJO4 XCOMPLEJO5 COMPLEJO5 XGARANTIAGARANTIAXCOSTOCOSTOXCOD_CLICOD_CLITMP_ASISTENCIASNOTASwizardcrear_tabla_temporal open_files) registrarm transaccionG leer_datosA!qAAA21111"1RAbAAAA2rAA1A12AAAABBBABqAA11B21r12A12A1r1Aq3UQB21A1A!ArAAAB6322AABA3r"3qt13A1AAE1hm { h  y#6%iE4|2L-O G(9 $0G+(ve_procslistadosve_asistenciasTCTC%CtempcompF QT C ve_asistenciasC %-9-T  asist.fecha>=date()-180 and pendC F #) T%ve_control_de_asistencias(%CocsFQ%Cocs_tmpFQ%C ocs_tmp_bieFQ :.dbf.cdx.dbf.cdx DBU ACTIVEFORM DATASESSIONIDVE_PROCSLISTADOSVE_ASISTENCIASXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2TEMPCOMP XTEMPCOMP OPEN_FILES CREAR_TABLAXFILTRO SELECCIONAROCSXRESVE_CONTROL_DE_ASISTENCIASOCS_TMP OCS_TMP_BIEV 4G+(ge01G+(listados$CAn no implementado !!!BU XPRESUPUESTOXCOD_CLIGE01LISTADOSMENSAJEX %CxFiltro2bN6 T%Cocs_tmp]FQ6sys_performanceControl de AsistenciasC Suspendo?a)select asist.fecha as fecha , asist.asistencia as numero , asist.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , .f. as tilde , asist.pedido as pedido , asist.tecnico as vendedor , nvl(agente.nombre,space(40)) as dvendedor, !asist.pend as cerrado from asist left outer join clientes on asist.cod_cli=clientes.cod_cli left outer join agente on asist.tecnico=agente.cod_age order by asist.asistencia where &xfiltro into table (xarchivo) Q-sys_performance Primer select>sys_performanceAsignacin de usuarios y otrosBU XFILTROXFILTRO2OCS_TMPPERFORMANCE_STARTSYS_PERFORMANCESYS_MOSTRAR_SCREENXARCHIVOPERFORMANCE_CHECKPOINTPERFORMANCE_END %Cocs&FQh1DN CC(LN C C( LQF& C& & CZ& CZBU XARCHIVOOCSFECHANUMEROCODIGONOMBRETILDEPEDIDOVENDEDOR DVENDEDORCERRADO4 T-%C tmp_epresupEFQ%C tmp_dpresuppFQ-oepresup tmp_epresup-odpresup  tmp_dpresup T l trsac stockstkxdeptccventtventasccclieepresupdpresup% *T Ve_control_de_asistencias.prg TConvertir en pedido T trsac   Ta% 5TC% T  1T  MT trsac  3%    FCSe ha registrado el pedido CC@z 999,999,999,999_ T  T BU XPRESUPUESTOXPEDIDOXMSGXAUTXEXTERNO TMP_EPRESUP TMP_DPRESUPEPRESUPNUMERODPRESUPAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN XRESULTADOCONVERTIR_EN_PEDIDO_TRANSACCIONEND_TRAN TTS_ERRORMENSAJETTS_IDN %A Casist asistenciaF> %iC ZJSe ha reabierto la asistenciave_control_de_asistencias.prg CgC ZJSe ha cerrado la asistenciave_control_de_asistencias.prgBU XASISTENCIAXMSGASIST ASISTENCIAPENDUSER_LOG PUB_INDEX%= Casist asistencia"Cclientescodcli CagentecodageFt>  -     BU XASISTENCIAASIST ASISTENCIACOD_CLITECNICOOCSFECHANUMEROCODIGONOMBRECLIENTESTILDEPEDIDOVENDEDOR DVENDEDORAGENTECERRADOPENDver_asistenciam seleccionar crear_tablacerrar_asistenciaR cerrar_o_reabrir_asistencia^ actualizar_estado_asistenciaAqAArQBSBqAAqAAqAA1121AB2!BC3AqAAbr " B3qBqAArAAB31qAAqAA322AA3bBA@-1bArqAB3qbA"rJB3,]+E2C QD RY{Y[[^%HQW1/QAFW.; TC G_ G~(clasesG+(sys_mail_funciones<7TC abm_clientesN!TCU- C- TC-H0 C      20  BU XCOD_CLI XOPERACIONCLASESSYS_MAIL_FUNCIONES POABMCLIENTES SOLO_LECTURAACCESO SOLO_MODIFICAR_DATOS_NO_CRITICOS MODIFICARCOMMAND4CLICK VISUALIZARSHOW G_ G~(clasesG+(sys_mail_funciones<7TC abm_clientesN!TCU- C- TC-%CaT  T C < BU XCOD_CLIXCOD_CLI_NUEVOCLASESSYS_MAIL_FUNCIONES POABMCLIENTES SOLO_LECTURAACCESO SOLO_MODIFICAR_DATOS_NO_CRITICOSCLONAR XCLAVEPOSRELEASEw T-%CClientes HQclientes%Ccliotros zQcliotros&%Cclientescodcli TCX T- B ^JTCTTC] _JF&%Ccliotroscod_clig ^JT _J BU XCOD_CLIXCOD_CLI_NUEVOXOKCLIENTESCLIOTROSOOBJCLI_SUGERIR_NO_NUMCOD_CLIIDU G_ G~(clasesG+(sys_mail_funciones<7TC abm_clientesN!TCU- C- TC-%CaT  T C < BU XCOD_CLIXCOD_CLI_NUEVOCLASESSYS_MAIL_FUNCIONES POABMCLIENTES SOLO_LECTURAACCESO SOLO_MODIFICAR_DATOS_NO_CRITICOSCLONAR XCLAVEPOSRELEASENclientes T T T T T T TF Ecodcli +oclientes  abmclientes'  abmclientes(#F QUXCODCLIXTABLAXTABLA1XTABLA2XTABLA3XTABLA4XTABLA_SECTORESXTABLA_ACUERDOS OPENFILESCLIENTESXCOD_CLICODCLICOD_CLI ABMCLIENTESCLI_HIJAS_ABRIR XRESULTADOCLI_HIJAS_LIBERAR ges%Ccuentas ?FQDESCR%Cagente zFQagentecodage%Cfletes FQfletescodfle%Csucursal FQsucursalID%C cligruece $Q cligruece%C cligruecd XQ cligruecd%Czonas FQzonascodigo%Clineas F Qlineas%Cgrupos F Qgrupos%Ccostos $F Qcostos%Cempresas aFQ \empresasFG((codigo E%Cprovinc FQ\provinc%Cpaises FQ\paisescodigo%Cdeposito ?FQdepositodeposito%Clisprec rFQlisprec%Ccondcobr FQcondcobrplan%Ccatcli FQcatclicodigo%Cbienes F Qbienes%Cbultos LF Qbultos%Catributo FQatributo%%Cacuerdos FQacuerdos%Cproveedo FQproveedocodpro%Cartxcli ?FQartxcli%Ctipodoc zFQ\tipodoc%Ciibbpere FQiibbpere%Ccliotros FQcliotros%Cclimail FQclimail%Csectores LFQsectores%Ccatcred FQcatcred%Cclientes FQclientescodcliBU'GES_CUENTASDESCRAGENTECODAGEFLETESCODFLESUCURSALID CLIGRUECE CLIGRUECDZONASCODIGOLINEASGRUPOSCOSTOSP_SYSTEMEMPRESASP_CODEMPDEPOSITOLISPRECCONDCOBRPLANCATCLIBIENESBULTOSATRIBUTOP_VE_ACUERDOS_VERSIONACUERDOSPROVEEDOCODPROARTXCLIIIBBPERECLIOTROSCLIMAILSECTORESCATCREDCLIENTESCODCLI<-oclientes%  2Agrega/Clona cliente con cuit duplicado: cliente [CC ] CCBU XPRGXENTIDADXVALORARRCOD_CLINOMBRECLIENTES INSCRIPCIO ABMCLIENTESUSER_LOG PUB_INDEX C F>C6%%Cl> >  FUTHISFORM NOMBRE_VISTALISTAP_CLI_LISTA_INIP_CLI_REVISADOACCESO TMP_CLIOTROSREVISADO CTC]TC]TC]TC]TC]TC]TC]TC T UTHIS TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 TMP_TABLA_5TMP_TABLA_SECTORESTMP_TABLA_ACUERDOSTITULO_COLUMNA3 OLOCALIZACION CUIT_TEXTOGRID1COLUMN4HEADER1CAPTION BCUCLI_SUGERIR_NO_NUMF-C\S%C4v TCO%C4 r #F>F> C  6 N N NNNPN%%Ci> > UXREGCUENTASATRIBUTO ABMCLIENTESCUE_DEUCOD_CUEPAISPAIS2PAISENTLISTAP_CLI_LISTA_INITARJETAMVARNUMCOMNUMNCNUMNDNUMREMCONSFINIVAIVA26TIPODOCSUCP_CLI_REVISADOACCESO TMP_CLIOTROSREVISADO)TT T T T T T'TT T T T T TUXTMPXTMP1XTMP2XTMP3XTMP4 XTMP_SECTORES XTMP_ACUERDOSTHISFORM TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 TMP_TABLA_5TMP_TABLA_SECTORESTMP_TABLA_ACUERDOSCLI_HIJAS_ABRIRXCODIGO<T% T-F(~  v Ta!% +r cligruecdqartxcliF>F$ \tmp\ C FQ%  Z# \tmp\ .dbfqiibbpereF>F8 \tmp\ C C FQ%  # \tmp\ .dbfqcliotrosF>F \tmp\ FQ%  # \tmp\ .dbfqclimailF>F \tmp\ FQ%  A# \tmp\ .dbfqsectoresF!>CZF \tmp\ FQ%  # \tmp\ .dbf%FG((codigoC3#6 T+qacuerdos  ! F"> !>#C]C#~CT >ZF \tmp\ %F"Q%  5# \tmp\ %.dbfU&XID ABMCLIENTESCOD_CLIGRUECXOK CLIGRUECDCODIGOARTXCLI TMP_ARTXCLIALLP_LOCALTHISFORM TMP_TABLA_1COD_INS DOS_COPIARIIBBPERE TMP_IIBBPERE TMP_TABLA_2 PROVINCIACLIOTROS TMP_CLIOTROS TMP_TABLA_3CLIMAIL TMP_CLIMAIL TMP_TABLA_4SECTORES TMP_SECTORESCODTMP_TABLA_SECTORESP_VE_ACUERDOS_VERSIONACUERDOSXCODACUDCLIHCLI ABMACUERDOSIDUFORTMP_TABLA_ACUERDOST%?,C cligruecd tmp_cligruecd T -"q tmp_cligruecd F (~   T a!% /r tmp_cligruecd C tmp_cligruecd &Cartxcli TMPTABLA2q tmptabla2 F $\tmp\C C TMPTABLA2 'Ciibbpere TMPTABLA3q tmptabla3F8\tmp\C C  C TMPTABLA3 'Ccliotros TMPTABLA4q tmptabla4F\tmp\C TMPTABLA4 &Cclimail TMPTABLA5q tmptabla5F\tmp\C TMPTABLA5 /CsectoresTMPTABLA_sectores&qtmptabla_sectoresF\tmp\!CTMPTABLA_sectores %/CacuerdosTMPTABLA_acuerdos4qtmptabla_acuerdos  F\tmp\!CTMPTABLA_acuerdos %C tmp_artxcliF Q#\tmp\.dbf%C tmp_iibbpere6F!Q#\tmp\.dbf%C tmp_cliotrosF"Q#\tmp\.dbf%C tmp_climailF#Q#\tmp\.dbf%C tmp_sectores"F$Q#\tmp\.dbf%C abmacuerdospF%Q#\tmp\.dbfU&XID ABMCLIENTESCOD_CLIOESPTHISDOS_CONTROLADORESPEJOSGRUEC DOS_SETDB_UNOXOK TMP_CLIGRUECDCODIGODOS_SETDBBACK_UNO TMPTABLA2P_LOCALTHISFORM TMP_TABLA_1COD_INS TMPTABLA3 TMP_TABLA_2 PROVINCIA TMPTABLA4 TMP_TABLA_3 TMPTABLA5 TMP_TABLA_4TMPTABLA_SECTORESTMP_TABLA_SECTORESP_VE_ACUERDOS_VERSIONTMPTABLA_ACUERDOSDCLIHCLITMP_TABLA_ACUERDOS TMP_ARTXCLI TMP_IIBBPERE TMP_CLIOTROS TMP_CLIMAIL TMP_SECTORES ABMACUERDOST%3 BC %U,C cligruecd tmp_cligruecd T -F "q tmp_cligruecd (~   T a!% 4/r tmp_cligruecd C tmp_cligruecd &Cartxcli TMPTABLA2q tmptabla2 F $\tmp\C %C tmp_artxcliFQ#\tmp\.dbfC TMPTABLA2 'Ciibbpere TMPTABLA3q tmptabla3F8\tmp\C C  %C tmp_iibbpereFQ#\tmp\.dbfC TMPTABLA3 'Ccliotros TMPTABLA4q tmptabla4F\tmp\%C tmp_cliotrosFQ#\tmp\.dbfC TMPTABLA4 &Cclimail TMPTABLA5q tmptabla5F\tmp\%C tmp_climailwFQ#\tmp\.dbfC TMPTABLA5 /CsectoresTMPTABLA_sectores&qtmptabla_sectoresF\tmp\%C tmp_sectoresVFQ#\tmp\.dbf!CTMPTABLA_sectores %/CacuerdosTMPTABLA_acuerdos4qtmptabla_acuerdos ! " F \tmp\#%C abmacuerdos]F$Q#\tmp\#.dbf!CTMPTABLA_acuerdos U%XID ABMCLIENTESCOD_CLITHISDOS_ESPEJAR_MULTIPLEHIJAS_GUARDAR_DOS_MULTIPLEGRUECTHISFORM DOS_SETDBXOK TMP_CLIGRUECDCODIGO DOS_SETDBBACK TMPTABLA2P_LOCAL TMP_TABLA_1COD_INS TMP_ARTXCLI TMPTABLA3 TMP_TABLA_2 PROVINCIA TMP_IIBBPERE TMPTABLA4 TMP_TABLA_3 TMP_CLIOTROS TMPTABLA5 TMP_TABLA_4 TMP_CLIMAILTMPTABLA_SECTORESTMP_TABLA_SECTORES TMP_SECTORESP_VE_ACUERDOS_VERSIONTMPTABLA_ACUERDOSDCLIHCLITMP_TABLA_ACUERDOS ABMACUERDOSG(1UTHISFORM DATASESSIONID #G+(sys_mail_funciones T TC]%C tmp_artxcliF Q'%Cartxcli.descr_adibCHoartxcliCXQ C 1\tmp\ TToartxcliCXQ CPXQ C 1\tmp\Q\tmp\ ~ T,listados   F > % >COF +CNd  > F %CLIENTESCJF *& C ZZZZZCZ6#)TC]%C tmp_iibbpereFQVoiibbpereC(XQCXQ C 1\tmp\Q\tmp\ ~F G((cod EF>K>C PERCEPCION%CCOEFICIENTE CM0566+CNd  > #)TC]%C tmp_cliotros F QVocliotrosC(XQCXQ! C 1\tmp\Q\tmp\ %CN!r tmp_cliotros TC]%C tmp_climailF"Q(oclimailC$#Q%C$#Q&C$#Q'C$#Q(C$#Q)C$#Q*C$#Q+C$#Q,C$ #Q-C$ #Q.C$ #Q/C$ #Q0CC$1ȲQ23 C 1\tmp\Q\tmp\"TC]%Ctmp_clipreciosF4Q5olisprecCXQ-1\tmp\Q\tmp\4TC]%C tmp_sectoresF6Q=osectores7 C 1\tmp\Q\tmp\6& & TC]%C abmacuerdosF8Q%9 1oacuerdosXlineas :;GXbienes :=IXatributo :=:KKQXbultos :=:MMQ:;<=> C?@ AB QCC$DC$E QFC;<C Varias Lneas( CGC(X6QHC=>CVarios Artculos( CICCVarios Artculos( CKC(X6QLC=>CVarios Artculos( CMC(X6QNC:O CPBTX NC6QP:RC :S 1\tmp\  ooacuerdos:-QC-QFQHQJQLQNQP-1\tmp\Q\tmp\8UTXCOD_CLIXTABLAXTABLA1XTABLA2XTABLA3XTABLA4XTABLA_SECTORESXTABLA_ACUERDOSSYS_MAIL_FUNCIONESXXX TMP_ARTXCLIORIDESCRARTXCLICOD_CLIP_LOCAL DESCR_ADI XFULLDESCRARTICULO_FULL_DESCRLISTADOSCOD_INSATRBULORDEN TMP_IIBBPEREDPROVDCODIGOIIBBPEREPROVINCCOD PROVINCIADESCRCODIGO TMP_CLIOTROSCLIOTROS TMP_CLIMAIL MAIL_MT_LETRAMAILTIPOTMP_EM_1TMP_EM_2TMP_EM_3TMP_EM_4TMP_EM_5TMP_EM_6TMP_EM_7TMP_EM_8TMP_EM_9 TMP_EM_10 TMP_EM_11 TMP_EM_12 MAIL_MT_TXTTXTCLIMAILTMP_CLIPRECIOSLISPREC TMP_SECTORESSECTORES ABMACUERDOSP_VE_ACUERDOS_VERSIONACUERDOSDLINHLINDBIEHBIEDVENHVENDGRUHGRUBLQDFECHFECVIGENTELINEASDLINEABIENES DARTICULOATRIBUTO DATRIBUTOBULTOSDBULTO EN_FACTURAEN_FCLAVEDCLIHCLI'%C tmp_artxcliFFQ\tmp\.*%C tmp_iibbpereF Q\tmp\.*%C tmp_cliotrosF Q\tmp\.*%C tmp_climail#F Q\tmp\.*%Ctmp_clipreciosoF Q\tmp\.*%C tmp_sectoresF Q\tmp\.*%C abmacuerdosFQ\tmp\.*UXTABLAXTABLA1XTABLA2XTABLA3XTABLA4XTABLA_SECTORESXTABLA_ACUERDOS TMP_ARTXCLIP_LOCAL TMP_IIBBPERE TMP_CLIOTROS TMP_CLIMAILTMP_CLIPRECIOS TMP_SECTORES ABMACUERDOS BUXCOD_CLIXEMPRESA&%  /B%CEC8El cdigo de cliente no puede estar vacio al espejar !!!B-TC %CohlpbO+TC abm_clientes clientes.PRGCa%  CU XCOD_CLI XSHOWWINDOWOHLPXCICLICOP_ESPEJA_CLIENTESP_ESPEJA_HABILITARMENSAJE MODIFICARRELEASE %Cclientes .Qclientes0oclientesC qTnotas_de_clientesT\tmpq"%C\.xls0\.xls3=\.xml(\.xls.| ShellExecute SHELL32.DLL-T Copen.xls %  RC!No se puede ejecutar ShellExecuteC Cdigo del error: CC Z %CqQBUCLIENTESCOD_CLINOMBRE COMENTARIOQXFILEXDIRP_LOCALFN_XML SHELLEXECUTESHELL32DLLXERRORMENSAJE%bFG((codigo#6"TCCCCgZCX=G((nomcli {TCX BU XCOD_CLI_TMPP_CLINUMCLIENTESCODIGOCOD_CLINOMCLIespejar_cliente_simpleClonar_Cliente_simpleclonar_clientemostrar_cliente3 openfilesM hook_txn_agrega_clonaclonar_inicializarINITsugerir_no_numsinicializar_registro hijas_abrir# hijas_guardar!hijas_guardar_dos_multiple hijas_guardar_dosj)Cleanup1cli_hijas_abrir92cli_hijas_liberar@copiar_a_empresaBespejar_cliente*Cexportar_memosDcli_sugerir_no_numIGTTclientesT T Ta&T .nombre, .Cod_cli, .idu (T  "NO USAR", .Cod_cli, .idu T  "T comentario, proveedor(T CC 6TClientesTclientesThlpTcod_cli T- T#TnombreTNombreTnomcliTC T Tcod_cliTCdigo.TC codigo codcli6T CT! T"#T#fantasiaT$Nombre FantasaT%fantasiaT&C T'T( inscripcio T)T* inscripcioT+CT, abmclientesT-codcliT.C]T/C]T0C]T1C]T2C]T3C]T4C] T5-     U6 ANCHO_TOTAL DOS_TABLA DOS_COPIARP_ESPEJA_CLIENTESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEDOS_AGREGA_SI_FALTA DOS_BLANQUEADOS_BLANQUEA_VALORESDOS_CAMPOS_INCLUIRP_ESPEJA_CLIENTES_INCLUIRDOS_CAMPOS_EXCLUIRCLONAR_SUGERIRP_CODAUTO_HABILITARP_CLINUMP_CODAUTO_CLIENTESTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1P_HLPNUM TIPO_CAMPO1ORDEN1_NUMERICOANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3 FORMULARIOIDXCLAVE TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 TMP_TABLA_5TMP_TABLA_SECTORESTMP_TABLA_ACUERDOSDEV abm_clienteshlpabm20J6bqqQ1!1AE1dqqQAq3AAAAaA1QsaQA2dqqQAq4q1r1r2rA41AqAqAQAQAQAraAAAAqAqaAAAAqAqAAAA2ABAAaAAAAAAAB1t!AB322AB52111111B43qrqAqAAr 22AB4r4cqqAAABrrArA21ArrrA21ArrqA21ArrqA21ArrqA21A5rQr"ABrBsA21A5tcr#sAAAAdrAvrurerdr4DrAAqAA1qAA1qAA1qAA1qAA1qAA15bcrr#AAAAcrAqAA1srqAA1srqAA1crqAA1drqAA15DrqAA1AC2aa41qAAsDAr2ABr1QArqARqAAfrrF2QAQqAAf!AqAAqAARqAAqAA20#A:qAAqAAqAAqAAqAAqAAqAA9I21AAQqA2A!A5AAQb"A22!A"AB1qqQ!A1UAd!RQA111A1AQQqq1p`  5%/(Q% NDJ rV jiM !!\#}#$%%B% q%(")+3+78EESa.TVT2TllNpr}r9rtEtw` xx`T[ %aH.8%CoDeyFuncbO * aU DEY_FUNC2GEOREFERENCIAR_CLIENTES+%CProvinc 6QCProvinc%CCatCli dQcatcli%CClientes Qclientes%CFletes QFletes%Csucursal Qsucursal%CCliaux $QCliauxUP_SYSTEMCATCLICLIENTESFLETESSUCURSALCLIAUX5TCC.f.TCOD_Fle5 ^J-sys_georeferenciar( TMPGeorefCU XTABLA XCAMPO_CODIGO XRESULTADOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_FLETES OABMDIRECCIONSYS_GEOREFERENCIAR GRABAR_FLETES T trsacfletes% #Tsys_georeferenciar.prgTFletes Ttrsac%F~ 4>      Ta 2Ttrsac %  +CSe han actualizados los Fletes  T- BU XRESULTADOAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TMPGEOREFVALIDADAFLETESGEODIRENTCOORDDIRCOORDFORCOD_FLEEND_TRAN TTS_ERRORMENSAJE CObtenera%C TMPGeoRefBQ:TCC  .t. 6 AND (EMPTY(Geodir))SELECT *, entcoord as dircoord, .f. as marca, .f. as validada FROM fletes WHERE NOT INLIST(Fletes.Tipo,1,3,4) AND &xFiltro INTO TABLE (xTabla) QFQ!i1 TMPGeoRefC!i1 TMPGeoRefC!i1 TMPGeoRefC#>C UXTABLAXFILTROSYS_MOSTRAR_SCREEN TMPGEOREF DIR_PLANA LUGAR_ENTGEODIR2 ARMAR_ENTREGA DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISALL5TCC.f.TCOD_CLI5 ^J-sys_georeferenciar( TMPGeorefCU XTABLA XCAMPO_CODIGO XRESULTADOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_CLIENTES OABMDIRECCIONSYS_GEOREFERENCIARGRABAR_CLIENTES T trsacfletes% #Tsys_georeferenciar.prgTClientes Ttrsac%F~7>      Ta 7Ttrsac %  -C Se han actualizados los Clientes  T- BU XRESULTADOAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TMPGEOREFVALIDADACLIENTESGEODIRGEODIR2FORCOD_CLIEND_TRAN TTS_ERRORMENSAJE CObtenera%C TMPGeoRefBQcTCC  .t. 6= AND (EMPTY(Geodir) or (Not EMPTY(dom2) and EMPTY(GeoDir2)) )fSELECT *, .f. as marca, .f. as validada FROM clientes WHERE &xFiltro_Clientes INTO TABLE (xTabla) QFQ!i1 TMPGeoRefC!i1 TMPGeoRefC#>C >C UXTABLAXFILTRO_CLIENTESSYS_MOSTRAR_SCREEN TMPGEOREF DIR_PLANA LUGAR_ENT ARMAR_ENTREGA DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISALLDOM2CIU2ZIP2PRO2W%CxPaisbL? TG+(listadosTCTCTC%C T, C%C T, C%C T, C%C @T, CF BU XDOMICILIOXCIUDADXCPXPROVXPAISLISTADOSPROVINCPAISXENTREGA TMPGEOREFlFECODFLE ^JF _J >">C UXCODIGOFLETESCODFLEOOBJ TMPGEOREFDIRCOORDENTCOORD DIR_PLANA ARMAR_ENTREGA DOMICILIOCIUDADCOD_ZIP PROVINCIAPAIS}FECodCLI ^JF _J">C > C UXCODIGOCLIENTESCODCLIOOBJ TMPGEOREF DIR_PLANA ARMAR_ENTREGA DOMICILIOCIUDADCOD_ZIP PROVINCIAPAIS LUGAR_ENTDOM2CIU2ZIP2PRO2 Open_FilesGeoreferenciar_Fletes Grabar_FletesObtener_FletesGeoreferenciar_ClientesGrabar_ClientesObtener_Clientesf Armar_Entrega Actualizar_Flete|Actualizar_ClienteuBr2A!AAA!AAA!A4BBr2q213rCAABA3QAA A2>BBr2q2Q3rsAABA2QA2aA24qA!!!!A!A!A!Aq4qr1s"2qr1r"3| Y!t.;{ _J ~S ymc|I %z GWH.h gesG+(dey_funcCclientescodcliF abmcliotrosG+(BUGESDEY_FUNC CHK_OPENEDCLIENTES ABMCLIOTROS4TG_ G~(clases<7TCabm_sucursalesNTCU-TT   BU XCOD_CLIXNOMBRECLIENTESNOMBRECLASESPOABMSUCURSALES SOLO_LECTURAACCESOXCLI_CODXCLI_NOMSHOWG+(dey_func ges CdepositodepositoCcostoscodigoCagentecodageCfletescodfleCsucursalIDCprovinc\CcondcobrplanCzonascodigoCclientescodcli%C vsucursalesBF TFQ vsucursales& & & CZ& & & BU DEY_FUNCGES CHK_OPENEDP_SYSTEM VSUCURSALESSUCURSALCIUDADCOD_CLIID DOMICILIOIDUNOMBRE  TCW% U'( _T FU XNO_MOSTRAR_ABM XRESULTADOXAREATHISFORM FORMULARIOTIPOABMXCLI_CODXCLI_NOM RESULTADO C Ta% TC TCOTCZ TCO G((ID E!+C+ CZ %CO T-H G(( # BU XCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCOD_CLISUCURSALIDIG((sucursal#6TG((ciudad BUXSUCSUCURSAL XSUCURSALCIUDAD >>ULISTACOD_CLIPOABMSUCURSALESXCLI_COD>CZUIDCOD_CLISUCURSAL Cclonara5 TG_ G~(clasesG+(sys_mail_funciones<7TCabm_sucursalesNTCU- %Ca T  T C BU XXCOD_CLI XSUCURSAL XNEWCODIGOSYS_MOSTRAR_SCREENXCOD_CLICLASESSYS_MAIL_FUNCIONESPOABMSUCURSALES SOLO_LECTURAACCESOCLONAR XCLAVEPOSRELEASED5TCX+#cli_sucursales_xls_actualizar_datosUXCOD_CLI#CLI_SUCURSALES_XLS_ACTUALIZAR_DATOSabm openfilesabm vldagregarsugerir_no_numRinicializar_registrofinalizar_modificacionesclonar_sucursalNImportar_SucursalesTsucursalT TTIDTID>T1'xDos_Scatter.COD_CLI+STR(xDos_Scatter.SUCURSAL)' T a1T $ .nombre, .sucursal, .Cod_cli, .idu 3T & "NO USAR", .sucursal, .Cod_cli, .idu T  SucursalesT  vsucursalesThlpT abmsucursalesTsucursal T-T TTnombreTSucursalTnombreTC TT domicilioT DomicilioT domicilioTC TTciudadTCiudadT ciudadT!C T" T#sucursalT$Suc.T%sucursalT&C T' T(T)sucursalT*C] T+- T, T-T.Sucursal<T//vSucursales.cod_cli+str(vSucursales.sucursal,4)     U0 DOS_TABLA DOS_COPIARP_ESPEJA_CLIENTESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLE DOS_IDXCLAVE DOS_CLAVEDOS_CLAVE_FORMULADOS_AGREGAR_SI_FALTA DOS_BLANQUEADOS_BLANQUEA_VALORESTITULOTABLAID FORMULARIOCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3XCLI_CODXCLI_NOMIDXCLAVE TMP_TABLA_1DEV WINDOWTYPE SHOWWINDOW BORRAR_TABLA BORRAR_CLAVEabm_sucursaleshlpabm2I "rbB2qbrqQB2!qA"AB1qqB322!AAAB4qQ3415AqaqqQA3q1UA1uQ1Q1aaa111QQRQ4#9"/ b9N7UfX!ZWmqH-E%(/3/ KWf.G_ G+(sys_mail_funcionesG~(clases<7TCabm_proveedoresNTCU- BUSYS_MAIL_FUNCIONESCLASES POABMPROVEEDO SOLO_LECTURAACCESOSHOW C T T T TFEcodpro+oproveedo abmproveedo F abmproveedores(  F QUXCOD_PRO OPENFILESXTABLAXTABLA1XTABLA2XTABLA3PROVEEDOCODPROCOD_PRO ABMPROVEEDOPRO_HIJAS_ABRIRABMPROVEEDORES XRESULTADOPRO_HIJAS_LIBERAR ges%Ccuentas ?FQDESCR%Cagente zFQagentecodage%Cfletes FQfletescodfle%Cprovinc FQ\provinc%Cpaises 3FQ\paisescodigo%Ccondpago pFQcondpagoplan%Ccatpro FQcatprocodigo%Ccatpro2 FQcatpro2codigo%Ccatpro3 %FQcatpro3codigo%Cartxpro XFQartxpro%Cbienes F Qbienes%Cbultos F Qbultos%Catributo FQatributo%Clineas F Qlineas%Ciibbret SFQiibbret%Cpro2 F Qpro2%Cpromail S$%CC promail.dbf0 <JTC tabla_promailsys_Verificar2_tablas.prgpromaila%C8QpromailQpromail%Cbancos FQ\bancos%Cproveedo FQproveedocodproFBUGES_CUENTASDESCRAGENTECODAGEFLETESCODFLEP_SYSTEMCODIGOCONDPAGOPLANCATPROCATPRO2CATPRO3ARTXPROBIENESBULTOSATRIBUTOLINEASIIBBRETPRO2P_SERVEROTCREACION_MANUALPROMAILPROVEEDOCODPRO<-oproveedo%  6Agrega/Clona proveedor con cuit duplicado: proveedor [CC ] CCBU XPRGXENTIDADXVALORARRCOD_PRONOMBREPROVEEDO INSCRIPCIO ABMPROVEEDOUSER_LOG PUB_INDEX C Ta% TC TCO T TCOG((codpro E+C+  %CO T-H G(( # BU XCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCOD_PROCODPRO CTC]TC]TC]TC]TCT U THIS TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4TITULO_COLUMNA3 OLOCALIZACION CUIT_TEXTOGRID1COLUMN4HEADER1CAPTION%[G((codigo#6"TCCCCgZCX=G((nombre tTCX BUXCOD_PROP_PRONUMCODIGOCOD_PRONOMBREF-C\S%C4v TCO%C4 r #F>FX>NN N N S  UXREGCUENTASATRIBUTO ABMPROVEEDOCUE_DEUCOD_CUEPAISTARJETACONTADORG3337IVAIVACTRLIBRET TIPO_AFIPTTTT TTTTU XTMPXTMP1XTMP2XTMP3THISFORM TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4PRO_HIJAS_ABRIRXCODIGOTqartxproF>F$\tmp\C FQ% #\tmp\.dbfqiibbret F >F 8\tmp\ C C F Q% b#\tmp\ .dbfqpro2F>F\tmp\FQ% #\tmp\.dbfqpromailF>F\tmp\FQ% #\tmp\.dbfUXID ABMPROVEEDOCOD_PROARTXPRO TMP_ARTXPROALLP_LOCALTHISFORM TMP_TABLA_1COD_INS DOS_COPIARIIBBRET TMP_IIBBRET TMP_TABLA_2 PROVINCIACODIGOPRO2TMP_PRO2 TMP_TABLA_3PROMAIL TMP_PROMAIL TMP_TABLA_4MTC Hijas DOS Ma_&Cartxpro TMPTABLA2q tmptabla2 F $ \tmp\ C C TMPTABLA2&Ciibbret TMPTABLA3q tmptabla3F8 \tmp\ C C C TMPTABLA3#Cpro2 TMPTABLA3q tmptabla3F \tmp\ C TMPTABLA3&Cpromail TMPTABLA4q tmptabla4F \tmp\ C TMPTABLA4%C tmp_artxproFQ# \tmp\ .dbf%C tmp_iibbretFQ# \tmp\ .dbf%Ctmp_pro2#FQ# \tmp\ .dbfUXID ABMPROVEEDOCOD_PROSYS_MOSTRAR_SCREENOESPTHISDOS_CONTROLADORESPEJOS DOS_SETDB_UNO TMPTABLA2P_LOCALTHISFORM TMP_TABLA_1COD_INSDOS_SETDBBACK_UNO TMPTABLA3 TMP_TABLA_2 PROVINCIACODIGO TMP_TABLA_3 TMPTABLA4 TMP_TABLA_4 TMP_ARTXPRO TMP_IIBBRETTMP_PRO2%# BCT&Cartxpro TMPTABLA2q tmptabla2F$ \tmp\ C %C tmp_artxproF Q# \tmp\ .dbfC TMPTABLA2 &Ciibbret TMPTABLA3q tmptabla3F8 \tmp\C C %C tmp_iibbretFQ# \tmp\.dbfC TMPTABLA3 #Cpro2 TMPTABLA3q tmptabla3F \tmp\%Ctmp_pro2~FQ# \tmp\.dbfC TMPTABLA3 &Cpromail TMPTABLA4q tmptabla4F \tmp\%CpromailGFQ# \tmp\.dbfC TMPTABLA4 UTHISDOS_ESPEJAR_MULTIPLEHIJAS_GUARDAR_DOS_MULTIPLEXID ABMPROVEEDOCOD_PROTHISFORM DOS_SETDB TMPTABLA2P_LOCAL TMP_TABLA_1COD_INS TMP_ARTXPRO DOS_SETDBBACK TMPTABLA3 TMP_TABLA_2 PROVINCIACODIGO TMP_IIBBRET TMP_TABLA_3TMP_PRO2 TMPTABLA4 TMP_TABLA_4PROMAIL%CfPROMAIL TTJTC tabla_promailsys_Verificar2_tablas.prgpromaila C TUXTABLA XOLDPSERVERP_SERVERTHISFORMXP_DOSOTCREACION_MANUALG+(sys_mail_funcionesTC]%C tmp_artxprojFQ THoartxproCXQ C 1 \tmp\Q \tmp\(& C  ZZZC Z6 ~ T Dproc_stk > %  > CO+CNd  > #)TC]%C tmp_iibbretFQToiibbretC(XQCXQ C 1 \tmp\Q \tmp\ ~MF G((cod EF>>CEXCEPCIN RET.IIBBpCCOEFICIENTE CM05NCEXCEPCIN PER. IIBB)CEXCEPCIN RET. GCIAS6666+CNd v > #)TC]%Ctmp_pro2FQ9opro2 C 1 \tmp\Q \tmp\F%CN7 > #)TC]%C tmp_promailwFQ(opromailC! Q"C! Q#C! Q$C! Q%C! Q&C! Q'C! Q(C! Q)C! Q*C! Q+C! Q,C! Q-CC!.ȲQ/0 C 1 \tmp\Q \tmp\U1XCOD_PROXTABLAXTABLA1XTABLA2XTABLA3SYS_MAIL_FUNCIONES TMP_ARTXPROXXXORIDESCRARTXPROCOD_PROP_LOCALORDEN XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKCOD_INSBULATR TMP_IIBBRETDPROVDCODIGOIIBBRETPROVINCCOD PROVINCIADESCRCODIGOXTABLAP2TMP_PRO2PRO2 TMP_PROMAIL MAIL_MT_LETRAMAILTIPOTMP_EM_1TMP_EM_2TMP_EM_3TMP_EM_4TMP_EM_5TMP_EM_6TMP_EM_7TMP_EM_8TMP_EM_9 TMP_EM_10 TMP_EM_11 TMP_EM_12 MAIL_MT_TXTTXTPROMAILO%C tmp_artxpro:FQ\tmp\.*%C tmp_iibbretFQ\tmp\.*%Ctmp_pro2FQ\tmp\.*%C tmp_promailFQ >\tmp\.* HU XTABLAXTABLA1XTABLA2XTABLA3 TMP_ARTXPROP_LOCAL TMP_IIBBRETTMP_PRO2 TMP_PROMAIL'TCC 1234567890%C>TC\TC \BC C B-UTCCBULCCBU LCBLOQUE1 LCBLOQUE2 VALIDARDIGITO TTC>TC\TC\(>TCC\gCC9713CG\gBCC C GZRUTCBLOQUELNSUMALNLARGOLNLCDIGITOLCBLOQUEmostrar_proveedor openfileshook_txn_agrega_clonao vldagregar INIT sugerir_no_num* inicializar_registro  hijas_abrir? hijas_guardarkhijas_guardar_dos_multiplehijas_guardar_dos^dos_crear_tablapro_hijas_abrirpro_hijas_liberar$ ValidarCBUy& ValidarDigitob'oTTproveedo Ta Ta&T .nombre, .Cod_pro, .idu (T "NO USAR", .cod_pro, .idu T(TCC   6T  ProveedoresT proveedoThlpTcod_pro T- T#TnombreTNombreTnombreTC T Tcod_proTCdigoTcodproTC T#TfantasiaTNombre FantasaTfantasiaTC T T! inscripcio T"T# inscripcioT$CT%abmproveedoresT&codproT'C]T(C]T)C]T*C] T+-T, comentario       U- ANCHO_TOTAL DOS_TABLA DOS_COPIARDOS_AGREGAR_SI_FALTA DOS_BLANQUEADOS_BLANQUEA_VALORESDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLECLONAR_SUGERIRP_CODAUTO_HABILITARP_PRONUMP_CODAUTO_PROVEEDORESTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3 FORMULARIOIDXCLAVE TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4DEVDOS_CAMPOS_EXCLUIRabm_proveedoreshlpabm2 *brqQB2q2s1rrqA51AqAqAaAAqAqAAAAAAAAAbABr11AA2AAAAqB1t!! AB32!AAAB32111B3qQ!A3qrqAqAAr424rrArA21ArrrA21ArrrA21ArrqA21A3rbrAfr6rbrBqAA1qAA1qAA12aAbrAqAA1frqAA16rqAA1crqAA14qqqB4qqAAD2AB2QAQqAAIrr F2QAQqAAr!QAQqAA51qAAqAAqAAqAAA1qqQQQqA8qsQA2RdQA111A11QQqq1rp0> 3#FR .r@z'*.sJZ]&&-;- /GF>/ <W3<:>BgC+rD;F=} /'%ۡۨ2P{X.Lg4     G Tf:\sistema\2000 TCt T7$%Cpi_inicio_modobN7 TD% COMIENZO.FXPC] CSistema\2000\GES.EXEfC] 3 T*%Cpi_inicio_desarrollobN Tj% COMIENZO.FXPC] CSistema\2000\GES.EXEfC] #CSistema\2000\sysmsg.EXEfC]  T#TC VERBOSECC f#T9 VERBOSECC fT9!GEST9"logo_nuevo.icoT#C]T$C]C] G)($T%C]C]"T&CC]C\C]\'inicial% C)CC*PQ) C)CCC) T9*a T9+a T9,- T9--GY$%VERBOSECC f T9.T9/ T9*a T9*-$%VERBOSECC f T90TC0G G1G2GG G0GYGY(G british<272/T2C procesandosys_procesando.prgG+( ini_funciones T4-splashJ6T678T679T67:T6;! Cargando...0C Procesando parmetros locales...6< Ca@12C"Procesando parmetros locales 2...6<T=% \fdummy.bin  =(%C=0  T>C=(T>%>SCDNo tiene permisos de creacin en el directorio local del sistema !!!0x8 C> 1C!Procesando parmetros locales3...6<G 7?@ T? T@1C!Procesando parmetros locales4...6<C ]!%C$ \config.fpw0 G G($ \config.fpwG  screen=offGG(0C Procesando parmetros locales...6<7A TACG B TCD(#%VERBOSECC f]TC TExpCCDZxp(z+xoffset)=UPPER(&xparm) TCTDDC CFTD TG TH- TI- TJTKMIN TL TM- TN TOD( %C=CDB (TPCCCDBC=CDB=f  TPCCCDBf CQ%O RO1C!Revisando conexin al servidor...6< 7ST TSL TTN%CL %Cp_systembC %CS\log.dbf0 TL%CL( $CBuscando servidor...6<$%Cxp_systemdescrbC- TNTLCNU%CL %Cxp_srvbC %CL\log.dbf0 -C No se pudo encontrar el servidorV8 WSRVL $ -C No se pudo encontrar el servidorV8 T "CConexin vlida...6< TSL5C%Inicializando parmetros generales...6<TD CFTD CX(CaFTD%YSCHN ?Ztest-server.BrunoSchillig.local BrokerPedidos2C"Procesando parmetros generales...6<D(%C=CDB (TPCCCDBC=CDB=f TPCCCDBf%CQ 2C!Parmetros generales: Procesando P)%=CDBu,TPp_CCDBC=CDB=*%CPbUCP=p_* sHo CPbC(T[CCDBC=CDB[ A&xvar = xval T[C[{/ENTER}C >C-Parmetros generales: (C) Dato invlido para P)T6 -HC Dato invlido para el parmetro CPC=P\\T6 a2 CPbN CPbD CPbT (T[CCDBC=CDB[H\  CPbNT]P=[ CPbDJT]P=date(C[\,C[\,C[\) CPbT "T]P=CTOT("[") 7 &xpar BC1Parmetros generales: Dato invlido (catch) para ])T6 -HC Dato invlido para el parmetro C]C=]\\T6 a CPbL5%CCCDBC=CDB\01\BT[CCCDBC=CDB\1 .t..f.6T]P=[  &xpar XIC8Parmetros generales: Dato invlido lgico (catch) para P)T6 -HC Dato invlido para el parmetro C]C=]\\T6 a KC Al parmetro CDB$ no se le asigna un valor vlido !!!\ 2oLC;Parmetros generales: Tipo de parmetro no codificado para P)dC#Tipo de parmetro no codificado !!!C  Parmetro: CDBC Tipo: CPb\ q%CP=p_*IC#Parmetros generales: El parmetro CDB fue omitido) mJC#Parmetros generales: El parmetro CDB no es vlido)8C El parmetro CDB no es vlido !!!\  NC#Parmetros generales: El parmetro CDB no contiene el =)>C El parmetro CDB no contiene el "=" !!!\%^9C,Control de mltiples ejecuciones por usuario) T>C=%>VCIControl de mltiples ejecuciones por usuario: No se puede crear dummy.bin)(dT>^CQControl de mltiples ejecuciones por usuario: No se puede crear dummy.bin (catch))%>%_C>Slo se puede abrir una instancia de programa por ubicacin!!!C 3Desea forzar el cierre de la instancia ya abierta?$x  3 R(YCEControl de mltiples ejecuciones por usuario: Error en sys_killproc: `) NC?Slo se puede abrir una instancia de programa por ubicacin !!!0x8C>CCꁙ C>CConfigurando...6< TTN1W systemdescrTSRV T4H TaI TbM TYKG ca%Cp_serverbC"%Cd \clientes.dbf0 G(d %4l9C Invlida definicin de SERVER : d !!!V Ce .C!Invlida definicin de SERVER !!!V %YSCHf _utmapper.prg B CijQSTRING Tj%Cjk %Cj>\ Cjx Cl%4}B 8'T m%\empresa\foxuser.dbf%C m0 FDCATENCION !!!! El archivo CC mf no existe !!!!V 6n%44B B8  To 1aaa=1GT( m%o 6n%4@C3No se permite usar ms de una copia del sistema !!!VB 8ON ERROR &onerr +%CCMASTER5fSPRUSR4 U Tp{ 1mensaje('Error al inicializar !!!! Salga e intente entrar nuevamente.'+CHR(13)+ 'Si persiste el problema, llame al programador....')TdCCdfTSCCSfTqCCqf#%CS \empresas.dbf0 CKATENCION !!! El directorio del sistema (System) no existe o est daado !!!C  Servidor: dC  System : SC  Local : %V Cl%4B 8&CVerificando sistema...6< G~(gesT m% \cfg_sys.ges para continuarV<| I" C}("%~ " 7} J(}T md \atrcan.ges@ mCActualizando...6<7 T-7 T < 7TCX TON ERROR &onerr %C # Cl%4x#B #8'CAjustando formulario...6<%CdKGYT9.T9/ T9*a T9*-T99T9.T9/ T9*a T9*-T99 TC&CAnalizando cargador...6<H$$ $C sysmsg2k.exe 2$ C2C"Analizando actualizacin propia...6<H4%z% b%C SYSMSG.EXE 2z%C1C!Analizando versin del runtime...6< C"CAnalizando DLLs...6<% & C sys_system TC*CAnalizando Complementos...6<%d& C$CIniciando sistema...6<%4 &T6-G+( ini_funciones C3+T9!GES - Validacin del usuarioT9T90 T9 -&CIniciando seguridad...6< C C C%'2C"Controlando sistema de mensajes...6< Csys_mensajes.prg#CIniciando claves...6< C T-H)(( f( TC 2(Ca6CVerificacin terminada CCZ...6< CTC%4) Ta%  )bCVerificacin Erronea oKey=C106CL2=C106 ...6< CGY Cl%4)B )8'%4  f*rC/El sistema est en proceso de actualizacin !!!C ,Por favor espere a que termine para ingresarV8'CContinuando la carga...6< CT6 aT6a%4* T{T9!GESC6%O+TC.ico!TCCeuCLocalizacin...6< C)T6!Localizacin: C%43,H+/,% CC] = GUILLERMO #,CGUILLE CC]=DEY #/,CDEY%,T\CCC@T\CCC@%C ,T\C@T\C@7 TJ0C Iniciando Interfaz de usuario...6< CH2-R. l-7 TCbarra_principalaN 2R.H-N. -TCbarra_principalN -TC barra_localN .$TCbarra_punto_de_ventaN N.TC barra_remitosN$CCargando empresas...6< C T T TF!QS \empresascodigo% / T#)ft05 1%CN 1% para continuarV<|1 aaa=ERROR() T To+oc7 ToT md \inicial.ges@ m)%oCi_lis(1)bN _7%Ci_lis(1)bN6 ToT%d[7T md \inicial.las@ m CON ERROR &onerr *CInicializando variables...6< C% 8FQidx04idx04EC$%C4 }8.oidx04C$ <)QUERYZridx04C$ 8%8F 8FQq\cons#) T T T T 7TTTTTTTT T T T T T T T TotrsacoT o <7 Ta T T+CRegistrando hora inicial...6< C<7 Tproc_stkT6 a%CVariables pblicas...6< C77| 7 757 TT? gestart.001T@gestartGY%4;%CS\prt 2<?C"Atencin !!! No existe la carpeta S\prt !!!V8%C%\tmp <?C"Atencin !!! No existe la carpeta %\tmp !!!V8 GU(GUI({2f1{2f2{2f3{2f4{2f5{2f6{2f7{2f8{2f9{2f10{2f11$12f12DO sys_soporte_remoto{2ALT+f10(CInicializando mdulos...6< C/7      T 2 T  T T  T  T T T T T T T Ta%C>Td\img%C > >  >T%\TMP  ?7C'Controlado fecha y hora del servidor...6< C C%w? C&CPreparando registro...6<Ca C < 7%CS\Version @QS\Version #) 0@T  G@ T!sys_verificar2=C-Comprobando parches para la versin actual...6<#sys_verificar2$%H%CVERSION.Lc_EstbN!&C'(C  TA5C%Inicializando el servicio de datos...6< T%- A3C#Conectando con el servicio cloud...6< T%a CC6%)$CFinalizando carga...6< C THBC }B[C SISTEMAI"Inicio del sistema en modo GESTASKEXE=GIMO8* BZC SISTEMAI!Inicio del sistema en modo SYSMSGEXE=GIMO5* CPCOC SISTEMAIInicio del sistemaEl sistema fue iniciado.* 2CvC SISTEMAI"Inicio del sistema pi_inicio_modo=CCZEl sistema fue iniciado.IMOCCZ* 6n%C+ C8%,DCBSistema iniciando en modo compatibilidad con sistemas antiguos !!!C C ,EL SISTEMA NO DEBE FUNCIONAR EN ESTE MODO!!!C #Avise a nuestra gente de soporte!!!V%-./ OElC2Est mal configurada la zona horaria del equipo!!!C sta debe estar configurada en 0V T9 - TC - T9*-T92HEE E{G~(clasesG(Ba2 T23 monitor2.prg2%C2 %FC2V C5T*aT2T*-6 T6aHF.G F<777 sys_mensajesJ7 CG F 2.G%CG8 ve_comienzo : ;(|SetActiveWindow user32.dllC=<{G~(clasesG(C>%GBa8%?Cversion.lc_estbN CG I #)+%&C'(C HnCCCCAa@Error interno del sistema. C (Por favor comunquese con el soporte !!! V Ta7%C& CB CD IG+(listadosCC&Alerta_LicenciaAlerta_Licencia_fija6CCCAa@;Licencia de uso vencida, por favor regularice su situacin. CFG% J%CGJ%6J&%4  yJGY( %CC]=DEY # J T9 aT9 T9+a T9-a T9,a%uJ C:9 J H J &xp_exe  TPC SISTEMAFCierre del sistemaSe ha cerrado el sistema.* .K C>(\+C>XTCC C (TC C=6 TCCCC==fTCC>[%C!.% CSRV SYSTEMDESCR TT T   mB-BaU XORIGENXOMITIRDELOCALXVARXVAR2STRCFGXPOSXLOCAL2P_LOCALXP_SRVXPZ CUSETSC4%C# , 8 t,BUXTOOLBARM'%C\ges.exe8C BBUXVERSIONP_LOCAL ACTUALIZARBU ACTUALIZAR '%CoSplashbOC j1TBuscando servidor: No MapeadosTC%C B BUXPATH XSYSTEMDESCRZOSPLASHLABEL1CAPTION SYS_CONEXIONH EXE;C*Parmetros generales: Procesando especial TCCC[ DEV;C*Parmetros generales: Procesando especial  Ta INST:;C*Parmetros generales: Procesando especial  Ta SERVIDOR;C*Parmetros generales: Procesando especial  Ta EMP ;C*Parmetros generales: Procesando especial TCCC[g EMPRESA;C*Parmetros generales: Procesando especial T CCC[ KILLPROC;C*Parmetros generales: Procesando especial %T CCCC>[g SRV;C*Parmetros generales: Procesando especial T CCC[c%C ="C ='  C R"C R'  C =C R %T CC C >[[ SYSTEMDESCRt;C*Parmetros generales: Procesando especial %T CCCC>[! PI_INICIO_MODO;C*Parmetros generales: Procesando especial T CCC[g 2B-BaUXVAR GES_REPORTARXP_EXEXPZXP_DEVXP_INST XP_SERVIDORXP_EMP XP_EMPRESA XP_KILLPROCXP_SRVXP_SYSTEMDESCRPI_INICIO_MODOG+(listados%%C\inst\dosprt.exe0'%C\dosprt\dosprt.exe0)TC\dosprt\dosprt.exeX'TC\inst\dosprt.exeXTC  Ta%OmensajeJ5Actualizando DOSPRT.EXE desde el servidor. Aguarde... T 1 aaa=ERROR()<\inst\dosprt.exe(\dosprt\dosprt.exe{<BU LISTADOSP_SYSTEMP_LOCALXLXSXCOPIAR DT_COMPARARMENSAJEXMSGAAA   T TC%C0 EB#+ C TC % CBUXFILEXTIEMPOXSEC1XMNFL2TC ges2k.exe G+(listados*CIniciando comparacin CC%C\inst\0C\&COrigen \inst\%C\0"CDestino \TC\X!TC\inst\XTC CSystem=CC exe_path=C,C Copiar = CSINO6 $CNo existe en destino... Ta%C Actualizando MmensajeJ Actualizando  desde el servidor. Aguarde... T 1 aaa=ERROR())\inst\(\{< %  c+CERROR Actualizando ... CCEOC:No se ha podido actualizar un archivo importante. Error = CC Z y% +CERROR Actualizando ... CCE $CActualizacion realizadaCSSe ha actualizado un componente importante del programa y se debe abrir nuevamente.C &Presione para salir el sistema CC*PQ8CC*PQBUXARCHIVOLISTADOS GES_REPORTARP_SYSTEM CHK_LIBERADO P_EXE_PATHXLXSXCOPIAR DT_COMPARARMENSAJEXMSGAAAP_DEVrC gesmail.exeC gescom.exeCdev.vcxCdev.vctUUPD_FILE P_EXE_PATHP_LOCALP_SYSTEM#CwwDotNetBridge.dllC wwipstuff.dll#CwwDotNetBridge.dllC wwipstuff.dll#CBarCodeLibrary.dllC QRCodeLib.dllC VFPAR.DLLaC VFPAT.DLLaC VFPAR.DLLC VFPAT.DLL ~%CmailctaS zQmailctas(`C Error al abrir MAILCTASCDefaultvC CPathvDBFMAILCTAS %CMailctasF(%Cmailctas.usa_gmailbN ()%     <7$TCChilkat_9_5_0.GlobalN'sys_mail_chilkat.prg-(4%C\inst\ChilkatAx-9.5.0-win32.dll00 .CChilkatAx-9.5.0-win32.dlla-a $TCChilkat_9_5_0.GlobalN'sys_mail_chilkat.prga(5C(No se pudo registrar la librera Chilkat(,2C%No se pudo copiar la librera Chilkat ZCMNo existe la librera ChilkatAx-9.5.0-win32.dll por favor avise al soporte!!!UOEOEXOEX2XCNTUPD_FILEP_LOCAL P_EXE_PATHP_SYSTEMMAILCTASUSER_LOG PUB_INDEX USA_GMAILP_MAIL_SEND_ENGINEP_AGES_SOL_ENGINEOCHILKATGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATPRGMENSAJEg%C0C0 STCXTCX BU XFDESTINOXFORIGENXLXSaG+(listados,C Comparando C - CC     TC\inst\ TCC T C T a%C0)COrigen %C 0CDestino TC XT CXT C CSystem=C CDestino=C ,C Copiar = C SINO6 $CNo existe en destino... T a% +C %C Actualizando ...MmensajeJ Actualizando  desde el servidor. Aguarde... T1 aaa=ERROR()( {<% +CERROR Actualizando ... CCEOC:No se ha podido actualizar un archivo importante. Error = CCZ T - %+CERROR Actualizando ... CCE T - $CActualizacion realizadaCC*PQ.%       uc:\temp  <C regsvr32 /s " "c:\temp\regfile.batCc:\Temp\RegFile.batc:\Temp\RegFile.bat(CC*PQ V#CNo existe en origen...BUXFILEXDESTINOXORIGEN XREGISTRAR XEJECUTARXFORZADOLISTADOS GES_REPORTARXFORIGEN XFDESTINOXCOPIARX1XSXOKOEXP_SYSTEMXL DT_COMPARAR CHK_LIBERADOMENSAJEXMSGAAAP_DEVC T\GES.log%C0_TC C xTCC C[UXMSGXMNFL2XFILE P_EXE_PATH TCges.exe %8B%%CxMaxPar_InicialbLn TG+(listados%C\inst\0%C\0TC\X!TC\inst\XTC  ) Ta%%  G(T  GES2k.EXEH CfGES.EXET  FROMGESEXE=1 Cf SYSMSG.EXET FROMSYSMSGEXE=1 (>2T  CC  6CxpCC Z.| ShellExecute Shell32.DLL#Copen 8 C>El sistema necesita actualizarse y se debe iniciar nuevamente.C &Presione para salir el sistemaC C 7Si est en un entorno de servidor TODOS los que inicianC 1en forma local, deben cerrar el sistema a la vez.8BUXMAXPAR_INICIALXARCHIVOP_FORCEEXEUSERLISTADOSP_SYSTEM P_EXE_PATHXLXSXCOPIAR DT_COMPARAR P_FROMGES2K XARCHIVO2KXVARZ SHELLEXECUTESHELL32DLLMENSAJER GY({T9G 1aaa=1G({G {2f1 T9aT9 T9a T9a T9aGY(GY G0 GZ BUPICTUREF1VISIBLE WINDOWSTATE CONTROLBOXCLOSABLE MAXBUTTON ini_funcionesUINI_ELIMINAR_BARRAS INI_FUNCIONESAsys_verificar2B Versin: CCZUXVERSIONVERSION_ACTUALSYS_VERIFICAR2TQSTRING T'T \empresa\foxuser.dbf%C 0 CTATENCION !!!! El archivo CC f no existe !!! @ T 1aaa=1GT( % )@T3No se permite usar ms de una copia del sistema !!!ON ERROR &onerr  BU AERRORMSGTEMPP_LOCALAAAP_DEVkQSTRING T  \clientes.dbf%C 0 F%TDATENCION !!! El server no existe o no se encuentra en operacin !!!!C  Servidor: C  System : C  Local :  ;DT7ATENCION !!!! El directorio de los datos no existe !!!B- d TBaU AERRORMSGTEMPP_SERVER P_MULTIUSRP_SYSTEMP_LOCAL?%SCH. _utmapper.prg UP_EMP_RELEASESYSTEMSQL _UTMAPPERPRGOSPLASHRELEASET- T "TCCChC.Ch=g"TCCChC.Ch\g T T-H  T   T%% C(La versin de los runtimes del sistema (Ch)C necesita ser actualizada...C C !Por favor avise al programador!!!:B- BaUXSILENTXVER_8XVER_9 XACTUALIZARXVERMXVERDXVERAMENSAJE5UXTPATHXVARXVALUEXPOSXRELSYS_CFG0QNETHLPsys_clases_conexion_red.prgAQCFG_CTRL sys_cfg.prg QCFG_CTRL sys_cfg.prg&TCCFG_Ctrl sys_cfg.prgT  \GES.CFG C &T CCFG_Ctrl sys_cfg.prgT  \GES.CFG C 4TCNetHLPsys_clases_conexion_Red.prgTC $TCCMAP_TIPO g  T (TCC MAP_ELIMINAR g  T+%C C TC T %C CSRV C% %CC UXLETSYSXPRES XMAP_TIPO XMAP_ELIMINARONETSYS_CLASES_CONEXION_REDPRGOCFGSYS_CFGOCFG2ARCHIVOP_LOCALCARGARP_SYSTEMLINEASITEMVALORMAP_INFOAGREGARGRABAR MAP_BORRAR#7 T T- oCC-PQCCCCC-PQ((CError INICIANDO:  Ta%  _'CInicio - Local: T"SET DEFAULT TO &p_mon_svc_path SET PATH TO &p_mon_svc_path C Localeado( CError: ( CError: Localeado Ta%  z%v CDeclarando mapeo*|WNetAddConnectionWIN32API+|WNetCancelConnectionWIN32APIECIntentando conectar   en disco  :"TC  : C Respuesta CZ%C :\A$CExiste  :\ r'C NO Existe  :\('CError Mapeando:  Ta%  DC Do monitor2monitor_modo=2monitor_service=1C Done monitor({CError:  Ta%  .CLocal:  - System: T(CError:  Ta%  wC ObjeteandoTC Objeteado(CError:  Ta%  C T- Ta BUOMONSVCTHISXERRORREPORTAROEXMESSAGE DIR_LOCALP_MON_SVC_PATHMAPEARWNETADDCONNECTIONWIN32APIWNETCANCELCONNECTIONMAP_UNC MAP_LETRAXCONCOMIENZOP_LOCALP_SYSTEM DIR_SERVEROBJETOOMONIDESTROYINICIADO  <<% *CDesconectando :+|WNetCancelConnectionWIN32APITC: C Respuesta CZ(CError:   T aU XCONOEXOMONIOMONITORTHISMAP_DESCONECTARREPORTAR MAP_LETRAWNETCANCELCONNECTIONWIN32APIMESSAGEXERROR4  &xcmds (-UXCMDSOEX %Cc:\monitor2.log0`!TCc:\monitor2.log C TCc:\monitor2.logC CUXMSGXMNFL26TT- 8UXSTRINGTHIS TXT_ERRORINICIADODESTROYA #TIntercambio de ServersTC%C :%Cxp_srvbC%C\log.dbf0 -C No se pudo encontrar el servidorB- SRVLC?Debe volver a abrir el sistema para que el cambio se efectiviceUXP_SYSTEMDESCRXP_SRV GET_SYSTEMMENSAJESYS_CFG%%  ]CPConfiguracin invlida: Importaciones locales no permite cuentaspor artculo !!!B-BaU P_IMP_LOCALES P_CUEXARTP_CM_IMP_CUENTASMENSAJE(%CCGES-.CFG0|FTCCFG_Ctrl Sys_cfg.prgaCGES-.CFGaH DEY GUILLEUXEQUIPOP_LOCALOCFG%!Ba%CoDeyFuncbOJ#CC Sistema.lnk(CC Sistema.lnkaU XFROMGES2KP_ICONO_SHORTCUT_CAMBIAR DEY_FUNC2CAMBIAR_ICONO_GESODEYFUNCGET_PATH  Ta%C0 TC wscript.ShellNTC %GES2KC f%T CC fGES2KGES TaI%GES.C fGES2KC f C fC f 0C  SISTEMAIC fTarget 5C  SISTEMAI Icon Location T  Ta%%   C  C(  T- B UXPATH XFROMGES2KXUACLOSCRIPTLOSCLOSC2XOKOEX XCAMBIADOCREATESHORTCUT TARGETPATH ICONLOCATIONUSER_LOG PUB_INDEXSAVECAMBIAR_ICONOS_GES2K_UAC,| ShellExecuteshell32T T runasT C ges2k.exeT ICON21=1T C+BC    U LNOWNERHWND LCCOMMANDLCTARGETLCPARAMS LCDIRECTORY SHELLEXECUTE P_EXE_PATHEXEZsave_iZtmp2\ini+_LOADb fn_toolbarbregistrosbdummyb get_system c especialesd upd_dosprti chk_liberadok upd_ges2klupd_complementosqupd_dllsbr upd_comparewupd_filetx ges_reportar~ upd_ges_chkl dev_returnكeliminar_barrasversion_sistema7 checksystem checksystem2,releaseglobalresourceو chk_runtime\ guardar_cfgnanalizar_mapeo֋iniciarDESTROYDOCMD1reportary event_error7intercambiar_serversvalidacion_variables_globales!arreglar_paths_desarrollocambiar_iconos_gesܜcambiar_icono_ges؝cambiar_iconos_ges2k_uac TTwT1 Ta Ta TT Courier New T- T T aT  frame_dosU DATASESSIONHEIGHTWIDTHDOCREATE AUTOCENTERCAPTIONFONTNAME KEYPREVIEW WINDOWTYPEZOOMBOXNAMETmainTbarra_principalTGES (c) T}T T}T T}T U MENU BARRA_CLASSCAPTIONHEIGHTWIDTH MINHEIGHTMINWIDTH MAXHEIGHTMAXWIDTHU T T T- T T T- T T T- T - T  T  T  T C T    !U DIR_LOCAL DIR_SERVERMAPEARMAP_UNC MAP_LETRAMAP_DESCONECTARMAP_USERMAP_PASSOBJETOINICIADO TXT_ERROR DEBUG_MODOLIMITE_MEMORIALATIDO EXE_INICIO frame_dosFORM#modulo_principalmodulo7sesion_alternativaSESSION3 ges_serviceCUSTOM>qbquBCAAAA91"ab!b1eDAFAbaaaaqaarqs411ba"A!AA1AABcBaaaaaAtb2qAAaAA2A!AABDBA2!AAAAA!ARreB"aA"aA"aaaa!B"AaQ!aAAAAAAAAA3AaAAA ABAAAb0!AaAAAAARQAAAAAtAAQAAA1AAAA1AA5 QAAAAb111BArqa" AqaABrr9QAAAAz2bQQb1A"1B#1QA1BBArb4!A21AaAA!aAAAArQ"ABrA"5BQ1AA2B"Bs1q111A1AAAQ!3QQAAssQBABCAAABAAACAAR1AAAArrRQAAAAA QAAAAQAAAAAbb Aq2AA1BAA1QABA1Q11111111ArqqQsqqAcQAAAAAqA1TQ1QAABzAcAArrQ1A1D11qaAAA2 AA1aqAz!As1rqaABfB1qAAr! ABfqA1AARQBBBAqAbAR"Aa1AQABAB3qQAAA31A11A2CBAQ1AsB2!AAAAaa1Aa1ABAB2qA1qA1qABRaUAA1AAqAr15qAA2rBB2qA2qyAb!Ap2aaqaQa3RAQqAq2!RqqA1rBAB1!AA1!1AAA2q!b"AC1r1AA A1AB1AB131112AAAq!qqAqBAqRA!AAAAAA2111A2!B21ACR1!r1AAA1AABA31AB1q!AB4AAQA!AaA"B1AAAAAB1QqbabRQQqaqaA13q4qA1A1A3A AAqqA3aA<q%!11A1 AqqA2q>1aaBAAAS!AA;aAAAA1qqa1aAq!AAA!Q!AqAAqAA!AAAAAAAA2QQ"AA2qAA2qqA2qA311!qAAQA3RqAr2qraAaC4q1qAqA13QQAQ1AqABAA2qAq!1a3A427ߒ\p3C$<4rd(LfXΠRny[tgwڧkiְԸ;B2m{9z,7 * !Ip pt t{ Y  G  L 3z=& ] )r x  0 &  d    `%47 { %2%2r@.UK ges C%CPROVEEDO UFQproveedonombre%CCCCOMP FQcccompcccord%CCUENTAS FQcuenta%CCCPROV FQ\ccprov%CCOMPRAS @FQCOMPRAScom_ordBU GESABRIR_TABLAS_FIJASPROVEEDONOMBRECCCOMPCCCORD_CUENTASCUENTAP_PRIVCOMPRASCOM_ORD( >a >a >aBUCM_001CM_002CM_003I <7 TlistadosBUARR_IVA MAXARR_IVAIVALISTADOS open_files, inicializarvariables_publicas.1RAqAAAQAAB2H3q1B1Sk(L7%v9^AV.U4% %CGES < ges CG+(dey_funcCbienescodinsCtr04tr04CformulasCstockCstkxdepCbultosCatributoCccformulCconverconverCconver2CdepositoCdespachoCnumfacCmovstockCstkxcodCproducciCmotinvCcentralCstkxserCstkxdspCcons#)F+TCSecuritysys_security.prg C%CEL"Cclientes\cel\tipooperCagentecodageCsucprop Cclientes\cel\serdet%CproveedoFQCproveedocodproCtcccomptcccordCtcomprasCprot_espCprot_anaCprot_detBU XAUTGESABRIR_TABLAS_FIJASDEY_FUNC CHK_OPENEDOSEC SEC_TABLE_GETP_EMPPROVEEDO!>CX >-BUIN_001IN_004 open_files0 inicializar=1qBbA$R"B2RRBRR2RBR2BBBQqc"BBqAARRRRE2D15\g%S7Zr@.U! ges CBUGESABRIR_TABLAS_FIJASBUI <7 TlistadosBUARR_IVA MAXARR_IVAIVALISTADOS open_files, inicializarnvariables_publicas}1RD2A3q1B1 8%nv tpY.4 G(9 $ TC"T\tmp\CC]R ve_pedidoG+( ve_pedidoG+(ve_procsTC C F & & CCZ& & CZ& CZ& CZ& CCZ;& CC 6CZ& CCZ& & &  T!ve_control_de_pedidos#%Cpedidos_pendientesF Q.dbfBU ACTIVEFORM DATASESSIONID XFECHAHORA XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOVE_PROCSXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_PEDIDOS_PENDIENTESPEDIDOS_PENDIENTESIMPORTEFECHAPEDIDONOMBRE DVENDEDORDFLETEFEC_ENTTCCVENTDESPLFEC_PROBULT_FACTARFCLISTA TIPO_CPBTXRESVE_CONTROL_DE_PEDIDOS6BC-BUXARCHIVOXFILTROXALIASXCAMPOSOBTENER_PEDIDOS*sys_procesando Consultando%d CP]TC     %CxaliasbLTpedidos_pendientes%T  .t.  T  .f. %CxfiltrobC;T.t.%^T .t. !T  tccvent.est_desp<5 %Cpickings Qpickings,sys_procesando Consultando 1%%Ctccvent.tipo_ncbN SELECT tccvent.fec_ven AS fecha , tccvent.pedido AS pedido , tccvent.cod_cli AS codigo , .F. AS tilde , tccvent.deuda AS importe , tccvent.stock AS stock , tccvent.credito AS credito , tccvent.gerencia AS gerencia , tccvent.est_desp AS est_desp , 00000000000.00 AS imp_apr , .F. AS aprobar , .F. AS ok , SPACE(200) AS reanalisis , IIF(tccvent.stock=0," ",IIF(tccvent.stock=1,"SI","NO")) AS dstock , IIF(tccvent.credito=0," ",IIF(tccvent.credito=1,"SI","NO")) AS dcredito , IIF(tccvent.gerencia=0," ",IIF(tccvent.gerencia=1,"SI","NO")) AS dgerencia , tccvent.peso AS peso , tccvent.cod_fle AS flete , tccvent.ot AS ot , tccvent.TRAN AS TRAN , tccvent.dv1 AS libfacrem , IIF(tccvent.dv1,"SI","NO") AS dlibfacrem , tccvent.libent AS libent , IIF(tccvent.libent=1, "SI", "NO") AS dlibent , tccvent.ref AS oc , 00000000 AS dias , cotiz AS cotiz , tccvent.oriped AS oriped , IIF(tccvent.oriped#tccvent.pedido AND tccvent.oriped#0 , "SI", "NO") AS es_subped , tccvent.sucfac AS sucfac , arm_bloq AS arm_bloq , ref_ext AS ref_ext , VAL(LEFT(ref_ext,10)) AS pedido_ext , update_dt AS modificado , verif AS verif , 000 AS estadoex , tccvent.fec_ent AS fec_ent , tccvent.despl AS despl , tccvent.suc AS suc , NVL(tccvent.agente,SPACE(8)) AS vendedor , IIF(tccvent.despl=0,{},tccvent.fec_ent+tccvent.despl) AS fec_prob , tccvent.motdem AS motdem , PADR(IIF(tccvent.est_pick=0, "Sin pickear", IIF(tccvent.est_pick=1,"Sin saldo", IIF(tccvent.est_pick=5, "Pickeo parcial", IIF(tccvent.est_pick=9, "Pickeo completo", "Estado: "+ALLTRIM(STR(tccvent.est_pick)))))),30) AS picking , tccvent.est_pick AS est_pick , rep_ultima , rep_meses , rep_cant , 0000000000 AS COLOR , tccvent.plan , tccvent.des_clie AS des_clie , tccvent.items , tccvent.per_fac , tccvent.per_ent , tccvent.per_pick AS per_pick , 0000.00 AS stk , tccvent.bru_pick AS bru_pick , tccvent.net_pick AS net_pick , {} AS ult_fact , tccvent.plataforma , tccvent.rfc , tccvent.lista , tccvent.acopio , tccvent.tipo_nc , IIF(tccvent.tipo_nc=0, "PD", "NC") AS tipo_cpbt FROM tccvent WHERE ((&xfiltrotodos .OR. tccvent.cod_cli#"0 ") .AND. !EMPTY(tccvent.cod_cli) ) .AND. tccvent.pedido#0 .AND. (&xfiltrotodos OR &xfiltroestado ) .AND. &xfiltro INTO CURSOR q_ctrl_ped  SELECT tccvent.fec_ven AS fecha , tccvent.pedido AS pedido , tccvent.cod_cli AS codigo , .F. AS tilde , tccvent.deuda AS importe , tccvent.stock AS stock , tccvent.credito AS credito , tccvent.gerencia AS gerencia , tccvent.est_desp AS est_desp , 00000000000.00 AS imp_apr , .F. AS aprobar , .F. AS ok , SPACE(200) AS reanalisis , IIF(tccvent.stock=0," ",IIF(tccvent.stock=1,"SI","NO")) AS dstock , IIF(tccvent.credito=0," ",IIF(tccvent.credito=1,"SI","NO")) AS dcredito , IIF(tccvent.gerencia=0," ",IIF(tccvent.gerencia=1,"SI","NO")) AS dgerencia , tccvent.peso AS peso , tccvent.cod_fle AS flete , tccvent.ot AS ot , tccvent.TRAN AS TRAN , tccvent.dv1 AS libfacrem , IIF(tccvent.dv1,"SI","NO") AS dlibfacrem , tccvent.libent AS libent , IIF(tccvent.libent=1, "SI", "NO") AS dlibent , tccvent.ref AS oc , 00000000 AS dias , cotiz AS cotiz , tccvent.oriped AS oriped , IIF(tccvent.oriped#tccvent.pedido AND tccvent.oriped#0 , "SI", "NO") AS es_subped , tccvent.sucfac AS sucfac , arm_bloq AS arm_bloq , ref_ext AS ref_ext , VAL(LEFT(ref_ext,10)) AS pedido_ext , update_dt AS modificado , verif AS verif , 000 AS estadoex , tccvent.fec_ent AS fec_ent , tccvent.despl AS despl , tccvent.suc AS suc , NVL(tccvent.agente,SPACE(8)) AS vendedor , IIF(tccvent.despl=0,{},tccvent.fec_ent+tccvent.despl) AS fec_prob , tccvent.motdem AS motdem , PADR(IIF(tccvent.est_pick=0, "Sin pickear", IIF(tccvent.est_pick=1,"Sin saldo", IIF(tccvent.est_pick=5, "Pickeo parcial", IIF(tccvent.est_pick=9, "Pickeo completo", "Estado: "+ALLTRIM(STR(tccvent.est_pick)))))),30) AS picking , tccvent.est_pick AS est_pick , rep_ultima , rep_meses , rep_cant , 0000000000 AS COLOR , tccvent.plan , tccvent.des_clie AS des_clie , tccvent.items , tccvent.per_fac , tccvent.per_ent , tccvent.per_pick AS per_pick , 0000.00 AS stk , tccvent.bru_pick AS bru_pick , tccvent.net_pick AS net_pick , {} AS ult_fact , tccvent.plataforma , tccvent.rfc , tccvent.lista , tccvent.acopio , 0 AS tipo_nc , "PD" AS tipo_cpbt FROM tccvent WHERE ((&xfiltrotodos .OR. tccvent.cod_cli#"0 ") .AND. !EMPTY(tccvent.cod_cli) ) .AND. tccvent.pedido#0 .AND. (&xfiltrotodos OR &xfiltroestado ) .AND. &xfiltro INTO CURSOR q_ctrl_ped )sys_procesando Analizandoo q_ctrl_pedXclientes 78Xcliaux C9 ZP:;Xagente <(=Xfletes >*?Xplanvarc C9 ZP/@Xcondcobr A-AXrubrofac B27CCCқCS - 6(QQQQQQC  !Q" #Q$%$Q&C%$ Normal$C%$ Media Alta 66Q'C(C(XQ)C*C(XQ+,Q,CC-.C/0-06Q1C23C(XQ4C25CXQ691>CCCDQ%+i1FNi1GNi1HN!i1IN!i1JNi1KNi1LNi1MN!i1NNi1OC%P%Cpickings pQpickings CaQ  CaQ%RCS%T F-UQ MELI_ENVIOsys_meli_objetos.prg1TUC Meli_Enviosys_meli_objetos.prg~CX Q%CC .plataformaC.ref_extPlataformas_AuxRef_Full>OCZ[UY\sys_procesandoBU]XARCHIVOXFILTROXALIAS XSINESTADOXTODOSXCAMPOS SP_MENSAJESYS_PROCESANDOP_FLUSH_VERSION XFILTROESTADO XFILTROTODOSXPEDIDOXPCKPICKINGS Q_CTRL_PEDCLIENTESNOMBRETARJETADES_CLIECREDITOCREDCLIAUXAPC_ATR CR_ATRASO APC_ATR_GL CR_ATRASOGAPC_CC1APC_CC2 SALDO_CTAAPC_CHQ1APC_CHQ2 SALDO_CHQ APC_DIAS1 APC_DIAS2 ATRASADASVE_CALIF PRIORIDADTCCVENTPRIODPRIOAGENTE DVENDEDORFLETESDFLETEENTNOMCONDCOBRVARIABLEPLANVARCANTICIPOPLN_ANTRUBROFACDESCRDRFCABREVARFCCODIGOCOD_CLIPEDIDOCOMPROBCAUSAVENDEDORCOD_AGEFLETECOD_FLEIDPLANRFCESTADOEXPROCESAR_ESTADOEXALLART_TOTART_APRART_REC CLI_MIN_P GLB_MIN_PAP_STKAP_CRECRITERIO IMP_APR_P LOGISTIC_G P_PICKINGACTUALIZAR_COLORP_VE_PEDIDOS_ULT_FACULTIMA_FACTURAP_MELI_RECUPERAR_LOGISTICAOENVIOSYS_MELI_OBJETOSPRG PLATAFORMALOGISTIC_TYPE_GESPLATAFORMAS_AUX LOGISTIC_TSP_OCULTAR_DEFINITIVAMENTE%N8>C C C C      C y6C    C 6>C    666666 7>C C C C      C y6C    C 6>C    666666BU XTODOSCOLORGERENCIAVERIFARM_BLOQSTOCKEST_PICKCREDITO LIBFACREM P_PICKINGALLf#7TC C C C      C y6C    C 6>C   666666 BU XCOLORXSTOCK XGERENCIAXCREDITOXVERIF XARM_BLOQ XEST_PICK XLIBFACREM P_PICKINGH m"%0 C V B i B  % B  B BUXALIASEST_DESPCODIGOPER_ENTPER_FAC%CTCCVENT +Qccvent%CCLIENTES ]Qclientes%Ccondcobr QcondcobrBUCCVENTCLIENTESCONDCOBR%Cbienes *Qbienes%Cfletes XQfletes%Cagente Qagente%Csucursal Qsucursal%Ccondcobr Qcondcobr%Crubrofac Qrubrofac%Ctventas LQtventas%Cpickings ~QpickingsBUBIENESFLETESAGENTESUCURSALCONDCOBRRUBROFACTVENTASPICKINGSE4FG((tccvord%: EBUXPEDIDOTCCVENTTCCVORDPEDIDOTC H3F  F T log_errores5FTCC+CO6% (  T estadoJ T - T- T T"T Analizando PedidosT  T T aF&~C 6NT?T Pedido CC@z 999,999,999_ de  C H <  T. ve_aprobacion--%C 9CPedido CC@z 999,999,999_: CC T T. ve_aprobacion--%C P9CPedido CC@z 999,999,999_: C   T3ve_cancelar_pedido-a%C 9CPedido CC@z 999,999,999_: C F  T. ve_aprobacion--%C 9CPedido CC@z 999,999,999_: C E T. ve_aprobacion--%C A9CPedido CC@z 999,999,999_: C  T. ve_aprobacion--%C 9CPedido CC@z 999,999,999_: C  T.ve_reanalizar_pedidosa T.ve_reanalizar_pedidos-%C 9CPedido CC@z 999,999,999_: C PM!ve_reimprimir_comprobanteP"T#$\tmp\CC]R% ve_pedido   T. ve_aprobacion--%C 9CPedido CC@z 999,999,999_: C  N'P"T#$\tmp\CC]R% ve_pedido   TT() T* T+ T, T- T.+/ve_deuda(*+,-.F >1.   C%23B >23-45>25C$7C$%Ctventas Qtventas%Cccclie Qccclie>85C$3T:2;C@z 9999,999,999_PCZ">9<C$3-=:F >3-  %2>@ %Cccvent QccventF?-%C4 TCGHay operaciones asociadas al pedido, no se puede pasar a cotizacin !!! < T@24>25474>23a4%Ctventas Qtventas%Cccclie Qccclie>85@3T:2;C@z 9999,999,999_PCZ#>9<@3a=:F >3a  QCDEl pedido debe esar sin analizar, no se puede pasar a cotizacin !!!   8ABCaaa g 0Dve_impresion_rotulosPCCZ"T#$\tmp\CC]R% ve_pedido F2%%Ctccventtccvord%Fn%2F;>22F-2GCRHIC ZP Desbloqueove_control_de_pedidos.prg%JjK ve_pedido %2F >22Fa2GCOHIC ZPBloqueove_control_de_pedidos.prgF>F2F 3%CxdestinobLCxdriverbL | T T9Lve_orden_de_pickingPa %NC>O3%CxdestinobLCxdriverbL ;%C old_xdestinobLC old_xdriverbL nT    T  T  = TP%C 9CPedido CC@z 999,999,999_: C 9F .2TQC2R 2S2R6 TTQ(ve_fecha_probable_de_entrega(V%V*%%Ctccventtccvord%2RQ2S">2RQ2SGC=TFecha probable de entrega: CT* --> CQ*EHIC ZPve_control_de_pedido.prg6>WC2R 2S2R6 &6CNo se encontr el pedido CCZ !!! DTXY TTX ve_prioridad(V%V@W>YX[C2\ Normal$C2\ Media Alta 66%%Ctccventtccvord>2\XGCT Prioridad: CT Normal!CT Media Alta 66 --> C2\ Normal$C2\ Media Alta 66EHIC ZPve_control_de_pedido.prg <6CNo se encontr el pedido CCZ !!!  T2]sys_meli_pedidos.prgCZP%C 9CPedido CC@z 999,999,999_: C  T:`sys_meli_pedidos.prgCZPa%C 9CPedido CC@z 999,999,999_: C <e!ve_reimprimir_comprobantePa"T#$\tmp\CC]R% ve_pedidoCaHcv  vT -< Tb Tc-,d log_erroresbcF% #BUeXPROCESO XPEDIDO_PARAMXPARAM_L XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXPEDIDOPEDIDOS_PENDIENTESXREGTILDE XMAX_PEDIDOSESTADOESTADO_VE_CONTROL_DE_PEDIDOSXDESTINOXDRIVER OLD_XDESTINO OLD_XDRIVERTEXTOMAXVALUEVISIBLEPEDIDONOMBREAVANCEXMSGAPROBAR_PEDIDO VE_APROBACIONMENSAJEPOSICIONAR_EN_PEDIDO PROCESAR_PDVE_CANCELAR_PEDIDOANALIZAR_PEDIDOVE_REANALIZAR_PEDIDOS REIMPRIMIRVE_REIMPRIMIR_COMPROBANTE XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOVE_ROTULOS_DE_FACURAS_Y_REMITOSXCOD_CLICODIGOXSALDO1XSALDO2 XVALORES1 XVALORES2XDIAS OBTENER_SALDOVE_DEUDADIASTCCVENTCOTIZCOTIZFFEC_VENINFEC_INITVENTASCCCLIE XID_CCCLIECOD_CLIFECHAIDEST_DESPCCVENTXCOTIZFVE_FACTURA_INMEDIATA REP_ULTIMA REP_MESESIMPRESION_ROTULOSVE_IMPRESION_ROTULOSARM_BLOQ UPDATE_DTUSER_LOG PUB_INDEXP_VE_SEGUIMIENTO_PD SEGUIMIENTOORDEN_DE_PICKINGVE_ORDEN_DE_PICKING P_PICKINGSTKVE_ANULAR_PEDIDOXFECHA_PROBABLEDESPLFEC_ENTXOLDVE_FECHA_PROBABLE_DE_ENTREGAXRESFEC_PROB XPRIORIDADPRIO VE_PRIORIDADDPRIO PRIORIDADMELI_ACTUALIZAR_PEDIDOSYS_MELI_PEDIDOSPRGMELI_IMPRIMIR_ETIQUETAACTUALIZAR_PEDIDO_EN_TABLAXOKXAUTLOG_ERRORES_MOSTRAR4FTCC+CO6(estadoJ"TCombinando PedidosT T T a T $T inlist(tventas.pedido, ~~T?TPedido CC@z 999,999,999_ de  C T *T  CC ,6CCZT   )SELECT cod_ins, atr, bul , SUM(recepcion) AS recepcion FROM tventas ORDER BY cod_ins, atr, bul GROUP BY cod_ins, atr, bul WHERE &xstring INTO CURSOR tmp_tventas T -<F% #BUXPROCESOXPEDIDOPEDIDOS_PENDIENTESXREGTILDE XMAX_PEDIDOSESTADOESTADO_VE_CONTROL_DE_PEDIDOSTEXTOMAXVALUEVISIBLEXULTIMO_PEDIDOXSTRINGPEDIDONOMBREAVANCE/4 T log_errores5FTCC+CO6TH~ '%CQFQ@opedidos_pendientesQ  aq*( \tmp\tmp_pedidos_pendientesFQ %CQWFQopedidos_pendientesQ tccventQ     Q    a q% A<oqC % <oq % <oqC% Y'%Ctmp_pedidos_pendientesFQF TA ~$>C T*( \tmp\tmp_pedidos_pendientes >C1No puede haber pedidos de ms de una sucursal !!! <C/Solo se pueden consolidar pedidos aprobados !!! =DC7Solo se pueden consolidar pedidos del mismo cliente !!! :C-No se han marcado pedidos para consolidar !!!%CqFQC T T-, log_erroresF%$ #BUXPROCESO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXPEDIDOPEDIDOS_PENDIENTESXREGPEDIDOQPTILDEP_LOCALCODIGOEST_DESPLETRATSUCSUCFACITEMSFLETETCCVENTTMP_ARRCOUNTTMP_PEDIDOS_PENDIENTESXLETRAVE_CONSOLIDAR_PEDIDOSMENSAJEPOSICIONAR_EN_PEDIDOXOKXAUTLOG_ERRORES_MOSTRAR4G+( ve_pedido T-F~C  >> T  TTTT T T; ve_funciones F% W>C x>">C  Ta BUXPEDIDOXLISTAXCOD_CLI VE_PEDIDO XACTUALIZADOSTVENTASPEDIDOCOD_INSLISPRETEMPCOMPCOEF TMP_LISTASMONEDAXERRXMSGXCODIGOXATRATRXBULBULXXPRECIOXXBONIFACTUALIZAR_PRECIO VE_FUNCIONESCOS_LIFODES_INSMENSAJETOT_VENCALCULO_TOTAL_PS RECEPCIONCOEFICKC%p%Cpickings VQpickings T T T T T T : ve_orden_de_picking F 5> -> C SINO6 C <otccventXtventas !!CCCC  6C dTQCCCC  6C dTQ ! !%  T T" TCT"CF p># #$ $% %& &' '( )*C )SINO6>+C# C#SINO66,C$ C$SINO66-C% C%SINO66>. /0 0>"1 23C 2 Normal$C 2 Media Alta 664C 5 6 56. /7 7%8#Cpedidos_pendientes9% &6  H 2%C+ . # 6 CBU;XPEDIDOPOSICIONAR_EN_PEDIDO P_PICKINGPICKINGSXRESXRES2XRES3XBRUTOXNETOXLIBENTESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGPEDIDOS_PENDIENTESPICKINGEST_PICKPER_PICKBRU_PICKNET_PICKLIBENTDLIBENTACTUALIZAR_COLORXPER_ENTXPED_FACARR_PEDSUMTVENTAS RECEPCIONRECEP2COUNTPER_ENT FACTURADOPER_FACTCCVENTPEDIDOXPER_FACSTOCKCREDITOGERENCIAEST_DESPVERIF LIBFACREMDV1 DLIBFACREMDSTOCKDCREDITO DGERENCIAIMPORTEDEUDAARM_BLOQPRIO PRIORIDADDPRIOFEC_PROBDESPLFEC_ENTPESOP_VE_PEDIDOS_ULT_FACULTIMA_FACTURAIN%%Ctccventtccvordu%CctacteKQT\tmp\C]%h1CC C N  D D D NC(Q}>C@z 9999,999,999_P      (roccclie     C@z 9999,999,999_P1QFTge01%CctacteqQBUXPEDIDOCTACTEXARCHP_LOCALCCVENTEST_DESPCOD_CLICOMPROBCAUSACUOTAFECHAVENCFECESTIMPORTECOMENTARTCCVENTFEC_VENDEUDACCCLIEXCOD_CLI COMENTAR_CPBTGE01TCGCtccvent.update_dt>ctot([C]) tmp_refreshF ~F^(F-%C4 FF_Qoopedidos_pendientesQ XtccventQ     C  tmp_refreshF ~tFQFBU XFECHAHORAXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_PEDIDOS_PENDIENTES TMP_REFRESHAAAPEDIDOS_PENDIENTESPEDIDOPTCCVENTTEST_DESPIN  %K#TCtccventtccvord ` Ta% T-H  >C Ta  >C Ta%hTPedido:CCZC Liberado para FC/RE&# Bloqueado para FC/RE (no liberado)6E C ZPve_control_de_pedido.prg %CPedido no encontrado !!! BU XESTXPEDIDOXOKTCCVENTPEDIDOXENCDV1 UPDATE_DTXMSGUSER_LOG PUB_INDEXMENSAJE%T Mercadolibre!TCMLA #T TiendaNube(TC TiendaNube 1TSistemas externos - AGES"TCAGES &T Solo manualesTC X(TManuales y AGESTMANGES;T"Plataformas Externas(ML, TN, VTEX)TPLATASUAARRAY H / C X=TCC  and 6 EMPTY(plataforma) MANGESUTCC  and 6* (EMPTY(plataforma) OR plataforma=='AGES') PLATASmeTCC  and 6: inlist(ALLTRIM(plataforma), "MLA", "TiendaNube", "VTEX")  2CTCC  and 6 plataforma=='' BUXFILTRO XPLATAFORMAI TC %e4sys_procesandoAnlizando facturacin% %Cccvent2 0Q\data\CCZ\ccvent F$~Ca 6> T   T T < 1occventC  V  % T C % !< 2occvent2C  V  % T C >C DBU XPEDIDO_PARAMXALIAS SP_MENSAJESYS_PROCESANDOP_DOSP_CODEMPP_UNOP_SYSTEMCCVENT2PEDIDOXPEDIDOX1X2 ARR_ULT_FACFEC_VENCCVENTCAUSAULT_FACTobtener_pedidos_pendientesobtener_pedidosactualizar_color%determinar_color(procesar_estadoex* open_files+ open_files_2S,posicionar_en_pedido-.procesar.combinarKprocesar_batchNactualizar_preciosIUactualizar_pedido_en_tabla.Xactualizar_estado_ refrescarclibBePlataformas_DisponiblesgPlataformas_Disponibles_Filtroiultima_facturakA&B2!2raAAAaa5qAA2B21A22A24A!!AAAAAVQA*)2AP1AAA2B21qAAAB2qp@qBA29q2q1!A1AA3!AAAAAC2!A!A!AAAAAAA1AAAC1qq1AA221Arrq2A"#Ara1"A5"A31"qAA2"A3"A2"A3"A3%B3"A2%B2r3"1A!A2&rb!ArA1A!A26rAAB25%B3sQ$#"B2A3BBrB25A3B3AB2"qA3'Q#QfAaAA2tS QaAA2!"A2"A2T%BCD1HqrAAA4qrrq""AAB1h qrAAA3qrrq1%qAAsA4%qAA "r"r"r"rqAArArAAAAA"qAACrAAA62xr1r1ssA!B2q2AArVBr: "AAAr 9 22BbAAAB2qRrArb\Q$AsrABB3qrvrqrqQArBrrQBtB2rb1ABQAQAB2q1Q1!a21QQQ1A222CAABA11s"As!"AABB1!A8%]6=r6C}CG$GH4H[IKtIL\MxMMXm&A :3,O إs}EUBg @(7%\H4PJO\V'/ TC a CTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbc T T CK3 BU BBB DEY_FUNC2SETSCL_ATRCL_NOMP_DEV P_SUSPENDCP_ROTULOS_GENERICOSP_VE_ROTULOS_IMPRESORAIMPRESION_ROTULOS 4Cimpresion_rotulos CG(9 M%Crot_tmptFQ%C tmp_rotulosFQ%Cccarmado Qccarmado%Carmado Qarmado%Cclientes 1Qclientes%Carmador aQarmador%C pd_consol Q pd_consol%Ccliotros Qcliotros%Cpickings Qpickings%Cccvent 'Qccvent%Ccomprom WQcomprom%Ctccvent Qtccvent%Ccliaux Qcliaux%Csucursal QsucursalG~(clasesG+(listadosG+(vpedidoTC] T T T T TH ATCg%%C B- B- PVTCg%A%C =B- RB- V T%C %C B- B- r* T%C %C B- &B- KTCg%C %C {B- B-T! 2(CComprobante inexistente !!!"B-F G((cod_cli E T$% T&' T(- T)- ve_impresion_rotulos(+%+ T, T- T. T/ T0 T1 T2 T3 T4 T5 T6T7 T8 T9 T: T; T< T=>Hh  AT>C? PT>C@ KT>C@ Vr T>CA%> "ve_impresion_rotulos-1(+%+ H^ ATBCCZ PTBCCZ KTBCCZ Vr TB#Cve_impresion_rotulosB%C cur_armadoH FDQ%C tmp_rotuloss FQ E\tmp\.dbf E\tmp\.cdxBUFXCAUSAXCOMPROBSYS_M ACTIVEFORM DATASESSIONIDROT_TMP TMP_ROTULOSCCARMADOARMADOCLIENTESARMADOR PD_CONSOLCLIOTROSPICKINGSCCVENTCOMPROMTCCVENTCLIAUXSUCURSALCLASESLISTADOSVPEDIDOXTABLA_TMP_ROTULOSXNUMARMAXPEDIDO XCOMPROBANTEXPICKINGXCOD_CLIVALIDAR_ARMADO_IMPRIMIRVALIDAR_PEDIDO_IMPRIMIRVALIDAR_FACTURA_IMPRIMIRVALIDAR_REMITO_IMPRIMIRVALIDAR_PICKING_IMPRIMIRPEDIDOMENSAJECOD_CLI XTIPO_ROTULOSP_ROTULOS_GENERICOSXTIPO_IMPRESORAP_VE_ROTULOS_IMPRESORAXSOLO_PARA_REPROCESOSXBULTOSPORARTICULOVE_IMPRESION_ROTULOSXRESZCOD_CLIZCLIENTEZNOMBREZDIR1ZDIR2ZDIR3ZDIR4ZCUITZOCZREMITOZPROVZENTREGAZSUCZDSUCZPEDIDO ZCANTIDADZOFFSETZCOPIASPORROTULOXOKCALCULAR_ARMADOCALCULAR_PEDIDOCALCULAR_COMPROBANTE XID_IMPRESIONIMPRESION_DE_ROTULOS CUR_ARMADOP_LOCALr T%CZCtccventtccvordTBa kB-UXNUMARMAXPEDIDOARMADO_BUSCAR_PEDIDOXCOD_CLITCCVENTCOD_CLIFG((tccvord E%C4LTBa %CPedido no encontrado !!!B-UXPEDIDOTCCVENTTCCVORDXCOD_CLICOD_CLIMENSAJE+%Cpickings 5QpickingsFG((picking E%C4 &Cpicking no encontrado !!!B-TFG((tccvord E%C4T Ba $%CPedido no encontrado !!!B-U XPICKINGPICKINGSPICKINGMENSAJEXPEDIDOPEDIDOTCCVENTTCCVORDXCOD_CLICOD_CLI FG((ccvfac E%C4STBa *CComprobante no encontrado !!!B-U XCOMPROBANTEXCAUSACCVENTCCVFACXCOD_CLICOD_CLIMENSAJEFG((remito E%C4KTBa %CRemito no encontrado !!!B-U XCOMPROBANTECCVENTREMITOXCOD_CLICOD_CLIMENSAJE TCW%Cempresas IQ \empresas%Cempresascodigo F BUXAREAP_SYSTEMEMPRESASCODIGOP_CODEMPABREVF > > > > > > >  > > > > > > >>C > >!"  >#$ BU% TMP_ROTULOSORDXORDMAX ZCANTIDADCLIENTEZCLIENTENOMBREZNOMBREDIR1ZDIR1DIR2ZDIR2DIR3ZDIR3DIR4ZDIR4OCZOCREMITOZREMITOPROVZPROVENTREGAZENTREGASUCZSUCDSUCZDSUCEMPFN_EMPRESAS_ABREVCUITZCUITPEDIDOZPEDIDOCOD_CLIZCOD_CLI F>>>>>> CC  Z>  >  >  >  >>>C >C >CC  =BU XBUL_GRUPO XBUL_GRUPOT TMP_ROTULOSCOD_INSTMP_DATA_ROTULOSATRBULDESCRCANTIDADEANCODAUXATRAUXBULAUXUVXBULTOUVTOT REPROCESO BUL_GRUPO BUL_GRUPOTBULTOSEANCOD _STRTOEAN134&%CzCopiasPorRotulobNA TG+(codbar C T(TF > % ( T C  F ~( T(} C C  T T T TTRARH l%3'Trotulo_general_x_bulto.lbx h+Trotulo_general_x_bulto_ter.lbx %&Trotulo_general_x_item.lbx *Trotulo_general_x_item_ter.lbx z%?)Trotulo_general_x_renglon.lbx v-T rotulo_general_x_renglon_ter.lbx %1T$rotulo_general_x_bulto_detallado.lbx 5T(rotulo_general_x_bulto_detallado_ter.lbx T T T T T T T T T T! T" T# T$ T% T& T' T( T) T*S+listados !*%&'() T"- T$.F/vpedido1,CImpresin de rtulos ()2%C3\cpbt\0m%4 G(5V6listados.t.aaaaaFG( (CNo existe el formulario !!!7BU8 XID_IMPRESIONNITZCOPIASPORROTULOCODBARCREAR_TABLA_ROTULOSXORDZZOFFSET TMP_ROTULOSORD XTIPO_ROTULOS ZCANTIDADINSERTAR_ENCABEZADOTMP_DATA_ROTULOSZZBULTOS AGREGAR_DATAZCOPIAXDESTINOXCOPIASXDRIVER XIDARCHIVOXTIPO_IMPRESORA XFORMULARIO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAZEMPWEB ZEMPEMAIL ZEMPTXTCPBT ZEMPPROVINCIAZEMPPAISXOBJ_DATOS_EMPRESA DATOS_EMPRESALISTADOS P_EMP_LOGO P_EMP_AGUA FP_CLIENTEVPEDIDOZCOD_CLISYS_MP_SERVERXSOLO_PARA_REPROCESOS REPROCESOIMPRIMIR_FORMULARIOMENSAJE~%C tmp_rotulos.FQh1\tmp\N N C(C(C( C( C( C( C< CC CDN C(CCCCN C CCCN N LC C!C"N#N$N Q\tmp\%wF >>%>RAZON SOCIAL DEL CLIENTE$>SUCURSAL o RAZON SOCIAL> CALLE NUMERO%> CODIGO POSTA - LOCALIDAD> PROVINCIA> TELEFONO> 20247602640> ORDEN DE COMPRA>REMITOU%XTEST TMP_ROTULOSP_LOCALXTABLA_TMP_ROTULOSORDMAXCLIENTENOMBREDIR1DIR2DIR3DIR4CUITOCREMITOPROVENTREGASUCDSUCCOD_INSATRBULDESCRCANTIDADEANCODAUXATRAUXBULAUXUVXBULTOUVTOT REPROCESOEANCODEMPCOD_CLI BUL_GRUPO BUL_GRUPOTPEDIDO+4G+(vpedido T%C FG((tccvord ETFG((codcli EF G((idEC ZF G((comprobEC ZPTTC TCTC :TCC  (C ) 6C TC TC TCT C"#! T$T%&T'(T) T* T+,H -zT./0/1/24oclientestmp_data_rotulos -- $oarmadoQ4Xbultos 4547151=Xatributo 4546959=bienesQ?454647CC8CC98  C986CC18  C186Q84:Q;4< 545 tmp_data_rotulos1%- CA CBF3CCDa6(. B-BaUEXNUMARMAVPEDIDOXPEDIDOARMADO_BUSCAR_PEDIDOTCCVENTTCCVORDXCOD_CLICOD_CLICLIENTESCODCLISUCURSALIDSUCCLIAUXCOMPROBZCOD_CLIZNOMBREENTNOMZCLIENTENOMBREZDIR1ENTDOMZDIR2ENTZIPENTCIUZDIR3PROVINCENTPROZDIR4ENTPHOZOCREFZCUIT FN_CUITDNITIPODOC INSCRIPCIOZREMITOZPROV PROVEEDORZENTREGAFEC_ENTZSUCZDSUCZPEDIDOPEDIDO XTIPO_ROTULOS ZCANTIDAD CUR_ARMADOPALLETSBULTOSCAJASTMP_DATA_ROTULOSTCOD_INSATRBULDESCRATRIBUTO CANT_ARMACANTIDADARMADOCLAVEBIENESBTMP_DATA_ROTULOS1EXPANDIRCALCULAR_DATOS_ADICIONALESXSOLO_PARA_REPROCESOS REPROCESO F4otmp_data_rotulosǼtmp_data_rotulos_grupoSF ~F ^JT(TF _JFQBUOOBJNITTMP_DATA_ROTULOSTMP_DATA_ROTULOS_GRUPO BUL_GRUPOTBULTOS BUL_GRUPOF0otmp_data_rotulos1Ǽtmp_data_rotulos2SF ~^((F_ >FQBUTMP_DATA_ROTULOS1TMP_DATA_ROTULOS2AAAZCANTIDAD; 4FG((tccvord EFG((codcli EF G((idEC ZF G((comprobEC ZPT T C TCTC :TCC  (C ) 6C TC TC TC TTC !T"#T$%T& T'T()H0 *5T+,4oclientes-tmp_data_rotulos * C/ C0>,F.C23a6(+ * C/ C4 C0F.C23a6(+ *0 C/!CC5Kq60%5KoqQ6compromQJ6 6768696:6;6<6=66>6?6@636A6B6CCDQECCDC6? wQ,QFQG66C68ZCKZ L 6 6768696:6;6<6=66>6?6@636A6B6Ctmp_data_rotulosF.KC23a6(+,>. BUMXPEDIDOXPICKINGTCCVENTTCCVORDCLIENTESCODCLICOD_CLISUCURSALIDSUCCLIAUXCOMPROBZCOD_CLIZNOMBREENTNOMZCLIENTENOMBREZDIR1ENTDOMZDIR2ENTZIPENTCIUZDIR3PROVINCENTPROZDIR4ENTPHOZOCREFZREMITOZCUIT FN_CUITDNITIPODOC INSCRIPCIOZPROV PROVEEDORZENTREGAFEC_ENTZSUCZDSUCZPEDIDOPEDIDO XTIPO_ROTULOS ZCANTIDADBULTOSXCOD_CLITMP_DATA_ROTULOSCALCULAR_PEDIDO_DATOSCALCULAR_DATOS_ADICIONALESALLXSOLO_PARA_REPROCESOS REPROCESOEXPANDIRXCAUSATCAUSAITEMCOD_INSATRBULDESCR CANTXBULTEANUVXBULTOUVTOTCODAUXATRAUXBULAUXCANCANTIDAD BUL_GRUPO BUL_GRUPOTQCOMPROMCITMPCK 4FFG((tccvord EFG((codcli EF G((idEC ZF G((comprob E%C4 E%C4 B-TC TCTC :TCC  (C ) 6C TC TC TCT !T"C$%#T&'T()T* T+ T,H -lT./4oclientes0tmp_data_rotulos - C2 C3F1C45a6(. - C2 C6 C3F1C45a6(.BaU7 XCOMPROBANTEXCAUSACCVENTTCCVENTTCCVORDPEDIDOCLIENTESCODCLICOD_CLISUCURSALIDSUCCLIAUXCOMPROBFAC_VENCAUSAZNOMBREENTNOMZCLIENTENOMBREZDIR1ENTDOMZDIR2ENTZIPENTCIUZDIR3PROVINCENTPROZDIR4ENTPHOZOCREFZREMITOREM_VENZCUIT FN_CUITDNITIPODOC INSCRIPCIOZPROV PROVEEDORZENTREGAFEC_ENTZSUCZDSUCZPEDIDO XTIPO_ROTULOS ZCANTIDADBULTOSXCOD_CLITMP_DATA_ROTULOSCALCULAR_COMPROBANTE_DATOSCALCULAR_DATOS_ADICIONALESXSOLO_PARA_REPROCESOS REPROCESOEXPANDIR6%VoventasQXitm_descQ C Z CZbienesQCC QQ    tmp_data_rotulos1 +F G((idGErG%C48oventasQXitm_descQ C ZrCZbienesQCC QQ  tmp_data_rotulos1 'oventasQXitm_descQ C ZVCZbienesQCC QQ  tmp_data_rotulos1BUXCAUSATCOD_INSATRBULDESCR RECEPCIONCANTIDADVENTASITM_DESCICOMPROBCAUSAITEMFAC_VENITMBIENESB XCOMPROBANTETMP_DATA_ROTULOS1IDREM_VENYRotventasQXitm_descQ  C ZC ZPCZbienesQtccventQ   CC Q  Q      tmp_data_rotulos1BUTCOD_CLIICOMPROBCAUSAITEMCOD_INSATRBULDESCR RECEPCIONCANTIDADBULTOS CANTXBULTTCIDTVENTASITM_DESCXPEDIDOITMBIENESBTCCVENTREM_VENPEDIDOTMP_DATA_ROTULOS1%C5Ttmp_data_rotulos%CX FQ5otmp_data_rotulos1QXstockQ CXXbultos Xartxcli bienesQCCC ҡ#CCC ҡ66QCCCҡ#CCCҡ66QCCCҡ#CCCҡ66Q C - C - Q C CXQ CCXQCCXQBUXALIASTARTXCLIBARRASSEAN CANTXBULTBULTOSUVXBULTOUVTOT REPROCESOTIRIMPALTCODCODAUXALTATRATRAUXALTBULBULAUXTMP_DATA_ROTULOS1STOCKCOD_INSBULATRCODIGODEPOSITOCLAVEXCOD_CLICOD_CLIBIENESB %C cur_armado&FQ*occarmado cur_armado Ta% F- %C4 F- %C4 |F- FG((consol E%C46T x-C No se encontr ningn pedido !!! T- T T .C!No se encontr la preparacin !!! T- BU CUR_ARMADOCCARMADOARMADOXNUMARMAXOKPEDIDOCONSOL PD_CONSOLXPEDIDOMENSAJEimpresion_rotulosjvalidar_armado_imprimirvalidar_pedido_imprimirLvalidar_picking_imprimirvalidar_factura_imprimirvalidar_remito_imprimirfn_empresas_abrevLinsertar_encabezado' agregar_data`impresion_de_rotulosPcrear_tabla_rotulos!calcular_armadoM&expandir_por_bulto-expandir?.calcular_pedido./calcular_comprobante7calcular_comprobante_datosM<calcular_pedido_datos7@calcular_datos_adicionales`Barmado_buscar_pedidoEBQ3A!D3AqAAqAAAA!AAA1AQAAAAA!A1A1A!AAA!A2QqAqAB2QqAqAB"qAqAB"QqAqAB"QqAqAqAt1tA"B"BbRbB%ABBRB4BBBqAAqAAB2qrrA2qrrQqA2qAAraqArrQqA2rrqA2qrrQqA2qAbA2qQAC2qq2aeC2qqaAqQA2AuAAABBA14qA24aA24A24QAB11uAbraAB2qqAA@qQQAQaQ1B2qtrrQx2!!!A!!1BA2AtDqAr3rArq1rQAAqAB2srqQAAqAA2ttrQx2!!!A!!1B2t3t2BQAv!CB2turrQx1rAA"!!A!!1B2t3tCr3AraaQQABB2`!B4qAAAQ#C2qAAr"trrrAAAA13O|_Opta^|]}* #=#0066ABC@DE\E-VrINV_}_Rfstfhirrdv  %=>B?dXY/< G(9 $"T\tmp\CC]Rin_control_armadoG+( ve_pedidoG+(ve_procsTC C C F T in_control_armado#%Cpedidos_pendientesF Q.dbfBU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILESIN_CONTROL_ARMADO VE_PEDIDOVE_PROCSXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_PEDIDOS_PENDIENTESPEDIDOS_PENDIENTESXRES4)sys_procesando Procesando%CxaliasbLwTpedidos_pendientes%CxtipobN T%CxfiltrobCT.t.TC6H` <T and .f. /T and tccvent.est_desp=xestadop;T* and !tccvent.arm_bloq and tccvent.verif=1%4hTW and iif(p_ve_liberacion_entregas>0 and !empty(tccvent.ot), !empty(tccvent.libfab),.t.)%XTG and ((tccvent.credito=1 and tccvent.gerencia#2) or tccvent.gerencia=1)-T and nvl(ccarmado.final,.f.) ?XTG and tccvent.est_desp>1 and between(tccvent.fec_ven, date()-30, date()) XTG and tccvent.est_desp>1 and between(tccvent.fec_ven, date()-90, date()) YTH and tccvent.est_desp>1 and between(tccvent.fec_ven, date()-365, date()) Q(T and tccvent.est_desp>1 Tى and tccvent.est_desp=xestadop and iif(p_ve_liberacion_entregas>0 and !empty(tccvent.ot), empty(tccvent.libfab),.t.) and tccvent.arm_bloq 2`/T and tccvent.est_desp=xestadop;T* and !tccvent.arm_bloq and tccvent.verif=1%hTW and iif(p_ve_liberacion_entregas>0 and !empty(tccvent.ot), !empty(tccvent.libfab),.t.)%\XTG and ((tccvent.credito=1 and tccvent.gerencia#2) or tccvent.gerencia=1)!%Ctmp_query_armadoF Qselect tccvent.fec_ven as fecha , tccvent.pedido as pedido , tccvent.cod_cli as codigo , padr(alltrim(nvl(clientes.nombre,""))+iif(clientes.tarjeta="S",+" - "+tccvent.des_clie,""),60) as nombre , .f. as tilde , round(sum(tventas.recep2/tventas.recepcion)/count(*)*100,2) as per_ent , round(sum(tventas.facturado/tventas.recepcion)/count(*)*100,2) as per_fac , tccvent.peso as peso , tccvent.cod_fle as flete , nvl(fletes.nombre,space(40)) as dflete , tccvent.ot as ot , tccvent.ref as oc , iif(tccvent.oriped#tccvent.pedido and tccvent.oriped#0 , "SI", "NO") as es_subped , tccvent.est_desp as est_desp , tccvent.sucfac as sucfac , count(*) as items , nvl(pd_consol.consol, 0000000000) as consol , nvl(ccarmado.armado, 0000000000) as armado , nvl(ccarmado.est_arm, 0) as est_arm , nvl(condcobr.libprep, .f.) as lib , nvl(tccvent.libfab,{}) as flib , tccvent.arm_bloq as arm_bloq , nvl( iif(ccarmado.final,"SI","NO"),"NO") as final , space(30) as picking , 0 as est_pick , tccvent.credito as credito , tccvent.gerencia as gerencia , 000.00 as stk , tccvent.dv1 as libfacrem from tccvent left outer join clientes on tccvent.cod_cli=clientes.cod_cli left outer join tventas on tccvent.pedido=tventas.pedido left outer join agente on tccvent.agente=agente.cod_age left outer join fletes on tccvent.cod_fle=fletes.cod_fle left outer join ccarmado on tccvent.pedido=ccarmado.pedido left outer join pd_consol on tccvent.pedido=pd_consol.pedido left outer join condcobr on tccvent.plan=condcobr.plan order by tccvent.pedido group by tccvent.pedido where tccvent.cod_cli#"0 " .and. tccvent.pedido#0 .and. tventas.recepcion#0 .and. &xfiltro into table (p_local+"\tmp\tmp_query_armado") % (Q  S F$ \tmp\tmp_query_armado!%Ctmp_query_armadoF Q FG(& % %Cpickings ]Qpickings ~  T T T*ve_orden_de_picking F> F% %Cq_stk+Q"in_control_armadoF ~ %C pedido>%Cq_stkQ F~bFG((consol E%C4^F>>"> C SINO6& C!C Z!& "C Z"& #C Z#& & & G((pedido#)$sys_procesandoBU%XARCHIVOXFILTROXALIASXTIPO SP_MENSAJESYS_PROCESANDOXESTADOPP_VE_PREPARACION_ESTADOP_VE_LIBERACION_ENTREGASTMP_QUERY_ARMADOP_LOCALPEDIDO P_PICKINGPICKINGSXPEDIDOXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGPICKINGEST_PICKINQ_STK PICKEABLESIN_CONTROL_ARMADOSTKPERCONSOLCCARMADOPEDIDOS_PENDIENTESARMADOEST_ARMFINALFECHANOMBREDFLETESP_OCULTAR_DEFINITIVAMENTE[%CtCCVENT ,Qtccvent%CCCVENT ZQccvent%CCLIENTES Qclientes%Ctventas Qtventas%C pd_consol Q pd_consol%Cccarmado "Qccarmado%Cfletes PQfletesBUTCCVENTCCVENTCLIENTESTVENTAS PD_CONSOLCCARMADOFLETESW%Cbienes *Qbienes%Cfletes XQfletes%Cagente Qagente%Csucursal Qsucursal%Ccondcobr Qcondcobr%Crubrofac Qrubrofac%Ctventas LQtventasBUBIENESFLETESAGENTESUCURSALCONDCOBRRUBROFACTVENTASE4FG((tccvord%: EBUXPEDIDOTCCVENTTCCVORDPEDIDO' 4TC T log_errores5F TCC+CO6% (  T estadoJ "T Analizando PedidosT  T T a~  T T T ?T Pedido CC@z 999,999,999_ de  C H \ T ve_armado>"T\tmp\CC]Rin_control_armado $T T( ve_consolidar_pedidos%> "T\tmp\CC]Rin_control_armado 0"ve_orden_de_preparacionP"T\tmp\CC]R ve_pedido =W%ve_reimprimir_comprobanteP"T\tmp\CC]R ve_pedido 3've_impresion_rotulosACCZ"T\tmp\CC]Rin_control_armado   )*@T)C C 66:T*CACCP66)*F% #H *A%%C)ccarmadoarmado.>+,+,+ *Pf%%C)ccarmadopedidob!>+,+, *C%%C)ccarmadoconsol+>+,+, "T\tmp\CC]Rin_control_armado   T-%. / ve_armado-->0C-SINO6F% #"T\tmp\CC]Rin_control_armado  3've_impresion_rotulosPCCZ"T\tmp\CC]Rin_control_armadoC1T -< T2 T3-,4 log_errores23F% #BU5XPROCESOXPEDIDO XPARAMETRO1 XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESPEDIDOS_PENDIENTESXREG XLOCAL_ARMADO XLOCAL_CONSOLTILDE XMAX_PEDIDOSESTADOESTADO_VE_CONTROL_DE_PEDIDOSTEXTOMAXVALUEVISIBLEPEDIDOARMADOCONSOLNOMBREAVANCEXERR ANULAR_ARMADO VE_ARMADOFOR XTEMPCOMPP_LOCAL OPEN_FILESIN_CONTROL_ARMADOXCONSOLANULAR_CONSOLIDADOVE_CONSOLIDAR_PEDIDOSIMPRIMIR_PREPARACIONVE_ORDEN_DE_PREPARACION VE_PEDIDO REIMPRIMIRVE_REIMPRIMIR_COMPROBANTEIMPRESION_ROTULOSVE_IMPRESION_ROTULOSXNUMXCAUCCARMADOEST_ARMXESTADO_LIBERACIONP_VE_PD_LIBFACREMLIBERARFINALPOSICIONAR_EN_PEDIDOXOKXAUTLOG_ERRORES_MOSTRAR4FTCC+CO6(estadoJ"TCombinando PedidosT T T a T $T inlist(tventas.pedido, ~~T?TPedido CC@z 999,999,999_ de  C T *T  CC ,6CCZT   )select cod_ins, atr, bul , sum(recepcion) as recepcion from tventas order by cod_ins, atr, bul group by cod_ins, atr, bul where &xstring into cursor tmp_tventas T -<F% #BUXPROCESOXPEDIDOPEDIDOS_PENDIENTESXREGTILDE XMAX_PEDIDOSESTADOESTADO_VE_CONTROL_DE_PEDIDOSTEXTOMAXVALUEVISIBLEXULTIMO_PEDIDOXSTRINGPEDIDONOMBREAVANCE4 T log_errores5FTCC+CO6TH~ %CQFQopedidos_pendientesQ tccventQ     Q     a q% <oqC % C<oq % <oqC% '%Ctmp_pedidos_pendientes9FQF TA ~{> C T*(\tmp\tmp_pedidos_pendientes T%%Ccur_actualizarFQ8opedidos_pendientes cur_actualizar ~wF-%C4s >%Ccur_actualizarFQ >C1No puede haber pedidos de ms de una sucursal !!! ?<C/Solo se pueden consolidar pedidos aprobados !!! DC7Solo se pueden consolidar pedidos del mismo cliente !!! :C-No se han marcado pedidos para consolidar !!!%CqFQC T T -,! log_errores F%x #BU"XPROCESO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXPEDIDOPEDIDOS_PENDIENTESXREGPEDIDOQPCODIGOEST_DESPTILDELETRATSUCSUCFACITEMSFLETETCCVENTTMP_ARRCOUNTTMP_PEDIDOS_PENDIENTESXLETRAP_LOCALXCONSOLVE_CONSOLIDAR_PEDIDOSCUR_ACTUALIZARCONSOLMENSAJEPOSICIONAR_EN_PEDIDOXOKXAUTLOG_ERRORES_MOSTRAR4G+( ve_pedido T-F~C  >> T  TTTT T T; ve_funciones F% W>C x>">C  Ta BUXPEDIDOXLISTAXCOD_CLI VE_PEDIDO XACTUALIZADOSTVENTASPEDIDOCOD_INSLISPRETEMPCOMPCOEF TMP_LISTASMONEDAXERRXMSGXCODIGOXATRATRXBULBULXXPRECIOXXBONIFACTUALIZAR_PRECIO VE_FUNCIONESCOS_LIFODES_INSMENSAJETOT_VENCALCULO_TOTAL_PS RECEPCIONCOEFIC@ C pickeables4sys_procesandoAnalizando pickeables$%Cplataformas_config Qplataformas_config!%Cplataformas_aux Qplataformas_auxT.t.!%C CN -Tt.pedido=xpedido%Cq_stk2PQ%Cq_pedrQ%Cq_ped1Q %Cq_stkQ select p.pedido, c.itm, sum(c.can) as can from comprom c, tccvent t, pedidos_pendientes p where c.id=t.id and t.pedido=p.pedido and &xfiltro group by p.pedido, c.itm into cursor q_ped1 select v.pedido, v.itm, v.cod_ins, v.atr, v.bul, v.desc_ins as descr , v.recepcion-v.recep2 as can_ori , iif(v.recepcion-v.recep2<0, 0000000000.000, v.recepcion-v.recep2)-nvl(q.can,0000000000.0000) as can , IIF(c.pkcentral="S" OR d.pkcentral="S", d.central, SPACE(8)) as PKFiltro , NVL(pl.logistic_t, SPACE(30)) as logistic_t , NVL(pl.plataforma, SPACE(10)) as plataforma , t.dep from tventas v left outer join q_ped1 q on v.pedido=q.pedido and v.itm=q.itm , tccvent t LEFT OUTER JOIN plataformas_aux pl ON t.plataforma+t.ref_ext=pl.plataforma+pl.ref_ext LEFT OUTER JOIN deposito d ON d.deposito=t.dep LEFT OUTER JOIN central c ON c.central=d.central , pedidos_pendientes p where t.pedido=v.pedido and v.recepcion-v.recep2>0 and t.pedido=p.pedido and &xfiltro into cursor q_ped readwrite !oq_pedQ Xplataformas_configQ  depositoQXcentralQ   Q   C QCQ       q_ped1ostkxdepQdepositoQXcentralQ CS S CX6Q S  S !S q_stk2qoq_ped1Q Xq_stk2Q        C QCC"CC#Q$CC CC"CC# C CC"CC#6Q%         q_stkdoq_stk C%Q&CQ'C%C dQ( ( q_stk%Cq_ped Q%Cq_ped1 Q )sys_procesandoBU*XPEDIDOSYS_M SP_MENSAJESYS_PROCESANDOPLATAFORMAS_CONFIGPLATAFORMAS_AUXXFILTROQ_STK2Q_PEDQ_PED1Q_STKTPEDIDOCOD_INSCODIGOATRBULPKFILTROCANA_PCKP PKCENTRALCENTRAL PLATAFORMA LOGISTIC_TDEPOSITODCDEPSSTKXDEPPICKINGVENDIBLECALIDADCANTIDADCANT_COMSALDOPICKABLESUM_PERCNTPERSP_OCULTAR_DEFINITIVAMENTEobtener_pedidos_pendientes) open_files open_files_2posicionar_en_pedidoprocesarcombinare%procesar_batch(actualizar_precios/ pickeables2A%2!B2r2qAA2B21AAAtA12A2A31111 2A2AEqAA!|C"AAqAAa2AAs1ABbA"rrAAbABBqq!BBcAARB21A!AAA1AQAAA!AG2!A!A!AAAAAAA1AB1qq1AA23rr3A""A1%32C%2%B3t%B37%4rAAQAAQAAQAAB%2ArAA%25&ACqrAAA4qrrq""AAB1h qrAAA3qrrq2%qAA "r"r"r"rqAArAq2qAAqABqAABAAAAA!qAADrAAA68rr1r1ssA!B3qrDCAArArAbArAbA : JbArAB1i%@ Y #=#%$v:$=0=fBNBO0OSSmj% \A )eL/Us  %Ct+ B%Cm.cadenabN`T C _%Cm.cadenabC BT C 3        T gT C{ T  T C~  (C >T C \T C )T  C {  F6T    .T  C  C  6T CC gGD=T  C ZFC  66T C  T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCIICHECKSUM CARACTERFINALs  %Ct+ B%Cm.cadenabN`T C _%Cm.cadenabC BT C 3        T hT C| T  T C~  (C >T C \T C )T  C {  F6T    .T  C  C  6T CC gGD=T  C ZFC  66T C  T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCIICHECKSUM CARACTERFINAL  %Ct+ B%Cm.cadenabN`T C _%Cm.cadenabC BT C 9         T iT C} T  T C~ %CC >GOT 0 % (C > T C \T C g)T  C Z !G6$T   C  wT  C  T CC gGD)T  C Z !G6T C  5T C C C C C C C T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCII VALORREALCHECKSUM CARACTERFINAL Codigo128A0 Codigo128B Codigo128C18A1AA121A138A1AA121A137A1AA1aAQ1AA1S10) (;K O%!x'p$gPW/U TaT C !TC T C T C T C T C T C T C BU OBIENES XPREGUNTAXMSGXOKBIENES2_VALIDAR_LINEA_GRUPOBIENES2_VALIDAR_COTBIENES2_VALIDAR_DUNBIENES2_VALIDAR_MARCASBIENES2_VALIDAR_BARRASBIENES2_VALIDAR_ESTADOBIENES2_VALIDAR_PROVEEDORBIENES2_VALIDAR_TIPO_ART H C k-T Estado invlido. Debe ser 1 o 2.B-$   TC$T$   TTC$ 2UOBIENESXMSGEST_ACT OLDESTADOBAJAFACTIV %%h-T El artculo debe tener lnea !!!B- '%Clineascodigo 8T+El artculo debe tener una lnea vlida !!!B- x% t'%Clineascodigo p8T+El artculo debe tener una lnea vlida !!!B-UOBIENESXMSGP_CO_POR_LINEALINEA%C d%C%%ClineasDescruT ?%7TCC - 6Linea nueva !!!TBa ;=TCC - 6Linea inexistente !!!TB- `T ~TUOBIENESXMSGXCREARLINEA_DLINEASDESCRLINEACODIGO%C d%C%%CgruposDescruT ?%7TCC - 6Grupo nuevo !!!TBa ;=TCC - 6Grupo inexistente !!!TB- `T ~TUOBIENESXMSGXCREARGRUPO_DGRUPOSDESCRGRUPOCODIGO %%h-T El artculo debe tener grupo !!!B- '%Cgruposcodigo RTCC - 6*El artculo debe tener un grupo vlido !!!B- % '%Cgruposcodigo 7T*El artculo debe tener un grupo vlido !!!B-UOBIENESXMSGP_CO_POR_LINEAGRUPO %%h-T El artculo debe tener lnea !!!B- '%Clineascodigo 8T+El artculo debe tener una lnea vlida !!!B-%*-T El artculo debe tener grupo !!!B- '%Cgruposcodigo 7T*El artculo debe tener un grupo vlido !!!B- % 5'%Clineascodigo 18T+El artculo debe tener una lnea vlida !!!B-%O '%Cgruposcodigo 7T*El artculo debe tener un grupo vlido !!!B-UOBIENESXMSGP_CO_POR_LINEALINEAGRUPO-% S  5%C C OMITIR % C`Est seguro de dejar vaco el cdigo unico de producto de ARBA o el cdigo de unidad de medida?C KNo se podrn presentar los remitos electrnicos que incluyan este artculo. O ]TPSi es vendible debe tener un cdigo de producto de ARBA y su unidad de medida!!!B-U OBIENES XPREGUNTAXMSGP_FCE_COT_ENVIARVENTAP_FCE_COT_CODUP_VALIDACOD_UPREN_CUM MENSAJE_SINO %C %(%Cproveedocodproa &TProveedor inexistente !!!TB- T TUOBIENESXMSGCOD_PROPROVEEDO DPROVEEDONOMBRE%C d%C%%CmarcasDescruT ?%7TCC - 6Marca Nueva !!!TBa ;=TCC - 6Marca inexistente !!!TB- `T ~TUOBIENESXMSGXCREARMARCA_DMARCASDESCRMARCACODIGO %%&%Cmarcascodigo` "TMarca inexistente !!!TB- T TUOBIENESXMSGMARCAMARCASCODIGODMARCAMARCA_DDESCR % T-ean13% PTCEl dgito verificador del cdigo de barras EAN13 no es correcto !!!B-UOBIENESXMSGXRESBARRAS VALIDAR_EAN13EAN13 %&%CCCZ>  T-ean13% WTJEl dgito verificador del cdigo de barras EAN13 grupal no es correcto !!!B-  T-dun14% }PTCEl dgito verificador del cdigo de barras DUN14 no es correcto !!!B-U OBIENESXMSGXRESDUNP_EAN13_GRUPAL VALIDAR_EAN13EAN13 VALIDAR_DUN14DUN14 %C %'%Ccod_cencodigo` -T Centro de costos inexistente !!!B- BaUOBIENESXMSGCOD_CENCOSTOS %C %'%Cmedidascodigo` -T Unidad de medida inexistente !!!B- BaUOBIENESXMSGMEDCODMEDIDASCODIGO %C %'%Cmedidascodigo` 6T)Unidad de medida auxiliar inexistente !!!B- BaUOBIENESXMSG MEDAUXCODMEDIDASCODIGO TCS TCN %CxObjetobO T  T CxObjeto.T CC f%C SN  T.TError en el valor de  !!!B- TxObjeto.% SZ T q T&xAsignar = xResultado U XOBJETOXMSG XPROPIEDADXVALSIXVALNO XRESULTADOXDESCRXASIGNARXRESXVALOR %C %&%CcuentasABREV_ -T Cuenta de activo inexistente !!!TC XB- T B-UOBIENESXMSGABREVCUENTASCOD_CUE %C %(%Cproveedocodproa &TProveedor inexistente !!!B-  UOBIENESXMSGCOS_PROVPROVEEDOCOD_PRO G+(listados  TTC%C >T El artculo debe tener tipo (1..CCZ) !!!B-UOBIENESXMSGLISTADOS XTIPO_TXT XMAX_TIPOS FN_TIPO_ARTTIPO_ART %C %&%CcuentasABREV_ -T Cuenta de ventas inexistente !!!TC XB- T B-UOBIENESXMSGABREVABREV2CUENTASVEN_CUECOD_CUE %C %&%CcuentasABREV_ 1T$Cuenta de descuentos inexistente !!!TC XB- T B-UOBIENESXMSGABREV3ABREV2CUENTASABREVDES_CUECOD_CUES Ta-in_rotulos.prga BUXCODIGOXOKXMSG OBTENER_MSG IN_ROTULOSPRGBienes2_Validar_Todo,Bienes2_Validar_Estado)Bienes2_Validar_LineapBienes2_Validar_LineasDBienes2_Validar_gruposDBienes2_Validar_GrupoBienes2_Validar_Linea_Grupoy Bienes2_Validar_COT{ Bienes2_Validar_ProveedorBienes2_Validar_MarcasDBienes2_Validar_Marcasbienes2_validar_Barrasbienes2_validar_DUNBienes2_Validar_Cos_CenBienes2_Validar_UMBienes2_Validar_UMXBienes2_Validar_SINOBienes2_Validar_Cod_Cue Bienes2_Validar_Proveedor_CostosBienes2_Validar_Tipo_artBienes2_Validar_Ven_CueBienes2_Validar_des_CueBienes2_Validar_SGA_MSG 13qAaAbB31bqqqAAaqqAAA2QQ2qqqAA2AA2QQ2qqqAA2AA21bqq!qAAaqqqAAA21bqqqAAaqqqqAAaqqAAaqqqAAA2Q qAAA4QaqAB1A4QQ2qqqAA2AA2aa!qBB1A3qbqAA4qbaqqAqAAA2QqqABAq2QqqABAq2QqaqABAq3BAAqAAA3Qa!qBB1qA2QaqABA2"qA3Qa!qBB1qA2Qa!qBB1qA32 , [>/$0]<G% V^Q _ ps 7QO|   7l3 C@ z!S !$d8I$%H&='Ul'(_(w*o*E,u,,%j0>Lb// 7UTXFIELDS4QOBJECTQOBJECTQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQSTRING QSTRING QSTRING QSTRING  QBOOLEANQBOOLEANQBOOLEANQSTRINGG+(sys_triggers_setting C%"B-H7   _ BC c&txTrigger_Macro BUTXOLDOBJTXNEWOBJTXFIELDSTXALIASTXREALTXSOURCETXTEXTTXULTIP TXULCOMPROB TXULCAUSATXULMSGTXULPRIVTXTRIGGER_TYPETXTRIGGER_EACHTXDONT_TRIGGER_JUST_TELLTXTRIGGER_IS_BLOCKEDTXTRIGGER_MACROSYS_TRIGGERS_SETTINGTRG_SET_SETEARTBL_CHK_CAMPOS_LOG T-(C>TC%: txoldVal=txOldObj.&txfldName txNewVal=txNewObj.&txfldName TC_TC_%6 Ta%  ! 2%  C .&txTrigger_Macro %Hb q    %  C &txTrigger_Macro  BU TXCAMBIOTXFLDNUMTXFIELDS TXFLDNAME TXTOLDVALTXOLDVAL TXTNEWVALTXNEWVALTXTRIGGER_EACHTXDONT_TRIGGER_JUST_TELLTXTRIGGER_TYPE TBL_CAMBIADOz T T T T T T  %DO user_Log WITH &txTrigger_Macro BU XUSR PUB_INDEXXTIPTXULTIPXCOMPROB TXULCOMPROBXCAUSA TXULCAUSAXMSGTXULMSGXPRIVTXULPRIVTbl_CHK_CambioGTbl_Chk_Campos_Log Tbl_Cambiado~07qA1AAA5Q11qA1AABAAA1AAAA2RA7+x H55 o%LLZM/UF#TCGES.MAPS.GeoCapsulaT BUOGCAPAPIKEYP_GOOGLE_MAPS_AKM*TCGES.MAPS.Service.StaticMapT BUOSMAPAPIKEYP_GOOGLE_MAPS_AK%C3TCChtml  T?listados:TCC-34.6037389,-58.38157046G+( sys_webizar*%C sys_gmap_ .fxp0.#  sys_gmap_ B T C C C C QC @5C $Armado de predespachoCC 2'C C C C %C 
C =FPIndexex2(xHND,'') C C  C UXPATHODEYFUNCNEWFILE_LOCAL_TMPXOBJ_DATOS_EMPRESA XDIRCOORD DATOS_EMPRESALISTADOSDIRCOORD SYS_WEBIZARP_SYSTEMP_EMP CREAR_GMAPP_CODEMPXHND FPINDEXEX0 FPINDEXEX1 FPINDEXEX2 FPINDEXEX3WEBIZARnG+( sys_webizar*%C sys_gmap_.fxp0+  sys_gmap_ B8o tmppeddir  tmppedmake;o tmppeddir  tmppednomakeFK(}(TCCC >C var marker = new google.maps.Marker({)C position: C,C map: map,:Clabel: ' - CCC 8ZK',7C&animation: google.maps.Animation.DROP,(Ctitle: 'C',XC0icon: 'http://maps.google.com/mapfiles/ms/icons/C -dot.png' C});ACvar contentString = 'C';FCvar infowindow = new google.maps.InfoWindow({/Ccontent: contentStringC});ACmarker".addListener('click', function() {>C infowindow.open(map, marker);C});;C boundbox.extend(marker .position);UODIROPEDXHND SYS_WEBIZARXLBXTOTIMP XFECHAMINP_SYSTEMP_EMP CREAR_MARKERP_CODEMP TMPPEDDIRGEODIRMARCA TMPPEDMAKE TMPPEDNOMAKEIMPORTEFECHALBTAG FPINDEXEX1 FPINDEXEX2 GEOCOORDSNOMBREWBCOLOR FPINDEXEX MAKECONTENT*%C sys_gmap_.fxp0m+ sys_gmap_ B T
 C 
C CC tmppednomakeN-C#Pedidos seleccionados para el envo 6
C 
!%C tmppednomakeNYT
 CPedidos no seleccionados 
Ca 
  TT BUODIROPEDXDIVFP_SYSTEMP_EMP CREAR_MARKERP_CODEMPXDIV1XDIV2WBBOLDNOMBREWBLINEAGEODIRMAKECONTENT_PEDIDOSt*%C sys_gmap_.fxp0m+ sys_gmap_ B T%F FT ~KTCCPed: CCCC Z C Importe: C$  CCC 9,999,999_ C Fecha: CCC*  T
 BUODIRXNOMARCAXTEXTOP_SYSTEMP_EMP CREAR_MARKERP_CODEMP TMPPEDNOMAKE TMPPEDMAKE WBTBRENGLON WBTBCOLUMNA WBTBCOLUMNARWBBOLDPEDIDOIMPORTE WBTBCOLUMNACFECHAObtener_GeoCapsula,Obtener_StaticMap Crear_GMAP Crear_Marker MakeContent9MakeContent_Pedidos1q12q3qAQ1AArqqQ1qaQq!q!qQQaA!13QAAr"2qAbAA4A A2AqqABDA3% IJ @d J_vnq% Q Jmp PV 0G+(sys_log_operacionesTClog_operacionesNTC TC CBU XCOMPROBXCAUSAXCURSORXEMPXDETALLE_IMPRESION XROLLBACKSSYS_LOG_OPERACIONESODETALLE8TSEG+Tf:\sistema\systems\system_a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T TClog_operacionesNCCPBUXEMPRESA XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPODETALLE%Cuser_log UQ \user_log%C usuarios_log !Q \usuariosU XNOCARGARXCOMPROBXCAUSAXCURSORXEMPXDETALLE_IMPRESION XROLLBACKSP_SYSTEM USUARIOS_LOGTC TC #TCuser_log_detalle '      T%CNTC 9999,999,999_TC Z TC Z   TT .t.% 'T not [IMPRIME]$upper(l.msg)2T  ! and not [IMPRESIN]$upper(l.msg)%  T   and l.id_fin#2%C |select l.fecha, ttoc(l.fecha) as fecha2, l.id, l.id_fin, l.tip, nvl(u.descr, padr("USUARIO DESCONOCIDO ("+alltrim(str(l.usr))+")",40)) as descr, l.msg from user_log l left outer join usuarios_log u on l.usr=u.codigo where ( l.comprob + l.causa = xcomprob + xcausa or l.comprob + l.causa = xcomprob_alt + xcausa or l.comprob + l.causa = xcomprob2 + xcausa or l.comprob2 + l.causa2 = xcomprob + xcausa or l.comprob2 + l.causa2 = xcomprob_alt + xcausa or l.comprob2 + l.causa2 = xcomprob2 + xcausa ) and l.emp=xemp and !( empty(u.codigo) and empty(u.descr) ) and &xfiltro order by l.fecha into cursor (xcursor) readwrite rouser_logQCQC(XQ-$TsdfghsdkjfhgjklsdfhgsdfT T CN F T - T ~CO %  % TCO# 4>CComienzo de transaccin.# T C.tipT CO%C.id*%sdfghsdkjfhgjklsdfhgsdfTCO"r #TC.idT C.Fecha%  % TCO# 4>CComienzo de transaccin.# Q F& CCCOZ& CCCOZUXCOMPROBXCAUSAXCURSORXEMPXDETALLE_IMPRESION XROLLBACKSP_CODEMP XCOMPROB_ALTXOLD_ID XOLD_FECHAXMAXXFILTRO XCOMIENZO XREGISTRO XREGISTRO2 XCOMPROB2LFECHAFECHA2IDID_FINTIPDESCRMSGUSER_LOGINXOLD_REG USUARIOS_LOG Dummy_DEBUG/initdetalle  Ulog_operacionescustom2 21B3BQ2ArRE7AA6611vrq!Aq!AA"*&AA143AAB!AaAA3AAB91pB$0oPi{@%jRs\jY;0#4%  c UG(9 _"T  \tmp\CC]R C G+(listadosG~(clases T%C H V T c' T dH T ri T P T 2 TTV %TP T TV TTCC X TA%CLocales7TC C66  T TTCX TTC T T-%C1've_pregunta_comprobante( p TaC T TTC %8CBU XTIPOCPBTXCOMPROB XCAUSALETXDESTINO_FORZADOXENVIARMAILNOREALTIMEXAUT XSOLOSALDOXNOIMPRIMIR_NADA ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILESLISTADOSCLASESXFISICAXCAUSAXLETXCENLOCALESVE_024P_SUCXNUMXCOD_CLIXCOPIASXPV XPROFORMAVE_PREGUNTA_COMPROBANTE XRESULTADOFMT_COMPROB_INV REIMPRIMIR<;4     C %C xsolosaldobL T%CC T%CN T CG+(listadosG+(ve_procsG+( ve_pedido ;G~(clases E T-"T\tmp\CC]R CG+(listadosTN T T T T TT CXT! T"CX T# T$%P F%%roG((remito E G((ccvfac E F(G((tccvord E%C4z<"%*0 C*  CComprobante anulado+B-C,%P[otccventPQ-Q.Q/Q0CtccventOCO tmptccventd ^J%P T23 T2C4 ZF5G((comprobGE*G T7C8686T9C86:6C, T;C$T<=<> >?JC X(>5@ T@A%VFBG((factura E TA+C+ C UTAAT>A&H T@A%A TD %CCERg TD  TD %r TD %c/ TD %dZ TD %P TD  TDC,%P8H4 FPLA4 TG TH TIC4PJ6CO%7 C8%PCC4 ZP9CC4 ZP-: C9C-:C, T; T< T= T> T? T@ TA TB TC TD TE TF TG TH TI TJ TK TL TM TN TO TP TQ TR TS TT TU TV TW TX TY TZ T[ T\ T] T^ T_ T` Ta Tb Tc Td Te%PC4P*f C*fTghTijTklTmn#ToCPp6TqrTstTuTvTwTxnTy3TzET{8<T|C-c5C-d4366%r T- T}~%Cmotivos SQmotivos%}C}motivoscodigo"%V o &occvent4EC>% T4T4!TCP -6TTTT-TCP  C6%%Ctccvent.tipo_ncbN#TCP 6  TTTT*T TTTTTTTBTTTTTCTKTTTTTTTTTTTTTI#TJCP6T T C T T T T T T TW T TX T_ T TTTT0TT-TCPCC\g6-TCPCCE\g6TTTTTT8#TCP 6%TCPCX6<   T%P Z C%CNUMFAC QnumfacF # T#TCP6#TCP6#TCP6)TCP 6#TCP6#TCP6:TCPCC+66FG((codcli ETTTT TTTTC XT%T CP  CX6Tr % S#%80"TC X  # TCC[  ve_pedidoG+(listadosTCC TC*TCC/6f%$F G((idECZ%C4 ,$TTTTT $TC(XTC(XTC XTCXT  $TTTTT C(  ve_pedido%P M%F!G((ven_fac E s%F# G((ped E T%& T'( T) T* T+aF,S)T-VCC%ERg C.%P n&%r E&G((ven_facE3- j&G((remito EE & E4 T/ T0p+C+ ]Pr 3-3- P 44  r EE   (1 ^J1%+M'F,+CN%I' T+-2C. ^J2F,%CN23 '+CN23' #23(%UC4 C5 _)%C24 (%/"( #/ 1(#):+C+ UC4 C5  CO% s(H%C+( ( [)#)+CN%'(%0( #0 ( #%>+C+ UC4 C5  CO%' ;)H%C+M) W)%C24 )T/C23/D )T0C230D _J2>623$>UUC6c6>UC-c6U7178C-c619:C-c6U17;!3&!EJ>8C1U+8UC-c61U 6 ><C= C16+>>C2Q CU2Q 86F?G((cuenta E,5F,>@?A?ABC,5BCCC?D\S]CC?Dj\S?CC?Dm\S!CC?Dp\S6666D?D C,4bienescodins%EFS,)C,4,Gatributocodigo>HD%EQS,'C,4,Ibultoscodigo>JQF,%14KL -T*C*COD $-T)C)COD TM TN TO TP TQTRCXTSC X TT TU TV TW TX TY TZ"%P 1[ v.B%Pn @\ \  X.Tpp r.Tp13 .Tp13?%r 1-V 1[ 1o =/]]ve_procs13VpMNOPQRTUVWXYSZ TpZZ]ve_procs2-pMNOPQRTUVWXYSZ %-Citm_desc+ 0`]ve_procs!Er!3MNOPQRTUVWXYSZ%CM R0F, >^M >_M%CENVASES 0QenvasesF`G((codigo EOF,j>bNcOd`ePfQgRhSiTjUkVC.HF,+CN%'O1l ve_pedidoaaC recalcularm% S 1<   T J(K6n ve_pedidoCP C Z6"o ve_pedidoa T%3TMp1TNpC 6 TMNTOTPQTRSTTUTT 3,%P   h3(TCc6 r3%P H4TqTrTsTtTuTQTv"%C oObj.arm_exhbN-4Tw D4 T%Ctextos v4QtextosFxG((codigo%CN-8A()8H4F7 D5Totextosz x{ | }A a) tmp_textos% 5Rotextosz x{ C| }A a) tmp_textos Dj6Totextosz x{ | }A a) tmp_textos% f6Rotextosz x{ C| }A a) tmp_textos CD F7XotextoszCx{ | }A a) tmp_textos% B7VotextoszCx{ C| }A a) tmp_textos% 7<TACCCA ~ CA6TA~aTA~ %8TATATA5 T-%CrP |9Hn8x9 E8,ve_comprobanteSaa! CABCMx9H8t9 S9]C+Error al procesar el QR del comprobante !!!C Por favor avise al soporte.+ 2t9aaa% k<"%C \cpbt\vfc.fxp091 \cpbt\vfc.fxp-a .:A-a    % V e;%*: Ccliotroscod_cli%a;r%C Exporta a CPlanexware - Krikos,C GS1un conector genrico66];TCaa%CoKribOY;C-%CD CVdc g<%c<%*; Ccliotroscod_cli!% _<TCaaa%CoExpAFIPbO[<CCaF,Q <TC'Error !!! Comprobante no encontrado !!! (REF:  )+B-BaUXCOMPROBXCAUSAXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXNUM XSOLOSALDOXFORMULARIO_FORZADO XNFORMULARIOXDOSTRANSFERENCIAXENVIARMAILNOREALTIMEXAUT XPROFORMAXNOIMPRIMIR_NADAXLETRAFMT_COMPROB_INVABRIR_TABLAS_FIJASOOBJLISTADOSVE_PROCS VE_PEDIDOCLASES XUSAIVAANT XTEMPCOMPP_LOCAL OPEN_FILESXBLOQUEOXMONEDAXCOEFICXXHORARIT_PESOT_VOL XPHONFLETE XPROVFLETE XCIUDFLETEX_TOTAL XDOMIFLETECCVENTREMITOCCVFACTCCVENTTCCVORDCOD_CLIMENSAJE SEL_TABLACAUSANFCNFCMAXFLETE TMPTCCVENTDXFACPEDFAC_VENPEDIDOCCCLIECOMPROBXNUMREFREFXCAUCAUXFECENT2XRFCRFC XARR_REMITOSP_VE_MAX_REMITOSXARR_REMITOS_MAXZREMXFACFACTURAXTIPOPEDREM_VENP_EMPXMEMO1XMEMO2XMEMO3 TRAER_OTROS IIBB_PROV REFERENCEDT_PESONPESONETOPESOT_BULTOSBULTOS T_VOLUMENVOLUMEN T_RECEPCION RECEPCION AP_CREDITOCREDITOAP_STOCKSTOCK AP_GERENCIAGERENCIAXPRODPRODXOTOTXTRANTRANXTXTCPBTTXTCPBT XTXTREMITO TXTREMITO XCONTACTOCONTACTOXESPOBSESP_OBSXCPBTZXMAXCPBT XNCNDMOTIVO NCNDMOTIVOXFCDEREFCDERE XITM_ITM_DESC XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXCLIGLNXCLIIB XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXENTGLN XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XDESCRVAR XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XPRIORIDAD XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROSXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGAXFCE_RECHAZADOXNOTASPD XFCECONCEPTOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_FEC_VENCPAGOXFCE_TIPO_NEGOCIACIONXREF_EXT XPLATAFORMA XNICKNAMEOPLATAFORMA_HOLDERXPERASOC_DESDEXPERASOC_HASTAXREF_MOVXTRA_NUM XTRA_FECHA XTRA_ENTREXCOB_CLIXCOB_EMP XOC_APROB XOC_FECHA XOT_FECHAXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREF ZARR_TEXTOS XMAXTEXTOS XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAISXARM_COD XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXH OLD_XCOMPROB TRAER_CLICFG_LISXLISTALISTA CFGLISACT CFGLISFIJ CFGLISBON CFGLISBONPER CFGLISMON CFGLISIVAACTIVAFIJABONIFBONIFPERMONEDAIVAINCXPLANPLANCONDCOBR XDESCPLANDESCR XCNDSP_DESCR XCNDSP_CUOTAXCNDSP_NO_DESGL XCNDSP_PLAZOXCNDSP_ANTICIPOXCNDSP_VALORES XCNDSP_C1D XCNDSP_C2D XCNDSP_C3D XCNDSP_C4D XCNDSP_C5D XCNDSP_C6D XCNDSP_C7D XCNDSP_C8D XCNDSP_C9D XCNDSP_C10D XCNDSP_C11D XCNDSP_C12D XCNDSP_C1P XCNDSP_C2P XCNDSP_C3P XCNDSP_C4P XCNDSP_C5P XCNDSP_C6P XCNDSP_C7P XCNDSP_C8P XCNDSP_C9P XCNDSP_C10P XCNDSP_C11P XCNDSP_C12PXCNDSP_DIASCHQXFIS_IMPXFIS_CONXFIS_VELVARIABLE LEER_PLANVARCXPLAZOA1A2A3A4A5A6A7A8A9A10A11A12PLAZO XASSEMBLIES XTMP_ALTASP_VE_ASSEMBLIESTMP_ASSEMBLIESCREAR_TABLA_ASSEMBLIESITEM P_VE_ALTASCREAR_TABLA_ALTASTRAER_ENSAMBLE TRAER_ALTAST_IBT_IB_14T_TOTALT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_REDO_ME T_RECARGO T_TOTIVAINCT_VALORDECLARADOTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_IVAVAR_RG5329TX_IVAVAR_RG5329T_IVA_RG5329_BASETX_IVA_RG5329_BASE T_IVA_RG5329 TX_IVA_RG5329 VE_TRANS_GETXITMCOMFITMCOMFXITMCOMRITMCOMRXPEDVENPEDVEN XCENCOSFACCOD_CENXNRENRE XPROMOCION PROMOCION XREVISIONREVTIPOEXPTIPOEXPD TIPOEXPORTCENTROXNUMEROFXNUMERORXREFCVOPXMOTIVOMOTIVOMOTIVOSARR_PDXPEDIDO XCOTIZACIONCOTIZXFECEMIFEC_VENXFEC_INIXDTDTXDTMDTMXTIPO_NCTIPO_NCXFECENTFEC_ENT T_CONSFINCONSFINXCOD_CLI XOTRO_CLIDES_CLIE T_INTEREST_IVAIVA_VENT_P672P672T_672T672T_IVA26IVA26T_DESCOMDES_COMIMPINTT_FINALDEUDA XANTICIPOANTICIPOXCUOTACUOTAXINT_FININT_FINDTO672RECARGOXACOPIOACOPIOT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5T_DESC1EDESC1ET_DESC2EDESC2ET_DESC3EDESC3E T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2T_VALORVALORREDONDEOREDO_MEXPORCENTAJE_IIBBXBONIF TXT_BONIF TX_INTERESTX_IVATX_P672TX_672TX_IVA26 TX_DESCOMTX_FINALT_IVAVAR TX_IVAVAR XVENDEDORAGENTEXFLETECOD_FLE XDESCFLETE XSUCURSALSUCXSUCXSUCFACSUCFACXSUCFACRINVE INVENTARIOXCAMBIOCOEFICXDIVISASDIVXHORARIOHORARIOXOC PRIORIDADXPERMISOPERMISOT_IVAARR MAXIVAARR GET_IVA_VENNUMFAC XZONAFRANCA ZONAFRANCAXFACTURA_ELECTRONICAFCEXFCE_CAEFCE_CAEXFCE_IDFCE_ID XFCE_VENCFCE_VENC XFCE_CONCEPTOFCE_CONCXTIPO_COMPROBANTEFCE_TIPO XFCE_CREDITOCLIENTESCODCLI INSCRIPTOIVACATXCUITCUITXCOFINCOFINXNOMBREXIVACATXTIPODOCTIPODOC XDOCUMENTOXRG5329RG5329XDEPOSDEPFANTASIATARJETAPROVINCPAISESSUCURSALIDXXNOMBRENOMBREXXDOMI DOMICILIOXXCODZIPCOD_ZIPXXCIUDADCIUDADXXPROV PROVINCIADOM2ZIP2CIU2PRO2 DOMICILIOSOBTENER_DATOS_PLATAFORMASVENTASVEN_FACTVENTASPEDMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYNINICIALTEMPCOMP XFC_DE_RE SEL_TABLA2XMAX_ITM XMAX_ITM_DOOBJ2OOBJTMPITMCOD_INSCOD_CUERECEP2COS_LIFOTOT_COMTOT_VEN MO_TOT_COMOLDITM DESPACHOEX P_REF_DESP CANTXBULTCUENTASCUENTAABREVGRAVADAIMPUESTOATRIBUTOBIENES ATRIBUTOSATRDATRBULDBULOBIEDATA_CODIGO_VACIOXDESC_COMPLETA XCOMENTARIOXTIPOENVXCANTENVXTARAXREF_OCXITEM_OC XENSAMBLEXIBITM XADICEXPORTXCOD_PROXNUMEROXSUBNUMXOLDITMVERSIONP_VE_FCDERE_REIMPRESIONVLEVANTAR_DESCRIPCION_COMPLETADESC_INS DCODATRBULENVASESCODIGO COMENTARIOTIPOENVDTIPOENVCANTENVTARAREF_OCITEM_OCENSAMBLEIB ADICEXPORTMODIFICAR_DATASYS_MTRAER_IIBBPROV RECALCULARVALDECLARM_COD ARM_QUIEN ARM_INICIOARM_FIN ARM_CAJAS ARM_PALLETARM_EXHTEXTOSTOPACTIVOCPBTCODGRUPO TMP_TEXTOSTEXTOOCPBT_QR#REG_FACTURA_ELECTRONICA_EXPORTACIONVE_COMPROBANTEBONOSFISREG_FACTURA_ELECTRONICA_FEV1P_SERVERVPEDIDOP_DIR_EXPORT_KRIKOS_HACERCLIOTROSSUBEEXT MENSAJE_SINOP_DIR_EXPORT_KRIKOS_CONECTOROKRIOBTENER_ARCHIVOP_DIR_EXPORT_KRIKOSP_DIR_EXPORT_KRIKOS_STOREP_DIR_EXPORT_AFIP_HACEROEXPAFIPPDF_PATHP ve_pedido.prg te_cobranza te_ncndaut%Cbatch kQbatch%Ccondcobr Qcondcobr%Csucursal Qsucursal%Cfletes Qfletes%Cbienes +Qbienes%Cstock WQstock%Cbultos Qbultos%Catributo Qatributo%Cccclie Qccclie%Crubrofac Qrubrofac%CMOVSTOCK IQmovstock%CDESPACHO {Qdespacho%Citm_desc Qitm_desc%Civa_ven Qiva_ven%CTCCVENT Qtccvent%Ctventas =Qtventas!%Cplataformas_aux }Qplataformas_aux%Cremxfac Qremxfac%Cmedidas Qmedidas%Cidx03 Qidx03%C PaisesFCE EQ \PaisesFCEBURECREAR_TEMPCOMP VE_PEDIDOPRG OPEN_FILES TE_COBRANZA TE_NCNDAUTBATCHCONDCOBRSUCURSALFLETESBIENESSTOCKBULTOSATRIBUTOCCCLIERUBROFACMOVSTOCKDESPACHOITM_DESCIVA_VENTCCVENTTVENTASPLATAFORMAS_AUXREMXFACMEDIDASIDX03P_SYSTEM]4%Cplanvarc 5QplanvarcF G((id E%C4RTTTT  T  T TTTTTTTTT T!"T#$T%&T'(T)*T+,T-.T/0T12T34T56T78T9:T;<T=>T?@BUAXIDPLANVARCID XCNDSP_DESCRDESCR XCNDSP_CUOTACUOTAXCNDSP_NO_DESGLNO_DESGL XCNDSP_PLAZOPLAZOXCNDSP_ANTICIPOANTICIPOXCNDSP_VALORESVALORES XCNDSP_C1DC1D XCNDSP_C2DC2D XCNDSP_C3DC3D XCNDSP_C4DC4D XCNDSP_C5DC5D XCNDSP_C6DC6D XCNDSP_C7DC7D XCNDSP_C8DC8D XCNDSP_C9DC9D XCNDSP_C10DC10D XCNDSP_C11DC11D XCNDSP_C12DC12D XCNDSP_C1PC1P XCNDSP_C2PC2P XCNDSP_C3PC3P XCNDSP_C4PC4P XCNDSP_C5PC5P XCNDSP_C6PC6P XCNDSP_C7PC7P XCNDSP_C8PC8P XCNDSP_C9PC9P XCNDSP_C10PC10P XCNDSP_C11PC11P XCNDSP_C12PC12PXCNDSP_DIASCHQDIASCHQ%Civa_ven ,Qiva_venF T"~TTTT T T T BU IVA_VENZCOMPROBCAUSACCVENTFAC_VENT_IVAARRTASAIVAIVA_MOBASEBASE_MO MAXIVAARR;%P #F 4FUXCAUSACCVENTTCCVENT;%P #F 4FUXCAUSAVENTASTVENTAS reimprimirm open_files] leer_planvarc%c get_iva_veng sel_tablagi sel_tabla2i1AA%"!AAAAAA2AARqA1qA1BA3uaArAuAr!!1B%"RqBAqA"qAAARQAqbAarqtAr1AA1AAAAAAAAAAABaAAAu1211ABA3111111121111131s1t1B!A1Ar1Ar$AA1AA$!2qAArAQAA2AD!1ABA1AB1A1A#a!AAS1A11Qq1RA!Ar21111s"RrA"B!B2qAARqqAuAQQ1AAq1QAAssQaQAAS2QAAABQqQA2AAABABRQQAC8 srG qAqqAsA""!AABA"qA1AqrAAqqQArq1Cd"5BBS#AC!Aq(1D!$A2D!$A!dAB"ABAvAaqAAB$AbAa"rQABBA1bAr1BBAAAsABqBq2bQrAAAAA!A!ArA!AAA!AAAAAAAAA1A1A1AA1A1ArAAB3qAAqAB21Arq!AB3qQqqA2qQqqA1@Wqފ=1%NG;UC%]eJ(_yYw0 TTBAT T TT TInicializando...TaF G((nombreT  \borrarT C]TC]0T#rpt_cm_ctacte_proveedores_detallada%t %Cempresas YQ \empresasF TaT.t.%,Tinlist(codigo, p_codemp, p_dos)~C TC _CCZTC_CCZC%(%Ctmp_consolidado_resumenhFQ>Q &\tmp\rpt_cm_ctacte_proveedores_resumenF+( \tmp\tmp_consolidado_resumen/Q \tmp\tmp_consolidado_resumen %Ctmp_consolidado6FQ!Q \tmp\F#( \tmp\tmp_consolidado'Q \tmp\tmp_consolidado T- F5 &\tmp\rpt_cm_ctacte_proveedores_resumenF \tmp\(%Ctmp_consolidado_resumenSF /Q \tmp\tmp_consolidado_resumen %Ctmp_consolidadoF 'Q \tmp\tmp_consolidado< otmp_consolidado  !"Q#Q$Q%C&Q&Saldo Anterior   !"1borrarA>#C&&6$C&&c60qtmp_consolidadoSaldo Anterior FborrarQFHx (X& C)C*FC1.C*NC2C*ND34666 (& +%, otmp_consolidado_resumen -Q#Q$C&Q&Q%C.Q. !" - !"1borrarFSborrarQFCSaldo/F %,  0T0C] T1 ~%0T0 T1T11& >.1( \tmp\QF7( &\tmp\rpt_cm_ctacte_proveedores_resumen G(2 ges-4"cm_ctacte_proveedores_detallada_v2  T TC6BU7XDVENXHVENXDMON OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEPROVEEDONOMBRETEMPP_LOCALXBORRARXBORRAR1XOUTXDCONP_SYSTEMEMPRESASXINICIAL XFILTRO_CONBORRARCODIGOBORRAR1CALCULARTMP_CONSOLIDADO_RESUMENTMP_CONSOLIDADOARRDISTINCTCOD_PRONUMEROCANCELPRO_DIRPRO_CUITSVAL_CODDEBEHABERPARCIALIMPORTEALLXDTIPFECHACPBT REFCAUCUOXDRESTELEFONOSALDOSYS_MXOLDPROXACCP_SERVERGES OPEN_FILES"CM_CTACTE_PROVEEDORES_DETALLADA_V2P_CODEMP' 4T\data\CCZ G( ges-"cm_ctacte_proveedores_detallada_v2T.t. C%CctacteF Qh1 \tmp\  C C(C(DCCNNN CDNNNNNNNCC# C(!C "C #D$D%C&N'C(N)NQFQ \tmp\  %*+ C,  T-F.oproveedoCC+ C1CX 1a6 /% T2C/  T2"T34C226T35 %61 6CX G((codpro E6 #)+C+ T35355T38 Proveedor : [C. ] C.  T9- C:F.T--HF;G(G-(F.G(F <=>? T< T= T>@(l"T<<,"C@A ""T==,"C@a "T>,"Z","z","","" TA- ~TBC TAa@(CB>[T?CB@\\if inlist(xcar &xletras1) or inlist(xcar &xletras2) or inlist(xcar &xletras3) thenW TA-!%A>"CCCC gZ  >" >#C C#%DE 3octacte CQ tmp_res& FF G-( F%D\F  F%EF  CFCEF 8( (\tmp\rpt_cm_ctacte_proveedores_detallada%Ctmp_resFFQ%H.TI ctacte.Nombre %J[TIVal_cod TIctacte.cod_pro%KTI prv.cat2, I[select ctacte.*, prv.cat,val(ctacte.cod_pro) as val_cod, prv.cat2 as cat3, iif(prv.cat2=0,"Sin identificar",nvl(cp2.descr,"No encontrada")) as cat3_desc from ctacte left outer join proveedo prv on prv.cod_pro==ctacte.cod_pro left outer join catpro2 cp2 on cp2.codigo==prv.cat2 group by ctacte.cod_pro order by &xdordenr into cursor ctaresumen m( &\tmp\rpt_cm_ctacte_proveedores_resumenCECCEa6CD Ca6 QF QF.G(G!(  \tmp\ .dbf  \tmp\ .idx  \tmp\ .cdx  \tmp\ .bakBULXDCONXEMPXSERVERP_SYSTEMGES OPEN_FILES"CM_CTACTE_PROVEEDORES_DETALLADA_V2FILTRO CREA_FILTROCTACTEP_LOCALBORRAR1COD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITSVAL_CODFECESTFEC_EMBRECIPROVMONEDAMONTXTCAMBIO PARCIAL_MOXDRESXDMONRESUMENACCPROVEEDOARR_TMPCOUNTXHPROTRECOESTADOMAXVALUEXDPROCODPROTEXTOINICIALCUENTA_CORRIENTECCPROVXLETRAS1XLETRAS2XLETRAS3XCARNITXCODNUMXSVALCODFORXDCEROXDCERO2TMP_RESINXDORDXDORDENRP_PRONUMXSEPCAT3 T T T- T T-FHU r C  C%  C FBU SALANTACCPROENCABEZO XCED_X_PROXMOVSCCPROVXDTIP POR_FECHAPOR_COMPROBANTEXDCHEVALORES0)TCP C6BUSALANTCAUSA FN_IMPORTEIMPORTE0)TCP C6BUACCPROCAUSA FN_IMPORTEIMPORTE%iVrctacte     Saldo AnteriorC6Cc6NCC XCXCZ TaBUSALANTCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITPROVEEDOPHONO DOMICILIO INSCRIPCIOENCABEZOP%CC (CZCZCZCZ rTC] T -BaB-U CAUSAREFCAUCUOOPRCOMPROBCUOTAOP GRUPO_ACTUALXCEDIDO6% C%Cc Ta%R T- T  T- T-%PTCH CT FC r T RE O]%C @T AJ YT CP cT NC dT ND 1T CP 2T DP L T AS A/T AJ IRT IT PuT OC 2T XX T (% 0  S T  C 2%C T  C .T   C T Tlistados T%C T T T  T)TCCP6TC6 TCc6%OjT C!  T F%CCrelationv1C$Revisar CCPROV SIN RELACIN A CCCOMP"C#cccompop,rctacte $%&'()*#+,-./0123456789:;  $ <& CCcd123 Ccccomp+ => C 6)C* *6# C,&  ?C1SN6C@ABCCZ D EC5C,&  =6 8C8FGCG G 6 T-BUHINIC ENCABEZARES_CABEZA_GRUPOPRIMEROINICIALXSCAUSA FN_IMPORTEIMPORTEXCCOMPROBTEMP1COD_PROPROVEEDOTARJETADES_PROVCOMENTARCONDDSPCNDCND_DSPPLISTADOSOLDXDSPAAABBBDESPLAZPXDEBCREDADELANTOXDEBXCRECCPROV XRECIPROVBUSCAR_RECIPROVSYS_MOPNOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUO COMENTARIOVENCDEBEHABERPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITFECESTFEC_EMBRECIPROVMONEDAMONTXTCAMBIO PARCIAL_MOPHONOCCCOMPFAC_COM2ACCPROFECREFREFCAUCUO DOMICILIO INSCRIPCIO MM_MONEDACOEFIC"%CX CX %{JT9.and.betw( val(proveedo.cod_pro), val(xdpro), val(xhpro)) IT8.and.xdpro<=proveedo.cod_pro.and.proveedo.cod_pro<=xhpro% 5AT0.and.xdcat<=proveedo.cat.and.proveedo.cat<=xhcat% HT7.and. xdcat2<=proveedo.cat2 .and. proveedo.cat2<=xhcat2%  HT7.and. xdcat3<=proveedo.cat3 .and. proveedo.cat3<=xhcat3H 1 AT0 .and. (proveedo.pais # 1 and proveedo.pais # 0) @T/ .and. (proveedo.pais = 0 OR proveedo.pais = 1) 2/T .and. (proveedo.pais = xdpai)F % CX ~G((codproG( #Tproveedo.cod_pro=xdpro  TT""GIH '%#T+str(val(cod_pro)) #T+cod_pro RT+nombre %*T+ciudad+str(val(cod_pro))  T+ciudad+cod_pro'index on &xxx to (temp) for &filtro GI BUXDPROXHPROP_PRONUMFILTROXDCATXHCATXDCAT2XHCAT2XDCAT3XHCAT3XDPAIPROVEEDOCODPROCOD_PROXXXXDORD$ ToccprovXcccomp      CQCCcd123CCX C 6Q ccpF % SA& CPZA6C CZC Z eA& CPZA6C CZC Z%COG(C SCcd123    6 6`G(HC SCcd123    6 %N%CCrG(P TC.and.causa#'P'set filt to &xfilt #)TCccpN T T<+C+ C S6  `)TCP C6 CH%Vrctacte  !"#$%&'()*+,Saldo AnteriorC6Cc6NCC XCXCZ-. T/T0 sdfsdfsds T1a^+C+ =C SCcd123  6  '%0 CZC Z%1 F2p>%C//6&C/ /c6/(3C4/4 6F %1 Vrctacte  !"#$%&'()*+,Saldo AnteriorC6Cc6NCC XCXCZ-.'%0 CZC ZA H  CT5FC r T5RE O]%C @T5AJ YT5CP cT5NC dT5ND 1T5CP 2T5DP L T5AS A/ T5AJ IR T5IT Pu T5OC 2 T5XX T6(%0  7S T66C8 2 %C9 T66C9 . T66 C:% O[ T;C< r T;rctacte  !")*+=>?@A4,C S  65  C  6 6C "  C SN6C   C Z-.C =C "   >; @C @B C!T0 CZC Z T/ T1-)T//CP C6 CH%1  F2p>%C//6&C/ /c6/(3C4/4 6FBUDXCOD_PROPROVEEDOCOD_PROCCPROVCCCOMPFEC_DGIFECHACAUSAFAC_COM2COMPROBCOMPROB2OPCCPXDFCOCUOTAPORFECCXDTPCXHFECCANCELXDPSNXFILTXMOVSSALANTACCPROXDFEC FN_IMPORTEIMPORTE ACUMULADORESNOMBRETELEFONOCPBTNUMEROMAXCUO COMENTARIOVENCCNDDSPDEBEHABERPARCIALSALDO REFCAUCUOPRO_DIRPRO_CUITPHONO DOMICILIO INSCRIPCIOACCIMPXIDINICIALCTACTE PARCIAL_MOCAMBIOXCTEMP1TARJETADES_PROVCOMENTARCOND XRECIPROVBUSCAR_RECIPROVFECESTFEC_EMBRECIPROVMONEDAMONTXT MM_MONEDACOEFICTC]FG(%Ccccomp JF QcccompF G((opFG-(%C G((porfacc%BAUG(CSCcd123      6 %BAT  FG-(s(\tmp\ NCSCcd123      6 FQ\tmp\G-(v& CZCZC CZCZ CZCZAZ6\tmp\& CPZA6CCZCZCCZCZCZCZC AB6C / / #"& CZCZT TTPge02;G((porfacpG((porfacpG(%S G-( T C%!Ni%CC'G(P eT C.and.causa#'P'set filt to &xfilt G E G T"  T# T$ T% T&a T'a T( T)- T*+C+   T+- T,- %-& %.19V%C/CCSCcd123     6-  5 T,a C0 C1H'+C+  C/ & C0 C1H T+a Y%CSCcd123      6-  T,a C0 C1 %,  T&- C1 C2%+ H%C%-BAF T3CWQ \tmp\.dbf \tmp\.cdx \tmp\.idx \tmp\.fpt F3 QccprovBU4 XBORRAR1_AUXCCPROVCCCOMPOPXDTPCPORFACCXHFECXDFCOCAUSAFEC_DGIFECHAXXXPROPROVEEDOCOD_PROP_LOCALREFCAUCUOOPRCOMPROBCUOTATESTFECREFPORFACPCANCELXCOD_PROXTIPOXDTIPXPENDREPAIRGE02P_CM_FEMBARQUEXFILTXDPSNXMOVSSALANTACCPROXSSALINIINIC GRUPO_ACTUALXCEDIDOOLDYA_HICE_EL_SKIPES_ANTXDFECXDTISES_CABEZA_GRUPO SUMAR_SALSUMARIMP_MOV XAREA_CCPROV0%CCMgCCMg ; T- P Ta Ta TFG((chequeGGF ECGFG %C+ t+C+  p%%  C  T-FT 8rctacte   CHC@z 999,999,999_ !  "NCBAC@z 999,999,999_ZCZFHBU#ATRCANDOCSINIVALSALCHCOM_OPERCHEQUEPROVEEDOCOD_PROXDCHEENCABEZO ENCABEZARCAJ_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPHONODES_VAL DIF_VALORACCPRO0)TCP C6BUACCPROCAUSA FN_IMPORTEIMPORTE,4"BCUXIMPORTEFN_CALCXDMONMONEDACOEFICFECHAMOTIVOC0"cm_ctacte_proveedores_detallada_v2J BUOFORM"CM_CTACTE_PROVEEDORES_DETALLADA_V2K)CUXDFECXHFECXDPROXHPROXDTPCXDTIPXMONEDAEJECUTAR_REPORTE+    T C %CxdfecbDsT %CxhfecbDT %CxdprobCT %CxhprobCT %CxdtipbN/T %CxdtpcbN^T %CxmonedabNT T T aH  T -T C     WT a   bw  c%Cbc  T - B U XTIPO_REPORTEXDFECXHFECXDPROXHPROXDTIPXDTPCXMONEDAXDLOG1OFORM XNO_RELEASEXRETURN OBTENER_FORMXDNUM1XDMONMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR  TCWFG((comprobETC%CC-g{ T F BUXAREA XRECIPROVCCPAGCOMPROBCCPROVCAUSARECIPROVL 4Tccprov.motivo#2%Nh&T and ccprov.causa#'P'%Sselect ccprov.cod_pro , sum(ccprov.importe) as importe , proveedo.nombre as nombre , proveedo.phono as phono , proveedo.domicilio as domicilio , proveedo.inscripcio as inscripcio from ccprov left outer join cccomp on ccprov.op#0 and ccprov.op=cccomp.op and cccomp.cod_pro=ccprov.cod_pro , proveedo group by ccprov.cod_pro, proveedo.nombre, proveedo.phono, proveedo.domicilio, proveedo.inscripcio where proveedo.cod_pro=ccprov.cod_pro and iif(ccprov.causa$'Ccd123' and cccomp.fec_dgi#{}.and.ccprov.op#0,cccomp.fec_dgi,ccprov.fecha)<=xhfec and &filtro and &xfiltro2 into cursor ccp readwrite select ccprov.cod_pro , sum(ccprov.importe) as importe , proveedo.nombre as nombre , proveedo.phono as phono , proveedo.domicilio as domicilio , proveedo.inscripcio as inscripcio from ccprov , proveedo group by ccprov.cod_pro, proveedo.nombre, proveedo.phono, proveedo.domicilio, proveedo.inscripcio where proveedo.cod_pro=ccprov.cod_pro and ccprov.fecha<=xhfec and &filtro and &xfiltro2 into cursor ccp readwrite  ~AZrctacte     C 6C c6NCC XCXCZBUXDCONXEMPXFILTRO2XDPSNXDFCOCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITCCPPHONO DOMICILIO INSCRIPCIO C%Cproveedo.FQQproveedo%CsucursaljFQQsucursal%Cidx04FQQ\idx04%Ccom_operFQQcom_oper%Cven_oper FQQven_oper%CccprovZFQQccprov%CcccompFQQcccomp%CcatproF QQcatpro%Ccatpro2F QQcatpro2%Ccatpro3=F QQcatpro3%CpaisesvF QQ \paises%CccpagFQQccpagBUABRIR_TABLAS_FIJASPROVEEDOSUCURSALIDX04P_COMMONCOM_OPERVEN_OPERCCPROVCCCOMPCATPROCATPRO2CATPRO3PAISESP_SYSTEMCCPAGG41QEXPORTACIONES_CRYSTAL Imp_exp.vcx[TCexportaciones_crystal Imp_exp.vcx"cm_ctacte_proveedores_detallada_v2T\tmpT /T T TT T T - CBUXPDFXCOD_PROXDTIPXDTPCXDMONOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDPROXHPROXDNUM1XDLOG1EXP_PDFcalcular cuenta_corriente sumar_salsumar0 encabezares_cabeza_grupoimp_mov crea_filtroZ( por_fecha-por_comprobanteO=valoresG acumuladoresJ fn_importeK obtener_form}K ejecutar_sqlKejecutar_reporteLbuscar_reciprov1Presumen Q open_filesPX exportar_pdf[11r2Ar1A"BqAAqqAAq1qrQrBBqAqqAv# rr22$B3@ rqB$qraAAAArq"AC8tqAAaA!tw"A"QAqQrAACsaarar4!!AQAAAAA4rqQA1qABrqAA4AAAA@AuAraaB2r12BArB3A2B22bAB2qAq2AAACeDAAAAAAAAAAAAA1Q1AApArAsA"B3%AAAAA1A1Aw2e11A11AAqaBA2 vAABABAaAASbBA2fAautrAAeAvAAAAAAAAAAAAA1Q1AArABBAurBA4saAqrFQAs6rc "QBCQBABAaAAeaTDdArAAFBAABAABBuBAE2 Auba!aaABrrAAAB3A2q!2q33AAAAAAA1Q1111AA3r1"A2sBaAB(AAC2qAAAqAAAbqAAqAAAqAAArqAA!rqAA!rqAA!qAA1qAA1rqAAbqAAC2q"CB1u()+,,,-" -/+/051ZA@nrA8HNH2_5N_t u$z =zzEzzI{{M{c|T|yY~:/%o%'$%vX0G(9 T T TTCXG+(listadosG+( cm_funcionescm_reimprimir_op( % BC BU ACTIVEFORM DATASESSIONID XTIPOCOMPRAXCAUSAXOPXCOD_PROLISTADOS CM_FUNCIONESCM_REIMPRIMIR_OPXRES REIMPRIMIR_OP4"T\tmp\CC]R cm_compraC Reimpresin G+(listadosG+( cm_funciones% F G((op ET H C  T d/ T cS T 2w T 2 TFG((codpro%  E  TT2TT T T T T  T! "T# $T% &T' (T) *T+ ,T- .ET/C 0  0S 1 2N6T3 1T4 5T6 7T8 9T: ;T< =T> ?T@ ATB CTD ETF GTH ITJ K TLTM NTO PTQTR STT UTV WTX YTZ [ T\ T] T^-T_ `TaCX Tb~z~zC6z7z7z5z5z=z=?z?AzACzCzxyxzzzCz z76zd z=d z?d zAd zCd zd C6zzzd z=d z?d zAd zCd zd C6[z[zzzzCz~z >.%zVcdC S:<= F}*>YzYzz%Cventas QventasFG((CPBTITM9%CZzYzCzZ EzYzCzZ TC4 * Ta% %Cclientes k QclientesFG((codcli EF}*> TT}Y}4oventasq ~ nTCC, 6CCCRgC=00C \C=00C \6F} >  5C(Error al reimprimir lquido producto !!!!FzH T\%C S:<=C Suspendo?a%Cccvent oQccvent/otempcompYVcdqCoqccventCQYqT\Q'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6'T C6 T TNTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6NTC8S4 C 6 T6C6?T@ATBCTDETFGTHITJKTL.TMNTOPTQRTSTTUV&%Ctcccomp.quincenabDTWX TWTYZ T[ T\ T]- T^ T_T`C(XTaCXTbCXTc TdCefTgCXThC(XTiC(X Tj Tk Tl Tm Tn Topcm_procsno$%Ctcccomp.usrsolbN#Trs : Tr Tt Tu%vFwG((ordenCtcccompdorden$%Ctcccomp.usrsolbN TrwxTtwyTuwzF{G((cuentaF}G((orden EG-(~{FS T-%Citmdescc QitmdesccF}!+C+ } E C}bienescodinsTC T T%Ss)C}}atributocodigoT CTC%S'C}}bultoscodigoT CTCF>}}}}}3311};};=}=?}?A}A}{|{}}}}}}C}}}}}}K}-%C}   C} >C}}C} }36}d };d }=d }?d }Ad }d TC}}}d };d }=d }?d }Ad }d T  >C}}C} }36}d };d }=d }?d }Ad }d TC}}}d };d }=d }?d }Ad }d T T T TB cm_compraC ZNCtempcompOF >>CC 6 > T T T9 cm_compraC ZN}F >>CC 6 >F}HTTTTTTTTTTTTTTT T T7TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T67TC4S0 C2 T6<7  T T T T T T T T T T T T T T T T T <(TT T T T T T T T T(TTF ~>% CCAV    C T,- T T T T T T T T T T T T T<  T! cm_compraDIRECTAFG(( referenciaG,EC@z 9999,999,999_PG F+C+ 3C@z 9999,999,999_P [>%C@z 9999,999,999_PLTTOrden de Compra3T C - C*T cFHT  T  TT%  -C Tipo de comprobante invlido !!!BUXOCXDESTINOXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOARR_IVA MAXARR_IVAP_MAXIVAIVALISTADOS XTEMPCOMPP_LOCAL XTIPOCOMPRA OPEN_FILES CM_COMPRA CM_FUNCIONESTCCCOMPTCCCORDPROVEEDOCODPROCOD_PROCVOPXFECEMIFEC_COMXNUMEROFFAC_COMXORDENORDENXCOD_PRO XOTRO_PRODES_PROVXCUOTACUOTA XANTICIPOANTICIPOXVTOVTOXPLAZOPLAZOXCUITCUIT XDESCPLANDESCPLAN INSCRIPTOTARJETAIVACATCOFINXMONEDAMONEDAXCOEFICCOEFICXDIVDIVXDIRENTDIRENTT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5XFECDGIFEC_DGIXNUMERORREM_COMXTXTCPBTNOTASXFECENTFEC_ENT XDEPOSITODEPOSITOXCATIVAXOC_EXTOC_EXTXIMP_TRIIMP_TRI XINCOTERMINCOTERMXTRANTRANXCENTROCOD_CEN XQUINCENAQUINCENA XLUGAR_IIBBLUGARIB XLIQPROD_IVA XLIQPROD_REMXLIQPRODXLETRA XFCE_TIPO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAIS OLOCALIZACION PAIS_LOCALXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAISXVERSIONXVERSION_ACTUAL XAUTORIZADAXQUIENOC_ESTADO_ACTUALCM_PROCS XOC_SOLICITAUSRSOL XOC_RETIRA XOC_APRUEBA P_CM_DATOS_OCTCCCOMPDSOLICITARETIRAAPRUEBACUENTASCUENTATCOMPRASCOD_CUETEMPCOMP XUSAIVAANTITMDESCCCOD_INS XDESC_INSBIENESDESCRXDATRXDBUL ATRIBUTOSATRATRIBUTOBULTOSBULDATRDBULDESC_INS RECEPCIONCOS_LIFOCOMPRASCOEFDES_INSDESCXOABREVIVAPERCENTRO SUBCENTROCANT_U2 PRECIO_U2UNICM_UNI2MEDIDACM_MEDIDA_ARTICULOENTREGASOLSOLITMITEMARTCODALTCODALT1ITMTOT_COM MO_TOT_COMXDESCRXNOTAXIMPDATOS_POR_ITEM_TRAERCPBTTXT ADICEXPORTT_IVAIVA_COMT_IVA_NCIVA_NCT_3337P3337T_IVA52IVA52T_DESCOMDES_COMT_FINALDEUDAT_FINAL1T_IMCOM1IMCOM1T_IMCOM2IMCOM2T_IMCOM3IMCOM3T_IMCOM4IMCOM4T_IMCOM5IMCOM5T_IIIIT_II2II2 T_REDONDEOREDONDEO T_IVA_ADIC TX_IVA_ADICTX_IVA TX_IVA_NCTX_3337TX_IVA52 TX_DESCOMTX_FINAL TX_FINAL1 TX_IMCOM1 TX_IMCOM2 TX_IMCOM3 TX_IMCOM4 TX_IMCOM5TX_IITX_II2 TX_REDONDEOADICADICMAXT_KILOS T_RECEPCIONT_TOTALT_INVT_TOTIVAT_IVAINVT_TOTLINTX_TOTALTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINT_IBTX_IBT_RETSTX_RETSZT_IVAVAR TX_IVAVAR T_SUBTOTAL TX_SUBTOTALZIVAOBIEDATA_CODIGO_VACIOKILOS CALC_X_ITMT_DTO672 TX_DTO672 XERR_PERCEP XMSG_PERCEPXPORCENTAJE_IIBBT_IVAARR MAXIVAARRVAR_AUXCCPROV REFERENCIAREFCAUXCCOMPROBFECHAIMPORTE XAUT_ESTADO AUTORIZADAXAUT_USRAUT_USR XREVISIONREVXREVISION_ACTUALVOPOCMENSAJE reimprimir_oc%B"AAB2q1%B"artaAQb1AOA2rCAArrrAAAt!q!Arq!AsQAA#rrrAAsqqrqrqrqqqqqqrr1q11AAuAAu1t1bab2AqAA2AB1w,%V@E@;YX1IG(9:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.ges@ \atrcan.gesG~(clasesG+(te_procsG+(listados"T\tmp\CC]R%CtempcompF FQtempcomp (Q  te_pago files< T%/  J(TCX T TT T T Ta TC$ Tate_pag_reimpresion(% B!TCOA6!TC@z 9999,999,999_CBU ACTIVEFORM DATASESSIONIDP_SERVERMENSAJECLASESTE_PROCSLISTADOS XTEMPCOMPP_LOCALTEMPCOMP OPEN_FILESTE_PAGOOPEN_FILES_COMPRASFILESDESCVALMAXDESC RECMAXOTHOTH XCOD_PROX XOTRO_PROXOPAGOXXFECHAXXCOMPXRECINGXENC XFEC_COMP XRESULTADOTE_PAG_REIMPRESIONXCAUSAXCOMPROB REIMPRIMIR/   TO (!TC @z 9999,999,999_.C U XDESDEXHASTAXCOMPROBXCAUSAXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNFORMULARIO XMAILFORZADOXAUTNIT REIMPRIMIR0'4CReimpr %CN^ T%CC T%CN T%CC T%CN T C 5 T -T CC]RT CC,g<7 J(:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.ges@ \atrcan.gesG~(clasesG+(te_procsG+(listados"T\tmp\CC]R%CtempcompFQFQtempcomp (Qte_pagofiles< T%  J(F%OG((opago E  G((oper E G("%C4/T#$"T%&F'G((codpro E)%C4/T*)T+,%O T- T./  T- T.  T0% T1*%'2S) T3 T4 QT50C0%F6te_pago T7 T8F9G((comprob3ECC--.6@z 9999,999,999_%C4  T: T:9;%C comprobantes-F<QT=CC]RZh1\tmp\=>C$C ?C@NAN"CBNCN &DDDENFNGNHNINJNKLLNMNNNONPNQNRNSNTNUNVNWNXNYNQ\tmp\=<& >$$%'2S FZ G((pago E-%C4 T\T88C]T77C]T^]cF<Hn  Z"C >>FC Z"d >>ND Z"c >>NC 2 >>XX>$Z_>?Z`>@Z]>AZ]>"Z" >B >C>&Za>DZa  8C+No hay comprobante contado referenciado !!! EFbG((comprobG7E1CC--.6@z 9999,999,999_G G T\X+C+ >1CC--.6@z 9999,999,999_)$" C+ A TcCO%$"de T88CYT77CYT^Yc Tfd Tge Thi Tjk(%fC Xde$" GE1fgChZCjZG %C4T\\%b"Ccd CbCcccompopF<H  b"C >>FC b"dA >>ND b"cg >>NC b"L >>AS b"1 >>CC b"2 >>DC b"H >>PR 2>>XX.>$Cb"Ccd123 Z_b$6>?Z`.>?Cb"Ccd123 Z`b$6>@bYbl^ >A^>"b">BbB>CbC>&b&>DbD>YbYFbHG((comprob #cH%Cret_prov wQret_provTnCC]Rote_pagon%Cchq F QchqFG((comprob Tq7E1CC--.6@z 9999,999,999_ Trs Ttu Tv Tw Tx Ty Tz T{ T| T} T~ T T T T T T T T T T T T T T TuTC Documentos imp_exp_p.prgCOPAAJ6CC--.6@z 9999,999,999_Q+C+ >1CC--.6@z 9999,999,999_)$" BTvvFG((cuenta EH 1,%ST CchqnumeroTp(rpagosYsDCS CHPCHE6-  2IrpagosYsDEFE&-CXCX d 3 T%CL TFm G((id ECZC ZF+C+ 3CZC ZCZC Z !%$"$"TymTmTmTmTmH%Cg\S T%TFm G((id ECZC ZTTTTTTT T F+C+ 3CZC ZCZC Z !%$"$"&TmYm&TmEmTmYTmETm&TmmYT mT m!% "TCm 6  TH%Cxe TFm G((id ECZC ZTmTm%C TFm G((id ECZC ZTmTmTm%C TFm G((id ECZC ZTmTmTmrpagosYsDOTR&-CXCXF%CLTww TxwT| TCOKC)C&1C51C0CL 6$"CC--.6@z 9999,999,999_ | (34 #%Cg\SdTzzH` T .T `T%CxT{{T~%CTT%C3TTFH T T< 7?%wz {   2+F G((id E# TC4 %a?( T-%w !F< ~!;odretprov$"# tmp_dretprov:-deCiZCkZ<$<"C<BZC<CZ%C4 Ta !F<D>EEFALMN%z"F< ~"Tf$"CBZCCZVodretprov$"# deCiZCkZf tmp_dretprov:-deCiZCkZ<$<"C<BZC<CZ%C4 ! Ta ["F<*>GEHAITTAF ~"|r tmp_retib$"BCEFdeikEA%{$F< ~$;odretprov$"# tmp_dretprov:-deCiZCkZ<$<"C<BZC<CZ%C4 # Ta $F<D>EEFAJOP%M%F< Ta ~I%;odretprov$"# tmp_dretprov:-deCiZCkZ<$<"C<BZC<CZ%C4 $ Ta E%F<_>EEFAQRSWC E6 T-%&F< Ta ~&;odretprov$"# tmp_dretprov:-deCiZCkZ<$<"C<BZC<CZ%C4 & Ta &F<_>EEFATUVXC E6 T-% 'fCYLa imputacin del pago a cambiado, la reimpresin de las retenciones no ser correcta !!!4%w{   ;(F< ~7(%<"Ccd'FZ G((op E<C TC4 ' T-F<%'>EZZ  (%>EC<@d  T'>FEC@ A@ 6 .+F< ~*+%<"Ccd(FZ G((op E<C TC4 ( T-%V)%Z("TC<A] T ') TCZ<A] TF<$>EZZGZ )%TC<Ad  TF<G>EC<@d  TGC<@d  TF<%C'*!TCC'd T 0* T< ]oret_provY6$"CC--.6@z 9999,999,999_ %Caaa_xxxbL* T * TF<>HITT T%v8+%'+-TC'S 6 + TTv8d  TCTTv8TTC(XTCXTCXT TCTCXTC(XTC(X T T%'2S7/ TFZ G((pago E- T T TTZTZ%Cproaux P-Qproaux)oproaux tmp_proaux% B. T TTCCTC.TCCC/6f T T T TTCQF G((pago E-+C+ [- 3/FG((cuenta EFx>FH / TT'T' T T T#FG( /'CEl Proveedor no existe !!! 10)CEl comprobante no existe !!!%CtempcompY0FQ.dbfFG(BUXCOMPROBXCAUSAXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNFORMULARIO XMAILFORZADOXAUTSYS_MABRIR_TABLAS_FIJASREALTIME XTMP_RETIBXOPAGOX ARR_RET_IIBBP_SERVERMENSAJECLASESTE_PROCSLISTADOS XTEMPCOMPP_LOCALTEMPCOMP OPEN_FILESTE_PAGOOPEN_FILES_COMPRASFILESDESCVALMAXDESC RECMAXOTHOTHCOM_OPEROPAGOOPERCAUSAXIDCOMPROBXFECHAXFECHAPROVEEDOCODPROCOD_PRO XCOD_PROX XOTRO_PRODES_PROVNOPAGONCOPER OPERACIONXFECHAXCOD_PROCONTADOXPAGOANTXRETANTXBEGCREAR_TEMPORAL_RETIBV_RECADO V_APLICADOCCPAG XCOMENTARIO COMENTARIO COMPROBANTES XCOMPROBANTESTIPOCPBTCOMPROB2SALDOAPLICADOCUOTAOPVENCBASEBASEAPLBASEIB BASEAPLIBRETIBRETIVANO_RET_MRETGAN RETGANDEB RETGANANT RETIVADEB RETIVAANTRETCPRETCPDEBRETCPANTRETARRETARDEBRETARANT RETCPBASE RETARBASEIMPORTECCCOMPPAGOMAXAPLDEUDAAUXFAC_COMFAC_COM2FEC_COMCCPROVRECREFCAUXREFXCAUXCUOCUOXOPROPRADELANTORET_PROVXPAGOS CREAR_PAGOSCHQAXMONEDAMONEDAXCAMBIOCOEFICV_PAGADOXRGANXRGAN2XBASEGANXRETIBXRETIVA XNUMRETGAN XNUMRETIB XNUMRETIVAXRETGAN_ADEUDADAXRETGAN_CANCELADAXRETGAN_REGIMENXRETIVA_ADEUDADAXRETIVA_CANCELADAXRETCP XNUMRETCPXRETCP_ADEUDADAXRETCP_CANCELADAXRETAR XNUMRETARXRETAR_ADEUDADAXRETAR_CANCELADAXRETCP_REGIMENXRETAR_REGIMEN ODOCUMENTOSCAJ_PROCUENTASCUENTATIPOPROPIOXECHEQUEECHEQUENUMERODESCRPESOSABREVCUEDESCRNUMINTSUBNUMCLEARINGPUEBLODIFERIDO PROVEEDORBANCDEP PROVINCIAPOSIBANCHQNUMCHQDES_VALMONEXTMONPASE DIF_VALORREFINTSUBTIPOXTIPO2ATRCANID GANANCIASBASECALCDEBEHABERREGIMENXCODIGO_GANANCIASCODATRIBUTORETANTPAGOANTP_IIBB_REGIMEN_ESPECIALXREGIMEN_IIBB_GEN_ESPPROVXRECNONETOGANXRETACCXBASACC RETIB_ARRTE_RETIBDRETPROV XENC_RETS XERROR_RET TMP_DRETPROV RETENCION RETDEBIDARETXPRIMEROXENCTOT_COMDES_COMCONSIVAIBXNETOIBRETXRETAAA_XXXXNETOADEIVACATXPERRG3337V_ACREDI XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAIS OLOCALIZACION PAIS_LOCALXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAISXFROMXCATIVAXCUITCUITXORDENT_DESC1DESC1T_DESC2DESC2PROAUX TMP_PROAUX DOMICILIOCIUDADPROVINCZIPPHONOEMAILPAISESCOMPRASCOD_CUECOD_INSATRBULDESC_INS RECEPCIONCOS_LIFO INSCRIPCIOVOPAGOreimprimir_rango reimprimirAA"!%qA"rA2A1AA"B1A3q1qArArArArArRr1AA"!%qAA"rA2AzAArqBArqrA%r1AqAAU %!vs21xQqqqAAtbqab2A1baAsQqqqqqqqArAAAAABAAWbRArqRBrqsAqaqsbBAADbAvamaa!ABAADrCrBrBBrB BBaaaABAAAAAAsAArus4urFCBB3uhrBABtECA3qrFBBA3urBBA3wrBBAaBDrqArrRArCArqAa"ArCRrsuAAsArsCBB1aA!Arr!A"A!ABrqrQrAAB2raqAAqAA1raC1/hR7v\%I"CwPs:G1UQINTEGER%#%  XT {TCU AFILTERTYPEFTNONETHIS FILTERTYPEBCUFTNODATATHIS FILTERTYPEBCUFTCUSTOMTHIS FILTERTYPEQINTEGERQSTRING TC(C2%CDCT -TC this.EmptyDate,%C>TCC>=ULOC LOCONVERFUNC LOARRDATATHISALIASCONVERSIONFUNC=QBOOLEAN-QSTRINGQSTRINGQSTRINGQBOOLEANQ TRORECORD!%C  % ;C ( No tiene Metadata en SQL Server !!!! xBT C T  T T T+ 57TC`  .[C`],"%ID_C fTC`,T  % TC T C` 1 TaTCC>TCC>T CfT Cf%%C C > 6T ID_C fT  ST Select  From   where   = @@IDENTITYULOFINLOUPDATENAMELISTLOKEYFIELDLISTLOUPDATABLEFIELDLISTLOFOUND LOTABLEINFOP_DATADTBLFLD FINDRECORDTHIS BASETABLEP_GBL TECHNOCHECK LOPOSITIONGETKEY NAMETABLENAMECOLCOUNTITEMUPDATABLEFIELDLISTUPDATENAMELIST KEYFIELDLISTINSERTCMDREFRESHFIELDLISTINSERTCMDREFRESHCMDaTCl$%CTKTCBC UADATELORETVAL]%C- $ C >CaC BufferingUTHISALIASDEBUGSHOWSTACKC BufferingU QSTRINGQBOOLEANQSTRINGQSTRINGQSTRINGTCCf%Cf FTCf%CTC   &loStrExpression  T T set order to %aT Descending&loMacro %Cf FU AIDXNAME ADESCENDINGLOSTREXPRESSIONLOMACRO LOSAVEALIASTHISALIASINDEXESP_DATADGETINDEXEXPRESSION BASETABLETEMPORARYCHANGEBUFFERMODERESTOREBUFFERMODE"TCADODB.Recordset'%CO C TTT%T TdTd TTTUTHISADORSLOCKTYPE CURSORTYPECURSORLOCATIONPAGESIZE FETCHSIZE CACHESIZECTTT C CUTHISADORSADOCONNADOCMD CURSORDETACHqQSTRINGQSTRING(%CC CC> [TCCf j%DSetViewT f.%CCCC> &% DSetRenamTCCf "TCCf b2C&Error en rutina de generacion de aliasxUAALIASACMDTHISALIASDSETTYPE BASETABLE OLDBASETABLE TC%C T%CdT ~T T"TSelect * From TCfU ACMDSTRINGATBLNAMETHIS SELECTCMD BASETABLE-QSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQINTEGERQBOOLEANT a7%C OC iT 8% DsetTable DSetRenam &C TTCTCT C TC>% DSetRenamTCCfTC#TCCTC%C>\ TaTTTADOTTTTTTT U! ACMDSTRINGAALIASATBLNAME LOBASETABLELOEXP LODSETTYPELOISUP LOISUPDATABLETHIS BREAKONERRORP_DATADGETMDDSETTYPEMAKESQLSTMT_SETBASET SELECTCMD BASETABLE OLDBASETABLE RENAMETBL REPLACESTRRESOLVEALIASNAME SESSIONIDGETACTIVESESSION SETMETADATAUSETRANSACTIONSTABLESDATASOURCETYPEUPDATECMDDATASOURCETYPECONFLICTCHECKTYPE WHERETYPE ALLOWUPDATE ALLOWINSERT ALLOWDELETEBUFFERMODEOVERRIDELFQBOOLEANQSTRINGQSTRINGQADODB.ConnectionQINTEGERTC WHERECf%T%_%?TC=(CC>R)"T AND (1=2)  K"T Where 1=2 T   (%CC CC`> T C  !%COC T  T  T TTTa TC ADODB.CommandT TADOTTADOTTADOTTADOTC- UANODATAADBNAME ASERVERNAMEAADOCONN LOPOSWHERETHIS SELECTCMD FILTERTYPEFTCUSTOMFTNODATA MAKERECORDSETADOCONN GETCONNECTIONP_DATADADORSACTIVECONNECTION DATASOURCENODATA FETCHASNEEDEDADOCMDUPDATECMDDATASOURCETYPEUPDATECMDDATASOURCEINSERTCMDDATASOURCETYPEINSERTCMDDATASOURCEDELETECMDDATASOURCETYPEDELETECMDDATASOURCEREFRESHCMDDATASOURCETYPEREFRESHCMDDATASOURCE CURSORFILL SETCONVERFUNC[EQSTRINGQSTRINGQSTRINGQADODB.CONNECTION TC ADODB.CommandNT%C T(%CC CC`> TC >!%COC T :T T U ACMDSTRADBNAME ASERVERNAMEAADOCONNTHISADOCMD COMMANDTYPE COMMANDTEXTADOCONN GETCONNECTIONP_DATADACTIVECONNECTIONQSTRING T%C @TC(%CO< TC TDBExceptionN UACMDSTRTHISADOCMD COMMANDTEXTEXECUTEOERR P_DBEXCEPTFilterType_Assign,IsNoData IsFiltered SetConverFunc[ SetMetaData EmptyDateTemporaryChangeBuffermodeRestoreBufferMode SetOrderTo1 MakeRecordset Destroy ResolveAliasNamep MakeSQLStmt_SetBaseT'Init;OpenINIT Execute" T T T T T T T T T T  T           U ADOCMDADORSADOCONN BASETABLE CURSORTYPECURSORLOCATION OLDBASETABLEINDEXES SESSIONIDDSETTYPE FILTERTYPEFTNONE- T T  UADOCMDADOCONNTcursorAdapterGes CursorAdapterZ TCommandGesCUSTOM 1!11AA3a3a3"A!AARA3#&A!AAArq!AAA"!S21B 1qraqA3A33AQAAA3"q1aaa1111AA33AqqA!AAA3A!AQ3!!qQ!!AQaAAq1ATA1119e"1A1!!AA1AAb1a1111111101Q1!1A1AAa3!1AqqAA@1p @ 10?' R !I%=CKQ;ReT4mx}"@"[**2669 69:35=6:%![dXu1w 555FG((cheque5  TC TC T C T C % %Ccheques Qcheques T-%I%$TC ETC  uTC  Ta% X TTT CCTTCTT  CTCC C%CBORRAR2 Q Voborrar2 !"C#Q$C#C%6Q&C#C'6Q(C#C)6Q*C#C+6Q,C#C-6Q.C#C'6C#C)6C#C+6C#C-6Q/ borrar3oborrar2borrar3Q11$1&1(1*1,1.1/-Q2CxXQ3Q4Q51borrar4G(8(codcliG-(8d>389 - C8  - C8:CC8; , 6C8; - C8< G-8F6 C>%?T@ 3423423442 ~%@ >2a T@%A%Cq_chq"QB%Cidx02 VQC\idx02F6 ~ TDTEFDEF6(>4D5D6#GE%Cq_chqQB%Cidx02 QHF6%IC3 $d,& CJSICKCL6CGM-(N\tmp\rpt_ve_facturas_a_cobrarF6& CO ZM"oborrar4q1!oborrar4OOq#) TSOMoq1Xborrar4 Q6 6OS Q6Tq2>TCCTFR~OSTVROFUG-(CV Z6~C6T )>TCTC C CC6Tқ&oq2UUTQWq/%Crpt_ve_facturas_a_cobrar_notasX QX3(N#\tmp\rpt_ve_facturas_a_cobrar_notas%Cq QR2QN#\tmp\rpt_ve_facturas_a_cobrar_notas8& (N#\tmp\rpt_ve_facturas_a_cobrar_notasQX%Cq9 QR%Cq1X QQ%Cq2w QU%Cborrar FQ%Cborrar1 FQ%Cborrar2 FQ%Cborrar3 F0Q%Cborrar49 F6Q.*.* .*BUYXCPBT XCPBT_EMPBORRARBORRAR1BORRAR2VEN_OPERCHEQUEXBORRARXBORRAR1XBORRAR2XBORRAR3ODEYFUNCNEWFILE_LOCAL_TMPXDCHQCHEQUESOCOLLXZAFARXDCONGESFORMEMPRESASGET_CONSOLIDARXOLDEMPP_CODEMPOEMPP_SERVER DIR_TABLASCODIGO OPEN_FILESPROCESARABREVXDMON GET_PORCODIGONOMBREVENDEDORNOMVENDSALDO SALDO_TOTDOKSALDO_OKD1A30 SALDO_1A30D31A60 SALDO_31A60D61A90 SALDO_61A90D91AMAS SALDO_91AMAS SALDO_VENCBORRAR3B3ENCCLI_DATASALDOACTINTERESBORRAR4CODCLICLIENTESCOD_CLI DOMICILIOCIUDADPHONOALLSEPARACION_E_INDICEXDTIPXOLD XINTERESESQ_CHQP_COMMONXSALDOXFECHAPROCESAR_INTERESESFECHAIDX02 XHFRECLAMO CONFIRMADAESTIMADOFRECLAMOIDP_LOCALEMPCODDISTINCTQ1QXEMPNOTAQ2XEMPCODNOTASRPT_VE_FACTURAS_A_COBRAR_NOTAS7%H$ HH u& CC & CC  %& CCgZCC & CC r%J& CCgZCC n& CC &  &  |Hx  & CC >& CC %"& CCgZCC & CC %"& CCgZCC & CC K& CC x& CC PHL  & C ZCC  & C ZCC z%L$& C ZCCgZCC v & C ZCC %$& C ZCCgZCC  & C Z CC & C ZCC L& C ZCC Ht & CC & CC F%"& CCgZCC B& CC %"& CCgZCC & CC & CC & CC 0& UXDTIPXDSEPXDORDNOMBREVTOFECHAFINALP_CLINUMCODIGONOMVENDCOD_CLISEMANARDESCR SALDO_VENCyET.t.Tccclie.cod_cli#"0 " .and. left(ccclie.cod_cli,5)#"ANULA" .and. (ccclie.cod_cli+comprob+causa+str(cuota)=ccclie.cod_cli+ref+cau+str(cuo) .or. alltrim(ref+cau)=="") .and. causa#"P""%CX CX %ET4.and.betw(val(ccclie.cod_cli),val(xdcli),val(xhcli))GT6.and.betw(val(ven_oper.cod_cli),val(xdcli),val(xhcli)) 6T%.and.betw(ccclie.cod_cli,xdcli,xhcli)8T'.and.betw(ven_oper.cod_cli,xdcli,xhcli)%N T.and.causa$"dL"% T.and.causa="V" T -% T.and.causa#"r"%   !T.and.causa$"Vcd"% D!T.and.causa$"Vcd"% 0T.and. between(rfc, xdrfc,xhrfc)/T.and.betw(fecha,xdfec1,xhfec1)8T'.and.betw(ven_oper.fecha,xdfec1,xhfec1)% =,T.and.betw(venc,xdfec,xhfec)% r!T.and.causa$"Vcd"$%   T.and.causa="V"% /%+KT: and causa$"Vd" and between(date()-venc, xdias_atraso,365)% aT and causa="V"%C :select ccclie.cod_cli,ccclie.causa,ccclie.comprob, ccclie.fecha,ccclie.venc, ccclie.fecest,ccclie.cond, ccclie.importe,ccclie.adelanto, ccclie.ref,ccclie.cau, ccclie.moneda,ccclie.coefic, ccclie.motivo,ccclie.cuota, ccclie.cod_cue , ccclie.id , ccclie.idu , ccclie.rfc , ccclie.comentar , 00000 as linea , 00000 as grupo , space(8) as vendedor , 0000 as plan , 0000000000 as tran , space(20) as ot , 000000000000 as pedido , space(30) as oc_ref , contshow as contshow , space(6) as centro , cancel as cancel , .f. as contado , .f. as fc_sel , space(60) as reclamos , .f. as reembolso , space(200) as flete , .f. as fle_ent , space(30) as estado , 0000000000.00000 as cambio_act , 00000 as despl , 00000 as desplcli , 00000 as desplven , 00000 as despltot , .f. as dok , .f. as d1a30 , .f. as d31a60 , .f. as d61a90 , .f. as d91amas , {} as freclamo , "NO" as confirmada , .f. as anticipo , space(12) as vo_cpbt , space(1) as vo_causa , clientes.comentario as nota , clientes.comentario as notarecl , xemp as emp , xempcod as empcod , {} as fv , 00000 as dfv from ccclie, clientes where ccclie.cod_cli=clientes.cod_cli and (ccclie.cancel={} or xdtodas) and !empty(ccclie.cod_cli) and &filtro into table (xborrar)  5 TC  xRMSALIDA]FEccvfacVTVCZTVCcZoccclieclientes !"#$%&'()*+,-./01Q2Q3CXQ4Q5 Q6CXQ7 Q8CXQ9:Q:CXQ;<Q<-Q=-Q>CV_UN_NOC_`SINO6Cborrar+ %bC3 $}\CCCNҡ CNb!C=6C$ 6 C%& % CVd %d%CqQeQoborrarQfmotivosQh + i j  q ~Tk qborrar k%l m             %lbselect ven_oper.cod_cli as cod_cli , "h" as causa , alltrim(str(ven_oper.numero)) as comprob , ven_oper.fecha as fecha , ven_oper.dif_valor as venc , {} as fecest , "" as cond , ven_oper.caj_pro as importe , 0 as adelanto , alltrim(ven_oper.des_val) as comentar , clientes.vendedor as vendedor , ven_oper.comprob as vo_cpbt , ven_oper.causa as vo_causa from ven_oper, clientes where ven_oper.cod_cli=clientes.cod_cli and ven_oper.tipo="1" and ven_oper.dif_valor+val(ven_oper.horas)>=date() and &filtro_vo into table (xborrar3) 8select ven_oper.cod_cli as cod_cli , "h" as causa , alltrim(str(ven_oper.numero)) as comprob , ven_oper.fecha as fecha , ven_oper.dif_valor as venc , {} as fecest , "" as cond , ven_oper.caj_pro as importe , 0 as adelanto , alltrim(ven_oper.des_val) as comentar , clientes.vendedor as vendedor , ven_oper.comprob as vo_cpbt , ven_oper.causa as vo_causa from ven_oper,clientes,cheques where ven_oper.cod_cli=clientes.cod_cli and ven_oper.tipo="1" and &filtro_vo and str(ven_oper.numero,10)+str(ven_oper.subnum,2) = str(cheques.numero,10)+str(cheques.subnum,2) into table (xborrar3) %CqVQe%Cchq_pxQnQon ~TknQnRn!C$Cv&CCv-C6? uv 66%CqQe%Cchq_pQnF\ o%mFSG((codcliF\G-(S(Tx !clientes.pagCCCy)Z"delete in borrar for &xxfiltro 'Tx clientes.pagCCCy)Z>?CCCSzS{ S| S} S~ Todos los dias~CSz Lunes gCSz Martes OCSz Mircoles 4CSz Jueves CSzViernes 666666fCCS 5CCS= DE CS DE CS66 TC c:\RM2.logC C %+F\ ~'%VcdrPuFG((ccvfacE\ \F\>4 #%RAFG((comprobE\\ \F\>4 FSG((codcli E\F\>4S4 F\ ~FSG((codcli E\F\>4S4F\& ([ (G!(FQF^ G((idF G((planF\ ~(FG((ccvfacE\ \F E5T%F^ G((idE\ \%C4F\!>55P^P%3>\Y^ZC$^  T-% F\;>55==@@PP%3>\YZC$F\%Vv% "0>ECCC$C!"6FD rF>ECCC$C!C"CCY Y"6F6FD%h% #>ECCC"C$DFD 9>ECCCC"CCY Y"6FC$DFD%VcdrPX'FG((ccvfacE\ \%C4 FG((codfle E%C4 {>\ACCC, C6CC, C6CC, C6%\VT' T-%CCRgM  (C\ \ventasven_fac%CCRg  Ta% " %- "H " C1!>\C SIN DESPACHO>\B- Ck!>\CARMADO>\B- C!>\C PARA RETIRAR>\B- C!>\C ENTREGADO>\Ba C-"!>\CRETIR EL CLIENTE>\Ba Co">\CNO SE DESPACHA>\B- 2">\C>\B- P'T\ \oventasccventQCQCr tmp_remitos Ta T ~L' %-# H'H#$' C/$%#T SIN DESPACHO  $% SIN DESPACHO$TVARIOS T- C$%h$TARMADO $%ARMADO$TVARIOS T- C?%%$T PARA RETIRAR 0%% PARA RETIRAR,%TVARIOS T- C%%{%T ENTREGADO %% ENTREGADO%TVARIOSTa  Cm&%&TRETIR EL CLIENTE W&$%RETIR EL CLIENTES&TVARIOSTa  C&%&TNO SE DESPACHA &!%NO SE DESPACHA&TVARIOS T- 2$'T??? T->\C>\B&%\Vcd C\" 'T\" 'T\!TC$F\H'~( C$[' >Ma CC$=Z( >La CC$<D( >Ka CC$i( >Ja 2~( >Ia% (\\C SIN DESPACHOC PARA RETIRAR  "C% &% d6_ FQF\TF\ ~/;%a      *FG((codinsFG((ven_facE\ \ T TTCX)+C+ \ \ Z*%CXR*F ET2T3T!HF\>23 >;F\H*+ V*TFC c*TNC d+TND L1+TAS rT+TRE Pw+TPD R+TRC A+TAJ 2+TCH >.%M,F%S2, #STC)g I, T d, TF\%- T T T@listadosC6C$TC6 ;-)TC%&)*!+7>%CC6%)*!+ >&%&->-S ->-N%"C$->/S ->/NFG((ccvfacE\ \F\>66>88>9'>77%/%d/%Cmotivos .Qmotivos9%C\+motivoscodigoCgj .  /\%\L/ T T TT\!TCC\ ,g' co_funciones!%  /\T.t."%CX CX 0%w0[TJ.and.val(xdage)<=val(borrar.vendedor).and.val(borrar.vendedor)<=val(xhage) 0GT6.and.xdage<=borrar.vendedor.and.borrar.vendedor<=xhage% &18T'.and. between(clientes.cat,xdcat,xhcat)%g1*T and clientes.gruec=xgrec%E2LT;.and.betw( min(venc, iif(!empty(fv),fv,venc)) ,xdfec,xhfec)%A2hTW and causa$"Vd" and between(date()-min(iif(!empty(fv),fv,venc), fv) , xdias_atraso,365) select borrar.cod_cli as codigo , clientes.nombre as nombre , left(borrar.id,2) as cpbt , padr(iif(causa="h",alltrim(comentar)+" ("+alltrim(comprob)+")",alltrim(comprob)),40) as numero , causa as causa , borrar.fecha as fecha , 0000 as desplaza , venc as vto , iif(causa="V",venc, date(2099,12,31)) as vto2 , fecest as estimado , cond as comentario, space(5) as moneda , importe as importe , adelanto as saldo , iif(inlist(causa, "V", "d", "h"),adelanto, 000000000.00) as saldodespl, 0000.00 as porc , left(borrar.cod_cue,1) as es_saldo , left(borrar.idu,1) as vencido , borrar.moneda as mon_ori , space(5) as moneda_ori , coefic as cambio , motivo as motivo , cuota as cuota , borrar.vendedor as vendedor , nvl(agente.nombre,space(30)) as nomvend , borrar.linea as linea , nvl(lineas.descr,space(30)) as dlinea , borrar.grupo as grupo , nvl(grupos.descr,space(30)) as dgrupo , 000000 as semana , space(25) as semtxt , rfc as rfc , nvl(rubrofac.descr,space(30)) as rdescr , plan as plan , tran as tran , ot as ot , pedido as pedido , oc_ref as oc_ref , contshow as contshow , borrar.centro as centro , costos.descr as centrodes , cancel as cancel , borrar.anticipo as anticipo , " " as anticipo_t , borrar.contado as contado , " " as contado_t , " " as reembolsot , " " as cancel_t , .f. as fc_sel , borrar.reclamos as reclamos , borrar.reembolso as reembolso , borrar.flete as flete , borrar.fle_ent as fle_ent , borrar.estado as estado , borrar.cambio_act as cambio_act , date()-borrar.venc as dias , (date()-borrar.venc)*adelanto as prepond , borrar.despl as despl , borrar.desplcli as desplcli , borrar.desplven as desplven , borrar.despltot as despltot , dok , d1a30 , d31a60 , d61a90 , d91amas , comentar as ref , freclamo , confirmada , vo_cpbt , vo_causa , clientes.gruec , cligruece.descr as dgruec , borrar.nota , borrar.notarecl , borrar.emp , borrar.empcod , borrar.fv , borrar.dfv from borrar left outer join agente on borrar.vendedor=agente.cod_age left outer join rubrofac on borrar.rfc=rubrofac.codigo left outer join lineas on borrar.linea=lineas.codigo left outer join grupos on borrar.grupo=grupos.codigo left outer join costos on borrar.centro=costos.cod_cen , clientes left outer join cligruece on clientes.gruec=cligruece.codigo order by agente.nombre, clientes.nombre, borrar.venc, borrar.fecha where borrar.cod_cli=clientes.cod_cli .and. &filtro into cursor borrar3 readwrite D>CCC% d% 6DR?@F%oborrar3iQi4CQCCCCEC 6TQCFCNDCHi4q ~>/>FCCeFDieieoq4QiCQCCCCC 6TQ4q ~>/>GCCeFD4eiHoqCCCCC 6TQq ~/?#>HCCeFDF\Q < .oidx04C!!C$ % ?&oidx04!CTC ?T.oidx04C!!C$ % r@&oidx04!CTC @T.oidx04C!!C$ % A&oidx04!CTC /AT.oidx04C!!C$ % A&oidx04!CTC AT.oidx04C!!C$ % OB&oidx04!CTC mBTFTCC$a>)CC6CCC C6CC Anterior"CC* - CC*6C=SNo6CPSNo6C@SNo6CC<SNo6DC  C6%D P %$D = %BD @ %eDC%   DC2 % DC3 >: :M%CBorrar2 KE%C.dbf0 3EF (Qrborrar2oborrar3FQUXCPBTXEMPCODXEMP FILTRO_VOFILTROXDCLIXHCLIP_CLINUMXDSND$XSIN_RETIRAR_O_PENDIENTES_DE_ENTREGAXDRECXDREMXDLINXHLINXDGRUXHGRUXDRFCXHRFC XFVALORES XDCONTADO XDCONTADO2 XDREEMBOLSOXSOLO_ANTICIPOS XDIAS_ATRASO XRMSALIDACCVENTCCVFACXCPBT2COD_CLIXCPBT3CCCLIECAUSACOMPROBFECHAVENCFECESTCONDIMPORTEADELANTOREFCAUMONEDACOEFICMOTIVOCUOTACOD_CUEIDIDURFCCOMENTARLINEAGRUPOVENDEDORPLANTRANOTPEDIDOOC_REFCONTSHOWCENTROCANCELCONTADOFC_SELRECLAMOS REEMBOLSOFLETEFLE_ENTESTADO CAMBIO_ACTDESPLDESPLCLIDESPLVENDESPLTOTDOKD1A30D31A60D61A90D91AMASFRECLAMO CONFIRMADAANTICIPOVO_CPBTVO_CAUSACLIENTES COMENTARIONOTANOTARECLEMPEMPCODFVDFVXBORRARBORRARCCCNOTASPLANVARC TMP_RECLAMOS CONFIRMARFOR XHFRECLAMOINXSIN_ANUL_TEMPQBMOTIVOSMCODIGOTIPOXIDXDCHQXDPOR_FECHA_RECLAMOSCHQ_PXBORRAR3ARR_QFECREFCDIASACC XACUMULADOXIMPORTECODCLIXXFILTROXHFECPAG1PAG2PAG3PAG4PAG5PAGHALLXMNFL23 P_AGE_TIPOAGENTEVEN_OPERXBORRAR1BORRAR1CONDCOBRXENC_VARVARIABLEVALORESFEC_VENXDESPLAZAMIENTOFLETESCODFLECOD_FLENOMBRE DOMICILIOCIUDADPHONO XFC_DE_REREM_VENVENTASXID_FACDISTINCTFAC_VEN TMP_REMITOS XENTREGADAXESTADOXFECVENC XDIASVENCXDMONBIENESCODINSVEN_FACXLINXGRU XCENTRODFCOD_INSCOD_CENXCCFG_LISLISTA XMONDESTINO XSALDOACTXSALDOXDIFAPL ACT_SALDOCLISTADOSMM_MAXFN_CALCXERRXERRMSGXASIENTOXFECHABUSCAR_ASIENTO CO_FUNCIONESCONCEPTOTIPO2XDAGEXHAGEP_AGENUMXDCATXHCATXGRECPORCSALDODESPLAZBORRAR3CPBTSUM ARR_CAMBIO ARR_CAMBIO1IDX04INDICE1INDICE2INDICE3INDICE4INDICE5XSEMODEYFUNCFN_WEEK MM_MONEDA MONEDA_ORIMON_ORISEMANAVTOSEMTXTFN_BEGFN_END CONTADO_T ANTICIPO_T REEMBOLSOTCANCEL_T XDSALDOMIN XDSALDOMINPXBORRAR2BORRAR21 G(ges C ges CFQ\idx04idx04FQcfg_lisFQccventccvfacFQven_operG((chequeFQccclieporfacpFQclientescodcliFQagentecodageFQlineascodigoFQgruposcodigoFQcatclicodigoQrubrofac%Cccvent Qccvent%CBIENES Qbienes%CVENTAS Qventas%CVen_oper ?Qven_oper%CVE_Trans qQve_trans%Ccostos Qcostos%Ccondcobr Qcondcobr%Cdesp Qdesp%Cdespflet -Qdespflet%Cfletes [Qfletes%C cligruece Q cligrueceUGESSETSABRIR_TABLAS_FIJASP_COMMONIDX04CFG_LISCCVENTCCVFACVEN_OPERCHEQUECCCLIEPORFACPCLIENTESCODCLIAGENTECODAGELINEASCODIGOGRUPOSCATCLIRUBROFACBIENESVENTASVE_TRANSCOSTOSCONDCOBRDESPDESPFLETFLETES CLIGRUECEZQBOOLEANQBOOLEANQINTEGERQDATEQBOOLEANQBOOLEAN&ve_rpt_facturas_a_cobrarJTC  $T aT T T  TCC6&T CC 6T C(CIniciando datos... C C  TBU XDCONTADO XDSALDOMIN XDSALDOMINP XDEMISIONXDTODAS XDCONTADO2VE_RPT_FACTURAS_A_COBRARXFORMXHFECMANTENERXDLOG9XDPARA_CONTADOSXDLOG8XDFEC1PREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONRELEASEr%CC? T%CNg T%CN T%CN T*TCC=CCCZ0-TCCCZ0% &ve_rpt_facturas_a_cobrarJTTT C  $T a C (CIniciando datos... C C F/Q\tmp\rpt_ve_facturas_a_cobrar- V %C+ H >a ^JQ T BUXLETRAXCENTROXCPBTN XCPBT_EMPXRETORNO XINICIADOXCPBTVE_RPT_FACTURAS_A_COBRARXFORMXHFECMANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONRELEASEP_LOCALTMPRPTNUMEROCAUSAFC_SELOOBJ "%C xCol_InitRowbN> T T T T T T T T  T  T  T  T  T T T T%CTMPRPT*F <F/Q\tmp\rpt_ve_facturas_a_cobrar ~ CfO  TNTTTT$TC=)TCC\g&TCC\gT %'T d T  T T !T"KCCZT#CCZ$T$ACCZ:PCCZIT% =IF(YEAR(")>1900;+" -$P$3;"")TQU&XCOLOCOLL XCOL_INITROW XCOL_MARCA XCOL_NOMBREXCOL_OC XCOL_TRSACXCOL_DIVXCOL_LETXCOL_CEN XCOL_CPBT XCOL_SALDO XCOL_PORC XCOL_FECHA XCOL_IMPORTE XCOL_PEDIDO XCOL_DESPLAZNITOROWTMPRPTP_LOCALFC_SELCONTSHOWCELLSVALUENOMBREOC_REFTRAN CENTRODESNUMEROSALDOIMPORTEVTOPEDIDOXCURCELLXCURROW XCULRANGE FORMULALOCALp%C6TV*TCC=CCCZ0-TCCCZ0%CCCCLie QccclieF> %CTMPRPTF  F/Q \tmp\rpt_ve_facturas_a_cobrar )ptmprpt QU XCONTSHOWXLETRAXCENTROXCPBTNXCAUXCPBTCCCLIECONTSHOWFORCOMPROBCAUSATMPRPTP_LOCALNUMERO  T T T T T T T  T  T  T  T  T T T TLQOBJECTQOBJECTQINTEGERQINTEGERQINTEGER T T( 6%CCCC T %T T% T!=QSTRINGQSTRINGQINTEGERQINTEGERT+ TTCTC TC TC$%CCxFlagbC " TTCfHF FZ O M C%OTT 2 T*T T T TTTT+ TW%CC CC CCfF g.TCTC TC %TC %!O=TT.T%1"T ""T#"T$%C%g'T'% D"T%"T&%'-T d' ""T ("T'%)-"T)T*KCCZT+CCZ$T,ACCZ:PCCZ-IT. =IF(YEAR(*)>1900;+* -$P$3;"")TC/TT*KCCZT+CCZ$T,ACCZ:PCCZ-0,1:0,12=$PCCZ<$E$2 O ;T0,134CCE20134;T0,135CCE20135 %T0,134#T0,135aT Ta BU6OSHEET XINICIADOXRET XCOL_MARCA XCOL_NOMBREXCOL_OC XCOL_TRSACXCOL_DIVXCOL_LETXCOL_CEN XCOL_CPBT XCOL_SALDO XCOL_PORC XCOL_FECHA XCOL_IMPORTE XCOL_PEDIDO XCOL_DESPLAZ XCOL_INITROWRGOCPBTNROWCXROWVNITCELLSVALUEXFLAGXLETRAXCENTROXCPBTN CONTSHOW_CPBT ENTIREROWDELETEOBTENER_SALDO_UNOCONTSHOWSALDONOMBRETRANOC_REF CENTRODESIMPORTEVTOPEDIDOXCURCELLXCURROW XCULRANGESELECT FORMULALOCALAGREGAR_NUEVOSRANGEFORMATCONDITIONSADDFONT COLORINDEXBOLD 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxQTCexportaciones_crystal Imp_exp.vcxve_rpt_facturas_a_cobrar%CCT\%C T T\xchgTTlTC3 $T  C BU XTABLAXSUBDIROEXCP_SERVERFIL_DIRECTORIO FIL_TABLAFIL_EXCEL_PLANOOFORMXHFEC XDCONSOLIDADO EXP_TABLA 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxQTCexportaciones_crystal Imp_exp.vcxve_rpt_facturas_a_cobrarT\xchgTTTC $T  C BU XTABLAXMONEDAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXHFECXDMON EXP_TABLAR1QEXPORTACIONES_CRYSTAL Imp_exp.vcxQTCexportaciones_crystal Imp_exp.vcxve_rpt_facturas_a_cobrar!Tanticipos_pendientesT\tmpT\tmpTTT .pdf MT  T a C C%C Q\%CNTT No hay datosB 2\ (\xchg\ (G TTBUXERRXMSGXDIASOEXCXFILEFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_ARCHIVOOFORM DIAS_ATRASOXDLOG13EXP_PDFDISPOSEP_SERVEROEXMESSAGE )CIniciando exportacin T T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxQTCexportaciones_crystal Imp_exp.vcxve_rpt_facturas_a_cobrarTT  T  \tmp\'T C C pdfxls6T C (T rpt_ve_facturas_a_cobrar(Trpt_ve_facturas_a_cobrarTC  Ta%CSOLO PDF C%C 0,C Copiando  a XCHG# (\xchg\C CCopiada $C - NO EXISTEBa )$CExportando tabla CC Exportada*%Crpt_ve_facturas_a_cobrar /Q \rpt_ve_facturas_a_cobrar!C Tabla Abierta-%Crpt_ve_facturas_a_cobrarN,TT No hay datos)CLa tabla volvi vaciaB1CIniciando exportacin a ExcelG+(listadosG~(ClasesTC ExportacionesNTT(TCExportaciones_ParametrosN;T+Comprobantes Pendientes de Entrega o retiro(Trpt_ve_facturas_a_cobrar CCfechaFechaCcpbtCpbtCnumeroNmero CcodigoCliente%Cnombre Razn Social'C comentario ComentarioCmonedaMoneda!CimporteImporteCsaldoSaldo#CvendedorVendedor CnomvendNombreCtranTran.CotOTCpedidoPedido#Coc_ref OC Cliente#CanticipoAnticipoCestadoEstadoTT 'CCreando la planillaCCCreada&%C \tmp\.xls0v,C Copiando  a XCHG# (\xchg\C CCopiada $C - NO EXISTElistados 8 0C Copiando  a XCHG - 2# (\xchg\C  CCopiado ( &C Error: 1 -   TT  !<CSaliendoBU"XARCHXERRXMSGXVERBOSEXSOLOPDFLOG_AUT_VERBOSEOEXCVERBOSELOG_AUTXTMPARCHXTMPFNP_LOCALFIL_DIRECTORIO FIL_TABLAFIL_EXCEL_PLANO FIL_ARCHIVOOFORM XSIN_RETIRAREXP_PDFP_SERVER EXP_TABLALISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDA EXPORTAR_XLS ESTADO_RELOEXMESSAGEDISPOSE %h TT=occclie  q_chq T T ~T  T % T T  ! TTTTCHTCiTCHTCiTdTd TT+ Td Cd 8dTCd 87%CC$idx02idx02  ZT  kU@#J {:9|1 _ z %E  \bU1*%C aSQLSvrNamebCC QTCLAUDIO)%C aSQLDBNamebCC TBroker+%C aSQLUSerNamebCC TGesLogin/%CaSQLUserPasswordbCC %TGESLoginPassword7QBOOLEANG+( _utmapper.prg G+(_ucursorAdapterGES.prgG+(_umetainfo.prgG+( _uglobals.prgG+( _ubroker.prgG BRITISHG G <  7 Q TGLOBALPARAMS7 QTMAPPER7QTDATADICTIONARY7Q TDBEXCEPTION7QINTEGER7QINTEGER7QINTEGER7QINTEGER T T T T7QBOOLEAN7QBOOLEAN7QBOOLEAN T- Ta Ta%C OS-T C TGlobalParamsN %C %COTCTDataDictionaryN%C OT CTMapperN(% BrkActivo~]CError al intentar conexin con One Line Click - consulte a soporte C TBrkErrorU ASQLSVRNAME ASQLDBNAME ASQLUSERNAMEASQLUSERPASSWORDP_CANCELSHOWSTACK _UTMAPPERPRG_UCURSORADAPTERGES _UMETAINFO _UGLOBALS_UBROKERBRITISHP_GBLP_MAPPERP_DATAD P_DBEXCEPTFTNULLFTNONEFTNODATAFTCUSTOM P_CANCELLOGP_CANCELSPLASHISDBFOERRP_BROKERSTATUSMENSAJEMESSAGEQSTRING+% CO   OB T (CtTCtC ST6* SI:Ignora, NO:No supende ms, Cancelar = Debug YA * C C %CC TTC TCxHS }C continue=2  T-  TaU ADICMSGLOLEVELLOSTACK LOCONTINUEP_CANCELSHOWSTACKOSPLASHP_GBL TECHNOCHECKSYS_M.QSTRINGQSTRINGQBOOLEAN%AB&%CC C> zTC-%C- ,CC C CCZC aU ATEXTTOLOG AFILENAME AOVERRIDE P_CANCELLOG GETFILENAMEQBOOLEANQSTRING G YMDTC CC]g]TC/%T_C^TC: G DMY BU AWITHTIMELORESULTYMDDMYq.QBOOLEANQSTRINGQSTRINGQSTRINGQSTRINGTC-&%CC C> TC:&%CC C> TTXTT\.%a T+C0]*T\_CZ.T BUANEWFILEAPATHAEXTLORESULTLOBASEFILENAMEGETDATETIMELOG LOCOUNTER,QINTEGER T%CMTftNoData%C0TCC>-6ftNone%C2TCC>-6ftCustom%C>  B %BftErrorU AFILTERTYPELORESULTFTNODATAFTNONEFTCUSTOMCOKxUDebugShowStack WriteFileLog GetDateTimeLog* GetFileName FilterToStr DSP, 1AA1AQAA#rqaba!q#!!!#!!vAqArqAAQAA4AAA2rAr21q11A3AAaAA3!aaQaA3aAaAQAA3!QAA!AQA43<i _Tv ~a 0m=m%kwmuOX1_4 1G(9 ;%C`T%CT%C T%CborrrepQ TCG+(proc_stk T -%  T-T T -%Cbienes nFQbienesdescinsF in_mantenimiento( TC SN6 TS Ta T%S~Mantenimiento de StockC (Automtico)6: Inicioin_mantenimiento.prgestadoJTa% T  T T-%H  8TC bTC 2C ERROR !!!  TC  Ta5 Ta%  T !*%!"  (C!$ %&'#C( C) T-T!C*(C!$ %&'#C(  C) T- + C,}Mantenimiento de StockC (Automtico)6: Finalin_mantenimiento.prg[ C-% . in_comienzo%CborrrepQ %Cmovstock%F0G(G-(%CtventasTF1G(G-(BU2XTIPOXFECHAXCODXAUTXDCON ACTIVEFORM DATASESSIONIDOBIEDATA_CODIGO_VACIOBORRREPPROC_STK XSOLO_PEDIDOS XRESULTADOBIENESDESCINSIN_MANTENIMIENTOXSTOCKXHORAUSER_LOG PUB_INDEXESTADOXXESTADOVISIBLEP_IN_STOCK_GLOBALXZAFAROCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJEXOLDEMPXPRIMERA_EMPRESAP_CODEMPOEMPDOSGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCENCARGAR_DATOS_ENTORNOPROCESAR_MANTENIMIENTO GET_PORCODIGORELEASE REPORTE_OFF UNLOCK_ALL OPEN_FILES IN_COMIENZOMOVSTOCKTVENTAS'%yclogmsg Mantenimiento de Stock  -%CF% ">  F % > ,>F% I> ">% F> %C F% +>  F % /> 5>F% > +>% F> %CBU XSOLO_PEDIDOSP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIOXCODBIENESCANT1CANT2CANT3ALLSTOCKCANTIDADCANT_PEDCANT_COMCANT_OCCANT_PRDSTKXDEPDESPACHOXPRIMERA_EMPRESA G_STOCK_INIFORCOD_INSCODIGO4 TaF E% %SF ETC4  T- %S T-F% >%S%F ETC4 : T- k%Sg T-%CF G((deposito E%C4 G((codigoG EG TC4  TC4  BU XCODXBULXATRXDEPXDSPXOKBIENESBULTOS ATRIBUTOSATRIBUTOSTKXCODDEPOSITOCODIGO TaET5Preparando transaccin, presione [X] para abortar ...+a Ta1 resul=.F. CTCONS%Ccons QCONSF C% .%CCCC7 fX T-!#)TBIENES%Cbienes gQbienesdescinsF% .%CCCC7 fX T-!TSTOCK%Cstock QstockF% .%CCCC7 fX> T-!TMOVSTOCK%Cmovstock QmovstockF C% .%CCCC7 fX T-!G(C C TBULTOS%Cbultos 4QbultosF % S.%CCCC7 fX T-!TATRIBUTO%Catributo QatributoF % .%CCCC7 fX T-!TSTKXDEP%Cstkxdep [QstkxdepF% z.%CCCC7 fX T-!TSTKXCOD%Cstkxcod QstkxcodF% .%CCCC7 fX8 T-!TTR04%Ctr04 ~Qtr04tr04F% .%CCCC7 fX T-!TTCCVENT%Ctccvent QtccventtccvordF C% D.%CCCC7 fXp T-!TTVENTAS%Ctventas QtventaspedidoF C% .%CCCC7 fX T-!TCOMPROMI%Ccompromi `QcompromiF C% .%CCCC7 fX T-!TROT%Crot QrotF C% .%CCCC7 fXE T-!TDESPACHO%Cdespacho Qdespacho% .%CCCC7 fX T-!TTCOMPRAS%Ctcompras  Qtcompras% 5 .%CCCC7 fXa T-!TTCCCOMP%Ctcccomp Qtcccomp% .%CCCC7 fX T-!TCOMPROM%Ccomprom 3 QcompromF% R .%CCCC7 fX~ T-!%, TSTOCKG%Cstockg Q\stockgF% .%CCCC7 fX( T-!%  T CONVER DOS%CCONVER_2 0Q\DATA\CCZ\CONVER F % .%CCCC7 fX T-!T MOVSTOCK DOS%C MOVSTOCK_2 l 2Q\DATA\CCZ \MOVSTOCK!F!% .%CCCC7 fX T-!T MOTINV DOS%CMOTINV_2  0Q\DATA\CCZ\MOTINV"F"% > .%CCCC7 fXj T-!T CCCOMP DOS%CCCCOMP_2 0Q\DATA\CCZ\CCCOMP#F#% .%CCCC7 fX T-!%C CONVER2_2 m1Q\DATA\CCZ\CONVER2$F$% .%CCCC7 fX T-!! CON ERROR &onerr C BU%RESULXXESTADOTEXTO MENSAJE_CLEARCONSFLCKBIENESDESCINSSTOCKMOVSTOCKFECHAXFECHABULTOSATRIBUTOSTKXDEPSTKXCODTR04TCCVENTTCCVORDTVENTASPEDIDOCOMPROMIROTDESPACHOTCOMPRASTCCCOMPCOMPROMP_IN_STOCK_GLOBALP_SYSTEMSTOCKGP_CODEMPP_DOSCONVER_2 MOVSTOCK_2MOTINV_2CCCOMP_2 CONVER2_2&% TC3BURESUL5G G( \temp.txtG "MANTENIMIENTO DE STOCK"---------------------- Empresa : C-Fecha de Proceso : CC$* C^7 Usuario : [CZ] 9CC Artculo : C6 Reporte :@4 Pedido Cdigo Bu At Cantidad Descripcin]C- Q C-Q C-Q C-Q C- Q C-(QGG(%G *GBUP_LOCALP_EMPR PUB_INDEXCL_NOMXCOD P_CENTURY1GG( CG G( \temp.txtG C GG( %-&% J \temp.txt*Resultados del Mantenimiento de Inventario "[\log\CCCC$R.MNT*Resultados del Mantenimiento de InventarioBU REPORTE_STOCKP_LOCALP_DEV MOSTRAR_TXTP_SYSTEMI4%Cborrrep:F TC]zh1\tmp\ N N  C C CNQ\tmp\Nrborrrep     BUXTIPXCPBXCODXBULXATRXCANBORRREPXFILEP_LOCALTIPCPBCODBULATRCAN4BG G( \temp.txtG %CborrrepF+& CZ(\borrrep ~$C@z 999,999,999_    $C@z 999,999,999_ H  ?"Stock negativo (STOCK) v$Stock negativo (STKXDEP) $Stock negativo (STKXDSP) $Comprometido en negativo Pedido en negativoGG(BUP_LOCALBORRREPCPBCODBULATRCANTIPa%C7T%CxCodbCb T%C FQ oCONVERQXmotinvQ    Q    #C   C   tmp_mov_iniciales_fullH 7otmp_mov_iniciales_fullQ C Q   1 otmp_mov_iniciales_fullQ C Q   1 otmp_mov_iniciales_fullQ C Q   1QFQFQHZ &   )&   Z&  UXFILEXALIASXCODXDFECCVTRANSFFECHACOD_INSBULATRENTRASALECANTIDADITEMDEP_INGDESPACHOCONVERMOTINVMICODIGOMOTIVOTIPO TIPOAJUSTETMP_MOV_INICIALES_FULLP_INV_INI_POR_DEPOSITOARTICULO,%CxCodbC6 T%CY FQoconver_2QX movstock_2Q C Z    M Xmotinv_2Q X conver2_2Q C   a 1QFQ%CeliminarvFQ )TC numero+causaZ z)TC numero+causaR z)TC numero+causaE z)TC numero+causaA z)TC numero+causaB zTCSELECT * FROM movstock_2 WHERE (&xdcfiltroz .OR. &xdcfiltror OR &xdcfiltroe OR &xdcfiltroa OR &xdcfiltrob) .AND. (EMPTY(xcod) .OR. xcod==codigo) INTO TABLE (xelim) Q F %INDc TT Co movstock_2C ZC00CCZR -00000000 ZC00CCZR -99999999zTC RC00CCZR -00000000 RC00CCZR -99999999z C   1 Q F  .dbf %aF%CeliminarFQTCo movstock_2cccomp_2 C!"@z 9999,999,999_!  !#S C   1Q F  F%$0& CC%AB6&' & &'& ()C & C& &&&  C Z*.dbf FU+XFILEXALIASXCODMVCONVER_2CV MOVSTOCK_2NUMEROTRANSFITEMCAUSAMOTINV_2MICODIGOMOTIVO CONVER2_2C2COD_INSFLAGFECHAELIMINAR XDCFILTROZ XDCFILTRORSYS_DOSCEN_BETWEEN XDCFILTROE XDCFILTROA XDCFILTROBXELIMODEYFUNCNEWFILE_LOCAL_TMPP_EMP P_DOSCEN_UFAXELIM1CCCOMP_2OPRECEP_IN_MANT_VERSIONCANTIDADHORACODFECBULATRPRIMARIOaFH BG-( pG-( G-(TC &~CC a 6ZF G((codins%  Ta @ E TC4%E<%C tmp_inicial+   A(TCCZ - Da C* TTF >  eCC S CX6-a% %Crtmp_in_mantenimiento !"#'%C S =FG((despachoG!EG %C4 i9CEl despacho/lote C no existe !!!$t%TR10.PRG%Despacho/Lote inexistente en movpdos. Despacho/Lote : C 9>%C+  T&COT'H'+C+ ' H #&% 5C OFU)MOVPDOSP_INV_INI_POR_DEPOSITOCODIGOBULATR TMP_INICIALDEPOSITODESPACHO XSTK_INICIALOCIERRESCIERRE_STK_INIXCODBIENESCODINSCOD_INSENCBIEFECHAXXESTADOTEXTOP_CODEMPAAA XCANTIDADCANTIDADCANT1G_STOCKLOTESCAUSANUMEROSTKXDEPREPORTARLOTECOMPROBITMEMPITEMP_DOS MENSAJE_WAITREPORTE XREC_REGISTRO XID_REGISTROINF UMANT_STKFOR NECESARIOF >-UMANT_STK NECESARIOALL FG((codinsF E%C4 Crmant_stkCaBa%C >aBa >a> >CB-U XCODIGOXMOTIVOMANT_STKCODINSCOD_INSMOTIVOFECHA REPETICION NECESARIOFECHA_EJ  T%CMant_STK MQmant_stkF~ aFTH  >T1No se realiz el mantenimiento en ningn artculo B$TRealizado en 1 articulo 0T Realizado en CCZ articulosBaUXAUTXMSGXCANTMANT_STK NECESARIO REPETICIONIN_MANTENIMIENTOCOD_INS%Cimp_tran .Qimp_tranF>F ~%FG((ordenitmECZCZ%C4>BUIMP_TRANTCOMPRASTRANSITOALLSOLORDENITMSOLITM RECEPCION%Ccompprod .Qcompprodo5compprod Q tcccomptcomprasqnoqXstkxdep         C q ~Frstkxdep     BUCOMPPRODDISTINCTTCOMPRASCOD_INSATRBULTCCCOMPDEPOSITOORDENCODDEPQSTKXDEPCODIGO= T TTTTT Inicializando1 G(ges C ges C % T C  T a C % @DC7No se puede hacer en este momento, hay archivos en uso.Bproc_stk%%Ctmp_in_mantenimientoFQTC]h1\tmp\DCCCCCNC CN N Q\tmp\%C Tfecha Tcodfec%! w"T"C#$C" tmp_inicial%F&G((articulo%() ) *T*C#$C*MOVPDOS +'SET ORDER TO &xseekindex IN movpdos #% Cmovpdos sAo movpdosmovstockǼ1\tmp\mantenimientoQF,%Q\tmp\mantenimiento,%codfec%.LINDEX ON codigo+DTOS(fecha)+IIF(cantidad>0,"A","B")+hora TAG &xseekindex (INDEX ON codigo+hora TAG &xseekindex  o%.?FINDEX ON DTOS(fecha)+IIF(cantidad>0,"A","B")+hora TAG &xseekindex k"INDEX ON hora TAG &xseekindex  T/a T0% k1trsac0bienesstockstkxdepdespachotventastcomprascons%0 T0% 2trsac0In_mantenimiento.prg Mant.StockCC : C 6C!)# Solo pedidos, compromisos y otros6%0F3 G((pendC!5%! F,H9 6cG-(& 6G-(& 6G-(7&#)SET ORDER TO &xseekindex &CProcesando Movimientos8 C9:T:C;<F=#) %aF,&~CC a 6d F>G((codins%,>@ TAa  E, TAC4%AO <%C tmp_inicial+,&  ,: K (TCC(Z - Da C,* T0TB,F>>>C>CBeC,,,,C>ES ,7CX6-B,,F,aD%G $ %CGGGHrtmp_in_mantenimiento,,,,,7,,,F,,I('%C,7 >ES G F7G((despachoG!E,7,,,G %C4 9CEl despacho/lote C,7 no existe !!!JuKTR10.PRG&Despacho/Lote inexistente en movstock., ,FDespacho/Lote : C,7 C >,%,M FLG((CONVEREC,Fg%LM F7>N,F7%C+ TOCOTP@7H'+C+ P@7 7H #O% ? C@H Y F,#% Cmovpdos %() ) CRF& C&(\tmp\in_mantenimientoԻTT Actualizando%C F>>SCFU>SFG>SF7>S #F>>SC@ FU>S FG>S F7>S@  TWXproc_stkW%C F=#) CY >ZWZ%Cpickings QpickingsF>G((codinsF\G-(@>F3 G((pend#)+C+ ;TCC(Z - Pedido CC]@z 999,999,999_%^ zF\G((pedidoGEC3]ZG T_3`%C4%\a3a]!+C+ \]3] A>4 9%\@bcCC a \@6 2%3UJ . Td Tetfproc_stk\@\\3gC\h\iDC$7%Uj *2C3]UUU\h\iHF\H!%3Uk YT_3`Fl G((IDG E_G +C+ `_ U%mM TnCO*%C C lo   ?%3UfOClolllglp-lmlqlrlsaD +%lt'F[G((picking Elt%C4 Cv SClolllglp-lmclmlqlrlsaD #Fl #n IH oKTR10.PRG)Imagen de Tccvent en Tventas no coincide.PD CC3]@z 999,999,999_ QmKTR10.PRG'Imagen de Tccvent en Tventas no existe.PD CC3]@z 999,999,999_$%3w 3w vFxG((rotuloGEC3] ZG +C+ ]3] r%zc Td Tepfproc_stkx@xx0 xcC$3FxHF3HT"TLimpiando ArchivosF{G((codigoF|G((codigoFUG((codigo T}#) ~%}%j a kKTR10.PRG2Registro duplicado de stock con cantidades # de 0.   FUT}F~G((codigoFG T}#) ~V#%}7%  KTR10.PRG4Registro duplicado de stkxdep con cantidades # de 0.    7 .%%C7 *FG% k &KTR10.PRG6Combinacin invlida en stkxdep con cantidades # de 0.    7, (Ver tambin asignaciones por depsito !!!)FGT}7 C C CC Terminando8 C[ C C#proc_stkCC$MNT T0% trsac0In_mantenimiento.prg Mant.StockCC : C 6C!)# Solo pedidos, compromisos y otros6 T %%alogmsg Fin de Mantenimientobc  - TBUOLD_P_IN_VERSION P_IN_VERSIONXXESTADOMINMAXVALUETEXTOGESSETSABRIR_TABLAS_FIJASP_IN_MANT_TRANSXOK USE_FILESUSE_FILES_TRANMENSAJE SAVE_STOCKPROC_STKTMP_IN_MANTENIMIENTOXTMP_IN_MANTENIMIENTOP_LOCALFECHACODIGOATRBULLOTEDEPOSITOCANTIDADCOMPROBCAUSAITMEMP XSEEKINDEXXCOD XSOLO_PEDIDOS XINVINICIALODEYFUNCNEWFILE_LOCAL_TMPTOMAR_INVENTARIO_INICIAL TMP_INICIALARTICULOP_CODEMPP_DOSXPATH_M2 CREAR_MOVPDOSMOVSTOCKMOVPDOSP_IN_MANT_VERSIONTRSACAAALOCK_GBEG_TRANTCCVENTPEND INICIALIZAP_INV_INI_POR_DEPOSITODESPACHOAVANCE REPORTE_ON XSTK_INICIALOCIERRESCIERRE_STK_INICONSBIENESCODINSCOD_INSENCBIE XCANTIDADCANT1G_STOCKLOTESNUMEROSTKXDEPREPORTARITEM MENSAJE_WAITREPORTECONVERIMPORTACINICIAL XREC_REGISTRO XID_REGISTROINANALIZAR_MOVSTOCK_P_DOSSTK_ULTALLSTOCKFORXNEW_HORHORAREG_LOCKHOR_ULTPICKINGSTVENTASPEDIDO P_ROTULOSXIDIDCOD_CLIOBIEDATA_CODIGO_VACIOSTK_ERRSTK_TST ACT_STOCKDEP RECEPCIONRECEP2CANT_PED P_PICKINGCOMPROMCANREGISTROCODDSPCAUNUMFECPCKPICKINGESTADOEST_DESPROTROTULOBAJABULTOSATRIBUTOOLDSTKXCODCANT_COMVLD_BIEMANTENIMIENTO_OCMANTENIMIENTO_TRANSITOMANTENIMIENTO_STKXDEP MENSAJE_CLEAR UNLOCK_ALL CHECK_STOCKEND_TRANTTS_IDP_LOGSTKLOG_STKLOGMSGF~NF~Oproc_stk -C   DBU TCCCOMPPENDTCOMPRASORDEN ACTUALIZAR_OCPROC_STKCOD_INSATRBULDEPOSITO RECEPCIONRECEP2RECEP3[%Ccons &QCONS%Cbienes TQbienes%Cstock Qstock%CMOVSTOCK Qmovstock%CBULTOS Qbultos%CATRIBUTO Qatributo%CSTKXDEP BQstkxdep%CSTKXCOD rQstkxcod%CTR04 Qtr04%CTCCVENT Qtccvent%CTVENTAS Qtventas%CCOMPROMI .Qcompromi%CROT VQrot%CDESPACHO Qdespacho%CTCOMPRAS Qtcompras%CTCCCOMP Qtcccomp%CCOMPROM Qcomprom%%Cstockg cQ\stockg%Cstkxdepg Q \stkxdepg%  P%CCONVER_2 0Q\DATA\CCZ\CONVER%C MOVSTOCK_2 `2Q\DATA\CCZ \MOVSTOCK%CMOTINV_2 0Q\DATA\CCZ\MOTINV%CCCCOMP_2 0Q\DATA\CCZ\CCCOMP%C CONVER2_2 L1Q\DATA\CCZ\CONVER2BUCONSBIENESSTOCKMOVSTOCKBULTOSATRIBUTOSTKXDEPSTKXCODTR04TCCVENTTVENTASCOMPROMIROTDESPACHOTCOMPRASTCCCOMPCOMPROMP_IN_STOCK_GLOBALP_SYSTEMP_CODEMPP_DOSCONVER_2 MOVSTOCK_2MOTINV_2CCCOMP_2 CONVER2_2 inicializavld_bie use_filesZflck reporte_on reporte_offU"reportar# reporte_stockp%tomar_inventario_inicial' crear_movpdos'-analizar_movstock_p_dos4chequeo_finalizado;chequeo_preparar;insertar_mantenimiento.<mantenimiento_automaticox=mantenimiento_transitob?mantenimiento_stkxdep~@procesar_mantenimientoyBmantenimiento_oc0duse_files_tranAeqAA1AAA"2AqAB"2A11qbAAArrBBABBaAAqaaAqaaAB2q1AUr#ArArA%qAArArAVrrArqA!ABB4qrbAq1AAAAraAq1AAAA"qaaA1AA2QBaAqAAAAQbAqAAAARqAqAAAAAAqAAAA2b!AqAAAAAAqAAAAr1AqAAAAr1AqAAAABaAqAAAArAqAAAArAqAAAAAAqAAAA2QAqAAAAAAAAAAAAAAAAr1AAAAAr1AqAAAA2aAqAAAAAAqAAAA!AqAAAAAqAAAAAqAAAAAqAAAABDB22AA3ca(!qqqqQqqbaaaAB2bagaaaAAB2qtBA2AbaqAA1!1A1A1A1AAAbaB211AAAA137 1W ABrA!1a11A4AAA~ C!qAA Bb B1BqAABB3!A23r1q11ArbuArsQcQA tqbaDAAqAAA2ABABBrB5s2q2qr2qAqAq3qAArqA11A1Aq3AArr1qrAABBB2AAaAB3wcQ2AAAA2SqAA t!1ArrqqA2ArQ1A1a!AABB4A22 A2r|1q11ARbrrQsauArsQbQA vrbaUArqbrAArAqAAA3ACABBrB2ABratTqrrrqqrqrqrqBqVsQABBBAArrvQ rbabNb!ABBrAArba2aes7BBArBBBAAAABsbaBqAABAsAAr!trrQAANrQAsrQ1AARrA AAArAB2A2 ABAC2tQrqBBB3bA!ArAAA!AAA1A1AbA1A1AAARAAAAA1A1A2AAAA!AAAABB3kp? 1u1K1b1457'7939g<9R<G]t)GT@THe)ueLfsfff'j XjGlulm 1np$;q<:YUt%"@P U1G(9(%Ctmp_pedidos_pendientes f.Q\tmp\tmp_pedidos_pendientes ve_consolidar_pedidosG+(listadosG~(clasesTCBU ACTIVEFORM DATASESSIONIDP_LOCAL OPEN_FILESVE_CONSOLIDAR_PEDIDOSLISTADOSCLASES XRESULTADO REGISTRAR^ Ta T#trsac pd_consol T%I TMtrsacVe_consolidar_pedidosConsolidacin de pedidos%TC% T T *TMtrsacVe_consolidar_pedidosConsolidacin de pedidos THE 2+%   % GC Se ha registrado el consolidado CC@z 9999,999,999_  B 2E B SBU TRSACAAALOCK_GXCONSOLBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_ID TTS_ERRORIMPRIMIR_CONSOLIDADOMENSAJEr T%Cq1FQ TCFG((consol#6TF ~2FG((pedido E%C4T1oarmado  q% C El pedido CCZ% est armado con el nmero de armado CCZ !!!C 5Debe anular el armado antes de volver a consilidarlo. T! PLT  Consolidado: CCZ Pedido:CCZ DesconsolidadoR C ZG  ve_armado.prgC ZP ^5r pd_consolIT  Consolidado: CCZ Pedido:CCZ ConsolidadoR C ZG  ve_armado.prgC ZP%CqSFQ[ T- BUXERRORQ XFECHAHORA PD_CONSOLCONSOLXCONSOLTMP_PEDIDOS_PENDIENTESPEDIDOARMADO CANT_ARMAMENSAJEINXMSGUSER_LOG PUB_INDEX FECHAHORATRSAC#%Carmado *Qarmado%C pd_consol ^Q pd_consol%Cstock Qstock%Cbultos Qbultos%Catributo Qatributo%Cbienes QbienesBUARMADO PD_CONSOLSTOCKBULTOSATRIBUTOBIENES ve_consolidar_pedidos%Cstock HQstock%Cbultos vQbultos%Catributo Qatributo%Cbienes Qbienes%CqFQ%Cq1FQ(%Ctmp_pedidos_pendientes r-Q\tmp\tmp_pedidos_pendientes T  T  T  T  T  T T T T/ve_procsC ZPITC , C , (C ) C , CC fF#)TFG((codfle EH CKTC , C , (C ) C , CCC f @TRETIRA pT NO SE ENTREGA 2WTC, C, (C ) C!, CC"fF T# T$ ~VT##CC# ! 6(C%) CZC&'* 6=T$$CC$ ! 6 C(Z #)"C)clientescodcliT*+T,) T- T. C/#T0pedidos_consolidar.frx T1 T2 T3T4 pd_consolidT5.t.C6listados032145aaaaa-FQBU8 OPEN_FILESVE_CONSOLIDAR_PEDIDOSSTOCKBULTOSATRIBUTOBIENESQQ1P_LOCAL XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDDOMICILIO_ENTREGA_REALVE_PROCSTMP_PEDIDOS_PENDIENTESPEDIDOFLETEZDESTINO_FINALPROVINCZFLETEFLETESCODFLETIPOZENTREGANOMBRE DOMICILIOCOD_ZIPCIUDAD PROVINCIA ZPEDIDOS_TXT ZPEDIDOS_TXT1LETRASUCFACP_DOSCENITEMSCODIGOZCLIENTE_NOMBRECLIENTESZCLIENTE_CODIGOZLITROS ZCANTIDAD CONSOLIDAR XFORMULARIOXCOPIASXDRIVERXDESTINO XIDARCHIVO XFILTRODATOSIMPRIMIR_FORMULARIOLISTADOSotventasQtmp_pedidos_pendientesQQCXQ CXQ C XQ C XQ  Q NQCXQCXQCXQQQ Qq1oq1-q& F ~FE%C4 F*>@> C CC , 6CF%FG((codins E T T T  T!C T"#%$SJF$G((codigoE T TT&C$ F'G((codigo ECX T  T"' a T&%(SF)G((codigoET*C)  T*F'G((codigo,%%4 ECX"%C C jT+' T+F%C' T,C' 'T,CC! C* C&8>   "L>&*C(S $S '6)>C$S $6> ,+%-"T..CC TT//%0INDF~C HK 590p> 1 490> 2 460> 3 462> 4 499> 5 C8611/> 6 C8775Z> 7 C8760> 8"& CCgZCCgZBU1PLETRATPEDIDOCOD_INSATRBUL RECEPCIONRECEP2 PEDIDO_TXTDESCRMEDIDAMEDAUXFACTORLOTESCODALTBULDESCATRDESCSUBGRUPO CANTXBULT UBICACIONTVENTASTMP_PEDIDOS_PENDIENTESQ1QOBIEDATA_CODIGO_VACIOBIENESCODINSXMEDIDAXMEDAUX MEDIDAAUXXFACTOR XBIEDESCRXCODALTCODALT1BULTOSCODIGOXBDESCRSTOCK ATRIBUTOSATRIBUTOXADESCR XUBICACIONXDESCRLINEAZLITROS ZCANTIDADP_EMP+ 4 Ta T#trsac pd_consol T% TTtrsacVe_consolidar_pedidosAnular consolidacin de pedidos%$TC% T  T <TTtrsacVe_consolidar_pedidosAnular consolidacin de pedidos TH  &CConsolidacin anulada !!! 2  T BU XRESULTADOXCONSOLTRSACAAALOCK_GBEG_TRANTRANSACCION_ANULACIONEND_TRANTTS_IDMENSAJE:F~ZAnula consolidacin CCZC ZPLT Consolidado: CCZ Pedido:CCZ DesconsolidadoRC ZG ve_armado.prgC ZP[ T - BU PD_CONSOLCONSOLXCONSOLUSER_LOG PUB_INDEXPEDIDOINXMSGTMP_PEDIDOS_PENDIENTESTRSAC registrar^ transaccion@ open_filesZimprimir_consolidado consolidaranular_consolidadoktransaccion_anulacionA"I33222AA1qrABBB3x"qAAtQwr" A!BBV!D"qAAB3!AQArA!AAA!AB3rA!AAA!A#qAA3qAAArQrb1bqBrbAR"54sAB2bbtrqQAsaq!rq1"rArq1!ArA"Ar!qAtb!ABABbt1abbbbBBC"B232A22AABbBA3zA!BC1 D&+>]T1zhax(L(l,5,/8%{ m O T)2U)QVARIANT TUOMSGA TUOMSGA-QVARIANT TUOMSGSECIDAU>QVARIANTQINTEGERQSTRINGQINTEGER TUOMSGSECIDIPFSECFULLA6QSTRING TCU TXT_ERRORAMENSAJE7 T- T- T-UOMOEXOEXFILE T\SFC%C = $%C \SFC\DotNetFX { \DotNetFX'%C\DotNetFX\Unpack \DotNetFX\Unpack%C.\DotNetFX\WindowsInstaller-KB893803-v2-x86.exe0 AC7\Inst\SFC\DotNetFX\WindowsInstaller-KB893803-v2-x86.exe0 }7\Inst\SFC\DotNetFX\WindowsInstaller-KB893803-v2-x86.exe(.\DotNetFX\WindowsInstaller-KB893803-v2-x86.exed%C\DotNetFX\Unpack\Install.exe0 /C%\Inst\SFC\DotNetFX\Unpack\Install.exe0 }I\Inst\SFC\DotNetFX\Unpack\*.*(\DotNetFX\Unpack\*.*H%C\Setup_SFC.exe0 !C\Inst\SFC\Setup_SFC.exe0 9\Inst\SFC\Setup_SFC.*( \Setup_SFC.* 1!TCwwAPI wwapi.prg(/ }4TCwwAPIf:\sistema\2000\ip\wwapi.prg(+ 4TCwwAPIc:\sistema\2000\ip\wwapi.prg(' 4TCwwAPIe:\sistema\2000\ip\wwapi.prg(#XTCHKEY_LOCAL_MACHINE SOFTWARE\Microsoft\.NETFramework InstallRoot-.| ShellExecute SHELL32.DLLB%CtFMPbC%Cv2.0.50727\InstallUtil.exe0 uT Copen.\DotNetFX\WindowsInstaller-KB893803-v2-x86.exe/QUIET /NORESTART \DotNetFX\ZT Copen\DotNetFX\Unpack\install.exe/Q\DotNetFX\Unpack=T Copen\Setup_SFC.msi/Q\U OAPI XBASEPATH P_EXE_PATHXP_SRVOEXTFMPREADREGISTRYSTRING SHELLEXECUTESHELL32DLLXERROR__Mensajes_Entrada,__Mensajes_Respuestaf__Mensajes_Envio_sec__Mensajes_Envio_sec_IP__Mensajes_SocketErrorUchk_DLLsInstalart? __MENSAJES*{24192D5E-63DF-47FE-B05B-CABBF15837B2}#1.0     UINGESSYSSESSION8 9!r3qr2aq2q2r53`1Q1AAaAqABBAAAAAAAAA"UA370 n z/%PBH&% r3-fUG2U:%3  \SYSMSG.EXEUP_SYSMSG_INICIAR SYS_KILLPROC P_MSG_PATH- %"B %C SYSMSG.EXEMBa%nTC  Ta% C &0| ShellExecute shell32.dll&|GetDesktopWindowwin32api+Copen SYSMSG.EXE U XOKXSYSMSGPPI_INICIO_MODOODEYFUNCPROCESO_ACTIVOP_SYSMSG_INSTALARCHK_INSTALACIONP_SYSMSG_INICIAR SHELLEXECUTEGETDESKTOPWINDOW P_MSG_PATH0| ShellExecute shell32.dll&|GetDesktopWindowwin32api+Copen SYSMSG.EXEU SHELLEXECUTEGETDESKTOPWINDOW P_MSG_PATHh Ta%)B%Z T T C,%C \SYSMSG.exe0  4   \BMP  \Empresa  *\TMP 4 ^\*.bin( h \*.cfg(  \*.cfg(  \*.dbf(  .\*.cdx( 8 b\*.fpt( l \*.f*(  \*.ges(  2 \empresa\*.*( \Empresa\*.*  U*\bmp\*.*(\BMP\*.* _ *\tmp\*.*(\TMP\*.*  -\inst\sysmsg*.*(\*.*  &2\inst\sysmsg\*.*(\bmp\*.* 0 Ta X T- BUXOKPI_INICIO_MODO P_EXE_PATHP_LOCAL P_MSG_PATHP_SYSTEMCHK_SYSMSG_Salida0 CHK_SYSMSG CHK_IniciarnCHK_Instalacion&42B21AAqAAaA2a2q1AA1AA!AaA!AAAAAAAAA!AAAA!AAA1#y %0 *% 4LJRi2UD%CC>2TC: BCfUXLETRA %CxForzarbN5 T+|WNetCancelConnectionWIN32API  TTC TCC  BUXLETRAXFORZARWNETCANCELCONNECTIONWIN32APIXCONXLET2THISMAP_AGREGARPUNTOS*|WNetAddConnectionWIN32API  TTC TC  BU XLETRAXUNCXUSERXPASSWNETADDCONNECTIONWIN32APIXCONXLET2THISMAP_AGREGARPUNTOS,|WNetGetConnectionWin32ApiTCTCX TTCTC%BC=  BU XLETRAWNETGETCONNECTIONWIN32APIXREMOTOXLARGOXLET2THISMAP_AGREGARPUNTOSXOKMap_AgregarPuntos0 Map_Borrar Map_AgregarMap_Info+    UNetHLPCUSTOMb3qqAA2AQA21QA2qQ1!A4@1>% IR s1%.!=%_g:`iX24#%C xtipo_procesobLG T%CoPedAVFPbO G(9 TT CXT CXT CXT CXT CXTCXTCX%Cagente %Qagente%Cclientes WQclientes%Cbienes Qbienes%Cbultos Qbultos%Catributo Qatributo%5!ve_reanalizar_pedidos(% 1BT and .t.%C .T.and. tccvent.pedido=CCZ%C ,T.and. tventas.cod_ins=xdbie%C (T.and. tventas.bul=xdbul%C L(T.and. tventas.atr=xdatr"% CX CX %FT5 and betw(val(tventas.cod_cli),val(xdcli),val(xhcli)) 7T& and betw(tventas.cod_cli,xdcli,xhcli)"% CX CX %%DT3.and.betw(val(ccvent.agente),val(xdage),val(xhage)) 5T$.and.betw(ccvent.agente,xdage,xhage) %8HT7.and.betw(val(clientes.vendedor),val(xdage),val(xhage)) {9T(.and.betw(clientes.vendedor,xdage,xhage)"T\tmp\CC]R ve_pedidoG+(listadosG+( ve_pedidoG+(ve_procsTC!" T#$ log_errores##%Cpedidos_a_analizarZF&QT'C(L)ve_control_de_pedidos'pedidos_a_analizarF&F&F&%F+G((pedidoF&G-(,+&+. F&3& C /ZC 0ZC, Z,(CAnlisis previo. Suspendo?a1 ~5Ca&,CCoPEDAVFPbO62C&,3 C4%F&G((pedido ~E5C-&,CCoPEDAVFPbO62 T5,6 log_errores#5%#%Cpedidos_a_analizarF&Q.* BU7XAUT XTIPO_PROCESO XFILTRADO XTMPPEDIDOOPEDAVFPXARCHIVO ACTIVEFORM DATASESSIONIDXDRIVERXDCLIXHCLIXDAGEXHAGEXDBIEXDBULXDATRAGENTECLIENTESBIENESBULTOSATRIBUTOVE_REANALIZAR_PEDIDOSXRESXFILTRO_PEDIDOSP_CLINUM P_AGE_TIPOP_AGENUM XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOLISTADOSVE_PROCSODEYFUNCNEWFILE_LOCAL_TMP XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESPEDIDOS_A_ANALIZARXFILTRO_ANALISISFILTRO_ANALISISOBTENER_PEDIDOS_PENDIENTESVE_CONTROL_DE_PEDIDOSPEDIDOS_PENDIENTESPEDIDOINTILDE PRIORIDADIMPORTESYS_MOSTRAR_SCREENANALIZAR_PEDIDOREGISTRAR_PORCENTAJESCOMPLETAR_APROBARXOKLOG_ERRORES_MOSTRAR-4FTCC+CO6%]estadoJ yestadoJ"T Analizando PedidosT T T  JT Analizando Pedido CC@z 999,999,999_ de   C T$ve_control_de_pedidosTCFTC %C C J- %- F- T T- T TT T- T- T-"T \tmp\CC]R"T! \tmp\CC]R T" T# T$ T%a C&G+(listadosG~(clasesT)"T* \tmp\CC]R+ ve_pedido T-&T.ve_reanalizar_pedidos.prg-T/ Reanlisis de Pedidos Rechazados0trsac-stockstkxdeptccventtventascccliecompromicompromcliauxve_transitm_desc%- T-2trsac-./ T3a T4- T5a T6-%CtmpcmpF7Q T8c<9 98 T:;inicial:<= =>JC X(=G+( ve_pedidoG+(ve_procsG~(clases%@ D T 6aTAC]TBCX TC- TD- T E- T E- CF% <,GHITJ9KLTAMG+( ve_pedidoTNCOFPG((rotuloGEC ZG ,%C+ R  6 4 NCAAtencin !!! Si modifica el pedido, deber volver a rotularlo !!!SFTG((pedidoG ECZG TUCC+CO6 TVa TWC4 TXTYN%5 N S TXC XT?CXT@N TA TB TC TD TE TFTGH TI TJ TK TLTMNTNN TO TP TQ TR TS TT TU TV TW TX TY TZ T[ T\T]^T_` Ta Tb Tc Td TeTfgThiTajTbkTclTdmTenTopTqrTstTuv Tw-TxTy Tz{ T|} T~ T%&dlogmsgCXC XCXCX -beg: Ct pr_funciones%%Ctmp_assemblies~FQC!Q!F+CN  >CO CaCP\ C T- T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T TF%&G((codcli E TT TC XTN%S?TT%80TC X  TCC[ %TeC ; TT80 TT%T80%80TC X  TCC[ TeF #^ T TTR J(Z T T:TCe  TTTTT T T T<   T'TC\0 SN6 T T T T T T T T T T T T T T T T T T T T TFG((codage EFG((codfle E F G((plan E%*% >+&>,%&>-.>/0. >1o >2q >3F*%&os  v$F>4'GG( T5 T6 T78C'Reanlisis: Anlisis previo de pedidos.8 -F%&os  q  M'C. .0.6&4C. .0.6  r*FH>9CC93 Hay algn artculo con stock y supera los mnimos.H%' ?&T:DF/>9CC9 Criterio: Va a desglosar. &T:AF?>9CC9* Criterio: Va a mantener solo el aprobado. 2' T:FV>9CC9A Sin criterio, aprueba solo en su totalidad o mantiene rechazado. T;-%q'< ve_aprobacion%q'T:D T;a T>T?@=%CCC CC 66A 1( T7BB El Pedido CCZ dio error al guardar !!! n*HL(j* ;(2BSe aprob el pedido CCRZ :D*%>)$ve_control_de_pedidos>%t;)MB Del Pedido CCRZ se desglos el CC>Z !!! )iB Del Pedido CCRZ se desglos el CC>Z pero rechazado por gerencia !!! *GB El Pedido CCRZ dio error al desglosar !!! :Aj*OB Del Pedido CCRZ" se descartaron los rechazados !!! -GG( T5 T6 T7%&, %q  Y,%os ,X%'C. .0.6&4C. .0.6 Y+ ,C%Reanlisis: Lo aprobado del cliente (CCC'4D@z 999,999,999.99_) no supera el mnimo CCC. .0.6@z 999,999,999.99_8 U,9C(Reanlisis: No tiene crdito suficiente.8 ,UCDReanlisis: Est rechazado y no tiene criterio de desglose definido.8 ,8C'Reanlisis: No hay artculos aprobados.8 B-.CReanlisis: Error en get_cli.8T -<F%- #BUC XANALISISXPEDIDOXDRIVERXDESTINO_FORZADOPEDIDOS_A_ANALIZARXREG P_SININTERFAZESTADOOESTADO1TEXTOMAXVALUEVISIBLENOMBREAVANCEXMSGPOSICIONAR_EN_PEDIDOVE_CONTROL_DE_PEDIDOS XCRITERIO CRITERIOSTCCVENTXFILTRO_ANALISISFILTRO_ANALISISXTIPOPEDXEXTERNO XREP_CANT XREP_MESES XREP_ULTIMA SIN_STOCK XSIN_IMPORTESXNO_FC XLOTESXIT2P_LOCAL XASSEMBLIESXFIS_IMPXFIS_CONXFIS_VEL XCON_IMPORTESABRIR_TABLAS_FIJASLISTADOSCLASES XUSR_AP_STK XTEMPCOMP OPEN_FILES VE_PEDIDOAAATRAN_PRGTRAN_TXTLOCK_GTRSACBEG_TRANAUTDIRREAINMTMPCMPMAXARRARRXTITTABLASINICIAL XARR_REMITOSP_VE_MAX_REMITOSVE_PROCS P_ROTULOSXID XUNEGOCIOSXREMITOS_YA_LEIDOSALFASINSTK RESET_FILESDATOSCOMPROBTOTALES OLDSESSION ACTIVEFORM DATASESSIONIDIDXAPROB_ANTERIOR FN_APROBACIONROTROTULOPEDIDOMENSAJETVENTAS BEG_TVENTAS YA_EXISTE YA_CARGADO RE_ANALIZOXBLOQUEO IIBB_PROVREG_SUCXCOD_CLIXRFCXSUCFACLOCALESVE_024P_SUCXSUCFACRXSUC XOTRO_CLIXCUITXCOFINXNOMBRE XUSAIVAANT XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XCNDSP_DESCR XCNDSP_CUOTAXCNDSP_NO_DESGL XCNDSP_PLAZOXCNDSP_ANTICIPOXCNDSP_VALORESXCNDSP_NEGOCIO XCNDSP_C1D XCNDSP_C2D XCNDSP_C3D XCNDSP_C4D XCNDSP_C5D XCNDSP_C6D XCNDSP_C7D XCNDSP_C8D XCNDSP_C9D XCNDSP_C10D XCNDSP_C11D XCNDSP_C12D XCNDSP_C1P XCNDSP_C2P XCNDSP_C3P XCNDSP_C4P XCNDSP_C5P XCNDSP_C6P XCNDSP_C7P XCNDSP_C8P XCNDSP_C9P XCNDSP_C10P XCNDSP_C11P XCNDSP_C12PXCNDSP_DIASCHQ XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIRXCLIGLN XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENTXENTGLN XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROSXREFCCXLETREFXNUMREFXREFNUMXCAUXCUO XSUCFACREFXREFXFECREF REFERENCEDXFCE_RECHAZADOXAP_EVAL XAP_CREDITO XAP_ATRASOXAP_ATRASO_GLOBAL XAP_CRED_CHQ1 XAP_CRED_CHQ2 XAP_CRED_CC1 XAP_CRED_CC2XAP_CRED_DIAS1XAP_CRED_DIAS2 XAP_RECH1 XAP_RECH2XAP_FACT_PENDIENTES1XAP_FACT_PENDIENTES2XAP_CREFXAP_FREFXTRA_NUM XTRA_FECHA XTRA_ENTREXCOB_CLIXCOB_EMP XOC_APROB XOC_FECHA XOT_FECHAXARM_COD XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXHXSUCURSAL_CAMBIADA ZARR_TEXTOS XMAXTEXTOSXORIPEDXESPOBS XPRESUPUESTOXRES_VEGET_CLISUCURSALXTIPO_NCTIPO_NCXFECEMIFEC_VENXFECENTXFECENT2P_ENT_EXT_DIASXHORARIOHORARIOCLIENTES XVENDEDORVENDEDOR XCOMI_VENCOMI_VEN XCOMI_DISCOMI_DISXFLETECOD_FLEXDISTRIBDISTRIBXLISTAP_DOS SYS_DOSCEN P_DOS_LISTALISTAXPRODXOTXTRANXTXTCPBT XTXTREMITO XTXTCPBT2 XTXTREMITO2 XCONTACTOXMOTIVOXPLAN XPLAN_LEIDOXOC XPRIORIDADXDEPOSFN_DEPXPEDVEN XCENCOSFACXNRE XCOTIZACIONXCOTIZACION_FECHA XPROMOCION XREVISIONXREVISION_ACTUALXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGA XFCE_CONCEPTOP_FCE_V1_CONCEPTOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONXPERASOC_DESDEXPERASOC_HASTAXREF_MOVXFCE_FEC_VENCPAGOXREF_EXT XPLATAFORMA XNICKNAMEXFCE_REPROCESOXFACTURA_ELECTRONICAXFCE_IDXFCE_CAE XFCE_VENCXTIPO_COMPROBANTEXPERMISOXFEC_INIFEC_INI XNCNDMOTIVOXMONEDAXCAMBIO XERRMONEDAXDIVISASXTCFIJOXCOMPLXACOPIO XACOPIO_RESTOT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_DESC_CONST_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XITMCOMFITMCOMFXITMCOMRITMCOMRX1X2X3X4X5TEX1TEXTO1TEX2TEXTO2DES1DES2DES3DES4DES5 AP_CREDITOCREDITOAP_STOCKSTOCK AP_GERENCIAGERENCIA EST_DESPACHOEST_DESP XDESCRVARORIPEDESP_OBSMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYNP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIOCREAR_TMP_LOTES PR_FUNCIONESP_VE_ASSEMBLIESTMP_ASSEMBLIESCREAR_TABLA_ASSEMBLIESITEMLEER_PD VE_TRANS_GET INIT_OTROSGAMMAT_IBT_IB_14T_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_RECARGO T_TOTIVAINCT_VALORDECLARADOTX_VALORDECLARADOTX_IBTX_IB_14TX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOCOD_CLICODCLIXIVACATXTIPODOC XDOCUMENTOXRG5329TARJETAIVACATTIPODOCCUIT INSCRIPCIONUMFAC XZONAFRANCA ZONAFRANCA XTRANSFERIBLETRANSF XLETRAREM XERR_PERCEP XMSG_PERCEPXPORCENTAJE_IIBBPERCEPCION_IIBBT_VALORT_PESONPESONETOT_PESOPESOT_BULTOSBULTOS T_VOLUMENVOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAARR MAXIVAARR T_CONSFIN INSCRIPTOT_DESCOM T_DES_NACT_IVA T_IVA_RG5329T_IVA26T_FINAL TX_DESCOMTX_IVA TX_IVA_RG5329TX_IVA26TX_FINAL XDESCADIC XDESCADI1 XDESCADI2 XDESCADI3 XDESCADI4 XDESCADI5 XDESCADI6AGENTECODAGEFLETESCODFLECONDCOBRPLANVARIABLEPLANVARCDESCRCUOTANO_DESGLPLAZOANTICIPOVALORESNEGOCIOC1DC2DC3DC4DC5DC6DC7DC8DC9DC10DC11DC12DC1PC2PC3PC4PC5PC6PC7PC8PC9PC10PC11PC12PDIASCHQXBONIF TXT_BONIFXNUMXCAUSADEUDAP_VE_AP_STOCK_VERSIONXCOMPROMISOS_ANTERIORESCOMPROM VE_AP_CREDITO VE_AP_STOCKTEMPCOMPAPROBTOT_COMDESC1DESC2DESC3DESC4DESC5 XCANT_ARTXARTICULOS_APROBADOSXTOTAL_APROBADOCOD_INS RECEPCIONART_TOTART_APRART_REC CLI_MIN_P VE_MIN_PED GLB_MIN_PCONSAP_CREAP_STKCRITERIOIMP_APRSTK_ERRSTK_MSG TTS_ERRORFIN_TRAN REANALISISXOPCPEDXDESGLOSE_POR_COMPATIBILIDADBAJA_STOCK_PEDIDO VE_APROBACIONXPEDIDO2XDTDT GUARDAR_PDLOCAL_LOG_ERRORES_INSERTARgFG((codcli%; E%BCC 6UCLIENTESCODCLICOD_CLITCCVENTVE_DESP<4& log_erroresBUXIDXTXTXNOUNICOLOG_ERRORES_INSERTAR LOG_ERRORESP_CODEMPq F>& G((cliente T T ~(%% %Cccclie QccclieFG((porfacpG EG T +C+   % P~F G((tccvordECC,g%zT   FHCclientescodcliF TCO T-~7T' C 6 >> C 6 %~Pedido CCZ=: Para aprobarlo se consideraron otros pedidos aprobados por CC @z 999,999.99_ # T TT% %Cccclie tQccclieFG((porfacpG EG T +C+   O% P@F G((tccvordECC,g%<T   FHCclientescodcliF TCOF T-~7T' C 6 >> C 6 %~Pedido CCZ=: Para aprobarlo se consideraron otros pedidos aprobados por CC @z 999,999.99_FF ~f %    >C  6C  6  3FH>!CC!3 Hay algn artculo con stock y supera los mnimos.H/ T"DF/>!CC! Criterio: Va a desglosar. >#a T"AF?>!CC!* Criterio: Va a mantener solo el aprobado. >#a 2/ T"FV>!CC!A Sin criterio, aprueba solo en su totalidad o mantiene rechazado.$%$ % + >#a b F%# %  % I%C  6C  6   >!CC! Lo aprobado del cliente (CCCD@z 999,999,999.99_) no supera el mnimo CCC  6@z 999,999,999.99_  2>!CC! No tiene crdito suficiente.  N>!CC!9 Est rechazado y no tiene criterio de desglose definido. ^ 1>!CC! No hay artculos aprobados.BU&PEDIDOS_A_ANALIZAR IMP_APR_PIMP_APRALLCODIGOCLIENTEXOLDXACCCCCLIEPORFACP XACC_APROBCOD_CLICAUSATCCVENTTCCVORDCOMPROBEST_DESPTOT_VENDES_COM XREGISTROXHUBO_APROBADOSCLIENTES VE_MIN_PEDCONSAPROBARLOCAL_LOG_ERRORES_INSERTARPEDIDOART_APRAP_CREGERENCIAAP_STKCRITERIO CLI_MIN_P REANALISISXOPCPEDOKART_TOTART_REC%n[BRest_desp=0 .and. (tccvent.stock=2 .or. tccvent.credito=2) .and. tccvent.gerencia#2 +B"est_desp=0 and tccvent.gerencia#2UP_VE_ANALISIS_FILTROBUPEDIDOanalizar_pedido criteriosQlocal_log_errores_insertar.pݟy%tx-12U1T** BUTCSTRINGLCRET#TC TC TC  TTC>(TCC\ %C@ TCC [TCC\ TTCCgG  TTCC C TCC C TCC C BU TCSTRINGLCSTARTLCSTOPLCRETLCCHECKLNLONGLNI LNCHECKSUMLNASC#TC TC TC  TTC>(TCC\ %Cc TCC [TCC\ TTCCgG  TTCC C TCC C TCC C BU TCSTRINGLCSTARTLCSTOPLCRETLCCHECKLNLONGLNI LNCHECKSUMLNASC' TC TC TC TCTC>%CGT0TC> T( !TCCC\g   TTC>(sT CC\ T TCCgG  TTCC C TCC C TCC C BU TCSTRINGLCSTARTLCSTOPLCRETLCCHECKLCCARLNLONGLNI LNCHECKSUMLNASC, 9      TC%C> q B T  ( %C GT  CC \g T  CC \gT C  G+TCCC  6Z%X BT CC=gT  AAAAAACCCCCCT  AABABBCCCCCCT  AABBABCCCCCCT  AABBBACCCCCCT  ABAABBCCCCCCT  ABBAABCCCCCCT  ABBBAACCCCCCT  ABABABCCCCCCT   ABABBACCCCCCT   ABBABACCCCCCTC # TC! TC- TC \ ( TCC  \H3 Ao(TC CCC \g0 [ B(TC CCC \gA [ C(TC CCC \ga [1TC\C\ BUTCSTRINGTLCHECKDLCLATLCMEDLCRETLCJUEGOLCINILCRESTOLCCODLNI LNCHECKSUMLNAUXLAJUEGOLNPRI+ # TC%C>[ B T(%CGTCC\g TCC\gT C G+TCCC  6Z%B BTC! TC- (%(TCCCC\g0 [ (TCCCC\ga [-TC\C\ BU TCSTRINGTLCHECKDLCLATLCMEDLCRETLCINILCCODLNI LNCHECKSUMLNAUX6' TC( TC) TCTC> T T  (6TCC\gCC G6T  T C G+TCCC  6ZTC>%CGtT0TC> T(%CC\g2 !TCCC\g0   !TCCC\g T BU TCSTRINGLCSTARTLCSTOPLCRETLCCHECKLCCARLNLONGLNILNSUMLNAUXLNCOUNT_StrTo390 _StrTo128Az _StrTo128Bm _StrTo128C` _StrToEan13 _StrToEan8^ _StrToI2of5 @1qqq=q21AaA=q21AaA<qr1!AAaA?QAAA!AC2RAAAAA?3QAAA!A1AA>qrbA!!AAAR5 $ 4 W3`yOr!%'+'%6ETa>T2 TC a CTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcTLT  val(deposito)CP U BBB DEY_FUNC2SETSCL_ATRCL_NOMP_DEV P_SUSPENDCXPEDIDOP_VE_SELAUTLOT_KEYIMPRIMIR_PREPARACION %Ctccvent 7Qtccvent%Ccomprom gQcomprom%Cclientes Qclientes%Cbienes QbienesFG((tccvord E%C4N%T T  FG((codcli E T TocomprombienesCQQQ q'index on &p_ve_selautlot_key tag id 'set order to id &p_ve_selautlot_ord Tpreparacion.frx T T TTPCKCCZC Suspendo?a%C \cpbt\0VV!listados.t.aaaaa (CNo existe el formulario !!!# JHF #CPedido no aprobado !!!# CPedido cerrado !!!# 2F-C Pedido en estado desconocido !!!# }%CPedido no encontrado !!!#BU$XNUMEROXCAUSATCCVENTCOMPROMCLIENTESBIENESTCCVORDXPEDIDOEST_DESPPEDIDOXCOD_CLICOD_CLICODCLIXNOMBRENOMBREXIDIDCODATRBULCANDEPDEPOSITODESCRCOD_INSQ XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVOSYS_MOSTRAR_SCREENP_SERVERIMPRIMIR_FORMULARIOLISTADOSMENSAJEimprimir_preparaciongBQ3A"41A1AAA!Ar2rs rrsbA111AAQAA2 %B偺F#3UF T Ta T- T-TCBUTXTRIGGER_TYPETXTRIGGER_EACHTXDONT_TRIGGER_JUST_TELLTXTRIGGER_IS_BLOCKEDTXTRIGGER_MACROTRG_SET_GET_MACROF T T- Ta T-TCBUTXTRIGGER_TYPETXTRIGGER_EACHTXDONT_TRIGGER_JUST_TELLTXTRIGGER_IS_BLOCKEDTXTRIGGER_MACROTRG_SET_GET_MACRO@4H9 X-B$xusr,xtip,xcomprob,xcausa,xmsg,xpriv "Bxusr,xtip,xcomprob,xcausa 9Bxusr,xtip,xcomprob,xcausa,txSource + ". Cambio en campo: " + txFields(txfldNum,16)+ ". Anterior: " + txtOldVal + " Nuevo: " + txtNewVal , xprivUTXTIPO{4 C Ta1txOK=.F.Cr_()ON ERROR &OnErr % p CBUTXTIPO_LLAMADATRG_SET_VALORES_GENERALESTXOKTXREALTRG_SET_TABLA_NO_ESPECIFICADA "%C txDescFieldsbLKTr__Fields5 T-(CMtxFields(nIt,16)=&txDescFields.(txFields(nIt,1),txBorrar,txOcultarOtros) %T T-BUTXOCULTAROTROS TXDESCFIELDSTXREALNITTXBORRARTXFIELDS#TC CaBUTXTRIGGER_MACROTRG_SET_GET_MACRO TRG_SET_DESCvTC@H/1 venciep(BCierre del subdiario IVA ventas comcie)B Cierre del subdiario IVA Compras vendesDB;Validez de Fechas de FC/ND/NC y anulaciones por Venta desde venhaslDB;Validez de Fechas de FC/ND/NC y anulaciones por Venta hasta comdesFB=Validez de Fechas de FC/ND/NC y anulaciones por Compras desde cobdes+GB>Validez de Fechas de FC/ND/NC y anulaciones por Cobranza desde cobhasGB>Validez de Fechas de FC/ND/NC y anulaciones por Cobranza hasta pagdesAB8Validez de Fechas de PA/AJ y anulaciones por Pagos desde paghas?AB8Validez de Fechas de PA/AJ y anulaciones por Pagos hasta depdes?B6Validez de Fechas de Depositos y sus anulaciones Desde dephas?B6Validez de Fechas de Depositos y sus anulaciones hasta extdesJBB9Validez de Fechas de Extracciones y sus anulaciones desde exthasBB9Validez de Fechas de Extracciones y sus anulaciones hasta tradesDB;Validez de Fechas de Transferencias y sus anulaciones Desde trahas_DB;Validez de Fechas de Transferencias y sus anulaciones hasta balcie"BCierre de Balance mensual dspfec4B+Validez de Fecha de Afectacin de Despachos stkcieBCierre de Stock stk_iniU#BInicio de Control de Stock cie_comisBCierre de Comisiones hayret_gan$BAgente de Ret. de Ganancias. hayret_ibiibb_ba ),B#Agente de Ret. de IIBB Buenos Aires iibb_cabai$BAgente de Ret. de IIBB CABA iibb_sfe(BAgente de Ret. de IIBB Santa Fe hayret_ivaBAgente de Ret. de IVA hayret_cp1.B%Agente de Ret. de Contrib. Patronales%X Ta B k BBU TXFLDNAME TXFLDBORRARTXOCULTAROTROSTXBORRAR#TC CaBUTXTRIGGER_MACROTRG_SET_GET_MACRO TRG_SET_DESCTC@H/ propioWBPropio nombreBNombre% Ta B  BU TXFLDNAME TXFLDBORRARTXOCULTAROTROSTXBORRAR#TC CaBUTXTRIGGER_MACROTRG_SET_GET_MACRO TRG_SET_DESCTC@H/ inscripcioY BCUIT nombreBNombre% Ta B  BU TXFLDNAME TXFLDBORRARTXOCULTAROTROSTXBORRARtrg_set_Valores_generales,trg_set_Tabla_no_especificadatrg_set_get_Macrotrg_set_Setear trg_set_Descr_Cons1 r_Cons_Fieldsr_Fletes>r_Fletes_Fields r_Clientesr_Clientes_Fields9A4A1q11!1 A>qq1AA4!AqAAA 1A3AAaqq!!AA!A1AAAAB4A3AA1A3AA22  8$UO%#_5S9}y} a!V#>$g$&%DEQtMU3U $%CCxComparabDT ?TC$HT  s Bred CBgreen C BblueUXFECHAXCOMPARA1'BC UXTEXTOWEBIZAR$BUXTEXTO2(BUXTEXTO1'BUXTEXTO3)BUXTEXTO$BUXTEXTO!BC
UXTEXTOWEBIZAR T(C>TCC\% TC  1TCCC CCC?  BULCSTRINGLCUTFICCUTF BCUXTEXTO*BCC QUXHNDXTEXTOXVECES# BCUXHNDXTEXTO FPINDEXEXV# BCUXHNDXTEXTO FPINDEXEXV# BCUXHNDXTEXTO FPINDEXEXV# BCUXHNDXTEXTO FPINDEXEXV# BCUXHNDXTEXTO FPINDEXEXVWBColor0WBBold WBTBColumna_ WBTBColumnaR WBTBColumnaL WBTBColumnaC WBTBRenglonYWBLinea utf8encodeWebizar FPIndexexV FPIndexex3' FPIndexex2l FPIndexex1 FPIndexex FPIndexex0;1AA1A2qq2q2q2qq2q2q2qq2q1q11AA2q22Q2Q2Q2Q2Q1B` Pj "W# l'# *0 k:3?6XF9pJ< N? `RBxV%7Y}:u3UoQINTEGERQINTEGERTC(hCCU LOCANFIELDSLOFLDLOARRFLDTHIS ADDPROPERTY.QSTRINGQSTRINGQBOOLEANTT%C>vTT U AALIASAKEYEXPRESSION AISUNIQUETHISTBLALIAS KEYEXPRESSIONKEYSORTISUNIQUELOADDATAQINTEGERQ TRORECORDQSTRINGQSTRINGQINTEGERQSTRINGQSTRINGQINTEGERQSTRING5 C T C  TC F  TCO#) T T+C+ ZTC TRORecordN( @ToNode.CC = .CC &loAddValueStmt T loKeyValue = &loKey %  <% T TTTCZCC H%C+ v #%C> FULOFLDONODELOADDVALUESTMT LOSAVEALIAS LOSAVERECNOLOKEY LOKEYVALUE LOCOUNTER LOPREVKEYLOARRFLDTHISTBLALIAS CANFIELDS KEYEXPRESSIONISUNIQUEADD"QSTRINGQ TRORECORDQBOOLEAN T % rTCZTCTCO T- BUAKEYARECORDLORESULTANODETHISISUNIQUEITEMU$%  CC ATCZ BCUEINDEXTHISISUNIQUE  UTHISCREATEGLOBALCONNECTIONLOADDEFAULTDATA&QSTRINGBC UATBLNAMETHISGETMDJQSTRINGQSTRINGQSTRINGQINTEGERQSTRINGQBOOLEANQ TRORECORDTCCfTC %T T T T  BUANAME ABASETABLEAEXPRAISUPADSTYPELORESULTLORECORDTHISTBLDSET FINDRECORD BASETABLEEXPRISUPDSTYPE<QSTRINGQSTRINGQSTRINGQBOOLEANQTCURSORADAPTERGESQTROTABLE,TCTCursorAdapterGesNC-$TCTRoTableNQ< BU ASTMT ATABLENAMEAKEYEXP AISUNIQUELOCAARESULTOPENTHISADOCONN3QSTRINGQSTRINGQSTRINGQTROTABLE8Tـ SELECT UPPER(V.NameDataset) Name, UPPER(V.NameTable) BaseTable , V.ViewExpression Expr, V.IsUpdatable ISUp, V.DSetType DSType  From MDDataset V  UNION o Select UPPER(CAST(S.Name as char(30))) Name, UPPER(S.Name) BaseTable , '' Expr, 1 ISUp, 'DsetTable' DSType  From sys.tables S TI SELECT UPPER(CAST(T.Name as char(30))) NameTable, UPPER(C.Name) NameCol B FROM sys.tables T, sys.columns C where T.object_id = C.object_id  ORDER BY NameTable, NameColCT6select * FROM MDFoxIndex order by NameTable, NameIndex9TCMDCamposAllTrim(NameTable)-QTC MDIndicesDD'AllTrim(NameTable) + AllTrim(NameIndex)a)TCMDDSetNameaU LODATASETSTMT LOFLDSTMT LOIDXDDSTMTLOTMPTBLTHISTBLFLDGETMETADATATABLETBLIDXDDTBLDSET,)TCUTHISADOCONN GETCONNECTIONP_GBLDBNAME SERVERNAMEUSERNAME USERPASSWORDQSTRINGQSTRINGQSTRINGQ TRORECORDQSTRINGTCC%CT ADDITIVE  T BU ABASETABLEAIDXNAMELOIDXEXPLORECORD LOKEYEXPRTHISTBLIDXDD FINDRECORDINDEXEXPRESSION;QSTRINGQSTRINGQSTRINGQSTRINGTT%CCT%CCTU ASERVERNAMEADBNAME AUSERNAME AUSERPASSWORDTHIS SERVERNAMEDBNAMEUSERNAME USERPASSWORD^Q EXCEPTION CTTTTT3%CVIOLATION OF PRIMARY KEYWFTCC>C in objectC in object>R%TCC'=,TClave duplicada en : TUERRTHISERRORNOLINENODETAILS LINECONTENTSMESSAGEInit,InitLoadData FindRecordGetKey!Init IsLocalTableGetMD)GetMetaDataTableLoadDefaultData CreateGlobalConnection GetIndexExpressionInit>Init` U] T T T Ta    U CANFIELDSTBLALIAS KEYEXPRESSIONISUNIQUEu T T T T    UADOCONNTBLFLDTBLIDXDDTBLDSETr Ta T T T TTSQLT Terminal0 U TECHNOCHECKDBNAME SERVERNAMEUSERNAME USERPASSWORDDBTYPE TERMINALID U TRORecordCustomTRoTable Collection'TDataDictionarycustom TGlobalParamsCustom[ TDBException Exception"6!!2A=A3!A!!rB1Q1Aq11AaAbAAASA9!!1aAQQA3qAaA>3"3!AA41AAq41 144ASA1AqAqA7A111112aQA1<9P1b<?WL[%= _K oQ T# W dpnSy${]Hb Y |]% ;  vo33O4  %CTALKvONAG2T ON ]T OFF%C T 5  T  1TThe table could not be opened./TInvalid code page specified.&TNot a FoxPro table.UFNAMECPBYTEMTALKVUENAME ERROR_ARRAYSETUPMAINCLEANUP5%T C]\C].VUE  UVUENAMEH%C 0.G7(   SET TALK &mtalk UVUENAME!5     TTTRTTTT'TTTTdTbTeTaTfT]TgT T hT lT iT T jT YT kT _T lTTxTTyTTzTT{TjT|T'TT-'TT'TTTTTTTTTTT}TT~TTTT%C >1T CDBF|SCX|VCX|FRX|LBX|MNXTable:%C  T   T - (% C T C  T a!% T    (\% C X T a%   B( %C 0T C % T C  e%C \C C \C  C \C  C  \C  j C B( C C C  C   B(   B( U FP_INBUF FOUND_ONEIOUTBYTECPNUMSFNAMECPBYTEERRORMSG SYS_CPZERO4R,:CUNUM ERROR_ARRAYsetupcleanupmain]errormsg a!A$Aarqq2Q31A1232AAQAAAAA!AA2aQbRAAAAA3q177L<C%cL8GNK3NG(9%C4a 8B C T T%C  T T +a T H %  pr_anu_numero_op(  T % 9!F G((PROD E%C4 %  % -C Fue anulada con anterioridad !!! T  %C42*CProblemas con los ndices !!! s7C*Produccin no encontrada o inexistente !!! T %C   ! % Bpr_anu_confirmar( Anulacin de Orden de Produccin % T % +aTCHm  Ta T ! .  T  T-!%C   !% 9 T-B CBU XTNUMPRODXAUTXOKRES ACTIVEFORM DATASESSIONIDACCESO USE_FILESXNUMPRODXLOGICAXFORMXMAXFORMPR_ANU_NUMERO_OPXRESPRODUCCIPRODPENDFORMULAMENSAJEWIZARDPR_ANU_CONFIRMAR XRESULTADO REGISTRAR UNUSE_FILES  4H 6B- %mT ~B- % T B-  TBaBUXRESXFORMXMAXFORM.R,:#Aguarde, procesando informacin ...!TC@z 9999,999,999_Tp Ta Ttrsacstockstkxdepstkxdspproduccimovstockcompprodpr_cieprod_estpr_otros% THtrsac Pr_anularAnulacin de produccin%TC % T T TH trsac Pr_anularAnulacin de produccin T HR % .C!La produccin ha sido anulada !!!  B  B BU XAUTXCOMPROBXNUMPRODXCAUSATRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJE TQomovstockCCZ/ 0PCZ/999Ptmp_movF ~ T TH proc_stk   c%m T Taproc_stk   cC$8 C T%jqprod_estqpr_otrosqprod_forDqmovstockCCZ/ 0PCZ/999PFQFF T%! Q>"-#C]$% Anulada. ID:<C'()Anulacin lgica pr_anular.prg& f<C'()Anulacin fsica pr_anular.prg&[ T*- BU+XAUT XRESULTADOMOVSTOCKNUMEROCAUSAXNUMPRODTMP_MOVXERRXMSG TEST_STOCKPROC_STKCODIGOBULATRDEPOSITOCANTIDADDESPACHOSTK_ERRSTK_TST REG_STOCKITEMMENSAJEPROD_ESTPRODPR_OTROSPROD_FOROPPR_CIEFORPRODUCCIXIDIDINXLOGICAPENDFORMULAESTADODESCRUSER_LOG PUB_INDEXXCOMPROBXCAUSATRSAC pr_ordenesBU OPEN_FILES PR_ORDENES pr_ordenesBU CLOSE_FILES PR_ORDENESBUWIZARDd registrar transaccion use_files unuse_filesvalidarT RAA"A1A2AAsCBqABAA2!A2!1A1B1AAABAABB2AAB31r12qA12A1r1ArC4q22"2AA1A2BBB3q}s2AB3ErAqs2QABB3QA2QA2A1P$ f: .FOe%!X35TC %8B- TCW%Clog_aut "%C \log_aut.dbf0 Vh1\log_autC CTT M& & QQ\log_autF %CTC]:rlog_aut C %  %Clog_autid 0rlog_aut F >C F BU XIDXTAREAXNOAUTXAREAP_SYSTEMIDIDTINICIOFINTEXTOLOG_AUT1sAq!hBAAqaAArA1%BLN3 4 %G(9 /TInitTT Ta TaTC$H] TCC$  TCC$  TCC$  @TCC$ 2]TCC$  T#% %TC %C $TError:    @ TC ( <$TError:   % x%C tC !C pr_dias_stocka T-  BPeriodo invlido !!!BUXAUTXDEV ACTIVEFORM DATASESSIONIDXMSGXDFECXHFEC XRESULTADOXRESP_PR_DIAS_STOCKMESESPROCESAROEXMESSAGEMENSAJEOESTADOVISIBLE T log_erroresTProcesarT%Cbienes |Qbienes%Cstock QstockF>  F>  : ve_sql_estadisticas dias_stocka%C dias_stockJFQ'Q\xchg\dias_stock%Cbienes Qbienes%Cstock QstockF ~FG((codins E&%S S ^FG((codigo ECX oFT >  C Suspendo?a[in_sql_movimientos movs_diasC$CXCX%C movs_dias<FQ&Q\xchg\movs_diasT\tmp\C]%C tmp_uxdiaFQ>o movs_dias Q! 1QF& " T#F ~FG((codins E&%S S FG((codigo ECX F> ! %C tmp_uxdiaFQ%C dias_stock2FQ%C movs_dias[FQ T$% log_errores$ BU& XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXMSG XCOCIENTEXHFECXDFECBIENESSTOCKUXDIA VENTASXPERALLEXPORTAR_VENTAS_PLANVE_SQL_ESTADISTICAS DIAS_STOCKP_SERVERCODINSCOD_INSBULTOS ATRIBUTOSCODIGOBULATRXDIASCANTIDADSYS_MOSTRAR_SCREEN EXPORTAR_1IN_SQL_MOVIMIENTOS MOVS_DIASXUXDIAP_LOCAL TMP_UXDIAPRD_CONSUNIDADESIDXCODXOKLOG_ERRORES_MOSTRAR  TCHTCiT% zTT BCC%$UXFECHAXMESESXMXA   ,T CCbienes+ CbienesO6*T CCstock+ CstockO6TC]T%" T%CC "#%CbienescodinsT  T CstockO(%CCXstockcodigoxT F # %` log_errores El artculo CC C C no tiene factor T %SCoccformulQformulasQQQQQQ QQ "S #  %  ~|%C$ FQ% F # % F # BU%XCODXATRXBULXUNIXCANXLEVELXTABLAXIDXFACTORXREGXREGBIEXREGSTKBIENESFACTORSTOCKLOG_ERRORES_INSERTAR LOG_ERRORESAGREGARCCFORMULACANTIDADBASEFOCODCOMPCODIGOATRCOMPATRBULCOMPBULBASECOMPUNIDCOMPUNIDCCFORMULFORMULASACTIVAEST_ACTPROCESAR_INSUMOSF G((IDE%C4 w2r tmp_uxdia> BU XCODXATRXBULXCAN TMP_UXDIAIDCODIGOATRBULUNIDADESprocesarmeses procesar_insumos agregarAr41112121211A2!AAAAA!AAAAC3Sd!ArArrqAAr!ArArrbqqABBuqAAbqAArarrbqqABqAAqAAqAA21A26R22ABArB2 AB2AA"RBAA2qA2qAC21r!AB36.W )=~% l xU 4{%CoZipbOOTCzipperN%BCUXERRXMSG XZIPDESTINO XARCHIVOS XRECURSIVOXCREAROZIPZIPEARG+(listados TCwwZipNTC%<T/Error en la librera al realizar el zipeado !!!( TT  T< BU XERRXMSGXZIPXDESTINOXMASCARALISTADOSWWCLIENTOZIP UNZIPFILESOEXMESSAGE T TG+(listados  T CwwZipN%CCRf.ZIPT.zip@TCC="CR"  ""6 T TC  %C0C0 D=(%<T/Error en la librera al realizar el zipeado !!!( TT  T < BU XERRXMSG XZIPDESTINO XARCHIVOS XRECURSIVOXCREAR XS_ZIPDESTINOLISTADOSWWCLIENTOZIPZIPFILESOEXMESSAGEuG+(sys_zipTCZIP J  |(CArchivo  en uso !!!TCZipperN T TC%+  '(CArchivo  en uso !!! j5CNo se pudo zipear  !!!C BUXFILESYS_ZIP XFILE_ZIPMENSAJEOXERRXMSGZIPEAR G+(sys_zipTCCZIP* P  (CArchivo  en uso !!!TCZipperN T TC%p  -(CArchivo  en uso !!!%C l(\C  5CNo se pudo zipear  !!!C BU XFILEXDESTINOSYS_ZIP XFILE_ZIPMENSAJEOXERRXMSGZIPEAR deszipearzipeardzipear zipear_varios  UZIPPERCUSTOMaAQ7q"zqQ1AAq2"zqRQAA1AAq5qrbAd3AQAB2Ac3A"BQAB1 1G -4 sL `g0 %T9֊%V!4$ T%C 0|GetWindowThreadProcessIduser32 TC (|GetCurrentProcessIdwin32apiTC    TT .OT C,winmgmts:{impersonationLevel=impersonate}!\\  \root\cimv2\"%CxPathbC {HTC,Select * from Win32_Process where ProcessID=CCZ 5T%C 1C%C -BaTC%CxProcesobCwTC %CxProcesobCTCTC%CxUsuariobC $TCCC]C#C][GTC(Select * from Win32_Process where name='C' TCC QTC% TC@%CfCf  CfC\f CUXKILLOLDXTMPATHXPROCESOXUSUARIOXACTUALXWNDXPROCIDOPROCESSXPATHGETWINDOWTHREADPROCESSIDGETCURRENTPROCESSIDWIN32API STRCOMPUTERLOCIMV2 COLPROCESSESXUSERXFPATH EXECQUERYEXECUTABLEPATH TERMINATEXRETURNGETOWNER PROCESSIDL0|GetWindowThreadProcessIduser32x TUXHWNDGETWINDOWTHREADPROCESSIDXXRET Kill_hwndQ"!As$!qAAAAABAAsQR1RAAA3qQ14UG%y.KC4 45%CC'B-TCemptyN!C arrayOfValues  % ( T %  T y T( T% u T  T ~qT  ^JT C recordcount  Crows % yTC (U9J(    )J(   C aStruct  B U COPYTOARRAY INCLUDESTRUCTOVFPAROWS RECORDCOUNTNOFIELDSADDARRAYNCOLSASTRUCTGC(1) Acopy(a2add,o2add2.&aName) UO2ADD2ANAMEA2ADDaddArrayRqAR"AR1QABB"AC4s1*J%Q ;cNm44TC  % C rows BC  a BC  aU RETURNARRAY ARRAYOFVALUES INCLUDESTRUCTFORMATTEDOUTPUTONFCURSORTOOBJECTROWS NFJSONCREATE5rqqA3%5' +'& Y4c4     TCP TC TC TC TC % TaG( \temp.txtG G (CANALISIS CREDITICIO :C CC MC:Crdito : No se analiza el crdito de las Notas de CrditoC CC %GG( TB%S TB%J% ) ! "  "   TaG( \temp.txtG G (CANALISIS CREDITICIO :C CC |CiEl pedido estaba aprobado por crdito o gerencia, no se reanaliza el anlisis de crdito del comprobante.C CC %uGG( TBG+( ve_pedido=$sys_procesandoAnalizando crdito del clienteI% C & ' N T( T)C(+*%C,C)+* C-.)T./01  /1 +G+(listados ve_pedidove_procsG~(clases TaG( \temp.txtG G (CANALISIS CREDITICIO :C CC yC)Notas de Dbito por Cheques Rechazados : CC(@z 999,999,999.99_+CC)@z 999,999,999.99_C CC %() T + T%JGG( 5 T T5-+T+6 T T7 TT T,8 ve_ap_credito7%: +T ɚ;T; T< T T T T T  T  T  T  T T T T TCH =H*{  Ta'CANALISIS CREDITICIO:C CC LC Crdito : CCZ#(No se puede operar con el cliente)C  T  Ta'CANALISIS CREDITICIO:C CC NC;Crdito : Tipo de cambio diario no ingresado o invlido !!!C  T 4 Ta'CANALISIS CREDITICIO:C CC >C+Crdito : Categora de crdito invlida !!!C  T+  ɚ;:  T Ta'CANALISIS CREDITICIO:C CC DC Crdito : CCZ(No hay control de crdito)C  C T Ta'CANALISIS CREDITICIO:C CC ?C,Crdito : No valida crdito por ser NC o ND.C  2{ T> T?%Cven_oper FGQven_operG )C+  A%C,d )C+  A C-T?"CAfter eval. Suspendo?B TC T>.)T./01  /1 +G+(listados ve_pedidove_procsG~(clases TaG( \temp.txtG G 'CANALISIS CREDITICIO:C CC WC* Crdito (+): C@z 999,999,999.99_C CC WC* Saldo en cuenta corriente (-): C?@z 999,999,999.99_C WC* Valores pendientes de acreditacin (-): C>@z 999,999,999.99_C WC* Comprobante Actual (-): CC@z 999,999,999.99_C EC8 --------------dC* Saldo de Crdito : C?>C@z 999,999,999.99_C CC CC [C* Deuda vencida : C@z 999,999,999.99_C CC cC* Notas de dbito por cheques rechazados : CC  No hay CC Z6C CC C* Facturas o notas de dbito atrasadas : CC  No hay7Hay facturas con ms de CC<Z das de atraso.6C CC C* Facturas pendientes : CC No hay1Hay CCZ facturas o ND pendientes.6C CC Z%?>C C   C'a C6 ` T w TCC CC %GG(Dsys_procesando%= T BUE XRESULTADOXEVALXCLICREDXATRASO XATR_GLOBSALCH1SALCH2ACC1ACC2XDIAS1XDIAS2XIMPORTE_ACTUALXRECH1XRECH2XFACTURAS_PENDIENTES1XFACTURAS_PENDIENTES2 XREF_CAMBIO XREF_FECHAXCIERRA_REPORTE XCPBT_TIPO XVENCIDO1 XVENCIDO2XTIPO_NCXTEXTO_CREDITOINICIALP_LOCALNO_APROBCLIENTESTARJETAP_APFIN_REANALISISXPEDIDOXTIPOPEDTCCVENTCREDITOGERENCIA VE_PEDIDO SP_MENSAJESYS_PROCESANDOP_APFIN_VERSIONP_AP_CREDITO_NO_FCXCHRECH1XCHRECH2SOLO_CHEQUES_RECHAZADOSXCOD_CLI ABRIR_TABLAS2CERRAR_TABLAS2XHAYDOSP_CODEMPP_UNOP_DOSLISTADOSVE_PROCSCLASES XAPROBMANUALCOD_CLIXMONREFOBTENER_CREDITO VE_AP_CREDITOP_APFIN_RELAXED CR_ATRASOP_AP_CREDITO_DIAS P_TIPO_APFINSALCHACCVEN_OPEREVALUAR_CREDITOSYS_MXIMPORTE_DEL_COMPROBANTESP_OCULTAR_DEFINITIVAMENTE1FZ%S&ZBUCLIENTESSUC  T TaH4  _ T  T% T-  -2Q\data\CCZ \ven_oper0Q\data\CCZ\ccclie Ta({5C(Error al revisar el credito multiempresa T- BU XEMPXOKP_UNOP_CODEMPP_DOSP_SYSTEM VEN_OPER2CCCLIE2OEXMENSAJE  T TaH;  f T  T%C ven_oper2FQ%Cccclie2FQU XCERRAR_DBC2XEMPXOKP_UNOP_CODEMPP_DOS VEN_OPER2CCCLIE2#   %^T Ven_Oper ~T  ven_oper2 F G((chequeGGF ECC$GFG %C+ +C+  TH%.T ccclie LT ccclie2 F G((porfacpG EG +C+   TaHL P;%%C@z 9999,999,999_P  T- ~<TCC,g;otccvent%  T CT CT CN%  ,         T- zECPedido CCZ% no encontrado al evaluar crdito !!! T- rCccventremito%Cccvent4%wT< #otccvent% 9 s%CZ o T-   dL%Cmotivos Qmotivos+CC .motivomotivoscodigo5%Cmotivos4 ! !   HT"%VdvT%T"%Vd%C .vencC$ T"6%VdC$#C$%$6 |]TCC, 6CVFCND6  (CCC$#Z)H%CC>xTCx=...U&XVUELTAXCOD_CLIXSALCHXACCXDIASXRECHXFACTURAS_PENDIENTESXVENCIDOXID_PED XEST_DESPXCREDITO XGERENCIAXALIASCHEQUECOD_CLICAJ_PROPORFACPXINCLUIRCAUSAXPEDIDOCOMPROBARR_PEDTCCVENTEST_DESPCREDITOGERENCIAPEDIDO P_PICKINGMENSAJECCVENTXTMP_PD ARR_TMP_PDMOTIVOSTIPOIMPORTEVENCXATRASO XATR_GLOB T T T TC$ T% T TC$%CTTB%VTT% R*TCliente con crdito ilimitado % %Ccatcred Qcatcred'%C catcredcodigoT T #T Cat.Crdito: C  .C!categora de crdito invlida !!! DT Cat.Crdito: C  (invlida en el cliente !!!)TTBU XPESOSXMONREFXCAMBIOXFECHAXTEXTO_CREDITOP_APFIN_CREDITO_MONEDAOBTENER_CAMBIOCLIENTESCREDITOP_APFIN_RELAXEDCATCREDDESCRMENSAJEi%5Tccclie STccclie2 FG((porfacpG EG +C+  b%dZ%Cmotivos Qmotivos+CC.motivomotivoscodigo5%Cmotivos4    VT HU XVUELTAXIMPORTEXCOD_CLIXALIASPORFACPCOD_CLICAUSAMOTIVOSTIPOIMPORTEbye_lock abrir_tablas2cerrar_tablas2evaluar_creditoobtener_credito"solo_cheques_rechazadosn%2H21222aa11baAAAtAA3aa11baAAAA3RQAraa11rAbaAsr1A1Aq1Bq1Bq1q1Arq1aaAA#raaq1q1qqqQA1111111IB11baABB3A3qArAAB2A1!QAA3qAqAAqAA3123QaAbaaaAAA21AAaaAr"AQABBrar2"qAABBC1ARAARARAABbABAqA3q2QAABbBAa1AqB2BAAAB321AAaaB1ARAABA2'(u(p(*z*+ ,{9a9>K>@%(%GaOX4O!4'%   F >a>  T a T a T B% d logmsgCXC XCXCX -BEG: Ct%F%H#) T Ta { #T T-F#) Ta+C+ CO $% !% %  |TF?~ CtempcompO   x% T!  T! T" T# T$r%proc_stk'()*!cPCC+@z 999,999,999_C$4,> !T!%t!FH$%CO  !TC] T -5. T.- T/aF0G((codins T aF%2otempcomp)(34CQ C )(3 tmp_t2 ~$% % >%5C56 54S     T" T# T$7proc_stk55(5)85P CC+@z 999,999,999_C$Ctmp_t2O3C9 536%"jeC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $:%" T -%C$C$a< BC#Error indeterminado !!! (Stk_err = C")C a<%"o\=xx05.prgProblemas al verificar stock.Incoherencia de ArchivosF5 >- >  F5 >a >  T a F5 >a >  T aF5F5T>5T?5 T@)(5ptempcomp> ?)(@  F%#) T Ta  #T T-F#) Ta+C+ CO $% u !% q -%C6 4S   2 T" T# T$7proc_stk()8P CC+@z 999,999,999_C$CtempcompO3C9 36%" eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $:%" T -%C$ C$a< d BC#Error indeterminado !!! (Stk_err = C")C a<%" \=xx05.prgProblemas al verificar stock.Incoherencia de ArchivosF >- >  . F >a >  T a f F >a >  T aFFH$%CO  !% y % 2%C A B . d%CGATENCION !!! No hay stock suficiente !!! Rechaza el comprobante ? (S/n)SNCN TD%CHaDEF TGDF0>a  T a T a1% IJ  J u TKaF%t#) T Ta  #T T-% +q logmsgCXC XCXCX -AUMENTA EL COMPROMISOF#) Ta+C+ CO TLMF0%G((codins EF$% pP% ,0NS )   0NS  lH%OP +QR )S (T  TUCtempcompO%Ccom_ant 'QV \tmp\compromWX(ocom_antUcom_ant2>YFY ~ T" T# T$x7proc_stkY'Y(Y)Y*Y P CC+@z 999,999,999_C$U3Y,%"eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -%C$[C$a< BC#Error indeterminado !!! (Stk_err = C")C a<QXQYF %P %Z  T[a T"c7T$*Cantidad - Entregado <0 y no puede ser !!!eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -C$a< T\-%4S^F]G((--CtempcompO  C3 %C4Z T\a%\oF] G((itmA~CtempcompO  C3 ]  k T" T# T$7proc_stk]'](])]^] P CC+@z 999,999,999_C$CtempcompO3]3%"geC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -%C$C$a< cBC#Error indeterminado !!! (Stk_err = C")C a< {:%CP Z6 T" T# T$7proc_stk()8CP Z6P CC+@z 999,999,999_C$CtempcompO3C9 36%"eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -%C$9C$a< BC#Error indeterminado !!! (Stk_err = C")C a<%4SwF]CtempcompOF*~CZCCtempcompOZs{rlotesxit'()3 ^_'(), *&%+`  a Taa T" T# T$7proc_stkbcd8CQFcP CC+@z 999,999,999_C$CtempcompO7%"]eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -%C$ C$a< YBC#Error indeterminado !!! (Stk_err = C")C a<FFH$%CO  !!%e fg %C q_lotesxitQholotesxitdespacho]'](])]33i]3]'](])3333(3)3iC$fg q_lotesxit%CN} T -Tj Artculo: C'Tjj-)Tjj-(Tjj-C3RTjj,: Fecha de vencimiento fuera de tolerancia (CCfgZ das)Cja<%C q_lotesxitQhFk G((idG EG +C+  F #k$% Fk T" T# T$q7proc_stkklk(k)8kmP CC+@z 999,999,999_C$k3C9 k36%"eC;C+C+@z 9999,999,999_6C+P6$ Proc_stk: $: T -%C$C$a< BC#Error indeterminado !!! (Stk_err = C")C a<FkH% q u logmsgCXC XCXCX -FIN AUMENTA EL COMPROMISO  % d logmsgCXC XCXCX -END: CtR % (! T B H! T BUn XESTADOAP XRESULTADO XSOLO_TESTEAXTIPOPEDSINSTKXTIPO_NCTEMPCOMPAPROBALLAPROB2 XHUBOAPROBOKP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIO P_PICKINGMAXYICONSTIFLAGMAX_PRODMAXYNINVCOD_INS RECEPCIONXACC_ITMCOMPROMIDXIDPCKITMCAN XACC_ITM2STK_ERRSTK_TSTSTK_MSG REG_STOCKPROC_STKCODBULATRDEPXPEDIDODSPINXSELAUTOMATICAINICIALBIENESCODINSP_AP_STK_VERSIONDESPACHOLOTESTMP_T2 SYS_CONTSTK ACT_STOCKXDEPOS P_REF_DESPUSER_LOG PUB_INDEXNO_APROBREPORTE XVAL_APROB XVAL_APROB2XID_T2 P_CONTSTK P_RELAXEDPREGUNTAXUSR OSECURITYCL2 XUSR_AP_STKFOR AP_CREDITO AP_GERENCIABETAXITMITEM ATRIBUTOSXAPROB_ANTERIORP_VE_AP_STOCK_VERSIONORI_CANORI_CODORI_ATRORI_BUL XITM_TEMPCOMPP_LOCALXCOMPROMISOS_ANTERIORESCOM_ANTCOM_ANT2 ENTREGADO TTS_ERROR XHAY_LOT_DETLOTESXITDEPOSITOINDICEALFAGAMMAOLDCODOLDBULOLDATRP_VE_LOTES_DIASCLIENTESA1 Q_LOTESXITVENCXAESTCOMPROMICODIGOCANTIDAD}wABA2s2QArQB$rbA/R2AAABAArAAAAACrrr4Bd 2QA2S!A2BrqAtAsABrQRBr2QArQB, 2QA2S!A2BrqAtAsABrAAAAAB!DrBBAAr2QAArQraAqDvqA%t2QR!ABBrqQABqqaAAtL2QR!ABB 3QR!ABBsur`BBBBe8QR!ABCrACrAAAAAAy "aa!BAAsaarBr2QR!ABBqAARABBBARA3%.,V=D4U3%,uW4   Ta%Ctccvent aQtccvent% %%Ctccventtccvord 7T *No se envia por mail. Pedido no encontrado T-'%    p@T +No se envia por mail. Desglose del pedido: CCZ T-% %Cseguim Qseguim%C cur_seguimFQHoseguimCQC ZP cur_seguim %   C n T T%AgTComprobante de Entrega: CR REMITO FACTURA6 C= 00C R%C =C Suspendo?aTC ZTP T T T T T T T T T T T P!ve_armar_despacho 0TDomicilio de entrega:  G+(sys_mail_funcionesG+( sys_mailctasC%&'()*+,-./01234 Ta T* T+ T, T- T) T5 T6 T7 T8 T9 T( T3 T4EC;*+89,-)56734:% 7T *No se envia por mail. Sin cuenta asociada.B- Ta %CSEG-%< x=T 0No se envia por mail. Cancelado en destinatarios T-%C%4T 'No se envia por mail. Sin destinatarios T-%j T=(%C>\cpbt\mail_seg.html0'T'C>\cpbt\mail_seg.html!% qT@%T=Ca?  T' Estimados, C H  YnT''U les informamos que hemos recibido su pedido y se le ha asignado el nmero CCZ  %> T''U les informamos que hemos recibido su pedido y se le ha asignado el nmero CCZJ. Ya se encuentra en proceso de preparaciny ser entregado a la brevedad.  T''( les informamos que su pedido CCZ con fecha C*G se encuentra en proceso de preparacin y ser entregado a la brevedad.  ~T''( les informamos que su pedido CCZ con fecha C*$ se encuentra en proceso de entrega.T=C-?  mT''( les informamos que su pedido CCZ con fecha C* ha sido entregado.AT'C'P-CZEMPRESA=@ T&Hx   T&Pedido recibido - % -T& Pedido recibido y en preparacin ) "T&Pedido en preparacin i )T&Pedido en proceso de entrega  T&Pedido entregado T jTC %&')(,-89*+C ZPC]734AVrseguimBCC ZPC8C;%C cur_seguim FQ BUDXPEDIDOXMOTIVOXCOD_CLIXNOMBREXFECHAXCOMPROBXCAUSAXOKXDOMICILIO_DE_ENTREGATCCVENTPEDIDOXMSGORIPEDSEGUIM CUR_SEGUIMMOTIVOCOMPROBCAUSAOKXCOMPROBANTE_DE_ENTREGASYS_MOSTRAR_SCREEN XCOMPROB_PXCAUSA_PXENTREGAXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXGEODIRXGEOENTDIRECCION_DE_ENTREGAVE_ARMAR_DESPACHOSYS_MAIL_FUNCIONES SYS_MAILCTASLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_HOSTLC_PORTLC_FROM LC_FROMNAME XENVIAR_DESDE LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKENLC_TIPO LC_ENGINELC_SSL XAUTH_LOGIN XAUTH_PASSOBTENER_DATOS_FUNCION PUB_INDEXMAIL_ELEGIR_DESTINATARIOSXAUX1P_SERVERARTS_NO_ENTREGADOSMAIL_MACRO_TEXTOSSYS_MAILFECHAUSR %Ccur_no_eviados2Q*CArts no entregados Suspendo?aotccventtventasQ Q  Q    cur_no_eviados T%  ~e%CXT;No se entregan los siguientes artculos por falta de stock:C C TC C 9TCCdigo CantidadC C 4TC-Q --------C C STCC5C C CC C CC Z6TC C  c ~C%C\TK

No se entregan los siguientes artculos por falta de stock:

TTeTTTTkTTT
CdigoColorCapacidadDescripcinCantidad
     C  Z

%Ccur_no_eviadosQ BUXPEDIDOXHTMLCUR_NO_EVIADOSSYS_MOSTRAR_SCREENTVENTASCOD_INSCODIGOATRBULDESC_INSDESCR RECEPCIONCANTIDADTCCVENTPEDIDOORIPED XRESULTADOarts_no_entregados1AbQqAAtA!AqAA2rbs$BAa2UqqAABAqQA21A11a  A122AA11a!A11AcDAqAAA3A rAA1ARQQBQQAAA1u!%uR53   % 7    B T%Cbienescodins T T T"%S S  L:C    5%C VTArtculo compuesto CC C C sin componentes !!!B-BUXMSGXCODXBULXATRXCLIXCANT_BULTOST_PESO T_VOLUMEN XCANTXBULT XPESOXBULT XVOLUXBULTP_VE_BUL_VERSIONVE_BUL_PES_VOL_V2BIENESCOD_INS COMPUESTOCONJUNTO CALC_ITEMCICLAR_COMPONENTES3      T  T  T ,%C   @%C T TC TTC T <HT Error !!! Unidades por bulto de CC C = 0 %C %Cbultos Qbultos!%FG((codigo E%C bT TCTTCTT T T  HT Error !!! Unidades por bulto de CC C = 0 %C RT TCTTCTT T T  ;T Error !!! Unidades por bulto de C = 0BUXMSGXCODXBULXATRXCLIXCANT_BULTOST_PESO T_VOLUMENXCAN_BULXCAN_PESXCAN_VOLDATOS_X_CLIENTE MIN_BULTOBULTOSCOD_INSCLAVECODIGO CANTXBULT PESOXBULT VOLUXBULTBIENESPESO VOLXBULTO%C %Cartxcli ]Qartxcli,%Cartxcliid%TT T Ba T T TB-U XCODXBULXATRXCLIXCAN_BULXCAN_PESXCAN_VOLARTXCLI CANTXBULT PESOXBULT VOLUXBULTH%C?- B A BU XCANTXBULT5'%Ctr04 MQtr04F G((tr04G EG %C4 T CO T a+C+   *%     T -!H% } # +C+   y6C  F H E%C4#4+C+ !   :C   F H E %C47+C+ $    8C   F H  E %C4w7+C+ $    s8C   F H   # :+C+ '     6C  F H *B-BUXMSGXCODXBULXCLIXATRXCANT_BULTOST_PESO T_VOLUMENTR04REGTR04OKCOD_INSBULATR CALC_ITEM COMPONENTECANTIDAD calc_itemdatos_x_clientez min_bultociclar_componentesU 22tBAcA#SaqABA31aaA"!AqAAAAABBB2"1AaqAAAq4qA4qbAqbaAAAAaqAABqAABrqAABrqAAaqAAAAAAqAA1 +F: " nY8 ` ~%L(*3(Y954%CN; T%CCc T%CN T%CC T%CN TF#)G+(sys_mail_funcionesG+(listadosdey_func T  T  T  T  T  T T T TT T T T T;listados     (T\cpbt\ -logo.jpg T T TTC(XTCXTCXT  T!T"CXT#C(XT$C(X T% T& T'<((  J(( T)%C+ *+S {", ve_pedido./%%*+S *0 F1G((codigo E*0(T3CC*+S4*56(T6CC*+S*76tT8CC*+S)CC" C" - 6C/CC*9C*9 - 6C*:6OT;CC*+S-CC*=<C*0 /1>6f6(T?CC*+S#*@6TAC*DBCTEC*DGBF THITJ*K%Cagente ~QagenteCMagentecodage&TNCCMCXL56 TOM TPG TQFR~STQQSCReciboT TUVlistadosQUTWCCYXTZCCYX7T[C\006CC^^_6]+T`C^ Recibo Ajuste6!%C xcomentariobC Tab 2 TaFRTcN%Cborrar1nFdQ%Cborrar2FeQTfCC]RTgCC]R*opagoscuentasQhiQijQjCdXQklQlR>Q>RmQmRnQoRpQpRSQqRpQrRsQsCRsXQtRuQuRvQvCCwxt\S6QyRiwz1{\tmp\fQ{\tmp\fd!>>uuyQo comprobantesQhC XQiC/V FC HC/d ND 2C/c NC C/L AS  6666.QjC/V FC HC/d ND 2C/c NC C/L AS  6666.Qk QlCXQ>QmoQo}Qp~Qq1{\tmp\gQ{\tmp\geTCC]R%Cdetalle FQFd({\tmp\FQ{\tmp\{\tmp\f{\tmp\gF5TCCC^^_6@z 9999,999,999_!TC^RA6TTTT=TC^RCAJ6CCC^^_6ZT importe2#0TC6TC6TC6TC6XTCRRCCAAJXX66 [ - H - 3TC TC TCUlistadosaaaaa--CI-%Cborrar1 FdQ%Cborrar2FeQ {\tmp\f.dbf {\tmp\g.dbf%CdetallelFQ {\tmp\.dbfBUXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNFORMULARIO COMPROBANTESSYS_MAIL_FUNCIONESLISTADOSDEY_FUNC ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPFIRMA ZEMPLOGO_TXT ZEMPMARCAAGUA DATOS_EMPRESAP_SERVERP_EMP P_EMP_LOGO P_EMP_FIRMA P_EMP_AGUA XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAISXCUIT ZARR_TEXTOS XMAXTEXTOSCLIENTESTARJETA TRAER_CLI VE_PEDIDOCOMPROBCAUSAPAISPAISESCODIGO ZCLINOMBRE XOTRO_CLINOMBRE ZCLIDIRECCION DOMICILIO ZCLIZIPCIUDADCOD_ZIPCIUDAD ZCLIPROVPAISPROVINC PROVINCIADESCR ZCLITELEFONOPHONOZCATIVA OLOCALIZACION!IVA_CATEGORIA_CLIENTES_TEXTO_CPBTIVACATXIVAINCIVA_DISCRIMINADOXFECHA ZCLICODIGOXCOD_CLIZCUIT INSCRIPCIOAGENTEXAGENTE ZCOBNOMBRE ZCOBCODIGOZFECHAZFINALPAGOSPESOSSYS_M ZIMPORTETXTLETRAS ZMONEDATXT MM_MONEDAXMONEDAZMONEDASIMBOLO ZCOMPROBANTEP_MULTIRECIBOS FMT_RECIBO_NNRECIBOXNUM_OPERACIONZTIPOCOMPROBANTE ZCOMENTARIO XCOMENTARIOXDVALBORRAR1BORRAR2XBORRAR1XBORRAR2GRUPOCUENTACUEDESCR COMPROBANTTIPONUMINTVENCFECHAIMPORTEIMPORTE2 IMPORTEMOMONEDA MONEDASIMREFINTECHEQUECUENTASATRIBUTOTIPO2COD_CUEP_LOCALFORSALDOAPLICADOXDETALLEDETALLE ZIDCOMPROBZIDCAUSA XFORMULARIOCONSRCFORMXDESTINOLOCALESTE_001XDRIVERRCXCOPIASRCCOPIAS XIDARCHIVO XFILTRODATOS XARCHIVOPDF XCOPIAPDF MAIL_CPDFCOPIAPDF XMAILTIPO MAIL_MT_VALORMAILTIPOLIMPIAR_FILE_NAMEIMPRIMIR_FORMULARIOENVIAR_POR_MAIL #G+(sys_mail_funciones T (TC \C.pdf%-T No se envia por mail. MAILTIPO=0 C  B!%C  h=T0No se envia por mail. Cancelado en destinatarios C  B%C D%C-Enva el comprobante por correo electrnico ? .T!Reimpresin. No se envia por mail C  B ;T.No hay direccin de correo para envo por mail C  B%C0 3T&No se gener PDF. No se envia por mail C  BQ COLLECTIONTC CollectionC3sys_procesandoEnviando por mail...? !"%#t%C$  T$ pCT6DEV: No hay direccin de control. No se envia por mail C  %sys_procesando B TC TCC$ $6% T%TC'(& T T) T* T+%TC,(& T-. T/0 T12 T34 T56 T 7 T!8 T"9%C" G+( sys_mailctas9C"13-/5 !;.TC<C3 $ 6= THq; >qT=C-/135 !? >;3T=C@%sys_procesando%=~ CAHq  >%B);C Comprobante enviado por mail %C%$CSe ha enviado por mail.D IC *El mail se ha agregado a la cola de envio. %C7C*El mail se ha agregado a la cola de envio.D >q <C Comprobante enviado a Outlook TCGSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.D B  :C No se pudo enviar por mail CD BUEXARCHPDFXMSG XCONTROL_TEST XMAILTIPOXCOD_CLIXCAUSA XELECTRONICO XENVIAR_DESDESYS_MAIL_FUNCIONESZEMAILPDF_PATHZIDCAUSAUSER_LOG PUB_INDEX ZCOMPROBANTEMAIL_ELEGIR_DESTINATARIOS MENSAJE_SINO OADJFILESADD SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKEN XCOD_MAILP_DEVP_TE_RC_CONTROLSP_OCULTAR_DEFINITIVAMENTEMAIL_MACRO_TEXTOSP_TE_RC_SUBJECT ZEMPNOMBREP_TE_RC_REPLYTO P_TE_RC_FROMP_TE_RC_FROMNAME P_TE_RC_MSG XAUTH_LOGINP_TE_RC_AUTHLOGIN XAUTH_PASSP_TE_RC_AUTHPASSXFCEHOSTP_TE_RC_SEND_HOSTXFCEPORTP_TE_RC_SEND_PORTXFCESSLP_TE_RC_SEND_SSLP_TE_RC_SEND_USA_GMAILP_TE_RC_SEND_TOKENP_TE_RC_SEND_CODIGO SYS_MAILCTASOBTENER_DATOS_CUENTAP_TE_RC_ENVIARXOKP_TE_RC_METODOSYS_MAILSYS_MAIL_OUTLOOKIMPRESOP_MAIL_SEND_TIPOP_MAIL_MENSAJEMENSAJEu[     CSendRC(%Clc_frombC T,%C lc_fromnamebC T&%Clc_tobC  T+%C lc_replytobC Z T!%C xauth_loginbL T %C xauth_passbL T %CxhostbL T %CxportbL T %C xMailTipobNE T %CxsslbLp TTC  TC! T"#G+( sys_mailctas9C"   %s&      B U'XMSGLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XAUTH_LOGIN XAUTH_PASSXHOSTXPORT XMAILTIPOLL_OKXCOMPROBXCAUSAXCODIGO XENVIAR_DESDEXSSL XFUERZA_LOCALXGMAILXTOKEN LOSENDMAILSYS_M P_TE_RC_FROMP_TE_RC_FROMNAMEP_TE_RC_REPLYTOP_TE_RC_AUTHLOGINP_TE_RC_AUTHPASSP_TE_RC_SEND_HOSTP_TE_RC_SEND_PORTP_TE_RC_SEND_SSLP_TE_RC_SEND_USA_GMAILP_TE_RC_SEND_TOKEN XCOD_MAILP_TE_RC_SEND_CODIGO SYS_MAILCTASOBTENER_DATOS_CUENTASYS_MAILenviar_por_maildsend_email_notificar"qrArArArArArQ1s1!ASqAAs!AcrAB1rArqAAqAASQpRqAArrRquq"RqAAqAAqAAB212AB"BAA$2AS01"2AA3ATS"aAu111AR131AA1qAA1AAA2q1AAaAAAAAAAA21b31A0 1&7%Wڨ0WQ5 CFG((asidiaG(DXFG((asidiaG(DX Ta T T TT T T #)+C+ C DEPOSITOS C C CBUUSE_DEPVEN_OPERASIDIACAUSACOM_OPERXOKMSGXASIDXASIHXFECDXFECHXDIADIAFECHA REG_ASIDIA UNUSE_DEP UNLOCK_ALL!F&%  F E%C4 Q > >F% Tc T % Tc TT>    LAC$ !"#$%&'()T**  1T++C C" 6 TBU,DIARIOGXOKXDEBXCRECONCEPTONEWASIASIENTO XCONCEPTOXPASEDEBITOCREDITOCOD_CUEXCUEPOR_QUECOMPROBXCOMPROBCAUXCAUSACOD_CENPASEFECHAXFECHAPROCLIXPCNOMBREXNOMCODIGOXCODTIPOHOY COMENTARIOXCOMENTCAMBIOXCOEFICMONEDAXMONEDAMONEXTXMONEXTMONPASEXMONPASEUSRXUSRACCACCMEk%Ccom_oper .Qcom_oper%Cven_oper `Qven_operBUCOM_OPERVEN_OPER-FG(G-(FG(G-(BUCOM_OPERVEN_OPER/FG((comprob EBC4UDIARIOGCOMPROBXCOMPROBXCAUSA4BCUFECHASYS_CIERRE_BALANCE 4%CD Ta T- T T-G+(co_aut Ta TF%C T-%XcTC   EX C . Extraccin sin nmero de comprobante.(DEP/EX) aTC   DE C , Depsito sin nmero de comprobante.(DEP/EX) Q$%     T-%X'RTC   EX C  Tipo de cambio en 0 (DEP/EX) RTC   DE C  Tipo de cambio en 0 (DEP/EX) MF G((cpbtT CXCZ!TC CZTC T%D>TD T cTX T T T T TCO1+C+   FG((cuenta E(%CCUENTAS+ C X  T-fTC   CDDEEX6 C  Cuenta invlida.(DEP/EX)TFHF G((cpbt E1+C+   FG((cuenta E(%CCUENTAS+ C X  T-fTC  CDDEEX6 C  Cuenta invlida.(DEP/EX)TFHF #5TCC XC@z 9999,999,999_6 T%C  T-TC   CDDEEX6 C  Fecha C** es anterior al cierre de balance.(DEP/EX)%C!  T-TC   CDDEEX6 C  Fecha C*) no pertenece a ningn ejercicio.(DEP/EX)%C" 8 T-TC   CDDEEX6 C $ Operacin ya registrada en asiento CC#Z .(DEP/EX)%I% T-}TC   CDDEEX6 C 0 Dif en Depsito (ven_oper vs com_oper).(DEP/EX) EF #5TCC XC@z 9999,999,999_6 T T$ T% T&% T'CWF(G((asiento C)#6T%#F*G((asiento E%%C4  >#% F' ( TC+%5, T,F G((cpbt T T T-1+C+   e F T.T/T0 T1%2 %T1CC2@z 999,999,999_%%3S 4 *T11/CC4 @z 999,999_T11 T115T6 T7 T89cT:;T<=T> T? T@ C#TF >%HF G((cpbt E1+C+   T. T/T0xT1C2UCC2@z 999,999,999_C4/CC4 @z 999,999_6 65T6 T7 T89T:;T<=T>CX T? T@ C#TF >%H CAB TBC co_asientos%B%BCBE TF T-6T)El asiento no se genera correctamente !!!% @Gtrsac, Co_depositosAsientos Automticos TI A T- T%  <Jco_depositos.PRG F)+C+  CZ H%  CKBULXOKXDESDE_OPERACIONMSGPREGUNTOCO_AUTACCCOM_OPERCOMPROBCAUSACOD_PROMONEDACOEFICCPBTXC OPERACIONXC1FECHAXC2XIDCPBTXCAUSA XCONCEPTOACC1ACC2XFECHAREGASIDIACUENTASCUENTACAJ_PROVEN_OPERCOD_CLIXCOMPROB FECHA_VALIDA EJ_ACTUAL HAY_ASIENTOASIENTOXPASENEWASIXIMPORT XAREA_ASIDIARIOGFILE_LOCCONCEPTO NUEVO_ASIENTOAAAACCMEXDEBXCREXCUEXCOMENTNUMEROPROPIOSUBNUMDES_VALXMONEDAXCOEFICXMONEXTMONEXTXMONPASEMONPASEXUSRUSRXCODXNOMXPCAJUSTE_CONVERSIONXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROREND_TRANTRSACTTS_IDREPO UNLOCK_ALLasientouse_depL unuse_dep hay_asiento fecha_validaw reg_asidiarr111RBB2qarQAq21AAQ@a RBA2AAAAJ2raaraaB2q2q3&ArSA1ABA!!AsBArbABrAArrbABrAArQqArA}bA2tRrQrQAAAqrtaQQA!AABrBArBrBAr1aAAABAABArAAAB1&3Z;bmCzyH<KSv%%A J %XVs5R45C've_reg_cpbt_electronico_fev1. Suspendo?a$%Cxfce_reprocesobCTN %CSN TN(%Cccventccvfac #*CComprobante no encontrado !!! Tc Bc%TC!El comprobante no es en pesos !!!C Consulte al soporte tcnico. Tc Bc/ sys_procesandoInicializando...T   "CclientescodcliTOTCV/CcCd666 TTT TTTTTTT T!<"" J("# ve_pedidoT%&<''   T($)ve_reimprimir_comprobante T+((9T'C'Cc69T'C'Cc69T'C'Cc69T'C'Cc6T++C'T,-. T/ T0(T12Cc6(T32Cc60T452Cc60T652Cc6(T75Cc6(T85Cc6(T9:Cc6(T;:Cc6(T<=Cc6(T>=Cc6 T? T@(TABCc6(TCBCc6TCDEsys_procesando BUFXERRXNUMEROFXCAUSAXFCE_REPROCESOZSYS_MOSTRAR_SCREENMENSAJECCVENTMONEDA SP_MENSAJESYS_PROCESANDOXTESTING P_FCE_TESTINGP_DEVCOD_CLIXFECEMIFEC_VENXTIPOPEDCAUSA XFCE_CONCEPTOXTIPODOCTIPODOCXCUITCUITXCLIPAIS XDOCUMENTOXMONEDAXDIVISASDIVXCAMBIOCOEFICXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_VENCPAGO IIBB_PROVTRAER_IIBBPROV VE_PEDIDOXPORCENTAJE_IIBBT672T_IVAARR MAXIVAARR GET_IVA_VENVE_REIMPRIMIR_COMPROBANTET_IVAXIVACATCLIENTESIVACAT T_IMPUESTOS TX_IMPUESTOST_DESCOMDES_COM TX_DESCOMT_VALORDECLARADOTOT_VENTX_VALORDECLARADOT_TOTALTX_TOTALT_FINALDEUDATX_FINALT_DTO672DTO672 TX_DTO672 T_ADIC_DTO672TX_ADIC_DTO672 T_IVA_RG5329PRG5329 TX_IVA_RG5329REG_FACTURA_ELECTRONICA_FEV1SP_OCULTAR_DEFINITIVAMENTE1zRBAAAbAAB"211t1r1BA"1%xC#Y5I  %G(9 /BUXORDEN XPENDIENTES ACTIVEFORM DATASESSIONIDOC_MANTENIMIENTO 5 Ta%07sys_procesandoPreparando mantenimientoTC %Cconver Qconver%Cccprov Qccprov%Ctcompras Qtcompras%Ctcccomp 8Qtcccomp%Cimp_tran jQimp_tran%CqQ %Cq1Q%Cq2Q%C q_ordenesQ%C q_transitoQCmant TC sqlbufferingv%CgG &TCpend#[N].t.6%"T and orden=xordenfselect orden from tcccomp where &xfiltro and cod_pro#[0 ] order by orden into cursor q_ordenes oconverQ q_ordenesCQ  q1ocomprasQcccompQ q_ordenesCQ!!  "O N  q2fotcomprasQ#Xq1 ##$ Xq2 ##$  q_ordenes##$#####Q%CQ&CQ'CCQ(#:#C#C  q7T)Cloguear_mantenimiento_ocs sys_log.prgT*F ~%*Esys_procesandoProcesando OC - Paso 1 :CC Z T*0T+OC: C Z - C$Z:  T T,$ T-' T.&F G((ordenitmECZC,Z%C4K%-BC+x Compra: CZ -> C-Z)0%> - %.=BC+x Movimiento: CZ -> C.Z)0%9> . G *C+Registro no encontrado)0F %CqQ %Cq1Q%Cq2Q%Cq3 Q1FT* ~ %* Esys_procesandoProcesando OC - Paso 2 :CC Z T*C2 set sqlbuffering &xbuffering %Cq Q %Cq1 Q%Cq2$ Q%C q_ordenesJ Q%C q_transitoq Q<)3sys_procesandoBU4XORDEN XPENDIENTESXCERRAR&OLOG_OC_MANTENIMIENTO_OC_MANTENIMIENTO XCORREGIRP_DEV SP_MENSAJESYS_PROCESANDOCONVERCCPROVTCOMPRASTCCCOMPIMP_TRANQQ1Q2 Q_ORDENES Q_TRANSITOSYS_MXFILTRO XBUFFERINGORDENCREFITMENTRASALERECEP3CCRECE RECEPCIONRECEP2COMPRASCCCOMPOPREFCAUSATITMRECIBIDOMOVCOMTOTOLOG_OC_MANTENIMIENTO XOLD_ORDENXHEADXITMXCOMXMOVORDENITMLOGQ3PROCESAR_OC_PENDIENTESP_OCULTAR_DEFINITIVAMENTE occcompQcomprasQC  6 Q  C  6 Q C  6Q  C  6 C  6QQQ QC XQQ  O q1occcompQcomprasQconverQC  6 Q  C  6 Q C  6Q  C  6 C  6QQQQQQ0C ZCZCCg ZCZ M  q2 oq2q1Ǽq3,>!C  6%_#ptcomprasF! ~L%CC!ZCCC! !!6Ztcomprasordenitm%>##!<$(oq3C Q CQ$% ^T&C$T'C$  T& T'%%CtcccomptcccordZF(>(&>('F)G((comprob5E(+C@z 9999,999,999_PCZCZ%C4V%R>,( (otcomprasQ-Ximp_tranQ1 C-ZC-.ZC 2ZC 3Z--.-/C Q- q_transitoF4~/;0T5OC: C Z - C.Z: 5%CC4ZC4.ZtcomprasordenitmHC5Trnsito: C4/Z -> C4Z67%>#/4 7HCItem CC42Z/CC43Z no existe en la OC !!!8C porcentajes9 T: T; T< T='>cm_procs:;<=%(Ctcccomptcccord>(@:A;BUBXORDEN XCORREGIRORDENCCCTOT_COMOPMONEDACOEFIC TOT_COM_MODEUDADEUDA_MOTOTCOEFREFREFITMREFCAUSATOT_MOFACT_MO RECEPCION FACTURADO CV_TRANSFCV_REF CV_REFITMCOD_INSCCCOMPCOMPRASQ1CVTRANSFCONVERITEMQ2Q3ALLTCOMPRASARRSUMXTOTXTOT_MOTCCCOMPCCPROVCOMPROBCOD_PROIMPORTETITMTRANSITOIMP_TRANISOLSOLITM Q_TRANSITOXHEADOLOG_OC_MANTENIMIENTOLOGMENSAJESYS_M XPER_ENTR XPER_FACT XPER_IMPFXALIASPORCENTAJE_CUMPLIMIENTO_OCCM_PROCSPER_ENTPER_FACoc_mantenimientoprocesar_oc_pendienteA AB3rBt2!A!AAA1AAA"A1A1AAA1aAc2!AbkN ourbSAr1!AA1!AAArA#A1A1A1AtbSABB"A1A1AAArB3`aP!1ArAAAr$AAASqrQrAAB rARAAABtbAC3T vs"%Oqw/5oT?T?T333333?T?U RETIB_ARR1%nTZTc`X5]84Q COLLECTIONTC Collection%CNv T%CC T%CN T%CC T%CN T vopago T  T  T  T T T T T TT T T T;listados   (T\cpbt\ -logo.jpg T T% FG((codpro E %"C"com_operopago C#com_operoper$ sys_securityT&C)*'(%Cpro2 @Qpro2C pro2codproT,C+-%Cbancos Q.\bancos T/%0 C0bancoscodigoT/C12F3%345;G((cuenta E5T738T932FMT:CC;S <S = C> >?6MT@CC;S <S = C> AB6TCCC;S <S = C> )CCD CD - 6CE/CCFCF - 6CG6zTHCC;S <S = C> CCJI - ArgentinafCCKI - Argentinaf6MTLCC;S <S = C> MN6'TOC@, CC, CH"%;S= TPCSQR TPCTQR TU "TVC=WX6"TYC=Z6T[C=\6T]C=C^2C^C^8CC^ @z 999.99_CC^Z66C_IC^+6C_C_8CC_ @z 999.99_CC_Z66%6 T`a TbFc~dTTbbd Teflistadosbe Tgh TijTkCCjlTmCCjl TnoTpC""#68TqC"Comprobante de Pago Ajuste6#TrC"CPAJ6!%C xcomentariobC Tst  TsFcTuN%Cborrar1 FvQ%Cborrar2 FwQ%Cborrar3$ FxQTyCC]RTzCC]RT{CC]R%|opagosXchq ccCHE Q}c8Q6c~Q~cQCCcCHE(CHEQUE DE TERCEROS CCc2fCcCHP Cc~CcEFECc Cc~fvCcTRANSFERENCIA Cc~fJCcDEPOSITO BANCARIO$Cc TARJETACc~f6666~6662RETENCION DE GANANCIAS. T) co_funcionesK%C4  FQ>2RETENCION DE IIBB CCIUDADCCKf CABA CCKf6. T) co_funcionesK%C4  F>2RETENCION DE ART. T) co_funcionesK%C4  F>2RETENCION DE SUSS. T) co_funcionesK%C4  F>2RETENCION DE IVA. opagosXchq ccCHE Q}c8Q6c~Q~cQCc2CcEFECc2 TRANSFERENCIA  ~6Q2cQcQcQcdQQCcEFE3CcCHECcOTR666QcQCcCHE c6Q1\tmp\yQ\tmp\yvo comprobantesQ}C XQ6 Q~ Q QCXQ2QQQQQQ1\tmp\zQ\tmp\zw%Ccompras QcomprasTCNEARvTCEXACTvGF GF G((opF3G((cuenta5Fw ~ TF Ew%C4F3 E4%C4$T[C38] 32Fw >2SET EXACT &xtmpex SET NEAR &xtmpne %=/otempcompQ}8Q66Q~ QCC CC/C/C6Q2QQQQQC 1\tmp\{Q\tmp\{xTCC]R%CdetallekFQFv(\tmp\FQ\tmp\\tmp\y\tmp\z%= \tmp\{F5TCCC""#6@z 9999,999,999_!TC"Oa6TCTTTT=TC"CPAJ6CCC""#6ZT importe2#0 vopagoTC TC #Tr  - C:TC'%CAR 1   TTC6TC6TC6TC6% Klistadosaaaaa-%T TC.pdf%Cborrar1!FvQ%Cborrar2HFwQ%Cborrar3oFxQ \tmp\y.dbf \tmp\z.dbf \tmp\{.dbf%CdetalleFQ \tmp\.dbf% *i1 comprobantesN *i1 comprobantesN *i1 comprobantesN   Tg%0CCCC    ,o comprobantesCLAS??6 QCLAS??6 QQQQQQQQQQQQQQQCZCZQQQQQQQQQQQQQQCcd 1\tmp\{ TCW%Ccccomp Qcccompo comprobantesXcccomp CCFC5CcNCCdND??666 QCCFC5CcNCCdND??666 QQCQQQQQQQQQQQQQCZCZQQQQQQQQQQQQQCcd1\tmp\zQ\tmp\z\tmp\{%CN  FQF%Q$F(% FTCQ%C ganancias 2!Q.\F%CN!-%T(CCZ) C ! TF T T T T T T T T TflistadosTTTT TRGCCZT.t.FTr  - C: - RET. GAN. CC999,999_TCFTC6TC6TC6TC6% M$%T#0TCCCC>=_monotributo.frxKlistadosaaaaa-C.pdf%CCPBTSx$FG(;%CCCC -H$ &  $T Exento  .%'T Adquisin de Cosas Muebles  w%3T &Locaciones y Prestaciones de Servicios  %1T $Prestaciones de Servicios Eventuales  %!T Transporte Automotor 2 & T   T T T T  (-TC  %C-ocpbtsQX tmp_retibQ CZCZQQQK  cpbts_ib%CN'TCTCTCTCd TTCCTCCTCCCZ*TC 6 TflistadosH() )TTTRIBACCZ Q)T T!TRICABACCZ )T"T#TRIERCCZ )T$T%TRIMISCCZTTT.t.F T& ~k*/T&&CC&/6C #)H*+ *ITr  - C: - RET. IIBB BA CC999,999_ ?+KTr  - C: - RET. IIBB CABA CC999,999_ +ITr  - C: - RET. IIBB ER CC999,999_ +OTr  - C: - RET. IIBB MISIONES CC999,999_TCTC6TC6TC6TC6% -Klistadosaaaaa-C.pdf%CCPBTSG-FG(%0F(%-rcpbtsa G(T'R.G. Factura M T() T*<+ocpbtsCQ+"T-C  C+6 T./ T01 T2flistados(2T3TTT4TRVCCZT.t.ETr  - C: - RET. IVA CC*999,999_TCFTC6TC6TC6TC6% 0%T00TCCCC>=_monotributo.frx >0 TT RG 1575/03Klistadosaaaaa-C.pdf%CCPBTS0FG(% 4F(%+1rcpbtsa G( T5 T67 T8<9ocpbtsCQ9"T:C  C96T6: d T; T<= T>? T@flistados6@T3TTT4TRVCCZT.t.FTr  - C: - RET. SUSS CC8999,999_TCF3TretcpC_26.frxTC6TC6TC6TC6% 4Klistadosaaaaa-C.pdf%CCPBTS14FG(%/7F(%4rcpbtsa G( TA TBC TD<9ocpbtsCQ9"T:C  C96TB: d TE TFflistadosBFT3TTT4TRVCCZT.t.ETr  - C: - RET. ART CCD999,999_TCT retar.frxFTC6TC6TC6TC6% +7Klistadosaaaaa-C.pdf%CCPBTSV7FG(%%CG H 7!%C oDocumentosbO7CIJ1TKC -a:L%Cborrar2 8FwQ%Ccpbts28FQ \tmp\z.dbfBUMXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNFORMULARIO XMAILFORZADOXAUTMAIL OADJFILESXPDFPATHPROCSVOPAGO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVAZEMPIIBB_NUMERO ZEMPINICIO ZEMPLOGO_TXTZEMPLOGO ZEMPMARCAAGUA DATOS_EMPRESALISTADOSP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAPROVEEDOCOD_PROXCOD_PROCODPRONOPAGONCOPERCREATE_OBJECT_SECURITY SYS_SECURITYZUSUARIO OSECURITYGET_USERCOM_OPERUSRPRO2ZCBUCBUP_SYSTEMZBANCO_TRANSFERENCIABANCOTRFBANCOSDESCRCUENTASCOD_CUECUE_DEUCUENTA ZPROCUENTAABREV ZPROCUENTAD ZPRONOMBRECONTADOTARJETAXFROM XOTRO_PRONOMBRE ZPRODIRECCION XI_DIRECCION DOMICILIO ZPROZIPCIUDADXI_ZIP XI_CIUDADCOD_ZIPCIUDAD ZPROPROVPAISPROVINC XI_PROVINCIA PROVINCIA ZPROTELEFONOXI_PHONOPHONOZPRODIRECCION_FULLZCATIVA OLOCALIZACION$IVA_CATEGORIA_PROVEEDORES_TEXTO_CPBTXCATIVAIVACAT ZPROCODIGOZCUITXCUIT INSCRIPCIOZIBIBZORDENXORDENZDESCUENTOSTXTT_DESC1T_DESC2ZFECHAXFECHAZFINALPAGOSPESOS ZIMPORTETXTLETRAS ZADELANTOSV_ACREDIZMONEDAXMONEDA ZMONEDATXT MM_MONEDAZMONEDASIMBOLOZCAMBIOXCAMBIO ZCOMPROBANTEZTIPOCOMPROBANTEZTIPOCOMPROBANTE_ABREVIADO ZCOMENTARIO XCOMENTARIOXDVALBORRAR1BORRAR2BORRAR3XBORRAR1XBORRAR2XBORRAR3P_TE_PAGOS_DESCRGRUPOCUEDESCRTIPOSUBTIPONUMINTVENCFECHAIMPORTEIMPORTE2IMPORTE3IDXTIPOREFINTCHQECHEQUEPROVNUMEROP_LOCALXAREAXCOD_CUEXMSGOBTENER_CUENTAS_UNICAS CO_FUNCIONES TXTPROVINCIATIPOCPBTCOMPROB2COMPROB COMPROBANTOPSALDOAPLICADOCAUSA COMPROBANTESCOMPRASXTMPNEXTMPEX XDESCRTMPCOD_INSOBIEDATA_CODIGO_VACIOATRBULDESC_INS RECEPCIONCOS_LIFOTOT_COMTEMPCOMPXDETALLEDETALLE ZIDCOMPROBZIDCAUSAPDF_PATH XFORMULARIOCONSCPFORMXDESTINOLOCALESTE_002XDRIVERCPXCOPIASCPCOPIAS XIDARCHIVO XFILTRODATOS XCOPIAPDF MAIL_CPDFCOPIAPDF XMAILTIPO MAIL_MT_VALORMAILTIPO XARCHIVOPDFLIMPIAR_FILE_NAMEIMPRIMIR_FORMULARIOP_TE_PDF_UNA_PREGUNTAADDP_RET_CONTRIB_PATRONALRETCPRETCPDEBRETCPANT XNUMRETCP XNUMRETGAN ARR_RET_IIBB XNUMRETIVA XNUMRETARCPBTTOTALBASEBASEAPLRETGANBASEIB BASEAPLIB APLICADOIBRETIBRETIVANO_RET_M RETGANDEB RETGANANT RETIVADEB RETIVAANTCUOTAIDRGARIBRIVRCPRETARRETARDEBRETARANTRAR RETCPBASE RETARBASEXAREA_3CCCOMPDEUDACPBTSXMAXRETSXTABLATABLA_GANANCIAS GANANCIASCODIGOXCODIGO_GANANCIAS ZCAT_RETGANCODREGIMENZRETGANXRGAN2ZNETOADEXNETOADEZPAGOANTXPAGOANTZRETANTXRETANTZNRETGAN ZBASE_CALCULOXBASEGANZRETGAN_ADEUDADAXRETGAN_ADEUDADAZRETGAN_CANCELADAXRETGAN_CANCELADAZIMPORTEGANTXTRGFORMRGCOPIASIBRET ZCAT_RETIB ARR_IB_CPBTSZZZCTRET TMP_RETIBCPBTS_IBZRETIBZNRETIB ZBASE_RETIB ZALICUOTA ZNRETIB_TXTZREGIMENP_IIBB_REGIMEN_ESPECIALXREGIMEN_IIBB_GEN_ESP ZIMPORTEIBTXTFRIB_BACRIB_BA XNUMRETIB FRIB_CABA CRIB_CABAFRIB_ERCRIB_ERFRIB_MISCRIB_MIS ZCOMPROBANTES ZCAT_RETIVAZRETIVAXRETIVAZNRETIVA XARR_RETIVASUM ZBASE_RETIVAZRETIVA_ADEUDADAXRETIVA_ADEUDADAZRETIVA_CANCELADAXRETIVA_CANCELADAZIMPORTEIVATXTRVFORMRVCOPIAS ZCAT_RETCPZRETCPXRETCPZNRETCPXARR_RETZBASEXRETCP_REGIMENZRETCP_ADEUDADAXRETCP_ADEUDADAZRETCP_CANCELADAXRETCP_CANCELADA ZIMPORTECPTXT ZCAT_RETARZRETARXRETARZNRETARXRETAR_REGIMEN ZIMPORTEARTXTP_TE_PAG_ENVIARCOUNT ODOCUMENTOSAGREGAR_DOCS_COLLXRESTE_PAG_ENVIAR_POR_MAILt /4  T C   vopago% E codpro% .T!No se envia por mail. ENVIAPAGO=0 C B%d-T No se envia por mail. MAILTIPO=0 C BT &%CCP =T0No se envia por mail. Cancelado en destinatarios C B%C};T.No hay direccin de correo para envo por mail C B0%     PD%C-Enva el comprobante por correo electrnico ? L.T!Reimpresin. No se envia por mail C B%CoArchpdfbO%C0 3T&No se gener PDF. No se envia por mail C B ~z%C0 v<T(No se gener PDF. No se envia por mail. C C B3sys_procesandoEnviando por mail...# !"#$%TCT%CC& &6-TC()' T! T"* T#+ T$,-T C-)''./0123456 T/7 T08 T19 T2: T3; T4< T5= T6>%C6 ~ vopago9C612/0#$"345?.T.C@C3 $ 6A TH BPhTAC !"#$/012.%345C B/TAC !"%DEsys_procesando%A CGFH  BZ;CComprobante enviado por mail(C Se ha enviado por mail.H B <CComprobante enviado a OutlookXC GSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.H B m :CNo se pudo enviar por mailC H BUIOARCHPDFXMSG XCONTROL_TEST XMAILTIPOXCOD_PROXCAUSA XELECTRONICOXFECHA_EMISION XPROVNOMBRE XMAILFORZADOXAUTMAILPROCSVOPAGOPRO2COD_PROPROVEEDOCODPRO ENVIAPAGOUSER_LOG PUB_INDEX ZIDCOMPROBZEMAIL EMAILPAGOSMAIL_ELEGIR_DESTINATARIOSREALTIMEP_TE_PAG_PREGUNTA MENSAJE_SINOXARCHPDF SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAMELC_CCOP_TE_PAG_CONTROLMAIL_MACRO_TEXTOSP_TE_PAG_SUBJECT ZEMPNOMBREP_TE_PAG_REPLYTO P_TE_PAG_FROMP_TE_PAG_FROMNAME P_TE_PAG_MSG XENVIAR_DESDE XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTXFCESSLXGMAILXTOKEN XCOD_MAILP_TE_PAG_AUTHLOGINP_TE_PAG_AUTHPASSP_TE_PAG_SEND_HOSTP_TE_PAG_SEND_PORTP_TE_PAG_SEND_SSLP_TE_PAG_SEND_USA_GMAILP_TE_PAG_SEND_TOKENP_TE_PAG_SEND_CODIGOOBTENER_DATOS_CUENTAP_TE_PAG_ENVIARXOKP_TE_PAG_METODOSYS_MAILSYS_MAIL_OUTLOOKSP_OCULTAR_DEFINITIVAMENTEIMPRESO XIDARCHIVO MENSAJE_AKG+(sys_mail_funcionesG+(listadosG+( sys_mailctasBUSYS_MAIL_FUNCIONESLISTADOS SYS_MAILCTASte_pag_enviar_por_mailFprocsSrArArArArA1dqB5ArrbA"Aa!AuAr r.QqA!! rAB1ArqAAqAAqAASQQ4p*w1AAAAAAAAAABQA0 1A2AaarrqqqqAAAqAQA6>BSqAAr1ArRaqrq3"sA2ABqAAqAAqAAqAA3AAt@"!A0)"QAArA2s1qQBAtRArqb"rdABAbqaAa1aqa1aaA1111"0 "QASQQ1111ArAQ1111A"AAAAbqaA2s1Ar"qR"rarBABbqaA2s1As!Qqb"r2ABcqaA2s1Ar"RqR"bsABbqaAUAAqAAbqAAC42AdA2AaBAAAA!2A!AAA43 r"At12AR11A"A2!aA1KvO%YN6@   TC datasessionvTC]( G(GG2G %Cy/+(\log\-ds CCZ9 (+(\log\-memo9 G( CGG2G BUXPROGXTXTXFILEXDSAAA_DUMPZP_SYSTEMSETSbaaAAAbaaB1%;^siR/6l4DTCCvld_versionadoSys_verificar2_versionado.prg CBU OVERSIONADOCONTROLAR_ACTUALIZACIONES RESULTADO7sys_verificar2TUXVERSIONVERSION_ACTUALSYS_VERIFICAR2THIS~%k%Cversion KQ\VERSION #)T BUTHISVERSION_SYSTEMP_SYSTEMVERSION VERSION_N>%+TC BUTHISVERSION_EMPRESAVERSION_EMPRESA_OBTENERTC %Cempresas PQ \empresas%%Cempresascodigo B  BUXEMPRESAP_CODEMPP_SYSTEMEMPRESAS VERSION_Nw%Cempresas =Q \empresas#pempresasTUXVERSIONP_SYSTEMEMPRESAS VERSION_NCODIGOP_CODEMPTHISVERSION_EMPRESA TCC TC %Cversion m Q(p_system+"\VERSION) IN 0"pversionTUXVERSIONXFECHATHISVERSION_SYSTEMP_SYSTEMVERSION VERSION_N@ ,TC Empresa System6%TC 6%Ba  T aTT C vld_versionN-T version__avance_CCZHT do 0 in sys_verificar2.prg with oVersion, xResultado6C Actualizando  versin CCZ  &xavance % !C - Resultado OK a ,C - Resultado ERROR: a ('% C f LC - No existe. a T -(CResultado ERROR:  -CC EXECPCIN: C % (%C CBC 9B-UXINICIOXCUALXCUALT XVERSION_BASETHISVERSION_EMPRESAVERSION_SYSTEMVERSION_ACTUALXVERSION_PROPUESTA XRESULTADOOVERSIONXAVANCE_FUNCIONXAVANCE LOG_AGREGAR RESULTADO RESPUESTAOEXERRORNODETAILSLOGUEAR_EXCEPCIONVERSION_EMPRESA_ESTABLECERVERSION_SYSTEM_ESTABLECERCONTROLAR_VERSION TC TC CC .CControl de versiones de datos:CC--Q+CVersion Actual: CCZ Ta%0C.+CVersion System: CCZT Ca %C.,CVersion Empresa: CCZT Ca T C6 BU XEMPRESAXSYSTEM LOG_AGREGARTHISVERSION_ACTUALXOKVERSION_SYSTEMCONTROLAR_VERSIONVERSION_EMPRESA RESULTADO\ T-T ErrorNo: CZC -T LineNo: CZC +T Message: C +T Procedure: C +T Details: C -T StackLevel:CZC -T LineContents:C  BU OERR XRES_MENSAJEERRORNOLINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS@&sys_cfgUXTPATHXVARXVALUEXPOSXREL GUARDAR_CFGSYS_CFGTTC CollectionTC CollectionTC Collection1TCTablassys_clases_Tablas.prgUXVERSIONTHISVERSION COLECCIONTABLASEN_USO TABLAS_FULL4TC GTC( yC U XTABLAOTABLATHIS TABLAS_FULLBUSCAROTLBTABLASNOMBREOEXADD-CReservando tablasTC Collection Ta*CReservando tablas:  %Ca-a C H  .C NO EXISTE Tabla: C f   a1C EN USO LOCAL Tabla: C f   0C EN USO OTRO Tabla: C f 2*CERROR Tabla: C f  T- BUXOKOESTADO SET_AND_SHOWTHISTABLASCOUNTEN_USOOTABLAAVANCENOMBRE COD_ABRIRADDERRORNUM LOG_AGREGARv  Ta/CAplicando novedadesf C  BU OTLBXRESOESTADO SET_AND_SHOWTHIS COLECCIONCOUNTOTBLTABLAS COD_CERRARinitversion_system_access;version_empresa_accessversion_empresa_obtenerkversion_empresa_establecerFversion_system_establecercontrolar_version controlar_actualizaciones loguear_excepcion  guardar_cfg init agregar_tablareservarliberarhTTT T T         UVERSION_EMPRESAVERSION_SYSTEMVERSION_ACTUAL RESULTADO RESPUESTA T- T- T- T- T- Ta T T U COLECCION NOVEDADESTABLASEN_USO TABLAS_FULL RESULTADO RESPUESTAVERSIONvld_versionadocustom vld_versioncustomqB9q2qA1A2qAA2q1AQA3qA141aA!2rQbqAb!ArAB!3A"rA311"aqAAAA2qq2qa=q2qqqAA2qAqAaaqAAA2BA2`4p:R T4%#"Z0)Uj:2 D[ {q}|%+ckTk6TG+( sys_doscen"BCUXTESTVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLAS XINICIALIZADO SYS_DOSCENDC_GENERAR_BETWEENA"2%L!ub `zV64TCcons% :Qcons #)BT2CSIN USAR - ARBOL ACTIVO' BT2CSIN USAR - ARBOL PASIVO' QTAC>&SE PUEDE UTILIZAR EN ASIENTOS MANUALES' >T.CINGRESOS POR VENTAS' 8T(C IMPORTACIONES' TTDC)SE PUEDE UTILIZAR EN ASIENTOS AUTOMATICOS' KT;C$ CUENTAS RECAUDADORAS EN EFECTIVO' VTEC% *CUENTAS RECAUDADORAS DE VALORES ENDOSABLES' HT8C CUENTAS PAGADORAS EN EFECTIVO' STCC (CUENTAS PAGADORAS CON VALORES ENDOSABLES' PT@C %CUENTAS PAGADORAS CON VALORES PROPIOS' jTZC< ?AJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN PAGOS' nT^C=CAJUSTES, RETENCIONES Y OTRAS CUENTAS CON LAS QUE SE HACEN COBRANZAS' JT:C&SIN USAR - CUENTAS AMORTIZABLES' LT<C)"RESULTADO DEL AJUSTE POR INFLACION BT2C+AJUSTABLE POR INFLACION' QTAC-&RESULTADO DE ACTUALIZACION POR INDICES' JT:C  IVA CREDITO FISCAL (IVA COMPRAS) HT8CIVA DEBITO FISCAL (IVA VENTAS) ;T+C?GRAVADAS CON IVA' BT2C0VENTAS Y OTROS INGRESOS' ;T+CCOMPRAS Y GASTOS' gTWC<SIN USAR - COBRANZAS ADELANTADAS SIN REGISTRO DE VENCIMIENTO' cTSC 8SIN USAR - PAGOS ADELANTADOS SIN REGISTRO DE VENCIMIENTO' 9T)C COSTO DE VENTA' VTFC!+SIN USAR - COSTO DE VENTAS DE OTROS ACTIVOS' MT=C"DEUDAS CON REGISTRO DE VENCIMIENTO' OT?C$CREDITOS CON REGISTRO DE VENCIMIENTO' @T0C"DESCUENTOS CONCEDIDOS' JT:CINGRESOS ADICIONALES POR VENTAS' ?T/CDESCUENTOS OBTENIDOS' <T,C INVENTARIO FISICO' JT:C !EGRESOS ADICIONALES POR COMPRAS' TTDC")SIN USAR - INTERESES POSITIVOS CORRIENTES' VTEC #*SIN USAR - INTERESES NEGATIVOS ADELANTADOS' VTEC$*SIN USAR - INTERESES POSITIVOS ADELANTADOS' JT:C%SIN USAR - INGRESOS ADELANTADOS' IT9C&SIN USAR - EGRESOS ADELANTADOS' TTDC ')SIN USAR - INTERESES NEGATIVOS CORRIENTES' QTAC*(&SIN USAR - UTILIDAD POR MAYORES COSTOS' KT;C() SIN USAR - FONDO DE AMORTIZACION' DT4C'*SIN USAR - AMORTIZACIONES' CT3C,,RESULTADOS DEL EJERCICIO' 5T%C/- RESULTADOS' 2T"C2.REDONDEO [TKCC/0RECIBE DEBITOS CON EFECTIVO EN ASIENTOS MANUALES' \TLC@01RECIBE CREDITOS CON EFECTIVO EN ASIENTOS MANUALES' fTVCD1;RECIBE DEBITOS CON VALORES DE TERCEROS EN ASIENTOS MANUALES' gTWCA2<RECIBE CREDITOS CON VALORES DE TERCEROS EN ASIENTOS MANUALES' cTSCB38RECIBE CREDITOS CON VALORES PROPIOS EN ASIENTOS MANUALES' ZTJCE;/GENERA NOTA DE CREDITO O DEBITO AUTOMATICAMENTE' ?T/CH<DIFERENCIAS DE CAMBIO KT;C\SIN USAR - BIENES ALQUILABLES' dTTCj?:IVA DEBITO FISCAL NO INSCRIPTOS (IVA VENTAS NO INSCRIPTOS) GT7Ce@SIN USAR - RETENCION IVA 30%' VTFCKA+SIN USAR - INGRESOS A TESORERIA SIN APLICAR' <T,CmBIMPUESTOS INTERNOS KT;CID TIENE ASOCIADA CENTROS DE COSTOS' LT<CJE!SIN USAR - RESULTADO POR TENENCIA' RTBClF(PERCEPCION DE IVA DE PROVEEDORES RG 3337 ET5ChIPERCEPCION DE IVA DE ADUANA WTGCiI-PERCEPCION DE GANANCIAS ADUANA DE PROVEEDORES PT@CJ&PERCEPCION DE GANANCIAS DE PROVEEDORES <T,CQKVALES AL PERSONAL' <T,CPKPRODUCCION PROPIA' 2T"COKREVENTA' IT9CdPSIN USAR - RETENCION IVA 5.2 %' 6T&CkQ INVERSIONES' HT8CZZSIN USAR - TARJETA DE CREDITO' FT6C[[VALORES EN GARANTIA/CAUCION' 8T(C]] INTEREMPRESAS' BT2C^^PRESTAMOS INTEREMPRESAS' QTACt_&DEPOSITOS O TRANSFERNCIAS DESCONOCIDAS' pT`Cu`ENO IMPONIBLE (CHEQUES RECHAZADOS/CANJE DE CHEQUES/TRASLADO DE GASTOS)' QTAC{a&TRANSFERENCA DE VALORES ENTRE EMPRESAS' WTGC}b,PROVISION/AJUSTE DE COMPROBANTES DE CLIENTES' YTICod!PERCEPCION DE IIBB DE PROVEEDORESC6 GT7CpePERCEPCION DE IIBB A CLIENTES NT>Cf$PERCEPCION DE IVA A CLIENTES RG5329 aTQCqg)RETENCION DE INGRESOS BRUTOS DE CLIENTESC6 FT6CrhRETENCION DE IVA DE CLIENTES LT<Csi"RETENCION DE GANANCIAS DE CLIENTES GT7CvjRETENCION DE SUSS DE CLIENTES HT8CxkRETENCION DE IVA A PROVEEDORES NT>CLl$RETENCION DE GANANCIAS A PROVEEDORES WTGCgm-RETENCION DE IIBB A PROVEEDORES (REG.GENERAL) XTHCn.RETENCION DE IIBB A PROVEEDORES (REG.ESPECIAL) TqCo5RETENCION A LAS CONTRIBUCIONES PATRONALES DE CLIENTESC6C6 hTXCpRETENCION DE ART DE CLIENTESC6C6 CT3C|{SEPARACION POR PROVINCIA' >T.C~~MERMAS DE PRODUCCION HT8CPROVISION ACUERDOS COMERCIALES 0T CI.T.C. FT6CLOCALES: CUENTAS DE INGRESO' ET5CLOCALES: CUENTAS DE EGRESO' ;T+CGASTOS DE TARJETA GT7CINGRESOS VARIOS DE TESORERIA' <T,CCOBRANZA MOSTRADOR IT9CyIVA A CLIENTES NO CATEGORIZADOS ;T+CwIVA NO COMPUTABLE GT7CNSIN USAR - MONEDA EXTRANJERA' LT<Cz!IMPUESTO A LOS DEBITOS Y CREDITOS' % Q BUXRESXUSADOCONS VLD_QUESTION P_PERIBXPROV HAYRET_CP HAYRET_ARq1A!!Aa1!!q1aAaaAA1Q!aq1Aqa!Qq!aa!qqaqq1aQqqA1%M" M?6P4 %CxtablabCJTTBL ERR%C xregistrobN{T%CxmotivobN T  T(T T( T ;%Cdb_log !%C \db_log.dbf0 kh1\db_log T N C N  NC Q \db_log.dbfMrdb_log     C EBUXTABLA XREGISTROXMOTIVO XPUB_INDEXXSESSION PUB_INDEXODBERROR P_SESION_IDP_SYSTEMFECHAUSRTABLAREGISTROMOTIVOSESSIONAAAAAAAABA1%~+(hT6%CUB% >B L% <7%C  ] C  ] $C C rmlog.txt-] C rmlog.txt-] TC  .TC FT5 TC ]C ]%C TC C DTTiempo ejecucin: CCZ segundosC C  !(TCC rmlog.txt HTC rmlog.txt8 mostrar_txtxTXTOptimizacin RUSHMOREU XMOSTRARXTITULOXSQLXFORZARP_VER_RUSHMOREP_SYS_OPTIMIZA_TIEMPOODEYFUNCGET_PATHXTXT MOSTRAR_TXT7rAABsqAAAAr!ABAA1%B595XY6%CxplanmaqbNB T%C xfor_tipobNr TG+(dey_funcG+(listadosG+( pr_funcionesG+(proc_stkCccformul Cbienes Cbultos Catributo Cbienes Cform_cal Cform_pas CStock C T  TTTCTFG((codins E&%S S TFG((codigoECX T nT%SFG((codigo E%SBFG((codigo ET !T"#T$C!fT%C#f T&$ T'% lT !T"# T("T)CC*@z 999,999,999_0T+CC,CC*ZCCCC-iZR,6%CxVencbD T./ T.T0[ C C C ] C1CS C16 CS C16T2C-* T34 T5$%6IND 7 +T8C4@z 999,999,999_ C   %C xcantidadabU%C=Sy#T54C6  T5[T8C5@z 999,999,999_ C" (CC4@z 999,999,999_ C )T9C #T:C;@z 999,999,999_#T<C=@z 999,999,999_'T>C?SSiNo6%T@CC7@z 999,999.999_%Cdeposito Qdeposito!CBdepositodeposito TCBTDCA1!CEdepositodeposito TFETGCA1 TH TI TJ-K sys_barcodes$PRICC*ZJZTMC1CS C16 CS C16%TNC-C-CTOC1TPCTQCTRC TSC4@z 999,999,999_(TTCS C16TUCV TW4CYX TZYT[\1 T] T^T_C`h1a\tmp\_bNcCdCeCfCgNhC iCjNkNlNmC nNoNpMqNQa\tmp\_r%sb & CoZCbZt Tu Tv TwC x Tyv TzwotmpoutQ{c e dQ|CCO@Z 99_Q}fgQ~QQaQhQh Qcedilmnoq2(2 %C U *Td4 C%6SELQ >T CC CC   TTTTTTTTT -T T T T TT TXoform_cal1QQaQ  T  (C%C ]TTTT-TTTT Hx CPTCCCCZ - CCCC Z CPRTCCCCZ +/- CCCC Z C#TCC 2TT%C xTMPDummyFQFTCh1MQ2oform_paso xtmppass T ~TC)%CC>\C C TCC>[>TC >CT%6PLA T T T T TTCX TTCX TTCXTCXTCX T T TTCX T T T TTCX TTCXTCXTCXTCXTCXTCX T TT T T pr_ordenes*G+(listados%Ccliaux qQcliaux(CC ZPcliauxcomprob%Ctccvent QtccventCtccventtccvordTTH4 SLTSIN CONFECCION DrTDOBLE FTFONDO TT TROQUELADO MTMOLINO LTLATERAL 24T NO DEFINIDO%Ctventas dQtventas&CCZCZtventaspeditmTT%Citm_desc Qitm_desc.CC ZPCZitm_descidT%Cclientes LQclientes"CclientescodcliTT:TCC (C) 6CTCCfT$TPLASTICOS EXCLUSIVOS SA%Cbienes @QbienesCbienescodinsT C1FrSrFr %6CALFr(CN(  >b >j#)rnTC4= w)%6SEL  =5Tpr_apertura_op_envC _req6 T T T TT.t. T%C '%C\cpbt\.frx0|Jlistados.frxaaaaa 9F(5'T6_C.frx%C\cpbt\01 T'Caaaaa T hTpr_apertura_op_fabC _Maq6C _FO6C _req6 T T T TT.t. T%C '%C\cpbt\.frx0Jlistados.frxaaaaa Fr(}'T6_C.frx%C\cpbt\0y T,% 6IND C  ^'Caaaaa h TFrQ a\tmp\_.dbfBUXREIMPRE XENVASAMIENTO XFOR_TIPOXPLANMAQXREQDEY_FUNCLISTADOS PR_FUNCIONESPROC_STK CHECK_OPENEDPR_GET_FORMULAXFORMULAZNOTASXDESCRXCODIGOCCFORMULCODIGOXBULBULXATRATRPR_COMB_BUSCAR XTIPO_ARTBIENESTIPO_ARTCODINSBULTOS ATRIBUTOSSTOCKXFACTORFACTORATRIBUTOXMEDIDAMEDIDA XMEDIDAAUX MEDIDAAUXXMEDPRIXMEDAUXZMEDPRIZMEDAUXOFFSETZNUMEROXNUMPRODZLOTEXLOTEXFECHAZVENCXVENC ZARTICULODESCRZFECHAZCANTIDAD_NUMERO XCANTIDAD XCANTIDADAP_EMPPE ZCANTIDADZMEDIDA ZBATCHMINMINBATCH ZBATCHMAXMAXBATCH ZCIERREAUTOCIERREZPESOESPDEPOSITO XDEPOSITO ZDEPOBAJAZDEPOBAJADESCRXDEPINGZDEPOING ZDEPOINGDESCR ZTOTALKILOSZDESCRZBARRAS CODIGO128A SYS_BARCODES ZARTICULO_DES ZARTICULO_CODZARTICULO_LIMPIOZART_CODZART_ATRZART_BULZCANTIDAD_SOLA ZBULTO_DESZEMPRESA FN_EMPRESA ZCANTIDAD_VALPR_GET_MAQUINA XOPA_MAQUINA ZMAQUINA_CODZMAQUINAMAQUINASZMARCA ZPESO_REALXARCHIVONEWFILEP_LOCALART_NUMART_CODART_ATRART_BULART_DESART_CANART_UMART_TEMPCOPIA_NGRUPO_NART_CAN2ART_UM2ART_UNIPASODPASOORDENTMPOUT P_PR_EDICION2IDXCOPIAACCPRIACCAUXDETALLESXTOTAL_PRIMARIAXTOTAL_SECUNDARIAPORCCODITEM INF_RECEPFRACCELAB ES_VISIBLE ZARR_COMPNIT OBTENER_STOCK ZPORCTOTALVALCTRL RESULTADODESDEHASTATIPORESULTAFORM_CALFORMULAZARR_CAL XCANTCOMPLIMPIAR_DECIMALES XTMPDUMMYNEWFILE_LOCAL_TMPMETODOTEXTOFORM_PASXTMPPASSXSEPARAXTMPINZMETODOXPEDIDOXPEDITMXMAQXANCHOXESPESORXFUELLEXTRATADOXCOLORXKILOS XMATERIAL1 XMATERIAL2 XMATERIAL3 XPOR_MAT1 XPOR_MAT2 XPOR_MAT3XMASTER XPOR_MAST XPOR_DESL XPOR_ANTIXMEMO1XTRABAJO XCILINDROXCOLOR1XCOLOR2XCOLOR3XCOLOR4XCOLOR5XCOLOR6XMEMO2XLARGO XTIPO_CONFEXMEMO3XPLA_KILOSMETROSTRAER_OTROS_PR PR_ORDENESCLIAUXTCCVENTZENTREGAFEC_ENT ZPED_FECHAFEC_VEN ZTIPO_CONFETVENTASCOD_INS XCANTPEDIDA RECEPCIONITM_DESCZPED_COMENTARIO COMENTARIOCLIENTESCOD_CLI ZCLINOMBRENOMBRE ZCLIDIRECCIONENTDOM ZCLIZIPCIUDADENTZIPENTCIU ZCLIPROVPAISPROVINCENTPROZORDENDECOMPRAREF ZEMPNOMBRENRCITNRCIT2FORZCANTIDAD_DE_LOTES XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOS XCANT_FORMEXIST_CPBT_EMPP_SERVERIMPRIMIR_FORMULARIO XFORM_FULL CPBT_TAIL OLD_XDESTINOHAY_PASOS_ASIGNADOS QSTRINGQINTEGERG+(dey_funcTCCTCN('T_C.frx%C\cpbt\0BaB-U XFORMULARIO XCANT_FORMDEY_FUNC CHK_VALUENIT XFORM_FULLP_EMP CPBT_TAILP_SERVERQQINTEGER%. B JB_CCZUXTAIL G+( pr_funcionesFG((codins%Ccur_comp[FQ%C xfor_TipobN T%% sFG((claveJocompprodCXQ Q  cur_comp ~oF(E %C4k>   C C T T T ~4TC T T T T T T T  T! T" T# T$|%proc_stk !"#$"T'C(6%C$ T)T)%*IND%BC Artculo : C sin factor !!!+%Cform_pas %Qform_pasF,G((formula--   F.>/01234)56 7898:);<(  =,>??F% %Cform_pas pQform_pasF,~-F.- , %C4 - , F.1>7898 , =,> %a\0T@ Total Kilos: C @z 99,999.999_TACB T@-TA-BUC XFOR_TIPOXFORMULA PR_FUNCIONESBIENESCODINSCUR_COMP P_PR_EDICION2COMPPAUXCLAVETEMPERATPASOCOMPPRODIDXIDNCIERRESCODBULATRAPL!PR_SQL_AP_FORM_EDITADA_A_COMPPRODXNUMPROD"PR_SQL_AP_FORM_ORIGINAL_A_COMPPRODACCPRIACCAUXXITMPR_COMB_BUSCARXFACTORXDESCR1XMEDIDA1XMEDIDA2 XDMEDIDA1 XDMEDIDA2 XAMEDIDA1 XAMEDIDA2XEAN13XDUN14XTIPO_ARTICULOARTICULO_DATOS_AMPLIADOSPROC_STKXMEDIDAUNICANTIDADP_EMPMENSAJEFORM_PASFORMULATMPOUTART_NUMART_CODART_ATRART_BULART_DESART_CANART_UMART_TEMPCOPIA_NXCOPIAGRUPO_NART_CAN2ART_UM2ART_UNIDPASOTEXTOORDEN ZTOTALKILOSZDESCRXDESCRoprod_forQQQQQ  Q     cur_comp>C TUXOPCODCOMPCODATRCOMPATRBULCOMPBULCANTIDADCANTORIGTEMPERATUNIDCOMPUNIPASOORDENPROD_FOROPFOR_TIPOCUR_COMP XCANTIDADCCFORMULALLoprod_forQQQQQ  Q     cur_comp>C TUXOPCODCOMPCODATRCOMPATRBULCOMPBULCANTIDADCANTORIGTEMPERATUNIDCOMPUNIPASOORDENPROD_FOROPFOR_TIPOCUR_COMP XCANTIDADCCFORMULALL#-C  BC4UART_CODPASOexist_cpbt_empd' cpbt_tail(detalles)"pr_sql_ap_form_original_a_compprod62!pr_sql_ap_form_editada_a_compprod3hay_pasos_asignados5@qBA!!a!R11Q1QQ!brbqqArqArqA!1A2B1AAA11qQAA!!Q! aA"q 4qbAqAA2q!1AAAqAAQQ&!AAf"!A1AAA!A!AqA1AAA1AaAAAA!aA!A"rQEsaqQAAAQ"bTqAqqrBAAqArqqBAAACrAB3!qqAAq3!1!A3arqAAA1sq1ABAA#AAb1!AAAAurQQ rBAsArrQBBBBB4qN 3qN 51m;>=RyK==_=5OhBO_Q:lQSLSTa%or0#7! 4.%CxsionobNC 0TC3 Atencin !!!xH  B  B  B .C!Llamada errnea a MENSAJE_SNX !!! BUXMENSAJEXSIONOXRESMENSAJEq122AA1%9VVC7`+ 2C U XPRODXCOD_INSXBULXATRXDESCRXCANXSTOCKXSMXSM1XSM_MPR_SM_ENVIAR_MAILk+ % EB-%C zC9No se han definido correos para notificar por artculo!!!C (" (p_notificar_stkmin_x_itm_mailto)6 B- %C  T 9#T -  -  T T TStock Mnimo -  T+T Produccin: CCZC 2T Producto: C - C 3TCantidad en stock : CCZC sTTCantidad prevista (Stock + OCs - Compromisos de Produccin - Compromisos de Venta): CCZC TC -TStock mnimo: CCZC TC [TLa cantidad prevista es un CC d Z % del stock mnimo.3CCCZPUXPRODXCOD_INSXBULXATRXDESCRXCANXSTOCKXSMXSM1XSM_MP_NOTIFICAR_STKMIN_X_ITMP_NOTIFICAR_STKMIN_X_ITM_MAILTOMENSAJEP_DEVXMSGXCODIGOLC_TOLC_SUBJLC_MSGSYS_MAIL_ALERTAS  CAlerta stock mnimo9sys_procesandoControlando stocks mnimos+     T T T T  T  T  T  T _proc_stk     GTCCC -C6CC -C6 T ? !5" T" ~ysys_procesando Controlando: C#$CC#% -C#%6CC#& -C#&6T#$T#%T#& T T T T T T T T T T T  T!]'proc_stk !T T T T T  T  T  T  T _proc_stk     *%    jsys_procesando Notificando: CCC -C6CC -C6 %C() z2C *%C(%C"|+T"" Produccin: CCZC 2T"" Producto: C - C T""C BT""1Artculos afectados por debajo del stock mnimo :T""C T""C T""C-dQC T""C lT"" Artculo: CCC -C6CC -C6 - CC 3T""Cantidad en stock : CCZC sT""TCantidad prevista (Stock + OCs - Compromisos de Produccin - Compromisos de Venta): CCZC T""C -T""Stock mnimo: CC ZC T""C [T""La cantidad prevista es un CC d Z % del stock mnimo.T""C F#+sys_procesando%C"  ,-*T,.\tmp\tmp_stock_mnimo.txtC",/012T/C34'T0CC/log\Stock Mnimo T2a%C0 0(1 T2-  %2e pT-0CCCC$iZ-C00CCCC$HZR-C00CCCC$%ZR_CC^:- - PR CCZ'T-- - C - CC"-%h1.\tmp\C]5M5,6 T6CR mostrar_txt1Anlisis de artculos por debajo del stock mnimo, Q6U8XNUMPRODSYS_M SP_MENSAJESYS_PROCESANDO XCODIGO_PROD XDESCR_PROD XFULLDESCRXMEDIDA1XMEDIDA2 XDMEDIDA1 XDMEDIDA2XSMXSM1XSM_MARTICULO_DATOS_AMPLIADOSPROC_STKXCODIGOXBULXATRXSTOCK XDISPONIBLEXCOD XCANTIDAD XCOMP_VENXORD_VENXORD_OC XCOMP_PRDXORD_PRDXORD_PLN XCOMP_PLNXCENTRAL XDEPOSITO XEN_CALIDAD XEN_RECHAZOXLOG_TXT TMPREVMINCODATRBUL OBTENER_STOCKP_PR_STOCK_MINIMOP_NOTIFICAR_STKMIN_X_ITMPR_INFORMAR_BAJO_STOCK_MINIMOSP_OCULTAR_DEFINITIVAMENTEXARCHIVO XARCHIVO2P_LOCALXTPATHXFPATHOEXXOK_LOGODEYFUNCGET_PATHMEMOXALIAS MOSTRAR_TXTpr_sm_enviar_mailalerta_stock_minimo!!22rAqAQ1A!111125q0rr0!AR!1!11A111111BBqA"3Aq2AAqARQr"B4,%K,lnT7(;     2TC GES_CRYPTOSys_Clases_Crypto.PRG%C T%C T%C T%C T%C T%C@ T%Cb T%C T%C T C%C T CTCwwSMTPNTTTTTT$TCNO6$TCNO6%C T  %C T  T  T  T- CMaila% m#sys_ve_fce_mailedit(  Ta%TC% T (!T!" C# T- C$< BU%CMESSAGECSUBJECTCERROR CRECIPIENT CMAILSERVER CSENDEREMAIL CSENDERNAMECCCLISTCBCCLIST CCONTENTTYPE CATTACHMENT CUSERNAME CPASSWORDCPREVISUALIZAROCRYPTXRESP_MAIL_SUBJECT P_MAIL_RCP P_MAIL_SERVER P_MAIL_SENDERP_MAIL_SENDERNAME P_MAIL_CC P_MAIL_BCCDECRYPT P_MAIL_USER P_MAIL_PASSOSMTPWWCLIENTXOKSYS_MOSTRAR_SCREENSYS_VE_FCE_MAILEDITSENDMAIL CERRORMSGOEXMESSAGEDISPONSEDESTROY!AAAAAAAAQAQArtbBA"A!A!1AAAAq1%|I2OIK%X78%;TN R T$%Cxfce_reprocesobCTNG+( fe_funciones%  B  +T CCC RgC =6 T / listados T C %  TCGEs.FE.FE_LoginN AvCJEsta computadora no tiene instalado el acceso a AFIP o tiene problemas !!!C No se puede facturar. T%C` B T "TCGEs.FE.GES_WSBFEv1N *%CoWSBFEv1bOC  nC7Error: Imposible crear el objeto GES.FE.GES_WSBFEv1 !!!C C =Reintente nuevamente o salga del sistema y vuelva a ingresar. BTCTC,TC FE_Registrofe_objetos.prgT T 0TCFEb_Comprobantefe_objetos.prg0T!CFEb_Comprobantefe_objetos.prgT"#T"#%# T $T%wsbfe$T&'\FE_ .pfxC(sys_procesando$Solicitando autorizacin en AFIP....%C* B 4T+* >, fe_funciones- fe_funciones. TC/(0A T. T.C12 %C1 B%C13 'Cologin.oError.Error_originalbO c'T.C14C 135 T..15%C1 T..C176%C.T.05=T.C.+OLE IDispatch exception code 0 from GES.FE:C.C.>2%CoTAbO1C$Error al obtener el Ticket de acceso B4(sys_procesandoSolicitando C.A.E....T8T9 %:h/TCFE_Comprobantefe_objetos.prg/T!CFE_Comprobantefe_objetos.prg ; fe_objetos; fe_objetos!T=C C$]CCCZT> T?=H  A" H   C@Z &TACB6 C@ &TACB6 C@ &TACB6 2 <C/Tipo de comprobante electrnico no definido !!! B BO HG K  C@ &TACB6 C@ &TACB6 C@ &TACB6 2K <C/Tipo de comprobante electrnico no definido !!! B C| Ht x  C@ &TA CB6 C@ &TA CB6 C@( &TA CB6 2x <C/Tipo de comprobante electrnico no definido !!! B Mg H c  C@ TA3 C@ TA4 C@ TA5 2c <C/Tipo de comprobante electrnico no definido !!! B 2 % IC/Letra invlida para comprobantes electrnicos ( ) !!! BTCDTEFTGHTIC \TJCC RgFK#CIgTLKMTNKOTPQH CQ80860TRCCCSTUV6-g Q96u%CT=967(TRCCCCT-[g8 q&CMal formateado el DNI !!! B Q91(TRCCCCT-[g8 2TRCWg#%R Q99 U+CDebe tener CUIT/DNI u otro !!!X+CDebe tener CUIT/DNI u otro !!! B?TYCZ S CCZ[PES64T\CCZ S ]6TT^_%C`=R00Ta` %TaCbH: DTcTdTe 2TcfTdgTeh%B1%CAӭ Teh -TeTih Tj%Cmotivos ~Qmotivos%lClmotivoscodigo;%mcdl kn o  Ip(E+TqC FE_TributoFE_Objetos.PRGTq?HW" p Tr1Tqs!Percepcion IIBB Prov.Buenos AiresTqt p Tr5Tqs%Percepcion IIBB Ciud.Aut.Buenos AiresTqt pu Tr(TqsPercepcion IIBB Santa FeTqt  p Tr(TqsPercepcion IIBB MisionesTqt p" Tr%TqsPercepcion IIBB SaltaTqt %Cru!DTqvCCZ S Cru Cru6TTqwCCruT%qw#TqxCqvdqw T TqxCqyzTjjqvT{T|j @%o<+TqC FE_TributoFE_Objetos.PRGTq?TqsPercepcion IIBB4TqvCCZ S }o6TTqwTqxCqyzTjjqv T~% C;%mcdl kn   0%mcdl kn  (ATCCZ S C C6T*%  a,TC FE_Alic_IVAFE_Objetos.PRGH CT?# C%@T? CT? CET? 2GC:Alcuota de IVA invlida para comprobantes electrnico !!! BTvTCDTxCCZ S C C6T%xv]CzTCT AT~CCZ S C C6T  {%w,TC FE_Alic_IVAFE_Objetos.PRGT?Tv!TxCzG? TCzT TCT%Z H%DeC*Error de decimales: No coincide el IVA !!!C CC Z vs CC Z BTCjTT~TT,% C FTCCZ S  6T \OTCCCZ S  6T~TTDecuento4TCCZ S 6T4TCCZ S 6T%Z W%S9C,Error de decimales: No coincide el TOTAL !!! B&%CAխ,2TCFE_CPBT_AsociadosFE_objetos.prgTCBTTJT TCz%CAӭa!,TC FE_OpcionalFE_Objetos.PRG%C %CKM T?5TKM  %CKO  T?6TKO | bCDebe informar CBU o ALIAS !!!C !Configrelo en el punto de venta CCCIgZ B  $T?C566TCz % C^ ]!,TC FE_OpcionalFE_Objetos.PRGT?T^Cz %CAխ(",TC FE_OpcionalFE_Objetos.PRGT?$%Cxfce_rechazadobC!T "TNCz'%CAӭC ",TC FE_OpcionalFE_Objetos.PRGT?TCzTTTTCTCTTT%#TTTH#s+ :'TTF%~C -'+TC BFEv1_ItemFE_objetos.prg%C $ Cbienescodins%$!CmedidascodigoT $T%%TC,TCCC 6TTTTT 'TC,TCCC 6T8TCCZ S 6 T4TCCZ S 6TT8TCCZ S 6 TTTTTd TTCz B s+F%~C o++TC BFEv1_ItemFE_objetos.prg%C *( Cbienescodins%(!CmedidascodigoT D(T%(T,TCCC 6TTTTT W+T,TCCC 6TCCT8TCCZ S 6 T4TCCZ S 6TT8TCCZ S 6 TTTTTd TTH*S+ *T %@*T +T 9+T 2S+TCz4(sys_procesandoSolicitando C.A.E.... Ta ,%S+TC ,TC(07. T-(sys_procesando T x,TC12 '-%C1 #-D%C13 )CoWSBFEv1.oError.Error_originalbO -'TC14C 135 -T15%C1 [-TC17%C-T05=TC+OLE IDispatch exception code 0 from GES.FE:CC>2[ mFCE: !reg_factura_electronica_BFEv1.prg-(sys_procesandoVerificando...%S/% |/CTERROR REPROCESOTr m FCE ERROR: CC C |!reg_factura_electronica_BFEv1.prgA ve_pedido#Fact. Electronica REPROCESO ERROR:  /#TC99999999999999_TC  8$%CoRespbOC /06C)Error al registrar la factura electrnica BTC#QLONG T T,%C 3%C '(3TCAI%2T0Hubo un error en la numeracin del comprobante. C =Compruebe la correlatividad y que el mismo no est repetido. TC <El ltimo comprobante YA registrado en la AFIP para el tipo CCAZ es CCI0-CCCZ0.lTC C CUtilice el link de abajo para conocer como solucionar este problemaC C  3TANO SE PUDO OBTENER el ltimo comprobante registrado para el tipo CCAZ y punto de ventaCCI0C  T(sys_procesando3TCCCCZ: CC B(sys_procesando%A7C rechazadaa TH46  116TCAI%5TC C 0Hubo un error en la numeracin del comprobante. C =Compruebe la correlatividad y que el mismo no est repetido. TC <El ltimo comprobante YA registrado en la AFIP para el tipo CCAZ es CCI0-CCCZ0.lTC C CUtilice el link de abajo para conocer como solucionar este problemaC C  6TANO SE PUDO OBTENER el ltimo comprobante registrado para el tipo CCAZ y punto de ventaCCI0 T 26TC  %#d7 V7F 8('\log\CC$ CC^: ccventF>('\log\CC$ CC^: tempcomp `7C B 8C BFE ResultadoaTETCCR/C\/C=#%-+8 B 8 T T=C=gT AF 5> =  BUXFCE_REPROCESOXSOLOLLENO_KRIKOSOCPBT XLLENA_QR XAFIP_DIVISASP_VE_DIVISAS_AFIPXDIVISAS FE_FUNCIONESP_DOSP_CODEMP XCUIT_PROPIOXLETRAXNUMEROF DATOS_EMPRESALISTADOS OLOCALIZACION CUIT_NUMEROSOWSBFEV1OWSFEOLOGINOLCPBTOTAXTXMXOKOPERMISOXMSGXNOMSGMENSAJE SERIALIZARODEYFUNCGET_PATHOREGCOM FE_REGISTROOCPBT2TESTINGXTESTINGP_FCE_TESTING_CUIT IDSERVICIO CERTIFICADOP_SYSTEM SP_MENSAJESYS_PROCESANDOP_FCE_CERTCLAVECERTIFICADO_PASSWORD!CERTIFICADO_COMPROBAR_VENCIMIENTOLIBRERIA_COMPROBAR_VERSION XTXMLOGIN OBTENER_TA_3OEXOERROR FULL_ERRORERROR_ORIGINALTOSTRINGMESSAGEFE_ERROR_TEXTO_LOGIN ERROR_CODE LOGIN_TICKET CUIT_EMISORXLLENAQROBTENER_OBJETO_EXPORTACION FE_OBJETOSXFCE_ID ORIGEN_CUITIDXTIPOPED TIPO_CBTE XFCE_CREDITOCONCEPTO XFCE_CONCEPTO FECHA_CBTEXFECEMI FECHA_ENTREGAXFECENT PUNTO_VTACBTE_NRONUMFACXFCE_CBUFC_CBU XFCE_ALIASFC_ALIASTIPO_DOCXTIPODOCNRO_DOCXCLIPAISXCUITPAISESCUIT XDOCUMENTOSYS_M IMP_MONEDA_IDXMONEDA MM_MONEDAIMP_MONEDA_CTZXCAMBIOOCXOCXNUMERORREMITO XARR_REMITOSFECHA_SERV_DESDEFECHA_SERV_HASTAFECHA_VENC_PAGOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPFECHA_VENC_PAGO_KRIKOS XACC_TRIBUTOSMOTIVOSXMOTIVOXCAUSATIPO T_ADIC_DTO672NITIIBBOTRIBUTOZDESC JURIDICCION IIBB_PROVIMPORTEALICBASEIMPTRIBUTOSADDIMP_PERCIMP_IIBBTX_ADIC_DTO672 XNOGRAVADO T_ADIC_IVANIT MAXIVAARRXVALT_IVAARR P_FCE_VERSIONOIVAALICUOTAALIC_IVAIMP_IVAP_VE_FCE_CONTROL_CALCT_IVAIMP_TRIB IMP_TOT_CONC IMP_OP_EXIMP_NETOXIVACAT NO_ALCANZADOXENTPAIS XENTPROVINCIAXSUCFACTX_TOTAL TX_IMPUESTOS TX_DESCOMT_TOTAL T_IMPUESTOST_DESCOMDESC_TXT DESC_IMPORTE IMP_TOTALTX_FINALT_FINAL OCPBTASOC CBTE_TIPOCAUSA_TIPOCPBTXCAUXLETREFCBTE_PUNTO_VTA XSUCFACREFXREFNUM2 CBTE_CUIT CBTE_FECHAXFECREFCOMPROBANTES_ASOCIADOS OOPCIONALP_FCE_CRED_CBUVALORP_FCE_CRED_CBU_TIPO OPCIONALESP_FCE_CRED_ENVIA_OCXFCE_RECHAZADOXFCE_TIPO_NEGOCIACIONCLIENTECOD_CLIXCOD_CLINOMBRE XCLINOMFAC DIRECCION XCLIDOMICILIO PROVINCIA PROVINC_AFIP XCLIPROVINCIA PROVINCIA_TXTPROVINCCIUDAD XCLICIUDADCOD_ZIP XCLICOD_ZIPGLNXCLIGLNXSUCCOD_SUCSUCURSAL XENTNOMBREXENTGLNCAEXFCE_CAE CAE_FECHA XFCE_VENCTEMPCOMPCOD_INSDESC_INS RECEPCIONOITMBIENESMEDCODMEDIDASCODIGOPRO_UMEDFCETOT_COM PRO_CODIGOPRO_DS DCODATRBULPRO_QTYPRO_PRECIO_UNIPRO_BONIFICACIONPRO_TOTAL_ITEM MO_TOT_COMPRO_PRECIO_UNI_DESCPRO_CANT_XBULTO CANTXBULT IVA_ALICUOTAIVAPER IVA_IMPORTE PRO_EAN13EAN13ITEMS XFCE_BONOSFISPRO_CODIGO_NCMBFE_BUSCAR_NCMIVA_IDORESP'REG_FACTURA_ELECTRONICA_BFEV1_REPROCESOFE_PROCESAR_CPBTFE_ERROR_TEXTO_V1USER_LOG PUB_INDEX SHOW_AGREGAR VE_PEDIDOFE_STOD FCH_VENC_CAEOERRVFPOBTENER_COLLECTION_ERRORSOOBSXCBTXNUMERRXLINK_IDXMSG2COUNTITEMERRCODEBFE_V1_ULTCOMP ARREGLAR_CPERRMSG BFERESULTAUTH RESULTADOSYS_MOSTRAR_SCREENOBSFE_WSBFEV1_OBSCCVENTXFACTURA_ELECTRONICAXTIPO_COMPROBANTEFCE_IDFCE_CAEFCE_TIPOFCE_VENCCTCúTCó BUXTEXTO[5 T- TTC BUOWSBFEV1 XTIPO_CBTE XPUNTO_VTAXCBTENROOLCPBTFE_ULTIMO_COMPROBANTE' T2TC $%CorespbOC T-   Ta%   T-PTC C No coincide CUIT: C  Z - C  Z%   T-WTC C No coincide TOTAL: C  Z - C  Z!% CCCZ  T-STC C No coincide FECHA: C * - CCCCZ * BUOWSBFEV1OCPBTXMSGXOKORESPBFE_OBTENER_CPBT_V1 ORIGEN_CUIT TIPO_CBTE PUNTO_VTACBTE_NRONRO_DOC IMP_TOTAL FECHA_CBTEFE_STODFECHA_CBTE_ORIGP#%Cbienescodins6 B I BUXCOD_INSBIENESNCM Arreglar_CP>Ebfe_v1_ultcompE'reg_factura_electronica_BFEv1_reproceso?Fbfe_buscar_NCM I1v2ADAbBAQaAA!B AsqCVA3"AArAQ!qqAAARAABABAAAaAaAaAAaAaAaAAaAaAaAAAAAAAqs!RaAR!A2AAAA1aaaA3aAA1A2A11Q111QAAb1ABAAA3BBBBBB1qAIDAAAB3BrBBBaRAATcAAGaAAer!AAR1Q1!AAAAA1AACAAAArAA<1111111aaAtQRA2A:!"A12111BCB2qQRA2A2A12111aaaABKBBEAQAAQAq1AAARAADB1!1AABaAQ21A1 AA2Aq1A 1 AArBqrAA1QCAsVA1q21r31r!BAqA1AA2q1A1ursrzrVssy'zz\%NTVO^X77%?TN V T$%Cxfce_reprocesobCTNG+( fe_funciones%   B  +T CCC RgC =6 T /listados T C 5 T-% y TCGEs.FE.FE_LoginN WvCJEsta computadora no tiene instalado el acceso a AFIP o tiene problemas !!!C No se puede facturar. T%Cv B T !TCGEs.FE.GES_WSFEV1N )%Cowsfev1bOC  C6Error: Imposible crear el objeto GES.FE.GES_WSFEV1 !!!C C =Reintente nuevamente o salga del sistema y vuelva a ingresar. BTC TC ,T!C FE_Registrofe_objetos.prgT"!T"!0TCFEb_Comprobantefe_objetos.prg0TCFEb_Comprobantefe_objetos.prgT#$T#$%$ T %T&wsfe$T'(\FE_ .pfxC)sys_procesando$Solicitando autorizacin en AFIP....%C+ T FT,+ P%-v T-  . fe_funciones/ fe_funciones0 TC1C2345(6 T0 (T0C78 %C7 B%C79 'Cologin.oError.Error_originalbO 'T0C7:C 79; T007;%C7 -T00C7=< C7=0234>%C0RT06;=T0C0+OLE IDispatch exception code 0 from GES.FE:C0C0>2%CoTAbO1C$Error al obtener el Ticket de acceso B4)sys_procesandoSolicitando C.A.E....%-eT?T@  %/TCFE_Comprobantefe_objetos.prg/TCFE_Comprobantefe_objetos.prg { %; A fe_objetosA fe_objetos w C fe_objetosC fe_objetosTDC C$]CCCZTE TFDH  A H  CG1 &THCI6 CGk &THCI6 CG &THCI6 2 <C/Tipo de comprobante electrnico no definido !!! B B& H "  CG^ &THCI6 CG &THCI6 CG &THCI6 2" <C/Tipo de comprobante electrnico no definido !!! B CS HK O  CG &TH CI6 CG &TH CI6 CG &TH CI6 2O <C/Tipo de comprobante electrnico no definido !!! B M>Hx : CG TH3 CG TH4 CG TH5 2:<C/Tipo de comprobante electrnico no definido !!! B 2%  IC/Letra invlida para comprobantes electrnicos ( ) !!!%  BTJKTLMTNOTPC \TQCC RgTR TSTFU#CPgTVUWTXUYTZ[H C[80862T\CCCC]^_`6-g8 [96%C^=96L(T\CCCC^-[g8 &CMal formateado el DNI !!! B [91(T\CCCC^-[g8 2T\CCag8#%\ [99 l+CDebe tener CUIT/DNI u otro !!!b+CDebe tener CUIT/DNI u otro !!! B?TcCd S CCdePES64TfCCd S g6TThi%Cj=R00Tkj <TkClHQ KTmTnTo 2TmpTnqTor%IH%CHӭ$Tor DToC venc pagobTsrTtMuTvS Tw Tx Ty Tz%Cmotivos Qmotivos%|1C|motivoscodigo;%Tcd| {} ~  /(+TC FE_TributoFE_Objetos.PRGTFTH F T1T!Percepcion IIBB Prov.Buenos AiresT  T5T%Percepcion IIBB Ciud.Aut.Buenos AiresT  T(TPercepcion IIBB Santa FeT  [ T(TPercepcion IIBB MisionesT  T%TPercepcion IIBB SaltaT %CDTCCd S C C6TTCCT%i#TCd T TCTwwTyy%++TC FE_TributoFE_Objetos.PRGTFTTPercepcion IVAT4TCCd S 6TDTCCd S  d d6T4TCCd S 6TCTww 6%~2+TC FE_TributoFE_Objetos.PRGTFTTPercepcion IIBB4TCCd S ~6TTTCTww T% Cu;%Tcd| {}   0%Tcd| {}  (ATCCd S C C6T*%  W,TC FE_Alic_IVAFE_Objetos.PRGH CTF# C%@TF CTF C;TF 2GC:Alcuota de IVA invlida para comprobantes electrnico !!! BTTCDTCCd S C C6T%SCTCT ATCCd S C C6T  q%m,TC FE_Alic_IVAFE_Objetos.PRGTFT!TCzG? TCT TCT%d >%:eC*Error de decimales: No coincide el IVA !!!C CC Z vs CC Z BTCwTTTT,% C FTCCd S  6T R OTCCCd S  6TTT Descuento4TCCd S 6T4TCCd S 6T%d N!%J!9C,Error de decimales: No coincide el TOTAL !!! B^%CH  45խCxletrefbC  "&%C C C "2TCFE_CPBT_AsociadosFE_objetos.prgTCITTQT TC-%C C "TT%CHӭ$,TC FE_OpcionalFE_Objetos.PRG%C4$%CUW s#TF5TUW 0$%CUY #TF6TUY ,$bCDebe informar CBU o ALIAS !!!C !Configrelo en el punto de venta CCCPgZ B r$$TFC566TC % Ch $Ch %CHխK%$%Cxfce_rechazadobC&%C G%CN'%CHӭC %CTTTTCTCTTTCxCLIIBb%CxcliibbCu&TT%&TTT%'+TT TF%~C +*TC FEv1_ItemFE_objetos.prg%C ( Cbienescodins%'!CmedidascodigoT (T%(TC,TCCC 6TTTTT +TC,TCCC 6TTATCCd S  6 T:TCCd S  6TTATCCd S  6 TTTTTT C T d T  T T- ve_pedidoTTC B4)sys_procesandoSolicitando C.A.E.... Ta -%--H+-3  S  ^-2%  -C6La version de las libreras de factura electrnica es CCZ.CCZ.CCZC ;Necesitan actualizarse para el ejecutar el proceso externo.C C 3Igualmente se intentar procesar el comprobante !!!%S;-TC Z-TC -TC -+TCGES.FE.WSFEv1.FECAEResponse(6/ T-)sys_procesando T '.TC78 .%C7 .C%C79 (Cowsfev1.oError.Error_originalbO .'TC7:C 79; .T7;%C7 /TC7= %C./T6;=TC+OLE IDispatch exception code 0 from GES.FE:CC>2Z!" TFCE:  reg_factura_electronica_fev1.prg-)sys_procesandoVerificando...Creg feb%S1% ;1CTERROR REPROCESOTq!" T FCE ERROR: CC C | reg_factura_electronica_fev1.prgA# ve_pedido#Fact. Electronica REPROCESO ERROR:  |1#TC$99999999999999_TC&% 7$%CoRespbOC 16C)Error al registrar la factura electrnica BT'C(#)*QLONG+,- T, T,%'C'./ 3)sys_procesando70C'./,C'.1-CC'./C'.12342TCC C C 6CPBT: CSVFC5CSdNDCScNCXX666 R Err:CCC'./Z - C'.1C C, B)sys_procesando%%-34A 6 T56E5T*C57)58A5)TCC C C 6%0)/,)1hTCC C C 6CPBT: CCC*Z9 Err:CC)/Z - )1C C)/)12342%$5 5F:8((\log\CC$ CC^: ccventF>((\log\CC$ CC^: tempcomp 5C, B 7%-6566T*C57T5<TCC5;R/C5;\/C5;=#C234< 7 T*T-1TC  $%-'7 B 7 T=TDCDgT>HF:5>=?D@A>B BUCXFCE_REPROCESOXSOLOLLENO_KRIKOSOCPBTXLLENAQRXEXPORTACION_AFIP XAFIP_DIVISASP_VE_DIVISAS_AFIPXDIVISAS FE_FUNCIONESP_DOSP_CODEMP XCUIT_PROPIOXLETRAXNUMEROF DATOS_EMPRESALISTADOS OLOCALIZACION CUIT_NUMEROSOWSFEV1OWSFEOLOGINOLCPBTOTAXTXMXOKOPERMISOXMSGXNOMSGOCPBT2MENSAJE SERIALIZARODEYFUNCGET_PATHOREGCOM FE_REGISTROTESTINGXTESTINGP_FCE_TESTING_CUIT IDSERVICIO CERTIFICADOP_SYSTEM SP_MENSAJESYS_PROCESANDOP_FCE_CERTCLAVECERTIFICADO_PASSWORDP_VE_FCE_BLOQUEO!CERTIFICADO_COMPROBAR_VENCIMIENTOLIBRERIA_COMPROBAR_VERSION XTXMLOGIN OBTENER_TA_3OAGESSOLOSISTEMA OFACTURACIONINFORMAR_LOGIN_OKOEXOERROR FULL_ERRORERROR_ORIGINALTOSTRINGMESSAGEFE_ERROR_TEXTO_LOGIN ERROR_CODEINFORMAR_LOGIN_ERROR LOGIN_TICKET CUIT_EMISOROBTENER_OBJETO_DUPLICADO FE_OBJETOSOBTENER_OBJETO_EXPORTACIONXFCE_ID ORIGEN_CUITIDXTIPOPED TIPO_CBTE XFCE_CREDITOCONCEPTO XFCE_CONCEPTO FECHA_CBTEXFECEMI FECHA_ENTREGAXFECENT PUNTO_VTACBTE_NRO COMPROBANTECAUSAXCAUSANUMFACXFCE_CBUFC_CBU XFCE_ALIASFC_ALIASTIPO_DOCXTIPODOCNRO_DOCXCLIPAISXCUITPAISESCUIT XDOCUMENTOSYS_M IMP_MONEDA_IDXMONEDA MM_MONEDAIMP_MONEDA_CTZXCAMBIOOCXOCXNUMERORREMITO XARR_REMITOSFECHA_SERV_DESDEFECHA_SERV_HASTAFECHA_VENC_PAGOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPFECHA_VENC_PAGO_KRIKOSFECHA_VENC_PAGO_GS1 XCNDSP_PLAZO REPROCESO XACC_TRIBUTOSXACC_TRIBUTOS_SIN_IIBBXACC_TRIBUTOS_IIBBXACC_TRIBUTOS_IVAMOTIVOSXMOTIVOTIPO T_ADIC_DTO672NITIIBBOTRIBUTOID_GESZDESC JURIDICCION IIBB_PROVIMPORTEALICBASEIMPTRIBUTOSADD T_IVA_RG5329 TX_IVA_RG5329TX_IVA_RG5329_BASET_IVA_RG5329_BASETX_ADIC_DTO672 XNOGRAVADO T_ADIC_IVANIT MAXIVAARRXVALT_IVAARR P_FCE_VERSIONOIVAALICUOTAALIC_IVAIMP_IVAP_VE_FCE_CONTROL_CALCT_IVAIMP_TRIB IMP_TOT_CONC IMP_OP_EXIMP_NETOXIVACAT NO_ALCANZADOXENTPAIS XENTPROVINCIAXSUCFACTX_TOTAL TX_IMPUESTOS TX_DESCOMT_TOTAL T_IMPUESTOST_DESCOMDESC_TXT DESC_IMPORTE IMP_TOTALTX_FINALT_FINALXREFTIPOXCAUXREFNUM2XFECREF OCPBTASOC CBTE_TIPOCAUSA_TIPOCPBTXLETREFCBTE_PUNTO_VTA XSUCFACREF CBTE_CUIT CBTE_FECHACOMPROBANTES_ASOCIADOSCOUNTXPERASOC_DESDEXPERASOC_HASTAPERIODO_ASOCIADOFCHDESDEFCHHASTA OOPCIONALP_FCE_CRED_CBUVALORP_FCE_CRED_CBU_TIPO OPCIONALESP_FCE_CRED_ENVIA_OCAGREGARXFCE_RECHAZADOXFCE_TIPO_NEGOCIACIONCLIENTECOD_CLIXCOD_CLINOMBRE XCLINOMFAC DIRECCION XCLIDOMICILIO PROVINCIA PROVINC_AFIP XCLIPROVINCIA PROVINCIA_TXTPROVINCCIUDAD XCLICIUDADCOD_ZIP XCLICOD_ZIPGLNXCLIGLNIBXCLIIB IVACAT_GESXSUCCOD_SUCSUCURSAL XENTNOMBREXENTGLNCAEXFCE_CAE CAE_FECHA XFCE_VENCXTMP_PRO_BONI_IMPTEMPCOMPCOD_INSDESC_INS RECEPCIONOITMBIENESMEDCODMEDIDASCODIGOPRO_UMEDFCETOT_COM PRO_CODIGOPRO_DS DCODATRBULPRO_QTYPRO_PRECIO_UNIPRO_BONIFICACIONPRO_TOTAL_ITEMPRO_PRECIO_UNI_SDESCCOS_LIFO MO_TOT_COMPRO_PRECIO_UNI_DESCPRO_CANT_XBULTO CANTXBULT PRO_BULTOSBULTOS IVA_ALICUOTAIVAPERIVA_IDIVA_A_ID IVA_IMPORTE PRO_EAN13EAN13CALCULO_DESCUENTO VE_PEDIDODES_INS PRO_BONI_IMP PRO_BONI_PORCITEMSP_FCE_VERSION_PROCESOLIBRERIA VERSIONADOP_FCE_ALERTA_EXTERNOVERSIONMAJORMINORBUILDORESP&REG_FACTURA_ELECTRONICA_FEV1_REPROCESOFE_PROCESAR_CPBT$REG_FACTURA_ELECTRONICA_FEV1_EXTERNOFE_ERROR_TEXTO_V1USER_LOG PUB_INDEX SHOW_AGREGARCODAUTORIZACIONFE_STODFCHVTOOERRVFPOBTENER_COLLECTION_ERRORSOOBSXCBTXNUMERRXLINK_IDXMSG2ITEMCODE$REG_FACTURA_ELECTRONICA_FEV1_ERRORESMSGINFORMAR_FACTURA_ERROR FECABRESP RESULTADOODET FEDETRESPOBTENER_CAMPO_DETRESP_CBTEDESDE OBSERVACIONES ARREGLAR_CPCCVENT CAEFCHVTOINFORMAR_FACTURA_OKXFACTURA_ELECTRONICAXTIPO_COMPROBANTEFCE_IDFCE_CAEFCE_TIPOFCE_VENCCTCúTCó BUXTEXTO5 T- TTC%Ci B%C B  BUOWSFEV1 XTIPO_CBTE XPUNTO_VTAXCBTENROOLCPBTFE_ULTIMO_COMPROBANTEERRORS T2TC $%CorespbOC T-  Ta%   T-PTC C No coincide CUIT: C  Z - C  Z%   T-WTC C No coincide TOTAL: C  Z - C  Z%  T-UTC C No coincide IVA: C Z - C Z!%CCCZ T-STC C No coincide FECHA: C* - CCCCZ* BUOWSFEV1OCPBTXMSGXOKORESPFE_OBTENER_CPBT_V1 ORIGEN_CUIT TIPO_CBTE PUNTO_VTACBTE_NRONRO_DOCDOCNRO IMP_TOTALIMPTOTALIMP_IVAIMPIVA FECHA_CBTEFE_STODCBTEFCH   8 \Log\GESFE BTCC TT C]_T >T CLog\GESFE\GES.FE.WSFEv1_CCCZ.LOGTC BU OCPBTOWSFEV1ORESPXEXTERNOP_SYSTEMP_FCE_EXTERNO_PATHLIBRERIAPATHLOGGINGSERIALIZAR_HEAD PATH_EXTERNOLOGFILEFE_PROCESAR_CPBT_EXTERNO H < T %@d T  T  T 2VC<Alcuota de IVA invlida para comprobantes electrnico !!! (CCZ) B BUXIVAPERXID MENSAJE_S arreglar_cp*G fe_v1_ultcomp}G&reg_factura_electronica_fev1_reproceso|H$reg_factura_electronica_fev1_externoKIVA_A_ID{Mqv2ADBbBAQqaAAB AsqCFA3"AA2r1AQ!qqAAARAABABB2AAABAaAaAaAAaAaAaAAaAaAaAAAAAAAAqr!!RaARAA2AAAA1aaaA3aAAaAa1A2A11Q111QAAb1ABAAAB2DAABBB3BBBBBB1qAIDAAAB3BrBBBaRAATcAAGaAAfq!AAB11AR1Q1!AAAAAACDqqAAquA<1111111A211aaArtQRA2A:QR112111q11CCBAE11!AAQA1bBBAQ1q1AAARAAD1B11AABaAQ2rE ARAQAQABqrAA1AQ1AaAAAsVA1q21rAQA31r!BAqAQA1AA3AQ4111aA1yvw+~9wlx2xC}B%D$JLEnY18#4Q COLLECTION TC Collection%CxdestinobL T)%Cxformulario_forzadobC T&%Cxdestino_forzadobN T%%Cxdriver_forzadobC( T%%Cxcopias_forzadobN^ TTC TC  vopoc T  T  T T T T T T TT T T T T?listados  (T\cpbt\ -logo.jpg T TT !T"#T$%T&' &S %%()S (* hF+G((codigo E(*2T-CC()SC. .(/62T0CC()SC. 1(26~T3CC()SC. )CC4 C4 - 6C5/CC(6C(6 - 6C(76eT8CC()SC. CC:9 - CC;*f CC(<9 - CC(**f62T=CC()SC. >(?6(T@CC()S(A6%B%CDTDEF CCusuarioscodigoTDCGH  TD TIJ TKL%MMN!CNdepositodepositoTOCMHTPCMQ;TRCCCMSCMS - 6CMT#TUCCVUV6%()STWCZXY TWC([XY T\]&T^C()S_(`6Ta(b Tcd"TeCghijkf Tlm Tno Tpq TrsTtuv Twx Ty'TzCC'{T|CC'{ T}~ T T#TCCU6 T T T%C incoterms sQ \incoterms%&%C incotermscodigoT T???  T T T T T T T%Cbieaux q QbieauxF i1tempcompM  T T T T T- T-Cscan< d TF~C%C ( %C !% TTT C (TC 6%C8E TaHZ 0   TC,TC'& 6TCtempcompO 0 TC,TC'& 6TCtempcompO%FG((codins E T T T T T%S FG((codigoE T T5listadosTCHFG((codigo ECX T  7listados  T%S2FG((codigoETCH I TFG((codigo,%, ECXCbieauxcodF(TC C C)% C Cv P(TCv C CL>F TC& 6 T T TC%[%C WF > TTCC& 6TCC& 6TCC& 6TCC& 6TCC& 6TCC& 6TCC& 6TCC& 6TCC& 6F sys_securityTC:TC[CCZ] C6,TCC 6F Tlistados!Cimprimir comprobanteTC6 Td TRTCCCCRCCRg6C=-CR6 T3TCCd6@z 9999,999,999_ TCN 6FT C  T Hy NT N cT u dT v 2 T  T  T  T T- T T T TF.Cd-FTCTNFG((codinsFG-(%CT&TC 6TT !%!Tliquido_producto.frx  %T"&TC #6T$T %  _T&R(alltrim(cod_ins+desc_ins)#"" and recepcion#0 and adicexport=0) or !empty(cpbttxt)y%' L()()S (* ([  ()S;   ' %%C !F > T T)*%C* %+,*{C*costoscodigoT-C+H  T-TC6TC6T C 6&TCCC pdf T.-%C(%C NUV 6% C/ 0a6  TC6%C :<=!Tliquido_producto.frx TaK1listados &aaaaa-*%C/ 0a6 "%C2   vopago2T4CC76]-58 T8-$9sys_pdf_archivado8%8%C0  T.aW1listados &aaaaa-a-):C;<=%.  [1listados NUV_OC-1.FRX&aaaaa-[1listados NUV_OC-2.FRX&aaaaa--F%C7%!C\cpbt\C-2.frx0 TC-2.frx T T#T - Recepcin3TOC CdZ - Recepcin - C-TC6K1listados &aaaaa-"%C2  TMT - Recepcin vopagobT4CC76]-.jorgefr.lopez@gmail.com;compras@maximia.com.ar5%CtempcompFG-(BU>XDESTINOXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOREALTIME XIMP_FORM XSILENT_MAIL OADJFILESXPDFPATHPROCSVOPOC ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPIVA ZEMPCUITSOLOZEMPIIBB_NUMERO ZEMPINICIO ZEMPLOGO_TXTZEMPLOGO ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESALISTADOSP_SERVERP_EMP P_EMP_LOGO P_EMP_AGUAZEMPWEBWEB ZEMPEMAILEMAIL ZEMPTXTCPBTTXTCPBTXDIVXMONEDAPROVEEDOTARJETAPAISPAISESCODIGO ZPRONOMBRE XOTRO_PRONOMBRE ZPRODIRECCION XI_DIRECCION DOMICILIO ZPROZIPCIUDADXI_ZIP XI_CIUDADCOD_ZIPCIUDAD ZPROPROVPAISPROVINC XI_PROVINCIAXI_PAIS PROVINCIA ZPROTELEFONOXI_PHONOPHONO ZPROFANTASIAFANTASIA P_CM_DATOS_OC XOC_SOLICITA ZOC_SOLICITATCCCOMPDSOLICITAUSUARIOSDESCR ZOC_RETIRA XOC_RETIRA ZOC_APRUEBA XOC_APRUEBADEPOSITO XDEPOSITO ZENTNOMBRE ZENTDIRECCIONDOM ZENTZIPCIUDADZIPCIUZDIRENTXDIRENTZCATIVA OLOCALIZACION$IVA_CATEGORIA_PROVEEDORES_TEXTO_CPBTXCATIVAIVACAT ZPROCODIGOXCOD_PROZCUITXCUIT INSCRIPCIO ZCOMPRADOR CONTACCOMZORDENXORDENZDESCUENTOSTXTTXT_BONIF_COMPRAT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 ZFECHAEMISIONXFECEMI ZFECHAIVAXFECDGI ZFECHAENTREGAXFECENT ZCONDICION XDESCPLAN ZCONDICIONTXTCONDPAGODESCR2 ZVENCIMIENTOXVTOZMONEDA ZMONEDATXT MM_MONEDAZMONEDASIMBOLOZCAMBIOXCOEFICZTEXT1ZTEXT2 ZREVISION XREVISIONZTXTCPBTXTXTCPBTZOC_EXTXOC_EXT ZTRANSACCIONXTRANP_SYSTEM XINCOTERM ZINCOTERM INCOTERMSINCOTERMZIMPORTACION_FLETE_DESCRZIMPORTACION_FLETE_IMPORTEZIMPORTACION_FLETE_REGISTROZIMPORTACION_SEGURO_DESCRZIMPORTACION_SEGURO_IMPORTEZIMPORTACION_SEGURO_REGISTROBIEAUXTEMPCOMPNOTAZLIQPRODXLIQPROD ZLIQPROD_IVA XLIQPROD_IVA ZLIQPROD_REM XLIQPROD_REM ZSUBTOTALZHAY_DECIMALES_EN_CANTIDADZHAY_ENTREGAS_X_ITEMSYS_M ARR_CENTROSMAX_ARR_CENTROSZCCOD_INSDESC_INSCENTROENTREGA ZTMP_CANTIDADUNICANT_U2 RECEPCION ADICEXPORT MO_TOT_COMTOT_COMZEXPORTACION_SEGURO_REGISTROOBIEDATA_CODIGO_VACIOBIENESCODINSXMEDIDAMEDIDAXMEDAUX MEDIDAAUX XMEDIDAABR XMEDAUXABRXFACTORFACTORBULTOSBULMEDIDASXBDESCRSTOCKATR ATRIBUTOSATRIBUTOXADESCRXDESCRP_CM_OC_DESCR2MEDAUX DCODATRBULTXT MEDIDAABR MEDAUXABRZCENTROS_DE_COSTOS_CODIGOZCENTROS_DE_COSTOS_DESCRZCENTROS_DE_COSTOSCENTROS_DE_COSTOSP_CM_DETALLE_CENTROSCPBTTXT ZDESCUENTOST_DESCOM TX_DESCOMZIVAT_IVATX_IVAZIVA_NCT_IVA_NC TX_IVA_NCZPERCEPCION_IVAT_3337TX_3337ZPERCEPCION_GANANCIAST_IMCOM2 TX_IMCOM2ZPERCEPCION_IVA_ANAT_IMCOM3 TX_IMCOM3ZPERCEPCION_INGRESOS_BRUTOST_IMCOM4 TX_IMCOM4 ZREDONDEO T_REDONDEO TX_REDONDEOZFINALT_FINALTX_FINALCREATE_OBJECT_SECURITY SYS_SECURITYZAUTORIZACION_ESTADO OC_ESTADO XAUT_ESTADOZAUTORIZACION_USUARIOXAUT_USR OSECURITYGET_USERZUSUARIO XTIPOCOMPRATCCCOMPUSRCCCOMP ZIMPORTETXTLETRASZORDEN_DE_PAGONOPZORDEN_DE_COMPRA ZCOMPROBANTEXNUMEROFZREMITO P_CM_CPBT_LETXNUMERORZLETRAXLETRA ZIDCOMPROBZIDCAUSAXCAUSAPDF_PATHZID12ZCAUSA ZFCE_TIPO XFCE_TIPO ZQUINCENA XQUINCENA XCOPIAPDF XARCHIVOPDFXARCHIVOPDF_FULL XIDARCHIVOZTIPOCOMPROBANTEOBTENER_PDF_NOMBRE_COMPRASLIMPIAR_FILE_NAMEXDVAL XFORMULARIOCONSOPFORMLOCALESCM_006XDRIVEROPXCOPIASOPCOPIASOCFORMCM_005OCOCCOPIAS XFILTRODATOS P_OC_NOTASXIMP_TRIZCENTRO_DE_COSTOSXCENTROCOSTOSCOD_CENZCENTRO_DE_COSTOS_DESCRIPCIONXARCHIVOPDF_TMP P_OC_BLOQUEA XAUTORIZADAIMPRIMIR_FORMULARIOP_CM_OC_ENVIARVOPAGOXRESCM_OC_ENVIAR_POR_MAIL MAIL_MT_VALORMAILTIPOXOK_GUARDAR_PDF PDF_SE_GUARDASYS_PDF_ARCHIVADO PUB_INDEXP_CODEMP!P_PDF_REVISION_GUARDAR_COMPRIMIDOj '4 vopocCEnvia OC %Cpro2 rQpro2%  E codpro #%  M %,TNo se envia por mail. ENVIAOC=0 C B%-T No se envia por mail. MAILTIPO=0 C B%CT   T!%C Y=T0No se envia por mail. Cancelado en destinatarios C B%C;T.No hay direccin de correo para envo por mail C B%M'Tel formulario de recepcin ATla orden de compra%C % >%CEnva  por correo electrnico ? {% 3T"Reimpresin. No se envia por mail  C n<T+A pedido del usuario no se envia por mail  C B  ;T.No hay direccin de correo para envo por mail C B)TC\C.pdf%C0 3T&No se gener PDF. No se envia por mail C BQ COLLECTIONTC CollectionC%C M }TC \*.*(y!C \C%M]*otempcomp"C" q_mail ~3,TC%\C$"__*.*(/!C%\C%Cq_mailYF$Q3&sys_procesandoEnviando por mail...;()*+,-./012345%6%C7  T(7 CT6DEV: No hay direccin de control. No se envia por mail C8sys_procesando B T(CT3CC7 76%M T3%T)C:;9 T+ T,< T-= T.>%T*C?;9'/@ABCD45E T@F TAG TBH TCI TDJ T4K T5L TEM%CE X  vopoc9CEBC@A-.,D45N.T/COC3 $ 6P TH l  Q* hTPC()*+,-.@ABC/3D45R Ql /TPC()*+,3S8sys_procesando%P CUTH  QD ;CComprobante enviado por mail% @ $CSe ha enviado por mail.V Q <CComprobante enviado a Outlook% TCGSe ha enviado a Outlook, confirme que no quede en bandeja de salida!!!.V B c :CNo se pudo enviar por mailCV BUWXARCHPDFXMSG XCONTROL_TEST XMAILTIPOXCOD_PROXCAUSA XELECTRONICOXDESTINO_FORZADOXSILENTPROCSVOPOCSYS_MPRO2COD_PROPROVEEDOCODPROENVIAOCUSER_LOG PUB_INDEX ZIDCOMPROBZEMAILEMAILOCMAIL_ELEGIR_DESTINATARIOSXCOMPROBANTE_A_IMPRIMIR MENSAJE_SINOREALTIMEPDF_PATH OADJFILESADD ARR_FILES XCANT_FILESZZP_CM_OC_ADJUNTOS_PATHDISTINCTCOD_INSTEMPCOMPQ_MAIL P_PDF_ESP SP_MENSAJESYS_PROCESANDOLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAME XENVIAR_DESDE LC_TONAMELC_CC LC_CCNAMELC_CCOXGMAILXTOKENP_DEVP_CM_OC_CONTROLSP_OCULTAR_DEFINITIVAMENTEMAIL_MACRO_TEXTOSP_CM_OC_SUBJECT ZEMPNOMBREP_CM_OC_REPLYTO P_CM_OC_FROMP_CM_OC_FROMNAME P_CM_OC_MSG XAUTH_LOGIN XAUTH_PASSXFCEHOSTXFCEPORTXFCESSL XCOD_MAILP_CM_OC_AUTHLOGINP_CM_OC_AUTHPASSP_CM_OC_SEND_HOSTP_CM_OC_SEND_PORTP_CM_OC_SEND_SSLP_CM_OC_SEND_USA_GMAILP_CM_OC_SEND_TOKENP_CM_OC_SEND_CODIGOOBTENER_DATOS_CUENTAP_CM_OC_ENVIARXOKP_CM_OC_METODOSYS_MAILSYS_MAIL_OUTLOOKIMPRESO XIDARCHIVOMENSAJE'H8 rTFacturaTFC TNota de DbitoTND TNota de CrditoTNC C(TNota de Crdito a ProveedorTNC 'TNota de Dbito a ProveedorTND cTOrden de CompraTOCTC \S#TOC CZ - C%_:TCC   - vCCCZ06 2 T TU XTIPOCOMPRAZTIPOCOMPROBANTE ZCOMPROBANTEXORDEN ZPRONOMBRE XIDARCHIVO XARCHIVOPDF XCOPIAPDF XREVISIONCONSCOPIAPDFP_PDF_REVISION_AGREGAR]G+(listadosG+(cm_procsG+(sys_mail_funcionesG+( sys_mailctasBULISTADOSCM_PROCSSYS_MAIL_FUNCIONES SYS_MAILCTASS G+(i2of5TCI2of5NC BUXCODIGO_DE_BARRASXSIN_VERIFICADORI2OF5LO CODIFICAR CODIGOBARRAD(9"CCcostoscodigoRTC DETALLE CENTROS DE COSTOS:6C C: .TCC 6ChTC&DETALLE CENTROS DE COSTOS:C 6C [CC] CBUZCENTROS_DE_COSTOS_CODIGOZCENTROS_DE_COSTOS_DESCRZCENTROS_DE_COSTOSZMAX_ARR_CENTROS ARR_CENTROSCOSTOSDESCRcm_oc_enviar_por_mail"-obtener_pdf_nombre_compras>procsAcodigo_de_barras_i2of5Bcentros_de_costos:C1AAbARARA211SqA#!Q!>A!AAnA!!2rQqAa$2A2aAA!ArArqr"AAA11AABa!qa!qAbqBq1Q"rqArq1!ArAsABrBa2!qRAArr$t!2rbAAAAss!vraA1aBA(qRAA!aA!AarcB$"ABrC!qAAABBAsrq1"!BBAqaAB4qVbAA2A2AABArAqA"1AABA"2ATRSBAFBBrqAAB6"2AABATSr"At12AR1AA1AAAA2q1A11111111q11114AA3!!aA2QQ2r!"BB1{C]]Od6lde<2eGfBefh% p iJE8G+(listados TT T T T T T T  T T  ORIGINAL #T DUPLICADO DESTINATARIOTCh1\tmp\NCCCN N N N N CC NQ\tmp\ T T C F=T!pr_apertura_op_envC _req6.frx T" T# T$ T%'T&C grupo_n=2.t.6?'listados!"#$%&aaaaaFQ \tmp\.dbfBU(XREQLISTADOSZNUMPRODZFECHA ZDEP_DESCRZDEP_DOMZDEP_ZIPZDEP_CIUZMEDPRIZMEDAUXZLOTE ZDESTINO1 PUBHEADER ZDESTINO2XARCHIVONEWFILEP_LOCALART_NUMART_CODART_ATRART_BULART_CAN1ART_CAN2ART_CAN3ART_CAN4ART_PEART_DESART_UMGRUPO_NTMPOUTXNUMPRODXFECHADETALLE XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOSIMPRIMIR_FORMULARIO BUXBULFG((deposito EFG((codinsTCTCTC T C F G((codigoECTCfTCf T TC(_%CCX[F G((codigoECTCTCTC!%  T    TFe> C!"#$%&' T()FG((codinsF*G((claveG E,G ~$+C+ -, %C.Z FG((codins E*/F G((codigoE*/*0F1G((codigoE*/*23T3CC C1 C F*%*4)T5C S 6%&T6C*7& T  T6 \)T5C S 6T6C*7TFR>*/*2 *083!695'F:BU;DEPOSITO XDEPOSITOBIENESCODINS ZDEP_DESCRDESCRZDEP_DOMDOMZDEP_ZIPZIPZDEP_CIUCIUBULTOSCODIGOXCODIGOXBULXMEDPRIMEDIDAXMEDAUX MEDIDAAUXZMEDPRIZMEDAUXZ XINTMEDPRI XINTMEDAUX XUNIDADES CANTXBULTXPESOXUTMPOUTART_CODART_ATRXATRART_BULART_CAN1ART_CAN2ART_CAN3ART_CAN4ART_PEXPEGRUPO_NZLOTEXLOTECOMPPRODCLAVEXIDIDAPLCODBULATRIBUTOATRXDESCR1UNIXMEDIDA1XCANPRODCANTIDADART_DESART_UMFORMULASdummydetaller#11rqsAB2A2rs)!!!yA rQRQQAvQYAAqrbaBrr1r12rb1AQAqQ'ArAE1 =\G#qK%=llEm84 G+( Sys_DosCenBCUXTESTVAL XINICIALIZADO SYS_DOSCENDC_OBTENER_INLISTA!1%:R8G+(ve_armar_despachoG+(listadosCinicioa% tQSESSIONTC DatasessionvTCSessionNG( C "T  \tmp\CC]R  ve_pedidoFG((remito%CDespflet <Qdespflet%C despotros pQ despotros%C5 T T T7T99_CZ_CC DatasessionvZ% G(+ve_despacho_pregunta(G(%tT  T<%CB-ZodespCR00000000 TMPDESPSelF ~NCraaF% CCleanupaG( G(<UXDESP XINICIADOXDEBUGVE_ARMAR_DESPACHOLISTADOSSYS_MOSTRAR_SCREENXOLDDSODSP DATASESSIONIDSETS XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDODESPREMITODESPFLET DESPOTROSXRESXTIPOREGCAPTIONVE_DESPACHO_PREGUNTADESPACHOFECHAFACTURACAUSA TMPDESPSELVE_REIMPRIMIR_COMPROBANTE DEY_FUNC2!At!q"BrAAQAAqA1A2AqArrAQQqqA1%1ZMF88 TCW%Clog_ult "%C \log_ult.dbf0 0h1\log_ultCT& QQ\log_ultF %Clog_ultid >C &rlog_ultC F BUXIDXAREAP_SYSTEMID FECHAHORALOG_ULTr!BAAqaA1%_v\'N8 G (G(\xchg\sam_vpedido_op.txtG%Creservas uQreservas%Ctmp_opFQ%Ctmp_op1FQ%Ctmp_op2FQ%Cq1 F QCSAM OP Suspendo?a otempcompXtmp_assemblies   Q aQCSTOCKQQQBAJAQCfQCCXQ QCdXQCdXQCdXQ -Q!C tmp_op(& C ZCAZ6 (" \tmp\tmp_op1Q" \tmp\tmp_op1F ~hF TCO TF# G((itmEC% ZPC Z8+C+ %C% ZPC Z&'C$Z %{rtmp_op1  -#(###CORREGIRSTOCKALTA T,)listados#(##>HTF G((ITMEC%ZC Z.+C+ C%ZC ZC+ZC,Z Trtmp_op1  -C&$H>%>STOCK d% N>ERROR `GG FQF" \tmp\tmp_op1 T. ~% .%  >a T.  >-FT/ ~%/m T0 T/>/0dT00& (" \tmp\tmp_op2 Q" \tmp\tmp_op2F T1 T2 T3<44 ~B T5 J(4 T6C17 T6C27%CC4 >CC4%CC4 >CC4 T0+a> T00,%CC04 CC04 , <8^(8F_8>0e>->C04>C04F : !F"\tmp\tmp_op2.dbfC FIN Suspendo?a SF!otmp_opq1 ~ T5 J(4T6CfC37 T:-0(d %CC04 F%0{ !-  CdG v %: <8^(8H%:   r T:aF_8>y>-> CCC04fF"\tmp\tmp_op2.dbfT; ~ %; T; >!a%Ctmp_op13 FQ%Ctmp_op2Z FQ%Cq1| F QFBU<XREGXACC XCANTIDADXDESCRP_SERVERRESERVASTMP_OPTMP_OP1TMP_OP2Q1SYS_MOSTRAR_SCREENTEMPCOMPITEMNUMENCENSAMBLETMP_ASSEMBLIESCANTIDADCOD_INSATRBUL RECEPCIONORIGENITM_OCCANT_OCAB DCODATRBUL COMENTARIOTAREASSUBNUMDESCRCOMENTAREAENC_ENSP_LOCALVE_ALTASITMXPEDIDOCOMPROBCAUSACOD ART_DESCRLISTADOSPEDIDOPEDITMINXNUM XENSAMBLEZXLDESCR XLCOMENTARIOXLTAREASARR_TXTMAXARRXOLDFNAAADISTINCTXNUEVOXOLDENSk4G GTC T+C ` TT Ta T 3(CError en SAM_VPEDIDO_OP !!!4 Error !!! z=CCZ xidx=CCZ T-% \T!BU XTXLXIDXZXTMPFN_TOMARXOKARR_TXTMENSAJE4 T T+a T T"%C C !(TC 6%C>T ! TBUXTXLXRESXYXP FN_PALABRA 4(C>J%C\ F!% TTC[ TC=TC[BUTXRESZfnfn_tomarY fn_palabra3baAArqAAqAAqAA2qAAsrt2 CBArCE GA2S1SAACbatAr1AAAv1AArsAQQaAaArrQ\RQrAABBrrQr1qAArQBBCBBr1AAqAAqAA2qAArB2c!as11BAAACB2"AARbBABB3AAA2aAA1~#:kQ%;LR9IG+(vpedido TC mail_rem.html TC TChtmlH%CCCPBT\0 #CCCPBT\ mail_rem.html0 T mail_rem.htmlTCTC !%CCCPBT\0I T CCCPBT\ 9%C  M(    Estimado <%GES2%>,60 detallamos a continuacin <%GES4%> emitido. <%GES10%>   5 T   B U XFORMULARIOXPVXCOD_CLI XGENERICOXREMITOXCLINOMVPEDIDOP_SERVERFP_PUNTO_VENTA FP_CLIENTEXSTRFILEP_MAIL_TEXTOS_REMITOS1rAccaaAAAB1%D]nM99D%+ BBCUXVERBOSEXIDXTAREALOG_AUT1A!10*mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2BZ0V1TAO 947616693&u B &TVW&S& WINDOWS _2BZ0WBASI 947616693L2*,h,5 COMMENT RESERVED F* WINDOWS _28G0RWDDT 947667318,+`/2Z35 WINDOWS _28G0RZSTT 930573156,,'5%u WINDOWS _28G0RZSTV 947667318 )1 COMMENT RESERVED C&2 WINDOWS _1U00Z7R4O1481266290? g# WINDOWS _1U00Z7R4S1481266290 . 2 >\ WINDOWS _1U00Z7R4T 9476275381N .() WINDOWS _1U00Z7R4U1481266290-,Z,-%( WINDOWS _1U00Z7R531481266290M,=,(1֓Ӎ WINDOWS _1U00Z7R541481266290&'k:ut WINDOWS _1U00Z7R551460703833RL BU' WINDOWS _1U00Z7R4O1481266290#k r0v< WINDOWS _6LR0W8JRA1460703833zeS[ 0eX COMMENT RESERVED !| WINDOWS _1U00Z7R4O1481593538 V %5pb WINDOWS _1U00Z7R4S1481593538^"3E WINDOWS _1U00Z7R4T1054634853)o22 WINDOWS _1U00Z7R4U1481593538? )=k WINDOWS _1U00Z7R4V1481593538)( WINDOWS _1U00Z7R4W1452505689# (b2m6R 's WINDOWS _1U00Z7R4X1481593538  --4 WINDOWS _2BZ0V1TAO1452505689-,+ ,H38 WINDOWS _3940UY2P51452505689++&+,)d WINDOWS _5WP13ED411452505689@'&o& ' +lj WINDOWS _1U00Z7R4Z1481593538^&&e% WINDOWS _2BZ0V1TAO1452505689'p|c WINDOWS _1U00Z7R4O1452505689[F6Jyb WINDOWS _1U00Z7R521452505689l.` WINDOWS _1XU0RJQW21452505689td2bn\\ WINDOWS _4VQ0VBPL91481593538RB1? WINDOWS _1U00Z7R531481593538%FC*iiR WINDOWS _2BZ0V1TAO14815935389, Z n9 WINDOWS _1U00Z7R551452505689< "  5 KC WINDOWS _1U011J24N1454865812 "   m; WINDOWS _1XU0T0G6W1481593538p_I0b WINDOWS _2BZ0V1TAO1481593538 y8 WINDOWS _6TY0M7ICE1481593538o16 COMMENT RESERVED >VERSION = 3.00Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 xls_importacionesPixelsClass23formulario_acep_cancxls_importacionesErasePage = .T. PageCount = 1 Top = 25 Left = 0 Width = 757 Height = 503 Name = "Pageframe1" Page1.Caption = "Datos" Page1.Name = "Page1" "xls_importaciones.Pageframe1.Page1 containergrilla pageframe Pageframe1xls_importaciones pageframe clases.vcx clases.vcxGrilla1label3PROCEDURE InteractiveChange thisform.imp_xls.p_suspend = this.Value ENDPROC PROCEDURE Init this.Visible = (pub_index=0 or p_dev) this.Enabled = p_suspend ENDPROC xls_importaciones ckSuspendercheckboxcheckbox>PROCEDURE Init this.Visible = pub_index=0 or p_dev ENDPROC Check192gri_baseTop = 558 Left = 617 Height = 17 Width = 79 Anchor = 12 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Suspender" Value = .F. ControlSource = "THISFORM.xAuto" Name = "ckSuspender" PixelsClassTop = 558 Left = 704 Height = 17 Width = 42 Anchor = 12 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Auto" Value = .F. ControlSource = "THISFORM.xAuto" Name = "Check1" xls_importacionesgri_base_wizardcheckboxcheckboxxls_importacionesExportaciones1 container imp_exp.vcx exportacionesImp_xls clases.vcxxls_importacionesgri_baseAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Buscar:" Height = 17 Left = 4 Top = 6 Width = 46 Name = "Label2" AutoSize = .T. FontSize = 25 Anchor = 768 BackStyle = 0 Caption = "SIN DATOS" Height = 41 Left = 275 Top = 223 Width = 181 ForeColor = 255,0,0 Name = "Label1"  pageframe pageframelabelGFformzTop = 552 Left = 93 Visible = .F. Name = "Exportaciones1" exportaciones_parametros.Name = "exportaciones_parametros" (Top = 553 Left = 46 Name = "Imp_xls" custom imp_exp.vcxGFformulario_acep_cancgri_baseSBformularios.vcximportaciones_xlsNTop = 552 Left = 4 sql_alias = TMPIMPDBF sql_filtro = valido Name = "GF" xls_importacionescustomform_controles.vcxgrilla_formatoPROCEDURE LostFocus thisform.pageframe1.page1.botones.leer.Enabled=FILE(this.value) thisform.pageframe1.page1.opciones.leer.Enabled=FILE(this.value) ENDPROC labellabelPixelstextboxgri_baseformgridFPROCEDURE Timer this.Enabled=.f. thisform.sql_refresh () ENDPROC RTop = 1 Left = 378 Height = 25 Width = 24 Interval = 100 Name = "tmInicial" xls_importaciones tmInicialtimertimertimerset_acfodaid PROCEDURE Timer THIS.ENABLED=.F. LOCAL xTexto xTexto="'"+UPPER(ALLTRIM(THISFORM.pageframe1.page1.text2.Value))+"'" IF EMPTY(THISFORM.pageframe1.page1.text2.Value) THEN SELECT diario_ver SET FILTER TO THISFORM.pageframe1.page1.grilla1.REFRESH RETURN .F. ENDIF IF NOT thisform.txfiltrado THEN thisform.txfiltrado=.t. ENDIF SET FILTER TO &xTexto$TXFiltrado THISFORM.pageframe1.page1.grilla1.REFRESH ENDPROC xls_importacionestmFiltro btExportar commandbutton commandbuttongri_base olecontrol"%auoUTUTHISVISIBLEP_DEVInit011$)labelText1nAnchor = 10 Top = 45 Left = 6 Width = 738 Height = 35 BackStyle = 0 BorderWidth = 0 Name = "opciones"  Pageframe1"xls_importaciones.Pageframe1.Page1MPROCEDURE Page1.Activate Thisform.pagina_activa(this.PageOrder) ENDPROC grid`Top = 1 Left = 354 Height = 24 Width = 25 Enabled = .F. Interval = 100 Name = "tmFiltro" timerColumnCount = 0 FontName = "Courier New" Anchor = 15 DeleteMark = .F. Height = 416 Left = 3 Panel = 1 ReadOnly = .T. RecordSource = "mayor_ver" Top = 79 Width = 744 Name = "Grilla1" form/PROCEDURE Init this.Visible = p_dev ENDPROC Top = 11 Left = 488 Height = 17 Width = 100 Anchor = 8 Alignment = 0 BackStyle = 0 Caption = "Suspender" Value = .F. ControlSource = "thisform.suspender" Name = "Suspender" *xls_importaciones.Pageframe1.Page1.Botones SuspendercheckboxcheckboxTop = 7 Left = 336 Height = 25 Width = 78 Anchor = 260 Caption = "Exportar" Enabled = .F. ToolTipText = "Volver a pasar los datos mostrados a un archivo XLS" Visible = .F. Name = "Exportar" *xls_importaciones.Pageframe1.Page1.BotonesExportar commandbutton commandbuttonPROCEDURE InteractiveChange Thisform.gf.sql_filtrar(this.Value=1,thisform.pageframe1.page1.grilla1) ENDPROC PROCEDURE ProgrammaticChange Thisform.gf.sql_filtrar(this.Value=1,thisform.pageframe1.page1.grilla1) ENDPROC *xls_importaciones.Pageframe1.Page1.Botones Optiongroup1$gri_base_autofiltro.Pageframe1.Page1$gri_base_autofiltro.Pageframe1.Page1 olecontrolClassgri_basecustomform optiongroup optiongroupErasePage = .T. PageCount = 1 Anchor = 15 Top = 25 Left = 0 Width = 757 Height = 529 Name = "Pageframe1" Page1.Caption = "Importar" Page1.Name = "Page1" "xls_importaciones.Pageframe1.Page1 clases.vcx?PROCEDURE Click =thisform.imp_xls.Crear_Plantilla() ENDPROC *xls_importaciones.Pageframe1.Page1.BotonesText2form_controles.vcxtimergri_baseCommand2 commandbutton commandbuttonLeerArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 gri_base_autofiltrofTop = 7 Left = 5 Height = 25 Width = 78 Anchor = 2 Caption = "Ver Plantilla" Name = "Command2" RPROCEDURE Click RETURN thisform.pageframe1.page1.opciones.leer.click() ENDPROC  commandbutton commandbutton.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx VTop = 561 Left = 0 Height = 21 Width = 756 Visible = .F. Align = 2 Name = "SB" grilla_formatogri_basetimerqTop = 7 Left = 204 Height = 25 Width = 78 Caption = "Leer XLS" Enabled = .F. Visible = .F. Name = "Leer" *xls_importaciones.Pageframe1.Page1.BotonesBotones containertimerPROCEDURE rec_hay_buenas THISFORM.command1.ENABLED=.T. ENDPROC PROCEDURE rec_hay_malas THISFORM.pageframe1.page1.botones.optiongroup1.VISIBLE=.T. THISFORM.command1.ENABLED=.T. IF THISFORM.automatico OR thisform.xobjeto THEN xOK=.T. ELSE IF thisform.ximportar_parcial THEN xOK=not Mensaje_sino("Hay "+ALLTRIM(STR(THIS.rec_malas)) + " items que se han importado mal." +; CHR(13)+CHR(13)+"Desea cancelar la importacin y ver lo datos mal ingresados?" +; IIF(EMPTY(THISFORM.valido_txt),"",CHR(13)+THISFORM.valido_txt), 1) ELSE xOK=.f. =Mensaje("Hay "+ALLTRIM(STR(THIS.rec_malas)) + " items que se han importado mal." +CHR(10)+; "No se pueede importar un parcial") ENDIF ENDIF IF NOT xOK THEN THISFORM.pageframe1.page1.botones.optiongroup1.VALUE=2 THISFORM.command1.ENABLED=.F. ELSE THISFORM.pageframe1.page1.botones.optiongroup1.VALUE=1 ENDIF ENDPROC PROCEDURE crear_columnas DO CASE CASE Typeo(THISFORM.oparametros ) RETURN thisform.oParametros.Imp_XLS_Crear_Columnas() CASE THIS.lxls_cargar_estructura oImpStru=NEWOBJECT("importaciones_estructura", "imp_exp.vcx") oImpStru.Leer_Estructura(THIS.lxls_tipo, THIS.lxls_subtipo, THIS.lxls_version , THIS) OTHERWISE THIS.agregar_columna() THIS.agregar_columna("Codigo","XXXXXXXXXXXXXXX","Cdigo","cod_ins","C (15)") THIS.agregar_columna("Atributo","XXX","Atributo","atr","C (3)") THIS.agregar_columna("Bulto","XXX","Bulto","Bul","C (3)") THIS.agregar_columna_vacia() THIS.agregar_columna_vacia("Descr",REPLICATE("X",60),"Descripcin","Descr","C (60)") THIS.agregar_columna_vacia("Valido",.F.,"Valido","Valido","L") ENDCASE ENDPROC PROCEDURE abrir_excel RETURN DODEFAULT() ENDPROC PROCEDURE pos_validar DO cls_imp_xls_Pos_Validar IN cls_formularios_funciones WITH this ENDPROC PROCEDURE loguear LPARAMETERS xTexto, xVerbose Thisform.loguear(xTexto,, xVerbose) ENDPROC mAnchor = 10 Top = 4 Left = -1 Width = 756 Height = 39 BackStyle = 0 BorderWidth = 0 Name = "Botones" aPROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl thisform.tmFiltro.Enabled=.t. ENDPROC gri_base_autofiltro containerCommand2gri_base_wizardClassPixels commandbuttonLeer tmInicial"xls_importaciones.Pageframe1.Page1+xls_importaciones.Pageframe1.Page1.opciones commandbuttonOTop = 527 Left = 8 sql_alias = TMPIMPDBF sql_filtro = valido Name = "GF" aTop = 1 Left = 378 Height = 25 Width = 24 Enabled = .F. Interval = 100 Name = "tmInicial" gri_baseAutoSize = .T. FontSize = 25 BackStyle = 0 Caption = "SIN DATOS" Height = 41 Left = 275 Top = 223 Width = 181 ForeColor = 255,0,0 Name = "Label1" gri_base.Pageframe1.Page1opcionestextboxlabelColumnCount = 0 FontName = "Courier New" DeleteMark = .F. Height = 468 Left = 1 Panel = 1 ReadOnly = .T. RecordSource = "mayor_ver" Top = 2 Width = 749 Name = "Grilla1" Label1 containergrilla?PROCEDURE Click thisform.xls_iniciar_importacion () ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 8, 3, 0  containertTop = -1 Left = 621 Height = 35 Width = 37 Anchor = 8 Picture = bmp\redo.ico Caption = "" Name = "Command2" +xls_importaciones.Pageframe1.Page1.opciones commandbutton commandbuttonCommand1formularios.vcx+xls_importaciones.Pageframe1.Page1.opcionestmFiltrotimerLabel1gri_base_wizardWIZARD_BUTTONS1textboxtextboxgri_base commandbuttonlabelTop = 4 Left = 660 Height = 25 Width = 78 FontBold = .T. Anchor = 8 Caption = "Leer XLS" Enabled = .F. ForeColor = 196,0,0 Name = "Leer"  commandbuttonLabel2label+xls_importaciones.Pageframe1.Page1.opcionesgri_base.Pageframe1.Page1Grilla1AutoSize = .T. ButtonCount = 2 Anchor = 8 BackStyle = 0 BorderStyle = 0 Value = 1 Enabled = .F. Height = 37 Left = 603 SpecialEffect = 0 Top = 1 Width = 144 Name = "Optiongroup1" Option1.BackStyle = 0 Option1.Caption = "Validos" Option1.Value = 1 Option1.Enabled = .F. Option1.Height = 27 Option1.Left = 5 Option1.Style = 1 Option1.Top = 5 Option1.Width = 59 Option1.AutoSize = .T. Option1.BackColor = 0,255,0 Option1.Name = "Option1" Option2.BackStyle = 0 Option2.Caption = "Invlidos" Option2.Enabled = .F. Option2.Height = 27 Option2.Left = 72 Option2.Style = 1 Option2.Top = 5 Option2.Width = 67 Option2.AutoSize = .T. Option2.BackColor = 255,0,0 Option2.Name = "Option2" Top = 527 Left = 715 Height = 36 Width = 39 Anchor = 0 WordWrap = .T. Picture = bmp\excel.ico Caption = "" TabIndex = 23 ToolTipText = "Exportar a Excel" Visible = .F. ZOrderSet = 16 Name = "btExportar" Label2 clases.vcx`Top = 1 Left = 354 Height = 24 Width = 25 Enabled = .F. Interval = 100 Name = "tmFiltro" wizard_buttons+xls_importaciones.Pageframe1.Page1.opcionesArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 8, 3, 0 xTop = -1 Left = 582 Height = 35 Width = 37 Anchor = 8 Picture = bmp\explorer.ico Caption = "" Name = "Command1" PROCEDURE tmFiltro.Timer THIS.ENABLED=.F. LOCAL xTexto xTexto=UPPER(ALLTRIM(THISFORM.pageframe1.page1.text2.Value)) thisform.gf.fil_Autofiltro(xTexto, thisform.pageframe1.page1.grilla1 ) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Planilla" Height = 17 Left = 8 Top = 7 Width = 43 Name = "Label2" [Comment = " " Format = "!" Height = 25 Left = 58 Top = 2 Width = 690 Name = "Text2" Top = 531 Left = 215 Name = "WIZARD_BUTTONS1" siguiente.Name = "siguiente" anterior.Name = "anterior" cancelar.Name = "cancelar" finalizar.Name = "finalizar" inicio.Name = "inicio" dummy_obj.Name = "dummy_obj" mAnchor = 10 ControlSource = "thisform.xfile" Height = 25 Left = 53 Top = 3 Width = 528 Name = "Text1" "vv%UTUTHISFORMIMP_XLS P_SUSPENDTHISVALUE/T TUTHISVISIBLE PUB_INDEXP_DEVENABLED P_SUSPENDInteractiveChange0Init|1a21E`)v"%wUT UTHISVISIBLE PUB_INDEXP_DEVInit0113)"-%|UT- CUTHISENABLEDTHISFORM SQL_REFRESHTimer011;)PROCEDURE Timer this.Enabled=.f. thisform.sql_actualizar=.t. thisform.sql_refresh () IF thisform.gf.grid_sets_autosave THEN thisform.gf.grid_sets_default() thisform.gf.grid_sets_Cargar() ENDIF thisform.gf.val_cargado = .t. ENDPROC F"--6%-:UTaUTHISFORMCOMMAND1ENABLEDTaTa% R T a % #T CHay CC Z items que se han importado mal.C C =Desea cancelar la importacin y ver lo datos mal ingresados?CC C 6  T -jCHay CC Z items que se han importado mal.C  No se pueede importar un parcial% TT-  TUTHISFORM PAGEFRAME1PAGE1BOTONES OPTIONGROUP1VISIBLECOMMAND1ENABLED AUTOMATICOXOBJETOXOKXIMPORTAR_PARCIAL MENSAJE_SINOTHIS REC_MALAS VALIDO_TXTMENSAJEVALUEH C7BC 6TCimportaciones_estructura imp_exp.vcx#C   2 C DCCodigoXXXXXXXXXXXXXXXCdigocod_insC (15) 7CAtributoXXXAtributoatrC (3) 1CBultoXXXBultoBulC (3) C =CDescrCXTC Exportaciones_Parametros_Formato imp_exp.vcxTReporte CompletoT T C TReporteTCompleto C 0CCCfCC f.% CValidoValido%C T T C CollectionC  UXFILTROXPAR1IMP_EXPVCXXPAR2XFOR1XFORXREPORTE_COMPLETO EX_TITULOTHISFORMCAPTIONEX_ARCHIVO_ENTRADAIMP_XLS LDBF_DESTINOEX_ARCHIVO_SALIDAEX_TITULO_HOJAEX_XLS_CAMPOS_AGREGAROOBJGF COLUMN_COLLFOR_CONTROLSOURCE LDBF_ALIAS FOR_CAPTION REC_MALASEX_TABLA_FILTROEXPORTACIONES1PARAMETROS_COLLADDEXPORTAR_XLS_COLLClick01q"bqQaqAA!AAq3r)^" %[QU)&CUTHISFORMGF SQL_FILTRARTHISVALUE PAGEFRAME1PAGE1GRILLA1)&CUTHISFORMGF SQL_FILTRARTHISVALUE PAGEFRAME1PAGE1GRILLA1InteractiveChange0ProgrammaticChange1a2a1d)"(%o~UCUTHISFORMIMP_XLSCREAR_PLANTILLAClick0114)"H%UBCUTHISFORM PAGEFRAME1PAGE1OPCIONESLEERCLICKClick011G)"f%kzU CUTHISFORMXLS_INICIAR_IMPORTACIONClick0114)PROCEDURE Click LOCAL xAlias, xFile xAlias=thisform.gF.sql_alias SELECT (xAlias) xFile = oDeyFunc.NewFile_Local_TMP(,"dbf") copy to (xFile) if _tally=0 mensaje("No hay registros marcados !!!") return ENDIF *= sys_m("expo") * Creacion de los objetos a realizar la exportacion xExp=NewObject("Exportaciones", "imp_exp.vcx") xPar=NewObject("Exportaciones_Parametros", "imp_exp.vcx") * Opciones Generales xPar.ex_Titulo = Thisform.Caption * Opciones de Archivos xPar.ex_Archivo_entrada= JUSTFNAME(xFile) *xPar.ex_xls_campos_agregar () && Reset *xPar.ex_xls_campos_agregar ('fecha','Fecha') xPar.Do_Leer_Grid(thisform.pageframe1.page1.grilla1 ) **************************************************************************************** * Nuevo Parametro para controlar la apertura * 0 - Consulta si abre en el EXCEL * 1 - Abre directamente * 2 - No abre ni consulta, solo lo genera xPar.ex_xls_abrir=0 * **************************************************************************************** *** EJECUCION DE LA EXPORTACION ******************************************************** xExp.Exportar_xls(xPar) SET DATASESSION TO _SCREEN.ACTIVEFORM.DATASESSIONID ENDPROC ."z%iUV $TCWWAPI IP\WWAPI.PRGHTCHKCUSOFTWARE\Solinges\GES\Importar-file(%C ET C $T Leer CCf,% ACC UXVALXOLDDIROAPIXFILESOEXREADREGISTRYSTRINGTHISFORMNAMETHISPARENTTEXT1VALUE LOSTFOCUSLEERCAPTIONIMP_XLS LXLS_SUBTIPO LXLS_VERSIONPREEVALUAR_TIPOSREFRESH.| ShellExecute SHELL32.DLL-TCopen% RC!No se puede ejecutar ShellExecuteC Cdigo del error: CCZU XERROR SHELLEXECUTESHELL32DLLTHISPARENTTEXT1VALUEMENSAJEClick0 RightClickJ1qAA!a1BqAB3q1!A1'H)}PROCEDURE Click LPARAMETERS xFiltro LOCAL xPar1 as exportaciones_parametros OF imp_exp.vcx LOCAL xPar2, xFor1 xPar1=NEWOBJECT("Exportaciones_Parametros","imp_exp.vcx") xFor=NEWOBJECT("Exportaciones_Parametros_Formato","imp_exp.vcx") xReporte_Completo="Reporte Completo" WITH xPar1 .ex_titulo = thisform.Caption .ex_archivo_entrada = JustsTEM(thisform.imp_xls.ldbf_destino ) .ex_archivo_salida = "Reporte" .ex_titulo_hoja="Completo" *!* .ex_anexar_limpia =.T. *!* .ex_Anexar_Planilla= .T. *!* .ex_Anexar_Archivo= xReporte_Completo .ex_xls_campos_agregar() && Reset FOR EACH oOBJ IN thisform.gf.column_coll .ex_xls_campos_agregar( STRTRAN(UPPER(oObj.For_ControlSource),UPPER(ALLTRIM(thisform.imp_xls.ldbf_alias))+".",""), oObj.For_Caption) NEXT IF thisform.imp_xls.rec_malas >0 then .ex_xls_campos_agregar("Valido", "Valido") ENDIF IF NOT EMPTY(xFiltro) THEN xPar1.ex_tabla_filtro = xFiltro ENDIF ENDWITH thisform.exportaciones1.parametros_coll = NEWOBJECT("Collection") thisform.exportaciones1.parametros_coll.add(xPar1) thisform.exportaciones1.exportar_xls_coll ENDPROC F"--%UE!TC0!TC0U THISFORM PAGEFRAME1PAGE1BOTONESLEERENABLEDTHISVALUEOPCIONES LostFocus011)-"v%.Q =UvT-Ta C%^CCT aU THISENABLEDTHISFORMSQL_ACTUALIZAR SQL_REFRESHGFGRID_SETS_AUTOSAVEGRID_SETS_DEFAULTGRID_SETS_CARGAR VAL_CARGADOTimer01RA2) ࡱ> Root Entry m&\OleObjectDataAccessObjSiteData&\ChangedPropsVg8j(6(!C4#N,~dͫ2\$89368265E-85FE-11d1-8BE3-0000F8754DA1Style I MousePointer I OLE7M  Registros:DropMode I OLEDropMode I Registros:"[%I'U TTCdefavC $TCWWAPI IP\WWAPI.PRG?TCHKCUSOFTWARE\Solinges\GES\Importar G((G(% *MT@Archivos de excel(*.xls,*.xlsx,*.xlsm,*.xlsb):xls,xlsx,xlsm,xlsb% ETCC;6Delimitados por coma(*.csv):csv\TCArchivo de importacin Seleccionar Seleccin del archivo a importar%C T C  $TCWWAPI IP\WWAPI.PRGBCHKCUSOFTWARE\Solinges\GES\ImportarCa  $TCWWAPI IP\WWAPI.PRGICHKCUSOFTWARE\Solinges\GES\Importar-filea $T Leer CCf,% CCSET DEFAULT TO &xOldDir UXVALXOLDDIROAPIXFILESOEXXPATHREADREGISTRYSTRINGTHISFORMNAMEXHABILITADO_XLSXHABILITADO_CSVTHISPARENTTEXT1VALUE LOSTFOCUSWRITEREGISTRYSTRINGLEERCAPTIONIMP_XLS LXLS_SUBTIPO LXLS_VERSIONPREEVALUAR_TIPOSREFRESHClick01qbAaA"A!QA!a1A!AAABqAB2O)"&%xUCUTHISFORM PAGINA_ACTIVATHIS PAGEORDERPage1.Activate0112B)PROCEDURE leer_grid LPARAMETERS xGrid, xform LOCAL xFor FOR EACH xFor IN thisform.gf.column_coll BINDEVENT(xFor,"EVN_Header_DblClick", THIS, "EVN_Header_DblClick") BINDEVENT(xFor,"EVN_Header_Click", THIS, "EVN_Header_Click") BINDEVENT(xFor,"EVN_Field_DblClick", THIS, "EVN_Field_DblClick") BINDEVENT(xFor,"EVN_Field_Click", THIS, "EVN_Field_Click") BINDEVENT(xFor,"EVN_Field_When", THIS, "EVN_Field_When") BINDEVENT(xFor,"EVN_Field_GotFocus", THIS, "EVN_Field_GotFocus") BINDEVENT(xFor,"EVN_Field_LostFocus", THIS, "EVN_Field_LostFocus") TRY BINDEVENT(THIS,"EVN_Header_DblClick", xform, "EVN_Header_DblClick") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Header_Click", xform, "EVN_Header_Click") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_DblClick", xform, "EVN_Field_DblClick") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_Click", xform, "EVN_Field_Click") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_When", xform, "EVN_Field_When") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_GotFocus", xform, "EVN_Field_GotFocus") CATCH ENDTRY TRY BINDEVENT(THIS,"EVN_Field_LostFocus", xform, "EVN_Field_LostFocus") CATCH ENDTRY NEXT ENDPROC PROCEDURE sql_crear_columnas THIS.for_add_columna("CODIGO",thisform.gf.sql_alias +".COD_Ins","Codigo",100,"","", thisform.gf.sql_alias +".cod_ins", "cod_ins","codins") THIS.for_add_columna("Atr",thisform.gf.sql_alias +".Atr","Atr",30,"","", thisform.gf.sql_alias +".Atr", "Atr","Atr") THIS.for_add_columna("Bul",thisform.gf.sql_alias +".Bul","Bul",30,"","", thisform.gf.sql_alias +".cod_ins", "Bul","Bul") THIS.for_add_columna("DESCR",thisform.gf.sql_alias +".Descr","Descripcin",190,"","", thisform.gf.sql_alias +".Descr", "Descr","Descr") ENDPROC "[%UT-'T'CCf'%CFG( B-% T a$SET FILTER TO &xTexto$TXFiltrado  U THISENABLEDXTEXTOTHISFORM PAGEFRAME1PAGE1TEXT2VALUE DIARIO_VERGRILLA1REFRESH TXFILTRADOTimer01qqqa1qA5AA22)PROCEDURE Click LOCAL xVal, xoldDir, oAPI, xFiles, oEX TRY oAPI = NEWOBJECT("WWAPI", "IP\WWAPI.PRG") xVal=oAPI.readregistrystring("HKCU", "SOFTWARE\Solinges\GES\Importar",Thisform.Name+"-file") CATCH TO oEx ENDTRY IF NOT EMPTY(xVal) THEN THIS.PARENT.text1.VALUE=xVal =THIS.PARENT.text1.LOSTFOCUS() this.Parent.leer.Caption ="Leer "+UPPER(JUSTEXT(xVal)) IF THISFORM.imp_xls.lxls_SubTipo =-1 OR THISFORM.imp_xls.lxls_version =-1 THEN thisform.preevaluar_tipos(, , , , JUSTEXT(xVal)) ENDIF ENDIF THISFORM.REFRESH ENDPROC PROCEDURE RightClick LOCAL xError DECLARE LONG ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, STRING cOperation, STRING cFileName, ; STRING cParameters, STRING cDirectory, INTEGER nShowWindow xerror=ShellExecute( 0, "open", THIS.PARENT.text1.VALUE, "", "" , 1) IF xerror<=32 =Mensaje("No se puede ejecutar ShellExecute"+CHR(13)+"Cdigo del error: "+ALLTRIM(STR(xerror))) ENDIF ENDPROC PROCEDURE Timer THIS.ENABLED=.F. LOCAL xTexto xTexto="'"+UPPER(ALLTRIM(THISFORM.pageframe1.page1.text2.Value))+"'" IF EMPTY(THISFORM.pageframe1.page1.text2.Value) THEN SELECT diario_ver SET FILTER TO THISFORM.pageframe1.page1.grilla1.REFRESH RETURN .F. ENDIF IF NOT thisform.txfiltrado THEN thisform.txfiltrado=.t. ENDIF SET FILTER TO &xTexto$TXFiltrado THISFORM.pageframe1.page1.grilla1.REFRESH ENDPROC xfec xmon xfile xfile_tmp sql_actualizar xalias_salida tx_confirma sql_noclose Especifica si se cierra el archivo de datos antes del volver a solicitarlo. status_panel status_panel_num pf_espacio_abajo ods status_panel_cantidad status_panel_registros status_panel_marcados status_panel_progreso status_panel_marcados_eval xmarcados ultima_pgina xpagina sql_reposicionar_campo sql_reposicionar sql_reposicionar_valor *sql_refresh *obtener_datos *set_enabled *mostrar_validez *open_files *abrir_archivos *filtrar_datos *status *status_registros *status_marcados *status_progreso *pagina_activa *cambio_pagina *sql_reposicionar_mover *obtener_id "U%~Uc T FTCdbf (% *CNo hay registros marcados !!!B+TC Exportaciones imp_exp.vcx6T CExportaciones_Parametros imp_exp.vcxT  T CC T C G(9UXALIASXFILETHISFORMGF SQL_ALIASODEYFUNCNEWFILE_LOCAL_TMPMENSAJEXEXPXPAR EX_TITULOCAPTIONEX_ARCHIVO_ENTRADA DO_LEER_GRID PAGEFRAME1PAGE1GRILLA1 EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDClick011"AAa336) "k%U TaUNKEYCODE NSHIFTALTCTRLTHISFORMTMFILTROENABLEDKeyPress011V)r"YY"e%UUT-TCCf C  U THISENABLEDXTEXTOTHISFORM PAGEFRAME1PAGE1TEXT2VALUEGFFIL_AUTOFILTROGRILLA1tmFiltro.Timer01q3)YZPROCEDURE Click LOCAL xVal, xoldDir, oAPI, xFiles, oEX xFiles="" xOldDir=SET("defa")+ CURDIR() TRY oAPI = NEWOBJECT("WWAPI", "IP\WWAPI.PRG") xPath=oAPI.readregistrystring("HKCU", "SOFTWARE\Solinges\GES\Importar",Thisform.Name) SET DEFAULT TO (xPath) CATCH TO oEx SET DEFAULT TO ENDTRY IF thisform.xhabilitado_xls THEN xFiles="Archivos de excel(*.xls,*.xlsx,*.xlsm,*.xlsb):xls,xlsx,xlsm,xlsb" ENDIF IF thisform.xhabilitado_CSV THEN xFiles=xFiles+IIF(EMPTY(xFiles),"",";")+"Delimitados por coma(*.csv):csv" ENDIF xVal=GETFILE(xFiles,"Archivo de importacin","Seleccionar",0, "Seleccin del archivo a importar") IF NOT EMPTY(xVal) THEN THIS.PARENT.text1.VALUE=xVal =THIS.PARENT.text1.LOSTFOCUS() TRY oAPI = NEWOBJECT("WWAPI", "IP\WWAPI.PRG") oAPI.writeregistrystring("HKCU", "SOFTWARE\Solinges\GES\Importar",Thisform.Name,JUSTPATH(xVAL), .t.) CATCH ENDTRY TRY oAPI = NEWOBJECT("WWAPI", "IP\WWAPI.PRG") oAPI.writeregistrystring("HKCU", "SOFTWARE\Solinges\GES\Importar",Thisform.Name+"-file",xVAL, .t.) CATCH ENDTRY this.Parent.leer.Caption ="Leer "+UPPER(JUSTEXT(xVal)) IF THISFORM.imp_xls.lxls_SubTipo =-1 OR THISFORM.imp_xls.lxls_version =-1 THEN thisform.preevaluar_tipos(, , , , JUSTEXT(xVal)) ENDIF ENDIF SET DEFAULT TO &xOldDir THISFORM.REFRESH ENDPROC xfec xmon xfile xfile_tmp sql_actualizar xalias_salida tx_confirma xauto valido_txt cuenta_validos cuenta_invalidos automatico ximportar_parcial Si se pone en .T. permite importar si hay parciales con error suspender xhabilitado_xls xhabilitado_csv var_l1 for_readonly formulario_no_visible xlog Especifica si se registra la actividad del formulario xobjeto Especifica si se tratar como un objeto externamente xcodalt1 otabla xtabla ximportar_invalidos Si se establece en .T. se importan tanto vlidos como invlidos. oparametros Objeto con parmetros para la creacin de la importacin olog log_carpeta log_subcarpeta log_clase log_registrar caption_backup *sql_refresh *xls_importar *set_enabled *mostrar_validez *open_files *abrir_archivos *iniciar_automatico *xls_iniciar_importacion *preevaluar_tipos *log *xcodalt1_assign *actualizar_label *crear_tabla_objeto *aplicar_parametros *loguear *crear_log Height = 581 Width = 756 DoCreate = .T. Caption = "Importaciones" Closable = .F. xfec = .F. xmon = .F. xfile = ('') sql_actualizar = .F. xalias_salida = .F. tx_confirma = ("Est seguro de querer importar los datos vlidos?") xauto = .F. valido_txt = ("") cuenta_validos = .F. cuenta_invalidos = .F. automatico = .F. ximportar_parcial = .T. suspender = .F. xhabilitado_xls = (.t.) xhabilitado_csv = (.t.) var_l1 = .F. for_readonly = .T. formulario_no_visible = .F. xlog = .F. xobjeto = .F. xcodalt1 = .F. otabla = .F. xtabla = ("") ximportar_invalidos = .F. oparametros = .F. olog = (.f.) log_carpeta = ("") log_subcarpeta = ("") log_clase = ("loguear_importaciones") log_registrar = .T. caption_backup = ("") Name = "xls_importaciones" Command1.Top = 554 Command1.Left = 336 Command1.Anchor = 132 Command1.Cancel = .F. Command1.Enabled = .F. Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 554 Command2.Left = 408 Command2.Anchor = 36 Command2.Cancel = .T. Command2.Enabled = .T. Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.Top = 1 AYUDA.Left = 735 AYUDA.Enabled = .F. AYUDA.TabIndex = 6 AYUDA.Visible = .F. AYUDA.Name = "AYUDA" Text1.Enabled = .F. Text1.Left = 708 Text1.TabIndex = 7 Text1.Top = 0 Text1.Visible = .F. Text1.Name = "Text1" Ayuda_wiki1.Height = 20 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Name = "advertencia" jHeight = 582 Width = 756 DoCreate = .T. Caption = "Grilla" Closable = .F. MinHeight = 200 MinWidth = 200 xfec = .F. xmon = .F. xfile = ('') sql_actualizar = .F. xalias_salida = .F. tx_confirma = ("Est seguro de querer importar los items vlidos?") sql_noclose = .F. status_panel = .F. status_panel_num = 1 pf_espacio_abajo = 0 ods = .F. status_panel_cantidad = 2 status_panel_registros = 2 status_panel_marcados = .F. status_panel_progreso = .F. status_panel_marcados_eval = .F. xmarcados = .F. ultima_pgina = 0 xpagina = 0 sql_reposicionar_campo = ("") sql_reposicionar = .F. sql_reposicionar_valor = .F. Name = "gri_base" Command1.Top = 535 Command1.Left = 300 Command1.Height = 25 Command1.Width = 73 Command1.Caption = "Aceptar" Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 535 Command2.Left = 384 Command2.Height = 25 Command2.Width = 72 Command2.Cancel = .T. Command2.Caption = "Cancelar" Command2.Enabled = .T. Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.Top = 1 AYUDA.Left = 735 AYUDA.Enabled = .F. AYUDA.TabIndex = 6 AYUDA.Visible = .F. AYUDA.Name = "AYUDA" Text1.Enabled = .F. Text1.Left = 708 Text1.TabIndex = 7 Text1.Top = 0 Text1.Visible = .F. Text1.Name = "Text1" Ayuda_wiki1.Height = 20 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Name = "advertencia" 9"  `%yU H7      g7    7      U NKEYCODE NSHIFTALTCTRLTHISFORMWIZARD_BUTTONS1ENABLE_FINALIZAR FINALIZARCLICKENABLE_SIGUIENTE SIGUIENTEENABLE_ANTERIORANTERIORg C 0TC _ :%`G(9UTHISNAMECAPTION SET_ACFODAID ACTIVEFORM DATASESSIONIDKeyPress0Load1qAsAsAC2A"A1i$) PROCEDURE sql_refresh LOCAL xAlias IF NOT THISFORM.SQL_Actualizar THEN RETURN .F. ENDIF THISFORM.pageframe1.page1.label1.CAPTION="ACTUALIZANDO DATOS" thisform.status("ACTUALIZANDO DATOS") THISFORM.pageframe1.page1.label1.Refresh oDeyFunc.DEVENTS(.t.) THISFORM.pageframe1.page1.label1.LEFT = (THISFORM.pageframe1.PAGEWIDTH/2) - (THISFORM.pageframe1.page1.label1.WIDTH/2) THISFORM.pageframe1.page1.label1.Refresh oDeyFunc.DEVENTS(.t.) THISFORM.LOCKSCREEN = .T. xAlias=THISFORM.gf.sql_alias THISFORM.xfile_tmp=oDeyFunc.NewFile_Local_TMP() THISFORM.SQL_Actualizar=.F. =thisform.gf.sql_reposicionar_obtener () IF NOT THISFORM.sql_noclose TRY THISFORM.pageframe1.page1.grilla1.RecordSource="" SELECT &xAlias USE CATCH ENDTRY ENDIF THISFORM.gf.gri_preparar(THISFORM.pageframe1.page1.grilla1,THISFORM.pageframe1.page1.label1) LOCAL oColl oColl=THISFORM.gf.column_coll THIS.STATUS ("Obteniendo datos") IF THISFORM.obtener_datos () THEN =thisform.filtrar_datos() THISFORM.gf.gri_arreglar (THISFORM.pageframe1.page1.grilla1,THISFORM.pageframe1.page1.label1) =thisform.gf.sql_reposicionar_mover () =thisform.status_registros() thisform.pageframe1.page1.grilla1.Refresh thisform.obtener_id () ENDIF THIS.STATUS ("") THISFORM.LOCKSCREEN = .F. ENDPROC PROCEDURE set_enabled LPARAMETERS xVal thisform.command1.Enabled=xVal ENDPROC PROCEDURE abrir_archivos IF NOT USED("Bienes") THEN USE bienes IN 0 ENDIF IF NOT USED("bultos") THEN USE bultos IN 0 ENDIF IF NOT USED("atributo") THEN USE atributo IN 0 ENDIF ENDPROC PROCEDURE status LPARAMETERS xText IF TYPE("this.status_panel") = "O" THEN this.status_panel.Text=xText ENDIF ENDPROC PROCEDURE status_registros IF TYPE("this.status_panel_registros")="O" THEN LOCAL xRecc xRecC=RECCOUNT(thisform.gf.sql_alias ) IF xRecC=0 THEN this.status_panel_registros.Text="" ELSE this.status_panel_registros.Text="Registros:" + ALLTRIM(STR(xRecC)) ENDIF ENDIF ENDPROC PROCEDURE status_marcados LPARAMETERS xMarcados LOCAL xEval thisform.ods.Sel_Push_Simple() IF TYPE("xMarcados")="L" THEN xEval=Thisform.status_panel_marcados_eval COUNT FOR &xEval TO xMarcados ENDIF thisform.xmarcados = xMarcados IF TYPE("this.status_panel_marcados")="O" THEN IF xMarcados=0 THEN this.status_panel_marcados.Text="" ELSE this.status_panel_marcados.Text="Marcados:" + ALLTRIM(STR(xMarcados)) ENDIF ENDIF thisform.ods.Sel_Pop_Simple() ENDPROC PROCEDURE status_progreso LPARAMETERS xProgreso thisform.ods.Sel_Push_Simple() IF TYPE("xProgreso")="L" THEN xProgreso=thisform.xProgreso+1 ENDIF thisform.xProgreso = xProgreso IF TYPE("this.status_panel_progreso")="O" THEN IF xProgreso=0 THEN this.status_panel_progreso.Text="" ELSE this.status_panel_progreso.Text="Progreso:" + ALLTRIM(STR(xProgreso)) ENDIF ENDIF ENDPROC PROCEDURE pagina_activa LPARAMETERS xPagina LOCAL xPaginaVieja IF thisform.xpagina = xPagina THEN RETURN .f. ELSE xPaginaVieja = thisform.xpagina thisform.xpagina = xPagina thisform.cambio_pagina ( xPagina, xPaginaVieja ) ENDIF ENDPROC PROCEDURE cambio_pagina LPARAMETERS xPagina, xPaginaVieja ENDPROC PROCEDURE QueryUnload thisform.status_panel=.f. =thisform.gf.queryUnload () ENDPROC PROCEDURE Resize THISFORM.pageframe1.WIDTH = THISFORM.WIDTH - (THISFORM.pageframe1.LEFT * 2) IF THISFORM.SB.VISIBLE THISFORM.SB.TOP = THISFORM.HEIGHT-THISFORM.SB.TOP THISFORM.SB.REFRESH oDeyFunc.DEVENTS(.t.) ENDIF IF THISFORM.SB.VISIBLE THISFORM.command1.TOP = THISFORM.HEIGHT - THISFORM.SB.HEIGHT - THISFORM.command1.HEIGHT - 5 ELSE THISFORM.command1.TOP = THISFORM.HEIGHT - THISFORM.command1.HEIGHT - 5 ENDIF THISFORM.command2.TOP = THISFORM.command1.TOP IF THISFORM.command1.VISIBLE THEN IF THISFORM.command2.VISIBLE THEN THISFORM.command1.LEFT = (THISFORM.WIDTH/2) - ((THISFORM.command1.WIDTH+THISFORM.command2.WIDTH+10)/2) THISFORM.command2.LEFT = THISFORM.command1.LEFT+THISFORM.command1.WIDTH + 10 ELSE THISFORM.command1.LEFT = (THISFORM.WIDTH/2) - ((THISFORM.command1.WIDTH+5)/2) ENDIF ELSE THISFORM.command2.LEFT = (THISFORM.WIDTH/2) - ((THISFORM.command2.WIDTH+5)/2) ENDIF try THISFORM.pageframe1.HEIGHT = THISFORM.command1.TOP - thisform.pf_espacio_abajo - THISFORM.pageframe1.TOP - 5 catch endtry THISFORM.pageframe1.page1.grilla1.HEIGHT = THISFORM.pageframe1.PAGEHEIGHT - THISFORM.pageframe1.page1.grilla1.TOP - 5 THISFORM.pageframe1.page1.grilla1.WIDTH = THISFORM.pageframe1.PAGEWIDTH - (THISFORM.pageframe1.page1.grilla1.LEFT *2 ) THISFORM.pageframe1.page1.Label1.LEFT = (THISFORM.pageframe1.PAGEWIDTH/2) - (THISFORM.pageframe1.page1.Label1.WIDTH/2) IF THISFORM.SB.VISIBLE THISFORM.btExportar.TOP = THISFORM.HEIGHT - THISFORM.SB.HEIGHT - THISFORM.btExportar.HEIGHT - 1 thisform.btExportar.Left = thisform.width + thisform.btExportar.Width - 5 *thisform.Caption = thisform.Caption + "Visible" ELSE THISFORM.btExportar.TOP = THISFORM.HEIGHT - THISFORM.btExportar.HEIGHT - 1 thisform.btExportar.Left = thisform.width - thisform.btExportar.Width - 5 * thisform.Caption = thisform.Caption + "no visible" ENDIF ENDPROC PROCEDURE Load this.abrir_archivos() ENDPROC PROCEDURE Init lparameters xAlias_Salida, xColl_Set, xancho, xalto =sets() *!* DO CASE *!* CASE BETWEEN(SYSMETRIC(1),750,850) *!* thisform.width=750 *!* CASE BETWEEN(SYSMETRIC(1),851,1200) *!* thisform.width=950 *!* CASE SYSMETRIC(1)>=1201 *!* thisform.width=1250 *!* ENDCASE *!* DO CASE *!* CASE BETWEEN(SYSMETRIC(2),400,700) *!* thisform.Height=550 *!* CASE BETWEEN(SYSMETRIC(2),701,950) *!* thisform.Height=700 *!* CASE SYSMETRIC(2)>=951 *!* thisform.Height=900 *!* ENDCASE dodefault() IF TYPE("xancho")="N" THEN thisform.anchodeseado = xancho ENDIF IF TYPE("xalto")="N" THEN thisform.alturadeseada = xalto ENDIF LOCAL xwidth, xheight xwidth = sysmetric(1) xheight = sysmetric(2) if this.anchodeseado>0 if this.anchodeseado>=xwidth-20 this.Width = xwidth-20 else this.Width = this.anchodeseado endif else * No inicializado endif if this.alturadeseada>0 if this.alturadeseada>=xheight-140 this.height = xheight-140 else this.height = this.alturadeseada endif else * No inicializado ENDIF IF thisform.status_panel_num >0 THEN thisform.status_panel = thisform.sb.Panels(thisform.status_panel_num) thisform.GF.status_panel = thisform.sb.Panels(thisform.status_panel_num) ENDIF IF thisform.status_panel_cantidad >0 THEN FOR nIt=thisform.sb.Panels.Count + 1 TO thisform.status_panel_cantidad thisform.sb.Panels.Add() NEXT ENDIF IF NOT EMPTY(thisform.status_panel_registros) THEN thisform.status_panel_registros= thisform.sb.Panels(thisform.status_panel_registros) ENDIF IF NOT EMPTY(thisform.status_panel_marcados) THEN thisform.status_panel_marcados= thisform.sb.Panels(thisform.status_panel_marcados) ENDIF IF NOT EMPTY(thisform.status_panel_progreso) THEN thisform.status_panel_progreso= thisform.sb.Panels(thisform.status_panel_progreso) ENDIF IF TYPE("xColl_Set")="O" THEN Thisform.gf.column_coll = xColl_Set ENDIF thisform.gf.sql_noclose = this.sql_noclose thisform.gf.sql_crear_columnas () thisform.gf.val_columnascreadas = .t. thisform.Resize thisform.AutoCenter = .t. thisform.xAlias_Salida=xAlias_Salida thisform.tmInicial.Enabled =.t. thisform.gf.val_cargapendiente = .t. Thisform.oDS = NewObject("Data_Status", "sys_clases_Tablas.prg","",thisform.gf.sql_alias) ENDPROC PROCEDURE Command1.Click IF THISFORM.validar() THEN IF NOT EMPTY(THIS.PARENT.tx_confirma) AND NOT Mensaje_SINO(THIS.PARENT.tx_confirma ,2) THEN RETURN .F. ELSE =THISFORM.procesar_aceptar() =THISFORM.gf.QUERYUNLOAD () THISFORM.resultado=.T. THISFORM.RELEASE ENDIF ELSE RETURN .F. ENDIF ENDPROC PROCEDURE Command2.Click =thisform.gf.queryUnload () =DODEFAULT() ENDPROC PROCEDURE Command2.RightClick =sys_M("Suspender") ENDPROC  "Z%a`dUA% !B-&CIniciando importacin.+C Importando: C"CACTUALIZANDO DATOSTTCC  T- SELECT &xAlias Q (C   T CIMPORTANDO DATOS%CJC+T  T aT aT a(C  T a nT - CT -T -T  -T  -T !"*%#  $ : %U&XALIASTHISFORMSQL_ACTUALIZARLOGUEARXFILEACTUALIZAR_LABELGF SQL_ALIAS XFILE_TMPODEYFUNCNEWFILE_LOCAL_TMP GRI_PREPARAR PAGEFRAME1PAGE1GRILLA1LABEL1OCOLL COLUMN_COLL XLS_IMPORTARIMP_XLS ABRIR_DBFBOTONES OPTIONGROUP1VALUEENABLEDOPTION1OPTION2 GRI_ARREGLAREXPORTAROPCIONESTEXT1COMMAND1LEERREADONLY FOR_READONLYXAUTOXOBJETOCLICK&BCUXRETTHISIMP_XLSIMPORTARTHISFORMXFILE XFILE_TMPTUXVALTHISFORMCOMMAND1ENABLED%CBienes *Qbienes%Cbultos XQbultos%Catributo QatributoUBIENESBULTOSATRIBUTO5TaT CU XPLANILLATHISFORM AUTOMATICOXFILETHISXLS_INICIAR_IMPORTACION%Cu;C.Debe seleccionar primero un archivo a importar%CqB-Ta% C TaU XMANUALTHISFORMXFILEMENSAJESQL_ACTUALIZAR AUTOMATICO SQL_REFRESH TMINICIALENABLED%CxTipobN FT%CxSubTipobN |T%CxVersionbN T TC  6T Cimportaciones_estructura imp_exp.vcx%C  TTT T CUXTIPOXSUBTIPOXVERSIONXCODIGO XEXTENSIONTHISFORMIMP_XLS LXLS_TIPO LXLS_SUBTIPO LXLS_VERSION LXLS_CODIGOOIMPSTRUPREEVALUAR_TIPOSTHISCREAR_COLUMNAS2T TUVNEWVALTHISXCODALT1IMP_XLSVAL_USAR_CODALT/TC TT-%CoT -  T 9T     T a%CCaTUXTEXTOXLOGXVERBOSEXLOCKTHISFORM LOCKSCREEN PAGEFRAME1PAGE1LABEL1VISIBLECAPTIONLEFT PAGEWIDTHWIDTHTHISLOGUEARODEYFUNCDEVENTSe%C ^ Ta'sys_clases_TablasTUTHISXTABLAOTABLACREAR_OBJETO_TABLASYS_CLASES_TABLASU+QIMPORTACIONES_XLS Imp_EXP.VCXCTU OPARAMETROSIMP_EXPVCXTHISFORMIMP_XLSCLONARSE TX_CONFIRMA~TCc %C MC%C wCUXTEXTOXARCHIVOXVERBOSETHISFORMOLOGLOGAGREGAR_ARCHIVO{%C+T t?TC sys_log.prgC UOLOGTYPEOTHISFORM LOG_CLASE LOG_CARPETALOG_SUBCARPETANAME#CCUTHISFORMGF QUERYUNLOADIMP_XLSU CUTHISABRIR_ARCHIVOS74    T T T  T T T  T  2QIMPORTACIONES_ESTRUCTURA imp_exp.vcx CHv CC%R!T  CC%SNT  C%vT H  CC%T  CC%T  C% T R CC%C `C C C C !T "aT C  %C <T #%C08T $%&'(a%T $%&')C^#% C #0  T *aT +(aU, XALIAS_SALIDA XARCHIVO_XLSXAUTOXTIPOXSUBTIPOXVERSIONXCODIGOXTMPFILEXLOGXOBJETO XINVALIDOS OPARAMETROSOLOGTHISFORM XFILE_TMP AUTOMATICOXIMPORTAR_INVALIDOSOIMPSTRUIMP_EXPVCXSETSWIDTHHEIGHTTHISCREAR_TABLA_OBJETOPREEVALUAR_TIPOSTYPEOAPLICAR_PARAMETROSGFSQL_CREAR_COLUMNASIMP_XLSCREAR_COLUMNAS CREAR_LOGRESIZE AUTOCENTERXFILE PAGEFRAME1PAGE1OPCIONESLEERENABLED FORECOLORSQL_ACTUALIZAR TMINICIALU T TC T TT SELECT &xalias G( ( (T T 7CProcesar Aceptar: CCZ-CCZ (  Q%C4 FQQUXCOUNTVXCOUNTI XARCHIVO_XLSTHISFORMXFILEXALIASODEYFUNCNEWFILE_LOCAL_TMPGF SQL_ALIASVALIDOCUENTA_INVALIDOSCUENTA_VALIDOSLOGUEARXIMPORTAR_INVALIDOS XALIAS_SALIDA  % 9 Ta ]TC % xB- C %C C TTTa   BUXCOUNTVXCOUNTIXOKTHISFORM AUTOMATICOXOBJETO MENSAJE_SINOTHISPARENT TX_CONFIRMAGF QUERYUNLOADVALIDARPROCESAR_ACEPTARCUENTA_VALIDOSCUENTA_INVALIDOS RESULTADORELEASET UTHISFORM SUSPENDERN%CImportacin cancelada CC CUTHISFORMLOGUEARPROCESAR_CANCELARGF QUERYUNLOAD4TC6C Suspendo?U P_SUSPENDP_DEVSYS_M sql_refresh0 xls_importar set_enabledfabrir_archivosiniciar_automaticoaxls_iniciar_importacionpreevaluar_tiposxcodalt1_assignV actualizar_label crear_tabla_objeto aplicar_parametros@ loguear crear_log QueryUnloadrResizeLoadInitprocesar_aceptar^Command1.ClickwCommand1.RightClickKCommand2.ClickCommand2.RightClick 1q1qAb"2!AAr11AA2q4q12!A!AAA3q4qCAqAAA2q1A1A1AcQ21112q"b21qqqQAA3QqqA2B131!A!AA3qAA22012q"qAqABA!QAA2A31!arABAA3rAqaAA3A2Q2a1)78,Y?/QC9zO> ZL m_ ;cbzuC|l$Xu!)!#$%@&9&]^&&`&3'f)'>PROCEDURE sql_refresh LOCAL xAlias IF NOT THISFORM.SQL_Actualizar THEN RETURN .F. ENDIF Thisform.Loguear("Iniciando importacin.") Thisform.Loguear("Importando: "+ALLTRIM(thisform.xFile), thisform.xFile) thisform.actualizar_label("ACTUALIZANDO DATOS") xAlias=THISFORM.gf.sql_alias *thisform.gf.sql_alias=xAlias THISFORM.xfile_tmp=EVL(THISFORM.xfile_tmp,oDeyFunc.NewFile_Local_TMP()) THISFORM.SQL_Actualizar=.F. TRY SELECT &xAlias USE CATCH ENDTRY THISFORM.gf.gri_preparar(THISFORM.pageframe1.page1.grilla1,THISFORM.pageframe1.page1.label1) LOCAL oColl oColl=THISFORM.gf.column_coll thisform.actualizar_label("IMPORTANDO DATOS") IF THISFORM.xls_importar() THEN THISFORM.imp_xls.abrir_dbf() THISFORM.pageframe1.page1.botones.optiongroup1.VALUE=THISFORM.pageframe1.page1.botones.optiongroup1.VALUE THISFORM.pageframe1.page1.botones.optiongroup1.ENABLED = .T. THISFORM.pageframe1.page1.botones.optiongroup1.option1.ENABLED = .T. THISFORM.pageframe1.page1.botones.optiongroup1.option2.ENABLED = .T. THISFORM.gf.gri_arreglar (THISFORM.pageframe1.page1.grilla1,THISFORM.pageframe1.page1.label1) THISFORM.pageframe1.page1.botones.Exportar.ENABLED=.T. ELSE THISFORM.pageframe1.page1.botones.Exportar.ENABLED=.F. ENDIF thisform.actualizar_label() THISFORM.pageframe1.page1.opciones.text1.ENABLED=.F. THISFORM.pageframe1.page1.opciones.command1.ENABLED=.F. THISFORM.pageframe1.page1.botones.leer.ENABLED=.F. THISFORM.pageframe1.page1.opciones.leer.ENABLED=.F. THISFORM.pageframe1.page1.grilla1.READONLY=thisform.for_readonly IF thisform.xauto AND thisform.command1.Enabled AND NOT thisform.xObjeto THEN *** Ejecuto aceptar. thisform.command1.Click ENDIF ENDPROC PROCEDURE xls_importar LOCAL xRet RETURN this.imp_xls.importar(thisform.xfile , thisform.xfile_tmp ) ENDPROC PROCEDURE set_enabled LPARAMETERS xVal thisform.command1.Enabled=xVal ENDPROC PROCEDURE abrir_archivos IF NOT USED("Bienes") THEN USE bienes IN 0 ENDIF IF NOT USED("bultos") THEN USE bultos IN 0 ENDIF IF NOT USED("atributo") THEN USE atributo IN 0 ENDIF ENDPROC PROCEDURE iniciar_automatico LPARAMETERS xPlanilla thisform.automatico=.t. thisform.xfile = xPlanilla =this.xls_iniciar_importacion() ENDPROC PROCEDURE xls_iniciar_importacion LPARAMETERS xManual *=sys_mostrar_screen("Suspendo?", .t.) IF EMPTY(thisform.xfile) THEN =mensaje("Debe seleccionar primero un archivo a importar") IF EMPTY(thisform.xfile) THEN return .f. ENDIF ENDIF thisform.sql_actualizar = .t. IF thisform.automatico OR xManual THEN thisform.sql_refresh () ELSE thisform.tmInicial.Enabled = .t. ENDIF ENDPROC PROCEDURE preevaluar_tipos LPARAMETERS xTipo, xSubTipo, xVersion, xCodigo, xExtension IF NOT TYPE("xTipo")="N" THEN xTipo=THISFORM.imp_xls.lxls_Tipo ENDIF IF NOT TYPE("xSubTipo")="N" THEN xSubTipo = THISFORM.imp_xls.lxls_SubTipo ENDIF IF NOT TYPE("xVersion")="N" THEN xVersion = THISFORM.imp_xls.lxls_version ENDIF xCodigo=EVL(xCodigo,THISFORM.imp_xls.lxls_Codigo) oImpStru=NEWOBJECT("importaciones_estructura", "imp_exp.vcx") oImpStru.preevaluar_tipos(@xTipo, @xSubTipo, @xVersion, @xCodigo, this, @xExtension) THISFORM.imp_xls.lxls_Tipo = xTipo THISFORM.imp_xls.lxls_SubTipo = xSubTipo THISFORM.imp_xls.lxls_version = xVersion THISFORM.imp_xls.lxls_Codigo = xCodigo thisform.imp_xls.crear_columnas () ENDPROC PROCEDURE xcodalt1_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.xcodalt1 = m.vNewVal this.imp_xls.val_usar_codalt = THIS.xcodalt1 ENDPROC PROCEDURE actualizar_label LPARAMETERS xTexto, xLog, xVerbose xTexto=EVL(xTexto,"") LOCAL xLock xLock=THISFORM.LOCKSCREEN THISFORM.LOCKSCREEN = .F. IF EMPTY(xTexto) THEN THISFORM.pageframe1.page1.label1.VISIBLE=.F. ELSE THISFORM.pageframe1.page1.label1.CAPTION=xTexto THISFORM.pageframe1.page1.label1.LEFT = (THISFORM.pageframe1.PAGEWIDTH/2) - (THISFORM.pageframe1.page1.label1.WIDTH/2) THISFORM.pageframe1.page1.label1.VISIBLE=.T. IF xLog THEN THIS.loguear(xTexto, xVerbose) ENDIF ENDIF oDeyFunc.DEVENTS(.T.) THISFORM.LOCKSCREEN = xLock ENDPROC PROCEDURE crear_tabla_objeto IF NOT EMPTY(this.xtabla) THEN LOCAL oTabla oTabla=.t. DO Crear_Objeto_Tabla IN sys_clases_Tablas WITH this.xtabla, oTabla this.otabla = oTabla endif ENDPROC PROCEDURE aplicar_parametros LPARAMETERS oParametros as Importaciones_XLS OF Imp_EXP.VCX Thisform.imp_xls.clonarse (@oParametros) thisform.tx_confirma = oParametros.tx_confirma ENDPROC PROCEDURE loguear LPARAMETERS xTexto, xArchivo, xVerbose xVerbose = evl(xVerbose,99) IF NOT EMPTY(xTexto) THEN THISFORM.oLog.LOG(xTexto,,xVerbose) ENDIF IF NOT EMPTY(xArchivo) THEN THISFORM.oLog.Agregar_Archivo(xArchivo) ENDIF ENDPROC PROCEDURE crear_log lparameters oLog if typeo(oLog) then thisform.olog = oLog else Thisform.olog = NEWOBJECT(thisform.log_clase, "sys_log.prg","", thisform.log_carpeta , , , , EVL(thisform.log_subcarpeta, thisform.Name) ) endif ENDPROC PROCEDURE QueryUnload =thisform.gf.queryUnload () =thisform.imp_xls.queryUnload () ENDPROC PROCEDURE Resize *!* thisform.pageframe1.Width = thisform.Width - (thisform.pageframe1.Left * 2) *!* thisform.command1.Top = thisform.Height - thisform.command1.Height - 5 *!* thisform.command1.Left = (thisform.width/2) - ((thisform.command1.width+thisform.command2.width+10)/2) *!* thisform.command2.Top = thisform.command1.Top *!* thisform.command2.Left = thisform.command1.Left+Thisform.command1.Width + 10 *!* thisform.pageframe1.Height = thisform.command1.Top - thisform.pageframe1.Top - 5 *!* thisform.pageframe1.page1.grilla1.Height = thisform.pageframe1.PageHeight - thisform.pageframe1.page1.grilla1.Top - 5 *!* thisform.pageframe1.page1.grilla1.width = thisform.pageframe1.PageWidth - (thisform.pageframe1.page1.grilla1.Left *2 ) *!* thisform.pageframe1.page1.Label1.Left = (thisform.pageframe1.PageWidth/2) - (thisform.pageframe1.page1.label1.width/2) *!* thisform.pageframe1.page1.opciones.width = thisform.pageframe1.PageWidth - (thisform.pageframe1.page1.opciones.left *2 ) *!* thisform.pageframe1.page1.opciones.command1.Left = thisform.pageframe1.page1.opciones.Width - (thisform.pageframe1.page1.opciones.command1.width) - 5 *!* thisform.pageframe1.page1.opciones.text1.width= thisform.pageframe1.page1.opciones.command1.Left - (thisform.pageframe1.page1.opciones.text1.Left ) - 5 *!* thisform.pageframe1.page1.botones.width = thisform.pageframe1.PageWidth - (thisform.pageframe1.page1.botones.left *2 ) *!* thisform.pageframe1.page1.botones.optiongroup1.Left = thisform.pageframe1.page1.botones.width - (thisform.pageframe1.page1.botones.optiongroup1.Width ) -5 ENDPROC PROCEDURE Load this.abrir_archivos() ENDPROC PROCEDURE Init PARAMETERS xAlias_Salida, xArchivo_XLS, xAuto, xTipo, xSubTipo, xVersion, xCodigo, xTMPFile, xLog, xObjeto, xInvalidos, oParametros, oLog THISFORM.xLog = xLog THISFORM.xfile_tmp = xTMPFile THISFORM.xObjeto = xObjeto THISFORM.xAuto = xAuto THISFORM.automatico = xAuto THISFORM.ximportar_invalidos = xInvalidos THISFORM.oParametros = oParametros LOCAL oImpStru AS importaciones_estructura OF imp_exp.vcx =sets() DO CASE CASE BETWEEN(SYSMETRIC(1),750,850) THISFORM.WIDTH=750 CASE BETWEEN(SYSMETRIC(1),851,1200) THISFORM.WIDTH=950 CASE SYSMETRIC(1)>=1201 THISFORM.WIDTH=1250 ENDCASE DO CASE CASE BETWEEN(SYSMETRIC(2),400,700) THISFORM.HEIGHT=500 CASE BETWEEN(SYSMETRIC(2),651,950) THISFORM.HEIGHT=650 CASE SYSMETRIC(2)>=901 THISFORM.HEIGHT=850 ENDCASE THIS.crear_tabla_objeto () THIS.Preevaluar_Tipos( xTipo, xSubTipo, xVersion, xCodigo) IF TYPEO(oParametros) THEN THIS.Aplicar_Parametros(@oParametros) ENDIF THISFORM.gf.sql_crear_columnas () THISFORM.imp_xls.crear_columnas () thisform.crear_log(oLog) THISFORM.RESIZE THISFORM.AUTOCENTER = .T. THISFORM.xAlias_Salida=EVL(xAlias_Salida,THISFORM.xAlias_Salida) IF NOT EMPTY(xArchivo_XLS) THEN THISFORM.xfile = xArchivo_XLS IF FILE(xArchivo_XLS) THEN THISFORM.pageframe1.page1.opciones.leer.ENABLED = .T. THISFORM.pageframe1.page1.opciones.leer.FORECOLOR = RGB(255,0,0) ENDIF ENDIF IF xAuto AND FILE(THISFORM.xfile) AND NOT xObjeto THEN THISFORM.sql_actualizar = .T. THISFORM.tmInicial.ENABLED = .T. ENDIF ENDPROC PROCEDURE procesar_aceptar LPARAMETERS xCountV, xCountI * Modifico el parmetro inicial con el archivo efectivamente importado xArchivo_XLS=thisform.xfile LOCAL xAlias, xFile xFile=oDeyFunc.NewFile_local_tmp() xCountV=0 xCountI=0 xalias=thisform.gf.sql_alias SELECT &xalias SET FILTER TO COUNT FOR NOT valido TO xCountI COUNT FOR VALIDO TO xCountV thisform.cuenta_invalidos =xCountI thisform.cuenta_validos=xCountV =Thisform.loguear ("Procesar Aceptar: "+ALLTRIM(STR(xCountV))+"-"+ALLTRIM(STR(xCountI))) COPY TO (xFile) for valido OR thisform.ximportar_invalidos USE if used(thisform.xalias_salida) select (thisform.xalias_salida) use endif USE (xFile) ALIAS (thisform.xalias_salida) IN 0 EXCLUSIVE ENDPROC PROCEDURE Command1.Click LPARAMETER xCountV, xCountI LOCAL xOK IF THISFORM.automatico OR THISFORM.xobjeto THEN xOK=.T. ELSE xOK=Mensaje_SINO(THIS.PARENT.tx_confirma ,2) ENDIF IF NOT xOK THEN RETURN .F. ELSE =THISFORM.gf.QUERYUNLOAD () IF THIS.PARENT.validar() =THISFORM.procesar_aceptar() xCountV = thisform.cuenta_validos xCountI = thisform.cuenta_invalidos THISFORM.resultado=.T. THISFORM.RELEASE ELSE RETURN 0 ENDIF ENDIF ENDPROC PROCEDURE Command1.RightClick thisform.suspender=not thisform.suspender ENDPROC PROCEDURE Command2.Click =Thisform.loguear ("Importacin cancelada") =thisform.procesar_cancelar () =thisform.gf.queryUnload () =DODEFAULT() ENDPROC PROCEDURE Command2.RightClick p_suspend=IIF(p_dev,1,p_suspend) =sys_m("Suspendo?") ENDPROC "%x.U ;CEVN_Header_DblClickEVN_Header_DblClick5CEVN_Header_ClickEVN_Header_Click9CEVN_Field_DblClickEVN_Field_DblClick3CEVN_Field_ClickEVN_Field_Click1CEVN_Field_WhenEVN_Field_When9CEVN_Field_GotFocusEVN_Field_GotFocus;CEVN_Field_LostFocusEVN_Field_LostFocus ;CEVN_Header_DblClickEVN_Header_DblClick  <5CEVN_Header_ClickEVN_Header_Click F 9CEVN_Field_DblClickEVN_Field_DblClick  3CEVN_Field_ClickEVN_Field_Click  !1CEVN_Field_WhenEVN_Field_When + r9CEVN_Field_GotFocusEVN_Field_GotFocus | ;CEVN_Field_LostFocusEVN_Field_LostFocus UXGRIDXFORMXFORTHISFORMGF COLUMN_COLLTHISneCCODIGO.COD_InsCodigod.cod_inscod_inscodinsPCAtr.AtrAtr.AtrAtrAtrTCBul.BulBul.cod_insBulBulbCDESCR.Descr Descripcin.DescrDescrDescrUTHISFOR_ADD_COLUMNATHISFORMGF SQL_ALIAS leer_grid0sql_crear_columnasG1qqQ1AQAA1AAAAA2QA!2)*)"%U% !B-+TACTUALIZANDO DATOS"CACTUALIZANDO DATOSCa 9T     Ca TaTTC T-C%  TSELECT &xAlias Q (CT CObteniendo datos%C C(CC C C CT-U!XALIASTHISFORMSQL_ACTUALIZAR PAGEFRAME1PAGE1LABEL1CAPTIONSTATUSREFRESHODEYFUNCDEVENTSLEFT PAGEWIDTHWIDTH LOCKSCREENGF SQL_ALIAS XFILE_TMPNEWFILE_LOCAL_TMPSQL_REPOSICIONAR_OBTENER SQL_NOCLOSEGRILLA1 RECORDSOURCE GRI_PREPARAROCOLL COLUMN_COLLTHIS OBTENER_DATOS FILTRAR_DATOS GRI_ARREGLARSQL_REPOSICIONAR_MOVERSTATUS_REGISTROS OBTENER_IDTUXVALTHISFORMCOMMAND1ENABLED%CBienes *Qbienes%Cbultos XQbultos%Catributo QatributoUBIENESBULTOSATRIBUTOH'%Cthis.status_panelbOATUXTEXTTHIS STATUS_PANELTEXT1%Cthis.status_panel_registrosbOTCN%sT %T Registros:CCZUXRECCTHISFORMGF SQL_ALIASTHISSTATUS_PANEL_REGISTROSTEXT!C%C xMarcadosbLnT!COUNT FOR &xEval TO xMarcados T0%Cthis.status_panel_marcadosbO %T $T Marcados:CCZC U XMARCADOSXEVALTHISFORMODSSEL_PUSH_SIMPLESTATUS_PANEL_MARCADOS_EVALTHISSTATUS_PANEL_MARCADOSTEXTSEL_POP_SIMPLEC%C xProgresobLJTT0%Cthis.status_panel_progresobO%T $T Progreso:CCZU XPROGRESOTHISFORMODSSEL_PUSH_SIMPLETHISSTATUS_PANEL_PROGRESOTEXTq%+B- jTTCUXPAGINA XPAGINAVIEJATHISFORM CAMBIO_PAGINA UXPAGINA XPAGINAVIEJA!T-CUTHISFORM STATUS_PANELGF QUERYUNLOAD%T%u T Ca %.T   $T  T  % % 9T      'T     /T     /T     C.T   M3T4T9T  %X.T$T $T$TUTHISFORM PAGEFRAME1WIDTHLEFTSBVISIBLETOPHEIGHTREFRESHODEYFUNCDEVENTSCOMMAND1COMMAND2PF_ESPACIO_ABAJOPAGE1GRILLA1 PAGEHEIGHT PAGEWIDTHLABEL1 BTEXPORTAR CUTHISABRIR_ARCHIVOS C C%CxanchobNRT%CxaltobNT  TC%T C%% % T  T   % %  gT   T   % TC  TC %C)(?C%C yTC%C TC%C TC%C xColl_SetbOTT CTa TaTT aT!aBT"C Data_Statussys_clases_Tablas.prg#U$ XALIAS_SALIDA XCOLL_SETXANCHOXALTOSETSTHISFORM ANCHODESEADO ALTURADESEADAXWIDTHXHEIGHTTHISWIDTHHEIGHTSTATUS_PANEL_NUM STATUS_PANELSBPANELSGFSTATUS_PANEL_CANTIDADNITCOUNTADDSTATUS_PANEL_REGISTROSSTATUS_PANEL_MARCADOSSTATUS_PANEL_PROGRESO COLUMN_COLL SQL_NOCLOSESQL_CREAR_COLUMNASVAL_COLUMNASCREADASRESIZE AUTOCENTER TMINICIALENABLEDVAL_CARGAPENDIENTEODS SQL_ALIAS%C-%C C GB-  CCT a  B-U THISFORMVALIDARTHISPARENT TX_CONFIRMA MENSAJE_SINOPROCESAR_ACEPTARGF QUERYUNLOAD RESULTADORELEASEC CUTHISFORMGF QUERYUNLOADC SuspenderUSYS_M sql_refresh0 set_enabledeabrir_archivosstatus`status_registrosstatus_marcadosstatus_progresot pagina_activa cambio_pagina` QueryUnload Resize LoadRInitCommand1.ClickCommand2.Click3Command2.RightClickr1q1qA!112B2!AAAr111A3q12!A!AAA3qq1A3qQ11QAA2qqA11AAA3qAA11AAA2qqaqQB232QRARAARQqAAA2ARAAAB221 AAbA1ABbA1ABcAa1AAQAQAQA1Aa"21qAqA42a1(>n4+685SD:KD VU r mc u m o  r1 :_.2) ( @ 333333333333@#3333333333334#3333333333333#333334C33333#3333303333433333033330333334C3333@#33333333333#33333333343333433330333323333@#33303333#333@C334333 #33033333@#3333#33343330333@#3@C3#33334333303333@#333#33433033@#4"??  f    !  ^200 %C00 %h( @ uu3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333( @ uuٿٿٿٿٿٿٿٿٿٿٿٿٿٿʦʦʦʦʦʦٿٿٿٿٿٿٿٿٿʦ333ʦʦʦʦʦʦʦʦ333333ʦ333333333zYYYYYYYYYYYYYYYYYYYzzYzzzzzzzzzzzzzzzzzzzYzYzYzYYsssssssssssssssssssssssssssssssssssssssssṣsssssssssssssssssssṣs@@̣̣̣̣̣̣̣̣̣̣̣̣̣̣̣@@ṣ̣wwẉ̣̣wwẉ̣ʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦʦٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿٿ( @ uuڶڶڶڶ۷۸ܻܺݽݽ߿ʩԬԬԬԬ֮װزٴٶڷܺݼ޿޿ͫ4/0¡ĦŨƪǫŨ3235,.ުުޫޫޭޮޯޯ޲޳޴޵޶޷Ạ3223&)xaybydze{g|i|i}kmopqsu|301d(nK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(p4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ+sW֬%rX֬,vRժSժ.skkkkiiiiiiiihhhhhhhv0snnnnllllllllkkkkkkkv3‘xqqqqppppppppooooooou3Ĕv6٨6٨5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛6צ6٨v)Ò#Ϝ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx Κ$Ϝ!Ɛ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐԫԬԬԬԬԬԬԬԭխխխխխˤӪӪԫԫԫԫԬԬԬԬխխխխȢӪӪԪԫԫԫԬԬխխխծ֮֮ĝԪԫԫԫԬխխխծծ֯֯֯֯œ֯֯֯װװװװװײسسسٴٴ뾘װװسسسسٴٴٶٶٶٶڷڷ껖۸۹۹۹ܻܻܻܻݼݼ޾޾޿޿跒ݼݼ޾޾޿޿޿綐岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌( @ uu ~ڶڶڶڶ۷۸ܻܺݽݽ߿ʩԬԬԬԬ֮װزٴٶڷܺݼ޿޿ͫ 񶶶4/0¡ĦŨƪǫŨ323I5,.ުުޫޫޭޮޯޯ޲޳޴޵޶޷Ạ322򗗗l3&)xaybydze{g|i|i}kmopqsu|301d(nK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(p4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ+sW֬%rX֬,vRժSժ.skkkkiiiiiiiihhhhhhhv0snnnnllllllllkkkkkkkv3‘xqqqqppppppppooooooou3Ĕv6٨6٨5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛6צ6٨vp)Ò#Ϝ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx Κ$Ϝʖ !Ɛ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐԫԬԬԬԬԬԬԬԭխխխխխˤּ2ӪӪԫԫԫԫԬԬԬԬխխխխȢӧӪӪԪԫԫԫԬԬխխխծ֮֮ĝݲԪԫԫԫԬխխխծծְ֯֯֯œ޴ְ֮֮֯װװױױײزسسشش뾘"ױױزززسٴٴٵٶٶٶڷڷ껖$۸۹۹۹ܻܻܻܺݼݼݾ޾޿޿跒&ݼݽ޽޾޿޿޿綐(岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌+(0` %uuƣƣƣƣƣƣƣƣƣƣǤǤǤǥǥǥǥȧȧȧȧȧȧƟڶڶڶڶڶڶ۸۸۸ܺܺݼݼݼ޾޾ʩĝԫԫԫԫԫ֯֯֯ײײٴڷڷڷܺܺݼ޾޾޾޾ͫxxxĚФФФФҦҦҦԫԫԭ֯֯ײٴٴڷܺܺܺݼ޾аxxx4/0귏¢¢¢ĦŨƪƪƪɭŨ3226+.ުުުުެެެޭޮޮޯޯޯ޲޳޳޴޵޵޶޶޸Ạ3226+.Ӟ~ϛ{ϛ{Ϝ}Ϝ}Ϝ}ϝϟϟϟϠϠϢϢϣϣϥϥϥϧϧϧխ3223&)hxaycycyc{f{f{f|i|i|i~l~l~looorrsuu|301²2sn\-k)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iJd'nVҨK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ&pG2sXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ)l,p]ׯ)i&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q)i]ׯ'n+sX֬&q&qX֬&p,vRժRժ$t,{-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē&z.skkkkkkiiiiiiiiiiiihhhhhhhhhhhv*0smmmmmmllllllllllllkkkkkkkkkkkv.2roooooooooooooooooommmmmmmmmmmv22xrrrrrrooooooooooooooooooooooov3Ó3Óv6٨6٨6٨5ҡ5Ν5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5̛5̛5̛5̛5̛6צ6٨6٨v2ƕ/ē\.ԣ/ē/ē)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i:}.Ѡ.ԣS-Ɣ+ē$Ϝ Κ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx"Ȕ Κ$Ϝ#Ï!ƐƐ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘HxƐƐ`````Ş̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̥̥̥ƟM{````Ȣԫԭԭԭԭԭԭԭԭԭԭԭԭխխխխխխխխ̤ǟԫԫԫԫԫԫԫԫԫԭԭԭԭԭԭխխխխխխȢŜԫԫԫԫԫԫԫԫԫԫԭԭԭԭԭԭԭխխխխƟ›ԫԫԫԫԫԫԫԫԭԭԭլխխխխխխ֯֯֯ž›ԫԫԫԫԫԫլխխխխ֯֯֯֯֯֯֯֯֯֯›쿘լլլլխխ֯֯֯֯֯֯֯֯֯زززززز֯֯֯֯֯֯֯֯زززززززززٴٴٴٴ쿘껖ززززززززٴٴٴٴٴڶڶڶڶڶڶڶڶ껖鹔زٴٴٴٴٴڶڶڶڶڶڶڶڶܺܺܺܺܺܺݼ鹔跒۸ܺܺܺܺܺܺܺܺܺܺݼݼݼݼ޾޾޾޾޾޾跒綐ݼݼݼ޾޾޾޾޾޾޾綐洎洎岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌(0` %uuƣƣƣƣƣƣƣƣƣƣƤǤǤǥǥǥǥȦȦȦȧȧȧŠڶڶڶڶڶڶ۷۸۹ܻܺݼݽݽ޾߿ʩĝԬԬԬԬԬ֮֮װױزٴٶٶڷ۹ܺݼ޾޿޿ͫ;aaa~Ȅッ傂偁∈iiiĚФФФФѥҦҧөԫԭկְֱسٴڷ۹ۻܻܼݾаlll돏⍍卍卍㑑ጌmmm5 񶶶4/0귏¡ãĦŨƩƪǫɭŨ323I5,.߫ުުުޫޫެޭޮޮޯޯް޲޳޳޴޵޵޶޷޸Ạ322򗗗l6*-Ӟ~ϛ{ϛ{ϛ}Ϝ}Ϝ~ϝϞϟϟϠϠϢϢϣϤϥϥϥϦϨΨխ4223&)hxaybycydze{e{g|i|i|i}k~lmoppqrsuu|301²1rn\-k)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i+jJd(nVҨK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(pG4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ)l,p]ׯ)i&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q)i]ׯ&o+sW֬%r%rX֬%p,vRժSժ$t,{-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē&z.skkkkkkiiiiiiiiiiiihhhhhhhhhhhv*0snnnnnnllllllllllllkkkkkkkkkkkv.2sppppppoooooooooooommmmmmmmmmmu23‘xqqqqqqppppppppppppooooooooooou3Ĕ3Ĕv6٨6٨6٨5ҡ5Ν5Ν5Ν5Ν5Ν5͝5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛5̛5̛6צ6٨6٨v2ƕʹ0ē\.ԣ/ē/ē)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i:}.Ѡ.ԣS-Ŕp)Ò#Ϝ Κ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx"Ȕ Κ$Ϝ#Ïʖ !ƐƐ##뽖쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐл```^^Şˤˤˤˤˤˤˤ̤̤̤̤̤̤̤̤̤̤̤̥̥̥ƟM{````$-.ʢԫԬԬԬԬԬԬԬԬԬԬԭԭխխխխխխխխˤּ2ǟӪӪԫԫԫԫԫԫԫԬԬԬԬԬԬխխխխխխȢӧŜөөөӪӪӪԪԫԫԫԬԬԬԬԬԬԬխխխխƟӯ›ӪӪӪԪԫԫԫԫԬԬԬլխխխխծծ֮֮֮ĝݲԪԫԫԫԫԫԬխխխխծծծծְְ֯֯֯֯œ޴쾘ԬԬլլխխְְְְ֮֮֮֯֯ױױױױײײ߷ 뽖ְְ֮֮֮֯װװױױױױײزسسسشششٵ뾘"껕ױױرززززسٴٴٴٵٵٶٶٶٶڷڷڷڸ껖$鹓سٵٵٵٵٵڶڷڷڷڷڸڸ۸۹ۺܼܺܺܺܺ鹔%跑۸۹۹۹۹۹ܻܻܻܻܺݼݼݼݽݾ޾޾޿޿޿跒&結ݼݽݽ޽޾޾޿޿޿޿綐(泎洎)岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌+GIF89adddDDD!,x-Ң{8oDŽF&晪Cu1OqtĢntX2@d"Z5^5׍Na-I.hznqʌb`BX(QXP;GIF89a DDDddd||\\44! ,"dih inL +t}羽,âP$t: 2Ocra況ThotL4ϸ|d_~|{~"duwn |uybsrvigk3P^[`&mCT'GJfĴLDv˚!;GIF89aeddceedddcddeccEEEDDD! ,PI8\R"phb%o,wkU8r$pGsJ%(êy-In[i ƷNc|~}t: rt_9{{+%'z%4;GIF89a DDDddd||\\44! ,"dih l"°lr PqC0qb(` ;v*Vd h,ωFjCv~__kx|z~bKs2_i{u$Kq#dgFiY]_RnlITw;b+>!;GIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;0# PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _0RK0LEYVE 758075476 1 53+ 1.000 0.000 0.00080000.000 F   0 10 20T1212 FF T F WINDOWS _0RK0WW4YE 9 0 35938.000 0.000 F FFF F WINDOWS _0RK0LEYVG 9 1 3334.000 0.000 F FFF F WINDOWS _0RK0LEYVH 9 4 2500.000 0.000 F FFF F WINDOWS _0RK0LEYVI 9 7 4688.000 0.000 F FFF F WINDOWS _0RK0LF62X 75807543017 01 7083.33311250.00028854.16756354.167 2 0 T F 1 T 1 TF3 0F WINDOWS _0RK0LON2X 758075659 8 0343750.000 5520.833 1875.00014166.667 4 C -1 -1 -1 -1 -1 -1 5 0 10 1 T F 0 0 0 1 TF3 0F WINDOWS _0RK0LPMMJ 758086215 8 0643750.00020208.333 1875.00010416.6679 7 C -1 -1 -1 -1 -1 -1 8 0 10 1 T F 0 1 0 1 TF3 0F WINDOWS _0RK0LQKR9 758086219 8 0:43750.00031145.833 1875.00010416.667= ; C -1 -1 -1 -1 -1 -1 < 0 10 1 T F 0 1 0 1 TF3 0F WINDOWS _0RK0LQRQ6 758086221 8 0>43750.00042083.333 1875.00010416.667A ? C -1 -1 -1 -1 -1 -1 @ 0 10 1 T F 0 1 0 1 TF3 0F WINDOWS _0RK0LQRQ7 758086224 8 0B43750.00053020.833 1875.00010416.667E C C -1 -1 -1 -1 -1 -1 D 0 10 1 T F 0 1 0 1 TF3 0F WINDOWS _0RK0LQY1Z 758086228 8 0F43750.00063958.333 1875.00010416.667I G C -1 -1 -1 -1 -1 -1 H 0 10 1 T F 0 1 0 1 TF3 0F WINDOWS _0RK0LXE3E 758075836 8 0J39166.667 5625.000 1875.00014062.500 K C -1 -1 -1 255 255 255 L 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0LXSMN 758075920 8 0M39166.66720208.333 1875.00010416.667 N C -1 -1 -1 255 255 255 O 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0LXWOO 758075922 8 0P39166.66731145.833 1875.00010416.667 Q C -1 -1 -1 255 255 255 R 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0LY0K2 758075924 8 0S39166.66742083.333 1875.00010416.667 T C -1 -1 -1 255 255 255 U 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0LY3WS 758075926 8 0V39166.66753020.833 1875.00010416.667 W C -1 -1 -1 255 255 255 X 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0LY8D0 758075927 8 0Y39166.66763958.333 1875.00010416.667 Z C -1 -1 -1 255 255 255 [ 1 10 1 T F 0 2 0 1 TF3 0F WINDOWS _0RK0MPAO6 758076528 7 438854.167 5000.000 2500.00070000.000 -1 -1 -1 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _0RK0MQJLS 758076560 6 38958.33319895.833 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0MQMXY 758076562 6 38958.33330833.333 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N0XLL 758076818 6 38958.33341770.833 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N15J0 758076823 6 38958.33352708.333 2291.667 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N1C2C 758076827 6 38958.33363645.833 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N1OW5 758076838 6 43437.50030833.333 2500.000 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N1OW6 758076838 6 43437.50041770.833 2500.000 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0N1OW7 758076838 6 43437.50052708.333 2500.000 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0WXGNB 758086329 8 0\ 1666.667 6875.000 2708.33366250.000 ] C -1 -1 -1 -1 -1 -1 ^ 0 16 1 T F 2 2 0 1 TF3 0F WINDOWS _0RK0WZT88 758086388 7 443333.333 5000.000 2604.16770000.000 -1 -1 -1 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _0RK0X0K6T 758086407 6 43437.50019895.833 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _0RK0X0YBV 758086416 6 43333.33363645.833 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS 23 16.000 8.000 12.000 9.000 4 0 _ 0 10 WINDOWS 23 16.000 8.000 12.000 10.000 4 0 ` 1 10 WINDOWS 23 25.000 9.000 19.000 57.000 5 1 a 0 16 WINDOWS 25 bc F e! Courier New:#winspoolHP DeskJet 692CLPT1:HP DeskJet 692CXC od,,LetterDINU"4$H$$$$DRIVER=winspool DEVICE=HP DeskJet 692C OUTPUT=LPT1: ORIENTATION=0 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=300 COLOR=2 YRESOLUTION=300 TTOPTION=2 COLLATE=1  graphdb.gen label  Courier Newdato1  Courier New"@Z"dato2  Courier New"@Z"dato3  Courier New"@Z"dato4  Courier New"@Z"dato5  Courier New"@z"xlabel1  Courier Newxlabel2  Courier Newxlabel3  Courier Newxlabel4  Courier Newxlabel5  Courier Newxlabel6  Courier Newxtitulo Arial Courier New Courier NewArialdataenvironmentName = "Dataenvironment"  ( @xyxqffpvof~`````~w~wwppwwwwwwwww??GIF89a($̵fsssfff33!,($ dihl.+s]GR3D` `H4\6Db!&#+v,`7py㐎0G3y N@v D+r m) qM0"[  Y "£(ȟ˰[% Ѡ or[f_>d~J9…:\q'Ʈ0Z8 2  ӈ2-j̓‰4=jqQN`A8HBլnF8tçaI=2nʝK!;GIF89aǽDZsrx!,'dihW뾰]I8Ii:a LIJ `&5d g ނBBY0I"I^ztB h?PB<=?`wB mBL={w+%!;GIF89aދܢJ5׻׬kڧ%̓eH;s/U ߐ5!,`'dieLӒg@0D8v˹P 6VW(02xqĥd9,2^yUA6!tvX B5pf C "NC"LMAL"ghfjsTͬj#ڸ p«%&߬ &H{P!;GIF89aw!,{{1BJZcs))1cs{Z!1{!)1)B)111R1119s99BcBBJJJJJJJRRRZRZRRRRZsZc{ccksksssssss{{{{{{΄֌Ό֔֜֜Υޥ֭ޭ筽ֵ޽%D|! ҄J.Z1CrX 2bJBntYF+^&Pi󦊕*Z ajd_8X}n }AV8pۉ^|wRƴ}UL];^䚿>Ʀ E `8\M)X.Vs] O@z'`*gn2@1N6 -UX*.Pv{`B諦_@h@FHiLDY @) P0 7KyeT`<70 T@J[X&b_`)1e))X_EIS[fA28xb[Rي)wH6rb[ufRs{`ZlL o^9MR jt Vt= (Vt!Isic2\[׷Q\ObVݚύi\kuZ5v@ cl:Pnd<'CV bsrIVپN4%@{{T0\2w @nN--HAd8vi)ۊ,XE׷ !S=lnnH󘙙Y+I_Nj088$6z6Q;n7,wD͢@xؽq0D8s cφ/KպqIENDB` ( @""0"""#"""#0"""#0""3033C0R""#R""#0R""#3R""#3R""#32"""35"""3R""#5"""00R""#5"" """05""#"""35""#0"""305""#3"""305"""3""""305"""""""""30R""""""""C0R"""""""$D05"""""""DD3R"""""UDD05UUUUUDDC5EEETTD04TUED33333?? ( @533<#842UD(Q+L2T7G+"W,,K5(R7)G84R;0e11HHrL UA+UU+I@7YE9fF$rT+eH8sM>eQ6ff3;;N5FF;\l3ffCCA]K@^QC@PYUUUaIBpODeRFvXGiVTpXTffLsbV]]uyZifffygdzslxftVdyR>Q)j4_ hn issc#z"{#y:NMSTfTsZ[hgdoasisgiryrdhccxgpkwxtuxG}FtVtdvv"ƌ-ր+В-օ6Ē3<_YooaڍBܒK׎QژTNߠ]\ԍlӔnÀЮnds{u-lEwu~#y' [ipMor8 *;MNmD` 1 +IsņΐҖɓњμع͠ңݽ鵃⻑ŪҤǹұ˭ҮĶٶόי˒ӘܦکƎȒĕљѝē̛ѫҦ֥̱׺hE1111111111ѿ111111111111111ѭ[1SJvv1\tyxx1Uc1t;>Booow1tqc>By1vcc>Bwv1yEa>>wwo1DEa>E1EEE>AZo*1ooE>\tG1^*I,1Aap>**21oae>I*1oBcET1^BEtO11^B_1/1t1娈K1SPS\܈111ڋ1W1111?h(   %-'";#3$4&6>T/>H]L`M`>M:H9GESBOUcJVWcOZT^[cdi]az   ! "&$'+).*(":'#;#;51H=R:N>S@U9I1?6DM`Ob;HEQFRUaOZVaQ[V`W`\e\_y^a{eh]_qZ\m_armmmjjjeee\\\JJGGJG0% =LJG'))))%GG)))$$))$K))),))#JG))$,))'CJ.)$,.$)G))$,).$)>G)),).$)))),.)G))).)))))$$"$)))))))))))))))))))1)ǁ))! !a)):))*GIF89a @b 2h'o XhLޤE^Oa;~MhZ.vRle@< YP2yȀ>ݿ8S)q}vb=UuArqbݻ{\V YT^K,säVHC5|˙DZ]dPIe~aػ#k4uJHf!ayB}L>yYTH(iHV(p*k0|&f8z6xjX5{}~Fa/p/v6}̺^u[[+sÐ`cVפ@AWWD׫ Y@{;D:O _#o\S<\TW˝&rƠ>UIKW1r X$dP=,m!, H*\ȰH#hʕ%|2joDE2E` 0"LIb=-` %8(.h L'OՂ"ShRKdqډɕ7s޻ P'!U* 3iJU߿eTT(𥑝\) `-80 8.KX@A8C𰑃χi~x `w vC!lQ΄w!P ݼCJ{*]11pAh=yr3rT='a^PF PaxDKv T@ 3ՎA  #ap3vcqp@&isL o}4? y!:RC#]X`A7* 5 5GX@ xDAζ0Fae [VD`QGX TZ %91b8b TMX<o2XjՑ@X αZkDm7- Վ3@T.† rQP`2#d@'pB3]QB$hV`H",0 4ls; ( @ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @`H HHH&&&H&&&H&&&&P&&&P//&&&&////&&&//////&&&///////&&&&////////////// /  /& w& www/& ww/& w/&wwwwww/wwwwwww///&wwwwww/w/////&//////////////??00(0`fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff______RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNNNN~MLNNfff__ŕNNfff__ۿٽټػ׻׺׸շնյԳӳӱұүѯЮЭЭϬΪΩ̦̦ͩͨͨͧDžRRfff__ھڽټػ׹ֶָֹյԴӳӲұѰѯЮЭЬЫϫΫΩ̦ͨͨͨDžRRfffihkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkͨͨƅRRfffihڿھٽؼػ׹ַֹնԵӳԳӲұүѯѮЭϭϫΫϪΩΩąRRfffihڿٽټغ׹׸ַָյԴԳӲӲҰѯѮѮЬЬϫΪΩÅRRfffihڿپؽػغ׹׸շնԵӳӲҲҰѯѯЮЭЬϫϫÅRRfffihkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkЭϬRRhffihھٽټػغ׹ַָյԴԳӲҲұѯѮЮЭĿRRfgdihڿپٽػػ׺ַָնԵԴӲҲұҰѯѮRRbibtmڿھٽؼػ׺ָָնյԴӳӲӱҰѯRRffftmӣұұRRffftmټػغ׺׸յԴӳӲRRfff{qڿٽٽػغֶյԴԴRRfff{qڿڽٽؼַָնյRRffftڣߣߣߣߣֶַRRffftۿ۾ػغֹ׷cbffftٽٻغ׹ihffftڿٽټغihfffɇy⣣ߣߣپټihfffɇyۿھihfffɇyihfffŒ{ihfffŒ{ߣߣߣysfffŒ{ysfff٘ysfff٘ysfff٘kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkysfff٦ysfff٦ysfff٦ysfff㭇kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkysfff㭇ysfff㭇ysfff粉fff粉kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkƆtmihfff뷐kkkkkktmTzpfih뷐kkkkkkkkktmŕT111ڑCih뷐kkkkkktmөTT1ڑCihŕkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk{qfTה[ihŕkkk{qfښcysŕ춃ttysŕ涃tٷihŕٷٷөө̦̦̦èè㺡㺡㺡㺡㺡ززززӦӦʤʤʤʤɘt????????????????????????????????????bb???  ( @ rrttuz{|}~~"&&)- $')-159>BFKPT!$'*.16:>CFKQUZ_%(*/26;?CGLQVZ_chy{{}~DGLRVLRW[_W\`di`einsjnsx}sx}%`:GkQR:'  * sys_procesando Consultando% .t.T FILTRO:   T TC 5proc_stka %LL>d d d ,%C t_desc_consbN T d .>   ) sys_procesando ProcesandoUXFAST XFILTRO_FIJOXMARCAXMODELOXCOD_PROXTEXTOXINCLUYEXSOLO_DESCRIPCIONXCLASENDESC XDEPOSITO SP_MENSAJESYS_PROCESANDOP_VE_FILTRO_DEP_BUS BUSCAR_ARTSPROC_STKP_MUCHOS_ARTICULOS_IVAPRECIO1IVAPERPRECIO2PRECIO3ALLP_MUCHOS_ARTICULOS_DESC T_DESC_CONSqcA4T<AaA108mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _289104VNG 930121436N D_& 1 COMMENT RESERVED  WINDOWS _28J0OS230 930765988 {"\"q 3.$]$ COMMENT RESERVED z WINDOWS _28J0OX0QD 930766026\l#Nk COMMENT RESERVED  WINDOWS _2820P8IZX 932409947*!!k$'6U'<% WINDOWS _2890YR69I 932409947!#(%{D$ WINDOWS _2890YR69M 932409947&M&49 WINDOWS _289103ORJ 932409947 ? : WINDOWS _28D0MCYSZ 932409947F 8&\y WINDOWS _28D0N9BWT 932409947\S<C WINDOWS _28D0O2NM6 930444998$E~Q & COMMENT RESERVED $$ WINDOWS _27V0YFQD6 932543788 !=l&/!wHqنc WINDOWS _27V0YKEGH 932543788&I WINDOWS _27V0YKEGJ 930046268%8,%' b WINDOWS _27V0YKEGQ 930046268#X ̡ WINDOWS _27V0YKEGT 930046268J&l(1(? WINDOWS _27Z14JMCZ 932543788K\  WINDOWS _27Z14JMD1 929675772J%(i% WINDOWS _281171C3R 929673238s)se WINDOWS _2820MTXF2 929673238*& " WINDOWS _28211QOWW 932543788W%} MWS< WINDOWS _27K142BTW 932543788O %%'Q*R'* WINDOWS _2821AGWVN 932543788$ $ # '\<# WINDOWS _2821DV540 932543788##v#'#" WINDOWS _2860UG059 929919368"""!H"" WINDOWS _27K142BTW 9325437886"$"y!!j,m qC! COMMENT RESERVED O& WINDOWS _2810OI7121022536020n!}Hx8 COMMENT RESERVED  WINDOWS _27K142BTW1022536077u3%p||_lQ WINDOWS _27K14K07Y 929605665$  WINDOWS _27K14K080 928421610  WINDOWS _27K14K081 930846392 OI Q COMMENT RESERVED A WINDOWS _27L0HJQHV1022536139&?))mY) COMMENT RESERVED  WINDOWS _27K1402KD1255127114fr|eP] B COMMENT RESERVED 3  WINDOWS _27K13O8TO1255127115,PE+ ]#  WINDOWS _2820RSR6A1022577720j>4XC0x COMMENT RESERVED  WINDOWS _28J0TSY2M1119846093v /x& N( WINDOWS _28J0UATAR1119846093-.Y6KT0L WINDOWS _28J0UATAU1119846093) !? WINDOWS _28J0UATAW1119846093 m7g) / WINDOWS _28J0YZ2Q91119846093% om GL& WINDOWS _2970PZCZV 932471019Z\ . WINDOWS _2970PZCZW1119846093 Z j. WINDOWS _29F0RIB951119846093k |& ]F COMMENT RESERVED | WINDOWS _2810O79GP1347313798DlXλ COMMENT RESERVED +VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 tc_campoPixelsClass4 containertc_campotc_form_parametrosPixelsClass1customtc_form_parametroscustom!Arial, 0, 9, 5, 15, 12, 32, 3, 0 tc_formPixelsClass1formtc_formformtc_form_parametros_grid1Pixels1!Arial, 0, 9, 5, 15, 12, 32, 3, 0  tc_ventanasPixelsClass2formClass tc_ventanas tc_ventanasClass.OLEObject = C:\Windows\system32\MSCOMCTL.OCX ~PROCEDURE NodeClick *** ActiveX Control Event *** LPARAMETERS node this.Parent.ven_activar(node.key, node.tag) ENDPROC TV olecontrolformcustom olecontrol!Arial, 0, 9, 5, 15, 12, 32, 3, 0 tc_form_parametros_pageframe paginas tc_form_panelesPixelstc_form_parametros_pageframeAPROCEDURE Init this.paginas = NEWOBJECT("Collection") ENDPROC customtc_form_parametros_pageClass8tc_formIL1Top = 1 Left = 176 Height = 56 Width = 80 Anchor = 260 Picture = bmp\salir.gif Caption = "Salir" TabIndex = 5 Name = "Command1" 0PROCEDURE Click thisform.ven_cerrar ENDPROC 1IL1timertc.vcxcustomHTop = 0 Left = 0 Height = 552 Width = 240 Anchor = 15 Name = "TV" tc_form_paneles.OLEObject = C:\Windows\SysWOW64\MSCOMCTL.OCX tc_form_panelestimer7gf Objeto Grilla_Formato sql_alias sql_codigo sql_alias_head sql_grid_set_id ctrl_subtipo Especifica que subset de datos est mostrando /PROCEDURE Click thisform.exp_excel ENDPROC formtimer olecontroloopar_main *actualizar *ven_agregar *ven_quitar *ven_activa *ven_activar *get_parents *ven_reset custom=Top = 468 Left = 312 Height = 37 Width = 49 Name = "IL"  olecontrolTBS opar_gr tc_form_parametros_graficotc_form_panelesCommand1oparametros Objeto de parmetros usados para crear el form y su control. tc_oventanas Objeto que controla las ventanas hijas. *ven_cerrar *tb_asignar_iconos Pixelstc_campoPlusimageimagetc_campoLabellabel.OLEObject = C:\WINDOWS\system32\mscomctl.ocx Pixels tmr_cerrarPROCEDURE Click LOCAL xCS as MSOWCD.ChartSpace , xCH as MSOWCD.ChBorder xCS = thisform.msgr xCH = thisform.msgr.Charts(0) DEBUG SUSPEND ENDPROC ILTBCFPROCEDURE Init this.page_objects = NEWOBJECT("Collection") ENDPROC PROCEDURE Timer this.Enabled = .f. thisform.LockScreen = .t. oDeyFunc.DEVENTS(.T.) thisform.pasar_paginas thisform.LockScreen = .f. ENDPROC  tmr_iniciotimer~AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Texto" Height = 17 Left = 3 Top = 5 Width = 34 Name = "Label" labeltc_campoTTop = 0 Left = 403 Height = 36 Width = 100 Anchor = 8 Align = 0 Name = "TBS" .OLEObject = C:\WINDOWS\system32\mscomctl.ocx .OLEObject = C:\Windows\SysWOW64\MSCOMCTL.OCX 15tc_imp_exp.vcx1PROCEDURE Click thisform.exp_crystal ENDPROC  olecontrolErasePage = .T. PageCount = 1 Anchor = 15 Top = 48 Left = 12 Width = 504 Height = 325 Name = "Pageframe1" Page1.Caption = "Page1" Page1.Name = "Page1" form_controles.vcxTBC pageframeTBSgridClassdTop = 479 Left = 228 Height = 25 Width = 24 Enabled = .F. Interval = 100 Name = "tmr_inicio"  commandbuttonyHeight = 20 Width = 24 page_caption = ("Pgina") page_objects = .F. page_name = .F. Name = "tc_form_parametros_pf" 4opar_gr = .F. Name = "tc_form_parametros_grafico" WTop = 12 Left = 48 Height = 13 Width = 37 Caption = "Command1" Name = "Command1" tc_form_paneles.TBCYAnchor = 8 Height = 23 Left = 75 ReadOnly = .T. Top = 2 Width = 100 Name = "Text" Texttextboxtextbox containermPROCEDURE tomar_control LPARAMETERS oForm as tc_form_grid of tc.vcx, xNOGR DODEFAULT(oForm, .t.) ENDPROC BHeight = 495 Width = 503 DoCreate = .T. Name = "tc_form_grid"  olecontrol commandbuttontc_formAOLEObject = C:\ARCHIV~1\ARCHIV~1\MICROS~1\WEBCOM~1\11\OWC11.DLL Command3KTop = 36 Left = 0 Height = 276 Width = 481 Anchor = 15 Name = "MSGR" tc_objeto_ventanas olecontrol$Top = 426 Left = 396 Name = "GF" tc.vcx pageframe Pageframe1tc.vcxHeight = 292 Width = 477 DoCreate = .T. AutoCenter = .T. Caption = "Form" Icon = ("bmp\"+p_icono_sistema) oparametros = .F. tc_oventanas = .F. Name = "tc_form"  olecontrolPF container commandbuttontc_form_paneles olecontrolOHeight = 21 Width = 30 paginas = .F. Name = "tc_form_parametros_pageframe" .OLEObject = C:\Windows\SysWOW64\MSCOMCTL.OCX  olecontroltc_form_panelestc_form_parametros_grid tmr_cerrartimer pageframeClass|ErasePage = .T. Anchor = 15 Top = 36 Left = 0 Width = 636 Height = 432 Name = "PF" BORRAR_PAGE.Name = "BORRAR_PAGE" tc_form_panelestc_form_graficotc_form_graficoGFtc_form_parametros_gridCommand1Anchor = 8 Picture = bmp\mas_16.gif Height = 16 Left = 177 MousePointer = 15 Top = 5 Width = 16 ToolTipText = "Haga click para ver el importe detallado." Name = "Plus"  tc_form_grid.OLEObject = C:\WINDOWS\system32\mscomctl.ocx tc_form_grid.Container1SBTop = 1 Left = 2 Height = 56 Width = 80 Anchor = 260 Picture = bmp\preview.ico Caption = "Imprimir" TabIndex = 3 Name = "Command3"  commandbuttontAnchor = 260 Top = 390 Left = 108 Width = 258 Height = 59 BackStyle = 0 BorderWidth = 0 Name = "Container1"  olecontroltc_form_paneles!Arial, 0, 9, 5, 15, 12, 32, 3, 0  tc_form_gridPixelsClassfTop = 312 Left = 408 Height = 25 Width = 72 Anchor = 12 Caption = "Command1" Name = "Command1" tc_form_parametros_grafico tc_form_grid%Top = 413 Left = 14 Name = "oEXP" timertc_form_graficogrilla_formatogf = .F. sql_alias = ("") sql_codigo = ("") sql_alias_head = ("") sql_grid_set_id = ("") ctrl_subtipo = 0 Name = "tc_form_parametros_grid"  commandbutton commandbuttonMSGRTTop = 0 Left = 536 Height = 36 Width = 100 Anchor = 8 Align = 0 Name = "TBS" tc.vcxgridtc_form_graficocustomTBC Container1 tc_form_grid commandbuttonbTop = 60 Left = 12 Height = 25 Width = 37 Enabled = .F. Interval = 100 Name = "tmr_cerrar"  tc_exp_excel olecontroltc_form_parametros tc_form_gridtimerTBS;Top = 300 Left = 0 Height = 37 Width = 49 Name = "IL" HTop = 0 Left = 0 Height = 36 Width = 384 Anchor = 10 Name = "TBC" 0PROCEDURE Timer thisform.ven_cerrar ENDPROC Classtc_form_grid.Container1oEXP tc_form_gridtc_form_grid.Container1 olecontrol commandbuttonHTop = 0 Left = 0 Height = 36 Width = 536 Anchor = 10 Name = "TBC" EPROCEDURE Timer this.Enabled = .f. thisform.ven_cerrar ENDPROC tc_paneles.vcxtc_form tc_form_grid.OLEObject = C:\WINDOWS\system32\mscomctl.ocx  tc_form_gridcustomoExpCtc.vcxform olecontrolHTop = 0 Left = 0 Height = 36 Width = 293 Anchor = 10 Name = "TBC"  olecontrol olecontrol tc_form_gridtc_form_parametros_pagecustom&Top = 431 Left = 74 Name = "oExpC" customtc_imp_exp.vcxtc_exp_crystal.OLEObject = C:\WINDOWS\system32\mscomctl.ocx GTop = 474 Left = 0 Height = 21 Width = 503 Align = 2 Name = "SB"  tc_form_grid olecontrol olecontrol.OLEObject = C:\WINDOWS\system32\mscomctl.ocx  tc_form_grid olecontrol olecontrol olecontrol'page_caption page_objects page_name Pixelstc_form_grafico commandbuttontc_form_grafico!Arial, 0, 9, 5, 15, 12, 32, 3, 0 .OLEObject = C:\WINDOWS\system32\mscomctl.ocx timer tmr_cerrarCommand1PixelsGrid1 olecontrol]Anchor = 15 DeleteMark = .F. Height = 290 Left = 1 Top = 2 Width = 494 Name = "Grid1" TTop = 0 Left = 384 Height = 36 Width = 100 Anchor = 8 Align = 0 Name = "TBS" custom olecontrol commandbuttonClassformEHeight = 465 Width = 633 DoCreate = .T. Name = "tc_form_paneles" custom containertc_form_grafico olecontrol=Top = 348 Left = 444 Height = 37 Width = 49 Name = "IL" 0PROCEDURE Timer thisform.ven_cerrar ENDPROC  tc_form_gridXHeight = 339 Width = 484 DoCreate = .T. AllowOutput = .T. Name = "tc_form_grafico" *gr_crear_grafico tc_form_graficoTop = 1 Left = 89 Height = 56 Width = 80 Anchor = 260 Picture = bmp\excel.gif Caption = "Exportar XLS" TabIndex = 4 Name = "Command4" tc_form_grid.Pageframe1.Page1Command4:*evn_field_dblclick *evn_field_click *pasar_paginas tc_objeto_ventanasPixelsdTop = 475 Left = 408 Height = 25 Width = 24 Enabled = .F. Interval = 100 Name = "tmr_cerrar" opan_pfcustomYHeight = 17 Width = 22 panel_ventanas = .F. oform = .F. Name = "tc_objeto_ventanas" cTop = 390 Left = 48 Height = 25 Width = 37 Enabled = .F. Interval = 100 Name = "tmr_cerrar" "%[pjU UTHISFORM VEN_CERRARTimer011%)Top = 0 Left = 0 Height = 552 Width = 190 DoCreate = .T. Caption = "Ventanas" ControlBox = .T. Closable = .T. Icon = ("bmp\"+p_icono_sistema) Dockable = 1 opar_main = .F. Name = "tc_ventanas" PROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button thisform.oParametros.obj_control.ctrl_MenuClick(thisform.oParametros, UPPER(Button.Key)) ENDPROC PROCEDURE ButtonMenuClick *** ActiveX Control Event *** LPARAMETERS buttonmenu as MSComctlLib.ButtonMenu thisform.oParametros.obj_control.ctrl_MenuClick(thisform.oParametros, UPPER(Buttonmenu.Parent.Key), UPPER(buttonmenu.Key)) ENDPROC C"**,%UET-TaCa T-UTHISENABLEDTHISFORM LOCKSCREENODEYFUNCDEVENTS PASAR_PAGINASTimer011)*"q\%xUT- UTHISENABLEDTHISFORM VEN_CERRARTimer011:) ࡱ> Root EntryK>'OleObjectDatajAccessObjSiteData&\ChangedPropsX Aljj(6(!C4 9 Root Entry DOleObjectDataxAccessObjSiteData&\ChangedProps?fj(6(!C4H!,@D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I ButtonHeightN B@ ButtonWidthN  7@ OLEDropMode I Style I ͫQ 3v iPROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button DO CASE CASE button.Key="BTN_SALIR" thisform.tmr_cerrar.Enabled=.t. CASE button.Key="BTN_RESET" =Mensaje("Esta opcin aun no est habilitada") * thisform.grid_Reset endcase ENDPROC "Q%@U1T T UVNEWVALTHISDATOTEXTVALUEBUTHISTEXTVALUEBUTHISLABELCAPTION1T T UVNEWVALTHISTEXTOLABELCAPTION[9%Cthis.ventana_parametrobO C T T-UTHISVENTANA_PARAMETRODISPOSEy %C C \<C/No se ha especificado la ventana ni la clase!!!TUTHISVENTANA VENTANA_CLASEMENSAJETEXT CONTROLSOURCEDATO_CONTROLSOURCE dato_assign0 dato_access texto_access texto_assigndisposeGInit1q"Q443q"Q3A2Aa1 8 = [ #)PROCEDURE dato_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.dato = m.vNewVal this.text.Value=m.vNewVal ENDPROC PROCEDURE dato_access *To do: Modify this routine for the Access method *RETURN THIS.dato return this.text.Value ENDPROC PROCEDURE texto_access *To do: Modify this routine for the Access method *RETURN THIS.texto return this.label.Caption ENDPROC PROCEDURE texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.texto = m.vNewVal this.label.Caption = m.vNewVal ENDPROC PROCEDURE dispose IF TYPE("this.ventana_parametro") ="O" and !isnull(this.ventana_parametro) THEN this.ventana_parametro.dispose this.ventana_parametro=.f. ENDIF ENDPROC PROCEDURE Init if empty(this.ventana) AND empty(this.ventana_clase) mensaje("No se ha especificado la ventana ni la clase!!!") ENDIF this.text.ControlSource = this.dato_controlsource ENDPROC PROCEDURE dispose DODEFAULT() this.gf = .f. &&& LIBEREEEEEEEEEMOS!!! ENDPROC PROCEDURE tomar_control LPARAMETERS oForm AS tc_form_grid OF tc.vcx, xNOGR DODEFAULT(oForm) && Leo los parmetros y los paso a un objeto del form para tener eventos IF NOT xNOGR AND type("this.gf")="O" AND type("oForm.gf")="O" and !isnull(this.gf) and !isnull(oForm.gf) THEN oForm.Gf.Leer_GF(THIS.Gf) && Referencio el objeto del form ahora en el objeto de los parmetros THIS.Gf=oForm.Gf THIS.Gf.status_panel=oForm.sb.Panels(1) &&& Ac se realizan todos los cambios de GRID oForm.Gf.sql_refresh(oForm.pageframe1.page1.grid1 ) ENDIF ENDPROC *evn_header_dblclick Bind del doble click del header de una columna. *evn_header_click Bind del click del header de una columna. *evn_field_dblclick Bind del doble click de los campos del grid. *exp_crystal Exportacin a Crystal. *exp_excel Exportacin a EXCEL *grid_reset texto dato ventana ventana_parametro Propiedad para contener el objeto a ser pasado como parmetro. ventana_clase Nombre de la clase a crear la ventana dato_controlsource *plus_click *dato_assign *dato_access *texto_access *texto_assign *dispose vPROCEDURE pasar_paginas LOCAL nIt as Integer FOR nIt=thisform.pf.PageCount TO 1 STEP -1 thisform.pf.ActivePage = nIt NEXT ENDPROC PROCEDURE QueryUnload thisform.pf.dispose DODEFAULT() ENDPROC PROCEDURE Init LPARAMETERS oPar as tc_form_parametros of tc.vcx DODEFAULT(oPar) this.pf.asignar_control(oPar.paneles) thisform.tmr_inicio.Enabled=.t. ENDPROC iPROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button DO CASE CASE button.Key="BTN_SALIR" thisform.tmr_cerrar.Enabled=.t. CASE button.Key="BTN_RESET" =Mensaje("Esta opcin aun no est habilitada") * thisform.grid_Reset endcase ENDPROC PROCEDURE actualizar =mensaje("ven_actualizar") ENDPROC PROCEDURE ven_agregar LPARAMETERS oPar as tc_form_parametros OF tc.vcx LOCAL oNod as MSComctlLib.Node LOCAL xPPath, tvwChilk tvwChild=4 xPPath=oPar.frm_padre.frm_name_fullpath IF EMPTY(xPPath) THEN oNod = this.tv.Nodes.Add(,,oPar.frm_name_fullpath, oPar.frm_caption ) oNod.Tag = oPar.frm_nameid ELSE oNod = this.tv.Nodes.Add(xpPath,tvwChild,oPar.frm_name_fullpath, oPar.frm_caption ) oNod.Tag = oPar.frm_nameid ENDIF oNod.Expanded=.t. ENDPROC PROCEDURE ven_quitar LPARAMETERS oPar as tc_form_parametros OF tc.vcx this.tv.Nodes.Remove(oPar.frm_name_fullpath) ENDPROC PROCEDURE ven_activa LPARAMETERS oPar as tc_form_parametros OF tc.vcx TRY this.tv.Nodes(oPar.frm_name_fullpath).Selected=.t. CATCH ENDTRY ENDPROC PROCEDURE ven_activar LPARAMETERS xFullpath, xName LOCAL oColl as Collection oColl= NEWOBJECT("Collection") LOCAL oNod as MSComctlLib.Node oNod=this.tv.Nodes(xFullPath) this.get_parents (oNod, @oColl) && Obtengo una collection de padre a hijo. LOCAL oPar as tc_form_parametros OF tc.vcx oPar=This.oPar_main &&& Punto de inicio del arbol de referencias FOR EACH oNod IN oColl oPar=oPar.tc_oventanas.Ven_coll(oNod.tag) &&& Las ciclo de Ancestro al hijo actual. NEXT oPar.oForm.show() ENDPROC PROCEDURE get_parents LPARAMETERS oNod as MSComctlLib.Node, oColl as Collection IF NOT ISNULL(oNod.Parent) THEN this.get_parents ( oNod.Parent, @oColl) ENDIF oColl.Add ( oNod) ENDPROC PROCEDURE ven_reset LPARAMETERS oPar as tc_form_parametros OF tc.vcx LOCAL xClass as String, xClassLib as String xClass=oPar.oForm.Class xClassLib=oPar.oForm.ClassLibrary oPar.tc_oventanas.ven_cerrar oForm= NEWOBJECT( xClass, xClassLib, "",oPar) oForm.show ENDPROC PROCEDURE Init this.Dock(2) this.Closable=.f. ENDPROC PROCEDURE Unload ENDPROC %ven_coll Coleccin de ventanas hijas panel_ventanas Referencia del panel para mostrar las ventanas oform Referencia de la ventana a la que corresponde esta coleccion. *ven_agregar Agregado de una nueva hija a la coleccion. *ven_quitar Quitar una ventana de la coleccin. *ven_existe Existe la ventana hija consultada? *ven_cerrar Cierre de la ventana asociada a este control. *ven_cerrar_hijas Cierre de todas las ventanas hijas. *ven_activa Ejecutado por la ventana cuando se activa. Se selecciona en el panel. *ven_activar *ven_reset "Z" %6dU'QTC_FORM_PARAMETROStc.vcxQ COLLECTIONTTCT  C U OPARTCVCXXNAMEOCOLLTHISVEN_COLL FRM_NAMEIDADD TC_OVENTANASPANEL_VENTANAS VEN_AGREGAR'QTC_FORM_PARAMETROStc.vcxQ COLLECTIONTTCC U OPARTCVCXOCOLLXNAMETHISVEN_COLL FRM_NAMEIDREMOVEPANEL_VENTANAS VEN_QUITAR'QTC_FORM_PARAMETROStc.vcx'QTC_FORM_PARAMETROStc.vcx T- zTC  BCtoParbOC UOPARTCVCXTOPARTHISVEN_COLL FRM_NAMEID UTHISOFORM VEN_CERRARH4QTC_FORM_PARAMETROStc.vcxA UOPARTCVCXTHISVEN_COLL TC_OVENTANAS VEN_CERRARx'QTC_FORM_PARAMETROStc.vcx6%Cthis.panel_ventanasbO C qCUOPARTCVCXTHISPANEL_VENTANAS VEN_ACTIVA'QTC_FORM_PARAMETROStc.vcx'QTC_FORM_PARAMETROStc.vcx TC  ( U OPARTCVCXTOPAR FRM_PADRE TC_OVENTANASVEN_COLL FRM_NAMEIDOFORMSHOWOEX>'QTC_FORM_PARAMETROStc.vcxCUOPARTCVCXTHISPANEL_VENTANAS VEN_RESETT-T-UTHISVEN_COLLOFORMLQTC_FORMtc.vcxTTC CollectionNUOFORMTCVCXTHISVEN_COLL ven_agregar0 ven_quitarC ven_existe0 ven_cerrarven_cerrar_hijasF ven_activa ven_activar ven_resetvDestroyInit*1qQdC3qB3qsqA22BA3qcAA3qrB2qC322] ~s  .329$B,VN/tU2 Z)s"ZZ,% U CT-UTHISGF%Q TC_FORM_GRIDtc.vcx CU% Cthis.gfbO CoForm.gfbO C C CTTC C  UOFORMTCVCXXNOGRTHISGFLEER_GF STATUS_PANELSBPANELS SQL_REFRESH PAGEFRAME1PAGE1GRID1dispose0 tomar_control\12QSa3B2Fj~)Z"%ZoiU UTHISFORM EXP_EXCELClick011$)"%\qkU UTHISFORM EXP_CRYSTALClick011&)"%[pjU UTHISFORM VEN_CERRARClick011%)PROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button thisform.oParametros.obj_control.ctrl_MenuClick(thisform.oParametros, UPPER(Button.Key)) ENDPROC PROCEDURE ButtonMenuClick *** ActiveX Control Event *** LPARAMETERS buttonmenu as MSComctlLib.ButtonMenu thisform.oParametros.obj_control.ctrl_MenuClick(thisform.oParametros, UPPER(Buttonmenu.Parent.Key), UPPER(buttonmenu.Key)) ENDPROC  ࡱ> Root Entry DOleObjectDataAccessObjSiteData&\ChangedProps{g8j(6(!C43,~ͫ"\$89368265E-85FE-11d1-8BE3-0000F8754DA1 SimpleTextH werwerwerStyle I  werwerwer72 2  R MousePointer I OLEDropMode I egistros: Registros:R fTotal:Total: &PROCEDURE ven_cerrar *** Llamado usar para asegurarse que se ejecuten todos las rutinas de limpieza thisform.QueryUnload thisform.release ENDPROC PROCEDURE tb_asignar_iconos IF TYPE("Thisform.IL")#"O" THEN RETURN ENDIF IF TYPE("Thisform.TB")="O" and !isnull(Thisform.TB) THEN THISFORM.TB.ImageList = THISFORM.il FOR EACH oBut AS MSComctlLib.BUTTON IN THISFORM.TB.BUTTONS TRY oBut.IMAGE = oBut.KEY CATCH ENDTRY NEXT ENDIF IF TYPE("Thisform.TBS")="O" and !isnull(Thisform.TBS) THEN THISFORM.TBS.ImageList = THISFORM.il FOR EACH oBut AS MSComctlLib.BUTTON IN THISFORM.TBS.BUTTONS TRY oBut.IMAGE = oBut.KEY CATCH ENDTRY NEXT ENDIF IF TYPE("Thisform.TBC")="O" and !isnull(Thisform.TBC) THEN THISFORM.TBC.ImageList = THISFORM.il FOR EACH oBut AS MSComctlLib.BUTTON IN THISFORM.TBC.BUTTONS TRY oBut.IMAGE = oBut.KEY CATCH ENDTRY NEXT ENDIF ENDPROC PROCEDURE Load *** Creo un objeto TC_OBJETO_VENTANAS para controlar las hijas this.tc_oventanas=newobject("tc_objeto_ventanas", "tc.vcx","",this) ENDPROC PROCEDURE Init LPARAMETERS oPar as tc_form_parametros of tc.vcx *!* IF TYPE("oPar")#"O" THEN *!* oPar = NEWOBJECT("tc_form_parametros", "tc.vcx") *!* ENDIF IF TYPE("oPar")="O" and !isnull(oPar) THEN oPar.Tomar_Control(this) && Seteos generales IF TYPE("oPar.obj_control")="O" and !isnull(oPar.obj_control) THEN oPar.obj_control.ctrl_crear_botones(oPar) ENDIF thisform.TB_Asignar_Iconos() ENDIF ENDPROC PROCEDURE QueryUnload IF TYPE("this.tc_oventanas")="O" and !isnull(this.tc_oventanas) THEN THIS.tc_oventanas.ven_cerrar_hijas && Cierro todos los forms hijos THIS.tc_oventanas=.F. && Ya no lo necesito! y lo cierro ENDIF IF TYPE("this.oParametros")="O" and !isnull(this.oParametros) THEN && Le aviso al padre que me voy THIS.oParametros.frm_padre.tc_oventanas.ven_quitar(THISFORM.oParametros ) THIS.oParametros.Dispose && Libero objetos THIS.oParametros=.F. ENDIF LOCAL ARRAY xObjs(1) =AMEMBERS(xObjs, THISFORM,2) FOR EACH xNam IN xObjs TRY THISFORM.&xNam..Dispose CATCH ENDTRY NEXT ENDPROC PROCEDURE Activate *** Aviso cuando la ventana se activa IF TYPE("this.tc_oventanas")="O" and !isnull(this.tc_oventanas) THEN this.tc_oventanas.ven_Activa(this.oparametros) ENDIF ENDPROC  ࡱ> Root Entryl:cB@OleObjectDataAccessObjSiteData&\ChangedProps?fj(6(!C4'!z@D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I ButtonHeightN B@ ButtonWidthN @Q@ OLEDropMode I Style I ͫPI33-3 Modo Edicin GRM_EDICIONs@B xC$ GraficoGRF_TIPOHx:Entry> <x:Entry>#0080FF</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#C0FF80</x:Entry> <x:Entry>#FFC0FF</x:Entry> <x:Entry>#FF80FF</x:Entry> </x:Palette> <x:DefaultFont>Arial</x:DefaultFont1mࡱ>  Root Entryl:cBOleObjectDatam'AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~ͫ8 EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENU lt~h( @@ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs#$,j(6(!C4~ͫ8 EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENUlt~h( @^gY鲣沧嬤㧢ᢠߜݗ؏ʼnuVoMʾǹ࿲۲]yHǿ¹ǻϱUtAƾȵҸǬ޸[觙ȻӮǻòޮ޸ĹɼಫôᷯԾ۫⼳ܵƾɹεǰżĻژۏ~ޚݐ}xcl{ޖvaTyjVwk?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??ltGIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;lt   ( ³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{wlt ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5}  Root Entry ":cB@OleObjectData~ AccessObjSiteData&SChangedProps3  !"#$%&'()*+,-./01254768]F<xml xmlns:x="urn:schemS8Cannot License in this host>0</x:Left> <x:LefHasChartSpaceLegendLHasChartSpaceTitleas-microsoft-com:office:excel"> <x:ChartSpace> <x:OWCVersion>11.0.0.6555 </x:OWCVersion> <x:Width>12726</x:Width> <x:Height>7303</x:Height> <x:HidePivotFields/> <x:DisplayFieldList/> <x:Palette> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#8080FF</x:Entry> <x:Entry>#802060</x:Entry> <x:Entry>#FFFFA0</x:Entry> <x:Entry>#A0E0E0</x:Entry> <x:Entry>#600080</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#008080</x:Entry> <x:Entry>#C0C0FF</x:Entry> <x:Entry>#000080</x:Entry> <x:Entry>#FF00FF</x:Entry> <x:Entry>#80FFFF</x:Entry> <x:Entry>#0080FF</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#C0FF80</x:Entry> <x:Entry>#FFC0FF</x:Entry> <x:Entry>#FF80FF</x:Entry> </x:Palette> <x:DefaultFont>Arial</LHasSelectionMarks I DisplayScreenTipsLDisplayFieldButtonsLAllowGroupingLx:DefaultFont> <x:HideScreenTips/> </x:ChartSpace> </xml> DisplayToolbarLHasRuntimeSelectionLAllowUISelectionLips/> </x:ChartSpace> </xml> <x:DataSourceIAllowUISelectionLSourceIndex> <x:Data>&quot;Ttulo del rea de trabajo del grfico&quot;</x:Data> </x:Caption> </x:Title> <x:Legend> <x:Placement>Right</x:Placement> </x:Le ࡱ> Root Entry DOleObjectDataAccessObjSiteData&\ChangedProps ?fj(6(!C4V !D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1E[g!B2g(Svy?VXB]2d MousePointer I WrappableL ButtonHeightN B@ ButtonWidthN F@ OLEDropMode I Style I _?mdͫ"$mReset BTN_RESET Salir BTN_SALIRP$a   ~ ࡱ> Root Entry0:cBOleObjectDataAccessObjSiteData&\ChangedProps ?fj(6(!C4V !D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1E[g!B2g(Svy?VXB]2d MousePointer I WrappableL ButtonHeightN B@ ButtonWidthN F@ OLEDropMode I Style I _?mdͫ($mReset BTN_RESET Salir BTN_SALIR\ a   ~ ࡱ> Root EntryU_E0^OleObjectDataxAccessObjSiteData&\ChangedProps?fj(6(!C4f7!,@D@{D\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I ButtonHeightN C@ ButtonWidthN  7@ OLEDropMode I Style I ͫ3 ࡱ> Root Entry@^E0^OleObjectDataAccessObjSiteData&\ChangedProps ?fj(6(!C4V !D@{D\$89368265E-85FE-11d1-8BE3-0000F8754DA1E[g!B2g(Svy?VXB]2d MousePointer I WrappableL ButtonHeightN C@ ButtonWidthN G@ OLEDropMode I Style I _?mdͫmReset BTN_RESET Salir BTN_SALIRH1mࡱ>  Root Entry DOleObjectDatam'AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~ͫY  EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENU lt~h( @@ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs#$,j(6(!C4~ͫY  EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENUlt~h( @^gY鲣沧嬤㧢ᢠߜݗ؏ʼnuVoMʾǹ࿲۲]yHǿ¹ǻϱUtAƾȵҸǬ޸[觙ȻӮǻòޮ޸ĹɼಫôᷯԾ۫⼳ܵƾɹεǰżĻژۏ~ޚݐ}xcl{ޖvaTyjVwk?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??ltGIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;lt   ( ³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{wlt ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5}  Root Entry``E0^OleObjectDatai'AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~ͫ EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIRBT_MENUNUlt~h( @ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs#$,j(6(!C4~ͫ EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIRBT_MENUlt~h( @^gY鲣沧嬤㧢ᢠߜݗ؏ʼnuVoMʾǹ࿲۲]yHǿ¹ǻϱUtAƾȵҸǬ޸[觙ȻӮǻòޮ޸ĹɼಫôᷯԾ۫⼳ܵƾɹεǰżĻژۏ~ޚݐ}xcl{ޖvaTyjVwk?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??ltGIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;lt   ( @³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{wlt ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5} G((MIDIDECZ%C4S ^J _J >  > >> >UOFORMTHISFRM_NAMEMENSAJEP_SYSTEMOVAL VAL_TEXTO VAL_AGREGAREXLEFTTOPHEIGHTWIDTH WINDOWSTATEXTEXTXTEXT2 WIND_SETSFULLID PUB_INDEXP_CODEMPDATOSMIDIDOOBJEMPIDUSUARIO*% C B T-T-T-T-T-U THISWIND_SETS_XGRABAR WIND_NO_ABRIRFRM_NAMEWIND_SETS_GRABAROFORM TC_OVENTANAS OBJ_CONTROLOVAL,QCOLUMNCUOCOLTHIS OBJ_CONTROLFIELD_DBLCLICK=%C B 6 BUTHIS FRM_NAMEIDFRM_NAME1%Cthis.frm_padrebO C WT\ qT BUXPPATHTHIS FRM_PADREFRM_NAME_FULLPATH FRM_NAMEID% B T-A%Cthis.frm_padre.tc_oventanasbO C TCT BUTHIS WIND_NO_ABRIRXEXISTEVENTANA FRM_PADRE TC_OVENTANAS VEN_EXISTEiTTTT T  U OFORMLEFTTHISFRM_LEFTTOPFRM_TOP ALTURADESEADA FRM_HEIGHT ANCHODESEADO FRM_WIDTHWINDOWSTATE_DESEADOFRM_WINDOWSTATEiTTTT T  U OFORMTHISFRM_LEFTLEFTFRM_TOPTOP FRM_HEIGHT ALTURADESEADA FRM_WIDTH ANCHODESEADOFRM_WINDOWSTATEWINDOWSTATE_DESEADOqQFORMTTTT T  U OFORMLEFTTHISFRM_LEFTTOPFRM_TOPHEIGHT FRM_HEIGHTWIDTH FRM_WIDTH WINDOWSTATEFRM_WINDOWSTATEqQFORMTTTT T  U OFORMTHISFRM_LEFTLEFTFRM_TOPTOP FRM_HEIGHTHEIGHT FRM_WIDTHWIDTHFRM_WINDOWSTATE WINDOWSTATE UTHISDISPOSE/TCExportar_Texto Imp_Exp.vcxTWNDSTHWNDS2TCppan_pageframetc_paneles.vcxUTHISOVALSET_DIVSET_HEADPANELES tomar_control0wind_sets_cargar$wind_sets_grabarFdispose field_dblclick frm_nameid_access frm_name_fullpath_accesss wind_no_abrir_access4 wind_sets_deseados_setear6wind_sets_deseados_cargar,wind_sets_aplicar"wind_sets_leer DestroyInit1"A1sT1AQ1AAU1A11A!1AQ1AA1A1A5AqAA1rqAB3B3BqAAbqAA4baaaa1r!QQBB5A22DA3rA3"ArA3q211112q2111122111122111122q"1B%i1 5FX asV|{h lOm)"~%;U CUOCOLTHIS OPARAMETROSFIELD_DBLCLICKNAMECBUTHISFORMOEXPC CRY_EXPORTAR OPARAMETROS8"CBUXHOJAADD XSINFORMATO XREEMPLAZATHISFORMOEXP XLS_EXPORTAR OPARAMETROSU<CFQ CUTHISFORMGFDISPOSE PAGEFRAME1PAGE1GRID1 SQL_ALIASL,QTC_FORM_PARAMETROS_GRIDtc.vcx CC CCC F ,T  Registros: CCNZ %C @TSUM &xFLD TO xTot >T : C 99,999,999.99_#)UOPARTCVCX OBJ_CONTROLCTRL_CREAR_BOTONESTHISFORMTB_ASIGNAR_ICONOSGFGRID_SETS_DEFAULTGRID_SETS_CARGAR SQL_ALIASTHISSBPANELSTEXTXFLDXTOT SQL_TOTALIZAR]TTT-QMSCOMCTLLIB.Button T -QMSCOMCTLLIB.Button T -QMSCOMCTLLIB.ButtonV DT ( RU THISFORMTB IMAGELISTILTBSTBCOBUTBUTTONSIMAGEKEYOEX  UTHISFORM QUERYUNLOADRELEASEevn_field_dblclick0 exp_crystal exp_excel grid_resetf QueryUnloadqInittb_asignar_iconos ven_cerrar1qa2aA4!B`13A2C1aAQ4aaa1AA1AA1AA21Z| > l f & iA r" 8)>"%%qi%Ue3QMSOWCD.ChartSpaceQMSOWCD.ChBorderTTCLUXCSXCHTHISFORMMSGRCHARTSClick011qBA1)%PROCEDURE tomar_control LPARAMETERS oForm AS tc_form OF tc.vcx, xNoLeerData as Boolean IF this.wind_sets_xcargar THEN *** Cargo el ltimo estado de la ventana? this.wind_sets_cargar ENDIF oForm.oparametros= this && Agrego una referencia de este objeto al form this.oform = oForm && A su vez hago una referencia del forma en este objeto this.tc_oventanas = oForm.tc_oventanas && Tambien obtengo la clase TC_OBJETO_VENTANAS activa en el form this.frm_padre.tc_oventanas.ven_agregar(this) &&& Agrego esta ventana en el objeto TC_OBJETO_VENTANAS del padre ****** Seteos de info **************************************************************** IF NOT EMPTY(THIS.frm_caption ) THEN oForm.CAPTION = THIS.frm_caption ENDIF IF NOT EMPTY(THIS.frm_name ) THEN oForm.NAME = THIS.frm_name ENDIF IF NOT EMPTY(THIS.pag_caption ) AND TYPE("oForm.Pageframe1.page1")="O" and !isnull(oForm.Pageframe1.page1) THEN oForm.Pageframe1.page1.caption=THIS.pag_caption ENDIF ************************************************************************************** ****** Datos de aspecto y posicin *************************************************** ****** Cada vez que se agrega uno hay que agregarlo al guardar y cargar (WIND_SETS_CARGAR Y WIND_SETS_GRABAR) IF NOT EMPTY(THIS.frm_autocenter) THEN oForm.AUTOCENTER = THIS.frm_autocenter ENDIF IF TYPE("this.frm_left")="N" THEN oForm.Left = this.frm_left ENDIF IF TYPE("this.frm_top")="N" THEN oForm.Top = this.frm_top ENDIF IF TYPE("this.frm_height")="N" THEN oForm.height = this.frm_height ENDIF IF TYPE("this.frm_width")="N" THEN oForm.width = this.frm_width ENDIF IF TYPE("this.frm_windowState")="N" THEN oForm.WindowState = this.frm_windowState ENDIF ************************************************************************************** ENDPROC PROCEDURE wind_sets_cargar LPARAMETERS xGrilla AS GRID IF EMPTY(THIS.frm_name) THEN =mensaje("El nombre de la ventana est vacio") RETURN .F. ENDIF IF ! USED("wind_sets") THEN USE (p_system+"\wind_sets") IN 0 ENDIF LOCAL xSalir, xNombre, xTexto, xCol xTexto="" SELECT wind_sets SET ORDER TO FULLID && ID+STR(USUARIO)+STR(EMP) SEEK PADR(THIS.frm_name,10) + STR(pub_index)+STR(p_codemp) IF FOUND() THEN xTexto=Datos ELSE SET ORDER TO MIDID && ID+STR(USUARIO) SEEK PADR(THIS.frm_name,10) + STR(pub_index) IF FOUND() THEN xTexto=Datos ENDIF ENDIF THIS.oVal.Val_Texto=xTexto TRY this.frm_autocenter = THIS.oVal.val_coleccion_nextEx(,.f.) this.frm_left = THIS.oVal.val_coleccion_nextEx(,0) this.frm_top = THIS.oVal.val_coleccion_nextEx(,0) this.frm_height = THIS.oVal.val_coleccion_nextEx(,0) this.frm_width = THIS.oVal.val_coleccion_nextEx(,0) this.frm_windowstate = THIS.oVal.val_coleccion_nextEx(,0) CATCH ENDTRY ENDPROC PROCEDURE wind_sets_grabar LPARAMETERS oForm as Form IF EMPTY(THIS.frm_name) THEN =mensaje("El nombre de la ventana est vacio") RETURN .F. ENDIF IF type("oForm")#"O" THEN oForm=this.oForm ENDIF IF NOT TYPE("oForm")="O" and !isnull(oForm) THEN RETURN .f. ENDIF IF ! USED("wind_sets") THEN USE (p_system+"\wind_sets") IN 0 ENDIF *** GUARDADO DE PARMETROS this.oval.val_texto="" &&& this.frm_autocenter siempre es .f. porque luego usa la posicin del usuario this.oval.Val_AgregarEx(.f. ) &&& this.frm_autocenter this.oval.Val_AgregarEx(oForm.left) this.oval.Val_AgregarEx(oForm.top ) this.oval.Val_AgregarEx(oForm.height ) this.oval.Val_AgregarEx(oForm.width ) this.oval.Val_AgregarEx(oForm.windowstate ) ************************************************************************************** *** GRABADO DE DATOS LOCAL xText, xText2 xText=this.oVal.val_texto SELECT wind_sets SET ORDER TO FULLID && ID+STR(USUARIO)+STR(EMP) SEEK PADR(THIS.frm_name ,10) + STR(pub_index)+STR(p_codemp) IF FOUND() THEN replace datos WITH xText ELSE SET ORDER TO MIDID && ID+STR(USUARIO) SEEK THIS.frm_name + STR(pub_index) IF FOUND() THEN SCATTER NAME oObj MEMO APPEND BLANK GATHER NAME oObj MEMO replace emp WITH p_codemp ELSE APPEND BLANK replace datos WITH xText replace emp WITH p_codemp replace id WITH this.frm_name replace usuario WITH pub_index ENDIF ENDIF ENDPROC PROCEDURE dispose IF this.wind_sets_xgrabar AND NOT this.wind_no_abrir AND NOT EMPTY(THIS.frm_name) THEN *** Tengo que grabar el seteo de la ventana?? this.wind_sets_grabar this.wind_sets_xgrabar =.f. ENDIF *** Liberando referencias this.oForm = .f. this.tc_oventanas=.f. this.obj_control = .f. this.oval = .f. ENDPROC PROCEDURE field_dblclick LPARAMETERS oCol as Column ** oCol es la columna donde se realiz el doble click *** Este metodo captura los dobles click de los grid y se lo pasa al objeto controlador (ej. TC_CTRL_BASE) this.obj_control.field_dblclick(this, oCol) ENDPROC PROCEDURE frm_nameid_access *** Si o se asigno NAMEID paso el nombre comn *** NAMEID es usado para las ventanas que se abren mas de una vez *** como el detalle de cada cliente IF EMPTY(THIS.frm_nameid) THEN RETURN THIS.frm_name ELSE RETURN THIS.frm_nameid ENDIF ENDPROC PROCEDURE frm_name_fullpath_access *** Obtengo el "PATH" completo del form, incluyendo el path completo del padre y su propio nombre LOCAL xPPath IF TYPE("this.frm_padre") ="O" and !isnull(this.frm_padre) THEN xPPath= this.frm_padre.frm_name_FullPath+"\"+this.frm_nameid ELSE xPPath=this.frm_nameid ENDIF RETURN xPPath ENDPROC PROCEDURE wind_no_abrir_access *To do: Modify this routine for the Access method IF THIS.wind_no_abrir THEN RETURN THIS.wind_no_abrir ENDIF LOCAL xExisteVentana xExisteVentana=.f. IF TYPE("this.frm_padre.tc_oventanas")="O" and !isnull(this.frm_padre.tc_oventanas) THEN xExisteVentana= this.frm_padre.tc_oventanas.ven_Existe(this) ENDIF this.wind_no_abrir= xExisteVentana RETURN xExisteVentana ENDPROC PROCEDURE wind_sets_deseados_setear LPARAMETERS oForm oForm.left = this.frm_Left oForm.top = this.frm_top oForm.AlturaDeseada = this.frm_height oForm.AnchoDeseado = THIS.frm_width oForm.WindowState_Deseado = this.frm_windowstate ENDPROC PROCEDURE wind_sets_deseados_cargar LPARAMETERS oForm this.frm_Left = oForm.Left this.frm_top = oForm.Top this.frm_height = oForm.AlturaDeseada THIS.frm_width = oForm.AnchoDeseado this.frm_windowstate= oForm.WindowState_Deseado ENDPROC PROCEDURE wind_sets_aplicar LPARAMETERS oForm as Form oForm.left = this.frm_Left oForm.top = this.frm_top oForm.height = this.frm_height oForm.Width = THIS.frm_width oForm.WindowState = this.frm_windowstate ENDPROC PROCEDURE wind_sets_leer LPARAMETERS oForm as Form this.frm_Left = oForm.left this.frm_top = oForm.top this.frm_height = oForm.Height THIS.frm_width = oForm.Width this.frm_windowstate = oForm.WindowState ENDPROC PROCEDURE Destroy *** SIEMPRE QUE SE DESTRUYA ME TENGO QUE ASEGURAR DE NO DEJAR REFERENCIAS DE OTROS OBJETOS this.dispose ENDPROC PROCEDURE Init *** Inicio el exportador de textos THIS.oVal = NEWOBJECT("Exportar_Texto","Imp_Exp.vcx") THIS.oVal.set_div = "WNDS" THIS.oVal.set_Head = "HWNDS" this.paneles = NEWOBJECT("ppan_pageframe", "tc_paneles.vcx") ENDPROC "1/%71UUQMSCOMCTLLIB.BUTTONH.!  GRM_EDICIONTTTTT "T GRF_TC "T GRF_TA U BUTTONKEYXEDICIONVALUETHISFORMMSGRDISPLAYFIELDBUTTONSDISPLAYTOOLBARDISPLAYSCREENTIPSDISPLAYFIELDLISTTBCBUTTONSVISIBLE!QMSCOMCTLLIB.buttonmenu*QGRF_TIPOborrar_graficos.PRG/Q GESENUMVALUESborrar_graficos.PRGQMSCOMCTLLIB.Button.TCgrf_tipoborrar_graficos.PRGH$  GRM_EDICION) CGRF_TCGRF_TA!TCC  'TCCGRF_TC Ta  'TCCGRF_TA Ta TCT   S'TCCGRF_TC T- ] 'TCCGRF_TA T-  2,C CfCf U BUTTONMENUOGRFBORRAR_GRAFICOSPRGOVALOBUTPARENTKEY GET_BYVALUETHISFORMMSGRCHARTSTYPETBCBUTTONS BUTTONMENUS ENUM_NAMEENABLEDTAG ENUM_VALUE OPARAMETROS OBJ_CONTROLCTRL_MENUCLICKRefresh0 ButtonClick;ButtonMenuClick14R2111"!A3AqAqAqqAqAA23U=)"%[pjU UTHISFORM VEN_CERRARTimer011%)"%+e QUUQMSCOMCTLLIB.ButtonH.  BTN_SALIR^Ta  BTN_RESET/C"Esta opcin aun no est habilitadaUBUTTONKEYTHISFORM TMR_CERRARENABLEDMENSAJERefresh0 ButtonClick;14B13U^)"pp{%L<U/Q GR_PARAMETROSborrar_graficos.prgC*QGRF_TIPOborrar_graficos.prg/Q GESENUMVALUESborrar_graficos.prgQMSCOMCTLLIB.BUTTON.TCgrf_tipoborrar_graficos.PRG!TCC  F'TCCGRF_TC T- P 'TCCGRF_TA T- UOGRBORRAR_GRAFICOSPRGAPLICARTHISFORMMSGROGRFOVALOBUT GET_BYVALUECHARTSTYPETBCBUTTONS BUTTONMENUS ENUM_NAMEENABLEDKTT-QMSCOMCTLLIB.BUTTON vT -QMSCOMCTLLIB.BUTTON T( Y QGRF_TIPOborrar_graficos.PRG QGRF_TIPO_COMUNESborrar_graficos.PRG/Q GESENUMVALUESborrar_graficos.PRG.T Cgrf_tipoborrar_graficos.PRG6T Cgrf_tipo_Comunesborrar_graficos.PRG@QMSCOMCTLLIB.ButtonMenusQMSCOMCTLLIB.ButtonMenu4TCGRF_TC Tipos ComunesT-T TCT2TCGRF_TA Tipos TodosT-T DTCTUTHISFORMTBS IMAGELISTILTBCOBUTBUTTONSIMAGEKEYOEXOGRFBORRAR_GRAFICOSPRGOGRFCOVALOBMOBTADDVISIBLE BUTTONMENUS ENUM_COLL ENUM_NAME ENUM_DESCRTAG ENUM_VALUEz/QTC_FORM_PARAMETROS_GRAFICOtc.vcx C %CoParbOsCUOPARTCVCXTHISFORMTB_ASIGNAR_ICONOSGR_CREAR_GRAFICOOPAR_GRgr_crear_grafico0tb_asignar_iconoslInit12qAqA3aa1AA1AAaAA1B$A1B41A2:b5 H)p"ħ%g{uU TC CollectionUTHISPAGINASInit0116)"f%lzU TC CollectionUTHIS PAGE_OBJECTSInit011;)"Iz%U6%Q TC_FORM_GRIDtc.vcxCaUOFORMTCVCXXNOGR tomar_control01Q1b) &  (8 uu䍦{{%]]hhjjkkqqssttvv||毯FE懇zzwwrrqqmmiiddSS~~__mmllpprrrrxx絵HG懇yywwuuqqmmkkaajjvvqqvvzz~~뱱GFꉉ}}{{uurrkk}}qqzz}}~~שּׁ@?{{ssvvyyA3]}}vv;U0?0ppp0?p`````````````````Z+``````]I5aa%%%%% L``v&&5o{q```>a999 ````p&&&&5o{q`?>999/ ``````p &&&5og5999/GA````````&p &&&5oJm &/////G%A``````````p &&y#P`wa //"G%A````````````mp &K^k```w9G"G%M``````````````3p (Lk`````w9F9-`````````````````vLk```````?}x```````````````````}````????if3H2f/crosoft Sans SerifNormalVietnamitadv $A``  '@$ .[`) ( alq2HWP/%;w/R:N #%C bienes_fast ^Q bienes_fast%T bienes_fast Tbienes  T,T CCxfiltrobC.t.6T .t.% .t.2T   and  %|3T   and bienes.dmarca=[C ]%C 0T   and bienes.modelo=[C]%C 1T   and bienes.cod_pro=[C]%C T   and (bienes.descr=[C]CCg or bienes.barras=CCCgZ6 or bienes.cod_ins=[C])%C %/T   and [C]$bienes.descr T   and ([C]$bienes.descr or [C]$bienes.modelo or [C]$bienes.dmarca or [C]$bienes.cod_ins)%&T C bienes bienes_fast*sys_procesando Consultando4sys_procesandoConsultando Artculos TCkselect descr , cod_ins , codalt1 , dmarca , modelo , iif(ivaper=0, c_iva, ivaper)+0.00 as ivaper , fac_lpr1 as precio1 , fac_lpr1*(1+iif(ivaper=0, c_iva, ivaper)/100) as precio2 , discont from &xbienes where &xfiltro_bie and est_act<2 into cursor tmp_bie_cur1 TC0sys_procesandoConsultando StockC Suspendo?a%z ]select bi.descr , bi.cod_ins , bi.codalt1 , bi.dmarca , bi.modelo , bi.ivaper , bi.precio1 , bi.precio2 , sum(nvl(stkxdep.cantidad, 0000000000000.00)) as cantidad , max(nvl(lisprec.precio,0)) as precio , max(nvl(lisprec.bonif,0)) as bonif , bi.discont , max(nvl(lisprec.margen,0)) as margen , space(30) as ddeposito, space(8) as deposito from tmp_bie_cur1 bi left outer join stkxdep on bi.cod_ins+space(6)=stkxdep.codigo+stkxdep.bul+stkxdep.atr left outer join lisprec on bi.cod_ins+" "+str(1,2)+xcod_cli = lisprec.codigo+lisprec.bul+lisprec.atr+str(lisprec.lista,2)+lisprec.cod_cli group by bi.descr,bi.cod_ins,bi.codalt1,bi.dmarca,bi.modelo,bi.ivaper,bi.precio1,bi.precio2,bi.discont where &xfiltro_otros into cursor tmp_bie_cur  %Cdeposito Qdeposito\select bi.descr , bi.cod_ins , bi.codalt1 , bi.dmarca , bi.modelo , bi.ivaper , bi.precio1 , bi.precio2 , sum(nvl(stkxdep.cantidad, 0000000000000.00)) as cantidad , 000000000000000.00 as precio , 000.00 as bonif , bi.discont , 000.00 as margen , nvl(deposito.descr, space(30)) as ddeposito, nvl(stkxdep.deposito, space(8)) as deposito from tmp_bie_cur1 bi left outer join stkxdep on bi.cod_ins+space(6)=stkxdep.codigo+stkxdep.bul+stkxdep.atr left outer join deposito on stkxdep.deposito=deposito.deposito group by bi.descr , bi.cod_ins , bi.codalt1 , bi.dmarca , bi.modelo , bi.ivaper , bi.precio1 , bi.precio2 , bi.discont , deposito.descr , stkxdep.deposito where &xfiltro_otros and !empty(stkxdep.deposito) into cursor tmp_bie_cur  TC)sys_procesando ProcesandoUXFAST XFILTRO_FIJOXMARCAXMODELOXCOD_PROXTEXTOXINCLUYEXSOLO_DESCRIPCIONXBIENES BIENES_FAST XFILTRO_OTROS XFILTRO_BIEP_VE_FILTRO_DEP_BUSMARCASDESCR SP_MENSAJESYS_PROCESANDOAAABBBSYS_MOSTRAR_SCREENXDESDEDEPOSITOCCC1rqA1AbA11A!A!A!A! AAaAFr3`5AA5A1 ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5}kk2ߑL7M᯿(.k0,(ij-XcL .>b%rj[ edƣ}Nlþ 4E2.JLK4$9`@5WE(.:&L6)ԅ,7bXD.a`=)*@90L:bύ PYZگCw_U{{G!6Db) xi,:bی &#~m;qo5碠X0GL, Ě<#uizz2 hp9JU`cɡ!0`+!D-;7FV('ݗHM.M*mp?%&gc&>סC8`G"ԒYw{|LZSY@8#>F >IL0nA M<2n)s&Q4L[=WA6RK]~]]](gQ T} mkBIENDB`  ( @ }PjPj^}PjPj^^쥕룔ꠔ螔盓易䕓㓒␒߉݆܃ڀ|yuqmm}PjLj^^ʿȼƺķµ⾯⼬⺩⸦ᶣ}Pj;^^ﬕʿȼƺķµ⾯⼬⺩}Pj;B^ʿȼƺķµ⾯}Pj;B^fʿȼƺķµ}Pj;B^ᱝmʿȼƺķ}Pj;^t⸦ᶣqլаլܲլəÕÿ};By⼬⺩⸦uƴƠիΥy⾯⼬⺩yտ֟Ƨƺķµ⾯⼬|Ơիͦȼƺķµ⾯ڀڷ}ܻȼƺķµ܃ƴаڨ߶ʿȼƺķµ݆ƴܻפҭʿȼƺķ߉ƴլڨҭʿȼƺəڨ֦ʿȼ␒්}߬ݰܻʿ㓒˜ڣܪ٦ڨҭ䕓ØǞᮊǞ易ĘƧܲݮܻʞ盓řӶԩԩÕ螔ƙ⺩⸦ᶣᱝᱝᱝᱝꠔƙrdrdyk~pكu܈yߍ~⒃rdǙrdkkkuzrdǙrdkkv{rdșrdkw|rdșzlx}rdə}o~rdə؀qrdəكtrdəəəəșșǙǙƙƙřĘؘrd?  ( @ }PjPj^}PjPj^^쥕룔ꠔ螔盓易䕓㓒␒߉݆܃ڀ|yuqmm}PjLj^^}Pj;^^ﬕ}Pj;B^}Pj;B^f}Pj;B^m}Pj;^t误qլаլܲլəÕÿ};ByuƴƠիΥyy֟Ƨ|Ơիͦڀ}ܻ܃ƴаڨ߶݆ƴܻפҭ߉ƴլڨҭəڨ֦␒}߬ݰܻ㓒˜ڣܪ٦ڨҭ䕓ØǞᮊǞ易ĘƧܲݮܻʞ盓řӶԩԩÕ螔ƙ⺩⸦ᶣᱝᱝᱝᱝꠔƙrdrdyk~pكu܈yߍ~⒃rdǙrdkkkuzrdǙrdkkv{rdșrdkw|rdșzlx}rdə}o~rdə؀qrdəكtrdəəəəșșǙǙƙƙřĘؘrd?  ( @ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{w%P1'jS-; 4%Cp_devbL C pub_indexbN QBC % BC BCUOEXXNOAGREGAR_LINEASOBTENER_MENSAJE_SIMPLEP_DEV PUB_INDEXOBTENER_MENSAJE_COMPLETO #TC C C 6)T Message: C +T Procedure: C *T LineNo: CZC !TCC 6.T LineContents: C !TCC 6)T Details: C .T StackLevel: CZC !TCC 6!TCC 6CERROR HAND OEX     C T T +  T C t%C W!T  T  TC !TCC 6 BUOEXXNOAGREGAR_LINEAS XRES_MENSAJEMESSAGE PROCEDURELINENO LINECONTENTSDETAILS STACKLEVELSYS_M XSTACKINFOAAPROBAAZAATMPAAPROG| #TC C C 6TC !TCC 6 BUOEXXNOAGREGAR_LINEAS XRES_MENSAJEMESSAGEobtener_mensaje_completo7obtener_mensaje_simpleA!!!AA2q1AQAAaAq2q12 p *JD.  &h ( @ ll\\00<|>.|.P|P$|$R|R(|(H|H8|84|4H|H&|&T|T$|$L|L0|0<||≯율4|4DD::@@@@@@@@88HHppȌPP<|<@@<|>::DD66HH4|4ΰȌhhȐLL<|<@@::DD0|0HH88DD@@<|>@|@,|,P|P"|"R|R(|(D|D8|84~4PP((\\dd XX44<>8{88{87{77{77{77{78{87{77{77{78{86{6==::@}@??WW\\[[[[[[[[[[[[ZZ[[[[\\FF>>+q+ZZ]]7{7)r)\\[[7{7&o&aaǸϸѼкѻкҽUU^^JJff2w2"l"gg+p+5x54x47y7.r.HH__7y72x2gg^^6y6)q)[[4x4@@;{;PPwwHH=~=0u0ZZ6{6*r*\\9w9OOvvCC;{;NNGGZZ^^6z6)q)\\wwmmGG;|;:}:[[8z8)r)\\ҤqqFF6z6@@;};\\[[7{7)q)\\جkkGG3y3XX@@>>8y8YYZZ7{7"n"ggɡUU9|9)p)``駺/s/4x4&m&SS]]6z6&o&bbΥåĪæͻåũDz]]7z7)r)]]XX8{89}9GG\\ZZZZYY\\\\]]ZZZZYY[[YY????;;:}:(r()r))r))r))r))r)(r(*r**r*)r)*r**r*?~?88 (8 {{wwssoojjffaa\\WWRRHHHHHHHH{{wwssoojjffaa\\WWRRHHHHHH{{wwssoojjffaa\\WWRRHHHH{{wwssoojjffaa\\WWRRHH{{wwRRWWaa\\jjffaaoojjffoojjssoo{{wwss{{ww{{  ( @   ( @ {{wwssoojjffaa\\WWRRHHHHHHHH{{wwssoojjffaa\\WWRRHHHHHH{{wwssoojjffaa\\WWRRHHHH{{wwssoojjffaa\\WWRRHH{{wwssoojjffaa\\WWRR{{wwssoojjffaa\\WW{{wwssoojjffaa\\{{wwssoojjffaassoojjffssoojjssoossww{{ &h( @“fft^^iYYvv̳Ʈzmmi__uuEBBPMM|{}olŹ涭ٿټ̢ٷŸʬŢȥӹ̨溛ЪԲ֭װڵ۷߾Vyn~pYv~~~}}}|||zzzyyyxxxwwwvvvuuutttsssqqqpppooonnnmmmkkkgggfffeeeccc```___^^^\\\ZZZYYYWWWUUURRRQQQPPPOOONNNMMMLLLKKKJJJIIIHHHGGGEEEDDDAAA===<<<:::555333̩ߢPyGYVPS|öjOPвfMPSVövVGpߪwIMPSVYöuYJƪHIMPSVY\ܪlIMPSVYȹ总ܪnMPS]w}zwsڪqPZnbf}zEF٪Ĕb`bfiU]nªDCتY\`bfk`S\UVWbtɺ֪eY\`bfkhQzk[XY]mwժY\`bfkmRkvRSWj|~n^[]dowҪc`bfklRi~PQRSTUV_r{m^`bfkf_kNPQRSTUVWXYa{l|gSTUVWXYsVVVzx\`vLKJbtxzuoii "%'V^gigĐ!3752/.,+-0*6:::::::983 ;;;;;;;;;;(!@@@@@@@@@@#!)<<<<<<<<<<4=========4AAAAAAAAAA&!$BBBBBBBBBB>>>>>>>>>>1 ?????????? ????( sggUOOĻ{{κzcaտ˫÷ֳԯܸzgq~~~|||zzzvvvsssqqqmmmddd```___XXXWWWUUUPPPNNNEEECCCWWWWWWWOdkljh`WcF @)>gi^L" 'CPebT:&Aa=-N\M@FORUc^=-HL4DS[YI7f]_F,---+18KUgZJ*-04.2563/3aW=.5EG1!#%,78V=4$@;B<99?W (XW  WQ lPSnS]w??}zs  ( @ KKKKKK___wwwwwwwwwMMMMMM\\\555:::DDDKKKv___EEEnnnPMMemv wwwAAA \emv wwwJJJmmm꺺 T \emv̋vvvZZZ涶mmm \emvkkk⫫emvqqqIII洴uuufffzzzvxxxIII᧧vvvínnnsssáȉKKK婩vvvֳssstttpYvwwwLLLnnnθtttpppn~VyeeeMMMxxxwwwǵccceeeyyyOOOzzz񿿿össsPPP}}}ҽÉUUUӻʶވooo߰۾```浵yyy궶޶|||Ӣ涭Źՠnnn溛֭Ъ̨ȥޟʬӹ̅t^^}ټuuٿꥇ}}}|{ߊvv̳̳̳̳̳̳̳̳̳̳̳Ʈ??00(0`fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff______RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNNNN~MLNNfff__ŕNNfff__ۿٽټػ׻׺׸շնյԳӳӱұүѯЮЭЭϬΪΩ̦̦ͩͨͨͧDžRRfff__ھڽټػ׹ֶָֹյԴӳӲұѰѯЮЭЬЫϫΫΩ̦ͨͨͨDžRRfffihͨͨƅRRfffihڿھٽؼػ׹ַֹնԵӳԳӲұүѯѮЭϭϫΫϪΩΩąRRfffihڿٽټغ׹׸ַָյԴԳӲӲҰѯѮѮЬЬϫΪΩÅRRfffihڿپؽػغ׹׸շնԵӳӲҲҰѯѯЮЭЬϫϫÅRRfffihЭϬRRhffihھٽټػغ׹ַָյԴԳӲҲұѯѮЮЭĿRRfgdihڿپٽػػ׺ַָնԵԴӲҲұҰѯѮRRbibtmڿھٽؼػ׺ָָնյԴӳӲӱҰѯRRffftmӕұұRRffftmټػغ׺׸յԴӳӲRRfff{q˟ÿڿٽٽػغֶյԴԴRRfff{qڿڽٽؼַָնյRRffftڕֶַRRffftΟۿ۾ػغֹ׷cbffftٽٻغ׹ihffftڿٽټغihfffɇy╕پټihfffɇyۿھihfffɇyihfffŒ{۟ԿihfffŒ{ysfffŒ{ysfff٘ysfff٘ysfff٘ysfff٦ysfff٦ysfff٦ysfff㭇ysfff㭇ysfff㭇ysfff粉fff粉Ɔtmihfff뷐tmTzpfih뷐tmŕT111ڑCih뷐tmөTT1ڑCihŕ{qfTה[ihŕ{qfښcysŕ춃ttysŕ涃tٷihŕٷٷөө̦̦̦èè㺡㺡㺡㺡㺡ززززӦӦʤʤʤʤɘtށ???????׺????????????ػ????????????ٽ????????  ( @ iPiPiPiPhOgNfNdLcK`I^H~[E{YCtT@qQ>iL:eH7\B3W?0M8*H3'=,!6'*#  -# hOiPiPiPiPhOgNeMdLbJ`I]G~[ExVBtT@mNiL:eH7\B3W?0M8*H3'=,!6'*#  -# hOiPiPiPiPhOgNeMdLbJ`I]G~[ExVBtT@mNr3"4ćՒ 8dZ=>r3"4ˣ10 T8r3"4MD1 T_cWQr3"4tuvvwxyz T)8q{\d|}~r3"47jkkllmn T)8ooohppq\crs3"4`abbbbbbAT)_cdef^g)hi38"4RSSSSSSSAT)8+UVWXYZ[\]^_"4JKKKKKKKA)8!,HLM OPQ+3"4$EFFFFFFFA)8!GHDI10-!3"4$?@@@@@@@A)8!,C.<<.D!3"4566666666')8!,9/;<=;>!3"4$%&&&&&&&&'()*+,-./010!3"4LL !"#  =777777:77777? ( @̲ҼĨмffff^`bJDllj|zꬮhjxxzxpTTbdZD:ؼ촴VVddnNNhhV@8̰ммdddd\``HDllh|x謬hhxxxx`dXD8ppXXDDhhTTlLLT@8||شdd\\ܼ褤|||XX԰شXXxLL``dd``LL\\丘ЬȨĠ䴬ĸ\\@@00((\\ttD0(44TTLLdd씔llHHXXX pp\H@88xxx,,hdTPthtttlllpppLLLXx<<<```\\\t`X<<8LH@dddPPPPLLHHHxllDDDddĐ444HDDC/C$K0dux- 2νux/.u/I Kνux/KII Kνxux9I Kuν11. /Ώ /Ʋ.K.xVߜx-.|*u1K9ٻ|Yޯ۫K9G01Ȼ|YПçӪK9.9/Ȼ|Yڑϭi4;99-2G |YÑš3"49x9G |Y3"4۶xҏ |Y3"410 p|Y3"4xI//1 p|Yޤ3"4 p)Y3"4 p)Yiiij3"4yz{{{{{{dp)Y}~w)Y"4nooooooodp)Y+qr7tvUVWwY"4kllllllld)Y!,9GI K+3"4$efffffffd)Y!g9/D10-!3"4$bcccccccd)Y!,/.--./!3"4_````````')Y!,7/9-;9!3"4$%&&&&&&&&'()*+,-./010!3"4GG !"#  ;?PNG  IHDR00W pHYs+tIME (6 oIDATh[lTk:^@HP˵/(j@T 1D# >`xȓ*!4&@QzΑN)RZ:-ӹ{gOr=!&d2[PJWnڽpowsΏ>RcH>0t00ЛfbMn)4/  `SI0GPL&aR$::Hh wD gR{` mm%0az(B ~4LO"Jx^.䁶"r6oV7R 1vRjAB6qi" \hZ@iBE$D~+;v&~=3>얈S?"w3aBF=,Z0LPJ "o("Z[_99Ǐ4&)St"4u*N"JZYJ2:dt aY򞫫I=?&7EOX5k0pSBk  :ڨQq#Gz5 d: (*>H`Db}}wwߐ { EGS֭CDf2Vuڶ>}:M 9*A=:qb1De7& AT&R KbXg-Sv1uZzd&ㅁ,ŋgt8Cee.?JnٳCv%ŋ1kkqqp]\ ZBb2è CQ545Q=mn4q%hCmT4J$=4TW ̙4.XC-[J\ڼYFn"ҋL$0xcܲnQ(F}YJ~/**|w~擑c^~9r%TN]SVM󎓳'˂wϜ!u+/ P*E^kΡCe@ٶL0s8;wW@ږd27X.S)DC%T*EoQ"̾T(Ps *-2\sc1z@*MJrUPױguJ&&Nʁ8{2`K mLRHر~*VΑ#ǏGq b)4qϜ!,B/x,%XV))!k0ys 5nL uus 3B(7BӼU"PRT =;(Jlnhk+VBu1 c1u<0R4s%Bc10M%Kp)|{R;e˖<(+B׽+ralw煜 ѣ ^6iR|\ΣlͲ0]з/PJyRzq2GgDs<*V@1|4JꫯP~MT>* b QRJ!|"^+ eTR9G#;:HmߎFTUr9b- 0~*ѽzRيSS*Ul֯|챲3{mD(y7Vm#]B ^pI42Usxʵk˂W$m9z ykUu8.F]ǎFUP^bsRhQ xM|&dg'3/1r_&^@?<tw7(-BN+(*!e ZOQr*uNM _y+YVR^2{;_#0+!`=d?t/seL&CIdKKɸ%soT&.srZT.ຠi,<}4Av})(/eH4"C"}eMM*ˈӽ=<%0 C x B UXABASEXACODIGO XAPAGERESULTXAUT XTESTVARIOSXTESTVARIOS_INICIADOXANALIZAR_MOVINICIALDEY_FUNCOESTADOXDSXOKESTADOVISIBLE AN_CLIENTES AN_SUCURSALES AN_PROVEED AN_BIENES AN_LINEAS AN_GRUPOS AN_BULTOS AN_ATRIBUTO AN_RECTAL ABMVRECTALPV AN_TSP_LUGA AN_TSP_CHOF AN_TSP_CAMI AN_TSP_TRAI AN_TSP_TSPS AN_CCFORMUL XQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQBOOLEANC)TCC+C CO6TCT C F#)G(SET ORDER TO &xaOrden T CNearvT CExactv% "GF G F ET CSET NEAR &xaNear SET EXACT &xaExact F% #SET FILTER TO &xaFil SET ORDER TO &xaOrd % BC   BU XTEXTXACODIGOXATABLAXAORDENXAFIELDXADONTUSENEAREXACT CHECK_OPENEDXARECXAFILXAORDXANEARXAEXACTXAFOUND+gQSTRINGQSTRINGQSTRINGQSTRINGQSTRINGQBOOLEANQBOOLEAN% CTCC+CO6T CT C F#)G(G((T CNearvT CExactv% &GF G F#LOCATE FOR xaCodigo == &xaField T CSET NEAR &xaNear SET EXACT &xaExact F% #SET FILTER TO &xaFil SET ORDER TO &xaOrd % BC  $ BUXATEXTXACODIGOXATABLAXAORDENXAFIELDXADONTUSENEAREXACT XTESTVARIOS CHECK_OPENEDXARECXAFILXAORDXANEARXAEXACTXAFOUND QSTRINGQBOOLEAN'TEl cliente est en uso en T(CComprobando CCVENT7TCCCVENTCOMPROBCod_Cli$CComprobando Ven_Oper9TCVen_OperCOMPROBCod_Cli BUXACODIGOXAUTXATEXTXOKOESTADO SET_AND_SHOWAN_BUSCAR_GENERICO_SEEKAVANCE QSTRINGQBOOLEAN)TEl proveedor est en uso en T(CComprobando CCCOMP0TCCCCOMPCod_Pro$CComprobando COM_OPER9TCCOM_OPERCOMPROBCod_Pro BU XACODIGOXAUTXATEXTXOKOESTADO SET_AND_SHOWAN_BUSCAR_GENERICO_LOCATEAVANCEAN_BUSCAR_GENERICO_SEEK!QINTEGERQBOOLEAN%TLa lnea est en uso en T(CComprobando Bienes.TCBIENESLinea BUXACODIGOXAUTXATEXTXOKOESTADO SET_AND_SHOWAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN%TEl grupo est en uso en T(CComprobando Bienes.TCBIENESGrupo BUXACODIGOXAUTXATEXTXOKOESTADO SET_AND_SHOWAN_BUSCAR_GENERICO_LOCATENQINTEGERQBOOLEANQBOOLEANQBOOLEANQINTEGER(TEl artculo est en uso en T% *oventas TMPV2CTMPV2 %rTMPV2occformul %rTMPV2oformulas%rTMPV2oformulas$rTMPV2otventas$rTMPV2ocompras%rTMPV2otcompras"oTMPV2TMPV&  Ta%73TCTMPVCod_Ins (CComprobando Ventas0TCVENTASCod_ins1TCTVentasCod_Ins1TCComprasCod_Ins2TCTComprasCod_Ins1TCmovstockCodigo1TCCCFORMULCodigo2TCFORMULASCodcomp2TCFORMULASCodsust BUXACODIGOXAUT XTESTVARIOSXTESTVARIOS_INICIADOXANALIZAR_MOVINICIALXATEXTXOKCOD_INSVENTASBULTMPV2AN_AGREGAR_MOVSTOCKCODIGOCCFORMULCODCOMPFORMULASCODSUSTTVENTASCOMPRASTCOMPRASTMPVTBULAN_BUSCAR_GENERICO_LOCATEOESTADO SET_AND_SHOW TMovStock%cTTMPMVSH^_ noconverQXmotinvQ  Q     TMPMVS _moconverQXmotinvQ  Q    TMPMVSBINSERT INTO &xAlias SELECT codigo FROM &xTMPMS GROUP BY codigo U XANALIZAR_MOVINICIALXALIASXTMPMSCVCOD_INSCODIGOCONVERMOTINVMIMOTIVOTIPO TIPOAJUSTETMPMVS!QINTEGERQBOOLEAN(TLa sucursal est en uso en T(CComprobando CCVent;TCCCVENTcod_Cli+STR(suc,4) BUXACODIGOXAUTXATEXTXOKOESTADO SET_AND_SHOWAN_BUSCAR_GENERICO_LOCATE?QINTEGERQBOOLEANQBOOLEANQBOOLEAN%TEl bulto est en uso en T% 0oventasTMPV21rTMPV2omovstock  0rTMPV2otventas0rTMPV2ocompras1rTMPV2otcompras.oTMPV2TMPV&  Ta%7TCTMPV Cod_Ins+bul %Cbultos CQbultos<"obultos% (CComprobando Ventas4TCVENTAS Cod_Ins+bul5TCTVentas Cod_Ins+bul5TCCompras Cod_Ins+bul6TCTCompras Cod_Ins+bul5TCmovstock codigo+bul  BUXACODIGOXAUT XTESTVARIOSXTESTVARIOS_INICIADOXATEXTXOKCOD_INSBULVENTASTMPV2CODIGOMOVSTOCKTVENTASCOMPRASTCOMPRASTMPVTBULAN_BUSCAR_GENERICO_LOCATEBULTOSARR_AAAIDOESTADO SET_AND_SHOW?QINTEGERQBOOLEANQBOOLEANQBOOLEAN T(TLa atributo est en uso en T% 0oventasTMPV20rTMPV2otventas0rTMPV2ocompras1rTMPV2otcompras1rTMPV2omovstock.oTMPV2TMPV&  Ta%&7TCTMPV Cod_Ins+Atr %Catributo ^Qatributo<$oatributo% (CComprobando Ventas9TCVentas Cod_Ins+Atr:TCTVentas Cod_Ins+Atr:TCCompras Cod_Ins+Atr;TCTCompras Cod_Ins+Atr:TCMovStock Codigo+Atr  BUXACODIGOXAUT XTESTVARIOSXTESTVARIOS_INICIADOXTMPVXATEXTXOKCOD_INSATRVENTASTMPV2TVENTASCOMPRASTCOMPRASCODIGOMOVSTOCKTMPVTATRAN_BUSCAR_GENERICO_LOCATEATRIBUTOARR_AAAIDOESTADO SET_AND_SHOW2%CxAlias?TTMPVHT+ QSELECT &xFields FROM &xAlias GROUP BY &xFields INTO CURSOR &xAlias2 READWRITE  .oTMPV2TMPV 2+0rTMPV2otventasU XALIASXFIELDSXINICIALXCERRARXALIAS2COD_INSATRTMPV2TMPVTVENTAS0QINTEGERQINTEGERQBOOLEAN&TEl talonario est en uso TPoven_operC     tmpvalborr% ATHay CC Z% recibos en uso de este talonario !!! BU XACODIGOXPVXAUTXATEXTXOKVEN_OPERRECIBO ABMVRECTALPVDESDEHASTA TMPVALBORR8!QINTEGERQBOOLEAN T*CComprobando tsp_Asig<T/El Lugar est en uso en el campo LugarCarga de 5TCtsp_Asig LugarCarga5T(El Lugar est en uso en el campo LC2 de .TCtsp_AsigLC2 BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN T*CComprobando TSP_Chof%TEl Lugar est en uso en 1TCtsp_AsigChofer%TEl Lugar est en uso en 1TCtsp_camiChofer BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN T*CComprobando TSP_Cami%TEl Lugar est en uso en 1TCtsp_AsigCamion1TCtsp_ChofCamion BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN T*CComprobando TSP_Trai%TEl Lugar est en uso en 2TCtsp_AsigTrailer2TCtsp_ChofTrailer BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN T*CComprobando TSP_TSPS%TEl Lugar est en uso en .TCtsp_AsigTSP.TCtsp_CamiTSP.TCtsp_ChofTSP BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTAN_BUSCAR_GENERICO_LOCATE!QINTEGERQBOOLEAN T3CComprobando uso de la frmula'TLa frmula est en uso en %Cproducci Qproducci<oproducciC                    %3T&La frmula est en uso en Producciones  T T BUXACODIGOXAUTXOKOESTADO SET_AND_SHOWXATEXTPRODUCCI XARR_COUNTCOUNTFORMULAFOR1FOR2FOR3FOR4FOR5FOR6FOR7FOR8FOR9FOR10FOR11FOR12FOR13FOR14FOR15an_Buscar_Generico_Seekan_Buscar_Generico_LocateV An_Clientes An_PROVEED An_Lineas An_Grupos( An_Bienes4an_agregar_movstockO An_Sucursalest An_Bultos An_AtributoGCrear_Agrupados=" An_RECTAL# An_TSP_LugaD% An_TSP_Chof& An_TSP_Cami:( An_TSP_Trai|) An_TSP_TSPS* An_ccformul*,!1AAaaa!aaaaaaaaAaAqA6!Qa3AaaAAAaAAq1A3q!AQaa2AaaA1AAaAAq1A3qqA3A3Q3Q3xaQQQAAQ!A1!!!A2rQ1111AB#23Qw!Aq!Ar!"ARQaQBA2qw!AqAArA"BA3qqAA4a!A2QQ3QR3Q2Q!!3Q31qAAr0 21A46 ?V hx dqan^k/JV$a&l&.2-./d/g1t&r13~/34845@5(7H578Q8,< hF   600 %(  @  .TKzqPDa[ZZo؏IH33~vfXQA>{XU{tyi.#0% mhΈwJ)!"z%X&%%0  [Xٍ}G3<Y$51 '1rqݝݽ#5+  @@^]ld VVVV[T&9lFɏ/ @@`^б)))7\WIn|׎?bxJAh]7# -wrG. /wa}GGG/ ͖uoS/kϞggg\><7Cɽ}bDߗqSyyy VVOYħu藗vaVjàJ@=/?J??(0 `  `]]Y`3'_L;e?68 lfNEɆnccV^eed|ҜܕUU--؇qcyl/&ȉsoǏ\[ xw~păuI rWPhf!!aa·wf4'!C9.!! HHꖋӈvM?>@ +t55%33֊vgY`%w>B?*1 1 %%؅r}nykA9Ŭ *0#1//֎~ĉyB2"..%,FFZZ駦D,Z j T>;  *"# DDMMmlws/ ^^^Mf_~RM !-5vaǐ=%EENNpmtiB >>>Bۚ_W''9NX_՛v}~{3.EDQNrk¢jws˼upPo}S&WcNEZN{lyu},mYTqkM_8q JgPكm{v666mbTR^O1$! s "|w]]];&$"/ܻؐvwt^; "ڃ^ Bvvvg4 983C¯ߎ}k@DTWXOOIX҅hWZ}󜞦̧ԅ... ff^lԿɢx{៟RRR8 {qi~ɻ朇~Ş¡uuugq_Z Il^ZB??( @  ; p$5H ###(ßlfE6NAΎ܃M?5  b9.ea̟k`~soaZ,  xww|䣜xuVV--~~ۊiZ{H ZZZU؛܄VO<<|``餞aO̚[!nvLCUU>>HHfR֢u6%!]TtsJJ55s_ؚWF;W.@6--  ((܈w؍|qc\,  i|.@?   yy䠒Ԁj|?[ v TMJ*0'0*``쯥w_̝& Bt0JCѪ)),1&11 IIpYԤʊ9$w9*99 */'1 1XXyeا⺈{'Vz&fKI!(1"1!--NNggݛoX/- kFLX ƦE-2.EEJI[Z؂|zvøaT ukiӨ}OO !CWbinsħ:qr/?/FEMIbZҀuqmÛBnecqk{u$*Sn|f (UROEUJk[Ӆuok—w *$"zȔiR[BQ$f et_Js[Ԋvrm'''5 !xғgGCHG1 b(|j֎wsoVVV *!6ʬscloi_B-*$ Є[ !osoqqqB*(%3ܰՃux{ugF*2{ED (¡n751Cܩ݃~|nQ3ELHkӍ$$$QQKXݥރwlZINhࢄSEEEjjbnΙp_^n㦆웍𸸸Јbbb= uukԹ}ꭊuqۡ{{{oyͼwmŖħĢƙ7!}f^UàYGCR9.??(0` %  )$ #P'y!EH6EF  NNN9˞}_XTEI:}sϨy=-/  ***/±G$Pe"qXO͑IܢŚyg GcOG?ϛ::  77굫Y?ؑͥx4!Me98+LL##  33ýfMՃoڸA-#(Pp$s%wUS// ++nnv]v^۸ם]L7H@ nqRVP99,0'/*0'.##YYܑ|jOߴ~oZvvt1-&}C&mp[/-*;ٹ͌|uv|~zroX8'B|E['O~畕{,,,10,EسӍ~{~xoeD ?EHQu'kMQQQ NMGXѿڰَ~}{ueTHEGTdݩ iv򀇒iii1 aaZoש؈}sldYLHVhȓUԓ}ȄÄZ}}uҡɂnb\[_lƔϒԚńz 'wigpŔ΂wt丸ӓȇPPP ! 1ʰҜsieʦջգ̎ggg+0/,8ͺצ܆mdƑƘƨDZǣȔȁM >:6Huq“ėØď000- X3(*]ޘeOI e+WG ???? hF   600 %(  @ 4GB$YYY]쨨ͼxxxwwwHrrrx޽^^^}eddzyy$@/:4* <95!=;:<϶Ѫܰ6εŹ׷՜։ew@h,h bR`1#[5nme]YO[#]ٌڂJH7)*4<;;6YWW#<::=rZYytźÞɚюwۉk{XoHg<~aDBBB㼵ŰлݸܨݓlzJ{Co$ecd` YNIb9EDDNҷXˑ~%rheeaa[WPI`2MKKZʒIqߛߔj1 zje j e ax@nkkgf]lܐyrHAgD97;DOPLLi~~s9kY^\[G@GRUJO\[TPOhmkk䶉ROMLKVJTY`jcXSPOfUTTƫ[SRSVX_iuxk^WTRRgqgfgjtق܇~qf_[XWViИՍ؈ڇ~tmgb`_^^neccY޺ۍՂzqjfffes855,ߝݙܗܖܕٓԍ̇Ă ߞޜߛߚޚۙיҙР˽ֶШѠ֠ۢߣߢۡ֠ԥQS i0%~PFogĿԾӷЯ̨̩& 1//-LKKMnlln 4O???( @ ---"dddWvvvyyyy|rrrc===0IIIB״e;;;8uuupppzzzuZZZjeeejjjxxxxxxsss9999~~~tttooouuunnnwGGGC___z ,,,"^^^{  *(( ?==;URRVDAA<~~yxxvtt;e8i]H taxrj5zsjP|wkussí̤ӞۗzvꕇQvttƻɻĭĤȞɔ΍s̀`uOqDr;q4p-g&] W]"sT˯ոۼ߹Ⰲvv{?|Aw6je]_ ` ]ZVNGL eB\ҭ\zްS'sh ddec_b]YWRIL e=0ض>Yԑڒ<xuwulfZZ[YTLP k;̶HEEX]֋܆ݎV62C| $')~,7`IGGߢb[zیzzZD9q_L9@:?GPUQOMQoLIIۧqPg`c`UB@?MORJFNX]XSQORnNLL |ݯTWNSOMI\EOXYZXcg^WSQOQlQOO^[[O㾧ZLLLKKNMORW^gqnbZURQPQkfbb522#fVUTTUXZ_foy}th_YVTSRTlxtt" xgdccdgnwڂ܈قwme_[YXWUWm/|wwwy؁yqjea_]\\[\p;Ҳ܂ysnjgdcbaaabtȸGoܒ؊Ԃ{tmhgggfgwʷSPMMBߜݙܗۖܕܕڔ֍҉˂x̷`&##ޜݚݙޙޘݘܘٗ֗җΘϡl ߠߞߜޛܛٛ՛ћҤxտαɥ˟ϞԠۣޤߤܢءաԧʄPM Y!sE7dXxĺлͲ̫ȣɡ̣ЦӮcBaD ^J(m]B?mg`_zxx?==FDD mjj%Eg(0` % \\\Btû|||oVVV: 333*؝"RRRTfff@ssshhhhhhooowww}}} """-kkk^^^gggpppzzz{{{{{{rrr###&lllmmmuuuzzztttsssxxxjjj||| wwwqqqnnnuuusss666*}}}yꮭ򳲲M $## NIIG𚚚& 855*TPPFa__`tqq|C??8aZZ\nmm?==`\YYp}zzvppf82(@887ｼ첰쮭񬫫ٻݻ}}rrT'cN/ A8-IA9ldZ-idaIdaacurrȴ޹æǥϚ֍ڈ}ru_pVrSb둃~{ww:JGGSmiimƹïė‹}Àoy`rUqOrGsBs=s7p2i.d)^%\!_$n:ydԽ¾ſǼƳǯȨȠɠ˗ҜЈp}dۄbj}Ky9z2o.k)k$l kihf`YQ L JL ]&kT¼ŜϩղͰչӥƉ{gqCt2s1x7m fd` X X \]]ZYWTOJFHY gM˟ajÊעؘq'0%uoe ccdcdbZab_\YXWSMHJYgIiƓ~KJ|֝M'~|wnlgeghhbaa][WUSLHIXhF=Ѧ?9WЄݜݕԈ<4xvw{{qhdZUXY[ZVQMO^rFӱ ۴XUbԈߝߗۃܒSO")3M rlvyywut u'>b  ٠aQc{ܒڄyݍ^T</01247BGMTWTQONNN\vԤ|RPhghlXiWM@@AAWKMHJCCGLSZ]YVSQONP[uokk]֧VRZSU]Q]QN??B@G[S`cUMRXac]XUSQPOP[tMII:޷^RSWOSKNOLHgZFG\NTZWZ`iib\WTSQPOOZr*&&ǼhULJLLIKJJNJLMORUZ_dkqnd^YVSRQPPOZr쿴4.. ݫt]QOOOOONPSRTVZ^ciowyqha[XVTRRQQQ[r뾲IDD*ޯeYWVVVVWX[\_dhnu|ׁ}tlf`\XWUTSSRR\r꾰WRR6{㸕peaaa`aabeint{ڃ݈ۅ~vpid`\ZYWWVUUU^s꾮b^^DmhhPê|rnmlllmosx؀݈ލڅ~xrlhc`^\[ZZYYXX`t꾬iffO:66.ʼń{{zzz|܄܄~xtokheb`_^]]\\\\cv뿬pll[%!!Ъݠݝߚߓބ~ytqmkhfdcbaaa````fx긠urrh Ҳ݋كzupmkiggfedddddcchz칠{xxtԹޙܔُ֊ԅ}xsjhhhhggghm}~zznޛݙܗۖۖەܔ۔۔ْ֌ф΂{utno`[[BޜݚݙݘܘݗܗݖݖܖٖۖזՕҕДˑɓ˜ȭ+&&ޝޜޛݚޚߙޙޙݙݘۘژט՘ҘϘΛФѷ ߟޞݝߜߜߛߛޛݛۛٛכԛћНҦӷŹѸѳЮԬ֪٩ܩݨߨߟޞݞ۞ٝ֝ӝҟԨԷƷoϹȮØǚ̜Ӡעۤߦݤۣآ֢ԣժֹoB uIyR#lU:mZ{ǷκȰũŜɟ̠ҥԧըת׫ٲڿZ^}T {[&g1,~kNBucѿȱêӿվ§͸ԛ S7I1 N7 @5%B>>4NJJLvqqjڣ  IDD0c__Prppp¿ਤ'9Xx¡? ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5}½mlܒHⱢjhgqHecbtJ`d_!, S H0U*<(CHE<,@$PA@QƁAJH0$XK3԰<|ω. bDJ%Bhu' E !043,40b1cˮ4j9 b\7-R6E!!%xq"F $0`h@ LrRP VB\+,Z(oK^ 1!u]:uصs'`I<;]7T̀9@5qgZYihwmGY*d!!sQJvpXq!y|r[Wy jQ G!L[O25"",H#d` < ~D"^}0 %Xr &Ic}QG1 ɑDl 't@$Vuhp@&(\OP"h (B(1襯Mx"V!8@J. 'HS: )@lbJ ^:z *4[֦D; ( @TEq5Lr7?Giistuvlmdnopw.h'#f5L2aP;;ijkRSlmdnopTfY6F@SegOT'E)L\a?b^NZcde-&B()Y\>]Q^WX_`4-.EYCGVZX[K4O&TBE)0PUVWSXKK4--O&&BE)0FPGQIRSJJKK44BELFMN$$$$$$$4E0FGHIA99<$4B/C?@D9<=  3$#>?@38,   9:.(67;,* 3$4.(567,* &12*+ ,-.#/0   $%&'() !"#         ? ( @ ,,,999EEERRR___lllxxxʦ>]|$$HHll>](|2<FU$mHl*>?]T|i~$Hl>>]]||$Hl>*]?|Ti~ٓ$Hl>]|(2<FU$mHl>]|$$HHll>](|2<FUm$Hl*>?]T|i~ܦԺ-------------פ-------ʦ---------------Ӽ-׮-ܥ-ͱ--Ӽ׮ͱҙ-------------------------------------#---------------------#-----#----------------"-%%%%%%%%-------#--------------------#? ( @ ,,,999EEERRR___lllxxxʦ>]̳Ʈ|{vvٿ}ټuut^^ٷol}}}߾̢i__Բ۷ڵװ溛iYY֭Ъ̨ȥޟʬӹ涭Źnnn|||yyy```oooUUUzzzsssPPPwwwccceeeOOOtttpppn~VyMMMvvvpYvLLLKKKuuufffNNN333III~~~qqqZZZmmmWWWkkkJJJ===AAAzmmQQQDDDYYYPMMff“GGGHHH^^^\\\555:::EBBggg<<<*******************************************************************************e{|}*********Ϙez{|}*********Ϙe{z************eխw{zs*************{j**************kȇowlʲ*****t********jo!oh"*************!o!"e*************!ots*****zz~********!o*****fv********!oh*****zxf!********ol******"e********]******"e********eee******|}~q!z********lm#*****stuvhhwxwy********]^*****cdefghgijk*************UVWXYZ[\*************MMMMMNOPQ************HHHHHHHHIJ***********DDDDDDDDDEF*********BBBBBBBBBBC*********????????>@************:::::;<*******5********************12******************-.///**************++++++++********? 0 p? ( @ ,,,999EEERRR___lllxxxʦ>E̳Ʈ|{vvٿ}ټuut^^ٷol}}}߾̢i__Բ۷ڵװ溛iYY֭Ъ̨ȥޟʬӹ涭Źnnn|||yyy```oooUUUzzzsssPPPwwwccceeeOOOtttpppn~VyMMMvvvpYvLLLKKKuuufffNNN333III~~~qqqZZZmmmWWWkkkJJJ===AAAzmmQQQDDDYYYPMMff“GGGHHH^^^\\\555:::EBBggg<<<)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))e{|})))))))))Ϙez{|})))))))))Ϙe{z))))))))))))eխw{zs))))))))))))){j))))))))))))))kȇowlʲ)))))t))))))))jo!oh")))))))))))))!o!"e)))))))))))))!ots)))))zz~))))))))!o)))))fv))))))))!oh)))))zxf!))))))))ol))))))"e))))))))]))))))"e))))))))eee))))))|}~q!z))))))))lm#)))))stuvhhwxwy))))))))]^)))))cdefghgijk)))))))))))))UVWXYZ[\)))))))))))))MMMMMNOPQ))))))))))))HHHHHHHHIJ)))))))))))DDDDDDDDDEF)))))))))BBBBBBBBBBC)))))))))????????>@)))))))))))):::::;<)))))))5))))))))))))))))))))12))))))))))))))))))-.///))))))))))))))++++++++))))))))? 0 p?PNG  IHDR"!ylsRGBgAMA a IDATXGXip]e~[n&6[ӽʰ(8#Je/P6#3,3(80 A+EP(S*K mI Y r~}gy=̈́ʥයaLaX ? 9r9 5|" td` EIʄNM#ubκ@c=PVU!#-’4|>ƛJy5 t+.N*ejЬ*L:R(.l=79ҏ!hzrRQ :ҩ$,#iZLӄբ!H gz<͒kxe3r,)*˵Lb1t=g8bD1I0n$l=o4NِNfMe0xحvZJSȥ`,䳺VV6}.n>p/` 2TJW!.B679L ̆ Qx|B;,3*kR1e0<2ӓ| tE;VU"oA7f|Ď9.'JN2dt:H4oӉ|L&3[`6-Q;0GPFEs8ǎIl>k ֬n ~K8Kgݷx%,i3g2BHgp0EY ݳgW,3N ;٩=^}! =Grb#,%=pqo'|/< M}LD&$̧DqxGr1\s5DU7a:Dr1-Fbs'ID1C. "!w8Fabrџ=EBv/{p;G pl(v)Lse 38}s Wg)+!#`0PR=) x\>vN;W_Lݴ J9ZHQR\JY*V758:7>}_*-^9ZMUTUg|g;B z V\v(ݠ0݂- @fLCR<!$CR;r<N?`ӈ3CszpW?w߉ӚZqYgSD*2hZ  TdZЀwⲫ.u[`hnmrǭhGFa4Ÿ5 k}9ܫjQt= }rlݶ [.FV`qxx` 0CK|~iÇQ\gv= )iOML &cXLgpy!??>cX܌'׎nB^Xzcm;W^J=,Ļ GU2|?/w}]HEQW[aÌgмJ*n AR5M~}ۯ MבȬox*qiU#.%v_M˝T`\m ƒJdbՓghRL(1e?}[Tl ̶vrbeVnW@. QBIE ^K%N ⮛`%g8fq׮Dl>֯݀d6/ N6ED(5::RYeY<"CZΥ'ICr?|4 _Q ~¸Jtuv!<AM~1?\:a%hŊp8qS$=KIEJIfq.s9 Aˊ$1pVod#fC048k֫^~.yOU  _I" e4^T7uJC:V`&d,v$(rgD]yvA(qW{{{UYP-Ho#dҿg ,5>K`Go1#$T-8hw7޴p8~7$_)t|f IE&a+d/ MH@:W+|Juae#6k@\RU6+xGXL%9yG$k)E$d+ .I$i\T@qzJKEwD!PHyM=o5ki5qS2F)N (Tg*T5uj30-[rJ!ψ r('q8OeXÆiL4u89hIF=j? :15&3r&1s=K<0Ņ?/+$q=B *6 m4сR1JhgGP COMMENT RESERVED  WINDOWS _6AD0UHDIZ1416655344 * o | a COMMENT RESERVED K " WINDOWS _3K511RX1Y1481863459,P2' COMMENT RESERVED  WINDOWS _6U20UOLKH1481869007\q/ WINDOWS _6U20UPMCQ1481864822s`I!i! . COMMENT RESERVED !*WINDOWS _6X91C1BHI1489875746>B4GBSBF(B5B <*COMMENT RESERVED B WINDOWS _4MS15LYVL1489876710ABnB[Fq>nm COMMENT RESERVED ;A WINDOWS _6X80XEYHX1489916983(A=; COMMENT RESERVED  WINDOWS _6X80XD24B1489917006% 2 ;*kh  mD COMMENT RESERVED *WINDOWS _6X91C1BHI1489917131uu/uuWuuuu*COMMENT RESERVED u*WINDOWS _6X91C1BHI1489917134v"vCvvkvvvv*COMMENT RESERVED w*WINDOWS _6XA0MVD8A1489917191x.wxWw6x-x*WINDOWS _6XA0MVD8B1489917191|wwwwww*COMMENT RESERVED Cx]x WINDOWS _6X91C1BHI1489917201Dyxx*yxbyYyoy COMMENT RESERVED }y*WINDOWS _6XA0NH3SE1489917732-zyyzyKzBzXz*COMMENT RESERVED fz*WINDOWS _6XA0NH3SE14899179551{zz{zO{F{\{*COMMENT RESERVED j{ WINDOWS _6XA0NH3SE14899243775|{{|{S|J|`| COMMENT RESERVED n|*WINDOWS _6XA0V2Z4R1489925060.}||}|L}C}Y}*COMMENT RESERVED g} WINDOWS _6XA0V2Z4R1489925075L~}}.~}j~a~w~ COMMENT RESERVED ~*WINDOWS _6XR0OIKO81491163977H~)~bYo*COMMENT RESERVED }*WINDOWS _6XR0OWYNF1491164335B'f]s*COMMENT RESERVED WINDOWS _6XR0OWYNF1491164338B؀'f]s COMMENT RESERVED VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_textboxPixelsClass1textboxgrilla_textboxtextbox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 !Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_checkboxPixelsClass1checkboxgrilla_checkboxevn_not_valid checkboxClassPixels grilla_hlpf1textboxPixels1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Class1form_grilla_controles.vcx11+dato_si_o_si = .F. Name = "grilla_hlpf1" grilla_textboxform_grilla_controles.vcxtextbox grilla_hlpf1grilla_hlpf1_pro grilla_hlpf1!Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_hlpf1_comprasPixelsClass grilla_hlpf1grilla_hlpf1_comprasYcom_cod_pro com_fac_com com_causa com_op *com_cod_pro_access *com_cod_pro_assign nevn_not_valid cb_controlador Contenedor del objeto controlador del lector del cdigo de barras. for_sparce grilla_hlpf1_bultos!Arial, 0, 9, 5, 15, 12, 32, 3, 0 !Name = "grilla_hlpf1_articulos" Pixels1codebar_articulosClassxHeight = 17 Width = 60 Alignment = 0 Caption = "Check1" Value = .F. evn_not_valid = .F. Name = "grilla_checkbox" codebar_controladorcodebar_articuloscustomPixelsName = "grilla_hlpf1_pro" grilla_hlpf1_proPixelsform_grilla_controles.vcxCPROCEDURE com_cod_pro_access *To do: Modify this routine for the Access method RETURN THIS.com_cod_pro ENDPROC PROCEDURE com_cod_pro_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.com_cod_pro = m.vNewVal ENDPROC PROCEDURE llamada_busqueda LOCAL xcod_pro, xresultado xcod_pro=this.com_cod_pro do buscompras IN listados with xresultado, xcod_pro this.com_fac_com = LEFT(xResultado,12) this.com_causa = SUBSTR(xResultado,13,1) this.com_cod_pro = SUBSTR(xResultado,14,6) this.com_op = VAL(SUBSTR(xResultado,20)) ENDPROC kcom_cod_pro = (Space(6)) com_fac_com = .F. com_causa = .F. com_op = .F. Name = "grilla_hlpf1_compras" textbox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_editboxPixelsClass1editboxgrilla_editbox+cb_controlador for_sparce evn_not_valid editbox grilla_imagenPixelsClass1imageimageBorderStyle = 0 Height = 23 Width = 100 evn_not_valid = .F. cb_controlador = .F. for_sparce = .F. Name = "grilla_textbox" PixelsPROCEDURE llamada_posicionar SELECT proveedo SET ORDER TO codpro SEEK this.Value ENDPROC PROCEDURE llamada_validacion RETURN .t. ENDPROC PROCEDURE llamada_busqueda LOCAL xcod_pro xcod_pro=SPACE(6) do buspro IN listados with xcod_pro ENDPROC dato_si_o_si *llamada_busqueda *dato_seleccionado *llamada_validacion *dato_si_o_si_access *dato_si_o_si_assign *dato_limpiar *llamada_posicionar *llamada_adicional PROCEDURE Timer this.Enabled=.f. this.Parent.key_paste_interno(this.parent.nkeycode,this.parent.nShiftAltCtrl, this.parent.oTXT, this.parent.xProp , this.parent.oController) ENDPROC  tmr_iniciartimertimer containerClassPixels11codebar_paste_controller2 containerWidth = 37 Height = 33 nkeycode = 0 nshiftaltctrl = 0 otxt = .F. xprop = ("value") ocontroller = .F. Name = "codebar_paste_controller" Unkeycode nshiftaltctrl otxt xprop ocontroller *key_paste *key_paste_interno PROCEDURE Valid LPARAMETERS xret RETURN NOT this.evn_not_valid ENDPROC PROCEDURE When LPARAMETERS xret RETURN NOT xRet ENDPROC 1grilla_hlpf1_mailctas Name = "grilla_hlpf1_mailctas"  grilla_imagengrilla_imagen_okPixelsClass1 grilla_imagenimageform_grilla_controles.vcxform_grilla_controles.vcxtextbox1PixelsPixelsPROCEDURE When LPARAMETERS xret RETURN NOT xRet ENDPROC PROCEDURE Valid LPARAMETERS xret RETURN NOT this.evn_not_valid ENDPROC "xval_cod_ins xval_atr xval_bul form_grilla_controles.vcxcodebar_controladorClass1customgrilla_textbox_sparcePROCEDURE dato_si_o_si_access *To do: Modify this routine for the Access method RETURN THIS.dato_si_o_si ENDPROC PROCEDURE dato_si_o_si_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.dato_si_o_si = m.vNewVal ENDPROC PROCEDURE Valid IF !THIS.PARENT.PARENT.es_f1 IF NOT THIS.dato_si_o_si AND EMPTY(THIS.VALUE) THEN RETURN THIS.dato_limpiar() ELSE RETURN THIS.llamada_validacion () ENDIF ELSE RETURN .T. ENDIF ENDPROC PROCEDURE LostFocus if !this.parent.parent.es_f1 if this.Parent.Parent.oldvalue#this.Value * Cambi el dato this.llamada_posicionar this.llamada_Adicional ENDIF set help on endif ENDPROC PROCEDURE InteractiveChange =this.parent.parent.grilla_actualizada() ENDPROC PROCEDURE GotFocus set help off ENDPROC PROCEDURE DblClick this.parent.parent.es_f1=.t. this.llamada_busqueda() this.dato_seleccionado () this.parent.parent.es_f1=.f. ENDPROC PROCEDURE When LPARAMETERS xret this.Parent.Parent.oldvalue=this.Value RETURN DODEFAULT(xRet) ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 =this.dblclick() endif ENDPROC Dbie_cod_ins = ("") cod_ins = .F. Name = "grilla_hlpf1_atributos" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 PROCEDURE llamada_busqueda LOCAL xcodigo xcodigo=0 do busmailctas IN listados with xcodigo ENDPROC PROCEDURE llamada_posicionar SELECT mailctas SET ORDER TO codigo SEEK this.Value ENDPROC PROCEDURE llamada_validacion RETURN .t. ENDPROC ClassClasspHeight = 53 Width = 100 cb_controlador = .F. for_sparce = .F. evn_not_valid = .F. Name = "grilla_editbox" grilla_imagen_ok1codebar_controlador!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Classgrilla_textboxgrilla_textbox_sparce2for_sparce = .T. Name = "grilla_textbox_sparce" textboxform_grilla_controles.vcx-cod_ins = .F. Name = "grilla_hlpf1_bultos" cod_ins *cod_ins_access grilla_hlpf1_bultos grilla_hlpf1textboxform_grilla_controles.vcxtextbox grilla_hlpf1Classbxval_cod_ins = ("") xval_atr = ("") xval_bul = ("") cb_largo = 21 Name = "codebar_articulos" custom!Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_hlpf1_mailctasPixelsClass grilla_hlpf1textbox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 grilla_hlpf1_atributosPixelsClass grilla_hlpf1grilla_hlpf1_atributos(bie_cod_ins cod_ins *cod_ins_access form_grilla_controles.vcx[PROCEDURE llamada_busqueda LOCAL xcod_ins xcod_ins=SPACE(15) do busbie IN listados with xcod_ins this.Value=xcod_ins TRY this.Parent.parent.xTMP_Cod_Ins = xCod_Ins CATCH ENDTRY ENDPROC PROCEDURE llamada_validacion RETURN .t. ENDPROC PROCEDURE llamada_posicionar SELECT Bienes SET ORDER TO codins SEEK this.Value ENDPROC grilla_hlpf1_articulosgrilla_hlpf1_articulos)"IO%U B UXRET B UXRETTHIS EVN_NOT_VALIDWhen0ValidR1q2q11M})codebar_paste_controller`Top = 0 Left = 0 Height = 25 Width = 24 Enabled = .F. Interval = 50 Name = "tmr_iniciar" codebar_paste_controllerPROCEDURE cod_ins_access LOCAL xcodins TRY xcodins=this.Parent.parent.xTMP_Cod_ins CATCH xcodins=SPACE(15) ENDTRY RETURN xcodins ENDPROC PROCEDURE llamada_busqueda LOCAL xcodigo, xcodins xcodigo = THIS.VALUE xcodins=this.Cod_Ins IF DBUSED("ges") THEN OPEN DATABASE ges ENDIF SELE 0 USE vbultos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR INDEX ON ID TAG ID DO busbul IN listados WITH xcodigo,"activo='S'" this.value = vbultos.clave SELE vbultos USE ENDPROC PROCEDURE llamada_posicionar LOCAL xcodigo, xcodins xcodigo = THIS.VALUE xcodins=this.Cod_Ins =SEEK(xcodins+xcodigo, "atributo" , "codigo") ENDPROC PROCEDURE llamada_validacion RETURN .t. ENDPROC PROCEDURE cod_ins_access LOCAL xcodins TRY xcodins=this.Parent.parent.xTMP_Cod_ins CATCH xcodins=SPACE(15) ENDTRY RETURN xcodins ENDPROC PROCEDURE llamada_posicionar LOCAL xcodigo, xcodins xcodigo = THIS.VALUE xcodins=this.Cod_Ins =SEEK(xcodins+xcodigo, "atributo", "codigo") ENDPROC PROCEDURE llamada_validacion RETURN .t. ENDPROC PROCEDURE llamada_busqueda LOCAL xcodigo, xcodins xcodigo = THIS.VALUE xcodins=this.Cod_Ins IF DBUSED("ges") THEN OPEN DATABASE ges ENDIF SELE 0 USE vatributos INDEX ON clave TAG codigo INDEX ON DESCR TAG DESCR INDEX ON ID TAG ID DO busatr IN listados WITH xcodigo,"activo='S'" this.value = vatributos.clave SELE vatributos USE ENDPROC cb_iniciado Se inici la lectura del cdigo de barras cb_data Buffer de datos del cdigo de barras cb_largo 0 - Significa que no hay lmite. >=1 - Significa que cuando llega al limite envia el cdigo. cb_mark_inicio Si <>0 espera a la llegada de la cabecera para iniciar la captura del codigo de barras cb_mark_final Si <>0 espera a la llegada de la cola para ifinalizar la captura del codigo de barras key_habilitar cb_bypass_activo Determina si el Bypass est activo key_bypass Keycode para bypass cb_mayusculas .t.=Convierte todo a maysculas cb_mult Cantidad por defecto asignada al cdigo de barras. Se utiliza para EAN grupales o DUN14 para determinar las unidades de venta correspondientes. cb_permite_agregar multiplicador_manual Si el cdigo leido es menor igual a 3, lo guarda en esta propiedad y pximo cdigo que lee en lugar de tomar 1 to este valor xval_lote xval_descr *key_capture *evn_dblclick *evn_lectura_iniciada Evento disparado cuando se inicia la lectura *evn_valid Evento VALID tradicional *reemplazos_analizar *cb_cleanup *cb_extraer *cb_habilitar *cb_bypass Evento al hacer bypass *ingreso_valido *ingreso_invalido *pos_ingreso *beep_error *key_paste oHeight = 32 Width = 32 Picture = bmp\barcode32.jpg cb_iniciado = .F. cb_data = ("") cb_largo = 0 cb_mark_inicio = 0 cb_mark_final = 0 key_habilitar = (-6) cb_bypass_activo = .F. key_bypass = (-5) cb_mayusculas = .T. cb_mult = 1 cb_permite_agregar = .T. multiplicador_manual = 0 xval_lote = (space(20)) xval_descr = ("") Name = "codebar_controlador" \"CC%UNT-=CU THISENABLEDPARENTKEY_PASTE_INTERNONKEYCODE NSHIFTALTCTRLOTXTXPROP OCONTROLLERTimer011)Cj"QQ@%vU %  >B- TTTTTTaBaUNKEYCODE NSHIFTALTCTRLOTXTXPROP OCONTROLLERTHIS TMR_INICIARENABLEDToTXT. T&xObjeto="" T(C>CCC\ C  U NKEYCODE NSHIFTALTCTRLOTXTXPROP OCONTROLLERXVALOR XVALORTMPXOBJETONITKEYPRESS UNKEYCODE key_paste0key_paste_interno>InitZ1qrqA3qaB12q1 &)Q)"/%jwKUH' [ C TB-  TT B-    TB-1%    eT aT  C% a TB-% % T Ta 8T  CCCCD f CCD 6 C1%C >  '%C RC C dT %C C TUNKEYCODE NSHIFTALTCTRLXVALOR_CAMPO_CODIGOXFINALTHIS EVN_DBLCLICK KEY_BYPASSCB_BYPASS_ACTIVO CB_BYPASS KEY_HABILITAR CB_HABILITARCB_MARK_INICIO CB_INICIADOCB_DATAEVN_LECTURA_INICIADA CB_MARK_FINAL CB_MAYUSCULASREEMPLAZOS_ANALIZARCB_LARGO EVN_VALID POS_INGRESO BCUTHISINGRESO_VALIDO!TT-UTHISCB_DATA CB_INICIADO%C> :TC>TC=% %C>TC\  T BUXDATAXMAXIMO XNOBORRARXTEXTO:%|BeepWIN32APIQmyBeepCUBEEPWIN32APIMYBEEPa(C>Z%CCC\C\UNKEYCODE NSHIFTALTCTRLXVALOR_CAMPO_CODIGOOCONTROLORIGENNITTHIS KEY_CAPTURE key_capture0 evn_valid cb_cleanup+ cb_extraerp beep_errorQ key_paste1q1qaAqaqAbqAA"cAtA3AAB332qQA!QaAA3R"31qQA1e.?0C3 GBAXE_)Stretch = 1 BackStyle = 0 Height = 29 Width = 29 controlsource = .F. alignament = .F. evn_not_valid = .F. Name = "grilla_imagen" JPicture = bmp\ok.png Height = 35 Width = 33 Name = "grilla_imagen_ok"  grilla_botonPixelshPROCEDURE ingreso_invalido =Mensaje("El artculo es invlido."+CHR(13)+"Se ha leido '"+this.cb_data+"'") ENDPROC PROCEDURE evn_valid *=sys_mostrar_screen("Suspendo?", .t.) LOCAL xCod_ins, xAtr, xBul, xValida SET PROCEDURE TO pr_funciones ADDITIVE xCod_ins=SUBSTR(THIS.cb_data,1,15) xatr=SUBSTR(THIS.cb_data,16,3) xBul=SUBSTR(THIS.cb_data,19,3) xValida=pr_comb_buscar(xcod_ins, xbul, xatr,, .t.) IF xvalida THEN this.xval_Cod_Ins=xCod_Ins this.xval_Atr=xAtr this.xval_Bul=xBul this.ingreso_valido ELSE this.ingreso_invalido () ENDIF =THIS.cb_cleanup () RETURN xValida ENDPROC "T%IvUKHCEl artculo es invlido.C  Se ha leido ''UMENSAJETHISCB_DATA G+( pr_funcionesTC\TC\TC\TCa%TT T    C  C BUXCOD_INSXATRXBULXVALIDA PR_FUNCIONESTHISCB_DATAPR_COMB_BUSCAR XVAL_COD_INSXVAL_ATRXVAL_BULINGRESO_VALIDOINGRESO_INVALIDO CB_CLEANUPingreso_invalido0 evn_valid125aA1i])form_grilla_controles.vcx!Arial, 0, 9, 5, 15, 12, 32, 3, 0  commandbuttonimagegrilla_imagen_vacioClass1 grilla_imagengrilla_imagen_vacio grilla_boton commandbutton"%L 6U. TlistadosUXCODIGO BUSMAILCTASLISTADOS%FG((codigo EUMAILCTASCODIGOTHISVALUE BaUllamada_busqueda0llamada_posicionarllamada_validacion1qq2q2q1] )controlsource Specifies the source of data to which an object is bound. alignament evn_not_valid *controlsource_assign *alignament_assign *evn_not_valid_assign *when Occurs before a control receives the focus. *gotfocus Occurs when an object receives the focus, either by user action or through code. *lostfocus Occurs when an object loses the focus. *keypress Occurs when the user presses and releases a key. *extra_data *valid Occurs before a control loses the focus. Height = 27 Width = 84 Caption = "ABM" Style = 0 PicturePosition = 0 evn_not_valid = .F. controlsource = .F. Name = "grilla_boton" >Picture = bmp\ayuda_ges_32.ico Name = "grilla_imagen_vacio" form_grilla_controles.vcx)"IO%U B UXRETTHIS EVN_NOT_VALID B UXRETValid0Whenj1q2q1A\})"_5%1 UP 'T @TCX BUXCODINSTHISPARENT XTMP_COD_INSQ TT#CatributocodigoUXCODIGOXCODINSTHISVALUECOD_INS BaU TT%CgesK gesFQ vatributos& & & ' listados activo='S'TFQU XCODIGOXCODINSTHISVALUECOD_INSGES VATRIBUTOSCLAVECODIGODESCRIDBUSATRLISTADOScod_ins_access0llamada_posicionarllamada_validacion.llamada_busqueda@1qaA233q2TAr2rA2 . Wb)"%+ UP 'T @TCX BUXCODINSTHISPARENT XTMP_COD_INS TT%CgesK gesFQvbultos& & & ' listados activo='S'TFQU XCODIGOXCODINSTHISVALUECOD_INSGESVBULTOSCLAVECODIGODESCRIDBUSBULLISTADOSQ TT#CatributocodigoUXCODIGOXCODINSTHISVALUECOD_INS BaUcod_ins_access0llamada_busquedallamada_posicionarllamada_validaciono1qaA3UAr2rA333q1  +&/)PROCEDURE key_capture LPARAMETERS nKeyCode, nShiftAltCtrl, xvalor_campo_codigo LOCAL xFinal DO case CASE nKeyCode=28 && F1 =THIS.evn_DBLCLICK() nKeyCode=0 RETURN .f. CASE nKeyCode=this.key_bypass && Habilita o deshabilita el bypass nKeyCode=0 this.cb_bypass_activo = not this.cb_bypass_activo this.cb_bypass RETURN .f. CASE nKeyCode=this.key_habilitar && Habilita o deshabilita el lector this.cb_habilitar nKeyCode=0 RETURN .f. ENDCASE IF (nKeyCode=THIS.cb_mark_inicio OR (THIS.cb_mark_inicio=0 AND NOT THIS.Cb_iniciado )) THEN THIS.cb_iniciado = .T. THIS.cb_data = "" =THIS.evn_lectura_iniciada() IF THIS.cb_mark_inicio <> 0 THEN nKeyCode = 0 RETURN .F. ENDIF ENDIF IF THIS.cb_iniciado THEN IF This.cb_mark_final = nKeyCode THEN nKeyCode=0 xFinal =.t. ELSE THIS.cb_data = THIS.cb_data + iif(this.cb_mayusculas, upper( CHR(max(nKeyCode,0)) ), CHR(max(nKeyCode,0))) THIS.Reemplazos_Analizar() ENDIF IF (THIS.cb_largo >0 AND LEN(THIS.cb_data)= THIS.cb_largo) OR xFinal THEN * =sys_mostrar_screen("Suspendo?", .t.) if right(this.cb_data,1)=chr(22) and !empty(xvalor_campo_codigo) * Es un ingreso manual con un paste this.cb_data=xvalor_campo_codigo endif IF THIS.evn_VALID() then this.Pos_Ingreso() ENDIF nKeyCode=0 ENDIF ENDIF ENDPROC PROCEDURE evn_valid RETURN this.ingreso_valido () ENDPROC PROCEDURE cb_cleanup this.cb_data ="" this.cb_iniciado = .f. ENDPROC PROCEDURE cb_extraer LPARAMETERS xData, xMaximo, xNoBorrar LOCAL xTexto IF LEN(xData)xMaximo THEN xData=SUBSTR(xData, xMaximo+1) ELSE xData="" ENDIF ENDIF RETURN xTexto ENDPROC PROCEDURE beep_error Declare long Beep IN WIN32API AS myBeep ; long dwFreq, long dwDuration myBeep(500,500) ENDPROC PROCEDURE key_paste LPARAMETERS nKeyCode, nShiftAltCtrl, xvalor_campo_codigo, oControlOrigen LOCAL nIt FOR nIt=1 TO LEN(xvalor_campo_codigo) =this.key_capture(ASC(SUBSTR(xvalor_campo_codigo,nIt,1)),0,SUBSTR(xvalor_campo_codigo,nIt)) NEXT ENDPROC 5" %AUnTCXlistadosT ]T gUXCOD_INSBUSBIELISTADOSTHISVALUEPARENT XTMP_COD_INS BaU%FG((codins EUBIENESCODINSTHISVALUEllamada_busqueda0llamada_validacionllamada_posicionar1qqaA3q2q1 P)"s%J 4U%FG((codpro EUPROVEEDOCODPROTHISVALUE BaU0TCXlistadosUXCOD_PROBUSPROLISTADOSllamada_posicionar0llamada_validacion|llamada_busqueda1q2q2qq1T} )PROCEDURE key_paste LPARAMETERS nKeyCode, nShiftAltCtrl, oTXT, xProp , oController *=sys_m("Ctrl+V", NOT (nKeyCode=22 AND nShiftAltCtrl=2)) IF NOT (nKeyCode=22 AND nShiftAltCtrl=2) THEN ** No es un PASTE! No lo controlo RETURN .f. ELSE ** Si es un PASTE, se inicia el emulador luego del timer * =sys_m("Paste") This.nKeyCode=nKeyCode This.nShiftAltCtrl=nShiftAltCtrl This.oTXT=oTXT This.xProp=xProp this.oController=oController this.tmr_iniciar.enabled=.t. RETURN .t. ENDIF ENDPROC PROCEDURE key_paste_interno LPARAMETERS nKeyCode, nShiftAltCtrl, oTXT, xProp , oController LOCAL xValor, xValorTMP, xObjeto xObjeto="oTXT."+xProp xValor=_Cliptext &xObjeto="" xValorTMP="" FOR nIt=1 TO LEN(xValor) * xValorTMP=xValorTMP+SUBSTR(xValor,nIt,1) * &xObjeto=&xObjeto+SUBSTR(xValor,nIt,1) *=sys_M("nIT:"+STR(nIt),nIT<38) oTXT.KeyPress(ASC(SUBSTR(xValor,nIt,1)),0) NEXT oTXT.KeyPress(13,0) ENDPROC PROCEDURE Init LPARAMETERS nKeyCode ENDPROC "V %*mU BUTHIS DATO_SI_O_SIT UVNEWVALTHIS DATO_SI_O_SIx% `% C E BC \ BC qBaUTHISPARENTES_F1 DATO_SI_O_SIVALUE DATO_LIMPIARLLAMADA_VALIDACION]% V%L  G UTHISPARENTES_F1OLDVALUEVALUELLAMADA_POSICIONARLLAMADA_ADICIONALCUTHISPARENTGRILLA_ACTUALIZADA GUETa C CT-UTHISPARENTES_F1LLAMADA_BUSQUEDADATO_SELECCIONADO0T BCUXRETTHISPARENTOLDVALUEVALUE2 %+ CUNKEYCODE NSHIFTALTCTRLTHISDBLCLICKdato_si_o_si_access0dato_si_o_si_assign[Valid LostFocushInteractiveChangeGotFocusZDblClickkWhenKeyPressO13q"3AqA3AbB212a2AA2q22A2k $&'E*!0%=5)"mm:%U BUTHIS COM_COD_PROT UVNEWVALTHIS COM_COD_PRO TlistadosTC =TC \TC\TCC\gU XCOD_PRO XRESULTADOTHIS COM_COD_PRO BUSCOMPRASLISTADOS COM_FAC_COM COM_CAUSACOM_OPcom_cod_pro_access0com_cod_pro_assignZllamada_busqueda13q"3Rq2j 8 )m&"  7% |UT UVNEWVALTHIS CONTROLSOURCET UVNEWVALTHIS ALIGNAMENTT UVNEWVALTHIS EVN_NOT_VALID U XEXTRADATAcontrolsource_assign0alignament_assignrevn_not_valid_assign extra_data1q"3q"3q"3q1 @ ) PROCEDURE controlsource_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.controlsource = m.vNewVal ENDPROC PROCEDURE alignament_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.alignament = m.vNewVal ENDPROC PROCEDURE evn_not_valid_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.evn_not_valid = m.vNewVal ENDPROC PROCEDURE extra_data LPARAMETERS xExtraData ENDPROC evn_not_valid controlsource Specifies the source of data to which an object is bound. *alignment_assign *dblclick Occurs when the user presses and releases the left (primary) mouse button twice in quick succession. *evn_not_valid_assign *controlsource_assign *extra_data m"TTD%{UD% +T T UVNEWVALTHIS ALIGNMENT BaUT UVNEWVALTHIS EVN_NOT_VALIDTRRUVNEWVALTHISCAPTION?!%C CC 8TU XEXTRADATATHISCAPTIONTTPUTHISCAPTIONTDDUTHISCAPTIONalignment_assign0dblclickevn_not_valid_assigncontrolsource_assign extra_data&RefreshInit1qRA!3q3q"3q#3qA2"2!1 j 4! 3%)T>PROCEDURE alignment_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF m.vnewval=3 THEN m.vNewVal=2 ENDIF THIS.Alignment = m.vNewVal ENDPROC PROCEDURE dblclick RETURN .t. ENDPROC PROCEDURE evn_not_valid_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.evn_not_valid = m.vNewVal ENDPROC PROCEDURE controlsource_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method *THIS.controlsource = m.vNewVal This.Caption = "RR" ENDPROC PROCEDURE extra_data LPARAMETERS xExtraData IF NOT EMPTY(xExtraData) AND VARTYPE(xExtraData)="C" THEN this.Caption=xExtraData ENDIF ENDPROC PROCEDURE Refresh *this.Caption=EVALUATE(this.controlSource) this.Caption="TP" ENDPROC PROCEDURE Init This.Caption = "DD" ENDPROC  grilla_imagenform_grilla_controles.vcximagegrilla_imagen_vacio?Picture = bmp\qr_scan_color.png Name = "grilla_imagen_vacio" grilla_imagen_vacio grilla_imagen1ClassPixelsgrilla_imagen_vacio grilla_imagenform_grilla_controles.vcximagegrilla_imagen_vacio?Picture = bmp\qr_scan_color.png Name = "grilla_imagen_vacio" grilla_imagen_scan grilla_imagen1ClassPixelsgrilla_imagen_scanformsetformsetgrilla_imagen_scabName = "grilla_imagen_scab" formformPixelsForm1grilla_imagen_scab3DoCreate = .T. Caption = "Form1" Name = "Form1" grilla_imagen_scabformset2Classgrilla_imagen_scab!Arial, 0, 9, 5, 15, 12, 32, 3, 0  grilla_imagenform_grilla_controles.vcximagegrilla_imagen_scan?Picture = bmp\qr_scan_color2.png Name = "grilla_imagen_scan" grilla_imagen_scan grilla_imagen1ClassPixelsgrilla_imagen_scan grilla_imagenform_grilla_controles.vcximagegrilla_imagen_qrName = "grilla_imagen_qr" grilla_imagen_qr grilla_imagen1ClassPixelsgrilla_imagen_qr grilla_imagenform_grilla_controles.vcximagegrilla_imagen_qr8Picture = bmp\qr_lleno2.png Name = "grilla_imagen_qr" grilla_imagen_qr grilla_imagen1ClassPixelsgrilla_imagen_qr grilla_imagenform_grilla_controles.vcximagegrilla_imagen_qr8Picture = bmp\qr_lleno3.png Name = "grilla_imagen_qr" grilla_imagen_qr grilla_imagen1ClassPixelsgrilla_imagen_qr grilla_imagenform_grilla_controles.vcximagegrilla_imagen_enviando!Name = "grilla_imagen_enviando" grilla_imagen_enviando grilla_imagen1ClassPixelsgrilla_imagen_enviando grilla_imagenform_grilla_controles.vcximagegrilla_imagen_enviando@Picture = bmp\qr_enviando.png Name = "grilla_imagen_enviando" grilla_imagen_enviando grilla_imagen1ClassPixelsgrilla_imagen_enviando container containergrilla_imagen_container=Width = 200 Height = 200 Name = "grilla_imagen_container" grilla_imagen_container container1ClassPixelsgrilla_imagen_containercodebar_controladorform_grilla_controles.vcxcustomcodebar_activos_schName = "codebar_activos_sch" codebar_activos_schcodebar_controlador1ClassPixelscodebar_activos_schcodebar_controladorform_grilla_controles.vcxcustomcodebar_activos_schName = "codebar_activos_sch" codebar_activos_schcodebar_controlador1ClassPixelscodebar_activos_sch  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iiiiii!!!!!!iiieeennnnnnnnnooonnnsssjjj~~~iii """jjjGGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkk////jjj!!! iiiiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjiii!!!!!!kkkkkk!!! iiimkn,,,***************$$$<<>>999999999999999999888>>>JJJ999999999777aaa  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkk?(2kkk!!! iiiC,dOn4iii iiiˆvc-eee'''%%%%%%%%%%%%%%%777iii !!!kkkr\7kkk!!!"""jjjڪiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaa  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaa  ( @ z|!b!c"e"f$j$k%m%o'q(s(u*x+z+},~-&l'n(p(r)t*w*y,|-~-013446+v,x-{/~022345679:<=2345789:;<>?@ABC  ( @  ' 9 T}&7燷ֿZu!$Mމ0au*% 5qEfu.,1yw{Dw֛ڿfj~0)33|{y ps)Duޱްj7$022{z| m fkow2]~gg1(0/36%~{~ ngrwqno"~\yaj0*5426<+{ oftytusl{Zn--53559?-~ ngsxstusxWS2*75356:B4 ogu{vvts yI~T\[6343479;?5 ux pgv{yvu yU EF57658:9:<~. ncjpv| pgx{{|{ }Q b*I986:;:;?J9 x n`]{nidw||}{{@ U898;88=DM7} p`~Zucg n{}|7 N7:89?>;K\7 zk jc\x\y` m y9 D6?<;zEE=L]7 zk|ypedP C8A?JGDGJEZr7 n}犸 =AKHFIJF]q1 q}nr >AKHFII@Yw* s|cg @CJHDGHI|q5 u} PS nlCFKH?Km~cPD>( v{>A ZXFIJETzv[bnikkgYO3' +, EEHQ][d}qMDFFAECBESiK@B;." "# 99PixpN<>?ACFFC>==<814=A=73)&ci MJQcXGDGJF?<<<;u=:8/.244Eyܺ܎mjYRNB<7864122-9bnrq_?*9gb ta@*:i PNG  IHDR szzIDATX}luzݺֱhAXyЄ jLG% H1PD  *"B@XٓcLڭnwAȃ =r19}?0gDo/QzOkE{E8-Unz{ #G/wMg[Q&+]!;ocӦ|X:"IA!+]T_j;u@ AqKV.*wTEEˆc_^]ݔ&ӧɸ;# >2GuM5Y İ/87Ő),Bnjr09Q&F_n!@>! <*|SƄ({26ˁ\xhxjQV=}C9YIH⃁]j߂rk`[Ks$Ό|Ix_|fQNťKƠ> ƹD3$JadD'o)&" |_W7o.92=e~[Pr:Dv0|k_[kA,f8ym@K/#jrCd._}ٜe横 8G=cgcW;Ӕ5 #<(8 !o`k@xֺ s(Z4A`1YbƸМpӈYJܯV؀ =5h.@3ϕM#n^D 8pĹs%I4Hr:bd|]7C5uǡ*G{vK{ jE'7i*4V_iiٵ <#Ϫ DFT$H Ϗ]/O.jI>zQlUjMԋnƯyG.:+2:p#8,,aCh81 "K8ݶ[|Oh7_wҦalr> 3"03&LCU:t@c*t!D'"KJ1mƯcKò١&U8 FxhDC8m4"PB)VKӳ,#圧8kFzpȜ ]T0q"vTȻs22?t_d5~٣A2dP&ac6dOppmsew3wsXWVEBש%X{;qcl5Г54oO eaxf֠0ٓaIdzgOo`s16-'' 0dY7\dZ7dZ7YgPYJtf7dZ7dZ7dZ8dZ6^dZ7dZ7e[6QdY7.dZ7dZ7dZ7dY6YdZ7dZ7c[6ZcZ96dZ7dZ7eZ8|d\8@dZ7dZ7cZ6eY7jdZ7dZ7cY8d]]. dZ7dZ7dZ7cZ96bZ5"dZ7dZ7dZ7fW:#d[6dZ7dZ7dZ7e[7dZ7dZ7dZ7dZ7dZ7UU*dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6iZ<UUUcZ6qdZ7dZ7dZ7dZ7cZ7ff3 ^^6h]:( @  59:;;;;;;;;:97fFPX&XfOXfN5X,dZ7dZ7?WdZ7dZ73VdZ7dZ7-V XfOdZ7dZ7`^@V6dZ7dZ7dZ7dZ7IvmVA~}dZ7dZ7dZ7dZ7SkXW"dZ7dZ7dZ7dZ75[/]aE`^><X#Py H@=; ;=?-weW6&dZ7dZ7dZ7eY7jc[8;dZ7dZ7dZ7eY8VdW8)dZ7dZ7dZ7cZ6ld\6=dZ7dZ7dZ7eZ7Xb\4'dZ7dZ7dZ7eZ7od\8@dZ7dZ7dZ7eY8VbX;dZ7dZ7dZ7eY7d[8WdZ7dZ7dZ7e[8IUUUdZ7dZ7dZ7dZ8cY7dZ7dZ7dZ7a[7*dZ7dZ7dZ7dZ7dZ6cbY69dZ7dZ7dZ7dZ7怀e\8NdZ7dZ7dZ7dZ7dZ7c[8;bX64eZ8|dZ7dZ7dZ7dZ7cY7~cY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ff3 [[7cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bZ5"UU*dZ8eZ7dZ7dZ7dZ7dZ7dZ7cY7cU9]]. e[6Ld[7sc[6vcZ6U^^6(0` % o5&G LshSkYSkYOo`LdZ7dZ7dZ7dZ75L dZ7dZ7dZ7dZ7*Lb\;dZ7dZ7dZ7JUiUdZ7dZ7dZ7JYeLdZ7dZ7dZ7IIumdZ7dZ7dZ7dZ7ZdKG2dZ7dZ7dZ7dZ7dZ7dZ7OoaGYeLdZ7dZ7dZ7dZ7dZ7dZ7dZ7Gc[9dZ7dZ7dZ7dZ7dZ7dZ7dZ7GTjVdZ7dZ7dZ7dZ7dZ7dZ7dZ8 I'dZ7dZ7dZ7dZ7dZ7dZ7D{wK5c[8dZ7dZ7dZ7KtiO .1THVz -'-*)&&(*,.Od[6dZ7dZ7dZ7dZ7\dH!#%%'%%"NrbedZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8dY6YdZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7eZ7dY7\dZ7dZ7dZ7dZ7dZ7ff3dZ7dZ7dZ7dZ7dZ7d[7dY7\dZ7dZ7dZ7dZ7dZ7ff3dZ7dZ7dZ7dZ7dZ7d[6c[7bdZ7dZ7dZ7dZ7dZ7dY7dZ7dZ7dZ7dZ7dY7dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7쀀cZ7dZ7dZ7dZ7dZ7dZ7cZ6ldZ7dZ7dZ7dZ7dZ7cY9HfU3eZ7dZ7dZ7dZ7dZ7dZ8eY5+dZ7dZ7dZ7dZ7dZ7dY8ff3 dZ6dZ7dZ7dZ7dZ7dZ7eY8rdZ6dZ7dZ7dZ7dZ7dZ7dZ7^^6UUUd[6dZ7dZ7dZ7dZ7dZ7dZ7d[7eY8VdZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7e[6LdY7EcZ6qdY8dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7`U5h]:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[5ChX8 dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[6L[[7dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY9(eY5+c[7dZ7dZ7dZ7dZ7dZ7dZ7dY7cY9H`U5dZ73cZ96d]6!(@ B2`rssstvvvvvvvvvvvvvvvvussssjG GT[^ 2JtjNqdNqdLrgA~} dZ7dZ7dZ7dZ7dZ7dZ7'__BdZ7dZ7dZ7dZ7dZ7!Rm\dZ7dZ7dZ7dZ7dZ7DzvdZ7dZ7dZ7dZ7dZ76dZ7dZ7dZ7dZ7__A (dZ7dZ7dZ7dZ7Ooa ?dZ7dZ7dZ7dZ7]aE 4dZ7dZ7dZ7dZ7dZ7dZ7RlZ %dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7Lsh ZdJdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7 dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7= "dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7Gwp dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7> \bFdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7! *dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7Oo`9dZ7dZ7dZ7dZ7dZ7dZ7TjV Ktia]>c[8VhS2rpqt( UdZ7JdZ7dZ7dZ7dZ7dZ7dZ7Nqd|~.dZ7dZ7dZ7dZ7dZ7dZ7dZ7cX6KdZ7dZ7dZ7dZ7dZ7dZ7dZ7c[6vdZ7dZ7dZ7dZ7dZ7dZ7eZ8e\8NdZ7dZ7dZ7dZ7dZ7dZ7d[7eZ8wdZ7dZ7dZ7dZ7dZ7dZ7dZ7e[6QdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6zdZ7dZ7dZ7dZ7dZ7dZ7dZ7eY7SdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6zdZ7dZ7dZ7dZ7dZ7dZ7cY7cY6PdZ7dZ7dZ7dZ7dZ7dZ7cZ7dY8{dZ7dZ7dZ7dZ7dZ7dZ7eZ7dZ7JdZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6dZ7dZ7dZ7dZ7dZ7dZ7d[6cZ5>dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY7dZ7dZ7dZ7dZ7dZ7dZ7dZ8a[7*dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6bb; dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[7bjU@ dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY7jdZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8idZ7dZ7dZ7dZ7dZ7dZ7dZ7fY7<dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7\aU=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7mIIeZ6GdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eX9:bb; cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6l@@e[55dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ5>dY7\dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6c[6_eZ7XeZ8wdY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a[7*aX5dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[6hfX87eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8e[55dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8|f\3e[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY9HcX6KdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7dZ6z]]. c]4,dY8{dZ7dZ6eZ7dZ7dY7cZ7cZ7e[8Iff3(` [x?$rN9iO1g *dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7`^@0a]@DEHJJJKNLJJJIED@=:Sn\dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7pdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ5>eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7sdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bZ7AdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[6vdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bZ7AdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b[7FcZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7``@eZ8|dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b[7FdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7]]F dZ7}dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b[7FdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7]]F c[7ydZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ6GdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7qU9 dY6udZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY8MeZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7@@eY8mdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY6YdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8`dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8ncZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7OdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8ff3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[78dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b\6/dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7h^9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7qU9 eZ7odZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8VdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY7ZNpcdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ75W^`DdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7IumW6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7W4dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a]="W8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[9$W(dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a]<W `^?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7TjWW?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7(Wa\a\)[bHdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7+)ExtdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7/(dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7YdL5`]?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ795A}}dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[95c[:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7Gvp5A}}dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b\:8 ^`DdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7;B'dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7VgQB?~dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a]>BLqfdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[9$IQl\dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[8)OKqgdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b\;%O\bGMoc:!h srh\I. c0o'W t a;n%(vG WI[#K   fY3(dZ7dZ7dZ7dZ7dZ7dZ7b\;a]=`]?^_C^_CZbHZbHZcJZdKXfOUjWUjWOnbNobIriFtlFunFysFysA~}, @~D{wFysFwqFtlFtlNocNobRl[UjWVhSZdKZdKZbHZbH\`E^_C_^Aa]=a]=dZ7dZ7dZ7dZ7dZ7dZ7dZ8fY3(dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b\;CzwdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7fY3(dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7=b\;dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7fY3(dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ89  #'''& b[dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8rqU9 dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[:5dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7}]]. dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY7dY7.dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7fU3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7e^6&dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7f\3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7h^9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7a[7*dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8fY3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ5>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7jU@ dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8d[8WdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7}@@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ff3cZ7tdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6ldZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY3dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8[dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eX9:eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b[7FdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY6g@@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ:0dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7f]3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bX;dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6UdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7]]. dZ6cdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7aU=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7dY6BdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[6ZUUUcZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7cZ:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7eZ50dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7iZ<dY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7pdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8m``@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY6Bd[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7UUUdY7adZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7h]:dY6YdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY6Y@@cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dZ6cdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7sfU3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[6ZdZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7h^9e[6LdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7ff3cY9HdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7jU@ eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[7aX5d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8|d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ6UjU* c[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY5+e\8NdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY5?mIIeZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7mI$dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY7<mIIeZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7pdY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[6L[[7dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7h]:gZ7%dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8rc\9$dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7h]:d[8WdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ96cZ5>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7c[6ZaX5eZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7d\8@cU9cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7Ec[5CdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8VmI$b\4'eZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY7e[6QcU9@@b\6/eZ8wc[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ5>cX41dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7d[6eY7d[7kc[9Zd[7Td[7TcY8ddY7xdZ6dY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7gZ7%aU=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7\dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7fM3 dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY7<bX;d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8e[6LdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6mIId[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!UU*d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7b[7F^^6d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8nc\9$d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8dZ73dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7UUUfY7%%$$$$$$$$$$$$$$$$$$$$$$$$##$$LFzNHr%%Y$$V$$T%%S$$T%%K**d[6dZ7dY8dZ7]]. dZ6zdZ7d[7se[6QcY7~bX64iZ<dZ8dZ7dZ7dZ7dZ7dY7fY3cZ:dZ7dZ6dZ7dZ6d]6!UUU(0 ` ""         @@$$$$$$$$$$$$$$$$$$$$$$$$$$$$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%)%%E$$$$$$$$$$((A=B=)($$$$$$$$$$""J$$F$$$$$$$$$$/.dZ7dZ710$$$$$$$$$$%%K$$F$$$$$$$$$$''dZ8dZ7))$$$$$$$$$$%%K%%E$$$$$$$$$$32dZ8dZ753$$$$$$$$$$$$G##A$$$$$$$$%%^VGdZ7dZ7_VE&&$$$$$$$$$$F%%D$$$$$$$$))dZ7dZ7dZ7dZ7+*$$$$$$$$$$F$$F$$$$$$$$$$OIqdZ7dZ7QKl$$$$$$$$$$%%K##I$$$$$$$$$$%%7575%%$$$$$$$$$$##P(( $$$$$$$$$$$$$$$$$$$$$$$$$$$$##$##f%%%%$$$$$$$$$$$$$$$$$$##$$cd[6dZ7cZ9 dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7`U5e\8NdZ7dZ7c[7yf[9-cZ5>cZ5>bb; UU*dZ8dZ7dZ7dY7xf\3fY3d[7sdZ7dZ7dZ7qU9 dY7EdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7JeZ6GdY7dZ7dZ7dZ7dZ7dZ7dZ7J``@eY7ScZ7d[6d[7TqU9 ( @ @@%%E%%g$$j$$j$$j$$j$$j$$j$$j$$j$$j$$j$$j$$j%%g$$G**""$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$(($$y$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$FBaX>aX>GC$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$GCdZ7dZ7JE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$?;dZ7dZ7A>$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$;8dZ7dZ7=:$$$$$$$$$$$$$$%%%%$$$$$$$$$$$$-,_VFdZ7dZ7`WC.-$$$$$$$$$$$$$$$$$$$$$$$$$$$$NHudZ7dZ7dZ7dZ7OJp$$$$$$$$$$$$$$%%$$$$$$$$$$$$WPZdZ7dZ7dZ7dZ7YRT$$$$$$$$$$$$$$$$$$$$$$$$$$$$HCdZ7dZ7dZ7dZ7JE$$$$$$$$$$$$$$##$$$$$$$$$$$$''QKkdZ7dZ7SLg(($$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$++,,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$""$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$!!$$21·;8:786%%$$%%$$$$$$####$$$$$$$$ eY8mdZ7dZ7dZ7d[7pdZ7dZ7dZ7d[7pdZ7dZ7dZ7e[6hdZ7dZ7dZ7@@e[6QdZ7dZ7dZ7b\4'hX8 dZ7dZ7dZ7eY7c[7dZ7dZ7dZ7cY8McY8MdZ7dZ7dZ7dZ7b[7FdZ7dZ7dZ7dZ7dZ8eY8mcY6gd[6dZ7dZ7dZ7dZ7e\8NeY8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7}dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7eY5+dZ6dY7dZ7dZ7dZ7dZ7dY7.qU9 ff3 (0` %'' ""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$$##m$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##t##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$!!.$$k$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%u$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$65]VIaX@aX@]VI76$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$?c[8;dZ7dZ7dZ7dZ7dZ7dZ7c\9$cZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7dZ7Jf\3fY3fY7$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%K$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$!!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##,$$N$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\$$c$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$q##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$)*UO`^WG`WB`WB^WGUP_*+$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$44dZ7dZ7dZ7dZ7dZ7dZ777$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$//dZ7dZ7dZ7dZ7dZ7dZ733$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'(dZ8dZ7dZ7dZ7dZ7dZ7+,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$^WHdZ7dZ7dZ7dZ7bZ;%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$UOadZ7dZ7dZ7dZ7ZTQ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$LGzdZ7dZ7dZ7dZ7PLm$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%WQZdZ7dZ7dZ7dZ7ZSR&&$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##f$$c$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%OJrdZ7dZ7dZ7dZ7dZ7dZ7RMh&&$$$$$$$$$$$$$$$$$$$$$$$$$$$$##e%%Y$$$$$$$$$$$$$$$$$$$$$$$$$$$$GDdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7JG}$$$$$$$$$$$$$$$$$$$$$$$$$$$$##e%%Y$$$$$$$$$$$$$$$$$$$$$$$$$$--cZ9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ800$$$$$$$$$$$$$$$$$$$$$$$$$$##e%%Y$$$$$$$$$$$$$$$$$$$$$$$$$$B@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7FC$$$$$$$$$$$$$$$$$$$$$$$$$$##e%%Y$$$$$$$$$$$$$$$$$$$$$$$$$$LHydZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7PJn$$$$$$$$$$$$$$$$$$$$$$$$$$##e$$c$$$$$$$$$$$$$$$$$$$$$$$$$$IFdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7MIu$$$$$$$$$$$$$$$$$$$$$$$$$$##e##e$$$$$$$$$$$$$$$$$$$$$$$$$$:9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7><$$$$$$$$$$$$$$$$$$$$$$$$$$##m##e$$$$$$$$$$$$$$$$$$$$$$$$$$&&[TPdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7^VH'($$$$$$$$$$$$$$$$$$$$$$$$$$$$r##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$00`WBdZ7dZ7dZ7dZ7dZ7dZ7aY>33$$$$$$$$$$$$$$$$$$$$$$$$$$$$##t##m$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$..SNedZ7dZ7dZ7dZ7VP^00$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$~$$r$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$--9898..$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%g$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$z$$@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##Q$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'' ##t$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$y%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##%%o$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$####_'' RNhSMfQLjPLnOIqMIvLGy&&l$$j##_$$]$$]$$]$$\##Q##Q##Q##Q##Q##Q%%K""J##Q##Q##Q##Q##X$$]##Q""&cZ7dZ7dZ7dZ7dZ7dZ7dZ7UUUdZ6dZ7dZ7dZ7dZ7dZ7dZ7cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7dZ7dZ7dZ7dZ7dZ7dZ7UUUc[7dZ7dZ7dZ7dZ7dZ7dZ7[[7dZ8dZ7dZ7dZ7dZ7dZ7dZ7eZ50d[6dZ7dZ7dZ7dZ7dZ7dZ7eY8mdY7adZ7dZ7dZ7dZ7dZ7dZ7dZ8cZ:dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY6PdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!gZ7%dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8[dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8bX64dY7.dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8n@@eZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6dZ73cZ:eY8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8qU9 eY9?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e\8NdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7@@UUUdZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7UU*c[6_dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8idY7eZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6cY7d[7cU9e[8eeZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8d[7kaU=ff3 h^9d[7jU@ (` '' %%)##;$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?$$?""<$$*""&&($$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$2**##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$**$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%** $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$''$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##,%%v$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$''! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$56SOfZUQ]VJ^UG^UG]VJZUQSOd77$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ZURdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7^WH$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\WLdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7aZ?$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$WR[dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7]WJ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$NKrdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UP`$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ECdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7LIw$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7EB$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$@@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7GC$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$:9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7@?$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+-dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ712$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$(( $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$RNgdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7YSU$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$01cZ:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ766$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$?>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7FE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$@?cZ:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8FD$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##:$$*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$11SOedZ8dZ7dZ7dZ7dZ7dZ7VQ\55$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%>$$+$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,.==/0$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##I$$+$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##H(($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$""4$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$** $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##W$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##f$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$**""4$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$&&6$$M$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##B!!.$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%''!##_'(+/*-**'+&*%'%&$&$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$""-cY9HdZ7dZ7dZ7dZ7dZ7dZ7c[9a[=aZ@_XA,,#!!!!'' '' '' '' '' '' 33.. '' .. cY9HdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7@@cY9HdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6e[6LdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6e\8NdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8RdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8RdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8RdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8RdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cY8MdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6dY7EdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7@@eX9:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7qU9 dW8)dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7f\3fY3dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY7<dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7odZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7f\3cY8ddZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eW6&cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ff3 fU3eZ7dZ6dZ6dZ6dZ6dZ6dZ6dZ6dZ6dZ6dZ6dZ7c[6_dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6ff3 ff3 dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8{mIIdY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7gZ7%d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fY3eY7jdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7`U5``@dZ8ndZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8@@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7cZ6qd\8@gZ7%cZ:b\6/d[8WdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; cZ96dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cX6KeZ8wdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7ff3UU*dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6bb; mIId[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7bb; dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7ff3eY9?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7e[6L``@dZ6zdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8bb; fU3eY8rd[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8{fY3dY7.eZ8wdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7eZ7dZ7}e[55qU9 cZ:c]4,f[9-d]6!jU@ (  $$?$$k##%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%n%%D""$$G$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$V$$#$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##3$$?$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$T&&($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%>$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ##X$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##{$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$8##_$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$x$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%<>%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$9:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7=>$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$DEdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7JJ|$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$DDdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7JJ|$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$>>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7FE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$68dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7?>$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$-/dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ768$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%(cZ9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7.0$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$[WMdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7&)$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$SOddZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7^YG$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$JI}dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UR_$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$@@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7LJx$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$57dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7A@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$11dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ78:$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$;&($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$EDdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7NLs$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$*,aY>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ813$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$BAdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7KI{$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%&QNjdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7XSV'($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$''SOddZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7YTT*,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$&&IHdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7PMn()$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$24SOfdZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7WSZ89$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,/>>JH}PNmQOkKJz@@/1$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$!!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##e$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$####$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$""5$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%##;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%E##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$.. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$.. ((##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$.. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##s##3$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ##3@?BDABB>@>>?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bZdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7LPu$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$18dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7EH$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$(2dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7AdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7TS`$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$4=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7LQt$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$?>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7KOx$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$GJdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7TU`$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%([XMdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[:+0$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$>CdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7MNu$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$16aZ>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7?E$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$26_ZDdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8@E$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$6=aY>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7FJ%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$9@bZ;dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7HI$%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$##s$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$5;bZ=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8BH$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$.3`YAdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ9:>$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'*YVTdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7`Y@.3$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ILdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UT^%'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$38cZ9dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7?C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%&VU\dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7_ZD)-$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$7>dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7DH$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%TU`dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7_ZD&+$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$.5dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7;@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$DFdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7RQf$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%WWYdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a[=',$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$(.c[:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ75;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$49dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7AE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$>?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7LLx$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$AIdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7QUg$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$GKdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7YRV$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$GKdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ZRS$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%v$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$DKdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7VT\$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$@AdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7NSq$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$6=dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7GI$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$+1dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7;@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%&[YMdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7-3$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ILdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ZYR%&$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$38dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7EH$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%&XWUdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ:,2$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$&$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%38OQmbZ;dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8XVWCQRj_ZDdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7a[?VU[DH05$&$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%),368:C>C>C##$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%Y33""C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$####;!!.$$&((-%-%-$+#*#($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%$$##;**`YBpb[<`[@`[A_ZC_YD_XD_VD_VDZZRZZRUZ[TZ_SXbQTfRSfSLfSLfNNqMOuJPzGOGOEJEJFCFACB''$$$$$$$$$$$$$$$$%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v%%v##f%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D$$++++++##;%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D%%D$$T%%v%%v%%v%%v%%v%%v%%u%%D##A++**d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7qU9 d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dZ8ndZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7ff3dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7dY7xdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*c[6vdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7UU*d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7``@c[9bdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7bb; eZ7XdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fU3e[6LdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7^^6eY9?dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7`U5b\6/dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dW8)d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ:>``@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7c[6ZmIIdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8|dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cU9dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ6GdY7adZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7eX9:dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ7Հ^^6dZ6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7f[9-cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY8dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7qU9 d[7kdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6^b\6/dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8Ӏ@@ff3dY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8[dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7]]. cZ6UdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d[7``@dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7e[55cZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7fU3fY9(dY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7qU9 e[6QdZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8UUUjU@ eY7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8qU9 d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7UUUcZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d\6=d[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eZ8|d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY8ӀbZ5"dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7cZ7dY8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8icZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7eY7``@ff3e[7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ6bb; d[78dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7d]6!^^6d[6dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ8dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dZ7dY7aUUUfY7q3R%, "+40 Gp2r3wz]]]^^^^^^^o|q3p3 &/8\)r3܆Lĉc]]]]]]]]]]ylq3l1  !+3/ Go2q3vy\\]]]]]]]]]„Vq3f.j  %/7[)q3܅LÈb\\\\\\\]]]_È}Bq3R%, !*3;o2q3vx[[\\\\\\\\\jq3q3  %.7P$q3}Cd[[[[[\\\\\\rqq3m1   )2:m1q3k}ZZ[[[[[[[[[[}[p3i0  $-6Q%q3}CfZZZZZ[[[[[[[ÈۄKp3`,K  (19h/q3f|YZZZZZZZZZZZcy>p3 ",5|Bmq3w;kYYYYZZZZZZZZkp3n2 &08b,p3_XYYYYYYYYYZZZslp3k1  !+4P+Tp3s7{mXXXXYYYYYYYYY{[p3g/z  %.7Z)p3݉QZXXXXXXXXYYYYYڄKp3`,K  )2:n2p3tuWWWXXXXXXXXXX^x>o2t= #,5P%p3|C`WWWWWWWXXXXXXco2n1 '08g/p3`zWWWWWWWWWWWWWWnno2l1  !*3P*To2r6hVVWWWWWWWWWWWWvco2h/  $.7^*o2܈PVVVVVVWWWWWWWWWyߏUo2e-j (19k0o2ssUUVVVVVVVVVWWWW}Do2_+K  "+4J!yo2x>^UUUUUVVVVVVVVV\x=o2 %/7a,o2^~TTUUUUUUUUVVVVVa~o2n1  (20 Fm1o2xiTTTTUUUUUUUUUUUiqo2k1  "+5P$o2~EYTTTTTTTTUUUUUUUlin2h/  %/8d-o2_xSSSSTTTTTTTTTTTTvߐXn2g/ (2/ Fn2n2xeSSSSSSSTTTTTTTTTvލUn2`,\  "+5O$n2}EURRRSSSSSSSSSTTTT|Dn2]*L  %/7c-n2^sRRRRRRRSSSSSSSSSSzAn2o; (1/ Fn2n2wfQQRRRRRRRRRSSSSS[|t9n2 !+4I!yn2}EWQQQQQRRRRRRRRRRR^{n2m1 #-6`,n2ސYxPPQQQQQQQQRRRRRRRctn2j1  &09l1n2qiPPPPPQQQQQQQQQQQQhgm2j1  )3h7`m2v=~XOPPPPPPPQQQQQQQQQhfm2f/  ",5X)m2نOzOOOOPPPPPPPPPPPQQQp\m2f/  $.7g/m2gmOOOOOOOOPPPPPPPPPPs݋Sm1f.  '10 Em2m2z`NNNOOOOOOOOOPPPPPPr܋Rm1[)M  )3I!xm1y@~QNNNNNNOOOOOOOOOOOOtۉQm1[)M  ",5\)m1܍WvNNNNNNNNNNNOOOOOOOO}w?l1Z)M  $.7f.l1giMMNNNNNNNNNNNNNNNNN|w?l1[)L  '10 El1l1y\MMMMMNNNNNNNNNNNNNN|w?l1k8 )2H!xl1x@}OLMMMMMMMMNNNNNNNNNN{w?l1  !+5X(l1ډRtLLLLMMMMMMMMMMMNNNNQzw?l1  #-6d-l1ejLLLLLLLLMMMMMMMMMMMYvl1l1  %/8l1l1s^KKKLLLLLLLLLLMMMMMMXvl1l1  '1h7_l1r9zTKKKKKKLLLLLLLLLLLLLXvl1l1 )3N#l1{D|JJJKKKKKKKKKLLLLLLLLWuk1k1    +4[*k1ډRoJJJJJJKKKKKKKKKKKKLLWuk1k1    "-6c-k1deIJJJJJJJJJKKKKKKKKKKVtk1k1    $.7i0k1r_IIIIJJJJJJJJJJJKKKKKVtk1k1   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   &0Q*Qk1n5wVIIIIIIIIJJJJJJJJJJJJUsk1k1  "&(*++,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,+)'#  '1z@kk1w@zIIIIIIIIIIIIIIJJJJJJJUsk1k1  "',/2345555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555542/+% )3W(k1׃MwHHHIIIIIIIIIIIIIIIIIIUsj1j1  T&`d.d.d.d.c.c.c.c.c.c.c.c.c.c.b.b.b.b.b.b-b-b-a-a-a-a-a-a-a-a-a-a-`-`-`-`-`-`-`-_-_-_-_-_,_,_,_,_,_,^,^,^,^,^,^,^,^,],],],],],],],],\+\+\+\+\+\+\+\+[+[+[+[+[+[+[+[+Z+Z+Z+Z+Z+Z*Z*Z*Y*Y*Y*Y*Y*Y*Y*X*X*X*X*X*X*X*X*X*W*W*W)W)W)W)W)W)V)V)V)V)V)V)V)U)U)U)   *4Z*j1ڈRmHHHHHHHIIIIIIIIIIIIIITrm4j1  U'qd.d.c.j6j6j6j6i6i6i5i5i5i5h5h5h5h5h4h4h4g4g4g3g3f3f3f3f3f3f3e3e3e3e3e2e2e2d2d2d2c2c1c1c1c1c1c0b0b0b0b0b0b0b0b0a0a0`/`/`/`/`/`/_._._._._/`/`/`/`/_/_/_/_0_0`0`0_0_0_0_0_1_1_0`0_0_0_1_1_1_1_1_1_1_1_1_2_2_2_2_2_2_2_2_2_2_2_2_2_2^2^2^3_3_3_3f:e:Y-U) !,5b-j1ccGGHHHHHHHHHIIIIIIIIIIIvu>j1  S&td.c.vCRRQQQPPONNNMLLLLKJJIIHHGGFF~E}E}D}D|C{C{BzAzAyAy@y?x?w>w>v=v=u=ur>t@zG~L~MM~NNOOPPPPQRRRTTTTUUUVVVWWXsse:U)  "-6f.j1g`GGGGGHHHHHHHHHHHHIIIIIvu>j0c4!  z?Lb-c.t@PAz7y6x6x6x5w5w5w5v4v4v4u4u3u3t3t2t2s2s2r1r1r1q1q0q0p0p/o/o/o/n.n.n.m.m-l-l-l-k,k,k,j,j+j+j+i*i*h*h*h)g)g)g)f(f(e(e'e'd'd'd&d&c&c&b&b%b%a%a%a$`$`$`$_#_#_#^#^"^"]"^#k4n7n7n7n7m7m7m7m7m7m6l6l6l6m6l6m7l7l6l6l6k6k5k5k5j5k6k5j5j5Zse:U)  $.7j0j0uSGGGGGGGGGHHHHHHHHHHHHHuu>j0X(M  y>Mb-c.m:P@y6x6x5x5w5w5v4v4v4u4u4u3t3t3t2s2s2s2r1r1q1q1q0p0p0p/o/o/o/n.n.m.m.m-l-l-l-k,k,j,j,j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$`$`$_#_#^#^"^"^"`&l4n7n7n7n7m7m7m7m7m7m6l6l6l6m6l6l6m7l7l6l6k6k6k5k5j5j5k6k5j5j5Zse:U)  %/i7]j0p7vSFFFFGGGGGGGGGGHHHHHHHHuu>j0W'N  y>Mb-c.m9OAx5x5w5w5w5v4v4v4u4u3t3t3t2s2s2s2r1r1r1q1q0q0p0p/o/o/o/n.n.n.m.m-l-l-l-k,k,k,j,j+j+j+i*i*h*h*h)g)g)g)f(f(e(e'e'd'd'd&d&c&c&b&b%b%a%a%a$a$`$`$_#_#_#^#^"^"a&n7o8n7n7n7n7m7m7m7m7m7m6l6l6l6m6l6m7l7l7l6l6k6k5k5k5j5k6k5k5j5j5Ztf;U)  &0y@kj0v?xFFFFFFFFGGGGGGGGGGGGGGGq|Ej0V'O  y>Mb-c.m9NEw5w5w5v4v4v4u4u3u3t3t2t2s2s2r1r1r1q1q1q0p0p/p/o/o/n.n.n.m.m-m-l-l-l-k,k,j,j,j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$`$`$_#_#^#^#^"e*o8o8o8n7n7n7m7m7m7m7m7m6m6l6l6m6l6l6m7l7l6l6l6k6k5k5j5j5k6k5j5j5j5Ztf;U)  '1M#j0yBxFFFFFFFFFFFFFGGGGGGGGGGiمOj0]+l  x>Mb-b.l9MDw5v4v4v4u4u4u3t3t3t2s2s2s2r1r1r1q1q0p0p0p/o/o/o/n.n.n.m.m-l-l-l-k,k,k,j,j+j+j+i*i*h*h*h)g)g)g)f(f(e(e'e'd'd'd&d&c&c&b&b&b%a%a%a$a$`$`$_#_#_#^#^"h.p8o8o8n7n7n7n7m7m7m7m7m7m6l6l6l6m6l6m7m7l7l6l6k6k6k5k5j5k6k6k5j5j5j5Zuf;U) (2V'i0نPnEEFFFFFFFFFFFFFFFFFFFGGh؄Ni0b- z>La-b.l8LDv4v4v4u4u3t3t3t2s2s2s2r1r1r1q1q0q0p0p/o/o/o/n.n.n.m.m-m-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$`$`$_#_#^#_$l3p8o8o8o8n7n7n7n7m7m7m7m7m7m6l6l6m6m6l6m7l7l6l6l6k6k5k5k5j5k6k5j5j5j5j5Zuf;U) )3V'i0نPkEEEEEEFFFFFFFFFFFFFFFFFh܋Vi0a, z>La-b.k8KCv4u4u3u3t3t2t2s2s2r1r1r1q1q1q0p0p/p/o/o/o/n.n.m.m.m-l-l-l-k,k,j,j,j+j+j+i*i*h*h*h)g)g)g)f(f(e(e'e'd'd'd&d&c&c&b&b&b%a%a%a%a$`$`$_#_#_#a'n5p8p8o8o8n7n7n7n7m7m7m7m7m7m6m6l6l6m6l6m7m7l7l6l6l6k6k5k5j5k6k6k5j5j5j5j5Zuf;U) *4a,i0ߑ\fDEEEEEEEEEFFFFFFFFFFFFF]_i0e.  z>La-b-k7J~Bu3u3t3t2t2s2s2s2r1r1r1q1q0p0p0p/o/o/o/n.n.n.m.m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$`$`$_#_#e+o7p8p8o8o8o8n7n7n7n7m7m7m7m7m7m6l6l6m7m6l6m7l7l7l6l6k6k5k5k5j5k6k5k5j5j5j5i5Zuf;U)   +4a,i0a]DDDDEEEEEEEEEEEEFFFFFFF\^i0f.  y>La,b-j7J~At3t3t2s2s2s2r1r1r1q1q0q0p0p/p/o/o/n.n.n.m.m-m-l-l-l-k,k,j,j,j+j+i*i*i*h*h)h)g)g)f(f(f(e(e'e'd'd'd&d&c&c&b&b&b%a%a%a%a$`$`$_#_#j1p9p8p8p8o8o8n7n7n7n7m7m7n7m7m7m6m6l6m7m6m6m7m7l7l6l6l6k6k5k5k5k6k6k5j5j5j5j5i5Zuf;U)  !+5a,i0a]DDDDDDDDEEEEEEEEEEEEEEEVmi0h/  @!0^+a-j7}F}At2s2s2s2r1r1r1q1q1q0p0p/p/o/o/o/n.n.m.m.m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$`$`$a&m5p9p9p8p8o8o8o8n7n7n7n7m7n7m7m7m7m6l6l6m7m6m7m7m7l7l6l6k6k6k5k5j5k6k6k5j5j5j5j6i5Zvf;T(  !,5i0i0i\CCCDDDDDDDDDDEEEEEEEEEEPni0i0  @ 0^+a-e2|F|@s2s2s2r1r1q1q1q0p0p0p/o/o/o/n.n.n.m.m-m-l-l-k,k,k,j,j+j+j+i*i*i*h*h)h)g)g)f(f(f(e(e'e'd'd'd&d&c&c&b&b&b%a%a%a%a$`$`$f+o7p9p9p8p8p8o8o8o8n7n7n7m7m7n7m7m7m7m6l6m7m6m6m7m7l7l6l6l6k6k5k5k5k6k6k5k5j5j5j6i5i5Zwf;T(  ",6i0i0rOCCCCCCDDDDDDDDDDDDDDDDDJop:h0D1  @ 0^+׿a-e2{E{?t3r1r1r1q1q0q0p0p/o/o/o/n.n.n.m.m.m-l-l-l-k,k,k,j,j+j+j+i*i*h*h*h)g)g)g)f(f(e(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$`$a%k1p8p9p9p9p8p8o8o8o8n7n7n7n7m7n7n7m7m7m6l6l6m7m6m7m7m7l7l6l6l6k6k5k5k5k6k6k5j5j5j5j6i5i5Zwe:T(  "-6h0h0qOBCCCCCCCCCCDDDDDDDDDDDDDps=h0S&P  @ 0^+׿a-e1zD}Bs2r1q1q0q0p0p/p/o/o/o/n.n.m.m.m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'e'd'd'd&d&c&c&b&b&b%a%a%a%a$d)o6p8p9p9p9p8p8p8o8o8o8n7n7n7m7n7n7m7m7m7m6l6m7m6m6m7m7l7l7l6l6k6k5k5k5k6k6k5k5j5j5j6j6i5i5[we:T(  #-7h0h0qOBBBBBCCCCCCCCCCCCCCDDDDDhցLh0^+| @ 0^+׿a-d1yC|Ar2q1q0p0p0p/o/o/o/n.n.n.m.m-m-l-l-k,k,k,j,j,j+j+i*i*i*h*h*h)g)g)g)f(f(e(e(e'd'd'd'd&c&c&c&b&b%a%a%a%a$i/q9q9p9p9p9p9p8p8p8o8o8n7n7n7n7m7n7n7m7m7m6l6m7m7m6m7m7m7l7l6l6l6k6k5k5k6k6k6k5j5j5j5j6i5i5i5[we;T(  #.P*Ph0h0qOBBBBBBBBBCCCCCCCCCCCCCCCd؅Ph0`,  @ 0^+׾`-d1xB{@r1p0p0p/o/o/o/n.n.n.m.m.m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b&b%a%a%d(o5q9q9p9p9p9p9p8p8p8o8o8o8n7n7n7n7n7n7m7m7m7m6l6m7m7m7m7m7l7l7l6l6k6k6k5k5k6k6k6k5j5j5j6j6i5i5j6[we;T(  #.z?ih0k4qNBBBBBBBBBBBBBBBCCCCCCCCCY\h0e.  A!/]+׾`-d1xAz?q1p/p/o/o/n.n.n.m.m.m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)h)g)g)f(f(f(e(e(e'd'd'd'd&c&c&c&b&b%a%a%i/r9q9q9q9p9p9p9p9p8p8p8o8o8n7n7n7n7n7n7n7m7m7m6m6m7m7m6m7m7m7l7l6l6l6k6k5k5k6k6k6k5j5j5j5j6i5i5i5j6[we;T(  $.z?ih0t>sAAABBBBBBBBBBBBBBBBBBBBBBSgh0g/  A!/]+׾`-c1wAy>q0o/o/o/n.n.n.m.m-m-l-l-k,k,k,j,j,j+j+i*i*i*h*h*h)g)g)g)f(f(f(e(e'd'd'd'd&c&c&c&b&b%b%e*n5r9r9q9q9p9p9p9p9p8p8p8o8o8o8n7n7n7n7n7n7m7m7m7m6m7m7m7m7m7m7m7l7l6l6k6k6k5k5k6k6k6k5j5j5j6j6i5i5j6j6[wf;T(  $.z?ih0t>sAAAAAAABBBBBBBBBBBBBBBBBBMkk3h0\0#  A!/]+׾`-c1v@x>p0o/n.n.n.m.m-m-l-l-l-k,k,k,j,j+j+j+i*i*i*h*h)g)g)g)f(f(f(e(e'e'd'd'd&d&c&c&b&b&c&j0q9r:r9q9q9q9p9p9p9p9p8p8o8o8o8n7n7n7n7n7n7n7m7m7m6m6m7m7m7m7m7m7l7l6l6l6k6k5k5k6k6k6k5k5j5j6j6i5i5j6j6i6[xf;T(  $.z?ih0s>r@@AAAAAAAAAAABBBBBBBBBBBBBmr???????????@@@@@@@@@@@@@@`ׂMg/`,  V(^,_-m8s9m/j,j,j+j+j+i*i*i*h*h)h)g)g)g)f(f(e(e(e'd'f)n3t:s:s:s:r:r:r9r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8n7n7n7o8n7n7n7m7m7m7n7m7m7m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k5j5j6j6j6i5j6j6j6i6i5i5i5[ze;S(  !,R*Ng/g/mJ>>>>>??????????????????@@@U_f/d.  V(^,_-l7r8l.j+j+j+i*i*i*h*h)h)g)g)g)f(f(f(e(e'e(m3s:t:t:s:s:s:r:r9r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8o8n7n7o8o8n7n7m7m7m7n7m7m7m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k6k5j6j6j6j6j6j6j6j6i6i5i5i6[ze;S(  !+5f/f/lJ>>>>>>>>>>????????????????Jgk5f/|@3  V(^,_-k7q7k-j+i*i*i*h*h*h)g)g)g)f(f(f(e(f)l1r9s:t;t:s:s:s:r:r9r9r:r:r9r9q9q9q9p9p9p9p9p8p8o8o8o8n7n7o8o8n7n7n7m7m7n7n7m7m8m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k5j5j6j6j6i5j6j6j6i6i6i5j6i6[{e;S(   +4f/f/lI===>>>>>>>>>>>>>>>?????????fvBf/X)o  K#x^,_-h4p6k-i*i*i*h*h)g)g)g)f(f(f(g*n4s9s:s:t;t:s:s:s:r:r:r9r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8o8n7n7o8o8n7n7m7m7m7n7m7m8m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k6k5j6j6j6j6j6j6j6j6i6i5i5j6i6[{e;S( *4f/f/lI========>>>>>>>>>>>>>>>>>>>[ۈSf/b-  K#x^,^,f3o6j,i*h*h)h)g)g)g)f(h*o4t;t:s:s:t;t:t:s:s:s:r:r9r:r:r:r9r9q9q9p9p9p9p9p9p8p8o8o8o8n7n7o8o8n7n7n7m7m7n7n7m7m8m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k5j5j6j6j6j6j6j6j6i6i6i5j6i6i6[|e;S( )3f/f/cR==============>>>>>>>>>>>>>Naf/e/ K#x],],f3p7j.h)h)g)g)g)j-o4u;t;t:t:s:t;t;t:s:s:s:r:r9r:r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8n7n7o8o8n7n7n7m7m7n8n7m7m8m8m7m7m7m7l7l6l6l6k6k6k6k6k6k6k6k5j6j6j6j6j6j6j6j6i6i5i5j6i6i6[|ef/U'`  J#x],],f4q8l/g)g)m0q6u;u;t;t;t:s:t;t;t:s:s:s:r:r:r:r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8o8n7o8o8o8n7n7n7m7n8n7n7m8m8m7m7m7m7l7l7l6l6k6k6k6k6k6k6k6k5j6j6j6j6j6j6j6j6i6i6i5j6i6i6i6[|ehe/p;;;;;;;;;;;;;;;;;;;;;;;;;;;;>ct@e/V'q  '08Z-c[*\+g6|Hw@t;t:t:s:s:s:r:r:r:r:r:r:r9q9q9q9p9p9p9p9p8p8p8o8o8o8o8o8o8o8n7n7n7n8n8n8n8m8m8m8m7m7m7m7l7l6l6l6k7k6k6k6k6k6k6k6j6j6j6k7j6j6j6j6i6i6j6j6i6i6i6i6i5i5Z}ft;t:s:s:s:r:r:r:r:r:r:r9q9q9q9p9p9p9p9p9p8p8o8o8o8o8o8o8o8n7n7n7n7n8n8n7m8m8m8m7m7m7m7l7l7l6l6k7k7k6k6k6k6k6k6k6j6j6k7k7j6j6j6j6i6j6j6j6i6i6i6i6i5i5ߋZ}fh|9|9|9|9|9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9OދWd.c.N((  $,4:J"\+^.wEzEt:t:s:s:s:r:r:r:r:r:r:r9r9q9q9q9p9p9p9p9p8p8p8o8p9p9o8o8o8o8n7n7o8n8n8n9n8m8m8m8m7m7m7m7l7l7l6l7k7k7k6k6k6k6k7k6k6j6k7k7k7j6j6j6j6j6j6j6j6i6i6i6i6i5i5i5i5h5ߊZ~e`r?d.Y)  "*29x<{\+],q@|Hu;t:s:s:s:r:r:r:r:r:r:r9r9q9q9q9p9p9p9p9p8p8p8o8o8p9o8o8o8o8n7n7o8n8n8n9n8m8m8m8m7m7m7m7m7l7l6l7l7k7k6k6k6k6k7k7k6j6j6k7k7j6j6j6j6i6j6j6j6i6i6i6i6i5i5i5i5h5h5Z~et:s:s:s:r:r:r:r:r:r:r9r9q9q9q9p9p9p9p9p8p8p8o8o8p9o8o8o8o8o8n7o8o8n8n9n8n8m8m8m8m7m7m7m7l7l6l7l7k7k6k6k6k6k6k7k6j6j6k7k7k7j6j6j6j6j6j6j6j6i6i6i6j6i5i5i5i5h5h5Z~ec.Y)   (07( IY)\+d4|Jw@t:s:s:s:r:r:r:r:r:r:r:r9q9q9q9p9p9p9p9p9p8p8p8o8p9p9o8o8o8o8n7o8o8n8n9n9n8m8m8m8m7m7m7m7l7l7l7l7k7k7k6k6k6k6k7k6k6j6k7k7k7j6j6j6j6j6j6j6j6i6i6i6j6i5i5i5i5h5h5i5Ze=R(  #-Y)d.ԁNeFFFFDB>=~;|9{8{8{8{8{8{8{8{8{8|8|8|8|8|8|8|8|8|8{8{8{8{8PމVc.c.o98 '/6>~;~;{8{8{8{8{8{8{8{8{8{8{8{8{8{8{8~<[vDc.\+  &.5;P%\+_/wF{Et:s:s:s:s:r:r:s:r:r:r:r9q9q9q9p9p9p9p9p9p8p8p8p9p9p9o8o8o8o8n7o8o8n8n9n9n8n8m8m8m8m7m7m7m7l7l7l7l7k7k7k6k6k6k7k7k6j6k7k7k7k7j6j6j6j6j6j6j6j6i6i6i6j6i5i5i5i5h5h5i5i5[먀e=R( (i6Yc.h4lNFFFFFFFFFFFFFEEEEEBB@>>};};}:{7{7{7{7{7{7JXe1c.J"V  %-5;M$\+],rA}Hu;t:s:s:s:r:s:s:r:r:r:r9r9q9q9q9p9p9p9p9p8p8p8p9p9p9o8o8o8o8o8o8o8o8n8n9n9n8m8m8m8m7m7m7m7l7l7l7l7k7k7k6k6k6k7k7k6k6j6k7k7k7j6j6j6j6j6j6j6j6i6i6i6j6i5i5i5i5h5h5i5i5i5[먀et;t;t;s;s;s:s:r:r:r:r9r9q9q9r:q9q9q9q9q:q:q9q9q9p9p9p9o8o9o9o9o9o9o9o9n9n9n9n8n8m8m8m8m7m7m7m8m8l8l7l7l7k7k7l7l7l7k7k7l7l7k7k7k7k7k7j6k6k6k6j6j6j6j6j6j6j6j6j6i5i5i5i6i6i6i6i6i6i6h6h6h5i6h6h6h6h6ߊ[몃et;t;t;s;s;s:s:r:r:r:r:r9r9r:r:r:q9q9q9r:q:q9q9q9q9p9p9p9o9o9o9o9p:o9o9o9n9n9n9n9n8m8m8m8m7m7m8m8m8l8l8l7l7l7k7l7l7l7k7k7l7l7l7k7k7k7k7k6k6k6k6k6j6j6j6j6j6j6j6j6j6i5i5i6i6i6i6i6i6i6i6h6h6h6i6h6h6h6h6h6h6h6ߊ[뫄d=P'  !*\+ٿa-ׄSZ~B~B~B~B~B~B~B~BBBBBBBBBBBBBBBBBBB~B~B~B~B~B~B~B~B~B~B~B~A~A~A~A~AHV}Kb/`-[+n8R$  !&+16:j4oX)[+\,i9|I{Euc߀E}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}@}@}@}@}@}@}@}@}@|@|@|@|@|@JS{Id1_,_,P%6 8&"  $(-26:k5nV)۸[+[+a1tB~IyBt;t;t;t;s;s;s:s:r:r:r:r:s:s:r:r:r:q9r:r:r:q:q:q9q9q9p9p9p9p:o9o9o9p:p:o9o9o9n9n9n9n9n8m8m8m8m8n8m8m8m8l8l8l7l7l7l8l8l7l7l7l7l7l7l7l7k7k7k7l7k6k6k6k6k6j6j6j6j6j6j6j6j6j6i5i6i6i6i7i7i6i6i6i6h6h6i7i6h6h6h6h6h6i7h6h6h6h6ߊ\뫅d=P'  "6 8_,`-݊YR}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@}@|@|@|@|@|@|@|@|@|@|@|@|@|@~CPRny>y>y>y>z@~FLKuCi7`/^,],],],X*ڞO%E s9h432211000112345679^/_BN$W)۸\+\+\+\+`0j8tA{FzDw@u;u;u;t;t;t;t;s;s;s:s:s:s;s;s;s:s:s:r:r;r;r;r:r:r:q:q:q9q9q9q9p:p:p:p:p:p:p:p:p:o9o9o9o9n9n9n9n8n8m8m8n9n9n8m8m8m8m8l8l7m8m8m8l8l7l7m7m7l7l7l7l7k7k7k7l7l7zF[d}zPT(Q'׬R(S(tMiyJj6j6i6i6i6j7j7i7i6i6i6i6i6i7i7i7i6h6h6h6h6i7i7h6h6h6i7h7h7h7h6h6ߊ[묅d=O'  %Q&_,h6_߂H|@|@|@|@{?{@{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?y>y>y>y>y>y>y>y>y?y?y?y?{BGJJwEl:c2^-],],],],],\+V)άV)ΘL$L$L$K#G!o7kCK#K#K#P&U(ϲY)\+\+\+\+\+],b1j8t@zEzDx@v=uy>z?z?z?z?z?z?z?z?y?y?y?y?y>y>y>y>y>{A}EGJ{GvBm;i7a0_.],],],],\+\+\+\+\+\+\+\+\+\+\+\+],_.d2i7q=vAzEyBw@v=uy>y>y>y>y>y>y>y>x=x=x=x=z@|C}E}F~HzEyDt@q=p=i7h5h5g5g5g5g4g4g5m9m9s?t@yCyBxAx@v>uy>y>y>y>y>y>y>y>y>x=x=x=x=x=x=x=x=w=w=w=x=y?y@zAzBzB{CzCzByBxAxAyAyAxAx@w@w>w>vy>y>y>y>y>y>y>y>y>x=x=x=x=x=x=x=x=x=x=x>x=x=x=x=x=w=w=w=w=w=w=vy>y>y>y>y>y>y>y>y>y>y>x=x=x=x=x=x=x=x=x>x>x>x>x>x=x=x=x=w=w=w=w=w=w=w=w=w=w=w=w=w=v=v=v=vy>y>y>y>y>y>y>y>y>y>y>y>y>y>x=x=x=x=x=y>y>y>y>y>y>x>x>x>x>x=x=x=x=w=w=w=w=w=w=w=w=w=w=w=w=w=w=v=v=v=vy>y>y>y>y>y>y>y>y>y>z?y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>x>x>x>x>x=x=x=x=x=w=w=w=w=w=w>w>w=w=w=w=w=w=w=v=v=v=vy>y>y>y>y>y>y>y>y>y>y>y>y>x>x>x>x>x>x>x=x=x=x=w=w=w=w>w>w>w>w>w=w=w=w=w=w=w=v=v=v=v=vy>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>x>x>x>x>x>x>x=x=x=x=x=w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=v=v=v=vy>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>x>x>x>x>x>x>x>x>x>x>x>x>x>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=v=v=v=vx>x>x>x>x>x>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=v=v=v=vx>x>x>x>x>x>x>x>x>w>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=v=v=v=v=vW}Ex>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=w=w=v=v=v=v=vw>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=w=w=w=v=v=v=v=vw>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=w=w=w=w=w=v=v=v=v=v=vw>w>w>w>w>w>w>w>w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=w=v=v=v=v=v=v=vއT\i~̈́[X-S(Q'o5 i2MO'P'vSszMh6h7h7h7h7h7h7h7h7g7g7g7g7g7ߊ\뭈c=N&  "W)ɹ\+c3SLw>w>w>w>w>w=w=w=w=w=w=w=v=v=v=v=v=v=v=v=v=v=v=v=v=v=v=v=v=u=u=u=u=u=u=u=u=u=u=u=u0Y)׹\+g7SLv>v>v>v>v>v>v>v>v>v>v>v>v>v=v=v=v=v=v=v=v=v=u=u=u=u=u=u=u=u=u=u=u=u=u=u0Y)׹\+g7TKv=v=v=v=v=v=v=v=v=v=v=v=v=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=uX)׸[+o@YJv>v=v=v=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=u=t=t=t=t=t=t=tu=u=u=u=u=u=u=u=u=u=u=u=u=u=u=t=t=t=t=t=t=t=ttL%L%L% K#rX)Y*Y*m>ߊ[bPt>r;r;q;q;q;q;q;q;q;q;q;q;q;q;q:q:q:q:q:q:q:q:q:q:q:q:q:p9p9p9p9p9p9p9p9o9o9o:o:o:o:o:o9o9o9o9o9o9o9o9o:o9o9o9n9n9n9n9n9n9n9n9n8n8n8n8n8n9m9m9m8m8m8m8m8l8l8l8l8l8l7yEޅS\\guz֍df;T(T(T(Q'@*  @9L%L% K%'P&X*Y*Y*l>߉ZaTwBq;q;q;q;q;q;q;q:q:q:q:q:q:q:q:q:q:q:q:q:q:q:p9p9p9p9p9p9p9p9o:o:o:o:o:o:o:o9o9o9o9o9o9o9o:o:o:o9o9o9n9n9n9n9n9n9n9n9n8n8n8n8n9n9m9m9m8m8m8m8m8l8l8l8l8l8r>LZ\`mxyσYa6T(T(T(P&@* E"5K% K%'P&X*Y*X*k=މYb[~Is=q:q:q:q:q:q:q:q:q:q:q:q:q:q:q:p9p9p9p9p9p9p9p:p:o:o:o:o:o:o:o:o9o9o9o9o9o9o:o:o:o:o9o9o9n9n9n9n9n9n9n9n9n9n8n8n8n9n9n9m9m9m8m8m8m8m8l8l8l8l8p={G߈U\^gszߗnxOX-T(T(S(P&k4 H$2 L%&O&W*X*X*d6}N``S{Fq:q:q:q:q:q:q:q:q:p9p9p9p9p9p:p:p:p:o:o:o:o:o:o:o:o:o9o9o9o9o9o:o:o:o:o:o:o9o9o9n9n9n9n9n9n9n9n9n9n8n8n9n9n9n9m9m9m8m8m8m8m8l8l8l8p={H߇U\\eoxxЃYj@T(T(T(R'àM%h  L%&P&W)X*X*^0rD߉ZcaS{Fq:q:p:p9p9p:p:p:p:p:p:p:o:o:o:o:o:o:o:o:o9o9o9o9o:o:o:o:o:o:o:o9o9o9n9n9n9n9n9n9n9n9n9n9n8n9n9n9n9m9m9m9m8m8m8m8m8m8l8tAL߇V\\eoxy֌coEX-T(T(T(Q'F!:  L$pU)ƴX*X*X*h:{L_dcVKvAp:p:p:p:o:o:o:o:o:o:o:o:o:o9o9o:o:o:o:o:o:o:o:o:o9o9o9o9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9m9m9m9m8m8m8m8m8s?{H݃QZ]`gpwxڑhtJ]1T(T(T(R'ßM%ik4  m55Q'W*X*X*X*h:|M`feaU}JwCo:o:o:o:o:o:p:p:p:p:o:o:o:o:o:o:o:o9o9o9o9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9m9m9m9m8m8o:uA}JޅSZ\^elsxqӈ^oDX-T(T(T(S'ңN%x@*  J#`S(W*X*W*W*d8wJ܈ZfhfdXޅQ~JxCrj0XRm0u " 4_*Pt~A`)/-Q#|ځDxdq4d4  )q<^v:ix߉Lg,R %>!Ck1^rjy;ȞR#!3\)PrmYm1+Gn~Apgp݄Gc+@ %R+Kp5fmghu9G  5_+TscmWk0y *Go؀CqgdqۂEa*: $D$Fn4fochjv9F/Y(QsdcnZl0~ 'm9[x=ohccq݆Ib+A!8d.]pbbelx<ʖM! )H qفEqdaaj`n2 "3 @k3cj```nPf,[ +O#܆Ko```am~AX%*#F%Fn5ff^__des7C +T$ފOn^^^^hZk0#H%Go6gc\]]]kފOd+U *R$މNl\\\\]k}AW%+!9 Bl4db[[[[_ft9H (L!zڅIkZZZ[Zc^l3%:g1`bYYZZYfTf-k %}Af}CjYXXYYYhڄJ_*F  1_+XdWWXXXYgz?R#'"X-Ns:fZWWWWWZdt9‰F (Q#܇MfUVVWWW\^n4Q( &9g0_]UUUVVV_Wh.#p:\x?fUTTUUUUaދPc+f *U&݊PaSSTTTTTbكI^)M, ;g1^XRRSSSSSc}CW%4#m8Zw>dRQRRRRRScw=ޖM # 'R$ۇN`PQQQQRQT`s:̊F  4b/ZWOPPPQPPT^p8x=Q*Jp8aQOOOOPPPU[n5_0#Em}D`NNNNOOOOUYj2:  (V&݉PZMNNNNNNNTVh0  5c/YSLMMMMNNNUUf/H%En7^NLLLLLMMMWދQd-!v=`w?^KKKKKLLLLV݊Pc,$M"ցHYIJJJKKKKKV݉Oc,   (W'݊QUIIIJJJJJJU݉Oc, "######################################################!  2a.WOHIIIIIIIIT܈Nb, P%XX(U(S'S'S'S'R'R'R'R&Q&Q&Q&Q&Q&P&P&P&P&O&O&O%O%O%O%N%N%N%N%M%N%M%M$M$M$M$L$L%L%L%K%K%K$K$K$J$J$J$J$J$J$J$I$I#I#I#H#I#J$M&N&|m4 8 u>u=tm>n?n?m?m?n@pBzM^2=%N'Gn7[IGGHHHHHHHOߍSe/ u<9`.u?D|:z9y8y8x7w7w6v5u5t4s4s3r2q2p1o0o0n/m/l.l.k-j,j,i+h*g*f)f)e(e(d(d'c'c'b'a&a&a%f-n8p:p:p:p:o9o:o:o;o:o:n9n9n9r=_e:}9&n9Yt=[FFFGGGGGHGMSg09 n87^,q;}@x6v4v4u4t3t2s2r1r1q0p0o/o/n.m.l-l-k,j,j+i*h*h)g)f(e(e'd'd&c&b%a%a$`$_#^#_#e+m6n7n7m7m7m6l6l6l6l6l6k5k5j5j5n9ߌ]e:|9& CkyBXEFFFFFFFFFKTi3].n87^,q;}@w6u4u3t3s2s2r1q1q0p/o/n.n.m-l-k,k,j+j+i*h*g)g)f(e'd'd&c&c&b%a%a$`$_#`%h.o7o8n7m7m7m7m6l6m6m7l6l6k5k5k6j5n9ߌ]e;|9&!K!|}FUDEEFFFFFFFJVk5s:o86],p:{?v5t3t2s2r1r1q0p/o/o/n.m.l-l-k,j,j+i*i*h)g)f(f(e'd'd&c&b&a%a%`$_#b'j1p8o8n7n7m7m7m6l6m6m7l7l6k6k5k5k5j5m9ߌ]f;|9&#P#րIRCDEEEEEEFEHWn6ՃC!m75\+n9y=u4s2r1r1q1p0p/o/n.m.m-l-k,j,j+j*i*h)g)f(f(e(d'd&c&c&b%a%a$`$d*m5p8o8o8n7n7m7m7m6m6m6m7l7l6k5k5k6k5j5m9ߌ]e:|8&#U&لLPCCDDDDDEEDEWq:K!/ \.,Z*k7w;t3r1q1q0p/o/n.n.m.l-k,k,j,j+i*h*h)g)f(e(e'd'd&c&b&a%a$b&h.o7p9p8o8n7n7m7m7m7l6m6m7m7l6k6k5k5k6j5j5m9ߌ^e:|8&$U&څMNBCCCCCDCDDCTv@U&I [.,Z*k6v;s3q0p/o/o/n.m.m-l-k,j,j+i*i*h*g)g)f(e(d'd&c&b&b%a%d)l3p8p9p8o8o8n7n7n7m7m6m7m7m7l7l6k6k5k6k5j5i5m9ߌ^e:|8&)Y(څNMABBBBBCCCCCQ|E[)e \/,Z*j5u:q1o/o/n.m.m-l-k,k,j+j+i*h*h)g)f(e(d'd'd&c&b%b&h.o6q9p9p8p8o8n7n7n7m7m7m6m7m7m7l6k6k5k6k6j5j5i5m9ߌ^e:|8& ,\+܉QHABBBBBBBBBBLقJ`+ ]/,Y*i5s9p0n.n.m-l-k-k,j,j+i*i*h)g)f(f(e'd'd&c&b&e*m3q9q9p9p9p8o8o8n7n7n7m7m6m7m7m7l7l6k6k5k6k5j5j6i5m:ߌ_e:{8& ,\+܉QG@AAAAABBABBG݈Oe0K& O(&W)f3q6o0m.l-l-k,j,j+i*i*h)g)g)f(e(d'd'c&e(j0p7r:q9p9p9p8p8o8n7n7n7m7m7m7m7m7m7l6l6k5k6k6k5j6i6i5m:ߍ_f;{8&+[+܈PF@@@@@@@AAAADRj4y=# G$$U(e1p6n/l-k,j,j+j+i*h*g)g)f(e(e'd'e'i-o6r9r:r9q9p9p9p8o8o8n7n7n7m7m7m7m7m7l7l6k6k6k6k5j5j6i5j6m9ߍ_f;{8&+[+܇OF?@@@@@@@@@@@Rr;Q#B H$$U'd1o5m.k,j,j+i*h*h)g)f(f(e'e(h,n4r9r:r:r9q9p9p9p9p8o8n7n7n7m7m7m7m7m7m7l6l6k6k6k6k5j6j6j6i6m9ߍ_e;{7&(X(لLI>?????@@@?@?M{DZ(r H$#U(d0m4k-j+i*i*h)g)g)f(e(h,n3s9s:r:r:r:q9q9p9p9p8o8n7n7n7n7m7m7m7m7m7l7l6k6k6k6k6j6j6j6j6i5m9ލ`e;{7&"T&؁JH=>>>>?>>????GڃLb./  J%#S'c0k2j,i*h*g)g(g)i-n3r9t:s:r:r9r:r9q9p9p9p8p8o8n7o8n7m7m7m7m8m7m7l6l6k6k6k6k5j6j6j6i6i5m:ލ`e;{7&!S&HI======>>>>>>APj5y=& 0 Q&a.j1j,g)h*k.o4s9t;t;s:s:r:r:r:q9p9p9p9p8o8n7o8n7n7m7n7m8m7m7l7l6k6k6k6k6j6j6j6j6i6i5m:ލ`e;z7&N#{EK<============Nt>U&W 0 P&`/k3n2q6t:t;t:t;t:s:r:r:r:r9q9p9p9p8o8o8o8o8n7m7n7m8m8m7l7l6k6k6k6k6j6j6j6j6i6i6i6m:ލ`eM:;;;<;<<<<<<*#)J#a0s>v=t;t:s:r:r:r:r9q9p9p9p9p8o8o8o8o8n7n8n8m8m7m7m7l6l6k6k6k6j6j6j6j6j6j6j6i6l9ߎ`fs:s:r:r:r:r9q9p9p9p8p8o8o8o8n7n7n8n8m8m7m7l7l6k7k6k6k6j6j6j6j6j6j6j6i6i5m9ގaev>s:s:r:r:r:q9q9p9p9p8p8p9o8o8o8o8n9n8m8m7m7m7l7l7k6k6k7k6k7k7j6j6j6j6i6i6i5i5h5m9ޏbe=>Ln:Q%d +].]Y+nt;s;s:r:r:r9r:q9q9q:q9q9p9o9o9o9o9n9n9n8m8m7m8m8l8l7l7l7k7l7l7k7k7k6k6j6j6j6j6j5i5i6i6i6i6h6i6h6h6l:ޏdd=w4&=0].؁MG~A~B~B~BBBBBBBB~B~B~B~B~B~B~A}A~BIxDc2O%?-  "+<HH"].m;wAu=t;s;s:r:r:r:r:q9q:q:q9q9p9o9o9o9o9n9n9n8m8m8m8m8l8l7l8l7l7l7l7k7k7k6k6j6j6j6j6j6i5i6i6i6i6h6i6h6h6h6l:ޏdd=w4& K#|q?N}A}A}A}A}A}A}A}A}A}A}A}A~A}A}A}A}@}@}@}@}@F|Gj8Y*}>X"  !)"<|=yV)e4s?w?t;s;s:r:r:r:r:r:r:r:q:q9q9p9o9o9p:o9n9n9n8m8m8m8m8l8l7l8l7l7l7l7k7k7k6k6k6j6j6j6j6i5i6i7i6i6h6i6h6h6h6h6l:ޏdd=w4&V*:`0فM߀E}@}A}@}@}@}@}@}@|@|@|@|@|@|@|@|@|@|@|@|@|@~CHt@c2S'o7O $  ")";q8mR'`0n;v@u=t;s;s:r:r:s:r:r:r:r:q:q9p9p:o9p:p:o9n9n9n8m8m8m8m8l8l7l8l7l7l7l7k7m8zGt@j6j6j6j6j6i6i6i7i6i6h6i6i6h6h6h6h6l:ޏed=w4& O%r@߄M}A}A}A}A}A}A}@|@|@|@|@|@|@|@|@|@|@|@|@|@|@{@|@~D|Eot;t;s;s:r:s:s:r:r:r:r:q9q9p9p:p:p:p:o9n9n9n8m8n8m8m8l8l7l8l7l7l7l7k7k7xEd݋_q?j6j6j6i6i6i7i7i6i6i7i6h6h6h6h6h6l;ޏdd=w3&\.;_/KE|@|@|@|@|@|@|@|@|@|@|@|@|@{@|@|@{@{@{?{?{?z?z?{@}DyDpu{Pq@j6j6i6i7i7i6i6i7i6h6h6i7h6h6h7l:ޏdd=w3& L#}n<߄M|@{@{@{@{@{@{@{?{?{?{?{?{?{?{?z?z?z?z?z?z?z?z?y>y>z?{B{Cu@m:d3].W*P&J#C z?p{=lq8e|>p@yG!M$T(\,b1j7q=v?v>u;t;s;s;s:s;s;s:r;r;r:r:q:q9q9p:p:p:p:o9o9n9n9n8m8n8m8m8l8m8m8l7m7l7l7k7k7q<ߊXܑed:J#`8|Qq@i6j7i7i6i6i7i7h6h6i7h6h6h7h7l:ݏdd=v3&H$0\,{HހG{@{@{@{@{@{@{@{?{@{?z?{?z?z?z?z?z?z?z?z?z?y?y?y?y>y>y>z?zAyAv@r=n:j7g5d2c1b1c1d2g4j7n9r=u>v>vy>y>y>x=x=x=x=x=x>y>y?x?x?w?v>v>v>v>v>v=v=uy>y?y>y>y>y>y>y>y>y>x>x=x>x>x=x=w=w=w=w=w=w=w=v=v=vy>y>y>y>y>y>y>y>y>x>x>x>x>x=x=w=w=w=w=w=w=w=v=v=vy>y>y>y>y>y>y>x>y>x>x>x>x>x>w>w>w>w>w>w=w=w=w=v=vx>x>x>x>x>w>w>w>w>w>w>w=w=w=w=w=v=vw>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w=w=w=w=w=v=v=vވVhsIT*D %  Bt`9~VrBh6h6h6h7h7h7g7k;ݐfc=u2&q8A].uC|Ew>w>w>w>w>w=w=w=w>w=w=w=w=w=w=w=v=v=v=vw=w=w=w=v=w=w=v=v=v=v=v=v=u=u=u=u=u=uP&A  At_9~VqBh6h7h7g7g7k;ݐfc=t2& G!ba1xFzCv=v=v=v=v=v=v=u=u=u=u=u=u=u=u=u=u݃Qfԇ]e:P&A  ?t_9XqCg6l;ݐfc=t2& D U^0vE}Hv>t܂PcڎcqGX-̡L#[w7  >t^:т\pb܀MaݑezO^3O%C$  ?s`;Ցlbr=r=r=r=r>uAvCyF}J݀N߅TZ^ߏaی`҃WvJh=[0ժS(K"a@(V' O%?6K#hS(Z.Ĺb4l>tFzLQ؄UۈYފ[ތ\]]]^ލ^ލ_ۊ\؇ZԃW~QwKnCd9\1ЬU+M$zH!H< S& , a.?2I!TM$uR'W+Z.\0϶^2޸a5e9e9e9e9`4]2޳\1ΰY/V,R(N$vJ"XD5|9^* G!g0p4{:$~;&}:&}9&|9&~:&;&~:#u6k1T&*???????? / _  (@ B% W'w?Y(@k0C~C@n1j0"N)4t;t7  'u@Tp58_/~bR: |CWWfz?a @ 5ЃIjYܽb+#i7ch݊LPzAUXhcx>[ %*|EgeZb-&U+o^ceߎO, = 3фJd_b~Cv[/y]__]n7D 9 1уJ`[_VڱZ'T*mZ[Z_݌Ox*  &zD]XX]ՁFw?RSYWWZw>gg6ZUUVWl6G4.GXSSVTb// |B URSQRUPܨU&a3UPPPT݊M͙I!u@TNNNSچJ‚9L&7ӂIPLMMR׃H^!  {BS݋MLKKKQՀE\  U+rOJIJJOE[ ! G!GL%fK%fJ%fJ%fI$fI$fH$fH$fG#fG#fF"fF"fE"fE!fD!fD!fD!fD!fD!fC"fC"fC!fC"fC"fC#fC#fC#fC#fE%cJ'Oq6b4OGHHHMՀFi* R&Xl8x>v:t9s8r6p5o4n3l2k1j0i/g.f-d,d+c+c+b+b+h3l9l:l:l:l:k:o?qDݒG"(k:MFFGGKցGɆ?T)Xp9y9v4t3s2q1p/n.m-k,j+i*g)f(d'c&b%`$`$g-n6n7m7m6m7l6k5p;xJG$) q=KDEEEI؂GؘL!R(Vn7v6s2r1p0o/m.l-j,i*h)f(e'd&b&a$b&j1o8n7m7m6m6l6k5j5o;wJG#) "t?ICDDDFۄHW).O&Ok5s5q0o/n.l-k,j+i*g)f(d'c&b%e*m5p8o8n7m7m6m7l6k5j5o;wJF#)/'v@GABBBDކIa0IN%Ni4q3n.m-k,j+i*h)f(e'c&d(j0p8p9o8n7n7m7m7l6k6k6j5o>>>BzBшCH"Bb.i-h*j.o4s9s:r:q9p9p8o8n7m7m7m7l6k6k6j6i6oڀD].KC @a/p7t:t;s:r:r9p9p8o8o8n7m8m7l7k6k6j6j6i5ow?ےJ"*u;di7t=~y>y>y>x=x>x>x>v=u=tqBi7h6i7i7h6n=xOC")Z,$h8{Cz?z?z?y?y>y>y>y>x>x>x>w>w=w=w=v=vqBi7i7h7g6n=xOB")F"Fo=zAx>x>x>x>x>x>w>w>w=w=w=v=vxOB") R)eq>x@w=w=w=w=w=v=v=v=v=uxOB")  W,vs?x@v=v=v=u=u=u=u=u=u=txOA")( U,eo>wAu=tvAu>r;q:q:q:q:q:q:p:p9o9o9o9o9o9n9n9m8m7m9s?}KցSwKسa7xCB$4U0F#'" H#7b5p?vCvAs=q:p9o9o9o9o9o9n9n9n8m8n8o:s?zG؀P~QsGDz`6rF "2BD! 4F"1]2yk=sCwFxEwDvBu@t?s?t@vBwD{H}LO|NuIлh>W.L;a+K&7[1gf:l?qCtFwIxJwJvHtGpDi?`6mR*><= H {7@ F!$G#$E!$A8V ?<~?(0` %v?u>u? f.9O$6 g/n1<m;C]#  Y.`[ۇKae6;ޕU_l3 GfR ]2h`dւFSQ)0ۑSf\i3m<`bTqd59ߔT`_ڇKrm<]\\y@BP(.َP[ZX޼f3 ^2kXWYRE  }EWTX݋Mi8:ގOSRVׅI\1jRPPTEpr>QNNQzBa- FNLLPv?[b44هJKJJNt=[* G!@M'XK&WK&WJ%WI$WH$WG#WG#WF"WE"WD!WD WD!WD!WC!WC!WD#WD$WD$WD$WD%VJ(MD#H%JߊJHHHLu?aW*]q:v:t7r5p4n2l1j0i.g-e+d*c*b)`)e/k7k8k8k9j8rC`8UU-^JFFFJw@q].bs8v4s2q0o/m-k,j+h)f(d&b%a$f+m5n7m6m6l6k5vDe W+Yl3o/l-k,i*g)e'd'g,n5p9o8n7m7m7l6k6j5uEe>>?݂Db2<R'Qe.i+j,n2r8r:q9p9o8n7m7m7l6k6j6i6uEd=XV-`܀B<<==Ao;zL$Of2s:t;r:q9p9o8o8n7m7l7k6k6j6i6uFe=XK'K}@:;;;=x?ňDU+r;s:r:q9p8o8n8m8m7l6k6j6j6i6uFe=Xn:2y@;}:}9}9}9|>c3Z z>Zj7s;r:q9p9o8o8n8m7l7k6k6j6j6i5uFe>X9 uAFBA@>@u?…C  g4If5s;r:q9p9p8o8n8m8l7k7k7k6j6i6i5uFe>X i:߄HDEEED݁Fi8#  `0Dc3s;r:q9q9p9o8n8m8m7l7k7k7j6j6i5i5uFd>XU-ZFDDDDCD{C^1em7Pd4sXb1%uAD߀C߀C߀C߀C߀C߀DxA[/i-  F#mh6sXd6~D~A~A~A~A~A~A~Bx@c4r:/ `/CX-n9tq;k7e4ļb1b2g5n8s;ty>y>x>x=x>x=w=v=ux>x>x>x>w>w=w=v=vw=v=v=v=v=u=uu=u=u=u=t=tt?t=r;q:p9p9o9o9o9n9n8n8n9r=wE{KxKʺi?oM'I':K'1" L')c7wn>tBuBuAt@s?s>s?uAvCxGzJxJrFd;UI$:u8U.6c8dk>oArDtFsFrEoDj@q`8FM'e# )SZ!X8 ??????( @ J'J( \)$d-`0Vo4O[2@؋P}A!U.ْTZ~F}aPKQ,9[_v? ˅J`WgR,:W\Qq{DXXهKHY/ێNUU|C,]2IPQQp<r>{ONNѷf5 }CKKKϲa2> K%5R)FO(DN'DM&DK$DJ#DH"DG!DG"DF"DH%DI'DI'EL)CN+$<ӁEHHIԵd4_0ar8s5p2m0j.h,e*b(`'b+j5k7j7l:m@`3"ׂDEEGk8"R(e1jq4q0n.k,h*e'c&f+m5n7m7k5n:qCn< '׀BBBDq<;:`.el0l-i*f(f*k1o8o8m7l7k5n:qDk:$}@??Av>j% \+`h-j,l1p7q9o8n7m7l6j5m;pDW.x><<=z?z:T(fn7s:r:p8o8m7l7k6j6m;qE  s<<~:~:|=f59Q)mp9r:p9o8n8m7k6k6j6m:qEn wA߀CBBC{Bg6xg4G#V,m9s;q9p9o9n8m8l7k7j6i6h6l;pFh9y|B}@}@|@|@y@m9Y.]}@ +R(L%o80Q)ie4q:s;r:p:o9n9m8l7q=q@j7i6h6l{@{?z?z?z?y?u=p:k7j6m7q:s;s;q:p:o9n9m8l7px>x>w=w=w=vw>v=v=u=uu=tYe?vS,h9oo>r?s>r>r=r>s?tBvEuGoD[\58CL)b74j=\n@xqCqCpClmBKc;#G&>`(  @X(a,m>yBMZU.ؓTWEƄIE[S/QX,k:-QQzA`LKtk7Z-(]-2X)0T&0Q#0R'0V.1Y1&|@GF|i3co2k-e)c)i2j6l;x=A݂A<R*g.rj-k/n5n7l6n=r:z=~=o:r8 h4r9o8l7k6n=оm;K݀BBx@F%J%`1mp9p9m8k7j6m=РZ1yA~B|Aq;^00L&U+5f4p9q9n8n9l9i6m>n;Wx?y?x>tK(o;{u=u=t8a7l=8p@RqBNpC/kD  ?  ( @   ___K""__DD________DDDWWW__DDDKDD_____KDDDWWW1___KDDDKDD______"""%27,2hX=G(9"T\tmp\CC]R ve_pedidoPotccvent CX  0  pedidosG( \pedidos.txtG G :.Reporte del Anlisis de los Pedidos Pendientes:.------- --- -------- -- --- ------- ----------YM Pedido Resultado Mensaje YM----------- --------- -------------------------------------------------------G ~, T T C FG((tccvord E G( \pedidos.txtG G 'C @z 999,999,999_ % Aprobado  Rechazado %   C 7=GG(F G  s,(Ot, / \pedidos.txt,<,BU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOPEDIDOTCCVENTEST_DESPFCCOD_CLIPEDIDOSXMENSAJEXOKPROCESARTCCVORDTEMPWIN4 Ta Ta T- T- TG+(ve_procsG+( ve_pedidoTC] T - T -  ve_pedido<,  %wFG((tccvord E%CX*'TEl pedido est anulado !!!B-%s,TEl pedido ya est facturado !!!B-%x%C4?TFG((pedidoG ECZG TCC+CO6 Ta TC4 T- T-% ; Ta t$TEl pedido no existe !!!B- TPedido = 0 !!!B-% *%%   &<T/El pedido no debe pertenecer a ningn despacho.B-!%  ?T2El pedido no debe estar en proceso de despacho !!!B- T T  T! T" T# T$ T% T&-T'C(XT(CXT)CXT* T+T,CXT-C(XT.C(X T/ T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T: T; T< T= T> T? T@ TA TB TC TD TE TFTGCX TH TI TJ TK TL TM TNTOTPTQTRCX TSTTCXTUCX TV TW TX TYTZC X T[T\C X T]T^CX T_ T` Ta Tb Tc TdTeC(X Tf Tg- ThTiCX Tj TkTl Tm Tn% ToC XTp Tq- TrTs Tt Tu TvTwTxTy Tz T{C T|C T} T~ T T ve_pedidoa% CX)%C#C\S tF%S %CSUCURSAL F  FQsucursalid%  TC$ TC$TC$%TC! 6TTTTTTCX7TC C66T TTCX T T T ThTiCXTC#X T TToC XTCX TTC TTCX TTN TTN TTCXTC XTCX T- TTCX TTCX TTNTTTT TTCX TTTTN TT T T T TTN T T T T T T T T T T T T T T T%TTTTTTTTTTT T T T T%dlogmsgCXC XCXCX -BEG: Ct pr_funciones ve_pedido ve_pedido T+a C%Sz%CSUCURSALOF vFQsucursalidT%12f5do show_report12f6do print_report612f7(do notas_cliente in ge01 with xcod_cli F # T T T T T T T T T T  T  T  T  T  T T T T T T T T T T T T T T T T T T T  T! T" T# T$ T% T&' ve_pedido T( C)'T*C 0 SN6 T+ T, T- T. T/ T0 T1 T2 T3 T4 T56 ve_pedido T7 T8 T9 T: T; T< T=% + C>T?S%?S'%#STFEl comprobante que quiere ingresar tiene cantidad de artculos = 0 !!!B- %VT?S XT El pedido CC@z 999,999,999_$ tiene cantidad de artculos = 0 !!!B-{2f5{2f6{2f7 T?%@TA ve_pedido.PRGTBPedidoCtrsac?AB`Etrsac?stockstkxdeptccventtventascccliecompromi%? CF"TAbort el usuario !!!B- TGTHCC 999,999,999_TIP%J`Kproc_stk%F CM%N Ta TaTOCP%OQ 'TRC]6ocomprom1T \tmp\compromRQ TU- TV-,%   +%    W ve_pedido T T T TF5>XC%1$%  b Ta %-s -% G(T \temp.txt G(T \temp.txtG "%  TCY%8%;TCZ%4%  TUa% TVa T%C[ ,%$dlogmsgCXC XCXCX -Aborta 1!!% GG(%\TGR !%C[ %%dlogmsgCXC XCXCX -Aborta 2!!  T T%C[ %dlogmsgCXC XCXCX -Aborta 3!!%ddlogmsgCXC XCXCX -END: CtGG( .T!No se puede facturar sin CUIT !!!B-BaU]XPEDIDODIRREAAUTINMXTIPOPEDVE_PROCS VE_PEDIDOXIDXPEDIDO_LIBERADOSINSTK RESET_FILESDATOSCOMPROBTOTALESTCCVENTTCCVORDCOD_CLIXMENSAGEFCIDTVENTASPEDIDO BEG_TVENTAS YA_EXISTE YA_CARGADO RE_ANALIZORE_FINXMENSAJE P_ROTULOSEST_DESPREG_SUCXCOD_CLIXSUC XOTRO_CLIXCUITXCOFINXNOMBRE XUSAIVAANT XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XCNDSP_DESCR XCNDSP_C1D XCNDSP_C2D XCNDSP_C3D XCNDSP_C4D XCNDSP_C5D XCNDSP_C6D XCNDSP_C1P XCNDSP_C2P XCNDSP_C3P XCNDSP_C4P XCNDSP_C5P XCNDSP_C6P XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXCLIGLNXCLIIB XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIA XENTPHONO XENTHORARIO XENTCOORD XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIA XFCEPHONO XFCEHORARIO XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROSXREFCCXNUMREFXREFNUMXCAUXCUO XSUCFACREFXREFXFECREF REFERENCEDXTRA_NUM XTRA_FECHA XTRA_ENTREXCOB_CLIXCOB_EMP XOC_APROB XOC_FECHA XOT_FECHA XARM_QUIEN XARM_INICIOXARM_FIN XARM_CAJAS XARM_BULTOS XARM_PALLETXARM_EXHGET_CLICL_ATRCLIENTESSUCSUCURSALXFECEMIXFECENTXFECENT2P_ENT_EXT_DIASXHORARIOHORARIO XVENDEDORVENDEDOR XCOMI_VENCOMI_VEN XCOMI_DISCOMI_DISXFLETECOD_FLEXDISTRIBDISTRIBXCENTROXSUCFACLOCALESVE_024P_SUCXLISTALISTAXPRODXOTXTRANXTXTCPBT XTXTREMITO XCONTACTOXMOTIVOXPLANXOC XPRIORIDADXDEPOSFN_DEPXPEDVEN XCENCOSFACXNRE XPROMOCION XREVISIONXBLOQUEOXREVISION_ACTUALXREF_EXT XPLATAFORMA XNICKNAMEOPLATAFORMA_HOLDERXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGAXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONXPERASOC_DESDEXPERASOC_HASTAXFCE_RECHAZADOXREF_MOVXFEC_INIXNOTASPDXMONEDAXCAMBIO XERRMONEDAXDIVISAST_DESC1T_DESC2T_DESC3T_DESC4T_DESC5T_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2X1X2X3X4X5TEX1TEXTO1TEX2TEXTO2DES1DES2DES3DES4DES5 AP_CREDITOCREDITOAP_STOCKSTOCK AP_GERENCIAGERENCIA EST_DESPACHOMAX_PROD P_MAX_PRODMAX_DESC P_MAX_DESCMAXYIMAXYNP_LOGSTKLOG_STKLOGMSGOBIEDATA_CODIGO_VACIOCREAR_TMP_LOTES PR_FUNCIONESLEER_PD INIT_OTROS FIRST_MODIF UNLOCK_ALLF5F6F7NUMFAC XZONAFRANCA ZONAFRANCAT_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_IVA_RG5329 T_TOTIVAINCTX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_IVA_RG5329T_PESONT_PESOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVARBRUTOXBONIF TXT_BONIF T_CONSFIN INSCRIPTOT_DESCOMT_IVAT_IVA26T_FINAL T_RECARGO TX_DESCOMTX_IVATX_IVA26TX_FINAL TX_RECARGONETO XDESCADIC XDESCADI1 XDESCADI2 XDESCADI3 XDESCADI4 XDESCADI5 XDESCADI6MOSTRARAAA P_MULTIUSRTRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GFIN_TRANXOPCPEDXNUMXCAUSAP_I_LOG SAVE_STOCKPROC_STKREG_LOCK P_I_REANALXAPROB_ANTERIOR FN_APROBACIONP_VE_AP_STOCK_VERSIONXCOMPROMISOS_ANTERIORESCOMPROMP_LOCAL%XSE_APROBO_STOCK_Y_AUMENTO_COMPROMISO#XSE_APROBO_STOCK_Y_DISMINUYO_PEDIDO LIBERAR_STK UPDATE_DT VE_AP_CREDITO VE_AP_STOCK GUARDAR_PDP_NP%E2T    2T  BUXMONEDAT_FINALT_TOTAL T_IMPUESTOST_DESCOMT_IVAT_IVA26T_II T_REDONDEOT_DTO672 T_RECARGO T_IVA_RG5329TX_FINALTX_TOTAL TX_IMPUESTOS TX_DESCOMTX_IVATX_IVA26TX_II TX_REDONDEO TX_DTO672 TX_RECARGO TX_IVA_RG5329\4!%C8-C6?9B@z 99.99 QB@z 99BUXDprocesar\mostrar0fmt!2%BaaqbAraarbaaAAbarAaB2r"1B2qqqA"qAB3sbaAAqAqAbQqAAqA311A11111RrrqQAA"AQr1111112BBAsBBrqQAA1AausBA11qAA1qAA01 2!qAA1A2qAAaABBrUBBCAAa"A2A31AABAAAABAcaAABBAAAACBAAABBBBAdaqAAr22!!AB2qAA2, ?D?@2$@bA<%ֻPmY=p4C oSVP: Inicioa%CoPedAVFPbO oG(9  T     c:\pedidos  T -T \CC]R ve_pedidoa pr_funcionesG+(listadosG~(clasesG+( ve_funcionesG+(internet5 T T T T T#CoSVP: es ind datosC TaTCwwZIPN T  T!" log_errores!%Cped_proc Qped_procF$ T%C T& T' T( T) T* T+ T, T-F T. T/T0 A T1 T0 A T1 T0 AT2.T3  T4T5 @T6T7 T8a%C tmp_pedidosF9QT:C]h1;\tmp\:<N =C>C(?C@C(ADBC CN DCECFNQ;\tmp\:9TGCwwFTPNC oSVP: DO CASEH2  CoPedAVFPbOC oSVP: DO CASETH c:\pedidosTIC@F?G((codage EI,CI?>K T8-" C Automtico ?L MestadoJM#%CGO P2TQCP/envio del vendedor*.*GR%QS6C)Se debe realizar una limpeza del FTP !!!T%Q7 8CProcesando pedidos (CCQZ)QMU3CProcesando pedidos (CCQZ)aTMVMVdW(Q, 6CProcesando archivo: CWPa%CWPC$X>CCWP \archivo.zipGYTZCWPTZCZd\TICCCZC Z=F?G((codage EI5C \archivo.zipI?>-K  2CBorrando viejo: CWPaCCWPG[ CM\-K  %] #CoSVP: No hay datosCNo encontr datos.T T8-F$~C` >`CbcaF$ ~y %Cd k %`dP >N g >N u #CoSVP: Subo pedidosA%8/C]%CSubo los pedidos ? (DEV)La6 FF$oped_proc@tmp2Ff~C@ 5Cf@g CGh$VENC$ XT&"' i1ped_enc'C<%Cped_detF( F Q \!-det(Cped_det) T*-T+C] T,z-trsac,stockstkxdeptccventtventascccliecompromicliauxped_procC oSVP: Locked %,%T/ve_pedidos_recibidos.prg6T0)Procesar pedidos de vendedores y clientes1trsac,/0 T2 T3 T4 T5%, $CoSVP: Por Registrar "T,C6(7 %CoRespbO$ -CError GENERAL - 7c8XError GENERAL - 7ve_pedidos_recibidos.prg3CoSVP: Error GENERAL - 77 T,%,, T*aCoSVP: 4 !T4C3@z 9999,999,999_ T5  =C,oSVP: Abort el usuario o error al registrar T,g&Abort el usuario o error al registrarve_pedidos_recibidos.prg%C T CoSVP:  ?ve_pedidos_recibidos.prg%CoRespbO ,CError al registrar - 8 S T,5C$oSVP: Abort el usuario o error Lock _Abort el usuario o error Lockve_pedidos_recibidos.prg$9trsac,/045&CoSVP: Fin transaccion T:%%*, 2 (%2CC3@z 999,999,999_% TIC[C] C: Se ha registrado el pedido 2;O<[C] C: Se ha registrado el pedido 2 -T22 a CC3@z 999,999,999_% :LC[C] C: Se han registrado los pedidos 2;R<[C] C: Se han registrado los pedidos 2 q tmp_pedidos>+ 3%  /OCBNo se pudieron reservar los archivos. No se ha registrado nada !!!;F"QF(Q  %  /C"El archivo enviado est daado !!!;jEl archivo bajado C  est daado.ve_pedidos_recibidos.prg \envio.zip \ *-enc.dbf \ *-enc.fpt \ *-det.dbf J%  F0CNo se puede descomprimir : CCZ;vEl archivo bajado C  no se pudo descomprimir.ve_pedidos_recibidos.prgBU?OARCHIVOXCODAGEXNOMBREOSVPXAUTORESPXTESTINGOZIP XTMPMSG_ERRORP_DEV XLOCALDIRXENVIOXARCHIVO AVFP_LOGUEARXLOG_ZIPUSER_LOG PUB_INDEXXERR UNZIPFILES OEX_ERRUNZIPMESSAGECTMPENCCTMPDETENVIOLIMPIAR_FILE_NAMELISTADOSPRGTIPOXENCAT ENCABEZADONFJSONTOCURSORDETALLECREAR_PEDIDOS_JSONXARCHPED_ENCREVISAR_VERSION_API_PED_ENC PLATAFORMAFORXDPLANDPLANPED_DETREVISAR_VERSION_API_PED_DETXSE_RESGISTRARONXID_REGISTRACIONAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANXPED_TXTXPEDIDOXCOMPROBANTE_TRAN XCAUSA_TRAN REGISTRAROEX AGREGAR_ERROREND_TRANTTS_IDMENSAJELOCAL_LOG_ERRORES_INSERTAR TMP_PEDIDOSID}$ T T  T T C oSVP: Select F ~m$ T   T -FG((codcli E %C4"$CoSVP: Found cliente ,TC     %%Ctccventref_exthC[C] C: Pedido CC Z de C  ya registrado !!!a %CoRespbO7C  %  o:C Procesando: CC Z Ya registrado !!!!% kCPedido CC Z de C  ya registrado !!!C No se registrar el pedido.! ";C!oSVP: tccvent ref no encontrada () FT" #"%#S" (CoSVP: clientes sucursal F$ G((IDE C"Z CoSVP: Variables FT% T&'T()T*80 T  T+ T,C$ T-C$ T.C$T/CXT0CX T1T2CX T3 T4 T5 T6 T7 T8 T9 T: T; T< T= T> T? T@ TA TB TC TD TE TF TF TGTHN TI TJ TK TL TM TN TO TP TQC$ TRC$TS TTTUNTVA TW$C oSVP: xp2=Cxp2b .CoSVP: p_doscen=Cp_doscenb :CoSVP: locales.ve_024=Clocales.ve_024b (C oSVP: p_suc=Cp_sucb %Clocales !CoSVP: NO LOCALES CXECoSVP: OUT LOCALES USED=CClocalesSN6 #CoSVP: USED LOCALES #CoSVP: Post locales R$C oSVP: Loc=CYZZ ([(CoSVP: Loc Error [\ % ]T^  T^C XH ^MLAC_ T`_' ^ TiendaNubeCa A T`a 2 ET`C b-CYZ YZCc666 TdTeC X TfTgCX ThTiN Tj Tk TlTmCX TnToCX TpTqNTr Ts Tt Tu Tv Tw Tx Ty Tz T{ T| T}T~CX T T T T T T T T T T TTCUENTAS A PAGAR T T T T T T T TTTT T TTTTN T T T- TT T T T T TTCX TC oSVP: Inits  ve_pedidoH . ^MLAC TC' ^ TiendaNubeC TC 2.TC%CoSVP: Depositop  ve_procs%CoSVP: Deposito1  Ta Tc% ]%CoSVP: Deposito1  T, T^ T H C   ^MLAC PTC' ^ TiendaNubeC TC 2TC%C,  T- T  TQ, TR,T>C > TIC I TICIcondcobrplanT-C - T.-QT/C / T@ )TAC null 6)TDC null 6%T0 T %T T T T TT T H ^MLATsC fTuC fTvC fTwC fTxC f TyTz <T&C PC Z C a6T( )T*C ZT{  ^ TiendaNubeTsC fTuC fTvC fTwC fTxC f TyTz <T&C PC Z C a6T( )T*C ZT{ >C^%suvwxyz&(*{%%  > %-%CCC fSINO @T3El campo DIVISAS debe ser SI, NO o una cadena vaca T T- *THCCC fSISN6-TCC null 6%1T4 .%CCC fE n T- > E(%C>E  T-+%C0AGENTECODAGE ?8T"No existe el vendedor con cdigo [0] T T-%%E!"CoSVP: PRE MONEDAS Eidx04,%Cidx044TFCE  T-6T#No existe cotizacin para la fecha C,* T b*CoSVP: MONEDA 0 - Cambio 1 TFCoSVP: Monedado %**CoSVP: Scan pedido validar F~ &%k T-8 pr_funcionesa% (T--&CoSVP: Error SCAN  T:[C]  no encontrado !!!!"%C ] g@dey_fill<>%SCH"%CGTC-- sin fecha de entrega !!!&CoSVP: Error SCAN  T T-% ,C xOK_VAL: CCZ:a %CoRespbOC  "C xOK_VAL: OK T TFG((tccvord#6T F T  T T"CoSVP: Scan pedido ~ #C oSVP: PedidoCZ FG((codinsECCbieauxcodFT$CoSVP: Deposito  5CoSVP: Registrar ART:CNULL &%C IND TE%C EF^%>PCoSVP: Multiple eC EF^%> "CoSVP: Registrando 5%Cbieaux.esensamblebN  fC EF^%> eC EF^%>1C oSVP: Reg_Pedido Antes de entrar  ((CoSVP: Error - C C oSVP: Inserts erped_proc      CoSVP: Insertado ([ &CoSVP: Insertado CATCH \ Nrped_proc    ( %C oSVP: Error: \ %CoSVPbO )D(c:\temp\C] _memory.txt'CoSVP: Insertar endtry %Cagente /!QagenteCagentecodage(CoSVP: Insert Registrado r tmp_pedidos#       #  `%CoRespbO"%s"7C    "C  c i$%CoRespbO+#_C  Cliente C  C  no encontrado !!! dC[C] C: Cliente C  C  no encontrado !!!a %  #@C Procesando: CC Z Cliente inexistente !!!!% e$gCCliente C  C  no encontrado !!!C No se registrar el pedido.! BUXCODAGEOSVPXAUTORESPXTESTINGXMENSAJE XCOD_ERROR OPLATACFG TTS_ERROR XTMPMSG_ERRORXPEDIDO AVFP_LOGUEARPED_ENCXP2P2CLIENTESCODCLICOD_CLIXREF_EXTOBTENER_REF_EXTPEDIDOID PLATAFORMAPACK_IDORDER_IDXNOMBRENOMBREAGREGAR_PEDIDO_EXISTENTETCCVENTFEC_VENEST_DESPAGENTEP_DEVMENSAJEXSUCSUCSUCURSALXCOD_CLIXCUIT INSCRIPCIOXIVACATIVACATXTIPODOCXTIPOPEDXFECEMIXFECENT XTRA_ENTREXFLETE XVENDEDOR XCOMI_VENXDISTRIB XCOMI_DIST_DESC1T_DESC2T_DESC3T_DESC4T_DESC5T_DESC1ET_DESC2ET_DESC3E T_DES_NAC1 T_DES_NAC2XLISTAXPRODXTRANXOTXTXTCPBT XTXTREMITO XCONTACTOXMONEDAXCAMBIO XERRMONEDAXDIVISASXPLAN XI_DIRECCION XI_CIUDADXI_ZIP XI_PROVINCIAXI_PAISXI_PHONOXI_EMAIL XOC_APROB XOC_FECHA XOT_FECHA XOTRO_CLIXBLOQUEOXLETREFXNUMREFABRIR_TABLAS_FIJASLOCALESVE_024OEXMESSAGE API_O_VER XPLATAFORMA P_MELI_PVXSUCFAC P_NUBE_PVP_DOSCENP_SUCXMOTIVOXREFXPEDVEN XCENCOSFACXNRE XPROMOCION XREVISIONXREVISION_ACTUALXTIPOEXP XTIPOEXPD XTIPOEXPP XTIPOEXPPD XTIPOEXPORTXCESDSP XFPRORROGA XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIRXCLIGLNXCLIIB XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIOXHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIOXFCE_FEC_SERVDXFCE_FEC_SERVHXFCE_FEC_SERVPXFCE_FEC_SERVTP_VE_TIPO_PR_SVXFCE_TIPO_NEGOCIACIONXPERASOC_DESDEXPERASOC_HASTAXFCE_RECHAZADOXREF_MOV XNICKNAMEOPLATAFORMA_HOLDERXNOTASPDXFEC_INIX1X2X3X4X5XOC XTXTOTROS INIT_OTROS VE_PEDIDOP_MELI_DEPOSITOXDEPOSP_NUBE_DEPOSITOP_PD_DEPOSITO_AUTOMATICO DOMICILIOSVE_PROCSXOK_VALFECHANICKNAMEEXISTE_DEPOSITO_PLATAFORMAS LOGISTIC_TLISTAPLANXCOB_EMPENTREGAFLETETRANSACCOTCONTACTOP_PD_REC_VENDEDORVENDEDORP_PD_REC_ENTREGA DOMICILIO LOCALIDADCPHORA PROVINCIATELEFONOTIPODOCCUIT OLOCALIZACIONCUIT_FORMATEADOEMAILGUARDAR_CLIENTE_PLATAFORMADIVISASCONVERTIR_UTF8_A_FOXOBS_GENP_PD_IMPORTA_DESCUENTOS DESCUENTOVE_VALIDAR_MONEDA_FCEMON_FCEMONEDAINVE_VALIDAR_LISTA_Y_MONEDAIDX04 FN_CAMBIO XBIEDESCRPED_DETCOD_INSOBIEDATA_CODIGO_VACIOPR_COMB_BUSCAR PR_FUNCIONESBULATRLOCAL_LOG_ERRORES_INSERTARDESCRFILL_BIE_BUL_ATR_DESCRDEY_FILLBIENESATRIBUTOBULTOS ATRIBUTOSP_EMP AGREGAR_ERROR XACC_BRUTO XACC_NETOTCCVORDACCXITM XENSAMBLECODINSDATA_CODIGO_LARGOLINEAMULTIPLE REGISTRAR_ARTCANTIDADPRECIODES_INSBIEAUX ESENSAMBLEREGISTRAR_ENSAMBLE REG_PEDIDOOEXREG AVFP_LOG_EX PEDIDO_GES PEDIDO_VEN PEDIDO_IDVCTRL_VEN FECHA_GESCONTROL XFECHAHORAOEX2CLIENTENOTASDPLANPVXID_REGISTRACIONAGREGAR_PEDIDO_REGISTRADOAGREGAR_PEDIDO_CON_ERROR 4CReg Ped)CoSVP: Reg_Pedido ADENTRO%,T C  d 6C  d 6C  d 6C  d 6C d 6C d 6C d 6TC  d 6C  d 6C  d 6C  d 6Cd 6Cd 6Cd 6 P T TTCF%G((tccvord#6T%"TCC@z 999,999,999_>C$ !C$"#$%&'()*+C],C,CC- 7C C Condicin de pago especial: C-6.,/0123 4 5 6 789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef gh ijklmnopq.CoSVP: Primer append y replace >r >sC >tu(v +6>wC+yzx{(v9%!%C oPCFG.verifbN7>||}}~~**0CoSVP: Crear_plataformas_Aux_uno(C+yzC0condcobrplan6TCoSCm m 66%!>Cd TC oSVP: CCCLIEF>C@z 9999,999,999_PC$C$C$C$+C@z 9999,999,999_PCZC]\]jklm%c%CoSVP: ve_trans_save ( ve_pedidoC oSVP: CliauxFEcomprobC ZP%C4 T >C ZP?>$%CoSVP: SaliendoUXPEDIDOOSVPSYS_M AVFP_LOGUEAROPCFGXOKPCFGXDES_COMXACC_NETO_CONDESCP_PD_IMPORTA_DESCUENTOS XACC_BRUTOT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_DES_NAC1 T_DES_NAC2 XACC_NETOBUSCAR_PLATAFORMAS_CONFIGPED_ENC PLATAFORMA LOGISTIC_TTCCVENTTCCVORDPEDIDOXPED_TXTCOD_CLISUCDES_CLIENOMBREHOYFEC_VENXFECEMIFEC_INIFEC_ENTXFECENTCUITXCUITSUCFACXSUCFACAGENTE XVENDEDOREST_DESPIDNOTASDPLANTXTCPBTPLANXPLANLISTAXLISTADESC1DESC2DESC3DESC4DESC5DES1X1DES2X2DES3X3DES4X4DES5X5DES_NAC1DES_NAC2COD_FLEXFLETEDISTRIBXDISTRIBCOMISION XCOMI_VENCOMI_DIS XCOMI_DISDEPXDEPOSPEDVENXPEDVENCOD_CEN XCENCOSFAC PROMOCION XPROMOCIONREV XREVISIONTIPOEXPXTIPOEXPTIPOEXPD XTIPOEXPD TIPOEXPORT XTIPOEXPORTUSR PUB_INDEXIVACATXIVACATTIPODOCXTIPODOCTRANXTRANOTXOTTOT_VENDEUDAIVA_VENDES_COMMONEDAXMONEDACOEFICXCAMBIODIVXDIVISASCONTACTO XCONTACTO XPLATAFORMA UPDATE_DTREFOCOEXXREF_EXTOBTENER_REF_EXTPACK_IDORDER_IDORIPEDVERIFCREDITOARM_BLOQCREAR_PLATAFORMAS_AUX_UNOTX_FINALCONDCOBRANTICIPOCCCLIECOMPROBCAUSAFECHAVENCFECREFIDUIMPORTE VE_TRANS_SAVE VE_PEDIDOXCOD_CLICLIAUXNOMFAC DOMICILIO XCLIDOMICILIOCIUDAD XCLICIUDADZIP XCLICOD_ZIP PROVINCIA XCLIPROVINCIAPAISXCLIPAISGEODIRXGEODIRPHONO XCLIPHONOEMAILXI_EMAILENTNOM XENTNOMBREENTDOM XENTDOMICILIOENTCIU XENTCIUDADENTZIP XENTCOD_ZIPENTPRO XENTPROVINCIAENTPAIXENTPAISENTPHO XENTPHONOENTHOR XENTHORARIOENTCOORD XENTCOORDGEOENTXGEOENTFCECTO XFCECONTACTOFCENOM XFCENOMBREFCEDOM XFCEDOMICILIOFCECIU XFCECIUDADFCEZIP XFCECOD_ZIPFCEPRO XFCEPROVINCIAFCEPAIXFCEPAISFCEPHO XFCEPHONOFCEHOR XFCEHORARIOOBS XTXTOTROS  T TT .G+( ve_funcionesve_funciones_precios% *T CC *T CC% 4*T CC h*T CC% TBUXXPRECIOXXBONIFXCODXBULXATRXLISTAXCOD_CLI XBONIF_BIEBIENESDES_INS VE_FUNCIONESVE_FUNCIONES_PRECIOSP_PRECIOS_MAX_RECURSIONXOKVE_OBTENER_PRECIOVE_OBTENER_PRECIO_COMPUTADOVE_OBTENER_BONIFVE_OBTENER_BONIF_COMPUTADOJO     CEnsamble%Cbieaux Qbieaux%Cformulas Qformulas%Cccformul Qccformul%CZ@dey_fill ! <*C" T TTd TF#irensamble$%&'()*C ZP3%+Cccformulcodens  TF~,, T- T.1C-./01a"%T'-.d F~,, T243 pr_funciones/01a@dey_fill ! <2fC/01'2   5 C%#?U6XPEDIDOXCODXBULXATRXCANXXPRECIOXXBONIFXDESCRXMONEDAXCAMBIO XACC_BRUTO XACC_NETOXENT_CLIXDEP XPLATAFORMAXITM XENSAMBLEXCOD_CLIXLISTAXXTOTALORIGINALXTOTALENSAMBLEXPRECIOENSAMBLEXBONIFENSAMBLESYS_MBIEAUXFORMULASCCFORMULFILL_BIE_BUL_ATR_DESCRDEY_FILLBIENESDESCRATRIBUTOBULTOS ATRIBUTOSDETERMINAR_PRECIOS2ENSAMBLECOMPROBCAUSAITMCANTIDADPRECIODES_INSTAREAS ESENSAMBLEFORMULA XXPRECOMP XXBONCOMPCODCOMPBULCOMPATRCOMP XBIEDESCRPR_COMB_BUSCAR PR_FUNCIONES REGISTRAR_ARTN'  T  T H]G8 CMLA TiendaNube   TC TC 2G T T&C !TCC  6!TCC  6U XPLATAFORMAXXPRECIOXXBONIFXCODXBULXATRXLISTAXCOD_CLIXFORZADO TXXPRECIOTXXBONIFP_PRECIO_PED_REEVALUARDETERMINAR_PRECIOSLS      TCTCC X T C  T C  T C  TC TC T0CoSVP: Registrar ART = Version 1%C+ pr_funcionesa@dey_fill <% T! T" T T2C#H3 $SRIHZ6 % TiendaNube  T T % T"F&!>'()*+,C$-./012C$3456-7891:C;NC:<:66= >d  ? T  &>$T  &>&:d Kritm_desc@ABCC ZP)CoSVP: Antes de solicitar4D ve_pedido T C CX !CoSVP: Solicitado5FGH TF TG THeIproc_stk PKL CC@z 999,999,999_C$7 CoSVP: Stockeado%F TMHCoSVP: H A CoSVP: Sin ErrorBUNXPEDIDOXCODXBULXATRXCANXXPRECIOXXBONIFXDESCRXMONEDAXCAMBIO XACC_BRUTO XACC_NETOXENT_CLIXDEP XPLATAFORMAXITM XENSAMBLEXCOD_CLIXLISTAXXTOTALORIGINALOEXXTOTALENSAMBLE AVFP_LOGUEAROSVPPR_COMB_BUSCAR PR_FUNCIONESFILL_BIE_BUL_ATR_DESCRDEY_FILLBIENESDESCRATRIBUTOBULTOS ATRIBUTOSXPRECIOENSAMBLEXBONIFENSAMBLEDETERMINAR_PRECIOS2P_EMPLINEATVENTASCOD_CLIDES_CLIEPED_ENCNOMBRECOD_INSFEC_VEN RECEPCIONCOS_LIFODES_INSPEDIDODESC_INSHOYBULATRITMAPROBLISPREMONEDACOEFIVAPERIVAC_IVACOEFICTOT_VENENTREGACOMPROBCAUSAENSAMBLEITEMSOLICITAR_SI_CORRESPONDE VE_PEDIDOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKTCCVENTID XTMPMSG_ERROR3   %CCCFORMUL aQccformul%CFORMULAS QformulasF G((codigoEC T T- T-9+C+ &C  Ta%S  TaF G((formula E +C+   iC     F HF H% %\% KeC El artculo CC/C/C no tiene frmulas activas !!!!"# El artculo CC/C/C no tiene frmulas activas !!!ve_pedidos_recibidos.prg T % pC El artculo CC/C/C) no tiene frmulas o no estn activas !!!!"# El artculo CC/C/C) no tiene frmulas o no estn activas !!!ve_pedidos_recibidos.prg T BU$XPEDIDOXMONEDAXCAMBIO XACC_BRUTO XACC_NETOXENTREGAXDEPOS XPLATAFORMAXITM XENSAMBLEXCOD_CLIXLISTACCFORMULFORMULASCODIGOPED_DETCOD_INSBULATR XRESULTADO XENCONTREXHAY_FACTIVAFORMULA REGISTRAR_ARTCODCOMPBULCOMPATRCOMPCANTIDADPRECIODES_INSENTREGAXAUTMENSAJEUSER_LOG PUB_INDEX < 7otventasCQCQ% -T CCZCCZ T CX B U XPEDIDO_GESXCOD_CLIAAASUM RECEPCIONCANTIDADITEMSTVENTASPEDIDOXCONTROL Hoped_proc C$ 1\pedidos_procesadosFQj%C\pedidos_procesados_vendedor_C.zip\pedidos_procesados.dbf G+(es_ind_gen_artT CFTPNT \kT Cpedidos_procesados_vendedor_C.zippedidos_procesados_vendedor_C.zip < Ta% BU XVENDEDOROZIPPED_PROCVENDEDOR FECHA_GESP_PED_IND_PROCESADOS XLOCALDIRPEDIDOS_PROCESADOSZIPFILESES_IND_GEN_ARTOOLOCALDIRXRESFTPSENDXMARCARTCoSVPbO%a?B-% S TC]F(\tmp\% % 4C'No hubo pedidos para exportar a XLS !!!B-#)(CoSVP: Clases y exportarG+(listadosG~(ClasesT C ExportacionesN(T CExportaciones_ParametrosN!T Pedidos RecibidosT  C CpedidoPedido !CvendedorNombre !CclienteCliente CnombreNombre CsucSucursal CnotasNotas 3CdplanCondicin Especial de Venta T C < 1o tmp_pedidosCQCQ% %Cw\tmp\ .xls(\Pedidos Recibidos\Pedidos CCC Z al CCC Z.xls % /C"Error en la exportacin al XLS !!!BUOSVPXAUT XCOMPROBANTEXTMPARCH TMP_PEDIDOSP_LOCALMENSAJE AVFP_LOGUEARLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSARR_PEDPEDIDOMAXIMOMINIMO AFIP_PEDRECEX_ARCHIVO_SALIDA P_DIR_EXPORTRF~G)BU TMP_PEDIDOSPVP_DOSCENVE_SEGUIMIENTOPEDIDOCLIENTENOMBREFECHATC %Cf,TCCC 6C%CoSVPbOC%GC ve_pedidos_recibidos.prgU OSVPXTEXTOXLOGOEXTYPEO AVFP_LOG_EXAVFP_LOGUSER_LOG PUB_INDEX(  T$T LineNo: CZ#T Message: %T Procedure: #T Details: (T StackLevel: CZ(T LineContents: %T UserValue:  BU OERR XRES_MENSAJELINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS USERVALUETC F%Ctccvent mQtccvent$(C uT C FG((ref_extEC  %C41C   qJC Pedido: 'C  Z ' no encontrado !!! BUXAUTOPEDAVFPORESPOSVPXTESTING XPLATAFORMAOPEDSNITTCCVENTPEDIDOSOPEDREF_EXTOBTENER_REF_EXT PEDIDO_VEN PEDIDO_IDVAGREGAR_PEDIDO_EXISTENTEPEDIDOFEC_VENEST_DESPCOD_CLI AGREGAR_ERRORfTCAGES CoSVP: json2C E%Cctmpenc|Q h1\ -enc.dbf C N  C(NCN DNTTTTTLMNNNNNN N!C"C #C$N %T&N'N(C<)L*M+C,N-N'Q\ -enc.dbf CCTMPEnc.T/%C oenc.ROWSbO00, _J>1C1Q $CoSVP: json2C E Copy%CctmpdetQ3h1\ -det.dbfN 4C5C6C7N 8N9N'NN:C<,N-N;N<N'Q\ -det.dbf3CCTMPDET=T>%C odet.ROWSbO804 _JQ3CoSVP: json2C DU?OSVPOARCHIVO XLOCALDIR XPLATAFORMAOENCODETOENCAODETA AVFP_LOGUEARCTMPENCENVIOCOD_CLISUCNOMBRECODIGOVENDEDORPEDIDOFECHATOTALENVIADO1ENVIADO2ENVIADO3ENVIADO4ENVIADO5MARCADONOTASDTO1DTO2DTO3DTO4DTO5DTOLISTAOCIDCONTROL PEDIDO_GES FECHA_GESESTADOLITROSDPLANP2OBS_GENDIVISASAPI_VER API_O_VERREVISAR_VERSION_API_PED_ENC ENCABEZADOROWS PLATAFORMAFORCTMPDETCOD_INSATRBULCANTIDADPRECIODES_INSDESCR ESENSAMBLEENSAMBLEREVISAR_VERSION_API_PED_DETDETALLE  (CoSVP: revisando versinTCped_enc SELECT &xalias Bxversion=IIF(TYPE(xalias+".API_Ver")="N", &xalias..api_ver,-1) Ta 7 %e!CoSVP: versin -10ALTER TABLE &xalias ADD COLUMN api_ver N(3) 2ALTER TABLE &xalias ADD COLUMN api_o_ver N(3) T>% CoSVP: versin 0/ALTER TABLE &xalias ADD COLUMN entrega d(4) -ALTER TABLE &xalias ADD COLUMN hora c(30) ,ALTER TABLE &xalias ADD COLUMN plan N(3) .ALTER TABLE &xalias ADD COLUMN moneda N(2) 0ALTER TABLE &xalias ADD COLUMN mon_fce c(20) 1ALTER TABLE &xalias ADD COLUMN transacc N(10) +ALTER TABLE &xalias ADD COLUMN ot c(30) -ALTER TABLE &xalias ADD COLUMN flete c(6) 1ALTER TABLE &xalias ADD COLUMN contacto c(35) 2ALTER TABLE &xalias ADD COLUMN domicilio c(40) 2ALTER TABLE &xalias ADD COLUMN localidad c(30) +ALTER TABLE &xalias ADD COLUMN cp c(20) 1ALTER TABLE &xalias ADD COLUMN provincia c(3) ,ALTER TABLE &xalias ADD COLUMN pais N(3) o/ALTER TABLE &xalias ADD COLUMN obs_gen m(4) y> T%3 CoSVP: versin 1 1ALTER TABLE &xalias ALTER COLUMN pedido N(20)  P.ALTER TABLE &xalias ADD COLUMN email c(60) Z 1ALTER TABLE &xalias ADD COLUMN nickname c(40)  1ALTER TABLE &xalias ADD COLUMN telefono c(60)  +1ALTER TABLE &xalias ADD COLUMN buyer_id N(10) 5 v3ALTER TABLE &xalias ADD COLUMN plataforma c(10)  3ALTER TABLE &xalias ADD COLUMN logistic_t c(30)  /ALTER TABLE &xalias ADD COLUMN tipodoc N(2)  M-ALTER TABLE &xalias ADD COLUMN cuit c(15) W .ALTER TABLE &xalias ADD COLUMN ivacat N(1)  0ALTER TABLE &xalias ADD COLUMN pack_id N(20)  $1ALTER TABLE &xalias ADD COLUMN order_id N(20) . l0ALTER TABLE &xalias ADD COLUMN channel c(20) v 4ALTER TABLE &xalias ADD COLUMN descuento N(14,6)  /ALTER TABLE &xalias ADD COLUMN divisas c(2)  % &  / (  $CoSVP: ERROR Versin, avfp_objects_definiciones  C  T- BU XALIASOSVPXOKXVERSION AVFP_LOGUEAR API_O_VERAPI_VERALLPEDIDOOEXXMSG AVFP_LOG_EXAVFP_OBJECTS_DEFINICIONES  TCped_det (CoSVP: Revisando ped_detSELECT &xalias Bxversion=IIF(TYPE(xalias+".API_Ver")="N", &xalias..api_ver,-1) Ta %e!CoSVP: Version -10ALTER TABLE &xalias ADD COLUMN api_ver N(3) 2ALTER TABLE &xalias ADD COLUMN api_o_ver N(3) T>% CoSVP: Version 0 4ALTER TABLE &xalias ADD COLUMN descuento N(10,6)  //ALTER TABLE &xalias ADD COLUMN entrega d(4) 9 u.ALTER TABLE &xalias ADD COLUMN DESCR c(60) > T% CoSVP: Version 1 1ALTER TABLE &xalias ALTER COLUMN pedido N(20)  T,ALTER TABLE &xalias ADD COLUMN ITEM N(4) ^ 2ALTER TABLE &xalias ADD COLUMN esensamble N(1)  0ALTER TABLE &xalias ADD COLUMN ensamble N(4) (z $CoSVP: ERROR Versin, avfp_objects_definiciones C  T- BU XALIASOSVPXOKXVERSION AVFP_LOGUEAR API_O_VERAPI_VERALLOEXXMSG AVFP_LOG_EXAVFP_OBJECTS_DEFINICIONES` C%P T BU XPLATAFORMA XLOGISTICA XDEPOSITOXOKXDEPTBUSCAR_DEPOSITO_PLATAFORMASQCTC BU XPLATAFORMA XLOGISTICAXOK XPKCENTRALBUSCAR_PLATAFORMAS_CONFIGPCTC BU XPLATAFORMA XLOGISTICAXOK XDEPOSITOBUSCAR_PLATAFORMAS_CONFIG TCC  TCC TC TC $%Cplataformas_config /%CCplataformas_config.dbf0 T-TB-Qplataformas_config5%CPlataformas_configPlaLogicT 2%Cplataformas_config.PKCentralbCT  Ta v0%CPlataformas_configPlaSoloBT 2%Cplataformas_config.PKCentralbC3T  Ta rT T T- TCWF ^J F BU XPLATAFORMA XLOGISTICAXOK XDEPOSITO XPKCENTRALOPCFGXSELP_SERVERPLATAFORMAS_CONFIGDEPOSITO PKCENTRALX:sys_plataformas_pedidosUXPEDIDOXID XPLATAFORMAXPACK_ID XORDER_ID XREF_FULLHUB_CREAR_PLATAFORMAS_AUX_UNOSYS_PLATAFORMAS_PEDIDOSa:sys_plataformas_pedidos BUXPEDIDOXID XPLATAFORMAXPACK_ID XORDER_ID XREF_FULLHUB_OBTENER_REF_FULLSYS_PLATAFORMAS_PEDIDOSe>sys_plataformas_pedidos BUXPEDIDOXID XPLATAFORMAXPACK_ID XORDER_IDXREF_EXTHUB_OBTENER_REF_EXTSYS_PLATAFORMAS_PEDIDOSP6sys_plataformas_pedidosU XPLATAFORMAXCOD_CLIXIVACATXCUIT XENCONTRADOHUB_BUSCAR_CLIENTE_PLATAFORMASYS_PLATAFORMAS_PEDIDOS7    Z sys_plataformas_pedidos.prg    U XPLATAFORMAXCOD_CLI XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONOXCUITXIVACATXTIPODOC XCLIEMAILHUB_GUARDAR_CLIENTE_PLATAFORMASYS_PLATAFORMAS_PEDIDOSPRG % ɚ;%X(BCC@z 999999999999999999_ R #BC@z 999999999999999999_ BC@z 999,999,999_UXPEDIDOXCORTOlocal_log_errores_insertar\procesar6 registrar@, reg_pedidof\determinar_preciosgnregistrar_ensamblepDeterminar_Precios2yw registrar_art^ymultiple controlarsubir_pedidos_procesadosÉexportar_a_xls seguimiento7 avfp_loguearܑ avfp_log_ex&consultar_pedidos_vendedorcrear_pedidos_jsonrevisar_version_api_ped_encrevisar_version_api_ped_detexiste_deposito_plataformas buscar_pkcentral_plataformasbuscar_deposito_plataformas_buscar_plataformas_configCrear_plataformas_Aux_uno$Obtener_Ref_FullObtener_Ref_ExtʴBuscar_Cliente_PlataformaGuardar_cliente_plataformac Pedido_TXTѷsABBr"a!s22SAAqQQQqAA SrRr!r142!2aA21QqaRQrS"AAq!AAAAAArs222A2RQrTC1AABr!aAr"2ABB2tr2AABqr2aA2AqAAqAAA1AAqAA1rA4aC31qB"BqAAqAAqAAA1AqaqA1AA1ABB1B3$qAaAAqAB2Ra3B!A2A3q"AABQBBaRAA!ABqABrArAqAAqaABB2qqArASrArAAr"q!Aq1BQ1A2AAcAqQA1311111A!q!!QA2SaR!q!!AAbaba2A2Aa!!!!!Q!!!!!QAaAA2AAAA2!aa!aAAAArqraAA!ABbAqaAAAAArQBr!q1qAqBQbQRA!SbRAACAQaQAAAq!Aa 1rAABDABqArACB3A22 Br1QA2!ARp1(AcAtBAbbAqQ. 3QAqQA22A2A3AC21Q!AAAAAAq2qQArAcBaKB5q31bB21#R11111A2A"aaAA2ArQ`BBDR\1AA21AAAArArrAAAqAAQ AA AAA2rx"A3rA2RrBBB2qqrABr"AAqAR"!1 r!qAABB2rtBC215AAAqA1A1Q1Q311AAqAA611qAP!qAQABQAAqAAQAA2$"B!A2"!AA2AAAAA1A1AAAAAAAAAAAAqA!A2""B!A2AAAAA2AA!AABqA!A2A21q21q3q11AqAAR!A!AAAq2332qa2q2a1AA1^rs<|<cӀhOr˶6/] hh]xx(5&?&$M-s`gJ|. `} p2 e7 v= ZC G $5K %;~\K&V>4 )G(9 3 ve_comienzoG+(ve_procsG+(listados"T  \tmp\CC]R  ve_pedido%Cepresup Qepresup%Cdpresup Qdpresup%Cpickings 5QpickingsT6TNF T T T-%CxpedidobN T T  Ta T+a% ve_anular_pedido-1(  T'%C e T % C T% | T TFG((codcli EF T!"ve_procs!#% ]ve_anular_pedido-2( t TH ! . TS TS%Sx%t T$!T%ve_anular_pedido.PRGJT&Anulacin de Pedidos (C Lgica Fsica6)'trsac$%&`)trsac$stockstkxdeptccventtventascccliecompromi%$%*M+proc_stk4C.C@z 9999,999,999_P&%- C/%*%0proc_stkCZP  T$1trsac$%& T2%$p% l>CSe ha anulado el pedido CC@z 999,999,999_! BU3XPEDIDOXFISXSILENT ACTIVEFORM DATASESSIONIDVARIABLES_PUBLICAS VE_COMIENZOVE_PROCSLISTADOS XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOEPRESUPDPRESUPPICKINGSCVOPSIONOTCCVENTREGPOSXPEDIDO_COMO_PARAMETROMSGVE_ANULAR_PEDIDO XRESULTADOVLD_PEDMENSAJEXCOD_CLICOD_CLI XOTRO_CLIDES_CLIECLIENTESCODCLIXEST FN_ESTADOEST_DESPAAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GP_I_LOG SAVE_STOCKPROC_STKUSER_LOG PUB_INDEXANULAR CHECK_STOCKEND_TRANTTS_ID4 T%uFG((tccvord E%C4UHu  %7T*El pedido fue anulado con anterioridad !!!B-  C:T-No se puede anular un pedido ya facturado !!!B-  [F G((ccvord EF%Cccvent4M% rBT5No se puede anular un pedido con remitos emitidos !!!B- I:T-No se puede anular un pedido ya facturado !!!B- W 4T'No se puede anular un pedido armado !!!B- 6T)No se puede anular un pedido en viaje !!!B- K8T+No se puede anular un pedido despachado !!!B- 7T*No se puede anular un pedido facturado !!!B- 27T*Estado desconocido, no se puede anular !!!B-%  % ve_cancelar_pedidoF%C Q TB- q%9%Ba .%FG((tccvord#6T lMotccventaC    % WTT%T0El nmero de pedido es mayor al prximo pedido (CC@z 999,999,999_).C )No se puede realizar la anulacin lgica.B- *BaBa m#TPedido inexistente !!!B-BaUXPEDIDOXFISMSG XPEDIDOVALTCCVENTTCCVORDCOD_CLIFCEST_DESPCCVENTCCVORDCAUSA P_PICKINGVALIDAR_PICKINGSVE_CANCELAR_PEDIDO TTS_ERRORP_VE_PEDIDOS_ANULACIONESP_VE_PEDIDOS_DNUMP_VE_PEDIDOS_HNUMPEDIDOXLASTNUM TC$FG((tccvord E TC4%$TTFG((comprob,E C@z 9999,999,999_PCZ%C4 ^ ve_anular_pedido.prgProblemas al anular un pedido.Pedido CC@z 9999,999,999_&No se encontr su imagen en ccclie.dbfF G((pedidoG ECZG %C4Z+C+   VF% G((codins E F % $%   T Tproc_stk    cP Anulacin  CC @z 999,999,999_C$ 7% CF G((IDEC ZC Z%C4?> F H  ve_anular_pedido.prgProblemas al anular un pedido.Pedido CC@z 9999,999,999_'No se encontr su imagen en tventas.dbf%%F! G((IDG EG +C+   T"CO T T^#proc_stk!$!!!!%cC$3!&F! #"HF%'%'F:rtccvent ()CBU*XFECHATCCVENTTCCVORDXPEDIDOXEXISTEXIDIDFEC_VENCCCLIECOMPROBXCOD_CLIREPORTETVENTASPEDIDOBIENESCOD_INSCODINSOBIEDATA_CODIGO_VACIOSTOCKSTK_ERRSTK_TST ACT_STOCKPROC_STKBULATRDEP RECEPCIONITMPRESUPDPRESUP PRESUPITMUSADOCOMPROMREGISTRO REG_STOCKCODCANDSPXFISEST_DESP UPDATE_DTvld_pedanular8Ab#!%B1A1AAArAqAAArrA1A1A11AC121ABQAB2AABAABA7q2q1qqC!qsrrq!qqAC2Aq1aq1q1qqqqA2QAr"qA21rrrQA"AB2qqABr1qAACq7rrA ArbaraAqEKABbqqAABrAAA AbfrbarBAACrAA22qABB1g $8%^363yX;>%TC 4G(9 > Ta%yTC Corrijo ?2sys_procesandoConsultando pedidos#ve_mantenimiento_pedidosG+(listados#T  \tmp\TCC]R  ve_pedidoaG+(sys_log-TCloguear_mantenimiento_pedidosN%C q_pedidosQZotccvent Ca 6  q_pedidos~Q/%CCZCZTVENTASPedITM3> M> Ta T:trsactccventtventasccclie%% TTtrsacve_mantenimiento_pedidos.PRGMantenimiento de Pedidos% %%CdetalleNQ%Cdetalle1sQoventasQXitm_descQ1  !C'Z 2 !C 3Z q_pedidosccventQQQC 6Q !"#$%&'Q(C )6Q)C8C& * )  )'66Q'C$+d ,6Q,*-. ! ! q_ven_1oventasQXitm_descQ1  !C'Z 2 !C 3Z q_pedidosccventQQQC 6Q !"#$%&'Q( )C& * )  )'6Q'C$+d ,6Q,*-.   ! ! q_ven_2,o q_ven_2q_ven_1Ǽq_venotventasXq_ven CZC'ZC7ZC7'ZXmotivos 7-<? q_pedidos#8',9:CC7!VcdC7, 6Q;CC7!Vr*C7!cdCC<=  7. C7, 6Q>C7$Q$#'query1oquery1#8',9:C;Q;C>Q>#8',9:#8'QUERY%BCD :%Cv2 FEQ0QF\data\CCBZ\ventasE%Cc2J FGQ0QF\data\CCBZ\ccventG%Ci2 FHQ2QF\data\CCBZ \itm_descHov2QXi2Q1  !C'Z 2 !C 3Z q_pedidosc2QQQC 6Q !"#$%&'Q( )C& * )  )'6Q',*-.I ! ! I q_ven2_1ov2QXi2Q1  !C'Z 2 !C 3Z q_pedidosc2QQQC 6Q !"#$%&'Q( )C& * )  )'6Q',*-.I   ! ! I q_ven2_2/oq_ven2_2q_ven2_1Ǽq_ven2otventasXq_ven2 CZC'ZCLZCL'ZXmotivos L-<? q_pedidos#8',9:CCL!VcdCL, 6Q;CCL!Vr*CL!cdCC<=  L. CL, 6Q>CL$Q$#'query1oquery1#8',9:C;Q;C>Q>#8',9:#8'query2& CZC'ZNFA ~6-%CCAZCA'Zquery2id2>A;A;M;>A>A>M>CO-sys_procesandoAnalizando - 1FA&  ~ FG((peditmECAZCA'Z*%:A;9A> $%:A; 9A> TQCA#* PD:CA Z - CA'Z  Facturado: C: Z <--CA; ZCX Remitido: C9 Z <--CA> ZCQO%>:A;9A>FACOoQUERYCQRCCC,9, 6C dTQSCCC,:, 6C dTQT,q_estado ~FG((tccvord EU%RURNTQPD: CU Z Items: CRZ <-- CURZCQO%>RUR%SUS8TTQPD: CU Z % Ent: CSZ <-- CUSZCQO%4!>SCUS*:?@F%TUTTTQPD: CU Z % Fac: CTZ <-- CUTZCQO%!>TCUT*:?@FCW-sys_procesandoAnalizando - 2COF ~|"FG((tccvord E TX TY TZF G((ped E+C+  OTZZC,:D\C]%6C^ _d 6KTYYC,:F\C]%6C^ _d 6FTXX,\C]%6C^ _d 6H%$` TY Ta sTYYbd cd dd ed fd g$` sTaXbd cd dd ed fd g$` F$%Cga?TQC#* PD:C Z CXTotal: Cg Z <--Ca ZCXCCgCgag 6Z %CQO ThFiG((comprobG,E8C@z 9999,999,999_PG %C4 TjaF+C+ 38C@z 9999,999,999_P82! ThhkH  Tj-F Tlh%$ Tm TmZg$ R%CClmT{Gz? CClmTm {Gz? j TQC#* PD:C Z CXEn PD: Cm Z En CC: Cl ZCXCCCmClmm 6 Z %CQO TnaFi%e;iN8C@z 9999,999,999_PCZ%%Cm?j Tp%b%CpTpp+$TppCCCbCbq_VA%ci%CpATpp+$TppCCCcCcq_VA%d%CpTpp+$TppCCCdCdq_VA%e;%CpTpp+$TppCCCeCeq_VA%f%Cp|Tpp+$TppCCCfCfq_VA%CpTpp%Fr G((plan EsFi% >882C@z 9999,999,999_!Pt#upkmvvwxy#rz{--|C@z 9999,999,999_}P~r#]]%%N8C@z 9999,999,999_PCZC]F3%C:CYTCYT {Gz?!TQC#* PD:C Z CX Facturado: C: Z <--CY ZCXCCCCYTC:CYTCYT 6 Z %CQO Tna%! >:YFT T T*ve_orden_de_picking%x">"ve_orden_de_pickingCO-sys_procesandoAnalizando - 3FG((tccvordFi%#T causa="P" E#7Tcomprob+causa=[C 9999,999,999_P]SCAN FOR &xfiltro$FECCi2,gFi$%CCi2,gZ$%V$dTQCit* PD:CCCi2,g Z CX"Pedido en CC que no est pendienteCQOFi%R$ $\TQCit* PD:CCCi2,g Z CXPedido en CC que no existeCQOFi%$Fi T #%TTtrsacve_mantenimiento_pedidos.PRGMantenimiento de Pedidos T %<#ve_mantenimiento_pedidossys_procesandoBUXPEDIDO ACTIVEFORM DATASESSIONID XCORREGIRP_DEV MENSAJE_SINO SP_MENSAJESYS_PROCESANDOUNUSEVE_MANTENIMIENTO_PEDIDOSLISTADOS XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOSYS_LOGOLOG Q_PEDIDOSPEDIDOACOPIOTCCVENTEST_DESPTVENTASTRSACAAALOCK_GBEG_TRANDETALLEDETALLE1VC CC_PEDIDOFAC_VENCAUSAREM_VENFEC_VENTOT_VENCOEFICVERSIONITMOITMOLDITEMFCDEREIVAPER RECEPCIONMOTIVONOSTKVENTASITM_DESCICOMPROBITEMCCVENTQ_VEN_1Q_VEN_2Q_VENCOD_CLIRECEP2 FACTURADOVENDIDOMOTIVOSTIPOREMITIDOCODIGOQUERY1QUERYP_DOSP_CODEMPP_UNOV2P_SYSTEMC2I2COMPLQ_VEN2_1Q_VEN2_2Q_VEN2QUERY2IDLOGPEDITMXMSGITEMSPER_ENTPER_FACQ_ESTADOTCCVORDMANTENIMIENTO_PCKXTOT_VEN XFACTURADOAPEDCOS_LIFOMONEDAP_DESLINDES_INSDES_COMXDEUDADESC1DESC2DESC3DESC4DESC5DEUDABCCCLIE XEXISTE_BIMPORTEXEN_CCXEN_TVFIRSTINXTEMPFMTCONDCOBRPLANFECHACOMENTARBULTOSOPERACIOCALLVENCPLAZOUSS_DEUREFCAUCONDDESCRLISTAFECREFCUOTACUODES_CLIESUCIDUHOYXRESXRES2ESTADO_PICKING_TXTVE_ORDEN_DE_PICKINGEST_PICKACTUALIZAR_ESTADO_PICKINGXFILTROEND_TRANTTS_IDSP_OCULTAR_DEFINITIVAMENTE%Cc2Q%Cv2:Q%Ci2YQ%C q_pedidosQ%Cq_venQ%Cq_ven2Q%CqueryQ%Cquery1 Q%Cquery2,Q%Cq_estadoQQ %CdetalleuQ %Cdetalle1Q BU C2V2I2 Q_PEDIDOSQ_VENQ_VEN2QUERYQUERY1QUERY2Q_ESTADODETALLEDETALLE1lTC %Ctventas NQtventas%Ccomprom ~Qcomprom%Cpickings Qpickings%C q_pedidosQSotccvent  Ca 6  q_pedidosC %C q_pedidosaQBU XPEDIDO XCORREGIRXNO_LOGTVENTASCOMPROMPICKINGS Q_PEDIDOSPEDIDOTCCVENTEST_DESPMANTENIMIENTO_PCK %% >CF ~Z%Cq_old_tvtQTDotventas  Q q_old_tv& "ptventas " ve_orden_de_pickinguopickingscomprom     q ~F E %C4> F2%CCZC Ztventaspeditm>%:>  kCAItem del pedido comprometido pero no encontrado !!! Pedido/Item: CCZ / CC Z% VF~ R[TPD: C Z Itm: C Z Pck: C  Z <-- C  ZC%Cq_old_tvQBU XCORREGIRXNO_LOG P_PICKINGOLOGLOG Q_PEDIDOSQ_OLD_TVXPEDPEDIDOITMPCK_CANPCK_NEWTVENTASACTUALIZAR_ESTADO_PICKINGVE_ORDEN_DE_PICKINGPICKINGSCOMPROMCANESTADOPCKPICKINGQMENSAJEXMSGunuse*mantenimiento_pickings-mantenimiento_pck.q2AA$2"5AB3AB2A2AAq|P 4qAA2qAA2qAA"pq[@ drAAE rqrDu ABBrA qbBAAbCAAbCAABsrqaAA11ArB BqaaaAAAr2QA# rARaQ!AAAaQ!AAAaQ!AAAaQ!AAAaQ!AAAQ!ArrQABAr3 ABs"ACrr1aqAqqrAbCrAABrAABqAABBs3B32A1A1AAaAqAaAqAqAAAAB221A1AAAA9"AB32AsAB"$ZrAr!AAAqAAABAAB1,V:XR]X [g>[~aE%,"2 [Vu>4%CxcausapbC9 T%PC g T ~ TG(9G+(listadosT estadoJT aT T  T Inicializando... C TCTCT 3T #Buscando ltimas facturas y remitos!%Ctmp_comprobantesFQ%T.f. T.t.&SELECT ccvent.fec_ven AS fecha , ccvent.rem_ven AS remito , ccvent.fac_ven AS factura , ccvent.pedido AS pedido , ccvent.cod_cli AS codigo , NVL(clientes.nombre,SPACE(40)) AS nombre , ccvent.deuda AS importe , VAL(SUBSTR(ccvent.fac_ven,2,2)) AS sucfac , bultos AS bultos , causa AS causa , .F. AS tilde , ccvent.tipodoc as tipodoc , ccvent.cuit as cuit FROM ccvent LEFT OUTER JOIN clientes ON ccvent.cod_cli=clientes.cod_cli ORDER BY ccvent.fec_ven, ccvent.fac_ven, ccvent.rem_ven WHERE ccvent.cod_cli#"0 " AND !EMPTY(ccvent.cod_cli) AND !EMPTY(ccvent.fec_ven) AND BETWEEN(ccvent.fec_ven,DATE()-xdias,DATE()+10) AND &xfiltro INTO TABLE (xarchivo) QT  T Buscando pedidos%%P %Ttccvent.pedido=xcomprobp T.t.SELECT tccvent.fec_ven AS fecha , SPACE(12) AS remito , SPACE(12) AS factura , tccvent.pedido AS pedido , tccvent.cod_cli AS codigo , NVL(clientes.nombre,SPACE(40)) AS nombre , tccvent.deuda AS importe , tccvent.sucfac AS sucfac , bultos AS bultos , "P" AS causa , .F. AS tilde , tccvent.tipodoc as tipodoc , tccvent.cuit as cuit FROM tccvent LEFT OUTER JOIN clientes ON tccvent.cod_cli=clientes.cod_cli ORDER BY tccvent.fec_ven, tccvent.pedido WHERE tccvent.cod_cli#"0 " AND !EMPTY(tccvent.cod_cli) AND !EMPTY(tccvent.fec_ven) AND tccvent.est_desp<=1 AND &xfiltro INTO TABLE (xarchivo2) QF FT T  Indexando...& CCZ& CZ& CZ& CZ"& CCZ  T%P F#) >a T , +ve_rotulos_de_facuras_y_remitos(%gC Suspendo?a%C tmp_rotulos FQdh1\tmp\tmp_rotulosC C N C( CD!N "N #C($C(%C(&C('C<(C()C(*C(+C(,C(-C<.C/C0CF T1~( T11 C2F%CNc T3 T4 T5 T6 T7 T8 T9 T: T;T< T= T> T? T@ TA TB TC TD TESFlistados3456789:;<E@ABCD T=G T?H TITJrotulos_cpbt.lbx TK TL TMCCJfNVOlistadosJILKM.t.aaaaa!%Ctmp_comprobantesFQ.dbfBUPXFROM XCOMPROBPXCAUSAP ACTIVEFORM DATASESSIONIDLISTADOSXDIASESTADOOESTADOVISIBLEMAXVALUETEXTO OPEN_FILESXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2TMP_COMPROBANTESXFILTROFECHAFACTURAREMITOPEDIDONOMBRERELEASEXRESTILDEVE_ROTULOS_DE_FACURAS_Y_REMITOSSYS_MOSTRAR_SCREEN TMP_ROTULOSP_LOCALCOD_CLIBULTOSICNOMFAC CDOMICILIOCCIUDADCCOD_ZIP CPROVPAISCPHONOENOMBRE EDOMICILIOECIUDADECOD_ZIP EPROVPAISCCUITCTIPODOC CTIPODOCTZPROCESAR ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAZEMPWEB ZEMPEMAIL ZEMPTXTCPBT ZEMPPROVINCIAZEMPPAISXOBJ_DATOS_EMPRESA DATOS_EMPRESA P_EMP_LOGO P_EMP_AGUAXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVOSYS_MIMPRIMIR_FORMULARIO%CCCVENT *Qccvent%CCLIENTES \Qclientes%CPROVINC Q\provinc%CPAISES Q\paisesBUCCVENTCLIENTESP_SYSTEM%Cbienes *Qbienes%Cfletes XQfletes%Cagente Qagente%Csucursal Qsucursal%Ccondcobr QcondcobrBUBIENESFLETESAGENTESUCURSALCONDCOBRTRETrTFG((ccvfac E%C4%0 D7El comprobante est anulado, no se puede visualizar !!!B C   ve_vis_cpbtBU XTTXCAUSAXCOMPROBTMP_COMPROBANTESREMITOCCVENTCCVFACCOD_CLIMENSAJE OPEN_FILES_2CPBT_VIS VE_VIS_CPBTG+(vpedido T T%P`!TC@z 9999,999,999_ w T%PFG((tccvord E F G((ccvfac E% BT C]> %PCC@z 9999,999,999_Bultos: Anterior=CC Z Nuevo=CC Z#ve_rotulos_de_facuras_y_remitos.PRG 1uCBultos: Anterior=CC Z Nuevo=CC Z#ve_rotulos_de_facuras_y_remitos.PRG T  T T T T T T T T T T T T T T T T T  T!T"T#T$T%CX T&T'CXT(CX T) T* T+ T,T-C X T.T/C X T0T1CX<22  J(2 T364 ve_pedidoCP C Z6F6G((codigo EF8G((codigo E4T9CCC8fC /6:6F6G((codigo EF8G((codigo E4T;CCC8fC /6:6<( r tmp_rotulos=>?@ ABCDEFGHIJKLMN  =  > ? @ <9; OC OPC O RQBUSVPEDIDOXPEDIDOPEDIDOXCAUSACAUSAXCOMPROBFACTURATCCVENTTCCVORDCCVENTCCVFACBULTOSTMP_COMPROBANTESTTS_IDUSER_LOG PUB_INDEX XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXCLICUIT XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORD XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE ZARR_TEXTOS XMAXTEXTOS TRAER_CLI VE_PEDIDOPAISESCODIGOPROVINC XCPROVPAISDESCR XEPROVPAISZREMITONOMBRECOD_CLIFECHAI CDOMICILIOCCIUDADCCOD_ZIP CPROVPAISCPHONOENOMBRE EDOMICILIOECIUDADECOD_ZIP EPROVPAISCTIPODOC CTIPODOCTCCUITTIPODOC FN_TIPODOC FN_CUITDNICUIT open_filesM open_files_2F ver_remitooprocesarAA!#1qAA3Aa22QA/BrAr!qQA3rqAAArBt!11bBBqAA2B3!AAAAAB2!A!A!AAAAAB3rAAAAbB3BABqqAbCQAC311t1brrBsrBABB1xi^w1&J%.2.V>%a a Ta Ta TQlocal000 k   T $T CCCC:_/-+T  \log\krikos -  .txt< TC \*.txt Ta(j!CC  T-%h1\tmp\C]M%\%C *>C C C C %C 0   XC>C C &NO SE IMPORTO NINGUNA ORDEN DE COMPRA. M>@NO SE ENCONTRARON ARCHIVOS DE ORDENES DE COMPRA A IMPORTAR (TXT)5 mostrar_txtImportacin desde KrikosBUXDEV DEY_FUNC2P_DEV P_SUSPENDC_IVALOCAL000LOCALESP_DIR_IMPORT_KRIKOS XOTROSGLNXCARPETAXIDSYS XLOG_GENERALP_SYSTEMARR_OCS MAXARR_OCSXPRIMEROZ PROCESAR_KP_LOCALMEMO MOSTRAR_TXTTC T\#T\tmp\TCC]R ve_pedidoT ocE T a T  T  T T-?sys_importar_baseJ( a   C T-CKrikosaHEADTocD T?sys_importar_baseJ(a   C T-LINEF#)A%CImporta la Orden de Compra C ? % CB<T\log\krikos -  OC C.txt%+C Importacin de Pedidos(C ----------------------C ,C Procesando Archivo: C*C Procesando OC: CC F#)T!C"g%Cempresas Q \empresasF#-$%%#&!qT'CXEl pedido no es de C#(& , no se puede procesar. GLN Empresa: CC! 9999999999999_C -'>TCC'!HAY pedidos para otras empresas: 6ZTC  GLN Empresa: CC! 9999999999999_ Orden:C CBT)C*gF+-&)%C4s T,-#T'CX Cliente: +.C -' OT'CX$Cliente no encontrado. GLN Cliente: CC) 9999999999999_C -' CBHK ) 0b_B/T/C0g 2KT/C1g%C/  T2%+3S`T'CXCliente C,; con sucursales pero la OC del cliente especifica sucursal.C -' CB 0F4-4-, 4&/ %C4 |T'CXOC del cliente C,8 especifica sucursal con GLN inexistente. GLN Sucursal: CC/ 9999999999999_C -' CBT244$T'CX Sucursal: 4.C -'T5F6G((ref_ext E5%C4 `T'CXLa OC del cliente C5! ya est ingresada con el pedido CC68Z.C -' w /\( \procesados\\=C CXArchivo movido a  \procesados\(9 JC CXNo se pudo mover el archivo a  \procesados\ CBF6G((tccvord#6T;8=CaPedido: CC;Z - OC Cliente: C5CT<C>=T?C@=TACB=TCDETF+G.THCI CJ C0H  ) e_B~ gTKCCCCL=gCCL\gCCL\g$* CCM=:CM\ 2 CTKCCCN==* CN \:CN \TO2TPEXPEDICITQ80TR+SFT G((plan E+U%C4 5T'CX"El cliente no tiene plan de pagos.C -'C-' CBTV<TWF6>-,32X+.8;YC$Z<[C$@?\+]^C_F`aC]bHI+USRcOdPef+fgQh575iKFj>-,kC;@z 9999,999,999_lPm<nVYC$a,C;@z 9999,999,999_PCZoC]ehC;@z 9999,999,999_pPq< Tr Ts Tt Tu Tv Tw Tx Ty Tz T{ T| T} T~ T T T T TK T TTCUENTAS A PAGAR T T T T T T T Tve_procsFEcomprobC; ZP%C4 >kC; ZlP.>.+.+.tuvwx\+]yz|}~ T T TF ~yF--, Cg %C4TFG((codins E%C4 ET'CXNo se encontr C en la tabla de artculosC -'C-' CB(TC 6 LT'CX$El EAN del artculo no existe. EAN: C C -'C-' CBH8 ) e_BTT>C T 28TT%{T'(Cantidad por bulto (UXB) no coincide !!!C C Cdigo: C EAN: C C-'#TC 6.G+( ve_funcionesve_funciones_preciosTCXTCX TT TT%.TCR,  .TCR,% XT'%Error al obtener el precio. Cdigo: C EAN: C C-'%"CR, "CR, %CTCTT'>No coincide el precio de la OC con el de la lista de precios. C Cdigo: C EAN: C C-'HO FfTdd d d d d d 2O6%KT'DNo coincide el descuento de lnea OC con el de la lista de precios. C Cdigo: C EAN: C C-'F >-,Z<8;d (RCNNS6YC$CNC66T$Td T T T Tkproc_stk6dPCC;@z 999,999,999_C$7%.eCC;C;@z 9999,999,999_6C;P6 Proc_stk: >T'Error de stock. Cdigo: C Error: CC -CX'C-' CGritm_desckl(C; ZPF6Q>6[<Fj>jTCC̛F6>6bC6bC %;3%C;tccventtccvord 6-,   \procesados  5/\( \procesados\\=C CXArchivo movido a  \procesados\(9JC CXNo se pudo mover el archivo a  \procesados\C C Fin proceso.C BUXARCHIVOXPRIMEROXDEV XOTROSGLN XARCHIVO_XLSP_DIR_IMPORT_KRIKOS XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXALIAS_SALIDA1XAUTOXTIPOXSUBTIPOXVERSIONXCODIGOOIMPSYS_IMPORTAR_BASEXDXLS_INICIAR_IMPORTACIONSYS_MOSTRAR_SCREENFORHEADXALIAS_SALIDA2OCE MENSAJE_SINOOC_COMPLFN_EXIT XLOG_PEDIDOP_SYSTEMXIDSYSLOGEAR XLOG_GENERALXEMPGLNEANPROVEMPRESASCODIGOP_CODEMPGLNXMSGDESCRXCLIGLNEANCOMPCLIENTESXCOD_CLICOD_CLINOMBREXENTGLN PLAN_DESC2 EANENTREGAXSUCSUCSUCURSALXREFTCCVENTREF_EXTPEDIDOOEXTCCVORDXPEDIDOXFECHASTR2DATEFEC_OCXFECENTFEC_ENTXFECCANFEC_CANCXSUCFACLOCALESVE_024 XVENDEDORVENDEDORXNOTASPLAN PLAN_DESC1XHORARIO FEC_ENVIO HORA_ENVIO TURNO_ENTXFLETEXDEPOSXTIPODOCXLISTALISTACONDCOBRFPAGXVENCPLAZODES_CLIEHOYFEC_VENFEC_INICUIT INSCRIPCIOSUCFACAGENTEEST_DESPIDNOTASCOD_FLEDEPUSRIVACATTIPODOCREFHORARIOCCCLIECOMPROBCAUSAFECHAVENCIDUCAUFECREF XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIR XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO DOMICILIOSVE_PROCSCLIAUXNOMFAC DOMICILIOCIUDADZIP PROVINCIAPAISPHONOEMAILENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORENTCOORDGEOENTFCECTOFCENOMFCEDOMFCECIUFCEZIPFCEPROFCEPAIFCEPHOFCEHOR ACC_BRUTOACC_NETO ACC_BULTOSOCDARTXCLIBARRASEAN13XCOD_INSCOD_INSBIENESCODINSXUXB CANTXBULTDESCRC XOC_CANTXBULT CANT_CAJAS XOC_UNIDADESCANT_PED PREC_NETO PREC_BRUTO CANT_UNIPMOSTRAR_DIFERENCIAXBULTOS VE_FUNCIONESVE_FUNCIONES_PRECIOSXBULXATRXXPRECIOXXBONIFDES_INSXXMONEDAXXFECACT XOKPRECIOP_PRECIOS_MAX_RECURSION XOK_PRECIOVE_OBTENER_PRECIOVE_OBTENER_PRECIO_COMPUTADOVE_OBTENER_BONIFVE_OBTENER_BONIF_COMPUTADO'P_DIR_IMPORT_KRIKOS_OC_TOMAR_DESCUENTOSDESC1DESC2DESC3DESC4DESC5TVENTAS RECEPCIONCOS_LIFOTOT_VENDESC_INSCOEFICLISPREGRAVADAIVAITMLINEAIVAPERC_IVABULTOSSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKBULATRUSER_LOG PUB_INDEXITEMDEUDAIVA_VEN IMPONIBLEVALDECLIMPORTEXLOG]%C'B/BCCC\gCC\gCC\g$UXSTR>%C FQ FQBUXALIAS_SALIDA1XALIAS_SALIDA2n%* G( A G(G G GG(BUXARCHXINICIALXMSGB0BGES: C OC:CUXGESXOC XDECIMALESSTRTRIM4 TC BCCcZUXNUMERO XDECIMALES procesar_kstr2datef,fn_exit,logear7-Mostrar_Diferencia-STRTrim..qQBAqBrARQ2"A1AAQB211a5BrA!!uQAAA"!TwQ"Aqc1AA#t111AA"!Ar1AAq1AAA1Brb1AAAAuQ!BAAr2AQsQ11AABrQsQ 2rQArrrQ11AA11ABAA41D41r2A1A8!!A 1A1aa! 1AB~Q CB2Q1BrCvr&rX21AAACA"!B3qA31AAAAA3AbaaaB23111*GFd-GGjGPHscHIIhIII^J ( @)ƂkkY9aB޶kRƎs!yZcssõ1        %6~Y>|G(9 CG+( ve_pedidoG+(ve_procsTCcoccventXclientes   ventas Q  Q  QCC(XQQCC\gQQQQQCQ 0    r  C X CC Rg r   1Q& C  & &   T *ve_cambio_de_estado_de_remitos( % )C Suspendo?a" T#F~  T$/T%"ve_cambio_de_estado_de_remitos.prg(T&Cambio de estado de remitosy'trsac$stockstkxdeptccventtventascccliecompromicompromcliaux%$ T$)trsac$%&%$FG((remito E $T* CZ%T+ CZ8%C6 %C,- T##.trsac$%& T/ SCFNo se pudo comenzar la transaccin. La operacin ha sido cancelada !!!0! _CRNo se pudieron obtener los bloqueos necesarios. La operacin ha sido cancelada !!!0!%#AC4No se han realizado modificaciones a los remitos !!!0 %7CSe han modificado CC#Z remitos !!!0&%Cremitos_no_facturados^FQ.dbfBU1 ACTIVEFORM DATASESSIONID OPEN_FILES VE_PEDIDOVE_PROCSXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPCCVENTFEC_VENFECHAREM_VENREMITOCOD_CLICODIGOCLIENTESNOMBREDEUDAIMPORTEFAC_VENSUCFACNO_FCTILDEAUX1NO_DEF OLD_TILDE OLD_NO_DEFVENTAS RECEPCIONSALDOCAUSAREMITOS_NO_FACTURADOSXRESVE_CAMBIO_DE_ESTADO_DE_REMITOSSYS_MOSTRAR_SCREENXACCAAATRAN_PRGTRAN_TXTLOCK_GTRSACBEG_TRANXIDDXIDH REGISTRAR TTS_ERROREND_TRANTTS_IDMENSAJE%CCCVENT *Qccvent%CCLIENTES \Qclientes%Ccondcobr QcondcobrBUCCVENTCLIENTESCONDCOBRU%Cbienes *Qbienes%Cfletes XQfletes%Cagente Qagente%Csucursal Qsucursal%Ccondcobr Qcondcobr%Crubrofac Qrubrofac%Cventas JQventasBUBIENESFLETESAGENTESUCURSALCONDCOBRRUBROFACVENTASTRETrTFG((ccvfac E%C4%0 D7El comprobante est anulado, no se puede visualizar !!!B C   ve_vis_cpbtBU XTTXCAUSAXCOMPROBREMITOS_NO_FACTURADOSREMITOCCVENTCCVFACCOD_CLIMENSAJE OPEN_FILES_2CPBT_VIS VE_VIS_CPBTC Suspendo?a%F&>aC6F*qccclieC  C Z oCrEstado: No se factura, C temporalmentedefinitivamente6. F>-TTTTTTTT !T"#T$% T& C'F( G((plan E)FZ> *  +,-&./00123,(45667*8 9(:;;<, =>>??@@A* CZBC]C4CrEstado: Se facturaBUDSYS_MOSTRAR_SCREENREMITOS_NO_FACTURADOSTILDECCVENTNO_FCAUX1NO_DEFCCCLIECOD_CLICOMPROBCAUSACUOTAXIDDXIDHUSER_LOG PUB_INDEXREMITOTRAN_PRGT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5T_DESC1EDESC1ET_DESC2EDESC2ET_DESC3EDESC3E T_DES_NAC1DES_NAC1 T_DES_NAC2DES_NAC2XBONIF TXT_BONIFCONDCOBRPLANFAC_VENFECHAFEC_VENCOMENTARIMPORTEDEUDABULTOSOPERACIOCALLVENCPLAZOUSS_DEUMOTIVOREFCAUCONDDESCRLISTAFECREFCUODES_CLIESUCMONEDAIDIDUHOY open_files open_files_2P ver_remito registrar^ 2!01B!2rr32rBQAB1AAAAB2qABbqAA2B3!AAAAAC2!A!A!AAAAAAA!AB3rAAAAbB2r"rcsrSrrQBCA1<-GF^*n@% #d TYB? ,G(9T9 ET9%Cclientes wQclientes%Cccvent Qccvent%Cccclie Qccclie%Cfletes QfletesF-%C4 vFC9Debe haber un flete del tipo "Servicio/No se entrega" !!!B-  T  G+(ve_procsT VT A T Tve_liberar_remitos("T\tmp\CC]R ve_pedido>T C00CCZR-C00000000CCZRTVCBU ACTIVEFORM DATASESSIONIDXDATASESSIONIDCLIENTESCCVENTCCCLIEFLETESTIPOMENSAJEXFLETE_SERVICIOSCOD_FLEVE_PROCSXCAUXLETXCENXNUMVE_LIBERAR_REMITOSXRES XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXCOMPROBXCAUSALIBERAR_REMITOS 4Cliberar T TaFG((ccvfac E%%C$CC$% OCBLa factura no corresponde al mes en curso, no se puede liberar !!! B-%CC Rg< 5oventasCC  % O T  T%F G((ven_fac E#+C+  %CC RgF% E r%C$CC$%ZC El remito 8 no corresponde al mes en curso, no se puede liberar !!! B-F HFG((ccvfac E  T%C cur_cc_libFQ{occclieCCZCZCcZ cur_cc_lib`% KC?El comprobante tiene imputaciones, igualmente desea liberarlo ?  T-%%C#Tve_liberar_remitos.prg"TLiberacin de remitos Tmtrsacccventventasccclieremxfacnumfacmovstockitm_desc%q$trsac%TC %[ T ~ T-T  T-T$!trsac T"%,CSe han liberado los remitos !!! mNCALa transaccin no se pudo completar, no se ha registrado nada !!!  )CNo se ha registrado nada !!!  .C!Factura sin remitos asociados !!!  BU#XCOMPROBXCAUSASYS_MXTIPO_FCXOKCCVENTCCVFACP_CIERRE_CONTABLEFEC_VENMENSAJEREM_VENXITEMS_REMITIDOSCOUNTVENTASFAC_VENCAUSAVEN_FAC CUR_CC_LIBCCCLIECOD_CLIREFCAUCUOCOMPROB MENSAJE_SINOTRAN_PRGTRAN_TXTAAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDT\tmp\C]!CLiberacin de remito%Ctmp_anulacion3oFQ%Ctmp_anulacion2FQ%C tmp_anulacionFQtoventasccvent Q         tmp_anulacion2 (FQ8>a%F((\tmp\tmp_anulacion3F T > >C00000000[ > >  > >TTyotmp_anulacion2CCC 6TQ pedidos_afectados ~F G((tccvord E%C4>F"G((comprob2E$C@z 9999,999,999_PCZ%C4>%% % & F ~%yF'G((peditm!% ) hECZC*Z T+C4 @F, G((IDE  C*Z%C4F'ECZC,.Z T+C4 <?CNo encontr el itm CC,.Z en itm_desc !!!/ T0 T+-%+k>' u !% ) F, G((IDE  C*Z%C4T1C,.,2 >,. /T1*FG((cpbtitmErC1Z%C4 FG((cpbtitmE  C*Z,>  r*1 | T4COFG((cpbtitmE  C*Z T5 #4>5G+( ve_pedido">C9:;<8F=G((~> %C?  >>G((factura E %C4 rremxfac> %F!Q\tmp\tmp_anulacion3b>  r@-ABCD-5>ABCD> F TT*THFC 6>@@HF"G((comprob E$  CZ%C4f >%@ q TI%J %CI TII+$TIICCCJCJK_VA%LK %CI# TII+$TIICCCLCLK_VA%M %CI TII+$TIICCCMCMK_VA%N %CI TII+$TIICCCNCNK_VA%O %CI^ TII+$TIICCCOCOK_VA%CI TII%%Ccondcobr QcondcobrFP G((plan EQF"^>$$#   RSI%@TTUVWPXYZZ[ \ ]P^__`abccddee-$  CZfC]gg%1>hiF ri  F % &, Tk6lve_cancelar_pedidoaka%Ctmp_anulacion2ZFQ%C tmp_anulacionFQ.*%#tno  Liberacin de remitos: Pedido: CCZve_liberar_remitos.prgC ZPFF ~ono  Liberacin de remitos: Remito: Fve_liberar_remitos.prgFrQFBaUpXTIPO_FCXTMP_ANULACIONP_LOCALSYS_MTMP_ANULACION3TMP_ANULACION2 TMP_ANULACIONVENTASCCVENTESTADOFAC_VENCAUSAXCOMPROBXCAUSAREM_VENNOSTKPEDIDOFCDEREFEC_ENTFEC_VENALLXPEDIDOCOD_FLEXFLETE_SERVICIOSXFINALDEUDAXBASETOT_VENDES_COM FACTURADO RECEPCIONPEDIDOS_AFECTADOSTCCVENTTCCVORDCCCLIECOMPROBCOD_CLIIMPORTEEST_DESPTVENTASPEDITMVERSIONITMXENCITM_DESCIDOLDITEMMENSAJE TTS_ERRORXITM_ORIGINAL_DE_REMITOITEMCPBTITMXREGISTRO_REMITO XRECEPCIONIN VE_PEDIDOCALCULO_TOTAL_PSCOS_LIFOCOEFCOEFICDES_INSREMXFACFACTURAREMITOSALDORFCEFCE_IDFCE_CAEFCE_VENCAAAREMITOS_AFECTADOSCCVFAC XFACTURADOXTEMPDESC1FMTDESC2DESC3DESC4DESC5CONDCOBRPLANFECHACOMENTARBULTOSOPERACIOCALLVENCPLAZOUSS_DEUMOTIVOREFCAUCONDDESCRLISTAFECREFCUOTACUODES_CLIESUCMONEDAIDUHOYMOVSTOCKNUMEROFORXMSG PROCESAR_PDVE_CANCELAR_PEDIDOUSER_LOG PUB_INDEXliberar_remitos transaccion !AAA!A!A!AraqA""A"B2BsRqBwQ52r2qAqAArAArBBAqAAAr5!2B2"AABAAABB2qqAAqAAqAAG4tBsqrBr"ABbBBAw2sqrrqABDCrAAtqss2!BBvaB!AAA2+sqQBqV qrqaQ!AAAaQ!AAAaQ!AAAaQ!AAAaQ!AAAQ!AAAqrQB3BBsccBqAAqAA6AArAt1(.LEd?%}{Yp?% a)Tc:\sistema\system_sch\data\1"Tc:\sistema\system_sch CTCSQTBORRAR1Tsprusr Ta T a,$c:\sistema\system_sch\data\1\ges.dbcG+( ve_pedido%Cccvent AQccvent%Cclientes sQclientes%Cventas Qventas%Cremxfac Qremxfac%Citm_desc Qitm_desc%Cccclie 1QccclieTC XTC XTA T TTR T T T've_asociar_remito_a_factura(% CBUXDEV DEY_FUNC2P_SERVERP_SYSTEMSETSCL_ATRCL_NOMCL_AVEP_DEV P_SUSPENDC VE_PEDIDOCCVENTCLIENTESVENTASREMXFACITM_DESCCCCLIEXNUMEROFXNUMERORXLETXCENXNUMXLETRXCENRXNUMRXTIPOVE_ASOCIAR_REMITO_A_FACTURAXRES REGISTRAR6 Ta TStrsacccventventasremxfacccclieitm_desc%! TStrsacve_asociar_remito_a_facturaAsociar remito a factura%;TC% T 7T STStrsacve_asociar_remito_a_facturaAsociar remito a factura T% HCSe ha asignado el remito  a la factura   !!! +BU TRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEXNUMERORXNUMEROF TCasociar remito6oventasQ r q% P >CO T  T F~  T - T -FG((cpbtitm%IEVCZ T C44T  3G((ven_fac#CVventasven_facE~$C+ V CCRg   5% T C4 T a!G((cpbtitm% LF<^(TC  FFT &T  C&T  C F% >  ">C F G((idErCZ%C4x>"  TF   > ">C  > ># >$->%%F G((idEVCZ%C4_>" v TFErCZF'G((ccvfac"%''VEV >#F'G((ccvfac"%''r=Er >)a %%  CEl tem CCZ' no tiene coincidencia de artculos !!!C Artculo Remito: CCCC  C6CC  C6C Artculo Factura: CCCC  C6CC  C6* HCEl tem CCZ$ no fue encontrado en la factura !!!* CNo se encontr el artculo CCCC  C6CC  C6 en la factura!!!* T!%L F'G((ccvfac"%''rEr%  >+ >+, F- G((cpbtEr%C4>/','+%C/ -F0G((remito E T230F0G((factura E T5-+C+ 4 %C1y >1%3f >32 T5a!H%5 F0 >32 >4 >167rSe asocia el remito  a la factura ve_asociar_remito_a_factura.prgV  6C)El remito no tiene items sin facturar !!!* T[ T8- BU9 XRESULTADOSYS_MITMNEWVENTASREM_VENXNUMERORCAUSAQALL XFACTURADO XREMITIDO RECEPCIONXOK_ITEM XENCONTRECPBTITMXTIPOXNUMEROFITMCOD_INSATRBULVEN_FACFAC_VEN XTMP_FACTURAXCANTIDAD_A_ASIGNARXSALDOCALCULO_TOTAL_PSCOS_LIFOCOEFCOEFICDES_INSTOT_VENITM_DESCIDOLDITEMFCDERENOSTKFEC_ENTINCCVENTCCVFAC FACTURADOMENSAJESALDORDEUDACCCLIECPBTIMPORTEREMXFACREMITOXPEDPEDIDOFACTURAXOK_REMUSER_LOG PUB_INDEXTRSAC registrar0 transaccionqBQ!2A1TC2!AAA!A1AAA!ArBB272122AA2ABB4b"rAr2rB2URAABBr{rCbbxeD!rAtB!tAtqq"Ar"A2AAAAA2r"A3arqRABBrr1AAABAqQACaAB123BTKZ$(Fhn   ( dFd,V:q@@@UU"UU!!P"( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""#ff f  $$$( @dFd,V:q@@@    -   U U]U U!]U",, !- "" ,, <     ??G( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""++++++++++++++++++++++++++++++Z++++++++Z++++ZZ++Z++++++++ +++Z+Z+++++Z+++ ++G+++++++ +++++++++ +++++  +++++++++++++++++++??G %$0)%muT? G(9 $G~(clases+G+(listados ve_pedidove_procsC5      T  T  T  T  T T  T T /5 TC$ T T T T TTCX T T T T T -+a T!+a T"H !ve_predespacho_1( %%C$ { T %C !% ! !ve_predespacho_2( %C q T T'C(Hm ': T ! 'M 'm T %C !% !%   !BU) ACTIVEFORM DATASESSIONIDCLASESLISTADOS VE_PEDIDOVE_PROCS DEY_FUNC2XTABLA OPEN_FILES XTOT_PESO XTOT_BULTOS XTOT_VOLUMEN XTOT_IMPORTEXPED_SEL XCOSTO_HORAXHORASXVALOR_DECLARADO XOTROS_ITEMSXTIPOPEDXFECEMI XPREDESPACHO XHORAS_USADASXCOSTO_CALCULADO XCOEFICIENTEXCOD_FLEXIMPORTEXCOEF_RECHAZADOXCOEF_ACEPTADO XMIN_IMPORTP_VE_PREDESP_COEF_RECHAZADOP_VE_PREDESP_COEF_ACEPTADOP_VE_PREDESP_IMPORTEXRESXFORMXMAXFORMVE_PREDESPACHO_1LEER_PREDESPACHOWIZARDVE_PREDESPACHO_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMTC$ve_sql_pedidos_v2%C TMPPEDUPDATEhQFQ#)F;p tmppedidos C  :p tmppeddir C  U XPEDIDOXTABLAODEYFUNCNEWFILE_LOCAL_TMPEXPORTAR_APROBADOSVE_SQL_PEDIDOS_V2 TMPPEDUPDATE TMPPEDIDOSGEODIRGEOREFPEDIDO TMPPEDDIR%CCliaux 1QCliaux%CFletes _QfletesTC ve_sql_pedidos_v2%C TMPPEDIDOSQFQ"i1 TMPPEDIDOSL"i1 TMPPEDIDOS Cd"i1 TMPPEDIDOS L& >C > -q TMPPEDIDOSdpredesp  BUXTABLACLIAUXFLETESODEYFUNCNEWFILE_LOCAL_TMPEXPORTAR_APROBADOSVE_SQL_PEDIDOS_V2 TMPPEDIDOSGEOREF LUGAR_EN2MARCAPEDIDOGEODIRALL LUGAR_ENTDPREDESPo TMPPEDIDOSU TMPPEDIDOS$ T Ta0trsacepredespdpredesp% TVe_predespacho.prgT predespacho Ttrsac Ta%1TC% T -T ITtrsac+%   JC Se ha registrado el predespacho CC @z 999,999,999,999_ C  T   T BUAAA XRESULTADOLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORMENSAJE XPREDESPACHOIMPRIMIRTTS_IDv< oepredespC% P T kTBU ARR_PRESUPNUMEROEPREDESP XPREDESPACHOX T Ta%fqepredespqdpredesp z C;repredesp     T  TF~=T>rdpredesp  T- BUXERRORTRSAC XPREDESPACHOEPREDESPNUMERODPREDESPNUEVO_NUMERO_DE_PREDESPACHOFECHACOD_FLEIMPORTEXFECEMIXCOD_FLE XTOT_IMPORTEXTOTALXITM TMPPEDIDOSMARCAPEDIDOITM%C %KT b T%T  T% T  T U XCOEF_RECHAZADOXCOEF_ACEPTADO XMIN_IMPORTFLETESCOD_FLE COEF_RECHAP_VE_PREDESP_COEF_RECHAZADO COEF_ACEPTP_VE_PREDESP_COEF_ACEPTADO MIN_IMPORTP_VE_PREDESP_IMPORTE  Ta%Cq18Q"oepredespq1% rTT  C fletescodfleC   TQ"odpredespq1 ~PF>a% ECFFQF#)Ba B-U XPREDESPACHOXSALDOS XRESULADO XRESULTADOQ1EPREDESPNUMEROXFECEMIFECHAXCOD_FLECOD_FLE LEER_COEFICXCOEF_RECHAZADOXCOEF_ACEPTADO XMIN_IMPORT XCOSTO_HORADPREDESP TMPPEDIDOSMARCAFORPEDIDOOBTENER_PEDIDO_INDIVIDUALTC$ve_sql_pedidos_v2FQQr TMPPEDIDOSo TMPPEDUNOQ C Q Q aQ QUXPEDIDOXTABLA2ODEYFUNCNEWFILE_LOCAL_TMPEXPORTAR_PEDIDOVE_SQL_PEDIDOS_V2 TMPPEDUNOGEODIRGEOREF LUGAR_ENT LUGAR_EN2MARCATUPEDIDOX"%C xpredespachobNJ T&%Cxdestino_forzadobN T% T%CC T%CN T%CC TG+( ve_pedido% T T T C$T CXF SC  T )G+(listadosdey_funcvpedido T T T T T T T T TT;listados(T\cpbt\ -logo.jpg T T!"F#G((codfle E T% T&#' T( T) predespachoT*PREDCCZ!T+C@z 9999,999,999_T, T-+ T., T/T0 T1!T2C@z 9999,999,999_T3#T4CC999,999,999,999_)T5 CC999,999,999,999_ T6 T7 T8T69:T79; T8"T<C =>6T8C86 T?F i@listados6<87*TMPPedidos.marcaaaaaa---BUA XPREDESPACHOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO XNOTREALTIME VE_PEDIDOXFILTROXTIPOPEDXFECEMIXCOD_FLE TMPPEDIDOSLEER_PREDESPACHO ZPREDESPACHOLISTADOSDEY_FUNCVPEDIDO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIO DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUAFLETESCODFLE ZFLETECODIGO ZFLETENOMBRENOMBREZFECHAZTIPOCOMPROBANTE XIDARCHIVOZID12ZCAUSA ZIDCOMPROBZIDCAUSAZCAIZCAIVTOZCODIGO_DE_BARRAS_AUTOIMPRESOR ZIDCPBTNUM ZIDCPBTCAUZCOMPROBANTENUMERO ZCOMPROBANTE XFORMULARIOXCOPIASXDRIVERCONSPRDFORM PRDCOPIASXDESTINOLOCALESVE_022ZCOPIAIMPRIMIR_FORMULARIO55 T T aF %C Ecodcli ^J  ^J%CSucursal QSucursalF %C EIDCZ ^J  ^JF%C OEcodfle ^J c ^JF%C EComprobC ZP%C4 ^J  ^J#abmclientes_direcciones( % HtrsacfletesclientessucursalCliaux% DTVe_predespacho.prgT Triple_ABM Ttrsac T a%(%C )F Ecodcli%C4% _J%C vF EIDCZ%C4r _J%C FEcodfle%C4 _J%C FEComprobC ZP%C4 _J T @T \Ttrsac'%   +CSe modificaron las direcciones TUXCOD_CLI XSUCURSALXCOD_FLEXPEDIDO OABMCLIENTESOABMVSUCURSALES OABMFLETES OABMPEDIDOAAA XRESULTADOCLIENTESCODCLISUCURSALIDFLETESCODFLECLIAUXCOMPROBABMCLIENTES_DIRECCIONESLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANEND_TRAN TTS_ERRORMENSAJETTS_IDWIZARDObtener_pedidos_actualizar) open_filesEliminar_asignados registrarA nuevo_numero_de_predespacho transaccion Leer_Coeficleer_predespachoiObtener_Pedido_individualimprimirD Triple_ABMAsr13SABAA2r1A12AAAABBBABD21r12A12A1r1Aq3qrAAQr4q!A!AA!!!B326r22AABA2s"AB2r2BtAB2QqAqAqAA5r2A!$a"q!ArArArQrqA2qrA7%AbA2ArArArA23qAB1r12!vB612rru!1AAAr!QAr!1As!AA2q2!q1AA!qQAA"q1AA"qAAAArBB3G yZ3 b h  !'$?7d`y{Fjb)Gz)(3G%?E@T?u4G(9"T\tmp\CC]R ve_pedidoF T - (CV%C REMITO T a!% $CDebe reindexar DESP !!! B-F G((remito%CDespflet 5Qdespflet%C despotros iQ despotros %Ctmp_adicionalesFQG+(listadosG+(ve_armar_despachoG~(clases5%C$rpt_ve_remitos_pendientes_de_entregaFQ TTTC3 $TCXTCXTCXTCX T T T T T  T! T" T#C$ T$% T& T'T(T)CXT*T+T,CXT-T. T/ T0 T1 T2 T3 T4 T5%L T6 ve_despacho_pregunta(6%6HB8 C9 T6%< TFG((despacho E T&; T'<T&;T(=T>?T*@T+ATBCT-DT.ET/FT0GT2HTIT#CJKve_terminar_despachoMF5NTNCOPRo despotrosQRCSQSCTQT:Q1N F5NTNCOP@o despotrosQRCXQSCXQT-1NQN%)9%C$\tmp\rpt_ve_remitos_por_despacho.dbf0-%Crpt_ve_remitos_por_despacho d7Q \tmp\rpt_ve_remitos_por_despachoUFU%CN  .C!No hay remitos en el despacho !!! T6FUQ %.C!No hay remitos en el despacho !!! T6%6|B%C-\tmp\rpt_ve_remitos_pendientes_de_entrega.dbf05%C$rpt_ve_remitos_pendientes_de_entregaFQ=Q)\tmp\rpt_ve_remitos_pendientes_de_entregaF5i1$rpt_ve_remitos_pendientes_de_entregaTM5i1$rpt_ve_remitos_pendientes_de_entregaVL% 3$\tmp\rpt_ve_remitos_por_despacho.dbf%WV & CXZ YZT[ ~R %X[ T[X N >\ >] >^Hk  % & _ % & R R 2 & `R`!%CN   % o$rpt_ve_remitos_pendientes_de_entregaQaXdespfletQf f:a:XfletesQc ciabXfle_tipoQd dk<abcR<Q<CdeCXQef;Q;CCCfg Cfg cgfg6CXQgfHf=f?f@fAfCfFfGfDfECab ab tmpfle_data Tm Tn+aH  ng +%   o  ve_predespacho_1(6 4 T6C5q%C6nr c ! n%  4"ve_armar_despacho_por_remito_lista(6  T6%C6nr ! nF%  h4(ve_armar_despacho_por_remito_adicionales(6  T6%C6nr ! n%uYo$rpt_ve_remitos_pendientes_de_entregawxyCb tmpfle_orden& yy%  w."ve_armar_despacho_por_remito_orden(6  T6Fz ~F!>yzywzw%C6nr ! n%C tmpfle_data o$rpt_ve_remitos_pendientes_de_entregaQaXfletesQc ciabXfle_tipoQd dkc~abcRCa}Q}c~Q<CdeCXQe Q;cgcHQ=CXQ?Q@QACXQC QFQGQDQECab ab tmpfle_otros Eo$rpt_ve_remitos_pendientes_de_entregaQaX tmpfle_dataQ babXfletesQc ciabXfle_tipoQd dkC< <c~6abcRCa}Q}C< <c~6Q<CdeCXQeC; Q;CgcgQgCHcHQHC=Q=C?CXQ?C@Q@CAQACCCXQCCF QFCGQGCDQDCEQECab ab tmpfle_otros%  F."ve_armar_despacho_por_remito_otros(6 ] T6&o tmpfle_otrosǼ tmpfle_data%C6nr ! KC>No hay remitos pendientes de entrega sin despacho asignado !!! T6 xKC>No hay remitos pendientes de entrega sin despacho asignado !!! T6%6,%Crpt_ve_remitos_por_despachoFQ 1"\tmp\rpt_ve_remitos_por_despacho.* 5%C$rpt_ve_remitos_pendientes_de_entregaWFQ :+\tmp\rpt_ve_remitos_pendientes_de_entrega.* BFCb(#)<2 T J(%C tmpfle_data:Fl& bbF+& bbCX CCbfX *& bbbCX CCbfX G-(bl%rFG((despacho E TiFG((UNICO T-%C TaCa ~b Ta TCOCbaFG((UNICO #% FG((despacho EF :F:FG((UNICO~bn TCOCb-FG((UNICO # %FG((UNICO ~ TCOCb-FG((UNICO #  FCC]-%2 C <%Y CFQ&%   TTT%% T T( %a.ve_armar_despachoC3TCC, 6CCCZT%.CSe ha registrado el despacho  !1C Se han registrado los despachos  %C tmpfle_dataPFlQ,%Crpt_ve_remitos_por_despachoFQ 1"\tmp\rpt_ve_remitos_por_despacho.* 5%C$rpt_ve_remitos_pendientes_de_entregaFQ `:+\tmp\rpt_ve_remitos_pendientes_de_entrega.* jBU XMODIFICAXSOLOCOT XSOLOMAIL ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDODESPENCZMENSAJEREMITODESPFLET DESPOTROSTMP_ADICIONALESLISTADOSVE_ARMAR_DESPACHOCLASES$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGA XSINREMITOSXDFECXHFECXDCLIXHCLIXDAGEXHAGEXDESTXDESPXOLDREGMSGXDXTIPOXFECHAXDORDP_DESPACHO_ORDENXIMPORTE XFLE_TIPO XINICIO_HORAXINICIO_DESTINO XSALIDA_HORA XCIERRE_HORAXCIERRE_DESTINOXALMUERZO_INICIO XALMUERZO_FIN XHORAS_USADAS XOTROS_ITEMSXVALOR_DECLARADO XCOSTO_HORAXCOSTO_CALCULADO XCOEFICIENTE XPREDESPACHOXRESVE_DESPACHO_PREGUNTA$VE_SQL_REMITOS_PENDIENTES_DE_ENTREGA ESTADO_RELDESPACHOIMPORTETIPOINICIOH XINICIO_LUGARINICIOLSALIDAHCIERREH XCIERRE_LUGARCIERREL ALMUERZOI ALMUERZOFHORASOTROSVALCOSTOH SINREMITOS FECHAHORARECALCULAR_HORARIOSVE_TERMINAR_DESPACHOVE_SQL_REMITOS_POR_DESPACHOXARCHIVO_ADICIONALESODEYFUNCNEWFILE_LOCAL_TMPITMNOMBRE DIRECCIONNOTAXXXSELP_VE_LOG_LIMPIEZAPEDIDOFACTURAIDXIDBULTOSCAJASPALLETSORDCPRPTFLETEFLFTDESCRDSDOMINIOFLETESCOD_FLEFLE_TIPOCODIGO TMPFLE_DATAXMAXFORMXFORM P_PREDESPACHOVE_PREDESPACHO_1IMPORTAR_PREDESPACHOWIZARD"VE_ARMAR_DESPACHO_POR_REMITO_LISTA(VE_ARMAR_DESPACHO_POR_REMITO_ADICIONALESP_DESPACHOS_ORDENDISTINCTENTREGAENTCOORDORDEN TMPFLE_ORDEN"VE_ARMAR_DESPACHO_POR_REMITO_ORDENFORBASEVEHICULO TMPFLE_OTROSTM"VE_ARMAR_DESPACHO_POR_REMITO_OTROSRPT_VE_REMITOS_POR_DESPACHOXMAXARR_FLEMAXARRUNICOREGISTROXOLDFLEXHUBOREGISTRAR_DESPACHOP_VE_DSP_VERSION!REGISTRAR_LOS_QUE_NO_SE_DESPACHANLIBERA_COMPROBANTESXDESPTXT XDESPCANTZZZZIMPRIMIR_DESPACHO  4!%C xSinRemitosbN9 T3T&Ve_armar_despacho_por_remito_lista.prg%(TModificacin de un despacho "TArmado de un despacho TtrsacGtrsacccventdespdespflet despotros%2C%No se pudo iniciar la transaccin !!! B-% F G((despacho#6T  F G((flete%iF G((despacho E F F  F  sF (%C!%TTT %8 Trdespflet  !"#$%&  'C(6)))))))) )!)")#)$)%F ~G(%C !Fz> *+ +, ,- -C(6.'/ /0 0C2C  ZHC -V , +6 se arma en el despachoEstado=CCC(6ZC -V , +6C -VVr61F3%CC +RgG((remito E + ;G((ccvfacE , -$%5 + 6 , <B>7 78 9: ;C(6!%< 3* 8r="ve_armar_despacho_por_remito_lista3*C5 + + ,6C5 +RV6F F?~C' C@ Rr despotros @AB0 ?@?A?B?0 TCtrsac TD CEBUFXF XMODIFICA XSINREMITOSTRAN_PRGTRAN_TXTAAABEG_TRANTRSACLOCK_GMENSAJEDESPFLETDESPACHOXDESP$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGAFLETEDESPFOR DESPOTROSZMAXARRARR_FLEXIMPORTECOD_FLE FECHAHORAESTADOIMPORTETIPODOMINIOCOSTOHINICIOHINICIOLSALIDAHCIERREHCIERRELHORASOTROSVAL ALMUERZOI ALMUERZOF SINREMITOSXFECHAP_DESPACHO_TERMINA TMPFLE_DATAPEDIDOREMITOFACTURACAUSAFECHAORDENNOTAUSER_LOG PUB_INDEXCCVENTCCVFACREM_VENFAC_VENBULTOS ARM_CAJASCAJAS ARM_PALLETPALLETSP_VE_SEGUIMIENTO_PD SEGUIMIENTO"VE_ARMAR_DESPACHO_POR_REMITO_LISTATMP_ADICIONALESITMNOMBRE DIRECCIONEND_TRANTTS_ID UNLOCK_ALL%Ctccvent ;Qtccvent%Cclientes mQclientes%FG((tccvord E%CC\gB% FG((codcli E% S6T  PT  + BUXPEDIDOXCOMPROBXCAUSATCCVENTCLIENTESPEDIDOTCCVORDP_DOSCENCOD_CLICODCLITARJETAXNOMBREDES_CLIENOMBREVE_SEGUIMIENTOFEC_VENFG((G(-X %C4 :B3T&Ve_armar_despacho_por_remito_lista.prg3T&Marca comprobantes que no se despachan Ttrsac8trsacccventdespdespflet%Q2C%No se pudo iniciar la transaccin !!!B-F G((despachoFG((~XVF Q>   C$CCV  6 no se despachaEstado=CC ZCV  6CVVr6F%CC RgG((remito E G((ccvfacE$%   K4>F Ttrsac T CBU $RPT_VE_REMITOS_PENDIENTES_DE_ENTREGAFLETETRAN_PRGTRAN_TXTAAABEG_TRANTRSACLOCK_GMENSAJEDESPFLETDESPACHODESPPEDIDOREMITOFACTURACAUSAESTADOFECHAUSER_LOG PUB_INDEXCCVENTCCVFACREM_VENFAC_VENBULTOS ARM_CAJASCAJAS ARM_PALLETPALLETSEND_TRANTTS_ID UNLOCK_ALLFG((G(-CX%C4 6B3T&Ve_armar_despacho_por_remito_lista.prg-T Libera comprobantes del despacho T.trsacC ZH8trsacccventdespdespflet%Y2C%No se pudo iniciar la transaccin !!! B-FG(( ~CXC @ ( %C  !%V-%CccventccvfacCC ZHCV 6 se libera del despacho CCZEstado=CCZCV 6CVVr6>CC ZHCV 6 se libera del despacho CCZEstado=CCZCV 6CVVr6 5FG((remito E%1CC ZHCV 6 se libera del despacho CCZEstado=CCZCV 6CVVr6 >CC ZHCV 6 se libera del despacho CCZEstado=CCZCV 6CVVr6F T.trsacC ZH T CBU$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGAFLETETRAN_PRGTRAN_TXTAAABEG_TRANTRSACXDESPLOCK_GMENSAJEOLDFLEZMAXARRARR_FLECAUSAFACTURAUSER_LOG PUB_INDEXREMITOCCVENTESTADOINREM_VENEND_TRANTTS_ID UNLOCK_ALL 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM%6>BFEnumeroTF~F>  FFU XPREDESPACHOXCOD_FLE$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGACOD_FLEALLEPREDESPNUMERODPREDESPFLETEFORPEDIDOn5T T-ve_despachos_notas(%cF >BUXNOTA$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGANOTAXRESVE_DESPACHOS_NOTASregistrar_despachoy$ seguimientoI/!registrar_los_que_no_se_despachann1libera_comprobantesL6WIZARD<importar_predespacho= despacho_nota0?&BtAAAAqAqAAQAqAA#TqAA2a211112AABEs1urr"qrCqAqArAAA7!QqAArSQ1A51AAA11!!A\B1AAA2AAAA2rAAAA21AqqABAA2Q$BAbAABAAAA2qAAARqAAACArAQs1qArusrrAArBAsrrAtBrA2qrAsBA2BArAaA1q2BA2ABqAAqAAARqAAAB4A2!Av2!qArQBAtsrrrBrAAA2pA2AsBAAArQ r1AC&$AArAs!AB21AAAbqAAAqArAB3taaBBA212!qArxaRsQ r1ABFBrAB2qaaBA22!qAraAAAt  Arb GAqAB11r12A12A1r1Aq2qq4AAq1rAqrAr6rqAB19,OsDOQ,"R)\T'I\kWk mj.mco{oip0%p&D\X1@G(temp.txt5 TVC InicializandoCCC$FC C$d6DT C h1  C CCC(CNCNCNCNNNNNNNNN N!C"N#N$C%C&C'N(D)N*C(+N,L-C.C/C(0N1N2N3N4N5N6N7N8N9N:N;N<C=N>N?N @CAN BDCDDNENFNGLHLINJNKNLCMNNN OCPCQNRCSCQTTT CUVW %T CUX CVX%CxVerbosebL  TY-%YW TZC _detalleFh1Z[N C CC\C ]C^DNNNNNNNNN N#N$C0N1N2N3N4N5N6N7N8N9N:N;NBDCDDNENFNGLHLINJNKNQZ_T`]%C`H  T`CC`i$  T`CC`iC`H$Ta%CaH  TaCCai$ 0 TaCCaiCaH$#TbCCiCHC%$ CacFQ d& $&eFd&f\tmp\TMP_in_movimientosQ&f\tmp\TMP_in_movimientos%TW CWX%Y8 QZ_ CcFQ d G((FULL/Qf\tmp\TMP_in_movimientosgFg ~PFd(Eg g gg&g$%C4+>ggggggggg g ""g"##g#++g+00g011g122g233g344g455g566g677g788g899g9::g:;;g;DDgDEEgEFFgFGGgG HHgH BCBgBDCCCgCD LFg ^JhFd _Jh >,aFdQFgQ&f\tmp\TMP_in_movimientosCUXFQ d%T%iSMq          %kSP      ~, Cl%m %n G %n< G Y>LCCBCl$ mCCCl$ m NOSI6H pLNO pLSI Cq%r7&KJ I  (>M "  LSI %s tS  CuFvG((codigoFd& G-(v>?vw& ??G-(?v>@v%xy >dC?xy HSH suT{'' sT{ str(linea) sT{ str(grupo) sT{deposito sT{ str(linea) sHT{ str(tipo_art)H]G |%}1T{{ + str(val(codigo))+atr+bul+lote 'T{{ + codigo+atr+bul+lote |GOT{{>iif(final<=0,'A'+str(1000000-ABS(final)), 'B'+str(ABS(final)))%~,T{DTOS(flote)+codigo+atr+bul+loteFdINDEX ON &xidx TAG FINAL G((FINAL'(f\tmp\RPT_in_movimientosQ .*G(BUTEMPTXTXVERBXVERBM XTMPVERBEMPOESTADO SET_AND_SHOWXHFECXDFECXBFINALODEYFUNCNEWFILE_LOCAL_TMPCODIGOBULATRDESCRCODALTLINEADLINEAMARCADMARCAGRUPODGRUPOCANTIDADINICIALCOMPRECEDEVPROV PRODUCCIONRECALIFTRANSFERAJUSTESVENTASFINALMONEDAVALORTOTALDEPOSITO DDEPOSITOLOTEACCCOSFLOTETIPO_ART DTIPO_ARTPRD_CONS RECALCULARCOD_PRO UBICACION PROVEEDORM1M2M3M4M5M6M7M8M9M10M11M12 MONEDA_INI VALOR_INI TOTAL_INIMLINDMLINIMPORTACULTVENULTCOMSCH1SCH2SCH3SCH1_LSCH3_LINMOV NO_VEND_CNO_VEND EST_INMOV VAL_INMOVEANNCMORIGENAD_LICDAD_LICAD_NOTXDCONP_CODEMPP_UNOP_DOS OPEN_FILESXVERBOSEXTMPVERBEMPNUMEROCAUSAFECHATMPVERBX3MESESX6MESESX12MESESPROCESAR_STOCK BORRARFINALFULLP_LOCAL BORRARTMPOOBJXDSTKFORXDMOVRECALCULAR_SOLO_DE_2XDSTKF XCOMPRAS123ALL XESTADO_INMOV VALORIZARXPARA_ANALIZARXDSEP XDACUM_X_LOTEACUMULAR_POR_LOTELINEAS MASTERLINEXDMLINXHMLININXIDXXDORDP_NUMINS XDESP_MES%34G+( dey_filtersFG((codinsFG((depositoFG-(G-(G-(  G-(%   F G((dspFG-( 5T(!empty(movstock.codigo).and.xdfec<=fecha%Z+T.and.xdbie=movstock.codigo"%CX CX 9T(.and.xddep<=deposito.and.deposito<=xhdep% AT0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin%[(T and bienes.marca=xdmarHp &T and bienes.lotes="S" &T and bienes.lotes#"S"% EAT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgru% (T.and.movstock.bul=xdbul% (T.and.movstock.atr=xdatr%   &;T*.and.betw(despacho.importac, xdimp, xhimp)>TCnumeromovstockxdnmoxhnmo1TC causamovstockxdcauT!.t.%*T!!.and.xdbie=bienes.cod_ins% LAT!!0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin%(T!! and bienes.marca=xdmar% AT!!0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgru%C" C# G9T!!( and between(bienes.cod_pro,xdpro,xhpro)H\ &T!! and bienes.lotes="S" &T!! and bienes.lotes#"S"T$.t.%% &SCH 01T$z not INLIST(bienes.cod_ins, padr("105910",15), padr("108162",15), padr("124421",15), padr("124422",15), padr("181000",15),padr("188370",15), padr("188384",15), padr("31285",15), padr("33208",15), padr("84485",15), padr("86389",15), padr("87489",15),#padr("87801",15), padr("88246",15))%'s HXo  C'0T!! and bienes.tipo_art=xdtipo_art '1T!! and inlist(bienes.tipo_art,3,4) ' * 4T!!# and !inlist(bienes.tipo_art,1,3,4) ' o 2T!!! and !inlist(bienes.tipo_art,5,6)T(C)T*C)T+C)T,C)T-C)FBh1.\tmp\(CC C/C(0C(1N2N 3N4N5N6N7N8N9N:N;N<N=N>C?N@NCACBNCDDNEC(FNGCHCIC(JNKNLNMNNNONPNQNRNSNTNUNVN WDXDYNZN[N\L]L^N_N`NaN bCcCdNeCfCQ!Q.\tmp\((Tghgh)TgiDeterminando artculos...F&SET FILT TO &filtbie AND &filtbie2 #)+C+ %CG !(%CGproveedocodproTjkl Tj DESCONOCIDO 8 TjFG EmG %C4 S +C+ mm F G EmG %C4 nS e+C+ mm aF(>mJ>o o/CC/ C / C/F H F(>m/>o/CC/ C/FH F G EmG %C4 nS +C+ mm F(>m/> o/CC/ C /F H F(>m>/C/FHF(#)+C+  Tp TqCO%SFG((codigo E( Tra+C+ (m F(%r  Tr->poFHF( #qF(HF(#)+C+  Tp Ts TqCO%nSF G((codigo E( Tra+C+ (m F(%r  Tr-$>ps oF HF( #qF(HFt G((codFG((codinsFvG((codigoF(G-(G-( CXvG-(t.>113322GGIj0wDDECDxHCCCvHCXҡ vHH6aCCCvy ҡ vyy6bbctcdtdeCtdLACtd LNA66ftfF(G-(F(T{.t.%"T{{.and.xdbie=codigo% o/T{{.and.betw(linea, xdlin, xhlin)%!T{{ and marca=xdmar% /T{{.and.betw(grupo, xdgru, xhgru)% 1T{{.and.bul=xdbul% jT{{.and.atr=xdatr%C"# 1T{{ and betw(cod_pro, xdpro, xhpro)%|SFvG((codigoF(G-( CXvT{{ .and. (((bienes.atributos="S" or bienes.bultos="S") and stock.activo) or ((bienes.atributos#"S" and bienes.bultos#"S") and bienes.Est_act#2))  C{ C~FG(%.F*QF(Q.\tmp\*(&  ( %hF(&  ( F*QF(Q.\tmp\*(F(&  A(F G((movFG((fechaG-(CZFG((fechaG-(CZG-(%   F G((dspFG-( %9T(.and. between(conver.motivo,xdmot,xhmot)SET FILTER TO &filtro GGF ECGFG ,TC C$d6+C+ .%A%CC C$d6CC$F Tghgh6TgiProcesando movimientos [C*]... TF(G((borrar%G!E  %E %C4 *>  TCO#CO>4v4 !E  %CG :C*   C4 Z>ZZ4G%>==4CFINAL %&%M R FG((codigo EF(%4%Cq>YY4%C>[[4H%q CcdC=ABCEZM  R *MV     %C >664%4%C >\a%C >]aTCCH4CcompreceC P)M    !]% 4   4     !>8843TCCHC64C produccion%4 4!>FF4%4!%Cw! >\a%C! >]aR M   M V  `"%C \">994TCCH4Crecalif\ M   %cC=ABCEZ  Q#I%MC c C  M#>774TCCH4Cdevprov% M  #%C#>::4TCCH4Ctransfer2 VdrC=ABCEZR u$%C q$><<4TCCH4cCventas 2%%C $>;;4TCCH4%C $Cajustes %CFHFG(F(#%S C '%C tmp_compras%QomovstockQXCONVERQ MC g    C Q C( M RI V   C     tmp_compras&  F( ~'T < ^omovstockCC CCXCV r  % E'TC b'T>(WF E%C4' T 'T>(X%C tmp_compras'QF(.>54=6789<;:>=4=*%|S  )G(v(codigoG((codinsF(G-( CXvG-(nC|SYnS S v +nS S     -6C enS S Cv /nS S C   -6F(% *%S_*q45 6 8 9 7 : ; < = %S*P68 9 7 : ; < +CObteniendo lote tericos...g% + C TTghghTgiFinalizando...'oborrarXlineas (1Xgrupos (3Xmarcas (2Xdeposito ((( ((/(0(a(1CC/ SIN LINEAQ(3CC/ SIN GRUPOQ(2CC/ SIN MARCAQ((ACC/ SIN DEPOSITOQ(4(5(6(8(9(7(:(;(<(=(>(?(@(C(D(E(F(G(I(H(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(b(c(d(e(fborrar2FG(G-(F(G!(FG-(H./ . T /T str(linea) iif(final<=0,'A'+str(1000000-ABS(final)), 'B'+str(ABS(final)))<INDEX ON (xidx) TO (p_local+'\tmp\'+borrar) FOR &filtbie GI F% 2%S1q45 6 8 9 7 : ; < = %S2P68 9 7 : ; < F G((despachoFG-(A  >C V V&(.\tmp\TMP_in_movimientosF(QFQ.\tmp\(.*.\tmp\*.*.\tmp\+.*%CTMPVERB3QBUXINICIAL DEY_FILTERSBIENESCODINSDEPOSITOMOVSTOCKCODIGOBULBULTOSATRATRIBUTOXDIMPXHIMPDESPACHODSPFILTROXDBIEOBIEDATA_CODIGO_VACIOXDDEPXDLINXHLINXDMARXLOTESXDGRUXHGRUXDBULXDATRFIL_GET_STR_FILTERXDNMOXHNMOFIL_GET_EQS_FILTERXDCAUFILTBIEXDPROXHPROFILTBIE2 XDESP_MESP_EMP XDTIPO_ARTBORRARNEWFILEBORRAR1BORRAR9BORRAR8BORRAR7P_LOCALDESCRCODALTLINEAMARCAGRUPOCANTIDADINICIALCOMPRECEDEVPROV PRODUCCIONRECALIFTRANSFERAJUSTESVENTASFINALMONEDAVALORTOTALLOTEACCCOSFLOTETIPO_ART DTIPO_ARTPRD_CONSCOD_PRO UBICACION PROVEEDORM1M2M3M4M5M6M7M8M9M10M11M12IMPORTACULTVENULTCOMSCH1SCH2SCH3SCH1_LSCH3_LINMOV NO_VEND_CNO_VENDEANNCMORIGENAD_LICDAD_LICAD_NOTOESTADOVALUETEXTO XPROVEEDORPROVEEDONOMBRECOD_INS ATRIBUTOSCLAVEXCREGINIXC2BIEAUXCODSTOCKCODALT1 FN_TIPO_ARTBARRASALLFILXDACTFORINICIALIZAR_STOCKSTKXDEPXDSEPCONVERMOVFECHANUMEROITEMXDMOTXDFECXOLDFECXHFECAAAX3MESESCAUSADETALLARMOTINVMOTIVOX12MESESTIPOXTIPO_MOVIMIENTOXVERBMMENSUAL TIPOAJUSTEXULTVEN XESTADO_INMOV TMP_COMPRASMCTRANSFCAUXIDART TMP_ULTVENXULTVEN1XULTCOMXDSGRXHSGRACTIVOEST_ACTSUBGRUPOXDCONXDSTKXDMOVAVANCEXDLOTTCREAR_DESPACHOS_TEORICOSLINEASDLINEAGRUPOSDGRUPOMARCASDMARCA DDEPOSITO MASTERLINEBORRAR2XIDXXDORDP_NUMINSTMPVERBT\data\CCZ C T ges%Cbienes Qbienescodins%Cconver QCONVERfecha%Cmovstock Qmovstockfecha%Cbultos ,Qbultoscodigo%Catributo hQatributocodigo%Cstock Qstock%Cultcos Qultcos%Ccos QCOS%Cstkxdep Qstkxdep%Cmotinv HQmotinv%Cidx04 "Q\idx04idx04%Clisprec Qlisprec%Ccuentas Qcuentas%Clineas Qlineas%Cgrupos AQgrupos%Cdeposito sQdeposito%CCOSTOS Qcostos%Cimportac Qimportac%Cdespacho Qdespacho%Cproveedo 7Qproveedo%Cmarcas eQmarcas%Cbieaux QbieauxU XEMPP_SERVERP_SYSTEMSETS XTMPVERBEMPGESBIENESCODINSCONVERFECHAMOVSTOCKBULTOSCODIGOATRIBUTOSTOCKULTCOSCOSSTKXDEPMOTINVP_COMMONIDX04LISPRECCUENTASLINEASGRUPOSDEPOSITOCOSTOSIMPORTACDESPACHOPROVEEDOMARCASBIEAUX F(\tmp\FQ\tmp\Aodespacho  <tmpdesp& &  G(( codbulatrFG-(  ~ Ta ^JT F +P$%   n!TC FTT %F >>  T- ATTF _JTF H%%F>REVISAR DESPACHO T-  TREVISAR DESPACHOF _JFQF\tmp\UXINICIALBORRARP_LOCALBORRAR7 TMPBORRARDESPACHOCOD_INSBULATRFECHAXHFECTMPDESP CODBULATRCODIGOOOBJXCBAFINALXASIGINICIALLOTEXOLDCANT?6odespacho tmpdesp> & &  & G(( codbulatrfF(\tmp\FQ\tmp\FLomovstockC Q1\tmp\Q\tmp\> G-( ~ ^J>%CCconver+    F _J.T+ F $%    TCHK REVISAR DESPF _JT .%  "TC  F TC FF %xT CHK REVISAR 0F _JT .T F > T F _JT T  F QFQFQFQ\tmp\UOOBJXCBAXASIGOOBJ2XOLDCANTDESPACHOCOD_INSBULATRFECHATMPDESPCANTIDADINICIALALL CODBULATRCANTIDA CODBULATRFMOVSTOCKP_LOCALBORRAR7TMPNMOVSUM_CANTNUMEROCAUSAITEMDEPOSITOBORRAR8TMPMOVCODIGOCONVERMOTIVO '4%CxddepbLQTCX%CxhdepbLTCX1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxKT Cexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT  \xchgT T  TTTNTNTN"TCSN6TTTT C BUXTABLAXDFECXHFECXTVAXDMONXDFCSXNEGATIVOS_VALORIZADOSXDDEPXHDEPOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDSTKXDACTXDMOVXDCONP_DOSXDTVAXDNEGATIVOS_NO_VALORIZADOS EXP_TABLAT&TInicializando Stock...FHU C"%CX CX F>% F G(C F ~|F G((codigoGE  G 4+C+ !    q> HFF G( FG((codigoFG-( CX% > F>(\tmp\FQ\tmp\&  F "%CX CX G(C F ~F G((codigoGE  G 4+C+ !    F^(FG((borrar1!E   %C4 _> !"#$%&'(> % > F H F>(\tmp\FQ\tmp\& )F "%CX CX G(C F ~F G((codigoGE  G 4+C+ !    F^(FG((borrar1!E   *%C4 s_> !"#$%&'(>) *% > F HBU+OESTADOVALUETEXTOBORRARXDSEPXDDEPXHDEPCANTIDADALLXINICIALSTKXDEPDEPOSITOCODIGOBULATRSTOCKP_LOCALBORRAR1AAAINICIALCOMPRECE PRODUCCIONRECALIFDEVPROVTRANSFERAJUSTESVENTASFINALPRD_CONSM1M2M3M4M5M6M7M8M9M10M11M12LOTEDESPACHO@T(TInicializando Stock 2...FHW  C"%CX CX jF >FG(C FG((codigoGE   G 4+C+ !      R>HFFG( F G((codigo E   CXF>  F >FG((coddep!E    ?+C+ ,        F>FH  F >FG((codigo(E    F>F>>BUOESTADOVALUETEXTO BORRARFINALXDSEPXDDEPXHDEPCANTIDADSTKXDEPDEPOSITOCODIGOBULATRSTOCKCODDEPDESPACHOFINALINICIAL %TTValorizando...T-*sys_procesando ValorizandoC % C  a sys_procesandoTa "> BUXDTVAOESTADOVALUETEXTOVISIBLE SP_MENSAJESYS_PROCESANDOCOSTEARXDFCS XFECHA_CAMBIO XDVALORIZARXDFECSP_OCULTAR_DEFINITIVAMENTEMONEDAVALORTOTALALL~ %+ TTmCCZ&REPLACE &aaa WITH &aaa + xcantidad BUXMES XCANTIDADAAA % "B-%CxMesbLM T%CxCampobLz T INSERT INTO tmpverb (codigo, bul, atr, cantidad, fecha, numero, causa, emp, &xcampo, &xmes) VALUES (movstock.codigo, movstock.bul, movstock.atr, movstock.cantidad, movstock.fecha, movstock.numero, movstock.causa, xtmpverbemp, movstock.cantidad, movstock.cantidad) BUXMESXCAMPOXVERBOSEFG((codinsFG-( T ~!% C 8Bsys_procesando Valorizando CCZ de CCCNZTH C  T  T  T  TC6 T THg  TU cs_generarTC  TU cs_generarTC  T%] cs_generar pU cs_generarTC C  T.G+( ve_funcionesve_funciones_precios T%3-C!CX j-C!CX",TC##6d TC C  T T T T$C6 T"T%C&S0I6T'J( cs_generar$'%TC$F% >)* >+,H ->./#>0.C12 6T3/4T5CC63FDT735T8C/9DT:C87D >;:><:* ->.= -@*>.>?@ABCD -% t>./ >E=%F>.. >EE BUH XFECHA_COSTO XFECHA_TCXINICIALBIENESCODINS BORRARFINALCODIGOXACC SP_MENSAJESYS_PROCESANDOXDTVAXANTXULTXACTXMONCOSXDMONMM_MAX XERR_COSTO XMSG_COSTOXCOSTO OBTENER_COSTO CS_GENERARBULATRLOTEXMONEDA MM_MONEDAP_MOVIMIENTOS_ERROR VE_FUNCIONESVE_FUNCIONES_PRECIOS XVEOBONIFP_PRECIOS_MAX_RECURSIONVE_OBTENER_EXACTO_AMBOSXDVALVE_OBTENER_EXACTO_AMBOS_V2XDDSC XMONCOSTOXTIPOXCOS_NACXFECHA_COSTO_OUTOBTENER_COSTO_REPOSICIONMONEDAVALOR MONEDA_INI VALOR_INI XDVALORIZARTOTALFINALINMOVULTVENX6MESESXSTOCK_FIN_DE_PSCH2XSOBRA_PSCH1 XSOBRA_ANT XSOBRA_DE_S3SCH3 XSOBRA_DE_PC NO_VEND_CNO_VENDINICIALCOMPRECE PRODUCCIONRECALIFDEVPROVTRANSFERAJUSTESVENTAS TOTAL_INIXDNEGATIVOS_NO_VALORIZADOSFOR41QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT\xchgTTzTTT T T T T TT0 T0  CBUXTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDSEPXDNUM4XDNUM3XDTVA XDVALORIZARXDMONXDNEGATIVOS_NO_VALORIZADOSXDDEPXHDEP EXP_TABLA<TC](\tmp\"%Cborrar_acumulador]FQ Q\tmp\F& T  asdfasdfasdf ~% :^(F_ > > > T  F>    !!!"""###$$$FFH ] %D$>&C  6 %{$>&C  6 %V>&C# 6 %]%( +$>&C  6 Y$>&C  6QFS\tmp\ \tmp\.dbfBU)AAA_ACC XFILE_ACCP_LOCALBORRAR_ACUMULADOR BORRARFINALCODIGOATRBUL CUALQUIERAXIDCODLOTEFLOTEIMPORTACCANTIDADINICIALCOMPRECEDEVPROV PRODUCCIONRECALIFTRANSFERAJUSTESVENTASFINALTOTALPRD_CONSM1M2M3M4M5M6M7M8M9M10M11M12 XDVALORIZARVALORALLXINICIAL 6TInventario Valorizado al CC*/-TC%1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT\tmpT T T  T STTTT0 T0050 TSTTTNTST  % C(TC3CC*PQ\log\cashfree_error.txt;CFecha: CC\log\cashfree_error.txt-C\log\cashfree_error.txt ( (CF - C (TC3CC*PQ\log\cashfree_error.txt;CFecha: CC\log\cashfree_error.txt-C\log\cashfree_error.txt @ (CF - CC CC >=dbf(TC3CC*PQ\log\cashfree_error.txt;CFecha: CC\log\cashfree_error.txt-C\log\cashfree_error.txt(TC3CC*PQ\log\cashfree_error.txt;CFecha: CC\log\cashfree_error.txt-C\log\cashfree_error.txtBUXHFECXCARPETAOEXOEX2XTABLAXDFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLA FIL_EXCELOFORM XLS_ABRIRXULTVENXDSEPXDDEPXHDEPXDSTKXDTVAXDMONXDMOVXDSTKF XDVALORIZAREXP_TABLA_Y_EXCELXMSG ERR_HAND_OEXP_SYSTEM4TC 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT\tmpTTTT  T <TT T STNTTTSTSTT0 T0  CC Suspendo?a%C =\.dbf(\.dbf=\.xls(\.xls=\.pdf(\.pdf %Cq_inmovilizadosQFQ\o inmovilizados !"#$%&'Q()*Q+,-/SIRCFG`   '34<=PQSVWX[\^` ( q_inmovilizadosQF (\inmovilizados %Cq_inmovilizadosuQ%CinmovQ.BU0XTABLAXHFECXDIR_EXPORTACIONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_EXCELFIL_PDFOFORMXDFECXDSEPXDSTKFXDMOVXDTVAXDMONXULTVENXDSTK XDVALORIZARXDDEPXHDEPEXP_TABLA_EXCEL_PDFSYS_MOSTRAR_SCREENQ_INMOVILIZADOSCODIGOATRBULDESCRCODALTLINEADLINEAMARCADMARCAGRUPODGRUPOCOD_PRO PROVEEDORLOTEFINALCANTIDADMONEDAVALORCOSTOTOTALULTVEN INMOVILIZADOS EST_INMOVz1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT"TRPT_in_movimientos"TRPT_in_movimientosbT TTST NT NT 0 T 0  C BUXHFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXDSTKFXDACTXDMOVXDDEPXHDEP EXP_TABLAprocesar_stockn open_filesRcrear_despachos_teoricos:Xcrear_movstock_teorico \ exportar_1Rainicializar_stockGdrecalcular_solo_de_2;m valorizarqmensualrdetallarscostear7uexportar_er_sch>acumular_por_loteexportar_cashfreeexportar_inmovilizados+exportar_honeywell_invbAOGAAa0ARA"RA2qaAa1Aqq"qqQBAqAqAaABABAABA1A2A12A2aAArrqA11q1q1Q1q1A1qA1AArqAbC2qTrrrAAqqARaA!AA1A1a1aAAaAaAAaAA2AAA1a1aAA4q11B1"AA!DBrvaQRAAraaraaqQrAAqQArAAraaqQrAAqQ!ABrAArQqqqQAqAAqAAqAArQqqqQACqAAqArAAtrrrrava!AA1AAaAaAaABqr2 Ata2qAq1qaqAqqAArqtqqA2AbaaaaAr11QAAAeBbAcA2bqA0qdAAAABBdAAAB2B2AcBAbAAA"AAAARAA"ArAAAAAAzAArar4A 1brQr"1Ar1ABABr"21rACsBABAABupq2xaaras11q1q1Q1q1Ab1AA1AbrBABAAurerArAAA3qaAAAAArA!ARA1A!Ar!A1A1A!A!AAA!AAAAAAA!A!A4qqa!rqrqAAAr1qqQAqAAaqqQBABqAq2qaa2sqqQAAsqAqQAAa"Ar1qQAAqrQqCAqAqAqAr4tAA"!!BB2qar"tq1qqaaBAAqAqaAqrAA2rr!1ArqaaBrrRBAArAAC2rr!1ArqaaBrrRBAArAACBA3qr"tr1raaBAAqraqrB2rrrAsAA4rrrADsA35v#2A@$AA22Asbb2qAAAA2rr%B1Z2Z22[ABBq2AAB!1ArssA13rbb222AABqqAC3"baBB3q"qAArarQ1RsBrBr1A2A2a2AAAADrAB36br2"baB!1A!1A!1A!1AB32"!baBr"AArAbAB3q!!"!baCB1B%[+RWvGޝ%(\ȷm8vͼHY P 'u +D dgt8  %(" BdT_@?     FBC     UXFUNCIONXUSUARIOXOKXHOSTXPORT XAUTHLOGIN XAUTHPASSXFROM XFROMNAMEXREPLYTOXTIPOXENGINEXSSLXGMAILXTOKENOBTENER_DATOS_FUNCION?     JBCC     UXFUNCIONXUSUARIOXOKXHOSTXPORT XAUTHLOGIN XAUTHPASSXFROM XFROMNAMEXREPLYTOXTIPOXENGINEXSSLXGMAILXTOKENOBTENER_DATOS_CUENTA OBTENER_MAIL%Cmailctas EQ \mailctas%C*>CC > U XCOD_CTASXFROMXTOKENP_SERVERTOKENFORFROM USA_GMAILMAILCTASCODIGO@;     %UB-%Cmailctas Q \mailctas#TCmailctasCodigo% B-2TC GES_CRYPTOSys_Clases_Crypto.PRGFTCTTCTCCTCTCTCT T T (%Cmailctas.Usa_GMailbN T T  0 T  T  BU XCOD_CTASXOKXHOSTXPORT XAUTHLOGIN XAUTHPASSXFROM XFROMNAMEXREPLYTOXTIPOXENGINEXSSLXGMAILXTOKENP_SERVEROCRYPTOMAILCTASHOSTPORT AUTHLOGINDECRYPTAUTHPASSREPLYTOFROMFROMNAMETIPOENGINESSL USA_GMAILTOKEN %Cmailasig AQ \mailasig%+TCCZCZmailasigCODUSR%  B,TCCZCZmailasigcodigo% B  BUXFUNCIONXUSUARIOP_SERVERXOKMAILASIGCOD_MAILObtener_Datos_FuncionLActualizar_Token_MailCtasObtener_Datos_Cuenta Obtener_maila71AA21qAA1qAr!t!!!!!A4AAAAA1 6b1" D%& )o.&ZGX@&TMAX$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T TC $ sys_cierresBU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPXFECHA SYS_CIERRESBU-TC TC  TCW%Ccierres Qcierres  %C cierres_tmpQ +ocierres  cierres_tmp% % H% ]"pcierres   ,pcierres  2 H A[T update cierres set usrCCZ =xusr, fechaCCZ=xfecha where id=xid&aaa  uT update cierres set usrCCZ =xusr, desdeCCZ=xdesde, hastaCCZ=xhasta where id=xid&aaa 2 %C cierres_tmpQ  FBUXIDXFECHAXDESDEXHASTAXUSR XPOSICIONXAREACIERRESZAAA CIERRES_TMPIDTIPOFECHADESDEHASTA%CxusrbN?T TCW %Ccierres Qcierres*ocierres  cierres_tmpTC $TT% ;%BT T T L%-(),%Ccierres_tmp.usrCCZ%(TCcierres_tmp.fechaCCZ(TCcierres_tmp.desdeCCZ(TCcierres_tmp.hastaCCZ! 7 E%C cierres_tmpmQ  FBUXIDXFECHAXDESDEXHASTAXUSRXAREAZAAACIERRESID CIERRES_TMPFECHADESDEHASTA  TCWF G((id E T"%C cierres.usr5bN%C4(-%Ctmp_cierres.usrCCZT T?B F BUXIDXAREA TMP_CIERRESID XRESULTADOZw TCWTC3 $TC3 $TC3 $TC3 $TC3 $TTT C3 $T T T T TTTTTTTTTT%Ccons Qcons #)TTT CT C.TCC $ 6 C.TCC $ 6 C.TCC $  6 C&TC !6&TC "6 C.T CC $ #6 C&T C $6&T C %6 C&T C &6&T C '6 C &TC (6&TC )6 C &TC *6&TC +6 C &TC ,6&TC -6 C .TCC $ .6 C .TCC $ /6 C.TCC $ 06 C.TCC $ 16 FU2XAREATHISCONTABILIZACION_COMPRAS CIERRE_VENTASCIERRE_COMPRASCIERRE_BALANCECIERRE_RETENCIONESPERIODO_VENTAS_DESDEPERIODO_VENTAS_HASTAPERIODO_COMPRAS_DESDEPERIODO_COBRANZAS_DESDEPERIODO_COBRANZAS_HASTAPERIODO_PAGOS_DESDEPERIODO_PAGOS_HASTAPERIODO_DEPOSITOS_DESDEPERIODO_DEPOSITOS_HASTAPERIODO_EXTRACCIONES_DESDEPERIODO_EXTRACCIONES_HASTAPERIODO_TRANSFERENCIAS_DESDEPERIODO_TRANSFERENCIAS_HASTAVALIDEZ_DESPACHOS CIERRE_STOCK INICIO_STOCKCIERRE_COMISIONESCONS XFECHA_TMP XDESDE_TMP XHASTA_TMP TRAER_CIERRE PUB_INDEXVENCIECOMCIEBALCIEVENDESVENHASCOMDESCOBDESCOBHASPAGDESPAGHASDEPDESDEPHASEXTDESEXTHASTRADESTRAHASDSPFECSTKCIESTK_INI CIE_COMIS)  TCW C$%CC$C$ GTLa fecha debe estar entre CC$* y CC$*%C %  HT2La fecha debe ser posterior al cierre de balance: C * F BCU XMSGXFECHAXAREATHISOBTENERPERIODO_PAGOS_DESDECONSPAGDESPAGHASCIERRE_BALANCE  TCW%C%MT7La fecha debe ser posterior al cierre del IVA compras: C* F BCUXMSGXFECHAXAREATHIS VALIDAR_PAGOCIERRE_COMPRASE  TCW CTT%CC$C$ ATLa fecha debe estar entre CC$* y CC$*%C)% %HT2La fecha debe ser posterior al cierre de balance: C * F BCU XMSGXFECHAXAREAXDXHTHISOBTENERPERIODO_DEPOSITOS_DESDEPERIODO_DEPOSITOS_HASTACIERRE_BALANCET%.C I>BUXFECHAP_VARIABLES_GLOBALES_VERSIONTHISGUARDAR_CIERRECONSBALCIE C BUTHISOBTENER CIERRE_VENTAS C BUTHISOBTENERCIERRE_COMPRAS C BUTHISOBTENERCIERRE_BALANCE C BUTHISOBTENERPERIODO_VENTAS_DESDE C BUTHISOBTENERPERIODO_VENTAS_HASTA C BUTHISOBTENERPERIODO_COMPRAS_DESDE C BUTHISOBTENERPERIODO_COBRANZAS_DESDE C BUTHISOBTENERPERIODO_COBRANZAS_HASTA C BUTHISOBTENERPERIODO_PAGOS_DESDE CBUTHISOBTENERPERIODO_PAGOS_HASTA C BUTHISOBTENERPERIODO_DEPOSITOS_DESDE C BUTHISOBTENERPERIODO_DEPOSITOS_HASTA C BUTHISOBTENERPERIODO_EXTRACCIONES_DESDE C BUTHISOBTENERPERIODO_EXTRACCIONES_HASTA C BUTHISOBTENERPERIODO_TRANSFERENCIAS_DESDE C BUTHISOBTENERPERIODO_TRANSFERENCIAS_HASTA C BUTHISOBTENERVALIDEZ_DESPACHOS C BUTHISOBTENER CIERRE_STOCK C BUTHISOBTENER INICIO_STOCK C BUTHISOBTENERCIERRE_COMISIONESinitguardar_cierre traer_cierre test_cierreobtener  validar_pagovalidar_compra_contadovalidar_depositocerrar_ejerciciof cierre_vencie  cierre_comcieN cierre_balcie cierre_vendes cierre_venhas cierre_comdesf cierre_cobdes cierre_cobhas cierre_pagdesH cierre_paghas cierre_depdes cierre_dephas' cierre_extdess cierre_exthas cierre_trades cierre_trahasb cierre_dspfec cierre_stkciecierre_stk_ini:cierre_cie_comis{TTTTTTTTTT T T T T TTTTTTTT                        UCONTABILIZACION_COMPRAS CIERRE_VENTASCIERRE_COMPRASCIERRE_BALANCECIERRE_RETENCIONESPERIODO_VENTAS_DESDEPERIODO_VENTAS_HASTAPERIODO_COMPRAS_DESDEPERIODO_COBRANZAS_DESDEPERIODO_COBRANZAS_HASTAPERIODO_PAGOS_DESDEPERIODO_PAGOS_HASTAPERIODO_DEPOSITOS_DESDEPERIODO_DEPOSITOS_HASTAPERIODO_EXTRACCIONES_DESDEPERIODO_EXTRACCIONES_HASTAPERIODO_TRANSFERENCIAS_DESDEPERIODO_TRANSFERENCIAS_HASTAVALIDEZ_DESPACHOS CIERRE_STOCK INICIO_STOCKCIERRE_COMISIONEScontrol_cierrescustom]!BQB2Arc<B`1A2D1r1AA"a"bBabRBABAA2qAv1Ab"<BBDAACCAD2quv"AAAA2tbbabeA111aaaaaaaaaaaaP4rBqAaAA2ucAB2AaAA2q2BAA62222222222222222222221111212312121212122120  @0`4oyV Y@ \hu}T. z.k00y2244z55556*6Z6u66667N7 i77 77 8F8 a8888 9C9^9999!! :J:%$e::)':;-*";P;1-l;;50;;93;2%';?DN@U%X@U FE_OBJETOSPRGYTCTCBaUXPATH XPATHSTOREXTIPO XARCHIVO1 XARCHIVO2THISOBTENER_ARCHIVOD   T"G+(FE_Funciones_separadoresCTipo 4  T!TC_#TC _'TCC g_%TC _H G&TCCABECERA_ %TCDETALLE_ $TCVENTAS_ 'TC ALICUOTAS_%(%TC a \B.txtUXTIPOXPATHXARCHIVOXLPATHFE_FUNCIONES_SEPARADORESSYS_MPONER_SEPARADORGTHIS ORIGEN_CUIT TIPO_CBTE PUNTO_VTACBTE_NROPDF_PATHCAUSA COMPROBANTEHg CTC gTCCgenerado BUXTIPOXTEXTOTHISGENERAR_REGISTROS_CABECERAGENERAR_REGISTROS_DETALLESYS_MJ TTCTC BUXTEXTOTHISGENERAR_REGISTRO_CAB_01GENERAR_REGISTRO_CAB_02J TTCTC BUXTEXTOTHISGENERAR_REGISTRO_DET_01GENERAR_REGISTRO_DET_02Z"G+(FE_Funciones_separadores TJTCTC TCCTCCgTC TC TC  TC TC TCTC TCTCTCTC TCTC TCTC C  BUFE_FUNCIONES_SEPARADORESXTEXTOOITEMTHISITEMS PONER_JUNTO TIPO_CBTE FECHA_CBTE PUNTO_VTACBTE_NROPRO_QTYPRO_UMEDPRO_PRECIO_UNI IMP_AJUSTE IMP_TOTAL IVA_ALICUOTAGRAVADO PRO_CODIGOPRO_DS"G+(FE_Funciones_separadores TTCCTCTCCgTCBC C UFE_FUNCIONES_SEPARADORESXTEXTO PONER_JUNTOTHIS FECHA_CBTE TIPO_CBTE PUNTO_VTACBTE_NRO"G+(FE_Funciones_separadores TTC2TCCTC  TCTC TCTC TCTCTCTC TC TC TC TC TCTCTC  %TCC  TC  CS BUFE_FUNCIONES_SEPARADORESXTEXTO PONER_JUNTOTHIS FECHA_CBTE ORIGEN_CUIT IMP_TOTAL IMP_TOT_CONCIMP_NETO IMPTO_LIQ IMPTO_LIQ_RNI IMP_OP_EXIMP_PERCIMP_IIBB IMP_PERC_MUN IMP_INTERNOSIMP_TRIBSYS_M"G+(FE_Funciones_separadores TTC1TCCTCTC TCCgTCTCTCTC TC  TC TC TCTCTCTCTCTCTCTCTCTCTC TCTC  TCCDTCTCTCCTC%TCBC C U FE_FUNCIONES_SEPARADORESXTEXTO PONER_JUNTOTHIS FECHA_CBTE TIPO_CBTE PUNTO_VTACBTE_NROHOJASTIPO_DOCNRO_DOCCLIENTENOMBRE IMP_TOTAL IMP_TOT_CONCIMP_NETO IMPTO_LIQ IMPTO_LIQ_RNI IMP_OP_EXIMP_PERCIMP_IIBB IMP_PERC_MUN IMP_INTERNOSTIPO_IVA IMP_MONEDA_IDIMP_MONEDA_CTZALIC_IVACOUNT COD_OPERACIONCAE CAE_FECHAIMP_TRIB"G+(FE_Funciones_separadores#TC|#TC|#TC|TC BUFE_FUNCIONES_SEPARADORESXTEXTOPONER_SEPARADORGTHIS TIPO_CBTE PUNTO_VTACBTE_NRO FECHA_CBTEQ7TCC0CCCZ0.txt BUXTIPOXARCHIVOTHIS PUNTO_VTACBTE_NRO*BCUXPATH XPATHSTOREXTIPOTHISOBTENER_ARCHIVO%CxTipobLBBC TC TCTCTC C C%C ~#T CCC_  C  8(  z8CError: No se puede escribir en  !!!  BU XPATH XPATHSTOREXTIPOTHISOBTENER_ARCHIVOS XFULLPATHXARCHIVOXNHANDXTEXTOXFULLPATHSTOREOBTENER_ARCHIVO_NOMBREGENERAR_REGISTROSMENSAJE"G+(FE_Funciones_separadores TTCTCTCTCTCCgTC TC TCaTCaTCaTC TC TCaTCaTCaTCaTCaTCaTCaTCaTCaTCaTCaTCa!TCC   BC C UFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGTHIS TIPO_REGISTRO PONER_PCOMAN0 TIPO_CBTECBTE_NRO PUNTO_VTA FECHA_CBTEFECHA_VENC_PAGO_KRIKOSCAE CAE_FECHA FECHA_ENTREGA"G+(FE_Funciones_separadores TTC012TCCBC C UFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGTHIS OBTENER_ID"G+(FE_Funciones_separadores T%CCRgTCC\gTCCRgT020TCRETCTCTC C %C T020TCPCTCTC TC C  BU FE_FUNCIONES_SEPARADORESXTEXTOXREMXRPVXRPNTHISREMITO PONER_PCOMAG PONER_PCOMAN0OC.AG+(listadosdey_funcsys_mail_funciones ve_pedido      T?listados     G+(listados"G+(FE_Funciones_separadores TTC030TCTCXTCC-CC666TC TC TCaTCaTCaTCaTCaTCaTCaTCaTCaTCCaTCaTCaTCaTCaBC C ULISTADOSDEY_FUNCSYS_MAIL_FUNCIONES VE_PEDIDO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOXOBJ DATOS_EMPRESAFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGGLN PONER_PCOMAN0IVACATCIUDADPROVINC PROVINCIACOD_ZIPCUIT BG+(listados"G+(FE_Funciones_separadores TTC035TCTCTCaTCaTCBC C U LISTADOSFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGXNOMBREXGLNPONER_SEPARADORG_REPETIRXCUITXCODIGOG+(listados"G+(FE_Funciones_separadores TTC040TCTC TC TC TCaTCaTC TC TCaTCaTCaTCaTCaTCaTC TCTCTCaTCaTCTCaBC C ULISTADOSFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGTHISCLIENTENOMBRE PONER_PCOMAN0GLNCOD_CLITIPO_IVA PROVINCIA DIRECCIONCIUDAD PROVINCIA_TXTCOD_ZIPTIPO_DOCNRO_DOCBG+(listados"G+(FE_Funciones_separadores TTC045TC"TC  TCa TC TC aTCa TC BC C ULISTADOSFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGTHISCLIENTESUCURSALNOMBRE PONER_PCOMAN0GLNPONER_SEPARADORG_REPETIRTIPO_DOCNRO_DOCCOD_SUCG+(listados"G+(FE_Funciones_separadores TTC050C050aTCTCTC!TCCTCTCTC TC TC TC TC TCTCTCTC%TCC  TCaTCTCaTCaTCaBC C ULISTADOSFE_FUNCIONES_SEPARADORESXTEXTO PONER_PCOMAGSYS_MOSTRAR_SCREEN PONER_PCOMANXTHIS IMP_TOTALIMP_NETOIMP_IVA IMPTO_LIQ_RNI IMP_OP_EXIMP_PERCIMP_TRIB IMP_PERC_MUN IMP_INTERNOS PONER_PCOMAN0 IMP_MONEDA_IDIMP_MONEDA_CTZPG+(listados"G+(FE_Funciones_separadores  T"%TCC 6T060TCTCTC TC  T'BCC C 6U LISTADOSFE_FUNCIONES_SEPARADORESXTEXTOOIVATHISALIC_IVA PONER_PCOMANXALICUOTAIMPORTEBASEIMPLIQ_RNI"G+(FE_Funciones_separadores  Tp%TCC 6T070TCTCTCa TCa TC TC TC TCa TCa 'BCC C 6U FE_FUNCIONES_SEPARADORESXTEXTOOTRIBTHISTRIBUTOS PONER_PCOMAN0 JURIDICCION PONER_PCOMANXIMPORTE PONER_PCOMAGDESCALICBASEIMP"G+(FE_Funciones_separadores %L B   TTC080TCaTCaTCaTCTCDaBC C UFE_FUNCIONES_SEPARADORESXTEXTOOTRIBTHIS DESC_IMPORTE PONER_PCOMAGDESC_TXT PONER_PCOMANX B"G+(FE_Funciones_separadores  TTC090TCaTCaTCaTCTCDaBC C UFE_FUNCIONES_SEPARADORESXTEXTOOTRIB PONER_PCOMAGTHISDESC_TXT PONER_PCOMANX DESC_IMPORTE"G+(FE_Funciones_separadores T TT%TCC 6T100TCTCTCaTC TC TC TC TC TCTCTCaTCTCaTCDUTCTC TCa'BCC C 6UFE_FUNCIONES_SEPARADORESXTEXTOOITNITTHISITEMS PONER_PCOMANX PONER_PCOMAG PRO_CODIGOPRO_DSPRO_QTYPRO_UMEDPRO_PRECIO_UNI IVA_ALICUOTA IVA_IMPORTE IMP_TOTALPONER_SEPARADORG_REPETIRPRO_CANT_XBULTOPRO_PRECIO_UNI_DESC PRO_EAN13K"G+(FE_Funciones_separadores T TT%%TCC 6T110TCTCaTC'BCC C 6U FE_FUNCIONES_SEPARADORESXTEXTOOITNITTHISITEMS IMP_BONIF PONER_PCOMANXPONER_SEPARADORG_REPETIR8 TTCTCTCTCTCTCTC TC TC TC TC TCTC BUXTIPOXTEXTOTHISGENERAR_REGISTRO_010GENERAR_REGISTRO_020GENERAR_REGISTRO_030GENERAR_REGISTRO_035GENERAR_REGISTRO_040GENERAR_REGISTRO_045GENERAR_REGISTRO_050GENERAR_REGISTRO_060GENERAR_REGISTRO_070GENERAR_REGISTRO_080GENERAR_REGISTRO_090GENERAR_REGISTRO_100GENERAR_REGISTRO_110Obtener_Archivos=Obtener_Archivo_NombreGenerar_RegistrosGenerar_Registros_CabeceraGenerar_Registros_DetalleNGenerar_Registro_Det_01Generar_Registro_Det_02 Generar_Registro_Cab_02: Generar_Registro_Cab_01  Obtener_IDObtener_Archivo_NombreObtener_Archivos~Obtener_ArchivoGenerar_Registro_010Generar_Registro_012tGenerar_Registro_020=Generar_Registro_030NGenerar_Registro_035!Generar_Registro_0405#Generar_Registro_045&Generar_Registro_050o(Generar_Registro_060S,Generar_Registro_070!.Generar_Registro_080W0Generar_Registro_0901Generar_Registro_100/3Generar_Registro_1106Generar_Registros8]         UT010 .Q               U TIPO_REGISTRO VALIDACIONES COLLECTIONfe_cpbt_duplicadosfe_cpbt_krikos:fe_objetos.prgm>fe_cpbt_krikosfe_Comprobante:fe_objetos.prg>2qq2!2qQ1a1Q1A1qAQAQ2qr11AQ2qQQ2qQQ2#qAA2#qQ2#qaQ2#qaaAQ01!q1112qqq12ArQAQ!1A!AA3#qaaaaaaaaaaaaaaaQ3"qQ3"1qAqARAqA31)!qaaaaqaaaaaaaaQ2!!qaaaQ2"!qaaaaaaaaaaU2"!q!Q3"!qQaaaaS2"!AQAAq2#AQAaaaaAq2"aaaqQA2"aaqQ2"BQAaqAq2"AaQAAAq2qqQRQQQQQQQQQQQ310@@1aI$*&1086 ?P \Yhs(]"#%$$$4%[%M({(/.].d/"/}2,29F9<q)!=BEBESE$KpPK`MMPQ3S_ShUU[:[v]>]`PEg`%A38aT5Q@ G(9(( CG~(clasesG+(listados#5     TA T T T  T  T T CT CTC T T+a@ TH:< *cs_costo_adicional_comprobante(%C ! <@TCC0QCCZR-CC0QCCZR C C C(o!TCT$cs_costo_adicional_datos(F ~> %T!C"H ! T!%C 8!%W%Cdatos|FQ #\tmp\ .dbf #\tmp\ .cdxBU$ ACTIVEFORM DATASESSIONIDOEX OPEN_FILESCLASESLISTADOSXLETXCENXNUMXCAUSAXCLI_CODXCLI_DESXARCHXARCH2NEWFILEXARCH3XOLDOPXFORMXMAXFORMCS_COSTO_ADICIONAL_COMPROBANTEXRESWIZARDXCOMPROB OBTENER_ITEMSOBTENER_DETALLE_COSTOSOBTENER_ASIGNACIONES_COMPRASARR_MONMM_MAXZ MM_MONEDACS_COSTO_ADICIONAL_DATOSDATOSCOSMONXOK REGISTRARP_LOCAL 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM C%Cclientes BQclientescodcli%Cccvent zQccventccvfac%Cventas Qventasven_fac%Cproveedo QproveedoBUABRIR_TABLAS_FIJASCLIENTESCODCLICCVENTCCVFACVENTASVEN_FACPROVEEDO TItrsacventascos_adetcos_acomcompras%TCS_COSTO_ADICIONAL3T&Costo adicional a FC/NC/ND de clientes TtrsacCV FC 8Cc NC Cd ND XX 666T C T trsacCV FC 8Cc NC Cd ND XX 666 T    T  B U AAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANCCVENTCAUSAFAC_VENXOK WRITE_DATAEND_TRANTTS_IDFG(FG((ven_fac E%C4 TCOF~ F ##+C+   @%      >!HFF!CC  F G((itmT vH7B ~% T T > >T ~<p datos_compras  F rcos_adet  o datos_DetalleC C  F rcos_acom   !o datos_DetalleQ#X datos_comprasQ" #"#" """""" "! [o datos_compras!$!TMPWRC Ca& ~Ypcompras$%$''(' C'Z%%%C%!Z Ca&  B BU) DATOS_DETALLEVENTASVEN_FACXCOMPROBXCAUSAREGDATOSCOD_INSOBIEDATA_CODIGO_VACIOFAC_VENCAUSABULATRITMCOSTOCOSMONFORCOD_PRODESCRXOLDITMXITM2ITMTITM2 DATOS_COMPRASCOS_ADETCOD_CLIRECIBIDAXCLI_CODCOS_ACOMCOM_COMPCOM_CAUCOM_ASIGITM_CDCDDCOS_ASIGTMPWRC SYS_OPTIMIZACOMPRASFAC_COM'%Cdatos!FQoventasC(XQ   Q   1\tmp\Q\tmp\ ~.>C>   #)UDATOSCOD_INSATRBULITMDESCRCOSTOCOSMONFAC_VENCAUSA RECEPCION COSTO_TOTVENTASXCOMPROBXCAUSAP_LOCALXARCH ART_DESCRFOR%C datos_detalle)FQocos_adetQXproveedoQ CC 6Q Q Q 1\tmp\Q\tmp\& #)U DATOS_DETALLECAITMCOD_PRODESCRPRNOMBRECOSTORECIBIDAITM2ITM3ITMTCOS_ADETPROVEEDOFAC_VENCAUSAXCOMPROBXCAUSAP_LOCALXARCH2Q%C datos_compras)FQFocos_acomQXcomprasQ   C ZCZQ  Q 1\tmp\Q\tmp\& #)U DATOS_COMPRASCAITMITM2COD_PROCOM_COMPCOM_CAUCOM_ASIGITM_CITM3COCOS_ASIG LISTO_AUTOCOS_ACOMCOMPRASFAC_COMCAUSAFAC_VENXCOMPROBXCAUSAP_LOCALXARCH3s *TMPCOMASCF>  UODATODDETOBTENER_COMPRAS_PENDIENTESODEYFUNCNEWFILE_LOCAL_TMPCOD_PROAGREGAR_OTRAS_ASIGNACIONESAPLICAR_ASIGNACIONES_PROPIASTMPCOMAS DISPONIBLETOTALOTROSPROPIASALL Fo datos_comprasCQ        TMPPROASIG ~ZpTMPCOMAS     C Z   C ZFo datos_comprasCQ     TMPPROASIG ~ZpTMPCOMAS    C Z   C ZF_o datos_compras  TMPPROASIG ~ZpTMPCOMAS    C Z   C ZUODATODDET DATOS_COMPRASITM2COM_ASIGASIGNADOCOD_PROCOM_COMPCOM_CAUITM_CITM TMPPROASIGTMPCOMASPROPIASFAC_COMCAUSACOS_ASIG6%C5TC%C_TTMPCOMAS%CSELECT &xAlias Q%CTCX CaFo.cos_acomQ(XcomprasQ   C Z(()(*C(+ZXcccompQ   C%Z  C %ZXproveedoQ          Q Q QC Q Q Q Q  Q Q CXQ!Q"(,( C( ZC(-Z./C ZC-Z  cccompQXcomprasQ   C%Z  C %ZXproveedoQ          Q Q QC Q Q Q Q  Q Q CXQ!Q" CC    1Q0ALTER TABLE &xAlias ADD COLUMN TXTMEMO M(4) >!C 0 CaU2XALIASXTABLAXCOD_PROODDETODEYFUNCNEWFILE_LOCAL_TMP SYS_OPTIMIZACCCOD_PROFAC_COMCAUSAFEC_COMCOITMCOD_INSATRBULDESC_INSPRNOMBREASIGNADO ASIGNADO2 DISPONIBLECALCULAR_IMPORTETOT_COMDES_COMTOTALORIGINALOTROSPROPIASCOS_ASIG COS_ASIG2 COS_ASIG3TXT_COMP LISTO_AUTOCCCOMPCOMPRASOPPROVEEDOCOS_ACOMCACOM_COMPCOM_CAUITM_CFAC_VENITM2XCOMPROBXCAUSAFORMATO_FAC_COMALL H# CFTFC riTRE cTNC dTND LTAS ATAJ ITIT H;TPR 1^TCP 2TDP PTOC 2TXX?B CCcdC=-CR 6UXCOMPROBXCAUSAXC)B UXITEMXTOTXDESCd Focos_acomQTMPCOMASQ   C ZCZCQ TMPOtrASF ~]ZpTMPCOMAS   C ZCZUODATODDETCACOD_PROCOM_COMPCOM_CAUITM_CCOM_ASIGASIGNADOCOS_ACOMTMPCOMASTMFAC_COMCAUSAITMFAC_VENXCOMPROBXCAUSATMPOTRASOTROS F  r datos_compras   oTMPCOMAS   Fo datos_comprasQTMPCOMASQ   CZC Z      TMPCOSASIG ~_p datos_compras    CZC ZUODATODDET DATOS_COMPRASFORITMITM2COD_PROCOM_COMPCOM_CAUCOM_ASIGITM_CCOS_ASIGFAC_COMCAUSAASIGNADOTMPCOMASTMDC TMPCOSASIGvCCSELECT &xAlias >  U XALIASXTABLAXCOD_PROXNOVACIO XALIASPROPIASXITMOBTENER_FRACCIONES_PENDIENTESLEER_FRACCIONES_PROPIAS DISPONIBLETOTALOTROSPROPIASALL%Ccos_adet AQcos_adet%Cventas oQventas%Cbienes Qbienes%CTC%CT TMPCOSPEND%CSELECT &xAlias Q%C>TCXFlocos_adetQ XventasQ    XclientesQ        Q Q Q Q Q Q QQ -+ C C     ! ! 1QoQ"Xcos_acomQ% ""C"!ZC"#Z%%C%!ZC%#Z""C"!ZC"#ZQ$C%&Q"""!"#TMPACOMF( ~gUPDATE &xAlias SET otros=NVL(TMPACOM.asignado,0) WHERE fac_ven+causa+STR(itm)+STR(itm2)= TMPACOM.ID U)XALIASXTABLAXCOD_PROXNOVACIOCOS_ADETVENTASBIENESODEYFUNCNEWFILE_LOCAL_TMPCADVEFEC_VENCOD_INSATRBULDESC_INSCLNOMBREASIGNADO ASIGNADO2COSTOTOTAL DISPONIBLEOTROSPROPIASRECIBIDA RECIBIDA2 LISTO_AUTOFAC_VENCAUSACLIENTESCOD_CLICOD_PROITMXAITM2IDCACOM_ASIGCOS_ACOMTMPACOMoSELECT fac_ven+causa+STR(itm)+STR(itm2) AS ID, SUM(com_asig) AS asignado FROM &xAliasAsig GROUP BY fac_ven, causa, itm, itm2 WHERE itm_c#xITM INTO CURSOR TMPCOSCOMProp F ~9nUPDATE &xAlias SET propias=TMPCOSCOMProp.asignado WHERE fac_ven+causa+STR(itm)+STR(itm2)= TMPCOSCOMProp.ID SELECT fac_ven+causa+STR(itm)+STR(itm2) AS ID, SUM(com_asig) AS asignado FROM &xAliasAsig GROUP BY fac_ven, causa, itm, itm2 WHERE itm_c=xITM INTO CURSOR TMPCOSCOMProp F ~hoUPDATE &xAlias SET asignado=TMPCOSCOMProp.asignado WHERE fac_ven+causa+STR(itm)+STR(itm2)= TMPCOSCOMProp.ID UXALIAS XALIASASIGXITM TMPCOSCOMPROPSELECT &xAliasPropias INSERT INTO &xAliasPropias (cod_cli, fac_ven, causa, itm, itm2,com_asig, itm_c, recibida) SELECT cod_cli, fac_ven, causa, itm, itm2,asignado, xITM, recibida FROM &xAlias WHERE asignado>0 UXALIASXTABLAXCOD_PROXNOVACIO XALIASPROPIASXITMFORITM_CWIZARDw open_files registrar write_dataa Obtener_ItemsObtener_detalle_costosTObtener_asignaciones_comprasPreparar_asignacion_compras+Aplicar_asignaciones_propiasaObtener_Compras_pendientesformato_fac_com!calcular_importe#Agregar_otras_asignaciones-$Leer_asignaciones_nuevas:&obtener_costos_pendientes(Obtener_fracciones_pendientes)Leer_fracciones_propiasQ/Asignar_costos1A!21AA22ABrA31AAAAABB2CgqAAC31r12A12A1r1Aq4AAAAAB221A2qarrqq1AAAAqArvQ1AAAua uaAA3bqAABQ2qAA R3qAAQ2ra4q ArArA41AQA!AAA @"q2qAAAAAAAAAAAA2q3 rA4r#ru A6b"a31AA!A!AAqA!AAA"x rqA3 rA rA5 3AAmTXuc s Oj&@'Sf/$t$--0;0~00/3 ^36*780S8>(P?A[\B?Cw% y R@Y"cm_imp_modificar_factor T#cm_imp_modificar_factor.scxBU OPEN_FILESCM_IMP_MODIFICAR_FACTORXIMPORTSCX"cm_imp_modificar_factorF-%C4T T  T -#  co_funciones  % 2F #)%C T*trsaccos_ciecos%o T^trsaccm_imp_modificar_factor'Modificacin Factor/T.C. de Importacin%F T- T T T% >TFactor: CCZ --> CCZ%%TTCC, 6Cambio: CCZ --> CCZ <TCC, 6Cambio: No modificado T~C%>FG((despacho!E%C4>FG((codlotG~!"CC> ?+CNo encontr la importacin !!!# Ta!F$ T%T&D~C'=Despacho (M )A 7>**  ++  T%%*+ T&CO%%h #&%*I>**% d>++%F>-% T T3C/C@z 9999,999,999_i.^0trsaccm_imp_modificar_factor'Modificacin Factor/T.C. de Importacin B 3C&No se pudo comenzar la transaccin !!!# B .bCELa fecha de la importacin es anterior al cierre de balance mensual (CC*) !!!# B |7C*No se pudo abrir el ejercicio contable !!!# B AC4No se encontr la importacin o no tuvo ingresos !!!# B BU1 XIMPORTACIONXFACTORXCAMBIO OPEN_FILESCM_IMP_MODIFICAR_FACTORCONVERIMPORTACXFECHAFECHAXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESCONSSYS_CIERRE_BALANCEAAALOCK_GTRSACBEG_TRANXERROR XOLDFACTORFACTOR XOLDCAMBIOCOEFICXTXTCOSTOFOBDESPACHOCOD_INSBULATRCOSCODLOTCODIGOLOTEMENSAJEDIARIOGXACCXREG COMENTARIOTIPOCAUDEBITOCREDITOFORNUMEROUSER_LOG PUB_INDEXEND_TRAN%Cconver *Qconver%Cdespacho \Qdespacho%Ccos Qcos%Ccons Qcons%Cimportac QimportacBUCONVERDESPACHOCOSCONSIMPORTACmodificar_factor open_filesj #1B2#r3rQB22u1A1AAAABVrrrAAABsAsRA11AAss7AA21A!AqAA2!AAAQAaAAAA1 h%fךY3AU 4      !"#$%&'()*+,-.%CxmodelobN T %CxcuitbCTC X%CxOC2bNB T%CxOC3bNm T%CxOC4bN T%CxOC5bN T$%CxloterecepcionbCT!CX%C%C" T%%C&CJ T&%C'Cr T'%C(C T(%C)C T)%C*N T*%C+N T+%/0( T1%Ctemporal kCProblema al cargar la OC !!!C 8Por favor salga al men principal y vuelva a intentarlo.2C Suspendo?a3B4% C5%I T4 T C5 T4% T4 T C5 T4% T4 T C5 T4%! T4 T C5 T4%/6E C758 T8%/9F:~C; F<G((codins E:;F:D>><>?<?@<@A<AB<B%CTDC<E 9TD:E%<?SFFG((codigoE:;:GF:>HFETDD CFE%<>SYF>G((codigoE:;:IF:D>I>JK>EL>LM>MN>NTDD C>EF:%C>:E<E>:ODF:%G((ocitm%CN Q(#) TR SR J(ST+an TT% TTa %/U in_operacion(T TTCW%TB XTXCY T8&%XX  4 ! >  j T TX!%X TZ- C[C\ T]%C tmp_bie_bus Q^BU_XTABLA_TEMPORALXMOTIVOXFECHA XARTICULOXCENINGXCENEGRXCOMENT XDOMICILIO XCPCIUDADXDEPINGXDEPEGRXOPXCON_OPXABMXTIPOXUSRXNEWTRFXOCXREMITOXCOD_PROXCOD_CLIXCOD_CEN XPROVINCIA XCLIPRONOMXOC2XOC3XOC4XOC5 XCOMENTGRALXCUITXFRMAUTOXFEC_REMXMODELOXLOTERECEPCION XPRIORIDADESXTRANXBULTOSXFLETEXCHOFERXDNI XDOMINIO1 XDOMINIO2XTARAXBRUTO ODOCUMENTOSXCOMPROBANTE_NXCOMPROBANTE_CMOTINVFORMULAXARMADOMENSAJESYS_MOSTRAR_SCREENXTMPOCCARGA_OCMODELO CARGA_MODELOXTMPOC1TIPOTEMPORALCODIGOBIENESCODINSBULTOS ATRIBUTOSLOTESSERIESCODALT1P_CM_MODIFICAR_DESCRIPCIONXDESCRDESCRATRIBUTOATRDATRBULCLAVEDBUL CANTXBULT PESOXBULT VOLUXBULT DCODATRBULOCITMZ XMAXPALLET XARR_PALLET XRESULTADO TIPOAJUSTE IN_OPERACIONPALLETSXOK WRITE_DATA XCORRECCIONMSG_REVISAR_RECEPCIONESIMPRIMETTS_ID TMP_BIE_BUS44,sys_procesando Inicializando#%C xtipo_externobLo TTC %Cxcod_clibCTCX%Cxcod_probCTCX%Cxcod_cenbCTCX %C xprovinciabCHT CX %C xclipronombC{T CX%CxmodelobN T  %C xdomiciliobCT CX%C xcpciudadbCT CX!%C xcomentgralbCBTCX%CxcuitbCpTCX%CxcomentbCTCX%Cxfec_rembDT%CxbultosbN T%CxopbN- T %C p_min_horabC`TCX$%CxloterecepcionbCTCX!%C xref_cierrebN T%CxtranbN T%CC T%CCE T%CCm T%CC T%CC T%CN T%CN  T%CN5 T%C N] T %C!N T!%C"N T"%C#N T#TC 5$3T$C aprobacionessys_aprobaciones.prg%CoapbOJ T$G+(listados T& T'F(G((codigo%*) E* T+<,, T-%+4%  T.%/%(01trsac.bienesstockstkxdepstkxdspconvermovstockdespachomotinvnumfacconver2ccarmadoarmado 1trsac.bienesstockstkxdepstkxdspconverdespachomotinvmovstockconver2ccarmadoarmado%. C3B-T4in_operaciones.prgT5 Movimiento T.6trsac.45 T7 T8-%9: F;G((conver#6T7< ><7 T=F>#).~)?@AB  T==%CC DS H  9E >CCC7Z/CEF 9 TG/CH!TGCCEFCG>=G >CG 2 >CCC7Z/CC=Z%CIv1 "1%CJ1 T+%(0 : FK#(L>MMHTHR C0000CC(LZR-C00000000CCKMZRF(>NNFOG((codinsF; TQa TRTS(TF>A~)?@'C(UaAB 6 Y,3sys_procesando Registrando: CCCOZ T>V TW%XY F> >AC>)>[>AZ >BC>)>[>BZG+(proc_stk!%: (U ]^ T_%S JC]^)[aCC>bc>b6>C>A>B`%Q%9: F;G((conver E7 Td7 SF;G((conver#6Td< ><d T8a:efCd ZMMotivo: C(gh ThCFi>><dF j k l mnohpCCCCNP6C6qCCCC66rst(Uu Cvwxyz{|}~>ir%C conver2.refbCC conver2.caubC Cxcomprobante_nbU Cxcomprobante_cbU C>iCCxcomprobante_nbCC Z6F>%>)?@%%cCX >bCX $ >bc%%CX >CX Z >FO E>)%C4TRR%:: h%C>%S %C>b}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!!}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+ T& T'fproc_stk>)>[>a>b>A>BMCCdZR1>C%&C' T' T+ d.TCC>CCC>C>CCC>C>F=KCCC>CCC>C>C>Rg(CCC>CC>>C>Rg`8T_CCC000CCZCC>C>C>R%S \%C>b}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T& T'eproc_stk>)>[>a>bC>A>BMCCdZR1_%&XC' T' T+ %(0(  %C> %S %C>b}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!!}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+]proc_stk>)>[>a>b>AMCCdZR1>C%C>K}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!!}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+ T& T'`proc_stk>)>[>a>>AcMCCdZR1>C%&C' T' T+ .TCC>CCC>C>CCC>C>F=KCCC>CCC>C>C>Rg(CCC>CC>>C>Rg8T_CCC000CCZCC>C>C>R%S %C>b}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!!}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+ T& T'^proc_stk>)>[>a>bC>AMCCdZR1_%&C' T' T+%C>}CLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!!}TLa lnea del artculo (CCCtemporalOZ) CC>) C>a C>a no tiene depsito !!! T+ T& T'_proc_stk>)>[>a>C>AcMCCdZR1_%&C' T' T+  G(,CError en in_operaciones.prg !!!9F; TW>V & TW%Q ? TQ-*>>)m<dC>)?@ >g6C>C*R[>[a>aC(N Z>>>C>m>TS>H   ">;C>6  >;>*>>>>%C> R!*>>>> "%:"M>C@z 9999,999,999_>RH(-!%C,!!%-"T--T,-ZefCd ZMRecepcin sobre OC CCZ4C ZN%CEL#D>>>>>>%CEL#FG((serie E>%C4 K#>>%>#D>>>>>>F;%(0 : *$P>rRC00CC(LZR-C00000000CCKMZR%:: %I>A>AB>B>b>baf%>b$FG((deposito E>bF;%S%F;>> G&7>A>AB>A>b>%(0%%(~% %>af %>af%(UC&FG((armado%>2& E>%C4 .& T >c%:h(!% > d(F #> C%(-TC>A>B dTd%'T&La recepcin supera la tolerancia del CC Z% la OC !!! OC: CCZ ITM: CCZ ART: C>)CC>a /C>a6CC>[ /C>[6 EXCEDENTE: CC Z%C T+!>>A>BCproc_stk>)>a>[>b->A>B!%: (U (!>;>>%O>)( C>)bienescodins,%((  N,%(+%>+%C +F #>%+%C+"CtcccomptcccordwTd d d d d d %* cs_generar;;[;a;C;0C; ZR + cs_generar;;[;a;C0C ZN J, cs_generar;;[;a;C;;;0C;< ZMF>!%C oDocumentosbO,TMTMOV Cd Z C%Q-1T$No hay cantidades para registrar !!!C T+ Q-%(U M- in_calidad T T TC aprobacin1%C motinv.ap_cadbN ( 0TTTTTH2.0 0%(.4T'No hay cadena definida en el motivo !!!C T+ 0%$/Cd($% C- 5/TC$ TTDEFINIR |/TC$ T T TTC$TC$TC$TC$TC$ 0 TT T T T(%Cconver2.autorizadabN0Fi>%$ 09>i 0sys_procesando 1 T+(r1 T+TCerr_hand 1 T+&%+9 8 1F;G((conver E7%C41%%2"cm_oc_mantenimiento% ^2"cm_oc_mantenimiento %!2"cm_oc_mantenimiento!%"2"cm_oc_mantenimiento"%# 3"cm_oc_mantenimiento#[ T2-% |4%+\3CfCd ZMe%& 3 T+T. 3 T.%+3T.trsac.45%+. 04CfCd ZMe T*%. + x4 T+ B+UXNO_TRANSACCION XTIPO_EXTERNO XID_EXT_C XMSG_ERROR SP_MENSAJESYS_PROCESANDOXCOD_CLIXCOD_PROXCOD_CEN XPROVINCIA XCLIPRONOMXMODELO XDOMICILIO XCPCIUDAD XCOMENTGRALXCUITXCOMENTXFEC_REMXBULTOSXOP P_MIN_HORAXLOTERECEPCION XREF_CIERREXTRANXFLETEXCHOFERXDNI XDOMINIO1 XDOMINIO2XTARAXBRUTOXOCXOC2XOC3XOC4XOC5OAPLISTADOSSTK_ERRSTK_MSGMOTINVCODIGOXMOTIVO XRESULTADOARR_OCS MAXARR_OCSAAA P_MULTIUSRREMITOLOCK_GTRSAC UNLOCK_ALLTRAN_PRGTRAN_TXTBEG_TRAN XTMPNEWTRF XCONVER_USADO P_LOTE_CARGAXTIPOCONVERTRANSFXITMDSPTEMPORALOBIEDATA_CODIGO_VACIOENTRASALEDESPACHOLOTESPROVEEDONOMBREXTMPREMXREMITOCREAR_Y_VALIDAR_DESPACHOS TEST_STOCKNUMFACSUCREMREMICOMPROBBIENESCODINSFIRSTIT XNOMOVSTKNOMOVSTK TIPOAJUSTEOCXTMPOCLOCALESIN_004 FN_UNIDADESBULPROC_STKXERRINIXMSGINIXDSPINI_STKATRDEPINGXDEPINGXNEWTRFUSER_LOG PUB_INDEXDESCRXDTCONVER2 DOMICILIOCPCIUDAD PROVINCIACOMENTCUITDTPROCLICPROCLIFEC_REMBULTOSFLAG1MODELO REF_CIERRETRANCOD_FLECHOFERDNIDOMINIO1DOMINIO2TARABRUTOID_EXT_CFECHAXFECHAREFXCOMPROBANTE_CXCOMPROBANTE_NCAUXDEPEGRDEPEGR DESPACHOHMENSAJE REG_STOCKXHEADERZDESPOLOTDATA_CODIGO_LARGOBAJADIFCOD_INSCONCEPTOPERSONAMOTIVOITEMORDENREF2COSMONCOSTOSERIEDSERIEH COMENTARIOCOD_PROCOD_CLICOD_CENARMADOAPROBADOAPCOMPCODCOMPBULCOMPATRREFITMREFCAUOCITMZP_EMPSSLINEASUCURSALTIPOOPERVENDEDORSERDETSERIEDEP_INGDEP_EGRBAJAUSR_BAJADEPOSITOCALIDAD FACTURADO PRIORIDADCCARMADO TTS_ERRORDEPREGISTROTCOMPRASREG_LOCKP_OC_TOLERANCIA_CANTIDADXEXCESORECEP3 RECEPCIONITM ACTUALIZAR_OCNETO DESCUENTOP_CS_FECHA_COMIENZOTIPOP_COSTO_COMPRAS_FCCOS_LIFO XCOSTO_OCDES_INSDESC2DESC3DESC4DESC5IIPERII2P_CS_RECEPCIONAGREGAR CS_GENERARMONEDACOEFICFEC_COM ODOCUMENTOS CPBT_CAUSACPBT_COMPROBANTEIMPORTAR_ARCHIVOS_PENDIENTES APROBAR_FINAL IN_CALIDAD XAUTORIZADAXQUIENXQUIENESSYS_MAP_CADXAP_USR1XAP_USR2XAP_USR3XAP_USR4XAP_USR5P_IN_AUTORIZACION HABILITADOINITP_IN_AUTO_AUTORIZACIONACCESOEVALUAR_APROBACIONUSUARIOS XAUT_ESTADOXAUT_USR AUTORIZADAAUT_USRAP_USR1AP_USR2AP_USR3AP_USR4AP_USR5SP_OCULTAR_DEFINITIVAMENTEOEXMESSAGELOGERR_HANDOC_MANTENIMIENTOCM_OC_MANTENIMIENTOEND_TRANTTS_ID45 TCW%FG((codins E%S% FG((codigo E%C4% ZGC#Unidades por bulto mal definidas : C/ !!! H TR08.PRG!unidades por bulto mal definidas. ~ FB  9 TR08.PRGbulto desconocido. % |GC#Unidades por bulto mal definidas : C/ !!! H TR08.PRG!unidades por bulto mal definidas.  FB  F BU XCODXBULXCANAREAOBIEDATA_CODIGO_VACIOBIENESCODINSBULTOSCODIGO CANTXBULTMENSAJEREPORTE45 TCW%FG((codins E%S% FG((codigo E%C4% ZGC#Unidades por bulto mal definidas : C/ !!! H TR08.PRG!unidades por bulto mal definidas. ~ FB  9 TR08.PRGbulto desconocido. % |GC#Unidades por bulto mal definidas : C/ !!! H TR08.PRG!unidades por bulto mal definidas.  FB  F BU XCODXBULXCANAREAOBIEDATA_CODIGO_VACIOBIENESCODINSBULTOSCODIGO CANTXBULTMENSAJEREPORTE %a T-F ~/% %S{ Ta!,%   IND Ba%CborrarQ  T CC]Rh1 \tmp\ CCCNCCCCQ \tmp\  &  5 TaF ~o/% kFG((codins E %S C bC El artculo C  $ no tiene despacho/lote asignado !!! T-FTT%Q TC TC%%CX CX  >%% CX !CX  >! %C"q%## F (E%C4 ^>> mF (E!%C4 X^>!> gF (E!.T$CCCC>CCC>F=K%CCCCC>C$>Rg(CCC"CC">C$>Rgc8T&CC$C000CC%ZCC>C$>R'(%## %C4 A>&>C _%C4 HA>!&>C%wFG((codinsF ~ s T) T* T+[,proc_stk     M.1 %)hC+ T-!F F Q  \tmp\ .dbf  \tmp\ .cdx%Ba  %-s d%CGATENCION !!! No hay stock disponible !!! Rechaza el comprobante ? (S/n)SN/N^ Ba o B-  B-BU0 XHAY_LOTESTEMPORALENTRASALECODIGOOBIEDATA_CODIGO_VACIOLOTESMOTINVTIPOP_EMPBORRARXCURSORP_LOCALBULATRCANTIDADDEPOSITODESPACHOSERIEDSERIEHXTESTSTKBIENESCODINSMENSAJEXENTRAXSALELOCALESIN_004 FN_UNIDADESXDEPINGDEPINGXDEPEGRDEPEGR DESPACHOHXTIPOXHEADERZDESPXDSPOLOTDATA_CODIGO_LARGOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKXFECHAPREGUNTAFG((codinsFG((orden E+C+  FG((codins E%SFG((codigo ET   T % SF G((codigo E T 5 T%!%C temporal.ocbN4rtemporal   !C" #6   CS 6CS $6CS %6C]CtcomprasOC& '6C& ( 6CC& '6) rtemporal  *+, !C" #6   CS 6CS $6CS %6C]CtcomprasO-.'(CC& '6) T/ T0 T1:2in_operaciones444 /01G>4 5C6 7/6,081FHBU9BIENESCODINSTCOMPRASORDENXOCCOD_INSBULTOSCODIGOBULXDBULDESCR ATRIBUTOSATRIBUTOATRXDATROBIEDATA_CODIGO_VACIOENTRASALEDBULDATR CANTXBULT PESOXBULT VOLUXBULTLOTESSERIESIDUREGISTROCOSMONCOSTOMONTXTCODALT1 RECEPCIONRECEP3P_CM_VERSION_RECEPCIONRECEP2PESO VOLXBULTOP_IN_RECE_PRECIOCOEFCOS_LIFO MM_MONEDAOCOCITMDUNIITMMEDIDA XFULLDESCRXMEDIDAXEAN13 GET_DESCRIN_OPERACIONESTEMPORAL DCODATRBULP_CM_MODIFICAR_DESCRIPCIONDESC_INSEAN134 in_comienzoa%Q T T%CC T%CN T%CC T%Cclientes Qclientes%Cproveedo :QproveedoG~(clasesF G((movGEC ZG T CO%C4  TG+(listadosG+( in_funcionesFG((depositoT  ETT  ET%Cborrar1VFQTC%CELFoconverXtipooper ))4Xagente +,5     ! "Q # $   % & ' ( ) * +,-Q.)Q/C ȲQ0CXQ123Q3617\tmp\Q7\tmp\F>0C0 CC%SS:C% 6CC&LINEA:C& 6C*SUC:CC*Z 6C)TO:C/ 6CC.VEND:C. 6 WloconverXbienes 2Xbultos  ::@Xatributo  !99@ C2C C9C C:QC2C C9C C:Q;C:Q<C9Q=C ȲQ0CXQ123Q32>Q?617\tmp\Q7\tmp\F% F ~q TA TB TC:Din_operaciones !ABCD>2;CF;A61B?C%Fm%Gi%Ctcompras zQtcompras%Citmdescc Qitmdescc5%CCGZCJZtcomprasordenitme!>HK;HK:%CCG ZNCJZitmdesccida!>I;I#)L sys_security-TN[CC OZ] C OPQTRC S00[TTC Ug TVWFXG((codigo E YTZX[T\X]T^X_T`X4TaXF Tb-%\\ Tc ~ %C c Tba!F#)FG((deposito E Td E Te Tf Tg"ThC\ U6Ti Tj Tk  Tle Tme Tnd$#)H  CX TCX X]TC 2 TCH5 CX ZTX X_|T 2TTMVCCZT.t.!TC@z 9999,999,999_TM T|} T~F%XF+CNX BTC6TC6TC6CImprime%vis_inv |?listadosaaaaa5% CImprime los rtulos ? x in_rotulosa )CMovimiento no encontrado !!!FQ 7\tmp\.dbf%G G qTR08.PRG"problemas al buscar el movimiento. movimiento : CZlo acabo de hacer !!!BUXTRFXDESTINOXDRIVER_FORZADOXCOPIAS_FORZADOXFORMULARIO_FORZADO OPEN_FILES IN_COMIENZOXDRIVERCLIENTESPROVEEDOCLASESCONVERMOVFIRSTXFECHAFECHALISTADOS IN_FUNCIONESDEPOSITOXDEPINGDEP_INGXDEPIDDESCRXDEPEGRDEP_EGRXDEPEDBORRAR1XBORRAR1NEWFILEP_EMPCOMENTCOD_INSBULATRPERSONAENTRASALESSLINEASERIEDSERIEHTIPOOPERSUCURSALVENDEDORAGENTENOMBREDAGENTEDOPER COMENTARIODUNIBIENESCODALT1CODIGOCOD_AGETRANSFP_LOCALALLATRIBUTOBULTOS DCODATRBULDBULDATRBARRASEAN13CLAVE XFULLDESCRXMEDIDAXEAN13 GET_DESCRIN_OPERACIONESP_CM_MODIFICAR_DESCRIPCIONORDENTCOMPRASITMDESCCREFITMDESC_INSCREATE_OBJECT_SECURITY SYS_SECURITYZUSUARIOUSR_BAJA OSECURITYGET_USERZNUMERO_REMITOREFZCOMPROBANTE_INTERNOREF2 ZNOMOVSTKNOMOVSTKMOTINVMOTIVOZABMABMZTIPOTIPOZREMITOREMITOZMOTIVOZDMOTIVOZTIPODEPXDEPXORIXDESZFECHAZNUMEROZREMITO_PROVEEDOR ZDEPOSITOZDEPOSITO_INGRESO_CODIGOZDEPOSITO_EGRESO_CODIGOZDEPOSITO_DESCRZDEPOSITO_INGRESO_DESCRZDEPOSITO_EGRESO_DESCRTMP_ARRDISTINCT ZMAXDEPING ZMAXDEPEGR ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUAXTALIAS2CONVER2ZFEC_REMFEC_REMZBULTOSZCPROCLICPROCLIZDTDT ZFECHAHORA ZDOMICILIO ZCPCIUDAD ZPROVINCIA ZCLIPRONOMZCUITZNOMBREZPROCLIPROCLIZCODIGO_CLIENTEZCODIGO_PROVEEDORZCATIVAZPROVNUM ZREFCLIPRO ZID_EXT_CID_EXT_CZDOMICILIO_ORIGENDOMZCPCIUDAD_ORIGENZIPCIUZPROVINCIA_ORIGENZCLIPRONOM_ORIGEN ZCUIT_ORIGENCUITZNOMBRE_ORIGENCODPRO DOMICILIOCPCIUDADCOD_ZIPCIUDAD PROVINCIA OLOCALIZACION!IVA_CATEGORIA_CLIENTES_TEXTO_CPBTIVACATCODCLI PROVEEDORP_SYSTEMPROVINCXCOMENT ZCOMENTARIO FORMULARIO XFORMULARIOCONSMVRFORMMVFORM FORM_COPIAXCOPIAS MVRCOPIASMVCOPIAS XIDARCHIVO XFILTRODATOS ZIDCOMPROBZIDCAUSAMAXITEMSSYS_MVIS_INVIMPRIMIR_FORMULARIOLOCALESIN_005 MENSAJE_SINOIN_ROTULOS_REIMPRIMIR IN_ROTULOSMENSAJE P_CENTURYREPORTE %  tF ~pC%Ca  6  lT T T !%  T%Cy} in_despacho - %TCCCC>CCC>F=?CCCCC>C>Rg(CCCCC>C>Rg5TCCC000CCZCC>C>Rz in_despacho -"%  S hFG((despacho!E %C4 dQCNo existe el despacho para C    !!!!B-BaU"XDSPXHEADER XCANTIDADMOTINVALTALOTETIPOTEMPORAL TIPOAJUSTEENTRASALECODIGOOBIEDATA_CODIGO_VACIOXENTRAXSALEXRES DESPACHOH ALTA_LOTE IN_DESPACHODESPACHOBULATRCOSMONCOSTOXFECHAXCOD_PRODLOTAUXLOTEEXTVENCZDESPOLOTDATA_CODIGO_LARGOLOTESMENSAJED4 %TCCCC>CCC>F=+%CCCC>CCC>F=;TCCCCC>C>RgCCCCC>C>Rg% B )TMal el rango de la serie !!! B =)TMal el rango de la serie !!! BUXDXHXMSGXHEADERXCANT %C* FQFXh1CCCCNNC C C C C NNCCCCNNNCCC(C CCN N CN  C!N "N#N$C %N&N'N(N )C*C+C,N-Cd.N/N0C 1N2C3L4N5N6N7N 8N9N:N;C<N =D>C?C@N ANBNCCDCQ& 2& CC! CZC! ZC#Z6#G((UEXPATHXALIASCODIGODESCRDEPINGDEPEGRENTRASALEDESPACHOSERIEDSERIEHBULATRCOSMONCOSTOBULTOS ATRIBUTOSDBULDATR CANTXBULT PESOXBULT VOLUXBULTLOTESSERIES COMENTARIOIDUSSVENDEDORSUCURSALTIPOOPERLINEAREGISTRO DESPACHOHOCENTRAOCOCITMDUNIENTRA_U2SALE_U2CM_UNI2FACTORCOMPCODCOMPBULCOMPATRES DCODATRBULSTOCK STOCKSALEREFREFITMREFCAUAP PRIORIDADTEMPORAL TEMPORAL1ITM DECIMALESDISPDISPSALEMONTXTARMADOVENCLOTEEXTCODALT1EAN13NETO DESCUENTOCOD_PROID_EXTFG((conver E%C4 ~TTCC>X T-B-'+CCONVER+  TT,  pr_funciones   rtemporal     CS 6CS 6HUXOKXNUMERO XTEMPORALXFECHAXPROVEEDCONVERCOD_PROTRANSFFECHAPR_COMB_BUSCAR PR_FUNCIONESCOD_INSBULATRCODIGODESCRDBULDATRENTRASALEDEPINGDEPEGRDESPACHO COMENTARIOBIENESBULTOS ATRIBUTOSATRIBUTODEP_INGDEP_EGRCOMENTF~ F#EordenitmCZCZ%C4>%d C  6 CFUXOCXOC2XOC3XOC4XOC5TEMPORALOCOCITMTCOMPRASORDENITM RECEPCIONRECEP3P_CM_VERSION_RECEPCIONRECEP2 P_OC_PORCMSG_REVISAR_UNA %Csysmsg =Q\sysmsg%Csysmsgue wQ \sysmsgue%Csysmsgua Q \sysmsgua%Csysmsgus Q \sysmsgus5TC Mensaje_OC Mensajes.vcxa TTTT%C  C  U XOCXITMP_SYSTEMOMSGMSG_LEER MSG_SUBTIPODAT_OCDAT_ITEMOBJ_ABMOBJ_BUSCAR_SUCESO ACC_ESTADO4% F G((prod E%C4%jBa -T Archivo PRODUCCI desindexado !!!B- TNo encontrada !!!B-&TError de codificacin !!!B-BaUXOPXCON_OPPRODUCCIPRODXMSG 4G+(listados T%CXFG((deposito E%C4 1T$El depsito de ingreso no existe !!! T!%C C b%C ^G((central E %C4 ZAT4El depsito de ingreso no pertenece a la central !!! [T@No se encuentra habilitado para utilizar el depsito de ingreso C !!! %C%CXFG((deposito E%C4 d0T#El depsito de egreso no existe !!! T!%C C %%C !G((central E %C4 @T3El depsito de egreso no pertenece a la central !!! [T@No se encuentra habilitado para utilizar el depsito de ingreso C !!! %C B-BaU XDEPINGXDEPEGRLISTADOSXMSGDEPOSITO XDEPOSITO_USRUSRUSUARIO_PERMITIDO PUB_INDEXXCENINGCENTRALXCENEGRMENSAJEK4%C#Ba5 1aaa=1 Tbbb=inlist(pub_index,&xusr) on error &onerr %=C0Error en la definicin del motivo (usuarios) !!! T- ;%-7?C2No se encuentra habilitado para esta operacin !!! BUXUSRAAABBBMENSAJEFG((formula EFG((codins EF#)T!TC(=F G((formula E%C4 T &+C+   ( FG((codins E F T  FG((codinsEC F !T C(=HT  BU CCFORMULFORMULAXFORMULABIENESCODINSCODIGOTEMPORALARREGLODESCRFORMULASACODCOMPT%Cinvmodd CQinvmoddFG((codins>oinvmoddC(XQ borrmod ~FG((codins E T C% S+F G((codigo E T    %SFG((codigo E T   F > F & CZ ~FG((codins E T C% S[F G((codigo E T T     r T%SFG((codigo E TT     T%C rtemporal  !"#$    CS 6CS %6CS &6C]'  BU(XMODELOMOTINVMODELOINVMODDBIENESCODINSDESCRCODIGOESBORRMODCODXDESCR ATRIBUTOSATRIBUTOATRBULTOSBULXDATRXDBULENTRASALEDBULDATR CANTXBULT PESOXBULT VOLUXBULTLOTESSERIESIDUREGISTROOCOCITMENTRA_U2FACTORCM_UNI2DUNI DCODATRBULPESO VOLXBULTOMEDIDA#TC 6lB Proveedor: C# Fecha de Ingreso de Matanza: C* Rinde Actual: CC ZUXMETROS XANIMALES XFECHAMATANZA XPROVEEDORXRINDE< {oconverQ conver2QbienesQC  Q     T% TCaoconverQ motinvQC Q      T% rTCdoconverQ motinvQQQ      TT% 4TCTC%Cproveedo fQproveedoCproveedocodproTBUXLOTERECEPCIONXMETROS XANIMALES XFECHAMATANZA XPROVEEDORXCOD_PROARR_NOTASUMENTRASALEFACTORMETROSCONVERCCONVER2C2BIENESBCOD_INSTRANSFDESPACHOCANTIDADMOTINVMMOTIVOCODIGO TIPOAJUSTECOD_PROFECHAPROVEEDONOMBRE  TH) UT 999,999.9999 T 9999,999.999 T 9,999,999.99 B 99,999,999.9 2T 9999,999,999 BUXDECXMASKj T in_pallet(%ZFS(J%FF~CBrtemporal        Trf.Pallet CCZF#) BUXRESXARMADO IN_PALLETTEMPORALZ XMAXPALLETARMADO XARR_PALLETCODIGOATRBULENTRASALEDESPACHODEPINGDEPEGRCOSMONCOSTO COMENTARIOCOD_INS CANT_ARMALOTEXDEPINGXDEPEGR T-F7~C S C   % 4%C T  `%C T  \C No hay depsito de ingreso para CCC /C6CC /C6 !!! Ta!T "T %CqQJostkxdepC <<)qF>%Cq0Q %C cT  *%C  T  &CNo hay depsito de egreso para CCC /C6CC /C6 !!! Ta!T "T %Cq{QMostkxdepC  q K(% Ta ~FTCF% {F<^( TCO -C%C4 o_> %  #F T-T%! C*No hay suficiente cantidad para asignar a CCC /C6CC /C6 !!! Ta!F>%CqQ BUXERRXINI XCANTIDADXIDTEMPORALCODIGOLOTESDESPACHOENTRASALEDEPINGXDEPXDEPINGMENSAJEATRBULQTOPSTKXDEPDEPOSITOCANTIDADVENCDEPEGRAAAXCXREG T Tkproc_stkBUXCODXBULXATR XFULLDESCRXMEDIDAXEAN13ARTICULO_DATOS_AMPLIADOSPROC_STK TH5 Y%CC00CCZR-C00000000CCZRVccventccvfac(%CclientescodcliTC  T T No encontrado %%Ctccventtccvord(%CclientescodcliTC  T T No encontrado R%CRC00CCZR-C00000000CCZRccventrem(%CclientescodclirTC  T T No encontrado 2BU XTXT XCPBT_TIPO XCPBT_LETRAXCPBT_PV XCPBT_NUMCCVENTCOD_CLICLIENTESNOMBREFG((codigoFG((codins%X E:%Cbienes.est_actbN   %S%F%;F E F> C  C   6     T T T:in_operaciones_>  C  C  6 !tCArtculo invlido CCC /C6CC /C6 !!!Fa>  N NNN ! C#El artculo no puede ser compuesto CCC /C6CC /C6 !!!Fa>  N NNN ! tCArtculo inactivo CCC /C6CC /C6 !!!Fa>  N NNN ! C"BU# XINACTIVOSMEDIDASCODIGOBIENESCODINSCOD_INSTEMPORALEST_ACT COMPUESTOMEDCODDESCRP_CM_MODIFICAR_DESCRIPCIONBULTOS ATRIBUTOSLOTESSERIESCM_UNI2DUNIABREV DECIMALESCODALT1 XFULLDESCRXMEDIDAXEAN13 GET_DESCRIN_OPERACIONESBULATR DCODATRBULXTIPOEAN13MENSAJESTOCK STOCKSALECALCULAR_STOCK_ITEM- T TMproc_stkCCX  6>  %  T TMproc_stkC CX  6>FBUXSTOCK XSTOCK_FIS CONSULTA_STKPROC_STKTEMPORALCODIGOBULATRXDEPINGDEPINGSTOCKDISPXTIPOXDEPEGRDEPEGR STOCKSALEDISPSALE movimiento0 write_data fn_unidadesL fn_bultosUO test_stockRcarga_oc]imprimeecrear_y_validar_despachosserie_cantidadpcrear_tabla_temporalڋrecrear_tabla_temporalmsg_revisar_recepcionesmsg_revisar_unahvld_opvld_cndp˚vld_usr/copiar_formula carga_modelo nota_form base_rindeqdecimales_operacionespallets<asignar_lotes_automaticamentev get_descr buscar_comprobante"completar_registroKcalcular_stock_itemp1 AAAAAAAArAqAqAqAqAqAqA$BrBAs1A1A1A1A1AbAubr1qrF3!Arq1rBrq1rFBr11ADAs2!QAQAARtbABqdDBAAA2AAC215A2AAAAAAAAAAA1AAAABAAArAqAqAqAqAqAqArAqAqAqAqA4t1A$r1Ax3" A2qABqBrRQqQ11CABAAqBrrrs4A"rB"AAssRQArrQ"4ABrRARArCCAl2ABBA\2ABAABBACA 2ABBA2ABA2ABAABAbAAABrAQC1&2CBS2AAA11BBBbEdqQAbFABqAAqqAsrAw"!SASAcsbABBB2rB2AAA:DJAAbbrbs#r4 ABAAA ABrBAbRABur1bA$TAcBBAAAAAAAqsAABArBAgrAAA3!A1!A1!A1!A1!AB3AA2AAABB2qbrrbqaqAAAaqAAA2qbrrbqaqAAAaqAAA3qAAAAAqAFxArQ rts"Ar"BRARABrQAQrQAAtQAqQA1ABBBAvrs2AArABxAqDqqAqAAA1rrrrqArqAHAwsAAB2q2ArArArAAAAArba"arqAAbary rA$rG2aAAAARAACABUr"rrAAAArQs"trr1Aq!AA"rqbAaaarbqqbAaaarBBAA"BBRACAAq!A4ARQ"a""AQ!AtraaQAAB2RBAArAaaAAB3r2rARRABA"qqAABABq2Q2AA3AAPE%!b4qs1AqAq A1qqq1aAAqA2AAAArQ1A4qq1xqAqAaqAq2"Rq"AAAAB"Qq"AAAABA2qAq3qRqA11AA2trrQsarrrrBABB3q1Arq"rqArqArBsqr"rqArqARQBBB31r25qur!A!AL1!AAAAAB21111QA2rRqA2q5 BABrQB22rqsS!!AAA""Ar"AS!AAA""A1rRqqQAAAr2AAAAAr"ABC4`B2q1!AA2Q!AA2!!AABB3qrrArraqrz ArBQrBArAB32ArB1Ȗ8ޖ ] @ѷ |8} ZH j] w  ) + IW* lFG Z   /!o) k)*K p*/W /0 0j3 3D> [>?d ?C 2CKN YkNP%GnhB;OYAU UOIMPXLScls_imp_xls_Pos_Validar,1q3#p%P/n4L1;P9AO%CoFRMbOC 5  ?<%uB7*QGRF_TIPOborrar_graficos.PRG.TCgrf_tipoborrar_graficos.PRGborrar_grafico2J T 3TC GR_Parametrosborrar_graficos.prgTAT1c:\SISTEMA\2000\SYSTEM\data\1\xchg\tc_resumen.dbfT tc_resumenTMi Eje XT DTOC(Fecha)TMi Eje YGT4RGB(INT(rand()*254),INT(rand()*254),INT(rand()*254))T.T.T DTOC(Fecha)TEspacio graficoTGrafico9CCli'Cli'CCC8CC8CC8^;CPos1'Pos1'CCC8CC8CC8^C UXCLEANUPOFRMRELEASEOCHOCSXGPARXAX0XAX1OGRFBORRAR_GRAFICOSPRGBORRAR_GRAFICO2OFRMCCONTROLGRF_TIPO GRT_TABLA GRT_ALIAS GRE_EJE_X EJE_TITULO FIELDXAXIS GRE_EJE_Y FIELDCOLORFIELDDETACHSLICE FIELDLEGEND GRF_TITULO GRF_SUBTITULOGR_DATOSAGREGARAPLICARMSGRSHOW@%C#BC 9 BUTHISGRT_DATAMEMBER GRT_TABLAG%C*BC @ BUTHIS GRT_CONEXIONGRT_CONEXIONDEFECTO GRT_TABLA2TC gre_eje_Yborrar_Graficos.prg2TC gre_eje_Xborrar_Graficos.prg1TCgr_datosborrar_Graficos.prgUTHIS GRE_EJE_Y GRE_EJE_XGR_DATOS 'Q FOXCHARTS FoxCharts.vcx %C cQTTT  C C C TTUOFCXCSXDMTHIS GRT_ALIAS GRT_TABLA SOURCEALIAS_3DGRF_3D CHARTTYPEGRF_TIPO GRE_EJE_XAPLICAR GRE_EJE_YGR_DATOSTITLECAPTION GRF_TITULOSUBTITLE GRF_SUBTITULOP'Q FOXCHARTS FoxCharts.vcxTTUOFCTITLETHIS GRF_TITULOSUBTITLEGRF_TITULO_GRAFICO TC CollectionUTHIS GR_COLECCION-QSTRINGQSTRINGQSTRING8TCborrar_Graficos.prgC BU XDATO XDESCRIPCIONXCOLOROSERTHISGR_CLASE GR_COLECCIONADDKEYx'Q FOXCHARTS FoxCharts.vcxT(qCUOFC CHARTSCOUNTTHIS GR_COLECCIONCOUNTNITAPLICAR_FORMATOV6Q FOXCHARTS FoxCharts.vcxQINTEGERCCUOFCXINDEXTHIS GR_COLECCIONAPLICARQ OWC11.ChChart+Q GRD_SERIEborrar_graficos.PRG0QOWC11.ChChartField TCC f T  U OCHODATBORRAR_GRAFICOSPRGOFLDSERIESCOLLECTION PIVOTAXISFIELDSTHIS GR_COLECCIONBASENAMECAPTION DAT_DESCR Q OWC11.ChChart+Q GRD_SERIEborrar_graficos.PRG%{  9 QOWC11.ChChartField  TCC fT  UOCHODATBORRAR_GRAFICOSPRGTHIS GR_COLECCIONCOUNTAXESCATEGORYLABELSITEMCAPTIONOFLD PIVOTAXISFIELDSBASENAME DAT_DESCRBCfUTHIS DAT_CAMPO-QSTRINGQSTRINGQSTRING*QGRD_DATAborrar_graficos.PRGT"%C xDescripcionbL TTT U XCAMPO XDESCRIPCIONXCOLORXGRBORRAR_GRAFICOSPRGTHIS DAT_CAMPO DAT_DESCR DAT_COLOR6Q FOXCHARTS FoxCharts.vcxQINTEGERToFCTCCZ T .FieldValueT.LegendT.Color&xFV = THIS.Dat_Campo &xLeg= THIS.DAT_DESCR &xCol= THIS.Dat_Color UOFCXINDEXXOBASEXFVXLEGXCOLXTAIL$QSTRINGTUXTITULOTHIS EJE_TITULO*'Q FOXCHARTS FoxCharts.vcxUOFCS'Q FOXCHARTS FoxCharts.vcxTTUOFC FIELDXAXISTHISXAXISCAPTION EJE_TITULOy'Q FOXCHARTS FoxCharts.vcxTTTTUOFCYAXISCAPTIONTHIS EJE_TITULO FIELDCOLORFIELDDETACHSLICE FIELDLEGEND.Q GESENUMVALUEborrar_graficos.PRG%%CoValbO TTTTU OVALBORRAR_GRAFICOSPRG ENUM_ERRORTHIS ENUM_VALUE ENUM_NAME ENUM_DESCR ENUM_HEADK%C.BCC>\ D BUTHIS ENUM_DESCR ENUM_NAME ENUM_HEADTCUTHIS ENUM_COLLGET_COLLmHQ COLLECTIONQ GESENUMVALUEborrar_graficos.PRG TC CollectionTCb]TThis.!%CC >=  .2TC GESEnumValueBorrar_Graficos.prgT oVal.Enum_Value = &xCTag T  C  BU OCOLLNMEMSSTROVALBORRAR_GRAFICOSPRGSDDTHISXCTAG ENUM_HEAD ENUM_NAMEADDQVARIANT.Q GESENUMVALUEborrar_graficos.PRG%9TC GESEnumValueBorrar_Graficos.prg B2TC GESEnumValueBorrar_Graficos.prgTa BUXVALOVALBORRAR_GRAFICOSPRGTHIS ENUM_COLL ENUM_VALUE ENUM_ERRORQSTRING.Q GESENUMVALUEborrar_graficos.PRG TCCf9TC GESEnumValueBorrar_Graficos.prg 2TC GESEnumValueBorrar_Graficos.prgTa BUXNOMBREOVALBORRAR_GRAFICOSPRGTHIS ENUM_COLL ENUM_ERROR2Q FOXCHARTS FoxCharts.vcxTTSalesTcxAxisTnValue1TJANTCd^TnValue2T FEBT C^T nValue3T MART CJ^TnColorTlDetachTcLegendTTTVerdanaTTTT T!"T#$%T&'T()T*T+T,-.T/0 C1BU2THISFORM FOXCHARTS1 CHARTSCOUNT SOURCEALIAS FIELDXAXIS FIELDVALUE1LEGEND1COLOR1 FIELDVALUE2LEGEND2COLOR2 FIELDVALUE3LEGEND3COLOR3 FIELDCOLORFIELDDETACHSLICE FIELDLEGENDTITLECAPTIONTXTTITLEVALUESUBTITLE TXTSUBTITLEFONTNAME CHARTTYPE BACKCOLOR CNTBACKGROUNDSHPBACK BACKCOLOR2SHPBACK2XAXISCNTAXISTXTXAXISYAXISTXTYAXISBARSSPACEBETWEENCNTBARSSPNBETWEENBARS_3DSPN3D GRADIENTLEVEL SPNGRADLEVELTXTFONT SHPMAINCOLOR SHPAXISCOLORTHIS AXISCOLORSHOWVALUESONSHAPESCHKVALUESINSHAPES DRAWCHARTgrt_Datamember_ACCESSgrt_Conexion_ACCESSINITaplicar]aplicar_formato(INITagregaraplicar aplicar_formato aplicar_formato! aplicar_formatoe  Key_Access INIT3aplicarXINITaplicaraplicaraplicar INIT Enum_Descr_Access INIT Get_Coll> Get_ByValue Get_ByNameb Ejecucion_ejemplo5 T- T- T- T T TVTHProvider=VFPOLEDB.1;Password="";Collating Sequence=MACHINE; Data Source= T T T  T  T - T - T - T     U GR_SERIESGR_DATOS GR_CATEGORIAS GRT_TABLA GRT_ALIAS GRT_CONEXIONGRT_CONEXIONDEFECTOGRT_DATAMEMBER GRF_TITULO GRF_SUBTITULOGRF_TITULO_GRAFICO GRE_EJE_Y GRE_EJE_XGRF_TIPOGRF_3Dp T- T T-TGRD_Data T    U GR_COLECCION GR_LEYENDA GR_FUENTEGR_CLASE GRT_TIPODATOS0T grd_serie T UGR_CLASE GRT_TIPODATOS/TGRD_Data T UGR_CLASE GRT_TIPODATOS%TGRD_Data TUGR_CLASE GRT_TIPODATOSS T T T- T U DAT_CAMPO DAT_DESCR DAT_COLORKEYU1 T T  U EJE_TITULOEJE_FONT T U FIELDXAXIS7 TT.T. T U FIELDCOLORFIELDDETACHSLICE FIELDLEGENDT T- T T T- T  U ENUM_VALUE ENUM_NAME ENUM_DESCR ENUM_ERROR ENUM_HEADC T T-    U ENUM_HEAD ENUM_COLLTCH_ T T T T T T T T T  T  T  T T U ENUM_HEADCH_COLUMNCLUSTEREDCH_COLUMNSTACKEDCH_COLUMNSTACKED100CH_BARCLUSTERED CH_BARSTACKEDCH_BARSTACKED100CH_LINECH_LINEMARKERS CH_SMOOTHLINECH_PIE CH_BUBBLECH_AREACH_COMBOoTCH_ T T T T T T T T T  T  T  T  T  T T T T T T T T T T T T T T T T T T T  T! T"! T#" T$# T%$ T&% T'& T(' T)( T*) T+* T,+ T-, T.- T/. T0/ T10 T21 T32 T43 T54 T65 T76 T87 T98 T:9 T;: T<; T=< T>= T?> T@?TATBUC ENUM_HEADCH_COLUMNCLUSTEREDCH_COLUMNSTACKEDCH_COLUMNSTACKED100CH_BARCLUSTERED CH_BARSTACKEDCH_BARSTACKED100CH_LINECH_LINEMARKERSCH_LINESTACKEDCH_LINESTACKEDMARKERSCH_LINESTACKED100CH_LINESTACKED100MARKERS CH_SMOOTHLINECH_SMOOTHLINEMARKERSCH_SMOOTHLINESTACKEDCH_SMOOTHLINESTACKEDMARKERSCH_SMOOTHLINESTACKED100CH_SMOOTHLINESTACKED100MARKERSCH_PIECH_PIEEXPLODED CH_PIESTACKEDCH_SCATTERMARKERSCH_SCATTERSMOOTHLINEMARKERSCH_SCATTERSMOOTHLINECH_SCATTERLINEMARKERSCH_SCATTERLINECH_SCATTERLINEFILLED CH_BUBBLE CH_BUBBLELINECH_AREACH_AREASTACKEDCH_AREASTACKED100 CH_DOUGHNUTCH_DOUGHNUTEXPLODED CH_RADARLINECH_RADARLINEMARKERSCH_RADARLINEFILLEDCH_RADARSMOOTHLINECH_RADARSMOOTHLINEMARKERS CH_STOCKHLC CH_STOCKOHLCCH_POLARMARKERS CH_POLARLINECH_POLARLINEMARKERSCH_POLARSMOOTHLINECH_POLARSMOOTHLINEMARKERS CH_COLUMN3DCH_COLUMNCLUSTERED3DCH_COLUMNSTACKED3DCH_COLUMNSTACKED1003DCH_BAR3DCH_BARCLUSTERED3DCH_BARSTACKED3DCH_BARSTACKED1003D CH_LINE3DCH_LINEOVERLAPPED3DCH_LINESTACKED3DCH_LINESTACKED1003DCH_PIE3DCH_PIEEXPLODED3D CH_AREA3DCH_AREAOVERLAPPED3DCH_AREASTACKED3DCH_AREASTACKED1003D CH_COMBO3DCH_COMBO GR_ParametrosCUSTOM gr_datasCollCUSTOM! gr_series gr_datasColl:borrar_graficos.PRGA" gr_categorias gr_datasColl:borrar_graficos.PRG"gr_datos gr_datasColl:borrar_graficos.PRG"GRD_DataCUSTOM(# grd_serieGRD_Data:borrar_graficos.PRG#gre_EjeCUSTOM# gre_Eje_Xgre_Eje:borrar_graficos.PRG$ gre_Eje_Ygre_Eje:borrar_graficos.PRG1$ GESEnumValueCUSTOM$GESEnumCUSTOM1%grf_Tipo_ComunesGESEnum%GRF_TipoGESEnum'qAAAA2qaq11AA3AaA2!!2qQA123MAAba:q11<22qaQA2a81AB61AAA?2!A2aq=2q<q1a>qa111=Q1111A2AA6A2aAA!1QA2!BaAA"2a!A1!2ARqRqRqGQQsqQqqrAAAAA1a`5Q4a=Q?Q2<29;77<11"?C(tK.J R2j Y W@ ~D@mFbK4Q\T^Cln w*p Eem7 : !"#,L##59$Y$@z$i&C&'U(T)d063 oMsz GG!w&A)!.!#&6$^)=>)*rM*0%}YM^8GAG(9"T\tmp\CC]R  ve_pedidoG+(listadosG~(clases T  T TTC XTFacturaTAT T%D T T T T T )TModificacin de Comprobantes Tve_comprobante(a%H PedidoTP FacturaTV" Nota de CrditoITc! Nota de DbitoxTd RemitoTr THM VTFC rTRE d*TND cMTNCC Suspendo?a%P/FG((TCCVORD ETC ZTVoccclieQ Q!#$C%ZPCZctacte% + %>TC00CCZR-C00000000CCZRF'GGF %rG((remito E G((ccvfac EG GF%C4u-%C0CC*fANULADA q/+"El comprobante ha sido anulado !!!BT'KoccclieQ #$C%ZCZctacte,ge01BU.XPAUTOXPCAUSAXPCENXPLETXPNUM ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOLISTADOSCLASESXMONEDAXCOEFICXCAUSAXCOMPROBXCAUXLETXCENLOCALESVE_024XNUM XRESULTADOXTITULOVE_COMPROBANTEXTTSYS_MOSTRAR_SCREENTCCVENTTCCVORDXCOD_CLICOD_CLIDESPLPEDIDOCCCLIECOMPROBCAUSACUOTACTACTECCVENTREMITOCCVFACDES_CLIEMENSAJE CPBT_VIS2GE01q%B"BA4!AAAAAArBq"b"QA1AraaBAbaAAABBA2%AD!UAU4%TC]TC]$T(p_local+"\tmp\"+xarch)%C cur_rem_pendFQ T %T(p_local+"\tmp\"+xarch2)%"Tempty(tccvent.libfab) 4#T!empty(tccvent.libfab)HI SCH6T% and (!empty(ot) or condcobr.libprep) IND&T and condcobr.libprepselect distinct tccvent.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , tccvent.pedido as pedido , tccvent.ot as ot , tccvent.tran as tran , tccvent.ref as oc , tccvent.fec_ven as fecha , !empty(tccvent.libfab) as tilde , !empty(tccvent.libfab) as old_tilde, tccvent.libfab as libfab , tccvent.plan as plan , condcobr.descr as dplan from tccvent left outer join clientes on tccvent.cod_cli=clientes.cod_cli left outer join condcobr on tccvent.plan=condcobr.plan order by tccvent.pedido where tccvent.cod_cli#"0 " .and. &xfiltro into table &xdestino %Q\tmp\ FS\tmp\BU XTIPOXCREARXARCHXARCH2XDESTINO CUR_REM_PENDXFILTROP_EMPP_LOCAL4 TF~mFG((tccvord E%C4i%F> C;C C ZNLiberacin de entrega @F> CGC C ZN!Liberacin de entrega - Anulacin F >T%(CNo se han procesado pedidos /CSe procesaron CCZ pedidos BU XFECHAHORAACC CUR_REM_PENDTILDE OLD_TILDETCCVENTTCCVORDPEDIDOLIBFAB UPDATE_DTUSER_LOG PUB_INDEXMENSAJE obtener_datos0 transaccionf11BqAAQA2!1AaaaaApq*qAAB2qrAr#rsqrBrBB2AC1~$ I% b NBU%C,TETQCPBTTC Ta 0SELECT .F. AS eqsel, ccv.fec_ven, IIF(ccv.causa='V','FC ',IIF(ccv.causa='c','NC ',IIF(ccv.causa='d','ND ',IIF(ccv.causa='r','RE ','?? ' ) ) ) ) AS ven_cod, ccv.fac_ven, ccv.causa, cl.nombre AS cli_nom, SPACE(120) AS nombre,SPACE(120) AS direccion,SPACE(120) AS zipciudad, SPACE(120) AS provpais, SPACE(120) AS fc, space(120) as contacto FROM ccvent ccv LEFT OUTER JOIN cliaux cx ON cx.COMPROB+cx.causa =ccv.fac_ven+ccv.causa LEFT OUTER JOIN clientes cl ON cl.cod_cli=ccv.cod_cli ORDER BY ccv.fec_ven where ccv.cod_cli#"0 " INTO CURSOR &xAlias READWRITE ( T- BUXALIASXOKOEXs dey_func2CccventCcliauxCclientesCsucursalUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENED F <Q\paises T T T T T T T  T  T  T  T  T T T T T TTTTTCX TTCXTCX T T T TTC X T T!C X T"T#CX T$ T% T& T' T( T) T* T+ T,T-C(XT.CXT/CXT0 T1T2CXT3C(XT4C(X T5 T6<77  J(7 T8T9C(X T: T;- T<"= ve_pedido?@%C%T%ABTCC$TBC%TDC&5TECCC( C( - 6C'@TFCCC)GfCCC)G/6CHf,TI Contiene J ?UKXDATOSPAISESP_SYSTEM XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAIL XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORD XCAR_ARRIBOXCAR_INIXCAR_FINXCHOFER XCHOFER_DNIXDOM1XDOM2 XCAR_TARA XCAR_BRUTO XCAR_NETO XBOLSONES XFLD_CLI1C XFLD_CLI1N XFLD_CLI2C XFLD_CLI2N XTRANSPORTE XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS ZARR_TEXTOS XMAXTEXTOS XOCTXTSOLXIDIOMA XEN_MILES XTXTOTROS TRAER_CLI VE_PEDIDOFAC_VENCAUSACLIENTESNOMBRECONTACTO DIRECCION ZIPCIUDADPROVPAISPROVINCDESCRFCVEN_COD Obtener_cpbts0 open_files obtener_datos2qAAq#A2Aba2qqA311s1#A!!!Q2O & %IPJ5pWYB&ve_fe_visualizar(UXRESVE_FE_VISUALIZARG+( fe_funciones C T8TCCCZ0-CCCZ0 BUXTIPOXPTOVTAXNROXCAUSA FE_FUNCIONESXSTRXLETRATIPOCPBT_CAUSA  FTCO ~QC F o# yUXALIASXDIFXRECCOMPROBAR_CPBT} F ^JT )%C  խT  T T$TC    %CxDifbLT{Gz?TT$%P V r"TC 99-99999999-9_ TCCZTTTTFEccvfac%CCCVENT4N Ecodcli%Cclientes4w T%ScH_$ P V %CCZ%%CT TCTNo coincide el cuit. AFIP:  GES: C%F>FG((comprobE%C4>TT TWT(No coincide el tipo de documento. AFIP: CCZ GES: C%F>CCZTT `U%CCZC%CgCC=96CC[gCg6c%C_T TiT No coincide el documento. AFIP:  GES: CC=96C[6%F>96FG((comprobE%C4b>96TT QTWT(No coincide el tipo de documento. AFIP: CCZ GES: C%MF>CCZTT 2_ s FEcomprob%C4o H4 $ P V %CCZ% TCTNo coincide el cuit. AFIP:  GES: C%F>FG((comprobE%C4>TT  TWT(No coincide el tipo de documento. AFIP: CCZ GES: C% F>CCZTT `* %CCZc C%CgCC=96CC[gCg68 _ TiT No coincide el documento. AFIP:  GES: CC=96C[6%[ F>96FG((comprobE%C47 >96TT & TWT(No coincide el tipo de documento. AFIP: CCZ GES: C%" F>CCZTT 24 T$TC 6  F E%C4 T$TC 6  T%TCliente no encontrado%  J C!  T5TComprobante no encontrado - C F _JB%"#)%CC"#d8dqTgTEl importe de IVA no coincide (CC Z)CCC - 6CT$"#%%&c)%CC%&d8dET`TEl TOTAL no coincide (CC Z)- CCC - 6CT'%& F _JU(XALIASXDIF XCORREGIRXFAC_VENXCAUSAXTIPOXNCOOBJXDE_EXPORTACIONSERVICIOTIPO ARMAR_NROFACPTOVTANUMEROERRORERRORMSGDOCTIPOXCUITFDOCNROCUITFAC_VENCAUSANOMBRECCVENTCCVFACCOD_CLICODCLICLIENTESTARJETATIPODOCCLIAUXCOMPROBP_DEVSYS_MIVAIVA_VENDIFIVAIMPORTEDEUDADIFIMP TCC  TC TMPSWCPBT TCC  TCTMPCPBTS TCC  TC TMPCPBTSX %C TC Fh1 N N N NNCN N C<N NNQ   S%C TC Fsh1NNNN N NN N N N N !N "N #N $N %N &C'N (C)C*N+C,N-N.N/N0C<1N2C3C 4C<5N6N 7N 8N Q(T9PercIIBBCCZ$i19N( T9 PAg_Imp1_CCZ$i19NT9 PAg_Imp2_CCZ$i19N  S%C . TC Fh1:N.N;C <C=N >D?C @C0C<(NANNN N!NBNCNDCNNENFNGCHNINJNKNLMMNNNONPLQNRCSDTNUCx&C'N 1N2C3C 4C<5N6N 7N 8N Q( T9PercIIBBCCZ$i19N( * T9 PAg_Imp1_CCZ$i19NT9 PAg_Imp2_CCZ$i19N C S G(ges%CClientes Qclientes%CCCVENT Qccvent%CCLIAUX QcliauxUZXALIASXALIAS2XALIAS3XFILEXFILE2XFILE3XFILECNITODEYFUNCNEWFILE_LOCAL_TMPID FECHA_CBTE TIPO_CBTE PUNTO_VTACPBT_NRO MONEDA_ID MONEDA_CTZ IMP_TOTALCLIENTECUIT_PAIS_CLIENTECAE FCH_VENC_CAECONCEPTODOCTIPODOCNRO CBTEDESDE CBTEHASTACBTEFCHIMPTOTAL IMPTOTCONCIMPNETO IMPNETONOIMPOPEXIMPTRIBIMPIVA FCHSERVDES FCHSERVHAS FCHVTOPAGOMONIDMONCOTIZIVA RESULTADOCODAUTORIZACION EMISIONTIPOFCHVTO FCHPROCESOPTOVTACBTETIPONOMBREIVACATCOD_CENABREVDESC_INSCIERREZETADESDEHASTAXCOLTIPOFAC_VENCAUSANUMEROFECHACUITCOD_CLIIMPORTEDIFIVADIFIMPTIPODOCSERVICIOERRORERRORMSGIVA3IVA4IVA5IVA6 RESPUESTAFCEFCE_CONCFCE_TIPOFCEENVFCE_IDFCE_CAEFCE_VENCING_RESPING_MSGGESCLIENTESCCVENTCLIAUXs 3%C C C [TBa lB-UOFORMNITTYPEO CONTAINER1PBVALUE%Cv YC Ta(r T-  T- BUXTEXTOOFORMXPANELXOKTYPEO SB_ACTUALIZAROEX'  T  T %C  T   T T   T  (T  H? {)T Ca )T Ca% !C B U XSERVICIOXTIPOXPTOXDESDEXHASTAXAGREGARXCUITOFECTRLOFORMXOKXCANTTYPEO CONTAINER1PBVALUEMINMAXNIT OBTENER_CPBTOWSFEV1OBTENER_CPBT_EXOWSFEX ACTUALIZAR_PBsQINTEGERQINTEGERQINTEGERQBOOLEANQSTRINGQOBJECTQFORMQDATEG+( fe_funcionesF G(( inscripcio7CObteniendo comprobante CCZ...   QOBJECT T- T %C;T$TCC8C8C8%CCError de conexinB-%C T %Z  CCCZ:>C ERROR al obtener el comprobante CC Z. B- 3C Comprobante CCZ obtenido. TCCF% B%C TMPDDCURSORFQ&otmpcpbts- tmpddcursorRCCC CCZ_CPBTV1_Anterior_Respuesta.xml TMPDDCURSOR"F^J F_J BT!CC oObj.MonIDbC "C000CC "ZR6F#>$%&'CCC Z(C )C!PES *6T+C ,C!PES *6T-C -C!PES *6T.C .C!PES *6T/C /C!PES *6T0CC 1Z1 12 234CCC CCZ_CPBTV1_Anterior_Respuesta.xml%C( [5(WHS 56>75+ 56>85+ 56->95+ 56S>:5+O>;<C =99999999999999_>CCC ?Z@ AUBXTIPOXPTOXNROXAGREGARXCUITOWSFEV1OFORMXFECHA FE_FUNCIONESCLIENTES INSCRIPCIO SB_ACTUALIZARCBTENROOOBJXFAC_VENXCAUSAXDIFOLCPBT CUIT_EMISORFE_COMPROBANTES_ANTERIORESMENSAJEERRORSOERRCODEMSGFE_STOD RESULTGETCBTEFCHXCUITF TMPDDCURSORTMPCPBTSODEYFUNCGET_PATHXMONIDMONID TMPSWCPBTTIPOPTOVTANUMEROFECHAIVAIMPIVAMONCOTIZIMPORTEIMPTOTALIMPNETOIMPOPEXIMPTRIBTIPODOCDOCTIPODOCNROSERVICIO RESPUESTAOOVCIDIVA3IVA4IVA5IVA6FCEFCE_CAECODAUTORIZACIONFCE_VENCFCHVTOFCE_TIPOCBTETIPOYsQINTEGERQINTEGERQINTEGERQBOOLEANQSTRINGQOBJECTQFORMQDATEG+( fe_funcionesF G(( inscripcio7CObteniendo comprobante CCZ... '  QOBJECTQOBJECT T- T TC$ T T0TCFEX_Comprobantefe_objetos.prg%CT$TCC8C8C8%CCError de conexinB-% c&CCCZ:B-3C Comprobante CCZ obtenido. TCCF% B%C TMPDDCURSORF Q'o tmpcpbtsx- tmpddcursorPCCC"#CCZ_CPBT_Anterior_Respuesta.xml TMPDDCURSOR"F ^J F$_J FT%CCoObj.Moneda_IdbC &C000CC &ZR6TC '=-F(>)*+,CCC Z-C .C%PES /6T0C 1 99-99999999-9_2 '3 14805P67CCC"#CCZ_CPBT_Anterior_Respuesta.xmlO>89C :99999999999999_;CCC <Z= >U?XTIPOXPTOXNROXAGREGARXCUITOWSFEXOFORMXFECHA FE_FUNCIONESCLIENTES INSCRIPCIO SB_ACTUALIZARCBTENROOOBJXFAC_VENXCAUSAXDIFXFEC_VENXIDXCAEOLCPBTOCPBT CUIT_EMISORFE_COMPROBANTES_ANTERIORESMENSAJEFEXERRERRCODEERRMSGXCUITFFE_STOD FEXRESULTGET FECHA_CBTE TMPDDCURSOR TMPCPBTSXODEYFUNCGET_PATHTMPCPBTSXMONID MONEDA_IDCLIENTE TMPSWCPBTTIPOPTOVTANUMEROFECHAIMPORTE IMP_TOTAL MONEDA_CTZCUITCUIT_PAIS_CLIENTENOMBREDOCNROTIPODOCDOCTIPOSERVICIO RESPUESTAFCEFCE_CAECAEFCE_VENC FCH_VENC_CAEFCE_TIPO TIPO_CBTE /   %3  fe_funcionesa / fe_funcionesa% T BTH~ F%TC- ~%TC-%  T T B T TTC 8+a% T!THC {%TC- %TC-H  7 TTC 8% 3 T!  %%} T  T! TTC 8 2T+a%  T! H1 i%TC- %TC-%  T! T!%  TBTC 8 T+a,% T!TH %TC- %TC-H,(   TTC 8"%   T!   % T!   TTC 8 2( TT+a HT %TC- %TC-%    T!  TT!B%C eTCD B T%C C T C$TC 8  T  TC 8T+a T TH2  j %TC-  %TC-%C !%  /CFINAL CZCZCZC* B% = TC 8 e TCC 8% ! T/CFINAL CZCZCZC* BUXPTOVTA XTIPOCPBTXDESDEXHASTAXDIAS XCANTIDAD XSERVICIO OSERVICIOOFORMXDXHXFDESDEXCDIAFE_OBTENER_ULTIMOCPBT FE_FUNCIONESFE_OBTENER_ULTIMOCPBT_FEXXFECHAXOK OBTENER_CPBTOBTENER_CPBT_EXXULTIMO XANTERIORXNUMEROXNDESDEXLHASTAXADESDE SB_ACTUALIZAR3   T C Q? % +   c%C /TCFE_ControladorFE_Objetos.prgTT T C C!(C .TCC CAEX6T C T  T T% C C  A CC (C ~T Cave_fe_visualizar  C  !6  % .?CObteniendo PV: CC Z Tipo Cpbt:CC Z"?#ve_fe_visualizar  a#$ve_fe_visualizar %T%Ctxt&'( ve_funciones%U*XALIASOFECTRLOFORMXWSFEV1XWSFEX XCANTIDADXDIASXAGREGAR XNOCONTROLARXDIFXDXHXPTOVTA XTIPOCPBTXCUITNITNIT2 XSERVICIOXDESDEXHASTAXDCANT XTIPOCPBTSTYPEOLOGUEAR_WSFEV1 LOGUEAR_WSFEXINICIALIZAR_OBJETOS CUIT_EMISOROBTENER_PUNTOS_DE_VENTAOBTENER_TIPOS_DE_COMPROBANTES XTIPOCPBTEXOBTENER_DESDE_HASTAVE_FE_VISUALIZAROWSFEV1OWSFEX SB_ACTUALIZAR OBTENER_CPBTSCOMPROBAR_CPBTSXLOGODEYFUNCNEWFILE_LOCAL_TMPAGREGAR_COMPROBANTES VE_FUNCIONESTC%C1TCCC-6TCF CC6BUXARCHXINICIALXMSGOOBJ XRESPUESTATYPEOING_MSGING_RESP  FTCOC Suspendo?a~sCa F # UXALIASXDIFXRECSYS_MOSTRAR_SCREENERRORCOMPROBAR_CPBT armar_nrofackcomprobar_cpbtsXcomprobar_cpbt tablas_crear actualizar_pb sb_actualizar! obtener_cpbtss" obtener_cpbt1%obtener_cpbt_ex5.obtener_desde_hasta5controlar_todosAlogearGcorregir_cpbtsHr21ab2q!AA3QAAQAB!A4rqr2rAaC1A1qr1ABBqqCCb2B1Aqrr1rABCqqCABrAa1qr1ABCqqBBb1qrr1rABBqqCAB2ABBq1AQAABQAAqAAAA3qrrs#!A!@1'"AAAABA!1!AAAABAAA!A!A21aqqA1rAQQAA1qBaAaaAaAA11AAA!A21bq1rqAAqAQAqAAq3ArAAqAAa"qqQ$rQ.raaaaAAA51aq1rqaAAqAaqA2rAAqAAqqqQbrQ321A1A21Q1QA2A12AA21Q1QA1AA232AAA2A1Q1QA2AABBBAC4AA2AA21Q1QA1"AA22AA1Q1QAAAABABB!aAA11A11Q1QAAA1A2B1BAB211RA2AAARAA AB2AB2qAAB2qrB1AA1Kh MsK$o-W)-P.1j.[/@u/h2 b2?E?IJ>` [`Ek Xk~llm%.,5muTBU1%4qYBG(9G+(listadosG~(clases"T\tmp\CC]R ve_pedido%CDESPFLET Qdespflet T  T  T  T  T +aQ THM [ ve_terminar_despacho( %C   W! MFG((despacho E TCTTTTTTT !T"#T$%T&' T(T)* T+ T,-F.G((despacho E IT/C.0Reapertura de DespachoTerminar Despacho6G+(listadosG+(ve_armar_despachoG~(clases5%C$rpt_ve_remitos_pendientes_de_entregagF2QT3CXT4CXT5CXT6CX T7 T8 T  T  T9 T:;9%C$\tmp\rpt_ve_remitos_por_despacho.dbf0-%Crpt_ve_remitos_por_despacho 7Q \tmp\rpt_ve_remitos_por_despacho<F<<(-\tmp\rpt_ve_remitos_pendientes_de_entrega.dbf<Q-\tmp\rpt_ve_remitos_pendientes_de_entrega.dbfF2%CN%.04"ve_armar_despacho_por_remito_lista(   T  .C!No hay remitos en el despacho !!!> T  (.C!No hay remitos en el despacho !!!> T %C   I!% N T?H@trsac?ve_terminar_despacho.prg/C  ZH8Btrsac?ccventdespdespflet%?A2C%No se pudo iniciar la transaccin !!!>B-F.G((despacho E %.0 TCF>0'&%$D,*)! #"E F.~  TG.HFIG((remito %CGccventrem >0  TJ'_CRemito G no encontrado !!!C 'Revise que no se encuentre transferido.>!F. >0PCLC  ZHLibera CC.M .M.H6Estado=1K  TC%Cve_ped FNQF2( \tmp\ve_ped#Q \tmp\ve_pedNFN& OOF2G-(ONG(( ~` >PNP>QNQG-(FNQF2& HMRF>0'&%$D,*)! #"E F.~  TG.HTS.MFIG((remito EG%C4 FIG((ccvfacESV%C4 >0F2 G((idE.H.MF. >0>P2P>Q2QQCLC  ZHTermina CC.M .M.H6Estado=3K  qCLC  ZHTermina CC.M .M.H6. No encontr el comprobanteEstado=3KTUJ T?HVtrsac?ve_terminar_despacho.prg/C  ZH TW%?U J%C 9CSe ha reabierto el despacho CC Z !!!> F%X Y9CSe ha terminado el despacho CC Z !!!>5%C$rpt_ve_remitos_pendientes_de_entregaF2QBUZ ACTIVEFORM DATASESSIONIDLISTADOSCLASES XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDODESPFLETXNUMDESPREGMSGXRESXFORMXMAXFORMVE_TERMINAR_DESPACHOWIZARDDESPACHOXFECHA FECHAHORAXIMPORTEIMPORTE XINICIO_HORAINICIOH XINICIO_LUGARINICIOL XSALIDA_HORASALIDAH XCIERRE_HORACIERREH XCIERRE_LUGARCIERRELXALMUERZO_INICIO ALMUERZOI XALMUERZO_FIN ALMUERZOF XHORAS_USADASHORAS XOTROS_ITEMSOTROSVALXVALOR_DECLARADO XCOSTO_HORACOSTOHXCOSTO_CALCULADO XCOEFICIENTERECALCULAR_HORARIOSDESP XTRAN_TXTESTADOVE_ARMAR_DESPACHO$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGAXDCLIXHCLIXDAGEXHAGEXDESTXDESPXDXTIPOVE_SQL_REMITOS_POR_DESPACHOXXX"VE_ARMAR_DESPACHO_POR_REMITO_LISTAMENSAJEAAABEG_TRANTRSACLOCK_GXESTADOCOEFICFECHAFINFORXREMITOREMITOCCVENT TTS_ERRORUSER_LOG PUB_INDEXFACTURAVE_PEDENTREGADENTHENTIDXFACTURACCVFACXOKEND_TRANTTS_IDP_USAR_DESPACHO DOS_TRANSF 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM4%FG((despacho E%C48%CCC6 -T Debe estar armado o terminado!!!B-  TCOBa  &TNo existe el despacho !!!B-BaUREGXNUMDESPDESPDESPACHOXTIPOESTADOMSG5%C$rpt_ve_remitos_pendientes_de_entrega_TC Data_Statussys_clases_tablas.prg$rpt_ve_remitos_pendientes_de_entrega-aFG((K( C%C C T< <  TT  %% uT   d  T +CEl coeficiente es invlido !!!   T UODS$RPT_VE_REMITOS_PENDIENTES_DE_ENTREGABASEXVALOR_DECLARADOPOP XCIERRE_HORA XINICIO_HORA XHORAS_USADASXCOSTO_CALCULADO XCOSTO_HORAXIMPORTE XOTROS_ITEMS XCOEFICIENTEMENSAJEwizarddespacho_validorecalcular_horarios""BAA1AA2w2rr#TqAAtqAqr!aBAAAAABB22!qArar tArAArBrqAAq2qraAarAr!s rArrB~1rBBA$12rBBABRqAAB31r12A12A1r1Aq2q1qqqAaqAAq2qTqaAAR2AA1e\Oup"%qQ YBU,BCaUXTEXTOXVALORXFORZADO PONER_PIPEG;!BCUXTEXTOXVALORXFORZADOXANCHO XPUNTODECIMAL PONER_PIPENN;!BCUXTEXTOXVALORXFORZADOXANCHO XPUNTODECIMAL PONER_PIPENN;!BCUXTEXTOXVALORXFORZADOXANCHO XPUNTODECIMAL PONER_PIPENNA#BC-UXTEXTOXVALORXFORZADO XDECIMALESXANCHO XPUNTODECIMAL PONER_PIPEGA#BC-UXTEXTOXVALORXFORZADO XDECIMALESXANCHO XPUNTODECIMAL PONER_PIPEGX#2BC|-U XTEXTOXVALORXFORZADO XDECIMALESXCUITXANCHO XPUNTODECIMAL XANCHOMAXIMOPONER_SEPARADORG1BCaUXTEXTOXVALORXFORZADO XDECIMALES PONER_PCOMAG3BCUXTEXTOXVALORXFORZADOXANCHO PONER_PCOMANN3BCUXTEXTOXVALORXFORZADOXANCHO PONER_PCOMANN3BCUXTEXTOXVALORXFORZADOXANCHO PONER_PCOMANN9BC-UXTEXTOXVALORXFORZADO XDECIMALESXANCHO PONER_PCOMAG9BC-UXTEXTOXVALORXFORZADO XDECIMALESXANCHO PONER_PCOMAGH*BC;,UXTEXTOXVALORXFORZADO XDECIMALESXCUITXANCHOPONER_SEPARADORGK-BCNINGUNOUXTEXTOXVALORXANCHO XDECIMALESXQUITARGUIONESCUITXREEMPLAZOSEPARADORPONER_SEPARADORGR0BCNINGUNOUXTEXTOXVALORXANCHO XDECIMALESXQUITARGUIONESCUITXREEMPLAZOSEPARADORXFORZADOPONER_SEPARADORGTTC  "BCUXTEXTOXVALORXFORZADO XDECIMALES XSEPARADORXREEMPLAZOSEPARADORPONER_SEPARADORG'  (u.TC  BU XTEXTOXVALORXFORZADO XDECIMALESXCUIT XSEPARADORXREEMPLAZOSEPARADORXANCHO XREPETICIONESNITPONER_SEPARADORG+  TC  TC TC T C  TC; %NINGUNO TH. CxValorbDT C CxValorbT5T CC \ CxValorbLnT C106 CxValorbCTC*T CCV C 61T C  C >  C = 6 CxValorbN:T C9C QC.C9Q6T C _% T C .H T C  T CC 0  T CC c  2. T %TT C -%CxTextobC T %C xSeparadorbCT|%C> TT  BU XTEXTOXVALORXFORZADO XDECIMALESXCUIT XSEPARADORXREEMPLAZOSEPARADORXANCHO XPUNTODECIMAL XANCHOMAXIMOXVALORTXFORMATOPoner_Pipe_CUIT0 Poner_PipeN Poner_PipeN2  Poner_PipeN0 Poner_PipeNX Poner_PipeNN Poner_PipeG7Poner_PComa_CUIT Poner_PComaNh Poner_PComaN2 Poner_PComaN0@ Poner_PComaNX Poner_PComaNN) Poner_PComaG Poner_Junto= Poner_Junto2Poner_SeparadorPoner_SeparadorG_Repetirg Poner_SeparadorGp 32q2q2q212121!912121213q4q3223A!2qqA2A111AAQ!1A111AA1AAAA1fi 3 |>_1g&*~. 2"/7%] =(  B+:  F.+ J13 O5. OT<u\%! 5Q1SC G(9 $ C in_comienzoF-  %C4 lC_Debe estar definido el motivo correspondiente a una transferencia por aprobacin de calidad !!!B-T  T C] aFG((codigo-  T TT T- T % C CB in_calidad(BU ACTIVEFORM DATASESSIONIDABRIR_TABLAS_FIJAS OPEN_FILES IN_COMIENZOMOTINVTIPO TIPOAJUSTEMENSAJEXMOTIVOCODIGOXTABLA OBTENER_DATOSXDEPOSITO_CALIDADDEPEGRXDEPOSITO_APROBACIONDEPINGXDEPOSITO_RECHAZODEPING2XERRXMSGVALIDAR_DATOS_FORM IN_CALIDADXRES%Cstock (Qstock%Cstkxdep XQstkxdep%Cdeposito Qdeposito%Ccentral Qcentral%Cconver Qconver%Cmotinv Qmotinv%Cbienes DQbienes%Catributo vQatributo%Cbultos QbultosBU STOCKSTKXDEPDEPOSITOCENTRALCONVERMOTINVBIENESATRIBUTOBULTOS4F"-  %C4WTJLa cantidad aprobada no debe ser superior a la recibida ni menor que 0 !!! T-B- '%Cdepositodeposito=% S'%Cdepositodeposito'%CdepositodepositoM 0T#Depsito de rechazo inexistente !!! T-B- 3T&Depsito de aprobacin inexistente !!! T-B- 9-T Depsito de calidad invlido !!! T-B- 0T#Depsito de calidad inexistente !!! T-B- T TaBaU XERRXMSGXDEPOSITO_CALIDADXDEPOSITO_APROBACIONXDEPOSITO_RECHAZO TABLA_CALIDADCAN_CALCANDEPOSITOCALIDAD4 TC]%Cq_tmpHQ%Cq1gQ%Cq2Q%C tabla_calidad ch1\tmp\  C C C CCNNN NC CN C(CNCLNDDC(N C!C Q\tmp\ "& CC Z#% % %$$oconverQ&XproveedoQ0 707XatributoQ9 % %:XbultosQ3 % 3%3:bienesQ=%Q   'Q (Q)*+Q,Q-Q.Q/QC01C(XQ)*Q,QCC2 CC2қ CC32қ(Q4QMQ  RECEPCIONQ!C>( %% %  ,-.1\tmp\  oconverQ&XproveedoQ0 707XatributoQ9 % %:XbultosQ3 % 3%3:bienesQ=%Q   'Q (Q)*+Q,Q-Q.Q/QC01C(XQ)*Q,QCC2 CC2қ CC32қ(Q4QMQ  RECEPCIONQ!C>( %% %  ,-.q1oproducciQ0XatributoQ9 0?0 %:XbultosQ3 0?0 3%3:bienesQ=0?Q 0 0 0@Q 0AQ0B0CQ0DQQ0,QC XQCdXQ0DQC PRODUCCION(Q0BQ0,QCC2 CC2қ CC32қ(Q0EQPQ  PRODUCCIONQ!C0GA %0? 0?0 0 0,q2-oq2q1Ǽ1\tmp\  }oconverQ&XatributoQ9 % %:XbultosQ3 % 3%3:motinvQMdepositoQKbienesQ=%Q   'Q (QC>) 6QC>) 6Q,Q.QHIJ2Q>QCC2 CC2қ CC32қ(Q4QJQ CJM RECEPCION PRODUCCION6Q!C,CC$d O ? P  (N %% %  ,-.q_tmpoq_tmpconverQ&XproveedoQ0 707-Q/QC01C(XQ,Q)*Q4Q M6CCCH,g ZCIZC ZCZ %  ,-q1oq_tmpproducciQ0C XQ0DQC PRODUCCION(Q0,Q0BQ0EQ PCCH,g0D 0Q ?  ,q2-oq2q1Ǽ1\tmp\ TCWF"S"\tmp\ FQ\tmp\.*F"BUR XDEPOSITOXCREARXTIPO XTABLA_TMPXAREAQ_TMPQ1Q2P_LOCALXTABLACODATRBULLOTDEPCANCAN_CALTRANSFITEMREMTXTORDNOMCOMRECHDDEPAPORIRECFECARTPRICAUCAUTXT TABLA_CALIDADIDP_IN_CALIDAD_VERSIONCOD_INSCDESPACHODEP_INGENTRASALE PROCESADOFECHAREF2COMENTORDENPNOMBREDESCRBU FACTURADOCONVERPROVEEDOCOD_PROATRIBUTOACLAVEBULTOSBIENESBAPROBADOCODIGOLOTEDEPINGREAL CAL_APCANPROD CAL_PRIORPRODUCCI CAL_APROBREFREFITMREFCAUDMOTINVMDEPOSITOMOTIVO TIPOAJUSTEPEND ,sys_procesando InicializandoTC]T\tmp\+in_operacionestemporalF~  TT C  ZT  T%rtemporal   !a% Prtemporal"    !- T# T$T%&' T(C$ T))sys_procesando Procesando#*in_operaciones+sys_procesando B)U, SP_MENSAJESYS_PROCESANDOXTABLA_TEMPORALXPATHP_LOCALCREAR_TABLA_TEMPORALIN_OPERACIONES TABLA_CALIDADCAN_CALRECHXREFTRANSFXREFITMITEMXREFCAUCAUCODIGODEPINGDEPEGRENTRASALEDESPACHOBULATRREFREFITMREFCAU COMENTARIOAPCODXDEPOSITO_APROBACIONXDEPOSITO_CALIDADLOTCOMXDEPOSITO_RECHAZOXDEPINGXDEPEGRXTIPOMOTINVTIPOXFECHA XRESULTADO WRITE_DATASP_OCULTAR_DEFINITIVAMENTEVF~ K%MF G((MOVEC ZCZ%C4>#> C 6 GF G((prod E%C4C>%  ?>C6BU TABLA_CALIDADCAN_CALRECHCAUCONVERMOVTRANSFITEM PROCESADOAPROBADOENTRASALEPRODUCCIPROD CAL_APCANPEND CAL_APROBREAL open_filesEvalidar_datos_formI obtener_datos| transaccion aprobar_finalAbsqAsAAcB3rA1AAA1A!A!A!AAA!AD2qr"qqqqqqqA1qAqAqAAq3bA1A1AQB22A"q! B0'~ BrAArB3uS2S A2S AB42xBr3Bq2ABAAA1J.E<M# oa= H(`(V.p.1%{10vV3CU  T# pr_funciones&%S S %Cstock QstockF G((codigoECX%C4T  T BC6U XCODXBULXATRXFACTORPR_COMB_BUSCAR PR_FUNCIONESBIENESBULTOS ATRIBUTOSSTOCKCODIGOFACTOR(%CxFactorbN ]TC% T%T T BU XUNIDESTINO XCANTIDADXFACTORXCODXBULXATRIN_OBTENER_FACTOR%CxCM_Uni2bNM T- T%CMedidas }QmedidasEcodinsDEcodigoCC  6   6TT T BUXCOD_INSXCM_UNI2XMEDIDAXDESCRXFORZADOMEDIDASCODINSBIENESCM_UNI2MEDCOD MEDAUXCODCODIGOABREVDESCRin_obtener_factor,in_convertir_uni_cantin_medida_articulo111aqAqrAA3A1A1A3qA1AqA13!^& %/3r0,SXUCU"G+(dey_func in_funcionesFG((CONVER%m ETC FC F #)~ T%C %  C bienescodinsT%SC%   9C    despachodespachoT0TCC  C  C r tmp_rotulos !"#$%&'a    CC !CCZ-CCCtemporalOZ 6C] 'U(XNEWTRFXFECHAXPROVEEDDEY_FUNC IN_FUNCIONESXVENCCONVERTRANSF XTMP_ROTULOSNEWFILE_LOCAL_TMPIN_ROTULOS_CREAR_TABLASTEMPORALENTRACODIGOBIENESCOD_INSFECHAVENCLOTESATRBULDESPACHOXDESCRDESCRDATRDBULSELBIE_CODBIE_BULBIE_ATRBIE_DESMOV_FECMOV_CANTMOV_NUMMOV_PROMOV_LOTEMOV_VENCIDUPALLET COMENTARIO"G+(dey_func in_funciones%Cdespacho PQdespacho%Cbieaux ~QbieauxF ~ CbienescodinsCbieauxcod"Cproveedocodpro?%C despachodespachoF> C  R P T T C aZ>  C6C C w)%CCbieaux.sga_msgbCM>CCCCCCCC C !C#"$% #)BU&DEY_FUNC IN_FUNCIONESDESPACHOBIEAUX TMP_ROTULOSBIE_CODMOV_PROMOV_LOTEBIE_BULBIE_ATRIDU_DSPIDUXMEDIDA XMEDIDA_ABREVIN_MEDIDA_ARTICULOBIE_UNI BIE_UNI_AROT_CANTCANTXENVBIENES UXBCOMPRACANT_ROTMOV_CANTPICT1 OBTENER_PICTPICT2PICT3PICT4PICT5PICT6PICT7PICT8PICT9MSG OBTENER_MSGSGA_MSGLBXEQZ*C obtener_msg T%Csga_msg pQ\sga_msg%C B C,  (CBTCC C C 6CC   BU XVARXMSGXOKXERRMSGXAUTSYS_MP_SYSTEMAARRAYODEYFUNCSPLIT_TO_ARRAYNIT AGREGAR_MSG H3 CxcodigobCs#TCCgCg6 2 TH CxBuscarbN"TCsga_msgCodigo CxBuscarbC#TCCsga_msgID%?BC TCCC C 60No se ha encontrado el cdigo de mensaje de SGA CCxCodigobCCCZ6 !!!% C  T- BU XCODIGOXOKXERRMSGXAUTXRESCXAREAXENCXBUSCARSGA_MSGMSGMENSAJE#  %CxVarbLbTC  T T T    J( C ,%G T(C :$CaC B%C { T T TCC GHSGTCgH^!  G05 TG05!TCorrosioncutanea.jpg!  G07 dTG07T Irritante.jpg!  G01 TG01TExplosivos.jpg!  G04 TG04!TGasescomprimidos.jpg!  G03 XTG03%TLquidos-comburentes.jpg!  G09 TG095T(Peligrosoparaelmedioambienteacuatico.jpg!  G06 TG06TToxicidadaguda.jpg!  G08 dTG08%TPeligroporaspiracion.jpg!   G02 TG02$TLiquidosinflamables.jpg C 1[TCCC C 6No se encontr el pictograma: CGGHS T- 2^ T T B1TCC  \img_sga\C6 BUXIDXXVARXOKXERRMSGXAUTXFILEXRESCXLISTAXRESXDXHBIEAUXSGA_PICTAARRAYODEYFUNCSPLIT_TO_ARRAYNIT OBTENER_PICTTX_AGREGAR_ITEMP_SYSTEM~ T( nATCCC C 6CCZ - C BUXMSGNITOBTENER_PICT_NOMBREU: H* MTCorrosivo (GHS05) ~TIrritante (GHS07) TExplosivos (GHS01) $TGases a presin (GHS04)  TComburentes (GHS03) k>T1Peligroso para el Medio Ambiente Acutico (GHS09) $TToxicidad Aguda (GHS06) +TPeligro por Aspiracin (GHS08)   TInflamables (GHS02) 2* T BUXRESXMSG%TCFC%jCbienescodins+%C    #Catributocodigo+%C    !CbultoscodigosT CC CSC  C 6C SC  C 6r tmp_rotulosa C]UXCOD_INSXATRXBULXLOTE XTMP_ROTULOSNEWFILE_LOCAL_TMPIN_ROTULOS_CREAR_TABLASBIENESCOD_INSATRIBUTOCLAVEBULTOSXDESCRDESCR ATRIBUTOSTEMPORALSELBIE_CODBIE_BULBIE_ATRBIE_DESMOV_FECMOV_CANTMOV_NUMMOV_PROMOV_LOTEIDUPALLET COMENTARIOTCCX TCCX TCCX TCCX  5 T  T a  in_comienzoaTC +in_operacionestemporal%C?7in_operaciones temporal ICimprimir% %CC C C T(in_rotulos_seleccionar(F)    3%CNSCFQ%C  .*% FQ.* B UXNUMMOV XNO_LIMPIARXCOD_INSXATRXBULXLOTEXBORRARXFECHAXPROVEEDXOK XTMP_ROTULOS OPEN_FILES IN_COMIENZOODEYFUNCNEWFILE_LOCAL_TMPCREAR_TABLA_TEMPORALIN_OPERACIONESRECREAR_TABLA_TEMPORALSYS_MIN_ROTULOS_SELECCIONAR LLENAR_TABLACOMPLETAR_DATOSXOFFSETXRESULTA TMP_ROTULOSFORSELROT_CANTCANTXENVIN_ROTULOS_IMPRIMETEMPORAL4%C TMP_Rotulos.FQFdh1LCCCC C N N C C(CTC CN C CC(C CNNN CC$C CN  C!C"C#C$C%C&C'C(C)M*C+DQU, XTMP_ROTULOS TMP_ROTULOSSELBIE_CODOBIEDATA_CODIGO_LARGOBIE_ATRBIE_BULBIE_DESMOV_LOTEMOV_CANTROT_CANTPRO_CODPRO_DESMOV_PROMOV_FECMOV_REMMOV_PREMOV_NUMIDUPALLET COMENTARIOBIE_UNI BIE_UNI_ACANTXENVCANTIDADIDCODE128 CODE128_3IDU_DSPIDU128CANT_ROTPICT1PICT2PICT3PICT4PICT5PICT6PICT7PICT8PICT9MSGLBXMOV_VENCG+(dey_funcCproveedoFG((codpro%f ETC*%T CC @z 999,999,999_T C T CTCTCTCT%CCPBT\ _rotulos.prg0#CCPBT\ _rotulos.fxp0 b Ta  T-%C rotulos_stockFQF (FQF ~bTCCC-6CCC-6CTCTC T!C"T#C$T%CC&Z(T'CC(@z 999,999,999.99_8T'CC'R.00C'C'>['6%5)T)C.txtG G. G()G G 'CPBT\ _rotulos.prgGG(%*{  1aaa=1)(lpt1ON ERROR &onerr %*$CArchivo generado : ), G+( code128.PRG T/0(1<2F^(2F_2>33%04(>5(/ T//4 >54H 6">-C 7 6G>-C7 6>-CC&C 7>8CC&C 7 2%>-CCCCC 7>9C:7^(2;(&F_2F ><CO0(c><0c& << T>,%C?\cpbt\ROTULOS_STOCK.LBX0 T@TAROTULOS_STOCK.LBX TB TCTDRSTCC Z4C'Impresin de rtulos(ROTULOS_STOCK.LBX)EVFlistadosA@CBD.t.aaaaa QCNo existe el formulario !!!CH(ROTULOS_STOCK.LBX)6,UIXOFFSETDEY_FUNC CHK_OPENEDPROVEEDOCODPROCONVERCOD_PROZFECHAFECHA ZOPERACIONTRANSFZREMITOREF2ZPROVEEDOR_CODIGOZPROVEEDOR_NOMBRENOMBRE XNO_ZEBRAODEYFUNCNEWFILE_LOCAL_TMP XPATHCPBTGET_PATHP_EMPXZEBRA ROTULOS_STOCK TMP_ROTULOSZCODIGOBIE_CODBIE_ATRBIE_BUL ZDESCRIPCIONBIE_DESZLOTEMOV_LOTEZPALLETPALLET ZCOMENTARIO COMENTARIOZCANTIDAD_ETIQUETASROT_CANTZCANTIDAD_TOTALMOV_CANTZFILEP_DEVLPT1MENSAJECODE128PRGACCZCANT_ROTARR_ROTMSGCANTXENVCANTIDAD P_IN_SCAN_COD CODIGO128A CODE128_3IDU128IDU_DSPZZIDALLZCOPIAP_SERVERXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVOSYS_MIMPRIMIR_FORMULARIOLISTADOS PUB_INDEX4 T T T T#%Cconverconver&%CmotinvcodigoTTC Cconver2conver8TCC Cconver2+  6%CP(%C proveedocodproLT  2T%Motivo de operacin no encontrado !!! T (TOperacin no encontrada !!! T BUXERRXMSG XOPERACION XCONCEPTOXDMOTIVO XES_REMITOCONVERMOTIVOMOTINVDESCRCONVER2COMENTCOD_PROPROVEEDONOMBREin_rotulos_seleccionar0completar_datos obtener_msg agregar_msgU obtener_pict Obtener_Pict_HLP Obtener_Pict_NombreObtener_Pict_Nombre llenar_tabla in_rotulos_reimprimirLin_rotulos_crear_tablasin_rotulos_imprime!validar_operacion,1"rsaAqQA4QAqr1AABP1A4"AA!Ar!SB ABB2qAA!A1q1A!1AAA312!ABAQAAaAQQQA!A2qA231111A111A11A21bA1AA2@ 7RQQQ2rrBRbArA"ArA"ABqAA3qqAAA&3q#RqaA#Q!!!rABqAArBu$"!!!AtaaaarcaA22AAVrrsQsA1Q1!1QA"rQABBBqQABbA4qr2e"AA"AA1"f! E; LoeF&.;}1"K"'y"(/,Z,> ?!B% \/ =mDsCUm %Ct% B%Cm.cadenabNZT C _%Cm.cadenabC BT C 3        T gT C{ T  T C~  (C >T C \T C )T  C {  F6T    .T  C  C  6T CC gGD=T  C ZFC  66T C  T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCIICHECKSUM CARACTERFINALm %Ct% B%Cm.cadenabNZT C _%Cm.cadenabC BT C 3        T hT C| T  T C~  (C >T C \T C )T  C {  F6T    .T  C  C  6T CC gGD=T  C ZFC  66T C  T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCIICHECKSUM CARACTERFINAL %Ct% B%Cm.cadenabNZT C _%Cm.cadenabC BT C 9         T iT C} T  T C~ %CC >GIT 0 % (C >T C \T C g)T  C Z !G6$T   C  wT  C  T CC gGD)T  C Z !G6T C  5T C C C C C C C T     B U CADENAVUELTASUMACARACTERINICIALCOLETRA VALORASCII VALORREALCHECKSUM CARACTERFINAL Codigo128A0 Codigo128B Codigo128C18A1AA121A128A1AA121A127A1AA1aAQ1AA1S1$ ';3 M  ( @   %)0C4%Cborrar)FQ%SCHoccclieclientesQQQC Q C Q  V   C$  borrar occclieclientesQQQC Q C Q  VcdL   C$  borrar%C\XCHG( \XCHG\cli_deu( \XCHG\cli_deuԻ% FCSe han exportado los saldos a C\XCHG\cli_deu !!!@1B(Se han exportado los saldos de clientes. -BNo existe la carpeta : \XCHGUXAUTBORRARP_EMPCLIENTESCOD_CLICODIGONOMBRE INSCRIPCIOCUITCCCLIEIMPORTEADELANTOVENCFECHACAUSACANCELP_SERVERMENSAJErrqAAb J AaAA1% e3 z/RC % TC&ad:\sistema\system_sri CTCSQTBORRAR1Tsprusr Ta Ta \data\1\ges.dbc  G(9 %Cclientes 2Qclientes%Cccclie `Qccclie%Cagente Qagente%Cven_oper Qven_oper%Cventa_promedioQ%Cq2 Q%C deuda_vencida4Q%CdesplazXQTC]Bve_sql_facturas_a_cobrarC3 $FQ\tmp\+o deuda_totaldesplazKoclientesQX deuda_totalQ( Xdesplaz XcondcobrQ * +C !C(XQ"CC#CHC$6Q%CC#CHC$6Q&CQ' !qSoccventC- Q.C0C$ZC$venta_promedioFQT1C]8ve_sql_facturas_a_cobrar1C$FQ\tmp\14o deuda_vencidaC$Q2q2-o deuda_vencidadesplazTC]oqXventa_promedio ,Xdesplaz ,Xq2 ,,,,%,&,%,&Q3,'Q'CC.TQ.CQ4C2Q2,Q,%,&,Q5,"Q",,,%,&%& . ,1\tmp\G+(listadosG~(ClasesT7C ExportacionesN(T8CExportaciones_ParametrosN!T89Deuda de ClientesT8:\tmp\T8;C89 C8< Ccod_cliCdigo8<CnombreNombre8<#CsaldototDeudaa8<+CchqCheques Pendientesa8<(Ctotal Deuda+Chequesa8<)CplazototDesplazamiento8<,C saldovenc Deuda Vencidaa8<8C plazovencDesplazamiento deuda Vencida8<9CventaVenta Mensual Promedio 3 Mesesa8<!CcreditoCrdito8<CexcesoExceso8<(CdplanPlan de Cobranza8<T8=C87>%Cventa_promedio Q%Cq2 Q%C deuda_vencidaE Q%Cdesplazi Q G(9 U? XDESARROLLOBBB DEY_FUNC2SETSCL_ATRCL_NOMCL_AVEP_DEV P_SUSPENDP_SYSTEM ACTIVEFORM DATASESSIONIDCLIENTESCCCLIEAGENTEVEN_OPERVENTA_PROMEDIOQ2 DEUDA_VENCIDADESPLAZXTABLAEXPORTAR_PARA_DESPLAZAMIENTOVE_SQL_FACTURAS_A_COBRARP_LOCAL DEUDA_TOTALDISTINCTCODIGODESPLCLICLCOD_CLINOMBRECREDITOCDDESCRDPLANCPBTSALDOSALDOTOTCHQPLAZOTOTDCONDCOBRFPAGPLANQDEUDAVENTACCVENTFEC_VENXTABLA1 SALDOVENCTOTAL PLAZOVENCEXCESOLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSqBQb3A1SAAAA!A!AAAA1AAA#9rABa$!Q1 A1AAAA1GIF89a22GI69݅椦}Ոjoeeh׵ゃEFH;<|~[\$$giᗙuw˸'*߶HHhhﹺ򑑕=At {z}qqsLPʡխBEɫknbdstꧨ왙]aӍvuxIL[]/3mloWZnoQS FI跷쎏 89UWPRhjfh!$zty겲ϰ䐚00dgpsxx|\[^X[?BEIJMqmp!,22 H^!B k`9N|ȱLB I1(Qb%DS|:XMIG8SL'@LJ)H >|x*Zv%~%b’pGA Ԩ>wR- B)ɉ_ԡa#˼$D`^clP 9@.P h" ,죗~Q@f)p{m!pz hp@#ʈMxh tDjpx P*ѹ`pl4 dX+@pb`Z |}-@~lPGD/~n [TE( &'Р-aPf/ h$w7V`pvb D%v[v nE+8 @f@`8  Dr`ZA;xq}% /' <Ȁ [0Q#AfFzф"``贰 4pPB T2̰y*.z1 Є#YD"طu! J#la" <0/YD a*y H? hPa5Tf0@.B`M!za-A2Ǩ*h 'W hhX/8@*Pa@V]M#7q+@pH\`B .H%Ґ\.q XEC-YAp.@ՠF@;%dNC G(9< 7obatchCOQ CXQ CXQ -Q C C' vista_batchR,: Aguarde... ~mH V0TFC C= 00C \ r[0TRE C= 00C \ c0TNC C= 00C \ d0TND C= 00C \ 5'0TDP C= 00C \ POTPD  pwTOC  NTOC  CuvTOP  2T?? C%C X+)TC= 00C \ B T'>  -  -%INDE& CCCRgC= C X6 &  C XR +a #) ve_spooler(H8 ]TX! ~TB TI TS%XB T G( TN%BX>TCCEst seguro de borrarlos ?SN6  %I T1< Impresora ? (1/2/3/4) :@!F#)+C+ f H+ VTFC  F=TFc  reTRE  cTNC  dTND  5TDP  PTPD  2+TDESCONOCIDO !!!2C!Presione para imprimir : %C=j HP  VQ Coloque la resma de facturas C= y presione . F rkP Coloque la resma de remitos C= y presione . cY %Coloque la resma de notas de crdito C= y presione . d 5 P X $Coloque la resma de notas de debito C= y presione .TC="T\out\.out TH H  1 TC  2 TC  3) TC 2H TC  T!a > aH>  G G*(   %B S TN>TCCEst seguro de borrarlos ?SN6%S #)+C+ % "T\out\.out F #FHG(FG( T#a T+ao %Cbatch F  1aaa=1 Qbatchon error &onerr %R T#-! k T#a!%# F 3 Qbatch G*(lpt1%Cborrar FQ%Cborrar1 F%QBU& ACTIVEFORM DATASESSIONIDCADENAREGISTROREMITOFAC_VENCAUSAARCHSPOOLEDMARKEDIDIDREMITOIMPRESOBATCH VISTA_BATCHTEMPTEMP1P_EMPBORRAR VE_SPOOLER XRESULTADOXACCXCOMPROBXSI MENSAJE_SINOPUERTAGUI_GETMENSAJEGUI_REAARCHIVP_SERVERAAAIMP_ARCH XCONTINUAALLXOKLPT1BORRAR1 4listados T1 aaa=error()(lptCCZon error &onerr F G(\logspooler.txtG G RCC$* C^ ID:  Archivo:  Error: CCZGG( BUXARCHXLPT NO_CTRL_ZLISTADOSAAA VISTA_BATCHP_SERVERIDimp_archqrSAAAAAAAAAAAaAaARAvBbQARRb1A111ABAAABxQAAAAAAAAAAAAAAA$AAAAAaA"AQAQAQQACAbbsOABAQ!AqAqAAABarbBbqA12AAABqAArqAAqAAC2s12raa!aa1& %6;{6~RD7 G(9 Ta T< 7TC] <+ J(J'(  ve_rotulos( % B C F G((tccvordFG((codcliFG((codinsFG-(FT\rotulos ( Qi1rotulosCi1rotulosCi1rotulosC& (FG((pedidoG-(G-( G(  T + +C C yT!C"%!RT# $docomprom%Q&Q&'Q'(Q)*Q*+Q,$# tmp_comprom T/ ~NFG((codins E. T0%11 }F2G((codigoE..&9%CC2S 2446?%2S1T5.)24 )T5C5C58 C58C586T624 T5.)4 )T5C5C58 C58C586T64  T5 T6TC Error !!! Unidades por bulto de . .& .' = 07 T8 T9 T: T0>C89:0..).&.'.*.,; J T8 T9 T: T< T= T> T?DC?..&.' A.)89:<=>@%C? FC?7FT C T   CBF)& CZCCZ(\borrar9G-( CD%CborrarFEQ%Cborrar1.FFQFG G((idF G-(ACHZGFIG((codfleFG-(FKG((codigoFLG((codigoFMG((codigoFG-(NLG-(OKFPG((codigoFQG((codigoFG-( G-( AG-(G-( RIG-('&PG-('MG-(&'CXQG(SSG+(listadosTUVWTXVYTZ[\ T]T^RTT_.t.-CImpresin de Rtulos. Suspendo?a`?alistadosU]ZX^_aaaaaR %Cborrar1 FFQ%Cborrar FEQFG(FG-(%Crotulos, FG-(QBUb ACTIVEFORM DATASESSIONID XERROR_ROT MAXLINROTCADENAXIDXDXHXXDXXH VE_ROTULOS XRESULTADO OPEN_FILESTCCVENTTCCVORDCLIENTESCODCLIBIENESCODINSTR04 COMPONENTEROTULOSTEMPP_LOCALPISODPISOPICKINGPEDIDOTVENTASCOD_INSOBIEDATA_CODIGO_VACIOZXZENC BUSCA_PEDIDOXXIDIDCODBULATRCAN RECEPCIONITMDEPDEPOSITOCOMPROM TMP_COMPROMACCBULTOXRECEP_VE_BUL_VERSIONBULTOSCODIGO CANTXBULTXXBULXXXBULMENSAJEXBULTXPESOXVOLU BUL_PES_VOL XCANTXBULT XPESOXBULT XVOLUXBULTXMSG_BUL_PES_VOLVE_BUL_PES_VOLCOD_CLIBULTEARBULTOSALIDABORRARBORRAR1SUCURSALSUCFLETESCODFLEPROVINCPAISESATRIBUTOPAIS PROVINCIABARRASSTOCKCOD_FLEIMPRIMELISTADOS XFORMULARIOCONSRTFORMXCOPIASRTCOPIASXDRIVERLOCALESRTXDESTINO XIDARCHIVO XFILTRODATOSSYS_MOSTRAR_SCREENIMPRIMIR_FORMULARIO%CGECCZG TC41%  0   TCO T T +C+ C %C Z C TTC Z C H #%3 T- %OCPedido CCCZ* repetido, realize mantenimiento parcial !  H  GC El pedido CCC@z 999,999,999_ no existe !!!  QC El pedido CCC@z 999,999,999_ debe estar Aprobado !!! T-  aC El pedido CCC@z 999,999,999_( no debe formar parte de un despacho !!! T- 0 TC El pedido CCC@z 999,999,999_ no sale por expedicin !!! T- 2PCError desconocido en pedido CCC@z 999,999,999_ !!! T-   T- BU XDZXZENCTCCVENTEST_DESPCOD_FLEREGISTROACCPDIDPEDIDOCOD_CLIFEC_VENMENSAJEFT#)+C+ %xFG((rotulo%GEC ZG +C+  >HT%t>      FHFBUROTULOSOLDPEDCOD_INSOBIEDATA_CODIGO_VACIOROTROTULOPEDIDOCANTIDADBULATRBULTOITMIDTCCVENTDUN14DUNLH+4 T T T T&% S S F G((tr04G EG %C4p TCO Ta%+C+   C+ 9*%     1 T-!H% #+C+    CF H lE%C44+C+ !     CF H hE %C4~7+C+ $     z CF H dE %C47+C+ $      CF H ` #:+C+ '      \ CF H 3C&Artculo compuesto sin componentes !!! T- % #F T#TCC 8T  %C ?]T  NXX14.PRGCantidad por Bulto = 0 Pedido : CCZ Error !!! Unidades por bulto de    = 0 TKC Error !!! Unidades por bulto de    = 0 T#TCC  8 C BUT_BULTOST_PESO T_VOLUMEN T_RECEPCION TMP_COD_INS TMP_RECEPTMP_BULTMP_ATRTMP_ITM TMP_DEPOSITOBIENES COMPUESTOCONJUNTOTR04REGTR04OKCOD_INSBULATRAGREGARMENSAJEOK_COMPBULTOSXXBULXFRACC CANTXBULT XCANTXBULTREPORTEXDZXZAGREGAR2% sFG((codigoE%C4T )TCC8 C8C86 T 1T CC 8T T  o %C ?,T   XX14.PRGCantidad por Bulto = 0 Pedido : CCZ Error !!! Unidades por bulto de    = 0 T KC Error !!! Unidades por bulto de    = 0 T 1T CC  8 T   FG((codigoE%C4PT )TCC8 C8C86 T 1T CC 8T  T   T 1T CC  8 T  T  % >FG((codigoE%C4 T :T   FG((codigoE%C4 T T  C BUTR04CBULBULTOSCODIGO COMPONENTEAABUL TMP_RECEP CANTXBULTCANTIDADT_BULTOSXFRACC XCANTXBULTAAA_BULBIENESREPORTEXDZXZ TMP_COD_INSTMP_BULTMP_ATRMENSAJEXXBULCATRATRIBUTOAAA_ATRAGREGAR2TMP_ITM TMP_DEPOSITO4F T+T7% S    S  T  T  T  T%Cstock Qstock&% S S aFG((codigo#%]ECX%T T &% S S %C T%C T &% S S dTT T T  T(dun14   a%  $4C  : C / C / C T-F>C !"#CC$$%6%6&'%( ) C* hF+ G((idGE-,CZG 1T.CC$$%6%69+C+ -,, & d%/0>10/%.#1U>11.F^>C !+"#.&,-, C*!F+HF(%C 2 C 3 >4S >4NTBU5XCCXBBXAAXDDXDEPROTULOSZT_BULTOSACCBULTOBIENES ATRIBUTOSXERRORXMSGXCODIGO_BARRASXLECTURA_HUMANASTOCKBULTOSCODIGOBULATR P_VE_EAN_DUNXEAN13BARRASXDUN14DUNXNUM N14_A_DUN14DUN14 XERROR_ROTMENSAJEPEDIDOXDZXZCOD_INSBULTOCANTIDADXFRACC XCANTXBULTITM CANTXBULTODEPOSITODUNLHPEDROTCOMPROMIIDTCCVENTXCANXIDIDROTTEMPXXDXXHIMPRIMEBU%Cborrar1#FQ%CborrarIFQFF& CZ(\borrar   3N CZ(\borrar1 G!(+      3$\borrar1 & (\borrar(\borrar1 FQ\borrar1> & (\borrar1%Cdeposito QdepositoFG((depositoFG!(G-(G-(> CPickinga>%NUV_>CCCgȫ ENT9CCCg,3CCCg4666q>CCCg, 3 PISOECCCg 4 PISO$CCCgȫ ENTREPISO666Q& CZC ZA6CCgZ(\borrar M& CZC ZA6CCgZ(\borrarT T TT dfgsdfgsdfTfkjsfghksfdhgklT T ~%NUVz% v TCO%CG T6>S  #%K T T T T T 3%/ TCO#%C  8   T T!#>!S ' # T TTT>  T TTFR BU"BORRAR1BORRARROTULOSPEDIDODEPOSITOCOD_INSBULATRP_LOCALOBIEDATA_CODIGO_VACIO CANTXBULTOCANTIDADBULTO2ALLSYS_MOSTRAR_SCREENPICKINGP_EMPPISODPISOOLDPEDACCACCPXPISOXDPISOXBULTOACC_ROTREGISTROXXIDIDXPEDIDOIMPRIMEBULTOXXPEDIDO%CCLIENTES 8Qclientescodcli%CBIENES qQbienesdescins%CTVENTAS %Q\TVENTASpedido%CTCCVENT Qtccventtccvord%CTR04 Qtr04tr04%CSUCURSAL XQsucursalid%CSTOCK Qstockcodigo%CFLETES Qfletescodfle%CBULTOS Qbultos%CATRIBUTO &Qatributo%CDESPACHO `Q \DESPACHO%CCOMPROM Qcomprom%CCOMPROMI Qcompromi%CPROVINC Q\provinc%CPAISES 0Q\paises%CDESP ZQdesp%CROTULOS Qrotulos%CROT Qrot%Cbarras QbarrasBUCLIENTESCODCLIBIENESDESCINSP_PRIVPEDIDOTCCVENTTCCVORDTR04SUCURSALIDSTOCKCODIGOFLETESCODFLEBULTOSATRIBUTOCOMPROMCOMPROMIP_SYSTEMDESPROTULOSROTBARRAS~ 5T Tlistados%lT ARGENTINA BCfUXCODXDESCCLIENTESPAISLISTADOS busca_pedido salidaf bul_pes_volagregarTagregar2'!pedrot(bultear( open_files0fn_paisS5rQb2AArrrrrrALrr1rqqAAAA"ACCDqAArwqAAqAArrQrrarrrsrrr11A"RqAArqAAraraqaAAB2daAAA21AAqaaAAAA:tRarbbaAAAAbQZBBqAAqC3bqbaQAAAAqAABqAABrqAABrqAAqAAAAAA1Aaq1A1AAA8r1AArAAr1ArAAB9qqArtAcr2qAB2aQAQAAaAABBrQ rba2sArrQABrAABrAAA2B3qAArqAArb2bBBaAAqraTbAqbQeA2AC22Q3ABBCrRB2AAQAAbAArAA!AAAA1AAAAAbA1ARA!AB21aA1^qT2+I+5 5@j@=AQAM7M!Rr5RR%OAK/DrG(9%;!T\tmp\publics.gesD(num_* T)R,:Procesando notas de crdito...G+(ve_procsG+(listados T!T\tmp\publics.ges @FQven_vencxven_fevFQventasven_ordFQ \NC-ADIC%CNN T-FQccventccvord G((2FQclientescodcliFG-(#) Ta T T T T T T T T TTMAL+C+ F8R,:)Procesando nota de crdito de la factura % d F Q \costos-!!T"!%C4FG((codcli EF MT#C0 B(C$ $ BA66 T%&T'ccred#cccred=&kcccred T(C) ZT(CC(VAT*CCC%@z 99_VAVT(C%C C(>X,#C0C*>Q*-C0C(>Q6(T*ccred#repl &ttemp with cccred+1 T(QF%%TNC CCVA a la NC TCCVAF%  T+ T, T- T. T/T0S T1 T2 T3 T4 T5 T6 T7 T8%9CLE( T:I; Porcentaje Percepcin 672/95 ::@z 99.99 ? T:< ve_pedido >>5 >?@ >A3 >B8 >C4 >DE8>FC3@6C$6T3T@T4T8F >>5F >G5 THITJKLCMZG((comprob EJ%C4>OO5%GOG(( referencia EJ TQCO TRH)+C+ JKLCMZ H%IR@ TRIH #Q)+C+ JKLCMZ  >SRH FTDebi encontrarlo. Cbte : JCt F>>UU>VV>WW>XW >Ya>ZN>!! > >[c>KCC XCC VA R>LV >\>]]F>^N.CRED.>>_W >`>UU>!!>IW>[c >\ >aC$F %CCCCLIE Q \ccclieF >N[cIC$bDescuentos Varios_W\KCC XCC VA RLVcdWeMUU&aC$F TfCOE V%C4 TED Tgh Tij  C Error ...k #f >hg >DE >ji T@ Tl Tm Tn ToT!T TTpTqUTrWTs!TtWTuV T-F TfCO Qbatch > >[cQ \NC-ADIC #fT@@? TlTmmw TnToo?F>>UU>WW>w>??>x?>VV > >yy>[c>zz>!!>{C"|>ZN>}}>~~>SFHFG-(F EF%  T+ T, T- T. T/T0S T1 T2 T3 T8 T4 T5 T7 T6%9CLE0 T:I; Porcentaje Percepcin 672/95 ::@z 99.99 G T:< ve_pedido >>5 >?@8>FC3@6C$6 >A3 >C4 >B8 >DET3T@T4T8F >>5F >G5 THITJKLCMZG((comprob EJ%C4>OO5%GOG(( referencia EJ TQCO TRH)+C+ JKLCMZ P%IRH TRIH #Q)+C+ JKLCMZ  >SRH FTDebi encontrarlo. Cbte : JCt pTFQ \NC-ADICSQFQFQ 6C)No hay notas de crdito para procesar !!!k TaFQFQFQFQven_vencxven_fevFQclientescodcli!T\tmp\publics.gesD(num_* g"R,:Opcin no instalada !!!BU ACTIVEFORM DATASESSIONIDP_DESLINXDTEMPP_LOCALXXHORARIVE_PROCSLISTADOSXMOTIVOVEN_VENCXVEN_FEVVENTASVEN_ORDP_PRIVVACIOCCVENTCCVORDCLIENTESCODCLICOD_CLIAINICIALXFACTURAXCOSTXCOD_CLIACCIVAACCTOTACCNOIACC672NCPRINCULTXXTFAC_VENCOD_CENCENTROCLETRAIVACATCSUCSUCKCCCREDXNUMEROFCCCREDTTEMPT_DESC1T_DESC2T_DESC3T_DESC4T_DESC5 T_CONSFIN INSCRIPTOT_DESCOMT_IVAT_IVA26T_FINALT_IIT_IVAINVT_P672P_EMPT_672GUI_GETNETO VE_PEDIDODEUDATOT_VENT_TOTALIVA_VENP672IVA26COMISION XCOMI_VEN IMPONIBLEIMPORTEXFECEMFECHATEMPREFCAUCUOCOMPROBADELANTO REFERENCIAREGXFECHACANCELERR_HANDDES_CLIEPEDIDOFEC_VENFEC_ENTAPLIC INVENTARIOCAUSAMOTIVOCOEFICCONCEPTOVENCFACTURAHOYCOMENTARCONDFECREFCUOTAOLDREG LVENDEDORAGENTELCONSFINCONSFINMENSAJET_KILOS T_RECEPCIONT_INVT_TOTIVALCOD_CLI LDES_CLIELFEC_VENLCOD_CENLFECHALPEDIDOBATCH RECEPCIONCOS_LIFOREM_VENDESC_INSCOD_CUEATRCANCOD_ALTNOM_ALTGRAVADAVE_GENERAR_NCND_AUTQ"!a!qQ1Qb1babBB2QAbABq11AAAAAAaAAQQAQAQ aAQaA111QAAAabABq11AAAAAAaACqAAAAsaAAAAQ!AA:%S>1aDG(9"T\tmp\CC]R ve_pedidoTFacturaTAT T  T  T T333333? T TT Rentabilidadve_comprobante(H Pedido=TP FacturaeTV" Nota de CrditoTc! Nota de DbitoTdT C Z% CBU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXCAUXLETXCENLOCALESVE_024XNUM XTASA_ANUAL XCOMISIONXIBXGANXRESXTITULOVE_COMPROBANTESEGURO%PFG((tccvord ECg%C4 l#CPedido inexistente !!!B *%0   CPedido anulado !!!B FG((ccvfac=EC00CC ZR-C00000000CRV%C4 _$CFactura inexistente !!!B *%0    CFactura anulada !!!BF G((codins%CborrarF Q%Cborrar1"F Q%PFG((tccvordGI)(\borrarCgC' GI FG((pedidoL(\borrar1CCZCCgZCCgZCC QC' FG((ccvfacGI_(\borrarC00CC ZR-C00000000CRVC' GI FG((ven_fac`(\borrar1C00CC ZR-C00000000CRVC' FQ\borrarFQ\borrar1G-( FG((codcli EF G((idECZ CFQFQBU XCAUTCCVENTTCCVORDXNUMMENSAJECOD_CLICCVENTCCVFACXLETXCENBIENESCODINSBORRARBORRAR1P_LOCALPEDIDOTVENTASCOD_INSOBIEDATA_CODIGO_VACIOFAC_VENCAUSAVENTASVEN_FACPADREHIJOCLIENTESCODCLISUCURSALIDSUCIMPRIMIRG+(listados-TCImpresora ? (0/1/2/P)102P%0WB9J(     %CF( T $T  +TCC8 C86+TC 6T T+%P/TPEDIDO CCCg@z 999,999,999_ OTFACTURA  C0000CCZR-C00000000CR T T CX  VALORIZACION  . Cliente : [!] C"#%"$SO Sucursal : [C$Z] C%# C%& C%'F Fecha : C(* Fecha Actual : CC$* C^T  T) T* T+ T, C--#)+C+ TT./0d 1d 2d 3d 4d 5d 6d 7d 8d T9:;T<C=T>C?'T@C9>9 d6'TAC.>. d6T))BT**C>BTT,,C9BTT++C.BTH#TCC, *, 6#TDC+ *+ 6#)+C+ k% Ca-TE C:F& &CB@z 9,999,999.999_ %C/@z 9999,999.999_ T./0d 1d 2d 3d 4d 5d 6d 7d 8d )C/.@z 9999,999.999_ 'C.@z 99,999,999.999_ T9:;$C9@z 999,999.999_ T<C=T>C?'T@C9>9 d6'TAC.>. d6'CA@z 999,999,999.99_%&C@@z 99,999,999.99_%0CC>BT@z 999,999,999.99_ H CG+T  T HBUILISTADOSXIMPPREGUNTAXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLD IMP_STARTHIJOMAXITEMSMAXLINXPGXMAXPAGXTOTALPADRETOT_VENDES_COMAXCAUXTXTXNUMXLETXCENLINXPAGCOD_CLICLIENTESNOMBRESUCSUCURSAL DOMICILIOCIUDADFEC_VEN TRECEPCION TUTILIDADTFINALTCOSTO ENCABEZADOXFINALCOS_LIFODES_INSDESC1DESC2DESC3DESC4DESC5DESC1EDESC2EDESC3EXCOSACTBIENESCOSACTXCFCOSTO_FINANCIERO XUTILIDAD FN_UTILIDADXUTIREALXMARGEN RECEPCIONTUTIREALTMARGENCOD_INSDESCRFINALIMP_END84%E  TT,Pgina CCZ/CCZ Unitarios Total  |-------------------------------------------------------------------------------| |------------|Cdigo Descripcin Cantidad Precio Lista Descuentos Precio Final Costo Margen Bruto Utilidad Real Utilidad Total-------- -------------------------------------- ------------- ------------ ------------ -------------- ----------- -------------- ------------- --------------TBUXSALTOFORMFEEDLINXPAGTAM4XMAXPAG -------------- ------------- -------------- C&X &C@z 9,999,999.999_ %C@z 9999,999.999_ %C@z 9999,999.999_ 'C@z 99,999,999.999_ $C@z 999,999.999_ 'C@z 999,999,999.99_%&C@z 99,999,999.99_%'C@z 999,999,999.99_ TBUOBIEDATA_CODIGO_VACIOTMARGENTUTIREAL TUTILIDADLIN Bm d U XTASA_ANUALCCVENTPLAZO\YBC4  d 6d d  UXFINALXCOSACTXCFCCVENTAGENTE XCOMISIONXIBXGANseguroimprimir encabezadofinalTcosto_financiero fn_utilidad%BBBQ!A"2AA2Aq1AAAAqAAAAAArrqAAqAABqaarqaarArrQsArAB3"BAAArBrABAqqqAqaqqR rqBA21R2AqaR qBrqrbBABqAABB3qqA A2 qA1aQQqArbrA223 ;i %o5I L%"# fVSDG(9"T\tmp\CC]R ve_pedidoF#)FG((codcliF G-( F G-( T FacturaT AT T+aTS)TModificacin de Comprobantes Tve_comprobante(%V!Hk@ PedidoTP FacturaTV" Nota de CrditoTc! Nota de DbitoTd Remito@Tr%P>T C00CCZR-C00000000CCZR TCZ%VcdPr TH PTPD V2TFC dUTND cxTNC rTRE%PPF G((tccvord ECg TC4%+C+ Cg F E %SDT  [ T#TC[ ] C'F T  !TS%S! HTN T"a%S L ve_pedidoG+(ve_procsG+(listadosB F G((ccvfac E%C4 5%rF G((remito E%C4 ' (  Ta T) T*  T- 1 T- J Ta%a#+C+ '* RF E %ST   T#TC[ ] C'F T  !TS%S2! @HTN T"a /C"No se encuentra el comprobante !!!+ ve_pedidoG+(ve_procsG+(listadosB M)CEl comprobante no existe !!!+ ve_pedidoG+(ve_procsG+(listadosB%S~ T,CW T- T./ T01T2/1 T34 T5! T67 T89 T:; T<= T>? T@A TBC TDE TFG THI TJK TLM TNO TPQ TRCPS6%P TT  TT U%C pd_demoras  QV \pd_demoras TW TX TY'ZlistadosWXY%[ 3%r V C U T\a  T\-  T\- T]@ T^B T_D T`F Ta8 TbT TcH TdJ TeL TfN TgP ThR%"   ve_modif_cpbt(H S   TjX  TjS 2 TjS S TjS F,%jNy .%jX !%jSz%Ckv%P "Tl'tccvent', 've_trans'  !Tl'ccvent', 've_trans' Tm.do lock_g in trsac with aaa , &xtrs_files %m2Tnve_modif_cpbt.prg(ToModificacin de Comprobante TmOptrsacmnoCPCCg@z 9999,999,999_6 Tr Cs%CrR Tm Tja uTm Tj-OttrsacmnoCPCCg@z 9999,999,999_6 Tu%j2C%El comprobante ha sido modificado !!!+ .Cr+ n2C%No se pudo iniciar la transaccin !!!+!! ve_pedidoF G-(F G-(G+(ve_procsG+(listadosBUv ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOCONSCLIENTESCODCLICCVENTCOD_CLITCCVENTXCAUXLETXCENLOCALESVE_024XNUMSIONOXTITULO XRESULTADOVE_COMPROBANTEXCAUSAXCOMPROBXTTTCCVORDENCONTREPEDIDOTARJETAXNDES_CLIENOMBREXIMPORTEDEUDAMODIFVE_PROCSLISTADOSCCVFACREMITOFAC_VENREM_VENFACVENCAUSAMENSAJEXAREAXCOD_CLIXTOT_VENTOT_VEN XIMPONIBLE IMPONIBLE XNOIMPONIBLEXIVAIVA_VENXTOTALXFEC_VENFEC_VENXFEC_ENTFEC_ENTXDES_COMDES_COMXDTO672DTO672 XREDONDEOREDONDEO XVENDEDORAGENTEXDISTRIBDISTRIBXVENCOMICOMISIONXDISCOMICOMI_DISXFLETECOD_FLEXMOTIVOMOTIVOXOTOTXREFREFXTRANTRANXMOTDEMMOTDEMXESTADOESTADOP_SYSTEM XDESPACHO XESTADO_TEXTOXESTADO_ENTREGAESTADO_DESPACHOP_VE_DSP_VERSIONXEST XOLDXVENDEDOR XOLDXDISTRIB XOLDXVENCOMI XOLDXDISCOMI XOLDXFEC_ENT XOLDXESTADO XOLDXFLETE XOLDXMOTIVOXOLDXOTXOLDXREF XOLDXTRAN XOLDXMOTDEM VE_MODIF_CPBTXOKFN_READ XTRS_FILESAAATRAN_PRGTRAN_TXTBEG_TRANTRSACXMSG WRITE_DATAEND_TRANTTS_ID*4TBaUAAA XNOIMPONIBLEXTOT_VENy F%kBC5Lo gravado ms lo no gravado no suman el subtotal !!!B-BaUXAREA XIMPONIBLE XNOIMPONIBLETOT_VENMENSAJEB-U XNOIMPONIBLE T F > > > > % Py > >%% >  > > > > >%Cfletes )QfletesFG((codfle E F%C4 P +H   >   > 2%!!  >  >!>"#%Cmotivos [Qmotivos%$%CmotivoscodigoT&$'%Cccclie Qccclie=pccclieccclie)&*+, F-G((TRA_NUM E/%C4M >. F T0%12 pT00CC0, 6 Vendedor: C1/CC2 Z% a C/CC Z%%3ZMT00CC0, 6Motivo Demora: CC3Z a CCZ%45  pT00CC0, 6 Distrib.: C4/CC5 Z% a C/CC  Z%%6 HET00CC0, 6 F.Entrega: C6* a C *%!oT00CC0, 6 Se despacha: C!SINO6 a CSINO6%7&AT00CC0, 6Flete: C7 a C%8FT00CC0, 6Motivo: CC8Z a CCZ%9@T00CC0, 6O.T.: C9 a C%:1@T00CC0, 6O.C.: C: a C%/KT00CC0, 6 Transaccin: CC/Z a CCZYC<C PCC,g@z 9999,999,999_,6 0ve_modif_cpbt.prg;BU=XFECHAFEC_VENXAREAAGENTE XVENDEDORDISTRIBXDISTRIBCOMISIONXVENCOMICOMI_DISXDISCOMIXCAUSAFEC_ENTXFEC_ENTMOTDEMXMOTDEMP_VE_DSP_VERSIONXESTESTADOXESTADOCOD_FLEXFLETEMOTIVOXMOTIVOOTXOTTRANXTRANREFXREFFLETESCODFLETIPO XOLDXESTADOFLETENOMBREMOTIVOSCODIGOXDMOTIVODESCRCCCLIECOMENTARCOMPROBCAUSAXCOMPROBVE_TRANSTRA_NUM XOLDXTRANXLOGTXT XOLDXVENDEDOR XOLDXVENCOMI XOLDXMOTDEM XOLDXDISTRIB XOLDXDISCOMI XOLDXFEC_ENT XOLDXFLETE XOLDXMOTIVOXOLDXOTXOLDXREFUSER_LOG PUB_INDEXfn_imposfn_readfn_whenv write_data%BrQrrrB3AA!AB!AAAAAAABqqAA1qAAAAAAOA!!AAtBqAAA1qAA1qAAAAAB!!AAAB!!AABBAAq21AAQA1111ABAABAAAB!A2A!A!ACAAACABrara"!A1qq1!qA~1q1AA2AB!AqabABB1AaA!ArAA1AA1QA1A1A1aA2A2A2AB2P&/"C"###1%g nD/DG(9G+(listados C+aTCC]RTCC]RTCXTCXTCX T C$ T +a- T H)  T ve_cesion_a_cliente( H& =! x% tT   % T   !  T  ) CF K(#) T T T, ve_cesion_a_cliente_comprobantes( % L+aHTCHD  T ! CD>C1Error irrecuperable. Consulte al soporte tcnico. T !Ha% x! % T   % T   ! % T %C PENDIENTESWFQ \tmp\.dbf \tmp\.cdx%   !%CcesionFQBU ACTIVEFORM DATASESSIONIDLISTADOS OPEN_FILES XPENDIENTES XCOMPROBANTESXCLIENTEXDCLIXHCLIXFECHAXFORMXMAXFORMXRESVE_CESION_A_CLIENTE COMPROBANTES PENDIENTESSALDOXSALDO XMARCADOSXSALMARXTOTMAR VE_CESION_A_CLIENTE_COMPROBANTES XRESULTADO REGISTRARMENSAJEP_LOCALCESIONR,:Consultando...occclieclientesQCC6QQCXQQQ Q  Q  Q  Q -QQQQCOQ@CC ZC XCZ Z99-99999999ZCcZ  C' Vcd CZC Z 1\tmp\Q\tmp\ ~H V>FC d>ND c@>NC Lc>AS 1>CC 2>DC H>PR 2>XX#) BUCCCLIECOD_CLIDES_CLIECLIENTESNOMBREFECHATIPOCPBTCOMPROBCAUSACUOTAMAXCUOIMPORTEADELANTOSALDOMARKEDVENCMONEDACOEFICCAMBIORECNOXDCLIXHCLICANCELREFCAUCUOP_LOCAL XPENDIENTES PENDIENTESXRES%Cclientes 8Qclientescodcli%Ccesion a Qcesion%Cccclie QcccliefilesBUCLIENTESCODCLICESIONCCCLIEOPEN_FILES_ENTORNO_OPERACIONFILESH <7estadoJT TC pendientesNTTaT Iniciando...FG((asiento#6T G((asi_ma#6T   T  T  FG((asiento E %C4 *)> Cesin de FacturasFG((codcli E T TF T~T>T Factura de [] C%CCO2GO TT  T  FG((comprobE%C4 *>8> !" FG((codcli E%C4FT># $%&L'() *C+,D-.C$/0112Cesin de Factura a C33445N67F8>> 9/0C @z 9999,999,999_L:[CCZ] Cesin;;<C @z 9999,999,999_-L=>?@.C$ )33A4BC]CC?Z8Dge01C @z 9999,999,999_LCZFT#>#$ %&L'() *C+,D-.C$/0112Cesin de Factura a C33445N67F8<> c9/0C @z 9999,999,999_L:[CCZ] Cesin;;<-=>?@?.C$ )33A4BC]CC?Z/Dge01C?Z 3C El cliente CG no existe !!!F BFTT Terminando...T-< BUHOESTADOESTADOMINMAXVALUEVISIBLETEXTODIARIOGASIENTONEWASIASI_MA NEWASI_MA OLD_NEWASI OLD_NEWASI_MACONCEPTOCLIENTESCODCLIXCLIENTE XNOMCESIONNOMBRE XDEUCESIONCUE_DEU PENDIENTESXPASEMARKEDCOMPROBCOD_CLICESIONCAUSAFECHAXFECHAIMPORTESALDOCUENTACLIENTEDEBITOCREDITOCOD_CUEPOR_QUECOD_CEN SUBCENTROPASEPROCLICODIGOTIPOCAUHOYUSR PUB_INDEXARCH COMENTARIOMONEDACAMBIOSUBDNUMEROSUBNUMCCCLIEDES_CLIECOMENTARVENCREFCONDFECREFCUOTACUOCOEFICIDUIDFN_CANCGE01MENSAJE PENDIENTE%CEjercon ,QejerconF-CT%C4%CdiariogFQ1Q\C\diariogasiento%CconceptoF Q2Q\C \conceptoasiento T  T  T  T  T Ta TVtrsacclientescccliediariogconceptocesion%* TOtrsacVe_cesion_a clienteCesin de Facturas a Cliente%TC%| T T T T TOtrsacVe_cesion_a clienteCesin de Facturas a Cliente T A T%% ;C+Se han registrado los siguientes asientos :C Aut: CC @z 999,999,999_ al CC @z 999,999,999_C Man: CC @z 999,999,999_ al CC @z 999,999,999_C  cCSe ha registrado el asiento :CC @z 999,999,999_ / CC @z 999,999,999_ BUEJERCONXFECHADESDEHASTAAAADIRDIARIOGP_PRIVASIENTOCONCEPTONEWASI NEWASI_MA OLD_NEWASI OLD_NEWASI_MA XRESULTADOTRSACLOCK_GBEG_TRAN TRANSACCIONEND_TRANTTS_IDMENSAJE comprobantesQ open_filesH transaccion< registrar"SQ11B12A12A1B1A2rR21AAJAB1B12A12A1B1ABBqAABAAsqAAB3AAAAAAAABQ4AAAB2|r!sQQsQAsrrrAsQAsrQsQprQ1sQp1ArBrr21Aq"qAAqAA!Bg222BBA21 2AA2Z %u<*''C/4%d- LQXD85%  BC5No se puede transferir al remoto sin transacciones!!! B-$%CxTransf_ElegirbN T   ;%C xTransfCPBTbCC xTransfCausabC  T TT %C ]T ' ' t T '  T  T T T-  G(9 3TC Data_StatusSys_Clases_Tablas.prg% _BTC CollectionN% % G5%C!\data\CC"Z \clientes.dbf0 )6C)No se encuentra la empresa de destino !!! B T T" 5%C!\data\CCZ \clientes.dbf0 6C)No se encuentra la empresa de destino !!! B T" T  T T5#%C  C dos_transfJ# d dos_transfJ#T#%Ca&'TC] TC TC(C)&*\tmp\tmp_dos_ccvent.dbf&*\tmp\tmp_dos_ventas.dbf'*\tmp\tmp_dos_ventas1.dbf&*\tmp\tmp_dos_ccclie.dbf'*\tmp\tmp_dos_ccclie1.dbf**\tmp\tmp_dos_ccclie_apl.dbf+*\tmp\tmp_dos_ccclie1_apl.dbf%*\tmp\tmp_dos_cccob.dbf&*\tmp\tmp_dos_cccob1.dbf(*\tmp\tmp_dos_ven_oper.dbf)*\tmp\tmp_dos_ven_oper1.dbf(*\tmp\tmp_dos_movstock.dbf)*\tmp\tmp_dos_movstock1.dbf&*\tmp\tmp_dos_cliaux.dbf'*\tmp\tmp_dos_cliaux1.dbf'*\tmp\tmp_dos_remxfac.dbf(*\tmp\tmp_dos_remxfac1.dbf(*\tmp\tmp_dos_planvarc.dbf)*\tmp\tmp_dos_planvarc1.dbf(*\tmp\tmp_dos_itm_desc.dbf)*\tmp\tmp_dos_itm_desc1.dbf'*\tmp\tmp_dos_iva_ven.dbf(*\tmp\tmp_dos_iva_ven1.dbf,*\tmp\tmp_dos_ven_oper_fac.dbf-*\tmp\tmp_dos_ven_oper_fac1.dbf**\tmp\tmp_dos_ccclie_rec.dbf+*\tmp\tmp_dos_ccclie_rec1.dbf)*\tmp\tmp_dos_cccob_rec.dbf**\tmp\tmp_dos_cccob_rec1.dbf,*\tmp\tmp_dos_ven_oper_rec.dbf-*\tmp\tmp_dos_ven_oper_rec1.dbf(*\tmp\tmp_dos_iibbprov.dbf T+ T,"CLockeando archivo-% .trsac,ccventventascccliecccobven_opermovstockcliauxiibbprovremxfacplanvarcitm_desciva_ven > U.trsac,ccventventascccliecccobven_opermovstockcliauxiibbprovremxfacplanvarcitm_desciva_venccvent_2ventas_2ccclie_2 ven_oper_2 movstock_2cliaux_2 iibbprov_2 remxfac_2 planvarc_2 itm_desc_2 iva_ven_2%,P6<00 T1 T,% &CIniciando transaccin->2trsac,dos_transferencia Transferencia _ ^34'Transferencia (sin transaccin): Iniciodos_transf.prg%,1-%Ctmptrf F5Q%Ctmptrf1 F6Q%Ctmptrf2 F7Q%Ctmptrf3 F8Q%CPrimer delete ccvent-C Select TRANSFa9:T:( %A%T:not ccvent.transf and ( %C 2T::ccvent.fac_ven+ccvent.causa=  =<T::Cccvent.fac_ven+ccvent.causaA Z;FT:: .OR. Cccvent.fac_ven+ccvent.causaB Z;FT:: .OR. Cccvent.fac_ven+ccvent.causaE Z;FT:: .OR. Cccvent.fac_ven+ccvent.causaR Z;FT:: .OR. Cccvent.fac_ven+ccvent.causaZ Z; %C 2T::ccvent.fac_ven+ccvent.causa=  <T::Cccvent.fac_ven+ccvent.causaA Z<FT:: .OR. Cccvent.fac_ven+ccvent.causaB Z<FT:: .OR. Cccvent.fac_ven+ccvent.causaE Z<FT:: .OR. Cccvent.fac_ven+ccvent.causaZ Z<%=(jT::Y or (ccvent.compl#0 and !ccvent.trf2 and ccvent.causa#[r] and left(ccvent.fac_ven,1)#[Z])T:: )PDELETE FROM ccvent WHERE ( &xdcfiltrofacven ) AND ccvent.cod_cli="0 " >%C r +T>Cccvent.rem_venR Z<<T>(>& or (ccvent.compl#0 and !ccvent.trf2))4C#Remitos que luego fueron facturados-lSELECT DISTINCT ccvent.cod_cli AS cod_cli , ccvent.fac_ven AS fac_ven , ccvent.rem_ven AS rem_ven , ccvent.causa AS causa , ccvent.fec_ven AS fec_ven , ccvent.estado AS estado , ccvent.facturado AS facturado, SPACE(4) AS causa_txt, SPACE(60) AS msg_txt , 00 AS estado_ind , cli.nombre AS nombre , ccvent.COMPL AS COMPL , .F. AS sel FROM ccvent LEFT OUTER JOIN ventas ON ccvent.rem_ven=ventas.rem_ven LEFT OUTER JOIN clientes cli ON ccvent.cod_cli = cli.cod_cli WHERE &xdcfiltrotmp AND (NOT xtransf_remoto OR (&xdcfiltrofacven)) AND ccvent.causa="r" AND ( ((p_usar_despacho=2 AND INLIST(ccvent.estado,3,4,5)) OR (p_usar_despacho=1 AND ccvent.estado>=1) OR p_usar_despacho=0) OR (RIGHT(ccvent.rem_ven,8)="00000000")) AND (ventas.fac_ven#ventas.rem_ven OR ISNULL(ventas.rem_ven)) AND ccvent.cod_cli#"0 " INTO TABLE (p_local+"\tmp\tmptrf1") Q+CRemitos que no se facturan-SELECT DISTINCT ccvent.cod_cli AS cod_cli , ccvent.fac_ven AS fac_ven , ccvent.rem_ven AS rem_ven , ccvent.causa AS causa , ccvent.fec_ven AS fec_ven , ccvent.estado AS estado , ccvent.facturado AS facturado, SPACE(4) AS causa_txt, SPACE(60) AS msg_txt , 00 AS estado_ind, cli.nombre AS nombre , ccvent.COMPL AS COMPL , .F. AS sel FROM ccvent LEFT OUTER JOIN clientes cli ON ccvent.cod_cli = cli.cod_cli WHERE ccvent.causa="r" AND ccvent.no_fc AND (NOT xtransf_remoto OR (&xdcfiltrofacven)) AND &xdcfiltrotmp AND ( ((p_usar_despacho=2 AND INLIST(ccvent.estado,3,4,5)) OR (p_usar_despacho=1 AND ccvent.estado>=1) OR p_usar_despacho=0) OR (RIGHT(ccvent.rem_ven,8)="00000000")) AND ccvent.cod_cli#"0 " INTO TABLE (p_local+"\tmp\tmptrf2") Q%C R occcobQBXven_operQ@ BCBF@C@FXclientesQI @AIA@AQABCQDCXQEBFQFBGQHIJQJQK-QLBP 1* \tmp\tmptrf3Q#COtros comprobantes-2SELECT ccvent.cod_cli AS cod_cli , ccvent.fac_ven AS fac_ven , ccvent.rem_ven AS rem_ven , ccvent.causa AS causa , ccvent.fec_ven AS fec_ven , ccvent.estado AS estado , ccvent.facturado AS facturado, SPACE(4) AS causa_txt, SPACE(60) AS msg_txt , 00 AS estado_ind, cli.nombre AS nombre , ccvent.COMPL AS COMPL , .F. AS sel , .F. AS Send_Mail FROM ccvent LEFT OUTER JOIN clientes cli ON ccvent.cod_cli = cli.cod_cli WHERE ( &xdcfiltrofacven ) .AND. ( ((p_usar_despacho=2 AND ccvent.estado>=3) OR (p_usar_despacho=1 AND ccvent.estado>=1) OR p_usar_despacho=0 OR ccvent.estado=3) OR (RIGHT(ccvent.rem_ven,8)="00000000") OR (p_usar_despacho_complemento=1 AND ccvent.COMPL#0) ) AND (NOT xtransf_remoto OR (&xdcfiltrofacven)) AND ccvent.cod_cli#"0 " INTO TABLE (p_local+"\tmp\tmptrf") & DFC& HH%C r ZCAppend tmptrf1-*\tmp\tmptrf1.dbf*\tmp\tmptrf1.dbfCAppend tmptrf2-*\tmp\tmptrf2.dbf*\tmp\tmptrf2.dbf%C R CAppend tmptrf3-*\tmp\tmptrf3.dbf*\tmp\tmptrf3.dbf5QRSTU TR TS TT TQF5>VCFW#CRecargar_TMPSELTRF- CYCZ%C >[L  %Ctmptrf-%  C 1! CSeleccion CPBTs-TC\$CSeleccion Terminada- Y!F5 >La TaCZ]^_`ab T] T_ Tb Ta+#cd !Ca&'efg Te Tf- TgaF5(aG((~ak,TbbIT#%, procesados CCbZ de CCaZ registros. T`C T_Th5D5FTi5D5FTj5K'Tk5D5F5AC5H T]%f<# TU- c&CInicio h-.C5D5F5A5H_l CValidando datosm7%C5D5F5A5H]5Kn $>5o]C]mTTT.0CRecolectando datos a temporalesmHc$_& 5FR$CpCqCrFsG((comprob Eh TUC4 2_& Tt Tu Tv TwCxCyCz%5K\%C{ f%C|Ciibbprov}C~CCCCC% F&FG((ccvfac%j#& Eh 6& Ei TUC4 [& TU-% '%U &C] '-%kDFACH'TSS'T]Ya existe. No transferido.>5 v'TTT3T]&Comprobante diferente. No transferido.>5%j'CCF5#CGuardando respaldom%f ((C5V 5D%/)%f^(T]OmitidoTTT +)'CConectando al servidorm.TC5D5Fefg (T]C(') T]Error al transferirTTTCC]mC_C` T%  (+'%DF5D5F$+% + T T- co_funcionesH%+TT5D5FF%C*(qdiariog C qconcepto> +TTT T]Error en el asiento>52 +;% 5FVcdr 5K g,'%5FVcd 5K +>5aFG((ccvfac'%DF5D5F+E5D5F'%DF5D5F+,>a c, T!CError en indices !!! &% 1 ,(1,TC03ge01ccclie_2ccvent_2CZ T, -- T, I-T,"CTermin de transferir}T#aT#- C#%/7QNAGES_TRANSFERENCIASsys_ages_objetos.prg;TCnages_transferenciassys_ages_objetos.prg.C%C.Hi.. .TRR .TSS .TTT%/ CCQSESSION%/ T TCF5$otmptrfDF%o0%0Atrsacdos_transferencia Transferencia M0>trsac,dos_transferencia TransferenciaCTRRecTRRec 0]34&Transferencia (sin transaccin): Finaldos_transf.prg T%e1%T M1T#-%C   I1C# a1 # T#-F5QF[Q*\tmp\tmptrf.dbf!*\tmp\tmpSelTRF.dbf%L2H2%CD2FEccvfacF%C4@2 >Pa C(/%C aTMPSendMail 4 TC DatasessionvTCSessionNG((C " CC Datasessionvft05aC reimpresiona9*(C aTMPSendMail4ve_reimprimir_comprobanteCCrCCCZ[6Ca G(TC(C " CC Datasessionvft05a T- T T T-% 76%5 TaZT'Se ha realizado la transferencia !!! : CCRZ : CCSZ : CCTZ%T5<T/Atencin !!! Hay comprobantes con problemas !!! 36%55T(No se pudo realizar la transferencia !!! /6=T0Se ha realizado la transferencia con errores !!! L6 Ta 6 T-5T(No se pudo realizar la transferencia !!! C% <8TCSessionNTC datasessionvT!\data\CCZ T  T  C d7'aa---- 7IC<Problemas al generar los asientos por las transferencias !!! %C7 T T  G(T!\data\CC Z G( C<%C `8C %C 8C ) ve_comienzo CBU XFROMCODE XTRANSFCPBT XTRANSFCAUSA XTRANSFOKXTRANSF_ELEGIRXTRANSF_REMOTOXTRANSF_COMPLEMENTOODST P_DOS_TRANMENSAJEP_DOS_TRANSF_AUTOXTRANSFCPBTCAUSAXTRANSFCPBTCAUSAC XTMPPCODEMP XHACEASIDIA XMSGTRANSF XMSGTRANSF2XOK XIDSESION XDTINICIOXLOGNIT ATMPSENDMAIL ACTIVEFORM DATASESSIONID DEY_FUNC2P_DOSORESCOLLXEMPOXEMPD XFRMCAPTIONXZIPFILEP_CODEMPP_SYSTEMP_UNOOFRMSHOW DOS_TRANSFCAPTIONODEYFUNCDEVENTS CLOSE_FILES OPEN_FILESP_LOCALXCOUNTAAA AGREGAR_LOGLOCK_GTRSACARR_MANT MAXARRMANTBEG_TRANUSER_LOG PUB_INDEXTMPTRFTMPTRF1TMPTRF2TMPTRF3SYS_MOSTRAR_SCREENXDCFILTROFACVENSYS_TRFCEN_BETWEENSYS_DOSCEN_BETWEEN P_VE_COMPL XDCFILTROTMPDISTINCTVOCOD_CLICBCOMPROBFAC_VENREM_VENCAUSAFECHAFEC_VENCLINOMBRECOMPLSELCCCOBVEN_OPERCLIENTESTRANSFXSELFAC XCOUNTTRF XCOUNTDEL XCOUNTERR XCPBTFOUND CAUSA_TXT CAUSA_ATXTALLRECARGAR_TMPSELTRFCREAR_TMPSELTRF TMPSELTRFSELECCION_CPBTS XESTADOFINAL XRECNOTMPTRFXNRORECXDTINI2XLOOPTOTXLOOPITGF VAL_CARGADOXERRORES XCANCELAR XPREGUNTARXXCCVFACXXCCVFAC_COMPLXXCOMPLXIDFACGUARDAR_TEXTO_RECUPERACIONACTUALIZAR_ESTADOVALIDAR_TRANSFERENCIA_CPBTMSG_TXT TRF_CCCOB_RECTRF_VEN_OPER_RECTRF_CCCLIE_RECCCCOB_2XIMPORTEXDEUDAXFCDEREXREMITO TRF_CCVENT TRF_VENTAS TRF_CCCLIE TRF_MOVSTOCK TRF_CLIAUXSYS_M TRF_IIBBPROV TRF_REMXFAC TRF_PLANVARC TRF_ITM_DESC TRF_IVA_VENTRF_VEN_OPER_FACCCVENT_2CCVFACTRANSFERIR_REALMENTE ESTADO_INDRECUPERAR_CPBTBORRAR_TEMPORALES1ZIPEARORESP ENVIAR_TRF RES_MENSAJEADDOEXBORRAR_TEMPORALESGUARDAR_TEXTO_LOGASIDIAXERRXERRMSGBUSCAR_ASIENTO CO_FUNCIONESXASIDIAXIDASIEDIARIOGCAUASIENTOCONCEPTOIN TTS_ERROR SEND_MAILCCVENTTRF2ZXREFFN_CANCGE01COMMAND1VISIBLE SELECCION SQL_REINICIAROTRNAGESSYS_AGES_OBJETOSPRGORESAGREGAR_RESPUESTA RES_CODIGOP_SINC_AGES_INFORMA_DOS_TRANSF PREPARAR_JSONOAGESSOLODATOSCLIENTESTRANSFERIR_COMPROBANTESXOLDEMPOEMPXOLDDSXOLDDBFODSPGESFORMEMPRESAS GET_PORCODIGOEND_TRANGUARDAR_TEMPORALTTS_IDP_DEVSHOWRELEASECPBTGET_DATOS_EMPRESA_SIMPLEP_SERVERP_DOSCENCARGAR_DATOS_ENTORNOLOAD_EMPFT05 REIMPRIMIRVE_REIMPRIMIR_COMPROBANTE UNLOCK_ALLODSOLDDATASESSIONIDSETSCO_AUT VE_COMIENZO MENSAJE_CLEAR%CLimpiando temporales$\tmp\tmp_dos_ccvent.*$\tmp\tmp_dos_ventas.*$\tmp\tmp_dos_ccclie.*(\tmp\tmp_dos_ccclie_apl.*#\tmp\tmp_dos_cccob.*&\tmp\tmp_dos_ven_oper.*&\tmp\tmp_dos_movstock.*$\tmp\tmp_dos_cliaux.*&\tmp\tmp_dos_iibbprov.*%\tmp\tmp_dos_remxfac.*&\tmp\tmp_dos_planvarc.*&\tmp\tmp_dos_itm_desc.*%\tmp\tmp_dos_iva_ven.*$\tmp\tmp_dos_cliaux.**\tmp\tmp_dos_ven_oper_fac.*(\tmp\tmp_dos_ccclie_rec.*'\tmp\tmp_dos_cccob_rec.**\tmp\tmp_dos_ven_oper_Rec.*UXLOGACTUALIZAR_ESTADOP_LOCAL%CLimpiando temporales%\tmp\tmp_dos_ventas1.*%\tmp\tmp_dos_ccclie1.*)\tmp\tmp_dos_ccclie1_apl.*$\tmp\tmp_dos_cccob1.*'\tmp\tmp_dos_ven_oper1.*'\tmp\tmp_dos_movstock1.*'\tmp\tmp_dos_movstock2.*%\tmp\tmp_dos_cliaux1.*'\tmp\tmp_dos_iibbprov1.*&\tmp\tmp_dos_remxfac1.*'\tmp\tmp_dos_planvarc1.*'\tmp\tmp_dos_itm_desc1.*&\tmp\tmp_dos_iva_ven1.*%\tmp\tmp_dos_cliaux1.*+\tmp\tmp_dos_ven_oper_fac1.*)\tmp\tmp_dos_ccclie_rec1.*(\tmp\tmp_dos_cccob_rec1.*+\tmp\tmp_dos_ven_oper_Rec1.*UXLOGACTUALIZAR_ESTADOP_LOCALS CbienesCstockCstkxdepUXEMPOXEMPD ABRIR_TABLA1 C Aguarde... CCCVENTccvordCCCCLIECCCCOBCVEN_Oper!CVENTASven_ordCmovstockCcliauxCiibbprovCremxfacCplanvarcCitm_descCiva_venCcliauxCDespachoCtrrec%!Crec_upd_CCZ%CccventCCCCLIECCCCOBCVEN_OPERCVENTASCmovstockCcliauxCiibbprovCremxfacCplanvarcCitm_descCiva_venCcliauxCtrrecCDespacho%6Crec_upd_CCZrec_upd_CCZ CBUXEMPOXEMPD MENSAJE_WAIT ABRIR_TABLA1CREAR_TEMPORAL1P_SINC_TRIGGERS ABRIR_TABLA2 MENSAJE_CLEARa CccventCCCCLIECCCCOBCVEN_OPERCVENTASCmovstockCcliauxCiibbprovCremxfacCplanvarcCitm_descCiva_venCcliauxCDespachoBUXEMPOXEMPD CERRAR_TABLA2+!C Crear zipeo TC]C]T\%CborrarF Q%Cborrar1F Q T CT C T   T T T T TT @T.TTCwwZipN(T_CC.zip+T\data\CCZ\trf\*.*TC+CIniciar la compresion +T C \tmp_dos_*.* !(CTerminada la compresion% G+(listados%(CCopia y borrado del zipTC(  %C#(CCopia y borrado del zip( ^  1CError al borrar el ZIP - $ *CError al chequear dos_dir 6CCC Z - Error al zipear el archivo<BU%XIDCPBTXLOGXTRANSF_REMOTOXFILEOERR AGREGAR_LOGXLOCALXTEMPP_LOCALBORRARBORRAR1 XDATETIMEXDTFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEOZIPWWCLIENTXZIPXTRFXTRF2XSPATHP_SYSTEMP_DOSODEYFUNC GET_SPATHXERRZIPFILESLISTADOSDOS_DIRMESSAGEF 'CIniciando codificacinCUXZIPFILEXLOG AGREGAR_LOGODEYFUNCCODIFICAR_BF_ARCHIVO3"CPasar a cerrar tabla2B-UXALIASMENSAJE (T\data\CCZ\ FTC&QFQ UXEMPXTABLAXALIASXDBFXDBFTMPP_SYSTEMC%CxOrdenbCRT Order  i T%C FQ(T\data\CCZ\% TC F Q(- TQ0USE (xDBF) &xorden IN 0 ALIAS (xalias) AGAIN U XEMPXTABLAXALIASXORDEN XTEMPORALXDBFTMPXDBFP_SYSTEMODEYFUNCNEWFILE_LOCAL_TMP-CaUXEMPXTABLAXORDENABRIR_TABLA_GENERICOOTC CBUXEMPXTABLAXORDEN XTEMPORALXALIASABRIR_TABLA_GENERICOUTC_2 CBUXEMPXTABLAXORDEN XTEMPORALXALIASABRIR_TABLA_GENERICOA"CPasar a cerrar tabla2CB-UXALIASMENSAJE CERRAR_TABLA2A %C_26F_2QBUXEMPXALIAS TH, VOTFC crTNC dTND rTRE 2TXX BUXCAUSAXCACAUSA C>.%C tmpseltrfcpbtp>C CaUXESTADOXLOG AGREGAR_LOGTMPTRFMSG_TXTINFAC_VENCAUSA TMPSELTRFOFRMSHOW PAGEFRAME1PAGE1GRILLA1REFRESHODEYFUNCDEVENTSqgC TRF_CCVENTccventccvfacccvent.fac_ven+ccvent.causaccventUXLOGTRF_BASE_EXACTTMPTRFFAC_VENCAUSACOMPLrhC TRF_CCClieventasven_facventas.fac_ven+ventas.causaventasUXLOG TRF_BASE_DOTMPTRFFAC_VENCAUSACOMPL~C TRF_CCCliecccliecomprob*ccclie.cod_cli+ccclie.comprob+ccclie.causaccclieUXLOGTRF_BASE_NOEXACT_DOTMPTRFCOD_CLIFAC_VENCAUSACOMPL*CProcesando TRF_CCClie_APLT  'Cccclie REFERENCIA Ta#+C+   c TCO2C\tmp\tmp_dos_ccclie_apl H E  RECCCccclie#%Ctmp_dos_ccclie_aplFQUXLOG AGREGAR_LOGXINICIALREGNEWREG XINICIALAPLXVALORTMPTRFCOD_CLIFAC_VENCAUSAODSTTOOL_SELECT_ORDER_NOEXACT_SEEKREFCAUTOOL_COPY_LOOPP_LOCALCCCLIE TRF_CCCOB_APLTRF_VEN_OPER_APLTHIS TOOL_BLANKDXREGTMP_DOS_CCCLIE_APLu gC TRF_CCCOB_aplcccobcomprobcccob.comprob+cccob.causacccobUXLOG XINICIALAPLTRF_BASE_NOEXACT_DOCCCLIECOMPROBCAUSATMPTRFCOMPLvCTRF_VEN_OPER_APLven_operCPBT ven_oper.comprob+ven_oper.causaven_operUXLOGTRF_BASE_NOEXACT_DOCCCLIECOMPROBCAUSATMPTRFCOMPL{qC TRF_MOVStockmovstockcomprobmovstock.numero+movstock.causamovstockUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLrhC TRF_Cliauxcliauxcomprobcliaux.comprob+cliaux.causacliauxUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPL|rC TRF_iibbproviibbprovcomprobiibbprov.comprob+iibbprov.causaiibbprovUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLbXC TRF_RemXFacremxfacfacturaremxfac.facturaremxfacUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCOMPLcYC TRF_PLANVARCplanvarcID planvarc.IDplanvarcUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLwmC TRF_ITM_DESCitm_descIDitm_desc.comprob+itm_desc.causaitm_descUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLrhC TRF_IVA_VENiva_venIDiva_Ven.comprob+iva_Ven.causaiva_VenUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLwCTRF_VEN_OPER_FACven_operCPBTven_oper.comprob+ven_oper.causa ven_oper_facUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLukC TRF_CCCOB_RECCCCOBCOMPROBcccob.comprob+cccob.causa cccob_recUXLOGTRF_BASE_EXACTTMPTRFFAC_VENCAUSACOMPLwCTRF_VEN_OPER_RECven_operCPBTven_oper.comprob+ven_oper.causa ven_oper_recUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLwmCTRF_CCClie_RECccclieCPBTccclie.comprob+ccclie.causa ccclie_recUXLOGTRF_BASE_NOEXACT_DOTMPTRFFAC_VENCAUSACOMPLH#%CxTMPbCJ T  T C T tmp_dos_TC  C Procesando  C%C@ccventT  T%CC%FQTd H ccvent#Td  d (Td  d T0TCrCZ[6>CrCZ[6 !"#$%&'()dFQ%C ASELECT &xtmpfile QU*XLOGXFUNCIONXTABLAXORDENXCPBTCAUXCPBTCAUFIELDSXTMPXCOMPLXTMPFULLXTMPPATHXTMPFILEODEYFUNCGET_PATH AGREGAR_LOGODSTTOOL_SELECT_ORDER_SEEKXFCDERECCVENTFCDERETOOL_COPY_BLANKD TEMPORAL_QXPERXIMPORTETOT_VENXDEUDADES_COMXDESCOMXXCCVFAC_COMPLCAUSAFAC_VENDEUDA IMPONIBLEINVIVAINVIVA_VENASIDIAVALDECLDTO672FCEFCE_IDFCE_CAECOMPL#%CxTMPbCJ T  T C T tmp_dos_TC  C Procesando  C%C@ventasT  T Ta+C+ C w!C%s TCW F He ventasB>CrCZ[6d  d d  d ad 2e>CZ[ F%C SELECT &xtmpfile QUXLOGXFUNCIONXTABLAXORDENXCPBTCAUXCPBTCAUFIELDSXTMPXCOMPLXTMPFULLXTMPPATHXTMPFILEODEYFUNCGET_PATH AGREGAR_LOGODSTTOOL_SELECT_ORDER_SEEKXREMITOVENTASREM_VENXINICIALTOOL_COPY_BLANKD_LOOPXAREAFAC_VENCAUSATOT_VENCOS_LIFONOSTKCOMPLCOMPROB#%CxTMPbCJ T  T C T tmp_dos_TC  C Procesando  B%movstock C CCRg TrC Ta+C+ C p!C%l TCW F H^ ccclieI%V2cd$CZCZ  n,>CrCZ[6'> 'TCZ[CZF G((ID E%C4U F ,>CrCZ[63>CZ[T  T!   F ,>CrCZ[6'> F %>"#CZ iva_venaT>CrCZ[6$%&' iibbprov^>CrCZ[6"()&* movstock remxfac(>+C+Z[ 2^,>CrCZ[6 F%C SELECT &xtmpfile QU,XLOGXFUNCIONXTABLAXORDENXCPBTCAUXCPBTCAUFIELDSXTMPXCOMPLXTMPFULLXTMPPATHXTMPFILEODEYFUNCGET_PATH AGREGAR_LOGXFCDEREXREMITOODSTTOOL_SELECT_ORDER_NOEXACT_SEEKXINICIALTOOL_COPY_BLANKD_LOOPXAREACAUSACOD_CLICOMPROBCUOTAREFCAUCUOCANCELXREFCCCLIE_2ID MAXARRMANTARR_MANTIMPORTEXDEUDAIVAIVA_MOBASEBASE_MO IMPORTE_MEALICUOTABASE_MEFACTURAt TC\tmp\SELECT &xtabla QCG((%C0m UXTABLAXTMPFILEP_LOCALP_SERVERc TC\tmp\SELECT &xtabla G((%C0\ UXTABLAXTMPFILEP_LOCAL= T(CIniciando transferenciaHU R,Ccccob_2tmp_dos_cccob_rec.dbf2C ven_oper_2tmp_dos_ven_oper_rec.dbf.Cccclie_2tmp_dos_ccclie_rec.dbf 2*Cccvent_2tmp_dos_ccvent.dbf*Cventas_2tmp_dos_ventas.dbf*Cccclie_2tmp_dos_ccclie.dbf.Cccclie_2tmp_dos_ccclie_apl.dbf(Ccccob_2tmp_dos_cccob.dbf.C ven_oper_2tmp_dos_ven_oper.dbf$CBuscando MOVSTOCK 2 T-%C RrF G((remitoEC  =%%C4 V    Ta% FG((comprob E %C4 .C movstock_2tmp_dos_movstock.dbf `CC  =C RError al transferir.%Ya existe el comprobante en movstock.T2C%Ya existe el comprobante en movstock.*Ccliaux_2tmp_dos_cliaux.dbf.C iibbprov_2tmp_dos_iibbprov.dbf,C remxfac_2tmp_dos_remxfac.dbf.C planvarc_2tmp_dos_planvarc.dbf.C itm_desc_2tmp_dos_itm_desc.dbf,C iva_ven_2tmp_dos_iva_ven.dbf2C ven_oper_2tmp_dos_ven_oper_fac.dbfT Transferido> U XESTADOFINALXLOG XCOUNTTRFACTUALIZAR_ESTADOTMPTRFCAUSAAGREGAR_TEMPORAL AGREGAR_LOGXREMITO_FACTURADOXXCCVFACVENTAS_2REMITOFAC_VENREM_VEN MOVSTOCK_2COMPROBUSER_LOG PUB_INDEX TTS_ERRORMENSAJE ESTADO_INDA"CRecuperando datosH:3 R*Ccccobtmp_dos_cccob_rec.dbf0Cven_opertmp_dos_ven_oper_rec.dbf,Cccclietmp_dos_ccclie_rec.dbf 23(Cccventtmp_dos_ccvent.dbf(Cventastmp_dos_ventas.dbf(Cccclietmp_dos_ccclie.dbf,Cccclietmp_dos_ccclie_apl.dbf&Ccccobtmp_dos_cccob.dbf,Cven_opertmp_dos_ven_oper.dbf,Cmovstocktmp_dos_movstock.dbf(Ccliauxtmp_dos_cliaux.dbf,Ciibbprovtmp_dos_iibbprov.dbf*Cremxfactmp_dos_remxfac.dbf,Cplanvarctmp_dos_planvarc.dbf,Citm_desctmp_dos_itm_desc.dbf*Civa_ventmp_dos_iva_ven.dbf0Cven_opertmp_dos_ven_oper_fac.dbfFUXLOGACTUALIZAR_ESTADOTMPTRFCAUSAAGREGAR_TEMPORALABRIR_AGREGAR_TEMPORAL* Ta0CValidacin de la Transferencias1T!C %-TC &CValidacin finalizada% #> (B-U XFAC_VENXCAUSAXCOD_CLIXFEC_VEN XESTADOFINALXLOGXCOMPLXOK AGREGAR_LOGVALIDAR_IMPUTADOVALIDAR_IMPUTACIONESTMPTRF ESTADO_IND3.CValidacin de la imputacionesFG(( referenciaTCNearvGF ESET NEAR &xnr #+C+   ,#%   $2T%Tiene imputaciones. No se transfiere.B-HUXFAC_VENXCAUSAXCOD_CLIXFEC_VEN XESTADOFINALXLOG AGREGAR_LOGXNRCCCLIE REFERENCIAREFCAUCOMPROBCAUSATRANSF%$CValidacin ImputadoF G((cpbt E#+C+   %  ,TEst imputado. No se transfiereB-HUXFAC_VENXCAUSAXCOD_CLIXFEC_VEN XESTADOFINALXLOGXCOMPL AGREGAR_LOGCCCLIECPBTCOMPROBCAUSAREFCAUQ @F #> JUXNRORECXLOGXDTDIFFTRRECF8F9    TCC\gT CCRg T TC TC FVrtrrec  C TCNUXFAC_VENXCAUSAXCOD_CLIXFEC_VEN XIDSESION XDTINICIOXNRORECXTXTXF1XF2XF3XDTDIFFGENERAR_TXT_RECUPERACIONODEYFUNC CODIFICAR_BFTRRECF1F2F3F4F5F6F70G+( qdfoxjson C TFG((ccvfac E%C4 ^J %TC C C F G((ven_fac E#+C+   ^J %TC C C H BUXFAC_VENXCAUSAXCOD_CLIXFEC_VEN QDFOXJSON JSONSTARTXTXTCCVENTCCVFACOOBJJSONENCODEVENTASVEN_FACFAC_VENCAUSAU T-%CtmptrfE TTaT-Ta CT-T-T F  (% T-   3 TaT  C C#) BUXSELFACXOKOFRMSHOWCOMMAND1VISIBLE SELECCIONACTUALIZAR_CUENTASHOWXRESP RESULTADOTMPTRFSELFOR WINDOWTYPE SQL_REINICIARaFG((fec_ven!(\tmp\tmpSELTRF.dbf!\tmp\tmpSELTRF.dbfUTMPTRFFEC_VENP_LOCALALL CCrear TMPSELTRF%C TMPSELTRFLFQFG((fec_ven!(\tmp\tmpSELTRF.dbfF%Q\tmp\tmpSELTRF.dbf& & U XLOG AGREGAR_LOG TMPSELTRFTMPTRFFEC_VENP_LOCALFAC_VENCAUSACPBT %CxLogbLE CLog no pasado:  y*TCC: C C UXLOGXESTADOMENSAJE4DQJSON_ENVIOS_COMPROBANTESavfp_objects_definiciones.prgD QJSON_ENVIOS_COMPROBANTESavfp_objects_definiciones.prg   C Enviar trf&CCreando transferencia T -HTCjson_envios_comprobantesavfp_objects_definiciones.prgTTTT CTCaGC"F:\Sistema\TEMP\AGES\Comprobantes\-.jsonTCwwHTTPN Tapplication/jsonTPOST4C comprobantes-application/jsonRT http://2oSistema.oSincronizacion.recibir_comprobantes.agesC TransfiriendoT C "CLeyendo respuesta T C C{ \T C C !%C "% #{Hw $GiCYHay una incopatiblidad de versiones entre su sistema actual y el sistema del servidor !!!C /Debe actualizarse el sistema antes de continuar% Ta T- 2w%sz%C$Error en el envo del comprobante. (CCZ)C  Cancelo el proceso? C C  !& Ta oO%C%Quiere seguir viendo esta pregunta? C C  !& k T-( TaT%'#X%CError !!! Cancelo?C C CC  Sin respuesta(6& Ta %C%Error en la conexin con el servidor.C  Cancelo el proceso? C C CC  Sin respuesta(6& Ta B U)XFACVENXCAUSAXFILEXLOGXERRORES XCANCELAR XPREGUNTAROENVIOAVFP_OBJECTS_DEFINICIONESPRGORESPCJSONLCHTMLXCMDOEXSYS_MACTUALIZAR_ESTADOCPBTCAUSAEMPRESAP_CODEMPOBTENER_RESPUESTAXJSON NFJSONCREATEWWCLIENTLOHTTP CCONTENTTYPE CHTTPVERB ADDPOSTKEY P_AGES_SERVER P_AGES_DIRPOST NFJSONREAD RES_MENSAJETYPEORES_TIPOERRCODMENSAJE MENSAJE_SINOP_DEVMESSAGEborrar_temporales3Bborrar_temporales16E open_files2MH open_filesH close_filesLzipeargN codificar_zipyTabrir2Uguardar_temporalPUabrir_tabla_genericoVcrear_temporal1W abrir_tabla1X abrir_tabla2Xcerrar2KY cerrar_tabla2Y causa_atxt Zactualizar_estado[ trf_ccvent9\ trf_ventas\ trf_ccclie]trf_ccclie_aplf^ trf_cccob_apl atrf_ven_oper_apla trf_movstockb trf_cliaux\c trf_iibbprovd trf_remxfacd trf_planvarcke trf_itm_descf trf_iva_venftrf_ven_oper_fac}g trf_cccob_rec@htrf_ven_oper_rechtrf_ccclie_recitrf_base_exactnj trf_base_doKotrf_base_noexact_dosabrir_agregar_temporalhzagregar_temporal {transferir_realmente{recuperar_cpbtvalidar_transferencia_cpbtZvalidar_imputacionesvalidar_imputadoوguardar_texto_logSguardar_texto_recuperacionӊgenerar_txt_recuperacionseleccion_cpbts_recargar_tmpseltrfJcrear_tmpseltrfҐ agregar_log enviar_trfrq!qABAA!qArA2qAAr21RaAAQaAAAArqA#!daqaqQaaqqq" QA1raA2rqAAqAAqAAqAAQsR$!aaaaA#!aaaABA3tB6Fq0DABA4!3%ABst12ArAqArArb!qrrt!AAqrbBRq3AAAA!q1A4ABAr3AAqAAA#qb2qrrBBBBBqArq1AqDBCc"4BCAA#qaaAAA1AAA3!2qABAAAAArArAqAAAAq12 BQ1A12AQAABRAttqA2CARsC$A!AcB2qQAAA1aaAaQaaQAq3qQRQAqqqQqaqqaQ2qa2rqaqqa2A1rqaqqqa1aAAB2qqaqqqA21ra!tqAAqAA1qqR2B1#A!!AAAaCrC1q2q!q3A!6qqAAAAB32q1B1qB2q!q2qAAB2qqAAAAA3"CAb2qq2q2q3qrr1!q!!AB1qAA3q2qa2q2q2q!2q2q2q2q2qt2q2qq2q31AAAAR2b2 GrABAAA21AAAAr2'BABAAA21AAA"!Ar2usr51uBCTGBBBAAA3!aA3!aA3q!BsRAAr"BA!D3q"qaAr4q2AbqA2qq12a11!qAAA42Br1qAAAB3qqA2qqAQqa212qqQAq1QAA3qqqqAAQA3qQ2qqAAqQ!2A2BA1qa1qrcAB"S"!AAaq AAAAAAAABB14OimI@mq^>qq5cqhw;wynyiXo$ ( Ոx.5i;bD.W7ٌzf:9j=Yn@DԑsUXҒ[Y^y aBdgǖ_j-mNps:ߚvyߛ|ݜ9ZKtOEfGvB`en{Qx3Xwv %G-y/5DjG_ G~(clases<7TC abm_armadoresNTCU- BBUCLASESPOABMARMADORES SOLO_LECTURAACCESOSHOWL ges%Carmador :FQarmadorFBUGESARMADORh4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGO openfilesusr_vld_codigo-ATarmador T-T PreparadoresTarmadorT PreparadorTdescrTdescrTcodigoTcodigoT hlpT  abmarmadores T - T P T TcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_armadoreshlpabm2brqQBD2ArA1q1qAr5CAq!!11111: V8c!%vtaOXEG(9 CTCX T T - T T T T  T -% T2313 C C #6 > a+  T C H R ve_cliente1(%C N! C ve_facturas_exportar(%C !% CBU ACTIVEFORM DATASESSIONID OPEN_FILESXCOD_CLIXSUCSINSTKXTIPOPEDXRESXFORMXRFCXDEBUGABRIR_TABLAS_FIJASOBTENER_FACTURASTILDEXMAXFORM VE_CLIENTE1WIZARDVE_FACTURAS_EXPORTAR PROCESAR_CSV 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMG+( ve_funcionesoccventXclientes QQQC   Q   Q   Q QCC(XQQCC \gQQQQ-QC  C  QCZ Q  V C$  tmpfacBUXCOD_CLI VE_FUNCIONESCCVENTCOD_CLIFEC_VENFECHAREM_VENREMITO TIPO_CPBTCAUSAFAC_VENCOMPROBFAC_CAUPEDIDOCODIGOCLIENTESNOMBREDEUDAIMPORTESUCFACREFOC_NUMT672DTO672TILDETMPFACH :BIVA 21 \BIVA 27 %@BIVA 10.5 BIVA EX BCZUXPER1 G(ges%CClientes @Qclientes%Cnumfac nQnumfac%Cempresas Q \empresasUGESCLIENTESNUMFACP_SYSTEMo otmpfacQXventasQ    CCC8255826082658270827584508700870187358775#C--C-6Q tmpfac2Sotmpfac2Q  C Q  tmpitemcF-otmpfac2QXtmpitemcQ! ! !  XartxcliQ' '/'/00C \QC =QQ00C\QQC-QCXQQRIQQ !Q"Q"IQ#CXQ$Q%Q&C'(Q)Q* Q +Q+,- tmpcvs ~T1CC0=gF2 #1F0>23>24>$C05&otmpcvsǿ +tmpgrfotmpgrfQ;Xiva_venQ8 8=8 ; ;+ "TQ7C895:Q%&CC)>XQ)CC*>XQ* +89;,;-tmpivartmpcvsotmpivaotmpgrfQ; "TQ7 PERC IIBB BA-Q%&CC)>XQ)CC*>XQ* +;,;-;,tmpiibbrtmpcvsotmpiibb)@QEXPORTAR_LINEAS imp_exp.vcx&CQ EXPORTAR_CSV imp_exp.vcx-TDCexportar_lineas imp_exp.vcx*TCC exportar_CSV imp_exp.vcxF0& 0 ~ CCEC0aCFC0aCF C0AMERICANaCFC0aCFC0TaCFC0TaCFC0TaCFC0aCFC0TaCF$C0 T########.##aCFC0T######aCFC0".t.aCFC0#TaCFC0$TaCF$C0% T########.##aCF%0&C0&T####aCF CaCFC0)TaCFC0*TaCFCCGDETHDG2TIC Archivo CSVCJFacturasCSVTKCITICKH CKULTMFVENCOD_INSATRBUL RECEPCIONCOS_LIFOTOT_VENIVAPERTMPFACVENTASFAC_VENCAUSATILDETMPFAC2FAC_ITMTMPITEMCEMPRESASCODIGOP_CODEMPFAC_NUMFAC_LETFECHAFAC_FECREMITODESCRPROVEEDCUITCAI_NUMCAI_FECIVA_TIPIMPORTEFAC_IMPTICOC_NUMITM_TIPOTAX_TIPOITM_IMPOC_ITMARCALTCODITM_PROVITM_CODFAC_CAUT672DTO672ARTXCLICOD_CLITMPCVSXPFACNUMFACCAICAIVTOOBTENER_IVA_TEXTTMPGRFITM_TIPIVETASAIVATCVIVA_VENCOMPROBTMPIVATMPIIBBCSVIMP_EXPVCXORECOCSV VAL_AGREGAR VAL_AGREGAREX VAL_TEXTOXCSVXFILE P_DIR_EXPORTXPwizardobtener_facturasobtener_iva_text open_filesK procesar_csv#QA1qAA2AAAA2AB21r12A12A1r1Aq3qa!E2q111A2aAA!AA35raqqqBBbar!aaaaAAa1A1A"!<'&2:CL@z oM Y [%|&q;IEG(90ve_sql_desplazamiento tmp_demora)%C\xchg\tmp_demora.dbf0s C 1C$La operacin no se pudo realizar !!!BU ACTIVEFORM DATASESSIONIDDEMORAVE_SQL_DESPLAZAMIENTOP_SERVERPROCESARMENSAJE%C tmp_demora&FQF"Q\xchg\tmp_demoraMo tmp_demoraCQtmp1Io tmp_demoraCQtmp2totmp1tmp2C  C  T6Q tmp3e /Actualizacin automtica de demoras de clientes ve_demora.prg%Cclientes QclientesF <pclientestmp3 C   %Ctmp1XFQ%Ctmp2|F Q%Ctmp3F QBU TMP_DEMORAP_SERVERCODIGONOMBREIMPORTEDESPLAZ ACUMULADOTMP1TOTALTMP2TMP3USER_LOG PUB_INDEXCLIENTESDEMORACOD_CLIprocesar=AA3qAA!BRAArRqAAQqAAQqAAB1 % ~ X.UeE %-TMCL$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T "T\tmp\CC]R ve_pedido TTA T T T T Tave_cambio_de_tc.scx(%>TC00CCZR-C00000000CCZRZTCV=Cc*CdCrX6666!% C JCError interno !!!C "No se puede concluir la operacin.!BU" XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMP XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOXTIPOCOMPROBANTEXLETXCENXNUM XCAMBIO_NEW XCAMBIO_OLDXRESVE_CAMBIO_DE_TCSCXXCPBTXCAUSACCVENTFAC_VENCAUSA REGISTRARMENSAJE T T& co_funciones%eCB Ta T` trsacccventventasccclieiva_vendiariogconcepto% TV trsacve_cambio_de_tcModificacin de tipo de cambio  %T C%  T T TVtrsacve_cambio_de_tcModificacin de tipo de cambio  H7 ~+CTipo de cambio actualizado !!! B  B C  B  B T BUXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESCCVENTFEC_VENMENSAJETRSACAAALOCK_GBEG_TRANXCPBTXCAUSA XRESULTADO TRANSACCIONEND_TRANTTS_IDpC Suspendo?aT F>     F~>< d$TCZ TF~>'%CZCZCCZ !(2T"C!#ge01"F ~|#> %%&&F'~()->'*++,,-.Modifica el TC. Anterior: CC Z Nuevo: CC Zve_cambio_de_tc.prg[ T/- BU0SYS_MOSTRAR_SCREENXCOEF XCAMBIO_NEW XCAMBIO_OLDCCVENTCOEFICTOT_VEN IMPONIBLEINVIVAINVIVA_VENDEUDADES_COMREDONDEODTO672RECARGOVALDECLVENTASFAC_VENCAUSAXCPBTXCAUSAARRCOD_CLIMAXARRCCCLIECOMPROBIMPORTECUOTAREFCAUCUO AGREGAR_ARRZXIDFN_CANCGE01BASEIVADIARIOGASIENTOASIDIACAMBIODEBITOCREDITOUSER_LOG PUB_INDEXTRSACv(G%CCBTTBUXIDZMAXARRARR registrarZ transaccion agregar_arr BQB2ArA'BBBB2c2AA2a22AAb122BBB3r rBtBrrAA"2Bs4AsqBbB2qrBAA1B1'C GO[ 1sI%<5Y7rE;EPG_ G~(clases<7TC abm_acuerdosN BUCLASES POABMACUERDOSSHOW dey_func2 gesCacuerdosFCbienesCatributoCbultosClineasCgruposCclientesCagenteCcuentasBUCREATE_OBJECT_DEYFUNC DEY_FUNC2GESODEYFUNC CHECK_OPENEDACUERDOS openfilesTacuerdos T-TcodigoT abm_acuerdos T-TAcuerdosTAcuerdosThlpTcodigo T -T DescrT  DescripcinT DescrT C TTcodigoTCdigoTcodigoTN TTdfecTDesdeTdfecTD TThfecTHastaThfecTDU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3 abm_acuerdoshlpabm2brqB2AraaaaaqA1R2TQ1!!111!!2s"%eǂ~GE ,G(9T9 ET9C Suspendo?aTCTCTC C C C T C$ T C$TCXT T T F TTCsessionNve_consulta_ventas(%C cpbts_controlFQ"%Ccpbts_control_tmpFQ<.dbf.cdx.dbf.cdxBU ACTIVEFORM DATASESSIONIDXDATASESSIONIDSYS_MOSTRAR_SCREENXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2 XARCHIVO3OPEN_FILES_SYSTEM OPEN_FILES CREAR_TABLAXDFECXHFECXDBIEXDATRXDBULXDPRV CPBTS_CONTROLXRESODS_ALTVE_CONSULTA_VENTASCPBTS_CONTROL_TMP7"T\tmp\CC]R%CtempcompFFQ%CtempcompjF |FQtempcomp (Q%Cccvent Qccvent%Cventas Qventas%Cclientes 4Qclientes%Csucursal fQsucursal%Cbienes Qbienes%Cbultos Qbultos%Catributo Qatributo%Cprovinc ,Q \provincBU XTEMPCOMPP_LOCALTEMPCOMPCCVENTVENTASCLIENTESSUCURSALBIENESBULTOSATRIBUTOP_SYSTEM %Cempresas 6Q \empresas`oempresasC a6empresas_disponibles8rempresas_disponiblesTODAS& <7CN (BUP_SYSTEMDESCRCODIGOEMPRESASP_DOSP_OLDDOSEMPRESAS_DISPONIBLES ARR_EMPRESAS2 4G+(ge01CBUXCOMPROBXCAUSAGE01 CPBT_VIS2$%C cpbts_control0FQ1h1CCCC(CCCd C C( N  C( CC DNLN C(N C(QF& & & & & & & & & & & BUXARCHIVO CPBTS_CONTROLCOD_INSATRBULDESCRATRIBUTOBULTO DESCRFULLCOD_CLINOMBRESUCCIUDAD PROVINCIAFAC_VENFEC_VEN RECEPCIONTILDEEMPTELCAT CATEGORIACODIGO4T.t.%C N%T and v.cod_ins=xdbie%C !T and v.atr=xdatr%C !T and v.bul=xdbul%C %T and pr.codigo=xdprv-sys_procesandoConsultando...select v.cod_ins, v.atr, v.bul, b.descr, nvl(at.descr, space(30)) as atributo, nvl(bu.descr, space(30)) as bulto, alltrim(b.descr)+" "+alltrim(nvl(at.descr, "")) + alltrim(nvl(bu.descr, "")) as descrfull , v.cod_cli, cl.nombre, c.suc,padr(iif(c.suc#0,nvl(s.ciudad,""), cl.ciudad),40) as ciudad, upper(pr.descr) as provincia, v.fac_ven, v.fec_ven, v.recepcion , xcodemp as emp , cl.phono as tel , cl.cat from ventas v left outer join bultos bu on bu.cod_ins+bu.clave=v.cod_ins+v.bul left outer join atributo at on at.cod_ins+at.clave=v.cod_ins+v.atr , bienes b , ccvent c left outer join sucursal s on c.cod_cli+str(c.suc)=s.cod_cli+str(s.sucursal), clientes cl , provinc pr order by v.cod_ins, v.atr, v.bul, v.cod_cli, c.suc, v.fec_ven desc where between(v.fec_ven, xdfec, xhfec) and c.fac_ven+c.causa=v.fac_ven+v.causa and cl.cod_cli=v.cod_cli and b.cod_ins=v.cod_ins and !empty(v.cod_ins) and pr.codigo=iif(c.suc#0,nvl(s.provincia,""), cl.provincia) and c.causa="V" and &xfilt into cursor cur readwrite SocurXcatcli  C C(XQ 1\tmp\sys_procesandoQBUXCODEMPXFILTXDBIEXDATRXDBULXDPRV SP_MENSAJESYS_PROCESANDOCURCATCLIDESCR CATEGORIACATCODIGOP_LOCALXTABLASP_OCULTAR_DEFINITIVAMENTE45TC]FSC F  \tmp\.dbf%%Cempresas Q \empresasF ~ T TC datasessionvTCsessionNG( CG( \data\CCZ CC G(< G(F  \tmp\.dbf#)BU XCONSOLIDADOXDFECXHFECXDBIEXDATRXDBULXDPRVXTABLA CPBTS_CONTROL COMPROBANTES1P_CODEMPP_LOCALP_SYSTEMEMPRESASCODIGOXCODEMPODSDS DATASESSIONIDSETS OPEN_FILESP_SERVER open_filesSopen_files_systemver_cpbta crear_tabla comprobantes1 comprobantes!ArrvqAA"qAAs2121B3%qAAqA!A!AAAAA!A!AAAAB2Ar!B4"B3qqAApraC2q!QA!A!A!QAa@7CB3rrrArAqqrCARB1'UN Y  ^ 1tKi#%  IFER TC*Buscando el directorio...aTCsys_procesando%.| ShellExecute Shell32.DLLGCopenexplorer/e,C /root,6 KEC(No se pudo conectar con el directorio!!!C C  U XDIRECTORIOXROOTXDIRODEYFUNCGET_PATHSYS_PROCESANDOXOK SP_OCULTAR SHELLEXECUTESHELL32DLLMENSAJERQqQA1 ( @##   ~~ {{  )""##   "  #     ~z~~~xxx """{}}}z"")#& "%%   !"" #$%&'('('(')*+,-./0123456('('( #$78('('('(9:;<=>?@ABCDEF'('(' #$%&'('('('GHIJKLFMNOPQR?('('( #$78('('('(STUVWX6YZ[\]^/'('(' #$%&'('('('_`abcdefghijkl('('( #$78('('('('mnonm'(pqrst('('(' #$%&'('('('(?uvu?('wxyzF'('('( #$78('(l/6el{|v|{l(S}~|?('('(' #$%&'()z.?F'('('( #$78('||||n?('('(' #$%&'(F'('('( #$78('wye'('(' #$%&'(7.6('('( #$78('F'('(' #$%&'('www|?('('( #$78('('('('('('('wxF'('(' #$%&'('('('('('('(x6('('( #$&8&8&8&8&8&8&88&8&87Ƹ%7%7%7%7%7%7¡̟ϸԾ&8&8&8&ټ׸%7%7%7%7%~YFG(9estadoJTaTT TInicializando... CT C T0T Buscando remitos sin facturar...ooccventXclientes Xsucursal C !Z"C""ZXdesp Xventas  -,,-Xcostos ')' Q Q QCC(XQ QCQ-QQQCC \gQ QC QC SINO6Q  Q !Q!C"C(XQ# $Q% &Q& 'Q(C)*C(XQ+ 0  -r C X CC Rg .     /  1 Q 0TT Indexando...%12 >0 SI w ~s%F4G((despacho E0)>0 C4SINO6 oN>0 C0SI*C0 0 --NO66& C& %%& & & #5& (+(& ++ 6 T7 T8C formulario9%ve_facturacion_de_remitos(8%8F0 - T;G+( ve_funciones T= T>$%C=>;? C>@ { TA7TBCCD CDCE66,,&H2 ,R ># ,w ># 2 ># QT(CC),gF- G((prod E(>//&HM / >0 /16 >0 2M >0F G((% #$% T23F4G((armado%32 E2%C4  T5>67F%8 9 F:G((ordenitmEC9ZC*Z%C4U><<E=proc_stk">-c Ta?( %C? 9!%? QT  T 9  T9TReferencia a OC CC9Z invlida !!!B%@"" C"bienescodinsFAG((codlot*E"C]+C+ J"CAAAACCA $%D C9 ZR AHF%L ?( H TE TF TG TH.Icm_procsC? EFGHFKG((tcccord%K9C?  EC? %C4 qMNC ZM Anulacin de recepcin sobre OC CCC? ZOCC?  ZN>KPEQF%KRN CScm_terminar_orden_de_compraC? aa%C TB  )Ucm_oc_mantenimientoC?  D T3TOC CCC? Z no encontrada !!!BFWWBUXCONVERTRANSF XOPERACIONXID_ITMITEMMOVSTOCKPRIMARIOXCONTROLXHUBO_REFERENCIA_A_OCARR_OCS MAXARR_OCSNUMEROCAUSACANTIDADSTK_ERRSTK_MSGSTK_TSTMOTINVTIPO ACT_STOCKPROC_STKCODIGOBULATRDEPOSITOFECHADESPACHOXERRXMSGINENTRASALE TIPOAJUSTEXCODIGOCOD_INSAPROBADOXREGXORDER XCANTIDADREFCAUXREFREFREFITMMOV PROCESADOPRODUCCIPROD CAL_APCAN CAL_APROBREALXARMADOARMADOCCARMADO TTS_ERRORDEPDEP_EGR XES_REMITOORDENTCOMPRASORDENITMRECEP3 ACTUALIZAR_OCDEP_INGZBIENESCOSCODLOTLOTECOMPROB XPER_ENTR XPER_FACT XPER_IMPFXALIASPORCENTAJE_CUMPLIMIENTO_OCCM_PROCSTCCCOMPTCCCORDUSER_LOG PUB_INDEXTRAN_PRGPER_ENTPER_FACPENDTERMINAR_O_REABRIR_OCCM_TERMINAR_ORDEN_DE_COMPRAOC_MANTENIMIENTOCM_OC_MANTENIMIENTOCONVER2 open_filesvalidar_operacionanular_operacion transaccion,A12AAAAAB2AA!A1AA1AAARASB2qr2e"AAcras"Ab1bAaar$a BAB'BA31AAc AB2BQA2AQqAAqAA!qAC3uAbrqB11B2AArAAAAtbOaba AAbwrr1Ar11ACrDbr2ABBrAvrZAAA1aAAAAArAAAArArAr5"AAC1AABBrB1 3Es(</% W XF ,G(9T9 ET9TCTCTC CC T C$ T C$F T %in_control_de_movimientos( %CmovsF Q%Cmovs_tmp-FQ.dbf.cdx.dbf.cdxBU ACTIVEFORM DATASESSIONIDXDATASESSIONIDXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2 XARCHIVO3 OPEN_FILES CREAR_TABLAXDFECXHFECMOVSXRESIN_CONTROL_DE_MOVIMIENTOSMOVS_TMP5%Cmarcas *QmarcasBUMARCAS= 4G+(ge02CC ZPBUXORDENXCOD_PROGE02 CPBT_VIS2%Cmovs'FQnh1CCCCPCDC C  C C N NCCCCCN CCCCC(N C(LLCCC C(!N "C(#N$C%N&N'N(C()CQF& & & & C)& & & ((BU*XARCHIVOMOVSCODATRBULDESCRCODALT1FECHACAUSANUMERO COMPROBANTDEPOSITOCANTIDADSALDOSERIEDSERIEHDESPACHO IMPORTADOSERIESITEM COMENTARIOEMPRESACODPRCLPROCLINOMBREMOTIVOMOTDESCRBORRAR SALDO_INI CODATRBULCODFULL PROVEEDOR DPROVEEDORMARCADMARCAIMPORTEMONTXTMONEDASTOCKTOTALDUSRHORA 4TC]2sql_rptmovcondetaa=\xchg\.dbf(\tmp\.dbf\xchg\.*%Ctmp1FQF#Q\tmp\.dbf%Cstkxdep +Qstkxdep%C tmp_stockTF Qo$tmp1   Q stkxdep   CQ          tmp_stockgotmp1bienes  X tmp_stock      Xproveedo Xmarcas Xventas  C!Z" C#ZQCC(XQQCC(XQC QQ1\tmp\-1.dbfF$S$"\tmp\-1.dbf#)BU%XDFECXHFECXTABLA EXPORTAR_1SQL_RPTMOVCONDETP_SERVERP_LOCALTMP1STKXDEP TMP_STOCKCODIGOSCODATRBULCANTIDADSTOCKCODIGOBIENESCOD_PRO PROVEEDORPROVEEDONOMBRE DPROVEEDORMARCAMARCASDESCRDMARCAIMPORTETOTALCOD_INSVENTASNUMEROCAUSAITEMFAC_VENITMMOVS open_filesqver_oc crear_tabla movimientos!ArTRqAAqAA2121B3!AB4B3qRqAA&rAB3r$RqAA11AqAA/qr!RB1JB$L)3 V; E%  v" iRF G(9 $ C TTCX+a T-+in_operacion_pregunta(% T T %! C  !BU ACTIVEFORM DATASESSIONID OPEN_FILES XOPERACIONXLOTEXRESIN_OPERACION_PREGUNTAXERRXMSGPROCESARMENSAJE%Cproveedo .Qproveedo%Cconver \Qconver%Cconver2 Qconver2%Cdespacho QdespachoBUPROVEEDOCONVERCONVER2DESPACHOi4 T T T T#%Cconverconver&%CmotinvcodigoTC Cconver2conver8TCC Cconver2+  6% nHT;No es una recepcin, no se puede asignar lote auxiliar !!! T %C(%C proveedocodproT 2T%Motivo de operacin no encontrado !!! T Y(TOperacin no encontrada !!! T BUXERRXMSG XOPERACION XCONCEPTOXDMOTIVO XES_REMITOCONVERMOTIVOMOTINVDESCRCONVER2COMENTTIPOCOD_PROPROVEEDONOMBRE4 T T T$%Cp T B T"trsacdespacho%`!Tin_asig_lote_aux.prg(T Asignacin de lote auxiliar T. trsac C ZM T T C % T trsac %   T%TError en transaccin !!!B- OT. trsac C ZM TB- T  T"TAbort el usuario !!!B-BUXERRXMSG XOPERACION XCONCEPTOVALIDAR_OPERACIONAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORTTS_IDF~C y?%Cdespachodespachou>BU CONVERTRANSF XOPERACIONDESPACHOCOD_INSBULATRLOTEEXTXLOTE open_filesvalidar_operacionprocesar transaccionA12AAAAAB2AA!A1AAAB2qr2b"bAAA!AA3AA#22QqAqA!qAC3uBAB1{'2F _n5 %0 ء0GG+(dey_func gesCBienesCAtributoCBultosCProt_espCProveedoG~(clasesin_protocolos_selBUDEY_FUNCGES CHK_OPENEDCLASESIN_PROTOCOLOS_SEL!2Q1QQB1%NSDFGG(9in_anular_operacionTC]TC] C T in_cierre_clasificacionBU ACTIVEFORM DATASESSIONID OPEN_FILESIN_ANULAR_OPERACIONXTABLAXTABLA_1 CREAR_TABLAXTIPOCONSULTAIN_CIERRE_CLASIFICACIONs4 oconverQmotinvQconver2Q proveedoQQ -Q  Q QQ       C  6 1\tmp\QF\tmp\ ~cTC >#)BU XTIPODISTINCTCTRANSFFECHACOD_PROPNOMBREREF2REMITOTILDEC2CERRADA OLD_TILDEDESPACHOLOTEENTRAANIMALESCONVERMOTINVMCONVER2PROVEEDOMOTIVOCODIGO TIPOAJUSTEP_LOCALXTABLA_1TMPALLXRINDERINDE%CtmpFQh1\tmp\LN DCC(C  L C N NQ\tmp\BU TMPP_LOCALXTABLATILDETRANSFFECHACOD_PRONOMBREREMITO OLD_TILDELOTERINDEANIMALES4 T!trsacconver2% TPtrsacin_cierre_clasificacion.prgCierre de Recepciones T C%C T  TPtrsacin_cierre_clasificacion.prgCierre de Recepciones)%C  p C  T  3C&No se pudo comenzar la transaccin !!! BU XTIPOAAALOCK_GTRSACBEG_TRANXMSG TRANSACCIONEND_TRAN TTS_ERRORMENSAJETTS_IDF~'%Cconver2converyF% >a Cconverconver%C4F+C+  TCconver2O TH%C    c k%Cc1T$Error en la baja de los animales !!!B F # >FH  TError en tablas !!!B uTCconver2O T1in_anular_operaciona%LBF #>- :TNo encuentra la recepcin CCZ !!!BBUTMPTILDETRANSFCONVER2XTIPOCERRADACONVERXREGISTRO_CONVER2XNEWTRF BAJA_ANIMALESCOD_INSATRBULENTRASALEDEP_INGDESPACHOXMSG REF_CIERREXREGCV2XERRANULAR_OPERACIONIN_ANULAR_OPERACION#F-   T %C4 AT 4No existe el motivo de cierre de clasificaciones !!!B- T   TC]T\tmp\+in_operacionestemporalYrtemporal  T T T TC$ T T T in_operaciones TBU!XTRANSF XTRANSF_RESXCODIGOXATRXBUL XCANTIDAD XDEPOSITOXLOTEMOTINV TIPOAJUSTEXMOTIVOXMSGCODIGOXTABLAXPATHXTABLA_TEMPORALP_LOCALCREAR_TABLA_TEMPORALIN_OPERACIONESDEPINGENTRASALEDESPACHOBULATRXDEPINGXDEPEGRXTIPOXFECHAXNEWTRF XRESULTADO XREF_CIERRE WRITE_DATA T T TT T-in_operacionesBC 6UXLOTEXTXTXMETROS XANIMALES XFECHAMATANZA XPROVEEDOR BASE_RINDEIN_OPERACIONESconsultaH crear_tablaprocesar transaccionX baja_animales rindeQB2qBsQABRB4BqAA~ B2q2"AA2AB3urq1qbAAqBrAAAAb2AArSCAAAB21rqA2q12 #79P7- }f ?QQ%?M\dL~G G(9 $ C T+a T-in_pallet_desarmar(% T T%! C  !BU ACTIVEFORM DATASESSIONID OPEN_FILESXARMADOXRESIN_PALLET_DESARMARXERRXMSGDESARMARMENSAJE in_comienzoa%Cccarmado HQccarmadoG+( in_comienzoG+(in_operacionesBU OPEN_FILES IN_COMIENZOCCARMADOIN_OPERACIONES, T T%^Cccarmadoarmado%% 1T$El armado/pallet no est cerrado !!! T +TNo existe el armado/pallet !!! T BUXERRXMSGXARMADOCCARMADOARMADOESTADO4 T T T %C_ B"trsacccarmado#Tin_pallet_desarmar.prg%T Desarme de armado/pallet T. trsac C ZJ%eT C % I T aT }T+ trsacTe_pagoPagoH .C!Se desarmado el armado/pallet !!! 2BUXERRXMSGXARMADO XCONCEPTOVALIDAR_OPERACIONLOCK_GTRSACAAATRAN_PRGTRAN_TXTBEG_TRAN XRESULTADO TRANSACCIONEND_TRANMENSAJE T%;> y T'CMal parado en ccarmado !!![ T- BUXERRCCARMADOARMADOXARMADOESTADOINMENSAJETRSAC open_filesvalidar_operacionSdesarmar transaccionbA12AAAAAB2AARB2bAbbAA2A$2Q22AA1AB3qaqAA1k ;+2CP|t%&2qoRFG G(9 $%Cesolcom ?QC\data\CCZ6\esolcom T Ta T!trsacesolcom% 5 T  TZ trsacin_solcom_numero_aux&Asignar nmero de solicitudes auxiliar Ta% T TC % T T TZ trsacin_solcom_numero_aux&Asignar nmero de solicitudes auxiliar+%  EC8Se han registrado los cambios de numeracin auxiliar !!! T BU ACTIVEFORM DATASESSIONIDP_UNOP_SYSTEMP_SERVERAAA XRESULTADOLOCK_GTRSACXSOLBEG_TRANXXMSG TRANSACCIONEND_TRAN TTS_ERRORMENSAJETTS_ID%CtmpFQ:oesolcomtmp T ~TT"pesolcom BUTMPFECHASOLSOLAUXESOLCOMXSOLAUXXSOL transaccionAAr22AARABA3BqAA!A2%yB%>_cHG G(9 $G~(clasesG+(listados Tve_armado_imprimir(% 0ve_impresion_rotulosACCZBU ACTIVEFORM DATASESSIONIDCLASESLISTADOSXNUMARMAVE_ARMADO_IMPRIMIRXRESIMPRESION_ROTULOSVE_IMPRESION_ROTULOS%Carmado 1QarmadoFG((armado E%C4iBa *CPreparacin no encontrada !!!B-UXARMADOARMADOMENSAJEvalidar_armado_imprimirqA!BB2q!ArqqA1 rZ%^W9rNO HcG_ G~(clases<7TC abm_motinvNTCM- BUCLASES POABMMOTINV SOLO_LECTURAACCESOSHOWS ges%Ccentral :FQcentral%Ccostos kF Qcostos%Cdeposito FQdeposito%Ccuentas FQcuentascuenta%Cmotinv F Qmotinv%Cinvmode AFQinvmodeFBUGESCENTRALCOSTOSDEPOSITOCUENTASCUENTAMOTINVINVMODE openfilesN#TMotivos de OperacionesTmotinvTMotivoTdescrTdescrTcodigoTcodigoThlpT abmmotinv T - T P T T codigoT codigoTCdigoTmotinvT TUTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 DOS_TABLA DOS_COPIARP_ESPEJA_MOTINVP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLE abm_motinvhlpabm2qarqQB2AAAAAArA1311!!11a1115A2 &95% 20"HG+(dey_func gesCBienesCAtributoCBultosCProt_espG~(clases abmcodbulatrBUDEY_FUNCGES CHK_OPENEDCLASES ABMCODBULATR!2Q1QB1%CeI djxQF$\tmp\C #\tmp\.dbfU XID ABMINVMODECODIGOINVMODD TMP_MODELOSALLP_LOCALTHISFORM TMP_TABLA_1COD openfilesinit hijas_abrird hijas_guardarOT#TModelos de OperacionesTinvmodeThlpTcodigo T- TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNT abmmodelosTcodigoTinvmodd TaTC]TC]TC]TC]   U ANCHO_TOTALTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 FORMULARIOIDXCLAVEHIJAS1DEV TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 abm_modeloshlpabm2arqB2AAAArAAqAArA`12111B42QAQ4rBrA162A1!!111s1A 1 $.c5o=9d FKp A%b0dH4%Cborrar)FQostockbienesQQQCQCXQQ C XQ Q  borrar%C \XCHG( \XCHG\stock( \XCHG\stockԻ% ACSe ha exportado el stock a C \XCHG\stock !!!@"BSe ha exportado el stock. -BNo existe la carpeta : \XCHGUXAUTBORRARSTOCKCODIGOBIENESDESCRLINEACANTIDADMODELOPRECIO CATEGORIA DESCUENTOCOD_INSP_SERVERMENSAJErrqAA A!A1%msGTXH %  $BT9G(9TCSessionNT C C ges C C C Y Transferencia de Stock: Iniciodos_transf_stk.prgF#Ctransferencia de stock T T- T-~ 7 TaFG((conver EFG((comprobEC ZM T2+C+ C ZM  Ta T T T ! T"# T$% T&'T()T*+T,M CTC- C FH% >aT 3C. Ta%/ RF0 ~ 01S N TaFG((comprob'EC02@z 9999,999,999_0 TC+C+ 0C02@z 9999,999,999_0  T T T ! T"# T$% T&'T(0)T*03 T4 T5 T6 T,%CT7CC,gT893ocompras27;8 tmp_cos_2WT4<=<>d 0?d 0@d <Ad <BT5<CT6T, CTC- C FH%#>0aT JC. Ta%C tmp_cos_2{F<QX Transferencia de Stock: Finaldos_transf_stk.prg%t%?FC9No se han transferido recepciones porque hubo errores !!!. p'CNo hubo transferencias !!!. %:C-No se han transferido algunas recepciones !!!. 3C&Se han transferido las recepciones !!!.BUDP_DOSP_CODEMPXDATASESSIONID2 ACTIVEFORM DATASESSIONIDXODS1XDATASESSIONID1SET_DS1SETSGES OPEN_FILESSET_DS2USER_LOG PUB_INDEXCONVER2SYS_MXACCXERROR XMOVIMIENTOSFLAGXOKCONVERTRANSFMOVSTOCKCOMPROBXXMSGNUMEROCAUSAXCODCODIGOXATRATRXBULBULXCANCANTIDADXDEPDEPOSITOXDSPDESPACHOXPROCOD_PROXFECFECHAXCAU REGISTRARMENSAJE P_OP_SINSTKCCCOMPRECEOPFEC_COMXCOSXMONXCPBXOPXITMITEMCOMPRASITM TMP_COS_2COS_LIFODES_INSDESC1DESC2IIPERII2MONEDA%Ccccomp *Qcccomp%Cconver XQconver%Cconver2 Qconver2%Cmovstock Qmovstock%Cstock Qstock%Cstkxdep Qstkxdep%Cbienes DQbienes%Cdespacho vQdespachoBUCCCOMPCONVERCONVER2MOVSTOCKSTOCKSTKXDEPBIENESDESPACHO= G(T\data\CCZ G(BUXDATASESSIONID1P_SERVERP_SYSTEMP_UNO= G(T\data\CCZ G(BUXDATASESSIONID2P_SERVERP_SYSTEMP_DOS! T Ta TCtrsacstockstkxdepdespachocos% 5 T TItrsacDos_transf_stk.prgTransferencia de stock. Ta%a TTC%E T ]T yTItrsacDos_transf_stk.prgTransferencia de stock.+%    T Ba B-U AAA XRESULTADOLOCK_GTRSACXSOLBEG_TRANXXMSG TRANSACCIONEND_TRAN TTS_ERRORTTS_ID%CXD cs_generar 0 -F G((codins E% SC TB in_despacho- T TUproc_stkC$8%C  B  T BUXCAUAGREGAR CS_GENERARXCODXBULXATRXDSPXFECXCOSXMONXCPBBIENESCODINSLOTESXRES ALTA_LOTE IN_DESPACHOXPROSTK_ERRSTK_MSG REG_STOCKPROC_STKXDEPXCANXXMSG open_filesf set_ds14 set_ds2 registrar transaccionAA$rr2Srrb!RrAAbRBBBVuRrr1t2rBRrAARBBBBqAA2aqA1AAC3!A!A1AAArA1A!AAAB2A2A35r22AAqABq3BCAr!A_A1}Nb > %&/VH4%C & TG(9%Ccosult dQcosult%Clineas Qlineas%Cgrupos Qgrupos%Ccatpro Qcatpro%Cproveedo Qproveedo%C faltantesIFQ%Cin_falta {Qin_faltaT C]C V Control de Inventario: entrain_faltantes2.prg in_faltantes2aV Control de Inventario: salein_faltantes2.prg%C faltantesFQBUXTIPO_CONSULTA ACTIVEFORM DATASESSIONIDCOSULTLINEASGRUPOSCATPROPROVEEDO FALTANTESIN_FALTAXTABLA OBTENER_DATOSUSER_LOG PUB_INDEX IN_FALTANTES24&CObtener Datos. Suspendo?a%C*"Control de Inventario: Solo Disp.=CSINO6 Cons.=CSINO6 Solo PD no Bloq.=CSINO6 Filtro=Cin_faltantes2.prg% M CP]"%C xconsolidadobN TH C  *3 sys_procesandoObteniendo stock (1). sql_rptinventarioactual )TCbienes.cod_inscodigo3 sys_procesandoObteniendo stock (1)eselect * from in_falta where &xfiltro_articulos2 into table (p_local+"\tmp\rptinventarioactual") Q%3 sys_procesandoObteniendo stock (2)SF'\tmp\rptinventarioactual>%F ~#Cin_faltaid!>%C tmp_faltantes5FQ3 sys_procesandoObteniendo stock (3)F Csys_procesandoFBUXORIGENXTABLAXFILTRO_ARTICULOS!XSOLO_DEPOSITOS_DE_DISPONIBILIDAD XCONSOLIDADOXSOLO_PD_NO_BLOQSYS_MOSTRAR_SCREENUSER_LOG PUB_INDEXP_FLUSH_VERSION CREAR_TABLA SP_MENSAJESYS_PROCESANDOEXPORTAR_CONTROL_INVENTARIOSQL_RPTINVENTARIOACTUALXFILTRO_ARTICULOS2 FALTANTESP_LOCALIDCODIGOATRBULALL VENTASXPERIN_FALTAUXDIA TMP_FALTANTES POST_PROCESARSP_OCULTAR_DEFINITIVAMENTEC Suspendo?aF:K(C6%*CNo hay artculos marcados !!!B  Ta T -%C F#)BU SYS_MOSTRAR_SCREENAAABBBXSI FALTANTESACOMPRARSOLMARCARMENSAJEXTODOS CARGO_LA_SOL%Cproveedo .Qproveedo%Cbienes \Qbienes%Catributo Qatributo%Cbultos QbultosBUPROVEEDOBIENESATRIBUTOBULTOSE5 Ta%BUXTODOSXTABLAXRES IN_SOLCOMw4,sys_procesando InicializandoWh1\tmp\CCCCN  C N  C C  CNNNNNNNNNCCNNN N NNC C!C"N#L$N%N&N 'N (C)C(*N+L,N -N .N /C(0C1C2C3C4CQ\tmp\5T6\tmp\C]F5& %7& CCgZ !& & & ))& 008sys_procesandoBU9XTABLA SP_MENSAJESYS_PROCESANDOP_LOCALIDCODIGOATRBULLINEA LINEADESCRGRUPO GRUPODESCRUNIDADAGRUPADOCANTIDADCANT_COM DISPONIBLECANT_PED CANT_PEDNOCOPPLNDISP2DESCRMONEDAVALORTOTALSTKMINSTKMIN1 TIPOSTKMINACOMPRARPRODUCVENTACOMPRATIPO_ARTMARCARDISP1UXDIA VENTASXPER VENTASADICCOD_PRO PROVEEDORSOLACTIVOALCANCECATMARCADMARCACODALT1NCMORIGENAD_LICAD_NOT FALTANTESXTABLA2P_NUMINSSP_OCULTAR_DEFINITIVAMENTE4%CxfiltrobC4T.t.Fscan for &xfiltro{CaF >-#)BUXFILTRO FALTANTESPOST_PROCESAR_REGISTROXSOLO_PD_NO_BLOQMARCAR) F T T T T T T@ proc_stk   F >6>CC  C 86F% >I>>CFG((codigoE   %C4TT C"!  T T F%>" #$BU%XPARCIALXSOLO_PD_NO_BLOQ FALTANTESSMPPTISM1UDIAVXPSM_PPPROC_STKCODIGOBULATRSTKMINALCANCEUXDIADISP2CANT_PED CANT_PEDN DISPONIBLECANTIDADCANT_COMDISP1OCOPPLNACOMPRAR A_COMPRARCOSULTXCOSTOCOSTOXMONEDA MM_MONEDAMONEDAVALORTOTAL44Pve_sql_estadisticas dias_stocka\tmp%C dias_stockFQ'Q\tmp\dias_stockF&   F ~%C   dias_stockid> FQF BUXDFECXHFECXFILTRO_ARTICULOSEXPORTAR_VENTAS_PLANVE_SQL_ESTADISTICASP_LOCAL DIAS_STOCKCOD_INSATRBULID FALTANTESCODIGO VENTASXPERTOTALF ~7TC 6 >CT#C  in_faltaid> C BUXDFECXHFECXDIASXSOLO_PD_NO_BLOQ FALTANTESXUXDIA VENTASXPERUXDIA VENTASADICCODIGOATRBULIN_FALTAPOST_PROCESAR_REGISTRO=C Suspendo?a%W CbienescodinsTc% T T %TC D% TC w  - T BU XACOMPRARSYS_MOSTRAR_SCREENBIENESCOD_INS FALTANTESCODIGODISP2 TIPOSTKMINSTKMIN VENTASADIC MINCOMPRA CANTXCAJA obtener_datosg generar_sol abro_tablas_sol cargo_la_sol crear_tablaz post_procesarpost_procesar_registroventasdias a_compraraq#A!A!A!A!AAAqAAAAbbqAAB2eBQ A2A"A12455RAB23sqa2s2BCDqAA5ssB2rr2AABrQB3AA!AAA!AB2qqRB3q@q5saAaB2qAurBRB2srcArAsTB4qAArrarQCBrArB21tr2BB3qrAA2QaAA1& 9V0 thkv|Mg<0SC  ""% %tQlOH4%C & TG(9%Ccosult dQcosult%Clineas Qlineas%Cgrupos Qgrupos%Ccatpro Qcatpro%C faltantesFQTC]C Suspendo?a Ca  in_faltantes%C faltantesFQBU XTIPO_CONSULTA ACTIVEFORM DATASESSIONIDCOSULTLINEASGRUPOSCATPRO FALTANTESXTABLASYS_MOSTRAR_SCREEN OBTENER_DATOS IN_FALTANTESK4%,C 93sys_procesandoObteniendo stock (1)&sql_rptinventarioactual3sys_procesandoObteniendo stock (2)F)Q\tmp\control_inventario F ~F ^J F G((idE  %C4r T_J T  _J >  %C tmp_faltantesF Q3sys_procesandoObteniendo stock (3)F Csys_procesandoF BUXINITXTABLAXFILTRO_ARTICULOS CREAR_TABLA SP_MENSAJESYS_PROCESANDOEXPORTAR_CONTROL_INVENTARIOSQL_RPTINVENTARIOACTUALP_LOCAL TMP_FALTANTES OFALTANTE FALTANTESIDCODIGOATRBUL OLVENTASXPER VENTASXPER POST_PROCESARSP_OCULTAR_DEFINITIVAMENTE|F(%]*CNo hay artculos marcados !!!B q CBUAAA FALTANTESMARCARMENSAJE CARGO_LA_SOL%Cproveedo .Qproveedo%Cbienes \Qbienes%Catributo Qatributo%Cbultos QbultosBUPROVEEDOBIENESATRIBUTOBULTOS25 TaBUXTABLAXRES IN_SOLCOM=4,sys_procesando Inicializandoh1\tmp\CCCCN  C N  C C  CNNNNNNNNCCNNN NNCCC N!L"N#N$N %N &C'C((N)L*N +N Q\tmp\,T-\tmp\C]6sys_procesandoSeleccionando artculosobienesXbultos ./2/Xatributo ./0/Xlineas .4Xgrupos . 5Xproveedo .&8&Xstock ./0121CX;;;;?./CC01CX016CC21CX216Q./QC.3SC01CXCX6QC.2SC21CXCX6QC. CC0 CC2Q.QC4CXQ  Q C5CXQ C.2SCC26C X266.66Q  Q .Q.Q.Q. Q .7Q7.&Q&C89C(XQ'.:&C.2SC2)NNa6 &C.3SC0)NNa6 -C.2S .3S C;)-a6 Q)C.2SC2)NNa6Q<C.3SC0)NNa6Q=C.2S .3S C;)-a6Q>C8+Q+C.  ./01211- T@CWF, - F@QF,& %A& CCgZ & & & ''Bsys_procesandoBUCXTABLA SP_MENSAJESYS_PROCESANDOP_LOCALIDCODIGOATRBULLINEA LINEADESCRGRUPO GRUPODESCRUNIDADAGRUPADOCANTIDADCANT_COM DISPONIBLECANT_PEDOCOPPLNDISP2DESCRMONEDAVALORTOTALSTKMIN TIPOSTKMINACOMPRARPRODUCVENTACOMPRATIPO_ARTMARCARDISP1UXDIA VENTASXPER VENTASADICCOD_PRO PROVEEDORSOLACTIVOALCANCECAT FALTANTESXTABLA2BIENESCOD_INSATRIBUTOCLAVEBULTOS ATRIBUTOSLINEASGRUPOSMEDIDACODALT1PROVEEDONOMBREEST_ACTSTOCKBULACTATRACTSTKACTDEPOSITOXAREAP_NUMINSSP_OCULTAR_DEFINITIVAMENTEu4%CxfiltrobC4T.t.Fscan for &xfiltroe Ca#)BUXFILTRO FALTANTESPOST_PROCESAR_REGISTROi6>CC  C 86FI>     > C %a^FG((codigoE%C4 TTC . T TF%>BUXPARCIALALCANCEUXDIADISP2 DISPONIBLECANTIDADCANT_COMDISP1CANT_PEDOCOPPLNACOMPRAR A_COMPRARCOSULTCODIGO FALTANTESATRBULXCOSTOCOSTOXMONEDA MM_MONEDAMONEDAVALORTOTAL74Pve_sql_estadisticas dias_stocka\tmp%C dias_stockFQ'Q\tmp\dias_stockF&   F ~%C   dias_stockidF > FQF BUXDFECXHFECXFILTRO_ARTICULOSEXPORTAR_VENTAS_PLANVE_SQL_ESTADISTICASP_LOCAL DIAS_STOCKCOD_INSATRBULID FALTANTESCODIGO VENTASXPERTOTALF ~7TC 6 >CT CBU XDFECXHFECXDIAS FALTANTESXUXDIA VENTASXPERUXDIA VENTASADICPOST_PROCESAR_REGISTRO3%@ Cbienescodins T% T TcT% TC D% TC w  # T BU XACOMPRARBIENESCOD_INS FALTANTESCODIGO TIPOSTKMINSTKMINDISP2 VENTASADIC MINCOMPRA CANTXCAJA obtener_datosQ generar_solabro_tablas_sola cargo_la_solT crear_tabla post_procesar9post_procesar_registroventas%dias a_comprarq#A!A!A!A!AqAArBqAAB24d4rrrRBAqAA4rBrB2rr2ABB3AA!AAA!AB2qB3q,dq@rAraAB2qAuARB2qc`qAsTAB4qAArrarQrBrArB2trBB3qAA2QaAA1 ;E' P ^ 7 cO Q}k^4!G"Y$j$%%(%Fs:TH !G(9 +H@ } T%C- co_modificar(% B T%%  T  T T %Dco_asientos_modelo y+ co_asientos  z T T%%  T  T T %A"co_asientos_modeloa v+ co_asientos   T co_modificar(% B% C  :JC=Solo se pueden modificar asientos con comprobante de pago !!!Ba T%%  T  T T %co_asientos_modelo + co_asientos U XTIPO_ASIENTO ACTIVEFORM DATASESSIONIDXASIENTO_A_MODIFICAR_O_DUPLICARCL2 CO_MODIFICARXRESXABMCONCEPTOASI_MODXTIPOCO_ASIENTOS_MODELO CO_ASIENTOSDIARIOGCOMPROBMENSAJEqA1CAAA2aAA2A22aAA2!A2AAqA2aAA2AC1%vd YTI G(9 $ co_comienzoG+(listadosG~(clasesTT  T - T - T a#co_asientos_automaticos( % C BU ACTIVEFORM DATASESSIONID OPEN_FILES CO_COMIENZOLISTADOSCLASESXDFECLOCALESEJ_001XHFECEJ_002XLVENTAS XLCOMPRASXRESCO_ASIENTOS_AUTOMATICOS REGISTRARUy T,sys_procesando Inicializando Ta TG trsacdiariogconceptoccventcccomp%R TK trsacco_asientos_automaticosAsientos Automticos%T C % n T T TK trsacco_asientos_automaticosAsientos Automticos% T ( Tc Tsys_procesando i Tc BUXDFECXHFECXLVENTAS XLCOMPRASXRETORNO SP_MENSAJESYS_PROCESANDOTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDSP_OCULTAR_DEFINITIVAMENTE%TF G((fec~CT %0 sys_procesandoVentas: C*>  T%TFG((fechasub.~C  T %1 sys_procesando Compras: C*>  T: sys_procesandoRegistrando asientos nuevos+aa[ T- BUXDFECXHFECXLVENTAS XLCOMPRASXOLDFECCCVENTFECFEC_VENXASIDIAASIDIA SP_MENSAJESYS_PROCESANDOINDIARIOGASIENTOCONCEPTOCCCOMPFECHASUBFEC_DGIPAGOOPFEC_COMCO_AUTTRSAC open_files registrar transaccion Ag"1AB221rv222AA2AA3=2rbA"!BA2rbA"!BAB1 "4 c%$'4>%ZUTIR%CC~g0TC~ %CC~gFC9Debe estar definida la cuenta de mermas de produccin !!!B- HC;No debe haber ms de una cuenta de mermas de produccin !!!B-G+(listados 0G(9(> TC$TC]T  tmp_periodos+ listados  F #6 T  "co_costo_de_produccion(#TCCC =gCC Rg$%GT T TC$ETCC 6C 6$ T T T%C CIC4Se ha registrado el asiento de costo de produccin: CCZBUATRCANXCUENTA_MERMASMENSAJELISTADOS ACTIVEFORM DATASESSIONIDOEXXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_DE_PRODUCCIONXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR4TCSessionNG( G( C ges  co_comienzoa%Ccos_cie Qcos_cieMTCCiCCH 6CCH  CH6$TCCiCH$<6ocos_cieCC% qTCC$F C Suspendo?a C6T)No hay cierre de costos en el perodo !!! T B T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons% C T B< T/trsacdiariogconcepto% CTAbort el usuario T B TXtrsacco_costo_de_produccion.prgAsiento de costo de produccin<lodiariogconcepto  !  %  T TG+( co_asientos T# $(#T%C$%%FG((asiento E%%C4 TC%a&%C u! ['(Elimina asiento CC%Zco_costo_de_produccion.prg %C A'(co_costo_de_produccion.prgC) CRTEError en la eliminacin de asientos de costo de produccin anteriores T B%Cmovstock Qmovstock%Cbienes +Qbienes%Cmotinv YQmotinv"%Ctmp_producciones1F-Q!%Ctmp_produccionesF.Q T/a`omovstockQ1bienesQ7cuentasQ: 0 2  3 4 5 6898Q;C <Q< 3> 99 C  %2P2M ,?   0 2 3 4 5 6 998 3 tmp_producciones2%Cconver S Qconver~2M FAG((transfECC@0,g%C4 >0CCZ2PF@%Cproducci  QproducciC Suspendo?a%/ gotmp_producciones2QEproducciQGbienesQ7E0E2EE3E4E5E6E8E9E;CE<Q<FCCE0=gGH G3> E0E2EE3E4E5E6E9E;FE9E8E3Etmp_producciones1  (otmp_producciones2QEproducciQGbienesQ7E3E4E5E6E8E9E;CE<Q<FCCE0=gGH G3> E3E4E5E6E9E;FE9E8E3tmp_producciones1%Ih%/ otmp_producciones102Q345CXQ6C(XQJ9;C<Q<FQKQL023;tmp_producciones dotmp_producciones1345CXQ6C(XQJ9;C<Q<FQKQL3;tmp_producciones %/Dotmp_producciones102Q3456C(XQJ9;C<Q<FQKQL023;tmp_producciones otmp_producciones13456C(XQJ9;C<Q<FQKQL3;tmp_producciones~F C.3bienescodins.TMC+NSI 6 T T TOM TP TQTRwS cs_generarOP.3.5.4.6QRCM6F.>KPLP< TU TV TW TX TY TZ T[D\proc_stk.3.5.4UVWXYZ[F. >J[ %C^PT_CArchivo de Control`\costo_producciones_control_Cxls%C_  (_Ի5(a \tmp\costo_producciones_control_C(b4C'Archivos abiertos...no se registran !!!cRotmp_producciones9;CLQL9;tmp_producciones %-#%Cdcuentasabrev Te ~TfCLgd TTeef>LLf T Th%A'(co_costo_de_produccion.prgC Suspendo?a T CC6) CBUiXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOCOS_CIEXCIERRE_MENSUALXD ARR_SELECTFECHASYS_MOSTRAR_SCREENLIBERO_SESION_Y_DATOSXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGASIENTOCONCEPTOTIPO2 CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXFIN_TRANSACCIONMOVSTOCKBIENESMOTINVTMP_PRODUCCIONES1TMP_PRODUCCIONESXCONTROLNUMEROMCAUSACODIGOATRBULDESPACHOBDESCRCOD_CUEC CUE_DESCRCANTIDADCUENTASCOD_INSCON_OPTMP_PRODUCCIONES2CONVERTRANSFORDENPRODUCCITTIPO_ARTPPROD P_CO_COSTOS ART_DESCRCOSTOTOTAL XTIPO_COSTEOLOTESXTIPOCOSXCOSTOXMONEDA XFECHA_COSTO OBTENER_COSTO CS_GENERARXSMXPPXTIXFACTOR XMINBATCHXMERMA XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STK EXPORT_DIRXDESTINO P_DIR_EXPORTP_LOCALOEXMENSAJEP_CO_COSTOS_PROD_CTAXACCXDIFP_CO_COSTOS_PROD_PERREGISTRAR_ASIENTO < G(BUODSP_SERVERs4Xtrsacco_costo_de_produccion.prgAsiento de costo de produccin TBUAAAEND_TRANTRSACTTS_ID  Ta TCWFG((asiento#6TFG((asiento E%C4 I>Asiento de Costo de Produccin  T F T  ~yT   T  T% QT C T qTC cTT  F>  L NC$ !"#$%% T   T  T%  T T  cF> &L NC$Merma de Produccin !"#$%' co_asientos%P T) T*- T T-%h+,C ZLAsiento de costo de produccin.co_costo_de_produccion.prg T-BU.XERRXMSGTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2 XACCMERMATMP_PRODUCCIONESXPASEXDEBITOXCREDITOTOTALDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEXCUENTA_MERMASFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADOprocesarqlibero_sesion_y_datoskfin_transaccionregistrar_asiento;AaqqAA"ArQ"2RQ2ABB2v1Ara!raB3qA2At3As"RS2qA"AABAA""BCAA!A!A"qAAqAA!ARqqArAAAr}C5 w A7  ABE1|rLrB!AARAA)3BFB2rAB2buB2qB2sQsQAraQaARrQ`1B21ArQ`1B2A2AB1+>3Q`33%4424?:%1q4z}1VI4%CxmbC4 T!%C xversion_erbLf T T T Ta%CC gTC  %CC g,@C3Debe estar definida la cuenta de costo de venta !!! B- BC5No debe haber ms de una cuenta de costo de venta !!! B-% SCH4%Cbienes QbienesF 2 S 103030000 F ( % bCExisten CC ZA artculos con lotes fuera de la cuenta MERCADERIA DE REVENTA !!! B-' S 103030000 ( % 0kCExisten CC ZJ artculos sin lotes fuera y dentro de la cuenta MERCADERIA DE REVENTA !!! B-G+(listados cG(9(q%C aC*No se pudo crear la carpeta de destino !!!CC \er\C6 %C  TC$ <&TCCC=gCC\g$TC]T tmp_periodos1listados F#6 T%Cco_costo_de_venta( T  T Ta#TCCC=gCCRg$%T CC=gT!CCRgT"C !$ET#C C! 6C! !6$ T$% SCH%Cidx04 Qidx04"%C#idx04idx04 z:CNo existe el cambio a la fecha C#* !!! B- %%&6CCambio invlido a la fecha C#* !!! B- T$%& T' T T()'"#(%'dC %CDC/Se ha registrado el asiento de costo de venta: CC(Z BU*XMXMSG XVERSION_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBXVERSION_COSTO_DE_VENTAXREMITOSATRCANXCOSTO_DE_VENTA_CUENTAMENSAJEP_EMPBIENESAAALOTESCOD_CUELINEALISTADOS ACTIVEFORM DATASESSIONIDOEXXCHG_CREAR_CARPETA PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_DE_VENTAXRESXANOXMESXDESDEXHASTA XCAMBIO_REFIDX04INDICE1XERRXASIENTOPROCESAR>4,sys_procesando Procesando...TCSessionNG( G(  C ges  co_comienzoa%Ccos_cie Qcos_cie%Clineas QlineasMTCCiCCH 6CCH  CH6$TCCiCH$%SCH  =<6ocos_cieCC%  9 C6T)No hay cierre de costos en el perodo !!! T B G T2sys_procesandoValidando cierre... T T-# co_funciones% < CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons% C T B< T/trsacdiariogconcepto%D CTAbort el usuario T B TN!trsacco_costo_de_venta.prgAsiento de costo de venta<lodiariogconcepto""#"#$# $%  "#"#% c T TG+( co_asientos T' (('T)C(%){F"G((asiento E)%C4m TC)a*%C ! iV+,Elimina asiento CC)Zco_costo_de_venta.prg w%C _ T-<+,co_costo_de_venta.prgC. CSTBError en la eliminacin de asientos de costo de venta anteriores: - T B%Cmovstock Qmovstock%Cbienes Qbienes%Cmotinv Qmotinv%C tmp_ventas1F2Q%C tmp_ventasFF3Q*%4SCH  %5"T6CPara control ?7  T6-  T6a5sys_procesandoDeterminando ventas...T8Vcdr%6 *%4SCH   oventasQ9bienesQCcuentasQEccventQP9:Q;9<9=Q9>Q?9@9ACXQBDFC9GcQHCIIJ6QJKQL9>> DD C9= 9<8 P:P<9:9< PQ 9:9<9>9@9A9=DDF9>9= tmp_ventas1  TR.t.!%SCHS a TR b.lotes=[S]_TRRN and !inlist(m.codigo,[TFSMKIT ], [TFCTSM ], [ASISTTRUCKFLOW ])select m.numero, m.causa, m.fecha, m.item, m.codigo, m.atr, m.bul ,b.cod_cue, c.descr, m.cantidad, iif(b.lotes="S","S","N") as lotes, iif(b.masterlin#0, b.masterlin, b.linea) as linea, b.grupo, m.despacho from movstock m, bienes b, cuentas c where m.codigo=b.cod_ins and b.cod_cue=c.cod_cue and between(m.fecha, xdesde, xhasta) and m.causa$"Vcdr" and &xfiltro_sch order by b.cod_cue, c.descr, m.codigo, m.fecha into cursor tmp_ventas1 readwrite  [oventasQ9bienesQCcuentasQEccventQP9:Q;9<9=Q9>Q?9@9ACXQBDFC9GcQHCIIJ6QJKQL9>> DD C9= 9<8 P:P<9:9< PQ 9>9@9A9=DDF9>9= tmp_ventas1*%4SCH  %6o tmp_ventas1 QTC XQ;Q?@ACXQBC(XQUDFCHQHLJKQVQWQXCXQYQZQ[C(XQ\;<?F tmp_ventas o tmp_ventas1 QTC XQ;Q?@ACXQBC(XQUDFCHQHLJKQVQWQXCXQYQZQ[C(XQ\?F tmp_ventas Ho tmp_ventas1<LC<VFCDC<cNC/C<dNDC<rRE??6666QT;?@ABC(XQUDFHQHJKQVQWQXCXQYQZQ[C(XQ\ tmp_ventas3sys_procesandoCalculando costos... ~Q,%4SCH   8sys_procesandoCalculando costos: C* T T'T]C4 6 T^"T_CSCH6T` Ta Tbc cs_generar]^3?3A3@3B_`C46ab TeF3E>V^WbXaYCafZ^H Tg Th Ti Tj Tk Tl TmDnproc_stk3?3A3@ghijklmF0G((codins E3?FG((codigo E0J EqF3 >Um>[?>\F tTrs\er\Ct\ER - CCt Ct - 6CCCiZ CCCHZ - costo de venta%Cr (rԻZ(uB4C'Archivos abiertos...no se registran !!!v %-*%w]o tmp_ventasDFJKCZQZDJKF tmp_ventas &Yo tmp_ventasDFQJQKCZQZDF tmp_ventas3sys_procesandoGenerando asiento...%C tmp_ventasN  T Tx%<+,co_costo_de_venta.prg T CC6. CBUyXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADO SP_MENSAJESYS_PROCESANDOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOCOS_CIELINEASXCIERRE_MENSUALXDP_EMPX_SCH_COSTOS_X_CONTRIB ARR_SELECTFECHALIBERO_SESION_Y_DATOSXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGASIENTOCONCEPTOTIPO2 CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONMOVSTOCKBIENESMOTINV TMP_VENTAS1 TMP_VENTAS P_CO_COSTOSP_DEVXCONTROL MENSAJE_SINOXCAUSASVFAC_VENNUMEROCAUSAFEC_VENCOD_INSCODIGOATRBULDESPACHOBCOD_CUECDESCR RECEPCIONCANTIDAD MASTERLINLINEAGRUPOITEMVENTASCUENTASCCVENTCCNO_FC XFILTRO_SCHXVERSION_COSTO_DE_VENTATIPO ART_DESCRCOSTOCOSORIMONORI MONORITXTTOTALMASTERDMASTERXTIPOCOSXCOSTOXMONEDA XFECHA_COSTOXMONORIXCOSORI OBTENER_COSTO CS_GENERARXMENSAJE MM_MONEDAXSMXPPXTIXFACTOR XMINBATCHXMERMA XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKCODINS MASTERLINEXDESTINOP_DIR_EXPORT_GLOBAL XVERSION_EROEXMENSAJEP_CO_POR_LINEAREGISTRAR_ASIENTO9sys_procesando< G(BUSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOODSP_SERVERi4Ntrsacco_costo_de_venta.prgAsiento de costo de venta TBUAAAEND_TRANTRSACTTS_ID%  Ta TCWFG((asiento#6TFG((asiento E%C4 c>Asiento de Costo de Venta  C SCH6 T F T~ 3TT % SCHjT T T%TCT TCcTT  F> L  !"#N$C$%Costo de Venta  #  & Itm:CC Z'(C SCH6)C SCH6*+,- -. ./ "0 01 1TF>2L  !"#N$C$%Costo de Venta  #  & Itm:CC Z'(C SCH6)C SCH6*+,- -. ./ "0 01 13 co_asientos% T5 T6- T T-% ^78C ZLAsiento de costo de venta.co_costo_de_venta.prg T9BU:XERRXMSGTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2LEGALP_EMPXCOSTO_DE_VENTA TMP_VENTASXPASETOTALXTOTAL XCAMBIO_REFXDEBITOXCREDITODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUSUBNUMITEMCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIONUMERO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOCODATRBULXCOSTO_DE_VENTA_CUENTAFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADOprocesar libero_sesion_y_datos'fin_transaccionZ(registrar_asiento(pAAAq!qAAg!Aq!1!qAr1qABAUBaAtQA3DARQaqA"qaaqAAB2AAABD2v1A!Avh"aBB%3qA4At3As"RS2qA"AaABAA"2BCAA!A!AqAAqAA!AAVA?DoD-mAD8Aq!1s[LrrrBI"qAAA1AA42ABB2buB2qB2tQsQA6rqbB1!1ARsQQrQ!C2A4AB1ebjG9GQH?mHH$D I!W,% BJZUI%Cmotivos ,Qmotivos%Ccuentas \Qcuentas%Ccuexmoti QcuexmotiFC Suspendo?a*omotivos tmp_motivos% IYCLNo hay motivos contables definidos con el tipo Acuerdos Comerciales en % !!!B % bCUSlo debe haber un motivo contable definido con el tipo Acuerdos Comerciales en % !!!B %CATC El motivo CCf. no tiene definida una cuenta de provisin !!!BT F-  %C4 EC El motivo CCf no tiene cuentas definidas !!!BT   G(9 (  TC$TC]T tmp_periodos+listados F#6 T!co_provision_acuerdos(#TCCC=gCCRg$% TTTC$ETCC 6C 6$ T  T! T"# !"% C! DC/Se ha registrado el asiento de costo de venta: CC"ZBU$MOTIVOSCUENTASCUEXMOTISYS_MOSTRAR_SCREENTIPO TMP_MOTIVOSMENSAJE PROVISIONDESCRXCUENTA_PROVISIONCODIGOXCUENTA_ACUERDOSCUENTA ACTIVEFORM DATASESSIONIDOEXXFECHAXFILEXALIASPERIODOS_MENSUALESLISTADOS TMP_PERIODOSXIDIDCO_PROVISION_ACUERDOSXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR 4TCSessionNG( G( C ges  co_comienzoa T  T-# co_funciones %  CGT,No se pudo abrir el ejercicio para la fecha C* !!! B T Tsys_cons% C T B< T/trsacdiariogconcepto% CTAbort el usuario B TRtrsacco_provision_acuerdos.prgAsiento de costo de venta<lodiariogconcepto    % - T TG+( co_asientos T  (^T!C %!ZFG((asiento E!%C4L TC!a"%C ! HZ#$Elimina asiento CC!Zco_provision_acuerdos.prg V%C )@#$co_provision_acuerdos.prgC% CTTGError en la eliminacin de asientos de provisin de acuerdos anteriores B%Cccvent [Qccvent%C tmp_acuerdos1F'Q%C tmp_acuerdosF(QC Suspendo?a)occventQ,clientesQ0C*VFCJC*cNC3C*dNDC*rRE??6666Q+-Q./Q/01Q123Q45Q5/0/C7 *Vcd 5 tmp_acuerdos %C8gT9CArchivo de Control:3\asiento_de_provision_acuerdos_comerciales_control_Cxls%C9  (9ԻH(:3\asiento_de_provision_acuerdos_comerciales_control_C(;4C'Archivos abiertos...no se registran !!!<occventQ,clientesQ0/Q/01Q1C5Q5/0/C7 *Vcd 5 /01 tmp_acuerdos T T=%i @#$co_provision_acuerdos.prgC Suspendo?a) T CC6% CBU>XERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRAN ARR_SELECTDIARIOGFECHAASIENTOCONCEPTOTIPO2 CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXFIN_TRANSACCIONCCVENT TMP_ACUERDOS1 TMP_ACUERDOSSYS_MOSTRAR_SCREENCAUSATIPOCFAC_VENNUMEROCOD_CLICLNOMBRETOT_VENDES_COMBASEDTOACUCLIENTESFEC_VEN EXPORT_DIRXDESTINO P_DIR_EXPORTOEXMENSAJEREGISTRAR_ASIENTO < G(BUODSP_SERVERm4Rtrsacco_provision_acuerdos.prgAsiento de costo de venta TBUAAAEND_TRANTRSACTTS_IDx  Ta TCWFG((asiento#6TFG((asiento E%C4 L>!Provisin de Acuerdos Comerciales  T F T  ~oT   T  T% TT C T tTC cTF> L C  N C$!"#$%&'T  F> (L C  N C$!"#$%&') co_asientos% T+ T,- T T-%`u-.C ZL-Asiento de provisin de acuerdos comerciales.co_provision_acuerdos.prg T/BU0XERRXMSGTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XCOSTO_DE_VENTA TMP_ACUERDOSXPASEXDEBITOXCREDITODTOACUDEBITOCREDITOCOD_CUEXCUENTA_ACUERDOSPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOCOD_CLITIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEXCUENTA_PROVISIONFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADOprocesarlibero_sesion_y_datosfin_transaccionregistrar_asiento1A1AAArr"A!!ABAAArQAAABArQ2RQ2AABB2t3qA2At3A!s"RS2qA"AABAA"BBC!AqAAqAArq!AAAAp 2rBB2brB2q"B2sQsQAraQaArQ`qrQ`qB2A2QAB1A s)VE`)h%:)?,P)"ZUI2 4%CxmbC0 T!%C xversion_erbLb T T TG+(listados G(9(%C 3aC*No se pudo crear la carpeta de destino !!!C C \er\C6 %CT T C$ &T CCC=gCC\g$TC]T tmp_periodos+listados  F#6 T%C=*co_costo_ajustes_de_inventario( T _ T Ta#T CCC=gCCRg$%'TCC=gTCCRgTC$ETCC 6C 6$ T%SCHH%Cidx04 bQidx04"%Cidx04idx04 :CNo existe el cambio a la fecha C* !!! B- D%&6CCambio invlido a la fecha C* !!! B- @T T T T !  %C #%CQCDSe han registrado los asientos de costo de ajustes de inventario !!! BU"XM XVERSION_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIB XTIPO_COSTEOLISTADOS ACTIVEFORM DATASESSIONIDOEXXCHG_CREAR_CARPETAMENSAJE PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOXMESXDESDEXHASTA XCAMBIO_REFP_EMPIDX04INDICE1XERRXMSGXASIENTOPROCESARd4TCSessionNG( G( C ges  co_comienzoa%Ccos_cie Qcos_cieMTCCiCCH 6CCH  CH6$TCCiCH$<6ocos_cieCC% m T  C6T)No hay cierre de costos en el perodo !!! T B T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons% C T B< T<trsacdiariogconceptoconver2% CTAbort el usuario T B TZtrsacco_inventario.prg)Asiento de costo de ajustes de inventario<lodiariogconcepto     %  T TG+( co_asientos T" #("T$C#%$FG((asiento E$%C4 TC$a%%C i! R&'Elimina asiento CC$Zco_inventario.prg %C  T(8&'co_inventario.prgC) CZTIError en la eliminacin de asientos de ajustes de inventario anteriores: ( T B%Cusuarios Q* \usuarios%Cmovstock .Qmovstock%Cbienes \Qbienes%Cconver Qconver%Cconver2 Qconver2%Clineas Qlineas%Cmotinv Qmotinv%C tmp_costo1@F1Q%C tmp_costoiF2Q%C$ NomovstockQ4XusuariosQL PL7converQ;Xconver2QH QHQmotinvQ=bienesQCcuentasQA 3Q3 5 6 Q 7Q7 8 9 :<=>Q?=@A> BDEC(XQFGCHICC No encontrado(QMHN 7S7CCC 3,g ZC 6ZCQ ZC6Z 5M < <=7 =@AT C  =U => 7 8 9  tmp_costo1 % DomovstockQ4XusuariosQL PL7converQ;Xconver2QH QHQmotinvQ=bienesQCcuentasQA 3Q3 5 6 Q 7Q7 8 9 :<=>Q?=@A> BDEC(XQFGCHICC No encontrado(QMHN 7S7CCC 3,g ZC 6ZCQ ZC6Z 5M < <=7 =@AT C  => 7 8 9  tmp_costo1o tmp_costo1bienescuentas1CdXQV,TQWR>QXQYQZQ[Q\Q]C(XQ^17,S,TRT tmp_costo2%`2014094_<>o tmp_costo1<?C@tmp_validar_cuentas%CN&TLos siguientes motivos : Tda ~)TCd, 6CC<Z T BF_ ~ C_ElineascodigoF_>F/>>]/e C_]lineascodigoF_>^/> T T'TfCgh 6 Ti"TjCkSCH6Tl Tm Tno cs_generarfi_7_9_8_:jlCg6mnF_/>YiZiB[n\m Tq Tr Ts Tt Tu Tv TwDxproc_stk_7_9_8qrstuvwF_ >VwTz{\er\C|\ER - CC| C| - 6CCCiZ CCCHZ! - costo de ajustes de inventario%Cz O(zԻZ%kSCH>YY}>ZYB %-{o tmp_costo2WXCCZTQEGN@EGN> tmp_costo_art{o tmp_costo2@>CCZTQEGN@EGN> tmp_costo_mot% / T T%+8&'co_inventario.prg T CC6) CBUXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOCOS_CIEXCIERRE_MENSUALXD ARR_SELECTFECHALIBERO_SESION_Y_DATOSXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGASIENTOCONCEPTOTIPO2 CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONP_SYSTEMMOVSTOCKBIENESCONVERCONVER2LINEASMOTINV TMP_COSTO1 TMP_COSTONUMEROMCAUSAITEMCODIGOATRBULDESPACHOCMOTIVOMIDESCR DESCR_MOTIVOCUENTACUCANTIDADBLOTESLINEADLINEAGRUPOC2COMENT TXT_GLOBAL TXT_X_ITEMUUSUARIOTRANUSUARIOSUSRTRANSFCUENTASCOD_INSCOD_CUEREGASI ART_DESCR ART_CUENTA ART_DCUENTACOSTOTOTAL COSTO_ORI MONEDA_ORI MASTERLIN DMASTERLIN TMP_COSTO2XMINDISTINCTTMP_VALIDAR_CUENTASXINI MASTERLINEXTIPOCOS P_CO_COSTOSX_SCH_COSTOS_X_CONTRIBXCOSTOXMONEDAP_EMP XFECHA_COSTOXMONORIXCOSORI OBTENER_COSTO CS_GENERARXSMXPPXTIXFACTOR XMINBATCHXMERMA XFULLDESCRARTICULO_DATOS_AMPLIADOSPROC_STKXDESTINOP_DIR_EXPORT_GLOBAL XVERSION_ER XCAMBIO_REFALLTOTAL1 TMP_COSTO_ART TMP_COSTO_MOTREGISTRAR_ASIENTO < G(BUODSP_SERVERu4Ztrsacco_inventario.prg)Asiento de costo de ajustes de inventario TBUAAAEND_TRANTRSACTTS_ID  Ta TCWFG((asiento#6TFG((asiento E%C4 s>)Asiento de Costo de Ajustes de Inventario   C SCH6 T F T ~7T T T% {TC T TC cTT  Fw> L N!C$"Ajuste de inventario   # Itm:CC $Z%&'()*+ +, ,- -. $/ 0 01 1F2 ~T T T%23TC23T TC23cTT  F>24L N!C$"Ajuste de inventario %&'()*+2+,2,-2-5 co_asientos%` T7 T8- T T-%j9:C ZL*Asiento de costo de ajustes de inventario.co_inventario.prg T;BU<XERRXMSGTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2LEGALP_EMPXCOSTO_DE_AJUSTE TMP_COSTO2XPASEXDEBITOXCREDITOTOTALDEBITOCREDITOCOD_CUE ART_CUENTAPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIONUMEROITEM SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOTRANSUBNUMCODATRBUL TMP_COSTO_MOTTOTAL1CUENTAFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADOprocesarlibero_sesion_y_datosU fin_transaccion registrar_asiento'!PAAARAaArQA2NARQaqA"qaaqAAB2AABB2v1Arh#aB3qA2At3As"RS2qA"A!ABAA"BCAAA!A!A1A!A!AqAAqAA$M$A0!A!aAAsqqq!1rLrB A#qAn"#BA"2ABB2buB2qB2sQsQA6raQaARrQqBraQaARrQB2A2AB1I 7 177a7^8n|8 Fv%w" c VZU0J0%CxmbC, T T TT 102010600T 401050000G+(listados G(9  TC$T C]T  tmp_periodos+ listados   F #6 T %CMco_costo_ajustes_de_inventario(Asiento de remitos a facturar  T  Ta#TCCC =gCC Rg$%%T T TC$ETCC 6C 6$ T T T%C !%CBC5Se ha registrado el asiento de remitos a facturar !!!BUXMXTIPO2XTIPO2IXREGULARIZADORAXVENTASNOPERFECCIONADASLISTADOS ACTIVEFORM DATASESSIONIDXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESARMENSAJE4TCSessionNG( G( C ges  co_comienzoa%Cconver2 Qconver2MTCCiCCH 6CCH  CH6$TCCiCH$ T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%3 C T B< T<trsacdiariogconceptoconver2% CTAbort el usuario T B TVtrsacco_remitos_a_facturar.prgAsiento de remitos a facturar<{odiariogconcepto !  "   % ( T TG+( co_asientos T$ %($.T&C%%&*FG((asiento E&%C4 TC&a'%C ! Z()Elimina asiento CC&Zco_remitos_a_facturar.prg &%C $ T*@()co_remitos_a_facturar.prgC+ CeTTError en la eliminacin de asientos de remito pendientes de facturacin anteriores: * T B&%Ctmp_astos_anteriores ]F,QT-C%T.-C-%odiariogaconceptoaC01Q23 45 C.-   ! 3tmp_astos_anteriores Ta T6CWFG((asiento#6T7FG((asiento E7%C4 \>7(Inversin asiento de remitos a facturar C89  T:F, T; ~ T;;T::,2F>0C,2,2c61C,2 ,2645<L=>?@;7ABCDNEC$FGHIJKL3,3T;;F>0C::61C::c64M<L=>?@;7ABCDNEC$FGHIJKL3 TNve_remitos_emitidos&Ove_sql_remitos_emitidosN"QQ\tmp\CNRRove_remitos_emitidosCSC$CTU  query = %CW ATXY*\asiento_por_remitos_a_facturar_control_1_C%CX (XԻC(Q.\tmp\asiento_por_remitos_a_facturar_control_1_C(Z 4C'Archivos abiertos...no se registran !!![ oqueryQ\ventasQ`XbienesQk `aaccventQm\]\S\^\_`aC`b`c`dd ed fd C`I`g6TQhC3Q3\]`] \]] hquery2 h%CW!ATXY*\asiento_por_remitos_a_facturar_control_2_C%CX  (XԻC(Q.\tmp\asiento_por_remitos_a_facturar_control_2_C(Z4C'Archivos abiertos...no se registran !!![,oquery23ChQh3q T To%z@()co_remitos_a_facturar.prgC Suspendo?ap T CC6+ CBUqXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOCONVER2XCIERRE_MENSUALXDXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRAN ARR_SELECTDIARIOGFECHAASIENTOCONCEPTOTIPO2XTIPO2XTIPO2I CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONTMP_ASTOS_ANTERIORESXHASTA2XDESDE2SUMDEBITOCREDITOSALDOLINEACOD_CUEXVENTASNOPERFECCIONADAS XAREA_ASINEWASIMES_ANO_ANTERIORUNXACCXPASEPOR_QUECOMPROBCAUCOD_CENPASEPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEXREGULARIZADORAXTABLA EXPORTAR_ERVE_SQL_REMITOS_EMITIDOSP_LOCALVE_REMITOS_EMITIDOSFEC_VENFAC_CAUFEC_FACQUERY EXPORT_DIRXDESTINO P_DIR_EXPORTOEXMENSAJEQREM_VENCOD_CLIDES_CLIEVCOD_INS RECEPCIONCOS_LIFODES_INSDESC1DESC2COEFICIMPORTEVENTASBIENESBCCVENTCQUERY2REGISTRAR_ASIENTOSYS_MOSTRAR_SCREEN < G(BUODSP_SERVERq4Vtrsacco_remitos_a_facturar.prgAsiento de remitos a facturar TBUAAAEND_TRANTRSACTTS_ID  Ta TCWFG((asiento#6TFG((asiento E%C4 H>Asiento de remitos a facturar T F T  ~T   T T% PTC T pTC cTT  F>L N C$!"#$%&'( ( T T%  T T cT  F>)L N C$!"#$%&'(* co_asientos%9 T, T-- T T-%e./C ZLAsiento de remitos a facturarco_remitos_a_facturar.prg T0BU1XERRXMSGTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XTIPO2XACCQXPASEXDEBITOXCREDITOIMPORTEDEBITOCREDITOCOD_CUEXVENTASNOPERFECCIONADASPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAXREGULARIZADORAFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADOprocesarylibero_sesion_y_datosfin_transaccionregistrar_asientocqA@ba#ArQA4RQ2!AABB2w1A3qA2At3Aas"RS2qA"AABAA"RBCgqAA2q sQsQArBrQpCrQpd"'!AA2AA!AA2AA2rAB2buB2qbB2sQsQAraQaARrQpC1ArQp2A2QAB2/l(]()1)))D4%>dA5dJuG(9 G(GESG~(clases<7 TTCABM_EjerciciosN BU ACTIVEFORM DATASESSIONIDGESCLASESPOABMEJERCICIOSXCODIGOSHOWF G(GES%CEjercon ;FQEjerconBUGESEJERCONv-%CFRM_Barra_CO.EjerciciosbO=T }6TC EjerciciosSys_clases_Ejercicios.prg%7C*No se puede borrar el ejercicio activo !!! o TT \C  C\C%Por razones de seguridad, la carpeta " deber ser eliminada manualmente.U OEJES FRM_BARRA_CO EJERCICIOSACTIVOEJERCONIDMENSAJEXACODIGOXDIRP_SERVERDIRZ-%CFRM_Barra_CO.EjerciciosbOJC C BCU FRM_BARRA_CO EJERCICIOSRECARGAR GENERAR_MENU openfilesBorrarFunload"H T-T EjerciciosTejerconThlpTid Ta TTDIRT EjercicioT DirT C T PT DescrT  DescripcionTdescrTCT abmejerciciosTID  U DOS_COPIARTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 FORMULARIOIDXCLAVEABM_Ejercicioshlpabm2tqB2AA1aAqr A2B2rAa!!8 (8"Gd(%#'$܋QJ G(9((G+(listados TC$ TC$TS co_interco(% B%CempresasF QFc!Q \empresascodigo T  T-#)+C+ V T Fc!Q \empresascodigo E Tft05ft05a%CC^g TahCBDebe estar asignado el atributo de PRESTAMOS INTERMPRESAS (94) !!!C  EMPRESA: C CFc!Q \empresascodigo EH%C;Se han eliminado los asientos anteriores, si existan, peroC >se ha cancelado la operacin por problemas en la definicin deC  las cuentas sF #)+C+  T Fc!Q \empresascodigo E Tft05ft05a CFc!Q \empresascodigo EH%ouC=Hubo errores al procesar las operaciones. No se han realizadoC !todos los asientos necesarios !!! T Fc!Q \empresascodigo Eft05ft05aBU ACTIVEFORM DATASESSIONIDOEXLISTADOSXDFECXHFECXDET CO_INTERCOXRESEMPRESASP_SYSTEMCODIGOXOLDEMPP_CODEMPXERRORXCODXEMPRESADESCRLOAD_EMPFT05 DNLD_CUENTASATRCANMENSAJEELIMINARPROCESARABRIR_TABLAS_FIJASFb,Q\data\CCZ\ejerconFF~C C C C  Fa:Q\data\CCZ\C\diariogF`;Q\data\CCZ\C \concepto FC~C =ITC M 2 C  FF G((asiento EFFBUP_SYSTEMXCODEJERCONXDFECDESDEHASTAXHFECDIRDIARIOGCONCEPTO COMENTARIOTIPOARCHFECHAASIENTO%Ccom_oper F 2FQcom_oper%Cven_opereF wFQven_oper%CcuentasF FQcuentascuenta%CclientesF  FQclientescodcli%CproveedoFF XFQproveedocodpro%CcccompF F QcccompFG-(C~C OLDX     2%C . TaFG-(C~C RLDX     %C  TaBUCOM_OPERVEN_OPERCUENTASCUENTACLIENTESCODCLIPROVEEDOCODPROCCCOMPFECHAXDFECXHFECCAUSAEMPRESAXCOD REGISTRARXERROR47%C\data\CCZ \cuentas.dbf0 z5CNo existe la empresa CCZ !!!B-F9Q\data\CCZ\cuentascuenta"-C^\S %C4T  ;"-C^\S T  -  %C4~T  T  wC8No existe una cuenta de igual abreviatura en la empresa CCZC para la cuenta C  !!!B-Fb/Q\data\CCZ\ejerconF*-CC 6%C4Fa=Q\data\CCZ\C\diariogF`>Q\data\CCZ\C \conceptoFC3G((asiento#6TTC CFQFQFQFbQejerconF*-CC 6%C4FaQC\diariogF` QC \conceptoFC3G((asiento#6TTC CFQBaUXFROMP_SYSTEMCUENTASEMPRESAMENSAJECUENTADCUENTASATRIBUTOXCODXINTERCOCOD_CUEABREVXREALXDREALEJERCONCOM_OPERFECHAVEN_OPERDESDEHASTADIRDIARIOGCONCEPTOASIENTOXNEWASI XNEWASI_MAASI_MA UNLOCK_ALLASIENTO14%y%M TT uTc T %T T  TT T8TC SC   668T C SC   66%T C 6aTITC C#C1 CCZ6 C1 CCZ66nTITC [C] C#C1 CCZ6 C1 CCZ661%C L  L6HFQejerconF(Q\C\diariogG((asiento!EC 6TC TC FQFQ%TC 6%TC 6% S%jFG((codpro E!%"SLF# G((pago E%%C41T&#' H T& fT&( F)G((codcli E+T&)(  T& T,F->./01L 2 34, 56(&7M89:C$;<=>2 T? T T? T@ T,F->./01L 2 34, 56(&7M89:C$;<=>2BUAXFROMCOM_OPERCAJ_PROXDEBXCREVEN_OPERXCUEXREALXCOMPROBXDETCOMPROBXCAUSACAUSAXFECHAFECHAXCOMENT1TIPONUMEROXCOMENT2XDREALEJERCONEJERCON2P_SERVERDIRDIARIO2ASIENTO COMENTARIOXMONEDAMONEDAXCOEFICCOEFICPROVEEDOCODPROCOD_PROCONTADOCCCOMPPAGOOPAGOXNOMBREDES_PROVNOMBRECLIENTESCODCLICOD_CLIXPASEDIARIOGDEBITOCREDITOCOD_CUEPOR_QUECAUCOD_CENPASEXNEWASIPROCLICODIGOASI_MA XNEWASI_MAHOY SUBCENTROMOTIVOCAMBIOARCHXTEMPXINTERCOQ4FT TCO"-C^\S %C4jT "-C^\S TF #%,% T  T  ( T T  c % i T T  T  T T 8TCSC  668TCSC  66%TC  6aTITC C#C1 CCZ6 C 1 CC Z66nTITC [C] C#C1 CCZ6 C 1 CC Z661%CL L6FG((asiento!EC  6TC TC %TC  6%TC   6%S%F!G((codpro E#%$SF% G((pago E'%C4T(%)  T( T(!* F+G((codcli E -T(+*  T( T.F>/ 0  1L234.56*(7M89:C$;<=>2 T? T  T ? T  T.F>/ 0  1L234.56*(7M89:C$;<=>2BU@XFROMCUENTASXEMPEMPRESAREGATRIBUTOXINTERCOCOD_CUECOM_OPERCAJ_PROXDEBXCREVEN_OPERXCUEXCOMPROBXDETCOMPROBXCAUSACAUSAXFECHAFECHAXCOMENT1TIPONUMEROXCOMENT2XDREALDIARIOGASIENTO COMENTARIOXMONEDAMONEDAXCOEFICCOEFICPROVEEDOCODPROCOD_PROCONTADOCCCOMPPAGOOPAGOXNOMBREDES_PROVNOMBRECLIENTESCODCLICOD_CLIXPASEDEBITOCREDITOPOR_QUECAUCOD_CENPASEXNEWASIPROCLICODIGOASI_MA XNEWASI_MAHOY SUBCENTROMOTIVOCAMBIOARCHXTEMPeliminar procesar) registrar} asiento+asiento1AA"bAAqAASR1ABAS sQR1BARAAR1rA2rar1qArArArAA3qAqAqAqAqArqAr6CAAr6CAAC3qtRqA#!ArqArrQrAqAqArrQABqAr2q2aAaAAQ!rArABUQB1qAqAAqAArQPrQPB4qr#!Ar2aAaAAQqARQB1qAqAAqAArQPrQPB1J r` f|:$O*O$Z1 %3u84堂XJz "co_ajuste_por_inflacion _T#TCCCC$iCC$H$F(TT Ta T -#co_ajuste_por_inflacion( % o % %CC) g%CC) gVCINo se ha definido ninguna cuenta con el atributo AJUSTE POR INFLACION !!! B VCISe ha definido ms de una cuenta con el atributo AJUSTE POR INFLACION !!! B G+(listadosG+(co_sql_balanceG+( co_funcionesTCCiCH$?TCCH CCi $CCiCH$6TCHTCi%CborrarFQTC]-co_sql_balance23 Q\tmp\%CqNFQT\tmp\C]T\tmp\C]FG((cuentaFG-( Ta,~C aC+\S6TT C! oborrarQ"#$Q%&'Q()*+,-./01234'Q5)Q6*Q7+Q8,Q9-Q:.Q;/Q<0Q=1Q>2Q?3Q@4QACC >= 1% %k (QB QFB  T-% n2oq1"#cuentas_ajuste>56789:;<=>?@ATGCHTHCi%CH TI TJCi TICHTJCi TK TL"CKLHaM+a TK TL"CKLHGM%KCL %G THH TG TGG*%GIHJ HJ ! CNFC9Se han realizado los asientos de ajuste por inflacin !!! \CONo hay cuentas marcadas con el atributo de CUENTAS AJUSTABLES POR INFLACION !!! %CborrarFQ%Ccuentas_ajuste( FEQ%Cq1J FBQ%Cqk FQBUO OPEN_FILESCO_AJUSTE_POR_INFLACIONXDFECLOCALESEJ_001XHFECEJ_002OEXXREGISTRAR_ASIENTOXTODAS_LAS_CUENTASXRESATRCANMENSAJEWWCLIENTLISTADOSCO_SQL_BALANCE CO_FUNCIONESXHMESXHANOBORRARXBORRAREXPORTAR_SIN_ASIENTO_TIPO2P_LOCALQXQXQ1CUENTASCUENTACOD_CUEXINIATRIBUTOXCUENTAXRAIZFN_RAIZABREVDESCRCENTROCOD_CENLINEAANT_SALMES0MES1MES2MES3MES4MES5MES6MES7MES8MES9MES10MES11MES12AJUSTE0AJUSTE1AJUSTE2AJUSTE3AJUSTE4AJUSTE5AJUSTE6AJUSTE7AJUSTE8AJUSTE9AJUSTE10AJUSTE11AJUSTE12Q1DISTINCTFROMCUENTAS_AJUSTEALLXMESXANO XHASTA_MES XHASTA_ANOXERRXMSGPROCESAREXPORTAR C co_comienzoa%Cidx01 XQ\idx01%Cidx02 "Q\idx02idx02 CBUABRIR_TABLAS_FIJAS OPEN_FILES CO_COMIENZOP_COMMONIDX02ABRIR_EJERCICIO_SPT  TCW%Cidx02 QQ\idx02%Cidx01 Q\idx01!%Cidx02idx02#TC idx02.indiceCCZ :!% nages2 C FBCa 6T F BU XINDICEXFECHAXCICLICOXAREA XCOEFICIENTEP_COMMONP_AGES_SOL_PROTOCOLOBTENER_INDICE_NAGES BUSCAR_INDICEK T T%%CH;T CCCCi$iCCCi$H$ #T CCiCH$ T C$T C$T C T C % `CEl ndice para el periodo CCC HZ-CCC iZ est en 0 o es invlido !!!B-% -gCEl ndice para el periodo C00CCZR-CCZ est en 0 o es invlido !!!B-F ~{9>ajusteCCZCmesCCZ %= T T Tsys_cons% T B< T/trsacdiariogconcepto%TAbort el usuario T B TZtrsacco_ajuste_por_inflacion.prgAsiento de ajuste por inflacin<odiariogconcepto   C  %  T TG+( co_asientos T" #("T$C#%$FG((asiento E$%C4 TC$a%%C s! &'Elimina asiento CC$Z C00CCZR-CCZco_ajuste_por_inflacion.prg  %C  T(B&'co_ajuste_por_inflacion.prgC)YTHError en la eliminacin de asientos de ajuste por inflacin anteriores: ( T% Ta T*CW%Cejercon KQejerconF+-+,-FG((asiento#6T.FG((asiento E.%C4 >>.C/0F T1 T2$~CajusteCCZ T3CajusteCCZT11 T4 T5%3T4C3T T5C3cTT2245F>6475889L:;<<=1.>?@ANBC$ CCDEFGHIIJ2%2 ocuentas_ajuste<ICKQLCMQNCOQPCQQRCSQTCUQVCWQXCYQZC[Q\C]Q^C_Q`CaQbCcQd<Iq~CaCCZ T11T3CaCCZ T4 T5%2 T5C3T  T4C3cTF >64758C)f9L:;<e<=1.>?@ANBC$ CCDEFGHIeIJ2g co_asientos.% Th Ti- T &  T-% &'C. ZL Asiento de ajuste por inflacin C00CCZR-CCZco_ajuste_por_inflacion.prgZjtrsacco_ajuste_por_inflacion.prgAsiento de ajuste por inflacin TkBaUlXERRXMSGXANOXMESXHANOXHMES XAPERTURALOCALESEJ_001XFECHA XFECHA_ACT XC_ACTUAL BUSCAR_INDICE XC_ANTERIORMENSAJECUENTAS_AJUSTEXREGISTRAR_ASIENTOXFECHA_ASIENTOXHFECVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRAN ARR_SELECTDIARIOGFECHAASIENTOCONCEPTOTIPO2 DESCR_ASIENTO COMENTARIO CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCION XAREA_ASIEJERCONDIRCO_011NEWASIUNLEGALXPASEXCOSTO_DE_AJUSTEXIMPORTEXDEBITOXCREDITODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEPROCLINOMBRECODIGOTIPOHOY SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAARCHAJUSTE0A0AJUSTE1A1AJUSTE2A2AJUSTE3A3AJUSTE4A4AJUSTE5A5AJUSTE6A6AJUSTE7A7AJUSTE8A8AJUSTE9A9AJUSTE10A10AJUSTE11A11AJUSTE12A12QATRCANFN_CHECK_ASIENTO TTS_ERRORXOKEND_TRANTTS_ID %H*BAJUSTE POR INFLACION APERTURA >BAJUSTE POR INFLACION C00CCZR-CCZUXANOXMES%C V:C-Carpeta de exportacin imposible de crear !!!B T!CExportar. Suspendo?aT\tmp\C]%Ccostos Qcostos?ocuentas_ajusteXcostos     Q  Q !"#$%&'Q(  !"#$%&'Q)1QG+(listadosG~(ClasesT+C ExportacionesN(T,CExportaciones_ParametrosN%T,-Ajustes por InflacinT,. C,/CabrevCuenta,/#Cdescr Descripcin,/ Ccod_cenCentro,/%Cdcentro Descripcin,/CsaldoSaldo,/CajusteAjuste,/)Csaldo_ajSaldo Ajustado,/T,0C,+1BU2XDIR EXPORT_DIRMENSAJE P_DIR_EXPORTSYS_MOSTRAR_SCREENXARCHP_LOCALCOSTOSABREVCUENTAS_AJUSTEDESCRCOD_CENDCENTROMES0MES1MES2MES3MES4MES5MES6MES7MES8MES9MES10MES11MES12SALDOAJUSTE0AJUSTE1AJUSTE2AJUSTE3AJUSTE4AJUSTE5AJUSTE6AJUSTE7AJUSTE8AJUSTE9AJUSTE10AJUSTE11AJUSTE12AJUSTESALDO_AJLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS8?QJSON_RESPUESTASavfp_objects_definiciones.prg TC %C (% $T ridx02   BUXFECHAORESPAVFP_OBJECTS_DEFINICIONESPRGOINDICEXMENSAJEOAGESSOLOTABLASOINDICESINDICE_MENSUAL_OBTENERTYPEORES_TIPO RES_OBJECTFECHAINDICE1INDICE2INDICE3INDICE4INDICE5AA1COEF(  '%CoRespbOC  |?TCJSon_Respuestasavfp_objects_definiciones.prg TTCa$%CoObjbOC TCaT TT BU XFECHAORESPOOBJXMENSAJEOBTENER_INDICE_SERVIDOR RES_OBJECT NFJSONCREATERES_TIPO RES_MENSAJEr+QMYSQLsys_clases_conexion.prg T-G+(listados   %CoSQLbO( sys_clases_conexionTC % T% C B<T !Select * from idx02 where fecha='C*' T C TMPIDX02.%CTMPIDX02CTMPIDX02N F#) ^J 0TCC Z - Se obtuvo la informacin bLTCC Z7 - No se pudo recuperar informacion para la fecha dada.TC C   T  B UXFECHAXAUTXMENSAJEOSQLSYS_CLASES_CONEXIONPRGLISTADOSXOK XCONECTADOXRESPOOBJXCMDOBTENER_SQL_INTERNOCONECTARMENSAJEEJECUTARTMPIDX02J  '%CoRespbOC  |?TCJSon_Respuestasavfp_objects_definiciones.prg TITCa %T ActualizadoT :TT BUOINDICESORESPOOBJXMENSAJEXRESPACTUALIZAR_INDICE_SERVIDORFECHAINDICE1INDICE2INDICE3INDICE4INDICE5COEFAA1 RES_MENSAJERES_TIPO /  + QMYSQLsys_clases_conexion.prg T -G+(listados%CoSQLbO(sys_clases_conexion TC % 0T % #C BTCidx02FECHA=C FechaC Indice1CZIndice2CZIndice3CZIndice4CZIndice5CZCoefCZA A1  BUXAUTXMENSAJEXFECHAXINDICE1XINDICE2XINDICE3XINDICE4XINDICE5XCOEFXAXA1OSQLSYS_CLASES_CONEXIONPRGLISTADOSXOK XCONECTADOXRESPOOBJXCMDOBTENER_SQL_INTERNOCONECTARMENSAJESQLINSERTUPDATESQLDTOSt4Ytrsacco_ajuste_por_inflacion.prgAsiento de ajuste de inflacin TBUAAAEND_TRANTRSACTTS_ID open_filesa buscar_indicee procesar5 descr_asiento8!exportar!Obtener_Indice_NAGES'Obtener_Indice_AGES)Obtener_Indice_Servidor<+Guardar_Indice_AGESX.Actualizar_Indice_ServidorF0fin_transaccionE3#111A2aAaAAAAr!arqAA "qAArr""AqAAA'0aS11A!!2A2AAAAbArqAAqAA2qAA"qAABA5vAr!AB2rAAqAA11AA41AQAQRQ2qA2qqAwB2As3At:"RR2qE"AABAA"!AC21AqAtQsQAsA1!1ARrQqC4` 1!1ArQB2ABB2ABr41A2qAA!AB$!S1Q B1AaRAA2qAqBaA2!rABAqQA2qAA2!rABA 2rB1{,t464o5s=5h>{\>@g@BwCFGgGIJ6NRNNCPNG  IHDR szz pHYs+tIME  ӹ7 IDATXŖkp]uq$K–, `JI[&-چCep(fbI Mf&j1 Ku{~Pllc>YkY~>b.XoGNZM:`!DT1Ĩеb/isxڤ*>S؊:a|_ {ke)xR#ӫ6 O~S 73dR֫܊xƲZYf౐$T;xKaVrIA-2lnaxGv_+acx?€'P=$ fBkb幧>hG͜G[Nzoi]|t_=Y gxu_X H/^v87xwثC]*$k"Eė\.Hs Dg8Aə3/tcpgVJTOA0T. j; TP@sQ=8LDoC& 9- R4 {TZAMmx Z4Xx]ޒ,3A4 0w#Q溡`jjµ0K^Coi"aq@bL㜤l(bEVϑ|ձ,ywOdd4ލ|U1`VOWB)_@~10DiBd#xO&Srl{(7.v5öOQP}ktg[23'5UL*|X']a4HQeMAZihm  AUz!bBLZ|je)J[d*x`|Q՞SS]9jMڑ/F+J0f,{Z*gzaĭ^0pL>P"Âhȩ61 oQm;)$`b]~SkKW;٫ 0 /q(JrUar9bu#ry,ș~@ĄmD2|?gtdRrXV>6K|?coTˇ? uj[iWJ)L: og6u3`&o4RXl}/rܗȘ+ɥ}}=;;k.iMCdJ%CZc}FscVp Ie:3D1ZSDk4}Rp40<^K>vŽ5R|z&syx;oρ9"jZySk֬ yA@²N֑J:pVCqn9yq W1_e/:9#L2s}J 2)߹;ߏFQ"Z \[*@K<bbBY5fbc h0-QAppOaVXsjkk lۮjFX7]6-6@rdrr2 >"c 433RkjzCZU`,L[: C2>bƄ}?TD`pt&I !s"Qj"jɅQemDu-Wa }cl_8*h0_qz]j͌Mh ^'skIT,-e)ؗBX߲eJ!|Һ߶(R M%F)e5u`읈9c]뮻( ܹI){B8Q+2&DZZŢ|?lbV[xPa7HtG\(`8@d3Ļcc%+ !pb>DcX"Y{9DbpO).1r1\M{:%Xqэ[^b]cgٹzW~r~ѝ ѧf۩HS=Ư~9>Xy aLaϩsnwF"➵1l,o]#ed4͍4^Ӷ[DY}{h6 N!D*ulD}b@ 4UW]ݏ/fI+ O*û|=yՇe7jWyBi\ltt ڛOwQ77o6jV9l^x16[ܴ^yc wL^ ҧIR NN^XI k x"a@jbТʫ^]нܽ&X+?t7t-ݼc,xѸQ?v tuv~-6Racb`D (-jJ`쩜TI'7%Y7daXf+%ovP$ IRgf ӏ{Z-XQ8"]x }XqV$"<]d#OW_:t.8tV˟ xSRD +Kّ m]H%{vūo}KN]M)h>iDdl_ };/Wrwj0V^VT.pl(w7E?} 07^=Y*fNv,KD/ZÍ__H?%ׇAQgoWI/nsj JSm",V激bgnN#,`ܯ*?ƢR hygt7AV#[EdIENDB`PNG  IHDR szz pHYs+tIME HHIDATXMh\U}K^I(R*$-ikJ *$RĢ A]µP1mPMj$"E@J48Lyfp^Bt3?p{.PB g?ONxٴLS5W[ 7-C':pj--h#nAZr*RG,-˶bT ~N{brɵL FOVIFcwYX̪feᛜRϥn/Ì4 #ǫb^@dx?aƒ-/jxdyb1Jvm '/_7;cI.|#h>?0\T1JHqfͨWK\NF3>d A)~!,}b15fJt;CCl/ xqL32g30eVlgT(nBbm0O[z[9d1VՇ9PƇذ;9m}rrq kWB!@V>*wOB>;Z@As^g͎zB.oPCaozHYM}=R}LRS%/=kG= [Z,~/TW#Mg;aL)GE]2uܢyȋ+R1״ZM7 B]P|e!;\RB1}y=w>W&wBAQ=Ѱ[34xlr9މ1%dAPP M6~[뿆[B * |_y0IENDB` %UZV&fYJ G(9 $T9G+(cm_procslistadosTCTC cm_control_de_ocs%Cusuarios Q \usuariosC CC$n TdF #) Tcm_control_de_ocs(%Cocs_FQ%Cocs_tmpFQ .dbf.cdx.dbf.cdx BU ACTIVEFORM DATASESSIONIDXDATASESSIONIDCM_PROCSLISTADOSXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2 OPEN_FILESCM_CONTROL_DE_OCSP_SYSTEM CREAR_TABLAORDENES_DE_COMPRAXPER_COMPLETITUDOCSXRESOCS_TMP%Ctcccomp ,Qtcccomp%Ctcccompd ^Qtcccompd%Ccccnotas Qcccnotas%Cproveedo Qproveedo%Ccondpago Qcondpago%Ctcompras &Qtcompras%Cbienes TQbienes%Ccostos Qcostos%Cbultos Qbultos%Catributo Qatributo%Cccprov QccprovBU TCCCOMPTCCCOMPDCCCNOTASPROVEEDOCONDPAGOTCOMPRASBIENESCOSTOSBULTOSATRIBUTOCCPROVO 4G+(ge02G+(listadosCC ZPBUXORDENXCOD_PROGE02LISTADOS CPBT_VIS2&/sys_procesandoObteniendo datosTC Hif Ttcccomp.pend#"N" ;T.(tcccomp.pend="N" and tcccomp.fec_com>=xdesde) LRTE((tcccomp.pend="N" and tcccomp.fec_com>=xdesde) or tcccomp.pend#"N") 2fT.t.!%.t. !Ttcccomp.orden=xorden%CLTcm_control_de_ocs%Cocs_tmpFQ$%Ctcccomp.usrsolbN% R select tcccomp.fec_com as fecha , tcccomp.orden as orden , tcccomp.cod_pro as codigo , nvl(proveedo.nombre,space(40)) as nombre , .f. as tilde , space(20) as estado , usr as emisor , space(40) as demisor , aut_usr as quien , space(40) as dquien , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as importe , autorizada as autorizada , iif(tcccomp.pend="N",.f.,.t.) as pendiente , iif(tcccomp.pend="N","NO","SI") as pend , tcccomp.coefic as coefic , tcccomp.tot_com/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as tot_com , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as deuda , tcccomp.oc_ext as oc_ext , 0000000000000.0000 as saldo , tcccomp.fec_ent as fec_ent , iif(div="S" and tcccomp.moneda>0, tcccomp.moneda, 00) as moneda , space(3) as montxt , tcccomp.coefic as cambio , tcccomp.div as divisas , tcccomp.fact_mo as fact_mo , tcccomp.facturado as fact_pes , tcccomp.moneda as mon , iif(tcccomp.tolc=1,"SI","NO") as tolc , iif(tcccomp.tolp=1,"SI","NO") as tolp , tcccomp.per_ent as entregado , tcccomp.per_fac as facturado , tcccomp.ap_usr1 as ap_usr1 , tcccomp.ap_usr2 as ap_usr2 , tcccomp.ap_usr3 as ap_usr3 , tcccomp.ap_usr4 as ap_usr4 , tcccomp.ap_usr5 as ap_usr5 , space(250) as usuarios , tcccomp.cod_cen as centro , NVL(costos.descr, space(60)) as dcentro , IIF(!EMPTY(NVL(cccnotas.nota,"")), "SI", "NO") as nota , TCCCOMP.usrsol , NVL(tcccompd.solicita,SPACE(40)) as dusrsol from tcccomp left outer join tcccompd on tcccomp.orden=tcccompd.orden left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join costos on tcccomp.cod_cen=costos.cod_cen left outer join cccnotas on tcccomp.cod_pro+TRANSFORM(tcccomp.orden, "9999,999,999")+"P"=cccnotas.id order by tcccomp.orden where tcccomp.cod_pro#"0 " .and.tcccomp.cod_pro#" " .and. &xfiltro into table (xarchivo) select tcccomp.fec_com as fecha , tcccomp.orden as orden , tcccomp.cod_pro as codigo , nvl(proveedo.nombre,space(40)) as nombre , .f. as tilde , space(20) as estado , usr as emisor , space(40) as demisor , aut_usr as quien , space(40) as dquien , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as importe , autorizada as autorizada , iif(tcccomp.pend="N",.f.,.t.) as pendiente , iif(tcccomp.pend="N","NO","SI") as pend , tcccomp.coefic as coefic , tcccomp.tot_com/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as tot_com , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as deuda , tcccomp.oc_ext as oc_ext , 0000000000000.0000 as saldo , tcccomp.fec_ent as fec_ent , iif(div="S" and tcccomp.moneda>0, tcccomp.moneda, 00) as moneda , space(3) as montxt , tcccomp.coefic as cambio , tcccomp.div as divisas , tcccomp.fact_mo as fact_mo , tcccomp.facturado as fact_pes , tcccomp.moneda as mon , iif(tcccomp.tolc=1,"SI","NO") as tolc , iif(tcccomp.tolp=1,"SI","NO") as tolp , tcccomp.per_ent as entregado , tcccomp.per_fac as facturado , 000 as ap_usr1 , 000 as ap_usr2 , 000 as ap_usr3 , 000 as ap_usr4 , 000 as ap_usr5 , space(250) as usuarios , tcccomp.cod_cen as centro , NVL(costos.descr, space(60)) as dcentro , IIF(!EMPTY(NVL(cccnotas.nota,"")), "SI", "NO") as nota , TCCCOMP.usrsol , NVL(tcccompd.solicita,SPACE(40)) as dusrsol from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join costos on tcccomp.cod_cen=costos.cod_cen left outer join cccnotas on tcccomp.cod_pro+TRANSFORM(tcccomp.orden, "9999,999,999")+"P"=cccnotas.id order by tcccomp.orden where tcccomp.cod_pro#"0 " .and.tcccomp.cod_pro#" " .and. &xfiltro into table (xarchivo)  L%% select tcccomp.fec_com as fecha , tcccomp.orden as orden , tcccomp.cod_pro as codigo , nvl(proveedo.nombre,space(40)) as nombre , .f. as tilde , space(20) as estado , usr as emisor , space(40) as demisor , aut_usr as quien , space(40) as dquien , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as importe , autorizada as autorizada , iif(tcccomp.pend="N",.f.,.t.) as pendiente , iif(tcccomp.pend="N","NO","SI") as pend , tcccomp.coefic as coefic , tcccomp.tot_com/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as tot_com , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as deuda , tcccomp.oc_ext as oc_ext , 0000000000000.0000 as saldo , tcccomp.fec_ent as fec_ent , iif(div="S" and tcccomp.moneda>0, tcccomp.moneda, 00) as moneda , space(3) as montxt , tcccomp.coefic as cambio , tcccomp.div as divisas , tcccomp.fact_mo as fact_mo , tcccomp.facturado as fact_pes , tcccomp.moneda as mon , iif(tcccomp.tolc=1,"SI","NO") as tolc , iif(tcccomp.tolp=1,"SI","NO") as tolp , tcccomp.per_ent as entregado , tcccomp.per_fac as facturado , tcccomp.ap_usr1 as ap_usr1 , tcccomp.ap_usr2 as ap_usr2 , tcccomp.ap_usr3 as ap_usr3 , tcccomp.ap_usr4 as ap_usr4 , tcccomp.ap_usr5 as ap_usr5 , space(250) as usuarios , tcccomp.cod_cen as centro , NVL(costos.descr, space(60)) as dcentro , IIF(!EMPTY(NVL(cccnotas.nota,"")), "SI", "NO") as nota , 00000 as usrsol , SPACE(40) as dusrsol from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join costos on tcccomp.cod_cen=costos.cod_cen left outer join cccnotas on tcccomp.cod_pro+TRANSFORM(tcccomp.orden, "9999,999,999")+"P"=cccnotas.id order by tcccomp.orden where tcccomp.cod_pro#"0 " .and.tcccomp.cod_pro#" " .and. &xfiltro into table (xarchivo) H%select tcccomp.fec_com as fecha , tcccomp.orden as orden , tcccomp.cod_pro as codigo , nvl(proveedo.nombre,space(40)) as nombre , .f. as tilde , space(20) as estado , usr as emisor , space(40) as demisor , aut_usr as quien , space(40) as dquien , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as importe , autorizada as autorizada , iif(tcccomp.pend="N",.f.,.t.) as pendiente , iif(tcccomp.pend="N","NO","SI") as pend , tcccomp.coefic as coefic , tcccomp.tot_com/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as tot_com , tcccomp.deuda/iif(div="S" and tcccomp.moneda>0 and tcccomp.coefic#0, tcccomp.coefic, 1) as deuda , tcccomp.oc_ext as oc_ext , 0000000000000.0000 as saldo , tcccomp.fec_ent as fec_ent , iif(div="S" and tcccomp.moneda>0, tcccomp.moneda, 00) as moneda , space(3) as montxt , tcccomp.coefic as cambio , tcccomp.div as divisas , tcccomp.fact_mo as fact_mo , tcccomp.facturado as fact_pes , tcccomp.moneda as mon , iif(tcccomp.tolc=1,"SI","NO") as tolc , iif(tcccomp.tolp=1,"SI","NO") as tolp , tcccomp.per_ent as entregado , tcccomp.per_fac as facturado , 000 as ap_usr1 , 000 as ap_usr2 , 000 as ap_usr3 , 000 as ap_usr4 , 000 as ap_usr5 , space(250) as usuarios , tcccomp.cod_cen as centro , NVL(costos.descr, space(60)) as dcentro , IIF(!EMPTY(NVL(cccnotas.nota,"")), "SI", "NO") as nota , 00000 as usrsol , SPACE(40) as dusrsol from tcccomp left outer join proveedo on tcccomp.cod_pro=proveedo.cod_pro left outer join costos on tcccomp.cod_cen=costos.cod_cen left outer join cccnotas on tcccomp.cod_pro+TRANSFORM(tcccomp.orden, "9999,999,999")+"P"=cccnotas.id order by tcccomp.orden where tcccomp.cod_pro#"0 " .and.tcccomp.cod_pro#" " .and. &xfiltro into table (xarchivo) Q  ~s% C %Cusuarios %Q \usuariosF G((codigoFG-( > CFG-( > %C usuarios_xG&Qsys_procesandosys_procesandoBUXDESDEXESTADOXORDEN SP_MENSAJESYS_PROCESANDOXFILTRO OPEN_FILESCM_CONTROL_DE_OCSOCS_TMPP_OC_AUTORIZACIONXARCHIVO PROCESAR_OCP_SYSTEMUSUARIOSCODIGOQUIENDQUIENDESCRESTADO OC_ESTADO AUTORIZADAALLEMISORDEMISOR USUARIOS_XSP_OCULTAR_DEFINITIVAMENTE SP_OCULTARb TCocs_tmp TC.orden %  T T'cm_procs F > > FT TCC  f  > *%   S b> }>%c>CC.ap_usr1C.ap_usr2C.ap_usr3C.ap_usr4C.ap_usr5% > W1>CCC.usrsol6BUXALIASXORDENXMONTXT ENTREGADO FACTURADO XPER_ENTR XPER_FACTPORCENTAJE_CUMPLIMIENTO_OCCM_PROCS MM_MONEDAMONEDAMONTXTMONCOEFICDIVISASSALDOIMPORTEFACT_MOFACT_PESP_OC_AUTORIZACIONUSUARIOS FN_USUARIOSUSRSOLDUSRSOLQ%Cocs&FQh1DN CC(LCN C( N C( N NNNLCCNDNCNCNNNCCNN N!N"N#C$N %C&C'C<(C)N*C(QF& C& & CZ& & & & & C& BU+XARCHIVOOCSFECHAORDENCODIGONOMBRETILDEESTADOEMISORDEMISORQUIENDQUIENIMPORTE AUTORIZADA FACTURADO ENTREGADO PENDIENTEPENDOC_EXTSALDOFEC_ENTMONEDAMONTXTCAMBIODIVISASFACT_MOFACT_PESMONTOLCTOLPAP_USR1AP_USR2AP_USR3AP_USR4AP_USR5USUARIOSOPCOMPROBCENTRODCENTRONOTAUSRSOLDUSRSOLE4FG((tcccord%: EBUXORDENTCCCOMPTCCCORDORDEN  4TC T log_errores5FTCC+CO6%(  T estadoJ T - T - T T H TT T TTC\S'TOC CZ - Asys_destino_impresion( C@aaaaaa,T Analizando Ordenes de CompraT  T T !aF&~C6FTHT Orden de Compra CC@z 999,999,999_ de " C #H z T$"%cm_oc_mantenimiento%C$ vBCOrden de Compra CC@z 999,999,999_: C$' &(cm_reimprimir_oc   *cm_procs  *cm_procs  %,  T$;-cm_terminar_orden_de_compraa$%C$F >,a>/SI  h%,d T$;-cm_terminar_orden_de_compraa$%C$`F >,->/NO   01234T0T1T2T3T4 T5H< 6S T7 T8 T9#:cm_procs789 6<5;3T;C aprobacionessys_aprobaciones.prg%CoapbO T;%;<C;>;=%C-?'T7CABC;@ T8 T9T0C;DT1C;DT2C;DT3C;DT4C;D"T5C01234E  T7 T8 T9 8 T7T8 T9f>F7GH C7IJ0K1L2M3N4D5FOG((tcccord E>F7Q8%6;< = 9>OJ0K1L2M3N4<;TRN$TSC@z 9999,999,999_7CUSRSe marc la OC como  T   01234T0T1T2T3T4 T5%6 5;3T;C aprobacionessys_aprobaciones.prg%CoapbO T;%;< C;>;=%C-? 'T7CABC;@ T8T9DEFINIRT0C;DT1C;DT2C;DT3C;DT4C;D"T5C01234E  T7 T8 T9  T7T8 T9 . T7Fb>F7GH C7IJ0K1L2M3N4D5FOG((tcccord E>F7QU%6;< 2 9>OJ0K1L2M3N4<;TRN$TSC@z 9999,999,999_7CUSRSe marc la OC como  T  k01234T0T1T2T3T4 T5%6y5;3T;C aprobacionessys_aprobaciones.prg%CoapbO T;%;<CC;>;=C sin analizarV%C-?%  OT7CC6ABCC6;@ T8T9DEFINIRT0C;DT1C;DT2C;DT3C;DT4C;D"T5C01234E ? T7 T8 T9 u T7T8 T9  T7Fb>F7GH C7IJ0K1L2M3N4D5FOG((tcccord E>F7QU%6;< 9>OJ0K1L2M3N4<;TRN$TSC@z 9999,999,999_%7CUSRSe marc la OC como  T gICUSREstado:   - Se reeevala y notificaT 01234T0T1T2T3T4 T5%65;3T;C aprobacionessys_aprobaciones.prg%CoapbOY T;%;< C;>;= %C-? C-?  C;W%T7CABC;@ T8T9DEFINIRT0C;DT1C;DT2C;DT3C;DT4C;D"T5C01234EFb>F7GH C7IJ0K1L2M3N4D5FOG((tcccord E>F7QU%6;< 9>OJ0K1L2M3N4<;TRN$TSC@z 9999,999,999_MCUSR*Se eliminaron las autorizaciones. Estado:  T%8CX BH[[T !- Y< Zsys_procesando T\ T]-,^ log_errores\]F% #BU_XPROCESO XORDEN_PARAM XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXORDENOCSXREGTILDE XMAX_ORDENESESTADOESTADO_CM_CONTROL_DE_OCSXDESTINOXDRIVER OLD_XDESTINO OLD_XDRIVER XFORMULARIOCONSOCFORMLOCALESCM_005OCXCOPIASOCCOPIAS XCOPIAPDFCOPIAPDF XARCHIVOPDFORDENCODIGOSYS_DESTINO_IMPRESIONTEXTOMAXVALUEVISIBLENOMBREAVANCEXMSGOC_MANTENIMIENTOCM_OC_MANTENIMIENTOMENSAJE REIMPRIMIR_OCCM_REIMPRIMIR_OC EXCEPCIONCM_PROCS PENDIENTETERMINAR_O_REABRIR_OCCM_TERMINAR_ORDEN_DE_COMPRAPENDXAP_USR1XAP_USR2XAP_USR3XAP_USR4XAP_USR5 XUSUARIOSP_OC_AUTORIZACION XAUTORIZADAXQUIENXQUIENES AUTORIZAR_OCOAP HABILITADOINIT ID_CADENAACCESOEVALUAR_APROBACIONIMPORTEMONCAMBIOUSUARIOS FN_USUARIOS AUTORIZADADQUIENCL_NOM OC_ESTADOAP_USR1AP_USR2AP_USR3AP_USR4AP_USR5TCCCOMPTCCCORDAUT_USRXXXCAUSA XXXCOMPROBUSER_LOG PUB_INDEXSYS_MELIMINAR_AUTORIZACIONESACTUALIZAR_ORDEN_EN_TABLARELEASESP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOXOKXAUTLOG_ERRORES_MOSTRAR Ccm_procs T Tcm_procsFM> C S   6 >C S    6C SINO6C SINO6%Ccccnotas QcccnotasD%CC@z 9999,999,999_Pcccnotasid,>CC SINO6BUXORDENPOSICIONAR_EN_ORDENACTUALIZAR_DATOS_OCCM_PROCS XPER_ENTR XPER_FACTPORCENTAJE_CUMPLIMIENTO_OCOCSIMPORTETCCCOMPDEUDADIVMONEDACOEFICSALDOFACT_MO FACTURADO ENTREGADOTOLCTOLPCCCNOTASCODIGOORDENNOTA TCt  T(%CxCCZ*CCxCCZusuarioscodigo,TCC, 6C  BU X1X2X3X4X5XMAXXXZUSUARIOSDESCR open_filesver_ocordenes_de_compra procesar_oc- crear_tabla)1posicionar_en_orden5procesarQ6actualizar_orden_en_tablaQ fn_usuariosTA"AFrQBqAAqAA1121AB31AAAAAAAAAAA!A!A!AAA!AB4!B33r111"AAr1AqAAG2`P!A1PኢPACBAqrrAC2qsAAA22BBAC2qBqAA!(rAB4qq1AA22rrq2A"1qBAxa1!"!A2d2232rAA2"rAB2u132u1A"BtDAAAA"AABlstrAAq3s2u1A"BtABAAAA"BAAr*ttrAAqs2t1A"A2BABAAAA"BAAr*ttrAA2qA2s2t1A"RABAAAA"r*ttrAABAAA2BGIqrAAA2qtrw AABBB2qrBA4%<H%nN:y:>>D:DE)E|=|  "_% y|FI!K G(9%Ctcccomp <Qtcccomp T T TTCXG+(listadosG+( cm_funcionesG+(ge02cm_reimprimir_oc( % B.CC 9999,999,999_P BU ACTIVEFORM DATASESSIONIDTCCCOMP XTIPOCOMPRAXCAUSAXOCXCOD_PROLISTADOS CM_FUNCIONESGE02CM_REIMPRIMIR_OCXRESCPBT_VISORDENCOD_PRO1A"aAAB1%|FIGKG(9 T T TTCXG+(listadosG+( cm_funcionesG+(ge02cm_reimprimir_op( % B C   BU ACTIVEFORM DATASESSIONID XTIPOCOMPRAXCAUSAXOPXCOD_PROLISTADOS CM_FUNCIONESGE02CM_REIMPRIMIR_OPXRESCPBT_VISCCCOMPFAC_COMCAUSACOD_PRO"aAAB1% p T <0mKhG(9 CG~(clasesG+(listados T TTCX TT T C T  T +a TH )cm_comisiones_op(%C  %! % %CasigoFQ_ocomCXQC(XQCXQ1\tmp\ Q\tmp\ F ~ FG((ccvfacE%C4FG((codcli EF> H V>F c>C d>D+CN2(#)!cm_comisiones_asignar( T %T!C"H ! T!%C  !%%CasigFQ \tmp\ .dbf \tmp\ .cdxBU# ACTIVEFORM DATASESSIONID OPEN_FILESCLASESLISTADOSXOPXCOMPROBXCOD_PROXIMPORTEXFECHAXARCHNEWFILEXOLDOPXFORMXMAXFORMCM_COMISIONES_OPXRESWIZARDASIGCOMPROBCAUSAIMPORTECOD_CLINOMBRECAU2COMOPP_LOCALCCVENTCCVFACCLIENTESCODCLICM_COMISIONES_ASIGNARXOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM! C%CPROVEEDO BQproveedonombre%CCCCOMP zQcccompcccord%CCOM Qcom%Cclientes Qclientescodcli%Cccvent QccventccvfacBU ABRIR_TABLAS_FIJASPROVEEDONOMBRECCCOMPCCCORDCOMCLIENTESCODCLICCVENTCCVFACa Ttrsaccom%:T CM_COMISIONES4T'Asignacin de OP a FC/NC/ND de clientes T=trsacC@z 9999,999,999_T C T= trsacC@z 9999,999,999_ T  Q T  B U AAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANCCCOMPCAUSAXOPXOK WRITE_DATAEND_TRANTTS_IDFqcomF$~Vcd C X ?rcom BUCOMOPXOPASIGCAUSACOMPROBIMPORTEwizard open_files registrarl write_data> !11AA22RqAAAqq1qrAAAAAAB2QAQ21AAAAABB2CWqAAC31r12A12A1r1Aq4AARAAAB22AA2rQrAA2Q6 dM v ^ u a%(,W) YK  !G(9 +"T\tmp\CC]R TG+(listados cm_compraF #)F G((codproF G-( 5TC TT TT T T+a TS)TModificacin de Comprobantes T%Ccm_op(  %Ccccompop COP invlida !!!B-%*!T F G((op E T C4 T!a T"a% F G((codpro E %#S $S T% &  T%'#T%C[ ] C%'F T ( T!a T"a%)C*+oCPNo se puede modificar un comprobante de un subdiario cerrado (fecha de cierre = CC*+* !!! T!-%,C*-\^C?No se puede modificar un comprobante de fecha menor o igual al CC*-* !!! T!-%)C.[C?Balance cerrado, la fecha del comprobante debe ser posterior a CC.* !!! T!- T"-%!" T/0 T12T302 T45 T67 T89 T:; T<= T>? T@A TBC TDE TF( T, TG, TH) TI) TJKTLCMf TNO T0 T( T, TPQ TRQ TS-T+Tte_pago  V WTXLN TYZ T[\ T]^ T_CW%Cgan_pro T`Cab%C ganancias 4Qc\`^*o gananciasǼ1 \tmp\gan_proFd& ee& ff CgC Wh(Ti@C Wc6T jTkC=TlCC\gTmCC\gTn W cm_modif_cpbt(ATkC00000CClZR-C00000000CCmZR TpS TqPH8  TrX TrS  TrS 8 TrS F_%rN %Co . } !%rX !%rS Cs!  %C .  !!%C xper_prov* Qt\tmp\.*%Cgan_prol Qd%Cold_d FuQ%Cold_c FvQ cm_compraF G-(G+(listadosBUw XOP_PARAM ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL XTIPOCOMPRALISTADOS OPEN_FILES CM_COMPRACONSPROVEEDOCODPROCCCOMPCOD_PROT_TOTALT_FINALXFECEMIXIMPLOG1XIMPLOG2XOP XFECHA_REALXFECDGIXIMPORTEXCOD_PRO XIB_PER_PROV XCOMPROB_FULLSIONOXTITULO XRESULTADOCM_OPMENSAJEOPENCONTREMODIF MODIF_IMPTARJETACONTADOXNDES_PROVNOMBREDEUDAFEC_DGIOCIERRES CIERRE_COMCIEFEC_COM CIERRE_COMDESSYS_CIERRE_BALANCEXTOT_COMTOT_COM XIMPONIBLE IMPONIBLE XNOIMPONIBLEXIVAIVA_COMXIVA_NCIVA_NCXP3337P3337XIMCOM1IMCOM1XIMCOM2IMCOM2XIMCOM3IMCOM3XIMCOM4IMCOM4XIMCOM5IMCOM5XIIIIXTOTALXOLD_FECHA_REALXFEC_DGI XOLD_FEC_DGIXDES_COMDES_COMXSUBDSUBDXTRANTRAN XTIPO_IMPTIPO_IMP XTIPO_IMP_OLD XIMPULTIMOOBTENER_IMPORTACIONTE_PAGOFAC_COMCAUSAXSUBD_LXLUGARIBLUGARIBXTIPOIVATIPOIVA XGANANCIAS GANANCIASAREAXTABLA OLOCALIZACIONTABLA_GANANCIASP_SYSTEMGAN_PROCODIGODESCR LEER_TEMPCOMPLEER_PERCEPCIONES_IIBB XTD_IMCOM4FAC_COM2XCOMPROB_FULL_LETXCOMPROB_FULL_PVXCOMPROB_FULL_NUMXCOMPROB_FULL_CAU CM_MODIF_CPBTXIMPULTIMO_NEW XTIPO_IMP_NEWXOK WRITE_DATA XPER_PROVOLD_DOLD_Cp(%C C  b3C&Subdiario cerrado o fecha invlida !!!B-BaUXFEC_DGIOCIERRES CIERRE_COMCIEXFEC_COM CIERRE_COMDESMENSAJE T Ta/co_autold_dold_c%F Taco_aut%trsaccomprascccompccprovdiariogconceptoold_dold_cimportacmovstockcoscosimpcosult%TCM_MODIF_CPBT.PRG:T -Modificacin parcial de comprobante de compra T trsac T  T  T TC T CFTCSN6 >% > > > > >!" >#$ >%& >'( >)* > >+,%C T C-C/. C0%&%^C2C3_Fecha contable anterior: C* fecha actual: C*1%$4"ZC2C3_Fecha real anterior: C4* fecha actual: C$*1 T5%C 6SCH T57te_pago35%C 95 UC2C3_Importacin anterior: C9Z actual: C5Z1%C  Ta T:/!; co_comprasa T/:% 9T (Error al registrar el asiento contable: &C2C3_ 1TCC 6=trsac %C > R4CSe ha modificado la OP CC/Z !!!? %C |C ? T@ 2C%No se pudo iniciar la transaccin !!!? BgC-El ejercicio contable no ha sido definido !!!C #No se puede completar la operacin.? gC-El ejercicio contable no ha sido definido !!!C #No se puede completar la operacin.?BUAAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUT XOLD_FEC_DGIXFEC_DGILOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANXMSGXOKXFECHAFEC_DGIXIDFAC_COMCAUSACOD_PROXASIDIAASIDIA ANULA_ASIDIACCCOMPXSUBDXSUBD_LSUBDMODIFLUGARIBXLUGARIBTIPOIVAXTIPOIVAIVA_COMXIVAIVA_NCXIVA_NCFEC_COM XFECHA_REALFAC_COM2 XCOMPROB_FULL GANANCIAS XGANANCIASTRANXTRANTIPO_IMP XTIPO_IMPCM_REHACER_IMPORTACIONGUARDAR_PERCEPCIONES_IIBBXOP OTRAS_TABLASUSER_LOG PUB_INDEXOPXOLD_FECHA_REALXIMPLOG2P_EMPAPLICAR_IMPORTACION_TODOSTE_PAGOXIMPLOG1XOP_OLD REG_ASIDIA CO_COMPRASEND_TRAN TTS_ERRORMENSAJETTS_IDFG((asiento E T-4+C+ C  G(( Ta > > H%F G((asiento E%C4BU OLD_DASIENTOXASIDIAOKXIDCOMPROBCAUCODIGOFECHAANULADOUSR PUB_INDEXOLD_Cvrtempcompocompras   dey_filltempcompDesc_insCod_insBulAtr NO_CAMBIAR NO_CAMBIARUCOD_INSBULATR RECEPCIONIMPORTITEMTEMPORALTOT_COMIMPORTACITMCOMPRASOPXOP FILL_BIE_FULLDEY_FILLF T T- cm_compraF> T T  cm_compraF ~3pcompras     BUTEMPCOMP XTIPO_IMP XTIPO_IMP_OLD XIMPULTIMO FN_IMPORTAC CM_COMPRAIMPORTTEMPORALALL XTIPO_IMP_NEWXIMPULTIMO_NEWCOMPRASIMPORTACOPXOPITMITEMK  J(%CFTCkoprovincQQmBQ Q C 1 \tmp\>cSIRCREB> & Q \tmp\F G((opECZ%C4@("T per_prov.provCCZ%CF-> C C Tc"T per_prov.provCCZ%C<F-> C CBUXCAUSAXNUM IIBB_PROV XIB_PER_PROVNEWFILECODPRV_CODDESCRPRV_DESPRV_IB OLD_PRV_IBPROVINCP_LOCALALL XPER_PROVPER_PROVOPZAAA F G((op%CZCZKECZ%CZCZv BF>F~%T per_prov.ProvCCZ4replace &tcamp with xper_prov.prv_ib in per_prov % aC C _  Per.IIBB C: CC  Z => CC  Z BUXCAUSAXNUMPER_PROVOPCAUSAIN XPER_PROVPRV_CODTCAMPPRV_IB OLD_PRV_IBUSER_LOG PUB_INDEXCCCOMPPRV_DESIF G((op E+C+  g > > HF G((cpbt#TCOPCCZ  E+C+   ~ >!T CZCZ TCOG(( referencia E/+C+ CZCZ ` >H G((cpbt #HFG((comprob%TC 9999,999,999_  E+C+    >HFG((comprobTC Z  E+C+   d >HFG((comprobTC Z  E+C+    >HFG((comprobTC Z  E+C+   > >HBUXIDXID2XREGXOKCOMPRASOPXOPFEC_COM XFECHA_REALFEC_DGICCPROVCPBTCCCOMPCAUSACOMPROBFECHACOD_PROCUOTA REFERENCIAREFCAUCUOOPRFECREFMOVSTOCKNUMEROCOSIMPCOSULTCOSfn_read write_data anula_asidia  leer_tempcomp_cm_rehacer_importacionleer_percepciones_iibbRguardar_percepciones_iibb?" otras_tablash$qA%"CrQrr2211qAA2AArrA1qrArABAb#ArBB"qq1111ABAAAABAAABBAAAAABAAAbqAAaqAAAra#A31qAr3} 2rCAB1A1AAAQAaAAB!AA!AqAqAB3~AaAArAAAC5e#7zArAr1A6RBs!RqAB!RqABC2tABArQsrqQA2ABB22rAAr21BABArRBArBArBArBAB2 "0"A%*f%&-'))<[) .^0.C1Jv\1i7p% {SKc+%   /BG(9G+(listadosG+(cm_procsG+( cm_compra T"T  \tmp\CC]R  cm_compraCcccompccc1 Ccomprascom1 Cccprovccp1 %Cquery1.F QFoccc1CCC$d C XC query1 T T T ~T  T Ta%co_aut%%gtrsaccomprascccompccprovconsdiariogconceptocos Ltrsaccomprascccompccprovconscos%T CM_COMPRA DGLT Desglose T!trsac %C" T TT *CNo se pudo obtener una OP !!!#T T$trsac T%  T gC-El ejercicio contable no ha sido definido !!!C #No se puede completar la operacin.# T%Cccc1FQ%Ccom1F&Q%Cccp1 F'QICSe desglosaron CCZ de CCZ comprobantes !!!# BU(P_DOSP_CODEMPP_COMPRAS_DESGLOSE ACTIVEFORM DATASESSIONIDLISTADOSCM_PROCS CM_COMPRA XTIPOCOMPRA XTEMPCOMPP_LOCAL OPEN_FILESABRIR1QUERY1CCC1FEC_COMCAUSAFAC_COMDGLXOKACCCPBTMAXCPBTXFECDGIFEC_DGIAAA XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONMENSAJEEND_TRANTTS_IDCOM1CCP1C 41Q\data\CCZ\BUXARCHXALIASP_SYSTEMP_UNOC Suspendo?aTd !( \tmp\tmp_dglF#) T T+d F#)TF G((op E%C4 F >F \tmp\tmp_dgl.dbfT   >  N> F(( \tmp\tmp_dglFQ \tmp\tmp_dgl*> QF\tmp\tmp_dgl.dbfF}( \tmp\tmp_dglCCZCZCZCZCcZCZFQ \tmp\tmp_dglD> !! "CZCZQF#\tmp\tmp_dgl.dbf%$%C%  BF& G((op E > B TBd U'SYS_MOSTRAR_SCREENXPERCENTQUERY1DGLP_LOCALCONSNOPOPXTRIESCCCOMP XPERCENT2TOT_COMDES_COMDEUDAIVA_COMIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5IIRECECOM1COS_LIFOALLCOMPRASCCP1COD_PROCOMPROBCAUSACUOTAFAC_COMOPRIMPORTEIDCCPROVP_ASIAUT REG_ASIENTOCCC1abrir1 transaccionAA"!1&BrqAAgAxB2QCAAqABRqAAQqAAQqAA2B2trQArQrrrtArsFArAAsAA2Ib Mz X% X mWKG(9"T\tmp\CC]Rcm_imp_ingresoG+(listadosG~(clasesG+(cm_imp_ingresoG+(proc_stk T  T -$cm_imp_anulacion_ingreso( % F G((numero E T  T T' co_funciones- Ttrsacstockstkxdepdespachoimportactcomprasconverconver2movstockdiariogconcepto T-%%TCM_IMP_ANULACION_INGRESO*TAnulacin ingreso importacin TtrsacTC Ttrsac%zHv UZC+Se ha anulado el ingreso de la importacin CC @z 999,999,999_ !!!! vC %CError de transaccin !!! 3C&No se pudo concluir la transaccin !!! T BU! ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILESCM_IMP_INGRESOLISTADOSCLASESPROC_STKXIMPORTXRESCM_IMP_ANULACION_INGRESOIMPORTACNUMEROXFECHAFECINGXERRXMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESAAALOCK_GTRSACXOTRO_EJTRAN_PRGTRAN_TXTBEG_TRAN XRESULTADO TRANSACCIONEND_TRAN TTS_ERRORMENSAJETTS_IDC AnulacinoconverQmovstockQCQ     C  ZM   C q%GT:La importacin tiene movimientos, no puede ser anulada !!! BFG((numero E%C4T3%Cdiariogasiento   T  C ZMF~  k%5%CCZCZtcomprasORDENITM >T :C " - c !  ,TItem de la OC no encontrado !!! B%T#  )   # $ F=>%  +TImportacin no encontrada !!! B BU&SYS_MCOUNTCNTCONVERCMOVSTOCKMCOD_INSBULATRDESPACHOCODIGOTRANSFNUMEROCAUSAIMPORTACXIMPORTQXMSGXASIENTOASIENTODIARIOGINCONCEPTOXMOVMOVORDENREFITMRECEP3ENTRASALETCOMPRAS XCANTIDADG_STOCKDEP_INGXIDCONVER2FECING transaccion+(!Ars 3Q212AQA1ABB3d brAr2"raQAARA"sAA1. _b%ENL6 G(9%%  | T-ft05%x te_comienzo"T  \tmp\CC]Rcm_imp_ingreso%Ccons F Qcons#)G+(listadosG~(clasesG+(cm_imp_ingresoTC T TC$ T T+a TH}   T cm_imp_cierre(H ! >%,T :! y% uT !  T } Tcm_imp_cierre-2(%Ccm_imp_ingreso T%F%SpT z%C  T!- BCsNo se puede cerrar una importacin con activacin de gastos fuera del ejercicio en que se ingres la mercadera !!!"B- T!a Pr#trsacimportactcomprasimp_tranconvercomprasdiariogconcepto T!-%DT% CM_IMP_CIERRE"T&Cierre de Importacion T'trsac%&T(C)C+C Zi* T,trsac%&%-@H< ( LCSe ha abierto la importacin CC@z 999,999,999_ !!!!" (%Ccos WQcos T/01 cs_generar/'3 cs_generar/aLCSe ha cerrado la importacin CC@z 999,999,999_ !!!!" ( (rKC>La fecha de cierre debe ser posterior al cierre de balance !!!" T (6C)Cuenta de importaciones no encontrada !!!" T 2<OC Hubo un error en la importacin CC@z 999,999,999_ !!!!"T-' T 3C&No se pudo concluir la transaccin !!!" T4Hy  !  %T  ! B % > T Y ! y T%Cborrar FQ  \tmp\.dbf  \tmp\.cdx%Cd2 F5Q%Cc2+ F6QBU7 ACTIVEFORM DATASESSIONID P_COMBEMPXTIPOPAGXFROMXRESCAMBIAR_EMPRESAFT05 OPEN_FILES TE_COMIENZO XTEMPCOMPP_LOCALCM_IMP_INGRESOCONSLISTADOSCLASESBORRARNEWFILEXIMPORTXFECHAXFORMXMAXFORM CM_IMP_CIERRECARGAR_TRANSITOAPERTURA_DE_EJERCICIOAAAP_IMP_ACTIVAR_GASTOSIMPORTACCERRADAFECCIEEJERCONDESDEHASTAXOTRO_EJMENSAJELOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN XRESULTADO TRANSACCIONUSER_LOG PUB_INDEXEND_TRAN TTS_ERRORCOSXEMPP_CODEMP USE_FILES CS_GENERARCOS_IMPORTACIONESTTS_IDD2C2g%4%C0 BF%M%S%%#       >N B I>S CC%c0cm_imp_funcionesimportac F-%C4F>%%T T!TCcuentasabrev% F BT\odiariog  Ccd   cur_imp_cierreF #6T   T!hrconcepto  "# #Activacin de Gastos de Importacin5CF ~F<$^($T!!F _$T%&'cw>()!  *C$+ Activacin: C+C-+[T!!F _$T%&'c>&C%%6'C%%c6()!  *C$+ Activacin: C+C-+[F>  <F >  B ` BU,P_IMP_ACTIVAR_GASTOSXFECHASYS_CIERRE_BALANCEIMPORTACXIMPORTNUMEROCERRADAASICIEINDIARIOGASIENTOFECHAFECCIECONCEPTOFACTORDESCONTAR_TRANSITOBORRAR_TRANSITOP_CS_IMPORTACIONESACTUALIZAR_COSTOCM_IMP_FUNCIONESCONVERTIPOIMP XIMP_IMPOCONSIMP_IMPO IMP_IMPOLXENCXCUENTA_IMPORTACIONCUENTASCOD_CUECAUCUR_IMP_CIERREXASIENTOXPASETIPO2FEC_PROCAAAXIMPORTEDEBITOCREDITOCOMPROBPASEHOY COMENTARIO transaccion R1bAA"bQA"11B12AA12A1B1A223tDq@BB)3!211TAt221aAA1AA1B12AA12A1B1ABBrqAA8qAA2qAAB36BABr2B2a3QEA5sAqAA2bAArQrrrrQ2zrQ2k CrsrBAA1"%<345L$-G+(Dey_FuncDey_Fill pr_maquinas%Cmaquinas [QmaquinasF(%<C/No existen mquinas definidas en el sistema !!!B-G+(Dey_FuncDey_Fill pr_maquinas7(pr_planeamiento_por_maquinaJUDEY_FUNCDEY_FILL PR_MAQUINASMAQUINASXNMAQMENSAJE FRMPLANMAQPR_PLANEAMIENTO_POR_MAQUINAAAq1AAq1%H(ꄊSuL %-i C a Ta Ta( c:\sistema\system\data\1\ges.dbc%Cbienes Qbienes%Catributo Qatributo%Cbultos Qbultos%Clineas %Qlineas%Cgrupos SQgrupos%Cproveedo Qproveedo%Ccatpro Qcatpro%Cstock Qstock%CtmpF QTC ]3h1\tmp\CCCCPCPCCNNNC NC C NN N!LQ\tmp\ F & &  in_minimosBU#SETS DEY_FUNC2P_DEV P_SUSPENDCBIENESATRIBUTOBULTOSLINEASGRUPOSPROVEEDOCATPROSTOCKTMPXTMPP_LOCALCODIGOBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUX TIPOSTKMINSTK_MINSTK_MIN1ACTIVO IN_MINIMOS9sys_procesandoRegistrando los cambios...F~C j%C C F3TCstockarticulo F$TCbienescodins%_>  >  >  %C C [F>  F sys_procesandoBU SP_MENSAJESYS_PROCESANDOXOKTMPCODIGOATRBULSTOCKBIENES TIPOSTKMINSTK_MINSTK_MIN1ACTIVOSP_OCULTAR_DEFINITIVAMENTEguardar_cambiosAQB!AAA!A!A!AAA!ArABqAA@1ra"C2rr2q1qAAqABqCB1/!U%Z mbFL4 C%CxbultobNN T%C xCocientebN~ T%CxdfecbDT%CxhfecbDT!%C xIncrementobN T% Cpr_fecha_ventas(-%   K ve_sql_estadisticas estadisticasa \tmp\G+(listados%Q \tmp\estadisticas%C  TF & ~FG((codigoE   %C4 *>   TTMPVENTAS.MES1TATCREPLACE &xcolumna with &xcolumna+estadisticas.cantidad / xcociente * (1+xincremento/100), &xcolumnaa with &xcolumnaa+estadisticas.cantaux / xcociente * (1+xincremento/100) F FG((CODINSF~TC wF E&%S S qFG((codigo ECX >F QFQ% CC6Se ha actualizado el batch mnimo segn las ventas !!! U!XDFECXHFEC XCOCIENTE XINCREMENTOXBULTOXAUT OPEN_FILESPR_FECHA_VENTASXRESEXPORTAR_VENTAS_PLANVE_SQL_ESTADISTICASP_LOCALLISTADOS ESTADISTICASCOD_INSCODOBIEDATA_CODIGO_VACIO TMPVENTASCODIGOBULATRXCOLUMNA XCOLUMNAABIENESCODINS XMINBATCHMES1CBULTOS ATRIBUTOSSTOCKMINBATCHMENSAJE dey_func2C TMPVENTASCBienesCBultosCAtributoCStockUCREATE_OBJECT_DEYFUNC DEY_FUNC2CREATE_TABLA_VENTASODEYFUNC CHK_OPENED "T\tmp\CC]R%CL FQh1CCCC(NN N N N N NNNNNNNNNNNNNNNNNNN  N !N "C #N$L%L&L'L(L)L*L+L,L-L.L/L0L1L2L3L4L5L6L7L8L9L:L;L<L=N>N?N@NANBNCNDNENFNGNHNINJNKNLCMCNC OC PNQFQ& ""& & Q#)URXPATHXALIASP_LOCALCODIGOBULATRDESCRMES1CMES1AMES2CMES2AMES3CMES3AMES4CMES4AMES5CMES5AMES6CMES6AMES7CMES7AMES8CMES8AMES9CMES9AMES10CMES10AMES11CMES11AMES12CMES12ALINEAGRUPOSUBGRUPOIDUFACTORM1M2M3M4M5M6M7M8M9M10M11M12N1N2N3N4N5N6N7N8N9N10N11N12GENERADOSTOCKSTOCKAUXSOBRAMIN1MIN2MIN3MIN4MIN5MIN6MIN7MIN8MIN9MIN10MIN11MIN12DATRDBULUNIDAD UNIDADAUXCOLORVISTA open_filesrCreate_Tabla_VentasNAA1A1AAA#RRAurqQA!! rAquqrbqABrAqA1AB2ArbaQ4#AA@NE!aaSQ1B sI  %P r'7L CF G((IDU%C[listadosF E%C4 1C$No se pudo encontrar el planeamiento B-F ^J<    <7    7 T  T  T T T T T  T  T T TC%T  T TMP_PLANILLA PR_FUNCIONESF~ ^JCF T%FT  HB  T  " T B T ] TF W!LISTADOSnuv_maquina.FRX.t.aaaaaU"XMAQ_IDUXMAQXMADXOPE OPEN_FILESPLAN_MAQIDUBUSPLANLISTADOSMENSAJEZART_CODZART_DESZUNI_BULZCICLO ZCAVIDADESZPROM_HSZCAN_TOTZCAN_SALZMAQ_CODZMAQ_DESZCOLOR LEER_PLANCICLO CAVIDADESXPATHXALIASPR_MAQ_CREATE_TABLE_PLANILLA PR_FUNCIONESPLAN_MADPLANLEER_COMBINACION ZCOLOR_VAL TMP_PLANILLAIMPRIMIR_FORMULARIOTTCTTT  T  T TTCUXMAQZART_CODCOD_INSZART_DES OBIE_DESCZCAN_TOT CAN_TOTALZCAN_SAL CAN_HECHAZUNI_BULBULZCICLOCICLO ZCAVIDADESZMAQ_CODMAQUINAZMAQ_DESOMAQ_DES 5 5 T TTF~  ^JC %CxOpebOF ^JC U XMAQXMADXOPEXMADPEND XOPE_NOM_E XOPE_NOM_DCANTIDADPLAN_OPECOMB_IDUIDU LEER_TURNOSC T  %C C t T  T     T  TC TCTCSNo6TTC zTTC z%  T% T T d(% + T V!T d%  T T #TCC =*T < <  <  r TMP_PLANILLA!"#$%&'()*+,-./012345678 9:;;;C C C <<=C?@> A  UBXMAQXMADXOPEBUSCAR_PERSONAL XOPE_NOM_E XOPE_NOM_DYCANTYMINT CAN_HECHACAN_BADFEC_FINFEC_INIYSECTXSTP_MINXSTP_CODXHOR_TOT XHOR_PROMXUSA_ETQ XUSA_ETQTXCAN_BULXCAN_SUEXCAN_FAL BUSCAR_STOPSBUSCAR_ETIQUETAXMADPENDCANTXBULXUNI_BTCON_INICON_FINXUNI_TDODEYFUNCDT_DURACION_A_TEXTOSETUPPLAN_IDUCOMB_IDUOPER_IDUFECHAHOR_INIHOR_FINOPE_OPEOPE_ENCCAN_TOTCAN_PROCAN_PENCAN_XBULETIQATR_COLCAN_BULCAN_SUECAN_ORDCAN_BUECAN_MALCAN_DIFPAR_MINPAR_CODUNI_BTUNI_TDHOR_TRAUNI_PROIDUCANTIDADHECHA OATR_DESCCOD_INSATR CAVIDADESL  T%DB-TCF (HE TVarios TN/S 2E T T~ A#TC T/U XOPE XOPE_NOM_E XOPE_NOM_DXCANXDIVOPE_CODBUSCAR_OPERARIOPLAN_OPDOPE_IDUIDUFECODIGOT'%CXLargobN rTC= BUXCODXLARGOXNOMOPERARIOCODIGODESCR TF~yTTCCZT/U XOPEXSTP_MINXSTP_CODXDIVPRODSTOPOPE_IDUIDUTIEMPOSTOP_CODFG((codinsF~wF E% sBaB-U XOPEXMADXMAQBIENESCODINSPLAN_GENIDUCOMBINASUS_CODGRUPO:FECODINSBCC46UXCOD_INSBIENESCODINSDESCRB FEcodigoBCC46UXCOD_INSXCLAVEATRIBUTOCODIGODESCR:FECODIGOBCC46UXMAQ_CODMAQUINASCODIGODESCR3 DEY_FUNC2Cplan_nuvCplan_genCplan_maqCplan_madCplan_opeCplan_opdCoperarioCbienesCbultosCmaquinasCprodstopCProd_forUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENED LEER_PLANWLEER_COMBINACION LEER_TURNOSBUSCAR_PERSONALBUSCAR_OPERARIO BUSCAR_STOPSVBUSCAR_ETIQUETA( OBIE_DESC oAtr_descbOMAQ_DES OPEN_FILES<qrqArqAqqqAvq!qA1a11AAqq4qAqA3qqqqaAraA3brqAaAa1A1AA21A`4aqAqrQ111q1AA2q1q!A2qqqA2qrqqaqAAq2qq1a2qqa2qq1a3Aaa7=TH aZ v) o' m%I";^XM%Cproducci 3Qproducci%Cbienes aQbienes%Cbultos Qbultos%Catributo Qatributo%Cccformul QccformulG+(listados oproducciQccformulQ     Q Q -Q-QC XQ QCNNS6Q   prod_pendF ~q T,listados  F > #) TC$ Tpr_cierre_batch( FQB/&U!PRODUCCIBIENESBULTOSATRIBUTOCCFORMULLISTADOSPRPRODCODIGOATRBULDESCRFECHACANTIDADREALCANT_ORICHECKERRORIDUCIEBATCHCIECC CIE_PARCIAPARCIALFORMULAPENDMULTIPLE PROD_PENDXDESCR ART_DESCRXFECHAXTURNOPR_CIERRE_BATCHXRESQAA!A!AAAAA"trBRrABQ1%RmK+MG(9%C4a )B C T T+a TH} Gpr_cie_numero_op(!Reapertura de Orden de Produccina%!F G((prod E%C4  % >C1Esta Orden de Produccin ya encuentra abierta !!! T % OCBEsta Orden de Produccin ha sido anulada y no se puede reabrir !!! T %C4F*CProblemas con los ndices !!! 7C*Produccin no encontrada o inexistente !!!  T%C ! Cpr_anu_confirmar(!Reapertura de Orden de Produccin%+aTCHS w T! .  T!%C !%B CBU ACTIVEFORM DATASESSIONIDACCESO USE_FILESXNUMPRODXFORMXMAXFORMPR_CIE_NUMERO_OPXRESPRODUCCIPRODPENDMENSAJEFORMULAWIZARDPR_ANU_CONFIRMAR XRESULTADO REGISTRAR UNUSE_FILES  4H 6B- %mT ~B- % T B-  TBaBUXRESXFORMXMAXFORM.R,:#Aguarde, procesando informacin ... Ta Ttrsacstockstkxdepstkxdspproduccimovstockcompprodprod_forcomppauxpr_cie% TEtrsac Pr_reabrir_opReapertura de produccin%TC%w T T TEtrsac Pr_reabrir_opReapertura de produccin TH ^0C#La produccin ha sido reabierta !!! B z B  B BU TRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJE| T<KomovstockCCCZ/ 0PCZ/999P% < T00TCCCRgFY>a C6    %TremCCZrepl &zz with "" TcieCCZrepl &zz with {} F F%(< TbulCCZTCDomovstockCP % TreaCCZ$repl &xvar with &xvar - xcant[1]  TTGomovstockCCP % P>CF!~CP2 TCO T T  T!`"proc_stk$cPC$%8&F #F($()) * [ T+- BU,XOK XINGRESOSNUMEROMOVSTOCKCAUSAXNUMPROD XMAXCIERREPRODUCCIPENDESTADOSUBFINFFINHFINMZZPR_CIEFORPRODINDICEMULTIPLEZXCANTXVARXCODPRODCODIGOATRCANTIDADBULSUMREALXREGSTK_TSTSTK_ERRSTK_MSG ACT_STOCKPROC_STKDEPOSITOITEMDESPACHOINCOMPPRODIDNCIERRESTRSAC pr_ordenesBU OPEN_FILES PR_ORDENES pr_ordenesBU CLOSE_FILES PR_ORDENESwizard registrar/ transaccion8 use_files unuse_filesC RAA1r2AArAAAqABAA2221A1B1AAABAABB2BAB31r12qA12A1r1ArC42Q22AAR122BBB3s"qQAs9AAAtr#qA"AAAq"QABst rBrBA3QA2QA1CojY y w %1W62cXOM0sys_procesandoPreparando datos.%Cproducci ^Qproducci%Cbienes Qbienes%Cbultos Qbultos%Catributo Qatributo%Cccformul Qccformul%Cform_est PQform_est%Cprod_est Qprod_est%Clineas Qlineas%Cgrupos Qgrupos%Cproveedo QproveedoG+(listados%C prod_pendKF Q%C prod_pend1uFQ< <  T TCpr.pend(\tmp\prod_pendF!Q\tmp\prod_pend CF & & & & & & &  G((prod#)sys_procesando T C$ pr_etapas("F QBU# SP_MENSAJESYS_PROCESANDOPRODUCCIBIENESBULTOSATRIBUTOCCFORMULFORM_ESTPROD_ESTLINEASGRUPOSPROVEEDOLISTADOS PROD_PEND PROD_PEND1 ARR_ETAPA ARR_ETAPAPXMAX_ARR_ETAPAXMAX_ARR_ETAPAP SELECCIONARP_LOCALPROCESAR_SELECCIONPRODCODIGOATRBULDESCRFECHACANTIDADESTFABDESTFABSP_OCULTAR_DEFINITIVAMENTEXFECHA PR_ETAPASXRESFS>   '>C C   BU PROD_PENDINICIOXINICIOFINXFINESTFABXESTFAB MAXESTFABXMAXESTDEMXDEMPLAZOXPLAZOCOD_PRO1XMAXPRO1COD_PRO2XMAXPRO2 PENDIENTE 4F%C+C ;T Q TCOC cambio etapaTC]%C tmp_arts_prodQ%C arts_prod Q arts_prodh1\tmp\ C C C CP CPCCNNNC NC C N Q\tmp\&   & %>listados tmp_arts_proda  F G((prod E+C+  F%-     >FHoform_estQXprod_estQ  - C fQ CQC Q C!Q!CQC"Q"C#CXQ#C(XQ$C%CXQ%C(XQ&CCCC C 6< <  8Q'CCC C 6< <  CCCC C 6< <  8Q(CCC) ҡ C) *6Q). cur_estado% C0r cur_estado  !"#$%&'()ETAPA POR DEFECTO~C# C% g%C# C#proveedocodpro>$12%C% cC%proveedocodpro>&12#)pr_cambio_etapa(4%4C F/ T5 T6 ~%C C  T5 T6 F >-5%57 >76 Z>7 NO COMENZADA>9-5F/ ~0%CCZC/Zprod_estestadoDF,>/ / !/!/"/"#/#%/%:/'/()/) rprod_est- !"#%:)/// /!//"/#/%/'/(/)FC pr.prod=xprod; C-<C prod=xprod=%C tmp_arts_prodm QF% #)  #>sys_procesandoBU@XPRODXFORMULA PROD_PENDXREGSYS_MXTMP_ARTS_PROD TMP_ARTS_PROD ARTS_PRODP_LOCALCODIGOBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUXCANTIDADP_PR_UGARTICULOS_LLENARLISTADOSPRODESTADOFPINICIOFINNOTA CANTIDAD2COD_PRO1NOMBRE1COD_PRO2NOMBRE2TIEMPO_DTIEMPO_HPLAZOHORASFORM_ESTPROD_ESTESTFABFORMULA CUR_ESTADOCREAR_ETAPA_POR_DEFECTOPROVEEDONOMBREPR_CAMBIO_ETAPAXRESXESTXESTDDESTFABFORPRODUCCIDEMORA SELECCIONARPROCESAR_PRODUCCIONPROCESAR_ESTADOS SP_OCULTARSYS_PROCESANDOTC T%xT<<TC< <  8H TCCZ das T1 da 2T<<TC< < 8H+ r4TCC 6CCZ horas ,TCC 61 hora 2)T<<<<TC< 8H _ U6TCC 6CCZ minutos 2_T ~T<<TC< <  8Hc TCCZ das T1 da  > T 2cTMenos de 1 daTC< < 8BUXDEMORA XDEMORATXTXINICIOP_PR_ETAPAS_MEDIDAPLAZOXDIASXHORASXMINUTOS@ #TC  6TC6H^51  NO COMENZADA  B1  NO COMENZADA  BS  NO COMENZADA  NO CERRADA  C . BS  NO COMENZADA  NO CERRADA  C  BI  NO COMENZADA  NO CERRADA C  B$ C    B  " B 25 BBU XDEMORAXPLAZOP_PR_ETAPAS_MEDIDADEMORAPLAZOP_PR_ETAPAS_PLAZOPENDDESTFABP_PR_ATRASO_COMIENZOFINESTFAB MAXESTFAB 4H zTi AND pend and destfab=[NO COMENZADA] and iif(p_pr_etapas_medida=0,demora/24,demora)<=p_pr_atraso_comienzo 6zTi AND pend and destfab=[NO COMENZADA] and iif(p_pr_etapas_medida=0,demora/24,demora)>p_pr_atraso_comienzo T٨ AND pend and !(destfab=[NO COMENZADA]) and !([NO CERRADA]$destfab) and iif(p_pr_etapas_medida=0,demora/24,demora)<=iif(plazo<=0,p_pr_etapas_plazo,plazo) and empty(fin) T٨ AND pend and !(destfab=[NO COMENZADA]) and !([NO CERRADA]$destfab) and iif(p_pr_etapas_medida=0,demora/24,demora)>=iif(plazo<=0,p_pr_etapas_plazo,plazo) and empty(fin) EdTS AND pend and !(destfab=[NO COMENZADA]) and !([NO CERRADA]$destfab) and !empty(fin) ?T. AND pend and !empty(fin) and estfab=maxestfab T AND !pend   T AND pend and (nT](destfab=[NO COMENZADA] and iif(p_pr_etapas_medida=0,demora/24,demora)>p_pr_atraso_comienzo)T٠ or (!(destfab=[NO COMENZADA]) and !([NO CERRADA]$destfab) and iif(p_pr_etapas_medida=0,demora/24,demora)>=iif(plazo<=0,p_pr_etapas_plazo,plazo) and empty(fin))\TK or (!(destfab=[NO COMENZADA]) and !([NO CERRADA]$destfab) and !empty(fin))7T& or (!empty(fin) and estfab=maxestfab)T)BUXFILTROXVAL T,listadosF >FG((estadoEC ZC Z%C4@F> Cf%C T T > > <6> C  NO CERRADA FALTAN ETAPAS6 F> NO COMENZADA T TC > >%C FG((codpro EF>F%C dFG((codpro EF>F>CBUXDESCR ART_DESCRLISTADOS PROD_PENDCODIGOBULATRDESCRFORM_ESTESTADOFORMULAESTFABDESTFABFINXDEMORA XDEMORATXT FN_DEMORAINICIODEMORA DEMORATXT MAXESTFABFECHACOD_PRO1PROVEEDOCODPRODPROV1NOMBRECOD_PRO2DPROV2NESTADO FN_NESTADOp9sys_procesandoSeleccionando producciones%C prod_pend1fFQC Suspendo?aupdate prod_est set demora=(iif(empty(prod_est.fin),datetime(),prod_est.fin)-prod_est.inicio)/60/60 from prod_est, producci pr where pr.prod=prod_est.prod and pr.pend and &xfiltro 1select pr.prod, pr.codigo, pr.atr, pr.bul, pr.descr, pr.fecha, pr.cantidad-pr.real as cant_ori, pr.cantidad as cantidad, .f. as check , .f. as error , cc.formula as formula , nvl(prod_est.estfab, 00) as estfab , 00 as maxestfab , space(40) as destfab , nvl(prod_est.cod_pro1, space(6)) as cod_pro1 , nvl(prod_est.cod_pro2, space(6)) as cod_pro2 , space(40) as dprov1 , space(40) as dprov2 , pr.pend as pend , nvl(prod_est.inicio, dtot({})) as inicio , nvl(prod_est.fin, dtot({})) as fin , empty(nvl(prod_est.fin, dtot({}))) as pendiente , 0000000000.00 as demora , space(40) as demoratxt , 0 as nestado , nvl(prod_est.demora, 0000000000) as dem , bi.linea as linea , bi.grupo as grupo , nvl(prod_est.plazo,0000000000) as plazo from producci pr left outer join prod_est on prod_est.prod=pr.prod left outer join form_est fo on str(pr.formula)+str(prod_est.estfab)=str(fo.formula)+str(fo.estado), ccformul cc, bienes bi order by pr.prod, prod_est.estfab where !pr.multiple and pr.formula=cc.formula and cc.codigo=bi.cod_ins and &xfiltro into table (p_local+"\tmp\prod_pend1") readwrite BUXFILTRO SP_MENSAJESYS_PROCESANDO PROD_PEND1SYS_MOSTRAR_SCREENx6sys_procesandoProcesando produccionesFT ~K%% C%<F^(F_ F-F TT CT C T  T  T  TTCXTCX T- T % =H9 CC  C C O T T  T  T  T  T T C  T T  T  T  T TCXTCX 29T CT C T  T TCXTCX Ta G%m CBUXINICIAL SP_MENSAJESYS_PROCESANDO PROD_PEND1XOLDPROD FINALIZAR ARR_PROD_PEND PROD_PENDXINICIOXFINXESTFABXMAXESTXDEMXPLAZOXMAXPRO1XMAXPRO2XSALTEOESTFABINICIOFINPLAZODEMCOD_PRO1COD_PRO2-F ~" CBUXFILTRO PROD_PENDPROCESAR_ESTADOGFSG((G( CaC.t. CBU PROD_PENDPROCESAR_PRODUCCIONPROCESAR_ESTADOSPROCESO_ARREGLOS+o prod_pend cur_arr_1TTODOS T~COTTCf T%C cur_arr_1FQco* prod_pend Q Q C  prod_pendQ Q C qTTODOS~COiTCOCfTCNBUDISTINCTDESTFAB PROD_PEND CUR_ARR_1 ARR_ETAPAZXMAX_ARR_ETAPADPROV1NOMBRECOD_PRO1COD_PRODPROV2COD_PRO2Q ARR_ETAPAPXMAX_ARR_ETAPAPZLrform_estETAPA POR DEFECTOBUXFORMULAFORMULAESTADODESCRHORAS finalizar cambiar_etapa fn_demora fn_nestado filtro_etapaprocesar_estadoq seleccionar#procesar_produccion)procesar_estados0.procesar_seleccion.proceso_arreglos/crear_etapa_por_defectoE1AA!A!AAAAAAAAA!A!AAA"qAAqAAsrHuaQTrAB2r9tB3rrAAAQA bsrQArAAB"  C!A!AARqAAs1Arr; ABrrBArAQAB4211!Aq1A1A11aAR11!1ArBB2111AAB2111 1 1B111 q!AB2rrqq!abBqBRqqArRqqAtB3qqAArs 0SD3rdu2BBrqrQrCraaA#haBCABBA2rtBB3raaB31QAqAA72AK2qA1DxI!c!D&]&- .m393;EE7;CCDDF FJ#&JJP%x&)&euVkMqG_ G~(clases<7TC abm_formulasN!TCN- C- BUCLASES POABMFORMULAS SOLO_LECTURAACCESOSHOW ges%Cformulas <FQformulas%Cclientes qFQclientes%Cccformul FQccformul%Catributo FQatributo%Cbultos F Qbultos%Cstock ;F Qstock%Cdeposito pFQdeposito%Cbienes FQbienescodins%Cmaquinas FQmaquinascodigo%Cmaq_grp 'FQmaq_grpcodigo%Cform_maq \FQform_maq%Cmedidas FQmedidas%Cform_res FQform_res%C historial FQ historial%Cform_pas 0FQform_pas%Cform_est eFQform_est%Cusuarios FQ \usuariosFBUGESFORMULASCLIENTESCCFORMULATRIBUTOBULTOSSTOCKDEPOSITOBIENESCODINSMAQUINASCODIGOMAQ_GRPFORM_MAQMEDIDASFORM_RES HISTORIALFORM_PASFORM_ESTP_SYSTEMF K(%FO>C -U TMP_HISTORIAL XMAXHISTORIALID_TIPOFECHAUSR PUB_INDEXDESCRCL_NOMNOTAREADONLY CTC]TC]TC]TC]TC]TC]TC]BaUTHIS TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 TMP_TABLA_5 TMP_TABLA_6 TMP_TABLA_7|o>SSSNcN  C U ACTIVASTK CIE_PARCIACIERREMAXBATCHPE TOX_DESDE TOX_HASTA MERMACTRLEST_ACTINICIALIZAR_HISTORIAL  CUALL TMP_HISTORIALINICIALIZAR_HISTORIAL0 %C tmp_formulas7FQ%C tmp_form_calcFQ%C tmp_form_pasFQ%C tmp_form_estFQ%C tmp_form_maqFQ%C tmp_form_resFQ T  ZoformulasCXQ CXQ  1\tmp\Q\tmp\#)T T+C+ %T TT >%C  T T T-4listados% >  "> ARTICULO INVALIDO !!!%C  T T T-4listados%d >  "> ARTICULO INVALIDO !!!H)& Cc6 }(+CN2 (T!r tmp_formulas#)Foform_cal !"#$CXQ%C$d=Q&Q'( 1\tmp\)Q\tmp\) T* ~T*C*D~:T** >*>%D/H#>%V/D#>%Txt#>%Enc#>%Blc#+CN2 T** > >*& #)F^oform_pas,C(XQ-./ 1\tmp\0Q\tmp\0& #6 T+CN2 T > >F~C, dF1G((ESTADOECZC,ZF>-1 #)FRoform_est, 21 ,1\tmp\3Q\tmp\3& ,,#6%CN #){Foform_maqQ4XmaquinasQ5 594:Xmaq_grpQ6 694<4C4#C5 CX C6 CX6Q 4 =1\tmp\>& ==& <<#& ::#Q\tmp\>#)FBoform_resC #)Fo historialusuariosAB Q aQCADAEC Z AFB9 1\tmp\GQ\tmp\GHq>HDHEC ZHICHFJH KHLHMNHC-%CN #6 H ) #)UOXPASO XORDENCOMXMAXORD TMP_FORMULAS TMP_FORM_CAL TMP_FORM_PAS TMP_FORM_EST TMP_FORM_MAQ TMP_FORM_RESXXXXCODIGODESCR DESCRSUSTFORMULASFORMULAPASOORDENP_LOCALTHISFORM TMP_TABLA_1XPASOPCODCOMPXDESCRXCODFULL XOK_CODIGOARTICULO_FULL_DESCRLISTADOSATRCOMPBULCOMPCODSUSTATRSUSTBULSUSTORDENADODESDEHASTATIPORESULTATIPO_T RESULTA_TCOD_CLIFORM_CAL TMP_TABLA_2XORDENFORESTADODESTADOTEXTOFORM_PAS TMP_TABLA_3FORM_ESTHORAS TMP_TABLA_7FMMQMGFORM_MAQMAQUINASCODIGOMAQ_CODMAQ_GRPGRP_CODPREDET TMP_TABLA_4FORM_RES TMP_TABLA_5 HISTORIALUSUARIOSREADONLYID_TIPOIDUSR TMP_TABLA_6 TMP_HISTORIALFECHA PUB_INDEXCL_NOMNOTAABMTIPOABMjTTF%iG((codins E% SG+(proc_stk/T C abmccformul %C C B-% S=F+> N qformulasF>QF3\tmp\  #\tmp\.dbfqform_calF C>>D/H>V/D>Txt>Enc>Blc> !Fwrform_cal"# $%o tmp_form_cal"# $%$FQ!\tmp\&.*qform_pasF(C)>F'Irform_pas*+)o tmp_form_pas*+)F(Q!\tmp\,.*qform_estF.C>F-Irform_est*/o tmp_form_est*/F.Q!\tmp\0.*F13#)p tmp_form_maq2COp tmp_form_maqF1Qqform_maqF3\tmp\4!\tmp\4.*F5 C>qform_resF6\tmp\7F5Q!\tmp\7.*F8 -9 [r historial:;<=>?CZC@8>AQUBXID ABMCCFORMULFORMULAXCODCODIGOBULATRBIENESCOD_INSCODINSACTIVAPROC_STKXMSGACTUALIZAR_ARTICULO_FACTORMENSAJECCFORMULFORFORMULAS TMP_FORMULASALLP_LOCALTHISFORM TMP_TABLA_1CANTIDADCODCOMPOBIEDATA_CODIGO_VACIOFORM_CAL TMP_FORM_CALDESCRTIPOTIPO_TRESULTA RESULTA_TDESDEHASTAORDENCOD_CLI TMP_TABLA_2FORM_PAS TMP_FORM_PASTEXTOESTADOPASO TMP_TABLA_3FORM_EST TMP_FORM_ESTHORAS TMP_TABLA_7 TMP_FORM_MAQPREDETFORM_MAQ TMP_TABLA_4 TMP_FORM_RESFORM_RES TMP_TABLA_5 TMP_HISTORIALREADONLYID_TIPOIDFECHAUSRNOTAABM PUB_INDEXTIPOABM openfilesinicializar_historialDinit2inicializar_registro3clonar_inicializar' hijas_abrirp hijas_guardarTTFrmulasTccformulThlpTformula T- T7TdescrT DescripcinT descrT C T  T formulaT FrmulaTformulaTN T#Tcodigo+" "+atr+" "+bulTArtculoTcodigoTC TTactivaTP TTCT abmformulasTformulaTformulas TaTC]TC]T C]T!C]T"C]T#C]T$C]T% tmp_formulasT& tmp_form_calT' tmp_form_pasT( tmp_form_maqT) tmp_form_resT* tmp_historialT+ tmp_form_estT,formulasT-form_calT.form_pasT/form_maqT0form_resT1 historialT2form_est     U3 ANCHO_TOTALTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3 FORMULARIOIDXCLAVEHIJAS1DEV TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 TMP_TABLA_4 TMP_TABLA_5 TMP_TABLA_6 TMP_TABLA_7 TMP_ALIAS_1 TMP_ALIAS_2 TMP_ALIAS_3 TMP_ALIAS_4 TMP_ALIAS_5 TMP_ALIAS_6 TMP_ALIAS_7TMP_ORIGINAL_1TMP_ORIGINAL_2TMP_ORIGINAL_3TMP_ORIGINAL_4TMP_ORIGINAL_5TMP_ORIGINAL_6TMP_ORIGINAL_7 abm_formulashlpabm2 arqB2AAAAArAAqAAAAAAAAAqArA2q1qQA12111111q245qAAqAAqAAqAAqAAqAARaA"C!AA"C!AABA2AQ4!ABA2QAQQ1QAr1qqrAR%Q"AYw Q$1QAQQ"QQA4sA"!qAAsqArBr11rrqrArrrArrrAtAQrArrqrAtB6RQA!!AAA1Q11AQRQQQQaQ 1 JQmmZ dgYj''6UL6% o BzGM%Cp_DevbUw C a Ta Ta( c:\sistema\system\data\1\ges.dbc G(9 G+(listados#pr_cambio_de_componentesT C] a.f.T CXT CXTCXTCXTCXTCX pr_cambio_de_componentes"%Ctmp_cambio_codigoFQBUSETS DEY_FUNC2P_DEV P_SUSPENDC ACTIVEFORM DATASESSIONIDLISTADOS OPEN_FILESPR_CAMBIO_DE_COMPONENTESXARCHCONSULTAXCODIGOXATRXBULXCODCOMPXATRCOMPXBULCOMPTMP_CAMBIO_CODIGO%Cformulas .Qformulas%Cccformul `Qccformul%Cbienes Qbienes%Catributo Qatributo%Cbultos QbultosBUFORMULASCCFORMULBIENESATRIBUTOBULTOSz)sys_procesando Procesando%L"%Ctmp_cambio_codigotFQh1\tmp\LC C C C N  CCCCCQ\tmp\#%Ctmp_cambio_codigo1~FQselect f.codcomp, f.atrcomp, f.bulcomp, f.formula, c.codigo, c.atr, c.bul, iif(c.est_act=1,"SI", "NO") as est_act, iif(c.activa="S", "SI", "NO") as activa from formulas f, ccformul c where f.formula=c.formula and &xfiltro into table (p_local+"\tmp\tmp_cambio_codigo1") SF&\tmp\tmp_cambio_codigo1 ~ T#listados F> #)#%Ctmp_cambio_codigo1VFQsys_procesandoBUXARCHXINIXFILTRO SP_MENSAJESYS_PROCESANDOTMP_CAMBIO_CODIGOP_LOCALTILDECODCOMPATRCOMPBULCOMPDESCRFORMULACODIGOATRBULEST_ACTACTIVATMP_CAMBIO_CODIGO1XDESCR ART_DESCRLISTADOSSP_OCULTAR_DEFINITIVAMENTE T"trsacformulas%}%TPr_cambio_de_componentes"TCambio de componentes T T T$trsac TT C T$ trsac%   l.CSe han realizado CCZ !!!  T  T BUAAALOCK_GTRSACTRAN_PRGTRAN_TXTXCOMPROBXCAUSABEG_TRAN XREEMPLAZOSXOK TRANSACCIONEND_TRAN TTS_ERRORMENSAJETTS_IDkF~[TGTCCC  C6CC  C6GTCCC  C 6CC  C 6S>        R Anterior:  Nuevo:  BUTMP_CAMBIO_CODIGOTILDE XREEMPLAZOSXOLDXCODCOMPXATRCOMPXBULCOMPXNEWXCODIGOXATRXBULFORMULASCODCOMPATRCOMPBULCOMPFORFORMULAUSER_LOG PUB_INDEXTRAN_PRG open_filesconsulta reemplazoaH transaccionx BQBA"2"qAAB2AAAA!AAA!AB3"qAA B2qAAgrb3rAS2qAAB2#2R!AAAAB2srq;#B11/[ JOr e b%MbWM4 #4 TC% d"TFORMULA DE PRODUCCION C G+(Dey_FuncG+( pr_ordenesG+(listadosG+( pr_funciones CCForm_CalFormulaCForm_PasFormula"%C xgenprod_numbL7 T T T TT T T TT T T T%2 TTT T TPr_rpt_formulas(!%!.C" TC$ T# T$Xoform_cal%Q&Q'aQ()*+,.$ T/0(C$%C0$ T$0T$0T$0T$0-T$0T$0T$0T$0 H j C0$LT$0CCC0$1 - CCC0$1 C0$NT$0CCC0$1 +/- CCC0$1 C0$.#T$0CC0$ 2jT$0T$0+T//C0$C0$C  T2 T3 T4F5~. T44,T22C4Z) C56C  C7 ) T%C"% T8 T9 T:C;$Xoform_cal%Q&Q'aQ()*+,.$ T/0(C$ %C0$ T$0T$0T$0T$0-T$0T$0T$0T$0  H1a  C0$?T$0CCC0$Z - CCC0$Z C0$AT$0CCC0$Z +/- CCC0$Z C0$% #T$0CC0$ 2a T$0T$0+T//C0$C0$C  T2 T3 T4F5~. T44,T22C4Z) C56C  C7BU<XFORMULA XPCANTIDAD XPDEPOSITOXLOTEXFECHAXTITXPDEPING XGENPROD_NUMXPARAMSETSDEY_FUNC PR_ORDENESLISTADOS PR_FUNCIONES OPEN_FILES CHECK_OPENEDZTITULO ZARTICULOZFORMULAZFECHA ZCANTIDAD ZBATCHMIN ZBATCHMAX ZCIERREAUTO ZDEPOBAJAZDEPOINGXTIPOIMPXCODIGOOBIEDATA_CODIGO_VACIOXBULXATRPR_RPT_FORMULASXRESPR_GET_FORMULACANTIDADZARR_CALDESCRVALCTRL RESULTADO ES_VISIBLEDESDEHASTATIPORESULTAFORM_CALFORMULAZCAL_TXTNITSTR_FMTZPAS_TXTXSEPARAXITFORM_PASTEXTO IMPRESIONCODIGOBULATRPR_COMB_BUSCARQG+(listadosTCh1\tmp\NCCCC N  C  C C CN CCCNQ\tmp\ CFTpr_formula.frxlistados T T T TT.t.C Suspendo?a?listadosaaaaaFQ \tmp\.dbfBULISTADOSXARCHIVONEWFILEP_LOCALART_NUMART_CODART_ATRART_BULART_DESART_CANSUS_CODSUS_ATRSUS_BULSUS_DESSUS_CANTIPODEPOSITOTEMPERATCOPIA_NTMPOUTDETALLE XFORMULARIOFORMULARIO_PERSONALIZADOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOSSYS_MOSTRAR_SCREENIMPRIMIR_FORMULARIOG+( pr_funcionesCF TT[ CC C C ] C  C S C 6 C S C 6C T *T[ CCZ ] C 2=TC*#TC@z 999,999,999.99_#TC@z 999,999,999_#TC@z 999,999,999_'TCSSiNo6"TC  6*T!C No definido"6FG((codins!%C xForm_AliasbCHT$Formulas }%C$ yT$Formulas%C$fCFormulasfF%G((formula E T' F$~$+C+ &  F$ ^J(T''C()(*(+ZT,C  C SC  6C S C 6C(-(.(/ZT0C  C SC  6C S C 6F%F1O>2'3%)4%+5%*6,7%O>2'8%-9%/:%.;0<%=*>>%?%@%@F%BUA PR_FUNCIONESPR_COMB_BUSCARXCODIGOXBULXATRBIENESZTITULOXTIT ZARTICULODESCR ATRIBUTOSATRIBUTOBULTOSPR_GET_FORMULAXFORMULAXCOEF XPCANTIDADCANTIDADZFORMULACCFORMULZFECHAXFECHA ZCANTIDAD ZBATCHMINMINBATCH ZBATCHMAXMAXBATCH ZCIERREAUTOCIERRE ZDEPOBAJAXPARAMDEPOSITO XPDEPOSITOZDEPOINGXPDEPINGCODINS XFORM_ALIASFORMULASFORMULAXITMXOBJCODCOMPBULCOMPATRCOMPXDESCR1CODSUSTBULSUSTATRSUSTXDESCR2TMPOUTART_NUMART_CODART_ATRART_BULART_DESART_CANSUS_CODSUS_ATRSUS_BULSUS_DESSUS_CANCANTSUSTTIPOTIPO_APLTEMPERATY4%C8:BCZ RBCZUXNUMXDIGXDEC impresion DetalleCstr_fmt22!A!A!a"A124q1AABqAAAb4q1AABqAABBB4"qsqstAA3aasR111q!rQ!QAAqArvQsAC3A1}VLkS%oD+OM!%Cmaq_grp 6FQmaq_grpF(%MC@Debe, previamente, crear un grupo para contener las mquinas !!!B-QG_ G~(clases<7TC abm_maquinasNTCU- BBUXCOUNTMAQ_GRPMENSAJECLASES POABMMAQUINAS SOLO_LECTURAACCESOSHOW ges%CMaquinas <FQMaquinas%Cmaq_grp oFQmaq_grpFBUGESMAQUINASMAQ_GRP4%CxCodigobNq% m/C Debe estar en ser mayor que 0!!!xB-BaUXCODIGO openfilesusr_vld_codigo<TMaquinasT TTMaquinasTMaquinasTMaquinaT descrT descrT codigoT codigoT hlpT abmMaquinas T- TF TTcodigoTcodigoTCdigo TTgrupoTgrupoTGrupo U DOS_TABLA DOS_COPIARP_ESPEJA_MAQUINASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1ANCHO2CLAVE_BUSQUEDA2ORDEN2TITULO_COLUMNA2 abm_maquinashlpabm2qAq1qAAbrqQBD2AArA01q1qAAr5SARQA!!21111!!!<#zQ,2%b0Z+O NoG_ G~(clases<7"TCabm_maquinas_grupoNTCU- BBUCLASESPOABMMAQUINAS_GRUPO SOLO_LECTURAACCESOSHOWL ges%CMAQ_GRP :FQMAQ_GRPFBUGESMAQ_GRP~4%CxCodigobCp%Cl0C!El cdigo no puede estar vacio!!!xB-BaUXCODIGO openfilesusr_vld_codigo7^TMAQ_GRPT TTGrupos de MquinasTMAQ_GRPTGruposT descrT descrT codigoT codigoT hlpTabmMaquinas_Grupo T- TF TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_MAQUINAS_GRUPOP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1abm_maquinas_grupohlpabm2brq"QBD2ArA1qqAAr5CAA1!!21111< "x6=C!%G0dÛ+O7NiG_ G~(clases<7TC abm_OperarioNTCU- BBUCLASES POABMOPERARIO SOLO_LECTURAACCESOSHOWN ges%COperario <FQOperarioFBUGESOPERARIO4%CxCodigobNq% m/C Debe estar en ser mayor que 0!!!xB-BaUXCODIGO openfilesusr_vld_codigo.QTOperarioT TT OperariosTOperarioTNombreT descrT descrT codigoT codigoT hlpT abmOperario T- TF TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_OPERARIOP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_Operariohlpabm2brqQBD2ArA1q1qAAr5SAbQ1!!21111< ?=!  F   0000 %>:( @ڶڶڶڶ۷۸ܻܺݽݽ߿ʩԬԬԬԬ֮װزٴٶڷܺݼ޿޿ͫ4/0¡ĦŨƪǫŨ3235,.ުުޫޫޭޮޯޯ޲޳޴޵޶޷Ạ322İ3&)xaybydze{g|i|i}kmopqsu|301˭ήӾƶѴԿd(nK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(p4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ+sW֬%rX֬,vRժSժ.skkkkiiiiiiiihhhhhhhv0snnnnllllllllkkkkkkkv3‘xqqqqppppppppooooooou3Ĕv6٨6٨5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛6צ6٨v)Ò#Ϝ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx Κ$Ϝ!Ɛ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐԫԬԬԬԬԬԬԬԭխխխխխˤӪӪԫԫԫԫԬԬԬԬխխխխȢӪӪԪԫԫԫԬԬխխխծ֮֮ĝԪԫԫԫԬխխխծծ֯֯֯֯œ֯֯֯װװװװװײسسسٴٴ뾘װװسسسسٴٴٶٶٶٶڷڷ껖۸۹۹۹ܻܻܻܻݼݼ޾޾޿޿跒ݼݼ޾޾޿޿޿綐岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌( @ ~ڶڶڶڶ۷۸ܻܺݽݽ߿ʩԬԬԬԬ֮װزٴٶڷܺݼ޿޿ͫ 񶶶4/0¡ĦŨƪǫŨ323I5,.ުުޫޫޭޮޯޯ޲޳޴޵޶޷Ạ322򗗗l3&)xaybydze{g|i|i}kmopqsu|301d(nK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(p4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ+sW֬%rX֬,vRժSժ.skkkkiiiiiiiihhhhhhhv0snnnnllllllllkkkkkkkv3‘xqqqqppppppppooooooou3Ĕv6٨6٨5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛6צ6٨vp)Ò#Ϝ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx Κ$Ϝʖ !Ɛ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐԫԬԬԬԬԬԬԬԭխխխխխˤּ2ӪӪԫԫԫԫԬԬԬԬխխխխȢӧӪӪԪԫԫԫԬԬխխխծ֮֮ĝݲԪԫԫԫԬխխխծծְ֯֯֯œ޴ְ֮֮֯װװױױײزسسشش뾘"ױױزززسٴٴٵٶٶٶڷڷ껖$۸۹۹۹ܻܻܻܺݼݼݾ޾޿޿跒&ݼݽ޽޾޿޿޿綐(岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌+(0`ƣƣƣƣƣƣƣƣƣƣǤǤǤǥǥǥǥȧȧȧȧȧȧƟڶڶڶڶڶڶ۸۸۸ܺܺݼݼݼ޾޾ʩĝԫԫԫԫԫ֯֯֯ײײٴڷڷڷܺܺݼ޾޾޾޾ͫxxxĚФФФФҦҦҦԫԫԭ֯֯ײٴٴڷܺܺܺݼ޾аxxx4/0귏¢¢¢ĦŨƪƪƪɭŨ322˾6+.ުުުުެެެޭޮޮޯޯޯ޲޳޳޴޵޵޶޶޸Ạ322İ6+.Ӟ~ϛ{ϛ{Ϝ}Ϝ}Ϝ}ϝϟϟϟϠϠϢϢϣϣϥϥϥϧϧϧխ322Ƴ3&)hxaycycyc{f{f{f|i|i|i~l~l~looorrsuu|301ˮήҜ²2sϳԾnҳԾ\-k)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iJd'nVҨK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ&pG2sXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ)l,p]ׯ)i&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q)i]ׯ'n+sX֬&q&qX֬&p,vRժRժ$t,{-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē&z.skkkkkkiiiiiiiiiiiihhhhhhhhhhhv*0smmmmmmllllllllllllkkkkkkkkkkkv.2roooooooooooooooooommmmmmmmmmmv22xrrrrrrooooooooooooooooooooooov3Ó3Óv6٨6٨6٨5ҡ5Ν5Ν5Ν5Ν5Ν5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5̛5̛5̛5̛5̛6צ6٨6٨v2ƕ/ē\.ԣ/ē/ē)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i:}.Ѡ.ԣS-Ɣ+ē$Ϝ Κ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx"Ȕ Κ$Ϝ#Ï!ƐƐ##쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘HxƐƐ`````Ş̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̤̥̥̥ƟM{````Ȣԫԭԭԭԭԭԭԭԭԭԭԭԭխխխխխխխխ̤ǟԫԫԫԫԫԫԫԫԫԭԭԭԭԭԭխխխխխխȢŜԫԫԫԫԫԫԫԫԫԫԭԭԭԭԭԭԭխխխխƟ›ԫԫԫԫԫԫԫԫԭԭԭլխխխխխխ֯֯֯ž›ԫԫԫԫԫԫլխխխխ֯֯֯֯֯֯֯֯֯֯›쿘լլլլխխ֯֯֯֯֯֯֯֯֯زززززز֯֯֯֯֯֯֯֯زززززززززٴٴٴٴ쿘껖ززززززززٴٴٴٴٴڶڶڶڶڶڶڶڶ껖鹔زٴٴٴٴٴڶڶڶڶڶڶڶڶܺܺܺܺܺܺݼ鹔跒۸ܺܺܺܺܺܺܺܺܺܺݼݼݼݼ޾޾޾޾޾޾跒綐ݼݼݼ޾޾޾޾޾޾޾綐洎洎岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌(0` ƣƣƣƣƣƣƣƣƣƣƤǤǤǥǥǥǥȦȦȦȧȧȧŠڶڶڶڶڶڶ۷۸۹ܻܺݼݽݽ޾߿ʩĝԬԬԬԬԬ֮֮װױزٴٶٶڷ۹ܺݼ޾޿޿ͫ;aaa~Ȅッ傂偁∈iiiĚФФФФѥҦҧөԫԭկְֱسٴڷ۹ۻܻܼݾаlll돏⍍卍卍㑑ጌmmm5 񶶶4/0귏¡ãĦŨƩƪǫɭŨ323I5,.߫ުުުޫޫެޭޮޮޯޯް޲޳޳޴޵޵޶޷޸Ạ322򗗗l6*-Ӟ~ϛ{ϛ{ϛ}Ϝ}Ϝ~ϝϞϟϟϠϠϢϢϣϤϥϥϥϦϨΨխ4223&)hxaybycydze{e{g|i|i|i}k~lmoppqrsuu|301²1rn\-k)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i+jJd(nVҨK̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠K̠VҨ(pG4tXԪ)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)iXԪ)l,p]ׯ)i&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q&q)i]ׯ&o+sW֬%r%rX֬%p,vRժSժ$t,{-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ-Ɣ+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē+ē&z.skkkkkkiiiiiiiiiiiihhhhhhhhhhhv*0snnnnnnllllllllllllkkkkkkkkkkkv.2sppppppoooooooooooommmmmmmmmmmu23‘xqqqqqqppppppppppppooooooooooou3Ĕ3Ĕv6٨6٨6٨5ҡ5Ν5Ν5Ν5Ν5Ν5͝5͜5͜5͜5͜5͜5͜5͜5͜5͜5͜5̜5̛5̛5̛5̛5̛6צ6٨6٨v2ƕʹ0ē\.ԣ/ē/ē)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i)i:}.Ѡ.ԣS-Ŕp)Ò#Ϝ Κ**岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌Hx"Ȕ Κ$Ϝ#Ïʖ !ƐƐ##뽖쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘쿘뽖HxƐƐл```^^Şˤˤˤˤˤˤˤ̤̤̤̤̤̤̤̤̤̤̤̥̥̥ƟM{````$-.ʢԫԬԬԬԬԬԬԬԬԬԬԭԭխխխխխխխխˤּ2ǟӪӪԫԫԫԫԫԫԫԬԬԬԬԬԬխխխխխխȢӧŜөөөӪӪӪԪԫԫԫԬԬԬԬԬԬԬխխխխƟӯ›ӪӪӪԪԫԫԫԫԬԬԬլխխխխծծ֮֮֮ĝݲԪԫԫԫԫԫԬխխխխծծծծְְ֯֯֯֯œ޴쾘ԬԬլլխխְְְְ֮֮֮֯֯ױױױױײײ߷ 뽖ְְ֮֮֮֯װװױױױױײزسسسشششٵ뾘"껕ױױرززززسٴٴٴٵٵٶٶٶٶڷڷڷڸ껖$鹓سٵٵٵٵٵڶڷڷڷڷڸڸ۸۹ۺܼܺܺܺܺ鹔%跑۸۹۹۹۹۹ܻܻܻܻܺݼݼݼݽݾ޾޾޿޿޿跒&結ݼݽݽ޽޾޾޿޿޿޿綐(泎洎)岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌岌+ ( @{}{Z]Z}{,)),)JMJ<9kmk9<9]Z mk                   !!!!!!   """"""""""""""""""""""" %061mZ6XnNHG(9 te_cobranza%Cte_anu PQte_anu T-F#) T T T  T  T a T C$T CX Ta te_anu_rec(% = T T#  -BU ACTIVEFORM DATASESSIONID OPEN_FILES TE_COBRANZATE_ANUCHQCONSXANULXCOMPXPVXRECINGXENC XFEC_COMPXCOD_CLI XRESULTADO TE_ANU_RECXERRXMSGANULAR_COBRANZA/%F #;TC@z 9999,999,999_CPRRA6 Ta T?%C C a6C L C a6  T -T CCa6 Ta% F  T T% F # T TR,: Aguarde... C C C C%  C  T-% L  C T-  T- BUXENCVEN_OPERREGIS XCOMPROBANTEXCOMPXRECING XRESULTADOXMSG FECHA_VALIDAFECHAXANUL XFEC_COMPHAYING XANULABLEANULABLETRSAC REG_RECIBOSXTOTALXMONEDAMONEDAXCAMBIOCOEFIC REST_VEN_OPER REST_CCCLIEANULA_IMPUESTO_AL_CHEQUE REST_CCCOBP_ASIDIAXASIDIA ANULA_ASIDIA ANUL_LOGICAH RMG((reciboG(R E A G((operG(A EG(BC4UXRECINGRECIBOCAUSAXCOMPOPERO45,%C$CC$C %CY Ta ?Balance cerrado, la fecha del comprobante debe ser posterior a CC* !!! T- ?]T&El comprobante debe estar en el rango CC$C* y CC$C* !!! T- BUXFECHAAUXOCIERRES CIERRE_COBDES CIERRE_COBHASSYS_CIERRE_BALANCEXMSG5F%C'Q.T!Alguien ya anul la operacin !!!B-F,%CX0  G((codcli E%C4 HT;El Cliente del recibo ya no existe ms. No puede anular !!!B- T TFG((comprob2T C @z 9999,999,999_ CZ E T - T- T T)+C+   CZ  TaT TTCZ TCO$% C } E%C4d T a y T -  T aG((comprob #H$% 0  <ZTMNo se puede anular, est mal registrado en CCCLIE o no est bien indexado !!!B-Tc T T-F TCO Ta/+C+  C RP6 >% Ta% 6T!"!#sys_comisiones!%C 2B-H #/+C+  C RP6 %DXL  T%&T'%(1 F)G((idcheqEC+ ZC,Z%C4 ^T-+%Ctmp_chq>Q..ocom_oper+-&<tmp_chqT El cheque CC+ @z 999,999_ C0% ya fue depositado en el comprobante C.DDE5C.LASC.XEX??666 C. !. No se puede anular el recibo!!!B- %1)2T-+%Ctmp_chqQ..ocom_oper+-&<tmp_chqT El cheque CC+ @z 999,999_ C0# fue transferido en el comprobante C.DDE5C.LASC.XEX??666 C. ". No se puede anular el recibo !!!B-%Ctmp_chqQ.FFH T% RTENo se puede anular, est mal registrado en alguno de los archivos !!!B-BaU3REGISVEN_OPERXMSGCLIENTESCOD_CLICODCLIACC_CCCACC_VENCCCLIECOMPROBXCXCOMPXRECINGOKREFOKACC1ACC2CAUSACUOTAIMPORTEXIXXREFREFCAUCUOREG11XTOTALHAYINGXVALIDA_COMISIONESRECIBO VOPERACIOAPLICP_CIE_COMISIONES XFECHA_COMISFEC_COMI VALIDAR_FECHASYS_COMISIONES XFEC_COMPFECHACAJ_PROTIPOCHEQUESIDCHEQNUMEROSUBNUMXNUMTMP_CHQCOM_OPERDES_VALCUENTACOD_CUEFG((comprob/TC@z 9999,999,999_CZ E T T)+C+  C Z T  BAT TTCZ TCO[ T >[ E>-%NUV% AR +> BAC ge01G((comprob #H% %T C T % T F>C@z 9999,999,999_ RC@z 9999,999,999_R c  !"#$%C@z 9999,999,999_RCZ&C]BU'CCCLIECOMPROBXCXCOD_CLIXCOMPXRECINGACC1ACC2COD_CLICAUSACUOTAN_DIASDIASFECHAIMPORTEXIXXREFREFCAUCUOREG11AAAADELANTOMARKEDP_EMPFN_CANCGE01ACCING N_COCIENTE N_ACUMULADOXNUMINXFECHAIFECREFMONEDAXMONEDACOEFICXCAMBIOIDIDU| T-F # T TYTCCRP  6@z 9999,999,999_CPRRA6 C/+C+ CRP  6  qF% 1TT,%R  A FG((cuenta EFHmY 1NFG((numero E+C+  HFG((idcheqEC ZCZ%C4C[ T >[ TaF+ 2Ct\S 'FG((numero E T-+C+  % Ta!H%>N F 2; 3O 2Y[ T > [TC ! - C"O#te_procs%&'() b T* T+ T, T--+>./01FHBU2CHQVEN_OPERREGISXASIDIAASIDIAXFECASIFECHAXIDXRECINGRECIBO VOPERACIOCOD_CLIXCOMPTIPO N_ACUMULADOCAJ_PRO DIF_VALOR N_COCIENTEAPLICCUENTASCUENTANUMEROCHEQUESIDCHEQSUBNUMAAACODIGOATRIBUTOCOM_OPERXENCDEBITADOXDETALLECLIENTESNOMBREDES_VALCONTROL_ANULACIONESTE_PROCSCOMPROBCAUSAHOYMONEDAMONEXTXCOD_CLIXFECHAIXNUMINACCINGASIENTOASIENTO2REFCAU)KrcccobC@z 9999,999,999_RaF>0 ANULADO ANULADORC@z 9999,999,999_   C$C3 $BUCOMPROBCAUSAFECHAANULADOXCOMP XFEC_COMPVEN_OPERCOD_CLIDES_VALDES_CLIERECIBOUSR PUB_INDEXHOYASIDIAMONEDACOEFICMONEXTFEC_COMID 5%Cejercon :FQejerconF-CT%C49%CdiariogF F,Q\C\diariogasiento%CconceptoF F-Q\C \conceptoasientoBU OKAAAEJERCONXFECASIDESDEHASTADIRDIARIOGP_PRIVASIENTOCONCEPTO}%Cejercon#FQ%CdiariogJFQ%CconceptorFQBUEJERCONDIARIOGCONCEPTO' 5FG((asiento E T-4+C+ C   G(( Ta > > H%F G((asiento E%C4% T'BUOKAAADIARIOGASIENTOXASIDIAXIDCOMPROBCAUCODIGOFECHAANULADOUSR PUB_INDEXCONCEPTO TTS_ERROR"qcccobBUCCCOBCOMPROBCAUSA XCOMPROBANTE*FG((comprob E%C4  IC@z 9999,999,999_L FG((asiento E+C+  HF G((asiento E+C+  HBU CCCOBCOMPROB XCOMPROBANTE AS_IMP_CHEINVEN_OPERCAUSAFECHADIARIOGASIENTOCONCEPTO 4 te_cobranza T T T -%F HH G((reciboG( R% T   T E H G((operG( A E TG(%C4p#%    T a l TT Comprobante CRCAJ6 CCZC C ?No puede anularse lgicamente un Recibo Provisorio aplicado !!!C .Dene anularlo fsicamente y luego lgicamente. % TVT Comprobante CRCAJ6 CCZ no encontrado !!!B  n TQT Comprobante CRCAJ6 CCZ invlido !!!%B%  T !TCFL6!TCRA6F TCO T T T T TT T TWTCCR 6@z 9999,999,999_CRRA6C4TCCR 6@z 9999,999,999_,T CRRA6CT! %j C" T#- T T$%8%trsac$clientesven_opercccliechequesdiariogconceptochqcccobcom_operte_anu w%trsac$clientesven_opercccliechequeschqcccobcom_operte_anu%$ T$G'trsac$ Te_anu_recAnulacin de cobranza %$}T#C(%#a T$ yT$ T$G)trsac$ Te_anu_recAnulacin de cobranza T* %# ;% )C+T Z %!! - %R% @CSe ha anulado el Recibo CC@z 9,999,999,999_+ ) % % @CSe ha anulado el Ajuste CC@z 9,999,999,999_+ < % 8 C2Se ha anulado la aplicacin del Recibo Provisorio CC@z 9,999,999,999_C HRecuerde que se anul nicamente la aplicacin, no el Recibo Provisorio.C ;Para anular el Recibo Provisorio debe repetir la operacin.+ T T%{ C,BU-XERRXMSGXANULXCOMPXPVXRECINGXSILENT OPEN_FILES TE_COBRANZAXENCVEN_OPERRECIBOCAUSAP_MULTIRECIBOSXCPBTOPERAPLICREGISXCOD_CLICOD_CLI N_ACUMULADO N_COCIENTEACCINGXNUMINXFECHAIXASIDIAASIDIAXFECASIFECHAXID VOPERACIOXCOMPROBXCAUSAXAPLICAPERTURA_DE_EJERCICIO XRESULTADOAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANTTS_IDMENSAJECIERRE_DE_EJERCICIO transaccion( busca_comprob fecha_validaaanulable rest_ccclief rest_ven_oper anul_logicaapertura_de_ejerciciocierre_de_ejercicioG anula_asidia rest_cccob"anula_impuesto_al_cheque"anular_cobranzan$b!ArQa1BB3qAtSAABAA3AAAa2qqAAA2qqqArqAAu!BAAAAAqAq1A2"qAABAqArqAbqAAArAArAAR!qAr2rBAAAbqAA1AA12aArQm CA2qqBArrAsAAArAAAAAqsaAAAABrBBBAAAAArAAA2rQ B3Aq"qAqABB2qAAqAAqAAB2rAaAAqAAAAB2A2vrAAArAAABA2i3q1A2Ba3s A1aABAA2AAAr1qB2A2, zA2q1AArBAAAAAAAB2AB1S*@ }M \ Sk!-!)G)R,Mt,2.eR./7s/1I41r1i1/4mL4OD%QqZ6XN2 G(9 $ te_cobranza C T T T Ta T C$T CXT CX T  T  T Tate_cob_modif_cpbt(% '% ?T F!TCRA6WTCCR6@z 9999,999,999_CRRA6CTT T T-& co_funciones% {7T*No se pudo abrir el ejercicio contable !!! T B- T!I"trsac!ven_opercccliediariogconcepto%! T!Q$trsac!Te_cob_modif_cpbtModificacin de Cobranza%!TC%% T! T! T!Q&trsac!Te_cob_modif_cpbtModificacin de Cobranza T' #BU( ACTIVEFORM DATASESSIONID OPEN_FILES TE_COBRANZAOBTENER_RECIBOXCOMPXPVXRECINGXENC XFEC_COMPXCOD_CLIXAGENTE XCOMISIONXMONEDAXCAMBIO XRESULTADOTE_COB_MODIF_CPBTP_MULTIRECIBOSVEN_OPERXIDRECIBO VOPERACIOCOD_CLIFECHA XCOMPROB_VOCOMPROB XCAUSA_VOCAUSAXDIRCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXMSGXERRAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANTTS_IDQ52%C$CC$C %C[ Ta ?Balance cerrado, la fecha del comprobante debe ser posterior a CC* !!! T- A]T&El comprobante debe estar en el rango CC$C* y CC$C* !!! T- BUAUXOCIERRES CIERRE_COBDESVEN_OPERFECHA CIERRE_COBHASSYS_CIERRE_BALANCEXMSG %CC LT.f.T q_cobranza .T!v.comprob+v.causa=xcomprob+xcausaTq_cobranza_tmpselect v.* , nvl(p.descr, space(40)) as dprovincia , c.abrev , c.descr as dcuenta , c.abrev as old_abrev , c.atributo , c.auxn , v.numero as old_numero , v.cuenta as old_cuenta , v.provincia as old_provin , v.dif_valor as old_dif_va , v.des_val as old_des_va , v.cod_cli+v.cuenta+str(v.numero,10)+str(v.provincia,3)+v.des_val+dtos(v.dif_valor) as registro , v.banchq , v.numchq , v.banchq as old_banchq , v.banchq as old_banchq from ven_oper v left outer join provinc p on v.provincia=p.cod , cuentas c where &xfiltro and v.cuenta=c.cod_cue order by v.tipo, c.abrev, v.dif_valor into table (p_local+"\tmp\"+xalias) %CC  FS\tmp\#)BUXCOMPROBXCAUSAXFILTROXALIAS Q_COBRANZAP_LOCAL_ Ta T%CFTTT T  T aF ~s*TC x CC Z: %>TCC, 6Cta: C->C%_BTCC, 6Prv: CCZ->CCZ%BTCC, 6Fec: CC->CC%BTCC, 6Num: CCZ->CCZFD- +!C ZCZC " %C4O>#$ % &'C%% 6D>      o T(+TNo se encontr el registro !!! T-! T%#CTCC, 6 Cobrador: C->C#%$=LTCC, 6%: CC Z->CC$ Z% &ETCC, 6Moneda: CC Z->CC&Z%%MTCC, 6TC: CCZ->CC%ZF)~ \> % & T*T+,T- %C  T. T)/co_aut.+*-a%C.  T- T - - T-% OC1 BU2 XRESULTADOXMSG FECHA_VALIDAVEN_OPER XOLD_AGENTEAGENTE XOLD_COMISIONCOMISION XOLD_CAMBIOCOEFIC XOLD_MONEDAMONEDATRSAC Q_COBRANZAXCAMBIOSDES_VALCAJ_PROCUENTA OLD_CUENTA OLD_ABREVABREV PROVINCIA OLD_PROVIN DIF_VALOR OLD_DIF_VANUMERO OLD_NUMEROUSER_LOG PUB_INDEX XCOMPROB_VO XCAUSA_VOCOMPROBCAUSACOD_CLIREGISTROXAGENTE XCOMISIONXCAMBIOXMONEDAMONEXT TTS_ERRORCCCLIE XTIPO_ASIENTOXASIENTOASIDIAXIDXERRREHACER_ASIENTOCO_AUTMENSAJE fecha_validaobtener_recibo transaccion AbArqcqqA22AABBB3q!qAA3qA,qAQA2rt1A2!A2!A2!ArDFAAB11A2A2QA2ArAq"AAAA19/ hG6 xY % ksdJN4G(9G~(clasesG+(listados C TTC6 T +a T H   T #te_numeracion_recibos_1( %C  ! F- T  T #te_numeracion_recibos_2( %C  !% % C  CBUXSIN_TRANSACCION ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXFORMXPVP_SUC_RECIBO_SUGERIDAXNUMXMAXFORMXRESTE_NUMERACION_RECIBOS_1WIZARDNUMRECCODIGONUMEROTE_NUMERACION_RECIBOS_2 TRANSACCIONREGISTRAR_CON_TRANSACCIONC Suspendo?a T trsacnumrec% T^trsacNumeracin de Recibos)Modificacin de la numeracin de recibos. Ta%Q Ta TTC T-%5 T MT iT^trsacNumeracin de Recibos)Modificacin de la numeracin de recibos. T +%    BU SYS_MOSTRAR_SCREENAAALOCK_GTRSACBEG_TRAN XRESULTADOXXMSG TRANSACCIONEND_TRANTTS_ID TTS_ERRORm%Cnumrec *QnumrecF+CNd brnumrecCNBUNUMRECID4 T T TaF-%C4`CCambia recibo a CC0QCCZR-CC0QCCZR >   T'TRegistro no encontrado !!! BU XXMSGXXERRORTRSACNUMRECIDXPVUSER_LOG PUB_INDEXXNUMNUMERO 4H / j%fT % T   TB UXRESXFORMXMAXFORMregistrar_con_transaccion open_files transaccion&wizardr!11AA2r1AABB2AAC3r22!2AABBB4!Ar1AA2qrrqA2122A12A12A1%c?A{JU Zh %C;~GNG(9CInicializando..."T\tmp\CC]R$ve_reimprimir_comprobanteF Ta T CCꚛTC %'C Suspendo?a  T FG(C T N T F ~xLCGenerando comprobante : Cc NC ND 6 TCO#G+(ve_reimprimir_comprobante%CtempcompF FQtempcomp (QF3%C CCRgST  FG(C  #FG(CC VAG C'(G TCW%2> T F 1aaa=1 Qbatchon error &onerr %:3 Qbatch% 6C)No existen comprobantes para procesar !!! #CComprobantes procesados : CC ZC C ORecuerde que la impresin de los mismos se realiza en el mdulo de facturacin. oC2No se ha seleccionado la impresora de destino !!!!C &No se pueden generar los comprobantes. CBU ACTIVEFORM DATASESSIONID MENSAJE_WAIT XTEMPCOMPP_LOCAL OPEN_FILESVE_REIMPRIMIR_COMPROBANTEBATCHXOKXDRIVERSYS_MOSTRAR_SCREEN XPROCESADASARCHSIONOAPARATOCAUSAFAC_VENBATCHREGTEMPCOMP REIMPRIMIRFOR XBORRADOS AREABATCHAAAMENSAJE MENSAJE_CLEAR%BrrBssrr2qAr2ArCra!ba212AAB3aAAA2%>30 O9G(9%Cbatch 8Qbatch%Cccvent fQccventG+(listadosG~(clases T T T T T C X T T A T ; ve_cpbt_vis(Agregar NC/ND al spooler%. THc VTFC rTRE dTND cTNC% % PD*T 0000C00000000CC ZR >T  C00CC ZR-C00000000CC ZRFG((ccvfacGGF E G GF%C4A-%C0CCfANULADA =/"El comprobante ha sido anulado !!!BF- %C4 >  ^CQEl comprobante ha sido agregado al spooler, recuerde que debe volver a generarlo. *5C(El comprobante ya est en el spooler !!!BU ACTIVEFORM DATASESSIONIDBATCHCCVENTLISTADOSCLASESXMONEDAXCOEFICXFISICAXCAUSAXCOMPROBXCENXLETXNUM VE_CPBT_VIS XRESULTADOXTTCCVFACCOD_CLIDES_CLIEMENSAJEFAC_VENCAUSArA!A"2AAAAA2AAAraaaaAAAraQsQABA1%<NT:O %-p a Ta TaT1 TCSQ@ atrcan.geste_pago T !te_pago_contado_modif( % C %Ccur_pagoF QBU DEY_FUNC2P_DEV P_SUSPEND P_PROVCONTCL_ATRATRCANGES OPEN_FILESTE_PAGOXPAGOTE_PAGO_CONTADO_MODIFXRESPROCESARCUR_PAGOO T;ge02C 9999,999,999_CBUXCOD_PRO P_PROVCONTCPBT_VISGE02XPAGOprocesarBQ222B-BqAAC3B295%0C0000CC ZR-C00000000CCZR Ta(k T-% T T Titrsac%Te_asignacion_de_recibo_proveedor.prgAsignacin de recibo a CPO T CBU XDESDE_CC ACTIVEFORM DATASESSIONID OPEN_FILESTE_PAGOOPEN_FILES_COMPRASFILESXANULXCOMPXRECINGXENC XFEC_COMPXCOD_PROXRECIBO_PROVEEDOR_SUCXRECIBO_PROVEEDOR_NUM XRESULTADOTE_ASIGNAR_RECIBO_PROVEEDOR XCOMPROBANTECCPAGCOMPROBAAALOCK_GTRSACBEG_TRANRECIPROVOEXEND_TRANTTS_IDs"rq2Q2AAABBAB1%_8 ZxHO ,G(9T9 ET9 T T TC$ T T C+a te_anu_ret( %  T " trsac ret_prov% D T- T Btrsac  Te_anu_retAnulacin de Retenciones T aTC%Cb%F$-  %C4 Ta  T- ^Erret_prov Ta C T-T Btrsac  Te_anu_retAnulacin de Retenciones T'%   @/C"Se ha registrado correctamente !!!! 3C&No se pudo comenzar la transaccin !!! !BU ACTIVEFORM DATASESSIONIDXDATASESSIONIDXNUMRETXTIPORETXFECHA XPROVINCIAXFISICA OPEN_FILES TE_ANU_RETXRESAAALOCK_GTRSAC XRESULTADOBEG_TRANXMSGVALIDARRET_PROVNUMEROTIPOIMPORTEINFECHA PROVINCIAVERSIONMENSAJEEND_TRANTTS_ID TTS_ERROR%Cret_prov 0Qret_prov%Cprovinc hQ\provincoprovincǼ provinciasBUP_SYSTEMPROVINC PROVINCIASC%doret_prov C a6 CiCi tmp_retenciones% o%C %  B 8B/El certificado de retencin ya est anulado !!! keBNEl certificado de retencin no est anulado. Es parte del comprobante de pago C  !!! % EB<El certificado no existe, no se puede anular fsicamente !!!  B 3=B4Debe especificar el nmero de retencin a anular !!! BU XNUMRETRET_PROVTIPOXTIPORETNUMERO PROVINCIA XPROVINCIAFECHAXFECHATMP_RETENCIONESCOMPROBXFISICA open_filesvalidar!Ab#2!2qAAQAA"rAB1AAABB3aAAB21A"2AQA2QAAA19ZB h%/,+OOeG_ G~(clases<7TC abm_ctasbancNTCU- BUCLASES POABMTEXTOS POABMCTASBANC SOLO_LECTURAACCESOSHOW ges%Cctasbanc FFQctasbanccodigo%Cproveedo FQproveedocodpro%Ccuentas FQcuentasFBUGESCTASBANCCODIGOPROVEEDOCODPROCUENTAS openfilespTctasbancT TTcodigoT abmctasbanc T-T Cuentas BancariasT ctasbancT hlpT codigo T PTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTNU DOS_TABLA DOS_COPIARP_ESPEJA_CTASBANCP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_ctasbanchlpabm2brqQB2AAArA01SA2Q1!!1112 +'%y1C58OcG_ G~(clases<7TC abm_bancosNTCU- BUCLASES POABMTEXTOS POABMBANCOS SOLO_LECTURAACCESOSHOW ges%Cbancos JFQ\bancoscodigo%Cproveedo FQproveedocodpro%Ccuentas FQcuentasFBUGESP_SYSTEMCODIGOPROVEEDOCODPROCUENTASBANCOS openfilesTcodigoT abmbancos T-TBancosTbancosThlpTcodigo T(TdescrT  DescripcinT descrT C T 2T banco TDescripcin OficialTbancoTC T TcodigoTCdigoTcodigoTNUIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 abm_bancoshlpabm2brqQB2AAArA16a411!!!!1112 ''@@((@{}{{y{y{y{u }y{y} }                                                                                                                                                              !!""  !!""         ## ## !! !! $$$$!! "" $$$$!! "" !!  !! !!$$!! "" !!$$!! "" $$!! $$!!  $$!! "" $$!! ""!! !!  $$!! "" $$!! ""!! !! ????%AyG gAMW PdG(9G~(clasesG+(te_procsG+(listados CTC] T-%flogmsg C XIngreso a depsitos <    1 d d d d:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs%WC+Debe haber alguna cuenta marcada como BANCOC No se puede continuarB% >vCJDebe haber alguna cuenta de marcada como de EFECTIVO o VALORES A DEPOSITARC No se puede continuarB% T T co_funciones%C CBR (a%!FG((cuentaEC"%C4CM\S ]CT(%!FG((cuentaEC %C4C! C TT(%B!FG((cuentaEC"%C4&%C! Ct\S C"TTF~C[\S(B%C"#>!%TT"#T"T"T"$T"C%ZT&CC]R T' T( T) T*J(   J( T+C$ T, T- T. T/ T0 T1 T2T3NT4CX T5 T6T7C" T8T9C T:T;C T<T=CT>1T?CC@A>X TB TC+a, TDH( C FE#) TFB TG te_bancos(G TB=!T=C=EC6 TI8 TJ7 TK8%GG %=E TJ;T-CC< gT <C< 2T662H  G, ! Gg %Cc TCC G %CD TCC G ! G TC C(@%'8(: )< *BB  %CVALORESS FLQ%Mz TN.t.  &TNcheques.dif_valor<=xfecha%B select cheques.*, iif(chq.terc, chq.cuit, nvl(clientes.inscripcio,space(13))) as cuit, iif(chq.terc, chq.emisor, nvl(clientes.nombre,space(40))) as emisor, .f. as marcado, nvl(clientes.nombre,space(40)) as cliente, iif(chq.echeque,"SI","NO") as echeque from cheques left outer join clientes on cheques.codigo=clientes.cod_cli , chq where cheques.numero=chq.NUMERO and between(cheques.cod_cue+cheques.des_val, numcuev+space(30), numcuev+replicate("Z",30)) and &xfiltro_caucion into table (p_local+"\"+xvalores) Ozselect cheques.*,iif(chq.terc, chq.cuit, nvl(clientes.inscripcio,space(13))) as cuit, iif(chq.terc, chq.emisor, nvl(clientes.nombre,space(40))) as emisor, .f. as marcado, nvl(clientes.nombre,space(40)) as cliente, iif(chq.echeque,"SI","NO") as echeque from cheques left outer join clientes on cheques.codigo=clientes.cod_cli , cuentas,chq where cheques.cod_cue=cuentas.cod_cue and cheques.numero=chq.NUMERO and (substr(cuentas.atributo,20,1)="S" .or. substr(cuentas.atributo,37,1)="S" .or. substr(cuentas.atributo,68,1)="S" .or. substr(cuentas.atributo,65,1)="S") and &xfiltro_caucion into table (p_local+"\"+xvalores) QO\&L>PC]CP FG((cuentaFLG-(#CM\SG-(& RR & CSST6U& VV& WW& XXFL TG te_deposito(GT-CC:g TJ9 TZ:T :C: 2FL T~[.T66CC- LTLS6TFLT T'8 T(: T)< T*BH`$ Gw! G%CTCC G%CD TCC G! G$ TC%GT\C X T] T^ T_ T` Ta#Tb CCCC>gcZ hsT,CCI"g Cd@ \pagcue.ges%CVALORESYFLQ O\tmp\&.dbf O\tmp\&.cdxBUe ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILESXIDXLOGLOGCHQLOGMSGCADENACHECAJCHQMAXCHQP_SERVERMENSAJERESTORE_RECCUERESTORE_PAGCUE PAGMAXCHP PAGMAXCHE PAGMAXEFEP_IMPUESTO_AL_CHEQUEXCUENTA_IMPDEBCREXMSGCUENTA_IMPUESTO_AL_CHEQUE CO_FUNCIONESZCUENTASCUENTAPAGCHEATRIBUTOPAGEFE COMPLEMENTPAGCHPCOD_CUEDESCRMONEDAXVALORESOLDPOSPOLDPOSVOLDPOSEOLDTIPOXFECHAXMONEDAXMON XCOEF_DEB XCOEF_CREXCAMBIOXUNABONAXDTOLASTLAST2TOTABONANUMCUEPPOSPNUMCUEVPOSVNUMCUEEPOSEXTIPOXHORA1XREFCOM_OPERREFXTIPOCVXFORMXMAXFORMCONSXIPOXRES TE_BANCOSPOSBANKNUMCUEPOSVALORES P_DEP_CAUCIONXFILTRO_CAUCIONP_LOCALIDUFORDES_VALMONEXTCAJ_PROIMPORTENUMERO DIF_VALORCLIENTE TE_DEPOSITOPOSICIONMARCADOXNUMEROFXCOD_PRO XOTRO_PROCENTRODEBICREDIXHORA2 FN_CLEARING REGISTRAR T T Ta%co_aut%trsacconsven_opercom_operchequesccpagcccobcheprodiariogconcepto &CEjercicio inexistente !!!  itrsacconsven_opercom_operchequesccpagcccobchepro%  T3 trsac Te_depositoDepsito Ta% T  (TC ( k*      T-C D% T T T3trsac Te_depositoDepsito'%  GCSe ha registrado el Depsito CC@z 999,999,999,999_  T BUXOPAGOAAA XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRANXNUMEROF TRANSACCIONOEXTRANERR_HANDERRORNOMESSAGEDETAILS PROCEDURELINENOUSER_LOG PUB_INDEXEND_TRAN TTS_ERRORTE_DEPOSITO_REIMPRESIONTTS_ID TaF#)%;T t TTTFG((opago E%C4+oCEl Comprobante de Pago CC@z 999,999,999_ est repetido.C Revise la numeracin. B-F G((oper E%C4CEl nmero de operacin de CC@z 999,999,999_ est repetido.C -Revise la numeracin de Ajustes por Cobranza. B-F >%$ > ?F G((cuentaECTC[\SF#6 T!TC@z 9999,999,999_ T TT%C0 F~, FG((idcheqEC ZCZA%C4   W% 9T!CC"#6$%d TT!F >&' >(>)C X>* >+,>-->..>%%> >/C >0,>1Depsito >23 >>44 >5 >6>> >7C$>#1 >89 >:>;D7><=>(?@A;.>BCDECFF'>GHIIJJ >KL"%C com_oper.dtobCZ%CM:>NO V>NN% ! SF >& >(>)C X>* >+,>-IMP. LEY 25413 >., >%!> C >/ >0,>1Depsito >23 > >4, >5 >6 > > >7C$>#6>8 >:>;D+>BDEF! >GH"%C com_oper.dtobCO>NN ! C!Problemas al depositar el valor :C C C- por CCF@z 999,999,999.99_ con nmero interno CC@z 999,999,999_/CC999,999_ B-FG+( co_funciones%E%  6T!CC"#6$d TT!F G((cuentaECRQTSCt\SF> CRQ>/CHE  Mm >-EFECTIVO M >- TRANSFERENCIA M $>-VALORES SIN IDENTIFICAR >., >% >(>)C X>* >0, >&'>1Depsito >23 >>4 >5 >6 >7C$>#2>;D >:+>BCDECF >GH >KL"%C com_oper.dtobC= >NN%S FTG((cuentaECRQ%C4 TU >UF#>#1UVS  % ! F>&"& >(>)C X>* >+,>-IMP. LEY 25413 >., >%!> C >/ >0,>1Depsito >23 > >4, >5 >6 > > >7C$>#6>8 >:>;D+>BDEF! >GH"%C com_oper.dtobC>NNF TW%CDF~@% j9T!CC"#6$%d TFG((idcheqEC ZCZA%C4   kF  >X >(>YC X>Z >+,>-->..>%%> C>/ >0,>[Depsito >23 >\W>44 >5 >6>> >7C$ >89>;D7><=>(?@A; >].>B^DECFF'>GHIIJJ >KL"%C ven_oper.dtobCD%CM$> NO @> NN T_CO% ! AF  >X >(>YC X>Z >+,>-IMP. LEY 25413 >., >%! > ` >/ >0,>[Depsito >23 >\ >4, >5 >6 > > >7C$>#6>8 >]>;D+>BDEF! >GH"%C ven_oper.dtobC=> NNF%/ TaF TbCOF TcCOF #bF #cF >a>#1F>C >a>dN >e >(>;D g >==F >#2[ 5C!Problemas al depositar el valor :C C C- por CCF@z 999,999,999.99_ con nmero interno CC@z 999,999,999_/CC999,999_ B-F%E % 6T!CC"#6$d T% C&CCcuentascuentaF  Cf> C>/CRQHB Mj>-EFECTIVO M>- TRANSFERENCIA M$>-VALORES SIN IDENTIFICAR >., >% >(>YC X>Z >0, >X>[Depsito >23 >\W>4 >5 >6 >7C$>#2>;D >]+>B^DECF >GH >KL"%C ven_oper.dtobC:> NN% ! F  >X >(>YC X>Z >+,>-IMP. LEY 25413 >., >%! > ` >/ >0,>[Depsito >23 >\W >4, >5 >6 > > >7C$ >89>;D >]+>BDEF! >GH"%C ven_oper.dtobC> NNFg,>(;D0,hiFj,>(;D0,hi%kFG((opago E Cl T-BaUmTRSACCONSP_TE_OERACION_VERSIONXOPERCOB_OPERSYS_OPERACION_FONDOSXOPAGOOPAGOCOM_OPERMENSAJEVEN_OPEROPERCUENTASCUENTAPAGCHPPOSBANKCAUCIONATRIBUTONUMOPAGOXNUMEROFXACC_IMPUESTO_AL_CHEQUE TOTABONA_MOTOTABONAXCAMBIOXTIPOVALORESMARCADOCHEQUESIDCHEQNUMEROSUBNUMCOD_CUEP_IMPUESTO_AL_CHEQUEXIMPUESTO_AL_CHEQUECTASBANCTIPO IMPDEBCRECAJ_PROCOD_PROXCOD_PROCOMPROBREM_PROORDENFEC_RECXFECHADES_VAL DIF_VALORCUENTA2FECHADES_PROVCOD_CENCENTROEMISIONAGENTECOMISIONHOYHORASXHORA1 OPERACIONCAUSAOCODIGOCODIGOOCOMPROBOPASEPASEOCAUSAMONEDAXMONCOEFICMONPASEMONEXTUSR PUB_INDEXBANCHQNUMCHQREFXREFXTIPOCVDTOXDTO CO_FUNCIONESPAGEFEPOSE XBOLSADEGATOSCHEPROXNUMTRAPROPIO NUMRECIBOCOD_CLIREM_VENPEDIDODES_CLIERECIBO VOPERACIOXMONEDAREGISTROXCUENTA_IMPDEBCREXSUBNUMREGVENREGCOMFLAGTEMPORALREG_LOCKCCPAGUNXUNCCCOBP_ASIAUT REG_ASIENTO%CCLIENTES 8Qclientescodcli%CIDX04 u"Q\idx04idx04%CPROVEEDO Qproveedocodpro%CVEN_OPER Qven_operven_ope%CCOM_OPER (Qcom_operoper%Ccuentas bQcuentascuenta%Ccheques Qchequesche_ven%Cchepro Qchepro%Cunidades Qunidades%Cccpag )Qccpag%Ccccob UQcccob%CCONS Q\CONSF#)BUCLIENTESCODCLIP_COMMONIDX04PROVEEDOCODPROVEN_OPERVEN_OPECOM_OPEROPERCUENTASCUENTACHEQUESCHE_VENCHEPROUNIDADESCCPAGCCCOBP_PRIVCONS 5 Ta T# co_depositosa% T?C(Error al registrar el asiento contable: C BU XRESULTADOXMSG REG_ASIDIA CO_DEPOSITOS TTS_ERRORMENSAJE registrar. transaccion open_files< reg_asiento!@!!aArAA212rAAbAA2"AAAR1AAq!AAp1AAqAA1AAqaAABrAAA1AARRBBBB1rQQBqAB1B12A12A1B1A2qAA2aA1 'ADrrarqsrrA1B12A12A1B1ABB22uBqAAC3JaAA12AAA2srBBC3Q6BvqAsqAs4BvsQErr4AtQQQtu#q!AAtQQQ#!AB qArAAbI2aArrQRQ1Q11AAQ1#!Arr4BBtQQQ#!ABBrEr2ArtQQQtu#q!AAqQQ#!ABsrrtrrrQCArBA qArBAF2aAaArQQQ1Q11AAQ1#!AqQQ#!ABBrQrQrAr3Ar!AAAAAA!AAArArAbAqQB22AA1o,3(3wWwz" {{X%  mD6X-P4G(9G~(clasesG+(te_procsG+(listados te_deposito%Cte_anu Qte_anuTC] T  te_anu_dep( % B,T CXC @z 9999,999,999_D T  T T T%V CK ( T%ntrsacconsven_opercom_operchequesdiariogconceptote_anu dStrsacconsven_opercom_operchequeste_anu% T T?trsac Te_anu_depAnulacin de Depsito%1TC % T -T IT?!trsac Te_anu_depAnulacin de Depsito T"%C 8C+El depsito se ha anulado correctamente !!!# %C C# )BU$ ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILES TE_DEPOSITOTE_ANUXIDANXCOMP TE_ANU_DEPXRESXIDXFECHAFECHAXCUENTACUENTAXFECASIXASIDIAASIDIAAPERTURA_DE_EJERCICIOCAJ_PROACCCOD_PROCOMPROBCAUSAAAALOCK_GTRSACXMSGBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEC T- TFG((comprob E7+C+ $C@z 9999,999,999_ %  F G((cuenta E %%C4C [\S  TaT FG((IDCHEQEC ZCZ%C4 PT El cheque CCZ debe estar pendiente en C  !!! BF TOte_procs  HFG((comprob E%+C+ CX  T T % 1F G((cuenta E %C t\S(%FG((descr E T!-+C+  /%  "  T!a>" >#$>%5>&'C&L C%g6>()>H $F>#$>**>>++>>,,>" >>>%5>&'C&L C%g6 >C$>()>>->..>// %0SIT<Es un depsito sin determinacin de cliente ya utilizado !!! BF TOte_procs  H%3 C1 BU2XCAUCION XVEN_COD_CUEVEN_OPERCOMPROBXIDCOD_CLIRECIBOCAUSAXCOMPXFECHAFECHACUENTASCUENTAATRIBUTOCHEQUESIDCHEQNUMEROSUBNUMXMSGDESCRXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCAJ_PROMONEDAMONEXTCOM_OPERXASIDIAASIDIAXFECASITIPOXOKCOD_CUECODIGOOCODIGOOCOMPROBOCAUSAASIENTOPASEOPASEFEC_REC DIF_VALOREMISIONMONPASEBANCHQNUMCHQDEBITADO ANULA_ASIDIA 5FG((asiento E T-+C+  d TaH%FG((asiento E%C4BUOKAAADIARIOGASIENTOXASIDIACONCEPTOm5 T- T%CE Ta ]C BUAUXXMSG_DEPOCIERRESVALIDAR_DEPOSITOXFECHAMENSAJE^5 TCW%Cejercon JFQejerconF-CT%C4I%CdiariogF F,Q \C\diariogasiento%CconceptoF F-Q \C \conceptoasiento FBU OKAAAXAREAEJERCONXFECASIDESDEHASTADIRDIARIOGP_PRIVASIENTOCONCEPTO transaccion anula_asidia fecha_validaapertura_de_ejercicioN!!b!AAA1A27A222AA!AABB3rstRrABrABAAuRBrtRCAAtQRCrAABrABA2A4rAAAqAAAB2qA4Aq"qAqABA18m,!E%E k n "E6XKPG(9G~(clasesG+(te_procsG+(listados te_deposito%Cte_anu Qte_anuTC]T  T %te_dep_cambio_fecha( % BT  T T T%P C T%Wtrsacven_opercom_operdiariogconceptote_anu <trsacven_opercom_operte_anu% T TNtrsacTe_dep_cambio_fechaCambio de Fecha de Depsito%TC% T T TNtrsacTe_dep_cambio_fechaCambio de Fecha de Depsito T%C ;C.El depsito se ha modificado correctamente !!! %C C  BU! ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILES TE_DEPOSITOTE_ANUXIDAN XFECHA_NUEVAXCOMPTE_DEP_CAMBIO_FECHAXRESXIDCOM_OPERCOMPROBCAUSAXFECHAFECHAXFECASIXASIDIAASIDIAAPERTURA_DE_EJERCICIOAAALOCK_GTRSACXMSGBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJExTF~ > T O te_procs  F~' > T R te_procs  c%h*>   BUXASIENTOVEN_OPERASIDIACOMPROBCAUSAXIDFECHA XFECHA_NUEVAXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXTCOM_OPERXASIDIADIARIOGFORASIENTOCAUx 5 T- T%CP Ta hC BUXFECHAXTEXTOAUXXMSG_DEPOCIERRESVALIDAR_DEPOSITOMENSAJE^5 TCW%Cejercon JFQejerconF-CT%C4I%CdiariogF F,Q \C\diariogasiento%CconceptoF F-Q \C \conceptoasiento FBU OKAAAXAREAEJERCONXFECASIDESDEHASTADIRDIARIOGP_PRIVASIENTOCONCEPTO transaccionu fecha_validaapertura_de_ejercicio!!b!A2QAAu1A2wA222AA!AABB3rBr$B2A3qA4Aq"qAqABA17- fI T" %8aOWR{P 4 5G(9(CG~(clasesG+(listados@ \reccue.ges@ \pagcue.gesH &  te_deposito T%te_deposito_reimpresion%"B gFG(DG((opago E 2%%Cxnumero_de_pagobNB T  te_deposito TCOFG(DG((recibo E%C4 B/C"Depsito con problemas en V.O. !!!BTT T TF+C+  TTH #FG(FG(BUXFROMXNUMERO_DE_PAGOXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADO ACTIVEFORM DATASESSIONIDOEXCLASESLISTADOSP_SERVER OPEN_FILES TE_DEPOSITOXOPAGOTE_DEPOSITO_REIMPRESIONCOM_OPERCAUSAOPAGOREGISTROVEN_OPERRECIBOMENSAJEXFECHAFECHAXHORA2HORASMAXCHQABONACAJ_PRO VDEPOSITOA!1aQ2AA2qQAAbBrAAqAAssaraB1%38OWRP"G(9G~(clasesG+(te_procsG+(listadosG+(te_pago CTC]<    1d d d d:%C \reccue.ges0 C \pagcue.ges0 alC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs%/WC+Debe haber alguna cuenta marcada como BANCOC No se puede continuarB%aC5Debe haber alguna cuenta de marcada como de EFECTIVO C No se puede continuarB(X%!FG((cuentaEC%C4C TCTT% T T co_funciones%C CB TC$ T T  T! T" T# T$ T% T&T'CX T(a te_extraccion((%(C Suspendo?a*T+CC ,gT-CC!g T. T/ T0a%12co_aut0%0t4trsac/consven_opercom_operccpagcccobchpdiariogconcepto &CEjercicio inexistente !!! 6Y4trsac/consven_opercom_operccpagcccobchp%/0  T/76trsac/ Te_extraccion Extraccin T0a%/T0C7%0 T/ T/ T/78trsac/ Te_extraccion Extraccin,C:C.@z 9999,999,999_X9'%0;/   <ICSe ha registrado la Extraccin CC.@z 999,999,999,999_ T= BU> ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOSTE_PAGO OPEN_FILESXIDCADENACHECAJCHQMAXCHQP_SERVERMENSAJERESTORE_RECCUERESTORE_PAGCUE PAGMAXCHP PAGMAXEFEZ RECMAXEFECUENTASCUENTARECEFE COMPLEMENTP_IMPUESTO_AL_CHEQUEXCUENTA_IMPDEBCREXMSGCUENTA_IMPUESTO_AL_CHEQUE CO_FUNCIONESXFECHAXNUMEROPOSBANKPOS XCOEF_DEB XCOEF_CRE XIMPORTE_DEB XIMPORTE_CREXUNXCENTROXRES TE_EXTRACCIONSYS_MOSTRAR_SCREEN XMONEDA_CREPAGCHP XMONEDA_DEBXOPAGOAAA XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTLOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANUSER_LOG PUB_INDEX TTS_ERRORTE_EXTRACCION_REIMPRESIONTTS_ID| G+( co_funciones TaF#)%QT  TTTF G((opago E%C4AoCEl Comprobante de Pago CC@z 999,999,999_ est repetido.C Revise la numeracin. B-F G((oper E%C4CEl nmero de operacin de CC@z 999,999,999_ est repetido.C -Revise la numeracin de Ajustes por Cobranza. B-F G((cuentaEC%C  T F G((abrev E%C4 T   TWCJLa cuenta bancaria de cheques diferidos no est correctamente asociada !!! T-Ba .TCIrchpCF G((cuentaF >% > %1:TCC 6!"#d TF  >H>$C#CC@z 9999,999,999_ - 6C >%>&"#!>'C@z 9999,999,999_ > >(>) Extraccin >* > >>+ >, >- >.C$> 1>/X >>0S>1S+>23456" >78% xF >C:9>$IMP. LEY 25413 >% >&!>'C@z 9999,999,999_ > >(>) Extraccin >* > >>+ >, >- >.C$> 6>/X >>0S+>2346 >78% C:9&CC:9cuentascuentaF >C:9>$EFECTIVO >%>&;<!>'C@z 9999,999,999_ > >=>> Extraccin >*? > >@>+ >, >- >.C$> 2>/X+>234A6; >78% F  >B>$IMP. LEY 25413 >% >&!>'C@z 9999,999,999_ > >=>> Extraccin >*? > >@>+ >, >- >.C$> 6>/X+>2346 >78FC@>'C@z 9999,999,999_/XDEFF@>'C@z 9999,999,999_/XDE%Gc F G((opago E CH T-BaUI CO_FUNCIONESTRSACCONSP_TE_OERACION_VERSIONXOPERCOB_OPERSYS_OPERACION_FONDOSXOPAGOOPAGOCOM_OPERMENSAJEVEN_OPEROPERCUENTASCUENTAPAGCHPPOSBANK COMPLEMENTXCOMPLEMENTARIAABREV XCUENTA_BANCOCOD_CUE TTS_ERRORNUMEROFECHAASIENTOSUBNUMXNUMEROXFECHAP_IMPUESTO_AL_CHEQUEXIMPUESTO_AL_CHEQUECTASBANCTIPO IMPDEBCRE XIMPORTE_CRE XCOEF_CREDES_VAL DIF_VALORCAJ_PROCOMPROBCOD_PRODES_PROVCOD_CENEMISIONAGENTECOMISIONHOYCAUSAPROPIODEBITADOMONEDACOEFICMONPASE XMONEDA_CREMONEXTUSR PUB_INDEXRECEFEPOS XIMPORTE_DEB XCOEF_DEBCOD_CLIDES_CLIEXCENTRORECIBO XMONEDA_DEBXCUENTA_IMPDEBCRECCPAGUNXUNCCCOBP_ASIAUT REG_ASIENTO%CVEN_OPER 9Qven_operven_ope%CCOM_OPER sQcom_operoper%Ccuentas Qcuentascuenta%Cunidades Qunidades%Cccpag Qccpag%Ccccob 7Qcccob%Ccostos eQcostos%Cchp Qchp%CCONS Q \CONSF #)BU VEN_OPERVEN_OPECOM_OPEROPERCUENTASCUENTAUNIDADESCCPAGCCCOBCOSTOSCHPP_PRIVCONS 5 Ta T# co_depositosa% T?C(Error al registrar el asiento contable: C BU XRESULTADOXMSG REG_ASIDIA CO_DEPOSITOS TTS_ERRORMENSAJE transaccion open_filesK reg_asiento!!rAA213rAA2AA1AAqAA5"AAAsrqIaAAq2AArsBBBB3brQ5BvqAsqAsRqqqAQAsr2B2AsQq1qQQq1AaArQQQq1qQq1ArQrQrAr3AAAAArArA!ARAbAqQB22AA1f E$\$r&.&t'% ) [6XPG(9G~(clasesG+(te_procsG+(listados te_extraccion%Cte_anu Qte_anuTC] T  te_anu_dep( % B,T CXC @z 9999,999,999_X T  T T T%X CK ( T%jtrsacconsven_opercom_operchpdiariogconceptote_anu ^Otrsacconsven_opercom_operchpte_anu% TAtrsac Te_anu_extAnulacin de Extraccin% TC% T T 8TA trsac Te_anu_extAnulacin de Extraccin T!%:C-La extraccin se ha anulado correctamente !!!" BU# ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILES TE_EXTRACCIONTE_ANUXIDANXCOMP TE_ANU_DEPXRESXIDXFECHAFECHAXCUENTACUENTAXFECASIXASIDIAASIDIAAPERTURA_DE_EJERCICIOCAJ_PROACCCOD_PROCOMPROBCAUSAAAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEF~CFG((cuenta E T- %C4 T  T  F G((ID!E C ZCZ F TOte_procsF~ TOte_procs% C BUCOM_OPERCOD_PROCOMPROBCAUSAXIDCUENTASCUENTAXABREVABREV COMPLEMENT XCUENTA_BANCOCOD_CUECHPIDNUMEROSUBNUMINXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCAJ_PROMONEDAMONEXTFECHAVEN_OPERCOD_CLIXASIDIA ANULA_ASIDIA 5FG((asiento E T-+C+  d TaH%FG((asiento E%C4BUOKAAADIARIOGASIENTOXASIDIACONCEPTO/5 T--%C$CC$C %C^ Ta ?Balance cerrado, la fecha del comprobante debe ser posterior a CC* !!! NCLa fecha debe estar entre CC$C* y CC$C*. BUAUXOCIERRES CIERRE_EXTDESXFECHA CIERRE_EXTHASSYS_CIERRE_BALANCEMENSAJE^5 TCW%Cejercon JFQejerconF-CT%C4I%CdiariogF F,Q \C\diariogASIENTO%CconceptoF F-Q \C \conceptoASIENTO FBU OKAAAXAREAEJERCONXFECASIDESDEHASTADIRDIARIOGP_PRIVASIENTOCONCEPTO transaccionf anula_asidiaw fecha_validae apertura_de_ejercicio !!!AAA1A2A222AA2ABB5trAxrBrA7A4rAAAqAAAB2qAAA4Aq"qAqABB13P iS  g6 t%7zhOWRP4 5G(9(CG~(clasesG+(listados@ \reccue.ges@ \pagcue.gesH (  te_extraccion T%te_deposito_reimpresion%$B iFG(XG((opago E 2%%Cxnumero_de_pagobNB T  te_extraccion TCOFG(XG((recibo E%C4 H1C$Extraccin con problemas en V.O. !!!BT T TF+C+  TTH #FG(FG(BUXFROMXNUMERO_DE_PAGOXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADO ACTIVEFORM DATASESSIONIDOEXCLASESLISTADOSP_SERVER OPEN_FILES TE_EXTRACCIONXOPAGOTE_DEPOSITO_REIMPRESIONCOM_OPERCAUSAOPAGOREGISTROVEN_OPERRECIBOMENSAJEXFECHAFECHAMAXCHQABONACAJ_PRO VEXTRACCIONA!1Q2AA2qQAABrAAqAAtsaraB1%^$NWR1Q\G(9G~(clases:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs%WC+Debe haber alguna cuenta marcada como BANCOC No se puede continuarB%Cchepro F QcheproT C X%C chequeras FQ chequerasF C Buffering T a te_chequeras( BU ACTIVEFORM DATASESSIONIDCLASESP_SERVERMENSAJERESTORE_RECCUETE_PROCSRESTORE_PAGCUE PAGMAXCHPCHEPROXCUENTA CHEQUERASXRES TE_CHEQUERASAA212rAAAArG1% NWRSQG(9G~(clases:%C \reccue.ges0 C \pagcue.ges0 lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs%WC+Debe haber alguna cuenta marcada como BANCOC No se puede continuarB C T C X T a te_ab_cheques( BU ACTIVEFORM DATASESSIONIDCLASESP_SERVERMENSAJERESTORE_RECCUETE_PROCSRESTORE_PAGCUE PAGMAXCHP OPEN_FILESXCUENTAXRES TE_AB_CHEQUES %Cchepro *Qchepro%CCOM_OPER dQcom_operoper%CVEN_OPER Qven_operven_ope%Cchqanu Qchqanu%Ccuentas QcuentasBUCHEPROCOM_OPEROPERVEN_OPERVEN_OPECHQANUCUENTAS>.R,:#Aguarde, procesando informacin ... Ta T<trsaccom_operven_operchqanu%) TZtrsacte_ab_cheques.prg)Anulacin/desanulacin de cheques propios%YTC%= T UT qTZtrsacte_ab_cheques.prg)Anulacin/desanulacin de cheques propiosH  B  B T 3BUTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_ID*C Suspendo?a TaFG((idcheqEC ZCZ Ta&+C+   %  S T-!HT C 6%F G((idcheqEC ZCZ Ta&+C+   y%  S q T-!HT C 6CcuentascuentaF G((chequeEC Z%C4H` ,F>  VF >  2` T DisponibleCCCheque anulado: CCZ de C  Hx TF> [T F > 2xT8rchqanu C$TAnuladoCCCheque anulado: CCZ de C[ T- BUSYS_MOSTRAR_SCREENTRSACCOM_OPERIDCHEQXNUMXOKNUMEROSUBNUMXCUECUENTAPROPIOXEMITIDOVEN_OPERCHQANUCHEQUE DIF_VALORINXESTADOUSER_LOG PUB_INDEXCUENTASDESCR XDIF_VALORHOY open_files registrar transaccionAA212rAAB3!AAA!A1AB2222AA12BBB3|rqaAAAArqaAAAABr"1q2qBr21r12r13BB2BC7$%<Bu%+yWwQ G(9 $G~(clasesG+(listados C%C tmp_chq_mod{FQ T T T-+a T +av T Hr H)te_cambio_fecha_terceros_v2-1(%C D! rF T )te_cambio_fecha_terceros_v2-2(%MTCHI  T(CSe modificado el cheque !!!! ) I T%C n!% !%C tmp_chq_modFQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILES TMP_CHQ_MODXNUMEROXDESCRXRESXFORMXMAXFORMTE_CAMBIO_FECHA_TERCEROS_V2WIZARDDESCRXOK REGISTRARMENSAJE 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM(Tte_cambio_fecha_terceros_v22T%Modif. de datos de cheque de terceros Ttrsac% BTC Ttrsac T% B BU TRAN_PRGTRAN_TXTAAABEG_TRANTRSACXOK WRITE_DATAEND_TRANTTS_ID%Cbancos 2Q\bancos%Ccheques mQchequesche_ven%CCOM_OPER Qcom_operoper%CVEN_OPER Qven_operven_ope%Cchq QchqBUP_SYSTEMCHEQUESCHE_VENCOM_OPEROPERVEN_OPERVEN_OPECHQC Write CHQ<2 TF*-C ZCZC ZCZ%C4 $)TModif. Cheque: CCZ %CC /TDescr.: C-->C )T Modif. Cheque: CCZ % l0T  Fec.Dep: C *-->C *% VT  Dif.: C SINO6-->C SINO6% HRT  Endosable: CSINO6-->C SINO6% OT  Dudoso: CSINO6-->C SINO6% QT  Terceros: CSINO6-->C SINO6% NT  Echeq: CSINO6-->C SINO6Fte_cambio_fecha_terceros_v2.prg%C &F te_cambio_fecha_terceros_v2.prg> > > > > > % > >   > >@>   C  CC Z ^'CEl cheque ya no existe !!! BFG((idcheq*-C ZCZC ZCZ%C4 M>   C  CC Z FG((idcheque*-C ZCZC ZCZ7+C+ $C ZCZC ZCZ b!% 12 S ZM>   C  CC ZC" !T# $$sys_comisiones# >&#HF'G((idcheque*-C ZCZC ZCZ7+C+ $C ZCZC ZCZ q!% 12 S iM>'   C  CC ZC'"' !H((5%CC(C(C() B BU*SYS_M ARR_ASIDIAMAX_ARR_ASIDIACHQNUMEROSUBNUMXNUMEROXTXTXDESCR TMP_CHQ_MODDESCRXTXT1FECHATIPOENDOSADUDOSOTERCECHEQUEUSER_LOG PUB_INDEXEMISORCUITBANCHQNUMCHQBANCOSMENSAJECHEQUESIDCHEQ DIF_VALORDES_VALVEN_OPERIDCHEQUEPROPIO ARR_AGREGARASIDIA XFECHACOMIFECHA_COMISIONESSYS_COMISIONESFEC_COMICOM_OPERZCORREGIR_ASIENTO(qA%CC C m!%TTTTBUXASIDIAXFECHAXDESCRZMAX_ARR_ASIDIA ARR_ASIDIAP%Cejercon ;Qejercon T T' co_funciones-%FG((asiento E+C+   %C ,> C CC  CC ZH%@C BUXASIDIAXFECHAXDESCREJERCONXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESDIARIOGASIENTO COMENTARIOBANCOSDESCR TMP_CHQ_MODNUMCHQMENSAJEwizard registrar open_files1 write_data arr_agregarcorregir_asiento2A!qAA1AA2s21A12AAAABBBABqAAC31r12A12A1r1Aq5!2A2A4AAAARAB4br1sAbAbaAb!AbAbAbAc"aA"AqArBrrABAArrBBAQAA2AAA2AB31As2rQAAAB2A17shJ [ l *Bau%\4P9B4\JTQG(9G~(clasesG+(te_procslistados CTC]TC] T-<     1 d d d d:%C \reccue.ges0 C \pagcue.ges0 elC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs% ]vCJDebe haber alguna cuenta de marcada como de EFECTIVO o VALORES A DEPOSITARC No se puede continuarB%CC{gCTDebe haber alguna cuenta de marcada como de TRANSFERENCIA DE VALORES ENTRE EMPRESAS.C No se puede continuarBTCC]R T T TJ(   J( TC$ T T T T T TT CX T! T"T#C$ T%T&C{ T'T(CT)1 T*T+C X T,+a T-H  , T"F.#) T/te_transferencia-1(/ T*(T(C T1& T2'H6 /M! /%,T,, /%,- T,, /! / T, , 5%%' **  o %Cchq_2gF3QF)Q4\data\CCZ\chq3%C cheques_2F5QF-Q4\data\CCZ\cheques5%CVALORESF6Q%*Do cheques_2Xclientes 5@9Achq_25C37 38 C9:C X6Q8C37 3; C9<C(X6Q;-Q=C9<C(XQ>C ?SINO6Q?5B3B&C5C5D#CX#CZQ 1E\  `o cheques_2Xclientes 5@9Acuentaschq_25C37 38 C9:C X6Q8C37 3; C9<C(X6Q;-Q=C9<C(XQ>C ?SINO6Q?5CFC5B3B ZCFG\SCFG%\S CFGD\S CFGA\S  1E\QE\6F5QFFG((cuentaF6G-(CFCFGM\SG-(>JC]CJ& DD & CKKL6M& BB& NNF6 T/* te_deposito(/ TransferenciaTCC%$g TP%T %C% F6 TQ~=k .T""CC 6L6K6TF6TQQ  T/ T% T' T*H  / ! / %, T,, /O %,- K T,, /f ! / T,%/ TRC X TS TT TU TV TW#TX CCCC)gYZ hsTCC%$gFZG((idx04 E%C4 !T[indiceCC%$xcoef_deb=&aaa xcoef_cre=&aaa C Suspendo?a\ C] C^G(4\data\CC_ZT4\data\CC_Z ges G(ges@ \pagcue.ges%CVALORESF6Q E\tmp\.dbf E\tmp\.cdxBUa ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILESXIDXBORRARXLOGCADENACHECAJCHQMAXCHQP_SERVERMENSAJERESTORE_RECCUERESTORE_PAGCUE PAGMAXCHE PAGMAXEFEATRCANXVALORESOLDPOSVOLDPOSEOLDTIPOXFECHAXEMPRESAXMONEDAXMON XCOEF_DEB XCOEF_CREABONALASTLAST2TOTABONANUMCUEVPAGCHEPOSVNUMCUEEPOSEXTIPOXHORA1XTIPOCVXCUENTA_ORIGENXFORMXMAXFORMCONSXRESTE_TRANSFERENCIANUMCUEPOSCHQ_2P_SYSTEM CHEQUES_2VALORESTERCCUITCLIENTES INSCRIPCIOEMISORNOMBREMARCADOCLIENTEECHEQUECODIGOCOD_CLINUMEROCOD_CUEDES_VALP_LOCALCUENTASATRIBUTOCUENTAFORIDUMONEXTCAJ_PROIMPORTE DIF_VALOR TE_DEPOSITOPOSICIONZXNUMEROFXCOD_PRO XOTRO_PROCENTRODEBICREDIXHORA2 FN_CLEARINGIDX04AAASYS_MOSTRAR_SCREEN REGISTRARUNUSE_TE_TRANSFERENCIAP_CODEMPGES T T T TG(\data\CCZT\data\CCZ%CejerconFQ-Q\data\CCZ\ejercon T a co_aut  % %CodiariogF Q%C oconceptoEFQF QC\diariog F!QC \concepto%CoCHQFQ4Q\data\CCZ\chqID%C oCOM_OPERFQ;Q\data\CCZ \com_operoper%CoCHEQUESxFQ2Q\data\CCZ\chequesG(\data\CCZT\data\CCZ%CejerconFQ-Q\data\CCZ\ejercon T a co_aut  % \ %CddiariogFQ%C dconceptoFQF QC\diariogF!QC \concepto%C dVEN_OPER7FQ3Q\data\CCZ \ven_oper%CdCHQFQ4Q\data\CCZ\chqID%C dCOM_OPERFQ;Q\data\CCZ \com_operoper%CdCHEQUESNFQ2Q\data\CCZ\cheques TaF~ nF!G((numero E"%C4c,%#!$%!&  _NCEl nmero de cheque CC"Z ya existe en esta empresa !!!' T-!F%X T()trsac(cons dcom_operdchequesddiariog dconcepto ocom_operochequesodiariog oconcepto dven_operochqdchq%(J T(M+trsac(Te_transferenciaTransferencia entre empresas. T a%(T C,%  T( T( 0T(M-trsac(Te_transferenciaTransferencia entre empresas. %.(  9 C3Se ha registrado la transferencia con los asientos CC@z 999,999,999,999_ (Destino) y CC@z 999,999,999,999_ (Origen)' T/ T   7C*El ejercicio de destino es inexistente !!!'  7C*El ejercicio de destino es inexistente !!!'BU0XOPAGO XDASIENTO XOASIENTOXCUENTANUMCUEP_SYSTEMXEMPRESAP_SERVEREJERCON XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHAODIARIOG OCONCEPTODIARIOGDIRCONCEPTOOCHQID OCOM_OPEROPEROCHEQUESP_CODEMPDDIARIOG DCONCEPTO DVEN_OPERDCHQ DCOM_OPERDCHEQUESXOKVALORESMARCADOCHQNUMERODES_VALDESCRCAJ_PROIMPORTEMENSAJEAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORTTS_ID#CTransaccin Suspendo?a TaF#)FG((asiento#6TG((asi_ma#6TFG((asiento#6T G((asi_ma#6T F #6 T  T  T TF~ %C4CIdu vaco en cheque CCZ !!!T!TF G((idu EF !>C @z 9999,999,999_ >> >>>2>CC  6!" T>#$>%$ >&>' Transferencia >() >* >++ >, >->>.. >/C$>01 >1>2L7>345672.>89!:  > F>;<CC  6!" T$$=L>(&  ?@40C/C$AB8..6TCC  6!" TFdC co_funciones oconcepto  Transferencia de ValoresFT>;<$E=L>(&  ?@40E/C$ATransferencia de ValoresB8 T T TF TGF!T C@z 9999,999,999_F~ T TH%H}cC3No se pudo asignar un subnmero correcto al cheque C (CCZ) !!! T!FI G((IDECZCZ%C4)%CCIZCZdchqid (K\tmp\LFMK\tmp\L HCNo tiene imagen en CHQ: C (CCZ) !!! T!F G((idu EFN!>C@z 9999,999,999_ >> >>>3>CC  6!" Tc>#$>%$ >&>' Transferencia >() >* >++ >, >-> >.H >/C$>01 >1>2L+>3567/>89!:  c >F>;CC  6!" T<$$=L>(&?@40C/C$AB8.H6TCC  6!" TF(K\tmp\LFOK\tmp\L>PN>2L >!>C@z 9999,999,999_>4CX > >.HdC co_funciones dconceptoTransferencia de ValoresFT>;<$E=L>(&?@40E/C$ATransferencia de ValoresB8 T- BUQSYS_MOSTRAR_SCREENTRSACCONSDDIARIOGASIENTO XDASIENTOASI_MA XDASI_MANODIARIOG XOASIENTO XOASI_MAN OCOM_OPERNUMOPAGOXNUMEROFABONAXPASEVALORESMARCADOIDUMENSAJENUMERO TTS_ERROROCHEQUESCOMPROBPASEORDENFEC_RECXFECHADES_VAL DIF_VALORCAJ_PROXMONMONEXT XCOEF_CRE XCOEF_DEBCUENTACOD_CUECUENTA2FECHADES_PROVCOD_CENCENTROOPAGOEMISIONAGENTECOMISIONSUBNUMHOYTIPO OPERACIONCAUSAOCODIGOCODIGOOCOMPROBOPASEOCAUSAMONEDACOEFICMONPASEDEBITOCREDITOPOR_QUECAUPROCLINOMBRE COMENTARIOCAMBIOREGISTRAR_CONCEPTO CO_FUNCIONESXCUENTAXOPAGO NUMRECIBOXSUBNUMOCHQIDP_LOCALXBORRARDCHQ DCOM_OPERDCHEQUESFLAG%CIDX04 9"Q\idx04idx04%Ccuentas sQcuentascuenta%Cchq Qchq%Cempresas Q \empresas%CCONS Q\CONSF#)BUP_COMMONIDX04CUENTASCUENTACHQP_SYSTEMP_PRIVCONS4 FG((IDCHEQ(EC ZCZ%C4 FG((IDCHEQ6-C ZCZC ZCZ S %C4 !% B   BU XNUMEROZY DVEN_OPERIDCHEQ DCOM_OPERNUMEROSUBNUMPROPIO-%Codiariog$FQ%C oconceptoMFQ%C oCOM_OPERvFQ%CoCHEQUESFQ%CddiariogFQ%C dconceptoFQ%C dCOM_OPERFQ%C dVEN_OPERAFQ%CdCHEQUESiFQ%C CHEQUES_2F Q%Cchq_2F Q%CchqF Q%CochqF Q%Cdchq"F QBUODIARIOG OCONCEPTO OCOM_OPEROCHEQUESDDIARIOG DCONCEPTO DCOM_OPER DVEN_OPERDCHEQUES CHEQUES_2CHQ_2CHQOCHQDCHQ registrarX transaccion open_files. get_subnumE0unuse_te_transferencia1rAA21bAAAAQRBB1rQ1B12A12A1B1A2VbqAAqAAqAA2 ArArrarrrrAA1B12A12A1B1ABB22uv!!ArBqAAC3qAAqAAqAArrRqAAAqAAqAA!qAAqAAqAArrqAA1RqAAAqAAqAA!qrAAAqA^ 222AA BBAqAqAB32rQrQQrQQsQrBAAArrQ!trQ`qbrABrQ@ rB1AArAqDAArrQ1sQPAbrBrBBrQ0 3r!AARAAbAqQB2qsqrbBAAAAA3qAAqAAqAAqAAqAAqAAqAAqAAqAAqAAbqAABqAARqAARqAAB1/T?/M/M@OjWOQQT%%- 3QeG_ G~(clases<7TC abm_tarjetasNTCU- BUCLASES POABMTARJETAS SOLO_LECTURAACCESOSHOW ges%Ctarjetas <FQtarjetas%Ccostos mF Qcostos%Ccuentas FQcuentasFBUGESTARJETASCOSTOSCUENTASu4 %C _B g9C*Debe estar en el rango 1 - 9999999999 !!!xB-BaUXCODIGO openfilesusr_vld_codigoTTarjetasTtarjetasTTarjetasTdescrTdescrTcodigoTcodigoThlpT abmtarjetas T - U TITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICA abm_tarjetashlpabm2PbrqQB2AAArA 1qqAr5SQQ!!11: [5!'%?5Qp4RG(9%Cproveedo >Qproveedo%Ctarj_cie pQtarj_cie5TTTTte_tarjetas_cierresBU ACTIVEFORM DATASESSIONIDPROVEEDOTARJ_CIEXACT_CIEXACT_VENXPRX_CIEXPRX_VENTE_TARJETAS_CIERRESh4%CBa Z%^FG((codpro E%FG((cod_pro E%C4 rtarj_cie T T T  T  Ba VEC8El proveedor no corresponde a una tarjeta de crdito !!! B-B-UXCOD_PROPROVEEDOCOD_PROCODPROTARJ_CIEXACT_CIEACT_CIEXACT_VENACT_VENXPRX_CIEPRX_CIEXPRX_VENPRX_VENMENSAJEJ T TTTB-UXACT_CIEXPRX_CIEXACT_VENXPRX_VEN9F+>BU TARJ_CIEACT_CIEXACT_CIEACT_VENXACT_VENPRX_CIEXPRX_CIEPRX_VENXPRX_VENtrj_posicionarse trj_copiar actualizarAAAA22111B3qqbqA2rArQqABq221r2qA1L+=1%G% 3'73uX7R: 4 %G(9 /&%CLASESCCClassLibvf iG~(CLASESG+(te_procsG+(listados C<    1d d d d  T "TC Ct Atencion6% Y-CInicio TE_DEBITOS_BAJA :%C \reccue.ges0 C \pagcue.ges0 vC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!! B@ \reccue.ges@ \pagcue.geste_procste_procs%aC+Debe haber alguna cuenta marcada como BANCOC No se puede continuar B%k T T co_funciones%C gC B TTC XTC X TC$TC X T-% k+aF THB  T %te_debito_cuenta_bancaria( HR i! %T % T !  T BC" T te_debito_cheques( Hz> ! %T % T ! > T% g C$ C Suspendo?a% T % Zocuentas&C( &C)\SC)B\S  cuentas_valores T+a ~eT*&C"F, >-aT++C$ %+<C No se han registrado errores !!!   ,CHubo errores !!!  % /*CFin TE_DEBITOS_BAJA BU/XAUTXDESDE_SISTEMA ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILESCADENACHECAJCHQMAXCHQXSOLOLOG XMSGTITULOMENSAJEP_SERVERRESTORE_RECCUERESTORE_PAGCUE PAGMAXCHPP_IMPUESTO_AL_CHEQUEXCUENTA_IMPDEBCREXMSGCUENTA_IMPUESTO_AL_CHEQUE CO_FUNCIONESXFORMXCUENTAXABREVXFECHAXCOMPLEMENTARIAXTODOSXMAXFORMXRESTE_DEBITO_CUENTA_BANCARIASELECCIONAR_VALORESTE_DEBITO_CHEQUES REGISTRARSYS_MOSTRAR_SCREENABREVCUENTAS COMPLEMENTATRIBUTOCUENTAS_VALORESXOKCHEQUES_PROPIOSMARCADOALL T %C xMSGTitulobCTTAtencin T  T TF~%T  T  T a T a co_aut % L T Ttrsac chpdiariogcom_operven_operconcepto%  5CEjercicio inexistente !!! T%  > T Htrsac Te_debitos_bajaControl de Dbitos (Baja) T a% U T TXT C % 9CC!C ZL BAJA CHQ: CCZ CTA: " T  QT  mT H#trsac Te_debitos_bajaControl de Dbitos (Baja)+% $   C!C ZL T -T T% H BT&$Ejercicio inexistente para la fecha C * !!!TC&!%eC;No todos los cheques pudieron registrarse correctamente !!!C Hay CCZ# cheques que no pudieron debitarse. :CCheques debitados: CCZ !!! BU'XSOLOLOG XMSGTITULOXAUTXOPAGOXERRORES XCANTIDADCHEQUES_PROPIOSMARCADOXFECHA DIF_VALORAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTLOCK_GTRSACMENSAJEBEG_TRANXXMSGNEWASIREGISTRAR_DEBITO_CHEQUENUMEROSUBNUMCAJ_PROCUENTACOEFICMONEDAMONEXTMONPASEUNCOMXCOMPLEMENTARIAUSER_LOG PUB_INDEXXABREVEND_TRAN TTS_ERRORTTS_IDXMSG%CCOM_OPER 6Qcom_operoper%Cchp ^Qchp%Cven_oper Qven_oper%Cctasbanc Qctasbanc%Ccuentas QcuentascuentaBUCOM_OPEROPERCHPVEN_OPERCTASBANCCUENTASCUENTA~74    % S T j T  T Ta TCWFG((asiento C#6T FG((asiento E %C4 B> DEBITO DE CHEQUE PROPIO 2F!>L !" #$%&E'C$(CH.N CCZC /CCZ6)*+,-./01%C F2G((cuenta EG((abrev E25 F2G((abrev E T 2F!> L !" #$%&E'C$(CH.N CCZC /CCZ6)*+,-./01@rchp3)6" % ^F7e>89:;<=c3C @z 9999,999,999_ >L"? @A)6BCD&2E6'C$./F,GNH!01F7d>89:;<=3 C @z 9999,999,999_ >L"? @A)6BCD&2E6'C$./F,GNH!01 I F7e>89:;<=c3C @z 9999,999,999_ >L"? @A)6BCD&2E6'C$./F,GNH!01F7d>89:;<=3 C @z 9999,999,999_ >L"? @A)6BCD&2E6'C$./F,GNH!01%I=6TJCCK&6LMd TF>JNL !" #$%&E'C$(CH.N CCZC /CCZ6*+,-./01F7 >8!>C @z 9999,999,999_>OC X>9 >:>;IMP. LEY 25413 ><>=Jc >3N >P >" >? >@ >A >B >C >) >6 >'C$>&6>Q >D>>L > +>,F/.J >01 >!F>J L !" #$%&E'C$(CH.N CCZC /CCZ6*+,-.J/01F7 >8!>C @z 9999,999,999_>OC X>9 >:>;IMP. LEY 25413 >< >=J >3 >P >" >? >@ >A >B >C >) >6 >'C$>&6>Q >D>>L > +>,F/.J >01 >!R TRS co_asientos R%RCRU TV TW- T% VF7G((numero E TX-+C+ ) R*%3= GS J TXa!H FYG((numero E TX-+C+ ) +%3 =c GS  TXa!H%X >ZS YC Imposible !!!UTRError imposible T F T- BU[XNUMEROXSUBNUMXCAJ_PROXCUENTA XDIF_VALORXCOEFICXMONEDAXMONEXTXMONPASEXUNXCOMXCOMPLEMENTARIANEWASIXAUT XFECHA_LOCALXFECHAXAREAXXERRORTRSAC XAREA_ASIDIARIOGASIENTOFILE_LOCCONCEPTOUNTIPO2DEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIONUMERO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEUSR PUB_INDEXCUENTASCUENTAABREV COMPLEMENTSUBNUMCOM_OPERCOD_PROORDENFEC_RECDES_VAL DIF_VALORCAJ_PROCAUSADES_PROVOPAGOEMISIONAGENTECOMISION OPERACIONREFCOEFICPROPIOAPLICP_IMPUESTO_AL_CHEQUEXIMPUESTO_AL_CHEQUECTASBANCCONS IMPDEBCREXCUENTA_IMPDEBCREREM_PROCUENTA2HORASXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERRORXOKENCVEN_OPERDEBITADO4%Cchp 7QchpF G((idEC ZCZ TC4BC4UXRESXCUENTAXNUMEROXSUBNUMCHPID4FG((abrev E ET%Cctasbanc oQctasbancF-%C4 B  BUXABREVCUENTASABREV COMPLEMENTXCOMPLEMENTARIACTASBANCCOD_CUE 4FG((abrev E T %Ccheques_propiosaFQmocom_operXchp C  ZC Z C  ZC ZXccpag Xchqanu C  Z!C!  ZXproveedo cuentas     CQC XQaQ-QQCS  CC(X6Q"#$1S  #S C % =C   6CC3 $&6 C! cheques_propios!%Ccheques_propios2F'QCoven_operXchp (C(  ZC( Z C  ZC ZXcccob (())Xchqanu (C(  Z!C!  ZXclientes (,-,cuentas(( ( ( ( cQ ( (((C)Q(*Q+-Q-Q(,Q-Q(((( (#S C % =C((  (( 6CC3 $&6 C! 1.\tmp\cheques_propios2F$.\tmp\cheques_propios2F'Q&.\tmp\cheques_propios2.*F~LC F T/ T0:1 co_funciones/0CC,g %/B>C33& & & & & 4BU5XABREVXTODOSCUENTASABREVXCUENTACOD_CUECHEQUES_PROPIOSCOM_OPERCUENTANUMEROSUBNUMFECHACAJ_PROCOEFICMONEDAMONEXT COMPLEMENTMONPASECCPAGUN DIF_VALORCOMPLCOMMARCADOCOD_PROCODIGOPROVEEDOCONTADODES_PROVNOMBRECOMPROBCAUSACHPCHQANUTIPOPROPIODEBITADOASIENTOXFECHACHEQUES_PROPIOS2VEN_OPERCCCOBDESCRDCUENTACOD_CLICLIENTESP_LOCALXERRXERRMSGBUSCAR_ASIENTO CO_FUNCIONESCONCEPTOIMPORTE registrar open_filesregistrar_debito_cheque chp_debitado(busca_cuenta_complementaria)seleccionar_valores*AbA!!r!AcAA212AA2"AAA1Q1B12A12A1B1A2"1B12A12A1B1ABB2As5!rREABCAB3CQArAF2QA222AAAB!BBB2A4ARAAAAAAB2qAsQsQA%wQrqBsQrQQsQAtQQsQAB5bsQpqrQtQpqsQBr1AqAAAAqAAAAAA21TAr3qsAAqA2rqAA&qAA1$rArAar2QABA1xk(~O|OP^PRpRa%t:74R_RG(9G~(clasesG+(te_procsG+(listadoste_debitos_baja%Cte_anu Qte_anu<    1d d d d:%C \reccue.ges0 C \pagcue.ges0 ~lC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!B@ \reccue.ges@ \pagcue.geste_procste_procs%LWC+Debe haber alguna cuenta marcada como BANCOC No se puede continuarB TTC XTC X T T T-*te_debito_cuenta_bancaria_alta(FG((abrev E T% CBU ACTIVEFORM DATASESSIONIDCLASESTE_PROCSLISTADOS OPEN_FILESTE_DEBITOS_BAJATE_ANUCADENACHECAJCHQMAXCHQP_SERVERMENSAJERESTORE_RECCUERESTORE_PAGCUE PAGMAXCHPXFORMXCUENTAXABREVXPOSXNUMEROXRESTE_DEBITO_CUENTA_BANCARIA_ALTACUENTASABREVCOD_CUE REGISTRAR %Ccheques_propios+FQdochpCC ZCZC ZCZC ZCcZcheques_propios% QCDNo se ha debitado el cheque, por lo tanto no puede darse de alta !!! % fTCGHay ms de un cheque con el mismo nmero !!! Opcin no implementada !!!  T T a co_aut  % x T` trsacchpdiariogcom_operven_operconceptote_anu% j THtrsacTe_debitos_altaControl de Dbitos (Alta) T a%G TT C% +CCC ZL ALTA CHQ: CCZ CTA:  T CT _THtrsacTe_debitos_altaControl de Dbitos (Alta)+%   ACC ZLNC$Se ha dado de alta el cheque nmero CC@z 999,999,999,999_ YC  T t BC$Ejercicio inexistente para la fecha C * !!!BUCHEQUES_PROPIOSCHPCUENTANUMEROSUBNUMXCUENTAXNUMEROMENSAJEAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTFECHALOCK_GTRSACBEG_TRANXASIENTO TRANSACCIONUSER_LOG PUB_INDEXXABREVEND_TRAN TTS_ERRORTTS_ID TaT TFG((numero E T-+C+  -%  S  T CO TaH% # >  FG((numero E T-)+C+   ~%  S v T CO TaH% # >  %TNo encontro el valor !!!F2- C ZCZ C ZCZ%C4qTFG((FG((FG((M~CCCXLC@z 9999,999,999_N/TAnulacin Dbito Cheque - CCZOte_procs FG((M~C CCXLC@z 9999,999,999_./TAnulacin Dbito Cheque - CCZOte_procs FG((2 C ZCZ C ZCZ  T! T- BU"TRSACXSUBNUMCHEQUES_PROPIOSSUBNUMXXMSGCOM_OPERNUMEROXNUMEROENCCUENTAXCUENTAPROPIOXREGDEBITADOVEN_OPERCHPXASIENTOASIENTODIARIOGFORCONCEPTOFECHACOD_PROCAUSACOMPROBXDETALLECONTROL_ANULACIONESTE_PROCSHOYCAJ_PROMONEDAMONEXTCOD_CLI TTS_ERROR registrarp transaccion9 !!!BrAA212rAArAB3qAAE""B222AAAB!AAAA3rAAAsAAASADs!tararaBAraABra!A1& ?X J%u\6XR4G(9 C T- T TC$ te_anu_rec3T C C$C  C$C 63TC C$C   C$C 62%    % JHCLa fecha debe estar entre el C * y el C* !!!DBLa fecha debe estar entre el C * y el C* !!!%CCMg% -C No hay cuentas de documentos !!!)B No hay cuentas de documentos !!! FG((cudescochequescuentasQQQQQQQQQQQ Q !C"M\S  documentos% + T$ T%V&trsac%ccclieven_operchequesdiariogconcepto%% T%B(trsac%Te_docsTransferencia de Documentos%%pT)C*%)T T% lT% T%B+trsac%Te_docsTransferencia de Documentos T,%%% WYC3Se ha registrado la transferencia con el asiento : CC$@z 999,999,999_ UB3Se ha registrado la transferencia con el asiento : CC$@z 999,999,999_ *B!Error al efectuar la transaccin. '+B"No se pudo iniciar la transaccin. % r-C No hay documentos en cartera !!!&BNo hay documentos en cartera. BU-XAUT ACTIVEFORM DATASESSIONID OPEN_FILESXLOGXMONXFECASIAPERTURA_DE_EJERCICIO TE_ANU_RECXDDFECEJERCONDESDEOCIERRES CIERRE_TRADESXHHFECHASTA CIERRE_TRAHASMENSAJEATRCANCHEQUESCUDESCCAJ_PROCOD_CUENOMBRECODIGODES_VAL DIF_VALOREMISIONNUMEROSUBNUMCOMPROBPASECAUSACUENTASATRIBUTO DOCUMENTOSNEWASIAAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDf C%Ccheques AQchequesche_ven%Ccuentas wQcuenta%Cven_oper Qven_operven_ope%Cven_oper Qven_operven_ope%Cclientes -Qclientescodcli%Cccclie [QccclieBU ABRIR_TABLAS_FIJASCHEQUESCHE_VEN_CUENTASCUENTAVEN_OPERVEN_OPECLIENTESCODCLICCCLIE1F+>Transf. de DocumentoFG((asiento#6T% TG((asi_ma#6T% TF+>Transf. de DocumentoF T T ~!TF E FTF>   LQ>C  C >C$ > >>1 >Transf.de DocumentoF!>C@z 9999,999,999_ >>>  >  c>! >>" >#Transf.DOC-DEU >$>%%>&& >C$>1>'L >7>( )*+' > >FTF>    ,LQ>C  D >C$ > >>1 >Transf.de DocumentoF- >.>" C@z 9999,999,999_'L/0 1 2C@z 9999,999,999_L34567#8C$F9-&& ;;  F BU<CONCEPTOASIENTONEWASIDIARIOGASI_MA NEWASI_MA DOCUMENTOSZACCCLIENTESCODIGODEBITOCREDITOCAJ_PROCOD_CUEPOR_QUECOMPROBPASEFECHAXFECASIPROCLINOMBRETIPOHOYUSR PUB_INDEXCAUARCH COMENTARIOVEN_OPERFEC_RECDES_VAL DIF_VALORCUENTACOD_CLIDES_CLIERECIBOEMISIONNUMEROCAUSAOCODIGOOCOMPROBOPASEOCAUSACUE_DEUCCCLIEMONEDACOMENTARIMPORTEVENCREFCONDLISTAFECREFCUOTACUOSUCCHEQUESFORSUBNUM open_files transaccion[ rR61"AAAAq01#g2!22AA"2QAAAAaAB2AAAAA!AB2qQrQ1AQ1ArQrrrQfrQtrQfsR0rrA2A V '%]@?xTRMG(9G~(clases"G+(listados co_funciones%CborraraQ CTCC Suspendo?a C T - te_saldos( % C FQ  \tmp\.dbf  \tmp\.idx  \tmp\.cdxBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONESBORRAR OPEN_FILESNEWFILESYS_MOSTRAR_SCREENOBTENER_SALDOSXRES TE_SALDOSACTUALIZAR_SALDOSP_LOCALk%Ccuentas 2Qcuenta%Csaldos `QsaldosBU_CUENTASCUENTASALDOSosaldoscuentasQQQQQQ C X C  1 \tmp\ Q \tmp\  BU CUENTASCOD_CUEABREVDESCRSALDOSFECHADEBITOCREDITO ES_FONDOSATRIBUTOP_LOCALBORRAR ~RFApsaldosF& F ~%%Cborrarcod_cue UBORRARSALDOSFECHADEBITOCREDITOCOD_CUEING~(clases"G+(listados co_funciones%CborrarQQ te_saldosTC C CFQ  \tmp\.dbf  \tmp\.idx  \tmp\.cdxBU CLASESLISTADOS CO_FUNCIONESBORRAR OPEN_FILES TE_SALDOSNEWFILEOBTENER_SALDOSACTUALIZAR_SALDOSP_LOCAL open_files#obtener_saldosactualizar_saldosmantenimiento_saldos!rArQCrAB2A!AB3/ B2qBrrQAA2!rABsAB1w'4"}I/f`%r1RZG(9G~(clasesG+(listados TC$ TC$ Tate_mantenimiento(% CR,: Revisando...F G((fechaGGF ECGFG &+C+     F % 1 S % ST T T T T T T T T T T! "T# $T% &T' (T) *T+ ,T- . C/ T T T T cT T! "T+ ,cT- . C0F HF1G((fechaGGF ECGFG &+C+     F1 % 1 S s% "T1T1T1T1 T1 T!1"T+1,T-1. C0 o TT1T1T1T1 cT1T1T1T1T1 T!1"T#1$T%1&T'1(T)12T+1,cT-1. T3CO C/F1G((fecha #3F1H R,:Limpiando archivos...F4>56 R T8N1 aaa=error() T9Qchequeson error &onerr %92B%8NgR,:Optimizando...3R,:Reindexando...T:ST;NT8NT<N=ctrlQ%CVEN_OPERF Q%CCOM_OPERF1Q%CCHEQUESFF4QBR BU? ACTIVEFORM DATASESSIONIDCLASESLISTADOSXDXHXRESTE_MANTENIMIENTO OPEN_FILESVEN_OPERFECHATIPOPROPIOCAJ_PROXCOD_CLICOD_CLIXFEC_RECFEC_RECXDES_VALDES_VAL XDIF_VALOR DIF_VALORXCAJ_PROXEMISIONEMISIONXCOD_CUECUENTAXNUMERONUMEROXSUBNUMSUBNUMXCOMPROBCOMPROBXCAUSACAUSAXASIENTOASIENTOXHOYHOYXPASEPASEXNOMBREDES_CLIEXMONEXTMONEXTXMONPASEMONPASEINGRESOSALIDACOM_OPERDES_PROV REG_COM_OPERCHEQUESTEMPORALFLAGALLXTTSAAAIDXCDXPREGUNTOXPRIV R_CHEQUESCTRLeFG((idcheqEC ZCZ T-&+C+   %  Ta!H% ZF G((idcheqEC ZCZ T-&+C+   F*%  S > Ta!H% vF %C+}T  TCOG((idcheqEC ZCZ T-&+C+   0+% c  S ( Ta!HG((fecha%_ # r#6H% VFte_procs > > > > > > > > > > > > ! >"# >$% >&'>(C] >)* >+,-TE04.PRG'No estaba en cartera, pero se corrigi. Ingreso : C El cheque era el N CC 999,999,999_/CC 999,999,999_ y Descripcin CBU.CHEQUESIDCHEQXNUMEROXSUBNUMOKNUMEROSUBNUMDES_VALXDES_VALXCAJ_PROCAJ_PROCOM_OPERPROPIOVEN_OPERREGISTROFECHA NEW_REG_CHETE_PROCSCODIGOXCOD_CLIFEC_RECXFEC_REC DIF_VALOR XDIF_VALOREMISIONXEMISIONCOD_CUEXCOD_CUECOMPROBXCOMPROBCAUSAXCAUSAASIENTOXASIENTOHOYXHOYPASEXPASENOMBREXNOMBREIDUMONEXTXMONEXTMONPASEXMONPASEREPORTEFG((idcheqEC ZCZ T-&+C+   %  Ta!H%v[ TE04.PRG$No estaba borrado, pero se corrigi. Salida : C   El cheque en uso era el N CC 999,999,999_/CC 999,999,999_ y Descripcin CBUCHEQUESIDCHEQXNUMEROXSUBNUMOKNUMEROSUBNUMDES_VALXDES_VALXCAJ_PROCAJ_PROREPORTEXCOMPROBXCAUSA%CVEN_OPER 9Qven_operven_ope%CCOM_OPER sQcom_operoper%Ccheques Qchequesche_venBUVEN_OPERVEN_OPECOM_OPEROPERCHEQUESCHE_VENingreso salida open_files!yrbaaabq1AAqAAubaaabq1rBAqAArS212AABAABBqAAqAAqAABVB3rqaAAAAsqaAAAAsAqaAAAAAQAABr2T AAA2tqaAAAABA AB3AAAB3.A(G%(1dFRa5TC6T CG+(listados T T+aZ THV   T#te_numeracion_recibos_1(%C ! V   T%C R!U XFORMXRESXMAXFORMXPVXOLDPVP_SUC_RECIBO_SUGERIDA OPEN_FILESLISTADOSTE_NUMERACION_RECIBOS_1WIZARDABMRECIBOS_TALONARIOS 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM^'TCDeyFunc Dey_Func2.prgCnumrecCrec_talUOTDF CHK_OPENEDWIZARD open_files*s"11AA2AABB31r12A12A1r1Aq2qqaq2H$,`= % c|F,OSaG_ G~(clases<7TCabm_tarjNTCU- BUCLASES POABMTEXTOS POABMTARJ SOLO_LECTURAACCESOSHOW ges%Ctarj >FQtarjcodigo%Ctarjregl }FQtarjreglcodigo%Cproveedo FQproveedocodigo%Ccostos FQcostoscodigo%Cbancos :FQ\bancoscodigo%Ccuentas mFQcuentasFBUGESTARJCODIGOTARJREGLPROVEEDOCOSTOSP_SYSTEMCUENTASE CTC]TC]TC]UTHIS TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3= TTUXTMPXTMP1THISFORM TMP_TABLA_1TARJ_HIJAS_ABRIRXCODIGOVTqtarjreglF> T~C % T~CT >%C C   F$ \tmp\ C FQ%  O# \tmp\ .dbfUXIDABMTARJCODIGOTARJREGL TMP_TARJREGLALLXMAXIDIDINDESDEHASTABANCOP_LOCALTHISFORM TMP_TABLA_1 DOS_COPIAR/TC Hijas DOS MaT 'Ctarjregl TMPTABLA2 q tmptabla2 F $ \tmp\ C C TMPTABLA2%C tmp_tarjreglFQ# \tmp\ .dbfUXID ABMCLIENTESCOD_CLISYS_MOSTRAR_SCREENOESPTHISDOS_CONTROLADORESPEJOSABMTARJCODIGO DOS_SETDB_UNO TMPTABLA2P_LOCALTHISFORM TMP_TABLA_1DOS_SETDBBACK_UNO TMP_TARJREGLT'Ctarjregl TMPTABLA2q tmptabla2F$\tmp\C %C tmp_tarjreglFQ#\tmp\.dbfC TMPTABLA2 U XIDABMTARJCODIGOTHISFORM DOS_SETDB TMPTABLA2P_LOCAL TMP_TABLA_1 TMP_TARJREGL DOS_SETDBBACK C TFEcodigo#otarjabmtarjFabmtarj( FQU XCODIGO OPENFILESXTABLATARJCODIGOABMTARJTARJ_HIJAS_ABRIR XRESULTADOTARJ_HIJAS_LIBERAR3TC]%C tmp_tarjreglGFQ TIotarjreglC(XQC 1\tmp\Q\tmp\& ~ #%C bancoscodigo> %CN'#)UXCODIGOXTABLAXTABLA1 TMP_TARJREGLXXXDBANCOTARJREGLCODIGOP_LOCALDESDEORDENBANCOBANCOSDESCRT%C tmp_tarjregl/FQ\tmp\.*UXTABLA TMP_TARJREGLP_LOCAL openfilesINIT hijas_abrir  hijas_guardarHijas_Guardar_DOS_Multipleshijas_guardar_dosk mostrar_tarjtarj_hijas_abrir tarj_hijas_liberar $ Ta%T .nombre, .codigo, .idu 'T "NO USAR", .codigo, .idu TtarjT TcodigoTabmtarj T -'T Tarjetas de Crdito/DbitoT tarjT hlpT codigo TPTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTNTC]TC]TC] T-     UDOS_AGREGAR_SI_FALTA DOS_BLANQUEADOS_BLANQUEA_VALORES DOS_TABLA DOS_COPIAR P_ESPEJA_TARJP_ESPEJA_HABILITARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3DEVabm_tarjhlpabm2 arqQB2bQAAAqAAArAp121115r11AA"ASrArA21A5rrrABqAA14rrAqAA16qrr12rqA7qAA1AA`!QAQ1qqAA2TqA2At1!!111@`@1 &  ,1HX#dN(r} D p!5%+C.M1SgG_ G~(clases<7TC abm_numrecNTCU- BBUCLASES POABMNUMREC SOLO_LECTURAACCESOSHOWJ ges%Cnumrec 8F QnumrecFBUGESNUMRECe4%Cc W1C"Debe estar en el rango 1 - 99 !!!xB-BaUXCODIGO openfilesusr_vld_codigo$("TConfiguracin RecibosTnumrecTcodigoTcodigoThlpT abmnumrec T- TTcodigoT codigoT Cdigo T PT descrT descrT Descripcin UTITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDAORDENTITULO_BUSQUEDAANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_numrechlpabm2brqQBD2ArA1qqAr5&111a111!!: uh9u! %?EZ@dWGS@G(9G~(clasesG+(listados C%CCg0C#El iva ventas est mal definido !!!B-%Ccons QconsF#)5 T%C B-%Cq1F Q%Cq2=F Q T +a5 T C$ T T  T T TTCTCTCTCTC T+a TH7    Tte_cierre_locales_1(%.T#%CcuentasabrevT ! 'DC7Cuenta de ventas mal definida en la sucursal propia !!! TT"#C Suspendo?a$!T%C  ZCZC F& G((id E%%C4 T(T&)"ociecajv'%1Q+dociecajp',-.Q./01234'%1Q6ocom_oper7Q7C XQ8CXQ9CXQ:;cQ2<Q<=Q>C? C;? 6Q@-QA;cQBQCEF.CXC@z 9999,999,999_LG  ) 1QH CI^ociecajd7Q7C XQ8C(XQ9JQJ2Q2-QA'%1QL CM#ociecajpd'%1QOFO ~FH-7O7%C4 %OPOQH2FH>BOP>COQ 2C%Error en importes de registracin !!! &CError de registracin !!! *CRHC Z! %T % T !  T @ FH#)te_cierre_locales_2(F+K(T24Hx<  ! %T  %  T  ! < T , Hd (  { !  % T  % T  ! ( T 7 te_cierre_locales_3(Ho 3   !  % T  % T  ! 3 T  FH TV ~ !CH7cuentascuenta$%C XW Y  TVH2!te_cierre_locales_4(% %C[  TH2  I !  % T  % T  !  T%Cq1 F Q%Cq2B F Q%Cdete F+Q %Cdetper F6Q %Cpag FHQ %Cpag2 FOQ %Cctas"FLQ !BU\ ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESATRCANMENSAJECONSXDTO672BUSCAR_CUENTA_PERCEPCION_BAIRESQ1Q2XUNXFECHAXTOTALXSUBXASIENTOXACCXTMPODEYFUNCNEWFILE_LOCAL_TMPXTMP2XTMP3XTMP4XTMP5XFORMXMAXFORMXRESTE_CIERRE_LOCALES_1XCTA_LOCSUCPROPCTAVENCUENTASCOD_CUEXCENCOD_CENSYS_MOSTRAR_SCREENXIDCIECAJEIDTOTALASIENTOCIECAJVDETCLIENTECUITCAUSALETRACENTRODESDEIMPORTEZETAPERIBCIECAJPDETPERCUENTAABREVDESCRDES_VALCAJ_PRONUMERO DIF_VALORVENCMONEXTCAMBIOCTRLIMPORTE1IMPORTE2COM_OPERCOD_PROCOMPROBFECHAPAGCOMPLETAR_CUENTAS COMENTARIOCIECAJDCTASCOMPLETAR_CUENTAS2CIECAJPDPAG2T1T2 CREAR_TABLASTE_CIERRE_LOCALES_2XCONTROL_PERIBTE_CIERRE_LOCALES_3 XACC_CAJA ES_EFECTIVOATRIBUTOPUNTOTE_CIERRE_LOCALES_4 REGISTRAR C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccheques Qcheques%Cunidades Qunidades%Cccvent Qccvent%Ccostos 0Qcostos%Ccuentas `Qcuentas%Csucprop Qsucprop%Cciecaje Qciecaje%Cciecajv Qciecajv%Cciecajd Qciecajd%Cciecajp PQciecajp%Cciecajpd QciecajpdBUABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCHEQUESUNIDADESCCVENTCOSTOSSUCPROPCIECAJECIECAJVCIECAJDCIECAJPCIECAJPDH T Taco_aut%trsacciecajeciecajvciecajdciecajpciecajpdcom_operchequesdiariogconcepto  &CEjercicio inexistente !!! % ) TP trsacTe_cierre_localesRegistro operaciones de locales Ta%TC % T T TP trsacTe_cierre_localesRegistro operaciones de locales T'%   TaFTSe ha registrado el asiento CC@z 999,999,999,999_% C  % T-B- :B-BaUXNOMSGXMSGXOKAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRANTTS_ID TTS_ERRORXASIENTO_ Ta %CciecajeIDrTF F  F  F  F  %7FFF@CXC@z 9999,999,999_L nFG((asiento#6T FG((asiento#6T T T TF ~%T T T8TC !"#$%C % C% T-B->>&>'rciecajv ()*+,- ."#!&'$()*+,- ."#!&'$%T/&'!srdiariog0123456789:C//c6C//6;LVTA.LOC.: CCC<Z Z: CC.Z}CFCCNCND66 * C0000CC+ZR-C00000000CC,ZR6C$NN=>T/T?"#zrdiariog0123456789:C??c6C??6C@LVTA.LOC.: CCC<Z Z: CC.Z}CFCCNCND66 * C0000CC+ZR-C00000000CC,ZR6C$NN=> %CA $ rdiariog0123456789:C$$c6C$ $6ALVTA.LOC.: CCC<Z Z: CC.Z}CFCCNCND66 * C0000CC+ZR-C00000000CC,ZR6C$NN=>Nrciecaje BCD<EPrconceptoBF VENTA LOCAL: CC<Z9FG~$ rciecajp ()*+, .$G(G)GG*G+G,G G.G$ TH TIFJ~KC Xj FLG((cuenta EJK%J % FJTIIDrciecajpd KMNJKJOJP-rcom_operQKRST657UVWX9:C@z 9999,999,999_J cJKJYJSJZCJS126LC$ILVJ[CJ[J cJ[ J c6=>&rdiariog012345678\[X9:CJ  J 6CJ J c6JKLVTA.LOC.: CC<ZC$NINLVJ[CJ[J J[ J 6=>-%CL^] L_< CH f THL2 T` TIFa!~KC X  rFLG((cuenta EaKFaTIIH $ CL^b CL^] rcom_operQKRST657UVWX9:C@z 9999,999,999_a caKaY2LC$ILVa c=>T``a rdiariog012345678\[X9:Ca  a 6Ca a c6aKLVTA.LOC.: CC<ZC$EINLVa =>Crciecajd K 4aKa a4%`%CH FLG((cuenta EHFJTIIrcom_operQKRST657UVWX9:C@z 9999,999,999_`HEFECTIVO2LC$ILV`c=>rdiariog012345678\[X9:C``c6C``6HLVTA.LOC.: CC<ZC$NINLV`c=> T4No hay cuenta de caja especfica para este local !!!C ـSi hay gastos, debe haber una cuenta de caja sobre la que se cargarn los gastos que tenga asignado el nmero de local/sucursal CC<ZC% Tc T-B-d Tde co_asientosd%d FCd% Td Tc T- T-BaUgXNOMSGXMSGXOKTRSACXIDXASIENTOCIECAJEASIENTOFORIDCIECAJVCIECAJPCIECAJDCIECAJPDDIARIOGCONCEPTOCOM_OPERCOD_PROCOMPROBCAUSAFECHAXFECHAXACC_IVAXACC_VTAXTOTALDETCATIVAXBASE0BASE0XBASE1XBASE2CALCULAR_CIERREIMPORTENOGRAVIVA1IVA2PERIBMENSAJEBASE1BASE2CLIENTECUITLETRACENTRODESDEHASTAZETAXVENTADEBITOCREDITOCOD_CUEPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CENUSRXCTA_LOCXUNXCEN PUB_INDEXXIVAATRCANXDTO672UNTOTALSUBXSUBTIPO2DETPER XCUENTA_CAJAXPASEPAGCUENTACUENTAST1T2IMPORTE1IMPORTE2CAJ_PRODES_VALNUMERO DIF_VALORASIDIAMONEDACOEFICMONEXTDESCRVENCCAMBIOMONPASE ES_EFECTIVOATRIBUTOPUNTO XACC_CAJACTASES_BANCO TTS_ERRORXXMSGFN_CHECK_ASIENTO CO_ASIENTOSf%CZ%CxunbN> T VTFG+( co_funcionesFG((abrev]~C\SC   C C  C FG((cuentaFG-( >   #)BUXXUNXUNPAG CO_FUNCIONESCUENTASABREVATRIBUTOPUNTO ES_EFECTIVO ES_AJUSTEZ_INSERTAR_CUENTACOD_CUECUENTADESCRALLINCTRLgF-%C4 K rpaga ` >aUXINSERTAR_CUENTAPAGCUENTACTRLFG+( co_funcionesFG((abrev3~C\SC uCFG((cuentaFG-( >   #)BUCTAS CO_FUNCIONESCUENTASABREVATRIBUTOPUNTOXUNZ_INSERTAR_CUENTA2COD_CUECUENTADESCRALLINCTRLhF-%C4 L!rctasa a >aUXINSERTAR_CUENTACTASCUENTACTRL#4TCzG? T!TT\(\? )T %C %C  $VB6Los calculos no coinciden, la diferencia es muy alta (CC  Z) !!!T C d 8T  d  % &TC d  d TTC d T %TC T  TC T0%CTO B cB:No coincide el total con la base imponible + impuestos !!!C  Diferencia CC ZU XIMPORTEXNOGRAVXIVA1XIVA2XBASE0XBASE1XBASE2XPERIBXBASE2_MAS_IVAXDIFP_TE_CIERRE_CAJA_DIFXDIF2XFRAC@%C %CDETEQ<h1C(C N N C N N NNNNNNNNN NQ%C z%CdetperQh1C(C  N C N NNN NQ%C %CPAGQh1C C CCNNNN  D!N"LQ C#%C 9%CCTASQ$fh1C C C(%C(N"LQ$ C&U'XTMPXTMP2XTMP3XTMP4XTMP5DETCLIENTECUITCATIVACAUSALETRACENTRODESDEHASTAIMPORTEIVA1IVA2NOGRAVBASE0BASE1BASE2ZETAPERIBDETPERPAGCUENTAABREVDESCRDES_VALIMPORTE1IMPORTE2NUMEROVENCCAMBIOCTRLCOMPLETAR_CUENTASCTAS COMENTARIOCOMPLETAR_CUENTAS2# BCUXDTO672XOKBUSCAR_CUENTA_PERCEPCION" Ta% F%-Cp\S %C4} T |CYLa percepcion IB Dto 672/95 a pagar debe estar asignada a una nica cuenta y marcada con C  (VENTAS) T- BU XPROVXDTO672XOKCONSIIBB_BA IIBB_CABACUENTASATRIBUTOAUXNCOD_CUEMENSAJE TXTPROVINCIA2 open_files registrar transaccioncompletar_cuentas0z_insertar_cuenta2completar_cuentas23z_insertar_cuenta2z4calcular_cierre5 crear_tablasV8buscar_cuenta_percepcion_baires=buscar_cuenta_percepcion'>!qAdArQrQqA2qAA1qAA141AAsr&E!7tqr!CaCBAC1B12A12A1B1A2qQrq1B12A12A1B1A21B12A12A1B1A21B12A12A1B1A2tBAAB2AA1B12A12A1B1ABB2qAA1qAABqAArqAABqAARqAARqAACBB2AAA1AAA!A!A1A1A1A1A1A1AAAC3aA2AAraAqArAs3usrrr3srsrQAsQBrb"AqABT 1s ABrA[ BqarbqFp`aBACqrrAACB`A7B2!qrp`11 qAArAr3qAArcqAsrRB2qqA3qdq1AsrQB2qqA31RRaAta2aaAAB1A2q!AA0A!qA A!AA A!QAiA3Q2~QAE1  %C&O6OgRRRS|S^U%ULV@ sVZK(Z&ayI]aaLa;e% QsS4 !G(9(/G+(listadosG~(clases C%Cte_anu Qte_anuT T /co_anulacion_asientos_tipo2( % C BU XTIPO2 ACTIVEFORM DATASESSIONIDOEXLISTADOSCLASES OPEN_FILESTE_ANUXFECHAXASIENTOCO_ANULACION_ASIENTOS_TIPO2XRES TRANSACCIONH 7%C sch_gastos VQ sch_gastos%Ccuentas Qcuentas%Ccom_oper Qcom_oper 9te_cierre_localesBUXTIPO2 SCH_GASTOSCUENTASCOM_OPER OPEN_FILESTE_CIERRE_LOCALESP T TH+R 7Ytrsac sch_gastoscom_operdiariogconceptote_anuTGastos Schillig 9Rptrsacciecajeciecajvciecajdcom_operdiariogconceptote_anuTCierres de Caja%) TYtrsacco_anulacion_asientos_tipo2.prgAnulacin Asiento T2: %NTC%2% .T JT fTYtrsacco_anulacion_asientos_tipo2.prgAnulacin Asiento T2: %  ,CSe ha anulado correctamente !!! %C  @ Tf BU XRESULTADOAAAXTIPO2LOCK_GTRSACXMSGTRANBEG_TRAN REGISTRAREND_TRAN TTS_ERRORMENSAJE MOSTRAR_ERRORzHj 7+>7 % h F N~  , CXC 9999,999,999_L d (TAnulacin Gastos SCH - Ote_procs          T B 9jF-%C4F T9 % " F N~  , CXC 9999,999,999_L  ,TAnulacin Cierre de Caja - Ote_procs         B T B f T B BUXTIPO2LIQ_ASTO LIQ_FECHAIN SCH_GASTOSXASIENTOCONCEPTOASIENTOTIPO2DIARIOGCOM_OPERFECHAXFECHACOD_PROCOMPROBCAUSAXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXT TTS_ERRORCIECAJEXIDIDCIECAJDCIECAJV4H 7_4C'Error interno. Concepto inexistente !!! 9H 4C'Error interno. Concepto inexistente !!! %CCierre no encontrado !!!BUXERRXTIPO2MENSAJE open_files transaccion registrar mostrar_errorb qA"!A4BC31aA1AAA2BB312 B2222AAAAA31""rBA2r"!!""rBAAB3q1B21A1QAAB1:&#R@Het%=Az=XRS T 'G(9(5%Ccccomp cQcccomp T T T T T  T  T  T  T  T T T T co_compras%C LCB-%CCgTC J%CC gCC6Debe estar definida la cuenta de gastos de tarjeta !!!B- FEC8No debe haber ms de una cuenta de gastos de tarjeta !!!B-%CCsgj U%CCsgSCFDebe estar definida la cuenta de retenciones de ganancias clientes !!!B- QVCHNo debe haber ms de una cuenta de retenciones de ganancias clientes !!!B-%CCqgu U%CCqgNCADebe estar definida la cuenta de retenciones de IIBB clientes !!!B- QPCCNo debe haber ms de una cuenta de retenciones de IIBB clientes !!!B-%<7ocuentasCo\S % TC 3YCLNo esta bien configurada la cuenta de percepcin de IIBB de Buenos Aires !!!B-<7ocuentasCo\S % TC VCHNo esta bien configurada la cuenta de percepcin de IIBB de C.A.B.A. !!!B- 5TCoTCoG~(clasesG+(listados C! T" T#T$C X T%T&CXT'T( T)T*C X T+ T, T- T. T/ T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T: T; T<- T= T>+a_ T?H[ >4 T@!te_resumen_tarjetas_1(@Hl0  @! @%>T>> @%>? T>> @ ! @0 T> >, TB TC-#D co_funciones(BC%C TF TGHsys_consFG(%FC Suspendo?aJT>> @%>? T>> @! @( T> >[%C'] T'(!te_resumen_tarjetas_2(@HW @! @%>T>> @ %>? T>> @7! @W T>%@ C`BUaXTIPO2 ACTIVEFORM DATASESSIONIDOEXCCCOMPXIVA_COMXIVA_NCXIVA_VENXP3337XIMCOM1XIMCOM2XIMCOM3XIMCOM4XDES_COMXREDONXIIXII2MSGASG_COM CO_COMPRASMENSAJEATRCANXCUENTA_GASTOS P_PERIBXPROV ARR_CUENTACOD_CUECUENTASATRIBUTOAUXNXCUENTA_IIBB_BAXCUENTA_IIBB_CABACLASESLISTADOS OPEN_FILESXPVXNUM XLIQUIDACIONXTARJXCOD_PRO XFECHA_REALXFECHA_CONTABLEXSUBXBANCOXGASTOS_TARJETAXIVA21XIVA105XPERCEPCION_IVAXRETENCION_IVAXRETENCION_GANANCIASXRETENCION_IIBB_CABAXRETENCION_IIBB_BAXRETENCION_IIBB_CBAXRETENCION_IIBB_TUCXPERCEPCION_IIBB_CABAXPERCEPCION_IIBB_BAXTOTALXVENTA XDEPOSITADOXRETENCION_IIBB_SIRTACXASIENTOXYA_REGISTRADO XMODIFICAXFORMXMAXFORMXRESTE_RESUMEN_TARJETAS_1XDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXERRXMSGVLD_CIERRE_BALANCESYS_CONSSYS_MOSTRAR_SCREEN ARR_ASIENTOSDISTINCTCONCEPTODIARIOGASIENTOTIPO2FECHAPROCLIABREVCODIGOAUX1NXITEMTE_RESUMEN_TARJETAS_3QXX COMENTARIOYYPASEDEBITOCREDITOTE_RESUMEN_TARJETAS_2 REGISTRAR C%Ccom_oper 8Qcom_oper%Cven_oper jQven_oper%Cproveedo Qproveedo%Ccuentas Qcuentas%Ctarj QtarjBUABRIR_TABLAS_FIJASCOM_OPERVEN_OPERPROVEEDOCUENTASTARJ T Taco_aut%Ktrsaccom_operven_operdiariogconcepto &CEjercicio inexistente !!!%  TQtrsacte_resumen_tarjetasRegistro de resumen de tarjeta Ta%TC % T T TQ trsacte_resumen_tarjetasRegistro de resumen de tarjeta'%   uFCSe ha registrado el asiento CC @z 999,999,999,999_ T  BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHA_CONTABLELOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID| Ta%FFF>   C@z 9999,999,999_L  FG((asiento#6TTCCZ-CCZ% C proveedocodpro CcuentasabrevT1TLIQ.  / C* CT TTCzG? TTCzG? TT !%C  T  T rdiariog"#$ %&'()*+,-C6Cc6.L C$NSP T"#rdiariog"#$ %&'()*+,-C6Cc6C /L C$NSP T"#rdiariog"#$ %&'()*+,-C6Cc6C /L C$NSP %@T"#rdiariog"#$ %&'()*+,C006C00c6Cl/L C$NSP T"#<17ocuentasC2o\S3 1rdiariog"#$ %&'()*+,-4C556C55c66L C$NSP T"#rdiariog"#$ %&'()*+,-4C776C77c68L C$NSP T"#rdiariog"#$ %&'()*+,-C996C99c6Cs/L C$NSP T"#%9/ rcom_oper :;< =>' (?4 C@z 9999,999,999_OTROS9c Cs/3Lrdiariog"#$ %&'()*+,-4C@@6C@@c6Cq/L C$NSP T"#%@ rcom_oper :;< =>' (?4 C@z 9999,999,999_OTROS@c Cq/3Lrdiariog"#$ %&'()*+,-4CAA6CAAc6Cq/L C$N SP T"#%Ac rcom_oper :;< =>' (?4 C@z 9999,999,999_OTROSAc Cq/3L rdiariog"#$ %&'()*+,-4CBB6CBBc6Cq/L C$NSP T"#%Bcrcom_oper :;< =>' (?4 C@z 9999,999,999_OTROSBc Cq/3L TC TD TEFrdiariog"#$ %&'()*+,-4CEE6CEEc6Cq/L C$NDSP CCT"#%Fcrcom_oper :;< =>' (?4 C@z 9999,999,999_OTROSEc Cq/3LDC TCb TD TEGrdiariog"#$ %&'()*+,-4CEE6CEEc6Cq/L C$NDSP CCT"#%Gcrcom_oper :;< =>' (?4 C@z 9999,999,999_OTROSEc Cq/3LDCrdiariog"#$ %&'()*+,-CHH6CHHc6Cr/L C$N SP T"#%Hrcom_oper :;< =>' (?4 C@z 9999,999,999_OTROSHc Cr/3L rdiariog"#$ %&'()*+,-C6Cc6.L C$N SP %@T"#rdiariog"#$ %&'()*+,-C  6C  c6.L C$N SP T"#rdiariog"#$ %&'()*+,-CIIc6CII6L C$NSP T"#%JKCKcuentasabrevrdiariog"#$ %&'()*+,-Cc6C6L C$N SP L%rcom_oper :;< =>' (?4 C@z 9999,999,999_EFECTIVO 2L ;rconceptoMNOCP TPQ co_asientosP%PcCPS TT T-BaUUTRSACXYA_REGISTRADODIARIOGFORASIENTOXASIENTOCONCEPTOCOM_OPERCOD_PROCOMPROBCAUSAXCOD_PROFECHAXFECHA_CONTABLE XLIQUIDACIONXPVXNUMPROVEEDOTARJCOD_CUEXCUENTA_VENTASCUENTAS XCOMENTARIO XFECHA_REALNOMBREXCENTROCENTROXSALDOXGASTOS_TARJETA_21XIVA21XGASTOS_TARJETA_105XIVA105XGASTOS_TARJETA_0XGASTOS_TARJETADEBITOCREDITOPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CENPROCLICODIGOAUX1NXCUENTA_GASTOSATRCANXPERCEPCION_IVA ARR_CUENTAATRIBUTOAUXN PROVINCIAXPERCEPCION_IIBB_CABAXCUENTA_IIBB_CABAXPERCEPCION_IIBB_BAXCUENTA_IIBB_BAXRETENCION_GANANCIASORDENDES_VALCAJ_PRODES_PROVCUENTAASIDIAXRETENCION_IIBB_CABAXRETENCION_IIBB_BAXRETENCION_IIBB_CBAXPRVCODXPRVPASXPRVRETXRETENCION_IIBB_TUCXRETENCION_IIBB_SIRTACXRETENCION_IVAXVENTAABREVXBANCOXTARJTIPO2FEC_PROCXTIPO2XXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROR  T TC Suspendo?a*%  T2T%Una liquidacin debe tener GASTOS !!! B%uTCCZ-CC Z#T LIQ.  / C *%Ctmp_liqs*F QodiariogCCC 99999999999_C C 99999999999_CC vH7B 99999999999_tmp_liqs%CNIF -CC >= %C4; TDTYa registrado en el asiento CCZ C !!! E%Ctmp_liqsqF Q BUXERRXMSGSYS_MOSTRAR_SCREENXGASTOS_TARJETAXIVA21XIVA105 XMODIFICA XLIQUIDACIONXPVXNUM XCOMENTARIO XFECHA_REALTMP_LIQSDISTINCTASIENTO COMENTARIODIARIOGFECHAXFECHA_CONTABLE open_files registrarO transaccionvalidar_resumen_tarjeta9A!AR"qAA1qQqAA1qaqAAqqAAqq!qArq!aqAAAA!1111B12A12A1B1A232rr #RbqbqbqbqbqbqbqbqbqbqbbqbqbqABEBAqA1B12A12A1B1A2A1B12A12A1B1ABB2AC2AAAAAA1AbAC2aA2AAsbBBC3trrsQBbARRA` `Ap` tqpqqA2q A2q ABq ApBq D`Bq A`Bq ApA2q AQ` p cA`2Q As1Ar2r!A21qAA"wQABAqAAA1#'.#kDk9p%2 n SKS T 'G(9(5G~(clasesG+(listados C T T T T CXT T C X T +a TH  T%te_resumen_tarjetas_1(aHL c! % T   %  T   !  T   T T-# co_funciones % T Tsys_cons %^<odiariogconceptocuentas    !P "" #  $  %  %  %  T& T' T!te_resumen_tarjetas_4(%T)C' Z=C0No hay liquidaciones de tarjetas para anular !!!* T  TC* GC,No se pudo abrir el ejercicio para la fecha C * !!!* TH ! L% HT   %  T   !  T % C+BU,XTIPO2 ACTIVEFORM DATASESSIONIDOEXCLASESLISTADOS OPEN_FILESXPVXNUMXTARJXCOD_PROXFECHA_CONTABLEXBANCOXFORMXMAXFORMXRESTE_RESUMEN_TARJETAS_1XDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXERRXMSGVLD_CIERRE_BALANCESYS_CONS ARR_ASIENTOSDISTINCTCONCEPTODIARIOGASIENTOCUENTASTIPO2FECHAPROCLICOD_CUEABREVCODIGOAUX1N XMODIFICAXITEMTE_RESUMEN_TARJETAS_4XASIENTOMENSAJE REGISTRAR C%Ccom_oper 8Qcom_oper%Cven_oper jQven_oper%Cproveedo Qproveedo%Ccuentas Qcuentas%Ctarj QtarjBUABRIR_TABLAS_FIJASCOM_OPERVEN_OPERPROVEEDOCUENTASTARJ T Taco_aut%Ktrsaccom_operven_operdiariogconcepto &CEjercicio inexistente !!!%  TQtrsacte_resumen_tarjetasRegistro de resumen de tarjeta Ta% T TC % T T TQ trsacte_resumen_tarjetasRegistro de resumen de tarjeta'%   bC8Se ha anulado la liquidacin correspondiente al asiento CC @z 999,999,999,999_ T BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHA_CONTABLELOCK_GTRSACMENSAJEBEG_TRANXMSG TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_IDZG+( co_asientos Ta TCa T- BCU CO_ASIENTOSTRSACXMSGCO_ANULAR_ASIENTOXASIENTO open_files registrar0 transaccion A!201Q1B12A12A1B1A232r #2VBAAqA1B12A12A1B1ABB2AC2AAAAAA1AbAC2aA2AAs"BBC3RA1\3 anw%I "2^Y'TG(9G~(clases"G+(listados co_funciones C%C tmp_gastosrFQ%Cq1FQ TC$T C XT CAX T T T C T- C T-+aF T+a THZ < te_gastos_1(% % %C  T  TaF+CN2 #) %C 8!  te_gastos_2(%TCH  T!   T%C !% B!%C tmp_gastospFQ .dbf .cdx%Cq1FQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILES TMP_GASTOSQ1XFECHAXABREV XCOMENTARIOXASIENTO XFECHA_MODXTMPODEYFUNCNEWFILE_LOCAL_TMP XMODIFICACIONCREAR_TABLA_GASTOSXRESXFORMXMAXFORM TE_GASTOS_1 LEER_ASIENTOWIZARD TE_GASTOS_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMh1C(C C CNNN NQ BU XTMPDESCRABREVCOD_CUECENTROLINEAGRUPO SUBCENTROIMPORTE TMP_GASTOS C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccostos Qcostos%Ccuentas QcuentasBUABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCOSTOSi T-%TCC% Ta5co_autold_diagold_conc% 2C%Ejercicio inexistente (anulacin) !!! B T  Taco_aut%&%  = trsac com_operdiariogconcepto Y trsac com_operdiariogconceptoold_diagold_conc #&CEjercicio inexistente !!!%  BT  Te_gastos.prg;T  Gastos variosC - Modificacin6 T trsac   Ta% 'TC%  T  #T  ?T trsac   +%   1aC 9999,999,999_L Gastos Varios te_gastos.prgFCSe ha registrado el asiento CC@z 999,999,999,999_ T Y T BUXMISMO_EJERCICIOXASIENTOEJERCICIO_DE_FECHAXFECHA XFECHA_MOD XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACTRAN_PRGTRAN_TXT XMODIFICACIONBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXTTS_ID T Ta% F3C 9999,999,999_L % F  F   F  F F G((asiento#6T  AF G((asiento#6T Erconcepto  :C%FG((abrev ET T TF~C C TTrdiariog  !"#$%&'(C 6Cc6L)*C$NN+&',%Trcom_oper-./01 "!#2345%(C@z 9999,999,999_)EFECTIVO)2LC$,rdiariog  !"#$675%(Cc6C 6L)*C$NN,% TFG((abrev Ercom_oper-./01 "!#2345%(C@z 9999,999,999_)EFECTIVO)2LC$,rdiariog  !"#$675%(Cc6C6L)C$NN,8 T89 co_asientos8%8C8; T< T T- BU=XERRORTRSACXASIENTOCOM_OPERFORCOMPROBCAUSAFECHA XFECHA_MODXMISMO_EJERCICIODIARIOGASIENTOCONCEPTOOLD_DIAGOLD_CONCUNTIPO2FEC_PROC XCOMENTARIOP_TE_VARIOS_DETCUENTASABREVXABREVXFONDOSCOD_CUEXTOTALXPASE TMP_GASTOSIMPORTEDEBITOCREDITOPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CENLINEAGRUPOUSRXFECHADESCRCENTRO PUB_INDEXCAJ_PROCUENTADES_VALNUMERO DIF_VALORASIDIAMONEDACOEFICMONEXTMONPASECAMBIOXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROR Taco_aut%f"oconceptoq1% :T !odiariogq1#)% S T ~% %COCN/!CcuentascuentaT jr tmp_gastos!C cuentascuentaF > %CCOG1!CcuentascuentaT jr tmp_gastos!C cuentascuentaF > !CFecha incorrecta !!!B- b2C%No es un asiento de gastos varios !!!B- &CEjercicio inexistente !!!B-BaU XRESULADO XRESULTADOSELECCIONAR_EJERCICIOCO_AUT XFECHA_MODCONCEPTOASIENTOXASIENTOQ1TIPO2 XCOMENTARIODIARIOGFECHA TMP_GASTOSXFECHAP_TE_VARIOS_DETCOD_CUEXABREVCUENTASABREVIMPORTEDESCRCENTROLINEAGRUPODEBITOCREDITO COMENTARIOCOD_CENMENSAJEwizardcrear_tabla_gastos* open_files, registrarF transaccion leer_asientot!qAA1qAA11s22AAs7QARBAA2r21A12AAAABBBABqAA112qAAC21r12A12A1r1Aq3 E2AAA!A1AB62R!AABbBaA22AAbBA3r2t1srsrsQCsQBTtBs@`BArp` Bs1A3t"bRarBrrBABqA!qAaqAr1PG cf i g v bz%I%-5%0IXJCT,G(9G~(clases"G+(listados co_funciones te_gastos%Cte_anu Qte_anu%Cq1FQ T C$ T  T -te_gastos_anulacion( %  %Cq1!FQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILES TE_GASTOSTE_ANUQ1XFECHAXASIENTOXRESTE_GASTOS_ANULACION REGISTRAR T Taco_aut%Itrsaccom_operdiariogconceptote_anu &CEjercicio inexistente !!!% $TTe_gastos_anulacion.prg&T Gastos varios - Anulacin T trsac Ta%TC % T T T trsac +%   )CC 9999,999,999_LCCSe ha anulado el asiento CC@z 999,999,999,999_ T  T BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJETRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXXASIENTOTTS_ID TaF9~C 9999,999,999_L +TAnulacin Gastos Varios - O te_procs   FF T- BUTRSACCOM_OPERCOMPROBCAUSAXASIENTOFECHAXFECHAXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXTDIARIOGFORASIENTOCONCEPTO registrar transacciong!B!A2qAAqA2qAAC3aABa22AA2BA3sABtr1*); t% yFcYsTG(9G~(clases"G+(listados co_funciones C%C tmp_ingresostFQ%Cq1FQ TC$T C XT CAX T T T C C T-+aA T+a THQ 5 te_ingresos_1(%% %C  T  TaF+CN2 #) %C 1!  te_ingresos_2(%TCH  T!   T%C !% =!%C tmp_ingresosmFQ .dbf .cdx%Cq1FQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILES TMP_INGRESOSQ1XFECHAXABREV XCOMENTARIOXASIENTO XFECHA_MODXTMPODEYFUNCNEWFILE_LOCAL_TMPCREAR_TABLA_INGRESOSXRESXFORMXMAXFORM TE_INGRESOS_1 LEER_ASIENTO XMODIFICACIONWIZARD TE_INGRESOS_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMh1C(C C CNNN NQ BU XTMPDESCRABREVCOD_CUECENTROLINEAGRUPO SUBCENTROIMPORTE TMP_INGRESOS C%Ccuentas @Qcuentascuenta%Cven_oper rQven_oper%Ccostos Qcostos%Ccuentas QcuentasBUABRIR_TABLAS_FIJASCUENTASCUENTAVEN_OPERCOSTOS T-%TCC% Ta5co_autold_diagold_conc% 2C%Ejercicio inexistente (anulacin) !!! B T  Taco_aut%&%  = trsac ven_operdiariogconcepto Y trsac ven_operdiariogconceptoold_diagold_conc #&CEjercicio inexistente !!!%  T Te_ingresos.prgT ingresos varios T trsac   Ta%  TC% T  T  "T trsac   +%   FCSe ha registrado el asiento CC@z 999,999,999,999_ T  T BUXMISMO_EJERCICIOXASIENTOEJERCICIO_DE_FECHAXFECHA XFECHA_MOD XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORTTS_ID T Ta% F3C 9999,999,999_L % F  F   F  F F G((asiento#6T  AF G((asiento#6T Erconcepto  ;C%FG((abrev ET T TF~C C TTrdiariog  !"#$%&'()Cc6C 6L*+C$NN,&'(-%Trven_oper./012 "!#3456%)C@z 9999,999,999_*EFECTIVO*2LC$-rdiariog  !"#$786%)C 6Cc6L*C$NN-% TFG((abrev Erven_oper./012 "!#3456%)C@z 9999,999,999_*EFECTIVO*2LC$-rdiariog  !"#$786%)C6Cc6L*C$NN-9 T9: co_asientos9%9C9< T= T T- BU>XERRORTRSACXASIENTOVEN_OPERFORCOMPROBCAUSAFECHA XFECHA_MODXMISMO_EJERCICIODIARIOGASIENTOCONCEPTOOLD_DIAGOLD_CONCUNTIPO2FEC_PROC XCOMENTARIOP_TE_VARIOS_DETCUENTASABREVXABREVXFONDOSCOD_CUEXTOTALXPASE TMP_INGRESOSIMPORTEDEBITOCREDITOPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CEN SUBCENTROLINEAGRUPOUSRXFECHADESCRCENTRO PUB_INDEXCAJ_PROCUENTADES_VALNUMERO DIF_VALORASIDIAMONEDACOEFICMONEXTMONPASECAMBIOXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROR Taco_aut%"oconceptoq1% ;=T !odiariogq1#)% S T ~% %COCN/!CcuentascuentaT yr tmp_ingresos!C cuentascuentaF > %CCOG@!CcuentascuentaT yr tmp_ingresos!C cuentascuentaF > 9!CFecha incorrecta !!!B- 5C(No es un asiento de ingresos varios !!!B- &CEjercicio inexistente !!!B-BaU XRESULADO XRESULTADOSELECCIONAR_EJERCICIOCO_AUT XFECHA_MODCONCEPTOASIENTOXASIENTOQ1TIPO2 XCOMENTARIODIARIOGFECHA TMP_INGRESOSXFECHAP_TE_VARIOS_DETCOD_CUEXABREVCUENTASABREVIMPORTEDESCRCENTRO SUBCENTROLINEAGRUPOCREDITODEBITO COMENTARIOCOD_CENMENSAJEwizardcrear_tabla_ingresos/ open_files3 registrarM transaccion leer_asiento!qAA1qAA1122AAs6QARBAA221A12AAAABBBABqAA112qAAC21r12A12A1r1Aq3 E2AAA!A1AB62R!AABbBaA22AAbBA3r2t1srsrsQCsQBTtBsPqp`BArp` Bs1A3r$bRarBrrBCBqAQqAaqAr1O9 bZ _ fv u ~%D%-4%1IYJJT0G(9G~(clases"G+(listados co_funciones te_ingresos%Cte_anu Qte_anu%Cq1FQ T C$ T  T -!te_ingresos_anulacion( %  %Cq1%FQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILES TE_INGRESOSTE_ANUQ1XFECHAXASIENTOXRESTE_INGRESOS_ANULACION REGISTRARC Suspendo?a T Taco_aut%Itrsacven_operdiariogconceptote_anu &CEjercicio inexistente !!!% &T Te_ingresos_anulacion.prg&T Ingresos varios Anulacin T trsac  Ta%TC % T T T trsac  +%  qCCSe ha anulado el asiento CC@z 999,999,999,999_ T  T BUSYS_MOSTRAR_SCREENAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJETRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID TaF9~C 9999,999,999_L -TAnulacin Ingresos Varios - O te_procs  FF T- BUTRSACVEN_OPERCOMPROBCAUSAXASIENTOFECHAXFECHAINXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXTDIARIOGFORASIENTOCONCEPTO registrar transaccion^!b!A2qAAqA2qAAC3raAba22AA2BA3sBsr10); s%-@QT G(9((G+(listadosG+(dey_funcTcs_anular_costos(%CBU ACTIVEFORM DATASESSIONIDOEXLISTADOSDEY_FUNCXFECHACS_ANULAR_COSTOSXRESPROCESAR4%Ccos_cie 3QCOS_CIE%Ccos [Qcos%C,CSe han eliminado los costos !!! GC:Problemas al eliminar los costos, no se han elliminado !!!BUXFECHACOS_CIECOS TRANSACCIONMENSAJE_ T*trsaccos_ciecos%6 TCtrsaccs_anular_costosAnulacin de costos%FF TC trsaccs_anular_costosAnulacin de costos @B  U AAALOCK_GTRSACBEG_TRANCOS_CIEFORFECHAXFECHACOSEND_TRAN TTS_ERRORprocesar2 transaccion]A"!2AB2q1ARAqAB3212vrA2B1 7'%(evVT T TG+( cs_generarG+(listados%Cforincos qFQforincos%Clisprec FQlisprec%Cbienes FQbienescodins%Cbultos F Qbultos%Catributo EFQatributo%Cidx04 FQ \idx04idx04%Cidx02 FQ \idx02idx02%Ccos F QCOS%Cultcos !F Qultcos%Cccformul VFQccformul%Cformulas FQformulas%Cstock F Qstock%Ccfg_lis FQcfg_lis T-TCC$HTCC$ics_sinnombre_fecha(TCCZTC00CCZR%}%CventasFQB%C\usr\pr_plan_ventas__.dbf0<Q\usr\pr_plan_ventas__ + T-%H C y'CEl perodo est daado !!!BUXLISTA XDESCUENTO CS_GENERARLISTADOSFORINCOSLISPRECBIENESCODINSBULTOSATRIBUTOP_COMMONIDX04IDX02COSULTCOSCCFORMULFORMULASSTOCKCFG_LIS XRESULTADOXMESXANOCS_SINNOMBRE_FECHAXCANOXCMESVENTASP_SERVERPROCESARMENSAJE14 T-FG((codigoE T4+C+ ! %N T!  TH% T  T  T  T  T  T%F TCOC   -aF # $C   -  a T &]R, El artculo C C C no tiene frmulas activas !!!BUZXACTCCFORMULCODIGOVENTASBULATRXENCACTIVAXCXCCIEXCANTXMACTXMCIEXMANTFORMULASREGFOR COS_X_FORFORMULACALCULO_TEORICO XCOSTOHOYs4.G+( VE_Funcionesve_funciones_precios  T%)TC CX-a )TC CX-a %T  d %CH =*TCCiCH $ i"TCCiCH$TCCiCH$+T  Cd %CH TCCi$ TCCiCH$  T TCNo existe el precio del    en la lista CC ZF # TCg%cFG((idx04 E%C4  T  Cindice _HC*No existe el tipo de cambio para la fecha C*!!! B UXCODXBULXATRXFEC VE_FUNCIONESVE_FUNCIONES_PRECIOS XVEOPRECIO2XPRECIO_EXACTOP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIO_EXACTOXLISTAVE_OBTENER_PRECIO_EXACTO_V2XPRECIO XDESCUENTOZ XFECULTIMA INDICE_PRECIOMENSAJECFG_LISXMONMONEDAIDX044FG((idx02 E%C4@ T 8C%Indice 3 no encontrado para la fecha C* T BUXFECIDX02XCOEFINDICE3MENSAJE F Tlistados Tlistados%CborrarqFQ%Cborrar1FQh1\tmp\CCC N N N N NNNNNNNNNNNNNNNNNQ\tmp\,& C Z(\tmp\FG((codinsF ~7R,: Artculo : C     !(%"! |T#C$$ T#C$"!$ T% T& T'C!( T)% CXIF*G((codigoE  %C4E T) FG((codins% + E &%,S -S F.G((codigo E   CX T/0 T/0%/s T/@C El factor de    est en 0 !!!1F E   C)Z%C4 FN>        )$T2 ventas.mesCC!ZaT3cantCC!ZT4cCC!ZT5pCC!Z$T6C   #7F REPLACE (xcant) WITH &xvcant >4%/ >56R loborrar Q  Q  Q C Q C Q8C Q9C Q C Q8C Q9CQ CQ8CQ9CQ CQ8CQ9CQ CQ8CQ9CQ CQ8CQ9   1\tmp\'(\tmp\sinnombre_resumenQF'(\tmp\sinnombre_detalleQ \tmp\.dbf \tmp\.idx \tmp\.dbfBU:FORINCOSBORRARNEWFILELISTADOSBORRAR1P_LOCALCODIGOATRBULLINEAGRUPOGRUPOATRCANT1CANT2CANT3CANT4CANT5CANT6C1C2C3C4C5C6P1P2P3P4P5P6BIENESCODINSVENTASZXMES XFECHA_CIEXANO XCOSTOHOY XCOSTOCIE XCOSTOANTPROCESA_PRODUCTO XGRUPOATRATRIBUTOCOD_INS ATRIBUTOSBULTOSSTOCKXFACTORFACTORMENSAJEXVCANTXCANTXCOSTXPRECXPRECIO FN_PRECIOCOST1PREC1procesa_producto fn_precio indice_precio procesar B!AAqAAArArARAAAArAArqAA"AqAAB5qrAAAAAA22qrAAAB213A!AAABAAr2qAA3qrA3rqqrqAAqAArrquAq1AAsAbrB2ArrQBBaaBsABARrBrrBB1P: uuP /%|K-,UTG_ G~(clases<7TC abm_forincosN BBUCLASES POABMFORINCOSSHOWN ges%Cforincos <FQforincosFBUGESFORINCOSh4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGO openfilesusr_vld_codigoaTcodigoT abmforincosTX-T Frmulas de Incremento de CostosTforincosThlpTcodigo T- TPT descrT  DescripcinT descrT C T TcodigoTCdigoTcodigoTN UIDXCLAVE FORMULARIO ANCHO_TOTALTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_forincoshlpabm2brqBD2ArA1q1qAr51Q1!!111: ZO:\ %d#Q-U G(9((G~(clasesG+(listados CTTC T C T +a T H~   T  cs_costos_standard_1( H .! i% eT   % T   !  T  ~ F#)FG((fecha#6+C  = H TTC]h1\tmp\CNNNN NNNC(N Q\tmp\& (\tmp\FFG((codigoFG((codinsG-(C~! F7>"FFG-(G((codinsF#G((fechaGF GECZG GF+C+ $ %CXpFG((borrar E#>#%#&#'#(#)#*#+#+C#%#&#'#(#)#*TF#HF)>CC  6TFG((codigoFG-(C>"FG((codinsFG-( ~%CBIENES+  >% > %->-H -% >  > - > -d%I > ` > 2^C El artculo C no tiene bien definidoC el mtodo de costos !!!. 4C El artculo C no existe !!!.R F%/Y & Cg(\tmp\ & (\tmp\ cs_costos_standard_2( Hz  !  %  T   C % ? T   Z ! z T %  C1 C2BU3 ACTIVEFORM DATASESSIONIDOEXCLASESLISTADOS USE_FILESXFECHAXTMPODEYFUNCNEWFILE_LOCAL_TMPXTMP2XFORMXMAXFORMXRESCS_COSTOS_STANDARD_1ULTCOSFECHAXOLDFECBORRARP_LOCALCOD_INSTIPOANTERIORPPPP_CANTPP_ACCUULTNUEVODESCRLINEABIENESCODIGOCODINSEST_ACTCOSTOCOMPRASFEC_COMCOS_LIFODES_INSDESC2DESC3DESC4DESC5 RECEPCIONALLTIPO_COSMENSAJEP_NUMINSCS_COSTOS_STANDARD_2 REGISTRAR UNUSE_FILES%Cbienes 5Qbienesdescins%CULTCOS cQultcos%CCOMPRAS Qcompras%Clineas QlineasR BUBIENESDESCINSULTCOSCOMPRASLINEASEFG(G-(FG(G-(FG(G-(R BUBIENESULTCOSCOMPRASFG((codigoFG(G-(C ~%Cultcos+Prultcos   1>  BU ULTCOSCODIGOBORRARCOD_INSXFECHAFECHACOSTO CODBULATRNUEVO use_files unuse_files registrar A!211B12A12A1B1A2rQvQA rtrQArQurAraxbaaaTqd BqAAtsrQrr1a2Aaa2AAAAAAARuA1B12A12A1B1ACB2AB3A!A1A!ARB2taaraaraaRB3rraQrBAB1UlJ`-%m( 8[UdG_ G~(clases<7TC abm_coscpreNTCU- BUCLASES POABMTEXTOS POABMBANCOS SOLO_LECTURAACCESOSHOW ges%Cbienes 8F Qbienes%Ccos_cpre mFQcos_cpreFBUGESBIENESCOS_CPRE openfilesFTcodigoT abmcoscpre T-+TSeteos de generacin de costosTcos_cpreThlpTcodigo T(TdescrT  DescripcinT descrT C T  T codigoTCdigoTcodigoTNUIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_coscprehlpabm2brqQB2AArA13qQ1!!1112 "%>cC1?`XyU& G(9((G+(listadosG+(dey_funcG+( dey_filtersG+( cs_generar TCTCC]RT CC]RT CXT CXT CX T C$ T T T T- C T+a TH^  C T+cs_modificar_costo_reposicion_1(%TC H ! O%KT % T !  T +cs_modificar_costo_reposicion_2(H +! f%bT % T !  T%C %C tmp_costos/FQ%C tmp_anterior[FQ \tmp\.dbf \tmp\.cdx \tmp\.idx \tmp\ .dbf \tmp\ .cdx \tmp\ .idxBU ACTIVEFORM DATASESSIONIDOEXLISTADOSDEY_FUNC DEY_FILTERS CS_GENERAR XFECHAHORAXTABLAXTABLA2XCODIGOXCOD_PRO XCOD_PROFXFECHA XTIPO_GETXDLINXHLINXCOSTOS_ACTUALES OPEN_FILESXFORMXMAXFORMXRESCS_MODIFICAR_COSTO_REPOSICION_1 INCOTERMS3CODIGO CREAR_TABLACS_MODIFICAR_COSTO_REPOSICION_2 REGISTRAR TMP_COSTOS TMP_ANTERIORP_LOCAL%Ccosimp *Qcosimp%Ccosman XQcosman%Ccos Qcos%Cproveedo Qproveedo%Cbienes Qbienes%Cbultos Qbultos%Catributo @Qatributo%Cstock lQstock%Clineas Qlineas%CGrupos Qgrupos%Ccosult Qcosult%Cidx04 "Qidx04%Clisprec RQlisprec%Cusuarios Q \usuarios%C incoterms Q \incoterms>o incotermsCQ cur_incotermsAr cur_incotermsNACNACIONAL& & & ;o incotermsCQ incoterms3@r incoterms3NAC NACIONALES<r incoterms3---TODOS& %Cidx03 bQidx03>oidx03CfQCfQCOQ cur_monedas:r cur_monedas$PESOS& & & BUCOSIMPCOSMANCOSPROVEEDOBIENESBULTOSATRIBUTOSTOCKLINEASGRUPOSCOSULTIDX04LISPRECP_SYSTEMCODIGOINCOTERMDESCR INCOTERMS CUR_INCOTERMS INCOTERMS3IDX03SIMBOLONOMBRE CUR_MONEDAS %Cbienes 5Qbienes%Cstock aQstockh1\tmp\CCCCP N C N C NNCDNNNNCC(NNNNNNNNN N!N"N#N$N%N&L'N(CQ\tmp\)T*CCbienesN 8C*+CInicializando..., T-FT..t.%C/ ,T.. and bienes.cod_ins=xcodigo%C0 C1 9T..( and between(bienes.linea, xdlin, xhlin)%C2 O.T.. and bienes.cod_pro=xcod_profscan for &xfiltror T--%C-G5CSeleccionando artculos...(CC-Z),T34&%5S 6S WF7~43SF5~43Or tmp_costos(45878CCC6S C76C5S C56C 59S 79S 6( n &%5S 6S F5~43r tmp_costos(458CXCCC5S C56C 59S 6( j &%5S 6S F7~43r tmp_costos(4CX78CCC6S C76C 79S 6( f r tmp_costos(4CXCXCC6( C:#T*CC tmp_costosN 8C*+CInicializando...,FG((codigo T-F)(~C C T--%C-G} 1CDeterminando estado...(CC-Z),F)T;CXF E;%C49 F) >F)>CToma los costos< C:#T*CC tmp_costosN 8C*+CInicializando...,F)& & C=idx04idx04%>/ T- ~T--%C-G< 1CDeterminando costos...(CC-Z), @  @  @  @E@@C@D@@@@ @ D>'CC@ $C idx04.indiceCCC@ DZ6F)%C D%F))"C)proveedocodproF)>FFGG((codigoF)% > NAC 'C) cur_incotermscodigo> G^>   !"#$% CGuardando copia...,F)(\tmp\G((codigo C:BUI XTABLATMP XTABLATMP2BIENESSTOCKP_LOCALCODIGOBULATRDESCRTIPOTIPOTXTMONEDAMONTXTCOSTOFACTORCOD_PROFECHALINEAGRUPOEST_ACTTIPO_ART COD_PRO_ONOMBRESUBGRUPOTIPO2MONEDA2COSTO2FACTOR2 DESCUENTODESC2DESC3DESC4DESC5 DESCUENTO2DESC22DESC32DESC42DESC52UPDCAMBIOCODALT1 TMP_COSTOSXMAX ESTADO_INI ESTADO_INCXACCXFILTROXCODIGOXDLINXHLIN XCOD_PROFXCODCOD_INSBULTOS ATRIBUTOSATRIBUTOCLAVEACTIVO ESTADO_RELXCLAVESYS_MXFECHAXCOSTOS_ACTUALESAAATMPXFILT XTIPO_GETXCOD_PRO XFILTROPROVCOSORIPROVEEDO CUR_INCOTERMSALLc C"CRegistrando costos...%C tmp_anterior^FQ%CborrarFQ Q\tmp\o tmp_costos tmp_anterior                     tmpcostos2% 5 C &CSeleccionando listas...aa C<IocosimpCCgC T T999999999999% sTCC Z TC Z T T Ta TAtrsaccoscosmancosimpbienes% TQtrsacCs_modificar_costo_reposicionReposicin de costos Ta%C!"# T%CFin transaccin CZaaQ$trsacCs_modificar_costo_reposicionReposicin de costos%% 8C+Hubo un error. No se ha registrado nada !!!& GC Transaccin: CC Costos modificados: CCZ& T' 1)CFall el lockeo de datos !!!&C Terminado aa C(BU) XTABLATMP ESTADO_INI ESTADO_INC TMP_ANTERIORBORRARP_LOCAL TMP_COSTOSCODIGOATRBULTIPOMONEDACOSTOFACTOR DESCUENTODESC2DESC3DESC4DESC5 TMPCOSTOS2OBTENER_LISTAS_ACTUALIZABLES ARR_MAX_OPRCOMPROBCOSIMPCAUSA XOPERACIONACCAAA XRESULTADOLOCK_GTRSACBEG_TRANACTUALIZAR_COSTOSXFECHAXCOD_PRO XFECHAHORAEND_TRAN TTS_ERRORMENSAJETTS_ID ESTADO_RELTC TC Desconocida -TCloguear_precios sys_log.prgTCDInicio de la registracin de precios (cs_modificar_costo_reposicion)STC(loguear_costos_ingreso_costos_reposicion sys_log.prgCEC/Ingreso de costos de reposicin - transaccin: CC a%C Cur_Listas  C F CC TMPCostos2N CActualizando ...aa ~f.C Actualizando CC TMPCostos2OZaa T cs_generar     C D     T C         C D     T C   %DALJ%Cusuarios Q \usuariosCusuarioscodigoT !"F# ~:F$G((lisxcli,E   C#&ZCX%C4 Frlisprec&#&    %a6>%C#g$C#g$ '  w9%#(#(C#g   s>$)  d  d  d  d  d $*d CC#g  '6' '+C$, abm_lis_pre$$$#& Precio: CC$)Z,Reclculo por ingreso de costo de reposicinF.G((codins E %C42 >0C2%C#& C  C  .T1fac_lprCC#&Z%replace &bbb with lisprec.precio G G(TF <&CActualizando BienesFastaa 2bienes2U4XFECHAXCOD_PRO XFECHAHORAACC XTABLA_LOG XOPERACION OLOGPRECIOSLOGOLOGLOGEAROBTENER_LISTAS_ACTUALIZABLES TMPCOSTOS2 ESTADO_INI ESTADO_INCXCOSTOAGREGAR_COSIMP CS_GENERARCODIGOBULATRTIPOMONEDAFACTOR DESCUENTODESC2DESC3DESC4DESC5COSTOP_EMPP_SYSTEM PUB_INDEXXUSUARIO_ACTUALUSUARIOSDESCR CUR_LISTASLISPRECLISXCLILISTACAMBIO COSTOBASEPRECIOMARGENFECHA LOG_PRECIOS ABM_LIS_PREBIENESCODINSACTBBBACTUALIZAR_BIENES_FASTBIENES2jTC Cur_Listas %C@ Q#ocfg_lisSUXALIASCFG_LISCOSTOAUTS     %Cusuarioscodigo%Q2TCArtculo Atr Bul T CFecha "T CUsuarioT TipoT Mon. T CCosto!T CFactor T Dto. 1T Dto. 2T Dto. 3T Dto. 4T Dto. 5)T CCosto OriginalC T  T C*T CT CZT CZT CZT C  ZT C ZT C ZT C ZT C ZT CZT CZCBU XTABLA_LOGXTITXCODXBULXATRXFECHA XTIPO_COSXMONEDAXCOSTOXFACTOR XDESCUENTOXDESC2XDESC3XDESC4XDESC5XCOD_PROXCOMPROBXCAUSAXNO_PROY XCOSTO_ORIXTXTUSUARIOSCODIGO PUB_INDEXOLOGLOGDESCRTC.t. %Cproveedo KQproveedo TCWTC]CExportarselect tmp_costos.*, nvl(proveedo.nombre, space(40)) as proveedor from tmp_costos left outer join proveedo on tmp_costos.cod_pro=proveedo.cod_pro where &xfiltro into table (p_local+"\tmp\"+xtmparch) T Q%+CNo hay datos para exportar !!!BG+(listadosG~(ClasesT C ExportacionesN(T CExportaciones_ParametrosN%T Costos de Reposicin T  C CcodigoCdigo CatrAtributo CbulBulto #Cdescr Descripcin CfechaFecha CtipotxtTipo CmontxtMoneda CcostoCosto 'C descuento Descuento 1 #Cdesc2 Descuento 2 #Cdesc3 Descuento 3 #Cdesc4 Descuento 4 #Cdesc5 Descuento 5 CcambioCambio CfactorFactor %C proveedor Proveedor T C G(9 FBUXFILTROPROVEEDOXAREA XCOMPROBANTEXTMPARCHSYS_MXTALLYMENSAJELISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONID TCH3 C+HX'" [ ]  B[] ' B'' " B"" 2'5CStringify: Texto invlido !!! // B DNBCC* NTCZ%CR.000000BCCZ BCCZ,CStringify: Tipo desconocido !!! BUXTEXTOXVXRMENSAJE STRINGIFY open_files crear_tabla registrar actualizar_costos'obtener_listas_actualizablesg1logear1exportar6 stringifyM<A"!QASQ12"B1B12A12A1B1A21B12A12A1B1ABB3AqAAqAAB3!A!ARAAA!A!AAArA!A!A!ArA1AAArAB2!ArA!(q$AA"AQAbrAqA9BAarA BarA B BAAB2rrArqqArB2raArRBqAA`!A%TrM CBAr!!AqArr1qACAsB2q"qAAqqAA0"br"!A32ARqAABA22vA2RAr # cAxsaA V BBt#RCBBBbaBqArbc2qA421{bA!!BC4qbAAR B2AA$!S1q1111Q B2qA!1b1b1QABBQ11AB1W!1+ 2;pb;N?C@N& 77%C tc_resumen n#Q6\xchg\tc_resumenFA%CCtxt_x/Q6\xchg\tc_resumen"i1 tc_resumen?CQ6\xchg\tc_resumen%CCinver/qQ6\xchg\tc_resumen(i1 tc_resumen@NQ6\xchg\tc_resumenFAG((fechaEC$%C4  >7C$5>8091:2</>3+>;012=012/%C tc_resumen2=FBQFA!(6\xchg\tc_resumen2)Q6\xchg\tc_resumen2BFB& 77FAG((fecha#) TC7 ~ TD7^JEr tc_resumen2JoDesdeH%C+ TF7^JGTHG7E7I(H Wr tc_resumen2789:;<=>?E7IE8G8E8H IE9G9E9H IE:G:E:H IE;G;E;H IE<G<E<H IE=G=E=H IE>G>E>H I H  !FB#)2>?C00CCC7HZR/CCCC7iZR#62>?C00CCC7HZR/CCCC7iZR>>?C00CCC7HZR/CCCC7iZRC7%FAQFBQ1K gs_comienzoBUMP_TC_INV_VAL_TIPP_TC_INV_VAL_MONP_TC_STK_VAL_NEGP_EMP ACTIVEFORM DATASESSIONIDSETS OLD_P_CODEMPP_CODEMPXDATOS_CONTABLES XINVENTARIO XTESORERIA XINVERSIONESXDEUDAS_CLIENTESXDEUDAS_PROVEEDORESXCOMPRASXPEDIDOS XPEDIDOS1XORDENES_DE_COMPRA XIVA_VENTAS XIVA_COMPRAS XACTUALESXRESP_DEV TC_GENERARXDS1XDS2XODS2P_DOSP_UNOSET_DS2GESSET_DS1SUMAS_Y_SALDOSINVENTARIO_ACTUAL_VALORIZADOMOVIMIENTOS_DE_TESORERIA INVERSIONESFACTURAS_A_COBRARFACTURAS_A_PAGARPAGOS_CON_IMPUTACIONESINVENTARIO_VALORIZADO_HISTORICOCUENTAS_CORRIENTES_CLIENTESCUMPLIMIENTO_DE_PEDIDOS!CUMPLIMIENTO_DE_ORDENES_DE_COMPRAPEDIDOS IVA_VENTAS IVA_COMPRASXTOTAL_INVENTARIOXSALDO_CLIENTESXSALDO_PROVEEDORESXSALDO_TESORERIAXTOTAL_GASTOS_CONTADO TOMAR_DATOSTC_MAINP_SERVERFECHACLIPROTESPOS1INVPOS2GASTXT_XINVER TC_RESUMEN TC_RESUMEN2XFECHAXDESDEODESDEXHASTAOHASTAXDIASZFOR OPEN_FILES GS_COMIENZO G(%=T\data\CCZ fT\data\CCZ G( TBUXDS1P_DOSP_SERVERP_SYSTEMP_UNOP_CODEMP OLD_P_CODEMPa%V G(T\data\CCZ G( TBUP_DOSXDS2P_SERVERP_SYSTEMP_CODEMP %C ejercicios-FQ%Cejercon ]Qejercon TC$%T2 T3select * top &xtop from ejercon where between(xfecha, desde, hasta) or desde<=xfecha order by desde desc into cursor ejercicios readwrite F T ~ T co_funcionesL co_sql_balanceexp_sumas_y_saldos_CCZ  %Ccen_refu Qcen_refu%Ccostos ;Qcostos%Css_antescFQ=Q\xchg\exp_sumas_y_saldos_CCZF(\tmp\ssQ\tmp\ssFi1ssCi1ssC(F ~v^J T T T T T T T T T T T F T!~""FG((codigo E $F_J$>"%%&>" $'' (d )) (d ** (d ++ (d ,, (d -- (d .. (d // (d 00 (d 11 (d 22 (d T'T)T*T+T,T-T.T/T0T1T  2 T!CO%!=F #!>'''>)))>***>+++>,,,>--->...>///>000>111>222  rF_J>"%FQF4(\xchg\exp_sumas_y_saldos_CCZQA  co_sql_mayor exp_mayor_CCZ  %Ccen_refu 3Qcen_refu%Ccostos aQcostos%Css_antesFQ4Q\xchg\exp_mayor_CCZF(\tmp\ssQ\tmp\ssFi1ssCi1ssC(F ~\ ^J T4 T5 T6F T!~"7 FG((codigo E $F_J$>7%%&h>7 $88 (d 99 (d :: (d ;;: (d T448T559T66: T!CO%!# F #!>8884>9995>::::>;; X F_J>7%FQF+(\xchg\exp_mayor_CCZQ!F<QF=QFQFQBU> XACTUALES EJERCICIOSEJERCONXFECHAXTOPZCO_ABRIR_TABLAS CO_FUNCIONESDIR EXPORTAR_1CO_SQL_BALANCEDESDEHASTACEN_REFUCOSTOSSS_ANTESP_SERVERP_LOCALSSCEN_ORICEN_ORIDOSS XANT_DEBE XANT_HABERXANT_SALXDEBEXHABER XDIR_DEBE XDIR_HABER XSAL_DEBE XSAL_HABERXSAL_PERXSAL_FINXREGCENTROCODIGODESTINOCENDESCRDESCRANT_DEBEPOR ANT_HABERANT_SALDEBEHABERDIR_DEBE DIR_HABERSAL_DEBE SAL_HABERSAL_PERSAL_FIN CO_SQL_MAYORXDEBITOXCREDITOXDIFCOD_CENDEBITOCREDITODIFSALDODIARIOGCONCEPTOVOsql_rptinventarioactual#exp_inventario_valorizado_por_listaBU EXPORTAR_1SQL_RPTINVENTARIOACTUALP_TC_STK_VAL_NEGWte_sql_movimientosexp_movimientos_de_tesoreriaCCC$i$C$-%Cexp_movimientos_de_tesoreriaFQBU EXPORTAR_1TE_SQL_MOVIMIENTOSEXP_MOVIMIENTOS_DE_TESORERIAP6(C 6%Z C n C<cm_sql_facturas_a_pagarexp_facturas_a_pagar C% E(Q\xchg\exp_facturas_a_pagar? \data\CCZ\xchg\exp_facturas_a_pagar.dbfQBU ZP_DOSP_CODEMPP_UNOSET_DS1SET_DS2 EXPORTAR_1CM_SQL_FACTURAS_A_PAGARP_SERVERP_SYSTEME>ve_sql_facturas_a_cobrarexp_facturas_a_cobrarBU EXPORTAR_1VE_SQL_FACTURAS_A_COBRARf_cm_sql_pagos_con_imputacionesexp_compras_detalleC$C3 $BU EXPORTAR_1CM_SQL_PAGOS_CON_IMPUTACIONES%Ccons &QconsF#)TC$mTCCDTCCiCH$#TCCiCH$ Ta T-+C$in_sql_movimientos$exp_inventario_historico_valorizado_CCCiCH$CC66  %:BQ *\xchg\exp_inventario_historico_valorizado_C 8( )\xchg\exp_inventario_historico_valorizado=Q )\xchg\exp_inventario_historico_valorizado i1inv D T- ;Q )\xchg\exp_inventario_historico_valorizado G *\xchg\exp_inventario_historico_valorizado_C.dbf> C Q%!%C$!%CH @TCCi $ %CH zTCCi$ !TCCiCH$%C$ Ta TC$7Q )\xchg\exp_inventario_historico_valorizado<  J(Jo#exp_inventario_historico_valorizado <) tmp_tdCo#exp_inventario_historico_valorizado <) TC  ( (TFF& ;( ,\xchg\exp_inventario_historico_valorizado_tdQ( 2o#exp_inventario_historico_valorizadoCCC NO DEFINIDA(6QCC  6QCC  6QCC  6QCC  6QCC 6QCC 6QCC 6QCC 6QCC 6QCC 6Q CC 6Q!CC 6Q" C 1 +\xchg\exp_inventario_historico_valorizado_tCCZQF:Q ,\xchg\exp_inventario_historico_valorizado_t1;( ,\xchg\exp_inventario_historico_valorizado_t0>Q ,\xchg\exp_inventario_historico_valorizado_t0#( L B +\xchg\exp_inventario_historico_valorizado_tCCZot0CQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"1 +\xchg\exp_inventario_historico_valorizado_tF#Q( J +\xchg\exp_inventario_historico_valorizado_tCCZ.dbf ( o#exp_inventario_historico_valorizadoCCC NO DEFINIDA(6Q$%&'CC  6QCC  6QCC  6QCC  6QCC 6QCC 6QCC 6QCC 6QCC 6QCC 6Q CC 6Q!CC 6Q" C$%&'$%& 1 ,\xchg\exp_inventario_historico_valorizado_atCCZQF;Q -\xchg\exp_inventario_historico_valorizado_at1<( -\xchg\exp_inventario_historico_valorizado_at0?Q -\xchg\exp_inventario_historico_valorizado_at0#( C ,\xchg\exp_inventario_historico_valorizado_atCCZ%ot0$%&'CQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"$%&'1 ,\xchg\exp_inventario_historico_valorizado_atF#Q(  K ,\xchg\exp_inventario_historico_valorizado_atCCZ.dbf BU(CONSZOCIERRESCIERRE_STK_INIXINICIALXACTUAL EXPORTAR_1IN_SQL_MOVIMIENTOSP_TC_INV_VAL_TIPP_TC_INV_VAL_MONP_TC_STK_VAL_NEGP_SERVERINV FECHA_VALFORZ_ARRDISTINCT#EXP_INVENTARIO_HISTORICO_VALORIZADOTMP_TDZLENDLINEALINEATOTALM1M2M3M4M5M6M7M8M9M10M11M12T0CODIGOATRBULDESCR :ve_sql_cuentas_corrientes exp_cc_cli%C exp_cc_cli |FQ\xchg\exp_cc_cli( m%TC3 $ TC%_o exp_cc_cliCCC NO DEFINIDO(6QCC  6QCC  6Q CC  6Q CC  6Q CC 6Q CC 6Q CC 6QCC 6QCC 6QCC 6QCC 6QCC 6Q1\xchg\exp_cc_cli_res_cli_CCZQ%i TC$F(Q\xchg\exp_cc_cli_res_cli_1)(\xchg\exp_cc_cli_res_cli_0,Q\xchg\exp_cc_cli_res_cli_0( ?0\xchg\exp_cc_cli_res_cli_CCZoexp_cc_cli_res_cli_0CQC Q C Q C Q C Q C Q CQCQCQCQCQCQ1\xchg\exp_cc_cli_res_cli(  8\xchg\exp_cc_cli_res_cli_CCZ.dbf ( %TC3 $ TC%_o exp_cc_cliCCC NO DEFINIDO(6QCC  6QCC  6Q CC  6Q CC  6Q CC 6Q CC 6Q CC 6QCC 6QCC 6QCC 6QCC 6QCC 6Q1\xchg\exp_cc_cli_res_ven_CCZQ% TC$F(Q\xchg\exp_cc_cli_res_ven_1)(\xchg\exp_cc_cli_res_ven_0,Q\xchg\exp_cc_cli_res_ven_0( b 0\xchg\exp_cc_cli_res_ven_CCZoexp_cc_cli_res_ven_0CQC Q C Q C Q C Q C Q CQCQCQCQCQCQ1\xchg\exp_cc_cli_res_ven( 8\xchg\exp_cc_cli_res_ven_CCZ.dbf BU EXPORTAR_1VE_SQL_CUENTAS_CORRIENTESP_SERVERZXFECHACLI_NOMCLI_CODCPBT_IMPM1M2M3M4M5M6M7M8M9M10M11M12 EXP_CC_CLICPBT_FECEXP_CC_CLI_RES_CLI_0CLI_DVECLI_VENEXP_CC_CLI_RES_VEN_0qTCCC$i$Pve_sql_cumplimiento_de_pedidosexp_pedidos_cumplimientoC$BUXDESDE EXPORTAR_1VE_SQL_CUMPLIMIENTO_DE_PEDIDOSqTCCC$i$Pcm_sql_compras"exp_ordenes_de_compra_cumplimientoC$BUXDESDE EXPORTAR_1CM_SQL_COMPRASfTCCC$i$E)ve_sql_productos_pendientes_de_entrega_v3 exp_pedidosBUXDESDE EXPORTAR_1)VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3 CTCCC$i$9ve_sql_iva_ventasexp_iva_ventasC$%s CTCCC$i$9ve_sql_iva_ventasexp_iva_ventasC$ CF"Q\xchg\exp_iva_ventas5\data\CCZ\xchg\exp_iva_ventasQ9\data\CCZ\xchg\exp_iva_ventas.dbfF#Q\xchg\exp_iva_ventasoexp_iva_ventasC00CCCHZR/CCCiZRQ CCCiZRC00CCCHZRQ C  QCQ 1\xchg\exp_iva_ventas_mensualesQFQBUSET_DS1XDESDE EXPORTAR_1VE_SQL_IVA_VENTASP_DOSSET_DS2P_SERVERP_SYSTEMFECHAMESANOANOMES NO_GRAVADOOTROSGRAVADOBASETOTALEXP_IVA_VENTAS CTCCC$i$;cm_sql_iva_comprasexp_iva_comprasC$%z CTCCC$i$;cm_sql_iva_comprasexp_iva_comprasC$ CF#Q\xchg\exp_iva_compras6\data\CCZ\xchg\exp_iva_comprasQ:\data\CCZ\xchg\exp_iva_compras.dbfF$Q\xchg\exp_iva_comprasoexp_iva_comprasC00CCCHZR/CCCiZRQ CCCiZRC00CCCHZRQ C  QCQ 1\xchg\exp_iva_compras_mensualesQFQBUSET_DS1XDESDE EXPORTAR_1CM_SQL_IVA_COMPRASP_DOSSET_DS2P_SERVERP_SYSTEMFECHAMESANOANOMESNOIMONMONCFEXNOGRAVBASETOTALEXP_IVA_COMPRASv C1\xchg\exp_mayor_inversiones_.* C1\xchg\exp_mayor_inversiones_.* C6(C 6 Ta% C  C%Cejercon )Qejercon T C$F-C %C4  co_funciones%Ccuentas QcuentasF T-~Ck\SX co_sql_mayorexp_mayor_inversiones_C  F%C\xchg\exp_mayor_inversiones_C.dbf0%4%C\xchg\exp_mayor_inversionesFQF7Q\xchg\exp_mayor_inversiones_C.(\xchg\exp_mayor_inversionesQ@\xchg\exp_mayor_inversiones_C.dbf T- 5%C\xchg\exp_mayor_inversiones F1Q\xchg\exp_mayor_inversiones@\xchg\exp_mayor_inversiones_C.dbfQ@\xchg\exp_mayor_inversiones_C.dbf 8C+Error !!! No existe el ejercicio actual !!!B- C% )C\xchg\exp_mayor_inversiones.dbf0 ;C\data\CCZ\xchg\exp_mayor_inversiones.dbf0 )Q\xchg\exp_mayor_inversiones@\data\CCZ\xchg\exp_mayor_inversiones.dbfQF8Q\xchg\exp_movimientos_de_tesoreria8%C\xchg\exp_mayor_inversiones.dbf0hF1Q\xchg\exp_mayor_inversionesoexp_mayor_inversionesQQ !"#Q$%Q&'...Q(1)\tmp\tmp_sdfsdfQF&)\tmp\tmp_sdfsdf.dbfBaU*SET_DS1P_SERVERSET_DS2ZP_DOSP_CODEMPP_UNOXFIRSTEJERCONXFECHADESDEHASTACO_ABRIR_TABLAS CO_FUNCIONESDIRCUENTASXHUBO_INVERSIONESATRIBUTO EXPORTAR_1 CO_SQL_MAYORCOD_CUEABREVEXP_MAYOR_INVERSIONESMENSAJEP_SYSTEMEXP_MOVIMIENTOS_DE_TESORERIACUENTADCUENTAFECHACAUSACOMPROBCPBTPROCLICODIGONOMBREDEBITODEBECREDITOHABER COMENTARIOHORASP_LOCALset_ds1set_ds2sumas_y_saldos2Inventario_actual_valorizadoNmovimientos_de_tesoreriafacturas_a_pagarfacturas_a_cobrar!pagos_con_imputaciones!inventario_valorizado_historico"cuentas_corrientes_clientes4cumplimiento_de_pedidos:@!cumplimiento_de_ordenes_de_compra@pedidosA iva_ventas1B iva_compras]E inversionesHaAAA!sAAAABAAAAAAAAAA" B1Ar!AArQAWqAArrrQB}BAABrR!R!sArARbB21AB21AA4qqAA1ArA( rqAA!AqAArqrsrqrrQE~B2rsQtBArArABAA!AqAAArqrsrqrrQEB2rsQtBArArBBBrArArArAB2B2wqAAA2qb2AAAAB2B2K3bAqQb2\ !AqAQABA"BARqQAA#ABtr17qQArB@Q)BB!A ArAAAPP-BB1A0QrAAAB2A2aqA@%B2ABA01AA2aqA@%B2ABA01AAE2B2B2UA22!QAB1` AsAB321aABAj AsAB2rb2A1Arr!1ArbAqAAqAQAAAACqABAAa Csa Ar1?p/+`/)0bcN0P1ljm133{{Q33~3'6S6aTTf.gh2.hi60ii:jpQpuguW,%:VN|U;U4G(9 CCBorrar%CborrarYFQTC%{ocashprovQCHQ CiQ  Q  Q  Q QQQ1 {ocashpromQCHQ CiQ  Q  Q  Q QQQ1Q& >  TCCC$iCC$H$(MTCCH CCiCH $CCiCH$6 E%C4 3rborrar  CHCi%  T-Igs_pronostico_ventas(C Ventas Compras6%UF  oborrarC% %qcashprov qcashpromFG~C K%C Z%C' %]pcashprov       ]pcashprom       V%+qcashprov Rqcashprom G%arcashprov      C] Carcashprom      C]G %Cborrar{FQCBorrarBUXTIPO ACTIVEFORM DATASESSIONID OPEN_FILESODEYFUNC CHK_CLOSEDBORRARNEWFILE_LOCAL_TMPMESMYSEM1SEM2SEM3SEM4TOTALIDUCASHPROVCASHPROMXTESTZXRESGS_PRONOSTICO_VENTASXBORRARXIDU CHK_DELETEDd%1Ccashprovmes YCcashprommesBUXTIPOODEYFUNC CHK_OPENED open_filesrbrqAAs2A1AA#QAr"q1AAAraaQ1A1AA1AAAaArqAAB21AA1O P %c # Vw Y; Vu4G(9 CCBorrar%CborrarYFQTC%'ocashprocCHQ CiQ    Q1 ocashpropCHQ CiQ    Q1Q& B>  TCCC$iCC$H$(MTCCH CCiCH $CCiCH$6 E%C4 3rborrar  CHCi%  T -'gs_cobranza_mensual( % *F " oborrarC"% ##"%qcashproc# qcashprop#FG~C %C +%C' %pcashproc       pcashprop       '%qcashproc #qcashprop %+rcashproc      C] rcashprop      C]G %CborrarPFQCBorrar$BU%XTIPO ACTIVEFORM DATASESSIONID OPEN_FILESODEYFUNC CHK_CLOSEDBORRARNEWFILE_LOCAL_TMPMESMYPOR0POR15POR30POR45POR60POR75POR90POR105POR120POR135POR150POR165POR180POR195TOTALIDUCASHPROCCASHPROPALLXTESTZXRESGS_COBRANZA_MENSUALXBORRARXIDU CHK_DELETEDd%1Ccashprocmes YCcashpropmesBUXTIPOODEYFUNC CHK_OPENED open_files rbrqAAr2 A#1AA#QArr"q1AAAraaQ1 A1AA133AAAaArqAAB21AA1OD%bn~L=V % C aTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcT XXXT  T C$ T  T   TT  T C$%Cq1>FQ%Cq2`FQ%Cq3FQ%Cq4FQ%Cq5FQ%Cq6FQ%Cccclie2FQT   %r3'c:\sistema\2000\gs_estadistica_cobranza( #gs_estadistica_cobranza(%TT\tmp\C]T\tmp\C] Q%C P9C,No se pudieron calcular las estadsticas !!!%aG(c:\sistema\2000BU XFROM_CMD XCONSOLIDADOSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCXEMPRESAXDFECXHFECP_UNOP_DOSQ1Q2Q3Q4Q5Q6CCCLIE2XSE_PUEDE_CONSOLIDARP_CODEMPXRESGS_ESTADISTICA_COBRANZAXTMPP_LOCALXTMP1CICLAR_EMPRESASCALCULARMENSAJEF Qccclieloccclie RA C q10FQF BU CCCLIECOD_CLICOMPROBCAUSAFECHAREFCAUCUOIMPORTEDIASXDFECXHFECQ10 oq1ccclieQQCHQ CiQ  Q  Q   Q  CZ   C Zq2C Suspendo?aoq2  CQCHQCiQCCHCid d6CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQCCHCidC   d  d66CQ CCHCidC     d   d66CQ!CCHCidC     d   d6 6CQ"  q3oq3  CQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"  q4oq4  CC dT6Q%CC dT6Q&CC dT6Q'CC dT6Q(CC dT6Q)CC dT6Q*CC dT6Q+CC dT6Q,CC  dT6Q-CC! dT6Q.CC" dT6Q/ !"q5oq5  %&'()*+,-./C%&'()*+,-./TQ1 !"q6 T3--(4\xchg\estadistica_de_cobranzas C5%Cq1? FQ%Cq2a FQ%Cq3 F#Q%Cq4 F$Q%Cq5 F0Q%Cq6 F2Q B3U6Q1COD_CLICOMPROBCAUSAIMPORTEFECHA FECHA_RECDIAS FECHA_DESPLMESANOCCCLIECPBTCAU_CPBTCUOTA IMPORTE_FCVENCREFCAUCUOQ2SYS_MOSTRAR_SCREENOMESOANOCONTADODIAS_30DIAS_60DIAS_90DIAS_120DIAS_150DIAS_180DIAS_210DIAS_240DIAS_270ANTERIORQ3Q4PCONTADOPDIAS_30PDIAS_60PDIAS_90 PDIAS_120 PDIAS_150 PDIAS_180 PDIAS_210 PDIAS_240 PDIAS_270 PANTERIORQ5TOT_PERQ6XERRORP_SERVEREXPORTAR Ta%CEMPRESAS Y&Q \empresascodigo%2 TFG((codigo#) TaT.t.%,Tinlist(codigo, p_codemp, p_dos)+C+ C  TCO T F!Q \empresascodigo E  ft05 ft05a%Cempresas F!Q \empresascodigoFG((codigo E C %F ( T- F (%Cq1 aQF QF!Q \empresascodigo E F #H T F!Q \empresascodigo E  ft05 ft05a wFG((codigo E C F (BU XCONSOLIDADOXINICIALP_SYSTEMCODIGOXOLDEMPP_CODEMPEMPRESAS XFILTRO_CON REG_EMPRESAXCODLOAD_EMPFT05 DNLD_CUENTASTOMAR_DATOS_DE_CCCLIEQ10XTMPXTMP1Q1 TC]F(\tmp\#)G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN>TEstadstica de Cobranzas - C* - C *T  C CmesMes CanoAo *CimporteCobranza Mensual $Cpcontado % Contado $Cpdias_30 % 30 Das $Cpdias_90 % 90 Das &C pdias_120 % 120 Das &C pdias_150 % 150 Das &C pdias_180 % 180 Das &C pdias_210 % 210 Das &C pdias_240 % 240 Das &C pdias_270 % 270 Das &C panterior % Anterior *CcontadoCobranza Contado *Cdias_30Cobranza 30 Das *Cdias_90Cobranza 90 Das ,Cdias_120Cobranza 120 Das ,Cdias_150Cobranza 150 Das ,Cdias_180Cobranza 180 Das ,Cdias_210Cobranza 210 Das ,Cdias_240Cobranza 240 Das ,Cdias_270Cobranza 270 Das ,CanteriorCobranza Anterior T C G(9 BU XCOMPROBANTEXTMPARCHQ6P_LOCALLISTADOSXEXPXPAR EX_TITULOXDFECXHFECEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDtomar_datos_de_cccliecalcularciclar_empresasexportarBQ2A12B3qAA1qAA1qAA1qAA1qAA1qAAqAA11AAABB2uArA3r0IA ' 7qAA1qAA1qAA1qAA1qAA1qAA2qraA4rQ1AR1AqqqBAAqBtrBAR1rrCB3rR$!AAAaaaaaaa AB1E>hM<tX* ? *%d a xdFuV\ G+(listados%Ccashtipo MQcashtipo%Ccashcue }Qcashcue%Ccuentas Qcuentas%Ccashcfg Qcashcfg%CborrarFQF#)T C h1 \tmp\  C C C C LCNNLLCCLNQ \tmp\ FG((descr~C\S;rborrar  CLIENTES ----rborrar  CLIENTES CONFIRMADOS ---arborrar  CLIENTES (PEDIDOS) ----FG((descr~C\Srborrar   PROVEEDORES ----rborrar  PROVEEDORES (ORDENES DE COMPRA) ----rborrar  PROVEEDORES (IMPORTACIONES) ----FG((descr~C\Sbrborrar  BANCOS --a-FG((descr1~C\SC%\S Prborrar   CHEQUES DE 3 a---FG((descrn~C\SC$\S C\S C%\S C\S r rborrar  CAJA ----F ~8 F%C X --    --   *>F#) Tags_config_cuentas(%H F>CCCZCCZ FQ QcashcueS( QcashcueFQF \tmp\  \tmp\ .*Qcashcue  U!OBAR_GS CASH_ESTADO ABRIR_EDICIONLISTADOSCASHTIPOCASHCUECUENTASCASHCFGBORRARXARCHNEWFILEP_LOCALCLASEABREVCOD_CUETIPOCHEQUESTXTTSVALESBANCOSCENTRODESCRCONFIRMSUBCLASEATRIBUTOCATXRESGS_CONFIG_CUENTASALLOEXCERRAR_EDICION!AA1A1A1ArqAArQ t  01 Cs! 0 0 Cs BsA Bs BrqABsQqrAAQAqArA1%2")6V T%C DCB-G(9 T{2ctrl+a{2ctrl+b{2ctrl+c  F >-gs_adicionales BUXTMPMSGOBAR_GS CASH_ESTADOPUEDE_VER_EDITARMENSAJE ACTIVEFORM DATASESSIONIDOLDVALUECTRLABC ABRIR_EDICIONCASHADICUPDATEDALLGS_ADICIONALESCERRAR_EDICION{2f1 T%CXFG((codpro E%C4kFBa FB-BaUF1XCODPROVPROVEEDOCODPROCASHADICA{2f1 TF > T-BUF1XCODPROVCASHADICSALIRvld_prvhlp_prvT ProveedoresTproveedoT ProveedorTleft(nombre,30)TnombreTcod_proT hlp_objectUTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDhlp_proveedoreshlpsqA"!!raA2QqqqqqAAq2tD1Qa1Aq1"+*J% vYRV T%C lC TB-F #)C Suspendo?a %  > % w%CcashdataFQ%Ccash2pFQ%Ccash2i:FQ Ta FQcashdataQcash2pQcash2iQ  T- gs_comienzo% sTsHa cambiado el tipo de cashflow desde la ltima generacion, por lo que debe tener acceso exclusivo para regenerarlo% hC B-G(9T9 T TcTCXTCXTCXTCXF #)%CxTMPdfecbD* T ITC$CC$)T T  !T" #T$ %T& 'T( )T* +T, -T. /T0 1 T2- T3- 4 T5a" gs_generar(55 G(T9 gs_comienzo%  %Ccash2iFQFQcash2i%7&& C8=CCC8[gZ8 % @&& C8=CCC8[gZ8 I& C8=CCC8[gZ8C9=Totales C9 FQF > %5 gs_generar-2%CcashdataFQ%Ccash2p6FQ%Ccash2i\FQ gs_comienzo :U;XMSGXAUTXTMPDFEC XNO_GENERARXTMPMSGXOKDOFRMOBAR_GS CASH_ESTADO LIBRE_GENERARMENSAJECASHCFGSYS_MOSTRAR_SCREENGENTIPOTIPOLISCASHDATACASH2PCASH2I OPEN_FILES GS_COMIENZO ACTIVEFORM DATASESSIONID OLD_SESSIONMAXTIPO MAXSUBTIPOXDCLIXHCLIXDPROXHPROXDFECXOCLIOCLIXOPROOPROXOVALOVALXOTESOTESXOADIOADIXOIMPOIMPXOPEDOPEDXOOCSOOCSXOPRYVOPRYVXOPRYCOPRYCXPRXREPABRIR_GENERACIONXRES GS_GENERARP_GS_NEWTIPODESCRCERRAR_GENERACION1qArQt2A1qAAqqAAqqAAAAaAqAA"rQQA#!btqAAbbaABrAqAAqAAqqAAqqAAb1%5Q;U6dVV  T%C OCB-G(9 T  T c T  T 5 T CF#)%Cfecha QfechaF#)%C+ T T T TQ<ddC%Ccash2FQ%Ccash2iFQBUXAUT XEXPTOTALESXTMPMSGOBAR_GS CASH_ESTADOPUEDE_VER_EDITARMENSAJE ACTIVEFORM DATASESSIONIDMAXTIPO MAXSUBTIPOXPOSYPOS XTMPBORRAR4ODEYFUNCNEWFILE_LOCAL_TMPCASHCFGFECHAXDFECXCENTROCENTROXDCENDCENXHCENHCENARRPER GS_PERIODOSSHOWCASH2CASH2Ik4%%o0THASTA ELC CC*= %TCC*= ;TCC*=C A C CC*= &%%`0THASTA ELC CC*= %TCC*= ;TCC*=C A C CC*= "0TCC*= A CC*=T T BU XDESDEXHASTAXIDXXD1XH1P_GS_NEWARRCASHCFGTIPOLISPER   TTCFG((comprobR TT  T %Ccash2iF QF Qcash2i3 Q F Qcash2iFQcash2i G((tipoF G(% (%HZ  gs_resumen-3  gs_resumen-5 2 gs_resumen-0 $% gs_resumen-5   gs_resumen% COJO !!!! Suspendo?a/ cash2.I15 ProveedoresF G( BUXAUT XEXPTOTALESOBAR_GS CASH_ESTADOABRIR_VISUALIZACIONXCASHCASHDATACOMPROBXDESDEXHASTAXTIPOCASH2ICASH2TIPOP_GS_NEWCASHCFGTIPOLIS GS_RESUMENSYS_MOSTRAR_SCREENCONSULTACERRAR_VISUALIZACION3%C=12% >aBaUIDMODIFICA5 T T  TCC.[.%C=ICC\gd  C F T -%  gs_resumen-2( %f! gs_resumen-2JTTTMPReporte_cash   T-F %  C FBaUXTMPIDX XTMPTITULOXAUT XEXPTOTALESXVARXIDXXTITULOOBAR_GS CASH_ESTADO ABRIR_EDICIONQUERYBORRAR4 XRESULTADO GS_RESUMENOFRM EX_XLS_ABRIREX_ARCHIVO_SALIDACOMMAND4CLICKRELEASE ACTUALIZARCERRAR_EDICIONCASH2F T%z%Ccashresu QQcashresuF-%]CPError !!! El tipo de visualizacin no tiene dato de ltima columna. [gs_resumen] F% ICCZFT CCC \g T CCC \g vT T BA ".% C I11I156T CCC \g T CCC \g T T BA%CBorrar4IFQTCFHw  CJocashdataC=QCXQCXQQC(XQ    4Ca#CC C66 1 P+ocashdataC=QCXQCXQQC(XQ    !SA  4Ca#CC C66 1 N ocashdataC=QCXQCXQQC(XQ    !N 4Ca#CC C66 1Qi1borrar4"Ci1borrar4#Li1borrar4$C2i1borrar4%Mi1borrar4&Li1borrar4'Ci1borrar4(C(i1borrar4)C%Ccccomp 8Qcccomp%Ccostos fQcostos%Cempresas Q, \empresasF-G((codage%/OF,Q,\data\CC/Z\agente0G((codageF,Q,\data\CC/Z\cccomp1 G((op%CCCCNOTAS QcccnotasF3 G((id%/F.Q,\data\CC/Z \cccnotas4 G((idF ~ %56;"C6empresascodigo>)57%C %+8 Ccostoscodigo>(+9%6: T;(%<Cdc =P * C>cccompopT;*?F- E-F3E@<FK>"C<VFCC<cNCC<dNDC<RRCC<AAJC<LASC<CFClC<OPAWC<PNPBC<IIM-C<NOCC<BPR666666666666 @-A#3#$C3B2=%3B  T;(%<Cdc =P  C>cccomp2opT;1?F0 E-F4E@<F6>"C<VFCC<cNCC<dNDC<RRCC<AAJC<LASlC<CFCWC<OPABC<PNP-C<IIMC<BPR66666666666 @0A#4#$C4B2=%4B%C;  >";[>'C<CFC/C<cNCC<dNDXX666 ; / >'"'>'C'=CC'[%=P Cproveedocodpro>CF%/ F0QF4QF1QF3G-(R BUDCASH2XTIPOTIPOP_GS_NEWCASHRESUCODIGOCASHCFGTIPOLISLASTCOLMENSAJEXIDXXDESDEPERXHASTABORRAR4 XTMPBORRAR4ODEYFUNCNEWFILE_LOCAL_TMPXCASHLOGLOGTXTTIPOCPBTNOMAGECASHDATAIMPORTEOLDIMPOFANTASIAIDFECESTIXCENTROCENTROXDCENXHCENPOSTCOMP CONFIRMARCOMENTAR COMENTAR2MODIFICACOMP2DCENTRODEMPCCCOMPCOSTOSP_SYSTEMAGENTECODAGEP_DOSAGENTE2CCCOMP2OPCCCNOTASNOTAS2EMPRESASEMPABREVCOD_CENDESCRP_CODEMPXCOMP2CAUSAPROCLINUMEROFAC_COM2COMPROBNOMBRENOTAPROVEEDO#4 T-HF C hF G((comprob5EC Z   C ZC Za+C+ NC Z  CZCZC Z   C ZC Z d%CK$C  UF H*   F G((valor-EC Z C  ZC Z%C4"C F G((id25EC  =C ZC ZC Z%C4"CBUXORIGENXORIGEN2XIDXXFECHAXIMPORTEXOLDIMPOXFMANUAL XAJUSTEFEC XACTUALIZACASHDATACOMPROBBORRAR4EMPCODIGOCAUSACUOTANUMEROACTUALIZA_ITEMIMPORTEVALORCUENTANUMSUBNUMID2CLASEANO > > >% zc > C BU XIDXXFECHAXIMPORTEXOLDIMPOXFMANUAL XAJUSTEFECFECESTIFMANUAL AJUSTEFECCAUSAIMPORTE ACT_GRILLA4%C" F 3FTICCZ+replace &aaa with &aaa-borrar4.importe TICCZ+replace &aaa with &aaa+borrar4.importe BUXALIASCASH2AAAXPEROFFSET4%C" F 3FTICCZ#replace &aaa with &aaa-oldimpo TICCZ+replace &aaa with &aaa+borrar4.importe BUXALIASCASH2AAAXPEROFFSETO 45TCC.[.%C=ICC\g 5 CF-F%G~(clasesT Creporte_ventanaN T Previsualizacin ? consulta.frx9< 1? consulta.frx(!"9FR BaUXIDXXDESTINOXVARQUERYCASH2TIPOXTIPOBORRAR4CLASESOCAPTIONSHOWCONSULTAFRX F#CActualizar. Suspendo?a T-n~[  CX      z  TaTCVFCCcNCCdNDCRRCCAAJCLASCCFClCOPAWCPNPBCIIM-CNOCCBPR666666666666 %z H   T% JF *Q \data\CC Z\ccclieF G((comprob=T CCP6Z E '%C4 CZ F)+C+  CZ >H3C% tF Qccclie% %CCCCNotasFQ F,Q \data\CC Z \cccnotas 0%CCCCNotas ,Qcccnotas TCF G((idE%C4>> %%C  Ircccnotas% FFQcccnotas F   % F*Q \data\CC Z\ccprovFG((comprob]T CNP6CCN6ZCZ E -%C4 CZC!Z /+C+  CZC!Z >H3C% F Qccprov V% nF"+Q \data\CC Z\chequesF"G((idcheqEC ZCZ;%C4*C ZC$ZC ZCZ #>3C% RF"Qcheques  % F%,Q \data\CC Z \com_operF%G((idcheqEC& ZC$Z,+C+ & $$ R %''J >!H3C%  F%Qcom_oper  F( G((id25EC =C*ZCZC+Z%C4 T,>->c8C,% ". gs_generar-2cash2R BU0BORRAR4SYS_MOSTRAR_SCREEN XACTUALIZADAMODIFICAORIGENCODIGOCAUSAXCOMPCOMPROBEMPP_CODEMPCCCLIEP_SYSTEMXSEEKCUOTACOD_CLIFECESTFMANUALACTORIGEN2XIDXFECESTIIMPORTE AJUSTEFECCCCNOTASXALIASIDNOTACOMENTAR CONFIRMARCCPROVNUMEROCOD_PROOPCHEQUESIDCHEQSUBNUMCOM_OPERNUMCUENTACASHEXPAID2CLASEANOOLDIMPOVENC TOTALIZAR GS_GENERAR4(#)TPCCZ xd = &aaa HTPCCZ xh = &aaa %C!% B  BUXFECHAAAAXDXHZXPER4F %CCASH2P< Qcash2pF#)TPCCZTCHTPCCZTCBUXDXHXPERCASH2PAAAK4%CxoldimpobL> TTCC[g% @TT( yT T   ,%     uF TICCZ$replace &aaa with &aaa-xoldimpo ( <T T   %%C   8F TICCZ$replace &aaa with &aaa+ximporte BUXIDXXFECHAXIMPORTEXOLDIMPOXPERXDXH OBTENER_RANGOZCASHRESULASTCOLXD1XH1CASH2AAAagregarshowvld_reco consulta query^ actactualiza_item& act_2i'!act_2ia"imprimir" actualizar$ fn_offset"1 obtener_rango#2 act_grilla2sqAurQuAqQQAAxr+bqAAqqAAJ3q1AAb1AAABB3tR21rqAAAAradDbABBbA!ABAAraA2Bq21rAAqABqr2rAArbAr11A11AAqAAA A A A!A!AAr2AAAq2At!ARABB2ArrrArrrfC"ArBBBrB2qAqAqAAraRB21rqQqDBqAAr!A2qQ!ABB2BAB3qqAbB2qqAb1B2urr2rrABrRq4q2"EdqArqAA2BbqAdqAAAAAqQABbqAcqArAA2pAaqA3dqAr2DcqAcqArbAABA2dqACwRDAB!ARB2qRaAarAAB1A2ArrQaAaB21A311311raAAA311SraAAAAB1+ ]I )>as* 3*0T0 23^23Dj/3%4Uv:46f6#S9S]T&wTU5UZ%)Z;IWG(9 TC$ T T TTCXTCX TT BA T a% B%Cfecha QfechaF #)%C+ T T T TQ Cgs_detalle_formFQF Qcash2iF#Qcash2ipoF$Qcash2inpF %CCASH2P Qcash2p%Cborrar4FQFQ\borrar%Ccash2;FQ%Ccash2iaFQ%Ccash2ipoFQ%Ccash2npFQFQBU ACTIVEFORM DATASESSIONIDXFECHAXDESTINOXCASHXCENTROXDCENXHCENXTIPOXHASTA XRESULTADOFECHADCENHCENCENTROGS_DETALLE_TOMA_4_SEMANASGS_DETALLE_FORMBORRARCASH2ICASH2IPOCASH2INPCASH2PBORRAR4P_LOCAL ACTUALIZARCASH2RF>~  Z  BTCVFCCcNCCdNDCRRCCAAJlCLASWCCFCBCOPA-CPNPCIIM6666666666 R,:Actualizando : H\>+ Z  %F*Q \data\CCZ\ccclieFG((comprob#E C ZA%C40 C Z C Z > # gs_resumen T TCcash2iCcash2ipoCcash2inp%F Qccclie Z %~F*Q \data\CCZ\ccprovFG((comprob,E C ZCZP%C4? C ZCZC ZCZ > # gs_resumen T TCcash2iCcash2ipoCcash2inp%F Qccprov Z>FG((comprob)EC =C ZCRP%C4?C =C ZCRC ZC ZCZ : T>># gs_resumen T TCcash2iCcash2ipoCcash2inpR BU BORRAR4ORIGENCAUSAMODIFXCOMPCOMPROBEMPP_CODEMPCCCLIEP_SYSTEMCODIGOCUOTACOD_CLIFECESTFECESTIACT GS_RESUMENORIGEN2XPERANTXPERDES CALCULAR_MOVACT_2ICCPROVNUMEROCOD_PROOPCASHEXPAANOOLDIMPOIMPORTEVENCACT_2IAh 45F#)(C.~TPCCZ xf = &xt %z!% T T#)(C.TPCCZ xf = &xt %!%B T ]TBU XPERANTXPERDESXTXFZCASH2PBORRAR4FECANTFECESTI4%C" F 3FTICCZ+replace &aaa with &aaa-borrar4.importe TICCZ+replace &aaa with &aaa+borrar4.importe BUXALIASCASH2AAAXPERANTXPERDES4%C" F 3FTICCZ+replace &aaa with &aaa-borrar4.oldimpo TICCZ+replace &aaa with &aaa+borrar4.importe BUXALIASCASH2AAAXPERANTXPERDES actualizar calcular_movS act_2i act_2ia 1AArAqQQAAutAAqAArbqAAqqAAqAAqAArAB3tcqAr122QQBbqAcqAr22QQBbqABr22QQBACRB2rSbbAAA2ATbbAAA2AB2qqAbbB2qqAbbB2CA] &%sQXaYXZwN!W.G+(wwBusinessObjectG+(wwUtilsUWWBUSINESSOBJECTWWUTILSL%C9%TCwwValidationErrorsN BUTHISOVALIDATIONERRORSU# C %C z,CError: Unable to open table. BH  hT TCT TC%C |Q%C x4CUnable to open ID table:  %Cj F BT GM( F-CfCf%C4 >('E F%CS2%  D> [ > T F TCO!LOCATE FOR &lcpkfield = lnid2 %C4 Z%CN  #.%CN  # F T Z!%Cd F  S T"C cFileName CnIDOUT%%C sp_ww_NewId 26CUnable to create unique ID.  BTCnID  5 TCpnIda"C pcPKField %C pcIDTableC E%CExecute sp_ww_NewId '',?@pnID f6CUnable to create unique ID.  BTCpnId% +CUnable to create unique Id.  BU LCOLDALIAS LCPKFIELDLNX LCIDTABLE LCIDALIASLNIDLNID2LNRECNOTHISSETERROROPEN NDATAMODECPKFIELDCIDTABLE CIDDATAPATH TABLENAMECALIASIDOSQL ADDPARAMETER CFILENAMEEXECUTESTOREDPROCEDURE CERRORMSG OPARAMETERSVALUEPNIDOHTTPSQLADDSQLPARAMETEREXECUTEGETSQLRETURNVALUE  CTC%L,CLoad failed - no key passed.B-5%N CC BC%C B-H  T LOCATE FOR &lcpkfield = lnpk %C4 ^J % z ^JT  ^J %  ^J(CLoad - Record not found.B-$     5 T% qTCpnPk TATselect * from  where  =?pnPkTC%*%CB-%CN~ ^J % j ^JT  ^J %  ^JCNo match found.B-BaULNPK LNLOOKUPTYPELORECORD LCPKFIELDLNRESULT LCVARTYPETHISSETERRORNEWOPEN NDATAMODECPKFIELDODATALCOMPAREUPDATES OORIGDATA NUPDATEMODEPNPKLOSQLOHTTPSQLADDSQLPARAMETEROSQLCSQL CFILENAMEEXECUTELERROR CERRORMSGB %C9T* C%C eB-Hz4 ?TCSelect  from   where  %  ^J %  ^J T  ^J % V ^J -CGetRecord - Record not found.B-$   4%T T?TCselect  from  where %|%qCB-%CN ^J %  ^J T 0 ^J %  ^J CNo match found.B-BaULCFILTER LCFIELDLISTLORECORD LCPKFIELDLNRESULTTHISSETERROROPEN NDATAMODEQUERYCALIASODATALCOMPAREUPDATES OORIGDATA NUPDATEMODELOSQLOHTTPSQLOSQLEXECUTE CFILENAMELERROR CERRORMSG   C%C :B-% TC%C+CCouldn't create ID. B-  TT THIS.odata.&lcpkfield = lnpk T BaU LLNONEWPK LCPKFIELDLNPKTHISSETERRORGETBLANKRECORD CREATENEWID CERRORMSGCPKFIELD NUPDATEMODE  C%C 3B-HH k ^J :TCselect * from   where 0=1%C B- ^J @%Cselect * from   where 0=1  oC B- ^J%  ^J BaULORECORDLNRESULTTHISSETERROROPEN NDATAMODEODATAOSQLEXECUTE CFILENAME CERRORMSGOHTTPSQLLCOMPAREUPDATES OORIGDATA Ta C% C \B-T %C B-TC x@@! H +H' C7GATHER NAME lorecord MEMO FIELDS EXCEPT &lcskipvars T 'T/LOCATE FOR &lcpkfield = lorecord.&lcpkfield %C47GATHER NAME lorecord MEMO FIELDS EXCEPT &lcskipvars #7GATHER NAME lorecord MEMO FIELDS EXCEPT &lcskipvars  ,QWWSQLTT-(TCCChCFoxProCh\gH( R#TCT C% C >CB-T (T5%pvpk = TRANS(lorecord.&lcpkfield) HCselect  from  where =?pvPk%CB-%CN N TC 9TCC -6%C TC CRESET% C $CB- TTCwwSQLNHx} TC C%CB-T }T5*pvpkvalue = TRANS(lorecord.&lcpkfield) MCselect  from  where  =?pvPkValue%CB-%CN TC 84TCC -6C%yCB- BU LCPKFIELDLLRETVALLORECORD LCSQLCOMMANDLOSQLLOTSQL LCSKIPVARSTHISSETERRORLVALIDATEONSAVEVALIDATEODATAOPENCSKIPFIELDSFORUPDATES NDATAMODE NUPDATEMODECPKFIELDLLUSENAMEDPARAMETERSOSQLLERRORCSQL!SQLBUILDINSERTSTATEMENTFROMOBJECT CFILENAMEEXECUTE CERRORMSGPVPK!SQLBUILDUPDATESTATEMENTFROMOBJECTLCOMPAREUPDATES OORIGDATA ADDPARAMETEROHTTPSQL PVPKVALUE!TCC 6%C ]B-Hr n!TCC 6$%C CfCf T%C F jFQ%C f&CUnable to open  B- C%C  )T CwwSQLNCa %CT %C %C  B-T  %CTC wwHTTPSQLNTT TBaULCFILELCALIASLLFORCERECONNECTLCCONNECTSTRINGTHIS CFILENAME NDATAMODECALIAS CDATAPATHSETERROROSQLENABLEUNICODETOANSIMAPPINGCCONNECTSTRINGCONNECT CERRORMSGCSKIPFIELDSFORUPDATESOHTTPSQL CSERVERURLCSQLCONNECTSTRINGH M%CIQ qT TUTHIS NDATAMODECALIASOSQLOHTTPSQL  C%C :B-T%C lnpk = THIS.odata.&lcpkfield H  DELETE FOR &lcpkfield = lnpk  oAT DELETE FROM   WHERE  =C_TC %kC B- HTC DELETE FROM   WHERE  =C_ % C B- CBaULNPK LCPKFIELDLNRESULTTHISSETERROROPENCPKFIELD NDATAMODECSQL CFILENAMEOSQLEXECUTE CERRORMSGOHTTPSQLGETBLANKRECORD> TCC 6 TCC 6 TCC 6TCV C%C B!%C CC T%CTSELECT *%C FROM% u/T FROM 'C  '  %T FROM C   %CSELECT a T SELECT * TH   %C INTO`"T INTO CURSOR TC &lcselect %C  B  T   cTTTC% @C BT TCN  TTTC% C BT%.C BULCSELECTLCCURSOR LNRESULTMODELNRESULTTHISCSQL CSQLCURSOR NRESULTMODESETERROROPEN NDATAMODE CDATAPATH CFILENAME STARTSWITH FLATTENSQL LCOLDCURSOROSQLEXECUTE CERRORMSGOHTTPSQL CONVERTDATA%C + BT-HN TC &lcsql % T  T  _TTC T TSQLQuery% HC  BT  T TC % C  B%   B BULCSQLLNRESULTTHISOPENLERROR NDATAMODE FLATTENSQLOSQL CSQLCURSOREXECUTESETERROR CERRORMSGNAFFECTEDRECORDSOHTTPSQLQ  %C 1B-HFC T LOCATE FOR  &lccmd %C4% ^J% ^J Ba %  ^J CT  TSQLQuery7T select * from   WHERE TC %C B-%CN%  ^J% ^J Ba ?% ; ^JB-ULCFILTERLLNODATAMEMBERLCCMDLNRESULTTHISOPEN NDATAMODEODATALCOMPAREUPDATES OORIGDATAOSQL CSQLCURSORCSQL CFILENAMEEXECUTESETERROR CERRORMSG BaUy !TCwwValidationErrorNT%C ^TCULCERRORLCCTLIDLOERRORCMESSAGE COBJECTNAMETHISOVALIDATIONERRORSADDRTC wwXMLStateNCBCU LCPROPERTY LOXMLSTATELOADXMLTHISODATAXML GETPROPERTYq TC wwXMLStateNCCTCU LCPROPERTYLCVALUE LOXMLSTATELOADXMLTHISODATAXML SETPROPERTYGETXML R,:U LCMESSAGEe %Ct@TT-BTTaU LCERRORMSGLNERRORTHIS CERRORMSGLERROR%C2Ba%C[Tdatarow%CT sqlresult%C% TCC@ TC@H XTCwwXMLNTTC T  TCwwXMLNTT TC T  FTCwwXMLNTT TC T  )CCWTHIS.cResultXML  *CCWTHIS.cResultXML 1 9 Q XMLADAPTERT C XMLAdapterNCCaC CTHIS.cResultXML   TCwwXMLNTTC  TCwwXMLNTT TC  [TCwwXMLNTT TC TCwwXMLNTTaTٮ,cpkfield,cskipfieldsforupdates,ndatamode,lerror,nresultmode,calias,cfilename,cdatapath,csql,csqlcursor,cerrormsg,cresultxml,cconnectstring,cidtable,nupdatemode,osql,vresult,TTCT  uTCwwXMLNTTC$TC]\C].xmlCCTCAdoDB.RecordSetNCT   ($TC]\C].dbf (T Ca C* @ T CC QC 2|QWWJSONSERIALIZER TCwwJsonSerializerN!T Ccursor:C 3QWWJSONSERIALIZER TCwwJsonSerializerN!T Ccursor:CT C BaU LNRESULTMODE LCDOCROOTLCTABLELCROWLOXMLTHISCLASS CDOCROOTNAME CRESULTXML CURSORTOXMLVRESULTNCREATEDATASTRUCTUREOXAADDTABLESCHEMATOXML OBJECTTOXMLODATALRECURSEOBJECTSCPROPERTYEXCLUSIONLISTLCXMLCURSORTOADOXMLLCFILEFILE2VAR ENCODEXMLORSOPEN ENCODEDBFCURSORTOCOLLECTIONLOSER SERIALIZE FORMATJSON; %CN/ THD- TCwwXMLNTaTC%C B- 2-TCwwXMLNTC %)C B-BaU LCXMLLNMODELOXMLLRECURSEOBJECTSLVRESULT XMLTOOBJECTTHISLERRORSETERROR CERRORMSGODATAG%C_1C!No parameter passed to importdataB-Ht9 %CT TXMLResult%C CoC-TCwwXMLNBC  dTCwwXMLNBC C%CT TXMLResultCBa)      TCwwXMLNBC  ]TCwwXMLNT aBC (9%CT TXMLResult$T C]\C].dbfT C % Q o__IMPORTǼQ C * B BaULNMODELCXMLLCALIASTHISSETERRORLOADLOXML XMLTOCURSOR XMLTOOBJECTODATALRECURSEOBJECTSLCFILELLRESULT DECODEDBF__IMPORTE%CO2 T LTCNTHt5 TT TC 5TTT   BU LCCLASSLOOBJECT NDATAMODETHIS CDATAPATHCCONNECTSTRING SETSQLOBJECTOSQL CSERVERURLOHTTPSQL%CO[TTTBa%CC%CTCwwSQLNT%C B-BaULVSQLTHISOSQLCCONNECTSTRING NDATAMODECONNECTGTG GM(G{G GG.$%  mTCC TC]CCU APPLICATION STARTMODETHIS CAPPSTARTPATH SERVERNAMEPATH U LCFILENAME%jMC=Update Structure is supported only for physical Fox tables...B-%CBa%C$TCCCCdbfл$%C B- FQTTTC]TC]\C C  C C (Q .*TTBaU THIS NDATAMODESETERROR CFILENAME CDATAPATH OPENEXCLUSIVECALIAS LCFILENAME LCDATAPATH CREATETABLEOPENREINDEXG1 %*Ba$%C YB- F T T+CC `T INDEX ON CC]@ TAG CC@CCC]  FOR C]6%CCU)T DESCENDING%CCTYT UNIQUETC T%C  C3Q%T BaU LLRETURNINDEXSTRINGTHIS NDATAMODE OPENEXCLUSIVE CDATAPATH CFILENAMECALIASLNXLCOUTSTRALLVRESULT  CTC%C %U  /CBackup Directory doesn't exist.B-(CQULCPATHLLCREATETHISSETERRORLNRESULTQUERY CFILENAMEBUTHISOROWSCOUNTD%C1TC CollectionN BUTHISOROWSCULOITEMTHISOROWSADDQ!%  /B-CBaULNINDEXTHISNCOUNTOROWSREMOVE>T<TC CollectionNULOROWSTHISOROWSM$%  2BBCULNINDEXTHISOROWSCOUNTITEM  T%C O TC F ~%TCNTCC  ^JC %C FB U LLLOADBUSINESSOBJECTSLCCURSORXLOITEM LCOLDCURSORTHISCLASSLCPKCPKFIELDLOADOROWSADDCOUNTu %:Ba%%C- vB-BaT ( W%TC %C C B- ST C %C OB-T BaULLCOLLECTIONHOLDSCLASSLLUSETRANSACTIONXLODATALOITEMTHISOROWSCOUNT SAVETOCURSORODATANCOUNTITEMSAVESETERROR CERRORMSGoValidationErrors_accessvInit CreateNewIdLoadLoadBase NewGetBlankRecordSaveOpenClose!Delete"QueryH%Executef*Find-Validate 0AddValidationError0 GetProperty0 SetProperty1 StatusMessageT2SetError|2 ConvertData3 LoadFromXml< ImportData5>CreateChildObjectB SetSqlObjectCSetComEnvironmentD CreateTableEUpdateStructureEReindexzHBackupJ nCount_AccessK oRows_AccessLAdd\LRemoveLClearMItemvMLoadFromCursorM SaveToCursorgO T T TTwws_id T T T- T TT TQuery T  T  T  T  T T TTPK T- T T T T T T- T                         U CDATAPATH CFILENAMECALIASCIDTABLEODATA CERRORMSGLERROR NUPDATEMODE NRESULTMODE CSQLCURSOR CRESULTXMLCSQLVRESULTCCONNECTSTRINGOSQL NDATAMODECSKIPFIELDSFORUPDATESCPKFIELDLVALIDATEONSAVEOHTTPSQL CSERVERURL CIDDATAPATH CAPPSTARTPATH OORIGDATALCOMPAREUPDATESOVALIDATIONERRORSk T  T ! " # $ % &UNCOUNTOROWSwwBusinessObjectCUSTOMUTwwBusinessChildCollectionwwBusinessObjectX1AQA341AAa!a!AAAAQQAaAAAAAAAAAa!QaAaq!QQaAA1A31AqAQAAqAa!A!AqAAqaAq1!1AqA!!A!AqAAq3AAqAa1!A!AqAAaA1!1AqA!!A!AqAAq3qAqAqAAq3AqAaa1aqAaaqAA!Aq3qAAqAaaQqaqQqAAaAa111qAaqQ!1qA!A!QA1qAAaQa!1qAaq!1qA!AA!1qAAA3qqAaAA!aqAAaAaqAAaaAaaaAAq3aAAaaA3qAqAAaa1aqAa1aqAAq3qAAAQAaQAAAa!A!!Aa111aA1a111aA1A1aA3qqAAa!!Aaa1aA1aaQaA1AA3AqAa!AAqAAaqA1aqA!!AAqAAAq3q3!AA3qqa3qaQq3q31AA31qqAAAaA1!AA1Q11Q11Q1111Q1Q1Q1Q1QQ 11QA1Aa1111Aq3qA1Q!1qAQ!1qAAq3qqA1qA!AQQQQqqAqQq1QQ1qAAa1AAq3qqqA1a1a11a11A3qqaqAqAAqAAq3aaaaaaAA3q6aqAAqAAAAAqAA1Aq3qaaqAAqAQAAAA1A!AAAAq31qAAQA85AA3qA3qqAAq3qq3qAqAA3!A1!AAA!A3qAQAqAQqAA1qAAqAAAq4110Pp  p0 1p1=! b( 1,aU!!A% e%z66q6N=t=z>>ABfBJJN=-OTe[TT]TUeVVkVWrW8XuaXY~JYyhhk'Ekq@'qpts=tNvOv x]8xx_xW|~~|)tYĂ@Ѓ!`*1?{9؊QLс % [ t vNKWG+(wwCacheUWWCACHE]%C I%CLhVARCHARMMTTI&  E%C0FQ ALh1VARCHARMMTTI& QQ FU THIS CCACHECURSORCFIXEDFILENAMEKEYCONTENTXMLENTEREDEXPIRESACCESSES  %C4TC TC C-%C4%C T>   T  T%C C F BU LCKEY LCOLDALIAS LCCONTENTTHISGETREQUESTSPECIFICKEYOPENKEYEXPIRESCONTENTACCESSES %C4TC TC C-%C4q%C FULCKEY LCOLDALIAS LCCONTENTTHISGETREQUESTSPECIFICKEYOPENKEYM%C0T&%CCRequestbO kTC TC C-%C4/>  C C  &Ir     C@CC%C F FULCKEYLCVALUELNTIMEOUTSECONDSTHISNDEFAULTCACHETIMEOUTGETREQUESTSPECIFICKEY LCOLDALIASOPENKEYCONTENTEXPIRESENTEREDACCESSES CCACHECURSOR%C0TC TC C- TC4%C  T-%C F BULCKEY LCOLDALIASTHISGETREQUESTSPECIFICKEYOPENKEYLLCACHEDEXPIRESeQSTRING TC CqC %C ^ FU LCOLDALIASTHISOPEN CCACHECURSOREXPIRES'$BCC SCRIPT_NAME@UREQUESTSERVERVARIABLES CQUERYSTRINGp%CBa%C =B-C 3& QUTHISCFIXEDFILENAME OPENEXCLUSIVEFOREXPIRESALLKEYOpenFGetItemRemoveqAddItemWIsCachedKExpireaGetRequestSpecificKeyReindexTT __wwCache TT        U CCACHECURSORCFIXEDFILENAMENDEFAULTCACHETIMEOUTwwCacheRelation 8QAAAAAA3qA1AAAA3qAAA!A3AaAA!A3qqAAA!A3!A3A3AqAqqAAA4a0@0> ,=7;e& HNN ]` qh T {j{ nvS~%%/ yvNcWG+( wwCollectionsU WWCOLLECTIONS%`TC%\TBTTULVVALUETHISREQUIREUNIQUEITEMSLNINDEXGETINDEXAITEMSCOUNT %TC%TCTC%CTTU LNPOSITIONLVVALUELNINDEXTHISREQUIREUNIQUEITEMSGETINDEXAITEMSCOUNTT *%    <BBCULNINDEX LLTHROWERRORTHISCOUNTAITEMSBCULNINDEXTHISAITEMSGTC%@CULVVALUELNINDEXTHISGETINDEXADD%+B({%CwBCBULVITEMLNINDEXTHISCOUNTLNXAITEMS%- BTCC%dTC@(%%CC@ B %C B BULVITEMLLSTRINGTHISCOUNTLNXAITEMS %QTC%MB!% zBTCULNINDEXLLREMOVEBYVALUELNROWTHISGETINDEXCOUNTAITEMS? %"BTULNINDEXLVVALUETHISAITEMSTUTHISAITEMSTUTHISAITEMS%Q(MTTT-TU LLCOMPLETELNXTHISCOUNTAITEMSCCUTHISAITEMSITEMSC ULALISTTHISAITEMS T%CtT TTC_TTULVKEYLVVALUETHISCOUNTAITEMS TC%OC TTULVKEYLVVALUELNINDEXTHISGETINDEXFASTADDAITEMS%C@ TTC_%CTTTUPOSITIONLVKEYLVVALUETHISCOUNTAITEMS %CNm KTC ` T B%TC%BBCULVKEY LNELEMENTLVVALUETHISAITEMSCOUNTTCEmptyNCKey CValue TCTC%CB BULVKEYLORESKEYTHISGETKEYVALUEITEMBCULNINDEXTHISAITEMS_%TC%O B BULVKEYLNROWTHISAITEMSCOUNT%+B%TC%oBBCULVITEMLNINDEXTHISCOUNTAITEMS%CNQT-C TC%BCTULVKEYLNROWTHISAITEMSGETINDEXCOUNT %CN>T TC%~B-TULVKEYLVVALUETHISAITEMSLNROWGETINDEX%W(STTT-TU LLCOMPLETELNXTHISCOUNTAITEMS  T%C>T (<TC="CC_" BU LCSEPARATORLNXLCOUTPUTTHISCOUNTAITEMSTUTHISAITEMSTUTHISAITEMSCULVVALUETHISADD^% $BTCC BULVVALUETHISCOUNTAITEMSREMOVEK% $BTC BULVVALUETHISCOUNTAITEMS CULVVALUE CULNINDEX !TCwwValidationErrorNTC%L[B%OCBT%C TCU LCMESSAGELCFIELDLOERRORLCTYPETHISADDCMESSAGE COBJECTNAME[ (TTCCULOERRORSLNXLOERRORCOUNTAITEMSTHISADDERROR  T(% r(TCC C  TC BULCOUTPUTLNXTHISCOUNTAITEMSCMESSAGE=TC C  BU LLADDNAMELCOUTPUTLNXTHISCOUNT LCOBJECTNAMEAITEMS COBJECTNAMECMESSAGEAddRInsertAtIItemGet$Set^FindGetIndexRemove UpdateItemDispose!DestroyHClearoSort!ToArray[FastAddAddv InsertAtP ItemZ Get] GetKey6 GetIndexs Find Remove UpdateItemClearToAttributeString@Dispose#DestroyJPushqPopPeek4AddRemoveAddError AddErrorsToStringToHtml  T T-         UAITEMSCOUNTREQUIREUNIQUEITEMS T              UAITEMSCOUNTB T    !U NSTACKPOINTER T TUCMESSAGE COBJECTNAME+ " # $ %U wwCollectionRelationwwNameValueCollectionRELATIONawwStack wwCollection'wwValidationErrorCustomwwValidationErrors wwCollectionq8q!QAaAAAq13q1Q1Qq!AAqaqA3qA3q3qQ1A3qqaqAAAq3qqaAQAAAAA3qQ1AAAAAq!31AAa333qqAAA33qA9q1!A3qQ1QA3!!AqA3qqAAQ1qAA3qQQqAqA3qA3qqQ1A3qqaqAQAqAA3qqq!qQ1AA!Aq3qqQ1qAA3qqAA3qAA338q3qaqAq13qaqAq3q3q<qAAAAAA!A3qQA3aAA3q1 A!4p51451 ; )$ 1'/6->9LO d]= tc |e - gS 5 rZ t ws #GZ#G>e   K-s:>=kG-LQV0_adY r&!!-!"8#$A^ V4 iDpks>%p% 'vNWDG+(wwConfigG+(wwXMLG+(wwAPIG+(wwUtilsUWWCONFIGWWXMLWWAPIWWUTILSTCfH- XML{%CaB-CC INI%CB-C REGISTRY CBaULOOBJECTTHISCMODE CFILENAME CREATEXMLSAVEINI SAVEREGISTRYTCfH- XML!%C C0 nB-TCC INIBC REGISTRY BCBULOOBJECTTHISCMODE CFILENAMELCXML LOADFROMXMLLOADINI LOADREGISTRYHTCwwAPINTCBCaULOAPILCXMLTHIS CREATEXMLWRITEREGISTRYSTRINGCREGPATHCREGNODEcTCwwAPINTC%CKB-BCULOAPILCXMLREADREGISTRYSTRINGTHISCREGPATHCREGNODE LOADFROMXMLTCwwXMLNTaTTCC@TCC@?TCC9 C_ _6%configTwwConfigTBC U LOXMLLRECURSEOBJECTSLSTRIPTYPEPREFIXTHIS CDOCROOTNAME CFILENAME STARTSWITHCPROPERTYEXCLUSIONLIST OBJECTTOXMLCSUBNAMEaTCwwXMLNTaTC BULCXMLLOXMLLRECURSEOBJECTSLSTRIPTYPEPREFIXTHIS XMLTOOBJECTLERRORv ) T CwwXMLNT   TCC 6T CC @%CO T TCwwAPINTCb(hTCC@/%C,,, ,Q.TC loObject.bTC loObject.% TCC\ TCHd C C NULL CDC C` D T C C_ L/C COnOff6 O/THIS.saveini(loobject.&lcfield,lcdispfield)  U< C NULL 2dC C_BaULOOBJECTLCNAMELCOUTPUTLNXLNCOUNTLAFIELDSLCFIELDLCTYPELVVALUELOXMLCPROPERTYEXCLUSIONLISTTHISCSUBNAME LCFILENAME CFILENAMELA_ARRAYLOAPILSTRIPTYPEPREFIX LCDISPFIELDWRITEPROFILESTRING 9   %COh T  TCC 6TC TCwwAPINTCwwXMLNT TC b T(TCC @,%,C@,,,a.% TC\  TT C loObject.bT C%C O .H CMGloobject.&lcfield = lcvalue  NIF$loobject.&lcfield = VAL(lcvalue)  T%loobject.&lcfield = CTOT(lcvalue)  D%loobject.&lcfield = CTOD(lcvalue)  Ln#% 1 C fON Eloobject.&lcfield = .T. jloobject.&lcfield = .F.  O.THIS.loadini(loobject.&lcfield,lcxmlfield) BaULOOBJECTLCNAME LCFILENAMELOAPILOXML LNPROPERTIESLNXLCFIELD LCXMLFIELDLCTYPELCVALUE LAPROPERTIESTHISCSUBNAME CFILENAMECPROPERTYEXCLUSIONLISTLSTRIPTYPEPREFIXGETPROFILESTRINGSaveLoad SaveRegistry& LoadRegistry CreateXMLr LoadFromXMLSaveIniLoadIni e TTconfig T3T&SOFTWARE\West Wind Technologies\ConfigT ParametersTINI Ta{T",cfilename,oxml,cregpath,cregnode,&csubname,cmode,cpropertyexclusionlist,loverwriteini,lstriptypeprefix        U CFILENAMECSUBNAMEOXMLCREGPATHCREGNODECMODELSTRIPTYPEPREFIXCPROPERTYEXCLUSIONLISTwwConfigRelation@!>qQAqAaAqAAq3qQqA1AA3Q3QqA3Q1Aq3qQ1Q3QAqAQQAAA!AAAAAAAAq3qA!QQQAAA!!AAAQaAAQAQA1AAAAq411qq010)&'$8+>23 G>h 2 UEY Q^px+9%LU2\VvNWG+(wwDotnetBridgeUWWDOTNETBRIDGE %CO%CBTV47&TCwwDotNetBridgeN%COB BU LCVERSIONLLUSECOM__DOTNETBRIDGE BCU LCVERSIONLLUSECOMGETWWDOTNETBRIDGEBUTHIS ODOTNETBRIDGE LASTEXCEPTIONFT%C ?TULLVALUETHIS LTHROWONERROR ODOTNETBRIDGEISTHROWONERRORENABLED %C TCfHD V4pT v4.0.30319 V2T v2.0.50727TT%CC B-U LCVERSIONLLUSECOM LCSHORTVERTHIS CCLRVERSIONLUSECOMLOAD CERRORMSG%COC% *TCWestwind.wwDotNetBridgeN | DeleteFileWIN32API5CCwwDotNetBridge.dll:Zone.Identifier 5CCNewtosoft.Json.dll:Zone.Identifier .CC Markdig.dll:Zone.Identifier 7|ClrCreateInstanceFrom wwipstuff.dllTCX TVTCCwwDotNetBridge.dll%Westwind.WebConnection.wwDotNetBridge % TC=CUnable to load Clr Instance. C eMost likely wwDotnetBridge.dll is blocked or you don't have network permissions to load the assembly.C VSearch for: 'Unable to load CLR Instance' at: https://webconnection.west-wind.com/docsBTC ]C ]%C?C/COM Load Error: Can't access CLR COM reference.BCSystemT BULCERRORLNSIZE LNDISPHANDLELCPATHLCCMDTHIS ODOTNETBRIDGE SETCLRVERSION CCLRVERSIONLUSECOM DELETEFILEWIN32APICLRCREATEINSTANCEFROM WWIPSTUFFDLLSETERROR LOADASSEMBLYISTHROWONERRORENABLED LTHROWONERROR?'| SetClrVersion wwipstuff.dllCU LCVERSION SETCLRVERSION WWIPSTUFFDLL[%COTT"| ClrUnload wwipstuff.dll CUTHIS ODOTNETBRIDGE CLRUNLOAD WWIPSTUFFDLL  C T %CgB T CtH T C T C  T C A!T C y%T C )T C 2T C%C  C B B ULCCLASSLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5 LNDISPHANDLELNSIZELOBRIDGELOOBJECT LNPARMCOUNTTHISSETERROR ODOTNETBRIDGECREATEINSTANCECREATEINSTANCE_ONEPARMCREATEINSTANCE_TWOPARMSCREATEINSTANCE_THREEPARMSCREATEINSTANCE_FOURPARMSCREATEINSTANCE_FIVEPARMSERROR ERRORMESSAGE+#    C T  %C oB T CtH !T C  %T C  9)T C  y-T C  1T C  2T C %C   C  B-BaU LOINSTANCE LCPROPERTYLCCLASSLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5 LNDISPHANDLELNSIZELOBRIDGELOOBJECT LNPARMCOUNTTHISSETERROR ODOTNETBRIDGECREATEINSTANCEONTYPE_ONEPARMCREATEINSTANCEONTYPE_TWOPARMSCREATEINSTANCEONTYPE_THREEPARMSCREATEINSTANCEONTYPE_FOURPARMSCREATEINSTANCEONTYPE_FIVEPARMSCREATEINSTANCEONTYPEERROR ERRORMESSAGEk      CT TCt THB TC  TC! P!TC" %TC# )TC$ -TC% H1TC&  5TC'  9TC (  ,=TC )  ATC * 2B*+QWESTWIND.WebConnection.ComArray!T+C System.Object,-.(%T-ClvParmC._C-+/BC+0%1yT23T4a BU5LOOBJECTLCMETHODLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LVPARM9LVPARM10LVPARM11LVPARM12LVPARM13LVPARM14LVPARM15LVPARM16LVPARM17LVPARM18LVPARM19LVPARM20LVPARM21LVPARM22LVPARM23LVPARM24LOBRIDGELNPARMSLORESULTTHISSETERROR ODOTNETBRIDGE INVOKEMETHODINVOKEMETHOD_ONEPARMINVOKEMETHOD_TWOPARMSINVOKEMETHOD_THREEPARMSINVOKEMETHOD_FOURPARMSINVOKEMETHOD_FIVEPARMSINVOKEMETHOD_SIXPARMSINVOKEMETHOD_SEVENPARMSINVOKEMETHOD_EIGHTPARMSINVOKEMETHOD_NINEPARMSINVOKEMETHOD_TENPARMSLOARRAY CREATEARRAYLVPARMLNXADDITEMINVOKEMETHOD_PARAMETERARRAYERROR CERRORMSG ERRORMESSAGELERRORZ %-8  C"QWESTWIND.wwDotNetBridgeT* QWESTWIND.WebConnection.ComArray3T CWestwind.WebConnection.ComArray C System.Object H& ClaParms.InstancebU9 T # C ALEN(laParms)bNT C( CC # C laParms.CountbN(CC TC %JTTa BULOOBJECTLCMETHODLAPARMSLOBRIDGELORESULTLNXTHISSETERROR ODOTNETBRIDGELOARRAYCREATEINSTANCECREATELNSIZEADDITEMCOUNTINVOKEMETHOD_PARAMETERARRAYERROR CERRORMSG ERRORMESSAGELERRORL7     T CtQWWDOTNETBRIDGETHE C C !C M%C )C -C   1C  U5C   9C   =C   EAC ULOCALLBACKEVENTS LOINSTANCELCMETHODLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LVPARM9LVPARM10LNPARMSLOBRIDGETHIS ODOTNETBRIDGEINVOKEMETHODASYNCI7     QWWDOTNETBRIDGE T CtTHB C C !C J%C )C -C   1C  R5C   9C   =C   BAC ULOCALLBACKEVENTS LCTYPENAMELCMETHODLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LVPARM9LVPARM10LNPARMSLOBRIDGETHIS ODOTNETBRIDGEINVOKESTATICMETHODASYNC& BCU LOINSTANCE LCPROPERTYTHIS ODOTNETBRIDGE GETPROPERTY& BCU LOINSTANCELNINDEXTHIS ODOTNETBRIDGEGETINDEXEDPROPERTY.CU LOINSTANCE LCPROPERTYLVVALUETHIS ODOTNETBRIDGE SETPROPERTY3      CT  T Ct TH? TC  !TC  $%TC  `)TC  -TC  1TC   ,5TC   x9TC   =TC   ATC  2?TC % vT T a BU! LCTYPENAMELCMETHODLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LVPARM9LVPARM10LOBRIDGELNPARMSLORESULTTHISSETERROR ODOTNETBRIDGEINVOKESTATICMETHOD_ONEPARMINVOKESTATICMETHOD_TWOPARMSINVOKESTATICMETHOD_THREEPARMSINVOKESTATICMETHOD_FOURPARMSINVOKESTATICMETHOD_FIVEPARMSINVOKESTATICMETHOD_SIXPARMSINVOKESTATICMETHOD_SEVENPARMSINVOKESTATICMETHOD_EIGHTPARMSINVOKESTATICMETHOD_NINEPARMSINVOKESTATICMETHOD_TENPARMSINVOKESTATICMETHODERROR CERRORMSG ERRORMESSAGELERROR   CTTC%xC B BU LCTYPE LCPROPERTYLOBRIDGELVRESULTTHISSETERROR ODOTNETBRIDGEGETSTATICPROPERTYERROR ERRORMESSAGE %C 2BCTC.% cBTC\TC\BCULCTYPE LCPROPERTYTHISGETSTATICPROPERTYLNATl TC%C\CB BULCENUMTYPENAME LVENUMVALUELCVALUETHIS ODOTNETBRIDGE GETENUMSTRINGSETERROR ERRORMESSAGEr T %C dC B-BaU LCTYPE LCPROPERTYLCVALUELOBRIDGELVRESULTTHIS ODOTNETBRIDGESETSTATICPROPERTYSETERROR ERRORMESSAGEZ TCH3 XC 6TCWestwind.WebConnection.ComArray CTC OTC 20'Invalid parameter passed to CreateArray%CJC B BU "LVARRAYINSTANCEORELEMENTTYPESTRING LOCOMARRAYLCTYPETHIS ODOTNETBRIDGECREATEINSTANCE CREATEARRAYCREATEARRAYFROMINSTANCESETERROR ERRORMESSAGE3TCWestwind.WebConnection.ComValue%CtrCValue BULVVALUELOVALTHISCREATEINSTANCE SETPROPERTY%CNq#%C fCB-Ba#%C CB-BaU LOBASETYPELCTYPELNSIZETHIS ODOTNETBRIDGECREATEARRAYONINSTANCEWITHOBJECTSETERROR ERRORMESSAGECREATEARRAYONINSTANCE}#%C o6CCouldn't add item to array: B-BaU LOBASETYPELCARRAYPROPERTYLOVALUETHIS ODOTNETBRIDGE ADDARRAYITEMSETERROR ERRORMESSAGE.BCU LOBASETYPELCARRAYPROPERTYLNINDEXTHIS ODOTNETBRIDGE GETARRAYITEM6 BCU LOBASETYPELCARRAYPROPERTYLNINDEXLVVALUETHIS ODOTNETBRIDGE SETARRAYITEM#%C t;C!Couldn't remove item from array: B-BaU LOBASETYPELCARRAYPROPERTYLNINDEXTHIS ODOTNETBRIDGEREMOVEARRAYITEMSETERROR ERRORMESSAGE+!BCGetTypeULVVALUETHIS INVOKEMETHOD ODOTNETBRIDGE&BCToStringULVVALUETHIS INVOKEMETHOD3)BCGetTypeFromNameU LCTYPENAMETHIS INVOKEMETHOD ODOTNETBRIDGE%C/TOn!TCEventSubscriptionNC BULOSOURCE LOHANDLERLCPREFIXLOSUBSCRIPTIONSETUPTHIS1TCDataSetToXmlStringa%CWBQ XMLADAPTERTC XmlAdapterNC-a BULODSLCXMLTHIS INVOKEMETHOD ODOTNETBRIDGE LOADAPTERLOADXMLLTC%C4B-BCULODS LOADAPTERTHISDATASETTOXMLADAPTERXMLADAPTERTOCURSORSdTC%CTCB BULCXML LODATASETTHIS ODOTNETBRIDGEXMLSTRINGTODATASETSETERROR ERRORMESSAGE  %C*BQ XMLADAPTERTC XmlAdapterN TC,(CCa TClcXml%CBBC U LCALIASLISTLNXLCXML LOADAPTER LACURSORSLNCOUNTADDTABLESCHEMATOXMLTHISXMLSTRINGTODATASET%COF!CNo Adapter passedB-% 'CNo tables on XmlAdapterB-QCWC-BaU LOADAPTERTHISSETERRORTABLESCOUNTLOTABLEALIASTOCURSORR  %Cl%WTC hB- T%CNTC TC@%C@ T!%C!B-QCWC-BaU LOADAPTERLVCURSORLOTABLELOTBLTABLESCOUNTALIASTOCURSOR CTC%CDB%C0jTCC@,%C:\C\\ %C CB- %C CB-BaU LCASSEMBLYLOBRIDGETHISSETERRORLOADLOADASSEMBLYFROM ERRORMESSAGE LOADASSEMBLYk 7TC#Westwind.WebConnection.ThreadRunnerCC BU LCPRGFILENAMELOEVENTSLOTHREADTHISCREATEINSTANCE RUNTHREAD1 TC@:%C&Cint16int64bytedbnull +Q WESTWIND.WebConnnection.ComValue3TCWestwind.WebConnection.ComValue%C BH! int16C int647C byte_C charC dbnull C  decimal BC~* binarybyte[] BCW 2! B BU LVFOXVALUELCTYPELOVALTHISCREATEINSTANCESETINT16SETINT64SETBYTESETCHAR SETDBNULLBCUTHIS ODOTNETBRIDGEGETVERSIONINFO_%C:T-TBTaTU LCMESSAGETHISLERROR CERRORMSG^ TC%CNC BULODOTNETOBJECT LLFORMATTEDLCRESULTTHIS ODOTNETBRIDGETOJSONSETERROR ERRORMESSAGE  T%CCDTCTC%CC B BU LCJSONLVTYPELOTYPETHISGETTYPEFROMNAMELCRESULT ODOTNETBRIDGEFROMJSONSETERROR ERRORMESSAGEZ TC%CJC BULODOTNETOBJECT LLFORMATTEDLCRESULTTHIS ODOTNETBRIDGETOXMLSETERROR ERRORMESSAGE  T%CCDTCTC%CC B BU LCXMLLVTYPELOTYPETHISGETTYPEFROMNAMELCRESULT ODOTNETBRIDGEFROMXMLSETERROR ERRORMESSAGE& BCU LOINSTANCE LCPROPERTYTHIS ODOTNETBRIDGE GETPROPERTYEX.CU LOINSTANCE LCPROPERTYLVVALUETHIS ODOTNETBRIDGE SETPROPERTYEX ULVRESULTLCMETHODU LCMESSAGE LOEXCEPTIONLCMETHOD TTCX+|GetWindowsDirectoryWin32APITC%TC\\ TC` T)TMicrosoft.NET\Framework\#TCv?.*.*D% (B (TCTC%C regasm.exe0TC! BU XLCFRAMEWORKPATH LCVERSIONGETWINDOWSDIRECTORYWIN32APILNSIZELNCOUNT LANETDIRSLCTPATHTTTATC&Westwind.WebConnection.EventSubscriber C U LOBRIDGELOSOURCE LOHANDLERLCPREFIXTHISOBRIDGEOHANDLEROPREFIX OSUBSCRIBERCREATEINSTANCEHANDLENEXTEVENT,%C %CUTHIS OSUBSCRIBERDISPOSE,)C WaitForEventUTHISOBRIDGEINVOKEMETHODASYNC OSUBSCRIBER- %C/BTCEMPTYN T%C TTCPCCZ $T ,loParams.PCCZ:Cthis.oHandler. (C\) C U LVRESULTLCMETHODLOPARAMS LPARAMTEXTLCOUNTPARAMSLPARAMTHISOPREFIXNAMEHANDLENEXTEVENTGetwwDotNetBridgeTInitializeDotnetVersion&oLastException_AccessvlThrowOnError_AssignInitFLoad SetClrVersionaUnloadCreateInstancee CreateInstanceOnType  InvokeMethod[InvokeMethod_ParameterArrayInvokeMethodAsyncInvokeStaticMethodAsync GetProperty"GetIndexedPropertyT# SetProperty#InvokeStaticMethod9$GetStaticProperty) GetEnumValue* GetEnumString+SetStaticProperty, CreateArray-CreateComValue/CreateArrayOnInstance=0 AddArrayItem1 GetArrayItemo2 SetArrayItem2RemoveArrayItem~3GetTypel4 GetTypeName4GetTypeFromName5SubscribeToEvents5DataSetToXmlAdapterH6DataSetToCursors=7XmlStringToDataSet7CursorToDataSet8XmlAdapterToCursors :XmlAdapterGetCursor3; LoadAssembly< RunThreadR>ConvertToDotnetValue ?GetDotNetVersionASetErrorAToJsonoBFromJson1CToXmlEDFromXmlE GetPropertyExF SetPropertyEx~F OnCompletedFOnError#GGetHighestDotnetVersion_GSetupI UnSubscribeJHandleNextEventJ OnCompletedNK> T T T- T T v4.0.30319 T- T-                        ! " # $ % & ' ( ) * + , - . / 0 1 2U ODOTNETBRIDGE CERRORMSGLERROROLASTEXCEPTION CCLRVERSIONLUSECOM LTHROWONERROR 3 4Uj T T T T 6 7 8 9UOBRIDGEOHANDLER OSUBSCRIBEROPREFIXwwDotNetBridgeCustom67C177H7?MC@EAsNqABZB Dc;DIEltEHHIIKKLLMMDNsNOO P7PPPQLQ`RRS STTUUW*'XY?Y\P\)_n+R_(`1\`cN d;dPddeYCe%f`Mfglghshi+jjj:kkk"lllo pq,q7r5grr;r1u?UJk kl  pAu%%oBvNW G+( wwEncryptionUWWDOTNETBRIDGE WWENCRYPTIONSTC%L&Unable to load wwDotnetBridgeUTHISOBRIDGEGETWWDOTNETBRIDGE %C' TQBC&Westwind.WebConnection.EncryptionUtils EncryptStringULCINPUTLCENCRYPTIONKEYTHISOBRIDGEINVOKESTATICMETHOD %C' TQBC&Westwind.WebConnection.EncryptionUtils DecryptStringULCENCRYPTEDTEXTLCENCRYPTIONKEYTHISOBRIDGEINVOKESTATICMETHOD%C7TMD5TC %Q C x TSBC&Westwind.WebConnection.EncryptionUtils ComputeHashULCTEXT LCALGORITHM LVHASHSALT LCSALTTYPETHISOBRIDGEINVOKESTATICMETHOD %C,TMD5WBC&Westwind.WebConnection.EncryptionUtilsGetChecksumFromFileU LCFILENAMELCMODETHISOBRIDGEINVOKESTATICMETHOD %CC7TCW%C\TMD5XBC&Westwind.WebConnection.EncryptionUtilsGetChecksumFromBytesULQBYTESLCMODETHISOBRIDGEINVOKESTATICMETHODWMBC&Westwind.WebConnection.EncryptionUtils EncryptionKeyULCKEYTHISOBRIDGESETSTATICPROPERTY T-%Ct 7 TaIBC&Westwind.WebConnection.EncryptionUtils UseBinHexULLMODELLVALUETHISOBRIDGESETSTATICPROPERTYInitk EncryptString DecryptString ComputeHashxGetCheckSumFromFile GetChecksumkSetEncryptionKeyb SetBinHexMode^ T        UOBRIDGE wwEncryptionCustom`qa6QaA3A3A3qAA13Aq3qQAA3q3qA49D8eiK&,%Qu4.'?1T( D8o8 %a # vNW$G+(wwUtilsG+(wwEvalUWWUTILSWWEVALT-TC%Ta&%  CzTCTC TCETCE B  BU LCEVALSTRINGTHISLERRORRESULTNERRORLAERROR CERRORMESSAGENERROR2 CERRORCODE VERRORRESULT    /TC(%C[ THp  ERRORMESSAGETError:   EXPRESSIONTError:  2 T BU LCEVALSTRING LCERRORRESULTLCRESULT LOEXCEPTIONMESSAGEQ EXCEPTIONT- D&lcevalstring (TaTTT% B BU LCEVALSTRING LOEXCEPTIONTHISLERROR CERRORMESSAGEMESSAGENERRORERRORNO CERRORCODE VERRORRESULTT-%C C %CaTCN ~TC8T loObject.CC(()6TC% TCE - CE B  BU LCCLASSLCMETHOD LCCLASSLIBLOOBJECTTHISLERROR LCEVALSTRINGRESULT CERRORMESSAGE VERRORRESULT TCC <%=6TCC%>6% TC<%=<#=TC%>#>TC<%<^TC%>^>G` TC-UTCSTRING TCDELIMITER TCDELIMITER2 LLNOASPSYNTAXLCRESULTT'    5 T -TCC<%6TCC%>6% T  T T T TCCC %C<% if s+ao,TC<% if <% endif %>-a%C!#TC<% if %>-a%C! TCif %>--TC%L%TC%> <% endif %>TC kTC T + DTC%@TC%.%%TCC>C>\T-%T C%T C_ %C CT C _  %= :  T:TCC C  T CC\% %C CmT C _%T C  CT %C C T %  % [T C <%%TCC `   T -T  % !GTC  <TCC>CC>X[. BUTCSTRING TCDELIMITER TCDELIMITER2 LLNOASPSYNTAXLNLOC1LNLOC2LNINDEX LCEVALTEXT LCEXTRACTTEXT LCOLDERROR LNERRCOUNTLCTYPELCRESULT PLEVALERROR LNDIFFERENTTHIS SETRESULTTYPESETERRORRESULT LCFULLTAG LCEXPRESSION LCFULLBLOCK LCEXTRACTEDEXTRACTLLRESULTLERROR VERRORRESULTLLENCODE ENCODEHTMLEXECUTERESULTLALLOWEVALRECURSION'T-%$TC]\C].prgC G+(CTCC():|InternetGetLastResponseInfo WININET.DLLT#C !"C%TCC C `%C.TCouldn't connect to FTP ServerT )TCT BTT$%C% C$& BU'LCSERVER LCUSERNAME LCPASSWORDLHIPLHHTTPLNERROR LNHTTPPORTTHISCSERVER CUSERNAME CPASSWORD NHTTPPORT LPASSIVEFTP NSERVICEFLAGSNERROR CERRORMSGINTERNETCLOSEHANDLEWININETDLL GETLASTERRORWIN32API INTERNETOPENHINETCONNECTION CUSERAGENTNHTTPCONNECTTYPECHTTPPROXYNAMECHTTPPROXYBYPASSGETSYSTEMERRORMSG HIPSESSIONWININETSETTIMEOUTINTERNETCONNECT LHFTPSESSIONLCERRMSGLNERRLENINTERNETGETLASTRESPONSEINFOLNRESULT HFTPSESSIONCHTTPPROXYUSERNAME SETPROXYLOGINn+|InternetCloseHandle WININET.DLLCCTTUINTERNETCLOSEHANDLEWININETDLLTHIS HFTPSESSION HIPSESSION T T ,| FtpOpenFile WININET.DLL0|InternetWriteFile WININET.DLL"TC 6,TC C`C  @ %T C% FT C.  dT C % %C .T Unable to connect to server...T  B TCC`%`9T )Source file doesn't exist or is in use...T  BT CCT - T T+aLTC %C>!TC> TTC%lT CT C !% TTC  % )T Download canceled by user!+%   D!C TC  T  C B U LCSOURCEFILE LCTARGETFILELHFILELNRETVAL LNBYTESREAD LNBUFFERREADS LCWRITEBUFFERHFTPFILELNMODETHISNERROR CERRORMSG FTPOPENFILEWININETDLLINTERNETWRITEFILE NFTPBINARY HFTPSESSION GETLASTERRORGETSYSTEMERRORMSGNCURRENTFILESIZELCANCELDOWNLOAD TNBUFFERSIZENFTPWORKBUFFERSIZELNSIZEONFTPBUFFERUPDATEINTERNETCLOSEHANDLE LNBUFFERSIZEu#,|FileTimeToSystemTimeWIN32APITCXC TCC= TCC\ TCC\ TCC \ TCC \ TCC \ RTCCZ-CCZ-CCZ CCZ:CCZ:CCZBC{^}U LCFTIME LCSYSTIMELNYEARLNMONTHLNDAYLNHOURLNMINUTELNSECONDLCDTIMEFILETIMETOSYSTEMTIMEWIN32API CHARTOBIN^2TCCC lcFTPServerbC6`/TCCClcSourcebC6`/TCCClcTargetbC 6`1TCCC lcUserNamebC 6`1TCCC lcPasswordbC 6`T  % A T  X T TC% B*| FtpPutFile WinInet.dll-TCC C  %ATCTC C B C BU LCFTPSERVERLCSOURCELCTARGET LCUSERNAME LCPASSWORDLNRESULTTHIS CFTPSERVER CFTPSOURCE CFTPTARGET CUSERNAME CPASSWORDLNBINARY NFTPBINARY FTPCONNECT FTPPUTFILEWININETDLL HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSGFTPCLOSETCC6%CYT%C~T%CT %CT %CT  T CC`C`C` % - B .| FtpGetFile WinInet.dll6T CC`C`  A% TCTC C B C BU LCFTPSERVERLCSOURCELCTARGETLNBINARY LCUSERNAME LCPASSWORDTHIS CFTPSERVER CFTPSOURCE CFTPTARGET CUSERNAME CPASSWORDLNRESULT FTPCONNECT FTPGETFILEWININETDLL HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSGFTPCLOSE~ %C,T*.*TC@X TT1|FtpFindFirstFile WININET.DLL*TC  A%,TC % T BT C BT C-\,TC CC \TC\TCTC!\TC(TCC\ T/|InternetFindNextFile WinInet.DLL+C`TT C-\,TC CC \TC\TCTC!\TC(TCC\C BULAFILES LCFILESPEC LSFILEFIND LNFINDHANDLETHISNERRORFTPFINDFIRSTFILEWININETDLL HFTPSESSION GETLASTERROR CERRORMSGGETSYSTEMERRORMSG LCFILENAME LCATTRIBUTES CHARTOBINLCSIZE PARSEFILETIME LNFILECOUNTINTERNETFINDNEXTFILEINTERNETCLOSEHANDLE%CJT*.*TC% BTC CollectionN% B(TCEmptyNCNameC "CFullNameC CLengthC 'C FileAttributeC 'C LastWriteTimeC C BU LCFILESPECLOCOLLOFILELNCOUNTLAFILESTHISAFTPDIRXADD%CB-,|FtpCreateDirectory WININET.DLL%CTCTC B-BaU LCPATHFTPCREATEDIRECTORYWININETDLLTHIS HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSG%CB-,|FtpRemoveDirectory WININET.DLL%CTCTC B-BaU LCPATHFTPREMOVEDIRECTORYWININETDLLTHIS HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSG'| FtpDeleteFile WinInet.dll#%CC TCTC B BU LCFILE FTPDELETEFILEWININETDLLTHIS HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSGT-| FtpCommand WININET.DLL T%T C % T C TC B %C>TCXTC> TC>/|InternetReadFile WININET.DLL TTC%  TTC\  T TC BU LCCOMMANDLCBUFFERLNSIZETHIS CERRORMSG FTPCOMMANDWININETDLLLHRESULTLNRESULT HFTPSESSIONNERROR GETLASTERRORGETSYSTEMERRORMSGINTERNETREADFILE LNBYTESREADLNRETVALINTERNETCLOSEHANDLE )| FtpRenameFile wininet.dll&TCC C %TC T C B BU LCOLDNAME LCNEWNAME FTPRENAMEFILEWININETDLLLNRESULTTHIS HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSGx%CB-0|FtpSetCurrentDirectory WININET.DLL"BCC-a6ULCPATHFTPSETCURRENTDIRECTORYWININETDLLTHIS HFTPSESSION *| FtpPutFile WinInet.dll"TC6-TC C C %T C T C R, C B  BULCSOURCELCTARGET FTPPUTFILEWININETDLLLNMODETHIS NFTPBINARYLNRESULT HFTPSESSIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSGFTPCLOSE.T T UVNEWVALTHIS NHTTPPORTNFTPPORTA!TCC  6!TCC  6 TCC  6%CB0|InternetSetOption WinInet.dll T+ T,%C  TTC> TTC %TCTCB-%C 3 TTC> TTC %/TCTCB-BaU TCUSERNAME TCPASSWORD HIPHANDLE LCUSERNAME LCPASSWORDLPBUFFERLPDWBUFFERLENGTHNSUCCESSTHISCHTTPPROXYUSERNAMECHTTPPROXYPASSWORD HFTPSESSIONINTERNETSETOPTIONWININETDLLINTERNET_OPTION_PROXY_USERNAMEINTERNET_OPTION_PROXY_PASSWORDDWBUFFERLENGTHDWOPTIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSG,TCClnErrorbN6:|InternetGetLastResponseInfo WININET.DLLTCXTC>C% BBC\ULNERRORTHISNERRORINTERNETGETLASTRESPONSEINFOWININETDLL LCERRORMSGLNSIZE   .TCC lnErrorNobN6%.e BCTCX/| FormatMessageWIN32API$|GetModuleHandleWIN32APIT C wininet.dll %  ,)TC C> C T%sTC\ (TCC>%(T Win32 API: C\  T BU LNERRORNOLLAPI SZMSGBUFFERLNSIZETHISNERRORGETLASTINTERNETERROR FORMATMESSAGEWIN32APIGETMODULEHANDLELNMODULE  &TCCN6%HB%CmT0|InternetSetOption WININET.DLLTTCTCTCU DWTIMEOUTSECSLNHANDLETHISNCONNECTTIMEOUT HIPSESSIONINTERNETSETOPTIONWININETDLLLLRETVALInit\Destroyv FtpGetFileExOnFtpBufferUpdateo FtpConnectFtpCloseq  FtpSendFileEx) parsefiletimeR FtpSendFileK FtpGetFileaFtpDir FtpListFilesT!ftpcreatedirectoryo#FtpRemoveDirectory$ FtpDeleteFile% FtpCommand& FtpRenameFile})FtpSetDirectory*FtpSendFileEx2x+nftpport_assign- SetProxyLogino-GetLastInternetError1GetSystemErrorMsg72WinInetSetTimeout4CTT` T- T T T T T Ta T  T  T  T  T  T T T T T T T T T T T T                   U HELPCONTEXTIDNFTPWORKBUFFERSIZELCANCELDOWNLOAD HFTPSESSION NFTPBINARY CFTPSERVER CFTPSOURCE CFTPTARGET LPASSIVEFTPNCURRENTFILESIZENCONNECTTIMEOUTNFTPPORT NHTTPPORTCSERVER CUSERNAME CPASSWORDNHTTPCONNECTTYPECHTTPPROXYNAMECHTTPPROXYPASSWORDCHTTPPROXYUSERNAMECHTTPPROXYBYPASSNERROR CERRORMSG HIPSESSION CUSERAGENT NSERVICEFLAGSwwFtpCustome81q4AA31!a1AAAAq11AAA!AAA3q61Q11AaA!A1AQA1AAAAAQQA33!1aAAaAAAAAAQQAAAAAAA!AAAAAA3q1!a!a3qq!AA1A1AA3AAAAA1Aa1AA3A1aAAA1aQQa1QQA3q1A11qA1AQ!qqA3qqAAqAq3qqAAqAq3qq1AA3Q1AAQAQA3a1AA3qqA!3!1A1A3q!!3qAA!1qAA!1qAAq3qa1A3AAAA11AA3a1AAA!4pP@1<!d& 1 ,@c dB }k|p ! $5$((,#-3E:36qT7M8`89l9;u?;>+?@@AACC4DaDIJK"KO/O#RL o3R%%W`!h`'|jTX3G+(wwHTTPG+(wwUtilsG+(wwAPIUWWHTTPWWUTILSWWAPIF%C3TC wwFileStreamN BUTHIS OPOSTSTREAM#TCCC6!T wwIPStuff.dll | GetLastErrorWIN32API%C BULCPATHTHISCDLLPATH GETLASTERRORWIN32APIPATHJJQSTRINGQSTRINGQBOOLEANQSTRINGQSTRINGG+(wwUtils#TCCC6#%RESETCt %%C C  T B%Ct 6 T T%CCaTC_% %C H  >T  CC &6=C   %C C,TCC C  VC C  Z T%T  --------7cf2a327f01aeC C &Content-Disposition: form-data; name=" "; filename="CC@"C C %C M9T  Content-Type: C C T  C C T  CCT  C C  {T  --------7cf2a327f01aeC C &Content-Disposition: form-data; name=""C C %C {9T  Content-Type: C C T  C C #T  C C  T   C%C !H  k:CCC &6=C    %C ,TCC C  VC C   T%C--------7cf2a327f01aeC C &Content-Disposition: form-data; name=" "; filename="CC@"C C  %C 5CContent-Type: C C  CC C  CCC CC C   wC--------7cf2a327f01aeC C &Content-Disposition: form-data; name=""C C  %C 5CContent-Type: C C  CC C  CC C   ?C UTCKEYTCVALUE LLFILENAME LCCONTENTTYPELCEXTRAHEADERS LCOLDALIASWWUTILSTHISLUSELARGEPOSTBUFFER OPOSTSTREAMCLEAR CPOSTBUFFER NHTTPPOSTMODE URLENCODEWRITE  TCtH) C UT #TC C  2-T: C C ULCKEYLCVALUE LNPARMCOUNTTHIS CEXTRAHEADERS# BCULCKEYLCVALUETHIS ADDHEADER)BCC:C ULCHEADEREXTRACTTHIS CHTTPHEADERSgT T #TCCC  6`T TC@#TCCC  6`#TCCC  6`%http://TChttp://%Chttp:TbTRYou must provide a server name (ie. www.somedomain or 111.111.111.121), not a URL. B%&TC P6 TT TT+|InternetCloseHandle WinInet.DLL | GetLastErrorWIN32API,| InternetOpen WININET.DLL0|InternetSetOption WININET.DLL%C T)TC%}TCTC BT5|InternetConnect WININET.DLL.T!C" %!GCTCTC BT#! BU$LCSERVER LCUSERNAME LCPASSWORDLLHTTPSLHIPLHHTTPLNERROR LNHTTPPORTTHIS CRESULTCODE CHTTPHEADERSCSERVER CUSERNAME CPASSWORDNERROR CERRORMSG NHTTPPORT LSECURELINKINTERNETCLOSEHANDLEWININETDLL GETLASTERRORWIN32API INTERNETOPENINTERNETSETOPTIONCHTTPPROXYNAMENHTTPCONNECTTYPEHINETCONNECTION CUSERAGENTCHTTPPROXYBYPASSGETSYSTEMERRORMSG HIPSESSIONINTERNETCONNECT LHHTTPSESSION NSERVICEFLAGS HHTTPSESSION+|InternetCloseHandle WININET.DLL%MCT%CT% C T U INTERNETCLOSEHANDLEWININETDLLTHISLUSELARGEPOSTBUFFER OPOSTSTREAMCLEAR CPOSTBUFFER HHTTPSESSION HIPSESSION'    T 7%Chttp:// Chttps:// Thttp://T T %CN T T T L TTCC6TCC6TC %COT #T Invalid URL passed. B%T CC@httpsa-6T  T Cg#T C % F B%yTCX T  T T+T C  C  BULCURL LCUSERNAME LCPASSWORD LCOUTPUTFILELNERRORLNSIZELCBUFFERSZHEADLOURLLLHTTPSLNRESULTHINETCONNECTION HHTTPRESULTTHIS CRESULTCODENERROR CERRORMSG TNBUFFERSIZEINTERNETCRACKURL CPROTOCOL LSECURELINK NHTTPPORTCPORT HTTPCONNECTCSERVERLCDATA HTTPGETEXCPATH CQUERYSTRING HTTPCLOSESTTBCULCURL LCUSERNAME LCPASSWORD LCOUTPUTFILETHIS CHTTPVERB NHTTPPOSTMODEHTTPGETb%>TPOSTBCULCURL LCUSERNAME LCPASSWORD LCOUTPUTFILETHIS NHTTPPOSTMODE CHTTPVERBHTTPGETFTPUTBCULCURL LCUSERNAME LCPASSWORD LCOUTPUTFILETHIS CHTTPVERBHTTPGETITDELETEBCULCURL LCUSERNAME LCPASSWORD LCOUTPUTFILETHIS CHTTPVERBHTTPGET TCC 6%TCCNC>6 T C% &CAccept-Encodinggzip %CT  %Chttp: yT bT RYou must provide a server name (ie. www.somedomain or 111.111.111.121), not a URL. BT -T T T T C M 5|HttpOpenRequest WININET.DLL/%  C    bT  @%C % ,TC   POSTGET6 (TCC ! POSTGET6 T LTC  AC " 6 T %T C#T C $ B C & %C & %% 'C3 C (/|HttpSendRequest WININET.DLL* T*-%  T*C ! .%C  C +  T*a%*&H" C , 32TContent-Type: ,C C  -iT/Content-Type: application/x-www-form-urlencodedC C CC C C 6 -|T,Content-Type: multipart/form-data; boundary=------7cf2a327f01aeC C C C CC6%  BT ! !--------7cf2a327f01ae--C C  >C--------7cf2a327f01ae--C C  . 2"3TContent-Type: text/xmlC C  NTCC 6%C / %C 0  B  T12 T2a+2 T2-T % T !C 3C 4)T1CC> !C !>)%1 T C#%  /T5 60|InternetSetOption WinInet.dllC/57 T2a.T C $C8 B /| HttpQueryInfo WININET.DLLT:CXT;T1C:;9T <CC:C `T:CX T;T1C:;9T =CC:C `%C < K =T CC <C C Content-length: C >g?T? @%  T? $% @ ? @ T? @C < A0|InternetReadFile WININET.DLL%f TCX TCT1CB }%C TC% T +T Couldn't create output fileC8 B  T TD T1 TE TFG TG+aTHC?X TETICH>T1CHIEB%1E ^ %C TJCHE=TGGJ  CHETETFFCFH A%  %TGError: Download canceledTCG>T "T Download Cancelled!+%1E  1 ! TC TG TG%C ^ CC A%1T C#T C $'%  =399 T C =gT  KC83TCC C\6;% &CContent-Encoding: gzip < TCL4% MC; charset=utf-8 < TC  B UNTCPAGETCBUFFER TNBUFFERSIZE TCHEADERS TCFILENAME HHTTPRESULT LCOLDALIFASLHFILELCVERBTHISCLINK LCOLDALIAS LALLOWGZIP APPENDHEADER CEXTRAHEADERSCSERVERNERROR CERRORMSGLHTTPCANCELDOWNLOAD NCONTENTSIZE SETOPTION HHTTPSESSIONHTTPOPENREQUESTWININETDLL LCACHEREQUESTCHTTPPROXYNAMENHTTPCONNECTTYPENHTTPSERVICEFLAGS CHTTPVERBLUSELARGEPOSTBUFFER OPOSTSTREAMNLENGTH CPOSTBUFFER LSECURELINK GETLASTERRORGETSYSTEMERRORMSGWININETSETTIMEOUTNCONNECTTIMEOUTLIGNORECERTIFICATEWARNINGSONHTTPPOSTCONNECTHTTPSENDREQUEST LLHASPOSTDATANHANDLE CCONTENTTYPE NHTTPPOSTMODEWRITECHTTPPROXYUSERNAME SETPROXYLOGINLNRETVALLLLOOPTOSTRINGCLEARLNCERTNONCLIENTCERTNUMBERINDEXINTERNETSETOPTIONINTERNETCLOSEHANDLE HTTPQUERYINFO LCHEADERS LNHEADERSIZE CHTTPHEADERS CRESULTCODEEXTRACTLNHTTPBUFFERSIZENHTTPWORKBUFFERSIZEONHTTPBUFFERUPDATEINTERNETREADFILE LNBUFFERSIZETNSIZE LNBYTESREAD LNBUFFERREADSLCBUFFER LCREADBUFFERLNSIZELCTCRESULTCODEMESSAGEGZIPUNCOMPRESSSTRING LDECODEUTF8YTCC 6| HTTPGetAsyncCBULCURL HTTPGETASYNCTHISCDLLPATHTTCC/6T  T  TCC6TCC6TCC6% TCC%C %C%iT/Content-Type: application/x-www-form-urlencodedC C CC C C 6%|T,Content-Type: multipart/form-data; boundary=------7cf2a327f01aeC C C C CC6%C 6T------7cf2a327f01aeC C  TCC 6 TCF|HTTPGetExAsync WWIPSTUFF.DLLTCXTC>jTCC>C6 TTBUTCPAGE TCRESULTFILE TNRESULTSIZE TCHEADERSTNSECONDSBEFOREDELETE HHTTPRESULTTCSERVERTHISCSERVER TCUSERNAME CUSERNAME TCPASSWORD CPASSWORDLUSELARGEPOSTBUFFER CPOSTBUFFER OPOSTSTREAMTOSTRINGCLEAR NHTTPPOSTMODE LCOLDALIASHTTPGETEXASYNC WWIPSTUFFDLLTCBUFFER TNBUFSIZELNRET HIPSESSION HHTTPSESSION LSECURELINKNHTTPCONNECTTYPEF%C@ T%Cb TT   T C %C OT#T Invalid URL passed. B%T CC @httpsa-6T TC g#T C  % { B5|HttpOpenRequest WININET.DLLQTCHEAD   AC 6%eTCT CC C B/|HttpSendRequest WININET.DLLTC `T!CC>%!(TCT CC C B/| HttpQueryInfo WININET.DLLTCPXT#C>T!C#"%!TCT C BC C,T$C#C#\6T%$ B$U&LCURL LCUSERNAME LCPASSWORDLNERRORLNSIZELCBUFFER LCHEADERSTHISNERRORLOURLLLHTTPSLNRESULTINTERNETCRACKURL CERRORMSG CPROTOCOL LSECURELINK NHTTPPORTCPORT HTTPCONNECTCSERVERHTTPOPENREQUESTWININETDLL HHTTPRESULT HHTTPSESSIONCPATH CQUERYSTRING GETLASTERRORGETSYSTEMERRORMSGINTERNETCLOSEHANDLE HTTPCLOSEHTTPSENDREQUEST CEXTRAHEADERSLNRETVAL HTTPQUERYINFO LNHEADERSIZE TCHEADERS CHTTPHEADERS U LNHTTPHANDLEULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNKLOHTTPTaUTHISLHTTPCANCELDOWNLOAD(BCU LCZIPFILE LCDESTINATION LCFILESPEC UNZIPFILES0BCU LCZIPFILE LCFILELIST LNCOMPRESSION LLRECURSEZIPFILES BCULCBUFFERLCDBF DECODEDBF(BCULCDBF LLHASMEMO LCENCODEDNAME ENCODEDBFM!TCC  6!TCC  6 TCC  6%CB0|InternetSetOption WinInet.dll T+ T,%C TC TC> TTC %TCTCB-%C ?TC TC> TTC %;TCTCB-BaU TCUSERNAME TCPASSWORD HIPHANDLE LCUSERNAME LCPASSWORDLPBUFFERLPDWBUFFERLENGTHNSUCCESSTHISCHTTPPROXYUSERNAMECHTTPPROXYPASSWORD HIPSESSIONINTERNETSETOPTIONWININETDLLINTERNET_OPTION_PROXY_USERNAMEINTERNET_OPTION_PROXY_PASSWORDDWBUFFERLENGTHDWOPTIONNERROR GETLASTERROR CERRORMSGGETSYSTEMERRORMSG0|InternetSetOption WININET.DLLTC%}BaB-ULNHANDLE LNOPTIONID LNOPTIONVALUELNRESULTINTERNETSETOPTIONWININETDLL%%C=T/TT2%C@http://C@https:// T C #T Chttp:// T'%  400 BaB-U LNTIMEOUTLCSERVERLCLINKLCFILE LLSUCCESSLNHANDLE LNSAVETIMEOUTTHISNCONNECTTIMEOUTLCRESULTHTTPGETNERROR CRESULTCODE TC?%lTC\TC=  TTC://% Thttp://TC://TCC=@H  http/T80 httpsWT443 ftp|T21 2T80TC\TC/% TT/ %TC\TC\TC:%{TC\TC=TCEMPTYNC cProtocol CcServer CcPath C cQuerystring CcPort BUTCURLLNAT LCPROTOCOL LCQUERYSTRINGLCPORTLCSERVERLOURL &TCCN6%HB%CmTTTCTCTCBU DWTIMEOUTSECSLNHANDLETHISNCONNECTTIMEOUT HIPSESSIONLLRETVALINTERNETSETOPTION%C%2: BOK%C TCTC %TC\ B T%CNTC_ TH 2ATOK 500pT Server Error 501TNot implemented 502T Bad Gateway 503 TService Unavailable 5048TGateway Timeout 505u'THTTP Version Not Supported 5T Server Error 401T Unauthorized 403T Forbidden 404)T Not Found 405^TMethod Not Allowed 408#TServer Request Timeout 409TConflict 48T+Invalid Request Format (Generic HTTP Error) 301BTMoved Permanently 302y!TFound and Redirected 303T See Other 304T Not Modified 3T Redirection BU LCERRORNUMBERTHIS CRESULTCODE CHTTPHEADERSLCLINELNATLCRESULT,TCClnErrorbN6:|InternetGetLastResponseInfo WININET.DLLTCXTC>C% BBC\ULNERRORTHISNERRORINTERNETGETLASTRESPONSEINFOWININETDLL LCERRORMSGLNSIZE5%"BC BUTHISLUSELARGEPOSTBUFFER OPOSTSTREAMTOSTRING CPOSTBUFFER%CNKCrasxpsaT1|InternetErrorDlg WinInet.dllG1 TC9 / C C BU LNHTTPHANDLETHIS HTTPCONNECT HHTTPSESSIONINTERNETERRORDLGWININETDLLLNRESULTHWNDGETSYSTEMERRORMSG HTTPCLOSE9 %CJTMy%CwT CurrentUser"TCGetwwDotnetBridge()TC LC8System.Security.Cryptography.X509Certificates.StoreName. TC PC<System.Security.Cryptography.X509Certificates.StoreLocation.  STC7System.Security.Cryptography.X509Certificates.X509Store %C1T !Couldn't create certificate storeBTTC@System.Security.Cryptography.X509Certificates.OpenFlags.ReadOnlyC$TC CertificatesTCCountTC CollectionN(TCC C C BU LCSTORENAME LCLOCATIONLOBRIDGELEMY LELOCATION LEREADONLYLOSTORELNXLNCOUNTCREATECOMVALUESETENUMVALUECREATEINSTANCETHIS CERRORMESSAGE GETENUMVALUEOPENLOCERTIFICATES GETPROPERTYLOCERTSLOCERTGETINDEXEDPROPERTYADDCLOSEDISPOSE   .TCC lnErrorNobN6%.e BCTCX/| FormatMessageWIN32API$|GetModuleHandleWIN32APIT C wininet.dll %  ,)TC C> C T%sTC\ (TCC>%(T Win32 API: C\  T BU LNERRORNOLLAPI SZMSGBUFFERLNSIZETHISNERRORGETLASTINTERNETERROR FORMATMESSAGEWIN32APIGETMODULEHANDLELNMODULE8$%  1 CUTHIS HIPSESSION HHTTPSESSION HTTPCLOSE BCUTHISGETMESSAGEFROMRESULTCODEoPostStream_AccessxInit AddPostKey AddHeader  AppendHeader  GetHttpHeader  HTTPConnectP  httpcloseHTTPGetGetPostPutyDelete HTTPGetEx HttpGetAsync.HttpGetExasyncV/ HTTPGetHeader4OnHttpPostConnect:OnHTTPBufferUpdate:httpcanceldownload ; UnZipFilesA;ZipFiles; DecodeDBF< EncodeDBFZ< SetProxyLogin< SetOptionU@httpping8AInternetCrackUrlBwininetsettimeoutVFGetMessageFromResultCodeGgetlastinterneterrorL GetPostBuffer)NSelectClientCertificateIndexNGetCertificatesPgetsystemerrormsgKTDESTROYVcResultCodeMessage_AccessHW T T T T T- T  T T T T  T  T  T  T  TT T T T T- T T T- T TCHzG@_8TWest Wind Internet Protocols CHzG@_ T T T T T T T - T! T" T# T$- T%- T&-                          ! " # $ %U'CDLLPATH CERRORMSG CPASSWORD CUSERNAME LSECURELINKNCONNECTTIMEOUT HIPSESSION HHTTPSESSIONNERRORNHTTPCONNECTTYPECSERVERCLINK CHTTPVERB NHTTPPOSTMODE NHTTPPORTNHTTPWORKBUFFERSIZE CEXTRAHEADERS CHTTPHEADERS NCONTENTSIZELHTTPCANCELDOWNLOAD CCONTENTTYPE CPOSTBUFFERLUSELARGEPOSTBUFFER OPOSTSTREAMCVERSION CUSERAGENTCHTTPPROXYNAMECHTTPPROXYBYPASSCHTTPPROXYUSERNAMECHTTPPROXYPASSWORD NSERVICEFLAGSNHTTPSERVICEFLAGSLIGNORECERTIFICATEWARNINGSNCLIENTCERTNUMBERINDEX CRESULTCODECRESULTCODEMESSAGE LCACHEREQUEST LALLOWGZIP LDECODEUTF8wwHTTPCustomZ1AA 1q2!AA3q11!QAAAA1AA1!aa!AQ !A!A1AAqA!aa!A !QAq!QAAAAAA311A3Q3q311111A!AaaAQA1AQAAA3!AaAaA31qqAqAQq1AQQ11A1A3131qAA31131a3q1Q!aAA!AQAA!AAAAAq1!Aq11AAQ!aa1!A1AAQAAAq1qA1qAAAAAQAqaAAAA1!AAAq!AA!Q!AAAAA!AA1AAqQ1A1!AA1A3qA3qq!qAQaAaQaAAAAa1A31AAQq1AQQ11AQAAA!1AA!AAA3q6163a313!3a3qAA!11qAA!11qAAq3q1qAq3A!Q1AqqAq3qq11!aAQ1QAqaAa11!A11aaAQqq3a1AAA!A3qqAQQa1aAAAqAAaaaaaaqAaaaaaaa1aQAaaaaaAA3qa1A3!A3qqAa3AA!1qAAAA3AAAA11AA3AA34qw`0 `@04I" 9:EidtIwvz""A$h$))~*"*n+)+.,1T,,7-fM=M:N iNV?V^9%_n_t'_`{)O`q`+` a.4aa1a)b4Rbb7bhZhicj&luVlnqqss{ |}a}6~nr~6ue/хJ͉$N]P#%K=DJDvN)X}G+(wwUtilsG+(wwAPIG+(wwRegExG+( wwCollectionsG+(wwDotnetBridgeG+(wwJsonSerializerUWWUTILSWWAPIWWREGEX WWCOLLECTIONSWWDOTNETBRIDGEWWJSONSERIALIZERk%CC TCwwJsonSerializerNTBCULVVALUE LLFORMATJSON LOSERIALIZER ISNULLOREMPTYFORMATTEDOUTPUT SERIALIZEW %C? TCwwJsonSerializerNBCULCJSON LOSERIALIZER ISNULLOREMPTYDESERIALIZEJSON%C T(X%AZ az  09  _ .TC T BUTHISPROPERTYNAMECHARACTERFILTER LCCHARFILTERLNX  %C8TTCPOINTv G;(.TC G;(%TC BU LVVALUELLFORMAT LCOLDPOINTLCJSONTHISFORMATTEDOUTPUTCOUTPUT WRITEVALUE FORMATJSON %C/ B%CC}3*Json Deserialization requires string input%CTC>TC'Westwind.WebConnection.wwJsonSerializer%COTC %C?BHT  O|BC   ABC 2BC ULCJSONLOSERLORES ISNULLOREMPTYTHISOBRIDGEGETWWDOTNETBRIDGECREATEINSTANCE CERRORMSGDESERIALIZEJSONNETTYPEPARSEOBJECTJSONPARSEARRAYJSONPARSEVALUEJSONBCULCJSONTHISDESERIALIZEJSON   TClvValuebHS# C ALEN(lvValue)bNC CTnull CCMV^HZM cursor:cursor_rawarray:  cursor_legacy ?C 2ZC  Y TCC@N_ CINFTC_ L0%Ttrue ,Tfalse CDTZC W Q 'T"C " G O  T C lvValue.ClassbH. CC @ collection %^T[] #T CClvValue.GetKey(1)Ρ % C C0 CC @ wwcollection 0 C C- CC @ wwdynamic nC 2C 2TnullULVVALUELCTYPELNXLA_ARRAY LVVALARRAYTHIS WRITEARRAYCOUTPUT WRITECURSOR WRITESTRING WRITEDATE LCVALUETYPE LLHASKEYSCLASSCOUNTWRITEKEYCOLLECTIONWRITECOLLECTIONAITEMSWRITEDYNAMICOBJECT WRITEOBJECT%=TC `%CoT""B TC>% TC Q TC Q7% 2-|JsonEncodeString wwipstuff.dll TaT C % I@JSON Encoding failed: result string exceeds 16 meg string limit.TC ULCVALUELNKLCRESULTLCOUTPUTTHISTRIMSTRINGVALUESCOUTPUT LNBUFFERSIZE__JSONENCODESTRINGAPIJSONENCODESTRING WWIPSTUFFDLL LNPOINTERWINAPI_NULLSTRING%CD.TC%CVTƞBA%CTCiTC'Westwind.WebConnection.wwJsonSerializerSerializeJsonUtcDateBULVVALUETHISOBRIDGEGETWWDOTNETBRIDGECOUTPUTINVOKESTATICMETHODASSUMEUTCDATESTCT[(TCCT,TC,T]ULAITEMSLNROWSLNXLVITEMTHISCOUTPUT WRITEVALUETRIMWHITESPACETT[(TCCT,TC, T]U LOCOLLNROWSLNXLVITEMCOUNTTHISCOUTPUTITEM WRITEVALUETRIMWHITESPACE TT{(*T"C":CC % T,T}U LOCOLLECTIONLORESULTLNROWSCOUNTTHISCOUTPUTLNXGETKEY WRITEVALUEITEMWTCbT  { C TC (TCC@/%C,,, ,.%<TC %8TC #T  "": -%CALEN(loObject.)bN )ACOPY(loobject.&lcfieldname,la_array) C CC loObject.T  ,T C ,VT  }ULOOBJECTLNX LNPROPERTIES LLPROPNAMES LCFIELDNAMELNINDEX LAMEMBERSLA_ARRAYTHISCOUTPUTENSUREPROPERTYNAMEOVERRIDESOPROPERTYNAMESPROPERTYEXCLUSIONLISTGETINDEXAITEMS WRITEARRAY WRITEVALUEM+%C C TC,% C TC wwCollectionN(CC TT  T %CClvValue.__Reference T  U LVVALUELNXLNCOUNTLCOLDEXCLUSIONLIST__PROPERTYNAMEOVERRIDESTHISPROPERTYNAMEOVERRIDESLAITEMSOPROPERTYNAMESADDLCOLDEXCLUSIONSPROPERTYEXCLUSIONLIST WRITEOBJECT Ta(%Ccursor_rawarray:~%TCcursor_rawarray: TCcursor:%%C cursor_legacy T-#TCcursor_legacy: TC%C( TC%C\T  nullB%C{ F BTC  C TC % T  {"Rows":T  [ T ~T  {(aTCC @T C % G.%TC %TC "T  "":CC% ]T  ,T  },T%C F!T C ,V]% ,T  ,"Count": C_}ULCCURSOR LNFIELDCOUNTLNX LCOLDCURSORLCFIELDLLNOROWS LLEXCLUSIONSLNCOUNTTHISCOUTPUTLAFIELDSENSUREPROPERTYNAMEOVERRIDESOPROPERTYNAMESLCTYPELNINDEXGETINDEXAITEMS WRITEVALUETC cursorrow: TC%Cb TC%CTnullB%C F BTCT{(oTC#T"": CC T,!TC,V}%C FU LVVALUE LNFIELDCOUNTLNX LCOLDCURSORLCFIELDLCCURSORTHISCOUTPUTLAFIELDS WRITEVALUEp!%C C iTC wwCollectionN)TC,UTHISPROPERTYNAMEOVERRIDESOPROPERTYNAMESCOUNTAITEMS%CO\7TC ScriptControlNT JavaScript T TC  BU LCJSONSTRING POJSCRIPT LOJSCRIPTLANGUAGELCVALUEEVAL BCgULCNUMBER4%true&BaB-U LCLOGICAL  %CGB%C>oB.%CRZ"C\- LTC"TCT TCC>\T{^}TC%( BTC< B%%"\/ "\\/ TCCDate()g#BƞBAC<  TC new Date()TC,eT{^C-CCCg_-C C:C:C}TC% BTC< BULCDATELLRETURNUTCTIMELNCOUNTLDDATELANUMS GETTIMEZONELNMSECS LCDATENUMSl %C> FBTCC>\%COTCEMPTYN T T-+a\%C, TCC\TCC\TC":%*!TC\TCC\Hp {TC{} %C T [TC[] %C T "  T C)T C".*?((^")|[^\\]")  %C  TC  2TC,"% T TC\TCCCC  %CX! BULCOBJECTSTRINGLOOBJECTLNCURPOSLLDONELNATLNAT2 LCPROPERTYLCOBJECTLCVALUE STARTSWITHTHISFINDMATCHINGBRACELOREGEX LOMATCHESGETWWREGEXOBJECTMATCHCOUNTITEMVALUE DESERIALIZEITC%nullKB%C> zBC CollectionNTCCC>\TC CollectionN+a9%C>!%C\,TCC\TC\ THE {TC{}TC  [TC[]TC  "w  T C )T C".*?((^")|[^\\]")  %C  ^TC TC 2TC,%TC]%!TC\TCTCCC BULCOBJECTSTRINGLCDATALCFIRSTLCVALUELOCOLLNATLVVALUETHISFINDMATCHINGBRACE PARSEOBJECT PARSEARRAYLOREGEX LOMATCHESGETWWREGEXOBJECTMATCHCOUNTITEMVALUE PARSESTRING DESERIALIZEADD TC%L BTC\TC% B%BC\TC% BBC\ULCCODE LCOPENBRACE LCCLOSEBRACE LCFOLLOWSLNAT LCSUBCODELNOCCURS- %C7TC>TC'Westwind.WebConnection.wwJsonSerializerTC%CBH& OBC  A BC 2&BC U LCXMLLOSERLORESTHISOBRIDGEGETWWDOTNETBRIDGECREATEINSTANCEDESERIALIZEXMLTYPEPARSEOBJECTJSONPARSEARRAYJSONPARSEVALUEJSON&BCValueULORESTHISOBRIDGE GETPROPERTY#TCEMPTYN%TC GetMembers T (TC TH9 OTC  ATC  29TC TTC=%CT_%  $ .TC C  BULOOBJECTLORESULT LOMEMBERSLOMEMBERLNCOUNTLNXLVVALUELCNAME LCNAME_FIRSTTHISOBRIDGE INVOKEMETHODCOUNTITEMTYPEPARSEOBJECTJSONPARSEARRAYJSONPARSEVALUEJSONNAMEIGNOREDOLLARVARSPROPERTYNAMECHARACTERFILTERZTC CollectionN$TC GetValues T (JTC TH5  OTC   ATC 25TCC BULOOBJECT LOCOLLECTIONLOVALUELOVALUESLVVALUELNCOUNTLNXTHISOBRIDGE INVOKEMETHODCOUNTITEMTYPEPARSEOBJECTJSONPARSEARRAYJSONPARSEVALUEJSONADDXC T,BC loObject.ULOOBJECT LCPROPERTYLVVALUETHISPROPERTYNAMEOVERRIDES\ CCEMPTYN T,BC loObject.ULOOBJECT LCPROPERTYTHISPROPERTYNAMEOVERRIDESa CC CollectionN T,BC loObject.ULOOBJECT LCPROPERTYTHISPROPERTYNAMEOVERRIDES%C3TC>TC'Westwind.WebConnection.wwJsonSerializerBCULCJSONLOSERTHISOBRIDGEGETWWDOTNETBRIDGECREATEINSTANCE FORMATJSON|%CO.T%Ci#TCwwJsonSerializerN BU LOSERIALIZERTHIS OSERIALIZER%CO.T o%COkTCwwHttpN BULOHTTPTHISOHTTPT -%C%C iTGET TPOSTTC T %C TC TC Tapplication/jsonCTC%iTT a+%Capplication/json(%C charset=utf-8TC TC TC B BULCURL LVPOSTDATALCVERBLCRESULTLCJSONLOHTTPLOSERLORESULTTHISLERROR ISNULLOREMPTY CREATEWWHTTP CHTTPVERBCREATESERIALIZER SERIALIZE CCONTENTTYPE ADDPOSTKEYHTTPGETNERROR CERRORMSG CHTTPHEADERSDESERIALIZEJSON JsonSerializeJsonDeserialize"PropertyNameCharacterFilter_AccessL Serialize^DeserializeJson Deserialize WriteValueF WriteString  WriteDatec WriteArrayWriteCollectionWriteKeyCollection WriteObjectIWriteDynamicObjectz WriteCursorWriteRowjEnsurePropertyNameOverrides  ParseString=! ParseNumber(" ParseLogicalO" ParseDate" ParseObject% ParseArray)FindMatchingBrace-DeserializeXmlV/ParseValueJson1ParseObjectJsonj1ParseArrayJsonD4PropertyN6PropertyObject6PropertyCollection7 FormatJson8CreateSerializer8 CreatewwHttp9 CallService?: T TaT`,activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,Cclass,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,bwidth,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column, T T- T Ta T- T  T  T                         U COUTPUTTRIMSTRINGVALUESPROPERTYEXCLUSIONLISTPROPERTYNAMEOVERRIDESASSUMEUTCDATESOUTPUTDATETYPEIGNOREDOLLARVARSFORMATTEDOUTPUTPROPERTYNAMECHARACTERFILTEROBRIDGEOPROPERTYNAMES\ T T- T T T ! " #U CERRORMSGLERRORCSERVICEBASEURL OSERIALIZEROHTTPwwJsonSerializerCustom@wwJsonServiceClientCustomDq3AA3AA?AAA1AA7!AAA3qAAq1AAAqAQqAqqA3q3qa1AAAAqAAa1AAAAA3q1!AAAqq1aAqAaAA3qqA1AAAA3q!A3qQA3qaAA3qqqQ1AAA1AA1AA3qAAAQ3qQAQ1AAAAAAQ1AqqQAAA1AA!!1AAAAA3q1AAAAAQQ1!AA3A3qqqAQA3q3qqAq3AQAaqAqAQ1AQAq3QqAqQAAAAA1AAAAAAAqAA1AAAAA3qqqqAQaAQAAAAQAQAQAqAQ111A1AAQAA31!1AQ!1A1AQ1A3qAAQqAqqA3q3q1QQQqQqQQA!!AAA!A3qAQqQqQQAA3!333qqAA<qqAA1A3qqAA3qAAAQQAQa1A1AQA4qq  @@P@P: 1 9& Q8/ IK; z gN l@!T $$'#(/6I/3yf[3^4k45x56{C666V;;BBIIKO#KNe6VNNz9NRVSUjUVoVWtWXyXYZ[[\\`Y'Z`%<vNSX!G+( wwJsonServiceUWWJSONSERIALIZER WWJSONSERVICE T -T -T T  TCwwJSONSerializerNT  5 T T"TCC CONTENT_TYPE@!T CC HTTP_ACCEPT@T json%%C  text/xml VT xml%C"TCCallbackMethod%CTCMethodH@F application/x-javascriptapplication/json %CK#BCNo method specified TC%C  5TCT __JsonParm1 C CCallbackParmCount Y%TCCallbackParmCount%CL+TaTCg<%C $C,,, , *BCMethod access denied:   T(?TParmC_TC/&lcparm = loserializer.deserialize(lcvalue) T,TC,V4 C CCCallbackParmCount! %TCCallbackParmCountTCg<%C $C,,, , '*BCMethod access denied:   T(TParmC_TC&lcparm = lcvalue T,TC,V 2@%CTCMethod%C/#BCNo method specified  T"#$% T"- T%% .T$loTargetObject.()T&C$ ? .T$loTargetObject.()T&C$(%; T"aC% '%"eBC%( %  Bn%C)O)*application/json #)*application/x-javascript )*text/ !%C& T& B&TCcallback!% xmlkBC& + TC&,%C BB(  )U-REQUESTLOTARGETOBJECTLCMETHODLNPARMS LOSERIALIZERLCVALUELNX LCCALLBACKLCOUTPUT LCACCEPTTYPETHIS ISRAWRESPONSE ERROROCCURRED LASTEXCEPTION ERRORMESSAGEFORMATTEDOUTPUT ISDEBUGMODE JSONSERVICE SERIALIZER LCCONTENTTYPESERVERVARIABLES RESPONSEMODEPARAMSRETURNEXCEPTIONOBJECTLCPARMSGETRAWFORMDATA __JSONPARMLCPARMDESERIALIZEJSON ISFORMVAR LCPARMCOUNT LUTF8ENCODINGALLOWEDMETHODS QUERYSTRINGLLERRORLOERRORLCCMD LOEXCEPTIONLCRESULTONERRORMESSAGERESPONSE CONTENTTYPERETURNXMLRESPONSE SERIALIZETa%COOTT TUnknown error.TC ExceptionNTU LOEXCEPTIONTHIS ERROROCCURRED ERRORMESSAGEMESSAGE LASTEXCEPTIONKTCwwXmlNTaBCdocULOVALUELOXMLLRECURSEOBJECTS OBJECTTOXML"TaTTC ExceptionNT%xmlT text/xmlSB21;B#{"isCallbackError":true,"message": C  }U LCMESSAGELOERRORTHIS ERROROCCURRED ERRORMESSAGE LASTEXCEPTIONMESSAGE RESPONSEMODERESPONSE CONTENTTYPE JSONSTRING CallMethodoOnErrori ReturnXmlResponsei ReturnExceptionObject  T T- T- T T T-Tjson    UALLOWEDMETHODS ISRAWRESPONSE ERROROCCURRED ERRORMESSAGE LASTEXCEPTION ISDEBUGMODE RESPONSEMODE wwJsonServiceCUSTOMqq<q1!AQ1A!AAa1A!QqAQAAqQaAaAQAqQQaAaA1AAq!AA1A!AAAQAA3qq1aA3qqQq3qq11A4 >*tDrys%(162vNwX1G+(wwPDFG+(wwEVALG+(wwAPIUWWPDFWWEVALWWAPI+TCC6T TCwwEvalN1CSET PRINTER TO NAME ' '% /TCouldn't set printer to  B-#T C]\C].psKREPORT FORM (lcreport) &lcextrareportclauses NOCONSOLE TO FILE &lctfile G*( T C pdf%CCC Ի0T CC Ի= ( %C 0= ( 'TOutput file not createdB-BaU LCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLOEVALLTSTARTLNHANDLETHIS CERRORMSGEXECUTECOMMANDCPRINTERDRIVERLERRORLCTFILE  $TC]\C].pdf%C|TC  B  BULCREPORTLCEXTRACLAUSES LCFILENAMELCOUTPUTTHIS PRINTREPORT %CC"B- TC]\C]3 C&TC .FRX .FRX .FRT B U LCOUTPUTFILELCEXTRAREPORTCLAUSESLCFRXLLRESULTTHIS PRINTREPORT#TC]\C].pdf%CqTC  B  BULCEXTRACLAUSES LCFILENAMETHIS QUICKREPORTLCOUTPUTFILE2VARTCC6T %C0n  T-  T-&%CSERVERbO TaC ]G*(J bREPORT FORM (lcreport) &lcextrareportclauses NOCONSOLE TO FILE (lcoutputfile) NODIALOG NOEJECT G*(%mC ] ( d  Cd%C0TC % C!(H R, Ta(T Printing failed: %bB-%C0~Ba6T &Postscript output file was not createdB-ULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSES LOEXCEPTIONLLERRORLNXLNHANDLELLUNATTENDEDMODETHIS CERRORMSGSERVERLUNATTENDEDCOMMODECPRINTERDRIVER NMAXWAITTIME WINAPI_SLEEPMESSAGE;TCC6T TCwwEvalN1CSET PRINTER TO NAME ' '% /TCouldn't set printer to  B-#T C]\C].psKREPORT FORM (lcreport) &lcextrareportclauses NOCONSOLE TO FILE &lctfile G*(%C 0T C NTC   %C0 'TOutput file not createdB- -'TOutput file not createdB-BaULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLOEVALLTSTARTLNHANDLETHIS CERRORMSGEXECUTECOMMANDCPRINTERDRIVERLERRORLCTFILELODISTCDISTILLERPROGIDLNRESULT FILETOPDFzTCC6T TCwwEvalN1CSET PRINTER TO NAME ' '% /TCouldn't set printer to  B-#T C]\C].ps  T -&%CSERVERbO  ` T aC ]]REPORT FORM (lcreport) &lcextrareportclauses NOCONSOLE TO FILE (lctfile) NODIALOG NOEJECT G*(% C ](TB-%C 0%.| GhostPsToPdf wwipstuff.dll%C T  T6%C C0 6T&Final PDF output file was not created. B-  l6T&Postscript output file was not createdB-BaULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLOEVALLTSTARTLNHANDLETHIS CERRORMSGEXECUTECOMMANDCPRINTERDRIVERLERRORLCTFILELLUNATTENDEDMODESERVERLUNATTENDEDCOMMODE LOEXCEPTIONMESSAGE GHOSTPSTOPDF WWIPSTUFFDLLLCGHOSTSCRIPTDLLPATHCGHOSTSCRIPTDLLPATH CRESOLUTION CPAPERSIZE%"TCAPServer.ObjectNUTHISOPDFTUTHISOPDFM%Ct% Ta!TC6ULLSETTHISOPDF ORIENTATION#  TCC6TC@TC%CTC]C]%C "%CC] 5T !Can't find PDF output directory: B- TC]T CT C T -TC %3T PDF StartPrinting() Error# CCZB-C1Tset printer to name ' '&s FREPORT FORM (lcreport) &lcextrareportclauses NOCONSOLE TO PRINTER C C BaULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLOEVALLTSTARTLNHANDLELCSETPRINTERSTRLNRETVAL LCOUTPUTDIR LCFILESTUB LNSECONDSTHIS CERRORMSGOPDFOUTPUTDIRECTORYNEWDOCUMENTNAME USESTATICPOOL STARTPRINTING STUPARRAYSNEWPRINTERNAMEWAIT STOPPRINTINGV2T%SET LIBRARY TO "FllIntf.fll" ADDITIVE &lccmd TCULCCMDTHISOPDF DRIVERINITCPRINTERDRIVERT CCCT< FllIntf.fllUTHISUNLOCKSEMAPHOREFILENAMEOPTIONSOPDF DRIVERENDFLLINTFFLL%C EB-TCC6   T  T  T  !C   C  +C0 TCwwEvalN1CSET PRINTER TO NAME " "%/T Couldn't set printer to  C B-MREPORT FORM (lcreport) &lcextrareportclauses NOEJECT NOCONSOLE TO PRINTER G*( C BaULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLOEVALLTSTARTLNHANDLELCSETPRINTERSTRLNRETVAL LCOUTPUTDIRTHIS LOCKSEMAPHORE NNOPROMPT NUSEFILENAME NBROADCASTFILENAMEOPTIONSOPDFDEFAULTFILENAMEEXECUTECOMMANDCPRINTERDRIVERLERROR CERRORMSGUNLOCKSEMAPHORE  #TC]\C].pdf%C}TC  B  BULCREPORTLCEXTRACLAUSES LCFILENAMELCOUTPUTTHIS PRINTREPORTFILE2VARg TC%C0 m'h1TC  >CQ%CwwPDF QFTC REPROCESSv GM( T+CS  TC  TCS GM(%C W F BU LCOLDALIASLNOLDREPROCESSLLRETVALTHISCSEMAPHOREFILE TIMESTAMPIDWWPDFXXNTIMEOUT WINAPI_SLEEPY TCW%CwwPDF 9QFZ FBU LCOLDALIASTHISCSEMAPHOREFILEWWPDF6|SleepWIN32APICBULNTIMESLEEPWIN32APIUUUU TCC6 T XFRX("XFRX#INIT")T C %C this.oPDFbO:T *Unable to create report generator instanceT - TCC6A%Cm.lcOutputFilebC C     qT  T -(%Cthis.nParamsRetValbNC  % ]C  #T C  % %T  Y*T Unable to generate report. ET ,Unable to set report parameters, error code C _C T  B ULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLLAPPENDLOEVALLTSTARTLNHANDLELCSETPRINTERSTRLNRETVAL LCOUTPUTDIRCXFRXTHISOPDF CERRORMSG LSUCCESSFUL COUTPUTNAME NPARAMSRETVAL SETPARAMSSETEMBEDDINGTYPENEMBEDDINGTYPE PROCESSREPORTFINALIZEoYTC       BULLAPPENDTHIS NPARAMSRETVALOPDF SETPARAMS COUTPUTNAMECTEMPDIRLNOTOPENVIEWER CCODEPAGELSILENT LNEWSESSIONCTARGETCARCHIVE LADDITIVELDELETEFILEAFTERU TCC6 "T XFRX("XFRX#LISTENER")T C T a %C this.oPDFbO:T *Unable to create report generator instanceT - T CC6A%Cm.lcOutputFilebC C     T  T -(%Cthis.nParamsRetValbNC  %  T   noresetT -% OREPORT FORM (m.lcreport) OBJECT THIS.opdf NOPAGEEJECT &lcextrareportclauses G*( ET ,Unable to set report parameters, error code C _T -C C T (BT -T  B ULCREPORT LCOUTPUTFILELCEXTRAREPORTCLAUSESLLAPPENDLOEVALLTSTARTLNHANDLELCSETPRINTERSTRLNRETVAL LCOUTPUTDIRCXFRXTHISOPDF LSUCCESSFUL CERRORMSG COUTPUTNAME NPARAMSRETVAL SETPARAMS LRESETPAGENOFINALIZEOERRORMESSAGETaUTHIS LRESETPAGENOoYTC       BULLAPPENDTHIS NPARAMSRETVALOPDF SETPARAMS COUTPUTNAMECTEMPDIRLNOTOPENVIEWER CCODEPAGELSILENT LNEWSESSIONCTARGETCARCHIVE LADDITIVELDELETEFILEAFTER PrintReporttPrintReportToString2 QuickReportQuickReportToString PrintReport PrintReport  PrintReport Init5DestroynSetLandscapeMode PrintReportInitDestroy8 PrintReportPrintReportToString LockSemaphoreUnlockSemaphoreSleepN DriverInit DriverEndFileNameOptionsDefaultFileName PrintReport SetParams! PrintReport" ResetPageNo4' SetParamsa'V TTAcrobat PDFWriter    U CERRORMSGCPRINTERDRIVER>#TMicrosoft Print to PDFT' UCPRINTERDRIVER NMAXWAITTIMEc T!TXerox Phaser 1235 PS(TPDFDISTILLER.PDFDISTILLER.1 U CERRORMSGCPRINTERDRIVERCDISTILLERPROGIDo T!TLexmark C510 PS (MS) TT150x150Tletter U CERRORMSGCPRINTERDRIVERCGHOSTSCRIPTDLLPATH CRESOLUTION CPAPERSIZEj T T T T T  UOPDF CERRORMSGNTIMEOUTCPRINTERDRIVERCTEMPOUTPUTFILE T T T!TAmyuni PDF Converter TTC] \wwPDF.dbf    UOPDF CERRORMSGNTIMEOUTCPRINTERDRIVERCTEMPOUTPUTFILECSEMAPHOREFILE T T TTC]TPDF Ta T- Ta T- T - T - T - T  T - T-  UOPDF CERRORMSG COUTPUTNAMECTEMPDIRCTARGETLNOTOPENVIEWER CCODEPAGELSILENT LNEWSESSIONCARCHIVE LADDITIVELDELETEFILEAFTERNEMBEDDINGTYPE LSUCCESSFUL NPARAMSRETVAL T T TTCtemp5TPDF Ta T- Ta T- T - T - T - T  T - T- T-   UOPDF CERRORMSG COUTPUTNAMECTEMPDIRCTARGETLNOTOPENVIEWER CCODEPAGELSILENT LNEWSESSIONCARCHIVE LADDITIVELDELETEFILEAFTERNEMBEDDINGTYPE LSUCCESSFUL NPARAMSRETVAL LRESETPAGENOwwPDF50RELATION*wwPdfPrinterDriverwwPDF508+ wwDistillerwwPDF50+ wwGhostScriptwwPDF504, wwActivePDFwwPDF50, wwPDFAmyuniwwPDF50-wwXFRXwwPDF50.wwXFRX9wwPDF50607a!qA1aaa!qqAAq3AA3qA1aAA3qq1!A9qAaA!aAAq!1AAAAAqAqAaq:a!qA1a1qqAqqAq<a!qA1aAaA1qAqQAaaqAaqAq<!33q1A31aA1Qq1AAaaA11qAaa1q>!q3113AqAa!AAa!qAaq31!A3QqQAAqqAqqA!A3qaAqAA5qA3666`11q!!A1Aaa1!AQAA3q`11q!!!A1A1AaqQAA1A33q4=111A11 1q;0616 !_),681U DC WqhkX&<m "$r$-$*%3U%R); )*Y*-f3%..</f/A//B/0C;0l0D00F827h7 9m:4A`A{A)AB-e  S{$Z"4#.$09L9B %V+vNXG+(wwRegExBUWWREGEXTUVALUETHISREGEX IGNORECASETUVALUETHISREGEXGLOBALTUVALUETHISREGEX MULTILINEG"TCVBScript.RegExpNTaTaUTHISREGEXGLOBAL IGNORECASEH TTC BULCSOURCELCREGEXTHISREGEXPATTERNMATCHESEXECUTE5 TBCULCSOURCELCREGEXTHISREGEXPATTERNTEST25T TC T %  B T$ ("TCT%TC"TC[ BULCSOURCELCREGEX LCREPLACELLISEXPRESSION LOMATCHESLNXLOMATCHLCREPLLCMATCHTHISREGEXPATTERNEXECUTELNCOUNTCOUNTITEMVALUE FIRSTINDEXLENGTHT TC T %y B (T C T TTC BU LAMATCHESLCTEXTLCREGEX LCREPLACEWITHLNCOUNTLNX LOMATCHESTHISREGEXPATTERNEXECUTECOUNTLOMATCHITEMLCMATCHVALUEe(CU TCC BU LAMATCHESLCTEXT LCREPLACETEXTLNXIgnoreCase_AssignN Global_AssignMultiLine_AssignInitMatchTestReplaceaStripExpressionsaaRestoreExpressions T Ta Ta T- T         UREGEX IGNORECASEGLOBAL MULTILINEMATCHESwwRegExCustomIA:q13q13q13!3131A311q11AAQA!A3111A1QA3qA4P 9 <p  k!A(7.-h_D>] WEZm %%E6NUaNvNX@G+( wwScriptingG+(wwUtilsG+( wwCollectionsU WWSCRIPTINGWWUTILS WWCOLLECTIONS  T-%ETCTC<%=<% T T TC-<%%>(TT Ta BU LCASPCODELLISFILELCRESULTTHISLERRORFILE2VAR LOEXCEPTION OEXCEPTION CERRORMSGMESSAGEP /     5%Cb B T-%%~TCTC T%CC5 T T- TTC$+C <% section=%C%TCwwNameValueCollectionN)T C <% section=""%C !ETC <% section=" " %><% endsection %>-a%C,!KTC C <% section=" " %><% endsection %>TC!%C <% Layoutr'T C <% Layout%>%C n#TCC Layout=""`%C=~?TCTC BCa.%C<%= RenderContent() %>+TC<%= RenderContent() %>++C<%= RenderSection(@BTC<%= RenderSection(<%= wwScript.RenderSection(++C<%= RenderPartial(.0T C<%= RenderPartial(%>%C !*TCC RenderPartial(""`%C=~TCTC CT<%T %>% p T!  T! T T T "#%C<% if +a$%",T$C<% if <% endif %>-a%C$9!#T"C<% if %>-a%C"u! T#C"if %>--T&C#%&%T%C$%> <% endif %>TC$% TC$ T + @ TC%< TC !%.% %TCC>C>\ T'- %= :  T'-T : (T(C\T(C(C C  T C(% T C )(* T'a%+ T C _ B T C(* T'a%C C> T %'  %TC C `  T-T  %  !DTC  < % ERROR: CC  % > 8 TCC >CC >X[. BU,TCSTRINGTLISFILETCCHILDTEMPLATETEXTLNLOC1LNLOC2LNINDEX LCEVALTEXT LCEXTRACTTEXT LCOLDERROR LNERRCOUNTLCTYPELCRESULT LCCAPTUREDLLENCODE PLEVALERROR ISNULLOREMPTYTHISRESOLVEVIRTUALPATH LCTEMPLATEFILE2VARWWSCRIPTWWSCRIPTCONTENTPAGEWWSCRIPTISLAYOUTWWSCRIPTSECTIONSEXPANDMARKDOWN LCCAPTURED2EXTRACT LCSECTIONTEXTADDLCLAYOUT MERGETEXT TCDELIMITER TCDELIMITER2 LNDIFFERENT LCFULLTAG LCEXPRESSION LCFULLBLOCK LCEXTRACTEDLLRESULTLLERRORLCEVAL ENCODEHTML LOEXCEPTIONLERROR QSTRINGQBOOLEAN T% dTCC TC5 T5 %C T C T   T  C(#%  t*T Compilation Error:  TTTaT %C TC/%   TCC .%wwScriptingHttpResponse% T 500 Server ErrorT  text/htmlTC  BU LCTEMPLATELLISCODESTRING LOEXCEPTIONLCCODETHISCCURRENTTEMPLATECONVERTASPTOVFPCODEFILE2VAR_OUTRESPONSE ORESPONSECREATERESPONSEERRORNOMESSAGELINENO LINECONTENTSLERROR CERRORMSG LNCODELINESLALINESCSCRIPTRESPONSECLASSSTATUS CONTENTTYPERENDERHTTPHEADERQSTRING/ %C kT C T -%~TC T  T %CC*5 T T-%TCwwNameValueCollectionNTC%C hTCfxp TC fxp%C   T -T -%  T-  Ta 0TCXCX E Ta% sC (C  B U LCTEMPLATE LOEXCEPTION LCOUTFILELCFILE LCFXPFILE LCWCTFILE LCVFPCODE LCFILENAMELLNEEDTOCOMPILELLERRORTHIS CCOMPILEDPATHLERRORRESOLVEVIRTUALPATHCCURRENTTEMPLATEWWSCRIPTWWSCRIPTCONTENTPAGEWWSCRIPTISLAYOUTWWSCRIPTSECTIONSISDIRLNOVERSIONCHECKCONVERTANDCOMPILESCRIPTPARSEEXCEPTIONQSTRING+%C gT C %~TC T  T  %CC5 T T-%TCwwNameValueCollectionNTC%C VTCfxp TC fxp%C   T -%  T- X Ta TCXCX % Ta%T%C  P%CC5 T5%C TC  Ta T  T-T - T% '   E (C % ~%%  T500 Server ErrorT text/htmlTC  BU! LCTEMPLATE LOEXCEPTION LCOUTFILELCFILE LCFXPFILE LCWCTFILE LCVFPCODE LCFILENAMELLNEEDTOCOMPILETHIS CCOMPILEDPATHRESOLVEVIRTUALPATHCCURRENTTEMPLATEWWSCRIPTWWSCRIPTCONTENTPAGEWWSCRIPTISLAYOUTWWSCRIPTSECTIONSISDIRLERRORLNOVERSIONCHECKCONVERTANDCOMPILESCRIPT_OUTRESPONSELRESPONSECREATED ORESPONSECREATERESPONSELLRESPONSECREATED LSTOPONERRORPARSEEXCEPTIONLTHROWEXCEPTIONSTATUS CONTENTTYPERENDERHTTPHEADERQ EXCEPTION TaT%C TCCprg%C TC !%  T CC T CT U LOEXCEPTION LCFILENAMELCFILE LNCODELINESTHISLERROR CERRORMSGMESSAGEFILE2VARLALINESLINENO LINECONTENTS PROCEDURE OEXCEPTION`%C)7T BTCN BU LORESPONSETHIS ORESPONSECSCRIPTRESPONSECLASSLQSTRINGTC%CtTCfxpTCprg TCfxpTCprg%C %C0 x/TScript file doesn't exist: T C ExceptionNT T a B-T CC C  Ta T  %  (<T aT T T- BU LCTEMPLATE LCWCTFILE LCFXPFILE LCFILENAMELLRESULTTHIS CCOMPILEDPATHISDIR CERRORMSG OEXCEPTIONMESSAGELERROR LCVFPCODECONVERTASPTOVFPCODEFILE2VAR LOEXCEPTIONLSAVEVFPSOURCECODE& QSTRINGQBOOLEAN  T  TTC $+C <% section=)T C <% section=""%C !DT C <% section=" " %><% endsection %>%C ;!KTC C <% section=" " %><% endsection %>TC !%C <% Layout'T C <% Layout%>%C #TCC Layout=""` T(TC%Cy.TC<%-%TC%>%-cTwwScriptSections.Add("C",[C ])C C T<% IF (!wwScriptIsLayout)C C  wwScriptIsLayout = .T.C C  wwScript.RenderAspScript("")C C  RETURNC C ENDIF %>C C TC .%C<%= RenderContent() %>]TC<%= RenderContent() %>2<% wwScript.RenderAspScript(wwScriptContentPage)%>++C<%= RenderSection(BTC<%= RenderSection(<%= wwScript.RenderSection(*%C<%= RenderPartial(jCTC<%= RenderPartial(<% wwScript.RenderAspScript(KT LOCAL CRLFC C CRLF = CHR(13) + CHR(10)C C +a TC<%% TC_out !TC=%C _ TC_out TC\$%<%= <%: QT<%:TC%>% TC_out !TC\TCC C  %{TC C /Response.Write(EncodeHtml(TRANSFORM( EVALUATE([Ca ]) )))C C C C  7oTC C $Response.Write(TRANSFORM( EVALUATE([Ca ]) ))C C C C TC\  TC%>% TC_out !TC\)TC C C C TC\T  BU LCSCRIPTCODELLADDEXCEPTIONCODELCCODELCLEFTLNAT LCCURBLOCKLCLAYOUT LCSECTIONTEXT LOSECTIONITEM LCCAPTURED LCCAPTURED2THIS CSCRIPTCODEEXPANDMARKDOWNWWSCRIPTSECTIONSADDEXTRACTLNXCOUNTLCTEXTAITEMS ISNULLOREMPTYFIXUPLITERALSTRINGCREATELITERALSTRINGEXPRESSIONLLENCODECVFPCODEC#+C 31TC %C!=TCC C C AATCC C C  VTCQTC"Westwind.WebConnection.StringUtilsNormalizeIndentation T-%C<%TC<%@@%TC%>%@@ TaTCC%/TC@@%<%TC%@@%> BULCHTML LCCAPTURED LCCAPTURED2LOBRIDGEGETWWDOTNETBRIDGEINVOKESTATICMETHODLLHASSCRIPTTAGSMARKDOWNTC%C= BTC-%<%TC%-%>BCU LCSECTIONNAMELCTEXTWWSCRIPTSECTIONSITEMTHIS MERGETEXT Q COLLECTION%CB B9%C> CC  CC  7BResponse.Write([C])C C TCT T  T(%C GK TResponse.Write( iT -T[CC ]'%C G  *% &T + CRLF )C C  &T)C C  % q&T + CRLF +;C C  T)C C  BU LCSTRING LCVARNAMELNXLCOUTPUTLOLINESTHISFIXUPLITERALSTRING SPLITSTRINGLNLINESCOUNT LNLINEGROUPITEM )Q COLLECTION%CN BTC C B% /C>CC  CC   TCT T(TCC >%\<Script line is too long (C_) - C %%TCC 8TCC ] + CRLF + ;C C  {%+&T [CC  wBT [CC  ] + CRLF +;C C  B!TC] ] + ']' + [,TC&&] + '&' + '&' + [ BU LCSTRINGLLNOLENGTHCHECK LNMEMOWIDTHLNCOUNTLNXLCOUTPUTLNLENGTHLOLINES SPLITSTRINGCOUNTITEMTHISFIXUPLITERALSTRING|%C=~lTC/\TC~\CͨTC\\\ BU LCVIRTUALPATHTHIS CBASEPATH&lccommand BU LCCOMMAND BCU LCCOMMANDuTTCETCETTT aBU NERRORCMETHODNLINETHISLINENO LINECONTENTSMESSAGEERRORNOMETHODLERROR %C?#TC C  v-T: C C BULCKEYLCVALUETHISHEADERS#TCCC6#TCCC6$TCCC/6#TCCL6%CTTCa  %CfNEVERTCCa%C <T ; expires=OT Set-Cookie: =; path=C C UTCCOOKIETCVALUETCPATHTCEXPIRE MIMEDATETIMETHISCOOKIEST CT 302 MovedT text/htmlCLocation CULCURLTHISHEADERSCLEARSTATUS CONTENTTYPE APPENDHEADEREND]T0!CPragmano-cache(C Cache-Controlno-cacheUTHISEXPIRES APPENDHEADER%C&T,%C Last-ModifiedCCa#CExpiresCCa5C Cache-Controlpublic,max-age=C_BULNEXPIRATIONSECONDSTHIS APPENDHEADER MIMEDATETIMEq #TCCC6TCCC6

Access to this page is denied

C C MPlease enter a valid username and password to access this page.6T CT text/html T401 Unauthorized%C ]C CU TCREALM TCERRORTEXTTHISHEADERSCLEAR CONTENTTYPESTATUSWRITEEND%. BTC@HU noneu B forceT text/html C cacheT text/html CSTHTTP/   C C Content-Type: C C %C -T Expires:  C C %C T %C T TaBC C ULCHEADERLNX LCCONTENTTYPELCIDTHISLHEADERWRITTEN CONTENTTYPEADDFORCERELOADADDCACHEHEADER HTTPVERSIONSTATUSEXPIRESHEADERSCOOKIESTCH7 OvTCT C ( rTC %HTTP/T CC  \. % Content-Type:5)T CCContent-Type: >\.%C n#T  C C  CT C@BBU LVCONTENTTYPELOHEADERLCTYPELCOUTPUT LCHEADERSLNXLCLINELCSTATUS GETOUTPUTLNCOUNT LAHEADERSTHISSTATUS CONTENTTYPEHEADERS U LCOUTPUTFILE LOVFPSCRIPTUU7%BTC_U LVEXPRESSIONTHISLRESPONSEENDED_OUT7%BTC_U LVEXPRESSIONTHISLRESPONSEENDED_OUT7%BTC_U LVEXPRESSIONTHISLRESPONSEENDED_OUT* T T TUHEADERSCOOKIES_OUT CUTHISCLEARTaUTHISLRESPONSEENDED BULCOUTPUT_OUT BULCOUTPUT_OUT BU AspTextMerge MergeText ExecScript\CompileAspScriptNRenderAspScriptBParseExceptionCreateResponseConvertAndCompileScriptUConvertAspToVFPCodep!ExpandMarkdown+ RenderSection.CreateLiteralStringExpressiong/FixUpLiteralString2ResolveVirtualPath6ExecuteCommand6EvaluateCommand6Error 7 AppendHeader7 AddCookie8Redirecta:AddForceReload0;AddCacheHeader;BasicAuthentication<RenderHttpHeadere>ContentTypeHeader AInitOCDestroyCOpenCWriteCSendC FastWritehDClearDRewindEEnd@E GetOutputoERenderERenderHttpHeaderEz T T- T- T T- T- Ta T- T T  T T .\ T - T  T TwwScriptingResponse T T         U CERRORMSGLERRORLTHROWEXCEPTION OEXCEPTIONLSAVEVFPSOURCECODE LEDITERRORSLSHOWFULLERRORINFO LSTOPONERROR CERRORHEADER CCOMPILEDPATHCCURRENTTEMPLATE CBASEPATHLNOVERSIONCHECK CSCRIPTCODECVFPCODECSCRIPTRESPONSECLASS ORESPONSE OMARKDOWNm T- T T T T T   ULERRORERRORNOLINENOMESSAGEMETHOD LINECONTENTSS        U T T- T- TT text/html TT200 OK TT1.1 T  T -       ! " # $ %U CFILENAMELOPENEDLRESPONSEENDED CSTYLESHEET CONTENTTYPEHEADERSSTATUSCOOKIES HTTPVERSIONEXPIRESLHEADERWRITTEN wwScriptingCustomI wwExecuteRelationKwwScriptingHttpResponsewwScriptingResponse8LwwScriptingResponseCustomLQq`1!AaA3qAAAQA!AqAQAQAAAQAAQAq!1QAQaAAA!AAAQAA1AAA1AAQQQAAAQ1Q1AA1Q!q!!AA1AAqAAQ1AAAAAAAA3QAqqAAaA1QqQAAA!AQA3QaAAQAqQAAaqAA!AQAAA3QaAAQAqQAAaqAA!AAAAqqAqqAA!Q!AAAA!AQA31!!QA1AA3qqAa31AaaqAA!aqA1AaA3q1QAAAAAAQAq!1AAA1A QAAA!A1AA1AAa1A!AAA1AAAaA1AAaAA3q1AAqAAA3qqQA3AqA!AAqqaAqaAAA3A!!q1A11A1a!AAAA3qqA=qA3q3!A71AA3111A1q1AA!A3q33qAQ1QA31a !A31!A!qaaA1QAQAAQAAQ3qA1Q!AAAA!1AAA!AAA 1666q!AA13q!AA13q!AA13333q3q340 pp@@:; 1qa14Z?h. ' M'%0(WT02vg23o389HHAMnMN.NQS:2SY_U2YVZ][L[a{[[d[\m1]^u2^``aa]bbd5d7fgfi/jm ohoDooKopQ=ppWpXq_qqg#rTro{rrurryrs}>sasssfZ2Z\<]mH ns6%fvNX!G+(wwSftpUWWFTPWWDOTNETBRIDGEWWSFTP CUTHISLOAD%C B%CBTC>TC$Westwind.WebConnection.SftpFtpClient%CcDUnable to load SFTP Client. Make sure Renci.SshNet.dll is available.C C UTHISOSFTPOBRIDGEGETWWDOTNETBRIDGECREATEINSTANCE CERRORMSG%C< C1T CCC 8 % T  B BU LCFTPSERVER LCFTPSOURCE LCLOCALTARGETLNBINARY LCUSERNAME LCPASSWORDTHISOSFTPLOADLLRESULTDOWNLOADFILESIMPLENFTPPORT CERRORMSG ERRORMESSAGE%C8 C1TCCC 8 % T  B BU LCFTPSERVERLCSOURCELCTARGET LCUSERNAME LCPASSWORDTHISOSFTPLOADLLRESULTUPLOADFILESIMPLENFTPPORT CERRORMSG ERRORMESSAGE> T%CKT%CsT %CT %C T%C TT T  TTTT%C TTT%TCC8%C+<T"Unable to connect to SFTP server:  T BULCSERVER LCUSERNAME LCPASSWORD LOSFTPCLIENTLOSFTPTHISNERROR CFTPSERVER ISNULLOREMPTY CUSERNAME CPASSWORDOSFTPTIMEOUTNCONNECTTIMEOUT BUFFERSIZENFTPWORKBUFFERSIZE PROXYNAMECHTTPPROXYNAME PROXYUSERNAMECHTTPPROXYUSERNAME PROXYPASSWORDCHTTPPROXYPASSWORDCPRIVATEKEYFILEPRIVATEKEYFILEPRIVATEKEYFILEPASSWORDCPRIVATEKEYFILEPASSWORDWWSFTPCONNECTNFTPPORT CERRORMSG ERRORMESSAGE,%C %CUTHISOSFTPCLOSE, CTTUTHISFTPCLOSEOSFTPOBRIDGEi TCC% YT B BULCFTPSOURCEFILELCLOCALTARGETFILELLRESULTTHISOSFTP DOWNLOADFILE CERRORMSG ERRORMESSAGE  TCC@%C0 u2T"Invalid file passed for uploading. BTC% T B BU LCLOCALSOURCEFILELCFTPTARGETFILELCFILELLRESULTTHIS CERRORMSGOSFTP UPLOADFILE ERRORMESSAGEC TC%CN BT%~ B(3TC T T T T  BULAFILESLCPATHLOFILESLNCOUNTLNXLOFILELOFTP FTPLISTFILESCOUNTITEMNAMELENGTH FILEATTRIBUTE LASTWRITETIME%C8 T*TC ListFiles%CT  BTC CollectionNT (CC   BU LCFILESPECLNCOUNT LOFILELISTLOFILESLNXTHISOBRIDGE INVOKEMETHODOSFTP CERRORMSG ERRORMESSAGECOUNTADDITEM%CU6T&No file specified to delete on server.B-TC% T B BULCFILETHIS CERRORMSGLLRESULTOSFTP DELETEFILE ERRORMESSAGE] TC% MT BU LCOLDNAME LCNEWNAMELLRESULTTHISOSFTP RENAMEFILE CERRORMSG ERRORMESSAGEUTC% ET BU LCNEWPATHLLRESULTTHISOSFTPCHANGEDIRECTORY CERRORMSG ERRORMESSAGEUTC% ET BULCPATHLLRESULTTHISOSFTPCREATEDIRECTORY CERRORMSG ERRORMESSAGEUTC% ET BULCPATHLLRESULTTHISOSFTPREMOVEDIRECTORY CERRORMSG ERRORMESSAGEInitmLoad FtpGetFile FtpSendFile8 FtpConnectyFtpClose^Destroy FtpGetFileEx FtpSendFileEx aFtpDir  FtpListFiles  FtpDeleteFilei FtpRenameFilefFtpSetDirectoryFtpCreateDirectoryFtpRemoveDirectoryl T T T T T T           UOBRIDGEOSFTP OSFTPCLIENTNFTPPORTCPRIVATEKEYFILECPRIVATEKEYFILEPASSWORDwwSFTPwwftp:wwFtp.prgaqq;3QAAAAA1A3AAaA3qAAaA3AAAAAAAAA11111q11AQA3QA33aA3!!AaA31QA1A1QA3q1AaqAA3qaqAaA3aA3qaA3qaA3qaA4PP 9!F0,'Z 9K< _O eS  k[H ui:}fWsWzg%*0W40-xNXKG+(wwDotNetBridgeG+(wwUtilsG+(wwAPIG+(wwSmtpUWWDOTNETBRIDGEWWUTILSWWAPIWWSMTP5%CN.TU LNMAILMODETHIS NMAILMODE%C0TC%C)TCWestwind.wwSmtp%CULCDOTNETVERSIONTHISOBRIDGEGETWWDOTNETBRIDGEOSMTPCREATEINSTANCE CERRORMSGH%C %CTTUTHISOSMTPDISPOSEOBRIDGE CUTHISDISPOSEz !%C CLEAR <T s-T: C C ULCHEADERLCVALUETHIS CEXTRAHEADERS %. BC C CTC`TCC C  QWESTWIND.wwSmtpT T C `T  TTTC`TC`TTC`TC`TTT T!"T#$T%&T'(T)*T+,C.-T/0T12T34%5z C6 Ta TC7% C8T. BU9 LCSUBJECTLLRESULTTHIS NMAILMODESENDMAILCLASSIC CREATEWWSMTPSETERRORCSUBJECTLOSMTPOSMTP MAILSERVER CMAILSERVER SERVERPORT NSERVERPORTUSESSLLUSESSLTIMEOUTNTIMEOUTUSERNAME CUSERNAMEPASSWORD CPASSWORDSUBJECTMESSAGECMESSAGE CONTENTTYPE CCONTENTTYPE ALTERNATETEXTCALTERNATETEXTALTERNATETEXTCONTENTTYPECALTERNATECONTENTTYPE SENDEREMAIL CSENDEREMAIL SENDERNAME CSENDERNAME ATTACHMENTS CATTACHMENT USERAGENT CUSERAGENT RETURNRECEIPTLRETURNRECEIPTREPLYTOCREPLYTOPRIORITY CPRIORITYADDHEADERSFROMSTRING CEXTRAHEADERS RECIPIENT CRECIPIENTCCCCCLISTBCCCBCCLISTLASYNC SENDMAILASYNCSENDMAIL ERRORMESSAGEeTa%C CT-B CT-UTHISLASYNC NMAILMODESENDMAILASYNCCLASSICSENDMAIL CTC`TCC C  0T#NextPart_000_0025_01BDBAA5.86C80EB03%C C Importance:  C Importance  7% "CReturn-Receipt-To:  q'CReturn-Receipt-To  1CDisposition-Notification-To  %C CReply-To %C Cx-mailer %C sT--C C Content-Type: C`C C C C C`C C C C gT--C C Content-Type: C C C C C C 9T multipart/alternative;boundary=""TTCXA|SendMail wwipstuff.dll,TCC CC` 6,TCC CC` 6TCCC `C`C`C`C`C`C`C`C`  C!`a-6% }T"CCC ` T"T  BU# LCSUBJECT LCUSERNAME LCPASSWORDLCERRORLLRESULTTHISSETERRORCSUBJECTLCCONTENTBOUNDARY CPRIORITY CEXTRAHEADERS ADDHEADERLRETURNRECEIPT CSENDEREMAILCREPLYTO CUSERAGENTCALTERNATETEXT LCMESSAGE CCONTENTTYPECMESSAGECALTERNATECONTENTTYPESENDMAIL WWIPSTUFFDLL CUSERNAME CPASSWORD CSENDERNAME CRECIPIENTCCCLISTCBCCLIST CATTACHMENT CMAILSERVER NSERVERPORTCLOGFILE CERRORMSG&TCCC6TCC C  3%C C Importance: C Importance7%"CReturn-Receipt-To: 'CReturn-Receipt-To%C 7CReply-To%C nCx-mailer  0T #NextPart_000_0025_01BDBAA5.86C80EB0%C oT -- C C Content-Type:  C C C C C C C C jT -- C C Content-Type: C C C C  C C 6T multipart/alternative;boundary=" "A| SendMailAsync wwipstuff.dll*TCC C 6*TCC C 6jCC`C`C`C`C`C`C`C `C`C`BaU LCSUBJECTTHISCSUBJECT CPRIORITY CEXTRAHEADERS ADDHEADERLRETURNRECEIPT CSENDEREMAILCREPLYTO CUSERAGENTLCCONTENTBOUNDARYCALTERNATETEXT LCMESSAGE CCONTENTTYPECMESSAGECALTERNATECONTENTTYPE LCCONTENTTYPE SENDMAILASYNC WWIPSTUFFDLL LCUSERNAME CUSERNAME LCPASSWORD CPASSWORD CSENDERNAME CRECIPIENTCCCLISTCBCCLIST CATTACHMENT CMAILSERVER NSERVERPORT5TC]C"TCMSMAPI.MAPISessionN%C T  T  T  C%#TCMSMAPI.MAPIMessagesNT F$TMAPI Logon failed... B- C T%C  TC,(TTTTC%C  TC,(TTTTC%C d TC,(`TTTTC%C  TC,(TTTCCTCTT !TCwwEvalN&CloMessages.SEND( .F. )"  C#%$T%B-BaU& LLDONTSEND LOSESSION LCOLDPATHYLNRECIPSXLOEVAL LOMESSAGESTHIS CUSERNAMEUSERNAMEPASSWORD CPASSWORD DOWNLOADMAILSIGNON SESSIONID CERRORMSGCOMPOSE CRECIPIENTLARECIPS RECIPINDEX RECIPTYPERECIPDISPLAYNAMECCCLISTCBCCLIST CATTACHMENTATTACHMENTINDEXATTACHMENTPOSITIONATTACHMENTNAMEATTACHMENTPATHNAME MSGSUBJECTCSUBJECT MSGNOTETEXTCMESSAGEEVALUATESIGNOFFLERROR CERRORMESSAGE CQWESTWIND.wwSmtpTTC`TT T  T C `TC` BCUTHIS CREATEWWSMTPLOSMTPOSMTP MAILSERVER CMAILSERVER SERVERPORT NSERVERPORTUSESSLLUSESSLTIMEOUTNTIMEOUTUSERNAME CUSERNAMEPASSWORD CPASSWORDCONNECT`QWESTWIND.wwSmtpT%C I CTULOSMTPTHISOSMTPCLOSE CEXTRAHEADERS  C.TCC lcSubjectbC6TCC C  QWESTWIND.wwSmtpT T C `T  TTC`TC`!TCC C  TC`TC`TTTTC `T!C"`%C T#%C T$%C T%TC`T&'T()T*+C-,QWESTWIND.wwSmtpT #TC/01.% C2 BU3 LCRECIPIENTLCCCLCBCCLLRESULT LCSUBJECTTHISSETERRORCSUBJECTLOSMTPOSMTP MAILSERVER CMAILSERVER SERVERPORT NSERVERPORTUSESSLLUSESSLUSERNAME CUSERNAMEPASSWORD CPASSWORDSUBJECTMESSAGECMESSAGE CONTENTTYPE CCONTENTTYPE ALTERNATETEXTCALTERNATETEXTALTERNATETEXTCONTENTTYPECALTERNATECONTENTTYPE ATTACHMENTS CATTACHMENT SENDEREMAIL CSENDEREMAIL SENDERNAME CSENDERNAME RECIPIENTCCBCC RETURNRECEIPTLRETURNRECEIPTREPLYTOCREPLYTOPRIORITY CPRIORITYADDHEADERSFROMSTRING CEXTRAHEADERS SENDMESSAGE CRECIPIENTCCCLISTCBCCLIST ERRORMESSAGE%C( B TC, (=TC rcpt to: C C %250B  BU LCRECIPLISTXLARECIPSLNCOUNTLCRESULTTHISOIP SENDRECEIVE %t%C UT,TB CQWWDOTNETBRIDGETTC%O'C AddAttachment BTCC@%C O+C AddAttachment 'C AddAttachment U LCFILENAME LCCONTENTTYPELCTYPETHIS NMAILMODE CATTACHMENT CREATEWWSMTPLOBRIDGEOBRIDGE INVOKEMETHODOSMTPZ%*TB)CClearAttachmentsUTHIS NMAILMODE CATTACHMENTOBRIDGE INVOKEMETHODOSMTP CQWWDOTNETBRIDGET*QWESTWIND.WebConnection.ComArray2TCSystem.Net.Mail.LinkedResource( CC  6C AddAlternateView BULOALTERNATEVIEWTHIS CREATEWWSMTPLOBRIDGEOBRIDGE LORESOURCES CREATEARRAYLNXOLINKEDRESOURCESCOUNTADDITEMITEM INVOKEMETHODOSMTPCTEXT CCONTENTTYPE %C) T%ClT-TT TaTTULCERRORLNERRORTHISLERROR CERRORMSGNERROR TC CollectionNUTHISOLINKEDRESOURCESTCwwDotNetBridgeN:TCSystem.Net.Mail.LinkedResource!C ContentIdC U LCFILENAME LCCONTENTTYPELCIDLOBRIDGE LORESOURCECREATEINSTANCE SETPROPERTYTHISOLINKEDRESOURCESADDInit CreatewwSmtpDisposeDestroye AddHeaderSendMail6 SendMailAsyncSendMailClassicb SendMailAsyncClassic SendMapiMail!ConnectClose SendMessageSendRecipients# AddAttachmentB$ClearAttachmentsH&AddAlternateView&SetError(Init)AddLinkedResource)] T T T T T T- T T T T - T  T - T  T  TT text/plain TT text/plain T T T T TTNormal TTWest Wind SMTP 5.0 T- T T T             UOBRIDGEOSMTP NMAILMODE CMAILSERVER NSERVERPORTLUSESSL CUSERNAME CPASSWORD CERRORMSGLERRORNERRORLASYNCNTIMEOUTCSUBJECTCMESSAGE CCONTENTTYPECALTERNATETEXTCALTERNATECONTENTTYPE CRECIPIENT CSENDEREMAIL CSENDERNAMECCCLISTCBCCLIST CPRIORITYCREPLYTO CUSERAGENTLRETURNRECEIPTCLOGFILE CATTACHMENT CEXTRAHEADERSF TT text/plain T  UCTEXT CCONTENTTYPEOLINKEDRESOURCESwwSMTPCustom,wwSmtpAlternateViewCustomK0 1qrA3qAQAAAAA3QA33A3aA!Q111QQQQA111111111111!1AA3aAA3q!q1AqqAQAQAQ1qAA3qa1AqqAQAQAqQaAq3qq!!Q11Aq11AqAQAQAAQAQAAQAQAAQAAQAA11aa!1qAq3Q11QQ3!A3Q11QQQQ111QQ!A!A!AQ111111A3qqAaAA3qaQAqAAAqAA!qA3aAA3q!AaA3AA:3A4qq1p1q8%' R/5<]oDsH% QQ `Z9e((Y**+(C+r11!1$3]0R3X6nH67NH7_9Z9:h\;;j;<p::<#%KRZR5xNXG+(wwSqlUWWSQL9 %C 2CULCCONNECTSTRINGLLASYNCHTHISCONNECT CUTHISCLOSE %CDT ^T% C%CT T -T T -%C H DT%C?LOCAL &lcparametername #&lcparametername = loparm.VALUE %OUT)TC??@ @!%C?@<LOCAL &lcparametername #&lcparametername = loparm.VALUE TOUTTaT!TCiTa% T a CD%C   C !TCi% RT a C CCLEARTC T -%C{ T a CTC%| x%CfOUTtT%CbUpTCT  TSQLQuery BULCSQLLCRESULTCURSORLLSTOREDPROCEDURELCPARAMETERNAME ACOUNTINFOTHISCSQL NSQLRESULT SQLCANCEL CSQLCURSORLERROR CERRORMSGAERRORS OPARAMETERSLOPARMNAME DIRECTIONLOUTPARAMETERS NSQLHANDLELPARAMETERRESET FILLERRORS NODBCERRORNOCONNECTCCONNECTSTRINGNAFFECTEDRECORDSVALUE] TTC% OB-BaULCSQLLLSTOREDPROCEDURETHISNAFFECTEDRECORDSLNRESULTEXECUTEcTC DispLoginlC DispWarnings-l#CConnectTimeoutl*%CCChCFoxProCh\gC MapBinarya%C= TCf Ta %Cdsn= %Cserver=VT server=.;%Cdriver=%Tdriver={Sql Server};TTC T-% Ta C B-C %U!C TransactionslBaU LCCONNECTSTRINGLLASYNCLLNOAUTOTRANSACTIONSTHISCCONNECTSTRINGNTIMEOUT NSQLHANDLELLUSECONNECTIONLERROR FILLERRORS SETASYNCMODEe%%Cd%NCgTUTHIS NSQLRESULT NSQLHANDLE6,BCBEGIN TRANSACTION C ULCTRANSACTIONNAMETHISEXECUTE9/BCROLLBACK TRANSACTION C ULCTRANSACTIONNAMETHISEXECUTE7-BCCOMMIT TRANSACTION C ULCTRANSACTIONNAMETHISEXECUTEX%CfCLEAR5TBT ULCCODETHISCSQLT-TTCf% Ta CB- C BaU LCDSNLCUID LCPASSWORDLLASYNCHTHISLERRORCCONNECTSTRING NSQLHANDLE FILLERRORS SETASYNCHMODE@ .R,:#This method is not implemented yetBU LCDSNNAMELCCONNECTSTRING<'   T INSERT  T T%C T,TIMESTAMP_COLUMN, -T,TIMESTAMP_COLUMN,C f,+TCCCO6bT -(TC%,Cf,a.TCloData.% T -T -.T C% #H  C$T 'CC'''`' NLT CC_,. L}T C106 D T T Ca YT C_ XT null 2 .T , wT__C T?,T[],%CC  B TCC>\TCC>\.T   ( ) VALUES () B ULODATA LCFILENAME LOSQLRECORDLLUSENAMEDPARAMETERS LCFIELDLIST LCVALUELISTLNFIELDSLNXLCFIELDLCTYPELCVALUELCSQLTHISCSKIPFIELDSFORUPDATES LCSKIPFIELDSLAFIELDSLINTERNALERROR LCRAWVALUELERROR TIMETOCSTRICT LCPARMNAME ADDPARAMETERe+     %CfTPK%CO Ta%Cc B  T-%CT,TIMESTAMP_COLUMN, 1-T,TIMESTAMP_COLUMN,Cf,+TCCCO6bT- T(KTC%,Cf,.T CloData.%T-T-.T C %TC loOrigData.&% C C  .% H C$T 'CC '''`' NT CC _,. LDT C 106 D T wT C a YT C _ XT null 2.&T []= , GC __)T []=?__,%Ci BTCC>\%TUPDATE  SET %NONEUT CloData.%C C +T WHERE =' ' Q'T WHERE =C _ BULODATA LCFILENAME LCPKFIELD LOORIGDATA LOSQLRECORDLLUSENAMEDPARAMETERSLNFIELDSLNXLCFIELDLCTYPELVVALUELCVALUE LVPKVALUE LVRAWVALUE LVORIGVALUE LLORIGDATATHISCSKIPFIELDSFORUPDATES LCSKIPFIELDSLAFIELDSLINTERNALERRORLCSQLLERROR TIMETOCSTRICT ADDPARAMETER0+4  5 T Ct T %  %C T  ,%OUTT  ?@ T  ?  ( O#T  ?lvParmC _,%C T  ?@pvResult %C T C C >\&TCExec   %B-%C " BBaU LCPROCEDUREPVRESULTLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LNX LCPARMSTRINGPNRESULTLNPARMSLOPARMTHIS OPARAMETERS DIRECTIONNAMELNRESULTEXECUTE$  T%OUTt T ?@ , T ? ,%C TCC>=)T CExecute a %  B-BaU LCPROCEDURELCCURSORLNCOUNTLNXLCPARMSLOPARMTHIS OPARAMETERS DIRECTIONNAMELNRESULTEXECUTE  T%CL TC TC<Cselect * from  where 0=1 __TCursor% B- ^J F ~ ^JT -TC C% ~*T C C C %zT B-%C T T aB-T BaU LCTABLELLEXITONFIRSTERRORLODATALCSQLLCERRORS LCOLDALIAS LOSQLRECORDTHISEXECUTELERROR!SQLBUILDINSERTSTATEMENTFROMOBJECT CERRORMSG %ATC X T TC$TC]\C].dbfFh1 M > QT C C +C G C Q%CUBTC INSERT INTO () values (?Image) BTCUPDATE  set =?Image WHERE  Q % B-BaU LCIMAGEDATALCFIELDLCTABLE LCWHERECLAUSELLISFILE LCCONTENTLNRESULT LCOLDALIASLCTFILEIMAGELLTHISEXECUTE%Ch-TCselect  from  <TCselect  from  where  % B$TC]\C].dbf TC& TC ( FQT C C +C M C Q TC __Timage.Q (FORCEEXT(lcTFileName%C  F BU LCFIELDLCTABLE LCWHERECLAUSE LCTFILENAME LCFILENAMELCALIASLCRESULTLLFIELDLNRESULTTHISEXECUTELLFILE__TIMAGE0%CTHIS.oParametersbO vTC CollectionNT-%CCTC`2%RESET CLEAR C TC CollectionNT-BT CEMPTYNC Value C Name C Type C Size C Precision C DirectionIN %C T %C T %CNT %CNET %CCT Cf%CfOUTTa%C C  C C]ULVVALUELCNAME LCDIRECTIONLCTYPELNSIZE LNPRECISIONTHISLPARAMETERRESET OPARAMETERS LOPARAMETERNAMETYPESIZE PRECISION DIRECTIONLOUTPARAMETERSADDU TCT__Count,%CSELECT @@ROWCOUNTnTQ T%C F BULNRESULT LCOLDALIASTHIS CSQLCURSOREXECUTE__COUNTEXP*%CCChCFoxProCh\gb%CtO TaC] 5,Unicode mapping is supported only in VFP 9.0ULLSETD*| SQLSetEnvAttr odbc32.DLLCU SQLSETENVATTRODBC32DLLQ+%C Asynchronousl9Ba JB-ULLASYNCHTHIS NSQLHANDLEBCdUTHIS NSQLHANDLEH #   TTCE%CT-TTXT a C U NERRORCMETHODNLINETHISNERRORNO CERRORMSGCONNECTCCONNECTSTRINGLERRORLINTERNALERROR FILLERRORSw +TCClcClearbCCf6%CLEART-TTTBTC z%p C  TC TCServer]%?TCCServer]>\$%CTHIS.nCodePagebN %C laError[3]bCTC  %C laError[7]bNTC  TC TC %C C :T2T [C_:C_]U LCCLEARLNLOC LCERRORMSGTHISLERRORNERRORNO NODBCERRORNO CERRORMSGLNCOUNTLAERRORAERRORS<T T T-%Ch Ta$TC   T C?+ TC \% T C?.TC ,%CR'VTC)0%C>2C?=&,%*$! T C?.%@TC\CCOUT TC?@? R%C  -CC !TC??TC\T C?%CBa% T QADODB.PARAMETER%TCADODB.ParameterTT%C jT%C T%C T%C T TC loParm.ValuebH$ Cx %w TT  TT@T(%C CfOUT T TC>% 1T%tTTC> NTT LT T D T W Q TTC>%@{TT%T 2T (%C CfOUT TCTa BUOCOMMANDLCSQL LCORIGSQL LLPARSESTRINGLCPARMTHISCSQL OPARAMETERSLLPARMSCOUNTLNAT ADDPARAMETER NCOMMANDMODE COMMANDTEXTLOPARM OPARAMETER DIRECTIONVALUENAMETYPESIZE PRECISIONLCTYPELNADOSTRINGTYPELNADOSTRINGSIZE NCODEPAGE PARAMETERSAPPENDLPARAMETERRESETLERROR+4    T Ct%  ( T lvParmC _CC %  TTCa % B-%C C  z v&%C OUT rTBBaU LCPROCEDUREPVRESULTLVPARM1LVPARM2LVPARM3LVPARM4LVPARM5LVPARM6LVPARM7LVPARM8LNCOUNTLNXLCPARMTHIS ADDPARAMETERLNRESULTEXECUTE OPARAMETERSLOPARM DIRECTIONVALUEi %CQ#TCADODB.ConnectionN%CvT TQADODB.CONNECTION TCADODB.ConnectionN Ta % C (YT C Ta T- BULCCONNECTSTRINGLLASYNCHLLNOAUTOTRANSACTIONSLLRESULT LOEXCEPTIONTHISOADOCONNCCONNECTSTRINGOCONNSTATEOPEN CERRORMSGERRORSITEMLERRORW%C P%>CTUTHISOADOCONNSTATECLOSENT-%C>T XT?%C@insertC@update C@set  %C B B% C%CT T  TSQLQueryT -T T - T C ]%C ]%C TTa%C ] BTQ ADODB.COMMANDTC AdoDb.CommandNT%Ta%TT TTCQADODB.RecordsetTCT %CO% Q CURSORADAPTERTC CursorAdapterNT T!ADO%T"T#T$-T%-T&-%CI QTC--'%( C)%  C*  C+ T F  C*%( C)%,-$%,. ,. T/,01,1%C,0bUT2,0&lcname = parm.VALUE %C ]% .T BT BU3LCSQLLCRESULTCURSOR LLSTOREDPROCTHISLINTERNALERRORCSQLEXECUTENONQUERY NSQLRESULT SQLCANCEL CSQLCURSORLERROR CERRORMSGAERRORSLNOLDCP NCODEPAGECONNECTLPARAMETERRESETOCOMMANDACTIVECONNECTIONOADOCONNLNAMEDPARAMETERSNAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXTASSIGNCOMMANDPARAMETERSORSEXECUTESTATELLERRORLLRESULTCAALIASDATASOURCETYPE ADOCODEPAGE FETCHSIZE ALLOWINSERT ALLOWDELETE ALLOWUPDATE CURSORFILLLKEEPCONNECTIONCLOSE FILLERRORS CURSORDETACHPARM PARAMETERS DIRECTION OPARAMETERSNAMEVALUELCNAME T-T%C KB-TC ]%C ]T Q ADODB.COMMANDT C ADODB.CommandNT  % T a%6TT  PTT C  TC TT %C@exec ~ z$%  vT%CbUrT&lcname = parm.VALUE %C ] B ULCSQL LLSTOREDPROCLNOLDCPTHISLINTERNALERRORNAFFECTEDRECORDSCONNECT NCODEPAGECSQLOCOMMANDACTIVECONNECTIONOADOCONNLNAMEDPARAMETERSNAMEDPARAMETERS NCOMMANDMODE COMMANDTYPE COMMANDTEXTASSIGNCOMMANDPARAMETERS LNRECORDSEXECUTELERRORPARM PARAMETERS DIRECTION OPARAMETERSNAMEVALUELCNAMEy 4%,BCa kTCa% gB-BaU LCPROCEDURELLNOCURSORRETURNEDTHISEXECUTENONQUERYLNRESULTEXECUTEInitBDestroyExecuteExecuteNonQueryConnectaClose[ BeginTransaction RollbackF Commit AddSql  ConnectByDsn~ CreateOdbcDataSource !SqlBuildInsertStatementFromObject !SqlBuildUpdateStatementFromObjectECallStoredProcedureExecuteStoredProcedureInsertDataFromCursorhInsertBinaryField ReadBinaryField># AddParameter%AssignCommandParametersE)GetAffectedRecordsP)EnableUnicodeToAnsiMappingM*EnableConnectionPooling+ SetAsyncModel+ SqlCancel+Error , FillErrorsZ-assigncommandparametersA0callstoredprocedure8Connect;DESTROY=execute=executenonquery1Fexecutestoredprocedure9J) T T TT TSQLQuery T T TT T T  T - T  T - T - T T- T- T-                       UCCONNECTSTRING NSQLHANDLECSQL CSQLCURSOR CERRORMSGNERRORNO CERRORMSG2 NSQLRESULTNTIMEOUTCSKIPFIELDSFORUPDATESLINTERNALERROR OPARAMETERSLPARAMETERRESETLOUTPARAMETERSNAFFECTEDRECORDSLNAMEDPARAMETERSLERROR NODBCERRORNOLUSECONNECTIONAERRORS T Tb T T T- T TTwwadosql    ! " #UHEIGHTWIDTH NCODEPAGEOADOCONNLKEEPCONNECTION OEXCEPTION NCOMMANDMODENAMEwwSqlCustomaNwwadosqlwwsqlQ1"QA33qAaAAQA1A11AAAAaAaQqAAAq!Aa!AAAAA31qAq31A1AQAA1AaqAAq3aAaA3q3q3q3qAA31aqAq3A31qAA!AA1AAAAAA1A!AAAaq1QAAA3AqQAAAA!AA1AAaAAAAAAA1A!AAAaAAAQqqqAA3qAA!!AAA1A!!AAAa1qA!Aq3AAA!A1qAq3qA!qA!qAAA!qAq3qAAAQA!!!AA1qAq3A1AAA!A!A3Aq!AAAQqAAA!A!AqAqAq!AA!A36qqA!A3q1AQA3q3qqqA331AAA3qAA!111AAAAAAAAA!A1q1qAAqA1AaA1AAa1AAA!aAAA!1AAqAaAAQ1Q1AQ1Q1AQ1AAAQAaAaAQAAAQAaAAAAAA31aAA1Aq1qAAaAAAAq3A1AAAAA3QAA3AqAAaAAqa!AAaAA1!AA1qa1a1A1A1AAA1AAAAAAAAaA!A3qAqAa!A1!AAQ1AAAAAAaA3!q1qAAq4aqqq1@`@0P1qqQ@=@d$ H (Sw 8s[_ }~0z6Tz7!x!+/+{0eT02g266@:o:==CD3D3eDE9EFI  GrGU G1HZZHHcHNJg%JNxJP_`1c!Xcf=BffWgr`d sSxxyMN*Oy5%tvNY#G+(wwXMLG+(wwUtilsUWWXMLWWUTILS  T -T %C{ T%CD%CloObject.BaseClassbUCloObject.ClassbU TC@ Tclass% *T  A T%CDB<>NULLC C % T H% T C C C C C ]>C C < >C C  @T< >C C C   2%*T< >C C % TT #  nT  IT C C C  B ULOOBJECTLCNAMELNINDENT LLNOHEADERLNXLNCOUNTLCOUTPUTLCFIELDLCTYPELVVALUE LCSCHEMAURLLAFIELDSTHISLERROR CERRORMSGCLASS CXMLHEADER CDOCROOTNAMELCREATEDATASTRUCTURENCREATEDATASTRUCTURECREATEOBJECTSTRUCTUREDTDCREATEOBJECTSTRUCTURESCHEMA CSCHEMANAME CSCHEMAURLCBODYCREATEOBJECTXML %CR/TC<> -TC<>!%C  BULCITEMLCXMLDOCLCVALUEEXTRACTTHISCBODYhT-T % `T w T%CTCC@%CTrow%C T% T H  g5TCC Q< >C C   AT< >C C C  T C C CC C ]>C C C C 5TCC Q< >C C  T% T# T%TC>BC C CC QC C ULCNAME LCROWNAMELNINDENT LLNOHEADERLCOUTPUTLNFIELDSLNXTHISLERROR CERRORMSG CXMLHEADERLCREATEDATASTRUCTURENCREATEDATASTRUCTURE CDOCROOTNAMECREATEDATASTRUCTURESCHEMA CSCHEMANAMECREATEDATASTRUCTUREDTD LCSCHEMAURL CSCHEMAURLCREATECURSORXMLT -T %CC%CT a$T No XML input passed.B-%TCencoding="UTF-8" :!%C lvXML.AsyncbL6T a$T No XML input passed.B-%CcT__wwXML%CO"TCmsxml2.domdocumentNC  TT a%C UT aNT C C Line: C_C C B-T%CT aMT =Invalid XML Doc root. Data must be in child of document root.B-%C  T(TC%Ci%T Invalid XML StructureB-%SchemaT >TC%C T a%T Invalid XML StructureB-%Schema:T%C {%C  wB-  FBC ULVXMLLCALIASLNTABLEROOTLEVELLOXMLLNXLNSIZELCCREATELOCURSORLODATATHISLERROR CERRORMSGLOADXMLPRESERVEWHITESPACE PARSEERRORREASONLINESRCTEXT LODOCROOTDOCUMENTELEMENT CHILDNODESNODENAME NEXTSIBLINGBUILDCURSORFROMXMLPARSEXMLTOCURSOR %C8 T TTC(w TTCC QC C BCC QC C CC QC C U LCNAMELNINDENTLCOUTPUTLNXLCROWLNFIELDSLAFIELDSTHISFOXTYPETOXMLTYPE 4     %CsTCC@%CTrow%C T%C T*%CCChCFoxProCh\g T T %G T0TCC@ClcxmlZTC9C C GTCC<><>WTC <CC  xmlns="x-schema:"6>"TCVFPData>>,BCC>true<>1<>false<>0<TCDATEvTCHOURSvT CCENTURYvTCMARKv G9( G (YMDG G:(-TC]TCC Q<CC  xmlns="x-schema:"6>C C  ~L T6TCC Q<>C C (T CC@T C% GR.TC Hv CTNULL, C M V 9%C7TCC Q< />C C . 5%&^0lvvalue = STRTRAN(TRIM(lvvalue),"&","&") %>)lvvalue = STRTRAN(lvvalue,">",">") %<+lvvalue = STRTRAN(lvvalue, "<", "<") KTCC Q< >C`C C . L%!TC .T..F.6 TC106 D%C T TC* T%C :TCC T 7TCC Q< />C C . YTCC_A 2TC_ITCC Q< >C C 7TCC QC C SET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G:(%6BCCC QC C /BCC QC C ULCNAME LCROWNAMELNINDENTLCSCHEMALCOUTPUTLNFIELDSLNXLVVALUELCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURYLCTIME LCOLDHOURS LCOLDDATE LCOLDMARK LNENCODINGLCXMLTHIS NENCODINGLCALIAS LNOLDHOURSYMD LAFIELDLIST LUSEFOXTYPES ENCODEXML %C~%CC]T zTobject%C T TTCb(TCC@*%',, ,!.mTCC QC C rBCC QC C CC QC C U LOOBJECTLCNAMELNINDENT LNPROPCOUNTLNX LCPROPERTYLCOUTPUTCLASS LAPROPERTIESTHISCPROPERTYEXCLUSIONLISTFOXTYPETOXMLTYPE E      T CDATEvT CHOURSvT CCENTURYvT CMARKv G9( G (YMDG G:(-%C Txmlroot%CN3 T%CU T T*%CCChCFoxProCh\g{(%CloObject.BaseClassbC9 T-1T type="object" class="C@" % Collection5!BCitems w Ta)T type="object" class="empty"TCbaTCC Q<CC  xmlns="x-schema:"6>C C ( TCC@/%C,,,,U.T C loObject.bTC loObject.%TC\  TH - CALEN(loObject.)bN% %ACOPY(loobject.&lcfield,la_array) !TCT HTCC Q< >(array)C C  CJ%.ETCC Q<>NULLC C  C%C }.%&0lvvalue = STRTRAN(TRIM(lvvalue),"&","&") %>)lvvalue = STRTRAN(lvvalue,">",">") %<I+lvvalue = STRTRAN(lvvalue, "<", "<") KTCC Q<>C`C C . Du%C%.ATCC Q<>C C  qKTCC Q<>C_C C  TY%C%.ATCC Q<>C C  UVTCC Q<>CC_ TC C  QOTCC Q<>C C C  L) YTCC Q<>C106C C  OK % ?%ClvValue.BaseClassbC Collection 'TCitem  TC T G ITCC Q< >(Object)C C  Y NTCC Q<>C_C C  U ETCC Q<>NULLC C  Qi OTCC Q<>C C C  2 KTCC Q<>C_C C SET DATE TO &lcolddate G9( SET CENTURY &lcoldcentury G:( %!` 6BCCC QC C "/BCC QC C U#LOOBJECTLCNAMELNINDENTLCSCHEMALCOUTPUTLNXLNCOUNTLAFIELDSLCFIELDLCTYPE LCOLDDATE LNOLDHOURS LCOLDCENTURY LCOLDMARKLCTEMP LCDISPFIELD LCBASECLASSLLISEMPTYOBJECTLCCLASSLAARRAYLA_ARRAYYMDCLASS BASECLASSTHISCREATECOLLECTIONXMLCPROPERTYEXCLUSIONLISTLVVALUELSTRIPTYPEPREFIXLRECURSEOBJECTSCREATEARRAYXMLLSKIPEMPTYELEMENTSCREATEOBJECTXML NENCODING ENCODEXMLT-T%CCOC Ta$TNo XML input passed.B%CO"TCmsxml2.domdocumentNC  T%C vTaNT C C Line: C _C C  BTaT%CTaJT:Invalid data root. Data must be in child of document root.B%COTC%SchemacTTC%CBTC%SchemaTBCULVXMLLOOBJECTLLPARSECASEINSENSITIVELOXMLLONODE LODOCROOTTHISLERROR CERRORMSGLOADXML PARSEERRORREASONLINESRCTEXTPRESERVEWHITESPACEDOCUMENTELEMENT CHILDNODESNODENAME NEXTSIBLINGBUILDOBJECTFROMXMLPARSEXMLTOOBJECT %" BH7, C M V vTstring N F Tfloat BTnumber YTdecimal LTboolean IBTi4 DgTdate TTdateTime OTobject QT bin.base64 2 T BU LCFOXTYPETHIS LUSEFOXTYPESLCTYPEy%" BTCCC:\@HUi' string,char,uri,uuidTCj Wnumber,decimal,single,double,r4,r8,float,fixed.14.4,float.IEEE.754.32,float.IEEE.754.64TN2 integer,i4,i1,i2,i8,ui2,ui4,ui8BTI booleanjTL* objectrecord TO date,date.tzTD' datetime,datetime.tzTT? ,base64Binary,bin.hex,base64binary,bin.base64QTQ 2iTO BU LCXMLTYPETHIS LUSEFOXTYPESLCTYPE)     %C,TNo data provided for elementB%CO(TNo input object providedBT CDATEvTCHOURSvT CCENTURYvT C STRICTDATEv G9( G (YMDG G(TC b T(qTCC @%TC\  T %,,.TC loObject.bTC%C%%C@ T!%C. .THm NULL-J( loObject.7 "CALEN(loObject.)bN  )TC loObject.[1]C$ACOPY(laarray,loobject.&lcfield)  CM,JC�C ( loObject. NIFYNJCg( loObject. T JC( loObject. D#JCC( loObject. Q+JCCW( loObject. Ls#%1 true JJa( loObject. oJ-( loObject.  O *TC loObject.A%CloTObject.BaseClassbC Collection C &C! 2mloobject.&lcfield = .NULL. J( loObject.SET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G( BU" LOXMLOBJECTLOOBJECTLLPARSECASEINSENSITIVELNSIZELNXLCFIELDLCTYPE LNPROPERTIES LOPROPERTY LAPROPERTIES LCOLDDATE LCOLDHOURS LCOLDCENTURYLNOLDSTRICTDATETHIS CERRORMSG LNOLDHOURSYMDLSTRIPTYPEPREFIX LCXMLFIELDCPROPERTYEXCLUSIONLISTSELECTSINGLENODETNODE CHILDNODESNODENAMELCVALUETEXTLRECURSEOBJECTSLAARRAYPARSEXMLTOARRAY LOTOBJECT BASECLASSPARSEXMLTOCOLLECTIONPARSEXMLTOOBJECT  TTCN TaTT  %%CCtype ;T +Can't build object without a schema or DTD.B T-C  "T CCtype   H; Ciloobject.&lcfield = "" N I loobject.&lcfield = 0  Lloobject.&lcfield = .F.  Dloobject.&lcfield = {}  T8%loobject.&lcfield = { / / : }  Ujloobject.&lcfield = .NULL.  Q0loobject.&lcfield = CAST("" AS blob) 2*loobject.&lcfield = CREATE("Relation") loobject.&lcfield = .NULL.  BULOOBJECTSTRUCTURELOOBJECT LLFIRSTPASSTHIS COBJECTCLASSLOFIELD CHILDNODES LOATTRIBUTES ATTRIBUTESLCFIELDNODENAME GETNAMEDITEM CERRORMSGLCTYPEXMLTYPETOFOXTYPETEXT !    T  %xmlns=C (=*T C xmlns= _noxmlns=C C BaTCDATEvTCHOURSvT CCENTURYvT C STRICTDATEv G9( G (YMDG G(TC%h T T(TCC@TCTC%C .T TH= CMVS NIFxTCg TTC DTCCTZ # LT%TC P#%true 1 7 Ta L T- G w. 2TC>SET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G( BaULODATA LLNODELISTLNFIELDSLAFIELDSLNXLCTYPELCFIELDLOVALUE LCOLDDATE LCOLDHOURS LCOLDCENTURYLNOLDSTRICTDATELCXMLXML LNOLDHOURSYMDLOROWS CHILDNODESLOROWSELECTSINGLENODELCVALUETEXTTHIS LUSEFOXTYPESW %C % T CSchema %%C C   Ba4T $No rows available or schema missing.T aB-TC%Schema0TT TTTTTCtype%CTCdt:type#TC TCsize%C m TCCg8%C TMTTC precision%C TCg 6T2%CCC  TMT4h  FBaULODATASTRUCTURELCALIASLNXLNSIZELAFIELDSLORECORDLOSIZE CHILDNODESLENGTHLOSCHEMA OWNERDOCUMENTDOCUMENTELEMENTSELECTSINGLENODETHISCREATECURSORFROMSCHEMA CERRORMSGLERRORNODENAME NEXTSIBLINGLOFIELD LOATTRIBUTES ATTRIBUTESLOTYPE GETNAMEDITEMXMLTYPETOFOXTYPETEXT LOPRECISION:%CITCC@%CnTrowT C X8T C C %CO  T C T C %T C C ( *TC H1 MbT  T Y T T G. 2TC TC T C C  C C  BULCNAME LCROWNAMELORSLCOUTPUTLNXLCROWLNSIZE LNPRECISIONLCTYPELCSPACELAFIELDSLNFIELDSTHIS ADOFIELDSFOXTYPETOXMLTYPE %C%CCcT Tobject TTCbTC X%T =)>C C (TC%%,,, .T C loObject.b% O Q'TCC loObject. .T C C  C C  BULOOBJECTLCNAME LNPROPCOUNTLNX LCPROPERTYLCOUTPUTLAFIELDSCLASSLCSPACETHISCPROPERTYEXCLUSIONLISTLCTYPELRECURSEOBJECTSCREATEOBJECTSTRUCTUREDTDFOXTYPETOXMLTYPET-TT%COf T TCC6%CO"TCmsxml2.domdocumentNT TTC =%Cloxml.parseerror.reasonbC C NT C C Line: C _C C  TaBTaT BULCXMLLLASYNCLLPRESERVEWHITESPACELOXMLTHISLERROR CERRORMSGOXMLASYNCLOADXML PARSEERRORREASONLINESRCTEXTPRESERVEWHITESPACE#   TCDATEvTCHOURSvTCCENTURYv G9( G (YMDG T -T dT8C C C C - C C T C( #TCC@ET C C ^T C C  C C ( T CTC_HU  CUT  C C - C C  M\T  C C - C C  NT  C C - C C  L|T  C C ] C C  DiT  C C Z C C  Tz T  C C ~ C C  Iz T  C C k C C  Yy T  C C j C C  F T  C C { C C  B T  C C m C C  2 4T  C C AT C C  C C  ~T>T C C � L$T C TrueFalse6 YT CCZA D;%CT  1899-12-30 7T C_ T%C T 1889-12-30T00:00:00 T CC_ T 2T C_T ' T/>C C =T C C C C SET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury BULCNAME LCROWNAMELNINDENT LLNOHEADERLNX LCOLDDATE LNOLDHOURS LCOLDCENTURYLCXMLLNFIELDSLCTLCTYPEYMDTHISLERROR CERRORMSGLAFIELDSLCRECNOLVVALUE)%CC6 B%CN^ T+TCC QC C 0TC errormessageC`%CN.TC errornumber BCC QU LCERRORMSG LNERRORNUMBERLNINDENTLCXMLTHIS ADDELEMENT0  T -T %C$T No XML input passed.B%CO'T No input object passed.BTCb T( TCC@*%C,,, W.% TC\  T"%C<>.TC loObject.bTC H  CMV7loobject.&lcfield = STRTRAN(lcvalue,"�",CHR(0))  NIF$loobject.&lcfield = VAL(lcvalue)  T%loobject.&lcfield = CTOT(lcvalue)  D%loobject.&lcfield = CTOD(lcvalue)  Lq%TrueHloobject.&lcfield = .T. mloobject.&lcfield = .F.  O  -TC<>8THIS.xmltoobjectnoparser(lcobjxml,loobject.&lcfield) 2loobject.&lcfield = .NULL.  BULCXMLLOOBJECT LNPROPERTIESLNX LCXMLFIELDLCFIELDLCTYPELCVALUE LAPROPERTIESTHISLERROR CERRORMSGCPROPERTYEXCLUSIONLISTLSTRIPTYPEPREFIX GETOBJVARLRECURSEOBJECTSLCOBJXMLEXTRACT'    &TCC_item6#TCCN6TCTC% T%.TCC Q<>C C  _?TCC Q< dim='C_'>C C (%T CT C ET C C Otype=" "6   T (T CT C IT  C C Otype=" "6 T /BCC QC C ULAARRAYLCNAMELCROWLNINDENTLCOUTPUTLNXLNYLNROWSLNCOLSLCFIELDLCTYPELVVALUELCTEMPTHIS ADDELEMENTTCC6%C)T No SQL statement providedT aB-%CT %C/T Unable to connect to datasourceT aB-TC% /T Unable to connect to datasourceT aB-%CT TXMLSQLQueryT Ci% 8TCz-T CCServer].a.T a CgB- Cg% xBC BC ULCSQLLCCONNECTSTRINGLCNAME LCROWNAMELNINDENT LLNOHEADERLOSQLLNX LNSQLHANDLETHIS CERRORMSGLERRORCSQLCONNECTSTRINGLNRESULTLNCOUNTLAERROREXTRACT CURSORTOXMLMULTICURSORTOXML%C9TCC@%C[ T%CTrow%C T T T(% T TC_ F% `"TC ATCC  #6 eB CC Q< >C C CC QC C U LCCURSORNAMELNCOUNT LCROWNAMELNINDENTLNXLCSCHEMALCXML LCTCURSORTHISNCREATEDATASTRUCTURECREATEDATASTRUCTURESCHEMACREATECURSORXML CXMLHEADER CDOCROOTNAMET -T %COT a9T )No Recordset Object passed to ADOToXML(). B% T  T%C TCC@%C.Trow%CP T% T C C CC C ]>C C C C 5TCC Q< >C C JBCCC QC C ULORSLCNAME LCROWNAMELNINDENT LLNOHEADERLCOUTPUTLNFIELDSLNXTHISLERROR CERRORMSG CXMLHEADERLCREATEDATASTRUCTURE CDOCROOTNAMECREATEDATASTRUCTUREDTD CREATEADOXML     %ClTtable%CTrow%C TTCDATEvTCHOURSvT CCENTURYvTCMARKv G9( G (YMDG G:(- TC.TCC Q<>C C +  T6TCC Q<>C C (OT CC@T CTCHL CnTNULL C M %C7TCC Q< />C C . F%C  > < & C  fTCC Q<  >C C . TC` L'%!TC .T..F.6 #TC106 Dv%CY T rTC* T%C TCC T  T G. 2TC_ITCC Q< >C C 7TCC QC C  CSET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G:(/BCC QC C ULORSLCNAME LCROWNAMELNINDENTLCOUTPUTLNFIELDSLNXLVVALUELCVALUE LCFIELDNAME LCFIELDTYPE LCOLDCENTURYLCTIME LCOLDHOURS LCOLDDATE LCOLDMARK LNOLDHOURSYMD LAFIELDLISTTHIS ADOFIELDSEOFFIELDSVALUE LUSEFOXTYPESMOVENEXT T((TC(TC(TCT C H C +TC) C rTM TL C TD C  TT fTN(TC& C  !"TI C #TY $5TB(TC %TF(TC 2'Unknown Ado field type: C _ BU&LORS LAFIELDLISTLNXLNFIELDSFIELDSCOUNTNAME DEFINEDSIZE NUMERICSCALE LNFIELDTYPETYPEADCHARADBSTR ADVARCHAR ADLONGVARCHARADWCHAR ADVARWCHARADLONGVARWCHARADBINARY ADVARBINARYADLONGVARBINARY ADBOOLEANADDATEADDBDATEADDBTIME ADDBTIMESTAMP ADNUMERIC PRECISION ADINTEGER ADSMALLINT ADTINYINT ADUNSIGNEDINTADUNSIGNEDTINYINTADUNSIGNEDSMALLINTADUNSIGNEDBIGINT ADCURRENCYADDOUBLEADSINGLE3     %C,T No data provided for elementB-TCdim%C T Cg%  T   T TTTT CTCC%O (TC  T    TT%OCCC .TCtype%C TT H CM"TC �C  NIF TC g T5TC  D^TC # L#% True 1 Ta T- 2T% %TC  BaU LOXMLOBJECTLAARRAYLLPARSECASEINSENSITIVELNSIZELNXLOOBJECTLCFIELDLCTYPE LNPROPERTIES LOPROPERTY LAPROPERTIESLCVALUE LNDIMENSIONSTHIS CERRORMSGLODIM ATTRIBUTES GETNAMEDITEMVALUELCNAMENODENAMELOROWS CHILDNODESLNROWSLENGTH COPYOBJECTOROWPARSEXMLTOOBJECTLOTYPETEXTLNELEMSt  #TCCN6%Cs T T %CTC T Hd# C ALEN(lvValue)bN% !T C 'T count="CC_"%C )T C <<T   HT  CC Q< >(array)C C  Ca% % B8T  CC Q< />C C  C% C  B%C/BCC Q</>C C  %&+0lvvalue = STRTRAN(TRIM(lvvalue),"&","&") %>l)lvvalue = STRTRAN(lvvalue,">",">") %<+lvvalue = STRTRAN(lvvalue, "<", "<") CBCC Q<>C`C C  D T % C > BQDATETIME T%C TC.00000IT  CC Q<>C C  8T  CC Q< />C C  LYT  CC Q<>C106C C  B Q OT  CC Q<>C C C  OH!? ClvValue.BaseClassbC Collection $T Citem & ClvValue.NodeTypebN1T <> 2T C  B 2dKT  CC Q<>C_C C  B U LCDISPFIELDLVVALUELNINDENT LCATTRIBUTES LCFOXTYPE LCOLDDATA LNOLDHOURS LCOLDCENTURY LCOLDMARKLCOUTPUTLCRESULTTHISLRECURSEOBJECTSCREATEARRAYXMLLSKIPEMPTYELEMENTSLCDATE BASECLASSCREATECOLLECTIONXMLXMLCREATEOBJECTXML%C0TTC<>TC%B-U LCELEMENTLCVALUELCXMLDOCTHISCBODYLNLOCLNLOC2 T-T&%CCOC C $TNo XML input passed.B-%CT__wwXML%CO"TCmsxml2.domdocumentNC  T%C NT C C Line: C _C C  B-TaT%CJT:Invalid data root. Data must be in child of document root.B-%C H"CCC \ F!TC rs:data/z:row%C,TNo data provided for elementB-BCULVXMLLCALIASLOXMLLNXLNSIZELCCREATETHISLERROR CERRORMSGLOADXML PARSEERRORREASONLINESRCTEXTPRESERVEWHITESPACE LODOCROOTDOCUMENTELEMENTBUILDCURSORFROMXML CHILDNODESLODATA SELECTNODESPARSEADOXMLTOCURSORG!TCDATEvTCHOURSvT CCENTURYvT C STRICTDATEv G9( G (YMDG G(TCT  (TCC@TCTC%CP.T TH NULL T CM NIFTCg TTC D%TC# L%ZTC %True Ta  T- G. 2TC>SET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G(BaULODATALNFIELDSLAFIELDSLNXLCTYPELCFIELDLOROW LCOLDDATE LNOLDHOURS LCOLDCENTURYLNOLDSTRICTDATEYMD_LCXMLXMLLOVALUE ATTRIBUTES GETNAMEDITEMLCVALUETEXTTHIS LUSEFOXTYPES LNSTRICTDATEBC ULCXMLTC$TC]\C].xmlCCTCAdoDB.RecordSetNC  BULCXMLTHISCURSORTOADOXMLLCFILEFILE2VAR ENCODEXMLORSOPENT T T -T CwwHTTPN%CNT %C T C TC %C B D% @T aT   BULCURL LCPOSTBUFFER LCUSERNAME LCPASSWORD LNTIMEOUTLNSIZELCDATALNRESULTLLHTTPSLOIPTHIS CERRORMSGLERRORNCONNECTTIMEOUT NHTTPPOSTMODE ADDPOSTKEYLCRESULTHTTPGETNERROR)5%C4 THI 8TCwwEvalN8TC$ CREATEOBJECT("MSXML2.DOMDocument") % 4% C2You have an old version of MSXML installed. It isC 5recommended that you update MSXML to a newer version.C C -Would you like more information from the Web?$ msXML Versionx )Czhttp://msdn.microsoft.com/downloads/default.asp?URL=/downloads/sample.asp?url=/msdn-files/027/001/596/msdncompositedoc.xmlBa 2"TCmsxml2.domdocumentNTCwwEvalN)C oXML.LoadXML("") % % C0The version of MSXML.DLL on your system containsC 0a bug that causes undocumented COM errors. It isC 5recommended that you update MSXML to a newer version.C C -Would you like more information from the Web?$ msXML Bugx =C0http://www.west-wind.com/webconnection/msxml.aspBaB-U LLNOUI LLFORCEFAILLNTYPEOXMLLOEVALLOMSXMLEVALUATELERRORGOURLn/    %CaTCC@%CTrow%CTSchemaT C XTC C  C C  C C  C C  C C %CO  TC  TC ( CT C C ,T C C  T (ETC H2 MT   T  Y T  T  G. 22T C T C TCT C C  C C " C C  C C " C C C y# C C ' C C 6 C C "B C C ULCNAME LCROWNAMELORS LCSCHEMAIDLCOUTPUTLNXLCROWLCTYPELNFIELDSLCSPACE LCATTRIBUTESLNSIZE LNPRECISIONLAFIELDSTHIS ADOFIELDSFOXTYPETOXMLTYPE-    %C%C C{T Tobject%C T%CTSchema%TC C  C C   TTC b T  T % N((TCC @*%,,,,.%T C\  T %#%C loObject.bOT   C C CC loObject. 9T C C .9T C C T" C C 0 C C # C C 0 C C 0T C C  %r B (TCC @*%,,,,.#TCC loObject.b%T C\ 3 T #%object /T  CC loObject. .T   C C  C C " C C  C C T % B "B C C ULOOBJECTLCNAME LCSCHEMAID LNRECURSETYPE LNPROPCOUNTLNX LCPROPERTYLCTYPELCOUTPUTLAFIELDSLCOBJECTHEADERSLCOBJECTPROPERTIES LCDISPFIELDCLASSTHISCPROPERTYEXCLUSIONLISTLSTRIPTYPEPREFIXLRECURSEOBJECTSCREATEOBJECTSTRUCTURESCHEMAFOXTYPETOXMLTYPETC HL CfNULLp T CM NIFTCg T D TCDATEvTCHOURSvT CCENTURYvTC STRICTDATEv G9( G (YMDG G(%TlTC TCCSET DATE TO &lcolddate G9(SET CENTURY &lcoldcentury G( Lf% TC b%%1C@true I Ta ^ T- G~. BTC O%CO)T TC  T%C)T TC  T 2TC BU LCXMLVALUE LCXMLTYPELVSTORELCTYPE LCOLDDATE LNOLDHOURS LNOLDCENTURYLNOLDSTRICTDATETHISXMLTYPETOFOXTYPE LCOLDCENTURYYMD LUSEFOXTYPESLCXMLDOC CXMLHEADERLVRESULT XMLTOOBJECTT -T %CC%CT a$T No XML input passed.B-%TCencoding="utf-8" :!%C lvXML.asyncbL6T a$T No XML input passed.B-%CcT__wwXML%CO"TCmsxml2.domdocumentNC  TT a%C UT aNT C C Line: C_C C B-T%CT aMT =Invalid XML Doc root. Data must be in child of document root.B-.TCdiffgr:diffgram/NewDataSet%C %C 3TCdiffgr:diffgram/NewDataSet/%C BBCCa  .TCdiffgr:diffgram/NewDataSet%C BBC  %C sTC%CT BBCCa   BULVXMLLCALIASLCDATASETTABLENAMELOXMLXLNSIZELCCREATELOCURSORLODATATHISLERROR CERRORMSGLOADXMLPRESERVEWHITESPACE PARSEERRORREASONLINESRCTEXT LODOCROOTDOCUMENTELEMENTLODIFFGRSELECTSINGLENODE SELECTNODESPARSEXMLTOCURSORITEM PARENTNODE '  %CJB-T TC ElementType %CB-T % B-%TCnameC%TCnameCTT< xmlns="x-schema:#Schema"><>C C (&T CnameC(T< />C C .TT CwwXMLNTC %C oTTaB-CC%B-BaULOSCHEMALCALIAS LCSCHEMAXMLLOFIELDSLNFIELDSLCCURSORLCROWLCXMLLNXLCNAMELOXMLXML SELECTNODESLENGTHITEM ATTRIBUTES GETNAMEDITEMTEXTLODOMLOADXML PARSEERRORREASONTHIS CERRORMSGLERRORBUILDCURSORFROMXMLDOCUMENTELEMENTSELECTSINGLENODE%C7TstringTC%CyBCT %C BBCU LOROOTNODELCXPATHLCTYPELVSTORELOVALUESELECTSINGLENODETHISXMLVALUETOFOXVALUELCVALUETEXT  TTC UTC N  T T C%TC %TC Tstring CTCtypeTC %OTC C loobject.&lcfield = lotemp Dloobject.&lcfield = THIS.xmlvaluetofoxvalue(lofield.TEXT,lctype)  BULOOBJECTSTRUCTURELOTYPELOOBJECTLNINDEXLLUSECUSTOMTYPESLCTYPE LOATTRIBUTESLCFIELD LCFOXTYPE APROPERTIESTHIS COBJECTCLASSLOFIELD CHILDNODES ATTRIBUTESNODENAME ADDPROPERTY GETNAMEDITEMTEXTXMLTYPETOFOXTYPELOTEMPBUILDANDUPDATEOBJECTFROMXMLPOSDLATYPES T  %CNb TTCC Q<>C C CC QC _C C CC QC C ( TC TC T vTCCO,key="C" type=""key="C"6 VBCC QC C CC QC C U LOCOLLECTIONLCNAMELCROWLNINDENTLCOUTPUTLNITEMLNXLVVALUELCTYPELCFIELDLNITEMSCOUNTITEMTHIS ADDELEMENTGETKEYQ COLLECTION%Cx,T No data provided for elementB-TC items/item TCkeysort %C T C gT%jTCTC%OfTCCC  T T TTT TCkey%C T ) TTCtype%C jT TCH CM%CCC�C   #CC�C % Oobject %O%C vTCC TCCCC NIFYCCg TCC D?CC# L%True|Ca C- 2CBaU LOXMLOBJECT LOCOLLECTIONLNXLCNAMELOROWSLNROWSLOITEM LOKEYSORTTHIS CERRORMSG SELECTNODESSELECTSINGLENODEKEYSORTTEXTLENGTHCOUNT LVTEMPLATEITEMLCTEMPLATETYPE COPYOBJECTREMOVEOROWLCVALUELOT ATTRIBUTES GETNAMEDITEMLCKEYLCTYPEADDPARSEXMLTOOBJECTnXB<>C C CC C ULAARRAYLCNAMELCROWLNINDENTTHIS CDOCROOTNAMECREATEARRAYXML TC7%C!Doc.DocumentElement.ChildNodes(0)bO-TInvalid XML format for array.B-BCCU LVXMLORNODELAARRAYDOCTHISLOADXML CERRORMSGPARSEXMLTOARRAYDOCUMENTELEMENT CHILDNODES#TCH/ CI B C%Cw B 0lvvalue = STRTRAN(TRIM(lvvalue),"&","&") )lvvalue = STRTRAN(lvvalue,">",">") +lvvalue = STRTRAN(lvvalue, "<", "<") B D T %CVTlBAQDATETIMETC.00000 B LBC106 QBC  YBCC_$ BC_ULVVALUE LCFOXTYPELCDATE%C8 T%CeTC TCT CH CT C BU LONODELCNAMELCVALUE LCNAMESPACE LONEWNODETHISOXML CREATEELEMENT CREATENODELCTYPETEXT APPENDCHILD%C1 TTCTC BU LONODELCNAMELCVALUE LCNAMESPACELOATTRTHISOXML CREATENODETEXT ATTRIBUTES SETNAMEDITEM!T-TT%COf T O%C8T(No filename passed to load XML document.B%CO"TCmsxml2.domdocumentNT  :TT C =%Cloxml.parseerror.reasonbC C NT C C Line: C _C C  TaBTaT BULCFILELLASYNCLLPRESERVEWHITESPACELOXMLTHISLERROR CERRORMSGOXMLLCXMLASYNCLOAD PARSEERRORREASONLINESRCTEXTPRESERVEWHITESPACEz %C) TTC CC QTCBCULONODELNINDENTLCTEXTLOTEXT OWNERDOCUMENTCREATETEXTNODE APPENDCHILD%"T`,activecontrol,classlibrary,baseclass,comment,docked,dockposition,controls,objects,controlcount,Hclass,name,parent,parentalias,parentclass,helpcontextid,whatsthishelpid,bwidth,height,top,left,tag,picture,onetomany,childalias,childorder,relationalexpr,timestamp_column,UTHISCPROPERTYEXCLUSIONLIST objecttoxml` getobjvarq CURSORTOXML XMLTOCURSOR createdatastructurexmlCreateCursorXML'createobjectstructurexmlWCreateObjectXML xmltoobject*.FoxTypeToXMLType$2xmltypetofoxtype\4ParseXMLToObject7BuildObjectFromXML?ParseXMLToCursorYCBuildCursorFromXMLQHCreateDataStructureDTDlMCreateObjectStructureDTD:RLOADXMLUcursortoadoxmljXcreateerrorxmljxmltoobjectnoparserlCreateArrayXMLqsqlcursortoxmltMultiCursorToXMLwadotoxmlz CreateADOXML} ADOFieldsParseXMLToArray AddElement" setelementadoxmltocursordParseADOXMLToCursor6 EncodeXMLZ cursortorsloadurlc ismsxmlbugcreatedatastructureschemacreateobjectstructureschemaxmlvaluetofoxvaluedatasetxmltocursorCreateCursorfromschema>xpathvaluetofoxvaluebuildandupdateobjectfromxmlLCreateCollectionXmlParseXmlToCollection  arraytoxml xmltoarrayfoxvaluetoxmlvalue adddomnode3adddomattributeLOADadddomlinebreakYINIT) T Tc T/TC C 2T%-- Override in code. Set in Init() -- T- T- T T T - T -T EMPTYT xdoc T  T-T333333@ T- T- T- T TTSchema T TTwwxml T-                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5UHEIGHTWIDTHCBODY CXMLHEADERCPROPERTYEXCLUSIONLISTLXMLHEADERSENTLCREATEDATASTRUCTURECDTD CERRORMSG LUSEFOXTYPESLRECURSEOBJECTS COBJECTCLASS CDOCROOTNAMEOXMLLERRORCVERSIONLSKIPEMPTYELEMENTSLUSEPARSERFOROBJECTIMPORTLSTRIPTYPEPREFIXCSQLCONNECTSTRINGNCREATEDATASTRUCTURE CSCHEMANAME CSCHEMAURL NENCODINGNAMELSQLPERSISTCONNECTIONwwXMLCUSTOM11AA!!AAAAA!Aa aAaQA3qAAA31AAAA!AaQaa QAaQAQ3qAqAQAqAAAAq!AqAqA!AQqAAAAQqAAA!qAA3A!QA1Aq31qAAAAaAqq!A1Aa1a!aqQAAAqAAAAAAAAAA!AAAA!qAAAAAAqAaaA311AAAQAAAA!31Q1Aa1aAAqAAAAAQAAA!!A!QA!AAQAAAAAAAAAAA!AAAA!AAaAAAA!qAAAAQAAAaaA3AqAq!AqAqAqAAQqAAAA3q!A1!A1AAAAAAAQA1AqA3q!Aq!qA3qqAqqA1AaaQA!!AAAQAAAAAAAAAqqAQqAA1AA1AQAAA3q1AqAA!AAAAQAAAA31qA!q1Aaa!AQqQQAAaaAAA!1AAAAAAq3!QqAAqAAA11AA1!AA!A!AAAq3AAq!AQ11AAQAAAAQQA !AA!A31AAQQ!QAAaA!QAAqAAqA3qq!AAqA3111AaaA!1QAQAA1AA A AAAAAAAAqQAAAqAqAAAAqAA3qqAqAqA3AqAqqqAQAAA!!A!AAQqaAAQAQAqAAA31qa1111A1A1!QaAAA3qAqAA1qAA1A!qA1AQ31qAAAA1qAa!AAQ3qqAAAAA!1 AQ31q!AAA1Aa1aAaqQqAaaAAAA!AAAA!AAAAAqA3q11q1qq1aA11qAA3qA!!1AAAAAAAAA!AQ!aQAaAQA1AAA1q1Aq3q1!AA1!q!AA!AAAAAAAAA1AA1!AAAAaAA3A1qA31aAqAAAq!AqAqA!!AqA3q1Aaa!QqQAAqQaAAA!qAAAAAAAq3q3A3qqaqA!AA!a1AA3qA1a qAqA!a1AqAAq31AA1Aq!A1AQAAAAQQAQA!311AAA1A1qAQAAA!!A!1AAAA!A1AAAA1!!A1AAA1A!3qQQa1AaaA1AA!QAAAAA1AqAQAA3qAqAQAqAAAAq!AqAqA!!1AAA!QAAA3qqAqA1qAQQAaAQQaqA!qAq311AQAA31A11AAQAAAA31qAQaAa3qA!QAaAAAAq!A!AQ!1AQA!AAqaAqAaAq!!A!AAq313QqqA3qqAA1A1AAAA31qAAAA31AA3qqqA!AAqA3Aq3!4!!Q1! 0@` Pp@0@04 !. 3 M:^ [aP/$:/2M;28JfcJO'PESuSV7!WedT|dijrErz 7zWMSq ;@nz):+rKϯrݸbM#vfHri @{!)@\R9 5%tK&*n+,|, 1?14 4`>>R?i|?@n@DxDF.FG7GKUKL^M5N`qEN%/vNY1G+( wwXMLAdapterBC wwXMLAdapterNU WWXMLADAPTERgQSTRINGTC@Y%C@U BBULCCURSORLOTABLETHISTABLESALIASQVARIANTQBOOL%CNJTC iTC%CB-% C QCULVCURSORLLAPPENDLOTABLETHISTABLESGETTABLEALIASTOCURSORQSTRING%CW TC%CS BCTa TClcXML-a BULCCURSOR LLCHANGESONLYLCXMLTHISADDTABLESCHEMA ISDIFFGRAMTOXMLGetTablel GetCursor GetDiffGram, Ta   U UTF8ENCODED wwXMLAdapter XmlAdapterVa6AAAq3qQQAqAA3QqAA41  K#(% ( vN9YG+(wwXmlState.prgU WWXMLSTATEPRGu%CO.T n%TCmsxml2.domdocumentNT-ULODOMTHISODOMASYNC> Ta%C{(T<>CTaBa%C C%C 0(T<>CT-B-BaU LCXMLLLURLTHISLLOADED CROOTNODEODOMLOADXMLLOAD PARSEERRORREASONBUTHISODOMXMLCU LCFILENAMETHISODOMSAVE%CTCHX Ci C V Tstring NTfloat L#Tboolean%T1 T0 T D XTdatetime OsB- GB- 2Tstring%  CT %CdT C/  %TC/ / %C \C B%TC/ / %C#T C/  %C .C< > TCC TTCtypeTC%C TC descriptionTCBaU LCPROPERTYLCVALUELCTYPE LCDESCRIPTIONLODOM LOPROPERTYTHISLLOADEDLOADXMLODOM LOPROPERTIESSELECTSINGLENODE CROOTNODE REMOVECHILD CREATEELEMENT APPENDCHILDTEXTLOTYPECREATEATTRIBUTEVALUE ATTRIBUTES SETNAMEDITEM% M%C IBT %TC/ / %CBT TCCtype  @H- Cstringxmlurlfile B* integer float N BCg booleanBC1a-6 datetime BCBU LCPROPERTYLODOMLCVALUELCTYPE LOPROPERTYLOVALUETHISLLOADEDLOADXMLODOMSELECTSINGLENODE CROOTNODETEXT ATTRIBUTES GETNAMEDITEM% J%C F BTT ( TC T /TCC.TCtype"TC description%C  T T BU LAPROPERTIESLNXLODOMLOVALUETHISLLOADEDLOADXMLODOM LOPROPERTIESDOCUMENTELEMENT CHILDNODESLENGTHITEMNODENAME GETPROPERTY ATTRIBUTES GETNAMEDITEMTEXT LODESCRIPTInitULoadXMLGetXMLSaveXML SetProperty GetPropertyAGetProperties T properties T T-       U CROOTNODEODOMLLOADED wwXMLStateRelation" :qqQA3AqAAAAAqAq33qA3111A!AAAQAqAq1AA1AQ!AAAQAQAA!AAq3qq1AAAAQqAAq3q1AAA1qQ!!AA4qqq`1 ,!.h0$ 5_> Lryz]%]7>>WYUg%Cdespflet .Qdespflet%Cfletes \QfletesBUDESPFLETFLETES%podespfletfletes-QQ tmp_despachos podespfletfletes-QQ tmp_despachosBU P_VE_DSP_VERSIONDESPFLETFLETESNOMBRETILDEPAGADOOLDCOD_FLEESTADO FECHAHORA TMP_DESPACHOS T"trsacdespflet%IB-$Tve_depachos_pagados.PRG*TAsignacin de O.P. a despacho Ttrsac%B-F~F G((despacho E %C4> %   =C C  ZHAsigna O.P. al despacho   T 5C(Error, el despacho no fue encontrado !!!! C Ttrsac T %   )CSe han asignado las O.P. !!! @C3Hubo un error, no se han registrado los cambios !!!UAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN TMP_DESPACHOSOLDPAGADODESPFLETDESPACHO TTS_ERRORUSER_LOG PUB_INDEXMENSAJE UNLOCK_ALLEND_TRANTTS_ID open_files0 obtener_datos transaccion,1AA!AA22 AA2"2qAC2qArArAQAAAA1  .%b @ Y TXYU4%TC]TC]$T(p_local+"\tmp\"+xarch)%C cur_rem_pendFQ T %T(p_local+"\tmp\"+xarch2)%Tccvent.estado=2 'Tccvent.estado=4select distinct ccvent.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , ccvent.causa as causa , ccvent.rem_ven as remito , ccvent.fac_ven as factura , ccvent.fac_ven as comprob , ccvent.cod_fle as cod_fle , ccvent.fec_ven as fecha , ccvent.pedido as pedido , ccvent.ot as ot , ccvent.ref as oc , ccvent.deuda as importe , (ccvent.estado=4) as tilde , (ccvent.estado=4) as old_tilde from ccvent left outer join clientes on ccvent.cod_cli=clientes.cod_cli order by ccvent.rem_ven where ccvent.cod_cli#"0 " .and. ccvent.causa$"Vr " .and. &xfiltro .and. ccvent.rem_ven#space(12) .and. val(right(ccvent.rem_ven,8))#0 into table &xdestino %[Q\tmp\ FS\tmp\BUXTIPOXCREARXARCHXARCH2XDESTINO CUR_REM_PENDXFILTROP_LOCALa4%Ccliaux 1Qcliaux T T Ta T trsacccvent%# T=trsac Ve_retirosRetiros de Clientes Ta%C transaccinF ~ F G((ccvfac/EC V V r6%C4FG((comprob/EC V V r6%C4% `F >F >JCCV  6 Retira el cliente F >F>QCCV  6 Anula: Retira el clienteF > T 6T=trsac Ve_retirosRetiros de Clientes% 8C+Hubo un error. No se ha registrado nada !!! ;C&Comprobantes procesados modificados: CCZ T V)CFall el lockeo de datos !!!BU XFECHAHORACLIAUXACCAAA XRESULTADOLOCK_GTRSACBEG_TRANSYS_M CUR_REM_PENDTILDE OLD_TILDECCVENTCCVFACCAUSAFACTURAREMITOCOMPROBESTADORETIROUSER_LOG PUB_INDEXEND_TRAN TTS_ERRORMENSAJETTS_ID obtener_datos0 transaccion11BqAAQA2AQ0qAAB2q!A22sArr"rrqr1BrBBBAAAB1 $ F% hNkQ>YUB 4%CxfiltrobC8T.t.!%C xtipo_datosbNj T%Cdesp Qdesp%Cdespflet Qdespflet%Cclientes Qclientes%Cccvent &Qccvent%Cfletes TQfletes%Ccliaux Qcliaux%Ctccvent Qtccvent T C]C Suspendo?a select desp.* , despflet.cod_fle as flepri, ccvent.cod_fle , fletes.nombre , fletes.tipo , clientes.nombre as dcliente , ccvent.cod_cli as cod_cli , ccvent.pedido , nvl(tccvent.fec_ven,{}) as fec_ped, nvl(tccvent.fec_ent,{}) as fec_ent, ccvent.fec_ven as fec_fac, cliaux.entciu as entciu, ccvent.recepcion , space(200) as nc , 0000000000.00 as nc_cant , (desp.fecha-nvl(tccvent.fec_ent,desp.fecha-1000))*1000 as demora_c , (desp.fec_ent_f-desp.fecha)*1000 as demora_p , (desp.fec_ent_c-desp.fec_ent_f)*1000 as demora_s , (desp.fec_ent_c-nvl(tccvent.fec_ent, desp.fecha-1000))*1000 as demora_t from desp left outer join ccvent on iif(!empty(desp.factura), desp.factura+"V", desp.remito+"r")=ccvent.fac_ven+ccvent.causa left outer join fletes on ccvent.cod_fle=fletes.cod_fle left outer join clientes on ccvent.cod_cli=clientes.cod_cli left outer join despflet on desp.despacho=despflet.despacho left outer join tccvent on ccvent.pedido=tccvent.pedido and ccvent.pedido#0 left outer join cliaux on iif(!empty(desp.factura), desp.factura+"V", desp.remito+"r")=cliaux.comprob+cliaux.causa order by fletes.nombre where fletes.tipo#2 and fletes.tipo#4 and &xfiltro into cursor tmp1 Lotmp1fletes  Q 1\tmp\ x>    C6 C 6%Ctmp|FQ\tmp\ %Cccclie QccclieF~C TVXoccclieCC ZCZCcZ c tmp_cc%  Xoventastmp_ccC#$cQ%#&#!! C#' (%  rotmp_ccventas!!#&#!! C#' !!tmp_cc1F) T* ~ (T**CC* , 6F>+C(,*FF#)%7 FQF-\tmp\ \tmp\ .*F-BU. XTIPO_DATOSXFILTRODESPDESPFLETCLIENTESCCVENTFLETESCLIAUXTCCVENTXTMPSYS_MOSTRAR_SCREENTMP1NOMBRE FLEPRINOMFLEPRICOD_FLEP_LOCALDEMORA_CDEMORA_PDEMORA_SDEMORA_TTIPOALLTMPCCCLIEFACTURAXIDCOD_CLICOMPROBCAUSAREFCAUCUOTMP_CCSUMVENTAS RECEPCIONCANTIDADFAC_VENCOD_INSARR_CURTMP_CC1XNCNC_CANTNCCUR_ENTF4%Ccur_ent*FQ%C \tmp\.dbf \tmp\.cdxTC](h1\tmp\N C C C DC C( C C( N N DDCC(NCCCQ\tmp\& & & & & & &  BUXTABLACUR_ENTP_LOCALDESPACHOFACTURACAUSAREMITOFECHACOD_FLENOMBRECOD_CLIDCLIENTETIPOOP FEC_ENT_F FEC_ENT_CFLEPRI FLEPRINOMNC_CANTNCFAC1FAC2 Ttrsacdesp%EB-Tve_conformes.PRG$TAsignacin de Conformes Ttrsac%B-F ~8F%C ;G((causaEVT T V ~G((remito E T  T r%C44V%C CC C a6   0>  CC C CC C a6 6C Asig.Conforme : OP=CCZ Ent.Transp.=C C* --- 6 Ent.Cliente=C C* --- 6 C Ttrsac T %  .C!Se han registrado los cambios !!! @C3Hubo un error, no se han registrado los cambios !!!BUAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANCUR_ENTDESPFACTURACAUSA XCOMPROBANTEXCAUSAREMITOFAC1NOMBREFAC2 FEC_ENT_C FEC_ENT_FOPCONFORMEUSER_LOG PUB_INDEX UNLOCK_ALLEND_TRANTTS_ID TTS_ERRORMENSAJE obtener_datos0 crear_tabla transaccion1AAbAAAAA!A!A!A1AsyKBqA!Ar1"""rArAAqArQ2rArQrAB3qqAA"AP22qAA2qArxQAe BBBAB11KJa%!WY G+(listados TTT TInicializando...TaTCT  causa$'Vd'H9 T  .and.causa='V' T  .and.causa='d' 9T  .and.causa='c'"% CX CX % >T  -.and.betw(val(cod_cli),val(xdcli),val(xhcli)) 7T  &.and.xdcli<=cod_cli.and.cod_cli<=xhcliTccvent.causa$'Vd'H$ ]&T.and.ccvent.causa='V' &T.and.ccvent.causa='d' &T.and.ccvent.causa='c'"% CX CX % IET4.and.betw(val(ccvent.cod_cli),val(xdcli),val(xhcli)) ET4.and.xdcli<=ccvent.cod_cli.and.ccvent.cod_cli<=xhcli"%CX CX ]%%7WTF.and.val(xdage)<=val(ccvent.agente).and.val(ccvent.agente)<=val(xhage) CT2.and.xdage<=ccvent.agente.and.ccvent.agente<=xhage Y%_TN.and.val(xdage)<=val(clientes.vendedor).and.val(clientes.vendedor)<=val(xhage) UKT:.and.xdage<=clientes.vendedor.and.clientes.vendedor<=xhageT*TObteniendo comprobantes...TC]%C resultadoFQh1\tmp\CC(CCC N DNNND D!N"N#N$N%C&C('N(N)N*N+N Q%CEMPRESAS &Q, \empresascodigoC Suspendo?a-%.. T/0F1G((codigo#) T2aT3.t.%.h,T3inlist(codigo, p_codemp, p_dos)+C+ C3 T4CO T5F!Q, \empresascodigo E56ft058ft05a%Cempresas : F!Q, \empresascodigoF1G((codigo E5 9C5: ;F1!Q, \empresascodigo E5F1 #4H T5/F!Q, \empresascodigo E56ft058ft05a y F1G((codigo E0 9C0: ;%C resultado Q\tmp\FTT*TGuardando datos finales...">& Desconocido&T=.t.HL  >w T= imp_despl#0 > T=imp_despl=importe& C?Bcopy to (p_local+'\tmp\rpt_ve_desplazamiento') fox2x for &xfil Q \tmp\.dbf \tmp\.fpt \tmp\.cdx \tmp\.idx \tmp\.bak%Cq F@Q Ave_sql_desplazamientoBUCLISTADOS OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEXARCHIVONEWFILETEMP2XDCOMXDCLIXHCLIP_CLINUMTEMP1XDAGEXHAGE P_AGE_TIPOP_AGENUM RESULTADOP_LOCALCODIGONOMBRECAUSACPBTNUMEROCUOTAFECHAIMPORTENCS IMPSINNCSVTOCANCELCNDDSPDESPLAZ IMP_DESPLVENDEDORNOMVENDDESP7DESP15DESP30PROM_DPEMPRESAP_SYSTEMSYS_MOSTRAR_SCREENXDEMPXOLDEMPP_CODEMPEMPRESASXINICIAL XFILTRO_CON REG_EMPRESAXCODLOAD_EMPFT05 DNLD_CUENTASPUSHPROCESARPOPFORXFILXDCPBIDQOPEN_FILES_LOADVE_SQL_DESPLAZAMIENTO4%CL+ T%CLS T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_desplazamientoT\xchgTTgT CCC$iCC$HCC$%$ T C$T T  C BUXTABLAXDTIPXDMONOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDNUM2XDNUM1 EXP_TABLA TC]%Cccclie HQccclie%Cagente vQagente%Cclientes Qclientes%Cccvent QccventCprocesarselect * from ccclie where between(ccclie.fecha, xdfec, xhfec) .and. ccclie.cod_cli#"0 ".and.ccclie.causa$"Vd" .and. ccclie.ref+ccclie.cau+str(ccclie.cuo)=ccclie.comprob+ccclie.causa+str(ccclie.cuota) .and. &temp2 into cursor ccclie4 occclieQccclie4Q   C cQ CZ  C Z c    ccclie3occclie4QXccclie3Q CZ  C ZC Q ccclie2select distinct ccclie2.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , ccclie2.causa as causa , iif(ccclie2.causa="V","FC","ND") as cpbt , ccclie2.comprob as numero , ccclie2.cuota as cuota , ccclie2.fecha as fecha , ccclie2.importe as importe , ccclie2.ncs as ncs , ccclie2.importe-ccclie2.ncs as impsinncs, ccclie2.venc as vto , ccclie2.cancel as cancel , 000.00 as cnd , 000.00 as dsp , 000.00 as desplaz , 0000000000.00 as imp_despl, nvl(ccvent.agente,space(8)) as vendedor , space(30) as nomvend , 000.00 as desp7 , 000.00 as desp15 , 000.00 as desp30 , 000.00 as prom_dp , xempresa as empresa from ccclie2 inner join ccvent on ccclie2.comprob+ccclie2.causa=ccvent.fac_ven+ccvent.causa inner join clientes on ccclie2.cod_cli=clientes.cod_cli where between(ccclie2.fecha, xdfec, xhfec) .and.ccclie2.cod_cli#"0 ".and.ccclie2.causa$"Vd" .and. &temp1 .and. ccclie2.ref+ccclie2.cau+str(ccclie2.cuo)=ccclie2.comprob+ccclie2.causa+str(ccclie2.cuota) into table (p_local+"\tmp\"+xarchivo2) G2Q\tmp\%-FG((codageFG-(>G-( FG((codageFG((codcliG-(FG-( >G-(FG-(T!"4T!#$Analizando comprobantes obtenidos...F($T!""T!%C$$6 ~ T!"!"FG((comprob#E &CZ%C4 T'COG((porfacc T)a T* T+,listados+* T. T/0./a>1+2.+0.3/4C. 8C.65C. 8C.66C. 8C.6FG((comprob #'FQ\tmp\78\tmp\ \tmp\.dbf \tmp\.fpt \tmp\.cdx \tmp\.idx \tmp\.bakBU9XEMPRESA XARCHIVO2CCCLIEAGENTECLIENTESCCVENTSYS_MCOD_CLICREFCAUCUOIMPORTENCSCCCLIE4C2COMPROBCAUSACUOTACCCLIE3C4C3CCCLIE2P_LOCALBORRAR P_AGE_TIPOCODAGEVENDEDORNOMVENDNOMBREALLCODCLICODIGOOESTADOVALUETEXTOTRECMAXNUMEROREGISPORFACCPRIMEROXDSPXCNDCND_DSPLISTADOSAAABBBDESPLAZCNDDSP IMP_DESPLDESP7DESP15DESP30XARCHIVO RESULTADO{%Cclientes 8Qclientescodcli%Cagente pQagentecodageBUCLIENTESCODCLIAGENTECODAGEdemoraaprocesarjopen_files_load !t111A"qAA1a1a1aA"QQAA"q1AAAAqAABaAr2rQ1AR1AqrrBAR1rAAr#11AB#B#qAAB3trArA"AB3qr!A!AAA!AS;H HbqrbrrrbraBAr!qq11 rBArB2AAB1.&-&&%Q49Q4 f'LYpG+(listadosTPTSFQHR NyTN  DTD  CX 2TA %0B)J(    +     T \temp.txt G(G G +TCiTCHTCiTCH% T TTC$% jT TTC$ T T% T=C6(C6mCF4G(P  C! ra6 %12345A~ T" T#  T" T#T$.t."%%CX &CX w%'2KT$$:.and.val(xdcli)<=val(cod_cli).and.val(cod_cli)<=val(xhcli) s7T$$&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"%(CX )CX @%*MT$$<.and.val(xdage)<=val(vendedor).and.val(vendedor)<=val(xhage) <9T$$(.and.xdage<=vendedor.and.vendedor<=xhage%+, 1T$$ .and.xdzon<=zona.and.zona<=xhzon%-. /T$$.and.xdcat<=cat.and.cat<=xhcat%/!T$$.and.xdlis=lista%C0QT$$.and.C0F1T2\borrarGIHP  3%'N%*Gindex on str(val(vendedor))+str(val(cod_cli)) to (temp) for &filtro J=index on vendedor+str(val(cod_cli)) to (temp) for &filtro  %*=index on str(val(vendedor))+cod_cli to (temp) for &filtro 3index on vendedor+cod_cli to (temp) for &filtro  3%'I>index on str(zona)+str(val(cod_cli)) to (temp) for &filtro 4index on str(zona)+cod_cli to (temp) for &filtro  3 %'/index on val(cod_cli) to (temp) for &filtro  *index on cod_cli to (temp) for &filtro  3P )index on nombre to (temp) for &filtro GI G-(4G-(67G-(89F:G((remitoFG-(<: <=>7=?>?J(=>T@ @z 9,999,999 TAB TB%TC$?C@> TD TEa*TFFecha : CC$* Hora : C^(C12345A  6CBorrarGF1#)+C+ %AD H TE-FG E1IG %C+ sTJ1ICoccclieI<KLCQMICNJcdRA12 KL< I<KLM tmp_ageing% v fC"Comprobante repetido en la cuenta CJ C1Q de la empresa CCZ !!!PF TR-TS1ITTC1QUVWXYZT[1\C[condcobrplanT]^_TU14)TVCCagente+  - `Q6TW16*TXCCcuentas+  - 7_6*TaCCcuentas+  - 7b6TY18(TZCCzonas+  - 9_6 J(=+1II|,%KL<CKL t-TcCde df6TgI<ChZ Ti< Tj TkCO%CKL9G(( referencia Eg Tm)+C+ gIKLCnZ TmmoHG((porfacp #k P TmoTqCijrTmmq%s[HW cTt cTt? 2W%CciCi TtCcH BTt?CcHTut Tvcw -Tt?CCvCv8 Cv868Tu?t#T=?C?=m#T>?C?>m%t? p%t#T=?C?=m#T>?C?>m#T=?C?=m#T>?C?>m l%t?h#T=uCu=m#T=?C?=m#T>uCu>m#T>?C?>mHTAAC XS T Fx>ISQT]>yUzV{W|X}a~YZ[]*CC?=C?=@_ !>C?=C?= T(?CC=@_ TpCCZrepl &aaa with xper(z) %s n?(?jTpCCZrepl &aaa with xper(z)  6TpCC?Z0repl &aaa with xper(xdper+2) - xper(xdper+1) TpCC?Z repl &aaa with xper(xdper+1) TpCC?Z repl &aaa with xper(xdper+3) CR* 6>CR* 6F1HTAAC XCX CX C-C@>Q  T+?;C-C@>Q TTAAC XCX CX *CC?>C?>@_  T+?CC>@_ T$C12345A6GG(G*G on escape &onesc FxHk & yx & ~x & {x>% C Borrar_ConsG)%  YF  @FG((cod_cliFx ~<F ExI%C4 Fx ^JF _J 8(4TPCCZ)replace &xpit with &xpit+borrar.&xpit FxQ.*F1G!(F%C ~ Ta(TPCCZ%CC T-!%H// 31%'%*0T#STR(VAL(ven_cod))+STR(VAL(cod_cli)) &Tven_cod+STR(VAL(cod_cli)) -%*&TSTR(VAL(ven_cod))+cod_cli )Tven_cod+cod_cli 3%'}*TSTR(zon_cod+STR(VAL(cod_cli)) !TSTR(zon_cod)+cod_cli 3 %'T VAL(cod_cli) Tcod_cli 3/TNombreHD fT"" Tven_cod T str(zon_cod) Tcue_cod,index on &xindexsep + &xindex tag full ((\tmp\rpt_sch_ageing.dbfQ.*CFQBULISTADOSXDPRNXDWK1 CRITERIOSXDCENXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNTEMPTXTP_LOCALNITXBORRAR XBORRAR_CONSXCUREMPXFECHA_DXFECHA_HXAO1XMES1XAO2XMES2XDVENP_DOSXDCON OPEN_FILESCCCLIECAUSAMOTIVOXDNFC LINEWIDTHPICAFILTROXDCLIXHCLIP_CLINUMXDAGEXHAGEP_AGENUMXDZONXHZONXDCATXHCATXDLISXDFORCLIENTESTEMPXDORDVENDEDORCCUE_DEUCUENTASZONAZONASREMXFACREMITOCOMPROBXPERXPERTXDPERPICLINPAGANCHOMAXLININICIALXTEMPCREAR_ARCHIVO_TEMPORALHEADERCOD_CLIXCLREFCAUCANTIDADCANCEL TMP_AGEINGMENSAJENOMBREXVERXCLICODXCLINOMXVENCODXVENDESXCUECODXCUEDESXZONCODXZONDESXPLANFPAGXDPLANCONDCOBRDESCRAGENTEXCUEABRABREVXVENCVENC XDEMISIONFECHAXCCUOTAXCOMPROBXCAUSAREGIS REFERENCIAACCCUOIMPORTEPORFACPXPERCENT POR_CENTROXDTIPOFFSETXOFFSETAAXDDIABORRARVEN_CODVEN_DESCUE_CODCUE_DESCUE_ABRZON_CODZON_DESPLANDPLANP1ZAAAVERXDSEPEMPALL BORRAR_CONSOOBJNPITXPITXDNUM1XDELETEXINDEX XINDEXSEP TT,C12345A 61TC Pgina : CCZC>C XAC XC*Empresa : Dipl.Ing.G.Bruno Schillig S.R.L.NC XC7AGEING - Da cero = da de vencimiento del plazo p/pago`C XCC CX!Todos los Centros de CostosCentros de Costos : C 6C XCC X  C  !CTotalC >  T + sACCC Z a CC ZC > T  "CMs deC > !CTotalC > !CDeudaC > C XCdigo CNombre $Ca VencerC >  T +  CdasC > T  6CCC Z dasC > #CVencidaC > !CTotalC > C XC-Q C-Q C-C >Q  T + C-C >Q T  TBULINPAGXDPRNINICIALFORMFEEDTEMPANCHOXTEMP LINEWIDTHXDCENPICZXDPERXDDIA TBUXGETw45 T< :T'Ordenado por Vendedor - Cuenta - Fecha.6T#Ordenado por Zona - Cuenta - Fecha./TOrdenado por Cuenta - Fecha.;T(Ordenado por Nombre del Cliente - Fecha.%$@$listbox(arr_ord% iBaB-UXORDMAXORDARR_ORDTECLALISTBOX4%C#BaF%CCLIENTESXQclientes#) T1xerr1=-1xerr2=&temp %B-on error &onerr BaUTEMPCLIENTESXERR1v 45 TCW T%CX\HYX Vcd6F E T T#+C+   T %%C C  T H#TC  6 2X T T a F BU XCOMPROBXCAUSA XACC_ESTE XACC_TOTALXPERCENTAREAXDCENVENTASFAC_VENCAUSATOT_VENCENTROXVERb CFQbienescodinsFQventasven_facG-(FQclientesnomcliFQagentecodage%CxdnfcbL T -FQccclieporfacp%CCuentasFQQcuentascuenta%CZonasZFQQzonascodigo%CremxfacFQQremxfacremito%Ccondcobr Qcondcobr%CCostosFQQcostos%CcatcliIFQQcatcliUXPASADAXCUREMPPREPARA_EMPRESABIENESCODINSVENTASVEN_FACCOD_INSCLIENTESNOMCLIAGENTECODAGEXDNFCCCCLIEPORFACPCUENTASCUENTAZONASCODIGOREMXFACREMITOCONDCOBRCOSTOSCATCLIt TC5h1CCCNN N N N N NNNNNNNNNNNC C CCCNCN N !C(Q& U"XPATHXALIASODEYFUNCNEWFILE_LOCAL_TMPCOD_CLINOMBREVERP1P2P3P4P5P6P7P8P9P10P11P12P13P14P15P16P17CUE_CODCUE_ABRCUE_DESVEN_CODVEN_DESZON_CODZON_DESEMPPLANDPLANn 4Hg < T  G(gesTCa C\GES T  G(gesTCa C\GES T  g G(gesTCa C\GES TU XPASADAXEMPRESAP_CODEMPGESP_SERVERODEYFUNCGET_PATHSETSP_UNOP_DOSheader" criteriosS'hlp_ordu'formula) por_centro* open_files+crear_archivo_temporal,/prepara_empresa2)xAA1A1Q1ABAAaa112A2AQ2A!rAA !qAA!AAAA1AQAra1qA1AA1AA1A1AarrQrtQqqArba "aArQq1AAAb311qqAAbA9121113111121AAABAArQrBCBAAqAA11A11AAgaaaAr111AArrrqqqQaAAAAqAraBtQaqAAAAAAA1aAaAA1A1AA11A11A11AAAqAA3aqqqAA!qAAAa1qqAA3`A3qqra2AAqAq2qQqAAQAqA1q2Rar1RAAA2AA3!qqAqAAbqAAqAAAArqAA!rqAA!5Q#!211QQ!1QQ!1QQQ!A<.A3HX3X=m=#?8?&@=@E2EpH.HKV5KN}%w(.,(iT#Z T T T T T T C%%   F( \tmp_borrar2QF( \tmp_borrar3QT C datasessionvT CSessionNG( T\data\CCZ C C CaFQFQ G( #Q \tmp_borrar2F  \tmp\.dbf#Q \tmp_borrar3F  \tmp\.dbfF%7"& CCgZ( \tmp\ _& ( \tmp\F%,& CCgZC( \tmp\ (& C( \tmp\)( \tmp\rpt_ve_te_comisionesF1( !\tmp\rpt_ve_te_comisiones_resumenFG!(G(FG!(G(FQFQFQBUBORRARBORRAR1BORRAR2BORRAR3BORRAR4BORRAR5PROCESARXDCONP_DOSP_CODEMPP_UNOP_LOCALOLDDATASESSIONIDODS DATASESSIONIDP_SERVERP_SYSTEMSETS OPEN_FILESP_AGENUMAGENTEFECHANOMBREVEN_OPERCCVENTFG((cuentaFG((codcliF G((idFG((codageT C T C T C T C TC HT;!empty(cod_cli).and.betw(fec_ven,xdfec,xhfec).and.causa#'r'"%CX CX %eKT:.and.val(xdcli)<=val(cod_cli).and.val(cod_cli)<=val(xhcli) 7T&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"%CX CX %z%7IT8.and.val(xdage)<=val(agente).and.val(agente)<=val(xhage) v5T$.and.xdage<=agente.and.agente<=xhage %7T.and.iif(suc#0.and.!empty(sucursal.vendedor),betw(val(sucursal.vendedor),val(xdage),val(xhage)),betw(val(clientes.vendedor),val(xdage),val(xhage))) Tv.and.iif(suc#0.and.!empty(sucursal.vendedor),betw(sucursal.vendedor,xdage,xhage), betw(clientes.vendedor,xdage,xhage))F% d% .G-(G-(CZset filter to &filtro1 GI%%*& CCgZ(\tmp\  && (\tmp\  K%-& CCgZ(\tmp\  G)& (\tmp\ GI G-(^TQcod_cli#'0 ' .and. between(fecha, xdfec, xhfec).and. (causa='R'.or.causa='A')% 8T'.and. substr(cuentas.atributo,71,1)='S'"%CX CX %KT:.and.val(xdcli)<=val(cod_cli).and.val(cod_cli)<=val(xhcli) 7T&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"%CX CX w%%_IT8.and.val(xdage)<=val(agente).and.val(agente)<=val(xhage) 5T$.and.xdage<=agente.and.agente<=xhage s%_TN.and.val(xdage)<=val(clientes.cobrador).and.val(clientes.cobrador)<=val(xhage) oKT:.and.xdage<=clientes.cobrador.and.clientes.cobrador<=xhageFF!G-(%  set filter to &filtro2 GI% %a %- *& CCgZCCgZ(\tmp\  ] && CCgZ(\tmp\   % && CCgZ(\tmp\   "& (\tmp\   G-(%o %8 -& CC"gZCCgZ(\tmp\  k )& CC"gZ(\tmp\   % )& "CCgZ(\tmp\   %& "(\tmp\ GI G-(h1\tmp\ #C$CC%C &D'NC(N)N*N+N ,CN-N.CQ\tmp\  % FG-(G-(CZGGF % ECCgZ  EGFG #)+C+  T/%V F0G((codigo E1FG((codageIEC 2CCsucursal+ CX 66F >#>.>$C0  $26>>%CC XCCVA R>++>&3(>'C45676M>C 2CCsucursal+ CX 66&T809C0, >(Ccd8 kC::YC ;HCCsucursal+ < <C< <=66666 >):>*/C(C45676d T>,FC>-C8d6%cd>.0>FH T?FG-(% DF F!G-(G-(T@ TAaGGF % ECCgZ  EGFG +C+ F %@!B%A CC 3 TA- TDT@!B$TE!!%!CZFG((codageEC !"6%!"C!clientescodcliF >#!.>$C!0  $!26>R!>%C!B 9999,999,999_>&!&!>C !"6 >(K>)CFF/C !;CG GH666>,RCTDD!IF!H%A @CC?oborrarXagente N Q$QJ #Q# $Q$ QCC VFC5C dNDC cNCRC666=QK %QL &Q& 'QM (Q( )Q) *Q; -Q- .Q.1\tmp\ Q\tmp\  oborrar2Xagente N Q JQJCC ( ;6Q(CC ) ;6Q)C ;QMCOC XQOCXQPCQQQ 1\tmp\ Q\tmp\  >PCQRSBUUXDEMOCUENTASCUENTACLIENTESCODCLISUCURSALIDAGENTECODAGEBORRARNEWFILEBORRAR1BORRAR2BORRAR3BORRAR4FILTRO1XDCLIXHCLIP_CLINUMXDAGEXHAGE P_AGE_TIPOP_AGENUMCCVENTXDTIPCOD_CLISUCFAC_VENCAUSAP_LOCALVENDEDORFILTRO2XDTESVEN_OPERCOBRADORCODIGONOMBRECOMPROBFECHAMONTO1COMIVCOMICMONTO2PEDIDOTIPOTOMADO COMENTARIOSIGNOMOTIVOSMOTIVODES_CLIEFEC_VENXDIVATOT_VENDES_COMDEUDAXAFECTA_COMISION COMISIONESXDCOVCOMISIONCOMI_VENCOMIXVENDESCRACCVENRECIINICIALRECIBO CALC_COMIM1XIDRECXDCOCCOMI_COBCOMIXCOBCAJ_PRONOMAGECPBTNUMEROIMPORTECOD_AGECUIT CATEGORIACODINSC OLOCALIZACIONIVA_CATEGORIA_CLIENTES_TEXTOALLF > T T TFG(("~  C Z  T a/%  C ZCZ%VcdFG(G((ccvfacE% cdFG((codigo E&T C % QTCC, 6C cNCND6 X C4TC 6 %LB TFTCZ<<occclie   C Z!)% 6TCC, 6AS X CC  8TCC, 6AS SIN COMENTARIO T" T#:$ co_funciones"#CC,g&%"%C'( T T - % T T)d   >&CAsiento no encontrado !!!* T T - 1C$Comprobante imputado desconocido !!!* T T - /% T T)d  DTCC, 6PAGO ADELANTADO O SIN APLICAR%+ P TT,% T,F>-C.d T,>/CC dT6 >0BU1XDEMOBORRARMONTO1M1 XCOMENTARIOXACC XACC_TOTALCCCLIECOD_CLICOMPROBCAUSACUOTAXIDRECXAFECTA_COMISIONREFCAUCUOCCVENTCCVFACMOTIVOSCODIGOMOTIVO COMISIONESTIPODESCRXCOEFDEUDATOT_VENDES_COMXIDARR_CCCTOPCOMENTARFECHAXERRXERRMSGBUSCAR_ASIENTO CO_FUNCIONESFECREFCONCEPTOTIPO2C_IVAMENSAJEXDIVAIMPORTEMONTO2COMICTOMADO COMENTARIO ges CQcuentascuentaQsucursalidQccventccvfacQmotivoscodigoFGQven_operG G((chequeFQccclieporfacpFQclientescodcliFQagentecodageBUGESABRIR_TABLAS_FIJASCUENTASCUENTASUCURSALIDCCVENTCCVFACMOTIVOSCODIGOVEN_OPERCHEQUECCCLIEPORFACPCLIENTESCODCLIAGENTECODAGE=41QEXPORTACIONES_CRYSTAL Imp_exp.vcxMTCexportaciones_crystal Imp_exp.vcxve_te_rpt_comisionesT\tmpTT  %TTTTT  C BU XTABLAXDFECXHFECXDAGEXHAGEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIP EXP_TABLAprocesar calc_comiX open_files$$exportar_comisiones_samson_cobranzas&RrArArrAqA2q2qBs!ArArraaraarAqAqAA3qrrrr!qAA!QAA qAAAraAbaAAAaBA!qAA!QAAAArrbaAa!AAAQAABbB0!rabaAaaRAqArrQbE ArAABrarrbaAaaqaAAr!ArQAAqAAAB bC3qrqa!bqa1qcABBqrr!aA2sAAbBBCABAAABrB2aaqB2t"AB1? o/{0/'<><=k=?%3DXUZG+(listados dey_func2 CC Filtrando...$ve_sql_presupuestosTCC]RTCC]RT e.numero#0&%C  C3 $ 4T# and between(e.fecha, xdfec, xhfec)%C  \0T.and.betw(e.numero,xdped,xhped)>T- and e.cod_cli#"0 " and !empty(e.cod_cli)% $T and e.sucfac=xdsuc"%CX CX %J@T/.and.betw(val(e.cod_cli),val(xdcli),val(xhcli)) 1T .and.betw(e.cod_cli,xdcli,xhcli)#%C C @%AT0.and.betw(val(e.vendedor),val(xdage),val(xhage)) <2T!.and.betw(e.vendedor,xdage,xhage)% 5T$.and. betw(bienes.linea,xdlin,xhlin)% 5T$.and. betw(bienes.grupo,xdgru,xhgru)%.)T.and. bienes.marca=xdmarHC -T.and. empty(clientes.fecult) .T.and. !empty(clientes.fecult)H 3T" and !e.cerrado and e.venc>=date() d2T! and !e.cerrado and e.vencT-.and.betw(val(cod_cli),val(xdcli),val(xhcli)) /T.and.betw(cod_cli,xdcli,xhcli)CConsultaCConsultando...%CborrarFQ%Cq12FQ%CqSFQselect distinct presup, presupitm, recepcion as confirmado from tventas where &filtro_ventas union all select presup, presupitm, recepcion as confirmado from ventas where &filtro_ventas into cursor q1 4oq1 !C"Q" !qselect e.* , padr(agente.nombre,40) as nomage , padr(condcobr.descr,40) as plandescr , padr(iif(e.cod_cli=space(6), "ANULADO", e.des_clie),40) as nombre , iif(e.moneda>1, iif(e.cambio#0,e.importe/e.cambio,0), e.importe) as importe_mo , .f. as enc , d.cod_ins, d.atr, d.bul, d.cantidad, d.precio, d.dto, d.total, left(d.desc_ins,150) as desc_ins, left(d.comentario,150) as comentario,d.moneda, d.usado, d.itm , nvl(q.confirmado,00000000.00) as confirmado , nvl(q.confirmado*d.precio*(1-d.dto/100)*iif(d.moneda=0,1,d.cambio),00000000.00) as conftotal , space(150) as descr , bienes.linea as linea , bienes.grupo as grupo , bienes.marca as marca , space(40) as dlinea , space(40) as dgrupo , space(40) as dmarca , 000000000000.00 as conftot2 , clientes.fecult as fecult , space(140) as dusr , nvl(sucursal.nombre,space(40)) as sucursal , mm_moneda(e.moneda+1,2) as montxt , iif(e.estado=0, padr("No tiene",30),iif(e.estado=1, padr("Parcial",30),padr("Total",30))) as estadotxt from epresup e left outer join agente on e.vendedor=agente.cod_age left outer join clientes on e.cod_cli=clientes.cod_cli left outer join sucursal on e.cod_cli+str(e.suc)=sucursal.cod_cli+str(sucursal.sucursal) left outer join condcobr on e.plan=condcobr.plan , dpresup d left outer join q on d.numero=q.presup and d.itm=q.presupitm left outer join bienes on d.cod_ins=bienes.cod_ins where e.numero=d.numero and &filtro order by e.numero, d.itm into table (p_local+"\tmp\"+borrar) Q#\tmp\& C$ZC%Z&%Cusuarios zQ' \usuariosF(G((codigoFG-(*(>+(,FT. T/ ~c%$.%.S T0CO #1'>2/C343 6 #0 T.$ >5a T/ T1CO T6789:6FC;lineascodigoC<gruposcodigoC=marcascodigoF >,6>>?,>@A,>BC,T//D%. T0CO #1'>2/C343 6FH E+& C$ Z(#\tmp\.idx ES/& FC$ Z(#\tmp\.idx E/& GC$ Z(#\tmp\.idx%H((#\tmp\ve_rpt_presupuestos .(#\tmp\ve_rpt_presupuestos5%Cborrar.FQ%CqOFQ%Cq1qFQ #\tmp\.dbf #\tmp\.idx #\tmp\.cdxBUILISTADOS DEY_FUNC2 ESTADO_INI ESTADO_INC OPEN_FILESVE_SQL_PRESUPUESTOSBORRARERRORESFILTROXDFECXHFECXDPEDXHPEDXDSUCXDCLIXHCLIP_CLINUM P_AGE_TIPOXDAGEXHAGEP_AGENUMXDLINXHLINXDGRUXHGRUXDMARXTIPO_DE_CLIENTESXDTIP FILTRO_VENTASSYS_MQ1QPRESUP PRESUPITM CONFIRMADOP_LOCALNUMEROITMIDP_SYSTEMUSUARIOSCODIGOUSRDUSRDESCRALLXOLDXACCXREGXRECCCONFTOT2BASEIMPORTEENCXDESCR ART_DESCRCOD_INSBULATRLINEAGRUPOMARCADLINEALINEASDGRUPOGRUPOSDMARCAMARCAS CONFTOTALXDSEPNOMBRENOMAGEXDDETwCclientesCagenteCsucursalClineasCgruposCbienesCbultosCatributoCbultosCstockCmarcas%lCepresupCdpresupCtventasCventasBUXTIPOODEYFUNC CHK_OPENED open_files`BsQrQrbAAbA2AA"AA2!AAQAQA2A11A121"11AVbqAbA2!A"AARuqAA2qAA"qAA BkbAqrr1BrBBqrrBBrBs111AArqAA"qAA2qAAC4qaaaaaaQa2qqqaAB1+%,gR3ZU+4 G+(Dey_FuncT C T C TC FC F#)~FG((CodigoE%C40TCC C Cr TMP_Proto !"#$%&a C] #')%C TMP_ProtoN%in_protocolos_crear() OF'QF*Q .* .*B-' ) C, T- T.T/F'#) ~ T0 T1 T2 T3& T4# T56 T7$ T89 T:; T<=%"CX[ T-  T>? T@ H%C/C,C/CCCC   T/ T. TABG(*C'% #*)(in_protocolos_modifica()FEG((codpro E F'>)"-?> @/.BA#465$798;:=<G HEI' F' ~ ^JJFKTJLCO _JJF'>LJLF* TM~C'% ^JNTN%C]FO>LJL _JNTMMPM(F*>CJ%=o TMP_ProtoTMP_Proto_DETA '%*CǼ1QQ)& CLZCCz6R CSF'QF*QFQQ .* .*.*UTXMOTIVOXFECHA XARTICULOXABMXTIPOXUSRXNEWTRFXOCXREMITOXPROVEEDDEY_FUNC XTMP_PROTONEWFILE_LOCAL_TMPXTMP_PROTO_DETAXTMP_PROTO_REPOIN_PRO_CREAR_TABLASTEMPORALENTRAPROT_ESPCODIGOBULATRXDESCRDESCRDATRDBULSELBIE_CODBIE_BULBIE_ATRMOV_FECMOV_REMMOV_CANTMOV_NUMMOV_PROANA_HIGANA_CONDIDUBIE_DES TMP_PROTOIN_PROTOCOLOS_CREARXRESULTATMP_PROTO_DETAFORIN_PRO_CREAR_DETALLEXPROPRO XPROREMITO XPROFECHAXPROBIEXPROBULXPROATRXPRODESXANAHIGXANAANAANA_ANAXANACONDXANANOCANA_NOCXANAAPRANA_APRXANAAPRFANA_APRFXPROLOTEMOV_LOTEXPROCANTXPROPREMOV_PREANA_IDUIN_PROTOCOLOS_MODIFICAPROVEEDOCODPROPRO_CODPRO_DESNOMBREXOBJPROT_ANAANA_NUMXNCDXOBJ2PROT_DETNITTMP_PROTO_REPOBORRARIN_PRO_IMPRIME1 4%C TMP_Proto0FQFHh1LCCCCN C C C C TCCN N NCNNCDC Q%CTMP_Proto_detaFQFXh1C-CCC C QU XTMP_PROTOXTMP_PROTO_DETA TMP_PROTOSELBIE_CODBIE_BULBIE_ATRBIE_DESMOV_CANTPRO_CODPRO_DESMOV_PROMOV_LOTEMOV_FECMOV_REMMOV_PREMOV_NUMANA_NUMANA_HIGANA_ANAANA_CONDANA_NOCANA_APRANA_APRFIDUTMP_PROTO_DETADESCRRESULTATAANA_IDUG+(Dey_FuncTCo TMP_ProtoQprot_espQ      QC]Q1F & UDEY_FUNCXPRODETANEWFILE_LOCAL_TMPTPIDUANA_IDUPEDESCRTA TMP_PROTOPROT_ESPCOD_INSBIE_CODBULBIE_BULATRBIE_ATRTMP_PROTO_DETABORRAR#%CTMP_Proto_RepoN'BT protocolo T T T TT.t. TJlistados.frxaaaaaU XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVO XFILTRODATOS XCANT_FORMIMPRIMIR_FORMULARIOLISTADOS=4G+(Dey_FuncCProt_anaCProt_detCProt_espFG((ana_num E%C4 =C0El nmero de analisis especificado no existe !!!B- ^JTCT CT CC F  _JF FG((ANA_NUM E)+Cprot_det+ F ^JF  _JHF #) T T T T T T T T T T!" T#$ T%& T'( T)* T+, T-.F #)(in_protocolos_modifica(0%0bF >10$#&%('*),+.- "!F #) ^JFG((ana_num E _JF T3#) ~!F ^J4T45C]F> _J4T3363(^F >753%CDesea imprimir el protocolo?81o TMP_ProtoTMP_Proto_DETA aǼ1 Q 9 C:F9QF QF Q.* .* .*U; XPROTO_NUMDEY_FUNC CHK_OPENEDPROT_ANAANA_NUMMENSAJEXOBJ XTMP_PROTONEWFILE_LOCAL_TMPXTMP_PROTO_DETAXTMP_PROTO_REPOIN_PRO_CREAR_TABLAS TMP_PROTOTMP_PROTO_DETAPROT_DETXPROBIEBIE_CODXPROBULBIE_BULXPROATRBIE_ATRXPRODESBIE_DESXANAHIGANA_HIGXANAANAANA_ANAXANACONDANA_CONDXANANOCANA_NOCXANAAPRANA_APRXANAAPRFANA_APRFXPROPROMOV_PROXPROLOTEMOV_LOTEXPROCANTMOV_CANT XPROFECHAMOV_FEC XPROREMITOMOV_REMXPROPREMOV_PREIN_PROTOCOLOS_MODIFICAXRESULTASELFORXNCDXOBJ2IDUNITANA_IDU MENSAJE_SINOTMP_PROTO_REPOIN_PRO_IMPRIMEIn_Pro_Agregar0In_pro_Crear_Tablasc In_Pro_Crear_Detalle In_Pro_Imprime,In_Pro_modifica 1!!qQAq5 AARsAqAqAq1qQRAAcrr BrrQrrq2qQAqQAArAqAqA4qAAqAA3!r41AAb3q!RQQrqA"sQsqqrQAtQrQr]rQr"rQq2rQAqQAA2qABrAqA1$#o@27P$%Up{VZ G(9 $%Cbienes RQbienes%Cbieaux QbieauxG+(listadosG~(clases in_etiquetaBU ACTIVEFORM DATASESSIONIDBIENESBIEAUXLISTADOSCLASES IN_ETIQUETABUBU ze_open_files7 ze_imprimirFA!A!A"2B3A2A1.6OU% n ͑dFZ CG+( pr_maquinasG+( pr_funciones5TC T TMP_GenericosTC TTMPFFTC T TMP_REEGE  T C T Cioplan_usoCXQCXQCXQQCXQ-cUsos& oplan_usoXplan_mad  Xplan_maq ! Xccformul QQQC cBorrar2#ocBorrar2ǿcborrarF# ~%C FQ%C FQ%C FQC$.C#####%C&;C#####'F"~#F( ~T)" "BrcUsos"(*(+(,)#ocUsosQ-Q.Q/Q0Q1Q2Q3Q4Q5Q6CxXQ7-cFinal& _rcFinalocUsosCCColA 9F8G((codigo:(T;ColCC:ZT< :C;<<9$CColPC  $9F=G((CODDEPF8$>86C888?F8/(C Arpt_in_plan_necesidadesQF"QF#Q%Cu FQ%C FQ%C FQUB OPEN_FILES PR_MAQUINAS PR_FUNCIONES XGEN_PATH XGEN_ALIAS XFORM_PATH XFORM_ALIAS XREE_PATH XREE_ALIASODEYFUNCNEWFILE_LOCAL_TMPXDFEC1XHFEC1XDFECXHFECPLAN_USOINICIOCOD_INSBULATRCANTIDADCOMBCUSOSCODIGOPLAN_MADPLAN CAN_TOTALHECHA CAN_HECHAFORMULACCFORMULCANTSTDIDUPLAN_MAQCBORRAR2CBORRARPR_GEN_CREATE_TABLEPR_GEN_FILL_GENPR_GEN_OBTENERPR_GEN_FORMULA_REEMPLAZADATMPFFXCANTCODCOMPBULCOMPATRCOMPCOLACOL1COL2COL3COL4COL5COL6COL7COLPSTOCKDESCRCFINALANALIZAR_COLUMNANITXCOLXTFECSTKXDEPCODDEP GET_STOCKALLGET_PATHA#ECPROD. BUXCOD_INSXBULXATRSTKXDEPCANTIDADXocUsosCQCCcTMPG~F E   %replace &xCol WITH cTMPG.Cantidad U XCOLXFEC1XFEC2COD_INSBULATRCANTIDADCUSOSINICIOCTMPGCFINAL|'TCDeyFunc Dey_Func2.prgCBienesCbultosCAtributoCcompplanCcompprodCplan_nuvCplan_maqCplan_madCplan_usoCccformulCformulasCform_genCplan_genCstkxdepUOTDF CHK_OPENED GET_Stock] Analizar_Columna Open_Files Ra!aa 2rAAAAAA"rqq!AAAaqQaAAsqArAsAqAAAAAAA112AqQA3qqaaq2Q zU ]%dfkWgtY[K T%CL/ T-T#TInicializando datosTTaG+(listadosT PT S%Citm_desc Qitm_desc%Cdesp Qdesp%Ccliaux 8Qcliaux%Ccuentas hQcuentas%Censamble Qensamble%Clineas Qlineas%Cgrupos Qgrupos%Cmarcas $QmarcasFG((codcliF G((idCremitos%FG((remito MoventasQr0  tmp_pendientes& F G((codigoF"G-(%IG-( t G((remG-(r%$SG-(C%ZG-(& H '=T(0xdfec<=fec_ven .and. fec_ven<=xhfec and fcdere=0 'YT(Lxdfec<=fec_ven .and. fec_ven<=xhfec and val(right(rem_ven,8))=0 and fcdere=0 2LT(?xdfec<=fec_ven .and. fec_ven<=xhfec and val(right(rem_ven,8))#0CT)6xdfec<=fecha.and. fecha<=xhfec and val(right(ref,8))#0T* .t. %+7T((&.and. causa="r" .and. cod_cli="0 "T)) .and. .f.,%CC,RgCC-Rg (7T((&.and.xdrem<=rem_ven.and.rem_ven<=xhrem/T)).and.xdrem<=ref.and.ref<=xhrem"%.CX /CX 7T((&.and.xdcli<=cod_cli.and.cod_cli<=xhcli;T))*.and.xdcli<=t.cod_cli.and.t.cod_cli<=xhcli%C01 %2 e<T((+ .and. xdcen<=cod_cen .and. cod_cen<=xhcen ?T))..and. xdcen<=t.cod_cen .and. t.cod_cen<=xhcen  =T**,.and. xdcen<=v.centro .and. v.centro<=xhcen %%T(( and clientes.docrecT)) and .f.H  3) 3Q %T((n.and. (eof("remxfac") .or. empty(remxfac.factura)).and. causa="r" .and. cod_cli#"0 " and !no_fc and aux1=0 3 [T((J.and. !eof("tmp_pendientes") and causa="r" and cod_cli#"0 " and !no_fcT)) .and. .f. 3 T(( and no_fc 3 T(( and aux1=1T)) .and. .f. 3 &T(( and no_fc and aux1=0 3 % iT((X.and. (eof("remxfac") .or. empty(remxfac.factura)).and. causa="r" .and. cod_cli#"0 "  PT((? and cod_cli#"0 " and !eof("tmp_pendientes") and causa="r" T)) .and. .f. 3 zT((i and cod_cli#"0 " and ((causa="r" and (!no_fc or (no_fc and !eof("tmp_pendientes"))) ) or causa#"r")3T**" and !(q.no_fc and v.causa="r") T)) .and. .f.%4  &T(( and cod_cli#"0 "T5ayset filt to &filtro %$S$ %6 Hindex on cod_cli+str(suc)+rem_ven to (p_local+'\borrar') for &filtro #)  Vindex on cod_cli+str(suc)+dtos(fec_ven)+rem_ven to (p_local+'\borrar') for &filtro #)  %6V GF E,GF  Eindex on dtos(fec_ven)+rem_ven to (p_local+'\borrar') for &filtro #) T7F"T8C9m(:\tmp\8;<=%>?@ABCDEFGHIJKF(i1:\tmp\8LC<(i1:\tmp\8MC<(i1:\tmp\8NC(i1:\tmp\8ON (i1:\tmp\8PC!i1:\tmp\8QD.i1:\tmp\8RN(i1:\tmp\8SC!i1:\tmp\8TL(i1:\tmp\8UN!i1:\tmp\8VD!i1:\tmp\8WD(i1:\tmp\8XN (i1:\tmp\8YC(i1:\tmp\8ZN(i1:\tmp\8[N%\C!i1:\tmp\8]T!i1:\tmp\8^T!i1:\tmp\8_T(i1:\tmp\8`C(i1:\tmp\8aN (i1:\tmp\8bC(i1:\tmp\8cC.i1:\tmp\8dN .i1:\tmp\8eN .i1:\tmp\8fN (i1:\tmp\8gN(i1:\tmp\8hC (i1:\tmp\8iN (i1:\tmp\8jC (i1:\tmp\8kN (i1:\tmp\8lC.i1:\tmp\8mN.i1:\tmp\8nN(i1:\tmp\8oC(i1:\tmp\8pC (i1:\tmp\8qC (i1:\tmp\8rC((i1:\tmp\8&C(i1:\tmp\8sC((i1:\tmp\8tC((i1:\tmp\8uM((i1:\tmp\8vC(i1:\tmp\8wC(i1:\tmp\8xC(i1:\tmp\8yC(i1:\tmp\8zCQ:\tmp\88F G((comprob TAnalizando datosTCscanF"+C+ 9%6,C X -C X  - s!^J|%0 T|=ANULADO )T|=C}S ~=6T">TTNOH)` VaTFC ET"; dTND ET"; cTNC ET"; 2`%&%Cremxfac+ C TFC TV<&occvent;E% TCF" T C X%Cremxfac+ T> \T"<4oventas;E V % TCTFC CTCV TTRE TC X %Ctmp_pendientes+ TNO Q%"?4TNO MTSIF"FG((codigo E"O0%C  F8_J|>NL~MC$S ~.6O"OP>QRABU|oyC"?NOSI6$>ZCCQ QC$6";%"V >G< T-F G((remito E8%C4  Ta `F G((causaE8EV%C4R Ta \%8>8W X YC |:>8[CCCC8Q 8QC$6 'FD >8YC|>8[F E8r%C4 YE8E8%C4&>8VC uC uF8>8T"@#>8SC"V6>s s>8vC80  (1)GC8? (2)3C8T (3)C8SM (M) 6666 C"Hagentecodage>8tH~%\%C4F8>] ]>^ ^>_ _>` `>a a>b b>c c>d d>e e>f f>g g>h h>i i>j j>k k>l lF"HT77< T-%C01  CF8>CCRgGG(G*G on escape &onesc TExportando datosTF8>M.M%2 g!>wCC Er6xCCCRgRE MCVFC/CxNCCdNDXX666 E6oborrarǼborrar1%2H%CBultos !Qbultos%Cidx04 !Qidx04%Catributo "Qatributo%Cq;"QHP"B '20select q.*, v.cod_ins ,v.atr, v.bul, iif(!empty(i.descr) and xdescr_ori, padr(nvl(i.descr,""),254), padr(iif(empty(v.cod_ins), padr(v.desc_ins,200), alltrim(nvl(b.descr, space(200)))+iif(b.atributos="S", " "+alltrim(nvl(atributo.descr,space(200))), "")+iif(b.bultos="S", " "+alltrim(nvl(bultos.descr,space(200))), "")),254)) as descr , round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic),2) as importe , IIF((q.tot_ven-q.des_com)=0,000000000000000.00, round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic) * (q.deuda/(q.tot_ven-q.des_com)) ,2)) as impfull , v.recepcion, v.cos_lifo, v.des_ins, v.moneda as monitm, mm_moneda(v.moneda+1,2) as montxt, v.coefic as cambio, c.desc1, c.desc2, 00000000.000000 as cambio_uss, 00000000000000.00 as importe_us , nvl(b.linea, 00000000) as linea, v.itm as itm, .f. as enca, nvl(i.ensamble,0000) as ensamble, nvl(e.descr, space(250)) as densamble, nvl(b.marca, 00000000) as marca , nvl(b.grupo, 00000000) as grupo , v.fac_ven as fac_ven2 , v.fec_ven as fec_ven2 , nvl(b.masterlin, 00000000) as ml , 00000000000000.00 as saldo , 00000000000000.00 as saldo_us , iif(!empty(v.centro), v.centro, q.cod_cen) as cod_cend , nvl(cu.abrev, space(9)) as xxabrev , v.cod_cue as xxcuenta , nvl(cu.descr,space(100)) as xxdcuenta from borrar1 q, ventas v left outer join itm_desc i on v.fac_ven+v.causa+str(v.itm,4)=i.comprob+i.causa+str(i.item,4) left outer join ensamble e on i.comprob+i.causa+str(nvl(i.ensamble,0000))=e.comprob+e.causa+str(e.itm) left outer join bienes b on v.cod_ins=b.cod_ins left outer join atributo on v.cod_ins+v.atr=atributo.cod_ins+atributo.clave left outer join bultos on v.cod_ins+v.bul=bultos.cod_ins+bultos.clave left outer join cuentas cu on v.cod_cue=cu.cod_cue , ccvent c where q.rem_ven=v.rem_ven and q.rem_ven=c.rem_ven and !q.tipo_rem="M" and &filtro_detalle and val(right(q.rem_ven,8))#0 AND v.recepcion#0 union all select q.*, v.cod_ins ,v.atr, v.bul, iif(!empty(i.descr) and xdescr_ori, padr(nvl(i.descr,""),254), padr(iif(empty(v.cod_ins), padr(v.desc_ins,200), alltrim(nvl(b.descr, space(200)))+iif(b.atributos="S", " "+alltrim(nvl(atributo.descr,space(200))), "")+iif(b.bultos="S", " "+alltrim(nvl(bultos.descr,space(200))), "")),254)) as descr , round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic),2) as importe , IIF((q.tot_ven-q.des_com)=0,000000000000000.00, round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic) * (q.deuda/(q.tot_ven-q.des_com)) ,2)) as impfull , v.recepcion, v.cos_lifo, v.des_ins, v.moneda as monitm, mm_moneda(v.moneda+1,2) as montxt, v.coefic as cambio, c.desc1, c.desc2, 00000000.000000 as cambio_uss, 00000000000000.00 as importe_us , nvl(b.linea, 00000000) as linea, v.itm as itm, .f. as enca, nvl(i.ensamble,0000) as ensamble, nvl(e.descr, space(250)) as densamble, nvl(b.marca, 00000000) as marca , nvl(b.grupo, 00000000) as grupo , v.fac_ven as fac_ven2 , v.fec_ven as fec_ven2 , nvl(b.masterlin, 00000000) as ml , 00000000000000.00 as saldo , 00000000000000.00 as saldo_us , iif(!empty(v.centro), v.centro, q.cod_cen) as cod_cend , nvl(cu.abrev, space(9)) as xxabrev , v.cod_cue as xxcuenta , nvl(cu.descr,space(100)) as xxdcuenta from borrar1 q, ventas v left outer join itm_desc i on v.fac_ven+v.causa+str(v.itm,4)=i.comprob+i.causa+str(i.item,4) left outer join ensamble e on i.comprob+i.causa+str(nvl(i.ensamble,0000))=e.comprob+e.causa+str(e.itm) left outer join bienes b on v.cod_ins=b.cod_ins left outer join atributo on v.cod_ins+v.atr=atributo.cod_ins+atributo.clave left outer join bultos on v.cod_ins+v.bul=bultos.cod_ins+bultos.clave left outer join cuentas cu on v.cod_cue=cu.cod_cue , ccvent c where q.fac_ven+q.causa=v.fac_ven+v.causa and q.fac_ven+q.causa=c.fac_ven+c.causa and !q.tipo_rem="M" and &filtro_detalle and val(right(q.rem_ven,8))=0 AND v.recepcion#0 into cursor q  ':-select q.*, v.cod_ins ,v.atr, v.bul, iif(!empty(i.descr) and xdescr_ori, padr(nvl(i.descr,""),254), padr(iif(empty(v.cod_ins), padr(v.desc_ins,200), alltrim(nvl(b.descr, space(200)))+iif(b.atributos="S", " "+alltrim(nvl(atributo.descr,space(200))), "")+iif(b.bultos="S", " "+alltrim(nvl(bultos.descr,space(200))), "")),254)) as descr , round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic),2) as importe , IIF((q.tot_ven-q.des_com)=0,000000000000000.00, round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic) * (q.deuda/(q.tot_ven-q.des_com)) ,2)) as impfull , v.recepcion, v.cos_lifo, v.des_ins, v.moneda as monitm, mm_moneda(v.moneda+1,2) as montxt, v.coefic as cambio, c.desc1, c.desc2, 00000000.000000 as cambio_uss, 00000000000000.00 as importe_us , nvl(b.linea, 00000000) as linea, v.itm as itm, .f. as enca, nvl(i.ensamble,0000) as ensamble, nvl(e.descr, space(250)) as densamble, nvl(b.marca, 00000000) as marca , nvl(b.grupo, 00000000) as grupo , v.fac_ven as fac_ven2 , v.fec_ven as fec_ven2 , nvl(b.masterlin, 00000000) as ml , 00000000000000.00 as saldo , 00000000000000.00 as saldo_us , iif(!empty(v.centro), v.centro, q.cod_cen) as cod_cend , nvl(cu.abrev, space(9)) as xxabrev , v.cod_cue as xxcuenta , nvl(cu.descr,space(100)) as xxdcuenta from borrar1 q, ventas v left outer join itm_desc i on v.fac_ven+v.causa+str(v.itm,4)=i.comprob+i.causa+str(i.item,4) left outer join ensamble e on i.comprob+i.causa+str(nvl(i.ensamble,0000))=e.comprob+e.causa+str(e.itm) left outer join bienes b on v.cod_ins=b.cod_ins left outer join atributo on v.cod_ins+v.atr=atributo.cod_ins+atributo.clave left outer join bultos on v.cod_ins+v.bul=bultos.cod_ins+bultos.clave left outer join cuentas cu on v.cod_cue=cu.cod_cue , ccvent c where q.fac_ven+q.causa=v.fac_ven+v.causa and q.fac_ven+q.causa=c.fac_ven+c.causa and !q.tipo_rem="M" and &filtro_detalle and val(right(q.rem_ven,8))=0 AND v.recepcion#0 into cursor q 2Bselect q.*, v.cod_ins ,v.atr, v.bul, iif(!empty(i.descr) and xdescr_ori, padr(nvl(i.descr,""),254), padr(iif(empty(v.cod_ins), padr(v.desc_ins,200), alltrim(nvl(b.descr, space(200)))+iif(b.atributos="S", " "+alltrim(nvl(atributo.descr,space(200))), "")+iif(b.bultos="S", " "+alltrim(nvl(bultos.descr,space(200))), "")),254)) as descr , round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic),2) as importe , IIF((q.tot_ven-q.des_com)=0,000000000000000.00, round(v.recepcion*v.cos_lifo*(1-v.des_ins/100)*(1-c.desc1/100)*(1-c.desc2/100)*iif(v.moneda=0,1,v.coefic) * (q.deuda/(q.tot_ven-q.des_com)) ,2)) as impfull , v.recepcion, v.cos_lifo, v.des_ins, v.moneda as monitm, mm_moneda(v.moneda+1,2) as montxt, v.coefic as cambio, c.desc1, c.desc2, 00000000.000000 as cambio_uss, 00000000000000.00 as importe_us , nvl(b.linea, 00000000) as linea, v.itm as itm, .f. as enca, nvl(i.ensamble,0000) as ensamble, nvl(e.descr, space(250)) as densamble, nvl(b.marca, 00000000) as marca , nvl(b.grupo, 00000000) as grupo , v.fac_ven as fac_ven2 , v.fec_ven as fec_ven2 , nvl(b.masterlin, 00000000) as ml , 00000000000000.00 as saldo , 00000000000000.00 as saldo_us , iif(!empty(v.centro), v.centro, q.cod_cen) as cod_cend , nvl(cu.abrev, space(9)) as xxabrev , v.cod_cue as xxcuenta , nvl(cu.descr,space(100)) as xxdcuenta from borrar1 q, ventas v left outer join itm_desc i on v.fac_ven+v.causa+str(v.itm,4)=i.comprob+i.causa+str(i.item,4) left outer join ensamble e on i.comprob+i.causa+str(nvl(i.ensamble,0000))=e.comprob+e.causa+str(e.itm) left outer join bienes b on v.cod_ins=b.cod_ins left outer join atributo on v.cod_ins+v.atr=atributo.cod_ins+atributo.clave left outer join bultos on v.cod_ins+v.bul=bultos.cod_ins+bultos.clave left outer join cuentas cu on v.cod_cue=cu.cod_cue , ccvent c where q.rem_ven=v.rem_ven and q.rem_ven=c.rem_ven and !q.tipo_rem="M" and &filtro_detalle AND v.recepcion#0 into cursor q oqXcostos &Xlineas !Xgrupos !Xmarcas !C C(XQCC(XQCC(XQCC(XQ1:\tmp\tmp_borrar2">qpr%CqCQ%C01 D C RFoborrar1QCXQCXQCXQCXQQQQ QQQCXQ?QQQQQQCXQ&Q-QQCXQQQC XQQQQQCXQC(XQC(XQC(XQC(XQ-borrar1:\tmp\tmp_borrar2FQFF#Tefdgjdfgjdfgjdfjg ~|HF%FF >a TFG((idx04 E;%C4 GGF E;GFF>H;GxH CGS>C7Cd d d  T6 CG=>Cd d d T 2xH}>CaCd d d CCNDC idx04.indiceCCCZ6 T6%2I>wCC r6xCCCRgRE MCVFC/CcNCCdNDXX666 6zCoSI SINO6CoSI 6CoSI 6%2J%6I& CZ J& C;CZ `J%6>J&  \J& C;-(:\tmp\rpt_ve_remitos_emitidos%2 SCH oK%CqJQRoborrar1;>LCQCQq3Cqrpt_ve_remitos_emitidos:\tmp%CqkKQFQ%CborrarKF8Q:\tmp\8.*BUXVERSIONP_VE_REPORTE_REMITOS_VERSIONXSOLO_CON_CERTIFICACIONOESTADOMAXTEXTOVALUEVISIBLELISTADOSXDPRNSIONOITM_DESCDESPCLIAUXCUENTASENSAMBLELINEASGRUPOSMARCASCLIENTESCODCLISUCURSALIDSYS_MREMXFACREMITODISTINCTREM_VENCAUSAVENTASCOD_CLITMP_PENDIENTESCOSTOSCODIGOCCVENTREMXDSEPSUCCOD_CENXDALLFILTRO FILTRO_MOVFILTRO_DETALLEXDANUXDREMXHREMXDCLIXHCLIXDCENXHCEN XDETALLADOXDTIPXINCLUYE_ANULADOSOLDSUCXDORDACCBORRARNEWFILEP_LOCALFEC_VENDEUDADES_CLIEPEDIDONO_FCAUX1TOT_VENDES_COMMONEDACOEFICFAC_VENFEC_ENTSALDORAGENTEBULTOS ARM_CAJAS ARM_PALLETCLI_NOMSUC_NOMFAC_CAURFCRFCDESCRFEC_FACBASETIPO_REM NO_FC_TEMPEST_ENTRET_FECDSP_FECDSP_NUMDSP_ESTDEM_REMDEM_DSP XTIPO_REPORTE CAR_ARRIBOCAR_INICAR_FINCHOFER CHOFER_DNIDOM1DOM2CAR_TARA CAR_BRUTOCAR_NETOBOLSONES FLD_CLI1C FLD_CLI1N FLD_CLI2C FLD_CLI2N TRANSPORTESALDO_R SALDO_RUSPENDCUENTAABREVDCUENTA CEN_DESCRDAGENTEOBSREF_TIPOID_CPBTCPBTSE_FCPEND_ITMCOMPROBCOBJTARJETANOMBREXPEDIDOXFEC_FACXPENDXFAC_CAUFACTURAXIDFAC ARR_REM_FACXREMITORUBROFACXDFFACXHFFACXINCLUYE_PENDIENTESDESCRESTADOXDSP_ENCFECHADESPACHOFN_ESTADO_DESPACHORETIROTRFINICIALXCON_REMITOS_DE_INV MOVIMIENTOSFORALLBORRAR1IDX04ATRIBUTOQ CEN_DESCRDDLINEADGRUPODMARCACOD_CENDLINEAGRUPOMARCAXXABREVXXCUENTA XXDCUENTAMOVIMIENTOS_DETALLECOD_INSATRBULIMPORTEIMPFULL RECEPCIONCOS_LIFODES_INSMONITMMONTXTCAMBIODESC1DESC2 CAMBIO_USS IMPORTE_USITMENCA DENSAMBLEFAC_VEN2FEC_VEN2MLSALDOSALDO_US TMP_BORRAR2XIDINDICE1P_EMPFN_XML 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxve_rpt_remitos_emitidosT\tmpTTT T a C BU XTABLAXTIPOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG5 EXP_TABLA1QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxve_rpt_remitos_emitidosT\tmpTT Ta CBU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG6 EXP_TABLA%Cconver *Qconver%Ctmp_movsRFQ'oconverrtmp_movsTselect max(t.ref) as rem_ven , max(t.fecha) as fec_ven , max(iif(!empty(t.cod_cli), t.cod_cli, iif(!empty(t.cod_pro), t.cod_pro, space(6)))) as cod_cli , max(iif(!empty(t.cod_cli), c.nombre, iif(!empty(t.cod_pro), p.nombre, space(40)))) as des_clie , max(iif(!empty(t.cod_cli), "C", iif(!empty(t.cod_pro), "P", space(1)))) as procli , "r" as causa , max(iif(!empty(t.cod_cli), c.nombre, iif(!empty(t.cod_pro), p.nombre, space(40)))) as cli_nom , "M" as tipo_rem , .t. as no_fc , t.transf as pedido , space(6) as cod_cen , space(40) as cen_descr from tmp_movs t left outer join clientes c on t.cod_cli=c.cod_cli left outer join proveedo p on t.cod_pro=p.cod_pro group by t.ref, t.fecha, t.cod_cli, t.cod_pro, t.transf where &filtro_mov into table (p_local+"\tmp\tmp_remitos") F\tmp\tmp_remitosFQFBUCONVERTMP_MOVSCAUBORRARP_LOCAL TMP_REMITOSHoborrar1Qtmp_movsQXbienesQ Xatributo 1Xbultos 1Xlineas (2Xgrupos *2Xmarcas ,2CCS C6CS C6QQ  Q  Q QQCXQ?QQQQQCQQQ-QQCXQCQCQC XQ Q!C"Q#Q$Q%CXQ&C(XQ'C(C(XQ)C*C(XQ+C,C(XQ-34 5M borrar16\tmp\tmp_borrar2F7QF.BU8QVCOD_INSATRBULDESCR ATRIBUTOSATRIBUTOBULTOSIMPORTEENTRASALE RECEPCIONCOS_LIFODES_INSMONITMMONTXTCAMBIODESC1DESC2 CAMBIO_USS IMPORTE_USLINEABCOD_CENITEMITMENCAENSAMBLE DENSAMBLEMARCAGRUPOFAC_VEN2FEC_VEN2 MASTERLINMLSALDOSALDO_USCOD_CEND CEN_DESCRDLINEASDLINEAGRUPOSDGRUPOMARCASDMARCABORRAR1TMP_MOVSBIENESCLAVECODIGOREM_VENREFTIPO_REMP_LOCAL TMP_BORRAR2/  3TRemitos Pendientes al CC*/-TCCiCH$1QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxve_rpt_remitos_emitidosT\tmpTTT  TTT T T C3 $ Ta Ta C((CF - C@(CF - CCCC>=dbfBUXHFECXCARPETAXTABLAXDFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLA FIL_EXCELOFORM XLS_ABRIRXDTIPXDFEC2XHFEC2XDLOG6XDLOG7EXP_TABLA_Y_EXCEL1QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxve_rpt_remitos_emitidosT\tmpTTT Ta C BU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG6 EXP_TABLA H ~%WB SIN DESPACHO zBSIN DESPACHO (?) CH? B SIN DESPACHO B EN DESPACHO B NO SE ENTREGA ?B ENTREGADO pBRETIRA EL CLIENTE AH= BSIN DESPACHO (?) BEN DESPACHO (?) BNO SE ENTREGA (?) =B ENTREGADO nBRETIRO EL CLIENTE BNO SE DESPACHAB???????UXDSPXEST exportar_erRexpportar_todoaT movimientosUmovimientos_detalle Zexportar_cashfreeY_exportar_pendientes1bfn_estado_despachocrA1!AAbA!A1AAA!A!A!ArrB2q0%Ars2QBBaA11A3#qAqA!qAbAAQA122C121a51A32AaArB1QbQA1aaRQAAr3BrtAAqA3AAAAAA4bqRra"AraAArA"b4CBB"AAwBAsrQ CrArqAABr1AcAr17A2qABAsABAtbaaaAr A!ArAAA$A1@2тAQ&#AprArAt5q1qAraaAq111ABBA1AA1AAA"A&2"ABrAsqAAB3"AB3t"AB2!AqAAvPA5rrArA204rArC222""qAB3t"AB311QA21Q1A1a1!A221111!A22qA2}FG dBy#b0#%[%|(w%^Y;[U&%CThis.DirectoriosbL,%CThis.Padre.directoriosbOhT =TC Directoriossys_clases_tablas.prg BUTHIS DIRECTORIOSPADRE? T% 8 CU XNO_CARGARXPADRETHISPADRE CARGAR_DATOS TC CollectionNFG((DESDE TCO ~CTC Ejerciciosys_clases_ejercicios.prg!CC # U XRECXEJETHIS COLECCIONEJERCONDESDEIDADD CREAR_CLAVEBKEY_CCZUXEJEQ  3TCC(A BUOEJEOEXTHIS COLECCION CREAR_CLAVEACTIVONG%CC BUXDIROEJETHIS COLECCIONDIR$C- CUTHISINITPADRE RECARGADOUA ,C(:UXTEXTOEXTHISPADREMENSAJE  T T% TC +%CoEjebL  P TT L% .T ' co_funciones-%H co_funciones! jT %T T(T BUOEXOEJEXRETXMSGXIDTHISACTIVO GET_EJERCICIOLOCALESCO_011 COLECCIONCOUNTMENUIDABRIR_EJERCICIO CO_FUNCIONESLOCALES_GRABAR_EJETUXEJETHISACTIVOPTICUXIDOEJETHISACTIVO COLECCIONACTIVADOID6  T T-' co_funciones-% co_funcionesT C C % C   Ta ! C(/UXIDXERRORXRETOEJEXMSGOEXABRIR_EJERCICIO CO_FUNCIONESLOCALES_GRABAR_EJETHISACTIVOACTIVADOMENSAJEACTIVAR FRM_BARRA_CO GENERAR_MENU UXEMPKT%CoEjebL8B- BUXRETOEJETHISEJERCICIO_ACTIVOPRESENTEF TCOF[-CC C    %C4 TXTDEl rango de fechas es invalido porque se superpone con el ejercicio B--CC%C4l T,TEse ejercicio ya est creado!!!B-  # BaUOEJEXERRXMSGXRNEJERCONDESDEHASTADIR r+`TCC  T-T- |UTHIS COLECCIONCOUNTOEJEREMOVEDESTROYD % T- /T-UTHIS DIRECTORIOSDESTROYPADRE UXID UXID UXID%CThis.KeybLr ETC nTKEY_CCZ BUTHISKEYPADRE CREAR_CLAVEID&%CThis.DirectoriosbL,%CThis.Padre.directoriosbOhT =TC Directoriossys_clases_tablas.prg BUTHIS DIRECTORIOSPADREL(%CThis.Padre.ActivobN /B-BUTHISIDPADREACTIVOGT% @CU XNO_CARGARXPADREXIDTHISPADRE CARGAR_DATOSF TCO1%C CxIDbN  gF-TTTTTT  # U XIDXRNEJERCONIDTHISDIRDESDEHASTADESCRMENUA ,C(:UXTEXTOEXTHISPADREMENSAJE %^ ATC(Z T- s T- BUXRETOEXTHISPRESENTEPADREACTIVARID?%CThis.DirbC,BC BUTHISDIRTC G (p TaT%  q contabilidadjh1 diariog.dbf N N C  C C DCCN C<NCC NN CDCNCLNC N !N "N #N$N%N&N'N(N)C*N +N ,N-NQhh1 diag2.dbf N N C  C C DCCN C<NCC NN CDCNCLNC N !N "N #N$N%N&N'N(N)C*N +N ,N-Nsh1 conc2.dbfN .CA*N +N /N 0Nvh1 concepto.dbfN .CA*N +N /N 0NQ( TaT G(ges B U2XMSGXDIRXERROROEXTHIS DIRECTORIOS DIR_TABLASDIRMESSAGEDEBITOCREDITOCOD_CUEPOR_QUECOMPROBFECHACODIGONOMBREASIENTO COMENTARIOATRIBUTOCOD_CENREMITOCTRLANULADOPROCLIHOYTIPOPASECAUBANDERAUSRARCH SUBCENTROASI_MANUMEROSUBNUMCAMBIOMONEDAMOTIVOMONEXTMONPASESUBDIMPORTAC IMPORTACIOAUX1N PROVINCIACONCEPTOUNTIPO2GESVSBCC diariog.dbf0&CC concepto.dbf0 UTHIS DIRECTORIOS DIR_TABLASDIR BCUTHISVALIDAR_PRESENCIAe 5s" Ejercicios NALT+O1CU XMNU_NAMEOEJESMNU_EJERCICIOSMNU_EJERCICIOS_ADDMENU_EJERCICIOS_POPUPs N{%Cw)Cmnu_ejercicios_addUOEJESMNU_EJERCICIOS_ADDOEJE COLECCIONMENUBAR_EJERCICIO_AGREGARACTIVO T%\T Style 'B' INVERT T/T - C* - C *LDEFINE BAR oEje.ID OF (xMnu_Name) PROMPT xTexto FONT 'Currier' &xEstilo mTON SELECTION BAR C Z OF   FRM_Barra_CO.Ejercicios.Activar(CC Z)&xID %G: (a G: (-U XMNU_NAMEOEJEXACTXIDXESTILOXTEXTOACTIVODIRDESDEHASTAIDdirectorios_Access0INIT Cargar_Datos Crear_ClaveEjercicio_Activo_ACCESS Get_EjerciciosRecargar recargado5Mensaje@ Activo_Access activo_Assing0ActivadofActivar presencia Validar_Activo Validar_Nuevo_Ejerciciod DESTROY> DESTROY  presenciag  Habilitacion~ Activado  KEY_Access directorios_Access\ Activo_AccessDINIT Cargar_Datos4Mensaje~Activar Dir_AccessCrear_DirectorioValidar_PresenciaFPresente_AccessMenu_ejerciciosMenu_ejercicios_POPUPBar_ejercicio_Agregar T- T- T T- T-            U COLECCIONPADREACTIVO DIRECTORIOSEJERCICIO_ACTIVO5 T- T- T TTT T T- T T - T a T a               U PADREACTIVOIDDIRDESDEHASTADESCR DIRECTORIOSMENUKEYPRESENTE HABILITADO EjerciciosCUSTOM" EjercicioCUSTOM#7aaAA2B2q1AA2qQ2A2qqAAA2A22qqAA2aqAaAAq1qAAAA1AAA2q2qqAqA31r1qbqABA2q2qqA2qqqqAQqAAq2A1AA1A2q2q2q3AA2aaAA2qAa2A2qqqqA211111A2qqAA2!AA2A2qAp&Ap&9iBQAA2123SA2q!qAAA2!A!A10<11@3 -R(!*,(P40q=3A4BC;g' K^L r oa  sh0 I |~k } P 46Xig" # C(l5$;$w%%% %&%'(.F(*?#Y%%%z`|h|U2Xo[74G+( co_asientosG+( co_funcionesG+(dey_func%  TCDTC F% T S"% C X C X 1  T T ; co_funcionesC6  "% C X C X mT  999999999 T T5 T T T TCF>G((abrev E T E T G((cuentaT"#\tmp\#)C"borrar$G(C T%AT&NT' asiento#-1"% C X C X )7T''& and betw(diariog.cod_cue,xdcue,xhcue)"%(CX )CX 7T''& and betw(diariog.cod_cen,xdcos,xhcos)%*+ 9T''( and betw(diariog.subcentro,xdsce,xhsce)%, T-%./ N/T-"inlist(xlinea_diario, xdlin,xhlin)%01 AT-CC-  and 6inlist(grupo, xdgru,xhgru) %./ 9\T''K and inlist(iif(diariog.linea#0, diariog.linea, cuentas.linea),xdlin,xhlin)%01 \T''K and inlist(iif(diariog.grupo#0, diariog.grupo, cuenas.grupo), xdgru,xhgru)%23 3T''".and.betw(concepto.un,xduni,xhuni)%45 T''w.and.((xdimp<=diariog.importac.and.diariog.importac<=xhimp) or (xdimp<=concepto.importac.and.concepto.importac<=xhimp))%6;T''* and diariog.arch=[2] and concepto.tipo2#3%7A&T'' and concepto.tipo2#3%8 Hf 9A@T''/.and. (diariog.tipo="A" .or. concepto.tipo2>=1) 9M@T''/.and.!(diariog.tipo="A" .or. concepto.tipo2>=1) 9SI'T''.and. concepto.tipo2#3 CC9g0T''.and. concepto.tipo2=val(xdasi)  H  9A AT''0.and. !(diariog.tipo="A" .or. concepto.tipo2>=1) 9M[ @T''/.and. (diariog.tipo="A" .or. concepto.tipo2>=1) 9S 'T''.and. concepto.tipo2=3 CC9g 0T''.and. concepto.tipo2#val(xdasi)%: 'T'' and concepto.tipo2#23%;Tg %-?HT ; ;K TT''C and inlist(diariog.cau, "V", "c","d","r") .and. diariog.procli="C" ;Z% UT''D and !(inlist(diariog.cau, "V", "c","d","r") and diariog.procli="C") ;J XT''G.and.inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P" C;cd GT''6.and.diariog.cau=lower(xdcau) .and. diariog.procli="C" ;3C >T''-.and.diariog.cau="c" .and. diariog.procli="P" ;4 >T''-.and.diariog.cau="d" .and. diariog.procli="P" ;R ?T''..and.diariog.cau$"RA" .and. diariog.procli="C" ;P; ?T''..and.diariog.cau$"OA" .and. diariog.procli="P" ;1 >T''-.and.diariog.cau="1" .and. diariog.procli="P" ;2 >T''-.and.diariog.cau="2" .and. diariog.procli="P" ;V1>T''-.and.diariog.cau="V" .and. diariog.procli="C" ;C>T''-.and.diariog.cau="C" .and. diariog.procli="P" ;I&T''.and.concepto.tipo2=8 ;LN}T''l.and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P") or inlist(concepto.tipo2,12,52)) ;H T''.and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P") or concepto.tipo2=18 or (diariog.procli="P" and diariog.codigo=p_provcont)) 2;'T''.and.diariog.cau=xdcau cHZ_ ;KT''z and inlist(diariog.cau, "V", "c","d","r") .and. iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C") ;ZT''{ and !(inlist(diariog.cau, "V", "c","d","r") and iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C")) ;A _T''N and !(diariog.cau$"Vcd" and diariog.procli="C" and empty(diariog.comentario)) ;JT''.and.inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P") C;cdG~T''m.and.diariog.cau=lower(xdcau) .and. iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C") ;3>T''-.and.diariog.cau="c" .and. diariog.procli="P" ;4>T''-.and.diariog.cau="d" .and. diariog.procli="P" ;R>?T''..and.diariog.cau$"RA" .and. diariog.procli="C" ;P?T''..and.diariog.cau$"OA" .and. diariog.procli="P" ;1>T''-.and.diariog.cau="1" .and. diariog.procli="P" ;25>T''-.and.diariog.cau="2" .and. diariog.procli="P" ;V>T''-.and.diariog.cau="V" .and. diariog.procli="C" ;C>T''-.and.diariog.cau="C" .and. diariog.procli="P" ;I&T''.and.concepto.tipo2=8 ;LT''.and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P")) or inlist(concepto.tipo2,12,52)) ;HT''.and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P")) or concepto.tipo2=18 or (diariog.procli="P" and diariog.codigo=p_provcont)) ;Q.JT''9.and.inlist(diariog.cau,"V","c") .and. diariog.procli="C" 2_'T''.and.diariog.cau=xdcau%<1T'' .and.!inlist(concepto.tipo2,1,2)%=(T''.and.diariog.tran=xtran T>' T?'%@G,T?'.and.diariog.asiento<=xdast%AATCDTC FTCBTCCB%CsaldoantFCQF (CQCCFC& !%Cejercon 8QejerconFD EF'E(CG6`%EFDQTHI\data\CCJZ CKQH\ejerconFD TLa TM>~CNO CNO NO  \CDQP%L AN (%AAFR%S#-TCRU #-TCRU %C4 FD TVN9oejerconDVOQWOV Wcur%  TFaCXQP&CborrarXNXOXQaYFD-NVCDQP  TF-%F$'CborrarDNDQaY TL-0CborrarCDNDCDOFDQ-Y%GNFDTZCC&\Ges.dbcset database to &xph F[$TZCC&\Contabilidad.dbc set database to &xph  THI\data\CC\Z CKQejerconC]P$CPreparando Impresin...^FH _S#& C`Zabc( 2& abc(Td @#@#@##@#@##)+C+ b$%dK >ea Td%fS>gh %fS S " TiCO Tj Tk Tlm Tno%  Tpq Trs Ttu Tvw Txy Tz{ T|} T~ T T T TTC T7TCCC` @z 999999_bc6 T T+"*ECC=C0 Q =F%C4COi +CC=C0 Q = d">k>j>oon>mml% `"( \"TmesCCZTxmesCCZ%replace &xmes with &xmes + &xxmes .TCC=C0 Q =T #i%bCXS#%aC#FG((codcli Eb /#FG((codpro Eb>>F%cCX#FG((codigo EcF>F%`$FG((codigo E`F>%S$FG((codigo EF>FH%_S|%%SQ%%%~Tqabrev+str(linea)+iif(alltrim(procli)='C',iif(p_clinum,str(val(codpc)),codpc),iif(p_pronum,str(val(codpc)),codpc)) M%$Tabrev+str(linea)+nombre x%Tabrev+str(linea) k&%SK&%$&wTjabrev+iif(alltrim(procli)='C',iif(p_clinum,str(val(codpc),6),codpc),iif(p_pronum,str(val(codpc),6),codpc)) G&T abrev+nombre g&Tabrev%Cborrar1&FQF%S&9(#\tmp\ fS  '(#\tmp\Q#\tmp\H<'6   -select iif(ant_deb>ant_cre,ant_deb-ant_cre,00000000000000.00) as ant_debe , iif(ant_cre>ant_deb,ant_cre-ant_deb,00000000000000.00) as ant_haber, 00000000000000.00 as ant_sal, debito as debe , credito as haber , dir_deb as dir_debe , dir_cre as dir_haber, iif((debito+ant_deb)-(credito+ant_cre)>=0,(debito+ant_deb)-(credito+ant_cre),00000000000000.00) as sal_debe , iif((debito+ant_deb)-(credito+ant_cre)<0,(credito+ant_cre)-(debito+ant_deb),00000000000000.00) as sal_haber , 00000000000000.00 as sal_per, 00000000000000.00 as sal_fin, abrev as cuenta , descr as descr , un as un , undescr as undescr , centro as centro , cendescr as cendescr , linea as linea , grupo as grupo , dlinea as dlinea , dgrupo as dgrupo , procli as procli , codpc as codigo , nombre as nombre , cuit as cuit , orden as orden , iif(linea#0, " ["+str(linea,10)+"] "+alltrim(dlinea)+" ","") +iif(centro#space(6), iif(linea#0," "," ")+"["+centro+"] "+cendescr, iif(codpc#space(6), " ["+codpc+"] "+nombre, iif(linea#0,"","["+abrev+"] "+descr) )) as descripcion , iif(xdmon=0,0, iif(dif=0,0,dif_pesos/dif)) as tc_prom , er as er , der as der , presup as presup , &xorden as orden2 , cod_cue , enccen from borrar1 order by orden2 into cursor borrar readwrite % ,/> ->C 6C c6C 6C c6!>'(#\tmp\rpt_sumas_y_saldos g2Oselect ant_deb-ant_cre as ant_sal , mes1 as mes1 , mes2 as mes2 , mes3 as mes3 , mes4 as mes4 , mes5 as mes5 , mes6 as mes6 , mes7 as mes7 , mes8 as mes8 , mes9 as mes9 , mes10 as mes10 , mes11 as mes11 , mes12 as mes12 , dir_deb as dir_debe , dir_cre as dir_haber, 00000000000000.00 as sal_per, 00000000000000.00 as sal_fin, abrev as cuenta , descr as descr , un as un , undescr as undescr , centro as centro , cendescr as cendescr , linea as linea , grupo as grupo , dlinea as dlinea , dgrupo as dgrupo , procli as procli , codpc as codigo , nombre as nombre , cuit as cuit , orden as orden , iif(linea#0, " ["+str(linea,10)+"] "+alltrim(dlinea)+" ","") +iif(centro#space(6), iif(linea#0," "," ")+"["+centro+"] "+cendescr, iif(codpc#space(6), " ["+codpc+"] "+nombre, iif(linea#0,"","["+abrev+"] "+descr) )) as descripcion , iif(xdmon=0,0, iif(dif=0,0,dif_pesos/dif)) as tc_prom , er as er , der as der , presup as presup , &xorden as orden2 , cod_cue , enccen from borrar1 order by orden2 into cursor borrar readwrite %>1(#!\tmp\rpt_sumas_y_saldos_mensuales 6F>Cmo6Cmo6Cmo6Cmo6Cmo6pselect ant_deb-ant_cre as ant_sal , nivel1 as nivel1 , nivel2 as nivel2 , nivel3 as nivel3 , nivel4 as nivel4 , nivel5 as nivel5 , abrev as cuenta , descr as descr , un as un , undescr as undescr , centro as centro , linea as linea , grupo as grupo , dlinea as dlinea , dgrupo as dgrupo , cendescr as cendescr , procli as procli , codpc as codigo , nombre as nombre , cuit as cuit , orden as orden , iif(linea#0, " ["+str(linea,10)+"] "+alltrim(dlinea)+" ","") +iif(centro#space(6), iif(linea#0," "," ")+"["+centro+"] "+cendescr, iif(codpc#space(6), " ["+codpc+"] "+nombre, iif(linea#0,"","["+abrev+"] "+descr) )) as descripcion , iif(xdmon=0,0, iif(dif=0,0,dif_pesos/dif)) as tc_prom , er as er , der as der , presup as presup , &xorden as orden2 , cod_cue , enccen from borrar1 order by orden2 into cursor borrar (#\tmp\rpt_balance C%Cborrar 7FQ%Cborrar147FQ.dbf.idx.cdx #\tmp\.dbf #\tmp\.cdxBU EXPORTACION CO_ASIENTOS CO_FUNCIONESDEY_FUNC XEXPORTACIONXDFECLOCALESEJ_001XHFECEJ_002XDTIPXDTOTXDCUEXHCUEXDABRXHABRCO_CUENTAS_DESDE_HASTA XORDEN_ABREV XGLOBAL_ERRORXMENSAJEBORRARFBORRARBORRAR1 BORRARIDX CREA_BORRARCUENTASALLCREDITODEBITOABREVXDDCUECOD_CUEXHHCUECUENTATEMPP_LOCALCREAR_BASE_TEMPORALXMONEDAXCONSOLFILTROXDCOSXHCOSXDSCEXHSCEXPORLINEAMAESTRA FILTROLINGRUXDLINXHLINXDGRUXHGRUXDUNIXHUNIXDIMPXHIMP XSIN_ARCHIVOS XSIN_APERTURAXSIN_TIPO_ASIENTOXDASIXSIN_AJUSTE_X_INFLACIONXDCAU XSIN_CIERREXTRANXFILTRO_EJ_SIN_LIMITEXFILTRO_EJ_CON_LIMITEXDASTXDSALNEWFILE_LOCAL_TMPSALDOANTEJERCONNIT XTIENESALDOAXCONSP_SERVERP_SYSTEMP_DOSSETSXPRIMEROXMAXDESDEHASTACO_ABRIR_TABLASDIRCONCEPTO XTIPO_INFORMETIPO2LEGAL XOLD_DESDEDIASCUR FN_CONSULTAXPHDIARIOGP_UNOCO_011 MENSAJE_WAITXDXUFLINEAPROCLICODPCCENTROOLDKEYENCCENMARCADIR_DEBDIR_CREREGDEBCREADEBANT_DEBACREANT_CREXMES1MES1XMES2MES2XMES3MES3XMES4MES4XMES5MES5XMES6MES6XMES7MES7XMES8MES8XMES9MES9XMES10MES10XMES11MES11XMES12MES12XORDENFN_ORDENXCOD_CUEOFFSETOLDCUEZZZXMESXXMESCLIENTESCODCLIPROVEEDOCODPRONOMBRECUIT INSCRIPCIOCOSTOSCODIGOCENDESCRDESCRLINEASDLINEAGRUPOGRUPOSDGRUPOXDXCPXDORDXDMOVANT_SALANT_DEBE ANT_HABERSAL_PERDEBEHABERSAL_FINSAL_DEBE SAL_HABERDIR_DEBE DIR_HABERNIVEL1ORDENNIVEL2NIVEL3NIVEL4NIVEL5 MENSAJE_CLEAR4H CR00000000A B CR000000h B CR0000 B CR00 B 2 BBUXCUENTA#4#TC   6%% A B % B  *T C B UXIMPORTEXMONEDAXCAMBIOXFECHAXMOTIVOXMONPASEXMONEXTXMENSAJEXMONEDA_PEDIDAXDMONCUENTASMONEDATIPOXRESFN_CALC4%CxdsubbNC T%CxdxufbCpTN%Cborrar1bCT XASlkdjglf&%CxporlineamaestrabL T -#%C xfiltro_datosbC T %CxdcaubCET T% Q%Cccvent QccventF G((asientoFG-( #%Cborrar1C G((fechaGF G ECG GF\~C2CC C 6  'CProcesando fecha C* TFG((cuenta EFT%%T T% %#%Clineascodigo%T  T-% %C %C  Ta  % Q'% ! " #q'C !ccventccvfac% $ Ta%FG((cuenta E%v%C%r"% &N - Ta2%&S &   n TaF% %  )%' ( ?%'$8T)C+,-('* ; T) 8T)C+,-('*%. T/.)%' ( 9%' 9T0C+,-('c* 5 T0 {8T0C+,-('*T1C)0T2C%. T/. FG((cuenta<3 3^(3 E%C4>4S T5 T6-V%7S38S&C9\SC9\S   S "H( 7SC9I\S H T6a T: T;< T=> T?@ TA-%S. +C+ : !%BC | TAa!H%A * _3 CD>BC >: ><; >>= >@?>E E > >F >G  +C+ : %BCx TAa!H%A _3 CD>BC >: ><; >>= >@? >F >G>HCI)% JK  x >LL05 >MM)5  6 >05 >)5 >NN1>OO2%K2 TPmesCCCHZ4replace &xmes with &xmes + (deb/ind) - (cre/ind) >4S> 8S&C9\SC9\S   T6a T: T;< T=> T?@ TQ9 TA-TRSTTG"%RCX TCP - TT $%RCX TPC d TRCX%S+C+ : )%FRGT  TAa!H%A _3 CD >FR >GT >: ><; >9Q >>= >@?>E E > >B |+C+ : %FRGT  TAa!H%A x_3 CD >FR >GT >: ><; >9Q >>= >@? >B)% JK  >LL05 >MM)5  >05 >)5 >NN1>OO2%KTPmesCCCHZ4replace &xmes with &xmes + (deb/ind) - (cre/ind) >4S>HCI 2 T: T;< T=> T?@%S TA-+C+ : Y%Q TAa!H%A _3 CD >: ><; >>= >@?>E E > )% JK  :>LL05 >MM)5  >05 >)5 >NN1>OO2%KTPmesCCCHZ4replace &xmes with &xmes + (deb/ind) - (cre/ind) >4S>HCI c)% JK  >LL05 >MM)5  =>05 >)5 >NN1>OO2%K9TPmesCCCHZ4replace &xmes with &xmes + (deb/ind) - (cre/ind) >4S>HCI#>+C +6 UCO10.PRG%Problemas al hacer el Sumas y Saldos.WNo se encontr el cdigo de cuenta que figura en el diario dentro del plan de cuentas [].qT/WNo se encontr el cdigo de cuenta que figura en el diario dentro del plan de cuentas [].F CVBUWXDFECXHFECXALIAS XANTERIORXDMON XTIPO_INFORMEXDSUBXDXUFBORRAR1XPORLINEAMAESTRA XFILTRO_DATOSXDCAUCCVENTCONCEPTOASIENTODIARIOGFECHALEGALDEBITOCREDITO MENSAJE_WAITACUENTASCUENTACOD_CUE XLINEA_DIARIOLINEAXLINEA_DIARIO_BKPLINEAS MASTERLINEXSKIP FILTROLINGRUCOMPROBCAUFAC_VENCAUSALIQPRODIMPUESTOSUBDMONEXTMONPASEDEB FN_CALC_LOCALMONEDACAMBIOMOTIVOXMENSAJE XGLOBAL_ERRORCREXDIF XDIF_PESOSAAAAMARCAINDXDEUCOSXDXCCXDXCPATRIBUTOXCODCUEXDESDESCRXABRABREVXPRESUPPRESUPENCONTRECENTROCOD_CEN BLANK_NUMEROSUNCODPCPROCLIORDENFN_ORDENTIPO2XDTIPANT_CREANT_DEBDIF DIF_PESOSXMESXATRXXCODCODIGOXXPROREPORTE MENSAJE_CLEAR T-+C+  R%CXJ Ta!H%  > > > > BU ENCONTREXCODCUECOD_CUECENTRODESCRXDESABREVXABRPRESUPXPRESUP4%CC> T U T F G((asientoF G-( )% C X 999999999 set filter to &filtro sG-(C Indexando...GIbindex on dtos(fecha)+transform(asiento,'99999999999') to (p_local+'\tmp\'+borrar1) for &filtro GI C% D G-( T T T"CF G!(BUXALIASXDFECXHFECXEJ_ACT XANTERIORLOCALESCO_011FILTROXFILTRO_EJ_CON_LIMITEXFILTRO_EJ_SIN_LIMITECONCEPTOASIENTODIARIOGXDCUEXHCUECOD_CUEBORRAR MENSAJE_WAIT MENSAJE_CLEAR P_IDXCOEFXMONEDAFECHAIDX04GBA DATOS_BALANCEXDMON XTIPO_INFORME/co_rpt_balanceJ BUOFORMCO_RPT_BALANCE#  TC C "T C- %c T- B U XTIPO_REPORTEXTABLAXDFECXHFECXDTOTXDMOV XMANTENERXABRIROFORM XNO_RELEASEXRETURN OBTENER_FORMEJECUTAR_PARAMETROSEJECUTAR_EXTERNOK41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT\xchgTT3TTT ST NT S T a T a CBUXTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTOTXDMOVXDXCCXDLOG1 EXPORTACION EXP_TABLATCC]R%CborrarJFQ%Cborrar1qFQ%Cborrar2FQ%C borraridxFQTCC]R5TCC]R5TCC]RUBORRARFBORRARBORRAR1 BORRARIDXBORRAR24TCZ TCCX 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT \xchgT T  TTT N Ta TaT T-%TST%TS%C TT CBUXTABLAXDFECXHFECXLINEA XTIPO_VENTASXCENTRO XPORCENTROOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDMOVXDLOG1 EXPORTACIONXDTIPXCONSXDSTKXDCAUXDXCCXDCOSXHCOS EXP_TABLA041QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT\xchgTT TT T a T aT  C BUXTABLAXDFECXHFECXTIPOOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG1 EXPORTACIONXDASI EXP_TABLA 5Ttmp_saldo_a_fecha1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT\tmpTT AT T T ST T CQ\tmp\ F T%C FQBUXSALDOXCUENTAXFECHAXTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDSALXDCUEXHCUE EXP_TABLASAL_FINb41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT\xchgTTJTTT N T a T aT  T -TS Ta CBUXTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDMOVXDLOG1 EXPORTACIONXDTIPXCONSXDSTKXDLOG3 EXP_TABLA T\tmp\C]%Cborrar1RFQF (FQ'>marcaC$>unN (>centroC'>codpcC(>procliC'>ordenN)>undescrC*>cendescrC(>nombreC(-> descripcionC<3>dir_debN 3>dir_creN ?rborrar1 mes1N?rborrar1 mes2N?rborrar1 mes3N?rborrar1 mes4N?rborrar1 mes5N?rborrar1 mes6N?rborrar1 mes7N?rborrar1 mes8N?rborrar1 mes9N@rborrar1 mes10N@rborrar1 mes11N@rborrar1 mes12NArborrar1 nivel1NArborrar1 nivel1NArborrar1 nivel2NArborrar1 nivel3NArborrar1 nivel4NArborrar1 nivel5NBrborrar1 ant_debNBrborrar1 ant_creN>rborrar1 difNDrborrar1  dif_pesosN?rborrar1 cuitC Arborrar1 dlineaC(Arborrar1 dgrupoC(Crborrar1 importacN Arborrar1 enccenL>rborrar1 derC(Q%C FQQ& cuentas'> C %Cco_er p Qco_erFG((IDLIN F~C 2%CC ZCZco_eridlin > FBUXTEMPXALIASXTEMP1P_LOCALBORRAR1CUENTAS FIELD_NAME FIELD_TYPE FIELD_LEN FIELD_DECCOD_CUECUENTAORDENFN_ORDENLINEAGRUPOALLCO_ERIDLINERDERDESCRj41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxco_rpt_balanceT\tmpTT RTTT ST S T aT TNT Ta CBUXTABLAXDFECXHFECXTIPO2OEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDXCCXDSTKXDLOG1XDTIPXDMOVXDASIXSIN_TIPO_ASIENTO EXP_TABLA > > > > > >%{>     BUANT_CREANT_DEBCREDITODEBITODIF DIF_PESOSXDTIPMES1MES2MES3MES4MES5MES6MES7MES8MES9MES10MES11MES12fn_orden0> fn_calc_local? datos_balance@registro_limpio}Y fn_consulta~Z obtener_form]ejecutar_reporte] exportar_1=_ crea_borraraexportar_estado_de_resultadospbexportar_ifm_finanzasXe saldo_a_fechag!exportar_estado_de_resultados_schhicrear_base_temporalokexportar_sin_asiento_tipo22w blank_numerosMyRa!QQA1A"A"aA3sRu4r!qA!qAAAAAAA1AAAaAABBqAABBqAAqAA0AAAQAqAABAAAAAAaAA qAAABC AABAAAAAAaAQ ABqACCA2A2ABRQAqAArBr1Aqq1qAAsBs211Av!csAABrAABBrQrAQA1ADrA2AQ2ABsA2A#rc2QAABABRAqqAArRqqAr1qqA2qqArBADA1AAAA1qA!AAqAAqAAPQQ2 Br2DS2r 7ArqAAqAA211B2qAA21 q122BAAt2AAqqAbA2AAF!AAvr2Abaaarrr2bAA21aAAAB""AABBrqAbABqA2!A!AAAt2AA3A2AA33AraBAAAAQCaAAAAQBBCQQQQ2ABA!AAABAAAAQBAAAAQBBQQQQ2ABBCB1AAAAQABQQQQ3ACADCQQQQ2ABACC3 AAAqBA2QAAAAQAA3qArra!aBA"raB3q31'2A4q"AB31SrqAAqAAqAAqAAsQqQqQ2BRq"AA"ABB34q"AB2q"AAAB2q"CB3rqAArRsRCRRsRRsRRRRR4R4"!A1DAA#usAr1"qAAB24q"DB21AA1UVZV\j\/AKR`qzu=Θk`.Pwk ,]пq%iTP|2<[U4%CaI%C6 C CR \C5No se puede tener acceso exclusivo a los archivos de \C !!! C-BUXCOM USE_FILES COMPACTAR REINDEXARMENSAJEP_SERVERLOCALESCO_01145%CDIARIOG-F ?F% T 1aaa=1)Q\C\diariogon error &onerr %B- (Q\C\diariog%CCONCEPTOF .F% T 1aaa=1*Q\C \conceptoon error &onerr %B- )Q\C \conceptoBaUXCLAAADIARIOGP_SERVERLOCALESCO_011CONCEPTOF,R,:!Indexando por Asiento. Aguarde...& 6R,:+Indexando por Asientos manuales. Aguarde...%&  A +R,: Indexando por Cuenta. Aguarde...3& CC 99999999999_*R,:Indexando por Fecha. Aguarde.../& CC 99999999999_+R,: Indexando por Cdigo. Aguarde...;& CC 99999999999_0R,:%Indexando por Comprobante. Aguarde...)&  A  +R,: Indexando por Cuenta. Aguarde...& C F *R,:Indexando Conceptos. Aguarde...& &R,:Indexando Tipo2. Aguarde...& BUDIARIOGASIENTOASI_MATIPOCOD_CUEFECHACUENTACODIGOPROCLICOMPROBCAUCUECONCEPTOTIPO2kF,R,:!Compactando el diario. Aguarde... G((0 A 3BUDIARIOGFORASIENTOTIPOALLmantener0 use_filesH reindexar compactar1qBARAB2qrqA11qAAqA11qAAr2tbQ1ArbB2qAB12H2%@Hy e%[ i CX[UR%C Diario_verDFQ GF T-%Cusuarios Q \usuarios=select &xsqlcols from contabilidad!diariog left outer join contabilidad!concepto on concepto.asiento = diariog.asiento left outer join usuarios on diariog.usr=usuarios.codigo group by diariog.asiento WHERE diariog.asiento>0 AND &xfiltro and nvl(concepto.tipo2,0)#-1 into cursor diario_ver readwrite Ta %Cdiario_anulados F Qselect &xsqlcols from contabilidad!concepto conc1 left outer join contabilidad!conc2 concepto on concepto.asiento = conc1.asiento and concepto.version=conc1.version - 1 left outer join contabilidad!diag2 diariog on concepto.asiento = diariog.asiento and concepto.version=diariog.version left outer join usuarios on diariog.usr=usuarios.codigo group by concepto.asiento where &xfiltro and conc1.tipo2=-1 into cursor diario_anulados readwrite 'r diario_verodiario_anulados%C )delete for &xfiltrota "i1 diario_ver MU XSQLCOLSXFILTRO XFILTROTA XCONC_COMP XCONC_CAU XTXTIPO_AS DIARIO_VER XES_ANULADOP_SYSTEMDIARIO_ANULADOS TXFILTRADO&F  T''(CD%CC cocau_comp cocau_cauautomansubd H% CCCMV6T+"|"+UPPER(alltrim(C)) CCDE,T +"|"+DTOC(C) CCT,T +"|"+TTOC(C)- CCINYFB4T+"|"+ALLTRIM(Str(C))(replace txfiltrado with &xcampos all U DIARIO_VERXARRNITXCAMPOS< %CC S.B%Error interno...falta el concepto !!!%C r BTCAX TCF TCC+C CO6Easiento+C+  A%C 9)T : CC - !H%CFEasiento+C+  %C  T !HF% #  #6%C+ H FTCCAXBCAU XASI XCONCEPTOXALXRNXRETDIARIOGASIENTOCODIGONOMBREPROCLI COMENTARIO-ge01UXCOMPROBXCAUSAXCOD_CLI CPBT_VIS2GE01%C%Ccccomp NQcccompFGEcomprobG Tge02U XCOMPROBXCAUSAXCODPROXOPCCCOMPCOMPROBOP CPBT_VIS2GE02comv_seleccionar0 comv_busqueda  comv_conceptoYcomv_ver_cpbt_c comv_ver_cpbt_pV 1qAAAqAAs"A!2qAQaAAAA3A"AqAaAAAAqA!AAAAAqAQAAAA221!AqaaA21 =-> SY /\T%,[U+T C BUXCOMPROBCAUSACOMPROB %CX A!TC/CCZ  X T%2TIMP CC@z 999,999,999_   T BUCOD_CEN SUBCENTROXCENSUBCONCEPTO IMPORTACIOXIMP comprobante,comenty1q2Aa!A2`s%9 V\UQ  T T<te_sql_retenciones_clientes T-%Cempresas Q \empresasCempresascodigo G+(listadosT CC 6ve_sql_iva_ventas_v2tmp$CPer IIBB CabaSuspendo?aTC (%Cper_ib_caba_retencionesFQ6%C!\xchg\per_ib_caba_retenciones.DBF00!\xchg\per_ib_caba_retenciones.DBF=te_sql_retenciones_clientestmp%G+(te_sql_retenciones_clientes7%C!\xchg\per_ib_caba_retenciones.DBF0 TC]*te_sql_retenciones_clientes0(!\xchg\per_ib_caba_retenciones.DBFQF/Q!\xchg\per_ib_caba_retenciones.DBF=(-\tmp\per_ib_caba_percepciones_retenciones.DBF<Q-\tmp\per_ib_caba_percepciones_retenciones.DBF<i1$per_ib_caba_percepciones_retencionesN 1"\xchg\per_ib_caba_percepciones.DBF0!\xchg\per_ib_caba_retenciones.DBF& C*sG(\C @ - CCiZ-C00CCCHZR, - retenciones y percepciones - e-arciba.txtG G  T T ~oT >  C*  ! "C#*C%$ & ' ( )%*&%)2 ( "!CCC+-g $ Q!CCC+-g $ ,C.-C/$C0$C1$C2$C3$C4$  %4C X RC*C T5-GG(tC\C @ - CCiZ-C00CCCHZR, - retenciones y percepciones - e-arciba.txt69%C$per_ib_caba_percepciones_retencionesN>C 7FQ t\C @ - CCiZ-C00CCCHZR. - retenciones IIBB de clientes - e-arciba.txt   7(\percepciones_ib_por_las_ventas_caba.txt $  h\C @ - CCiZ-C00CCCHZR" - notas de credito - e-arciba.txt =+\percepciones_ib_por_las_ventas_caba_nc.txt(\C @ - CCiZ-C00CCCHZR" - notas de credito - e-arciba.txt BU8XDFECXHFECL_DIR_AFIP_ARCIBAXFILEEXPORTACION_REPORTETE_SQL_RETENCIONES_CLIENTES XHAY_ERRORESP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCREXPORTAR_PERCEPCIONESVE_SQL_IVA_VENTAS_V2SYS_MOSTRAR_SCREEN EXPORTAR_NCPER_IB_CABA_RETENCIONESP_SERVEREXPORTAR XTABLA_CABACREAR_TABLA_EARCIBAP_LOCAL$PER_IB_CABA_PERCEPCIONES_RETENCIONESORDENFECHARETOPERIDXSEPARAXXXNORMATIPOLETRACPBT FECHACPBT AGIP_NUMEROMONTOCERTTIPODOCCUIT SITUACIONP_PERRET_AGIP_VERSIONNUM_IBCAT_IVAUTFNOMBREOTROSIVABASEALICUOTARETPERRETPER2XINICIALNO_CTRLZEXPORTAR_PERCEPCIONES_CABA C Suspendo?a T-"%Crpt_ve_iva_ventasaFQ-Q\tmp\rpt_ve_iva_ventas.DBFFB(\tmp\rpt_ve_iva_ventas_nc.DBFc % QB--ERR:  TC4QG+(listadosG~(ClasesT C ExportacionesN(T CExportaciones_ParametrosN+T e-Arciba - Notas de Crdito(T rpt_ve_iva_ventas_nc.dbf C CfechaFecha &Ccomprob Comprobante  CnombreCliente "CtipodocTipo.Doc CcuitCuit .Cperib_2Percepcin IIBB CABA #C error_expErrores T iT \C@ - CCiZ-C00CCCHZR - notas de credito - e-arcibaC listados"%Crpt_ve_iva_ventasFQ BUXEMPRESAXHFECSYS_MOSTRAR_SCREEN XHAY_ERRORESRPT_VE_IVA_VENTASP_LOCALCAUSAPERIB_2 ERROR_EXPLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDAL_DIR_AFIP_ARCIBA EXPORTAR_XLS ESTADO_REL G+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN5T%e-Arciba - Percepciones y Retenciones8T(per_ib_caba_percepciones_retenciones.dbf C%Cretoper Ret=2,Per=1CnormaNormaCfechaFechaCtipoTipoCletraLetra1CcpbtNmero de comprobante (CP)1C fechacpbtFecha del comprobante$Cmonto Total del CP,CcertNmero de certificado?Ctipodoc%Tipo de documento del retenido 3=CUIT-CcuitDocumento del retenido2C situacionRgimen de inscripcin-Cnum_ibNmero de inscripin*Ccat_ivaCategora de IVA%Cnombre Razn social'CotrosOtros conceptosCivaIVACbaseBase#CalicuotaAlcuota"Cretper Retencin)Cretper2Retencin totalCordenOrden#C error_expErroresTsT  \C@ - CCiZ-C00CCCHZR( - percepciones y retenciones - e-arcibaC  listadosBU XEMPRESAXHFECLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDAL_DIR_AFIP_ARCIBA EXPORTAR_XLS ESTADO_RELG+(listadosT\iibb ba5 T-%Cempresas Q \empresasCempresascodigo G+(listadosT CC 4 ve_sql_iva_ventas_v2tmp BUXDFECXHFECXTIPO_EXPORTACIONLISTADOSL_DIR_AFIP_ARCIBA P_DIR_AFIP XHAY_ERRORESP_SYSTEMP_CODEMPXEMPRESALIMPIAR_FILE_NAMEEMPRESASDESCREXPORTAR_PERCEPCIONESVE_SQL_IVA_VENTAS_V2h T-;te_sql_retenciones_clientestmp BUXDFECXHFECXTIPO_EXPORTACION XHAY_ERRORESEXPORTARTE_SQL_RETENCIONES_CLIENTES  TCwwZipN%CoZipbOw CError al crear oZIPB-5T\ - informes impositivos.zip6TC"\*.*" a%C  B  BUXDIRXMASKOZIP XDESTINOZIP XRESULTADOWWCLIENTMENSAJEZIPFILESper_y_ret_caba, exportar_nc exportar_percepciones_cabaiibb_per retencioneszZipear@1sAr#ahBbqAAbASrBBE2aaq2BAAqqqqqqAAAbaB!ArAAAqAA 3rr"qAAq""qA2B$!a!1 2"qAA4%!SQA!Qq1!1 22B2$rAr#aJ3q5rSqARasA3n1#$$.0.h2p2>6Q69)%٤zY\zbG+(listados ve_pedido T%L T%Civa_ven |Qiva_ven%Ccostos Qcostos7TCperib01p   %3 T  T  ! T empty(ccvent.liq_1) MT .t.uCC6C DC 6CCAR 6 T log_errores%Cclientes QclientescodcliTC h1\tmp\CCCCNN N!N"N#N$N%D&C'C(N)N*C+N,N-N .N/C0C1N2N3N4N5N6C7N8N9N:N;C<C=N >C ?C@CANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXC(YNZL[N \N]N^N_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNwNxNyNzN{N|N}N~NNNN NCCCNNNNNNCCN N CdCNNNDNCNNNNNNNNNNCNDNNCNNC CCNCCQ\tmp\"%CX CX %Cagente Qagentecodage%Cventas Qventasven_fac%Cmotivos Qmotivos%Cccvent XQccventccvfacT causa$'Vcd'%2T!.and.val(subs(fac_ven,2,2))=xdsfc% <T.and. !(Cval(subs(fac_ven,2,2)))%[-T.and.val(right(fac_ven,8))#0Hp XTG.and.val(right(fac_ven,8))#0 .and.fac_ven#' '.and.causa$'Vd' EWTF.and.val(right(fac_ven,8))#0 .and.fac_ven#' '.and.causa$'c' 2IT8.and.val(right(fac_ven,8))#0 .and.fac_ven#' 'H T.and.causa='V' T.and.causa='d' CT.and.causa='c' uT.and.causa='T' T .and. .f. 8T'.and.!inlist(causa,'V','d','c','T','L') T .and. .f.%S"T.and.motivo=xdmot%2T! and !inlist(motivos.tipo,1,9,11)H )T.and.left(fac_ven,1)='A' %)T.and.left(fac_ven,1)='B' a)T.and.left(fac_ven,1)='E' )T.and.left(fac_ven,1)='Z' )T.and.left(fac_ven,1)='M'HJ T / T 2JT%%T and ivacat=xcat_iva"%CX CX ?%>T-.and.betw(val(cod_cli),val(xdcli),val(xhcli)) ;7T&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"%CX CX %%IT8.and.val(xdage)<=val(agente).and.val(agente)<=val(xhage)  5T$.and.xdage<=agente.and.agente<=xhage %_TN.and.val(xdage)<=val(clientes.vendedor).and.val(clientes.vendedor)<=val(xhage) KT:.and.xdage<=clientes.vendedor.and.clientes.vendedor<=xhage%-2T!.and.betw(ccvent.suc,xdsuc,xhsuc)% 1T .and.betw(ccvent.un,xduni,xhuni) %-%4T#.and. not inlist(clientes.pais,0,1)  *T.and. clientes.pais=xdprvFG-(G-(7TC@h1\tmp\C%DC<Q\tmp\%CControlando... CCantes del scan2TCcfg_ventas_baseco_funciones.prg%C}CC6No se pudo obtener laconfiguracin de cuentas base !!!FG((fecha'set filt to &temp1 and &xfiltro_liq GGF EC GFG < T  J(T +C+ GT(CC*... T%7!C7motivoscodigo%CXFG((codcli EF< T  J( T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T  T  T  T  T  T TFG((ven_facE@)+C+ @@ ,qTC:CBA YBA 6  d 66%ABA @V <TC:BA YBA 6 TK%C=E,CC$ 6  { T(c %C_ PTCC 6XTCC! d 6!%4!TTDTC 6LTC! d 6 %a,TC X%C$FG((codins E%C4}# %-!=listadosZ y#CVer%~"klistadosZCCccvent.sucpropiabN 6 u# %CZ N#sTC@0 Artculo C. No se pudo obtener la configuracin de ventas(  log_errores- T!-%!q#T" $bTC@0 Artculo C facturado pero no encontrado(  log_errores- /$T#F$G((cuenta E%C4 $ATC@0Cuenta inexistente(  log_errores-T&$'H$, &&TH'%% N%T   %@}%T %T %T 2%TT(C@)H&& (FABB&T (REVl&T 2&T &'TH&' &T   %@'T C'T j'T 2'T &(TH'( 'T   %@(T A(T h(T 2(T &)TH() (T   %@)T ?)T f)T 2)T &*TH)* )T   %@*T =*T d*T 2*T &+TH*+ *T %@+T ;+T b+T 2+T 2,T$T[C$*] $H+, +T %@-,T T,T {,T 2,TFH T+ T,-(e-&TCCT&TCCTT,,C-T++C-%- T  - TTCTF>C@VFC5C@cNCC@dNDAL666C.!!:%C:<=   .V>CC=f C00000CCZR-C00000000CCZR>Y!%T/%/3(c3%CxcCCZ_3CT0xcCCZ=xcCCZ+ccvent.tot_ven-xtotventa&aaa $%CxcCCZFG0ET0xcCCZF=xcCCZF+ccvent.tot_ven-xtotventa  1#%CxcCCZ0ET0xcCCZR=xcCCZR+ccvent.tot_ven-xtotventa 1ET0xcCCZO=xcCCZO+ccvent.tot_ven-xtotventa&aaa %%CxcCCZ_01GT0xcCCZ_0=xcCCZ_0+ccvent.tot_ven-xtotventa O3&%CxcCCZ_211IT0xcCCZ_21=xcCCZ_21+ccvent.tot_ven-xtotventa K3'%CxcCCZ_105y2KT0xcCCZ_105=xcCCZ_105+ccvent.tot_ven-xtotventa G3&%CxcCCZ_272IT0xcCCZ_27=xcCCZ_27+ccvent.tot_ven-xtotventa C3GT0xcCCZ_o=xcCCZ_o+ccvent.tot_ven-xtotventa&aaa !%3T/F>KLMNOSTUVWX\]^_`abcdefghijklmnopqrstuvwx y z { | }~ %-5 T1T2 5T13T23T021/T11C010 6/T22C020 6%21w6&T2221 6&T1121T11! T4K%C=E,CC$ 6  57T112 T2%n7T44TT11T T5-(8(68#%CC-28-TCC--TCC-!%8T!TC-!TC-!TC-T55C-$%C5? 9%C5~9T65$TC6$TC6 ;*%!C=Z :rerrores%C@VFCMC@cNC5C@dNDC@LASXX6666 C. Cliente: [] Problema en clculo de IVA.ITC@0Problema en clculo de IVA(  log_errores- ;T7T89T:;<<< J(<C@=F T> T? T@H;x< 8; T>87 CC$ 6'< T?7 T77 CC$ 6x< T@7 T77%CC$ 6<T>8A(4>H<0> C:=>BC>GC C=>CC>HC# C%@=>DC>IC C=>FC 20>>EC>JC>+1,4 2"7#8.:$B%&0CC0  CS D06fZC0 a CE6'C0 CF6C0 CE6778>9?:@@@ACC$ 6GC0 CaF6CHSSINO6>C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C@c6C<C<C<C<C<C<j>ICCccvent.redo_mebNCHS J66>K%>Ld LFMG((comprob'%MM@@CE@%@cdnC8>MMCMMN%CO C%OOC COcostoscodigo!>OF%C$D%|DW>/CCC/>C X2CCC/> CC/[ =/66 D>// E%D>/ CONS. FINAL E=>/C0  CS /P67> TQ(EoTQQC, 6CCCC8CCC ZCC Z6 >>Q>Cg'TR&C%*FH#%C+ &0  G TSa+C+ GlTTC*C@VFC5C@cNCC@dNDAL666C.%S1G6TUCR=C00000000CCCCRRgZR qG6TUCU=C00000000CCCCURgZR%UTGF>CT[FH TS- G!%J%Cccclie HQccclieF ~J)TW&C[@X J%\J J%@cd~J%CCX pJF>% zJ J J%J T  C%J& *CProcesado ND a proveedores... C`o% M       K"CProcesando Asientos.. Ca%*L-C Procesando Ventas por Locales... Cb Cc%L%lLCAc LA%d L'dHL}M fLC fMC f7MC fZMC f}MC$CProcesando resmenes... CgG+(listadosFG-(&o subdiario%Q%Q QQQ?Q?AQACXQh+Qi,Q, Qj>Qk"Q"8Ql9Qm:Qn.Qo$Q$&Qp0Q0Q/Q/'Q';Q;ZQZQQQQ@Q@7Q7CXQqFIGHJDBCEKQrLQsMQtNQuOQvPQwQQxRQySQzTQ{UQ|VQ}WQ~XQ[Q[\Q]Q^Q_Q`QaQbQcQdQeQfQgQhQiQjQkQlQmQnQoQpQqQrQsQtQuQvQwQxQyQzQ{Q|Q}Q~QQQQQ-Q-QborrarF ~UF%ZST0C'%C0 S>; Sin especificar #S >;0T0C%C0lS> Sin especificar S >0 S>; Exportaciones>CZF% T>?CAa>hCA >T>?CAa>hCAFG((codigo E7%C4TF>qF0%rstustu UTrstu >ss>tt>uu0%rstustu UT6rstu%sU>ss6 U%sU>tt6 U>uu6R>CCC=FCNDTKC=AS"  dc6F%V%|V%& C7ZC%C[ V& C7ZC% V%V& C%C[ V& C%%W& %rborrar1EXENTOCTCio subdiario?Q?AQACXQC Q C"89:Q"?borrar2F ~Y>CA#%Cc ZC%*Z C T%%Cc  nZCF%Z%Z%& C7ZC%C[ Z& C7ZC% B[% [& C%C[ >[& C%%c[& %N_oborrarC%Q%?AhCiQiC,Q,CjQjkC"Q"ClQlCmQmCnQ+CoQoC$Q$p0/';Z@7qFIGHJCDQDCBQBCCQCCEQErstuvwxyz{|}~[C%idC%HQq-(\tmp\rpt_ve_iva_ventasQRQ _-(\tmp\rpt_ve_iva_ventasQRF.(\tmp\rpt_ve_iva_ventas_resumenF/(\tmp\rpt_ve_iva_ventas_resumen2FQF%CN` U`/(\tmp\rpt_ve_iva_ventas_erroresԻ(c`FQ \tmp\.dbf \tmp\.idx \tmp\.cdxFQ \tmp\.dbf \tmp\.idx \tmp\.cdxFQ \tmp\.dbf \tmp\.idx \tmp\.cdxFQ \tmp\.dbf \tmp\.idx \tmp\.cdx%Ciibbcaba7bFQ%C iibbcaba_ncbbFQ TBULISTADOS VE_PEDIDO XOLD_XDLISXDLISIVA_VENCOSTOSXPOR_PERCIBIDO VAR_GLOBALXTIPO_EXPORTACIONXLIQXOLDFECXDFEC XFILTRO_LIQ ESTADO_INIXDCTRXHFECXDCOMP_EMPXLOG_ERRORES_CAMBIOLOG_ERRORES_CREAR LOG_ERRORESCLIENTESCODCLIXARCHIVONEWFILEP_LOCALTIPOCOMPROBCOMPROB2COMPROB3BRUTODESCRBASE IMPUESTOSIVAIVANOITOTALFECHACLIENTE PROVINCIACOMISIONPERCENTAGENTEEXENTOOTROSPEDIDOIMPINTCUITNOMBREIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5TICKETSMOTIVOIVANOI2IVACF IVAEXENTOPROVDESCTIPONUMNUMEROTIPOIVACATIVACAUSACATEGIVAIVA21IVA27IVA105IVAOTROBIVA0BIVA21BIVA27BIVA105BIVAOTROC1C1FC1RC1OC2C2FC2RC2OC3C4C5C6C7C7DVENTAPAISZETAC1_105C2_105C3_105C4_105C5_105C6_105C7_105C1_21C2_21C3_21C4_21C5_21C6_21C7_21C1_27C2_27C3_27C4_27C5_27C6_27C7_27C1_OC2_OC3_OC4_OC5_OC6_OC7_OC1_0C2_0C3_0C4_0C5_0C6_0C7_0TIPODOCORIGENASIENTOPAIS_COD PAIS_DESCPROV_RSDPROV_RSPERIB_1PERIB_2PERIB_21PERIB_14PERIB_17IIBBCMIBNUMIDPER TCK_DESDE TCK_HASTA ERROR_EXPTIPO_VC ALICUOTASMONEDACAMBIOVENCREDONDEODEBCREDBPERIB_1BPERIB_2 BPERIB_21 BPERIB_14 BPERIB_17APERIB_1APERIB_2 APERIB_21 APERIB_14 APERIB_17DIVISASFCE_TIPOLIQ_1LP_SUCLP_NUMFCE_CAERG5329BRG5329NCREFNCCAUNC_REFNC_REFPCENTRODCENTRO SUBDIARIOXDAGEXHAGECODAGEVENTASVEN_FACMOTIVOSCCVENTCCVFACTEMP1XDSFCP_DOSP_CODEMPSYS_DOSCEN_INLISTXDTIPXDMOT XSIN_ND_RECHXDLETXCAT_IVAXDCLIXHCLIP_CLINUM P_AGE_TIPOP_AGENUMXDSUCXDUNIXHUNIXDPAICOD_CLIBORRAR3TEXTOERRORES ESTADO_INCCONTROLSYS_M OCFG_VENTASMENSAJETARRIVA MAXTARRIVAXDIAFEC_VENXDIA1Z UNEGOCIOSARRIVA MAXARRIVAXIVADIFXC1XC1FXC1RXC1OXC2XC2FXC2RXC2OXC3XC4XC5XC6XC7XC7DXC1_105XC2_105XC3_105XC4_105XC5_105XC6_105XC7_105XC1_21XC2_21XC3_21XC4_21XC5_21XC6_21XC7_21XC1_27XC2_27XC3_27XC4_27XC5_27XC6_27XC7_27XC1_OXC2_OXC3_OXC4_OXC5_OXC6_OXC7_OXC1_0XC2_0XC3_0XC4_0XC5_0XC6_0XC7_0FAC_VENTOT_VENIVAPERXIVAPERIVACATDES_COMXCUECOD_INSBIENESCODINSVEN_CUEP_CO_CONFIG_VENTAS SUCPROPIACONFIGURAR_ARTICULOXMENSAJE_ERROR FORMATO_ERRORLOG_ERRORES_INSERTARXOK CUENTA_VENTASCOD_CUECUENTASCUENTAXRUBRORUBROXREVFABREVFABABREVXACCIVAXACCBASYFN_FULL XTOTVENTAAAAXEXENTOXBASE IMPONIBLEXOTROS XIVATOTALXDIFXIVAXIVANOIIVA26XIMPINTDTO672 IIBB_PROVTRAER_IIBBPROVXIVANOI2XIVACFXIVAEXRECARGODEUDATARJETADES_CLIE CLI_AUX_PAISCLI_AUXASIDIADIVIBREDO_MECOEFICPRG5329CLIAUXFN_FULL2COD_CEN INSCRIPCIOXIVATXT OLD_COMPROBXFIRST NEW_COMPROB TEO_COMPROBCCCLIEXIDARR_LIQREFCAUCUOP_IIBB_PERCIBIDO_FINALCANCELCUOTAINCOMPRASASIENTOSLOCALESLOCALES2XDPRVFORXPROVINCIA_PERIBRESUMEN3DCATIVA NO_GRAVADOGRAVADOIVATXT IVA_NO_INSIVA_CF IVA_EXENTOIMP_INTCODIGOMOTDESCRVENTAS1VENTAS1FVENTAS1RVENTAS1OVENTAS2VENTAS2FVENTAS2RVENTAS2OVENTAS3VENTAS4VENTAS5VENTAS6 VENTASOTR VENTASOTRD BASE1_105 BASE2_105 BASE3_105 BASE4_105 BASE5_105 BASE6_105 BASE0_105BASE1_21BASE2_21BASE3_21BASE4_21BASE5_21BASE6_21BASE0_21BASE1_27BASE2_27BASE3_27BASE4_27BASE5_27BASE6_27BASE0_27BASE1_OBASE2_OBASE3_OBASE4_OBASE5_OBASE6_OBASE0_OBASE1_0BASE2_0BASE3_0BASE4_0BASE5_0BASE6_0BASE0_0ORDENGRAVAUXCAMMI ELIMINADOBORRARPROVINC OLOCALIZACIONIVA_CATEGORIA_PROVEEDORES_TEXTOIVA_CATEGORIA_CLIENTES_TEXTO XCOEFICIENTEALLP_FCNCND XFCBAGRUPADAS AGRUPAR_BBORRAR1IMPORTETEXTO2XDFINBORRAR2EXPORTANDO_PERCEPCIONES_DE_IBEXPORTANDO_PERCEPCIONES_DE_IVAXERRORES_CITI_VENTASXIVA_DIGITAL_Y_DUPLICADOSP_DEVCITI_COMPRAS_Y_VENTAS XSOLO_TOTALESANOMESQOEXIIBBCABA IIBBCABA_NC T \tmp\borrarFGI%]& C=CCR( CCRg C=R a& C=CCR( CCRg C=R GI T a T #) T T +C+ % w T  MT C =C00000000CCCC RgZRCC R6 T )%C  6,T  rerroresCVFCMCcNC5CdNDCLASXX6666 C Repetida.CTCComprobante repetido( log_errores- V%C =C=Ca C R6  C6  TCOG((ccvfac%G E G  E G((borrar%C4 ST  wTCC RVFCSCC RcNC9CC RdNDCC RLASXX6666ErerroresC  =Falta.DTCC  =CXC(XFalta el comprobante( log_errores- T  #. (% C=C = T  rerroresCVFCMCcNC5CdNDCLASXX6666 CFuera de orden.CTCComprobante repetido( log_errores- #T C6%  T HG!(BU XTMP_BORRARP_LOCALCCVENTP_FCNCNDFAC_VENFEC_VENXDFECXHFECCAUSAINICIALERRORESOLDFACOLDFECNXTOLDERRCOMPROBFECHATEXTOFN_FULLXMENSAJE_ERROR FORMATO_ERRORCOD_CLICLIENTESNOMBRELOG_ERRORES_INSERTAR LOG_ERRORESP_CODEMPREGCCVFACBORRARXCAUSA.T causa$"12"%\2T!.and.val(subs(fac_com,2,2))=xdsfc%&T and cccomp.causa#[2]%Cproveedo FQproveedoFG((codpro%CCCCOMP FQ\CCCOMPH.R VTE.and.val(right(fac_com,8))#0.and.fac_com#' '.and.causa='2' VTE.and.val(right(fac_com,8))#0.and.fac_com#' '.and.causa='1' 2RHT7.and.val(right(fac_com,8))#0.and.fac_com#' 'Hg T .and. .f. T.and.causa='2' T.and.causa='1'H  ?T.and.letra='A' qT.and.letra='B' T.and.letra='E' T.and.letra='Z' T.and.letra='M'"% CX CX GT .and. .f."% CX CX T .and. .f.F G-(%Ccompras QcomprasF G((fechasubset filt to &temp1 GGF ECGFG +C+ #F G((op E  T T T T T T T T T T+C+   ;T C  ! 6CT" C  ! 6#d H #T"T #T"T #%@:T"T #rT"T 2T"THF$>%C &1CPC &2DPAL66'CC (=f 000C ( R) c* !%C + % +,+ C +costoscodigo!>$- +.,*T/ 0T1 0T21//T//C2 !/2 6/T11C2 !12 6T" 3 T4T5 6 T7 T8 T9H /  : T7" T"7 C;<C$ ;:=:6/ T9" T"v>>/c?1c@"cA4cB CcD E FCC 0  GS HF6fIC: CONS. FINAL3C 0  GS IJ66K7cL8cM9c&C &2dC &c &66N:OP QR5UCSVCSWCSXCSYCSZCS[CS\CS]CS^CS_CS`CSaCSbCScCS>ddef>g/1chND a Proveedoresi/1cjckclcmcncocpcqcrc >sP:>tcucvcwcxc%>yazz{yF HBU|TEMP1XDSFCXSOLO_VENTAS_A_CLIENTESPROVEEDOCODPROP_PRIVXDTIPXDCOMXDLETXDCLIXHCLIXDAGEXHAGECCCOMPCOD_PROCOMPRASFECHASUBXDFECFEC_COMXHFECOPXIVA21XIVA0XIVA27XIVA105XIVAOTROXBIVA21XBIVA0XBIVA27XBIVA105 XBIVAOTROXCOMPRATOT_COMDES_COMXIVAIVAPER SUBDIARIOTIPOCAUSACOMPROBFAC_COMBRUTODESCRCOD_CENCOSTOSCENTRODCENTROXEXENTO IMPONIBLEXBASEAAAIVA_COMXIVANOIXIMPINTPERIBXIVANOI2XIVACFXIVAEXIVACATCCVENTFEC_VENCLIENTESEXENTOBASEIVAIVANOITOTALDEUDAFECHACLIENTENOMBRETARJETADES_PROVCUIT INSCRIPCIOIVANOI2IVACF IVAEXENTOCATEGIVAORIGENASIENTOASIDIAIMPINT IIBB_PROVTRAER_IIBBPROVPERIB_1PERIB_2PERIB_21PERIB_14PERIB_17BPERIB_1BPERIB_2 BPERIB_21 BPERIB_14 BPERIB_17APERIB_1APERIB_2 APERIB_21 APERIB_14 APERIB_17IIBBCMIBNUMIBC7C7DVENTAIVA105IVA21IVA27IVAOTROBIVA0BIVA105BIVA21BIVA27BIVAOTROTIPODOCC7_0C7_21C7_27C7_105C7_OPAIS PROVINCIAPAIS_COD 4%CCg9BC %CCgJC3Debe existir alguna cuenta marcada con el atributo:C  B BUXATRXMSGATRCANMENSAJE'%TCIVA Dbito Fiscal%<B%TCjIVA No Inscriptos%|B&TCmImpuestos Internos%B%Cejercon FQejerconF T,~    T a% %CdiariogtF F&%CC \diariog.dbf0$QC \diariogfecha  T -%Cconcepto F F'%CC \concepto.dbf0fQC \concepto { T -% % 4R,: Ejercicio C  no encontrado !!! T F CCBUXIVACHECKXNOIXIIEJERCON OLDDIARIOGXDFECHASTAXHFECDESDEXENCEJDIRDIARIOGFECHACONCEPTO P_SININTERFAZPROCESAR_CUENTAo 4TC 6T)asiento#-1 and !inlist(concepto.tipo2,57)He T .and.debito#0 T.and.credito#0%T.and..f."%CX CX %vIT8.and.val(xdcli)<=val(codigo).and.val(codigo)<=val(xhcli) 5T$.and.xdcli<=codigo.and.codigo<=xhcliFG((asientoF G-( set filt to &temp1 n~C C C 99999999999_C C 99999999999_CC vH7B 99999999999_d %S` '% CX C F E FJ>ASCXC @z 9999,999,999_!>%C  %  C costoscodigo!> T !H "+ >#H' $ >%>&CzG? T>CzG? T>'CzG? T >( $%@# >)>*CzG? T>CzG? T>'CzG? T >+ $ >,>-CHzG? T>CHzG? T>'CHzG? T >. /' >0 >& > >' >1*CError con IVA desconocido !!!2 3K >4 k >5 6 >52>7 8L 9c>:#45 ; <CC CX C 6C 0  =S <<66f>C CX C 3C 0  =S ?66@C CX C 4C 0  =S  @66AC CX C 4C 0  =S  @66BC CX C 6C 0  =S a B6a6CC CX C 4C 0  =S B66DCC CX C 4C 0  =S  @66EFCC CX C 4C 0  =S  @66EGCC CX C 4C 0  =S B66BHLBUIXCUENTA XPROVINCIATEMP1XDTIPXDSFCXDCLIXHCLIP_CLINUMCONCEPTOASIENTODIARIOGCOD_CUEFECHAXDFECXHFECSUBDCODIGOPROCLICLIENTES SUBDIARIOTIPOCOMPROBBRUTODESCREXENTOBASECOMISIONCOD_CENCOSTOSCENTRODCENTROXIMPORTECREDITODEBITOXIVAIVAAUX1NIVA21BIVA21C7C7_21IVA105BIVA105C7_105IVA27BIVA27C7_27 OTHERWISEIVAOTROC7_OMENSAJEXNOIIVANOIIMPINTXIINUMEROTIPONUMTIPODOCTOTALCLIENTENOMBRETARJETACUIT INSCRIPCIO PROVINCIAPROV_RSPAISPAIS_CODPROVDESCPROVINCDPROV_RS PAIS_DESCCAUSA%%Cvlocale 0Q ges!vlocale%Cvlocald dQ ges!vlocaldF G((idFG-( Tinlist(causa,1,2,3)%#T.and. centro=xdsfcH D6T%.and. desde#0 .and. inlist(causa,1,2) 4T#.and. desde#0 .and. inlist(causa,3) 2T .and. desde#0H   T .and. causa=1 =T .and. causa=2 nT .and. causa=3 2T .and. .f.%T .and. .f.H  T.and.letra='A' <T.and.letra='B' nT.and.letra='E' T.and.letra='Z' T.and.letra='M'"% CX CX T.and..f."% CX CX PT.and..f.%T.and..f.% 3T".and.betw( vlocale.un,xduni,xhuni)set filter to &temp1 %Ccons Qcons#)F~C%TCd  T,TCd  TF>CFCCNDNC66 C00000CCZR-C00000000CCZR C!H C00000CCZR-C00000000CC!ZR6"#!>$%&e>'()CARICF6*CA6+ >>,-.-//012a3C456C2CVCdc667899F>:BU;GESVLOCALEIDVLOCALDTEMP1XDSFCXDTIPXDCOMXDMOTXDLETXDCLIXHCLIXDAGEXHAGEXDSUCXDUNIXHUNICONSFECHAXDFECXHFECXVENTAIMPORTEIVAXIVA SUBDIARIOTIPOCAUSACOMPROBLETRACENTRODESDECOMPROB2HASTABRUTODESCREXENTOBASECOMISIONC2C2_21CATIVACATEGIVAIVA21TOTALCLIENTENOMBRECUIT PROVINCIAPROV_RSPAISPROVDESCPROVINCPAIS_COD PAIS_DESCZETAZASIENTOTIPODOCLF% p>    |>    F]o subdiariocontrol1% Q%Cborrar9F!Q}h1" \tmp\borrar9#N$C%N&C'NC& C#ZC%Z#F ~AT(CVenta Mayorista*+,-)AT.CVenta Minorista*+,-);T/C Servicios*+,-)UT0C#Cheques Rechazados/Canje de Cheques*+,-)%ET1CFondo de Publicidad*+,-):T2CRegalas*+,-) ) T1 T2>T3C Otras Ventas*+,-)%T4(./0123$%4s3%C4?,5((F!EC5ZC6Z T7-)+C+ #5 %6 %'&>''4fT8xcontrolCC5ZE=importe + subdiario.exento+subdiario.otros+subdiario.base - xcontrol&aaa T7a!H%7$! oF9T:; r>C:[<<= Cliente: [>.] No tiene IVA pero tampoco no gravado/exento.pT?C<CC[[>+No tiene IVA pero tampoco no gravado/exento@(A log_errores?-CFF^>(./0123F!6("\tmp\rpt_ve_iva_ventas_resumen3QF!Q"\tmp\borrar9.*BUD SUBDIARIOXDLISC3C5C6C3_105C5_105C6_105C3_21C5_21C6_21C3_27C5_27C6_27C3_OC5_OC6_OC3_0C5_0C6_0ALLCOMPROBCAUSANOMBREC1C2C4C7DESCREXENTOBASEOTROSCONTROL1BORRAR9P_LOCALCLASEDCLASECATDCATIMPORTE XCONTROL1 CALC_RUBROIVA105IVA21IVA27IVAOTRO XCONTROL2 XCONTROL3 XCONTROL4 XCONTROL5 XCONTROL6 XCONTROL7XCONTROLZCATEGIVAENCAAAERRORESXCOMPROBTIPOFECHATEXTOCLIENTEXMENSAJE_ERROR FORMATO_ERRORLOG_ERRORES_INSERTAR LOG_ERRORESP_CODEMP4 TF T  T  T  T  T  T T T T T%:TTT% $%    &T C  T  T %&T C  T  T ?%    3T C subdiario.cCCZ_105 2T C subdiario.cCCZ_21 2T C subdiario.cCCZ_27 1TC subdiario.cCCZ_o TC TTC TTC TTC T  T  T  T  T T T T T!T    %C EXENTO !$C OTROS !)C BASE 10.5% !(C IVA 10.5%!'C BASE 21% !&C IVA 21%!'C BASE 27% !&C IVA 27%!.C BASE OTROS IVAS!)C OTROS IVAS! BU"XNRUBROXDRUBROXVENTAXIVA105XIVA21XIVA27XIVAOTROXACC SUBDIARIOXOTRX0X105X21X27XOTROSXI105XI21XI27XIOTROS XVENTATOTALC1C2C3C4C5C6C7XTOTALEXENTOOTROSBASEXTOTIVACATEGIVALLENAR4%FECZCZ%C4  > > > > > C > BUXNRUBROXDRUBRO XCATEGIVAXDESCRXIMPORTEBORRAR9CLASEDCLASECATDESCRDCAT OLOCALIZACIONIVA_CATEGORIA_CLIENTES_TEXTOIMPORTE 4 TCW%Ccliaux DQcliaux%Cccclie rQccclie%dcFG((comprobGEG T -4+C+ ! 5% V- T a!H% b T  T  T T  T T FG((comprob E  F% %S[%=T WT uTNBCCcliaux42C CC 666 4BCS Ccliaux4 6UXRSXALIASCLIAUXCCCLIECCVENTCAUSACOMPROBCOD_CLIFAC_VENXENCCAUXFCREFXCAXPROVINCIA_DESTINOCLIENTESTARJETAP_CLI_VARIOS_ENTREGAXENTPROENTPRO PROVINCIA TCW%Ccliaux =QcliauxFG((comprobE F%=BCCcliaux4!C 6 6 4BC S Ccliaux4  6U XALIASCLIAUXCOMPROBCCVENTFAC_VENCAUSAXPROVINCIA_DESTINOENTPAIPAISCLIENTESTARJETA7(/C"Exportando percepciones de IIBB...T \iibb cabaT\iibb baT\iibb sfT\iibb misionesT \iibb salta%  %,   (%e W  a%   %   %CAM0% C $ C $ Qoborrar q1/ociecajpq1 qF ~(TCR-TCCC=gCC\gCCRg$jrborrarC  FC3CNDCNCXX666C  FC3CNDCNCXX666  C00000CCZR C00000000CC ZR!""aF >#aC # 0% C $ C $  HC;Debe separar el reporte en hasta 30/09/2015 y posterior !!!%F G+(listados T' T( T) T* T+ T, T- T. T/T0;1listados'()*+,-./0 T2 3 J(3\ XAR-*.txt T4a T5a T6a T7a T8a T9a T:aT;C]T<C]C;<=F %> & ?? T@a%~A0  !%  [%4Q6G(&\percepciones_ib_por_las_ventas_ba.txt 7G(&\percepciones_ib_por_las_ventas_ba.txtG G %4 C =%>C?* C*YCFCF;CNCC&CND DP DX666%C\MTB TBC\ BC\C \%NCu EC-C 00000000000CCCCZ R .[<C-C 0000000000CCCZ R .[  ?CC 000000000000CCCZ R .[6CC 00000000000CCZ R .[%> C*GG(%CDG TDLOTE%> 2TECFCC %12606)TGCC iZC00CCC HZR  2TECFCC%12606)TGCCiZC00CCCHZRbTHXAR-CC---G0-C>PD6CCIZ-CD.txt%C3H T22T32HG(\HG G C =%> C?* * C*YCFCF;CNCC&CND DP DX666%C\M TB  TBC\ BC\C \%NC%CCC %Ciibbprov h QiibbprovFJG((comprobEC K  TL%C4O%JM TLC JM dT KUCAlcuota 0 para - en el detalle de alcuotas de percepcin !!!% TCNo se encontr - en el detalle de alcuotas de percepcin !!!%F =C-C 00000000000CCCLZ R .[ DEC-C 00000000000CCCCZ R .[<C-C 0000000000CCCZ R .[ %CCC b%Ciibbprov QiibbprovFJG((comprobEC K  TL%C4%JM_ TLC JM dT UCAlcuota 0 para - en el detalle de alcuotas de percepcin !!!%  TCNo se encontr - en el detalle de alcuotas de percepcin !!!%F 7CC 000000000000CCLZ R .[ ?CC 000000000000CCCZ R .[6CC 00000000000CCZ R .[%>C*3CNACNBM66GG( T4-!% O %NC CaP  C-P!% Q f%7#6G(&\percepciones_ib_por_las_ventas_sf.txt d7G(&\percepciones_ib_por_las_ventas_sf.txtG G %7  T7-C =C*LCFCF.CNCCCNDDX666C\C\C \%NCEC-C 00000000000CCCCZ R .[<C-C 0000000000CCCQZ R .[ V?CC 000000000000CCCZ R .[6CC 00000000000CCQZ R .[GG(!% R C%C=NC;%8<G(,\percepciones_ib_por_las_ventas_misiones.txt 7=G(,\percepciones_ib_por_las_ventas_misiones.txt %9MG(=\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txt NG(=\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txtG G %C=NCM%8 > T8- }%9 n T9-CC*/-,H^ S BCC=FCFAC=6_C\, S?(C=E_C\, 2^OTRO,%CC[-,CCTd=,C =,CCCUZ,CCCVZ,%C=NC,,, 3TWXYoccvent[S\[WZ% M,,,C#No se encuentra la referencia para C= CC[(CYVFC/CYdNDCYcNDXX666 CX)% T^a /Hh CZ CCZVFA=CCZcNC!CCZdNDXX666_CCZ\, CZCCZV FCE?CCZc NCE"CCZd NDEXX666_CCZ\, 2OTRO,3000CCCZ[-,$CCCZ*/-,CCZ =GG(!% _ %:9G()\percepciones_ib_por_las_ventas_salta.txt :G()\percepciones_ib_por_las_ventas_salta.txtG G %:  T:-CC*/CFCFA_C\UCNCNC_C\.CNDND_C\OTRO666+0000000C\C \CT<CC =-T`CCZTaC_ZTbCCcZ ` b aGG(% %8<G(,\percepciones_ib_por_las_ventas_misiones.txt <=G(,\percepciones_ib_por_las_ventas_misiones.txtG G GG(=C,\percepciones_ib_por_las_ventas_misiones.txtd%9MG(=\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txt P NG(=\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txtG G GG(NC=\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txtd%!%: !9G()\percepciones_ib_por_las_ventas_salta.txt d!:G()\percepciones_ib_por_las_ventas_salta.txtG G GG(:C)\percepciones_ib_por_las_ventas_salta.txtd%_$%5"8G((\percepciones_ib_por_las_ventas_caba.txt b"9G((\percepciones_ib_por_las_ventas_caba.txtG G GG(9C(\percepciones_ib_por_las_ventas_caba.txtd%6#;G(+\percepciones_ib_por_las_ventas_caba_nc.txt N#<G(+\percepciones_ib_por_las_ventas_caba_nc.txtG G GG(<C+\percepciones_ib_por_las_ventas_caba_nc.txtdFe-(f\xchg\per_ib_caba_percepciones/(f\xchg\per_ib_caba_percepcionesԻFg#(f\xchg\per_ib_caba_nc%(f\xchg\per_ib_caba_ncԻ4C#\percepciones_ib_por_las_ventas.txtdG+(sys_zip%(i(2 (Tj\Ci3&Tk\CCi3[TlCkZIPCjd k=j(kmlistadoskTnCZipperN To TpCoplknq%o'%Cempresas &Qr \empresasCsempresascodigotG+(listadosTtCCvwuiTx\Ct@ - CC iZ-C00CCC HZR - CCl_ClyZIP%Cx0& xCC\Ct@ - CC iZ-C00CCC HZR - CCi3C.txtCi3=*.zip@ xar- ar-=l(xzlistadosx '5CNo se pudo zipear l !!!C p%5&\percepciones_ib_por_las_ventas_ba.txt kF :# BU{XTIPO_EXPORTACION ESTADO_INCL_DIR_AFIP_ARCIBA P_DIR_AFIPL_DIR_AFIP_ARBA L_DIR_AFIP_SFL_DIR_AFIP_MISL_DIR_AFIP_SALP_EMPXDFECXHFECDISTINCTIDPERBORRARQ1CIECAJPIDQXXXFECHACUITFECHATIPOCOMPROBGRAVAUX NO_GRAVADOPERIB_1IMP_INTCAMMICAUSALETRACENTRODESDEIMPORTEPERIB ELIMINADOFORMENSAJELISTADOS XEMPNOMBRE XEMPDIRECCION XEMPZIPCIUDAD XEMPPROVPAIS XEMPTELEFONO XEMPCUITIVAXEMPCUITXEMPIVA ZIIBB_NUMEROZINICIO DATOS_EMPRESA MAX_ARR_ARBAARR_ARBAXINI_BA XINI_CABA XINI_CABA_NCXINI_SFXINI_MIS XINI_MIS_NCXINI_SAL XTABLA_CABAXTABLA_CABA_NCCREAR_TABLAS_CABAXPOR_PERCIBIDOLIQ_1XINICODIGOXLETRAGRAVADO XLOTEARBA XQUINCENA XQUINCENALXPERIODO XARBA_ARCH XACTIVIDADIIBBPROVCOMPROB3XBASE_IBALICUOTAXTIPOOPERACIONPERIB_2GENERAR_REGISTRO_PER_CABAPERIB_21PERIB_14FCE_TIPONOMBRE BPERIB_14 APERIB_14XID_REFNCREFNCCAUARR_REFERENCIAFAC_VENFEC_VENCCVENT XHAY_ERRORESPERIB_17XBASEXPERCXALIC APERIB_17NO_CTRLZIIBBCABAP_SERVER IIBBCABA_NCSYS_ZIPZXFILEX XFILE_SIN_X XFILE_ZIP'NOMBRE_DE_ARCHIVO_DE_TEXTO_A_MAYUSCULASOXERRXMSGZIPEARP_SYSTEMP_CODEMPXEMPRESALIMPIAR_FILE_NAMEEMPRESASDESCRXFILE_ZIP_HASHMD5 SYS_HASHMD5NOMBRE_DE_ARCHIVO_A_MAYUSCULASH C=FC A8 B01 C=ND A_ B02 C=NC A B03 C=FC B B06 C=ND B B07 C=NC B B08 C=FC E" B19 C=ND EI B20 C=NC Ep B21 2 BXXBUCOMPROB2ve_rpt_iva_ventasJ BUOFORMVE_RPT_IVA_VENTAS{ TC%CxdfecbDKT T-TC BUXDFECOFORM XNO_RELEASE OBTENER_FORMXARCHIVO EJECUTAR_SQL 4%SCHB%C  ϸBA o BFABH%C'()*+  BA BFAB6% C$  401019900  BFAB% C %C P\S[ BFAB %C O\S BREV B %BCS REVFAB6UXFACXCAUP_EMPVENTASCOD_INSOBIEDATA_CODIGO_VACIOBIENESLINEAFEC_VENVEN_CUE P_CUEXARTCUENTASATRIBUTOREVENTA 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxJTCexportaciones_crystal Imp_exp.vcxve_rpt_iva_ventasT\xchgTTTT C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA4TC* CVFCDCcNC/CdNDCLASXX6666 C=000C R []   BUXFECHAXCOMPROBXCAUSAXCODXNOMBREXMENSAJEXFORMATOtF7(\tmp\s2C\B Vcd %C\B Vcd FQ\tmp\s2& C(\tmp\s3FQ\tmp\s3FT SDfgsdfgdfG ~64%C =CC Z    F>CR>  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVQQWRRXSSYTTZUU[QQ\RR]SS^TT_UU```aaa CTK3CFCCNDNC666CP.V.:CCZE C00000CCZR-C00000000CCZR6CkC H C00000CCZR-C00000000CCZR66 !"#% >%C$ !C$sucpropcodigo%%&'& C%&costoscodigo!>%&('#\>)"*+ !,+- .!/>0+ !1!2 CJCRI3CCFCEX??66663CcBC-CCc66664567>875B>9:;<CZ:CC=Z;6>?@aACBCDC@C0CVCdc666==EEFC 6GC 6F*>HIJIKq>LCCL=96CL\L6MCCL=96`CCL Pc66;>NC76C56BUOGESCIECAJEIDCIECAJVTEMP1XDSFCXDTIPXDCOMXDMOTXDLETXDCLIXHCLIXDAGEXHAGEXDSUCXDUNIXHUNICONSFECHAXDFECXHFEC SUBDIARIOTIPOCATIVACAUSACOMPROBCENTROLETRADESDECOMPROB2HASTABRUTOBASE1BASE2NOGRAVDESCRUNSUCPROPCOD_CENCOSTOSDCENTROEXENTOBASEBASE0BIVA0BIVA105BIVA21COMISIONC2C2_21C2_105CATEGIVAIVA21IVA2IVA105IVA1IVATOTALIMPORTECLIENTENOMBREZETA PROVINCIAPROV_RSPAISPROVDESCPROVINCPAIS_COD PAIS_DESCASIENTO TCK_DESDE TCK_HASTAPERIB_1PERIBIMPINTIDPERCUITTIPODOC ALICUOTASTC %Cempresas hQ \empresasCempresascodigo G+(listadosT CC %CxdclibCTCX%CxhclibCTCXve_rpt_iva_ventasJTTTTTT Ta"T\compras y ventasT\iva T'T\tmp\CC]@.xls'T\tmp\CC]@.pdf%CTT-Ca%C0~w(\C @ - CCiZ-C00CCCHZR* - compras y ventas - ventas - reporte.pdfd(\C @ - CCiZ-C00CCCHZR - ventas - reporte.pdf %CTTCTaC %C0u(\C @ - CCiZ-C00CCCHZR( - compras y ventas - ventas - excel.xlsb(\C @ - CCiZ-C00CCCHZR - ventas - excel.xls  !< TBU"XERRORESXTABLAXDFECXHFECXDCLIXHCLI XTIPO_REPORTEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCROEXCVE_RPT_IVA_VENTASXDNUM8XDTIP AUTOMATIZADO L_DIR_AFIP P_DIR_AFIPL_DIR_AFIP_IVAXERRORES_CITI_VENTAS XARCH_TMPP_LOCAL XARCH_PDF XPDFARCHIVO XPDFPROMPTBTNPDFCLICK XLS_ABRIR XLS_ARCHIVO BTNEXPORTARRELEASE& BCC0QRUXTXTXLARGO%M+BCCCCZ. :B-CCCCCZ.UXIMPORTEXNTERO XDECIMALESFN_CEROS~ Ta(C>n'%C\ 0123456789 j T-! BUXTXTXOKZH 09 B0003 105\ B0004 21~ B0005 27 B0006 5 B0008 25 B0009 B U XALICUOTA T(C>x%%C\ 1234567890tTC\ BUXCPBTXXZ%C \@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigo5G+(listadosTCC %Cidx03 Qidx03T C]h1 \tmp\  CCCCCCCCCC CQ \tmp\  CFS">ERR: T C%Ctmp_alicuFQBUXERRORES_CITI_VENTASAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRIDX03 XTMP_ALICP_LOCALTCPVNUCDCUNGALIVDSCOMPROBCAUSATMP_ALICEXPORTACION_COMPRAS_Y_VENTASBORRAR ERROR_EXPFOREXPORTACION_IVA_DIGITAL:F)>CC[[>> > C  > C :>CCc6 TC>5>CCc6 FBU XBASE_IVAXIVAXIVAIMPXBASE_IVA_IMPORTACIONTMP_ALICCOMPROBBORRARCAUSATCXTIPOPVFN_CEROSXPVNUXCPBTNG FN_IMPORTEXIVFN_IVAALIVU?BCC0QCCCC6Z.,RUXDATO XLONGITUD XDECIMALESXES_NC@%%Cccclie @Qccclie'TCC[[!%CcccliecpbtH& V d -%CccventccvfacH VZ%=T 10 VT 01 d%T 10 T 01 2T 09 2C%Error !!! (generar_registro_per_caba) T 09%%CC   T 00|>CCC  6SADV: La NC se aplica a una FC de un periodo de ms de 2 meses. La NC no se exporta. T cF TCO T-2%CCZcccliecomprobOT #F % T 00m>CCC  6DADV: La NC tiene importe distinto a la factura. La NC no se exporta.F  c~T 00Z>CCC  61ADV: La NC no est aplicada. La NC no se exporta. 2T 09 T 00e>CCC  6<ADV: El comprobante no existe en la CC. La NC no se exporta. F H? C D>CCC  6ADV: Acreditar inscripcin.'%La NC no se exporta. %%O   ;G(+\percepciones_ib_por_las_ventas_caba_nc.txt <G(+\percepciones_ib_por_las_ventas_caba_nc.txt 1%8G((\percepciones_ib_por_las_ventas_caba.txt -9G((\percepciones_ib_por_las_ventas_caba.txtG G %v% g T- %  T-T029 2% K C *H FC^% AT10 ZT01 ND% T10 T01 2T09 TC\%M TA '000C\C \ u C\C \C *% C  +C ! "CX%q  0CC=MA C=6/000000C\CCR  3CCC# =- CCABA$F% G((idEC \C   \CC =FCV[CC =NCc>CC =NDd!CC =DPd 6666CZCZ%C4 -C ERROR !!!!!!!!!!!!!!!!!!!!!!!!!! F %%' T(%'  T(C%%) dT%A C* BT*C+8%CCC*=gCCC*->  T*CC*-7T*C*\-C*\-C* \@T,CC-*2CC-*1066%,0G T,4%-/T*C+8%CCC*=gCCC*->  T*CC*-7T*C*\-C*\-C* \H + HT,2T*CC# =- T,1%-*RT*C00000000CC*C-*=RC00CC*C-*d\R T*C* T,0 2+@T,CC-*2CC-*1066%,1%-*RT*C00000000CC*C-*=RC00CC*C-*d\R T*C* 'T,2T*CC# =- _%,4[T*0%,0D>CCC  6ERR: Acreditar inscripcin."CCC*-g -Hv .RI T/1 .MON:T/4 .EX ^T/3 2vT/5 /CC10% C$"C2( &C3"45C2C(T6%)% C6-C7C7 C7C6-GG(%(T8 iibbcaba_nc GT8iibbcaba% 5T9 T: 3 " ;T< B%=SCH> C C$C$ T9C$% >%?@ >E!C >motivoscodigo%?T: 3 ! "T< (r8AB CDEFGH#IJK1L2')MN20299CC \MAC \6000C \C  \9<CX3CCC # =- ,*/C 10C C$  2(: 4 56 2(6 7 7 BUOXES_NCCCCLIEXID_CCCOMPROBCAUSACAUREFCCVENTFCE_TIPO XREF_CAUSAMENSAJEMESESBORRARFECHAFECREF ERROR_EXP XIMPORTE_CCCTOTAL XREG_CCCLIEXOK_REFCOD_CLICUOIMPORTEIIBBCM XINI_CABA_NCL_DIR_AFIP_ARCIBA XINI_CABAXNORMATIPO XTIPOCPBT XLETRA_AGIP AGIP_NUMEROGRAVADO NO_GRAVADOGRAVAUXCUITSYS_MIIBBPROVIDBASEXBASEALICUOTAXIBIBNUM XREGIMENIBP_PERRET_AGIP_VERSIONCATIVAXCAT_IVAUTFNOMBREIVAIMP_INT IVA_EXENTOREDONDEO XALICUOTAPERIB_2 XTABLA_CABAXFECHA XNOGRAVADORG5329XTOTALP_EMPMOTIVOMOTIVOSCODIGORETOPERNORMALETRACPBT FECHACPBTMONTOCERTTIPODOC SITUACIONNUM_IBCAT_IVAOTROSRETPERRETPER2 %Ciibbcaba/FQ%C iibbcaba_ncZFQh1\tmp\CCDC C C D N CCC CCCCNNNNNNCdQ\tmp\h1\tmp\CCDC C C D N CCC CCCCNNNNNNCdQ\tmp\BU XTABLA_CABAXTABLA_CABA_NCIIBBCABA IIBBCABA_NCP_LOCALRETOPERNORMAFECHATIPOLETRACPBT FECHACPBTMONTOCERTTIPODOCCUIT SITUACIONNUM_IBCAT_IVANOMBREOTROSIVABASEALICUOTARETPERRETPER2 ERROR_EXP-4 T T T m  w1QEXPORTACIONES_CRYSTAL Imp_exp.vcxJTCexportaciones_crystal Imp_exp.vcxve_rpt_iva_ventasT  \tmpT T  TTTH{ TT TT TT 6T T dT T T T CT.pdf C %C \0;   - \(\HP%  \.txt  R=,\percepciones_ib_por_las_ventas_misiones.txt(\.txt  <1\ notas de credito.txt F x==\percepciones_ib_por_las_ventas_misiones_notas_de_credito.txt(\ notas de credito.txt   \.txt  zO=)\percepciones_ib_por_las_ventas_salta.txt(\.txt  % \.txt  >=\percepciones de iva.txt(\.txt !H: Z T z T  T  T  T  T <BUXTABLAXDFECXHFECXTIPO_EXPORTACIONXPATHXFILEXFILTRO_ESPECIALEXPORTACION_REPORTEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDNUM8XDTIPXDNUM10XPRV EXP_TABLA FIL_ARCHIVOEXP_PDFEXPORTAR_PERCEPCIONES_VENTASDISPOSE%Cempresas QQ \empresasCempresascodigo  G+(listadosTCC BT C@ - CCiZ-C00CCCHZR - H fT \iibb caba1T$percepciones de iibb a clientes caba T T\iibb ba/T"percepciones de iibb a clientes ba T 6"T\compras y ventas&Tcompras y ventas - ventas T T\iibb sf/T"percepciones de iibb a clientes sf T T\iibb misiones5T(percepciones de iibb a clientes misiones T T \iibb salta2T%percepciones de iibb a clientes salta T T\iva Tpercepciones de iva TT BUXTIPOXPATHXFILEXDFECXHFECXFILTRO_ESPECIALP_SYSTEMP_CODEMPXEMPRESAXHEADERLISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNT PercepcionesT C CfechaFecha %Ccomprob Comprobante %Cnombre Razn Social "Ccativa Condicin CcuitCUIT %"Cibnum Inscr.IIBB 3Cbperib_CCZBase Imponiblea .Cperib_CCZ Percepcina ,Caperib_CCZ Alcuota % +Cbrg5329Base Imponiblea &Crg5329 Percepcina &Cnc_ref Referencia NC 2Cnc_refpReferencia Percepcina T T C &%C \tmp\.xls0a8 \tmp\.xls(\.xlslistadosBUXTABLAXARCHIVO_SALIDA XPROVINCIAXPATHLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDA EXPORTAR_XLSP_LOCAL ESTADO_REL"T\compras y ventas 6  @vG(\C@ - CCiZ-C00CCCHZR/ - compras y ventas - ventas - comprobantes.txtG G F T T ~FTC\ T -h% BLA B   CC Z80 C =AL  C \-  > c T a%C  T aH C %ERR:T 0 yT>CCC  6+ADV: Comprobante anulado !!! No se exporta.+ ^>CCC  65ADV: El comprobante no tiene datos !!! No se exporta.+ ^>CCC  65ADV: El comprobante no tiene datos !!! No se exporta.+ C PVCC *c>CCC  6:ERR: El comprobante tiene CUIT invalido !!! No se exporta.T4 cCC-  K>CCC  6"ERR: CUIT vaco !!! No se exporta.Tr BLA c C B   &C =AL C \-  i>CCC  6@ERR: El comprobante es mayor a 1000 !!! Debe estar identificado.T 2T >CT %T C00CC ZR 7T 99% 00_T 967%!!ACE"B   TC000CC!ZR  H  "VH AL%!<.T060 HT001 B wT082 B %!=T061 T006 CT011 MM%!:/T058 IT051 EqT019 #T066 "dx Ht  AT002 B T007 C, T012 MP T052 Et T020 "cU H Q  A T003 B T008 C T013 M- T053 EQ T021 "L % T099  T098  T082 >$%Cf T001c>CCC  6:El tipo de comprobante no es valido (Corregido a 0001) !!!  T%% %C!:<= T&C\  T&C00000CC'ZR  T&CC \%C&( F T&1 T%%C&gz T&1 T%% %C!:<= T)C \  "T)C00000000CC*ZR  T)CC+Z%C)( @ T)1 T%HU K % `>CCC  67El punto de venta no no puede ser 0 (Corregido a 1) !!! %% K!T)CCC^:.%%z>CCC  6DEl punto de venta no es valido (Se cambia el numero de comprobate a )) !!!  >CCC  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a )) !!! T,C+C, GC&-C)-%T.C \_% BLA B    c C =AL  C \- T.CC [= :T.CC/Z%C.\ T.) %C.( T.1>CCC  6REl numero de comprobante HASTA no es valido (Se cambia el numero de comprobante a )) !!!C.-  %C 808696y"T0CCC-g1 -T0CCCC[-g1 0% 994C#VENTA GLOBAL DIARIA/SIN IDENTIFICAR "C  T2 T3 T4 T5 T6 T7 T83C8C"c6 1%9P>CCC  6'El redondeo se toma como no gravado !!! T:9T;: T< %a` T</%E=   T;:.C;C"c6 1C 1.C<C"c6 1C 1.C=C"c6 1C 1C 1%> E T?PES F@ #> T?AF ?+CC?PESB61 TC %-JTCC%Da zTCC%ETCC%FTCC%GTCCCC1H E@THX" = pTHN 2TH0 HC 1C0QC %-C0I%Da -CD02I%EbCJ105E3I%FCK21F4I%GCL27G5I TM-GG(wC\C@ - CCiZ-C00CCCHZR/ - compras y ventas - ventas - comprobantes.txtNFOsG(\C@ - CCiZ-C00CCCHZR, - compras y ventas - ventas - alicuotas.txtG G FO~CPM Q R S T U VC GG(tC\C@ - CCiZ-C00CCCHZR, - compras y ventas - ventas - alicuotas.txtN C Atencin !!!C C C C KEstos no son los archivos que se suben al IVA DIGITAL en la pgina de AFIP.C C C C 1Los que deben subirse estn en la carpeta IVA !!!9\ATENCION - ESTOS ARCHIVOS NO SE SUBEN AL IVA DIGITAL.TXT BUW L_DIR_AFIP P_DIR_AFIPXEMPRESAXHFECBORRARXERRORES_CITI_VENTASACCXLETRACOMPROBXHAY_RANGO_DE_COMPROBANTESP_EMPCATEGIVATIPODOCNOMBRECOMPROB2 ERROR_EXPCODIGO NO_GRAVADOOTROSGRAVADOIVA IVA_NO_INSIVA_CF IVA_EXENTO OLOCALIZACION CUIT_VALIDARCUITTOTALORDENFECHAXTIPOZETAXTIPODOCFCE_TIPOCAUSA ADUANA_CUITTIPO_VCXERRXPVLP_SUC VALIDAR_NUMXCPBTLP_NUM TCK_DESDEXAAAFN_CEROSXCPBT2 TCK_HASTAXCUIT FN_IMPORTE XBASE_IVA_0 XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACIONREDONDEO XREDONDEO XNO_GRAVADOXEXIMP_INTMONEDAXMONIDX03FCECAMBIO XALICUOTASBIVA0IVA105IVA21IVA27XTIPO_OPERACION FN_ALICUOTASBIVA105BIVA21BIVA27XINICIALNO_CTRLZTMP_ALICDSTCPVNUNGALIV#T\iva )  3 T T T T T T T T  T T  T  T  T T?listados   %u fe_objetosTC-TG(\C@ - CCiZ-C00CCCHZR - ventas.txtG G F T T ~z FTC\ T-h%BLA B   CC!Z80 C"=AL  C"\-  >!c Ta%C#  TaH C$ %ERR:$T %0 T>$C$CC$  6+ADV: Comprobante anulado !!! No se exporta.+ &'()*+,^>$C$CC$  65ADV: El comprobante no tiene datos !!! No se exporta.+ &'()*+,^>$C$CC$  65ADV: El comprobante no tiene datos !!! No se exporta.+ C!PVCC/-. =c>$C$CC$  6:ERR: El comprobante tiene CUIT invalido !!! No se exporta.T4 !cCC/- ! K>$C$CC$  6"ERR: CUIT vaco !!! No se exporta.Tr BLA!c C0 B   &C"=AL C"\-  i>$C$CC$  6@ERR: El comprobante es mayor a 1000 !!! Debe estar identificado.T 2T >1 T2C3T22C3T4 %5QT6C00CC!ZR jT699%600T6967%7!ACE8B   T4C000CC7ZR  H  8V H*  A%7<aT4060 {T4001 B T4082 B  %7=T4061  T4006 C+ T4011 M %7:b T4058 | T4051 E T4019 /-9 T4066 8d H  A T4002 B; T4007 C_ T4012 M T4052 E T4020 8c H  A T4003 B T4008 C< T4013 M` T4053 E T4021 8L T4099 5 T4082 >:4%C4h T4001c>$C$CC$  6:El tipo de comprobante no es valido (Corregido a 0001) !!! 4T224 T;%58 %8L %C7:<= T<C\  T<C00000CC=ZR 4 T<00001 Y T<CC \%C<> T<1 T;%C<g T<1 T;%5%8LL%C7:<= T?C \ H"T?C00000000CC@ZR 6T?C00000000CCCC,[R T?CCAZ%C?> T?1 T;H ;g`>$C$CC$  67El punto de venta no no puede ser 0 (Corregido a 1) !!! ;; !T?CCC^:.%;3z>$C$CC$  6DEl punto de venta no es valido (Se cambia el numero de comprobate a ?) !!! >$C$CC$  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a ?) !!! TBC+CB C<CT22C<CC?CT22C?C%5TDC# \_%BLA B   !c C"=AL  C"\- TDCC"[=  TDCCEZ%CD- TD? %CD> TD1>$C$CC$  6REl numero de comprobante HASTA no es valido (Se cambia el numero de comprobante a ?) !!!CDCT22CDC%ACURAFL"4 6T226 %C6808696"TFCCC/-gG -TFCCCC/[-gG FT22F%699m4C#VENTA GLOBAL DIARIA/SIN IDENTIFICAR9T22C#VENTA GLOBAL DIARIA/SIN IDENTIFICAR C"T22C" TH TI TJ TK TL TM TNPC0NC8c6COS P6  GUT22C0NC8c6COS P6  G%QP>$C$CC$  6'El redondeo se toma como no gravado !!! TRQTS&R TT %a_TT&R TS  %a TT0%E0&U&   TSR%Va  TSKCSC8c6COS P6  GPT22CSC8c6COS P6  GC GT22C GKCTC8c6COS P6  GPT22CTC8c6COS P6  GCCW GT22C GKCUC8c6COS P6  GPT22CUC8c6COS P6  GC GT22C GC GT22C G+%XX OS  TYPES FZ #X TY[F YT22Y+CCYPESP6G0T22CCYPESP6G T\ %-T\\%Va T\\%]T\\%^"T\\%_JT\\% 03-00001998C 03-00001998`H( 0&U& a TaN& PBV a TaN% V& a 6TaN7 b]^_ \ a T\\TaE9 b 0T T \ a T\\TaE 2Ta C\GT22C\G aT22aC GT22C GC0QT22C0QC %-7C&COS P6 0c%Va R8CVCOS P6 0Hc%aET C0c%]WCdCOS P6 105]COS P6 Ic%^gVCeCOS P6 21^COS P6 Jc%_VCfCOS P6 27_COS P6 Kc Tg- %8Vcd v Th4Ti<TjC?gT88TklC2CamGG(UC\C@ - CCiZ-C00CCCHZR - ventas.txtn`osys_zip\C@ - CCiZ-C00CCCHZR - ventas.txtFqXG(\C@ - CCiZ-C00CCCHZR - ventas iva.txtG G Fq~Cr# T2 sT22s tT22t uT22u vT22v wT22w xT22xC %q8Vcd #ThCqsgTiqtTjCqugT8q8TkqC2CamGG(YC\C@ - CCiZ-C00CCCHZR - ventas iva.txtndosys_zip\C@ - CCiZ-C00CCCHZR - ventas iva.txtBUyL_DIR_AFIP_IVA P_DIR_AFIP ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESALISTADOSOCPBTDXIVA_DIGITAL_Y_DUPLICADOSOBTENER_OBJETO_DUPLICADO FE_OBJETOS ORIGEN_CUITXEMPRESAXHFECBORRARXERRORES_CITI_VENTASACCXLETRACOMPROBXHAY_RANGO_DE_COMPROBANTESP_EMPCATEGIVATIPODOCNOMBRECOMPROB2 ERROR_EXPCODIGO NO_GRAVADOOTROSGRAVADOIVA IVA_NO_INSIVA_CF IVA_EXENTO OLOCALIZACION CUIT_VALIDARCUITTOTALORDENXSTRFECHAXTIPOZETAXTIPODOCFCE_TIPOCAUSA ADUANA_CUITTIPO_VCXERRXPVLP_SUC VALIDAR_NUMXCPBTLP_NUM TCK_DESDEXAAAFN_CEROSXCPBT2 TCK_HASTAXCUIT FN_IMPORTE XBASE_IVA_0 XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACIONDIVISASCAMBIOREDONDEO XREDONDEO XNO_GRAVADOXEXIMP_INTBIVA0RG5329MONEDAXMONIDX03FCE XALICUOTASIVA105IVA21IVA27SYS_MXTIPO_OPERACIONP_VE_IVA_VENTAS_VERSION FN_ALICUOTASBIVA105BIVA21BIVA27XINICIAL TIPO_CBTE PUNTO_VTACBTE_NRO COMPROBANTECOMPROB3OBTENER_ARCHIVO_NOMBRENO_CTRLZZIPEARSYS_ZIPTMP_ALICDSTCPVNUNGALIV4TC] T G(\C.txtG(\C.txt(-TCarpeta  inexistente !!!%C B1QEXPORTACIONES_CRYSTAL Imp_exp.vcxJTCexportaciones_crystal Imp_exp.vcxve_rpt_iva_ventasTT T T  T TT C BUXERR_MSGXCARPETAXTABLAXDFECXHFEC XTEST_CARPETAOEXOEXCFIL_DIRECTORIO FIL_TABLAFIL_EXCEL_PLANO FIL_EXCELOFORM XLS_ABRIREXP_TABLA_Y_EXCEL%A+BCC= 000C Rf =BCC= C00000CCZRC RfUCCVENTPVFAC_VENF 8BCC= C00000C\RC RfUXFAC_VENXCAUSA.C!Exportando percepciones de IVA...T\iva W  aFG+(listados T T T T T  T  T  T  T T;listados      T  J(  Tpercepciones de ivaT\.txt !%Cq_percepcion_ivaQF Ta%~0  y %c d 0%CCCRg A%Cccclie QccclieFTC@occclieQ !q_percepcion_iva8>"C#T bTLoccventQ $%&$q_percepcion_iva>(&F% G(  G(G G % *C)C**(CCC![-#CCC+Z.,0767602 2%c#CCC,Z., 0#CCCZ.,%c\C** wC%*13 0%c#CCCZ., #CCC&Z.,000000C XC00C-ZRCC.-CXGG( T-%  G(G G GG(C/!%Cq_percepcion_ivaQFBU0 ESTADO_INC L_DIR_AFIP P_DIR_AFIPBORRARLISTADOS XEMPNOMBRE XEMPDIRECCION XEMPZIPCIUDAD XEMPPROVPAIS XEMPTELEFONO XEMPCUITIVAXEMPCUITXEMPIVA ZIIBB_NUMEROZINICIO DATOS_EMPRESA MAX_ARR_ARBAARR_ARBAXARCHIVO_NOMBRE XARCHIVO_FULLQ_PERCEPCION_IVAXINIRG5329CODIGOCAUSANCREFNCCAUCCCLIEXIDCOMPROB3REFCAUCCOMPROBNC_REFFN_FULL2FAC_VENFEC_VENPRG5329CCVENTNC_REFPSICORE_TIPO_DE_COMPROBANTEFECHATOTALBRG5329TIPODOCCUIT NO_CTRL_ZH V7 B01 cV B03 du B04 2 B05 B00UXCAUSAcontrolprcompraszcheckasientosprocesar_cuentalocalesresumen3j calc_rubro߲llenarcli_aux cli_aux_paisexportando_percepciones_de_ib-citi_tipo_comprobante obtener_form7 ejecutar_sqlrevfabO exportar_1 formato_error( agrupar_bHlocales2Yexportar_siap_compras_y_ventas!fn_ceros fn_importe validar_numfn_iva1a_num;citi_compras_y_ventas fn_alicuotas~ agip_numeroagenerar_registro_per_cabacrear_tablas_caba6exportar_percepciones};exportacion_reporteCexportar_percepciones_ventasGHexportacion_compras_y_ventasLexportacion_iva_digitaljexportar_tablerofn_fullLfn_full2exportando_percepciones_de_ivaXsicore_tipo_de_comprobanteU1A1A!Av!BRA A"qAAA1AA4!AC2A11qA1111111A1!A!A11111A11AAQA"qAA!QAAAA2!AAAAAAsA"1Asqbabar1aAcAqBrr1t1bAAAAA1AAr22BABC#CAtB1A1AA1A1AAAaAaAAA2A1AA1A1AAA1A1AA1A1AAA1A1AA1A1AAA1A1AA1A1AAA1A1AA1A1AAAAA1AA1A1AAAAArAAbaBbA"uQh cASa1CQ1QQAARqaqaqAAAAAAD1AArqA2aaABA3A1AAA1ABAABBB BAr1br1qqArBAQQQQ1QQQQQAAQ!Urr1AARAAsavAaADv0A"srA2aaA2qrAAAABB!AxtTrvhb4bsqBBABCBB2ABB"A5AB4q!ABFQA11111AC"rLsq!QA!QAAAq1aQaQArqArA21AABD%s2QAAAAAA AAAsQA;A1AQAs2QAAAAA1:AtrrAr!BBtArArArAqAAqAAB2saAaQ11A 3aaaAqQCA 4BAAA1AAAaB3r2!AaAAqQA1a1aA111A11111A"A!As1Asababar1abbBAArQfRAAraqAar1br! UrAAB4AA2R1AAR1AAg1AAAqaqAaAAqAqABAAqBBB22b11A2A"QAAsraBrqArQRAAt1aaB223B%9CBA4qAqArr21A1a1AA1211A2A11111A"A"A2A1AbQArRrQW_ rBB5q2 At"BAqAAsT1QARB5qA1abAAAAAAArQ$sABrBsarAA3r2AaAbaA1!!AABSAqaqa3q2qQQQAAA2qs!A!ArcaAAAAAAAArrr1AAAA2q!Aq1AA2q2AA2AA2AA2AA2AAcrRArAAACr%1!rAQaqAaaqAAQABAQQaAAdaA!!A&1AcbaAQAAAQAAqaQAAArQAAAqaQAAArqAaBA4qcaCTABaqAaaqAAAAQQaAbaBAAAbaqAqAA1!1QARar" !QA2AABbaBAaaqArRQqbaBD4AaaqaaAaaqaaB3AaaqaaB3AaaqaaAaaqaarr1QAC2actc3Ar#aARtQARCArC2AAp1q2qAQ3b"AAbACAAQA2"AB2r 2qqRBrrBrQ@aXrqQqABrArAraC3qAqAqArr21A11qB12111A2A11111A"A"A2A1AbQAttQbARAAkv !vBB32Ar#aAArB$QrqrqAAAr1Q!AArC221A2qqqAAA3qAaQQAQA2qrQAA3rAAAr#asA r"qAAB21tQ1#SrA314q!AsaqaArbAA"A[r"QAsABqsAQAvEBBrAAAAbaqAqAABaAbAARAAsAAB@r ArgAqACA2qAaaA!AaBB!AAABAABAA#aaaAa!aABAbaQA"bAbAbAAAAB3qAAqAAB24A"111111ABAA1A!AAA2AA2AAB111111AuqB3A#a&122!a22Q2!2QBB21#!QQ!1!1aa!A bA2B3"AbaatrVB"A"{AB3B%1ARAsAA1A1AAA1AAaABAAAAAABAAAAAAB1A2BA1A5QAqAQARA2Q!AAQA11!AqABCA2QBAQAAA@!ARAA12GAAbbbbqAqAA1A1A1AuA!Ab!AA1A1A1ABBbarv2aar!BbaBAB2RA1saACaatrRB"A"rAB3B"21ARAsAA1A1AAA1AAaABAAAAAABAAAAAAB2BA1A5AQA!AqAQARA2AQ!AaAAQA11!AqABCB2QBAQAAAB!ARAaAQ2AAAABbbbqAqAA1A1A1AAbRrArb"quAAqA2qA1aA1aAB!11rADbaRwaar!S1Q11rCBbaDD3taA"A"A3aA22SAq%1ArQ!Ar2rBCrBAbaqA42r11ArAr11A"baBaaqaaAArB2qAAAA2pd;_vP j b l 1V GF  ! !' 7'(3 "(nE ozzN{a q{}g3}ey,|94}>AbV%XPN cƶ  Ƹ! + ѺI uX A[ g#i z #A [  ). Rfl Rؚ$ 8@&%G)̟K ͭ%kXO\< T&TC IVA Crdito Fiscal T T T- T T T T %Ccostos Qcostos   J( T C yh1\tmp\ N CDNNCQ\tmp\  TC %Cproveedo Qproveedocodproh1\tmp\CCCN NNNNN N!N"N#ND$D%C&C'N(N)C*N+N ,N-C.C/N0N1N2N3N4N5N6C7L8N9C:C;C<N=C>C?L@NACBNCNDNENFCGN HNINJNKNLNMNNNONPNQNRNSNTNUNVNWCXNCYCZN[N\C]Cd^N_L`CaNbCcC(Q\tmp\& d%Ccom_oper Qcom_oper%Cmotivos Qmotivos%Cpro2 Qpro2%Ccompras AQcomprascomprob%Cbienes yQbienescodins%Ccccomp QcccompfechasubFkG((fechasub?Tm2causa#'1'.and.causa#'2'.and. !('ANULADA'$des_prov)%nD #Tmm and pro2.subd#[N]HY 4  o bTmmQ.and.(cccomp.subd#'N'.or. (cccomp.iva_com+cccomp.iva_nc)#0 .or. cccomp.imcom1#0)  o* ITmm8.and.(cccomp.iva_com+cccomp.iva_nc)#0.or.cccomp.imcom1#0 24 HI   p :Tmm).and.fac_com#'000000000000'.and.causa$'c' p ;Tmm*.and.fac_com#'000000000000'.and.causa$'Cd' 2 ,Tmm.and.fac_com#'000000000000'H/ .  qa Tmm.and.causa='C' q Tmm.and.causa='d' q Tmm.and.causa='c' q Tmm.and.causa$'WT' q$ Tmm.and..f. 2. "%rCX sCX %t KTmm:.and.val(xdpro)<=val(cod_pro).and.val(cod_pro)<=val(xhpro)  7Tmm&.and.xdpro<=cod_pro.and.cod_pro<=xhpro%Cu H  uT &Tmm.and. Proveedo.pais>1 u *Tmm.and. Proveedo.pais=xdpaiG-(v%n FgG((codproFkG-(vgset filt to &temp1 TwCCkfkk%C=O>C [%k9 TC8?  Tk9 >9%k9 X>k9%kTkk   T T'TkkkvCkZ0TkkkvCkZCkZ T- T Tz< Ta C T(zTC%  k8 Ckk!kd kd kd kd kd CkS k6  k [ k9WB k_   CLa CkOP CCkZCP CCkZ6 de C.5 tiene diferencia en el IVA terico vs registrado !!!C Suspendo?aFO>]BERR: Diferencia en el IVA teorico vs registrado !!! No se exporta.T{{%k Tz T(z|%T _9TCkk!C TTC%kk!j(z%C 5TCkk!!%zz f5TzCzkk!Z%Ck8C B-6 k8 k9E  (zT T T T T T T T T T T T T(zg'%EC T(w#%CxC-TxCxC6TxCxC`TxCxCkk!"Ckkk! 6!%w Tww!TxwC!TxwC*TxwCTTxwCkk!"Ckkk! 6Hc# C%@xTC%Ck\ tTC CTC%Ck\ TC CZTC%Ck\ VTC CTC%Ck\ TC# C@DTC%Ck\ @TC 2cTCF T T T Ta(z> C%C%T/%%CCC8\TCCCZ #TCCC ZTC TC!> k!!k!%E @TCkk!kkk! 6@TCkk!kkk! 6@TCkk!kkk! 6@TCkk!kkk! 6@TCkk!kkk! 6 >; T T TT"TkkkB%k8k8 k9E  k8 #!T T T$%k8 k8 ! T TT T TK%Ck8C 6 k9BW  k8 $" TT T T T5>*'>"k/k/013k34k45k5Bk0Ck1Dk23>2k0k2k3k4k5kT?>HIJKLM5>NOPQR>:Ck0A6Ck1B6Ck2C6Ck4D6Ck5E6CkTF6Ck3G6T C k0T C k1T C k2T C k!T C k4T C k5T C kTT C k3%k/`% >< Ta>8k8%%S kv & C%k8&&% Cproaux+ %>8 &>8I>#kk$k|%kv.Ckv0  S S k.6-Ckv0  S S k-6&Ckv0  S S C&66CCkv0  S S C&6?Ck9Ma-Ck9 C8 ?-6-66@CS k@ k@@6TkTk[[\k\_k_`CkSSINO6aka>bkb%Cb (Cbcostoscodigo>c %C6 )%k8(>6 Del Exterior )>6 No Determinada%kV)^>UCkkk 6VkVXkWCkV>Gk%k)>kP *>kO>=C8->>C8a>AC@>EE>FCE >Z% .%k+ T T(%Ckk|+F T-+C+ Gk +%+:%kk! +yrborrar7Ck kk6kk|kk!H  .FeG((opago Ek%C4q- T T(%Ceem-F T-+C+ Ge i-%a-:%kk! ]-yrborrar7Ck kk6kk|kk!H .rborrar7Ck kk6kk|kk!No existe el PagoFkHF& C$d C%.TCa>F%.$& 6C(\tmp\ . & C(\tmp\FG-(%+K('"oborrarXproveedo %vQ$Q$ C89?C<*C<# 66Q'Q'Q'QQ*QQ Q HQHIQIJQJKQKLQLNQNOQOPQPQQQRQRMQM!Q!;Q;"Q2Q:Q:#Q#UQUVQVWQWXQX%QCCC. ..6CXQ.-Q-QQ6Q6=Q=>Q>?Q?@Q@AQA3Q3BQBCQCDQDEQEFQFGQGTQT4Q45Q5Q9Q9YQYZQZ]Q]Q[Q[\Q\8Q8"CQ^_Q_`Q`aQabc$borrar1%Cc G3C{F.(\tmp\rpt_cm_iva_comprasQRQTC \h1\tmp\NC(NCQ\tmp\%{4^rborrar1#Asientos de IVA con tasas invlidas(w06 %a,6%Cx5 rborrar1Cx Total IVA CCx por asientosCCx999.99_%6CCx Cx6C Cx <(Base Imponible = CCx999,999,999.99_)6 (6Trborrar1Cx No GravadoCx%C 6rborrar1cTotal IVA No ComputableC CF@Debe deducirse de la suma de los totales de IVA de cada alcuota6Qrborrar1dTotal compras a ExentosYrborrar1eTotal compras a Monotributistas]rborrar1f#Total compras como Consumidor FinalOrborrar1Total Percepcin IVA [rborrar1Total Percepcin GananciasC (G)brborrar1!Total Percepcin Ganancias AduanaC (A)\rborrar1Total Percepcin IVA AduanaC (B)arborrar1 Total Percepcin Ingresos BrutosC (C)Yrborrar1Total Impuestos InternosC (D)Mrborrar1 Total I.T.C.C (E)Prborrar1Total RedondeosC (F)& 6(\tmp\rpt_cm_iva_compras_resumenQRF 2(!\tmp\rpt_cm_iva_compras_controlesFQ \tmp\.dbf \tmp\.idx \tmp\.cdxFQ \tmp\.dbf \tmp\.idx \tmp\.cdxF Q \tmp\ .dbf \tmp\ .idx \tmp\ .cdxBUXVERSION_ACTUAL XCUENTAIVACHECKXERROR_IVA_ASIENTOSXERROR_IVA_ASIENTOS_ACCXMALPRN_RESPRN_FFPRN_LENPRN_WIDCOSTOSARRADIBORRAR7NEWFILEP_LOCALCOMPROBCAUSAFECHA SUBDIARIOMAYOR COMENTARIOBORRARPROVEEDOCODPROTIPOTIPONUMNUMEROBRUTODESCRBASECFEXIVAIVA_NCIVANOITOTALFECDGICLIENTE PROVINCIAMONPERCENTAGENTEEXENTOPEDIDOIMPINTCUITNOMBREIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5IIII2PROVDESCIVADIFIVACATLETRA CODRETPERCODIVAMALIVATXTIVARESMTIPOIVA TIPOIVATXTRGANANARIVAANAPIIBBCITICITI_TXTASIENTOIVA_105IVA_21IVA_27IVA_5IVA_25IVA_OTROBASE_105BASE_21BASE_27BASE_5BASE_25 BASE_OTROREDONDEOTOTALEXTMONEDAMONTXTCAMBIOTIPO_VC ALICUOTAS TIPO_AFIPDESPACHO ERROR_EXPPERIVA NOIVACTRLDIVISASFCE_TIPOCENTRODCENTROIDCOM_OPERMOTIVOSPRO2COMPRASBIENESCODINSCCCOMPFECHASUBTEMP1 P_PROV_SUBDXDSDIXDTIPXDCOMXDPROXHPROP_PRONUMXDPAICOD_PROMAXIVAARR_IVAXDFEC MAXIVAVARXERRORES_CITI_COMPRASFEC_DGIXHFECPAISXTIPOCCODIGOFCFAC_COM2TOT_COMDES_COMXLETRA FN_GETLETRAPER XALICUOTASXIDFAC_COMOPXIDFULLPAGOXIVAPERXC_TOT ARR_IVAVARXNUEVA_VERSIONDETALLE XXACC_IVAZP_DOSP_CODEMPIVA_COMDESC1DESC2DESC3DESC4DESC5DIVCOEFICIMP_TRIMENSAJESYS_MOSTRAR_SCREENXAJP_CM_IVA_COMPRAS_VERSIONXIVA_105XIVA_21XIVA_27XIVA_5XIVA_25 XIVA_OTRO XBASE_105XBASE_21XBASE_27XBASE_5XBASE_25 XBASE_OTROZZ XIMPONIBLE XNO_IMPONIBLEXCODIVAXOKP_IVA_CM_NC_VERSIONXEXXCFXNOIXBASEXEXENTOGUIAP3337CONTADO P_PROVCONTPROV_AUXPROAUXCATIVADEUDAFEC_COMTARJETADES_PROV INSCRIPCIOPROVINC MM_MONEDAASIDIA OLOCALIZACIONIVA_CATEGORIA_PROVEEDORES_TEXTO#IVA_CLASIFICACION_PROVEEDORES_TEXTO$IVA_CLASIFICACION_CITI_COMPRAS_TEXTOXDCTRXERRXERRMSGBUSCAR_ASIENTODIARIOGXENCCOD_CUEDEBITOCREDITOOPAGOASIENTOSXFILTIVA XCATIVALOCXDIVAINXDPRVACC_EXACC_MONACC_CFACC_PERFMT_CPBTNOIMONNOGRAVRG3337 RETENCIONCODIGOORDENBORRAR1XTIPO_EXPORTACIONP_DEVCITI_COMPRAS_Y_VENTASTEXTOIMPORTETEXTO2XDFIN04%CCg=BC %CCg% JC3Debe existir alguna cuenta marcada con el atributo:C  BQC:No debe existir ms de una cuenta marcada con el atributo:C  BUXATRXMSG XOPCIONALATRCANMENSAJE&%C!B&TC IVA Crdito Fiscal%bB T T co_funciones%CB*TClIVA Percepcin RG 3337% BT CnIVA 27%% ?B1T CiRetencin Ganancias R.G. 3543% B)T ChRetencin de IVA 3431% B&T CmImpuestos Internos% BT CI.T.C.% EB)TCPercepcin Gananciasa%2ocuentasCo\Sctasib%Cejercon QejerconF T,~    Ta%X%CconceptolF ~F'%CC \concepto.dbf0QC \concepto%CdiariogF F&%CC \diariog.dbf0?QC\diariog T T-% 6C Ejercicio C no encontrado !!!  FG((asientoTFG((fechaG-( T-F~C\SR T COC!F # C!C!C!C a!C !C !C !C !C! TaF ~C!FFQBU"XDCOMXIVACHECKMSGXIVA_NC CUENTA_IVA_COMPRAS_NO_COMPUTABLE CO_FUNCIONESMENSAJEX3337X27X3543X3431XIIXII2XIMCOM5COD_CUECUENTASATRIBUTOCTASIBEJERCON OLDDIARIOGXDFECHASTAXHFECDESDEXENCEJDIRCONCEPTODIARIOGASIENTOFECHAXIIBBXXXREGPROCESAR_CUENTA 4T asiento#-1H3 dT .and.debito#0 T.and.credito#0"%CX CX W%IT8.and.val(xdpro)<=val(codigo).and.val(codigo)<=val(xhpro) S5T$.and.xdpro<=codigo.and.codigo<=xhpro%)T.and.fecha<{^2002-11-01}Fset filt to &temp1 *~CC C C #C conceptoasiento:% S#C\S   T-'%CX P F E&%S S   TC4T.t.%C Y%!'T.and. Proveedo.pais<>1 U*T.and. Proveedo.pais=xdpai%,T.and. Proveedo.ivacat=xdiva)% .t. C F G((idH JTLQ=TCCC[C/C[= 2TAS*TCXC @z 9999,999,999_EC %C4 > !>""##T$%& T' T( T)HD ; C\S * T(($+(, %C+-T-+%T-+C+-$!%,+ }T,,T-,T-,T-,$) ./ 0 %0>11$T2C2$ >33$ >4+(,%C+-*%T-+C+-$ET-+C+-C*$d* 6!%,+ TT,,T-,*T-,$9T-,C*$d* 6%*eT55CC5  - 6CC @z 999,999,999_/CC6@z 999,999,999_T77$-T'C*$d* 6H& i  *%@f >88$>99' * >::$>;;' * ><<$>==' * >>>$>??' *@N >@@$>AA' 2i >BB$z>CC86C:6C<6C>6C@6 D >EE$ F >GG$>HH$$>ICC$A6JT2C2$ K >LL$$>ICC$B6JT2C2$ MR >GG$>NN$$>ICC$C6JT2C2$ O >GG$>PP$$>ICC$D6JT2C2$ Q: >GG$>RR$$>ICC$E6JT2C2$ S >GG$>TT$$>ICC$G6JT2C2$>  U VWC *C C $ W6W6XC Y6ZC  Z6[CC  Z6\]L(>^ _L  %C>``aan>bC`cdeCa-cfgCaacfbC`cdhhiChcj% C$;>kk(ll'mm)nn'=>nklm3EopqGTPRL %r s % AyUrborrar7!] tu L %& Fv%wO G((pagoEC!,  G((op ECC[,:%vz%&v1%& rborrar7!] tu L vzv1%&CwOCP C! OP 6BU{XCUENTAL27TEMP1XDTIPXDPROXHPROP_PRONUMDIARIOGCOD_CUEFECHAXDFECXHFECASIENTOSUBDCONCEPTOTIPO2CUENTASATRIBUTO XCONPROVEEDORCODIGOPROCLIPROVEEDOTARJETACONTADOXFILTRO_PROVEEDORXDPAIXFILTIVABORRARIDXXTIPO XXCOMPROB COMENTARIOTIPOCOMPROBBRUTODESCRXIMPORTEDEBITOCREDITOXBASEXEXENTOXMONAUX1NZZMAXIVAARR_IVAXIVAX27XIVA_NCIVA_NCARRADIIVACODIVAXERROR_IVA_ASIENTOSPASEXERROR_IVA_ASIENTOS_ACCIVA_105BASE_105IVA_21BASE_21IVA_27BASE_27IVA_5BASE_5IVA_25BASE_25IVA_OTRO ALICUOTASX3337IVANOIX3543IMCOM4RGANANA CODRETPERADD_RETX3431RIVAANAXIIBBPIIBBXIIIIXII2II2XIMCOM5IMCOM5FECDGICLIENTENOMBRECUIT INSCRIPCIO PROVINCIAPROVDESCPROVINCCAUSANUMEROTIPONUMTIPOIVAIVACAT TIPOIVATXT OLOCALIZACION#IVA_CLASIFICACION_PROVEEDORES_TEXTOIVATXTIVA_CATEGORIA_PROVEEDORES_TEXTOIVARESCITICITI_TXT$IVA_CLASIFICACION_CITI_COMPRAS_TEXTOEXENTOBASEMONTOTALIMCOM1IMCOM2IMCOM3XDCTR XCUENTAIVA SUBDIARIOMAYORCCCOMPCAUPAGOOPIVA_COMq%C W%C@BC S B j BUXLETRA CODRETPER4%KEN2 B %LY B }BCUXCOMPROBXIVACATXLETRAXMP_EMPTIPONUM FMT_COMPROB4H'' M  \TM#  ATEBW %AEB T %TTA %WTB TA CCTC %Cw T TB  BW TB 2T  BUXLETRAXIVACATXMLET45 B%C=ABCpTC=TC[ TC%- TCC-=TCC-[$TC00000CCCg ZR ]%CC> =T00000 YTC=%CgTCC 'TC00000000CCCg ZRB -UXXIVACATXLETRAXMLETSUCNUM FN_GETLETRA%Civa_com 3Qiva_com!TCiva_comop T%  FG((comprob E)+C+   CZ '%  CZC Z FB%   E  F T `TFTd %  Ta(%C%1N-TCd %TC %TC%TC!% TT%1@!Td T |TTH ? TaF G((op E+C+  .T(%CCTCC c6%TC!% &TT7TC c6THFG((comprob E)+C+   CZ $'%  CZC Z F#% C  T TFTd % @ Ta(%C%TC!% TTTTHT% T(%CT T  TBU XNUEVA_VERSIONIVA_COMCCCOMPOP XALICUOTAS NOIVACTRLCOMPRASCOMPROBXIDFAC_COMCAUSACOD_PROPAGOXIDFULLIVACATLETRAXXIVAPERIVAPERXC_TOTTOT_COMC_IVAXIVAPERZ MAXIVAVAR ARR_IVAVARACTUAL XIVA_TASATASAIVADESPACHOIVA_NCACC%%C U@C3No existe la carpeta AFIP y no puede ser creada !!!B!G(\citi_compras.txtG G F$~  TH 84 C =FC A01 C =ND AG02 C =NC Aq03 C =FC B06 C =ND B07 C =NC B08 C =FC M51 C =ND MC52 C =NC Mm53 239 T%C \$ 000000000000C  \ %C0000CCCOZR 000000000000C CC */CCC - =C =4CC0 QCCCCZ. RC0 QCXC0 QC T -GG("C\citi_compras.txtBUAFIP_DIRMENSAJE P_DIR_AFIPBORRAR1IVAIVA_NCCITIXTIPOPROVEEDOCOMPROBFECHACUITNOMBREXINICIALNO_CTRLZ3 cm_rpt_iva_comprasJ BUOFORMCM_RPT_IVA_COMPRAS{ TC%CxdfecbDKT T-TC BUXDFECOFORM XNO_RELEASE OBTENER_FORMXARCHIVO EJECUTAR_SQL TCW%Cproaux =QproauxF%S} G((cuitEC =  G((op E F%Cproaux4 B  B BUXAREAPROAUXPROVEEDOCONTADOCUITCCCOMPOP PROVINCIA 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxcm_rpt_iva_comprasT\xchgTTTT C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLATC %Cempresas hQ \empresasCempresascodigo G+(listadosT CC %CxdprobCTCX%CxhprobCTCX cm_rpt_iva_comprasJTTTTT T"T\compras y ventasT\iva'T\tmp\CC]@.xls'T\tmp\CC]@.pdf%CkTT-Ca%C0gx(\C @ - CCiZ-C00CCCHZR+ - compras y ventas - compras - reporte.pdfe(\C @ - CCiZ-C00CCCHZR - compras - reporte.pdf %CTTCTaC%C0v(\C @ - CCiZ-C00CCCHZR) - compras y ventas - compras - excel.xlsc(\C @ - CCiZ-C00CCCHZR - compras - excel.xls  C < TBU!XERRORESXTABLAXDFECXHFECXDPROXHPRO XTIPO_REPORTEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCROEXCCM_RPT_IVA_COMPRASXDNUM8XERRORES_CITI_COMPRAS L_DIR_AFIP P_DIR_AFIPL_DIR_AFIP_IVA XARCH_TMPP_LOCAL XARCH_PDF XPDFARCHIVO XPDFPROMPTBTNPDFCLICK XLS_ABRIR XLS_ARCHIVO AUTOMATIZADO BTNEXPORTARRELEASE& BCC0QRUXTXTXLARGO%8BC %+BCCCCZ. :B-CCCCCZ.UXIMPORTEXNTERO XDECIMALES FN_IMPORTE_OKFN_CEROSTCfixedvTCdecimalsvG G ("TCC0QCCC8ZRTC8 TCC8ZTCC0QCRset fixed &old_fixed G ( BUXIMPORTEXENTERO XDECIMALES OLD_FIXED OLD_DECIMALSXXENTERO XXDECIMALES~ Ta(C>n'%C\ 0123456789 j T-! BUXTXTXOKZH 09 B0003 105\ B0004 21~ B0005 27 B0006 5 B0008 25 B0009 B U XALICUOTAb4%C \@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigo5G+(listadosTCC %Cidx03 Qidx03T C]h1 \tmp\  CCCCCCCCCQ \tmp\  CFS T">ERR: C%Ctmp_alicWFQBUXERRORES_CITI_COMPRASAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRIDX03 XTMP_ALICP_LOCALTCPVNUCDCUNGALIVDSTMP_ALICEXPORTACION_COMPRAS_Y_VENTASBORRAR1 ERROR_EXPFOREXPORTACION_IVA_DIGITALxF>>C > C > >C%*CC\ICIDECTRZF >:>CCc6 TC>5>CCc6 FBU XBASE_IVAXIVAXIVAIMPXBASE_IVA_IMPORTACIONTMP_ALICTCXTIPOPVFN_CEROSXPVNUXCPBTCDXTIPODOCCUXCUITBORRAR1 TIPO_AFIPDESPACHODSNG FN_IMPORTECAUSAXIVFN_IVAALIV T(C>x%%C\ 1234567890tTC\ BUXCPBTXXZ."T\compras y ventas 6  @TklklklwG(\C@ - CCiZ-C00CCCHZR0 - compras y ventas - compras - comprobantes.txtG G F T ~F T-H" C 4 E  R>EADV: Factura del exterior, no se exporta al aplicativo (no es error). C /h>CCC  6?ERR: El comprobante no tiene CUIT ni otro ID !!! No se exporta.T   CC  e>CCC  6<ERR: El comprobante tiene CUIT incorrecto !!! No se exporta.T  A +CC\ICIDECTRZF >CCC  6;ERR: Despacho incorrecto o no exportable !!! No se exporta.C .Debe tener IC, ID, EC, TR o ZF en su interior.T   2'% TaT >CT T TC000CCZRHh~ 5%CC\ICIDECTRZFT066 T099T80 R%Cd%T099 ?T098T80 ET099T80 CH TT081 WT082T80 d(T80 cKT80 L~T099T80 >%CT001c>CCC  6:El tipo de comprobante no es valido (Corregido a 0001) !!!  T% P H] C=LQT C[%C- T C C- \ T 0 2T C\%C ! 6T 1 T%C gjT 1 TH3  C=LQ T"C[%C-"T"C"C-"[  T"C"T"C" 23 T"C \%C"! g T"1 TH| L   `>CCC  67El punto de venta no no puede ser 0 (Corregido a 1) !!!  L "T"C#C00CCZR% z>CCC  6DEl punto de venta no es vlido (Se cambia el numero de comprobate a ") !!! H >CCC  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a ") !!!  Hk   H 0 CC\ICIDTRZF T 0T"0& CC\ETEC T 0T"C \o>UDespacho de Exportacin: Se desconoce como exportarlo (Corregido a tipo 099 y numero ") !!! 2 T 0T"C \:>-Despacho incorrecto, no se puede exportar !!!  T 0T"C \%C"! T"C"$ Td>CCC  6.El numero de poliza no es valido (Corregido a ") !!!C %C"%MC*CC\ICIDECTRZF CX6 "T&CCC -g' &C( T) T* T+ T, T- T.H`T *CC\ICIDECTRZF /  V%0}T)0d%@ %1T*1d %2T+2d %3T,3d %45T-4d@ T.)*+,- 2`$%C.  ? T. T) T* T+ T, T-i>CCC  6@Sin control de IVA vs base imponible, revisar si corresponde !!!6C5.Cc6 '%6P>CCC  6'El redondeo se toma como no gravado !!!T76 T8%9+ T8 T71C7Cc6 '1C8Cc6 '6C:;Cc6 '5C<=Cc6 '1C>Cc6 'C '1C?Cc6 ' T@A TBCH7 B!dcA vH7B  TDPES T@! B EABC TDPES T@c>CCC  6:Comprobante local en moneda extranjera, pasado a Pesos !!! 2FF #B TDGF D(CCB@6'% BCW TH R THI%N THCH'H~2 9 TJC@ *CC\ICIDECTRZF TJX -TJE- 56 6  hTJN 2TJ0 J1C9Cc6 '1CKCc6 'C0 QCC 'C )%9C006082 *%6  (C60L%0CM1050)L%1CN211*L%2SCO272+L%3CP53,L%4CQ254-L TR-4%C ADV: ERR: >ADV: GG(xC\C@ - CCiZ-C00CCCHZR0 - compras y ventas - compras - comprobantes.txtS%C q_erroresQTIoborrar1 CQU U q_errores%  ~S>ERR: Comprobante-Cuit duplicado !!!T T  T   %C q_erroresQTFW -CX%C4gtG(\C@ - CCiZ-C00CCCHZR- - compras y ventas - compras - alicuotas.txtG G FW~CX Y Z [ \ ] ^ _ `C GG(uC\C@ - CCiZ-C00CCCHZR- - compras y ventas - compras - alicuotas.txtSFW -CX %C4G(\C@ - CCiZ-C00CCCHZR: - compras y ventas - compras - alicuotas de despachos.txtG G FW~CX j X ^ _ `C GG(C\C@ - CCiZ-C00CCCHZR: - compras y ventas - compras - alicuotas de despachos.txtS C Atencin !!!C C C C KEstos no son los archivos que se suben al IVA DIGITAL en la pgina de AFIP.C C C C 1Los que deben subirse estn en la carpeta IVA !!!9\ATENCION - ESTOS ARCHIVOS NO SE SUBEN AL IVA DIGITAL.TXT #BUa L_DIR_AFIP P_DIR_AFIPOLDCPBTXEMPRESAXHFECBORRAR1ACCXES_SOLO_IMPUESTOS ERROR_EXPLETRAIVACATCUITXERRORES_CITI_COMPRAS OLOCALIZACION CUIT_VALIDAR TIPO_AFIPDESPACHONOIMONMONCFEXNOGRAVBASEORDENFECDGIXTIPOXTIPODOCFCE_TIPOCAUSATIPO_VCXERRCOMPROBXPV VALIDAR_NUMXCPBTFECHAA_NUMFN_CEROSXCUIT FN_IMPORTENOMBRE XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACION NOIVACTRLIVA_105IVA_21IVA_27IVA_5IVA_25TOTALREDONDEOXNOGRAVXEXIVARIVAANARG3337RGANANAIMCOM5PIIBBIIXCAMBIOCAMBIOXMONEDAMONEDAXMONXLETRAIDX03FCE XALICUOTAS ALICUOTASXTIPO_OPERACIONII2 FN_ALICUOTASBASE_105BASE_21BASE_27BASE_5BASE_25XINICIALNO_CTRLZ Q_ERRORESCNTFORTMP_ALICDSTCPVNUCDCUNGALIV1 T TT\iva C  M T T/listadosC Iva Digital  (,Tklklkl% MUG(\C @ - CC iZ-C00CCC HZR - compras.txt [G(\C @ - CC iZ-C00CCC HZR - importaciones.txtG G F T*~C  6`*F T- T-%ERR:P TaT2% C  E  h>CCC  6?ERR: El comprobante no tiene CUIT ni otro ID !!! No se exporta.T Ta=% CC   E  e>CCC  6<ERR: El comprobante tiene CUIT incorrecto !!! No se exporta.T TaI%  +CC \ICIDECTRZF >CCC  6;ERR: Despacho incorrecto o no exportable !!! No se exporta.C *Debe tener IC, EC, TR o ZF en su interior.T Ta(%  E  VR>EADV: Factura del exterior, no se exporta al aplicativo (no es error). Ta4% !  P>CADV: Solo por impuestos, no se exporta al aplicativo (no es error). Ta% \*'%/ TaT >!C"T# T$ T#C000CC%ZRH 15%CC \ICIDECTRZFT#066 T#099T$80 %&CdiT#099 T#098T$80 ET#099T$80 &CIH6 TT#081 W6T#082T$80 &dlT$80 &cT$80 &LT#099T$80 >'#%C#W T#001c>CCC  6:El tipo de comprobante no es valido (Corregido a 0001) !!! # T(% H F  C)=LQ' T*C)[%C-* T*C*C-*\ # T*0 2F T*C)\%C*+ z T*1 T(%C*g T*1 T(H w  C)=LQX T,C)[%C-,, T,C,C-,[ E T,C,T,C, 2w T,C) \%C,+ T,1 T(H  (3 `>CCC  67El punto de venta no no puede ser 0 (Corregido a 1) !!! (( "T,C"C00CC!ZR%( z>CCC  6DEl punto de venta no es vlido (Se cambia el numero de comprobate a ,) !!!  >CCC  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a ,) !!! H  HH D0 CC \ICIDTRZFT*0T,0& CC \ETECT*0T,C  \o>UDespacho de Exportacin: Se desconoce como exportarlo (Corregido a tipo 099 y numero ,) !!! 2DT*0T,C  \:>-Despacho incorrecto, no se puede exportar !!! T*0T,C) \%C,+ T,C,- T(d>CCC  6.El numero de poliza no es valido (Corregido a ,) !!!C*.C,.MC*CC \ICIDECTRZF CX6 $"T/CCC-g0 /C1F T23 T45HG 4! &dc3 vH7B  6NO tT7PES T2 2F8 #4 T79F T: T; T< T= T> T? T@VTAC%@ C D@ 6 EBC &c6NTFC C D@ 6 EBC &c6NTGC C D@ 6 EBC &c6NTHC C D@ 6 EBC &c6VTIC@ C D@ 6 EBC &c6TJAFGHI'%C E2 TJn-%CC E2 TJ TKC 2 TJTL+KL TLL%FTFFCK{Gz?TKKCK{Gz?%K!%A?TAACK{Gz?TKKCK{Gz?%K;!%GTGGCK{Gz?TKKCK{Gz?%K!%HTHHCK{Gz?TKKCK{Gz?%K!%ITIICK{Gz?TKKCK{Gz?%K!%L%CError de loop Suspendo?aM jCDiferencia de IVA CCCC E2 TJ Z en CCOOP.CCPCPCCLLXX666 CCDZ de C1$ !!! Consulte al soporte tcnico !!!NC Suspendo?aMT@Diferencia de IVA CCCC E2 TJ Z en CCOOP.CCPCPCCLLXX666 CCDZ%A"T:CAd%@ T%FT;CFd T%G T<CGd T%H:T=CHd T%Is"T>CId@ TTO:;<=>T%*CC \ICIDECTRZF P  T?:;<=>T?? 2 %C@ F 2>CCC  6ERR: @T TaTQC2 T TR%OQ? %CQO TKQO %-#TRKcTQQK TL+KL TLL%;T;;CK{Gz?TKKCK{Gz?%K!%:GT::CK{Gz?TKKCK{Gz?%KC!%<T<<CK{Gz?TKKCK{Gz?%K!%='T==CK{Gz?TKKCK{Gz?%K#!%>T>>CK{Gz?TKKCK{Gz?%K!%L%CError de loop Suspendo?aM CDiferencia de base imponible CCCQO Z en CCOOP.CCPCPCCLLXX666 CCDZ de C1$ !!! Consulte al soporte tcnico !!!NC Suspendo?aM:CS2 ?C &c6 0%T%UP>CCC  6'El redondeo se toma como no gravado !!! O>CCC  6&El redondeo no se registra en AFIP !!!#TVCUT6 TW5CV2 C &c6 0%  5CW2 C &c6 0  C 0>CX2 Y2 C &c6 0>CZ2 [2 C &c6 05C\2 C &c6 0C 05C]2 C &c6 0~TRRCS2 T?CV2 TCW2 TCX2 Y2 TCZ2 [2 TC\2 TC]2 TF 7C20%BCW" T^  #wT^CA6CF6CG6CH6CI6%# T^C^0HL#Q$2   #T_C@ *CC \ICIDECTRZF #T_XQ SCUT6CUT6  9$T_N 2Q$T_  _5C 2 C &c6 05C`2 C &c6 0%#060 %CCC- C 9%C0 QCC 0C TRRC`2 T5% C#006082 _N 6&<%CUT6  2&FC 2 CU T62  2 0a.%bCc A-6 &C:105AaTRRC:TA.%dCc F-6 'C;21FaTRRC;TF.%eCc G-6 i'C<27GaTRRC<TG.%fCc H-6 'C=5HaTRRC=TH.%gCc I-6 4(C>25IaTRRC>TI+Th E2 AFGHITRRh Ti-4%C ADV: ERR: (>ADV: %^N*%CRTJ*+% 6SIR ףp= ? E)"CCorreccin Suspendo?aM F*%R?)2>ADV: Control !!! (CCR Z) B*ACFalla el control (CCR Z) !!! Suspendo?aM?>ERR: Falla el control !!! (CCR Z) !!!T Ta X*GG(% +%M+VC\C @ - CC iZ-C00CCC HZR - compras.txtjaksys_zip\C @ - CC iZ-C00CCC HZR - compras.txt +T\C @ - CC iZ-C00CCC HZR - compras.txt ,%,\C\C @ - CC iZ-C00CCC HZR - importaciones.txtjgksys_zip\C @ - CC iZ-C00CCC HZR - importaciones.txt ,Z\C @ - CC iZ-C00CCC HZR - importaciones.txt%C q_errores!-QmIoborrar1)CQn)n q_errores% - ~-S> ERR: Comprobante-Cuit duplicado !!!)m) m T -%C q_errores".QmFp -Cq%C4/YG(\C @ - CC iZ-C00CCC HZR - compras iva.txtG G Fp~Cq#/ r s t u v w x yC GG(ZC\C @ - CC iZ-C00CCC HZR - compras iva.txtjeksys_zip\C @ - CC iZ-C00CCC HZR - compras iva.txtFp -Cq %C41_G(\C @ - CC iZ-C00CCC HZR - importaciones iva.txtG G Fp~Cq 0 q w x yC GG(`C\C @ - CC iZ-C00CCC HZR - importaciones iva.txtjkksys_zip\C @ - CC iZ-C00CCC HZR - importaciones iva.txtBUzXTOLERANCIA_IVAXTOLERANCIA_BASEL_DIR_AFIP_IVA P_DIR_AFIPOLDCPBT XEMPNOMBRE XEMPCUITSOLO DATOS_EMPRESALISTADOSSYS_MZZ_IVAXEMPRESAXHFECBORRAR1ACC TIPO_AFIPXES_SOLO_IMPUESTOSXHAY_ERROR_CASE ERROR_EXPXERRORES_CITI_COMPRASCUITIVACATLETRA OLOCALIZACION CUIT_VALIDARDESPACHONOIMONMONCFEXNOGRAVBASEIVAORDENFECHAXTIPOXTIPODOCFCE_TIPOCAUSATIPO_VCXERRCOMPROBXPV VALIDAR_NUMXCPBTA_NUMFN_CEROSXCUIT FN_IMPORTENOMBREXCAMBIOCAMBIOXMONEDAMONEDADIVISASXMONIDX03FCE XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACIONXMSG XXIVA_105 FN_IVA_METIPONUMEROIVA_NCXXIVA_21XXIVA_27XXIVA_5XXIVA_25XXIVAXDIFXLOOPSYS_MOSTRAR_SCREENMENSAJE XBASE_SUMADA NOIVACTRLXBASEXCONTROLTOTALREDONDEOP_IVA_CM_REDONDEOSXNOGRAVXEXRIVAANARG3337RGANANAIMCOM5PIIBBII XALICUOTASXTIPO_OPERACIONII2 FN_ALICUOTASIVA_105P_IVA_CM_NC_VERSIONIVA_21IVA_27IVA_5IVA_25XDIF_IVA_CALC_VS_REALXINICIALNO_CTRLZZIPEARSYS_ZIP Q_ERRORESCNTFORTMP_ALICDSTCPVNUCDCUNGALIV T%L TCCC Z.%CR0TCC>=%CR0TCC>=BC borrar1.iva_<  %SI%O[.oiva_com    .oiva_com     %O.oiva_com    .oiva_com   % > B % g BC GT$Ms de un registro para la alcuota CC Z !!! B BU XALICUOTAXTIPOXNUMEROXMSGXDIVISASXIVA_COMXIVA_NCCAUSAXALIC ARR_IVACOMIVA_MOIVA_COMOPTASAPAGOIVAcheckYEasientosFprocesar_cuentaNadd_retbdfmt_cpbtd fn_getletrae fmt_comprobgdetalleicitir obtener_formw ejecutar_sqlwprov_auxx exportar_1yexportar_siap_compras_y_ventasD{fn_ceros fn_importe fn_importe_ok validar_numJfn_ivaބciti_compras_y_ventas fn_alicuotasaa_numexportacion_compras_y_ventasJexportacion_iva_digitalͮ fn_iva_meb!AA Y!AA1AbAAAAq22A1!1A11A11111A"qAA!Aa1AA1rqAbq1baaaqAAAArQqAAqAAAbArArAAAsArAbArq1AarrB"A1AAQAAAQAAAArA1aBAA1BB1QAQAQAQA2QAQDBt2!AQ1AAB4Bq"!EBDDPQ 6W bARbbAABA $"AcAAbAbAbaQqbq1AAAAArq1AAAAAABArAAte"BvAAr>ArA2AAAAArq A!br!vArArAB1AAA2AAb1AA1AA1AA1AA1AA1AAb1AA1AA1B#1AqaqAqAqAaAAarrvrAqqAABrAB2r11A"QAAAsa2qqbAA!AqAAAraAbQsAsQAAA1A2AQQAAA1BbQAbbbC32A2AA2A2A2AB BBDrSrqQAR AAAABA3q#AA21aAAA2uq1aAAAAAq1AAA21"AEAq!!AAUAqA3q1Aurr$ArArQRQABAA1qAABAAr2QAAA1rABAxrr2ArAQAAA1ABAAqBhAAAB2AAaasAaA2BAArA!!Aba"B2q2qAQ3q!ArqAqAA2"AB22Ar#aAAqB"QrquQAAr1a1AArB222a1AA22Bqb"A4qqqAAA3qAaQQAQA3qAAAr#arA r"qAAB21rQ21A#SrA2qrQAA3!As1saatr""R tA1RA2RAHBOAABBBA1AAQAQARAAQAQA1"4!AF1aA2RQ!AABBBA"B6A1QA1QA1QA1AAEBc2A9AbRbq1qArbABq!1A!aAA2A1A1A1A1ABaABBbaA"1ABAvBaar!BbaRBuaar1Bba"AAB3RAs32QAbatqsA"AQA A!ABArA1RA2RAHBAAABBBA1AAQAQARAAQAQA1"4!AF1aA2QQ!AABBBA"tqqAraar21AAA21AAA21AAA21AAA21AAAB2QAb r HB3!A1A1A1A1!ADB#q!Aa21AAA21AAA21AAA21AAA21AAAB2QAA rCAP21AA2YbQaARbRrsdsABq!ARQb!AaUaAABBBBBBaA2$!AABBBEba21aAA1tABBA"1ABAuaar!BbaTBuaar1BbaAB2BqAAAsRBBABA"!qAA4 }|}}pBMX]zu.B0( ADX5H{;R?Mg@etkH{]Ztj}  rY *} S* w2* 2 %Q*-k+mT\l &CInicializando...G+(ListadosG+(Dey_funcG+( Dey_FiltersCproveedocodproCcccompop%CborrarFQT\tmp\Ch1 N C( C C CCCDDN N NQoTb!('ANULADA'$ccc.des_prov) .and. ccc.fac_com#'000000000000' .and. between(ccc.fec_dgi,xdfec,xhfec)H VTD .and. (ccc.p3337#0.or.ccc.imcom3#0.or.ccc.imcom2#0.or.ccc.imcom5#0) 5T$ .and. (ccc.p3337#0.or.ccc.imcom3#0) 6T% .and. (ccc.imcom2#0.or.ccc.imcom5#0)FG-(%CObteniendo compras...C Suspendo?aSELECT ccc.causa as causa , pro.cod_pro AS pro_cod , iif(pro.tarjeta="S" .or. pro.contado="S",ccc.des_prov,pro.nombre) AS pro_des , iif(alltrim(pro.cod_pro)#alltrim(p_provcont),pro.inscripcio, ccc.cuit) AS pro_cui , Comp_Tipo( strtran(stuff(ccc.fac_com2,1,2,""),"-",""), ccc.causa, substr(ccc.fac_com2,1))+" "+ccc.fac_com2 AS com_com , ccc.fec_com AS com_fec , ccc.fec_dgi AS dgi_fec , ccc.op AS op , ccc.pago AS pago , p3337 as per_iva , imcom3 as ret_iva , imcom2 as ret_gan , imcom5 as per_gan from cccomp ccc LEFT OUTER JOIN proveedo pro ON pro.cod_pro ==ccc.cod_pro order by ccc.fec_dgi,ccc.fec_com WHERE &xFiltro AND (ccc.pago#0.or.ccc.op#0) INTO cursor tmp ~ "% C rborrar     PERCEPCION IVA   "%  C rborrar     PERCEPCION IVA ADUANA    "%! C rborrar     PERCEPCION GANANCIAS ADUANA   !"%" C rborrar     PERCEPCION GANANCIAS   "FQ C#F& C ZCC$)(\tmp\rpt_cm_percepciones%%5 C&%%L Q.*BU'OESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHECK_OPENEDBORRARP_LOCALNEWFILETIPODTIPOCAUSAPRO_CODPRO_DESPRO_CUICOM_COMCOM_FECDGI_FECCOM_OPCOM_PAGOPER_RETXFILTROXDTIPCCCOMPCOD_PROPROVEEDOAVANCESYS_MOSTRAR_SCREENPER_IVATMPOPPAGORET_IVARET_GANPER_GANASIENTOSFULLXTIPO_EXPORTACIONPERCEPCIONES_IVAH  C%ABCYTFC %TWTTK TFC cTNC dTND 2TXX BUXCOMPXCAUSAXLETRAXTIPOCU4%KEN. B NBCUXCOMPROBXIVACATXLETRAP_EMP FMT_COMPROBf45%C=ABCcTC=TC[ H~  AT TA CTC$ C BW TB 2T %-TCC-=TCC-[#TC0000CCCg ZR %CC> T0000 TC=%CgTCC D'TC00000000CCCg ZRB -UXXIVACATXLETRALETSUCNUMC Suspendo?aF- %C4 JB%C @C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCC G( \iva\C@ - CC iZ-C00CCC HZR8 - percepciones iva de proveedores - formulario 2002.txtG G F~P$TCC=FCNCND %493 8267CCC =- =C*% CC[  C00000000CCCOZRC<TCC0000000000000000CCCZR.,*CC-[6C T-GG(C \iva\C@ - CC iZ-C00CCC HZRF - percepciones iva de proveedores - impositivas - formulario 2002.txtG( \iva\C@ - CC iZ-C00CCC HZR8 - percepciones iva de proveedores - formulario 731.txtG G F~ $TCC=FCNCND %493 267C =C*% UCC[  C00000000CCCOZRC<TCC0000000000000000CCCZR.,*CC-[6C T-GG(C \iva\C@ - CC iZ-C00CCC HZR8 - percepciones iva de proveedores - formulario 731.txtBUSYS_MOSTRAR_SCREENBORRARTIPOAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXHFECXOTROCOM_COMPRO_CUIDGI_FECXIMPPER_RETXINICIALNO_CTRLZF- %C4 3B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCC }G( \ganancias\C@ - CC iZ-C00CCC HZR, - percepciones ganancias de proveedores.txtG G F~ #$T CC=FCNCND 493C =C*% h#000CC[=CC [=  C00000000CCCOZRC<TCC0000000000000000CCCZR.,*CC-[6C T-GG(~C \ganancias\C@ - CC iZ-C00CCC HZR, - percepciones ganancias de proveedores.txtBUBORRARTIPOAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXHFECXOTROCOM_COMPRO_CUIDGI_FECXIMPPER_RETXINICIALNO_CTRLZN&TClIVA Percepcin IVA%=B1TCiPercepciones Ganancias Aduana%B+TChPercepciones IVA Aduana%B*TCPercepciones Ganancias%%Cejercon @QejerconF T,~    C T a% 4%CdiariogF F&%CC \diariog.dbf0QC \diariog 0 T -% ~6C Ejercicio C  no encontrado !!! ?T F G((fecha% CC% ;C%C 7CBUX3337CHECKX3543X3431XIMCOM5EJERCON OLDDIARIOGXDFECHASTAXHFECDESDEXENCEJDIRDIARIOGMENSAJEFECHAXDTIPPROCESAR_CUENTA@ 4T asiento#-1Fset filt to &temp1 :~CCCC   5% S1 T -'% CX  P F E &%S S  T C4T.t.)% .t. C -rborrarC'CC 666CPERCEPCION IVACPERCEPCION IVA ADUANAaC !PERCEPCION GANANCIAS ADUANA4C!PERCEPCION GANANCIAS DESCONOCIDA6666L C *CC $ "#6#6C $6AS C%@z 9999,999,999_ BU&XCUENTAL27TEMP1DIARIOGCOD_CUEFECHAXDFECXHFECDEBITOCREDITOSUBD XCONPROVEEDORCODIGOPROCLIPROVEEDOTARJETACONTADOXFILTRO_PROVEEDORTIPODTIPOCAUSAPRO_CODPRO_DESPRO_CUICOM_COMCOM_FECDGI_FECCOM_OPCOM_PAGOPER_RETX3337X3431X3543XIMCOM5 COMENTARIONOMBRE INSCRIPCIOASIENTO 4%CCg9BC %CCgJC3Debe existir alguna cuenta marcada con el atributo:C  BQC:No debe existir ms de una cuenta marcada con el atributo:C  BUXATRXMSGATRCANMENSAJE.41QEXPORTACIONES_CRYSTAL Imp_exp.vcxLTCexportaciones_crystal Imp_exp.vcxcm_rpt_percepcionesTTTT%C 3@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas mQ \empresasC empresascodigo G+(listadosT CC 1\C iva ganancias6 TC]T\iibb7T\C iva ganancias6TC @ - CCiZ-C00CCCHZR - percepciones C iva ganancias6 de proveedores.pdf C*\C.pdf.dbfBUXDFECXHFECXTIPO_EXPORTACIONOEXCOFORMXDTIPTIPO_EXPORTACIONAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXFILEXPATHFIL_DIRECTORIO FIL_ARCHIVOEXP_PDF Comp_Tipo fmt_cpbtK fmt_comprob percepciones_ivahpercepciones_ganasientosyprocesar_cuentac check$exportar_percepciones5&f"!QrqAA 1a1Q1aArRs`!+!Q A" A"! A" ABrAs2A2BBA2AaQAAAAA2aaA2!qAAAE1q!AAUAqA3rrAAAAAr#a7aarAB4AAAba" P1aarB4AAAbaBD2rAAAAAr#aaarB1AAbaB6b1AA1AA1AA1B1AqaqAaAAaqA!AABBB2rzaBqqbAACBBA2AA2"!AAAAr#aAarB2=BR. YFE|b?,E\,u22:<':C?CDKDI%XMQ N~V\C2&CInicializando...G+(ListadosG+(Dey_funcG+( Dey_FiltersCper_provCproveedocodproCcccompop CprovinccodCcuentascuentaFTCnoProvinc  CCCC aeofQ  C 1\tmp\Q\tmp\& & & Crprovinc2    1cSIRCREB#)%- T T Q T T%CborrarwFQT\tmp\Ch1CCCCCDDN NCNC NQoT!b!('ANULADA'$ccc.des_prov) .and. ccc.fac_com#'000000000000' .and. between(ccc.fec_dgi,xdfec,xhfec)%$/T!! .and. per.provCCZ#0 "%"CX #CX %$DT!!3 .and. betw(val(ccc.cod_pro),val(xdpro),val(xhpro)) 5T!!$ .and. betw(ccc.cod_pro,xdpro,xhpro)F%G-(&'F(G-()%%CObteniendo compras...*SELECT "O" as causa , pro.cod_pro AS pro_cod , ccc.des_prov AS pro_des , iif(alltrim(pro.cod_pro)#alltrim(p_provcont),pro.inscripcio, ccc.cuit) AS pro_cui , Comp_Tipo( strtran(stuff(ccc.fac_com2,1,2,""),"-",""), ccc.causa, substr(ccc.fac_com2,1))+" "+ccc.fac_com2 AS com_com, ccc.fec_com AS com_fec , ccc.fec_dgi AS dgi_fec , per.op AS com_op , ccc.tot_com-ccc.des_com as baseimp , round(per.prov1 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov1 , round(per.prov2 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov2 , round(per.prov3 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov3 , round(per.prov4 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov4 , round(per.prov5 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov5 , round(per.prov6 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov6 , round(per.prov7 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov7 , round(per.prov8 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov8 , round(per.prov9 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov9 , round(per.prov10 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov10 , round(per.prov11 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov11 , round(per.prov12 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov12 , round(per.prov13 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov13 , round(per.prov14 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov14 , round(per.prov15 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov15 , round(per.prov16 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov16 , round(per.prov17 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov17 , round(per.prov18 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov18 , round(per.prov19 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov19 , round(per.prov20 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov20 , round(per.prov21 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov21 , round(per.prov22 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov22 , round(per.prov23 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov23 , round(per.prov24 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov24 , round(per.prov99 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov99 , ccc.despacho as despacho FROM per_prov per LEFT OUTER JOIN cccomp ccc ON ccc.pago==per.op LEFT OUTER JOIN proveedo pro ON pro.cod_pro ==ccc.cod_pro order by ccc.fec_dgi,ccc.fec_com WHERE per.causa="O" AND &xFiltro AND ccc.pago>0 INTO table (p_local+"\tmp\TmpPerPro1") Q9SELECT "C" as causa , pro.cod_pro AS pro_cod , iif(ccc.cod_pro='0 '.or.pro.tarjeta='S'.or.pro.contado='S',ccc.des_prov,pro.nombre) AS pro_des , iif(ccc.cod_pro='0 '.or.pro.tarjeta='S'.or.pro.contado='S',ccc.cuit,pro.inscripcio) AS pro_cui , Comp_Tipo( strtran(stuff(ccc.fac_com2,1,2,""),"-",""), ccc.causa, substr(ccc.fac_com2,1))+" "+ccc.fac_com2 AS com_com, ccc.fec_com AS com_fec , ccc.fec_dgi AS dgi_fec , per.op AS com_op , ccc.tot_com-ccc.des_com as baseimp , round(per.prov1 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov1 , round(per.prov2 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov2 , round(per.prov3 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov3 , round(per.prov4 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov4 , round(per.prov5 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov5 , round(per.prov6 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov6 , round(per.prov7 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov7 , round(per.prov8 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov8 , round(per.prov9 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov9 , round(per.prov10 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov10 , round(per.prov11 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov11 , round(per.prov12 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov12 , round(per.prov13 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov13 , round(per.prov14 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov14 , round(per.prov15 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov15 , round(per.prov16 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov16 , round(per.prov17 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov17 , round(per.prov18 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov18 , round(per.prov19 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov19 , round(per.prov20 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov20 , round(per.prov21 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov21 , round(per.prov22 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov22 , round(per.prov23 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov23 , round(per.prov24 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov24 , round(per.prov99 * IIF(ccc.moneda=0 .or. ccc.div#"S", 1, iif(ccc.coefic>1000000000,1,ccc.coefic)),2)*iif(ccc.causa="c",-1,1) as prov99 , ccc.despacho as despacho FROM per_prov per LEFT OUTER JOIN cccomp ccc ON ccc.op==per.op LEFT OUTER JOIN proveedo pro ON pro.cod_pro ==ccc.cod_pro order by ccc.fec_dgi,ccc.fec_com WHERE per.causa#"O" AND &xFiltro AND ccc.op>0 INTO CURSOR TmpPerPro readwrite \tmp\TmpPerPro1 \tmp\TmpPerPro1.*Soprovinc2Q++ CCCC+ aeof+ ,F-AC Analizando compras por provinciaC TmpPerProN.5/ ~'T00F-^J1 T/+/d '.%/C /c-6 k'#T2TmpPerPro.ProvCC/ZxImp=&xProv %3g'T4C/c/6F_J11>C4,C4,3T//F- 5$CFinalizando datos...*%Cejercon 'QejerconF6 T7,~89:; :9  P/ T<a%76=o)%Cdiariogm(F> (F&%CC6= \diariog.dbf0(QC6=\diariog ( T<-'%CC6= \concepto.dbf0V)%Cconcepto$)F? 6)FQC6= \concepto k) T<-%< )6C Ejercicio C6= no encontrado !!!@ L/T76=F>G-(ABG((fechaTD asiento#-1%I*'TDD .and. diariog.aux1n#0"%"CX #CX 9+%$*^TDDM .and. betw(val(diariog.codigo),val(xdpro),val(xhpro)).and.diariog.procli="P" 5+OTDD> .and. betw(diariog.codigo,xdpro,xhpro).and.diariog.procli="P"@TDD/ and between(diariog.aux1n,xPrvDesde,xPrvHasta)set filt to &temp1 %E+KTF>betw(fecha,xdfec,xhfec) and substr(cuentas.atributo,111,1)="S" W,`TFSbetw( cod_cue+dtos(fecha) , atrcan(111,2)+dtos(xdfec), atrcan(111,2)+dtos(xhfec) )1scan for &xfiltro2 and debito-credito#05/%GS1/F?G((asiento E>HF G((cod E>I TJ TK'%> CX >LP V-F' E> TJ'MTK'NFm>L> J>C>C>I >O>PH--/ ?Q.TRC>S[TRCRC-R=TRC0000CRR$TTC>SC->S[/TTC00000000CTC T[R"C> proveedocodpro*>LQ R-T'N 2-/7>AS CC>H@z 9999,999,999_KF>G-(G(F>oborrarQUUUCU TmpResumen=(,\tmp\rpt_cm_percepcion_por_provincia_resumenQH/[0 W 0 TX W30TXprv_des+ W[0TXpro_cod+FHw041 Y0.TZ!DTOC(dgi_Fec,1) + DTOC(com_Fec,1) Y0TZStr(com_op,10) Y 1TZpro_cod Y41TZprv_des8INDEX ON &xInSep &xInOrd + DTOC(com_Fec,1) TAG Full %[\ 1 C] C^ C_5($\tmp\rpt_cm_percepcion_por_provinciaQ.*%Cprovinc282FQ\tmp\.*BU`OESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHECK_OPENEDP_SYSTEM XPROVINC2NEWFILECODIGOCODDESCRJUR_CONVPROVINCP_LOCALPROVINC2XDPRV XPRVDESDE XPRVHASTABORRARCAUSAPRO_CODPRO_DESPRO_CUICOM_COMCOM_FECDGI_FECCOM_OPPRV_CODPRV_DESPER_IMPDESPACHOBASEIMPXFILTROXDPROXHPROP_PRONUMCCCOMPCOD_PROPROVEEDOPER_PROVOPAVANCEPRV PRV_ARRAY TMPPERPROPUSHNITVALUECOBXPROVXIMPXNITPOPEJERCON OLDDIARIOGXDFECHASTAXHFECDESDEXENCEJDIRDIARIOGCONCEPTOMENSAJECOD_CUECUENTASFECHATEMP1 P_PERIBXPROVXFILTRO2SUBDASIENTOAUX1NXPRO_DESXPRO_CUIPROCLINOMBRE INSCRIPCIODEBITOCREDITOTIPO2XPV COMENTARIOXCPBTBOR TMPRESUMENXDSEPXINSEPXDORDXINORDXTIPO_OPERACIONP_DEVPERCEPCIONES_IBPERCEPCIONES_IB_ADUANAPERCEPCIONES_IB_ESICOLH  C%ABCMZTFC %TWTTK TFC cTNC dTND 2TXX BUXCOMPXCAUSAXLETRAXTIPOCU4%KEN. B NBCUXCOMPROBXIVACATXLETRAP_EMP FMT_COMPROBg45%C=ABCMdTC=TC[  H  AT TA CTC$ C BW TB 2T %-TCC-=TCC-[#TC0000CCCg ZR %CC> T0000 TC=%CgTCC E'TC00000000CCCg ZRB -UXXIVACATXLETRALETSUCNUMF -C%C4 &B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCC ~G( \iibb\C@ - CC iZ-C00CCC HZR2 - percepciones IIBB de proveedores - convenio.txtG G F~CC$T CC=FCNCND F G((cod EF%Cprovinc2+ &CZ >CXC =C*% CC[=CC [= C0000CCCOZRCH~ C=FC F C=NC@ C C=NDg D 2~ O% C\   ?TCC0000000000000000000CCC Z R.,*CC-[6C T-GG(C \iibb\C@ - CC iZ-C00CCC HZR2 - percepciones IIBB de proveedores - convenio.txtBUBORRARDESPACHOAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXHFECXOTROCOM_COMPROVINC2CODPRV_CODJUR_CONVPRO_CUIDGI_FECXIMPPER_IMPXINICIALNO_CTRLZqF -C %C4 'B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCC yG( \iibb\C@ - CC iZ-C00CCC HZR- - percepciones IIBB de aduana - convenio.txtG G F~C $T CC=FCNCND F G((cod EF% CZ 1CX C*C=<TCC0000000000000000CCCZ R.,*CC-[6C T-GG(zC \iibb\C@ - CC iZ-C00CCC HZR- - percepciones IIBB de aduana - convenio.txtBUBORRARDESPACHOAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXHFECXOTROCOM_COMPROVINC2CODPRV_CODJUR_CONV OLOCALIZACION ADUANA_CUITDGI_FECXIMPPER_IMPXINICIALNO_CTRLZQF-%C4 (B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCC }G( \iibb\C@ - CC iZ-C00CCC HZR1 - percepciones IIBB de proveedores - e-sicol.txtG G F~CC - $TCC=FCNCND % CC [= 3CC% qCC[= C0000CCCOZRCZCZH` C=FC F C=NC" D C=NDI R 2` F% C\  AC T-GG(~C \iibb\C@ - CC iZ-C00CCC HZR1 - percepciones IIBB de proveedores - e-sicol.txtBUBORRARPRV_CODAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXHFECPRO_CUIXOTROCOM_COMDGI_FECBASEIMPPER_IMPXINICIALNO_CTRLZ 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxXTCexportaciones_crystal Imp_exp.vcxcm_rpt_percepcion_por_provinciaTTTTT%C E@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasC empresascodigo G+(listadosT CC \iibb TC]T\iibbT\iibbiTC @ - CCiZ-C00CCCHZR' - percepciones IIBB de proveedores.pdf C*\C.pdf.dbfBUXDFECXHFECOEXCOFORMXDRSMXDSEPTIPO_OPERACIONAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPXFILEXPATHFIL_DIRECTORIO FIL_ARCHIVOEXP_PDF Comp_Tipo5fmt_cpbt7 fmt_comprob7percepciones_ib/:percepciones_ib_aduana?percepciones_ib_esicolrDexportar_percepcionesIa#!QRq2Q2ArqAA 2A"AQAAsrRpB 9rqqqA21rQBAAsAA1AqaqAaAsqAACass1qA!AAbABrurqArQaB"tBDBraaCBsA11Q1QAq111A1AAARAqAAB2AqQAAAAA2aaA2!qAAAE1q!AAUAqA3rAAAAAr#aaar!BrrAAAAAAAbaB2rAAAAAr#aaar1BrrAAAbaC3rAAAAAr#aaarAFAADAAAAAbaB3"AAAAr#a1AaB2BCCmDDGGYOW|OUuU\\a%dJV\ 8 T&TC IVA Crdito Fiscal T T T- T T T T    J( T C yh1 \tmp\ N CDNNCQ \tmp\  TC %Cproveedo Qproveedocodprorh1 \tmp\CCCN NNNNNN N!N"ND#D$C%C&N'N(C)N*N +N,C-C.N/N0N1N2N3N4N5C6L7N8C9C:C;N<C=C>L?N@CANBNCNDNECFN GNHNINJNKNLNMNNNONPNQNRNSNTNUNVCWNCXCYNZN[C\Cd]N^L_C`NQ \tmp\& a%Ccom_oper `Qcom_oper%Cmotivos Qmotivos%Cpro2 Qpro2%Ccompras Qcomprascomprob%Cbienes -Qbienescodins%Ccccomp gQcccompfechasubFhG((fechasub?Tj2causa#'1'.and.causa#'2'.and. !('ANULADA'$des_prov)%k#Tjj and pro2.subd#[N]H  l bTjjQ.and.(cccomp.subd#'N'.or. (cccomp.iva_com+cccomp.iva_nc)#0 .or. cccomp.imcom1#0)  l ITjj8.and.(cccomp.iva_com+cccomp.iva_nc)#0.or.cccomp.imcom1#0 2 H  mJ :Tjj).and.fac_com#'000000000000'.and.causa$'c' m ;Tjj*.and.fac_com#'000000000000'.and.causa$'Cd' 2 ,Tjj.and.fac_com#'000000000000'H  n Tjj.and.causa='C' nG Tjj.and.causa='d' ny Tjj.and.causa='c' n Tjj.and.causa$'WT' n Tjj.and..f. 2 "%oCX pCX %qb KTjj:.and.val(xdpro)<=val(cod_pro).and.val(cod_pro)<=val(xhpro)  7Tjj&.and.xdpro<=cod_pro.and.cod_pro<=xhpro%Cr I H E  r &Tjj.and. Proveedo.pais>1 rE *Tjj.and. Proveedo.pais=xdpaiG-(s%k FdG((codproFhG-(sdset filt to &temp1 Tt}CChfhh%h8 TC7> Th8 >8%h8 >h8%hEThh  \ T T'ThhhsChZ0ThhhsChZChZ T- T Tw< C T(wLTC%  h7 iChh hd hd hd hd hd  h Z h8WB 4)CDiferencia de IVA Suspendo?ayCLa ChOP CChZCP CChZ6 de C-5 tiene diferencia en el IVA terico vs registrado !!!FO>\BERR: Diferencia en el IVA teorico vs registrado !!! No se exporta.Txx%hW Tw T(w %T 9TChh C TTC%hh (w%C5TChh !%ww 5TwCwhh <%Ch7C B-6 q(wmT T T T T T T T T T T T T(w(t#%CuC-TuCuC6TuCuC!%t eTtt!TutC!TutC*TutCHz# C%@TC%Ch[ TC CdTC%Ch[ `TC CTC%Ch[ TC CFTC%Ch[ BTC# C@TC%Ch[ TC 2TCF T T T Ta(wH>C%C!%T/%%CCC8TCCCZ #TCCC ZTC DTC!>h  h >: T T TT"Thhh Tl%C ,h7h7 h8EB  (h7h7 h8E  6T T T T$%h7 h7  T TT T T TK%Ch7C 6 h8BW  h7  TT T T T T5>)&>!h.h./02h23h34h4Ah/Bh0Ch13>1h/h1h2h3h4hS?>GHIJKL5>MNOPQ>9Ch/A6Ch0B6Ch1C6Ch3D6Ch4E6ChSF6Ch2G6T C h/T C h0T C h1T C h T C h3T C h4T C hST C h2%h.! >; Ta>7h7%%S hs " C%h7"&% Cproaux+ u">7 ">7I>"hh#hz$hs-Chs0  S S h-6,Chs0  S S h,6%Chs0  S S C%65CChs0  S S C%6>Ch8Ma-Ch8 C7 >-6-66?CS h? h??6ShShZZ[h[^h^_ChSSINO6`h`%C5%>5 No Determinada%hU%^>TChhh 6UhUWhVChU>Fh%h%>hP %>hO><C7->=C7a>@C?>DD>ECD >Y%)%h' T T(%Chhz'F T-+C+ Fh '%':%hh  'yrborrar7Ch hh6hhzhh H )FbG((opago Eh%C4c) T T(%Cbb_)F T-+C+ Fb [)%S):%hh  O)yrborrar7Ch hh6hhzhh H )rborrar7Ch hh6hhzhh No existe el PagoFhHF& C#aC Suspendo?ay C%*TCa=F%*$& 5C( \tmp\ * & C( \tmp\FG-($+K(&!C Suspendo?ayoborrarXproveedo $sQ#Q# C78>C;*C;# 66Q&Q&Q&QQ)QQQGQGHQHIQIJQJKQKMQMNQNOQOPQPQQQLQL Q :Q:!Q1Q9Q9"Q"TQTUQUVQVWQW$QCCC- --6CXQ-,Q,QQ5Q5<Q<=Q=>Q>?Q?@Q@2Q2AQABQBCQCDQDEQEFQFSQS3Q34Q4Q8Q8XQXYQY\Q\QZQZ[Q[7Q7!BQ]^Q^_Q_`Q`#borrar1%Cc U/CxF.( \tmp\rpt_cm_iva_comprasQRQTC \h1 \tmp\NC(NCQ \tmp\%0^rborrar1#Asientos de IVA con tasas invlidas(t$2 %a 2%Cu1rborrar1Cu Total IVA CCu por asientosCCu999.99_%6CuC Cu <(Base Imponible = CCu999,999,999.99_)6 2Trborrar1Cu No GravadoCuXrborrar1cTotal IVA No ComputableC (*)Qrborrar1dTotal compras a ExentosYrborrar1eTotal compras a Monotributistas]rborrar1f#Total compras como Consumidor FinalOrborrar1Total Percepcin IVA [rborrar1Total Percepcin GananciasC (G)brborrar1!Total Percepcin Ganancias AduanaC (A)\rborrar1Total Percepcin IVA AduanaC (B)arborrar1 Total Percepcin Ingresos BrutosC (C)Yrborrar1Total Impuestos InternosC (D)Mrborrar1 Total I.T.C.C (E)Prborrar1Total RedondeosC (F)& 6( \tmp\rpt_cm_iva_compras_resumenQRF 2( !\tmp\rpt_cm_iva_compras_controlesFQ  \tmp\.dbf  \tmp\.idx  \tmp\.cdxFQ  \tmp\.dbf  \tmp\.idx  \tmp\.cdxF Q  \tmp\ .dbf  \tmp\ .idx  \tmp\ .cdxBUXVERSION_ACTUAL XCUENTAIVACHECKXERROR_IVA_ASIENTOSXERROR_IVA_ASIENTOS_ACCXMALPRN_RESPRN_FFPRN_LENPRN_WIDARRADIBORRAR7NEWFILEP_LOCALCOMPROBCAUSAFECHA SUBDIARIOMAYOR COMENTARIOBORRARPROVEEDOCODPROTIPOTIPONUMNUMEROBRUTODESCRBASECFEXIVAIVA_NCIVANOITOTALFECDGICLIENTE PROVINCIAMONPERCENTAGENTEEXENTOPEDIDOIMPINTCUITNOMBREIMCOM1IMCOM2IMCOM3IMCOM4IMCOM5IIII2PROVDESCIVADIFIVACATLETRA CODRETPERCODIVAMALIVATXTIVARESMTIPOIVA TIPOIVATXTRGANANARIVAANAPIIBBCITICITI_TXTASIENTOIVA_105IVA_21IVA_27IVA_5IVA_25IVA_OTROBASE_105BASE_21BASE_27BASE_5BASE_25 BASE_OTROREDONDEOTOTALEXTMONEDAMONTXTCAMBIOTIPO_VC ALICUOTAS TIPO_AFIPDESPACHO ERROR_EXPPERIVA NOIVACTRLDIVISASFCE_TIPOIDCOM_OPERMOTIVOSPRO2COMPRASBIENESCODINSCCCOMPFECHASUBTEMP1 P_PROV_SUBDXDSDIXDTIPXDCOMXDPROXHPROP_PRONUMXDPAICOD_PROMAXIVAARR_IVAXDFEC MAXIVAVARXERRORES_CITI_COMPRASSYS_MOSTRAR_SCREENFEC_DGIXHFECPAISXTIPOCCODIGOFCFAC_COMTOT_COMDES_COMXLETRA FN_GETLETRAPER XALICUOTASXIDOPXIDFULLPAGOXIVAPERXC_TOT ARR_IVAVARDETALLE XXACC_IVAZP_DOSP_CODEMPIVA_COMDESC1DESC2DESC3DESC4DESC5IMP_TRIMENSAJEXAJP_CM_IVA_COMPRAS_VERSIONXIVA_105XIVA_21XIVA_27XIVA_5XIVA_25 XIVA_OTRO XBASE_105XBASE_21XBASE_27XBASE_5XBASE_25 XBASE_OTROZZ XIMPONIBLE XNO_IMPONIBLEXCODIVAXOKXEXXCFXNOIXBASEXEXENTOGUIAXFUERZA_COLUMNAP3337CONTADO P_PROVCONTPROV_AUXPROAUXCATIVADEUDAFEC_COMTARJETADES_PROV INSCRIPCIOPROVINCDIVCOEFIC MM_MONEDAASIDIA OLOCALIZACIONIVA_CATEGORIA_PROVEEDORES_TEXTO#IVA_CLASIFICACION_PROVEEDORES_TEXTO$IVA_CLASIFICACION_CITI_COMPRAS_TEXTOXDCTRXERRXERRMSGBUSCAR_ASIENTODIARIOGXENCCOD_CUEDEBITOCREDITOOPAGOASIENTOSXFILTIVA XCATIVALOCXDIVAINXDPRVACC_EXACC_MONACC_CFACC_PERFMT_CPBTNOIMONNOGRAVRG3337 RETENCIONCODIGOORDENBORRAR1XTIPO_EXPORTACIONP_DEVCITI_COMPRAS_Y_VENTASTEXTOIMPORTETEXTO2XDFIN04%CCg=BC %CCg% JC3Debe existir alguna cuenta marcada con el atributo:C  BQC:No debe existir ms de una cuenta marcada con el atributo:C  BUXATRXMSG XOPCIONALATRCANMENSAJE&%C!B&TC IVA Crdito Fiscal%bB T T co_funciones%CB*TClIVA Percepcin RG 3337% BT CnIVA 27%% ?B1T CiRetencin Ganancias R.G. 3543% B)T ChRetencin de IVA 3431% B&T CmImpuestos Internos% BT CI.T.C.% EB)TCPercepcin Gananciasa%2ocuentasCo\Sctasib%Cejercon QejerconF T,~    Ta%X%CconceptolF ~F'%CC \concepto.dbf0QC \concepto%CdiariogF F&%CC \diariog.dbf0?QC\diariog T T-% 6C Ejercicio C no encontrado !!!  FG((asientoTFG((fechaG-( T-F~C\SR T COC!F # C!C!C!C a!C !C !C !C !C! TaF ~C!FFQBU"XDCOMXIVACHECKMSGXIVA_NC CUENTA_IVA_COMPRAS_NO_COMPUTABLE CO_FUNCIONESMENSAJEX3337X27X3543X3431XIIXII2XIMCOM5COD_CUECUENTASATRIBUTOCTASIBEJERCON OLDDIARIOGXDFECHASTAXHFECDESDEXENCEJDIRCONCEPTODIARIOGASIENTOFECHAXIIBBXXXREGPROCESAR_CUENTA 4T asiento#-1H3 dT .and.debito#0 T.and.credito#0"%CX CX W%IT8.and.val(xdpro)<=val(codigo).and.val(codigo)<=val(xhpro) S5T$.and.xdpro<=codigo.and.codigo<=xhpro%)T.and.fecha<{^2002-11-01}Fset filt to &temp1 *~CC C C #C conceptoasiento:% S#C\S   T-'%CX P F E&%S S   TC4T.t.%C Y%!'T.and. Proveedo.pais<>1 U*T.and. Proveedo.pais=xdpai%,T.and. Proveedo.ivacat=xdiva)% .t. C F G((idH JTLQ=TCCC[C/C[= 2TAS*TCXC @z 9999,999,999_EC %C4 > !>""##T$%& T' T( T)HD ; C\S * T(($+(, %C+-T-+%T-+C+-$!%,+ }T,,T-,T-,T-,$) ./ 0 %0>11$T2C2$ >33$ >4+(,%C+-*%T-+C+-$ET-+C+-C*$d* 6!%,+ TT,,T-,*T-,$9T-,C*$d* 6%*eT55CC5  - 6CC @z 999,999,999_/CC6@z 999,999,999_T77$-T'C*$d* 6H& i  *%@f >88$>99' * >::$>;;' * ><<$>==' * >>>$>??' *@N >@@$>AA' 2i >BB$z>CC86C:6C<6C>6C@6 D >EE$ F >GG$>HH$$>ICC$A6JT2C2$ K >LL$$>ICC$B6JT2C2$ MR >GG$>NN$$>ICC$C6JT2C2$ O >GG$>PP$$>ICC$D6JT2C2$ Q: >GG$>RR$$>ICC$E6JT2C2$ S >GG$>TT$$>ICC$G6JT2C2$>  U VWC *C C $ W6W6XC Y6ZC  Z6[CC  Z6\]L(>^ _L  %C>``aan>bC`cdeCa-cfgCaacfbC`cdhhiChcj% C$;>kk(ll'mm)nn'=>nklm3EopqGTPRL %r s % AzVrborrar7!] tu L %& Fv%wO G((pagoEC!,  G((op ECC[,:%vz%&v1%& rborrar7!] tu L vzv1%&CwOCP C! OP 6BU{XCUENTAL27TEMP1XDTIPXDPROXHPROP_PRONUMDIARIOGCOD_CUEFECHAXDFECXHFECASIENTOSUBDCONCEPTOTIPO2CUENTASATRIBUTO XCONPROVEEDORCODIGOPROCLIPROVEEDOTARJETACONTADOXFILTRO_PROVEEDORXDPAIXFILTIVABORRARIDXXTIPO XXCOMPROB COMENTARIOTIPOCOMPROBBRUTODESCRXIMPORTEDEBITOCREDITOXBASEXEXENTOXMONAUX1NZZMAXIVAARR_IVAXIVAX27XIVA_NCIVA_NCARRADIIVACODIVAXERROR_IVA_ASIENTOSPASEXERROR_IVA_ASIENTOS_ACCIVA_105BASE_105IVA_21BASE_21IVA_27BASE_27IVA_5BASE_5IVA_25BASE_25IVA_OTRO ALICUOTASX3337IVANOIX3543IMCOM4RGANANA CODRETPERADD_RETX3431RIVAANAXIIBBPIIBBXIIIIXII2II2XIMCOM5IMCOM5FECDGICLIENTENOMBRECUIT INSCRIPCIO PROVINCIAPROVDESCPROVINCCAUSANUMEROTIPONUMTIPOIVAIVACAT TIPOIVATXT OLOCALIZACION#IVA_CLASIFICACION_PROVEEDORES_TEXTOIVATXTIVA_CATEGORIA_PROVEEDORES_TEXTOIVARESCITICITI_TXT$IVA_CLASIFICACION_CITI_COMPRAS_TEXTOEXENTOBASEMONTOTALIMCOM1IMCOM2IMCOM3XDCTR XCUENTAIVA SUBDIARIOMAYORCCCOMPCAUPAGOOPIVA_COMq%C W%C@BC S B j BUXLETRA CODRETPER4%KEN2 B %LY B }BCUXCOMPROBXIVACATXLETRAXMP_EMPTIPONUM FMT_COMPROB4H'' M  \TM#  ATEBW %AEB T %TTA %WTB TA CCTC %Cw T TB  BW TB 2T  BUXLETRAXIVACATXMLET45%C=ABCgTC=TC[ TC%-TCC-=TCC-[#TC0000CCCg ZR R%CC> 2T0000 NTC=%CgTCC 'TC00000000CCCg ZRB -UXXIVACATXLETRAXMLETSUCNUM FN_GETLETRA%Civa_com 3Qiva_com!TCiva_comop T%  rFG((comprob E)+C+   CZ n'%  CZC Z fF$%  ( T BTFTd %  Ta(%C%10-TCd %TC %TC%TC!% bTT%1"!Td T ^TTH ! TaF G((op E+C+  T(w%CsCTCC c6%TC!% TT7TC c6THFG((comprob E)+C+   CZ '%  CZC Z F#% C  T TFTd % " Ta(%C%TC!% TTTTHT% T(%CT T  TBUXNUEVA_VERSIONIVA_COMCCCOMPOP XALICUOTAS NOIVACTRLCOMPRASCOMPROBXIDFAC_COMCAUSACOD_PROPAGOXIDFULLIVACATXXIVAPERIVAPERXC_TOTTOT_COMC_IVAXIVAPERZ MAXIVAVAR ARR_IVAVARACTUAL XIVA_TASATASAIVADESPACHOIVA_NCACC%%C U@C3No existe la carpeta AFIP y no puede ser creada !!!B!G(\citi_compras.txtG G F$~  TH 84 C =FC A01 C =ND AG02 C =NC Aq03 C =FC B06 C =ND B07 C =NC B08 C =FC M51 C =ND MC52 C =NC Mm53 239 T%C \$ 000000000000C  \ %C0000CCCOZR 000000000000C CC */CCC - =C =4CC0 QCCCCZ. RC0 QCXC0 QC T -GG("C\citi_compras.txtBUAFIP_DIRMENSAJE P_DIR_AFIPBORRAR1IVAIVA_NCCITIXTIPOPROVEEDOCOMPROBFECHACUITNOMBREXINICIALNO_CTRLZ3 cm_rpt_iva_comprasJ BUOFORMCM_RPT_IVA_COMPRAS{ TC%CxdfecbDKT T-TC BUXDFECOFORM XNO_RELEASE OBTENER_FORMXARCHIVO EJECUTAR_SQL TCW%Cproaux =QproauxF%S} G((cuitEC =  G((op E F%Cproaux4 B  B BUXAREAPROAUXPROVEEDOCONTADOCUITCCCOMPOP PROVINCIA 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxcm_rpt_iva_comprasT\xchgTTTT C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLATC %Cempresas hQ \empresasCempresascodigo G+(listadosT CC %CxdprobCTCX%CxhprobCTCX cm_rpt_iva_comprasJTTTTT T"T\compras y ventasT\iva'T\tmp\CC]@.xls'T\tmp\CC]@.pdfC iva comprasa%CTT-Ca%C0x(\C @ - CCiZ-C00CCCHZR+ - compras y ventas - compras - reporte.pdfe(\C @ - CCiZ-C00CCCHZR - compras - reporte.pdf %CTTCTaC %C0v(\C @ - CCiZ-C00CCCHZR) - compras y ventas - compras - excel.xlsc(\C @ - CCiZ-C00CCCHZR - compras - excel.xls  C!< TBU"XERRORESXTABLAXDFECXHFECXDPROXHPRO XTIPO_REPORTEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCROEXCCM_RPT_IVA_COMPRASXDNUM8XERRORES_CITI_COMPRAS L_DIR_AFIP P_DIR_AFIPL_DIR_AFIP_IVA XARCH_TMPP_LOCAL XARCH_PDFSYS_MOSTRAR_SCREEN XPDFARCHIVO XPDFPROMPTBTNPDFCLICK XLS_ABRIR XLS_ARCHIVO AUTOMATIZADO BTNEXPORTARRELEASE& BCC0QRUXTXTXLARGO%M+BCCCCZ. :B-CCCCCZ.UXIMPORTEXNTERO XDECIMALESFN_CEROS~ Ta(C>n'%C\ 0123456789 j T-! BUXTXTXOKZH 09 B0003 105\ B0004 21~ B0005 27 B0006 5 B0008 25 B0009 B U XALICUOTAb4%C \@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigo5G+(listadosTCC %Cidx03 Qidx03T C]h1 \tmp\  CCCCCCCCCQ \tmp\  CFS T">ERR: C%Ctmp_alicWFQBUXERRORES_CITI_COMPRASAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRIDX03 XTMP_ALICP_LOCALTCPVNUCDCUNGALIVDSTMP_ALICEXPORTACION_COMPRAS_Y_VENTASBORRAR1 ERROR_EXPFOREXPORTACION_IVA_DIGITALsF>>C > C > >>%%CC\ICECTRZF >:>CCc6 TC>5>CCc6 FBU XBASE_IVAXIVAXIVAIMPXBASE_IVA_IMPORTACIONTMP_ALICTCXTIPOPVFN_CEROSXPVNUXCPBTCDXTIPODOCCUXCUITBORRAR1 TIPO_AFIPDESPACHODSNG FN_IMPORTECAUSAXIVFN_IVAALIV T(C>x%%C\ 1234567890tTC\ BUXCPBTXXZ"T\compras y ventas 6  @TklklklwG(\C@ - CCiZ-C00CCCHZR0 - compras y ventas - compras - comprobantes.txtG G F T ~F T-H" C 4 E  R>EADV: Factura del exterior, no se exporta al aplicativo (no es error). C /h>CCC  6?ERR: El comprobante no tiene CUIT ni otro ID !!! No se exporta.T   CC  e>CCC  6<ERR: El comprobante tiene CUIT incorrecto !!! No se exporta.T  < &CC\ICECTRZF >CCC  6;ERR: Despacho incorrecto o no exportable !!! No se exporta.C *Debe tener IC, EC, TR o ZF en su interior.T   2'% TaT >CT T HB 0%CC\ICECTRZFT066 T099T80 '%CdT099 T098T80 EZT099T80 CH A%<T060 T001 B)%= T061 %T006 CMT011 M%:T058 T051 WT082T80 dH A"T002 BFT007 CjT012 MT052T80 ciHV AT003 BT008 C2T013 MVT053T80 LT099T80 >%C1 T001c>CCC  6:El tipo de comprobante no es valido (Corregido a 0001) !!!  T% n H{  C=LQ T C[%C-  T C C- \  T 0 2 T C\%C ! T T 1 T%C g T 1 TH Q  C=LQ2 T"C[%C-" T"C"C-"[  T"C"T"C" 2Q T"C \%C"! T"1 TH j   `>CCC  67El punto de venta no no puede ser 0 (Corregido a 1) !!!  j "T"C#C00CCZR% z>CCC  6DEl punto de venta no es vlido (Se cambia el numero de comprobate a ") !!! f >CCC  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a ") !!! H  H + CC\ICTRZF T 0T"0& CC\ETECT 0T"C \o>UDespacho de Exportacin: Se desconoce como exportarlo (Corregido a tipo 099 y numero ") !!! 2T 0T"C \:>-Despacho incorrecto, no se puede exportar !!! T 0T"C \%C"! T"C"$ Td>CCC  6.El numero de poliza no es valido (Corregido a ") !!!C %C"%HC%CC\ICECTRZF CX6 "T&CCC -g' &C( T) T* T+ T, T- T.H oO %CC\ICECTRZF /  e%0T)0d%@ %1T*1d %2T+2d %3T,3d %4DT-4d@ T.)*+,- 2o$%C.  N T. T) T* T+ T, T-i>CCC  6@Sin control de IVA vs base imponible, revisar si corresponde !!!6C5.Cc6 '%6P>CCC  6'El redondeo se toma como no gravado !!!T76 T8%9: T8 T71C7Cc6 '1C8Cc6 '6C:;Cc6 '5C<=Cc6 '1C>Cc6 'C '1C?Cc6 ' T@A TBCH7 B!dcA vH7B  TDPES T@! B EABC TDPES T@c>CCC  6:Comprobante local en moneda extranjera, pasado a Pesos !!! 2FF #B TDGF D(CCB@6'% BCW* TH a THI%] THCH'H2 9 TJC; %CC\ICECTRZF TJX 7TJE- 56 6  rTJN 2TJ0 J1C9Cc6 '1CKCc6 'C0 QCC 'C )%9C006082 *%6  (C60L%0CM1050)L%1)CN211*L%2]CO272+L%3CP53,L%4CQ254-L TR-%C >ADV: GG(xC\C@ - CCiZ-C00CCCHZR0 - compras y ventas - compras - comprobantes.txtS%C q_erroresQTIoborrar1 CQU U q_errores% ~ ~zS>ERR: Comprobante-Cuit duplicado !!!T T  T   %C q_erroresQTFW -CX%C4OtG(\C@ - CCiZ-C00CCCHZR- - compras y ventas - compras - alicuotas.txtG G FW~CX Y Z [ \ ] ^ _ `C GG(uC\C@ - CCiZ-C00CCCHZR- - compras y ventas - compras - alicuotas.txtSFW -CX %C4G(\C@ - CCiZ-C00CCCHZR: - compras y ventas - compras - alicuotas de despachos.txtG G FW~CX R X ^ _ `C GG(C\C@ - CCiZ-C00CCCHZR: - compras y ventas - compras - alicuotas de despachos.txtSBUa L_DIR_AFIP P_DIR_AFIPOLDCPBTXEMPRESAXHFECBORRAR1ACCXES_SOLO_IMPUESTOS ERROR_EXPLETRAIVACATCUITXERRORES_CITI_COMPRAS OLOCALIZACION CUIT_VALIDAR TIPO_AFIPDESPACHONOIMONMONCFEXNOGRAVBASEORDENFECDGIXTIPOXTIPODOCCAUSAFCE_TIPOTIPO_VCXERRCOMPROBXPV VALIDAR_NUMXCPBTFECHAA_NUMFN_CEROSXCUIT FN_IMPORTENOMBRE XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACION NOIVACTRLIVA_105IVA_21IVA_27IVA_5IVA_25TOTALREDONDEOXNOGRAVXEXIVARIVAANARG3337RGANANAIMCOM5PIIBBIIXCAMBIOCAMBIOXMONEDAMONEDAXMONXLETRAIDX03FCE XALICUOTAS ALICUOTASXTIPO_OPERACIONII2 FN_ALICUOTASBASE_105BASE_21BASE_27BASE_5BASE_25XINICIALNO_CTRLZ Q_ERRORESCNTFORTMP_ALICDSTCPVNUCDCUNGALIV&0 T TT\iva C  M T T/listados (h+Tklklkl% 6VG(\C @ - CC iZ-C00CCC HZR - compras.txt [G(\C @ - CC iZ-C00CCC HZR - importaciones.txtG G F T *~C  6(F T- T-%ERR:9 TaT2% C  E  h>CCC  6?ERR: El comprobante no tiene CUIT ni otro ID !!! No se exporta.T Ta=% CC   E  e>CCC  6<ERR: El comprobante tiene CUIT incorrecto !!! No se exporta.T TaD%  &CC \ICECTRZF >CCC  6;ERR: Despacho incorrecto o no exportable !!! No se exporta.C *Debe tener IC, EC, TR o ZF en su interior.T Ta(%  E  :R>EADV: Factura del exterior, no se exporta al aplicativo (no es error). Ta4% ! P>CADV: Solo por impuestos, no se exporta al aplicativo (no es error). Ta% ('% TaT   > C!T" T# Hs  0%CC \ICECTRZFT"066 T"099T#80 X%$Cd+T"099 ET"098T#80 ET"099T#80 $C H A%%<T"060 T"001 BZ%%=<T"061 VT"006 C~T"011 M%%:T"058 T"051 WT"082T#80 $d H/  AS T"002 Bw T"007 C T"012 M T"052T#80 $c H  A T"003 B? T"008 Cc T"013 M T"053T#80 $L T"099T#80 >&"%C"b T"001c>CCC  6:El tipo de comprobante no es valido (Corregido a 0001) !!! " T'% H Q  C(=LQ2 T)C([%C-) T)C)C-)\ . T)0 2Q T)C(\%C)* T)1 T'%C)g T)1 T'H  C(=LQc T+C([%C-+7 T+C+C-+[ P T+C+T+C+ 2 T+C( \%C+* T+1 T'H  '>`>CCC  67El punto de venta no no puede ser 0 (Corregido a 1) !!! '' "T+C!C00CC ZR%' z>CCC  6DEl punto de venta no es vlido (Se cambia el numero de comprobate a +) !!! >CCC  6LEl numero de comprobante no es valido (Se cambia el numero de comprobante a +) !!! $H  NHJ+ CC \ICTRZF%T)0T+0& CC \ETECT)0T+C  \o>UDespacho de Exportacin: Se desconoce como exportarlo (Corregido a tipo 099 y numero +) !!! 2JT)0T+C  \:>-Despacho incorrecto, no se puede exportar !!!  T)0T+C( \%C+* T+C+, T'd>CCC  6.El numero de poliza no es valido (Corregido a +) !!!C)-C+-HC%CC \ICECTRZF CX6 #"T.CCC-g/ .C0C Iva digital1F T23 T45H)G 4! $dc3 vH7B  6NO T7PES T2 2F8 #4 T79F T: T; T< T= T> T? T@JTAC%@ C D@ 6BC $c6BTEC C D@ 6BC $c6BTFC C D@ 6BC $c6BTGC C D@ 6BC $c6JTHC@ C D@ 6BC $c6TIAEFGH'%C  J2 TID-%CC  J2 TI TKC 2 TITL+KL pTLL%ETEECK{Gz?TKKCK{Gz?%K!%ATAACK{Gz?TKKCK{Gz?%K!%FTFFCK{Gz?TKKCK{Gz?%K!%GTGGCK{Gz?TKKCK{Gz?%K!%HlTHHCK{Gz?TKKCK{Gz?%Kh!%L%CError de loop Suspendo?aM @oCDiferencia de IVA CCCC  J2 TI Z$ !!! Consulte al soporte tcnico !!!NC Suspendo?aM%A}"T:CAd%@ T%ET;CEd T%FT<CFd T%GT=CGd T%HI"T>CHd@ TTO:;<=>O%%CC \ICECTRZF P  T?:;<=>T?? 2 %C@ YF 2>CCC  6ERR: @T TaTQC2 T TR%OQ? 1%CQO TKQOTRKc %aTQQK TL+KL lTLL%;T;;CK{Gz?TKKCK{Gz?%K!%:T::CK{Gz?TKKCK{Gz?%K!%<T<<CK{Gz?TKKCK{Gz?%K!%=T==CK{Gz?TKKCK{Gz?%K!%>hT>>CK{Gz?TKKCK{Gz?%Kd!%L%CError de loop Suspendo?aM -\CDiferencia de BASE CCCQO Z$ !!! Consulte al soporte tcnico !!!NC Suspendo?aM:CS2 ?C $c6 /%TP>CCC  6'El redondeo se toma como no gravado !!!TUT TV%J% TV TU5CU2 C $c6 /5CV2 C $c6 />CW2 X2 C $c6 />CY2 Z2 C $c6 /5C[2 C $c6 /C /5C\2 C $c6 /~TRRCS2 T?CU2 TCV2 TCW2 X2 TCY2 Z2 TC[2 TC\2 TF 7C2/%BCWX" T] "wT]CA6CE6CF6CG6CH6%" T]C]/H%#"$2  e#T^C; %CC \ICECTRZF #T^X #T^E- ST T  $T^N 2"$T^  ^5C2 C $c6 /5C_2 C $c6 /%"060$CCC- C  %C0 QCC /C TRRC_2 T5%C"006082 ^N %*%T  %4C 2 T2  2 0`%a/&C:105A`TRRC:TA%bz&C;21E`TRRC;TE%c&C<27F`TRRC<TF%d'C=5G`TRRC=TG%eZ'C>25H`TRRC>TH Tf-%C '>ADV: %](%CRT(+% 6SIR ףp= ? ("CCorreccin Suspendo?aM (ACFalla el control (CCR Z) !!! Suspendo?aM?>ERR: Falla el control !!! (CCR Z) !!!T Ta (GG(% *% )VC\C @ - CC iZ-C00CCC HZR - compras.txtgahsys_zip\C @ - CC iZ-C00CCC HZR - compras.txt *T\C @ - CC iZ-C00CCC HZR - compras.txt d+% *\C\C @ - CC iZ-C00CCC HZR - importaciones.txtgghsys_zip\C @ - CC iZ-C00CCC HZR - importaciones.txt `+Z\C @ - CC iZ-C00CCC HZR - importaciones.txt%C q_errores+QjIoborrar1(CQk(k q_errores% _, ~[,S> ERR: Comprobante-Cuit duplicado !!!(j( j T i,%C q_errores,QjFm -Cn%C4_.YG(\C @ - CC iZ-C00CCC HZR - compras iva.txtG G Fm~Cn- o p q r s t u vC GG(ZC\C @ - CC iZ-C00CCC HZR - compras iva.txtgehsys_zip\C @ - CC iZ-C00CCC HZR - compras iva.txtFm -Cn %C40_G(\C @ - CC iZ-C00CCC HZR - importaciones iva.txtG G Fm~Cn @/ n t u vC GG(`C\C @ - CC iZ-C00CCC HZR - importaciones iva.txtgkhsys_zip\C @ - CC iZ-C00CCC HZR - importaciones iva.txtBUwXTOLERANCIA_IVAXTOLERANCIA_BASEL_DIR_AFIP_IVA P_DIR_AFIPOLDCPBT XEMPNOMBRE XEMPCUITSOLO DATOS_EMPRESALISTADOSZZ_IVAXEMPRESAXHFECBORRAR1ACC TIPO_AFIPXES_SOLO_IMPUESTOSXHAY_ERROR_CASE ERROR_EXPXERRORES_CITI_COMPRASCUITIVACATLETRA OLOCALIZACION CUIT_VALIDARDESPACHONOIMONMONCFEXNOGRAVBASEIVAORDENFECHAXTIPOXTIPODOCCAUSAFCE_TIPOTIPO_VCXERRCOMPROBXPV VALIDAR_NUMXCPBTA_NUMFN_CEROSXCUIT FN_IMPORTENOMBRESYS_MXCAMBIOCAMBIOXMONEDAMONEDADIVISASXMONIDX03FCE XBASE_IVA_105 XBASE_IVA_21 XBASE_IVA_27 XBASE_IVA_5 XBASE_IVA_25XBASE_IMPORTACIONXMSG XXIVA_105 FN_IVA_METIPONUMEROXXIVA_21XXIVA_27XXIVA_5XXIVA_25XXIVAIVA_NCXDIFXLOOPSYS_MOSTRAR_SCREENMENSAJE XBASE_SUMADA NOIVACTRLXBASEXCONTROLTOTALREDONDEOXNOGRAVXEXRIVAANARG3337RGANANAIMCOM5PIIBBII XALICUOTASXTIPO_OPERACIONII2 FN_ALICUOTASIVA_105IVA_21IVA_27IVA_5IVA_25XINICIALNO_CTRLZZIPEARSYS_ZIP Q_ERRORESCNTFORTMP_ALICDSTCPVNUCDCUNGALIV T%L TCCC Z.%CR0TCC>=%CR0TCC>=BC borrar1.iva_< %SI%OS.oiva_com    .oiva_com    %O.oiva_com    .oiva_com   % 6 B % _ BC GT$Ms de un registro para la alcuota CC Z !!! B BU XALICUOTAXTIPOXNUMEROXMSGXDIVISASCAUSAXALIC ARR_IVACOMIVA_MOIVA_COMOPTASAPAGOIVAcheck@asientos Bprocesar_cuentahIadd_ret_fmt_cpbtB` fn_getletraa fmt_comprobcdetalle'ecitim obtener_formr ejecutar_sqlrprov_auxs exportar_1texportar_siap_compras_y_ventashvfn_ceros| fn_importe2} validar_num}fn_iva~citi_compras_y_ventas fn_alicuotasa_numWexportacion_compras_y_ventasexportacion_iva_digital9 fn_iva_mebA!W!AA1AbAAAAq22A1!1A11A11111A"qAA!Aa1AA1rqAbq1baaarqAAAArQqqAAAbArqA2rArAbArq1A[ rB"A1AAQAAAQAAAA1aAAA1A1QAQAQAQA2QAQDBs2!AQ1AABq#`BBBBPQ 6W bARbbAABA $AbAbAbaQqbq1AAAAArq1AAAAAABArAAtte"BvAArsp=ArA2AAAAA!br!vArArAB1AAA2AAb1AA1AA1AA1AA1AA1AAb1AA1AA1B#1AqaqAqAqAaAAarrvrAqqAABrAB2r11A"QAAAsa2qqbAA!AqAAAraAbQsAsQAAA1A2AQQAAA1BbQAbbbC32A2AA2A2A2AB BBDrcrqQAR AAAABA3q#AA21aAAA2uq1aAAAAAq1AAA21"AE1q!AAUAqA3q1AurrBArArQRQABAA1qAABAAr2QAAA1rABAxrr2ArAQAAA1ABAAqBhAAAB2AAaasAaA2BAArA!!Aba"B2q2qAQ3q!ArqAqAA2"AB22Ar#aAAqB"QrqrQAAr1a1AArB221A2qqqAAA3qAaQQAQA3qAAAr#arA r"qAAB21rQ1A#SrA2qrQAA3!As1saatr""R tA1A2RAHBA1AA1AAA1AAABAAAAABAAAAABA1AAQAQARAAQAQA1"4!AF1aA2RQ!AABBBA"6A1QA1QA1QA1AAEBc2A9AbRbq1qArbABq!1A!aAA2A1A1A1A1A"aABBbaA"1ABAvBaar!BbaRBuaar1Bba"AB3RAs32aAbatqsA"AQAB A!ABArA1A2RAHBA1AA1AAA1AAABAAAAABAAAAABA1AAQAQARAAQAQA1"4!AF1aA2RQ!AABBBA"rqqAr!!!r21AAA21AAA21AAA21AAA21AAAB2QArBB3!A1A1A1A1!AB#q!Aa21AAA21AAA21AAA21AAA21AAAB2QAAsCAP2AsARRRbRrrdsABq!1ARQb!AaUAAA2B1B1B1B1B"aA2%ABBBEba21aAA1tABBA"1ABAuaar!BbaTBuaar1BbaAB2qBqAAAsRBBABA"!qAA1qtuzu_e){s4QVip)#-B O y0h}0cr1 } b_ M%.,}wXT)]U1 %Zs{rtLXU].%CxdnotasbL( T-TC "%C X C X  T T; co_funcionesC6"%C X C X T zzzzzzzzz $T 9 HT C Datasessionv G( T -%  H   TC TC 2C ERROR !!! O 6TC K T a5 Ta%  T(C% s%   oC C% %Ctmp_consolidadoRF Q%Q! \tmp\rptmayor F #(!\tmp\tmp_consolidado'Q!\tmp\tmp_consolidado T"- ` %Ctmp_consolidadoF 9'Q!\tmp\tmp_consolidado F ! \tmp\rptmayor T- (CCTC#(C% C G+( co_asientosG+( co_funciones C%%C provinc_ext Q& \provinc_ext%Ccccomp Qcccomp %Ctmp_consolidadoF 'Q!\tmp\tmp_consolidado (T(CC]RC()(! \tmp\rptmayor %Ctmp_consolidadoQ  C% #%Cempresas Q& \empresasCempresascodigoC T-BU*XDNOTASXTIPO_REGISTROXDCUEXHCUEXDABRXHABRCO_CUENTAS_DESDE_HASTA CO_FUNCIONES XORDEN_ABREV XDATASESSION ACTIVEFORM DATASESSIONIDXZAFARXDCONOCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJEXOLDEMPXPRIMERA_EMPRESAP_CODEMPOEMPGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCENDOSCARGAR_DATOS_ENTORNOEJECUTAR_PROCESOABREVTMP_CONSOLIDADOP_LOCALXINICIAL GET_PORCODIGO CO_ASIENTOS OPEN_FILESP_SYSTEMCCCOMPBORRAR ORDEN_FINAL$N4 7&CPreparando datos... (EG+( co_asientosG+( co_funcionesTCC]RTCC]RTCC]R C %C provinc_ext Q \provinc_ext%Ccccomp <QcccompT diariog.asiento#-1"% C X C X GT  6.and.xdcue<=diariog.cod_cue.and.diariog.cod_cue<=xhcue"%CX CX 5GT  6.and.xdcos<=diariog.cod_cen.and.diariog.cod_cen<=xhcos% KT  :.and.xdsce<=diariog.subcentro.and.diariog.subcentro<=xhsce% LT  w.and.((xdimp<=diariog.importac.and.diariog.importac<=xhimp) or (xdimp<=concepto.importac.and.concepto.importac<=xhimp))"%CX CX .%cT  R.and.between(val(diariog.codigo), val(xdcli), val(xhcli) ).and. diariog.procli="C" *<T  +.and.between(diariog.codigo, xdcli, xhcli )"%CX CX %cT  R.and.between(val(diariog.codigo), val(xdpro), val(xhpro) ).and. diariog.procli="P"  <T  +.and.between(diariog.codigo, xdpro, xhpro )% fH5b A@T  /.and. (diariog.tipo="A" .or. concepto.tipo2>=1) M@T  /.and.!(diariog.tipo="A" .or. concepto.tipo2>=1) S'T  .and. concepto.tipo2#3 CCgb0T  .and. concepto.tipo2=val(xdasi) H AAT  0.and. !(diariog.tipo="A" .or. concepto.tipo2>=1) M*@T  /.and. (diariog.tipo="A" .or. concepto.tipo2>=1) Se'T  .and. concepto.tipo2=3 CCg0T  .and. concepto.tipo2#val(xdasi)%'T   and concepto.tipo2#23H  >)Tinlist(concepto.legal,0,1,2) z)Tinlist(concepto.legal,0,1,3) Tconcepto.legal=<1 Tconcepto.legal=2  Tconcepto.legal=3T   and % T %-H[  K TT  C.and.inlist(diariog.cau, "V", "c","d","r") .and. diariog.procli="C" J/ XT  G.and.inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P" C cd GT  6.and.diariog.cau=lower(xdcau) .and. diariog.procli="C" 3 >T  -.and.diariog.cau="c" .and. diariog.procli="P" 43 >T  -.and.diariog.cau="d" .and. diariog.procli="P" R ?T  ..and.diariog.cau$"RA" .and. diariog.procli="C" P ?T  ..and.diariog.cau$"OA" .and. diariog.procli="P" 1+ >T  -.and.diariog.cau="1" .and. diariog.procli="P" 2} >T  -.and.diariog.cau="2" .and. diariog.procli="P" V >T  -.and.diariog.cau="V" .and. diariog.procli="C" C! >T  -.and.diariog.cau="C" .and. diariog.procli="P" I[ &T  .and.concepto.tipo2=8 L }T  l.and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P") or inlist(concepto.tipo2,12,52)) HT  .and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. diariog.procli="P") or concepto.tipo2=18 or (diariog.procli="P" and diariog.codigo=p_provcont)) 2'T  .and.diariog.cau=xdcau H KT  z.and.inlist(diariog.cau, "V", "c","d","r") .and. iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C") J;T  .and.inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P") ZT  { and !(inlist(diariog.cau, "V", "c","d","r") and iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C")) AN_T  N and !(diariog.cau$"Vcd" and diariog.procli="C" and empty(diariog.comentario)) C cd~T  m.and.diariog.cau=lower(xdcau) .and. iif(diariog.cau="d", left(diariog.comprob,1)$"ABCEMZ",diariog.procli="C") 37>T  -.and.diariog.cau="c" .and. diariog.procli="P" 4>T  -.and.diariog.cau="d" .and. diariog.procli="P" R?T  ..and.diariog.cau$"RA" .and. diariog.procli="C" P/?T  ..and.diariog.cau$"OA" .and. diariog.procli="P" 1>T  -.and.diariog.cau="1" .and. diariog.procli="P" 2>T  -.and.diariog.cau="2" .and. diariog.procli="P" V%>T  -.and.diariog.cau="V" .and. diariog.procli="C" Cw>T  -.and.diariog.cau="C" .and. diariog.procli="P" I&T  .and.concepto.tipo2=8 LzT  .and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P")) or inlist(concepto.tipo2,12,52)) HnT  .and. ((inlist(diariog.cau, "C", "c","d","1","2") .and. iif(diariog.cau="d", !left(diariog.comprob,1)$"ABCEMZ",diariog.procli="P")) or concepto.tipo2=18 or (diariog.procli="P" and diariog.codigo=p_provcont)) QJT  9.and.inlist(diariog.cau,"V","c") .and. diariog.procli="C" 2'T  .and.diariog.cau=xdcau%!" Z3T  ".and.betw(concepto.un,xduni,xhuni)%#1T  .and.!inlist(concepto.tipo2,1,2)%$(T  .and.diariog.tran=xtran%%+;T  * and diariog.arch=[2] and concepto.tipo2#3%&d&T   and concepto.tipo2#3%'0 T(%)* 'T(inlist(linea, xdlin,xhlin)%+, ,AT(CC(  and 6inlist(grupo, xdgru,xhgru) 6%)* \T  K and inlist(iif(diariog.linea#0, diariog.linea, cuentas.linea),xdlin,xhlin)%+, 2\T  K and inlist(iif(diariog.grupo#0, diariog.grupo, cuenas.grupo), xdgru,xhgru)%-gT   and diariog.tipo=[C-D*C-CC-EN666] T. T/ %01 ,T/ .and.diariog.asiento<=xdast%2A^T3C345DT6C647F %aT83 T3C345DT6C647FT83 T9a T:a+a=%9  T (TCC]R%CborrarNFQ%9 C8:6;%: <\tmp\rptmayor.*FC9No se encontr un ejercicio en el rango de fechas dado!!!=C4?>B- A)CAnalizando datos: AB@(OTCCAD3DT8CAE6F%CABC4? T /  T .%F' select cuentas.abrev as abrev , diariog.asiento as asiento , diariog.pase as pase , diariog.asi_ma as asi_ma , diariog.fecha as fecha , diariog.debito as debito , diariog.credito as credito , 999999999999.99 as saldo , diariog.debito-diariog.credito as dif , padr(diariog.cau,2) as causa , diariog.cau as cau , diariog.comprob as comprob , iif(empty(concepto.comp_exp),PADR(diariog.comprob,15),concepto.comp_exp) as comp_exp , diariog.procli as procli , diariog.codigo as codigo , diariog.nombre as nombre , diariog.comentario as comentario , diariog.cod_cen as cod_cen , diariog.subcentro as subcentro , iif(diariog.linea#0, diariog.linea, cuentas.linea) as linea , iif(diariog.grupo#0, diariog.grupo, cuentas.grupo) as grupo , diariog.tipo as tipo , diariog.arch as arch , iif(diariog.importac#0, diariog.importac, concepto.importac) as importac , diariog.numero as numero , diariog.subnum as subnum , diariog.motivo as motivo , diariog.moneda as moneda , diariog.cambio as cambio , diariog.subd as subd , diariog.cod_cue as cod_cue , diariog.monpase as monpase , diariog.monext as monext , left(cuentas.descr,40) as dcuenta , concepto.un as un , space(30) as udescr , space(40) as cendescr , diariog.subd as subdiario , nvl(concepto.tipo2,0) as tipo2 , nvl(concepto.legal,1) as legal , concepto.concepto as concepto , diariog.provincia as prv , space(30) as provincia , diariog.cod_cue as cuenta , 0000000000.000000 as cambio_ref , cuentas.er as er , space(40) as der , diariog.tran as tran , diariog.cod as cod , diariog.atr as atr , diariog.bul as bul , SPACE(13) as CUIT , xemp as emp , p_codemp as codemp , space(40) as dlin , space(40) as dgru , space(40) as dart , cuentas.atributo as atributo , cuentas.complement as complement , space(254) as notas , NVL(co_func.descr,SPACE(40)) as detalle from cuentas, diariog left outer join concepto on diariog.asiento=concepto.asiento LEFT OUTER JOIN co_func ON concepto.tipo2=co_func.codigo order by cuentas.abrev,diariog.fecha, diariog.cau,diariog.comprob,diariog.asiento,diariog.pase where diariog.cod_cue=cuentas.cod_cue .and. &filtro .and. betw(fecha, vdfec,vhfec) and diariog.debito-diariog.credito#0 into table (p_local+"\tmp\"+borrar) readwrite 2] select cuentas.abrev as abrev , diariog.asiento as asiento , diariog.pase as pase , diariog.asi_ma as asi_ma , diariog.fecha as fecha , diariog.debito as debito , diariog.credito as credito , 999999999999.99 as saldo , diariog.debito-diariog.credito as dif , padr(diariog.cau,2) as causa , diariog.cau as cau , diariog.comprob as comprob , iif(empty(concepto.comp_exp),PADR(diariog.comprob,15),concepto.comp_exp) as comp_exp , diariog.procli as procli , diariog.codigo as codigo , diariog.nombre as nombre , diariog.comentario as comentario , diariog.cod_cen as cod_cen , diariog.subcentro as subcentro , iif(diariog.linea#0, diariog.linea, cuentas.linea) as linea , iif(diariog.grupo#0, diariog.grupo, cuentas.grupo) as grupo , diariog.tipo as tipo , diariog.arch as arch , iif(diariog.importac#0, diariog.importac, concepto.importac) as importac , diariog.numero as numero , diariog.subnum as subnum , diariog.motivo as motivo , diariog.moneda as moneda , diariog.cambio as cambio , diariog.subd as subd , diariog.cod_cue as cod_cue , diariog.monpase as monpase , diariog.monext as monext , left(cuentas.descr,40) as dcuenta , left(nvl(costos.descr," SIN ASIGNAR"),30) as dcentro , concepto.un as un , space(30) as udescr , space(40) as cendescr , diariog.subd as subdiario , nvl(concepto.tipo2,0) as tipo2 , nvl(concepto.legal,1) as legal , concepto.concepto as concepto , diariog.provincia as prv , space(30) as provincia , diariog.cod_cue as cuenta , 0000000000.000000 as cambio_ref , cuentas.er as er , space(40) as der , diariog.tran as tran , diariog.cod as cod , diariog.atr as atr , diariog.bul as bul , SPACE(13) as CUIT , xemp as emp , p_codemp as codemp , space(40) as dlin , space(40) as dgru , space(40) as dart , cuentas.atributo as atributo , cuentas.complement as complement , space(254) as notas , NVL(co_func.descr,SPACE(40)) as detalle from diariog left outer join concepto on diariog.asiento=concepto.asiento LEFT OUTER JOIN co_func ON concepto.tipo2=co_func.codigo left outer join costos on diariog.cod_cen=costos.cod_cen , cuentas order by cuentas.abrev,diariog.fecha, diariog.cau,diariog.comprob,diariog.asiento,diariog.pase where diariog.cod_cue=cuentas.cod_cue .and. &filtro .and. betw(fecha, vdfec,vhfec) and diariog.debito-diariog.credito#0 into table (p_local+"\tmp\"+borrar) readwrite Q<\tmp\%'2FGG((codigoFG-(IG&>ICGJ GJI6G-(%C( 2C(  2%Mc3FNG((cuentaFG-(PN%M+3CR SN _3*CRSS S   %2S9 M7FT-UC %C43 TVa 7%CBorrarA3FWQTXADCX:;%:6 ^45CAnalizando saldo anterior en: AB@(l4]select diariog.cod_cue , diariog.cambio , diariog.moneda , diariog.fecha , diariog.motivo , diariog.debito as debito , diariog.credito as credito , diariog.debito-diariog.credito as dif , diariog.monpase , diariog.monext , diariog.tipo as tipo , nvl(concepto.tipo2,0) as tipo2 , nvl(concepto.legal,1) as legal , 0000000000.000000 as cambio_ref , xemp as emp , p_codemp as codemp from diariog left outer join concepto on diariog.asiento=concepto.asiento where &xfiltro_ej_sin_limite into cursor borrara readwrite CX:; TV- 7 TVa ;7)CAnalizando saldo anterior@(I7!%2S 2A =lselect diariog.cod_cue , diariog.cambio , diariog.moneda , diariog.fecha , diariog.motivo , diariog.debito as debito , diariog.credito as credito , diariog.debito-diariog.credito as dif , diariog.monpase , diariog.monext , diariog.tipo , nvl(concepto.tipo2,0) as tipo2 , nvl(concepto.legal,1) as legal , 0000000000.000000 as cambio_ref , xemp as emp , p_codemp as codemp from diariog left outer join concepto on diariog.asiento=concepto.asiento where &filtro .and. diariog.fecha < vdfec into cursor borrar1 readwrite %2S2: %V CBorrarA .:rborrar1oborrara ~t; TY)%Z[ \ ;%[:.>]C]_`ab\[Y^%[ :.>cCc_`ab\[cY^ c;Y>]C]_`ab\[Y^cCc_`ab\[Y^ >dYoborrar1cuentasP`_baC]cQeNfNgQhQijQkPNPPrptmayor_saldos_anteriores ~=rborrar]cfam_`hPiCle le6Cle lec6lfCSaldo AnteriorlhlPliFlQF%9L=FQ<\tmp\ u=F<\tmp\ T9-C8:6;%: 86 =!C4?>%Cborrar=FQ%Cborrarf">FQ R>"CAgregando datos...@(`> T Q<\tmp\%Cco_er >Qco_erFnG((idlinFpG((codigoFqG((codigoFrG((codcliFtG((codproFNG((cuentaFCvG-(HtG-(HrG-(wqG-(PNG-(xp!G-(C ZCyZnTz= T{ ~JFH@@ |[@%zfC} ZW@ T{FTzfC} Z 2@%zf@ T{F Tzf TY%~A)%Z[ \ A%[8A.TC]_`ab\[Y^ T%[ A T.TCc_`ab\[cY^ A.TC]_`ab\[Y^.TCc_`ab\[Y^ B T] TcT{{ T T# co_funciones@>]ce{CdY%CTB >T%AC->C~@z 9999,999,999_AS>qg>pg>ngHZCE C CF G((cod E>g PBEFtG((codpro EH>t%tSD%PAD%Cproaux @DQproauxF G((opECC,g%C4DFG((codigo E>g/%CCC,gcccomppagoD>  >EFG((codigo Et>g CEFrG((codcli EH>rFG((codigo Er>g%GHEG( Ccd P UF/%CCC[gcccompopQF>C ' OA P F%Cccpag FQccpag-%CccpagcomprobF>Cm' RA C G%Ccccob >GQcccob-%CcccobcomprobG>CmF%CI G CIlineascodigo>Gg%C H Cgruposcodigo>g%C I%Cbienes `HQbienes T CbienescodinsTCg%C +I%Catributo HQatributo)CatributocodigoT Cg%C I%Cbultos kIQbultos'CbultoscodigoT Cg >F%CPAAJ P Cm= 1234567890 C C ,C\SCB\S  J!>CCCm,g8!%Cm=CH.N J*>CCCm[,gF% LocuentasXborrar NffNfQfNgQgCfC XQ NP NP ,CN\SCN>\S  cuentas_posibles~C XK?rborrarfmhf SIN DATOS.gFQ% QL%Cccvent KLQccventFG((ccvfacFG-(G-( L*CExportacin final de datos@(LF%Z8M:>`]c _Z]c` (< \tmp\rptmayorQ <\tmp\.dbf <\tmp\.idx <\tmp\.cdx <\tmp\.dbf <\tmp\.idx <\tmp\.cdxBUXEMPOESTADO SET_AND_SHOWOEX CO_ASIENTOS CO_FUNCIONESBORRARBORRAR1BORRARF OPEN_FILESP_SYSTEMCCCOMPFILTROXDCUEXHCUEXDCOSXHCOSXDSCEXHSCEXDIMPXHIMPXDCLIXHCLIP_CLINUMXDPROXHPROP_PRONUMXSIN_TIPO_ASIENTOXDASIXSIN_AJUSTE_X_INFLACION XTIPO_INFORMEXTIPO_LEGAL_REALXDCAUXDUNIXHUNI XSIN_CIERREXTRAN XSIN_ARCHIVOS XSIN_APERTURAXPORLINEAMAESTRA FILTROLINGRUXDLINXHLINXDGRUXHGRUXTIPO_REGISTROXFILTRO_EJ_SIN_LIMITEXFILTRO_EJ_CON_LIMITEXDASTXDCONXDSALXDFECLOCALESEJ_001XHFECEJ_002VHFECXPRIMER_EJERCICIOXOKCO_ABRIR_TABLAS_EJERCICIOP_LOCALMENSAJECO_ABRIR_TABLASCO_011AVANCEEJERCONDIRVDFECDESDEHASTAXDTIPLINEASCODIGOLINEA MASTERLINEALLINXDSUBCUENTASCUENTACOD_CUEFORIMPUESTO SUBDIARIOCONCEPTOTIPO2XHAYSALDOANTERIORBORRARAXOLDEJ XCAMBIO_REFXDMONMONEXTMONPASEDEBITO FN_CALC_LOCALMONEDACAMBIOFECHAMOTIVOCREDITO CAMBIO_REFSALDOABREVDESCRDCUENTAEMPP_CODEMPCODEMPRPTMAYOR_SALDOS_ANTERIORES COMENTARIOCO_ERIDLINCOSTOSUNIDADESCLIENTESCODCLIPROVEEDOCODPRO ORDEN_FINALUNCOD_CENEROLDACCXDAGRUPA_POR_IMPORTACIONIMPORTACASIENTOXDEBXCREXCAUSA XDESCR_CAUSA DG_CAUSA_TXTCAUSANOMBRE FN_NOMBRETIPOCOMPROBUDESCRCENDESCRDERPRV PROVINC_EXTCOD PROVINCIAPROCLICUIT INSCRIPCIOCONTADOPROAUXOPXDNOTASCAUNOTASCCPAGCCCOBDLINGRUPODGRUGRUPOSBIENESXDARTATRATRIBUTOBULBULTOSDARTNUMERO COMPLEMENTXDSOLDISTINCTMATCHCUENTAS_POSIBLESCCVENTCCVFACLIQPRODDIFT 4 T T# co_funciones BUXCAUSA XDESCR_CAUSA DG_CAUSA_TXT CO_FUNCIONESCAUSA2%P S S > B #%C S w B  BUPROCLIPROVEEDOTARJETACONTADONOMBRECLIENTES#4 T %ak%g% A x B c% B _% QCError en asiento CC Z& de difrencia de cambio no cobrada !!!C (La moneda del asiento no puede se pesos. B [ ~ B'BC U XIMPORTEXMONEDAXCAMBIOXFECHAXMOTIVOXMONPASEXMONEXT XCAMBIO_REFXDMONTIPOMENSAJEASIENTOFN_CALC- co_rpt_mayorJ BUOFORM CO_RPT_MAYOR{ TC%CxdfecbDKT T-TC BUXDFECOFORM XNO_RELEASE OBTENER_FORMXARCHIVO EJECUTAR_SQL4%CxdcuebCITC X%CxhcuebCwTC X %C xlegalrealbN T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx co_rpt_mayor%IT \tmp lT \xchgT T  TTTSTTT CBUXTABLAXDFECXHFECXDCUEXHCUEXA_LOCAL XLEGALREALOEXCFIL_DIRECTORIOP_LOCALP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDSALXDNUM4 EXP_TABLA5%CxtablabCPTtmp_saldo_a_fecha1QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx co_rpt_mayorT\tmpTT [T T T ST T C%C Q\tmp\ FBUXTABLAXCUENTAXFECHAXSALDOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDSALXDCUEXHCUE EXP_TABLAe41QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx co_rpt_mayor%T\tmp T\xchgTT  MTT T aT T  CBUXTABLAXDFECXHFECXA_LOCALOEXCFIL_DIRECTORIOP_LOCALP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG5XDMONXDNUM4 EXP_TABLA3   T  TC TCCC X  T CC C X  T CC CX T CC CX 1 QEXPORTACIONES_CRYSTAL Imp_exp.vcxET Cexportaciones_crystal Imp_exp.vcx co_rpt_mayor%YT \tmp |T \xchgT T T  PTTT TCSN6TTT T  T  %p C   C BUXTABLAXDFECXHFECXA_LOCALXCON_SALDO_ANTERIORXTODO XCONSOLIDADO XCON_CIERREXDABREVXHABREVXDCLIXHCLI XLCON_CIERREOEXCFIL_DIRECTORIOP_LOCALP_SERVER FIL_TABLAFIL_EXCEL_PLANO FIL_ARCHIVOOFORMXDLOG5XDSAL XDCONSOLIDADOXDCUEXHCUEEXP_TABLA_EXCEL_PDF EXP_TABLAZ C%Cproveedo ?Qproveedo%Cclientes qQclientes%Ccostos Qcostos%Ccuentas Qcuentas%Cidx04 Qidx04%Cimportac -Qimportac%Cunidades _Qunidades%Clineas Qlineas%Cgrupos Qgrupos%Cco_func Q \co_func%O%QC \concepto$QC \diariogBU XCON_MAYORESABRIR_TABLAS_FIJASPROVEEDOCLIENTESCOSTOSCUENTASIDX04IMPORTACUNIDADESLINEASGRUPOSP_SYSTEMLOCALESCO_011CONCEPTODIARIOGH0 & C ZCCA=CB*CYCZC6666CZ(\tmp\ 20{& CCA=CB*CYCZC6666CZ(\tmp\T hkhk T  ~Hm~ C& C ZCCA=CB*CYCZC6666CZ(\tmp\%C Z ?T C Z T  2~% z T  T T    > BUBORRARXDAGRUPA_POR_IMPORTACIONABREVIMPORTACFECHAASIENTOTIPO2CODEMPP_LOCALXIDXSALDODEBITOCREDITOSALDOejecutar_proceso= fn_causa] fn_nombreY^ fn_calc_local,_ obtener_formUa ejecutar_sqla exportar_1cb saldo_a_fechae!exportar_estado_de_resultados_schbg exportar_full]i open_files!m orden_final#pA2$A"aAr!A11qbAAAtr2CqAARq1qqqArBABB2ARaA!AqqAtQABAAB3qaARasQrQrQA!A !qA!qAAA!1AA!1AAABBqAABBqAAqA12222ABAAAqAABAAAAAAaAA qAAA BBAABAAAAAAaAQ ABqAAB1AA2AAaAqAAAAA2qAABRQARQAQArqAAaqAAARQA2ѥBrrbb#AB3sr2ABzqqAAcQAP%3AAAB&BAB2A1AAB  BrArBrrBAAArqAAqAA!AtAqrrrrrrqqaA1qAA12A1AAAR1ABA!q1Aq1r!Aqqq1AAAAq1ABq1r1AaArqAaArqAaABAr"A"A"!A!"AAA"!ArAAr# AAsAy bArAAC!Arr1RbBAr2ABB312*1AA21`12!BBAAAy2q3qAQ3AAAQA"AB4rAQ"A"AB24QA"BB242QA"BAB3qAAAA!A1AqAAAAA!A!AAQBAB2qAAAaA2AARBC1oz"8~\3v3ѕ #.7<ZSFH^^v%-2.xWSw]G+(listadosTPC * xdpar = 'N'TSFQHf NTN  DTD  CX 2TA %0B)J(    +     T \temp.txt G(G G + TTCiTCHTCiTCH% 9T TTC$% T TTC$ T T% TC Suspendo?a=C6(C6CF4G( P! C" ra6 %12345A T# T$  T# T$T%.t."%&CX 'CX %(jKT%%:.and.val(xdpro)<=val(cod_pro).and.val(cod_pro)<=val(xhpro) 7T%%&.and.xdpro<=cod_pro.and.cod_pro<=xhpro"%)CX *CX x%+1MT%%<.and.val(xdage)<=val(vendedor).and.val(vendedor)<=val(xhage) t9T%%(.and.xdage<=vendedor.and.vendedor<=xhage%,- 1T%% .and.xdzon<=zona.and.zona<=xhzon%./ /T%%.and.xdcat<=cat.and.cat<=xhcat%0T!T%%.and.xdlis=lista%C1T%%.and.C1F2T3\borrarGIH 4L%(/index on val(cod_pro) to (temp) for &filtro H*index on cod_pro to (temp) for &filtro  4)index on nombre to (temp) for &filtro GI G-(56F <7877989J(78T: @z 9,999,999 T;B T<%T=$9C:> T> T?a*T@Fecha : CC$* Hora : C^(C12345A  6CBorrarAF2#)+C+ %;>B T?-FG E2CG %C+ TD2CCoccprovCE FGCQHCCID cdRA12 FGE  CE FGH tmp_ageing% h fC"Comprobante repetido en la cuenta CD C2L de la empresa CCZ !!!KF TM-TN2CTOC2LPQRSTUTV2WCVcondpagoplanTXYZTR25*TSCCcuentas+  - 6Z6*T[CCcuentas+  - 6\6 J(7+2CC ,%FGE CFG -T]C^_ ^`6!TaCE CbZCcZ TdE Te TfCO%CFG G(( referencia Ea Th/+C+ aCFGCiZCjZ ThhkHG((porfacp #f  ThkTmCdenThhm%o H,  ]M Tp ]q Tp9 2 %C]iCi TpC]H  Tp9C]HTqp FTr]s -Tp9CCrCr8 Cr868Tq9p#T79C97h#T89C98h%p9 %pL#T79C97h#T89C98h#T79C97h#T89C98h %p9#T7qCq7h#T79C97h#T8qCq8h#T89C98hHT;;C XN O Ft>uNLO5>vRwSx[yVzX*CC97C97:_ !>{C97C97 T||(9fCC|7:_ T}pCC|Zrepl &aaa with xper(z) %o |9(9T}pCC|Zrepl &aaa with xper(z)  T}pCC9Z0repl &aaa with xper(xdper+2) - xper(xdper+1) T}pCC9Z repl &aaa with xper(xdper+1) T}pCC9Z repl &aaa with xper(xdper+3) CM* 6>~CM* 6F2HT;;C XCX CX C-C:>Q  T|+|9C-C:>Q T||T;;C XCX CX *CC98C98:_  T|+|9dCC|8:_ T||$C12345A6GG(G*G on escape &onesc FtH & vt>% =C Borrar_ConsA)%  |F  cFG((cod_proFt ~_F EtC%C4 Ft ^JF _J [(WTPCCZ)replace &xpit with &xpit+borrar.&xpit FtQ.*F2G!(F%C= ~9 Ta(TPCCZ%CC T-!%5HR 4%(T VAL(cod_cli) Tcod_cli 4TNombreH1   T 1Tcue_cod(& CC+6((\tmp\rpt_sch_ageing.dbfQ.*CFQBULISTADOSXDPRNXDWK1 CRITERIOSXDCENXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNTEMPTXTP_LOCALNITXBORRAR XBORRAR_CONSXCUREMPXFECHA_DXFECHA_HXAO1XMES1XAO2XMES2XDVENP_DOSXDCONSYS_MOSTRAR_SCREEN OPEN_FILESCCPROVCAUSAMOTIVOXDNFC LINEWIDTHPICAFILTROXDPROXHPROP_PRONUMXDAGEXHAGEP_AGENUMXDZONXHZONXDCATXHCATXDLISXDFORPROVEEDOTEMPXDORDCUE_DEUCUENTASXPERXPERTXDPERPICLINPAGANCHOMAXLININICIALXTEMPCREAR_ARCHIVO_TEMPORALHEADERCOD_PROXCLCOMPROBREFCAUCANTIDADCANCEL TMP_AGEINGMENSAJENOMBREXVERXPROCODXPRONOMXVENCODXVENDESXCUECODXCUEDESXZONCODXZONDESXPLANFPAGXDPLANCONDPAGODESCRXCUEABRABREVXVENCVENC XDEMISIONFECHAXCCUOTAOPXCOMPROBXCAUSAREGIS REFERENCIAACCCUOOPRIMPORTEPORFACPXPERCENT POR_CENTROXDTIPOFFSETXOFFSETAAXDDIABORRARCOD_CLICUE_CODCUE_DESCUE_ABRPLANDPLANP1ZAAAVERXDSEPEMPALL BORRAR_CONSOOBJNPITXPITXDNUM1XDELETEXINDEX XINDEXSEPFULL TT,C12345A 61TC Pgina : CCZC>C XAC XC*Empresa : Dipl.Ing.G.Bruno Schillig S.R.L.NC XC7AGEING - Da cero = da de vencimiento del plazo p/pago`C XCC CX!Todos los Centros de CostosCentros de Costos : C 6C XCC X  C  !CTotalC >  T + sACCC Z a CC ZC > T  "CMs deC > !CTotalC > !CDeudaC > C XCdigo CNombre $Ca VencerC >  T +  CdasC > T  6CCC Z dasC > #CVencidaC > !CTotalC > C XC-Q C-Q C-C >Q  T + C-C >Q T  TBULINPAGXDPRNINICIALFORMFEEDTEMPANCHOXTEMP LINEWIDTHXDCENPICZXDPERXDDIA TBUXGETw45 T< :T'Ordenado por Vendedor - Cuenta - Fecha.6T#Ordenado por Zona - Cuenta - Fecha./TOrdenado por Cuenta - Fecha.;T(Ordenado por Nombre del proente - Fecha.%$@$listbox(arr_ord% iBaB-UXORDMAXORDARR_ORDTECLALISTBOX4%C#BaF%CproveedoXQproveedo#) T1xerr1=-1xerr2=&temp %B-on error &onerr BaUTEMPPROVEEDOXERR1v 45 TCW T%CX\HYX Vcd6F E T T#+C+   T %%C C  T H#TC  6 2X T T a F BU XCOMPROBXCAUSA XACC_ESTE XACC_TOTALXPERCENTAREAXDCENVENTASFAC_VENCAUSATOT_VENCENTROXVER9 CFQproveedonombre%CxdnfcbLd T-FQccprovporfacp%CCuentasFQQcuentascuenta%Ccondpago Qcondpago%Ccatpro F QQcatproU XPASADAXCUREMPPREPARA_EMPRESAPROVEEDONOMBREXDNFCCCPROVPORFACPCUENTASCUENTACONDPAGOCATPROt TC5h1CCCNN N N N N NNNNNNNNNNNC C CCCNCN N !C(Q& U"XPATHXALIASODEYFUNCNEWFILE_LOCAL_TMPCOD_CLINOMBREVERP1P2P3P4P5P6P7P8P9P10P11P12P13P14P15P16P17CUE_CODCUE_ABRCUE_DESVEN_CODVEN_DESZON_CODZON_DESEMPPLANDPLANn 4Hg < T  G(gesTCa C\GES T  G(gesTCa C\GES T  g G(gesTCa C\GES TU XPASADAXEMPRESAP_CODEMPGESP_SERVERODEYFUNCGET_PATHSETSP_UNOP_DOSheader5 criteriosu"hlp_ord"formula=$ por_centro%% open_files'crear_archivo_temporal(prepara_empresa,)JxAA1A1Q1ABAAaa112A2AQ2Ar!rAA !qAA!AAAA1AQAra@1A1AavQrtQqqArba "aArQq1AAAb311qqAAbA9121113111121AAABAArQrWBCBAAqAA11A11AAgaaaAr1AArrrqqqQaAAAAqAraBtQaqAAAAAAA@1AA11A11EAAqAA3aqqqAA!qAAAa1qqAA3`A3qqra2AAqAq2qQqAAQAqA1q2Rar1RAAA2AA3!AqAAAAxqAA!5Q#!211QQ!1QQ!1QQQ!A<[h/4M4>>}@@AAtFF.J[J\M[MP%|yWS] G+(listados TTT TInicializando...TaTCT  causa$'Cd'H9 T  .and.causa='C' T  .and.causa='d' 9T  .and.causa='c'"% CX CX % >T  -.and.betw(val(cod_pro),val(xdpro),val(xhpro)) 7T  &.and.xdpro<=cod_pro.and.cod_pro<=xhproTcccomp.causa$'Cd'H$ ]&T.and.cccomp.causa='C' &T.and.cccomp.causa='d' &T.and.cccomp.causa='c'"% CX CX % IET4.and.betw(val(cccomp.cod_pro),val(xdpro),val(xhpro)) ET4.and.xdpro<=cccomp.cod_pro.and.cccomp.cod_pro<=xhproT*TObteniendo comprobantes...TC]%C resultadoFQh1\tmp\CC(CCCN N DNDDNNNN C!C("N#N$N%N&N Q%CEMPRESAS &Q' \empresascodigo%(; T)*F+G((codigo#) T,aT-.t.%(u,T-inlist(codigo, p_codemp, p_dos)+C+ C-  T.CO T/F!Q' \empresascodigo E/0ft052ft05a%Cempresas GF!Q' \empresascodigoF+G((codigo E/ 3C/4 5F+!Q' \empresascodigo E/F+ #.H T/)F!Q' \empresascodigo E/0ft052ft05a F+G((codigo E* 3C*4 5%C resultado Q\tmp\FTT*TGuardando datos finales...">! Desconocido!T7.t.HY  8 T7 imp_despl#0 8 T7imp_despl=importe& C9Bcopy to (p_local+'\tmp\rpt_ve_desplazamiento') fox2x for &xfil Q \tmp\.dbf \tmp\.fpt \tmp\.cdx \tmp\.idx \tmp\.bak%Cq F:Q ;cm_sql_desplazamientoBU=LISTADOS OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEXARCHIVONEWFILETEMP2XDCOMXDPROXHPROP_PRONUMTEMP1 RESULTADOP_LOCALCODIGONOMBRECAUSACPBTNUMEROCUOTAOPFECHAIMPORTEVTOCANCELCNDDSPDESPLAZ IMP_DESPLVENDEDORNOMVENDDESP7DESP15DESP30PROM_DPEMPRESAP_SYSTEMXDEMPXOLDEMPP_CODEMPEMPRESASXINICIAL XFILTRO_CON REG_EMPRESAXCODLOAD_EMPFT05 DNLD_CUENTASPUSHPROCESARPOPFORXFILXDCPBIDQOPEN_FILES_LOADCM_SQL_DESPLAZAMIENTO4%CL+ T%CLS T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxcm_rpt_desplazamientoT\xchgTTgT CCC$iCC$HCC$%$ T C$T T  C BUXTABLAXDTIPXDMONOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDNUM2XDNUM1 EXP_TABLA TC]%Cccprov HQccprov%Cproveedo zQproveedo%Ccccomp QcccompC Suspendo?aselect * from ccprov where between(ccprov.fecha, xdfec, xhfec) .and. ccprov.cod_pro#"0 ".and.ccprov.causa$"Cd" .and. ccprov.ref+ccprov.cau+str(ccprov.cuo)+str(ccprov.opr)=ccprov.comprob+ccprov.causa+str(ccprov.cuota)+str(ccprov.op) .and. &temp2 into cursor ccprov2 select distinct ccprov2.cod_pro as codigo , nvl(proveedo.nombre,space(40)) as nombre , ccprov2.causa as causa , iif(ccprov2.causa="C","FC","ND") as cpbt , cccomp.fac_com2 as numero , ccprov2.cuota as cuota , ccprov2.op as op , ccprov2.fecha as fecha , ccprov2.importe as importe , ccprov2.venc as vto , ccprov2.cancel as cancel , 000.00 as cnd , 000.00 as dsp , 000.00 as desplaz , 0000000000.00 as imp_despl, space(30) as nomvend , 000.00 as desp7 , 000.00 as desp15 , 000.00 as desp30 , 000.00 as prom_dp , xempresa as empresa from ccprov2 inner join cccomp on ccprov2.comprob+ccprov2.causa+ccprov2.cod_pro+str(ccprov2.op)=cccomp.fac_com+cccomp.causa+cccomp.cod_pro+str(cccomp.op) inner join proveedo on ccprov2.cod_pro=proveedo.cod_pro where between(ccprov2.fecha, xdfec, xhfec) .and.ccprov2.cod_pro#"0 ".and.ccprov2.causa$"Cd" .and. &temp1 .and. ccprov2.ref+ccprov2.cau+str(ccprov2.cuo)+str(ccprov2.opr)=ccprov2.comprob+ccprov2.causa+str(ccprov2.cuota)+str(ccprov2.op) into table (p_local+"\tmp\"+xarchivo2) G2Q\tmp\T 4T $Analizando comprobantes obtenidos...F( T "T C  6 ~T  FG((comprob,ECZCZ%C4 TCOG((porfacc Ta T Tlistados T T> !C 8C6"C 8C6#C 8C6FG((comprob #FQ\tmp\$%\tmp\ \tmp\.dbf \tmp\.fpt \tmp\.cdx \tmp\.idx \tmp\.bakBU&XEMPRESA XARCHIVO2CCPROVPROVEEDOCCCOMPSYS_MOSTRAR_SCREENP_LOCALBORRAROESTADOVALUETEXTOTRECMAXCOMPROBCODIGONUMEROCAUSACUOTAOPREGISPORFACCPRIMEROXDSPXCNDCND_DSPPLISTADOSAAABBBDESPLAZPCNDDSPDESPLAZ IMP_DESPLDESP7DESP15DESP30XARCHIVO RESULTADOC%Cproveedo 8QproveedocodproBUPROVEEDOCODPROdemora* procesar3open_files_load4!t111A"qAA1a1a1aA"QQAAqAAQBaA4rQ1AR1AqrrBAR1rAAr#11AB#B#qAAB3trArA"AB3qr!AAA!As+Hd@Ar!qq rBArB2AF1;PI$e$%%1CUO]4%C % TC$TCHTCi'TC01/CCZ/CCZ#"TCCC*01[#TCC]RFG((ccvfacFG-( 5( \tmp\C   S G-(FQ \tmp\F Q\data\2\ccventF Q\data\2\ventasov2c2QCQ     C   S 1 \tmp\tmpmix2QFQFQotmpstdQCQC  tmpmix1 \tmp\tmpmix2{otmpmix1CQtmpmix& C Suspendo?aF~C@T CCHCHCHCHCH CH6 FE%C4 *>TF G((codins E&% "S #S ;F$G((codigo ECX T%& UT% &FC>C'C% % 66FF( ~FE(((%C4FQ%Ctmpmix2(F)QT)CC]R=h1 \tmp\)CCC*C(+C,C-N.N/C 0N1NN2N&N3N4C 5C Q \tmp\))& F ~ 6 } T &% "S #S 9 F7~5 F"~1 F$G((codigo E "878CX%9- rtmpmix2*+,-./45& "878 *"*7* - .C]":";$& y &% "S #S | F"~x F$G((codigo E "8 CX%9t rtmpmix2*+,-./45& "8  *"* - .C]":";$& u &% "S #S F7~ F$G((codigo E  78CX%9 rtmpmix2*+,-./45&  78 *7* - .C] : ;$& q rtmpmix2*+,-./45&    * - .C] : ; &C Suspendo?aF) ~> FG((codigoE)))F)>F$G((codigo E)))CXF)>2&F)& T<CC]RN ( \tmp\<%Ctmpmix3 F<QFQ \tmp\<<& F)G-(< ~ >1<20<%'[$>3C21 dT1 $>3C0 dT0F>S \tmp\)#) \tmp\tmpmix2.dbf \tmp\tmpmix2.cdx \tmp\tmpmix2.fpt \tmp\tmpmix3.dbf \tmp\tmpmix3.cdx \tmp\tmpmix3.fpt \tmp\tmpstd.dbf \tmp\tmpstd.cdx \tmp\tmpstd.fptBU?XFECHAXMESXANOXDESDEXHASTATMPSTD STDCCVENTCCVFAC STDVENTASFAC_VENCAUSAP_LOCALFEC_VEN PROMOCIONP_SYSTEMC2V2COD_INSCODIGOBULATR RECEPCIONCANTIDADOBIEDATA_CODIGO_VACIOTMPMIX1TMPMIXSYS_MOSTRAR_SCREENMIX_ADICFECHAXPERXCODBIENESCODINSBULTOS ATRIBUTOSSTOCKXFACTORFACTOR P_PR_UNIDADMIX_NOTMPMIX2DESCRDBULDATRLINEAGRUPOIDUTOTCODTOTCODACANTAUX PORCENTAJEUNIDAD UNIDADAUXEST_ACTATRIBUTOCLAVEACTIVOMEDIDA MEDIDAAUXTMPMIX3FORMIX 4)%C\usr\sap.dbf0,FQ\usr\sapFch1\borrar9CCCN DF)~C g C g p{rborrar9 CC [=C \C  \C gC gF ~FG((codigo E   CX%C4F > F #)FQF QF\borrar9 u?R, El archivo \usr\sap.dbf no existe !!!BUXPERIODOXFECHAP_SERVERSAPP_LOCALCOD_INSBULATR RECEPCIONFEC_VENF9F15F5BORRAR9STOCKCODIGOFACTORTMPSTDimportart"AP1r"Rrr1Rb` ArArA brrrQAqbrBr1rArqBAAsAqAAR@arqbrAqAr ABAarAr ABarAr AB CAACsrqrrrBrRqAArA2AABsARB28rArqrABrAQrArArqBB46$x %48j5㍅W]V%C planifica 0Q planificaFG((periodoEC%%C4 3C&No hay planificacin en el periodo !!!B T T T T  T  T  T CFQ \tmp\avance_1 T T T T  T  T T CFQ \tmp\avance_2 T T T T  T  T T%Cplvenage IQplvenageovQCQCQCQQQ C!Q!CC"C#cC" d6Q$%Q&C#Q#C"Q"C %av1T(.t.%C C *T(betw(p.cod_age, xdage, xhage)select p.codigo as codigo , b.descr as descr , nvl(av1.cantidad,00000000000.00) as cantidad , nvl(av1.cantaux,00000000000.00) as cantaux , b.linea as linea , l.descr as dlinea , nvl(av1.precio,00000000000.00) as precio , nvl(av1.precioaux,00000000000.00) as precioaux , nvl(av1.total,00000000000.00) as total , nvl(av1.dtos,00000000000.00) as dtos , p.cod_age as agente , nvl(av1.descom,00000000000.00) as descom , nvl(av1.subtotal,00000000000.00) as subtotal , sum(nvl(p.cantidad, 0)) as plan from plvenage p left outer join av1 on av1.agente+av1.codigo=p.cod_age+p.codigo left outer join bienes b on p.codigo=b.cod_ins left outer join lineas l on b.linea=l.codigo group by p.cod_age, p.codigo where between(p.ano*100+p.mes, year(xdfec)*100+month(xdfec), year(xhfec)*100+month(xhfec)) and !empty(p.codigo) and &xfiltro into table (p_local+"\tmp\avance_1_1") %  o avance_1_1QQCQCQQQQQ C!Q!CC"C#cC" d6Q$C"Q"CXQ&C)Q)1\tmp\avance_1_1_1F*QF+D>C ! 6 C ! 6(\tmp\avance_1_1 U D>C ! 6 C ! 6%Cvv FQ%C avance_1_1 F*QF!Q\tmp\avance_1_1% T topQCQ-CC.6Q/CC.6Q0CC  6Q1CC.6C  6Q2CC.6C  6Q3CXQ&C 1\tmp\avance_2_2  ~opQCQ-CC.6Q/CC.6Q0CC  6Q1CC.6C  6Q2CC.6C  6Q3&Q&C &1\tmp\avance_2_2Q C4F!Q\tmp\avance_2_2T(.t.%5J T(v.plan#0Gselect v.codigo as codigo , v.descr as descr , v.linea as linea , v.dlinea as dlinea , round(v.precio,2) as precio , round(v.precioaux,2) as precio_aux , round(v.total,1) as importe , round(v.subtotal,1) as subtotal , round(v.dtos,2) as dtos , round(v.cantidad,1) as can_ven , round(nvl(p.ped,00000000000.0),1) as pedidos , round(nvl(p.ped_apr,00000000000.0),1) as ped_apr , round(nvl(p.ped_napr,00000000000.0),1) as ped_napr , round(v.cantaux,1) as can_ven_a , round(nvl(p.ped_a,00000000000.0),1) as pedidos_a , round(nvl(p.ped_apr_a,00000000000.0),1) as ped_apr_a , round(nvl(p.ped_napr_a,00000000000.0),1) as ped_napr_a , round(v.cantidad+nvl(p.ped_apr,00000000000.0)+nvl(p.ped_napr,00000000000.0),1) as total_v , round(v.cantaux+nvl(p.ped_apr_a,00000000000.0)+nvl(p.ped_napr_a,00000000000.0),1) as total_v_a , v.agente as agente , nvl(agente.nombre,space(30)) as nomage , round(v.plan,1) as plan , 00000.0 as alcance , 00000000000.0 as diferencia , 0000000 as cantped , 000000000000.00 as pp , 000 as orden , nvl( iif(q.litros=0, 000000000000.00, v.plan * q.importe / q.litros), 000000000000.00) as plan_valor from v left outer join agente on v.agente=agente.cod_age left outer join p on v.codigo=p.codigo and v.agente=p.agente left outer join q on v.codigo=q.codigo where &xfiltro order by v.linea, v.codigo into cursor avance readwrite >6C10C2CC420036667C) 8) d698):C8;8 6% [& CZ< }& =CZ<T>C?F<>@>&(\tmp\rpt_es_ind_avanceAlistados%C avance_1_1_1 F+Q%C avance_1_15F*QFQFQBUC PLANIFICAPERIODOXHFECMENSAJE OLD_XDFECXDFEC OLD_XHFEC OLD_XDAGEXDAGE OLD_XHAGEXHAGE OLD_XDTIPXDTIP OLD_XDSTKXDSTK OLD_XDCONXDCONVENTASP_LOCALVPEDIDOSPPLVENAGECOD_INSCODIGODESCRCODDESCRCANTIDADCANTAUXLINEADLINEAPRECIO PRECIOAUXTOTALSUBTOTALDESCOMDTOSCOD_AGEAGENTEAV1XFILTROPLAN AVANCE_1_1 AVANCE_1_1_1ALLPEDESTADOPED_APRPED_NAPRPED_A PED_APR_A PED_NAPR_A VALORIZARXSOLO_CON_PLANORDENALCANCE CAN_VEN_A DIFERENCIAPPIMPORTEAVANCENOMAGE XCANTIDADCANTIDAD_DE_PEDIDOSCANTPED ESTADO_INILISTADOSuTAvance_11QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T\tmpTT]TCCiCH$T T -T T  T aTT CBUXTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDDATXDSEPXDLOG1XDCONMANTER_OESTADOXDAGEXHAGE EXP_TABLAITAvance_21QEXPORTACIONES_CRYSTAL Imp_exp.vcxbTCexportaciones_crystal Imp_exp.vcx)ve_rpt_productos_pendientes_de_entrega_v3T\tmpTT1TT T  T   C BU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG3XDSTKXDAGEXHAGE EXP_TABLA3 4TC$%PTC $ sTC$&Tventas_anuales_vendedores1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxve_rpt_estadisticas01T\tmpTT  T T T  Ta TaT T-TTT T-TT CBUXMESXANOXDESDEXHASTAXTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDUNI P_PR_UNIDADXDLOG1MANTER_OESTADOXDCODXDXBAXDCLASEXDTIPXDSEPXDDATXDLINXHLIN EXP_TABLA 4C*%Cventas_anuales_vendedoresRFQ2Q\tmp\ventas_anuales_vendedoresF& %Cplvenage Qplvenage   F & TC]Voventas_anuales_vendedoresQCQv27oprevenQv2ventas_anuales_vendedoresQQ Q  QQQCC 6TQCC 6TQ    1\tmp\Q\tmp\ ~H%d8>CC 8 C 8 6 D'>CC8 C86 C%Cagente QagenteF& F ~F~VF G((idE %C4  C bienescodinsF- Nrtmp_plan    FQF\tmp\BUXMESXANOVENTAS_ANUALES_POR_VENDEDORVENTAS_ANUALES_VENDEDORESP_LOCALCOD_INSCOD_AGEIDPLVENAGEINMESANOPREVENCODIGOBORRAR XPLANIFICADOVTOTALTOTV2PMES1APLAN_COD VENTAS_AGE TOTAL_CODCANTIDADCANT_ORITMP_PLANFORAGENTECLASE 4%Cplvenage 9Qplvenage%Cbienes gQbienes%Cagente Qagente%Clineas Qlineas%Cgrupos Qgrupos%Ctmp_planFQoplvenageagentebienes      Q Q         1 \tmp\tmp_planQ \tmp\tmp_plan&  T-pr_plan_vendedores(%  F \tmp\tmp_planFQBUXMESXANOPLVENAGEBIENESAGENTELINEASGRUPOSTMP_PLANMESANOCOD_AGENOMBRECODIGODESCRCANTIDADCANT_ORILINEADLINEAGRUPODGRUPOCOD_INSP_LOCALIDXRESPR_PLAN_VENDEDORESIN?41QEXPORTACIONES_CRYSTAL Imp_exp.vcxJTCexportaciones_crystal Imp_exp.vcxES_IND_RPT_AVANCET\xchgT'T T T T T  Ta T- CBUXPDFXDESDEXHASTAXAGENTEOEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOOFORMXDFECXHFECXDAGEXHAGEXDTIPXDLOG2XDLOG3EXP_PDF/T"betw(ccvent.fec_ven, xdfec, xhfec)%C :T) and between(ccvent.agente, xdage, xhage)%CccventFQF%'Q\data\CCZ\ccvent  Qccventselect distinct pedido from ccvent group by pedido where cod_cli#"0 " and pedido>1 and causa="V" and &xfiltro into cursor qq1 T %aF'Q\data\CCZ\ccventselect distinct pedido from ccvent group by pedido where cod_cli#"0 " and pedido>1 and causa="V" and &xfiltro into cursor qq1 T  x T Q%CccventFQ B U XFILTROXDAGEXHAGECCVENTXDCONP_SYSTEMP_UNOX1P_DOSX2N1QEXPORTACIONES_CRYSTAL Imp_exp.vcxJTCexportaciones_crystal Imp_exp.vcxES_IND_RPT_AVANCET\tmpT 6T T T  T a T- T-TT CBUXTABLAXDESDEXHASTAXLISTA XDESCUENTOOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDFECXHFECXDTIPXDLOG2XDLOG3XDLOG4XDVALXDDSCEXP_TABLA_EXCEL_PDF%Cplandet Q%Clisprec PQlisprec%C planifica Q planificaFG((periodoEC%%C4 3C&No hay planificacin en el periodo !!!BHQ\Usr\pr_planificaciones\pr_plan_ventasGoplandetQXlisprecQ    CZ   CZCX     Cd QC ( Cd  6Q Cd QC q/(\tmp\plan_valorizado_detalladoԻoplandetQXlisprecQ    CZ   CZCX C QC Cd QC  q%CplandetQ%C planificaQBUPLANDETLISPREC PLANIFICAPERIODOXHFECMENSAJEP_SERVERIDUPCODIGOATRBULMES1CMES1ALPRECIO XDESCUENTOPRECIOAIMPORTELISTACOD_CLIXLISTAQP_LOCALLITROSventaspedidosventas_anuales_por_vendedorplan_vendedoreseditar_plan_vendedores%exportaro)cantidad_de_pedidosE+ exportar_dashI. valorizarN0QAr11AAAA@qA;7QrArEDB#qAAqAA7NCBuQA@qt 2AAsbqAAqAArArAB3{Q"BB3rQ!"BB32Ara"BE2(qAA"w!AAshq2rBB!Ar!rqQr1rAABrArC3AA!A!A!A!AqAAP!rBrAB41"BB2aArqAAqARrqRACrqAA3q#BB3A1AQAr11AA`q0! AAB<m #;$&g(&T+p+45:C :'=G=@:@CLC'M%cvWW^U3 4  Ta pr_comienzoTC+in_operacionestemporal% F G((prod ET  T T T # pr_funciones%Ccur1-FQ[omovstockCZ/CZP cur1T %C  #WCNo existe el cierre CCZ para la produccin CCZ !!! BUXPRODXCIENUMXBORRARXOK OPEN_FILES PR_COMIENZOODEYFUNCNEWFILE_LOCAL_TMPCREAR_TABLA_TEMPORALIN_OPERACIONESPRODUCCIPRODXFECHAFECHAXCODCODIGOXATRATRXBULBULPR_COMB_BUSCAR PR_FUNCIONESCUR1MOVSTOCKNUMEROCAUSAPR_ROTULOS_SELECCIONARMENSAJE"G+(dey_func in_funcionesC Sel Suspendo?aTCF in_rotulosF #) ~x T /  r tmp_rotulosa      ! "C]%Cdespacho QdespachoF# ~a?%C####despachodespacho>$C" R @>%C#a&'C''6( ##) T)(in_rotulos_seleccionar(+F#) + ' ( 3%CNC)-F#Q.*U.XPRODXCIENUMXFECHADEY_FUNC IN_FUNCIONESSYS_MOSTRAR_SCREEN XTMP_ROTULOSNEWFILE_LOCAL_TMPIN_ROTULOS_CREAR_TABLAS IN_ROTULOSCUR1XDESCR PR_COMB_DESCRXCODXATRXBULSELBIE_CODBIE_BULBIE_ATRBIE_DESMOV_FECMOV_CANTMOV_NUMMOV_PROMOV_LOTEIDUPALLET COMENTARIOCODIGOBULATRFECHACANTIDADDESPACHO TMP_ROTULOSIDU_DSPBIE_UNIIN_MEDIDA_ARTICULOROT_CANTCANTXENVXOFFSETIN_ROTULOS_SELECCIONARXRESULTAFORPR_ROTULOS_IMPRIMEfC Suspendo?aG+(dey_func T"TCC@z 999,999,999_"TCC@z 999,999,999_T C  T C W%C CPBT\_rotulos_pr.prg0#C CPBT\ _rotulos.fxp0  Ta { T-%C rotulos_stockMFQF ( FQ F ~nbTCCC-6CCC-6CTCTCTCTCTCCZ(T CC!@z 999,999,999.99_8T CC R.00C C >[ 6%5"T"C .txtG G. G("G G * CPBT\_rotulos_pr.prgGG(%#N{ e 1aaa=1"(lpt1on error &onerr %#$CArchivo generado : "% jG+( Code128.PRG T()(C!* wf<+F^(+F_+%)*!c>,!( T((* >,*H ->&C. ->&C. 2%>&CCCCC.>/C0.1(bF_+F >2CO)(>2)c& 22 T41%C5\cpbt\ROTULOS_PRODUCCION.LBX0 T6#T7ROTULOS_PRODUCCION.LBX T8 T9T:RPRCCZEC7Impresin de rtulos(ROTULOS_PRODUCCION.LBX). Suspendo?aV;listados7698:.t.aaaaa _VCNo existe el formulario !!!C=(ROTULOS_PRODUCCION.LBX)6%U>XOFFSETSYS_MOSTRAR_SCREENDEY_FUNCZFECHAXFECHA ZPRODUCCIONXPRODZCIERREXCIENUM XNO_ZEBRAODEYFUNCNEWFILE_LOCAL_TMP XPATHCPBTGET_PATHP_EMPXZEBRA ROTULOS_STOCK TMP_ROTULOSZCODIGOBIE_CODBIE_ATRBIE_BUL ZDESCRIPCIONBIE_DESZLOTEMOV_LOTEZPALLETPALLET ZCOMENTARIO COMENTARIOZCANTIDAD_ETIQUETASROT_CANTZCANTIDAD_TOTALMOV_CANTZFILEP_DEVLPT1MENSAJECODE128PRGACCZCANTXENVARR_ROTCANTIDAD P_IN_SCAN_COD CODIGO128AIDU128IDU_DSPZZIDALLZCOPIAP_SERVERXDESTINO XFORMULARIOXCOPIASXDRIVER XIDARCHIVOIMPRIMIR_FORMULARIOLISTADOS PUB_INDEXpr_rotulos_reimprimir,pr_rotulos_seleccionarpr_rotulos_imprime1bbqA2RqAAaqA3"rQ@ AAArSBArA"ArA4qs#!!rArqAArBs$"!!!AtaaaacaA22AAVrrsQrA1Q1!QA"rQABBBqQA1RbaA3!. 5D\ %<A2)=HvW/^G+(listados%CEMPRESAS R&Q \empresascodigo5 TaTCprocv% TFG((codigo#)T .t.%,T inlist(codigo, p_codemp, p_dos)+C+ C | T CO T SET PROCEDURE TO &xsetprocs F!Q \empresascodigo E  ft05ft05a%Cempresas F!Q \empresascodigoFG((codigo E  C F!Q \empresascodigo E F # H T F!Q \empresascodigo E  ft05ft05a -FG((codigo E  C SET PROCEDURE TO &xsetprocs F.Q\tmp\rpt_te_recibos_borrar1& #(\tmp\rpt_te_recibosF.Q\tmp\rpt_te_recibos_borrard& & G((comprobF%l%CS h T-F>oborrardQXclientesQ" !"!XccventQ2 2!232!Q !"#C$Q%C&Q&'Q(Q)*CXQ+,-./borrard2G-( ~uT5 T6F+C+ 5 ]<T66CC6, 6C7$ C8FHF4 >+6 >)d( &(%:;%;): C):;  >COI( \tmp\rpt_te_recibos_aplicacionesC= *, a6%A(>\recibos_aplicaciones_1ԻC= *, a6QF oborrardQXclientesQ" !"!XccventQ2 2!232!C$Q?2@Q &Q&'Q(Q)CXQ+87/ QAborrard3G-( >)d( &(1(!\tmp\rpt_te_recibos_aplicaciones2%R ((>\recibos_aplicaciones_2Ի%C DSRI FETECFG (EFQEHr BorrarD3A /IJKLMNoborrard3QOOACO7$O7O8O/O?QIOQJCO QKO(QLO&QMO)QNH  P G!(\TQOcau+comprob+Causa+DTOS(EVL(dif_valor,DATE(2099,1,1)))+DTOS(CP_Fecha)+CP_Comprob P |TQoDTOS(EVL(fecha,DATE(2099,1,1)))+cau+comprob+Causa+DTOS(EVL(dif_valor,DATE(2099,1,1)))+DTOS(CP_Fecha)+CP_ComprobINDEX on &xOrder TAG final 1("\tmp\rpt_te_recibos_y_aplicacionesQCE*QB%v%Coborrar1C iQRCC H ?8QST#CUQUCVW6QXYQZQ[CXQ\] R RST#Y# cobranzas_1 ~> >[CZ[>\C[\-(>\cumplimiento_de_cobranzas_1Իo cobranzas_1RST#CUQUC[Q[CXQ\RST#RS#cumplimiento_de_cobranzas_2 ~&>\C[\-(>\cumplimiento_de_cobranzas_2Իocumplimiento_de_cobranzas_2RSC#Q`CUQU\RS\RS#cumplimiento_de_cobranzas_3-(>\cumplimiento_de_cobranzas_3Ի rMC@No existe la carpeta GES EXPORTACIONES y no puede ser creada !!!bBFQ\borrar.*cte_sql_recibosBUeLISTADOSP_SYSTEMCODIGOXINICIAL XSETPROCSXDEMPXOLDEMPP_CODEMPEMPRESAS XFILTRO_CON REG_EMPRESAXCODLOAD_EMPFT05 DNLD_CUENTASOESTADOPUSHPROCESARPOPP_LOCALBORRAR1CAUCPBBORRARBORRARDCOMPROBCAUSAREF XEXPORTAR EXPORT_DIRORDENBDFECHACOD_CLICLNOMBREFN_TIPOTCAPLICADODEUDATOTALPORCANTICIPORECIBOSCONTADOPLANTRANEMPCLIENTESCCVENTCCCFAC_VENBORRARD2XIDXTXTORI_CAUORI_CPBTFORXDPORCXHPORCALLXSOLO_ANTICIPOS P_DIR_EXPORTTIPOFEC_VEN ORI_FECHABORRARD3XFACDETAP_EMP XBORRARAPPODEYFUNCNEWFILE_LOCAL_TMP BORRARD3ACP_TIPO CP_COMPROBCP_FECHACP_TOTAL CP_APLICADCP_PORCBD3XDORDXORDERANO TRIMESTRECLIENTEIMPORTEP_MULTIRECIBOSRECIBO COMPROBANTEDESPL_FCDESPLAZAMIENTOPUNTAJE CALIFICACIONISENCA COBRANZAS_1CUMPLIMIENTO_DE_COBRANZAS_2CANTIDADCUMPLIMIENTO_DE_COBRANZAS_3MENSAJE OPEN_FILESTE_SQL_RECIBOS4H C  AB MUY BUENO Crt#@nBBUENO CN`@BREGULAR 2 BMALO BUXPUNTAJE4H C3&k @ B  C ` B C  B 2 BBUXDIAS TH, VOTFC rrTRE cTNC dTND LTAS ATAJ I!TIT PDTPD RgTRC 2TXXBCUXCAUSAXC%Cclientes 8QclientescodcliFG((codcli%Ccuentas QcuentaFG((cuenta%Cccclie Qccclie%Cccvent Qccvent%Cmotivos *Qmotivos%Czonas VQzonas%Cagente QAgente%Cven_oper Qven_oper%Cchq QchqBU CLIENTESCODCLI_CUENTASCUENTASCUENTACCCLIECCVENTMOTIVOSZONASAGENTEVEN_OPERCHQte_sql_recibosTCh1DDC C N  N  N N CC CN N CNN NDLLCC LLN N N C!N"C#C $C%L&C'C((C)C*C+C,C-C .D/N0N1NQ2& "#3%CBorrarD F4Q5T5CFh15D6CC C7N8N9C "C%L:C ;C<L=Cd>N +CQ54& & 9"9G((comprobHo ?T@ causa="R" ?T@ causa="A" 2%T@(causa="A" or causa="R"),%ABBA  O/T@@.and.xdpro<=hoy.and.hoy<=xhproCT@@2.and.xdfec<=fecha.and.fecha<=xhfec.and.!causa$"DX""%CCX DCX {%E$]T@@L.and.val(xdcli)<=val(ven_oper.cod_cli).and.val(ven_oper.cod_cli)<=val(xhcli) wIT@@8.and.xdcli<=ven_oper.cod_cli.and.ven_oper.cod_cli<=xhcli"%FCX GCX d%H_T@@N.and.val(xdage)<=val(clientes.cobrador).and.val(clientes.cobrador)<=val(xhage) `GT@@6.and.xdage<=ven_oper.agente.and.ven_oper.agente<=xhage%IJ 5T@@$.and.xdrec<=recibo.and.recibo<=xhrec%KL 5T@@$.and.xding<=ingtes.and.ingtes<=xhrec%MN wCT@@2.and.xdzon<=clientes.zona.and.clientes.zona<=xhzon%OS?T@@..and.ven_oper.causa="R" .and. ven_oper.aplic=0FP,SET FILTER TO &xfiltro .AND. causa$"RIA" H  QU ,TRcausa, comprob, tipo, dif_valor Q 3TR&fecha, causa, comprob, tipo, dif_valorSELECT ven_oper.* FROM ven_oper LEFT OUTER JOIN clientes ON ven_oper.cod_cli = clientes.cod_cli WHERE &xfiltro ORDER BY &xorder INTO CURSOR vo FSG-(TG-(6U+C+ 2 CSVagentecodageF2G((borrarESS%C4 u>CSWCSRRCCSAAJ66"S#S+XY>SS S  S  SZ S6Ua-&SV'V>ST[TYSS\SS SZS S $S$%S$1 $CCSZCS]Zchqidd>(C^_SINO6)C^$SINO6*C^*SINO6 %a T` TaFbG((comprob$TcS6SSCZ Ec TdTeCC4CO6)+C+ 6CfZc Tdd FgG((ccvfacEb9b"%Ccondcobr "QcondcobrFi G((plan Eg=%ij%Cplanvarc QplanvarcFk G((IDEb9b"F4>6b6b9b"8b c9b"bb:b;b>g>7g7+XY%ij >4%i%4<iminioipiqirisitiuiviwixiy>4=i[ >4%k%4<kmkzk{k|k}k~kkkkkkk>4=k[FbH%e #e #6H T)+C+ 6CfZc  TeCOT cT69"CZ E%dFG((codigo Eb%$>2aFbT69"CZTCC+CO6G(( referencia E T)+C+ 69"CZ I=%6CfZc R A AT FgG((ccvfacEbb%Ccondcobr QcondcobrFi G((plan Eg=%%6>2%aFbHG((comprob%z # #6H%T Fb #eH>2!FbG((comprob ES6SSCZ T T T T@+C+ -6CZS6SSCZ 8T69"CZ TCO T E%C4 T #)Tbbb cTb cH%`T w TF29> CCCFS #)> S a SZu>CSWCSRRCCSAAJ66"S#S+XYk>SS S  S  S6U&SV'V>ST[TYSS\SS SZS S --$S$%S$1$CCSZCS]Zchqidd>(C^_SINO6)C^$SINO6*C^*SINO6FSHFSQF2HY Q*& CAZ6$3 Q0& CCAZ6$3#)T T+C+ !%C ZC Z%S%f >a { >-TC ZC Z THF2%*(\tmp\rpt_te_recibos_borrar1 5)Q\tmp\rpt_te_recibos_borrar1 QF4%}*(\tmp\rpt_te_recibos_borrard )Q\tmp\rpt_te_recibos_borrard 5Q T-BU OPEN_FILESTE_SQL_RECIBOSXBORRAR1ODEYFUNCNEWFILE_LOCAL_TMPFECHAHOYCOMPROBCAUSAINGTESRECIBOIMPORTEIMPORTE2CLIENTECUENTADETALLEIDENTIFIDENTIF2NOMBREACCNUMEROAPLIC DIF_VALORISENCA HASCHILDS CUENTADESC CUENTAABRE NUMBERERRRECHDESPL_RCDESPL_FCPUNTAJECALIFCPBTSCAUCPBTIPOANTICIPOVENDEDOR DVENDEDORTERCEROSDIFERIDOECHEQUEEMPCP_TIPO CP_COMPROBCP_FECHACP_TOTAL CP_APLICADCP_PORCBORRAR1BORRARBORRARD XBORRARDETCOD_CLIDEUDAAPLICADOREFORI_CPBTORI_CAUCONTADOPLANTRAN XDCOMPROBANTEXFILTROXDPROXHPROXDCLIXHCLIP_CLINUMXDAGEXHAGEP_AGENUMXDRECXHRECXDINGXHINGXDZONXHZONXDSPRVEN_OPERXDORDXORDERVOCUENTASCLIENTESAGENTE FMT_RECIBO_CEMPRESASABREVCAJ_PRODESCRDES_VALSUBNUMCHQTERC XACC_CPBT_IMP XACC_CPBT_ACCCCCLIEXID_CC XACC_RECIBOXREG_CCCUOTACCVENTCCVFACCONDCOBRVARIABLEPLANVARCIDPLAZOA1A2A3A4A5A6A7A8A9A10A11A12C1DC2DC3DC4DC5DC6DC7DC8DC9DC10DC11DC12DXCC_COMPROB_CCCXCC_COMPROB_APLXREFCUOMOTIVOSCODIGOMOTIVOXNEWREFXREG2 REFERENCIAXIMP2 XACCIMPORTEXIMPORTEXDIASXDIASRCXREGDIASXVENCVENC CALIFICACIONULTNUMXIDXDASTXINICIALP_LOCAL/te_rpt_recibosJ BUOFORMTE_RPT_RECIBOS;!CUXDFECXHFECXDCLIXHCLIXDTIPEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aH  T-TC  A   yTa   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDPROXHPROXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR calificacionpuntajefn_tipo, open_filesprocesar* obtener_form9 ejecutar_sqll9ejecutar_reporte9'aAt32rQ1AR1AqrrBAR1rA!2!sAAsP5qqAArAr11AAABu3Aqq 1a1AA!B  !!A !A; AAArAB2qq!A2qqqAA2qqAAAAAAAAAA3AqAq!A!A1ArA!AAARAA3sQ)!qAAqQ!1a1aQAA1!AA!qAAQAQA1AAAr111A rr1QV- rBFAsCr1AAq"AAq2BsQ 221ArAAAQAABr2AAr2r1AAq2ArAAAAQAA2QArBAsBaBA2ArAqSW/ rBFABqAArAr11ARAqAAAAAuAArAAB3q3q3AAA1Q1111AA1$&`: n) !|!($=$S TTT;UdUX%y FdFU^ TCTC%CBorr_RecQFQF|h1C NCC D N NQT .t. %C  ?1T  and BETWEEN(rt.pv, xdpv, xhpv) %C 8T  ' and BETWEEN(rt.cod_age, xdage, xhage) %#T   and rt.cerrado=1 %$T   and rt.habilitado %=,T   and not empty(rt.cod_age) SELECT rt.*, NVL(ag.nombre,SPACE(30)) AS des_age, IIF(rt.cerrado=1, "S"," ") as txt_cer, IIF(rt.habilitado, "S"," ") as txt_hab FROM rec_tal rt LEFT OUTER JOIN agente ag ON ag.cod_Age=rt.cod_Age WHERE &xFiltro INTO CURSOR Talonarios READWRITE HL i C "o talonariosǼ borr_finalF1(Crpt_te_recibos_talonariosUXBORRARXBORRAR2ODEYFUNCNEWFILE_LOCAL_TMPBORR_RECIDURECIBOCOD_CLIDES_CLIFECHAIMPORTEREC_HASXFILTROXDPVXHPVXDAGEXHAGEXDCERXDHABXDENTXDTIPLISTADO_FALTANTES TALONARIOS BORR_FINALGET_PATHt'TCDeyFunc Dey_Func2.prgCagenteCrec_talCnumrecUOTDF CHK_OPENEDF ~6F ^JCFHo TalonariosQborr_recQ Ǽ borr_finalU TALONARIOSOOBJBUSCAR_FALTANTESTLBORR_RECBRIDU BORR_FINALoven_oper QRHCC @z 9999,999,999_C @z 9999,999,999_ vRec >CCCC,RgT  ~%  % 38rborr_rec      |?rborr_rec      T %  ;rborr_rec     U OOBJNRECVEN_OPERCAUSACOMPROBDESDEHASTAVRECALLXRECULTIDURECIBOREC_HAS Openfileslistado_faltantes~Buscar_faltantesR qAAaAaA1AAAA11!Ar3qqaqa4qqqA4qBAAAaA1%@N+jgW4 h%;xdF^a C 'TCDeyFunc Dey_Func2.prgTC%~T ve.costo>0 T.t.%C D%8T' and BETWEEN(ca.cod_cli, xdcli, xhcli)  @9T( and BETWEEN(cac.cod_cli, xdcli, xhcli) %C  %9T( and BETWEEN(cac.cod_pro, xdpro, xhpro)  8T' and BETWEEN(cm.cod_pro, xdpro, xhpro) &%C  C3 $ R8T' and BETWEEN(cc.fec_ven, xdfec, xhfec) &%C C3 $ :T) and BETWEEN(cm.fec_com, xdfec2, xhfec2) % 2T! and (ca.recibida=(xRecibida=1)) %; $SELECT cc.cod_cli , cc.fec_ven , cc.fac_ven , cc.causa , cc.fac_ven+cc.causa AS id_ven, ve.itm , cc.fac_ven+cc.causa+STR(ve.itm) AS id_itm, ve.cod_ins , ve.atr , ve.bul , ve.recepcion , ve.costo * ve.recepcion AS costo, ve.cosmon , bi.linea , bi.grupo , cl.nombre AS Cliente , bi.DESCR AS Articulo , ca.costo AS adet_costo , NVL(ca.itm2,0) AS itm2 , cc.fac_ven+cc.causa+STR(ve.itm)+STR(NVL(ca.itm2,0)) AS id_Frac, FNC_CodPro(ca.cod_pro) AS cod_pro, FNC_DescPro(ca.cod_pro, pr.nombre, ca.DESCR) AS proveedor, ca.recibida AS adet_rec , IIF(ca.recibida, "SI", "NO") AS tx_adetrec, cac.com_comp , cm.fec_com , cm.cod_ins AS com_bie , cm.desc_ins AS com_desc , cac.itm_c , IIF(ISNULL(cac.com_comp), SPACE(60), cc.fac_ven+cc.causa+STR(ve.itm)+STR(NVL(ca.itm2,0))+cac.cod_pro+cac.com_comp+cac.Com_Cau+STR(NVL(cac.itm_c,0))) AS id_comp , cac.com_asig , 00000000.00 AS ven_asig, 00000000.00 AS itm_asig, 00000000.00 AS ven_rec, 00000000.00 AS itm_rec, 0000 AS n_compras, 0000 AS n_frac, 0000 AS n_items, 0000000000000.00 as tot_asig, 0000000000000.00 as tot_factu, 0000000000000.00 as tot_factu2 FROM cos_adet ca LEFT OUTER JOIN ventas ve ON ve.fac_ven+ve.causa+STR(ve.itm) = ca.fac_ven+ca.causa+STR(ca.itm) LEFT OUTER JOIN ccvent cc ON cc.fac_ven+cc.causa=ve.fac_ven+ve.causa LEFT OUTER JOIN bienes bi ON bi.cod_ins = ve.cod_ins LEFT OUTER JOIN clientes cl ON cl.cod_cli=cc.cod_cli LEFT OUTER JOIN cos_acom cac ON ca.fac_ven+ca.causa+STR(ca.itm)+STR(ca.itm2) = cac.fac_ven+cac.causa+STR(cac.itm)+STR(cac.itm2) LEFT OUTER JOIN compras cm ON cac.cod_pro+cac.com_comp+cac.Com_Cau+STR(cac.itm_c) = cm.cod_pro+cm.fac_com+cac.Com_Cau+STR(cm.itm) LEFT OUTER JOIN proveedo pr ON pr.cod_pro = ca.cod_pro WHERE &xFiltro INTO CURSOR Seleccion READWRITE SELECT cc.cod_cli , cc.fec_ven , cc.fac_ven , cc.causa , cc.fac_ven+cc.causa AS id_ven, ve.itm , ve.cod_ins , ve.atr , ve.bul , ve.recepcion , ve.costo * ve.recepcion AS costo, ve.cosmon , bi.linea , bi.grupo , cl.nombre AS Cliente , bi.DESCR AS Articulo , ca.costo AS adet_costo , NVL(ca.itm2,0) AS itm2 , cm.cod_pro+cm.fac_com+cm.causa+STR(cm.itm)+STR(NVL(ca.itm,0))+STR(NVL(ca.itm2,0)) AS id_Frac, FNC_CodPro(ca.cod_pro) AS cod_pro, FNC_DescPro(ca.cod_pro, pr.nombre, ca.DESCR) AS proveedor, ca.recibida AS adet_rec , IIF(ca.recibida, "SI", "NO") AS tx_adetrec, cac.com_comp , cm.fac_com , cm.causa AS Com_Cau , cm.fec_com , cm.cod_ins AS com_bie , cm.desc_ins AS com_desc , cm.tot_com AS com_tot , cm.itm AS itm_c , cm.cod_pro+cm.fac_com+cm.causa AS id_comp, cm.cod_pro+cm.fac_com+cm.causa+STR(cm.itm) AS id_itm, cac.com_asig , 00000000.00 AS ven_asig, 00000000.00 AS itm_asig, 00000000.00 AS ven_rec, 00000000.00 AS itm_rec, 0000 AS n_compras, 0000 AS n_frac, 0000 AS n_items FROM compras cm LEFT OUTER JOIN cos_acom cac ON cac.cod_pro+cac.com_comp+cac.Com_Cau+STR(cac.itm_c) = cm.cod_pro+cm.fac_com+cac.Com_Cau+STR(cm.itm) LEFT OUTER JOIN cos_adet ca ON ca.fac_ven+ca.causa+STR(ca.itm)+STR(ca.itm2) = cac.fac_ven+cac.causa+STR(cac.itm)+STR(cac.itm2) LEFT OUTER JOIN ventas ve ON ve.fac_ven+ve.causa+STR(ve.itm) = ca.fac_ven+ca.causa+STR(ca.itm) LEFT OUTER JOIN ccvent cc ON cc.fac_ven+cc.causa=ve.fac_ven+ve.causa LEFT OUTER JOIN bienes bi ON bi.cod_ins = ve.cod_ins LEFT OUTER JOIN clientes cl ON cl.cod_cli=cc.cod_cli LEFT OUTER JOIN proveedo pr ON pr.cod_pro = ca.cod_pro WHERE &xFiltro INTO CURSOR Seleccion READWRITE TOOTOOTOO T T T T T T%& & & 1o Selecciontmp1-otmp1CQtmp2 ~O*p Seleccion  ;o Seleccion!!!tmp1-otmp1C!Q"tmp2 ~*p Seleccion" " :o Seleccion#C# #tmp1-otmp1C#Q$tmp2 ~*p Seleccion$ $ &o seleccion&tmp1.otmp1C&Q'tmp2 ~*p Seleccion' ' @o seleccion#CC(Q)C# #tmp1 ~*p Seleccion))##@o seleccionCC(Q*C# tmp1 ~ *p Seleccion** #& ##& & 1o Seleccion##tmp1-otmp1#CQ#tmp2 ~*p Seleccion # #Go Seleccion!!!tmp1-otmp1C!Q"tmp2 ~*p Seleccion" " :o SeleccionC tmp1-otmp1CQ$tmp2 ~*p Seleccion$ $ F,(+\Tmp\rpt_cs_costo_adicionalQU, OPEN_FILESXBORRAR1XBORRAR2OTDFNEWFILE_LOCAL_TMPXDVISXFILTROXDCLIXHCLIXDPROXHPROXDFECXHFECXDFEC2XHFEC2 XRECIBIDAXFCXFCIXFCI2XTFCXTFCIXTFCI2XRFCXRFCIXRFCI2ID_VENID_ITMID_FRACITM SELECCIONTMP1N_ITEMSTMP2ITM2N_FRACID_COMP N_COMPRASDISTINCT ADET_COSTOTOT_ASIGCOM_ASIG TOT_FACTU TOT_FACTU2P_LOCALF%CC , BCX ? BUXCODPROZ%CC 9BCCT.C"\xchg\exp_movimientos_de_tesoreria 7T'C\xchg\exp_facturas_a_cobrar 6T&C\xchg\exp_facturas_a_pagar 5T%C\xchg\exp_compras_detalle :T*C\xchg\exp_pedidos_cumplimiento ,TC\xchg\tc_resumen 4T$C\xchg\exp_iva_ventas.dbf >T.C"\xchg\exp_iva_ventas_mensuales.dbf 5T%C\xchg\exp_iva_compras.dbf ?T/C#\xchg\exp_iva_compras_mensuales.dbf % B- %Ccuentas /Qcuentas%CtmpRFQ %a4%C#exp_inventario_valorizado_por_listaFQ<Q)\xchg\exp_inventario_valorizado_por_listaF K(< 7 T 4%C#exp_inventario_historico_valorizado`F Q<Q)\xchg\exp_inventario_historico_valorizadoKo#exp_inventario_historico_valorizadoC <)%  T-%Cexp_movimientos_de_tesoreriaJF Q5Q"\xchg\exp_movimientos_de_tesoreriaoexp_movimientos_de_tesoreriaQcuentas CQC@\SCA\S CB\S CC\S CD\S C\S C\S C\S C$\S C%\S ...   tmp_tesoreria K(#)&%Cexp_facturas_a_cobrarVFQ.Q\xchg\exp_facturas_a_cobrar*oexp_facturas_a_cobrarC%  T%%Cexp_facturas_a_pagarFQ-Q\xchg\exp_facturas_a_pagar)oexp_facturas_a_pagarC% ~ T$%Cexp_compras_detalleFQ,Q\xchg\exp_compras_detalle Coexp_compras_detalleQ !"#$%&'("(# ' tmp_compras K(*%#6%CN HCCNFc=%C tc_resumen C\xchg\tc_resumen.dbf0 #Q\xchg\tc_resumenPh1 \xchg\tc_pos+C,N-N Q \xchg\tc_posF.#)Hrtc_pos Clientes(+)./CCC8CC8CC8^Krtc_posProveedores(-).0CCC8CC8CC8^Irtc_pos Tesorera(+).1CCC8CC8CC8^Jrtc_pos Posicin 1(+).2CCC8CC8CC8^?%C tc_resumen2 C\xchg\tc_resumen2.dbf0 $Q\xchg\tc_resumen2F&Q\xchg\exp_iva_ventas.dbfF0Q"\xchg\exp_iva_ventas_mensuales.dbfHoexp_iva_ventasC345Q6C#C$CC$%C$ 8Ioexp_iva_ventasC345Q6C#CCC$i$C$ 9@oexp_iva_ventasCQ6C#C$CC$%C$ :Aoexp_iva_ventasCQ6C#CCC$i$C$ ;F'Q\xchg\exp_iva_compras.dbfF1Q#\xchg\exp_iva_compras_mensuales.dbfVoexp_iva_comprasC<=>?@AQ6C#C$CC$%C$ CVoexp_iva_comprasC<=>?@AQ6C#CCC$i$C$ DAoexp_iva_comprasCQ6C#C$CC$%C$ EBoexp_iva_comprasCQ6C#CCC$i$C$ F(G%H CC6Error en los datos generados...vuelva a generarlos !!!I CGJIBUKP_SERVERXAND VALIDAR_TABLACUENTASTMP#EXP_INVENTARIO_VALORIZADO_POR_LISTATOTALXTOTAL_INVENTARIO1XTOTAL_INVENTARIO#EXP_INVENTARIO_HISTORICO_VALORIZADOTOP FECHA_VALEXP_MOVIMIENTOS_DE_TESORERIAABREVDCUENTADEBEHABERCUENTACOD_CUEATRIBUTOHORAS TMP_TESORERIAXSALDO_TESORERIAEXP_FACTURAS_A_COBRARSUMSALDOXSALDO_CLIENTESEXP_FACTURAS_A_PAGARCPBT_IMPXSALDO_PROVEEDORESEXP_COMPRAS_DETALLEABRIR_CLIENTES_PEDIDOSEMPOPPAGOFECHACOM_DESCOM_TOTPRO_DESCTA_DESHOY TMP_COMPRASXTOTAL_GASTOS_CONTADODESCRVALORCOLOR TC_RESUMENCLIPROTESPOS1 NO_GRAVADOOTROSGRAVADOIMPORTEEXP_IVA_VENTASXIVA_VENTAS_SINXIVA_VENTAS_SIN_ANUALXIVA_VENTAS_CONXIVA_VENTAS_CON_ANUALNOIMONMONCFEXNOGRAVBASEEXP_IVA_COMPRASXIVA_COMPRAS_SINXIVA_COMPRAS_SIN_ANUALXIVA_COMPRAS_CONXIVA_COMPRAS_CON_ANUALOEXP_DEVMENSAJEMESSAGE)%Cexp_pedidos_cumplimiento4FQ1Q\xchg\exp_pedidos_cumplimientooexp_pedidos_cumplimientoCiQCQCQCQCC Q C C Q clientes_pedidos_resumenBUEXP_PEDIDOS_CUMPLIMIENTOP_SERVERFECHAANO TRIMESTRE CANT_PEDIDOSSUBTOTALTOTALPER_PD PER_CUMPLIDOCUMPL_PD PER_DEMORAENC_PEDCLIENTES_PEDIDOS_RESUMENL%CCRf.DBF:T.dbf BC0UXARCH tomar_datosW abrir_clientes_pedidos validar_tabla_DBsQrrA%ACr1qAAAABArqAsAtqr1aaAB2rQ2qAAAAA4QAqaQAQqA1ABqAAAqAArrAqAAB"AqAAQQbqAA!ARqAA!ACqAAR"A1ArQAAaqca!1AAC3qAA M2qQA1g %%N)wh))%*9 eodfX^U4%CxempbL. T ges CGFQF'Q\data\CCZ\ccclieF'Q\data\CCZ\ccprovF(Q\data\CCZ\chequesF)Q\data\CCZ \VEN_OPERF)Q\data\CCZ \COM_OPERF(Q\data\CCZ\comprasF3Q\data\CCZ \proveedocodproF 3Q\data\CCZ \clientescodcliF 2Q\data\CCZ\cuentascuentaF FQcashcueF1Q\data\CCZ\costoscodigoFQcashnumeFQcashdataF1Q\data\CCZ\saldoscuentaFQcashcfg#)F1Q\data\CCZ\ccventccvfacF% )Q\data\CCZ \cashadic QcashadicFQcashcancFQcashexpaFQcashpronFQcashtipoF2Q\data\CCZ\ventasven_facF1Q\data\CCZ \condcobrplanF 1Q\data\CCZ\agentecodageF#F$F(Q\idx04idx04F(Q\data\CCZ\cashuse%Cplanvarc=FQ.Q\data\CCZ \planvarc%CcccnotasFQ.Q\data\CCZ \cccnotasF2Q\data\CCZ\cccompcomprob%Ctcccomp"FQ-Q\data\CCZ\tcccomp%CtcompraswFQ.Q\data\CCZ \tcomprasG R BUXEMPP_CODEMPGESABRIR_TABLAS_FIJASP_SYSTEMCODPROCODCLICUENTACASHCUECODIGOCASHNUMECASHDATACASHCFGCCVFACP_DOSP_UNOCASHADICCASHCANCCASHEXPACASHPRONCASHTIPOVEN_FACPLANCODAGEP_COMMONIDX04PLANVARCCCCNOTASCOMPROBTCCCOMPTCOMPRASBUBU open_files0 inicializar variables_publicas1qARdAqq11!QA!qAAqAA!qAAqAAdRB2B3B2 a c - %n—~rX^> %C xmostradorbN- T0%Cxmovimientos_entre_cuentasbLl Ta&%C C3 $ T-%%Cxcontro_salidasbL T-%CxdnumbN T%CxhnumbN4 T"%C xdcli_origenbCiT CX"%C xhcli_origenbCT CXG+(listadoste_procs T - T-,CPreparando archivos... 5TCC]RTCC]RTCC]RTCC]R%CerroresFQF"h1\tmp\MQ\tmp\*h1\tmp\C C(C DDCN C C C!C"C#N $N %N &D'D(N)N*N+C<,D-C.N /C0C1C2C3C4C5C6C7C 8M9N :N ;C<L=L>L?L@LALBLCC DC(EC FNGCHLICJN KLLN MCNNOCdPLQLQ\tmp\h1\tmp\DDRCSN TNUN*NC C(VCC WNXNYN ZN [N \N !C]N &D^D_C#N %N  CC5C+CC`C4C@LALBLCC DC(JN C EC FNGC"CHLICKL6C7C LN MCNNOCdPLQLQ\tmp\%Csaldos x QsaldosFa(\tmp\FQ\tmp\b& cb%CEMPRESAS  &Qd \empresascodigo%e} H6  ee l TfCghi e TfCghi 2 C ERROR !!!j#Tkinlist(empresas.codigolf Tkk,CCl ZTkk) TmnFhG((codigo#) Toa+C+ Ck  TpCO Tq F!Qd \empresascodigo Eqrft05tft05a%Cempresas " F!Qd \empresascodigoFhG((codigo EqFQ\tmp\FQ\tmp\FQ\tmp\ u Cv wFh!Qd \empresascodigo EqFh #pH TqmF!Qd \empresascodigo Eqrft05tft05a  FhG((codigo En u Cv w%Csaldoini FbQFQ\tmp\bG((saldoini%Ccuentas YFQxcuenta%Cborrar1 ~F FQ\tmp\%Cborrar F FQ\tmp\%CEMPRESAS @&Qd \empresascodigo%Cven_oper FQven_operven_ope%Ccom_oper FQcom_operoper$CAnalizando saldos...}FhG((codigo En!%C C <F& (\tmp\F~G((cuentaFbG-(cG-(c~~Cborrar+ 2rborrarTU"4JCbDbTbUbc~~ SALDO INICIALhnG-(F%& CR  Z6CC^^6RCCR1Z[6 @z 99,999,999_(\tmp\ Lj& CR  Z6CRCCR1Z[6 @z 99,999,999_(\tmp\T45345345345#$5345 TC Analizando...} ~% T TTTU >*%DRH= 51@T[24]  52fT[48]  53T[72]  54T[96]  55T[120]  56T[144]  57&T[AC] 2= T>!!T T%R1DH@ L%Z #TRC CZ @z 999,999_,T(AL CCY @z 999,999_)  :#TAL CY @z 999,999_#TC[C ] !=%C+,TC[C ] ! += D#TDE CZ @z 999,999_TC!= X8#TEX CZ @z 999,999_TC!= A#TAJ C] @z 999,999_(TC[C ] ! = Z\ #TIT C\ @z 999,999_(TC[C ] ! = 2:TDP TC!= duTND TC!= cTNC TC!= VTFC TC!= 2@#TRC CZ @z 999,999_(TC[C ] ! = kH_g Ls%[#TPA C[ @z 999,999_,T(AL CCY @z 999,999_)  #TAL CY @z 999,999_(TC[C ] ! =%C+o,TC[C ] ! += D#TDE C[ @z 999,999_TC!= X#TEX C[ @z 999,999_TC!= Ad#TAJ C] @z 999,999_(TC[C ] ! = 2TDP TC!= dTND TC!= cTNC TC!= 2g#TPA C[ @z 999,999_(TC[C ] ! =%e T[4] C Analizando...}FyG(F{G(F& 4(\tmp\TmG+(te_procs ~-%JmiCJTmJF>4h>>H L>AS>Y R&>RC>Z O\>CP>[ D>DE(>CZ Z[6 X>EX(>C[ [Z6 A.>AJ>] 2T>DP dz>ND c>NC V>FC 2> >%2Vdc> F!>C@z 999999999999_>>  >!!">"CC_ C" >#>$#>%%>&&>'^>(T>)U>**>++>EE>FF>66>77>LL>MM>NN>OO*>%D/"H " 51!!T24 52G!T48 53m!T72 54!T96 55!T120 56!T144 57"TAC 2" T >5>QQ%$,T T T T T T TH"*0 LP N2 &%T$F{G((idcheqEC# ZC%Z T-=+C+ *C# ZC%ZC# ZC%Z #% PS # Ta!H%$ T TYTCLY<CO[)CA]CD[6666 TTCP!TPTCV &FyG((idcheqEC# ZC%Z%C4% T TYTCLY<CRZ)CACDZ6666 TTCC!TCTCV &F{G((idcheqEC# ZC%Z T-=+C+ *C# ZC%ZC# ZC%Z P&% H& Ta!H%& T T TY TTCP!TPTCV R~(F{G((idcheqEC# ZC%Z T-=+C+ *C# ZC%ZC# ZC%Z '% PS ' Ta!H%z( T TYTCLY<CO[)CA]CD[6666 TTCP!TPTCVA O D 2 P *FyG((idcheqEC# ZC%Z%C4) T TYTCLY<CRZ)CACDZ6666 TTCC!TCTCV *F{G((idcheqEC# ZC%Z T-=+C+ *C# ZC%ZC# ZC%Z m*% e* Ta!H%* T T TY TTCP!TPTCVF >,v>-CLASWCDDEBCOCP-CRRCCAAJ66666 >. >/ >0 >1 >2%`1,FG((numero E$FQ>@@AABCCDGG % C ,"Cclientescodcli>CD!S>3C- CC.@z 999,999,999.99_ CC1 C2 C+$>"CF"CF6)%C C  /C -:%CCC0gC gC gC0 6 -FCnFC Analizando...}F%x1%Cpro2 (.Qpro2%Cbancos ^.Qd\bancosi1borrar1C(i1borrar1Ci1borrar1Cdi1borrar1C i1borrar1Ci1borrar1Ci1borrar1Ci1borrar1Ci1borrar1C~Pt1%%C proveedoCODPROp1!%C pro2CODPROl1 CbancoscodigoH00 +0TCAP Q0TCCP w0TCAD 0TCCD 20T >CCSINO6CJURIDICA FISICA6F&%C C3 $ 72 CF}& CHAZ6C SALDO INICIAL"AZ6CC'6CC()AZ6 2Fw& CHAZ6C SALDO INICIAL"AZ6CC'6C()AZ6 T T~H A3%3 TT() >* T%8F#) T T+C+ k4)>; C@z 9999,999,999_6T%C 3 >9%; 4 ><aT;%<  c4 H%C [4 >=aHHF%C 4 H%C 4T >9 >=a& ;;& ;=aCComprasCccprovCcccompG+(te_pagos_aplicaciones2C"Buscando comprobantes aplicados...}`oborrar1QQ6Q Q;Q;CPtgetcomp% 8 T T- ~<6&TCa2C"Agregando datos de comprobantes...}F G((linkFG((linkfFioborrar1QQ6Q Q;Q;CPtgetcompFG-(;G-(; T ~8 T0+;;C Comprobantes+ 7%C8 7T - 8H%C>7F>3C\FQF& 9':#)+C+ 8%<8 H%C z8 >?aH%C+8!HF%C 8 H%C 8 >?aG+(listados%09F>CRC%;oborrar1$Q#"CQC()QH $1\Control ChequesQG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN6T&Control de ingresos/salidas de valores$T\Control Cheques CCabrevCuenta%Cdcuenta Descripcin'CnumeroNmero InternoCchequeCheque#CcantidadCantidad!CimporteImporteTCF'(\tmp\rpt_te_movimientosoborrar1CC SALDO INICIAL"H () 6CCH () 6QCCH () 6QCC SALDO INICIAL"H () 6QCC SALDO INICIAL" H ( 6Q(CC SALDO INICIAL" H ) 6Q)CCH () 6Q*q1/(\tmp\rpt_te_movimientos_resumenQFQ\tmp\.*FQ\tmp\.*FbQ\tmp\.*%Cerrores,>FQ\tmp\.*G+(listadosG~(clasesCaBU XMOSTRADORXMOVIMIENTOS_ENTRE_CUENTASXDHOYXHHOYXDSALXTOPXCONTRO_SALIDASXDNUMXHNUM XDCLI_ORIGEN XHCLI_ORIGENLISTADOSTE_PROCSXDINGXDDCIOESTADO SET_AND_SHOWBORRARBORRAR1BORRAR2ERRORESP_LOCALERRORCUENTADCUENTAABREVFECHAPROCESOCAUSACOMPROBCPBTPROCLICODIGONOMBRECHEQUENUMERONUMINTSUBNUMEMISIONDIFERDEBEHABERSALDO COMENTARIOODFECHAODCAUSA ODCOMPROBODPROCLIODCODIGOODNOMBREODBANCOORIDESEMPHORAS CPBT_CAUSA CPBT_COMP CONCEPTOSORDEN1ORDEN2LINKISENCAISFINISCPBT ISCPBT_FINENDOSADUDOSOTERCEROCUITLIBRAREFINTSUBTIPO DEP_PUEBLOANULADOANULADOTEMPRESAANUMODCATDCATTIPO2DTIPO2PROPIODTOFROMNUMDEBITOCREDITOBANCOXEMPSALDOACASIENTORECIBOOPAGOINGTES OPERACION DIF_VALORDES_VALTIPOSALDOSSALDOINICOD_CUEP_SYSTEMXDEMPOCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJE XFILTRO_CONOEMPXOLDEMPP_CODEMPXINICIAL REG_EMPRESAXCODLOAD_EMPFT05 DNLD_CUENTASPUSHPROCESARPOP_CUENTASVEN_OPERVEN_OPECOM_OPEROPERAVANCECUENTASXDFECDESCRXDDIFXOLDXSALDOXHXTXUXT2 P_COMBEMPABRIR_EMPRESA_PROCESOXFECHAXCAUSAXCOMPROBXCODIGOXNOMBREXPROCLIXBANCOIDCHEQXOKCAJ_PROCOD_PRO VOPERACIOCOD_CLICHQTERCEMISORCLIENTES INSCRIPCIO FN_SUBTIPOP_CLINUMINXDATOS_BANCARIOS_PROVEEDORPRO2 TRFCUENTATRFCBU TRFTITULARTRFCUIT TRFTIPOCTATRFCTA TRFPROPIA TRFPERSONATRFCONCPROVEEDOBANCOTRF XTRFTIPOCTABANCOSCBUFECHA_DE_PROCESO_SALDOSUBFINALOLDCUEACCXCPBTXNUMXOLDLINKLINKF CHK_OPENEDTE_PAGOS_APLICACIONESDISTINCTBRNOPAGOTGETCOMP XCOMPROBANTES XINICIADOPAG_APLICA_FILL COMPROBANTESXORDEN2XCONCTFINALP_MULTIRECIBOS FMT_RECIBO_CFORCANTIDADIMPORTEXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSORIGINAL ANULACIONESANTERIORQ1CLASESCHEQUES_MOSTRADOR!FG((codigo E%CproveedoFF XF3Q\data\CCZ \proveedonombre%CclientesF F3Q\data\CCZ \clientescodcli%Cven_operF *F4Q\data\CCZ \ven_operven_ope%Ccom_operF F1Q\data\CCZ \com_operoper%CchqF F$Q\data\CCZ\chqU XCODIGOEMPRESASCODIGOPROVEEDOP_SYSTEMNOMBRECLIENTESCODCLIVEN_OPERVEN_OPECOM_OPEROPERCHQ 4 TCW%P`FG((codpro E F B FG((codcli E F BUXTIPOXCODIGOAREAPROVEEDOCODPRONOMBRECLIENTESCODCLI4 TCW!TC@z 9999,999,999_HM DFG((comprobECX+C+  H&% FG((cuenta E F B  XF G((comprobECX+C+  mH&% FG((cuenta E F B  2 F B BU XCOMPROBXCAUSAXFECHAAREAVEN_OPERCOMPROBFECHACAUSACUENTASCUENTADESCRCOM_OPER'C Procesando...G+(listadosG~(clases%Ccatpro iQcatpro%CSALDOINI FQ\tmp\FG((saldoini%Ccuentas FQcuentaF G((cuenta%CSALDOS ?QsaldosF G-( T BA%:~CC X C X C a6T C  6F E %C4 =Grsaldoini      > > >C DF F %{G(C\SC\SC\S C\S C$\S C%\S CQ\S C<\S C=\S CH\S  =G(C\SC\S C\S C$\S C%\S CQ\S C<\S C=\S CH\S %LTsubs(atributo,19,1)='S'.or.subs(atributo,20,1)='S'.or.subs(atributo,21,1)='S'.or.subs(atributo,36,1)='S'.or.subs(atributo,37,1)='S'.or.subs(atributo,81,1)='S'.or.subs(atributo,60,1)='S'.or.subs(atributo,61,1)='S'.or.subs(atributo,72,1)='S' )Tsubs(cuentas.atributo,19,1)='S'.or.subs(cuentas.atributo,20,1)='S'.or.subs(cuentas.atributo,21,1)='S'.or.subs(cuentas.atributo,36,1)='S'.or.subs(cuentas.atributo,37,1)='S'.or.subs(atributo,81,1)='S'set filt to &xfiltro %Cproveedo FQproveedocodproFG((codpro%Cclientes FQclientescodcliFG((codcliF >G((cuentaF T T%Cven_oper zFQven_operven_ope%Ccom_oper FQcom_operoperC Procesando...F $%$CX %CX  %& hT'vo.fecha<=xhfec% d%T''.and.vo.fecha>=xdfec T'vo.fechai<=xhfec% &T''.and.vo.fechai>=xdfec"%C X C X ! 2T''!.and.betw(cu.abrev, xdcue, xhcue)%( V !T'' and vo.tipo#[2]%) !T'' and vo.tipo#[1]%C* C+ 2T''! and betw(vo.numero,xdnum, xhnum)%C, C- S VT''E.and.betw(iif(empty(vo.dif_valor),vo.fecha,vo.dif_valor),xdven,xhven)Hh  . #T''.and. vo.caj_pro>0 . #T''.and. vo.caj_pro<0#T''.and. vo.caj_pro#0"%/CX 0CX O 2T''!.and.betw(vo.cod_cli,xdcli,xhcli)%1 "T''.and.vo.causa#"L"%2 "T''.and.vo.causa#"D"H J  3 #T''.and. vo.causa=[R] 3< #T''.and. vo.causa=[O] 3r #T''.and. vo.causa=[D] 3 #T''.and. vo.causa=[x] 3 #T''.and. vo.causa=[L] 3 #T''.and. vo.causa=[A] 3J #T''.and. vo.causa=[d].%C4 5C3 $  3select {} as fec_ini, vo.* from ven_oper vo, cuentas cu where vo.cuenta=cu.cod_cue and between(vo.hoy, xdhoy, xhhoy) and &filtro order by vo.fecha into cursor vo 'select saldoini.fecha as fec_ini, vo.* from ven_oper vo, saldoini, cuentas cu where vo.cuenta=saldoini.cod_cue and vo.cuenta=cu.cod_cue and vo.fecha>=saldoini.fecha and &filtro order by vo.fecha into cursor vo G-( G-(6+C+ {/T7C89: 8;8<6"%=C& >6 T?COF@>ABCBD>E8FG8H^>I J KCC \SC B\S SN6>C& 88>6L8MN1O?P8PQCCclientes+ 8FDX 8RQ6D86S8ST8UV8VW8WXC8X _BFY8YZ8Z[8[C776C7 7c6 8  \8\F8F]C^8^H8H_8`a8aL8M"%C ven_oper.dtobC[>@b8bS%8X%KS >WTRANSF/PAGO ELECTR.  >W >W8W%8FL, Tc Td(%Ccd8P8eFf,+C+ 8PP 8gg rH$%8PP 8gg ->@hCCfh fhii6>@jij !F8H FR#TkRC FDFTkDE FXiTkEX FATkAJ FLTkAS FdTkND 2Tk??2rerroreslk 8H: dF@&%8FD 8FX F E8m%C4F@>Q JDF@%>FC8FDDX6 lF E8 %8hF E8 %C4dD>C776C7 7c6F8HC Procesando...F"$%/CX 0CX  &%n8^T'Qiif(tipo="1".and.co.dif_valor#{}.and.co.propio="S", co.dif_valor,co.fecha)<=xhfec ^T'co.fecha<=xhfec% %T''.and.co.fecha>=xdfec"%C X C X 2T''!.and.betw(cu.abrev, xdcue, xhcue)%C* C+ A2T''! and betw(co.numero,xdnum, xhnum)"%$CX %CX 2T''!.and.betw(co.cod_pro,xdpro,xhpro)%( !T'' and co.tipo#[2]%) !T'' and co.tipo#[1]%1 9"T''.and.co.causa#"L"%2 p#T''.and.co.causa$"DX"%C, C- VT''E.and.betw(iif(empty(co.dif_valor),co.fecha,co.dif_valor),xdven,xhven)Hg .1#T''.and. co.caj_pro<0 .g#T''.and. co.caj_pro>0#T''.and. co.caj_pro#0H 3#T''.and. co.causa=[R] 3 #T''.and. co.causa=[O] 3A#T''.and. co.causa=[D] 3w#T''.and. co.causa=[x] 3#T''.and. co.causa=[L] 3#T''.and. co.causa=[A] 3#T''.and. co.causa=[d].%C4 5C3 $  select {} as fec_ini, co.* from com_oper co, cuentas cu where co.cuenta=cu.cod_cue and between(co.hoy, xdhoy, xhhoy) and &filtro order by co.fecha into cursor co select saldoini.fecha as fec_ini, co.* from com_oper co, saldoini, cuentas cu where co.cuenta=saldoini.cod_cue and co.cuenta=cu.cod_cue and co.fecha>=saldoini.fecha and &filtro order by co.fecha into cursor co G-( G-(o+C+ &/T7Cp9: p;p<6%=!& T?COF@>ABCBD^>I J KCC \SC B\S SN6>EpFGpH>pLpMN2O?PpPQpqQCCproveedo+ pFDX rS pqQ6DpospsTpTWpWXCpt ptpX6YpYZpZ[p[C7 7c6C776 p  \p\FpF]P^p^HpH_p`apaLpM"%C com_oper.dtobC!!>@bpbS#%Cpo u !&%Cucatprocodigo!>uu>vJH!## p^1"%pwS!>W CHEQUE PROPIO >wa ">WpW p^2"H@""# pFO KS " >WTRANSF/PAGO ELECTR.# pFL KS "$>WEFE/TRANSF/PAGO ELECTR. 2" >W p^3 # >W 2##>WpW%pFL% Tc Td(%CcdpPpeD$Ff,+C+ pPP pgg #H$%pPP pgg @$N>@hCCfhpXCH.fh  fhii6>@jij %FpHf$Q% FO$TkCP FD$TkDE FX$TkEX FA$TkAJ FL%TkAS Fd8%TkND 2Q%Tk??2rerroreslk pH: dF@%pFDX&F Epm%C4%F@>Q JDF@">FCFDDX6 &F Ep %p&F Ep %C4&D>C7 7c6C776FpH CxF@~j]' Ty"z co_funciones@jyF@*>|yWC^2|W6%} '@Cj2<=AF@~j' Ty"z co_funciones@jy >|yBUOESTADOAVANCELISTADOSCLASESCATPROP_LOCALBORRAR2SALDOINI_CUENTASCUENTACUENTASSALDOSCOD_CUEXTOPXDSALXDCUEXHCUEABREVFECHADEBITOCREDITO XMOSTRADORATRIBUTOXDAJUXFILTROPROVEEDOCODPROCLIENTESCODCLIALLXADEBXACREVEN_OPERVEN_OPECOM_OPEROPERXDPROXHPROXDINGFILTRO XEFECTIVOXVALORESXDNUMXHNUMXDVENXHVENXDDYCXDCLIXHCLIXDASIXDDEPXTIPO_COMPROBANTEXDHOYXHHOYCOD_CLIXIMPORTEVOMONPASEXDMONCAJ_PROMONEXTXDFECFECHAIREGISTROBORRAREMPEMPRESASEMPRESACODIGO CPBT_CAUSACAUSA CPBT_COMPCOMPROBDCUENTADESCRBANCOPROCESOHOYFROMNUMASIENTONOMBREDES_CLIERECIBO OPERACION VOPERACIOINGTESDES_VALNUMEROSUBNUMEMISION DIF_VALORHORASPROCLITIPOREFINTREFSUBTIPODTOXERRXERRMSGBUSCAR_ASIENTODIARIOGPASE COMENTARIOCONCEPTOTIPO2XERRCAUERRORCUENTA2XDDIFCOD_PROCODES_PROVCONTADOOPAGO GANANCIASCATDCATPROPIOFECHA_DE_PROCESO_ANULADOS XTXTIPO_ASDG_TIPO_ASIENTOTX CO_FUNCIONESDTIPO2XMOVIMIENTOS_ENTRE_CUENTASIN4%CxdcuebCLTC XTC X c T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxte_rpt_movimientosT\xchgTT  TT T a T C 6TT CBUXTABLAXDFECXHFECXDCUEXHCUEOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG7 XDCONSOLIDADOP_DOS EXP_TABLAM41QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxte_rpt_movimientosT\tmpT T  5TTTT  T C6 CBUXTABLAXDCUEXCUEXDFECXHFECXDEMPOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXHCUE XDCONSOLIDADO EXP_TABLAjB%Cte_anu .Qte_anu%Cq1PFQ%Cq2rFQoborrarq2=ote_anuq2  q1 T ~% !CcuentascuentaH4   OZT CP  AT AJ  RT RC  dT ND  LT AS 2 T ??T   C &TC c6%TC 6rborrar1  ANULADO/MODIFICADO  %Cq1=FQ%Cq2_FQBUTE_ANUQ1Q2DISTINCTCUENTABORRARPROCESOXDHOYXSALDOCUENTASCOD_CUECAUSA XCOMPROBANTECOMPROBXDEBEIMPORTEXHABERFECHADEBEHABERABREVDCUENTANOMBREEMPORIDESDESCREMPRESASDETALLE%Cq1FQqoborrarCQ q1  F ~|rborrar1   C 6C 6 SALDO INICIAL  %Cq1FQ%Cte_anu Qte_anuF G((idF ~p4%CCC , te_anuidl$%   h >a%Voborrarq2Kote_anuq2    q1 T ~R%:!CcuentascuentaHO& OuT CP AT AJ RT RC dT ND L T AS 2&T ??T   C! T" T#%$ T#$c T"$rborrar1 %&' "#(ANULADO/MODIFICADO)  *a%Cq1xFQ%Cq2FQBU+Q1CUENTAABREVDCUENTADEBITOCREDITOSALDOEMPEMPRESABORRARPROCESOXDHOYINBORRAR1FECHADEBEHABERCHEQUEXHHOYTE_ANUID CPBT_COMP CPBT_CAUSAXDFECANUMODXCON_REFERENCIASDISTINCTQ2XSALDOCUENTASCOD_CUECAUSA XCOMPROBANTECOMPROBXDEBEXHABERIMPORTENOMBREORIDESANULADODESCREMPRESASDETALLE3T"\tmp\rpt_te_cheques_en_cartera.dbf@te_sql_cheques_en_carteraC6U XMOSTRADORXDCONXTABLAP_LOCALEXPORTAR_CHEQUES_EN_CARTERATE_SQL_CHEQUES_EN_CARTERA4%CxdcuebCLTC XTC X c T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxte_rpt_movimientosT\tmpTT  TTTT T -T  T - Ta CBUXTABLAXDFECXHFECXDCUEXHCUEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG7 XDCONSOLIDADOXDLOG15XDLOG16 EXP_TABLAabrir_empresa_procesoxFnombreIbancoJprocesarmL exportar_1x#exportar_control_cheques_ingresadoszfecha_de_proceso_anulados|fecha_de_proceso_saldo(Cheques_Mostrador4exportar_transferenciasAAcAsTAAA"A!ARQQsQqAA$2A1!AqaA41qbA2A!rQR1AqrrBAR1rAqAAAAqAqAaAAqAEqqrr$ AaAr!A1ARBA!A!A!A!A1A1A!AAAA111A1QAA1!A1!A11AA!AQ!AQ!AQ!1AA111AQAA1!A1!A1AA!AA!AA!1AAABraqar$bArQqqqqqqqrrqAA!rqqqqqqqAAB32bsAAAAaAsar1AAAAaABArsAAAAaAsar1AAAAaABAqarqr!BAB2BAAqArqbAARRaaaaA BAAArcrqqA1AQBrQAAAAAAArAAC11!"aA"qqsrAAAQq!AABrAsQAAAAAAArAAB"qAB#!cCQq1Csq^BsArArAqAA"B2qqqA1qA1qAAqABqAA2AqqA2Aq1AAaqAAq1AAaqAA3!!AAqAAq!Aq2rqAA!ArAAr1 A1 AAqAqsrAqAqBQAaAA"!AAA!AaA1111A2"!A!A!A11111111111111Ay B"qQA#AcAAAsqAAA1AqAAAAAAA!ArAbqqAqQAqbqBAAArAABqBAQA"!A!A"!AAA!A1AaA1111A211111111111111A@Y B2qQ#A2aAAqrAq11AAqArqAAA1AqAAAAAAA!ArAqqAq!AqbqBAAArAABtB!rBBrB!BC54A"AB3"BB4B!A2qAA2qAAAqqqqqAbQb N2qAA2qAAC24qAA"rb A"2qAA!AurAAAAAAqqqqqAaA BB2qAA2qAAB2251A"BB1loop#pEtIZtܸϻC i$=z%a?Dr@KoX-_ &CPreparando datos%Ccondpago TQcondpagoG+(listados T-<% T T  ( T T  T  T C$T +listados     %T  T T  T T  T  TPTTC]TC]TC]G+( dey_filtersTcod_pro#"0 " .and. left(cod_pro,5)#"ANULA" .and. (cod_pro+comprob+causa+str(cuota)+str(op)=cod_pro+ref+cau+str(cuo)+str(opr) .or. alltrim(ref+cau)=="") <TCcod_proxdproxhpro%ST.and.causa="d"*%BA 1T .and.betw(fecha, xdfec1, xhfec1)/T.and.venc<=xdfec.and.causa#"P"%qT` and !(causa="O" and cod_pro+comprob+causa+str(cuota)+str(op)=cod_pro+ref+cau+str(cuo)+str(opr))%C 9H5 &T.and. Proveedo.pais>1 5*T.and. Proveedo.pais=xdpai%Cccprov gQccprovF( \tmp\Q \tmp\.i1borrar!C"C>i1borrar#C $C%N%Cempresas S&Q& \empresascodigoT(N%(Sy T)%T*Separando Emp:+, C-%Cccprov QccprovporfacpT/C0h1 \tmp\/1C 2C3C4C5N 6D7D8C9N:L;L<N =C>C(?N @MACBC CNDNENFNGDHDINJNKNQ!Q \tmp\/LTMC0=h1 \tmp\MNCOC(PNQC(RC(SCTC(UC VNWC(XC<YC<ZC<[N\N]C(^C(_C`CdQ!Q \tmp\MaF% |index on str(val(cod_pro))+cod_pro+iif(causa=" ",'Z','A')+dtos(venc)+dtos(fecha) to (p_local+"\tmp\"+borrar) for &filtro J jindex on cod_pro+iif(causa=" ",'Z','A')+dtos(venc)+dtos(fecha) to (p_local+"\tmp\"+borrar) for &filtro  Tba Tc TdTe dflkgjdsldf Tba TfaT) TgCCN CN6&T*Procesando facturas...%Cprovinc + Q&\provinc%Cpaises a Q&\paises%h %Cpro_adi Qpro_adiF ~qT)) Tb-%ej%f  >aPd TdFlG((codpro EjFnG((codigo EloFpG((codigo!EClqlq6 a>aNjOlrQlsRltSloTn,UluVlqWClq ARGENTINACp,f6:%CAPltFEDlt  loC q>aXCluCClu - 6 CIUDAD AUTONOMA DE BUENOS AIRESY ARGENTINAZ E>aXCluCClu Clt  - 6Clt%Cn, E>aYCCn,fZClq ARGENTINACp,f6 >>aYClq ARGENTINACp,f6Z%hFiG((codpro Ej%C4q>a[iv]Civw\ix^Cixy_iz`Civw CixyF Tej Tf- Tb-HR {CT|FC {c!T|NC {dDT|ND {LgT|AS {rT|RE {PT|OC {OT|PA {AT|AJ {1T|CP {29T|DP 2RT|CH T}F%} T~ T TF<listadosC}}6C$~TC}~6 9)TC} T TT %%T %CC%!T CTCT C % RCTipo de cambio invlido !!!C  Comprobante:  { Ta  TTCT C% CC TaFL %a>1j2{3|4CC"  "65678C{cd QCC{)C{c NC ND 6669:;C$>C|CH VCC|FCNCNDCPDP+! C=-CRC66?B#CDEFG %{Cd#>LJCCC$'FD"%Ccccompop&%Ccondpagoplan%3>LHIC$TddTcc%hf*>L@Cj#$% >A@FL%b >aPd%CUniendo datos finalesTC0co tabla_provQX tabla_cpbtQ N1-Q-Q tabla_unionTCC$><CC7 C76=CC7 Anterior"CC7* - CC7*6HG H "& OC7 %`& CCNgZNC7 ~& NC7 GHC & C<ZOC7 C%"& C<ZCCNgZNC7 ?& C<ZNC7G((finalF2( !\tmp\rpt_cm_fact_a_pagar_completoQ)CAgrupacin Final de datos8Q !\tmp\rpt_cm_fact_a_pagar_completoTTC XFTC X+C+ -%%N >a%C X H >aH TN %%C<ZN >a%C X  H >aHTC<ZNH%C X_ H >aHQFaH & O %& CCNgZN & N-( \tmp\rpt_cm_fact_a_pagar_proFL.( \tmp\rpt_cm_fact_a_pagar_cpbt%hg o tabla_provQ tabla_cpbtQ@BQNQ'OQrCCCQ, CX, CY, CZQsC9Q]Q{C7Q^QCNO EXISTEN GARANTIAS_C NO EXISTENC_>_6QQQXQYQZQN1N000000 NO tabla_xls >COC( \tmp\tabla_xls'rs{Ի( \tmp\tabla_dbfQFaQFLQ%Cborrar FQ \tmp\M.* \tmp\/.*BUOESTADO SET_AND_SHOWCONDPAGOLISTADOSXSE_MOSTRO_ERRORARR_CAMBIO_A_HOYMM_MAXXCON_ACTUALIZACIONXERR1XMSG1ZXCAMBIOXFECHA XCAMBIO_FECHAFN_CAMBIO_ACTUALIZADOXDPRNXDMONBORRARBORRAR1BORRAR2 DEY_FILTERSFILTROFIL_GET_PRO_FILTERXDPROXHPROP_PRONUMXDSNDXDFEC1XHFEC1XSIN_ANTICIPOSXDPAICCPROVP_LOCALLETRAFAC_COM2CHQ_CPBT CHQ_CAUSACHQ_PASEP_SYSTEMCODIGOXDEMPVALUETEXTOEMPRESASDESCRPROCESARPORFACP XTABLA_CPBTNEWFILECPBT_PROCPBT_CCPBT_CODCPBT_NUMCPBT_OPCPBT_FECCPBT_VENCPBT_CAUCPBT_IMPCPBT_ADECPBT_VELSEMANASEMTXT CPBT_COMPCPBT_CHQ CPBT_CHQ_C CPBT_CHQ_T CPBT_CPBTCPBT_ACTCPBT_DIF CPBT_CBIO CPBT_CBIOO CPBT_CBIOFCPBT_FVCPBT_DFVCPBT_DSPCPBT_SAL TABLA_CPBT XTABLA_PROPRO_CODPRO_DESPRO_TOTPRO_DOMPRO_CIUPRO_PRVPRO_PRDPRO_ZIPPRO_PAIPRO_PADPRO_DOM2PRO_DOM3PRO_DOM4PRO_DEU1PRO_DEU2 PRO_DEU1D PRO_DEU2D PRO_COMENT PRO_DEU_D TABLA_PROVINICIALACCTOTACCPROOLDPROINICIALCMAXXDPREPRO_ADICOD_PROINPROVEEDOCODPROPROVINC PROVINCIAPAISESPAISNOMBRE DOMICILIOCIUDADCOD_ZIP CAU_DEU_1 FN_CAUSA1 CAU_DEU_2 FN_CAUSA2DEU_TXTCAUSAXC XMONDESTINO XSALDOACTXSALDOXDIFAPL ACT_SALDOPXIMPORTEFN_CALCIMPORTEADELANTOMONEDACOEFICFECHAMOTIVOXPESOS_ACTUALIZADOSXCAMBIO_ACTUALIZADOMENSAJECOMPROBOPVENCCONDREFCAUCOMENTAROPRCCCOMPPLANVALORES APLICACIONAVANCE XFULLFINALTTPTTBPRO_SHOW PRO_SHOWTO TABLA_UNIONXSEMODEYFUNCFN_WEEKFN_BEGFN_ENDALLXDSEPXDORDFINAL TABLA_FINALXOLDGRUXOLDPRONUMEROP PRIVILEGIO GARANTIASDOM1DOM2DOM3DOM4C TABLA_XLS %Cborrar2 Q%Cidx04 TQ\idx04FG((idx04%Ccccomp QcccompF G((op%Cproveedo QproveedoFG((codpro%Ccom_oper #Qcom_operFG((cheque%Cccprov gQccprovF G((porfacpG-( G-(GIcopy to (p_local+"\tmp\"+borrar2) fields cod_pro,des_prov,causa,comprob,op,fecha,venc,cond,importe,adelanto,ref,cau, moneda,coefic,motivo, cccomp.letra, comentar, opr, cccomp.fac_com2, cuota, cuo for &filtro GI FG-(FQ \tmp\?i1borrar2 C CNFG((codpro%C C %c0( \tmp\ CC gCgCg *( \tmp\ C  ( \tmp\ %Ccuentas QcuentasFQ \tmp\ %S N  ~FGGF E CGFG %C+ +C+   '% S  FG((cuenta E%CqQ%Cchq_p%QT< ~occprovQ"!#C$!Q$C$!#Q% &Cd #!qK('(%#'T)C(C$'( 6%CqQ%Cchq_p?QFrborrar2 *#+, - ./0CS 1.623)HFQFT4.t.%SaT44.and.causa="d"G-(G-( >56%89 FC;89 G-(F& F< \tmp\BU=BORRAR2P_COMMONIDX04CCCOMPOPPROVEEDOCODPROCOM_OPERCHEQUECCPROVPORFACPCOD_PROP_LOCALCHQ_CPBT CHQ_CAUSACHQ_PASEXDPROXHPROP_PRONUMBORRAR1CUENTASXDCHQXDSNDXDFVAXDCHPPROPIOCUENTAQCHQ_PXIDCOMPROBCAUSAARR_QFECREFCIMPORTEDIASACCCAU XACUMULADOXIMPORTEXFECHAVENCCOMENTAROPRFECHADES_VAL DIF_VALORCAJ_PRODESCRNUMEROPASEFILTRODES_PROVNOMBREALLXDCATXHCATFORCATBORRAR4 TFG(( referenciaTsdf%L<~  C ZC ZCZCZ'%  C ZC Z%C T, H  C-TFC cPTNC dsTND LTAS rTRE PTOC OTPA A"TAJ 1ETCP 2hTDP 2TCHST CCFCNCNDCPDPCC6F xU~C  C ZC ZCZCZCZCZt%  i%C T, H CTFC cTNC dTND L'TAS rJTRE PmTOC OTPA ATAJ 1TCP 2TDP 2TCHST CCFCNCNDCPDPCC6F BUXPROXCPBTXCAUSAXCUOTAXCXTXTXOLDCCPROV REFERENCIACOD_PROCOMPROBCAUSACUOTAOPCAU CONVERTIROPRREF 4F G((op E%C+= B jB C=-CRC9 (OP:CC@z 9999,999,999_ CP:C)6BUXOPXCPCCCOMPOPLETRAFAC_COM XDANALISIS4H MT Quirografario zT Privilegiado +T Priv. Cap. Int. Quirografario 2 T BUX2XTXT 4H HT Comercial oTLaboral T Financiera TFiscal TSocial 2 T BUX1XTXT41QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxcm_rpt_facturas_a_pagarT\xchgTTTC3 $ CBU XTABLAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDFEC1 EXP_TABLA 41QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxcm_rpt_facturas_a_pagarT\xchgTTTC3 $T  C BU XTABLAXMONEDAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDFEC1XDMON EXP_TABLA41QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxcm_rpt_facturas_a_pagarT\tmpTTT TT  C BU XTABLAXHFEC XCONSOLIDADOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_EXCELOFORM XDCONSOLIDADO EXP_TABLAprocesar' aplicacion1 convertir7 fn_causa28 fn_causa19 exportar_1:exportar_tc_schillig)<exportar_control_de_deudas=cAA"rq12ABAQ BAAA"Aa1AA!AqaAAQAA!A@AsAaAA1AArq2Arrr RQSAAqABBqAAAAAAAAAAAq2rB112RQ!AAQQQABAAR0a3"ar3ABAABArBAS43411A1AAB111!AAAq!Ar11QAAAQAAA1AAAQAAAr11aABr02BBrArArqAAA7AsAq!AqAAqAAq!AqbS arasAA1Aqaa!aaqr#AaAvrrr#AaAu AAABAArArAAbqaAdrrB31q1Bq!1AAAAAAAAAAAA2AqAQ!1AAAAAAAAAAAA2AqAA2qAA2qq111A2qq1a1A1q1111A3t"qAB3"q!AB2"AB1a @VNmNU (U2V+HV0W9FWSXKjXZ*W:Z\@d/\D^V%%<(&둔Pe_%Ctccvent ,Qtccvent%Ctventas \Qtventas%Cccvent Qccvent%Cventas Qventas%Cve_trans Qve_transT.t."%CX CX %QT@.and.val(xdcli)<=val(tv.cod_cli).and.val(tv.cod_cli)<=val(xhcli) =T,.and.xdcli<=tv.cod_cli.and.tv.cod_cli<=xhcli:T).and. between(tc.fec_ven, xdfec1, xhfec1)% hPT?.and.betw(ve_trans.oc_fecha + ve_trans.tra_entre, xdfec, xhfec) ET4.and. between(tc.fec_ent+tv.tra_entre, xdfec, xhfec)%C C k% )CT2.and.betw(val(tv.cod_ins), val(xdbie), val(xhbie)) g4T#.and.betw(tv.cod_ins, xdbie, xhbie)%C C % ?T..and.betw(val(tv.atr), val(xdatr), val(xhatr)) 0T.and.betw(tv.atr, xdatr, xhatr)%C C % ?T..and.betw(val(tv.bul), val(xdbul), val(xhbul)) 0T.and.betw(tv.bul, xdbul, xhbul)% 1T .and.betw(tc.pedido,xdped,xhped)% n6T%.and.betw(bienes.linea, xdlin, xhlin)% 6T%.and.betw(bienes.grupo, xdgru, xhgru)HG #T and tc.est_desp=5 G#T and tc.est_desp<5CtCur2aSELECT tc.pedido AS pedido , tc.cod_cli AS cod_cli , cl.nombre AS nombre , tc.fec_ven AS fecha , tc.moneda AS moneda_pd , tc.coefic AS cambio_pd , tc.tot_ven AS subtotal , tc.des_com AS descuentos , tc.iva_ven AS iva , tc.dto672 AS per_iibb , tc.recargo AS recargo , tc.deuda AS TOTAL , .F. AS enc_ped , tv.itm AS itm , tv.cod_ins AS codigo , tv.atr AS atr , tv.bul AS bul , ALLTRIM(NVL(bienes.DESCR,""))+" "+ALLTRIM(NVL(atributo.DESCR,""))+" "+ALLTRIM(NVL(bultos.DESCR,"")) AS DESCR , tv.recepcion AS cantidad , tv.moneda AS moneda , tv.coefic AS cambio , tv.cos_lifo AS precio , tv.tot_ven AS subtotald , tc.fec_ent+tv.tra_entre AS entrega , tv.recep2 AS entregado , .F. AS enc_itm , tc.est_desp AS est_desp , IIF(tc.est_desp<5, "NO", "SI") AS txt_entr , tv.acopio AS acopio , tc.facturado AS facturado FROM tccvent tc , tventas tv LEFT OUTER JOIN bienes ON tv.cod_ins=bienes.cod_ins LEFT OUTER JOIN atributo ON tv.cod_ins+tv.atr=atributo.cod_ins+atributo.clave LEFT OUTER JOIN bultos ON tv.cod_ins+tv.bul=bultos.cod_ins+bultos.clave LEFT OUTER JOIN ve_trans ON STR(tventas.pedido)+tventas.cod_cli=STR(ve_trans.pedido)+ve_trans.cod_cli , clientes cl WHERE tc.pedido=tv.pedido AND tc.cod_cli=cl.cod_cli AND &filtro INTO CURSOR tcur H   `CotcurQXventasQ BB2CC #C$rc   ?#0C$rcd R00-00000000   Xbienes 4:4Xatributo 46<4<DXbultos 48=4=DCC XQCC XQC Q!C#$%&'"Q(C )Q*Q+Q,C-MCC# $r %&'d 6- d6Q.Q/Q0CC1H ?8Q2Q3Q34Q44Q56Q78Q9CC:;қ CC<;қ CC=;қQ>Q? Q@aBC tcur2 otcurQXccventQ BBCC XQC$CXQ$CC XQC Q!C#$%F"Q(C )Q*Q+Q,C-0C#$%F"- d6Q.Q/Q0CC1H ?8Q2-Q3Q? Q@aB tcur2Eptcur2ventasQG3G3EE$GG$1>(.3%>C R00-00000000>?C[ptcur2@Etcur2QICI@IBEBICEC ? TJTKTLTMTNTO TP TQ TR TS TT TUa TVFE ~%JB5 >Wa >Xa a%KC] >Xa%XU 6 TYCO #M#>,COPO 6'>0C-R- 6d'TQQCOPO 6+TSSC-R- 6d #Y%WU = TYCO #L TZB%->+CNQN 6BZ->/CNSN 6BZ 0#>+CNQN 6#>/CNSN 6 #Y%JB TLCO TMCO TJB TKC TMCO %KC TKC TMCO%W TN TQ TS TT%XoTNN TP TR TOTTT-TOOTPP*TRR( TU-%U j #M#>,COPO 6'>0C-R- 6d'TQQCOPO 6+TSSC-R- 6d%U U #L TZB%->+CNQN 6BZ->/CNSN 6BZ Q#>+CNQN 6#>/CNSN 6FE% Wotcur2Q[Q\Q]Btcur_ffK(_`+/>[_>\` >]CN%]otcur2Q[Q\Q]Btcur_ffK(_`+/>[_>\` >]CN7(b'\tmp\rpt_ve_rpt_cumplimiento_de_pedidosFE%c%CdTotcur2C)iQe2fgB)QhC+ +6QiQjCXQkWe2fgB)!gclientes_pedidos_1 Cj Ck3(m"\cumplimiento_de_pedidos_resumen_1Իtoclientes_pedidos_1fgCjQjCXQke2fggclientes_pedidos_2 Ck3(m"\cumplimiento_de_pedidos_resumen_2ԻPoclientes_pedidos_2CgQ-kkgclientes_pedidos_33(m"\cumplimiento_de_pedidos_resumen_3Ի MC@No existe la carpeta GES EXPORTACIONES y no puede ser creada !!!qBBUrTCCVENTTVENTASCCVENTVENTASVE_TRANSFILTROXDCLIXHCLIP_CLINUM P_SEGTRANXDBIEXHBIEP_NUMINSXDATRXHATRXDBULXHBULXDPEDXHPEDXDLINXHLINXDGRUXHGRUXDTIPSYS_MOSTRAR_SCREENXDRESTVFAC_VENFACTURAREM_VENREMITOFEC_VEN FECHA_ENTCALCULAR_ENTREGADO2ACOPIOCAUSA RECEPCIONTOT_VENIVAPER ENTREGADO2ENTREGACUMPLIDOCUMPL_PDCUMPL_ITCANTIDAD PER_ENTREGAPER_PDPER_ITFECHA TRIMESTRENOSTKCOD_INSCODIGO_VATRATR_VBULBUL_VBIENESDESCRATRIBUTOBULTOSDESCR_V OCULTAR_DITM_DTCURPEDIDOITMCLAVETCUR2DEUDAV2FORT2XOLDPEDXOLDITMXREG_PDXREG_ITMXITEMS XENTREGASXDEMITEMXDEMPDXPERITEMXPERPDXCANTPDXINICIAL XCANTIDAD_ITENC_PEDENC_ITMXREGXPEDDDRTOTAL0RTOTAL1RTOTAL4TCUR_FFXRT0XRT1ALLP_LOCAL XEXPORTAR EXPORT_DIRANOCOD_CLINOMBREFENTREGADEMORAPUNTAJE CALIFICACIONCLIENTES_PEDIDOS_1 P_DIR_EXPORTCLIENTES_PEDIDOS_2COUNTCLIENTES_PEDIDOS_3MENSAJE ~H CayB >  C-C6?n > Cqh? > 2 >BUDEMORAPUNTAJE ~H C  H> MUY BUENO Crt!@y>BUENO CN`@>REGULAR 2>MALOBUPUNTAJE CALIFICACION$41QEXPORTACIONES_CRYSTAL Imp_exp.vcxWTCexportaciones_crystal Imp_exp.vcxve_rpt_cumplimiento_de_pedidosT\xchgTT TTT  C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIP EXP_TABLA=TCxTCTCTCT R00-00000000%TC -H)4 Crcd R00-00000000 Td  2) T BUXACOPIOXCAUSA XRECEPCIONXTOT_VENXIVAPERXREM_VENXRESPpuntaje calificacion! exportar_1"calcular_entregado2>$1A1A!A!AAA"AAQA1AAAAAAAAaAaA1111A2Y142PRBQr11AAr2qrAr111AA31AAAAB2qrB111AAr2urA1rAsr 2J22AAAB3AAA2qb"BAAA2q"AB3r1!!!2"AAA2-4/M/00225%`Y|aH_U4%C]TSin determinarB- % %TA la fecha de generacin %  ;%T Fijo el da C* 74T Fijo el da CC*= de cada ao %Cm 3T&Error, el da debe estar entre 1 y 365B- T de cada H Tsemana T 9Tquincena T mTmes T Tbimestre T< T trimestre TZ T cuatrimestre Tx VTsemestre T  TaoTm 2+TError, frecuencia invlida !!!B-%p%C =@T#Error, el da debe estar entre 1 y CCZ !!!B- l%TEl CCZ da H  T   T   T    T  + T   K T  k T    T 4 2(TError, frecuencia invlida.B-%C $=T#Error, el da debe estar entre 1 y CC Z.B- H? dTLunes TMartes T Mircoles TJueves TViernes &TSbado MTDomingo 23T&Error, el da de la semana es invlidoB-&TEl CCZ BaU XDCLASE XTIPOSUBTIPO XFRECUENCIAXDIAFIJOXDIAXDIASEM XTXT_FREC XTXT_DIASEMXMAX_DIA XMAX_DIASEMH 0 B O B7 n B  B  B  B  B   B  ( B  G B  f B 2.C!Error, frecuencia desconocida !!! BBUCASHADICCLASEMENSAJEE4%C)% B >BC)UXFECHAU4%CH % B NBCCCiCH$%UXFECHA4TH0 T+TCCCiD$ ]T C % %T   %T  % CTTC TC  TC TC TC TC DTC  kTC   '!TCCiCHC%$% %TCCiCHC%$(TCCiCHC%$ T  W T T 2.C!Error, frecuencia desconocida !!! B TBUXOFFSETXVENC XIDPERIODO XFECHA_ADICCASHADICFECHACLASEDIAFIJOXPERIODO_SOLICITADOXFECHA_COMIENZO DIA_NUMERODIASEMDIAQUINCENAN_MESTREZZXDFECMENSAJE<4TC%%"TCCF( %CH 6TCCiCH CCF$ =TCCiCHCCCCiCH$F$% %CH m4TCCiCH CC%CF$ 8TCCiCHCC%CCCiCH$F$ * TcTCC C C 6% %CH xTCCi$ TCCiCH$( &%<%CH %TCCiCH $ 8TCCiCH$%CH )T CCiCH $ !T CCiCH$cTCC C C 6TC F BCHU XMESTREXFECHA_COMIENZO XFECHA_ADICCASHADICDIASEMXVENCDIA DIAS_X_MESZZXOFFSET DIA_NUMEROXMAX%C%,TC% MTC%%#:TCCC%C6F(%CHCHN%CHCH 0TCCiCCF$ J TCCiCH$ .TCCiCHCCF$% T%C%.TCCiCHCCF$ TCCiCH$  TcTCC C C 6% G%C% %CH TCCi$ TCCiCH$ CTCCiCH$(%%C%%CH TCCi$ TCCiCH$  TCCiCH$%C%@T CCiCH$ hT CCiCHC$cTCC C C 6TC F,BCHCC%6U XFECHA_ADICXFECHA_COMIENZOCASHADICDIASEMXVENCDIA DIAS_X_MESZZXOFFSET DIA_NUMEROXMAXH 4 B P B4 l B  B   B  B  B  B   B  0 B  L B 2.C!Error, frecuencia desconocida !!! BBUXCLASEMENSAJEvalidar_periodo,determinar_max_periodos} dia_numeroQ dias_x_mes determinar_periodo n_mestretquincena( max_periodos1q1R1BA1qb1q11A11111AqA3qQA11111111qAq1!111a111A111A1qAbAAAAAAq2aaaaaaaaaaaAA2qRA2qRA3abbTTB2Accbbbbbbb1RAAbAB3qtb$aAB3AAA32AA2QAAA2"BB3SqqAbAAB3QAA32RRAAA2RRAAASA2"BB2q12222222222AB1 p ~ #CO#d#0f;0g3%273%W_ G(9TBA%Cfecha VQfechaF#)%C+yTCCC$6 TTCXT CXQ T  T cG+(listados< 7 estadoJ T -T T  T T  Iniciando...T a gs_comienzo gs_procesarT  !T Creando tablas...FGI%& ( \tmp\borrar5GI T\tmp\C]C CF C GG(G*G on escape &onesc %Cfecha QfechaF#)%C++>!"# QT - $< %CtcashLFQ FG!(-T El cashflow ha sido generado !!!% C%BU&XMSGXAUT ACTIVEFORM DATASESSIONID XMAXFECHAFECHAXDFECXCENTROXDCENXHCENMAXTIPO MAXSUBTIPOLISTADOSOESTADOESTADOVISIBLEMINMAXVALUETEXTO OPEN_FILES GS_COMIENZO CONFIGURAR GS_PROCESARCASHDATACODIGOPROCLIP_LOCALXTCASH CREAR_TABLAGENERATCASHPLANILLACENTRODCENHCENRELEASEMENSAJEoh1C CN DDDDNQFQ & C & F  BU XTCASHTIPODESCRCUENTADESDEHASTADESDE2HASTA2IMPORTETCASHBORRAR GS_PERIODOS4%Cxd1bL= T%Cxh1bLg T(% %CCATPRO QcatproF ~Mmrtcash    CCCZCC Z  (F G((codigo E%C4 grtcash    CCCZCCZ  (grtcash    CCCZCCZ drtcash    CZZ TotalesBUXDXHINDICEXD1XH1ZMAXTIPOCASHCFGPROVXCATCATPROTIPODESCRCUENTADESDEHASTADESDE2HASTA2CODIGOZZ MAXSUBTIPO4FS~<CCC C 6     ~> BU XIDXFECHA XCANTIDADXPOSTTCASHTIPODESDE2DESDEHASTAHASTA2 XMAXFECHAIMPORTErF#) T& C(T4T$Generando tabla auxiliar periodos... C T/TGenerando tabla de inversin... C C F G((borrar2iT1T!Totalizando tabla de inversin...Ccash2iocash2iC=Q !"#$%&'()*+,-./01234567Q8C\938q ~g C=9BU;TCASHAAATIPOHASTABORRARMAXCOLOESTADOVALUETEXTOCREAR_PCREAR_IPREPARARCASH2IBORRAR2I TOTALIZARTI1I2I3I4I5I6I7I8I9I10I11I12I13I14I15I16I17I18I19I20I21I22I23I24I25I26I27I28I29I30I31I32I33I34I35I36I37I38I39I40VACIOQIN]T$TGenerando. Paso 0...%Ccash2p]FQF Qcash2p(RF CF#) T+C+ NFT pCCZ%>  .>  FHTBU OESTADOVALUETEXTOCASH2PALLZREC_REUTILIZACION_2PTCASHACCAAADESDEHASTACcash2i1BUCREAR_I2D 4h1borrar3C C(N NNN N N N N NNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVLWNXNYLZL[L\L& F]& C^_#)+C+ DF E]%C4 >]>]>]>WCC]\g>XCC]\g`(a@FTbiCC`Z>b]cF]H%d FVgV\Cgi g\-6 Tj`((` TjjCCICC`Z%j & (l\borrar2CCC`ZCCZ >g >W` >X>VgVnrborrar3WXYZ[CC`Z93`] SUBTOTAL C`m--aTrborrar3WXYZCC`Z94`^--%%g\n ` Tnajrborrar3WXYZCC`Z95`_SUPERAVIT(DEFICIT)a-trborrar3WXYZCC`Z96``SUPERAVIT(DEFICIT) ACUMULADO-aXrborrar3WXYZCC`Z99`c--Toofrborrar3WXYZCC`Z97`aSUPERAVIT(DEFICIT)a-prborrar3WXYZCC`Z98`bSUPERAVIT(DEFICIT) ACUMULADO-a  F P%pqLF ~Fg G((idECWZCXZF>VgV Tj`(({TjjCCICC`Z%j& (l\borrar2CCC`ZCCZ >g >W` >X>VgVcrborrar3WXYZ[198bTOTAL Cm--aMrborrar3WXYZ199c--crborrar3WXYZ[295_TOTAL Cm--aMrborrar3WXYZ296`--Srborrar3WXYZ297aNETO 1a-]rborrar3WXYZ298bNETO 1 ACUMULADO-aMrborrar3WXYZ299c--crborrar3WXYZ[396`TOTAL Cm--aMrborrar3WXYZ397a--Srborrar3WXYZ398bNETO 2a-]rborrar3WXYZ399cNETO 2 ACUMULADO-a%Cs FQF%cash2i F Qcash2i Qcash2i3rQ  Qcash2iborrar3QF #I (Q borrar3.dbfBUuXALIASXNUMBORRAR3TIPODESCRCUENTAI1I2I3I4I5I6I7I8I9I10I11I12I13I14I15I16I17I18I19I20I21I22I23I24I25I26I27I28I29I30I31I32I33I34I35I36I37I38I39I40I41I42I43I44I45I46I47I48I49I50I51I52I53I54I55I56I57I58I59I60I61I62I63I64I65I66I67I68I69I70I71I72I73I74I75I76I77I78I79I80CLITSSUMAACUMTOTADUDOSOTCASHHASTABORRARZMAXCOLAAAIMPORTEP_GS_NEW XTIPOS_MAXTIPO_MAXCASHTIPOIDSUBTIPOACCINP_LOCALARR_TIPOXDUDOSOACCNETOCASHCFGTIPOLISCASH2IALLDBFT%TGenerando tabla 1 ...F>F#)+C+ C  FHBU OESTADOVALUETEXTOTCASHIMPORTEALLCASHDATASUMARIDFECESTIPOSTHF G((id*EC ZCCZCZ BC4 UCASHEXPAIDXNUMEROXFECHAXCUOTAXANOXPROVxT$TGenerando. Paso 2...FF Qcash2iG((borrar2i CBUOESTADOVALUETEXTOCASHDATATCASHCASH2IBORRAR2I ASIGNAR_DESCCF G((id ~8CBUCASHTIPOIDASIGNARTIPOSUBTIPODESCR4FG-C=CCC[gZCCZCZC=Totales %} >FBUABCCASH2ITIPODESCRCASHTIPO  TF TCG((borradoG#)%C'd TCO:G set order to &xorder %  #UXRNXORDERCASH2PBORRADO4%0%Ccashresu DQcashresuF-T F T T  (('%  T T T iCC Z T  T  Ta T T ~#%  ^.%  T- T %   T  C TC TC %"replace &xcol with acc %]replace &xcol with accs T%T  % T  T  % replace &xcol with xacum1 replace &xcol with xacum2 #) % T F T T  ((%  T T T iCC Z T  T  Ta T T ~% ` T- T %   T  C TC TC %replace &xcol with acc %%replace &xcol with accs T%T  % mT  T  % replace &xcol with xacum1 replace &xcol with xacum2 #)BUXALIASP_GS_NEWCASHRESUCODIGOCASHCFGTIPOLISXCOLACUMACUMCOLXACUM1XACUM2ZXCOLACCXNETO TIPOINICIALACCSACCTACUMLASTCOLTSSUMATOTA crear_tabla<agregarlsumar planilla crear_pcrear_i{crear_i2genera'vld_expa|(preparar) asignar_desc)asignar@*rec_reutilizacion_2p* totalizar+9qAqQQAA"vq!bcrsaQascaaaArA}QQAqbqAAraAC3qBArvB2uAA!AqAqtAAtAAADB21u2AB2rTuAts|3cBC2tArqAAQqqQqa111AqAAAA3sB2AqtAQqQBqa1qAAArr"rqrA1AArqqbrQA[AABaqAarqrA1AAArqqbrQA22121BAAArQAAAqAA"E2tQsuQqAAA2q3rArrB2rAC2qt2AqA2qaQAAa1QA3qAAr2AbBAB111AAA2A2AABAQd2AbB111AAA2A2AABAQABB1J Uv}+ "j"#$#BM%BCZDD_D2FhKFFoFG+xGH9ITN%!ADY_L, Cq Cr Cs Cv Cg CL Cx%CquestionFQ%Cccclie Qccclie%Cccvent Qccvent%Ccliaux Qcliaux%Cret_prov ;Qret_prov%Ccliotros mQcliotrosTCC]RTCC]R T CC]R% C XT  cuenta=xdcue +%C / T C xxxcom_oper 'T  (cuenta='Cq ' .or.cuenta='Cr ' .or.cuenta='Cs '2.or.substr(cuentas.atributo,103,1)='S'.or.cuenta='CL ' .or.cuenta='Cv ' .or.cuenta='Cx ') %9T  (.and.between(com_oper.fecha,xdfec,xhfec)6T)cuenta,com_oper.fecha, com_oper.ganancias XlT  [.and.between(iif(!empty(com_oper.dif_valor),com_oper.dif_valor,com_oper.fecha),xdfec,xhfec)1T$cuenta,fechareal, com_oper.ganancias%C ;T  * and between(com_oper.cod_pro,xdpro,xhpro)%CborrarFQ%Cborrar1FQ%Cborrar2!F Qselect com_oper.fecha as fecha , com_oper.fecha as fechareal , iif(com_oper.ganancias=0 and com_oper.causa="L",com_oper.asiento, iif(com_oper.ganancias=0 and com_oper.causa="A",com_oper.operacion, com_oper.ganancias)) as numero , 00 as subnum , com_oper.caj_pro as importe , com_oper.cod_pro as codigo , proveedo.nombre as nombre , proveedo.inscripcio as cuit , cuentas.abrev as cuenta , cuentas.descr as descr , com_oper.provincia as cod , iif(com_oper.causa="L",com_oper.asiento, com_oper.opago) as comprob , com_oper.causa as causa , space(30) as provincia , space(15) as retref , netogan as neto , "P" as procli , substr(cuentas.atributo,113,3)+substr(cuentas.atributo,118,1)+substr(cuentas.atributo,103,1)+substr(cuentas.atributo,76,1)+substr(cuentas.atributo,120,1) as tipo , com_oper.comprob as cpbt , "N" as varios , space(18) as ref , 000000000000000.00 as base , iif(com_oper.causa="O","PA", iif(com_oper.causa="A","AJ", iif(com_oper.causa="L","AS", "??"))) as causatxt , com_oper.comprob as comprob2 , iif(substr(cuentas.atributo,76,1)="S",1,iif(substr(cuentas.atributo,103,1)="S",2,iif(substr(cuentas.atributo,120,1)="S",3,0))) as tipo2 , proveedo.ib as ib , (proveedo.iibbcm=1) as ib_conv , proveedo.iibbcm as iibbcm , proveedo.ivacat as ivacat , 0000 as regimen , alltrim(proveedo.domicilio)+" "+alltrim(proveedo.ciudad) as domicilio , cuentas.auxn as cue_provi , proveedo.domicilio as dom , proveedo.ciudad as loc , proveedo.cod_zip as zip , 80 as doc , proveedo.provincia as prv1 , 00 as prv from com_oper , proveedo , cuentas where com_oper.cod_pro=proveedo.cod_pro .and. com_oper.cuenta=cuentas.cod_cue .and. &filtro .and. iif( !empty(xdpro).or.!empty(xhpro), iif(p_pronum, between(val(com_oper.cod_pro), val(xdpro), val(xhpro)), between(com_oper.cod_pro, xdpro, xhpro)), .t.) .and. empty(xdcli).and.empty(xhcli) order by &orden into cursor borrarx ]ocom_operCQCborrary]oborrarxQborraryQ borrar1 ~->C!a FG((comprobE)+C+  2%"##Hp "F>$$ "%%&F>''(! "F>$$FHF%SC#=d>))c%*+%Ccccomp QcccompF, G((pago E%C4F>.,/0,0F%L)%1% M>%1 T2 T3 T4$%C3425%%LIQ.67<8 82odiariog9:;2< 8% T=C8 6 T=T>C67[T?C>C->=T@C>C->[TAC@C/@=F>BCAg>CAS CC2Z>DAS CC2Z >'=%6EN!% C XC cuentascuentatT tipo=CCCCGHg\S?CCGHL\S!CCGHx\S666Z 2%C  T C xxxret_prov .T .t.%y0T  .and.between(fecha,xdfec,xhfec) lT  [.and.between(iif(!empty(ven_oper.dif_valor),ven_oper.dif_valor,ven_oper.fecha),xdfec,xhfec)%C C T .f.%C tmp_rets_anulLFIQselect iif(tipo=1,atrcan(76,2),iif(tipo=2,atrcan(103,2),iif(tipo=3,atrcan(120,2),space(9)))) as cuenta , iif(tipo=1,atrcan(76,3),iif(tipo=2,atrcan(103,3),iif(tipo=3,atrcan(120,3),space(9)))) as descr , fecha as fecha , fecha as fechareal , numero as numero , "ANULADA" as nombre , provincia as cod , " " as procli , "N"+"N"+iif(tipo=2,"S","N")+iif(tipo=1,"S","N")+iif(tipo=3,"S","N") as tipo , "N" as varios , " " as causatxt , com_oper.comprob as comprob2 , tipo as tipo2 from ret_prov where empty(comprob+causa) and &filtro into table (p_local+"\tmp\tmp_rets_anul") FGG((cuentaFIG-(JG>IJGKQF!M\tmp\tmp_rets_anul% C XT  cuenta=xdcue %C  T C xxxven_oper T  (cuenta='Cq ' .or.cuenta='Cr ' .or.cuenta='Cs ' .or.cuenta='Cg ' .or.cuenta='CL ' .or.cuenta='Cv ' .or.cuenta='Cx )' or substr(cuentas.atributo,113,1)='S') %P0T  .and.between(fecha,xdfec,xhfec)*Tcuenta,fecha, ven_oper.numero 4T  #.and.between(dif_valor,xdfec,xhfec).T!cuenta,fechareal, ven_oper.numeroselect ven_oper.fecha as fecha , ven_oper.dif_valor as fechareal , iif(ven_oper.numero=0 and ven_oper.causa="L",ven_oper.asiento, ven_oper.numero) as numero , ven_oper.subnum as subnum , ven_oper.caj_pro as importe , ven_oper.cod_cli as codigo , clientes.nombre as nombre , clientes.inscripcio as cuit , cuentas.abrev as cuenta , cuentas.descr as descr , ven_oper.provincia as cod , iif(ven_oper.causa="L",ven_oper.asiento,ven_oper.recibo) as comprob , ven_oper.causa as causa , space(30) as provincia , ven_oper.retref as retref , 000000000.00 as neto , "C" as procli , substr(cuentas.atributo,113,3)+substr(cuentas.atributo,118,1)+substr(cuentas.atributo,103,1)+substr(cuentas.atributo,76,1)+substr(cuentas.atributo,120,1) as tipo , ven_oper.comprob as cpbt , iif(clientes.tarjeta="S","S","N") as varios , iif( inlist(left(ven_oper.retref,2),"FC","NC","ND"), left(ven_oper.retref,2)+" "+substr(ven_oper.retref,3,1)+" "+substr(ven_oper.retref,4,4)+"-"+right(ven_oper.retref,8),space(18)) as ref , 000000000000.00 as base , iif(ven_oper.causa="R","RC", iif(ven_oper.causa="A","AJ", iif(ven_oper.causa="L","AS", "??"))) as causatxt , ven_oper.comprob as comprob2 , 0 as tipo2 , space(20) as ib , .f. as ib_conv , 0 as iibbcm , 0 as ivacat , 00000 as regimen , alltrim(clientes.domicilio)+" "+alltrim(clientes.ciudad) as domicilio , cuentas.auxn as cue_provi , clientes.domicilio as dom , clientes.ciudad as loc , clientes.cod_zip as zip , clientes.tipodoc as doc , clientes.provincia as prv1 , 00 as prv , 000000000000000.00 as total from ven_oper,clientes,cuentas where ven_oper.cod_cli=clientes.cod_cli .and. ven_oper.cuenta=cuentas.cod_cue .and. &filtro .and. iif( !empty(xdcli).or.!empty(xhcli), iif(p_clinum, between(val(ven_oper.cod_cli), val(xdcli), val(xhcli)), between(ven_oper.cod_cli, xdcli, xhcli)), .t.) .and. empty(xdpro).and.empty(xhpro) order by &orden into cursor borrar2 readwrite ~#> C !a %SC#R">))c%NS#U%Ccliotros.retclibCC *cliotroscod_cli OS " #FG((comprob E * P CZ%C4##EQDRCSZ%C4#FG((ccvfacE%C4#FG((comprobEF >..00.o borrar2borrar1ǼborrarFU G((codFG-(%U ~&K>&CCprovinc+*C%b SIRTAC Sin Definir6UV6Ha$&B C#\S#WCWP L   $>#IBB C#\S#WCWP L   %>#IVAB C#\S#WCWP L   V%>#GANB C#\S#WCWP L   %>#SUS( C#\S WP %>#IBP( C#\S WP &>#GAP( C#\S WP &>#IVPTXC X TYZ co_funcionesXY >JXH&' \\ 8'%'$& JC(M\tmp\ 4'$& JC](M\tmp\ \\ '%'(& J&C(M\tmp\ '(& J&C](M\tmp\#(M\tmp\rptretenciones0(M \tmp\rpt_te_retenciones_clientes%C^3c_ F( C`%C^4c_ r( Ca%C^5c_ ( Cb%C^c_ ( Cc%C^c_ ( Cd%C^c_ () Cd%C^c_ W) Cd%C^c_ ) Cd%C^c_ ) Ce%C^7c_ ) Cf%C^6c_ * Cg%Cborrar11*FQ( (p_local+"\tmp\"+borrar"+".idx")%Cborrar1*FQ%Cborrar2*F Q%Ciibbcaba*FhQR %Cborrar*FQ%Cborrar1!+FQ M\tmp\.dbf M\tmp\.idx M\tmp\.cdx M\tmp\.dbf M\tmp\.idx M\tmp\.cdx M\tmp\ .dbf M\tmp\ .idx M\tmp\ .cdxBUiVLD_ATRQUESTIONCCCLIECCVENTCLIAUXRET_PROVCLIOTROSBORRARBORRAR1BORRAR2XDCUEFILTROXFILTRO_ESPECIALATRCANXDTIPORDENXDPROXHPROCOM_OPERCOMPROBCAUSACAJ_PROTOTALFECHAXDFECXHFECBORRARYXYBORRARXCOMPROB2PRVPROVINCIA_LET_A_NUMPRV1TIPO2TIPOREGIMENCOD PROVINCIABASEPAGOANTIMPORTECODIGO P_PROVCONTCCCOMPPAGONOMBREDES_PROVCUIT CUE_PROVIXASIENTOXERRXERRMSGBUSCAR_ASIENTODIARIOG COMENTARIOXARRCREDITODEBITOASIENTOPASEXBASEXL1XPVXL2XLIQNUMERORETREFREFSUBDINCUENTASATRIBUTO TMP_RETS_ANULCUENTAABREVALLP_LOCALVARIOSRETCLICPBTCOD_CLICAUCUOCCVFACPROVINCDESCRPROCLIXCUENTAXMSGCUENTA_RET_IVA CO_FUNCIONESXDSEP FECHAREALXTIPO_EXPORTACIONP_DEV EXPORTAR_IBEXPORTAR_IB_RETENCIONES_ESICOL EXPORTAR_IVAEXPORTAR_IVA_PROVEEDORESEXPORTAR_IB_PROVEEDORESEXPORTAR_GAN_PROVEEDORES EXPORTAR_SUSS'EXPORTAR_RETENCIONES_GANANCIAS_CLIENTESIIBBCABA4H CR00000000A B CR000000h B CR0000 B CR00 B 2 BBUXCUENTAiF-IB %C4 +B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B-IB %C4 B T T3  G(\.txtG G F"~IB  b 4$T CC =FCNCND F G((cod E F%C C Z CXC ="CC*C*6C0000CCZR,C0000000000000000CCZR%INDM R%  C   % 0001 0000% 1"CC0QCC ZR ICX Hh C =FC F C =NC C C =ND D 2 O %-% )C \ @ A%C jC \  %C  00000000C \ CX % vC \%C JC \ 00000000C \ r CX    C7TCC 00000000000CCC Z R.,*CC-[6C T-GG(C\.txtBUBORRARTIPOAFIP_DIRMENSAJE L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECCODXOTRORETREFPROVINCJUR_CONVCUITP_RET_X_CONTABILIZACION FECHAREALFECHASUBNUMNUMEROP_EMPCOMPROBXIMPIMPORTEXINICIALNO_CTRLZF-IVA%C4 +B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B-IVA%C4 B T T T!5    /G(\ - formulario 2002.txtG G F~IVA]214C  ="C C *C *6)C0000000000000000CCZR<TCC0000000000000000CCCZR.,*CC-[6C T-GG(0C\ - formulario 2002.txt.G(\ - formulario 731.txtG G F~IVA214C  ="C C *C *6CC0QCCZR<TCC0000000000000000CCCZR.,*CC-[6C T-GG(/C\ - formulario 731.txtBUBORRARTIPOAFIP_DIRMENSAJE L_DIR_AFIPXFILEXFILTRO_ESPECIALEXPORTACION_REPORTEXDFECXHFECCUITP_RET_X_CONTABILIZACION FECHAREALFECHANUMEROXIMPIMPORTEXINICIALNO_CTRLZ< T T K  UF-IVP%C4 B%C @C3No existe la carpeta AFIP y no puede ser creada !!!BF-IVP%C4 B CRet.IVA Proveedores G(\.txtG G F~IVP06C *C ZT  T 8ocom_operCQ   q1!CCZ.,F0767T :oret_prov   q18C0000000000000000000000CCZR 1F!CCZ.,C *HQ 900 2Q01 0!CCZ., 0,00 80'CCC[ [CCXC T-GG(C\.txtBU L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECBORRARTIPOAFIP_DIRMENSAJESYS_MFECHACOMPROBXIDXID2CODIGOSUMCAJ_PROIMPORTECOM_OPEROPAGOCOD_PROQ1COMPROB2CAUSARET_PROVREGIMENBASECALCCUITXINICIALNO_CTRLZV 4F-IBP %C4%C @C3No existe la carpeta AFIP y no puede ser creada !!!B-IBP %C4 B%F-IBP %C4 T T  W  aG+(listados T  T  T T T T T T TT;listados   T  J(%CTLOTE\ XAR-*.txtF"~IBP 2TCCC%12606)TCCiZC00CCCHZRMTXAR-CC---CCZ-C.txt%CTTG(\G G C  =C*0001)C0000000000000000CC!ZR-T"C 00000000000CCC# Z R%$T"C".,*C#"C"-[63C%AC%BM66C GG( T&-GG(G+(sys_zip((T)\C(&T*\CC([T+C*ZIP T,C)- *=)(*.listados*T/CZipperN T0 T1C01+*/2%0%Cempresas Q3 \empresasC4empresascodigo5G+(listadosT5CC786DT,\C5@ - CC iZ-C00CCC HZR%C %HT,, - quincena 1 pT,, - quincena 2,*.zip2T,, - CC+_C+9ZIP%C,0 ,CC\C5@ - CC iZ-C00CCC HZR - CC(C.txtC(=*.zip@ xar- ar-=+(,:listados, * 5CNo se pudo zipear * !!!C 1 *% C;%* C<%K C=BU> XPROVINCIABORRARTIPOCODAFIP_DIRMENSAJE L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECLISTADOS XEMPNOMBRE XEMPDIRECCION XEMPZIPCIUDAD XEMPPROVPAIS XEMPTELEFONO XEMPCUITIVAXEMPCUITXEMPIVA ZIIBB_NUMEROZINICIO DATOS_EMPRESA MAX_ARR_ARBAARR_ARBA XLOTEARBA XQUINCENA XQUINCENALFECHAXPERIODO XARBA_ARCH XACTIVIDADCUITNUMEROXIMPIMPORTEXDCHRXTIPOOPERACIONXINICIALSYS_ZIPZXFILEX XFILE_SIN_X XFILE_ZIPXFILE_ZIP_HASHMD5NO_CTRLZ'NOMBRE_DE_ARCHIVO_DE_TEXTO_A_MAYUSCULASOXERRXMSGZIPEARP_SYSTEMP_CODEMPXEMPRESALIMPIAR_FILE_NAMEEMPRESASDESCR SYS_HASHMD5NOMBRE_DE_ARCHIVO_A_MAYUSCULASEARCIBARETENCIONES_ENTRE_RIOSRETENCIONES_MISIONES: T T K  UF-GAP%C4 B%C @C3No existe la carpeta AFIP y no puede ser creada !!!BF-GAP%C4 BG(\.txtG G %C ganancias qQ \gananciasF~GAP06C *C ZT  T 8ocom_operCQ   q1!CCZ.,F0217 %-FG((codpro ET #o ganancias q18C0000000000000000000000CCZR T :oret_prov   q18C0000000000000000000000CCZR 1F!CCZ.,C *H 00 201 0!CCZ., 0,00 80'CCC[ [CCXC T -GG(C\.txt!CSujetos"&C tipo="GAP"_sujetos#BU$ L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECBORRARTIPOAFIP_DIRMENSAJEP_SYSTEMFECHACOMPROBXIDXID2CODIGOSUMCAJ_PROIMPORTECOM_OPEROPAGOCOD_PROQ1PROVEEDOCODPRO GANANCIASCODCOMPROB2CAUSARET_PROVREGIMENNETOCUITXINICIALNO_CTRLZSYS_MSUJETOS %C q_sujetos-Qkselect distinct cuit, nombre, dom, loc, prv, zip, doc from borrar where &xfiltro into cursor q_sujetos G(\.txtG G  ~jCCC- CCCCZC C ZC T -GG(C\.txt %C q_sujetosQBU XFILTROXFILE Q_SUJETOS L_DIR_AFIPCUITNOMBREDOMLOCPRVZIPDOCXINICIALNO_CTRLZ4 T%CCg j2T%no est asignado a ninguna cuenta !!! 7%CCg%%q gTZest asignado a ms de una cuenta. Puede traer problemas en otras cuentas de retencin !!! !B 3B%C %Cquestion Q \questionF-*C El atributo CCf BU XATRIBUTOXMSGATRCAN P_PERIBXPROVP_SYSTEMQUESTIONATRIBUTOMENSAJEPREGUNTAF-SUS%C4 +B%C @C3No existe la carpeta AFIP y no puede ser creada !!!BF-SUS%C4 B T T7   G(\.txtG G F~SUSYCCC  =- = "C C C 6 CCC  =- =CC iZ.C000000000000000000000CC Z R,CC9999999999999.999_.,C T-GG(C\.txtBUBORRARTIPOAFIP_DIRMENSAJE L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECCUITP_RET_X_CONTABILIZACION FECHAREALFECHANUMEROIMPORTEXINICIALNO_CTRLZbF-GAN%C4 +B%C @C3No existe la carpeta AFIP y no puede ser creada !!!B T T6  G(\.txtG G F~GAN- 1CCC  =- ="C C *C *6078=T CC00000000000000000CCCZR.,*C C -[6(CC0QCC ZRC T-GG(C\.txtBUBORRARTIPOAFIP_DIRMENSAJE L_DIR_AFIPXFILEEXPORTACION_REPORTEXDFECXHFECCUITP_RET_X_CONTABILIZACION FECHAREALFECHAXIMPIMPORTENUMEROXINICIALNO_CTRLZ4%Cafipcpbt EQ \afipcpbt%u- - %C4BCR  B00UXVENCOMXCAUSAXLETRAP_SYSTEM CAUSA_VENLETRA CAUSA_COMCODIGO%C U@C3No existe la carpeta AFIP y no puede ser creada !!!B%Cempresas Q \empresasCempresascodigoG+(listadosTCCF - IB %C4 BtG( \C@ - CC iZ-C00CCC HZR- - retenciones IIBB de clientes - e-sicol.txtG G F "~ IB   kCC - "CCC6,C0000000000000000CC ZRC ZC ZC T-GG(uC \C@ - CC iZ-C00CCC HZR- - retenciones IIBB de clientes - e-sicol.txtBUAFIP_DIRMENSAJEP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRBORRARTIPO P_DIR_AFIPXHFECCODCUITP_RET_X_CONTABILIZACION FECHAREALFECHANUMEROBASEIMPORTEXINICIALNO_CTRLZL %C U@C3No existe la carpeta AFIP y no puede ser creada !!!BT \iibb caba  %CiibbcabaFQTC]CQ\tmp\%Cempresas -Q \empresasC empresascodigo G+(listadosT CC  F-IBP %C4 BuG(\C @ - CCiZ-C00CCCHZR. - retenciones IIBB de clientes - e-arciba.txtG G C IIBB CABAF"~IBP Z T TC dT'%C?^I +?T?h%C C 8 >C{Gz????@ `TCT%zG?C0,21 Suspendo?aT d 1029C*T09 T TC C*CC  3CC!- T"C#8%CCC"=gCCC"->  =T"CC"-7T"C"\-C"\-C" \YT$CC-"26CC-"1CC-"54666%%sT"C#8%CCC"=gCCC"->  FT"CC"-7T"C"\-C"\-C" \H[o &T$2T"CC! =-, &C# -# &T$1RT"C00000000CC"C-"=RC00CC"C-"d\R &JT$0 2o@T$CC-"2CC-"1066*%$1C# -# RT"C00000000CC"C-"=RC00CC"C-"d\R CT$2T"CC! =-(TADV: Acreditar inscripcin. %$4T"0 $!CCC"-g Hg  ' T(1 '+ T(3 'O T(4 2g T(  (CC*)CCCCCCC *riibbcaba+,-./012!345*6789:;1029C 3CCC! =- $"(C*) T<-GG(vC\C @ - CCiZ-C00CCCHZR. - retenciones IIBB de clientes - e-arciba.txt=F,(>\xchg\per_ib_caba_retenciones.(>\xchg\per_ib_caba_retencionesԻQBU?AFIP_DIRMENSAJEL_DIR_AFIP_ARCIBA P_DIR_AFIPIIBBCABA XTABLA_CABACREAR_TABLA_EARCIBAP_LOCALP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRBORRARTIPOCODXHFECSYS_M XERROR_EXP XALICUOTAIMPORTEBASESYS_MOSTRAR_SCREENXBASEFECHA XTIPOCPBTXLETRAXCPBT AGIP_NUMEROCOMPROBNUMEROCUITXIBIB XREGIMENIBP_PERRET_AGIP_VERSIONIIBBCMIVACAT XIVACATIBUTFNOMBRERETOPERNORMALETRACPBT FECHACPBTMONTOCERTTIPODOC SITUACIONNUM_IBCAT_IVAOTROSIVAALICUOTARETPERRETPER2 ERROR_EXPXINICIALNO_CTRLZP_SERVER>,BCC0QCCCZ.,RUXDATO XLONGITUD XDECIMALESh1\tmp\CCDCCCD N C C C  CCCCNNNNNNCdBU XTABLA_CABAP_LOCALRETOPERNORMAFECHATIPOLETRACPBT FECHACPBTMONTOCERTTIPODOCCUIT SITUACIONNUM_IBCAT_IVANOMBREOTROSIVABASEALICUOTARETPERRETPER2 ERROR_EXPU41QEXPORTACIONES_CRYSTAL Imp_exp.vcxTTCexportaciones_crystal Imp_exp.vcxte_rpt_retenciones_clientes T T T MTTT T%3IT T  \tmpT C(%C \.pdf0J   = \.pdf(\.pdf= \.xls(\.xlsBUXTABLAXDFECXHFECXTIPO_EXPORTACIONOEXCXPATHXFILEXFILTRO_ESPECIALEXPORTACION_REPORTEOFORMXDNUM1XDSEPFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOEXP_TABLA_EXCEL_PDF%Cempresas QQ \empresasCempresascodigo  G+(listadosTCC ;T C@ - CCiZ-C00CCCHZR%C%C%/T  - quincena 1 %C%lT  - quincena 2 T   - mesT   - H bT \iibb caba3T&retenciones de iibb a proveedores cabaCT6substr(cuentas.atributo,103,1)='S' and xxx.provincia=2 T\iibb ba1T$retenciones de iibb a proveedores baCT6substr(cuentas.atributo,103,1)='S' and xxx.provincia=1 |T\iva-T retenciones de iva a proveedores%Tcuenta='Cx' T \ganancias3T&retenciones de ganancias a proveedores%Tcuenta='CL' T\iibb er1T$retenciones de iibb a proveedores erCT6substr(cuentas.atributo,103,1)='S' and xxx.provincia=8 OT\iibb misiones7T*retenciones de iibb a proveedores misionesDT7substr(cuentas.atributo,103,1)='S' and xxx.provincia=14 3T\iibb convenio5T(retenciones de iibb de clientes convenio/T"substr(cuentas.atributo,113,1)='S' 4vT \iibb_caba4T'retenciones de iibb de clientes e-sicol/T"substr(cuentas.atributo,113,1)='S' 5T\iva+Tretenciones de iva de clientes%Tcuenta='Cr' 6rT \ganancias1T$retenciones de ganancias de clientes%Tcuenta='Cs' 7T\suss,Tretenciones de suss de clientes%Tcuenta='Cv'T BUXTIPOXPATHXFILEXDFECXHFECXFILTRO_ESPECIALP_SYSTEMP_CODEMPXEMPRESAXHEADERLISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCR P_DIR_AFIPATRCAN=%C U@C3No existe la carpeta AFIP y no puede ser creada !!!BT\iibb er  %CiibberFQTC]CQ\tmp\%Cempresas 0Q \empresasC empresascodigo G+(listadosT CC F-IBP %C4 BmG(\C @ - CCiZ-C00CCCHZR& - retenciones IIBB de proveedores.txtG G F T"~IBP WT T TTTQ? %- 2016CC- C C*C* OP  "CC0 QCCZ RCCC 0C106C H;C  T!-GG(nC\C @ - CCiZ-C00CCCHZR& - retenciones IIBB de proveedores.txt"F*(#\xchg\per_ib_er_retenciones,(#\xchg\per_ib_er_retencionesԻQBU$AFIP_DIRMENSAJE L_DIR_AFIP P_DIR_AFIPXBASEIIBBER XTABLA_ERCREAR_TABLA_EARCIBAP_LOCALP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRBORRARTIPOCODXHFECACC XALICUOTAXREGIMEN XJURISDICCIONIMPORTECUIT AGIP_NUMERONUMEROFECHACOMPROBIB_CONVSIRCARBASEXINICIALNO_CTRLZP_SERVERc%C U@C3No existe la carpeta AFIP y no puede ser creada !!!BT\iibb misiones  %CiibbmisFQTC]CQ\tmp\%Cempresas 0Q \empresasC empresascodigo G+(listadosT CC  F-IBP %C4 BxG(\C @ - CCiZ-C00CCCHZR1 - retenciones de iibb a proveedores misiones.txtG G F"~IBP f TC dT CC*/-,CR,CCZ,CCd=,C,CCZ,CCZ,,,,C T-GG(yC\C @ - CCiZ-C00CCCHZR1 - retenciones de iibb a proveedores misiones.txtF0(!\xchg\per_ib_misiones_retenciones2(!\xchg\per_ib_misiones_retencionesԻQBUAFIP_DIRMENSAJE L_DIR_AFIP P_DIR_AFIPIIBBMIS XTABLA_MISCREAR_TABLA_EARCIBAP_LOCALP_SYSTEMP_CODEMPXEMPRESALISTADOSLIMPIAR_FILE_NAMEEMPRESASDESCRBORRARTIPOCODXHFEC XALICUOTAIMPORTEBASEFECHANUMERONOMBRECUITXINICIALNO_CTRLZP_SERVER' T !T  C ,T  CCZ,T  CCZ,!T  C  ,$T  CC- ,T  C*, T  CCZ, T  CCZ, T  CCZ,!T  C ,T  CCZT  C  B U XREGISTROXNUMEROXCUITXFECHAXBASE XALICUOTAXIMPORTEXREGIMEN XJURISDICCIONXSTR AGIP_NUMEROordene0 exportar_ibD1 exportar_iva8exportar_iva_proveedores=exportar_ib_proveedoresBexportar_gan_proveedoresNsujetosnUvld_atrW exportar_sussY'exportar_retenciones_ganancias_clientes]tipo_comprobante.`exportar_ib_retenciones_esicolRaearciba2e agip_numeroscrear_tabla_earcibaBtexportarvexportacion_reporteyretenciones_entre_rios[retenciones_misionessircarrAA!A!A!AAAAArQrQrQR!DA2aAbAtqAAqAAqAA`Ar1aaraqqAAarAAqAArA2!AqqAArAAAw!"ArBrABBCSB!AA2AAqAAP)rrRCrT!AA2AAACSs1q1q1rBAAAAAqs!"""BB1AAA1AA2AAAAAAAAAAAqAAqAAqAAqAAUrqAAqAAB2qAA2rAAAAAAAaax!BrrQAA"bAA!AAAA"AA"AA"AAABBrAbaB3uAAAAAAAaarq"Abaaarq"AbaD2ArAAAArAAbarqArrrqA!aqAbaB2qrAAAAC3wA"1Ar!"1AcaarA1baAbaactc2Ar#aBTAC"ARtQABBB3A2A2AC2ArAAAArAAaaAuqArq1qArqA!aqAbaCcB2AaaAbaAA2qr!sAAAAA!AqAA2rAAAArAAAaarq"1AbaB2rAAAAAaarq"AbaB2A2AA3AAAr#arAABaar!"qqAbaRB2AAAqAAAr#arAARaadr!rQA%BBq"qA2"qAa!b"ACCAAaaaAaaaqrAbabrAB22qA24A"2ABAAF3A#aSQqAABB111211QQ21Q212qA4Q2A2QQ2Q2aQBB4AAArrqAAAr#arAAaat!!!qqAAbarAB2AAAqAAAr"arAAaar!1aAbar!AB2qrAQ11QIJ`*JvSSZk[WbG{bQv#vvcwjr.~H0rd (q6LΖInLsQղNno+N1u0%rWnW/`UG+(dey_func  %Cbienes fQbienes%Ctcccomp Qtcccomp,% C xComprobantesbC ^%C comprobantesF Q!%Ccomprobantes_detF QTCFfh1_detCC CCNQ_det & Fh1CCC CNNCNN DCDM C !C"N #D$C%C(Q &  TaF&G((comprobF'G-(CZ&F(G((codpro'*+,-./012)T2C@z 9999,999,999_%Ccostos QcostosF( EF' T*COG((comprobG E2G G T1#+2C+ F T+COT,4 T-5 T.6 T/7 T08%-C X% GE-.C/ZC0ZG %C4! T11F H)r 'CO>FC 'du>ND 'c>NC 'L>AS '1>CC '2 >DC 'H3>PR 'OY>PA 2r>XX TT %'C'cccompop%9: "C9:tcccomptcccordT9:T  ; T<'<=1ocomprasC:<: =% #CC=tcccomptcccordTC=T  ;>'C' 9>'6C''4C,'6C,'''''2"# $9$%9$3? C9$costoscodigo>%3% T@F& TAaG+&B&&'''CCompras+ %C&C "T@@ - CC&C=%C&D C&DbienescodinsTE F  TE&FCEcuentascuentaYrcomprobantes_det2GHG&C&I%A F > GH>!G TA-H&F !%@ C@>  >C@\F'HG((comprob #+H%(JS^ TKF9 G((pago EF H  9C >FC 9d >ND 9c >NC 9L@ >AS 91f >CC 92 >DC 9H >PR 9O >PA 2 >XX>9B9>9I9I999L9;2$9$%9$3? C9$costoscodigo>%3%Z TAa T@F& G((pago E TM TN+C+ &L %C&$ eTM&$%C&C "T@@CC&C= - %C&D  C&DbienescodinsTE F TE&FCEcuentascuentaYrcomprobantes_det2GHG&C&I%AF > GH>!G TA-H&F >@%C$CM V%M3?5CMcostoscodigo >$M>%3F' | #* F BUOXCOD_PRONOPAGOXCAUSA XINICIADO XCOMPROBANTES XCONCEPTOSXCONCEPTOS_LARGODEY_FUNCXOCXOC_FECBIENESTCCCOMP COMPROBANTESCOMPROBANTES_DETNEWFILE_LOCAL_TMPLINKCUENTADESCRDESC_ARTIMPORTETIPOCPBTCOD_PROCOMPROBCOMPROB2SALDOAPLICADOCAUSACUOTAOPFECHAVENC CONCEPTOS IMPUT_CUE IMPUT_DESOCOC_FECCENTRODCENTROCOMPRASCCPROVPROVEEDOCODPROXRECNORECAUXXREFXCAUXCUOXOPRMAXAPLXLINKCOSTOSADELANTOREFCAUCUOOPRCCCOMPORDENFEC_COMXOPARR_OCFAC_COM2COD_CENXCONCXTOP_DETFAC_COMDESC_INSCOD_INSXCUENTACOD_CUECUENTASABREVTOT_COMCONTADOXFROMPAGOXCENTROXMAXpag_aplica_fill,1"!A1AqAAqAAhqPrrrBr!Arrbab2QaarQqqqqqqqqA1ab!q"1AABO Aqq!ARAqAAq!AAqAAAAArrrQqqqqqqqqA,AqRA!ARAqAAtaAABBrAr1 %a@DPAvvWc`5TCC]R5TCC]R%H\  TC TC 2C ERROR !!! #T inlist(empresas.codigo 1T  ,CC ZT  )%Cempresas }Q \empresasF Ta~C TC_CC ZTC_CC ZC % %Ctmp_consolidado1FQ6Q\tmp\rpt_te_cheques_en_carteraF#(\tmp\tmp_consolidado'Q\tmp\tmp_consolidado T- F-\tmp\rpt_te_cheques_en_cartera %Ctmp_consolidado4F e'Q\tmp\tmp_consolidadoHzH H &  &  &  H) P& C w& C & CZ 2HHD & CZC & CZC D& CZCZ/(\tmp\rpt_te_cheques_en_carteraQ G( ges  T TCBUBORRARXBORRARBORRAR1XBORRAR1XDCONOCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJE XFILTRO_CONOEMPCODIGOP_SYSTEMXINICIALCALCULARTMP_CONSOLIDADOP_LOCALXDSEPXDORDFECHA FRECEPCIONNUMEROCUENTAORDENP_SERVERGESP_CODEMPG 4T\data\CCZ G( ges%CchequesdFQQcheques%CchqFQQchq%CclientesFQQclientes%Cagente FQQagente%CcuentasDF QQcuentas%C {C # BT 5xdfec<=cheques.dif_valor.and.cheques.dif_valor<=xhfec"% CX CX %KST  B.and.val(xdcli)<=val(chq.cod_cli).and.val(chq.cod_cli)<=val(xhcli) ?T  ..and.xdcli<=chq.cod_cli.and.chq.cod_cli<=xhcli"%CX CX >T  - and between(clientes.vendedor, xdage, xhage)&%C C3 $ uOT  > and xdfec_proceso<=cheques.hoy.and.cheques.hoy<=xhfec_proceso"%C X C X CT  2 and xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcue f~T  m and (subs(cuentas.atributo,37,1)="S" or subs(cuentas.atributo,65,1)="S" or subs(cuentas.atributo,68,1)="S")+%C xMostradorbN FT  5 and ( Te_SubA(cuentas.atributo,134, cuentas.abrev) )HY %"T   and !chq.echeque Y!T   and chq.echequeselect cuentas.abrev as cuenta , cuentas.descr as dcuenta , cheques.numero as numero , cheques.subnum as subnum , cheques.des_val as descr , cheques.dif_valor as fecha , iif(xdmon, cheques.caj_pro, cheques.monext) as importe , cheques.fec_rec as frecepcion , chq.cod_cli as codigo , iif(tarjeta="S",cheques.nombre, clientes.nombre) as nombre , iif(chq.tipo=1,'S ','N ') as diferido , chq.dep_banco as bancodep , padr(iif(chq.dep_clear=1,'24',iif(chq.dep_clear=2,'48',iif(chq.dep_clear=3,'72',iif(chq.dep_clear=4,'96',iif(chq.dep_clear=5,'120',iif(chq.dep_clear=6,'144',"AC")))))),3) as horas , chq.dep_pueblo as pueblo , chq.proveedor as proveedor , iif(chq.terc,'S ','N ') as tercero , iif(chq.echeque,'S ','N ') as echeque , iif(chq.terc, chq.emisor,clientes.nombre) as emisor , iif(chq.terc, chq.cuit ,clientes.inscripcio) as cuit , iif(chq.endosa,'S ','N ') as endosa , iif(chq.dudoso,'S ','N ') as dudoso , space(30) as txt , 0000000000000000 as orden , cheques.hoy as hoy , clientes.vendedor as vendedor , agente.nombre as dvendedor , xemp as empresa , 00000000000000.00 as saldo , space(20) as clave , space(20) as clave2 , cheques.banchq as banchq , cheques.numchq as numchq from cheques left outer join chq on str(cheques.numero)+str(0)=str(chq.numero)+str(chq.subnum) left outer join clientes on chq.cod_cli=clientes.cod_cli left outer join agente on clientes.vendedor=agente.cod_age left outer join cuentas on cheques.cod_cue=cuentas.cod_cue where &filt into table (p_local+"\tmp\"+borrar) Q\tmp\ %a& ~"% 9TCC)CC)66  9TCC)CC)66H  8 T T  T! r T" T  T!  T"T CCidCHZ$T!C# de CCCiZ T$C%& T"uT CCC$ C$H  C$iC$i6'CC$ C$H  C$H6dC$Z-T!Del C$* al CC%'*  T"&T CCi'CHdC%ZT!C*!>() *!GIHA l& ()C & ()C & ()C+ZGI T,kdfjsgl T- ~N%(),,T,() T-T--. >/-%0wh1\tmp\1"C 2C(3N4N5NQ\tmp\116(G6i1borrar1FCC$6N& "(\tmp\1F ~F1 E"%C4 >""27BTCC)CC)66%C$ *>33. %C$b>44. T8FC+replace &xxx with &xxx + borrar.importe >55.%C0F F1.(\tmp\rpt_te_cheques_en_cartera%CborrarUFQ \tmp\.dbf \tmp\.idx \tmp\.cdx%Cborrar1F1Q \tmp\1.dbf \tmp\1.idx \tmp\1.cdxBU9XDCONXEMPXSERVERP_SYSTEMGESCHEQUESCHQCLIENTESAGENTECUENTASXDCORVALORES_RETROACTIVOFILTXDCLIXHCLIP_CLINUMXDAGEXHAGE XDFEC_PROCESO XHFEC_PROCESOXDCUEXHCUE XMOSTRADOR XTIPO_CHEQUESP_LOCALBORRARXDORDXFECHA FRECEPCIONFECHAXDSEPXCLAVEXCLAVE2XTXTCUENTAMESXXFECHAODEYFUNCFN_BEGFN_ENDCLAVECLAVE2TXTNUMEROXOLD_CTAXSALDOIMPORTESALDOXDTIPBORRAR1DESCRANTERIOR POSTERIORTOTALZDCUENTAXXX4%Ccom_oper+FQQcom_oper%Cven_opergFQQven_oper2T%xdfec<=dif_valor and dif_valor<=xhfec&%C C3 $ ?T. and xdfec_proceso<=hoy and hoy<=xhfec_proceso"%C X C X CT2 and xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcue  Ts and (substr(cuentas.atributo,37,1)="S" or substr(cuentas.atributo,65,1)="S" or substr(cuentas.atributo,68,1)="S") T"% CX CX % YTL.and.val(xdcli)<=val(ven_oper.cod_cli).and.val(ven_oper.cod_cli)<=val(xhcli) 3T&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"% CX CX M>T- and between(clientes.vendedor, xdage, xhage)T~select numero, subnum, des_val, caj_pro, fecha, dif_valor,monext, fec_rec, ven_oper.cod_cli as codigo, cuenta, des_clie as nombre, hoy, banchq, numchq from ven_oper left outer join clientes on ven_oper.cod_cli=clientes.cod_cli, cuentas where tipo="1" and fecha>=xcorte-800 and fecha<=xcorte and &filt2 and ven_oper.cuenta=cuentas.cod_cue into cursor borrar_v select numero, subnum, des_val, -caj_pro as caj_pro, fecha, dif_valor,monext, fec_rec, ven_oper.cod_cli as codigo, cuenta, des_clie as nombre, hoy, banchq, numchq from ven_oper left outer join clientes on ven_oper.cod_cli=clientes.cod_cli, cuentas where tipo="1" and fecha>=xcorte-800-366 and caj_pro<0 and fecha<=xcorte and &filt2 and ven_oper.cuenta=cuentas.cod_cue into cursor borrar_v1 _select numero, subnum, des_val, caj_pro, fecha, dif_valor,monext, fec_rec, cod_pro as codigo, cuenta, des_prov as nombre, hoy, banchq, numchq from com_oper, cuentas where tipo="1" and propio#"S" and fecha>=xcorte-800-366 and caj_pro>0 and fecha<=xcorte and &filt and com_oper.cuenta=cuentas.cod_cue into cursor borrar_c %as iselect numero, subnum, des_val, -caj_pro as caj_pro, fecha, dif_valor,monext, fec_rec, cod_pro as codigo, cuenta, des_prov as nombre, hoy, banchq, numchq from com_oper, cuentas where tipo="1" and propio#"S" and fecha>=xcorte-800 and caj_pro<0 and fecha<=xcorte and &filt and com_oper.cuenta=cuentas.cod_cue into cursor borrar_c1 oborrar_vǼborrar_v  2o borrar_c1borrar_vǼborrar_v2o borrar_v1borrar_cǼborrar_coborrar_vQXborrar_cQ CZCZCZCZCborrar_fWselect cuentas.abrev as cuenta , cuentas.descr as dcuenta , borrar_f.numero as numero , borrar_f.subnum as subnum , borrar_f.des_val as descr , borrar_f.dif_valor as fecha , iif(xdmon, borrar_f.caj_pro, borrar_f.monext) as importe , borrar_f.fec_rec as frecepcion , chq.cod_cli as codigo , iif(clientes.tarjeta="S",borrar_f.nombre, clientes.nombre) as nombre , iif(chq.tipo=1,'S ','N ') as diferido , chq.dep_banco as bancodep , padr(iif(chq.dep_clear=1,'24',iif(chq.dep_clear=2,'48',iif(chq.dep_clear=3,'72',iif(chq.dep_clear=4,'96',iif(chq.dep_clear=5,'120',iif(chq.dep_clear=6,'144',"AC")))))),3) as horas , chq.dep_pueblo as pueblo , chq.proveedor as proveedor , iif(chq.terc,'S ','N ') as tercero , iif(chq.echeque,'S ','N ') as echeque , chq.emisor as emisor , iif(chq.terc,chq.cuit,clientes.inscripcio) as cuit , iif(chq.endosa,'S ','N ') as endosa , iif(chq.dudoso,'S ','N ') as dudoso , space(30) as txt , 0000000000000000 as orden , hoy as hoy , clientes.vendedor as vendedor , agente.nombre as dvendedor , xemp as empresa , 0000000000000000.00 as saldo , space(20) as clave , space(20) as clave2 , borrar_f.banchq, borrar_f.numchq from borrar_f left outer join chq on borrar_f.numero=chq.numero left outer join clientes on chq.cod_cli=clientes.cod_cli left outer join agente on clientes.vendedor=agente.cod_age left outer join cuentas on borrar_f.cuenta=cuentas.cod_cue where &filt into table (p_local+"\tmp\"+borrar) BUXCORTECOM_OPERVEN_OPERFILT XDFEC_PROCESO XHFEC_PROCESOXDCUEXHCUEFILT1XDCLIXHCLIP_CLINUMXDAGEXHAGEFILT2BORRAR_V BORRAR_C1BORRAR_C BORRAR_V1VCNUMEROSUBNUM DIF_VALORFECHABORRAR_F1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxte_rpt_cheques_en_carteraT\tmpTTT T  C BU XMOSTRADORXDCONXTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM XDCONSOLIDADOXDNUM1 EXP_TABLA1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxte_rpt_cheques_en_carteraT\tmpTTT T  C BU XTABLAXHFECXDCONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM XDCONSOLIDADOXDFEC1 EXP_TABLAHCCheque C-aBC\SU XATRIBUTOSXATRXABREVSYS_MOSTRAR_SCREENTC TC TC 0Para: -log_alertas.txt#%Ccheques_en_carteraQ Thola3 Toma de datos-log_alertas.txt-Q\tmp\7Revisin de datos-log_alertas.txt T >~ C$Ca S6 C$ %C T  T  T  T  T  T  
T   *T   "T   !T   #T   T   T   4T   &T   (T   9T   T   %C T  
Numero InternoChequeFechaImporte
CC ZC CC *CC999,999,999.99_
T  
T  
T  T  JCheques a depositar:C C  -log_alertas.txt ACheques a depositar: No hay-log_alertas.txt#%Ccheques_en_carteraQ%C  TCheques a Depositar TC %C2 Mail enviado-log_alertas.txt :Error de envo: -log_alertas.txtBULC_TOXTIPO XCONSOLIDADOSYS_LOGCHEQUES_EN_CARTERAXTABLAXMSGEXPORTAR_CHEQUES_EN_CARTERAP_LOCALLC_MSGFECHAECHEQUENUMERODESCRIMPORTELC_SUBJSYS_MAIL_ALERTAS:'te_rpt_cheques_en_carteraJ BUOFORMTE_RPT_CHEQUES_EN_CARTERA CUEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aH  T-TC  A   yTa   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDCUEXHCUEXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTARcalcularvalores_retroactivo5exportar_cheques_en_cartera0!exportar_dias_de_giro_cheques_indt2Te_SubA4alertas_cheques4 obtener_form2= ejecutar_sql=ejecutar_reporte=rQrQ21qbA2A!Ar(BqAAbq1qrBBqqA1111A11A1A1AA111AAA"AB4qAA1BqAAqAAArqAA!qAA1%!"1AA"AbA"1AaA1!1Aa|C2A122A2SQ2aBBBb@111AeCqAA2yaArqQA""AAAAAABBqqArqAAqAAB3qqAAAqAAA"bA"1AA!1AA"A #C"quC2!"AB3!"AB2q35122A23rqqq!!A!R!b!1qCbAaqB"QQA2A"!ABB2qr33AAA1Q1111AA1W^ -- D01D/F|=]F9HJMHHNHSTT$TT+UX/%švҜiX` 5 TG(9<7estadoJ%C Iniciando...  T BA T  T  T cG+(listadosG+( gs_funcionesF%Ccons Qcons% C %r-C   %)  %)  %,)  %h)  % %)  %)  %L)  %)   % )   G C'G FQcashdataGI+& CZ!"(# \tmp\borrar5GI F$CConfigurando...% C& T' T( T)*+c#,listados'()+'CComienzo. Empresa:CCZ-% &CProcesando clientes...%%c%./K C0 _ C1)CProcesando proveedores...%% C2%CProcesando valores...%% C3'CProcesando tesorera...%%/ C4)CProcesando adicionales...%%  C5%CProcesando pedidos...%%C6 +CProcesando importaciones...%% C7$COrdenes de compra...%%V C8/CProcesando proyectado ventas...%%C9 0C Procesando proyectado compras...%% C9 "C Fin. Empresa:CCZ-GG(G*G on escape &onesc %CLimpiando Procesos...%%Cfecha QfechaF:#)%C+ >:*QT;- <<BU=XEMPTMPXMSGDXAUT XNO_GENERARXEMP ACTIVEFORM DATASESSIONIDOESTADOESTADO SET_AND_SHOW XMAXFECHA XMAXORIGENMAXTIPO MAXSUBTIPOLISTADOS GS_FUNCIONESCASHDATACONSFORORIGENXREPEMPXOCLIXOPROXOVALXOTESXOADIP_DOSXOPRYVXOPEDXOIMPXOOCSXOPRYCCODIGOPROCLIP_LOCALSALDOSAVANCE CONFIGURARXERRXMSGXFECHA_CAMBIOSXDFEC ARR_CAMBIOSFN_CAMBIOS_ACTUALIZADOSLOG_TXTCASHCFG CLI_DISTRCLIENTES_X_DISTRIBUCIONCLIENTES PROVEEDORESCHEQUES TESORERIA ADICIONALESPEDIDOS IMPORTACIONESORDENES_DE_COMPRA PRONOSTICOSFECHAVISIBLERELEASE%Ccashtipo .Qcashtipo%Ccashcue ^QcashcueF G((idF*G-(C=CCC[& (\borrar6BUCASHTIPOCASHCUEIDTIPOCOD_CUEP_LOCAL5,%C :B- %  TCO&T AC C ZG EG T-4+C+ ! AC C Z ,%C  Ta!H #% YCCliente C 7: Debe hacerse un mantenimiento de la cuenta corriente.   Ta BUXOKREFCAUCOMPROBCAUSACASHCFGFASTREGISCLAVECOD_CLIFECREFCUOLOG_TXTCLIENTES5,%C :B- % 9 TCO,T AC C ZC ZG EG T-:+C+ ' AC C ZC Z ,,%C $ Ta!H # N Ta% DC)Debe hacer mantenimiento en el Proveedor C  !!!  BUXOKREFCAUCOMPROBCAUSACASHCFGFASTREGISCLAVECOD_PROFECREFCUOOPRMENSAJE%Cccvent *QccventF G((idFG((codcliFG((porfacpG-(mT`causa#'P' .and. !eof('CLIENTES') .and. iif(p_emp='SCH',fecha>={^1998-01-01},.t.) .and. causa#'r'%C ! T.and. C set filt to &xfiltcli % CXuG E G T  #)T zzzzzzT . T T+C+   !%  NUV %FG((comprobECZ C0+C+ CZ CCZ yHF T T %C T TaTCX%Vcd\'%H'CccventccvfacT!%C Z%T!C""#6TC Z T$ T% T& T' T(CO%C)*% + G(( referencia E T-)+C+ )*C.Z "T--C0123/HG((porfacp #( !T-C04123/ T-C0123/FG((codcli%X E!T5C6 786<99  T:T; T<%C T= T=C#"D)% >=? > /T<<CC< , 6Pateado"T9C3 $T9-2T9CC" #"6T9T9T9aT9T9# T: T@TAC3 $ %Vcd?FG((ccvfacET@CD FE G((plan EFTGEHTIE TJEKTLEMTNEOTPEQTRESTTEUTVEWTXEYTZE[T\E]T^E_T`EaTbEcTdEeTfEgThEiTjEkTlEmTnEoTpEqTrEsTtEuTvEwTxEyTzE{T|E}T~ETETETE%EH 4ve_reimprimir_comprobante R *TACP " P6TCT6CV6CX6CZ6C\6C^6C`6Cb6Cd 6Cf 6Ch 6Cj 6&%J P  1%J! VT<<CC< , 6.el plan determina que no desglosa vencimientos%J _T<<CC< , 6*el plan tiene fecha de entrega de valores(CCPZ) Ta T%,( ($TCxcndsp_cCCZp%$T::$TCxcndsp_cCC:Zd$TCxcndsp_cCC:Zp% % T9:  T9:!TC:9 +$T9:!T9:-d T9:T9::T9:T9:-T9:T9:%T9:C:9 T- -(I%%T9 $T9LI %TC9LI  #,T9LI T9-I $T9LT9T9T9-T9T9%T9C9 T- T:I ;%T9JT<<CC< , 6tiene fecha manual (C*) I#T9"%C EFT<<CC< , 6tiene demora (CCZ)T9-T9"T9 T9C9T9aT9T9#$T9C9 T: %T9JT<<CC< , 6tiene fecha manual (C*) 2T9CC" #"6T9-T9"T9 T9C9T9aT9T9# T:TA T@T#TC$%&FG((cuentas E)% C X <% F TCO Ta!+C+  % Ta!H%  #T(:8%%  V DT9CC C9C9 6!T9C9JT<<CC< , 6tiene dias fijos (CC Z)%CC9)%T9C9T9!T9C98T<<CC< , 6ajuste x Domingo %CC9)%T9C9T9!T9C97T<<CC< , 6ajuste x SbadoTC9 T%kCC C9C9C6$%&C9C9CNA5C9C9 CC C9C9C6$%&C9C9CNA5;C9TC9 CCCliente C! tiene una cuenta no configurada.FH!% NUV +FG((comprobECZ C$+C+  C HFFG((comprobF G-(%CCASHDATABUCCVENTCCCNOTASIDCLIENTESCODCLICCCLIEPORFACPCOD_CLIXFILTCLICASHCFGFILT_CLIXDCLIXLASTXOLDXDEUDAXCP_EMPCASHDATACOMPROBXEMPEMPCODIGOPROCLIINREF_CLIEXMANUALFECESTXMODXCENCOSCAUSAFAC_VENCOD_CENCUOTAXVENCVENCFECHAXCODIGOXCOMPROBXCAUSAXCUOTAREGISREFCAUFAST REFERENCIAACCCUO FN_ACT_CLIIMPORTEMONEDACOEFICMOTIVOADELANTOXAGENTE P_AGE_TIPOAGENTEVENDEDORARR_VENC MAXARRVENCXFMANUALXLOGXFECHA_A_PATEARCLIINIXDFECXACUERDOXFECVALCCVFACDTOACUTOT_VENCONDCOBRPLAN XCNDSP_DESCRDESCR XCNDSP_CUOTAXCNDSP_NO_DESGLNO_DESGL XCNDSP_PLAZOPLAZOXCNDSP_ANTICIPOANTICIPOXCNDSP_VALORESVALORESXCNDSP_NEGOCIONEGOCIO XCNDSP_C1DA1 XCNDSP_C2DA2 XCNDSP_C3DA3 XCNDSP_C4DA4 XCNDSP_C5DA5 XCNDSP_C6DA6 XCNDSP_C7DA7 XCNDSP_C8DA8 XCNDSP_C9DA9 XCNDSP_C10DA10 XCNDSP_C11DA11 XCNDSP_C12DA12 XCNDSP_C1PP1 XCNDSP_C2PP2 XCNDSP_C3PP3 XCNDSP_C4PP4 XCNDSP_C5PP5 XCNDSP_C6PP6 XCNDSP_C7PP7 XCNDSP_C8PP8 XCNDSP_C9PP9 XCNDSP_C10PP10 XCNDSP_C11PP11 XCNDSP_C12PP12XCNDSP_DIASCHQDIASCHQVARIABLE LEER_PLANVARCVE_REIMPRIMIR_COMPROBANTEFEC_VENXCUOTASVARIABLES PORFECVALXPRIMERA_CUOTAXPRIMERA_CUOTA_VENCZXPXAXPRIMERACUOTA_VENCDEMORA XFECHAORI XCONFIRMADOCPBT_CONFIRMADOCASHCUECUENTASCUE_DEUCOD_CUEXREGXCONFCONFIRM XTIPOCONFTIPOCLIDIAS XAJUSTE_DIASXDIA_PAGO_FIJO P_GS_VERSION AGREGAR_VENCCASHTIPOSUMANOMBRELOG_TXTFORCEDIDA %Ccons &QconsF#)%Ccccomp `Qcccomp%Ccondpago QcondpagoFG((codproFG((porfacpG-(.T! causa#'P' .and. !eof('PROVEEDO')%C 6Tand C set filt to &xfiltpro % CXG E G T  #)T zzzzzzT . T T+C+   } !%  NUV %FG((comprobECZ P0+C+ CZ PCZ HF T T %C n %aj !TCZCZ T T T T T  T!CO%C"#=% $ G(( referencia E T&/+C+ "#C'ZC(Z "T&&C*+,-)HG((porfacp #! 9!T&C*.+,-) eT&C*+,-) T/% F G((op E%C4T01F G((plan E0%C4T/2F G((op E %C4HT34 _ T3FG((codpro% E&%5S 6S d%Ctarj_cie Qtarj_cieF7G((cod_pro E%879FT:7; `T:7< .T:C= =86T>? T@a+TAC? ?:6TAA/%C? TB? >TBC8=D)% CBD C TAC3 $&T:CC= 8=6 T@a%EFGFEG((cuentas EGTIJ)%EFG GC X  TK%C :%LM N O P  Q(x TRAQHt  CR)L ! CR)M ! CR)N . ! CR)O Q ! CR)P t !|TKCLSN6CMSN6CNSN6COSN6CPSN6 TAR   O %C SK TAC3 $ Y  TT% U= CCCEW CCCXZ>CCXZ[:&cCYZ6AC5S [\6 PNI8>@V  CCEW :&cCYZ6AC5S [\6 PNI8>@VT& U IC Proveedor C! tiene una cuenta no configurada.I]T&FH!% NUV  FG((comprobECZ P0+C+ CZ PCZ HFBU^CONSCCCOMPCONDPAGOPROVEEDOCODPROCCPROVPORFACPCOD_PROXFILTPROCASHCFGFILT_PROXDPROXLASTXOLDXDEUDAXCP_EMPCASHDATACOMPROBXEMPEMPCODIGOPROCLIINREF_PROVCAUSACUOTAOPXCODIGOXCOMPROBXCAUSAXCUOTAXOPREGISREFCAUFAST REFERENCIAACCCUOOPR FN_ACT_PROIMPORTEMONEDACOEFICMOTIVOADELANTOXDESPLAZAMIENTO_PLANXPLANPLANDIASCHQ XFAC_COM2FAC_COM2TARJETAES_TARJTARJ_CIEFECHAACT_CIEXVENCACT_VENPRX_VENVENCXFMANUALFECEST XMODIFICABLEXFECESTIXFECHA_A_PATEARPROINIXDFECCASHCUECOD_CUECUE_DEUCUENTASXCENCOSCENTROXDIA_PAGO_FIJODPLUNDPMARDPMIEDPJUEDPVIEZXF2PROPAT XAJUSTE_DIASPROVXCAT AGREGAR_VENCTIPOCATCASHTIPOSUMADES_PROVNOMBRELOG_TXT%Cchq $QchqFG((cuentasFG-(G(Ccashcue+  #) ~ THY&   C "CclientescodcliT  PB"CproveedocodproT 2Y T% L&%  C F G((comprobE  FG((comprobE  T T TaT' co_funciones%Cconcepto#CconceptoasientoTFT%TT %*%CCZC ZchqIDiT!" ~ T!-%! TC$ T# T# T$ T%%&C()#*C+,6  N- C.CC  / 6a' C()#*C+,6  N- C.CC  / 6a'FBU/CHQCASHCUECUENTASCHEQUESCOD_CUE XCOMENTARPROCLICODIGOXNOMBRECLIENTESNOMBREPROVEEDOCAUSAVEN_OPERCOMPROBCOM_OPERXFECHAFECHAXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESASIENTOCONCEPTOCASHDATAXFMANUALFECESTIXFECESTICASHCFGCHQNODIFNUMEROSUBNUM XENDOSABLEENDOSA DIF_VALOR XAJUSTE_DIASXDIA_PAGO_FIJO P_GS_VERSION AGREGAR_VENCXEMPTIPOCAJ_PROCASHTIPOSUMACENTRODES_VAL C Suspendo?aFG((cuentasFG((cuentaT.t.% T!cashcue.bancos/T and empty(cuentas.complement)select saldos.cod_cue as cuenta , saldos.debito-saldos.credito as importe , saldos.fecha as fecha , cashcue.tipo as tipo , cashcue.txt as txt , space(12) as comprob , " " as causa from saldos, cashcue, cuentas where saldos.cod_cue = cashcue.cod_cue and !cashcue.vales and !cashcue.cheques and &xfiltro and saldos.cod_cue=cuentas.cod_cue into cursor lsaldos readwrite ocom_opercashcuelsaldosQcQ  Q  Q  Q  Q Q    1 \tmp\lcomoven_opercashcuelsaldosQQ  Q  Q  Q  Q Q    1 \tmp\lvenF \tmp\lcom \tmp\lven?olsaldos  C Q totalesFG((cuentasFG((cuentaFG-(G-( ~| T TC  C6C$SALDO CNFG((cuentaFG-(G-(Tًcuenta#space(9) .and. !eof('cashcue') .and. !('Depsito'$des_prov) .and. !('Extracc'$des_prov).and.causa#'X'.and.causa#'D' .and. propio='S'set filter to &filtro G((vencGF G EC$nG GF+C+ F Ta%F E%C4  T-% f% P    2 !  L  .T"C#  #6%C$ T"$%T"%C% F%   %"C$& T'%& TH  C") C")T"" T C") T"" T 2 F( E)T' (*FT+C TC "cC6) "C'N,  -  F. T.-3/te_debitos_baja. -%&. T'%& TH   C") T"" T C") T"" T 2 F( E)T' (* T1%L T2 T3 T4aT5'6 co_funciones2345%Cconcepto #C8conceptoasientoT199FT+C TC "cC6) -"C'N,  -1FHBU:SYS_MOSTRAR_SCREENCASHCUECUENTASCUENTAXFILTROCASHCFGTIPOCAJACOM_OPERCAJ_PROIMPORTEFECHATIPOTXTCOMPROBCAUSALSALDOSCOD_CUEP_LOCALVEN_OPERTOTALES XAJUSTE_DIASXDIA_PAGO_FIJO AGREGAR_VENCXEMPCASHTIPOSUMADESCRFILTROVENCOKSALDOSVALESNUMEROUSADOXF DIF_VALORFECEST COMPLEMENTBANCOSXTXTPROVEEDOCOD_PRONOMBREXTXT2CENTROSUBNUM XDEBITADO CHP_DEBITADOTE_DEBITOS_BAJA XCOMENTARXFECHAXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESASIENTOCONCEPTOI4F G((id2$ECZCZCZBC4U XIDPERIODOCASHEXPAID2XIDUXCLASEXANOc<F >aFC AdicionalesF~ TC 4TCC m DCC$iC i8%iC"Fecha invlida para el adicional: C !!!C El adicional no ser procesado. .(T TTC;% CC -6 !%  T TTCiTT TT !T"T# T$%T&'T(T)*%C+ F > > >  > >! >" > # >%$ >'& >( >, >- >. >*) F >- > >  > >! >%$ >'& >( >, >-(%/ " G >"%C.i >.%C0%.C.  >0. >.   >.%/>0 >. >*)%1F2 G((id2$EC#ZCZCZ%C42$%     !F%/ >/-%1 >1-F2 G((id2F*G-(C ZC,ZC-Z2Ccashcanc+ F G((idFG-(C >Ccashadic+ F7 G((idFG-(CZC!Z7 ~ T8 T9C*CCZCC!Z.cC7;6z,.%' -0:FF Qcashadic3 QcashadicF ?Qcashexpa3 IQcashexpaBU<ARRCASHEXPAELIMINARALLCASHADICSYS_MIMPORTE XMAXPERIODOS MAX_PERIODOSCLASECASHCFGMAXGENFECHAMENSAJEDESCRZXVENC XIDPERIODOXPERIODODETERMINAR_PERIODOXDFECLIMITEFECGENXIDUIDUXVTOXANOXPROVPROVXFECHAXTIPOTIPOXSUBTIPOSUBTIPOXIMPORTEXCLASEXPOSTPOSTXCENTROCENTROXDESCRXEMPRESAEMPVLD_EXPACUOTAANOVENCREGENERAFMANUALRECUPERACASHCANCID2INFORIDCASHTIPO XAJUSTE_DIASXDIA_PAGO_FIJO AGREGAR_VENCSUMA_ 41 noproblem=15TCALTEvTCALTEvTCCONSv%G( \temp.txt G( \temp.txtG G  GG(G %C G(%ON"G %ONAG on error &onerr BUXTXTXINIT OLDALTETO OLDALTEONOLDCONSP_LOCAL4 BUXTIPOGS_PRONOSTICOSG %Ccccnotas 1FQcccnotas%Cccclie bF QccclieFG-(%Ccliaux QcliauxFQtventaspedidoFQtccventpendG-(CZ T%C +TC set filt to &xfiltcli G$~ 0 C %@ FG((comprobG,E C@z 9999,999,999_PG T F G((codcli% ) E F-  %C4  -  %C4 KC.PEDIDOS: Imposible asignar un tipo al cliente  !!!!F G((plan EF G((plan EF G((idEC ZP%C4 T( #%CcCCZdTCcCCZd!T  CTT!T !T"C# $% &6%  %'SCHWHS4 CC(fBCC(\fB T)B 4 CC(fCCC(\fC 6T)C 2ST)B  qT)(T* %- otventastccvent+Q,C+Q-.Q/01Q21Q3 * +.0 tmp_desplaz%  ~2T C40 40563%Ccliaux Qcliaux%43T  43 T  42T6 ;T789C4, 4-4, 6%:%;"T77C:<;  T=6J%C C 9999,999,999_PCZcccliecomprob=%C> 9T6> T? T@CBCC 57CDE6 C@z 9999,999,999_P6 CP)"A  T789%:h %;d "T77C:<;  T? T@CBCC 57CDE6 C@z 9999,999,999_P CP)"A  otventastccventC51QFC01QG *  tmp_desplazT CFGD%Ccliaux QcliauxT6 T789%:j %;f "T77C:<;  T=6THJ%C C 9999,999,999_PCZcccliecomprob %C> T6>TH> T? T@CBCC 57CDE6 C@z 9999,999,999_P6 CP)"HA  CCCliente C ! tiene una cuenta no configurada.IG FQFQBUJCCCNOTASCCCLIECLIAUXTVENTASPEDIDOTCCVENTPENDXFILTCLICASHCFGFILT_CLICOD_CLICOMPROBXFECESTICLIENTESCODCLICASHCUECOD_CUECUE_DEUSUBCLASETMENSAJENOMBRECONDCOBRPLANPLANVARCIDVARIABLEXPLAZOPLAZOZZXFECVALFEC_VENVALORESDIASCHQXAGENTE P_AGE_TIPOCCVENTAGENTEVENDEDORP_EMPCENTRO XVENCENTROXPEDIDOTOT_VENTOTALSUBTOTAL TRA_ENTREDESPLAZENTREGADESPL CCV_DESPL VEN_DESPL TMP_DESPLAZFEC_ENT XFEC_PLAZOXIMPORTEDEUDA FACTURADOMONEDACOEFIC ARR_CAMBIOSXFECHA_ESTIMADAFECEST XAJUSTE_DIASXDIA_PAGO_FIJO AGREGAR_VENCXEMPTIPOCASHTIPOSUMAMAX_TCCMAX_VENXFMANUALLOG_TXTFQimportacpend ~FG((codpro%d E)%   FG((cuentas E!+C+  %!H'%  ]T  % L Y T TCC$ T  T TCC cC6C@z 9999,999,999_I Saldo Gastos PP  EC Proveedor C! tiene una cuenta no configurada.FQBUIMPORTACPENDPROVEEDOCODPROCOD_PROCASHCUECOD_CUECUE_DEUSUBCLASECUENTAS XIMPCENTROCODIGOPREVGASTXMENSAJEXCOEFICCAMBIOXIMPORTE XAJUSTE_DIASXDIA_PAGO_FIJO AGREGAR_VENCXEMPTIPO FECINGESTCASHTIPOSUMANUMERODESCRLOG_TXTg4%;BC `BC6UXIMPORTEXMONXCAMBIOXMOTIVOCASHCFGCCC_ACTFN_ACTg4%;BC `BC6UXIMPORTEXMONXCAMBIOXMOTIVOCASHCFGCCP_ACTFN_ACT]4% CB C V BUXIMPORTEXMONXCAMBIO XCAMBIO_HOY4 TCW%Cidx04 OFQ\idx04idx04FG((idx04EC$ FBC idx04.indiceCCZUXMONEDAAREAP_COMMONIDX04J 4%0BC C BUXIMPORTEXMON XCAMBIO_HOY8o4     %CxclasebL T%CxanobL T%CxdetallebL T%CxlogbC T%G TTCC3 $FTCC3 $FTCC3 $F%%Cxfecha_cobranzabLT T- d%%Cxfecha_cobranzabD`4C'Error de parmetro: xfecha_cobranza !!!T T- %C xmoficablebL1C$Error de parmetro: xmodificable !!!T T-"%C xajuste_diasbN  T5TCC)CC)66F%%CC ! - C" ># >$ >% >&3>'C''C 66 >(>) >* >+ >, >- >. >/ >0 >1 >2 >3 >4 >5 >6 >7 >8 >9 >: >; >< >=>> >?@ >ABUBXEMPXIDXFECREAL XCANTIDADXCODIGOXCOMPROBXCAUSAXCUOTAXFECESTIXNOMBREXNUMEROXPROCLIXPOSTXORIGENXCENTROXFECVALXAGENTE XFECHAORIXORIGEN2XNUMXSUBNUMXCUENTAXCLASEXANOXDETALLEXFECHA_COBRANZA XMOFICABLEXLOGMENSAJE XAJUSTE_DIASXAJUSTE_DIAS_NO_PARAMETROCASHDATACASHCFGMINIMOREC_REUTILIZACIONIDCODIGOCOMPROBCAUSACUOTAFECREALFECESTIIMPORTENOMBRENUMEROPROCLIPOSTORIGENCENTROFECVALAGENTEEMPFECHAORIORIGEN2NUMSUBNUMCUENTACLASEANODETALLEFMANUALMODIF AJUSTEFECPAGOFIJOXDIA_PAGO_FIJOLOG  TCWFE%C4 X T- rT F BUXCOD_CLIXCOMPROBXCAUSAXAREAXRETCCCNOTAS CONFIRMAR  TF TCG((borradoG#)%C'd TCO:G set order to &xorder %  #UXRNXORDERCASHDATABORRADO %Ctcccomp /FQtcccomp%Ctcompras dFQtcompras%Cccprov F QccprovFG-(%Ccondpago FQcondpagoFG((ordenF G((pendG-(RTE(pend=" " or pend="S") and !(cod_pro="0 " and "ANULADA"$des_prov)%CT and C% *T and tcccomp.autorizada=1set filt to &xfiltpro GCOrdenes de Compra ~k F G((codpro% b E F-  %C4  )-  %C4 %MC0PEDIDOS: Imposible asignar un tipo al proveedor  !!!!% EC Proveedor C ! tiene una cuenta no configurada. ` T3otcccomptcomprasd d d d d d  !" Q#CCC$ %$6& &CC$ %$66Q%'  tmp_oc_1=otmp_oc_1C#Q#%Q%'%tmp_ocF* ~\ <++d T,F G((plan E-%./(.T,,=T+,*%*'0. /1#T+,*#.  j2( f4%CaCC2ZCpCC2Z T,,2T+,*%CaCC2Z1/T+,*#CpCC2Zd b4%CaCC2ZCpCC2Z ^CCEl plan de pagos CC-Z est mal definido !!!/(,X %3% 6T+/C/+C34 %C/+T T5:%6768 69 6: 6; /(I T<C/+/HE  C<)67 ! C<)68 ! C<)69 ! C<)6: " ! C<)6; E !|T5C67SN6C68SN6C69SN6C6:SN6C6;SN6T+/<   T=% T>C/+P%C C 9999,999,999_PCZCZccprovcomprob %C? T>?CACB C/+C/+cCCD6 C@z 9999,999,999_N/> PP E&@FG FQFQBUFTCCCOMPTCOMPRASCCPROVCONDPAGOORDENPENDXFILTPROCASHCFGFILT_PROOC_AUTSYS_MPROVEEDOCODPROCOD_PROCASHCUECOD_CUECUE_DEUSUBCLASETMENSAJENOMBRELOG_TXTXORDEN RECEPCION FACTURADOCOS_LIFODES_INSDESC2DESC3DESC4DESC5DESCXOCOEFICDEUDATOT_COMIMPORTEENTREGAFEC_ENTFEC_COMDESPLTMP_OC_1SUMTMP_OC ARR_CUOTASMAX_ARR_CUOTASPLANCUOTAZPLAZODIASCHQZZMONEDA ARR_CAMBIOSXDIA_PAGO_FIJOCONSDPLUNDPMARDPMIEDPJUEDPVIEXF2 XAJUSTE_DIASXFECHA_ESTIMADAFECEST AGREGAR_VENCXEMPTIPOCASHTIPOSUMACENTROCmT`causa#'P' .and. !eof('CLIENTES') .and. iif(p_emp='SCH',fecha>={^1998-01-01},.t.) .and. causa#'r'%C T.and. C select sum(ccclie.importe) from ccclie, clientes where ccclie.cod_cli=clientes.cod_cli and &xfiltcli into array xdeudatotal BUXFILTCLICASHCFGFILT_CLI XDEUDATOTAL Tx%Cccvent 7Qccvent TxCx%[occventC00CCCHZR-CCiZQCtmp1KoqueryCQQ tmpU XDIASCCVENT XCOMIENZOXFECHACOD_CLIFEC_VENMESANODTOACUTMP1MAYORQUERYTMP4%C 9FG((codpro%Z E% FG((cuentas E % T  % T TCC cC6 C@z 9999,999,999_I  PP  =CLa importacin CCZ no tiene importe !!! 5HC Proveedor C$ tiene una cuenta no configurada !!! eCLa importacin CCZ= no tiene proveedor ni ingresos. No se genera vencimiento !!!U XIMPORTACXCOD_PROXFECHAXIMPORTEPROVEEDOCODPROCOD_PROCASHCUECOD_CUECUE_DEUCUENTAS XIMPCENTROIMPORTACCODIGO XAJUSTE_DIASXDIA_PAGO_FIJO AGREGAR_VENCXEMPTIPOCASHTIPOSUMANOMBREDESCRLOG_TXT configurar ref_clie ref_provclientes proveedores2chequesB tesoreriaUJvld_expaY adicionalesZlog_txtcd pronosticosepedidos7f importaciones+v fn_act_cliz fn_act_prozfn_actV{ xcambio_hoy{ fn_act_me| agregar_venc}cpbt_confirmadorec_reutilizacionyordenes_de_compraYclientes_x_distribucionIacuerdosimportaciones_calcular'?quq!R3"areAsAAAA!AAAAAACBbasbar14sa!AAARArAARRAABAAAB"baaaAS}AqQQAAqB3AA1ArrB3qq1bbaAAAAAAAB2qq1baAAAAAAAB2!ArrvARaaQ2B1rAAAqAArqAAS12!AAAArAu1 RA#!qar1s"DCndaAAA1BAABAqVAABATAAqVBA1RaABqEA!Aq2BArq!AAAAAAYEBRRrBAR> a AB1ABBrAArADAAqAtrAB2cAqQ!AAArvARbaQ1A1rAAAqAA11!AAAAaqrAAArAsAbAAqAARAcaBqABAAAAAABBBAaAB" a AABBrAArAAAqAB2RArsRa!q!ArbqqA1s1AAt2!AAAA2 ArAB2srr1AP  srrrAvr bacaraqAAjRA"1ABsa!QRQBrQq!EBBrr1!QQBrQq1s1AAs!1 BBBBBqAAF2qqA2r@qrrADABAA2BARrQrAABA"2A#qBAABBBBABs!A!ABsrsrQrs rArAArAAB322a1AaabaaRAQaAQaA2B3qB2AAra!AaaAbDbDrba2rA{AAArrrb1AAArDrBaA1A11AA "&!AhAAAca!AAQAAQ Bba!AAQ Ax#!Arca!AA1QAA C1ABarArAB2` qsAqbAAAAArbqB BQABrAE21!aA21!aA2aA2qrAq21!A2AAAAAS1QA1AA1A"ASsR1AB2rA2qaQAAa1QA3AAAraArr"A!AbrAyAAAQ`1sr1rb2BA"A1AAAAdaaAAAAAAAABBrBRQAA AABBrAcrArAB3AiD2!A31"raAqA2A AAQA1]:5^aM^ B  k i% J%( R4(1* ZT*k. %  rT`G(9G~(clases$G+(listadosve_asistenciasve_asistencias %Ctmp_asistenciasFQ T T T T T T T TTCX T- T- T- T- T- T- T- T- T- T-TC T- C T-+a T +aW T!HS o Tave_asistencia_1(a C#%C $ k! Sve_asistencia_2(a%.T&C'H* & T! &  &* T%C $ O!% }! %Ctmp_asistenciasFQ.dbf.cdxBU( ACTIVEFORM DATASESSIONIDCLASESLISTADOSVE_ASISTENCIAS OPEN_FILESTMP_ASISTENCIASXTRAN XASISTENCIAXPEDIDOXFECHA1XFECHA2XFECHA3XFECHA4XFECHA5XTECNICOXNOCHE1XNOCHE2XNOCHE3XNOCHE4XNOCHE5 XCOMPLEJO1 XCOMPLEJO2 XCOMPLEJO3 XCOMPLEJO4 XCOMPLEJO5XTMPODEYFUNCNEWFILE_LOCAL_TMP XMODIFICACIONCREAR_TABLA_TEMPORALXRESXFORMXMAXFORMVE_ASISTENCIA_1 LEER_DATOSWIZARDVE_ASISTENCIA_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM T Tatrsacasist%TVe_asistencias.prg6T AsistenciasC - Anulacin6 Ttrsac Ta%0TC% T ,T HT trsac+%   ICSe ha registrado la asistencia CC @z 999,999,999,999_  T   T BUAAA XRESULTADOLOCK_GTRSACTRAN_PRGTRAN_TXT XMODIFICACIONBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORMENSAJE XASISTENCIATTS_IDH T Ta T- BUXERRORTRSACINASIST ASISTENCIA XASISTENCIAFG(( asistencia E%C4 T T T T  T  T  T T T T T T T T T T!">#$$BU%ASIST ASISTENCIA XASISTENCIAXFECHA1FECHA1XFECHA2FECHA2XFECHA3FECHA3XFECHA4FECHA4XFECHA5FECHA5XTECNICOTECNICOXNOCHE1NOCHE1XNOCHE2NOCHE2XNOCHE3NOCHE3XNOCHE4NOCHE4XNOCHE5NOCHE5 XCOMPLEJO1 COMPLEJO1 XCOMPLEJO2 COMPLEJO2 XCOMPLEJO3 COMPLEJO3 XCOMPLEJO4 COMPLEJO4 XCOMPLEJO5 COMPLEJO5TMP_ASISTENCIASNOTASwizard registrar transaccion leer_datos AqAA211111AA221A12AAAABBBABqAA11B21r12A12A1r1Aq43a22AABA3r"3t1AB1INz\d y z %sh8` 4 T 6G(9 @%C \XCHG 1TNo existe la carpeta : \XCHG T% C  BTsch_export_contab' monitor2_intercambio% &TTabla  bloqueada. T% C  Ta B"Tsch_export_contab_INT' monitor2_intercambio% `&TTabla  bloqueada. T% HC  Ta B: monitor2_intercambiosch_export_contaba> monitor2_intercambiosch_export_contab_INTa T T Ta G+(listadosG+( co_asientosG+( co_funcionesG+(dey_func ges#%C xcontab_errorbC T T C%Cproveedo Qproveedocodpro%Cclientes $Qclientescodcli%Ccostos \Qcostoscodigo%Ccuentas Qcuentascuenta%Cidx04 Qidx04idx04%Cejercon Qejercon%Cimportac -Qimportac!T!CC$i"(!+T#C"!C$C" $6F-C#$%C'&T(C XT)C XT*CXT+CX T, T- T. T/ T0T1NT2ST3NT4TT5T T6T7S T8 T9 T:T;NT< ɚ; T=T>N T?aT@CC#i$ TA# CaB T C-C(QD\tmp\sch_export_contab.dbf)(D \tmp\borrar_C"Z.dbf)QD\tmp\sch_export_contab.dbfS"(!5)D \tmp\borrar_C"Z.dbf)D \tmp\borrar_C"Z.dbf(( \xchg\sch_export_contabԻ(( \xchg\sch_export_contabE(C.& %CCE/bN" TFCE/:ALTER TABLE sch_export_contab ALTER COLUMN &xx N(20,2) REPLACE &xx WITH &xx*100 ALL ,( \xchg\sch_export_contab_intQD\tmp\borrar.idx3D$\tmp\sch_export_contab_acumulado.dbf1D"\tmp\sch_export_contab_mensual.dbf)D\tmp\sch_export_contab.dbf%A )TError al procesar:C   DT(Se han exportado los datos a la carpeta C f\XCHG(G 1T$Error al exportar sch_export_contab. T G v @ monitor2_intercambiosch_export_contab-CD monitor2_intercambiosch_export_contab_INT-C% C C  BUHXNO_INTERACTIVOXOKXESPERAXAUT ACTIVEFORM DATASESSIONIDXTABLAXMENSAJEXRETURNP_SERVERMENSAJECHEQUEAR_DISPONIBILIDADMONITOR2_INTERCAMBIO MARCAR_TABLASLISTADOS CO_ASIENTOS CO_FUNCIONESDEY_FUNCGES XCONTAB_ERROR XGLOBAL_ERRORABRIR_TABLAS_FIJASPROVEEDOCODPROCLIENTESCODCLICOSTOSCODIGOCUENTASCUENTAIDX04EJERCONIMPORTACXMAXZZZXFDESDEHASTACO_ABRIR_TABLASDIRXDCUEXHCUEXDCOSXHCOSXDSCEXHSCEXDORDXDIMPXHIMPXDTOTXDXCCXDXCPXDASIXDCAUXDMONXDMOVXDTIPXDUNIXHUNIXDXUFXDASTXDSUBXDSAL XSIN_CIERREXDFECXHFECCO_SQL_BALANCE DISTRIBUIRP_LOCALZXXOEXf4 T-FG((cuentaF3Q!\tmp\rpt_sumas_y_saldos_mensualesG-(CI\S>NFN >CFC >                 FI F,( \tmp\temporalFI F>CFI  \tmp\temporal.dbf>NFI %>T$I$I? ]T TUU?>obalanceCQC Q C Q C Q C Q C Q CQCQCQCQCQCQI   C=3 1 \tmp\temporalQ \tmp\temporalF7I   C=3 F>EF \tmp\temporalF>SF \tmp\temporalF>AF \tmp\temporalF>NF \tmp\temporalF>CF \tmp\temporalF>INGF \tmp\temporalF>WF \tmp\temporal%F>SF \tmp\temporalFQ \tmp\temporal.dbfLobalanceXcuentas CQC Q C Q C Q C Q C Q CQCQCQCQCQCQQCiQ1\tmp\sch_export_contabQFQBU XCENTRO_SCUENTASCUENTAP_LOCALBALANCEFORATRIBUTOCENTROMES1MES2MES3MES4MES5MES6MES7MES8MES9MES10MES11MES12XPERTEMPORALALLDESCRXFFECHAANOABREV distribuirpAAAqaAA!qaAA!Qa!2AAAAArA1AAAr1r!sBAABAB13AAAAA4qr1 rsaQA@srsrsrsrsrtrsrsrqrArA`BrAB1F% #2f!Wv8+a4 T =G(9 G T- T -Tsch_export_contrib' monitor2_intercambio% /&T Tabla  bloqueada. T % C  Ta B #Tsch_export_contrib_INT' monitor2_intercambio% BC 'Tsch_export_contrib_mensual' monitor2_intercambio% BC +Tsch_export_contrib_mensual_INT' monitor2_intercambio% BC )Tsch_export_contrib_acumulado' monitor2_intercambio% BC -T sch_export_contrib_acumulado_INT' monitor2_intercambio% BC ;monitor2_intercambiosch_export_contribaCmonitor2_intercambiosch_export_contrib_mensualaEmonitor2_intercambiosch_export_contrib_acumuladoa?monitor2_intercambiosch_export_contrib_INTaGmonitor2_intercambiosch_export_contrib_mensual_INTaImonitor2_intercambio sch_export_contrib_acumulado_INTa T  T Ta ?$%Cxcontrib_errorbC T T C1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxsch_rpt_contribucion2T\xchgTDEY_CONTTC$ TC$ C TC acumuladoT\xchgTDEY_CONT"TCCC$iCC$H$ TC$ C%S TCmensualxh1\tmp\sch_export_contribC CNN D)Q\tmp\sch_export_contrib!$& ( \tmp\borrarF3Q!\tmp\sch_export_contrib_acumulado" ~ F! EC FACTURACION"%C4 .> FACTURACION" C$>"#F!ECCOSTO"%C4 S (>COSTO" C$>"$F!!EC CONTRIBUCION"%C4 /> CONTRIBUCION" C$>""F"1Q\tmp\sch_export_contrib_mensual" ~ F! EC FACTURACION"%C4 .> FACTURACION" C$>"#F!ECCOSTO"%C4  (>COSTO" C$>"$F!!EC CONTRIBUCION"%C4 /> CONTRIBUCION" C$>""F"F"QF!Q8Q%\tmp\sch_export_contrib_acumulado.dbf%i1TMPACUM&Ni1TMPACUM'Ni1TMPACUM(N>&C)i>'C)H>(CC)H w7(&\xchg\sch_export_contrib_acumulado_int+(C.W <%CC+/bN!CC+/AOMES TRIMESTRE S T,C+/ REPLACE &xx WITH &xx/100 ALL 3("\xchg\sch_export_contrib_acumuladoԻ3("\xchg\sch_export_contrib_acumulado1Q#\tmp\sch_export_contrib_mensual.dbf5($\xchg\sch_export_contrib_mensual_int+(C.%CC+/bNT,C+/ REPLACE &xx WITH &xx/100 ALL 1( \xchg\sch_export_contrib_mensualԻ1( \xchg\sch_export_contrib_mensual)Q\tmp\sch_export_contrib.dbf-(\xchg\sch_export_contrib_int+(C.%CC+/bNT,C+/ REPLACE &xx WITH &xx/100 ALL )(\xchg\sch_export_contribԻ)(\xchg\sch_export_contribQ\tmp\borrar.idx4%\tmp\sch_export_contrib_acumulado.dbf2#\tmp\sch_export_contrib_mensual.dbf*\tmp\sch_export_contrib.dbf%)TError al procesar:C  ;DT(Se han exportado los datos a la carpeta Cf\XCHG(2T %Error al exportar sch_export_contrib.T -  ]Amonitor2_intercambiosch_export_contrib-CImonitor2_intercambiosch_export_contrib_mensual-CKmonitor2_intercambiosch_export_contrib_acumulado-CEmonitor2_intercambiosch_export_contrib_INT-CMmonitor2_intercambiosch_export_contrib_mensual_INT-COmonitor2_intercambio sch_export_contrib_acumulado_INT-C% C C  C. BU/XNO_INTERACTIVOXOKXESPERAXAUTOEX ACTIVEFORM DATASESSIONIDXTABLAXMENSAJEXRETURNCHEQUEAR_DISPONIBILIDADMONITOR2_INTERCAMBIOMENSAJEMENSAJE_MOSTRAR MARCAR_TABLASXCONTRIB_ERROR XGLOBAL_ERROR OPEN_FILESOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAOFORMXDFECXHFEC EXP_TABLA DISTRIBUIRP_LOCALCENTROTIPO SALDO_MENS SALDO_EJEREMISIONEXPORTCONTRIBNETO TOT_COSTOTMPACUMAOMES TRIMESTREFECHAALLZXXMESSAGE MENSAJE_CLEARt4F(Q\tmp\rpt_sch_contrib_1ocontribXbienes CfQQ   d Q dQdQdQdQdQdQdQdQdQdQdQdQdQdQCCXQ C$Q!"Q#$Q$%Q%1\tmp\sch_export_contrib_%&SCHZ> N2854 QFQBU(XTIPOP_LOCALCONTRIBCODIGONOMBRECOMPROBCAUSA TIPO_CPBTCOD_INSARTICULODESCRFECHA RECEPCIONCANTIDADCOS_LIFOPRECIOBRUTOBONIFCOMISOTROSNETOCOSTO TOT_COSTO PER_COSTO PERCONTRIBLINEALIN_DESGRUPO SUPERGRUPOTIPOBIENESCOD_CENCENTROEMISIONESPECGRUPO_PFAGENTENOMAGEP_EMPFOR{&TTabla  bloqueada. T% `C Ta BUXTABLAXRETURNXESPERAXMENSAJEXAUTMENSAJE{G+(listados ges C%Cclientes _Qclientescodcli%Ccuentas Qcuentascuenta%Cbienes Qbienescodins%Cven_oper QVEN_OPER%Cagente ;Qagentecodage%Cconver uQCONVERdespacho%Cidx04 "Q\idx04idx04%Cdespacho  Qdespachodespacho%Clineas (Qlineascodigo%Cgrupos `Qgruposcodigo%Csprgrupo Qsprgrupocodigo%Czonas Qzonascodigo%Ccostos Qcostoscodigo%Cprovinc BQ\provinc%Cimportac tQimportacULISTADOSGESABRIR_TABLAS_FIJASCLIENTESCODCLICUENTASCUENTABIENESCODINSVEN_OPERAGENTECODAGECONVERDESPACHOP_COMMONIDX04LINEASCODIGOGRUPOSSPRGRUPOZONASCOSTOSP_SYSTEMIMPORTACTCXTCXTCXTCXTC XTC X T TTCXT CXT CXT CXT T  T T T TT TNTCTNTN T T- Ta T-TC$ TC$UXDCLIXHCLIXDCENXHCENXDCUEXHCUEXDZONXHZONXDAGEXHAGEXDINSXHINSXDLINXHLINXDGRUXHGRUXDIMPXHIMPXDPRVXDTOTXDCOMXDPESXDPPFXDTIPXDPREXDCOSD XCONTROL_IVAXDFECXHFEC distribuirMensaje_Mostrarx Open_Files.Vieja_Asignacion_de_parametrosqAqaAA1qaArqaAqaAqaAqaA1QqAA!qAb!A2ABA1qQAArQAArQAArAqQAArQAArQAArArArAarAA11QAAAABA!2AA!QQBA2qbABrAB2aA3!AAAAAAAr!AAAAAqAAAAA2b1"##C#?(Nt(h*%t!c$<!Q_a G(9((G+(listadosG~(clases CT TC$TCX T  T  T T C C  T T+aA TH= z Tes_sch_gastos_1(FS%C v! =-T !empty(vendedor) and !empty(idu)% 6T% and between(liq_fecha,xdesde,xhasta)%C A(T and vendedor=xvendedor% }%T and empty(liq_asto)select sch_gastos.* , space(40) as nombre , space(30) as conc , space(30) as clase , space(30) as cpbt from sch_gastos where &filtro order by fecha into cursor tmp_gastos1 ~F^JF_J Cagentecodage)Csch_gastos_conccodigo)Csch_gastos_cpbtcodigo*Csch_gastos_clasecodigo Ccuentasabrev_> !"#$"%&""'"(C')I\SF& & **& ++& & %%& ##& ,, G(- #)es_sch_gastos_2(%C 9!%b C/%C tmp_gastos1FQ%C tmp_gastosFQ 0\tmp\ .dbf 0\tmp\ .cdxBU1 ACTIVEFORM DATASESSIONIDOEXLISTADOSCLASES OPEN_FILESXDESDEXHASTA XVENDEDORXTIPOXLINEAXIDU XTABLA_TMPNEWFILECREAR_TABLA_TEMPORALXFORMXRESXMAXFORMES_SCH_GASTOS_1 TMP_GASTOSWIZARDFILTRO TMP_GASTOS1OVENDEDORID_CONCID_CPBTID_CLASEABREV DVENDEDORAGENTENOMBRECONCSCH_GASTOS_CONCDESCRCPBTSCH_GASTOS_CPBTCLASESCH_GASTOS_CLASECUENTASTIENECOSATRIBUTOFECHAIMPORTETRANELIMINARES_SCH_GASTOS_2 TRANSACCIONP_LOCAL4Vh1\tmp\C CC(NCDN C C C( C CC(N DLC C(LCLN N Q\tmp\& C& CBUXTABLAP_LOCALIDUVENDEDOR DVENDEDORID_CONCCONCFECHAIMPORTEID_CPBTCPBT PROVEEDORID_CLASECLASENOTASLIQ_ASTO LIQ_FECHATILDEABREVDESCRELIMINARCENTROTIENECOSLINEATRAN TMP_GASTOS%C sch_gastos 2Q sch_gastos!%Csch_gastos_conc rQsch_gastos_concF(%| Trsch_gastos_concC]Desayuno347.7.1Trsch_gastos_concC]Almuerzo347.7.1Trsch_gastos_concC]Merienda347.7.1Prsch_gastos_concC]Cena347.7.1Qrsch_gastos_concC]Peaje347.7.1Qrsch_gastos_concC]Nafta347.7.1[rsch_gastos_concC]Estacionamiento347.7.1Vrsch_gastos_concC] Traslados347.7.1Qrsch_gastos_concC] Hotel347.7.1Trsch_gastos_concC]  Materiales343.1Vrsch_gastos_concC]  Servicios347.7.1Qrsch_gastos_concC] Regalos347.4Nrsch_gastos_concC] Ropa347.4Prsch_gastos_concC]Garage341.5Rrsch_gastos_concC]cVarios347.7.1"%Csch_gastos_clase Qsch_gastos_claseF(% Nrsch_gastos_claseC]JInforme ReintegroOrsch_gastos_claseC]KInforme KilmterosKrsch_gastos_claseC]RInforme Visita!%Csch_gastos_cpbt Qsch_gastos_cpbtF (%  Ersch_gastos_cpbtC]B Factura BErsch_gastos_cpbtC]C Factura CBrsch_gastos_cpbtC]TTicket%Cagente >Qagente%Ccuentas nQcuentas te_pagoBU SCH_GASTOSSCH_GASTOS_CONCREGSALLIDUCODIGODESCRABREVSCH_GASTOS_CLASESCH_GASTOS_CPBTAGENTECUENTAS OPEN_FILESTE_PAGO 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM T T T$trsac sch_gastos% T9trsac sch_gastosGastos Schillig%0TC%% T ,T Td UT Te9trsac sch_gastosGastos Schillig)%  /C"Se ha registrado correctamente !!!   Tf BU XRESULTADO XACC_MODIFAAALOCK_GTRSACBEG_TRAN REGISTRAREND_TRAN TTS_ERRORMENSAJEFG( ~LF G((idu E%C4 J"% C HT% D>     F G( #)% B BU TMP_GASTOS SCH_GASTOSIDULIQ_ASTO LIQ_FECHA XACC_MODIFELIMINARINVENDEDORID_CONCFECHAIMPORTEID_CPBT PROVEEDORID_CLASENOTASABREVCENTROTRAN TTS_ERROR 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_concN < TBUVARIABLEXFILTROSCH_GASTOS_CONCAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTChlp_cpbtN < TBUVARIABLEXFILTROSCH_GASTOS_CPBTAYUDACLASESSHOWCODIGO 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_claseN < TBUVARIABLEXFILTROSCH_GASTOS_CLASEAYUDACLASESSHOWCODIGOcrear_tabla_temporal open_files wizard transaccion registrarKbus_concbus_cpbt bus_claseT ConceptosTsch_gastos_concT DescripcinTdescrTdescrTcodigoTcodigoThlp TP T T codigoT codigoT CdigoU TITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEIDANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1T ComprobantesTsch_gastos_cpbtT DescripcinTdescrTdescrTcodigoTcodigoThlp TP T T codigoT codigoT CdigoU TITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEIDANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1TClasesTsch_gastos_claseT DescripcinTdescrTdescrTcodigoTcodigoThlp TP T T codigoT codigoT CdigoU TITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEIDANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1hlp_conchlphlp_cpbthlp hlp_clasehlp& A"31rAA22aA"A2QA qqQBqTAABB2BqAAqAAC3qaAB2aAAr1AAAaAa!A"Aq1AAq1QQ!A!A1A"B21r12A12A1r1Aq3B2222AAAAA3tarQA#" CBArQ2A2rARrqRBP1rARrqRBP1rARrqRB@1c!!111111!!1111113!!111111Ua](~  E$3[$(l(*+,./<*+ -../y1%*'*'YWa TTC TC TC TC TCInicioa %a@ atrcan.ges     ?%HTCC$iT C$CC$%T C H {TCC$i T C$T C H T TCXT T T T T T T  T-T T T  T-T  Ta TaH0   T- Ta Ta Ta Ta Ta Ta T- Ta T- T- T- T- T- T-2C%Solo asientos, costos y mantenimiento  X T- T- T- T- T- T- T- T- T- Ta T- T- T- T- T-C Solo genera  0 T- T- T- T- T- T- T- T- T- T- Ta T- T- Ta T- CSolo exporta y sube T T  T! T" T# T$ T% T& T' T( T) T* T+ T, T- T.-%:%es_sch_todos_los_asientos(.  T--%0%es_sch_todos_los_asientos(.  T.aTactual T T T! T" T# T$ T% T& T' T( T) T* T+ T, T-C Suspendo?a1%.y% o T2a%Cbienes QbienesF325S6 103030000 7F (4%4bCExisten CC4ZA artculos con lotes fuera de la cuenta MERCADERIA DE REVENTA !!!8 T2-'5S6 103030000 (4%4P cCExisten CC4ZB artculos sin lotes dentro de la cuenta MERCADERIA DE REVENTA !!!8 T2-%2 k B-,9sys_procesando Inicializando% ;a% G+(dey_func= sys_verificar%9 CGenera costos a hoy T? @a?C$  ( %T CZC00CC ZR% % %   TAC $  TAC $%_ /CC XCC Z -  Genera costos T?@a?A%I H9sys_procesandoRemitos CZ-C00CC ZR%6 ?CC XCC Z - Corre: sch_remitos_pendientesB % L9sys_procesando Recepciones CZ-C00CC ZR% CCC XCC Z - !Corre: sch_recepciones_pendientesC % K9sys_procesando Incentivos CZ-C00CC ZR% ?CC XCC Z - Corre: sch_asiento_incentivos)sch_asiento_incentivos.prg %&% "%nACC XCC Z - Abre el diario del 2013 (1) !!!%Cdiariog Qej-2013\diariog%Cconcepto Qej-2013\conceptoFGG((asientoFIG-(HGGK%^%H Z%ACC XCC Z - Abre el diario del 2013 (2) !!!%Cdiariog Qej-2013\diariog%Cconcepto Qej-2013\conceptoFGG((asientoFIG-(HGGK %mG9sys_procesandoCostos CZ-C00CC ZRHi P%=MCC XCC Z - +Corre: sch_asiento_complementario_costos_v2L ,     %MCC XCC Z - +Corre: sch_asiento_complementario_costos_v1M  2i%VJCC XCC Z - (Corre: sch_asiento_complementario_costosN %%O9sys_procesandoCostos x Lotes CZ-C00CC ZR%+:CC XCC Z - Corre: co_costo_de_venta T?(co_costo_de_venta.prg ?%C? Psys_procesando#C Periodo:  ?8!%%`9sys_procesando Costos de Ajustes de Inventario CZ-C00CC ZR%GCC XCC Z - %Corre: co_costo_ajustes_de_inventario1"co_costo_ajustes_de_inventario.prg Psys_procesandoTRC $TSC $ TSSCS%(CAntes de generar Suspendo?a1%C Genera el ER%C co_er_datosFTQ%RCC X{Corre: gs_sql_estado_de_resultados_sch.prg WITH .F., .F., xdesde, xhasta, xdesde, .F., .F., .F., .F., .F.,,xversion_er, .F.^#gs_sql_estado_de_resultados_sch.prg--RSR------)CAntes de exportar Suspendo?a1%"CExporta el ER en XLS%CC XCorre: gs_sql_estado_de_resultados_sch.prg WITH .F., .T., xdesde, xhasta, xdesde, .T., .F., .F., x13, x11, x12,xversion_er, x10^#gs_sql_estado_de_resultados_sch.prg-aRSRa--%_ CGenera el cashfreeVS-a #CNo genera el cashfree% uCVa a subir al FTPC Genera el XML%CW CEnva el resumen.qXsch_exportaciones_one_clickZ\er\C!er - actual - informe mensual.xmlalog_erCEnva el detalle.{Xsch_exportaciones_one_clickZ\er\C+er - actual - informe mensual - detalle.xmlalog_er qHC:Hubo un error al generar los XMLs, no se enva nada al FTP [listados Psys_procesandoC Fin del ERBU]XTIPO XSUBE_AL_FTPXFAST XULTRALOGX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBLOG_ERATRCANGESXFECHAZXIDXMAXXMINXEJX0X1X2X3X4X5X6X7X8X9X10X11X12X13X14 XVERSION_ERXXX0XXX1XXX2XXX3XXX4XXX5XXX6XXX7XXX8XXX9XXX10XXX11XXX12XXX13XXX14XRESES_SCH_TODOS_LOS_ASIENTOSP_DEVSYS_MOSTRAR_SCREENXOKBIENESAAALOTESCOD_CUELINEAMENSAJE SP_MENSAJESYS_PROCESANDOIN_MANTENIMIENTODEY_FUNCINI_VENTAS_FCDERE SYS_VERIFICARXMSG CS_GENERAR XFECHACOSSCH_REMITOS_PENDIENTESSCH_RECEPCIONES_PENDIENTESSCH_ASIENTO_INCENTIVOSPRGEJCONCEPTOASIENTODIARIOGFORTIPO2$SCH_ASIENTO_COMPLEMENTARIO_COSTOS_V2$SCH_ASIENTO_COMPLEMENTARIO_COSTOS_V1!SCH_ASIENTO_COMPLEMENTARIO_COSTOSCO_COSTO_DE_VENTASP_OCULTAR_DEFINITIVAMENTECO_COSTO_AJUSTES_DE_INVENTARIOXDESDEXHASTA CO_ER_DATOSGS_SQL_ESTADO_DE_RESULTADOS_SCHGS_CASHFREE_SCH GENERAR_XMLENVIARSCH_EXPORTACIONES_ONE_CLICKP_DIR_EXPORT_GLOBAL ESTADO_RELLISTADOSY G+(listadosT\er\CCC Xxdir:  T- T T T  T - T -9CC X%Antes de procesar el resumen a cursor.T !er - actual - informe mensual.xlsT  TMPSalidaECCZT\ %C0#CC XPre ImportacinGsys_importar_baseJ a  a C  T-%C ,CC XNo existe el alias:   =CC X%Antes de convertir el resumen a xml:  -listados C .xls$CC XOk la conversin(2CC XError al crear el xml:  T a I1CC XNo se encontr: \  T a B UXDIRXARCHIVO_IMPORTARLISTADOSP_DIR_EXPORT_GLOBAL XVERSION_ERLOG_ERXAUTOXTIPOXSUBTIPOXVERSIONXCODIGOXERROR_CONVERSION XARCHIVO_XLS XALIAS_SALIDASYS_IMPORTAR_BASEOIMPXLS_INICIAR_IMPORTACIONCOMMAND1CLICKFN_XMLOEXMESSAGE3TCC >UOIMPXVALIDO TMPIMPDBFIDVALIDO G  G(\log\log_er.txtG %G;***********************************************************CC GG(BUXTXTXINICIOP_SYSTEM8T+d:\sistema\carpetas_locales\chile\er\actual T T.T!er - actual - informe mensual.xlsT TMPSalidaECCZT\%Cxalias_salida Suspendo?a#CC XPre ImportacinGsys_importar_baseJ a  a C  T -%C ,CC XNo existe el alias: BUXDIRXTIPOXSUBTIPO XARCHIVO_XLS XALIAS_SALIDAXARCHIVO_IMPORTARSYS_MOSTRAR_SCREENLOG_ERSYS_IMPORTAR_BASEXVERSIONXCODIGOOIMPXLS_INICIAR_IMPORTACIONCOMMAND1CLICK generar_xmlimp_validar_filay#log_er#prueba_importacion$14428B12B"!!!!!!!!!!1"11A2QQA2Bsc!Aq!1!Ar11AqABqA"A2ARB2QA3AC2AA21AA2AA2AAArrAA1AAAqqAAsA1A1A1AAB2A"2AABA2qAAABS1qAA2AB#2! AB11AABB1ABC2"a4q!AA!AA3qqR3baqAaaB4aR2q!AB1T.68zS88m8*:uI:<%@7:|7FWat% Ta $CInicio modo produccina*C Xhfec: CC *.C Debug: CSINO6.C Xpor_mes: CSINO6 T-%8 a C"Tc:\sistema\system_schT \data\1 T  T CSQT BORRAR1 T a Ta,$c:\sistema\system_sch\DATA\1\ges.DBC TTSCH(Td:\sistema\carpetas_locales$CInicio modo desarrolloa `CPas por el ELSETCC$ % Tactual"C P_local: C  \remitos*.*\inventario*.*TCCi$CFecha: C*%Cidx04 SQidx04FG((idx04 EH 8C+Actualizacin del tipo de cambio: Argentinaaa >4C'Actualizacin del tipo de cambio: Chileaa 6C)Actualizacin del tipo de cambio: Uruguayaa 6C)Actualizacin del tipo de cambio: Boliviaaa N2C%Actualizacin del tipo de cambio: USAaa 7C*Actualizacin del tipo de cambio: Paraguayaa 3C&Actualizacin del tipo de cambio: Peraa a7C*Actualizacin del tipo de cambio: Colombiaaa  5C(Actualizacin del tipo de cambio: Mxico aa%Cidx04 Qidx04FG((idx04 EDCCambio actualizado a HOY (CC$*): CC!ZG+(listados%C# aC*No se pudo crear la carpeta de destino !!!C$C \er\C6%&'(T&C]T'CH T)CC*,*+%Cidx04 \Qidx04(C Carpeta: \er\C T-% CMayor en pesos%CmyQ. \tmp\rptmayor.dbf  +/ co_sql_mayor&aa C 1F T2- Q \tmp\rptmayor. T2a(3 %2 GCNo se pudo generar el mayor de C* a C* !!!  & 44R(\er\C\CC C - 6cf - Mayor en PesosT(\er\C\CC C - 6cf - Mayor en PesosԻ%Cmy Q.%(' #T(CC)%*6*5&CBienes de cambio - C(*[7in_sql_movimientos.PRG(\er\C\CC C - 6 C 1=T-\er\C\CC C - 6%(' #T(CC)%*6*5*CRemitos sin facturar - C(*\7ve_sql_remitos_emitidos(\er\C\CC C - 6 C 1 Q \tmp\rptmayor. ? VQ\er\C\CC C - 6cf - Mayor en Pesos.F<;; %('^#T(CC)%*6*5XQ\er\C\C! - cf - inventario valorizado al CC(*/-K(>?<='T;%C> T'T;%C? T<@ @ %('X#T(CC)%*6*5VQ\er\C\C - cf - remitos pendientes al CC(*/-0K(>ACBC DBC 6 T@%C>(E#CTotalizado y acumuladoF. %a%,CTotalizado y acumulado - SelectomyFGHC XQIC XQJCPXQKCCLCM=Saldo Anterior 6NOQPCCC4H6NOQQCCC4H6NOQRCCC4H6NOQSCCC4H6NOQTCCC4H6NOQUCCC4H6NOQVCCC4H6NOQWCCC4H6NOQXCCC4H 6NOQYCCC4H 6NOQZCCC4H 6NOQ[CCC4H 6NOQ\CXQ]FGHtabla%'( T_iCC%ZREPLACE &xi WITH 0 ALL 0C#Totalizado y acumulado - Dolarizado%('T_iCC%Z%%\REPLACE &xi WITH dolarizo(EVALUATE(xi), oDeyFunc.dt_mes_ultimo_dia(xfecha_apertura)) ALL qREPLACE &xi WITH dolarizo(EVALUATE(xi), MIN(oDeyFunc.dt_mes_ultimo_dia(DATE(YEAR(xhfec), z, 1)), xhfec) ) ALL .CCF=12 /,CTotalizado y acumulado - Create\h1 \tmp\cashfreeINJNKC(PNQNRNSNTNUNVNWNXNYNZN[N\N Q \tmp\cashfreeaCProcesokCDISPONIBILIDADESEleft(abrev, 2)="11" and left(abrev,4)#"1107" and left(abrev,4)#"1109"bNC CAJA CHEQUES,left(abrev,4)="1107" or left(abrev,4)="1109"b9CCUENTAS A COBRARleft(abrev,3)="121"bFa >I >J>KREMITOS A FACTURARNCOTROS CREDITOS*left(abrev,2)="12" and left(abrev,3)#"121"bPCOTROS CREDITOS,left(abrev, 2)="24" and left(abrev, 3)#"243"bFa >I >J>KBIENES DE CAMBIOFa >I >J+>KBIENES DE CAMBIO INMOVILIZADOS5C BIENES DE USOleft(abrev,2)="14"bMC BIENES DE USO*left(abrev,2)="25" and left(abrev,3)#"251"b3C INVERSIONESleft(abrev,2)="15"b:C BIENES INTANGIBLESleft(abrev,2)="16"b-C OTROSleft(abrev,2)="17"b9CCUENTAS A PAGARleft(abrev, 2)="21"abQCDEUDAS SOCIALES+left(abrev, 2)="22" or left(abrev,3)="251"ab9CDEUDAS FISCALESleft(abrev, 2)="23"ab>CPRESTAMOS BANCARIOSleft(abrev, 3)="243"abCOTROS.F.ab9CPATRIMONIO NETOleft(abrev, 2)="26"ab)CACTIVO CORRIENTE.F.b)CPASIVO CORRIENTE.F.b+CCAPITAL DE TRABAJO.F.b5CVARIACION CAPITAL DE TRABAJO.F.b/CVARIACION DEL EFECTIVO.F.bF^l(\er\C\CC C - 6+cf - Saldos Mensuales Acumulados en DlaresԻFa%('+TciCC%Z-IJ :REPLACE &xact WITH arr_bienes(z+1,1)-arr_bienes(z+1,2) -IJ (REPLACE &xact WITH arr_bienes(z+1,2) -IJ 'REPLACE &xact WITH arr_remitos(z+1) PfPQfQRfRSfSTfTUfUVfVWfWXfXYfYZfZ[f[\f\%( $"Td%CiCC%ZocsCPQPCQQQCRQRCSQSCTQTCUQUCVQVCWQWCXQXCYQYCZQZC[Q[C\Q\IJ qFa-IJ >PfPQfQRfRSfSTfTUfUVfVWfWXfXYfYZfZ[f[\f\%( !+Td%C%dCiCC%ZFa-IJ >PCdQCdRCdSCdTCdUCdVCdWCdXC dYC dZC d[C d\C dFa%('#TciCC%ZTgi0%%#-IJ ThCcCg-IJ REPLACE &xact WITH xvart -IJ ThCcCg-IJ REPLACE &xact WITH xvart FaCGenerado C 1_ilistadoscsCC C - 6 cf - Cashfree\er\C C 1Cj% C%%G+(sch_exportaciones_one_click%Cq#QfF@QC-cf - inventario valorizado al C(*/-f C 1Eilistadosqinventario_actual\er\C%Cq$QfDC\er\Cinventario_actual.xmla log_cashfreealIC\er\Cactual - cf - cashfree.xmla log_cashfreealC ExportadoCFinBUmXHFECXDEBUGXPOR_MESXREUSAXOKLOG LOG_CASHFREE DEY_FUNC2SETSP_SYSTEMP_SERVERP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDCP_DOSP_EMPP_DIR_EXPORT_GLOBAL XVERSION_ERP_LOCALXDFECIDX04P_LOCALIZACIONSYS_MONEDAS_BNASYS_MONEDAS_CHILESYS_MONEDAS_URUGUAYSYS_MONEDAS_BOLIVIASYS_MONEDAS_USASYS_MONEDAS_PARAGUAYSYS_MONEDAS_PERUSYS_MONEDAS_COLOMBIASYS_MONEDAS_MEXICOINDICE1LISTADOSXCHG_CREAR_CARPETA PUB_INDEXZXTABLAXMESXFECHAXFECHA_APERTURAODEYFUNCDT_MES_PRIMER_DIADT_AO_PRIMER_DIA XLAST_INVMY EXPORTAR_FULL CO_SQL_MAYORESPERAR XOK_EXISTEOEX1FECHADT_MES_ULTIMO_DIADT_SUMAEXPORTAR_CASHFREEIN_SQL_MOVIMIENTOSPRGVE_SQL_REMITOS_EMITIDOS ARR_BIENESTOTAL VAL_INMOVAAABBB ARR_REMITOSIMPORTETOT_VENDES_COMDEUDADOLARIZOABREVCOD_CUEDCUENTAGRUPOIDDESCRTIPO2 COMENTARIODEBITOCREDITOI0I1I2I3I4I5I6I7I8I9I10I11I12FILTROTABLAXIINCSPROCESARXACTARRSUMQXANTXVARTFN_XMLEXPORTARSCH_EXPORTACIONES_ONE_CLICKENVIARSELECT IIF(xsigno,-1,1)*SUM(i0) AS i0 , IIF(xsigno,-1,1)*SUM(i1) AS i1 , IIF(xsigno,-1,1)*SUM(i2) AS i2 , IIF(xsigno,-1,1)*SUM(i3) AS i3 , IIF(xsigno,-1,1)*SUM(i4) AS i4 , IIF(xsigno,-1,1)*SUM(i5) AS i5 , IIF(xsigno,-1,1)*SUM(i6) AS i6 , IIF(xsigno,-1,1)*SUM(i7) AS i7 , IIF(xsigno,-1,1)*SUM(i8) AS i8 , IIF(xsigno,-1,1)*SUM(i9) AS i9 , IIF(xsigno,-1,1)*SUM(i10) AS i10 , IIF(xsigno,-1,1)*SUM(i11) AS i11 , IIF(xsigno,-1,1)*SUM(i12) AS i12 FROM tabla WHERE &xfiltro INTO CURSOR q UPDATE tabla SET i0=IIF(xsigno,-1,1)*i0 , i1=IIF(xsigno,-1,1)*i1 , i2=IIF(xsigno,-1,1)*i2 , i3=IIF(xsigno,-1,1)*i3 , i4=IIF(xsigno,-1,1)*i4 , i5=IIF(xsigno,-1,1)*i5 , i6=IIF(xsigno,-1,1)*i6 , i7=IIF(xsigno,-1,1)*i7 , i8=IIF(xsigno,-1,1)*i8 , i9=IIF(xsigno,-1,1)*i9 , i10=IIF(xsigno,-1,1)*i10 , i11=IIF(xsigno,-1,1)*i11 , i12=IIF(xsigno,-1,1)*i12 , filtro=ALLTRIM(filtro)+IIF(EMPTY(filtro),"",", ")+IIF(xsigno,"-","+")+xfiltro , grupo=ALLTRIM(grupo)+IIF(EMPTY(grupo),"",", ")+ALLTRIM(STR(xgrupo)) , ID = ALLTRIM(ID)+IIF(EMPTY(ID),"",", ")+ALLTRIM(STR(xid)) , DESCR = ALLTRIM(DESCR)+IIF(EMPTY(DESCR),"",", ")+xdescr WHERE &xfiltro F- %C4>              trcs                 BUXGRUPOXIDXDESCRXFILTROXSIGNOCSGRUPOIDI0QI1I2I3I4I5I6I7I8I9I10I11I12DESCR( %Cidx04 3Qidx04%"%Cidx04idx04 ,CNo existe el cambio para C* B%'CEl cambio es 0 para C* B/BCC  6 TUXIMPORTEXFECHAIDX04FECHA LOG_CASHFREEINDICE1 TCWTC] ocsǼ1\tmp\QG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosN+TEstado de Flujo de EfectivoT  C CgrupoGrupo CidID #Cdescr Descripcin  ( T iCC Z% "T CCC*  T CCCCi $*C  TC <G(9 Fk\tmp\reporte.xls(\er\C\CC C - 6cf - Cashfree.xls FBUXHFECXAREAXTMPARCHCSP_LOCALLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGARZXIXTXTODEYFUNCDT_MES_ULTIMO_DIADT_AO_PRIMER_DIA EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDP_DIR_EXPORT_GLOBAL XVERSION_ER8TC+C 1U XSEGUNDOSXSECS G &G(\log\log_cashfree.txtG %G;***********************************************************CC GG(BUXTXTXINICIOP_SYSTEMprocesar)dolarizo0exportar62Esperar 6 log_cashfree]61rAAAQ#2ACA%2A"qsQAr111A11a11a11!11q11111q11Q1AsQArAp!TC3vQA2AADq"B2AB2cD2BbBr12rrqBr2aB6s`a*aBb2BBA0BrQsQrQS2QstbrBt  r !A@ r Ar sb3RRBCtUR$AQ"ABBbB3qq0(rA AB3rAb!AAaqA3quB$!q1b2!ARB AA2qr1A2baaqAaaB1)2GN7NPFGQX^jXFYp_YZ %vjvNa"G+(MarkDownParserUWWDOTNETBRIDGEMARKDOWNPARSERc % CO 0%Cb TTMarkdownParser%#TMarkdownParserExtendedTCN7 T% T -T  T  G TBC U LCMARKDOWNLNMODELLRELOADLLUTF8LLNOSANITIZEHTMLLLNOHTMLALLOWED LOMARKDOWNLCCLASS__MARKDOWNPARSERLENCODESCRIPTBLOCKS LSANITIZEHTMLLNOHTMLALLOWEDPARSEQWWDOTNETBRIDGETCV4T%CWB-"%C markdig.dll B-ULOBRIDGEGETWWDOTNETBRIDGETHISOBRIDGE LOADASSEMBLYy % C fT3TCMarkdig.MarkdownPipelineBuilderTC NC>Markdig.Extensions.EmphasisExtras.EmphasisExtraOptions.Default JTCMarkdig.MarkdownExtensionsUseEmphasisExtras BTCMarkdig.MarkdownExtensions UseListExtras HTCMarkdig.MarkdownExtensionsUseCustomContainers ?TCMarkdig.MarkdownExtensions UseFooters ?TCMarkdig.MarkdownExtensions UseFigures ATCMarkdig.MarkdownExtensions UseFootnotes ATCMarkdig.MarkdownExtensions UseCitations CTCMarkdig.MarkdownExtensions UsePipeTables BTCMarkdig.MarkdownExtensions UseGridTables TC OC?Markdig.Extensions.AutoIdentifiers.AutoIdentifierOptions.GitHub GCMarkdig.MarkdownExtensionsUseAutoIdentifiers ATCMarkdig.MarkdownExtensions UseAutoLinks GTCMarkdig.MarkdownExtensionsUseYamlFrontMatter GTCMarkdig.MarkdownExtensionsUseEmojiAndSmileya % @TCMarkdig.MarkdownExtensions DisableHtml %NCT CMarkdig.MarkdownExtensionsUsePragmaLines TC BULLFORCE LLPRAGMALINES LOBUILDERLOVALUELOBRIDGETHIS OPIPELINEOBRIDGECREATEINSTANCECREATECOMVALUESETENUMINVOKESTATICMETHODLNOHTMLALLOWEDLOBUILERBUILD % X'TC<%%>@@SCRIPTTC %TC ]C ]TC 8TCMarkdig.MarkdownToHtml % C ]% D!TC@@SCRIPT % oTC%TC C C C ` BU LCMARKDOWNLLUTF8LCHTMLLOSCRIPTTOKENS LOPIPELINE LNOLDCODEPAGETHISLENCODESCRIPTBLOCKSTOKENIZESTRING CREATEPARSEROBRIDGEINVOKESTATICMETHODDETOKENIZESTRING LSANITIZEHTML SANITIZEHTML %CH,Tscript|iframe|object|embed|form%Cf BLBC"Westwind.WebConnection.StringUtils SanitizeHtmlULCHTMLLCHTMLTAGBLACKLISTTHISOBRIDGEINVOKESTATICMETHOD) CTC CollectionNUTHIS OCODEBLOCKS CTCC%C oC BU LCMARKDOWNLLUTF8LCHTMLTHIS FIXCODEBLOCKSFIXICONS CLINKTARGET ADDLINKTARGET:0TC  BULCHTMLLCTEXTLCICONi%CC BT C CollectionN T+aY"TC`````` T%C!!TCC C %%$$TCC C TC%%$$C T C```C -aa TC ```TCCC C @H vfpTfoxpro c#Tcsharp vbscript Tvbscript vb3Tvbscript c++[Tc_cpp txtC Ttext R,TC ```MTC###language###CC C C C `  C T/TC @@@codeblock_C_@@@ BULCHTMLLCLANG LCEXTRACT LCORIGEXTRACTLCCODE LCREPLACEHTMLLNXTHISCCODEBLOCKSTARTHTML OCODEBLOCKS LCFIRSTLINEEXTRACT ENCODEHTMLCCODEBLOCKENDHTMLADDMarkdownoInit CreateParserRParse  SanitizeHtml Init Parse=  AddLinkTargetFixIconsx FixCodeBlocks]b T T Ta Ta T-    U OPIPELINEOBRIDGELENCODESCRIPTBLOCKS LSANITIZEHTMLLNOHTMLALLOWEDn T T T T    U OCODEBLOCKSCCODEBLOCKSTARTHTMLCCODEBLOCKENDHTML CLINKTARGETMarkDownParserCustom.MarkDownParserExtendedMarkDownParserq3A11AqAAQ:1AqA!qA31!1!qqq!A1AAA311qA!1AA1A!QAQ3AA<3qQQA3q3qq1!A1AA3qAA!AAa1Q1QQQa!AAA4;q1_6%$ 1D1rS\meh5?rmuO|lAz% #!{ZU b 4%CxmbC0 T TT 304010506G+(listados G(9(%C aC*No se pudo crear la carpeta de destino !!!C C \er\C6 %C+ T C$ [&T CCC=gCC\g$T C]T tmp_periodos+listados   F#6 T%C&Ico_costo_ajustes_de_inventario(Asiento de Incentivos H T Ta#T CCC=gCCRg$%TCC=gTCCRgTC$ETCC 6C 6$ T T T %gC %C/C"Se han registrado los asientos !!! BUXM XVERSION_ERXTIPO2XCUE_INCENTIVOSLISTADOS ACTIVEFORM DATASESSIONIDOEXXCHG_CREAR_CARPETAMENSAJE PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOXMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR 4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B TOtrsacsch_asiento_incentivos.prgAsiento de Incentivos T<lodiariogconcepto  !"  % h T TG+( co_asientos T$ %($T&C%%&+TCC ,6CC&ZFG((asiento E&%C4q TC&a'%C ! m[()Elimina asiento CC&Zsch_asiento_incentivos.prg {%C d T*A()sch_asiento_incentivos.prgC+ COT>Error en la eliminacin de asientos de incentivos anteriores: * T B%Cagente Qagente%Ccuentas QcuentasT.C]T/C]/0 co_sql_mayor.aQ2\tmp\.3Io sch_gastosQ5565758C56 tmp_scho tmp_sch_mayorQ;XlineasQ< ><Btmp_schQ?;C<=>Q=?6Q@?8?6 ?7 CJ q1>=>=roq1XlineasQ< D=<BXagenteQF D8KDGQHC<IC(XQJq1%CTL.t.  (TL!inlist(d.asiento,)Wselect d.*, nvl(l.masterline, d.linea) as masterline, t.liq_asto as es_gasto, space(8) as vendedor from tmp_sch_mayor d left outer join lineas l on d.linea=l.codigo left outer join tmp_sch t on d.asiento=t.liq_asto and d.fecha=t.liq_fecha where d.cod_cen="J" and &xfiltro having isnull(es_gasto) into cursor q2 readwrite >=>=Toq2XlineasQ< M=<BMC(XQHC<IC(XQJq2oq2q1Ǽq1 pTNO\er\CP\ER - CCP CP - 6CCCiZ CCCHZ - incentivos%CN (NԻ(Q KC>Archivos abiertos...no se registran los archivos de control!!!Roq1CDTDUQVD=DWDCD>DWD=DCD>D8DHquery-=%C4 #%CCqueryN M T TY%I A()sch_asiento_incentivos.prgC Suspendo?aZ T CC6+ CBU[XERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANXASIENTOS_ANTERIORESDIARIOGFECHAASIENTOCONCEPTOTIPO2XTIPO2 CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONAGENTECUENTASXTABLA1XTABLA2 EXPORTAR_1 CO_SQL_MAYORP_LOCAL TMP_SCH_MAYORDISTINCTSLIQ_ASTO LIQ_FECHAVENDEDOR SCH_GASTOSTMP_SCHDL MASTERLINELINEATES_GASTOLINEASCODIGOCOD_CENQ1FORANOMBRENOMVENDESCR DMASTERLINECOD_AGEXFILTROQ2XDESTINOP_DIR_EXPORT_GLOBAL XVERSION_EROEXMENSAJESUMDEBITOCREDITOIMPORTECOD_CUEQUERYREGISTRAR_ASIENTOSYS_MOSTRAR_SCREEN < G(BUODSP_SERVERj4Otrsacsch_asiento_incentivos.prgAsiento de Incentivos TBUAAAEND_TRANTRSACTTS_ID %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 J>Asiento de Incentivos    T  TF~T T T%TCT TCcTF>L N!C$"Asiento de Incentivos#$%&'())*TF >+L N!C$"Asiento de Incentivos#$%&'(),*- co_asientos%T T/ T0- T T-%_12C ZLAsiento de Incentivos.sch_asiento_incentivos.prg T3BU4XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XTIPO2LEGALXACCXPASEQUERYIMPORTEXDEBITOXCREDITODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOXCUE_INCENTIVOS MASTERLINEFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4T T T%^ T u TTF >    L NC$Asiento de Incentivos !"U#XIMPORTE XCOMENTARIOXCUENTAXLINEAXPASEXDEBITOXCREDITOXCOSTODIARIOGDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOprocesar&libero_sesion_y_datos5fin_transaccionlregistrar_asiento pase_costoA0bARAaArQA5GARQ2AABB2vQqAr3qA2At3As"RS2sA"AABAA"BC!A1A s&AzrG"AALG32rABB2buB2qB21AsQsQAsraQaAsQ!sQC2A2AB212ARrQ14d>(u`(()))448\%%1 p YCbO"74    5C'Ejecuta : es_sch_todos_los_asientos.prg DCC X -  Program: CCt2 Linea: C Z TG+(listados%C  EaC*No se pudo crear la carpeta de destino !!!CC \er\C 6T###,###,##0.00 T T,sys_procesando Inicializando%CxhoybL TC$ T T T% a %-nTs:T s:\data\1T  s:\data\1 G( T!a T"a T#T$CSQ G(9%&T'9%&  T'T(CsessionN T)DCC X -  Program: CCt2 Linea: C _Z C*%Cco_er Qco_er%C co_er_datos Q co_er_datosT-C]%C tmp_er_datosF.QF,(/\tmp\- C0% T1 T2#3 co_funciones12%15sys_procesandoC2BT67TC68F% DCC X -  Program: CCt2 Linea: C Z 9CH(CH%9CCCi$:%9 T;CCi $ T;CCi9$C;:% DCC X -  Program: CCt2 Linea: C Z 9CH(CH%9CCCi$<%9 T;CCi $ T;CCi9$C;<;sys_procesandoTomando datos del balance...DCC X -  Program: CCt2 Linea: C Z C=<sys_procesandoEliminando datos a reprocesar+o tmp_er_datos? tmp_eliminar ~3TA@?q co_er_datos?AQ6sys_procesandoProcesando los datos...F. ~ F,G((idfull?EC.CZC.?Z.DC.E ZC.F Z%C4 = Wr co_er_datosC?DEF.C.?.D.E.F f CVer !!! Suspendo?aG>H.HI.I%  SCC X -  Program: CCt2 Linea: C Z No calcula CJ5sys_procesandoB;sys_procesandoCreando tablas auxiliares...[CC X -  Program: CCt2 Linea: C Z Creando auxiliares TKC]F+(/\tmp\K!Q/\tmp\KLFL$i1tmp_erMN$i1tmp_erNN$i1tmp_erON$i1tmp_erPN$i1tmp_erQN$i1tmp_erRN$i1tmp_erSN$i1tmp_erTN$i1tmp_erUN$i1tmp_erVN$i1tmp_erWN$i1tmp_erXN$i1tmp_erYN$i1tmp_erZN$i1tmp_er[N$i1tmp_er\N$i1tmp_er]N$i1tmp_er^N$i1tmp_er_N$i1tmp_er`N$i1tmp_eraN$i1tmp_erbN$i1tmp_ercN$i1tmp_erdN$i1tmp_ereN$i1tmp_erfN$i1tmp_ergN$i1tmp_erhN$i1tmp_eriN$i1tmp_erjN$i1tmp_erkN$i1tmp_erlN$i1tmp_ermN$i1tmp_ernN$i1tmp_eroN$i1tmp_erpN$i1tmp_erqN$i1tmp_errN$i1tmp_ersN$i1tmp_ertN$i1tmp_eruN$i1tmp_ervN$i1tmp_erwN$i1tmp_erxN$i1tmp_eryN$i1tmp_erzN$i1tmp_er{N$i1tmp_er|N$i1tmp_er}N$i1tmp_er~N$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN& CC& CF ZCCZQCC X -  Program: CCt2 Linea: C Z Llenando T T1 T2#3 co_funciones12%15sys_procesandoC2 CJB-sys_procesandoSumarizando...TE.R.TCC67iC67H$YTCC68iCC68H 6CC68H  C68H6$TCHTCidCHTCidCHRCC X -  Program: CCt2 Linea: C Z Revisando F,~C?(TC?d 8CCidd 8%TC?dG TC?dG :%CC,F ZC,CZtmp_eridlin 8%CC,F ZC,CZco_eridlinJrtmp_erCF,C,F DESCONOCIDO &T,HCL6Ttmp_er.iCCZ(replace &xcol with &xcol + ximporte Ttmp_er.pCCZ6replace &xcol with &xcol + co_er_datos.porcentaje %,EC#Ttmp_er.iCCZ_1(replace &xcol with &xcol + ximporte #Ttmp_er.pCCZ_16replace &xcol with &xcol + co_er_datos.porcentaje #Ttmp_er.iCCZ_2(replace &xcol with &xcol + ximporte #Ttmp_er.pCCZ_26replace &xcol with &xcol + co_er_datos.porcentaje \CC X -  Program: CCt2 Linea: C Z Procesando frmulas %Clineas QlineasFLG((idlin5sys_procesandoProcesando frmulas...~CL>CXCDCC X -  Program: CCt2 Linea: C !Z >MgOiQkSmUoWqYs[u]w_ya{c}>eMOQSUWY[]_acgikmoqsuwy{}_CC X -  Program: CCt2 Linea: C 8Z Procesando porcentajes ~,CLDCC X -  Program: CCt2 Linea: C AZ C Suspendo?aG% !% DCC X -  Program: CCt2 Linea: C JZ C% !YCC X -  Program: CCt2 Linea: C QZ Exportando mayor F /i1tmp_mayor_periodoN  )i1tmp_mayor_periodoC( & CQFL%c!(c:\sistema\tmp_erԻ(c:\sistema\tmp_er !(/ \tmp\tmp_erԻ(/ \tmp\tmp_er C !5sys_procesandoDCC X -  Program: CCt2 Linea: C Z CC X - Fin CJBUXMANUAL XNO_CALCULAR XDESDE_FECHA XHASTA_FECHAXHOY XEXPORTAR XCONSOLIDADOXINCLUIR_STOCKXCONTROLXGEN_INV XGEN_INV_RES XVERSION_ER XEXPORT_ERLOG_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBLISTADOSXCHG_CREAR_CARPETAMENSAJE PUB_INDEXP_DIR_EXPORT_GLOBALXFORMATO_NUMEROXOLD_DESDE_FECHAXOLD_HASTA_FECHA SP_MENSAJESYS_PROCESANDO XGRUPO_VENTASXGRUPO_DESCUENTOS XGRUPO_COSTOS DEY_FUNC2P_SYSTEMP_SERVERP_COMMONP_DEV P_SUSPENDP_DOSCL_ATR ACTIVEFORM DATASESSIONIDOLDDATASESSIONIDODSXSERVERABRIR_TABLAS_FIJASCO_ER CO_ER_DATOS XTABLA_DATOS TMP_ER_DATOSP_LOCALUSAR_CO_ER_DATOS_TMPXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESSP_OCULTAR_DEFINITIVAMENTEEJERCONDESDEHASTAZZGENERAR_INVENTARIOXFGENERAR_INVENTARIO_RESUMIDO TOMAR_SALDOSDISTINCTPERIODO TMP_ELIMINARXPERIODOIDFULLIDCUENTAEMPLINEASYS_MOSTRAR_SCREENIMPORTE PORCENTAJEBYEBYE XTABLA_ERTMP_ERI1P1I2P2I3P3I4P4I5P5I6P6I7P7I8P8I9P9I10P10I11P11I12P12ITPTI1_1P1_1I2_1P2_1I3_1P3_1I4_1P4_1I5_1P5_1I6_1P6_1I7_1P7_1I8_1P8_1I9_1P9_1I10_1P10_1I11_1P11_1I12_1P12_1IT_1PT_1I1_2P1_2I2_2P2_2I3_2P3_2I4_2P4_2I5_2P5_2I6_2P6_2I7_2P7_2I8_2P8_2I9_2P9_2I10_2P10_2I11_2P11_2I12_2P12_2IT_2PT_2IDLINXFIRSTXTITULOXLASTXINICIOXRFIRSTXRLASTXOFFSETXIDESCRTIPOXIMPORTENEGARXCOLP_CODEMPLINEASNIVELPROCESAR_FORMULAFORMULAALLPROCESAR_FORMULA_PORCENTAJEFORMULAP INVENTARIOTMP_MAYOR_PERIODOER2DER2ABREVEXPORTAR_MAYORC SALIDA_XLS 4TCCiCH$MTCCiCCH 6CCH  CH6$ T+a T T# co_funciones%C !TCC iC H$YTCC iCC H 6CC H  C H6$TCDTCF"%Ctmp_mayor_periodoFQ TaWCC X -  Program: CCt2 Linea: C .Z Tomando saldos( 3TCC iC H$#T C %%!+T tmp_mayor_er_C_C% <%Cempresas /Q \empresasFG((codigo#)T.t.% Tcodigo=p_codemp Ta+C+ 8if &xfiltro_empresas0T TCOG(T \data\CCZ G(  C!2" co_sql_mayor_CCZ%/F%Q \xchg\_CCZ($\xchg\Q$\xchg\%Q!$\xchg\.bak. \xchg\_CCZ.dbf T- FQ$\xchg\%. \xchg\_CCZ.dbfQ. \xchg\_CCZ.dbf G(& T $ G( %Cempresas Q \empresasF #H C''%C \xchg\.dbf0 ]CC X -  Program: CCt2 Linea: C Z Llenando tabla local"Q \xchg\(%i1 tmp_mayor_er1)N >()*% i1 tmp_mayor_er1,\CC X -  Program: CCt2 Linea: C Z Pos_proceso_mayor()C-F(QF.( \xchg\( \xchg\/0123456789:;<=)>?@AB,CDEFԻ% ( \xchg\tmp_mayor_periodo/0123456789:;<=)>?@AB,CDEF T- e %Q \xchg\tmp_mayor_periodo \xchg\QQ \xchg\(o tmp_mayor_er1G/AQ@),C1Q1G/A),G/A), tmp_mayor_erF(QFH%K T.t. n T emp=p_codemp\CC X -  Program: CCt2 Linea: C Z Agregando registros$scan for &xfiltro_empresas %, TI, * TITJCH#TKCJ  J J6%H1 CTLCCiCJ 6CJ  J J6$TLCLidCLHFMG((idfull9ECIZCLZH/CH) ZCH@ Z%C4 Rr tmp_er_datosOPG)@ILH/H)H@>M1M1H1FHQ  "%Ctmp_mayor_periodo FQ+Q \xchg\tmp_mayor_periodoF )i1tmp_mayor_periodoQN)i1tmp_mayor_periodoRN >QC7HRC7i %- CSQ% !  TBUT XDESDE_FECHA XHASTA_FECHAXDXHXFIRSTXLASTXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESMENSAJEEJERCONDESDEHASTATMP_MAYOR_PERIODO XINICIAL2LOG_ERZZXD1XH1XTABLA XNO_CALCULARP_SYSTEMEMPRESASCODIGOXFILTRO_EMPRESAS XCONSOLIDADOXINICIALXEMPRESA XEMPRESA_REGODS DATASESSIONIDP_SERVERSETS!EXPORTAR_ESTADO_DE_RESULTADOS_SCH CO_SQL_MAYORXSERVER TMP_EXPORTOLDDATASESSIONIDUSAR_CO_ER_DATOS_TMP TMP_MAYOR_ER1EMPCODEMPALLERPOS_PROCESO_MAYORQUERYABREVDCUENTAIMPORTEMONEDACAMBIO CAMBIO_REFASIENTOPASEFECHACAUSACOMPROBPROCLINOMBRE COMENTARIOCONCEPTOCOD_CENCENDESCRLINEA MASTERLINE DMASTERLINEFRACCIONCODATRBULCUENTA TMP_MAYOR_ERXERZXIDXXPERIODO TMP_ER_DATOSIDFULLIDPERIODOMESANOEXPORTAR_MAYOR]4%CxdesdebL< T%CxhastabLwTC8Gz?%CxempresabL T%CxlineabL TF TCOH otmp_erCQC Q C Q C Q C Q C Q CQCQCQCQCQCQCC c6 tmp_formula  otmp_erCQCQ CQ CQ CQ CQ CQCQCQC QC!QC"QCC c6 tmp_formula  otmp_erC#QC$Q C%Q C&Q C'Q C(Q C)QC*QC+QC,QC-QC.QCC c6 tmp_formula 2otmp_erQQ Q Q Q Q QQQQQQ- tmp_formulaF%CO #"T/ tmp_formula.iCC0Z T1- T2C/ : T2 T1a%1M B2U3XDESDEXHASTAXEMPRESAXLINEATMP_ERXREGX_EMPSUMI1I2I3I4I5I6I7I8I9I10I11I12IDLINEA TMP_FORMULAI1_1I2_1I3_1I4_1I5_1I6_1I7_1I8_1I9_1I10_1I11_1I12_1I1_2I2_2I3_2I4_2I5_2I6_2I7_2I8_2I9_2I10_2I11_2I12_2XCAMPOXIDXXERROR_FXVAL4%C (  T( qTC(CbCC X -  Program: CCt2 Linea: C Z Procesando frmula CH PTiCCZ!replace &xcampo with xejecfor  TiCCZ_1!replace &xcampo with xejecfor  TiCCZ_2!replace &xcampo with xejecfor BU XFORMULAXIDXXEJECFORX_EMPOEX_FORMENSAJEMESSAGELOG_ERXCAMPOs4%C h( d T% (  TC(CeCC X -  Program: CCt2 Linea: C Z Procesando porcentaje CH fTpCCZ!replace &xcampo with xejecfor  TpCCZ_1!replace &xcampo with xejecfor  TpCCZ_2!replace &xcampo with xejecfor  ` 1TC(OC > BU XFORMULAXIDXXEJECFORX_EMPOEX_FORMENSAJEMESSAGELOG_ERXCAMPOPT 4%CxbasebL3 TF TCOcotmp_erCQCQCQCQC Q C Q C Q C Q C Q CQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQCQC Q C!Q!C"Q"C#Q#C$Q$C%Q%C&Q&C'Q'C(Q(C)Q)C* ZC+ZC ZCZ6C* ZC+ZC ZC{Gz?Z tmp_formulaF%CO #%- iHe .mcT/iif(tmp_formula.iCC-Z#0, 100*tmp_er.iCC-Z/tmp_formula.iCC-Z,0) .iT/iif(tmp_formula.iCC-Z_1#0, 100*tmp_er.iCC-Z_1/tmp_formula.iCC-Z_1,0) .eiT/iif(tmp_formula.iCC-Z_2#0, 100*tmp_er.iCC-Z_2/tmp_formula.iCC-Z_2,0) BT/5iif(tmp_formula.it#0, 100*tmp_er.it/tmp_formula.it,0) T0- T1C/ c T1 T0adCC X -  Program: CCt2 Linea: C aZ Evaluando porcentaje C32%0C Suspendo?a4 B1U5XBASEXLINEATMP_ERXREGSUMI1I2I3I4I5I6I7I8I9I10I11I12I1_1I2_1I3_1I4_1I5_1I6_1I7_1I8_1I9_1I10_1I11_1I12_1I1_2I2_2I3_2I4_2I5_2I6_2I7_2I8_2I9_2I10_2I11_2I12_2ITLINEAID TMP_FORMULAXIDXX_EMPXFORXERROR_FXVALLOG_ERXFORMULASYS_MOSTRAR_SCREEN(UCC X -  Program: CCt2 Linea: C Z Salida_XLS(),sys_procesando Generando XLSG+(listadosF%QEXPORTACIONES_PARAMETROSc:\sistema\2000\imp_exp.vcxQEXPORTACIONES_PARAMETROSc:\sistema\2000\imp_exp.vcx QEXPORTACIONES_PARAMETROSc:\sistema\2000\imp_exp.vcx QEXPORTACIONES_PARAMETROSc:\sistema\2000\imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATOc:\sistema\2000\imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATOc:\sistema\2000\imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATOc:\sistema\2000\imp_exp.vcxJQ EXPORTACIONES_PARAMETROS_FORMATOc:\sistema\2000\imp_exp.vcxAQEXPORTACIONES_XLS_CELDAc:\sistema\2000\imp_exp.vcx aQEXPORTACIONES_PARAMETROS imp_exp.vcxQEXPORTACIONES_PARAMETROS imp_exp.vcxa QEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx1QEXPORTACIONES_XLS_CELDA imp_exp.vcx1TCExportaciones_xls_CeldaIMP_EXP'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPTTaTC^T T Reporte Final:T C Exportaciones_Parametros_FormatoIMP_EXPT aT C^T  T C T aT C^T  T TC T-TC^T C T TCTER - CC  C  - 6informe mensualT!T"DCC X -  Program: CCt2 Linea: C RZ% C#QEXPORTACIONES_XLS_RANGOc:\sistema\2000\imp_exp.vcxET#Cexportaciones_xls_rangoc:\sistema\2000\imp_exp.vcxC$QEXPORTACIONES_XLS_RANGOc:\sistema\2000\imp_exp.vcxET$Cexportaciones_xls_rangoc:\sistema\2000\imp_exp.vcxC%QEXPORTACIONES_XLS_RANGOc:\sistema\2000\imp_exp.vcxET%Cexportaciones_xls_rangoc:\sistema\2000\imp_exp.vcx  1#QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T#Cexportaciones_xls_rango imp_exp.vcx1$QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T$Cexportaciones_xls_rango imp_exp.vcx1%QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T%Cexportaciones_xls_rango imp_exp.vcxT#&Rango principalC( #'C #'T$)T$*T$&TitulosCID$'CLINEA$'!CCONCEPTO$'&C SALDO INICIAL$'+( T,+-%, B T,, (CCCC,$.f$'C%$'CTOTAL$'C%$' CCUENTAS$'C$#/T%0aC %' %-FLsys_procesando-Generando XLS - Activo-Pasivo-Patrimonio Neto T1 2 J(2F3 T4 ~ T5 )T6CC37TOTAL  6+( T8Ctmp_ap.iCC+ZT9Ctmp_ap.pCC+Z%+\%C37TOTAL#T2+C+28T83:T93;%C37TOTAL#T2+C+28 T4<%=BT11C+2DCC X -  Program: CCt2 Linea: C Z %-9sys_procesandoGenerando XLS - Inventario T5 C5%'Ca5%'FCa/VARIACIONES DE BIENES DE CAMBIO (EXTRACONTABLE)5%' T> T? T@ TA TB TC TD TE TF TG TH TI TJ TKFL ~ T6 C6%'Ca6%'CaCL7V6%'+( 2#T8C tmp_bienes.iCC+ZCa86%'%+Ca6%'2TMxCC+Z=xCC+Z+xdato&xx T8L:Ca86%'Ca6%'TKK8 T6 C6%'Ca6%'CaTOTALES6%'+( \T8CxCC+ZCa86%'%+XCa6%' T8KCa86%'Ca6%'C6%'C6%'F>sys_procesandoGenerando XLS - Datos Asignados N DCC X -  Program: CCt2 Linea: C `Z~O cCOC< 9C<'C< C<  6666%'aCaPC< 9C<'C< C<  6666%'cCaC7VC< 9C<'C< C<  6666%'^CaC< 9C<'C< C<  6666%'+( *T8Ctmp_er.iCC+ZT9Ctmp_er.pCC+Z_Ca8C< 9C<'C< C<  6666%'_Ca9C< 9C<'C< C<  6666%'TN+8T8:T9;_Ca8C< 9C<'C< C<  6666%'_Ca9C< 9C<'C< C<  6666%'sCaCOPRSQC< 9C<'C< C<  6666%'TN+8 %-!DCC X -  Program: CCt2 Linea: C Z %-&C %'Ca %'Ca %'C %'Ca %'CaCONTROL %'Ca %'+( "(CaC+2C+N %'%++ Ca6%'C %'Ca %'Ca %'@sys_procesando!Generando XLS - Datos Sin AsignarF(T\tmp\U2F!QT\tmp\U2Vi1tmp_er2WC #& CO ZWCP ZODCC X -  Program: CCt2 Linea: C Z%-  CXDCC X -  Program: CCt2 Linea: C ZFV& 77% = C %'C %'C %'C %'2CSIN ASIGNAR O MAL ASIGNADAS %'C %' Y  J(Y ~.!C_VW %'CaVP %'CaCV7V %'Ca %'+(  T8C tmp_er2.iCC+Z T9C tmp_er2.pCC+Z%C<Ca8 %'Ca9 %'TY+C+Y8 %-*!C %'C %'Ca %'(CaTOTAL NO ASIGNADO %'Ca %' TZ+( )CaC+Y %'Ca %'TZZC+YCaZ %' %- C %'C %'Ca %'CaCONTROL %'Ca %' TZ+( i 1CaC+YC+2C+N %'Ca %'+TZZC+YC+2C+NCaZ %' %-w"IoaprW7CWQ[W7[ apr_errores% s"C %'C %'C %'C %'FC/IMPUTACIONES DE CUENTAS PATRIMONIALES (ERRORES) %'C %'C%'C%'CaCUENTA%'F] ~o"C %'C %'+CaC\W  \7 %'%C apr_errores"F]Q%Capr"F\QFVQ,sys_procesando Exportando...C Exportando^C%#/C#_/C`aZCC X -  Program: CCt2 Linea: C Z Antes de exportar CbZCC X -  Program: CCt2 Linea: C Z Antes de exportarlCC X -  Copia de T\tmp\.xls a c\er\C \.xlsTd*Tec\er\C \C%Cd0.% $d(e(f*%8CC X - Problemas con el destino: e h%0CC X - No existe origen: dG+(listados%Cq%QgF-otmp_erOP7QhiQjkQlmQnoQpqQrsQtuQvwQxyQz{Q|}Q~QQQQQQQQQQQQQ:Q;QqXCC X -  Program: CCt2 Linea: C Z Antes de fn_xml(CqCc\er\C .| ShellExecute SHELL32.dll /Tc\er\C \.xlsTCCxlsTC%Capr(F\Qsys_procesandolistados%J(1<DCC X -  Program: CCt2 Linea: C ZBULOG_ER SP_MENSAJESYS_PROCESANDOLISTADOSTMP_ERXMANUALXPAR1CXPAR2XPAR3XPAR4XFOR1XFOR2XFOR3XFORHEADXCELLIMP_EXPVCXXEXPXFOR NUM_FORMATXFORMATO_NUMERO FONT_BOLD FONT_COLOR FONT_SIZEXREPORTE_COMPLETOFO_COPY FONT_ITALIC FO_INTERIORFO_NUEVOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDA XVERSION_EREX_ENTRADA_TIPO EX_XLS_ABRIRXRANGOXRANGO2XRANGO3 CEL_NOMBRECEL_ADDXTITULOOFF_FILABOR_TIPONITXMESXINICIOMES CEL_RANGO_ADDUSO_PADRE_FILA XACC_CONTROLARR_BALTMP_APXOLDTIPOXFORENCAXFORBASEDESCRXDATOXPORCITPTTIPOXCONTROLX0X1X2X3X4X5X6X7X8X9X10X11X12XT TMP_BIENESXXARR_RESIDLINEA ER_CUENTASXRFIRSTXRLASTP_LOCAL XTABLA_ERTMP_ER2CUENTAPROCESO_NO_ASIGNADOSARR_NOAXACCCNTAPR APR_ERRORESSYS_M CEL_RANGOPARAMETROS_COLLADDEXPORTAR_XLS_COLLP_DIR_EXPORT_GLOBAL XFILE_ORI XFILE_DESOEXQCONCEPTOI1ENEP1ENE_PI2FEBP2FEB_PI3MARP3MAR_PI4ABRP4ABR_PI5MAYP5MAY_PI6JUNP6JUN_PI7JULP7JUL_PI8AGOP8AGO_PI9SEPP9SEP_PI10OCTP10OCT_PI11NOVP11NOV_PI12DICP12DIC_PTOTTOT_PFN_XML SHELLEXECUTESHELL32DLLXPLAAXPLATXPLANILLA_FINALSP_OCULTAR_DEFINITIVAMENTE ESTADO_REL|TCCiCH$YTCCiCCH 6CCH  CH6$TCHTCidCHTCidCHTC F G((abrevF G-( scan for co_er_datos.importe#0 and between(periodo, xrfirst, xrlast) and (&xfiltro) and (id=999 or !seek(str(co_er_datos.linea,10)+str(co_er_datos.id,6,2), "co_er", "idlin"))q(TCd 8CCidd 8% TCdG 5TCdG ?%CC  Z C  Ztmp_er2id Prtmp_er2     T tmp_er2.iCCZ3replace &xcol with &xcol + co_er_datos.importe T tmp_er2.pCCZ6replace &xcol with &xcol + co_er_datos.porcentaje BUXFIRSTEJERCONDESDEXLASTHASTAXINICIOXRFIRSTXRLASTXFILTRO RESULTADOSCUENTASABREV CO_ER_DATOSCUENTAXOFFSETPERIODOXIIDLINEADESCRTIPOXCOL%Ccuentas 3Qcuentas TF~C/\SHy! CRC0QTTCC  or 6left(cuentas.cod_cue,1)=[C=]! CRC0QcTTCC  or 6left(cuentas.cod_cue,3)=[C=]! CRC0QTTCC  or 6left(cuentas.cod_cue,5)=[C=]! CRC0QMTTCC  or 6left(cuentas.cod_cue,7)=[C=] 2GTCC  or 6cuentas.cod_cue=[] BUXFILTROCUENTASATRIBUTOCOD_CUE4  TCW%CqueryKFQMo co_er_datos   C  query T ~,TCC, 6CQ F!BCC _ C6U XIDERXLINEAXDESDEXHASTAXAREAXTXTQUERYDISTINCTCUENTA CO_ER_DATOSIDLINEAPERIODO%C tmp_er_datos(FQ%Ctmp_erNFQ%C tmp_bienesxFQ T-< BU TMP_ER_DATOSTMP_ER TMP_BIENESOESTADOVISIBLE304 Ta%Ccur12FQJo tmp_mayor_er1AJ 35 36 cur1,q tmp_mayor_er1cur1F->^C 309000000 310000000>^ CH >  CH %*G( \tmp\log_pos_proceso_mayorG K( (Saldo: (Debe ser 0)Go tmp_mayor_er1QQ QCXQQCXQC=34 query_no_res K(F%G No Resultados:%KC=34(  Resultados:Go tmp_mayor_er1Xlineas cuentascQ QCXQQCXQC=34   @ query_no_controlables%K( G $ No Controlables:G T To tmp_mayor_er1Xlineas cuentasCC 6QC=34   @ query%JK( G ! Controlables: T T NC+C:G_oquery QC Con lnea: CCZQQC query_con%7 K(G % Anlisis Controlables# Con lnea: T coquery QC Con lnea: CCZQQCquery_sin_ctrl K(# Sin lnea: T"' Sin+Con: "* Anlisis de Sn LneaGHL, # T$ T% T& T' T(B)gs_sql_estado_de_resultados_sch$%&'(oqueryC $d TQC Sin Centro: CC$Z%QQCC  I    query_sin_4oqueryC %d TQC Sin Centro: CC%Z%Q[QCC  I    query_sin_91oqueryC &d TQC Sin Centro: CC&Z%Q\QCC  I    query_sin_92oqueryC 'd TQC Sin Centro: CC'Z%Q]QCC  I    query_sin_93oqueryC (d TQC Sin Centro: CC(Z%Q^QCC  I    query_sin_94o query_sin_91 query_sin_92 query_sin_93 query_sin_94 query_sin_4Ǽ query_sin>0>0?ooquery QCCentro: QQCC ECH query_sin_sin_4ooquery QCCentro: Q[QCC =F query_sin_sin_91ooquery QCCentro: Q\QCC SO query_sin_sin_92loquery QCCentro: Q^QC C BR query_sin_sin_94oquery QCCentro: Q]QCC "C ESI CHO C =F query_sin_sin_93oquery_sin_sin_91query_sin_sin_92query_sin_sin_93query_sin_sin_94query_sin_sin_4Ǽ query_sin_sin! # C8i ^$CANTERIOR CON INGENIERIA9 T$ T% T& T' T( T:F;gs_sql_estado_de_resultados_sch$%&'(:oqueryC $d TQC Sin Centro: CC$Z%QQCC  I    query_sin_4oqueryC %d TQC Sin Centro: CC%Z%Q[QCC  I    query_sin_91oqueryC &d TQC Sin Centro: CC&Z%Q\QCC  I    query_sin_92oqueryC 'd TQC Sin Centro: CC'Z%Q]QCC  I    query_sin_93oqueryC (d TQC Sin Centro: CC(Z%Q^QCC  I    query_sin_94oqueryC :d TQC Sin Centro: CC:Z%QVQCC  I    query_sin_86o query_sin_91 query_sin_92 query_sin_93 query_sin_94 query_sin_86 query_sin_4Ǽ query_sin>0j>0?C 32 35 36 43 3426 393 %x K(G . Nada/Indirectos: T=Gooquery QCCentro: QQCC ECH query_sin_sin_4ooquery QCCentro: Q[QCC =F query_sin_sin_91koquery QCCentro: Q\QC C S query_sin_sin_92loquery QCCentro: Q^QC C BR query_sin_sin_94oquery QCCentro: Q]QCC (C ESI CHOING C =F query_sin_sin_93qoquery QCCentro: QVQCC INGO query_sin_sin_86oquery_sin_sin_91query_sin_sin_92query_sin_sin_93query_sin_sin_94query_sin_sin_86query_sin_sin_4Ǽ query_sin_sin%Z K(G , Otros Centros: T?G! # C8i 0" T$ T% T& T' T( T@FAgs_sql_estado_de_resultados_sch$%&'(@oqueryC $d TQC Sin Centro: CC$Z%QQCC  I    query_sin_4oqueryC %d TQC Sin Centro: CC%Z%Q[QCC  I    query_sin_91oqueryC &d TQC Sin Centro: CC&Z%Q\QCC  I    query_sin_92oqueryC 'd TQC Sin Centro: CC'Z%Q]QCC  I    query_sin_93oqueryC (d TQC Sin Centro: CC(Z%Q^QCC  I    query_sin_94oqueryC @d TQC Sin Centro: CC@Z%QSQCC  I    query_sin_83o query_sin_91 query_sin_92 query_sin_93 query_sin_94 query_sin_83 query_sin_4Ǽ query_sin>0j>0?C 32 35 36 43 3426 393 %0 K(G . Nada/Indirectos: T=Gooquery QCCentro: QQCC ECH query_sin_sin_4ooquery QCCentro: Q[QCC =F query_sin_sin_91voquery QCCentro: Q\QCC S O query_sin_sin_92loquery QCCentro: Q^QC C BR query_sin_sin_94oquery QCCentro: Q]QCC 5C ES I CHOINGSOL C =F query_sin_sin_93soquery QCCentro: QSQCC INGSOL query_sin_sin_83oquery_sin_sin_91query_sin_sin_92query_sin_sin_93query_sin_sin_94query_sin_sin_83query_sin_sin_4Ǽ query_sin_sin%," K(G , Otros Centros: T?G! # C8i , T$ T% T& T' T( T@FAgs_sql_estado_de_resultados_sch$%&'(@oqueryC $d TQC Sin Centro: CC$Z%QQC$C C I M   query_sin_4oqueryC %d TQC Sin Centro: CC%Z%Q[QC$C C I M   query_sin_91oqueryC &d TQC Sin Centro: CC&Z%Q\QC$C C I M   query_sin_92oqueryC 'd TQC Sin Centro: CC'Z%Q]QC$C C I M   query_sin_93oqueryC (d TQC Sin Centro: CC(Z%Q^QC$C C I M   query_sin_94oqueryC @d TQC Sin Centro: CC@Z%QSQC$C C I M   query_sin_83o query_sin_91 query_sin_92 query_sin_93 query_sin_94 query_sin_83 query_sin_4Ǽ query_sin>0j>0?C 32 35 36 43 3426 393 %D( K(G . Nada/Indirectos: T=Gjoquery QCCentro: QQC C E query_sin_sin_4ooquery QCCentro: Q[QCC =F query_sin_sin_91voquery QCCentro: Q\QCC S O query_sin_sin_92roquery QCCentro: Q^QCC ID query_sin_sin_94oquery QCCentro: Q]QCC fC ES I M CH OINGSOLBR SOF ID C =F query_sin_sin_93oquery QCCentro: QSQC3C INGSOLSOF BR CH query_sin_sin_83oquery_sin_sin_91query_sin_sin_92query_sin_sin_93query_sin_sin_94query_sin_sin_83query_sin_sin_4Ǽ query_sin_sin%, K(G , Otros Centros: T?G>Ho query_sin_sin query_con query_sinǼquery%- K(G 9 Total:(=controlables)G T TE%CE -8C+Proceso de Controlables con diferencias !!!9JoqueryXlineas CFC(XQGquery%w.K( G ( Procesados x Linea :G T8oquery_no_controlablesqueryǼquery%/K( G ! COn + No Con:GG( T0o query_no_resqueryǼqueryA>Gz?C 32 35 36 )>?C 43 )>(\?C 341.17 )>Gz?C 3426 )>?C 393 BUHXFECHAXCONTROLCUR1DISTINCTASIENTO TMP_MAYOR_ER1CAUSAABREVLINEAFORCOD_CUECOD_CENP_LOCALDEBITOCREDITOAAA MASTERLINEERIMPORTEFRACCIONBORRARCUENTA QUERY_NO_RESBBBCUENTASLINEASCODIGOQUERY_NO_CONTROLABLESXNOCONTROLABLESQUERY XCONTROLABLES QUERY_CON XCONLINEAQUERY_SIN_CTRL XSINLINEAP_SCH_ER_VERSIONX4X91X92X93X94TABLA_PORCENTAJES_0GS_SQL_ESTADO_DE_RESULTADOS_SCH QUERY_SIN_4 QUERY_SIN_91 QUERY_SIN_92 QUERY_SIN_93 QUERY_SIN_94 QUERY_SININQUERY_SIN_SIN_4QUERY_SIN_SIN_91QUERY_SIN_SIN_92QUERY_SIN_SIN_94QUERY_SIN_SIN_93 QUERY_SIN_SINXOLD_DESDE_FECHAMENSAJEX86TABLA_PORCENTAJES_1 QUERY_SIN_86 XINDIRECTOSQUERY_SIN_SIN_86 XOTROSCENTROSX83TABLA_PORCENTAJES_2 QUERY_SIN_83QUERY_SIN_SIN_83ALLXTOTALCONTROLABLESDESCR DMASTERLINE4H, C3 $H 2 T2 T T T TBUXFECHAX4X91X92X93X944H0 C$ T/ T T T T T 2 T) T T T T TBUXFECHAX4X91X92X93X94X864H0 C$ T6 T T T T T C$ T2 T T T T T C$n T1 T T T T T C$ T? T T T T T C$B T/ T T T T T 2 T) T T T T TBUXFECHAX4X91X92X93X94X83E 4F E#>BUXIDXIMPORTETMP_API0I14F E)TCC6#> BU XIDXABREVXDIGITOSXNEGTMP_APXIMPORTEAPERTURAI0I1E 4F E#>BUXIDXIMPORTE TMP_AP_CFI0I14F E)TCC6#> BU XIDXABREVXDIGITOSXNEG TMP_AP_CFXIMPORTEAPERTURAI0I1 4FG((abrev ET<odiariogconceptocuentas     QQ   C=12  C=C= query_ap ~8TC     F > K( BUXABREVXDIGITOSCUENTASABREVXCOD_CUECOD_CUE ARR_RESULTADODIARIOGMONEDACAMBIOFECHAMOTIVOMONPASEMONEXTTIPODEBITOCREDITOSALDOSALDOUSSCONCEPTOASIENTOTIPO2LEGALQUERY_APXSALDO FN_CALC_LOCALXIMPORTE4F E%C4 \!>T CT iCCZHreplace in tmp_ap &xi with &xi + ximporte , it with it + ximporte B U XIDXTIPOXZXDESCRXFORMULATMP_APIDTIPODESCRXIMPORTEXI4F E%C4 \!>T CT iCCZKreplace in tmp_ap_cf &xi with &xi + ximporte , it with it + ximporte B U XIDXTIPOXZXDESCRXFORMULA TMP_AP_CFIDTIPODESCRXIMPORTEXIj%Ccuentas ?QcuentasFG((abrev ET|o co_er_datoscuentasC Q C =12   C=C= query %aWo co_er_datoscuentas  C =12   C=C= query1 ~SFG((cuenta2E CZC ZC-+6%C4 Ejrapr  C-+6 O B UXCUENTAXDIGITOSXZXRESTACUENTASABREVXCOD_CUECOD_CUESUM CO_ER_DATOSIMPORTEPERIODOCUENTAQUERYDISTINCTDESCRQUERY1APRXTIPOXIDIDTIPONOTA OPERACIONDESCR2XDESCRl%Ccuentas ?QcuentasFG((abrev ET|o co_er_datoscuentasC Q C =12   C=C= query %aYo co_er_datoscuentas  C =12   C=C= query1 ~UFG((cuenta2E CZC ZC-+6%C4 Glrap_cf  C-+6 Q B UXCUENTAXDIGITOSXZXRESTACUENTASABREVXCOD_CUECOD_CUESUM CO_ER_DATOSIMPORTEPERIODOCUENTAQUERYDISTINCTDESCRQUERY1AP_CFXTIPOXIDIDTIPONOTA OPERACIONDESCR2XDESCR4 TTC]Zh1\N C(NNN N N N N NNNNNNNQ\& (CH%TCCi $ P3TC CCCi$%6TCCi$TBorrar TFBQ/\tmp\rpt_in_movimientos_resumido_por masterline ~F G((id E%C4 ->>TICCZ)replace &aaa with movs_resumido.total >FQ C C[ C] BU!XHASTAXFECHA2 XTMP_BIENESP_LOCAL MASTERLINEDESCRI0I1I2I3I4I5I6I7I8I9I10I11I12IT TMP_BIENESIDZXLASTXFECHA3XTABLAXMONEDARESUMEN_POR_LINEA_RESUMIDO MOVS_RESUMIDO DMASTERLINAAATOTALINVx4%CxddepbL9TCX%CxhdepbLgTCX1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_movimientosT\xchgTT  `T C%T T TTN"TCSN6TNTNTT% TT 0TTT0 T0  CBUXTABLAXFECHAXMONEDAXDDEPXHDEPOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDFECXHFECXDFCSXDFEC2XDMOVXDCONP_DOSXDSTKF XDESP_MESXDMON XDVALORIZARX_SCH_COSTOS_X_CONTRIBXDSEPXDTVA EXP_TABLAk4F)Q\tmp\rpt_in_movimientosGomovsXlineas  CQqueryKoqueryXlineas   C C(XQ query2 ,(\xchg\sch_inventario_CԻ hCC6No se pudo copiar el reporte de movimientos a XCHG !!!Ioquery2 CQ query@(/\tmp\rpt_in_movimientos_resumido_por masterline%CmovsFQ%Cquery:F Q%Cquery2`F QBUXTABLAXFECHAXMONEDARESUMEN_POR_LINEAP_LOCALMOVSLINEAS MASTERLINELINEACODIGOQUERYDESCR DMASTERLINQUERY2P_SERVERMENSAJETOTAL4F- T(CHTiCCZTCreplace &xx with &xx-xantes TC > BU XPARAM TMP_BIENES MASTERLINEXANTESI0ZXOLD_HASTA_FECHAXXXMESIT(\er\C\ER - CC C - 6informe mensual - detalle      ԻqCtmp_mayor_periodoER - CC C - 6informe mensual - detalle\er\C!B"T"C]F#($\tmp\"#)G+(listadosG~(ClasesT&C ExportacionesN(T'CExportaciones_ParametrosN=T'( Informe Mensual - Mayor a Fecha CC$* C^T')" C'*Cer Cdigo ER'**C masterline Lnea Maestra'*1C dmasterlinDescr. Linea Maestra'*CabrevCuenta'*%Cdcuenta Descripcin'* Ccod_cenCentro'*-CcendescrDescripcin Centro'*CfechaFecha'*!CimporteImporte'*!CasientoAsiento'*CpasePase'*CmonedaMoneda'*CcambioCambio'*.C cambio_refCambio Referencia'*"Ccausa Tipo Cpbt.'*%Ccomprob Comprobante'*#Cprocli Cli./Prov.'*CcodigoCdigo'*CnombreNombre'*,C comentarioComentario Pase'*+CconceptoConcepto Asiento'*CempEmpresa'*ClineaLnea'*#CfraccionFraccin'*T'+C'&,G(9-.BU/P_DIR_EXPORT_GLOBAL XVERSION_ERER MASTERLINE DMASTERLINABREVDCUENTACOD_CENCENDESCRMESANOFECHAIMPORTECAUSACOMPROBMONEDACAMBIO CAMBIO_REFASIENTOPASEPROCLICODIGONOMBRE COMENTARIOCONCEPTOEMPLINEAFRACCIONER2DER2CODATRBULFN_XMLXTMPARCHTMP_MAYOR_PERIODOP_LOCALLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDMTC-BC=-C\-CRUXFXXM+ %CxresumenbNV T%CxinmovbCT N in_rpt_movimientosJ  .T  *T C C%6TTTTTNTSTTTTTT%TNTST *TSTNTTTT %T CpdfxlsT aC !R"\tmp\Cpdfxls(#\er\C$\Cpdfxls T %"\tmp\T &-Ca '!)%C"\tmp\0 6"\tmp\(#\er\C$\#%CRPT_in_movimientosF(Q.Q"\tmp\RPT_in_movimientos.DBFF( K(*)#%CRPT_in_movimientos.F(Q +Z B*U,XFECHAXARCHPDFXDDEPXHDEP XDTIPO_VALXLOTES XTIPO_COLXXLSXRESUMENXINMOVIN_RPT_MOVIMIENTOSOFRMXULTVENXDFECXHFECXDSEP XDACUM_X_LOTEXDSTKXDNUM3XDTVAXDMONXDFCSXDFEC2XDNUM5XDMOVXDSTKFXDNEGATIVOS_NO_VALORIZADOSXDNUM4 XDVALORIZAR XLS_ABRIR XLS_ARCHIVO AUTOMATIZADO BTNEXPORTARCLICKP_LOCALP_DIR_EXPORT_GLOBAL XVERSION_ER XPDFARCHIVO XPDFPROMPTBTNPDFRPT_IN_MOVIMIENTOSTOTALXTOTALRELEASE2%C\xchg\resumen_inventario.dbf0 {4h1\xchg\resumen_inventario.dbfNNNNNNN N N N N NNNNNNNNNNNNNN& $%Cresumen_inventario +Q\xchg\resumen_inventarioFG((periodoECidCH%C4 +>CidCHOTER - CC C - 6CCCiZ CCCHZ - %Tbienes de cambio.pdf6TC0 0050 a .Tbienes de cambio en jaula.pdf6T!CJA JA a "Tbienes de uso.pdf6T"C1 91 a 7Tbienes de cambio  - solo lotes.pdf5TC0 0050  @Tbienes de cambio en jaula  - solo lotes.pdf5T!CJA JA  4Tbienes de uso  - solo lotes.pdf5T"C1 91  6Tbienes de cambio  - sin lotes.pdf5T#C0 0050  ?Tbienes de cambio en jaula  - sin lotes.pdf5T$CJA JA  3Tbienes de uso  - sin lotes.pdf5T%C1 91  F?>!"#$%ATbienes de cambio  - compras - solo lotes.pdf5T&C0 0050  JTbienes de cambio en jaula  - compras - solo lotes.pdf5T'CJA JA  >Tbienes de uso  - compras - solo lotes.pdf5T(C1 91  @Tbienes de cambio  - compras - sin lotes.pdf5T)C0 0050  ITbienes de cambio en jaula  - compras - sin lotes.pdf5T*CJA JA  =Tbienes de uso  - compras - sin lotes.pdf5T+C1 91  F?> & ' ( ) *+@Tbienes de cambio  - ventas - solo lotes.pdf5T,C0 0050  ITbienes de cambio en jaula  - ventas - solo lotes.pdf5T-CJA JA  =Tbienes de uso  - ventas - solo lotes.pdf5T.C1 91  ?Tbienes de cambio  - ventas - sin lotes.pdf5T/C0 0050  HTbienes de cambio en jaula  - ventas - sin lotes.pdf5T0CJA JA  <Tbienes de uso  - ventas - sin lotes.pdf5T1C1 91  F?>,-./01ATbienes de cambio  - ajustes - solo lotes.pdf5T2C0 0050  JTbienes de cambio en jaula  - ajustes - solo lotes.pdf5T3CJA JA  >Tbienes de uso  - ajustes - solo lotes.pdf5T4C1 91  @Tbienes de cambio  - ajustes - sin lotes.pdf5T5C0 0050  ITbienes de cambio en jaula  - ajustes - sin lotes.pdf5T6CJA JA  =Tbienes de uso  - ajustes - sin lotes.pdf5T7C1 91  F?>2345676(8\er\C\resumen_inventarioԻQBU9XFECHAP_SERVERPERIODOBC_LBC_L_JAUBU_LBC_NBC_N_JAUBU_NCBC_L CBC_L_JAUCBU_LCBC_N CBC_N_JAUCBU_NVBC_L VBC_L_JAUVBU_LVBC_N VBC_N_JAUVBU_NABC_L ABC_L_JAUABU_LABC_N ABC_N_JAUABU_NRESUMEN_INVENTARIOXENCA XVERSION_ERXARCHPDFXBC_L GENERAR_INV XBC_L_JAUXBU_LXBC_N XBC_N_JAUXBU_NXCBC_L XCBC_L_JAUXCBU_LXCBC_N XCBC_N_JAUXCBU_NXVBC_L XVBC_L_JAUXVBU_LXVBC_N XVBC_N_JAUXVBU_NXABC_L XABC_L_JAUXABU_LXABC_N XABC_N_JAUXABU_NP_DIR_EXPORT_GLOBALOTER - CC C - 6CCCiZ CCCHZ - /Tbienes de cambio - resumen.pdf=TC0 0050 -S8T'bienes de cambio en jaula - resumen.pdf9TCJA JA -,Tbienes de uso - resumen.pdf9TC1 91 -BUXFECHAXENCA XVERSION_ERXARCHPDFXBC_L GENERAR_INV XBC_L_JAUXBU_L) 4%Capr*FQTC]h1\tmp\N NC Cd C C C(Q\tmp\$& CZC Z %Ctmp_ap#F QT C]h1\tmp\ NN CNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)NQ\tmp\  & T*CidCHT+CidCH T,++*yT-C+dG T.lT..C-DISPONIBILIDADES (11-1128)0s("11", 3, xperiodo)-s("1128", 5, xperiodo, .t.)/PT..C-CREDITOS POR VENTAS (121)s("121", 5, xperiodo)/mT..C-SAF IIBB (122.18+122.24)3s("122.18", 7, xperiodo)+s("122.24", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.04", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.08", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.23", 7, xperiodo)/hT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("244", 5, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.26", 7, xperiodo)/OT..C-GASTOS A RECUPERAR (124)s("124", 5, xperiodo)/IT..C-GASTOS CHILE (128)s("128", 5, xperiodo)/tT..C-'GASTOS PAGADOS POR ADELANTADO (125+129)+s("125", 5, xperiodo)+s("129", 5, xperiodo)/RT..C-PRESTAMOS AL PERSONAL (126)s("126", 5, xperiodo)/UT..C-PRESTAMOS AL PERSONAL (126)s("123.12", 7, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.1", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.2", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.3", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.4", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.5", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.6", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.7", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.8", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.9", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.10", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.11", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.13", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.14", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.15", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.16", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.17", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.18", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.19", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.20", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.21", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.22", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.23", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.24", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.25", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("123.17", 7, xperiodo)/%+ T..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Os("13", 3, xperiodo)-s("139.5", 5, xperiodo, .t.)-s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/ p %-HT..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Is("131", 5, xperiodo) + s("139.3", 5, xperiodo) + s("139.6", 5, xperiodo)/T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)ms("13", 3, xperiodo)-s("131", 5, xperiodo, .t.) - s("139.3", 5, xperiodo, .t.) - s("139.6", 5, xperiodo, .t.)/ lT..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Ss("13", 3, xperiodo) - s("139.5", 5, xperiodo, .t.) - s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/T..C -%B.USO - EDIF., MAQ., ETC (14+25-2515)Es("14", 3, xperiodo)+s("25", 3, xperiodo)-s("2515", 5, xperiodo, .t.)/bT..C -INVERSIONES (15+1128)+s("15", 3, xperiodo)+s("1128", 5, xperiodo)/MT..C-BIENES INTANGIBLES (16)s("16", 3, xperiodo)/+T..C-TOTALxtot/ T.MT..C-DEUDAS COMERCIALES (21)s("21", 3, xperiodo)/JT..C-DEUDAS SOCIALES (22)s("22", 3, xperiodo)/_T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)s("23", 3, xperiodo)+s("122", 5, xperiodo)-s("122.18", 7, xperiodo, .t.)-s("122.24", 7, xperiodo, .t.)-s("122.23", 7, xperiodo, .t.)+s("24", 3, xperiodo)-s("122.04", 7, xperiodo, .t.)-s("122.08", 7, xperiodo, .t.)-s("244", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("243", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("122.26", 7, xperiodo, .t.)/KT..C-DEUDAS LLAVE (2515)s("2515", 5, xperiodo)/MT..C-DEUDAS BANCARIAS (243)s("243", 5, xperiodo)/UT..C-APORTES IRREVOCABLES (261.2)s("261.2", 7, xperiodo)/+T..C-TOTALxtot/ T.JT..C-PATRIMONIO NETO (26)s("26", 3, xperiodo)/KT..C-PATRIMONIO NETO (26)s("123", 5, xperiodo)/TT..C-PATRIMONIO NETO (26)-s("123.12", 7, xperiodo, .t.)/TT..C-PATRIMONIO NETO (26)-s("123.17", 7, xperiodo, .t.)/NT..C-PATRIMONIO NETO (26)s("127.12", 5, xperiodo)/ST..C-PATRIMONIO NETO (26)-s("261.2", 7, xperiodo, .t.)/+T..C'-TOTALxtot/%C+dG Z T+C+d 8d uT++G+( co_sql_mayor T1 T.T..C112 T..C1128a2T..C1212!T..C122.182!T..C122.242!T..C122.042!T..C122.082!T..C122.232T..C2442!T..C122.262T..C1242T..C1282T..C1252T..C1262 T..C 127.12 T..C 127.22 T..C 127.32 T..C 127.42 T..C 127.52 T..C 127.62 T..C 127.72 T..C 127.82 T..C 127.92!T..C 127.102!T..C 127.112!T..C 127.132!T..C 127.142!T..C 127.152!T..C 127.162!T..C 127.172!T..C 127.182!T..C 123.172%+ "T..C 1312 T..C 139.32 T..C 139.62T..C 132T..C 131a2!T..C 139.3a2!T..C 139.6a2 J#T..C 132!T..C 139.5a2"T..C 137.50a2 T..C 139.52!T..C 137.502T..C 142T..C 252 T..C 2515a2T..C 152T..C 11282T..C162C.3 T.T..C212T..C222T..C232T..C1222"T..C122.18a2"T..C122.24a2"T..C122.04a2"T..C122.08a2"T..C122.23a2"T..C122.26a2T..C242T..C244a2T..C243a2 T..C25152T..C2432 T..C261.22C.3 T.T..C262T..C1232!T..C127.122"T..C123.17a2!T..C261.2a2C'.3FG((cuenta/T4"lkjdfhgkjdsfghsdfhgjksdfhglsdgskjl T5 T6 ~'0%4CZC Z6  ' T7CO #5 #7 'T4CZC Z T5CO T6 F x>) !"#$%&'( %a)F:& ;; (/i1tmp_mayor_periodo<N ( ))i1tmp_mayor_periodo=C( )F& F:G-(; ~)>:<d >:= G((abrev C>QF BU?XDESDEXHASTAAPRXAPRP_LOCALIDTIPOCUENTADESCR OPERACIONNOTADESCR2TMP_APXTMP_API0I1I2I3I4I5I6I7I8I9I10I11I12ITP0P1P2P3P4P5P6P7P8P9P10P11P12PT XPERIODOHASTAXPERIODOZZZXTOTFN CO_SQL_MAYORXDMON APERTURA_CALCAPERTURA_TOTALXOLDIDXOLDRGXOLDOPXREGINALLTMP_MAYOR_PERIODOABREVER2DER2EXPORTAR_MAYOR( 4%Capr*FQTC]h1\tmp\N NC Cd C C C(Q\tmp\$& CZC Z %Ctmp_ap#F QT C]h1\tmp\ NN CNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)NQ\tmp\  & T*CidCHT+CidCH T,++*T-C+dG T.lT..C-DISPONIBILIDADES (11-1128)0s("11", 3, xperiodo)-s("1128", 5, xperiodo, .t.)/PT..C-CREDITOS POR VENTAS (121)s("121", 5, xperiodo)/mT..C-SAF IIBB (122.18+122.24)3s("122.18", 7, xperiodo)+s("122.24", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.04", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.08", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.23", 7, xperiodo)/hT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("244", 5, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.26", 7, xperiodo)/OT..C-GASTOS A RECUPERAR (124)s("124", 5, xperiodo)/IT..C-GASTOS CHILE (128)s("128", 5, xperiodo)/tT..C-'GASTOS PAGADOS POR ADELANTADO (125+129)+s("125", 5, xperiodo)+s("129", 5, xperiodo)/RT..C-PRESTAMOS AL PERSONAL (126)s("126", 5, xperiodo)/UT..C-PRESTAMOS AL PERSONAL (126)s("123.12", 7, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.1", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.2", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.3", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.4", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.5", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.6", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.7", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.8", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.9", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.10", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.11", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.13", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.14", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.15", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.16", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.17", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.18", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.19", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.20", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.21", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.22", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.23", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.24", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.25", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("123.17", 7, xperiodo)/%+ T..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Os("13", 3, xperiodo)-s("139.5", 5, xperiodo, .t.)-s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/ p %-HT..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Is("131", 5, xperiodo) + s("139.3", 5, xperiodo) + s("139.6", 5, xperiodo)/T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)ms("13", 3, xperiodo)-s("131", 5, xperiodo, .t.) - s("139.3", 5, xperiodo, .t.) - s("139.6", 5, xperiodo, .t.)/ lT..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Ss("13", 3, xperiodo) - s("139.5", 5, xperiodo, .t.) - s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/T..C -%B.USO - EDIF., MAQ., ETC (14+25-2515)Es("14", 3, xperiodo)+s("25", 3, xperiodo)-s("2515", 5, xperiodo, .t.)/bT..C -INVERSIONES (15+1128)+s("15", 3, xperiodo)+s("1128", 5, xperiodo)/MT..C-BIENES INTANGIBLES (16)s("16", 3, xperiodo)/+T..C-TOTALxtot/ T.MT..C-DEUDAS COMERCIALES (21)s("21", 3, xperiodo)/JT..C-DEUDAS SOCIALES (22)s("22", 3, xperiodo)/_T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)s("23", 3, xperiodo)+s("122", 5, xperiodo)-s("122.18", 7, xperiodo, .t.)-s("122.24", 7, xperiodo, .t.)-s("122.23", 7, xperiodo, .t.)+s("24", 3, xperiodo)-s("122.04", 7, xperiodo, .t.)-s("122.08", 7, xperiodo, .t.)-s("244", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("243", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("122.26", 7, xperiodo, .t.)/KT..C-DEUDAS LLAVE (2515)s("2515", 5, xperiodo)/MT..C-DEUDAS BANCARIAS (243)s("243", 5, xperiodo)/+T..C-TOTALxtot/ T.JT..C-PATRIMONIO NETO (26)s("26", 3, xperiodo)/KT..C-PATRIMONIO NETO (26)s("123", 5, xperiodo)/TT..C-PATRIMONIO NETO (26)-s("123.12", 7, xperiodo, .t.)/TT..C-PATRIMONIO NETO (26)-s("123.17", 7, xperiodo, .t.)/NT..C-PATRIMONIO NETO (26)s("127.12", 5, xperiodo)/+T..C'-TOTALxtot/%C+dG  T+C+d 8d T++G+( co_sql_mayor T1 T.T..C112 T..C1128a2T..C1212!T..C122.182!T..C122.242!T..C122.042!T..C122.082!T..C122.232T..C2442!T..C122.262T..C1242T..C1282T..C1252T..C1262 T..C 127.12 T..C 127.22 T..C 127.32 T..C 127.42 T..C 127.52 T..C 127.62 T..C 127.72 T..C 127.82 T..C 127.92!T..C 127.102!T..C 127.112!T..C 127.132!T..C 127.142!T..C 127.152!T..C 127.162!T..C 127.172!T..C 127.182!T..C 123.172%+ !T..C 1312 T..C 139.32 T..C 139.62T..C 132T..C 131a2!T..C 139.3a2!T..C 139.6a2 "T..C 132!T..C 139.5a2"T..C 137.50a2 T..C 139.52!T..C 137.502T..C 142T..C 252 T..C 2515a2T..C 152T..C 11282T..C162C.3 T.T..C212T..C222T..C232T..C1222"T..C122.18a2"T..C122.24a2"T..C122.04a2"T..C122.08a2"T..C122.23a2"T..C122.26a2T..C242T..C244a2T..C243a2 T..C25152T..C2432C.3 T.T..C262T..C1232"T..C123.17a2"T..C123.17a2!T..C127.122C'.3FG((cuenta/T4"lkjdfhgkjdsfghsdfhgjksdfhglsdgskjl T5 T6 ~/'0%4CZC Z6  & T7CO #5 #7 +'T4CZC Z T5CO T6 F x>) !"#$%&'( %a(F:& ;; (/i1tmp_mayor_periodo<N ( N()i1tmp_mayor_periodo=C( X(F& F:G-(; ~(>:<d >:= G((abrev C>QF BU?XDESDEXHASTAAPRXAPRP_LOCALIDTIPOCUENTADESCR OPERACIONNOTADESCR2TMP_APXTMP_API0I1I2I3I4I5I6I7I8I9I10I11I12ITP0P1P2P3P4P5P6P7P8P9P10P11P12PT XPERIODOHASTAXPERIODOZZZXTOTFN CO_SQL_MAYORXDMON APERTURA_CALCAPERTURA_TOTALXOLDIDXOLDRGXOLDOPXREGINALLTMP_MAYOR_PERIODOABREVER2DER2EXPORTAR_MAYOR* 4%Capr*FQTC]h1\tmp\N NC Cd C C C(Q\tmp\$& CZC Z %Ctmp_ap#F QT C]h1\tmp\ NN CNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)NQ\tmp\  & T*CidCHT+CidCH T,++*T-C+dG T.T..C-DISPONIBILIDADES (11-1128-1134)Ls("11", 3, xperiodo)-s("1128", 5, xperiodo, .t.)-s("1134", 5, xperiodo, .t.)/PT..C-CREDITOS POR VENTAS (121)s("121", 5, xperiodo)/mT..C-SAF IIBB (122.18+122.24)3s("122.18", 7, xperiodo)+s("122.24", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.04", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.08", 7, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.23", 7, xperiodo)/hT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("244", 5, xperiodo)/jT..C-/SAF GANANCIAS (122.04+122.08+122.23+244+122.26)s("122.26", 7, xperiodo)/OT..C-GASTOS A RECUPERAR (124)s("124", 5, xperiodo)/IT..C-GASTOS CHILE (128)s("128", 5, xperiodo)/tT..C-'GASTOS PAGADOS POR ADELANTADO (125+129)+s("125", 5, xperiodo)+s("129", 5, xperiodo)/RT..C-PRESTAMOS AL PERSONAL (126)s("126", 5, xperiodo)/UT..C-PRESTAMOS AL PERSONAL (126)s("123.12", 7, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.1", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.2", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.3", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.4", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.5", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.6", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.7", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.8", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.9", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.10", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.11", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.13", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.14", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.15", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.16", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.17", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.18", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.19", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.20", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.21", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.22", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.23", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.24", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("127.25", 5, xperiodo)/VT..C -GASTOS A RENDIR (127-127.12)s("123.17", 7, xperiodo)/%+ T..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Os("13", 3, xperiodo)-s("139.5", 5, xperiodo, .t.)-s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/  %-iT..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Is("131", 5, xperiodo) + s("139.3", 5, xperiodo) + s("139.6", 5, xperiodo)/T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)ms("13", 3, xperiodo)-s("131", 5, xperiodo, .t.) - s("139.3", 5, xperiodo, .t.) - s("139.6", 5, xperiodo, .t.)/ T..C -(B.CAMBIO - EXISTENCIAS (13-139.5-137.50)Ss("13", 3, xperiodo) - s("139.5", 5, xperiodo, .t.) - s("137.50", 5, xperiodo, .t.)/}T..C -+B.CAMBIO - MERC. EN TRANSITO (139.5+137.50)0s("139.5", 5, xperiodo)+s("137.50", 5, xperiodo)/T..C -%B.USO - EDIF., MAQ., ETC (14+25-2515)Es("14", 3, xperiodo)+s("25", 3, xperiodo)-s("2515", 5, xperiodo, .t.)/~T..C -INVERSIONES (15+1128+1134)Bs("15", 3, xperiodo)+s("1128", 5, xperiodo)+s("1134", 5, xperiodo)/MT..C-BIENES INTANGIBLES (16)s("16", 3, xperiodo)/+T..C-TOTALxtot/ T.MT..C-DEUDAS COMERCIALES (21)s("21", 3, xperiodo)/JT..C-DEUDAS SOCIALES (22)s("22", 3, xperiodo)/_T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)s("23", 3, xperiodo)+s("122", 5, xperiodo)-s("122.18", 7, xperiodo, .t.)-s("122.24", 7, xperiodo, .t.)-s("122.23", 7, xperiodo, .t.)+s("24", 3, xperiodo)-s("122.04", 7, xperiodo, .t.)-s("122.08", 7, xperiodo, .t.)-s("244", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("243", 5, xperiodo, .t.)/T..C-MDEUDAS FISCALES (23+122-122.18-122.24-122.23-122.04-122.08+24-244-243-122.26)-s("122.26", 7, xperiodo, .t.)/KT..C-DEUDAS LLAVE (2515)s("2515", 5, xperiodo)/MT..C-DEUDAS BANCARIAS (243)s("243", 5, xperiodo)/UT..C-APORTES IRREVOCABLES (261.2)s("261.2", 7, xperiodo)/+T..C-TOTALxtot/ T.JT..C-PATRIMONIO NETO (26)s("26", 3, xperiodo)/KT..C-PATRIMONIO NETO (26)s("123", 5, xperiodo)/TT..C-PATRIMONIO NETO (26)-s("123.12", 7, xperiodo, .t.)/TT..C-PATRIMONIO NETO (26)-s("123.17", 7, xperiodo, .t.)/ST..C-PATRIMONIO NETO (26)-s("261.2", 7, xperiodo, .t.)/NT..C-PATRIMONIO NETO (26)s("127.12", 5, xperiodo)/+T..C'-TOTALxtot/%C+dG  T+C+d 8d T++G+( co_sql_mayor T1 T.T..C112 T..C1128a2 T..C1134a2T..C1212!T..C122.182!T..C122.242!T..C122.042!T..C122.082!T..C122.232T..C2442!T..C122.262T..C1242T..C1282T..C1252T..C1262 T..C 127.12 T..C 127.22 T..C 127.32 T..C 127.42 T..C 127.52 T..C 127.62 T..C 127.72 T..C 127.82 T..C 127.92!T..C 127.102!T..C 127.112!T..C 127.132!T..C 127.142!T..C 127.152!T..C 127.162!T..C 127.172!T..C 127.182!T..C 123.172%+ "T..C 1312 T..C 139.32 T..C 139.62T..C 132T..C 131a2!T..C 139.3a2!T..C 139.6a2 #T..C 132!T..C 139.5a2"T..C 137.50a2 T..C 139.52!T..C 137.502T..C 142T..C 252 T..C 2515a2T..C 152T..C 11282T..C 11342T..C162C.3 T.T..C212T..C222T..C232T..C1222"T..C122.18a2"T..C122.24a2"T..C122.04a2"T..C122.08a2"T..C122.23a2"T..C122.26a2T..C242T..C244a2T..C243a2 T..C25152T..C2432C.3 T.T..C262T..C1232"T..C123.17a2"T..C123.17a2!T..C127.122C'.3FG((cuenta/T4"lkjdfhgkjdsfghsdfhgjksdfhglsdgskjl T5 T6 ~S(0%4CZC Z6  ( T7CO #5 #7 O(T4CZC Z T5CO T6 F x>) !"#$%&'( %a*F:& ;; 1)/i1tmp_mayor_periodo<N ;) r))i1tmp_mayor_periodo=C( |)F& F:G-(; ~)>:<d >:= G((abrev C>QF BU?XDESDEXHASTAAPRXAPRP_LOCALIDTIPOCUENTADESCR OPERACIONNOTADESCR2TMP_APXTMP_API0I1I2I3I4I5I6I7I8I9I10I11I12ITP0P1P2P3P4P5P6P7P8P9P10P11P12PT XPERIODOHASTAXPERIODOZZZXTOTFN CO_SQL_MAYORXDMON APERTURA_CALCAPERTURA_TOTALXOLDIDXOLDRGXOLDOPXREGINALLTMP_MAYOR_PERIODOABREVER2DER2EXPORTAR_MAYOR 4%Cap_cf,FQTC]h1\tmp\N NC Cd C C C(Q\tmp\$& CZC Z %C tmp_ap_cf(F QT C]h1\tmp\ NN CNNNNNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)NQ\tmp\  & T*CidCHT+CidCH T,++*> T-C+dG T.hT..C-DISPONIBILIDADES6s_cf("11", 3, xperiodo)-s_cf("1107", 5, xperiodo, .t.)/GT..C- CAJA CHEQUESs_cf("1107", 5, xperiodo)/GT..C- CTAS A COBRARs_cf("121", 5, xperiodo)/eT..C-OTROS CREDITOS5s_cf("12", 3, xperiodo)-s_cf("121", 5, xperiodo, .t.)/ T0.FT..C- BIENES DE USOs_cf("14", 3, xperiodo)/DT..C- INVERSIONESs_cf("15", 3, xperiodo)/HT..C -BS. INTANGIBLESs_cf("16", 3, xperiodo)/+T..C -TOTALxtot/ T.KT..C-DEUDAS COMERCIALESs_cf("21", 3, xperiodo)/HT..C-DEUDAS SOCIALESs_cf("22", 3, xperiodo)/HT..C-DEUDAS FISCALESs_cf("23", 3, xperiodo)/VT..C-OTROS/s_cf("24", 3, xperiodo)+s_cf("25", 3, xperiodo)/.T..C-SUBTOTALxtot/ T1.HT..C-PATRIMONIO NETOs_cf("26", 3, xperiodo)/+T..C'-TOTALxtot/ T.5T..C)-ACTIVO CORRIENTExac/6T..C*-PASIVO CORRIENTE-xpc/;T..C+-CAPITAL DE TRABAJOxac-xpc/?T..C3-VARIACION CAPITAL DE TRABAJO0/9T..C4-VARIACION DEL EFECTIVO0/%C+dG  T+C+d 8d : T++G+( co_sql_mayor T3 T.T..C114 T..C1107a4T..C11074T..C1214T..C124T..C121a4 T0.T..C144T..C154T..C 164C .5 T.T..C214T..C224T..C234T..C244T..C254 T1.C.5 T.T..C264C'.5FG((cuenta/T6"lkjdfhgkjdsfghsdfhgjksdfhglsdgskjl T7 T8 ~ 0%6CZC Z8  [ T9CO #7 #9  T6CZC Z T7CO T8 F x>) !"#$%&'(>0)>1*>01+-(CHNT=iCC-ZT>iCC-Z-T?C=C>(replace &xvar with xvarefe for id=52 -+T?C=C>(replace &xvar with xvarefe for id=51  %aF@& AA /i1tmp_mayor_periodoBN  )i1tmp_mayor_periodoCC( F& F@G-(A ~b>@Bd >@C G((abrev CDQF BUEXDESDEXHASTAAP_CFXAP_CFP_LOCALIDTIPOCUENTADESCR OPERACIONNOTADESCR2 TMP_AP_CF XTMP_AP_CFI0I1I2I3I4I5I6I7I8I9I10I11I12ITP0P1P2P3P4P5P6P7P8P9P10P11P12PT XPERIODOHASTAXPERIODOZZZXTOTFN_CFXACXPC CO_SQL_MAYORXDMONAPERTURA_CALC_CFAPERTURA_TOTAL_CFXOLDIDXOLDRGXOLDOPXREGINALLFORXVARXVARANTXVAREFETMP_MAYOR_PERIODOABREVER2DER2EXPORTAR_MAYORDCC X -  Program: CCt2 Linea: C Z%C tmp_er_datos FQ\tmp\5& CZCZC ZC Z BU LOG_ERP_LOCAL XTABLA_DATOS TMP_ER_DATOSIDPERIODOCUENTAEMPLINEAIDFULL tomar_saldos )sumaY:procesar_formula@procesar_formula_porcentajeTC porcentajeF salida_xlsMproceso_no_asignadosz resultados er_cuentasbyebyeipos_proceso_mayorUtabla_porcentajes_0׷tabla_porcentajes_1tabla_porcentajes_2ǹapertura_total apertura_calcapertura_total_cf۽apertura_calc_cfJapertura#fnfn_cfs+s_cfg inventarioresumen_por_lineaeresumen_por_linea_resumidoinvexportar_mayorfmtfecha generar_invgenerar_inventariogenerar_inventario_resumidoprocesar_ap_antes_de_12_10_2017procesar_ap_antes_de_2017_12_12V% procesar_apOprocesar_cashfree{usar_co_er_datos_tmp qXB"TAA@RaaA2B!AsBsAqAqAAr32AAQAC2A2qAABC3A2qAABE#BAfursCB1CArqAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAA32AA&t2ABBbcb32c32cAB!At\DAB f CBBscAArAABtABBDC3232AA"!'qAAr312AAAqQAr!QDDAArABABt#S" rAqs" QBBB rA{AB=A2b2s&BBHrABB"qAArABA2BAED61AAAAs1 Ar"A"AB2q!"B1a11ABBBA2q!2RC1a11ABEABBA2Ar 1&t"A21111A"ABBqA3R"s  Ar!7AB1Q2Q2QQQQAqaS1AAr2B1AB1ABaBDDqarq21qA"qCqBq1qAAqFrBR912B33AACBqqqqqABB0qqv1BCCrq!qAAAABqqqaAqqqABB0"qaqrqBDBqAABqAAtAsBA!AA$"Ar DqAA2aQABB2rrr 2AA3cBA2q1ArAAAAqAB41bqAAAA2qAArqAAqAAqAA3qWqAAwaaAAraRqaA0 aAaA aqbBarQq121rqqbB1# " w Cc h "arcBQ ( acAc h "arcBa! 1( acAcU a a a a a h "arcBa!1A ( acABbaBCaraAaaaAD4AA2AA2AA6q6B31q4"3q6B31q4"3rr-rB7qrQAb2qrQAb211Ar q!BBB211Ar q!BBB3q021rA33!rQAbBBrACC2AA"!AbaCB24y1ARqAAbqAArqAAB5qrb2BB3 ErrR#!Q!Q11 B3qq3AA2BB"bAA6qAAr3qAAS3q*A#BBArRQAr\aa#auQQCQcQQ3QrQQQQQQrQQQQQQrQQQQQQrdBB4q{B3CqAA:BsqAA1)A"A!Qbaaaaaaaaaabaaaaaaaaaaaabe 1 AA"RBA1ABej!B!!!!!!"vBButAAtr1ABAuB4CqAA:BsqAA1)A"A!Qbaaaaaaaaaaaaaaaaaaaaaaabe 1 AA"AAABej!B!!!!!!!!vBButAAtr1ABAuB5CqAA:BsqAA1)A"A!Qbaaaaaaaaaaaaaaaaaaaaaaabe 1 AARAA1ABej!B!!!!!!!!vBButAAtr1ABAuB5cqAA:BqAA1)A"qqRbAbQaABguBBssqbQQBsAAsr1ABArB2BRAA1@ =aajkkn/n7sSNs| x }wc*=5I:9j:Q;V Er;<d X<@z @\A vAB BVC sCD DSH bHI! IJK9 XKOQ O}T TkZ !Z] E ^bQ `bc mdr r+sCs~ ~3ۛ >6$1 A I BC `C]Yx >]^ %SUK[UYb' Ta%"Tc:\sistema\system_scha CT\data\1 T T CSQT BORRAR1 T a T a,$c:\sistema\system_sch\data\1\ges.dbc TTSCHCInicio T"TCCt Atencin6C Iniciando CtG+(listados%Z%C IDC-Carpeta de exportacin imposible de crear !!!DC-Carpeta de exportacin imposible de crear !!!B T ~T \oneclickC Carpeta: C Empresa: CCZ T- G(\no_borrar.txt Ta G(%  T- F  Ta P% :CNo se puede acceder a \ !!!0CNo se puede acceder a \ !!! CB)sys_procesando Exportando %-F+Q$c:\sistema\system\data\1\cuentas.dbfF+Q$c:\sistema\system\data\1\cosxcue.dbfF*Q#c:\sistema\system\data\1\costos.dbfF*Q#c:\sistema\system\data\1\lineas.dbfF*Q#c:\sistema\system\data\1\grupos.dbfF+Q$c:\sistema\system\data\1\cat_com.dbfF)Q"c:\sistema\system\data\1\idx04.dbfF+Q$c:\sistema\system\data\1\tccvent.dbfF +Q$c:\sistema\system\data\1\tventas.dbf %Ccuentas Qcuentas%Ccosxcue FQcosxcue%Ccostos tQcostos%Clineas Qlineas%Cgrupos Qgrupos%Ccat_com Qcat_com%Cidx04 ,Qidx04%Ctccvent \Qtccvent%Cventas Qventas% %CC$) H  )[3C&Actualizando tipos de cambio Argentina8C+Actualizacin del tipo de cambio: Argentina*aa )/C"Actualizando tipos de cambio Chile4C'Actualizacin del tipo de cambio: Chile+aa )q 1C$Actualizando tipos de cambio Uruguay6C)Actualizacin del tipo de cambio: Uruguay,aa ) 1C$Actualizando tipos de cambio Bolivia6C)Actualizacin del tipo de cambio: Bolivia-aa ) -C Actualizando tipos de cambio USA2C%Actualizacin del tipo de cambio: USA.aa ) 2C%Actualizando tipos de cambio Paraguay7C*Actualizacin del tipo de cambio: Paraguay/aa ) .C!Actualizando tipos de cambio Per3C&Actualizacin del tipo de cambio: Per0aa )( 2C%Actualizando tipos de cambio Colombia7C*Actualizacin del tipo de cambio: Colombia1aa )  0C#Actualizando tipos de cambio Mxico5C(Actualizacin del tipo de cambio: Mxico2aa)CCuentas, solo las comprablesocuentas3Q45Q67Q8CSC9>\C9\SN6Q:CSC9>\C9\;6Q<CSC9>\C9\=6Q=CC9I\SSN6Q>Q?-Q@9Q93q1CScan ~)TBC6C%BD TDa TEBTFC6 E=Loq16C6 E=F6FC0EQ :S q2%  TDa  TD-FA>A?B>A@DCEndScankoq1468:<=>@ :N  C9\S 6queryC Query Cuentas CquerycuentasJocosxcuequerycostosI4Q4I6Q6I8Q8!KQK"7QL!5I6!K"M C!5 I>S 6KqC Query cosxcueCqcosxcueJ6ocostosMQK7QLCM MqC Query centrosCqcentrosJ"CObtener inmovilizados0Oin_sql_movimientosC$Q\tmp%C inmovilizadosQR+CAbro la tabla de inmovilizados@QQ\tmp\inventario valorizado al CCC$*/-R& SSCExportar Artculos'Tsql_rptarticulosborrar%CqFN/C"Creo el XML de todos los artculosF%QQ\tmp\export_sch.dbfNG-(VR+>WRXYRZ[R\!NC^YW_DC$! 'Cqarticulos_completoJ;C.Creo el XML de todos los artculos exportablesoq`q1Cq1 articulosJFAQ%Cq FNQ!CExportar Proveedores)Tsql_rptproveedoresborrar%Cexport_sch a proveedores%QQ\tmp\export_sch.dbfN Cq proveedoresJFNQCExportar Clientes&Tsql_rptclientesborrar"Cexport_sch a clientes%QQ\tmp\export_sch.dbfNCqclientesJFNQ%C inmovilizadosQR%CqFNQCExportar lneas@olineasSQ=7Q7cQcCS SqCqlineasJ%CqaFNQ%CExportar lneas MaestrasBolineasSQ=7Q7CS Sc Sq$Cqlineas_maestrasJ%Cq FNQCExportar Grupos6ogruposSQe7Q7CS SqCqgruposJ%CqFNQCExportar Cat_Com7ocat_comSQe7Q7CS SqCqcat_comJ%Cq,FNQ#CExportar Inmovilizados9fin_sql_movimientos inmovilizadosC$$QQ\tmp\inmovilizadosN"Cq inmovilizadosJ%CqQN C(CExportar Remitos Pendientes Cg C!CExportar Indicadores@hve_sql_pedidos_v2 borrar_pedC$C$ C%CtmpQjQQ\tmp\tmp&QQ\tmp\borrar_pedkC Query PedidosCq1:Cq1PED&oq1pedQAXtmp AljlAlAmQnAoQoApQqArQsAtAuQvAwAxQyAzA{Q|A}Q~AQAAQAAQAQCA A6QAACANOSI6QAAAQAQAACjQCjQqpedCALIAS:CCQPED:CQPED&(\pedidosԻCQPED:CQPED&CqPEDpedidosJCQPED2:CQPED& FkQ  C-C Exportar Condiciones de Cobranza=ocondcobrQS7q)Cqcondiciones_cobranzaJ wFNQ  C CExportar Vendedores.oagentewQSuVqCq vendedoresJ FNQ "CExportar contribucinTsch_sql_contribucion2Q \tmp\borrarC$nC$a CQQ \tmp\borrarACQuery Contribucin?oq1SQtuQoVQ7QQQ=exzQlq!Cq contribucionJ P FAQ C4C'Exportar Cuentas Corrientes de ClientesC C"CExportar Comprobantes C% " C'CExportar Ordenes de Compra C%CqB!FNQCExportar Cambio`oidx04oQQQQQCoC$C$oqCqcambioJ C#CExportar Importaciones C CC Enviar XMLCEnviar+Cinmovilizados.xml% &$C cambio.xml%C cat_com.xml$C grupos.xml$C lineas.xml&C clientes.xml)Cproveedores.xml%C centros.xml%C cosxcue.xml%C cuentas.xml0Cremitos_pendientes.xml%C pedidos.xml2Ccondiciones_cobranza.xml(Cvendedores.xml*Ccontribucion.xml!CEnviar articulos.xml'C articulos.xml"CEnviado articulos.xml*CEnviar articulos_completo.xml0Carticulos_completo.xml+CEnviado articulos_completo.xml"CCleanup artculos XML5Ccomprobantes_encabezado.xml2Ccomprobantes_detalle.xml3Ccomprobantes_cobranza.xml)Ccc_clientes.xml/Cordenes_de_compra.xml8Cordenes_de_compra_reservas.xml+Cimportaciones.xml%@'G(c:\sistema\2000% ^' Csys_procesando*C Terminado Ct CFinBUXDEBUGXAUTXTEST XNOENVIARX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDCP_DOSP_EMP LOG_ONECLICKXSOLOLOG XMSGTITULOOEXLISTADOS EXPORT_DIRMENSAJEXDIR P_DIR_EXPORTP_DIR_EXPORT_GLOBALP_CODEMPXOKSALIDA SP_MENSAJESYS_PROCESANDOCUENTASCOSXCUECOSTOSLINEASGRUPOSCAT_COMIDX04TCCVENTVENTASP_LOCALIZACIONSYS_MONEDAS_BNASYS_MONEDAS_CHILESYS_MONEDAS_URUGUAYSYS_MONEDAS_BOLIVIASYS_MONEDAS_USASYS_MONEDAS_PARAGUAYSYS_MONEDAS_PERUSYS_MONEDAS_COLOMBIASYS_MONEDAS_MEXICOABREVCUENTACOD_CUE CODIGO_CUEDESCR DESCR_CUENTAATRIBUTO IMPUTABLEXLINEA TIENE_LINEALINEA TIENE_CENTROSNIVELTERMINALQ1XNIVELFN_NIVEL XTERMINALXNIVEL2XHEADQ2INQUERYFN_XMLCENTRO DESCR_CENTROCOD_CENQEXPORTAR_CASHFREEIN_SQL_MOVIMIENTOSP_LOCAL INMOVILIZADOSCODIGOEXPORTAR_SCHILLIGSQL_RPTARTICULOSCOD_INSULT_COMULTCOMULT_VENULTVENINMOV EST_INMOVALLALTAULT_MOVEXTSQL_RPTPROVEEDORESSQL_RPTCLIENTES MASTERLINEDISTINCTGRUPOEXPORTAR_INMOVILIZADOSREMITOS_PENDIENTESEXPORTAR_INDICADORESVE_SQL_PEDIDOS_V2TMPQ1PEDPEDIDOPED_INIPEDIDO_ORIGINALFECHAFEC_INIFECHA_ORIGINALENTREGA FECHA_ENTREGACOD_CLINOMBRE NOMBRE_CLICOD_AGENOMAGE NOMBRE_VENTRANMONMONEDACBIOCAMBIOTOT_VENSUBTOTALBASE DESCUENTOS IMPORTE_O IMPUESTOSTOTAL IMPORTE_MOSALDOFECHAFCFACTURAEST_DESP PENDIENTEMOTDEMDMOTDEMENT FECHA_REMITOFEC_PROBFECHA_PROBABLEPER_ENTPER_FACSALDO_US REM_A_FAC IMPORTE_USREMITIDOQPEDPLANPLAZOCUOTAVARIABLECONTADOCONDCOBRAGENTECLASEEXPORTAR_ONE_CLICKSCH_SQL_CONTRIBUCION2CLIENTEFEC_ENTTIPOCPBTCOMPROBREMITOCOD_ART DESCRIPCION RECEPCIONCANTIDADCOS_LIFOPRECIOBRUTOBONIFCOMISOTROSNETOCOSTO TOT_COSTO PER_COSTOCONTRIB PERCONTRIBLIN_DESMLINEAMLIN_DESGRU_DESSUBGRUPO SUPERGRUPODSPCODALT1 PROVINCIAPAISFACTOROTREFOCCOS_MOMON_MOFOB_MO MON_MOTXTERREF_EXTCUENTAS_CORRIENTES_CLIENTES COMPROBANTESORDENES_DE_COMPRAINDICE1DOLARINDICE2 DOLAR_AUSINDICE3CORONAINDICE4YENINDICE5EUROEXPORTAR_IMPORTACIONESENVIARSP_OCULTAR_DEFINITIVAMENTEH CRC0Q? B CRC0Qf B CRC0Q B CRC0Q B 2 BBUXCUE%CtmpFQ%Cq@FQ%Cq1bFQ%Cq2FQBUTMPQQ1Q2f%T*C NO Enviar: \B 'CEnviar: \T  T T T  T  T T  @T .TG+(listados5Tpdi.oneclickeb.comXT(/etls/ftps/schillig/schilligtest/gespro/CCCC@/6TftpreedTreed123 T-DCEnviar: FTP: Multipais: CSINO6,CEnviar: FTP: Destino: (T<TCFTPN1CEnviar: FTP: Enviando: CCZ%C\0&CExiste \ ")C No existe \TC\CoC ch_ZC bo_EC ur_0C us_C py_xx_666666% -CEnviar: FTP: Error:  ?(CEnviar: FTP: OK! <<BU XDIRXARCHIVOXAUTXLOGFILE XNOENVIAR LOG_ONECLICKFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULELISTADOSWWCLIENTD_HOSTD_FTPDIRD_USRD_PWD P_MULTIPAIS OLOCALIZACIONPAIS D_PASSIVEZZOXRESFTPSENDP_LOCALIZACION CERRORMSGDESTROYSTTTTT  U THISHOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWDPASSIVE D_PASSIVER 4KCC CU CFILEORIGEN CFILEDESTINOTHIS FTPCONNECTHOST FTPGETFILEEXFTPDIRFTPCLOSE4TTT !T CC 8C C Conectando...C%C DC Enviando...C%C (CDesconectando... C @C rC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CBCU CFILEORIGEN CFILEDESTINOXAUTTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTPPASSIVEXMAX FILE_SIZENFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOST CERRORMSG FTPSENDFILEEXFTPDIRFTPCLOSE LOG_ONECLICK ESTADO_RELvH$o VC Procesados: C_ oR ULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNK LNTOTALBYTES ESTADO_INCC%C9T log_oneclick %a8G %#G(\log\C.txt $G(\log\C.txtG %G;***********************************************************CC GG(BUXTXTXINICIOXLOGFILEP_SYSTEM(%CtmpFQ%Cq@FQ%Cq1bFQ%Cven_operFQ%CccclieFQT TC$Gve_sql_comprobantes_emitidos_v2tmpaaaT C]FQ \tmp\tmp ri1tmp C  | i1tmp C  i1tmp C 0>  C = 00C  R%otmp QQQQQQQ Q!"Q#$Q%&Q'()Q*+Q,-Q./Q01Q23Q34Q5678$6Q9&7Q:38Q;q1)(<\comprobantes_encabezadoԻ%Cventas QventasF=otmpQ>ventasQ?> ?@QA?BQC?DQE?FQ?GQH?IQJC>  =>K?L?K1 \tmp\tmp_detalle&(<\comprobantes_detalleԻF%Cven_oper Qven_oper%Cccclie QccclieoccclieXven_oper OKOKMNOKQPQRSTUQ(NVcdMKMN CO MNqotmpXq MN K  C = 00C  RQ OKPQQVRQJSQWT(CO q'(<\comprobantes_cobranzaԻ-Cq1comprobantes_encabezado<X3C tmp_detallecomprobantes_detalle<X*Cqcomprobantes_cobranza<X%CtmpiFQ%CqFQ%Cq1FQ%Cven_operFQ%CccclieFQ FQ BUYTMPQQ1VEN_OPERCCCLIEXDESDEXHASTAEXPORTARVE_SQL_COMPROBANTES_EMITIDOS_V2XDETALLEP_LOCALCOM_NUMCOM_CODIDALLCOM_FECFECHAREM_VENREMITOCLI_CODCLIENTEAGE_CODVENDEDORPEDIDOOCMONCPBTMONEDAMONTXTCOM_BRUBRUTOCOM_DEC DESCUENTOCOM_NETNETOCOM_IMP IMPUESTOSCOM_TOTTOTALMONEXTTOTAL_MECAMBIOPLA_CODPLANPLA_DES PLAN_DESCRVENC1VENCFECEST FESTIMADAFCANCFCANCEL TOTAL_REF CAMBIO_REF CAMBIO_USDSALDOSALDO_ME SALDO_REFPAGADO PAGADO_ME PAGADO_REFXDIRVENTASTVCOD_INSCODIGO RECEPCIONCANTIDADCOS_LIFOPRECIODES_INSTOT_VENPESOSDESC_INSDESCRCAUSAFAC_VENREFCAUCOMPROB FECHA_CANCCAJ_PRODES_VAL DIF_VALORTIPOCOEFICIMPORTEFCHEQUEFN_XML3%Ctmp&FQ%CqGFQIve_sql_cuentas_corrientestmpC 165 CX6F,Q\tmp\rpt_ve_cta_cte_export Cq cc_clientes%CtmpFQ%Cq(FQBUXTESTTMPQEXPORTAR_EXTERNOS_SCHVE_SQL_CUENTAS_CORRIENTESP_LOCALFN_XMLXDIR%CtmpFQIcm_sql_comprastmpC$mC$aa-/%C\tmp\ordenes_de_compra.xml0J\tmp\ordenes_de_compra.xml(\ordenes_de_compra.xml8%C#\tmp\ordenes_de_compra_reservas.xml0}\#\tmp\ordenes_de_compra_reservas.xml(\ordenes_de_compra_reservas.xml%CqFQ%Cq1FQBUTMP EXPORTAR_1CM_SQL_COMPRASP_LOCALXDIRQQ1%CtmpFQ+ve_sql_remitos_emitidostmp%CtmpjQQ\tmp\tmp%Ctccvent Qtccventotmptccvent C Q C Q     q%CtmpQF (\tmp\tmp'Cqremitos_pendientes CBUTMPEXPORTAR_PENDIENTESVE_SQL_REMITOS_EMITIDOSP_LOCALTCCVENTPEDIDOREM_VENFEC_VENCOD_CLICLI_NOM IMPORTE_USSALDO_USEST_DESPQFN_XMLXDIRSALIDA%CtmpFQ%Cq@FQTcm_sql_importacionestmpC$C3 $FQ\tmp\tmpotmpQQ   Q  QQQQC dTQQQ !q"Cq importaciones#"%CtmpFQ%CqFQBU$TMPQEXPORTAR_IMPORTACIONESCM_SQL_IMPORTACIONESP_LOCALNUMERO IMPORTACIONOCSNOMBRE PROVEEDORFECHAFECEMBF_SALIDA FINGRESOE F_ING_ESTIFINGRESO F_ING_REAL FACTORTEOFACTOR FACTORREALDESVIO FOB_PESOSMONTXTFOB FOB_ORIGENCERRADAESTIMPDESTIMPSIRAREQSIMISIRASIRAFPRESIRAFAUTSIRAIMPFN_XMLXDIRfn_nivel0salida1enviarJ2 reset_data|8ftpget)9ftpsend9onftpbufferupdate< log_oneclick= comprobantes>cuentas_corrientes_clientesJordenes_de_compraKremitos_pendientesMexportar_importacionesOPl T T T T T    U HOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWDPASSIVE D_PASSIVEftpwwftpT1AQ"2AB2!#AAAAABaAAAA1A1A!A!A!A1AqA1A!AAr1112B12b12b12"13"r12212"r12R1ABQ!2aa"AArAA h%Aq"qAQrrA"qAARQrAa"QrAA!qAA"qAAR'B"qAAg"qAAw%qAA2B""ADAdeqAAqAAqAA&DqAABB"r$qAA 2Br2AQAAaQQQQ!0q!"R!1BAAB3qAA2AqAA!qAA1qAA1qAAA3qAqAy2AABr3aAb AArBqB92sB4qrrA!AB"411BRA5Ab1AAaqA0aaAB2BqAA"qAA2qAAqAArqAA4sAAA\!Aq% cAA!Ay s1CqAA"qAA2qAAqAArqAAqAAB2qBqAA"qAABqAA"qAAB3BqAAAA"qAA2qAAB3BqAADA1A: BArqsB3BqAA"qAAE %BqAA"qAAB1p>JKlKL}LU>VVVWWZZ[*[_:_;miscm o+ocqqt>t'ymU[%8<9p\Yb,4 %-9 cs_generarG+( dey_filters%Cmedidas ~Qmedidas%Cbieaux QbieauxT CC]R#T !empty(bienes.cod_ins)4T  C cod_insBienes +T  ClineaBienes+T  CgrupoBienes%)T   and bienes.marca=xmarca%'T  .and.bienes.est_act<=1%C C %aJT  9 and between(val(bienes.cod_pro), val(xdpro), val(xhpro)) ;T  * and between(bienes.cod_pro, xdpro, xhpro)%C 4T  # and alltrim(xmodelo)$bienes.modelo&%C C3 $ V8T  ' and BETWEEN(bienes.alta, xdfec, xhfec)Tselect !Tbienes.cod_ins, Tbienes.descr, !Tbienes.cod_pro, RTAnvl(left(proveedo.nombre,30),padr('DESCONOCIDO',30)) as pnombre,  Tbienes.medcod, #Tbienes.medauxcod, *Tmedidas.descr as medida,  Tbienes.factor, !Tbienes.cod_cen, #Tbienes.subcentro, Tbienes.linea, GT6nvl(lineas.descr,padr('SIN LINEA',30)) as lineadescr, Tbienes.grupo, GT6nvl(grupos.descr,padr('SIN GRUPO',30)) as grupodescr, T bienes.peso, #Tbienes.cantxbult, #Tbienes.volxbulto, #Tbienes.compuesto, #Tbienes.importado,  Tbienes.pesoxu, !Tbienes.pesobru, 1T evl(bienes.venta,[N]) as venta, 3T"evl(bienes.compra,[N]) as compra, 1T evl(bienes.panol,[N]) as panol, 3T"evl(bienes.produc,[N]) as produc, !Tbienes.codalt1, !Tbienes.codalt2, !Tbienes.codalt3, !Tbienes.codalt4,  Tbienes.bultos, T bienes.bul, #Tbienes.atributos, T bienes.atr, T00 as moneda, T bienes.iva,  Tbienes.ivaper, #%C bienes.rg5329bC/ >T-iif(bienes.rg5329=[S],[SI], [NO]) as rg5329, T bienes.uven, "Tbienes.conjunto, !Tbienes.reventa,  Tbienes.barras, T bienes.dun, Tbienes.marca, GT6nvl(marcas.descr,padr('SIN MARCA',30)) as marcadescr, Tbienes.lotes, $Tbienes.tipostkmin, ET4iif(bienes.tipostkmin=2,[Das],[Unid]) as tipostkm, !Tbienes.stk_min, "Tbienes.stk_min1, !Tbienes.stk_ped, #Tbienes.mincompra, #Tbienes.cantxcaja,  Tbienes.demora, T bienes.venc, !Tbienes.des_ins, ,T000000000000.00 as cosact, T bienes.ii, !Tbienes.cod_cue, OT>nvl(left(cuentas.descr,40),padr('SIN CUENTA',40)) as cuedesc, !Tbienes.ven_cue, 'Tspace(40) as vendesc, !Tbienes.des_cue, 'Tspace(40) as desdesc, "Tbienes.ven_cuex, (Tspace(40) as vendescx, "Tbienes.des_cuex, (Tspace(40) as desdescx,  Tbienes.agente, GT6nvl(agente.nombre,padr('DESCONOCIDO',30)) as nagente, "Tbienes.comision, "Tbienes.tipo_art, "Tbienes.tipo_cos, !Tbienes.cta_var, !Tbienes.cta_con, "T' ' as agrupado,  Tbienes.modelo, 0Tbienes.ubicacion as ubicacion, 'Tbienes.demora as dem, +Tbienes.cat_com as catcom, %Tspace(3) as montxt, !Tbienes.ult_mod,  Tbienes.estven, *Testven.descr as destven, T bienes.ncm,  Tbieaux.origen, IT8iif( nvl(bieaux.revisado,2)=1, [SI], [NO]) as revisado,  Tbienes.cod_up, T bienes.alta, !Tbienes.ren_cum, HT7iif(bienes.est_act<=1,[Activo], [Inactivo]) as estado, .Tbieaux.factiv as activacion, ,Tbieaux.tipocos as tipocos, VTEiif(bieaux.ad_lic=1, [LA],iif(bieaux.ad_lic=2, [LNA],[])) as ad_lic,  Tbieaux.ad_not, #Tbieaux.descrampl, T bieaux.txt, $Tlineas.masterline, Tbienes.descr2,5T$evl(bienes.cuexart, [N]) as cuexart T from bienes GT6left join proveedo on bienes.cod_pro=proveedo.cod_pro BT1left join agente on bienes.agente=agente.cod_age ET4left join cuentas on bienes.cod_cue=cuentas.cod_cue @T/left join lineas on bienes.linea=lineas.codigo @T/left join grupos on bienes.grupo=grupos.codigo @T/left join marcas on bienes.marca=marcas.codigo CT2left join medidas on bienes.medcod=medidas.codigo BT1left join bieaux on bienes.cod_ins=bieaux.codigo AT0left join estven on bienes.estven=estven.codigo !Twhere ( )#Tinto cursor tmpcur &xsql otmpcurXmedidas %&Xbieaux ' &Xlineas (#&C CXQ!C "Q"# Q$1)\tmp\ Q)\tmp\  %*QoborrarQ+XdpresupQ- -'+'+-.* tmpborrarF 3rborraro tmpborrar%12T2Ccfg_ventas_baseco_funciones.prg%C2l?C2No se pudo obtener la configuracin de ventas base3!%4 56 %C5627 PCCNo se pudo obtener la configuracin de ventas de la sucursal propia3F8G((cuentaF ~>:C:;><C<;>=C=;T>C XT?C XT@C XTAC XTBC X%1.6Clistados>@AB '6Clistados?@AB ' %C '2E ` TF-%FT>2GT?2HT@2ITA2JTB2K> CC>;> L8 > MC?;> N8 T>C XT?C XT@C XTAC XTBC X%16Clistados>@AB '6Clistados?@AB ' %C '2E  TF-%F~T>2GT?2HT@2ITA2JTB2K> OC>;> P8 > QC?;> R8 F F %S%TSCH" CU 6 CVF & 'WXYFZ ~F EZ&ZWZX%C45>[Z[\Z]^CZ[_F %`, $i1borraraN$i1borrarbN%Clisprec bQlisprec%Cstkxdep Qstkxdep ~( %TSCH+> a \333333? ffffff? Te ' X W bg $ >%C ' X WCZlispreccodigo.> acaTe ' X W bgHA j"  % % & C'g()\tmp\   & '()\tmp\   & ()\tmp\  !%}!%K!(& ChZCC'gZ()\tmp\  y!$& ChZ'()\tmp\  !$& ChZ ()\tmp\  j"%>"% "(& CiZCC'gZ()\tmp\  :"$& CiZ'()\tmp\  f"& ()\tmp\ !()\tmp\rptarticulos%TSCH` +%Cq_ant_1"FjQ%Cq_ant"FkQostkxdepQmXdespachoQs m&mn'nXcomprasQu m&'m&mnmoCCCmn CpCq6QrCmo Cm& mo m&mnmoq_ant_11oq_ant_1&CrQp&q_ant& &&%Cq1X$FvQ%Cqy$FwQoborrarXmovstockQz ' & ' CC pQx 'xC$! h " q1oborrarXq_ant 'k&Xq1 'v' CvxQx{Q|}Q~ aQ bQ "QC (QC $C(XQCkpQ Qq%C export_sch&FQ"()\tmp\export_sch.dbf"Q)\tmp\export_sch.dbfi1 export_schai1 export_schbi1 export_sch"i1 export_sch(i1 export_sch$i1 export_sch(i1 export_schaN(i1 export_schbN(i1 export_sch"N"i1 export_schN "i1 export_schC(i1 export_schDi1 export_schD"i1 export_schCi1 export_schDJ>ab"i1 export_schi1 export_schi1 export_schi1 export_schi1 export_schi1 export_schi1 export_sch"i1 export_schC"i1 export_schC(i1 export_schDo export_schQcomprasQuproveedoQ' C'CqQ''  ' 'qq1oq1' CCCC\g CCC\g CCC\g $QC(\QC@\Qq& ''F ~ +Fw E'F*>www%Cq1++FvQ%CqL+FwQ%Cq_ant_1s+FjQ%Cq_ant+FkQ%C export_sch+FQF Q )\tmp\ .dbf )\tmp\ .idxBUXDBIEXHBIEXDORDXDSEPXDFOR CS_LOG_INI CS_GENERAR DEY_FILTERSMEDIDASBIEAUXBORRARFILTROBIE_GET_BIE_FILTERXDINSXHINSP_NUMINSBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUXMARCAXDACTXDPROXHPROP_PRONUMXMODELOXDFECXHFECXSQLTMPCURDESCR MEDIDAAUXEXTLINEAS DMASTERLIN MEDAUXCODCODIGOCOD_INS MASTERLINEP_LOCALXDPRESCBDPRESUPDPNUMERO TMPBORRARALLP_CO_CONFIG_VENTAS OCFG_VENTASMENSAJE P_SUC_PROPIASUCPROP CFG_VENTAS CONFIGURARCUENTASCUENTACOD_CUEFN_ABREVCTA_VARCTA_CONXCUXDEXDE1XDE2XDE3VEN_CUELISTADOSCONFIGURAR_ARTICULOXOK CUENTA_VENTASCUENTA_DESCUENTOSCUENTA_DESCUENTOS1CUENTA_DESCUENTOS2CUENTA_DESCUENTOS3VENDESCDES_CUEDESDESCVEN_CUEXVENDESCXDES_CUEXDESDESCXXDTIPP_EMPCOSTO_CALCULADO ULTIMO_COSTOATRBULID Q_COSTOS2MONEDACOSACTCOSTOMONTXT MM_MONEDAXPRECIO_Y_STOCKPRECIOSTOCKLISPRECSTKXDEPXIDARR_STK XCANTIDADLINEAGRUPOQ_ANT_1Q_ANTDISTINCTSDESPACHOCANTIDADFECHAFEC_COM ULT_COMPRADCOMPRASCQ1QULT_MOVMOVSTOCKMDEMDEMORACATCOMCAT_COMPRECIO1STOCK1EXT1ML1DML1ULT_COM1ALTAALTA1 EXPORT_SCHMLDMLULT_COMULT_VENINMOVPCODPNOMPFECHAEPNOMBRECOD_PROORDENPROVEEDO-4F EF BUXCOD_CUECUENTASBORRARABREV41QEXPORTACIONES_CRYSTAL Imp_exp.vcxETCexportaciones_crystal Imp_exp.vcx rptarticulosT\tmpTTT Ta C BU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG2 EXP_TABLA%Cq_costos!Q%Ccos IQcos^ocosC < q_costos1%o q_costos1- q_costos2F T dsgsdjlldflgjsdlf ~% vbr q_costos2 T %Cq_costosQBU Q_COSTOSCOSCODIGOATRBULFECHACOSTOMONEDA Q_COSTOS1 Q_COSTOS2XOLD%C q_costos2)Q%Ccos QQcosAocos- q_costos2F 8C Registros: CCCNZ \sch_costo_articulo T  ~NT  <CC  Z -   \sch_costo_articulo T  T T TC$ T TC$ TC$^ cs_generar    Xr q_costos2   C$,Cfin \sch_costo_articulo%Cq_costosQBUXDMON Q_COSTOS2COSCODIGOATRBULFECHACOSTOMONEDABORRARP_SYSTEMXACCCOD_INS XERR_COSTO XMSG_COSTOXCOSTO XFECHA_COSTO XMONCOSTO XFECHA_TC1XDFEC OBTENER_COSTO CS_GENERARfn_abrevw1exportar_schillig1 ultimo_costo33costo_calculadoE5uRAS1A!AS2A2AqAAA"AAbAC!11qq11111112A!qGQ!11qq!!q!"!#qQa1BQq!Q1!1 2qQAA3"AAAAsr"!!2baAABcCdC2baAABcCdCrAt1bAratrTABBrAA1A1Abr!"A1Ar!"ABBB11AA21AAAA21AAABqAAaqAA83qAA!qAA @qqAA""rqqqqq!!!rqqqqqq%! 'rqrA2qAA"qAAqAAbqAAqAABrAB2qqq3qQ"BB2ARARr1!AAAB3qARArrBAC1BC"CE3EGGL%%W'%CyvWb74    %Ccuentas cQcuentas%Cpro2 Qpro2%Clineas QlineasTCC]RTC T select proveedo.* , nvl(provinc.descr,space(40)) as descprov , nvl(paises.descr,space(40)) as descpais , nvl(fletes.nombre,space(30)) as fnombre , nvl(condpago.descr,space(25)) as descfpag , nvl(catpro.descr,space(30)) as catdescr , nvl(catpro2.descr,space(30)) as catdescr2 , nvl(catpro3.descr,space(30)) as catdescr3 , nvl(lineas.descr,space(30)) as dlinea , " " as agrupado , space(30) as ivadescr , iif(proveedo.m,"SI","NO") as dm , space(40) as gandescr , space(40) as dtipoiva , space(40) as dciti , space(40) as diibbcm , iif(echeque=0, "SIN DEFINIR",iif(echeque=1, "SI","NO")) as decheque , iif(proveedo.est_act<=1,"ACTIVO", "INACTIVO") as dest_act , iif(proveedo.artpropios="S","SI", "NO") as dartprop , iif(proveedo.bc="S","SI", "NO") as dbc , iif(proveedo.calif=0,"EN EVALUACION",iif(proveedo.calif=1,"APROBADO", "RECHAZADO")) as dcalif , iif(proveedo.ivacat2=0,"COMPROBANTES A", iif(proveedo.ivacat2=1,"COMPROBANTES M",iif(proveedo.ivacat2=2,"COMPROBANTES A CON LEYENDA",iif(proveedo.ivacat2=3,"COMPROBANTES A CON CBU INFORMADO",space(40))))) as dletram , iif(proveedo.tipo_afip<=1,"COMUN", iif(proveedo.tipo_afip=2,"ADUANA", iif(proveedo.tipo_afip=3,"SERVICIOS PUBLICOS", iif(proveedo.tipo_afip=4,"SEGUROS", padr("ERROR",20))))) as dtipo_afip , iif(proveedo.ganancias1="S","SI", "NO") as dgan , iif(proveedo.ibret=0,"SIN CLASIFICAR",iif(proveedo.ibret=1,"ADQUISICION DE COSAS MUEBLES",iif(proveedo.ibret=2,"LOCACIONES Y PRESTACIONES DE SERVICIOS",iif(proveedo.ibret=3,"PRESTACIONES DE SERVICIOS EVENTUALES",iif(proveedo.ibret=4,"TRANSPORTE AUTOMOTOR",space(30)))))) as dibret , iif(proveedo.retmono=0,"SIN CLASIFICAR",iif(proveedo.retmono=1,"LOCACIONES/PRESTACIONES DE SERVICIOS",iif(proveedo.retmono=2,"VENTA DE COSAS MUEBLES",space(30)))) as dretmono , iif(proveedo.retcp=0,"EXENTO O NO ALCANZADO", iif(proveedo.retcp=1,"SERVICIOS DE INVESTIGACION Y SEGURIDAD",iif(proveedo.retcp=2,"EMPLEADORES",space(30) ) )) as dretcp , iif(proveedo.retar=0,"EXENTO O NO ALCANZADO", iif(proveedo.retar=1,"EMPLEADORES",space(30))) as dretar , nvl(pro2.emailpagos,space(60)) AS emailPA , nvl(pro2.emailoc,space(60)) AS emailOC , space(60) AS dcta_acred , space(60) AS dcta_compr , nvl(pro2.cbu,space(22)) AS cbu , {} as fec_ult from proveedo left join pro2 on proveedo.cod_pro=pro2.cod_pro left join provinc on proveedo.provincia=provinc.codigo left join paises on proveedo.pais=paises.codigo left join fletes on proveedo.cod_fle=fletes.cod_fle left join condpago on proveedo.fpag=condpago.plan left join catpro on proveedo.cat=catpro.codigo left join catpro2 on proveedo.cat2=catpro2.codigo left join catpro3 on proveedo.cat3=catpro3.codigo left join lineas on proveedo.linea=lineas.codigo order by proveedo.nombre where &xwhere into table (p_local+"\tmp\"+borrar) Q\tmp\%C ganancias 0 !Q \gananciasFGI& (\C]GI FG-(>CC !C#"$C%Inscripcin no acreditadalC%Convenio MultilateralEC%Ingresos Brutos$C% Exento Error !!!6666~C' C( %C' C'cuentascuenta>) %C( C(cuentascuenta>* Cfec_ult+FG!(F%C  T, 1aaa=1set filt to &xdfor %,OC=Error en la frmula del usuario !!! No ser tomada en cuenta.xG(on error &onerr H L& -(\tmp\ "& .-(\tmp\ 2%/"& CC0gZ(\tmp\ & 0(\tmp\%1%Ccompras 'Qcompras%Ccccomp UQcccomp%456 1Q\data\CC6Z\compras70Q\data\CC6Z\cccomp8i1borrar9C$i1borrar:NF ~AT;0%456 LocomprasQ=XbienesQA >>>CCCC> ?6(=QQ:C0CB; ;ZZZZZZZZq1ocompras2Q=XbienesQA >>>CCCC> ?6(=QQ:C0CB; ;ZZZZZZZZq2oq2q1ǼqocccompQFcomprasQGF0CGHFId FJd QKF0;F0G0 FLGL FMGM qq K(OKocccomp2QFcompras2QGF0CGHFId FJd QKF0;F0G0 FLGL FMGM qq K(PKTQOP ocomprasQ=XbienesQA >>>CCCC> ?6(=QC0CB; ;ZZZZZZZZqocccompQFcomprasQGF0CGHFId FJd QKF0;F0G0 FLGL FMGM qq K(QKFE TR ~*TRRCCR , 6C%CR>TRCR=!F >9R >:Q%Ccompras2iF7Q%Ccccomp2F8Q%CqFEQ%CqqFNQF#(\tmp\rptproveedores%SSCHg%Cq19FCQ%CqZFEQmoborrarXcccompQ= 000CCBQT0TC$q17oborrarq1CT0C0q"(\tmp\export_sch.dbf%Cq1BFCQ%CqcFEQFQ \tmp\.dbf \tmp\.idxBUUXDPROXHPROXDCATXHCATXDCAT2XHCAT2XDCAT3XHCAT3XDORDXDSEPXDPAIXDPRVXDFORCUENTASPRO2LINEASBORRARFILTROFILTRO_PROVEEDORESXWHEREP_LOCALP_SYSTEM GANANCIASCODIGOIVADESCR OLOCALIZACIONIVA_CATEGORIA_PROVEEDORES_TEXTOIVACATGANDESCRDESCRDTIPOIVA#IVA_CLASIFICACION_PROVEEDORES_TEXTOTIPOIVADCITI$IVA_CLASIFICACION_CITI_COMPRAS_TEXTOCITIDIIBBCMIIBBCMALLCUE_DEUCUE_COM DCTA_ACRED DCTA_COMPRSYS_MAAANOMBRECIUDADP_PRONUMCOD_PROXDDETCOMPRASCCCOMPP_CODEMPP_UNOP_DOSCOMPRAS2CCCOMP2DETALLEIMPORTEXCOD_PRODISTINCTCCOD_INSDESC_INSBIENESBFEC_COMQ1Q2QCCCOTOT_COMDESC1DESC2TOTALOPPAGOQQ XIMPORTE1 XIMPORTE2XIMPORTEXTXTP_EMPULT_COM^TproveedoT.t."%CX CX %]T.and.val(xdpro)<=val(.cod_pro).and.val(.cod_pro)<=val(xhpro) IT .and.xdpro<= .cod_pro.and..cod_pro<=xhproH X%T and .pais>1 0T and between( .pais,0,1) )T and  .pais=xdpai% .T .and.xdprv= .provincia% AT .and.xdcat<= .cat.and. .cat<=xhcat%   ET .and.xdcat2<= .cat2.and. .cat2<=xhcat2%   NET .and.xdcat3<= .cat3.and. .cat3<=xhcat3 BU XTABLAFILTROXDPROXHPROP_PRONUMXDPAIXDPRVXDCATXHCATXDCAT2XHCAT2XDCAT3XHCAT341QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxrptproveedoresT\tmpTT CBUXTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA/rptproveedoresJ BUOFORMRPTPROVEEDORES CUEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aH  T-TC  A   yTa   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDCUEXHCUEXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTARfiltro_proveedoresexportar_schillig obtener_form! ejecutar_sql="ejecutar_reporteg"z1AbA!ASAqbas"AA"AABBuasTa1aAqA11!!AA1A!AAAr '  '   BrQ!AAArBqAAqAA!qAA1qAArE3b2qAA!qAAw"2qAA!qAABrAB3R"AAAQ11ABAAQAQA2qq"CA2q33AAA1Q1111AA1*~.z.c2}23<3Q3z37%3MNQM9C]X#c73[4     TCC]RTCC]R%Ccatcred Qcatcred% T )% T % T%n T Td< *%     FG((codcli>F >%CccventF!QFQccventfecha<G(#VG-($#)~+C+ & F! T'&F%' >'%!(F E!$C!(Z%' >'F!F!Q%)*+ t%CccventTF!QF1Q,\data\CC)Z\ccventfecha<G(#VG-($#)~+C+ & pF! T'&F%'  >'%!(eF E!$C!(Z%'a >'F!%CccventF!Q%Ccfg_lis Qcfg_lisT.C/%C cligruece Q cligruece T1.[select clientes.cod_cli , 0000 as sucursal , clientes.nombre , space(40) as nomsuc , clientes.domicilio , clientes.dom2 , clientes.cod_zip , clientes.zip2 , clientes.ciudad , clientes.ciu2 , clientes.provincia , clientes.pro2 , padr(nvl(provinc.descr,''),40) as descprov , padr(nvl(pro2.descr,''),40) as descprov2 , iif(clientes.pais=0,1,clientes.pais) as pais , iif(clientes.pais2=0,1,clientes.pais2) as pais2 , padr(nvl(paises.descr,''),40) as descpais , padr(nvl(pai2.descr,''),40) as descpais2 , clientes.zona , clientes.phono , clientes.pho2 , clientes.inscripcio , clientes.ib , clientes.ivacat , space(40) as iva , iif(clientes.rg5329="S","SI", "NO") as rg5329 , clientes.suc , clientes.horario , nvl(catcred.descr, padr("SIN CATEGORIA",40)) as catcred , nvl(catcred.credito,clientes.credito) as credito , clientes.cat , clientes.fpag , clientes.cobrador , clientes.contaccob , clientes.fecult , clientes.a1 , clientes.a2 , clientes.a3 , clientes.a4 , clientes.lista , nvl(cfg_lis.descr,space(40)) as dlista , clientes.vendedor , clientes.comi_ven , clientes.comi_cob , nvl(catcli.descr,space(40)) as catdescr , nvl(agente.nombre,space(40)) as anombre , nvl(zonas.descr,space(40)) as zondescr , clientes.fax , clientes.fax2 , clientes.email , clientes.email2 , clientes.web , nvl(condcobr.descr,space(40)) as descfpag , nvl(fletes.nombre,space(40)) as fnombre , clientes.contacven , clientes.des_com , clientes.des_com2 , clientes.des_com3 , clientes.des_com4 , clientes.des_com5 , clientes.des_esp1 , clientes.des_esp2 , clientes.des_esp3 , clientes.des_art , clientes.deposito , clientes.fantasia , cuentas.abrev as abrev , cuentas.descr as cuedescr , " " as agrupado , clientes.comentario as nota , clientes.alta , clientes.tarjeta as varios , iif(cliotros.cuitvalido=1, "VLIDO ",iif(cliotros.cuitvalido=-1, "NO ENCONTRADO", space(12))) as cuitvalido, cliotros.cuitvalfec , cliotros.cuitvalnom , clientes.cod_fle , clientes.ult_mod , iif(clientes.est_act<=1,"ACTIVO","INACTIVO") as est_act , clientes.proveedor , iif(clientes.docrec, "SI", "NO") as certrem , clientes.dircoord , clientes.entcoord , clientes.tipodoc , space(30) as dtipodoc , iif(nvl(cliotros.doldivisa,0)=0,"--",iif(nvl(cliotros.doldivisa,0)=1,"SI","NO")) as doldivisa , iif(nvl(cliotros.ndxdifcbio,0)=0,"--",iif(nvl(cliotros.ndxdifcbio,0)=1,"SI","NO")) as ndxdifcbio , nvl(cliotros.factiv,{}) as factiv , iif(nvl(cliotros.revisado,2)=1,"SI", "NO") as revisado , clientes.gruec , space(40) as dgruec from clientes left join agente on clientes.vendedor=agente.cod_age left join provinc on clientes.provincia=provinc.codigo left join provinc pro2 on clientes.pro2=pro2.codigo left join paises on iif(clientes.pais=0,1,clientes.pais)=paises.codigo left join paises pai2 on iif(clientes.pais2=0,1,clientes.pais2)=pai2.codigo left join zonas on clientes.zona=zonas.codigo left join fletes on clientes.cod_fle=fletes.cod_fle left join condcobr on clientes.fpag=condcobr.plan left join catcli on clientes.cat=catcli.codigo left join cuentas on clientes.cue_deu=cuentas.cod_cue left join cliotros on clientes.cod_cli=cliotros.cod_cli left join catcred on clientes.catcred=catcred.codigo left join cfg_lis on clientes.lista=cfg_lis.lista order by clientes.nombre where &xwhere into table (p_local+"\tmp\"+borrar) Q2\tmp\>3C54%Ctipodoc Q,\tipodocF6G((codigoFG-(C6Z6G-(80>96:;0:G-(~6` T<=%-<T<C<C-<[%-<T<C<C-<[ >=<T.C>% T1. .T1.f.[ select sucursal.cod_cli , sucursal.sucursal , nvl(clientes.nombre,space(40)) as nombre , sucursal.nombre as nomsuc , sucursal.domicilio , sucursal.cod_zip , sucursal.ciudad , sucursal.provincia , nvl(provinc.descr,'') as descprov , sucursal.pais , nvl(paises.descr,'') as descpais , sucursal.zona , sucursal.phono , clientes.inscripcio , iif(sucursal.cod_fle#space(6),sucursal.cod_fle,nvl(clientes.cod_fle,space(6))) as cod_fle , 'S' as suc , sucursal.horario , space(40) as catcred , clientes.credito , clientes.cat , clientes.fpag , iif(sucursal.cobrador#space(8),sucursal.cobrador,nvl(clientes.cobrador,space(8))) as cobrador , sucursal.contaccob , sucursal.fecult , clientes.a1 , clientes.a2 , clientes.a3 , clientes.a4 , iif(sucursal.lista#0,sucursal.lista,nvl(clientes.lista,0000)) as lista , nvl(cfg_lis.descr,space(40)) as dlista , iif(sucursal.vendedor#space(8),sucursal.vendedor,nvl(clientes.vendedor,space(8))) as vendedor , iif(sucursal.comi_ven#0,sucursal.comi_ven,nvl(clientes.comi_ven,0)) as comi_ven , iif(sucursal.comi_cob#0,sucursal.comi_cob,nvl(clientes.comi_cob,0)) as comi_cob , space(40) as catdescr , nvl(agente.nombre,space(40)) as anombre , nvl(zonas.descr,space(40)) as zondescr , sucursal.fax , sucursal.email , space(50) as web , nvl(condcobr.descr,space(40)) as descfpag , nvl(fletes.nombre,space(40)) as fnombre , sucursal.contacven , sucursal.des_com , sucursal.des_com2 , sucursal.des_com3 , sucursal.des_com4 , sucursal.des_com5 , sucursal.des_esp1 , sucursal.des_esp2 , sucursal.des_esp3 , 000.00 as des_art , sucursal.deposito , space(9) as abrev , space(40) as cuedescr , " " as agrupado , sucursal.entcoord , iif(sucursal.est_act<=1,"ACTIVO","INACTIVO") as est_act from sucursal left join clientes on sucursal.cod_cli=clientes.cod_cli left join agente on sucursal.vendedor=agente.cod_age left join provinc on sucursal.provincia=provinc.codigo left join paises on sucursal.pais=paises.codigo left join zonas on sucursal.zona=zonas.codigo left join fletes on sucursal.cod_fle=fletes.cod_fle left join condcobr on sucursal.fpag=condcobr.plan left join cfg_lis on iif(sucursal.lista#0,sucursal.lista,nvl(clientes.lista,0000))=cfg_lis.lista order by sucursal.nombre where &xwhere into cursor cur_suc1 readwrite "%CX CX !F?%@ #CgCBg CBgCg   !BB  &ocur_suc1CC cur_sucFD ~%rborrar$ EFGHIJKLMCN=O(PQRSTUVWXYZ[B\]^_`abcdefghijklmnopqrstuvwxyz{|}~D$D DEDFDGDHDIDJDKDLDMDCDNCD=C XDOD(DPCDC(XCDQCDRCDSDTDUDCDVCDWCDXCDYCDZCD[C(XDBD\D]D^D_D`DaDbDaDbDeDfDgDhDiDjDkDlDmDnDoDpDqDrDsDtDuDGDHDIDJDKDLDMDND~DF%C% T 1aaa=1set filt to &xdfor %%OC=Error en la frmula del usuario !!! No ser tomada en cuenta.xG(on error &onerr % &S>vGwHxIyJzK{L|M S>GHIJKLM % )CemailsoclimailQborrarQ EQ bQ CC \0 CC \1AO66QCC \0 CC \1AO66QCC \0 CC \1AO66QCC \0 CC \1AO66QCC \0 CC \1AO66QCC \0 CC \1AO66QCC \0 CC \1AO66QCC  \0 CC  \1AO66QCC  \0 CC  \1HO66Q $$borrar1FQF(2\tmp\!Q2\tmp\FH)h* )& EF *& IEF 2h*%F*& CC$gZC Z d*& $C Z (2\tmp\rptclientes%  71%C0%Ccliotros *Qcliotros%Cclimail +QclimailTcT..t."%CX CX ,%+]T...and.val(xdcli)<=val(.cod_cli).and.val(.cod_cli)<=val(xhcli) ,IT.. .and.xdcli<= .cod_cli.and..cod_cli<=xhcli"%CX CX -%@,_T...and.val(xdage)<=val(.vendedor).and.val(.vendedor)<=val(xhage) -KT.. .and.xdage<=.vendedor.and..vendedor<=xhage% m-CT.. .and.xdzon<= .zona.and. .zona<=xhzonH-:. -%T.. and .pais>1 -0T.. and between( .pais,0,1) :.)T.. and  .pais=xdpai% ..T.. .and.xdprv= .provincia%  .AT.. .and.xdcat<= .cat.and. .cat<=xhcat% $/*T.. .and.xdlis=.listaG+(sys_mail_funcionesTCK-select c.cod_cli, c.nombre as empresa, o.nombre as nombre, o.email as email from clientes c left outer join climail o on c.cod_cli=o.cod_cli where c.cod_cli=o.cod_cli and !empty(o.email) and &filtro and (mail_mt_valor(o.mailtipo, xmtpos)=2) into cursor tmp_emblue % 0 (2\tmp\rptclientes1( \clientesbEԻ@bQ 31MC@No existe la carpeta GES EXPORTACIONES y no puede ser creada !!!B%SCH2%Cq1o1FQ%Cq1FQoborrarXccventQ $$$CC&Q$C$!C$d q1Aoborrarq1OQ$$q"(2\tmp\export_sch.dbf%Cq12FQ%Cq2FQF% 2 CFQ 2\tmp\.dbf 2\tmp\.idxBUXDTABXTITXDCLIXHCLIXDAGEXHAGEXDZONXHZONXDCATXHCATXDLISXHLISXDORDXDTIPXDSEPXDFORXDULTXDNOTXDSALXDPAIXDPRVXDXSUBORRARBORRAR1CATCREDXTABMAXARRARRCLIENTESCODCLIFECULTALLSUCURSALCCVENTFECHACAUSACOD_CLIAFEC_VENXSUCP_DOSP_CODEMPP_UNOP_SYSTEMCFG_LISFILTROFILTRO_CLIENTES CLIGRUECEXWHEREP_LOCALIVAFN_IVAIVACATTIPODOCCODIGOGRUECDTIPODOCDESCRDGRUECXTMP INSCRIPCIOFILTRO_SUCURSALCUR_SUC1P_AGENUMFORVENDEDORZONACUR_SUCNOMBRENOMSUC DOMICILIOCOD_ZIPCIUDAD PROVINCIADESCPROVPAISDESCPAISPHONOCOD_FLEHORARIOCREDITOCATFPAGCOBRADOR CONTACCOBA1A2A3A4LISTADLISTACOMI_VENCOMI_COBCATDESCRANOMBREZONDESCRFAXEMAILFAX2EMAIL2WEBDESCFPAGFNOMBRE CONTACVENDES_COMDES_COM2DES_COM3DES_COM4DES_COM5DES_ESP1DES_ESP2DES_ESP3DES_ARTDEPOSITOABREVCUEDESCRAGRUPADODOM2ZIP2CIU2PRO2 DESCPROV2PAIS2 DESCPAIS2PHO2ENTCOORDEST_ACTAAASYS_MDISTINCTCMNOMMAILCORREOMAILTIPOFACTPRESGCOBRECIMARKSEGEREMIPEDIPORTCLIMAILP_CLINUM XEXPORTAR EXPORT_DIRCLIOTROSXTABLASYS_MAIL_FUNCIONESXMTPOSMAIL_CAUSA_APOSEMPRESA P_DIR_EXPORTMENSAJEP_EMPQ1QULT_VENALTACODFLETEBONIFICACIONES#TclientesT.t."%CX CX %]T.and.val(xdcli)<=val(.cod_cli).and.val(.cod_cli)<=val(xhcli) IT .and.xdcli<= .cod_cli.and..cod_cli<=xhcli"%CX CX %_T.and.val(xdage)<=val(.vendedor).and.val(.vendedor)<=val(xhage) KT .and.xdage<=.vendedor.and..vendedor<=xhage%  \CT .and.xdzon<= .zona.and. .zona<=xhzonHq) %T and .pais>1 0T and between( .pais,0,1) ))T and  .pais=xdpai%  o.T .and.xdprv= .provincia%   AT .and.xdcat<= .cat.and. .cat<=xhcat%*T .and.xdlis=.lista BUXTABLAFILTROXDCLIXHCLIP_CLINUMXDAGEXHAGEP_AGENUMXDZONXHZONXDPAIXDPRVXDCATXHCATXDLISTsucursalT.t."%CX CX %]T.and.val(xdcli)<=val(.cod_cli).and.val(.cod_cli)<=val(xhcli) IT .and.xdcli<= .cod_cli.and..cod_cli<=xhcli% oCT2.and.xdzon<=clientes.zona.and.clientes.zona<=xhzon%)T.and.xdpai=clientes.pais% .T .and.xdprv= .provincia%   XAT0.and.xdcat<=clientes.cat.and.clientes.cat<=xhcat% *T.and.xdlis=clientes.lista BU XTABLAFILTROXDCLIXHCLIP_CLINUMXDZONXHZONXDPAIXDPRVXDCATXHCATXDLIS4H IBResponsable Inscripto }!BResponsable No Inscripto BExento BConsumidor Final #BIva Exento Oper.de Export. +BNo Responsable SB No Alcanzado  BResponsable Monotributo BNo Categorizado  BExento 2 BBUZ41QEXPORTACIONES_CRYSTAL Imp_exp.vcxDTCexportaciones_crystal Imp_exp.vcx rptclientesT\tmpTT C%CqFQBU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLAQ|TC]%Cql5FQ%CqVFQ,olisprec qloborrarXqlQ0 0XbienesQ8 019XatributoQ; 01029<XbultosQ4 0103494<Xcfg_lis >&'&      !"#$%&C'(C(XQ)*+,-./C01CXQ1C02CXQ2C03CXQ3CCC(қ CC(қ CC4(қQ(C0 QC0Q5*d +d ,d -d .d /d C0d dQ6*+,-./C0 0  C0 0  q (?\tmp\rptclientesQBU@XARCHQLQLISPRECPRECIOBONIFBORRARAGRUPADOCOD_CLINOMBREFANTASIA DOMICILIOCIUDADCOD_ZIP PROVINCIADESCPROVPAISDESCPAISPHONOFAXEMAILWEBZONAZONDESCRCATCREDCREDITOCATCATDESCRFPAGDESCFPAGFECULTA1A2A3A4VENDEDORANOMBRE CONTACVENLISTACFG_LISDESCRDLISTADES_COMDES_COM2DES_COM3DES_COM4DES_COM5DES_ARTLCODIGOATRBULBUBONIF_LBONIF_TBIENESBCOD_INSATRIBUTOACLAVEBULTOSCLIENTESP_LOCAL, rptclientesJ BUOFORM RPTCLIENTES CUEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT T aH ' T-TC  Q    Ta   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDCUEXHCUEXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMXDNUM1MOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTARfiltro_clientes8filtro_sucursal5=fn_iva?@exportar_schillig;BbonificacionesC obtener_formJ ejecutar_sqlPJejecutar_reportezJSQ1A2AA2qDqAqAsqAAqQqq1AaqQ1AAqAqAtqAAQqq1AaqQ1AAqACqqAAB1AQA7AqtAbAAAAAA8AP$q1AAiyQ;ArUa1aA1A289B32*sArrB1!1aAAAAA1A"AA"AA1AAQ11ABAA2Aq14ABAAAd6qAA!qAA+2qAA!qAABs4ArAB3R"AA"AA1AAQ11ABAA2A3R"AA1A2ABAA2A2q1111111q1Q111AB2qA"C`!qAAD3q2qAA!qAA <BB5q33AAA1Q1111AA1 PiU.2UeX`LxXhZgZn^w^ggggg%hk)%ѠĮ@gVKcS4 T%H1} RTS sT 2}TC$ T T 'CInicializando... T-G+(listadosT PT N T  T TNTSTSTNIJ( !K"  ! G*(T#$ \temp.txt G(#G G  T% T&4h1$\tmp\errores_contrib'CQ%Cborrar2F(QFh1$\borrar2)C *C+N,CP-N.D/C0C(Q%Ctmp_p146qF1QFQ$\borrar2% F h1$ \tmp_p146/C0C()C *C2C3C4C(.D5N6N7N8N9N:N;N<N=N>N?N@NANBNCN DN EN -N FCGNHC ICJC(KCLCMCNCONPC(QNRN SCTCUNVNWNXNYC ZN[C\D]C ^N _C `N aN bCQ$ \tmp_p1461($\borrarQFQ$\borrar1FcG((despachoFeG((idx04%Ccom QcomopFIG((codageFdG((despacho%Cimportac |Qimportac%CMovstock QmovstockFjG-(d/d%Cccclie QccclieFlG((codcliFnG((cuentaFpG((codins%Cpaises n Qr\paises%Csprgrupo Qsprgrupo%Cccvent Qccventccvfac%Cmotivos  Qmotivos%Cventas. FwQQventasx< J(x%y ? %S <Tz/xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec ; mTz`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec))) .and.cod_cue#"203010000"  %S =Tz0xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec  mTz`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec))) .and.cod_cue#"203010000""%{CX |CX %} YTzzH.and.val(xdcli)<=val(ventas.cod_cli).and.val(ventas.cod_cli)<=val(xhcli)  ETzz4.and.xdcli<=ventas.cod_cli.and.ventas.cod_cli<=xhcli%~ 0 &Tzz AND ventas.causa#"r"%s ,Tzz and !EMPTY(ventas.cod_ins)% ATzz0 and !EMPTY(ventas.cod_ins) and bienes.lotes=[S] 0%,DTzz3 and !(!EMPTY(ventas.cod_ins) and bienes.lotes=[S])FvG((codigoFG((codigoFpG-(C%Ccur_venFQselect ventas.* , iif(causa='V','A','Z') as ord from ventas left outer join bienes on ventas.cod_ins=bienes.cod_ins order by ord, bienes.linea, bienes.grupo, ventas.cod_ins where &filtro into table (p_local+"\tmp\cur_ven") QFwQ$ \tmp\cur_venwG-(3pG-(lG-(*tFtG-(,vFw%YLTz?!( (ccvent.causa="c" or ccvent.causa="d") and motivos.tipo=8) JTz=!((ccvent.causa="c" or ccvent.causa="d") and !motivos.ventas)% ATz4.and.xdzon<=clientes->zona.and.clientes->zona<=xhzon%CX/Tzz.and. xdprv=clientes.provincia%CxdpaibN T%%4Tzz#.and. not inlist(clientes.pais,0,1) *Tzz.and. xdpai=clientes.pais"%CX CX %WTzzF.and.val(xdage)<=val(ccvent.agente).and.val(ccvent.agente)<=val(xhage) CTzz2.and.xdage<=ccvent.agente.and.ccvent.agente<=xhage.%Cclientes.delgrupobN S)Tzz and clientes.delgrupo#1set filter to &filtro F1$& )*3($\borrarFw#)$CObteniendo ventas...+C+ '%tt*ww*+FtG((ccvfacEww*FwTwd td td td td td td td *%ww* A07-00000553V%%w*V Cw3 FpG((codins Ew3Fw %w3C32797[ Ta T T+ T T T T T T TT~TCwww*ww3wwwwwwF1 T-Eww*w3 TC4 T T TF1>AB >ZFG((codigo EpCF1>CpC>P4>EE>HCp>KCpK>/w>)w>*w*>3w3>.w>\w\>]w>0l0>LClL>NlL>OlM>MClMMF17>RtRStSTtTata%ta.%Ctccvent Qtccvent(%Ctatccventtccvord*F1>bbF1Fn%Cw3 !CpcuentascuentaTpA !CwYcuentascuentaTnAF1'>^n^_n_`FI EtIF1>ItI>JI08>55C  cc6"%S w5 '>6ww5 wd  &>6Cw6www=>77C  cc66F>88C  cc66%CMT78td >9%S IFI EtIF1mCww* Comisin : CCt @z 999.99_[tI] I0wwl0>;789:FpG((codins Ew3F1 >F%w O><CpCw6w3Cw<www3 0TCCw6w3%C *TCw<www3 ><S>UV[CC6WX]%w A01-000057168w3C40921Cw3>w3C40922Cw3>  }%5y><;5 p= ף?@%w A01-00005913w3C40922Cw3> %5><;5 ZB>?<>==<C  cc60>>CC;C=; dT6>?;=0>@CC;C?; dT6 >G  H  W /%SN t,  I % . C E C S   :%SS t,   % C  C  FwH Cb% C CX CX    j! v#+CBARQ@+CBA!RQ@*CBARQ@+CBA"RQ@ +CBAiRQ@+CBARQ@*CBA/RQ@+CBADRQ@+CBARQ@ +CBARQ@*+CBARQ@++CBA3RQ@,FwQF1>QUW W%%  #F15% $Noconver3dCTRC ZRC Z1 borrar3333GF1F ~$+:1Cd1F313 G FQF13Tz.t. C%C %T(!eof("BIENES")) J%0T#(!eof("BIENES").or. empty(cod_ins)) %  %3T".and.xdlin<=linea.and.linea<=xhlin% E&FpG-(AkTZ and between(iif(bienes.masterlin#0, bienes.masterlin, lineas.masterline), xdmlin, xhmlin)% &3T".and.xdgru<=grupo.and.grupo<=xhgru% 'QT@.and.xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgruT!()F1G-(3p8Cy .. \\ 6 dele for ¬filtro % '5&>4p4YpYC3 3H'1)  \(F& CA AB6CCAZ3)($\borrar K(; (G-(/l'& l03)($\borrar K(; ( C K( ) C K( 1) C K( T T T T T T T T T T T T T T T T T T T T T TB T T Ta*TFecha : CC$* Hora : C^T T%C* T * T T Tlistados6% S  u+ CH+i, C+, CF1y>2C*VFCYC*cNCDC*dND/C*MMVC*rRE 66666 CL, C i, C T C%C- -%C -T  \contribucion_C_a_C_C con_lotes-C con_lotescon_y_sin_lotes66%C  -cotmp_p146)*.\34Q FQd5Q<[Zq ( Ի(-4C'Archivos abiertos...no se registran !!! F ($\borrar%=.F1(($\tmp\rpt_sch_contrib_t1F('($\tmp\rpt_sch_contrib_2F'($\tmp\rpt_sch_contrib_3F(Q(T'Finalizando los datos...T.Q$\tmp\rpt_sch_contrib_t1-Q$\tmp\rpt_sch_contrib_3(olineas/ masterline%3C Suspendo?aosalidat1QXsalidat3Q /AX masterline /BC4C SIN LINEAQC4CSIN LINEA MAESTRAQCA / salidafinalH02 0Ho salidafinalQXbienes p33p4sf2 H1Oo salidafinalQXbienes p33p4<sf2 25o salidafinalQXlineas B/ABC4C(XQC7Q7C8Q8C9Q9C:Q:C;Q;C=Q= QC?Q? Q CGQG QQCG5Q!CUQ"CWQ#ABsf2>=; d;> ?; d;>Q"# #'($\tmp\rpt_sch_contrib_1Q 3F@osalidat1 Q Q tmps1>% d>  d'($\tmp\rpt_sch_contrib_1FQFQ%&S 4 C'F1QGG(G*G on escape &onesc BU(XVERSIONXDMONXDPESXFECHA_VERSION_3 XGLOBAL_ERROR OESTADOMAXOESTADO SET_AND_SHOW GUI_DEBUGLISTADOSXDPRNXDSEPXDMOTXHMOTXDBONXDCODXDCTRXDCHKXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICATEXTOBORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRETMP_P146TIPOCPBTCOD_INSDESCR RECEPCIONCOS_LIFOBRUTOBONIFCOMISOTROSNETOCOSTO TOT_COSTO PER_COSTOCONTRIB PERCONTRIBLINEAMLINEAGRUPOSUBGRUPO SUPERGRUPODSPFOBGRUPO_PFAGENTENOMAGECODALT1 PROVINCIAPAISCLI_PROVCLI_PAISGRU_DESFACTORTRANOTREFCOS_MOMON_MOFOB_MOCOF_MOCOD_CUEORICOS MON_MOTXTFEC_ENTREMITOERABREV LINCONTABPEDIDOREF_EXTCONVERDESPACHOIDX04COMOPCODAGEIMPORTACMOVSTOCKCCCLIECLIENTESCODCLICUENTASCUENTABIENESCODINSP_SYSTEMSPRGRUPOCCVENTCCVFACMOTIVOSVENTASXXXAXPOR_FECHA_ENTREGAFILTROXDCLIXHCLIP_CLINUMXREMITOSXDMAR XDCTRLIVAGRUPOSCUR_VENCOD_CLIFAC_VEN XCONTROL_IVAXDZONXHZONXDPRVXDPAIXDAGEXHAGEP_AGENUMXSIN_CLIENTES_DEL_GRUPOAVANCEGDESCDES_INSDESC1DESC2DESC3DESC4DESC5DESCA1DESCA2XPARCIALXRECOLDXSTKCANXDSPXDSPCANXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOREM_VENITMFEC_VENNOSTKFCDEREVERSIONENCXLINEAXLIN_DESXMLINEAFN_LINEAESPECPROVINCTCCVENTVEN_CUE XLINCONTABXDIMPXHIMPXDPRETOT_VEN CONVERSIONCOEFICCOEFXDCOMXDFCOMISIONCONTROLCONV_COSMONEDAXTC_A_FECHA_DE_COMPRACOSMONXCOSTO_3 MM_MONEDARND NC_GENERICASEPARADOMOVS ADICIONALFORXDORDXHORDCAU BORRAR3333ALL FN_FILTBIEXDINSXHINSFILTRXDLINXHLINXDMLINXHMLINLINEASXDGRUXHGRUXDSPRGRU NOTFILTROXDFECXHFECXDTIPXNETCTRLAGRUP_2SUM_NETOAGRUP_3AGRUP_6CA_BRUTOCA_BONIFCA_COMISCA_NETOCA_OTROS CA_TOT_COSTO CA_CONTRIBBA_BRUTOBA_BONIFBA_COMISBA_OTROSBA_NETO BA_TOT_COSTO BA_CONTRIBAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIBLINPAGMAXLININICIALXTEMPOLDLINOLDCODANCHOTAMMARGENMARGTAM DISPLAY_CTRTIPO_1TIPO_2TIPO_3XALIAS EXPORT_DIRXDESTINO P_DIR_EXPORT ART_DESCRCANTIDADQOEXMENSAJEVALUESALIDAT1SALIDAT3 MASTERLINESYS_MOSTRAR_SCREENST1ST3LIN_DESMLIN_DES SALIDAFINALSFSF2 SUM_CONTRIP_COSTO P_CONTRIBACCFOB TOT_COS_MO TOT_FOB_MOTMPS1 SUM_TOT_COXDTOTTOT_LINF"%C X C X {G-(CT2.and.xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcue% 3T".and.xdgru<=grupo.and.grupo<=xhgru%  DRTA.and. xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgru%C  % KT:.and.val(xdins)<=val(cod_ins).and.val(cod_ins)<=val(xhins) 7T&.and.xdins<=cod_ins.and.cod_ins<=xhins"% CX CX F#T.and.xdcen=cod_cenGI8index on cod_ins to (p_local+'\borrar1') for &filtro GI BUBIENESXDCUEXHCUECOD_CUECUENTASFILTROXDGRUXHGRUXDSPRGRUXHSPRGRUXDINSXHINSP_NUMINSXDCENXHCENr4%G%S%[BCT % ɚ; BCT BCT 5 TC% F B 0 TCFGF EGF% r,TCC6 T F B ,EC El cambio del dolar de la fecha C * no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B F B kBCU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXVERSIONXDPESXXAAAAAIDX04INDICE1 MENSAJE_WAITFECHA XGLOBAL_ERRORERRORES PRECIO_USS CONVERSION24% 5%N%a B  TCFGF EGF% >%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C    T TC  T F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %& B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F B BCBU XCOSTO_MOXMONEDAXFECHAXCODIGOXVERSIONAAABBBXDPESIDX04INDICE1XCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJE CONV_COS2Pr%CX CX   CX CX C SCH vB%Cmotinv QmotinvFG((codigoF G-( G-( dTW!eof("bienes").and.xdfec<=fecha.and.fecha<=xhfec.and.motinv.tipo=1 and motinv.con_op<=1GI`index on str(bienes.linea,2)+str(bienes.grupo,2)+cod_ins to (p_local+'\borrar3') for &filtro GI G-( F #)+C+ 8 TCO T T Ta T T+ T T T T TT{TCCXC @z 999999999999_M    F G((borrar3 #F T!-)%"" "  E T!C4  # %! F F > CC Z%>$CC @z 99999999999_>%M> > 8>&&C'( ) cc6 >*>++>,,>-->.+,- > >/ >0F G((borrar3 #F %123 ?2>4C 6C7 6 5 0T8CC7 6 5 >48 >48@>9:;C<=> >#F G((borrar3 #F <>??4C'( ) cc60>@CC.C?. dT6A>B.?0>CCC.CB. dT6A>D D>E E>FGF>HC I>JC J >KF G((borrar3HF G-(BULXDCLIXHCLIXDZONXHZONXDAGEXHAGE XDCTRLIVAP_EMPMOTINVCODIGOCONVERCOD_INSBIENESMOTIVOFILTRO REGCONVERXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOTRANSFITEMFECHABORRAR3TMP_P146ENCXDTIPDSPCOMPROBCAUSA RECEPCIONXDIMPXHIMPXDPRECOS_LIFOBRUTOBONIFCOMISNETONOMBREORICOSVENTASFEC_VENXFECHA_VERSION_3COSTOCONV_COSMONEDAXTC_A_FECHA_DE_COMPRAXCOSTO_3COS_MOMON_MO MON_MOTXT MM_MONEDAFOB_MOCOF_MO TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBLINEAGRUPO SUPERGRUPOGRUPOSGRUPO_PFESPECCODALT1FOB4%%A T T T Ta T T+ T T  T  T  T T mTC    F4TC  cc6!T dTCH C " ! _B  !6 67%" # ! _B ^ T>$>%&%>'>>>(>))>$>*C!,+>--*>..*/ >0>1-.02 >>33C0>4CC1C31 dT65>6130>7CC1C61 dT65 >8>9 >: >; >< >= >> >?C&?@>A&?>B&C>CC&CCF*>DDEEFFFG%C !CHIcuentascuentaTJH9 T!CKcuentascuentaTJG9F'>LGLMGMNJFOBUPXTIPOVENTASCOSTOXPARXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOCOD_CLIFAC_VENCAUSAREM_VENCOD_INSITMFEC_VENTMP_P146XRECEPXDIMPXHIMPXDPREXXPRECIOTOT_VEN RECEPCIONCCVENTMONEDACOEFIC XDCTRLIVAMOTIVOCODIGONOMBRECLIENTESCOMPROBFECHAFEC_ENTCOS_LIFO CONVERSIONCOEFBRUTOBONIFGDESCCOMISNETOOTROS TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBDSPLINEAGRUPO SUPERGRUPOTIPOFOBORICOS PROVINCIAPROVINCCLI_PROVCLI_PAISPAISTRANOTREFCUENTASBIENESVEN_CUE XLINCONTABCOD_CUEERABREV LINCONTABCCCLIEF!& (\borrar5 T#)+C+ v%nTHBUBORRAR2CAUSACOMPROBP_LOCALACCCOMITIPOTOTAL#4 TCF  > >  >  >  > > > > FBUXCOMXCAUXTOTXMOTXTIPXFECXCODXNOMAREABORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRE%-T D TT TCC "  _B   6 C "  _B   6 cTT  FG((comprobG E G %C4C ~#+C+   zT T=% CZ CZ V F C k TCOT CZFG((comprob E%C4% 2F T -GEG T C4% F T!CO T")+C+  BT""#H #!%")+C+  FT$C#" T>%%$>&#'(%0>)CC&C+& dT6*>,&+0>-CC&C,& dT6*%.SC$Est afectada por la CcNCND6  (CC0Z)  12/FH  .zCError en comprobante 2 !!! Puede que el filtro excluya al cpbt imputado.  12/F #%.SH%C3     4 4 6 C  %5*L F #H%C3     4 4 6 C  GmCError en cliente C $ !!! Haga F3 en la cuenta corriente.  12/F # CFG((comprob #FH _C.No est bien registrada en la Cuenta Corriente  12/BU6CCVENTTOT_VENXITM_VENVENTASXBRUGDESCDEUDAXUSS CONVERSIONMONEDACOEFICFEC_VENXNCNDCOD_CLIFAC_VENCAUSACCCLIECOMPROBXPARIMPORTEXIMPORTECUOTAREFCAUCUOSEPARADOREGXREFXDFECFECHAXHFECTMP_P146ENCREG_146X146BRUTOXOTOTROSNETOBONIFCOMIS PER_COSTORND TOT_COSTOCONTRIB PERCONTRIBXDCTRCONTROLMOTIVOCLIENTESNOMBREXPOR_FECHA_ENTREGAFEC_ENT PUB_INDEX0otmp_p146Xlineas  CQCCCCCC C    C QCQCC(XQCQCQ  curF>  T T T T listados T"a T# T$ T% T& T' T( T)#)+C+ T##*T$$+T%%,T&&-T''.T((/T))0H(1\borrar1BU2SUMTMP_P146 RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBLINEAMLINEAGRUPOTIPOFOBFACTORACCFOBLINEASDESCRLIN_DESCOS_MO TOT_COS_MOFOB_MO TOT_FOB_MOCODIGOCURFORXDTIPANCHOTAMMARGENMARGTAMLISTADOSINICIALAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIB SUM_BRUTO SUM_BONIF SUM_COMIS SUM_OTROSSUM_NETO SUM_TOT_COSTO SUM_CONTRIBP_LOCALFG-(G-(#)+C+ TTT  T  T  TTHBUTMP_P146COD_INSBIENESCODIGOCLIENTESAA_BRUTOBRUTOAA_BONIFBONIFAA_COMISCOMISAA_OTROSOTROSAA_NETONETO AA_TOT_COSTO TOT_COSTO AA_CONTRIBCONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCOD_INSBIENESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCODIGOCLIENTESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIBIotmp_p146CQCCCCCC  Q C  Q  C QCQCQCQ cur>  d>  d> BUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIB P_CONTRIBLINEAMLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBCOS_MO TOT_COS_MOFOB_MO TOT_FOB_MOCUR SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIB/otmp_p146CQCCCCCC  Q C  Q  C QCQCQCQcur1>  d>  d> ocur1<curBUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIB P_CONTRIBLINEAMLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBCOS_MO TOT_COS_MOFOB_MO TOT_FOB_MOCUR1 SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIBCURG)>CMM 6otmp_p146CCCCC C C C  Q C QCQCQ cur>  & BUTMP_P146CAUSAALLCODIGONOMBREBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBFOBFACTOR RECEPCIONACCFOBCOS_MO TOT_COS_MOFOB_MO TOT_FOB_MOCURFORBORRAR11}45cTCVFCDCcNC/CdNDCrRE??6666 BUXCAUAAAp4He d4 Bd  R B 2e BBUXVALOR _4     TC TC % 2X6X8-300C Suspendo?a %CR00000700 TC T -% %Citm_desc CQitm_descF G((idEC Z%C4T  FG%C S-6 S     %CxRecOldbL T F!G((primario% G EG %C4 GErG   # %C4  L T# T$ T%a T&-2+'(r'( %)*  j T&a%Cdespacho+ T##!+%C,.T,-T,.T$$,-+T,/F0G((despacho E!, T1%02["C02importacnumero%T1C23SSN6F0+C+ ,!, %4!H!%,!,4 ;T 05T06/% 02 0. 7T/T/ _ T  T'T7CC02 CC02Z6,T77CC7 :6C0,%89 \%C0289XVTCC, 67C!+(CC!+Z)6T!+ }%:%,,PRESTAMOZTCC, 6C!,C!+(CC!+Z)6T!+ yVTCC, 67C!+(CC!+Z)6T!+F! .TCC, 6Pto%89 T!+  T f ]C$Error en mov., despacho inex.: DSP: !, Cod: ) Cpbt:' (;]T<$Error en mov., despacho inex.: DSP: !, Cod: ) Cpbt:' (.TCC, 6Inx%89 9 T!+ T TC<=H%& WT C Z'()C*Z&rC Z'()C*Z T CO!   T # F%#- B H B$#   ZC$No se encuentra el movimiento: DSP:  Cod:  Cpbt: ;ZT<$No se encuentra el movimiento: DSP:  Cod:  Cpbt: C<= \ %  N T >?c X  T F% B  %CxdCOSDbL T@-%@ AB TC TD TA#TC /6%C4 fE cs_generarCDA4  %C BA  B  BGBUHXCLIXFACXCAUXREMXCODXCOSXDSPXCOSMONXDSPCANXPARCIALXRECOLDXSTKCANXFOBXITEMXFECCOSXMONCOSXMONFOBXFECHA_OPERACIONXNOSTKXORICOSXORIFECXFCDEREXVERSIONSYS_MOSTRAR_SCREENAAAITM_DESCIDOLDITEMXFECHA_VERSION_3BIENES IMPORTADOLOTES XCONTROL_IVAMOVSTOCKPRIMARIOACCUNIDACCCOSTOPUNTOENC_CODNUMEROCAUSACODIGOITEMCANTIDADDESPACHOCOSTOFECHAMONEDACONVERXCERRADAIMPORTACCERRADACOD_INSFOBCOEFXDESPACHO_CONVERXDIMPXHIMPXDPRE MENSAJE_WAIT XGLOBAL_ERRORERRORESVENTAS RECEPCIONXDCOSDXNEWCOSXACTCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARCOSACT44%C)F> 999999> COSTO X PASE$> CLINEA CCZCCX> > > ">C999999> >d> > > >BUXFECHAXCANTXDOLARESXCAMBIOXLINEAXGRUPOXDFECXHFECTMP_P146CODIGOCOMPROBCOD_INSFECHA RECEPCIONCOSTOCONV_COS TOT_COSTO PER_COSTOCONTRIBNETO PERCONTRIBLINEAGRUPO4*%2727  SCH uT@ TT YPF MANT. PLP *%2034  SCH Tffffff@ TT YPF MANT. %C SCH IT333333@ TTAJUSTE IMPOSITIVO FG((codigo E -%SCH ANTICIPOS  #6HT T  T UXLINEAXDESCRXMLINEAVENTASCOD_CLIP_EMPES_AJUSTE_IMPOSITIVOLINEASCODIGOBIENESLINEADESCRXLIN_DES MASTERLINEM%C $C$ C $ % A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c  A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V  BaB-UVENTASFEC_VENFAC_VENCAUSAM Ta %CC $"% A01-00004643 A01-00004645  A01-00004646  A01-00004647  A01-00004648  A01-00004649  A01-00004651  A01-00004652  V  T- %CC $=% A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c 9 T- BUXRETXDFECXHFECVENTASFAC_VENCAUSA %CC $% A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V BaB-UXDFECXHFECVENTASFAC_VENCAUSAd4 TCWF"Q\tmp\errores_contrib >Q FBUXERRORXAREAP_LOCALTEXTOh%CxmonedabL= T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxsch_rpt_contribucion2T\xchgTT 9TTT  C C <BU XTABLAXDFECXHFECXMONEDAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDMON EXP_TABLARELEASEb4%S%HBCT % ɚ; zBCT BCT 5 TC% F B [ TCFGF EGFT CindiceCCZ% |,TCC6 T F B WXC3El cambio del "+mm_moneda(xdmon+1,1)+" de la fecha C * no existe !!! XT El cambio del C * de la fecha '+DTOC(fecha)+' no existe !!!C  F BU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXDPESXXAAAAAXDMONIDX04XCAMBIO MENSAJE_WAITFECHA XGLOBAL_ERROR MM_MONEDAERRORES4 5%S%N B  TCFGF EGFT CindiceCCZ% C%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C   T T  F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %+ B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F BBU XCOSTO_MOXMONEDAXFECHAXCODIGOAAABBBXDPESXDMONIDX04XCAMBIO_DESTINOXCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJE%CxmonedabLE T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxsch_rpt_contribucion2T\xchgT T T  pTTT TT C*(\contribucion.xlsC <BUXTABLAXDFECXHFECXMONEDAXDTIPXSIN_CLIENTES_DEL_GRUPOOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM XLS_ABRIRXDMON XDCTRLIVAXDLOG10EXP_TABLA_Y_EXCEL FIL_EXCELXDIRRELEASE fn_filtbie> conversionAconv_cosDmovs;JseparadoT display_ctrF\control] nc_generica>^tot_lingtipo_1mltipo_2mtipo_3Poagrup_2pagrup_3ssagrup_62v tipo_comp9xrndxfn_costoIy adicionalfn_lineaes_ajuste_impositivodfiltro_fac_sacarfiltro_fac_agregar$erroresY exportar_1 conversion2ѕ conv_cos2Řexportar_one_click+@211AAgqaaEAqAA AqAAa;qABrrRQArrAAAAq1!ArrrAAAA1ArqAA!4BABAA"QAAaA4A21AAAsrrqAAArArrAAQAA1ABAA"q1AAAsArQDrq1Ar DTvqD1uR1rrrr!!AArub1AqABqsQArtrt"qaAbBqqABrrbA7B1AA1AAB1AD1ADABrAA$AuAvRqAbrQrAbrArABbA1AqA1AArrAeBa2q222BrAbAqqq1A!4AAAAB4qAsqrqvA3sX 111VBrAqqBrAqAArAeaaaAD6r!1A1A!AaqAA!1AbaA312I2a!AAA1qaa1QAAA21:B1qaa11q1AAQAA1qaar1AcBBAA2!AA!AqrEdarQ1rrAqQArAQQsqb!Brr!!AqBAqaB:qbB3A1vQEErAAaqBArrQArtDqA5qQ1AAAB31rQA3gqA$ Qsba2wrsb1arAA2rBqArAABrACA3AABrDArArBrABAB5PrSCAB9rRBAB6rQBAB5rQBAC3B3A2B2qq12q1AAA=21rBDAAqbABvAr1dabaAA!Bbsa!QAr1AAAAAArbAAAAbAAArABBABAAArABA1BAqBA1A2QlA<AAAA3rqQ1A!aAB2QQaQqRAABAA2`qAAq1AAAA2 rAAq2q!QAA014A""BrB31I2a!AAA1qaa2AA31B4qaa21q1AARQAA1qaar1AcBBA2A1""CrB3;n^ja5UahfS}funnc| x|8shPt[s ̝.&F5իu^;7rBK/HEȶMضeXzKa 8!+ @>H Ml T} _ r  F %PPUQv_Uc%CxgrecbN( T T TF"TCSCH6)CInicializando datos G+(listadosG+(dey_funcG+(dey_fillG+( dey_filters%Cempresas Q \empresas% oF Ta ~C %[ %Ctmp_consolidadoFQ9Q!\tmp\rpt_ve_nuevo_facturacion.DBF'i1tmp_consolidadoCF> #(\tmp\tmp_consolidado'Q\tmp\tmp_consolidado T- F0!\tmp\rpt_ve_nuevo_facturacion.DBF> C %Ctmp_consolidadoF 'Q\tmp\tmp_consolidado C2(!\tmp\rpt_ve_nuevo_facturacion.DBFQ G( ges CF -F0Q!\tmp\rpt_ve_nuevo_facturacion.DBF0i1rpt_ve_nuevo_facturacionC>  CTC](\tmp\Q\tmp\2(!\tmp\rpt_ve_nuevo_facturacion.DBFQ \tmp\.dbf \tmp\.cdxBUXGRECXMIN_IMPORTE_AJUSTEXPER_COB XDIAS_CONTADOP_EMPOESTADO SET_AND_SHOWLISTADOSDEY_FUNCDEY_FILL DEY_FILTERSP_SYSTEM XDCONSOLIDADOEMPRESASXINICIALPROCESARCODIGOTMP_CONSOLIDADOP_LOCALEMPABREVALLFORINDEXARP_SERVERGESP_CODEMPRPT_VE_NUEVO_FACTURACION XTMP_FILE_ %C* FQ*Q\data\CCZ\BUXTABLAXEMPP_SYSTEMCccventCccclieCventasCitm_descCcccnotasCcccnotasBUXEMPOPEN_F7C%C cligruece EQ cligruece%CLINEAS sQlineas%CGRUPOS Qgrupos%Cdeposito Qdeposito%Cfletes Qfletes%Cdesp +QdespTC T  T  T T!Tccv.cod_cli#'0 '%  %T .and. ccv.causa#'r'%%T and cli.gruec=xgrecTcom_num"%CX CX }1TCcod_cliccv% 4T#.and. between(ccv.rfc, xdrfc,xhrfc)*TC fec_venccv"%CX CX % %!QT@.and.val(xdage)<=val(ccv.agente).and.val(ccv.agente)<=val(xhage) =T,.and.xdage<=ccv.agente.and.ccv.agente<=xhage %!LVTD.and.val(xdage)<=val(cli.vendedor).and.val(cli.vendedor)<=val(xhage) AT0.and.xdage<=cli.vendedor.and.cli.vendedor<=xhage*TC#$cod_insven"(TC&'bie(%(TC*+lineabie)(TC-.grupobie,6T% and between(ccv.cod_cen,xdcen,xhcen)%C/ %/!T and cli.pais<>1 $T and cli.pais=xdpaiH  0?#T.and.ccv.causa='V' 0u#T.and.ccv.causa='d' 0#T.and.ccv.causa='c' 0#T.and.ccv.causa='r' 0$T.and.ccv.causa$'Vd'%1T٣.and. ((ccr.plazo=0 .and. ccr.cuota<=1) .or. (ccr.cuota=0 .and. ccr.a1=0 .and. ccr.p1#0) .or. (ccr.anticipo#0) .or. (ccr.variable .and. plv.c1d=0 .and. plv.c1p#0))%2;ET4.and. nvl(ccr.anticipo,0)#0 or nvl(plv.anticipo,0)#0%3Hc 4Tcom_fec 4Tcli_nom, com_fec 4Tage_des, com_fec  H  4: Trubrofac, com_fec 4t 'Trubrofac, cli_nom, com_fec 4 'Trubrofac, age_des, com_fec%5E To .and. (inlist(ccv.motivo,0,2,3,5,6,7,10) .or. ccv.causa="V" .or. ccv.causa="r") .and. !between(ccv.motivo,1,2);T*.and.iif(ccv.causa="r",!ccv.facturado,.t.)%67 /T.and.betw(cli.cat,xdcat,xhcat)%8 !T and ccr.entrega%9: Y 2T!.and.betw(ccv.motivo,xdmot,xhmot)% T.and.ccv.cod_cli#"0 ".and.ven.causa="r".and.ven.rem_ven#space(12).and.VAL(RIGHT(ven.rem_ven,8))#0.and.ven.fac_ven=ven.rem_ven and !ccv.no_fc%;C #T and ccv.anulada=0*CSeleccionando comprobantes<=2%> 2 2 2 %Ctccvent Qtccvent%  $T@ccv.agente==age.cod_age 6 &T@cli.vendedor==age.cod_ageselect iif(ccv.causa='V','FC ',iif(ccv.causa='c','NC ',iif(ccv.causa='d','ND ',iif(ccv.causa='r','RE ','?? ' ) ) ) ) as com_cod, ccv.fac_ven as com_num, ven.rem_ven as rem_ven, ccv.fec_ven as com_fec, ccv.cod_cli as cli_cod, iif(cli.tarjeta='S', ccv.des_clie, cli.nombre) as cli_nom, cli.fantasia as cli_fan , cli.dtonc as cli_dec, ccv.tot_ven as com_bru, ccv.des_com as com_dec, ccv.tot_ven - ccv.des_com as com_net, ccv.deuda-(ccv.tot_ven-ccv.des_com) as com_imp, ccv.deuda as com_tot, ccv.plan as pla_cod, iif(ccr.variable, plv.descr, ccr.descr) as pla_des, iif(p_age_tipo, ccv.agente, cli.vendedor) as age_cod, age.nombre as age_des, ccv.cod_fle as fle_cod, fle.nombre as fle_des, ccv.causa, ccv.pedido , ccv.lista, ccv.desc1, ccv.desc2, ccv.desc3, ccv.desc4, ccv.desc5, ccv.desca1, ccv.desca2, ccv.rfc as rubrofac , rubrofac.descr as drubrofac , .t. as header , cli.ciudad as ciudad , iif(ccv.causa="V",0000,ccv.motivo) as motivo , iif(ccv.causa="V",space(40),motivos.descr) as dmotivo , cli.cat as cat , space(40) as dcat , ccv.pedven as pedven , ccv.cod_cen as cod_cen , nvl(costos.descr, space(40)) as dcod_cen , left(ccv.ncndmotivo,254) as ncndnotas , ccv.ref as oc , ccv.tran as tran , ccv.ot as ot , ccv.moneda as moncpbt , iif(between(ccv.moneda,0, mm_max), mm_moneda(ccv.moneda+1,2), space(3)) as montxt , round(ccv.deuda/iif(ccv.moneda#0 and ccv.coefic#0, ccv.coefic, 1),2) as monext , ccr.entrega as contraent , iif(ccr.variable, plv.plazo=0 and plv.c1d=0 and (plv.c1p=0 or plv.c1p=100), (ccr.plazo=0 and ccr.a1=0 and (ccr.p1=0 or ccr.p1=100) ) or contado) as contado , nvl(cccnotas.gescom, 0) as gescom , ccv.suc as suc , nvl(sucursal.nombre, space(40)) as sucnom , nvl(sucursal.ciudad, space(40)) as succiu , 000 as despl , ccv.fcdere , space(100) as pedidos , ccv.comision as comi_ven , ccv.comi_dis as comi_dis , tccv.rev , iif(ccv.suc#0,nvl(sucursal.nombre,space(40)),nvl(cli.nombre,space(40))) as dest_nom , iif(ccv.suc#0,nvl(sucursal.domicilio,space(40)),nvl(cli.domicilio,space(40))) as dest_dom , iif(ccv.suc#0,nvl(sucursal.ciudad,space(40)),nvl(cli.ciudad,space(40))) as dest_ciu , iif(ccv.suc#0,nvl(sucursal.cod_zip,space(7)),nvl(cli.cod_zip,space(7))) as dest_zip , iif(ccv.suc#0,nvl(sucursal.provincia,space(1)),nvl(cli.provincia,space(1))) as dest_prov , space(30) as dest_prv , iif(ven.nostk, "NO", "SI") as afecta_stk , {} as venc1 , {} as fecest , {} as fcanc , cli.gruec as gruec , space(40) as dgruec , ccv.coefic as cambio , 00000000000.0000 as cambio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as saldo , 0000000000000.00 as saldo_me , 0000000000000.00 as saldo_ref , ccv.dep , nvl(deposito.descr, space(40)) as ddep , 0000000000 as desp , ven.version , ven.costo, ven.cosmon from ccvent ccv left outer join ventas ven on ven.fac_ven + ven.causa == ccv.fac_ven + ccv.causa left outer join clientes cli on cli.cod_cli==ccv.cod_cli left outer join condcobr ccr on ccr.plan==ccv.plan left outer join rubrofac on rubrofac.codigo==ccv.rfc left outer join planvarc plv on plv.id==str(ccv.pedido,12)+"P" left outer join agente age on &xrelacion left outer join fletes fle on ccv.cod_fle==fle.cod_fle left outer join bienes bie on bie.cod_ins==ven.cod_ins left outer join motivos on ccv.motivo==motivos.codigo left outer join cccnotas on ccv.cod_cli+ccv.fac_ven+ccv.causa=cccnotas.id left outer join sucursal on ccv.cod_cli+str(ccv.suc)=sucursal.cod_cli+str(sucursal.sucursal) left outer join tccvent tccv on ccv.pedido=tccv.pedido left outer join deposito on ccv.dep=deposito.deposito left outer join costos on ccv.cod_cen=costos.cod_cen where &xfiltro group by ccv.fac_ven, ccv.causa order by &xorden into table (xborrar) QA ~ TB TCCBCaD#) 2Rselect iif(ccv.causa='V','FC ',iif(ccv.causa='c','NC ',iif(ccv.causa='d','ND ',iif(ccv.causa='r','RE ','?? ' ) ) ) ) as com_cod, ccv.fac_ven as com_num, ven.rem_ven as rem_ven, ccv.fec_ven as com_fec, ccv.cod_cli as cli_cod, iif(cli.tarjeta='S', ccv.des_clie, cli.nombre) as cli_nom, cli.fantasia as cli_fan, cli.dtonc as cli_dec, ccv.tot_ven as com_bru, ccv.des_com as com_dec, ccv.tot_ven - ccv.des_com as com_net, ccv.deuda-(ccv.tot_ven-ccv.des_com) as com_imp, ccv.deuda as com_tot, ccv.plan as pla_cod, iif(ccr.variable, plv.descr, ccr.descr) as pla_des, ccv.agente as age_cod, age.nombre as age_des, ccv.cod_fle as fle_cod, fle.nombre as fle_des, ccv.causa, ccv.pedido, ven.cod_ins, ven.bul, ven.atr, ccv.lista, ccv.desc1, ccv.desc2, ccv.desc3, ccv.desc4, ccv.desc5, ccv.desca1, ccv.desca2, (1-ccv.desc1/100) * (1-ccv.desc2/100) * (1-ccv.desc3/100) * (1-ccv.desc4/100) * (1-ccv.desc5/100) * (1-ccv.desca1/100) * (1-ccv.desca2/100) as gdesc , iif(empty(ven.cod_ins+ven.bul+ven.atr), left(ven.desc_ins,60), fill_bie_bul_atr_descr(bie.descr,atr.descr,bul.descr,bie.atributos,bie.bultos,60) ) as bie_des, ven.recepcion, ven.cos_lifo, ven.des_ins, ven.tot_ven, ven.moneda, ven.coefic, ven.des_clie as dsp , ccv.rfc as rubrofac , rubrofac.descr as drubrofac , cli.ciudad as ciudad , iif(ccv.causa="V",0000,ccv.motivo) as motivo , space(30) as dmotivo , .f. as header , cli.cat as cat , space(40) as dcat , ccv.pedven as pedven , ccv.cod_cen as cod_cen , nvl(costos.descr, space(40)) as dcod_cen , bie.linea as linea , space(30) as dlinea , bie.grupo as grupo , space(30) as dgrupo , bie.espec as espec , left(ccv.ncndmotivo,254) as ncndnotas , ccv.ref as oc , ccv.tran as tran , ccv.ot as ot , ccv.moneda as moncpbt , iif(between(ccv.moneda,0, mm_max), mm_moneda(ccv.moneda+1,2), space(3)) as montxt , round(ccv.deuda/iif(ccv.moneda#0 and ccv.coefic#0, ccv.coefic, 1),2) as monext, ccr.entrega as contraent , iif(ccr.variable, plv.plazo=0 and plv.c1d=0 and (plv.c1p=0 or plv.c1p=100), (ccr.plazo=0 and ccr.a1=0 and (ccr.p1=0 or ccr.p1=100) ) or contado) as contado , nvl(cccnotas.gescom, 0) as gescom , ccv.suc as suc , nvl(sucursal.nombre, space(40)) as sucnom , nvl(sucursal.ciudad, space(40)) as succiu , ven.itm as item , 000 as despl , ccv.fcdere , space(100) as pedidos , ccv.comision as comi_ven , ccv.comi_dis as comi_dis , tccv.rev , iif(ccv.suc#0,nvl(sucursal.nombre,space(40)),nvl(cli.nombre,space(40))) as dest_nom , iif(ccv.suc#0,nvl(sucursal.domicilio,space(40)),nvl(cli.domicilio,space(40))) as dest_dom , iif(ccv.suc#0,nvl(sucursal.ciudad,space(40)),nvl(cli.ciudad,space(40))) as dest_ciu , iif(ccv.suc#0,nvl(sucursal.cod_zip,space(7)),nvl(cli.cod_zip,space(7))) as dest_zip , iif(ccv.suc#0,nvl(sucursal.provincia,space(1)),nvl(cli.provincia,space(1))) as dest_prov , space(30) as dest_prv , iif(ven.nostk, "NO", "SI") as afecta_stk , {} as venc1 , {} as fecest , {} as fcanc , cli.gruec as gruec , space(40) as dgruec , ccv.coefic as cambio , 00000000000.0000 as cambio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as saldo , 0000000000000.00 as saldo_me , 0000000000000.00 as saldo_ref , ccv.dep , nvl(deposito.descr, space(40)) as ddep , 0000000000 as desp , ven.version , ven.costo, ven.cosmon from ccvent ccv left outer join ventas ven on ven.fac_ven + ven.causa == ccv.fac_ven + ccv.causa left outer join clientes cli on cli.cod_cli==ccv.cod_cli left outer join condcobr ccr on ccr.plan==ccv.plan left outer join planvarc plv on plv.id==str(ccv.pedido,12)+"P" left outer join rubrofac on rubrofac.codigo==ccv.rfc left outer join agente age on ccv.agente==age.cod_age left outer join fletes fle on ccv.cod_fle==fle.cod_fle left outer join bienes bie on bie.cod_ins==ven.cod_ins left outer join bultos bul on bul.id==ven.cod_ins+ven.bul left outer join atributo atr on atr.id==ven.cod_ins+ven.atr left outer join cccnotas on ccv.cod_cli+ccv.fac_ven+ccv.causa=cccnotas.id left outer join sucursal on ccv.cod_cli+str(ccv.suc)=sucursal.cod_cli+str(sucursal.sucursal) left outer join tccvent tccv on ccv.pedido=tccv.pedido left outer join deposito on ccv.dep=deposito.deposito left outer join costos on ccv.cod_cen=costos.cod_cen where &xfiltro order by &xorden into table (xborrar) QA#)FG((codigoFG((codigoFAG-(FG-(G TH TB TC ~2%I1%AJ81%AK0/CALrCAMZitm_descid 411CANAOCAMZitm_descid s11CANAOCAMZitm_descid%C41>PCQR>SR>TR%HUNV1 >WaCBCaD 2CBC-DTHUNV%AX|2FYG((codigo EAX>AZYRFA+[ ve_sql_comprobantes_emitidos_auxoborrarQ^ventasQ`NO_`aNO`c`O `a K q& NOdFe G((cpbt%Cprovinc 3Qg\provincFA~K4ThNO TiFd Eh Tj+C+ NOh H4 Tj+TiiCCi, 6CCaZHFA%ju4>aCig 4 >ki$%Clprovinccodigo4>mCnRfFG((codigoFe G((cpbtFoG((codigoFAG-(poG-(NOeG-(qV>roRsetAuevwewxeyzRG-('%C|}C3 $  5Cu|} + ve_sql_comprobantes_emitidos_aux*CExportacin final de datos<=-(\tmp\rpt_ve_nuevo_facturacionHoborrarQQCQ tmpborsis3(#\tmp\rpt_ve_nuevo_facturacion_grupoQ%Cborrar17FQ%Cborrar2-7FQFAQ.*%CRUBROFAC {7Qrubrofac%CLINEAS 7Qlineas%CGRUPOS 7Qgrupos T  T  BUXEMPRESA OPEN_FILES_COMPROBANTES_EMITIDOS CLIGRUECELINEASGRUPOSDEPOSITOFLETESDESPXBORRARNEWFILE_LOCAL_TMP OLD_XDFECXDFEC OLD_XHFECXHFEC XDFEC_COBXDFEC1 XHFEC_COBXHFEC1XFILTROXDREMXDSRPXGRECXORDENXDCLIXHCLIFIL_GET_CLI_FILTERP_CLINUMXDRFCXHRFCFIL_GET_FEC_FILTERXDAGEXHAGE P_AGE_TIPOP_AGENUMBIE_GET_BIE_FILTERXDINSXHINSFIL_GET_PRO_FILTERXDPROXHPROP_PRONUMBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUXDPAIXDCOMXDCONXDTIPXDSEPXDORDXDLOG3XDCATXHCATXCONTRAENTREGAXDMOTXHMOTXDANUOESTADOAVANCEXDDETTCCVENT XRELACIONBORRAR XCAMBIO_REF XTOTAL_REFACTUALIZAR_MONEDA_DE_REFERENCIACODIGOLINEAGRUPOXOLD XDESCR_ORIVERSIONFCDEREREM_VENITEMCOM_NUMCAUSABIE_DESITM_DESCDESCRDLINEADGRUPOCOM_CODCLI_CODHEADERMOTIVOMOTIVOSDMOTIVOPASADA_AUXILIAR VE_SQL_COMPROBANTES_EMITIDOS_AUXDISTINCTBCOM_FECVPEDIDOVENTASFAC_VENQCCCLIECPBTP_SYSTEMXIDXPEDIDOSXACCPEDIDOS DEST_PROVDEST_PRVPROVINCCATCLICATGRUECDCATDESPLDIASVENC1VENCFECESTFCANCCANCELDGRUECALLXDFECVENXHFECVENFORANALISIS_COBRANZAP_LOCALRUBROFACGRU_COD DRUBROFACGRU_DESCOM_TOTGRU_TOT TMPBORSISBORRAR1BORRAR2&41QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidosT\tmpTT TTT C BU XTABLAXDFECXHFECXDCONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA#41QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidosT  \xchgT  }TTT TTTTT TaTT CBUXPDFXDFECXHFEC XDFEC_COB XHFEC_COB XDFEC_VEN XHFEC_VENXAGENTEOEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOOFORMXDFEC1XHFEC1XDFEC2XHFEC2XDAGEXHAGEXDCONXDTIPXDNUM2EXP_PDFH H5 `& C & C & C & C H E!& C ZC }%& C ZC %& C ZC !& C ZC H @& C s & C & C & CBU XDSEPXDORDCOM_FECCOM_CODCOM_NUMBORRARCLI_NOMAGE_DESVENC1RUBOFAC 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidosT\tmpTTTT T a C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG4 EXP_TABLA%%C T T!listados>TC   C  66FF> > BU XCAMBIO_REF XTOTAL_REFXBUSCARBORRARMOTIVOXFECHACOM_FECOBTENER_CAMBIOLISTADOSMONCPBTMONEXTCOM_TOT CAMBIO_REF TOTAL_REF81QEXPORTACIONES_CRYSTAL Imp_exp.vcxVTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidosT\tmpTT  TTT T  C BUXTABLAXDFECXHFEC XCON_REMITOS XCON_SALDOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG5 CON_SALDO EXP_TABLAopen_f@ open_files_comprobantes_emitidosprocesarsexportar_dias_de_giro_indDexportar_control_de_cobranzas&FindexarH exportar_sriKactualizar_moneda_de_referencia[MexportarNA"#!QAtqAArr2qrBBqqA"Arr"ACB3AAB2qrqqB2qQA!A!AAA!AaAtQA3QBB"AAA&AaAAAb"AAAA111111111AAG B2QA21A11A11q1qAA AAA!A A1A$1AAaAP11BRp!%QtrraaAAQAA22BQbq2BrAC"sArArAAr1AB!ABrrrrAibr1A2AqAAqAArAAA!A!AB31a"AB25a"BB311111A111Q1Q1A21111ABA2a"AB2rBArB2qa"AB1B_ |J% S ```bnnbe1eiikk}oofq %?&NWcU % % oborrarQXccclieQ CCKCCCCR 66c6TQ CCKCCCCR 66c6TQ CC5CCC 6c6TQ Q CC<CCC 6c 6dTQ CCC "CR  66QCCC 6QCC  6QCCCRA6QCC!C CANPEN6PNE6Q-Q-QC(XQQ   !"borrar1>C oborrarQXccclieQ CCKCCCCR 66c6TQ CCKCCCCR 66c6TQ CC5CCC 6c6TQ Q CC<CCC 6c 6dTQ CCC 6QCCC "CR  66QCC  6QCCCRA6QCC!C CANPEN6PNE6Q-Q-QC(XQQ   !"borrar1>C (> C  %6roborrar1QCCC$6Q'C( C  ) borrar2>%+SCH4>",-C C3 $ >'CC  ) 6CC  ) C CANPEN6C PENPNE66CC  ) C./ a-6CC  ) . a-6CC  ) . Cobrado AdelantadoNCC  ) . Cobrado no Adelantado No Cobrado66CC  ) . /CC  ) . 66 *C12 C  %3 F ~ T4!CZ T56 T7 T8 T9::listados5"78459 ><9 >=8 T7 T88:listados"7845 >>8BU?XDTIPXDANTICIPOS_COBRADOSBOCOM_TOTCCCOMPROBCAUSACOM_NUMIMPORTECOB_CAJA COB_OTROSCOBCOB_REFPER_COBREFCAUFECHAFEC_COBRFEC_COBVENCDIASMAXDIASXHFEC1CANCELCOB_TIPOBIENCOBANTICOBTIPOCOBTIPOCOB2BORRARCCCLIE XHFEC_COBMOTIVOCLI_CODCOM_FECBORRAR1FOR TOTAL_REFALLDEM_COB XDFEC_COBXPER_COBBORRAR2P_EMP XDIAS_CONTADOCONTADOXCOBANTICIPADAXBIENCOBINXDFECVENXHFECVEN XCON_SALDOXIDXMONMONCPBT XSALDOACTXSALDO XSALDO_PESOS ACT_SALDOCLISTADOSSALDOSALDO_ME SALDO_REF9F ~H" rQCdespremito V$%Cdespcausa> !%Cdespremito> % .C BU BORRARCAUSAREM_VENCOM_NUMDESPDESPACHOXDDSPXHDSPINanalisis_cobranza0pasada_auxiliarn1A:bQ:cI,bCA QvCABB2qAAAAAAAABAB1k*!%@1yn4 d%Cstockpf#FQ\sch\schQ sch!stockpf& Cg%Cbienes F QbienesFG-(Cg%~Cstockpf+   > H4 C =PEC =PZ02 6>  C =Pb>  C =F>  2> H4 C =PEC =PZ02 > N 2> A> #> 103030000131He4 C =PEC =PZ02 <> 401010301 401010301 103100301 C =P-<> 401010302 401010302 103100302 C =F<> 401010303 401010303 103100303 2<> 401010302 401010302 103100302>F G(gesBUSTOCKPFP_SERVERSCH ITEM_CODEITMBIENESCOD_INSLINEAESPEC ITEM_GROUPGRUPOCOD_CEN SUBCENTROCOD_CUEABREVVEN_CUEDES_CUEIMP_CUECODALT1 DESCRIPTIONGESqAAr!AqR3AAAA4AArAB1%yn4'd[%CCONVER *QCONVER%CBIENES f Q bienes.dbfCODINSFG((codinsFG-(STCxlsPlanillaAceptar&Ingrese el nombre de la planilla Excel%TX(         UCONVERBIENESDBFCODINSCOD_INSXFILEDESCRLINEACODALT1ESPECIMPORTACENTRAFOBFECHA!AAqr22A1%oqySKd^  %-O%c TC!G+(c:\sistema\2000\internet Ta G+(internet%Cidx04 Qidx04FG((idx04TC$ (<K E%C4 )$ridx04   > T S %CCCC^=g6% 2%CٍAntes de las 15hs toma el cambio del da anterior, luego de las 15 puede tomar el del da anterior o el del cierre de la fecha !!! Contina ? .B% TC!G+(c:\sistema\2000\internet Ta G+(internet%Cidx03 Qidx03%Cidx04 Qidx04 \tmp\cambios.txtfTC>https://transferwise.com/es/currency-converter/usd-to-eur-rate \tmp\cambios.txt%}9Bajada TC: No se pudo descargar el archivo de monedas (1)sys_monedas_uruguay.prg% ySC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CCZ)&%C \tmp\cambios.txt0 9Bajada TC: No se pudo descargar el archivo de monedas (2)sys_monedas_uruguay.prg% y=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %y^Bajada TC: ID=sys_monedas_uruguay.prg T-% TC$ T-"CDOL(T TT(C060%.% ?C2Los tipos de cambio del da se han actualizado !!!%*t(Bajada TC: Se actualizaron correctamentesys_monedas_uruguay.prg O % tCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!!CBajada TC: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_uruguay.prgBUXAUTXDEVXLOGBBBCINTERNETIDX04XFECHAZFECHAINDICE1 MENSAJE_SINOIDX03P_LOCALAAA DOWNLOAD_HTTPUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDP_SYSTEM XCONECTADO XACTUALIZADOPROCESAR_DESDE_HASTAXDESDE XDESDE_VEZXHASTA#   "%C xcambio_fijobNe T $T C C C>'\T C C =TCC ,.gBCUXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADO XCAMBIO_FIJOXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((idx04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_IDprocesar_desde_hasta registrar !ArArAABA AAAA!ArArAb1Q1AAbQAAABABA"AAAAAAABC212"AA3q2rrAAABAAAABB2_Dj%qySsd6 %CCCC^=g% %CٍAntes de las 15hs toma el cambio del da anterior, luego de las 15 puede tomar el del da anterior o el del cierre de la fecha !!! Contina ? B%7 TC!G+(c:\sistema\2000\internet Ta SG+(internet%Cidx03 Qidx03%Cidx04 Qidx04 \tmp\cambios.txtYT C1https://bcp.gov.py/webapps/web/cotizacion/monedas \tmp\cambios.txt % & 9Bajada TC: No se pudo descargar el archivo de monedas (1)sys_monedas_uruguay.prg% "SC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0 * 9Bajada TC: No se pudo descargar el archivo de monedas (2)sys_monedas_uruguay.prg% "=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %"^ Bajada TC: ID=sys_monedas_uruguay.prg T-%@ TC$ T- TaC Suspendo?aTUSDC D 1,0000C 9  TT T0CDOLXTEURC 9  TT*T0C060XTCNYC 9  TT*T0C064% % ?C2Los tipos de cambio del da se han actualizado !!!% t (Bajada TC: Se actualizaron correctamentesys_monedas_uruguay.prg + % tCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!! CBajada TC: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_uruguay.prgBUXAUTXDEVXLOG MENSAJE_SINOBBBCINTERNETIDX03IDX04P_LOCALAAA DOWNLOAD_HTTPUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDP_SYSTEM XCONECTADOXFECHA XACTUALIZADO XFORMATO_COMASYS_MOSTRAR_SCREENXDESDE XDESDE_VEZXHASTAXDESDE2PROCESAR_DESDE_HASTA"'    $T CCC>'\%C $T C C C>'\T C C =%T CC .g T CC ,.gBC UXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADOXDESDE2 XFORMATO_COMAXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((idx04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_IDprocesar_desde_hastay registrar6 A AAAA!ArArA1Q1AAbQAAABABArb !!!AAAAAAB2q2B"AAA3q2rrAAABAAAABB2Sa%y|[Td %CCCC^=g% %CٌAntes de las 15hs toma el cambio del da anterior, luego de las 15 pude tomar el del da anterior o el del cierre de la fecha !!! Contina ? B%6 TC!G+(c:\sistema\2000\internet Ta RG+(internet%Cidx03 ~Qidx03%Cidx04 Qidx04 \tmp\cambios.txtET Chttps://cuantoestaeldolar.pe/ \tmp\cambios.txt %  9Bajada TC: No se pudo descargar el archivo de monedas (1)sys_monedas_peru.prg% SC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0  9Bajada TC: No se pudo descargar el archivo de monedas (2)sys_monedas_peru.prg% =C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %[ Bajada TC: ID=sys_monedas_peru.prg T-%" TC$ T- T-C Suspendo?aaTDolarC C 
C C C  TT" class=T
'\%C $T C C C>'\T C C =%T CC .g T CC ,.gBC UXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADOXDESDE2 XFORMATO_COMAXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((idx04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_IDprocesar_desde_hastaR registrar 1 AAAA!ArArAR1!1AAb!AAABABArQQAAAAAB2q2B"AAA3q2rrAAABAAAABB2N\|%K||~[Td%CCCC^=g% %CٌAntes de las 15hs toma el cambio del da anterior, luego de las 15 pude tomar el del da anterior o el del cierre de la fecha !!! Contina ? B%6 TC!G+(c:\sistema\2000\internet Ta RG+(internet%Cidx03 ~Qidx03%Cidx04 Qidx04 \tmp\cambios.txtlT CDhttps://www.larepublica.co/indicadores-economicos/mercado-cambiario/ \tmp\cambios.txt % 9 9Bajada TC: No se pudo descargar el archivo de monedas (1)sys_monedas_colombia.prg% 5SC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0 > 9Bajada TC: No se pudo descargar el archivo de monedas (2)sys_monedas_colombia.prg% 6=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %7_ Bajada TC: ID=sys_monedas_colombia.prg T-%U TC$ T- TaC Suspendo?a1T$DÓLAR CASA DE CAMBIO VENTA TTTclass="price">$ 0CDOL+TEURO CASA DE CAMBIO VENTA TTTclass="price">$ 0C060%% (?C2Los tipos de cambio del da se han actualizado !!!%u (Bajada TC: Se actualizaron correctamentesys_monedas_colombia.prg % BtCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!! CBajada TC: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_colombia.prgBUXAUTXDEVXLOG MENSAJE_SINOBBBCINTERNETIDX03IDX04P_LOCALAAA DOWNLOAD_HTTPUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDP_SYSTEM XCONECTADOXFECHA XACTUALIZADO XFORMATO_COMASYS_MOSTRAR_SCREENXDESDE XDESDE_VEZXHASTAXDESDE2PROCESAR_DESDE_HASTA"'    $T CCC>'\%C $T C C C>'\T C C =%T CC .g T CC ,.gBC UXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADOXDESDE2 XFORMATO_COMAXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((idx04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_IDprocesar_desde_hasta$ registrar 1 AAAA!ArArA1a1AAbaAAABABArAAAQAAA AB2q2B"AAA3q2rrAAABAAAABB2NM\D %(`eVeP TTCC#TCC ped_ven.zip%Cclientes Qclientescodcli%Csucursal Qsucursal%Ccondcobr Qcondcobr%Cagente +QagentecodageF ~V eC  TCaF ~V *.* %TC % C E$CSe han subido los datosBUXTMPPATH XTMPPATHZIPXOKXMSGODEYFUNCGET_PATH_TMP_IDU GET_PATH_TMPCLIENTESCODCLISUCURSALCONDCOBRAGENTECODAGECLASECREARCOD_AGENOMBRECOMPRIMIR_Y_ENVIARP_CLOUD_SUBIR_DATOS SUBIR_MYSQLMENSAJE C+QMYSQLsys_clases_conexion.prg T-G+(listados%CoSQLbO( sys_clases_conexionT ges_%C % C G+(es_ind_gen_artFQ>Q+TC +ClientesaCTCtmpsucu-s +Sucursalesa %B{4Sistema WEB: actualizacin de vendedores al servidores_ind_gen_ven.prg g4Sistema WEB: ERROR en la actualizacin de vendedores BUXTMPPATHXMSG XVENDEDORCREAROSQLSYS_CLASES_CONEXIONPRGLISTADOSXOKOBTENER_SQL_WEB SQL_HEADERCONECTARXAUTMENSAJEES_IND_GEN_ART COMENTARIOALL SUBIR_TABLAUSER_LOG PUB_INDEXTC %CZTGESTODOS TaTC Nocondcobr1C-c.C dbfavi6Qoclientes      1     1C.C dbfavi65QC.C dbfavi6 TCWosucursalvend    S  1C-s.C dbfavi6Q FQBU XVENDEDORXNOMBREXTMPPATHXTODOSPLANDESCRIDUCONDCOBRCOD_CLINOMBRE INSCRIPCIOSUCFANTASIALISTADES_COMDES_COM2DES_COM3DES_COM4DES_COM5FPAG COMENTARIOCLIENTESVENDEDORCREDITOEST_ACTVENDAREASUCURSAL DOMICILIOCIUDADCOD_ZIP PROVINCIA5 T T T TC G+(listados T   T  T T T TT @T.T  TCwwZipN T/ \usr\alba.avi(alba.avi&TC*.* %KR <TCFTPNTCCTCTC%>Sistema de Vendedores: actualizacin de vendedores al servidores_ind_gen_ven.prg(TTransferencia realizada !!! Ta >T1Error al enviar la tabla de articulos por FTP !!! T-% @C< =T0No se ha podido zipear la tabla de artculos !!!% C T-< BU XTMPPATH XTMPPATHZIPXAUTXMSGXOKD_HOSTD_FTPDIRD_USRD_PWD ES_IND_DATOSLISTADOSWWCLIENTFTP_CONNECT_PASSIVEINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUTINTERNET_OPTION_SEND_TIMEOUTINTERNET_SERVICE_FTPFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEERROR_INTERNET_EXTENDED_ERRORFORMAT_MESSAGE_FROM_HMODULEOZIPOFTPP_SERVERXRESZIPFILESLOCALDIRXDESTINOFTPSENDUSER_LOG PUB_INDEXMENSAJE 7BUARRV 4OCC CU CFILEORIGEN CFILEDESTINOTHIS FTPCONNECTHOST FTPGETFILEEXFTPDIRLOCALDIRFTPCLOSE 4TT Ta&TCC  8C C Conectando... C%C FC Enviando... C %C *CDesconectando... C BC kC)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet. CBCU CFILEORIGEN CFILEDESTINOTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTPXMAX FILE_SIZELOCALDIRNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOST CERRORMSG FTPSENDFILEEXFTPDIRFTPCLOSEMENSAJE ESTADO_RELqH$j VC Procesados: C_ jULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNK LNTOTALBYTES ESTADO_INC-4#C*.*U LCZIPFILETHIS UNZIPFILESLOCALDIR, 4C U LCZIPFILELCFILESTHISZIPFILESLOCALDIR Subir_mysql]crearcomprimir_y_enviar dummyftpgetftpsend^onftpbufferupdate0unzzQv T T T T T     U LOCALDIRHOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWDftpwwftpV1A1AAAAAArQArQ!A2AAAB2r2!rAFCABA1rB4q2QA2B RBAB3q;!qqRbRr2bRAAqAAq2A:B5cqrAAB"411BE3q24407$x6B hU 5P $/MLahm(%2`V'eTCC Z&h1borrarC(xMD &xTMPPath TC%Calba2Q Xh1 C C C CLQ C"%C \usr\alba.avi0F Q \usr\alba.aviralba2    oalbaQXagenteQ CCCZ    C  aC ralba2    oagenteQXalbaQ CCCZ    -CF e> CCC8@ CCC8@ CCC8@ CCC8@  CX>aDIEGO > C  es_ind_cod2F e> CCC8@ CCC8@ CCC8@ CCC8@  CX> C  TB%C,Desea exportar los datos a excel y abrirlo?X1TCAlba - CC.xls(   FS<ralba oalba2C g .| ShellExecute SHELL32.DLL%C *T CopenCC> FQ%C rCLas claves se han guardado en C C 3ATENCION !!! No cierre el sistema pues de eliminar! GC:No existe la tabla de cdigos en la carpeta de trabajo !!!!BU"XTMPPATH XTMPPATH2 XTMPFILEEXT XABRIRXLSODEYFUNCGET_PATHAAAOEXNEWFILE_LOCAL_TMPALBA2COD_AGENOMBRETMPTXTHABILITAP_SERVERALBAAG OSECURITYDECRYPTABAGENTEDATOFORALL ES_IND_COD2ENCRYPT MENSAJE_SINOTIPO SHELLEXECUTESHELL32DLLXERRORMENSAJE1qaAbA"W urTc:rTc!AqA"ArA!!AqAA1%5qVMe44T 301010100 T TC$G+(dey_funcG+(listadosCccvent Cclientes Cccclie Cventas Ccuentas Cnumfac Cbatch T  T C es_ind_nc_aut (TVT  >TC00CCZR-C00000000CCZRFG((ccvfac E%C4q%C00427 00465 10358011218512781 15106875978 79905 95661  FG(( referenciaGEG T-.+C+  %c Ta!H% TFG((ven_fac E T- T- T T#+C+   %!8301  TaT"  TaT"H% PT#$% 6%C C\ 00C R&LT   =C La factura  tiene una NC ya asignada !!!'%C comprobantesF(QVCSe han procesado CC Z Notas de Crdito de CC Z Facturas.'BU)XCAUSAXLETRAXSUCXDESDEXHASTAXCUENTAXMOTIVOXFECHADEY_FUNCLISTADOS CHK_OPENED PROCESADAS NC_PROCESADASSYS_MZXCOMPROBCCVENTCCVFACCOD_CLILISTACCCLIE REFERENCIATIENE_NCREFCAUCAUSAVENTASVEN_FACTIENE_ALBAMAGIC TIENE_OTROSXTOTAL_ALBAMAGICXTOTALFAC_VENCOD_INSTOT_VENXIMPORTE_ALBAMAGICDES_COMDEUDA TRANSACCIONMENSAJE COMPROBANTES 4FG((codcli ET< T T  T ,occclieCXQ  Q  Q Q Q Q Q QCOQ-Q QCXQ Q Q Q Q-Q Q QC XQ C"#C$Z%&CZ%&CcZ' comprobantes>)*- c FC?+-,-.-Bonif. Especial FC  BU/XIMPORTEXFCCLIENTESCODCLICCVENTCOD_CLIXCOD_CLINCNDNCNDMAX XOTRO_CLIXCAMBIOTIPOCPBTADELANTOTMPDIFSSALDOORIDIFCBIO DIFCBIOAPLIMPORTESALDOSALDOUSSAPLICADORECNOAUTSUCFACDESCRTTMPDIFS TSALDOORI TDIFCBIOAPSALDOVERDIFNCNDAUT NCNDAUTDIFCUENTACCCLIECOMPROBCAUSACUOTAXCOMPROBXCAUSAVENC COMPROBANTESS1MARKED TE_NCNDAUTXSUCSUCXCUENTAd 4 T T Ta%co_aut% &CEjercicio inexistente !!! % $x trsacclientesccclienumfacventasccventbatchdiariogconcepto ] trsacclientesccclienumfacventasccventbatch% 0 TT trsac Es_ind_nc_aut'Nota de Crdito Automtica de Albamagic% T 333333?TC % T T T TTtrsac Es_ind_nc_aut'Nota de Crdito Automtica de Albamagic%, T G T T BU XPORCENTAJEXFCAAAXRESUL XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTXFECHAMENSAJELOCK_GTRSACBEG_TRANXIMPORTECCVENTDEUDA REALIZAR_NCEND_TRANTTS_IDc4G+( ve_pedidoG+(ve_procs T T T T T T T  T  T  T  T  T T T T T T T T T T T T T T T T T T T  T! T" T# T$ T% T& T' T( T) T* T+<,,   T- C.'T/C00 SN6 T1 T2 T3 T4 T5 T6 T7 T T8 T9 T: T; T# T5 C<BU=XIMPORTE_ALBAMAGIC VE_PEDIDOVE_PROCST_IBT_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_RECARGO T_TOTIVAINCTX_IBTX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_VALORT_PESONT_PESOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVART_IVAARR MAXIVAARRBRUTO T_CONSFINXCOD_CLI INSCRIPTOT_DESCOM T_DES_NACT_IVA T_IVA_RG5329T_IVA26T_FINAL TX_DESCOMTX_IVATX_IVA26TX_FINALNETO realizar_nc transaccion$ importesFqh"!2Q11A1!rr1bAaAAAAAq1ABAbAEABABqAAbB2sr1A 2aAAbAA2b2AAB2AA5q2!r1sC1K \BW> %?3rhQqe TC$ Ta T T-T' co_funciones% }BT T C% T  %C BC %C BC  C BUXFECHAXDLOG3XDIR XRESULTADO XFECHAFINALCO_BUSCAR_EJERCICIO CO_FUNCIONESXDFECEJERCONDESDEXHFECXDFEC1GENERARSALIDAEXPORTARBU:'%C$  ]/C"Periodo de generacin invlido !!!B- ,Hx( CALJ#gs_sql_estado_de_resultados_cal.prg---a 2(Fgs_sql_estado_de_resultados.prg---aBaU XDFECXHFECXFECHAMENSAJEP_EMPGS_SQL_ESTADO_DE_RESULTADOS_CALPRGXDFEC1XDLOG3GS_SQL_ESTADO_DE_RESULTADOS4!%CC$ W/C"Periodo de generacin invlido !!!B- &Hr" CALJ#gs_sql_estado_de_resultados_cal.prg-aaa 2"Fgs_sql_estado_de_resultados.prg-aaaBaU XDFEC1XFECHAMENSAJEP_EMPGS_SQL_ESTADO_DE_RESULTADOS_CALPRGXDFECXHFECXDLOG3GS_SQL_ESTADO_DE_RESULTADOSsalidagenerarexportar1tCB5AAB2A3qqaaAAr4qaaACq1;?&d%xxlXe  %G(9 / T TG+(listadosT \dashboard$T CCCC:_/-)T  \log\dash -  .txtC Inicioa C Dir:  IG( \borrar.txt T aG( \borrar.txt ^ T -% +.C La carpeta  no existe  (C Carpeta  creada T a ' T -+C Carpeta  no creada % v3CNo se puede crear la  !!!B &G(\auxiliares\borrar.txt T aG(%\auxiliares\borrar.txt  T -% 9C La carpeta \auxiliares no existe  \auxiliares3C Carpeta \auxiliares creada T a  T -6C Carpeta \auxiliares no creada % H>CNo se puede crear la \auxiliares !!!BTCC$HTCC$i Ta% $ es_dashboard(TC$;TCC C $C$6C$F%{BC Se va a procesar el periodo CCZ/CCZ /es_ind_dashboard"C Periodo procesado BUXAUTXCONTROL ACTIVEFORM DATASESSIONIDXLISTA XDESCUENTOLISTADOSXDIRP_DIR_EXPORT_GLOBALXIDSYS XLOG_GENERALP_SYSTEMLOGEARXOKMENSAJEXMESXANOXRES ES_DASHBOARDXDESDEXHASTA PROCESAR_DASHES_IND_DASHBOARDt$TCiTCH6TC0000CCZR-C00CCZRT dash_ventas% T C Recalculo ?  T a"Testadistica_de_ventas% 0 ve_sql_estadisticas% N\tmp\.dbf( \auxiliares\ - .dbf N \auxiliares\ - .dbf(\tmp\.dbf-%C\tmp\.xls0 C\tmp\.xls(\ - .xls:C Generado \ - .xls qC No generado \ - .xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 C\tmp\.pdf(\ - .pdf:C Generado \ - .pdf EqC No generado \ - .pdf porque no se encontr \tmp\.pdf%Ce QQ\tmp\K(K(K(+KC4200 (CKC C4200  (+KC4200 ( K(K(K(K(+KC4200 (CKC C4200  ( +KC4200 (! K("K($#K(%#K(&#+KC4200 ('#CKC C4200  ((#+KC4200 ()# K(*#T+"\(\?T,\(\?T-\(\?T.\(\?T/\(\?T0,-./T1!\(\?T2 \(\?%C% Q%Cplvenage WQplvenageoplvenageQ5bienesQ456C57Q7C58Q856 5: 5; 56qK(=7K(>7K(?7+K6C4200 (@7CKC 6C4200  (A7+K6C4200 (B7Q3Q<Tavance_de_ventas% 0 es_ind_sql_avanceDE% N\tmp\.dbf( \auxiliares\ - .dbf  N \auxiliares\ - .dbf(\tmp\.dbf-%C\tmp\.xls0 C\tmp\.xls(\ - .xls:C Generado \ - .xls  qC No generado \ - .xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 C\tmp\.pdf(\ - .pdf:C Generado \ - .pdf D qC No generado \ - .pdf porque no se encontr \tmp\.pdfQ\tmp\K(GFK(HFK(IF+K6C4200 (JFCKC 6C4200  (KF+K6C4200 (LF K(MF'TNCM M d6'TOCG G d6'TPCH H d6'TQCI I d6'TRCJ J d6'TSCK K d6'TTCL L d6K(VUK(WUK(XU+K6C4200 (YUCKC 6C4200  (ZU+K6C4200 ([U K(\U'T]C\ "\ d6'T^CV V d6'T_CW W d6'T`CX X d6'TaCY Y d6'TbCZ Z d6'TcC[ ![ d6K(edK(fdK(gd+K6C4200 (hdCKC 6C4200  (id+K6C4200 (jd K(kdK(mlK(nlK(ol+K6C4200 (plCKC 6C4200  (ql+K6C4200 (rl K(slK(utK(vtK(wt+K6C4200 (xtCKC 6C4200  (yt+K6C4200 (zt K({t QT producciones% 2 ind_sql_ingresos_produccion% N\tmp\.dbf( \auxiliares\ - .dbf 6N \auxiliares\ - .dbf(\tmp\.dbf-%C\tmp\.xls0 C\tmp\.xls(\ - .xls:C Generado \ - .xls _qC No generado \ - .xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 C\tmp\.pdf(\ - .pdf:C Generado \ - .pdf qC No generado \ - .pdf porque no se encontr \tmp\.pdfQ\tmp\}K(~K(~K(~+KC4200 (~CKC C4200  (~+KC4200 (~ K(~Tpedidos% >( ve_sql_pedidos_v2% :N\tmp\.dbf( \auxiliares\ - .dbf N \auxiliares\ - .dbf(\tmp\.dbf-%C\tmp\.xls0 DC\tmp\.xls(\ - .xls:C Generado \ - .xls qC No generado \ - .xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 mC\tmp\.pdf(\ - .pdf:C Generado \ - .pdf qC No generado \ - .pdf porque no se encontr \tmp\.pdfQ\tmp\}K(K(K(+KC4200 (CKC C4200  (+KC4200 ( K('TCM M d6'TCG G d6'TCH H d6'TCI I d6'TCJ J d6'TCK K d6'TCL L d6T inventario% . sql_rptinventarioactualDE% N\tmp\.dbf( \auxiliares\ - .dbf N \auxiliares\ - .dbf(\tmp\.dbf-%C\tmp\.xls0 C\tmp\.xls(\ - .xls:C Generado \ - .xls 9 qC No generado \ - .xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 C\tmp\.pdf(\ - .pdf:C Generado \ - .pdf b!qC No generado \ - .pdf porque no se encontr \tmp\.pdf%C inventario!QQ\tmp\ao inventario6CQC7cQ7 6qK(K(K(+K6C4200 (CKC 6C4200  (+K6C4200 (KC(K(K(K(+K6C4200 (CKC 6C4200  (+K6C4200 (KC(5C$Antes de generar el Dashboard en XLSC%C inventarioi$QBUXDESDEXHASTAXDIRXAUTXCONTROLXANOXMESXHEADERXTABLAP_DEV XRECALCULO MENSAJE_SINO EXPORTAR_DASHVE_SQL_ESTADISTICASP_LOCALLOGEAR XLOG_GENERALCANTAUX XPROFESIONALLINEAXESCOLAR XARTESANALXACRYLICCOD_INSXOTRAS XUNIDADES XFACTURACIONIMPORTE XPROFESIONALI XESCOLARI XARTESANALI XACRYLICIXOTRASI XUNIDADESIXFACTURACION_REAL COSTOTOTAL XPROFESIONALC XESCOLARC XARTESANALC XACRYLICCXOTRASC XUNIDADESCXFACTURACION_COSTOXFACTURACION_CON_IVA XFACTURACION_CON_IVA_PROFESIONALXFACTURACION_CON_IVA_ESCOLARXFACTURACION_CON_IVA_ARTESANALXFACTURACION_CON_IVA_ACRYLICXFACTURACION_CON_IVA_LTSXFACTURACION_CON_IVA_UNSXFACTURACION_CON_IVA_OTRASPLVENAGEBPCODIGOCANTIDADCANT_ORIBIENESMESANOQ XPROFESIONALP XESCOLARP XARTESANALP XACRYLICPXOTRASP XUNIDADESPES_IND_SQL_AVANCEXLISTA XDESCUENTOPLANXPROFESIONAL_PLAN XESCOLAR_PLANXARTESANAL_PLAN XACRYLIC_PLAN XOTRAS_PLANXUNIDADES_PLANXPLANXFACTURACION_VLXPROFESIONALVL XESCOLARVL XARTESANALVL XACRYLICVLXOTRASVL XUNIDADESVL PLAN_VALORXPROFESIONAL_PLANIXESCOLAR_PLANIXARTESANAL_PLANIXACRYLIC_PLANI XOTRAS_PLANIXUNIDADES_PLANIXPLANIXFACTURACION_V XPROFESIONALV XESCOLARV XARTESANALV XACRYLICVXOTRASV XUNIDADESV PEDIDOS_AXPROFESIONAL_PED XESCOLAR_PEDXARTESANAL_PED XACRYLIC_PED XOTRAS_PED XUNIDADES_PEDXPEDIDOS PED_APR_AXPROFESIONAL_PEDA XESCOLAR_PEDAXARTESANAL_PEDA XACRYLIC_PEDA XOTRAS_PEDAXUNIDADES_PEDA XPEDIDOS_APR PED_NAPR_AXPROFESIONAL_PEDN XESCOLAR_PEDNXARTESANAL_PEDN XACRYLIC_PEDN XOTRAS_PEDNXUNIDADES_PEDN XPEDIDOS_NAPRIND_SQL_INGRESOS_PRODUCCION PRODUCCIONESLITROSXPROFESIONAL_PROD XESCOLAR_PRODXARTESANAL_PROD XACRYLIC_PRODCOD XOTRAS_PRODXUNIDADES_PRODXPRODVE_SQL_PEDIDOS_V2 LITROS_ORIXPROFESIONAL_ING XESCOLAR_INGXARTESANAL_ING XACRYLIC_ING XOTRAS_ING XUNIDADES_ING XPEDIDOS_INGXPEDIDOS_ING_PXPROFESIONAL_ING_PXESCOLAR_ING_PXARTESANAL_ING_PXACRYLIC_ING_P XOTRAS_ING_PXUNIDADES_ING_PSQL_RPTINVENTARIOACTUAL INVENTARIOFALTASCANT_COMCANT_PEDFACTOR FALTAS_LITROSXPROFESIONAL_FALTASXESCOLAR_FALTASXARTESANAL_FALTASXACRYLIC_FALTAS XOTRAS_FALTASXUNIDADES_FALTASXFALTASXPROFESIONAL_FALTAS_LITROSXESCOLAR_FALTAS_LITROSXARTESANAL_FALTAS_LITROSXACRYLIC_FALTAS_LITROSXOTRAS_FALTAS_LITROSXUNIDADES_FALTAS_LITROSXFALTAS_LITROS SALIDA_XLS7/TTablero Financiero - CC$* C^G+(listadosaQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcxa QEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx1QEXPORTACIONES_XLS_CELDA imp_exp.vcx1TCExportaciones_xls_CeldaIMP_EXP'TC ExportacionesIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPT #.##0_;#.##0TaTC^T :T C Exportaciones_Parametros_FormatoIMP_EXPT aT C^T T C T aT C^T  TC T-TC^TC T #.##0_;#.##0T Reporte Final1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxTRango principalC  C  T!T"TDetalleC  CTotal  C  $C Profesional  C  CEscolar  C  "C Artesanal  C  CAcrylic  C  CTotal  C  &C Trimay/Fusion  C  COtras  C  1CPlan de Venta - Importes Ca#  Ca  Ca$  Ca  Ca%  Ca  Ca&  Ca  Ca'  Ca  #Ca$%&'  Ca  Ca(  Ca  Ca)  Ca  /CFacturacin - Importes Ca*  Ca+  Ca,  Ca-  Ca.  Ca/  Ca0  Ca1  Ca2  Ca3  #Ca,.02  9Ca,.02$%&' d  Ca4  Ca5  Ca6  Ca7  C UT8C9:;<=),.0269:;<= 6#T>C9,9 6#T?C:.: 6#T@C;0; 6#TAC<2< 6ITBC9:;<!,.029:;< 6#TCCD4D 6#TEC=6= 6)CPrecio por Litro Ca8  Ca  Ca>  Ca  Ca?  Ca  Ca@  Ca  CaA  Ca  CaB  Ca  CaC  Ca  CaE  Ca  UTFC9:;<=)GHIJK9:;<= 6#TLC9G9 6#TMC:H: 6#TNC;I; 6#TOC<J< 6ITPC9:;<!GHIJ9:;< 6#TQCDRD 6#TSC=K= 6(CCosto por Litro CaF  Ca  CaL  Ca  CaM  Ca  CaN  Ca  CaO  Ca  CaP  Ca  CaQ  Ca  CaS  Ca  ,TTC88F8 d6,TUC>>L> d6,TVC??M? d6,TWC@@N@ d6,TXCAAOA d6,TYCBBPB d6,TZCCCQC d6,T[CEESE d6,CMargen Contribucin CaT  Ca%  CaU  Ca%  CaV  Ca%  CaW  Ca%  CaX  Ca%  CaY  Ca%  CaZ  Ca%  Ca[  Ca%  C (CFacturacin+IVA Ca\  Ca  Ca]  Ca  Ca^  Ca  Ca_  Ca  Ca`  Ca  Caa  Ca  Cab  Ca  Cac  Ca  C /CPlan de Venta - Litros Cad  Ca  Cae  Ca  Caf  Ca  Cag  Ca  Cah  Ca  #Caefgh  Ca  Cai  Ca  Caj  Ca  -CFacturacin - Litros Cak  Cal  Ca9  Cam  Ca:  Can  Ca;  Cao  Ca<  Cap  #Ca9:;<  9Ca9:;<efgh d  CaD  Caq  Ca=  Car  4CPedidos Ingresados - Litros Cas  Cat  Cau  Cav  Caw  Cax  Cay  Caz  Ca{  Ca|  #Cauwy{  9Cauwy{efgh d  Ca}  Ca~  Ca  Ca  C 4CPedidos Pendientes - Litros Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  #Ca  Ca  Ca  Ca  Ca  Ca  >C%Pedidos Pendientes Aprobados - Litros Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  TT'TC d6Ca  Ca  Ca  Ca  Ca  Ca  TT'TC d6?C&Pedidos Pendientes Rechazados - Litros Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  C .CProducciones - Litros Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  #Ca  Ca  Ca  Ca  Ca  Ca  C CFaltas Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  #Ca  Ca  Ca  Ca  Ca  Ca  C %-4CID !CCONCEPTO C  ( &T% =&T &CCC$ C% CTOTAL C% CCUENTAS CTaC  ~ *cCC9C'C C 6666 cCaCVC9C'C C 6666 ^CaC9C'C C 6666 ( )TCtmp_er.iCCZTCtmp_er.pCCZ%C)_CaC9C'C C 6666 _CaC9C'C C 6666 TT_CaC9C'C C 6666 _CaC9C'C C 6666 mCaCC9C'C C 6666 C C C F(\tmp\2F!Q\tmp\2i1tmp_er2C & C Z CF& ~,C CaCV ( , TC tmp_er2.iCCZ TC tmp_er2.pCCZ%C,Ca Ca FQC C C CLINEA "Ca DESCRIPCION Ca ( -T% -T $CaCC$ Ca  CaTOTAL F& CZCZT ~/%y. T T .TH./ . T . T  / T D/(>CC T6 /(>CC T6<  J(<  T T ~1%  ,0C T C0 T TC Ca Ca ( <1TNCCZCaC Ca %81(TCCCa 'T C C%  1C  TC CaTOTALES Ca (4HF23 k2TVENTA 2TCOSTO 2TLITROS 2TPRECIO X LITRO 3T COSTO X LITROC !CaTOTAL  Ca %3( 3 CaC Ca  4( 4%@4;TCCCC 6 4;TCCCC 6Ca Ca C2TCExportaciones_ParametrosIMP_EXP5TT%q5T - dashboardT 5T dashboardTCC( 6JT\tmp\C (CCZ)6.xls T- e6  T- z6 Ta% 6!% 6DC7No se puede generar el Dashboard porque est en uso !!! 78TC (CCZ)6 C%74\tmp\C(\CBUXHEADERXDIRXAUTXCONTROLXTITULOLISTADOSXPAR1IMP_EXPVCXXPAR2XPAR3XPAR4XFORMATO_TITULOXFOR2XFOR3XFORHEADXCELLXEXPXFOR NUM_FORMAT FONT_BOLD FONT_COLOR FONT_SIZEFO_COPY FONT_ITALIC FO_INTERIORFO_NUEVOXREPORTE_COMPLETOXRANGOXRANGO2XRANGO3 CEL_NOMBRECEL_ADDOFF_FILABOR_TIPOXPLANIXPROFESIONAL_PLANIXESCOLAR_PLANIXARTESANAL_PLANIXACRYLIC_PLANIXUNIDADES_PLANI XOTRAS_PLANIXFACTURACION_REALXFACTURACION_V XPROFESIONALI XPROFESIONALV XESCOLARI XESCOLARV XARTESANALI XARTESANALV XACRYLICI XACRYLICV XUNIDADESI XUNIDADESVXOTRASIXOTRASVXPRECIO_POR_LITRO XPROFESIONALXESCOLAR XARTESANALXACRYLICXOTRASXPRECIO_POR_LITRO_PROFESIONALXPRECIO_POR_LITRO_ESCOLARXPRECIO_POR_LITRO_ARTESANALXPRECIO_POR_LITRO_ACRYLICXPRECIO_POR_LITRO_LTSXPRECIO_POR_LITRO_UNS XUNIDADESXPRECIO_POR_LITRO_OTRASXCOSTO_POR_LITRO XPROFESIONALC XESCOLARC XARTESANALC XACRYLICCXOTRASCXCOSTO_POR_LITRO_PROFESIONALXCOSTO_POR_LITRO_ESCOLARXCOSTO_POR_LITRO_ARTESANALXCOSTO_POR_LITRO_ACRYLICXCOSTO_POR_LITRO_LTSXCOSTO_POR_LITRO_UNS XUNIDADESCXCOSTO_POR_LITRO_OTRASXMARGENXMARGEN_PROFESIONALXMARGEN_ESCOLARXMARGEN_ARTESANALXMARGEN_ACRYLIC XMARGEN_LTS XMARGEN_UNS XMARGEN_OTRASXFACTURACION_CON_IVA XFACTURACION_CON_IVA_PROFESIONALXFACTURACION_CON_IVA_ESCOLARXFACTURACION_CON_IVA_ARTESANALXFACTURACION_CON_IVA_ACRYLICXFACTURACION_CON_IVA_LTSXFACTURACION_CON_IVA_UNSXFACTURACION_CON_IVA_OTRASXPLANXPROFESIONAL_PLAN XESCOLAR_PLANXARTESANAL_PLAN XACRYLIC_PLANXUNIDADES_PLAN XOTRAS_PLAN XFACTURACIONXFACTURACION_VLXPROFESIONALVL XESCOLARVL XARTESANALVL XACRYLICVL XUNIDADESVLXOTRASVL XPEDIDOS_INGXPEDIDOS_ING_PXPROFESIONAL_INGXPROFESIONAL_ING_P XESCOLAR_INGXESCOLAR_ING_PXARTESANAL_INGXARTESANAL_ING_P XACRYLIC_INGXACRYLIC_ING_P XUNIDADES_INGXUNIDADES_ING_P XOTRAS_ING XOTRAS_ING_PXPEDIDOSXPROFESIONAL_PED XESCOLAR_PEDXARTESANAL_PED XACRYLIC_PED XUNIDADES_PED XOTRAS_PED XPEDIDOS_APRXPROFESIONAL_PEDA XESCOLAR_PEDAXARTESANAL_PEDA XACRYLIC_PEDAXSUM1XSUM2XVARXUNIDADES_PEDA XOTRAS_PEDAXPROFESIONAL_PEDN XESCOLAR_PEDNXARTESANAL_PEDN XACRYLIC_PEDN XPEDIDOS_NAPRXUNIDADES_PEDN XOTRAS_PEDNXPRODXPROFESIONAL_PROD XESCOLAR_PRODXARTESANAL_PROD XACRYLIC_PRODXUNIDADES_PROD XOTRAS_PRODXFALTASXPROFESIONAL_FALTASXESCOLAR_FALTASXARTESANAL_FALTASXACRYLIC_FALTASXUNIDADES_FALTAS XOTRAS_FALTAS CEL_RANGO_ADDNITXMESXINICIOMESUSO_PADRE_FILAIDTMP_ERTIPODESCRXDATOXPORCITPT ER_CUENTASXRFIRSTXRLASTP_LOCAL XTABLA_ERTMP_ER2CUENTAPROCESO_NO_ASIGNADOSZ TMP_RESUMENLINEAID2XLINEAXXXVNTXCXLARR_RESXXIXOLDXITXNZZXENCABEZEX_ARCHIVO_ENTRADAEX_ENTRADA_TIPOEX_ARCHIVO_SALIDA EX_XLS_ABRIR CEL_RANGOPARAMETROS_COLLADDXOK_DASHXFILEXOK_DASH_EN_USOMENSAJEEXPORTAR_XLS_COLL TCW%= G( T G(G G GG( FBUXARCHXMSGXINICIALXAREA procesar_dash salida_xls4logearwA"CaAAA1AAaaQA1aAAAAAAS"A"B3qbA$AA1A1AAruqq1rqq1sqq1AAAB sqq1AA1A1Arsqq1sqqqqqqwqq1sqqqqqqsqq1rqq1rqq1$AA1A1Atqq1IAA1A1Atqq1rqqqqqqqAA1A1AArrqq1rqq1TAB:1" rQQQqA!aqqqqq1qqq1pQ111111qqqqqqqqS111111qqqqqqqqqqqqqqqqqqqqq1qqq1C1Bqqqqq1qqqrrrrrqrrqrrrrrrrqqqqq1qqqqqqqq1qqqS1AbAR91AABrrAABrA!qS1ABBta1A11111AAr1tAaq2ABrBA1!1!1111A2qA2AqAABB"qAABArAAAB1AAABB3rAbaaaB1JDvSDt͹#%Nw/F50eG(%Cborrar1)FQ%CborrarOFQ!%C \borrar1.dbf0FQ\borrar1  lC_Antes debe emitirse el listado Ventas Mensuales por Producto separado por cliente y con costos.<  T154 T3015 T3081 T3360 T2432 T2868 T3405 T1896 T 3248 %Cclientes =Qclientescodcli?h1\margen_clientesCC(FG((codcli ( FEC F >C F '>Z98 EXPORTACIONES!>Z79MENDOZA&>Z71 BAHIA BLANCA T %  1aaa=1oborrar QQC 6QQQC 6QQQC 6Q !Q!"Q"C  " 6Q#$%&Q&'Q'C%%'% 6Q()*+Q+,Q,C**,* 6Q-./0Q01Q1C//1/ 6Q2345Q56Q6C4464 6Q789:Q:;Q;C99;9 6Q<=>?Q?@Q@C>>@> 6QABCDQDEQECCCEC 6QFGHIQIJQJCHHJH 6QKLQLMQMNQNOQOCMMOM 6QPC8 %*/49M>CH 1 \tmp\margenwoborrarCQCQCQQCQCQCQQCQCQCQQCQC Q C"Q!Q#C$Q$C%Q%C'Q&Q(C)Q)C*Q*C,Q+Q-C.Q.C/Q/C1Q0Q2C3Q3C4Q4C6Q5Q7C8Q8C9Q9C;Q:Q<C=Q=C>Q>C@Q?QACBQBCCQCCEQDQFCGQGCHQHCJQIQKCLQLCMQMCOQNQPC8 %*/49M>CH 1 \tmp\margen1>C 6C 6C 6#C  ! 6(C%%&% 6-C**+* 62C//0/ 67C4454 6<C99:9 6AC>>?> 6FCCCDC 6KCHHIH 6PCMMNM 6> %*/49>CHM% u5|WSHGetSpecialFolderPath Shell32.dllWTVCC  Q!%CVS_TWCVCC V=TWCWCW>[F !(W\margen_clientesԻFX(W\margenԻFY"(W\margen_acumuladoԻCPreproceso realizado !!!C Se han creado margen.xls, C  margen_acumulado.xls y C margen_clientes.xls (CEl preproceso a fallado !!!ON ERROR &onerr BUZBORRAR1BORRARP_LOCALMENSAJEXCLICLIENTESCODCLICODIGONOMBREZMARGEN_CLIENTESAAAP_DEVPRODUCTOGRUPOLINEACAN1IMP1COS1ACCCOS1CMA1CAN2IMP2COS2ACCCOS2CMA2CAN3IMP3COS3ACCCOS3CMA3CAN4IMP4COS4ACCCOS4CMA4CAN5IMP5COS5ACCCOS5CMA5CAN6IMP6COS6ACCCOS6CMA6CAN7IMP7COS7ACCCOS7CMA7CAN8IMP8COS8ACCCOS8CMA8CAN9IMP9COS9ACCCOS9CMA9CANEIMPECOSEACCCOSECMAECANMIMPMCOSMACCCOSMCMAMCANBIMPBCOSBACCCOSBCMABCANRIMPRCOSRACCCOSRCMARALLFORSHGETSPECIALFOLDERPATHSHELL32DLLLPSZPATHLCFOLDERMARGENMARGEN1aqAArqAAArArrrQBrQsQQcAHq7Q1VRArrr!B2A6%/%(%=W9fbT40005 T02T1 TT1 T 101080100$%C\porte_cod.dbf0 5C No existe \porte_cod.dbf !!!B-  %C porte_cod Q \porte_cod%Cccvent :Qccvent%Cventas hQventas%Cccclie Qccclie%Ccliaux Qcliaux%Cmovstock Qmovstock%Cbienes $Qbienes TaTCX es_cle_porte(%TC]CborrarԾѿ -C %C4HC;El archivo tiene errores internos, no se puede importar !!!  C W2C%No se ha realizado la importacin !!!BUXCLIENTE_PORTEXPUNTO_DE_VENTA XVENDEDORXMOTIVO XDEPOSITOXCOD_CUEP_SYSTEMMENSAJECCVENTVENTASCCCLIECLIAUXMOVSTOCKBIENESXRESXARCHIVO ES_CLE_PORTEXTABLA CREAR_TABLAC1IMPORTARJ 4%C* FQh1\tmp\CdCdCdCdCdCd Cd Cd Cd Cd CdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCdCd Cd!Cd"Cd#Cd$Cd%Cd&Cd'Cd(Cd)Cd*Cd+Cd,Cd-Cd.Cd/Cd0Cd1Cd2Cd3Cd4Cd5Cd6Cd7Cd8Cd9Cd:Cd;Cd<Cd=Cd>Cd?Cd@CdACdBCdCCdDCdECdFCdGCdHCdICdJCdKCdLCdMCdNCdOCdPCdQCdRCdSCdTCdUCdVCdWCdXCdYCdZCd[Cd\Cd]Cd^Cd_Cd`CdaCdbCdcCddCdeCdfCdQ\tmp\BUgXTABLAXALIASP_LOCALC1C2C3C4C5C6C7C8C9C10C11C12C13C14C15C16C17C18C19C20C21C22C23C24C25C26C27C28C29C30C31C32C33C34C35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55C56C57C58C59C60C61C62C63C64C65C66C67C68C69C70C71C72C73C74C75C76C77C78C79C80C81C82C83C84C85C86C87C88C89C90C91C92C93C94C95C96C97C98C99C100 T TF#)'& C=C=CCg Z TTtrsacchpdiariogcom_operven_operconcepto% TE trsac Es_cle_porteImportacin Porte Molitor%P T T  rserwerewr~C 1h5% C=C=CCg ZG%   CF/T C=C=CCg Z T TTC%CT  %d C%   CT TEtrsac Es_cle_porteImportacin Porte Molitor T%L8CSe procesaron CC Z comprobantes !!! 3C&No se pudo comenzar la transaccin !!! >C1No se pudieron bloquear las tablas necesarias !!!BU XRECEPCIONXITMBORRARC2C5C6COMPROBAAALOCK_GTRSACBEG_TRANXCPBTXOLDCPBTC50XOK_ENCPROCESAR_FINALPROCESAR_ENCABEZADOPROCESAR_DETALLEXOK TTS_ERROREND_TRANTTS_IDMENSAJE wTC=-C00000000CRCC=FCV!CC=NCcd66%CAN%C rccvent     0C=-C00000000CRCC=FCV!CC=NCcd66CC#ANULADAANULADAaC$B-%CB-F >8> C=-C00000000CRH> CC=FCV!CC=NCcd66> CC#>Cg>Cg>Cg>Cg>Cg >> >Cg.>C Consumidor SN6 >!">#CC#!>$C cd%6>&1>'PROPIO >(> CC)/- >C$ >* >+.>,C Consumidor SN6 >-.>/80 >C$ >0 >1 >2a>3N >4 >5a >6 >7>8NL>9C Monotributo "C Consumidor 66>:801>;R-C00000000CRF< >8>=C=-C00000000CRH> CC=FCV!CC=NCcd66>>CC#>?Cg!>$C cd%6>@> >ACC# >C$8>BC=-C00000000CRH>CCC=FCV!CC=NCcd66>D >*>ECC# >1 >(>F= CGZ>HC]FI8>=C=-C00000000CRH> CC=FCV!CC=NCcd66>J>KL>MN>OP>QR>SCCUgT >V> CC)/->WL>XN>YP>ZCCUgT >[>\L>]N>^P>_CCUgT >`BaUaXIDBORRARC5XPUNTO_DE_VENTAC6C2C25 BUSCAR_FCCOD_CLIFAC_VENCAUSAFEC_VENDES_CLIECUITAPLICHOYASIDIAC15CCVENTXCLIENTE_PORTETOT_VENC21 IMPONIBLEINVIVAINVIVA_VENC23PLANC8DEUDAC24CONSFINC18AGENTE XVENDEDORFEC_ENTMOTIVOXMOTIVOCOD_FLEFLETECOEFICC16LISTAPESOCOFINDEP XDEPOSITOCOD_DOCVENTAMONEDAINMEDDIVESTADO FACTURADONFCNFCMAX PROMOCIONIVACATTIPODOCREM_VENCCCLIECOMPROBFECHAIMPORTECOMENTARVENCREFCAUCANCELFECREFIDCUOTAIDUCLIAUXNOMBRE DOMICILIOC11CIUDADC12ZIPC13PHONOC41 PROVINCIA FN_PROVINCIAC14PAISENTDOMENTCIUENTZIPENTPROENTPAIFCEDOMFCECIUFCEZIPFCEPROFCEPAI(F > >BUCCVENT RECEPCION XRECEPCIONBULTOSTCgTF >8>C= -C00000000C R> CC #> CC>Cg>Cg>1>R -C00000000C RH>CC=FCV!CC=NCcd66> > > > >>S>S > C$ > >! >">#$%F&>'CC>(Cgc>)CC # >*+8>,C= -C00000000C RH>CC=FCV!CC=NCcd66 >->.CCC$C^:BU/ XRECEPCIONBORRARC52XITMVENTASCOD_CLIXCLIENTE_PORTEFAC_VENC5XPUNTO_DE_VENTAC6FEC_VENC15COD_INS FN_ARTICULOC50 RECEPCIONCOS_LIFOC54TOT_VENREM_VENCAUSAC2DES_CLIEC8COD_CUEXCOD_CUEMONEDACOEFICLISPRE INVENTARIOGRAVADAHOYITMIVAPERDESC_INSBIENESDESCRMOVSTOCKCODIGOCANTIDADFECHADEPOSITO XDEPOSITONUMEROITEMHORA4 TCWF-C%C4C oT F B T'vCC VFCC cNCND66   :  Artculo C invlido !!! F BU XCODXAREA PORTE_CODCOD_PORCOD_CLE XCOD_ARTICULO TTS_ERRORMENSAJECCVENTCAUSAFAC_VEN4H  @ BC 2T'wCCVFCCcNCND66  :  Provincia C invlida !!! BUXCOD TTS_ERRORMENSAJECCVENTCAUSAFAC_VEN14FG((ccvfac EBC4UXIDCCVENTCCVFAC crear_tabla_importar procesar_encabezadopprocesar_finalgprocesar_detalle fn_articuloD" fn_provincia# buscar_fc$ 11aBQqAA!A!A!A!AAA!AqA!AB3AApa_A3rQCrF3Q2qQArABAAA"QA1AAB2rCQAqBBrArQA"!!!!"A1sQA!A1ArQaaar2qA2brQAa!!rQb1AD2qrr1aA3qqA3qq138 U= 4oT###$<$!*9*+  ,-,-}-%5IJ49fiG(9%Cproveedo AFQproveedoFTCXTCXes_sel_cartas_documento%CqueryFQ C3Q!\tmp\rpt_cm_fact_a_pagar_completo2oquery CH  1borrar1F ~% Cz>CIUD.AUT.BS.AS.>CIUD.AUT.BS.AS.>CfF E( \tmp\valores  Ի%CT.t. 6*Tbetw(pro_cod, xdpro1, xhpro1)set filter to &xfiltro #)+C+ HF T*%CImprime C  ?! TCO(borrarFc Qborrar-?\prt\es_sel_cartas_documento(!QF #+C+  DHF QFQBU ACTIVEFORM DATASESSIONIDPROVEEDOXDPRO1XHPRO1ES_SEL_CARTAS_DOCUMENTOQUERY CONSULTARP_LOCALPRO_DESCPBT_VENCPBT_CODBORRAR1PRO_PRVPRO_CIUPRO_PRDPRO_CODPRO_DOMPRO_ZIP CPBT_COMPCPBT_CHQCPBT_IMPXFILTROXPRO MENSAJE_SINOXREGBORRARP_SYSTEM%cm_rpt_facturas_a_pagarJTC3 $TC$TaTTTaTaT a C (CIniciando datos... C C < BUCM_RPT_FACTURAS_A_PAGARXFORMXDFEC1XDFEC2XDLOG2XDCATXHCATXDLOG4XDLOG5MANTENERPREPROCESAR_IMPRESIONOESTADO SET_AND_SHOWPROCESAR_IMPRESIONPOSTPROCESAR_IMPRESIONRELEASE consultarAqbqAA2"rAAArRRAQqAqAAAAsArAB3RrB18.H% V8 hI4qf %Cproveedo .Qproveedo%Cpro_adi ^Qpro_adiF ~ FG((codpro E%C4 brpro_adi%NO EXISTEN GARANTIAS SOBRE ESTA DEUDApaQSELECT P.cod_pro, P.nombre, Pro_adi.cau_deu_1, SPACE(30) AS d1, Pro_adi.cau_deu_2, SPACE(30) AS d2, Pro_adi.deu_txt, Pro_adi.cod_pro AS id FROM proveedo P, pro_adi WHERE P.cod_pro = Pro_adi.cod_pro$CpaView SendUpdatesa+CpaViewBatchUpdateCount$CpaView CompareMemoa&CpaView FetchAsNeeded-"CpaView FetchMemoa$CpaView FetchSized&CpaView MaxRecords!CpaViewPrepared-%CpaView UpdateType&CpaView UseMemoSize,CpaViewTables ges!pro_adi$CpaView WhereType4Cpa.cod_proFieldDataTypeC(6)FCpa.cod_proField UpdateNameges!proveedo.cod_pro.Cpa.cod_proFieldKeyField-/Cpa.cod_proField Updatable-4Cpa.nombreFieldDataTypeC(30)DCpa.nombreField UpdateNameges!proveedo.nombre-Cpa.nombreFieldKeyField-.Cpa.nombreField Updatable-6Cpa .cau_deu_1FieldDataTypeN(2)ICpa .cau_deu_1Field UpdateNameges!pro_adi.cau_deu_10Cpa .cau_deu_1FieldKeyField-1Cpa .cau_deu_1Field Updatablea0Cpa.d1FieldDataTypeC(30))Cpa.d1FieldKeyField-*Cpa.d1Field Updatable-6Cpa .cau_deu_2FieldDataTypeN(2)ICpa .cau_deu_2Field UpdateNameges!pro_adi.cau_deu_20Cpa .cau_deu_2FieldKeyField-1Cpa .cau_deu_2Field Updatablea0Cpa.d2FieldDataTypeC(30))Cpa.d2FieldKeyField-*Cpa.d2Field Updatable-6Cpa.deu_txtFieldDataTypeC(200)ECpa.deu_txtField UpdateNameges!pro_adi.deu_txt.Cpa.deu_txtFieldKeyField-/Cpa.deu_txtField Updatablea/Cpa.idFieldDataTypeC(6)@Cpa.idField UpdateNameges!pro_adi.cod_pro)Cpa.idFieldKeyFielda*Cpa.idField Updatable-F Qpa& !G+(cm_sql_facturas_a_pagar ~ C C #)G~(clasesG+(listadosTCreporte_ventanaNTVarios > C C <Q paBUPROVEEDOPRO_ADICODPROCOD_PRO CAU_DEU_1 CAU_DEU_2DEU_TXTPANOMBRECM_SQL_FACTURAS_A_PAGARV1V2CLASESLISTADOSOCAPTIONSHOWD1D2#4>CBaUXXXD1 FN_CAUSA1#4>CBaUXXXD2 FN_CAUSA2v1 v2 AA1Arq!AAZ BAa!AaQaABaBAbbbQAR!brBA2q!q2q!q1N pR F u%qY`[hXfo4 T-Tt:T 105010101T 402040000T 402080000@ atrcan.gesG+(listadosG+( co_ventasG+( ve_pedido C CAbriendo tablas... "T \tmp\CC]R ve_pedidoG+(listados%Cf C+CImportacion concluida !!! 0CNo hay datos para importar !!! C C%CVcabecFQ%CVitemsFQ%Cvmedpa&FQ%CVregesLFQ%d%y T- eTCImportacion concluida !!! C -Hay comentarios registrados!!! Desea verlos?%`.| ShellExecute Shell32.dll7Copen\tmp\car_lince.txtBUXAUT GLOBAL_ERRORXPATHXCOD_CUEXVEN_CUEXDES_CUEATRCANGESLISTADOS CO_VENTAS VE_PEDIDO ESTADO_INI ESTADO_INC XTEMPCOMPP_LOCAL OPEN_FILESOBTENIENDO_DATOSIMPORTANDO_DATOSMENSAJE ESTADO_RELREPORTEVCABECVITEMSVMEDPAVREGESXRESP MENSAJE_SINO SHELLEXECUTESHELL32DLLH4TC\T BU XREGISTROZXLENXRES 4h1\tmp\CCCCC C C C( C CCC CCCCCCCCCCCCCCCC C!C("C#C$C%C&C'C(C)C*C+C,C-C.C/C0C1C2C23C4C5C26N 7T7C+aT8C7 %CC8> TO>C89C89C89C89C89 C89 C89 C8(9 C89 C89C89C8 9C89C89C89C89C89C89C89C89C89C89C89C89C89C89C89C89 C89!C8(9"C89#C89$C89%C89&C89'C89(C89)C89*C89+C89,C89-C89.C89/C890C891C892C8293C894C895C829 ! C7QBU:XARCHXDESTINOZP_LOCALCAUSALETRASUCFACDESDEHASTAFECHACOD_CLINOMBRETDOCPROVINCCATIVACUITIBCOD_AGEZONACAT_CLI1CONDCAU_EMIVENCTOTALCODDESCCODDESFCODDESPCONTABTIPOCLI DIRECCIONCODPOST LOCALIDADCAT_CLI2MENSAJEANULADOSTOCK DCAT_CLI1 DCAT_CLI2DTIPOCLIDZONADAGENTE PREPARADODESC1DESC2DESC3DESCFDESCPCAIVTOCAICONTFISEMAILTELFAXCONTACTOIDXHANDLE XREGISTROLEER 4h1\tmp\CCCCC C C C C CCC2CCCCCCCCCCCCCCCC C!C"C#C$C%C&C'C(C()C*C+C,C-N .T.C+aT/C. %CC/> T>C/0C/0C/0C/0C/0 C/0 C/0 C/0 C/0 C/0C/0C/20C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0C/0 C/0!C/0"C/0#C/0$C/0%C/0&C/0'C/0(C/(0)C/0*C/0+C/0,C/0 ! C.QBU1XARCHXDESTINOZP_LOCALCAUSALETRASUCFACDESDEHASTAFECHACOD_CLITIPOITEMCODIGOUMEN1UMEN2DESCRPRECIOIVAPER IVAPERNOIIVAIVANOIIMPORTEDTOCDTOFDTOP CODNOGRAV IMPNOGRAVTIPOIVA CODDESLINDESLINDEPOSITOPARTIDA PERDESCITM IMPRENGLONCLASECODDEF1DCODDEF1CODDEF2DCODDEF2COD_PRONOMPRON1N2N3BARRASIDXHANDLE XREGISTROLEER 4h1\tmp\CCCCC C C C C CCCCCCCCCCCCCCCCCCC C!T!C+aT"C! %CC"> T>C"#C"#C"#C"#C"# C"# C"# C"# C"# C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"#C"# C"# ! C!QBU$XARCHXDESTINOZP_LOCALCAUSALETRASUCFACDESDEHASTAFECHACOD_CLIMEDPAGOMONEDACAMBIOVARIOSTIPOVENCIMPORTENUMCHE CODBANTARSUCBANCOCLEARINGORIGENCOD_CUETARJETAAUTORIZNOMLIBRADIRLIBRACPLIBRAPROLIBRALOCLIBRATELLIBRA IMPO_LOCALXHANDLE XREGISTROLEER 4sh1\tmp\CC DCN N &   T C+aT C  %CC >m TT C  MT CFC V.CNC cCND dX666CTC  CC  R-C  > C  TC  3TCCC\gCC\gCC\g$#>C  C  >CCC  g {! C QBUXARCHXDESTINOZP_LOCALCAUSACOMPROBFECHACOD_CLIIMPORTEIDXHANDLE XREGISTROXCAUSALEERXCOMPROBXFECHAf CObteniendo datos...(ch7%C\vcabecC00CCZR.txt0d<C\vregesC00CCZR.txtvreges<C\vcabecC00CCZR.txtvcabec<C\vitemsC00CCZR.txtvitems<C\vmedpaC00CCZR.txtvmedpaQ$%C\tmp\vcabec.dbf0GQ \tmp\vcabec CQ \tmp\vregesQ \tmp\vmedpaFQ \tmp\vitems C$&    CZ XB-BaU ESTADO_INCZXPATHLEER_VENTAS_PERCEPCIONESLEER_VENTAS_CABECERALEER_VENTAS_ITEMSLEER_VENTAS_PAGOSP_LOCAL IDENTIFICARCAUSALETRASUCFACDESDEHASTAIDCOMPROB@C$Importando comprobantes de ventas...CvcabecN G "G(\tmp\car_lince.txtG :C Comprobante Cliente Error1C-Q ------- C-PQGG( T T T -T TT F>&    CZCC $+C+ F(C00019339 00019339 T     TCO++C+      " TCOH #(T C R- >TC FCVC NCcd66TBCImportando ...     - FG((ccvfac E!%C4Cg :FH. T"Tes_car_auxiliares.prgnT Importacion Lince: CVFC/CcNCCdNDXX666  T!a""co_aut!C%!k_$trsacccventventascccliecliauxdiariogconcepto% T&trsac T'! T(trsac T) T* C+)%,) * KT b T&trsac T'%*g T-aC*.G #G(\tmp\car_lince.txtG lCV FC 2Cc NC Cd ND XX 666   *GG( :C(No se puede seleccionar el ejercicio !!!.!FHFG((#6BU/ ESTADO_SETP_LOCALXMONEDAXCAMBIOSINSTKXPEDIDOXLISTAXFLETEVCABECCAUSALETRASUCFACDESDEHASTAIDCOMPROBFN_FECHAFECHASYS_MXIDACTXREGXNUMEROFXCAUSAXCOD_CLICOD_CLI ESTADO_INCCCVENTCCVFACTOTALDEUDAAAATRAN_PRGTRAN_TXT XRESULTADOSELECCIONAR_EJERCICIOCO_AUTLOCK_GTRSACEND_TRANTTS_IDBEG_TRANXERRORXMERRORIMPORTAR TTS_ERROR GLOBAL_ERRORMENSAJEh4%C+B a,BCCC=gCC\gCC\g$UXFG G(temp.txtG FG((comprobFG((ven_facF Comprobante CBruto CDto. CSubtotal CIVA CIIBB CTot.Real C Tot.Calc. CDif. /~    C$  C ZC  ZC  ZC  ZC  ZC ZC    ZC    Z Comprobante ~ C$FG((ven_facE  T/+C+    RTHFG((comprob E CZ TI+C+ 6 CZCZ TH%J8  : CCV->VENC Z%8  : CCV->CCCC ZGG(BUTEMPTXTCCCLIECOMPROBVENTASVEN_FACCCVENTDEUDATOT_VENDES_COMIVA_VENDTO672HOYFAC_VENCAUSAACCVCOD_CLIACCCCUOTAIMPORTEUFG((ccvfac E%C4%CgPB %C }B T %T C NC6T  ;TC FCC NC66TC"TC  T T T T T T T T T T T T T  T! T" T# T$ T% T& T' T( T T) T* T+ T, T- T. T/ T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T: T; T< T= T> T? T@TANTCCgFB TC TD%E999999R~ FGHICJZ FGHICJZ TCCTKCCBL =TMCCBL\NTOCCBL\PFQ>RCS>T UEV WKXYZ [B\]CB^ASN6_O`MaCb cdC$TeC XTfC XTgC XThC XTiC X%B^AJKCKOMB\CCBkg CCCBkgZ6BlBmj%n6B Toa%Cp0qlistadoseghiQW%o  Tn4TsCK! : Definicin invlida de cuenta.B F TnMTsCK: : No se pudo obtener la imputacin contable del artculo.B  Tn2TsCK : Tipo de artculo no definidoBFQ >teOTuCV CBvg c CBvg  6>wuCBxgyz{|CB}gCFBC/CCBxgCCB~gCCBxg 66CBgCCBgNS6zCBg4Tw|C6d <>CCCBvgCFB CCB~g6!%C? Tn0Ts#Redondeo excesivo (>0.5) en detalleBT??CCB~gT2TCCBvgCB^A63TCCBvgCCBg6T!!LTCCBvgCCB^Aa-6 CBg 6TCCBvg.TCCBgCCBgCCBgTCCB~gTDD%FBi TTTTF G((id ET"T"!%C ףp= ? TTC T T  T T T T T TT T T TUTCC03C=-C\-C \6TC-SN6 T T T TTCCgTCCgTCCgTCCgTCCg T T! T T T T; T: T T< T=T0 T T -TC] T T T T T T-TN T TTCTCTCX T T TTC Tve_comprobanteF@>E  CCV ydC$JECZC]% >%Cejercon Qejercon T Ta  co_ventasa%  Tn Ts T?C(Error al registrar el asiento contable: C  JFo>0 VANULADA{ZANULADA dC$aBUCCVENTCCVFACXNUMEROFXCAUSAVCABECTOTALDEUDAELIMINARCOD_CLIXNUMERORNCREDCAUSA XOTRO_CLINOMBREXTIPOPEDXFECEMIFN_FECHAFECHAXPLANVENCT_DESCOM T_DES_NACT_IVAT_IVA26T_FINAL T_RECARGOT_IBT_TOTAL T_RECEPCIONT_INVT_TOTIVAT_IVAINVT_TOTLINT_IIT_DTO672 T_IMPUESTOS T_ADIC_IVA T_ADIC_NOI T_ADIC_II T_ADIC_DTO672 T_REDONDEO T_TOTIVAINCTX_IBTX_TOTAL TX_RECEPCIONTX_INV TX_TOTIVA TX_IVAINV TX_TOTLINTX_II TX_DTO672 TX_IMPUESTOS TX_ADIC_IVA TX_ADIC_NOI TX_ADIC_IITX_ADIC_DTO672 TX_REDONDEO TX_RECARGOT_PESONT_PESOT_BULTOS T_VOLUMENT_VOLT_IVAVAR TX_IVAVAR T_CONSFINVITEMSXITEMSACCVENXCOD_CLILETRASUCFACDESDEHASTAIDXCODCODIGOXATR LIMPIAR_ATRXBUL LIMPIAR_BULVENTASCENTRO FN_CENTROREM_VEN SUBCENTRODES_CLIECOD_INSPEDIDOXPEDIDOFAC_VENDESC_INSDESCR INVENTARIOTIPOITEMBULATRITMNOSTKSINSTKHOYXCUXDEXDE1XDE2XDE3FN_AGREGAR_ARTICULOCOD_PRON1N2XERRORXOK VLDCODVENVEN_CUELISTADOSXMERRORCOD_CUE XCASO_RARO1 IMPRENGLON RECEPCIONUMEN1MONEDAXMONEDAFEC_VENCOS_LIFOPRECIOIVADES_INS PERDESCITMLISPREXLISTAGRAVADAIVAPERCOEFCOEFICXCAMBIOXTOT_VENTOT_VENDTOCDTOFDTOPVREGESIMPORTEXTOTAL_CALCULADOXFECENTXCENTRO XCOMI_VEN XCOMI_DISXPRODXOTXTRAN XCONTACTOXTXTCPBTCONTACTO XTXTREMITO XVENDEDORXDISTRIBXCUITCUITXCOFINX4X5 XDESCADICXMOTIVOT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESCFT_DESC5DESCPFLETEXSUC T_DES_NAC1 T_DES_NAC2XDEPOSXPEDVENINMXIDT_DESC1ET_DESC2ET_DESC3EXREFXOC XMULTIPLEXDIVISAS XUSR_AP_STK XUNEGOCIOS XARM_INICIOXARM_FIN XARM_QUIEN XARM_CAJAS XARM_PALLETXARM_EXHXRFCFN_RFCCOD_AGEXUN REG_CCVENTVE_COMPROBANTECCCLIECOMPROBCOMENTARBULTOSOPERACIOCALLMOTIVOREFCAUCONDLISTAFECREFCUOTACUOMAXCUOSUCIDUUSRRFCADELANTOCANCELEJERCONXMSG XRESULTADO REG_ASIDIA CO_VENTAS TTS_ERRORMENSAJEAPLICASIDIA4 TCWFG((codins E%C4 *%C=XC=Z T IT  El articulo C& debe darse de alta primero en GES !!! FB>  C]*%C=XC=Z ? >CCNS6CCNS6C%C uFG((codigo E%C4 Z2>  C]> %C F!G((codigo E%C4 2>  C] >F"G((codigoECX%C4 ;>#$ C]C] FBU%XCODXBULXATRXDESCRXCOD_PROXDATRXDBULXAREABIENESCODINSXERRORXMERRORCOD_INSIDUDESCRCOD_CUEXCOD_CUEVEN_CUEXVEN_CUEDES_CUEXDES_CUELINEAGRUPOBULTOS ATRIBUTOSTIPO_ARTCOD_PROCOD_CEN FN_CENTROCODIGOCLAVEID CANTXBULTATRIBUTOSTOCKATRBUL4 BCgUXRUBROB100 UJ4H: . : B  BUXBULJ4H: .- : B  BUXATR4Fc-CCZCZCcZ$CZ C Z %C4 T RT El comprobante . tiene imputaciones !!! No se puede anular....B-FB~C C ZCZCcZ/% C ZCZ T TT El comprobante 0 est aplicado a otro !!! No se puede anular....B-F !  F!-  TT%C4q T T!  F<C C ZCZCcZ%FG((asiento E&+C+   :HFG((asiento E+C+  HBaUXCOD_CLIXCOMPROBXCAUSACCCLIECOD_CLIREFCAUCUOCOMPROBCAUSACUOTAXERRORXMERRORVENTASFORFAC_VENCCVENTXASIDIAXFECHAASIDIAFEC_VENDIARIOGASIENTOFECHACONCEPTO%QS:\data\3\ej-2005\diariog.dbfS"QS:\data\3\ej-2005\conceptoSQS:\data\3\ccventSQS:\data\3\ventasSQS:\data\3\ccclieSBUS QS:\data\1\ccclie.dbf%VcdC $ QS:\data\1\ventas.dbf%VcdC $ QS:\data\1\ccvent%VcdC $ $QS:\data\1\ej-2005\diariog.dbf%VcdC $ BUSFORCAUSAFECHAFEC_VENCAU TCW2& ( \tmp\borrar13( \tmp\borrar1G!(FQ \tmp\borrar11& ( \tmp\borrar2 FT ddsdsdsd ~v#% bT F E > F>FQ FBU AREACAUSALETRASUCFACDESDEHASTAP_LOCALIDBORRAR1XOLDleerleer_ventas_cabecera7leer_ventas_items leer_ventas_pagosTleer_ventas_percepcioneszobteniendo_datos importando_datos#fn_fechaC,reporte,importar1fn_agregar_articuloKfn_rfcOP fn_centrotP limpiar_bulP limpiar_atrPeliminar>QborrarUborrar1UV identificarWqPaaa211"B"ArqAArqAArqAArqAAQArBAB4qQ2r`q1r1rQ DAABBA2r)r1rQ8AABAA3rr1rQ(AABAA2r:"r1rQ2tR25QAABAA3rAAABAqAq2b!aaa1rqAA"srAAA"!2BAA22b1aaaBAArAAraQB2qQA2aarrr Ar2q1AArAAbAaAAcaA2rBBABAQA"Ar!rQQ r1AAAAAAA!AAr BAA!1ArAwRABQAAAAAQBuQuA1AAsQBA4rrAARBl "qQ%AsA#qQ%AArqQAAA2q22qaA2qaA2s3!qAt!AqAAsr1Ar2raAAArAAABr2QA!AAAAA2QQqQAQA3!1aQ1rAAqAA15( ;I P&"eD"*z*)/F/2$2@C@MA aAG6&Gj*jqJr/rMErWrOorrVr7s ]LsyyzUz|b*|~n%*ūjBfG(9%CCg\0C#El iva ventas est mal definido !!!G~(clasesG+(listados C T+a TC$ T  T  T T CX T  TTCTC T+aK TH^G -(T CCC C Z6 Tve_z_locales2_1(T#%CcuentasabrevT I.C!Cuenta de ventas mal definida !!! TT C g%P!TC ZC  ZCF G((ID E%C4 T  T  T !"ovlocald1Q#ocom_oper$Q$C XQ%CXQ&CXQ'(cQ)*Q*+Q,C- C(- 6Q.012CXC @z 9999,999,999_L3 !  1Q4 C5 Lh16C(7C 8N2N9C:N;N<N)NQ#h1$C %C &C'C)N*N ,D.NQ4 C5He) |! %T % T  ! ) T @F4#)ve_z_locales2_2(Hx< ! %T % T ! < T Gve_z_locales2_3(HC ! %T  % T #! C T%l C?%CdetF#Q %CpagF4Q %!BU@ ACTIVEFORM DATASESSIONIDATRCANMENSAJECLASESLISTADOS OPEN_FILESXSUCPROPXFECHAXZXTOTALXUNXCENXASIENTOXACCXTMPODEYFUNCNEWFILE_LOCAL_TMPXTMP2XFORMXMAXFORMXRESVE_Z_LOCALES2_1XCTA_LOCSUCPROPCTAVENCUENTASCOD_CUEXIDVLOCALEIDTOTALZASIENTOVLOCALDDETCUENTAABREVDESCRDES_VALCAJ_PROIMPORTENUMERO DIF_VALORVENCMONEXTCAMBIOCOM_OPERCOD_PROCOMPROBCAUSAFECHAPAGCOMPLETAR_CUENTASCLIENTECUITCATIVALETRACENTRODESDEHASTAVE_Z_LOCALES2_2VE_Z_LOCALES2_3 REGISTRAR C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccheques Qcheques%Cunidades Qunidades%Cvlocale Qvlocale%Cvlocald 4Qvlocald%Cccvent bQccvent%Ccostos Qcostos%Ccuentas Qcuentas%Csucprop QsucpropBU ABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCHEQUESUNIDADESVLOCALEVLOCALDCCVENTCOSTOSSUCPROP T Taco_aut%dtrsacvlocalevlocaldcom_operchequesdiariogconcepto &CEjercicio inexistente !!!%  TKtrsac Ve_z_localesRegistro operaciones de locales Ta%TC % T T TK trsac Ve_z_localesRegistro operaciones de locales'%   FCSe ha registrado el asiento CC @z 999,999,999,999_ T  BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID* Ta2%   F F  F" CZC ZCF" CZC ZCF@CXC @z 9999,999,999_L 7FG((asiento#6T  brvlocale  CZC ZC Vrconcepto    VENTA LOCAL: CCZ Z: CCZ T TF ~)TCd  T0TCd  Trvlocald  !"CZC ZC !"Trdiariog#$%& '()*+,Cc6C6-L VTA.LOC.: CCZ Z: CCZC$NN.rdiariog#$%& '()*+,Cc6C6C/L VTA.LOC.: CCZ Z: CCZC$NN T0F1!~2C X F3G((cuenta E12F1T00#rcom_oper42567 )(*89:;,C @z 9999,999,999_1c121<161= C16126LC$0391>C1>1c1> 1c6.,rdiariog#$%& '()*+?>;,C1 16C11c612L VTA.LOC.: CCZ Z: CCZC$N0N391>C1>11> 16.@ T@A co_asientos @%@C@C TD T-BaUETRSACXUNVLOCALEUNXFECHAFECHAXZZDIARIOGFORASIENTOXASIENTOCONCEPTOIDVLOCALDCOM_OPERCOD_PROCOMPROBCAUSATOTALXTOTALXSUCPROPXACC_IVAXACC_VTADETIMPORTECONSIVACLIENTECUITCATIVALETRACENTRODESDEHASTADEBITOCREDITOCOD_CUEPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CENXCTA_LOCXCENATRCANXPASEPAGCUENTACUENTASCAJ_PRODES_VALNUMERO DIF_VALORASIDIAMONEDACOEFICMONEXTDESCRVENCCAMBIOMONPASEXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERRORFG+( co_funcionesFG((abrev9~C C C {C FG((cuentaFG-( >  #)BUPAG CO_FUNCIONESCUENTASABREV ES_EFECTIVOATRIBUTO ES_AJUSTEPUNTOXSUCPROPZ_INSERTAR_CUENTACOD_CUECUENTADESCRALLJF-%C4 CrpagUXINSERTAR_CUENTAPAGCUENTA open_filesQ registrar transaccioncompletar_cuentasVZ_Insertar_cuenta A!11A2r& BC1B12A12A1B1A2qQ1B12A12A1B1A21B12A12A1B1ABB2ABqAABqAA2AAAB2AAA1AAA1A1A!A!A1A1AB2GaA2AAsbBBC3"trs!s!ssQB$crW B q  qrr`1pDr1Ar3qaqA0qrQB2qqA1;wZ(`x(<8 Z88% i 7o<3f G(9G~(clasesG+(listados ve_z_locales2+a TC$ T TT CX T  T +a T H (T CCCCZ6 T  ve_z_locales_anular2( TC g% !TCZC ZCF G((id E%C4 T  %CCierre no encontrado !!! T H   ! [% WT   % T   !  T %  C!BU ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILES VE_Z_LOCALES2XFECHAXZXUNXCENXASIENTOXFORMXMAXFORMXRESVE_Z_LOCALES_ANULAR2XIDVLOCALEIDMENSAJE REGISTRAR T Taco_aut%dtrsacvlocalevlocaldcom_operchequesdiariogconcepto &CEjercicio inexistente !!!%  TVtrsacVe_z_locales_anular#Anulacin de operaciones de locales Ta%TC % T T TV trsacVe_z_locales_anular#Anulacin de operaciones de locales'%   QC!Se ha anulado el cierre (Asiento CC @z 999,999,999,999_). T  BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID TaF T T!TCZC ZCF F F F  F@CXC@z 9999,999,999_L T-BaUTRSACVLOCALEXASIENTOASIENTOXFECHAFECHAXIDXUNXZDIARIOGFORCONCEPTOIDVLOCALDCOM_OPERCOD_PROCOMPROBCAUSA registrar transaccionQ!12rQAA1B12A12A1B1ACB2ACBB3GaAa2AAbsBBC3rsrsssr18 c YW{ %k1!*0{2gG(9%CCg\0C#El iva ventas est mal definido !!!G~(clasesG+(listados C+a TC$ T T  T  T  T T CTC T+ai THBe M Tve_z_locales_1(%p!TC ZC ZCF G((ID E%C4 T  TT "ovlocald1 Q ocom_operQC XQCXQCXQ !cQ"#Q#$Q%C& C!& 6Q')*+CXC @z 9999,999,999_L,   1Q- C. lh1 /C(0C 1N+N2C3N4N5N"NQ h1C C C C"N#N %D'NQ- C.HI ! %T % T )! I T _F-#)ve_z_locales_2(H[ ! %T $% T ;! [ T eve_z_locales_3(Ha ! %T *% &T A! a T% C8%CdetFQ  %CpagF-Q  %!BU9 ACTIVEFORM DATASESSIONIDATRCANMENSAJECLASESLISTADOS OPEN_FILESXFECHAXZXTOTALXUNXASIENTOXACCXTMPODEYFUNCNEWFILE_LOCAL_TMPXTMP2XFORMXMAXFORMXRESVE_Z_LOCALES_1XIDVLOCALEIDTOTALZASIENTOVLOCALDDETCUENTAABREVDESCRDES_VALCAJ_PROIMPORTENUMERO DIF_VALORVENCMONEXTCAMBIOCOM_OPERCOD_PROCOMPROBCAUSAFECHAPAGCOMPLETAR_CUENTASCLIENTECUITCATIVALETRACENTRODESDEHASTAVE_Z_LOCALES_2VE_Z_LOCALES_3 REGISTRARm C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccheques Qcheques%Cunidades Qunidades%Cvlocale Qvlocale%Cvlocald 4Qvlocald%Cccvent bQccventBU ABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCHEQUESUNIDADESVLOCALEVLOCALDCCVENT T Taco_aut%dtrsacvlocalevlocaldcom_operchequesdiariogconcepto &CEjercicio inexistente !!!%  TKtrsac Ve_z_localesRegistro operaciones de locales Ta%TC % T T TK trsac Ve_z_localesRegistro operaciones de locales'%   FCSe ha registrado el asiento CC @z 999,999,999,999_ T  BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID Ta2%   F F  F" CZC ZCF" CZC ZCF@CXC @z 9999,999,999_L 7FG((asiento#6T  brvlocale  CZC ZC Rrconcepto   Ventas en locales Z: CCZ T TF ~)TCd  T0TCd  Trvlocald  !CZC ZC !Trdiariog"#$% &'()*Cc6C6 503020000L Ventas en locales Z: CCZC$NNrdiariog"#$% &'()*Cc6C6C+L Ventas en locales Z: CCZC$NN T,F-!~.C X {F/G((cuenta E-.F-T,,rcom_oper0.123 (')4567C @z 9999,999,999_-c-.-8-2-9 C-2126LC$,/5-:C-:-c-: -c6rdiariog"#$% &'()*;:7C- -6C--c6-.L Ventas en locales Z: CCZC$N,N/5-:C-:--: -6< T<= co_asientos <%<C<? T@ T-BaUATRSACXUNVLOCALEUNXFECHAFECHAXZZDIARIOGFORASIENTOXASIENTOCONCEPTOIDVLOCALDCOM_OPERCOD_PROCOMPROBCAUSATOTALXTOTALXACC_IVAXACC_VTADETIMPORTECONSIVACLIENTECUITCATIVALETRACENTRODESDEHASTADEBITOCREDITOCOD_CUEPOR_QUE COMENTARIOHOYTIPOPASESUBDATRCANXPASEPAGCUENTACUENTASCAJ_PRODES_VALNUMERO DIF_VALORASIDIAMONEDACOEFICMONEXTDESCRVENCCAMBIOMONPASEXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERRORqFH;  C 101010301C 101010308C 101010315C 101010503  C 101010302C 101010309C 101010316C 101010502  YC 101010303C 101010310C 101010317C 101010504 C 101010304C 101010311C 101010318C 101010501 /C 101010305C 101010312C 101010319C 101010506 C 101010306C 101010313C 101010320C 101010507 C 101010307C 101010314C 101010321C 101010509 2;C 101010202C 101010203C 103020200C 103020500C 103020400C 103030200C 103030100C 103020300C 103020600C 103020100C 201010600C 607020400FG((cuentaFG-(>#)BUPAGXUNZ_INSERTAR_CUENTACUENTASCUENTADESCRABREVALLJF-%C4 CrpagUXINSERTAR_CUENTAPAGCUENTA open_files/ registrar transaccion>completar_cuentas@Z_Insertar_cuentaA!12r& BC1B12A12A1B1A2qQ1B12A12A1B1A21B12A12A1B1ABB2ABqAABqAA2AAAB2AAA1AAA1A1A!AB2GaA2AAsbBBC3"trs!s!ssQB##rW B  qrrP@Br1Ar3q1aaaa1aaaa1aaaa1aaaa1aaaa1aaaa1aaaabbAccccccccbbsrQB2qqA1x$B$1##11z% f 1;gG(9G~(clasesG+(listados ve_z_locales+a TC$ T T T  T +a T H  T ve_z_locales_anular( % !TCZC ZCF G((id E%C4l T  %CCierre no encontrado !!! T H ! % T   N% JT   e!  T %  C!BU ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILES VE_Z_LOCALESXFECHAXZXUNXASIENTOXFORMXMAXFORMXRESVE_Z_LOCALES_ANULARXIDVLOCALEIDMENSAJE REGISTRAR T Taco_aut%dtrsacvlocalevlocaldcom_operchequesdiariogconcepto &CEjercicio inexistente !!!%  TVtrsacVe_z_locales_anular#Anulacin de operaciones de locales Ta%TC % T T TV trsacVe_z_locales_anular#Anulacin de operaciones de locales'%   QC!Se ha anulado el cierre (Asiento CC @z 999,999,999,999_). T  BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJEBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORXASIENTOTTS_ID TaF T T!TCZC ZCF F F F  F@CXC@z 9999,999,999_L T-BaUTRSACVLOCALEXASIENTOASIENTOXFECHAFECHAXIDXUNXZDIARIOGFORCONCEPTOIDVLOCALDCOM_OPERCOD_PROCOMPROBCAUSA registrar transaccion!r12rQAA1B12A12A1B1ACB2ACBB3GaAa2AAbsBBC3rsrsssr15 TT ^ %:NO2kgG(9G~(clasesG+(listados CTTT T  T  T es_ele_datos_serie( % F > BU ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXCODOBIEDATA_CODIGO_VACIOXATRXBULXLOTOLOTXFECXRESES_ELE_DATOS_SERIEDESPACHOFEC1g%Cdespacho .Qdespacho%Cbienes \QbienesBUDESPACHOBIENES open_files!12qAA2AA!AA2U% p.|BgG+(listadosG~(clasestsp_asigTC TC TC TC EstadoJ tsp_asig# tsp_asigTMP_OK$ tsp_asigTMP_MAL 'TCCC CTRL_Viajes T*.xls  TC"CImportar()ITC(CCZ/CCZ-CCTMP_ASIGNZ)CCa CCrtmp_okotmp_asigQXtsp_asigQ CCCZқCCқCC қ    rtmp_malotmp_asigQXtsp_asigQ CCCZқCCқCC қC    Cptmp_asigtmp_ok""!"Dptmp_asigtmp_mal##!#Hotmp_asigQ$Q%Q&'1Q(@p tmp_Grupo$&tmp_okC"("Tp tmp_Grupo%:tmp_malC##C#g(# Tp tmp_Grupo&:tmp_malC##C#g(# F!(TMP_ASIGC)U*LISTADOSCLASES OPEN_FILESTSP_ASIG XTABLA_TMP XTABLA_TMPOK XTABLA_TMPMALXTABLA_TMPGRUPOOESTNEWFILEODEYFUNCNEWFILE_LOCAL_TMPESTADOCREAR_TABLA_TEMPORALXDIR XFACTURASOBTENER_DIRECTORIO_ARCHIVOXXLSXNXLSNIT SET_AND_SHOWXMENSAJEAVANCEDEVENTSANALIZARVIAJEFACTURADESTINO1DESTINO2DESTINO3TASTESFACTGNTTMP_ASIGTMP_OKTMP_MALNROOKERR_CARERR_FACOBS TMP_GRUPOEXPORTAR-tsp_asig_2_importar_factura.scxJTaCFG(?rtmp_Asig o tmpimpdbfC  T-U XXLSOFRMTSP_ASIG_2_IMPORTAR_FACTURASCXXIMPORTAR_PARCIALINICIAR_AUTOMATICO TMPIMPDBFVIAJEFACTURAOBSRELEASE  +TC Exportaciones Imp_Exp.vcx6T CExportaciones_Parametros Imp_Exp.vcx6TCExportaciones_Parametros Imp_Exp.vcx6TCExportaciones_Parametros Imp_Exp.vcx6TCExportaciones_Parametros Imp_Exp.vcx>T C Exportaciones_Parametros_Formato Imp_Exp.vcxT Reporte Completo #T Resumen de lo cargadoTCTResumenTResumen Ta TaT T CCFacturaFacturaCNroOKCorrecto$CErr_Car Falta Cargar%CErr_Fac Falta FacturaCObsArchivoTC 1/T !Listado completo de viajes leidosTCTCompletoTCompleto T-T CCViajeViajeCFacturaFacturaCDestino1Existe%CDestino2 Fact Cargada!CDestino3Fact GNTTC)T Viajes asignados a facturasTCTBuenasTBuenas T-TCR$T Viajes con diferenciasTCTMalasTErroresTTC CollectionC CCC UXDIR XTABLA_TMP XTABLA_TMPOK XTABLA_TMPMAL XTABLA_GRUPOOEXPXPAR1XPAR2XPAR3XPARRXFOR1XFORXREPORTE_COMPLETO EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_TITULO_HOJAEX_ANEXAR_LIMPIAEX_ANEXAR_PLANILLAEX_ANEXAR_ARCHIVO EX_XLS_ABRIREX_XLS_CAMPOS_AGREGAREX_COPYPARAMETROS_COLLADDEXPORTAR_XLS_COLLAnalizarExportar"2s2r1AqaQ"A y 4CDDsq8qrra2qaaaa1QQAQBaaQAAAAA1QAAAAA1& 6 [1L rk%~9 RtHgG_ G~(clases<7TC abm_tsp_tspsN#%C PoAbmtsp_tspsbOTCU- BUCLASES POABMTSP_TSPS SOLO_LECTURAACCESOSHOW ges%Ctsp_tsps FFQtsp_tspscodigo%Cprovinc FQ\provinc%Cpaises FQ\paisescodigoFBUGESTSP_TSPSCODIGOP_SYSTEM abm_tsp_tspsBU ABM_TSP_TSPS openfilesdummy T T-TcodigoT abm_tsp_tsps T-TTransportistasTtsp_tspsThlpTcodigo T <T descrT  TransportistaT descrT C TTcodigoTCdigoTcodigoTN TTcuit TTCUITTCU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 abm_tsp_tspshlpabm2>brq1QAA2AaAAsAP1BA12Q1!!1111 G#jo)%oG=dj?gG_ G~(clases<7TC abm_tsp_camiN#%C PoAbmtsp_camibOTCU- BUCLASES POABMTSP_CAMI SOLO_LECTURAACCESOSHOW ges%Ctsp_tsps FFQtsp_tspscodigo%Ctsp_chof FQtsp_chofcodigo%Ctsp_trai FQtsp_traicodigo%Ctsp_cami FQtsp_camicodigoFBUGESTSP_TSPSCODIGOTSP_CHOFTSP_TRAITSP_CAMI abm_tsp_camiBU ABM_TSP_CAMI openfilesdummy> T T-TcodigoT abm_tsp_cami T-TCamionesTtsp_camiThlpTcodigo T <T descrT  DescripcinT descrT C TTcodigoTCdigoTcodigoTN TTpatenteTPatenteTPatenteTCU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 abm_tsp_camihlpabm2brq1QAA2AAAArAP1BA12TQ1!!111AAA1  jn#-%l1B>hG_ G~(clases<7TC abm_tsp_traiN#%C PoAbmtsp_traibOTCU- BUCLASES POABMTSP_TRAI SOLO_LECTURAACCESOSHOWX ges%Ctsp_trai FFQtsp_traicodigoFBUGESTSP_TRAICODIGO abm_tsp_traiBU ABM_TSP_TRAI openfilesdummyc T T-TcodigoT abm_tsp_trai T-TTrailersTtsp_traiThlpTcodigo T <T descrT  DescripcinT descrT C TTcodigoTCdigoTcodigoTN TTpatenteTPatenteTPatenteTCU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 abm_tsp_traihlpabm2brq1QAA2ArAP1BA12TQ1!!111AAA1 B_#%<>&??hG_ G~(clases<7TC abm_tsp_chofN#%C PoAbmtsp_chofbOTCU- BUCLASES POABMTSP_CHOF SOLO_LECTURAACCESOSHOWP ges%Ctipodoc BFQ\tipodoc%Ctsp_tsps FQtsp_tspscodigo%Ctsp_cami FQtsp_camicodigo%Ctsp_trai FQtsp_traicodigo%Ctsp_chof >FQtsp_chofcodigoFBUGESP_SYSTEMTSP_TSPSCODIGOTSP_CAMITSP_TRAITSP_CHOF abm_tsp_chofBU ABM_TSP_CHOF openfilesdummyJ T T-TcodigoT abm_tsp_chof T-TChoferesTtsp_chofThlpTcodigo T PT descrT  DescripcinT descrT C TTcodigoTCdigoTcodigoTNU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_tsp_chofhlpabm2brq1QAA2aAAAAArAP1BA12TQ1!!11101 $ps'Q2%]4zCahG_ G~(clases<7TC abm_tsp_LugaN#%C PoAbmtsp_LugabOTCU- BUCLASES POABMTSP_LUGA SOLO_LECTURAACCESOSHOW ges%Cprovinc BFQ\provinc%Cpaises FQ\paisescodigo%Ctsp_Luga FQtsp_LugacodigoFBUGESP_SYSTEMCODIGOTSP_LUGA abm_tsp_LugaBU ABM_TSP_LUGA openfilesdummyI T T-TcodigoT abm_tsp_Luga T-TLugaresTtsp_LugaThlpTcodigo T PT descrT  DescripcinT descrT C TTcodigoTCdigoTcodigoTNU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_tsp_Lugahlpabm2>arq1QAA2aAAArA@1BA12DQ1!!111 1 B-gj' %)nvv oVx*The4T9 3G(9 = TT \data\locales,sys_procesando Sincronizando T   log_errores  ( T\data\CC Z T T('T\CC Z\CCZ)%C\loc_operaciones.dbf02TSincronizando CC Z - CCZ C T T T G( ges C<sys_procesando. log_errores -BUXAUTXESTA_DS ACTIVEFORM DATASESSIONID OLD_P_SERVERP_SERVERP_LOCALES_BASEP_SYSTEM SP_MENSAJESYS_PROCESANDO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORES XLOC_EMPRESAP_PRIVP_COMMON XLOC_LOCALP_LOCALES_SYSTEMXSYS_PROCESANDO SINCRONIZARGESABRIR_TABLAS_FIJASODSSP_OCULTAR_DEFINITIVAMENTELOG_ERRORES_MOSTRARsys_procesando\locales\ges G(Q C CBU SP_MENSAJESYS_PROCESANDOXSYS_PROCESANDOP_LOCALES_SYSTEMP_SERVER XLOG_ERRORES LOG_ERRORESOTSFONDOS 8sys_procesando : Ordenes de Trabajo%Cstock dQ ges!stock%Cstkxdep Q ges!stkxdep%Cccvent Q ges!ccvent%Cventas Q ges!ventas%Cccclie .Q ges!ccclie%Ccompromi dQ ges!compromi%Ccliaux Q ges!cliaux%Cbienes Q ges!bienes%Cmovstock Q ges!movstock%Civa_ven 2Q ges!iva_ven%Cclientes hQ ges!clientes%Ccuentas Q ges!cuentas%Ccons Qges!cons%Ctccvent Q ges!tccvent%Ctventas 2Q ges!tventas!%Cloc_operaciones z#Qlocales!loc_operaciones"%Cloc_comprobantes $Qlocales!loc_comprobantes%C loc_detalle Qlocales!loc_detalle}oloc_operacionesC6QC      tmp_operaciones ~ $TC @z 9999,999,999_ T&T  ʚ; T%%Ctccventtccvord#%Cccventccvord  T TQaCC\gCCRgC= G(%B:  Problemas al anularlo.C TCa G(%C ~= OT/Pedido: CCZ No se pudo anular.%C %  F T !qloc_operaciones "qloc_comprobantes q loc_detalle   T" T# T$-#% co_funciones"#$%$ eOT: CC Z ,No se pudo abrir el ejercicio para la fecha C"* !!! B T T'sys_cons" T)-%WOT: CC Z Balance cerrado para la fecha C"* !!!  T*+trsac*stockstkxdeptccventtventascccliecompromicliauxloc_operacionesdiariogconcepto%*( T-dlc_sincronizar.prg*T.Sincronizacin de OTs-Pedidos/trsac*-.%*n T$C0%$ T* j T*@12Abort el usuario o error-  T*@12Abort el usuario o error-$3trsac*-. T4%$* $ T)a  %5 6 OCBNo se pudieron reservar los archivos. No se ha registrado nada !!!7BU8 SP_MENSAJESYS_PROCESANDOXSYS_PROCESANDOGESLOCALESELIMINARIDXLOC_OPERACIONESTIPOSYNCULTACTFECHAIDTMP_OPERACIONESXCOMPROBANTE_TRANTXN XCAUSA_TRANXPEDIDO XLOC_EMPRESA XLOC_LOCALXMSGXERRVE_ANULAR_COMPROBANTECCVENTCAUSAFAC_VENXESTA_DSLOCAL_LOG_ERRORES_INSERTAR XCAUSA_TXTXNUMEROFVE_ANULAR_PEDIDOXIDLOC_COMPROBANTES LOC_DETALLEXFECHAXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESVLD_CIERRE_BALANCESYS_CONSXSE_RESGISTRARONAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRAN REGISTRAR_OTUSER_LOG PUB_INDEXEND_TRANTTS_IDXAUTP_DEVMENSAJEz TFG((tccvord%%CtccventtccvordN OT/Pedido: CCZ$. Se ha registrado con anterioridad. BColoc_comprobantes tmp_comprobantesF> 1         CCZC] !"1#0$>>% &'( )* +,F-> 1.C@z 9999,999,999_/P 0 1  1 C@z 9999,999,999_PCZ2C]$3 + go loc_detalleloc_comprobantes44   tmp_detalle T6 ~T66F7> 1 859 :5;<%5=\(\? >5? @5@A-B>C%: TD TE TFyGproc_stk59  5;P CC@z 999,999,999_ 67FI G((id E%C4O>JCK POT: CCZ*. No se encontr el ID en loc_operaciones. B%L@OT: CCZ Abort el usuario !!! B TM TN TOa TPCWFQG((asiento#6TRKFSG((asiento ER%C4 E>KRSPedido PendienteTUV TWTWWTX &FQ,>YCXXc6ZCXX6[ 501000000\L.]!^W_KR`a9NC$bTXN:CCZ / PD:CCZcdefghTWWTX )FQ,>YCXXc6ZCXX6[ 502000000\L.]!^W_KR`a9NC$bTXN:CCZ / PD:CCZcdefghTWWTX +FQ,>YCXX6ZCXXc6[ 502000000\L.]!^W_KR`a9NC$bTXN:CCZ / PD:CCZcdefghi co_asientosRN%N_ Tk Tl- TM TO- BUmXTXNTMP_OPERACIONESTXNTCCVENTTCCVORDXPEDIDOLOCAL_LOG_ERRORES_INSERTARLOC_COMPROBANTESTIPOTMP_COMPROBANTESCOD_CLISUCDES_CLIECLIENTEPEDIDOHOYFECHAFEC_VENFEC_INIFEC_ENTCUIT DOCUMENTOTIPODOCSUCFACPUNTOAGENTEVENDEDOREST_DESPIDNOTASTXTCPBTPLANLISTACOD_CENCOD_FLEDEPUSRTOT_VENBRUTODES_COMIVA_VENIVADEUDANETODESC1CCCLIECOMPROBCAUSAVENCFECREFIDUIMPORTE LOC_DETALLE TMP_DETALLEXITMTVENTASCOD_INSCODIGO RECEPCIONCANTIDADDES_INSTOTALDESC_INSDESCRITMAPROBLISPRECOS_LIFOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKLOC_OPERACIONESSYNCASIENTOAAAXERRXMSGTRSAC XAREA_ASIDIARIOGNEWASICONCEPTOUNTIPO2LEGALXPASEXIMPORTEDEBITOCREDITOCOD_CUEPOR_QUECAUPASEXFECHAPROCLINOMBRE COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKp4%C log_errores ?Q& log_erroresBUXIDXTXTXNOUNICO XLOG_ERRORES LOG_ERRORESLOG_ERRORES_INSERTAR XLOC_EMPRESA,sys_procesando : Fondos!%Cloc_operaciones p#Qlocales!loc_operaciones"%Cloc_comprobantes $Qlocales!loc_comprobantes%C loc_cobranza Qlocales!loc_cobranza%C loc_detcob :Qlocales!loc_detcob%C loc_egreso xQlocales!loc_egreso%C loc_detegr Qlocales!loc_detegroloc_operacionesC6QC 'C     tmp_operaciones ~kT  T T T $TC @z 9999,999,999_ THg  j T TTCC  \gTCC \g%Cven_oper SQven_operFG((reciboG(R%T   T EG(%C4 T5 te_anu_reca G(! T%S"TXN: C Z -  Cobranza: C  Anulacin: %Cf% @F T !qloc_operaciones q loc_cobranza q loc_detcob  b T% T&-F$--CAJA' (  T&C4Voloc_comprobantesC*Q+    tmp_facturado%CNT.-+ 1 T.T&& . T/-:oloc_operaciones 10 \tmp\tmp_opeQ7o loc_cobranza 10 \tmp\tmp_cobQ5o loc_detcob 10 \tmp\tmp_det T1 Q%1= T&a%Ccons cQ2\cons%Cnumrec Q2\numrec%Cclientes Q2 \clientes%Cven_oper Q2 \ven_oper%Ccom_oper GQ2 \com_oper%Cccclie }Q2\ccclie%Ccheques Q2\cheques%Cchq Q2\chq%Ccccob  Q2\cccob!%Cloc_operaciones a #Qlocales!loc_operaciones%C loc_detcob Qlocales!loc_detcob T3 T4a5co_aut4%4 T37trsac3consnumrecclientesven_opercom_opercccliechequeschqcccobdiariogconceptoloc_operaciones loc_detcob%3P T9dlc_sincronizar.prg(T:Sincronizacin de Cobranzas;trsac39:%3 T3C<%3g T/a  T3@=>Abort el usuario o error9  T3@=>Abort el usuario o error9$?trsac39: T@  %A B OCBNo se pudieron reservar los archivos. No se ha registrado nada !!!C 9 g"TXN: C Z -  Cobranza: C Ejercicio inexistente (C*) !!!  % + f"TXN: C Z -  Cobranza: C  El recibo no tiene detalle !!!  %Ctmp_ope FDQ%Ctmp_cobFEQ%Ctmp_detFFFQ2\ges g%Ccons Qcons T T*H co_funciones a%IH"TXN: C Z -  Cobranza: C   cT% J%%MFKG((asiento E%%C4%C KL^ CM&N co_asientos%-a%C ZY"TXN: C Z - Egreso: C  Anulacin asiento:  e"TXN: C Z - Egreso: C $ Cambio de ejercicio, pedir soporte. I%C EX"TXN: C Z - Egreso: C  Asiento no encontrado.%C_% F T !qloc_operaciones q loc_egreso  [ T%T %Ccom_oper %Q2 \com_oper!%Cloc_operaciones m#Qlocales!loc_operaciones%C loc_egreso Qlocales!loc_egreso T/- T3 T4a5co_aut4%4n T3R7trsac3com_operdiariogconceptoloc_operaciones%3 T9dlc_sincronizar.prg&T:Sincronizacin de Egresos;trsac39:%3iT3CQ%3  T/a eT3@=>Abort el usuario o error9 T3@=>Abort el usuario o error9$?trsac39: T@ j%A B fOCBNo se pudieron reservar los archivos. No se ha registrado nada !!!C R"TXN: C Z - Ejercicio inexistente (C*) !!!%Ctmp_opeFDQ%Ctmp_cobFEQ%Ctmp_det?FFQ2\gesR\locales2\ges%C log_errores QSTBUU SP_MENSAJESYS_PROCESANDOXSYS_PROCESANDOLOCALESELIMINARIDXLOC_OPERACIONESTIPOSYNCULTACTFECHAIDTMP_OPERACIONESXTXNTXNXFECHAXIDXCOMPROBCOMPROBXCOMPROBANTE_TRAN XCAUSA_TRANXERRXMSGXCOMPXPVVEN_OPERRECIBOCAUSAP_MULTIRECIBOSXCPBTXID_OLDANULAR_COBRANZA TE_ANU_RECXESTA_DSLOCAL_LOG_ERRORES_INSERTAR LOC_COBRANZA LOC_DETCOBXASIENTOXBLANCODESCRTIPOCOBSUMNETOTOTALLOC_COMPROBANTES TMP_FACTURADOXTOTAL_FACTURADOXSE_RESGISTRARONP_LOCAL XHAY_DETALLEP_SERVERAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTLOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANREGISTRAR_COBRANZAUSER_LOG PUB_INDEXEND_TRANTTS_IDXAUTP_DEVMENSAJETMP_OPETMP_COBTMP_DETCONSABRIR_EJERCICIO_FECHA CO_FUNCIONESASIENTODIARIOG COMENTARIOABRIR_TABLAS_FIJASCO_ANULAR_ASIENTO CO_ASIENTOS LOC_EGRESOREGISTRAR_EGRESOP_LOCALES_SYSTEM XLOG_ERRORES LOG_ERRORES  T%Ctmp_ope3F EFQ \tmp\tmp_ope%Ctmp_cobF FQ \tmp\tmp_cob%Ctmp_detF FQ \tmp\tmp_det%Ccuentas -Qcuentas/TC  9999,999,999_T RT  T  T 1.rcccob   F#)%T > = TF T ~ FG((cuenta E%C4 WTXN: CZ -  Cobranza: C. Cuenta no encontrada. TC Suspendo?a!F%FG((cuenta EF%} TCO&TCCAJA6'> ! "# $C X% &1' (C$)*+,-2./0#12 3456  %Cbancos Q7\bancos C8bancoscodigo"T9C: CC;ZF<=te_procs>?1@  9!A"# BC ) D(C$-/0#88;;ECF>DD TFD TGF< >HGxIte_procs9A#F-G--8;1F%/ TCOK> 9!A"# $C X% &1' (C$)*+,-1./0#12 3456 88;;FHGFJG((chequeEC8ZC;Z TK-1+C+ C8ZC;ZC8ZC;Z 4 %CL  , TKa>LFMG!H%K TbTN El cheque C8Z/C;Z ya tiene el nmero CCJLZ asignado !!!ETXN: CZ -  Cobranza: C N% FO>&   POT CCQZ#RcST ' U 4V W(C$/.X C @z 9999,999,999_RCZYC]% F # 5ZN TZa TN'[ co_cobranzasZaN]%Z T, Cobranza: C N% F^-X%C41 !>_C`]ab  N Cobranza: C Operacin C no encontrada !!! T%Ctmp_ope FQ%Ctmp_cob FQ%Ctmp_det FQ BUc XRESULTADOTMP_OPEP_LOCALTMP_COBTMP_DETCUENTASXCOMPROBPUNTONUMEROXCAUSAXFECHAFECHAXRECIBOXCOD_CLICOMPROBCAUSACONSP_TE_OERACION_VERSION XOPERACIONCOB_OPERSYS_OPERACION_FONDOSXFIRSTCUENTACOD_CUELOCAL_LOG_ERRORES_INSERTARXTXNXIDSYS_MOSTRAR_SCREENVEN_OPERTIPOCOBXSUBTIPODESCRDES_VAL DIF_VALORCAJ_PROIMPORTEREM_VENPEDIDOCOD_CLIRECIBOHOYEMISIONAGENTECOMISION VOPERACIOTIPOCOEFICMONEDAMONEXTMONPASEFEC_COMISUBTIPOREFAPLICFECHAIP_SYSTEMBANCHQCHEDESCBANCOSNUMCHQCHEQUES NEW_REG_CHETE_PROCSCODIGOFEC_RECFCHEQUENOMBREFLAGCHEQUEPROCLIXNCXSUBNUMSUBNUMCHQ_REG LOC_DETCOBXFOUND ID_CHQ_NUM ID_CHQ_SUBXMSGCCCLIECOMENTARTXNTOTALOPERACIOVENCFECREFCAUDES_CLIEIDIDUXRESULTADO_ASI REG_ASIDIA CO_COBRANZASXASIENTOLOC_OPERACIONESSYNCASIENTOBXBLANCO..sys_procesando : Facturas%Cstock ZQ ges!stock%Cstkxdep Q ges!stkxdep%Cccvent Q ges!ccvent%Cventas Q ges!ventas%Cccclie $Q ges!ccclie%Ccompromi ZQ ges!compromi%Ccliaux Q ges!cliaux%Cbienes Q ges!bienes%Cmovstock Q ges!movstock%Civa_ven (Q ges!iva_ven%Cclientes ^Q ges!clientes%Ccuentas Q ges!cuentas%Ccons Qges!cons!%Cloc_operaciones #Qlocales!loc_operaciones"%Cloc_comprobantes R$Qlocales!loc_comprobantes%C loc_detalle Qlocales!loc_detalleoloc_operacionesC6QCC      tmp_operaciones CBU SP_MENSAJESYS_PROCESANDOXSYS_PROCESANDOGESLOCALESELIMINARIDXLOC_OPERACIONESTIPOSYNCULTACTFECHAIDTMP_OPERACIONESCPBTS_PROCESAR ~ T2TC\C \-C \HZ. C=TCKC=FC  TTV C=NC  TTc C=ND  TTdTC=&T ʚ;  T '%Cccventccvfacd T  T K  aCC \gCC \gC\ G(% `^TXN: CZ - :  Problemas al anularlo.C  % %FT!qloc_operaciones"qloc_comprobantesq loc_detalle  T- Taco_aut% Ttrsacstockstkxdepccventventascccliecompromicliauxmovstockiva_venloc_operaciones% Tdlc_sincronizar.prg+TSincronizacin de Comprobantestrsac% TC% Ta T@ !Abort el usuario o error cT@ !Abort el usuario o error$"trsac T#  %$ % OCBNo se pudieron reservar los archivos. No se ha registrado nada !!!& %$ % sTXN: CZ -  Comprobante: C Ejercicio inexistente (C*) !!!BU'XIDIDXNUMEROFXTIPOCOMPROBANTEGESXCAUSA XCAUSA_TXTXPEDIDOTMP_OPERACIONESTXN XLOC_EMPRESA XLOC_LOCALXERRXMSGVE_ANULAR_COMPROBANTEXESTA_DSLOCAL_LOG_ERRORES_INSERTARELIMINARLOC_OPERACIONESLOC_COMPROBANTES LOC_DETALLEXSE_RESGISTRARON XRESULTADOSELECCIONAR_EJERCICIOCO_AUTFECHAAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANREGISTRAR_CPBTUSER_LOG PUB_INDEXEND_TRANTTS_IDXAUTP_DEVMENSAJETGoloc_comprobantesC tmp_comprobantesF> 1  CCZC]1 0!"CC =BSN61#>$CCZe>%&'&(&)&*+,-./F0> 11  2 3 451  CZ6C]!7.nriva_ven1 8,9:;<  ,,&&ko loc_detalleloc_comprobantes==C = tmp_detalle T? ~ T??F@>   1A1B>CD%>E\(\? F>GH>HIJ>K%B TL TM TN]Oproc_stk>Q  0>Cc  ?1 TR%S 5TU TTa TU$V co_ventasTaUR%T  TXHYTXN: CZ -  Comprobante: C UFZ G((id E%C4;>[C\R mYTXN: CZ -  Comprobante: C*. No se encontr el ID en loc_operaciones. B BU]XTXNTMP_OPERACIONESTXNLOC_COMPROBANTESTIPOIDXIDTMP_COMPROBANTESCCVENTCOD_CLIFAC_VENXNUMEROFCAUSAXCAUSASUCDES_CLIECLIENTEPEDIDOXPEDIDOHOYFECHAFEC_VENFEC_ENTCUIT DOCUMENTOTIPODOCAGENTEVENDEDORPLANLISTACOD_CENCOD_FLEDEPUSRCONSFINCOEFICOTTOT_VENBRUTO IMPONIBLEINVIVAINVDES_COMIVA_VENIVADEUDANETODESC1CCCLIECOMPROBREFCAUVENCFECREFIDUIMPORTETASAIVA_MOBASEBASE_MOTIPO_REG LOC_DETALLE TMP_DETALLEXITMVENTASCOD_INS RECEPCIONCANTIDADDES_INSTOTALDESC_INSDESCRITMLISPREIVAPERCOS_LIFOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKCODIGOXASIENTO TTS_ERRORXRESULTADO_ASIXMSG REG_ASIDIA CO_VENTAS XRESULTADOLOCAL_LOG_ERRORES_INSERTARLOC_OPERACIONESSYNCASIENTO%Ccuentas ,Qcuentas TF T T T T T Ta T  T   co_asientosF #)T,o loc_egreso tmp_egreso%CN TRTXN: CZ - Egreso: C Mal registrado. '%CcuentascuentaWTC CF }> !S"N#N  TaTXN: CZ - Egreso: C No existe la cuenta de gastos.%'%CcuentascuentaF }> !S"N#N>"E >$@ > T% T&T' co_asientos%&(  a8%%F) G((cpbtEC% 9999,999,999_L+C+ +% %,(>- LOC EGR HF. G((id E%C4 >/C+% hTXN: CZ - Egreso: C*. No se encontr el ID en loc_operaciones. B  TcTXN: CZ - Egreso: C  No se pudo registrar el asiento.  TcTXN: CZ - Egreso: C  No existe la cuenta de efectivo. BU0CUENTAS XRESULTADODIARIOGXABMXTIPOXMONEDAXCAMBIO XIMPORTACION XAFECTA_SUBDXUNXTABLA_VERSIONESINICIALIZAR_ASIENTO_MANUAL CO_ASIENTOSMASTERXIDTMP_OPERACIONESID LOC_EGRESO TMP_EGRESOLOCAL_LOG_ERRORES_INSERTARXTXNCUE_EGR XCONCEPTONOTAABREVCOD_CUEDEBITOTOTALCREDITO COMENTARIOCOD_CENCAMBIOMONEDASUBDCODPASEPROCLIOPCATRXASIENTOXASI_MAREGISTRAR_ASIENTOXFECHACOM_OPERCPBTASIENTOFECHAREFLOC_OPERACIONESSYNC sincronizarots registrar_otlocal_log_errores_insertarL"fondos#registrar_cobranza=cpbtsVNcpbts_procesar'Sregistrar_cpbt[registrar_egresoeq)Ar#BBBbrB5Rat22F2rQAqAaAaAaAAaAaAAqAAqAaAAqAqA1A!AAADaR32!ACc"AB#r!3QA2q 222BABAqABABACC2rRA3sQpAsQ szQ ArsA:AsQsQAVrQ`rQ`rQ`2A31AbB31A!AAAAAABarqAArAbsW21AB#rre"AAqAQA3eAAAAAAAQqAqA1AA 222BABqABsBbaBBqAAqAAqAAR2CAbcA22tf"AQA!AAB#rA1AA%2a22BABqAB#BqAAqAAqAAS2DAABCv21AB2rqAqAqA1ArQ2BtrqsDAsbsrQ2AcqA"r1@ ssrQ2AsqtBAAA!QABB2sQ B3rqAB2qAAqAAqAAqAA3rQAqAaAaAaAAaAaAAqAAqAaAA1A!AAA{B2"A!bq2AB2$r! 122BABqABq2ABACBC3rsQp[sQ rQ B2AABtsA51ArrfsQ#!rsQAA3trQC3r1AAArsA1A1AC1#P.n7Q 888h)h<8Ьlo%A!*$E!Q}MhG(9T9G~(clasesG+(listados CF*-CONSUMIDOR FINAL S %C4T  HC;Debe existir el cliente CONSUMIDOR FINAL de tipo VARIOS !!! B%Ccfg01 Qcfg01F #) T T tmp_lince%CSELECT &xalias Q8ve_importar_facturacion_lince( tmp_lince%C B- CBU ACTIVEFORM DATASESSIONIDXESTA_DSCLASESLISTADOS OPEN_FILESCLIENTESNOMBRETARJETAXCONSFINCOD_CLIMENSAJECFG01XCUENTACUENTAXALIASVE_IMPORTAR_FACTURACION_LINCEXRES REGISTRART1/%C=96-- LT96 eT80F%C=B Vcd C=AL  C T99T  /T CC d 6T%c#F J> CCCONSUMIDOR FINAL6C]10 !CC=BSN6"CC=B61#f>$%&'() *+, F-> ./01231 CZ4C] 5riva_ven.6 789: Cc6 Cc6Cc6Cc6 T;F<> =1>Cc6?$@VARIOSABCDE%>FCc6FG G((idECZCZ%C4 +>.HI$>5 J K TL%M 5NO TNa TO$P co_ventasNaOL%N  TR BUS XVENDEDOR TMP_LINCECUITXTIPODOCXNUMEROFXCAUSANOMBREXNETOTOTALIVAPERIBXALICUOTA_IIBBCCVENTCOD_CLIXCONSFINFAC_VENCAUSASUCDES_CLIEPEDIDOHOYXFECHAFEC_VENFEC_ENTTIPODOCAGENTEIDPLANLISTACOD_CENCOD_FLEDEPUSRCONSFINIVACATCOEFICTOT_VEN IMPONIBLEINVIVAINVDES_COMIVA_VENDEUDADESC1DTO672CCCLIECOMPROBREFCAUFECHAVENCFECREFIDUIMPORTETASAIVA_MOBASEBASE_MOTIPO_REGXITMVENTASCOD_INS RECEPCIONDES_INSDESC_INSITMLISPREIVAPERCOD_CUEXCUENTACOS_LIFOIIBBPROV PROVINCIACODIGOALICUOTA IMPORTE_MEXASIENTO TTS_ERRORXRESULTADO_ASIXMSG REG_ASIDIA CO_VENTAS XRESULTADO C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccheques Qcheques%Cunidades Qunidades%Cvlocale Qvlocale%Cvlocald 4Qvlocald%Cccvent bQccvent%Ccostos Qcostos%Ccuentas Qcuentas%Csucprop Qsucprop%Ciibbprov "Qiibbprov%Csucprop RQsucprop%Cclientes QclientesBU ABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCHEQUESUNIDADESVLOCALEVLOCALDCCVENTCOSTOSSUCPROPIIBBPROVCLIENTES ,sys_procesando Importando...%Cstock cQ ges!stock%Cstkxdep Q ges!stkxdep%Cccvent Q ges!ccvent%Cventas Q ges!ventas%Cccclie -Q ges!ccclie%Ccompromi cQ ges!compromi%Ccliaux Q ges!cliaux%Cbienes Q ges!bienes%Cmovstock Q ges!movstock%Civa_ven 1Q ges!iva_ven%Cclientes gQ ges!clientes%Ccuentas Q ges!cuentas%Ccons Qges!CONS TF ~ TTC\H,$ TKF FAC PTV NCRtTc NDBTd 2,EC/Existe un comprobante de tipo desconocido !!! () T% C Suspendo?a (!T +% BLAC  \00 %CTKFNCRT C  07[ T C  05[2sys_procesando Importando...C TC \%CABE EC,Existe un comprobante de letra desconocida ()!!! T!TCC \g% c %RC5Existe un comprobante de punto de venta no admitido (CCZ)!!! T!'TC  \-C R T TH{ V T c T d T 20CComprobante invlido !!! () !'%Cccventccvfac T T2aCCRg G(%1T - C*: C  T%ANULADA T T9aCCRg G(%1T - C*: C  T  T T T%P T- Taco_aut% T trsacstockstkxdepccventventascccliecompromicliauxmovstockiva_veniibbprov% .T"!ve_importar_facturacion_lince.prg1T#$Importacin de Facturacin del Lince$trsac"#% TC%% Ta  T@&'Abort el usuario o error" m T@&'Abort el usuario o error"$(trsac"# T)  OCBNo se pudieron reservar los archivos. No se ha registrado nada !!!  L ?C$Ejercicio inexistente para la fecha C* !!! !  % C Suspendo?a *sys_procesando0TImportacin concluida !!!C C BU+XERRXMENSAJE SP_MENSAJESYS_PROCESANDOGES TMP_LINCE XCAUSA_LINCECPBTXCAUSAMENSAJEP_DEVSYS_MOSTRAR_SCREEN XCPBT_LINCEP_EMPXLETRAXCENTROXNUMEROFOLDCAUSA OLDCENTROXTIPOGESXERR1XMSG1VE_ANULAR_COMPROBANTEXESTA_DSFECHANOMBREXFECHAXSE_RESGISTRARON XRESULTADOSELECCIONAR_EJERCICIOCO_AUTAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANREGISTRAR_COMPROBANTEUSER_LOG PUB_INDEXEND_TRANTTS_IDSP_OCULTAR_DEFINITIVAMENTETCC\fH6$ ENE JAN g T FEB T MAR T$ ABR APR T MAY T JUN$ T JULG T$ AGO AUG x T SEP T  OCT T  NOV T $ DIC DEC  T 2 kEC$Error de conversin en la fecha !!!()() 0C#Error de conversin en la fecha !!!T T'BCCC\gCC=g$UXFXMESCXMESMENSAJE TTS_ERRORregistrar_comprobante open_files7 registrarOconvertir_fecha""!sAAsAqQsa!AA"qAB6AbABEqQksQ rQQ SrQBE2ACB4AAA1AAA1A1A!A!A1A1AAA1AAAB2rQAqAaAaAaAAaAaAAqAAqAaAArRAaaQrAAABB"SQAAr!AArAAAAAs"2AB2A2; 222BABAAA1qABACA2qqqAaaAaaaAaaaAQAAs1 4PzM) i)x, %0I2UDh5  G(9 !%Tc:\IIBB_CAJ\CLI_IIBB.TXT%C0TC%`h1 \tmp\cli_iibbC(C NCd+aBTC%PARASCO.C Suspendo?a %C 04T C=-C\-C \ T  T  T C$ T4sys_padron_iibb    TCrcli_iibbC \   >! CF&  Ta <(+\Listado de Clientes y sus Percepciones.xlsԻ  T-%cG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNJT:Clientes del sistema de cajas sujetos a percepcin de IIBBTcli_iibb C%Cnombre Razn SocialCcuitCUIT(CpercepPercepcin IIBB#Cobs ObservacionesTC  :+\Listado de Clientes y sus Percepciones.xls PCCHubo un error y no se ha podido crear el archivo de exportacin !!! +CImposible abrir el archivo !!! :+\Listado de Clientes y sus Percepciones.xls  * :+\Listado de Clientes y sus Percepciones.xls 0C#No existe el archivo a importar !!!BU DATASESSIONIDXFILEXHP_LOCALNOMBRECUITPERCEPOBSXTXTSYS_MOSTRAR_SCREENXCUITXERRXMSGXFECHAOOBJOBTENER_PADRON_PROVINCIASYS_PADRON_IIBBXPERIIBBCLI_IIBBXOK P_DIR_EXPORTLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSMENSAJEAR"2rB"BA8AABsA$!R1 AAABAAB1 %.3!/3D+Qi,sys_procesando Inicializando C%Cidx04 eQidx04F!%CC$idx04idx04 *CNo hay cambios ingresados !!!BTT %CtmpF Q%C.Q#c:\sistema\system\data\catalogo.dbf h1 \tmp\tmp CCdCCCCC(C CCNNNCNCCC N N!C"N#C$N%C&N'C(C)C*C+C,L-N.N/N0N1N2C3CF i1tmp3C $ S!i1tmp4N ] i1tmp5L  i1tmp6L  i1tmp7L %Ccatalogo F8Q"%C9 \catalogo.dbf0 FQ9 \catalogo.dbf%CClinea/ i1catalogo0N%CCgrupo/ i1catalogo1N%CCcod_pro/ i1catalogo2CQ !F %aH9 \catalogo.dbfC 0000 ZZZZ m9 \catalogo.dbfC 0000 ZZZZ "CAMBREPRYSMIAN   C: C; C< C= G((cod1#) T>C?sys_procesandoes_dal_importacion1sys_procesandoActualizando datos%CtmpF Q[Abienes2>?sys_procesandoBUCXTEST SP_MENSAJESYS_PROCESANDO OPEN_FILESIDX04MENSAJEXDOLARESINDICE1XEUROSINDICE2TMPCP_LOCALCOD1DESCRPROV1PROV2COD2COD3DESCR1UNIDAD1OTRO1OTRO2N1N2N3OTRO3IVAMONEDADLISTA1GRAFICOPRECIO1PRECIO2DLISTA2PRECIO3DLISTA3PRECIO4DLISTA4PRECIO5DLISTA5OTRO4OTRO5TXTOTRO6TILDELISPRVMARGENDTOPRVLINEAGRUPOCOD_PROOLDPROV1STKNEWDISCONTINACTIVOCATALOGO P_DIR_IMPORTACTUALIZAR_DATOS_RELACIONADOS PROVEEDORES1 PROVEEDORES2INDEXAR XFECHAHORASP_OCULTAR_DEFINITIVAMENTEES_DAL_IMPORTACIONACTUALIZAR_BIENES_FASTBIENES2 G+(listados%C KCNo se encuentra la carpeta  y es imposible crearla !!!B-%*sys_procesando Conviriendo"C \catalogo.out&sys_procesandoLeyendoF S  "%C \catalogo.out0 n \catalogo.out( CCNo se pudo procesar  \catalogo.outC   ,C\catalogo.out no existe !!!(sys_procesando Ordenando C C C C( \catalogo.dbfF G((cod1G(C #)sys_procesandoBUXIN XTIPO_LECTURALISTADOS IMPORT_DIRMENSAJE P_DIR_IMPORT SP_MENSAJESYS_PROCESANDO SACAR_COMASTMPALLOEXMESSAGEACTUALIZAR_DATOS_RELACIONADOS PROVEEDORES1 PROVEEDORES2INDEXARCOD1SP_OCULTAR_DEFINITIVAMENTE4sys_procesandoInicializando - Prov.,otmpQ cur_prov1_f -C%C4 (o cur_prov1_f cur_prov1QBU SP_MENSAJESYS_PROCESANDODISTINCPROV1DESCRTMP CUR_PROV1_F CUR_PROV1%sys_procesandoMarcas,otmpQ cur_prov2_f -C%C4 q(o cur_prov2_f cur_prov2QBU SP_MENSAJESYS_PROCESANDODISTINCPROV2DESCRTMP CUR_PROV2_F CUR_PROV2}%Cproveedo .Qproveedo%Cbienes \Qbienes%Cgrupos Qgrupos%Clineas Qlineas%Cbieaux Qbieaux%Cmedidas Qmedidas%Cstock BQstock%Clisprec rQlisprecBUPROVEEDOBIENESGRUPOSLINEASBIEAUXMEDIDASSTOCKLISPRECN .sys_procesandoLeyendo archivo TCTC % .C!Cannot open or create output file -TC+C )TC,.TC;,CTC C CBUXARCHXOUT SP_MENSAJESYS_PROCESANDOHOUT GNERRFILEMENSAJEAAA8sys_procesandoInicializando - IndexandoF& & & & & C(=& & & & & & & & & BU SP_MENSAJESYS_PROCESANDOTMPCOD1PROV1PROV2DESCRCOD2COD3COD_PROSTKLISPRVMARGENDTOPRVLINEAGRUPOG     %Cmarcas qQmarcas%Ccos Qcos%Ccosman QcosmanT9%C tmp_articuloFQFAobienesCMODELO1\tmp\tmp_articulo% [,sys_procesando Inicializando TC Suspendo?aF~ 3sys_procesando Importando C!FG((descrEC#%C4 G((codigo#6 T%$>rmarcas$"&%C#C]T%$  T%$F>&C]>C!f>"C"f%% " >'% B >(% b >)%>*C6%+>,C6>-.>/0>12 >3%>4#>5C2f$%CCC"f=CABLEe>6854457 >685367&%C!bienescodinsF >8C>"C"f%%  >'% % >(% E >)%s>*C6%+>,C6>-.>/0>12>9: >3%>4#>5C2f VF \tmp\tmp_articulo >8CF.%CCC;f medidasdescr F<G((codigo#6T=$Nrmedidas$">&=CC;f C;?C] EF<>"CC;f >>C;?F<<@^(@C<$AF>B<$>C<")>D 401010100E 401010100%F' >GF >H.%CCCIf medidasdescr F<G((codigo#6T=$Nrmedidas$">&=CCIf CJ?C] F<>"CCIf >>CJ?F<<@^(@C<$AF>K<$>L<" R F >G >H% TMTNTOT) @ % T)% TM%  TN% < TO!TPC tmp.dlistaCCZ!TQC tmp.precioCCZH k  CR$ TS TT. CRU$SCRUS$  TS TTU CREURG TS TTV 2k TS TTFWG((lisxcli'ECXCXCZCX%C4  >Y>$8%ZQd d TG6 >[C$>\C$2>ZQd d TG >^P >N >O>_QG >RS >`TF>aWZFWYF>cWZ$%Cbieauxcod +rbieaux&$&Fd >MF%%  >'% 6 >(% V >)% v >M%  >N% >O% >*%+ >ef cs_generarCXCXC$S-QGTF -  Cbienes+BU SP_MENSAJESYS_PROCESANDOBIENESCODINSBIEAUXCODLISPRECCODIGOSTOCKARTICULOTMPCOD1TILDELISPRVMARGENDTOPRVLINEAGRUPOCOD_PROOLDPROV1CODALT4STKCANTIDADNEWDISCONTINACTIVOEST_ACTALLimportar proveedores1B proveedores2U open_filesY sacar_comas!indexarimportar_articulosRfn_abrev* syn_unidadesb+actualizar_datos_relacionados0,qrArAACqAA)ArAAAAAAAAqAA"AAAABrAAQBqAABdB2#qA3"Cfr"1AArQD2CQAB2TQAB2AA!A!A!A!A1ArA1AB6"2R2rrRBAB2r1C2q!ARA!A$qAAr#rr5rQAs!!AAAAAA!BAcr"AAAAAA!rBsqQqqAAsqudqQqqAAsqrqAAAAAAArrQAB"BrsrurQArCArsAAAAAAAAA(tqBArQAtqBArQAtA2A1AAA4qQQA3qAqQAA2rrrrr2 B1Z ~)g~'??Riq=>><>?J @C\%aMVHAi3<7estadoJ,CAbriendo archivo... CT.t. %$T AND tc.rep_Cant=-1%CxPedidobN(T AND tc.pedido=CCZ%4+T AND tv.cod_ins='';C+Seleccionando actualizaciones a realizar... SELECT tc.pedido, tv.cod_ins, tv.itm, tv.ivaper FROM tccvent tc LEFT OUTER JOIN tventas tv ON tc.pedido=tv.pedido WHERE &xFiltro INTO CURSOR TMPLISPED READWRITE F G((codigoF G((ped$G-(CZ FG((TCCVORDG-( 'CActualizando precios... &CItemsC TMPLISPEDNF ~ CF #F #E   CZF 1>    2>   'CActualizando totales... +o TMPLISPED TMPLISPEDG'CItemsC TMPLISPEDGNFG((TCCVORD !F ~  CFF K ( &K (!"d F E%C4 > #!%>$#%&T'- (<U)XLOTEXPEDIDOXCOD_INSXAUTOESTADOESTADO SET_AND_SHOW OPEN_FILESXFILTROAVANCELISPRECCODIGOTVENTASPEDCOD_INSBULATRTCCVENTLISTATCCVORDPEDIDOSUB_SET_AND_SHOW TMPLISPED SUB_AVANCECFG_LISCOS_LIFOPRECIOFORITMTOT_VEN RECEPCION TMPLISPEDGXTOTXIVAIVAPERIVA_VENDEUDA IMPONIBLEVALDECLVISIBLERELEASE%Ctccvent ,Qtccvent%Cventas ZQventas%Ccfg_lis Qcfg_lis%Clisprec QlisprecUTCCVENTVENTASCFG_LISLISPREC Open_Files1sq!AAAAU srArrasqr1r#DrrsrrsasrTACq41A!A1A1A1? s%G K eVHiV CQCInicio de sincronizacinve_facturas_lote_sincronizar ve_comienzooclientesQXtccventQ    XtventasQ   a404  TMPLCLI#5 T T T T ~  T- T- T-TCC0%c%C % CRecrear peddido. Cliente='C ' Artculo='C  ' Categora=ve_facturas_lote_sincronizar Ta Ta T-T  Ta CCrear nuevo peddido. Cliente='C ' Artculo='C  ' Categora=ve_facturas_lote_sincronizar T- TaT %C  Ta  T-CCancelar peddido. Cliente='C ' Artculo='C  ' Categora=ve_facturas_lote_sincronizar TaT%T %C %CT Correctos: CCZ C  Recategorizados: CCZ C  Nuevos: CCZ C  Baja: CCZQCFin sincronizacin -ve_facturas_lote_sincronizar% K@C)Pedidos sincronizados con la categora!!!C BUXAUT OPEN_FILESUSER_LOG PUB_INDEXVARIABLES_PUBLICAS VE_COMIENZOCLCOD_CLICATTCPEDIDOTVCOD_INSCLIENTESTCCVENTEST_DESPREP_CANTTVENTASTMPLCLIXCANCELAXCREARXOKXCATT XPEDRECAT XPEDNUEVOXPEDBAJAXPEDOKCANCELAR_PEDIDO CREAR_PEDIDOXMSGFINMENSAJEQ T3ve_cancelar_pedido-aUXPEDIDOXMSG PROCESAR_PDVE_CANCELAR_PEDIDO=+ve_factura_inmediataUXCOD_CLIXCATXCOD_INS CREAR_PEDIDOVE_FACTURA_INMEDIATA<TC ve_pedido ve_pedidoU XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMPRECREAR_TEMPCOMP VE_PEDIDO OPEN_FILESCancelar_Pedido Crear_Pedido/ Open_FilesqbR 3aRaQAABaAABBACSqAA2qq143AB2?U bD jG " p%AyjrIip %- C aTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcG+(listados%C .C La carpeta  no existe !!! B-%Cproveedo QproveedoF - S%C4 F - VARIOS%C48C+No se puede generar el proveedor VARIOS !!! B- %Ccuentas Qcuentas< ,ocuentasC\S% LTC dT1vrproveedo  VARIOSPROVEEDORES VARIOSNSC] T  T T Ta'es_pya_importar_subdiario-1(%e CBUSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCLISTADOS IMPORT_DIRMENSAJE P_DIR_IMPORTPROVEEDOTARJETACOD_PROCUENTASARR_TMPCOD_CUEATRIBUTOXCUE_DEUNOMBREPAISCUE_DEUIVAIDUXCOD_PROXMESXANOXRESES_PYA_IMPORTAR_SUBDIARIOIMPORTAR_COMPRAS5T(Planilla Subdiario Compras y Ventas.xlsx T-T SDICompras %a9!es_pya_importar_subdiario_compras( !Qc:\sistema\sdicompras% T"T\tmp\CC]R  cm_compraF #) T  Taco_aut %l Ttrsacstkxdepstockcomprascccompccprovconsimportacper_provproauxconvercoscashdatacashcanccashcan2iva_comitmdesccdiariogconcepto% &Tes_pya_importar_subdiario#TImportacin de Compras TtrsacTC% LT T-trsac%TC$ TC%TC$>cm_sql_iva_comprastmpCXCX"CProceso concluido !!!! h>C1No se pudieron bloquear las tablas necesarias !!!! :CNo se pudo abrir el ejercicio (C *)!!!! B-BU" XALIAS_SALIDA XARCHIVO_XLSXAUTO!ES_PYA_IMPORTAR_SUBDIARIO_COMPRASXRESC XTIPOCOMPRA XTEMPCOMPP_LOCAL OPEN_FILES CM_COMPRA SDICOMPRASXFECHAFECHA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANXOKPROCESAR_COMPRAS TTS_ERROREND_TRANXHFECXANOXMESXDFECEXPORTAR_SIAP_COMPRAS_Y_VENTASCM_SQL_IVA_COMPRASMENSAJE5T(Planilla Subdiario Compras y Ventas.xlsx TaT SDIVentas4 es_pya_importar_subdiario_ventasBU XALIAS_SALIDA XARCHIVO_XLSXAUTO ES_PYA_IMPORTAR_SUBDIARIO_VENTAS FC Suspendo?aF#~CH Ci 2TCcccompOT T  T  T  CZ CZ:  CZCZ  CZCZF #F ~c TC$3T CCCC C6-HS CABCEZ CRSM CTKA CTKB T C CC=NC.T c CC=ND[T d 21CCausa  desconocida !!! C T!T7TCCH Ci 6 TT C  T!C"&%C-! C!>  7T!C!\-C!\-C! \F G((op#6TF!>   T#CC=%C$RMT#C%CTKAJT#A%CTKBwT#Bw>%&'()*+()*,-./012"!3456789:#;N<()*=CCABA>CCBA>B 66?@ABCSD@H C$RI* >E C$EXQ >E C$RMx >E 2+CTipo IVA desconocido !!! C T!%,Kriva_comFGH%@,,F>  &&I  JKAAL 100000000M('(N%@%-Criva_comFGH--F>  &&I  JKAAL 100000000M)')N%. Criva_comFGH..F>  &&I  JKAAL 100000000M*'*N%O" Criva_comFGHOOF>  &&I  JKAAL 100000000MO'ON$%7 6 F7>  P7Q6F>    &RS T&UVWC]X  CZCZHx  C$RI  C$EX  C$RM BUY SDICOMPRASSYS_MOSTRAR_SCREENCCCOMPFEC_DGIXMESXANOXREGXOPOPXCAUSACAUSAXCOD_PROCOD_PROXFAC_COMFAC_COMINCOMPRASIVA_COMPER_PROVCCPROVCOMPROBCUOTAXFEC_DGIFAC_NUMFECHATIPOMENSAJEMSG TTS_ERRORXTOTALTOTALXFECHAXIDXCUITCUITXLETRAIVA_TIPOORDENFEC_COMTOT_COMNETO105NETO21NETO27 IMPONIBLEIVA105IVA21IVA27P3337PERCIVARETIVADEUDAIMCOM2RETGANIMCOM4 PIIBBCABAPIIBBBA RIIBBCABAASIDIALETRADIVIBLUGARIBJURISREDONDEOOTROSDES_PROVNOMBRESUBDIIIVACATTASAIVAIVA_MO RECEPCIONDESC_INSIMPUTACOD_CUECOS_LIFOIVAPEREXENTOSPROV1PROV2REFCAUFECREFCUOOPRIDUIDUC Suspendo?a;BPROV:C / CPBT: C CUSYS_MOSTRAR_SCREEN SDICOMPRASNOMBREFAC_NUMimportar_comprasimportar_ventas procesar_compras msgBQ2AB#qAAAqrAq1Ar!AcBAqDB2RrA"BsQ02b1rA1R#AAAqAB2RbAB3rrt1R"!!rBsQ21AArr"bqArQsQrAAApqAAarQN Ca1rQ Aa1rQ Ba1rQ BCrQuBrQn EBB3s15  \i p**+%ٍ]6Xi+4 %CxempbN<C/El primer parmetro es el nmero de empresa !!! T C  T @B T TC T C$ %-G_   TC&ad:\sistema\system_tfw CTCSQTBORRAR1Tsprusr Ta Ta)\DATA\CCZ\ges.DBC<7 T%9Qd:\sistema\system_tfw\data\CCZ\ccventS9Qd:\sistema\system_tfw\data\CCZ\ventasS9Qd:\sistema\system_tfw\data\CCZ\cliauxS9Qd:\sistema\system_tfw\data\CCZ\ccclieS:Qd:\sistema\system_tfw\data\CCZ\iva_venS;Qd:\sistema\system_tfw\data\CCZ \itm_descS8Qd:\sistema\system_tfw\data\CCZ\cccobS;Qd:\sistema\system_tfw\data\CCZ \ven_operS:Qd:\sistema\system_tfw\data\CCZ\remxfacS%9Qd:\sistema\system_tfw\data\CCZ\bienesS.#d:\sistema\system_tfw\data\1\bienes9Qd:\sistema\system_tfw\data\CCZ\bieauxS.#d:\sistema\system_tfw\data\1\bieaux.Q#d:\sistema\system_tfw\data\6\bienesS.#d:\sistema\system_tfw\data\1\bienes.Q#d:\sistema\system_tfw\data\6\bieauxS.#d:\sistema\system_tfw\data\1\bieaux;Qd:\sistema\system_tfw\data\CCZ \despachoS;Qd:\sistema\system_tfw\data\CCZ \movstockS9Qd:\sistema\system_tfw\data\CCZ\converS:Qd:\sistema\system_tfw\data\CCZ\conver2SBQd:\sistema\system_tfw\data\CCZ\ej-2019\diariogSCQd:\sistema\system_tfw\data\CCZ\ej-2019\conceptoSBQd:\sistema\system_tfw\data\CCZ\ej-2020\diariogSCQd:\sistema\system_tfw\data\CCZ\ej-2020\conceptoS{:d:\sistema\system_tfw\data\CCZ\ges.dbc"Td:\sistema\system_tfw0Td:\sistema\system_tfw\data\CCZ T G( C<7/TC procesandosys_procesando.prg TG+(c:\sistema\2000\ge01T275 TC6 T T ENVIOS VENTA ONLINE T!ERRORES DE COBRANZAT"4211.09 T#TC % %Cshoppy F$Q ( %Clucomex$ F%Q @ & J <%CC] = GUILLERMO #CC]=DEY # T'&  %T'\\TFWSOL01\SincroWIZELL$$T(CCCC:_/-LT)\log\C shoppy lucomex6 - (.txtC)Inicio: C^a*%- 9C)No est en la empresa CCZ !!!a*C)+a*C)a*C)a*%" 3CNo est en la empresa CCZ !!! B-%C-, T-CC)CC)>= T.a % %Cshoppy FQ-$  %Clucomex FQ-%  T.-%.g %A F$ R F% (-ԻQ%h1+\tmp\C]/M/)R mostrar_txtImportacin desde C shoppy lucomex6C)Fin: C^a*BU1XEMPXDEV XDEV_SIN_FORMXAUTXLIMPIAXAGREGAR_ARTICULOSXVENTAXDETALLEXMAXXPROCESOMENSAJEXMAX_STK_INICIALXMOTIVO_INGRESO XINICIO_STOCKBBB DEY_FUNC2SETSCL_ATRCL_NOMCL_AVEP_DEV P_SUSPENDP_SYSTEM P_MIN_HORAP_SERVERP_PRIVP_SYS_PROCESANDOP_CODEMPCXCOD_CLI XSUCREMITO XSUCRECIBO XCUENTAENVIOXCUENTAERRORESXCUENTA_ENVIOS_NO_FACTURADOSXCUENTA_ENVIOS_NO_FACTURADOSDSHOPPYLUCOMEX P_DIR_IMPORTXCARPETAXIDSYS XLOG_GENERALLOGEARP_LOCALPROCESAR_SHOPPY XARCH_XLSXOKMEMO MOSTRAR_TXT T T- T- T-%l(TCSalteo importacin ?%&TCAgrego artculos ?%TC Histrico ?% #CImportando datosa T  T - T  T  T-%1T \SolinGES-PagosHistorico.csv 5T \SolinGES-PagosUltimos30Dias.csv TT tmp_pagos?sys_importar_baseJ(a   C T-F>CC T[i1C tmp_pagos&FF( \tmp_pagosQ%2T \SolinGES-VentasHistorico.CSV 36T \ SolinGES-VentasUltimos30Dias.CSV TT tmp_ventas?sys_importar_baseJ(a   C T-F>CC T[>CC T[i1C tmp_ventas&i1C tmp_ventas&FF( \tmp_ventasQ%9T \#SolinGES-FacturasVentaHistorico.csv 8T \"SolinGES-FacturasUltimos30Dias.csv TT tmp_ccvent?sys_importar_baseJ(a   C T-F>CC T[i1C tmp_ccvent&FF( \tmp_ccventQ BUOIMPXMSG XDEV_SIN_FORMXAGREGAR_ARTICULOS XHISTORICOP_DEV MENSAJE_SINOLOGEAR XLOG_GENERALXDIRXCARPETAXAUTOXTIPOXVERSIONXCODIGO XARCHIVO_XLSXSUBTIPOXALIAS_SALIDA1SYS_IMPORTAR_BASEXDXLS_INICIAR_IMPORTACION TMP_PAGOSF_PAGOF_PAGO_CALL TMP_VENTASF_VENTA F_VENTA_CF_ACTUAL F_ACTUAL_C TMP_CCVENT C ProcesandoTC%C lCa CB Ta T  T  T -#T  \tmp\TCC]R ve_pedido%Ccccob Qcccob%Cven_oper 1Qven_operF-%C4 9TCX Cliente no encontrado. Cliente: CC-a CB F-C2\S%C4T U2TCXCuenta de redondeos no definidaC-aB-F-C%C4TT =TCX*Cuenta de ENVIOS NO FACTURADOS no definidaC-aB-F-%C4:T 9TCX&Cuenta ERRORES DE COBRANZA no definidaC-aB- pr_funcionesQ! \tmp_ventasQ! \tmp_pagosQ! \tmp_ccventF">#C#fH4 %[T&LUCOMEX %T&SHOPPYUo tmp_pagos'C()Q*C)Q+&C-f' tmp_pagos1 o tmp_ventasQ//0Q1C/2Q2CC/3Q3CC/4Q5C/6Q6/0 /7 &C/-f /0/0 tmp_ventas1(9C9:ao tmp_ventas1Q/X tmp_ccventQ; /10X tmp_pagos1Q@ /1@'/1Q10Q<=Q=>Q?@'QA@*QB/2Q2/3Q3/5Q5/6Q6@+Q+/1/1tmpo tmp_ccventQ;XtmpQE 0E10Q10Q<=Q=>Q?E1QF0 CE1 &C-f 01 \tmp\tmp_ccvFD \tmp\tmp_ccvo tmp_pagos1Q@XtmpQE @'E1@'Q1@'QA@*QBE1QFC@' CE1 1 \tmp\tmp_pagFD \tmp\tmp_pagG'CAntes del Scan. Suspendo?aHFD$~CIa1I6b ,%COCJQKDJ6!HKsys_procesandoCCCOZ de CCCNZ Venta: CCD1Z$C-Venta: CCD1Z TGaTMD1go tmp_pagosNC(Q(C)Q)COQOC() 'M 'q_pagosTQCDA ( FD0TRP(P)  CANCELADA3 H9   CONCRETADA3j TGCD1S R TGCD1T PENDIENTE3 TGCD1T 2 RC-CXVenta: CCD1Z con estado desconocido (C3)TGCD1RU%CD< ^ TGCD1VWsys_procesando'Xaa-a--CaBUYXPRIMEROXDEVLOGEAR XLOG_GENERALP_DEVXMSG LEER_CSVSFN_EXITXAUTOXTIPOXVERSIONXCODIGO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOCCCOBVEN_OPERCLIENTESCOD_CLIXCOD_CLICUENTASATRIBUTOXCUENTA_REDONDEOSCOD_CUEABREVXCUENTA_ENVIOS_NO_FACTURADOSXCUENTA_ENVIOS_NO_FACTURADOSDDESCRXCUENTAERRORESXCUENTA_ERRORES_DE_COBRANZACREAR_TMP_LOTES PR_FUNCIONESXCARPETA TMP_VENTASSKUALLXEMPXDEMPSALEIDP_PRODP_ENVIOPAGOENVIO TMP_PAGOSEMP TMP_PAGOS1VVENTATXNDEUDAEST_VENSUC_DSPDEPOSITOENV_FACCANTIDAD TMP_VENTAS1OXERRMESSAGEC TXN_CCVENTTIPONRO_FACTFACTURAP TXN_PAGOSTOT_PAGO TMP_CCVENTTMPTCONTROLXOKSYS_MOSTRAR_SCREENXVENTAXMAX SP_MENSAJESYS_PROCESANDOXTXNM_PAGOF_PAGOQ_PAGOSXCOBRADAXVENTA_CANCELADAGENERAR_REMITO ANULAR_REMITOGENERAR_COBRANZAGENERAR_FACTURASP_OCULTAR_DEFINITIVAMENTECO_AUT9/BCCC\gCC\gCC\g$UXSTRH%C 3 FQ =BUXALIAS_SALIDA1$ TCW%  %$TCCCC>=.dbf%C0 GIh1C C C N % Q &    CQ&   % 7%CCshoppyshoppy Brshoppy    F >  9%CClucomexlucomex Crlucomex    F> % G(  G(G G GG( FBUXARCHXINICIALXMSG XIMPORTANTEXXLSXAREAXDETALLE XARCH_XLSCODIGODESPACHODEPOSITOCANTIDADXEMPSHOPPYLUCOMEXVENTASCOD_INSCCVENTDEP RECEPCION%CC>uTC1TC=-C\-CRT80 )T96CCgC6T96BUXDNIXTIPODOCXCUIT%C #BF-%C4 OBATRC0000CCZR-C00000000CCZRTCC$DF-F G((rem E%C4<QC -CXRemito:  C* - registrado con anterioridad B u/C -CXRemito:  C*  T Tr T TS TTT TTTC T!" T#T$CCZ T% T&%'E> (S)S*S+S TRANSITOF >- ./0123CC4f56C$789:;<=C]>?"!@ABC806C$ >Da TE TF TG TH TI TJ TK TL TM TN TO TP TQ TR TS TT TU TV TW TX TY TZ T[ T\ T] T^ T_ T` TaTbC(XTcCXTdCXTef TgThCXTiC(XTjC(X Tk Tl Tmnve_procsFpEcomprob %C4 ]>q /.>rrsrtGuHvIfJwK9xyLzM{O|P}Q~RSTUVWXYZ[\]^_`a T T T T T< T TF%Cq%Qo tmp_ventasCQCQCQq T-F ~%TTFG((codinsEC=%C4 TT% %C Ta. Z % F-<^(F_>C]>C>>TTXTCXRemito:  C* - SKU inexistente: C AgregadoC - %C Ta. V KTCXRemito:  C* - SKU inexistente: CC -a Ta.#%C%@  dTCXRemito:  C* - IVA invlido: C: CCZ%C -a Ta.%TCd  TFG((codins E>CDF>- ./0175!S6C$ %a} Td ( %C ,TC%TC!%yTT TT TTTTAritm_descq/ % FF >a .C @ T T Taproc_stk @c/.1CX%C -CXRemito:  C* - Artculo: C Depsito: C @ Cantidad: CCZ aa Ta.F%B-%VF-%C4(T >TCX+Cuenta de ENVIOS VENTA ONLINE no definida: C -a B-TTC\(\? TF>- ./0175ENVIO!S6C$ %aTd (L%CH%TC%TC!%TTTT TTTTAritm_descq/ F C> (Mriva_venq/ - /CCCCC% D rccclie0q/C= 0 - / 7  - /C] 0 - /CZrremxfac%'vE> (N)N*N+N TRANSITOBUXTXNXPROCESO TMP_VENTASVENTAXREMITO XSUCREMITOXFECHAF_ACTUAL TMP_CCVENTCCVENTREMLOGEAR XLOG_GENERALXCOMPROBXCAUSAXCUITXTIPODOCFN_DNIID_TRIBLOTESXITXSUCFACXFECENTF_VENTA XVENDEDORCLIENTESVENDEDORXNOTASXFLETECOD_FLEXDEPOS FN_DEPOSITOTMPDEPOSITOXLISTALISTAXVENCXREFXSUCXHORARIOXEMPFACCOMVENDIBLEPICKINGFORFAC_VENREM_VENCAUSACOD_CLIXCOD_CLISUCDES_CLIECLIENTEPEDIDOHOYFEC_VENFEC_ENTCUITTIPODOCAGENTEEST_DESPIDPLANFPAGDEPUSRIVACATREFNO_FC XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIR XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIA PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XOTRO_CLI DOMICILIOSVE_PROCSCLIAUXCOMPROBNOMBRENOMFAC DOMICILIOCIUDADZIPPAIS INSCRIPCIOPHONOEMAILENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORENTCOORDGEOENTFCECTOFCENOMFCEDOMFCECIUFCEZIPFCEPROFCEPAIFCEPHOFCEHOR ACC_SHOPPY ACC_BRUTO ACC_BULTOSACC_IVA ACC_ENVIOARR_IVAXMAXIVAXACCQCOUNTCNTSKUPRODUCTOIVACANTIDAD PREC_FINALENVIO XERROR_STOCKBIENESCODINSXCOD_INSCOD_INSXUXB CANTXBULTXAGREGAR_ARTICULOSAGREGAR_ARTICULOAAAIDUDESCRIVAPERXMSGXXPRECIOFECACTVENTAS RECEPCIONCOS_LIFOTOT_VENDES_INSDESC_INSCOEFICLISPREGRAVADAITMBULTOSXIVAZITEM XINICIO_STOCKNOSTK!SELECCIONAR_LOTES_AUTOMATICAMENTEATRBULSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKCUENTAS XCUENTAENVIO XCUENTA_ENVIOCOD_CUEDEUDAIVA_VEN IMPONIBLEVALDECLTASAIVA_MOBASEBASE_MOTIPO_REGFECHAIMPORTECAUREMITO T TC 9999,999,999_TRF T- TT~  T T  Ta%2C-CXRecibo:  Anulacin _&TCXNo existe el reciboC-BaF~ F T T T~ "% T T T%C [#ge01CZ% TT T' co_funcionesqdiariog!qconcepto!BU#XTXNXRECIBO XSUCRECIBO XCOMPROB_RC XCAUSA_RCVEN_OPERXENCXASIDIAXFECHACOMPROBCAUSAASIDIAFECHAINLOGEAR XLOG_GENERALXMSGCCCOBCCCLIEXCLIXREFXCAUREFCOD_CLICAUFN_CANCGE01XDIR XFECHAFINAL XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESDIARIOGASIENTOCONCEPTOEATRC0000CCZR-C00000000CCZRF G((rem ET%C+ r%r?C -CXRemito:  C* - Anulacin nC -CXRemito:  C*S - El remito tiene factura, no se puede anular !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!aB- C -CXRemito:  C*Z - Anulacin. No existe el remito, no se lleg a registrar antes de la anulacin del pago.BaFT CC+ CO6~ r`%  # F T CC+ CO6~ r %  # FT CC+ CO6~r8% Y # FT CC+ CO6~r%  # FT CC+ CO6~r% 1 # #qitm_descrF~ >%CC FT CC+ CO6~r T T Tcproc_stk !"c#$8%%wC -CXRemito (Anulacin): C* - Artculo: C & Depsito: C' aaB-% 5 # BU(XTXNXREMITO XSUCREMITOCCVENTREMXFECHAFEC_VENCAUSALOGEAR XLOG_GENERALXREGFAC_VENINVENTASCLIAUXCOMPROBCCCLIEIVA_VENITM_DESCREMXFACREMITOFACTURAPEDIDOMOVSTOCKNUMEROSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKCODIGOBULATRDEPOSITOCANTIDADFECHAITEMDESPACHOCOD_INSDEPTC$E%CCNACIONALCXCXdespachodespacho | in_despachoCNACIONAL  % < oconverC  % X&rconver2 C T wTC rconver  aCNACIONAL T T Thproc_stk  MC Z1CNACIONAL%-C-CX: C aaB- BU! XFECHA_ARTXITMXCOD_INS ALTA_LOTE IN_DESPACHOBIENESCOD_INSXDEPOSXFECHA XINICIO_STOCKARR_MAXITEMCONVERTRANSFDTFECHAENTRABAJADEP_INGDEP_EGRDESPACHOMOTIVOXMAX_STK_INICIALXMOTIVO_INGRESOSTK_ERRSTK_TSTSTK_MSG ACT_STOCKPROC_STKLOGEAR XLOG_GENERALXREMITOVENTAS:H3 RP=BCRP PACKhBCENPACK GARBABCGARBA FBLBCFBL FULLBCML FULL DONATOBCDONATO 23BCTRANSITOUXDEP%C #BTNCF-  .TCC\ C=6FTC0000CC ZR-C00000000CC ZRT CcV6T  VTC V FC 2C c NC C d FC ND 666FG((ccvfac E %C4%VC-CX Comprobante:  C * - Mal registrado !!! (total)aB- %|TC-CX Comprobante:  C * - Mal registrado !!! (iva)aB- VC-CX Comprobante:  C * - Registrado con anterioridadB%Ccons QconsF#)=TCCC$CC C$C6/TCC C68% C$C   C$C  MvC-CX Comprobante:  C *# - La fecha debe estar en el rango C* y CC$C*aB-% C bC-CX Comprobante:  C * - El balance esta cerrado al CC*aB- T T !" F#- T$T% T&'( T)T*'+T,C.-T/'0 T1 T2CCZ T3 T4FL>56C X7 89:;CC<f=>C$? @%AB C&DEC]F'G0/+*H,IJC 806K2LMNMOPM TQ TR TS TT TU TV TW TX TY TZ T[ T\ T] T^ T_ T` Ta Tb Tc Td Te Tf Tg Th Ti Tj Tk Tl TmTnC(XToCXTpCXTq'r TsTtCXTuC(XTvC(X Tw Tx Tyzve_procsF|Ecomprob %C4 >}7 .>~'~'~STUrVWA'XY[\]^_`abcdefghijklmF T T T< T T(kHO   T T  TT%@Td  %gTF>56C X7 89? =CX 401010101NC6CL/S>C$O TCO( %C %TC%TC!% TTTTTLTAritm_desc}7 %MTL%C?P,CDiferencia de Brutos Suspendo?acC-CX Comprobante:  C ** - Diferencia brutos, no se puede corregiraB- F>LL>L %=$%C?,\C-CX Comprobante:  C *# - Mal el IVA, no se puede corregiraB- 9(%C-TCT!%5[C-CX Comprobante:  C *" - Mal el IVA, no se pudo corregiraB-(riva_ven}757CCCCCrremxfacrccclie8}7KE857?57C]857CZCCZTT TC 9999,999,999_TRF G((cpbt E%C4FG((comprob G((CPBT E#+C+ }7 %88%7V.>K57? H)ge01957CZ!CEnvio !!! Suspendo?a%7V%NO%F#) TF G((oper E%C4QPTCXAjuste:   Nmero de operacin repetido.C-aB-TC 9999,999,999_TAT ?Tc T TT25T7T? T.rcccob}7 rven_oper8}7C>9    C3C$rccclie8}7KE9 c2C]9CZCCZ#ge0192CZBUXTXNXPROCESOXES_NCTMPTIPO TMP_CCVENTVENTAXLETRAXCOMPROBP_VENTANRO_FACTXCAUSAXFECHAF_VENTA XCOMPROBANTECCVENTCCVFAC TOTAL_IMPDEUDALOGEAR XLOG_GENERALT_TAXIVA_VENCONSXDFOCIERRES CIERRE_VENCIE CIERRE_VENDES CIERRE_STKCIE CIERRE_VENHAS CIERRE_BALCIEXCUITXTIPODOCFN_DNIID_TRIB TMP_VENTASXSUCFACXFECENT XVENDEDORCLIENTESVENDEDORXNOTASXFLETECOD_FLEXDEPOS FN_DEPOSITODEPOSITOXLISTALISTAXVENCXREFXSUCXHORARIOFAC_VENREM_VENCAUSACOD_CLIXCOD_CLISUCDES_CLIECLIENTEPEDIDOHOYFEC_VENFEC_ENTCUITTIPODOCAGENTEEST_DESPIDPLANFPAGDEPUSRIVACATREFTOT_VEN TOTAL_SIMP IMPONIBLEBULTOSVALDECL XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONO XCLIEMAILXGEODIR XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIA PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XOTRO_CLI DOMICILIOSVE_PROCSCLIAUXCOMPROBNOMBRENOMFAC DOMICILIOCIUDADZIPPAIS INSCRIPCIOPHONOEMAILENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORENTCOORDGEOENTFCECTOFCENOMFCEDOMFCECIUFCEZIPFCEPROFCEPAIFCEPHOFCEHORVENTAS ACC_BRUTOACC_IVAXACCARR_IVAXMAXIVA XREG_VENTASZZ XIVA_IMPORTEIVA21 XIVA_ALICUOTAIVA10XBASECOD_INSCOD_CUE INVENTARIO RECEPCIONCOS_LIFODES_INSDESC_INSBIENESDESCRCOEFICLISPREGRAVADAITMIVAPERZITEMXDIFSYS_MOSTRAR_SCREENTASAIVAIVA_MOBASEBASE_MOTIPO_REGFACTURAFECHAIMPORTECAUIDUCOMENTARXIMPORTE_FACTURAXRECIBO XSUCRECIBO XCOMPROB_RC XCAUSA_RCVEN_OPERCPBTCCCLIEFECREFFN_CANCGE01ENV_FACENVIO XOPERACIONSYS_OPERACION_FONDOSOPERXMSGFACXPAGOXCUENTAXCUENTA_ENVIOS_NO_FACTURADOSXCAUXFECREFXDES_VALXCUENTA_ENVIOS_NO_FACTURADOSDFEC_REC DIF_VALOREMISIONDES_VALCAJ_PROCUENTARECIBO VOPERACIOMONEXTAPLIC T- Ta T  pr_funciones TMPSELLOT itm=CCZLotesxITCC  DEP.Deposito=""6a-a-BU XCODXATRXBULXCANXDEPXITM XLOTEMANUALXLIMPIEZAINICIALXCPBTREFERENCIAPR_OBTENER_CANTIDAD_X_DESP PR_FUNCIONES %C 'B%HBCF G((refECCCZ T$+C+ CCCZ %V T!HAT RC0000CC ZR-C00000000CCZRT  T C 9999,999,999_TRTC TV%FG((ccvfac ET  TF G((cpbt E %C4JDC-CXRecibo:   registrado con anterioridadB x$C-CXRecibo:  qo tmp_pagosCȲQCQCQCQC  q_pagosTT T!%Ccons JQconsF"#)%!C#$ cC-CXRecibo:   balance cerrado al CC#$*, se lo registra en CC$* T!C$F.> MERCADO PAGO MERCADOPAGO2>SUPERVIELLE MKTP SUPERVIELLE'> ICBC MKTPCC ICBC'> CLIC MKTPCC CLIC*> NARANJA MKTPNARANJA/>CAJA PRINCIPAL $EFECTIVO7>BANCO SANTANDER RIO CTA CTEBANCO3>LINIO ARGENTINA MKTPCC LINIO*> AVENIDA MKTPAVENIDA-> GROUPON MKTP CC GROUPON1>GARBARINO MKTP CC GARBARINO-> FRAVEGA MKTP CC FRAVEGA,> MEGATONE MKTPMEGATONE#)F&-CC&'%C4T(&) ET*CXRecibo:   Medio de pago invlido: CC-*-B-T+CF"#) T,-,F G((oper E,%C4AT*CXRecibo:   Nmero de operacin repetido.C-*aB-.rcccob/0 ! T1rven_oper2/03456789:;<=>?@A !!!!+( :,2C$%} TBTCTDE%y TFF&%CFN T(G e T(HTFcF&-)(T+C&'rven_oper2/03456789:;<=>?@A !!!!+( :,3C$T11F  TB TC TD!rccclie2/0IJKLM9NA !D1cBCC]A CZ CCZ% #Oge01ABCCZBUQXTXNXVENTA_CANCELADAXPROCESO ANULAR_RECIBOCCVENTREFXFACTURACAUSAFAC_VENXREMITO XSUCREMITOXRECIBO XSUCRECIBO XCOMPROB_RC XCAUSA_RCXES_SOBRE_FACTURA XCOMPROB1CCVFACACC_NETODEUDAVEN_OPERCPBTLOGEAR XLOG_GENERALM_PAGOP_PRODP_ENVIOF_PAGO TMP_PAGOSSALEIDQ_PAGOSXPAGOXENVIOXFECHACONSOCIERRES CIERRE_BALCIEFORCUENTASDESCRXCUENTACOD_CUEXMSGXDES_VAL XOPERACIONSYS_OPERACION_FONDOSOPERCOMPROBFECHAXACCCOD_CLIFEC_REC DIF_VALOREMISIONDES_VALCAJ_PROCUENTARECIBOAGENTE VOPERACIOTIPOCOEFICHOYMONEXTAPLICXCOD_CLIXREFXCAUXFECREFFEC_VENXDIFXCUENTA_REDONDEOSXCUENTA_ENVIOS_NO_FACTURADOSFECREFIMPORTECAUIDUIDCOMENTARFN_CANCGE01 leer_csvslprocesar_shoppystr2date'fn_exitK'logear'fn_dni+generar_remitod, anular_reciboJ anular_remitoOagregar_articuloV fn_depositoZgenerar_factura\!seleccionar_lotes_automaticamente|generar_cobranza ~A2 2bbAAABQb3A1tqAAAAAAAAAAAAAAAAAA"A1A!A1AAS!rqB3B42qqAAqAAAFQAO2AAA1ArAT1AAAA1qqAAARQ"AB2qAaAA2QAasrtA!aAqsstAAqsrtAA4$AAA;AtAAAvAAGtq!AqArAqArAqAur1A11AY bBa0A rQ rxtrAAAB}rBBC!BWAACy3B3q31AAAAB3qrxA"2aaAB2q!qAA1qAAABAbaaaAB2rAA3qAArBABrrAAaAR5VArQp2rQsAr1r"AUrs2BArBABtrqQQ1BAABAA2AABARr"sQ@ QAAA1AB2r8eBBArAAqA3rABrArQP QQAAA1ABBt7 B2 A2VARB2qRr1A!a1RrArAr1AA"1A21sBRB3qrAqqAqARrAAArAAArAAArAAArAAA2rAAAr<2rBrBAAARB4brR2r!bQA33qABAB2qQqA1aqQAaA3qAAbrbarbqAqbAAAAeAqQaqAr!qAatASsQ2rQsArr111QAb2rQPqQQAAA1ABBBbB2BrqABbBBrAAA2BrABA B rv2brBBAArdtQrABrA 2CBCCRB4 A3AAAu"AAAAAA"qAsBAAArcAqQr2Br!qqq1RsQAqB"\sQsABrA 2rRAr" BA 1ARB1=(1)Hp%HHsHI}$IO)OPuPnrRqm5cXu%rXuX'jkCSRISRI %-{.af:\sistema\systems\system_sri Ta TaCinicio5   T  T  T  T  ~C Iniciando actualizacin MySQL - C A: C C: C P:C V:  Ta% &es_lec_actualizacion_mysql(% B-+QMYSQLsys_clases_conexion.prg T-G+(listados%CoSQLbOO(sys_clases_conexion+Tpedidos.srisritattva.com.arTsrisrita_datos Tsrisrita_u_datosT Rosario124!Tges_ CC Conectado...%C x/CError de conexin -  % tC%CBienes Qbienes%Ccosult Qcosult%Clisprec Qlisprec%Cproveedo 6Qproveedo Ta%  dobienesQ$XbieauxQ+ $%+&XstockQ. .&$%XmarcasQ4 4&$*XlineasQ6 6&$(XgruposQ8 8&$)$%Q&$'$($)$*CC+,ȱQ-C./ Q0C$1C X C$1 Z6Q1$9a:U$( 6; $* 4;  $) 8;    $% tmplecweb>0C0%C> %C TMPSTKXDEPdQ?>0SostkxdepA&CA/ABQ0AC>A& tmpstkxdep;p tmplecweb tmpstkxdep0?0<&?&F<">'C'D-C-D3TC TMPLecWeb +articulosE % FTFCGH.Iabm_lis_pre.prgaF5K TKLXocfg_lisQMMNM'MOMPMQPS tmplistasocfg_lisQMXlisprecQT MNTNX tmplecwebQU T&U&TMPS CT& MQ TV T& tmplisprecFS~SQD CSQCFG_LisLista)Xabm_lis_pre.prgSNar tmplisprec&NVYZ[\]^_`abcdefghijo listaprecios&SNkCXZ[l]_`abcdmnopjkFSCSubir3ar2TC TMPLisprec+lisprecE 0TC TMPListas+listasE % s Tst  Cu7Qv \tmp\rpt_ve_cta_cte_clientes.DBFw8ocatclix: x; tmpcatclioclientesX tmpcatcli zy&X tmpccclientesQ zYzYQ&z{z|z}Q~zzQzzQzNQz9 Cz z Cy&  tmpclienteso tmpclientesQXsucursalQ Y&YQ&{CY tmpsucursal 3 Tts = 4TC TMPClientes +clientesE 0TC TMPCatCli+catcliE 4TC TMPSucursal +sucursalE % `>oagenteQ&{V tmpvendedor6TC TMPVendedor +vendedoresE % AomarcasQ: ; tmpmysqlmarcas5TCTMPMySQLMarcas+marcasE AolineasQ66: 6; tmpmysqllineas5TCTMPMySQLLineas+lineasE AogruposQ88: 8; tmpmysqlgrupos5TCTMPMySQLGrupos+gruposE   T- T% wconnect2  TTCwwHttpNHx   OTC;https://pedidos.srisritattva.com.ar/tasks/importar/clientes 2PTC<https://pedidos.srisritattva.com.ar/tasks/importar/articulosYTC C;https://pedidos.srisritattva.com.ar/tasks/importar/clientesTC

C TC
C TC C%fC Se han actualizado los datos !!!C C El sistema WEB contest:C  % _C Se han actualizado los datos !!!C C El sistema WEB contest:C  [5C!Error al actualizar los datos !!! % W.C!Error al actualizar los datos !!! BUXAUT XNOTARTICULOS XNOTCLIENTES XNOTPRECIOSXNOTVENDEDORESSYS_M DEY_FUNC2P_DEV P_SUSPEND XESPARTICULOS XESPCLIENTES XESPPRECIOSXESPVENDEDORESLOG_AUTODFBSINOXOKES_LEC_ACTUALIZACION_MYSQLOSQLSYS_CLASES_CONEXIONPRGLISTADOS OBTENER_SQL SQL_SERVER SQL_DATABASE SQL_USUARIO SQL_CLAVE SQL_HEADER ESTADO_INI ESTADO_INCCONECTARMENSAJEBIENESCOSULTLISPRECPROVEEDOBICOD_INSCODIGODESCRLINEAGRUPOMARCABATXTNOTASSTCANTIDADSTOCKBARRASBIEAUXMARCASMCLINEASLIGRUPOSGREST_ACTP_CLOUD_FILTRADO PED_SUBIR TMPLECWEBFORP_CLOUD_DEPOSITO TMPSTKXDEPALLSTKXDEPCANT_COMDEPOSITO LIMPIAR_TXT SUBIR_TABLA XTABLALISTAODEYFUNCNEWFILEPREPARAR_TABLAS_DE_PRECIOS ABM_LIS_PREXGEN P_PRECIOGENCFGLISTAIVAINCACTIVA LISTABASECFG_LIS TMPLISTASLPLWPRECIO TMPLISPREC CARGAR_LISTACOD_CLIBULATRBONIFPUBLICOLISPROVMARGENDTOPRVMONEDAPRECIOOCAMBIOFECHADESC2DESC3DESC4DESC5MARGEN2BONLIS COMPUTADO COMPUTBONDTOPRV2DTOPRV3DTOPRV4DTOPRV5 LISTAPRECIOSSYS_MOSTRAR_SCREENOEST2OESTADOEXPORTAR_CC_CLIENTESP_LOCAL TMPCCCLIENTESCATCLI TMPCATCLICLIENTESNOMBRETIPODOC INSCRIPCIOCUITEMAILCAT CATEGORIAVENDEDORSUCSUCURSALCCCCLI_TOTSALDOCLI_COD TMPCLIENTESSCID DOMICILIOCIUDAD PROVINCIACOD_ZIPCL TMPSUCURSALAGENTECOD_AGECLASE TMPVENDEDORMATMPMYSQLMARCASTMPMYSQLLINEASTMPMYSQLGRUPOSXOK2XSTRXMSGWEB FN_PUBLIC WCONNECT2OHTTPXIPXBUSCAXHITXCUITTXTXSRTWWCLIENTHTTPGETCONVERTIR_UTF8_A_FOX ESTADO_RELR Dve_sql_cuentas_corrientesUXCABEZAXMSG EJECUTAR_SQLVE_SQL_CUENTAS_CORRIENTES!BCCC C UXTEXTOg;QMYSQLsys_clases_conexion.prg  T- 6C Subiendo CCC C  ... #T C %  Ca  (ST % O 1C  KC B UXALIASXTABLA XNOMBREREMOTOOSQLSYS_CLASES_CONEXIONPRGXAUTOEXOEX2 ESTADO_INCXOKSQL_SUBIR_TABLAMENSAJE_SUSPENDO USERVALUEMESSAGEMENSAJEexportar_cc_clientes limpiar_txt} subir_tablaq8A1qaAqA!rAAAAB!A!A1AAAdR"A5Br"2Aqr rqCsAA!AqAqw ABABbBRQQAB1qbA!AaAQAA2B3qq3c1AA1AAA1 M q .#%sthRej%1.af:\sistema\systems\system_lec Ta TaNTAd:\Users\diego\Desktop\GES\Importaciones\Lecar\Lecar - Corta.xlsxG+(listados5      T C TT CX T  T  T TTMPSalidaPrecios C*es_lec_importacion(%. abm_lis_prea C "CCreando datos nuevos.T C T C T C $CActualizando artculos. F(C~ F ^J2CActualizando: C -  T C!  C$CActualizando precios...&" abm_lis_pre a C#C $@%C*Desea subir estos datos a la base online?% &U'XXLSXAUTXSUBIRXDEBUG DEY_FUNC2P_DEV P_SUSPENDLISTADOSXLISTA XFECHAHORAXCOD_CLIXGENXOKXMENSAJESALIDAXNART P_PRECIOGEN XTABLALISTAS XTABLAPRECIOSXALIASXRES OPEN_FILESES_LEC_IMPORTACIONPREPARAR_TABLAS_DE_PRECIOS ABM_LIS_PRE ESTADO_INI ESTADO_INCAGREGAR_MARCAS_NUEVASAGREGAR_LINEAS_NUEVASAGREGAR_GRUPOS_NUEVOSVALIDOOIMPCOD_INSDESCRACTUALIZAR_ARTICULO REGISTRAR ESTADO_RELMENSAJE MENSAJE_SINOES_LEC_ACTUALIZACION_MYSQL:%C listaprecioscodigoz%v>a 0CaError al actualizar precio  T -U OIMPCOD_INSBULATR LISTAPRECIOSPRECIOUPDINMENSAJE_SUSPENDOXOK  Fpr_funciones.prg %  5Ca Error al actualizar el artculo  T- 7>   #%Cbieauxcod.> s0CaError al actualizar bieaux  T-C BUOIMPXLISTAXARTXCLI_VALIDAXOKPR_COMB_ARTXCLI_BUSCAR PR_FUNCIONESPRGCOD_INSBULATRBIENESMENSAJE_SUSPENDOGRUPOLINEAMARCAINTXTDETALLEBIEAUXACTUALIZAR_PRECIO 1o TMPMarcaDF}(F>CO=rmarcas  o TMPMarcaDC]rUPDATE (xAlias) SET &xAlias..marca = TMPMarcaD.marca FROM TMPMarcaD WHERE TMPMarcaD.marca_d = &xAlias..marca_d U XALIASXNEWMARCDISTINCTMARCA_DMARCA TMPMARCADMARCASCODIGOALLDESCRIDU 1o TMPlineaDF}(F>CO=rlineas  o TMPlineaDC]rUPDATE (xAlias) SET &xAlias..linea = TMPlineaD.linea FROM TMPlineaD WHERE TMPlineaD.linea_d = &xAlias..linea_d U XALIASXNEWMARCDISTINCTLINEA_DLINEA TMPLINEADLINEASCODIGOALLDESCRIDU 1o TMPgrupoDF}(F>CO=rgrupos  o TMPgrupoDC]rUPDATE (xAlias) SET &xAlias..grupo = TMPgrupoD.grupo FROM TMPgrupoD WHERE TMPgrupoD.grupo_d = &xAlias..grupo_d U XALIASXNEWMARCDISTINCTGRUPO_DGRUPO TMPGRUPODGRUPOSCODIGOALLDESCRIDUCBienesCbieauxClineasCgruposCmarcasClisprecCcfg_lis abm_lis_preU DEY_FUNC2ODEYFUNC CHK_OPENED OPEN_FILES ABM_LIS_PREActualizar_PrecioActualizar_Articulo Agregar_marcas_nuevasd Agregar_lineas_nuevas Agregar_grupos_nuevosd open_fileS 1baB"1!B!AAbAB3qAA5cRs2AAA3qqqq!3qqqq!3qqqq!2qbaaaaqqb10G:- VL7 pV |`j%{pTTj  %-h.af:\sistema\systems\system_lec Ta Ta5   T  T T  T   T a% &es_lec_actualizacion_mySQL( % B-+QMYSQLsys_clases_conexion.prg T-G+(listados %CoSQLbO(sys_clases_conexionT200.68.105.151T lecar_datos Tuser_lecar_datosT Rosario128!Tges_ CC Conectado...%C % C T aCSubira%obienesQXbieauxQ$ $XstockQ* *Q !"#CC$%ȱQ&Q'C! C" C# +  TMPLecWeb>'C'"> C .&C&.3T C TMPLecWeb +articulos0 % pobienesQXstockQ* *Q*1Q'+ TMPLecSTOCK>'C'1T C TMPLecSTOCK+stock0 % ocfg_lisQ5XlisprecQ3 5737XbienesQ 3358S C + 3 TMPLisprec2T C TMPLisprec+lisprec0 % qnoclientes:;Q:<:=:>Q?:@:+ C:@ TMPClientes4T C TMPClientes +clientes0 %:]omarcasQBXbienesQ #BBC# BTMPMySQLMarcas5T CTMPMySQLMarcas+marcas0 ]oLineasQEXbienesQ !EEC! ETMPMySQLLineas5T CTMPMySQLLineas+lineas0 ]oGruposQHXbienesQ "HHC" HTMPMySQLGrupos5T CTMPMySQLGrupos+grupos0  KL TK- TM%  N wconnect2 PQ TQPQWWHTTPRSTUVTWCwwHTTPNH &    i UTMCAhttps://www.distribuidoralecar.com.ar/tasks/importa_solo_clientesWX 2 HTMC4https://www.distribuidoralecar.com.ar/tasks/importarWXTMCM

C TMCM
C TMCMY CZ% % _C Se han actualizado los datos !!!C C El sistema WEB contest:C M  .C!Error al actualizar los datos !!! B U[XAUT XNOTARTICULOS XNOTCLIENTES XNOTPRECIOS XNOTSTOCK DEY_FUNC2P_DEV P_SUSPEND XESPARTICULOS XESPCLIENTES XESPPRECIOS XESPSTOCKXOKES_LEC_ACTUALIZACION_MYSQLOSQLSYS_CLASES_CONEXIONPRGLISTADOS OBTENER_SQL SQL_SERVER SQL_DATABASE SQL_USUARIO SQL_CLAVE SQL_HEADER ESTADO_INI ESTADO_INCCONECTARMENSAJESYS_MOSTRAR_SCREENBICOD_INSCODIGODESCRLINEAGRUPOMARCABATXTNOTASSTOCKBIENESBIEAUXSTEST_ACT TMPLECWEBFOR LIMPIAR_TXTALL SUBIR_TABLACANTIDAD TMPLECSTOCKLPCFG_LISCFGLISPRECLISTAACTIVA TMPLISPRECCLIENTESCOD_CLINOMBRETIPODOC INSCRIPCIOCUITEMAIL TMPCLIENTESMAMARCASTMPMYSQLMARCASLILINEASTMPMYSQLLINEASGRGRUPOSTMPMYSQLGRUPOSXOK2XSTRXMSGWEB FN_PUBLIC WCONNECT2OIPXIPXBUSCAXHITXCUITTXTXSRTWWCLIENTOHTTPHTTPGETCONVERTIR_UTF8_A_FOX ESTADO_REL!BCCC C UXTEXTOg;QMYSQLsys_clases_conexion.prg  T- 6C Subiendo CCC C  ... #T C %  Ca (ST % O 1C KC B UXALIASXTABLA XNOMBREREMOTOOSQLSYS_CLASES_CONEXIONPRGXAUTOEXOEX2 ESTADO_INCXOKSQL_SUBIR_TABLATHENMENSAJE_SUSPENDO USERVALUEMESSAGEMENSAJE Limpiar_TXT{ Subir_TablaqA2raAqA!rAAAAB37R#1ARAx !BAAQQQBB@1raaQB!AAB3qq3c1AA1AAA1cf%0  aN yZ6Xj>C Suspendo?aG+( co_funciones%Cccclie fQccclie%Cven_oper Qven_operFG((comprobECZ5%C4$ C Z  C Z T  C Z 1 TFG((comprobE%C4TTTTTT2te_modificar_cambio_recibo(% Taco_aut% AC$Ejercicio inexistente para la fecha C*!!!B- TItrsacven_opercccliediariogconcepto%H TQ!trsacte_modificar_cambio_recibo.prgModificacin Recibo%, T"F;> % FG> CZCZ% F$J>%  &C ' % %C (ge01  T"  T"  T"%"(T DT `TQ*trsacte_modificar_cambio_recibo.prgModificacin Recibo T+4C'Debe actualizar la cuenta corriente !!!  3%CRecibo no encontrado !!!BU,XCOD_CLIXCOMPROBXCAUSASYS_MOSTRAR_SCREEN CO_FUNCIONESCCCLIEVEN_OPERCOMPROBCOD_CLICAUSACUOTAREFCAUCUO XREFERENCIA XMONEDA_NUEVAMONEDA XCAMBIO_NUEVOCOEFIC XFECHA_NUEVAFECHA XMONEDA_VIEJA XCAMBIO_VIEJO XFECHA_VIEJATE_MODIFICAR_CAMBIO_RECIBOXRES XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACBEG_TRANXERRFORDIARIOGCAMBIOPROCLICODIGOFN_CANCGE01END_TRANTTS_ID.%C$CC$C  WC#La fecha original debe estar entre CC$C* y CC$C*. .%C$CC$C  TC La fecha nueva debe estar entre CC$C* y CC$C*. %CC?Ba AC4las fechas deben corresponder al mismo ejercicio !!!B-UOCIERRES CIERRE_COBDES XFECHA_VIEJA CIERRE_COBHASMENSAJE XFECHA_NUEVAEJERCICIO_DE_FECHAvalidar_fecha_recibo'rb!AAArqRAr"qA22r"ru"r"#2AAAA2AAABBQAA2qAqAAAq2RR c%hO59kC Suspendo?a%Cccprov PQccprov%Ccom_oper Qcom_operFG((comprobECZCZA%C40C ZC Z  C ZCZ !T  C ZCZ 3 TFG((comprobE%C4TTTT0te_modificar_cambio_pago(% Taco_aut% kAC$Ejercicio inexistente para la fecha C*!!!B- TItrsaccom_operccprovdiariogconcepto%  TT trsacte_modificar_cambio_pago.prgModificacin Cambio Pago% T!F1>% F=>CZCZ% F#@>$  %P & % {%C w'ge02  T!  T!  T!%!T  T %TT)trsacte_modificar_cambio_pago.prgModificacin Cambio Pago T*4C'Debe actualizar la cuenta corriente !!!  #CPago no encontrado !!!BU+XCOD_PROXCOMPROBXCAUSASYS_MOSTRAR_SCREENCCPROVCOM_OPERCOMPROBCOD_PROCAUSACUOTAOPREFCAUCUOOPR XREFERENCIA XMONEDA_NUEVAMONEDA XCAMBIO_NUEVOCOEFIC XMONEDA_VIEJA XCAMBIO_VIEJOTE_MODIFICAR_CAMBIO_PAGOXRES XRESULTADOSELECCIONAR_EJERCICIOCO_AUTFECHAMENSAJEAAALOCK_GTRSACBEG_TRANXERRFORDIARIOGCAMBIOPROCLICODIGOFN_CANCGE02END_TRANTTS_IDr!AAArAsqA2A2r"r"r"#2AAAA2AAABBB1AA1%pf ˒+OUkhG_ G~(clases<7TC abm_agentesNTCU- BBUCLASES POABMAGENTES SOLO_LECTURAACCESOSHOW ges%Cagente BFQagentecodage%Cprovinc }FQ\provinc%Cpaises FQ\paisescodigo%Cclientes FQclientescodcliF%Csucursal AFQsucursalid%Clineas rF QlineasFBU GESAGENTECODAGEP_SYSTEMCODIGOCLIENTESCODCLISUCURSALIDLINEAS%[G((codigo#6"TCCCCgZCX=G((nomage tTCX BUXCOD_AGEP_AGENUMCODIGOCOD_AGENOMAGE >UPAIS7C% 0CActualizo los Clientes ? (s/N)NSS , CF%C+o T  TF#), Actualizando Clientes ...+C+ F%CX#F E%C4> F% CXxF E %C4t> F%CXF E%C4>FHF#). Actualizando Sucursales ...+C+ F%CX{F E%C4w>F%CXF E%C4> FHF%#6H (G((codage EBU P_AGE_TIPOPREGUNTA OPENFILESAGENTEXCLAVECOD_AGECLIENTESGUI_MSGVENDEDORCOMI_VENCOMIXVENCOBRADORCOMI_COBCOMIXCOBDISTRIBCOMI_DISCOMIXDISSUCURSALCODAGE openfilessugerir_no_numinicializar_registro[ actualizarytTagenteT TTcodageT abmagentes T-T AgentesT agenteT hlpT cod_age T KTnombreTAgenteTnomageTC TTcod_ageTCdigoTcodageTC  U DOS_TABLA DOS_COPIARP_ESPEJA_AGENTESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_agenteshlpabm2brqQBD2qAaAAAqQAArA 1qQ!A376rArQqQqAAqQqAAqQqAAqAArQqQqAArQqAArAAr1QAABB13A2qD1A111A116 (Y3h5Dk q~;%~2<D 1mkG(9G+(listadosG+(dey_funcG~(clases CTCXTCX!agentes_cambio_agente( % %C 'CSe ha efectuado el cambio. BU ACTIVEFORM DATASESSIONIDLISTADOSDEY_FUNCCLASES OPEN_FILESXOLDXNEWAGENTES_CAMBIO_AGENTEXRES REGISTRARMENSAJE T Ta T;trsactccventccventven_oper% TJtrsacAgentes_cambio_agente.prgCambio de agente.%'TC%  T #T ?TJtrsacAgentes_cambio_agente.prgCambio de agente. T  BU XRESULTADOTRSACAAALOCK_GBEG_TRAN TRANSACCIONEND_TRANTTS_ID  C"CProcesando Ventas.F> CProcesando Pedidos.F>"CProcesando Cobranzas.F >C Finalizando. C [ T - BU ESTADO_INI ESTADO_SETCCVENTAGENTEXNEWFORXOLD ESTADO_INCTCCVENTVEN_OPER ESTADO_RELTRSACVCagenteCtccventCccventCven_operBU CHK_OPENED registrar transaccion open_files"!BqABB4222AAB3!rqqq"qqB22B2RB1r"&:/J6Fk%ӊ.k& ges%Cbienes BFQbienescodinsF%Catributo ~FQatributoF%Cstock F QstockF%Cbultos F QbultosFG~(clases abmbieotrosBUGESBIENESCODINSATRIBUTOSTOCKBULTOSCLASES ABMBIEOTROSqAqAqrAqAqB1%Un2k)%Cstock (Qstock%Cbienes VQbienes%Cbultos Qbultos%Catributo Qatributo%C barras.dbf0 ft05F&   ;%Cbarras 7QbarrasFG((codigoGb( \foxtools.fllT  T T T T T T-codigos_de_barras(% CFQBUSTOCKBIENESBULTOSATRIBUTO CREAR_BARRASFT05BARRASCODIGOATRBULP_LOCALXDBIEOBIEDATA_CODIGO_VACIOXHBIEXDBULOBULXHBULXDATROATRXHATRXRESCODIGOS_DE_BARRAS GENERAR_DUN14%Cstock (QstockF barcode_dun14JT.t.%C C %4T'betw(val(codigo),val(xdbie),val(xhbie)) %Tbetw(codigo,xdbie,xhbie)%C C 9+T.and.betw(bul,xdbul,xhbul)%C C +T.and.betw(bul,xdatr,xhatr)FG((codigo T scan for &filtro% -TC   % .C FE %C4 8rbarras  F \borrar.bmp FF T   BUSTOCK BARCODE_DUN14 OCODIGOBARRASFILTROXDBIEXHBIEP_NUMINSXDBULXHBULXDATRXHATRCODIGOXOLDDUNCAPTIONATRBULCREAR_CODIGO_BARRASBARRASDUN14P_LOCALRELEASE^ 4T%C 7BC \borrar.bmpBU XTIPO_CODIGOXCODIGO OCODIGOBARRASCODBARCAPTIONTOMAFOTOCLIPBOARD_A_BMPP_LOCAL)!| FindWindowWin32Api|GetDCWin32Api'|CreateCompatibleDCWin32Api+|BitBltWin32Api#| SelectObjectWin32Api/|CreateCompatibleBitmapWin32Api'|SetClipboardDataWin32Api|DeleteDCWin32Api | ReleaseDCWin32Api!| DeleteObjectWin32ApiTCTCTC TC TC %TC 0C %C CC C 4CError opening the clipboard0Messagex /CError creating bitmap0MenssagexCCBaUOFORMNHWNDTNHWNDHDCHDC_MEMHBITMAPHPREVBMP FINDWINDOWWIN32APIGETDCCREATECOMPATIBLEDCBITBLT SELECTOBJECTCREATECOMPATIBLEBITMAPSETCLIPBOARDDATADELETEDC RELEASEDC DELETEOBJECT LNWHANDLE _WFINDTITLCAPTION _WHTOHWNDWIDTHHEIGHTOPENCLIP EMPTYCLIP CLOSECLIP4  T CTC C#% C RC0No se encontro imagen bitmap en el Portapapeles.@Clipboard to BMPxB-CC BU XARCHDECLHCLIPBMP LCTARGETFILE OPENCLIPBOARDGETCLIPBOARDDATACLOSECLIPBOARD GETOBJECTTYPE BITMAP2FILE DELETEOBJECTKTTCC BULNPTR PNBITSSIZEPNHEIGHTPNBYTESPERSCAN GLOBALALLOC ZEROMEMORYW (| WriteFilekernel32CC>BUHFILELCBUFFER WRITEFILEKERNEL32R 5J(C  T C TC   T CT C TC C $C T6T6)TBMCCC'TC @%R,:Storing to file...CC CC &'CUnable to create file: xCCR BUHBITMAP LCTARGETFILEPNWIDTHPNHEIGHT PNBITSSIZE PNRGBQUADSIZEPNBYTESPERSCANGETBITMAPDIMENSIONS LPBITSARRAYLCBINFOINITBITMAPINFO INITBITSARRAYHWNDHDCHMEMDCGETACTIVEWINDOW GETWINDOWDCCREATECOMPATIBLEDC RELEASEDC GETDIBITSHFILE LNFILESIZE LNOFFBITS LCBFILEHDR NUM2DWORD CREATEFILE STRING2FILEPTR2FILE CLOSEHANDLE GLOBALFREEDELETEDCY'| WriteFilekernel32CBUHFILE LNPOINTER LNBT2WRITE WRITEFILEKERNEL32  TTC 8%CGmTCGGTC(CCCCCCC Q%TTCC Q   T BU LCBIHDRLNBITSPERPIXEL LCRGBQUADPNBYTESPERSCANPNWIDTH NUM2DWORDPNHEIGHTNUM2WORD PNRGBQUADSIZETC 8"TC 8+TC 8TCGBC C C C ULNVALUEB0B1B2B3TCC Q%C{TCC\TCC \BUHBITMAPLNWIDTHLNHEIGHTLCBUFFER GETOBJECTA BUF2DWORDZPBCC\CC\CC\CC\ULCBUFFER,"BCC G CC  8 ULNVALUEQ!|GetActiveWindowuser32#|GetClipboardDatauser32 | OpenClipboarduser32 |CloseClipboarduser32| DeleteObjectgdi32| GetWindowDCuser32| ReleaseDCuser32$|CreateCompatibleDCgdi32|DeleteDCgdi32"| GlobalAllockernel32| GlobalFreekernel32.| GetObjectgdi32Q GetObjectA| GetObjectTypegdi321| RtlZeroMemorykernel32Q ZeroMemory(| GetDIBitsgdi32+| CreateFilekernel32 | CloseHandlekernel32UGETACTIVEWINDOWUSER32GETCLIPBOARDDATA OPENCLIPBOARDCLOSECLIPBOARD DELETEOBJECTGDI32 GETWINDOWDC RELEASEDCCREATECOMPATIBLEDCDELETEDC GLOBALALLOCKERNEL32 GLOBALFREE GETOBJECT GETOBJECTA GETOBJECTTYPE RTLZEROMEMORY ZEROMEMORY GETDIBITS CREATEFILE CLOSEHANDLE generar_dun14%crear_codigo_barrasTomaFotoclipboard_a_bmp InitBitsArray String2File bitmap2filePtr2FilesInitBitmapInfo num2dwordGetBitmapDimensionsk buf2dword6num2worddecltA!A!AAAra1AAqArAB2qAqAQAAAAr2a1ArAqqAqBB34RAAB4rq1qA!!!1aAAAA!q5qt2"qA!G6rQ!2A7ra!!!C5R|B"!aqAQA6sA7qAt2aAA6q4a!17rAAA6q7q!31A!2'6:Tt\G~cxTV<'>!4!W#SY#)%c+%f&qh&&|&T,% k DXTk  %G(9 /%CoDeyFuncbO\ a5  TT T %Cmovstock Qmovstock%Cconver QCONVER%Cbienes )Qbienes%Cdespacho [Qdespacho%Ccomprom QcompromTCCINICIAL 5 T %C27in_mantenimiento( Pasar a lotesaa T% .B- T TCCINICIAL F G((codigo E%C4 'CArtculo no encontrado !!!B- % S*CEl artculo ya tiene lote !!!B-5 T!Tin_pasar_a_lotes.prg#TPasar artculo a loteswtrsacbienesmovstockdespachocompromstkxdepcoscosultcosman%B-5trsacBIEzSe pasa el artculo a lotes: C Lote Inicial: BIEF CBienesCodigo>SF(Cmovstockcod%C43T I TC$ T T'a%C3C"Error al registrar el despacho !!! C B-F G((cod2> #$ %&F 2> '#$ %&F >(!F)2> #$ %&F*2>+#$+%&F,2>+#$+%&F-2>+#$+%&C CBSe aconseja realizar un mantenimiento de stock y regenerar costos.C ADebe realizar el cambio a lotes en todas las empresas vinculadas.BU.XCOD_INS XDESPACHO ACTIVEFORM DATASESSIONID DEY_FUNC2XCODXATRXBULMOVSTOCKCONVERBIENESDESPACHOCOMPROM XDESPACHOTMPIN_MANTENIMIENTOXRESCODIGOMENSAJELOTESAAATRAN_PRGTRAN_TXTLOCK_GTRSACBEG_TRANUSER_LOG PUB_INDEXXFECHAFECHAXCOSTOXMSG IN_DESPACHOFIN_TRANCODFORBULATROLOTDATA_CODIGO_VACIOCOD_INSDSPSTKXDEPCOSLOTECOSULTCOSMAN T5trsacBIE T%(CArtculo pasado a lotes !!!U XCOD_INSAAAEND_TRANTRSACTRAN_PRGTRAN_TXTTTS_ID TTS_ERRORMENSAJEfin_tran AArAA!A!AAA1ArsqABrqqqqAAs1y2rAQrrAq1qBr!r!rqr!r!r!r! B3qQ3A1c %ӊ.l& ges%Cbienes BFQbienescodinsF%Catributo ~FQatributoF%Cstock F QstockF%Cbultos F QbultosFG~(clases abmbieotrosBUGESBIENESCODINSATRIBUTOSTOCKBULTOSCLASES ABMBIEOTROSqAqAqrAqAqB1%VE%l[ ges%Cbienes BFQbienescodinsF%Cstock xF QstockF%Cbultos F QbultosF%Catrhabil FQatrhabil%Catributo !FQatributoFG~(clases abmbieotrosBU GESBIENESCODINSSTOCKBULTOSATRHABILATRIBUTOCLASES ABMBIEOTROSqAqrAqAqAAqB1%:+dE3lG_ G~(clases<7)TCabm_atributos_habilitadosN!%C PoAbmatrhabbO"TCU- C-  BUCLASES POABMATRHAB SOLO_LECTURAACCESOSHOWW ges%Catrhabil EFQatrhabilclaveFBUGESATRHABILCLAVE abm_atrhabilBU ABM_ATRHABIL openfilesdummywl T T-TclaveT abm_atrhabil T-CTC habilitados a sugerir6T atrhabilT hlpT clave T PT descrTTdescrTC TTClaveTCodigoTClaveTCU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICATITULO P_ATR_FIJOSOATR LABEL_PLURALTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDA LABEL_LARGOORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1abm_atributos_habilitadoshlpabm2brq!AA2ArAP1BA1"4Q!!!!1!4 .,?%fS;*+OmloG_ G~(clases<7TC abm_marcasN!TCU- C- BUCLASES POABMMARCAS SOLO_LECTURAACCESOSHOWJ ges%Cmarcas 8F QmarcasFBUGESMARCAS C Ta% TC TCO T TCOG((codigo E+C+  %CO T-H G(( # BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCODIGO openfiles vldagregar,4TmarcasT TTMarcasTmarcasTMarcaT descrT descrT codigoT hlpT  abmmarcas T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_MARCASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_marcashlpabm2brqB2ArA12!AAAB43A21!!!1a111p1 z4' %T-o+OlsG_ G~(clases<7TC abm_lineasN!TCU- C- BBUCLASES POABMLINEAS SOLO_LECTURAACCESOSHOWZG+(dey_func gesCLineasCcostoscodigoFBUDEY_FUNCGES CHECK_OPENEDLINEASe4%C W0C#Debe estar en el rango 1 - 999 !!!B-BaUXCODIGOMENSAJE openfilesusr_vld_codigoXGTlineasT TTLneasTlineasTLineaT descrT descrT codigoT codigoT hlpT abmlineas T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_LINEASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_lineashlpabm2brqBD2!2rA1qqAr53A31!!!11a111: U: %F.e+OlwG_ G~(clases<7TCabm_supergrupoN!TCU- C- BBUCLASESPOABMSUPERGRUPO SOLO_LECTURAACCESOSHOWN ges%Csprgrupo <FQsprgrupoFBUGESSPRGRUPOe4%Cc W1C"Debe estar en el rango 1 - 99 !!!xB-BaUXCODIGO openfilesusr_vld_codigo>XTsprgrupoT TT SupergrupoTsprgrupoT SupergrupoT descrT descrT codigoT codigoT hlpT abmsupergrupo T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_SUPERGRUPOP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1abm_supergrupohlpabm2brqBD2ArA1qqAr5SArQq!!11111: ]9!%e2+OlsG_ G~(clases<7TC abm_gruposN!TCU- C- BBUCLASES POABMGRUPOS SOLO_LECTURAACCESOSHOW ges%Csprgrupo <FQsprgrupo%Cgrupos mF QgruposFBUGESSPRGRUPOGRUPOSh4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGO openfilesusr_vld_codigooGTgruposT TTGruposTgruposTGrupoT descrT descrT codigoT codigoT hlpT abmgrupos T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_GRUPOSP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_gruposhlpabm2brqBD2AArA1q1qAr53A21!!!11a111: `>&%uIOI8WhUl7    T C aG(9 k%CxcodaltbL T % O TTTCXTCXTTCXTCX, sys_cambio_de_codigo_de_articulo( T  T T T T T T T Ta T% 7 G~(ges TCbarra_principalaN & T-%`TC !  TC !  Ta"5# T$a% # T#% T&,'sys_procesando Inicializando7)QEMPRESAsys_clases_empresas.prg] T"a(C)-%./0 ,C 1L()2: C--->C--BT3C "4%"K5bienes2a ` T - T$-%C3 C& YC8Cambio de Cdigo de Artculo: C/C/C pas a C/C/C: 3$sys_cambio_De_codigo_de_articulo.prgBIE7T&)2: 3T)C# 9(C)-%./0 ,C 1  T"a?(C--->C--BT&C "4%"l5bienes2a  T - T$-:sys_procesando%C& C&;BU<XTABLA XPORIGINALXPORIBULXPORIATR XPDESTINOXPDESBULXPDESATRXPTIPXACTRECXTOTREC XMSGERRORXCODALTXOK XPCICLICO ACTIVEFORM DATASESSIONIDXTIPORIGINALOBIEDATA_CODIGO_VACIOORIATRORIBULDESTINODESATRDESBUL SYS_CAMBIO_DE_CODIGO_DE_ARTICULO XRESULTADOXDCONGESFORMGESXZAFAROCOLLEMPRESASGET_CONSOLIDAR_COLLECTIONXOK2XOLDEMPXPRIMERA_EMPRESAP_CODEMP XMSG_GLOBAL SP_MENSAJESYS_PROCESANDOOEMPSYS_CLASES_EMPRESASPRGGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCENCARGAR_DATOS_ENTORNOABREVXMSGEJECUTAR_PROCESOSINCRONIZAR_TODOBIENES2USER_LOG PUB_INDEX GET_PORCODIGOSP_OCULTAR_DEFINITIVAMENTEMENSAJE 7      T a CG+(listadosG~(clasesF!T CBienesCODINS!TCBienesCODINS%F%TCBULTOSCODIGO%TCBULTOSCODIGOF'TCAtributoCODIGO'TCAtributoCODIGO%.H* * T -]T PYa existe en bienes el cdigo destino, no se puede realizar el cambio de cdigo. HI    T -]T PYa existe en bienes el cdigo destino, no se puede realizar el cambio de cdigo.% % B J%CError: C Realizo el cambio igualmente? _ B  T aT ADV:  T0trsactventasventasbienestcomprascomprasconverstockstockgbultosatributomovstockstkxdepstkxdepglisprecrotcompromicompromccformulformulascoscosmancompproddsolcomtr04stkxcoddespachosolcomstkxdsprotnoentcodxprocodxcliccformulultcosstkxsercodbulatcomi_artForm_Genplan_maqplan_madcompplanprot_espprot_anaplan_genrotulosacuerdosplan_nuvprod_gencosvenprod_forcomppauxbul_genatr_genartxcliinvmoddin_faltacos_cpreartxprocosimpplvenagebieauxcosult T1T$sys_cambio_de_codigo_de_articulo.PRGoT Cambio de Cdigo de Artculo: C/C/C pas a C/C/C T1!trsac BIE 8%"C # '&C $ T(%T%&TCERROR: $sys_cambio_De_codigo_de_articulo.prgBIE'CError: (TT)1*trsac BIE%)&  T+ T -GBError: C-- --> -- T+ BU,XTABLA XPORIGINALXPORIBULXPORIATR XPDESTINOXPDESBULXPDESATRXPTIPXACTRECXTOTREC XMSGERRORXCODALTXOKXBIEORIGXBIEDESTXBULORIGXBULDESTXATRORIGXATRDEST OPEN_FILESLISTADOSCLASESBIENESBULTOSATRIBUTO PUB_INDEX MENSAJE_SINOAAALOCK_GTRSACXERR2TRAN_PRGTRAN_TXTBEG_TRANXTIPREEMP1REEMP2OEXMESSAGEUSER_LOGMENSAJE TTS_ERROREND_TRANTTS_ID 4GF>F>F%TcodaltCCZ3REPL &xvar WITH xoriginal FOR cod_ins=xoriginal >F >F >F >F >  F>  F>>F>>F>  F>  F>  F>  F>F>  F>F>  F>>F>  F >  F!>F">F#>F$>F%>>&&F'>  F(>  F)>  F*>F+>F,>F>  F->>./0F2>  F3$>.45C.=F6>F7>>F8>F9>F:>F;>F<>==F>>??>@@FA>FB>CC>DDFE>FF>GG>HH>II>JJ>KK>LL>MM>NN>OO>PPFQ>??>@@FR>  FS>>FT>FU>FV>FW>FX>FY>  FZ>F[>F\>  F]>  F^>  F_>  G BU` XORIGINALXDESTINOXCODALTTVENTASCOD_INSFORVENTASBIENESXVARTCOMPRASCOMPRASCONVERSTOCKCODIGOSTOCKGBULTOSIDCLAVEATRIBUTOMOVSTOCKSTKXDEPSTKXDEPGLISPRECROTCOMPROMICOMPROMCODCCFORMULFORMULASCODCOMPCODSUSTCOSCOSMANCOMPPRODDSOLCOMDESPACHOIMP_TRANTR04 COMPONENTESTKXCODSOLCOMSTKXDSPROTNOENTCODXPROCODXCLIULTCOS CODBULATRBULATRALLSTKXSERCODBULATXDESBULXDESATRCOMI_ARTFORM_GENPLAN_MAQPLAN_MADCOMPPLANPROT_ESPPROT_ANABIE_CODPLAN_GENGEN_CODSUS_CODROTULOSACUERDOSDBIEHBIEPLAN_NUVCOD_PLANMP1MP2MASTERETIQUETACOD1COD2COD3COD4COD5BOLSAPROD_GENCOSVENPROD_FORCOMPPAUXBUL_GENATR_GENARTXCLIINVMODDIN_FALTACOS_CPREARTXPROCOSIMPPLVENAGEBIEAUXCOSULTi4GFA>      F A>      F %!TcodaltCCZ3REPL &xvar WITH xoriginal FOR cod_ins=xoriginal >FA>      FA>      FA>      FA>      FA>      CCambio%W'%CBULTOSCODIGO SF,> %)%CATRIBUTOCODIGO F,> FA>      FA>      FA>      FA>      FA>      FA>      FA>        F!A>      F"A>#$%#$ % A>&'(&' ( F)A>      F*A>      F+A>        F,A>        F-A>      F.A>      F/A>      A>01201 2 F3>F4A>      F5A>      F6A>      F7A>      F8A>      F!A>      F9A>      >:  F<A>      F='>::F>A>      F?A>#$%#$ % A>&'(&' ( F@A>      FAA>      FBA>        FCA>      FDA>EFGEF G FHA>IJKIJ K A>LMNLM N FOA>      FP>QQ>RRFSA>T  T    ,>UVUV ,>WXWX ,>YZYZ ,>[\[\ ,>]^]^ ,>_`_` ,>abab ,>cdcd ,>efef A>ghigh i FjA>IJKIJ K A>LMNLM N FkA>      FlA>#$%#$ % A>&'(&' ( FmA>        Fn:>o FpE>o    FqA>      FrA>        FsA>      FtA>      FuA>      FvA>      Fw>Fx>FyA>      G BUz XORIGINALXORIATRXORIBULXDESTINOXDESATRXDESBULXCODALTTVENTASCOD_INSATRBULFORVENTASBIENESXVARTCOMPRASCOMPRASCONVERSTOCKCODIGOSTOCKGSYS_MCLAVEBULTOSATRIBUTOMOVSTOCKSTKXDEPSTKXDEPGLISPRECROTCOMPROMICOMPROMCODCCFORMULFORMULASCODCOMPATRCOMPBULCOMPCODSUSTATRSUSTBULSUSTCOSCOSMANCOMPPRODDSOLCOMDESPACHOIMP_TRANTR04 COMPONENTECATRCBULSTKXCODSOLCOMSTKXDSPROTNOENTCODXPROCODXCLIULTCOS CODBULATRALLSTKXSERCODBULATCOMI_ARTFORM_GENPLAN_MAQPLAN_MADCOMPPLANPROT_ESPPROT_ANABIE_CODBIE_ATRBIE_BULPLAN_GENGEN_CODGEN_ATRGEN_BULSUS_CODSUS_ATRSUS_BULROTULOSACUERDOSDBIEHBIEPLAN_NUVCOD_PLANMP1MP1ATRMP2MP2ATRMASTER MASTERATRETIQUETAETIQATRCOD1BUL1COD2BUL2COD3BUL3COD4BUL4COD5BUL5BOLSABOLSAATRBOLSABULPROD_GENCOSVENPROD_FORCOMPPAUXBUL_GENIDATR_GENARTXCLIINVMODDIN_FALTACOS_CPREARTXPROCOSIMPPLVENAGEBIEAUXCOSULT %Ctventas ,Qtventas%Cventas ZQventas%Cbienes Qbienes%Ctcompras Qtcompras%Ccompras Qcompras%Cconver QCONVER%Cstock DQstock%Cstockg zQ\stockg%Cbultos Qbultos%Catributo QAtributo%Cmovstock Qmovstock%Cstkxdep <Qstkxdep%Cstkxdepg vQ \stkxdepg%Clisprec Qlisprec%Crot Qrot%Ccompromi Qcompromi%Ccomprom 0Qcomprom%Cccformul bQccformul%Cformulas Qformulas%Ccos QCOS%Ccosman Qcosman%Ccompprod Qcompprod%Cdsolcom x?QC\data\CCZ6\dsolcom%Cdespacho Qdespacho%Cimp_tran Qimp_tran%Ctr04 Qtr04%Csolcom 4Qsolcom%Cstkxdsp dQstkxdsp%Crotnoent Qrotnoent%Ccodxpro Qcodxpro%Ccodxcli Qcodxcli%Cccformul (Qccformul%Cultcos VQultcos%Cstkxser Qstkxser%Ccodbulat Qcodbulat%Ccomi_art Qcomi_art%CForm_Gen Qform_gen%Cplan_maq NQplan_maq%Cplan_mad Qplan_mad%Ccompplan Qcompplan%Cprot_esp Qprot_esp%Cprot_ana Qprot_ana%Cplan_gen HQplan_gen%Crotulos xQrotulos%Cacuerdos Qacuerdos%Cplan_nuv Qplan_nuv%Cprod_gen  Qprod_gen%Ccosven < Qcosven%Cprod_for n Qprod_for%Ccomppaux Qcomppaux%Cbul_gen Qbul_gen%Catr_gen Qatr_gen%Cartxcli 0 Qartxcli%Cinvmodd ` Qinvmodd%Cstkxcod Qstkxcod%Cin_falta Qin_falta%Ccos_cpre Qcos_cpre%Cartxpro $ Qartxpro%Ccosimp R Qcosimp%Cplvenage Qplvenage%Cbieaux Qbieaux%Ccosult QcosultBU=TVENTASVENTASBIENESTCOMPRASCOMPRASCONVERSTOCKP_SYSTEMBULTOSATRIBUTOMOVSTOCKSTKXDEPLISPRECROTCOMPROMICOMPROMCCFORMULFORMULASCOSCOSMANCOMPPRODP_UNOP_SERVERDESPACHOIMP_TRANTR04SOLCOMSTKXDSPROTNOENTCODXPROCODXCLIULTCOSSTKXSERCODBULATCOMI_ARTFORM_GENPLAN_MAQPLAN_MADCOMPPLANPROT_ESPPROT_ANAPLAN_GENROTULOSACUERDOSPLAN_NUVPROD_GENCOSVENPROD_FORCOMPPAUXBUL_GENATR_GENARTXCLIINVMODDSTKXCODIN_FALTACOS_CPREARTXPROCOSIMPPLVENAGEBIEAUXCOSULTejecutar_proceso reemp1reemp2! open_filesZ;tBABqA1qAArrrr#aAQ AB!aAA"ABA3q"t1qQQrqqA2AAA1QAAAP3s1aaAAA2qA2brqrqr11AqrqrqrqrqrqsqrqrqrqrqrqrqrqrqrqrqqrqrqrqrqrqrqtqqrqrqrqrqrqrqrqrqarqrArqrqqrqrqrqrqrqrqqrqrqqsqqqqqqqqqqqrqqrqrqqrqrqrqrqrqrqrqrqrqrqrqrqbB2brrr11Aqrrrrr2qqAArAAqrrrrrrrrrrrrrrtrqrrrrrrrarrrrrrrrrrrrrqqsrrrrrrTrrrrrrrqrrrcB21A!A!AAA1A!ArAA!AAAAA1AA1ARAAA1AAAAARA!AAAAAAAAbA!A1AAA1A1AAA!A1AAAAAAAAAAAAAAAAAAA1AAAAAAA!AAAAA1A1A1A1A1AAAAA1A!AAA!A!AC1]t""7oB7gNgt"%4#Õ+OmdG_ G~(clases<7TC Abm_MedidasNTCU- BUCLASES POABMMEDIDAS SOLO_LECTURAACCESOSHOW ges%Cunidfce BFQ\unidfce%CMEDIDAS uFQMEDIDAS%Cbienes FQbienescodinsBUGESP_SYSTEMMEDIDASBIENESCODINS openfilesTmedidasT T TUnidades de MedidasTmedidasThlpT codigo T -T codigoT  abm_medidasT  T#TdescrT DescripcionTdescrTC TTAbrevT AbreviaturaTAbrevTC TTcodigoTCdigoTcodigoTCU DOS_TABLA DOS_COPIARP_ESPEJA_MEDIDASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLAIDCLAVE CLAVE_UNICAIDXCLAVE FORMULARIO ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 Abm_Medidashlpabm2brqQB2aAAqAAp1CAA11!!!!1112 \%%i20+O=mdG_ G~(clases<7TC Abm_envasesNTCU- BUCLASES POABMENVASES SOLO_LECTURAACCESOSHOW ges%Cenvases :FQenvases%Cbienes uFQbienescodinsBUGESENVASESBIENESCODINS openfilesTenvasesT TTEnvasesTenvasesThlpT codigo T -T codigoT  abm_envasesT  T#TdescrT DescripcionTdescrTC TTAbrevT AbreviaturaTAbrevTC TTcodigoTCdigoTcodigoTCU DOS_TABLA DOS_COPIARP_ESPEJA_ENVASESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLAIDCLAVE CLAVE_UNICAIDXCLAVE FORMULARIO ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 Abm_envaseshlpabm2|brqQB2AqAAp1CABA11!!!!1112   %T+nW]mfG_ G~(clases<7TC abm_cligrueceNTCU- BUCLASESPOABMCLIGRUECE SOLO_LECTURAACCESOSHOW ges%Cclientes 9Qclientes%C cligruece pFQ cligrueceFBUGESCLIENTES CLIGRUECE CTC]UTHIS TMP_TABLA_19TTUXTMPTHISFORM TMP_TABLA_1CLIGRUECE_HIJAS_ABRIRXCODIGOUUU  TTC]%C tmp_cligruecdQFQaoclientesCC(XQC 1\tmp\Q\tmp\#)U XCODIGOXTABLAXXX TMP_CLIGRUECDCLIENTESCOD_CLINOMBREGRUECP_LOCALY %C tmp_cligruecd4FQ\tmp\.*UXTABLAXTABLA1 TMP_CLIGRUECDP_LOCAL openfilesinitk hijas_abrir hijas_guardar#hijas_guardar_dos.hijas_guardar_dos_multiple9cligruece_hijas_abrirDcligruece_hijas_liberarvT cligrueceT TTcodigoT abmcligruece T-T T Grupos EconmicosT  cligrueceT hlpT codigo TPTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTNTC]     U DOS_TABLA DOS_COPIARP_ESPEJA_CLIENTESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICA ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 TMP_TABLA_1 abm_cligruecehlpabm2brqQB2AAAwA@124r4`111qAAY6qAA5cA2a1!!111`1 QFwM? Xk E !z \#b.+5,h&%..J +OymhG_ G~(clases<7TC abm_catcredNTCU- BBUCLASES POABMCATCRED SOLO_LECTURAACCESOSHOWL ges%Ccatcred :FQcatcredFBUGESCATCREDe4%Cc W1C"Debe estar en el rango 1 - 99 !!!xB-BaUXCODIGO openfilesusr_vld_codigo)XTcatcredT TTCat.de CrditoTcatcredTcodigoT codigoT hlpT  abmcatcred T - T PTdescrTdescrT Descripcin TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_CATCREDP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDAORDENTITULO_BUSQUEDAANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_catcredhlpabm2brqQBD2ArA1qqAr5CAA11q!!111: ~/:!% e PFVmk% a"Tc:\sistema\system_sch)Tc:\sistema\system_sch\data\1 CTCSQTBORRAR1Tsprusr Ta T a,$c:\sistema\system_sch\data\1\ges.dbc T aeT \log\!Asignacin de Crditos a Clientes - CCCC:_/-.txt T  TTT TC$CC$%#TCCi CHC%$TCCiCHC%$ T T Ta T-clientes_credito(%` CBU XDESARROLLO DEY_FUNC2P_SYSTEMP_SERVERSETSCL_ATRCL_NOMCL_AVEP_DEV P_SUSPENDC XLOG_INICIAL XLOG_ARCHIVO XANO_PERIODO XANO_CORTE XREDONDEOXMULTIPLICADORXHASTAXDESDEXCORTEXDCATXHCAT XELIMINARXRESCLIENTES_CREDITOCALCULARM%Cccvent *Qccvent%Cidx04 VQidx04;ve_sql_comprobantes_emitidos_v2tmp%CtmpQFQ\tmp\tmpYotmp C Q C Q CQ q Ta T"trsacclientes%8TC] T\trsacClientes_credito!Asignacin de crditos a clientes-%STC%7 T OT kT\trsacClientes_credito!Asignacin de crditos a clientes-H'+   C-<a#Transaccin concluida correctamente@C3Se han asignado los nuevos crditos de clientes !!! B 2'0C#Hubo un error en la transaccin !!! >a%Error al registrar la transaccin !!! B T! BBU"CCVENTIDX04EXPORTARVE_SQL_COMPROBANTES_EMITIDOS_V2XDESDEXHASTATMPP_LOCALCLI_CODCLI_NOMCOM_TOTPESOS TOTAL_REFMONEXTCOM_FECFMINIMAXCORTEQTRSACAAALOCK_GXID_TRANBEG_TRAN XRESULTADO TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEX SYS_LOGUEAR XLOG_ARCHIVO XLOG_INICIALMENSAJETTS_IDBaCCdigoC> CNombreC> Ta ~wFG((codcli E %C4.> CC    6TDa  Crdito=C  Z s%o > Pa $ Crdito= Eliminado, fuera de filtro[ T- BU SYS_LOGUEAR XLOG_ARCHIVO XLOG_INICIALCLIENTESCOD_CLINOMBRETRSACCODCLIQCLI_CODCREDITOP_APFIN_CREDITO_MONEDAPESOSMONEXTXMULTIPLICADOR XREDONDEO XELIMINARcalcular transaccion? qAQ"3A1BQ1AB2!ArABA#212AAABA5$qDAAAB1" 8Q %^"?=锈TmgG_ G~(clases<7TC abm_catcliNTCU- BBUCLASES POABMCATCLI SOLO_LECTURAACCESOSHOWJ ges%Ccatcli 8F QcatcliFBUGESCATCLI C Ta% TC TCO T TCOG((codigo E+C+  %CO T-H G(( # BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCODIGO openfiles vldagregar$yTcatcliT T#TCategoras de ClientesTcatcliTcodigoT codigoT hlpT  abmcatcli T - T PTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTN U DOS_TABLA DOS_COPIARP_ESPEJA_CATCLIP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_catclihlpabm2brqQBD2ArA12!AAAB53A2111a!!111p1 tX`<(m!%yHRmtG_ G~(clases<7TC abm_PlanCobN!TCU- C- BBUCLASES POABMPLANCOB SOLO_LECTURAACCESOSHOW ges%Cbienes 8F Qbienes%Ccondcobr mFQcondcobrFBUGESBIENESCONDCOBR C Ta% TC TCO T TCO G((plan E+C+  %CO T-H G(( # BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERPLANF>UXREG ABMCONDCOBRVALORES openfiles vldagregarqinicializar_registrozTcondcobrT TTPlanes de CobranzaTcondcobrTplanT planT hlpT abmplanc T - T PTdescrT DescripcinTdescrTC TTplanTCdigoTplanTC  U DOS_TABLA DOS_COPIARP_ESPEJA_PLAN_CP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_plancobhlpabm2/brqBD2AArA12!AAAB3qr5RAQQ!!1p8 A,i0+'%.)ҕ+OmfG_ G~(clases<7TC abm_zonasNTCU- BBUCLASES POABMZONAS SOLO_LECTURAACCESOSHOWH ges%Czonas 6F QzonasFBUGESZONASh4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGO openfilesusr_vld_codigoBTzonasT TTZonasTzonasTZonaT descrT descrT codigoT codigoT hlpTabmzonas T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_ZONASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_zonashlpabm2brqQBD2rArA1q1qAr5#A"!!!11Q111: l9!%_2J6Im G(9 $1%Ccuentas ZQcuentas T T T-co_cambiar_cuentas(%)co_cambiar_cuentas1BU ACTIVEFORM DATASESSIONIDCUENTAS XOLD_ABREV XNEW_ABREVXRESCO_CAMBIAR_CUENTASCAMBIAR_CUENTA4 T%CxoldbCQCENo pasa el parmetro 1 = Cdigo interno de la cuenta a reemplazar !!!xB%CxnewbCJC>No pasa el parmetro 2 = Cdigo interno de la cuenta nueva !!!xB T T T T%CcuentasRF QG KG( \log\CCReemplazo de cuentas - CC/-:-G CCKReemplazo de cuenta : [C]  con [] ) sys_procesando ProcesandoT Casys_procesando%C Error: D8El proceso no termin correctamente. Se hizo un Rollback C x %vYMEl proceso finaliz correctamente pero era una prueba, no se registr nada!!! GCambio de cuenta: [C] C a [C] Cco_cambiar_cuentas.prg1%El proceso finaliz correctamente !!!-!Proceso finalizado correctamente.0C$Proceso finalizado correctamente !!!xGG(BUXOLDXNEWXTESTXCARPETAP_SERVER XOLD_DESCR XNEW_DESCRXOABREVXNABREVCUENTASP_SYSTEM SP_MENSAJESYS_PROCESANDOXMSGRECURSE_FOLDERSSP_OCULTAR_DEFINITIVAMENTEUSER_LOG PUB_INDEXq  T 5 G((}:TC  Carpeta: C invlida !!!%C B%LF Qcuentas(;TC !No se puede abrir cuentas.dbf !!!%C 7 BF-%C4TT T C )BNo existe la cuenta  !!!- %C4T T TC H)BNo existe la cuenta  !!!CD%C B (C1%C.C.. "TC\C 4 G((|:TC  Carpeta: C invlida !!!%C  B%C  BC*.dbf%C B(CaTCC%C ] B BUXCARPETAXPRIMERA_CARPETAXMSGOEXMESSAGECUENTASABREVXOLDCOD_CUE XOLD_ABREV XOLD_DESCRDESCRXNEW XNEW_ABREV XNEW_DESCR ARR_FOLDERS ARR_FILESZRECURSE_FOLDERSYPROCESAR3% CUENTAS.DBF ATRIBS.DBF C BF TCW T;sys_procesando Procesando: C.DBF F Q(CTC  Archivo: C no se puede abrir !!!%C %backlinkU 1 T  F Q(CTC  Archivo: C no se puede abrir !!!%C  B C(Cu3%C CC   q0>C  CC  % + Cuenta : C& C 0>C  CC  % N+ Abrev : C& C %C m B FQ BUXFILEXAREAXMSG SP_MENSAJESYS_PROCESANDOOEXMESSAGEXCAMPOSZXNEWFORXOLD XNEW_ABREV XOLD_ABREVcambiar_cuenta}recurse_foldersprocesarQ Ab1AAbB2AAAAqAAbaqqR2"AqaqArBrRAqBbaB3sA!AA"Ar!A!ACsRbr!A!A$AABBdbAr"AB3q2Ar1A"A1A"AAr2"A"A"ABBA1S I, h~}%H3X-ncG_ G~(clases<7TC abm_costosNTCU- BUCLASES POABMCOSTOS SOLO_LECTURAACCESOSHOW ges%Ccostos BFQcostoscodigo%Cprovinc }FQ\provincFBUGESCOSTOSCODIGOP_SYSTEM"TCX BUXCOD_CEN>SNUIMPASOC openfilessugerir_no_numwinicializar_registroTcostosT TTcodigoT abmcostos T-T Centros de CostosT costosT hlpT cod_cen T KTdescrT DescripcinTdescrTC TTcod_cenTCdigoTcodigoTC  U DOS_TABLA DOS_COPIARP_ESPEJA_COSTOSP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_costoshlpabm2#brqQB2qAaArA1q353A2a1A!!A117 > =FK"%eB+O8neG_ G~(clases<7TC abm_rubrofacNTCU- BUCLASES POABMRUBROFAC SOLO_LECTURAACCESOSHOWK ges%Crubrofac 9QrubrofacFBUGESRUBROFAC" C Ta%  TC TCO TTCC+CO6G((codigo E+C+  %CO T-H G((% # #6H BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCODIGO openfiles vldagregar'~TrubrofacT TTcodigoT abmrubrofac T-"T Rubros de FacturacinT rubrofacT hlpT codigo T KTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTC U DOS_TABLA DOS_COPIARP_ESPEJA_RUBROFACP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_rubrofachlpabm2arqQB3AArAP12!AAAAQAAB5SA2$Q1!!1111 q=+%%:'+ORndG_ G~(clases<7TC abm_centralNTCU- BUCLASES POABMCENTRAL SOLO_LECTURAACCESOSHOWL ges%Ccentral :FQcentralFBUGESCENTRAL openfilessTcentralT TTcentralT abmcentral T- T Depsitos CentralesT centralT hlpT central T KTdescrT DescripcinTdescrTC TTcentralTCdigoTcentralTCU DOS_TABLA DOS_COPIARP_ESPEJA_CENTRALP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_centralhlpabm28arqQB2ArA@1CABqAA!!A1A2 mZ%aU+OnncG_ G~(clases<7TC abm_fletesNTCU- BUCLASES POABMFLETES SOLO_LECTURAACCESOSHOW ges%Cfletes BFQfletescodfle%Cprovinc }FQ\provinc%Cpaises FQ\paisescodigo%Czonas FQzonascodigo%Cclientes 8FQclientescodcliF%Csucursal zFQsucursalidFBU GESFLETESCODFLEP_SYSTEMCODIGOZONASCLIENTESCODCLISUCURSALID< CTCTUTHISTITULO_COLUMNA2 OLOCALIZACION CUIT_TEXTOGRID1COLUMN3HEADER1CAPTION%[G((codigo#6"TCCCCgZCX=G((nomfle tTCX BUXCOD_FLEP_FLENUMCODIGOCOD_FLENOMFLE>UFLETESPAIS openfilesinitsugerir_no_num;inicializar_registroTfletesT TTcodfleT abmfletes T-T FletesT fletesT hlpT cod_fle T <TnombreTFleteTnomfleTC TTcod_fleTCdigoTcodfleTC TTcuit TTCUITTC   U DOS_TABLA DOS_COPIARP_ESPEJA_FLETESP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 abm_fleteshlpabm2tbrqQB2qAaAAraAAqQAsA1A4qQ!A353A2a41A1!1A116 'V\+c6+r888%zO EPny4%Z TC a CTCSQTBORRAR1Tsprusr T a T a( c:\sistema\system\data\1\ges.dbc&Qc:\sistema\system\data\1\idx04S{( c:\sistema\system\data\1\ges.dbc%T c:\sistema\system\data\1 G(  C r  | T T libro1.xlsxT275 $TCCCC:_/-%Cidx04 Q\idx04T\tmp\C](%Ctmp_idx04_importaciones]QC Suspendo?aJidx04_importaciones(tmp_idx04_importaciones% " (%Ctmp_idx04_importaciones Q B TF~C  T-(}!T idx04.indiceCCZ;%Ctmp_idx04_importaciones.indiceCCZyFG((idx04 E%C4 ridx04Preplace &aaa with evaluate("tmp_idx04_importaciones.indice"+alltrim(str(z))) Ta%T%?CSe han registrado CCZ actualizaciones !!! :5C(No se han registrado actualizaciones !!!(%Ctmp_idx04_importacionesnQBU XDEV XDEV_SIN_FORMXAUTBBB DEY_FUNC2SETSCL_ATRCL_NOMCL_AVEP_DEV P_SUSPENDCP_SERVER P_DIR_IMPORTXCARPETAXFILEXCOD_CLIXIDSYSP_COMMONXTMPP_LOCALTMP_IDX04_IMPORTACIONESSYS_MOSTRAR_SCREENIDX04_IMPORTACIONESXD XHUBO_CAMBIOSFECHAXHUBO_CAMBIOS2ZAAAIDX04MENSAJEBQ3A1dASQBA1BtAAsAABAr1qACAAA3QAAC1%3EzN7In! G(9 $1%Cproveedo \QproveedoTCXTCXTCX T- co_cambiar_proveedor(%%C T'co_cambiar_proveedor1BU ACTIVEFORM DATASESSIONIDPROVEEDO XOLD_PROV XNEW_PROVXNEW_PROV_NUEVOXRESCO_CAMBIAR_PROVEEDORCAMBIAR_PROVEEDOR4 T%CxoldbCFC:No pasa el parmetro 1 = Cdigo de proveedor de origen !!!xB%CxnewbCGC;No pasa el parmetro 2 = Cdigo de proveedor de destino !!!xB&%Cproveedocodpro G0C#El proveedor original no existe !!!BT T -&%Cproveedocodpro  T aT C Suspendo?a %CproveedoFQG OG( \log\CCReemplazo de proveedores - CC/-:-G CCNReemplazo de proveedor : [C]  con []  ) sys_procesando ProcesandoTCa %C Csys_procesando%C Error:D8El proceso no termin correctamente. Se hizo un Rollback Cx r%4YMEl proceso finaliz correctamente pero era una prueba, no se registr nada!!!  Cambio de proveedor: [C] C a [C] C co_cambiar_proveedor.prg1%El proceso finaliz correctamente !!!-!Proceso finalizado correctamente.0C$Proceso finalizado correctamente !!!xGG(BUXOLDXNEWXTESTXCARPETAP_SERVERMENSAJE XOLD_DESCRPROVEEDONOMBREXCAMBIO_CODIGO XNEW_DESCRSYS_MOSTRAR_SCREENP_SYSTEM SP_MENSAJESYS_PROCESANDOXMSGRECURSE_FOLDERSPROCESAR_ESPECIFICOSSP_OCULTAR_DEFINITIVAMENTEUSER_LOG PUB_INDEX~ T 9 G((:TC  Carpeta: C invlida !!!%C B%oF Qproveedo(<TC "No se puede abrir proveedo.dbf !!!%C = BF-%C4T  T C ,BNo existe el proveedor  !!!% T  T  k-%C41T  T C g,BNo existe el proveedor  !!!CD%C B (C1%C.C.. 'TC\C- \ G((:TC  Carpeta: C invlida !!!%C  BC*.dbf%C B(CnTCC%C j B BUXCARPETAXPRIMERA_CARPETAXCAMBIO_CODIGOXMSGOEXMESSAGEPROVEEDOCOD_PROXOLD XOLD_PROVNOMBRE XOLD_DESCR XNEW_PROV XNEW_DESCRXNEW ARR_FOLDERS ARR_FILESZRECURSE_FOLDERSYPROCESARr % G% PROVEEDO.DBFC B y%CproveedouFQF TCW T;sys_procesando Procesando: C.DBF F Q(OCTC  Archivo: C no se puede abrir !!!%C .%backlink 1 T  F Q( CTC  Archivo: C no se puede abrir !!!%C * B C   (C TO%C  CC   C  COD_PRO P0>C   CC  ? Proveedor : (CC Z)CC& CC  %C L B FQ BUXFILEXCAMBIO_CODIGOPROVEEDOXAREAXMSG SP_MENSAJESYS_PROCESANDOOEXMESSAGEXCAMPOSZXNEWFORXOLDFQCODXPRO>F Proveedor : (CC Z)CC& CODIGO (ESPECIFICO) QCCPROV%>C\C=B Proveedor : (CC Z)CC& ID (ESPECIFICO) QCHQ>I Proveedor : (CC Z)CC& PROVEEDOR (ESPECIFICO) QCCOFAB>F Proveedor : (CC Z)CC& CODIGO (ESPECIFICO)QCASHDATA#> P F Proveedor : (CC Z)CC& CODIGO (ESPECIFICO)QCASHEXPA>  D Proveedor : (CC Z)CC& PROV (ESPECIFICO)QCASHADIC>  D Proveedor : (CC Z)CC& PROV (ESPECIFICO)Qejercon ~FQC\diariog#> P F Proveedor : (CC Z)CC& CODIGO (ESPECIFICO)QBUCODXPROCODIGOXNEWFORXOLDCCPROVIDCHQ PROVEEDORCCOFABCASHDATAPROCLICASHEXPAPROVCASHADICEJERCONDIRcambiar_proveedorrecurse_folders\procesar procesar_especificosAbAAArAbB2aAAqAAbAAaArqAAbaqqRrA"AqaqArBrRAqBbaB3sA!AA"Ar!A!AABsRbrqA!AABBdbAr"AB3AqAAAr1A"A1A"AAr"ABBA2qbQ"qqb1bqBqA2bBBB2%3 !WO 2SE%J Rey+On4G_ G~(clases<7<7 TC p_pro_catCCZTC abm_catproNTCU- BBUXTIPOCATCLASES POABMCATPROPOABMCATPROCAPTION SOLO_LECTURAACCESOSHOW ges%Ccatpro-FQ%Ccatpro2TFQ%Ccatpro3{FQF.QcatproCCCZ6FBUGESCATPROCATPRO2CATPRO3XTIPOCAT" C Ta%  TC TCO TTCC+CO6G((codigo E+C+  %CO T-H G((% # #6H BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERCODIGO openfiles vldagregar vTcatproT TTcodigoT abmcatpro T- T C p_pro_catCC ZT catproT hlpT codigo TKTdescrT DescripcinTdescrTC TTcodigoTCdigoTcodigoTC U DOS_TABLA DOS_COPIARP_ESPEJA_CATPROP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOXTIPOCATTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_catprohlpabm2qbrqrqQBD2rqAAqAAqAArAP12!AAAAQAAB53A2a11!!1111!4S;A2%b?5TnhG_ G~(clases<7TC abm_PlanPagNTCU- BBUCLASES POABMPLANPAG SOLO_LECTURAACCESOSHOWN ges%Ccondpago <FQcondpagoFBUGESCONDPAGO C Ta% TC TCO T TCO G((plan E+C+  %CO T-H G(( # BUXCODIGOREGISTROXOKFILE_LOCTHISFORM CLAVE_UNICAXORDERPLAN openfiles vldagregar,lTcondpagoT TTPlanes de PagoTcondpagoTplanT planT hlpT abmplanp T - T PTdescrT DescripcinTdescrTC TTplanTCdigoTplanTC U DOS_TABLA DOS_COPIARP_ESPEJA_PLAN_PP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_PlanPaghlpabm2brqQBD2ArA12!AAAB5RAQQ!!1p1 UW;(d!%9+OocG_ G~(clases<7TC abm_textosNTCU- BUCLASES POABMTEXTOS SOLO_LECTURAACCESOSHOW ges%Ctextos BFQtextoscodigo%Cclientes FQclientescodcli%Cproveedo FQproveedocodproFBUGESTEXTOSCODIGOCLIENTESCODCLIPROVEEDOCODPRO openfilesTtextosT TTcodigoT abmtextos T-T TextosT textosT hlpT codigo T <TdescrT DescripcinTdescrTC T TcodigoTCdigoTcodigoTN TTdesdeTDesdeTdesdeTD TThastaTHastaThastaT DU! DOS_TABLA DOS_COPIARP_ESPEJA_TEXTOSP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICATITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3 abm_textoshlpabm2brqQB2qAAArA13A2a411!!111!!!!!!2 ('%X4'cN&ogG_ G~(clases<7TCabm_Pd_demorasNTCU- BUCLASESPOABMPD_DEMORAS SOLO_LECTURAACCESOSHOWd ges%C pd_demoras RF#Q \pd_demorascodigoFBUGESP_SYSTEMCODIGO PD_DEMORAS openfilesyT pd_demoras T-TcodigoT abmpd_demoras T-T)TMotivos de Demora de PedidosT pd_demorasThlpT codigo T PT descrT  DescripcinT descrTC TTcodigoTCdigoTcodigoTNU DOS_TABLA DOS_COPIARIDXCLAVE FORMULARIO CLAVE_UNICA ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1abm_Pd_demorashlpabm2kbrqQB21ArA 1s2q1!!1112 )%X} 8q|WDodG_ G~(clases<7TC abm_sucpropNTCU- BUCLASES POABMSUCPROP SOLO_LECTURAACCESOSHOW ges%Csucprop :FQsucprop%Ccostos kF Qcostos%Ccuentas FQcuentas%Cprovinc FQ\provincFBUGESSUCPROPCOSTOSCUENTASP_SYSTEMh4%C' Z3C$Debe estar en el rango 1 - 9999 !!!xB-BaUXCODIGO openfilesusr_vld_codigo;T SucursalesTsucpropTcodigoTcodigoThlpT abmsucprop T- TPTdescrT  DescripcinT descrT C T T codigoTCdigoTcodigoTN UTITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_sucprophlpabm2brqQB2AAAaArA1q1qAr5sA11q!!111: &TC%M,%>F7F;U\ofG_ G~(clases<7TC abm_mailctasNTCU- BUCLASES POABMMAILCTAS SOLO_LECTURAACCESOSHOWY ges%Cmailctas GFQmailctascodigoFBUGESMAILCTASCODIGO openfileszTmailctasT TTcodigoT abmmailctas T-T T mailctasT mailctasT hlpT codigo T TcodigoTCdigoTcodigoTN T<TNombreTNombreTNombreTC TTHostTHostTHostTC TT AuthLoginT AuthLoginT  AuthLoginT!C T"T# Usa_GmailT$ Usa_GmailT% Usa_GmailT&CU' DOS_TABLA DOS_COPIARP_ESPEJA_MAILCTASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEIDXCLAVE FORMULARIO CLAVE_UNICA ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3ANCHO4CLAVE_BUSQUEDA4TITULO_COLUMNA4ORDEN4 TIPO_CAMPO4 abm_mailctashlpabm2QbrqQB2ArA01SA2RQ1111111aaaaaa1 %%/<SKM|o CTabmmailctas.prgT MailCuentas T"trsacmailasigtrsac C abmmailasig( C  trsac T BU OPENFILESTRAN_PRGTRAN_TXTAAALOCK_GTRSACBEG_TRAN CREAR_VISTA ABMMAILASIGXRESGUARDAR_VALORESEND_TRANTTS_ID ges%CMailCtas FFQMailCtascodigo%CMailAsig {FQMailAsigFBUGESMAILCTASCODIGOMAILASIGFG((codusrF ~F%CCZCZ]> F ^JF _JUMAILASIGCODUSR ABMMAILASIGCODIGOUSRCOD_MAILOOBJ_xoMailAsigQXmailctasQ CQGeneralQ  ABMMailAsigsoMailAsigQXmailctasQ CQUsuarioQ tmpusr> Dptmpusrmailasig    r abmmailasigotmpusrUMAMCNOMBRECNOMBREUNOMBREMAILASIGMAILCTASCOD_MAILCODIGOUSR ABMMAILASIGTMPUSR PUB_INDEXALL openfilesGuardar_ValoresG Crear_Vista""rB2AArA3rrqqqQAA36A1 Z7').;  ( @   2RRRRRRRRRRRRRRRRRRRRRRRRRRRRR23r2q3r2q2q2q2r3r3q3q2r3qՐkՐkՐkՐkՐkՐkՐkՐkՐkaaaaaa2r(О"Μ"Μ"Μ(О(О(О(О(О(О2rՐkՐkbc2r ɓɓ0rՐk~zzzzz~Րkb|ooyc0s ʔ ʔʔ ʔ ʕ ʔʕ ʔ0sՐk~z~~}z}Րlc{|d/t ˖ ˖˖ ̕ ˕ ˕̕˕/t֐k{~~~{Ցle}}f.u̗͗ ̖ ͗ ̗̖̗ ̗.u֑k{{֑lgg-v ͘ΘΘΘ ΘΙΘ͘-v֑l|쨀|֑lgi-vϚϙϙϚϚϚϙϚ,v֑m}쩀쩀쩀}֑lik+wЛēЛЛЛЛЛ Л’Л+xבm~~בlkk*xҝǕѝќќѝќҜŕӞ*xגmꨀ꧀גmmm)yՠ˘ӝӞӞӞӞҞɗա(yגn멁쩁ؓmoo(zףΛԟԟ՟՟ԟԟ̚ף'zؓnؓn p q'{٦Ҟա֡ա֡֠֡ѝ٧&{ٔnٓn!r s%}۩ףأעעעآעע!ܩ%}ؔnﮄﱈٔn!s"t$#ݬ٤٤٣٤ؤ٣أؤ&߭#ٕo﯆﯅﯅ٕo^^^^$(ڥڦڥۥڥڦڥڥ*#ٕo﵍ﰇ﯇ﰆﰇﶌڔo"-ۧܦۦۧۧܧۧܧ/"ڕoﰇﱇﱇﱇﱇڕp!2ݨݨܨݨݩܨܨܨ5!ڕoﱇﱇﲈﲈەo 8ުީުުުުުު:!ۖpﲈﲉﲈﲈۖp >߫ߪ߫߫ߪ? ۖqﳉۖp BDܖpÚﳉﴊﳉÚܖpHJܖpŝƝܖqMOܗqܗqŽRTŽX8ÐWYÐđ\^đŒ`bƒǔdfǓȕiiȕɕʖʔ՟#ԟ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ"՟ӝ ( @lvt$"$ ? ???$$ ( @      ~~}}}} ~~{{zz     ~~~~ zzzz   {{            !"#$%%&'  '()*+,-.//001123453( 6789:;<=0(4>>3?(%)@A%BCDBEFF2%3G>>G?$?H)02H%3%3()IJ3?%$G>>4(% !2J3%(?KKKG%(L002III2"00 2J3%)$KK>3%3A!10100!2J3%)?KKM$G%AA!1(3%3%H)IGH(%>K>$?$NO BDPQDRQF=I#G()($>4G4? S!0027TUV;<;4]^_"22IH$?((`$>a 0(3%3%3%3(#&#H)((Hab6%?CBDRDRDFc0"defg6!002#hiT;<;<;>K @)#(@  <?? ( @ʦf3f3̙f3fffff3ff333f3333f3ff3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3ffffff3f333f3333f3wUD"wUD"UUUwwwwwwDDD"""wUD":::::::::::dd:::::::::ddd:::::::::::ddd:::::::::::::ddd:::::::::::::::dd::::::::::::::::::dd:::::::::::::::::::ddd::::::::::::::::::::dd:::::::::::::::::::::dd::::::::::::::: :::::dd::::::::::::::  :::::::::::::::::   ::::::::::::::::   ::::::::::::   ::::::::  ::::   :   ::::::::::::: ::::::????  ( @ MZZMt%@@9#z>>#z>J=9llz#WfZ%@tj[^cc\lli~AJMfZ9|3^<X@@je^\&j@"M#z-)ZЂ<XXae\^#z#W&jGG8(yyt^aedZZMEMGD8,>J,*J}yvqojddZZSOOEC8-,*"M"MK&j{vnje\^WWSOOED-#W"MMK]fff^yvnjedWW>EEAD7&j&jfKu^qxvneڧ}xuRIF.Dh#z''),-,W}|vqn^ڧyzQQS0&'')-&-2T|vqn\ڧyzQQS0&'')(-2-{}yoj\ڧyzQQS-# HAA99''AYYYXXXSSSuuuOuuqj\ڧyzQQS-# LGE9(cccgggcccYYYppp>JWqj\ڧyzQQS-# LDC9#z```XXXXXXK]uqj\ڧyzQQS-# LDC9-ʉ``````xojqϓVX[FGI(%'G992©vslFGI125(%'eeeMMMbbbfeb125+,0^^^^^^[[[lllͻ}xuFGIrrrgggggggggllllllgggzzzڨxxxKKKHHHuuu}}}ڨ{{{QQQ'''ڨ{{{QQQ'''ýڨ{{{QQQ%%%ڨ{{{QQQ%%%eeeڨ{{{QQQ%%%uuurrrڨ{{{QQQ%%%ĽϋXXXGGG&&&ŪqqqGGG222&&&ddd222---˧xxxGGGÇÀ?  ( @ !!!!!!!!!!!!!!!!!!!!!! !֜!Ӝ!{{˜! !؜!՜!{{͜! !ٜ!֜!{{Ϝ! !ۜ!؜!{{ќ! !!!!!!!!!!!!!!!!!!{{!!!! !ݜ!ڜ!{{Ԝ! !ޜ!ܜ!{{֜! !ߜ!ݜ!{{؜! Ͽޜ!{͢{ٜ! ¿ǜ!!!!!{͢{!!! ɼ՜!{͢{ܜ! Ǻœ!{͢{ck ŸɽҹɼҸȻŽ!{͢{ck Ǻ œ!{͢{ck Ÿѹɼİ´ŭŴŸɼ»ʾœ!!!!!{͢{!!ck Ǻǧŷõœ!{͢{ck ɼõɬõõõ´œ!{͢{ck ŸϸȻʮǭǹɼʽœ!{͢{ck ɼͮ´´œ!{͢{ck Ǻս!!!!!ckckckckckckckck Ǻ塶´œ!!! Ǻʾ!!! syhosy{{Ĝ!!!LmS:S?=XC?ZEA]GB_HC`IC`IB_HA]G?ZE=XCckĜ!!!sygnhognhognemgngnemhogn}Ŝ!!!!!!!!!!!!!´Ÿۧ  ( @  TAElZcXU`PSXDDF ZEJo~vcn_qmu|acd ZEJozfvNzNcl{ ZEJozfvM|DJSJo ZEJozfwM|CHK3r ZEJozfwM}CHK3t ZEJozfwL}CHK3tYEJozfwL~CHK3t O>Bn~zfwL~CHK3t %%"]OYzsfwM~CHK3t3&&_JGnh|}{qndbZjOJE30'-*+ZX_hqXFHK3t#\GDzrɮݽܵҬٿƥvnhvuvYM3t&kSP̸߳ɣΨ{]8pgOMؾѶ׵Ҫڲ L96¡ Ӱӫٰz%d^ŤƢ̦ͩɠrVS L96⿢ռáӺğժ἞xqlRMƳǩǧ;ţзѧϩgIG}aYɨ̼}ĝҧܫڳΥ^[#kbְ}{~zÛȤޭ۩ޫسlh#jaҫ |}z˨ܪެشmh_W~ʨϩ_\lPJǨẽѳơҫԪѩٴœgJHK63vϧܱƞӲÚ״ȠѰȪx_VӮݱàƛ~ǡʨ}`\P95q㾛ܭʜ˵ҷibgKFz徛ݱǤѯҷҼlglOJ|޷ӬʱiehLItj̣ЫԭѪΩḪ̂wv[WmhϢ͠|wga??  ( @   LxM ?x>  2?  ?uŵ  vn~suZ[e(wF{su_Xe(e(d(S{sxcVe(f1f1f1f1{ixcVe(i1i1i1d(}OizhUk*s1s1i1d(Ri |uKk*s1s1s1m-Si |uKk*s1s1s1s1Gi  |uKk*s1s1s1s1Gf  |uKe(s1s1s1s1|CffX:ڜ(# -qiNRi1r-s1s1s1y~YX=00"=)S9j93(& -awXվ?@IybGi1i$npLD0"--->)Z:Z:Z:Z:j91%&TwywsUķ?AA?IyO>LD--1!1!1!1!=)S9S9Z:Z:`A`A`AiyyyyyssXζAAAAA6=0-1!1!1!1!1!9(Q8S9S9Z:Z:`AZ:rnyyysjkUķAAAAA35)1!1!1!1!1!1!9(J4P7P7S9Z:Z:Z:rjjjjkddQ?AAAA35)1!1!1!1!1!1!9(K0J4P7P7Z:Z:Z:rbkkmmb_LAAAAA30"1!1!1!1!1!0"9(H/H/J4P7Q8Z:Z:rbbbbc^߿^߿PAAAAA:0"1!1!1!1!1!1!6'A.H/K0J4P7S9S9rbkkc__[кPAAAAA:0"1!1!1!1!1!1!6'B-B-K0K0J6P7M4~k^߿cc_ս_ս[кUķH?AAAA:}0"1!1!1!1!1!0"0">)B-H/K0K0J4M4~kXվ_ս_ս_ս[кUķQA@?AAA:u1!1!1!0"0"6'>)A.A.=,=,B-H/J4L2~kXվXվ[кUķQQTWľTHAAA:p,-9(=,C0J4J4J6J6K0K0C0C0?(>%i[XζXζUķWľ\a``ca\WľL:cdWO=B,H3H3J4J4J4J4B+>%B,IDffN>O`acc```cc`vؼӞodTFTBP7B,B-SQl{V01>RRalnfΏ}sp2 +[p[00[?(Fhn   ( dFd,V:q@@@333:33:33330<3;#ϫ3;;?Ϭ3+3;,?;/3;;????( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""jjjj@j9jjj@@@j9jjjGGG@jjjjGj@9jj@9GG9@@@9GG9j@@9999@@@9@@@9@@@@9@@9????( @dFd,V:q@@@<;33;3333;333333;3333333333333333;333333333;33333333;<33<3:3333?333333 3? 3?333303??3333#3 ?333<»3?33»<?3̻»?̻3"3?̻333"?333" 33/ 333/3333̯ϣ3>33;;??9( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""j9@j9@j9@jjj9@@@j9@jjjjj9@@@@@j9@jjjjjjj9@@@@@@@j9@jjjjjjjj@@@@@@@@@j9@jjjjjj9jGGGGGG@@@@j9@jjjjjj9GGGG@@@@@j9@jjjjjj9GG@jj@@@j9jjjjjj@99GGj@@@@jj@jjjj@@@9G@j@@@j9@jj@@@@@9GG@@@@@9@@@@@@@@9GG99@j@@9@@@@@@@9G99@@@9@@@@@9999@j@9@@999999@j9999@@999@@@99@@@@@@9999@@@@j@@@999Nj@@@@99+@@@@@@@99@@@@@@@@@99@@jj@@99jN@@@99@@99N99??9%/ FqS pm5G+(listadosTC"h1\tmp\M\ges.cfg T-2sys_edit(aConfiguracin Global%(\ges.cfg%3C notepad.exe\ges.cfg Q \tmp\.dbf \tmp\.fptBU XARCH XABRIRNOTEPADXRESLISTADOSNEWFILEP_LOCALTEXTOP_SYSTEMSYS_EDITODEYFUNCEJECUTAR_ARCHIVO!"R"A1ABB1%h:FqS3p  5 T-G+(listadosTC"h1\tmp\M\ges.cfg1sys_edit(aConfiguracin Local% TCSAFETYvG.(\ges.cfgSET SAFETY &xSaf %S3C notepad.exe\ges.cfg Q \tmp\.dbf \tmp\.fptBU XSAFXARCHXRES XABRIRNOTEPADLISTADOSNEWFILEP_LOCALTEXTOSYS_EDITODEYFUNCEJECUTAR_ARCHIVO!"RQaAA1ACB1%;5HWphG_ G~(clases<7TC abm_tipoimpNTCU- BBUCLASES POABMTIPOIMP SOLO_LECTURAACCESOSHOW ges%Ctipoimp BFQ\tipoimp%C cur_tipoimpmFQ*otipoimp cur_tipoimpFBUGESP_SYSTEM CUR_TIPOIMPCODIGODESCRTIPOIMPe4%Cc W1C"Debe estar en el rango 1 - 99 !!!xB-BaUXCODIGO&F>-UXREG ABMTIPOIMPDESCRFIJOM%F-C Este tem no se puede borrar !!!B-UTIPOIMPFIJOMENSAJE openfilesusr_vld_codigoinicializar_registro" borrar_validao7TCat.de CrditoTtipoimpTcodigoTcodigoThlpT abmtipoimp T- TPTdescrT descrT  Descripcin T T codigoT codigoTCdigo   UTITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDAORDENTITULO_BUSQUEDAANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_tipoimphlpabm2<brqQBD2aAqAAsA1qqAr3qrS3!qA5A11q!!1117  >"H#JQ(3)% , * N39up%F/C"No debe haber mdulos abiertos !!!BG(9G~(clasesG+(listados C 5 TT C T C 5 +T CSecuritysys_security.prg  T+ah TH5d [ T T sys_permisos_empresa(HW ! %T  % T 7! W T d%C 0 *%CborrarFQ+h1 NCQ erborraroEmpUserQa010592Q F& & %Cborrar1FQ^oa010592QXBorrarQ QQC1 Q F& & FG((NombreFG((Nombre T$sys_permisos_por_empresa(H` ! %T )% %T @! ` T% C! "C Borrar #C Borrar1 #BU$ G_MODULOSMENSAJE ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXEMPXOLDEMPXBORRARODEYFUNCNEWFILE_LOCAL_TMPXBORRAR1OSEC SEC_TABLE_GETXFORMXMAXFORMXRESSYS_PERMISOS_EMPRESABORRARCODIGONOMBREUSRA4A3EMPUSEREUA010592USUARIOEMPRESABORRAR1EUASYS_PERMISOS_POR_EMPRESA REGISTRARSEC_TABLE_CLEAR CHK_DELETED T!trsacEmpUser% TWtrsacSys_permisos_Empresas"Asignacin de Permisos de Empresas Ta% TC% T T !TWtrsacSys_permisos_Empresas"Asignacin de Permisos de Empresas T%8C+Se han asignado los permisos de la empresa. BU AAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEx TaFCrEmpUseroBorraraC] T-BaU TRSACEMPUSERFOREMPRESAXEMPUSUARIOPERMISOIDUCODIGOBORRARL#CEmpresas\"CEmpUser\BUODEYFUNC CHK_OPENEDP_SYSTEM registrarl transaccion open_filesz 2AA!r11B12A12A1B1A2rqAAVrqAArCrrA1B12A12A1B1ABB2BB32q2AArBBC3r2r31!B1]* " v: }%tJMLSpG(95 C TTCTC T%CborrarF Q+h1 N CQ F & %Cborrar1F Q0oEquiposQ Q  1Q F & & F G((equipoF G((equipo T- Tsys_mensaje_equipos(% CCBorrarCBorrar1BU ACTIVEFORM DATASESSIONIDXUSRXBORRARXBORRAR1 OPEN_FILESODEYFUNCNEWFILE_LOCAL_TMPXFORMBORRAREQUIPONOMBREBORRAR1EQCODIGOEQUIPOSXRES XENVIAR_MSGSYS_MENSAJE_EQUIPOS REGISTRAR CHK_DELETED T!trsacEquipos% TDtrsacSys_mensaje_equiposEnvio de Mensajes Ta%TC% T T TDtrsacSys_mensaje_equiposEnvio de Mensajes T%'CSe han enviado el mensaje. BU AAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEZ TaF ~A%pEquipos T-BaUTRSACBORRAREQUIPOSSND_MSG XENVIAR_MSGCODIGOEQUIPOe+TCSecuritysys_security.prg "CEquipos\BUOSEC SEC_TABLE_GETODEYFUNC CHK_OPENEDP_SYSTEM registrar& transaccion2 open_filesrqAAsqAArrrAB32A2AABqABC3sQAr3r"B1&0D?yGF%~ \XpqG~(clases%CA0105922FQ<7TC abm_usuariosN BUCLASESA010592POABMSHOW ges%Cusuarios HQ \usuarios sys_securityCa%CA010592-%C4  >>C]#)$%Cusuarios.emailbCi1a010592 C<i1a010592 CF G((codigoF G-( ">  F #)BUXDATASESSIONIDGESP_SYSTEMCREATE_OBJECT_SECURITY SYS_SECURITY OSECURITY SEC_TABLE_GETA4IDUA010592EMAILTELEFONOUSUARIOSCODIGOALLUT CF G((idu E%C4GFUXCLAVEA010592IDUl C%Ca010592,FQ %CEquiposeQCEquiposWUA010592 OSECURITY SEC_TABLE_PUT* TC%#U XRESPAGREGAR?%8CaU XRESULTADOXCLAVEXCLAVE_ORIGINALXAUTO OSECURITYCOPIAR_CONFIGURACIONF ~(%Cusuarioscodigo>>$%Cusuarios.emailbC>'%Cusuarios.telefonobC> Grusuarios  C]$%Cusuarios.emailbC`>'%Cusuarios.telefonobC>UousuariosXa010592   Ctmp_usuarios_aass% dF ~`(%C usuarioscodigoR \ i1a010592i1a010592( UA010592A4USUARIOSDESCRA3LASTPERMA2EMAILTELEFONOCODIGOIDUTMP_USUARIOS_AASSINOEX1 openfilesborrarunloadragregar  clonar_posIantes_de_salirPTUsuariosTA010592ThlpTA4 T- TPTa3TNombreTa3T C T T a4T CdigoT num_usrTCT abmA010592Tnum_usr     UTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 FORMULARIOIDXCLAVE abm_usuarioshlpabm2oqAAtqB2qArAQQACsr&rQBAC1rAAr3qAA1A2qB21aA3r11C1Aq1AqC1Aq1ABBR!qBAAAAB6UA11AsAP1 )W`3n=uyB^ G mlH{E%#Dx%\Xp%F/C"No debe haber mdulos abiertos !!!BG(9G~(clasesG+(listados C TTCC]RT CC]R5 +T CSecuritysys_security.prg T +a T H2 X T T sys_permisos_usuario(HT ! % T   % T   4! T T  2%C\tmp\.dbf0 C T sys_permisos(H ! 9% 5T   t% pT   !  T % C%CborrarFQ \tmp\.dbf \tmp\.cdx%Cborrar1aFQ  \tmp\ .dbf \tmp\ .cdxBU G_MODULOSMENSAJE ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXUSRXBORRARXBORRAR1OSEC SEC_TABLE_GETXFORMXMAXFORMOLDUSRXRESSYS_PERMISOS_USUARIOP_LOCALCARGAR_PERMISOSA010592A2 SYS_PERMISOS REGISTRARBORRARBORRAR1SEC_TABLE_CLEAR%C q_permisos#QAh1 q_permisosNCC&  T%m T Ta%TC% T T T T%i*CSe han asignado los permisos. w%C q_permisosQBU Q_PERMISOSIDOLDNEWAAA XRESULTADO TRANSACCIONTTS_IDMENSAJEk Ta(sr q_permisosCC\SSN6CC\SSN6F>CNQFG((codigo ~6&%C q_permisosid> S">CS[F G((cod ~&%C q_permisosid> NG+(sys_logF G((codigo E'TCloguear_cambio_permisosN"CCambio de permisosCJC!Usuario que cambia los permisos: CZ - C CF G((codigo E;CUsuario afectado: CZ - C CF ~F G((codigo EFG((COD_PERMGEC ZG %C4RC Permiso: C Z   -->   Cd ZC Permiso: C Z   -->   C DesconocidodF  C<F ~H  T-BaUTRSACZIDOLDNEWA010592A2BORRARCODIGO Q_PERMISOSBORRAR1CODSYS_LOGUSUARIOS PUB_INDEXOLOGLOGDESCRXUSRPERMISOSCOD_PERMOSEC SEC_TABLE_PUT+TCSecuritysys_security.prg %CPERMISOS rQ \permisos%CUSUARIOS Q \usuariosBUOSEC SEC_TABLE_GETP_SYSTEM%Cborrar)FQGh1\tmp\N CPNQ\tmp\(C>O%C\SKFG((cod_permG ECZG %C4  G5rborrar F& & & %Cborrar1F Q@opermisos  1\tmp\ Q\tmp\  F & & &  ~FG((codigo E %C4}F F FG((permisoF G((descrU XPERMISOSBORRARP_LOCALXBORRARCODIGOPERMISOTIPOZPERMISOSCOD_PERMDESCRBORRAR1CODXBORRAR1 registrar transaccion open_files cargar_permisos 3AA!RRr11B12A12A1B1A2"B1B12A12A1B1ABB2BrqAAqAAC3A42AABBAC31Asasb!A"Asb!ADrr"rrArrba!ArAsuAr3rAAB2qqqAAwqbaQAAArqAArqqAAqAqr2PO n 0G.5JE %zL  T8qKG~(clases C<7TCabmN BUCLASES OPENFILESPOABMSHOWH ges dey_func2"CEquipos\BUGESCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEMETC Collection% > U XNO_INICIARTHIS COLECCION CARGAR_DATOS!CCargando equipos.%CEquipos MQEquiposF ~%C z.#C Cargando: . C+CCarga de Usuarios completa.UTHISMENSAJEEQUIPOSFILTRO_COMPROBARNOMBRE COLL_AGREGARUm$QEQUIPOsys_equipos.prg,TCEquiposys_equipos.prgaCUOOBJ SYS_EQUIPOSPRGTHIS COLECCIONADDKEY> )C(7UXTEXTTHISPADREMENSAJEOEX$BCK_CCZUXCODIGOTHIS COLECCIONS  QEQUIPO sys_equiposTCTUXCODIGOXVIDAOEQ SYS_EQUIPOSTHIS GETBY_CODIGOVIVOXHQ 5BC^ 2QBC^UTHISVIVOBK_CCZUTHISCODIGO'% U XAUTOCARGARTHIS CARGAR_DATOS UXCODIGOFTTTTTTTT  T  T  T  T  TTTUEQUIPOSTHISCODIGOIDUNOMBREINOUT ACTIVIDAD SEALVIDAINICIOSALIDAIPMACUSERWINUSERGESPERMISOSND_MSGCOMANDOS OpenFilesINIT/ Cargar_Datosfiltro_comprobar Coll_AgregarMensaje GetBy_Codigo Vida_Marcar1Eq_ForeColor_Access Key_Access4INITc vida_marcar Cargar_Datos+TEquiposTEquiposThlpTCodigo T- TPTNombreTNombreTNombreT C T T CodigoT CdigoT CodigoTNT abmequiposTcodigoUTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 FORMULARIOIDXCLAVE T- Ta Ta Ta T-       U COLECCIONMOSTRAR_ACTIVOSMOSTRAR_INACTIVOSMOSTRAR_DORMIDOSMOSTRAR_OBSOLETOSQ TTC X T TTTTTT T  T  T  T  T - T T TTC^ T- UCODIGOIDUNOMBREINOUT ACTIVIDAD SEALVIDASEALVIDA_ANTERIORINICIOSALIDAIPMACUSERWINUSERGESPERMISOSND_MSGCOMANDOSKEY EQ_FORECOLORVIVOabmhlpabm2EquiposCUSTOMq EquipoCUSTOMM qq2B2A!AP1qA21ArAAA2A23A2qA2q2QP1!!!A3a2qA2q2qA3EA1111111s11511111a@1% u7>"O#!R'W-D^0(b6 |=0 W ?t D F! YDIkx(1yT h%   iX=q%F/C"No debe haber mdulos abiertos !!!BG(9G~(clasesG+(listados C TTC T C 5 +T CSecuritysys_security.prg T+aC TH*? P T T sys_permisos_usuario(HL ! %T % T ,! L T ?%C0 %CborrarFQ+h1NCQarborraroEQUserQEquiposQ F& %Cborrar1yFQZoEquiposQXBorrarQ QC1 Q F& & FG((EquipoFG((Equipo T sys_permisos_equipos(Hw; ! %T % T ! ; T%d C CBorrar !C Borrar1 !BU" G_MODULOSMENSAJE ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXUSRXBORRARODEYFUNCNEWFILE_LOCAL_TMPXBORRAR1OSEC SEC_TABLE_GETXFORMXMAXFORMOLDUSRXRESSYS_PERMISOS_USUARIOBORRAREQUIPONOMBREEQUEQEQUSEREQUIPOSCODIGOUSUARIOBORRAR1EQASYS_PERMISOS_EQUIPOS REGISTRARSEC_TABLE_CLEAR CHK_DELETED T!trsaca010592% TTtrsacSys_permisos_equipos Asignacin de Permisos de sesin Ta%TC% T T TTtrsacSys_permisos_equipos Asignacin de Permisos de sesin T%>C1Se han asignado los permisos de inicio de sesin. BU AAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJE TaFBrEQUseroBorraraC] T-BaU TRSACEQUSERFORUSUARIOXUSREQUIPOPERMISOIDUBORRAROSEC SEC_TABLE_PUTJ"CEquipos\!CEQUser\BUODEYFUNC CHK_OPENEDP_SYSTEM registrar8 transaccion{ open_filesZ 2AA!r11B12A12A1B1A2rqAArqAArCrr1B12A12A1B1ABB2BB32A2AABBBC3r"r3"B1[ t | h%}EGch=oq 45 TG+(sys_upload_ftp%C\log.dbf0 %0T#El Reporte de Errores no existe !!! 0C#El reporte de errores no existe !!! B%Clog Q\logF%CNR %l0T#Archivo vaco, nada para enviar !!! ,CLog vaco, nada para enviar !!! B 5T\log.*+%C p_log_namebN  !!T log- .zip [0T log- -CC.zipTC % %CLOGFQ%C TMPMONLOGF QF Q\LOG (B 0Q\LOG (>%C TMPMONLOGF %C p_log_diasbNC$ %C+%C p_log_diasbN C$ 3 SQ BUXAUTXOKXMSGSYS_UPLOAD_FTPP_SYSTEMMENSAJELOGXDESTINOXFILES P_LOG_NAME P_FTP_LOGSP_EMPFTP_ENVIAR_ARCHIVOS TMPMONLOGOEXOEX2FORFECHA P_LOG_DIASqAARqAr!QAAsAAqAAqAAqqAAqAAAAAAAA1%4GgK1q+TCSecuritysys_security.prg FQ\locales Tlistados T(  (I%C\data\CCZ\localC000CC ZR.dbf0F 1aaa=1+a' T;Q\data\CCZ\localC000CC ZR%F - \%C El usuario C debe salir del sistema !!!C  Contina ? . ! #!%B!(\tmp\QF<(\data\CCZ\localC000CC ZRF;Q\data\CCZ\localC000CC ZR\tmp\Q \tmp\.dbf%?C2Se ha realizado correctamente la actualizacin !!! 1C$Se ha cancelado la actualizacin !!! CBUOSEC SEC_TABLE_GETP_SYSTEMMASTERXBORRARNEWFILELISTADOSAAAXEMPRESAXUSUARIOA010592A4 MENSAJE_SINOA3P_LOCALMENSAJEABRIR_TABLAS_FIJASTrq1qAAAAAA2AAArABBA2AB1 %ZLdZQq4% G+(dey_func ges CTT T a T a T a% sys_consistencia(  Ta% estadoJTaCC_PQCC #CCFECHA: CCPCC % &TAnalizando FacturacinTTT CT % G'TAnalizando ContabilidadT TT CT T-CC CC_PQ<% %'CVerificacin concluida !!! fTCVerificacin concluida !!! C -Hay comentarios registrados!!! Desea verlos?%.| ShellExecute Shell32.dllBCopen\tmp\rpt_sys_consistencia.txtBUXAUTP_DEVDEY_FUNCGESABRIR_TABLAS_FIJASXDESDELOCALESEJ_001XHASTAEJ_002XCONXCLIXRESSYS_CONSISTENCIAXOPFESTADOOESTADOVISIBLE LOG_AGREGARTEXTOMAXVALUECLIENTES CONTABILIDADMENSAJEXRESP MENSAJE_SINO SHELLEXECUTESHELL32DLLP_LOCAL\4!%C8-C6?9B@z 99.99 QB@z 99BUXDE4TCTC-TCReg. duplicado en tabla:TCTCALTEvTCALTEvTCCONSvTCPRINTvONG*G .G( \tmp\rpt_sys_consistencia.txtG T %?T CP T  CT  C0T  Codigo:C'C '  GG(G %C G(%ONG %ON%G %>G* U XTABLAXCODIGO XENCABEZADO XFULLTEXTO CHK_VALUE OLDALTEON OLDALTETOOLDCONS IMPRESORA_ONP_LOCALXSALIDA TO_STRING4CBUXMSG LOG_AGREGARW%Cdiariog#FQ)Q\C\diariogBUDIARIOGP_SERVERLOCALESCO_011V' T%Ccuentas CQcuentascuenta CCContabilidad: IT9Analizando Contabilidad - Analizando asientos incompletosT CIT9Analizando Contabilidad - Registrando asientos pendientesT  a CF G-( 5T%Analizando Contabilidad - FacturacinT%CCCVENT QccventfechaF G((fechaG(GGF ECGFG +C+  % n > % F G((asiento E  T+C+  %C\STH% F >T%WC      C * : C @z 999,999,999_F H1T!Analizando Contabilidad - ComprasT%CCCCOMP bQcccompfechasubFG((fechasub<G(!  C"i#BA  GGF ECGFG +C+ " % F G((asiento E T+C+  %C\S*TCCd1c6H%}F >T%yvC$ %  C#* C&@z 999,999,999_ : C@z 999,999,999_FH7T'Analizando Contabilidad - Tesorera (1)T%Cclientes QclientesF'G((codcli%CVEN_OPER aQven_operfechaF)G((fechaNG(I L #CRC*a-6a6  GGF ECGFG +C+   %v!T+,C C-ZHK  RnT.RC DT.DE AT.AJ IT.IT XT.EX 2 T.??^T/) . ), ) C) * C)@z 999,999,999_ T0 T1 T2, T3 T4CO T5- T6/+C+ +,C C-Z 3 %0 T5aT667H%5 F) #4/+C+ +,C C-Z >HT% *C/: Parcialmente registrado r%0n%C.RCAJ F G((asiento E0%%C481 9C T+C+ 0 %C\S TH%6 F) #4/+C+ +,C C-Z 1 >HT%~ )C/: Diferencia de importes  F) #4/+C+ +,C C-Z >H jF G((asiento E0 T+C+ 0 O TH%6fF)T:CC+CO6 #4/+C+ +,C C-Z >H%: #6H  #:T%b:C/): Dif Deb/Cre o no encontrado el asiento. F)HF)7T'Analizando Contabilidad - Tesorera (2)T%CPROVEEDO QproveedocodproF;G((codpro%CCOM_OPER qQcom_operfechaF=G((fechaG(L  GGF ECGFG +C+   f%F'T+$,C C>ZC?ZH/ ORT.PA DuT.DE AT.AJ XT.EX 2T.??`T/=$ . =, = C= * C=@z 999,999,999_ T@$ T2, T3 T0 TA$ T4CO T5- T6 TB5+C+ "+$,C C>ZC?Z '%0 T5aTBBT667H%5F= #45+C+ "+$,C C>ZC?Z  >HT%*C/: Parcialmente registrado B%0>%C.PAAJF G((asiento E0 TC T TD+C+ 0 TCC%CBTDD%C\STHF; EA%;ES%6DF= #45+C+ "+$,C C>ZC?Z  >HT%:C/): Dif Deb/Cre o no encontrado el asiento. %6F= #45+C+ "+$,C C>ZC?Z c >HT%:C/): Dif Deb/Cre o no encontrado el asiento. :F G((asiento E0 T+C+ 0 4TH%66F=T:CC+CO6 #45+C+ "+$,C C>ZC?Z  >H%:#6H  #:T%2C/: Dif Deb/Cre. [F=HF=0T Analizando Contabilidad - DiarioTF G((ccvfacFG((comprobF G((fecha#G(GA  C' GGF ECGFG TH TI+C+   V&HG&" JVcd 9C F G((ccvfacE , J%C4 >(TK - No existe el Comprobante2C  8 9 , JKLF  % CTK - Asidia#Asiento. Asidia = CC@z 999,999,999_2C  8 9 , JKLF % JCcd123 9P FG((comprobGE , J 8G %C4 (TK - No existe el Comprobante2C  8 9 , JKLF   TM-4+C+ ! , J 8%$ .% & TMaH%M CTK - Asidia#Asiento. Asidia = CC@z 999,999,999_2C  8 9 , JKLF ! JAR 9C F)% JRG((recibo / G((operTOCC ,Pg EO% JR TM-+C+ O- %R TMa!H  TM-+C+ OQ %A TMa!H%M (TK - No existe el Comprobante2C  8 9 , JKLF   TM-1+C+ OC JR-Q6 %  TMaH%M CTK - Asidia#Asiento. Asidia = CC@z 999,999,999_2C  8 9 , JKLF ! JAO 9P !F=% JOG((opago  G((operTOCC ,Pg EO% JO TM-+C+ O> %O TMa!H  TM-+C+ O? %A TMa!H%M l (TK - No existe el Comprobante2C  8 9 , JKLF  !%  !CTK - Asidia#Asiento. Asidia = CC@z 999,999,999_2C  8 9 , JKLF  JDX$ TR-F)G((comprob% JD!E 8 , J TM-4+C+ ! 8 , J, !% ! TMa!H "GE 8 , JG TM-4+C+ ! 8 , J, "% " TMa!H%M #(TK - No existe el Comprobante2C  8 9 , JKLF %R $F=G((comprob% JD#E 8 , J TMC4 TM-4+C+ ! 8 , J$, #% # TMa!H }$GE 8 , JG TM-4+C+ ! 8 , J$, y$% q$ TMa!H%M $(TK - No existe el Comprobante2C  8 9 , JKLF  JTU%%JT{%"TK - Asiento de Cierre.2C  8 9 , JKL %$TK - Asiento de Apertura.2C  8 9 , JKL 2G&!TK - Tipo desconocido.2C  8 9 , JKLF F HIT9Analizando Contabilidad - Registrando asientos pendientesT  a C% ''CC X Errores: CCZ 4'!CC X Sin erroresCC  BUSXERRORESCUENTASCUENTA USAR_DIARIO LOG_AGREGAROESTADOTEXTOVALUEASIENTOS_DIARIOSCO_AUTDIARIOGCOD_CUECCVENTFECHAASIDIAXDESDEFEC_VENXHASTATOT_VENDEUDACTRLASIENTOACCATRIBUTODEBITOCREDITOP_DEV MENSAJE_ERRORCOD_CLIFAC_VENCAUSACCCOMPFECHASUBPAGOFEC_DGIFEC_COMCOD_PROFAC_COMOPCLIENTESCODCLIVEN_OPERAPLICXCCOMPROBRECIBOXCAUXC1XASIDIAXXCLIXXCOMXXCAUREGMALACC1CAJ_PROCODIGOPROCLIREGGPROVEEDOCODPROCOM_OPEROPAGO OPERACIONXXPROXCODPROXCOUNTZCOUNTACC2CONTADOCCVFACTIPOOLDCMPOLDMSGCAUMSGDIAR_MSGENCOPERXCC SACA_COMA VOPERACIOERRORO4+C,?TCC,[ BUNUM4% TT% ]CC* C 9999,999,999_     :  BU XASIXFECXCODXPCXCOMXCAUXMSGOLDCMPXERRORESP_DEV MENSAJE_ERRORF-C2\S%C4 2#) TFG((asientoG-(&G(  T T T  T  T  T T#)+C+ ~#%   f%;T\T Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_CC X% A%C+  TCO  T%E TT oTc T\>    AUTOCORREGIDO% # #6H 7 TCO  # T  T TT T  T  T  % AUTOCORREGIDOET\T Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_CC X%Ccuentas+|TT Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_ No tiene cuenta vlida.()CC X% AI$> AUTOCORREGIDO x TCO  #)%Ccuentas+ C `TT Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_  Su cuenta  no tiene descripcin.CC X%C\S[#%P CX  WTT Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_ %Sin cdigo de proveedor o no tiene P.CC X%C\ST#%C CX  PTT Asiento : CC @z 999,999_ Saldo : CC@z 999,999,999_ #Sin cdigo de cliente o no tiene C.CC XTTHBU CUENTASATRIBUTO XAUTOCORRCOD_CUEDIARIOGASIENTOXDESDEFECHAXHASTAXTIPOXFECXPASAUTOMDACCCACCXERRORESXMSG LOG_AGREGAR XREGISTROXDEBITOXCREDITOPASEDEBITOCREDITO COMENTARIOREGISTROFORDESCRABREVPROCLICODIGOF T%y%CQT+$TCCCC_VA%%CT+$TCCCC_VA%K%C#T+$TCCCC_VA%%CT+$TCCCC_VA%%CT+$TCCCC_VA%CHT%F E F t>  CV6  !"#$$%%&&' CZ(C])BU*CCVENTXTEMPDESC1FMTDESC2DESC3DESC4DESC5CONDCOBRPLANCCCLIECOD_CLICOMPROBFAC_VENCAUSAFECHAFEC_VENCOMENTARIMPORTEDEUDABBULTOSOPERACIOCALLVENCPLAZOUSS_DEUMOTIVOREFCAUCONDDESCRLISTAFECREFCUOTACUODES_CLIESUCMONEDAIDIDUHOY4%Cejercon :QejerconF-C%C4TC%CdiariogF FQ\\diariog Ta  T- BU XFECHAXOKEJERCONDESDEHASTAEJACTDIRDIARIOGP_SERVER TC Facturacin: 5T%Analizando Facturacin - ComprobantesT%Ctccvent Qtccvent%Ctventas Qtventas%Cnumfac Qnumfac%Cremxfac )Qremxfac%Cven_oper [Qven_oper%Cccvent QccventF G((fecha%Cventas QventasF G((ven_fac%Ccondcobr QcondcobrF G((plan%Cccclie WQccclieFG((comprobF G(GGF ECGFG &+C+   A TF E  )+C+    6TH TFGE   G 4+C+ !    THF :%C?C? 2% r" T-%FG((remito E %C4g F#CC \g%! $%C ? C" !%C? C" .T1T#   C* :  T$a!%C?%% 8C#$Comprobante mal registrado en VENTAS(& T$- *!%C?& C"F H0T Analizando Facturacin - PedidosTF G((pendG((#)+C+ TF G((ped E*+C+ ** YGT+,C-.6C/ 0d 6H TFG((comprobG,EC*@z 9999,999,999_PG F+C+ 3C*@z 9999,999,999_P THFN%C (?C(? { TFT# C*@z 9999,999,999_ P C* :  T$a0%C (?D %% @ 1C# Pedido mal registrado en TVENTAS& w &%C(?s T1%2 %C1 T11+$T11CCC2C23_VA%4O %C1' T11+$T11CCC4C43_VA%5 %C1 T11+$T11CCC5C53_VA%6! %C1 T11+$T11CCC6C63_VA%7 %C1b T11+$T11CCC7C73_VA%C1 T11%F EF>C*@z 9999,999,999_P 81(99:;<=>??@C*@z 9999,999,999_APBCDDEFGHHII--JC*@z 9999,999,999_PCZKC]LFHF G((ccvfacF G((fechaGF G ECG GF TJ+C+  F E  %C4 %J  T=T#      C * : %% 7C##Existe en VENTAS pero no en CCVENT.(&TJ  F HFA& (N \tmp\borrar   P F#)+C+ ,H IF RAF G((comprobE%C4 F VcdrrF E %C4   nF PFTOCCPg EO*%C4  Q F L%C RFSG((asientoTOCCPg EO%C4 _F  TU-+C+ TO "%V WC  TUa!H%U F F 2FFHFG!(%w'CC X Errores: CCZ !CC X Sin erroresCC  BUXXERRORES LOG_AGREGAROESTADOTEXTOVALUETCCVENTTVENTASNUMFACREMXFACVEN_OPERCCVENTFECHAVENTASVEN_FACCONDCOBRPLANCCCLIECOMPROBCTRLXDESDEFEC_VENXHASTAAFAC_VENCAUSATOT_VENBCOD_CLIIMPORTEDEUDAXREMERRREMITOREM_VENCCREMCORREGIR_CCCLIEXIDFIRSTXAUT MENSAJE_ERRORPEND FACTURADOPEDPEDIDO RECEPCIONCOS_LIFOMONEDACOEFICP_DESLINDES_INSXTEMPDESC1FMTDESC2DESC3DESC4DESC5COMENTARBULTOSOPERACIOCALLVENCPLAZOUSS_DEUMOTIVOREFCAUCONDDESCRLISTAFECREFCUOTACUODES_CLIESUCIDIDUHOYCCVFACP_LOCALAAA SACA_COMAFCLOCALIZA_EJERCICIODIARIOGASIENTOXOKCODIGOPROCLIfmt log_agregar mensaje_errorM usar_diario contabilidad saca_coma 3diar_msgf3asientos_diarios4corregir_ccclie>localiza_ejercicio7CclienteszDqB"A"a!1!a2BAq2BA!aqqa"BBABB2qAA21"!!2a1aba1!aaAaabRAQaAQaAaA4qA2qAAA2AqrUqAqbaaaqQAAAbqqAAAAqAAqAqbaaaqAAAaqaACAqAAtqAAqAqbaaa2AAAAAA1AAAqAAA2tRaAAA2qAAAAqAAAsAA2qAABQAAABBBAqAArAuqAqAqbaaa2rAAAAAQ1AAAqQAAA2r1aAQAAArr2qQAAAA2qQAAAAAtAA2qQAAAQAAAAABAqAArAqrrr1baaa!s1!rAa1!rABARsba!rAAaAAA1!qAAAsqAbrAAAAAAAAAAB!qAaAAA1!qAAAsqAarAAAAAAAAAAB!qAa1!qAAARrrAaAAAAaaAaAAAAA!qAArrAaAAAAaaAaAAAAA!qAABSB!!A!A!qAArAAq2qA!2qA22AAB3sqQArb1Q11abAr1ARBQAAABAaAaaqBAA aA1aAA1aAAAAB2qaQ!AAAaQ!AAAaQ!AAAaQ!AAAaQ!AAAQ!ArrQAA2qq1Aq!qAA2R1A1A!A1AAA!Aq!AqAAq!Aqvbaaabq1AAqaaAAArr1rqBAAAAAAAAAAqAAqsRqqAAqaaaAArbAbaQ!AAAaQ!AAAaQ!AAAaQ!AAAaQ!AAAQ!ArrQEAAqAAsrbaaaq1qABqArAAs0qRqqAqqAAq1qAABqaqAABarbqA!AAAAqAAAqAAqAAqAAra3qA!26XZ>q cd< o h  o L MkMMNNZN[Rb]yqbcc%PF;1qP%C:Est seguro de recuperar la versin anterior del sistema ?4 \inst\ges.old( \inst\ges.exemC%Se ha recuperado la versin anterior.C 1Todos deben salir y volver a ingresar al sistema.U MENSAJE_SINOP_SYSTEMMENSAJEAA1%=8Q=Q r G(9 $@TC,Elimina tambin los clientes y proveedores ?3TCElimina tambin los artculos ?J%C4Realmente desea eliminar los datos de esta empresa ? T log_errores,sys_procesando InicializandoestadoJ T -! sys_verificar2< F Qnumrec> Qnumfac Qconsr>Q \user_logS Q\logS!Q \rptparamS"Q\equiposS#Q\log_autS$Q \log_timeS%Q\log_ultS&'(\xchg'\agip'\backup'\log \iibb2*.* \agip2*.* \agips2*.*)sys_procesando,* log_erroresaBU+ ACTIVEFORM DATASESSIONIDXCLIPRO MENSAJE_SINOXART XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORES SP_MENSAJESYS_PROCESANDOESTADOOESTADOVISIBLEELIMINAR_DATOSSYS_VERIFICAR2NUMRECNUMEROALLNUMFACCONSCOB_OPERCHEQUEOPOPAGOORDENNRETIB NRIB_BA_E NRIB_CABANRIB_ERNRETIVANRETGANP_SYSTEMUSER_LOGLOGRPTPARAMEQUIPOSLOG_AUTLOG_TIMELOG_ULTVACIAR_CARPETAP_SERVERSP_OCULTAR_DEFINITIVAMENTELOG_ERRORES_MOSTRARy $\*.* n@ log_erroresNo se pudo vaciar BUXCARPETALOG_ERRORES_INSERTAR LOG_ERRORESP_CODEMPvaciar_carpetaA2S"rQ-2rrreaQBB4q1BB10I m%,jf,U/rk 4 %G(9 /%Cclientes aQclientes%Cccclie Qccclie%Cidx04 Qidx04%CborrarFQG+(sys_log.T Cloguear_mantenimiento_clientesNoccclie C Q CC  6QCC 8CCZCZ  6 6QP borrar)CMantenimiento de Clientes C  TTP T+~Ca  6"C clientescodcliC  - : Completa vs Pendiente: C  Z& Pendiente vs Sumatoria Parciales: C Z w)Mantenimiento automtico CC de clientes: C sys_mant_ccc.prgFG(( referenciaT  ge01FFQ< % B=C0El mantenimiento de clientes se ha realizado !!!""BMantenimiento de clientesU#XAUTXALL ACTIVEFORM DATASESSIONIDCLIENTESCCCLIEIDX04BORRARSYS_LOGOLOGCOD_CLIIMPORTECOMPLETACANCEL PENDIENTECOMPROBCAUSACUOTAREFCAUCUOADELANTOPARCIALLOGXTIPOXPENDXMONEDANOMBREUSER_LOG PUB_INDEX REFERENCIAXCOD_CLIREPAIRGE01MENSAJEAAA!ArArqAA #rr1RrArArA!1%L,f,UQr 4 %G(9 /%Cccprov ]Qccprov%Cproveedo Qproveedo%Cidx04 Qidx04%CborrarFQG+(sys_log1T C!loguear_mantenimiento_proveedoresNoccprov C Q CC  6QCC DCCZCZCZCZ  6 6QP borrar,CMantenimiento de Proveedores C  TTP T+~Ca  6"C proveedocodproC - : Completa vs Pendiente: C  Z& Pendiente vs Sumatoria Parciales: C Z z !,Mantenimiento automtico CC de proveedores: C sys_mant_ccp.prgFG(( referenciaT# $ge02FFQ< % Z@C3El mantenimiento de proveedores se ha realizado !!!&%BMantenimiento de proveedoresU'XAUTXALL ACTIVEFORM DATASESSIONIDCCPROVPROVEEDOIDX04BORRARSYS_LOGOLOGCOD_PROIMPORTECOMPLETACANCEL PENDIENTECOMPROBCAUSACUOTAOPREFCAUCUOOPRADELANTOPARCIALLOGXTIPOXPENDXMONEDACLIENTESCOD_CLINOMBREUSER_LOG PUB_INDEX REFERENCIAXCOD_PROREPAIRGE02MENSAJEA!AAArArqAAJ "r1RrArArAQ1%VSsrj%2D( \globals.ges _#D( \globals.gesp_* %D( \globals.ges%D( \globals_.ges #D( \globals.gesp_*,D( \globals_.gesp_*(c;CError al copiar al AGES !!!C C UXALLP_SYSTEM P_AGES_PATHP_EMPOEXMENSAJEMESSAGEq1AQ1AA1%$eLr%B  Ta"TCCt Atencin67C Inicio anticipos_pendientes_task<TC(Obteniendo anticipos pendientes de cobro T T T H F 2F/ ve_sql_facturas_a_cobrarH[N  TC No hay datos !TCError: C 2NTCOk%TCEnviando por mail T sys_mail_alertas Anticipos pendientes de cobroBSe adjunta reporte de facturas pendientes de anticipos de ms de (CCZ das de atraso).\xchg\anticipos_pendientes.pdf%C&TCEnviado a la cola. J!TCError: CC2CFin ve_alerta_entregas_taskBU P_NOTIFICAR_ANTICIPOS_PENDIENTESXSOLOLOG XMSGTITULOMENSAJE XID_LOG_AUT1LOG_AUTXERRXMSGXDIASANTICIPOS_PENDIENTESVE_SQL_FACTURAS_A_COBRARSEND_EMAIL_ALERTASSYS_MAIL_ALERTAS'P_NOTIFICAR_ANTICIPOS_PENDIENTES_MAILTOP_SERVER1AA!rBA1aR3 aAA"B1%4OtMr%CxVerbosebN: T% C a Ta Ta( c:\sistema\system\data\1\ges.dbc TT SCH T &T guillermo@solinges.com.ar% S?C(Salgo porque p_notificar_cpbt_pend_ent=0  B  Ta"T CCt Atencin6QC:Inicio ve_comprobantes_pendientes_de_entrega_o_retiro_task  ATC-Obteniendo comprobantes pendientes de entrega T T8T+Comprobantes Pendientes de Entrega o RetiroH 27ve_sql_facturas_a_cobrarHu  TC No hay datos B!TCError: C 2uTCOk%TCEnviando por mail T{sys_mail_alertas  Se adjunta reporte de faltantes.\xchg\C .pdf.xls6%CF&TCEnviado a la cola. q!TCError: CCNC7Fin ve_comprobantes_pendientes_de_entrega_o_retiro_task  UXPRUEBAXVERBOSEXSOLOPDFSETS DEY_FUNC2P_DEV P_SUSPENDCP_DOSP_EMPP_NOTIFICAR_CPBT_PEND_ENT P_NOTIFICAR_CPBT_PEND_ENT_MAILTOMENSAJE XMSGTITULOXSOLOLOG XID_LOG_AUT1LOG_AUTXERRXMSGXARCHIVO$EXPORTAR_CPBTS_PENDIENTES_DE_ENTREGAVE_SQL_FACTURAS_A_COBRARSEND_EMAIL_ALERTASSYS_MAIL_ALERTASP_SERVERAAQaA2AA!vBA1aRaAA1%`lTQs %Tc:\sistema\2000 TC C aTCSQTBORRAR1 Ta T a4,c:\sistema\systems\system_ind\DATA\1\ges.DBC  T "T C Ct Atencin6*CInicio Ct  0TCCONSQLsys_clases_Conexion.PRG CC%C ges_sistemas.CUSED GES_SISTEMAS  C0CScan Backup_Estados  F ~$CInsert  TCges.Sistemas_EstadoSistema=CSistemaC Backup_Fecha Backup_Size Backup_EstadoF+CScan Terminado  %CBackup_Estados%lF#)&task_controlar_ultimos_backups0CUsed Backup_Estados  % F    :C#No se pudo comparar los backups !!!  mRC;No se pudo acceder a la tabla ges_sistemas del servidor !!! 'CFin Ct  BUXAUTXDEVP_LOCALBBBSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCXSOLOLOG XMSGTITULOMENSAJEOSQLCONECTAROBTENER_GES_SISTEMASCHEQUEAR_BACKUPSBACKUP_ESTADOSXOKSQLINSERTUPDATESQLTQEMP FECHAHORATAMANIOCOLORTASK_CONTROLAR_ULTIMOS_BACKUPS %CC Suspendo?a TF ~rTC ges.SistemasSISTEMA=C SISTEMAC nombreC [backup]C  +CNo se pudo conectar !!! BUOSQLXAUTCREAR_TABLA_EMPRESASCONECTARSYS_MOSTRAR_SCREENXIDBORRAR_EMPRESASXOKSQLINSERTUPDATESQLTQEMPCLIENTEBACKUPMENSAJERG+(listadosG~(clasesG+(internet5 Tftp.solinges.com.ar#T/monitor/datos/cobian/T guillermoTJimmyhendrix1991 T  T  T   log_errores TC T T T T T T T TF T TT A T T A T T AT.T  TT @TT %Cq2iF!Q%Cq2F"Q%CqF#Q%CborrarF$QT%C&']h1%(Cd)N*N+T,CQ%$T-CwwFTPN4CIntentando conectar FTP .#%C-/J0 $)C obteniendo  . T1C0/*.*-2(3S!CError 34.5CObtuvo el Directorio FTP .%1F$ 0>,CC(=f5oborrar,C+),qVoborrarq#,$+$)$+#6$,#, q2o ges_sistemasXq2 78!,C!,78Q,C+CQ+C!) Q)79 Q:q1 ~H C+  >: +C$  / >: +C$ R >: +C$ u >: +C$  >: +C$  >:0oq1:+,Backup_Estados FICNo encontr datos. Host:/public_html/pedidos/.  T<-+CNo se pudo conectar !!!. C-=<-<>%CborrarF$Q%Cq1F"Q%Cq2F!Q8CTermin la comprobacin !!! .BU?XAUTLISTADOSCLASESINTERNETWWCLIENTD_HOSTD_FTPDIRD_USRD_PWD D_HTTPBASEXARCHIVO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORES XFECHAHORAINTERNET_OPTION_CONNECT_TIMEOUTINTERNET_OPTION_CONNECT_RETRIESINTERNET_OPTION_SEND_TIMEOUTINTERNET_OPTION_RECEIVE_TIMEOUT!INTERNET_OPTION_DATA_SEND_TIMEOUT$INTERNET_OPTION_DATA_RECEIVE_TIMEOUTINTERNET_OPTION_LISTEN_TIMEOUT INTERNET_OPTION_DISABLE_AUTODIALINTERNET_SERVICE_FTPINTERNET_DEFAULT_FTP_PORTINTERNET_FLAG_RELOADFILE_ATTRIBUTE_NORMALERROR_INTERNET_EXTENDED_ERRORFTP_CONNECT_PASSIVEFTP_TRANSFER_TYPE_BINARY GENERIC_WRITEFORMAT_MESSAGE_FROM_HMODULEFORMAT_MESSAGE_FROM_SYSTEMQ2Q1QBORRARXBORRARODEYFUNCNEWFILE_LOCAL_TMPARCHIVOTAMANION FECHAHORAEMPOFTPMENSAJE FTPCONNECTLAFILESLNRESULTAFTPDIROEXMESSAGEALL MAX_FECHAHORA GES_SISTEMASSISTEMABACKUPCOLORBACKUP_ESTADOSXSUBIRFTPCLOSEON8rborrar_empresasBUXEMPXCLIENTEXBACKUPEMPCLIENTEBACKUP *C Iniciando Ct %9Cselect * from ges.sistemas ges_sistemas 'CNo se pudo conectar+C Terminando Ct BUXAUTOSQLMENSAJE CONECTADOEJECUTAR%Rh1\tmp\borrar_empresasCC2CCAGHAghSI'CARIAries ComercialSICAROAronovaSI!CBEL Bel GiocoSICCALCalarcSICCAMCaliserSICCLECleanerSICCOMComaSICCOPCopelsaSICD60Dm60SICDALDaluzSICDEXDexelSI!CDLC DellacasaSICDRUDruckSI'CEPSQumica EpsilonSI CESEEsenciarSICESTPrebbleSICFATFtimaSICFEIFeijooSI'CFREFreddo/RomarmaxSI#CFRL Frozen LakeSICGMFGmfSICHEBHebosSI#CIEC IecologicasSICIFMIFMSICINDInduartSI*CINTInteger PraestatioSI%CLEA Leandro CadauSICLEBLebluSICLECLecarSI+CLIBLbreras del PilarSICMAIMaigalSICMAXMaximiaSICMCLMerclinSI"CMER MercoplateSICNUVNuvaSI,CPLAPlsticos ExclusivosSI$CROS Rosa e HijasSICSAMSamsonSI"CSAR SarqumicaSI CSCHSchilligSI CSEGSegucuerSI&CSIDMarina SiddersSI*CSMTSan Marcos TradingSICSRISri SriSICSTAStaplerSICTBCCarvitoSI!CTEC TecnopintSICTROTromarSI"CUNI Union GoodSICVILViliSICVINOlidenSICZARZarSICZETZetaSIBUP_LOCALEMPCLIENTEBACKUPAGREGAR_EMPRESAB''UXTEXTOB'C'UXTEXTOB'C'UXFECHAcrear_ges_sistemaschequear_backupsagregar_empresaobtener_ges_sistemasCrear_tabla_empresas SQLQ}SQLTQSQLDTOSBQ2ABB!%rA qAqQbBqAA"BrA2s4|q(AAC2q""`q21aQQQ2qAA1qAA!qAAqqAARB25AR2rQRaAaaaaaAABBrrrqAA1qAA1qAAA2A4"qAB3&qqq11Q!A!a!A3q22qR3qQ24$ fB nELR(^c(((()?)%:cluTs %E a CTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcT XXXT C $T C $ T  T T SCH T(Tguillermo.negrete@gmail.com T%`B T  Ta"TCCt Atencin65CInicio ve_alerta_entregas_taskDTCObteniendo pedidos a vencer en CCZ das  T TH_ 2(ve_sql_pedidos_v2H  TC No hay datos !TCError: C 2TCOk%TCEnviando por mail Tsys_mailPedidos a entregar por venceraSe adjunta reporte de pedidos pendientes a entregar cuya fecha de entrega est prxima a vencer (CCZ das).\xchg\alerta_entrega.pdf%Cq&TCEnviado a la cola. !TCError: CC2CFin ve_alerta_entregas_taskBUXPRUEBA XEMP_PART DEY_FUNC2SETSCL_ATRCL_NOMP_DEV P_SUSPENDCXEMPRESAXDFECXHFECP_DOSP_EMPP_NOTIFICAR_ENTREGASP_NOTIFICAR_ENTREGAS_MAILTOP_MAIL_SEND_TIPOXDIASXSOLOLOG XMSGTITULOMENSAJE XID_LOG_AUT1LOG_AUTXERRXMSGEXPORTAR_ALERTAS_ENTREGAVE_SQL_PEDIDOS_V2 EMAIL_SENDSYS_MAILP_SERVERAQ3AaaB2AAr!RBCA1aR aAA"B1%vBLs^% Usys_unico_form GG(9 Q TCXT SUPERUSUARIO'TCCS QNCSQ=G+(listadosG+(listadosG+(dey_funcG~(clases' pr_puesto_produccion_1%CoDeyFuncbOH  a"T \tmp\CC]R ve_armado "T\tmp\CC]R ve_armado%CtempcompFQ%Carm_tmp FQ"T\tmp\CC]RFQtempcomp (Qi1arm_tmpCF&  Ta0ve_armado_data(aaaa I(CE-%CCC sys_unico_formAC! SBU"XDEVSYS_UNICO_FORM ACTIVEFORM DATASESSIONIDCL_AVECL_NOMCL_ATRLISTADOSDEY_FUNCCLASES OPEN_FILESPR_PUESTO_PRODUCCION_1 DEY_FUNC2XTMP_LOGP_LOCALCREAR_TABLA_PARA_LOG VE_ARMADO XTMP_LOTESCREAR_TABLA_PARA_LOTESTEMPCOMPARM_TMP XTEMPCOMPLOTECOD_INSATRBULCODIGOXRESVE_ARMADO_DATAZFORMSCOUNTNAMERELEASE%CbienesCbultosCatributoCstockCstkxdepCdespachoCform_estCproducciCprod_estBUXX CHK_OPENED open_filesuaAqA"!!rA&$qAAqAA$ra!AAAN3q211Q!AQQQQAB14g%,)-*TbUt""%CxMSGbC F T75      T  T- Ta CF#) T T  T T T  T T-T .C   C  estadoJ/CVerificando configuracinTCwwZip%CoZipbO^ C$TError al crear oZIP% +C TCC B$CVerificando destinos TC !G(% 8 C/T - Error al comprobar destinos% C TCC B T%   sys_backupJ#($ %$  CB-12ESCxCancelado=.T."C&{2ESCC'CC/%()   jC .zip *FQ CF#) H%C+ TTC "a % C BU+ XAUTOMATICOXMSG XREGISTROXRETURNXLOOPOESTADOXOKXFECHAXDESTINO XDESTINO2ACC XMANTENERXAUTXORIGENXHEAD XCANCELADO XERRORGENERALXDESTINO_UNICO OPEN_FILESBACK_CFG XDESTINO3XEMPMANTENEROBTENER_DESTINOSLIMPIEZA_TEMPORALESESTADO SET_AND_SHOWWWCLIENTOZIPLIMPIEZAMENSAJEINFORMAR_BACKUPAVANCECOMPROBAR_DESTINO SYS_BACKUPOBACKUPXRESESCBACKUPCLEANUPP_BACKUP_UPLOADP_BACKUP_UPLOAD_UNICOFTP_ENVIAR_BACKUP` TCCTMP-*.* Aut-TMP-*.*UXAUT XDESTINO1 XDESTINO2XDIR1XDIR2 TCC =TCC@-data-????-??-??-??-??-aut.zipC#(C C3CC-PDFs.CCU XAUT XDESTINO1 XDESTINO2XHEADXDIR1XDIR2AXDIRXNCNIT XMANTENER'%C xRegistrobNS T T F #) H%TC T  T TTCf: 'T CCC  6TC 6TC% %TC TMP-Data-TC@-data- )TC AUT-TMP-Data-%TC@-data--AUT T%GTTEST-T-TESTTC %C0{ UXAUT XDESTINO1 XDESTINO2 XDESTINO3XORIGENXHEAD XREGISTROXMSGXDESTINO_UNICOXDIRBACK_CFGORIGENBAK_HEADP_SYSTEMP_EMPLONGA83 DESTINO_ADESTINO DESTINO_A2XFECHAOBTENER_STRING_FECHAODEYFUNCGET_PATH P_BACKUP_TESTS%CoEstadobO+T- T- T- <UOESTADOVISIBLEOZIPzTCC$C^VTC=-C\-C\-C \-C \ BUXFECHA4+|GetShortPathNameKernel32TCXTC>TC%BC= BULCLONGPATHNAMEGETSHORTPATHNAMEKERNEL32LCRETVALLNLENLNRETVAL%CxNombrebC@ T q'TCCCCC TC %C B ?C Error al zipear CCZ:  BU XMASKXRECURSEXNOMBRE XDESTINOZIPXDESTINO XRESULTADOOZIPZIPFILESUSER_LOG PUB_INDEXCa%6 BBC Archivando CCZ de CC Z C Ca%(TC\*.\CC Z\*.BC U XMASKXRECURSEXEMPODEYFUNCDEVENTS XCANCELADOOESTADOAVANCEVALUEMAXREFRESHP_CODEMPZIPFILES Ca%2 BBC Archivando CCZ de CCZ C CaBC-PDFs U XMASKXRECURSEODEYFUNCDEVENTS XCANCELADOOESTADOAVANCEVALUEMAXREFRESHZIPFILES %$ BBC Archivando CCZ de CCZTC%C B T"T CC*.dbf- %C  FSC Error al zipearCC Z: C\*.dbf B"T CC*.cdx- %C  SC Error al zipearCC Z: C\*.cdx B"T CC*.fpt- %C  zSC Error al zipearCC Z: C\*.fpt B BU XPATRONXORIGEN XCANCELADOOESTADOAVANCEVALUEMAXFILTRO_ARCHIVOSACC XRESULTADOZIPFILESUSER_LOG PUB_INDEXTCfTCH6 IIBBTB-( CC=IIBB20AGIP20B- CC=AGIPS20B- CC=IIBBBa 2BaUXFILE=%Cback_cfg 6Q \back_cfgUP_SYSTEMTC  yG(CC borrar.txtG(CC borrar.txt Ta(% AC&No se encuentra la carpeta de destino C !!! T- BUXDESTINOXOKOEXXAUTMENSAJEHCC CBUXHEADLIMPIEZA_TEMPORALESXAUTXDESTINO XDESTINO2LIMPIEZA_BACKUPS_VIEJOSLIMPIEZA |;TC Estado_SQLsys_clases_actualizaciones.prgC UXAUTXFECHA XRESULTADOXMSGOSQLENVIAR_BACKUP_REALIZADOZ T&CError al enviar el backup%T.C TC.C%     %C6$TArchivo enviado via FTPTC C U XARCHIVOXAUTXMSGXENCAXARCHIVO_DESTINOXMSGTSYS_MP_BACKUP_UPLOAD_UNICOXDESTINO_UNICO P_FTP_EXTERNOSYS_UPLOAD_FTPP_FTP_DATOS_DIRSYS_UPLOAD_FTP_EXTERNOv -CBackup: Comienzo T  T C C *.dbf1CRealizando backupC  ICInicio: CC ZC Cancelado6%^(C !T  CC Ca%!KC Triplete: CC ZC Cancelado6!T  C ges.cfg-T  C *.pfx-(T  C data\*.dbfa(T  C data\*.dbca(T  C data\*.dcta(T  C data\*.dcxa(T  C data\*.cdxa(T  C data\*.fpta(T  C data\*.frxa(T  C data\*.frta .CBackup: Modo TestHCFinal: CC ZC Cancelado6(T  C data\*.prga(T  C data\*.gifa(T  C data\*.jpga(T  C data\*.gesa%FCPDF: CC ZC Cancelado6(T  C data\*.pdfaICBackup: CC ZC Cancelado6%  , +CGuardando archivo de backup 8CGuardando archivo de backup T- TC compatiblevGA TC.zip @SET COMPATIBLE &xSetComp J  %CC.zip(bT!Error: No hay espacio disponible(CC  999,999,999.99_ MB) C Ta EC Renombrando .zip -> .zip!=.zip(.zip%+= -PDFs.zip( -PDFs.zip3CRenombrado completo...(BTError: C Ta%3T" No se pudo realizar el backup !!!C T ( &C Sin Error%C 6 U <C Copiando 3: .zip ->.zip(( 2 % :TBackup realizadoC  - ERR26  ?TBackup TEST realizadoC  - ERR26C C! T%  $ C!% :TBackup realizadoC  - ERR26  ?TBackup TEST realizadoC  - ERR26C T   % 2T!No se pudo realizar el backup !!!C T  ,TCancelado por el usuario!!!C T("b ;TError al realizar el backup: C " T T#U$ XAUTOMATICOXMSG XREGISTROXRETURNXLOOPXEMPXERRORUSER_LOG PUB_INDEXACCAXDIRXORIGENOESTADO SET_AND_SHOW XCANCELADO P_BACKUP_TESTNITTRIPLEODEYFUNCDEVENTSUNICO P_BACKUP_PDFSPDFAVANCEXERROR2XSETCOMPXFSIZEXDESTINO XDESTINO2 OBACKUPERRORMESSAGE XDESTINO3OEXDLIMPIEZAOEX XERRORGENERALlimpieza_temporales"limpieza_backups_viejosobtener_destinos limpieza obtener_string_fecha longa83 zipfilesnUNICOPDFEtriple]filtro_archivosk open_files`comprobar_destinocleanupInformar_Backup{ftp_enviar_backupObackup]q!AqqQa2qSBAAA"bABqAA"AqAqQ1AA71b4122q1A3qAqrQ2!ArQQA2aaAAA6A3qb2q1A2qqArA3A!A"4A!3A"RAr"1A!1A"1A2qqqqqqqA3A3qaAA3qaA21qA31qqa2A2AAA3q1AAAA2aAaqA!Q1A1AA2c!2AAA2AAA!BAB1R X G co >p$G3sZ!`5!!t !"{"n%&%S8%S9inT#t%Cback_cfg ;Q \back_cfgF%CN&CBackup no configurado !!!QB- #)$TCC\*.zip%.C!No hay backups para recuperar !!! TCXTCX sys_restore( % T CFQ%ZCMNo se puede actualizar la carpeta del sistema, debe utilizar otra carpeta !!! C \C  gesBU P_SYSTEMBACK_CFGMENSAJE XMAX_BACKUPS ARR_BACKUPSDESTINOXFILEXDESTINO SYS_RESTOREXRESXDEST RESTAURARGESe 4CTCwwZipNC*.*FQ \empresas ~OCCcpbtCoutCxchgCpdfsF+Q\data\CCZ\ejercon ~GCC QQ<BU XBACKUPXDESTINOELIMINARWWCLIENTOZIP UNZIPFILESUDIREMPRESASCODIGOEJERCONDIRy 4gC\data\CCZCC\6CCZCC\6\*.*BUXEMPXPATHO UNZIPFILESXBACKUPXDESTINO4 C\*.*D(C=%C....DCCC... C\C\C  \C 9%CCCf TOOLBARS.DBF TOOLBARS.FPT@ 6CNo se puede eliminar C !!!BUXDESTINOAAAZELIMINARMENSAJE restaurarudireliminarBUAr!aAqQBB2q"rA2FBAB3trRq2qaqqABBBsC2rB4qraAAAAB1!!:;:Kj>$G s%v 6-FBCt$Tc:\sistema\2000-estable+Tc:\sistema\2000-estable\system2T%c:\sistema\2000-estable\system\data\1 %Cback_cfg Q \back_cfgF#)<G(TC*.zip G(%C tmp_backups5F QTC]Fh1\tmp\ C D NQ\tmp\ ([r tmp_backups   CCCC  T& FQsys_backup_controlF Q\tmp\.*BUP_LOCALP_SYSTEMP_SERVERZXARCHBACK_CFGARR_DIRDESTINOXMAX TMP_BACKUPSARCHIVOFECHATAMANIOSYS_BACKUP_CONTROLA!AqQrqAAgBrArAD1% A |I EzGqt%CUsuarios 6Q \usuarios%CUser_Log pQ \User_Logsys_analizador_usuarioUP_SYSTEMSYS_ANALIZADOR_USUARIOT .t. %C Ci  k2T! and between(fecha, xdfec, xhfec)%C T and %C #T and id=[] BUXFILTROXDFECXHFECXUSUARIOXID)sys_procesando ProcesandoTC>%CTMPIG1aQselect ul.id, min(ul.tip) as tip, ul.fecha, nvl(ur.descr, padr("DESCONOCIDO",39)) as nombre, ul.msg, ul.usr, ul.emp, ul.equipo_id, ul.sesion_id, ul.comprob, ul.causa, space(4) as txcpbt, space(10) as resultado, space(xlenmsg) as res_msg, 000 as res_tip from user_log ul left outer join usuarios ur on ur.codigo=ul.usr group by ul.id order by ul.sesion_id where not empty(ul.id) and ul.tip>0 and &xfiltro into cursor tmpig1 readwrite i1tmpig1MFG((idtipF ~FE C Z%C4 ^J F _J % E CZ%Cuser_log4)> OK  E CZ%Cuser_log4},> Error   > F ^J C F _J Fsys_procesandoUXFILTRO SP_MENSAJESYS_PROCESANDOXLENMSGUSER_LOGMSGTMPIG1TXTAFIDTIPIDTIPOOBJ RESULTADORES_MSGRES_TIPTRADUCIR_MENSAJESP_OCULTAR_DEFINITIVAMENTETC3TCComienzo de transaccin..TCFin de transaccin.3TCComienzo de transaccin..TCFin de transaccin.7%Rollback a pedido OK V+TC Rollback a pedido.TCanc%CCTUOOBJTXCPBTCAUSA_ABREVTXTCAUSAMSGRES_MSG RESULTADOZ TH,J VSTFC dzTND cTNC CTFCP eTNDP 2TNCP PATPED NhTOC rTREM DTDEP XTEXT p TPROD O0TCP RXTREC ATAJC aTAJP iTIMP STPRES H"TDESP LJTASI BUXCAUSAXTEXTO crear_filtroseleccionar_datostraducir_mensajecausa_abrevtxttAA3q!!A!A!1A3q"qArrqQqAdaaAAAsrBr5qr22qAAA3qpqA1A1A1AAAAAAAAA1AABAAAAQA1AAAAAAAABQAQAAA2 *P>x eL px ( @@ @@ ``````@ ```````@`@`@`````@@` @` ` ` ` `@@@@``@@````@ @Ш@Xxиp8@hXX```؀ȘxPX((8Hphhxx0`h8H((@@@HHHH`XhpXPXhhhhpxxȐp 8((8@HX@HX0pHxpx0P`x8P h 0h h `(8x(x((((((hH0000`H8PX8ؘ88PX@X`@@@H@@@`HHpPHhXH hHؘH@HHHhHHHHPH@HHHHPPHXPhXPpXPxXPhpPPP0PX@PXXXXXXXP`Xp`XphXxXXXXXXXX`x``````Ph`h`p```И``h``@`hHhhhhhhhhphxhhhhhppppxpxppPppxppp `xpxLycj P񝢧ssgghZKPtwVƹwxiP`tUV|(vUwOIxk vUV~h>K<|~U&~V`yOOkjiYg`zjjPh~ǪgkOjIIIIPgKkIOYYYIgjkP jIYYYk#RRL OIeeeei&RRRRRRYIe{{j#SSSSSo}}Y[Rppp]]pp}Yeɽkp]MM^^M]aaab}chP]^]l]bbbuue ȁy #WWWW݋AʯcK dd}l]oi dNNNNNNl^Kj&&NXXfffXlTMAhPiYXffgTTTm]AրKji}XfEQnTTTMo ji}fZF\lJMSAhKg&nq\QnmmTMS[ZI&Qq*JJJJ^A KKkZhgq\nQnmTlPP[LjihlqqJJJnTl*qqF\nQTZ\qqqqq\l&qK ???????%[.qeWWt]TCclientes(TCproveedo(TCventas(TCmovstock(TCstock(TCcompras( Sys_lockear_test.SCX(% B%C Q%C Q%C 9Q%C ^Q%C Q%C QTCclientesTCproveedoTCventasTCmovstockTCstockTCcompras T  T aD trsac CCCCCC% R T < trsac Sys_lockear_test Prueba Locks!CTablas bloqueadas !!!x T <trsac Sys_lockear_test Prueba LocksBUXXX1XXX2XXX3XXX4XXX5XXX6SYS_LOCKEAR_TESTSCXXRESAAA XRESULTADOLOCK_GTRSACBEG_TRANEND_TRANqAA"A!A!A!A!A!ArqQqAaH2BC1%](Wt G(9 $G+(listadosG~(clases%Cacuerdos xQacuerdos%Catr_genl Qatr_genl%Cuser_log Q \user_logF#(\test_transacciones!Q\test_transacciones T"sys_test_transacciones( %  T  T CT  < T+ E%C G3sys_procesando Procesando: CCZR CT T Csys_procesando% GC"El testeo de transacciones arroj CC Z errores !!! =C0El testeo de transacciones no arroj errores !!!BU ACTIVEFORM DATASESSIONIDLISTADOSCLASESACUERDOSATR_GENLP_SYSTEMUSER_LOGXMINUTOSSYS_TEST_TRANSACCIONESXRESXERRORESXSECONDS XMAXSECONDSXACC SP_MENSAJESYS_PROCESANDO REGISTRARSP_OCULTAR_DEFINITIVAMENTEMENSAJE: Ta T0trsacacuerdosatr_genl% TAtrsac no loguearTesteo de Transacciones%TCT% T T /TAtrsac no loguearTesteo de Transacciones T F testeo F testeo  F Qacuerdos3Q  %F Qatr_genl3Q /BUTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONXERRORESEND_TRANTTS_IDACUERDOSFORDESCRATR_GENLCOD_INS=racuerdosCCCNZtesteoC]F >testeoC]Brtest_transaccionesCtesteo-[ T- BU CODIGODESCRIDUATR_GENLCOD_INSFECHACOMPROBCAUSATRSAC registrar/ transaccionA"AAAAAr1!RB4BB2qABC2222AABrArAqAAAqAAAB3rQ"D1+]KT0 %- G4Wu T T T T T T- Ta TaU P_IN_SCAN_CODXPARAMID XPARAMCAU XTIPO_ARMADO XPOR_COMANDO XCON_PALLETXLOGIN_FORZADO VE_ARMADO1% ^0 AND (stk.disp2=0 OR stk.acomprar>-stk.disp2) ORDER BY es.codigo, stk.codigo INTO TABLE (xborrar2) Q+INSERT INTO cB2 SELECT -stk.disp2 AS acomprar, bi.mincompra, stk.codigo, stk.bul, stk.atr, bi.codalt1, NVL(spf.sales_price*(100-es.dto)/100,0000000.0000) AS precio, -stk.disp2*(NVL(spf.sales_price*(100-es.dto)/100,0000000.0000)) AS acomptotal, NVL(spf.sales_price,0000000.0000) AS fob, NVL(tV.Cos_Lifo,0000000.0000) AS venta, NVL(tC.cod_cli, SPACE(6)) AS cod_cli, NVL(cl.Nombre, PADR("Para Pedidos",60)) AS cliente, nvl(tC.REF,space(20)) AS noc, bi.espec, NVL(es.DESCR,SPACE(60)) AS es_descr, bi.linea, nvl(tV.recepcion-tV.Recep2,000000000.00) as PendCant, tV.Fec_Ven as Ped_Fec, tC.Pedido FROM TMPSCHEX stk LEFT OUTER JOIN bienes bi ON bi.cod_ins=stk.codigo LEFT OUTER JOIN codespec es ON es.codigo=bi.espec LEFT OUTER JOIN stockpf spf ON getcodart(spf.item_code)=bi.cod_ins LEFT OUTER JOIN tventas tV ON tV.cod_ins=bi.cod_ins LEFT OUTER JOIN tccvent tC ON tC.pedido=tV.pedido LEFT OUTER JOIN clientes cl ON cl.cod_cli=tC.cod_cli WHERE &xFiltro AND stk.acomprar>0 AND bi.linea=9 AND -stk.disp2>0 AND tC.est_desp<=1 AND NOT tC.fc ORDER BY es.codigo, stk.codigo F& C< T~V % T T% " >.TCF >T &  .(!\TMP\rpt_articulos_a_importarQC.*" G(SCH%CTMPSCHEX FQBU#XTABLAEJECUTAR_CONSULTA2SQL_RPTINVENTARIOACTUALXDBIEXHBIETMPSCHEXCOD_INSBULATRFOBCONVERTMPFOBP_SERVERSCHXBORRAR2ODEYFUNCNEWFILE_LOCAL_TMPCB2XFILTROXDLINXHLINCODIGOPED_FECPEDIDOSXOLDARTPEDIDOXINICANTACOMPRAR XACOMPRARPENDCANTFORESPECFULLP_LOCAL CHK_DELETED'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPT###,###,##0.00TaTReporte CompletoTIMPT C T ReporteT Completo T a CT espec+codigoCespecEspecCes_descrDescrCacomprarCant.CcodigoN Parte#Ccodalt1 Modelo (FA)CPrecioPrecio C acomptotalTotalCfobFOBCVentaVentaCClienteClienteCNOCN OCCLineaLineaC UXPAR1XPAR2XFOR1XEXPXFOR NUM_FORMAT FONT_BOLDXREPORTE_COMPLETO EX_TITULOEX_ARCHIVO_ENTRADAXBORRAR2EX_ARCHIVO_SALIDAEX_TITULO_HOJAEX_ANEXAR_LIMPIAEX_XLS_CAMPOS_AGREGAREX_XLS_CAMPOS_ORDENPARAMETROS_COLLADDEXPORTAR_XLS_COLLC%C=0) BH>. C=C0QnTC\ C=C0QTC\ C=C0QTC\ C=C0QTC\ C=C0Q.TC\BCUXBIE[ dey_func2CcodespecCbienesClineasUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDExportacion_vieja} getcodart{ Open_Filesq5qAA2"qsAqAAaQAaqA4`BrQqA1A1AA"A"AaQqAAB2q!Qa1qJA2qA!!!!!A2Aaa1:`rY"kn% > @ Wyn4uG+(listadosG+( dey_filtersT .t. 6TCcod_cliven_oper CFG-( JSELECT ven_oper.cod_cli , ven_oper.recibo , ven_oper.fecha , SUM(ven_oper.caj_pro) AS imp_recibo , SUM(IIF(ven_oper.dif_valor>=DATE(),1,0)) AS diferido FROM ven_oper GROUP BY ven_oper.recibo WHERE ven_oper.causa='R' .AND. BETW(ven_oper.fecha,xdfec,xhfec) .AND. &xFilter INTO CURSOR recibos orecibosccclie       facturasT .t. 3TCagenteccventTCSELECT facturas.cod_cli , SPACE(30) AS nom_cli , facturas.recibo , facturas.fecha , facturas.imp_recibo , -facturas.importe AS importe_b , ccclie.comprob , ccclie.causa , IIF(ccclie.causa='V','FC',IIF(ccclie.causa='c','NC',IIF(ccclie.causa='d','ND','XX'))) as causatxt, ccclie.cuo , ccclie.fecha , ccclie.importe , ccvent.agente , SPACE(30) AS nom_age , ccvent.comision , facturas.diferido , 0000000000 AS op , SPACE(12) AS fc FROM facturas,ccclie,ccvent WHERE facturas.cod_cli+facturas.ref+facturas.cau+STR(facturas.cuo) = ccclie.cod_cli+ccclie.comprob+ccclie.causa+STR(ccclie.cuota) .AND. ccvent.fac_ven+ccvent.causa = ccclie.comprob+ccclie.causa .AND. &xFilter INTO TABLE (xBorrar) Q TT zzzzzT!igF G((OPFG-( FG-( "G-(##G-($%>&#'>  &>)CCcom+C X *6F%+S"& #'C,-Ccom+ & #'C,-((.\tmp\rpt_sch_comisiones(.\borrar3o resultado#& borrar10(.\tmp\rpt_sch_comisiones_resumen(.\borrar1F0QFQ.*FQF QzCSe han creado .\borrar.xls y .\borrar1.xls con los datosC y el resmen respectivamente.1BU2LISTADOS DEY_FILTERSXFILTERFIL_GET_CLI_FILTERXDCLIXHCLIP_CLINUM OPEN_FILESCOMOPCCCOMPRECIBOSCOD_CLIRECIBOFECHA IMP_RECIBOCCCLIEIMPORTEREFCAUCUODIFERIDOFACTURASFIL_GET_AGE_FILTERXDAGEXHAGEP_AGENUMXBORRARODEYFUNCNEWFILE_LOCAL_TMP RESULTADOACCOLDAGEOLDRECCLIENTESAGENTECOMPROBCAUSANOM_AGENOMBREALLFCFAC_COMXDSALFECHA_ABORRARP_LOCALDISTINCTBORRAR1MENSAJE dey_func2"Cven_operven_opeCccclieCccventccvfac!CclientescodcliCagentecodageCcomcomprobCcccompopUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENED open_files %Qr!ara"1s11"srrAasB!qA5qAsArAqAC3B"b275 %dҜJYuyC4      T-%C q_costos2pQ%Ccostos Qcostos% %  $4ocostosCXQ q_costos2&  T-%[4C10001480008 70007 70008 %C % 2r q_costos2     2r q_costos2 %C  =ocostosCXQ  q_costos2 8ocostosCXQ- q_costos2Jr q_costos2CC   6 w,ocostos- q_costos2(r q_costos2-TER - CCCC/-:-F ~Gc   C  -6%C  C!%C q_costos2mQ%dCC 6%`T\er%C     T%C R8\tmp\.xls(\.xls \ nBUXMANUAL XNO_CALCULAR XDESDE_FECHA XHASTA_FECHAXHOY XEXPORTAR XCONSOLIDADOXAUT XTIPO_COSTOSXCENTROXSOLO_RESULTADOSXPOR_LINEA_CENTROXPOR_LO_FACTURADO_O_REMITIDOXTODOS_LOS_CENTROSXMAX_1XEXCLUIR_CENTROXQUICK Q_COSTOS2COSTOSDESCRCOD_CENEXCLUIRXADD_A_PLANILLAINOEXP XPLANILLA GENERAR_EREXPORTAR_XLS_COLLXPATHP_DIR_EXPORT_GLOBALP_LOCAL G4     T C CX TC]%CxhoybL TC$TC T T T T' G(9T9  TTCsessionN T C%Cq_costossQ7ocostosQ q_costos > CO& & %Cco_er Qco_er%C co_er_datos 7Q co_er_datosT%C]F$(&\tmp\%%C tmp_er_datosF'QFQ&\tmp\%'$i1 tmp_er_datos(C(& C)ZC*Z),& C)ZC*Z+C, Z-0& C)ZC*Z+C, Z./% T0 T1#2 co_funciones01%0% C14BT56T578sys_procesando2CCC C CX 6::CCC C CX 6 ;)<sys_procesando Calculando+o tmp_er_datos* tmp_eliminar ~T?>*%C C >(q co_er_datos*?.  7q co_er_datos*?CC . a6 QF' ~F$% ~G((idfull3EC')ZC'*Z'+C', Z%C4 QJr co_er_datos)*+,')'*'+', zCVer !!! Suspendo?a@ mF$G((idcentro:EC')ZC'*Z'+C', Z'.%C4 @Wr co_er_datos)*+,.')'*'+','. iCVer !!! Suspendo?a@>A'AB'B%  CC% AC4Se han generado los datos del periodo solicitado !!!4BTDC]F#(&\tmp\DQ&\tmp\DE$i1tmp_erFN$i1tmp_erGN$i1tmp_erHN$i1tmp_erIN$i1tmp_erJN$i1tmp_erKN$i1tmp_erLN$i1tmp_erMN$i1tmp_erNN$i1tmp_erON$i1tmp_erPN$i1tmp_erQN$i1tmp_erRN$i1tmp_erSN$i1tmp_erTN$i1tmp_erUN$i1tmp_erVN$i1tmp_erWN$i1tmp_erXN$i1tmp_erYN$i1tmp_erZN$i1tmp_er[N$i1tmp_er\N$i1tmp_er]N$i1tmp_er^N$i1tmp_er_N$i1tmp_er`N$i1tmp_eraN$i1tmp_erbN$i1tmp_ercN$i1tmp_erdN$i1tmp_ereN$i1tmp_erfN$i1tmp_ergN$i1tmp_erhN$i1tmp_eriN$i1tmp_erjN$i1tmp_erkN$i1tmp_erlN$i1tmp_ermN$i1tmp_ernN$i1tmp_eroN$i1tmp_erpN$i1tmp_erqN$i1tmp_errN$i1tmp_ersN$i1tmp_ertN$i1tmp_eruN$i1tmp_ervN$i1tmp_erwN$i1tmp_erxN$i1tmp_eryN$i1tmp_erzN$i1tmp_er{N$i1tmp_er|N$i1tmp_er}N$i1tmp_er~N$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erN$i1tmp_erNi1tmp_er.C& )) T T0 T1#2 co_funciones01%0% C14 CCB~T#ESTADO DE RESULTADOS DEL EJERCICIO CC5fC CONSOLIDADO6 (C56* - C57*)%C C costoscodigo>T DEL CENTRO DE COSTOS: C  - C!TCC56iC56H$YTCC57iCC57H 6CC57H  C57H6$TCHTCidCHTCidCHF$G~C*,CC . CC .a66 \(TC*d 8CCidd 8%UTC*dG ~TC*dG #%C$)tmp_erid =rtmp_er)$) DESCONOCIDOTtmp_er.iCCZNreplace &xcol with &xcol + co_er_datos.importe * IIF(tmp_er.negar, -1, 1) Ttmp_er.pCCZ6replace &xcol with &xcol + co_er_datos.porcentaje %$,#Ttmp_er.iCCZ_1Nreplace &xcol with &xcol + co_er_datos.importe * IIF(tmp_er.negar, -1, 1) #Ttmp_er.pCCZ_16replace &xcol with &xcol + co_er_datos.porcentaje X#Ttmp_er.iCCZ_2Nreplace &xcol with &xcol + co_er_datos.importe * IIF(tmp_er.negar, -1, 1) #Ttmp_er.pCCZ_26replace &xcol with &xcol + co_er_datos.porcentaje %Clineas QlineasFE-)T0~C){Gz?Gz?C% &C)dlineascodigo%C E>E 1>E!OTRAS LINEAS / VENTAS SIN ASIGNAR 2'C)dq_costosorden%C >E>E. .$>ESIN CENTRO DE COSTOS>E. >FE-)T0~C){Gz?Gz?'&C)dlineascodigo%C >E !>ELINEA DESCONOCIDA >FE-)T0~C){Gz?? &C)dlineascodigo%C >E !>ELINEA DESCONOCIDA >%Cmotivos ;QmotivosFE-)T0~C){Gz?Gz?!'C)dmotivoscodigo%C >E ">EMOTIVO DESCONOCIDO >FE G((id~yCE>CXC>F`zHb|Jd~LfNhPjRlTnVpXrZt\v>^FHJLNPRTVXZ\x`bdfhjlnprtvz|~~CE%U FE(& \tmp\tmp_erԻ(& \tmp\tmp_erC   % 9C,El estado de resultados ha sido generado !!!4 CCBUXMANUAL XNO_CALCULAR XDESDE_FECHA XHASTA_FECHAXHOY XEXPORTAR XCONSOLIDADOXAUT XTIPO_COSTOSXCENTROXSOLO_RESULTADOSXPOR_LINEA_CENTROXPOR_LO_FACTURADO_O_REMITIDOOEXP XPLANILLAXMAX_1XCENTRO_A_EXCLUIR XTMP_RESUMEN XGRUPO_VENTASXGRUPO_DESCUENTOS XGRUPO_COSTOSXGRUPO_REMITOS ACTIVEFORM DATASESSIONIDOLDDATASESSIONIDODSXSERVERP_SERVERABRIR_TABLAS_FIJASQ_COSTOSDESCRCOD_CENORDENCOSTOSALLCO_ER CO_ER_DATOS XTABLA_DATOSP_LOCAL TMP_ER_DATOSDCENTROIDPERIODOCUENTAEMPIDFULLCENTROIDCENTROXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESMENSAJEEJERCONDESDEHASTASP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO TOMAR_SALDOS TOMAR_CONTRIB SP_MENSAJEDISTINCT TMP_ELIMINARXPERIODOSYS_MOSTRAR_SCREENIMPORTE PORCENTAJEBYEBYE XTABLA_ERTMP_ERI1P1I2P2I3P3I4P4I5P5I6P6I7P7I8P8I9P9I10P10I11P11I12P12ITPTI1_1P1_1I2_1P2_1I3_1P3_1I4_1P4_1I5_1P5_1I6_1P6_1I7_1P7_1I8_1P8_1I9_1P9_1I10_1P10_1I11_1P11_1I12_1P12_1IT_1PT_1I1_2P1_2I2_2P2_2I3_2P3_2I4_2P4_2I5_2P5_2I6_2P6_2I7_2P7_2I8_2P8_2I9_2P9_2I10_2P10_2I11_2P11_2I12_2P12_2IT_2PT_2XFIRSTXTITULODIRXLASTXINICIOXRFIRSTXRLASTXOFFSETXITIPOXCOLP_CODEMPLINEASXNIVELNIVELMOTIVOSPROCESAR_FORMULAFORMULAPROCESAR_FORMULA_PORCENTAJEFORMULAP SALIDA_XLS 4TCCX TCCiCH$MTCCiCCH 6CCH  CH6$ T+a T T#  co_funciones%.% &C !TCC iC H$YTCC iCC H 6CC H  C H6$TCDTCF( 3TCC iC H$#T C %%T!-Ttmp_balance_er_C_C% %Cempresas Q \empresasFG((codigo#)ETcodigo=CCZC or codigo=CCZ6 Ta+C+ if &xfiltro_empresasT TCO T TG( !T"\data\CCZ G(" C#C$%F%Q"\xchg\_CCZ(%\xchg\Q%\xchg\&"i1 tmp_export'N >'Q!%\xchg\.bak."\xchg\_CCZ.dbf T- FQ%\xchg\&."\xchg\_CCZ.dbf>''Q."\xchg\_CCZ.dbf G(* T"% G("F # TH'%C"\xchg\.dbf0} "Q"\xchg\+%Ccuentas rQcuentasF,G((abrevF+G-(.,%/T.t. T emp=p_codempscan for &xfiltro_empresas and iif(!empty(xcentro), centro=xcentro, .t.) and iif(xmax_1, !inlist(centro, "100014", "80008 ", "70007 ", "70008 "), .t.)n F,G((abrev%Ccuentas+ ` %,0T1,0 T1T2CH#T3C2  2 26/%Ctmp_balance_er.mesCC3Z\ CT4CCiC2 6C2  2 26$T4C4idC4HF5%6 G((idfull-EC1ZC4Z,-C+' Z Z G((idcentro4EC1ZC4Z,-C+' Z+9%C4 % %6 Er tmp_er_datos:;.'14,-+' ! Rr tmp_er_datos:;.'914,-+'+93>5<5<Ctmp_balance_er.mesCC3Z j F+Q  % !  TBU= XDESDE_FECHA XHASTA_FECHAXCENTROXDXHXFIRSTXLASTXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESXAUTMENSAJEEJERCONDESDEHASTAZZXD1XH1XTABLA XNO_CALCULARP_SYSTEMEMPRESASCODIGOXFILTRO_EMPRESASP_UNOP_DOSXINICIALXEMPRESA XEMPRESA_REG OLDCODEMPP_CODEMPODS DATASESSIONIDP_SERVERSETSTOMAR_SALDOS_EXTERNOXSERVER TMP_EXPORTEMPALLFOROLDDATASESSIONIDTMP_BALANCE_ERCUENTASABREVCUENTA XCONSOLIDADOERXERZXIDXXPERIODO TMP_ER_DATOSXPOR_LINEA_CENTROIDFULLIDCENTROCENTROIDPERIODOIMPORTE 4TCCX %C tmp_resumenSFQgh1\tmp\N  C C N N NNNNNNNNNNNNQ\tmp\& CZ  TCCiCH$MTCCiCCH 6CCH  CH6$-T! tmp_estado_de_resultados_contrib<"" T2"(CiCi CHCH %"!!TCC#iC#H$T#C#%#T !_C_C%# ET$codigo=CC%ZC& or codigo=CC&Z6%Cempresas Q' \empresasF(G((codigo#)* T*a+C+ if &xfiltro_empresasT+()T,(- T.COG(/0T1'\data\CC+Z G(1 C2%&+& 345 T36 T4% T5& T6&*C ,87%&+&  T63 T%4 T&5%*wF%Q1\xchg\ _CC+Z(9\xchg\ Q9\xchg\ :"i1 tmp_export;N >;+Q!9\xchg\ .bak.1\xchg\ _CC+Z.dbfFQ\tmp\tmp_remitos%(9\xchg\ _remitos)Q9\xchg\ _remitos=*i1tmp_export_remitos;N >;+Q=-9\xchg\ _remitos.bak T*- FQ9\xchg\ :.1\xchg\ _CC+Z.dbf>;+;Q.1\xchg\ _CC+Z.dbfF)Q9\xchg\ _remitos=\tmp\tmp_remitos>;+;Q= G(? T19 G(1F( #. G(? G(1H'%C1\xchg\ .dbf0 %Ctmp1 F@Q"Q1\xchg\ @TACidCH%B T$.t.  T$ emp=p_codempCA _remitosCF@Q  BUD XDESDE_FECHA XHASTA_FECHAXCENTROXPOR_LO_FACTURADO_O_REMITIDOXPOR_LINEA_CENTRO TMP_RESUMENP_LOCAL XTMP_RESUMENLINEADESCRTN1N2N3N4N5N6N7N8N9N10N11N12NTITIDXDXHXFIRSTXLASTXDESDEXHASTAXTABLAXTABLA_CONTRIBZ XNO_CALCULARXFILTRO_EMPRESASP_UNOP_DOSP_SYSTEMEMPRESASCODIGOXINICIALXEMPRESAXEMPRESA_ABREVABREV XEMPRESA_REGODS DATASESSIONIDP_SERVERSETS OLD_CODEMPOLD_UNOOLD_DOSP_CODEMPTOMAR_CONTRIBUCION_EXTERNO XTIPO_COSTOSXSERVER TMP_EXPORTEMPALLTMP_EXPORT_REMITOSFOROLDDATASESSIONIDTMPXPERIODO XCONSOLIDADOPROCESAR_MES_CONTRIBUCIONQ 4%- FBUXPERIODOXTABLA_REMITOSXPOR_LINEA_CENTROPROCESAR_MES_CONTRIBUCION_LINEA PROCESAR_MES_CONTRIBUCION_CENTRO 4F%CCesventa/@i1tmpL%IND6>C= SC N SC NC 31    >aselect linea, dlinea , sum(importe) as venta , sum(costototal) as costo , emp , es_venta from tmp group by linea, dlinea, emp, es_venta where &xfiltro_empresas into cursor tmp1 readwrite %INDVT%IND T *& C ZC ZCSN6 %Ctmp_rem(F Q"Q \xchg\ select linea, dlinea , sum(importe) as venta , sum(costototal) as costo , emp from tmp_rem group by linea, dlinea, emp where &xfiltro_empresas and !empty(cod_ins) and linea<=xhasta_linea into cursor tmp1_rem K( ~+F G((idEC ZC ZS%C4 >rtmp1    a>%  T2 1T T % 1ECd ZCZC XC Z%C4 =r tmp_er_datos  d F=>C d6F%Ctmp_remRF QFK( ~T FG((idfull%%  Tc T %1ECd ZCZC XC Z%C4 =r tmp_er_datos  d F=>C d6%1ECd ZCZC XC Z%C4 s=r tmp_er_datos  d =>C d6 FQ%INDy F & C Z! %"%T#1=1 HT# emp=p_codempT$ SC NC 31 vselect linea , dlinea , sum(importe) as venta , sum(costototal) as costo , sum(iif(betw(linea,1,3),cantaux,0)) as litros , 00000000000000.0000 as precioxlitro , 00000000000000.0000 as costoxlitro from tmp group by linea, dlinea order by linea, dlinea where es_venta or cod_ins=xmot and &xfiltro into cursor tmp_lin readwrite Q>%C& & 6'C& & 6C  ~u F G((idT)Cd 8d%) T))  T))%C+ )+VENTA*%C+ )+COSTO*&C+ )+&LITROS*.C+ )+%PRECIO X LITRO*-C+ )+' COSTO X LITRO*BU,XPERIODOXTABLA_REMITOSTMPESVENTAP_EMPES_VENTACOD_INSALL XHASTA_LINEALINEAEMPIDTMP_REMP_SERVERCOSTOXTOTAL_COSTO_REMITOSTMP1TMP1_REMDLINEAXLINEAXEMPXGRUPO_REMITOSPERIODO TMP_ER_DATOSIMPORTE PORCENTAJEVENTA XTOTAL_VENTA XTOTAL_COSTOIDFULL XGRUPO_VENTAS XGRUPO_COSTOS TMP_RESUMENT XCONSOLIDADOXFILTROXMOT PRECIOXLITROLITROS COSTOXLITROFORXCOLBUSCARTMP_LINECZC%C4 y >>> > T NCCZreplace &xxcol with xnum > BU XITXLINEAXCOLXNUMXTXTITLINEATMP_LINDESCRDLINEATXXCOLNTk4%CxdesdebL8 T%CxhastabLsTC8Gz?%CxempresabL TF TCOH otmp_erCQCQC Q C Q C Q C Q C Q CQCQCQCQCQC tmp_formula  otmp_erCQCQCQ CQ CQ CQ CQ CQCQCQCQC QC tmp_formula  notmp_erC!QC"QC#Q C$Q C%Q C&Q C'Q C(QC)QC*QC+QC,QC tmp_formula 2otmp_erQQQ Q Q Q Q QQQQQ- tmp_formulaF%CO7 #"T- tmp_formula.iCC.Z BC-U/XDESDEXHASTAXEMPRESATMP_ERXREGX_EMPSUMI1I2I3I4I5I6I7I8I9I10I11I12ID TMP_FORMULAI1_1I2_1I3_1I4_1I5_1I6_1I7_1I8_1I9_1I10_1I11_1I12_1I1_2I2_2I3_2I4_2I5_2I6_2I7_2I8_2I9_2I10_2I11_2I12_2XCAMPOXIDX64%C +( ' T(# qTC(% *C Frmula: [C] %C vH7B 5C Frmula: [C] Divisin por 0 !!! TH5 TiCCZ!replace &xcampo with xejecfor  TiCCZ_1!replace &xcampo with xejecfor  TiCCZ_2!replace &xcampo with xejecfor BU XFORMULAXIDXXEJECFORX_EMPOEX_FORXAUTMENSAJEMESSAGEXCAMPO4%C (  T% E(A TC(% 5CFrmula Porcentaje: [C] %C vH7B>5C Frmula: [C] Divisin por 0 !!! THS= TpCCZ!replace &xcampo with xejecfor  TpCCZ_1!replace &xcampo with xejecfor  =TpCCZ_2!replace &xcampo with xejecfor   hTC(% ;CFrmula Porcentaje Final: [C]  > BU XFORMULAXIDXXEJECFORX_EMPOEX_FORXAUTMENSAJEMESSAGEXCAMPOPT4%CxbasebL/ TF TCO)otmp_er tmp_formulaF%CO #% +H' /cTiif(tmp_formula.iCCZ#0, 100*tmp_er.iCCZ/tmp_formula.iCCZ,0) iTiif(tmp_formula.iCCZ_1#0, 100*tmp_er.iCCZ_1/tmp_formula.iCCZ_1,0) 'iTiif(tmp_formula.iCCZ_2#0, 100*tmp_er.iCCZ_2/tmp_formula.iCCZ_2,0) wBT5iif(tmp_formula.it#0, 100*tmp_er.it/tmp_formula.it,0) BCUXBASETMP_ERXREGID TMP_FORMULAXIDXX_EMPXFOR G+(listados)sys_procesando ExportandoFaQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcxa QEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx1QEXPORTACIONES_XLS_CELDA imp_exp.vcx1TCExportaciones_xls_CeldaIMP_EXP%C T- /'TC ExportacionesIMP_EXP T Ta2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPT###,###,##0.00TaTC^T T Reporte Final:T C Exportaciones_Parametros_FormatoIMP_EXPT aT C^T  T ###,###,##0.00T C T aT C^T  TC T-TC^TCTC^TCTC^TC T###,###,##0.00KT  T!a-T"CC#$ GeneralC#$6T%T&CompletoC]T'T(T)1*QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T*Cexportaciones_xls_rango imp_exp.vcx1+QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T+Cexportaciones_xls_rango imp_exp.vcx1,QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T,Cexportaciones_xls_rango imp_exp.vcxT*-Rango principalC *.C/ *.C *.T+0T+1T+-TitulosCID+.!CCONCEPTO+.CCENTRO+.2(  T324%3 T33 &CCC3$5+.C%+.CTOTAL+.C%+. CCUENTAS+.C+*6T,7a~8 |C8C9]C9KC9 9C9 'C9C9666666,.CaC:VC9]C9KC9 9C9 'C9C9666666,.Ca_;C9]C9KC9 9C9 'C9C9666666,.2( T<Ctmp_er.iCC2ZT=Ctmp_er.pCC2Z %C9 Ca<C9]C9KC9 9C9 'C9C9666666,.Ca=C9]C9KC9 9C9 'C9C9666666,.T<>T=?Ca<C9]C9KC9 9C9 'C9C9666666,.Ca=C9]C9KC9 9C9 'C9C9666666,.CaC8AB@C9]C9KC9 9C9 'C9C9666666,.C,.C,.C,.F(C\tmp\D2F!QC\tmp\D2Ei1tmp_er2FC & C8 ZF8 CGFE& :: ~dCE8,.CaCE:V,.2( ` T<C tmp_er2.iCC2Z T=C tmp_er2.pCC2Z %C9\Ca<,.Ca=,.FEQC,.C,.C,.%HINDCLINEA,."Ca DESCRIPCION,.Ca,.I( T3I4%3 }T33 $CaCC3$5,.Ca ,.CaTOTAL,.FJ& CKZC>ZLTM ~I%MK? TN TMK ZTNNHoE N TOP N TQP N TRP N (>PCRCOR T6 NE(>PCRCQR T6(TS>IC>ISCXCaP,.'TS> C> SCX%KU U C,. TUKC,.CaTOTALES,.CaW,. %aY(H Y>TZVENTA YcTZCOSTO YTZLITROS YTZPRECIO X LITRO YTZ COSTO X LITROC,.!CaTOTAL Z,.CaW,.%YI(  CaCYIS,.Ca,. I( %Y;T[CCISCISCIS 6 X;T[CCISCISCIS 6Ca[,.Ca,.C,*6C*\6C]^_sys_procesandoBU`XEXP XPLANILLALISTADOS SP_MENSAJESYS_PROCESANDOTMP_ERXPAR1IMP_EXPVCXXPAR2XPAR3XPAR4XFOR1XFOR2XFOR3XFORHEAD XFORHEAD_5 XFORHEAD_6XCELLTYPEOXLIMPIAOEXPXFOR NUM_FORMAT FONT_BOLD FONT_COLOR FONT_SIZEXREPORTE_COMPLETOFO_COPY FONT_ITALIC FO_INTERIORFO_NUEVOEX_ARCHIVO_ENTRADAEX_ANEXAR_PLANILLAEX_TITULO_HOJA Q_COSTOS2COD_CENEX_ANEXAR_LIMPIAEX_ARCHIVO_SALIDAEX_ANEXAR_ARCHIVOEX_ENTRADA_TIPO EX_XLS_ABRIRXRANGOXRANGO2XRANGO3 CEL_NOMBRECEL_ADDXTITULOOFF_FILABOR_TIPONITXMESXINICIOMES CEL_RANGO_ADDUSO_PADRE_FILAIDTIPODESCRCENTROXDATOXPORCITPT ER_CUENTASXRFIRSTXRLASTP_LOCAL XTABLA_ERTMP_ER2CUENTAPROCESO_NO_ASIGNADOSP_EMPZ TMP_RESUMENLINEAID2XLINEAXXXVNTXCXLARR_RESXXIXOLDXITXNZZXENCABEZXVAR CEL_RANGOPARAMETROS_COLLADDSP_OCULTAR_DEFINITIVAMENTETCCiCH$YTCCiCCH 6CCH  CH6$TCHTCidCHTCidCHTC F G((abrevF G-( hscan for co_er_datos.importe#0 and between(periodo, xrfirst, xrlast) and id=999 and (&xfiltro)(TCd 8CCidd 8%TCdG TCdG 3%CC  Z tmp_er2id ^Crtmp_er2   T tmp_er2.iCCZ3replace &xcol with &xcol + co_er_datos.importe T tmp_er2.pCCZ6replace &xcol with &xcol + co_er_datos.porcentaje BUXFIRSTEJERCONDESDEXLASTHASTAXINICIOXRFIRSTXRLASTXFILTRO RESULTADOSXSOLO_RESULTADOSCUENTASABREV CO_ER_DATOSCUENTAXOFFSETPERIODOXIIDDESCRTIPOXCOL%Ccuentas :Qcuentas% TF~C/\SH! CRC0QTTCC  or 6left(cuentas.cod_cue,1)=[C=]! CRC0QyTTCC  or 6left(cuentas.cod_cue,3)=[C=]! CRC0QTTCC  or 6left(cuentas.cod_cue,5)=[C=]! CRC0QcTTCC  or 6left(cuentas.cod_cue,7)=[C=] 2GTCC  or 6cuentas.cod_cue=[] T.t. BUXSOLO_RESULTADOSXFILTROCUENTASATRIBUTOCOD_CUE4  TCW%CqueryGFQBo co_er_datos  C  query T ~,TCC, 6CQ F!BCC _ C6U XIDERXDESDEXHASTAXAREAXTXTQUERYDISTINCTCUENTA CO_ER_DATOSIDPERIODO%Cq_costos!Q%C tmp_resumenLFQ%C tmp_er_datosxFQ%Ctmp_erFQsys_procesandoBUQ_COSTOS TMP_RESUMEN TMP_ER_DATOSTMP_ERSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO#TCCX TC H\ | T 2% T  TH   T  2  T %1 T  U T  T % T a T a  T - T - TaYve_sql_estadisticas_CCZ    %e\tmp\Estadstica de ventas.xls(\Estadstica de ventas-C.xls1\tmp\Estadstica de ventas.xlsBUXTABLAXDESDEXHASTAXEMPRESA_ABREV XTIPO_COSTOSXCENTROXPOR_LO_FACTURADO_O_REMITIDOXPOR_LINEA_CENTROP_GS_ER_COSTOSP_GS_ER_NO_CODIFXTIPO_NO_CODIFICADOS XSEPARACIONXINCLUYE_REMITOS_NO_FACTURADOSXPOR_FECHA_DE_ENTREGAXDEBUGCONTRIBXEMPRESAP_GS_ER_UNIDADVE_SQL_ESTADISTICASP_LOCAL P_DIR_EXPORTTCCX H9r ZTA 2rTZKco_sql_balance_CCZBU XTABLAXD1XH1XCENTROP_GS_ER_NO_CODIFXTIPO_NO_CODIFICADOSEXPORTAR_ESTADO_DE_RESULTADOSXEMPRESAXPOR_LINEA_CENTROCO_SQL_BALANCE 4F%CCesventa/@i1tmpL >asselect centro, dcentro , sum(importe) as venta , sum(costototal) as costo , emp , es_venta from tmp group by centro, dcentro, emp, es_venta where &xfiltro_empresas and iif(!empty(xcentro), centro=xcentro, .t.) and iif(xmax_1, !inlist(centro, "100014", "80008 ", "70007 ", "70008 "), .t.) into cursor tmp1 readwrite FK(   ~T  F G((idcentro%%CY Tc T #Cq_costoscod_cenTT%8ECd ZCZC XC  Z%C4 [Tr tmp_er_datos d  F =>  C  d6%1ECd ZCZC XC  Z%C4 GJr tmp_er_datos d  =>  C  d6 FQBUXPERIODOXTABLA_REMITOSTMPESVENTAES_VENTAALLTMP1VENTACOSTO XTOTAL_VENTA XTOTAL_COSTOXEMPEMP TMP_ER_DATOSIDCENTROCENTROXLINEAXDCENTROQ_COSTOSORDENDESCR XGRUPO_VENTASIDPERIODODCENTROIMPORTE PORCENTAJE XGRUPO_COSTOS  4%CxdesdebL4 T%CxempresabLc TF TCOH aotmp_erCQCQCQC Q C Q C Q C Q C Q CQCQCQCQ tmp_formula  Botmp_erCQCQCQCQ CQ CQ CQ CQ CQCQCQCQ tmp_formula  #otmp_erC QC!QC"QC#Q C$Q C%Q C&Q C'Q C(QC)QC*QC+Q tmp_formula 2otmp_erQQQQ Q Q Q Q QQQQ- tmp_formulaF%CO #"T, tmp_formula.iCC-Z BC,U.XDESDEXEMPRESATMP_ERXREGX_EMPSUMI1I2I3I4I5I6I7I8I9I10I11I12ID TMP_FORMULAI1_1I2_1I3_1I4_1I5_1I6_1I7_1I8_1I9_1I10_1I11_1I12_1I1_2I2_2I3_2I4_2I5_2I6_2I7_2I8_2I9_2I10_2I11_2I12_2XCAMPOXIDX generar_er# tomar_saldos- tomar_contrib:procesar_mes_contribucion=Gprocesar_mes_contribucion_lineaHbuscar>Usuma]Vprocesar_formula[procesar_formula_porcentajet^ porcentajea salida_xls}dproceso_no_asignados resultadosބ er_cuentasbyebyehtomar_contribucion_externotomar_saldos_externo procesar_mes_contribucion_centrocelda3A!A4bDAA"!!!A!ABAArr6AACAB2AA"BBBA6sRA2P!AsArsAqArqAAB32AAAA%tABAsr22CrsCACAAArAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAA32AAA!Aur2A3Acb32c32cAB!At2bR1ArR11AAABtaR1ABwaR1AB1ArqR1!ABsDA f DBr"AAB3R432AAA"!212AAAqQXsQ!BrBArBBABv#1AsrA sbA22s2BA4S#AB4BBBrABB2BABC3qRqAA@qBrq"2B2ZAqQrAAQ!BRrBrBrBBABwBqAA"AuABCB22AA3tAAdcALcbAqAA"qACdAdBsBrAqAABrr#dAeBsBdBBBBrAcsAAoq1ARQaBBA3qBQAcB1AAAr1q q q  Ar"A"2q!AAQA1a11ACBBA2q!2QAAQA1a11ABAAABBA2qArr"A21111A"A2!s BqA"BQQQqS1AbASyq11AA21 BrrAABrAb!qS1ABBta1A11111AAr1tAaq2ABrBA1!1!1111A2qA2AqAABBCBBB2r!rr2A32A3cBA2qr1ArAAAAqABA2bqAA)AA2AqAAqAArqAAB21R212AA1A2A2ArQAB21R1AB2zAA>rr#C1AdFBsBdBBBBrAB3AAr11 1 1  Ar"A"1F C~C![;[oEo3p_p&**5GU8ڝա*:K)@   O1 v+K LG t{ F %'.R)v TC$ Ta T T-T' co_funciones% }BT T C% T  %C BC %C BC  C BUXFECHAXDLOG3XDIR XRESULTADO XFECHAFINALCO_BUSCAR_EJERCICIO CO_FUNCIONESXDFECEJERCONDESDEXHFECXDFEC1GENERARSALIDAEXPORTARBU:'%C$  ]/C"Periodo de generacin invlido !!!B- ,Hx( CALJ#gs_sql_estado_de_resultados_cal.prg---a 2(Fgs_sql_estado_de_resultados.prg---aBaU XDFECXHFECXFECHAMENSAJEP_EMPGS_SQL_ESTADO_DE_RESULTADOS_CALPRGXDFEC1XDLOG3GS_SQL_ESTADO_DE_RESULTADOS!%CC$ W/C"Periodo de generacin invlido !!!B- Fgs_sql_estado_de_resultados.prg-aaaBaUXDFEC1XFECHAMENSAJEGS_SQL_ESTADO_DE_RESULTADOSPRGXDFECXHFECXDLOG3salidagenerarexportar1tCB5AAB2A3qqaaAAr4qbBq1;?&d%. 7E ŨQqv%Ctmp_ind#FQ%Ctmp_ind2KFQ TTC]Bsql_rptmovcondet\tmp\    T Q\tmp\%Cstock Qstock%Cbienes 8QbienesFT.t.%C C 4T'between(tmp_ind.depori, xddep1, xhdep1)%)select tmp_ind.* , iif(!empty(tmp_ind.bul) or !empty(tmp_ind.atr), stock.factor, bienes.factor) as factor , iif(!empty(tmp_ind.bul) or !empty(tmp_ind.atr), stock.factor, bienes.factor)*tmp_ind.cantidad as litros from tmp_ind left outer join bienes on tmp_ind.cod=bienes.cod_ins left outer join stock on tmp_ind.cod+tmp_ind.bul+tmp_ind.atr=stock.codigo+stock.bul+stock.atr where &xfiltro and tmp_ind.cantidad>0 and !inlist(tmp_ind.bul,"020", "008", "140") and (betw(tmp_ind.linea, 1,4) or tmp_ind.linea=6) into cursor tmp_ind2 readwrite Sfselect tmp_ind.* , iif(!empty(tmp_ind.bul) or !empty(tmp_ind.atr), stock.factor, bienes.factor) as factor , iif(!empty(tmp_ind.bul) or !empty(tmp_ind.atr), stock.factor, bienes.factor)*tmp_ind.cantidad as litros from tmp_ind left outer join bienes on tmp_ind.cod=bienes.cod_ins left outer join stock on tmp_ind.cod+tmp_ind.bul+tmp_ind.atr=stock.codigo+stock.bul+stock.atr where &xfiltro and tmp_ind.cantidad>0 and !inlist(tmp_ind.bul, "140") and !(tmp_ind.cod=padr("8301",15) and tmp_ind.bul="008") and !(tmp_ind.cod=padr("8303",15) and tmp_ind.bul="008") and ( (betw(tmp_ind.linea, 1,4) or tmp_ind.linea=6) or left(tmp_ind.cod,5)="I3221" or left(tmp_ind.cod,5)="I3232" or left(tmp_ind.cod,5)="I3231" or (tmp_ind.cod=padr("8300",15) and tmp_ind.bul="008") or (tmp_ind.cod=padr("8302",15) and tmp_ind.bul="008") ) into cursor tmp_ind2 readwrite ((\tmp\rptmovcondetQR%Ctmp_indFQ%Ctmp_ind2FQBUTMP_INDTMP_IND2 OLD_XDTIPXDTIPXTABLA EXPORTAR_3SQL_RPTMOVCONDETP_LOCALXDBIEXDATRXDBULXDFECXHFECSTOCKBIENESXFILTROXDDEP1XHDEP11QEXPORTACIONES_CRYSTAL Imp_exp.vcxTTCexportaciones_crystal Imp_exp.vcxind_rpt_ingresos_produccionT\tmpTTT T  C BU XTABLAXDESDEXHASTAOEXCFIL_DIRECTORIOP_LOCAL FIL_ARCHIVOOFORMXDFECXHFECXDTIPEXP_TABLA_EXCEL_PDF exportar_dashqAAqAAs$vA!ArAA4"a6DqAAqAAB4A"BB2*F  % mibUvU| #4%Cmtz_def OQmtz_defF- %C4 SC6No se ha definido la matanza (MTZ_DEF) para el motivo CCZ !!! B-T  T T0 TG+(listadosF- Ttrsacbienesstockstkxdepstkxdspconverdespachomotinvmovstockconver2%  C TB-TMTZ_MATANZA.PRG TLimpieza de Matanza TtrsacC MTZ MATANZAFG((conver#6TF> %Cproveedo QproveedoF!G((codpro EF#G((codins%T%C& '>'(!()!)*!+,!,-.!/0%1P234-5 T7F#G((codins E %C4T77W8proc_stk CXCXMCCZ71CX T:-F >>; <=->#?@CX AB7CCXDCXEFC XGHICXJCX-KLCXMCXN-=>OPQRSaTU > T=C"No existe el artculo de producto C  !!! F#G((codins E %C4.T77Z8proc_stk CXCXcMCCZ71CX T:-F >>; <=->#?@CX AB7CCXDCXEFC XGHICXJCX-KLCXMCXN-=>OPQRSaTU  T=C"No existe el artculo de producto C  !!! F'G((conver E >4-crmtz_prod=VWKXYZ%3 T K T[trsacBU\XFECHAXMATANZAXFEC_MTZXCOD_PRO XCANT_REC XCANT_OBTXRINDEXMOTIVOMTZ_DEFMOTIVOMENSAJEXXLIMPIALIMPIAXXSUCIASUCIA XXDEPOSITO XRESULTADOLISTADOSMOTINVTIPO TIPOAJUSTEAAALOCK_GTRSAC UNLOCK_ALLTRAN_PRGTRAN_TXTBEG_TRANSYS_MCONVERXNEWTRFTRANSFCOMPROBPROVEEDOCODPROBIENESCODINSXDT HORA_SERVIDORCONVER2NOMBRE DOMICILIOCPCIUDADCIUDAD PROVINCIACOMENTCUIT INSCRIPCIODTPROCLICPROCLIFEC_REMFLAG1ID_EXTINXIT REG_STOCKPROC_STKFIRSTCOD_INSCONCEPTOFECHAPERSONADESCRDESPACHOCODIGOITEMBULATRORDENREF2COSMONCOSTOSERIEDSERIEHCOD_PROCOD_CLICOD_CENNOMOVSTKENTRASALEDEP_INGDEP_EGRBAJAUSR_BAJA PUB_INDEXMATANZAFEC_MTZCANT_RECCANT_OBTRINDEEND_TRAN 4F%C HG((transfGF EGF%CxfiltrobCset filt to &xfiltro G~(clasesTChlp_mtzN <TBUVARIABLEXFILTROTMPMTZTRANSF HLP_AYUDACLASESSHOW registrar0bus_mtz_pendiente eT TMatanzas PendientesTtmpmtzThlpTfec_rem TTfec_remTFechaTfec_remT D T 7T nombreT NombreT nombreTC TTtransfTNmeroTtransfTNU ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2hlp_mtzhlp 111Aq1qAQ"sj2qAsQtAArrr r}rQ`1ArrQ`1Ar74A4t!aaAARrrqRB11AA!A11111143bRx/3% e dFvG+( dey_filters%Cconver2 AQconver2TCTC5%CT cv2.modelo>0 -T Between(cv2.modelo,xdmod, xhmod)%%C  C  $ ?5T$ AND BETWEEN(cv.fecha, xdfec, xhfec)C  FQ FG((codins%Cmedidas QmedidasFG((codigoFG((articuloF G-(G-( T T T T ~;%u > >8>CS  S 6% >>!>"#%C D!C$medidascodigoT%%C# !C$medidascodigoT%%C !C&medidascodigoT%%C# 7!C&medidascodigoT%oborrarCQ'C#Q(C!Q)C"Q*CQ+CXQ,CXQ-CXQ.CXQ/0borrar2>2)( ( >4)(+ (,>,-./5(6\tmp\RPT_IN_MOVIMIENTOS_MODELOQRQF QBU7 DEY_FILTERSCONVER2XARCHODEYFUNCNEWFILE_LOCAL_TMP XPATH_INICIALXFILTROXDMODXHMODXDFECXHFECOBTIENE_MOVIMIENTOSP_CODEMPBORRARBIENESCODINSMEDIDASCODIGOSTOCKARTICULOCOD_INSBULATRXMED1EXMED1SXMED2EXMED2S ES_BASURABASURAENTRAFACTORBULTOS ATRIBUTOSENTRA2SALE2SALEMEDCODDESCR MEDAUXCODSUMENTSUMSALSUMENT2SUMSAL2SUMBASMED1EMED1SMED2EMED2SNUMEROBORRAR2RINDEFORRINDE2ALLP_LOCAL, select cv.cod_ins as cod_ins , cv.atr as atr , cv.bul as bul , cv.fecha as fecha , cv.transf as numero , space(15) as comprobant , cv.entra as entra , cv.sale as sale , 0000000000.0000 as basura , cv.item as item , cv2.modelo as modelo , im.descr as moddescr , 0000000000.00 as entra2 , 0000000000.00 as sale2 , 0000000000.00 as rinde , 0000000000.00 as rinde2 , 0000000000.0000 as factor , de.basura as es_basura from conver2 cv2 left outer join conver cv on cv.transf=cv2.transf left outer join invmode im on im.codigo=cv2.modelo left outer join invmodd de on cv.cod_ins+str(im.codigo)=de.cod+str(de.codigo) where &xfiltro into table (xarch) QUXEMPRESAXARCH74T\data\CCZ C ges'TCDeyFunc Dey_Func2.prgCbienesCmovstockCCONVERCCONVER2CmotinvCinvmodeCinvmodDCSTOCKCMEDIDASUXEMPRESAP_SERVERP_SYSTEMSETSGESOTDF CHK_OPENEDQ4+C,?TCC,[ BCgUXSTRobtiene_movimientos open_files str_a_numG U1AsrrRARQA!r1ArrrA2AAAAAB7 TArAC21A:qrqaaqaqqQq4qA1Jb ] wO '_F%?&)B&U wG(9G+(listadosG~(clases C TC$ TC$T1000 T T  T - T T C C BCInicio de la asignacintsp_asig T T+a TH=  T tsp_asig_1(%C ! FS)Tbetween(fecha,xdesde,xhasta)%C &T and cliente=xcliente%Tـ and ( empty(factura) or (between(factgnt+str(gnt,12,2), space(12)+str(0.01,12,2), space(12)+str(999999999.99,12,2)) and gnt#0))% T and tsp=xtspMSELECT * FROM tsp_asig WHERE &filtro ORDER BY viaje INTO CURSOR tmp_asig1 ~I'%Ctmp_asigviajer Ertmp_asig !"#$%&'()*+,-./012345678C ZC !"#$%&'()*+,-./012345678"Ctsp_camicodigo"Ctsp_traicodigo"Ctsp_chofcodigo"C!tsp_lugacodigo"C7tsp_tspscodigoFS>9:;<=;>?;@A;BC;FC Suspendo?aD#) tsp_asig_2(%C !CCSalida con xres=CCZtsp_asig% CF%C tmp_asig18FQ%Ctmp_asig`FQ G\tmp\ .dbf G\tmp\ .cdxBUH ACTIVEFORM DATASESSIONIDLISTADOSCLASES OPEN_FILESXDESDEXHASTAXCLIENTEXTIPOXTSPXSOLOMODIFICADOSXIDU XTABLA_TMPNEWFILECREAR_TABLA_TEMPORALUSER_LOG PUB_INDEXXFORMXRESXMAXFORM TSP_ASIG_1WIZARDTMP_ASIGFILTRO TMP_ASIG1VIAJECLIENTEIDFECHACAMIONTRAILERCHOFERPEON LUGARCARGADESTINO1DESTINO2DESTINO3DESTINO4IMPORTEIMP_CHOFFACTURAGNTFACTGNTVUELTAHC1HC2PAL1PAL2LC2TPTURNOTIPOU TONELADASOBS COMENTARIOTSPDPEONDCAMIONTSP_CAMIDESCRDTRAILERTSP_TRAIDCHOFERTSP_CHOFDLUGARTSP_LUGADTTISTATSP_TSPSSYS_MOSTRAR_SCREEN TSP_ASIG_2 TRANSACCIONP_LOCAL %C1Ttmp_asig%C\SELECT &xAlias QFh1\tmp\CCN DN C( N  C( N  C( N LC<C<C<C<NNC NC LC(CCCNNN  N!C"C#N$C2%C2&N 'C((C)C*D+N,C(-C(.L/L0C1C2C<3C 4C5C6C7C8C9C:C;C<NQ\tmp\& C& & & & & & ,,& & CZ=& C ZCBU>XTABLAXALIASP_LOCALCLIENTEIDVIAJEFECHACAMIONDCAMIONTRAILERDTRAILERCHOFERDCHOFER LUGARCARGAPEONDESTINO1DESTINO2DESTINO3DESTINO4IMPORTEIMP_CHOFFACTURAGNTFACTGNTTILDEDLUGARVUELTAHC1HC2PAL1PAL2LC2TPTURNOTIPOU TONELADASOBS COMENTARIOTSPDLUGAR2PAT_CAMIPAT_TRAI FACT_FECHAFACT_IMPDTTISTADPEONELIMINAR BAJAMANUALPROVINCDPROVINCDCLIENTETPEON PROVINCD1 DPROVINCD1 PROVINCD2 DPROVINCD2 PROVINCD3 DPROVINCD3 PROVINCD4 DPROVINCD4 MODIFICADO FACT_VIAJE%Ctsp_tsps .Qtsp_tsps%Ctsp_cami `Qtsp_cami%Ctsp_trai Qtsp_trai%Ctsp_chof Qtsp_chof%Cclientes Qclientes%Ctsp_luga (Qtsp_luga%C tsp_luga2 `Qtsp_luga%C tsp_luga3 Qtsp_luga%C tsp_luga4 Qtsp_luga%C tsp_luga5 Qtsp_luga %C tsp_luga6 @Qtsp_luga %Ctsp_asig rQtsp_asig%Cccvent Qccvent%Cprovinc Q \provincBUTSP_TSPSTSP_CAMITSP_TRAITSP_CHOFCLIENTESTSP_LUGA TSP_LUGA2 TSP_LUGA3 TSP_LUGA4 TSP_LUGA5 TSP_LUGA6TSP_ASIGCCVENTP_SYSTEM 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM T T"trsactsp_asig%Y TItrsactsp_asig!Transportes: Asignacin de Viajes%1TC%% T -T Td VT TeCend tranItrsactsp_asig!Transportes: Asignacin de ViajesC Finalizado% /C"Se ha registrado correctamente !!! U/C"Hubo errores, no se grab nada !!!  p TfAC Fin Registrar CCZtsp_asig BU XRESULTADOAAALOCK_GTRSACBEG_TRAN REGISTRARSYS_MEND_TRAN TTS_ERRORMENSAJEUSER_LOG PUB_INDEX &%CxSoloModificadosbLC T-!CRegistrar. Suspendo?TCtmp_asigN TT/CCZCC RegistrandoF~  T%C Procesados: CCZ%C "C tsp_chofcodigo% &TC tsp_tspscodigo  Ta%T fCEl transportista (CC Z ) del chofer CC Z-C  no existe !!!CEl transportista (CC Z ) del chofer CC Z-C  no existe !!!tsp_asig C B |2C El chofer C  no existe !!!PC El chofer C  no existe !!!tsp_asig C BF G((IDE%C4 >    !!""##$$%%&&''>(())**++,,--..//0011223344 ]ptsp_asig%%##&&''55"CProcesando Eliminados `FG~6\JCEliminar viaje manual CZtsp_asig j zG  C%8 B BU9 XRECCOUNTXRECINTXSOLOMODIFICADOSSYS_M XRECCOUNTSTR ESTADO_INI ESTADO_INCTMP_ASIG MODIFICADOCHOFERTSP_TSPSCODIGOTSP_CHOFTSPXENCXTRANSPORTISTAMENSAJEDESCRUSER_LOG PUB_INDEX ESTADO_RELTSP_ASIGIDCLIENTEXCLIENTEVIAJEFECHACAMIONTRAILERPEON LUGARCARGADESTINO1DESTINO2DESTINO3DESTINO4IMPORTEIMP_CHOFFACTURAGNTFACTGNTVUELTAHC1HC2PAL1PAL2LC2TPTURNOTIPOU TONELADASOBS COMENTARIODPEON BAJAMANUALELIMINARFOR TTS_ERROR 5 T-F%CxIDbC"%Ctmp_asigID %CNo encontrado.()B-F TCO ^J tsp_asig_2_modificar(%F # _JUXIDOTMPASIGXRNTMP_ASIGMENSAJETSP_ASIG_2_MODIFICARXRES  5 T-F%CxIDbC"%Ctmp_asigID %CNo encontrado.()B-F TCO ^J&tsp_asig_2_modificar(%F # >aUXIDOTMPASIGXRNTMP_ASIGMENSAJETSP_ASIG_2_MODIFICARXRESELIMINAR+5G+(listadosG~(clases C TC$ TC$T1000 T T TTC C BC Inicio de la asignacintsp_asig -C j!A ZCC $UXDESDEXHASTAXCLIENTEXTIPOXTSPXIDU XTABLA_TMPLISTADOSCLASES OPEN_FILESNEWFILECREAR_TABLA_TEMPORALUSER_LOG PUB_INDEXMODIFICAR_VIAJE_TMPcrear_tabla_temporali open_filesGWIZARD transaccion registrar modificar_viaje_tmp!borrar_viaje_tmp #Modificar_viaje_debugl$"1"1aAA2sA"aA2 A2AqY!!!!!r6CBrrRhAABB22BqAAqAAC2QA!AA!8AA2AAAAAAAAAAAAAAAAAAA!AAA21r12A12A1r1Aq3"2222AAARqAA3aqAuaqRQ#aAaAA!Aq3QA  a B!qaBaA1A2qq!QqAArqA3qq!QqAAraqAA4$1"2M e>Q07FI.r j.0(013147%'gx,U'wUAVFP_OBJECTS_DEFINICIONESPRGTUOOBJTHISSOLICITAR_DESDEI5TCTablasSys_clases_tablas.prgaTaUTHISOTABLASJSONABLETTC %C Q T  T  U OOBJOTABLASVXTABLASOTABLAOTABLAVTHISOTABLAS COLECCION COLL_AGREGARNOMBRE TABLA_FILETABLA_FILE_TMPClonarseLINITClonarse T USOLICITAR_DESDE" T-  UOTABLASjson_sincronizacion_solicitud*json_Trafico:avfp_objects_definiciones.prgYjson_sincronizacion_respuesta*json_Trafico:avfp_objects_definiciones.prg3q15Q2q1qrQ1A11A214>a K]AU% R ` FjnTgw%CoDeyFuncbOa0af:\sistema\systems\system_Lec2\ G(ges%C!TCf:\Temp\sync.jsonTCaCUXJSON DEY_FUNC2GESOTABLAS NFJSONREADSINC_RECIBIR_TABLAS5 Ta T T2TCTablassys_clases_tablas.prga T, ' 'TC  %C Q T  T  (DO lock_g IN trsac WITH aaa &xTablas TC trsacsys_sincronizacion_recibir RecepcionC Sincronizandoa%51#TCtmpsinc #TCtmpsinc C  % T% C Hubo errores % C Todo bienCtrsacsys_sincronizacion_recibir RecepcionUOTABLASXAUTXOKXTABLASOTABLASVOTABLAVAAAOTABLA COLECCIONNOMBRE COLL_AGREGAR TABLA_FILETABLA_FILE_TMPBEG_TRANTRSACSYS_MOSTRAR_SCREENSINC_RECUPERAR_TABLASINC_PROCESAR_TABLAMENSAJEEND_TRANU G+(listadosTCzip$TC C dbfCC C *TCwwZipNCC  %C0%C QQ NTCerror al recibiraB-UOTABLAXALIASOZIPXZIPXTABLALISTADOSWWCLIENTODEYFUNCNEWFILE_LOCAL_TMPGET_PATHTABLA_FILE_TMP URLDECODE TABLA_FILE UNZIPFILESAAASYS_MOSTRAR_SCREENp %C 'B-%CQBC iBCUOTABLAXALIASNOMBRESINCRONIZAR_FUNCIONSINC_PROCESAR_TABLA_GENERICA  %C C k9C%: Error al definir la sincronizacion.B- F ~'%CCC ^J F _J FU OTABLAXALIASID_CAMPOID_ORDENMENSAJENOMBRE ID_EVALUATEOOBJALIASSinc_Recibir_Tablas-Sinc_Recuperar_TablaSinc_Procesar_TablaSinc_Procesar_Tabla_GenericaqAA17q"AqQ1A11A11A21AAAAaAA32"xAaQTAaqA2QqAB!A3qAqAA1 6 26t >G aQ [ n % )-@*nRFwf 3   T C ]G(9  g C%CxTablabC%C FQ%CTMPTablaFTMPTablaQFQ5estadoJ0C Limpiando...CTMPTablaN ~`F%   y. T  ^J&C Artculo: P%C- CTMPTablaOCTMPTablaN  6F>a! C" \F>a!  # T-< C"BaG+(listadosG~(clases% \ T&T'()T*CXT+CXT,()T-CXT.CX, sys_cambio_de_codigo_de_articulo(0  T& T' T* T+ T, T- T. T0%&F1G((CODINS E,%C4{T &Ya existe en bienes el cdigo destino.C CSi no existe el cdigo original se intentar pasar los movimientos.% C 3F1G((CODINS E'%C4wQT DYa existe en bienes el cdigo destino y as como el cdigo original.% PC 3F1G((CODINS E,%0[ T45trsac4tventasventasbienestcomprascomprasconverstockbultosatributomovstockstkxdeplisprecrotcompromicompromccformulformulascoscosmancompproddsolcom1T7$sys_cambio_de_codigo_de_articulo.PRGoT8Cambio de Cdigo de Artculo: C'/C*/C+ pas a C,/C-/C. T49trsac478%&C',: C ;&C'*+,-.&< T4=trsac478%>% r6C)El proceso ha concluido correctamente !!!3 cC Correcto: CZ/C Z-- --> --? J T@ICError: -- --> --3B- T@BUAXTABLA XPORIGINALXPORIBULXPORIATR XPDESTINOXPDESBULXPDESATRXPTIPXACTRECXTOTREC XMSGERROR OEXTRADATA XPCICLICO ACTIVEFORM DATASESSIONID OPEN_FILESTMPTABLAOESTADOESTADO SET_AND_SHOWCONFIRMAHECHO DIO_ERROR OEXTRADATA2AVANCERCODIGORBULRATR!SYS_CAMBIO_DE_CODIGO_DE_ARTICULO3CODIGOBULATRTIPOMSG MENSAJE_CLEARRELEASELISTADOSCLASESXTIPORIGINALOBIEDATA_CODIGO_VACIOORIATRORIBULDESTINODESATRDESBUL SYS_CAMBIO_DE_CODIGO_DE_ARTICULO XRESULTADOBIENESCODINSMENSAJEAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANREEMP1PREPARA_DESTINOSREEMP2END_TRAN TTS_ERROR MENSAJE_WAITTTS_IDp 4GF>F>FG((CODINS E%C4FG((CODINS E %C4FG((CODINS E F>F >F >F >F >F>>F>>F>F>F>F>F>F>F>F>>F>F>F >F!>G BU" XORIGINALXDESTINOTVENTASCOD_INSFORVENTASBIENESCODINSDESTINOORIGINALTCOMPRASCOMPRASCONVERSTOCKCODIGOBULTOSIDCLAVEATRIBUTOMOVSTOCKSTKXDEPLISPRECROTCOMPROMICOMPROMCODCCFORMULFORMULASCODCOMPCODSUSTCOSCOSMANCOMPPRODDSOLCOM^4<Ccod_insatrbulU XORIGINALXORIATRXORIBULXDESTINOXDESATRXDESBULXTIPO REEMP2_EX]4;CcodigoatrbulU XORIGINALXORIATRXORIBULXDESTINOXDESATRXDESBULXTIPO REEMP2_EX+4 H<, CC C C :REPL &xfldcod WITH xdestino , FOR &xfldcod=xoriginal  CC $hREPL &xfldcod WITH xdestino , &xfldbul WITH xdesbul FOR &xfldcod=xoriginal .AND. &xfldbul=xoribul  CC iREPL &xfldcod WITH xdestino , &xfldatr WITH xdesatr FOR &xfldcod =xoriginal .AND. &xfldatr=xoriatr U XORIGINALXORIATRXORIBULXDESTINOXDESATRXDESBULXTIPOXFLDCODXFLDATRXFLDBUL4GF&CF &C"% C  F >  F&CF&CF&CF&C%CF,>   %CF,>   F&CF&CF&CF&CF&CF&CF&CF&CFDCcodcompatrcompbulcompDCcodsustatrsustbulsustF 8CcodatrbulF!8CcodatrbulF"8CcodatrbulG BU# XORIGINALXORIATRXORIBULXDESTINOXDESATRXDESBULXTIPOTVENTASREEMP2_COD_INSVENTASXTIPBIENESCOD_INSFORTCOMPRASCOMPRASCONVERROTATRIBUTOCLAVEBULTOSSTOCK REEMP2_CODIGOMOVSTOCKSTKXDEPLISPRECCOMPROMICOSCOSMANCCFORMULFORMULAS REEMP2_EXCOMPROMCOMPPRODDSOLCOM%Ctventas ,Qtventas%Cventas ZQventas%Cbienes Qbienes%Ctcompras Qtcompras%Ccompras Qcompras%Cconver QCONVER%Cstock DQstock%Cbultos rQbultos%Catributo Qatributo%Cmovstock Qmovstock%Cstkxdep Qstkxdep%Clisprec 6Qlisprec%Crot ^Qrot%Ccompromi Qcompromi%Ccomprom Qcomprom%Cccformul Qccformul%Cformulas $Qformulas%Ccos LQCOS%Ccosman zQcosman%Ccompprod Qcompprod%Cdsolcom ?QC\data\CCZ6\dsolcomBUTVENTASVENTASBIENESTCOMPRASCOMPRASCONVERSTOCKBULTOSATRIBUTOMOVSTOCKSTKXDEPLISPRECROTCOMPROMICOMPROMCCFORMULFORMULASCOSCOSMANCOMPPRODP_UNOP_SYSTEMP_SERVER7;     #TC TC TC TC TC TC T T %CC 6 T -B-HK' tT     !T  C  T     '!T  C  T     lT   T     T  T    T    'T   T    T    B UXOCODXOBULXOATRXDCODXDBULXDATRXTIPOXEOCODXEOBULXEOATRXEDCODXEDBULXEDATRXVALIDOXOBAXDBAXEOBBXEDBBXEOAAXEDAAXEOBAXEDBAH . D hC C C C CU OEXTRADATATIPOPREPARA_DESTINOS_3PREPARA_DESTINOS_4PREPARA_DESTINOS_5PREPARA_DESTINOS_6PREPARA_DESTINOS_7FG((CODINS EFl>    C] C SN6FG((CODINS EFG((CODINS E>SU OEXTRADATABIENESCODINSCODIGOATRIBUTOCOD_INSRCODIGOCLAVERATRDESCRIDIDUACTIVOEST_ACT ATRIBUTOSFG((CODINS EFl>    C] C SN6FG((CODINS EFG((CODINS E>SU OEXTRADATABIENESCODINSCODIGOBULTOSCOD_INSRCODIGOCLAVERBULDESCRIDIDUACTIVOEST_ACT:FG((CODINS E>SU OEXTRADATABIENESCODINSRCODIGO ATRIBUTOS:FG((CODINS E>SU OEXTRADATABIENESCODINSRCODIGOBULTOSjFG((CODINS E>SFE%C4cU OEXTRADATABIENESCODINSRCODIGO ATRIBUTOSATRIBUTOCODIGOATRreemp1- reemp2_cod_ins reemp2_codigos reemp2_ex#reemp24 open_filesJValidar_Cambios,Prepara_Destinos #Prepara_Destinos_3$Prepara_Destinos_4&Prepara_Destinos_5q'Prepara_Destinos_6'Prepara_Destinos_7R(1BAA!AAr!qAAqaqQqQAAqqA"B1qAqAqAAAA1`2!aA2a1AqABB2brqrqrqqAqqAAsqrqrqrqrqrqrqrqrqrqrqrqrqrqqrqrqrqrqbB222A3braqa!rqAqaqaqaqarrArrAraqaqaraqaraqararAArqqbB21A!A!AAA1A!ArA!AAAAA1A1ARAAA1AAAAARA!AAAAB28AAqqqqBAqA1a1211a2a1QA2qabbaaaaA2qrqQrAr3qrqQrAr3qs3qs3qsq1AA1y6Q! Ge$#$|)oA)2g34w5q779)::C:;M;<W%6 c(Z6Ww4G_ G~(clases < 7 TTC abm_atributosN!TCU- C- BUXCODINSCLASESPOABMATRIBUTOSPOARTICULOATRIBUTO SOLO_LECTURAACCESOSHOW ges%Cbienes BFQbienescodins%Cbultos sF Qbultos%Cstock F Qstock%Catrhabil FQatrhabil%Catributo FQatributo%X%C vatributos TFQ vatributos +oatributo  vatributosF& & BU GESBIENESCODINSBULTOSSTOCKATRHABILATRIBUTOP_VISTAS_ATRBUL VATRIBUTOSCOD_INSXCODINSCLAVEDESCR T CUXCODINSPOARTICULOATRIBUTO B U7>CCSN6N6#>C N6>N>N >UACTIVOBIENESEST_ACTP_ART_COMB_ACTVENTA PROMOCIONAUTSURTIDO T <F ~mTTTT  T  T TTTTTpatributo     CC C]6% Nratributo     C]CFGF~C' G ,Cbienescodins F> !bienes2U#XCOD_INSPOARTICULOATRIBUTOPOABMATRIBUTOS VATRIBUTOSXIDIDCOD_INSXCLAVECLAVEXDESCRDESCRXACTIVOACTIVO XGRUPOATRGRUPOATR XAGRUPACION AGRUPACIONXAUTAUTXVENTAVENTA XPROMOCION PROMOCIONXSURTIDOSURTIDOATRIBUTOIDUATR_INICIALIZAR_COMBINACIONFORBIENESACTTHIS FECHAHORABIENES_FAST_ACTUALIZARBIENES2Cborrar BCUSYS_M ,Cbienescodins =Catributocodigo G((codigo%S6FG((codigo*~C zzz22abmcombinacionesCX abmcombinacionesF 3abmcombinacionesCXCX abmcombinacionesU XCOD_INSXATRBIENESCOD_INSBULTOSCLAVECODIGOSTOCKCOMB_BUSCAR_CREARABMCOMBINACIONESCOMB_SETEAR_VALORES_INICIALES openfiles  modificarDsugerir_no_numinicializar_registro hook_releasepborraratr_inicializar_combinacion TatributoT TCodigo:T- 'xdos_scatter.cod_ins + xdos_scatter.clave' TAtributo0T#vAtributos.cod_ins+vAtributos.claveT T  vatributosT  TdescrTdescrTclaveTclaveThlpT abmatributos T- TP TTclaveTclaveTCdigo T T T-     U DOS_TABLA DOS_COPIARP_ESPEJA_BUL_ATR_COMBP_ESPEJA_HABILITAR DOS_IDXCLAVEDOS_CLAVE_FORMULA BORRAR_TABLA BORRAR_CLAVETITULOOATR LABEL_PLURALTABLATITULO_BUSQUEDA LABEL_LARGOCLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 WINDOWTYPE SHOWWINDOW CERRAR_TABLAS abm_atributoshlpabm2 qbB2qAArAAAAArB`133q13qt "ABrAcqAarb3142rq"rA2B2SA1Rq!!!!!!14 a.&Qb1zg3k9s\@_;pJ@%@Xx4G_ G~(clases < 7 TTC abm_bultosN!TCU- C- BUXCODINSCLASES POABMBULTOSPOARTICULOBULTO SOLO_LECTURAACCESOSHOW ges%Cbienes BFQbienescodins%Catributo wFQatributo%Cbultos F Qbultos%Cstock F Qstock%%Cvbultos FQvbultos M&obultos vbultosF& & & BUGESBIENESCODINSATRIBUTOBULTOSSTOCKP_VISTAS_ATRBULVBULTOSCOD_INSXCODINSCLAVECODIGODESCRID T CUXCODINSPOARTICULOBULTO B U`7>CCSN6N6&>C N6UACTIVOBIENESEST_ACTP_ART_COMB_ACTVENTAX T <F ~TTTT  T  T TTTTTTTTT T!"T#$T%&T'(T)*T+,T-.T/0T12T34T56pbultos7777  7  7 777777777 7"!78CC78 C]7867$#7&%7('7*)7,+7.-70/721743765% "rbultos  8 "$&(*,.0246   C]!#%')+-/135C9FGF~C' 7G ,;Cbienescodins F;><=>?bienes2UAXCOD_INSPOARTICULOBULTO POABMBULTOSVBULTOSXIDIDCOD_INSXCLAVECLAVEXDESCRDESCR XCANTXBULT CANTXBULT XPESOXBULT PESOXBULT XVOLUXBULT VOLUXBULTXACTIVOACTIVO XGRUPOBULGRUPOBULXMEDIDAMEDIDA XMEDIDAAUX MEDIDAAUXXVENTAVENTAXUVENUVENXMEDCODMEDCOD XMEDAUXCOD MEDAUXCODXFACTORFACTOR XGENERICOGENERICO XCANTXPALCANTXPALXLARGOLARGOXBLARGOBLARGOXHAPILEHAPILEXAPILEAPILEXANCHOANCHOXBANCHOBANCHOXALTURAALTURAXBALTURABALTURABULTOSIDUBUL_INICIALIZAR_COMBINACIONFORBIENESACTTHIS FECHAHORABIENES_FAST_ACTUALIZARBIENES2 ,Cbienescodins ;Cbultoscodigo FG((codigo%S7F G((codigo*~C zzz32 abmcombinaciones CX abmcombinacionesF  3 abmcombinacionesCXCX abmcombinacionesU XCOD_INSXBULBIENESCOD_INSBULTOSCLAVESTOCKCODIGO ATRIBUTOSATRIBUTOCOMB_BUSCAR_CREARABMCOMBINACIONESCOMB_SETEAR_VALORES_INICIALES/ abmbultos_v2 abmbultos_v3BU ABMBULTOS_V2 ABMBULTOS_V3 openfiles modificarsugerir_no_numCinicializar_registroZ hook_releasebul_inicializar_combinacion dummy "TbultosT TCodigo:T- 'xdos_scatter.cod_ins + xdos_scatter.clave' TBultos*TvBultos.cod_ins+vBultos.claveT T vbultosT  TdescrTdescrTclaveTcodigoThlp7TC abmbultos_v3 abmbultos_v26 T- TP TTclaveTcodigoTCdigo T T T-    U DOS_TABLA DOS_COPIARP_ESPEJA_BUL_ATR_COMBP_ESPEJA_HABILITAR DOS_IDXCLAVEDOS_CLAVE_FORMULA BORRAR_TABLA BORRAR_CLAVETITULOOBUL LABEL_PLURALTABLATITULO_BUSQUEDA LABEL_LARGOCLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIOP_BIE_BULTOS_VERSION CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 WINDOWTYPE SHOWWINDOW CERRAR_TABLAS abm_bultoshlpabm2_agregar_x_listaqdB2qAAArAAaArAP133qa3qv"'BBrAbqAarb8rrr!qA2B4AAA13A12A!!!1q!111 p+1Y^.c0Pg3wRleaw{\= % 'Dn\X/x%C% TG_ G~(clases<7TC abm_depositoNTCU- BU XSHOWWINDOWCLASESPOABMDEPOSITOS SOLO_LECTURAACCESOP_DEVSHOW ges%Cusuarios AQ \usuarios%Cbienes rF Qbienes%Cbultos F Qbultos%Catributo FQatributo%Ccentral FQcentral%Cproveedo @FQproveedo%Cprovinc {FQ\provinc%Cdeposito FQdepositoFBUGESP_SYSTEMBIENESBULTOSATRIBUTOCENTRALPROVEEDODEPOSITOE CTC]TC]TC]UTHIS TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 %Ccentral 7Qcentral ocentral% TCXF.>NNNUXREGXCENTRALCENTRALDISTINCT ABMDEPOSITOCALIDADFACCOM TTT TTTU XTMPXTMP1THISFORM TMP_TABLA_1 TMP_TABLA_2XTMP2 TMP_TABLA_3DEPHIJAS_ABRIRTIPOABMXCODIGO4*FU HIJAS_GUARDAR ABMDEPOSITODEPOSITOTHISFORM DOS_COPIAR TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3UU TTC]%C tmp_depminZFQ odepminQXbienesQ  XatributoQ    XbultosQ  CC қCCC  6CCC   6Q 1\tmp\Q\tmp\%(& Cg@BC gC g &   F#)UXTIPOABM XDEPOSITOXTABLAXTABLA1XTABLA2XXXDEPOSITO TMP_DEPMINDBIDESCRATRATBULBUDEPMINBIENESCODCOD_INSATRIBUTOCLAVEBULTOSP_LOCALP_NUMINSIDZ%C tmp_depmin5FQ\tmp\.*UXTABLAXTABLA1XTABLA2 TMP_DEPMINP_LOCAL4FqdepminFC > C]F! \tmp\C FQ%  \tmp\.dbfBU XDEPOSITO XDOS_COPIAR XTMP_TABLA_1 XTMP_TABLA_2 XTMP_TABLA_3 TMP_DEPMINDEPMINDEPOSITOFORCODIDUALLP_LOCAL G_ 5 TG~(clases<7TC abm_depositoN%CaT  T C BU XDEPOSITO XNEWCODIGO XSHOWWINDOWCLASESPOABMDEPOSITOSCLONAR XCLAVEPOSRELEASE openfiles initinicializar_registro hijas_abrir hijas_guardarhijas_guardar_dos?finalizar_modificacionesJdephijas_abrirUdephijas_liberar hijas_guardar clonar_deposito \T DepsitosTdepositoTdepositoTdepositoThlpT abmdeposito2 T-TdepositoT  T  T <TdescrT DescripcinTdescrTC TTdepositoTCdigoTdepositoTC TTcentralTCentralTcentral1TCTC]TC]TC] T T! T      U"TITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICA DOS_TABLA DOS_COPIARP_ESPEJA_DEPOSITOP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2 TMP_TABLA_1 TMP_TABLA_2 TMP_TABLA_3 SHOWWINDOW XSHOWWINDOW WINDOWTYPE abm_depositohlpabm2 qAbsqBp1AAAAAAaAArAp111111A"QAt:4r418qqAAaArQ5qAA4qrrrrAAB1brqqA1cQQQTA!!Q1QAAQP6G+2 ` 8 R DCaM(PTTRS dI%k 0z(Mo[%(H@`l=Mx4%m)Te:\sistema\340\system\data\1"Te:\sistema\340\system G( ges Qidx04 ~CG(BUXDEVP_SERVERP_SYSTEMGESIDX04SQL_ACT_CAMBIOFECHA  ges%Cidx04 5 Qidx04TCBrokerf%'TCCC-[-[jTCEdelete from dbo.TemporalCAMBIOS where convert(char(10), fecha, 120)=''arrSQLi!oidx04cur1 ~ T T  T  T T T T T  T T T T  T T T T  TT T T <  TCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('ARS','USS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('ARS','KOR','C',CC  Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('ARS','YEN','C',CC  Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('ARS','EUR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('USS','ARS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('USS','KOR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('USS','YEN','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('USS','EUR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('KOR','ARS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('KOR','USS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('KOR','YEN','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('KOR','EUR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('YEN','ARS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('YEN','USS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('YEN','KOR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('YEN','EUR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('EUR','ARS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('EUR','USS','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('EUR','KOR','C',CC Z)curSQLarrSQLiTCLinsert into dbo.TemporalCAMBIOS (de, a, fecha, cambio) values ('EUR','YEN','C',CC Z)curSQLarrSQLi CgBU!XFECHAGESIDX04OCONNXFECHAS_STRINGOERRCUR1FECHAX_0_1INDICE1X_0_3INDICE3X_0_4INDICE4X_0_5INDICE5X_1_0X_1_3X_1_4X_1_5X_3_0X_3_1X_3_4X_3_5X_4_0X_4_1X_4_3X_4_5X_5_0X_5_1X_5_3X_5_4ARRSQLsql_act_cambioq!AAcB2qrAb2rr2 1 1 1 2 1 1 1 2 1 1 1 2 1 1 1 2 1 1 1 CBB1^%rIav~GxU ges C%CCOS9FQF Qcos%CultcosqFQF Qultcos%CBIENESFQFQbienesdescins%CSTOCKFQFQstockcodigo%CBULTOS5FQF Qbultos%CATRIBUTOrF QFQatributo%CSTKXDEPF QFQstkxdep%CCONSF Q% F F%CCONSDQ \CONS#)%CIDX04nFQF%CIDX04Q\idx04idx04BUGESABRIR_TABLAS_FIJASCOSULTCOSBIENESDESCINSSTOCKCODIGOBULTOSATRIBUTOSTKXDEPCONSP_TABLAS_FIJASP_PRIVIDX04P_COMMONBUBU open_files, inicializar}variables_publicas1RDqAArqAArqAAbqAAarqAAqAAqAARqAAAa1AQbqAAqAB2E3C1;ESXG`%U .#q5xU(% ! U XNO_MARCARTHIS ABRIR_BARRACUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOCUTHIS MARCAR_ESTADOgFG(( equipo_id E#% C, W Ta BUXCIERRACASHUSE EQUIPO_ID P_EQUIPO_IDEDITAREDITAR_F4 TC C CFG((Generar Ta~ H LT?El cashflow est en proceso de generacin, por favor espere !!! T-!G(( SELECT &xAlias $ BU XTMPMSGXALIASXOKTHIS ABRIR_TABLALIMPIAR_FANTASMASCASHUSEGENERAR EQUIPO_ID P_EQUIPO_ID C CFG((Generar Ta~oHo\  bTUNo se puede generar el CashFlow porque otra mquina est esperando para generarlo !!! \YTLNo se puede generar el CashFlow porque otra mquina ya lo est generando !!! T-!G(( BU XTMPMSGXOKTHIS ABRIR_TABLALIMPIAR_FANTASMASCASHUSEGENERAR EQUIPO_ID P_EQUIPO_ID C CFG(( Ta~He 9T,Debe esperar a que se libere el cashflow !!! T-!G(( BU XTMPMSGXOKTHIS ABRIR_TABLALIMPIAR_FANTASMASCASHUSE EQUIPO_ID P_EQUIPO_IDEDITAR6%Ccashuse /FQcashuseUCASHUSE.FG(( ~'#% CX W>#% C >#% CX >#% CX #>U CASHUSEEDITAREDITAR_FVERVER_FGENERAR GENERAR_FBARRABARRA_F   CFG(( equipo_id E%C4 f >C REPLACE &xCampo WITH xEstado $REPLACE &xFCampo WITH DATETIME() U XDONDEXESTADOXCAMPOXFCAMPOTHIS ABRIR_TABLACASHUSE EQUIPO_ID P_EQUIPO_ID OBTENER_LUGAR H  YTBarraTBarra_F TGenerarT Generar_F TVerTVer_F TEditarTEditar_FUXDONDEXCAMPOXFCAMPOINIT0 Abrir_Barra Cerrar_BarraAbrir_GeneracionCerrar_GeneracionEspera_GeneracionKIniciar_GeneracionTerminar_GeneracionAbrir_VisualizacionCerrar_Visualizacion Abrir_EdicionKCerrar_Edicion~Cierre_ForzadoPuede_Ver_Editar\ Libre_Generar Puede_Generar Abrir_Tabla(Limpiar_Fantasmaso marcar_estado  Obtener_lugar'                U Mod_CashflowCUSTOM??qA212121212A2121212121212qq!1A2qqqqA1AAAa!B2qqqA!1AAAa2qqqaA1AAAa3A2qa1A1A1A1AA2q!QAA21!A1Aa1!11QA2@0P1B 8R |! $Lf'*-30Zt3L6%v<@=bh ZQ oc Q h{ y #I%%GFi3x CTCFXh1NCNCxCQ H C -1 C -2G( C 2G( F G((A3 ~  (C >%C \SF E%C4=rborrar     Ca010592BCa010592F Hn E&  n& 2(Crpt_sys_permisos_asignadosCborrarBU OPEN_FILESXBORRARODEYFUNCNEWFILE_LOCAL_TMPUSE_CODUSE_DESPER_CODPER_DESPER_SECBORRARXSECSECCION TMPPERMISOSBA010592BA3A4XDUSRNITA2CODTEXTO CHK_CLOSEDXTIPFULLGET_PATH CHK_DELETEDu D:CCrpt_sys_permisos TMPPermisosB(RC TMPSeccionesUODEYFUNC CHK_DELETEDGET_PATHOEX CHK_CLOSEDGCpermisos CCa010592B wF!QCa010592(F!QCa010592 %C TMPPermisosBF Q +QCrpt_sys_permisos & G((codigo%C TMPSeccionesUFQo TMPPermisosBCCC Sin AsignarC>6QCCC Sin AsignarC>6QCCC-2C>6Q TMPSecciones& /r TMPSeccionesTodas-1UODEYFUNC CHK_OPENEDP_SYSTEM OSECURITY SEC_TABLE_GET CHK_CLOSEDGET_PATHA010592OEXA010592B TMPPERMISOSBSYS_SQL_PERMISOSCODCODIGO TMPSECCIONESSECCIONORDENFILTROFULL Clean_Files Open_Filesqq1ArqAAAAqr1b1bA"B2A3AqAArqAA 2&:,G B%=Ai3yc%CxSecbC)T-1 C%C TMPPermisos^FQPopermisosCCxQCCQ TMPPermisos& FH0 C-1 C-2 G(C 20G(((C rpt_sys_permisosQU XSEC OPEN_FILES TMPPERMISOSPERMISOS_DESCRDESCRTEXTOSECCIONPERMISOSFULLODEYFUNCGET_PATH6 dey_func2CpermisosUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDP_SYSTEM  %-'TC:%%zTC= TC\ % T  T BCUXDESCRXPARTEXCODXRETURNXAT%C TMPSecciones/FQ%C tmppermisos -%CCrpt_sys_permisos0 *QCrpt_sys_permisoso TMPPermisosCCC Sin AsignarC>6QCCC Sin AsignarC>6QCCC-2C>6Q TMPSecciones&  %/r TMPSeccionesTodas-1U XAGREGAR_TODAS TMPSECCIONESODEYFUNCGET_PATHSYS_SQL_PERMISOS TMPPERMISOSSECCIONORDENFILTROFULL Open_Filespermisos_descrzobtener_seccionesAqAA!rqqAA2A3B111aaA1AA3qqAAqAA A2} %,<%Y1 S9y%C4TC$  Ta TaTC%CTC% % ?C2Los tipos de cambio del da se han actualizado !!! tCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!! BU XAUTXDEVXLOGXFECHAXACT1XACT2SYS_MONEDAS_BNA P_MON_DOL_AUTSYS_MONEDAS_BILLETEMENSAJE1AsAaAAAB1% t/aTmyx%CCCC^=g% %CٍAntes de las 15hs toma el cambio del da anterior, luego de las 15 puede tomar el del da anterior o el del cierre de la fecha !!! Contina ? B%7 TC!G+(c:\sistema\2000\internet Ta SG+(internet%Cidx03 Qidx03%Cidx04 Qidx04 \tmp\cambios.txtoT CGhttps://si3.bcentral.cl/Indicadoressiete/secure/Indicadoresdiarios.aspx \tmp\cambios.txt % @ ?Bajada TC chile: No se pudo descargar el archivo de monedas (1)sys_monedas_chile.prg% <SC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0 H ?Bajada TC chile: No se pudo descargar el archivo de monedas (2)sys_monedas_chile.prg% @=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %b Bajada TC chile: ID=sys_monedas_chile.prgAC"\log\Monedas\Tipos de cambio chile.txt T-% TC$ T-CC lar observado

C C 
 TT
(CDOLLTEUR C C 
 TT
(C060%:% ?C2Los tipos de cambio del da se han actualizado !!! %6t (Bajada TC: Se actualizaron correctamentesys_monedas_uruguay.prg [ % tCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!!  CBajada TC: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_uruguay.prgBUXAUTXDEVXLOG MENSAJE_SINOBBBCINTERNETIDX03IDX04P_LOCALAAAUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDP_SYSTEM XCONECTADOXFECHA XACTUALIZADOXDESDE XDESDE_VEZXHASTAPROCESAR_DESDE_HASTA  $T C C C>'\T C C =TCCC ,. gBCUXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADOXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTOLIMPIAR_NUMERO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((IDX04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_ID TC>(%%C= 0123456789. TC[T BCUXNUMZZZprocesar_desde_hastan registrar limpiar_numeroA AAAA!ArArA21Q1AAbQAAABAAAA"AAAAAAB22B3q2rrAAABAAAABB2qQAA1K, xR\vw-%  t@y;$%C\inst\geshd.exe0.| ShellExecute SHELL32.DLL6TCopen geshd.exe\inst% WC&No se puede ejecutar el soporte remotoC Cdigo del error: CCZ 4-C Soporte remoto deshabilitado !!!UXERRORP_SYSTEM SHELLEXECUTESHELL32DLLMENSAJEqAc1qAA1 %JPKFU'z %Cdeposito 5Qdeposito%CCuDepsito de transferencia para mercadera disponible pero en depsitos no pickeables no configurado (picking_int) !!!B -%CCdepositodeposito |CoDepsito de transferencia para mercadera disponible pero en depsitos no pickeables invlido (picking_int) !!!B%CqQ%CqqQ%Cmotinv Qmotinv%Cartxcli &Qartxcli#%Cmotinvcodigo% c }CpExiste el motivo de cambio de cdigo y transferencias pero no est bien configurado como 'de altas y bajas' !!! B CJNo existe el motivo de cambio de cdigo y transferencias para pickings !!!C $C (p_picking_cbio_cod_trf)6 B#%C motinvcodigoQ%  MlC_Existe el motivo de cambio de cdigo pero no est bien configurado como 'de altas y bajas' !!! B rC9No existe el motivo de cambio de cdigo para pickings !!!C C (p_picking_cbio_cod)6 B%Cbienes Qbienes%Catributo 6Qatributo%Cbultos dQbultos%Cstkxdepg Q \stkxdepg%Cstkxdep Qstkxdep_otccvent0   q1TXoq1tventasXbienes  Xbultos "Xartxcli QCCC ҡ$CCC ҡ  6 6Q! q2T$%\tmpC]&oq2XcompromQ/ #C#ZCZ#CC&Q'#CC&Q(CCC&6Q) Q*CXQ+ Q, Q-C0CXC1#####(1$Q$2 ~ >+C3#>*C)SINO6T2%4 ostkxdepgQ9depositoQ:5C67Q,52 9 67 ;S <S  q3  ostkxdepQ9depositoQ:5C67Q,52 9 67 ;S <S  q3>,=,Q=& C ZCZT>C]h1%\tmp\>N N 5CCCC?C6N+CP@N AC!N Q%\tmp\>& C ZCZFG-(C ZCZ TBa ve_quiebres(B%Be CD%Cq Q%Cqq QBUEXPEDIDODEPOSITO P_PICKING_INTMENSAJEQQQMOTINVARTXCLIP_PICKING_CBIO_COD_TRFTIPOP_DEVP_PICKING_CBIO_CODBIENESATRIBUTOBULTOSP_SYSTEMSTKXDEPTCCVENTPEDIDOIDCOD_CLIEST_DESPQ1XCOD_CLITVENTASCOD_INSATRBULITM RECEPCIONRECEP2CAN_PD CANTXBULTUXBCLAVEQ2XTABLAP_LOCALCANCAN_COMFALTASHAY_PCKHAY_PCK2DESCR DISPONIBLEASIGNADOCOMPROMCDEP P_PICKING_ERRXID_ARTFN_DESCR_QUIEBRESP_IN_STOCK_GLOBALCODIGOCANTIDADCANT_COMSTKXDEPGSDPICKINGVENDIBLEQ3XTMPFILEDESPACHOEMPDPCKXRES VE_QUIEBRESPROCESAR_QUIEBRESI TCWFG((codins E%S{FG((codigo E%SF G((codigo E&%S S 0T CC  C  C  /T C  F B U XCODXATRXBULXAREABIENESCODINSBULTOSCODIGO ATRIBUTOSATRIBUTOXDESCRDESCR%Cmotinv *Qmotinv%Ccomprom ZQcomprom%Cbienes Qbienes%Cdeposito Qdeposito%Cdespacho Qdespacho%Cstkxdep Qstkxdep%Cstock HQstockF T~ F D~C  ZC ZC  ZC Z  TC%(<C/Se han registrado errores en la transaccin !!! xFC9Los cambios de cdigo se han registrado correctamente !!!BUMOTINVCOMPROMBIENESDEPOSITODESPACHOSTKXDEPSTOCKQXERRASIGNADOQQPEDIDOITMCANTIDAD TRANSACCIONMENSAJEf% B%%Cbienes_2 3Q\data\CCZ\bienes%Cstock_2 2Q\data\CCZ\stock%C stkxdep_2 (4Q\data\CCZ\stkxdep%C movstock_2 }5Q\data\CCZ \movstock%C comprom_2 4Q\data\CCZ\comprom%C despacho_2 %5Q\data\CCZ \despacho %Cconver_2 v3Q\data\CCZ\conver %C conver2_2 4Q\data\CCZ\conver2  T  T  Ta T T%ztrsacbienesstockstkxdepcomprommovstockdespachoconverconver2 trsacbienesstockstkxdepcomprommovstockdespachoconverconver2bienes_2stock_2 stkxdep_2 comprom_2 movstock_2 despacho_2conver_2 conver2_2%V T?trsac Ve_quiebresAnlisis de Quiebres%aTC%E T ]T k?trsac Ve_quiebresAnlisis de Quiebres THE 2/CC  ZMC  ZM %  . E T BUQQEMPP_CODEMPP_SYSTEMBIENES_2STOCK_2 STKXDEP_2 MOVSTOCK_2 COMPROM_2 DESPACHO_2CONVER_2 CONVER2_2XTRANSFXTRANSF2TRSAC XRESULTADOAAALOCK_GBEG_TRANCAMBIAR_CODIGOEND_TRAN XRETURN_TRANUSER_LOG PUB_INDEX TTS_ERRORTTS_ID 4%!F 2FG((DESPACHO!E%C4 B^(BUAAA_XXXXEN2 DESPACHO_2DESPACHOQQCODIGOBULATRs%T Tg  cMCC ZC$1  %  T rconver_2 C$a    Cbio x C MV CCZ: CCZ hTdproc_stk  cMCC ZC$1 %  e T rconver !C$a    Cbio x CC # MV CC Z: CC"Z6BU#XTRANSFXITMXEN_2XERR REG_STOCK2QQCODIGOBULATRDEPOSITOCANTIDADDESPACHOEMPSTK_ERR TTS_ERRORTRANSFMOTIVOFECHACOD_INSBAJADEP_INGDEP_EGRITEMENTRASALECOMENTUSR_BAJAP_PICKING_CBIO_COD_TRFQP_CODEMP PUB_INDEX REG_STOCKPROC_STKP_PICKING_CBIO_CODXTRANSF2C Suspendo?a T T T T T< FG((CONVER#6T  &rconver2   C% JFG((CONVER#6T (r conver2_2  CCaCa tCC FG((DESPACHOCEC CNACIONAL 6  %C4 S_% >CNACIONAL>>>Tproc_stkC S C6 MCC  ZC$1C CNACIONAL 67rconver  !"#$%& 'C$aC S 6 C CNACIONAL 6 Cbio x C (C # MV CC Z: CCZ6)% h B { BU*SYS_MOSTRAR_SCREEN TTS_ERRORSTK_ERRSTK_MSGXITMXITM2 XLOTE_VIEJOCONVER2CONVERXTRANSFTRANSFDTQQEMPP_CODEMP CONVER2_2XTRANSF2 LOTE_VIEJOBAJADESPACHOQCOD_INSBULATR REG_STOCKPROC_STKDPCKDEPOSITO P_PICKING_INTCANTIDADMOTIVOFECHADEP_INGDEP_EGRITEMENTRASALECOMENTUSR_BAJAP_PICKING_CBIO_CODCODIGO PUB_INDEX;4     T%C g T %C T %C T 5F%yG((codins%; E%C4 + C TC4 P Ta% u TB%S T %S T  T F%S C  C 125689 % 1256}7   +    BUXCODXBULXATRXDEPXCANXCAUXNUMXFECXITMXTIPXDSPXSEDXSEHXEMPXERRXCOD2XBUL2XATR2BIENES_2COD_INSCODINSERR_7ENCLOTESSERIES ACT_BIENES2ACT_MOV2ACT_STK2 4F%gG((codins E%C4 c T%125689> %34> %7> %59"> %4O> %6|> BU XCODXCANBIENES_2COD_INSCODINSXERRXTIPCANT1INBIENESCANT2CANT334   T CF  C>C  C F BUCODBULTATRICANTDEPCAUNUMFECITMDSPSEDSEHAAA MOVSTOCK_2REG_LOCKCODIGOBULATRCANTIDADDEPOSITOFECHAUSR PUB_INDEXNUMEROCAUSAITEMDESPACHOHORA34   TC T C  T C  %C>9C+Error en largo de campo depsito. Suspendo?a H 1(?C-  2{?C-  3AC-   4(DC- c   5~BC-   6@C-  7'AC-   8z?C-  9BC-  %C%S|FG((despacho+%N Ta yE TC4% VC Debe estar definido el despacho C para C !!!  C% 125689>% T' T4T'- Cantidad x lote queda en negativo !!!#CStock Error Suspendo?a 'proc_stk  -% S  x]C 'Serie: La cantidad debe ser 0 o 1. DSP:C COD: C !!! BU!CODBULTATRIDEPCANTDSPSEDSEHSXCAUSXNUMSXFECXEMPSYS_MOSTRAR_SCREENXTIPG_STOCK2BIENES_2LOTES DESPACHO_2DESPACHOCOD_INSBULATRENC ERROR_STKREG_LOCKCANTIDAD P_IN_VERSION TTS_ERRORSTK_ERRSTK_MSGLOG_ERROR_STOCKPROC_STKSERIES45 TC$ TC^ TC$%%C=23 -TCC=C\CR -TCC=C\CRTCD BU NUEVAHORAAAABBBCCC P_MIN_HORAC     T C  T C  T C  %CxempbN T%C>9C+Error en largo de campo depsito. Suspendo?aTC%C>%CPTC >C0Error en largo de campo lote/despacho. Suspendo?a TCWFG((codigoE%C4 0rstock_2%a5>I>  )%  iT' T-T  - Cantidad queda en negativo !!!#CStock Error Suspendo?a'!proc_stk    %#A$logmsg&'(CANTIDADCOC')%  T' T-T  - Cantidad queda en negativo !!!#CStock Error Suspendo?a'!proc_stk    %#A$logmsg&'(CANT_PEDCOC'F)G((codigoE T*C4%*  ZT%C+ %C despacho_2 Q despacho_27%,+,-,,/C despacho_2despacho7%,+,-,,FT,.%C%Cbienes Qbienes%/-CbienescodinsT,0/.%* ?Pr stkxdep_21+. V >.%+>-> )%  T' T>T 1- No hay stock suficiente o queda en negativo !!!#CStock Error Suspendo?a'!proc_stk    %#A$logmsg&'(CANTIDADCOC')%  T' T:T -- Cantidad comprometida queda en negativo !!!#CStock Error Suspendo?a'!proc_stk     %# A$logmsg&'(CANT_COMCOC'*%   T' T0T #- La cantidad est comprometida !!!#CStock Error Suspendo?a'!proc_stk    > %#: A$logmsg&'(CANT_COMCOC'%  F)G((codigoECX%C4 Hr stkxdep_21+CX% >> %2%Cstockg [ Q3\stockg%Cstkxdepg Q3 \stkxdepgF4G((codigoE%C4 /rstockg%F 5>I>  4%     F5G(( codigoempECZ T*C4%*  KT%C+ %C despacho_2 yQ despacho_27%,+,-,,/C despacho_2despacho7%,+,-,,.T,.%C%Cbienes mQbienes%/-CbienescodinsT,0/.%* 0Yrstkxdepg1+7. G >.%+>-> % F5G(( codigoemp!ECXCZ%C4 gQrstkxdepg1+7CX% >>   FBU8XCODIGOXATRXBULXDEPXDSP XINICIALIZA XCANTIDAD XCANT_PED XCANT_COM XCANT_PRDXCANT_OCSXCAUSXNUMSXFECXEMP XFORZAR_VENCP_CODEMPXVENCSYS_MOSTRAR_SCREENXAREASTOCK_2CODIGOATRBULCANTIDADCANT_PEDCANT_COMCANT_PRDCANT_OC P_IN_VERSION TTS_ERRORSTK_ERRSTK_MSGLOG_ERROR_STOCKPROC_STKP_LOGSTKLOG_STKLOGMSGXCAUXNUMCANT STKXDEP_2XENCDESPACHO DESPACHO_2COD_INSVENCBIENESFECHADEPOSITOP_IN_STOCK_GLOBALP_SYSTEMSTOCKGSTKXDEPG CODIGOEMPEMPfn_descr_quiebres>procesar_quiebres transaccion lote_viejofbaja<cambiar_codigo reg_stock2& act_bienes2{*act_mov2^,act_stk2 .hora5g_stock26qAA!AAAA"A2A!A1A2aAqA2aA!A!AAA!AA1Aar12 A2BA rqB#A2AB5rsrqArqAc!A3!A1A!AAAAA1ArArBsA"BA2aAC3bAa1A!AAAQAAAQA1AAABrbA222AB1B2BD2qqAAB2qALABA2rrsQbbsQ2"Bu1QaAC, uA3"A!A!Ara1AAAAArqAAdvqAFB2q1ABQAQQAAQARQAAQAAQAB21qQA3121SBAAAAAA!AAAA!ARqqQAaAA2rABACAB3qrQA!2121ArR"BR!BCrrAVB2rAA2rAAsr2"aArArA!AbArBBABB2rAA2rAA2rAA3rABA4AAsAVBBs!r2"aArArA!AbArBCABB2r!ABABBA1e}"2#6$G$**3438dc81;G;;=P=G.GHPHgb0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _0AX0Z5I6V 708479236:g WINDOWS _0AX106CKN 708479215  COMMENT RESERVED I WINDOWS _0DV0OR723 715938848#a WINDOWS _0DV0OR72D 715938848  0n WINDOWS _0DV0OR738 715938848 ~ + COMMENT RESERVED R WINDOWS _0I90WTWJH 726760034 ^ COMMENT RESERVED  WINDOWS _1RZ0YGQRA 881557867l    COMMENT RESERVED  WINDOWS _1RN0VCELQ 8816149287"h$  COMMENT RESERVED  WINDOWS _1RZ0Y2XKG 881682746%m51$L COMMENT RESERVED G WINDOWS _1RO0ZECXT1384353447JWc. COMMENT RESERVED ;. WINDOWS _56Z0XVGF21386380947ffǠf WINDOWS _59S0P3S5X1384353586:~]̀!~6ݝ WINDOWS _59S0P3S5Y1384351396.}-eBeSevY WINDOWS _56Z0Z1KW31384351396ހ;}.hLgq WINDOWS _56Z0YY4201384353586(0Nh10G WINDOWS _56Z0YY4231384352678Jfe-?ϵ! WINDOWS _56Z0YY424138435139621] WINDOWS _56Z0YY4251384351396V1ch> ??xrh$ WINDOWS _S6X16L96T1384353586r*er;H1V۲ WINDOWS _56Z0YRZSE1384353837>}fL}Uú WINDOWS _56Z0YRZSD1384353586ّ9I}9}&} WINDOWS _56Z0YRZSB1384353586>;>>h=6 WINDOWS _56Z0YRZS81384353586Ku "Q֯Ķ WINDOWS _S6X16L96T1384353586k.=7gL^}/ WINDOWS _56Z0ZV0IM13843513961=hfyff COMMENT RESERVED gɌ WINDOWS _61H0Y2HK31454403402< <dFBO4 WINDOWS _61H0Y9NGS1454398317Iˏγ@J֜ WINDOWS _S6X16L96T1454398317:ʑe/Yq}/ WINDOWS _61H0Z78O71454398317Ki;KK WINDOWS _6M90NZ3T91454403402e}e~/ WINDOWS _S6X16L96T 653762331.ue}~5D% WINDOWS _S6X16L96T1454398317G8# WINDOWS _61H0Y9NGX1454397522څ˅ DŽ WINDOWS _6M90OK0OO1454398377" = ҂.w COMMENT RESERVED  WINDOWS _S6X16L96T1458271252r~(.\iN COMMENT RESERVED A WINDOWS _S6P11WE3E1458335587&LDt$f COMMENT RESERVED X WINDOWS _6P70GZN7Q1461604664~~c4~// WINDOWS _6P70HBJ341461604491mX9$p( WINDOWS _6P70HBJ3J1461604491Ћnnd WINDOWS _6P70HBJ3K1461604491~ ? WINDOWS _6P70HBJ351461604491Sp<{ WINDOWS _6P70IHYH81461604491/3<H<g<0y WINDOWS _0AX0Z5I6V1461604491|<0<K<+ 9 WINDOWS _0AX0Z5I6V1461604491L7LFLf[L c COMMENT RESERVED ~[*WINDOWS _S6X16M61X1488345538ihh61\]*WINDOWS _1CQ15F4BJ1488345538Ahhh gnIu*WINDOWS _1O00STERI1488345538[f;fd,*WINDOWS _1RN0V2X5X1488345538Ffe6fee.*WINDOWS _1RN0V2X5Y1488345538LKLLL*WINDOWS _S6X16L96T1488345538pL1J=J=|*WINDOWS _1RN17IEQO1488345538<;;\;E;I*WINDOWS _1RN17IEQP14883455380;q0 ; ;Z0F=*WINDOWS _S6X16L96T1488345538E0/n/0W/s1*WINDOWS _1RO0ZMWU31467827018:/+/. /T.JYs*WINDOWS _1RO10GI6214883455387.(.# .#bp*WINDOWS _1RO10GI631465563396##s#U#a_ p*WINDOWS _1RO10GI6514655633968#}_5^d\l*WINDOWS _1RO10GI661465563396w[X_`*WINDOWS _1RO10GI681465563396r+ kWnU5]*WINDOWS _1RO112MKN1465563396N?* TSG*WINDOWS _1RO112MKP1465563396ZxC#ZRE*WINDOWS _1RO112MKQ1465563396&By.eB*WINDOWS _1RO112MKR1465563396JkL/,=?*WINDOWS _1RO112MKS1465563396/;&&)6*WINDOWS _1RO112MKU1465563396o X )*WINDOWS _4O61331OW1488345538_ E  . WN (*WINDOWS _6AQ0W7BUX1488345538 / *WINDOWS _6AQ0W7BUY1488345538 vH *COMMENT RESERVED }*WINDOWS _S6X16M61X1493533199BȚBoBBB*WINDOWS _1CQ15F4BJ1493533200"/=T*WINDOWS _1O00STERI1493533200O*WINDOWS _1RN0V2X5X1493533200CXgw*WINDOWS _1RN0V2X5Y1493533200%4DZq*WINDOWS _S6X16L96T1493533200(?*WINDOWS _1RN17IEQO1493533200*WINDOWS _1RN17IEQP1493533200|*WINDOWS _S6X16L96T1493533200K`o*WINDOWS _1RO0ZMWU314678270187F[yB*WINDOWS _1RO10GI6214935332002O^s~*WINDOWS _1RO10GI631465563396)>\sJ*WINDOWS _1RO10GI651465563396 *9Nl]*WINDOWS _1RO10GI661465563396    % < ) *WINDOWS _1RO10GI6814655633968Udy*WINDOWS _1RO112MKN1465563396 (7Lj]U*WINDOWS _1RO112MKP14655633968Udy *WINDOWS _1RO112MKQ1465563396#%#4#I#g#~#_$&*WINDOWS _1RO112MKR1465563396)))*2*I*&+p-*WINDOWS _1RO112MKS1465563396000001114*WINDOWS _1RO112MKU1465563396U7r777778:*WINDOWS _4O61331OW1493533200>'>:>K>[>r>?@*WINDOWS _6AQ0W7BUX1493533200@AA A6AMA*WINDOWS _6AQ0W7BUY1493533200AAAABB*COMMENT RESERVED BB WINDOWS _S6X16M61X1493533257-CCRCCDXD:LkQ WINDOWS _1CQ15F4BJ1493533257lllll7mKp WINDOWS _1O00STERI14935332577tDtQt]tttt{u WINDOWS _1RN0V2X5X1493533257vvvww.w WINDOWS _1RN0V2X5Y1493533257wwwwww WINDOWS _S6X16L96T1493533257hx}xxxxx WINDOWS _1RN17IEQO14935332577yLy[ykyyy WINDOWS _1RN17IEQP1493533257zz*z:zPzgz WINDOWS _S6X16L96T1493533257zzz {{6{ WINDOWS _1RO0ZMWU31467827018{{{{|||A~ WINDOWS _1RO10GI621493533200ـ2- WINDOWS _1RO10GI631465563396ȦԧI WINDOWS _1RO10GI651465563396íح . WINDOWS _1RO10GI661465563396Pm|ƴ WINDOWS _1RO10GI681465563396»߻!8k WINDOWS _1RO112MKN1465563396  WINDOWS _1RO112MKP1465563396!8W WINDOWS _1RO112MKQ14655633962 WINDOWS _1RO112MKR1465563396\y WINDOWS _1RO112MKS1465563396"?Ncs WINDOWS _1RO112MKU1465563396  ?V2} WINDOWS _4O61331OW1493533257` WINDOWS _6AQ0W7BUX1493533257v WINDOWS _6AQ0W7BUY1493533257F[jz COMMENT RESERVED _vVERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 barraPixelsClass1formbarra*asignar_color form!Arial, 0, 9, 5, 15, 12, 32, 3, 0 1ges.vcxboton_barra_principal15barra_punto_de_ventaPixelsClass9moduloPixelsClassformmoduloformbarra_principalPixels24~PROCEDURE Load dodefault() This.Asignar_Color() ENDPROC PROCEDURE asignar_color this.BackColor=sys_color() ENDPROC ClassbarraCheck_empresa811!Arial, 0, 9, 5, 15, 12, 32, 3, 0 132 check_empresaPixelsClasscheckbox check_empresacheckboxcheck_ejercicio1 menu = contab Name = "modulo" form1xxxxxxxxxClassPixels!Arial, 0, 9, 5, 15, 12, 32, 3, 0 PixelsClass1checkboxcheck_ejerciciohejercicio ejercicio2 *ejercicio_access *ejercicio_assign *presencia *habilitacion *activado Height = 27 Width = 65 Alignment = 0 Caption = "Ejercicio" SpecialEffect = 0 Style = 1 Visible = .F. ejercicio = .F. ejercicio2 = .F. Name = "check_ejercicio" checkboxBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 checkbox Arial, 0, 7, 4, 12, 9, 24, 3, 0 boton_barra_secundariaPixelstAutoSize = .T. FontBold = .T. Caption = "Progreso" Height = 17 Left = 5 Top = 13 Width = 55 Name = "Label1" Label1Classbarra_principalgTop = 2 Left = 447 Width = 65 Alignment = 0 TabIndex = 8 ZOrderSet = 22 Name = "Check_empresa8" barra_principalvisor commandbutton commandbutton!Arial, 0, 9, 5, 15, 12, 32, 3, 0 DTop = 9 Left = 72 Height = 24 Width = 266 Name = "Olecontrol1" ges.vcx check_empresagTop = 2 Left = 384 Width = 65 Alignment = 0 TabIndex = 7 ZOrderSet = 21 Name = "Check_empresa7"  commandbuttonbarra_principalCheck_empresa7checkboxges.vcx check_empresaoAlertas"empresa Instancia del objeto empresa que lo controla empresa2 *habilitacion Evento al habilitarse o deshabilitarse una empresa (OJO QUE NO ES PRESENCIA) *presencia Evento al cambiar la presencia FISICA de una empresa *empresa_assign *activada Metodo llamado al activarse una empresa 2PROCEDURE visibilidad thisform.Resize ENDPROC  containerformlabel DoCreate = .T. Name = "form1" boton_barra_secundaria.top_inicial top_offset *top_offset_assign barra_principal alertas.vcxbarra_principalges.vcxlabelborrarPixelsborrarformformPROCEDURE top_offset_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Top_Offset = m.vNewVal This.Top=This.top_inicial+this.top_offset ENDPROC PROCEDURE Init this.top_inicial=this.top ENDPROC Boton_barra_principal12 commandbuttonboton_barra_principal8formBorderStyle = 2 Top = 0 Left = 0 Height = 46 Width = 507 ShowWindow = 1 DoCreate = .T. Caption = "Form3" ControlBox = .F. Closable = .F. Movable = .F. TitleBar = 0 Name = "barra" barra_principalBoton_barra_principal11 commandbuttonges.vcxges.vcxbarra_punto_de_ventages.vcxBoton_barra_principal13formPixelsformbarra_principal barra_localformHeight = 65 Width = 65 FontSize = 7 WordWrap = .T. Caption = "Botn" top_inicial = 0 top_offset = .F. Name = "boton_barra_secundaria" Height = 27 Width = 65 Alignment = 0 Caption = "Empresa" SpecialEffect = 0 Style = 1 empresa = .F. empresa2 = .F. Name = "check_empresa" boton_barra_principalBoton_barra_principal10 commandbuttonges.vcxformClassges.vcxmoduloTop = 0 Left = 0 Height = 742 Width = 1017 DoCreate = .T. Caption = "Form1" WindowType = 1 WindowState = 2 Name = "Reporte" borrameClass,OLEObject = C:\WINNT\System32\Mscomctl.ocx Pixelsboton_barra_principalbarra_principalBoton_barra_principal9 commandbuttonges.vcxboton_barra_principalbarra_principalges.vcxges.vcxBoton_barra_principal8Command7 commandbuttonformsetmenu boton_barra_principalbarra_principalBoton_barra_principal7 commandbuttonges.vcxboton_barra_principalbarra_principal commandbuttonges.vcx commandbuttonBoton_barra_principal06 barra_remitosges.vcxges.vcxBoton_barra_principal6ges.vcxformset!Arial, 0, 9, 5, 15, 12, 32, 3, 0 boton_barra_principalbarra_principalBoton_barra_principal5 commandbuttonges.vcxboton_barra_principalboton_barra_principal barra_localbarra_principal barra_localBoton_barra_principal4ges.vcx olecontrol olecontrol Olecontrol1borrameborrame!Arial, 0, 9, 5, 15, 12, 32, 3, 0 borrame2PROCEDURE Click do form rptmovcondet ENDPROC boton_barra_principal commandbuttonBoton_barra_principal04 barra_remitosboton_barra_principalFocoges.vcx barra_local commandbuttonbarra_principal ࡱ> Root EntryIqq@OleObjectData`AccessObjSiteData&\ChangedProps":5j(6(!C4~{Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1O8hhboton_barra_principalBoton_barra_principal3 commandbuttonges.vcxboton_barra_principalbarra_principal commandbuttonHeight = 42 Width = 351 Desktop = .T. DoCreate = .T. AutoCenter = .T. BorderStyle = 3 Caption = "Form1" ControlBox = .F. Closable = .F. ClipControls = .F. TitleBar = 0 AlwaysOnTop = .T. Name = "Form1" menu Nombre del mpr del men a ejecutar ancho_automatico Establece si el ancho del formulario se ajusta automticamente a los botones. menu_name Nombre del menu instanciado otorgado por el mpr alto_automatico acomodar_automatico separacion_horizontal separacion_vertical margen_horizontal margen_vertical cola_horizontal botones_ancho botones_alto botones_minimo autoacomodar_salir boton_de_salida *reacomodar_botones *asignar_color #DataSession = 2 Height = 100 Width = 884 Desktop = .T. ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "" Closable = .F. MaxButton = .F. MDIForm = .T. KeyPreview = .T. WindowType = 1 menu = ancho_automatico = .T. menu_name = .F. alto_automatico = .T. acomodar_automatico = .T. separacion_horizontal = 0 separacion_vertical = 0 margen_horizontal = 1 margen_vertical = 1 cola_horizontal = 0 botones_ancho = 86 botones_alto = 73 botones_minimo = 7 autoacomodar_salir = 0 boton_de_salida = ("") Name = "modulo" ".%WrlU UTHISFORMRESIZE visibilidad011')"%ZwU; C%TModulo_facturacionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- ve_barra_menuU THISFORM CLICK_BOTONG_VENTASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE VE_BARRA_MENUV C %C- CJ- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAR3A28)J"11|%UVT-(|SetActiveWindow user32.dllC UTHISENABLEDSETACTIVEWINDOWTHISFORMHWNDTIMER1TIMERTimer011)1Boton_barra_principal2ges.vcxboton_barra_principalbarra_principalboton_barra_principalboton_barra_principal commandbuttonboton_barra_principal Arial, 0, 7, 4, 12, 9, 24, 3, 0 PixelsBoton_barra_principal1ges.vcxboton_barra_principalbarra_principalcheckboxbarra_punto_de_ventages.vcxClass&PROCEDURE Click do bienes2 ENDPROC Command5ges.vcxges.vcxCheck_empresa6boton_barra_principal check_empresabarra_principalges.vcx}PROCEDURE Click do form in_operaciones ENDPROC PROCEDURE Init dodefault() this.Enabled=acceso( 62 , .f. ) ENDPROC Command69PROCEDURE Click do form rptinventarioactual ENDPROC boton_barra_principalfTop = 2 Left = 321 Width = 65 Alignment = 0 TabIndex = 6 ZOrderSet = 7 Name = "Check_empresa6" PROCEDURE ejercicio_access *To do: Modify this routine for the Access method RETURN THIS.ejercicio ENDPROC PROCEDURE ejercicio_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ejercicio = m.vNewVal IF ISNULL(m.vNewVal) THEN this.ejercicio=this.ejercicio2 ENDIF IF TYPE("this.ejercicio")="O" THEN this.Caption = this.ejercicio.dir BINDEVENT(this.ejercicio, "Presencia", This, "Presencia") BINDEVENT(this.ejercicio, "Habilitacion", This, "Habilitacion") BINDEVENT(this.ejercicio, "Activado", This, "Activado") This.habilitacion(This.ejercicio.habilitado) This.Presencia(This.ejercicio.Presente) This.Activado(This.ejercicio.Activo) ELSE this.presencia(.f.) ENDIF ENDPROC PROCEDURE presencia LPARAMETERS xPresencia this.Visible= xPresencia and inlist(p_menu_EJERCICIOS,2,3) and INLIST(this.ejercicio.menu,2,3) ENDPROC PROCEDURE habilitacion LPARAMETERS xhabilitacion this.Enabled = xhabilitacion ENDPROC PROCEDURE activado LPARAMETERS xValue this.Value=xValue this.ForeColor=IIF(this.Value,RGB(255,0,0),RGB(0,0,0)) this.FontBold = this.value ENDPROC PROCEDURE Click =this.ejercicio.Activar() ENDPROC "{%WtU7 C%TModulo_comprasT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cm_barra_menuU THISFORM CLICK_BOTON G_COMPRASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CM_BARRA_MENUV C %C- CK- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ3A25)."%U UVE_CONTROL_DE_COMPROBANTESTC-UTHISENABLEDACCESOClick0Init^1q3S10K)boton_barra_principalCheck_empresa5checkbox check_empresabarra_principalCheck_empresa4 Command11boton_barra_principalges.vcxcheckboxges.vcxtimer commandbutton commandbutton&PROCEDURE Click do bienes2 ENDPROC  commandbuttonBoton_barra_principal01 barra_remitosboton_barra_principal commandbutton barra_remitos check_empresabarra_principalbarra_punto_de_ventages.vcxbarra_principal commandbuttonfTop = 2 Left = 257 Width = 65 Alignment = 0 TabIndex = 5 ZOrderSet = 6 Name = "Check_empresa5" checkboxges.vcxPROCEDURE Init dodefault() this.Enabled = !( !acceso( 61 , .f. ) or acceso(74, .f. ) ) ENDPROC PROCEDURE Click dir=.f. rea=.t. aut=.f. inm=.f. do ve_pedido with 5 ENDPROC boton_barra_principal commandbuttonCommand4boton_barra_principal commandbuttonCommand1 barra_localCommand5 "'%[xU9 C%TModulo_tesoreriaT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- te_barra_menuU THISFORM CLICK_BOTON G_TESORERIAZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE TE_BARRA_MENUV C %C - CL- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ3A27)""   %]zU: C%TModulo_inventarioT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- in_barra_menuU THISFORM CLICK_BOTON G_INVENTARIOZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE IN_BARRA_MENUV C %CB- CM- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ2A16) 3"hd%h Uge01.prgUGE01PRG+ CTCVC UTHISENABLEDACCESOk%d*%CC inst\ges.exe`'CAlerta_ActualizacionUP_DEV UPD_COMPARE P_EXE_FILEP_SYSTEMOALERTASCOLAAGREGAR_ALERTA_CLASEClick0Init[ RightClick1Q32qAA2%@s- )"۾%Y EU:%3$CAlerta_Mail_ErrorUP_DEVOALERTASCOLAAGREGAR_ALERTA_CLASEge02.prgUGE02PRG+ CTCWC UTHISENABLEDACCESO RightClick0ClickInit1AA2Q31f )fTop = 2 Left = 193 Width = 65 Alignment = 0 TabIndex = 4 ZOrderSet = 5 Name = "Check_empresa4" Check_empresa3ges.vcxZPROCEDURE Click oSecurity.Registrar_Salida clear events thisform.release ENDPROC  commandbuttonboton_barra_principalTop = 100 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 20 ZOrderSet = 8 Name = "Boton_barra_principal1" ges.vcxboton_barra_principalboton_barra_principalcommand1barra_punto_de_ventaBoton_barra_principal02boton_barra_principalges.vcx commandbutton barra_remitos check_empresabarra_principalCheck_empresa2checkbox check_empresaVPROCEDURE reacomodar_botones LOCAL oControles, xObj, xObj2, xAncho, xPrimero, xIzquierda, xAlto, nIt, nIt2, xHayLinea, xAlto, xProxima, xLinea, xTabIndex oControles=NEWOBJECT("Collection") FOR EACH m.xObj IN THIS.CONTROLS IF INLIST(UPPER(m.xObj.CLASS),"BOTON_BARRA_SECUNDARIA", "COMMANDBUTTON") AND m.xObj.VISIBLE THEN oControles.ADD(m.xObj) IF THIS.botones_ancho > 0 THEN m.xObj.WIDTH = THIS.botones_ancho ENDIF IF THIS.botones_alto > 0 THEN m.xObj.Height = THIS.botones_alto ENDIF ENDIF NEXT xTabIndex=1 DIMENSION aLinea(oControles.COUNT,4) IF THIS.acomodar_automatico THEN m.xPrimero=THISFORM.margen_vertical m.xHayLinea=.T. m.xLinea =0 m.xProxima =-9000 DO WHILE m.xHayLinea m.xHayLinea=.F. m.xLinea=THISFORM.HEIGHT FOR EACH m.xObj IN oControles IF m.xObj.TOP > m.xProxima THEN m.xLinea=MIN(m.xObj.TOP, m.xLinea) ENDIF NEXT *** Busco la linea de botones FOR EACH m.xObj IN oControles IF BETWEEN(m.xObj.TOP, m.xLinea-5,m.xLinea+5) m.xHayLinea=.T. ENDIF NEXT IF m.xHayLinea THEN *** Acomodo TOP de la linea de botones m.xAlto=0 FOR EACH m.xObj IN oControles IF BETWEEN(m.xObj.TOP, m.xLinea-5, m.xLinea+5) THEN m.xObj.TOP=m.xPrimero *m.xObj.Caption=m.xObj.Caption + "."+ALLTRIM(STR(m.xPrimero)) m.xAlto = MAX(m.xAlto, m.xObj.HEIGHT) ENDIF NEXT m.xLinea=m.xPrimero *** Ahora acomodo sobre la linea actual DIMENSION aLinea(oControles.COUNT,4) STORE .F. TO aLinea nIt=0 FOR EACH m.xObj IN oControles IF m.xObj.TOP=m.xLinea THEN nIt=nIt+1 aLinea(nIt, 1)= m.xObj aLinea(nIt, 2)= m.xObj.LEFT ENDIF NEXT DIMENSION aLinea(nIt,4) =ASORT(aLinea,2) m.nIt2=m.nIt m.xLeftPos=2 FOR nIt =1 TO nIt2 aLinea(nIt,1).LEFT = xLeftPos m.xLeftPos = aLinea(nIt,1).LEFT + aLinea(nIt,1).WIDTH + THIS.separacion_horizontal NEXT m.xPrimero=m.xLinea + m.xAlto + THIS.separacion_vertical *=sys_mostrar_Screen("Primero=73", m.xPrimero=73) m.xProxima = m.xLinea + 6 ENDIF ENDDO ENDIF IF THIS.ancho_automatico THEN m.xAncho=0 FOR EACH m.xObj IN oControles m.xAncho=MAX(m.xAncho,m.xObj.LEFT+m.xObj.WIDTH) NEXT IF (m.xAncho + THIS.cola_horizontal)< ( (THIS.botones_ancho * THIS.botones_minimo) + THIS.cola_horizontal) THEN m.xAncho=( (THIS.botones_ancho * THIS.botones_minimo)+ (THIS.botones_minimo * THIS.margen_horizontal ) ) ENDIF THIS.WIDTH = m.xAncho + THIS.margen_horizontal + THIS.cola_horizontal ENDIF IF THIS.Alto_automatico THEN m.xAlto=0 m.xPrimero=99999 FOR EACH m.xObj IN oControles m.xAlto=MAX(m.xAlto,m.xObj.TOP+m.xObj.HEIGHT) NEXT THIS.HEIGHT = m.xAlto + THIS.margen_vertical ENDIF ENDPROC PROCEDURE Destroy g_actual=max(this.Top-150,50) DODEFAULT() ENDPROC PROCEDURE Init LOCAL cGetMenuName cGetMenuName = "" DO (THIS.MENU+'.mpr') WITH THIS, m.cGetMenuName,.T. THIS.menu_name = cGetMenuName THISFORM.TOP=MIN(150+g_actual,500) g_actual = g_actual + 150 g_modulos = g_modulos + 1 THISFORM.BORDERSTYLE= 1 this.reacomodar_botones for each obutton in thisform.Objects if obutton.baseclass="Commandbutton" and upper(obutton.caption)="SALIR" thisform.boton_de_salida=obutton && .name exit endif endfor ENDPROC PROCEDURE Release g_modulos = g_modulos - 1 * Quiero que se cierre el plan de cuentas al volver al mdulo principal * por si se quiere actualizar el plan. Esto se debe a que se trabaja en * una copia local y luego se la copia al server, por lo que debe tener * uso exclusivo. Prefiero asegurarme de que est cerrada al salir de un * mdulo if used("cuentas") select cuentas use endif DODEFAULT() ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *=sys_mostrar_screen("Suspendo?", .t.) if nKeyCode=27 and !isnull(thisform.boton_de_salida) try thisform.boton_de_salida.click catch endtry else *dodefault(nKeyCode, nShiftAltCtrl) endif ENDPROC PROCEDURE asignar_color thisform.BackColor = sys_color() ENDPROC PROCEDURE Load thisform.asignar_color () ENDPROC ""   %]zU: C%TModulo_produccionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- pr_barra_menuU THISFORM CLICK_BOTON G_PRODUCCIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE PR_BARRA_MENUV C %CC- CN- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAR3A2<) 1"+3%lUa C+%C- CO- C BTa ZT-UACCESOTHISENABLED< C%  TModulo_contabilidadT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- co_barra_menuU THISFORM CLICK_BOTONG_CONTABILIDADZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CO_BARRA_MENUInit0Click1A32a!AAA1ArAQ2 )x"__P % U%Cbienes *QbienesTCX!Tbienes.compuesto#'S'#listadosaUBIENES XRESULTADO XFILTROARTBUSBIELISTADOSClick01!Ar22)_ commandbutton commandbutton Command14 barra_localges.vcxges.vcxbarra_principalCheck_empresa1ges.vcx commandbuttonboton_barra_principal commandbuttonCommand2Boton_barra_principal03checkbox check_empresatimer Command12 barra_local8PROCEDURE Click do form rpt_listas_de_precio ENDPROC barra_principal barra_localbarra_principal barra_localbarra_principal commandbuttonTop = 100 Left = 510 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 26 ZOrderSet = 7 Name = "Command8" Timer1timer barra_local barra_localtimer commandbuttonges.vcx2PROCEDURE Click do form rptmovcondet ENDPROC formges.vcxPROCEDURE habilitacion LPARAMETERS xhabilitacion this.Enabled = xhabilitacion ENDPROC PROCEDURE presencia LPARAMETERS xPresencia this.Visible= xPresencia and inlist(p_menu_empresas,2,3) and INLIST(this.empresa.menu,2,3) ENDPROC PROCEDURE empresa_assign LPARAMETERS xASSEMP *To do: Modify this routine for the Assign method THIS.Empresa = xASSEMP IF ISNULL(xASSEMP) THEN this.empresa=this.empresa2 ENDIF IF TYPE("this.empresa")="O" THEN this.Caption = this.empresa.abrev BINDEVENT(this.empresa, "Presencia", This, "Presencia") BINDEVENT(this.empresa, "Habilitacion", This, "Habilitacion") BINDEVENT(this.empresa, "Activada", This, "Activada") This.habilitacion(This.empresa.habilitada) This.Presencia(This.empresa.Presente) This.Activada(This.empresa.Activa) ELSE this.presencia(.f.) ENDIF ENDPROC PROCEDURE activada LPARAMETERS xValue this.Value=xValue this.ForeColor=IIF(this.Value,RGB(255,0,0),RGB(0,0,0)) this.FontBold = this.value ENDPROC PROCEDURE Click =this.empresa.Activar() ENDPROC "U%UrU6 C%T Modulo_costosT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cs_barra_menuU THISFORM CLICK_BOTONG_COSTOSZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CS_BARRA_MENUV C %CD- CP- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ4A24)F"--%U^ C(%CF- CQ-  ?Ta WT-UACCESO P_CASHFLOWTHISENABLEDB C%TModulo_gestionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B-7  gs_barra_menuJ UTHISFORM CLICK_BOTON G_GESTIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEOBAR_GS GS_BARRA_MENUInit0Click1A32a!AAA1ArAq1b )-s"ZZ,%Ub% T-  BC L U P_DEVP_LIMPIA_TEMPORALES OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASEN %CoAGESSolbO8C U OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASE RightClick0Click 1AAR4AR3 b)Z".%?NUBT-T0u LC (Z TCW+TCComandossys_comandos.prg C ()%  P %CError al procesar comandos !!!C ,Aparentemente hubo una desconexin de datos.C C 0Se necesita CERRAR Y VOLVER A ABRIR el programa.C  Desea cerrar el programa ahora?8 =C0Se necesita CERRAR Y VOLVER A ABRIR el programa. FTUXSELTCMDOCMDOEXTHISENABLEDINTERVALTHISFORMEMPRESASVALIDAR_PRESENCIAS OSECURITYREGISTRAR_VIDA CMD_BUSCARERRORNO USERVALUE MENSAJE_SINOMENSAJETIMER1P_TIMER_PRINCIPALTimer011AB QAAAA2)"xD%OlU5H$ c T- T- T- T- 2 T- Ta T- T- UDIRREAAUTINMP_ANALISIS_PEDIDOS VE_PEDIDOTC}-UTHISENABLEDACCESOClick0Init111B4Q1/N)"Q%K`ZU UBIENES2Click01q1)fTop = 2 Left = 129 Width = 65 Alignment = 0 TabIndex = 3 ZOrderSet = 4 Name = "Check_empresa3"  commandbuttonges.vcx barra_localCommand9 commandbutton barra_local_PROCEDURE RightClick do form stk_vis ENDPROC PROCEDURE Click do form stk_vis ENDPROC  commandbuttonges.vcxCommand8 barra_remitos barra_localjPROCEDURE Resize LPARAMETERS xBotones_Angostos =sys_m("resize") dodefault(xBotones_Angostos) ENDPROC Command2ges.vcx barra_remitosbarra_principalboton_barra_principalges.vcxboton_barra_principalboton_barra_principalClass?PROCEDURE Load DO variables_publicas IN ve_comienzo ENDPROC BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 "Q%K`ZU UBIENES2Click01q1)Pixels Command13ges.vcxges.vcxboton_barra_principal commandbutton~PROCEDURE Init dodefault() this.enabled = acceso(158,.f.) ENDPROC PROCEDURE Click do ve_control_de_pedidos ENDPROC Top = 29 Left = 258 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Control Pedidos" TabIndex = 3 ToolTipText = "Visualizacin del inventario en pantalla" PicturePosition = 13 ZOrderSet = 27 Name = "Boton_barra_principal14" barra_punto_de_ventaBoton_barra_principal14 commandbuttonboton_barra_principal".%]rlU rptmovcondetU RPTMOVCONDETClick01A2')ges.vcxges.vcxges.vcx barra_localBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 ges.vcx barra_localPROCEDURE Click dir=.f. rea=.t. aut=.f. inm=.f. do ve_pedido with 5 ENDPROC PROCEDURE Init dodefault() this.Enabled = !( !acceso( 61 , .f. ) or acceso(74, .f. ) ) ENDPROC barra_punto_de_ventaCommand4 commandbuttonges.vcxboton_barra_principalbarra_punto_de_ventaCommand9 commandbuttonges.vcxboton_barra_principal"Z%J 2Uy%SCH Y 5 T Tsch_inventario rstk_visUP_EMPP_DEVXCOD_INSXCODALT1SCH_INVENTARIOSTK_VISstk_visUSTK_VISClick0 RightClick1aA32 )"H%U  U OSECURITYREGISTRAR_SALIDATHISFORMRELEASEClick01Q3O)"&%|U*Cresize CUXBOTONES_ANGOSTOSSYS_MResize01q11_)"@%vUstk_visUSTK_VISstk_visUSTK_VIS RightClick0ClickS132'CT) Command10 commandbuttonboton_barra_principalClass barra_remitosBoton_barra_principal05 commandbuttonboton_barra_principalZPROCEDURE Click oSecurity.Registrar_Salida clear events thisform.release ENDPROC ]Top = 348 Left = 36 Height = 24 Width = 25 Enabled = .F. Interval = 200 Name = "Foco" dArial, 0, 9, 5, 15, 12, 32, 3, 0 Tahoma, 0, 8, 5, 13, 11, 27, 2, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 barra_punto_de_ventaTop = 28 Left = 255 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\barcode.ico Caption = "Busc.Artculos" TabIndex = 4 PicturePosition = 13 ZOrderSet = 29 Name = "Command7" ".%]rlU rptmovcondetU RPTMOVCONDETClick01A2')ges.vcx commandbutton barra_remitosBoton_barra_principal99 commandbuttonboton_barra_principalboton_barra_principalges.vcx commandbuttonbarra_punto_de_ventaZPROCEDURE Click oSecurity.Registrar_Salida clear events thisform.release ENDPROC Command8PROCEDURE Init dodefault() *!* if p_cm_version_recepcion=1 *!* this.left=this.Left-85 *!* endif this.Enabled = p_oc ENDPROC PROCEDURE Click *!* if !p_dev *!* do cm_autorizar_oc *!* else do cm_control_de_ocs *!* endif ENDPROC GPROCEDURE Click dodefault() do form te_rpt_movimientos ENDPROC Command3 commandbuttonges.vcxboton_barra_principaleTop = 2 Left = 65 Width = 65 Alignment = 0 TabIndex = 2 ZOrderSet = 3 Name = "Check_empresa2" .top_offset top_inicial *top_offset_assign Height = 60 Width = 65 FontSize = 7 WordWrap = .T. Caption = "Botn" top_offset = .F. top_inicial = 0 Name = "boton_barra_principal" dTop = 2 Left = 1 Width = 65 Alignment = 0 TabIndex = 1 ZOrderSet = 2 Name = "Check_empresa1" PROCEDURE Click do ve_control_de_comprobantes ENDPROC PROCEDURE Init dodefault() this.enabled = p_np and acceso(195,.f.) ENDPROC A"((%U C CUTHIS ASIGNAR_COLORTCUTHIS BACKCOLOR SYS_COLORLoad0 asignar_colorf1315Ys)(4"H%U! CTC-UTHISENABLEDACCESO UVE_CONTROL_DE_PEDIDOSInit0Clickp1R2q2=Ys)PROCEDURE Timer this.Enabled=.f. DECLARE long SetActiveWindow IN "user32.dll" long setactivewindow(thisform.HWnd) thisform.timer1.Timer ENDPROC PROCEDURE Click aut=.f. dir=.f. rea=.t. inm=.f. do ve_pedido with 1,,,,,,, .t. ENDPROC PROCEDURE Init dodefault() this.Enabled=acceso( 60 , .f. ) ENDPROC PROCEDURE Click IF p_EMP="SCH" and !p_dev THEN PRIVATE xCod_Ins, xcodalt1 xCod_Ins="" xcodalt1="" DO FORM sch_inventario else do form stk_vis ENDIF ENDPROC PROCEDURE RightClick do form stk_vis ENDPROC Top = 100 Left = 0 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\package2.ico Caption = "Operaciones" TabIndex = 20 ToolTipText = "Altas, bajas, transferencias y otras operaciones con artculos." ZOrderSet = 20 Name = "Command6" "llC% U< T- Ta T- T- UDIRREAAUTINM VE_PEDIDO0 C$TC=- CJ-  UTHISENABLEDACCESOClick0Init13B1Je )lF"--%U UVE_CONTROL_DE_COMPROBANTES( CT C- UTHISENABLEDP_NPACCESOClick0Init^1q310K)-"H%U  U OSECURITYREGISTRAR_SALIDATHISFORMRELEASEClick01Q3O)PROCEDURE Init dodefault() this.enabled = acceso( 84 , .f. ) .and. !acceso( 75 , .f. ) and p_oc ENDPROC PROCEDURE Click do cm_compra with 6 ENDPROC PROCEDURE top_offset_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Top_Offset = m.vNewVal This.Top=This.top_inicial+this.top_offset ENDPROC PROCEDURE Init this.top_inicial=this.top ENDPROC Top = 28 Left = 0 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\fc.gif Caption = "Factura" TabIndex = 1 ToolTipText = "Factura" PicturePosition = 13 PictureMargin = 0 ZOrderSet = 26 Name = "Command2" QTop = 348 Left = 12 Height = 24 Width = 25 Interval = 1000 Name = "Timer1" wPROCEDURE Resize ***** POSISION BOTONES EMPRESAS *********** LOCAL xContar, xAncho, xMedio, xLeft, xTop, xAlto, xObj xContar=0 xAncho=0 xTop=0 xAlto=0 FOR EACH xOBJ IN THIS.CONTROLS IF UPPER(xOBJ.CLASS)="CHECK_EMPRESA" AND xOBJ.VISIBLE THEN xContar=xContar+1 xAncho=xAncho+xOBJ.WIDTH xTop=MAX(xTop,xOBj.Top+xObj.Height) ENDIF NEXT IF xContar>0 THEN xMedio=THIS.WIDTH/2 xLeft=xMedio-(xAncho/2) FOR EACH xOBJ IN THIS.CONTROLS IF UPPER(xOBJ.CLASS)="CHECK_EMPRESA" AND xOBJ.VISIBLE THEN xOBJ.LEFT=xLeft xLeft=xLeft+xOBJ.WIDTH ENDIF NEXT ENDIF FOR EACH xOBJ IN THIS.CONTROLS IF UPPER(xOBJ.CLASS)="BOTON_BARRA_PRINCIPAL" THEN xOBJ.Top_Offset=xTop-this.top_offset xAlto=MAX(xAlto,xObj.Top+xObj.height) ENDIF NEXT this.oAlertas.Top = xAlto xAlto = xAlto + IIF(this.oAlertas.Visible, this.oAlertas.Height , 0 ) thisform.Height = xAlto +1 ******************************************* return ENDPROC PROCEDURE Boton_barra_principal1.Init return ENDPROC PROCEDURE Boton_barra_principal2.Init return ENDPROC PROCEDURE Boton_barra_principal3.Init return ENDPROC PROCEDURE Boton_barra_principal4.Init return ENDPROC PROCEDURE Boton_barra_principal5.Init return ENDPROC PROCEDURE Boton_barra_principal6.Init return ENDPROC PROCEDURE Boton_barra_principal7.Init return ENDPROC PROCEDURE Boton_barra_principal8.Init return ENDPROC PROCEDURE Boton_barra_principal9.Init return ENDPROC PROCEDURE Boton_barra_principal10.Init return ENDPROC PROCEDURE Boton_barra_principal11.Init return ENDPROC PROCEDURE Boton_barra_principal12.Init return ENDPROC "%rU ve_comienzoUVARIABLES_PUBLICAS VE_COMIENZOLoad01a14)Top = 28 Left = 425 Height = 73 Width = 86 FontName = "Tahoma" FontSize = 8 WordWrap = .T. Picture = bmp\form.ico Caption = " Orden de Compra" TabIndex = 6 PicturePosition = 13 ZOrderSet = 0 Name = "Command13" "A%m|Urpt_listas_de_precioURPT_LISTAS_DE_PRECIOClick011-)Top = 28 Left = 172 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\nc.gif Caption = "Nota de Crdito" TabIndex = 2 ToolTipText = "Nota de Crdito" PicturePosition = 13 ZOrderSet = 28 Name = "Command4" Top = 28 Left = 343 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Control Cpbts" TabIndex = 3 ToolTipText = "Visualizacin del inventario en pantalla" PicturePosition = 13 ZOrderSet = 27 Name = "Command9" "yy7%  U! CTC<-UTHISENABLEDACCESOX T- T- Ta T-)aUAUTDIRREAINM VE_PEDIDOInit0Clickp1R22>Z)yz"aai% U%Cbienes *QbienesTCX!Tbienes.compuesto#'S'%listadosUBIENES XRESULTADO XFILTROARTBUSBIELISTADOSClick01!ArR2)aPROCEDURE Init dodefault() this.Enabled=acceso( 60 , .f. ) ENDPROC PROCEDURE Click aut=.f. dir=.f. rea=.t. inm=.f. do ve_pedido with 1,,,,,,, .t. ENDPROC PROCEDURE Click if !used("bienes") use bienes in 0 endif xresultado = space(15) local xfiltroart xfiltroart="bienes.compuesto#'S'" do busbie in listados with xresultado, xfiltroart, ,.t. ENDPROC "8%eU5H$ c T- T- T- T- 2 T- Ta T- T- UDIRREAAUTINMP_ANALISIS_PEDIDOS VE_PEDIDO( CT C;- UTHISENABLEDP_NPACCESOClick0Init111B42/d)"%rU& Cte_rpt_movimientosUTE_RPT_MOVIMIENTOSClick012<)Top = 28 Left = 599 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 26 ZOrderSet = 7 Name = "Command8" F"--%U( CT C- UTHISENABLEDP_NPACCESO UVE_CONTROL_DE_COMPROBANTESInit0Click}12q2)-Top = 100 Left = 85 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Inventario" TabIndex = 21 ToolTipText = "Visualizacin del inventario en pantalla" ZOrderSet = 21 Name = "Command5" x"__P % U%Cbienes *QbienesTCX!Tbienes.compuesto#'S'#listadosaUBIENES XRESULTADO XFILTROARTBUSBIELISTADOSClick01!Ar22)_Top = 28 Left = 87 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\fc.gif Caption = "Factura" TabIndex = 1 ToolTipText = "Factura" PicturePosition = 13 PictureMargin = 0 ZOrderSet = 26 Name = "Command2" "llC% U0 C$TC=- CJ-  UTHISENABLEDACCESO< T- Ta T- T- UDIRREAAUTINM VE_PEDIDOInit0Click1B22[w)l"yy7%  UX T- T- Ta T-)aUAUTDIRREAINM VE_PEDIDO! CTC<-UTHISENABLEDACCESOClick0Init13R1Up )y"f%kzUrptinventarioactualURPTINVENTARIOACTUALClick012.)<"##%Uin_operacionesUIN_OPERACIONES! CTC>-UTHISENABLEDACCESOClick0Inita1a3R1)Dr)#PROCEDURE Click if !used("bienes") use bienes in 0 endif xresultado = space(15) local xfiltroart xfiltroart="bienes.compuesto#'S'" do busbie in listados with xresultado, xfiltroart, ,.t. ENDPROC Top = 30 Left = 341 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Inventario" TabIndex = 5 ToolTipText = "Visualizacin del inventario en pantalla" ZOrderSet = 21 Name = "Boton_barra_principal05" "H%U  U OSECURITYREGISTRAR_SALIDATHISFORMRELEASEClick01Q3O)Top = 100 Left = 255 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\reporte.ico Caption = "Movs. C/Detalle" TabIndex = 23 ToolTipText = "Movimientos con detalle de un artculo" ZOrderSet = 23 Name = "Command1" Top = 30 Left = 511 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 7 ZOrderSet = 7 Name = "Boton_barra_principal99" Top = 28 Left = 510 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\reporte.ico Caption = "Mov.Cuentas" TabIndex = 7 ToolTipText = "Movimientos de Cuentas de Tesorera" ZOrderSet = 25 Name = "Command11" "Z%J 2Uy%SCH Y 5 T Tsch_inventario rstk_visUP_EMPP_DEVXCOD_INSXCODALT1SCH_INVENTARIOSTK_VISstk_visUSTK_VISClick0 RightClick1aA32 ))"IO%U CTUTHISENABLEDP_OC UCM_CONTROL_DE_OCSInit0Clicki12t2} )H"//%U5 C)TCT- CK-  UTHISENABLEDACCESOP_OC U CM_COMPRAInit0Click124c)/B"))ڊ % :Ud T T T T/%C f CHECK_EMPRESA TT TC  D%T  T /%C f CHECK_EMPRESA TT -%C fBOTON_BARRA_PRINCIPALTTC  DT +TC  6T BUXCONTARXANCHOXMEDIOXLEFTXTOPXALTOXOBJTHISCONTROLSCLASSVISIBLEWIDTHTOPHEIGHTLEFT TOP_OFFSETOALERTASTHISFORMBUBUBUBUBUBUBUBUBUBUBUBUResize0Boton_barra_principal1.Init)Boton_barra_principal2.Init8Boton_barra_principal3.InitGBoton_barra_principal4.InitVBoton_barra_principal5.IniteBoton_barra_principal6.InittBoton_barra_principal7.InitBoton_barra_principal8.InitBoton_barra_principal9.InitBoton_barra_principal10.InitBoton_barra_principal11.InitBoton_barra_principal12.Init1AAAA1AaAAAAAAqAA1AC2A3A3A3A3A3A3A3A3A3A3A3A2"&$%*&W_.(2*6, :.?G>0yB2F4J6)1N8dlR))z"aai%U6T TUVNEWVALTHIS TOP_OFFSETTOP TOP_INICIALTUTHIS TOP_INICIALTOPtop_offset_assign0Init1q"212)aTop = 100 Left = 170 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\reporte.ico Caption = "Inventario" TabIndex = 22 ToolTipText = "Inventario de artculos" ZOrderSet = 22 Name = "Command3" Top = 28 Left = 340 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\formulas.ico Caption = "Artculos" TabIndex = 5 ToolTipText = "Movimientos de Cuentas de Tesorera" ZOrderSet = 25 Name = "Command10" Top = 28 Left = 85 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\nc.gif Caption = "Nota de Crdito" TabIndex = 2 ToolTipText = "Nota de Crdito" PicturePosition = 13 ZOrderSet = 28 Name = "Command4" Top = 30 Left = 256 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\formulas.ico Caption = "Artculos" TabIndex = 4 ToolTipText = "Movimientos de Cuentas de Tesorera" ZOrderSet = 25 Name = "Boton_barra_principal04" Top = 28 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ventas.ico DisabledPicture = bmp\ventas_dis.ico Caption = "Facturacin" TabIndex = 9 ZOrderSet = 19 Name = "Boton_barra_principal12" Top = 100 Left = 340 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\reporte.ico Caption = "Artculos" TabIndex = 24 ToolTipText = "Movimientos de Cuentas de Tesorera" ZOrderSet = 25 Name = "Command12" Top = 28 Left = 513 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\barcode.ico Caption = "Artculos" TabIndex = 21 ZOrderSet = 21 Name = "command1" Top = 100 Left = 425 Height = 73 Width = 86 FontName = "Arial" FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Control de OCs" TabIndex = 25 ToolTipText = "Autorizacin de Ordenes de Compra" PicturePosition = 13 ZOrderSet = 1 Name = "Command14" PROCEDURE Init *this.Enabled = p_solcom .and. ( acceso( 154 , .f. ) .or. acceso( 155 , .f. )) .and. !(p_dos#0 .and. p_codemp=p_dos) dodefault() this.enabled = p_np and acceso(195,.f.) ENDPROC PROCEDURE Click do ve_control_de_comprobantes ENDPROC Top = 29 Left = 2 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\pedido.gif Caption = "Pedido" TabIndex = 1 ToolTipText = "Factura" PicturePosition = 13 PictureMargin = 0 ZOrderSet = 26 Name = "Boton_barra_principal13" Top = 28 Left = 170 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Control Cpbts" TabIndex = 3 ToolTipText = "Visualizacin del inventario en pantalla" PicturePosition = 13 ZOrderSet = 27 Name = "Command9" oPROCEDURE Click priv dir,rea,aut,inm do case case p_analisis_pedidos>=1 * Sin analisis automtico dir=.f. rea=.f. aut=.f. inm=.f. otherwise * Con anlisis automtico dir=.f. rea=.t. aut=.f. inm=.f. endcase do ve_pedido with 6 ENDPROC PROCEDURE Init dodefault() this.enabled = p_np and acceso(59,.f.) ENDPROC Top = 28 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\carro2.ico DisabledPicture = bmp\carro2_dis.ico Caption = "Compras" TabIndex = 10 ZOrderSet = 18 Name = "Boton_barra_principal11" PROCEDURE Click if !used("bienes") use bienes in 0 endif xresultado = space(15) local xfiltroart xfiltroart="bienes.compuesto#'S'" do busbie in listados with xresultado, xfiltroart, ,2 ENDPROC Top = 28 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\money2.ico DisabledPicture = bmp\money2_dis.ico Caption = "Tesorera" TabIndex = 11 ZOrderSet = 17 Name = "Boton_barra_principal10" Top = 28 Left = 428 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico Caption = "Inventario" TabIndex = 21 ToolTipText = "Visualizacin del inventario en pantalla" ZOrderSet = 21 Name = "Command5" "%+UTU XHABILITACIONTHISENABLED>4T C C U XPRESENCIATHISVISIBLEP_MENU_EMPRESASEMPRESAMENUZT%C;T"%C this.empresabO;T*C Presencia Presencia0C Habilitacion Habilitacion(CActivadaActivadaCC C  SC-U XASSEMPTHISEMPRESAEMPRESA2CAPTIONABREV HABILITACION HABILITADA PRESENCIAPRESENTEACTIVADAACTIVA`T3TCC^ C^6TUXVALUETHISVALUE FORECOLORFONTBOLDCUTHISEMPRESAACTIVAR habilitacion0 presenciapempresa_assignactivadaClickX1q3qA2q1A!aaaaB2q1121QqC b$) 4Top = 20 Left = 33 Height = 137 Width = 844 DoCreate = .T. Name = "barra_punto_de_venta" TIMER1.Name = "TIMER1" Foco.Name = "Foco" Check_empresa1.Alignment = 0 Check_empresa1.Name = "Check_empresa1" Check_empresa2.Alignment = 0 Check_empresa2.Name = "Check_empresa2" Check_empresa3.Alignment = 0 Check_empresa3.Name = "Check_empresa3" Check_empresa4.Alignment = 0 Check_empresa4.Name = "Check_empresa4" Check_empresa5.Alignment = 0 Check_empresa5.Name = "Check_empresa5" Check_empresa6.Alignment = 0 Check_empresa6.Name = "Check_empresa6" Boton_barra_principal1.Top = 1000 Boton_barra_principal1.Left = 1000 Boton_barra_principal1.Visible = .F. Boton_barra_principal1.Name = "Boton_barra_principal1" Boton_barra_principal2.Top = 1000 Boton_barra_principal2.Left = 1000 Boton_barra_principal2.Visible = .F. Boton_barra_principal2.Name = "Boton_barra_principal2" Boton_barra_principal3.Top = 1000 Boton_barra_principal3.Left = 1000 Boton_barra_principal3.Visible = .F. Boton_barra_principal3.Name = "Boton_barra_principal3" Boton_barra_principal4.Top = 1000 Boton_barra_principal4.Left = 1000 Boton_barra_principal4.Visible = .F. Boton_barra_principal4.Name = "Boton_barra_principal4" Boton_barra_principal5.Top = 1000 Boton_barra_principal5.Left = 1000 Boton_barra_principal5.Visible = .F. Boton_barra_principal5.Name = "Boton_barra_principal5" Boton_barra_principal6.Top = 1000 Boton_barra_principal6.Left = 1000 Boton_barra_principal6.Visible = .F. Boton_barra_principal6.Name = "Boton_barra_principal6" Boton_barra_principal7.Top = 1000 Boton_barra_principal7.Left = 1000 Boton_barra_principal7.Visible = .F. Boton_barra_principal7.Name = "Boton_barra_principal7" Boton_barra_principal8.Top = 1000 Boton_barra_principal8.Left = 1000 Boton_barra_principal8.Visible = .F. Boton_barra_principal8.Name = "Boton_barra_principal8" Boton_barra_principal9.Top = 1000 Boton_barra_principal9.Left = 1000 Boton_barra_principal9.Visible = .F. Boton_barra_principal9.Name = "Boton_barra_principal9" Boton_barra_principal10.Top = 1000 Boton_barra_principal10.Left = 1000 Boton_barra_principal10.Visible = .F. Boton_barra_principal10.Name = "Boton_barra_principal10" Boton_barra_principal11.Top = 1000 Boton_barra_principal11.Left = 1000 Boton_barra_principal11.Visible = .F. Boton_barra_principal11.Name = "Boton_barra_principal11" Boton_barra_principal12.Top = 1000 Boton_barra_principal12.Left = 1000 Boton_barra_principal12.Visible = .F. Boton_barra_principal12.Name = "Boton_barra_principal12" OALERTAS.lbSubject.Name = "lbSubject" OALERTAS.imMas.Name = "imMas" OALERTAS.imBorrar.Name = "imBorrar" OALERTAS.Top = 100 OALERTAS.Left = 2 OALERTAS.Name = "OALERTAS" Check_empresa7.Alignment = 0 Check_empresa7.Name = "Check_empresa7" Check_empresa8.Alignment = 0 Check_empresa8.Name = "Check_empresa8" "DA%[Uw C %CI- CR- 7Ta OT- TaHog CALTCalarc SCHTSchillig INDTInduart NUV!TNuva CLENTCleaner SELzTMaigal CARTCardn ELET Electrophone MTZT Especiales IFM1TIfm ZARZTZar DLCT Della Casa BLATLebl UNIT Union Good CAMTCammi DAL;TDaluz VILeTVili SAMTSamson CL7TClub7 ESTTPyA ESETEsenciar MCL@TMerclin SEGnTSegucuer BELT Bel Gioco TFWT TFW/LCX/SHP SRITSri Sri HEB&THebos LECQTLecar PAPTPapelera GABTGabriel MAXTMaximia EPSTEpsilon& ART Local CTArt Duf 2gT Especiales BUACCESOTHISENABLEDXOKP_EMPCAPTION P_SUBSISTEMA C%TModulo1T9(%C9T9 a9 !% :CError !!! Mdulo C no encontrado !!! B- C F > aHH SCHwes_barra_menu_sch CALes_barra_menu_cal INDes_barra_menu_IND CLEes_barra_menu_CLE NUV3es_barra_menu_NUV SELbes_barra_menu_SEL CARes_barra_menu_CAR ELEes_barra_menu_ELE MTZes_barra_menu_mtz IFMes_barra_menu_ifm ZARMes_barra_menu_zar DLC|es_barra_menu_dlc BLAes_barra_menu_bla UNIes_barra_menu_uni CAM es_barra_menu_cam DAL8es_barra_menu_dal VILges_barra_menu_vil CL7es_barra_menu_cl7 SAMes_barra_menu_sam ESTes_barra_menu_est ESE#es_barra_menu_ese MCLRes_barra_menu_mcl SEGes_barra_menu_SEG BELes_barra_menu_bel TFWes_barra_menu_tfw SRIes_barra_menu_sri HEB=es_barra_menu_heb LECles_barra_menu_Lec PAPes_barra_menu_pap GABes_barra_menu_gab MAXes_barra_menu_max EPS(es_barra_menu_eps& ART 0Local ges_barra_menu_art 2$CAn no implementado !!! U2THISFORM CLICK_BOTON G_ESPECIALZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEABRIR_TABLAS_FIJASLOCALESES_INIP_EMPES_BARRA_MENU_SCHES_BARRA_MENU_CALES_BARRA_MENU_INDES_BARRA_MENU_CLEES_BARRA_MENU_NUVES_BARRA_MENU_SELES_BARRA_MENU_CARES_BARRA_MENU_ELEES_BARRA_MENU_MTZES_BARRA_MENU_IFMES_BARRA_MENU_ZARES_BARRA_MENU_DLCES_BARRA_MENU_BLAES_BARRA_MENU_UNIES_BARRA_MENU_CAMES_BARRA_MENU_DALES_BARRA_MENU_VILES_BARRA_MENU_CL7ES_BARRA_MENU_SAMES_BARRA_MENU_ESTES_BARRA_MENU_ESEES_BARRA_MENU_MCLES_BARRA_MENU_SEGES_BARRA_MENU_BELES_BARRA_MENU_TFWES_BARRA_MENU_SRIES_BARRA_MENU_HEBES_BARRA_MENU_LECES_BARRA_MENU_PAPES_BARRA_MENU_GABES_BARRA_MENU_MAXES_BARRA_MENU_EPS P_SUBSISTEMAES_BARRA_MENU_ART UTHISFORMTIMER1TIMERInit0Click RightClick1AaqaaqaAaqaaaaaaa1a1aaQaaQaQaAaaaQa1aaqaaaaqaQaQaaqaqaqaqB22Aa!AAA1ArAraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAA51PU)z"aai%U6T TUVNEWVALTHIS TOP_OFFSETTOP TOP_INICIALTUTHIS TOP_INICIALTOPtop_offset_assign0Init1q"212)a;Top = 30 Left = 86 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\consulta.ico DisabledPicture = bmp\consulta_dis.ico Caption = "Control Cpbts" TabIndex = 2 ToolTipText = "Visualizacin del inventario en pantalla" PicturePosition = 13 ZOrderSet = 29 Name = "Boton_barra_principal02" PROCEDURE Click IF p_EMP="SCH" and !p_dev THEN PRIVATE xCod_Ins, xcodalt1 xCod_Ins="" xcodalt1="" DO FORM sch_inventario else do form stk_vis ENDIF ENDPROC PROCEDURE RightClick do form stk_vis ENDPROC \Top = 171 Left = 2 Width = 509 BorderWidth = 0 Visible = .F. TabIndex = 21 ZOrderSet = 20 Name = "oAlertas" lbSubject.Name = "lbSubject" imMas.Height = 16 imMas.Left = 469 imMas.Top = 8 imMas.Width = 16 imMas.Name = "imMas" imBorrar.Height = 16 imBorrar.Left = 488 imBorrar.Top = 7 imBorrar.Width = 16 imBorrar.Name = "imBorrar" CPROCEDURE Click =thisform.click_boton () if g_ventas#0 local z, maxz, xmodulo xmodulo="Modulo_facturacion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form ve_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(3,.f.).OR.acceso(74,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click do ve_control_de_comprobantes ENDPROC PROCEDURE Init *this.Enabled = p_solcom .and. ( acceso( 154 , .f. ) .or. acceso( 155 , .f. )) .and. !(p_dos#0 .and. p_codemp=p_dos) this.enabled = acceso(195,.f.) ENDPROC Top = 30 Left = 171 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\barcode.ico Caption = "Busc.Artculos" TabIndex = 3 PicturePosition = 13 ZOrderSet = 29 Name = "Boton_barra_principal03" Top = 30 Left = 426 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\reporte.ico Caption = "Movs. C/Detalle" TabIndex = 6 ToolTipText = "Movimientos con detalle de un artculo" ZOrderSet = 23 Name = "Boton_barra_principal06" YPROCEDURE Click priv dir,rea,aut,inm do case case p_analisis_pedidos>=1 * Sin analisis automtico dir=.f. rea=.f. aut=.f. inm=.f. otherwise * Con anlisis automtico dir=.f. rea=.t. aut=.f. inm=.f. endcase do ve_pedido with 6 ENDPROC PROCEDURE Init this.Enabled=acceso(125 , .f. ) ENDPROC Top = 28 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\package2.ico DisabledPicture = bmp\package2_dis.ico Caption = "Inventario" TabIndex = 12 ZOrderSet = 16 Name = "Boton_barra_principal9" Top = 28 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Clientes" TabIndex = 13 ZOrderSet = 15 Name = "Boton_barra_principal8" BorderStyle = 3 Top = 20 Left = 33 Height = 205 Width = 596 DoCreate = .T. Name = "barra_local" Timer1.Name = "Timer1" Foco.Name = "Foco" Check_empresa1.Alignment = 0 Check_empresa1.TabIndex = 8 Check_empresa1.ZOrderSet = 2 Check_empresa1.Name = "Check_empresa1" Check_empresa2.Alignment = 0 Check_empresa2.TabIndex = 9 Check_empresa2.ZOrderSet = 3 Check_empresa2.Name = "Check_empresa2" Check_empresa3.Alignment = 0 Check_empresa3.TabIndex = 10 Check_empresa3.ZOrderSet = 4 Check_empresa3.Name = "Check_empresa3" Check_empresa4.Alignment = 0 Check_empresa4.TabIndex = 11 Check_empresa4.ZOrderSet = 5 Check_empresa4.Name = "Check_empresa4" Check_empresa5.Alignment = 0 Check_empresa5.TabIndex = 12 Check_empresa5.ZOrderSet = 6 Check_empresa5.Name = "Check_empresa5" Check_empresa6.Alignment = 0 Check_empresa6.TabIndex = 13 Check_empresa6.ZOrderSet = 7 Check_empresa6.Name = "Check_empresa6" Boton_barra_principal1.Top = 96 Boton_barra_principal1.Left = 1121 Boton_barra_principal1.Enabled = .F. Boton_barra_principal1.TabIndex = 32 Boton_barra_principal1.Visible = .F. Boton_barra_principal1.ZOrderSet = 24 Boton_barra_principal1.Name = "Boton_barra_principal1" Boton_barra_principal2.Top = 1000 Boton_barra_principal2.Left = 1000 Boton_barra_principal2.Enabled = .F. Boton_barra_principal2.TabIndex = 31 Boton_barra_principal2.Visible = .T. Boton_barra_principal2.ZOrderSet = 8 Boton_barra_principal2.Name = "Boton_barra_principal2" Boton_barra_principal3.Top = 96 Boton_barra_principal3.Left = 951 Boton_barra_principal3.Enabled = .F. Boton_barra_principal3.TabIndex = 30 Boton_barra_principal3.Visible = .F. Boton_barra_principal3.ZOrderSet = 9 Boton_barra_principal3.Name = "Boton_barra_principal3" Boton_barra_principal4.Top = 96 Boton_barra_principal4.Left = 866 Boton_barra_principal4.Enabled = .F. Boton_barra_principal4.TabIndex = 29 Boton_barra_principal4.Visible = .F. Boton_barra_principal4.ZOrderSet = 10 Boton_barra_principal4.Name = "Boton_barra_principal4" Boton_barra_principal5.Top = 96 Boton_barra_principal5.Left = 781 Boton_barra_principal5.Enabled = .F. Boton_barra_principal5.TabIndex = 28 Boton_barra_principal5.Visible = .F. Boton_barra_principal5.ZOrderSet = 11 Boton_barra_principal5.Name = "Boton_barra_principal5" Boton_barra_principal6.Top = 96 Boton_barra_principal6.Left = 696 Boton_barra_principal6.Enabled = .F. Boton_barra_principal6.TabIndex = 27 Boton_barra_principal6.Visible = .F. Boton_barra_principal6.ZOrderSet = 12 Boton_barra_principal6.Name = "Boton_barra_principal6" Boton_barra_principal7.Top = 24 Boton_barra_principal7.Left = 1121 Boton_barra_principal7.Enabled = .F. Boton_barra_principal7.TabIndex = 19 Boton_barra_principal7.Visible = .F. Boton_barra_principal7.ZOrderSet = 13 Boton_barra_principal7.Name = "Boton_barra_principal7" Boton_barra_principal8.Top = 24 Boton_barra_principal8.Left = 1036 Boton_barra_principal8.Enabled = .F. Boton_barra_principal8.TabIndex = 18 Boton_barra_principal8.Visible = .F. Boton_barra_principal8.ZOrderSet = 14 Boton_barra_principal8.Name = "Boton_barra_principal8" Boton_barra_principal9.Top = 24 Boton_barra_principal9.Left = 951 Boton_barra_principal9.Enabled = .F. Boton_barra_principal9.TabIndex = 17 Boton_barra_principal9.Visible = .F. Boton_barra_principal9.ZOrderSet = 15 Boton_barra_principal9.Name = "Boton_barra_principal9" Boton_barra_principal10.Top = 24 Boton_barra_principal10.Left = 866 Boton_barra_principal10.Enabled = .F. Boton_barra_principal10.TabIndex = 16 Boton_barra_principal10.Visible = .F. Boton_barra_principal10.ZOrderSet = 16 Boton_barra_principal10.Name = "Boton_barra_principal10" Boton_barra_principal11.Top = 24 Boton_barra_principal11.Left = 781 Boton_barra_principal11.Enabled = .F. Boton_barra_principal11.TabIndex = 15 Boton_barra_principal11.Visible = .F. Boton_barra_principal11.ZOrderSet = 17 Boton_barra_principal11.Name = "Boton_barra_principal11" Boton_barra_principal12.Top = 24 Boton_barra_principal12.Left = 696 Boton_barra_principal12.Height = 73 Boton_barra_principal12.Width = 86 Boton_barra_principal12.Caption = "Factura" Boton_barra_principal12.Enabled = .F. Boton_barra_principal12.TabIndex = 14 Boton_barra_principal12.Visible = .F. Boton_barra_principal12.ZOrderSet = 18 Boton_barra_principal12.Name = "Boton_barra_principal12" oAlertas.lbSubject.Name = "lbSubject" oAlertas.imMas.Left = 521 oAlertas.imMas.Top = 1 oAlertas.imMas.Name = "imMas" oAlertas.imBorrar.Left = 555 oAlertas.imBorrar.Top = 1 oAlertas.imBorrar.Name = "imBorrar" oAlertas.Top = 171 oAlertas.Left = 2 oAlertas.Width = 592 oAlertas.Height = 37 oAlertas.TabIndex = 33 oAlertas.ZOrderSet = 19 oAlertas.Name = "oAlertas" 3"J%%!?U BUTHIS EJERCICIO`T %C ?T$%Cthis.ejerciciobOAT*C Presencia Presencia0C Habilitacion Habilitacion(CActivadoActivadoCC C  YC-U VNEWVALTHIS EJERCICIO EJERCICIO2CAPTIONDIR HABILITACION HABILITADO PRESENCIAPRESENTEACTIVADOACTIVO>4T C C U XPRESENCIATHISVISIBLEP_MENU_EJERCICIOS EJERCICIOMENUTU XHABILITACIONTHISENABLED`T3TCC^ C^6TUXVALUETHISVALUE FORECOLORFONTBOLDCUTHIS EJERCICIOACTIVARejercicio_access0ejercicio_assignX presencia5 habilitacionactivadoClick13q"11AAaaaaB2qA2q3q1121euj#))@PROCEDURE Click =thisform.click_boton () if g_compras#0 local z, maxz, xmodulo xmodulo="Modulo_compras" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cm_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(4,.f.).OR.acceso(75,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC BPROCEDURE Click =thisform.click_boton () if g_tesoreria#0 local z, maxz, xmodulo xmodulo="Modulo_tesoreria" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form te_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(9,.f.).OR.acceso(76,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC APROCEDURE Click =thisform.click_boton () if g_inventario#0 local z, maxz, xmodulo xmodulo="Modulo_inventario" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form in_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(66,.f.).OR.acceso(77,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC -Top = 30 Left = 1 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\remito.gif DisabledPicture = bmp\remito_dis.gif Caption = "Remitos" TabIndex = 1 ToolTipText = "Emisin de Remitos" PicturePosition = 13 PictureMargin = 0 ZOrderSet = 26 Name = "Boton_barra_principal01" "wZ %U<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE5%Sys_clases_empresas CUMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE 5G+( sys_color0C RecargadoCargar_Empresas,Cactivada emp_activada.C Presencia emp_Presencia'(CFTC.TCThisform.check_empresaCZTCT C% #T C  +CF(*TCThis.check_empresaCZC- CUXBOTNITXEMP SYS_COLORTHISFORMEMPRESAS COLECCIONCOUNTEMPRESA2EMPRESAP_SYS_COLOR_BOTONES BACKCOLOR OBTENER_COLORCOLORDOSTHIS PRESENCIA GENERAR_MENU3% ,TUVNEWVALTHIS WINDOWSTATE)TC  - 6H: m T - NOMAIL ,T - OJO MAIL CON P_DEV T - VMAIL0TC  - FCEB6UTHISCAPTIONP_DEVP_EMP PUBHEADERP_MAIL_BLOQUEOP_VE_FCE_BLOQUEO%GES.CfF% CC inst\ges.exe 'CAlerta_ActualizacionU P_EXE_FILEP_AVISA_ACTUALIZACION_PENDIENTETHISFORMOALERTAS ALERTA_ACTIVA UPD_COMPAREP_SYSTEMCOLAAGREGAR_ALERTA_CLASE  T T T T /%C f CHECK_EMPRESA T"TC< 6TC D%p ^/%C f CHECK_EMPRESA ZT <T%AT  T  =/%C f CHECK_EMPRESA 9!T C< 6TT  7%C fBOTON_BARRA_PRINCIPAL TTC DT +TC 6TUXBOTONES_ANGOSTOSXCONTARXANCHOXMEDIOXLEFTXTOPXALTOXOBJTHISCONTROLSCLASSVISIBLEWIDTHTOPHEIGHTLEFT TOP_OFFSETOALERTASTHISFORM %1T KT5TCEmpresasSys_clases_empresas.prg%  TH} main_local.mpr  &(main_punto_de_venta.mpr  Z!main_remitos.mpr  2}main.mpr T)Sys_clases_empresas C CTUXNOMENUXEMPXBOTP_DEVTHISFORM BORDERSTYLETHISEMPRESAS CGETMENUNAMEP_INICIO_SISTEMA MAIN_LOCALMPRMAIN_PUNTO_DE_VENTA MAIN_REMITOSMAIN MENU_NAME MENU_EMPRESASSYS_CLASES_EMPRESASCARGAR_EMPRESASRESIZETIMER1ENABLEDP_TIMER_PRINCIPAL  UTHISFORMTIMER1TIMERTHISRESIZE H < +  C r Ta  Ta Ta Ta 2CU NKEYCODE NSHIFTALTCTRLTHISFORMBOTON_BARRA_PRINCIPAL1CLICK PUB_INDEX P_DEV_MENUP_DEV P_SUSPEND emp_activada0 emp_presencia generar_menuHcargar_empresaswindowstate_assignactualizar_caption click_botonCResize_Init' RightClick+KeyPresst1qQ2qQ2Q2q1r11AAA2qRA3111A3aqAA3qA!AA1ABAA1AaAAAAAAqqAA1A5qARq111AA321A2{ %v !d'&/1<71 Da u}2s) "u u %Q | U;    TC Collection  -M%CC fBOTON_BARRA_SECUNDARIA COMMANDBUTTON  )C % T  % %T   T % T  T aT T +  T -T  !%  T C  F q(%C   m T a% T  (%C   T  T C  DT   J-( T %  TT T CT  T (mT0T CC T   T  % T  $T C   D0%  !  " ! f*T   " " # T   # !% $T T  $T C   DT   U% OCONTROLESXOBJXOBJ2XANCHOXPRIMERO XIZQUIERDAXALTONITNIT2 XHAYLINEAXPROXIMAXLINEA XTABINDEXTHISCONTROLSCLASSVISIBLEADD BOTONES_ANCHOWIDTH BOTONES_ALTOHEIGHTALINEACOUNTACOMODAR_AUTOMATICOTHISFORMMARGEN_VERTICALTOPLEFTXLEFTPOSSEPARACION_HORIZONTALSEPARACION_VERTICALANCHO_AUTOMATICOCOLA_HORIZONTALBOTONES_MINIMOMARGEN_HORIZONTALALTO_AUTOMATICO%TC2D CUG_ACTUALTHISTOP T#.mpr aTTCFTTT    8% CommandbuttonC fSALIR T !U CGETMENUNAMETHISMENU MENU_NAMETHISFORMTOPG_ACTUAL G_MODULOS BORDERSTYLEREACOMODAR_BOTONESOBUTTONOBJECTS BASECLASSCAPTIONBOTON_DE_SALIDADT%Ccuentas4FQ CU G_MODULOSCUENTASa  % C P B  L ZUNKEYCODE NSHIFTALTCTRLTHISFORMBOTON_DE_SALIDACLICKTCUTHISFORM BACKCOLOR SYS_COLOR CUTHISFORM ASIGNAR_COLORreacomodar_botones0DestroyInit/Release KeyPress@ asignar_color Load 1a1aQAaQAAAa"!!!1AA3AA1AABb1BA1ARAAA"1AAAA"!2AAA34q1BAAA4qAA3AB321 U , jXG  ph0 oxz2K)u 8PROCEDURE Click do ge01.prg with 2 ENDPROC PROCEDURE Init =DODEFAULT() this.Enabled=acceso(86).or.acceso(30) ENDPROC PROCEDURE RightClick IF p_dev THEN IF upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") ENDIF ENDIF ENDPROC PROCEDURE RightClick IF p_dev THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Mail_Error") ENDIF ENDPROC PROCEDURE Click do ge02.prg WITH 2 ENDPROC PROCEDURE Init =DODEFAULT() this.enabled=acceso(87).or.acceso(31) ENDPROC Top = 28 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Prov." TabIndex = 14 ZOrderSet = 14 Name = "Boton_barra_principal7" GPROCEDURE Click =thisform.click_boton () if g_produccion#0 local z, maxz, xmodulo xmodulo="Modulo_produccion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form pr_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(67,.f.).OR.acceso(78,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC Top = 100 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\engranajes.ico DisabledPicture = bmp\engranajes_dis.ico Caption = "Produccin" TabIndex = 15 ZOrderSet = 13 Name = "Boton_barra_principal6" PROCEDURE Init =DODEFAULT() if acceso(2,.f.).OR.acceso(79,.f.) or acceso(142) * Acceso a contablidad o solo visualizaciones * o asientos modelo de tesorera pero solo para cambiar ejercicios this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_contabilidad#0 local z, maxz, xmodulo xmodulo="Modulo_contabilidad" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form co_barra_menu ENDPROC Top = 100 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\contabilidad2.ico DisabledPicture = bmp\contabilidad2_dis.ico Caption = "Contabilidad" TabIndex = 16 ZOrderSet = 12 Name = "Boton_barra_principal5" ?PROCEDURE Click =thisform.click_boton () if g_costos#0 local z, maxz, xmodulo xmodulo="Modulo_costos" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cs_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(68,.f.).OR.acceso(80,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC Top = 100 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\costos.ico DisabledPicture = bmp\costos_dis.ico Caption = "Costos" TabIndex = 17 ZOrderSet = 11 Name = "Boton_barra_principal4" mPROCEDURE Init =DODEFAULT() if ( acceso(70,.f.).OR.acceso(81,.f.) ) and p_cashflow this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_gestion#0 local z, maxz, xmodulo xmodulo="Modulo_gestion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. ENDIF PUBLIC oBAR_GS do form gs_barra_menu NAME oBAR_GS ENDPROC Top = 100 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\cubo.ico DisabledPicture = bmp\cubo_dis.ico Caption = "Gestin" TabIndex = 18 ZOrderSet = 10 Name = "Boton_barra_principal3" Top = 100 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\toolbox.ico DisabledPicture = bmp\toolbox_dis.ico Caption = " " TabIndex = 19 ZOrderSet = 9 Name = "Boton_barra_principal2"  XTop = 20 Left = 33 Height = 146 Width = 602 DoCreate = .T. Name = "barra_remitos" Timer1.Name = "Timer1" Foco.Name = "Foco" Check_empresa1.Left = 1 Check_empresa1.Alignment = 0 Check_empresa1.TabIndex = 8 Check_empresa1.Name = "Check_empresa1" Check_empresa2.Alignment = 0 Check_empresa2.TabIndex = 9 Check_empresa2.Name = "Check_empresa2" Check_empresa3.Alignment = 0 Check_empresa3.TabIndex = 10 Check_empresa3.Name = "Check_empresa3" Check_empresa4.Alignment = 0 Check_empresa4.TabIndex = 11 Check_empresa4.Name = "Check_empresa4" Check_empresa5.Alignment = 0 Check_empresa5.TabIndex = 12 Check_empresa5.Name = "Check_empresa5" Check_empresa6.Alignment = 0 Check_empresa6.TabIndex = 13 Check_empresa6.Name = "Check_empresa6" Boton_barra_principal1.Top = 96 Boton_barra_principal1.Left = 1145 Boton_barra_principal1.TabIndex = 27 Boton_barra_principal1.Name = "Boton_barra_principal1" Boton_barra_principal2.Top = 96 Boton_barra_principal2.Left = 1060 Boton_barra_principal2.TabIndex = 26 Boton_barra_principal2.Name = "Boton_barra_principal2" Boton_barra_principal3.Top = 96 Boton_barra_principal3.Left = 975 Boton_barra_principal3.TabIndex = 25 Boton_barra_principal3.Name = "Boton_barra_principal3" Boton_barra_principal4.Top = 96 Boton_barra_principal4.Left = 890 Boton_barra_principal4.TabIndex = 24 Boton_barra_principal4.Name = "Boton_barra_principal4" Boton_barra_principal5.Top = 96 Boton_barra_principal5.Left = 805 Boton_barra_principal5.TabIndex = 23 Boton_barra_principal5.Name = "Boton_barra_principal5" Boton_barra_principal6.Top = 96 Boton_barra_principal6.Left = 720 Boton_barra_principal6.TabIndex = 22 Boton_barra_principal6.Name = "Boton_barra_principal6" Boton_barra_principal7.Top = 24 Boton_barra_principal7.Left = 1145 Boton_barra_principal7.TabIndex = 21 Boton_barra_principal7.Name = "Boton_barra_principal7" Boton_barra_principal8.Top = 24 Boton_barra_principal8.Left = 1060 Boton_barra_principal8.TabIndex = 20 Boton_barra_principal8.Name = "Boton_barra_principal8" Boton_barra_principal9.Top = 24 Boton_barra_principal9.Left = 975 Boton_barra_principal9.TabIndex = 19 Boton_barra_principal9.Name = "Boton_barra_principal9" Boton_barra_principal10.Top = 24 Boton_barra_principal10.Left = 890 Boton_barra_principal10.TabIndex = 18 Boton_barra_principal10.Name = "Boton_barra_principal10" Boton_barra_principal11.Top = 24 Boton_barra_principal11.Left = 805 Boton_barra_principal11.TabIndex = 17 Boton_barra_principal11.Name = "Boton_barra_principal11" Boton_barra_principal12.Top = 24 Boton_barra_principal12.Left = 720 Boton_barra_principal12.TabIndex = 16 Boton_barra_principal12.Name = "Boton_barra_principal12" OALERTAS.lbSubject.Name = "lbSubject" OALERTAS.imMas.Name = "imMas" OALERTAS.imBorrar.Name = "imBorrar" OALERTAS.Top = 104 OALERTAS.Left = 2 OALERTAS.Width = 596 OALERTAS.Height = 37 OALERTAS.TabIndex = 28 OALERTAS.Name = "OALERTAS" Check_empresa7.Alignment = 0 Check_empresa7.TabIndex = 14 Check_empresa7.Name = "Check_empresa7" Check_empresa8.Alignment = 0 Check_empresa8.TabIndex = 15 Check_empresa8.Name = "Check_empresa8" PROCEDURE Init =DODEFAULT() if acceso(73,.f.).OR.acceso(82,.f.) this.enabled=.t. else this.enabled=.f. endif xok=.t. do case case p_emp="CAL" this.Caption="Calarc" case p_emp="SCH" this.Caption="Schillig" case p_emp="IND" this.Caption="Induart" case p_emp="NUV" this.Caption="Nuva" case p_emp="CLE" this.Caption="Cleaner" case p_emp="SEL" this.Caption="Maigal" case p_emp="CAR" this.Caption="Cardn" case p_emp="ELE" this.Caption="Electrophone" case p_emp="MTZ" this.Caption="Especiales" case p_emp="IFM" this.Caption="Ifm" case p_emp="ZAR" this.Caption="Zar" case p_emp="DLC" this.Caption="Della Casa" case p_emp="BLA" this.Caption="Lebl" case p_emp="UNI" this.Caption="Union Good" case p_emp="CAM" this.Caption="Cammi" case p_emp="DAL" this.Caption="Daluz" case p_emp="VIL" this.Caption="Vili" case p_emp="SAM" this.Caption="Samson" case p_emp="CL7" this.Caption="Club7" case p_emp="EST" this.Caption="PyA" case p_emp="ESE" this.Caption="Esenciar" case p_emp="MCL" this.Caption="Merclin" case p_emp="SEG" this.Caption="Segucuer" case p_emp="BEL" this.Caption="Bel Gioco" case p_emp="TFW" this.Caption="TFW/LCX/SHP" case p_emp="SRI" this.Caption="Sri Sri" case p_emp="HEB" this.Caption="Hebos" case p_emp="LEC" this.Caption="Lecar" case p_emp="PAP" this.Caption="Papelera" case p_emp="GAB" this.Caption="Gabriel" case p_emp="MAX" this.Caption="Maximia" case p_emp="EPS" this.Caption="Epsilon" case p_emp="ART" AND p_subsistema="Local" this.Caption="Art Duf" otherwise this.Caption="Especiales" *xok=.f. endcase return xok ENDPROC PROCEDURE Click =thisform.click_boton () if g_especial#0 local z, maxz, xmodulo xmodulo="Modulo1" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif * Por el momento no hay configuraciones especiales de inicializacin =abrir_tablas_fijas() select locales replace locales.es_ini with .t. do case case p_emp="SCH" do form es_barra_menu_sch case p_emp="CAL" do form es_barra_menu_cal case p_emp="IND" do form es_barra_menu_IND case p_emp="CLE" do form es_barra_menu_CLE case p_emp="NUV" do form es_barra_menu_NUV case p_emp="SEL" do form es_barra_menu_SEL case p_emp="CAR" do form es_barra_menu_CAR case p_emp="ELE" do form es_barra_menu_ELE case p_emp="MTZ" do form es_barra_menu_mtz case p_emp="IFM" do form es_barra_menu_ifm case p_emp="ZAR" do form es_barra_menu_zar case p_emp="DLC" do form es_barra_menu_dlc case p_emp="BLA" do form es_barra_menu_bla case p_emp="UNI" do form es_barra_menu_uni case p_emp="CAM" do form es_barra_menu_cam case p_emp="DAL" do form es_barra_menu_dal case p_emp="VIL" do form es_barra_menu_vil case p_emp="CL7" do form es_barra_menu_cl7 case p_emp="SAM" do form es_barra_menu_sam case p_emp="EST" do form es_barra_menu_est case p_emp="ESE" do form es_barra_menu_ese case p_emp="MCL" do form es_barra_menu_mcl case p_emp="SEG" do form es_barra_menu_SEG case p_emp="BEL" do form es_barra_menu_bel case p_emp="TFW" do form es_barra_menu_tfw case p_emp="SRI" do form es_barra_menu_sri case p_emp="HEB" do form es_barra_menu_heb case p_emp="LEC" do form es_barra_menu_Lec case p_emp="PAP" do form es_barra_menu_pap case p_emp="GAB" do form es_barra_menu_gab case p_emp="MAX" do form es_barra_menu_max case p_emp="EPS" do form es_barra_menu_eps CASE p_emp="ART" AND p_subsistema="Local" do form es_barra_menu_art otherwise mensaje("An no implementado !!!") endcase ENDPROC PROCEDURE RightClick thisform.timer1.Timer ENDPROC mPROCEDURE RightClick if p_dev p_limpia_temporales=.f. endif oSecurity.Registrar_Salida try oAGESSol.oSistema.Informar_Cerrado() catch endtry clear events thisform.release ENDPROC PROCEDURE Click oSecurity.Registrar_Salida if type("oAGESSol")="O" oAGESSol.oSistema.Informar_Cerrado() endif clear events thisform.release ENDPROC  PROCEDURE Timer LOCAL xSel, tCMD, oCMD, oEx THIS.ENABLED=.F. THIS.INTERVAL=30000 TRY THISFORM.Empresas.Validar_presencias() CATCH TO oEx ENDTRY oSecurity.Registrar_Vida xSel=SELECT() oCMD=NEWOBJECT("Comandos","sys_comandos.prg") TRY oCMD.CMD_Buscar() CATCH TO oEx IF oEx.ERRORNO=2071 AND oex.uservalue.errorno=1104 IF Mensaje_sino("Error al procesar comandos !!!"+CHR(13)+"Aparentemente hubo una desconexin de datos." + CHR(13) + CHR(13) + ; "Se necesita CERRAR Y VOLVER A ABRIR el programa."+CHR(13)+"Desea cerrar el programa ahora?",2) THEN CLOSE ALL QUIT ELSE =Mensaje("Se necesita CERRAR Y VOLVER A ABRIR el programa.") ENDIF ENDIF ENDTRY SELECT (xSel) Thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC Kempresas Instancia del controlador de empresas menu_name Nombre del menu principal creado top_offset menu *emp_activar Evento lanzado para activar una empresa *emp_activada Evento lanzado al activarse una empresa. *emp_presencia *generar_menu *cargar_empresas *windowstate_assign *actualizar_caption *click_boton ~PROCEDURE emp_activada LPARAMETERS xemp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE emp_presencia LPARAMETERS xEmp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE generar_menu DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE cargar_empresas LOCAL xBot, nIt PRIVATE xEmp SET PROCEDURE TO sys_color ADDITIVE BINDEVENT(thisform.empresas, "Recargado", thisform, "Cargar_Empresas") BINDEVENT(thisform.empresas, "activada", thisform, "emp_activada") BINDEVENT(thisform.empresas, "Presencia", thisform, "emp_Presencia") FOR nIt=1 TO MIN(8,thisform.empresas.coleccion.count) xEmp=thisform.empresas.coleccion(nIt) xBot=EVALUATE("Thisform.check_empresa"+STR(nIt,1)) xBot.Empresa2=thisform.empresas.coleccion(nIt) xBot.Empresa=thisform.empresas.coleccion(nIt) IF p_sys_color_botones = 1 THEN xBot.backcolor=Obtener_Color(xBot.Empresa.color, xBot.Empresa.dos) ENDIF NEXT FOR nIt=MIN(8,this.empresas.coleccion.count)+1 TO 8 xBot=EVALUATE("This.check_empresa"+STR(nIt,1)) xBot.presencia(.f.) NEXT This.generar_menu () ENDPROC PROCEDURE windowstate_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF m.vNewVal= 2 THEN this.WindowState= 0 ENDIF ENDPROC PROCEDURE actualizar_caption THIS.CAPTION=IIF(p_dev, p_emp + " - ","") + pubheader DO CASE CASE p_mail_bloqueo=1 THIS.CAPTION = THIS.CAPTION + " - NOMAIL" CASE p_mail_bloqueo=2 THIS.CAPTION = THIS.CAPTION + " - OJO MAIL CON P_DEV" CASE p_mail_bloqueo=3 THIS.CAPTION = THIS.CAPTION + " - VMAIL" ENDCASE THIS.CAPTION = THIS.CAPTION + IIF(p_ve_fce_bloqueo=1, " - FCEB" ,"") ENDPROC PROCEDURE click_boton if "GES."$upper(p_exe_file) IF p_avisa_actualizacion_pendiente#0 AND THISFORM.oAlertas.alerta_activa=0 AND upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") endif endif ENDPROC PROCEDURE Resize LPARAMETERS xBotones_Angostos *=sys_m("Resize") ***** POSISION BOTONES EMPRESAS *********** LOCAL xContar, xAncho, xMedio, xLeft, xTop, xAlto, xObj xContar=0 xAncho=0 xTop=0 xAlto=0 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xContar=xContar+1 xAncho=xAncho+IIF(xBotones_Angostos,60, xObj.WIDTH) xTop=MAX(xTop,xObj.TOP+xObj.HEIGHT) ENDIF NEXT IF xContar>=8 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=60 ENDIF NEXT xAncho=60*8 ENDIF IF xContar>0 xMedio=THIS.WIDTH/2 xLeft=xMedio-(xAncho/2) FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=IIF(xBotones_Angostos,60, xObj.WIDTH) xObj.LEFT=xLeft xLeft=xLeft+xObj.WIDTH ENDIF NEXT ENDIF FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="BOTON_BARRA_PRINCIPAL" AND xObj.VISIBLE THEN xObj.Top_Offset=xTop-THIS.Top_Offset xAlto=MAX(xAlto,xObj.TOP+xObj.HEIGHT) ENDIF NEXT THIS.oAlertas.TOP = xAlto xAlto = xAlto + IIF(THIS.oAlertas.VISIBLE, THIS.oAlertas.HEIGHT , 0 ) THISFORM.HEIGHT = xAlto +1 ******************************************* ENDPROC PROCEDURE Init LPARAMETERS xNoMenu LOCAL xEmp, xBot if p_dev thisform.BorderStyle= 3 else thisform.BorderStyle= 2 endif this.Empresas = NEWOBJECT("Empresas", "Sys_clases_empresas.prg") IF NOT xNoMenu THEN LOCAL cGetMenuName cGetMenuName = "" * 0 - Normal * 1 - Sistema para locales (simplificado) * 2 - Sistema para punto de venta recontra simple * 3 - Sistema para remitos do case case p_inicio_sistema = 1 DO main_local.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 2 DO main_punto_de_venta.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 3 DO main_remitos.mpr WITH THIS, m.cGetMenuName otherwise DO main.mpr WITH THIS, m.cGetMenuName && ,.t. endcase this.menu_name = cGetMenuName DO Menu_Empresas IN Sys_clases_empresas WITH cGetMenuName , this.Empresas Thisform.Cargar_Empresas() =this.Resize () ENDIF thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC PROCEDURE RightClick thisform.timer1.Timer this.Resize ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *mensaje("nKeyCode: "+alltrim(str(nKeyCode))+" nShiftAltCtrl: "+alltrim(str(nShiftAltCtrl))+" BITTEST(nShiftAltCtrl,1): "+iif(BITTEST(nShiftAltCtrl,1), "TRUE","FALSE")) DO CASE CASE nKeyCode=27 THISFORM.Boton_barra_principal1.CLICK CASE pub_index=0 AND nKeyCode=24 AND BITTEST(nShiftAltCtrl,1) && Lo dejo como est pero para m no funciona p_dev_menu=.T. CASE nKeyCode=145 AND nShiftAltCtrl=3 && Ctrl-Shift Down p_dev_menu=.T. p_dev=.t. p_suspend=.t. OTHERWISE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDCASE ENDPROC nBorderStyle = 3 Top = 20 Left = 33 Height = 205 Width = 514 Desktop = .T. ShowWindow = 2 DoCreate = .T. ControlBox = .T. MaxButton = .F. Movable = .T. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) KeyPreview = .T. TitleBar = 1 WindowType = 1 WindowState = 0 empresas = .F. menu_name = .F. top_offset = 26 menu = "main" Name = "barra_principal" barrages.vcxformPixelsbarra_principalnBorderStyle = 3 Top = 20 Left = 33 Height = 205 Width = 514 Desktop = .T. ShowWindow = 2 DoCreate = .T. ControlBox = .T. MaxButton = .F. Movable = .T. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) KeyPreview = .T. TitleBar = 1 WindowType = 1 WindowState = 0 empresas = .F. menu_name = .F. top_offset = 26 menu = "main" Name = "barra_principal" ~PROCEDURE emp_activada LPARAMETERS xemp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE emp_presencia LPARAMETERS xEmp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE generar_menu DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE cargar_empresas LOCAL xBot, nIt PRIVATE xEmp SET PROCEDURE TO sys_color ADDITIVE BINDEVENT(thisform.empresas, "Recargado", thisform, "Cargar_Empresas") BINDEVENT(thisform.empresas, "activada", thisform, "emp_activada") BINDEVENT(thisform.empresas, "Presencia", thisform, "emp_Presencia") FOR nIt=1 TO MIN(8,thisform.empresas.coleccion.count) xEmp=thisform.empresas.coleccion(nIt) xBot=EVALUATE("Thisform.check_empresa"+STR(nIt,1)) xBot.Empresa2=thisform.empresas.coleccion(nIt) xBot.Empresa=thisform.empresas.coleccion(nIt) IF p_sys_color_botones = 1 THEN xBot.backcolor=Obtener_Color(xBot.Empresa.color, xBot.Empresa.dos) ENDIF NEXT FOR nIt=MIN(8,this.empresas.coleccion.count)+1 TO 8 xBot=EVALUATE("This.check_empresa"+STR(nIt,1)) xBot.presencia(.f.) NEXT This.generar_menu () ENDPROC PROCEDURE windowstate_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF m.vNewVal= 2 THEN this.WindowState= 0 ENDIF ENDPROC PROCEDURE actualizar_caption THIS.CAPTION=IIF(p_dev, p_emp + " - ","") + pubheader DO CASE CASE p_mail_bloqueo=1 THIS.CAPTION = THIS.CAPTION + " - NOMAIL" CASE p_mail_bloqueo=2 THIS.CAPTION = THIS.CAPTION + " - OJO MAIL CON P_DEV" CASE p_mail_bloqueo=3 THIS.CAPTION = THIS.CAPTION + " - VMAIL" ENDCASE THIS.CAPTION = THIS.CAPTION + IIF(p_ve_fce_bloqueo=1, " - FCEB" ,"") ENDPROC PROCEDURE click_boton if "GES."$upper(p_exe_file) IF p_avisa_actualizacion_pendiente#0 AND THISFORM.oAlertas.alerta_activa=0 AND upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") endif endif ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *mensaje("nKeyCode: "+alltrim(str(nKeyCode))+" nShiftAltCtrl: "+alltrim(str(nShiftAltCtrl))+" BITTEST(nShiftAltCtrl,1): "+iif(BITTEST(nShiftAltCtrl,1), "TRUE","FALSE")) DO CASE CASE nKeyCode=27 THISFORM.Boton_barra_principal1.CLICK CASE pub_index=0 AND nKeyCode=24 AND BITTEST(nShiftAltCtrl,1) && Lo dejo como est pero para m no funciona p_dev_menu=.T. CASE nKeyCode=145 AND nShiftAltCtrl=3 && Ctrl-Shift Down p_dev_menu=.T. p_dev=.t. p_suspend=.t. OTHERWISE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDCASE ENDPROC PROCEDURE RightClick thisform.timer1.Timer this.Resize ENDPROC PROCEDURE Init LPARAMETERS xNoMenu LOCAL xEmp, xBot if p_dev thisform.BorderStyle= 3 else thisform.BorderStyle= 2 endif this.Empresas = NEWOBJECT("Empresas", "Sys_clases_empresas.prg") IF NOT xNoMenu THEN LOCAL cGetMenuName cGetMenuName = "" * 0 - Normal * 1 - Sistema para locales (simplificado) * 2 - Sistema para punto de venta recontra simple * 3 - Sistema para remitos do case case p_inicio_sistema = 1 DO main_local.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 2 DO main_punto_de_venta.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 3 DO main_remitos.mpr WITH THIS, m.cGetMenuName otherwise DO main.mpr WITH THIS, m.cGetMenuName && ,.t. endcase this.menu_name = cGetMenuName DO Menu_Empresas IN Sys_clases_empresas WITH cGetMenuName , this.Empresas Thisform.Cargar_Empresas() =this.Resize () ENDIF thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC PROCEDURE Resize LPARAMETERS xBotones_Angostos *=sys_m("Resize") ***** POSISION BOTONES EMPRESAS *********** LOCAL xContar, xAncho, xMedio, xLeft, xTop, xAlto, xObj xContar=0 xAncho=0 xTop=0 xAlto=0 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xContar=xContar+1 xAncho=xAncho+IIF(xBotones_Angostos,60, xObj.WIDTH) xTop=MAX(xTop,xObj.TOP+xObj.HEIGHT) ENDIF NEXT IF xContar>=8 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=60 ENDIF NEXT xAncho=60*8 ENDIF IF xContar>0 xMedio=THIS.WIDTH/2 xLeft=xMedio-(xAncho/2) FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=IIF(xBotones_Angostos,60, xObj.WIDTH) xObj.LEFT=xLeft xLeft=xLeft+xObj.WIDTH ENDIF NEXT ENDIF FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="BOTON_BARRA_PRINCIPAL" AND xObj.VISIBLE THEN xObj.Top_Offset=xTop-THIS.Top_Offset xAlto=MAX(xAlto,xObj.TOP+xObj.HEIGHT) ENDIF NEXT THIS.oAlertas.TOP = xAlto xAlto = xAlto + IIF(THIS.oAlertas.VISIBLE, THIS.oAlertas.HEIGHT , 0 ) THISFORM.HEIGHT = xAlto +1 ******************************************* ENDPROC "wZ %U<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE5%Sys_clases_empresas CUMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE 5G+( sys_color0C RecargadoCargar_Empresas,Cactivada emp_activada.C Presencia emp_Presencia'(CFTC.TCThisform.check_empresaCZTCT C% #T C  +CF(*TCThis.check_empresaCZC- CUXBOTNITXEMP SYS_COLORTHISFORMEMPRESAS COLECCIONCOUNTEMPRESA2EMPRESAP_SYS_COLOR_BOTONES BACKCOLOR OBTENER_COLORCOLORDOSTHIS PRESENCIA GENERAR_MENU3% ,TUVNEWVALTHIS WINDOWSTATE)TC  - 6H: m T - NOMAIL ,T - OJO MAIL CON P_DEV T - VMAIL0TC  - FCEB6UTHISCAPTIONP_DEVP_EMP PUBHEADERP_MAIL_BLOQUEOP_VE_FCE_BLOQUEO%GES.CfF% CC inst\ges.exe 'CAlerta_ActualizacionU P_EXE_FILEP_AVISA_ACTUALIZACION_PENDIENTETHISFORMOALERTAS ALERTA_ACTIVA UPD_COMPAREP_SYSTEMCOLAAGREGAR_ALERTA_CLASE H < +  C r Ta  Ta Ta Ta 2CU NKEYCODE NSHIFTALTCTRLTHISFORMBOTON_BARRA_PRINCIPAL1CLICK PUB_INDEX P_DEV_MENUP_DEV P_SUSPEND  UTHISFORMTIMER1TIMERTHISRESIZE %1T KT5TCEmpresasSys_clases_empresas.prg%  TH} main_local.mpr  &(main_punto_de_venta.mpr  Z!main_remitos.mpr  2}main.mpr T)Sys_clases_empresas C CTUXNOMENUXEMPXBOTP_DEVTHISFORM BORDERSTYLETHISEMPRESAS CGETMENUNAMEP_INICIO_SISTEMA MAIN_LOCALMPRMAIN_PUNTO_DE_VENTA MAIN_REMITOSMAIN MENU_NAME MENU_EMPRESASSYS_CLASES_EMPRESASCARGAR_EMPRESASRESIZETIMER1ENABLEDP_TIMER_PRINCIPAL  T T T T /%C f CHECK_EMPRESA T"TC< 6TC D%p ^/%C f CHECK_EMPRESA ZT <T%AT  T  =/%C f CHECK_EMPRESA 9!T C< 6TT  7%C fBOTON_BARRA_PRINCIPAL TTC DT +TC 6TUXBOTONES_ANGOSTOSXCONTARXANCHOXMEDIOXLEFTXTOPXALTOXOBJTHISCONTROLSCLASSVISIBLEWIDTHTOPHEIGHTLEFT TOP_OFFSETOALERTASTHISFORM emp_activada0 emp_presencia generar_menuHcargar_empresaswindowstate_assignactualizar_caption click_botonCKeyPress_ RightClickInitResize 1qQ2qQ2Q2q1r11AAA2qRA3111A3aqAA31A32qARq111AA3qA!AA1ABAA1AaAAAAAAqqAA1A4{ %v !d'&/1<73t DE XH \ds)Kempresas Instancia del controlador de empresas menu_name Nombre del menu principal creado top_offset menu *emp_activar Evento lanzado para activar una empresa *emp_activada Evento lanzado al activarse una empresa. *emp_presencia *generar_menu *cargar_empresas *windowstate_assign *actualizar_caption *click_boton timertimerTimer1barra_principalQTop = 348 Left = 12 Height = 24 Width = 25 Interval = 1000 Name = "Timer1"  PROCEDURE Timer LOCAL xSel, tCMD, oCMD, oEx THIS.ENABLED=.F. THIS.INTERVAL=30000 TRY THISFORM.Empresas.Validar_presencias() CATCH TO oEx ENDTRY oSecurity.Registrar_Vida xSel=SELECT() oCMD=NEWOBJECT("Comandos","sys_comandos.prg") TRY oCMD.CMD_Buscar() CATCH TO oEx IF oEx.ERRORNO=2071 AND oex.uservalue.errorno=1104 IF Mensaje_sino("Error al procesar comandos !!!"+CHR(13)+"Aparentemente hubo una desconexin de datos." + CHR(13) + CHR(13) + ; "Se necesita CERRAR Y VOLVER A ABRIR el programa."+CHR(13)+"Desea cerrar el programa ahora?",2) THEN CLOSE ALL QUIT ELSE =Mensaje("Se necesita CERRAR Y VOLVER A ABRIR el programa.") ENDIF ENDIF ENDTRY SELECT (xSel) Thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC ".%?NUBT-T0u LC (Z TCW+TCComandossys_comandos.prg C ()%  P %CError al procesar comandos !!!C ,Aparentemente hubo una desconexin de datos.C C 0Se necesita CERRAR Y VOLVER A ABRIR el programa.C  Desea cerrar el programa ahora?8 =C0Se necesita CERRAR Y VOLVER A ABRIR el programa. FTUXSELTCMDOCMDOEXTHISENABLEDINTERVALTHISFORMEMPRESASVALIDAR_PRESENCIAS OSECURITYREGISTRAR_VIDA CMD_BUSCARERRORNO USERVALUE MENSAJE_SINOMENSAJETIMER1P_TIMER_PRINCIPALTimer011AB QAAAA2)timertimerFocobarra_principal]Top = 348 Left = 36 Height = 24 Width = 25 Enabled = .F. Interval = 200 Name = "Foco" PROCEDURE Timer this.Enabled=.f. DECLARE long SetActiveWindow IN "user32.dll" long setactivewindow(thisform.HWnd) thisform.timer1.Timer ENDPROC J"11|%UVT-(|SetActiveWindow user32.dllC UTHISENABLEDSETACTIVEWINDOWTHISFORMHWNDTIMER1TIMERTimer011)1 check_empresages.vcxcheckboxCheck_empresa1barra_principaldTop = 2 Left = 1 Width = 65 Alignment = 0 TabIndex = 1 ZOrderSet = 2 Name = "Check_empresa1"  check_empresages.vcxcheckboxCheck_empresa2barra_principaleTop = 2 Left = 65 Width = 65 Alignment = 0 TabIndex = 2 ZOrderSet = 3 Name = "Check_empresa2"  check_empresages.vcxcheckboxCheck_empresa3barra_principalfTop = 2 Left = 129 Width = 65 Alignment = 0 TabIndex = 3 ZOrderSet = 4 Name = "Check_empresa3"  check_empresages.vcxcheckboxCheck_empresa4barra_principalfTop = 2 Left = 193 Width = 65 Alignment = 0 TabIndex = 4 ZOrderSet = 5 Name = "Check_empresa4"  check_empresages.vcxcheckboxCheck_empresa5barra_principalfTop = 2 Left = 257 Width = 65 Alignment = 0 TabIndex = 5 ZOrderSet = 6 Name = "Check_empresa5"  check_empresages.vcxcheckboxCheck_empresa6barra_principalfTop = 2 Left = 321 Width = 65 Alignment = 0 TabIndex = 6 ZOrderSet = 7 Name = "Check_empresa6" boton_barra_principalges.vcx commandbuttonBoton_barra_principal1barra_principalTop = 100 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 20 ZOrderSet = 8 Name = "Boton_barra_principal1" mPROCEDURE Click oSecurity.Registrar_Salida if type("oAGESSol")="O" oAGESSol.oSistema.Informar_Cerrado() endif clear events thisform.release ENDPROC PROCEDURE RightClick if p_dev p_limpia_temporales=.f. endif oSecurity.Registrar_Salida try oAGESSol.oSistema.Informar_Cerrado() catch endtry clear events thisform.release ENDPROC s"ZZ,%UN %CoAGESSolbO8C U OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASEb% T-  BC L U P_DEVP_LIMPIA_TEMPORALES OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASEClick0 RightClick1AR4AAR3b )Zboton_barra_principalges.vcx commandbuttonBoton_barra_principal2barra_principalTop = 100 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\toolbox.ico DisabledPicture = bmp\toolbox_dis.ico Caption = " " TabIndex = 19 ZOrderSet = 9 Name = "Boton_barra_principal2" PROCEDURE RightClick thisform.timer1.Timer ENDPROC PROCEDURE Click =thisform.click_boton () if g_especial#0 local z, maxz, xmodulo xmodulo="Modulo1" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif * Por el momento no hay configuraciones especiales de inicializacin =abrir_tablas_fijas() select locales replace locales.es_ini with .t. do case case p_emp="SCH" do form es_barra_menu_sch case p_emp="CAL" do form es_barra_menu_cal case p_emp="IND" do form es_barra_menu_IND case p_emp="CLE" do form es_barra_menu_CLE case p_emp="NUV" do form es_barra_menu_NUV case p_emp="SEL" do form es_barra_menu_SEL case p_emp="CAR" do form es_barra_menu_CAR case p_emp="ELE" do form es_barra_menu_ELE case p_emp="MTZ" do form es_barra_menu_mtz case p_emp="IFM" do form es_barra_menu_ifm case p_emp="ZAR" do form es_barra_menu_zar case p_emp="DLC" do form es_barra_menu_dlc case p_emp="BLA" do form es_barra_menu_bla case p_emp="UNI" do form es_barra_menu_uni case p_emp="CAM" do form es_barra_menu_cam case p_emp="DAL" do form es_barra_menu_dal case p_emp="VIL" do form es_barra_menu_vil case p_emp="CL7" do form es_barra_menu_cl7 case p_emp="SAM" do form es_barra_menu_sam case p_emp="EST" do form es_barra_menu_est case p_emp="ESE" do form es_barra_menu_ese case p_emp="MCL" do form es_barra_menu_mcl case p_emp="SEG" do form es_barra_menu_SEG case p_emp="BEL" do form es_barra_menu_bel case p_emp="TFW" do form es_barra_menu_tfw case p_emp="SRI" do form es_barra_menu_sri case p_emp="HEB" do form es_barra_menu_heb case p_emp="LEC" do form es_barra_menu_Lec case p_emp="PAP" do form es_barra_menu_pap case p_emp="GAB" do form es_barra_menu_gab case p_emp="MAX" do form es_barra_menu_max case p_emp="EPS" do form es_barra_menu_eps CASE p_emp="ART" AND p_subsistema="Local" do form es_barra_menu_art case p_emp="STK" do form es_barra_menu_stk otherwise mensaje("An no implementado !!!") endcase ENDPROC PROCEDURE Init =DODEFAULT() if acceso(73,.f.).OR.acceso(82,.f.) this.enabled=.t. else this.enabled=.f. endif xok=.t. do case case p_emp="CAL" this.Caption="Calarc" case p_emp="SCH" this.Caption="Schillig" case p_emp="IND" this.Caption="Induart" case p_emp="NUV" this.Caption="Nuva" case p_emp="CLE" this.Caption="Cleaner" case p_emp="SEL" this.Caption="Maigal" case p_emp="CAR" this.Caption="Cardn" case p_emp="ELE" this.Caption="Electrophone" case p_emp="MTZ" this.Caption="Especiales" case p_emp="IFM" this.Caption="Ifm" case p_emp="ZAR" this.Caption="Zar" case p_emp="DLC" this.Caption="Della Casa" case p_emp="BLA" this.Caption="Lebl" case p_emp="UNI" this.Caption="Union Good" case p_emp="CAM" this.Caption="Cammi" case p_emp="DAL" this.Caption="Daluz" case p_emp="VIL" this.Caption="Vili" case p_emp="SAM" this.Caption="Samson" case p_emp="CL7" this.Caption="Club7" case p_emp="EST" this.Caption="PyA" case p_emp="ESE" this.Caption="Esenciar" case p_emp="MCL" this.Caption="Merclin" case p_emp="SEG" this.Caption="Segucuer" case p_emp="BEL" this.Caption="Bel Gioco" case p_emp="TFW" this.Caption="TFW/LCX/SHP" case p_emp="SRI" this.Caption="Sri Sri" case p_emp="HEB" this.Caption="Hebos" case p_emp="LEC" this.Caption="Lecar" case p_emp="PAP" this.Caption="Papelera" case p_emp="GAB" this.Caption="Gabriel" case p_emp="MAX" this.Caption="Maximia" case p_emp="EPS" this.Caption="Epsilon" case p_emp="ART" AND p_subsistema="Local" this.Caption="Art Duf" case p_emp="STK" this.Caption="Stark" otherwise this.Caption="Especiales" *xok=.f. endcase return xok ENDPROC R"99 E%=nU UTHISFORMTIMER1TIMER C%TModulo1T9(%C9T9 a9 !% :CError !!! Mdulo C no encontrado !!! B- C F > aHH SCHwes_barra_menu_sch CALes_barra_menu_cal INDes_barra_menu_IND CLEes_barra_menu_CLE NUV3es_barra_menu_NUV SELbes_barra_menu_SEL CARes_barra_menu_CAR ELEes_barra_menu_ELE MTZes_barra_menu_mtz IFMes_barra_menu_ifm ZARMes_barra_menu_zar DLC|es_barra_menu_dlc BLAes_barra_menu_bla UNIes_barra_menu_uni CAM es_barra_menu_cam DAL8es_barra_menu_dal VILges_barra_menu_vil CL7es_barra_menu_cl7 SAMes_barra_menu_sam ESTes_barra_menu_est ESE#es_barra_menu_ese MCLRes_barra_menu_mcl SEGes_barra_menu_SEG BELes_barra_menu_bel TFWes_barra_menu_tfw SRIes_barra_menu_sri HEB=es_barra_menu_heb LECles_barra_menu_Lec PAPes_barra_menu_pap GABes_barra_menu_gab MAXes_barra_menu_max EPS(es_barra_menu_eps& ART 0Local ges_barra_menu_art STKes_barra_menu_stk 2$CAn no implementado !!! U3THISFORM CLICK_BOTON G_ESPECIALZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEABRIR_TABLAS_FIJASLOCALESES_INIP_EMPES_BARRA_MENU_SCHES_BARRA_MENU_CALES_BARRA_MENU_INDES_BARRA_MENU_CLEES_BARRA_MENU_NUVES_BARRA_MENU_SELES_BARRA_MENU_CARES_BARRA_MENU_ELEES_BARRA_MENU_MTZES_BARRA_MENU_IFMES_BARRA_MENU_ZARES_BARRA_MENU_DLCES_BARRA_MENU_BLAES_BARRA_MENU_UNIES_BARRA_MENU_CAMES_BARRA_MENU_DALES_BARRA_MENU_VILES_BARRA_MENU_CL7ES_BARRA_MENU_SAMES_BARRA_MENU_ESTES_BARRA_MENU_ESEES_BARRA_MENU_MCLES_BARRA_MENU_SEGES_BARRA_MENU_BELES_BARRA_MENU_TFWES_BARRA_MENU_SRIES_BARRA_MENU_HEBES_BARRA_MENU_LECES_BARRA_MENU_PAPES_BARRA_MENU_GABES_BARRA_MENU_MAXES_BARRA_MENU_EPS P_SUBSISTEMAES_BARRA_MENU_ARTES_BARRA_MENU_STK C %CI- CR- 7Ta OT- TaHo CALTCalarc SCHTSchillig INDTInduart NUV!TNuva CLENTCleaner SELzTMaigal CARTCardn ELET Electrophone MTZT Especiales IFM1TIfm ZARZTZar DLCT Della Casa BLATLebl UNIT Union Good CAMTCammi DAL;TDaluz VILeTVili SAMTSamson CL7TClub7 ESTTPyA ESETEsenciar MCL@TMerclin SEGnTSegucuer BELT Bel Gioco TFWT TFW/LCX/SHP SRITSri Sri HEB&THebos LECQTLecar PAPTPapelera GABTGabriel MAXTMaximia EPSTEpsilon& ART Local CTArt Duf STKnTStark 2T Especiales BUACCESOTHISENABLEDXOKP_EMPCAPTION P_SUBSISTEMA RightClick0ClickaInitY 122Aa!AAA1ArAraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAA5AaqaaqaAaqaaaaaaa1a1aaQaaQaQaAaaaQa1aaqaaaaqaQaQaaqaqaqaqaQB1,H) `D o)9boton_barra_principalges.vcx commandbuttonBoton_barra_principal3barra_principalTop = 100 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\cubo.ico DisabledPicture = bmp\cubo_dis.ico Caption = "Gestin" TabIndex = 18 ZOrderSet = 10 Name = "Boton_barra_principal3" mPROCEDURE Click =thisform.click_boton () if g_gestion#0 local z, maxz, xmodulo xmodulo="Modulo_gestion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. ENDIF PUBLIC oBAR_GS do form gs_barra_menu NAME oBAR_GS ENDPROC PROCEDURE Init =DODEFAULT() if ( acceso(70,.f.).OR.acceso(81,.f.) ) and p_cashflow this.enabled=.t. else this.enabled=.f. endif ENDPROC F"--%UB C%TModulo_gestionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B-7  gs_barra_menuJ UTHISFORM CLICK_BOTON G_GESTIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEOBAR_GS GS_BARRA_MENU^ C(%CF- CQ-  ?Ta WT-UACCESO P_CASHFLOWTHISENABLEDClick0Init12a!AAA1ArAq2A2b)-boton_barra_principalges.vcx commandbuttonBoton_barra_principal4barra_principalTop = 100 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\costos.ico DisabledPicture = bmp\costos_dis.ico Caption = "Costos" TabIndex = 17 ZOrderSet = 11 Name = "Boton_barra_principal4" ?PROCEDURE Init =DODEFAULT() if acceso(68,.f.).OR.acceso(80,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_costos#0 local z, maxz, xmodulo xmodulo="Modulo_costos" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cs_barra_menu ENDPROC "U%UrUV C %CD- CP- 7Ta OT-UACCESOTHISENABLED6 C%T Modulo_costosT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cs_barra_menuU THISFORM CLICK_BOTONG_COSTOSZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CS_BARRA_MENUInit0Click1A32a!AAA1ArAQ3v4 )boton_barra_principalges.vcx commandbuttonBoton_barra_principal5barra_principalTop = 100 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\contabilidad2.ico DisabledPicture = bmp\contabilidad2_dis.ico Caption = "Contabilidad" TabIndex = 16 ZOrderSet = 12 Name = "Boton_barra_principal5" PROCEDURE Click =thisform.click_boton () if g_contabilidad#0 local z, maxz, xmodulo xmodulo="Modulo_contabilidad" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form co_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(2,.f.).OR.acceso(79,.f.) or acceso(142) * Acceso a contablidad o solo visualizaciones * o asientos modelo de tesorera pero solo para cambiar ejercicios this.enabled=.t. else this.enabled=.f. endif ENDPROC 1"+3%lU< C%  TModulo_contabilidadT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- co_barra_menuU THISFORM CLICK_BOTONG_CONTABILIDADZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CO_BARRA_MENUa C+%C- CO- C BTa ZT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ3A2)boton_barra_principalges.vcx commandbuttonBoton_barra_principal6barra_principalTop = 100 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\engranajes.ico DisabledPicture = bmp\engranajes_dis.ico Caption = "Produccin" TabIndex = 15 ZOrderSet = 13 Name = "Boton_barra_principal6" GPROCEDURE Init =DODEFAULT() if acceso(67,.f.).OR.acceso(78,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_produccion#0 local z, maxz, xmodulo xmodulo="Modulo_produccion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form pr_barra_menu ENDPROC ""   %]zUV C %CC- CN- 7Ta OT-UACCESOTHISENABLED: C%TModulo_produccionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- pr_barra_menuU THISFORM CLICK_BOTON G_PRODUCCIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE PR_BARRA_MENUInit0Click1A32a!AAA1ArAR2v< ) boton_barra_principalges.vcx commandbuttonBoton_barra_principal7barra_principalTop = 28 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Prov." TabIndex = 14 ZOrderSet = 14 Name = "Boton_barra_principal7" PROCEDURE Init =DODEFAULT() this.enabled=acceso(87).or.acceso(31) ENDPROC PROCEDURE Click do ge02.prg WITH 2 ENDPROC PROCEDURE RightClick IF p_dev THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Mail_Error") ENDIF ENDPROC "۾%Y EU+ CTCWC UTHISENABLEDACCESOge02.prgUGE02PRG:%3$CAlerta_Mail_ErrorUP_DEVOALERTASCOLAAGREGAR_ALERTA_CLASEInit0Clickz RightClick12Q3AA1C_t )boton_barra_principalges.vcx commandbuttonBoton_barra_principal8barra_principalTop = 28 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Clientes" TabIndex = 13 ZOrderSet = 15 Name = "Boton_barra_principal8" 8PROCEDURE RightClick IF p_dev THEN IF upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") ENDIF ENDIF ENDPROC PROCEDURE Init =DODEFAULT() this.Enabled=acceso(86).or.acceso(30) ENDPROC PROCEDURE Click do ge01.prg with 2 ENDPROC 3"hd%h Uk%d*%CC inst\ges.exe`'CAlerta_ActualizacionUP_DEV UPD_COMPARE P_EXE_FILEP_SYSTEMOALERTASCOLAAGREGAR_ALERTA_CLASE+ CTCVC UTHISENABLEDACCESOge01.prgUGE01PRG RightClick0InitClick=1qAA32Q2 - )boton_barra_principalges.vcx commandbuttonBoton_barra_principal9barra_principalTop = 28 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\package2.ico DisabledPicture = bmp\package2_dis.ico Caption = "Inventario" TabIndex = 12 ZOrderSet = 16 Name = "Boton_barra_principal9" APROCEDURE Init =DODEFAULT() if acceso(66,.f.).OR.acceso(77,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_inventario#0 local z, maxz, xmodulo xmodulo="Modulo_inventario" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form in_barra_menu ENDPROC ""   %]zUV C %CB- CM- 7Ta OT-UACCESOTHISENABLED: C%TModulo_inventarioT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- in_barra_menuU THISFORM CLICK_BOTON G_INVENTARIOZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE IN_BARRA_MENUInit0Click1A22a!AAA1ArAQ1t6 ) boton_barra_principalges.vcx commandbuttonBoton_barra_principal10barra_principalTop = 28 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\money2.ico DisabledPicture = bmp\money2_dis.ico Caption = "Tesorera" TabIndex = 11 ZOrderSet = 17 Name = "Boton_barra_principal10" BPROCEDURE Init =DODEFAULT() if acceso(9,.f.).OR.acceso(76,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_tesoreria#0 local z, maxz, xmodulo xmodulo="Modulo_tesoreria" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form te_barra_menu ENDPROC  "'%[xUV C %C - CL- 7Ta OT-UACCESOTHISENABLED9 C%TModulo_tesoreriaT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- te_barra_menuU THISFORM CLICK_BOTON G_TESORERIAZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE TE_BARRA_MENUInit0Click1A32a!AAA1ArAQ2u7 )boton_barra_principalges.vcx commandbuttonBoton_barra_principal11barra_principalTop = 28 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\carro2.ico DisabledPicture = bmp\carro2_dis.ico Caption = "Compras" TabIndex = 10 ZOrderSet = 18 Name = "Boton_barra_principal11" @PROCEDURE Init =DODEFAULT() if acceso(4,.f.).OR.acceso(75,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_compras#0 local z, maxz, xmodulo xmodulo="Modulo_compras" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cm_barra_menu ENDPROC "{%WtUV C %C- CK- 7Ta OT-UACCESOTHISENABLED7 C%TModulo_comprasT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cm_barra_menuU THISFORM CLICK_BOTON G_COMPRASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CM_BARRA_MENUInit0Click1A32a!AAA1ArAQ2w5 )boton_barra_principalges.vcx commandbuttonBoton_barra_principal12barra_principalTop = 28 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ventas.ico DisabledPicture = bmp\ventas_dis.ico Caption = "Facturacin" TabIndex = 9 ZOrderSet = 19 Name = "Boton_barra_principal12" CPROCEDURE Init =DODEFAULT() if acceso(3,.f.).OR.acceso(74,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_ventas#0 local z, maxz, xmodulo xmodulo="Modulo_facturacion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form ve_barra_menu ENDPROC "%ZwUV C %C- CJ- 7Ta OT-UACCESOTHISENABLED; C%TModulo_facturacionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- ve_barra_menuU THISFORM CLICK_BOTONG_VENTASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE VE_BARRA_MENUInit0Click1A32a!AAA1ArAR2u8 )visor alertas.vcx containeroAlertasbarra_principal\Top = 171 Left = 2 Width = 509 BorderWidth = 0 Visible = .F. TabIndex = 21 ZOrderSet = 20 Name = "oAlertas" lbSubject.Name = "lbSubject" imMas.Height = 16 imMas.Left = 469 imMas.Top = 8 imMas.Width = 16 imMas.Name = "imMas" imBorrar.Height = 16 imBorrar.Left = 488 imBorrar.Top = 7 imBorrar.Width = 16 imBorrar.Name = "imBorrar" 2PROCEDURE visibilidad thisform.Resize ENDPROC ".%WrlU UTHISFORMRESIZE visibilidad011') check_empresages.vcxcheckboxCheck_empresa7barra_principalgTop = 2 Left = 384 Width = 65 Alignment = 0 TabIndex = 7 ZOrderSet = 21 Name = "Check_empresa7"  check_empresages.vcxcheckboxCheck_empresa8barra_principalgTop = 2 Left = 447 Width = 65 Alignment = 0 TabIndex = 8 ZOrderSet = 22 Name = "Check_empresa8" barra_principalbarra24ClassPixelsbarra_principalBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 barrages.vcxformPixelsbarra_principalnBorderStyle = 3 Top = 20 Left = 33 Height = 205 Width = 514 Desktop = .T. ShowWindow = 2 DoCreate = .T. ControlBox = .T. MaxButton = .F. Movable = .T. MDIForm = .T. Icon = ("bmp\"+p_icono_sistema) KeyPreview = .T. TitleBar = 1 WindowType = 1 WindowState = 0 empresas = .F. menu_name = .F. top_offset = 26 menu = "main" Name = "barra_principal" ~PROCEDURE emp_activada LPARAMETERS xemp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE emp_presencia LPARAMETERS xEmp DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE generar_menu DO Menu_Empresas_POPUP IN Sys_clases_empresas WITH this.empresas =this.Resize () ENDPROC PROCEDURE cargar_empresas LOCAL xBot, nIt PRIVATE xEmp SET PROCEDURE TO sys_color ADDITIVE BINDEVENT(thisform.empresas, "Recargado", thisform, "Cargar_Empresas") BINDEVENT(thisform.empresas, "activada", thisform, "emp_activada") BINDEVENT(thisform.empresas, "Presencia", thisform, "emp_Presencia") FOR nIt=1 TO MIN(8,thisform.empresas.coleccion.count) xEmp=thisform.empresas.coleccion(nIt) xBot=EVALUATE("Thisform.check_empresa"+STR(nIt,1)) xBot.Empresa2=thisform.empresas.coleccion(nIt) xBot.Empresa=thisform.empresas.coleccion(nIt) IF p_sys_color_botones = 1 THEN xBot.backcolor=Obtener_Color(xBot.Empresa.color, xBot.Empresa.dos) ENDIF NEXT FOR nIt=MIN(8,this.empresas.coleccion.count)+1 TO 8 xBot=EVALUATE("This.check_empresa"+STR(nIt,1)) xBot.presencia(.f.) NEXT This.generar_menu () ENDPROC PROCEDURE windowstate_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method IF m.vNewVal= 2 THEN this.WindowState= 0 ENDIF ENDPROC PROCEDURE actualizar_caption THIS.CAPTION=IIF(p_dev, p_emp + " - ","") + pubheader DO CASE CASE p_mail_bloqueo=1 THIS.CAPTION = THIS.CAPTION + " - NOMAIL" CASE p_mail_bloqueo=2 THIS.CAPTION = THIS.CAPTION + " - OJO MAIL CON P_DEV" CASE p_mail_bloqueo=3 THIS.CAPTION = THIS.CAPTION + " - VMAIL" ENDCASE THIS.CAPTION = THIS.CAPTION + IIF(p_ve_fce_bloqueo=1, " - FCEB" ,"") ENDPROC PROCEDURE click_boton if "GES."$upper(p_exe_file) IF p_avisa_actualizacion_pendiente#0 AND THISFORM.oAlertas.alerta_activa=0 AND upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") endif endif ENDPROC PROCEDURE Resize LPARAMETERS xBotones_Angostos *=sys_m("Resize") ***** POSISION BOTONES EMPRESAS *********** LOCAL xContar, xAncho, xMedio, xLeft, xTop, xAlto, xObj xContar=0 xAncho=0 xTop=0 xAlto=0 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xContar=xContar+1 xAncho=xAncho+IIF(xBotones_Angostos,60, xObj.WIDTH) xTop=MAX(xTop,xObj.TOP+xObj.HEIGHT) ENDIF NEXT IF xContar>=8 FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=60 ENDIF NEXT xAncho=60*8 ENDIF IF xContar>0 xMedio=THIS.WIDTH/2 xLeft=xMedio-(xAncho/2) FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="CHECK_EMPRESA" AND xObj.VISIBLE THEN xObj.WIDTH=IIF(xBotones_Angostos,60, xObj.WIDTH) xObj.LEFT=xLeft xLeft=xLeft+xObj.WIDTH ENDIF NEXT ENDIF FOR EACH xObj IN THIS.CONTROLS IF UPPER(xObj.CLASS)="BOTON_BARRA_PRINCIPAL" AND xObj.VISIBLE THEN xObj.Top_Offset=xTop-THIS.Top_Offset xAlto=MAX(xAlto,xObj.TOP+xObj.HEIGHT) ENDIF NEXT THIS.oAlertas.TOP = xAlto xAlto = xAlto + IIF(THIS.oAlertas.VISIBLE, THIS.oAlertas.HEIGHT , 0 ) THISFORM.HEIGHT = xAlto +1 ******************************************* ENDPROC PROCEDURE Init LPARAMETERS xNoMenu LOCAL xEmp, xBot if p_dev thisform.BorderStyle= 3 else thisform.BorderStyle= 2 endif this.Empresas = NEWOBJECT("Empresas", "Sys_clases_empresas.prg") IF NOT xNoMenu THEN LOCAL cGetMenuName cGetMenuName = "" * 0 - Normal * 1 - Sistema para locales (simplificado) * 2 - Sistema para punto de venta recontra simple * 3 - Sistema para remitos do case case p_inicio_sistema = 1 DO main_local.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 2 DO main_punto_de_venta.mpr WITH THIS, m.cGetMenuName case p_inicio_sistema = 3 DO main_remitos.mpr WITH THIS, m.cGetMenuName otherwise DO main.mpr WITH THIS, m.cGetMenuName && ,.t. endcase this.menu_name = cGetMenuName DO Menu_Empresas IN Sys_clases_empresas WITH cGetMenuName , this.Empresas Thisform.Cargar_Empresas() =this.Resize () ENDIF thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC PROCEDURE RightClick thisform.timer1.Timer this.Resize ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl *mensaje("nKeyCode: "+alltrim(str(nKeyCode))+" nShiftAltCtrl: "+alltrim(str(nShiftAltCtrl))+" BITTEST(nShiftAltCtrl,1): "+iif(BITTEST(nShiftAltCtrl,1), "TRUE","FALSE")) DO CASE CASE nKeyCode=27 THISFORM.Boton_barra_principal1.CLICK CASE pub_index=0 AND nKeyCode=24 AND BITTEST(nShiftAltCtrl,1) && Lo dejo como est pero para m no funciona p_dev_menu=.T. CASE nKeyCode=145 AND nShiftAltCtrl=3 && Ctrl-Shift Down p_dev_menu=.T. p_dev=.t. p_suspend=.t. OTHERWISE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDCASE ENDPROC "wZ %U<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE<%Sys_clases_empresas CUXEMPMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE5%Sys_clases_empresas CUMENU_EMPRESAS_POPUPSYS_CLASES_EMPRESASTHISEMPRESASRESIZE 5G+( sys_color0C RecargadoCargar_Empresas,Cactivada emp_activada.C Presencia emp_Presencia'(CFTC.TCThisform.check_empresaCZTCT C% #T C  +CF(*TCThis.check_empresaCZC- CUXBOTNITXEMP SYS_COLORTHISFORMEMPRESAS COLECCIONCOUNTEMPRESA2EMPRESAP_SYS_COLOR_BOTONES BACKCOLOR OBTENER_COLORCOLORDOSTHIS PRESENCIA GENERAR_MENU3% ,TUVNEWVALTHIS WINDOWSTATE)TC  - 6H: m T - NOMAIL ,T - OJO MAIL CON P_DEV T - VMAIL0TC  - FCEB6UTHISCAPTIONP_DEVP_EMP PUBHEADERP_MAIL_BLOQUEOP_VE_FCE_BLOQUEO%GES.CfF% CC inst\ges.exe 'CAlerta_ActualizacionU P_EXE_FILEP_AVISA_ACTUALIZACION_PENDIENTETHISFORMOALERTAS ALERTA_ACTIVA UPD_COMPAREP_SYSTEMCOLAAGREGAR_ALERTA_CLASE  T T T T /%C f CHECK_EMPRESA T"TC< 6TC D%p ^/%C f CHECK_EMPRESA ZT <T%AT  T  =/%C f CHECK_EMPRESA 9!T C< 6TT  7%C fBOTON_BARRA_PRINCIPAL TTC DT +TC 6TUXBOTONES_ANGOSTOSXCONTARXANCHOXMEDIOXLEFTXTOPXALTOXOBJTHISCONTROLSCLASSVISIBLEWIDTHTOPHEIGHTLEFT TOP_OFFSETOALERTASTHISFORM %1T KT5TCEmpresasSys_clases_empresas.prg%  TH} main_local.mpr  &(main_punto_de_venta.mpr  Z!main_remitos.mpr  2}main.mpr T)Sys_clases_empresas C CTUXNOMENUXEMPXBOTP_DEVTHISFORM BORDERSTYLETHISEMPRESAS CGETMENUNAMEP_INICIO_SISTEMA MAIN_LOCALMPRMAIN_PUNTO_DE_VENTA MAIN_REMITOSMAIN MENU_NAME MENU_EMPRESASSYS_CLASES_EMPRESASCARGAR_EMPRESASRESIZETIMER1ENABLEDP_TIMER_PRINCIPAL  UTHISFORMTIMER1TIMERTHISRESIZE H < +  C r Ta  Ta Ta Ta 2CU NKEYCODE NSHIFTALTCTRLTHISFORMBOTON_BARRA_PRINCIPAL1CLICK PUB_INDEX P_DEV_MENUP_DEV P_SUSPEND emp_activada0 emp_presencia generar_menuHcargar_empresaswindowstate_assignactualizar_caption click_botonCResize_Init' RightClick+KeyPresst1qQ2qQ2Q2q1r11AAA2qRA3111A3aqAA3qA!AA1ABAA1AaAAAAAAqqAA1A5qARq111AA321A2{ %v !d'&/1<71 Da u}2s)Kempresas Instancia del controlador de empresas menu_name Nombre del menu principal creado top_offset menu *emp_activar Evento lanzado para activar una empresa *emp_activada Evento lanzado al activarse una empresa. *emp_presencia *generar_menu *cargar_empresas *windowstate_assign *actualizar_caption *click_boton timertimerTimer1barra_principalQTop = 348 Left = 12 Height = 24 Width = 25 Interval = 1000 Name = "Timer1"  PROCEDURE Timer LOCAL xSel, tCMD, oCMD, oEx THIS.ENABLED=.F. THIS.INTERVAL=30000 TRY THISFORM.Empresas.Validar_presencias() CATCH TO oEx ENDTRY oSecurity.Registrar_Vida xSel=SELECT() oCMD=NEWOBJECT("Comandos","sys_comandos.prg") TRY oCMD.CMD_Buscar() CATCH TO oEx IF oEx.ERRORNO=2071 AND oex.uservalue.errorno=1104 IF Mensaje_sino("Error al procesar comandos !!!"+CHR(13)+"Aparentemente hubo una desconexin de datos." + CHR(13) + CHR(13) + ; "Se necesita CERRAR Y VOLVER A ABRIR el programa."+CHR(13)+"Desea cerrar el programa ahora?",2) THEN CLOSE ALL QUIT ELSE =Mensaje("Se necesita CERRAR Y VOLVER A ABRIR el programa.") ENDIF ENDIF ENDTRY SELECT (xSel) Thisform.timer1.ENABLED=(p_timer_principal=1) ENDPROC ".%?NUBT-T0u LC (Z TCW+TCComandossys_comandos.prg C ()%  P %CError al procesar comandos !!!C ,Aparentemente hubo una desconexin de datos.C C 0Se necesita CERRAR Y VOLVER A ABRIR el programa.C  Desea cerrar el programa ahora?8 =C0Se necesita CERRAR Y VOLVER A ABRIR el programa. FTUXSELTCMDOCMDOEXTHISENABLEDINTERVALTHISFORMEMPRESASVALIDAR_PRESENCIAS OSECURITYREGISTRAR_VIDA CMD_BUSCARERRORNO USERVALUE MENSAJE_SINOMENSAJETIMER1P_TIMER_PRINCIPALTimer011AB QAAAA2)timertimerFocobarra_principal]Top = 348 Left = 36 Height = 24 Width = 25 Enabled = .F. Interval = 200 Name = "Foco" PROCEDURE Timer this.Enabled=.f. DECLARE long SetActiveWindow IN "user32.dll" long setactivewindow(thisform.HWnd) thisform.timer1.Timer ENDPROC J"11|%UVT-(|SetActiveWindow user32.dllC UTHISENABLEDSETACTIVEWINDOWTHISFORMHWNDTIMER1TIMERTimer011)1 check_empresages.vcxcheckboxCheck_empresa1barra_principaldTop = 2 Left = 1 Width = 65 Alignment = 0 TabIndex = 1 ZOrderSet = 2 Name = "Check_empresa1"  check_empresages.vcxcheckboxCheck_empresa2barra_principaleTop = 2 Left = 65 Width = 65 Alignment = 0 TabIndex = 2 ZOrderSet = 3 Name = "Check_empresa2"  check_empresages.vcxcheckboxCheck_empresa3barra_principalfTop = 2 Left = 129 Width = 65 Alignment = 0 TabIndex = 3 ZOrderSet = 4 Name = "Check_empresa3"  check_empresages.vcxcheckboxCheck_empresa4barra_principalfTop = 2 Left = 193 Width = 65 Alignment = 0 TabIndex = 4 ZOrderSet = 5 Name = "Check_empresa4"  check_empresages.vcxcheckboxCheck_empresa5barra_principalfTop = 2 Left = 257 Width = 65 Alignment = 0 TabIndex = 5 ZOrderSet = 6 Name = "Check_empresa5"  check_empresages.vcxcheckboxCheck_empresa6barra_principalfTop = 2 Left = 321 Width = 65 Alignment = 0 TabIndex = 6 ZOrderSet = 7 Name = "Check_empresa6" boton_barra_principalges.vcx commandbuttonBoton_barra_principal1barra_principalTop = 100 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 20 ZOrderSet = 8 Name = "Boton_barra_principal1" mPROCEDURE RightClick if p_dev p_limpia_temporales=.f. endif oSecurity.Registrar_Salida try oAGESSol.oSistema.Informar_Cerrado() catch endtry clear events thisform.release ENDPROC PROCEDURE Click oSecurity.Registrar_Salida if type("oAGESSol")="O" oAGESSol.oSistema.Informar_Cerrado() endif clear events thisform.release ENDPROC s"ZZ,%Ub% T-  BC L U P_DEVP_LIMPIA_TEMPORALES OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASEN %CoAGESSolbO8C U OSECURITYREGISTRAR_SALIDAOAGESSOLOSISTEMAINFORMAR_CERRADOTHISFORMRELEASE RightClick0Click 1AAR4AR3 b)Zboton_barra_principalges.vcx commandbuttonBoton_barra_principal2barra_principalTop = 100 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\toolbox.ico DisabledPicture = bmp\toolbox_dis.ico Caption = " " TabIndex = 19 ZOrderSet = 9 Name = "Boton_barra_principal2" PROCEDURE Init =DODEFAULT() if acceso(73,.f.).OR.acceso(82,.f.) this.enabled=.t. else this.enabled=.f. endif xok=.t. do case case p_emp="CAL" this.Caption="Calarc" case p_emp="SCH" this.Caption="Schillig" case p_emp="IND" this.Caption="Induart" case p_emp="NUV" this.Caption="Nuva" case p_emp="CLE" this.Caption="Cleaner" case p_emp="SEL" this.Caption="Maigal" case p_emp="CAR" this.Caption="Cardn" case p_emp="ELE" this.Caption="Electrophone" case p_emp="MTZ" this.Caption="Especiales" case p_emp="IFM" this.Caption="Ifm" case p_emp="ZAR" this.Caption="Zar" case p_emp="DLC" this.Caption="Della Casa" case p_emp="BLA" this.Caption="Lebl" case p_emp="UNI" this.Caption="Union Good" case p_emp="CAM" this.Caption="Cammi" case p_emp="DAL" this.Caption="Daluz" case p_emp="VIL" this.Caption="Vili" case p_emp="SAM" this.Caption="Samson" case p_emp="CL7" this.Caption="Club7" case p_emp="EST" this.Caption="PyA" case p_emp="ESE" this.Caption="Esenciar" case p_emp="MCL" this.Caption="Merclin" case p_emp="SEG" this.Caption="Segucuer" case p_emp="BEL" this.Caption="Bel Gioco" case p_emp="TFW" this.Caption="TFW/LCX/SHP" case p_emp="SRI" this.Caption="Sri Sri" case p_emp="HEB" this.Caption="Hebos" case p_emp="LEC" this.Caption="Lecar" case p_emp="PAP" this.Caption="Papelera" case p_emp="GAB" this.Caption="Gabriel" case p_emp="MAX" this.Caption="Maximia" case p_emp="EPS" this.Caption="Epsilon" case p_emp="ART" AND p_subsistema="Local" this.Caption="Art Duf" case p_emp="STK" this.Caption="Stark" otherwise this.Caption="Especiales" *xok=.f. endcase return xok ENDPROC PROCEDURE Click =thisform.click_boton () if g_especial#0 local z, maxz, xmodulo xmodulo="Modulo1" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif * Por el momento no hay configuraciones especiales de inicializacin =abrir_tablas_fijas() select locales replace locales.es_ini with .t. do case case p_emp="SCH" do form es_barra_menu_sch case p_emp="CAL" do form es_barra_menu_cal case p_emp="IND" do form es_barra_menu_IND case p_emp="CLE" do form es_barra_menu_CLE case p_emp="NUV" do form es_barra_menu_NUV case p_emp="SEL" do form es_barra_menu_SEL case p_emp="CAR" do form es_barra_menu_CAR case p_emp="ELE" do form es_barra_menu_ELE case p_emp="MTZ" do form es_barra_menu_mtz case p_emp="IFM" do form es_barra_menu_ifm case p_emp="ZAR" do form es_barra_menu_zar case p_emp="DLC" do form es_barra_menu_dlc case p_emp="BLA" do form es_barra_menu_bla case p_emp="UNI" do form es_barra_menu_uni case p_emp="CAM" do form es_barra_menu_cam case p_emp="DAL" do form es_barra_menu_dal case p_emp="VIL" do form es_barra_menu_vil case p_emp="CL7" do form es_barra_menu_cl7 case p_emp="SAM" do form es_barra_menu_sam case p_emp="EST" do form es_barra_menu_est case p_emp="ESE" do form es_barra_menu_ese case p_emp="MCL" do form es_barra_menu_mcl case p_emp="SEG" do form es_barra_menu_SEG case p_emp="BEL" do form es_barra_menu_bel case p_emp="TFW" do form es_barra_menu_tfw case p_emp="SRI" do form es_barra_menu_sri case p_emp="HEB" do form es_barra_menu_heb case p_emp="LEC" do form es_barra_menu_Lec case p_emp="PAP" do form es_barra_menu_pap case p_emp="GAB" do form es_barra_menu_gab case p_emp="MAX" do form es_barra_menu_max case p_emp="EPS" do form es_barra_menu_eps CASE p_emp="ART" AND p_subsistema="Local" do form es_barra_menu_art case p_emp="STK" do form es_barra_menu_stk otherwise mensaje("An no implementado !!!") endcase ENDPROC PROCEDURE RightClick thisform.timer1.Timer ENDPROC R"99 E%=nU C %CI- CR- 7Ta OT- TaHo CALTCalarc SCHTSchillig INDTInduart NUV!TNuva CLENTCleaner SELzTMaigal CARTCardn ELET Electrophone MTZT Especiales IFM1TIfm ZARZTZar DLCT Della Casa BLATLebl UNIT Union Good CAMTCammi DAL;TDaluz VILeTVili SAMTSamson CL7TClub7 ESTTPyA ESETEsenciar MCL@TMerclin SEGnTSegucuer BELT Bel Gioco TFWT TFW/LCX/SHP SRITSri Sri HEB&THebos LECQTLecar PAPTPapelera GABTGabriel MAXTMaximia EPSTEpsilon& ART Local CTArt Duf STKnTStark 2T Especiales BUACCESOTHISENABLEDXOKP_EMPCAPTION P_SUBSISTEMA C%TModulo1T9(%C9T9 a9 !% :CError !!! Mdulo C no encontrado !!! B- C F > aHH SCHwes_barra_menu_sch CALes_barra_menu_cal INDes_barra_menu_IND CLEes_barra_menu_CLE NUV3es_barra_menu_NUV SELbes_barra_menu_SEL CARes_barra_menu_CAR ELEes_barra_menu_ELE MTZes_barra_menu_mtz IFMes_barra_menu_ifm ZARMes_barra_menu_zar DLC|es_barra_menu_dlc BLAes_barra_menu_bla UNIes_barra_menu_uni CAM es_barra_menu_cam DAL8es_barra_menu_dal VILges_barra_menu_vil CL7es_barra_menu_cl7 SAMes_barra_menu_sam ESTes_barra_menu_est ESE#es_barra_menu_ese MCLRes_barra_menu_mcl SEGes_barra_menu_SEG BELes_barra_menu_bel TFWes_barra_menu_tfw SRIes_barra_menu_sri HEB=es_barra_menu_heb LECles_barra_menu_Lec PAPes_barra_menu_pap GABes_barra_menu_gab MAXes_barra_menu_max EPS(es_barra_menu_eps& ART 0Local ges_barra_menu_art STKes_barra_menu_stk 2$CAn no implementado !!! U3THISFORM CLICK_BOTON G_ESPECIALZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEABRIR_TABLAS_FIJASLOCALESES_INIP_EMPES_BARRA_MENU_SCHES_BARRA_MENU_CALES_BARRA_MENU_INDES_BARRA_MENU_CLEES_BARRA_MENU_NUVES_BARRA_MENU_SELES_BARRA_MENU_CARES_BARRA_MENU_ELEES_BARRA_MENU_MTZES_BARRA_MENU_IFMES_BARRA_MENU_ZARES_BARRA_MENU_DLCES_BARRA_MENU_BLAES_BARRA_MENU_UNIES_BARRA_MENU_CAMES_BARRA_MENU_DALES_BARRA_MENU_VILES_BARRA_MENU_CL7ES_BARRA_MENU_SAMES_BARRA_MENU_ESTES_BARRA_MENU_ESEES_BARRA_MENU_MCLES_BARRA_MENU_SEGES_BARRA_MENU_BELES_BARRA_MENU_TFWES_BARRA_MENU_SRIES_BARRA_MENU_HEBES_BARRA_MENU_LECES_BARRA_MENU_PAPES_BARRA_MENU_GABES_BARRA_MENU_MAXES_BARRA_MENU_EPS P_SUBSISTEMAES_BARRA_MENU_ARTES_BARRA_MENU_STK UTHISFORMTIMER1TIMERInit0Click RightClick 1AaqaaqaAaqaaaaaaa1a1aaQaaQaQaAaaaQa1aaqaaaaqaQaQaaqaqaqaqaQB22Aa!AAA1ArAraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAA51RV)9boton_barra_principalges.vcx commandbuttonBoton_barra_principal3barra_principalTop = 100 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\cubo.ico DisabledPicture = bmp\cubo_dis.ico Caption = "Gestin" TabIndex = 18 ZOrderSet = 10 Name = "Boton_barra_principal3" mPROCEDURE Init =DODEFAULT() if ( acceso(70,.f.).OR.acceso(81,.f.) ) and p_cashflow this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_gestion#0 local z, maxz, xmodulo xmodulo="Modulo_gestion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. ENDIF PUBLIC oBAR_GS do form gs_barra_menu NAME oBAR_GS ENDPROC F"--%U^ C(%CF- CQ-  ?Ta WT-UACCESO P_CASHFLOWTHISENABLEDB C%TModulo_gestionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B-7  gs_barra_menuJ UTHISFORM CLICK_BOTON G_GESTIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJEOBAR_GS GS_BARRA_MENUInit0Click1A32a!AAA1ArAq1b )-boton_barra_principalges.vcx commandbuttonBoton_barra_principal4barra_principalTop = 100 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\costos.ico DisabledPicture = bmp\costos_dis.ico Caption = "Costos" TabIndex = 17 ZOrderSet = 11 Name = "Boton_barra_principal4" ?PROCEDURE Click =thisform.click_boton () if g_costos#0 local z, maxz, xmodulo xmodulo="Modulo_costos" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cs_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(68,.f.).OR.acceso(80,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC "U%UrU6 C%T Modulo_costosT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cs_barra_menuU THISFORM CLICK_BOTONG_COSTOSZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CS_BARRA_MENUV C %CD- CP- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ4A24)boton_barra_principalges.vcx commandbuttonBoton_barra_principal5barra_principalTop = 100 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\contabilidad2.ico DisabledPicture = bmp\contabilidad2_dis.ico Caption = "Contabilidad" TabIndex = 16 ZOrderSet = 12 Name = "Boton_barra_principal5" PROCEDURE Init =DODEFAULT() if acceso(2,.f.).OR.acceso(79,.f.) or acceso(142) * Acceso a contablidad o solo visualizaciones * o asientos modelo de tesorera pero solo para cambiar ejercicios this.enabled=.t. else this.enabled=.f. endif ENDPROC PROCEDURE Click =thisform.click_boton () if g_contabilidad#0 local z, maxz, xmodulo xmodulo="Modulo_contabilidad" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form co_barra_menu ENDPROC 1"+3%lUa C+%C- CO- C BTa ZT-UACCESOTHISENABLED< C%  TModulo_contabilidadT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- co_barra_menuU THISFORM CLICK_BOTONG_CONTABILIDADZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CO_BARRA_MENUInit0Click1A32a!AAA1ArAQ2 )boton_barra_principalges.vcx commandbuttonBoton_barra_principal6barra_principalTop = 100 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\engranajes.ico DisabledPicture = bmp\engranajes_dis.ico Caption = "Produccin" TabIndex = 15 ZOrderSet = 13 Name = "Boton_barra_principal6" GPROCEDURE Click =thisform.click_boton () if g_produccion#0 local z, maxz, xmodulo xmodulo="Modulo_produccion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form pr_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(67,.f.).OR.acceso(78,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC ""   %]zU: C%TModulo_produccionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- pr_barra_menuU THISFORM CLICK_BOTON G_PRODUCCIONZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE PR_BARRA_MENUV C %CC- CN- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAR3A2<) boton_barra_principalges.vcx commandbuttonBoton_barra_principal7barra_principalTop = 28 Left = 426 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Prov." TabIndex = 14 ZOrderSet = 14 Name = "Boton_barra_principal7" PROCEDURE RightClick IF p_dev THEN oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Mail_Error") ENDIF ENDPROC PROCEDURE Click do ge02.prg WITH 2 ENDPROC PROCEDURE Init =DODEFAULT() this.enabled=acceso(87).or.acceso(31) ENDPROC "۾%Y EU:%3$CAlerta_Mail_ErrorUP_DEVOALERTASCOLAAGREGAR_ALERTA_CLASEge02.prgUGE02PRG+ CTCWC UTHISENABLEDACCESO RightClick0ClickInit1AA2Q31f )boton_barra_principalges.vcx commandbuttonBoton_barra_principal8barra_principalTop = 28 Left = 341 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ctacte.ico DisabledPicture = bmp\ctacte_dis.ico Caption = "C.C.Clientes" TabIndex = 13 ZOrderSet = 15 Name = "Boton_barra_principal8" 8PROCEDURE Click do ge01.prg with 2 ENDPROC PROCEDURE Init =DODEFAULT() this.Enabled=acceso(86).or.acceso(30) ENDPROC PROCEDURE RightClick IF p_dev THEN IF upd_Compare(p_exe_file, ADDBS(p_system)+"inst\ges.exe") oAlertas.Cola.Agregar_Alerta_Clase("Alerta_Actualizacion") ENDIF ENDIF ENDPROC 3"hd%h Uge01.prgUGE01PRG+ CTCVC UTHISENABLEDACCESOk%d*%CC inst\ges.exe`'CAlerta_ActualizacionUP_DEV UPD_COMPARE P_EXE_FILEP_SYSTEMOALERTASCOLAAGREGAR_ALERTA_CLASEClick0Init[ RightClick1Q32qAA2%@s- )boton_barra_principalges.vcx commandbuttonBoton_barra_principal9barra_principalTop = 28 Left = 256 Height = 73 Width = 86 FontSize = 8 Picture = bmp\package2.ico DisabledPicture = bmp\package2_dis.ico Caption = "Inventario" TabIndex = 12 ZOrderSet = 16 Name = "Boton_barra_principal9" APROCEDURE Click =thisform.click_boton () if g_inventario#0 local z, maxz, xmodulo xmodulo="Modulo_inventario" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form in_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(66,.f.).OR.acceso(77,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC ""   %]zU: C%TModulo_inventarioT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- in_barra_menuU THISFORM CLICK_BOTON G_INVENTARIOZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE IN_BARRA_MENUV C %CB- CM- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ2A16) boton_barra_principalges.vcx commandbuttonBoton_barra_principal10barra_principalTop = 28 Left = 171 Height = 73 Width = 86 FontSize = 8 Picture = bmp\money2.ico DisabledPicture = bmp\money2_dis.ico Caption = "Tesorera" TabIndex = 11 ZOrderSet = 17 Name = "Boton_barra_principal10" BPROCEDURE Click =thisform.click_boton () if g_tesoreria#0 local z, maxz, xmodulo xmodulo="Modulo_tesoreria" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form te_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(9,.f.).OR.acceso(76,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC  "'%[xU9 C%TModulo_tesoreriaT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- te_barra_menuU THISFORM CLICK_BOTON G_TESORERIAZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE TE_BARRA_MENUV C %C - CL- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ3A27)boton_barra_principalges.vcx commandbuttonBoton_barra_principal11barra_principalTop = 28 Left = 86 Height = 73 Width = 86 FontSize = 8 Picture = bmp\carro2.ico DisabledPicture = bmp\carro2_dis.ico Caption = "Compras" TabIndex = 10 ZOrderSet = 18 Name = "Boton_barra_principal11" @PROCEDURE Click =thisform.click_boton () if g_compras#0 local z, maxz, xmodulo xmodulo="Modulo_compras" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form cm_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(4,.f.).OR.acceso(75,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC "{%WtU7 C%TModulo_comprasT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- cm_barra_menuU THISFORM CLICK_BOTON G_COMPRASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE CM_BARRA_MENUV C %C- CK- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAQ3A25)boton_barra_principalges.vcx commandbuttonBoton_barra_principal12barra_principalTop = 28 Left = 1 Height = 73 Width = 86 FontSize = 8 Picture = bmp\ventas.ico DisabledPicture = bmp\ventas_dis.ico Caption = "Facturacin" TabIndex = 9 ZOrderSet = 19 Name = "Boton_barra_principal12" CPROCEDURE Click =thisform.click_boton () if g_ventas#0 local z, maxz, xmodulo xmodulo="Modulo_facturacion" maxz=_screen.FormCount for z=1 to maxz if _screen.Forms(z).name=xmodulo _screen.Forms(z).visible=.t. _screen.Forms(z).show exit endif endfor if z>maxz * No encontrado mensaje("Error !!! Mdulo "+alltrim(xmodulo)+" no encontrado !!!") endif return .f. endif do form ve_barra_menu ENDPROC PROCEDURE Init =DODEFAULT() if acceso(3,.f.).OR.acceso(74,.f.) this.enabled=.t. else this.enabled=.f. endif ENDPROC "%ZwU; C%TModulo_facturacionT9(%C9T9 a9 !%:CError !!! Mdulo C no encontrado !!! B- ve_barra_menuU THISFORM CLICK_BOTONG_VENTASZMAXZXMODULO FORMCOUNTFORMSNAMEVISIBLESHOWMENSAJE VE_BARRA_MENUV C %C- CJ- 7Ta OT-UACCESOTHISENABLEDClick0Init12a!AAA1ArAR3A28)visor alertas.vcx containeroAlertasbarra_principal\Top = 171 Left = 2 Width = 509 BorderWidth = 0 Visible = .F. TabIndex = 21 ZOrderSet = 20 Name = "oAlertas" lbSubject.Name = "lbSubject" imMas.Height = 16 imMas.Left = 469 imMas.Top = 8 imMas.Width = 16 imMas.Name = "imMas" imBorrar.Height = 16 imBorrar.Left = 488 imBorrar.Top = 7 imBorrar.Width = 16 imBorrar.Name = "imBorrar" 2PROCEDURE visibilidad thisform.Resize ENDPROC ".%WrlU UTHISFORMRESIZE visibilidad011') check_empresages.vcxcheckboxCheck_empresa7barra_principalgTop = 2 Left = 384 Width = 65 Alignment = 0 TabIndex = 7 ZOrderSet = 21 Name = "Check_empresa7"  check_empresages.vcxcheckboxCheck_empresa8barra_principalgTop = 2 Left = 447 Width = 65 Alignment = 0 TabIndex = 8 ZOrderSet = 22 Name = "Check_empresa8" barra_principalbarra24ClassPixelsbarra_principalBArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 JFIFC     "" $(4,$&1'-=-157:::#+?D?8C49:7C 7%%77777777777777777777777777777777777777777777777777 "1 !Qq%13ATab5tu ?,k$B["B^eN8g'O@ykcf g|@P Ct 5QhoYŏQSv̓@d.# V<%/\ sST֒-QY sVoZC$+h dY\4WTn,ɓgxme eY`7-D{%$FfYr0w΁Fev}Ҭ%UHՁ۲0r=8Ƿ<-;<FʳTP̠7 뫯OrCaJD9t 0<0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1AM0KT00G 821847095  ^ COMMENT RESERVED  WINDOWS _1B80U4EYS 825577337  .]  COMMENT RESERVED L# WINDOWS _1AM15EQRR 825577474u "mz_ COMMENT RESERVED A WINDOWS _1AM168KQP 830834340 ]r! i+ COMMENT RESERVED " WINDOWS _1UC0LUB31 887443928 C s  COMMENT RESERVED r WINDOWS _1E8102HJS 887443929 b  ? COMMENT RESERVED b 9 WINDOWS _1AM0LEL5V1149455023h>tf COMMENT RESERVED R) WINDOWS _4N90W3P741220312226q  WINDOWS _4N90W3P751220312226  COMMENT RESERVED c WINDOWS _1AM0KUCXA1483235952$_ COMMENT RESERVED XNVERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 iva_categoria_clientesPixelsClass1comboboxiva_categoria_clientescombobox localizacionPixelsClass1custom localizacionzComment = "" Height = 17 Width = 27 aduana_cuit = "" aduana_nombre = "" aduana_fantasia = "" Name = "localizacion" customformset cuit_labelPixelsClass1label cuit_labelLPROCEDURE Init this.Caption=thisform.localizacion.cuit_texto() ENDPROC !Arial, 0, 9, 5, 15, 12, 32, 3, 0  gananciasClass2formset ganancias3DoCreate = .T. Caption = "Form1" Name = "Form1" BoundColumn = 2 ColumnCount = 2 ColumnWidths = "290,20" RowSourceType = 1 RowSource = '""' DisplayValue = 0 FirstElement = 1 Height = 25 Style = 2 Width = 320 BoundTo = .T. Name = "iva_clasificacion_proveedores" 11iva_categoria_proveedores!Arial, 0, 9, 5, 15, 12, 32, 3, 0  cuit_textboxPixelsClass1textbox cuit_textboxcuit_valido *cuit_validado DHeight = 23 Width = 110 cuit_valido = .F. Name = "cuit_textbox" textbox|PROCEDURE Init this.RowSource=thisform.localizacion.iva_categoria_proveedores_contado() this.Value=this.Value ENDPROC !Arial, 0, 9, 5, 15, 12, 32, 3, 0 combobox!iva_categoria_proveedores_contadoPixelsiva_categoria_proveedoresiva_clasificacion_citi_compras1tPROCEDURE Init this.RowSource=thisform.localizacion.iva_categoria_proveedores() this.Value=this.Value ENDPROC {PROCEDURE Init this.RowSource = thisform.localizacion.iva_clasificacion_citi_compras() this.Value=this.Value ENDPROC Name = "ganancias" form,Name = "iva_categoria_proveedores_contado" iva_categoria_proveedorescomboboxcomboboxcomboboxClassPixels!Arial, 0, 9, 5, 15, 12, 32, 3, 0 iva_clasificacion_proveedoresPixelsClass1comboboxiva_clasificacion_proveedoreszPROCEDURE Init this.RowSource = thisform.localizacion.iva_clasificacion_proveedores() this.Value=this.Value ENDPROC combobox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 iva_clasificacion_citi_comprasPixelsClasscomboboxClasslabelsAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "C.U.I.T." Height = 17 Width = 40 Name = "cuit_label" formPixelsForm1 gananciasBoundColumn = 2 ColumnCount = 2 ColumnWidths = "290,20" RowSourceType = 1 RowSource = '""' DisplayValue = 0 Height = 25 Style = 2 Width = 320 BoundTo = .T. Name = "iva_clasificacion_citi_compras" localizacion.vcxsPROCEDURE Init this.RowSource = thisform.localizacion.iva_categoria_clientes() this.Value=this.Value ENDPROC !Arial, 0, 9, 5, 15, 12, 32, 3, 0 !iva_categoria_proveedores_contadoBoundColumn = 2 ColumnCount = 2 ColumnWidths = "190,10" RowSourceType = 1 RowSource = '""' DisplayValue = 0 Height = 25 IncrementalSearch = .F. Style = 2 Width = 328 BoundTo = .T. Name = "iva_categoria_clientes" BoundColumn = 2 ColumnCount = 2 ColumnWidths = "290,20" RowSourceType = 1 RowSource = '""' DisplayValue = 0 FirstElement = 1 Height = 25 IncrementalSearch = .F. Style = 2 TabIndex = 2 Width = 310 BoundTo = .T. Name = "iva_categoria_proveedores" PROCEDURE Init this.Format=thisform.localizacion.cuit_formato() this.InputMask=thisform.localizacion.cuit_mascara() this.MaxLength=thisform.localizacion.cuit_longitud() ENDPROC PROCEDURE Valid if p_cu_cli_fz if thisform.Localizacion.cuit_vacio_preguntar(this.Value) return 1 else xres=thisform.Localizacion.cuit_validar(this.Value) if xres return 1 else mensaje(thisform.Localizacion.cuit_texto()+" invlido !!!") return 0 endif ENDIF ELSE RETURN 1 endif ENDPROC PROCEDURE InteractiveChange this.cuit_valido = thisform.Localizacion.cuit_validar(this.Value) =this.Cuit_Validado() ENDPROC PROCEDURE ProgrammaticChange RETURN this.InteractiveChange() ENDPROC "+%g3UHTCTCTCU THISFORMATTHISFORM LOCALIZACION CUIT_FORMATO INPUTMASK CUIT_MASCARA MAXLENGTH CUIT_LONGITUD%%C4 B TC%p B %CC invlido !!! B  BU P_CU_CLI_FZTHISFORM LOCALIZACIONCUIT_VACIO_PREGUNTARTHISVALUEXRES CUIT_VALIDARMENSAJE CUIT_TEXTO-TC CUTHIS CUIT_VALIDOTHISFORM LOCALIZACION CUIT_VALIDARVALUE CUIT_VALIDADO BCUTHISINTERACTIVECHANGEInit0ValidInteractiveChange*ProgrammaticChange1qqq4QAAA231 z),"{%U-TCTUTHIS ROWSOURCETHISFORM LOCALIZACIONIVA_CLASIFICACION_PROVEEDORESVALUEInit01q12o)-"%U-TCTUTHIS ROWSOURCETHISFORM LOCALIZACIONIVA_CLASIFICACION_CITI_COMPRASVALUEInit01q12p) aduana_cuit aduana_nombre aduana_fantasia *cuit_texto Caracteres. Devuelve el texto del CUIT (CUIT, RUT, etc.) *cuit_validar Lgico. Valida el cuit, llama a la validacion especifica de cada pais. *cuit_mascara Caracteres. Devuelve la mscara del cuit. *cuit_longitud Numrico. Devuelve la longitud del cuit *cuit_vacio Caracteres. Devuelve un cuit vacio con los guines y/o puntos. *cuit_valida_argentina Lgico. Valida el C.U.I.T. *cuit_valida_chile Lgico. Valida el R.U.T. *cuit_vacio_preguntar Logica. Verdadero si el cuit est vaco o bien solo contiene los guiones y puntos. *cuit_formateado Caracteres. Devuelve el cuit formateado segun el pais, longitud variable. *cuit_formato *iva_categoria_clientes *ganancias *crear_tabla_ganancias_argentina *crear_tabla_ganancias_chile *minimo_retencion_ganancias *tabla_ganancias *texto_subdiario_iva *iva_categoria_clientes_texto *iva_categoria_proveedores_texto *iva_categoria_proveedores *iva_categoria_clientes_texto_cpbt *iva_categoria_proveedores_texto_cpbt *iva_discriminado *pais_local_validar *pais_local *provincia_texto *ciudad_texto *remito_texto *iva_categoria_proveedores_contado *iva_clasificacion_proveedores *iva_clasificacion_proveedores_texto *iva_letra_proveedores *iibb_clase Clasificacin para el reporte de IIBB (Subdirio IVA Ventas opcin IIBB) *iva_clasificacion_citi_compras *iva_clasificacion_citi_compras_texto *cuit_numeros *cuit_valida_uruguay *cuit_valida_bolivia *pais *es_aduana *aduana *osplash_mostrar *iva_categoria_proveedores_cuitonline *iva_categoria_proveedores_cuitonline_contado *cuit_valida_usa *cuit_valida_paraguay *iva_categoria_clientes_disponibles *iva_categoria_clientes_disponibles_lista *cuit_valida_peru *cuit_valida_colombia *iva_categoria_proveedores_contado_reverse *moneda_local *cuit_valida_mexico *obtener_cuil *iibb_categoria_clientes *iibb_categoria_clientes_disponibles *iibb_categoria_clientes_disponibles_lista *iibb_categoria_clientes_texto ("E%U-TCTUTHIS ROWSOURCETHISFORM LOCALIZACIONIVA_CATEGORIA_PROVEEDORESVALUEInit01q12i)%"  %U-TCTUTHIS ROWSOURCETHISFORM LOCALIZACIONIVA_CATEGORIA_CLIENTESVALUEInit01q12h) 9sPROCEDURE cuit_texto do case case p_localizacion=1 * Argentina return "C.U.I.T." case p_localizacion=2 * Chile return "R.U.T." case p_localizacion=3 * Uruguay return "R.U.C." case p_localizacion=4 * Bolivia return "N.I.T." case p_localizacion=5 * Usa return "E.I.N" case p_localizacion=6 * Paraguay return "R.U.C." case p_localizacion=7 * Per return "R.U.C." case p_localizacion=8 * Colombia return "N.I.T." case p_localizacion=9 * Mxico return "R.F.C." otherwise mensaje("Localizacin invlida (7) !!!",1) endcase return "C.U.I.T." ENDPROC PROCEDURE cuit_validar PARAMETERS tcCUIT * tcCUIT en formato XX-XXXXXXXX-X o el que corresponda do case case p_localizacion=1 * Argentina return this.Cuit_valida_Argentina(tcCUIT) case p_localizacion=2 * Chile return this.Cuit_valida_Chile(tcCUIT) case p_localizacion=3 * Uruguay return this.Cuit_valida_uruguay(tcCUIT) case p_localizacion=4 * Bolivia return this.Cuit_valida_bolivia(tcCUIT) case p_localizacion=5 * Usa return this.Cuit_valida_usa(tcCUIT) case p_localizacion=6 * Paraguay return this.Cuit_valida_paraguay(tcCUIT) case p_localizacion=7 * Per return this.Cuit_valida_peru(tcCUIT) case p_localizacion=8 * Colombia return this.Cuit_valida_colombia(tcCUIT) case p_localizacion=9 * Mxico return this.Cuit_valida_mexico(tcCUIT) otherwise mensaje("Localizacin invlida (8) !!!",1) return .t. endcase return .f. ENDPROC PROCEDURE cuit_mascara do case case p_localizacion=1 * Argentina return "99-99999999-9" case p_localizacion=2 * Chile return "99.999.999-N" case p_localizacion=3 * Uruguay return "9999999999999" case p_localizacion=4 * Bolivia return "9999999999999" case p_localizacion=5 * Usa return "99-9999999" case p_localizacion=6 * Paraguay return "99999999-9" case p_localizacion=7 * Per return "99999999999" case p_localizacion=8 * Colombia return "999.999.999-N" case p_localizacion=9 * Mxico return "XXX999999XXX" otherwise mensaje("Localizacin invlida (9) !!!",1) endcase return "" ENDPROC PROCEDURE cuit_longitud do case case p_localizacion=1 * Argentina return 13 case p_localizacion=2 * Chile return 12 case p_localizacion=3 * Uruguay return 13 case p_localizacion=4 * Bolivia return 13 case p_localizacion=5 * Usa return 10 case p_localizacion=6 * Paraguay return 10 case p_localizacion=7 * Per return 11 case p_localizacion=8 * Colombia return 13 case p_localizacion=9 * Mxico return 12 otherwise mensaje("Localizacin invlida (1) !!!",1) endcase return 13 ENDPROC PROCEDURE cuit_vacio do case case p_localizacion=1 * Argentina return " - - " case p_localizacion=2 * Chile return " . . - " case p_localizacion=3 * Uruguay return space(15) case p_localizacion=4 * Bolivia return " - " case p_localizacion=5 * Usa return " - " case p_localizacion=6 * Paraguay return " - " case p_localizacion=7 * Per return " " case p_localizacion=8 * Colombia return " . . - " case p_localizacion=9 * Mxico return " " otherwise mensaje("Localizacin invlida (2) !!!",1) endcase return "" ENDPROC PROCEDURE cuit_valida_argentina * Valida el nmero de CUIT o CUIL * USO: ValidaCUIT(<99-99999999-9>) * RETORNA: Lgico PARAMETERS tcCUIT LOCAL lnSuma, llRet IF this.cuit_vacio_preguntar(tcCUIT) llRet = .T. ELSE IF TYPE('tcCuit') = 'C' AND LEN(tcCUIT) = 13 lnSuma = VAL(SUBS(tcCUIT,11,1)) * 2 + ; VAL(SUBS(tcCUIT,10,1)) * 3 + ; VAL(SUBS(tcCUIT,9,1)) * 4 + ; VAL(SUBS(tcCUIT,8,1)) * 5 + ; VAL(SUBS(tcCUIT,7,1)) * 6 + ; VAL(SUBS(tcCUIT,6,1)) * 7 + ; VAL(SUBS(tcCUIT,5,1)) * 2 + ; VAL(SUBS(tcCUIT,4,1)) * 3 + ; VAL(SUBS(tcCUIT,2,1)) * 4 + ; VAL(SUBS(tcCUIT,1,1)) * 5 llRet = VAL(SUBS(tcCUIT,13,1)) = ; IIF(MOD(lnSuma,11) = 0, 0, 11-MOD(lnSuma,11)) ELSE *--- No es Char o no tiene el largo correcto llRet = .F. ENDIF ENDIF RETURN llRet ENDPROC PROCEDURE cuit_valida_chile parameters xcuit if this.cuit_vacio_preguntar(xcuit) * Est vaco return .t. else *!* local suma, digito *!* *!* suma = ; *!* val(substr(xcuit, 1,1)) * 3 + ; *!* val(substr(xcuit, 2,1)) * 2 + ; *!* val(substr(xcuit, 4,1)) * 7 + ; *!* val(substr(xcuit, 5,1)) * 6 + ; *!* val(substr(xcuit, 6,1)) * 5 + ; *!* val(substr(xcuit, 8,1)) * 4 + ; *!* val(substr(xcuit, 9,1)) * 3 + ; *!* val(substr(xcuit,10,1)) * 2 *!* *!* digito=int(suma/11)*11 *!* *!* digito = abs(suma-digito-11) *!* *!* if digito=11 *!* digito="K" *!* else *!* digito=alltrim(str(digito)) *!* endif rutx=stuff(stuff(left(xcuit,10),3,1,""),6,1,"") n1=val(subs(rutx,1,1)) n2=val(subs(rutx,2,1)) n3=val(subs(rutx,3,1)) n4=val(subs(rutx,4,1)) n5=val(subs(rutx,5,1)) n6=val(subs(rutx,6,1)) n7=val(subs(rutx,7,1)) n8=val(subs(rutx,8,1)) p=(n8*2)+(n7*3)+(n6*4)+(n5*5)+(n4*6)+(n3*7)+(n2*2)+(n1*3) re=p%11 re=int(re) m=11-re mm=alltrim(str(m)) if mm="10" mm="K" endif if mm="11" mm="0" endif digito = mm return ( digito = substr(xcuit,12,1) ) endif ENDPROC PROCEDURE cuit_vacio_preguntar parameters xcuit do case case p_localizacion=1 * Argentina return (xcuit=space(13).or.xcuit=" - - ") case p_localizacion=2 * Chile return (xcuit=space(12).or.xcuit=" . . - ") case p_localizacion=3 * Uruguay return empty(xcuit) && (xcuit=space(12).or.xcuit=" . . - ") case p_localizacion=4 * Bolivia return empty(xcuit) && (xcuit=space(12).or.xcuit=" . . - ") case p_localizacion=5 * Usa return (xcuit=space(12).or.xcuit=" - ") case p_localizacion=6 * Paraguay return (xcuit=space(12).or.xcuit=" - ") case p_localizacion=7 * Per return (xcuit=space(11).or.xcuit=" ") case p_localizacion=8 * Colombia return (xcuit=space(12).or.xcuit=" . . - ") case p_localizacion=9 * Mxico return (xcuit=space(12).or.xcuit=" ") otherwise mensaje("Localizacin invlida (3) !!!",1) endcase ENDPROC PROCEDURE cuit_formateado lparameters xcuit, xAgregarGuiones do case case p_localizacion=1 * Argentina IF xAgregarGuiones THEN xCuit=SUBSTR(xcuit,1,2)+"-"+SUBSTR(xCuit,3,8)+"-"+SUBSTR(xCuit,11,1) ENDIF return xcuit case p_localizacion=2 * Chile local xlocal xlocal = left(xcuit,10) && Saco el verificador xlocal = stuff(xlocal,3,1,"") && Saco el primer punto xlocal = stuff(xlocal,6,1,"") && Saco el segundo punto xlocal = alltrim(transform(val(xlocal), "@z 99,999,999")) && Convierto a numero con comas xlocal = stuff(xlocal, at(",", xlocal), 1, ".") && Cambio primer coma por punto xlocal = stuff(xlocal, at(",", xlocal), 1, ".") && Cambio segunda coma por punto return alltrim(xlocal+right(xcuit,3)) otherwise return xcuit endcase ENDPROC PROCEDURE cuit_formato do case case p_localizacion=1 * Argentina return "z" case p_localizacion=2 * Chile return "!" otherwise return "z" endcase return "" ENDPROC PROCEDURE iva_categoria_clientes do case case p_localizacion=1 * Argentina * return "Responsable Inscripto,0,Responsable No Inscripto,1,Exento (Factura B),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado,6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9" * return "Responsable Inscripto,0,Exento (Factura B/C),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado,6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9" return "Responsable Inscripto,0,Exento (Factura B/C),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado (R.I),6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9" case p_localizacion=2 * Argentina return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=3 * Uruguay return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=4 * Bolivia return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=5 * Usa return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=6 * Paraguay return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=7 * Per return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=8 * Colombia return "Normal,0,Exento,2,Extranjero,4" case p_localizacion=9 * Mxico return "Normal,0,Exento,2,Extranjero,4" endcase ENDPROC PROCEDURE ganancias lparameters xcod, xfecha * Implcitos: * * c_retgan * c_mingan * gan_arr(3,7) * gan_categoria * gan_tabla * xretgan_regimen *=sys_mostrar_screen("Suspendo?", .t.) gan_categoria="" gan_tabla=.f. do case case p_localizacion=1 * Argentina if !file(p_system+"\ganancias.dbf") this.crear_tabla_ganancias_argentina() endif * 0 - Exento * 1 - Exento * 2 - Bienes de Cambio - Inscripto * 3 - Servicios - Inscripto * 4 - Bienes de Cambio - No Inscripto * 5 - Servicios - No Inscripto * 6 - Alquileres - Inscripto * 7 - Honorarios Profesiones Liberales de (Mnimo 1200) - Inscriptos * 8 - Honorarios de Directores (Mnimo 5000) - Inscriptos * 9 - Honorarios Profesiones Liberales de (Mnimo 1200) - No Inscriptos * 10 - Honorarios de Directores (Mnimo 5000) - No Inscriptos * 11 - Alquileres - No Inscripto * 12 - Regalas - Inscripto * 13 - Regalas - No Inscripto * * Aunque no lo use para todo (por ahora), me posiciono en la tabla de ganancias if !used("ganancias") use (p_system+"\ganancias") in 0 endif select ganancias locate for codigo=xcod if !found() mensaje("Tabla de ganancias desactualizada !!!!") endif xretgan_regimen = 0 && ganancias.cod do case case xfecha1 return "A" && A else return "A,E,B" && A, E, B endif endif endif case xivacat=1 && No inscripto return "C" case xivacat=2 && Exento B y C return "B,C" case xivacat=3 && Del Exterior return "E" case xivacat=4 && Monotributo return "C" case xivacat=5 && Ventas Consumidor Final return "B" otherwise return "E" endcase else * Es lquido producto, depende de empresas if !used("empresas") use (p_system+"\empresas") in 0 endif =seek(p_codemp, "empresas", "codigo") if empresas.ivacat=0 return "A" else return "M" endif endif ENDPROC PROCEDURE iibb_clase parameters xclase do case case xclase=0 return "Sin Clasificar" case xclase=1 return "Venta Mayorista" case xclase=2 return "Venta Minorista" case xclase=3 return "Servicios Empresariales" case xclase=4 return "Cheques Rechazados/Canje de Cheques" case xclase=5 return "Fondo de Publicidad" case xclase=6 return "Regalas" otherwise return "Mal Clasificado" endcase ENDPROC PROCEDURE iva_clasificacion_citi_compras do case case p_localizacion=1 return "Normal,1,Servicios Pblicos,2,Servicios Aduaneros,3" otherwise && case p_localizacion=2 return "Normal,1" endcase ENDPROC PROCEDURE iva_clasificacion_citi_compras_texto parameters xcod do case case p_localizacion=1 do case case xcod=1 .or. xcod=0 return "Normal" case xcod=2 return "Servicios Pblicos" case xcod=3 return "Sevicios Aduaneros" otherwise return "No definido" endcase otherwise && case p_localizacion=2 do case case xcod=1 .or. xcod=0 return "Normal" otherwise return "No definido" endcase endcase ENDPROC PROCEDURE cuit_numeros lparameters xcuit as String local xlocal as String do case case p_localizacion=1 * Argentina xlocal=STRTRAN(xcuit, "-", "") return xlocal otherwise && case p_localizacion=2 * Chile xlocal=STRTRAN(xcuit, ".", "") return xlocal endcase ENDPROC PROCEDURE cuit_valida_uruguay lparameters xruc return .t. *? ValidRucSunat("20372706288") *FUNCTION ValidRucSunat(lcNroRuc) IF LEN(ALLTRIM(lcNroRuc)) <> 11 THEN RETURN .F. ENDIF LOCAL aArrayRuc DIMENSION aArrayRuc(3,11) FOR i = 1 TO 11 aArrayRuc(1,i)=VAL(SUBS(lcNroRuc,i,1)) ENDFOR aArrayRuc(2,1)=5 aArrayRuc(2,2)=4 aArrayRuc(2,3)=3 aArrayRuc(2,4)=2 aArrayRuc(2,5)=7 aArrayRuc(2,6)=6 aArrayRuc(2,7)=5 aArrayRuc(2,8)=4 aArrayRuc(2,9)=3 aArrayRuc(2,10)=2 aArrayRuc(3,11)=0 FOR i=1 TO 10 aArrayRuc(3,i) = aArrayRuc(1,i) * aArrayRuc(2,i) aArrayRuc(3,11) = aArrayRuc(3,11) + aArrayRuc(3,i) ENDFOR lnResiduo = MOD(aArrayRuc(3,11),11) lnUltDigito = 11 - lnResiduo DO CASE CASE lnUltDigito = 11 OR lnUltDigito=1 lnUltDigito = 1 CASE lnUltDigito = 10 OR lnUltDigito=0 lnUltDigito = 0 ENDCASE IF lnUltDigito = aArrayRuc(1,11) THEN RETURN .T. ELSE RETURN .F. ENDIF ENDPROC PROCEDURE cuit_valida_bolivia lparameters xnit return .t. ENDPROC PROCEDURE pais do case case p_localizacion=1 return "Argentina" case p_localizacion=2 return "Chile" case p_localizacion=3 return "Uruguay" case p_localizacion=4 return "Bolivia" case p_localizacion=5 return "Usa" case p_localizacion=6 return "Paraguay" case p_localizacion=7 return "Per" case p_localizacion=8 return "Colombia" case p_localizacion=9 return "Mxico" endcase ENDPROC PROCEDURE es_aduana lparameters xcuit return alltrim(xcuit)=this.aduana_cuit ENDPROC PROCEDURE aduana do case case p_localizacion=1 * Argentina this.aduana_cuit = "33-69345023-9" && "30-54667659-1" this.aduana_nombre = "DIR. GRAL DE ADUANAS" this.aduana_fantasia = "DGA" case p_localizacion=2 * Chile this.aduana_cuit = "60.804.000-5" this.aduana_nombre = "SERVICIO NACIONAL DE ADUANAS" this.aduana_fantasia = "SNA" case p_localizacion=3 * Uruguay this.aduana_cuit = "" this.aduana_nombre = "" this.aduana_fantasia = "" case p_localizacion=4 * Bolivia this.aduana_cuit = "316324029" this.aduana_nombre = "SIDUNEA" this.aduana_fantasia = "SIDUNEA" case p_localizacion=5 * Usa this.aduana_cuit = "00-0000000" this.aduana_nombre = "CPB" this.aduana_fantasia = "CUSTOMS AND BORDER PROTECTION" case p_localizacion=6 * Paraguay this.aduana_cuit = "80029222-7" this.aduana_nombre = "DNA" this.aduana_fantasia = "DIRECCION NACIONAL DE ADUANAS" case p_localizacion=7 * Per this.aduana_cuit = "20131312955" this.aduana_nombre = "SUNAT" this.aduana_fantasia = "SUNAT" case p_localizacion=8 * Colombia this.aduana_cuit = "060.804.000-5" this.aduana_nombre = "DIAN" this.aduana_fantasia = "DIAN" case p_localizacion=9 * Mxico this.aduana_cuit = "XXX000000XXX" this.aduana_nombre = "ANAM" this.aduana_fantasia = "ANAM" endcase return ENDPROC PROCEDURE osplash_mostrar LPARAMETERS oSplash, xTexto IF TYPE("oSplash")="O" THEN osplash.avance(xTexto) ENDIF ENDPROC PROCEDURE iva_categoria_proveedores_cuitonline lparameters xtexto do case case p_localizacion=1 * Argentina do case case xtexto="Inscripto" return 0 case xtexto="Monotributo" return 4 case xtexto="Exento" return 2 case xtexto="Extranjero" return 3 otherwise return 0 endcase otherwise return 0 endcase ENDPROC PROCEDURE iva_categoria_proveedores_cuitonline_contado lparameters xtexto do case case p_localizacion=1 * Argentina do case case xtexto="Inscripto" return 1 case xtexto="Monotributo" return 3 case xtexto="Exento" return 4 case xtexto="Extranjero" return 5 otherwise return 0 endcase case p_localizacion=2 * Argentina return 0 case p_localizacion=3 * Uruguay return 0 case p_localizacion=4 * Bolivia return 0 otherwise * Resto return 0 endcase ENDPROC PROCEDURE cuit_valida_usa lparameters xnit return .t. ENDPROC PROCEDURE cuit_valida_paraguay lparameters xnit return .t. ENDPROC PROCEDURE iva_categoria_clientes_disponibles LPARAMETERS xArray *!* IF TYPE("xArray")#"A" *!* =mensaje("Debe pasarse un Array para contener los disponibles!!!") *!* RETURN .f. *!* ENDIF DO CASE CASE p_localizacion=1 * Argentina * return "Responsable Inscripto,0,Responsable No Inscripto,1,Exento (Factura B),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado,6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9" * return "Responsable Inscripto,0,Exento (Factura B/C),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado,6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9" DIMENSION xArray(10) xArray(1)=0 xArray(2)=1 xArray(3)=2 xArray(4)=3 xArray(5)=4 xArray(6)=5 xArray(7)=6 xArray(8)=7 xArray(9)=8 xArray(10)=9 RETURN CASE INLIST(p_localizacion,2,3,4,5,6,7) DIMENSION xArray(3) xArray(1)=0 xArray(2)=2 xArray(3)=4 RETURN ENDCASE ENDPROC PROCEDURE iva_categoria_clientes_disponibles_lista LPARAMETERS xTexto xTexto="" DIMENSION xArray(1) LOCAL xTexto2 =This.iva_categoria_clientes_disponibles (@xArray) FOR nIt=1 TO ALEN(xArray,1) xTexto2=ALLTRIM(STR(xArray(nIT))) + " - " +This.iva_categoria_clientes_texto(xArray(nIt)) xTexto=xTexto + IIF(empty(xTexto),"",CHR(10))+ xTexto2 NEXT RETURN xTexto ENDPROC PROCEDURE cuit_valida_peru lparameters xnit return .t. ENDPROC PROCEDURE cuit_valida_colombia lparameters xnit return .t. ENDPROC PROCEDURE iva_categoria_proveedores_contado_reverse lparameters xcat * Viene "Responsable Inscripto,1,Responsable No Inscripto,2,Monotributo,3,Exento,4,Del Exterior,5" * Viene "Normal,1,Exento,4" do case case p_localizacion=1 do case case xcat=1 * Responsable Inscripto return 0 case xcat=2 * Responsable No Inscripto return 1 case xcat=3 * Monotributo return 4 case xcat=4 * Exento return 2 case xcat=5 * Del exterior return 3 otherwise mensaje("Error !!! (localizacion.iva_categoria_proveedores_contado_reverse)") return 0 endcase otherwise && case p_localizacion=2 do case case xcat=1 * Responsable Inscripto return 0 case xcat=4 * Exento return 2 otherwise mensaje("Error !!! (localizacion.iva_categoria_proveedores_contado_reverse)") return 0 endcase endcase ENDPROC PROCEDURE moneda_local lparameters xmoneda_texto_singular, xmoneda_texto_plural, xmoneda_abrev, xmoneda_abrev_letras do case case p_localizacion=1 * Argentina xmoneda_texto_singular = "Peso" xmoneda_texto_plural = "Pesos" xmoneda_abrev = "$" xmoneda_abrev_letras = "PES" case p_localizacion=2 * Chile xmoneda_texto_singular = "Peso" xmoneda_texto_plural = "Pesos" xmoneda_abrev = "$" xmoneda_abrev_letras = "PES" case p_localizacion=3 * Uruguay xmoneda_texto_singular = "Peso" xmoneda_texto_plural = "Pesos" xmoneda_abrev = "$" xmoneda_abrev_letras = "PES" case p_localizacion=4 * Bolivia xmoneda_texto_singular = "Boliviano" xmoneda_texto_plural = "Bolivianos" xmoneda_abrev = "Bs" xmoneda_abrev_letras = "BS" case p_localizacion=5 * Usa xmoneda_texto_singular = "Dolar" xmoneda_texto_plural = "Dollars" xmoneda_abrev = "U$S" xmoneda_abrev_letras = "USD" case p_localizacion=6 * Paraguay xmoneda_texto_singular = "Guaran" xmoneda_texto_plural = "Guaranies" xmoneda_abrev = "Gs" xmoneda_abrev_letras = "GS" case p_localizacion=7 * Per xmoneda_texto_singular = "Sol" xmoneda_texto_plural = "Soles" xmoneda_abrev = "S/" xmoneda_abrev_letras = "SOL" case p_localizacion=8 * Colombia xmoneda_texto_singular = "Peso" xmoneda_texto_plural = "Pesos" xmoneda_abrev = "$" xmoneda_abrev_letras = "PES" case p_localizacion=9 * Mxico xmoneda_texto_singular = "Peso" xmoneda_texto_plural = "Pesos" xmoneda_abrev = "$" xmoneda_abrev_letras = "PES" endcase ENDPROC PROCEDURE cuit_valida_mexico lparameters xnit return .t. ENDPROC PROCEDURE obtener_cuil lparameters xdni * XDNI = 10 dgitos en un string xmsg="" local cdni,nvalor1,nvalor2,nvalor3,i nvalor1=0 cdni=alltrim(xdni) if len(cdni)=10 dimension anum(10) store 5 to anum(1) store 4 to anum(2) store 3 to anum(3) store 2 to anum(4) store 7 to anum(5) store 6 to anum(6) store 5 to anum(7) store 4 to anum(8) store 3 to anum(9) store 2 to anum(10) for i = 1 to 10 nvalor1=nvalor1+val(substr(cdni,i,1))*anum[I] next i nvalor2 = nvalor1 % 11 nvalor3= 11 - nvalor2 return xdni + alltrim(str(iif(nvalor3=10,0,iif(nvalor3=10,9,nvalor3)))) else * Debe pasar como parmetro los 10 dgitos iniciales return "" endif ENDPROC PROCEDURE iibb_categoria_clientes do case case p_localizacion=1 * Argentina return "No inscripto o no Acreditada,0,Convenio Multilateral,1,Local,2,Exento,3" CASE BETWEEN(p_localizacion,2,9) return "Local,2" endcase ENDPROC PROCEDURE iibb_categoria_clientes_disponibles LPARAMETERS xArray DO CASE CASE p_localizacion=1 DIMENSION xArray(4) xArray(1)=0 xArray(2)=1 xArray(3)=2 xArray(4)=3 RETURN OTHERWISE DIMENSION xArray(3) xArray(1)=2 RETURN ENDCASE ENDPROC PROCEDURE iibb_categoria_clientes_disponibles_lista LPARAMETERS xTexto xTexto="" DIMENSION xArray(1) LOCAL xTexto2 =This.IIBB_categoria_clientes_disponibles (@xArray) FOR nIt=1 TO ALEN(xArray,1) xTexto2=ALLTRIM(STR(xArray(nIT))) + " - " +This.IIBB_categoria_clientes_texto(xArray(nIt)) xTexto=xTexto + IIF(empty(xTexto),"",CHR(10))+ xTexto2 NEXT RETURN xTexto ENDPROC PROCEDURE iibb_categoria_clientes_texto lPARAMETERS xcod, xres, xif, xif2, xError, xAut DO CASE CASE xif2 ** Para impresion fiscal version 2 RETURN "Pendiente" CASE xif * Argentina RETURN "Pendiente" CASE xres DO CASE CASE p_localizacion=1 * Argentina DO CASE CASE xcod=0 RETURN "NO" CASE xcod=1 RETURN "CM" CASE xcod=2 RETURN "LO" CASE xcod=3 RETURN "EX" OTHERWISE xError=.t. mensaje_a(xAut, "Categora de IIBB de clientes invlida !!!") RETURN "IN" ENDCASE OTHERWISE && case p_localizacion=2 DO CASE CASE xcod=2 RETURN "LO" OTHERWISE xError=.t. mensaje_a(xAut,"Categora de IIBB de clientes invlida !!!") RETURN "IN" ENDCASE ENDCASE OTHERWISE DO CASE CASE p_localizacion=1 * Argentina DO CASE CASE xcod=0 RETURN "No inscripto o no Acreditada" CASE xcod=1 RETURN "Convenio Multilateral" CASE xcod=2 RETURN "Local" CASE xcod=3 RETURN "Exento" OTHERWISE xError=.t. mensaje_a(xAut,"Categora de IIBB de clientes invlida !!!") RETURN "Invlida categora de IIBB !!!" ENDCASE OTHERWISE && case p_localizacion=2 DO CASE CASE xcod=2 RETURN "Local" OTHERWISE xError=.t. mensaje_a(xAut,"Categora de IIBB de clientes invlida !!!") RETURN "Invlida categora de IIBB !!!" ENDCASE ENDCASE ENDCASE RETURN "" ENDPROC PROCEDURE Init * Actualiza la tabla de provincias lparameters xnoinit, oSplash =this.osplash_mostrar (oSplash, "Iniciando localizacin") * Por ahora se cambian los registros de paises entre Chile y Argentina a la espera de una tabla oficial de paises de Chile if !xnoinit local xprovactual,xupd =this.osplash_mostrar (oSplash, "Abriendo Paises") if !used("paises") use (p_system+"\paises") in 0 endif =this.osplash_mostrar (oSplash, "Abriendo Provincias") *!* select 0 *!* use (p_system+"\provinc") if !used("provinc") use (p_system+"\provinc") in 0 endif select provinc xprovactual=descr use xupd = .f. do case case p_localizacion=1 * Argentina select paises if seek(1, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with " ARGENTINA" endif else * Error ???? endif select paises if seek(3, "paises", "codigo") if "CHILE"$paises.descr * OK else select paises replace paises.descr with "CHILE" endif else * Error ???? endif =this.osplash_mostrar (oSplash, "Abriendo provinc_ar") use (p_system+"\provinc_ar") if xprovactual#provinc_ar.descr =this.osplash_mostrar (oSplash, "Copiando a provinc") copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_ar") select provinc_ar use endif case p_localizacion=2 * Chile select paises if seek(1, "paises", "codigo") if "CHILE"$paises.descr * OK else select paises replace paises.descr with " CHILE" endif else * Error ???? endif select paises if seek(3, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_cl") if xprovactual#provinc_cl.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_cl") select provinc_cl use endif case p_localizacion=3 * Uruguay select paises if seek(1, "paises", "codigo") if "URUGUAY"$paises.descr * OK else select paises replace paises.descr with " URUGUAY" endif else * Error ???? endif select paises if seek(4, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_ur") if xprovactual#provinc_ur.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_ur") select provinc_ur use endif case p_localizacion=4 * Bolivia select paises if seek(1, "paises", "codigo") if "BOLIVIA"$paises.descr * OK else select paises replace paises.descr with " BOLIVIA" endif else * Error ???? endif select paises if seek(9, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_bo") if xprovactual#provinc_bo.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_bo") select provinc_bo use endif case p_localizacion=5 * Usa select paises if seek(1, "paises", "codigo") if "ESTADOS UNIDOS DE AMERICA"$paises.descr * OK else select paises replace paises.descr with " ESTADOS UNIDOS DE AMERICA" endif else * Error ???? endif select paises if seek(23, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_us") if xprovactual#provinc_us.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_us") select provinc_us use endif case p_localizacion=6 * Paraguay select paises if seek(1, "paises", "codigo") if "PARAGUAY"$paises.descr * OK else select paises replace paises.descr with " PARAGUAY" endif else * Error ???? endif select paises if seek(52, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_py") if xprovactual#provinc_py.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_py") select provinc_py use endif case p_localizacion=7 * Per select paises if seek(1, "paises", "codigo") if "PERU"$paises.descr * OK else select paises replace paises.descr with " PERU" endif else * Error ???? endif select paises if seek(53, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_pe") if xprovactual#provinc_pe.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_pe") select provinc_pe use endif case p_localizacion=8 * Colombia select paises if seek(1, "paises", "codigo") if "COLOMBIA"$paises.descr * OK else select paises replace paises.descr with " COLOMBIA" endif else * Error ???? endif select paises if seek(11, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_co") if xprovactual#provinc_co.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_co") select provinc_co use endif case p_localizacion=9 * Mxico select paises if seek(1, "paises", "codigo") if "MEXICO"$paises.descr * OK else select paises replace paises.descr with " MEXICO" endif else * Error ???? endif select paises if seek(46, "paises", "codigo") if "ARGENTINA"$paises.descr * OK else select paises replace paises.descr with "ARGENTINA" endif else * Error ???? endif use (p_system+"\provinc_mx") if xprovactual#provinc_mx.descr copy to (p_system+"\provinc") xupd = .t. endif if used("provinc_mc") select provinc_mx use endif endcase if xupd =this.osplash_mostrar (oSplash, "Provincias actualizado, reindexando.") use (p_system+"\provinc") excl index on codigo tag CODIGO index on descr tag descr index on cod tag COD use endif * Inicializo propiedades =this.osplash_mostrar (oSplash, "Inicializo propiedades Aduana") this.aduana else * No quiero que se ejecute, por compatibilidad con sistemas donde no se utilizan las provincias endif return ENDPROC 0"5%U-TCTUTHIS ROWSOURCETHISFORM LOCALIZACION!IVA_CATEGORIA_PROVEEDORES_CONTADOVALUEInit01q12q)"%UTCUTHISCAPTIONTHISFORM LOCALIZACION CUIT_TEXTOInit01q2A)v"]]g;;%tUH{ 5BC.U.I.T. WBR.U.T. yBR.U.C. BN.I.T. BE.I.N BR.U.C. BR.U.C. "BN.I.T.  DBR.F.C. 2{-CLocalizacin invlida (7) !!!BC.U.I.T.UP_LOCALIZACIONMENSAJE4H <BC `BC BC BC BC BC BC  8BC   \BC 2-CLocalizacin invlida (8) !!! BaB-U TCCUITP_LOCALIZACIONTHISCUIT_VALIDA_ARGENTINACUIT_VALIDA_CHILECUIT_VALIDA_URUGUAYCUIT_VALIDA_BOLIVIACUIT_VALIDA_USACUIT_VALIDA_PARAGUAYCUIT_VALIDA_PERUCUIT_VALIDA_COLOMBIACUIT_VALIDA_MEXICOMENSAJEH :B 99-99999999-9 bB 99.999.999-N B 9999999999999 B 9999999999999 B 99-9999999 B 99999999-9 'B 99999999999 PB 999.999.999-N  xB XXX999999XXX 2-CLocalizacin invlida (9) !!! BUP_LOCALIZACIONMENSAJETHD - B  I B  e B   B   B   B   B   B     B 2D-CLocalizacin invlida (1) !!! B UP_LOCALIZACIONMENSAJEH :B - -  bB . . -   BCX B -  B -  B -  B  BB . . -   jB 2-CLocalizacin invlida (2) !!! BUP_LOCALIZACIONMENSAJE4 %C4 Ta x)%CtcCuitbC C>  _TCC \gCC \gCC \gCC\gCC\gCC\gCC\gCC\gCC\gCC\g;TCC \gCC G  C G6 t T- BUTCCUITLNSUMALLRETTHISCUIT_VACIO_PREGUNTAR4%C%Ba (TCCC =[[TCC\gTCC\gTCC\gTCC\gTCC\gT CC\gT CC\gT CC\gQT    T C  GT C 8T TCCZ%10TK%11T0 TBC \UXCUITTHISCUIT_VACIO_PREGUNTARRUTXN1N2N3N4N5N6N7N8PREMMMDIGITO%4H S(BC X - -   'BC X . . -    BC  BC %BC X -   9%BC X -   r&BC X   (BC X . . -    'BC X   2-CLocalizacin invlida (3) !!!UXCUITP_LOCALIZACIONMENSAJEm Hf %u7TC\-C\-C \ B STC =TC[TC[#TCCCg @z 99,999,999_TCC,.[TCC,.[BCCR 2f BUXCUITXAGREGARGUIONESP_LOCALIZACIONXLOCALoH_ . Bz K B! 2_ Bz BUP_LOCALIZACIONH BٵResponsable Inscripto,0,Exento (Factura B/C),2,Consumidor Final,3,Extranjero,4,No Responsable,5,No Alcanzado (R.I),6,Responsable Monotributo,7,No Categorizado,8,Exento (Factura A),9 'BNormal,0,Exento,2,Extranjero,4 V'BNormal,0,Exento,2,Extranjero,4 'BNormal,0,Exento,2,Extranjero,4 'BNormal,0,Exento,2,Extranjero,4 'BNormal,0,Exento,2,Extranjero,4 >'BNormal,0,Exento,2,Extranjero,4 x'BNormal,0,Exento,2,Extranjero,4  'BNormal,0,Exento,2,Extranjero,4UP_LOCALIZACIONY  T T-H4{Y ZX$%C\ganancias.dbf0 x C%C ganancias Q \gananciasF- %C4 3C&Tabla de ganancias desactualizada !!!!  T H1X C$ H^  T T  mB6T)El proveedor est configurado como Exento  ! T NT p@% T mT$(78) Bienes de Cambio - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T  pT'(78) Bienes de Cambio - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z   T ^T @% T |T3(94) Locaciones de Obras y Servicios - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T T6(94) Locaciones de Obras y Servicios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 9 T T  T gT(30) Alquileres - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z)   B TaH~ 8 T tT @T5(116) Honorarios Profesiones Liberales - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala  T tT @}T-(116) Honorarios de Directores - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala  T |T @TG(124) Corredor, viajante de comercio y despachante, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaTTT@T6T]T@T!T$@!T,@!T2@!T6@!T:@!T<@!T>@!T!Ti@!T~@!T@!T@!T@!T@)     T H   ? T tT @T8(116) Honorarios Profesiones Liberales - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z   T tT @xT/(116) Honorarios de Directore - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T |T @TJ(124) Corredor, viajante de comercio y despachante, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  ] T T  T jT!(30) Alquileres - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z   T #T  T eT(35) Regalas - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z   T #T  T hT(35) Regalas - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z   T _T d%T ?T6(95) Operaciones de transporte de carga - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T T8(95) Operaciones de transporte de carga- No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  _ T T % T fT(21) Intereses - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z [ T iT (21) Intereses - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 2 T T  mB/T"Categora inexistente - No retiene C$ r!Hn! V T T  mB6T)El proveedor est configurado como Exento  T  j@% T mT$(78) Bienes de Cambio - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T  pT'(78) Bienes de Cambio - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T L@%p T |T3(94) Locaciones de Obras y Servicios - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T T6(94) Locaciones de Obras y Servicios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z T  T gT(30) Alquileres - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z)   s TaH T L@T5(116) Honorarios Profesiones Liberales - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala /T 0u}T-(116) Honorarios de Directores - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala T LTG(124) Corredor, viajante de comercio y despachante, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaTTT@T6T]T@T!T$@!T,@!T2@!T6@!T:@!T<@!T>@!T!Ti@!T~@!T@!T@!T@!T@)      T H  \T LT8(116) Honorarios Profesiones Liberales - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T 0uxT/(116) Honorarios de Directore - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z T LTJ(124) Corredor, viajante de comercio y despachante, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  ET  T jT!(30) Alquileres - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T  T eT(35) Regalas - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  nT  T hT(35) Regalas - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T 0u%AT ?T6(95) Operaciones de transporte de carga - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T T8(95) Operaciones de transporte de carga- No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  !T  % T fT(21) Intereses - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z ! T iT (21) Intereses - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 2n! T T  mB/T"Categora inexistente - No retiene C$ ?1H!;1  " T T  mB6T)El proveedor est configurado como Exento  P#T @,%" T mT$(78) Bienes de Cambio - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z L# T  pT'(78) Bienes de Cambio - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  $T ̦%$ T |T3(94) Locaciones de Obras y Servicios - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z $ T T6(94) Locaciones de Obras y Servicios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z I%T  T gT(30) Alquileres - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z)   <* TaH%' 4&T )T5(116) Honorarios Profesiones Liberales - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala &T ̦}T-(116) Honorarios de Directores - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala 'T )TG(124) Corredor, viajante de comercio y despachante, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaTT'T:T NT0uT@T`T!T@!T"@!T(@!T.@!T3@!T7@!T;@!T?@TTTTTTnTjT-)     x, T H*t,  %+T )T8(116) Honorarios Profesiones Liberales - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  +T ̦xT/(116) Honorarios de Directore - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z t,T )TJ(124) Corredor, viajante de comercio y despachante, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  -T  T jT!(30) Alquileres - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  -T  T eT(35) Regalas - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  9.T  T hT(35) Regalas - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  /T ̦%/T ?T6(95) Operaciones de transporte de carga - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z / T T8(95) Operaciones de transporte de carga- No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  0T %\0 T fT(21) Intereses - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 0 T iT (21) Intereses - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 2;1 T T  mB/T"Categora inexistente - No retiene C $ TCHl1PC 1 T T  mB6T)El proveedor est configurado como Exento  *3 T NT k%2 T mT$(78) Bienes de Cambio - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z &3 T  pT'(78) Bienes de Cambio - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  4 T ^T b%4 T |T3(94) Locaciones de Obras y Servicios - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 4 T T6(94) Locaciones de Obras y Servicios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z =5 T T + T gT(30) Alquileres - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z4    #; TaH5p8 @6 T tT AT5(116) Honorarios Profesiones Liberales - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala 6 T tT b}T-(116) Honorarios de Directores - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala 7 T |T ATG(124) Corredor, viajante de comercio y despachante, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala p8 T T AT@(25) Comisionista, rematador, consignatario, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaT@T>T]T}TTTwT!T@!T"@!T(@!T.@!T3@!T7@!T;@!T?@TTT`T T TT'TH4      L> T Hu;H>  $< T tT AT8(116) Honorarios Profesiones Liberales - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  < T tT byT0(116) Honorarios de Directores - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z = T |T ATJ(124) Corredor, viajante de comercio y despachante, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z H> T T ATC(25) Comisionista, rematador, consignatario, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  > T T + T jT!(30) Alquileres - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  ? T #T  T eT(35) Regalas - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  4@ T #T  T hT(35) Regalas - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  A T _T b%AT ?T6(95) Operaciones de transporte de carga - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z A T T8(95) Operaciones de transporte de carga- No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  B T T %qB T fT(21) Intereses - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z B T iT (21) Intereses - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 2PC T T  mB/T"Categora inexistente - No retiene 2XHoCX C T T  mB6T)El proveedor est configurado como Exento  -E T NT k%D T mT$(78) Bienes de Cambio - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z )E T  pT'(78) Bienes de Cambio - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  F T ^T b%F T |T3(94) Locaciones de Obras y Servicios - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z F T T6(94) Locaciones de Obras y Servicios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z @G T T + T gT(30) Alquileres - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z J Ta T wT qT4(119) Profesiones Liberales y Oficios - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaTXT*T@T`UTTT T!T@!T"@!T(@!T.@!T3@!T7@!T;@!T?@TT T&THTqTTZT6)   O TaHK1M K T tT b}T-(116) Honorarios de Directores - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala sL T |T ATG(124) Corredor, viajante de comercio y despachante, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escala 1M T T AT@(25) Comisionista, rematador, consignatario, etc. - Inscripto - Mnimo: CC Z+ - Porcentaje de retencin: Sujeto a escalaT@T>T]T}TTTwT!T@!T"@!T(@!T.@!T3@!T7@!T;@!T?@TTT`T T TT'TH4      S T H6P S  P T wT qT7(119) Profesiones Liberales y Oficios - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  Q T tT byT0(116) Honorarios de Directores - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z PR T |T ATJ(124) Corredor, viajante de comercio y despachante, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  S T T ATC(25) Comisionista, rematador, consignatario, etc. - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  S T T + T jT!(30) Alquileres - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  ST T #T  T eT(35) Regalas - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  T T #T  T hT(35) Regalas - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  tV T _T b%UT ?T6(95) Operaciones de transporte de carga - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z pV T T8(95) Operaciones de transporte de carga- No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z  W T T %3W T fT(21) Intereses - Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z W T iT (21) Intereses - No Inscripto - Mnimo: CC Z - Porcentaje de retencin: CC Z 2X T T  mB/T"Categora inexistente - No retiene@T - Retencin mnima: CCC Z {Y'%C\ganancias_cl.dbf0 X CHXwY 8Y T  T UT Servicios - Mnimo: CC Z - Porcentaje de retencin: CC Z 2wY T T  mBTExentoBUXCODXFECHA GAN_CATEGORIA GAN_TABLAP_LOCALIZACIONP_SYSTEMTHISCREAR_TABLA_GANANCIAS_ARGENTINA GANANCIASCODIGOMENSAJEXRETGAN_REGIMENC_RETGANC_MINGANGAN_ARRMINIMO_RETENCION_GANANCIASCREAR_TABLA_GANANCIAS_CHILE mh1 \gananciasNCFMN NLYr ganancias- No DefinidoTr ganancias-Exento*r gananciasN-:Enajenacin Bienes Muebles y Bienes de Cambio - Inscripto ٢Enajenacin de bienes muebles y bienes de cambio. Transferencia temporaria de derechos de llave, marcas, patentes de invencin, regalas, concesiones y similares.r ganancias^--Locaciones de obra y/o servicios - Inscripto jLocaciones de obra y/o servicios no ejecutados en relacin de dependencia no mencionados en otros incisos.-r gananciasN-=Enajenacin Bienes Muebles y Bienes de Cambio - No Inscripto ٢Enajenacin de bienes muebles y bienes de cambio. Transferencia temporaria de derechos de llave, marcas, patentes de invencin, regalas, concesiones y similares.r ganancias^-0Locaciones de obra y/o servicios - No Inscripto jLocaciones de obra y/o servicios no ejecutados en relacin de dependencia no mencionados en otros incisos.r ganancias-Alquileres - Inscripto9Alquileres o arrendamientos de bienes muebles o inmueblesr ganancias--Honorarios Profesiones Liberales - InscriptosProfesiones liberales, albacea, sndico, mandatario, gestor de negocio, corredor, viajante de comercio y despachante de aduana.Mr gananciast-$Honorarios de Directores- InscriptosHonorarios de director de sociedades annimas, fiduciario, integrante de consejos de vigilancia y socios de administradores de las sociedades de responsabilidad limitada, en comandita simple y en comandita por acciones.r ganancias -0Honorarios Profesiones Liberales - No InscriptosProfesiones liberales, albacea, sndico, mandatario, gestor de negocio, corredor, viajante de comercio y despachante de aduana.Qr ganancias t-(Honorarios de Directores - No InscriptosHonorarios de director de sociedades annimas, fiduciario, integrante de consejos de vigilancia y socios de administradores de las sociedades de responsabilidad limitada, en comandita simple y en comandita por acciones.r ganancias -Alquileres - No Inscripto9Alquileres o arrendamientos de bienes muebles o inmueblesvr ganancias #-Regalas - InscriptoRegalas - Inscripto|r ganancias #-Regalas - No InscriptoRegalas - No InscriptoQUP_SYSTEMCODIGODESCRREGIMENCODMINIMOTABLA<h1 \ganancias_clNC1r ganancias_clExento4r ganancias_cl ServiciosQBUP_SYSTEMCODIGODESCR H R%C$ T B N%C$ %  B  BZ J%C$ %  B  B F% / B B B n B 2 B BUXCODXFECHAP_LOCALIZACIONH k$%C\ganancias.dbf0 U CB ganancias '%C\ganancias_cl.dbf0 CB ganancias_cl 2B gananciasB gananciasUP_LOCALIZACIONP_SYSTEMTHISCREAR_TABLA_GANANCIAS_ARGENTINACREAR_TABLA_GANANCIAS_CHILE[4HP  TCTCZTCCC(6CCC)6 C&T CC - ARGENTINAT CC T C ARGENTINATCTCCIVA Responsable InscriptocCResponsable Monotributo7C IVA ExentoResponsable Inscripto666 - C CTCCTCT 2PTCTCZTCCC(6CCC)6 C%T CC  - CT CC T CCTC&TCC CTCC TTBU AEMPRESASP_LOCALIZACION ZEMPNOMBREDESCR ZEMPDIRECCION DOMICILIO ZEMPZIPCIUDADCOD_ZIPCIUDAD ZEMPPROVPAISPROVINC PROVINCIA ZEMPPROVINCIAZEMPPAIS ZEMPTELEFONOPHONO ZEMPCUITIVAIVACAT OLOCALIZACION CUIT_TEXTOCUIT_FORMATEADOCUIT ZEMPCUITSOLO ZIIBB_NUMEROIIBBZINICIOINICIOPAIS 4H$ 'HD# a BI ~ BN  BE  BC  BA  BM   BE 2# BT HG d BI  BR  BE  BF  BI  BN  BI / BT L BS  i BE 26C)Categora de IVA de clientes invlida !!! B kHg H  BRI 7 BRNI U BEX s BCF  BEXP  BNR  BNA  BMON   BNC  ) BEX cG B 26C)Categora de IVA de clientes invlida !!! B 2gHc BNormal BExento B Exportacin 2c6C)Categora de IVA de clientes invlida !!! B 2H H BResponsable Inscripto !BResponsable No Inscripto 1BExento ]BConsumidor Final B Extranjero BNo Responsable B No alcanzado  BResponsable Monotributo 3BNo Categorizado  UBExento c}B Venta Diaria 26C)Categora de IVA de clientes invlida !!!2B)Categora de IVA de clientes invlida !!! 2H 0BNormal RBExento yB Exportacin 26C)Categora de IVA de clientes invlida !!!2B)Categora de IVA de clientes invlida !!! BUXCODXRESXIFXIF2MENSAJEP_LOCALIZACIONG 4%>H+: WHOS m BRI  BRNI  BEXE  BEXT  BMON  BCF 2S9C,Categora de IVA de Proveedores invlida !!! B 2:Hr6  B  BEXE  BEXT  BCF 269C,Categora de IVA de Proveedores invlida !!! B @HY< H} BResponsable Inscripto !BResponsable No Inscripto BExento ,B Del Exterior SB Monotributo "BVentas a Consumidor Final 29C,Categora de IVA de Proveedores invlida !!!5B,Categora de IVA de Proveedores invlida !!! 2<H8 ABNormal cBExento B Del Exterior "BVentas a Consumidor Final 289C,Categora de IVA de Proveedores invlida !!!5B,Categora de IVA de Proveedores invlida !!!UXCODXRESP_LOCALIZACIONMENSAJEH aBXResponsable Inscripto,0,Responsable No Inscripto,1,Exento,2,Del Exterior,3,Monotributo,4 2EB<Normal,0,Exento,2,Del Exterior,3,Ventas a Consumidor Final,5UP_LOCALIZACION4H H< mBResponsable Inscripto !BResponsable No Inscripto BExento BConsumidor Final B Extranjero ?BNo Responsable gB No Alcanzado  BResponsable Monotributo BNo Categorizado  BExento cB Venta Diaria 26C)Categora de IVA de Clientes invlida !!!2B)Categora de IVA de Clientes invlida !!! 2H} BNormal BExento  B Exportacin 2}6C)Categora de IVA de Clientes invlida !!!2B)Categora de IVA de Clientes invlida !!! 2-CLocalizacin invlida (5) !!! BUXCODP_LOCALIZACIONMENSAJE4H H< mBResponsable Inscripto !BResponsable No Inscripto BExento  B B Monotributo " B 29C,Categora de IVA de Proveedores invlida !!!5B,Categora de IVA de Proveedores invlida !!! 2H BNormal BExento  B 5 B 29C,Categora de Iva de Proveedores invlida !!!5B,Categora de IVA de Proveedores invlida !!!UXCODP_LOCALIZACIONMENSAJEP 4H8 '%Cempresas eQ \empresas TCWF- F%%C$ BC BC #B- 28B-BC.U.I.T.U XCODXFECP_LOCALIZACIONP_SYSTEMXAREAEMPRESASCODIGOP_CODEMPIVACAT4 BUXPAIS4 BUXPAISH 6B Provincia XBRegin B Departamento B Departamento BEstado B Departamento B Departamento BB Departamento  dBEstado 2-CLocalizacin invlida (6) !!!B ProvinciaUP_LOCALIZACIONMENSAJEbHL 3BComuna 2LBCiudadBCiudadUP_LOCALIZACIONHx 3BRemito _BGua de Despacho 2xBRemitoBRemitoUP_LOCALIZACIONH aBXResponsable Inscripto,1,Responsable No Inscripto,2,Monotributo,3,Exento,4,Del Exterior,5 2BNormal,1,Exento,4UP_LOCALIZACION4H- %PBGMercadera,1,Alquileres,2,Servicios,3,Otros Conceptos,4,Bienes de Uso,5 >B5Mercadera,1,Alquileres,2,Servicios,3,Bienes de Uso,5 2-PBGMercadera,1,Alquileres,2,Servicios,3,Otros Conceptos,4,Bienes de Uso,5UP_LOCALIZACIONP_IVA_CLASIFICACION_PROVEEDORES*4H# "H< bB Mercadera B Alquileres BSevicios BOtros Conceptos B Bienes de Uso 2B No definido 2#H= cB Mercadera B Alquileres BSevicios BOtros Conceptos B Bienes de Uso 2B No definidoUXCODP_LOCALIZACION4TC % HK Y%H~ CBA,E,B,M BA,B,M 2BA,E,B,M U% BM Q%5 BA MBA,E,B v BC  BB,C  BE  BC  BB 2 BE %Cempresas DQ \empresasCempresascodigo%  BA  BMU XIVACATXIVACAT2XPROVEEDOR_CONTADOXTIPO_COMPROBANTEXLIQPRODXTIPOCP_SYSTEMP_CODEMPEMPRESASIVACAT4H BBSin Clasificar mBVenta Mayorista BVenta Minorista  BServicios Empresariales  ,B#Cheques Rechazados/Canje de Cheques 9BFondo de Publicidad ]BRegalas 2BMal ClasificadoUXCLASEH{ `<B3Normal,1,Servicios Pblicos,2,Servicios Aduaneros,3 2{BNormal,1UP_LOCALIZACIONX4HQ H<  iBNormal BServicios Pblicos BSevicios Aduaneros 2B No definido 2QHM  /BNormal 2MB No definidoUXCODP_LOCALIZACIONQSTRINGQSTRINGH3 eTC- B 2TC. BUXCUITXLOCALP_LOCALIZACIONBa%CC> ,B- ( #TCC\gTTTTTTTTT T T ( -TCC,T C CTCC  GT HN   y T    T%C Ba B-UXRUCLCNRORUC AARRAYRUCI LNRESIDUO LNULTDIGITOBaUXNITMHF 6B Argentina WBChile zBUruguay BBolivia  BUsa BParaguay  BPer $BColombia  FBMxicoUP_LOCALIZACIONBCUXCUITTHIS ADUANA_CUIToHd xT 33-69345023-9$TDIR. GRAL DE ADUANASTDGA T 60.804.000-5,TSERVICIO NACIONAL DE ADUANASTSNA )TTT T 316324029TSIDUNEATSIDUNEA T 00-0000000TCPB-TCUSTOMS AND BORDER PROTECTION ]T 80029222-7TDNA-TDIRECCION NACIONAL DE ADUANAS T 20131312955TSUNATTSUNAT  T 060.804.000-5TDIANTDIAN  dT XXX000000XXXTANAMTANAMBUP_LOCALIZACIONTHIS ADUANA_CUIT ADUANA_NOMBREADUANA_FANTASIA@ %CoSplashbO9CUOSPLASHXTEXTOAVANCEH H< Inscriptoa B Monotributo B Exento B Extranjero B 2 B 2 BUXTEXTOP_LOCALIZACIONUHN H< Inscriptoa B Monotributo B Exento B Extranjero B 2 B  B  B ; B 2N BUXTEXTOP_LOCALIZACIONBaUXNITBaUXNITnHg   TTTTTTTTT T  B# Cg TTTBUXARRAYP_LOCALIZACION T C(C-TCCCZ - CC'TCCC 6 BUXTEXTOXARRAYXTEXTO2THIS"IVA_CATEGORIA_CLIENTES_DISPONIBLESNITIVA_CATEGORIA_CLIENTES_TEXTOBaUXNITBaUXNITH .H<* X B t B  B  B  B 2*OCBError !!! (localizacion.iva_categoria_proveedores_contado_reverse) B 2HI e B  B 2OCBError !!! (localizacion.iva_categoria_proveedores_contado_reverse) BUXCATP_LOCALIZACIONMENSAJE5H$. xTPesoTPesosT$TPES TPesoTPesosT$TPES  TPesoTPesosT$TPES ~T BolivianoT BolivianosTBsTBS TDolarTDollarsTU$STUSD 2TGuaranT GuaraniesTGsTGS TSolTSolesTS/TSOL TPesoTPesosT$TPES  .TPesoTPesosT$TPESUXMONEDA_TEXTO_SINGULARXMONEDA_TEXTO_PLURAL XMONEDA_ABREVXMONEDA_ABREV_LETRASP_LOCALIZACIONBaUXNIT T TTC%C>   J(J(J(J(J(J(J(J(J( J( ( d$TCC\gCTC GT 5BCCC C  66Z  BUXDNIXMSGCDNINVALOR1NVALOR2NVALOR3IANUMH tPBGNo inscripto o no Acreditada,0,Convenio Multilateral,1,Local,2,Exento,3 C BLocal,2UP_LOCALIZACIONH  TTTTB 2 TBUXARRAYP_LOCALIZACION T C(C-TCCCZ - CC'TCCC 6 BUXTEXTOXARRAYXTEXTO2THIS#IIBB_CATEGORIA_CLIENTES_DISPONIBLESNITIIBB_CATEGORIA_CLIENTES_TEXTOVH,F MB Pendiente nB Pendiente %H! H  BNO  BCM   BLO * BEX 2 Ta;C*Categora de IIBB de clientes invlida !!! BIN 2!H  BLO 2 Ta;C*Categora de IIBB de clientes invlida !!! BIN 2FH@B Hd %BNo inscripto o no Acreditada BConvenio Multilateral BLocal BExento 2 Ta;C*Categora de IIBB de clientes invlida !!!'BInvlida categora de IIBB !!! 2BH> BLocal 2> Ta;C*Categora de IIBB de clientes invlida !!!'BInvlida categora de IIBB !!! BUXCODXRESXIFXIF2XERRORXAUTP_LOCALIZACION MENSAJE_A *CIniciando localizacin%  #CAbriendo Paises%Cpaises Q\paises'CAbriendo Provincias%Cprovinc Q\provincF TQ T-H< F #%Cpaisescodigo% ARGENTINA  F >  ARGENTINA F #%CpaisescodigoD%CHILE  @F > CHILE N'CAbriendo provinc_arQ \provinc_ar% &CCopiando a provinc(\provinc Ta%C provinc_arF Q F #%Cpaisescodigo%CHILE v F >  CHILE F #%Cpaisescodigo&% ARGENTINA  "F >  ARGENTINA 0Q \provinc_cl% (\provinc Ta%C provinc_clF Q LF #%Cpaisescodigo:%URUGUAY   6F >  URUGUAY DF #%Cpaisescodigo% ARGENTINA  F >  ARGENTINA Q \provinc_ur% (\provinc Ta%C provinc_urHF Q F #%Cpaisescodigo%BOLIVIA  F >  BOLIVIA F #%C paisescodigoX% ARGENTINA * TF >  ARGENTINA bQ \provinc_bo%(\provinc Ta%C provinc_boFQ  F #%Cpaisescodigo/%ESTADOS UNIDOS DE AMERICA Q F *>  ESTADOS UNIDOS DE AMERICA F #%Cpaisescodigo % ARGENTINA   F >  ARGENTINA  Q \provinc_us%t (\provinc Ta%C provinc_us FQ = F #%Cpaisescodigo+ %PARAGUAY  ' F >  PARAGUAY 5 F #%C4paisescodigo % ARGENTINA   F >  ARGENTINA  Q \provinc_py% (\provinc Ta%C provinc_py9 FQ  F #%Cpaisescodigo %PERU   F >  PERU  F #%C5paisescodigoC % ARGENTINA  ? F >  ARGENTINA M Q \provinc_pe% (\provinc Ta%C provinc_pe FQ kF #%CpaisescodigoY %COLOMBIA + U F >  COLOMBIA c F #%C paisescodigo % ARGENTINA   F >  ARGENTINA  Q \provinc_co%=(\provinc Ta%C provinc_cogFQ  F #%Cpaisescodigo%MEXICO  F >  MEXICO F #%C.paisescodigou% ARGENTINA G qF >  ARGENTINA Q \provinc_mx%(\provinc Ta%C provinc_mcFQ%8C$Provincias actualizado, reindexando.Q\provinc& & & Q1CInicializo propiedades Aduana  BUXNOINITOSPLASHTHISOSPLASH_MOSTRAR XPROVACTUALXUPDP_SYSTEMPROVINCDESCRP_LOCALIZACIONPAISES PROVINC_AR PROVINC_CL PROVINC_UR PROVINC_BO PROVINC_US PROVINC_PY PROVINC_PE PROVINC_CO PROVINC_MXCODIGOCODADUANA cuit_texto0 cuit_validar cuit_mascarar cuit_longitudR cuit_vaciocuit_valida_argentina cuit_valida_chile\ cuit_vacio_preguntar cuit_formateado+ cuit_formatoiva_categoria_clientesW ganancias(crear_tabla_ganancias_argentinaocrear_tabla_ganancias_chile{minimo_retencion_ganancias|tabla_gananciaso~texto_subdiario_ivaiva_categoria_clientes_textopiva_categoria_proveedores_textoiva_categoria_proveedores!iva_categoria_clientes_texto_cpbt$iva_categoria_proveedores_texto_cpbtiva_discriminadopais_local_validar pais_localprovincia_textoќ ciudad_texto remito_texto !iva_categoria_proveedores_contadoƟiva_clasificacion_proveedores#iva_clasificacion_proveedores_textoiva_letra_proveedoresC iibb_claseciva_clasificacion_citi_compras$iva_clasificacion_citi_compras_texto cuit_numeros cuit_valida_uruguayūcuit_valida_boliviapais es_aduanahaduanaosplash_mostrar`$iva_categoria_proveedores_cuitonline,iva_categoria_proveedores_cuitonline_contadocuit_valida_usaWcuit_valida_paraguayv"iva_categoria_clientes_disponibles(iva_categoria_clientes_disponibles_lista#cuit_valida_peruMcuit_valida_colombial)iva_categoria_proveedores_contado_reverse moneda_localcuit_valida_mexico@ obtener_cuil_iibb_categoria_clientesw#iibb_categoria_clientes_disponibles1)iibb_categoria_clientes_disponibles_listaiibb_categoria_clientes_texto:Init1111111111A3q111111111qAq41b1R1b1b12121B1b1RA3111111111A31b1R11212121B1b1RA4tq AA3qrr`rqqqqqqq!QAQAbA6q11r111R1R1b11rA31qA1r!1AA311A31 1r1r1r1r1r1r1r1rA41CA0Ar1A1QaQ1AQ1A2q1QQ1Q1Qq A1Q1Q1Q1 A22Q21QA1aAQB1QaQ1AQ1A2q1QQ11q A1111 A22Q21QA1aAQB1Qa1A1A2q1Q11q A1111 A22Q21QA1aAQB1Qa1A1A2qB1Q11q 1 AB1111 1A22Q21QA1aAQB1Qa1A1A2q2A11q 1 AB1111 1A22Q21QA1aAQBD2sA1QQ1ABB3AQ  aB3ABB211A1A2AAAA1A41BA"2sAR!A!5q1"!aa! !"!Qa1!a1CA411111111A1111111111aA111111111111aA111AaAA11111111q1Q1111Qa!A111Aa!AAA41111111A1111AA11111Q1A1!QA111Q1!QAAA21QA3q11111111q1Q1111Qa!A111Aa!AA4q111111A1QA1111QAA31AtrbAsAqA3q2q31"11R1R11R1R1R1A!31A311A31A312AA3q11111111aAA1111111aAAC3q211A11AAA11111AAbAB2q1q111111A31A3q111AAAAA31bbA2qqvqAq11AAAqqA2qq21!11111111A3q!31A11111qq11111QQ1AA1AAAA2A2q1AA4q1A211A4qq2qq2q11111111111A1111AA4qqqA2qq2qq2q111111A11AB211!1!1!1bq1"A1Ba1!1!1!A4qq2qrQ1111111111AA!QA41qA2q11111A1AA4qqqA2""11111A1AA11Q111qA1qAAA42ArAqB1s1qABr1qQABrbaqAqAA2s1qaABr1qABbqAqAA2s1qABr1qABbqAqAA1s1qABr1qABbqAqAA2s1qABr1qABbqAqAA2s1qABr1qABbqAqAA2s1qQABr1qABbqAqAA2s1qABr1qABbqAqAA2s1qqABr1qABbqAqAABqBBBB2i$3+MK pc | { Gr 3J6m N7F"\f"ڠխұ[=X|2bd_j)G+nDGJ b/j@:t5 H{>Ra,M$  = 8@&<U#SX@X$_ 6R'f 1 q L6 .us 1Nw L|> SxT b m  h9 )] ( @yxyYVVěʷٻмԨêӦ輞žٷ˱ŶũڦܬݮީԳչihfѲںq_&BAM|~~w"* m17[kjpgyw;]hATZFY_KUX}&6FMK+g|MMOhda2bruvjhuz~Xad:G^]or{tUMUkmuxfKUrORSn}XSq6::E`KiQpimwQkRlTl|||wwwtttsssmmmeee^^^[[[XXXUUU)ˌģ¢ļӕ~͹¯Ӥ||  ~Гӣ{ DDC@0 vzфö $NJHD@?8 uxttcΥ5LJFA336vmmmTIKMM=GB6%3( ibbWq)-GI=KIEA2&4VPPYY.DEHHF>?/9VRRggrBA>>B?3&':ZUU[[[̰?8797/!#<1fXX\\\} *9,%%& $=hhh^^^^}zz07&#= k]]____qllp"748>;```daaab~ +OraalowdPPPPPPPPPPPPPPPPPPgPPPPPPRssjWTQPPPPPSPPPPPynheTk\gYT[p???GIF89a)&w!,)&Ǫ !"&'+.0039=AABBGJMSTY[abbmmmstv{{H,Ç}" B 4a CzadEl/QAF( H& "B@H"IPEnx@ 38}:0ǂ`(,+ `*Qm FpK..jDB߿~80ǐ#4WB#%,>̬a\y}-FR?Mp$Z b'A!  TUeB w Hr Ef 9A!ak=PA8V0Bh @Z`IbBHH@ AC D ,T@@\a@\,'A 'BB"(WY Œ@хɹ@tuUfv09p@(vi [PS NM} @^y $QB@007BE+/pu}pHWnkJ)Av cq`@;PNG  IHDR szzIDATxŗ pSUsMrI+tjIm+Z1QTt)qE*TvYqYV\Epڡ*卖"HBy{iF읞=9/C3ZPL 3Y`EE4) ѰuL6 ุBr2Ϋ2tĈN y}͵rGvem@z|'ST91ynb7Gk"M[Xt)F;N `s]juSK-pf-$dr -@_m$\9gۏϙ}f0ak& Äq_V۲vœJoKl,؜yJG#!($1Qh $9}B0.~饿u*?ayKV,H3ŀ3b6tM4P,[ygM^13@]C`8 DuS8@v"){X;ydY8 yeĩ 4MO@maUkr2Nֿׂ-p^6j͎FAWR(Xv]& 4 #я'WoHQ^Κ 5MzU4#]x;?'HO0>_Zr'u]6\2LL+6BmD?[o=ٲd dZЙۛ|[@t˿n,<4fx2 WW8.{3Gi:'Zm9T?G\L݊. :lBiG;$.QqeG$/y#:4QB/t/{^ze'?`˰jjX6yz,B`/ۀ}@&^"N!@]@~,eӫ.إf=F n:QY'(Bi:@k'_n>!ihp0:%Vzl̖0Hb@CfC[^S)kx."͊^2YY.s?7Dc/$ T࠰6dA}P&sX<\?]Ύ[Yc8^U]ϗt{/pfN󚅤AzW7=3OR* 3c;BF I"'+0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _4ML0WN9ER1219197059! -]8! COMMENT RESERVED  WINDOWS _4MF0KAPGV1219526222sW$h)q  WINDOWS _4MF0KBSVI1218202565 + WINDOWS _4MF0KBSVJ1219526222 WINDOWS _4MF0KBSVK1219526222 WINDOWS _4MF0KBSVL1219526222~  WINDOWS _4MF0KBSVM12195262229FSar WINDOWS _4MF0KBSVN1218202565#0=K\ WINDOWS _4MF0KBSVO1219526222M *9L WINDOWS _4MF0KBSVP1218202565]J WINDOWS _4MF0KBSVQ1219526222 $& WINDOWS _4MF0KBSVR1219526222 $c'$& WINDOWS _4MF0KBSVT1219526222 VE WINDOWS _4MF0KBSVU12195262228+p " COMMENT RESERVED  WINDOWS _50E0T1E4J1261206277 b#j k WINDOWS _4ML0WN9ER1219197059 WINDOWS _4ML0WN9ER1219197059V$g$ WINDOWS _50E0VC5V61261204648 E$h| WINDOWS _4ML0WN9ER1261205775 Xes# WINDOWS _50E0WGBTS1261205775v COMMENT RESERVED $G WINDOWS _4ME11ISJ41300457221<##Nh'1T&3$ WINDOWS _4ME11S2PS1218806054# # WINDOWS _4ME11X01M1261202708 8$*! "  WINDOWS _4MM0VFIKT1219526763! z WINDOWS _4MM0YI3071219526805\ 4 ' i] COMMENT RESERVED i WINDOWS _4ML0XFAGR1300457635ZA~8F COMMENT RESERVED aVERSION = 3.00"%cxrU UTHISPARENT CLICK_BOTONClick011))"%dysU UTHISPARENT CLICK_BOTON2Click011))"%cxrU UTHISPARENT CLICK_BOTONClick011))@"''% Um"%C THIS.oDirOBJbLZ8TCFERE_DomicilioFE_Funciones_COT.PRG BUTHISODIROBJbTTTT C U THISTEXT2 CONTROLSOURCE CAMPO_DIRCOTTEXT3 CAMPO_DIRTXTODIROBJDIRCOTVALUETEXT1OBTENER_TEXTO_LIMPIOodirobj_access0Init1"A3aa1 )'"q\%{UTCUTHISCAPTION OLOCALIZACION CIUDAD_TEXTOInit01A2;)PROCEDURE odirobj_access *To do: Modify this routine for the Access method IF TYPE("THIS.oDirOBJ")="L" THEN THIS.oDirOBJ=NEWOBJECT( "FERE_Domicilio", "FE_Funciones_COT.PRG") ENDIF RETURN THIS.oDirOBJ ENDPROC PROCEDURE Init this.text2.ControlSource = This.campo_dircot this.text3.ControlSource = this.campo_dirtxt this.odirobj.dircot=this.text2.value this.text1.Value = this.odirobj.Obtener_Texto_limpio() ENDPROC Picture = bmp\gmaps3.png Stretch = 2 Height = 32 Width = 32 campo_georeferencia = ("this.Parent.Campo_georeferencia1") ogeoc = .F. Name = "importar_georeferencia" Vodirobj campo_dircot campo_dirtxt *odirobj_access *click_boton *click_boton2 Class container4PROCEDURE Click This.Parent.click_boton ENDPROC [Anchor = 522 Height = 25 Left = 5 ReadOnly = .T. Top = 7 Width = 307 Name = "Text1" Image2imageimagePixelscampo_georeferenciatextboxtextboxtextboxAnchor = 9 ControlSource = "this.parent.direccion.Nro" Height = 25 Left = 281 TabIndex = 3 Top = 3 Width = 73 Name = "txNro" textboxText1campo_georeferenciaimagetxCP^Anchor = 522 Height = 25 Left = 219 ReadOnly = .T. Top = 32 Width = 212 Name = "Text3" !Arial, 0, 9, 5, 15, 12, 32, 3, 0  direcciontextboxtxPais direccionlabel13AutoSize = .T. FontBold = .T. Anchor = 3 Alignment = 0 BackStyle = 0 Caption = "Provincia" Height = 17 Left = 4 Top = 55 Width = 55 TabIndex = 23 Name = "Label2" 4PROCEDURE Click This.Parent.click_boton2 ENDPROC textboxtextbox direccionLabel2imageImage1[Anchor = 522 Height = 25 Left = 4 ReadOnly = .T. Top = 5 Width = 307 Name = "Text1"  container containertextboxtextboxText1 campo_cotimagegeoreferenciacionPixelsClass1controltextbox txProvincia direccionlabelWidth = 394 Height = 58 BackStyle = 0 BorderWidth = 0 odirobj = .F. campo_dircot = ("") campo_dirtxt = ("") Name = "campo_cot" Pixels direccion!Arial, 0, 9, 5, 15, 12, 32, 3, 0 georeferenciacioncontrolcampo_georeferenciaimportar_georeferenciaPixelsClass1imageimagebgcap *geo_campos_a_texto *geo_direccion_a_campo *grabar_valor *separar_partes *dispose label container?Width = 358 Height = 80 direccion = .F. Name = "direccion" PROCEDURE actualizar_direccion LPARAMETERS oDir IF TYPE("oDir")<>"O" OR ISNULL(oDir) THEN TRY oDir=NEWOBJECT("ges.maps.GeoDireccion") CATCH This.limpiar_controlsource ENDTRY ENDIF this.direccion = oDir this.Refresh ENDPROC PROCEDURE dispose this.direccion=.f. ENDPROC PROCEDURE limpiar_controlsource THIS.txRuta.CONTROLSOURCE = "" THIS.txNro.CONTROLSOURCE = "" THIS.txCiudad.CONTROLSOURCE = "" THIS.txCP.CONTROLSOURCE = "" THIS.txProvincia.CONTROLSOURCE = "" THIS.txPais.CONTROLSOURCE = "" ENDPROC PROCEDURE Init LOCAL oEx, oEx2 TRY this.direccion = NEWOBJECT("ges.maps.GeoDireccion") CATCH TO oEx TRY CATCH TO oEx2 this.direccion = CREATEOBJECT("Custom") this.limpiar_controlsource ENDTRY ENDTRY ENDPROC Anchor = 11 ControlSource = "this.parent.direccion.Provincia" Height = 25 Left = 61 TabIndex = 3 Top = 51 Width = 120 Name = "txProvincia" Text2 campo_cottextboxtextbox campo_cotText36Anchor = 520 Picture = bmp\editar.ico Stretch = 2 Height = 30 Left = 314 Top = 2 Width = 30 ToolTipText = "Editar la direccin para el COT" Name = "Image1" Anchor = 520 Picture = bmp\flecha_abajo.gif Stretch = 2 Height = 30 Left = 351 Top = 1 Width = 30 ToolTipText = "Usar direccin actual para el COT" Name = "Image2" Label6labellabel direcciontxNroLabel5ClassiWidth = 32 Height = 32 Picture = bmp\gmaps.ico Visible = .F. gcap = .F. Name = "georeferenciacion" !Arial, 0, 9, 5, 15, 12, 32, 3, 0 PixelsClass5 campo_basecampo_georeferenciacampo_georeferenciaImportar_georeferencia1Gdireccion *actualizar_direccion *dispose *limpiar_controlsource labellabelLabel3 direccionAutoSize = .T. FontBold = .T. Anchor = 3 Alignment = 0 BackStyle = 0 Caption = "Calle" Height = 17 Left = 4 Top = 7 Width = 30 TabIndex = 21 Name = "Label3" textboxtextboxtxRuta direccionAnchor = 11 ControlSource = "This.parent.Direccion.Calle" Height = 25 Left = 61 TabIndex = 1 Top = 3 Width = 191 Name = "txRuta" textboxtextboxtxCiudad direccionAnchor = 11 ControlSource = "this.parent.direccion.Ciudad" Height = 25 Left = 61 TabIndex = 2 Top = 27 Width = 191 Name = "txCiudad" textboxtextbox direccionAnchor = 9 ControlSource = "this.parent.direccion.CP" Height = 25 Left = 281 TabIndex = 3 Top = 27 Width = 73 Name = "txCP" labellabelLabel1 direccionAutoSize = .T. FontBold = .T. Anchor = 9 Alignment = 0 BackStyle = 0 Caption = "CP" Height = 17 Left = 256 Top = 31 Width = 18 TabIndex = 23 Name = "Label1" labellabelLabel4 direccionAutoSize = .T. FontBold = .T. Anchor = 3 Alignment = 0 BackStyle = 0 Caption = "Ciudad" Height = 17 Left = 4 Top = 32 Width = 41 TabIndex = 17 Name = "Label4" FPROCEDURE Init this.Caption=oLocalizacion.ciudad_texto() ENDPROC Anchor = 520 Left = 352 Top = 3 ToolTipText = "Pasar los datos de la direccin georeferenciada a los campos comunes" campo_georeferencia = ("this.Parent") Name = "Importar_georeferencia1" imagegeoreferencia.vcxtextboximportar_georeferencia2Top = 3 Left = 115 Name = "Georeferenciacion1" campo_georeferenciaGeoreferenciacion1controlgeoreferencia.vcxgeoreferenciacionImage1campo_georeferencia ogeoc *pre_importar *importacion *por_importacion *pre_importacion *pre_validacion *pos_importacion *no_importacion *dispose importar_georeferenciaAnchor = 520 Picture = bmp\gmaps.png Stretch = 2 Height = 30 Left = 315 Top = 5 Width = 30 ToolTipText = "Buscar la direccin Georeferenciada" Name = "Image1" AutoSize = .T. FontBold = .T. Anchor = 9 Alignment = 0 BackStyle = 0 Caption = "Nro" Height = 17 Left = 256 Top = 7 Width = 22 TabIndex = 23 Name = "Label6"  campo_cot\Anchor = 522 Height = 25 Left = 4 ReadOnly = .T. Top = 32 Width = 212 Name = "Text2" textbox container clases.vcx campo_cotlabel direccionimage campo_cot campo_cot4PROCEDURE Click This.Parent.click_boton ENDPROC  direccionhform_georeferencia campo_direccion campo_cp campo_ciudad campo_provincia campo_pais campo_georeferencia campo_coordenadas campo_dir_plana ogeoc mostrar_importar text_visible referenciar_visible iniciado gcap *click_boton *pos_georeferenciar *pre_georeferenciar *importar_georeferencia *dispose *enabled_assign *actualizar_visibles Anchor = 9 ControlSource = "this.parent.direccion.Pais" Height = 25 Left = 234 TabIndex = 3 Top = 51 Width = 120 Name = "txPais" AutoSize = .T. FontBold = .T. Anchor = 9 Alignment = 0 BackStyle = 0 Caption = "Pais" Height = 17 Left = 201 Top = 55 Width = 27 TabIndex = 23 Name = "Label5" Width = 386 Height = 39 BackStyle = 0 BorderWidth = 0 form_georeferencia = geo_georeferencia campo_direccion = .F. campo_cp = .F. campo_ciudad = .F. campo_provincia = .F. campo_pais = .F. campo_georeferencia = .F. campo_coordenadas = .F. campo_dir_plana = .F. ogeoc = .F. mostrar_importar = .T. text_visible = .T. referenciar_visible = .T. iniciado = .F. gcap = .F. Name = "campo_georeferencia" "Pw%Y U#%CoDirbOC q Y%TCges.maps.GeoDireccion m T UODIRTHISLIMPIAR_CONTROLSOURCE DIRECCIONREFRESHT-UTHIS DIRECCIONuTTTTTTUTHISTXRUTA CONTROLSOURCETXNROTXCIUDADTXCP TXPROVINCIATXPAIS  =(TCges.maps.GeoDireccion( U(TCCustomN UOEXOEX2THIS DIRECCIONLIMPIAR_CONTROLSOURCEactualizar_direccion0disposelimpiar_controlsource+Init1q1QAA221111113AA1   J)) PROCEDURE importacion LOCAL oOBJ , oEx TRY oOBJ=EVALUATE(this.campo_georeferencia ) CATCH TO oEx =mensaje("Error al evaluar: "+this.campo_georeferencia + CHR(10) + oEx.Message) oOBJ = .f. ENDTRY IF TYPE("oOBJ")="O" THEN TRY oObj.Importar_Georeferencia CATCH TO oEx =mensaje("Error al importar."+ CHR(10) + oEx.Message) ENDTRY ENDIF ENDPROC PROCEDURE pre_validacion LOCAL xEval xEval=EVALUATE(EVALUATE(this.campo_georeferencia+".campo_georeferencia")) IF EMPTY(xEval) THEN =mensaje("Primero debe obtener una direccin georeferenciada") RETURN .f. ELSE RETURN mensaje_sino("Est seguro de importar la direccin Georeferenciada?",2) ENDIF ENDPROC PROCEDURE pos_importacion TRY THIS.PARENT.REFRESH() TRY THIS.PARENT.PARENT.REFRESH() CATCH ENDTRY CATCH ENDTRY ENDPROC PROCEDURE Click **=Sys_mostrar_screen("Click",.t.) IF THIS.pre_importacion() AND this.pre_validacion() THEN THIS.importacion THIS.pos_importacion ELSE this.no_importacion ENDIF ENDPROC PROCEDURE click_boton LOCAL xRes as Boolean xRes=.f. this.pre_georeferenciar(xRes) DO FORM (this.form_georeferencia) WITH this TO xRes this.pos_georeferenciar(xRes) this.Parent.Refresh ENDPROC PROCEDURE pos_georeferenciar LPARAMETERS xRes ENDPROC PROCEDURE pre_georeferenciar LPARAMETERS xRes ENDPROC PROCEDURE importar_georeferencia This.georeferenciacion1.geo_direccion_a_campo(this, this.text1.Value) ENDPROC PROCEDURE dispose this.georeferenciacion1.dispose this.importar_georeferencia1.dispose ENDPROC PROCEDURE enabled_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Enabled = m.vNewVal this.text1.Enabled = m.vNewVal this.actualizar_visibles ENDPROC PROCEDURE actualizar_visibles this.text1.Visible = this.text_visible this.importar_georeferencia1.Visible = this.mostrar_importar and this.Enabled this.image1.Visible = this.referenciar_visible and this.Enabled ENDPROC PROCEDURE Resize IF NOT this.iniciado = .t. then RETURN ENDIF LOCAL xDer xDer=this.Width IF this.importar_georeferencia1.Visible THEN this.importar_georeferencia1.Left = this.Width - this.importar_georeferencia1.Width - 2 xDer= this.importar_georeferencia1.left ENDIF IF this.Image1.Visible THEN this.Image1.Left = xDer - this.image1.Width - 2 xDer=this.image1.Left ENDIF IF this.text1.Visible THEN this.text1.Width = this.image1.Left - this.text1.Left - 5 ENDIF ENDPROC PROCEDURE Init LOCAL oGCap TRY DO Obtener_GeoCapsula IN sys_gmap WITH oGCap This.GCap= oGCap CATCH this.mostrar_importar = .f. this.referenciar_visible = .f. ENDTRY TRY this.text1.ControlSource = this.campo_georeferencia CATCH ENDTRY this.actualizar_visibles this.iniciado = .t. ENDPROC PROCEDURE geo_campos_a_texto LPARAMETERS oPadre AS campo_georeferencia OF F:\sistema\2000\georeferencia.vcx, xGeoRef as String LOCAL xGeoRef AS STRING xGeoRef = EVALUATE(oPadre.campo_georeferencia) SET PROCEDURE TO listados ADDITIVE LOCAL xSepa, xDireccion, xCiudad, xProvincia, xPais, xCP, xDirPlana xSepa="" xDireccion="" xCiudad="" xProvincia="" xPais="" xCP="" xDirPlana="" IF EMPTY(xGeoRef) THEN IF NOT EMPTY(oPadre.campo_direccion) THEN xDireccion= EVALUATE(oPadre.campo_direccion) IF NOT EMPTY(xDireccion) THEN xDireccion= ALLTRIM(xDireccion) xSepa=", " ELSE xDireccion="" ENDIF ENDIF IF NOT EMPTY(oPadre.campo_ciudad) THEN xCiudad= EVALUATE(oPadre.campo_ciudad) IF NOT EMPTY(xCiudad) THEN xCiudad= xSepa + ALLTRIM(xCiudad) xSepa=", " ELSE xCiudad="" ENDIF ENDIF IF NOT EMPTY(oPadre.campo_CP) THEN xCP= EVALUATE(oPadre.campo_CP ) IF NOT EMPTY(xCP) THEN xCP= xSepa +ALLTRIM(xCP) xSepa=", " ELSE xCP="" ENDIF ENDIF IF NOT EMPTY(oPadre.campo_provincia) THEN xProvincia=provinc(EVALUATE(oPadre.campo_provincia)) IF NOT EMPTY(xProvincia) THEN xProvincia = xSepa + ALLTRIM(xProvincia) xSepa=", " ELSE xProvincia="" ENDIF ENDIF IF NOT EMPTY(oPadre.Campo_Pais) THEN xPais=Pais(EVALUATE(oPadre.Campo_Pais)) IF NOT EMPTY(xPais) THEN xPais = xSepa + ALLTRIM(xPais ) xSepa=", " ELSE xPais="" ENDIF ELSE xPais="" ENDIF xGeoRef = xDireccion + xCiudad +xCP + xProvincia + xPais IF EMPTY(xGeoRef) THEN IF NOT EMPTY(oPadre.campo_Coordenadas) THEN xCoord= EVALUATE(oPadre.campo_Coordenadas) IF NOT EMPTY(xCoord) THEN xGeoRef= ALLTRIM(xCoord) ENDIF ENDIF ENDIF IF EMPTY(xGeoRef) THEN IF NOT EMPTY(oPadre.campo_dir_plana) THEN xDirPlana= EVALUATE(oPadre.campo_dir_plana) IF NOT EMPTY(xDirPlana) THEN xGeoRef= ALLTRIM(xDirPlana) ENDIF ENDIF ENDIF ENDIF RETURN xGeoREf ENDPROC PROCEDURE geo_direccion_a_campo LPARAMETERS oPadre AS campo_georeferencia OF F:\sistema\2000\georeferencia.vcx, xGeoRef as String IF NOT TYPE("this.gcap")="O" THEN RETURN .f. ENDIF SET PROCEDURE TO listados ADDITIVE LOCAL xGeoRef AS STRING xGeoRef = EVALUATE(oPadre.campo_georeferencia) LOCAL oDir as GES.Maps.Geodireccion oDir=this.gcap.Obtener_GeoDireccion(xGeoRef) IF NOT TYPE("oDir")="O" or ISNULL(oDir) THEN =Mensaje("No se pudo obtener la geodireccin") return ENDIF This.Grabar_valor(oPadre.campo_direccion, UPPER(oDir.Calle + " " +oDir.Nro)) This.Grabar_valor(oPadre.campo_cp , UPPER(oDir.CP)) This.Grabar_valor(oPadre.campo_provincia , UPPER(provinc_inv(oDir.Provincia))) IF UPPER(provinc_inv(oDir.Provincia))="C" AND UPPER(oDir.Ciudad) ="BUENOS AIRES" THEN *** No lo grabo ELSE This.Grabar_valor(oPadre.campo_ciudad , UPPER(oDir.Ciudad) ) ENDIF This.Grabar_valor(oPadre.campo_pais , Pais_Inv(,oDir.Pais)) this.Grabar_valor(oPadre.campo_coordenadas, oDir.Coordenadas) ENDPROC PROCEDURE grabar_valor LPARAMETERS xCompleto, xValor LOCAL xTabla, xCampo, oEx xTabla="" xCampo="" =this.separar_partes(xCompleto, @xTabla, @xCampo) TRY replace &xCampo WITH xValor IN &xTabla CATCH TO oEx &xCompleto = xValor ENDTRY ENDPROC PROCEDURE separar_partes LPARAMETERS xCompleto, xTabla, xCampo xCompleto=ALLTRIM(xCompleto) xTabla="" xCampo="" LOCAL xAT xAT=AT(".",xCompleto) IF xAT=0 THEN xCampo=ALLTRIM(xCompleto) ELSE xTabla=SUBSTR(xCompleto,1,xAT-1) xCampo=SUBSTR(xCompleto, xAT+1) ENDIF ENDPROC PROCEDURE dispose this.gcap=.f. ENDPROC PROCEDURE Init TRY LOCAL oGMap DO Obtener_GeoCapsula IN sys_gmap WITH oGCap This.GCap= oGCap CATCH ENDTRY ENDPROC  " % (  UQQCAMPO_GEOREFERENCIA!F:\sistema\2000\georeferencia.vcxQSTRINGQSTRINGTCG+(listados   T T T T T  T  T %Cu%C TC %C hTCT,  T%C TC %C TCT,  T%C wT C%C \T C T, s T %C TCC%C TCT,  T%C sT CC%C XT C T, o T   T T  %C %C TC%C TC%Cq%C mT C%C iTC  BUOPADREFXGEOREFCAMPO_GEOREFERENCIALISTADOSXSEPA XDIRECCIONXCIUDAD XPROVINCIAXPAISXCP XDIRPLANACAMPO_DIRECCION CAMPO_CIUDADCAMPO_CPCAMPO_PROVINCIAPROVINC CAMPO_PAISPAISCAMPO_COORDENADASXCOORDCAMPO_DIR_PLANAAQQCAMPO_GEOREFERENCIA!F:\sistema\2000\georeferencia.vcxQSTRING %C this.gcapbO xB-G+(listadosQSTRINGTC QGES.Maps.GeodireccionTC$%CoDirbO C @/C"No se pudo obtener la geodireccin B'C C   f CCf CCCf 9%CCfCCf BUENOS AIRES  CCf CC C UOPADREFXGEOREFLISTADOSCAMPO_GEOREFERENCIAODIRTHISGCAPOBTENER_GEODIRECCIONMENSAJE GRABAR_VALORCAMPO_DIRECCIONCALLENROCAMPO_CPCPCAMPO_PROVINCIA PROVINC_INV PROVINCIACIUDAD CAMPO_CIUDAD CAMPO_PAISPAIS_INVPAISCAMPO_COORDENADAS COORDENADAS  T TC *replace &xCampo WITH xValor IN &xTabla (&xCompleto = xValor U XCOMPLETOXVALORXTABLAXCAMPOOEXTHISSEPARAR_PARTESTC T TTC.%tTC TC\TC\U XCOMPLETOXTABLAXCAMPOXATT-UTHISGCAPI 8sys_gmapT BUOGMAPOBTENER_GEOCAPSULASYS_GMAPOGCAPTHISGCAPgeo_campos_a_texto0geo_direccion_a_campo grabar_valor separar_partes dispose Init 1!"R!!AAR!!1AAR!!1AARa!1AARa!1AAQ!!ABAQ!!AAAB2qA"!BAAsA4qA2r22aA42qqA1Q _h s 4A\) '"P %E:UeQBOOLEAN T-C(C UXRESTHISPRE_GEOREFERENCIARFORM_GEOREFERENCIAPOS_GEOREFERENCIARPARENTREFRESH UXRES UXRES CUTHISGEOREFERENCIACION1GEO_DIRECCION_A_CAMPOTEXT1VALUE  UTHISGEOREFERENCIACION1DISPOSEIMPORTAR_GEOREFERENCIA1;T T UVNEWVALTHISENABLEDTEXT1ACTUALIZAR_VISIBLESYT T T U THISTEXT1VISIBLE TEXT_VISIBLEIMPORTAR_GEOREFERENCIA1MOSTRAR_IMPORTARENABLEDIMAGE1REFERENCIAR_VISIBLE%a BT%$TT%!TT% 'TU THISINICIADOXDERWIDTHIMPORTAR_GEOREFERENCIA1VISIBLELEFTIMAGE1TEXT1 8sys_gmapT ^T-T- T   T aU OGCAPOBTENER_GEOCAPSULASYS_GMAPTHISGCAPMOSTRAR_IMPORTARREFERENCIAR_VISIBLETEXT1 CONTROLSOURCECAMPO_GEOREFERENCIAACTUALIZAR_VISIBLESINICIADO click_boton0pos_georeferenciarpre_georeferenciarimportar_georeferencia&disposeenabled_assignactualizar_visibleseResize;Init1!a2q2q223q"Q4a3QAAsRA1AR1ARqA2qqAaA1 "2 _ . &+=)"%%Z)U  'TC(s3CError al evaluar: C  T-%CoOBJbO (,CError al importar.C UOOBJOEXTHISCAMPO_GEOREFERENCIAMENSAJEMESSAGEIMPORTAR_GEOREFERENCIA,TCC.campo_georeferencia%C?C2Primero debe obtener una direccin georeferenciadaB- FBC6Est seguro de importar la direccin Georeferenciada?UXEVALTHISCAMPO_GEOREFERENCIAMENSAJE MENSAJE_SINOV EC 7C A OUTHISPARENTREFRESHM%CC 2   F UTHISPRE_IMPORTACIONPRE_VALIDACION IMPORTACIONPOS_IMPORTACIONNO_IMPORTACION importacion0pre_validacionrpos_importacionClick 1!1AAA2qqaA21AA3A2l8"T')  ( @   ý佼pdcSZHZHZH_Nff~x䯞o`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:꿄tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θGIF87aCf-'@?'4?F?FFOxR@e$ >,HXȰ! Hb  G3jcH74@+;t f̙.mĉRgI"}͖9DB?2|iq"TU'x5f,H :@"Rlhq%n,ǐ# 4yRcʕ,[3L5mxQN=dϡ>̉4R)ąX kB[mvXacZe}ܯu?UWރqAU$;  ( @ 33333Bfffffƻ̻̻̻̻ջCf@v%ZND|@vI`T\ D|@vI_\!D|@vI^(nD|@vI^3v\D|@vI^3v\D|@vI^3v\D|@vI^3v\ ?_@uI^3v\ vtttjiigff^]\_]]gffkiixvvm %>T1:<3H[]3v\ywwa`_rokı°olhba`yww4DOP4=>ELK`fg3v\kiiwsnۻҳrnjlkkNW[Y`a[w\fedhffZkt!Kn&mkk鶫߿ؿ׿vuujyOw wuuڸԹԺҵҴѱϱбвѲҳҵӷպԸ߸{vttpnmҲͲдαί˫˩˧˨̩̫̭ˬ˭ͯͱͱֳlkj trrȪȪɫɨƣơƢǢȣȣǢĠߟâŦŧ˪wuukxuuӺã⠟àĠšǢǢǢƢšĠŸﾜйsrr俞ßĠšƢǢǢƢšĠŸ꺙⽝}{{뻚뻙ßġšƢƢƢƢšĠŸ｛컙緖縗涖緕컙｛ßšȢȣȣȣȣǡŠŸ뺘嵔㵕ܲ緕깗žƠȡɣʤʤʤʣȢǡŠ컙鹗㴓دά涕緕ƟǠʢˣ̤̤̤̤ʣȢƠĞ뻘涕㴓Ħ莋u䵔嶕ĝȠɡˢ̣̣ͤͤͤͤʡȠƟ䵔嵔ڔ]caa޳纗Ǟʠˡ̢ͣΤΤΤΣ̢ͣʡɠƝ㴓ߴ锑 蹖ʟˠ̡ϥϥ̡ˠƝ䵔ݑkywx ǩɟΡ΢΢͡›㓐ǔ~Ҳ͡ϢϢɠĨ㕑݁ҷȡҦѦß۔Ɣywx }칦忠ʣΤΤʣ἟ܖ꒏tomma֔֔[?? h(  @io6O6PgnG\_\Rl|ρewiy?lO[Eqj|g}|ՁTnYeYpUqmwXr~փkԂlփ}׃%  | S6{!5 Ta T%C|6T)No se especific la empresa de origen !!!B-%C4T'No se especific la empresa destino !!!B-TCTCTC C ( h4TError al abrir los archivos de CCZ T-%  C B-FocuentasQ Ǽ1QFocosxcueQ Ǽ1QFoatribsQ Ǽ1Q C RCa ( 4TError al abrir los archivos de CCZ T-%8F %CC S  F%CC S )  T TTC C C C !C cuentas_copia!C cosxcue_copia C atribs_copia TTC C BU XEMPORIGEN XEMPDESTINOXMSGXOKXBORRAR1ODEYFUNCNEWFILE_LOCAL_TMPXBORRAR2XBORRAR3 OPEN_FILESOEX3 CLOSE_FILESCSCUENTAS CUENTAS_COPIACOSXCUE COSXCUE_COPIAATRIBS ATRIBS_COPIAALLXOLDEMPP_CODEMPP_SERVERGET_PATHSETS POS_PROCESOS CHK_DELETED Dey_Func2CcuentasCcosxcueCatribsCcheproCcomunicUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_CLOSED  Dey_Func2 X/CcuentasC a(%  ,CcuentasC a-(    )/CcosxcueC a(%   ,CcosxcueC a-(     .CatribsC a(%  u Z+CatribsC a-( q   U XP_EMPXP_EXCLUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENEDGET_PATHOEXERRORNOOEX2TC XTC X Taft05% [B-T9 T-% .ft05% ft05 ft05 a  te_saldos *0C#No se han actualizado los datos !!!B- kC;El plan de cuentas est en uso en alguno de los mdulos !!!C Cierre todos los mdulos.B-UXABREVXCUENTAXRESVALIDAR_CUENTAS2FT05 OLDSESSION ACTIVEFORM DATASESSIONIDCREAR_ATRIBUTOSACTUALIZAR_GES DNLD_CUENTAS P_MULTIEMPMANTENIMIENTO_SALDOS TE_SALDOSMENSAJE Close_Filesc Open_Files+ Pos_procesos. yaqAAqAAAqAAAqAQAqAQAAAA3Aqqaaq5BAAAAAAAAA6qA"02BqAqA2GcN nx GIF89aCf, I,'@?I('4`?F?FFO ,:@e$ >!,@ di( B+zkx "Ƽ`o|XBШƠ mtܬ(fXetw{s>Fu|V_rWW&pq`G9E5rc0Z]4}F!;GIF89aCf-'@?'4?F?FFOxR@e$ >!,@ diIB+ nm.,%@500h:M2H"2NUx,}F["Ǯ6#>xslUVVtUo9hWiRxuYsTCZ#!;%L 4ӊ22{4G~(clasesTCreporte_ventanaN$TModificar Formulario %C3\cpbt\ /3\cpbt\<UXFILECLASESOCAPTIONSHOWP_SERVERREPORTE_VENTANAqAQAq1  ( @ ҥxԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqԩqqҥxƌܪuz۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪t۪twܫu ̱ ۩u}xxxxxxxxxxxxxxxxxxxxxxxxxx{۪us ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ آioأiأiأiأiأiأiأiأiأiأiأiأiأj٤j٣jأiأiأiأiأiأiأiأiأiأiأiާmآh[ պٽպպպպպպպպպպպֻֻպֻֻպպպպպպպպպպ׼պ g K6J L6J k ̱ ӹؼԹԹԹԹԹԹԹԹԹԹԹպֺչպպԹԹԹԹԹԹԹԹԹԹֻԹй ̱ آioأiأiأiأiأiأiأiأiأiأiأiأiأj٣jأjأiأiأiأiأiأiأiأiأiأiأiާmآh[ ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ ۩uz۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪u۪ux۪ts ̱ ۩u}xxxxxxxxxxxxxxxxxxxxxxxxxx{۪us ƌܪuy۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩u۩uxܪt ݪwxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxҥxxϟo  ( @ ,)))))))))))))))))))))))))))),7*,**************************+*1 1 + .,,,,,,,,,,,,,,,,,,,,,,,,,, -*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++++++++++++++++++++,*, 1 +-++++++++(%%%%%%%%%%%%%%%%%&%, 1 ',).(,(,(,(,(,(,(,'++3.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:/;.9,E 1 7 ;88888880Ǖ 1 9<99898990؟~ 1 9<9;7/7;90Ӝ 1 9<8=ʈfkBɉf=80Ӝ 1 9<83߸߷380Ӝ 1 9<5ƀ\ƀ\50Ӝ 1 9<9GU$ŵT#G90Ӝ 1 9<958`38590Ӝ 1 8>:;:3:;:1٠ 78ۮ<99999990Ҝ 1;;;;;;;;,Җx  ( @  L DHEEEEEEEEEEEEEEEEEEEEEEEEEEFDE  "&""""""""""""""""""""""""""#"  Ӝ؞ԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜԜ֝ԜТ ̙ Қ~ל~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~՛~Ӛ~Ћs  "%""""""""""""""""""""""""""#" L EIFFFFGFFFFFFFFFFFFFFFFFFFFFGEE juQ!CEEEEEEEEEEEEEEFDE J %|1 """"""""""""""#" p  4ףӛԜԜԜԜԜԜԜԜԜԜԜԜԜԜ֝ԜТ e  , ! K֡Ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~ӛ~՛~Ӛ~Ћs s/)R1 """"""""""""""#" R"DFFFFFFFFFFFFFFGEE    ( @ ;x7777777777777777777777777777;x7=z@=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z=z?}->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->-XIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXI|NOUVrAC^_l9:deh45ghh34fgj67b\i@a+//////////////////o<=\\bc}PPghzKLjjxHIjkxIJhiyIIbf}PQabRSef{MNiixIJjkxHIjjzKLeaYko=>[\cd}OPhhyJKjkwGHklxHIijQLk@[VHXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXIXI~PQabRSef{MMiixIJjkxHIjkyJK^_ttp>?[\ab~PQef{LMhhyJKhiyKLggTNf;Y<+>->->->->->->->->->->->->->->->->->-{MN`aUUab~PQdd|MNee{MNde}OP^]`lsBC_`bbVWdeRSff~QRfgQRefQP_gzKL|MNq?@UVl9:YZi56\\i45[\k67YRf=^$''''''''''''''''''  ( @ 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888++++++++++++++.33.++++++++++++++İܹѢѢݸİԾҽ¼ɰ]]зϸҺԻи&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&  ( @                ~v`vݷ  jTfL$GwV~xp  S3U~oKqC*Ž  @-?VOrr:*ݞĽ  SNs<7Ľ  B7ǯ|mX[  ʓ߿tjlh                   ( @ &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88888888888888888888888888888888::::::::::::::::::::::::::::::::8888888888888888888888888888888888888888888888888888888888888888++++++++++++++++++++++++++++++++PNG  IHDR<<:r pHYs  6iCCPPhotoshop ICC profilexڭJP@ϋP+qpx((`Ƥ-E!֤Ji^^~[wQpP@q!ruaakn:|9 S n$+yӮ; |* Ln *@B0~A:i@<^/@) ()A|f|03}0utjI:RgS-eI<e:dr?&.bn:rjY{3ޏXz,ZA8T*xoazR+ـ뢭V/OZOb:*iTXtXML:com.adobe.xmp Adobe Photoshop CC 2015 (Windows) 2021-07-22T11:11:30-03:00 2021-08-27T10:12-03:00 2021-08-27T10:12-03:00 image/png 3 Adobe RGB (1998) xmp.iid:1025591a-6d33-a24e-9a7e-b2bce9914e8c adobe:docid:photoshop:57879685-0738-11ec-912b-ec664d24e2b8 xmp.did:3230255f-d368-744a-ba5b-e8cf07476b84 created xmp.iid:3230255f-d368-744a-ba5b-e8cf07476b84 2021-07-22T11:11:30-03:00 Adobe Photoshop CC 2015 (Windows) saved xmp.iid:1025591a-6d33-a24e-9a7e-b2bce9914e8c 2021-08-27T10:12-03:00 Adobe Photoshop CC 2015 (Windows) / 1 720000/10000 720000/10000 2 65535 60 60 7\ cHRMz%RX:oZRIDATx[k\U9zuUW<` H!3 P`(G@T"*tqt|,pFˆ#K!+Aq QHI;z{{~4$Htp֪?U;gۻiӦMx}0Uʯ#ezʖJ"eE_iDb H@ 5FDOZg*5V''Sڒ6a3TQl0De*8]OgC<1`IJaEI-$G^vu홰_bhE6m*MZ9]%_Eݼ&mNAC!iYX5 P Iviwa ̉)?]{ocJ)Lfua[Կ!Ц Y"%"H@A! ysh% x5U4]c E|~,3MJ<^ˆG6D + M@O,ث̘Ѫ`7@O?P.!Z0;cqWPHE}f zgoÈ{͙(`8%2FCy/57@ti[ֿ즒9Jv[C "*lUF^c9a߿#CFj4uũǤCj> 9eX"H#qGg54:W'c'\O;Q0ŢQz.A.;&!&Te*9h'Vŧ˗$RX<Ө x]ܪ ~㱺S6Eq݉p'+KPuI;"'kK2}`q"xIJףb{10@O[_jQU "hA4O*Ķ$!W(1P5 hZZE۔:r7y4w62h5W `0Ej,r;wUO4O;.収;*MC5+o(HKu:l.rCTO(`nxM7~^w7?٠V.=fY4Iy=ƽQ"ȱIꝦcX8ӍQ8(fh%MH/;@6zu'G+idF4i&슥IֹWnS>Ih|VUST1fXz.5]/;#;>eEF*wNv e_q@ 0FWNl*T02}haŠ]ft-E Xogxf&AkОUբ+hR116͹4"P.1 PhӀX_ׄ?tt{ZL)`]f*E[9=.tYڍ.MPy Ixʭ?R`b~^eyДi݆?zG%&`;qQ-;ė=Ҥ9H~a`oP$'r~΃uzɜz 5٥}U1CK׿X8vh =qig S#W=V/C) ;5ѷ6ç/LҶʨE'  }.t5O_Y{ #'}g\t~ l]^y]]t7TAZE;>Z0?^eN.9umSnWx/r^6ȒB'8Ne(18GˀQlxUG&t)OU (ҳ[w/J687x_>%~# @pB~gY;ࡾ%rVehâ}tEN̆&Z(7mÐC. s愣FH`)+"2Y5A-idA*OetglO T(w`6MM7 \e9k"L0`hRQt`(l.U`ľ1НJyD:$?㬑"ȸpiʽӛ9xStD&[6*BL0^2e6,ueA@B0J^0K$5#i V^[200hU|B$6Mq'` Hhfuh@숓2#E2+LB`]9%#ipe32&ӦH8jLԦIM("}e{CЖSb==~hKضeY P_=)1Y-+;TV5],vжc*&6 KV@}c5VNJ R?\-,'`B7IƲ{;u2o~gq2v ȧ=T9u֡+>4z3:ЕVʨ+2z] H)tįnhKڻ|ު]&Щ"#= e)2_;!  hUS[YڔюdظЙ&P`}G)N,m/Ε1퓽tgL[bЕQjv}$S3WXӴ}hk <+(\ 4<+D9[p i](dr䂜{!~rݣNH\p]Pfs 0`q[աMߐCoW[V֌/P12 D4fXmXtD"\yaV5"D lF˂!}9\Т[TqUqa@)$8EVEө@|\O|@d„j˒7TK#l4@5pRe93pθn"Zui vFZirHuS|QI6Ʊ"'Uv&t X=M?[F-M)CV(3CpYmQ*L0JN۩hFoFZ(8tV[.bwX‡G#o,HMZ&|ߞz5r ȸy64IAusZ,k92>Akl'"@@e׫jս&mI–#Ӵ\F5b0)L@bwd2 ;@-_NLyqV7hCׅWr]D#vk'G x)~x6ɞ x2DN ([WxpcP7qD(ļ3Cd[Nhߐ<s9WIk?}=;di*Dr r=i둗$32ƨl^k~i{(OBh}>W6ǫYJ0Twşa75ξf  bTu|QIENDB`  ( @   $""""""""""""""""$"=7*)(+(*(*(*(*(*(*(*(*(*(*(*(*(*(*(*(*(+*)7="ݛ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ڝ ݛ ؘGڑږܗۖۖۖۖۖۖۖۖۖۖۖۖۖۖۖۖܗږڑؘGל ܘޙ՗$՗$ޙܘל ԔޛޛԔܢܢߟߟ$tt$+ n n+YYݕ-э,WWэ,ݕ-  ԐޗӎE-H&&-HӎEޗԐ   wԔ#ܘY.%.%ܘYԔ#w nٛ(ٛ(ni00i "$Yڑ ڑ $Y" #&&b--&b&# ,&ܘeߝ&&ߝܘe,& W !Wv !   v#||,-. )/||(!#""""""""""""""#! Ԫ(')''())))))))('')'=|0$,-,,#7NECCCCEN#7,,,-,'(xߚߚx  (+&q&q(+#G???  ( @ P`P`hx@p @x(H0P(Hp @x(P0X0`0h@phx0X0`8h8pH@ȸx8p@HPPXtxt`HPP@Pxt|pxHH8pHXh計Ș̘РȘĔxtPx X(Hhx̘ببببРĘxPhPhبܬبРĔpبРܬؤȘtȸఐب̘x̴Рب̘tఐܬؤ̘p켬촐ܬԠĔpȸ谐̘ببԠȘl찘بt䬔Դذذ?PNG  IHDR szz pHYs+tIME%nةIDATX[UUK,BhATD>QP1v3,z 'ĘyȂb "d=:c̜^e),1bkޖᙺ0F@`sw= Q vs y9EE(L Hy xfVQHr.U" $eiޭ#.9>ϳ,T3&Y(igc}W1'P C6vυRL V6/Xdձ 8> e lor;l`yͳ|4\;y׬HG`)5"n A]63/?f}ih56{CJ؇X139b{o¤Z;217KIOXZ/5!>ф?FjL5 mM <P:n{̴y` 0eؠ'/.# J-"*F#jJvka^^ ͘bBA;7::+dZ憌珯ua \Uy37jBIENDB`PNG  IHDR szz pHYs+tIME W=IDATXOheƟM.]TEE x2QQVZQtg6DZ HۃJfwf\TăQPQJh IMY5o}|}7& inWկȴUl6~^#rY+QpsQIO$}~mza3;nI$UILLL^K:E3sZ!ZIΓ|\.6@U@򤙽IA$ߓ4EMΧfιy3z}[u,0 xI+i]R,244tq||SSSV(F3{u $p@[ 8Xtݝ||ߟ(G$͚ fXT! ))u8JHR͒:mD7I. RVo I۝j9 9l N:- }n2 .nWp[g«a}o?kIENDB`  ( @ #.#.bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iii٦! إiii iiilXjXeee'''%%%%%%%%%%%%%%%777iii !!!kkk22kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaa  6  hf( @   #%  iot5Qc=) Hjp^PJ=UhGj<( Hcuaun)m8X:)mgtK:l= iU  +8DE 2'Pͥԭyw/uIAFH 2'P̤Ϧ{w<rwIFHJ 2'PˣȝߺѨėŗɜyx--|KJKL2'Pˣ޼ݷҨĚپÕtvxvug`Q&2'Pˤཌǝͣy|cD}  '2'Pˣ׫ΧɚʏzfYoH2'Pˤ޴Ǜʛɮӟ͘2'P˥ڭ̠ϡԱfYUR 2'P˥ܰѩРxF\VR 2'P˦ϤҡuI_WQ 2'NͩرvJfZS nS<׶ͥˢʣʣˤʣʣˤʣˤʣʣʣˤʣʣˢˢΪa{ӻ Ը6׺?ڽ?۾??×?˟?̠?͠?̠?͠?̠?̠?̟?ʠ?Ĝ?ݿ?ܽ?ڼ?غ?չ!(  @ 1=",>GHQ^h'4z 0EQ;Vf[zA'dG^j siXJD: EA9 ED> EHD "%$ }ّ&e9HP3CJ 2?F 4>A W][2(ReO1eN0eN0eN0fN0um_ymED>gP1eN0eO1-$DeO1xleO1eN1xlȶeN1eN1֮xlfP1eN1ȚʦxyzwRG5wuv eN1ܸˤˤݸÿ|%2VeN1ͥͥٹƑBeN1ҩҩ`HLeN1ԭԭeN0eO1eO1ѵ.ӱղִ۸༌ཌཌཌ་޻״ֲԱӶ.?%!bp;|8 4 T sys_conexion BU XLSELPATHXP_SYSTEMDESCR SYS_CONEXION3 4CPasado a Form:V BUXIP XADAPTADORMENSAJE84CPasado a Form:V2 BUXIP XADAPTADORXIDXIPMENSAJE@4CPasado a Form:V3 BUXIPXRECURSO XADAPTADORXIDXIPXIDXDIRMENSAJEvalidarvalidar2validar3E0B4@2`2q19, NE `0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0DV0ONJXF 715947418/F] WINDOWS _0DV0ONJXP1458346147V WINDOWS _0DV0ONJXF1458346147 WINDOWS _1I60AZ8LI 848898703u WINDOWS _1I60BL7K2 848898893h[M@~ COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11 formulario clases.vcxformForm1;BorderStyle = 3 Height = 41 Width = 303 Desktop = .T. ShowWindow = 1 ShowInTaskBar = .F. DoCreate = .T. AutoCenter = .T. Caption = "Copiando..." ControlBox = .T. Closable = .T. ClipControls = .F. Icon = ("bmp\"+p_icono_sistema) TitleBar = 0 AlwaysOnTop = .T. BackColor = 255,255,255 Name = "Form1" bPROCEDURE Init PARAMETERS xmsg THIS.label1.CAPTION=xmsg THIS.label2.CAPTION=xmsg ENDPROC !Arial, 0, 9, 5, 15, 12, 32, 3, 0 OTop = 72 Left = 120 Height = 25 Width = 25 Interval = 10 Name = "Timer1" Form1Timer1timertimerForm1Label2labellabelForm1Label1labellabelFontBold = .F. FontSize = 8 Alignment = 2 BackStyle = 0 Caption = "Progreso" Height = 16 Left = 12 Top = 12 Width = 276 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "Label1" AutoSize = .T. FontBold = .F. FontSize = 8 Alignment = 0 BackStyle = 1 Caption = "Progreso" Height = 16 Left = 12 Top = 72 Width = 46 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "Label2" hPROCEDURE Timer this.Enabled=.f. IF THISform.label2.WIDTH>THISform.label1.WIDTH THEN IF THISform.label2.WIDTH>500 xAncho=500 ELSE xAncho=THISform.label2.WIDTH ENDIF THISform.label1.WIDTH=xAncho xCentro=(THISform.WIDTH / 2) + THISform.LEFT THISform.WIDTH=xAncho+20 THISform.LEFT = xCentro - (THISform.WIDTH / 2 ) ENDIF ENDPROC "%[jUT-%%UT rTTT TT U THISENABLEDTHISFORMLABEL2WIDTHLABEL1XANCHOXCENTROLEFTTimer011A2BA2])"N%U04TTUXMSGTHISLABEL1CAPTIONLABEL2Init01q113W)%pTV*| 42internet notepad.exeopenBTC]h1\MQ\ mostrar_txtQ\.dbfBU XTXTXTITULO SHELLEXECINTERNETXARCHP_LOCALMEMOTXT MOSTRAR_TXT$BrqQ2BA3 ( @JFIF    ! #'2*#%/%+;,/35888!*=A<6A2785 5$$5555555555555555555555555555555555555555555555)555 "#1!"AQa!A ?'EcY[hha*Rf=Y|[z<)^"T\tmp\CC]RCQF+CN : >COTC](\tmp\TCSessionNG( C%CCons Qcons!Q\tmp\!Q\tmp\C Suspendo?avpedidoTC %-1G~(clasesTCreporte_ventanaN T!PrevisualizacinF T"C T#COG($?(9,%.set filter to &xfilter  &<T'( |G~(clasesTCreporte_ventanaN T!PrevisualizacinF T"C T#COG($ (f)listados  recepcion#0aaaaa(+RCError: C+-, T'Qset filter to &xfilter  G(< B'U.OLDDATASESSIONIDXTIPOLOREFXREPORTXTMPFOWND XFORMULARIOXTIPOPEDCONSPDFORMNCFORMFCFORMNRFORMREFORMODEYFUNCGET_PATH XREG_TEMPCOMPTEST_TMPTEMPCOMPP_LOCALTMP_ASSEMBLIES XASSEMBLIESCREAR_TABLA_ASSEMBLIESITEMTEST_ASSODS DATASESSIONIDSETSSYS_MOSTRAR_SCREENCONSOLIDA_ASSEMBLIESVPEDIDONEWFILE_LOCAL_TMPCLASESCAPTIONXFILTERXRN RECEPCIONREPORTE_VENTANARELEASEXPAGINAS PAGETOTALIMPRIMIR_FORMULARIOLISTADOSOEXMENSAJEMESSAGEr231AAA4AAAB"ArrBQAAq!qQQAAvrbAr"rrqraABr1GIF89a#;ۥ'7ou *5BR6]:v_fe 41ooo!#,kpH hYFi.ʂsPYxEIQ~&i1x:iz|EdI uE nD Q pQ  QBCA;%kqR3}3   T% sCbienescodins T T T(% S S  :C    A%C    VTArtculo compuesto CC C C sin componentes !!!B-BUXMSGXCODXBULXATRXCLIXCANT_BULTOST_PESO T_VOLUMEN XCANTXBULT XPESOXBULT XVOLUXBULTBIENESCOD_INS COMPUESTOCONJUNTO CALC_ITEMCICLAR_COMPONENTESx3      T  T  T ,%C   @%C T TC TTC T <HT Error !!! Unidades por bulto de CC C = 0 m%S_%C %Cbultos Qbultos!%FG((codigo E%C T TCTTCTT T T JTC  HT Error !!! Unidades por bulto de CC C = 0 [%C MT TCTTC TT T T  +CVolumen NUV s/bulto Suspendo?a!%S IJTC  W iBU"XMSGXCODXBULXATRXCLIXCANT_BULTOST_PESO T_VOLUMENXCAN_BULXCAN_PESXCAN_VOLDATOS_X_CLIENTE MIN_BULTOBIENESBULTOSCOD_INSCLAVECODIGO CANTXBULT PESOXBULT VOLUXBULTVOLUMEN_CON_APILAMIENTOLARGOANCHOALTURABLARGOBANCHOBALTURAAPILEHAPILEPESO VOLXBULTOSYS_MOSTRAR_SCREEN%C %Cartxcli ]Qartxcli,%Cartxcliid%TT T Ba T T TB-U XCODXBULXATRXCLIXCAN_BULXCAN_PESXCAN_VOLARTXCLI CANTXBULT PESOXBULT VOLUXBULTH%C?- B A BU XCANTXBULT3   T  T  T T T T%Ctr04 Qtr04F G((tr04G EG %C4 TCO Ta+C+  X*%   P T-!H%I #+C+  EBC  T T TT  T  T  FH E%C4a4+C+ ! ]FC  T T TT  T  T  FH E %C4}7+C+ $  yDC  T T TT  T  T  FH E %C47+C+ $  DC  T T TT  T  T  FH  #:+C+ '   BC  T T TT  T  T  FH B-BUXMSGXCODXBULXCLIXATRXCANT_BULTOST_PESO T_VOLUMEN XCANTXBULT XPESOXBULT XVOLUXBULT T_BULTOS2T_PESO2 T_VOLUMEN2 XCANTXBULT2 XPESOXBULT2 XVOLUXBULT2TR04REGTR04OKCOD_INSBULATR CALC_ITEM COMPONENTECANTIDAD2/  3    T T %T   !T C@B TT  % TC 8T  T  ,TC 6 T ʚ; T ʚ; TTC6  TBCT "%TCantidad por bulto=0 !!! BUXMSGXCANXCAN_BULXLARGOXANCHOXALTURAXBLARGOXBANCHOXBALTURAXAPILEXHAPILEXBULTOSXCANTIDAD_PEDIDA_UNIDADESXVOLUMEN_BULTOXVOLUMEN_SI_NO_SE_APILAXPILASXBULTOS_NO_APILADOS XPILA_ALTURAXBULTOS_NO_APILADOS_ALTURAXVOLUMEN_PILASXVOLUMEN_BULTOS_NO_APILADOSXVOLUMEN_SI_SE_APILAXVOLUMEN_OPTIMO calc_itemdatos_x_clienteN min_bulto ciclar_componentes) volumen_con_apilamiento2cAaqABA31aaAs"!AqAAAArABBBBB2"1AaqAAAq4qA41bAqbaAAAA!rAABarAABrArAABrArAA!rAAAAAAqAA352b22BQA1 / JK .v]Ddn$*%ZllE_}DG+( Sys_DosCenBCUXTESTVALXHEAD XCOMILLAS XINICIALIZADO SYS_DOSCENDC_OBTENER_INLIST_EX1A1%kwmrpT}%T   %QTBA<CPreparando los datos C6'TC p_numlargosbL G+(listadosG+(dey_funcG+( Dey_FiltersT PT NT   TFQ%W T % T  T% T Td< "\inicialTCFTCqh1\tmp\NCC(NN& Q+Q\tmp\Gru_CodT C^h1\tmp\ !N "C#D$C%C<& ""Q,Q\tmp\ &Cpbt_CodT'C`h1\tmp\'$C#D"C(C)C*C+C,C<-C.D/N0N1N2N3N4N5N6L7L8L9D!N :DQ Q\tmp\';T<Ch1\tmp\<=N>C ?C<@C(ACBNCCDC(ENFNGNHNINJNKNLNMNNNONPC QCxRCxSC2TLULVNWNXCYC ZC& C=Z>[Q.Q\tmp\<\ "Cli_Full"T]CCccclie^ (]Q]_ i1ccClie_C`N TaCCccclie^TbCCClientes^ (bQbc%CProvinc Qd\provincTe.t. Tf Tg Th'i(C6 TfCfj/CObteniendo datos empresa CZkFl%mnCm U Em d #)Cio CpC Agrupandok Cj TqTr----- Ts Tt Tu Tv Tw Tx Ty Tz{=|=J({| T}a T~- T T T- T- T T T T T T T T T T TFl T ~] TFG-(G((CODIGOG-l(&CAnalizando clientes...kFl%mnCm Em  #)1CProcesando registros... T-+C+ CnCX na6  C T- C%~ %g >vt Tt Tv TCF E%C4 A Tgg!>g r Tv Tt Tg T~-SELECT &xOldSele  T}- T- CF\ECgZl%C4 TCl&TCCl Cl6%Cl ],TCC, 6Cl%C .TCC, 6CCf0>=g>l?l@lAlClBlElPlQRACl lSlFGHIJLMTUXlYC]ZC Rk>FFGGHHJJMMTT UU  T T T T T TFlTqqH C%} %g>vtR %CUniendo datos finalesk%bF\ T %F\T G %XoTabla_CPBT_HeadQX Tabla_cpbtQ !!% Tabla_CPBT2%H0o Tabla_cpbtQ# Tabla_CPBT2FG((codageF\G-(C>DTCo Tabla_GrupoQX Tabla_ClienteQ =X Tabla_CPBT2Q >$-Q-Q-Q-Q Tabla_unionF-(\tmp\rpt_ve_cta_cte_completoQ)CAgrupacin Final de datosk3Q\tmp\rpt_ve_cta_cte_completoTTC XF+C+ %M >a%I H >aH%> >a%C X H >aH T T>H% H >aH%C X& H >aHQF\-(\tmp\rpt_ve_cta_cte_clientesQF*(\tmp\rpt_ve_cta_cte_grupoQF;)(\tmp\rpt_ve_cta_cte_cpbtQF&.(\tmp\rpt_ve_cta_cte_cpbt_headQFlG(G!(CClientesCCCClieCClientes^CCCClie^b.*].*a.*\tmp\'.*\tmp\ .*\tmp\.*\tmp\<.*BUXDCONP_DOSP_CODEMPXDVENOESTADO SET_AND_SHOW XNUMLARGOS P_NUMLARGOSLISTADOSDEY_FUNC DEY_FILTERSXDPRNXDPEDXDMON XPROX_EMP2XDSEPXTABXTITMAXARRARRTABLASP_LOCAL XTEMP_FILTRONEWFILE_LOCAL_TMP XTABLA_SEPNEWFILEGRU_IDGRU_CODGRU_DESGRU_SALGRU_CED TABLA_GRUPOXTABLA_CPBT_HEADCPBT_IDCPBT_CODCPBT_FECCPBT_CLI CPBT_ORDERTABLA_CPBT_HEAD XTABLA_CPBTCPBT_NUMCPBT_CTACPBT_LISCPBT_SUCCPBT_NOTCPBT_BULCPBT_VENCPBT_CNDCPBT_DSPCPBT_IMPCPBT_PARCPBT_SALCPBT_ADLCPBT_APLCPBT_HEACPBT_VALCPBT_RAYCPBT_CANCPBT_EST TABLA_CPBT XTABLA_CLICLI_IDCLI_CODCLI_NOMCLI_FANCLI_TELCLI_ZONCLI_VENCLI_DVECLI_CATCLI_ANTCLI_TOTCLI_VATCLI_ANT1CLI_TOT1CLI_VAT1CLI_ANT2CLI_TOT2CLI_VAT2CLI_XAPLCLI_INSCLI_DIRCLI_DIR2CLI_EMLCLI_CPBCLI_VALCLI_PODCLI_POPCLI_PROCLI_IDUCLI_TIPCLI_FULL TABLA_CLIENTE XTABLA_VCC CHK_OPENEDCCCLIE_CEMP XTABLA_VCC2 XTABLA_VCL CLIENTES_CP_SYSTEMFILTRO XPROX_EMPXTGRU_IDXCPBT_IDNITPREPARA_EMPRESAAVANCECLIENTESXDCLIXHCLI GET_CCCLIE GET_CLIENTESACCXSEPOLD XCED_X_CLI XCED_X_SEP XCED_X_LIS XSAL_X_SEP XSAL_X_LISXTOT_FCXTOT_RCXTOT_OTXTOT_NCXTOT_NDINICIAL XTGRU_NEW XTGRU_COD XTGRU_DES XCLI_HASCPBT XCLI_HASVALXCLI_ANT XCLI_ACCCLI XCLI_VALORES XCLI_ANT1 XCLI_ACCCLI1 XCLI_VALORES1 XCLI_ANT2 XCLI_ACCCLI2 XCLI_VALORES2LINANCHOXTOTCLIPROVINCCODIGO PROVINCIASUB_SET_AND_SHOWXCURCLICOD_CLI SUB_AVANCEOK SEPARACIONINXOLDSELECUENTA_CORRIENTEXCLIDIR DOMICILIOXCLIDIR2CIUDADCOD_ZIPDESCRNOMBREFANTASIAPHONOVENDEDORZONACAT INSCRIPCIOPHO2EMAILPRO_LINKSUB_HIDEXDNOCPBTFOR XDNOCPBTCEROXDTIPTTBTTH TABLA_CPBT2AGENTECODAGEALL XFULLFINALTTGTTCGRU_SHOWCLI_SHOW GRU_SHOWTO CLI_SHOWTO TABLA_UNION TABLA_FINALXOLDGRUXOLDCLI CHK_CLOSED4F+CClientes+ FHA{ ^ C { CHUXEMPCLIENTESCCCLIEXDTIP GET_POR_FECHAGET_POR_COMPROBANTE7.T.T. CCod_CliCliTCFSELECT cli.*, clc.cod_cli as referencia FROM clientes cli LEFT OUTER JOIN Clientes_C ClC ON cli.cod_cli==ClC.cod_cli WHERE &xFiltroCli INTO TABLE (xTMPT) readwrite C QF FQ.*U XFILTROCLIFIL_GET_CLI_FILTERXDCLIXTMPTNEWFILE_LOCAL_TMPFOR REFERENCIA TMP_CLI_T CLIENTES_Ct%C3G((PORFECCG( mG((porfecp G( %N%CCG(P TC.and.causa#'P'SET FILTER TO &xfilt % Nm%CC)G(r iTC.and.causa#'r'SET FILTER TO &xfilt U XDTPCPORFECCVENCXDVENPORFECPCANCELXDPSNCAUSAXFILTXDREM CFG EG +C+  %i> ^JF _J >FHU FILTRO_POR_FECHACCCLIECLIENTESCOD_CLIDIASXOBJCCCLIE_CEMPXEMP CFG EG +C+  %i> ^JF _J >FHCccclie Cccclie U FILTRO_POR_COMPROBANTECCCLIECLIENTESCOD_CLIDIASXOBJCCCLIE_CEMPXEMP CHK_CLOSED CHK_OPENED0 T T T T T T T- T T T -F H  C   C % C T T TF BUSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2ENCABEZO XCED_X_CLI XCLI_VALORESXMOVSCCCLIEXDTIP POR_FECHAPOR_COMPROBANTEXDCHEVALORES XCLI_ACCCLI XCLI_ACCCLI1 XCLI_ACCCLI2%I6BCPZA6CCZ sBCPZA6CC ZCCZC ZC AB6U XDTIPCOD_CLICAUSAFECHACOMPROBCUOTAFECREFREFCAUCUO CG EG T T T T T T T )+C+   [)TC P C 6%)TC P C 6 I)TC P C 6 CH TT sdfsdfsds Ta4+C+      !% CZ% >%h% d T T T!% CZMH$ VTFC rTRE R9%C XTAJ 5TRC c\TNC dTND LTAS ATAJ ITIT P TPD 2$TXX T a >!" #$%CC@z 999_C&/CC&@z 999_6'C(@z 99_)C*@z 999_+,-./0% RC1 H>22 T3(%0  4S T33C5 ;%C6% cd,T33C7C 86 T33C6 7T33 C9%7%CRUBROFAC QrubrofacF:G((codigo E7FT3C:< 3Y>=3>C?99,999_@ABCCC AC6T CZ T T-)TC P C 6 C C ED CH%  TF>BUGFILTRO_POR_FECHACLIENTESCOD_CLIXMOVSSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2FECHAXDFECCAUSA FN_IMPORTEIMPORTECCCLIEEMP ACUMULADORESACCIMPXIDINICIALXHFECCOMPROBCUOTACPBT_IMPCPBT_SALIN TABLA_CPBTXCLI_ANT XCLI_ANT1 XCLI_ANT2XC XCLI_HASCPBTCPBT_CLICPBT_FECCPBT_CODCPBT_NUMCPBT_CTAMAXCUOCPBT_LISLISTACPBT_SUCSUCCPBT_ADLADELANTOCPBT_CANCANCELCPBT_IDXCPBT_IDREFCPBT_APLTEMP1TARJETADES_CLIECOMENTARRFCFN_NCNDCONDRUBROFACCODIGODESCRCPBT_NOTCPBT_BULBULTOSCPBT_VENVENCCPBT_ESTFECESTACT_TOTMOTIVOTEMPF%CG((porfacc%N%BArG( G( G(C   %BAT  ,occclie  1 QFQ W& CZC CZ CZAZ6 & CPZA6CCZCCZCZC AB6C / / #& CZT TTPge01;G((PORFACPG((PORFACP G(  TC%S%CCESION F QcesionFG((comprob%  % AAAeG(!  G(! FG-( %CDTC!eof('CESION').and.!eof('CESION')6SET FILT TO &xfilt dTC$cancel={} .and. !eof('CESION')*#.and.cancel={} .and. !eof('CESION')6SET FILT TO &xfilt %"N%CCG(P TC.and.causa#'P'SET FILT TO &xfilt %#N%CCZG(r TC.and.causa#'r'SET FILT TO &xfilt U$CCCLIEXDTPCPORFACCXDANAXHFECFECHAVENCXDVENFECREFXDFECXXXCLICLIENTESCOD_CLI XTABLA_VCC2REFCAUCUOCOMPROBCAUSACUOTATESTPORFACPCANCELXCOD_CLIXTIPOXDTIPXPENDREPAIRGE01XFILTXDCEDCESIONXDBANBANCOXDPSNXDREM CG EG T T T T T T T  T  T a T a T - T+C+  f,% N %1%C 9  C CH'+C+  C  C CH. %  C CH.  T -% *T Ca-6 C C CCH%C%BAFQCccclie QBU!FILTRO_POR_COMPROBANTECLIENTESCOD_CLIXMOVSSALANTSALANT1SALANT2ACCCLIACCCLI1ACCCLI2XSSALINIINICXCEDIDOOLDXDFECXDANAXDTISES_CABEZA_GRUPOFECHA SUMAR_SALSUMARCALIFIMP_MOVACT_TOTCCCLIECAUSA FN_IMPORTEIMPORTEMOTIVOXDTPC XTABLA_VCC CHK_CLOSED T-%C Ta% a%S ] Ta v T- TFTC T  F H>  CZF ( T- T-%PVTCHk VTFC rTRE R%C XTAJ TRC c)TNC dLTND LoTAS ATAJ ITIT PTPD 2TXX Ta > CC@z 999_C/CC@z 999_6C @z 99_!C"@z 999_# T%(%0  &S T%%C' %C(%cdw,T%%C)C*6 T%%C( T%% C+%)K%CRUBROFAC QrubrofacF,G((codigo E)FT%C,. % T/aY>0%1C299,999_345CC6 466 T7 T89listados87; T<%CC T= T>?=>T<=8 Z T<81T@CCP A6TBCC>C8D<E@FGHIB T-BUJ XTCPBT_RAYES_CABEZA_GRUPOPRIMEROINICIALXDRAYINICXSCCCLIEXORDERID GET_ORDERIDXCPBT_IDTABLA_CPBT_HEADCPBT_IDCPBT_CODCOD_CLICOMPROBCAUSACUOTACPBT_CLI CPBT_ORDER FN_IMPORTEIMPORTEXC XCLI_HASCPBT TABLA_CPBTCLIENTESCPBT_FECFECHACPBT_NUMCPBT_CTAMAXCUOCPBT_LISLISTACPBT_SUCSUCCPBT_RAYINTEMP1TARJETADES_CLIECOMENTARRFCFN_NCNDCONDRUBROFACCODIGODESCR XHAS_CPBTCPBT_NOTCPBT_BULBULTOSCPBT_VENVENCCPBT_ESTFECESTDSPCNDCND_DSPLISTADOSOLDXTDSPAAABBBDESPLAZ XTIMPORTEADELANTOXTHEADCPBT_CNDCPBT_DSPCPBT_IMPCPBT_PARCPBT_SALACCCLICPBT_HEA0%CCMgCCMg ; T- P Ta Ta TFG((chequeGGF ECGFG T -%C+ +C+   T a%%CM F G((numero E +C+   $%   T -!HF% % T a T-T Ta >C @z 999,999,999_a  T -H TBUATRCANDOCSINIVALSALCHVEN_OPERCHEQUECLIENTESCOD_CLIXDCHEXTHEADOKCUENTACOM_OPERNUMERODES_VAL DIF_VALORCAJ_PRO XCLI_HASVAL TABLA_CPBTCPBT_CLICPBT_NUMCPBT_FECCPBT_NOTCPBT_IMPCPBT_SALCPBT_VALCPBT_HEACPBT_IDXCPBT_IDIN XCLI_VALORESG+(dey_funcCClientesCSucursalCAgenteCIDX04CCom_OperCVen_OperCVentasCCCClieCClientesNomcliCSucursalidCAgentecodage%CIDX04idx04\CCom_OperCVen_OperCccclieCventasVen_Fac%Ccatcli QZCatcli%Czonas QYzonas%Crubrofac QrubrofacBUDEY_FUNC CHK_CLOSED CHK_OPENEDP_COMMONCATCLIZONASRUBROFACgG+( Dey_FiltersT.t. #TC-TCvendedor 2TC zonaxdzonxhzon 1TC catxdcatxhcat +TClistaxdlis=%C7T .and. CHL _ /T .and. (pais # 1 and pais # 0) .T .and. (pais = 0 OR pais = 1) 2&T .and. (pais = xdpai)F % CX \G((codcliG( \ TH T""  % Tstr(val(vendedor)) Tvendedor 3T str(zona) [Tstr(cat) Tstr(a1) Tstr(a2) Tstr(a3) Tstr(a4)GIH# ~%W#T+str(val(cod_cli)) zT+cod_cli T+nombre #%*T+ciudad+str(val(cod_cli))  T+ciudad+cod_cli/INDEX ON &xxx TO (xtemp_filtro) FOR &filtro GI BU DEY_FILTERSFILTROFIL_GET_CLI_FILTERXDCLIXHCLIP_CLINUMFIL_GET_AGE_FILTERXDAGEXHAGEP_AGENUMFIL_GET_NUM_FILTERXDZONXHZONXDCATXHCATFIL_GET_EQN_FILTERXDLISXDFORXDPAICLIENTESCODCLICOD_CLIXXXXDSEPXDORDC%PTCTC%TCTCTC)T  CP C6% )T  CP C6 8)T  CP C6BUCAUSA XSAL_X_SEP FN_IMPORTEIMPORTE XSAL_X_LISCALIF XCED_X_CLI XCED_X_SEP XCED_X_LISACCCLICCCLIEEMPACCCLI1ACCCLI2p4H e VET RjT c%C<TC T=C= dJ%C<!TC FT=C= 2eTBUXCAUSAXIMPORTEXMOTIVOXTOT_FCXTOT_RCXTOT_NCXTOT_NDXTOT_OT)TCP C6%h)TCP C6 )TCP C6BUSALANTCAUSA FN_IMPORTEIMPORTECCCLIEEMPSALANT1SALANT2)TCP C6%h)TCP C6 )TCP C6)TCP C6)T  CP C6% {)T  CP C6)T  CP C6)T  CP C6BUACCCLICAUSA FN_IMPORTEIMPORTECCCLIEEMPACCCLI1ACCCLI2 XSAL_X_SEP XSAL_X_LISXCEDIDO XCED_X_CLI XCED_X_SEP XCED_X_LIStD%VC CZCZ fTCa-6BaB-UCAUSAREFCAUCUOCOMPROBCUOTAXCEDIDOCALIF_ 4FG((ven_fac EF&BCCventas+ 6UXCAUSAXCOMPROBVENTASVEN_FACCCCLIEDESC_INSCOMENTAR,4"BCUXIMPORTEFN_CALCXDMONMONEDACOEFICFECHAMOTIVOkHd r%nTNoGroupT Sin Agrupar Ta %,T VENDEDOR : [C]   T a T T Ta T %C ZJTZONA : [CC Z] C  C  Desconocida6 T aTCC Z T TaTC Z x%C ZeOT CATEGORIA : C  < CC  Desconocida6 T a T T TaTC Z 3%CZ LTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ %CZLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ %CZLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZ d%CZQLTCf : [CCZ] C C  Desconocida6 T aTCCZ T TaTCZUXDSEPXTGRU_ID XTGRU_COD XTGRU_DES XTGRU_NEWXSEPOLDVENDEDORYYYAGENTENOMBREOKZONAARRCATI_TABA1XTITA2A3A4)4%-FG(G!(HBx  G(GEST\data\CCZ C GES T  G(GEST\data\CCZ C GES T 2x G(GEST\data\CCZ C GES T C %F QF Q  FQF QFG!(G((nomcli CFG-( BU XPROX_EMPCLIENTESGESP_SERVERP_SYSTEMP_CODEMPSETS XPROX_EMP2P_DOS USE_FILESCCCLIECCCLIE_C XTABLA_VCC CLIENTES_C XTABLA_VCLNOMCLI CREA_FILTROVENDEDORAGENTE:'ve_rpt_Cuentas_CorrientesJ BUOFORMVE_RPT_CUENTAS_CORRIENTESK)CUXDFECXHFECXDCLIXHCLIXDTPCXDTIPXMONEDAEJECUTAR_REPORTE3      T C%CxdfecbD{T %CxhfecbDT %CxdclibCT %CxhclibCT %CxdtipbN7T %CxdtpcbNfT %CxmonedabNT T T  T  T a T aH ( T -T C  b ]   T a   c%c T - B U XTIPO_REPORTEXDFECXHFECXDCLIXHCLIXDTIPXDTPCXMONEDAXDPSNXDREM XDNOCPBTCEROOFORM XNO_RELEASEXRETURN OBTENER_FORMXDMONMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR9 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxRTCexportaciones_crystal Imp_exp.vcxve_rpt_cuentas_corrientesT\xchgTT!TTT T     C BUXTABLAXDMONOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDTPCXDTIPXDCONP_DOSP_CODEMP EXP_TABLA Get_ccClie Get_ClientesFiltro_Por_FechaM! Get_Por_Fecha#Get_Por_Comprobante$cuenta_corrienteW% Get_OrderIDR' por_fechal(Filtro_Por_Comprobante2por_comprobante9imp_mov=valores4G Use_Files K Crea_FiltromM acumuladoresSact_totU sumar_salaWsumarRXes_cabeza_grupohZfn_ncnd[ fn_importe[ Separacion-\Prepara_Empresa+b Obtener_Forme Ejecutar_SqlyeEjecutar_Reportef exportar_1i@Q1Ar"!QA6AA1q"BAAA!qA1A1Q1Au$sQAA!qrAsaAcrQA1AqQAAAuQ!aQAQAQBrAA1AASSqAqaA1A1Arq rA2r1AAAB1QAAABAAAAQAAAsArArArAraaU1Q1B2qrq12AA4s qrA4DABAAABAAA3saaBAqQrAA3raaBAqQrAA114r12BArA21b2A3caSbABAaABAAAAAAQAAAAAAAAj A1QQ1AAA2AAqrABBABA4qDBAAAqrQBCBCAqaa!QAAsqBAaAaABBAaAACAaAA3eaSDArAAEA4AEBAAABABqAA11A3AArqQrACeDAAAQAAAAAAAAi 1QQ1AAA2AAqrA A6B2 Auba!aatAAAAAAqAABAAAA2!RQ1!QQ11QQQ1!ArAAAB3Q1!RA1A1aAr11QA1a1Q1A1A1A1AAb11A11AAaBA2Aaa1aaaAAbAB2AAAqAAqAAA2aAA2aAAB3DqAq3qqa4q!312AA11A1QA1QA2QA1QA1QA1QAA3q1qaaAR1QQQA6rAqrAqAras2qr321AAAAAAA1Q11A1A3!"AB1:011+:1s3C735ZO67{a89u:==>>OPPXMwX/b"Cbsszbz}:}҄2 G!w`@m\G[t|Gߛ0K17NY4;}W,p%idT}JsCCW;s"Imputar a otros comprobantesCW*s"Visualizar comprobantec1QDO _6a112f173 IN LOCFILE("2000\TE_PAGO" ,"MPX;MPR|FXP;PRG" ,"WHERE is TE_PAGO?")c1QDO _6a112f174 IN LOCFILE("2000\TE_PAGO" ,"MPX;MPR|FXP;PRG" ,"WHERE is TE_PAGO?")tU MENEMERGEACCESO0TCZCZKo pendientesCZCZctactege02  U XID PENDIENTESCOD_PROCOMPROBCAUSACUOTAOPCTACTECPBT_IMPGE02XMONEDAXTIPO0TCZCZKo pendientesCZCZctactege02U XID PENDIENTESCOD_PROCOMPROBCAUSACUOTAOPCTACTECPBT_VISGE02 _6a112f173 _6a112f174A33?qr1q1 =4UN0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0DV0LGL44 715935767/F] WINDOWS _0DV0LGL451457023665  WINDOWS _0DV0LGL461429044425 \k WINDOWS _0DV0LGL441429044591  7 , WINDOWS _0DV0MM45O1429044591x 6  WINDOWS _6FE0XHUB31429044591   COMMENT RESERVED k AVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formForm1Height = 650 Width = 1020 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Titulo" Icon = ("bmp\"+p_icono_sistema) WindowType = 1 archivo = .F. Name = "Form1" PROCEDURE Resize thisform.command1.left= (thisform.width/2) - thisform.command1.Width - 10 thisform.command2.left= (thisform.width/2) + 10 thisform.command1.top= Thisform.Height- thisform.command1.Height - 5 thisform.command2.top= thisform.command1.top Thisform.edit1.Width = thisform.Width - (Thisform.edit1.left * 2) Thisform.edit1.height = thisform.command2.top - Thisform.edit1.top * 2 ENDPROC PROCEDURE Init lparameters xcontrolsource, xtitulo2, xarchivo if empty(xcontrolsource) thisform.edit1.controlsource = "MEMO" else thisform.edit1.controlsource = xcontrolsource endif if empty(xtitulo2) then this.caption=xtitulo else this.caption=xtitulo2 endif thisform.archivo=evl(xarchivo,"") thisform.resize ENDPROC "h%}UinternetU SHELLEXECINTERNETTHISFORMARCHIVOClick012H)PROCEDURE Click * Suspend con Debug _screen.visible=.t. debug susp do ShellExec ; in internet ; with "notepad.exe","print",xtxt thisform.release ENDPROC editboxEdit1 commandbutton commandbuttonForm1Form1Command1Form1Command2 commandbuttonCommand3{Top = 612 Left = 972 Height = 35 Width = 38 Anchor = 12 Picture = bmp\edit_azul.ico Caption = "" Name = "Command3" Form1 commandbutton clases.vcx formulario archivo editboxFontName = "Courier New" FontSize = 9 Anchor = 15 Height = 609 Left = 1 TabIndex = 2 Top = 3 Width = 1018 Name = "Edit1"  commandbutton commandbuttonTop = 616 Left = 468 Height = 27 Width = 84 FontBold = .T. Anchor = 260 Caption = "Aceptar" TabIndex = 1 Name = "Command1" ,PROCEDURE Click thisform.release ENDPROC hArial, 0, 9, 5, 15, 12, 32, 3, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 SPROCEDURE Click do shellexec; in internet; with thisform.archivo ENDPROC Top = 616 Left = 888 Height = 27 Width = 84 FontBold = .T. Cancel = .T. Caption = "Imprimir" Enabled = .F. TabIndex = 1 Visible = .F. Name = "Command2" C"**,%UU T9aL3internet notepad.exeprint UVISIBLE SHELLEXECINTERNETXTXTTHISFORMRELEASEClick01AA41)*"]^%XmgU UTHISFORMRELEASEClick011!)6"n%zU)T  T  $TT%T'TUTHISFORMCOMMAND1LEFTWIDTHCOMMAND2TOPHEIGHTEDIT1%C7TMEMO TT%CyT TT C  U XCONTROLSOURCEXTITULO2XARCHIVOTHISFORMEDIT1 CONTROLSOURCETHISCAPTIONXTITULOARCHIVORESIZEResize0InitK1ARq2q1AAb2 )%%]qW ~TC H? ^oTCC C C 66Hubo un error INTERNO en los servicios de la AFIP !!! C C BT+Hay que esperar a que la AFIP lo resuelva. C MT0Por favor, vuelva a intentarlo en unos minutos. C C  T '\xTCC C C 6KEl cliente debe estar identificado. Modifique el tipo y nmero de documentorTC C UPor favor revise el mismo en el ABM de Clientes o lo cargado manualmente al facturar.5  'FECompUltimoAutorizado dTC %jTCC C C 61Hubo un error en la numeracin del comprobante. ( )TTC =Compruebe la correlatividad y que el mismo no est repetido. TC <El ltimo comprobante YA registrado en la AFIP para el tipo CCZ es CC 0-CCCZ0.lTC C CUtilice el link de abajo para conocer como solucionar este problemaC C  TANO SE PUDO OBTENER el ltimo comprobante registrado para el tipo CCZ y punto de ventaCC 0C %C S*TC C  Original: T&  'CbteFch ecTCC C C 6La fecha del comprobante (C *) no es vlida.kTC ;Solamente se pueden realizar comprobantes con fechas entre CC$* y CC$* T& 'CbteFch yTCC C C 6La fecha del comprobante (C *%) debe estar dentro del mes en curso. T% '27.440 TCC C C 6iDebe realizar un comprobante de crdito MiPyme, recuerde que se debe utilizar un punto de venta distinto. TU XERROROCPBTXMSGXLINK_IDOWSFEV1XERRMSGXNUMERR FE_V1_ULTCOMP TIPO_CBTE PUNTO_VTA COMPROBANTE FECHA_CBTE1A!B!Q1A1 A"Aa2aRb B1GIF89a w!, 2 X@bUbRWYk!R!Z!a&fh#o!s*V,f(i+l)s'o+t7_5o1r1{2x3|>d>y7y;~7~=<:=B}FA@DABJJJIHMLJQRSRTRXY[^[abfaehtkiks|^儭焼w戾w}ۗPh~ŜkƦݥɳTc\o`qfyhy{ļ޽{ƌNRX^lumzq{vˮ˹JRZZ`eu|{Ԕ֔ӢLK[[^`aatw{ۢKDPJSOZZd`qr~~JBRJRRgavs譲 H*\Ȱ!C~#ňCBG &4`@Id%H!3fX.\@B,]”I&N<}v:Q`Btqd̚7s)b sǠOp`ݻxzWU!LSEԧ1j" I/W Ez͚uʓJ;LC`s떂0ّaSXO)7]O&ZزIC ,Jtx.}r1sACL.E`LM4 R[HpAX<1Ez0 zdb!bӹބ6QaD!np&U6h [(Ɵb&P'8 mdr%ؖ[ +b\"!D8o HaalLFnc^A,p ('!u t牺xl~`!YIP."Ki\P&ƹ1fb"flR<gs0B+1w" axqկ .-wb NYmbH ˡ"^+;C;%, 4dTr~sCCW(s"Visualizar Solicitud$s"Editar Solicitud1s"Cerrar SolicitudC- &s"Imprimir Solicituds"\-+s"Visualizar Presupuestos's"Editar Presupuestoss"\-7s "Solicitar Presupuesto en Excela!s " Detalle a TXTs "Salirg1UDO _6a112f1ck IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")g1UDO _6a112f1cl IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")g1UDO _6a112f1cm IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")g1UDO _6a112f1cn IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")g1UDO _6a112f1co IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")g1UDO _6a112f1cp IN LOCFILE("2000\IN_SOLCOM" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM?")X1 Fdo form in_solcom_solicitar_presupuesto with .f., 1,sol_pendientes.sol"1 do in_solcom_txttU MENEMERGEACCESO63in_controlar_solUVER_SOLIN_CONTROLAR_SOLSOL_PENDIENTESSOLITM XRESUMIDOA3in_controlar_sol TaUVER_SOLIN_CONTROLAR_SOLSOL_PENDIENTESSOLITM XRESUMIDO XACTUALIZARvTG+( in_solcom%CoF#) Ta TaUXSOLSOL_PENDIENTESSOL IN_SOLCOMCERRAR_SOLICITUDFOR XMENU_ACT XACTUALIZAR in_solcomU REIMPRESION IN_SOLCOMSOL_PENDIENTESSOLG9in_controlar_sol TaUVER_SOLIN_CONTROLAR_SOLSOL_PENDIENTESSOLITM XRESUMIDO XACTUALIZARG9in_controlar_sol TaUVER_SOLIN_CONTROLAR_SOLSOL_PENDIENTESSOLITM XRESUMIDO XACTUALIZAR _6a112f1ck _6a112f1clL _6a112f1cm _6a112f1cn _6a112f1co _6a112f1cpAAaaqarssssss!?1111q1!rQB1111NL]p*?-W!1""%J^"Y~"sCCW's"Ver Orden de Compra$s"Cerrar Solicituds"Salir21 do ver_oc with xver_oc, xempresam1[DO _6zi11ka1u IN LOCFILE("2000\IN_SOLCOM_OC" ,"MPX;MPR|FXP;PRG" ,"WHERE is IN_SOLCOM_OC?")tU MENEMERGEzTG+( in_solcom%CsF#) Ta T aU XSOLSOL_PENDIENTESSOL IN_SOLCOMCERRAR_SOLICITUDEMPRESA OC_PENDIENTESFOR XMENU_ACT XACTUALIZAR _6zi11ka1u[AqA!?q1arQB1 20mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2820LQ3JE 932858717X>05z COMMENT RESERVED f WINDOWS _2860ST788 932859351RJ` <Iv. COMMENT RESERVED 8VERSION = 3.00tc_exp_crystalPixelsClass1customtc_exp_crystal^opar_actual Referencia temporal al objeto de parmetros *cry_exportar *gri_crear_reporte fHeight = 32 Width = 33 Picture = bmp\preview2_h_16.ico opar_actual = .F. Name = "tc_exp_crystal" customcustom tc_exp_excelPixels bmp\excel.gifClasscustom tc_exp_excel*xls_exportar IHeight = 27 Width = 28 Picture = bmp\excel.gif Name = "tc_exp_excel" 1PROCEDURE xls_exportar LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xHojaAdd as Boolean , xSINFormato as Boolean , xReemplazar_hoja as Boolean LOCAL xXLSBase as String xXLSBase="" IF xHojaADD THEN xXLSBase=GETFILE("xls","Seleccione el archivo de EXCEL a agregar la hoja","Seleccionar") IF EMPTY(xXLSBase) THEN RETURN .f. ENDIF xReemplazar_hoja = .t. ENDIF LOCAL xArchivo AS STRING SELECT (oPar.gf.sql_alias) COPY TO (p_local+"\tmp\XLS") xArchivo = (p_local+"\tmp\XLS") LOCAL xPar1 AS Exportaciones_Parametros OF imp_exp.vcx LOCAL xPar2 AS Exportaciones_Parametros OF imp_exp.vcx LOCAL xFor AS Exportaciones_Parametros_Formato OF imp_exp.vcx xPar1=NEWOBJECT("Exportaciones_Parametros","imp_exp.vcx") xFor=NEWOBJECT("Exportaciones_Parametros_Formato","imp_exp.vcx") LOCAL xReporte_Completo xReporte_Completo="Reporte Completo" xPar1.ex_anexar_archivo = xXLSBase xPar1.ex_anexar_planilla = xHojaAdd &&& Agrega al archivo existente xPar1.ex_sin_formato = xSINFormato xPar1.ex_anexar_limpia = .f. xPar1.ex_titulo = oPar.obj_pag.pag_titulo xPar1.ex_anexar_reemplaza = xReemplazar_hoja xPar1.ex_archivo_entrada = JUSTSTEM(xArchivo) xPar1.ex_archivo_salida = oPar.obj_pag.pag_name xPar1.ex_titulo_hoja=oPar.obj_pag.pag_titulo xPar1.ex_xls_campos_agregar() && Reset LOCAL oColl oColl=oPar.gf.Coll_Ordenado() FOR EACH oOBJ as grilla_formato_columna OF form_controles.vcx IN oColl xFor=NEWOBJECT("Exportaciones_Parametros_Formato","imp_exp.vcx") xFor.col_width= oObj.columna.width / 6 xFor.num_format_fox = oObj.for_inputmask xPar1.ex_xls_campos_agregar( STRTRAN(UPPER(oOBJ.For_ControlSource),UPPER(ALLTRIM(oPar.gf.sql_alias))+".",""), ; oOBJ.For_Caption,,,IIF(xSINFormato,.f., oObj.for_totalizar), xFor ) NEXT xPar1.ex_xls_abrir = 1 LOCAL oExp AS exportaciones OF imp_exp.vcx oExp = NEWOBJECT("exportaciones","imp_exp.vcx") oExp.exportar_xls ( xPar1) ENDPROC PROCEDURE cry_exportar LPARAMETERS oGrid as ppan_grid OF tc_paneles.vcx this.oPar_actual = oGrid SELECT (oGrid.gf.sql_alias) local xtmp xtmp=p_local+"\TMP\TEST1FR.dbf" COPY TO (xtmp) WITH cdx SELECT 0 USE (xTMP) EXCLUSIVE USE * Creacion de los objetos a realizar la exportacion set procedure to listados ADDITIVE LOCAL oExp as exportaciones OF "imp_exp.vcx", xPar as exportaciones_parametros OF "imp_exp.vcx" oExp=NEWOBJECT("Exportaciones", "imp_exp.vcx") xPar=NEWOBJECT("Exportaciones_Parametros", "imp_exp.vcx") * Opciones Generales xPar.ex_Titulo1 = oGrid.obj_pag.pag_titulo xPar.ex_Titulo2 = oGrid.obj_pag.pag_titulo * Opciones de Archivos xPar.ex_Archivo_Reporte = p_system+"\prt\TC_Base.rpt" xPar.ex_cr_Archivos[1] = xtmp * Sin separar *xPar.ex_cr_NombreGrupo = "Vendedor" *xPar.ex_cr_OrdenGrupos = "{@DescripcionGrupo}" * Parametros a pasar xPar.ex_cr_param_agregar() *xPar.ex_cr_param_agregar("xdresm",1) oExp.obj_control = this oExp.cr_func_edit = "this.obj_control.gri_crear_reporte(this)" *** EJECUCION DE LA EXPORTACION ******************************************************** * oExp.Exportar_Crystal(xParametros, xImprimir ,xModal ) * * xImpri)mir = Imprime sin preview * xModal = Ejecuta el visor en Modal para cuando oExp es una variable local * que se destruye al finalizar este PRG LOCAL xWidth xWidth=0 FOR EACH oOBJ AS grilla_formato_columna OF form_controles.vcx IN oGrid.gf.column_coll xWidth = xWidth + oOBJ.columna.width NEXT IF xWidth > 1100 THEN xPar.ex_Archivo_Reporte =ADDBS(JUSTPATH(xPar.ex_Archivo_Reporte))+ JUSTSTEM(xPar.ex_Archivo_Reporte)+"_H.rpt" ENDIF oExp.Exportar_Crystal(xPar,.F.,.T.) oExp.obj_control=.f. this.opar_actual=.f. oExp=.f. delete file (FORCEEXT(xtmp,"*")) ENDPROC PROCEDURE gri_crear_reporte LPARAMETERS oExp AS exportaciones OF "imp_exp.vcx" LOCAL oRep AS CRAXDRT.REPORT oRep=oExp.CRReporte LOCAL oPar AS tc_form_parametros_grid OF tc.vcx oPar=THIS.oPar_Actual LOCAL oTex AS CRAXDRT.TextObject , oFld AS CRAXDRT.FieldObject LOCAL oSecH AS CRAXDRT.Section , oSecD AS CRAXDRT.Section LOCAL xPath AS STRING, xTabla AS STRING xPath=JUSTPATH(oExp.oPar_Actual.ex_cr_Archivos(1)) xTabla=JUSTSTEM(oExp.oPar_Actual.ex_cr_Archivos(1)) TRY oRep.DATABASE.AddOLEDBSource('Provider=VFPOLEDB.1;Data Source='+xPath+ ';Password="";Collating Sequence=MACHINE',xTabla) CATCH TRY oRep.DATABASE.AddOLEDBSource('Provider=VFPOLEDB.1;Data Source='+xPath+ ';Password="";Collating Sequence=MACHINE',xTabla) CATCH TRY oRep.DATABASE.AddOLEDBSource('Provider=VFPOLEDB.1;Data Source='+xPath+ ';Password="";Collating Sequence=MACHINE',xTabla) CATCH ENDTRY ENDTRY ENDTRY IF oRep.DATABASE.TABLES.COUNT=0 THEN =Mensaje("Error al setear la tabla !!!") RETURN .F. ENDIF oSecH=oRep.Areas(2).Sections(2) && Headers oSecD=oRep.Areas(3).Sections(1) && Detalle oSecF=oRep.Areas(4).Sections(1) && Final oSecH.AddBoxObject (1,1,oSecH.WIDTH,oSecH.HEIGHT ) && Rectangulo LOCAL xCampo AS STRING , xLIn AS INTEGER, xTW AS INTEGER , oColl, xPosX oColl=oPar.gf.Coll_Ordenado() xLIn=15 xTW=10 LOCAL xAlig, oCol AS COLUMN, xForm FOR EACH oOBJ AS grilla_formato_columna OF form_controles.vcx IN oColl oCol = oOBJ.columna xAlig=0 xPosX = xLIn * xTW xPosY = 5*xTW DO CASE &&LRC CASE INLIST(oOBJ.for_align,0) xAlig= 1 && crLeftAlign CASE INLIST(oOBJ.for_align,2) xAlig= 2 && crHorCenterAlign CASE INLIST(oOBJ.for_align,1) xAlig= 3 && crRightAlign ENDCASE xCampo=STRTRAN(UPPER(oOBJ.For_ControlSource),UPPER(ALLTRIM(oPar.gf.sql_alias))+".","") oTex=oSecH.AddTextObject(oOBJ.For_Caption,xPosX,5*xTW) oTex.WIDTH = oCol.WIDTH * xTW oTex.HorAlignment = xAlig oFld=oSecD.AddFieldObject("{"+xTabla+"."+xCampo+"}", xPosX, xPosY) oFld.HorAlignment= xAlig oFld.WIDTH = oCol.WIDTH * xTW oFonH=oTex.FONT oFonH.NAME = oCol.FONTNAME oFonH.SIZE=oCol.FONTSIZE -2 oFonH.bold=.T. oTex.FONT = oFonH oFonF=oFld.FONT oFonF.NAME = oCol.FONTNAME oFonF.SIZE=oCol.FONTSIZE -2 oFld.FONT=oFonF IF NOT EMPTY(oOBJ.for_inputmask ) THEN xForm=oOBJ.for_inputmask oFld.DecimalPlaces = LEN(STREXTRACT(xForm, ".")) ENDIF IF oOBJ.for_totalizar THEN oTot=oRep.RunningTotalFields.ADD(oOBJ.for_codigo+"_Tot") oTot.SetSummarizedField("{"+xTabla+"."+xCampo+"}") oFld=oSecF.AddFieldObject(oTot.NAME, xPosX, xPosY) oFld.HorAlignment= xAlig oFld.WIDTH = oCol.WIDTH * xTW oFld.TopLineStyle= 1 && crLSSingleLine oFonF=oFld.FONT oFonF.NAME = oCol.FONTNAME oFonF.bold=.T. oFonF.SIZE=oCol.FONTSIZE -2 oFld.FONT=oFonF IF NOT EMPTY(oOBJ.for_inputmask ) THEN xForm=oOBJ.for_inputmask oFld.DecimalPlaces = LEN(STREXTRACT(xForm, ".")) ENDIF ENDIF xLIn=xLIn+ oOBJ.columna.WIDTH + 10 *xPar1.ex_xls_campos_agregar( STRTRAN(UPPER(oOBJ.For_ControlSource),UPPER(ALLTRIM(oPar.gf.sql_alias))+".",""), oOBJ.For_Caption) NEXT oFld=.F. oTex=.F. oSecH=.F. oSecD=.F. oPar=.F. ENDPROC "5%K||U#&Q PPAN_GRIDtc_paneles.vcxTF!T\TMP\TEST1FR.dbf (F QQG+(listadosZ Q EXPORTACIONES imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx+T C Exportaciones imp_exp.vcx6T CExportaciones_Parametros imp_exp.vcxT  T  $T \prt\TC_Base.rptT  C T 8T (this.obj_control.gri_crear_reporte(this) TGQGRILLA_FORMATO_COLUMNAform_controles.vcxT%L-T CC C _H.rptC -a T -T- T -C*UOGRID TC_PANELESVCXTHIS OPAR_ACTUALGF SQL_ALIASXTMPP_LOCALLISTADOSOEXPXPAR EX_TITULO1OBJ_PAG PAG_TITULO EX_TITULO2EX_ARCHIVO_REPORTEP_SYSTEMEX_CR_ARCHIVOSEX_CR_PARAM_AGREGAR OBJ_CONTROL CR_FUNC_EDITXWIDTHOOBJFORM_CONTROLES COLUMN_COLLCOLUMNAWIDTHEXPORTAR_CRYSTALS)Q EXPORTACIONES imp_exp.vcxQCRAXDRT.REPORTT,QTC_FORM_PARAMETROS_GRIDtc.vcxT8QCRAXDRT.TextObject QCRAXDRT.FieldObject1 QCRAXDRT.Section QCRAXDRT.Section QSTRING QSTRINGT CCT CC fC Provider=VFPOLEDB.1;Data Source= ';Password="";Collating Sequence=MACHINE   4fC Provider=VFPOLEDB.1;Data Source= ';Password="";Collating Sequence=MACHINE   fC Provider=VFPOLEDB.1;Data Source= ';Password="";Collating Sequence=MACHINE  %)CError al setear la tabla !!!B-T CCT CCTCCC   7QSTRINGQINTEGERQINTEGERTC T T !"QCOLUMN#A$QGRILLA_FORMATO_COLUMNAform_controles.vcxT"$& T!TT'H C$( T! C$( T! C$( T!)TCC$)fCC*f."TC$, +T"T-!/T C{ .}' .T -!T "T/0T/1"2T/3"4T/5aT0/T6 0T61"2T63"4T 06%C$7 T#$7T 8CC#.>%$9"T:C$=_Tot;<#C{ .}:>T C:1'.T -!T "T ?T6 0T61"2T65aT63"4T 06%C$7 T#$7T 8CC#.>T$&  T - T- T - T - T-U@OEXPOREP CRREPORTEOPARTCVCXTHIS OPAR_ACTUALOTEXOFLDOSECHOSECDXPATHXTABLAEX_CR_ARCHIVOSDATABASEADDOLEDBSOURCETABLESCOUNTMENSAJEAREASSECTIONSOSECF ADDBOXOBJECTWIDTHHEIGHTXCAMPOXLINXTWOCOLLXPOSXGF COLL_ORDENADOXALIGOCOLXFORMOOBJFORM_CONTROLESCOLUMNAXPOSY FOR_ALIGNFOR_CONTROLSOURCE SQL_ALIAS ADDTEXTOBJECT FOR_CAPTION HORALIGNMENTADDFIELDOBJECTOFONHFONTNAMEFONTNAMESIZEFONTSIZEBOLDOFONF FOR_INPUTMASK DECIMALPLACES FOR_TOTALIZAROTOTRUNNINGTOTALFIELDSADD FOR_CODIGOSETSUMMARIZEDFIELD TOPLINESTYLE cry_exportar0gri_crear_reporte1arA#adaCazqqAAA2!2aaaAAAqAtAqqqA#qq1q1qSA"!1q1qQABD2#7A)"% -6UYQTC_FORM_PARAMETROS_GRIDtc.vcxQBOOLEANQBOOLEANQBOOLEANQSTRING T%STCxls0Seleccione el archivo de EXCEL a agregar la hoja Seleccionar%CB- TaQSTRINGF ( \tmp\XLST \tmp\XLS2 QEXPORTACIONES_PARAMETROS imp_exp.vcx2 QEXPORTACIONES_PARAMETROS imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx6T CExportaciones_Parametros imp_exp.vcx>TC Exportaciones_Parametros_Formato imp_exp.vcxTReporte CompletoT T T T -T T T CT T  C TCAQGRILLA_FORMATO_COLUMNAform_controles.vcxM>TC Exportaciones_Parametros_Formato imp_exp.vcxT!"# T$%JCCC&fCC f.'C-(6 T )'*Q EXPORTACIONES imp_exp.vcx+T*C exportaciones imp_exp.vcxC *+U,OPARTCVCXXHOJAADD XSINFORMATOXREEMPLAZAR_HOJAXXLSBASEXARCHIVOGF SQL_ALIASP_LOCALXPAR1IMP_EXPXPAR2XFORXREPORTE_COMPLETOEX_ANEXAR_ARCHIVOEX_ANEXAR_PLANILLAEX_SIN_FORMATOEX_ANEXAR_LIMPIA EX_TITULOOBJ_PAG PAG_TITULOEX_ANEXAR_REEMPLAZAEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAPAG_NAMEEX_TITULO_HOJAEX_XLS_CAMPOS_AGREGAROCOLL COLL_ORDENADOOOBJFORM_CONTROLES COL_WIDTHCOLUMNAWIDTHNUM_FORMAT_FOX FOR_INPUTMASKFOR_CONTROLSOURCE FOR_CAPTION FOR_TOTALIZAR EX_XLS_ABRIROEXP EXPORTAR_XLS xls_exportar011qAAq!!bra1aaqA1As2)GIF89awme[Y\O_\DG>902,5.%  ~ }~|lk}g||jlhyirXpYweqEqUnTlRl?fGpgaCpioing[:ZBV:YDV)"[%y7 UUQMSCOMCTLLIB.BUTTONH.~!  GRM_EDICION~TTTT T T GRF_TC T GRF_TA %T  3T FT  *T UBUTTONKEYXEDICIONVALUETHISPARENTMSGRDISPLAYFIELDBUTTONSDISPLAYTOOLBARDISPLAYSCREENTIPSDISPLAYFIELDLISTBUTTONSVISIBLEWIDTHLEFTTBC!QMSCOMCTLLIB.buttonmenu*QGRF_TIPOborrar_graficos.PRG/Q GESENUMVALUESborrar_graficos.PRGQMSCOMCTLLIB.Button.TCgrf_tipoborrar_graficos.PRGH$  GRM_EDICION) CGRF_TCGRF_TA$TCC   $TCCGRF_TC Ta  $TCCGRF_TA Ta TC"T    P$TCCGRF_TC T- Z $TCCGRF_TA T-  2U BUTTONMENUOGRFBORRAR_GRAFICOSPRGOVALOBUTPARENTKEY GET_BYVALUETHISMSGRCHARTSTYPEBUTTONS BUTTONMENUS ENUM_NAMEENABLEDTAG ENUM_VALUERefresh0 ButtonClick;ButtonMenuClickh14RbaaaAA4AAAAAAq!AAAAB23Up")"jj% 9oUT-QMSCOMCTLLIB.BUTTONr `T(nY QGRF_TIPOborrar_graficos.PRG QGRF_TIPO_COMUNESborrar_graficos.PRG/ Q GESENUMVALUESborrar_graficos.PRG.T Cgrf_tipoborrar_graficos.PRG6T Cgrf_tipo_Comunesborrar_graficos.PRG@QMSCOMCTLLIB.ButtonMenusQMSCOMCTLLIB.ButtonMenu4TCGRF_TC Tipos ComunesT-T  9TC  T 2TCGRF_TA Tipos TodosT-T  TC  T UTHISTBC IMAGELISTILOBUTBUTTONSIMAGEKEYOEXOGRFBORRAR_GRAFICOSPRGOGRFCOVALOBMOBTTBGADDVISIBLE BUTTONMENUS ENUM_COLL ENUM_NAME ENUM_DESCRTAG ENUM_VALUETT$T%TCx6TTT T T T 4T C 6T T T T #T   T $T   T U XANCHTHISTBGANCHORLEFTWIDTHTOPMOSTRAR_EDICINVISIBLETBCMSGRHEIGHTO)Q PPAN_GRAFICOtc_paneles.vcx CCUOPAG TC_PANELESVCXOBJ_GRAPLICARTHISMSGR(  TaUTHISTB_CREAR_ICONOS FRM_ACOMODARTIMER1ENABLEDUtb_crear_iconos0 frm_acomodarasignar_control InitResize1a1AAaAA1A$A1A411AQ1a3111A12111A13a322e&0?4 OE8lJ)jK"22:%U:QCOLUMN&CUOCOLTHISPARENTOBJ_CTRLFIELD_DBLCLICKTHISFORM OPARAMETROS CTRL_SUBTIPOevn_field_dblclick01b3)2PROCEDURE agregar_objeto LPARAMETERS oObj as ppan_base of tc_paneles.vcx oObj.obj_pag = this this.objetos.add(oObj) ENDPROC PROCEDURE dispose DODEFAULT() IF TYPE("this.obj_ctrl") ="O" and !isnull(this.obj_ctrl) THEN this.obj_ctrl.dispose this.obj_ctrl=.f. ENDIF ENDPROC %Top = 204 Left = 48 Name = "oExP"  tc_cont_gridtc_exp_crystal`Top = 276 Left = 252 Height = 13 Width = 37 Enabled = .F. Interval = 100 Name = "Timer1"  olecontroltc_imp_exp.vcx olecontroltc_cont_graficofTop = 2 Left = 387 Height = 36 Width = 70 Visible = .F. ZOrderSet = 2 Anchor = 8 Name = "TBG" .OLEObject = C:\WINDOWS\system32\MSCOMCTL.OCX .OLEObject = C:\WINDOWS\system32\MSCOMCTL.OCX xAnchor = 15 Top = 38 Left = 2 Width = 454 Height = 264 Name = "MSGR" ChartCanvas.drawwheninvisible = .F. ChartCanvas.Name = "ChartCanvas" Title.Name = "Title" SubTitle.Name = "SubTitle" XAxis.Name = "XAxis" YAxis.Name = "YAxis" ScaleLegend.Name = "ScaleLegend" XAxisLegend2.Name = "XAxisLegend2" ShapeLegend.Name = "ShapeLegend" SideLegend.Name = "SideLegend" ColumnCount = 0 Anchor = 15 AllowAddNew = .F. AllowRowSizing = .F. DeleteMark = .F. Height = 199 Left = 0 RecordMark = .F. Top = 37 Width = 472 HighlightBackColor = 193,193,225 ZOrderSet = 0 Name = "Grilla" bTop = 1 Left = 361 Height = 40 Width = 110 ZOrderSet = 4 Anchor = 8 Align = 0 Name = "TB" IPROCEDURE Timer this.Enabled=.f. this.Parent.msGR.Resize ENDPROC Width = 458 Height = 304 mostrar_edicin = .F. Name = "tc_cont_grafico" TBC.Top = 2 TBC.Left = 5 TBC.Height = 36 TBC.Width = 381 TBC.ZOrderSet = 0 TBC.Anchor = 10 TBC.Name = "TBC" IL.Top = 330 IL.Left = 62 IL.Height = 37 IL.Width = 49 IL.ZOrderSet = 4 IL.Name = "IL" Width = 472 Height = 236 Name = "tc_cont_grid" TBC.Top = 1 TBC.Left = 1 TBC.Height = 36 TBC.Width = 360 TBC.ZOrderSet = 1 TBC.Name = "TBC" IL.Top = 192 IL.Left = 132 IL.Height = 37 IL.Width = 49 IL.ZOrderSet = 2 IL.Name = "IL" PROCEDURE evn_field_dblclick LPARAMETERS oCol as Column *this.parent.obj_ctrl.Field_DblClick(this.Parent.obj_par, this.Parent.ctrl_subtipo, oCol) this.parent.obj_ctrl.Field_DblClick(thisform.oparametros, this.Parent.ctrl_subtipo, oCol) ENDPROC 1iࡱ>  Root EntryХ&OleObjectDatai'AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~ͫ EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIRBT_MENUNUlt~h( @ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs#$,j(6(!C4~ͫ EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIRBT_MENUlt~h( @^gY鲣沧嬤㧢ᢠߜݗ؏ʼnuVoMʾǹ࿲۲]yHǿ¹ǻϱUtAƾȵҸǬ޸[觙ȻӮǻòޮ޸ĹɼಫôᷯԾ۫⼳ܵƾɹεǰżĻژۏ~ޚݐ}xcl{ޖvaTyjVwk?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??ltGIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;lt   ( @³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{wlt ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5} Root EntryP|Х&@OleObjectDataAccessObjSiteData&\ChangedProps?fj(6(!C4.!MD@{D\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I ButtonHeightN C@ ButtonWidthN ?@ OLEDropMode I Style I ͫ3VerBT_Menu Dummy`!PROCEDURE Refresh ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button this.parent.obj_ctrl.ctrl_MenuClick(thisform.oparametros, UPPER(Button.Key),, this.Parent.ctrl_subtipo) ENDPROC PROCEDURE ButtonMenuClick *** ActiveX Control Event *** LPARAMETERS buttonmenu as MSComctlLib.ButtonMenu this.parent.obj_ctrl.ctrl_MenuClick(thisform.oparametros, UPPER(Buttonmenu.Parent.Key), UPPER(buttonmenu.Key), this.Parent.ctrl_subtipo ) ENDPROC NPROCEDURE dispose this.obj_par = .f. this.obj_ctrl = .f. ENDPROC PROCEDURE asignar_control LPARAMETERS pPar as ppan_base of tC_paneles.vcx this.obj_par = pPar IF TYPE("ppar.obj_ctrl")="O" and !isnull(ppar.obj_ctrl) THEN this.obj_ctrl = ppar.obj_ctrl this.ctrl_subtipo=ppar.ctrl_subtipo pPar.obj_ctrl.Ctrl_Crear_Menu(ppar, this.tbc.Buttons("BT_Menu").ButtonMenus ) IF this.tbc.Buttons("BT_Menu").ButtonMenus.Count= 0 THEN this.tbc.Buttons("BT_Menu").Visible=.f. ENDIF ENDIF this.tb_asignar_iconos ( this.tbc, this.il ) ENDPROC PROCEDURE visible_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.VISIBLE = m.vNewVal LOCAL nIT, oObj nIT=1 FOR nIT=1 TO THIS.OBJECTS.COUNT oObj =THIS.OBJECTS (nIT) TRY oObj.VISIBLE=THIS.VISIBLE CATCH ENDTRY NEXT oObj=.F. *WAIT WINDOW "DeActivo: "+THIS.NAME NOWAIT NOCLEAR ENDPROC PROCEDURE exp_excel LPARAMETERS xHojaAdd, xSINFormato, xReemplaza this.oExP.xls_exportar (this.obj_par ,xHojaAdd, xSINFormato, xReemplaza) return ENDPROC PROCEDURE exp_crystal this.oExpC.cry_exportar (this.obj_par) return ENDPROC PROCEDURE tb_asignar_iconos LPARAMETERS oTB as Toolbar, oIL oTB.ImageList = oIl FOR EACH oBut as MSComctlLib.Button IN oTB.Buttons TRY oBut.Image = UPPER(oBut.Key ) CATCH ENDTRY NEXT ENDPROC  ࡱ> Root Entryhx.@OleObjectDataAccessObjSiteData&\ChangedProps?fj(6(!C4<!z@D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I ButtonHeightN B@ ButtonWidthN @Q@ OLEDropMode I Style I ͫH33-3 Modo Edicin GRM_EDICION@Bc rxxt Visual Studio 8\Common7\IDE\PrivateAssemblies\;C:\Archivos de programa\Archivos comunes\Adobe\AGL;C:\Archivos de programa\Archivos comunes\Nero\Lib\?xxPROCEDURE dispose this.obj_par.gf = .f. DODEFAULT() this.gf.dispose(this.grilla ) this.grilla.RecordSource ="" SELECT (this.gf.sql_alias ) USE ENDPROC PROCEDURE asignar_control LPARAMETERS oPar as ppan_grid of tc_paneles.vcx DODEFAULT(oPar) this.tb_asignar_iconos(this.tb, this.il) this.tb_asignar_iconos(this.tbC, this.il) LOCAL TMPGF as grilla_formato OF form_controles.vcx TMPGF=oPar.GF THIS.GF.Leer_GF(TMPGF) TMPGF=THIS.GF &&& Ac se realizan todos los cambios de GRID THIS.GF.sql_refresh(THIS.grilla) oPar.GF = TMPGF TMPGF = .f. this.gf.grid_sets_default() this.gf.grid_sets_Cargar() ENDPROC PROCEDURE TBC.Refresh *** ActiveX Control Method *** ENDPROC zPROCEDURE asignar_control LPARAMETERS oPag as ppan_page OF tc_paneles.vcx this.Caption=oPag.pag_titulo this.Name = oPag.pag_name LOCAL oPPan as ppan_base OF tc_paneles.vcx, oPFP as tc_cont_base OF tc_paneles.vcx this.obj_ctrl = oPag.obj_ctrl LOCAL nIT, xNAM nIT=1 FOR nIt=1 TO oPag.objetos.count oPPAN=oPag.objetos.item(nIt) xNAM="OBJ_"+ALLTRIM(STR(nIT)) this.AddObject (xNam,oPPAN.clase) oPFP=this.&xNAM oPFP.Width=this.Parent.pagewidth-2 oPFP.height=this.Parent.pageheight-5 oPFP.Visible=.t. oPFP.Anchor=15 oPFP.asignar_control(oPPAN) nIt=nIT+1 NEXT ENDPROC PROCEDURE dispose LOCAL oObj FOR EACH oObj IN this.Objects oObj.dispose this.RemoveObject(oObj.name) NEXT ENDPROC PROCEDURE Activate LOCAL nIT, oObj nIT=1 FOR nIt=1 TO this.Objects.Count oObj =this.Objects (nIt) oObj.visible=.t. NEXT oObj=.f. *WAIT window "Activo: "+this.Name NOWAIT noclear ENDPROC PROCEDURE Deactivate LOCAL nIT, oObj nIT=1 FOR nIt=1 TO this.Objects.Count oObj =this.Objects (nIt) oObj.visible=.f. NEXT oObj=.f. *WAIT window "DeActivo: "+this.Name NOWAIT noclear ENDPROC 1mࡱ>  Root Entryhx.OleObjectDatam'AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~ͫ7 EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENU lt~h( @@ HHHHHHHHHHHHHHHd_HHHHHHHHHe`CiHHHHHHHHHHHgbJtFmHHHHHHHHHHHHhcJsNyJsHHHHHHHHHjeJsJsJsElHHHHlgJsCiJsLwHqHHHmhJsHp?cJsP|HHojJsMwDk<^JsqlJsRJsAfJs#$,j(6(!C4~ͫ7 EXP_CRYSTAL BTN_RESET EXP_EXCEL BTN_SALIR CTRL_MENUlt~h( @^gY鲣沧嬤㧢ᢠߜݗ؏ʼnuVoMʾǹ࿲۲]yHǿ¹ǻϱUtAƾȵҸǬ޸[觙ȻӮǻòޮ޸ĹɼಫôᷯԾ۫⼳ܵƾɹεǰżĻژۏ~ޚݐ}xcl{ޖvaTyjVwk?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??ltGIF89a!,wTɫ"\Τ޼{ =nL:ۥ4X'1tr Ku0СU<:* dO~[ pSvhrIV0?7fHG!x8by'iP;lt   ( ³rmJsWOzFmJsŴto>bJsTKtJsaȶĴvqNyElJsP|Js]|a̸ȶŴwr]JsJsYz]|a˷ȶĴyt:\JsTxYz]|a˷ǵĴ{v?c7WOuTxYz]|a˷ȶ|wUDk<^'`+b0e5g9i=lBnGqKsOuTxYz]|a˸~yJsRJsJsAf#^'`+b0e5g9i=lBnGqKsOuTxYz]|azJsJsOzOzFm[#^'`+b0e5g9i=lBnGqKsOuTxYz]||JsCiJsTKtY[#^'`+b0e5g9i=lBnGqKsOuTxҼ~JsHp?cJsP|9i=lBnGqKsؾսJsMwDk<^Js5g9i=lBnؿJsRJsAfJs0e5g9iJsWOzFmJs+b0eCiJsTKtJs'`FmJsP|JsJsJsJs{LwJs}yP|{wlt ( @ ``` ````@ @@@``` @`` @` @` `@(hpp8`xؘH`hЀ(@ذ80HHPh (؈0Ȁ88XXؠ`xЀؠШظ @PX`hHؐ x0ؐ88ؠPPPX`hhxxȀȀЈȐАؘȠب (PPX@Phpxxxhp(x(Ј(؈((((x0Ȁ0ؐ00`888@ب@ؐHHHHH@PЈPИPPXX`hhhpppxxxxxx踀踈ȈxฐؐИИȠȨبx@hȸظ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::n::||x<<<<<a9O{L7/XsWXtfTUJJ::058z7K/XWD?iJj::19O\LK/vD?UJ222222222222_`58z7K/?U'2:_9O\L7//tb?J2:_a`58NEK//d?J2:Pa`O\M7/K>S'B222222222222Q98NEK/KPS'BpURGP1_9\M7KwAV-JIS?fG1g0_5NE77vApB-rJAS??G_F0}OME7MDApB-)qJAS??G=1}8E7\DApBC)-BjIS??G_=\E8YABC)-BjAS?fGGby5MOYIpC)-BjiS?fGGe}85YB-)))rqoG5} Root Entry@%VOleObjectDataBAccessObjSiteData&\ChangedProps ?fj(6(!C4^ ! D@nD\$89368265E-85FE-11d1-8BE3-0000F8754DA1E[g!B2g(Svy?VXB]2d Appearance I  MousePointer I ButtonHeightN B@ ButtonWidthN G@ OLEDropMode I Style I dͫ8mExcel EXP_EXCEL!Guardar los datos en una planillaEXC_FORM)Agregar una hoja a una planilla existente EXC_FORM_AReemplazar una hoja existente EXC_FORM_R-4Guardar los datos sin agregados (Para usar en Pivot)EXC_SINFLAgregar una hoja a una planilla existente sin agregados (Para usar en Pivot) EXC_SINF_AOReemplazar una hoja a una planilla existente sin agregados (Para usar en Pivot) EXC_SINF_RReporte EXP_CRYSTALPROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE ButtonClick *** ActiveX Control Event *** LPARAMETERS button as MSComctlLib.Button DO CASE CASE button.Key="EXP_EXCEL" this.Parent.exp_excel CASE button.Key="EXP_CRYSTAL" this.Parent.exp_crystal ENDCASE ENDPROC PROCEDURE ButtonMenuClick *** ActiveX Control Event *** LPARAMETERS oBut as MSComctlLib.ButtonMenu DO CASE CASE oBut.Key="EXC_FORM" && Archivo individual CON formato this.Parent.exp_excel CASE oBut.Key="EXC_FORM_A" && Hoja ADICIONAL CON formato this.Parent.exp_excel(.t.) CASE oBut.Key="EXC_FORM_R" && Hoja ADICIONAL CON formato this.Parent.exp_excel(.t.,.f.,.t.) CASE oBut.Key="EXC_SINF" && Archivo individual SIN formato this.Parent.exp_excel (,.t.) CASE oBut.Key="EXC_SINF_A" && Hoja ADICIONAL SIN formato this.Parent.exp_excel(.t., .t.) CASE oBut.Key="EXC_SINF_R" && Hoja ADICIONAL SIN formato this.Parent.exp_excel(.t., .t., .t.) ENDCASE ENDPROC _PROCEDURE asignar_control LPARAMETERS oPF as ppan_pageframe OF tc_paneles.vcx LOCAL oPag as ppan_page OF tc.vcx, oPFP as opan_page OF tc_paneles.vcx TRY this.RemoveObject("BORRAR_PAGE") CATCH ENDTRY LOCAL nIt *this.PageCount = oPF.objetos.count SET CLASSLIB TO TC_Paneles ADDITIVE FOR nIt=1 TO oPF.objetos.count oPag=oPF.objetos.item(nIt) this.AddObject ("Pag_"+ALLTRIM(STR(this.PageCount+1)),"opan_page") oPFP=this.Pages(this.PageCount) oPFP.asignar_control(oPag) NEXT ENDPROC PROCEDURE dispose LOCAL oPag AS oPan_Page OF tc_paneles.vcx LOCAL oObj, xNam LOCAL ARRAY xObjs(1) FOR nIt=1 TO THIS.PAGECOUNT oPag=THIS.PAGES(nIt) oPag.dispose NEXT oPag=.f. ENDPROC PROCEDURE asignar_control_pagina *!* LPARAMETERS oPag as ppan_page OF tc_paneles.vcx, oPagina *!* oPagina.Caption=oPag.pag_titulo *!* *oPagina.Name = oPag.pag_name *!* LOCAL oPPan as ppan_base OF tc_paneles.vcx, oPFP as tc_cont_base OF tc_paneles.vcx *!* LOCAL nIT, xNAM *!* nIT=1 *!* FOR nIt=1 TO oPag.objetos.count *!* oPPAN=oPag.objetos.item(nIt) *!* xNAM="OBJ_"+ALLTRIM(STR(nIT)) *!* oPagina.AddObject (xNam,oPPAN.clase) *!* oPFP=oPagina.&xNAM *!* oPFP.Width=oPagina.Parent.pagewidth *!* oPFP.height=oPagina.Parent.pageheight *!* oPFP.Visible=.t. *!* oPFP.asignar_control(oPPAN) *!* nIt=nIT+1 *!* *!* NEXT ENDPROC "jj%UUQMSCOMCTLLIB.ButtonH.  EXP_EXCELZ !  EXP_CRYSTAL UBUTTONKEYTHISPARENT EXP_EXCEL EXP_CRYSTAL]!QMSCOMCTLLIB.ButtonMenuH2V EXC_FORM]   EXC_FORM_ACa  EXC_FORM_RCa-a EXC_SINFCa  EXC_SINF_A#Caa  EXC_SINF_RVCaaaUOBUTKEYTHISPARENT EXP_EXCELRefresh0 ButtonClick;ButtonMenuClick14A21!!1B13U) O)j"ooy%UZT- CCTFQUTHISOBJ_PARGFDISPOSEGRILLA RECORDSOURCE SQL_ALIAS&Q PPAN_GRIDtc_paneles.vcx CCC/QGRILLA_FORMATOform_controles.vcxT C T C  T  T-C C UOPAR TC_PANELESVCXTHISTB_ASIGNAR_ICONOSTBILTBCTMPGFFORM_CONTROLESGFLEER_GF SQL_REFRESHGRILLAGRID_SETS_DEFAULTGRID_SETS_CARGARUdispose0asignar_control TBC.Refresh1a1A2aBc33x #)o"8%xBUO+QPPAN_PAGEFRAMEtc_paneles.vcxAQ PPAN_PAGEtc.vcxQ OPAN_PAGEtc_paneles.vcx C BORRAR_PAGE G~( TC_Paneles( HTC /CPag_CC Z opan_page TC CUOPF TC_PANELESVCXOPAGTCOPFPTHIS REMOVEOBJECTNITOBJETOSCOUNTITEM ADDOBJECT PAGECOUNTPAGESASIGNAR_CONTROL&Q OPAN_PAGEtc_paneles.vcx  (yTC  T-U OPAG TC_PANELESVCXOOBJXNAMXOBJSNITTHIS PAGECOUNTPAGESDISPOSEUasignar_control0dispose asignar_control_pagina1AqBqA2aQA3P1T )y"``I%{Ur "(`TCC T-UOPAR2OOBJNITPANELESOBJETOSCOUNTTHISADD) T- "UTHISOBJ_PAG UTHISDISPOSE TC CollectionUTHISOBJETOScopiar_paginas0disposeDestroy InitD1q"AA3A221 'Bf)`"%'+U&Q PPAN_PAGEtc_paneles.vcxTTLQ PPAN_BASEtc_paneles.vcx Q TC_CONT_BASEtc_paneles.vcxT   T  ( TC T OBJ_CC ZC oPFP=this.&xNAM T T T aT C T  UOPAG TC_PANELESVCXTHISCAPTION PAG_TITULONAMEPAG_NAMEOPPANOPFPOBJ_CTRLNITXNAMOBJETOSCOUNTITEM ADDOBJECTCLASEWIDTHPARENT PAGEWIDTHHEIGHT PAGEHEIGHTVISIBLEANCHORASIGNAR_CONTROL?8 CUOOBJTHISOBJECTSDISPOSE REMOVEOBJECTNAMEl  T(ZTCTa T-UNITOOBJTHISOBJECTSCOUNTVISIBLEl  T(ZTCT- T-UNITOOBJTHISOBJECTSCOUNTVISIBLEasignar_control0disposeActivateE Deactivate1a211q1B2qB1A3QB3QA2Xv##o/)_ FF%aUp  (^TCC T-UOPAR2OOBJNITPANELESOBJETOSCOUNTTHISADD%T-UTHISOBJ_PAG UTHISDISPOSE TC CollectionUTHISOBJETOScopiar_paginas,disposeDestroyInit.1qAA3A221 'Bf)Fh( @aOO^^^aOOxu^^^e@z^^^Q@z^^^Q@z^^^U@}zlfnlfnlfnlfnlfnQ@ۋ{{{ĘЬɱմtsslfnҩ⨃lfnЬͨuaaմÛlfnЬݪЬlfnմЬlfnմŶڳ߬ҩssմѥմմʥợڳ  &h ( @ vbZ<<:LHBdVRZD:|vxxXXdfjXVPFB^ZVD0(vbZ~ljzx얖XXddZZ䒔lljTD<\J@jXVtj얖XXffZZМrffD0(\PHdVRtjfff`ilfffffffff얖XXffZZhj^^hhjXVffD0(\J@pPM-FvYlsffffff얖XXffZZ``RRxxlBBdd^^V@8lljpgmS7&@y얖XXffZZʴ``HHЮxxlBBhhbdV@8lljp;{rrrr]A龬얖XXffbbܰhh88xxlBBhhbdV@8lljpLvvvvvv얖XXffbbhh88xxlBBhhbdV@8lljpyp||||||ꤤXXffZZxxlBBhhbdV@8lljpw0ꤤXXhhzLLԮxxlBBhhbdV@8llj~y$ꤤVVff^^NNXXbbzx|||zzzxxlBBhhbdV@8llj;ꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8lljM>ꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8lljEދV0ꤤVVffnNNں¬ppXXDDXXhhbdV@8llj+م_MꬮVVffpTTnNNhhbdV@8lljYff\ꬮVVffpTTpTThhbdV@8llj]mm7ꬮVVffpTTpTThhbdV@8llj`tttJ-^`߀ꬮVVffpTTpTThhbdV@8lljd~~~~~~~g촴VVddnNNľpTThhbdV@8lljuꬮhjxxzxpTTffbdZD:lljuмӣЃopgQLlljuq_)p渴u&fffu&fff{߄~y;ܔj~{rz꒔꒔꒔qke{増ZZZZZix( @[KHPF@XH@ffffffffffffʒZZugcrb]ffffff}{x^^אݚqp{OLlVNfff!fnnΚ]]OOŌQR|URfff$f&zzӢXXť‰ɓPQ~XTfff'f,řϤaajjRS~WSfff)f2˙ϣcc\\ZZQQQQLL_`zUQfff,n3̙ӪXXǻɫ^_{URfff.z,ҬZ[Ҳ^_~USfff0Ʌ,,,ԯWXƵXYzPL2ˑđŻ||kh3$!}3)320.?  &h ( @ vbZ<<:LHBdVRZD:|vxxXXdfjXVPFB^ZVD0(vbZ~ljzx얖XXdd]i;얖XXffrpn| 9\PHdVRtjfff`ilfffffffff얖XXff66BUjXVffD0(\J@pPM-FvYlsffffff얖XXffvrp3lBBdd^^V@8lljpgmS7&@y얖XXffJML^3lBBhhbdV@8lljp;{rrrr]A龬얖XXff/3lBBhhbdV@8lljpLvvvvvv얖XXff~3lBBhhbdV@8lljpyp||||||ꤤXXffhm.C2F3lBBhhbdV@8lljpw0ꤤXXhhx*?rp3lBBhhbdV@8llj~y$ꤤVVff/3lBBhhbdV@8llj;ꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8lljM>ꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8lljEދV0ꤤVVffnNNں¬ppXXDDXXhhbdV@8llj+م_MꬮVVffpTTnNNhhbdV@8lljYff\ꬮVVffpTTpTThhbdV@8llj]mm7ꬮVVffpTTpTThhbdV@8llj`tttJ-^`߀ꬮVVffpTTpTThhbdV@8lljd~~~~~~~g촴VVddnNNľpTThhbdV@8lljuꬮhjxxzxpTTffbdZD:lljuмӣЃopgQLlljuq_)p渴u&fffu&fff{߄~y;ܔj~{rz꒔꒔꒔qke{増ZZZZZix( @]KFbQ7VG<ffffffffffff͔VbZ\hk76?(ffffff}{x]b"/E%0}RKlUNfff!fnnЛZb27эFSRU~UQfff$f&zz֤Sa`i+=kzVaګPUXSfff'f,řҥ]f%)quQVr:J٭TS~VSfff)f2˙УbdVjPhAYQ^FX__zTQfff,n3̙ӪXX˿ɫ^_{URfff.z,ҬZ[Ҳ^_~USfff0Ʌ,,,ԯWXƵXYzPL2ˑđŻ||kh3$!}3)320.?  &h ( @ ll\\00<|>얖XXddZZ䒔lljTD<\J@jXVtj<||≯율4|4DD::@@@@@@ꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8llj,,PP.|.Ϊ𜢜,,NN44DD@@ꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8llj``""P|P((PP8888ꤤVVffnNNں¬ppXXDDXXhhbdV@8lljbb"|"Π,,HHHHꬮVVffpTTnNNhhbdV@8lljddT|T,|,ppꬮVVffpTTpTThhbdV@8llj \\&|&ΤPPȌꬮVVffpTTpTThhbdV@8lljTT,,H|HddȔ||PPꬮVVffpTTpTThhbdV@8llj::DD8|8βttˆ||XX<|<촴VVddnNNľpTThhbdV@8llj66HH4|4ΰȌhhȐLL<|<@@ꬮhjxxzxpTTffbdZD:lljXX**H|H̔PPԬ88L|L::<|>@|@,|,P|P"|"R|R(|(D|D8|84~4PP((\\dd XX44<>8{88{8:{9,w/uk`aPGCJB6<^.V|N<><===;~:@}@??WW\\]\TVzvzbauu^_OKjDC{C==+q+ZZmmggQTvPLFlC)r)\\nmonpossԪYYVUQUS&o&aaǸϸлѺŸuwooҮ|{٨XYWVOXQ"l"gg+p+8y7)s+woۅUT±Z[VVOWQ)q)[[7y65|6~vكWV^^TTRQMMWWZYOWQ*r*\\1u2{w܄[ZɳnnUTPXS)q)\\pq؃_^贒NMQ[V)r)\\ӧde߅\\ڲKHKWP)q)\\جllAATRϦǽĦgjkmm"n"ggɡUU8|8*p*\\駾,p+.s.'m&UU}gd&o&bbΥåĪæμĦŨȲWW.v/)r)]]YY:|:9}9GG\\ZZZZYY\\\\]]ZZZZYY[[YY????;;:}:(r()r))r))r))r))r)(r(*r**r*)r)*r**r*?~?88  &h ( @ ll]]00==RRiiee%%JJFFvbZ<<:LHBdVRZD:|v55YYkk``--AANN!!hh ``''KKAA00ZZcc TT77::xxXXdfjXVPFB^ZVD0(vbZ~ljzxaa%%OO==33WWhhYY''PP65<9HE+)UR%"RP/,DAA>얖XXddZZ䒔lljTD<\J@jXVtj@>AA<~9x~얖XXffZZhj^^hhjXVffD0(\J@BBPP00GE얖XXffZZ``RRxxlBBdd^^V@8llj##YY+(h얖XXffZZʴ``HHЮxxlBBhhbdV@8lljddTRʞ얖XXffbbܰhh88xxlBBhhbdV@8lljbb%"f얖XXffbbhh88xxlBBhhbdV@8lljaa!!RP^;In~&7w);ewBUEXꤤXXffZZxxlBBhhbdV@8llj((TT.,s@|9,*TR&#RP/-DBA?ꤤXXhhzLLԮxxlBBhhbdV@8lljII66CA|?~<77HH77EE==>>ꤤVVff^^NNXXbbzx|||zzzxxlBBhhbdV@8lljEE::@>~75DD::BB>>>>ꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8llj,,QQ0.u,,ON33DDBBꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8llj__""Q~OǬ()QP889~9ꤤVVffnNNں¬ppXXDDXXhhbdV@8lljbb$~"m*+HGGGꬮVVffpTTnNNhhbdV@8lljeeU~Sˮ0|-qqꬮVVffpTTpTThhbdV@8llj \\(~&r9RȍꬮVVffpTTpTThhbdV@8lljSS--I~G?eĕ~}PPꬮVVffpTTpTThhbdV@8llj::DD9~7Mu~WW<{<촴VVddnNNľpTThhbdV@8llj66HH6~5`kk˒MM={=AAꬮhjxxzxpTTffbdZD:lljWW**K~I·lUS֭99J|J::<CA.,RP$"UR+)HE<965PP((]]ccWW33==NN%%aa]]**HHDD--\\aa""QQ::77TT!!bbZZ11AAKK''``cc%%LLAA//\\ffVV6699SSee__++EEII((``dd##PP==22YYll( @77?><8<8=92|.wl_aQGCJB6=^/V|N<>;<>=<~;A@=?HXK\K\?|V{zxzaauu^^OMlDC|C==5}+JZ|vmegQTvPLGlD3|*M\xmmnpossԪYYVUQUS2{'Qaxxj{wnoҮ|{٨XYWVOXQ/z"Shz6{+<60y+yoۅUT±Z[VVOWQ3z)N[~;}63{6}vكWV^^TTRQMMWWZYOWQ2{*O\~2v1{w܄[ZɳnnUTPXS2z)P\^qց_^賑NMQ[V2z*O\zef߅[\ڵJHKWP1y)P]qm@AWṢǽָjjjlm-y#Vfy`W>90w)R]|4w+4y.3y&?}Uu}hd/x&Sb}}|묪sqwB|W3{/0z)Q]JZ>::~8EGQ\OZOZOZP\O\P]NZMZLZM[KY=?@?9::90z(2z*1z)2z*1{)2{*2{)3{*3|*4|*4})6},A@88%!-eLM4TC C] 5TC HQ COlB CUMDmissing structure data - must create json using nfCursor2Json4vfp() B.  CL  array contains only values; create json using nfCursor2Json4vfp() or use forceImportFromArray only if you are sure your data contains no memo or binary typesBh %B%T C&T  Insert into  ( T  values ( ( 3%T  C ,!%C DT  ttod(ctot(T)) J( BT  oCursor.rows[m.n,C _] ,:T C C >=) C C >=)T ( &i  T CrJoRow B UCJSONCNAMEFORCEIMPORTFROMARRAYOCURSOR NFJSONREADASTRUCTASARRAY RECORDCOUNT ARRAYOFVALUESNFIELDSII2NWRLWRRNROWSOROWROWSRBqAA AARbAA"RbaRqA"BaARBAAB1%5 `Ps TC% %W G( n G( T-G G GG( FBUXARCHXINICIAL XIMPORTANTEXMSGXALIAS1rbAcaaaAB1%d4)7W{4Q- TC G+(listados C%Cagente gQagente%Ccliaux Qcliaux%Cdespflet QdespfletCConsultando...TC T ccvent.causa$'Vr'"% CX CX % ET  4.and.betw(val(ccvent.cod_cli),val(xdcli),val(xhcli)) ET  4.and.xdcli<=ccvent.cod_cli.and.ccvent.cod_cli<=xhcli"%CX CX %%vWT  F.and.val(xdage)<=val(ccvent.agente).and.val(ccvent.agente)<=val(xhage) CT  2.and.xdage<=ccvent.agente.and.ccvent.agente<=xhage %?_T  N.and.val(xdage)<=val(clientes.vendedor).and.val(clientes.vendedor)<=val(xhage) KT  :.and.xdage<=clientes.vendedor.and.clientes.vendedor<=xhage&%C C3 $ 8T  '.and.betw(ccvent.fec_ven, xdfec, xhfec)% %JT=ccvent.rem_ven#space(12) .and. val(right(ccvent.rem_ven,8))#0 zTm(val(right(ccvent.rem_ven,8))#0 or (val(right(ccvent.rem_ven,8))=0 and ccvent.causa=[V] and ccvent.fcdere=0))%%T   and ccvent.estado=0)TCval(substr(rem_ven,2,2))>% CX CX CX CX   %CqQselect distinct ccvent.cod_cli as codigo , ccvent.causa as causa , ccvent.rem_ven as remito , ccvent.fac_ven as factura , ccvent.fac_ven as comprob , ccvent.cod_fle as cod_fle , ccvent.fec_ven as fecha , ccvent.suc as suc , space(10) as estado , 0000000000 as despacho , space(100) as entrega , space(30) as telefono , space(30) as horario , space(6) as flete , space(6) as oldfle , space(30) as nomflet , ccvent.agente as vendedor , space(30) as nomvend , ccvent.pedido as pedido , {} as fec_ped , ccvent.bultos as bultos , ccvent.arm_cajas as cajas , ccvent.arm_pallet as pallets , space(8) as cp , ccvent.tot_ven-ccvent.des_com as valor , space(40) as domicilio, space(40) as ciudad , ccvent.peso as peso , ccvent.volumen as volumen , "00:00" as dent , "00:00" as hent , (ccvent.tot_ven-ccvent.des_com)*iif( &xdcinlist ,0,1) as base , ccvent.tran as tran , ccvent.ot as ot , ccvent.ref as oc , ccvent.estado as ccvestado, space(100) as plan , space(2) as contado , space(2) as ce , 000000000.00 as litros , 0000 as orden , ccvent.regcot as regcot , iif(ccvent.regcot,"SI", " ") as regcot_txt, space(30) as entcoord from ccvent order by ccvent.rem_ven where ccvent.cod_cli#"0 ".and. ccvent.causa$"Vr" .and. &temp1 .and. &xfiltro_version .and. ccvent.estado=0 and not xtablavacia into cursor q oqXclientes  !Xfletes ""CC(XQCQ1#\tmp\%Cq Q select distinct ccvent.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , ccvent.causa as causa , ccvent.rem_ven as remito , ccvent.fac_ven as factura , ccvent.fac_ven as comprob , ccvent.cod_fle as cod_fle , ccvent.fec_ven as fecha , ccvent.suc as suc , space(10) as estado , 0000000000 as despacho , space(100) as entrega , space(30) as telefono , space(30) as horario , space(6) as flete , space(6) as oldfle , space(30) as nomflet , ccvent.agente as vendedor , space(30) as nomvend , ccvent.pedido as pedido , {} as fec_ped , ccvent.bultos as bultos , ccvent.arm_cajas as cajas , ccvent.arm_pallet as pallets , space(8) as cp , ccvent.tot_ven-ccvent.des_com as valor , space(40) as domicilio, space(40) as ciudad , ccvent.peso as peso , ccvent.volumen as volumen , "00:00" as dent , "00:00" as hent , (ccvent.tot_ven-ccvent.des_com)*iif( &xdcinlist ,0,1) as base , ccvent.tran as tran , ccvent.ot as ot , ccvent.ref as oc , nvl(fletes.tipo,0) as tipofle , ccvent.estado as ccvestado, space(100) as plan , space(2) as contado , space(2) as ce , 000000000.00 as litros , 0000 as orden , ccvent.regcot as regcot , iif(ccvent.regcot,"SI", " ") as regcot_txt, space(30) as entcoord from ccvent left outer join clientes on ccvent.cod_cli=clientes.cod_cli left outer join fletes on ccvent.cod_fle=fletes.cod_fle order by ccvent.rem_ven where ccvent.cod_cli#"0 ".and. ccvent.causa$"Vr" .and. &temp1 .and. ccvent.rem_ven#space(12) .and. val(right(ccvent.rem_ven,8))#0 .and. ccvent.estado=0 and not xtablavacia into table (p_local+"\tmp\"+xarchivo) Q HD  T$ccvent.estado=1 D&T$inlist(ccvent.estado,0,1))TCval(substr(rem_ven,2,2))pselect distinct ccvent.cod_cli as codigo , nvl(clientes.nombre,space(40)) as nombre , ccvent.causa as causa , ccvent.rem_ven as remito , ccvent.fac_ven as factura , ccvent.fac_ven as comprob , ccvent.cod_fle as cod_fle , ccvent.fec_ven as fecha , ccvent.suc as suc , space(10) as estado , nvl(desp.despacho,0000000000) as despacho , space(100) as entrega , space(30) as telefono , space(30) as horario , space(6) as flete , space(6) as oldfle , space(30) as nomflet , ccvent.agente as vendedor , space(30) as nomvend , ccvent.pedido as pedido , {} as fec_ped , ccvent.bultos as bultos , ccvent.arm_cajas as cajas , ccvent.arm_pallet as pallets , space(8) as cp , ccvent.tot_ven-ccvent.des_com as valor , space(40) as domicilio, space(40) as ciudad , ccvent.peso as peso , ccvent.volumen as volumen , desp.dent as dent , desp.hent as hent , (ccvent.tot_ven-ccvent.des_com)*iif( &xdcinlist ,0,1) as base , ccvent.tran as tran , ccvent.ot as ot , ccvent.ref as oc , nvl(fletes.tipo,0) as tipofle , ccvent.estado as ccvestado, space(100) as plan , space(2) as contado , space(2) as ce , 000000000.00 as litros , 0000 as orden , ccvent.regcot as regcot , iif(ccvent.regcot,"SI", " ") as regcot_txt, space(30) as entcoord from ccvent left outer join clientes on ccvent.cod_cli=clientes.cod_cli left outer join fletes on ccvent.cod_fle=fletes.cod_fle left outer join desp on ((desp.remito==ccvent.rem_ven and val(right(desp.remito,8))#0) or (desp.factura==ccvent.fac_ven and desp.causa==ccvent.causa and val(right(desp.remito,8))=0)) order by ccvent.rem_ven where ccvent.cod_cli#"0 ".and. ccvent.causa$"Vr" .and. &temp1 .and. ccvent.rem_ven#space(12) .and. val(right(ccvent.rem_ven,8))#0 .and. &xestadof and not xtablavacia into table (p_local+"\tmp\"+xarchivo) QG2$CAsignando vendedores...%Cborrar<F%QQ#\tmp\%%FG((codageF%G-('>(G-( -FG((codageFG((codcliG-('F%G-( >(G-(FG-(/C"Determinando lugares de entrega...%Ctccvent QtccventF% ~a(%l %>,C h >,CC-, Armado[C-, No se Entrega9C-, TerminadoC-,???6666   !H ! . >, . >,Armado . >,Retira .!>, Entregado%%/!F+G((tccvord E%/%C4~!>%1+2 !>%1%3F%FG((codfle E%"FG((codcli E% %%5+"F6 G((idE% C%5Z T8T9 T:%C%"%;S< y#FG((comprobE%>%?#T8CC@, CATBCTDE TFTG@THA*T9CC 6TIJTKL %%%5S$#T8CC6M, C6NTB6OTD6P TFTG6MTH6N*T9CC6 66TI6QTK6L %%CRS%#T8CCR, CSTBTTDU TFTGRTHST9TIVTKL %#T8CCM, CNTBOTDP TFTGMTHNT9TIQTKL &2T8CC, CM, CNTBOTDPTFTGMTHNTIQT:TKLFG((despacho E%WFG((codfle E"F%>X8YBPDZC%W"6[C%W6\IMCC: C:, 6GNHLK >9 T] T^T_NOd`$ve_sql_remitos_pendientes_de_entregaC%?r %>%b6%?]^_F%7>c^dC]NOSI6e_%fIND+!CCalculando litros...%Cbienes (Qbienes%Cbultos (Qbultos%Cstock )Qstock%Cventas N)QventasF% ~+F%TkCC%bRgF-%k )G((remito E%b )G((ccvfacE%>%?Fj%k *G((remito E%b G*G((ven_facE%>%? Tn To TpL+C+ 9q%bk !r%> ?%? k   +FgG((codins Ejt Tuv%hSD+FiG((codigo EjtjwjxCX Tuv%jtyz+%g{+TnnCCj|uTFjHF% >}nCFinalizando...F%H+^, ~,& bb ~B,& b 2^,& \\%C,9(#)\tmp\rpt_ve_remitos_pendientes_de_entrega ,(\xchg\Q #\tmp\.dbf #\tmp\.fpt #\tmp\.cdx #\tmp\.idx #\tmp\.bakBU XTABLAVACIAXARCHIVO_RESULTADOLISTADOS ESTADO_INIAGENTECLIAUXDESPFLET ESTADO_INCXARCHIVONEWFILETEMP1XDCLIXHCLIP_CLINUMXDAGEXHAGE P_AGE_TIPOP_AGENUMXDFECXHFECP_VE_DSP_VERSIONP_LOGISTICA_VERSIONXFILTRO_VERSIONXDEST XDCINLISTSYS_DOSCEN_INLISTQCLIENTESNOMBREFLETESTIPOTIPOFLECODIGOCOD_CLICOD_FLEP_LOCALXESTADOFBORRARCODAGEVENDEDORNOMVENDALLCODCLITCCVENTESTADOCCVENT CCVESTADOPEDIDOTCCVORDFEC_PEDFEC_INIFECHACODFLESUCSUCURSALIDXENTREGAXNOMBREXNOMENTTARJETAP_VE_DSP_VERSION2COMPROBFACTURACAUSAENTDOMENTCIU XTELEFONOENTPHOXHORARIOENTHORXNOMFLE XDOMICILIOXCIUDADXCPENTZIP XENTCOORDENTCOORD DOMICILIOCIUDADPHONOHORARIOCOD_ZIPDOM2CIU2PHO2HOR2ZIP2DESPACHOENTREGATELEFONOFLETENOMFLETCPXPLAZOXDESCRXCE PLAN_COBRANZA$VE_SQL_REMITOS_PENDIENTES_DE_ENTREGAREMITOPLANCONTADOCEP_EMPBIENESBULTOSSTOCKVENTASXIS_FACCCVFACVEN_FACXLITROSXPESOXVOLUMENREM_VENFAC_VENCODINSCOD_INSXFACTORFACTORBULATROBIEDATA_CODIGO_VACIOLINEA RECEPCIONLITROSXDORDP_SERVERFG((ccvfac E%Ccondcobr hQcondcobrF G((plan E% '%Cplanvarc QplanvarcF G((id E(TC   6T  i(TC 6T"TCSINO6BUXCOMPROBXCAUSAXPLAZOXDESCRXCECCVENTCCVFACCONDCOBRPLANVARIABLEPLANVARCIDC1PC1DPLAZODESCRP1A1ENTREGA plan_cobranza>22"!A!AAA"QQAA"q1AAAAbA<K:A3Us'Api"AzBD11bArBBkBrqAAqrbrrrbraB1Av24!XA111111aABcq1A1ArwrbqQA$r12a222BAA"Arrr CstAe!A!AqA!Arsr1Ar1ArBqBbACrAArBBr11!!AABD4qsAAr"AArA"B1=WLO0%SU{zQ G+(listados CCConsultando...TCCSelecta)TCval(substr(rem_ven,2,2)) %- <%Cq1_despQ&odesp q1_desp+SELECT ccvent.cod_cli AS codigo , NVL(clientes.nombre,SPACE(40)) AS nombre , ccvent.causa AS causa , ccvent.fac_ven AS factura , ccvent.rem_ven AS remito , ccvent.cod_fle AS cod_fle , ccvent.fec_ven AS fecha , ccvent.suc AS suc , IIF(ccvent.estado=1,"Armado"," ") AS estado , NVL(desp.despacho,0000000000) AS despacho , SPACE(100) AS entrega , SPACE(30) AS telefono , SPACE(30) AS horario , SPACE(6) AS flete , SPACE(6) AS oldfle , SPACE(30) AS nomflet , ccvent.agente AS vendedor , SPACE(30) AS nomvend , ccvent.bultos AS bultos , ccvent.arm_cajas AS cajas , ccvent.arm_pallet AS pallets , desp.dent AS dent , desp.hent AS hent , desp.fecha AS fechadesp, ccvent.pedido AS pedido , (ccvent.tot_ven-ccvent.des_com)*IIF( &xDCInlist ,0,1) AS BASE , desp.orden AS orden , ccvent.regcot as regcot , IIF(ccvent.regcot, "SI", " ") as REGCot_TXT, SPACE(30) AS entcoord , desp.nota AS nota , .f. as Sel FROM ccvent LEFT OUTER JOIN clientes ON ccvent.cod_cli=clientes.cod_cli LEFT OUTER JOIN q1_desp desp ON ((desp.remito==ccvent.rem_ven AND VAL(RIGHT(desp.remito,8))#0) OR (desp.factura==ccvent.fac_ven AND desp.causa==ccvent.causa AND VAL(RIGHT(desp.remito,8))=0)) ORDER BY ccvent.rem_ven,ccvent.fac_ven WHERE ccvent.cod_cli#"0 ".AND.ccvent.causa$"Vr" and desp.despacho=xdesp INTO TABLE (p_local+"\tmp\"+xarchivo) %Cq1_desp8QQG2$CAsignando vendedores...%CborrarF Q Q \tmp\ F % FG((codageF G-(>G-( FG((codageFG((codcliG-(F G-(>G-(FG-(/C"Determinando lugares de entrega...F ~ FG((codfle E FG((codcli E % Q F G((IDE C Z T% %  F!G((comprobE # $#TCC!%, C!&T'!(T)!*T+!,  "%-S  #TCC., C/T'0T)1T+,  %  #TCC., C/T'0T)1T+,  %C23r #TCC2, C3T'4T)5T+,  #TCC., C/T'0T)1T+, K 2TCC, C., C/T'0T)1T+,F6G((despacho E FG((codfle E6F R>78'1)96:6;,+CFinalizando...F 0( \tmp\rpt_ve_remitos_por_despachoQ  \tmp\.dbf  \tmp\.fpt  \tmp\.cdx  \tmp\.idx  \tmp\.bak C<BU=LISTADOS ESTADO_INI ESTADO_INCXARCHIVONEWFILESYS_MOSTRAR_SCREEN XDCINLISTSYS_DOSCEN_INLISTQ1_DESPDESPDESPACHOXDESPBORRARP_LOCAL P_AGE_TIPOAGENTECODAGEVENDEDORNOMVENDNOMBREALLCLIENTESCODCLICODIGOFLETESCODFLECOD_FLESUCSUCURSALIDXENTREGAPROPIOP_VE_DSP_VERSION2CLIAUXCOMPROBFACTURACAUSAENTDOMENTCIU XTELEFONOENTPHOXHORARIOENTHOR XENTCOORDENTCOORDTARJETA DOMICILIOCIUDADPHONOHORARIODOM2CIU2PHO2HOR2DESPFLETENTREGATELEFONOFLETEOLDFLENOMFLET ESTADO_REL!DsAbbABBbBrqAArqrbrrrbraBtsrbqQA"2s12#1a222BAAB"Brrr(BrAB1%V$7'\$ccR%m(CAbriendo tablas"T\tmp\CC]R ve_pedidoaG+(listadosG+(dey_funcG+( dey_filtersT C T C FXh1  N  DN N CC(NCC C DCCCNCNNNN  N!Cd"Cd#C $C%C2&C2'C(C)C*N+N,C(-C<.C(/N 0C1C2N 3Cd4C5N6N7T8C9T:T;C<N =N>N?N@NALQQ B CC TDFB& TE ~% E >* TE %TDD TFD  TF >FFB(CExportando datos finalesG2("\tmp\rpt_ve_remitos_por_transporteQBUHOESTADO SET_AND_SHOW XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOLISTADOSDEY_FUNC DEY_FILTERSXBORRAR2NEWFILE_LOCAL_TMPXBORRARDES_NUMDES_FECPED_NUMPED_RESCLI_CODCLI_DESCLI_SUCCCV_CAUCCV_FACCCV_REMCCV_FECCCV_FLEFLE_CODFLE_DESAGE_CODAGE_DESCAN_BULCAN_CAJCAN_PALCAN_PESOCAN_LITENT_DIRENT_CIUENT_ZIPENT_PRVENT_TELENT_HORDENTHENT ENTREGADOIMPORTEBASETERCEROENTREGACIUPROVTRANOTOCDESPLAZPLANCONTADOVALDECLORDENINICIOHINICIOLSALIDAHCIERREHCIERRELCOSTOHHORASOTROSVALCOEFICCOMPLTRF2 TMP_DESPACHOSPROCESARXNRXDESPOLDXPED_RESAVANCEFG-(G((codageFG-(G((codcliFG-(G((codfleFG-(G((codigoFG-(G((codinsF G((ven_facG-( G-( CX%FG-( FG-(FG-(G-(G-( T.t. +TCccvent)TCFechaDespCabriendo archivosa%%   ! %Cabriendo archivos p_dosa%Cccvent2DF"Q0Q#\data\CC Z\ccvent"%Cventas2F$Q0Q#\data\CC Z\ventas$F$G((ven_facG-( G-( CX%8F"G-( XFG-(F"G-(G-(G-($T%.t. +T%Cccvent)T%CFechaDespF&G((despachoF(G-('&'T)between(fecha,xdfec,xhfec)%C* C+ >T))-.and. between(despflet.cod_fle, xdfle, xhfle)%,- 7T))& and betw(desp.despacho, xddsp, xhdsp)H .].T)).and. inlist(desp.estado,1,3) .$T)).and. desp.estado=3 .$T)).and. desp.estado=1H / /D>T))- AND (despflet.horas#0 and despflet.costoh#0) /=T)), AND (despflet.horas=0 or despflet.costoh=0)C scan generala0&COUNT FOR &xfiltro2 TO xCuentaSCAN ?CAnalizando despachosC0 0612#C scan general CC0ZaSCAN FOR &xfiltro2C14a13 T5%CC(6Rg3%   ! C(67 mF"G((remito E(6%C(8 \%C4X+C+ 9(6 T%(8L!H T5 FG((remito E(6 G 3%   ! C(87  F"G((ccvfacE(8( T5 C FG((ccvfacE(8(%C a . T; T<,=Cr96;<%5 T>ccventT?ventas T@ 0 T>ccvent2T?ventas2 T@2%C5Cccvent4 Cccvent246+aH  @ T>ccvent2T?ventas2FA ^JB&TBCC;NOSI6TBD<TBE('TBF(G-TBHC(H00:00(H6-TBIC(I00:00(I6oTBJCKQCC>.estadoSI-C('&' &L SINO66--6TBM(M F>TBNOTBPTBQRTBSTTBUTBV9TBWTBXYTBZTB[[TB\(GYTB]]TB^^TB_`TBabTBcdTBefTBghTBijTBkRTl TmCr96 Tn To Tp Tq Tr Ts Tt Tu Tv TwHxve_armar_despachomnopqrstuvwTBzrTB{sTB|vTB}wTB~tTBuHTBCr d 6C6CTBCr d 6C6TBo?TBCsCCsCCw , 6Cw6TBqTBTB F?%IND+C+ l  T%dSGT aT% %TCCTTBB F?H8Cloop en tmp_despachosC tmp_despachosNdFA_JBC%@C>.compl C>.trf2  3%C>.causarC>.no_fc ! %(r$8%CZC(8\(ccvent2ccvfac T@.  ! F G((remito E(68%CZC \ ccvent2ccvfac T@. ! !Ctermin el scana C1+CAgregando datos adicionales13FAFG-(FG-(F&G((despachoFAG-(AE&C scan finala2~CC*C+ aC&*+6FG((codfle E&FAE>&C&X NO SE DESPACHARONR6x>&&&&&&&&&>&BUAGENTECODAGECLIENTESCODCLIFLETESCODFLESTOCKCODIGOBIENESCODINSVENTASVEN_FACCOD_INSBULATR P_AGE_TIPOCCVENTVENDEDORCOD_CLICOD_FLEFAC_VENCAUSAXFILTROFIL_GET_CLI_FILTERXDCLIXHCLIP_CLINUMFIL_GET_FEC_FILTERXDFECXHFECSYS_MOSTRAR_SCREENXDCONP_DOSP_CODEMPCCVENT2P_SYSTEMVENTAS2X2FILTRODESPFLETDESPACHODESPXFILTRO2XDFLEXHFLEXDDSPXHDSPXDESTXDVAL XCUENTASCANOESTADOPUSHAVANCEVALUEXDATOSREMITO SYS_DOSCENFACTURAREM_VENCCVFACXPLAZOXDESCR PLAN_COBRANZAXCCVENTXVENTASXCOMPLE2 TMP_DESPACHOSXOBJCONTADOPLANDES_NUMDES_FECFECHADENTHENT ENTREGADOP_TIPO_DESPACHOESTADOORDENPED_NUMPEDIDOCLI_CODCLI_DESNOMBRECLI_SUCSUCCCV_CAUCCV_REMCCV_FACCCV_FECFEC_VENCCV_FLEVALDECLDESPLAZTRANOTOCREFCAN_PESOPESOCAN_BULBULTOSCAN_CAJ ARM_CAJASCAN_PAL ARM_PALLETAGE_CODCOD_AGEAGE_DESXIDFACXCOMPROBXCAUSAXENTREGAXNOMBREXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVDIRECCION_DE_ENTREGAVE_ARMAR_DESPACHOENT_DIRENT_CIUENT_ZIPENT_PRVENT_TELENT_HORBASETOT_VENDES_COMCOMPLXDACUDTOACUIMPORTEDEUDAENTREGACIUPROVTERCEROTRF2P_EMPXLITROSXFACTORFACTOROBIEDATA_CODIGO_VACIOLINEA RECEPCIONCAN_LITXCOMPLPOPFLE_CODFLE_DESCOSTOHINICIOHINICIOLSALIDAHCIERREHCIERRELHORASOTROSVALCOEFICM%Ccondcobr AQcondcobrF G((plan E%%Cplanvarc QplanvarcF G((ID E(TC    6T B(TC  6T BUXCOMPROBXCAUSAXPLAZOXDESCRCONDCOBRPLANCCVENTVARIABLEPLANVARCIDC1PC1DPLAZODESCRP1A1procesar# plan_cobranza"%"!Qp5ANq2A2AAr"AG2rarararasatqqAsATQqAAqAArqqArABtrrAqA11A1AA111Aqa2Q2qRaAAAABBqA2q1q1AA"AA311AAA"1AAArb1111r211211bqAaaAArAAAqQ22BrABAqABBABABAAAqsarasr!!qrSDD21AAr"AArAB1&<F=O?t%zj\Civ4%CQ0FQ%CQ1RFQotccventQcompromQ pedidos_pendientesQclientesQ        a q1=oq1XbienesQ XbultosQ !XatributoQ !XdepositoQ #CCCC  C6CCC  C6QQq% qqCg% qqCCgȫ% qqCCg,% qqCCg8($'\tmp\rpt_ve_rpt_cumplimiento_de_pedidosFQFQBU%X1X2X3X4QQ1TPEDIDOCOD_CLICLNOMBRECTCCVENTCOMPROMPEDIDOS_PENDIENTESPCLIENTESIDEST_DESPTILDECODATRBULDEPDESCRATBUDE DDEPOSITOBIENESBCOD_INSBULTOSCLAVEATRIBUTODEPOSITOP_LOCAL1"qAA2qAA QAAAArArAB1%#*K<ǀ CCInicializando... TCC]RTCC]RTCC]RTCC]R%Tdesp.conforme=0 T.t."%CX CX % gYTH.and.val(xdcli)<=val(ccvent.cod_cli).and.val(ccvent.cod_cli)<=val(xhcli) ET4.and.xdcli<=ccvent.cod_cli.and.ccvent.cod_cli<=xhcli"% CX CX % HYTH.and.val(xdfle)<=val(ccvent.cod_fle).and.val(ccvent.cod_fle)<=val(xhfle) ET4.and.xdfle<=ccvent.cod_fle.and.ccvent.cod_fle<=xhfle% 5T$.and.betw(ccvent.pedido,xdped,xhped)% I5T$.and.betw(desp.despacho,xddsp,xhdsp)CConsultando 1 ...! ve_conformesC Exportando...F%(\tmp\rpt_ve_conformesQBU ESTADO_INI ESTADO_INCBORRAR BORRAR_DETABORRAR1ERRORESXDTIPFILTROXDCLIXHCLIP_CLINUMXDFLEXHFLEP_FLENUMXDPEDXHPEDXDDSPXHDSP OBTENER_DATOS VE_CONFORMESTMPP_LOCALQQQrQ3A"QAA"QAAQAQAPtQBB1%4%3G_ G~(clases < 7 TTC abm_rcc_datosNTCU- BBU PTIPORCCDATOSCLASES POABMRCCDATOS XTIPORCCDATOS SOLO_LECTURAACCESOSHOW] ges%Crccdatos <FQrccdatosFG(BUGESRCCDATOSTIPO XTIPORCCDATOS4%CxCodigobNq% m/C Debe estar en ser mayor que 0!!!xB-BaUXCODIGO openfilesusr_vld_codigoaTrccdatos T-$TDatos del Resumen de CCTrccdatosTNombreTdescrTdescrTcodigoTcodigoT hlpT  abmrccdatos T - T F T TcodigoTcodigoTCdigo Ta T U DOS_TABLA DOS_COPIARTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1TABLA_FILTRADATIPO XTIPORCCDATOS abm_rcc_datoshlpabm2HqaQBD2BrA1q1qAAr5SBQ1!!21111< Q8?&E$%NU@P=aT TTBAT C T TT TInicializando...T aT C h1 \tmp\  CC(C(DCCNNN CDN N NNNNNC C#!C("C #C $D%D&C'N(C)N*CQFQ \tmp\ +F,G((nombreT- \borrarT..t. C/%0 % C1 ' T2T3----- T4 T5 T6 T7 T8F,<9>oproveedoCC+ C;CX ;a6 9% T<C9  T<"TC<<6T %=; =CX G((codpro E= #)+C+ #T5T Proveedor : [C, ] C, T?- C@F,T22HFAG(F,G(F+BCDE TB TC TDF("TBB,"CFA ""TCC,"CFa "TD,"Z","z","","" TG- ~THC TGaF(CH>TECHF\\if inlist(xcar &xletras1) or inlist(xcar &xletras2) or inlist(xcar &xletras3) then TG-!%G>#CCCC gZ  ># >$C$%JK 3octacte CQ tmp_res& LF+G-( L%JF++L%KF++CLCKF+8( (\tmp\rpt_cm_ctacte_proveedores_detallada%Ctmp_resnFLQ%NTO ctacte.Nombre %PTOVal_cod TOctacte.cod_pro%Q# TO prv.cat2, O[select ctacte.*, prv.cat,val(ctacte.cod_pro) as val_cod, prv.cat2 as cat3, iif(prv.cat2=0,"Sin identificar",nvl(cp2.descr,"No encontrada")) as cat3_desc from ctacte left outer join proveedo prv on prv.cod_pro==ctacte.cod_pro left outer join catpro2 cp2 on cp2.codigo==prv.cat2 group by ctacte.cod_pro order by &xdordenr into cursor ctaresumen m( &\tmp\rpt_cm_ctacte_proveedores_resumenCKCCKa6CJ Ca6 QF+QF,G(G!(  \tmp\ .dbf  \tmp\ .idx  \tmp\ .cdx  \tmp\ .bakBURXDVENXHVENXDMON USE_FILES OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEBORRAR1NEWFILEP_LOCALCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITSVAL_CODFECESTFEC_EMBRECIPROVMONEDAMONTXTCOEFICDIVISASCTACTEPROVEEDOTEMPFILTRO CREA_FILTROXDRESRESUMENACCXSEPOLD XCED_X_PRO XCED_X_SEP XCED_X_LIS XSAL_X_SEP XSAL_X_LISARR_TMPCOUNTXHPROTRECXDPROCODPROINICIALCUENTA_CORRIENTECCPROVXLETRAS1XLETRAS2XLETRAS3XCARNITXCODNUMXSVALCODFORXDCEROXDCERO2TMP_RESINXDORDXDORDENRP_PRONUMXSEPCAT3 T T T- T T-FHU r C  C%  C FBU SALANTACCPROENCABEZO XCED_X_PROXMOVSCCPROVXDTIP POR_FECHAPOR_COMPROBANTEXDCHEVALORES0)TCP C6BUSALANTCAUSA FN_IMPORTEIMPORTE)TCP C6)TCP C6)TCP C6%)TCP C6)TCP C6)T  CP C6BU ACCPROCAUSA FN_IMPORTEIMPORTE XSAL_X_SEP XSAL_X_LISXCEDIDO XCED_X_PRO XCED_X_SEP XCED_X_LIS%iVrctacte     Saldo AnteriorC6Cc6NCC XCXCZ TaBUSALANTCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITPROVEEDOPHONO DOMICILIO INSCRIPCIOENCABEZOP%CC (CZCZCZCZ rTC] T -BaB-U CAUSAREFCAUCUOOPRCOMPROBCUOTAOP GRUPO_ACTUALXCEDIDO% C%Cc Ta%R T- T  T- T-%PTCH CT FC r T RE Oa% C XDT AJ ]T CP cT NC dT ND 1T CP 2T DP LT AS A3T AJ IVT IT PyT OC 2T XXT C T  Tlistados  T%C4 T TT K T)TCCP6TC6 TCc6%OTC  Trctacte !"#$%&' ()*+,-./01234567778   #C$ $6% '9C,SN6C:;<C=Z7>7?0@13C3AC5 _B56C@BSSINO6 T-BUCINIC ENCABEZARES_CABEZA_GRUPOPRIMEROINICIALXSCAUSA FN_IMPORTEIMPORTEXCCOMPROBTEMP1 FN_COMENTARIODSPCNDCND_DSPPLISTADOSOLDXDSPAAABBBDESPLAZPXDEBCREDADELANTOXDEBXCRECCPROV XRECIPROVBUSCAR_RECIPROVCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCDEBEHABERPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITFECESTFEC_EMBRECIPROVMONEDAMONTXTCOEFICDIVISASPROVEEDOPHONOACCPROFECREFREFCAUCUO DOMICILIO INSCRIPCIOCCCOMP FN_MONCCPDIVM%Cccprov *Qccprov%Cccpag VQccpag%Cproveedo QproveedoFG((nombre%Cidx04 Qidx04FG((idx04%S B%Ccccomp ,QcccompF G((opBU CCPROVCCPAGPROVEEDONOMBREIDX04XDFCOP_CM_FEMBARQUECCCOMPOP"%CX CX %{JT9.and.betw( val(proveedo.cod_pro), val(xdpro), val(xhpro)) IT8.and.xdpro<=proveedo.cod_pro.and.proveedo.cod_pro<=xhpro% 5AT0.and.xdcat<=proveedo.cat.and.proveedo.cat<=xhcat% HT7.and. xdcat2<=proveedo.cat2 .and. proveedo.cat2<=xhcat2%  HT7.and. xdcat3<=proveedo.cat3 .and. proveedo.cat3<=xhcat3H 1 AT0 .and. (proveedo.pais # 1 and proveedo.pais # 0) @T/ .and. (proveedo.pais = 0 OR proveedo.pais = 1) 2/T .and. (proveedo.pais = xdpai)F % CX ~G((codproG( #Tproveedo.cod_pro=xdpro  TT""GIH '%#T+str(val(cod_pro)) #T+cod_pro RT+nombre %*T+ciudad+str(val(cod_pro))  T+ciudad+cod_pro'index on &xxx to (temp) for &filtro GI BUXDPROXHPROP_PRONUMFILTROXDCATXHCATXDCAT2XHCAT2XDCAT3XHCAT3XDPAIPROVEEDOCODPROCOD_PROXXXXDORD^ TwoccprovXcccomp   CQccpF% SA& C PZA6C  C ZCZ .A& C PZA6C  C ZCZ %COG(C S Ccd123   6 `G(HC S Ccd123   6 %N}%CC;G( P yTC.and.causa#'P'set filt to &xfilt % S #)TCccpN T T<+C+ C S6  L)TC P C6 CH%Vrctacte  !"#$%&'()*+Saldo AnteriorC6Cc6NCC XCXCZ,- T.T/ sdfsdfsds T0a^+C+ =C S Ccd123  6  '%/  C ZCZ%0 F1P>$C..6%C. .c6.'F%0 VVrctacte  !"#$%&'()*+Saldo AnteriorC6Cc6NCC XCXCZ,-'%/  C ZCZ H^  CT2FC rT2RE O-% C XT2AJ )T2CP cPT2NC dsT2ND 1T2CP 2T2DP LT2AS AT2AJ I" T2IT PE T2OC 2^ T2XXT3C4% O T5C6  T5rctacte  !()*789:;<=+C S 62  C 63!CSN6C  C Z,-785:C:>C< _B<6C?SSINO6!T/  C ZCZ T. T0-)T..C P C6 CH%0 S F1P>$C..6%C. .c6.'FBU@XCOD_PROPROVEEDOCOD_PROCCPROVCCCOMPFEC_DGIFECHAOPCCPXDFCOCAUSACOMPROBCUOTAPORFECCXDTPCXHFECCANCELXDPSNXFILTP_CM_FEMBARQUEXMOVSSALANTACCPROXDFEC FN_IMPORTEIMPORTE ACUMULADORESNOMBRETELEFONOCPBTNUMEROMAXCUO COMENTARIOVENCCNDDSPDEBEHABERPARCIALSALDO REFCAUCUOPRO_DIRPRO_CUITPHONO DOMICILIO INSCRIPCIOACCIMPXIDINICIALCTACTEXCTEMP1 FN_COMENTARIO XRECIPROVBUSCAR_RECIPROVFECESTFEC_EMBRECIPROVMONEDAMONTXTCOEFICDIVISAS FN_MONCCPDIVWFG(%CG((porfacc%BAVG(CSCcd123    6 v%BAMT  %Ccccomp F QcccompF G((opFG-(r( \borrar1 NCSCcd123    6 FQ \borrar1u& CZCZC CZCZ CZCZAZ6 \borrar1& CPZA6CCZCZCCZCZCZCZC AB6C / / #"& CZCZT TTPge02;G((porfacpG((porfacpG(%S G-( TC% N2%CCG(P .TC.and.causa#'P'set filt to &xfilt G E G T!  T" T# T$ T%a T&a T' T(- T)+C+   T*- T+- %,% %-1V%C.CCSCcd123   6,   T+a C/ C0H'+C+  C.  C/ C0H T*a Y%CSCcd123    6,  T+a C/ C0 %+  T%- C0 C1%* H%%" %CL%,BAHF QccprovBU2CCPROVXDTPCPORFACCXHFECXDFCOCAUSACCCOMPFEC_DGIOPFECHAXXXPROPROVEEDOCOD_PROP_LOCALREFCAUCUOOPRCOMPROBCUOTATESTFECREFPORFACPCANCELXCOD_PROXTIPOXDTIPXPENDREPAIRGE02P_CM_FEMBARQUEXFILTXDPSNXMOVSSALANTACCPROXSSALINIINIC GRUPO_ACTUALXCEDIDOOLDYA_HICE_EL_SKIPES_ANTXDFECXDTISES_CABEZA_GRUPO SUMAR_SALSUMARIMP_MOV0%CCMgCCMg ; T- P Ta Ta TFG((chequeGGF ECGFG %C+ t+C+  p%%  C  T-FT 8rctacte   CHC@z 999,999,999_ !  "NCBAC@z 999,999,999_ZCZFHBU#ATRCANDOCSINIVALSALCHCOM_OPERCHEQUEPROVEEDOCOD_PROXDCHEENCABEZO ENCABEZARCAJ_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPHONODES_VAL DIF_VALORACCPROt%P@TCTC)TCP C6BUCAUSA XSAL_X_SEP FN_IMPORTEIMPORTE XSAL_X_LISACCPRO,4"BCUXIMPORTEFN_CALCXDMONMONEDACOEFICFECHAMOTIVO@-cm_ctacte_proveedores_detalladaJ BUOFORMCM_CTACTE_PROVEEDORES_DETALLADAK)CU XDFECXHFECXDCLIXHCLIXDTPCXDTIPXMONEDAEJECUTAR_REPORTEXDNUM1+    T C %CxdfecbDsT %CxhfecbDT %CxdprobCT %CxhprobCT %CxdtipbN/T %Cxdnum1bN_T %CxmonedabNT T T aH  T -T C      XT a   bx  c%Cbc  T - B U XTIPO_REPORTEXDFECXHFECXDPROXHPROXDTIPXDNUM1XMONEDAXDLOG1OFORM XNO_RELEASEXRETURN OBTENER_FORMXDMONMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR  TCWFG((comprobETRC:C%CC-g T F BUXAREA XRECIPROVCCPAGCOMPROBCCPROVCAUSARECIPROVXTccprov.motivo#2%N]&T and ccprov.causa#'P'%Sselect ccprov.cod_pro , sum(ccprov.importe) as importe , proveedo.nombre as nombre , proveedo.phono as phono , proveedo.domicilio as domicilio , proveedo.inscripcio as inscripcio from ccprov left outer join cccomp on ccprov.op#0 and ccprov.op=cccomp.op and cccomp.cod_pro=ccprov.cod_pro , proveedo group by ccprov.cod_pro, proveedo.nombre, proveedo.phono, proveedo.domicilio, proveedo.inscripcio where proveedo.cod_pro=ccprov.cod_pro and iif(ccprov.causa$'Ccd123' and cccomp.fec_dgi#{}.and.ccprov.op#0,cccomp.fec_dgi,ccprov.fecha)<=xhfec and &filtro and &xfiltro2 into cursor ccp readwrite select ccprov.cod_pro , sum(ccprov.importe) as importe , proveedo.nombre as nombre , proveedo.phono as phono , proveedo.domicilio as domicilio , proveedo.inscripcio as inscripcio from ccprov , proveedo group by ccprov.cod_pro, proveedo.nombre, proveedo.phono, proveedo.domicilio, proveedo.inscripcio where proveedo.cod_pro=ccprov.cod_pro and ccprov.fecha<=xhfec and &filtro and &xfiltro2 into cursor ccp readwrite C Suspendo?a ~MZrctacte     C 6C c6NCC XCXCZBUXFILTRO2XDPSNXDFCOSYS_MOSTRAR_SCREENCOD_PRONOMBRETELEFONOFECHACPBTNUMEROCUOTAMAXCUOOP COMENTARIOVENCCNDDSPDEBEHABERIMPORTEPARCIALSALDOCANCEL REFCAUCUOPRO_DIRPRO_CUITCCPPHONO DOMICILIO INSCRIPCIO7-BCCCXXX6UXMONEDA MM_MONEDA%L.BCC 6 (%0  S k BC %C BC  BCBUCAUSACONDCOMENTARCOD_PROPROVEEDOTARJETADES_PROVcuenta_corriente| sumar_salsumar encabezares_cabeza_grupoimp_mov use_files crea_filtro por_fecha$$por_comprobante2valores; acumuladores;? fn_importe? obtener_form`@ ejecutar_sql@ejecutar_reportepAbuscar_reciprovEresumenE fn_monccpIM fn_comentarioM11AAr!tw"A"QAqQrAACsarar4!!AQAAAAAQ4rqQA1qABrqAA4AAAA@AuAraaB2r12BArB3A2AB22bAB2qAq2AAACeDAAAQAAAAAAAAAA0ArAB3!ArAAAqrAq!AqAB2%AAAAA1A1Aw2e11A11AAqaBA2zvAABABAaAABXbBA2fAautrAAeAvAAAQAAAAAAAAAArABBAuqBA4taEaAAqr#rR "QBCQBABAaAAeaTDdArAAFBAABAABCBqAAB2 Auba!aaABrrAAAB3AaaAA2q!2q33AAAAAAA1Q1111AA3r1A2rBaAB(ArAC2q3AQAAAB1`1DGm5uK_!{!""00a20y2?9OLU9+OGOdt&d?iR9Xij@*jjCjGkGlkkJlpxq!r5rzz{z(z{.%vsxj!G] 'TC p_numlargosbL G+(listadosTP% TCXTCXTCXTCX T  T  T  T  T  TTTBA T TTC TTPTCF?G((nomcliTA6\borrarTB.t. CCF?G-(DE % CX  E #) TFTG----- TH TI TJ TK TL TM TN TOP=Q=J(PQ TRB TS TTB TUa*TVFecha : CC$* Hora : C^H(h H TWt h TW TX TYZlistadosXYW TT+(C12345A %X6-+C+ CCX [a6  %RT%\ T]-HE.  X %GD+T^ VENDEDOR : [CD] _ T]a TGD Q%G`@JT^ZONA : [CC`Z] C` C`< Desconocida6 T]a TG` %GCaZOT^ CATEGORIA : Caa< CCab Desconocida6 T]aTGCaZ x %GCcZe LT^C:f : [CCcZ] Cc Cc< Desconocida6 T]aTGCcZ  %GCdZ LT^C:f : [CCdZ] Cd Cd< Desconocida6 T]aTGCdZ  %GCeZ LT^C:f : [CCeZ] Ce Ce< Desconocida6 T]aTGCeZ . %GCfZ LT^C:f : [CCfZ] Cf Cf< Desconocida6 T]aTGCfZ%] %U Cg TF TS TRd\C^WTRR TI TK TU- ChF?TFFH%U = Cg Cg$C12345A&6R GG(G*G ON ESCAPE &ONESC T56 \temp.txtidosprtPBUk HASSETTED XNUMLARGOS P_NUMLARGOSLISTADOSXDPRNXDCLIXHCLIXDAGEXHAGEXDZONXHZONXDCATXHCATXDLISXHLISXDFECXHFECXDORDXDTIPXDTPCXDRESXDFORXDVENXDCHEXDDCSXDRAYXDPSNXDSEPXDTISXDCEDXDBANXDANAXDREMXDMON CRITERIOSXDPEDXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICAXTABXTITMAXARRARRTABLAS USE_FILESCLIENTESNOMCLITEMPFILTRO CREA_FILTROVENDEDORAGENTEACCXSEPOLD XCED_X_CLI XCED_X_SEP XCED_X_LIS XSAL_X_SEP XSAL_X_LISXTOT_FCXTOT_RCXTOT_OTXTOT_NCXTOT_NDLINPAGMAXLININICIALXTEMPANCHOTAMMARGENMARGTAMCOD_CLIHEADEROKYYYNOMBREZONACATI_TABA1A2A3A4RESUMENCUENTA_CORRIENTEDOSPRT_IMPRIMIRDOSPRT= TT,C12345A 61TC Pgina : CCZC> -CCUENTA CORRIENTE DE CLIENTESCXCXH%  T TCFecha TCCp !TCNmero  TCCta TCLi TCSuc  TCNotas !TCBultos  TCVenc. 6TCImporteC 6 /TCSaldoC 6  TTC-Q TC-Q TC- Q TC-Q TC-Q TC-Q TC-Q TC-Q TC-Q 0TC-C 6Q +TC-C 6Q  % T TCFecha TCCp !TCNmero  TCCta TCLi TCSuc 3TCNotasC 6 % /!TCBultos  TCVenc. TCCnd TCDsp 4TCImporte C 6 4TCParcial C 6 -TCSaldo C 6  TTC-Q TC-Q TC- Q TC-Q TC-Q TC-Q /TC-C 6Q % >TC-Q TC-Q TC-Q TC-Q .TC- C 6Q .TC- C 6Q )TC- C 6Q  TBU LINPAGXDPRNINICIALFORMFEEDTEMPANCHOXTEMPXDTIP XNUMLARGOSTCreporteN&CDestino............&CCliente............&CVendedor...........&CZona...............&C Categora..........&C Lista..............&C Fecha..............&C Orden..............&C Tipo...............&CSeparacin.........&CPendiente/Completa.&CTotales............&CCheques A Vencer...&CTipo de Saldo Inic.&CMoneda.............&C<Filtro Especial....&C<Vto. Comprobantes..&C<Db-Crd-Saldo.....&C <Separacin Cbtes...&C <Incluye Pedidos....&C <Slo Cedidas.......&C <Banco..............&C <Para Anlisis......&C<Incluye Remitos.... T|Cxdprn@!J[P]=Pantalla, [1]=Lpt1, [2]=Lpt2, [3]=Lpt3, [4]=Com1, [5]=Com2 o [0]=Salirxdprn$'P123450'JCxdcli@!Presione para ayuda.hlp_cli(xdcli)JC(xhcli@!Presione para ayuda.hlp_cli(xhcli)NCxdage@!Presione para ayuda.hlp_age(xdage,'V')NC(xhage@!Presione para ayuda.hlp_age(xhage,'V')OCxdzon@z 999Zonas de 0 a 999.0<=xdzon.and.xdzon<=999OC(xhzon@z 999Zonas de 0 a 999.0<=xhzon.and.xhzon<=999PC xdcat@z 99Presione para ayuda.hlp_catcli(xdcat)PC (xhcat@z 99Presione para ayuda.hlp_catcli(xhcat)MC xdlis@z 99Listas de 0 a 99.0<=xdlis.and.xdlis<=99MC (xhlis@z 99Listas de 0 a 99.0<=xhlis.and.xhlis<=99<C xdfecFecha de Comienzo del listado.:C (xhfecFecha de Cierre del listado.LC xdord@z 9Presione para ayuda.hlp_ord(xdord)LC xdtip@z 9Presione para ayuda.hlp_tip(xdtip)MCxdsep@z 99Presione para ayuda.hlp_sep(xdsep)iCxdtpc@!![P] = Pendiente o [C] = Completa. xdtpc$'PC'Debe responder P o C !!!LCxdres@z 9Presione para ayuda.hlp_res(xdres)Cxdche@!=[S] = Con detalle de los cheques a vencer, [N] = Sin detalle. xdche$'SN'Debe responder S o N !!!Cxdtis@!>[1] = Saldo Comn, [2] = Saldo Contable. (Slo para el tipo 2) xdtis$'12'Debe responder 1 o 2 !!!LCxdmon@z 9Presione para ayuda.hlp_mon(xdmon)dCRxdfor@s181Frmula sobre los campos del archivo de Clientes.formula(xdfor)GCRxdven)Fecha de vencimiento de los comprobantes.{CRxddcs@!3[S] = Dbito, Crdito y Saldo, [N] = Importe/Saldo. xddcs$'SN'Debe responder S o N !!!C Rxdray@!G[S] = Separa los comprobantes con una lnea en blanco, [N] = No separa. xdray$'SN'Debe responder S o N !!!mC Rxdpsn@!%[S] = Con pedidos, [N] = Sin pedidos. xdpsn$'SN'Debe responder S o N !!!wC Rxdced@!%[S] = Slo las Cedidas, [N] = Normal. xdced$'SN'Debe responder S o N !!!xdtip=2RC Rxdban@! Cdigo del Banco donde se cedi. xdced='S'C Rxdana@!2[S] = Rango de fechas para anlisis, [N] = Normal. xdana$'SN'Debe responder S o N !!!xdtip=2 .and. xdtpc='C'~CRxdrem@!6[S] = Incluye los remitos no facturados, [N] = Normal. xdrem$'SN'Debe responder S o N !!!Ta <BUOSAYXGETGETVISIBLESHOW4%C#BaF%CCLIENTESXQclientes#) T1xerr1=-1xerr2=&temp %B-on error &onerr BaUTEMPCLIENTESXERR145 T< T Por fecha"TPor comprobante%$%listbox(arr_tipo% BaB-UXTIPOMAXTIPOARR_TIPOTECLALISTBOX?45 T< 6T#Ordenado por el Cdigo del Cliente.6T#Ordenado por el Nombre del Cliente.6T#Ordenado por Localidad y Cdigo. %$$listbox(arr_ord% 1BaB-UXORDMAXORDARR_ORDTECLALISTBOX45 T< T Sin separar.)TSeparado por vendedor.%TSeparado por zona.*TSeparado por categora.#TSeparado por a1.#TSeparado por a2.#TSeparado por a3.#TSeparado por a4.%$$listbox(arr_sep% BaB-UXSEPMAXSEPARR_SEPTECLALISTBOX#45 T TCM< T Sin resmen.)TResmenes de Clientes.-TResmenes de Separaciones.!TResmen Final.8T%Resmenes de Clientes y Separaciones.8T%Resmenes de Clientes y Separaciones.5T"Resmenes de Separaciones y Final.?T,Resmenes de Clientes, Separaciones y Final.%$$listbox(arr_res% BaB-UXRESMAXRESTECLAARR_RESLISTBOX T T T- T T-FHU r C  C%  C  C  C FBU SALANTACCCLIENCABEZO XCED_X_CLIXMOVSCCCLIEXDTIP POR_FECHAPOR_COMPROBANTEXDCHEVALORESSAL_CLIRESUMEN0)TCP C6BUSALANTCAUSA FN_IMPORTEIMPORTE)TCP C6)TCP C6)TCP C6%)TCP C6)TCP C6)T  CP C6BU ACCCLICAUSA FN_IMPORTEIMPORTE XSAL_X_SEP XSAL_X_LISXCEDIDO XCED_X_CLI XCED_X_SEP XCED_X_LIS%CX!T Cliente : [C2TCCX/C6T] CHTC ( Zona : CC @z 999,999_6'T (Tel: C )C%%  N 9TSaldo Anterior : C 999,999,999,999.99_CTCXT TaBULINMAXLINHEADERANCHOTEMPCLIENTESCOD_CLIVENDEDORNOMBREZONAPHONOXDFECXDANASALANTENCABEZOD%VC CZCZ vTC]TCa-6BaB-U CAUSAREFCAUCUOCOMPROBCUOTA GRUPO_ACTUALXCEDIDOCALIF% C%7%C Ta% %S C XT  T- T   T- T-% PT  C TH? VbTFC rTRE R%C XTAJ TRC cTNC d TND LCTAS AfTAJ ITIT PTPD 2TXXTC* T T NTCC@z 999_C/CC@z 999_6  TC@z 99_ !TC@z 999_  T'%0  S TC t%CN% cd-TC  JTC pT C.TCC6 % !TC99,999_ TC*  T  T!"listados! $!TC!@z 999_ %C T% T&'%&%TC%!@z 999_  !TC!@z 999_ gTCC C P(6C@z 9,999,999,999.99@z 9,999,999.996_ ETC C9,999,999,999.99 9,999,999.996_ BTC)C99,999,999,999.99 99,999,999.996_C T-BU*INIC ENCABEZARLINMAXLINHEADERES_CABEZA_GRUPOPRIMEROINICIALXDRAYANCHOXSCAUSA FN_IMPORTEIMPORTEXCCOMPROBTEMPFECHACUOTAMAXCUOLISTASUCTEMP1COD_CLITARJETADES_CLIECOMENTARFN_NCNDCOND XNUMLARGOSBULTOSVENCDSPCNDCND_DSPLISTADOSOLDAAABBBDESPLAZADELANTOACCCLI!FQclientesnomcliFQsucursalidFQagentecodageFQ\idx04idx04%F Q \com_operF Q \ven_operF Q \ccclieF Qventasven_facBU CLIENTESNOMCLISUCURSALIDAGENTECODAGEP_COMMONIDX04XDCHEP_PRIVVENTASVEN_FAC"%CX CX %|KT:.and.val(xdcli)<=val(cod_cli).and.val(cod_cli)<=val(xhcli) 7T&.and.xdcli<=cod_cli.and.cod_cli<=xhcli"%CX CX %CMT<.and.val(xdage)<=val(vendedor).and.val(vendedor)<=val(xhage) 9T(.and.xdage<=vendedor.and.vendedor<=xhage% 1T .and.xdzon<=zona.and.zona<=xhzon%   ./T.and.xdcat<=cat.and.cat<=xhcat% f!T.and.xdlis=lista%C T.and.C F % CX G((codcliG(  TH  .T"" %oTstr(val(vendedor)) Tvendedor T str(zona) Tstr(cat)  Tstr(a1) 1Tstr(a2) XTstr(a3) Tstr(a4)GIH %#T+str(val(cod_cli)) T+cod_cli 1T+nombre %}*T+ciudad+str(val(cod_cli))  T+ciudad+cod_cli+index on &xxx to (temp) for &filtro GI BUXDCLIXHCLIP_CLINUMFILTROXDAGEXHAGEP_AGENUMXDZONXHZONXDCATXHCATXDLISXDFORCLIENTESCODCLICOD_CLIXXXXDSEPXDORD %C3G((porfeccG( mG((porfecp G( %N%CCG(P TC.and.causa#'P'set filt to &xfilt % Ni%CC'G(r eTC.and.causa#'r'set filt to &xfilt G E G T   T  T)+C+   )T  CP C6 CH TT sdfsdfsds Ta4+C+    !% CZT% P TKTCC@z 9,999,999,999.99@z 9,999,999.996_ CTCC9,999,999,999.99@z 9,999,999.996_ %v%}%CXT!T Cliente : [C 2TC CX/C 6T] C !HTC "( Zona : CC " @z 999,999_6'T (Tel: C #)CT%ZQTSaldo Anterior : C C9,999,999,999.99 9,999,999.996_CTCXT!% CZ H9 VT$FC rT$RE RN%C X1T$AJ JT$RC cqT$NC dT$ND LT$AS AT$AJ IT$IT P T$PD 29T$XXTC* T$ T NTCC@z 999_C%/CC%@z 999_6  TC&@z 99_ !TC'@z 999_  T('% 0  )S ST((C* %C+%cdT((C, T((C+ T(( C-TC( !TC.99,999_ TC*  TT CZ T T-)TCP C6 C0C001/ CH% TKTCC@z 9,999,999,999.99@z 9,999,999.996_ @TCC9,999,999,999.99 9,999,999.996_ BU2XDTPCPORFECCVENCXDVENPORFECPCANCELXDPSNCAUSAXFILTXDREMCLIENTESCOD_CLIXMOVSSALANTACCCLIFECHAXDFEC FN_IMPORTEIMPORTE ACUMULADORESACCIMPXIDINICIALXHFECCOMPROBCUOTATEMP XNUMLARGOSLINMAXLINHEADERANCHOVENDEDORNOMBREZONAPHONOXCMAXCUOLISTASUCTEMP1TARJETADES_CLIECOMENTARFN_NCNDCONDBULTOSACT_TOTCCCLIEMOTIVOF%CG((porfacc%N%BArG( G( G(C   %BAT  8occclie  1 \borrar1FQFQ \borrar1c& CZC CZ CZAZ6 \borrar1& CPZA6CCZCCZCZC AB6C / / #& CZT TTPge01;G((porfacpG((porfacp G(  TC%S%CCESION 7F QcesionF G((comprob%! %!AAAG( "! G( " FG-(  %CCDTC!eof('CESION').and.!eof('CESION')6set filt to &xfilt dTC$cancel={} .and. !eof('CESION')*#.and.cancel={} .and. !eof('CESION')6set filt to &xfilt %#NI%CCG(P ETC.and.causa#'P'set filt to &xfilt %$N%CCG(r TC.and.causa#'r'set filt to &xfilt G E G .R,: Cliente : [C ] C %T&  T' T( T) T*a T+a T, T-- T.+C+  .,% * N %/1n%C0   j C1 C2H'+C+  C0 b C1 C2H. %  C1 C2H.  T*-%+T-C3a-6 C2 C4 CC7685H%+ B%C% BAF QccclieBU9CCCLIEXDTPCPORFACCXDANAXHFECFECHAVENCXDVENFECREFXDFECXXXCLICLIENTESCOD_CLIP_LOCALBORRAR1REFCAUCUOCOMPROBCAUSACUOTATESTPORFACPCANCELXCOD_CLIXTIPOXDTIPXPENDREPAIRGE01XFILTXDCEDCESIONXDBANBANCOXDPSNXDREMNOMBREXMOVSSALANTACCCLIXSSALINIINIC GRUPO_ACTUALXCEDIDOOLDXDTISES_CABEZA_GRUPO SUMAR_SALSUMARCALIFIMP_MOVACT_TOT FN_IMPORTEIMPORTEMOTIVO0%CCMgCCMg ; T- P Ta Ta TFG((chequeGGF ECGFG %C+ +C+   T a%%CM F G((numero E +C+   $%    T -!HF% %E%  C%-!Valores pendientes de Depsito : T T-%rw! C @z 999,999,999_ C*   C@z 999,999,999.99_TTH% u%Mo!    CX --------------w!    CX C@z 999,999,999.99_T C)TSaldo del Cliente [C2TCCX/C6/T] C (Con Valores)IT CCC99,999,999,999.99 99,999,999.996_TC>C>CC.QTBUATRCANDOCSINIVALSALCHVEN_OPERCHEQUECLIENTESCOD_CLIXDCHEOKCUENTACOM_OPERNUMERODES_VAL DIF_VALORENCABEZO ENCABEZARLINMAXLINHEADERCAJ_PROSAL_CLITEMP1VENDEDORNOMBRETEMP2ACCCLI XNUMLARGOSAAAANCHOJ%?%-CXT)TSaldo del Cliente [C2TCCX/C6!T] C  *T  CC 99,999,999,999.99_T C>C >CC. Q TBU XMOVSLINMAXLINHEADERANCHOTEMP1CLIENTESCOD_CLIVENDEDORNOMBRETEMP2ACCCLIAAAH 4%B j%C C  C   B% T  TH % T 4 T%Y %CXCCTotal Cedido del Cliente: C9999,999,999.99_CXT W%  T . T%W CXCX>CSaldo Parcial: C 9999,999,999.99_CXT% SCX?CTotal Cedido Parcial: C 9999,999,999.99_CXT % T  T% CXCX>CSaldo Total: C 9999,999,999.99_CXT%CX?CTotal Cedido Final: C9999,999,999.99_CXT %-= T T (=%CUT  T  C%CT  T  C% $Detalle de Comprobantes:^$ Total de Facturas ..........C.Q.... C999,999,999,999.99_(=%C%=l# Total de Notas de Dbito (CCCf).... CC999,999,999,999.99_ t# Total de Notas de Dbito (CMOTIVO DESCONOCIDO).... CC999,999,999,999.99_(=%C%=@l# Total de Notas de Crdito (CCCf).... CC999,999,999,999.99_ t# Total de Notas de Crdito (CMOTIVO DESCONOCIDO).... CC999,999,999,999.99_^$ Total de Recibos ...........C.Q.... C999,999,999,999.99_^$ Total de Otros .............C.Q.... C999,999,999,999.99_Y$ C Q ==================^$ C Q C 999,999,999,999.99_BUXTIPOXDRES XCED_X_LISOFFSET XCED_X_CLILINMAXLINFORMFEEDANCHO XCED_X_SEP XSAL_X_SEP XSAL_X_LISXMAXXTOT_ACXTOT_FCXTOT_RCXTOT_OTZXTOT_NCXTOT_NDHEADERI_TAB%PTCTC%TCTCTC)T  CP C6BU CAUSA XSAL_X_SEP FN_IMPORTEIMPORTE XSAL_X_LISCALIF XCED_X_CLI XCED_X_SEP XCED_X_LISACCCLIp4H e VET RjT c%C<TC T=C= dJ%C<!TC FT=C= 2eTBUXCAUSAXIMPORTEXMOTIVOXTOT_FCXTOT_RCXTOT_NCXTOT_NDXTOT_OT_ 4FG((ven_fac EF&BCCventas+ 6UXCAUSAXCOMPROBVENTASVEN_FACCCCLIEDESC_INSCOMENTARl45 T TCM%$ $ 5D&< 0T[C] C0T[C] C0T[C] C0T[C] C0T[C] C0T[C] CDT1Moneda de la lista de precios asignada al clienteiC  6F arr_mon"Presione para seleccionar.9@&% ^BaB-UXMONMAXMONTECLAARR_MON MM_MONEDA,4"BCUXIMPORTEFN_CALCXDMONMONEDACOEFICFECHAMOTIVOheaderD criteriosformula'hlp_tip(hlp_ord)hlp_sep$+hlp_res-cuenta_corrientee/ sumar_sal0sumar,1 encabezar2es_cabeza_grupo4imp_mov5 use_files > crea_filtro? por_fechaFpor_comprobanteSRvalores\sal_cli/cresumend acumuladoresoact_tot.qfn_ncndrhlp_mons fn_importe1vqq211rAABAAaaAA8AA1q"BrtQA!q11AqqA121A11A1QA1QA1QA1QA1QAAqAqqBrAABAReaaaAA31a21AAAABA3tbaaaaaaaaaaaaaabaaaaaaaaRbCrr"B rA2qQqAAQAqA1q2qqq!2QAqAq2qqqaaa2AAqAq2qqqQ11112AAqAq2qqqQ2AAqAq2r12BArB3A2AB2qqA!qQAB2DqAq2A4qAAAACeDAAAQAAAAAAAAAaaq1QQ1AAAA@TErQ!B3QqqqAQB2%qAA"AAAA2ARAr11QA1a1Q1A1A1A1AAb11A11AAaBA2HABAaAABAaAAcaSBAaA1BArqAtqA!qQAAAAAQAAAAAAAABaaq1QQ1AAABBAJA4tEBAArAq2QBCBCAqaa!QAAsqBAaAaABBAaAACAaAAeaSDArAAEA4AEBAAABAHBqAAB2 Auba!aatAAAAAAqAArqAqqAqqAqAAAAqqAqq!BB2rqA!BB2{9AAAA2A11AqA11A11AA1A11AA1AAQaAaAAqArAq1AAAA1AAAABB2Aaa1aaaAAA2AAAqAAqAAA2qqa2qqQqAAQAqAq2q!1h%%FZFGlGI{'IJJLLN O&R%Fߙx [,tݵ˸Ļ %@ .eN2 T?@ TAB TCD TEF TGH TIJ TKL TMN TOP TQR TST TUV TWX TYZ T[\ T]^ T_` Tab Tc Tde TfgF E6Thi+%d (4 (5 F Qsucursalid Td3  Sucursal : d@z 99E6CdZ%C4 jd6Tk lTm nTo pTq rTs tF HTklTmuTovTqwTsx Ty|}C}zT}}FH T~| Td5\cpbt\imp_fact-CIa-6 A .Error !!! Inconsistencia en la informacin !!!F%CBATCH QbatchG(CCVA #HF QbatchG(CCVAG7(\tmp\BUBORRARP_LOCALVE_PROCSLISTADOSXXHORARIT_PESOXBONIFCLIENTESCODCLICCVENTCCVORDBIENESCODINSVENTASVEN_FACCOD_INSCSUCURSALIDFLETESCODFLEBATCHARCHSIONOMALGUI_GETAPARATOBATCHREGFAC_VENCAUSACENTROCOD_CEN XPHONFLETE XPROVFLETE XCIUDFLETEXNUMEROFXNUMERORREM_VENXREFREFCVOPXMOTIVOMOTIVOXPEDIDOPEDIDOX_TOTALXLISTALISTAXFECEMIFEC_VENXFECENTFEC_ENT T_CONSFINCONSFINXCOD_CLICOD_CLI XOTRO_CLIDES_CLIE T_INTEREST_IVAIVA_VENT_P672P672T_672T672T_IVA26IVA26T_DESCOMDES_COMT_IIIMPINTT_FINALDEUDA XANTICIPOANTICIPOXPLAZOPLAZOXCUOTACUOTAXINT_FININT_FIN XDESCPLANDESCPLANT_DESC1DESC1T_DESC2DESC2T_DESC3DESC3T_DESC4DESC4T_DESC5DESC5 XVENDEDORAGENTEXFLETECOD_FLE XDESCFLETEFLETE XDOMIFLETE XSUCURSALSUCINVE INVENTARIO INSCRIPTOIVACATHLP_SUCXXNOMBRENOMBREXXDOMI DOMICILIOXXCODZIPCOD_ZIPXXCIUDADCIUDADXXPROV PROVINCIADOM2ZIP2CIU2PRO2ARRTMPZZZ MAXFLDTMP MAXARRTMPZMAXYIXSUCP_SERVERGUI_REAFORDvR!!qqQq1QTAASa!Q1AA1AAAAQAqA1AAa!B>%`NׁTG+( sys_trfcen"BCUXTESTVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLAS XINICIALIZADO SYS_TRFCENTF_GENERAR_BETWEENA"1PNG  IHDR szz pHYs  6iCCPPhotoshop ICC profilexڭJP@ϋP+qpx((`Ƥ-E!֤Ji^^~[wQpP@q!ruaakn:|9 S n$+yӮ; |* Ln *@B0~A:i@<^/@) ()A|f|03}0utjI:RgS-eI<e:dr?&.bn:rjY{3ޏXz,ZA8T*xoazR+ـ뢭V/OZOb; iTXtXML:com.adobe.xmp Adobe Photoshop CC 2015 (Windows) 2021-05-19T16:01:43-03:00 2021-05-19T16:08:02-03:00 2021-05-19T16:08:02-03:00 image/png 3 Adobe RGB (1998) xmp.iid:d27e3142-172f-fb44-9f97-4d02ccc72cb7 adobe:docid:photoshop:6eaf1cc8-b8d5-11eb-96e7-c1930774feb4 xmp.did:f2a0217e-d0f1-0043-abfa-c62a5e9ca00a created xmp.iid:f2a0217e-d0f1-0043-abfa-c62a5e9ca00a 2021-05-19T16:01:43-03:00 Adobe Photoshop CC 2015 (Windows) converted from image/gif to image/png saved xmp.iid:d27e3142-172f-fb44-9f97-4d02ccc72cb7 2021-05-19T16:08:02-03:00 Adobe Photoshop CC 2015 (Windows) / 1 720000/10000 720000/10000 2 65535 32 32 h cHRMz%RX:oZIDATxKlUE6"h0F J  @F7n ʫ.P5m=s>s}BYh7̙'gL5 &@=Eq'y"q.*xǨ**Tl̒ui[5qkc>5Cb1b5b1x/xO_6{AUC[ETQբ?}KxaRe&KQ]ʑApWrpv% xQN>K?=X'=^a}$X(> oQC D^Ø bhiZ&h,ae2xL"ZK>$b O/TcF$uNF1Zkk*nUQܱs#YLR+7, .`hI^abr8y^ SȏrD.3Tײbd/1pFt4Z Q) a`Mb,%qb/] xoE:ɥ?lUgh\Bles&sBqJ`V@#QȅЛƐ^yQb^fe "qyޭsX%aO$ G{yc)_\dv~/1>"2VUmss{exf<. ^8|]' M{Jrߺzs[6=_ƎCGٹy-_WŁ[PTQ΀tv&/DM[p5«ᡛt/ 7Ȇ$xرw]o*2bBq|Hxf3PҀhPjWxzY NN\(p&ēzki`HʻGJ <{g UX3X5rRTOon@ U~fmzO.m |(*Lb¦ R.^hXL!Eؾ]=%ON#TXz ̻_J LD Fi E$^zSHB*+YOԈ|p~z0_JFجT'jZIP9Cӵ5* Vxkj\k+-F\5D7, ӉkSQKIENDB`%~ GXjp%CborrarQ%CD T'TCC3 $C$6 CC Filtrando...%Ctventas Qtventas%Cidx04 Qidx04%Cccclie Qccclie%Cventas IQventas%Cccvent wQccvent%Cve_trans Qve_trans%Cbienes Qbienes%Cstock Qstock%Ccccnotas 5Qcccnotas%Ccondcobr gQcondcobr%Ccliaux Qcliaux%Cdesp Qdesp%Cdespflet Qdespflet%Cmovstock #Qmovstock%C pd_demoras aQ \pd_demoras%Cdespacho Qdespacho%Cv2FQ%Cc2FQHl   T  , T L T l TH  T   T  T  T%C tmp_cambios)QHoidx04 idx04CQ tmp_cambiosTCC]RTCC]RFT t.pedido#0%u% ,;T* and xdfec<=t.fec_ven and t.fec_ven<=xhfec q;T* and xdfec<=t.fec_ini and t.fec_ini<=xhfec (% DT3 and (betw(t.fec_ven,xdfec,xhfec) or t.est_desp<=1) $DT3 and (betw(t.fec_ini,xdfec,xhfec) or t.est_desp<=1)%C!" %#0T.and.betw(t.pedido,xdped,xhped) PT?.and.(betw(t.oriped,xdped,xhped) or betw(t.pedido,xdped,xhped))%8>T- and t.cod_cli#"0 " and !empty(t.cod_cli)%$s$T and t.sucfac=xdsuc"%%CX &CX ' %'@T/.and.betw(val(t.cod_cli),val(xdcli),val(xhcli)) # 1T .and.betw(t.cod_cli,xdcli,xhcli)#%(C) C* %+ ?T..and.betw(val(t.agente),val(xdage),val(xhage))  0T.and.betw(t.agente,xdage,xhage)% N !T.and.xdstk=stock% J %T.and.xdcre=t.credito  %  %T.and.xdcre=t.credito%, ,T .and. not EMPTY(t.ref_ext) T-H   T- X #Tt.est_desp<=1.and. T-  HT7t.est_desp<=1 and !empty(t.ot) and empty(t.libfab) and  T- ) IT8t.est_desp<=1 and !empty(t.ot) and !empty(t.libfab) and  T- k "Tt.est_desp=5 and  T-  "T- and t.est_desp=5;%./0 /0 C : TTCt.est_desp=5 and (!isnull(cv.fec_ven) or !isnull(c2.fec_ven)) and  ~ :T)t.est_desp=5 and !isnull(cv.fec_ven) and %1 T2 cv.anulada=0  T2 .t.GIF3G((codcliCConsultando...]SELECT T.pedido, T.fec_ven, T.fec_ent FROM tccvent T WHERE &filtro_pedidos INTO CURSOR q1 oq1Q6XtventasQ7 5755CCCC78 7978 6C dTQ:CCCC78 7;78 6C dTQ<CCCC7= 7=CC> >?66Q@5q2;%./0 /0 C 0Q\data\CC0Z\ccvent0Q\data\CC0Z\ventasSELECT T.pedido AS pedido , IIF(T.oriped=0,T.pedido,T.oriped) AS ped_ini , IIF(T.fec_ini={},T.fec_ven,T.fec_ini) AS fec_ini , T.cod_cli AS cod_cli , T.suc AS suc , T.agente AS cod_age , SPACE(30) AS nomage , T.fec_ven AS fecha , q.fec_ent_c AS entrega , T.lista AS lista , T.bultos AS bultos , T.peso AS peso , T.volumen AS volumen , ROUND(IIF(xdiva, T.deuda, T.deuda*IIF(T.deuda=0,0,(T.tot_ven-T.des_com)/T.deuda) ),2) AS importe_o , ROUND(IIF(xdiva, T.deuda-T.facturado, (T.deuda-T.facturado)*IIF(T.deuda=0,0,(T.tot_ven-T.des_com)/T.deuda) ),2) AS importe , T.tot_ven-T.des_com AS BASE , T.est_desp AS est_desp , PADR(IIF(T.cod_cli="0 ","Anul.",IIF(T.est_desp=0, IIF(stock=0 AND credito=0 AND gerencia=0,"S/An.","Rech."), IIF(T.est_desp=1, "Apr.","FIN."))),30) AS dest_desp , IIF(T.credito=0, "S/An.", IIF(T.credito=1, "Apr.", "Rech." )) AS credito , IIF(T.stock=0, "S/An.", IIF(T.stock=1, "Apr.", "Rech." )) AS stock , IIF(T.gerencia=0, "S/An.", IIF(T.gerencia=1, "Apr.", "Rech." )) AS gerencia , T.credito AS ap_credito , T.stock AS ap_stock , T.gerencia AS ap_gerencia , 0000 AS zona , SPACE(30) AS dzona , T.cod_fle AS cod_fle , NVL(IIF(ISNULL(cv.cod_fle), c2.cod_fle, cv.cod_fle),SPACE(6)) AS cod_fle2 , SPACE(30) AS nomflet , SPACE(100) AS lugar_ent, SPACE(60) AS ciudad , SPACE(40) AS provincia, SPACE(200) AS geodir , SPACE(30) AS telefono , SPACE(30) AS horario , 0000000000.00 AS litros , T.sucfac AS sucfac , T.libfab AS libfab , IIF(EMPTY(T.libfab), xfecha_corte,T.libfab) - IIF(EMPTY(T.fec_ent), IIF(T.fec_ini={},T.fec_ven,T.fec_ini),T.fec_ent) AS demlib , T.TRAN AS TRAN , T.ot AS ot , 00000000000 AS dement , 00000000000 AS dementp , T.plan AS plan , SPACE(40) AS plandescr, "NO" AS contado , PADR(IIF(T.cod_cli=SPACE(6) OR T.cod_cli="0 ", "ANULADO", T.des_clie),40) AS nombre , NVL(IIF(ISNULL(cv.fac_ven), c2.fac_ven, cv.fac_ven),SPACE(12)) AS comprob , IIF(ISNULL(cv.causa) AND ISNULL(c2.causa), " ", IIF(NVL(cv.causa,c2.causa)="V","FC", IIF(NVL(cv.causa,c2.causa)="r","RE","??" )) ) AS causa , NVL(IIF(ISNULL(cv.fec_ven), c2.fec_ven, cv.fec_ven),{}) AS fechafc , NVL(IIF(ISNULL(cv.fec_ven), c2.tot_ven-c2.des_com, cv.tot_ven-cv.des_com), 00000000000.00) AS importefc , NVL(IIF(ISNULL(cv.fec_ven), c2.fec_ven, cv.fec_ven), xfecha_corte) - IIF(EMPTY(T.fec_ent), IIF(T.fec_ini={},T.fec_ven,T.fec_ini),T.fec_ent) AS demora , !ISNULL(cv.fec_ven) OR !ISNULL(c2.fec_ven) AS facturado , IIF(ISNULL(cv.causa) AND ISNULL(c2.causa), " ", NVL(cv.causa,c2.causa)) AS cau , T.ref AS oc , T.coefic AS cbio , T.moneda AS mon , {} AS fprorroga, 0000000000 AS dentfinal, {} AS faprob , T.desc1 , T.desc2 , T.desc3 , T.desc4 , T.desc5 , T.tot_ven , T.comision AS comi_ven , T.comi_dis AS comi_dis , T.rev , T.motdem , T.despl , T.fec_ent+T.despl AS fec_prob , NVL(q.per_ent, 000000.000000) AS per_ent , NVL(q.per_fac, 000000.000000) AS per_fac , NVL(IIF(ISNULL(cv.rem_ven), c2.rem_ven, cv.rem_ven),SPACE(12)) AS remito, T.ref_ext, PADR(ALLTRIM(LEFT(T.ref_ext,10)),10) AS ref_extt, T.usr, SPACE(40) AS dusr , T.plataforma FROM tccvent T LEFT OUTER JOIN ccvent cv ON T.pedido=cv.pedido AND &xanulada LEFT OUTER JOIN c2 ON T.pedido=c2.pedido LEFT OUTER JOIN q2 q ON T.pedido=q.pedido WHERE &filtro INTO CURSOR q READWRITE + SELECT T.pedido AS pedido , IIF(T.oriped=0,T.pedido,T.oriped) AS ped_ini , IIF(T.fec_ini={},T.fec_ven,T.fec_ini) AS fec_ini , T.cod_cli AS cod_cli , T.suc AS suc , T.agente AS cod_age , SPACE(30) AS nomage , T.fec_ven AS fecha , T.fec_ent AS entrega , T.lista AS lista , T.bultos AS bultos , T.peso AS peso , T.volumen AS volumen , ROUND(IIF(xdiva, T.deuda, T.deuda*IIF(T.deuda=0,0,(T.tot_ven-T.des_com)/T.deuda) ),2) AS importe_o , ROUND(IIF(xdiva, T.deuda-T.facturado, (T.deuda-T.facturado)*IIF(T.deuda=0,0,(T.tot_ven-T.des_com)/T.deuda) ),2) AS importe , T.tot_ven-T.des_com AS BASE , T.est_desp AS est_desp , PADR(IIF(T.cod_cli="0 ","Anul.",IIF(T.est_desp=0, IIF(stock=0 AND credito=0 AND gerencia=0,"S/An.","Rech."), IIF(T.est_desp=1, "Apr.","FIN."))),30) AS dest_desp , IIF(T.credito=0, "S/An.", IIF(T.credito=1, "Apr.", "Rech." )) AS credito , IIF(T.stock=0, "S/An.", IIF(T.stock=1, "Apr.", "Rech." )) AS stock , IIF(T.gerencia=0, "S/An.", IIF(T.gerencia=1, "Apr.", "Rech." )) AS gerencia , T.credito AS ap_credito , T.stock AS ap_stock , T.gerencia AS ap_gerencia , 0000 AS zona , SPACE(30) AS dzona , T.cod_fle AS cod_fle , NVL(cv.cod_fle,SPACE(6)) AS cod_fle2 , SPACE(30) AS nomflet , SPACE(100) AS lugar_ent, SPACE(60) AS ciudad , SPACE(40) AS provincia, SPACE(200) AS geodir , SPACE(30) AS telefono , SPACE(30) AS horario , 0000000000.00 AS litros , T.sucfac AS sucfac , T.libfab AS libfab , IIF(EMPTY(T.libfab), xfecha_corte,T.libfab) - IIF(EMPTY(T.fec_ent), IIF(T.fec_ini={},T.fec_ven,T.fec_ini),T.fec_ent) AS demlib , T.TRAN AS TRAN , T.ot AS ot , 00000000000 AS dement , 00000000000 AS dementp , T.plan AS plan , SPACE(40) AS plandescr, "NO" AS contado , PADR(IIF(T.cod_cli=SPACE(6) OR T.cod_cli="0 ", "ANULADO", T.des_clie),40) AS nombre , NVL(cv.fac_ven, SPACE(12)) AS comprob , NVL(IIF(cv.causa="V","FC",IIF(cv.causa="r","RE","??")), " ") AS causa , NVL(cv.fec_ven, {}) AS fechafc , NVL(cv.tot_ven-cv.des_com, 00000000000.00) AS importefc , xfecha_corte - IIF(EMPTY(T.fec_ent), IIF(T.fec_ini={},T.fec_ven,T.fec_ini),T.fec_ent) AS demora , !ISNULL(cv.fec_ven) AS facturado , cv.causa AS cau , T.ref AS oc , T.coefic AS cbio , T.moneda AS mon , {} AS fprorroga, 0000000000 AS dentfinal, {} AS faprob , T.desc1 , T.desc2 , T.desc3 , T.desc4 , T.desc5 , T.tot_ven , T.comision AS comi_ven , T.comi_dis AS comi_dis , T.rev , T.motdem , T.despl , T.fec_ent+T.despl AS fec_prob , NVL(q.per_ent, 000000.000000) AS per_ent , NVL(q.per_fac, 000000.000000) AS per_fac , NVL(cv.rem_ven, SPACE(12)) AS remito, T.ref_ext, PADR(ALLTRIM(LEFT(T.ref_ext,10)),10) AS ref_extt, T.usr, SPACE(40) AS dusr , T.plataforma FROM tccvent T LEFT OUTER JOIN ccvent cv ON T.pedido=cv.pedido AND &xanulada LEFT OUTER JOIN q2 q ON T.pedido=q.pedido WHERE &filtro INTO CURSOR q READWRITE & 55%Cq_saldos+QC%C q_saldos1,QDoq5q_saldosoq_saldosQGtventasQHG5HIHJH8H9H;HKCH8HKH;H8 6QLG5H5G5 q_saldos1Zo q_saldos15CCK CLCK 6QM5q_saldos& 55oqXq_saldos F5C5F5NOPQRS=TUVWXYZ[\] ^_`abcdefghijklmno QpqrstuvwxQyQzCXQ{-Q;-Q|Q}CXQ~CXQQQQC XQCXQQQ QQ Q-QQQQNOQNOQNOQQQSIQCC$CX 6X6TQCC$CX 6X6CCMTQCMCXQQQQKCXQCXQ:<QQQQC XQ QCCCambio=062QC(XQ1\tmp\Q\tmp\G-(P3%(g2G-(R 2F3G-(/C"Determinando lugares de entrega...%Cusuarios 2Q \usuariosF ~K(%CusuarioscodigoA3>%Q3'%CPCQZsucursalid3>x 3>ERROR%l4,TCtmp_cambios.indiceCCZ%;46> h4#>ERR: Cambio actual = 0%C 4$C pd_demorascodigoF> 4F>SIN ESPECIFICAR>C%Cr $5 K5>no&%Cucondcobrplan5/>vwCwSINO6 5$>v DESCONOCIDOwNOD%CPC5@z 9999,999,999_Pcccnotasid*6>1%CC5 ZPcliauxcomprob6>~>%[6>C 6>C5qpedido T T- T T T-TT TT T T T- T TTT  TFF+C+ 55 >%CCFRg08>F%CF m9'TCCF FFd6TFTF<domovstockQdespachoQC   C  % 9TC ;9TF>CD>CnDFF%C >%Cy>%FRE1;&%CFventasremito#;% 9 ; Ta(TCC ? C ?F6{TC VFCMC cNC5C dNDC rRE??6666  "TCCCF62%C P  cccnotasid;F> -; <'CFFccventccvfac Ta(TCC ? C ?F6{TC VFCMC cNC5C dNDC rRE??6666  "TCCCF6x%CPFCFFCV4CFNCcCFNDd 666cccnotasid<F>FF%  >TFTFcTCC , 6  Cy* Imp.:CC Z D:CCzZ Ta%CCRg=TCCy6 =TCCy6%;>T ?O;TC   ?C ?F6 j>TOTTT > >TOTYTYFFHFFG((codfle EH1?? l?F>NO>SI C?F>SI>NO ?F>NO>NO 2?TCC 6/>zCCC 6DF >{ >; >| >} >l > >">CC =6">pCC =6!>CC} }C$6=!>CC} }C$6= >y >% }A>y >>C 6%;A>s}=>t}= A>s=>t=F%INDfB T T5F >lF%C}IFi>xCPCX ANULADOC3Sx3x66RC(R36SxFG((codfle EdTC5 ZTP T T T T T T T T T T T% 6DPve_armar_despachoFG((codigo,EC Cb 3bb6Fz>exfghijkbC 3bb6cTnTCFCVLCNCc4CNDdCREr?6666%C FT!% EF G((ccvfac EFG(( referenciaGEPG .+C+ P{P F%RyFTCDHFG((comprobGEPG F>C >%C I!% @GF G((ccvfac EFG((codfle EHtGI !HFG((comprob EF>C% G>$>CC6} CzIF%C uHG((remito E HG((causa EFG((despacho EF%/I>CCD% +I>>7>CCCCCF6}DF IF>NO 2I IF4>CCrCCn}n66!>CCySINO6>CD>CD#>C=SINO6>=%wNO K6>CC C SINO6--6%C K% J > K > K K6>CC C SINO6--6%CK% K > K > KFC} %  LC C}  % 3LSI%YL| HnLL LwSI LwNO$%( C) C* \F~N5N R TN< $otccvent5% yR*>CCCC = R/> No encontradoNo enc.C Indexando...F3G-(F%SH SS SELECT T.* , IIF(EMPTY(T.cod_ins),T.desc_ins,ALLTRIM(ALLTRIM(NVL(b.DESCR,""))+" "+ALLTRIM(NVL(AT.DESCR,""))+" "+ALLTRIM(NVL(bu.DESCR,"")))) AS DESCR , g.DESCR AS dgrupo, l.DESCR AS dlinea, b.linea, b.grupo, m.descr AS dmarca, b.marca, IIF(!EMPTY(T.atr) OR !EMPTY(T.bul), NVL(s.factor,0000000000.00000), NVL(b.factor,0000000000.00000))*(T.recepcion) AS litros_ori , IIF(!EMPTY(T.atr) OR !EMPTY(T.bul), NVL(s.factor,0000000000.00000), NVL(b.factor,0000000000.00000))*(T.recep2) AS litros_ent , IIF(!EMPTY(T.atr) OR !EMPTY(T.bul), NVL(s.factor,0000000000.00000), NVL(b.factor,0000000000.00000))*(T.recepcion-T.recep2) AS litros_det , b.pesoxu AS pesoxu , i.ref_oc, i.item_oc , 000000000000.0000 AS costo , 000000000000.0000 AS cosori , 0000000.0000 AS cdesc1 , 0000000.0000 AS cdesc2 , 0000000.0000 AS cdesc3 , 0000000.0000 AS cdesc4 , 0000000.0000 AS csubtot , 0000000.0000 AS cdesc5 , 0000000.0000 AS ctotal , 000000000000.0000 AS tc_ori FROM cur_tv T LEFT OUTER JOIN bienes b ON T.cod_ins=b.cod_ins LEFT OUTER JOIN atributo AT ON T.cod_ins+T.atr=AT.cod_ins+AT.clave LEFT OUTER JOIN bultos bu ON T.cod_ins+T.bul=bu.cod_ins+bu.clave LEFT OUTER JOIN lineas l ON b.linea=l.codigo LEFT OUTER JOIN grupos g ON b.grupo=g.codigo LEFT OUTER JOIN stock s ON T.cod_ins+T.bul+T.atr=s.codigo+s.bul+s.atr LEFT OUTER JOIN itm_desc i ON STR(T.pedido,12)+"P"+STR(T.itm,4)=i.comprob+i.causa+STR(i.ITEM,4) LEFT OUTER JOIN marcas m ON b.marca=m.codigo ORDER BY T.pedido, T.itm WHERE &xfiltrodet INTO CURSOR cur_det READWRITE CCostoF+Qrocur_detQJ,-./012345-q_costos& CJ,-8F6T9 9uV ~,i%59Qa >:a T95%;(i %aaCcostos%C<aT=6 a T=<8%CC=6J6,6-q_costosidbT>7.T?7/T@70TA71TB72TC73TD74TE75 Dh TF T TTG TH TI TJ TK TL TM T? TN TOHJcg C6J^c ; d TP TQ T>7TRCSTCSTS66 TUVW cs_generarPQ;>6J6-6,=RGUM?NOHIJKLTYCR ;e TP TQ T>TF0 TRCSTS6 TUV T TjZ cs_generarPQ>6J6-6,=RGFU?OHIJKTYCR ;g %-f%Ccosult eQcosultF[G((codigoE6J6,6-%C4zfT>[.TYC[\T[T[T=[ f T> TY g TP TQ T>TR TUC$W cs_generarPQ>6J6-6,=RGUM?NOHIJKLTYCR%C6J @hrq_costosJ,-./012345=6J6,6->NOHIJKL>6.>/N0O1H2I3J]NOd Hd Id Jd 4K^NOd Hd Id Jd Kd 5L#(\tmp\rpt_ve_pedidosocur_detCCY6Q`CCCC%Y6QaCCCCCi$Y6Qb:cur_det2+(\tmp\rpt_ve_pedidos_resumenQF6Q F#(\tmp\rpt_ve_pedidos%d n%Cimportac jQimportac%Ctcompras jQtcompras%Ctcccomp kQtcccomp%Creservas 7kQreservas%C tmp_ocsimpos k+Q\tmp\rpt_ve_pedidosi$i1 tmp_ocsimposjCFi ~qn TkFh G((itmECi5ZCiIZ%C4Yn1+C+ C5ZClZCi5ZCiIZ Un%Chm FnITkkCCk, 6OC Ch (CChmZ) TnFfG((ordenitmECh RChIZ%C41n4+C+ !CpZCIZCh RChIZ -nFgG((tcccord Efp$%fe ge nFeG((numero%fem Efe m EgesTnCCn  en 6nCCnI:, 6CCeZ F.Emb: Cer* F.Ing: Ces*FfHTkknFhHFi >jk%C tmp_ocsimposnQi%_oF(t^oborrarCQmCQtQu=q_mal_entregados2("\tmp\rpt_ve_pedidos_mal_entregadosFvQFQ \tmp\.dbf \tmp\.idx \tmp\.cdx%Cc2oFQ%Cq_saldospQC%C q_saldos17pQD%C tmp_cambios_pQBUwBORRARXDCLA XFECHA_CORTEXHFEC ESTADO_INI ESTADO_INCTVENTASIDX04CCCLIEVENTASCCVENTVE_TRANSBIENESSTOCKCCCNOTASCONDCOBRCLIAUXDESPDESPFLETMOVSTOCKP_SYSTEMDESPACHOV2C2XDSTKXDCRE TMP_CAMBIOSFECHAERRORESTCCVENTFILTROXDTIP XFECHA_PEDIDOXDPEDXHPEDXNUMERO_PEDIDOXDSUCXDCLIXHCLIP_CLINUM P_AGE_TIPOXDAGEXHAGEP_AGENUM XCON_REFEXTFILTRO_PEDIDOSP_CODEMPP_UNOP_DOSXDANUXANULADACLIENTESCODCLIPEDIDOCV RECEPCIONRECEP2PER_ENT FACTURADOPER_FACENTREGAFEC_ENTFEC_VEN FEC_ENT_CQ1Q2Q_SALDOS Q_SALDOS1DISTINCTQTCTVITMCOD_INSTOT_VENSALDO COEF_SALDOPED_INIFEC_INICOD_CLISUCCOD_AGENOMAGELISTABULTOSPESOVOLUMEN IMPORTE_OIMPORTEBASEEST_DESP DEST_DESPCREDITOGERENCIA AP_CREDITOAP_STOCK AP_GERENCIAZONADZONACOD_FLENOMFLET LUGAR_ENTCIUDAD PROVINCIAGEODIRTELEFONOHORARIOLITROSSUCFACLIBFABDEMLIB DEMLIBENTPTRANOTDEMENTDEMENTPPLAN PLANDESCRCONTADONOMBREFECHAFCDEMORAREFFACTENTNOTASACCIONES DEMLIBREM FECRETIRA DEMRETIRACOMREFCAUREFFECDESPFENTREGADENTREGADEMDESPNUMDESP CANCELADAFECHACOB LIB_NO_FABLIB ENTREGA_OK ENTREGA_O2PENDDEMFCLIBGRUPO1 SE_ENTREGAOCCBIOMONIMP_MO_O IMPORTE_MOMONED FPRORROGA DENTFINALFAPROB DEMLIBENT DEMENTPREV DEMENTPRE2DESC1DESC2DESC3DESC4DESC5FACTURACOMI_VENCOMI_DISREVMOTDEMDMOTDEMDESPLFEC_PROB IMPORTE_OAIMPORTEAFCBIOACBIOAREMITORETIRAERRMSGDSUCREF_EXTREF_EXTTUSRDUSR PLATAFORMAP_LOCALAGENTEVENDEDORUSUARIOSDESCRSUCURSALXCBIO PD_DEMORAS MM_MONEDAOBSAPC_EVALXREFXFACXACUMXACCI XFACTURADOXENTREGAXENTREGA_SIN_REMITOXLITROSXFECHAFC XCOMPROBFCXCAUSAFCXENTXCAUREFXCOMREF XFECHA_LIB XDEMFCLIBXFLETE_ENTREGACOMPROBCOD_FLE2XCOMPROBXCAUSACAUARR_FECMDNUMEROCAUSAXDENTXHENTFAC_VENREM_VENXNUMFC IMPORTEFCXDEMORAFLETESCODFLETIPOP_EMP XCANTIDADCALCULAR_LITROS_ENTREGADOS2XDSALTARJETAXNOMBREXNOMFLE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVXGEODIRXGEOENT XDIRECCIONESDIRECCION_DE_ENTREGAVE_ARMAR_DESPACHOZONASCODIGOPROPIOXCOMXCAUXFECCOBCCVFAC REFERENCIACANCELRETIROESTADO FECHAHORAFECHAFINXDEMORA_ENTREGA_CCXDEMORA_ENTREGA_NO_CCINXSOLO_ENTREGADOS XSE_ENTREGAN XCONTADOSXDZONXHZON XDENTPREV XHENTPREV XDENTREGA XHENTREGAXRES AP_GERENCI P_PICKINGXRESCODXORIPEDAAACCCXDSEPXDORDSYS_MXDDET XFILTRODETXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDLINXHLINXDGRUXHGRUXDMARXHMARCUR_TVATRBULCOSTOCOSORICDESC1CDESC2CDESC3CDESC4CDESC5TC_ORICUR_DETQ_COSTOSIDXOLDENCXDTVAXDFCS XFECHA_COSTOXCOSTOXCOSORIXDESC1XDESC2XDESC3XDESC4XDESC5XTC_ORI XTIPO_REPXFECHA_COSTO_OBTENIDA XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCAMBIO_ORIGENXMONORI XCOSTO_ORIXDESCUENTO_ORI XERR_COSTO XMSG_COSTO XMONCOSTOXDMONMM_MAX XFECHA_TCXDFTC OBTENER_COSTO CS_GENERARXMONEDAOBTENER_COSTO_REPOSICIONCOSULTMONEDACSUBTOTCTOTALSUMDIAMESANOCUR_DET2 XOCSIMPOSIMPORTACTCOMPRASTCCCOMPRESERVAS TMP_OCSIMPOSOCSIMPOSXOCS_TXTPEDITMCANTIDADXIMP_TXTORDENITMORDENTCCCORDFECEMB FECINGESTAAATOTAL_PDQ_MAL_ENTREGADOSU4 TF G((ped E+C+  EFG((codins E%SF G((codigo E  CXT   T %C 6%2TCC TFH BUXPEDIDOXLITROSTVENTASPEDPEDIDOBIENESCODINSCOD_INSBULTOSSTOCKCODIGOBULATRXFACTORFACTORLINEA RECEPCION# 4%CL/ T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\xchgTTT C<BU XTABLAXDTIPOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA B-U 4  TTventas;%  C %CTv2 F%RET rG((remito E  T VG((ven_fac EC r 6:+C+ 'C r   6 pFG((codinsEC.cod_ins%SFG((codigo7EC .cod_ins+.bul+.atrCXT "T F%C ^TCCT FH BUXCAUSAXCOMPROBXALIASXLITROSP_CODEMPP_UNOP_DOSXDCLA SYS_DOSCENXCREMITOVEN_FACREM_VENFAC_VENCAUSABIENESCODINSBULTOSSTOCKCODIGOXFACTORFACTORCOD_INS RECEPCION41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\tmpTTTTT  T a C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG3 EXP_TABLAve_rpt_pedidosJWT+\tmp\SCH - Pedidos Liberados Pendientes al CC*/-.pdfT-TTC BU VE_RPT_PEDIDOSOEXC XPDFARCHIVOP_LOCAL XFECHA_CORTE XPDFPROMPTXDCLASEXDTIPBTNPDFCLICK5FoccclieCi Vcd qoqccclieQCZ C Z Vcd 8CZCZ BU COD_CLICOMPROBCAUSACUOTACCCLIEFECHAQCREFCAUCUO`4TC 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT \tmpT T  HTTTT TT CBUXTABLAXDFECXHFECXDTIPXIVAINCXVALORES_ORIGINALES XCON_DETALLEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG1XDLOG2XDLOG3 EXP_TABLA-%otventasQXbienesQ XstockQ      QQCC C C C 6Q xcur_det  otventasQXbienesQ XstockQ      QQCC C C C 6Q xcur_detK( BUXPEDIDOXSALDO XCANTIDADXLITROSTCOD_INS RECEPCIONRECEP2CANTIDADATRBULSFACTORLITROSTVENTASBIENESBSTOCKCODIGOPEDIDOXCUR_DETg41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\tmpTT  ETTTTT  T - T -T C BUXTABLAXDFECXHFECXDAGEXHAGEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDLOG1XDLOG2XDORD EXP_TABLADISPOSE9 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\tmpTT Ta%CxpedidobLT T  C C BU XTABLAXPEDIDOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAOFORMXDNUM1XDLOG9XDPEDXHPED EXP_TABLADISPOSE1QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosTalerta_entregaT\tmpT\tmpTTT .pdf T T T C$TlTKPedidos pendientes a entregar cuya fecha de entrega est prxima a vencer (CCZ das). C C%C Q\%CN_TT No hay datosB 2\ (\xchg\ ( TTBUXERRXMSGXDIASOEXCXFILEFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANO FIL_ARCHIVOOFORMXDCLASEXDFEC2XHFEC2XDSEPTITULO2_PARAMETROEXP_PDFDISPOSEP_SERVEROEXMESSAGE  41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\tmpTTTT  C C BU XTABLAXPEDIDOOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAOFORMXDTIPXDPEDXHPED EXP_TABLADISPOSE*41QEXPORTACIONES_CRYSTAL Imp_exp.vcxGTCexportaciones_crystal Imp_exp.vcxve_rpt_pedidosT\tmpTTT T T  T a C CBUXTABLAXDESDEXHASTAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAOFORMXDFECXHFECXDNUM5XDTIPXDLOG3 EXP_TABLADISPOSEcalcular_litros} exportar_1demoraQcalcular_litros_entregadosc exportar_2 exportar_3Lcomprobantes_anuladosexportar_indicadorescalcular_litros_entregados2exportar_comisiones_samsonexportar_aprobadosexportar_alertas_entregaexportar_pedidoK exportar_dashʖ@qABAu1AqA!A!A!AAA!AqAAAAA!AaAAAAAAAA2qAA2qAA1111A1111AAuQrQrr21A3AAABb1AA2A2AA!AA2AA21QA1QAAA121222!"AADAdrz`1FAAY aKqAAtAA2q!AA22f2ABTAq1qATAcCACDb21AA2122tAA_srA"1Ar!TB|!se!&qAJBr!qACt2ABBBUBBQArAAvrarsbsD"!2BAscrBtrssUCrrU1qAq1bAaA!AAAubAar1BXqAratr12AC}QArsa2ABrcsDBCrC"*4Sc#2ABc2ABACwsAAA2A1A1AABqqAAqqArrss2AAR21QA!AC"1A12AA"QQA312!2ABAAABrqrA!ABrar11111A1a1a1a1qAAsAAAA3AAAc"rA$r1A21AA1A2q22!ArABBRE AA BA2 ArAr1CfAAAA1AAAACrrrRrBrBrbA2BrAABBrAABrBAB2s"qAAsA2qAAAAAB2qrrrrARbAArAA2rAq"AqB2q32BAAQAurrrqA%DAA2q"AB3rAB4cB32q"AB21;AqA2qq"AA2q"AAA2qr"AA"AQAA!AB3q"BA3q"AA1l#=A~& / @4 c7e q} %TbU=G+(Dey_FuncG+(listados TCT InicializandoTTaFQTCC]R T CC]RHh1 \tmp\ C C( CCCCN DCCCCN C<LLLNNNQ!QP \tmp\Ctccventtccvord BT2Reindexando ventas,esto puede tardar unos minutos.T !T"a Ctventas#\a G-($T%.t.$%&'( )'( %*kFT%%5.and.betw(val(tventas.cod_ins),val(xdbie),val(xhbie)) 7T%%&.and.betw(tventas.cod_ins,xdbie,xhbie)#%+  ,CX 7T%%&.and. between(tventas.bul,xdbul,xhbul)#%-  .CX m8T%%'.and. between(tventas.atr, xdatr,xhatr)"%/CX 0CX +%1ET%%4.and.betw(val(tccvent.agente),val(xdage),val(xhage)) '6T%%%.and.betw(tccvent.agente,xdage,xhage)"%2CX 3CX %4FT%%5.and.betw(val(tventas.cod_cli),val(xdcli),val(xhcli)) 7T%%&.and.betw(tventas.cod_cli,xdcli,xhcli)select Pedido, cod_ins, atr, bul, cod_cli, des_clie,recepcion, nom_alt from tventas where !DELE() .AND.tccvent.est_desp<1 .AND. !(tccvent.credito=0 .and. tccvent.stock=0 .and. tccvent.gerencia#1) .and. (&Filtro) .and.!aprob into cursor tv & CZ5CInicio6T"- C7Cbultoscodigo CAtributocodigo CBienescodins CClientescodcli CAgentecodage "Ctccventtccvorda G-(88F9G-( :G-(;<G-( =G-( >G-($SET FILTER TO &tFiltro F9(?T"T@C??6"TAnalizando valores#)+C+  TF$G((tccvord E9F9F> 9  :  9 = 9> 9$B9;CC9C 9C<D6$88D9C9E C$FF9HT@T)TSalida final de registrosF& ( \tmp\QQ \tmp\#)C  TH TIH F  JZ TK%*6 & CC gZ L V & L JP TKCli_Cod%4 %* "& CCgZCC gZ L  & CCgZ  L L %*$ & CC gZ L H &   L JF TKAge_Cod%1 %* "& CCgZCC gZ L  & CCgZ  L B %* & CC gZ L > &   L TMF >a ~eF%K 'IF OldCod_Sep# &xCodSep THEN OldCod_Sep=&xCodSep TH% HP%H' H TN TO TP TQ TR TS TT TUBV  TUNOPQRSF >N>NOR>NOSRQ>aM >aH TH TM >aTMM%Hk H TN TO TP TQ TR TSBV  TUNOPQRSF >N>NOR>NOSRQ >aH%JF& W ~ TXCO TY TN TO TP TQ TR TS TT TUBV  TUNOPQRSFG((C>NNORNOSRQ YFG((borrar1 #XF G((full0( \tmp\rpt_ve_articulos_bloqueadosQ%CtvCF9Q  \tmp\.dbf  \tmp\.idx  \tmp\.cdx F"(\tmp\rpt_ve_cesionQBUFILTROXDCLIXHCLIP_CLINUMXDAGEXHAGE P_AGE_TIPOP_AGENUMBORRARCLIENTESCOD_CLI CES_CLIENTCODCLI CES_NOMBRENOMBREP_LOCALAA"AA"AQAAAA`1rqBrBr#BB1 %UZVlX%CxgrecbN( T)CInicializando datos G+(listadosG+(dey_funcG+(dey_fillG+( dey_filters%Cempresas Q \empresas%3F T a ~|C %  %Ctmp_consolidadoNF Q9Q!\tmp\rpt_ve_nuevo_facturacion.DBF 'i1tmp_consolidadoCF > #(\tmp\tmp_consolidado'Q\tmp\tmp_consolidado T - xF 0!\tmp\rpt_ve_nuevo_facturacion.DBF> C %Ctmp_consolidadoF 'Q\tmp\tmp_consolidado  C2(!\tmp\rpt_ve_nuevo_facturacion.DBFQ G( ges C F - F0Q!\tmp\rpt_ve_nuevo_facturacion.DBF0i1rpt_ve_nuevo_facturacionC>  CTC](\tmp\Q\tmp\2(!\tmp\rpt_ve_nuevo_facturacion.DBFQ \tmp\.dbf \tmp\.cdxBUXGRECOESTADO SET_AND_SHOWLISTADOSDEY_FUNCDEY_FILL DEY_FILTERSP_SYSTEM XDCONSOLIDADOEMPRESASXINICIALPROCESARCODIGOTMP_CONSOLIDADOP_LOCALEMPABREVALLFORINDEXARP_SERVERGESP_CODEMPRPT_VE_NUEVO_FACTURACION XTMP_FILE_ %C* FQ*Q\data\CCZ\BUXTABLAXEMPP_SYSTEMCccventCccclieCventasCitm_descCcccnotasCcccnotasCcliauxBUXEMPOPEN_Fk<C%C cligruece EQ cligruece%CLINEAS sQlineas%Cmarcas Qmarcas%CGRUPOS Qgrupos%Cdeposito Qdeposito%Cfletes /Qfletes%Cdesp YQdesp T C T  T  T T!Tccv.cod_cli#'0 '%  %T .and. ccv.causa#'r'%@%T and cli.gruec=xgrecTcom_num"%CX CX 1TCcod_cliccv% 4T#.and. between(ccv.rfc, xdrfc,xhrfc)*TC fec_venccv"%CX CX %! %"QT@.and.val(xdage)<=val(ccv.agente).and.val(ccv.agente)<=val(xhage) =T,.and.xdage<=ccv.agente.and.ccv.agente<=xhage %"yUTD.and.val(xdage)<=val(cli.vendedor).and.val(cli.vendedor)<=val(xhage) AT0.and.xdage<=cli.vendedor.and.cli.vendedor<=xhage*TC$%cod_insven#(TC'(bie)&(TC+,lineabie*(TC./grupobie-(TC12marcabie0%C3 C4 ]TL and between( IIF(!EMPTY(ven.cod_cen),ven.cod_cen,ccv.cod_cen) ,xdcen,xhcen)%C5 %5^!T and cli.pais<>1 $T and cli.pais=xdpaiH 6#T.and.ccv.causa='V' 6#T.and.ccv.causa='d' 6G#T.and.ccv.causa='c' 6}#T.and.ccv.causa='r' 6$T.and.ccv.causa$'Vd'%7{T٣.and. ((ccr.plazo=0 .and. ccr.cuota<=1) .or. (ccr.cuota=0 .and. ccr.a1=0 .and. ccr.p1#0) .or. (ccr.anticipo#0) .or. (ccr.variable .and. plv.c1d=0 .and. plv.c1p#0))%8ET4.and. nvl(ccr.anticipo,0)#0 or nvl(plv.anticipo,0)#0%9 H  :& Tcom_fec :V Tcli_nom, com_fec : Tage_des, com_fec N H J  : Trubrofac, com_fec : 'Trubrofac, cli_nom, com_fec :J 'Trubrofac, age_des, com_fec%; To .and. (inlist(ccv.motivo,0,2,3,5,6,7,10) .or. ccv.causa="V" .or. ccv.causa="r") .and. !between(ccv.motivo,1,2);T*.and.iif(ccv.causa="r",!ccv.facturado,.t.)%<= m /T.and.betw(cli.cat,xdcat,xhcat)%> !T and ccr.entrega%?@ 2T!.and.betw(ccv.motivo,xdmot,xhmot)% T.and.ccv.cod_cli#"0 ".and.ven.causa="r".and.ven.rem_ven#space(12).and.VAL(RIGHT(ven.rem_ven,8))#0.and.ven.fac_ven=ven.rem_ven and !ccv.no_fc%A #T and ccv.anulada=0.%Cclientes.delgrupobNB 5 $T and cli.delgrupo#1*CSeleccionando comprobantesCD2%E 8 8 8 R%Ctccvent Qtccvent%! $TGccv.agente==age.cod_age (&TGcli.vendedor==age.cod_ageselect iif(ccv.causa='V','FC ',iif(ccv.causa='c','NC ',iif(ccv.causa='d','ND ',iif(ccv.causa='r','RE ','?? ' ) ) ) ) as com_cod, ccv.fac_ven as com_num, ven.rem_ven as rem_ven, ccv.fec_ven as com_fec, ccv.cod_cli as cli_cod, iif(cli.tarjeta='S', ccv.des_clie, cli.nombre) as cli_nom, cli.fantasia as cli_fan , cli.dtonc as cli_dec, ccv.tot_ven as com_bru, ccv.des_com as com_dec, ccv.tot_ven - ccv.des_com as com_net, ccv.deuda-(ccv.tot_ven-ccv.des_com) as com_imp, ccv.deuda as com_tot, ccv.plan as pla_cod, iif(ccr.variable, plv.descr, ccr.descr) as pla_des, iif(p_age_tipo, ccv.agente, cli.vendedor) as age_cod, age.nombre as age_des, ccv.cod_fle as fle_cod, fle.nombre as fle_des, ccv.causa, ccv.pedido , ccv.lista, ccv.desc1, ccv.desc2, ccv.desc3, ccv.desc4, ccv.desc5, ccv.desca1, ccv.desca2, ccv.rfc as rubrofac , rubrofac.descr as drubrofac , .t. as header , cli.ciudad as ciudad , iif(ccv.causa="V",0000,ccv.motivo) as motivo , iif(ccv.causa="V",space(40),motivos.descr) as dmotivo , cli.cat as cat , space(40) as dcat , ccv.pedven as pedven , IIF(!EMPTY(ven.cod_cen),ven.cod_cen,ccv.cod_cen) as cod_cen , nvl(costos.descr, space(40)) as dcod_cen , left(ccv.ncndmotivo,254) as ncndnotas , ccv.ref as oc , ccv.tran as tran , ccv.ot as ot , ccv.moneda as moncpbt , iif(between(ccv.moneda,0, mm_max), mm_moneda(ccv.moneda+1,2), space(3)) as montxt , round(ccv.deuda/iif(ccv.moneda#0 and ccv.coefic#0, ccv.coefic, 1),2) as monext , ccr.entrega as contraent , iif(ccr.variable, plv.plazo=0 and plv.c1d=0 and (plv.c1p=0 or plv.c1p=100), (ccr.plazo=0 and ccr.a1=0 and (ccr.p1=0 or ccr.p1=100) ) or contado) as contado , nvl(cccnotas.gescom, 0) as gescom , ccv.suc as suc , nvl(sucursal.nombre, space(40)) as sucnom , nvl(sucursal.ciudad, space(40)) as succiu , 000 as despl , ccv.fcdere , space(100) as pedidos , ccv.comision as comi_ven , ccv.comi_dis as comi_dis , tccv.rev , iif(ccv.suc#0,nvl(sucursal.nombre,space(40)),nvl(cli.nombre,space(40))) as dest_nom , iif(ccv.suc#0,nvl(sucursal.domicilio,space(40)),nvl(cli.domicilio,space(40))) as dest_dom , iif(ccv.suc#0,nvl(sucursal.ciudad,space(40)),nvl(cli.ciudad,space(40))) as dest_ciu , iif(ccv.suc#0,nvl(sucursal.cod_zip,space(7)),nvl(cli.cod_zip,space(7))) as dest_zip , iif(ccv.suc#0,nvl(sucursal.provincia,space(1)),nvl(cli.provincia,space(1))) as dest_prov , space(30) as dest_prv , space(40) as dest_pai , iif(ven.nostk, "NO", "SI") as afecta_stk , {} as venc1 , {} as fecest , {} as fcanc , cli.gruec as gruec , space(40) as dgruec , ccv.coefic as cambio , 00000000000.0000 as cambio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as saldo , 0000000000000.00 as saldo_me , 0000000000000.00 as saldo_ref , ccv.dep , nvl(deposito.descr, space(40)) as ddep , 0000000000 as desp , ven.version , ven.costo, ven.cosmon , iif(between(ven.cosmon,0, mm_max), mm_moneda(ven.cosmon+1,2), space(3)) as cosmontxt from ccvent ccv left outer join ventas ven on ven.fac_ven + ven.causa == ccv.fac_ven + ccv.causa left outer join clientes cli on cli.cod_cli==ccv.cod_cli left outer join condcobr ccr on ccr.plan==ccv.plan left outer join rubrofac on rubrofac.codigo==ccv.rfc left outer join planvarc plv on plv.id==str(ccv.pedido,12)+"P" left outer join agente age on &xrelacion left outer join fletes fle on ccv.cod_fle==fle.cod_fle left outer join bienes bie on bie.cod_ins==ven.cod_ins left outer join motivos on ccv.motivo==motivos.codigo left outer join cccnotas on ccv.cod_cli+ccv.fac_ven+ccv.causa=cccnotas.id left outer join sucursal on ccv.cod_cli+str(ccv.suc)=sucursal.cod_cli+str(sucursal.sucursal) left outer join tccvent tccv on ccv.pedido=tccv.pedido left outer join deposito on ccv.dep=deposito.deposito left outer join costos on IIF(!EMPTY(ven.cod_cen),ven.cod_cen,ccv.cod_cen)=costos.cod_cen where &xfiltro group by ccv.fac_ven, ccv.causa order by &xorden into table (xborrar) Q H ~I TI TJCIJaK#) ?7select iif(ccv.causa='V','FC ',iif(ccv.causa='c','NC ',iif(ccv.causa='d','ND ',iif(ccv.causa='r','RE ','?? ' ) ) ) ) as com_cod, ccv.fac_ven as com_num, ven.rem_ven as rem_ven, ccv.fec_ven as com_fec, ccv.cod_cli as cli_cod, iif(cli.tarjeta='S', ccv.des_clie, cli.nombre) as cli_nom, cli.fantasia as cli_fan, cli.dtonc as cli_dec, ccv.tot_ven as com_bru, ccv.des_com as com_dec, ccv.tot_ven - ccv.des_com as com_net, ccv.deuda-(ccv.tot_ven-ccv.des_com) as com_imp, ccv.deuda as com_tot, ccv.plan as pla_cod, iif(ccr.variable, plv.descr, ccr.descr) as pla_des, ccv.agente as age_cod, age.nombre as age_des, ccv.cod_fle as fle_cod, fle.nombre as fle_des, ccv.causa, ccv.pedido, ven.cod_ins, ven.bul, ven.atr, bie.codalt1, ccv.lista, ccv.desc1, ccv.desc2, ccv.desc3, ccv.desc4, ccv.desc5, ccv.desca1, ccv.desca2, (1-ccv.desc1/100) * (1-ccv.desc2/100) * (1-ccv.desc3/100) * (1-ccv.desc4/100) * (1-ccv.desc5/100) * (1-ccv.desca1/100) * (1-ccv.desca2/100) as gdesc , iif(empty(ven.cod_ins+ven.bul+ven.atr), left(ven.desc_ins,60), fill_bie_bul_atr_descr(bie.descr,atr.descr,bul.descr,bie.atributos,bie.bultos,60) ) as bie_des, ven.recepcion, ven.cos_lifo, ven.des_ins, ven.tot_ven, ven.moneda, ven.coefic, ven.des_clie as dsp , ccv.rfc as rubrofac , rubrofac.descr as drubrofac , cli.ciudad as ciudad , iif(ccv.causa="V",0000,ccv.motivo) as motivo , space(30) as dmotivo , .f. as header , cli.cat as cat , space(40) as dcat , ccv.pedven as pedven , IIF(!EMPTY(ven.cod_cen),ven.cod_cen,ccv.cod_cen) as cod_cen , nvl(costos.descr, space(40)) as dcod_cen , bie.linea as linea , space(30) as dlinea , bie.grupo as grupo , space(30) as dgrupo , bie.marca as marca , space(30) as dmarca , bie.espec as espec , left(ccv.ncndmotivo,254) as ncndnotas , ccv.ref as oc , ccv.tran as tran , ccv.ot as ot , ccv.moneda as moncpbt , iif(between(ccv.moneda,0, mm_max), mm_moneda(ccv.moneda+1,2), space(3)) as montxt , round(ccv.deuda/iif(ccv.moneda#0 and ccv.coefic#0, ccv.coefic, 1),2) as monext, ccr.entrega as contraent , iif(ccr.variable, plv.plazo=0 and plv.c1d=0 and (plv.c1p=0 or plv.c1p=100), (ccr.plazo=0 and ccr.a1=0 and (ccr.p1=0 or ccr.p1=100) ) or contado) as contado , nvl(cccnotas.gescom, 0) as gescom , ccv.suc as suc , nvl(sucursal.nombre, space(40)) as sucnom , nvl(sucursal.ciudad, space(40)) as succiu , ven.itm as item , 000 as despl , ccv.fcdere , space(100) as pedidos , ccv.comision as comi_ven , ccv.comi_dis as comi_dis , tccv.rev , iif(ccv.suc#0,nvl(sucursal.nombre,space(40)),nvl(cli.nombre,space(40))) as dest_nom , iif(ccv.suc#0,nvl(sucursal.domicilio,space(40)),nvl(cli.domicilio,space(40))) as dest_dom , iif(ccv.suc#0,nvl(sucursal.ciudad,space(40)),nvl(cli.ciudad,space(40))) as dest_ciu , iif(ccv.suc#0,nvl(sucursal.cod_zip,space(7)),nvl(cli.cod_zip,space(7))) as dest_zip , iif(ccv.suc#0,nvl(sucursal.provincia,space(1)),nvl(cli.provincia,space(1))) as dest_prov , space(30) as dest_prv , space(40) as dest_pai , iif(ven.nostk, "NO", "SI") as afecta_stk , {} as venc1 , {} as fecest , {} as fcanc , cli.gruec as gruec , space(40) as dgruec , ccv.coefic as cambio , 00000000000.0000 as cambio_ref , 0000000000000.00 as total_ref , 0000000000000.00 as saldo , 0000000000000.00 as saldo_me , 0000000000000.00 as saldo_ref , ccv.dep , nvl(deposito.descr, space(40)) as ddep , 0000000000 as desp , ven.version , ven.costo, ven.cosmon , iif(between(ven.cosmon,0, mm_max), mm_moneda(ven.cosmon+1,2), space(3)) as cosmontxt , nvl(iif(ccv.tot_ven=0,0,ven.tot_ven/ccv.tot_ven*ccv.des_com),000000000000.0000) as des_com_p from ccvent ccv left outer join ventas ven on ven.fac_ven + ven.causa == ccv.fac_ven + ccv.causa left outer join clientes cli on cli.cod_cli==ccv.cod_cli left outer join condcobr ccr on ccr.plan==ccv.plan left outer join planvarc plv on plv.id==str(ccv.pedido,12)+"P" left outer join rubrofac on rubrofac.codigo==ccv.rfc left outer join agente age on ccv.agente==age.cod_age left outer join fletes fle on ccv.cod_fle==fle.cod_fle left outer join bienes bie on bie.cod_ins==ven.cod_ins left outer join bultos bul on bul.id==ven.cod_ins+ven.bul left outer join atributo atr on atr.id==ven.cod_ins+ven.atr left outer join cccnotas on ccv.cod_cli+ccv.fac_ven+ccv.causa=cccnotas.id left outer join sucursal on ccv.cod_cli+str(ccv.suc)=sucursal.cod_cli+str(sucursal.sucursal) left outer join tccvent tccv on ccv.pedido=tccv.pedido left outer join deposito on ccv.dep=deposito.deposito left outer join costos on IIF(!EMPTY(ven.cod_cen),ven.cod_cen,ccv.cod_cen)=costos.cod_cen where &xfiltro order by &xorden into table (xborrar) Q H#)%Cpaises O3QL\paises%Cprovinc 3QL\provincFG((codigoFG((codigoFG((codigoFHG-(NG-(OG-(P TQ TI TJ ~;7%RC5%HS4%HT4/CHUrCHVZitm_descid 41CHWHXCHVZitm_descid 51CHWHXCHVZitm_descid%C4?5>YCZ[>\[>][>^[%Q_W`5 >aaCIJaK 5CIJ-KTQ_W`%Hb16FcG((codigo EHb>Hdc[(CHWHXcliauxcomprob>Hefg>Hhfi>Hjfk>Hlfm'%CHlprovinccodigo6>HnCo[f,%CCfp paisescodigo07>HqCr[fFH+s ve_sql_comprobantes_emitidos_auxoborrarQvventasQxWXwxyWXx{xX xy T q& WX|F} G((cpbtFH~T 9TWX TF| E T+C+ WX 8 T+TCC, 6CCyZHFH%8>yCg 9 >FG((codigoF} G((cpbtFG((codigoFHG-(G-(WX}G-(U>[}H}}}[G-('%CC3 $  :C + ve_sql_comprobantes_emitidos_aux*CExportacin final de datosCD-(\tmp\rpt_ve_nuevo_facturacionHoborrarQQCQ tmpborsis3(#\tmp\rpt_ve_nuevo_facturacion_grupoQ%Cborrar1G;FQ%Cborrar2n;FQFHQ .*%CRUBROFAC ;Qrubrofac%CLINEAS ;Qlineas%Cmarcas <Qmarcas%CGRUPOS F<Qgrupos T  T BUXEMPRESA OPEN_FILES_COMPROBANTES_EMITIDOS CLIGRUECELINEASMARCASGRUPOSDEPOSITOFLETESDESPXBORRARNEWFILE_LOCAL_TMP OLD_XDFECXDFEC OLD_XHFECXHFEC XDFEC_COBXDFEC1 XHFEC_COBXHFEC1XFILTROXDREMXDSRPXGRECXORDENXDCLIXHCLIFIL_GET_CLI_FILTERP_CLINUMXDRFCXHRFCFIL_GET_FEC_FILTERXDAGEXHAGE P_AGE_TIPOP_AGENUMBIE_GET_BIE_FILTERXDINSXHINSFIL_GET_PRO_FILTERXDPROXHPROP_PRONUMBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUBIE_GET_MAR_FILTERXDMARXHMARXDCENXHCENXDPAIXDCOMXDCONXDTIPXDSEPXDORDXDLOG3XDCATXHCATXCONTRAENTREGAXDMOTXHMOTXDANUXSIN_CLIENTES_DEL_GRUPOOESTADOAVANCEXDDETTCCVENT XRELACIONBORRAR XCAMBIO_REF XTOTAL_REFACTUALIZAR_MONEDA_DE_REFERENCIAP_SYSTEMCODIGOLINEAGRUPOMARCAXOLD XDESCR_ORIVERSIONFCDEREREM_VENITEMCOM_NUMCAUSABIE_DESITM_DESCDESCRDLINEADGRUPODMARCACOM_CODCLI_CODHEADERMOTIVOMOTIVOSDMOTIVODEST_DOMCLIAUXENTDOMDEST_CIUENTCIUDEST_ZIPENTZIP DEST_PROVENTPRODEST_PRVPROVINCPAISDEST_PAIPAISESPASADA_AUXILIAR VE_SQL_COMPROBANTES_EMITIDOS_AUXDISTINCTBCOM_FECVPEDIDOVENTASFAC_VENQCCCLIECPBTXIDXPEDIDOSXACCPEDIDOSCATCLICATGRUECDCATDESPLDIASVENC1VENCFECESTFCANCCANCELDGRUECALLXDFECVENXHFECVENFORANALISIS_COBRANZAP_LOCALRUBROFACGRU_COD DRUBROFACGRU_DESCOM_TOTGRU_TOT TMPBORSISBORRAR1BORRAR2(41QEXPORTACIONES_CRYSTAL Imp_exp.vcxXTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidos_v2T\tmpTT TTT C BU XTABLAXDFECXHFECXDCONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLA#41QEXPORTACIONES_CRYSTAL Imp_exp.vcxXTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidos_v2T  \xchgT  TTT TTTTT TaTT CBUXPDFXDFECXHFEC XDFEC_COB XHFEC_COB XDFEC_VEN XHFEC_VENXAGENTEOEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOOFORMXDFEC1XHFEC1XDFEC2XHFEC2XDAGEXHAGEXDCONXDTIPXDNUM2EXP_PDFH H5 `& C & C & C & C H E!& C ZC }%& C ZC %& C ZC !& C ZC H @& C s & C & C & CBU XDSEPXDORDCOM_FECCOM_CODCOM_NUMBORRARCLI_NOMAGE_DESVENC1RUBROFAC"1QEXPORTACIONES_CRYSTAL Imp_exp.vcxXTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidos_v2T\tmpTT TT T a C BU XTABLAXDFECXHFECOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG4 EXP_TABLA%%C T T!listados>TC   C  66FF> > BU XCAMBIO_REF XTOTAL_REFXBUSCARBORRARMOTIVOXFECHACOM_FECOBTENER_CAMBIOLISTADOSMONCPBTMONEXTCOM_TOT CAMBIO_REF TOTAL_REF^1QEXPORTACIONES_CRYSTAL Imp_exp.vcxXTCexportaciones_crystal Imp_exp.vcxve_rpt_comprobantes_emitidos_v2T \tmpT T  FTTT TTT CBUXTABLAXDFECXHFEC XCON_REMITOS XCON_SALDOXSIN_CLIENTES_DEL_GRUPO XCON_DETALLEOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG5 CON_SALDOXDLOG7XDLOG4 EXP_TABLAopen_f open_files_comprobantes_emitidosNprocesarexportar_dias_de_giro_indaIexportar_control_de_cobranzasJindexardM exportar_sriPactualizar_moneda_de_referencia5RexportarSA#!QAtqAArr2qrBBqqA"Arr"ACB3AAB2qrqqqB2qQA!A!A!AAA!AaAtQA3QBB"AAA&AQAAAA"AAAA111111111AAG B2QA21A11A11q1qAA AAA!A A1AAA$1AAaApq 1BR:QAAsrrraaAAQAA22BQbq2BBAAAraAaArAC"ssArAAr1ABrrrrAYbr1A2AqAAqAArAAA!A!A!AB31"AB25"BB311111A111Q1Q1A21111ABA2"AB2rBArB2"AB2?y  ~G?  Q2 Jgypgi8ikkgppDrpr?tTtv0%\+Y.I+N G+( ve_comisiones T TT2T"Preparando los archivos temporalesTa T5TCC]R5 T CC]R5 T CC]R5 T CC]R5 T CC]RT C XT 999999999%CerroreseF QF"h1\tmp\ MQ Q\tmp\  %CborrarFQF h1\tmp\C DCCCCC(CCNNCNCN C!C"N #C$N%N&C'L(C)C*N+N,N-N.L/L0L1LQ Q\tmp\T2C3INDEX ON &xIndex TO FULL %Cborrar2bF QFbh1\tmp\  C!CN%NQ Q\tmp\  T4\C5T6 TMP_Comision T7T/TIniciando sistema de comisiones!C467comi_art8 C T2C3 T9aF T TCCN CN63T#Calculando datos de cada movimiento : ~>F TCOT; <T;; =>;*T>C6   ?F %>@W>$>A&> ->->->%d >A 3 >'aF C46BF '#) ~ CDF?> $ $%% %& &TT+TAgregando datos adicionalesFEG((codcliFGG((codigoFIG((codigoFJG((codageFLG((codigoFM G((IDFO G((IDFG-(EG-(GG-(IG-( JG-("LG-(MG-(OG-(P>CCCLIENTES+CLIENTE INVALIDOE6CCLINEAS+ SIN LINEAG6CCGRUPOS+ SIN GRUPOI6!CCAGENTE+SIN VENDEDOR/COBRADORJ6#CCZONAS+SIN ZONAL6CP CO CMG-( CRTT'TGuardando datos finalesF '3(#\tmp\rpt_ve_comisiones_por_articuloQ\tmp\.*F ;(+\tmp\rpt_ve_comisiones_por_articulo_resumenQ\tmp\ .*F %CN  rpt_erroresF Q\tmp\ .*F Q\tmp\ .*BUT VE_COMISIONES TMAXESTADOOESTADOMAXVALUETEXTOVISIBLETIPO_LISBORRARBORRAR2ERRORESTMP SELECCIONXDCUEXHCUEP_LOCALERRORFAC_VENFEC_VENCAUSACOD_INSATRBULDESCRCOD_CLINOMBRETOTALLINEADLINEAGRUPODGRUPOSUBGRUPOCOD_AGENOMAGEZONADZONACOM_PORCOM_TOTCOM_DESCOM_BORGRU_CODGRU_NAMGRU_TOTGRU_COMVEN_TOTVEN_COMVEN_SHENVEN_SHTOGRU_SHENGRU_SHTOXINDEX GET_INDEX XTMPCOMISIONNEWFILE XTMPALIAS XPRIORIDAD COMISION_INIT XNUEVORECREFRESHXIMPORTETOT_VENGDESCTOBJ COMISION_GETIDUCOMISIONCOMISION_CLEARFORPREPARA_BORRARCLIENTESCODCLILINEASCODIGOGRUPOSAGENTECODAGEZONASBULTOSIDATRIBUTOBIENESALLAGRUPACION_FINAL RPT_ERROREShTCF"INDEX ON &xtGru_Gru TAG Agrupa T T T T T TT CT CT  T CCN CN6)T Agrupacin final de datos  T ~T %+% H>a$TNingunGrupoParaResetear A>H >a T T T% '$IF Old_Gru#&xtGru_cod THEN% H>aH >a T TOld_Gru=&xtGru_cod =REPLACE Gru_Cod WITH &xtGru_cod , Gru_Nam WITH &xtGru_Nam TTTTT% H>a A>H%  ] H>aHBU XTGRU_GRU GET_GROUPBORRARXAGETOTXAGECOMXGRUTOTXGRUCOMOLD_GRUOLD_AGE XTGRU_COD XTGRU_NAMOESTADOVALUEMAXTEXTOREFRESHTCRECCOD_AGEVEN_SHTOVEN_TOTVEN_COMBORRAR2NOMAGETOTALCOM_TOTINVEN_SHENGRU_SHTOGRU_TOTGRU_COMGRU_SHEN FSEEK &xIndex %C4 >     C  % >%>BUBORRARCOD_AGE SELECCIONCOD_INSLINEAGRUPOSUBGRUPOCOD_CLINOMBREFAC_VENFEC_VENCAUSA VENTAS_CAUSAXDBULDBULXDATRDATRT+TSeparando ventas aplicablesT.t."%CX CX %<T/betw(val(ventas.cod_cli),val(xdcli),val(xhcli)) -T betw(ventas.cod_cli,xdcli,xhcli)$%    % oET4.and.betw(val(ventas.cod_ins),val(xdbie),val(xhbie)) 6T%.and.betw(ventas.cod_ins,xdbie,xhbie)"% CX CX *%~%;DT3.and.betw(val(ccvent.agente),val(xdage),val(xhage)) z5T$.and.betw(ccvent.agente,xdage,xhage) &%HT7.and.betw(val(clientes.vendedor),val(xdage),val(xhage)) "9T(.and.betw(clientes.vendedor,xdage,xhage)% 5T$.and. betw(bienes.linea,xdlin,xhlin)% 5T$.and. betw(bienes.grupo,xdgru,xhgru)#%  CX 56T%.and. between(ventas.bul,xdbul,xhbul)#%  CX 7T&.and. between(ventas.atr, xdatr,xhatr)%C SeleccionFQTvend_id2ocomi_arta Comi_grupo SELECT ventas.Causa AS Causa , ventas.Fac_ven AS Fac_ven , ventas.Fec_Ven AS Fec_Ven , ventas.recepcion AS recepcion , ventas.tot_ven AS tot_ven , ventas.COD_INS AS COD_INS , ventas.ATR AS ATR , ventas.BUL AS BUL , ventas.COD_CLI AS COD_CLI , ccvent.SUC AS SUC , IIF(p_age_tipo, ccvent.agente, clientes.vendedor) AS vend_id, IIF(p_age_tipo, ccvent.agente, clientes.vendedor) AS COD_AGE, (1-ccvent.desc1/100) * (1-ccvent.desc2/100) * (1-ccvent.desc3/100) * (1-ccvent.desc4/100) * (1-ccvent.desc5/100) * (1-ccvent.desca1/100) * (1-ccvent.desca2/100) AS gdesc , NVL(IIF(bienes.bultos='S', stock.factor, bienes.factor), 000000.000000) AS factor , NVL(IIF(bienes.bultos='S', IIF(bultos.cantxbult#0,bultos.pesoxbult/bultos.cantxbult,0), bienes.pesoxu),000000.000000) AS pesoxu , IIF(bienes.bultos='S', bultos.DESCR,SPACE(20)) AS descbul , NVL(IIF(bienes.bultos='S', bultos.medida,bienes.medida),SPACE(10)) AS medida , NVL(IIF(bienes.bultos='S', bultos.medidaaux,bienes.medidaaux),SPACE(10)) AS medidaaux , IIF(bienes.atributos='S', atributo.DESCR,SPACE(20)) AS descatr , NVL(ALLTRIM( ALLTRIM(bienes.DESCR)+" "+IIF(bienes.atributos='S', atributo.DESCR,"")+" "+IIF(bienes.bultos='S', bultos.DESCR,"") ),ventas.desc_ins) AS DESCR , NVL(bienes.LINEA,0000) AS LINEA , NVL(bienes.GRUPO,0000) AS GRUPO , NVL(IIF(bienes.bultos="S", stock.SUBGRUPO, bienes.SUBGRUPO),0000) AS SUBGRUPO , clientes.zona AS zona , clientes.a1 AS a1 , clientes.a2 AS a2 , clientes.a3 AS a3 , clientes.a4 AS a4 , clientes.cat AS cat , clientes.NOMBRE AS NOMBRE , 000000000000.00 AS TOTAL , 000000000000.00 AS CANTIDAD , 000000000000.00 AS CANTAUX , 000000000000.00 AS PESO , 000000000000.00 AS IMPORTE , 000000000000.00 AS COSTOTOTAL , 0000.00 AS com_por , 000000000000.00 AS com_tot , SPACE(30) AS com_des , .F. AS Com_Bor FROM Comi_grupo LEFT OUTER JOIN Ventas ON ventas.COD_INS==Comi_grupo.COD_INS LEFT OUTER JOIN bienes ON ventas.COD_INS=bienes.COD_INS LEFT OUTER JOIN stock ON ventas.COD_INS+ventas.BUL+ventas.ATR+SPACE(8)=stock.codigo+stock.BUL+stock.ATR+SPACE(8) LEFT OUTER JOIN bultos ON ventas.COD_INS+ventas.BUL=bultos.COD_INS+bultos.clave LEFT OUTER JOIN atributo ON ventas.COD_INS+ventas.ATR=atributo.COD_INS+atributo.clave , ccvent, clientes WHERE BETWEEN(DTOS(ventas.Fec_Ven), DTOS(xdfec), DTOS(xhfec)) .AND. ventas.Fac_ven+ventas.Causa=ccvent.Fac_ven+ccvent.Causa .AND. ventas.COD_CLI=clientes.COD_CLI .AND. Ventas.COD_INS#oBie.data_codigo_vacio .AND. &filtro ORDER BY &tOrden INTO TABLE (p_local+'\tmp\'+seleccion) G2Q\tmp\BUOESTADOVALUETEXTOFILTROXDCLIXHCLIP_CLINUMXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDAGEXHAGE P_AGE_TIPOP_AGENUMXDLINXHLINXDGRUXHGRUXDBULXHBULXDATRXHATR SELECCIONTORDENCOD_INSCOMI_ARTACTIVA COMI_GRUPOP_LOCAL4H -Tcod_age HQ d  T + STR(linea,3)  T + STR(grupo,3) T + cod_cli1T + cod_ins + atr + bul + fac_ven  TH^ T STR(linea,3) T STR(grupo,3) Tcod_cli  TH DTdLinea jTdGrupo TNombre BUTXFUNCTXGROUPXDSEP74Hb 8 T bT Seleccion.*T cod_age + cod_ins%#T + Fac_ven% T + bul %'T + atr BUTXFUNCTXALIASTXINDEXXDMOVXDBULDXDATRDAgrupacion_finalPrepara_Borrar seleccion9 Get_Group(' Get_Index)q!sQrQrQrQrQaqAA$BrqAA` AqAA'Ats1qGqasAqB#rQqB srrrrrrrAAcqs3ArAs!1AsArAB5q!21AAAA1A1AAqABA2AAAAB2qQAAAA2"AABQaAA"AQAAAAQAQA2aA2qAqAAB&!aC2q1Q1111A1111A1111111AA3q11qB1AAA1~o;!"o447E67 9m%@luV/G+(dey_funcG+(dey_fillG+( dey_filters&CPreparando datosTCFh1NC  C  C C C N N NNDCCNTTLN CN N QQ& CZ,CAnalizando armado de pedidos C C C!F>CCf(CExportando datos finalesF& C.(#\tmp\rpt_ve_armado_de_pedidosFQ.*U$DEY_FUNCDEY_FILL DEY_FILTERSOESTADO SET_AND_SHOWXBORRARNEWFILE_LOCAL_TMPPEDIDOREM_VENFAC_VENCAUSACOD_CLICLI_DESBULTOSVOLUMEN ARM_CAJAS ARM_PALLET ARM_INICIOARM_HORA ARM_QUIEN ARM_CUANTOINIFINARMEDCONSOLPEDIDOSNPEDIDOSARMADOBORRARCCVORDAVANCEPREPARA_EMPRESAOBTENER_ARMADOSCALCULAR_LITROSALLP_LOCAL!CCalculando litrosIC Revisando CCCborrarNZ registrosCborrarNF ~ CFG((ven_facE T ;+CVentas+    T % S.T  HT  %% T  CC TT  HF>  CUOESTADOAVANCESUB_SET_AND_SHOWBORRAR SUB_AVANCEVENTASVEN_FACFAC_VENCAUSAXCANTLITXLITROSBIENESBULTOSXFACTORSTOCKFACTORCOD_INSOBIEDATA_CODIGO_VACIOLINEA RECEPCIONVOLUMENINSUB_HIDECccventa!Cventasven_facaCstockcodigoa Cbienescodinsa"CClientescodclia!Carmadorcodigoa"Cccarmadopedidoa!Ctccventpedidoa!Ctventaspedidoa Carmadoarmadoa#C pd_consolpedidoaFG-(FG-(FG((ven_facG-(G-(CXFG-(U CHECK_OPENEDSTOCKBIENESVENTASVEN_FACCOD_INSBULATRCCVENT CObteniendo datosIC Revisando CCCccventNZ registrosCccventNFC obtener datosT.t.%C T armador=xdprehscan for between(fecha, xdfec, xhfec) and between(fecha2, xinicio, xfinalizacion) and &xfiltro C T- T T  T  T0TCCC Z:CC Z 0FFG((tccvordF T T T T%ITT M%2FG((consol E%T!+C+  /TCC , 6CCZTH . T I T%T C  < 8&T CC  < 8FT  T  Ta0TCCC Z:CC Z 0F%=> > T >Ctccventtccvord"Cclientescodcli>>>  >!">#$ >% >& >' >( >) >*>++FG((codigo EF!>-C. Desconocido  C/FCcod_cli0U1OESTADOAVANCESUB_SET_AND_SHOWCCARMADOSYS_MXFILTROXDPRE SUB_AVANCEXARMEDXMINXINIFECHAXFINFECHA2XARMADORARMADOR XARM_HORABORRARTCCVENTTCCVORDXPEDIDOXPEDIDOS XUNIDADES XNPEDIDOSPEDIDOCONSOL PD_CONSOLPEDIDOSCOD_CLICLI_DESCLIENTESNOMBREBULTOS ARM_CAJASCAJAS ARM_PALLETPALLETS ARM_CUANTOARM_HORAINIFINARMEDNPEDIDOSARMADOCODIGO ARM_QUIENDESCRSUB_HIDE FILL_CLIENTESCalcular_LitrosoPrepara_empresa@Obtener_armadosa !!Qb`aABs!tBrA9qr1qAaAAArA3!!1rararra4r!AsQrr21qbBAAAA2arbA"rrBBrR1 ( L5O 8 nKb %b~HFmWSd %Cborrar"FQ&CPreparando Datos TC kh1 C C< D DCCCC<NNNNDCNNNNDCNNQ&  %C!"#5 T" T# Y T! T%[ CAbriendo datos 1$C%!CSeparando datos 1$ C&!CAgregando datos 1$Frborrar   o tmpcursorTC()*T+,%- CAbriendo datos 2$C%!CSeparando datos 2$ C&!CAgregando datos 2$TC()*T-,F' ~)F!E' '''%C4*>'.'/ '0 %rborrar   ' ' '0'''''.'/'1 RT-SIN CONSOLIDAR C2!CExportacin Final$F3dey_fillBorrarDescrCod_Ins NO_CAMBIARBULATR NO_CAMBIAR NO_CAMBIAR > DesconocidoCF67listadosC$6F%9 >C!CCC666C 'CCC6 66C!CCC666C 'CCC6 66>CCC 66C:C$'CCC;---666CCC 66C:C$'CCC;---666%<(& C C C 6=  ,& C C C 6=3(>"\tmp\rpt_ve_ultimo_precio_de_ventaQF'Q C2BU?BORRARXINITXCODEMPXCODDOSOEMPOESTADO SET_AND_SHOWXPATHODEYFUNCNEWFILE_LOCAL_TMPCOD_CLINOMBREFEC_VEN1FEC_VEN2COD_INSBULATRDESCRMON1 COS_LIFO1PESOS1CAMBIO1FCAMBIO1MONTXT1MON2 COS_LIFO2PESOS2CAMBIO2FCAMBIO2MONTXT2COEFIC1COEFIC2FULLP_CODEMPP_UNOP_DOSAVANCE OPEN_FILESULTCOS_SELECCION TMPCURSORGESFORMEMPRESASEMPRESA_PUNTUALXTMPEMP1ABREVXTMPEMP2MONEDACOS_LIFOFEC_VENCOEFIC CERRAR_TABLAS FILL_BIE_FULLDEY_FILLFORARR_MONULTIMOS_CAMBIOSLISTADOSXCAMBIO_ORIGENALL MM_MONEDAXDSEPIDXP_LOCAL4CselectT.t.%XT tmpcli.pais>1%Ttmpcli.pais=xdpai%CqQselect max(tmpven.cod_ins+tmpven.atr+tmpven.bul+tmpven.cod_cli+dtos(tmpven.fec_ven)+tmpven.fac_ven+tmpven.causa+str(tmpven.itm)) as id from tmpven left outer join tmpbie on tmpven.cod_ins=tmpbie.cod_ins left outer join tmpcli on tmpven.cod_cli=tmpcli.cod_cli order by id where !empty(tmpven.cod_ins) and between(tmpven.fec_ven, xdfec, xhfec) and ( empty(xdins+xhins) or between(tmpven.cod_ins,xdins, xhins)) and ( empty(xdatr+xhatr) or between(tmpven.atr,xdatr, xhatr)) and ( empty(xdbul+xhbul) or between(tmpven.bul,xdbul, xhbul)) and ( empty(xdcli+xhcli) or between(tmpven.cod_cli,xdcli, xhcli)) AND &xfilt group by tmpven.cod_ins, tmpven.atr, tmpven.bul, tmpven.cod_cli into cursor q otmpvenXtmpbie  Xtmpcli qCCliente DesconocidoQ Q    C Artculo DesconocidoQCZCR tmpcursor%CqQBUXVUELTASYS_MXFILTXDPAIQTMPVENCOD_CLITMPCLINOMBREFEC_VENCOD_INSBULATRTMPBIEDESCRMONEDACOS_LIFOCOEFICFAC_VENCAUSAITMID TMPCURSOR C$T\data\CCZ\Qventas QclientesQbienesQbultos QatributoU XEMPXPATH CERRAR_TABLASP_SYSTEMTMPVENTMPCLITMPBIETMPBULTMPATR%CTMPVEN"FQ%CTMPCliHFQ%CTMPBienFQ%CTMPBulFQ%CTMPAtrFQUTMPVENTMPCLITMPBIETMPBULTMPATRultcos_seleccion open_filesB cerrar_tablasqqqAA2aprA2aA2qq3 AAAqr3rFAg=A2AqAB3q2AA1A!A?, 1#AD3qqA3qqAAqqAAqqAAqqAAqqAA1J_Mir%k[W3 T%H1} RTS sT 2}TC$ T T 'CInicializando... T-G+(listadosT PT N T  T TNTSTSTNIJ( !K"  ! G*(T#$ \temp.txt G(#G G  T% T&4h1$\tmp\errores_contrib'CQ%Cborrar2F(QFh1$\borrar2)C *C+N,CP-N.D/C0C(Q%Ctmp_p146qF1QFQ$\borrar2% F h1$ \tmp_p146/C0C()C *C2C3C4C(.D5N6N7N8N9N:N;N<N=N>N?N@NANBNCNDN EN FN -N GCHNIC JCKC(LCMCNCOCPNQC(RNSN TCUCVNWNXNYNZC [N\C]D^C _N `C aN bN cC(Q$ \tmp_p1461($\borrarQFQ$\borrar1FdG((despachoFfG((idx04%Ccom 1QcomopFJG((codageFeG((despacho%Cimportac Qimportac%CMovstock QmovstockFkG-(e/e%Cccclie QccclieFmG((codcliFoG((cuentaFqG((codins%Cpaises Qs\paises%Csprgrupo Qsprgrupo%Cccvent Qccventccvfac%Cmotivos  Qmotivos%CventasC FxQQventasy< J(y%z T %S <T{/xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec P mT{`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec))) .and.cod_cue#"203010000" * %S =T{0xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec & mT{`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec))) .and.cod_cue#"203010000""%|CX }CX %~ YT{{H.and.val(xdcli)<=val(ventas.cod_cli).and.val(ventas.cod_cli)<=val(xhcli)  ET{{4.and.xdcli<=ventas.cod_cli.and.ventas.cod_cli<=xhcli% E &T{{ AND ventas.causa#"r"% (T{{ and bienes.marca=xdmar% AT{{0 and !EMPTY(ventas.cod_ins) and bienes.lotes=[S] A%=DT{{3 and !(!EMPTY(ventas.cod_ins) and bienes.lotes=[S])%Cmarcas oQmarcasFwG((codigoFG((codigoFqG-(D%Ccur_venFQselect ventas.* , iif(causa='V','A','Z') as ord from ventas left outer join bienes on ventas.cod_ins=bienes.cod_ins order by ord, bienes.linea, bienes.grupo, ventas.cod_ins where &filtro into table (p_local+"\tmp\cur_ven") QFxQ$ \tmp\cur_venxG-(3qG-(mG-(*uFuG-(,wFx%LT{?!( (ccvent.causa="c" or ccvent.causa="d") and motivos.tipo=8) JT{=!((ccvent.causa="c" or ccvent.causa="d") and !motivos.ventas)% OAT{4.and.xdzon<=clientes->zona.and.clientes->zona<=xhzon%C/T{{.and. xdprv=clientes.provincia%CxdpaibN T%Z%"4T{{#.and. not inlist(clientes.pais,0,1) V*T{{.and. xdpai=clientes.pais"%CX CX 7%WT{{F.and.val(xdage)<=val(ccvent.agente).and.val(ccvent.agente)<=val(xhage) 3CT{{2.and.xdage<=ccvent.agente.and.ccvent.agente<=xhageset filter to &filtro F1$& )*3($\borrarFx#)$CObteniendo ventas...+C+ '%uu*xx*FuG((ccvfacExx*FxTxd ud ud ud ud ud ud ud *%xx* A04-00000095d%%x*V Cx3 FFqG((codins Ex3Fx %x3C32797? Ta T T+B T T T T T T TT~TCxxx*xx3xxxxxxF1 T-Exx*x3 TC4 T T TF1>BC >[FG((codigo EqbFG((codigo EqDF1>DqD>Q4>bqb>c4>FF>ICq>LCqL>/x>)x>*x*>3x3>.x>]x]>^x>0m0>MCmM>OmM>PmN>NCmNNF1*>SuSTuTUuUFo%Cx3 !CqcuentascuentaTqB F!CxZcuentascuentaToBF1'>_o_`o`aFJ EuJF1>JuJ>KJ08>55C  cc6"%S x5 d%xdI'>6xx5 xd  ` >6 &>6Cx6xxx=>77C  cc66F>88C  cc66%CT78ud >9%S FJ EuJF1mCxx* Comisin : CCu @z 999.99_[uJ] J0xxm0>;789:FqG((codins Ex3F1 >G%x O><CqCx6x3Cx<xxx3 0TCCx6x3%C :*TCx<xxx3 ><@>VW\CXY]%x A01-000057168x3C40921Cx3>x3C40922Cx3>  %5><;5 p= ף?@%x A01-00005913x3C40922Cx3> %5><;5 ZB>?<>==<C  cc60>>CC;C=; dT6>?;=>@C>AC >H z Hav  /%SN u,  %  C  C  v :%SS u,   h % M C d C r FxH Cb% C CX CX    #+CBARQ@+CBA!RQ@*CBARQ@+CBA"RQ@ +CBAiRQ@+CBARQ@*CBA/RQ@+CBADRQ@+CBARQ@ +CBARQ@*+CBARQ@++CBA3RQ@,FxQF1$>R<H dH%%  y#F15% W$Noconver3eCURC ZRC Z1 borrar3333GF1F ~7$+:1Ce1G313 G FQF13T{.t. C%C $T(!eof("BIENES")) $0T#(!eof("BIENES").or. empty(cod_ins)) %  9%3T".and.xdlin<=linea.and.linea<=xhlin% %FqG-(BkTZ and between(iif(bienes.masterlin#0, bienes.masterlin, lineas.masterline), xdmlin, xhmlin)% 2&3T".and.xdgru<=grupo.and.grupo<=xhgru% &QT@.and.xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgruT!()F1G-(3q8Cz .. ]] 6 dele for ¬filtro % D'5&>4q4ZqZC3 3H'(  'F& CB AB6CCBZ3)($\borrar K(; K(G-(/m'& m03)($\borrar K(; u( C K( ( C K( ( C K( T T T T T T T T T T T T T T T T T T T T T TB T T Ta*TFecha : CC$* Hora : C^T T%Cy* T * T T Tlistados6% S  + CH"+, C+ CF1y>2C*VFCYC*cNCDC*dND/C*MMVC*rRE 66666 C+ C  , C  T C%C- O-%C K-T \contribucion_C_a_C_C con_lotes-C con_lotescon_y_sin_lotes66%C  G-cotmp_p146)*.]34QGQe5Q<\[q ( Ի(-4C'Archivos abiertos...no se registran !!! F ($\borrar%-F1(($\tmp\rpt_sch_contrib_t1F('($\tmp\rpt_sch_contrib_2F'($\tmp\rpt_sch_contrib_3F(Q(T'Finalizando los datos...T.Q$\tmp\rpt_sch_contrib_t1-Q$\tmp\rpt_sch_contrib_3(olineas/ masterline%2osalidat1QXsalidat3Q /BX masterline /CC4C SIN LINEAQC4CSIN LINEA MAESTRAQCB / salidafinalH 0f2 g0Ho salidafinalQXbienes q33q4sf2 0Oo salidafinalQXbienes q33q4<sf2 f2(o salidafinalQXlineas C/BCC4C(XQC7Q7C8Q8C9Q9C:Q:C;Q;C=Q= Q C?Q?CAQA Q!CHQH QRCH5Q"BCsf2> =; d;>!?; d;$>R=" d"'($\tmp\rpt_sch_contrib_1Q K3F@osalidat1 Q  Q!tmps1> $ d>! d'($\tmp\rpt_sch_contrib_1FQFQ%%S 3 C&F1QGG(G*G on escape &onesc BU'XVERSIONXDMONXDPESXFECHA_VERSION_3 XGLOBAL_ERROR OESTADOMAXOESTADO SET_AND_SHOW GUI_DEBUGLISTADOSXDPRNXDSEPXDMOTXHMOTXDBONXDCODXDCTRXDCHKXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICATEXTOBORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRETMP_P146TIPOCPBTCOD_INSDESCR RECEPCIONCOS_LIFOBRUTOBONIFCOMISOTROSNETOCOSTO TOT_COSTO PER_COSTOCONTRIB PERCONTRIBDIVISORLINEAMLINEAGRUPOSUBGRUPO SUPERGRUPODSPFOBGRUPO_PFAGENTENOMAGECODALT1 PROVINCIAPAISCLI_PROVCLI_PAISGRU_DESFACTORTRANOTREFCOS_MOMON_MOFOB_MOCOF_MOCOD_CUEORICOS MON_MOTXTFEC_ENTREMITOERABREV LINCONTABMARCAMAR_DESCONVERDESPACHOIDX04COMOPCODAGEIMPORTACMOVSTOCKCCCLIECLIENTESCODCLICUENTASCUENTABIENESCODINSP_SYSTEMSPRGRUPOCCVENTCCVFACMOTIVOSVENTASXXXAXPOR_FECHA_ENTREGAFILTROXDCLIXHCLIP_CLINUMXREMITOSXDMAR XDCTRLIVAMARCASGRUPOSCUR_VENCOD_CLIFAC_VEN XCONTROL_IVAXDZONXHZONXDPRVXDPAIXDAGEXHAGEP_AGENUMAVANCEGDESCDES_INSDESC1DESC2DESC3DESC4DESC5DESCA1DESCA2XPARCIALXRECOLDXSTKCANXDSPXDSPCANXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOREM_VENITMFEC_VENNOSTKFCDEREVERSIONENCXLINEAXLIN_DESXMLINEAFN_LINEAESPECPROVINCVEN_CUE XLINCONTABXDIMPXHIMPXDPRETOT_VEN CONVERSIONCOEFICCOEFXDCOMXDFCOMISIONCONTROLCONV_COSMONEDAXTC_A_FECHA_DE_COMPRACOSMONXCOSTO_3 MM_MONEDARNDFN_CONTRIBUCION FN_DIVISOR NC_GENERICASEPARADOMOVS ADICIONALFORXDORDXHORDCAU BORRAR3333ALL FN_FILTBIEXDINSXHINSFILTRXDLINXHLINXDMLINXHMLINLINEASXDGRUXHGRUXDSPRGRU NOTFILTROXDFECXHFECXDTIPXNETCTRLAGRUP_2SUM_NETOAGRUP_3AGRUP_6CA_BRUTOCA_BONIFCA_COMISCA_NETOCA_OTROS CA_TOT_COSTO CA_CONTRIBBA_BRUTOBA_BONIFBA_COMISBA_OTROSBA_NETO BA_TOT_COSTO BA_CONTRIBAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIBLINPAGMAXLININICIALXTEMPOLDLINOLDCODANCHOTAMMARGENMARGTAM DISPLAY_CTRTIPO_1TIPO_2TIPO_3XALIAS EXPORT_DIRXDESTINO P_DIR_EXPORT ART_DESCRCANTIDADQOEXMENSAJEVALUESALIDAT1SALIDAT3 MASTERLINEST1ST3LIN_DESMLIN_DES SALIDAFINALSFSF2 SUM_CONTRIP_COSTO P_CONTRIBACCFOBTMPS1 SUM_TOT_COXDTOTTOT_LINF"%C X C X {G-(CT2.and.xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcue% 3T".and.xdgru<=grupo.and.grupo<=xhgru%  DRTA.and. xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgru%C  % KT:.and.val(xdins)<=val(cod_ins).and.val(cod_ins)<=val(xhins) 7T&.and.xdins<=cod_ins.and.cod_ins<=xhins"% CX CX F#T.and.xdcen=cod_cenGI8index on cod_ins to (p_local+'\borrar1') for &filtro GI BUBIENESXDCUEXHCUECOD_CUECUENTASFILTROXDGRUXHGRUXDSPRGRUXHSPRGRUXDINSXHINSP_NUMINSXDCENXHCENr4%G%S%[BCT % ɚ; BCT BCT 5 TC% F B 0 TCFGF EGF% r,TCC6 T F B ,EC El cambio del dolar de la fecha C * no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B F B kBCU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXVERSIONXDPESXXAAAAAIDX04INDICE1 MENSAJE_WAITFECHA XGLOBAL_ERRORERRORES PRECIO_USS CONVERSION24% 5%N%a B  TCFGF EGF% >%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C    T TC  T F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %& B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F B BCBU XCOSTO_MOXMONEDAXFECHAXCODIGOXVERSIONAAABBBXDPESIDX04INDICE1XCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJE CONV_COS2<r%CX CX   CX CX C SCH vB%Cmotinv QmotinvFG((codigoF G-( G-( dTW!eof("bienes").and.xdfec<=fecha.and.fecha<=xhfec.and.motinv.tipo=1 and motinv.con_op<=1GI`index on str(bienes.linea,2)+str(bienes.grupo,2)+cod_ins to (p_local+'\borrar3') for &filtro GI G-( F #)+C+ $ TCO T T Ta T T+ T T T T TT{TCCXC @z 999999999999_M    F G((borrar3 #F T!-)%"" "  E T!C4  # %! F F > CC Z%>$CC @z 99999999999_>%M> > 8>&&C'( ) cc6 >*>++>,,>-->.+,- > >/ >0F G((borrar3 #F %123 ?2>4C 6C7 6 5 0T8CC7 6 5 >48 >48@>9:;C<=> >#F G((borrar3 #F <>??4C'( ) cc60>@CC.C?. dT6A>B.?>CCD>ECF>G G>H H>IJI>KC L>MC M >NF G((borrar3HF G-(BUOXDCLIXHCLIXDZONXHZONXDAGEXHAGE XDCTRLIVAP_EMPMOTINVCODIGOCONVERCOD_INSBIENESMOTIVOFILTRO REGCONVERXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOTRANSFITEMFECHABORRAR3TMP_P146ENCXDTIPDSPCOMPROBCAUSA RECEPCIONXDIMPXHIMPXDPRECOS_LIFOBRUTOBONIFCOMISNETONOMBREORICOSVENTASFEC_VENXFECHA_VERSION_3COSTOCONV_COSMONEDAXTC_A_FECHA_DE_COMPRAXCOSTO_3COS_MOMON_MO MON_MOTXT MM_MONEDAFOB_MOCOF_MO TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBFN_CONTRIBUCIONDIVISOR FN_DIVISORLINEAGRUPO SUPERGRUPOGRUPOSGRUPO_PFESPECCODALT1FOB4%%A T T T Ta T T+r T T  T  T  T T mTC    F4TC  cc6!T dTCH C " ! _B  !6 67%" # ! _B ^ T>$>%&%>'>>>(>))>$>*C!,+>--*>..*/ >0>1-.02 >>33C0>4CC1C31 dT65>613>7C8>9C: >;>< >= >> >? >@ >A >BC&BC>D&B>E&F>FC&FFF*>GGHHIIFJ%C !CKLcuentascuentaTMK< @!CNcuentascuentaTMJ<F'>OJOPJPQMFRBUSXTIPOVENTASCOSTOXPARXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOCOD_CLIFAC_VENCAUSAREM_VENCOD_INSITMFEC_VENTMP_P146XRECEPXDIMPXHIMPXDPREXXPRECIOTOT_VEN RECEPCIONCCVENTMONEDACOEFIC XDCTRLIVAMOTIVOCODIGONOMBRECLIENTESCOMPROBFECHAFEC_ENTCOS_LIFO CONVERSIONCOEFBRUTOBONIFGDESCCOMISNETOOTROS TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBFN_CONTRIBUCIONDIVISOR FN_DIVISORDSPLINEAGRUPO SUPERGRUPOTIPOFOBORICOS PROVINCIAPROVINCCLI_PROVCLI_PAISPAISTRANOTREFCUENTASBIENESVEN_CUE XLINCONTABCOD_CUEERABREV LINCONTABCCCLIEF!& (\borrar5 T#)+C+ v%nTHBUBORRAR2CAUSACOMPROBP_LOCALACCCOMITIPOTOTAL#4 TCF  > >  >  >  > > > > FBUXCOMXCAUXTOTXMOTXTIPXFECXCODXNOMAREABORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRE%-T D TT TCC "  _B   6 C "  _B   6 cTT  FG((comprobG E G %C4`#+C+   \T T=% CZ CZ V F C M TCOT CZFG((comprob E%C4% F T -GEG T C4% F T!CO T")+C+  8T""#H #!%")+C+  FT$C#" T>%%$>&#'(%0>)CC&C+& dT6*>,&+>-C.>/C0%1SC$Est afectada por la CcNCND6  (CC3Z)  452FH  zCError en comprobante 2 !!! Puede que el filtro excluya al cpbt imputado.  452F #%1SH%C6     7 7 6 C %8 L F #H%C6     7 7 6 C  )mCError en cliente C $ !!! Haga F3 en la cuenta corriente.  452F # CFG((comprob #FH _C.No est bien registrada en la Cuenta Corriente  452BU9CCVENTTOT_VENXITM_VENVENTASXBRUGDESCDEUDAXUSS CONVERSIONMONEDACOEFICFEC_VENXNCNDCOD_CLIFAC_VENCAUSACCCLIECOMPROBXPARIMPORTEXIMPORTECUOTAREFCAUCUOSEPARADOREGXREFXDFECFECHAXHFECTMP_P146ENCREG_146X146BRUTOXOTOTROSNETOBONIFCOMIS PER_COSTORND TOT_COSTOCONTRIB PERCONTRIBFN_CONTRIBUCIONDIVISOR FN_DIVISORXDCTRCONTROLMOTIVOCLIENTESNOMBREXPOR_FECHA_ENTREGAFEC_ENT PUB_INDEXotmp_p146Xlineas  CQCCCCCC C C   C QCQCC(XQ  curF$> d T T T Tlistados T a T! T" T# T$ T% T& T'#)+C+ T!!(T"")T##*T$$+T%%,T&&T''-H(.\borrar1BU/SUMTMP_P146 RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBDIVISORLINEAMLINEAGRUPOTIPOFOBFACTORACCFOBLINEASDESCRLIN_DESCODIGOCUR SUM_TOT_COSTOFORXDTIPANCHOTAMMARGENMARGTAMLISTADOSINICIALAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIB SUM_BRUTO SUM_BONIF SUM_COMIS SUM_OTROSSUM_NETO SUM_CONTRIBP_LOCALFG-(G-(#)+C+ TTT  T  T  TTHBUTMP_P146COD_INSBIENESCODIGOCLIENTESAA_BRUTOBRUTOAA_BONIFBONIFAA_COMISCOMISAA_OTROSOTROSAA_NETONETO AA_TOT_COSTO TOT_COSTO AA_CONTRIBCONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCOD_INSBIENESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCODIGOCLIENTESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIBGotmp_p146CQCCCCCC  Q C C  Q C QCQcur>  d>  d$> dBUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIBDIVISOR P_CONTRIBLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBMLINEAMARCAMAR_DESCUR SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIB-otmp_p146CQCCCCCC  Q C C  Q C QCQcur1>  d>  d$> docur1<curBUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIBDIVISOR P_CONTRIBLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBMLINEAMARCAMAR_DESCUR1 SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIBCURB)>CMM 6otmp_p146CCCCC C C C C  QC Q cur$> d& BUTMP_P146CAUSAALLCODIGONOMBREBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBDIVISORFOBFACTOR RECEPCIONACCFOBCUR SUM_TOT_COSTOFORBORRAR11}45cTCVFCDCcNC/CdNDCrRE??6666 BUXCAUAAAp4He d4 Bd  R B 2e BBUXVALOR _4     TC TC %0181192 TC T -% T%Citm_desc Qitm_descF G((idEC Z%C4PT  FG%C S-6 S    %CxRecOldbL T F G((primario% HG EG %C4 DGErG  [ # %C4   T" T# T$a T%-2+&'r&' %()  4 T%a%Cdespacho+ T"" *%C+.RT+,T+-T##+,*T+.F/G((despacho E + T0%/1"C/1importacnumero%T0C12SSN6F/+C+ + + f%3^!H!%+ +3 T /4T/5/% /1 /- T.T. " T  T%67 %C/167TCC, 6CC/1ZCC0 06:C +C *(CC *Z)6T * G%8%++PRESTAMOZTCC, 6C +C *(CC *Z)6T * CTCC, 6CC/1ZCC0 06:C +C *(CC *Z)6T *F .TCC, 6Pto%67 T * T 0 ]C$Error en mov., despacho inex.: DSP: + Cod: ( Cpbt:& '9]T:$Error en mov., despacho inex.: DSP: + Cod: ( Cpbt:& '.TCC, 6Inx%67  T *  TC:;H%% WT C Z&'(C)Z&rC Z&'(C)Z T CO!   T " F%" B  B#"   ZC$No se encuentra el movimiento: DSP:  Cod:  Cpbt: 9ZT:$No se encuentra el movimiento: DSP:  Cod:  Cpbt: C:; & %   T <=c "  T F%] B  %CxdCOSDbL T>-%> ?@$TACB <C6 TD TEF cs_generarDE?3  C .6A%?~ %D B?  B  BHBUIXCLIXFACXCAUXREMXCODXCOSXDSPXCOSMONXDSPCANXPARCIALXRECOLDXSTKCANXFOBXITEMXFECCOSXMONCOSXMONFOBXFECHA_OPERACIONXNOSTKXORICOSXORIFECXFCDEREXVERSIONAAAITM_DESCIDOLDITEMXFECHA_VERSION_3BIENES IMPORTADOLOTES XCONTROL_IVAMOVSTOCKPRIMARIOACCUNIDACCCOSTOPUNTOENC_CODNUMEROCAUSACODIGOITEMCANTIDADDESPACHOCOSTOFECHAMONEDACONVERXCERRADAIMPORTACCERRADACOD_INSFOBCOEFXDIMPXHIMPXDPRE MENSAJE_WAIT XGLOBAL_ERRORERRORESVENTAS RECEPCIONXDCOSDXNEWCOSXACTCOS XFECHA_TCXTC_A_FECHA_DE_COMPRAFEC_VEN XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARCOSACTB4%C7F> 999999> COSTO X PASE$> CLINEA CCZCCX> > > ">C999999> >d> >>C > >BUXFECHAXCANTXDOLARESXCAMBIOXLINEAXGRUPOXDFECXHFECTMP_P146CODIGOCOMPROBCOD_INSFECHA RECEPCIONCOSTOCONV_COS TOT_COSTO PER_COSTOCONTRIBNETO PERCONTRIBDIVISOR FN_DIVISORLINEAGRUPO4*%2727  SCH uT@ TT YPF MANT. PLP *%2034  SCH Tffffff@ TT YPF MANT. %C SCH IT333333@ TTAJUSTE IMPOSITIVO FG((codigo E -%SCH ANTICIPOS  #6HT T  T UXLINEAXDESCRXMLINEAVENTASCOD_CLIP_EMPES_AJUSTE_IMPOSITIVOLINEASCODIGOBIENESLINEADESCRXLIN_DES MASTERLINEM%C $C$ C $ % A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c  A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V  BaB-UVENTASFEC_VENFAC_VENCAUSAM Ta %CC $"% A01-00004643 A01-00004645  A01-00004646  A01-00004647  A01-00004648  A01-00004649  A01-00004651  A01-00004652  V  T- %CC $=% A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c 9 T- BUXRETXDFECXHFECVENTASFAC_VENCAUSA %CC $% A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V BaB-UXDFECXHFECVENTASFAC_VENCAUSAd4 TCWF"Q\tmp\errores_contrib >Q FBUXERRORXAREAP_LOCALTEXTOh%CxmonedabL= T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxsch_rpt_contribucion2T\xchgTT 9TTT  C C <BU XTABLAXDFECXHFECXMONEDAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDMON EXP_TABLARELEASEb4%S%HBCT % ɚ; zBCT BCT 5 TC% F B [ TCFGF EGFT CindiceCCZ% |,TCC6 T F B WXC3El cambio del "+mm_moneda(xdmon+1,1)+" de la fecha C * no existe !!! XT El cambio del C * de la fecha '+DTOC(fecha)+' no existe !!!C  F BU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXDPESXXAAAAAXDMONIDX04XCAMBIO MENSAJE_WAITFECHA XGLOBAL_ERROR MM_MONEDAERRORES4 5%S%N B  TCFGF EGFT CindiceCCZ% C%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C   T T  F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %+ B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F BBU XCOSTO_MOXMONEDAXFECHAXCODIGOAAABBBXDPESXDMONIDX04XCAMBIO_DESTINOXCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJE%F,TCC dT6 |,TCC dT6BCU XCONTRIBUCIONP_CS_CONTRIBUCION TOT_COSTOCONTRIBNETORNDBC6UP_CS_CONTRIBUCION TOT_COSTONETO fn_filtbie= conversion@conv_cosDmovsIseparadoS display_ctr[control\ nc_generica]tot_linsgtipo_1ktipo_2Bmtipo_3nagrup_2pagrup_3ragrup_6u tipo_comprwrndxfn_costox adicionalfn_linea#es_ajuste_impositivofiltro_fac_sacarێfiltro_fac_agregar\errores exportar_1 conversion2 conv_cos2fn_contribucionc fn_divisor=@211AAgqaaEAqAA AqAAa!=qABrrRQArrAAAAq1!ArrrAAAA1ArqAA!4BABAA"QAAaA4A21AAA!ArrrqAAArArrAAQAA1ABAA"q1AAsArQDrq1Ar DTvqD1uR1rrrrr!!AArrQArtrt"aqAaAbBqqABrrbAB1AA1AAB1AD1ADABrAA$AuAvARqAbrQrAbrArABbA1AqA1AArrAeBa2q222BrAbAqqq1A!4AAAAB5qAsqrqvA3Y 111AArAqqBrAqAArAeaaaAD6r!1A1A!AaqAA!1AbaA312I2a!AAA1qaa1QAAA21:B1qaa11q1AAQAA1qaar1AcBBAA2!AA!AqrEdarQ1rrAqQArAQQsqb!Brr!!AqBAqaB:qbB3A1vQEErAAaqBArrQArtDqA5qQ1AAAB31rQA3gqA$ Qsba2wrsb1arAA2rBqArAABrACA3AABrDArArBrABAB5@rBSCAB9rRBAB6rQBAB5rQBAC3yAB3AA2BB2qq12q1AAA=21DAAqbABsAr1dabaAA!Bbsa!QAr1AAAAAA1AAAA1AAArABBABAAArABA1BAqBA1AE3E3AAAA3rqQ1A!aAB2QQaQqRAABAA2`qAAq1AAAA2 rAAq2q!QAA014A""BrB31I2a!AAA1qaa2AA31B4qaa21q1AARQAA1qaar1AcBBA2r5B23:G]C`*TZ`AeH~VeNm_m|{ {ii]uqʉ;O   '%(*Ԫ=79U=MgDBwJX۴OxZ*@5% =B. JR Qc \ o  , 3j? % UD lXǃG+( in_solcom5 T T  TTC T tmp_rptsolTC Ttmp_rptsoladicTC Ttmp_rptsoladic2T .T.% T  .and.xdbie=cod% VT  .and.bul=xdbul% T  .and.atr=xdatr-%C  $ 7T  & and betw(esolcom.fecha, xdfec, xhfec)% O6T  %.and.betw(bienes.linea, xdlin, xhlin)% 6T  %.and.betw(bienes.grupo, xdgru, xhgru)%%T  .and.comprador=xdcmp%!'T  .and.usr1=xsolicitante-in_controlar_sol- select &xalias C F& C& C ZC!Z & ""& ##& $%&$& C''F(%)'-& C*ZC!Z(+\tmp\tmp_idx_sol ^-& C ZC!Z(+\tmp\tmp_idx_sol((+\TMP\rpt_in_solicitudes%C FQBU, IN_SOLCOMXARCHIVOXALIAS XARCHIVO_ADIC XALIAS_ADICXARCHIVO_ADIC2 XALIAS_ADIC2XODS2XDATASESSIONIDXDATASESSIONID2ODEYFUNCNEWFILE_LOCAL_TMPXFILTROXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDFECXHFECXDLINXHLINXDGRUXHGRUXDCMP XSOLICITANTE SOLICITUDESIN_CONTROLAR_SOLXDEST AGREGAR_ADICXDDETFECHASOLITMDUSRDESCRCODATRBULENTREGATMP_RPTSOLCOMAD3XDISOSOLAUXP_LOCALMaselect xal.*, not isnull(tcom.orden) as oc_present, nvl(tcom.orden,0000000) as oc_num, nvl(tcom.itm,000) as oc_itm, nvl(tcom.cod_pro,space(6)) as oc_prov, nvl(tcom.fec_com, {}) as oc_fec, nvl(tcom.recepcion, 0000000000.0000) as oc_recep, nvl(tcom.recep3, 0000000000.0000) as oc_entrega, nvl(prv.nombre,space(60)) as oc_descr from &xalias xal left outer join tcompras tcom on xddet>=2 and xal.sol>0 and tcom.sol=xal.sol and xal.itm=tcom.item and betw(tcom.fec_com, xdfec, xhfec) left outer join proveedo prv on tcom.cod_pro=prv.cod_pro into cursor tmp_rptsolcomad1 readwrite otmp_rptsolcomad1QXconverQ       C CQCQCQC Q tmp_rptsolcomad2otmp_rptsolcomad2QXcomprasQ && ' C XcccompQ ))XproveedoQ" "CCS 6 QCCS 6C XQCCS 6QCCS 6CXQCCS 6QCCS  6Q!CCS "#6Cue$X!W9l1e2f,bs.c&\>jИ0c}w0c8jd9l'^>mcwxwuwzfȈfj~ɴ`,b&^ɴꋍT{K|{ּ=ni!,  J˔%CCdf E [Q1HUQ9 |pPFPet16u6`R+ɫ8 pL OH0s)D/8r& >$לZ}.)dHV(Fͩ ﴀ;%AT%Cconver2 ,Qconver2T.t.-T betw(conver.fecha, xdfec, xhfec)%5OT> and (empty(conver2.rec_manualf) or conver2.rec_manualf>xhfec)fTYimporte>0 and (empty(canc_man) or canc_man>xhfec) and (empty(fec_fact) or fec_fact>xhfec)%C *T and conver.cod_ins=xdbie%C &T and conver.bul=xdbul%C &T and conver.atr=xdatr%C C % fJT9 and between(val(conver.cod_pro), val(xdpro), val(xhpro)) ;T* and between(conver.cod_pro, xdpro, xhpro)%   9T( and between(bienes.linea, xdlin, xhlin)%   e9T( and between(bienes.grupo, xdgru, xhgru)% 7T& and between(conver.orden, xdoc, xhoc)%Cconver Qconver%Cmotinv Qmotinv%Ctcompras LQtcompras%Ctcccomp |Qtcccomp%Cproveedo QproveedoGT:*(1-nvl(tcccomp.desc1,0)/100)*(1-nvl(tcccomp.desc2,0)/100)%T%T٦iif(conver.importac#0, conver.costo*conver.coefic, iif( nvl(tcompras.recepcion,00000)=0 or nvl(tcccomp.tot_com, 0000)=0, 0 , tcompras.tot_com / tcompras.recepcion )) P|Toiif( nvl(tcompras.recepcion,00000)=0 or nvl(tcccomp.tot_com, 0000)=0, 0 , tcompras.tot_com / tcompras.recepcion 9%`TSiif(conver.importac#0, conver.costo, nvl(tcompras.cos_lifo, 00000000000000.000000)) 5^TQiif(conver.importac#0, conver.fob, nvl(tcompras.cos_lifo, 00000000000000.000000))TdTSiif(conver.importac#0, conver.costo, nvl(tcompras.cos_lifo, 00000000000000.000000))select conver.transf , conver.item , conver.fecha , conver.cod_pro , proveedo.nombre , conver.importac , conver.orden , conver.refitm , nvl(tcccomp.fec_com,{}) as fecha_ord , nvl(iif(tcccomp.pend="N","N","S")," ") as pend , conver.cod_ins , conver.atr , conver.bul , alltrim(bienes.descr)+iif(bienes.atributos="S", " "+alltrim(atributo.descr), "")+iif(bienes.bultos="S", " "+alltrim(bultos.descr), "") as descr , nvl(tcompras.recepcion, 000000000000.00) as ordenado , conver.entra-conver.sale as recibido , &xxprecio as precio , &xxpreciomo as precio_mo , iif(conver.importac#0, conver.coef, nvl(tcompras.moneda, 000)) as moneda , iif(conver.importac#0, conver.coefic, nvl(tcompras.coefic, 0000000000001.0000000000)) as cambio , 00000000000000.00 as facturado , 00000000000000.00 as importe , " " as tipo_fc , 0000000000 as op , {} as fec_fact , conver2.rec_manualf as canc_man , 0000000000 as facturas , nvl(bienes.linea, 0000) as linea , 0000000000.00000 as cambio_uss , 00000000000000.00 as precio_uss , 00000000000000.00 as importe_us , iif(isnull(tcccomp.pend), " ", iif(tcccomp.pend#"N","S","N")) as oc_pend , conver.dep_ing , conver2.bultos , conver2.cod_fle , fletes.nombre as nomfle , conver2.chofer , conver2.dni , conver2.dominio1 , conver2.dominio2 from conver left outer join tcompras on str(conver.orden)+str(conver.refitm)=str(tcompras.orden)+str(tcompras.itm) left outer join tcccomp on conver.orden=tcccomp.orden left outer join proveedo on conver.cod_pro=proveedo.cod_pro left outer join bienes on conver.cod_ins=bienes.cod_ins left outer join atributo on conver.cod_ins+conver.atr=atributo.cod_ins+atributo.clave left outer join bultos on conver.cod_ins+conver.bul=bultos.cod_ins+bultos.clave left outer join motinv on conver.motivo=motinv.codigo , conver2 left outer join fletes on conver2.cod_fle=fletes.cod_fle where conver.transf=conver2.transf and (motinv.tipo=3 or conver.importac#0) and iif(conver.orden<=0 or isnull(tcompras.fec_com), .t., year(tcompras.fec_com)>=2007) and &xfiltro order by conver.transf, conver.item into cursor q readwrite %Cidx04 Qidx04F ~TTT !T"#ocomprasQ$cccompQ3C$%Q&$'Q($#Q)$*Q+C$,OX Compra6C$,M X Recepcin 66Q-$.Q.C$/Q0C$.ZC$4ZC3.ZC34ZCC$/56 n$'C$#ZC  ZC"Z $,O 5$'C$#ZC ZCZ $,M   q1 ~F>&&7&*>-7-.7.070>88FG((idx04 E9%C4 MGF E9GFF>:;Hy <#>=C: >: 6 < >=> 2'>=C:>?: 6%@.>ACB&=T N>ACB=T%@|>CCB&DT >CCBDTFGcopy to (p_local+"\TMP\rpt_in_recepciones") type fox2x for &xhaving QBUECONVER2XHAVINGXFILTROXDTIPXDBIEXDBULXDATRXDPROXHPROP_PRONUMXDLINXHLINXDGRUXHGRUXDOCXHOCCONVERMOTINVTCOMPRASTCCCOMPPROVEEDO XDESCUENTOSXPESOSXPRECIOS_NACIONALIZADOSXXPRECIO XXPRECIOMOIDX04QXTRANSFTRANSFXITEMITEMXORDENORDENXREFITMREFITMCM RECEPCION FACTURADOREFCM_REF CM_REFITMCOD_INSCM_CODREFCAUSATIPO_FCOPFEC_DGIFEC_FACTCOMPRASCCCOMPCCPAGO XDFEC_FACT XHFEC_FACTQ1FACTURASFECHA CAMBIO_USSINDICE1MONEDA PRECIO_USS PRECIO_MOCAMBIOXSALDO IMPORTE_USRECIBIDOIMPORTEPRECIO1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_recepcionesT\tmpTT T T T  C BUXTABLAXTIPOXDESDEXHASTAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDFECXHFEC EXP_TABLA!1QEXPORTACIONES_CRYSTAL Imp_exp.vcxKTCexportaciones_crystal Imp_exp.vcxin_rpt_recepcionesT\tmpTT TTC$T C3 $ C BU XTABLAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDTIPXDFECXHFEC EXP_TABLA exportar_erz exportar_todo1A2bB"!aA!aAAAAAAqA!A!AAA1AAAv2 AABCsAr@ArCBraaAr111qAaAaABstBB24"AB2t"qqAB1v $%3*GkE1 a Ta1xOK=.f. G(%L T xG(9T9ON ERROR &OnErr < C7estadoJTaT T T  CG+(Dey_funcG+(listados T- Ta T- TaTCCT00000000000000CccventCmovstockCmotinvCBienesTCTCFh1\tmp\N CCCCC C N!N "D#LQ\tmp\$Fh1\tmp\CCCC!N %NN QQ\tmp\&%& ' & ' T(:)trsac(ccventmovstockmotinv%( T(;+trsac(dos_consolidar Consolidacin%(%C aplicableF$Q \tmp\.dbf \tmp\.cdx%CfinalF&Q \tmp\.dbf \tmp\.cdxT(;,trsac(dos_consolidar Consolidacin T-%.4C'No se pudo realizar la consolidacin!!!/<B ;4C'No se pudo realizar la consolidacin!!!/<BF0-1%C4| T23 T45 .C!No existe el tipo "Stock Inicial"/<BF6#) T7C;C"Buscando movimientos a consolidar.8 ~-T  T9C6;6<:1%=>9 3?@  )r aplicable !"#CmovstockO636A6B6C6;6<6D6E6=9F$=C$Totalizando movimientos encontrados.8 ~v T  F&%!E$$$$ E$$%C4 >!!$! k QrFINAL!$$$$$!F$F&% ! >%COFHG((codinsF&G-(H<C#Registrando los totales calculados.8 TJ%COG T44 ~ TKCX TLTMCX TNTJJrmovstock=3ABCE<;DO>&&&&&!MC4 ZJ%&!` TK&TL&!  TM&TN&!rCONVER=PABQRSTUVWDXY>&&&HZLNKM4C4 ZJ2a%Jcp TJT44>&CMovStockOF0G((codigo E2%C4 >54F$<C#Consolidando movimientos, movstock.8#) ~A F6 #$F$:C!Consolidando movimientos, conver.8F\ G((MOVF$G-(C Z\~M %Cconver+ .F\F$G-(7CAjustando fecha de los Stocks.8F6 G((hora#) Ta T^-1xOK=.f. +aq T_OTC>000000%_= T__T`CCC\gCC\gCC\gCC \gCC \gCC \gTC`%T! m T^aHG((F&#) ~F6 #& >OF&CC*Marcando comprobantes como no cancelables.8FaG((CCVFACF$G-(a#) ~v%Cccvent+Y.Fa >caF$F$G-(;,trsac(dos_consolidar Consolidacin T- Ta1xOk=.F.AC(Eliminando registros borrados, movstock.8F6Qmovstock%_3F6Q :C-No se puedo abrir movstock en forma exclusiva/?C&Eliminando registros borrados, conver.8 TaFaQccvent%$3FaQ f8C+No se puedo abrir ccvent en forma exclusiva/ON ERROR &OnErr %dde DC+Marcando comprobantes como no cancelables..8 TfCF'Qg\data\CCdZ\ccventFaG((CCVFACF$G-(a#)~#%Cccvent+{.Fa >caF$F$G-(FaQ%fC< ThC%R,:Ch7Z%.0C#Se ha realizado la consolidacin!!!/%^PCCRevisar fechahora del primer registro de MOVSTOCK con orden HORA!!!/ 4C'No se pudo realizar la consolidacin!!!/R Ui DOS_TRANSFXOKOLDDATASESSIONID ACTIVEFORM DATASESSIONIDOESTADOSETSESTADOVISIBLEMINMAXVALUEDEY_FUNCLISTADOS XDSHOWTIMEXDXBAXCONSOLIDAR_NOCODXELIMINAR_INICIAL_CEROXINHORAXMIHORA CHECK_OPENEDXARCH_APLICABLENEWFILE XARCH_FINALP_LOCALREC_NOBIE_CODBIE_BULBIE_ATRDEP_CODFAC_VENFAC_CAUFAC_ITMMOV_CANMOV_FECPDOSCEN APLICABLEMOV_ITMFINALFULLAAALOCK_GTRSACBEG_TRANEND_TRANTTS_ID TTS_ERRORMENSAJEMOTINV TIPOAJUSTEXMOTINVCODIGOXCOMPROBCOMPROBMOVSTOCKXDSET_FULLXPDOSCEN IS_PDOSCENNUMEROCAUSAFECHAXDFECOBIEDATA_CODIGO_VACIOBULATRDEPOSITOITEMCANTIDADFORALLBIENESCODINSXITEMXDEP_INGXENTRAXDEP_EGRXSALEHORACOD_INSPERSONAENTRASALEDEP_INGDEP_EGRTRANSFREF2MOTIVOBAJADESCRINCONVERMOV XHORAERRORXMSHORAXTTHORACCVENTCCVFACSTK_CONSP_DOSP_CODEMPXOLDDBCP_SYSTEMXH=QSTRING%BCCC\g Vcd UXFAC_VENXCAUSA SYS_DOSCEN is_pdoscen!A1rq1!!53Q11q A!A21qAAbqAA1AAqAABqAAwqAAwQqv AAwqq1AAAqAqAwq!AaQA 2AAwAwQqAqAqqQqAAqAAqawqQ11AAAAAarQqqA6qq1QqAAqqAqaqAqAAqAqAA1Dqqq1QqAAqqAqaqA2QAAt!A2AAAS3QQ6'#$%%/.02.,U6XW4 Ta%SCH5 T L T jG(9(xG+(listadosG+(co_sql_balance co_comienzoa%Ccons QconsT  T F-  TTC]TC]TC]TC]TC]TC]\tmp\TC XTC XTNTNTST PT!1T"CXT#CX T$ T% T& T'T(TT)NT*NT+N<,7,2-"%C X C X T 999999999T.DF/>12F/G((abrev E T45 E T65G((cuentaT8\tmp\T9\tmp\.:co_sql_balance8 cuentas_auxF;G(33 T<AT=N%> <D ;F?G((fecha CA%> <D tG-(@? TB TC@ TD TEC]%%C tmp_monextFFQF;(\tmp\E!Q\tmp\EFFF& 5GHIJ TK TLTMNTNS TO:C  tmp_monextC6P CA TK TLTMNTNS TO(C  cuentas_auxPF;"& 3I(\tmp\R (h1\tmp\2N1N8N3C QC(GCHCICRC7C 5C SNTNUNVNWNQ\tmp\G(Y(codproG([(codcliF;G-(I[G-(IY% ~ %eFF G((id!E;5;G;H;I%3 1407 hrborrar3213QGHIR5TUVW;2;\;1;];3;Q;G;H;ICHC [RCHP YR66;5FTCCF2F\F1F];C;2;1;\;]CF2F1F\F] 6F2F\F1F]FT  ~ rborrar3213QGHIR5;2;\;1;];3;Q;G;H;ICHC [RCHP YR66;5F^G((asientoF/8& 5(\tmp\C`/\SC' 1& 5(\tmp\C`/\SFa Ta-%Cb Taa%a Cb TaaBF21V >821>21>288>18c8 F Td%a Ce TaaBF& 5(\tmp\F/ G!(\tmp\  1& 5(\tmp\C`/\S ~MH1 B C5R00000000s FC5=C/5= C5R000000 FC5=C/5= C5R0000 FC5=C/5= C5R00-FC5=C/5= 2BFF/FK(df21VG G>5C,g%d >2 >1d >2dc >1>VfcF/G((abrevFG-(3/G!(>7/5>821>21>28c8 >188>VVcFhG(G((asiento#6 Ti%a Cj %k|F #)%Clmn opCierre de ejercicio: C (CClm* --> Cn*) co_cierre.prgCnlq xopCierre de ejercicio: C (No cambia a Cn* porque el cierre actual es CClm*) co_cierre.prg  TaaG7(\tmp\<,%C cuentas_auxF;Q%C tmp_monext FFQ co_comienzo%a ^BSe ha cerrado el ejercicio C  con los asientos CCiZ y CCiZ BUr XTIPO_INFORME XMULTIMONEDAP_EMP ACTIVEFORM DATASESSIONIDOEXLISTADOSCO_SQL_BALANCE OPEN_FILES CO_COMIENZOCONSXDFECLOCALESCO_001XHFECCO_002EJERCONDIRCO_011XDMONBORRARBORRAR1BORRAR2BORRAR3BORRAR4BORRAR5P_LOCALXDCUEXHCUEXDSUMXDCCCXDCODXDPRNXDORDXDCENXHCENXDSUBXHSUBXDIMPXHIMPXDTASXDMOVXD123XDXUFXBORRARORDENXDIASUBCUENTASALLCREDITODEBITOABREVXDDCUECOD_CUEXHHCUECUENTATEMPTEMP1CREAR_BASE_TEMPORAL CUENTAS_AUXXMONEDAXCONSOL P_IDXCOEFIDX04FECHAFILTRAR_DIARIOGBA XTMP_MONEXT TMP_MONEXTCENTROPROCLICODPCID XGLOBAL_ERRORXMENSAJEXDXCCXDXCPXDTIP DATOS_BALANCEDESCRNOMBREITMMONEDACAMBIOMONEXTMONPASECODPROPROVEEDOCODCLICLIENTESANT_DEBANT_CRECONCEPTOASIENTOATRIBUTOXERROR_SECUENCIAELIMINARFORAAAA RESULTADOS AAAMONEXTATRCANDIARIOGXASIENTOASENTAR P_CO_CIERREOCIERRES CIERRE_BALCIEHASTAUSER_LOG PUB_INDEXCERRAR_EJERCICIO TT co_cierre.prgTAsiento de cierretrsac9trsacdiariogconceptocons%S Ttrsac TgC-No se pudo registrar el asiento de cierre !!!C #No se contina con la registracin. BF G((asiento#6T   T F G((abrevF ~F T  (>L N C$!"#U$2%N&Cierre de Ejercicio''())**FF+G((asiento E %C4 ;?> +Asiento de Cierre de Ejercicio,C >->./ Ttrsac#0"C  ZL T BU1AAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GEND_TRANTTS_IDMENSAJEDIARIOGASIENTOXASIENTOZCUENTASABREVBORRAR3DEBITOCREDITOCOD_CUEPOR_QUECOMPROBCOD_CEN SUBCENTROPASEFECHALOCALESCO_002PROCLINOMBRECODIGOCODPCTIPOHOYUSR PUB_INDEXCAUARCHSUBD COMENTARIOMONEXTMONPASECAMBIOMONEDACONCEPTOFEC_PROCTIPO2LEGAL XTIPO_INFORMEUSER_LOGZF(\tmp\C' FQ\tmp\& (\tmp\%Ccuentas QdescrF G!(\tmp\ 8& (\tmp\C /\SC' G ~NH2C CR00000000tF:C=C= CR000000F:C=C= CR0000F:C=C= CR00.F:C=C= 2CF:FG FK(   G G>C,%  >  > > c > > cF ~I T > > > c BCUBORRAR3P_LOCALBORRAR4COD_CUEALL_CUENTASDESCRCUENTASBORRAR5ATRIBUTODEBITOCREDITOMONEXTAAAA AAAMONEXTATRCANAAAASENTAR_RESULTADOS/ TT co_cierre.prg1T$Asiento de refundicin de resultadostrsac9trsacdiariogconceptocons%y Ttrsac TzC@No se pudo registrar el asiento de refundicin de resultados !!!C #No se contina con la registracin. BF G(G((asiento#6T   T F ~+F T  9>   L    NC$ !U"2#N$$Asiento de Refundicin de Resultados% %&'(')()F F*G((asiento E %C4 cE> *$Asiento de Refundicin de Resultados+C >,>-. Ttrsac#/ C  ZL T BU0AAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GEND_TRANTTS_IDMENSAJEDIARIOGASIENTOXASIENTOZBORRAR4DEBITOCREDITOCOD_CUEPOR_QUECOMPROBCOD_CEN SUBCENTROPASEFECHALOCALESCO_002PROCLINOMBRECODIGOCODPCTIPOHOYUSR PUB_INDEXCAUARCHSUBD COMENTARIOMONEXTMONPASECAMBIOBORRAR3MONEDACONCEPTOFEC_PROCTIPO2LEGAL XTIPO_INFORMEUSER_LOG/F>FG((fechaT asiento#-1"%CX CX 7T&.and.xdcen<=cod_cen.and.cod_cen<=xhcen%   ;T*.and.xdsub<=subcentro.and.subcentro<=xhsub%   F G((asientoFG-( OT>.and.xdimp<=concepto.importacio.and.concepto.importacio<=xhimp%AT .and.tipo="A"%M T .and.tipo#"A"H! f2T! and inlist(concepto.legal,0,1,2) 2T! and inlist(concepto.legal,0,1,3)1T and !inlist(concepto.tipo2,1,2)set filter to &filtro % D $G-(BU CUENTAS_AUXALLCREDITODEBITODIARIOGFECHAFILTROXDCENXHCENXDSUBXHSUBXDIMPXHIMPCONCEPTOASIENTOXDTAS XTIPO_INFORME P_IDXCOEFXMONEDAIDX04R%T<3oconcepto   <3oconcepto  "TC  C6%B TT  co_cierre.prgyT C=7Anulacin asiento de refundicin de resultados anterior&#Anulacin asiento de cierre anerior6 trsac  9 trsacdiariogconceptocons% Ttrsac  TC No se pudo anular el asiento de C("refundicin de resultados anteriorcierre anterior6 !!!C #No se contina con la registracin. B Ttrsac  #C ZL T BU XTIPO_ASIENTO ARR_ASIENTOSASIENTOCONCEPTOTIPO2LEGAL XTIPO_INFORMEXASIENTOAAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GEND_TRANTTS_IDMENSAJEINDIARIOGUSER_LOG PUB_INDEXasentar resultadosfasentar_resultadosi filtrar_diario/&eliminar*raAA"bArrq"aArrrqAA3qAArrBs!R@21s52rBDB BBusrttAAAs"qAAtrAqqqqqAArArbQaB2Asra"qraQ2sQs2 ABArqAAqAAbA32qAsQrrqRsArQA23qRAqAbqqqqqAArAbrbQaB2AuA22AraQrqRrArQAS24rru"qAAqrAAAAA1!2!AAB2q2r1q1A"22 A"!2B1 R)!i)L/ ]k/=8[X8<<A% kTs{4 !G(9(/ co_comienzoaTC]\tmp\FG((fechaF G((asientoF G((cuentaFG((asiento#6<3oconcepto   % g?C2No hay asiento de cierre del tipo especificado !!! B % FC9Hay ms de un asiento de cierre del tipo especificado !!! B TC"(\tmp\ FQ\tmp\& (\tmp\F ~ T > >>c T%CF(Q\C\diariogF )Q\C \concepto  TTC F(Q\C!\diariogF )Q\C! \concepto C"%QT4Se ha abierto el siguiente ejercicio con el asiento CCZ !!! 5C Suspendo?a#G7(\tmp\ co_comienzo<$ BU% XTIPO_INFORME ACTIVEFORM DATASESSIONIDOEX OPEN_FILES CO_COMIENZOBORRARP_LOCALDIARIOGFECHACONCEPTOASIENTOCUENTASCUENTA ARR_ASIENTOSTIPO2LEGALMENSAJEXASIENTOCOD_CUEAAADEBITOCREDITOMONEXT XMENSAJEAPECO_BUSCAR_EJERCICIO_SIGUIENTELOCALESCO_002P_SERVEREJERCONDIRXOKASENTARCO_011 MENSAJE_CLEARSYS_MOSTRAR_SCREENXBORRAR3oconcepto  "TC  C6% TTco_apertura.prg3T &Anulacin asiento de apertura anterior trsac / trsacdiariogconcepto%_ T trsac TB- T trsac #C ZL T TTco_apertura.prg T Asiento de Apertura trsac / trsacdiariogconcepto% T trsac TB-FG((asiento#6TF|>Asiento de AperturaC$LNS2NQF\tmp\FG((asiento E%C4 B>!Asiento de Apertura del Ejercicio C >>P : Nuevo asiento de apertura: CCZ T trsac #C ZL TBaU!ASIENTOCONCEPTOTIPO2LEGAL XTIPO_INFORME ARR_ASIENTOSXASIENTOAAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GEND_TRANTTS_IDINDIARIOGUSER_LOG PUB_INDEXBORRARFECHALOCALESCO_002 COMENTARIOHOYPOR_QUETIPOCAUARCHSUBDALLP_LOCALFEC_PROC< F- TC4 BUXFECHA XRESULTADOEJERCONDESDEasentar"CO_Buscar_Ejercicio_Siguiente+ rArrrrQr1"!aBA"uAbrrqrrAsBbr34"212qA%!2C2qAsQsBrrQA#2r2r!7B!o{$%BS[wT\XTCDTCFG+(listadosG+(dey_func TT T  T Inicializando...T aT P% TIJ(K 'T !\tmp\rpt_co_diario.txt G( G G % 12345A T" T#  T" T#T$! \tmp\borrarCCuentasCuenta%6Cdiariogfecha&\C'\a%9CconceptoAsiento(\C'\a%CClientesCodcli%CProveedoCodpro%Cven_oper%Ccom_oper%FT)!\tmp\C* %-Dh1)+N,N -N .D/C0C1C2C<3CC4F5CC4F6N7N8D9C :C :h1)+N,N -N .D/C0C1C2C<3C5C6N7N8D9C :CQQ);T<DT=.t.%>? 1T=$betw(diariog.importac, xdimp, xhimp)%@*T== and diariog.usr=xusuarioH AL&T== and concepto.legal=2 A&T== and concepto.legal=3 A2T==! and inlist(concepto.legal,0,1,2) A2T==! and inlist(concepto.legal,0,1,3)TBC]%=.t.& %C tmp_asientosaFCQselect distinct diariog.asiento from diariog, concepto where diariog.asiento=concepto.asiento and diariog.asiento#-1 and &xfiltro into cursor tmp_asientos Podiariog tmp_asientosDD,C,1! \tmp\diariog_BQRoconcepto tmp_asientos22,C,1!\tmp\concepto_BQFD$Q! \tmp\diariog_BD& ,,F2%Q!\tmp\concepto_B2& ,,odiariogQEXconceptoQI ,,ECFQFCGQG-QH2QJ,1!\tmp\borrar_diariogQFD%Q!\tmp\borrar_diariogD%KL M b :odiariogC' , 1! \tmp\borrar9& ,,,%K CN%L CO%M CQP TRFDG-(ST[G(.. , 2CUA VACUM VAa66 TWC*& C.CCFQCF vH7B7CF vH7BCF vH7B,666699999999999999_C1X z6(!\tmp\W,C' 67  GF G ECG GF TY TZ T[ T\ T]T^xCUREJET_ T` Ta Tb Tc Td Te T3 T5 TfCgS6Th؅W4vC Tia*TjFecha : CC$* Hora : C^'C 1234A 6 kl 5mnTkTmTn Tl- TaFD ToCN"T Coo6T 'T Analizando el Diario...T_h+C+ T  FD Tp0%q h%qCFr Fs EDt Tp0%DqPd%suS`TpD0  Tp0FD Tnm%v D.k TlaCk TkCD.wxTmCD.wy%Cn Tnm@%_C 6hl o Tl-z%Z, C{  C|TaaH Ti- Tnm %a%}Si 8%gS  C~ 4 C 9%_C 6hz CT__%C 1234AC 6GG(G*G on escape &onesc T T !T Finalizando datosF;*(!\Tmp\rpt_co_diarioQRQ )FDQF2Q&! \tmp\diariog_B.*'!\tmp\concepto_B.*BUXDFECLOCALESEJ_001XHFECEJ_002LISTADOSDEY_FUNC OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEXDPRNXDTIPXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICATEMP CHECK_OPENEDP_SERVERCO_011P_PRIVTMPOUTNEWFILETIPO_LINASIENTOTEMPASFECHACOMPROBNOMBRECUENTACONCEPTOA1 XANCHO_TEXTOA2DEBITOCREDITOSEPMESABREVCOD_CENTMP_OUTXDIARIOXFILTROXDIMPXHIMPXUSUARIOXCLASE_ASIENTOS XTMP_FILE TMP_ASIENTOSDIARIOGDTIPO2LEGALMARCACCC XDRES_VENTAS XDRES_COMPRASXDRES_TESORERIARESUMIR_VENTASRESUMIR_COMPRASRESUMIR_TESORERIAXDRES_TESORERIA_TIPOLINEACOD_CUECUENTASXDMANTIPO XIDXLOCALREMITOXASXASANTFEANT FEANTYEARXCUREJEXOLDEJELINPAGACCTOTDEBTOTCREFULLDEBFULLCREANCHOXDCONMAXLININICIALXTEMPXSEPMES XNUEVOMESXSEPMESPXSEPTOTTRECXNOMBREPROCLICLIENTESPROVEEDOCODIGOCONTADOXDMESODEYFUNCDT_MES_ULTIMO_DIADT_MES_PRIMER_DIAHEADER NUEVO_ASIENTO MISMO_ASIENTOXDTOT TOTAL_ASIS TOTAL_ASIN TMP_BLANK TT% % N%S%S0%,;CzX---------------- ----------------]CiXC Transporte:C@ 9,999,999,999.99_ C@ 9,999,999,999.99_T %;CX---------------- ----------------]CnXC Transporte:C@ 9,999,999,999.99_ C@ 9,999,999,999.99_T%1234A(C JTT C X]T C CC S 6>CC S 6>C S 6[% Q  (CL I B R O D I A R I O CC  C XT TCF#)C C $C C.U.I.T.: C T% F%\JC  - CCCD* al CCCF*T%SvAsiento Fecha Concepto  Comprobante Razn Social Cuenta Concepto del Pase Dbito Crdito------- ------------------ ------------------------------ -------------------------------- --------------------------------- ---------------- ----------------T Asiento Fecha Comprobante Razn Social Cuenta Concepto del Pase Dbito Crdito------- -------- ------------------ ------------------------------ --------------------------- ------------------------------ ---------------- ----------------TBULINPAGINICIALXDTIPXDTRAXDCONFULLDEBFULLCREXDPRNTEMPANCHOXDFYHXTEMPLOCALESCO_003XALIASCONSEM_RAZONEM_DOMIEM_CUITXDMESXDFECODEYFUNCDT_MES_PRIMER_DIADIARIOGFECHAXHFECDT_MES_ULTIMO_DIA} 4%cH+_ CHZBCCC*31[# CHBCCC*28[# CHBCCC*31[# CHBCCC*30[# CHBCCC*31[# CHEBCCC*30[# CHtBCCC*31[# CHBCCC*31[# CH BCCC*30[# CH BCCC*31[# CH 0BCCC*30[# CH _BCCC*31[# m BUXFECHAXMENSUALFG((comprob,EC@z 9999,999,999_L%C4+C+  %;TC[CC@z 999,999,999_] C >!H F G((comprob,EC@z 9999,999,999_L%C4+C+  %;TC[CC@z 999,999,999_] C >HHU COM_OPERCOMPROBDIARIOGCODIGOASIENTOPASEXCOMENTNUMERODES_VAL COMENTARIOVEN_OPER%S R%S: C N C  %a9%C 6C XT T  H A?% Ci;T CiT E% TT 2%CHTCHTT)TCC MAE 6 T T%  _#C conceptoasientoHt CVTFC cTNC dTND RTRC O$TCP IGTIT DjTDE XTEX ATAJ 2T /T CCC 6 T %!C' C"F% j T# T$   %-%CC>%&%T#C'T$C' T#C%=T$C%X  T# T$%SB C( V C)T**T++U,XDTOTINICIALXDCON TOTAL_ASIS TOTAL_ASINLINXDTIPMAXLINHEADERANCHOXASANTASIENTOXDMEN FEANTYEARFECHAXASXSEEDXOLDEJEXCUREJEFEANTTEMPASTOTDEBDEBITOTOTCRECREDITOCONCEPTODIARIOGCAUXCOMPROBCOMP_EXPCOMPROBXCOMENT COMENTARIOTIPOCHEQUE_COM_VEN_OPERA1A2 XANCHO_TEXTOWWRWWRLNUEVO_ASIENTO_CONSNUEVO_ASIENTO_CONNFULLDEBFULLCRE T%CFG((comprob,EC@z 9999,999,999_L%C4+C+  %;TC[CC @z 999,999,999_]  C>!H F G((comprob,EC@z 9999,999,999_L%C4+C+  %;TC[CC @z 999,999,999_]  C>HH F%    T  T  %-%CC>T CTC T C=TCX  T  TTT)TCCMAE6%SC C W CTTUXCOMENT COMENTARIOTIPOCOM_OPERCOMPROBDIARIOGCODIGOASIENTOPASENUMERODES_VALVEN_OPERXDTIPA1A2 XANCHO_TEXTOWWRWWRLTOTDEBDEBITOTOTCRECREDITOTEMPASXDMENXASXDCONMISMO_ASIENTO_CONSMISMO_ASIENTO_CONNFULLDEBFULLCRETC9%C 6RTCXCX  <CCCX[] 6 =  T C T T T T T T %'T %CX C 9%C 6TCXCX CX C X  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_T C T T T T C  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_T T C UXNOMBRELINXDTIPMAXLINHEADERCOD_CENCUENTASDESCRA1OTMPOBLANKTIPO_LINNOMBRECUENTAABREV XANCHO_TEXTOTEMPASA2 TMP_APPENDDEBITOCREDITOTC9%C 6RTCX CX CX  <CCCX[] 6=  T C T T T T T %'T T %CX/C 9%C 6TCXCXCX CX C X  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_T C T T T T C  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_T T C UXNOMBRELINXDTIPMAXLINHEADERCOD_CENCUENTASDESCRA1OTMPOBLANKTIPO_LINNOMBRECUENTAABREV XANCHO_TEXTOTEMPASA2 TMP_APPENDDEBITOCREDITO9%C 6@ C @z 999,999_ C* CQXTTCT TTT C T C 9%C 6TCX    <CCCX[] 6 =  TTCT T T TTT%'TT%CXC 9%C 6CXCX CX C X  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_TTCT  TTTC )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_TTC ULINXDTIPMAXLINHEADERTEMPASFECHACONCEPTOOTMPOBLANKTIPO_LINCC TMP_APPENDXNOMBREXCOMPROBCOD_CENCUENTASDESCRA1COMPROBNOMBRECUENTAABREV XANCHO_TEXTOA2DEBITOCREDITO9%C 6@TC C @z 999,999_ C*   <CCCX[] 6 =   TT C T T T T T T  T  T T  %CXBC 9%C 6CXCXCX CX C X  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_TT C T  T T T C  )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_T T C ULINXDTIPMAXLINHEADERXNOMBRETEMPASFECHAXCOMPROBCOD_CENCUENTASDESCRA1OTMPOBLANKTIPO_LINCOMPROBNOMBRECUENTAABREVA2 XANCHO_TEXTO TMP_APPENDDEBITOCREDITO_9%C 6@CX CX C(X CX !---------------- ----------------T9%C 6%CX CX C(X CX )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_CT9%C 6/CX CTU LINXDTIPMAXLINHEADERTOTDEBTOTCRE TMP_TOTALANCHO TMP_BLANK9%C 6@CX CX CX CX CX CX !---------------- ----------------T9%C 6KCX CX CX CX CX CX )C@z 9,999,999,999.99_ $C@z 9,999,999,999.99_CT9%C 6{ CTULINXDTIPMAXLINHEADERTOTDEBTOTCRE TMP_TOTAL TMP_BLANKGQOBJECT TCF_Jselect &xal BUOTMPXALTMP_OUT/TCTCUOTMPOBLANKTIPO_LIN TMP_APPEND-QNUMBERQDOUBLEQDOUBLETCTTTT C U TTIPO_LINTDEBITOTCREDITOOTMPOBLANKTIPO_LINDEBITOCREDITOSEPMESXSEPTOT TMP_APPENDz TCF ^J =T([Tselect &xal BUTMPDSXALTMP_OUTTTMPSEPMESXSEPMESPOEXMESSAGE CBURESUMIR CBURESUMIRCBUXDRES_TESORERIA_TIPORESUMIR& 4Hn ZTM(cau='V'.or.(cau='d'.and.procli='C').or.(cau='c'.and.procli='C') or cau='3' ) Ta+TASIENTO MENSUAL POR LAS VENTAS riT\(cau='C'.or.(cau='d'.and.procli='P').or.(cau='c'.and.procli='P') .or. cau='1' .or. cau='2' ) Ta,TASIENTO MENSUAL POR LAS COMPRAS nYTLinlist(cau, "R", "A", "O", "D", "X") or inlist(tipo2, 50,51,55,56,57,58,59) %(,TASIENTO DIARIO DE CAJA Y BANCOS T- j-T ASIENTO MENSUAL DE CAJA Y BANCOS TaTC]TC]Fpcopy to (p_local+'\tmp\'+borrar) for !dele() .and.asiento#-1 .and. betw(fecha,xdfec,xhfec) .and. &xfiltro FQ\tmp\% $& C (\tmp\,N C (\tmp\  .& CC HZCC iZ(\tmp\6N CC HZCC iZ(\tmp\  Q\tmp\h> 1 C  ~% >  >  >  > FG((asiento#6 TF$& C (\tmp\T ~% T T >FPdele for !dele() .and.asiento#-1.and. &xfiltro .and. betw(fecha,xdfec,xhfec) \tmp\FQBUXNFILTRO XPARAMETRO1XFILTROXMENSUALXTEXTOBORRARBORRAR1DIARIOGP_LOCALCOD_CUEFECHADEBITOCREDITOREMITOCAUCOMPROBCODIGONOMBREPROCLIFN_FECHA COMENTARIOCCALLASIENTOXASIENTOXFECHAheaderfn_fecha cheque_com_ven_oper# nuevo_asiento7% mismo_asientoH,mismo_asiento_cons0mismo_asiento_conn5nuevo_asiento_cons9nuevo_asiento_conn? total_asisC total_asinLF tmp_append3I tmp_blankI tmp_totalIoblankJresumir_ventasKresumir_comprasKresumir_tesoreriaKresumir6LRQ"!4AsaaAcaABA1A1a1a1!1!AbqAAI A&ArArQC BrQAAAAs baaaAQr111q!qrqAAqqAqqAAAqQqqAAqA2AAAAAqAAARbaaaArArArAerB4AA1A1AAAqAAqaqAqQEAAq1AAA  FBB5QQQQQQQQQQQQAB01qaAAAAqaAAAAAA2AAqAAAAQAA1AQAA1AQAAAAAAAAABAqq!AAABA2AqaAAAAqaAAAABABqq!AAABA2"qAq131BARqAq111AAA2!qAq11131BARqAq111AAA2qAqQQ"qAq31BAQqAq111AAA3qA!q131QqAq111AAA3qAq1111qAq1111AQqA3qAq111111qAq111111AQqA2qQA122qqA3A2A2qA21222ABrAbA1ABrQrB21AArrAB1*!+. B<Y?\?yHHM<NAS|'jSXZX__#e9FeMhqnhk kblylllm mUn,{nn/nn2n2o6FoTy%.QO^ +%Cdiariog Cconcepto ;C%Ccuentas kQcuentas%Cccprov Qccprov%Cbienes Qbienes"%C X C X ?  T T -  co_funciones "%C X C X {T zzzzzzzzz0T #betw(diariog.cod_cue, xdcue, xhcue)C Suspendo?a Aselect diariog.asiento, diariog.pase, diariog.fecha, cuentas.abrev, cuentas.descr, sum(diariog.debito-diariog.credito) as importe from diariog, cuentas group by diariog.asiento, diariog.fecha, cuentas.abrev, cuentas.descr where diariog.asiento#-1 and diariog.cod_cue=cuentas.cod_cue and "S"$(substr(cuentas.atributo,19,3)+substr(cuentas.atributo,36,2)+substr(cuentas.atributo,60,2)+substr(cuentas.atributo,72,1)+substr(cuentas.atributo,92,1)+substr(cuentas.atributo,95,1)) and &xfiltro_cuenta and between(diariog.fecha, xdfec, xhfec) having importe#0 into cursor q1 select q1.abrev as ori_abrev, q1.descr as ori_descr, q1.pase, diariog.asiento, diariog.fecha, cuentas.abrev, cuentas.descr, q1.importe as importe_medio, sum(diariog.debito-diariog.credito) as importe, diariog.procli, diariog.codigo, diariog.nombre, diariog.comprob, diariog.cau, diariog.comentario from diariog, cuentas, q1 group by diariog.asiento, diariog.fecha, cuentas.abrev, cuentas.descr where diariog.asiento#-1 and q1.asiento=diariog.asiento and diariog.cod_cue=cuentas.cod_cue and not &xfiltro_cuenta into cursor q QoqCQCCC Qq2oqq2QCXQ !C XQ"CXQ#CXQ$CXQ% q3 ~ H ! OA P T'&&T(&occprovcomprasXcuentas *))Xbienes *++CC XQC)C XQ)CCXQ*+*,)Q-*./' 0( 1*2 1 *,<tmp1otmp1Xcuentas 3-)CC3+ 3 CC X6QCC3+ 3 CCX6Q3+3,3.3.tmp T5 T6 ~ %C.6 *T55CC5 , 6C.T6C.& ,#6%CNv #)F&>&"4>&#4>&$5F&%&O > PA  > AJP R > RC C > FC c. > NC dQ > ND A C > AJC L > AS U > ASX CC > AS>%CC$!$6(7 \tmp\rptflujo(7 \tmp\rptflujoԻQBU8CO_ABRIR_TABLASLOCALESCO_011CUENTASCCPROVBIENESXDCUEXHCUEXDABRXHABRCO_CUENTAS_DESDE_HASTA CO_FUNCIONESXFILTRO_CUENTASYS_MOSTRAR_SCREENASIENTOPASE IMPORTE_MEDIOIMPORTEFACTORQQ2 ORI_ABREV ORI_DESCRFECHAABREVDESCR IMPORTE_FINALPROCLICODIGONOMBRECOMPROBCAUCAUSA1 COMENTARIO REF_ABREV REF_DESCR REF_DETALLE REF_DETALLE1Q3XIDXPROVCOD_CUECOMPRASCOD_INSTOT_COMBIE_CUEDESC_INSCAUSACOD_PROOPROPTMP1TMP XDESC_INSXOLDP_LOCALA1A!A!A$A"aAs$K!vr{ QAAR"Qq11ArqABAAAAAAABC5PNG  IHDR szz pHYs+tIME tEXtAuthorH tEXtDescription !# tEXtCopyright:tEXtCreation time5 tEXtSoftware]p: tEXtDisclaimertEXtWarningtEXtSourcetEXtComment̖tEXtTitle'IDATXŗ]hSg XSI?Vl-XєVae%ҋy!-fZW 0FIbɚ-ztjc%695✜i:!'?}A !ǃA>FXeaL%<ÁٰV* "yh ^v;.n6JRN19ăA 0E@~E+*t܍ݾBՕ+媈"=w(1S bpPh4 -@\#-V609r26fn74!:`Py uUU}VyZ[94xgؽ{]zp5U&nf%%YY8Ѩ,I||]RI%fKU$&=._&)3##LB$dVp`$JN# ѣNIENDB` %ĀŵWW<'G+(listadosTC%Ctcccomp VQtcccomp%Ccompras Qcompras%Cconver Qconver%Cmovstock Qmovstock%Cconver Qidx04%Cbieaux AQbieauxF ,T xdfec<=fecing.and.fecing<=xhfec=T  , and xdfec_alta<=fecha.and.fecha<=xhfec_alta"% CX CX s%-GT  6.and.betw(val(importac.cod_pro),val(xdpro),val(xhpro)) o8T  '.and.betw(importac.cod_pro,xdpro,xhpro)H *T  .and.importac.cerrada#"S" *T  .and.importac.cerrada="S"% ^:T  ) AND between(importac.numero,xdimp,xhimp)T .T. % 3T" AND between(bi.linea,xdlin,xhlin)$TCimportac.estimpbN -%Cestimp )Q\estimp B T-% Vselect importac.impdespa , importac.bimpdespa , importac.fecdespa , importac.impflete , importac.bimpflete , importac.flete , importac.fecflete , importac.impseguro , importac.bimpseguro , importac.seguro , importac.fecseguro , importac.impbanco , importac.bimpbanco , importac.banco , importac.fecbanco , importac.imphonor , importac.bimphonor , importac.honorarios , importac.fechonor , importac.impfob , importac.bimpfob , importac.fecfob , importac.bimpfobmo , importac.impotros , importac.bimpotros , importac.gsvarios , importac.coefic , importac.fecemb , importac.numero as numero , importac.despacho as despacho , importac.descr as descr , importac.cod_pro as cod_pro , proveedo.nombre as nombre , importac.fecha as fecha , importac.fecing as fingreso , importac.fecingest as fingresoe , importac.condpago as condpago , importac.condcomp as condcomp , importac.fob as fob , importac.moneda as moneda , space(3) as montxt , importac.coefic as cambio , iif(importac.cerrada="S","SI","NO") as cerrada , importac.fob_pesos as fob_pesos , importac.aduana as aduana , importac.factorteo as factorteo , 000000.0000000 as factorcon , importac.factor as factor , space(3) as ing_moneda , 00000000.000000 as ing_cambio , .f. as ing_articulos, 000 as err_cod , space(100) as err_msg , 00000000.000000 as cambio_ref , iif(tipoflete=1,"AEREO",iif(tipoflete=2,"MARITIMO",iif(tipoflete=3,"TERRESTRE","NO DEFINIDO"))) as tipoflete , peso , diasalmace , base_iva , valor_ana , {} as fsalidag , 00000000 as demorasal , 00 as control , importac.tran as oc_ref , importac.origen , importac.proced , importac.estimp as estimp , nvl(estimp.descr,space(40)) as destimp , iif(importac.sirareq="S","SI","NO") as sirareq , importac.sirafpre , importac.sirafaut , importac.simi , importac.siraimp , space(200) as ocs from importac left outer join proveedo on importac.cod_pro=proveedo.cod_pro left outer join estimp on importac.estimp=estimp.codigo where &filtro into cursor tmpsalida readwrite 2select importac.impdespa , importac.bimpdespa , importac.fecdespa , importac.impflete , importac.bimpflete , importac.flete , importac.fecflete , importac.impseguro , importac.bimpseguro , importac.seguro , importac.fecseguro , importac.impbanco , importac.bimpbanco , importac.banco , importac.fecbanco , importac.imphonor , importac.bimphonor , importac.honorarios , importac.fechonor , importac.impfob , importac.bimpfob , importac.fecfob , importac.bimpfobmo , importac.impotros , importac.bimpotros , importac.gsvarios , importac.coefic , importac.fecemb , importac.numero as numero , importac.despacho as despacho , importac.descr as descr , importac.cod_pro as cod_pro , proveedo.nombre as nombre , importac.fecha as fecha , importac.fecing as fingreso , importac.fecingest as fingresoe , importac.condpago as condpago , importac.condcomp as condcomp , importac.fob as fob , importac.moneda as moneda , space(3) as montxt , importac.coefic as cambio , iif(importac.cerrada="S","SI","NO") as cerrada , importac.fob_pesos as fob_pesos , importac.aduana as aduana , importac.factorteo as factorteo , 000000.0000000 as factorcon , importac.factor as factor , space(3) as ing_moneda , 00000000.000000 as ing_cambio , .f. as ing_articulos, 000 as err_cod , space(100) as err_msg , 00000000.000000 as cambio_ref , iif(tipoflete=1,"AEREO",iif(tipoflete=2,"MARITIMO",iif(tipoflete=3,"TERRESTRE","NO DEFINIDO"))) as tipoflete , peso , diasalmace , base_iva , valor_ana , {} as fsalidag , 00000000 as demorasal , 00 as control , importac.tran as oc_ref , importac.origen , importac.proced , space(200) as ocs from importac left outer join proveedo on importac.cod_pro=proveedo.cod_pro where &filtro into cursor tmpsalida readwrite  ~ >C 1>???FG((importac EF%Cconver+  >a >C >???> >!"1#cm_imp_funciones TMPSALIDAF%%| >%+>&Distinta moneda de ingreso !!!  FG((idx04GF E'GF%C(  T)   T)CindiceCCZF >*)%#%C)C) d >%W>&+Cambio de ingreso vs cambio de referencia (CC* Z ) > 5% !!!   >%&>&Cambio de ingreso = 0 !!!5%%C!"MbP? >%V>&Los factores no son iguales !!! Dif.: CCC!" Z %+SCHZHV "?  >,' C"??? >, 2V >,<-T.oNtcccomptcompras1121 . 2 .  comprasQ01 . 1 - T3% 4(C-k0T33CC3, 6CCC4-Z>53 >5CC6Z%7select cv.cod_ins,cv.atr,cv.bul, bi.descr, bi.linea, bi.codalt1, bi.espec as espec, ts.numero as importac, cv.entra as cantidad,ts.montxt, cv.fob as fob, 000000000000.0000 as total, ts.fecha, year(ts.fecha) as ao, ts.moneda from tmpsalida ts left outer join conver cv on cv.importac=ts.numero left outer join bienes bi on bi.cod_ins=cv.cod_ins where &xfiltrod and !isnull(cv.transf) order by cv.cod_ins, cv.atr, cv.bul, ts.numero into cursor tmpsalida2 readwrite >89:8>:CC=:==><T>>CF%@%o tmpsalidaXconverQA A XbienesQH AEHEXbieauxQU AEU\CA Q CAB QBCAC QCCA1 Q1CAD QDCAECXQECAFCXQFCAGCXQGCHIC(XQJCAKAL Q9CA:CAKAL Q8CA:QMCA" QNCAOQOCAPCXQQQR QSCCT UTT6QVCCW UWW6QXCUY Automtica  No automtica6QYZC1Q]i1cur_imp1^Mocur_imp1QaXreservasQb Ca1 ZNCaDZbybzCb{ZXtccventQl bclcXtventasQj CbcZCbdZCjcZCj{ZXclientesQf lfXtcccompQs a1s1-Q_-Q`aCbc QcCbdQdCb9 QeCfgC(XQhQiCCCjkҡ CjkClm6Qn Qo QpQq QrCstQu Qv Qwcur_imp2ocur_imp2Xcompras CB ZCCZCDZCC XQCQCC u6QCC '6Qcur_imp"& CZCCZCcZCdZT&TZZZsdfgsdfgsdfgsdfgsdfgZZ ~$%a" >_a >`a "%ECCZ" >`a TTECCZF G((cod!EEGFQTC3 $?+C+ ,EGFQ\GFP o#%zVrg#TC>FHF.>iCC3 $ 6 CEbienescodinsCEbieauxcod.>R[RS[S^ ^%Cq4$FQocur_impCCCiC$i6QiCCCiC$i6nQCQCCCnC3 $n6QqCQCQq& FG-(>ii'oCCiC$i6npC 6rCqC3 $ 'q6vC 6w)(\tmp\rpt_cm_importaciones4($\tmp\rpt_cm_importaciones_detalladasQ%CqR&FQ%Ccur_impy&FQ%Ccur_imp1&F]Q%C TMPSALIDA2&F=1(!\tmp\rpt_cm_importaciones_detalleQ%1' T T- CBULISTADOSXTABLA1ODEYFUNCNEWFILE_LOCAL_TMPTCCCOMPCOMPRASCONVERMOVSTOCKIDX04BIEAUXIMPORTACFILTROXDPROXHPROP_PRONUMXDTIPXDIMPXHIMPXFILTRODXDLINXHLINXEXISTE_ESTIMPP_SYSTEMMONTXT MM_MONEDAMONEDA TMPSALIDANUMERO ING_ARTICULOS ING_MONEDACOEF ING_CAMBIOCOEFIC FACTORCONFACTORACTUALIZAR_IMPORTACIONCM_IMP_FUNCIONESERR_CODERR_MSGFINGRESOMM_MAX XCAMBIO_REF CAMBIO_REFP_EMPCONTROLARR_OCSXNUMERODISTINCTCORDENTCOMPRASXOCSZOCSOC_REFXDDETTOTALCANTIDADFOBALLFN_CALC TMPSALIDA2FECHAFOR XDETALLE_ARTCOTRANSFITEMREFITMCOD_INSATRBULBIDESCR DESCR_ITMENTRASALEFOB_ITM FACTOR_ITMCOSTODESPACHOLOTEPESOXUNCMORIGENAUORIGEN2PROCEDPROCED2AD_LICAD_NOTBIENESCODIGOCUR_IMP1 DESCRAMPLENC_IMP ENC_IMP_ITMC1REPEDIDOPEDITMCANT_RESCLNOMBRENOM_CLIFSALIDATVENTREGATCFEC_ENTPD_FENTDEMFENTDEMFENTP MINPD_FENT DEMGESTINGTCM OAK_FECHA FECHA_OAKDEMPROVDEMPRO2RESERVASCOMPROBCAUSAITMTCCVENTTVENTASCLIENTESCOD_CLICUR_IMP2FAC_COMCOM_FACFEC_COMCOM_FEC DEMPROVITM DEMPRO2ITMREFCUR_IMPBORRARXOLD_IMPXOLD_ITMCODXMINQ ACCDEMFENT CNTDEMFENT SUMDEMPROV MAXDEMPRO2FSALIDAG DEMORASALP_LOCAL XDETALLADO XMAX_MESESXMANUALEXPORTARi%Cproveedo 5Qproveedo%Ccompras eQcompras%Ccccomp QcccompG+(listados%G V#f:\sistema\rpt_cm_importaciones.dbf(Crpt_cm_importaciones.dbf(CCError: C  F-QCrpt_cm_importaciones.dbf ( jorpt_cm_importacionesCH 1Crpt_cm_importaciones_C00CC ZRQ <'CReporte Final.xlsTReporte_Completo2QEXPORTACIONES_PARAMETROS imp_exp.vcx, J(C,C,C'TC ExportacionesIMP_EXP( %CtmpeFQ%Ctmp1FQAQCrpt_cm_importaciones_C00CCZRTCTT aT!C"T#C$%%CtmpbFQ%Ctmp1FQTC&TT aT!ResumenT#C$%C'%Ccur11F(Q%C cur_impuestos^F)QBU*XMANUALPROVEEDOCOMPRASCCCOMPLISTADOSFODEYFUNCGET_PATHOEXMENSAJEMESSAGEZ XMAX_MESESRPT_CM_IMPORTACIONESNUMEROFECDESPAXREPORTE_COMPLETOXEXPXPARXIMP_EXPVCXXARRX CREAR_ARRAYXARRFCREAR_ARRAY_FORMATOSXARRTCREAR_ARRAY_TOTALIZARZZTMPTMP1PROCESAR_IMPORTACIONESEX_ANEXAR_ARCHIVOEX_ANEXAR_PLANILLAEX_TITULO_HOJAMESNUM EX_XLS_ABRIRPARAMETROS_COLLADDPROCESAR_RESUMENEXPORTAR_XLS_COLLCUR1 CUR_IMPUESTOS J((,H>S C  )+, C' T CTUXARRTNIT#Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxqQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxqQ EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx&C    (,T T T T T He C T C T  ###,###,##0T  T C T  ###,###,##0T  T C T  ###,###,##0T  T C T  ###,###,##0T  T C T  ###,###,##0T   C T T  UARRFXFORIMP_EXPVCXXFORDXFOR1XFORHEAD XFORHEAD1 XFORTOTAL XFORTOTALDOBTENER_FORMATOSXFORTEMPNITFO_COPY NUM_FORMAT@ J("T Proveedor$T Importacin!TDespacho&T Fecha (Ofic.)#T Transporte+TCosto Flete (EUR):#T Peso (Kg):'TTotal FOB ():)T Total FOB (USD):*T Relacin Euro/USD#T  Cambio USDT /T Valor en Aduana (USD):"T Base IVA:(TDas AlmacenajeT*TDerechos: (TOTAL)TIVA&T IVA Adicional"T Ganancias(TIngresos BrutosTOtros:T"T Subtotal:TTSENASA*TGastos Operativos%T Verificacin"T Ley 25413/TAlmacenaje (Edcadassa)%T Gastos Carga T Acarreo/T!Gastos AdministrativosT"DJAI"T# Escaneado"T$ Servicios#T% Honorarios%T& Otros Gastos.T'IVA y Otros ImpuestosT(!T)SubtotalT**T+Total s/Impuestos*T,Total C/Impuestos BUARR G+(listados%aQEXPORTACIONES_PARAMETROS imp_exp.vcxQEXPORTACIONES_PARAMETROS imp_exp.vcxaQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx1 QEXPORTACIONES_XLS_CELDA imp_exp.vcx aQEXPORTACIONES_PARAMETROS imp_exp.vcxQEXPORTACIONES_PARAMETROS imp_exp.vcxaQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx1 QEXPORTACIONES_XLS_CELDA imp_exp.vcx1T CExportaciones_xls_CeldaIMP_EXP2TCExportaciones_ParametrosIMP_EXPT Reporte_ResumenT %8C QEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5T Cexportaciones_xls_rango imp_exp.vcxCQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxCQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx t1 QEXPORTACIONES_XLS_RANGO imp_exp.vcx5T Cexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxT Rango principal%TResumen de importaciones!CC  CC CC TTTTitulos(,#(CCC(%CTC TC CaCC Ta!CCC C  BUXARRXXARRFLISTADOSXMANUALXPAR1IMP_EXPVCXXPAR2XPAR3XPAR4XCELLEX_ARCHIVO_SALIDAEX_ENTRADA_TIPOXRANGOXRANGO2XRANGO3 CEL_NOMBREXTITULOCEL_ADDOFF_FILABOR_TIPOYYWWXFORU CEL_RANGO_ADDUSO_PADRE_FILA CEL_RANGOa:TC Exportaciones_Parametros_FormatoIMP_EXPT###,###,##0.00T TC T aTC T aTC T aTC T aT TC T CP^TTC UXFORXFORDXFOR1XFORHEAD XFORTOTAL XFORTOTALD XFORHEAD1 NUM_FORMAT FONT_SIZEFO_COPY FO_ESFECHA FONT_BOLDFO_NUEVO FO_INTERIOR FO_ALINEAR7"G+(listados%'aQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcxa QEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx1 QEXPORTACIONES_XLS_CELDA imp_exp.vcx $aQEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcxa QEXPORTACIONES_PARAMETROS imp_exp.vcx QEXPORTACIONES_PARAMETROS imp_exp.vcx1 QEXPORTACIONES_XLS_CELDA imp_exp.vcx1T CExportaciones_xls_CeldaIMP_EXP2TCExportaciones_ParametrosIMP_EXPT  Reporte FinalTReporte_CT%\CQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxCQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxCQEXPORTACIONES_XLS_RANGOf:\sistema\2000\imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx 1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcx1QEXPORTACIONES_XLS_RANGO imp_exp.vcx5TCexportaciones_xls_rango imp_exp.vcxTRango principal'TImportaciones de C!CC CCCCTTTTitulos T,CNCF ~/CCF T COC!proveedocodpro"T C"#"T  T "T  T $"T  T %"T  T &"T  T 'CT C( '( 6 T )CT C' )' 6T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T  .!T  d\T CC !C C  d6TT  CC C C  6!T   T  23!T  T  !T   T  4\T  CC !C C  d6 T 5!T  T 6!T T !T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .\T CC C C  6d T 27\T CC C C  6d T 28\T CC C C  6d'T 292:\T CC C C  6d T 2;\T CC C C  6dT* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .\T CC C C  6dT !T sT C C C C C C \T CC C C  6dT !T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T .!T T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T  .!T  T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T! .!T! T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T" .!T" T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T# .!T# T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T$ .!T$ T* T+ T,a T- T. T/30cm_imp_funciones*+,-./T% .!T% ;otipoimp<< < > q3 T@ ~.T*T+?< T,a T- T. T/30cm_imp_funciones*+,-./T@@.T& @!T&  T' AB!T' T( !T(  T@C('2T@@CC T) @\T) CC C) C  6dT* !T* rT@C C C C C C) C' T+ @!T+ TT@C C C C C) T, @!T, %F"TCD(,!%CDTECD TECD!CCDEF(CN %CD? TECD ^ TECD#CaCDFE'CaCDFE"CDFGH ! CD!#CaTOTALCD CDX!*CaCDCD CD!CaCD 2!*CaCDCDCHTIa!CCCHCJH BUKXMESXARRXXARRFXARRTLISTADOSXMANUALXPAR1IMP_EXPVCXXPAR2XPAR3XPAR4XCELLXREPORTE_COMPLETOEX_ARCHIVO_SALIDAMESNUMEX_ENTRADA_TIPOXRANGOXRANGO2XRANGO3 CEL_NOMBREXTITULOCEL_ADDOFF_FILABOR_TIPOXINICIOARR CREAR_ARRAYTMPTOTALIZAR_DESPACHONUMEROTOTALIZAR_OTROSNITCOD_PROPROVEEDONOMBREDESPACHOFECDESPA TIPOFLETEIMPFLETEIMPFOBPESOXIMPXTIPO XADETALLADOXMONEDAXBASEXTOTALOBTENER_GASTOSCM_IMP_FUNCIONESQUERYCAMBIO VALOR_ANABASE_IVA DIASALMACEIVAIVA_ANAGAN_ANAGANIIBBCODIGOTIPOIMPINTEGRAQ3XACC CUR_IMPUESTOSIMPORTEZZZYYXFORUWWTOTALIZAR_RENGLON CEL_RANGO_ADDUSO_PADRE_FILA CEL_RANGOH, C;%CArr(yy,2*ww )bNC &%CxArrX(yy,xmes+1)bNT9TCC C%CC &%CxArrX(yy,xmes+1)bNT-TCUYYWWXMESARRXARRTXARRXmocomprastipoimpC 6Q  q1|occcompq1           q2 ~ TTT T T T T T3listadosF > TTT T T T T T3listadosF > TTT T T T T T3listadosF > TTT T T T T T3listadosF > TTT T T T T T3listadosF >boq2C QCQ CQ!CQ"CQ#CQ$queryBU&XIMPDISTINCTCOMPRASOPTIPOIMPINTEGRATIPO_IMPCODIGOIMPORTACQ1CCCOMPFEC_COMMONEDACOEFICIVA_COMIMCOM3IMCOM2P3337IMCOM4IMCOM5Q2 XMONDESTINOXIMPORTEXMONEDA1XCOEFICXFECHAXMOTIVOXMENSAJE XCAMBIO_REFFN_CALCLISTADOSCAMBIOIVAIVA_ANAGAN_ANAIIBBGANQUERY%Ccur1'FQ%C cur_impuestosTFQocomprastipoimpcccompC  6Q   C d d TQC d d 3 d d  6QC d d `C d d  d d  T6QQC d d `C d d  d d  T6Q   C  cur1 ~ TTT T T T T T3 listadosF > >*ocur1CQ# cur_impuestosBU$XIMPCUR1 CUR_IMPUESTOSCOMPRASOPCCCOMPFEC_COMTIPOIMPINTEGRATIPO_IMPTIPOMONEDACOEFICTOT_COMDESC1DESC2BASEDEUDAFACTOR IMPUESTOS CAMBIO_REFIMP_USDCODIGOIMPORTAC XMONDESTINOXIMPORTEXMONEDA1XCOEFICXFECHAXMOTIVOXMENSAJE XCAMBIO_REFFN_CALCLISTADOSSUMIMPORTE BUARRFTC TCC3 $ TC TCC3 $ TC 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxMTCexportaciones_crystal Imp_exp.vcxcm_rpt_importacionesT\tmpT T  TTTTT C BU XTABLAXDFECXHFECXDTIP XDFEC_ALTA XHFEC_ALTAOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORM EXP_TABLAexportar,crear_array_totalizar3crear_array_formatos4 crear_array9procesar_resumen?obtener_formatosHprocesar_importacionesJtotalizar_renglonototalizar_despachosqtotalizar_otroswdummy#}exportar_importacionesE}"t1A1A!AAAA!Ar"qAA11AA"1AEAAap!sAAtrAA}2raaAr21qBaABTaABbrAAt!AACK"Bs!)0!!I#a1AA1rbQ!AAArE"qAA~ r DAA$qAAqAAqAAqAAAD2qAA1A!A#aAAABqAq!222sBqAAQqAAXEBqAAQqAABdxRqAAqAAB2q@1AAA2q aqABBA2q"Aa11q1!a!!Q!Q!!1Q2#A"A1Q2Q1QQQQARqQQACAB241%A"A1Q2Q1QQQQArq qr!!!!!!1144D4s434444444444444AA$DC:B!QQAQQA2q"CA1AAAAB2aAAaAAB4qP4r4r4r4r4rF*B2qRqAAqAA+4rBB2A22"AB1;GG-GqM9MfT ]TYCY0dxMdff-0e!Z|a:» }ԻKLndQ%^}oWS'%Cproveedo 8Qproveedocodpro%Cbienes pQbienescodins%CCCCOMP %Q\CCCOMPcomprob%Ccompras Qcomprascom_ord%Ccatpro Qcatpro%Cmedidas JQmedidasF G((codigoG+(listadosT P)J( +   G*( % 12345G* 8T \temp.txt G(G G % 12345Au T T  T TF0T#betw(compras.fec_com, xdfec, xhfec)%CX%CKT:.and.val(xdpro)<=val(cod_pro).and.val(cod_pro)<=val(xhpro) 7T&.and.xdpro<=cod_pro.and.cod_pro<=xhpro%C C G%KT:.and.val(xdins)<=val(cod_ins).and.val(cod_ins)<=val(xhins) C7T&.and.xdins<=cod_ins.and.cod_ins<=xhins%C ;T*.and.upper(alltrim(xdwrd))$upper(desc_ins)%C!T.and.C!%"# )7T& and between(proveedo.cat,xdcat,xhcat)T$C]G-(%&'C(Z)G-('G-(*GI%+Findex on dtos(fec_com) to (p_local+'\tmp\'+xidxborrar) for &filtro 2Oindex on cod_pro+dtos(fec_com) to (p_local+'\tmp\'+xidxborrar) for &filtro GI T, T-T.@z %/)T..C999,999,999,999,999 R @T..C999,999,999,999,999 /R.C9/Q T0B T1 T2 T3 T4a*T5Fecha : CC$* Hora : C^#)T6C]h1\tmp\6(N 7D8D9C:C;C<C=C>D?C @C ACBCCCDCECFNGNHNINJNKNLNMNNNONPNQNRNSCTNQ\tmp\66F+C+ >%0A UF E'F)%(@ G((comprob#E%&'C(Z c G((pago EVF E*F $ECW XY6F%)Z2 T[CC)ZZ%)\ %T[[ + CC)\Z % . T[[ %  %)\l T[CC)\Z %  T[F+T]CC^ C^C_6F6>()(7)`8)89':CC)a )ab6;C&C FC 8C&c NC C&d ND ?? 666<)c>`?[A*BdCeD]FfGgHhI\JiKjLkMlPmQnOWE oRRSCRpTCq ɚ;q6.%CRq6 >NCfghd \d id jd kd ld CRq6TFT00T--fT,,Cfghd \d id jd kd ld TCRq6HGG(G*G on escape &onesc % PT \temp.txtF63("\tmp\rpt_cm_busquedas_estadisticasQBUrPROVEEDOCODPROBIENESCODINSP_PRIVCOMPROBCOMPRASCOM_ORDCATPROMEDIDASCODIGOLISTADOSXDPRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICAFILTROXDPROP_PRONUMXDINSXHINSP_NUMINSXDWRDXDFORXDCATXHCAT XIDXBORRARFAC_COMCAUSACOD_PROOPCCCOMPCOD_INSXDORDACCACC1PICPRECXDDECLINPAGANCHOMAXLININICIALXTEMPBORRAR2FECHAFEC_DGIPRO_CODPRO_DESCOM_CODCOM_NUMCOM_DESCOM_FECCOM_DECCOM_CONART_CODART_ATRART_BULART_DESART_MEDART_CANART_UNIART_DECART_DEC2ART_DEC3ART_DEC4ART_DEC5 ART_DECXOART_TOTU2_UNIU2_CANU2_PREMONEDAMONTXTCAMBIOHEADERPAGOCM_UNI2 MEDAUXCODMEDCODDESC1XXTEMPDESC2XDESCRDESC_INSDESCRFEC_COMDES_PROVNOMBREFAC_COM2ATRBUL RECEPCIONCOS_LIFODES_INSDESC3DESC4DESC5DESCXOCANT_U2 PRECIO_U2ABREV MM_MONEDACOEFICg TT1TC Pgina : CCZC>TBULINPAGTEMPANCHOXTEMPBU4%C#Ba T1xerr1=-1xerr2=&temp %nB-on error &onerr BaUTEMPXERR1i45 T TCM%$ $ 2D&< )TOrdenado por el Fecha.8T%Ordenado por la Cdigo del Proveedor.iC  6F arr_ord"Presione para seleccionar.9@&% [BaB-UXORDMAXORDTECLAARR_ORDheader criteriosMhlp_for\hlp_ordAAQAA!A1Aq!aaAaAsQqAAqAARARBqAc1aAa1AU !s1qArra1ArrArbAaQ1AaAAqtQ AqBAdaaaABAr1AC3A3A3qQqAAqA1q2qqQqAQAqAq1*AL$` (!6%'mtmv\Yk< 4%CxempresabL6 T%Ccatpro dQcatpro%Ccostos Qcostos TG+(dey_fillG+(dey_funcG+( dey_filters%*CAn no se ha implementado !!! B(CIniciando datos... 5 T CC]R5 T CC]R5TCC]R5TCC]R5TCC]R5TCC]R5TCC]R"%C X C X pFG((abrev E T E T"%C X C X T 999999999%CerroresFQF"h1\tmp\MQ Q\tmp\%CborrarGF QFh1\tmp\ CCCC(CC N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:C;N<C=N>N ?C(@NANBNCC DC ENFNGNHNINJNKNLNMNNN OCPNQNRNSNTNUNVCWC(XN Q!Q\tmp\  GIHV#   Hz  YY %Z&& (\tmp\  & (\tmp\  Yu %ZE *& (\tmp\  q "& (\tmp\  YY  %Z *& [(\tmp\   "& [(\tmp\  Y %ZQ 3& C\Z(\tmp\   +& C\Z(\tmp\  YY   %Z *& (\tmp\   "& (\tmp\  Y  %Zf 3& C\Z(\tmp\   +& C\Z(\tmp\  # H   Y & (\tmp\  Y- "& [(\tmp\  YY i & (\tmp\  Y  '& C\Z(\tmp\  Y  %Z *& (\tmp\   "& (\tmp\ GI %] s ,CTomando artculos y proveedo ^ C_+CObteniendo datos de compras ^ C.CAnalizando los datos obtenidos ^ ~F H  H  YY %ZgE } E Y%Z!E E YY  T%Z3!E` PE` Y%Z-EC\Z EC\Z YY  ?%Z!E ;E Y %Z-EC\Z EC\Z H Y E Y(E` YY R E Y }EC\Z Y %Z!E E%C4 TabcTdbeTfgThiTjkTlm2TnCop  SIN CODIGO6Tqb Tr TsTrtF%u vr %wINDCCx\g  . Tr 8 Tyr)%z{ { G T|}H zT|CC}01[=T|CC|\/C|\/C|\# z%C}H U"T|C31/12/CCC}iZ# 9T|C01/CCC}HZ/CCC}iZ# zT|}G T~ T TTTT T T T+%C SC  SC NC L T T TsT TT^ cs_generars|TsCbsT c Ts%z TysF %{{  Ty  T%{f%+-TC  a6 b-TC  q6 } Ty%{{ H C}H>  C}H>!! C}H/>"" C}HX>## C}H>$$ C}H>%% C}H>&& C}H>'' C}H %>(( C}H N>)) C}H w>** C}H >++ 7>99;;>>F>CZ 6CZ 6==>NN%Hp Y>PN H Y>PNF >ChDj">CCn.n6%Y e5>C\[CC\Z] 6 (>CC.6>881>AAC  q61>BBC  a61>@@C  d6>EEr>FFs>QQrt*>VVWWXX4C$Post-proceso de artculos sin cdigo ^F 5% {{  /6oborrar SC NC 1\tmp\Q\tmp\Hz YY  Y& (\tmp\ YY  & [(\tmp\ Y?'& C\Z(\tmp\ YY  {& (\tmp\ Y '& C\Z(\tmp\H % YY oborrarC C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op totales Y oborrarC C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op totales Yi!oborrar[C C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op [totales YU"oborrar\C C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op \totales YY  @#oborrarC C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op totales Y ,$oborrar\C C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op \totales Y  %oborrar[C C!C"C#C$C%C&C'C(C)C*C+C8 SC NC  SC  op [totalesH!%\& YY ?% Yp%& (\tmp\ YY  %& [(\tmp\ Y%'& C\Z(\tmp\ YY  "&& (\tmp\ Y \&'& C\Z(\tmp\F =~ SC NC  SC  op -FH&' YY &#) Y& E  YY  (' E [ YS'E C \Z YY  }' E  Y 'E C \ZFH'( YY '#) Y( E  YY  0( E [ Y[(E C \Z YY  ( E  Y (E C \ZF %{-[>,C  6,,C  6-C!! 6--C!! 6.C"" 6..C"" 6/C## 6//C## 60C$$ 600C$$ 61C%% 611C%% 6[>2C&& 622C&& 63C'' 633C'' 64C(( 644C(( 65C)) 655C)) 66C** 666C** 67C++ 677C++ 6g>SC88 6SSC88 6F F %{.X> ,!!-"".##/$$0%%1X>&&2''3((4))5**6++7 >88SEES /*>88QRSEESFwC ,!-".#/$0%1&2'3(4)5*6+78STF \tmp\F  SC NC 5C%Post-proceso de los datos adicionales ^FG((codproFG((codigoFG((codigoFG((codageFG((codigoFG((codigoF G-(G-(9G-(;G-(NG-(>>GCAEA 6HCBEB 6ICAFA 6JCBFB 6KCEdEFE 6CCproveedo+PROVEEDOR INVALIDO.C CC 666:CCLINEAS+ SIN LINEA6<CCGRUPOS+ SIN GRUPO6OCCZONAS+SIN ZONA6?CCMARCAS+ SIN MARCA6UCCproveedo+UU6G-(%Z 03FG((codinsF G-(%>3C#Preparando separacines del reporte ^ TH3: 7 TH316 Y3T"" Y4T str(linea,2) Y+4TCod_Pro Y4%k4Tstr(val(cod_age)) 4Tcod_age Y5%4)Tstr(val(Cod_Pro))+str(suc,3) 5TCod_Pro+str(suc,3) YY  =5T str(clavenum) Y 5%5)Tstr(val(Cod_Pro))+str(suc,3) 5TCod_Pro+str(suc,3) Y 16%6+Tstr(val(cod_age))+str(linea,2) -6!Tcod_age+str(linea,2) THS67 E7%6%Z6+T+str(val(cod_ins))+atr+bul 6#T+str(val(cod_ins)) A7%Z7!T+cod_ins+atr+bul =7T+cod_ins o7T+descr 7T+idxstr(total)F G-( : TH7*9 Y8T"" Yp8%N8Tstr(val(cod_age)) l8Tcod_age YY 8T str(clavenum) Y 8T"" Y *9%Z9Tcod_ins+atr+bul &9Tcod_ins THL9: 9%9#T+str(val(Cod_Pro)) 9T+Cod_Pro 9T+nombre :T+idxstr(total)  :%Z:#T+str(val(Cod_Pro)) }:T+Cod_ProF G-(F %]  : CGI-index on &xxx to (p_local+'\tmp\'+borrar) GI F *CExportacin final de datos ^((\tmp\rpt_cm_estadisticasQF%CN; rpt_erroresFQ \tmp\.dbf \tmp\.idx \tmp\.cdxBUTIPO_LISXEMPRESAP_CODEMPCATPROCOSTOSXLOG_ERRORES_CAMBIODEY_FILLDEY_FUNC DEY_FILTERSMENSAJEOESTADO SET_AND_SHOWBORRARBORRAR2BORRAR7BORRAR8ERRORESTMP SELECCIONXDCUEXHCUECUENTASABREVCOD_CUEP_LOCALERRORCOD_INSATRBULDESCRCOD_PRONOMBREENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDICENESCFEBSCMARSCABRSCMAYSCJUNSCJULSCAGOSCSEPSCOCTSCNOVSCDICSCTOTALLINEADLINEAGRUPODGRUPOSUBGRUPOMARCADMARCAPESOCANTIDADCANTAUXUNIDAD UNIDADAUXIMPORTE COSTOTOTALPRECIO PRECIOAUXCOSTOCOSTOAUXMARGENPPAPPZONADZONACLAVENUMDESCOMNCNDTOTALSC IMPORTEFINCATCENTRODCENTRO SUBCENTROXDSEPXDXBACOD_AGESUCXDDATAVANCECOMPLETAR_INICIALIZARVENDEDORBBB RECEPCIONFACTORDDDPESOXUXDESCBULDESCBULXUNIDADMEDIDA XUNIDADAUX MEDIDAAUXXDESCATRDESCATRXDESCROBIEDATA_CODIGO_VACIOCCCXIMPORTEXCOSTOTOT_COMXDCTRCAUSAP_EMPFAC_COMXIMPOXDCOSTOSXDTIP XFECHACOSFEC_COMXANTXCIEXACTXFANTXFCIEXFACTXMANTXMCIEXMACT XERR_COSTO XMSG_COSTO XFECHA_COSTO XMONCOSTO XFECHA_TC OBTENER_COSTO CS_GENERARAAAIMPOXDUNIP_DOSDGLXDCODSINCODSUMTOTALESSUM_ENESUM_FEBSUM_MARSUM_ABRSUM_MAYSUM_JUNSUM_JULSUM_AGOSUM_SEPSUM_OCTSUM_NOVSUM_DIC SUM_TOTALALLFORPROVEEDOCODPROLINEASCODIGOGRUPOSAGENTECODAGEZONASMARCAS XFANTASIAFANTASIABIENESCODINSZZZXXXP_AGENUMP_CLINUMXDORDP_NUMINS COMPLETAR RPT_ERRORES5% h1\CCCC(C C N N N  C C C NNC(Q\listadostmpT.t.$%  %=T,.and.betw(val(codigo),val(xdbie),val(xhbie)) .T.and.betw(codigo,xdbie,xhbie)% V.T.and. betw(linea,xdlin,xhlin)% .T.and. betw(grupo,xdgru,xhgru)% .T.and. betw(marca,xdmar,xhmar)%  0 T.and. bul=xdbul%! j T.and. atr=xdatr%"# 1T .and. betw(subgrupo,xdsgr,xhsgr)T!()Fdele for &filtro QF$ tmp BU%FILTROTIPO_LISP_LOCALTMPCODIGOBULATRDESCRDBULDATRLINEAGRUPOMARCAIDUUNIDAD UNIDADAUXFACTORSUBGRUPO DESCRIPCIOARTICULOS_LLENARLISTADOSXDBIEOBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDLINXHLINXDGRUXHGRUXDMARXHMARXDBULXDATRXDSGRXHSGRBORRAR*!T+cod_ins+bul+atrFGI-index on &zzz to (p_local+"\tmp\"+borrar) GI (\tmp\FQ\tmp\GI.index on &zzz to (p_local+"\tmp\"+borrar2) GI T- T#)+C+  T- TaH&  C C %C Z Ta CTC Z %  Ta C T  +%  Ta C T  {%C Zh Ta CTC Z %C Z Ta CTC Z4      <%C Z) Ta CTC Z  % C Z Ta CT C Z   % C Z%C Z Ta CT C ZFH#)BUZZZBORRARP_LOCALBORRAR2OKXSEPOLDSEPPAGXDSEPCOMPLETOLINEACOD_PROCOD_AGECLAVENUMSUC>      BUCOD_INSERRORESCODIGOATRBULLINEAGRUPOSUBGRUPOMARCAMARCASCLAVENUM XCLAVENUMUNIDAD UNIDADAUX5 T T T T TCOF H_  T  !T str(borrar2.linea,2) T borrar2.Cod_Pro T% *&T str(val(borrar2.cod_age)) PT borrar2.cod_age     "T str(borrar2.clavenum)  ,% 9T ,str(val(borrar2.Cod_Pro))+str(borrar2.suc,3) (/T "borrar2.Cod_Pro+str(borrar2.suc,3)  % ;T .str(val(borrar2.cod_age))+str(borrar2.linea,2) 1T $borrar2.cod_age+str(borrar2.linea,2)F ~8T '+errores.codigo+errores.atr+errores.bulF EC%C4  CHQ d w  >  >  >  >4         8 >  b>   >F F #BUREG XCLAVENUMCLAVENUMXCOD_PROCOD_PROXCOD_AGECOD_AGEXSUCSUCERRORESXDSEPXXXP_AGENUMP_CLINUMPPPBORRARAGREGARBORRAR2l45%4TC ZTC ZTC1ATC2BTC3CTC4DTC5ETC6FTC7GTC8HTC9ITC0JTCA8TCB7TCC6TCD5TCE4TCF3TCG2TCH1TCI0TCJ9TA B aTBC Z BBUXTXT.t.,TCcomprasLTCval(subs(compras.fac_com,2,2))xdcfcxhcfc,TC compras +TC lineabienes +TCmarcabienes*TCbulcompras*TCatrcompras?TCabrevcuentasxdcuexhcue 0TCpaisProveedoxdpai8TC provinciaProveedoxdprv<TC motivocccompxdmotxhmot%!" 7T& and between(proveedo.cat,xdcat,xhcat)%C# C$ fTU and between(iif(!empty(compras.cod_cen),compras.cod_cen,cccomp.cod_cen),xdcos,xhcos)%% Y)T .and. compras.causa#'r'%&>T- .and. compras.cod_ins#oBie.data_codigo_vacio%' T H 'C(T.and.compras.causa="C"  'cN(T.and.compras.causa="c"  'd(T.and.compras.causa="d" %C SeleccionF(Q! select compras.causa as causa , compras.fac_com as fac_com , compras.fec_com as fec_com , compras.recepcion as recepcion , compras.tot_com as tot_com , 0000000000000.0000 as tot_com_me , compras.moneda as moneda , compras.coefic as cambio , compras.des_ins as des_ins , compras.desc2 as desc2 , compras.desc3 as desc3 , compras.desc4 as desc4 , compras.desc5 as desc5 , compras.descxo as descxo , compras.cod_ins as cod_ins , compras.atr as atr , compras.bul as bul , compras.cod_pro as cod_pro , (1-cccomp.desc1/100) * (1-cccomp.desc2/100) * (1-compras.des_ins/100) * (1-compras.desc2/100) * (1-compras.desc3/100) * (1-compras.desc4/100) * (1-compras.desc5/100) * (1-compras.descxo/100) as gdesc , nvl(iif(bienes.bultos='S', stock.factor, bienes.factor), 000000.000000) as factor , nvl(iif(bienes.bultos='S', iif(bultos.cantxbult#0,bultos.pesoxbult/bultos.cantxbult,0), bienes.pesoxu),000000.000000) as pesoxu , iif(bienes.bultos='S', bultos.descr,space(20)) as descbul , nvl(iif(bienes.bultos='S', bultos.medida,bienes.medida),space(10)) as medida , nvl(iif(bienes.bultos='S', bultos.medidaaux,bienes.medidaaux),space(10)) as medidaaux , iif(bienes.atributos='S', atributo.descr,space(20)) as descatr , nvl(alltrim( alltrim(bienes.descr)+" "+iif(bienes.atributos='S', atributo.descr,"")+" "+iif(bienes.bultos='S', bultos.descr,"") ),compras.desc_ins) as descr , nvl(bienes.linea,0000) as linea , nvl(bienes.grupo,0000) as grupo , nvl(iif(bienes.bultos="S", stock.subgrupo, bienes.subgrupo),0000) as subgrupo , nvl(bienes.marca,0000000000) as marca , proveedo.zona as zona , iif(xfantasia,iif(!empty(proveedo.fantasia), proveedo.fantasia, proveedo.nombre),proveedo.nombre) as nombre , 0000000000 as clavenum , 000000000000.00 as total , 000000000000.00 as cantidad , 000000000000.00 as cantaux , 000000000000.00 as peso , 000000000000.00 as importe , 000000000000.00 as costototal , space(30) as suc_des , space(30) as suc_dir , space(30) as suc_ciu , cccomp.motivo as motivo , cccomp.dgl as dgl , iif(!empty(compras.cod_cen), compras.cod_cen, nvl(iif(!empty(compras.cod_ins), bienes.cod_cen, cccomp.cod_cen),space(6))) as centro , nvl(costos.descr, space(40)) as dcentro , iif(!empty(compras.subcentro), compras.subcentro, iif(!empty(compras.subcentro), bienes.subcentro, 00)) as subcentro from compras left outer join bienes on compras.cod_ins=bienes.cod_ins left outer join stock on compras.cod_ins+compras.bul+compras.atr+space(8)=stock.codigo+stock.bul+stock.atr+space(8) left outer join bultos on compras.cod_ins+compras.bul=bultos.cod_ins+bultos.clave left outer join atributo on compras.cod_ins+compras.atr=atributo.cod_ins+atributo.clave left outer join costos on iif(!empty(compras.cod_cen), compras.cod_cen, iif(!empty(compras.cod_ins), bienes.cod_cen, cccomp.cod_cen))=costos.cod_cen , cccomp, proveedo where between(dtos(compras.fec_com), dtos(xdfec), dtos(xhfec)) .and. compras.fac_com+compras.causa+compras.cod_pro=cccomp.fac_com+cccomp.causa+cccomp.cod_pro .and. compras.op=cccomp.op and compras.pago=cccomp.pago .and. compras.cod_pro=proveedo.cod_pro .and. &filtro into table (p_local+'\tmp\'+seleccion) Q)\tmp\((%*pF+G((codigoF(G-(-+8.c .d C+/ G-(F(G-(%01 C(301 %4 C5BU6FILTROFIL_GET_PRO_FILTERXDPROXHPROP_PRONUMFIL_GET_NUM_FILTERXDCFCXHCFCBIE_GET_INS_FILTERXDBIEXHBIEP_NUMINSBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_MAR_FILTERXDMARXHMARBIE_GET_BUL_FILTERXDBULXHBULBIE_GET_ATR_FILTERXDATRXHATRFIL_GET_STR_FILTERXDCUEXHCUEFIL_GET_EQN_FILTERXDPAIFIL_GET_EQS_FILTERXDPRVXDMOTXHMOTXDCATXHCATXDCOSXHCOSXDREMXDSCDXDCAU SELECCIONP_LOCALXDVENMOTIVOSCODIGOMOTIVOCAUSATIPOXDZONXHZONFORZONAXDMONPASAR_A_MONEDA_DESTINOp log_errores%Cidx04 JQ\idx04F ~e%T IF G((idx04<GF E GF ()%C idx04.indiceCCZ!% A#TC idx04.indiceCCZ E%  TG  log_erroresC *: No encontr cambio- A#TC idx04.indiceCCZb  log_erroresC *&: No encontr cambio, toma cambio del C *- F> BULOG_ERRORES_CREAR LOG_ERRORESXLOG_ERRORES_CAMBIOP_COMMON SELECCIONMONEDAXDMONXCAMBIOCAMBIOIDX04FEC_COMZLOG_ERRORES_INSERTARP_CODEMPFECHATOT_COMcompletar_inicializarCB completarGagregar4Lcompleto=MidxstrR seleccionTpasar_a_moneda_destinojA!A!A"!Q7AAsQrQrQrQrQrQrQ$qA!aAqAA$BrqAA@qLAc1aA1!A!A11A!A11AA111!1q1!AAAaAq1A11A1A1A1A1AA1111111AAAQAvq!bCa11!A1Ba11111A3ABr11AAAACxe21A1AAss#2RADAuQa11q1qA 1 1 1  1 1 A11q1qArrQ111ArQ111Ar1%%AvrAr2AsqrraASurrrrrrfqqQA21111A1AA1A1A1AA11AAA1q1Ar311AA11AAA11A1111AArAtAcarBv!1ArAB4w2PrBAAAAAcAbAArAArBB3raaqbaR11QA11A11A1QA1QAAQA1Aa1QAB2AqAAQB2Q*A3qr1111aA!1A1AArr122111A1r1ABrArB2qq1Qrrqqqqqqqqqrqqqqqqqqq!AA4qAaAAArAAAAAqAAҶwraBraaA2AB3rArdsbaAAA121s1#AABrBB1Gbgqgm(m`ouoKu^ux&(x aa%}}]\Y%Cborrar"FQ&CPreparando Datos TCh1CC< D D C C CC<NNNNDCNNNNDCCC(N NQ&    %  CAbriendo datos 1!C "!CSeparando datos 1! C#!CAgregando datos 1!Rrborrar    o tmpcursorT%&'()%* CAbriendo datos 2!C*"!CSeparando datos 2! C#!CAgregando datos 2!T+&',)F$ ~F!E$$ $ $ %C467>$-$. $/$ rborrar    $$$/$ $ $ $$-$.$ C0!CExportacin Final!F1dey_fillBorrarDescrCod_Ins NO_CAMBIARBULATR NO_CAMBIAR NO_CAMBIAR > DesconocidoCF45listadosC$4F%7 >C!CCC466C 'CCC4 66C!CCC466C 'CCC4 66>CCC 66C:C$'CCC9---666CCC 66C:C$'CCC9---666%:`(& C C C 6; ,& C C C 6;4(<#\tmp\rpt_cm_ultimo_precio_de_compraQF$Q C0BU=BORRARXINITOESTADO SET_AND_SHOWXPATHODEYFUNCNEWFILE_LOCAL_TMPCOD_PRONOMBREFEC_COM1FEC_COM2COD_INSBULATRDESCRMON1 COS_LIFO1PESOS1CAMBIO1FCAMBIO1MONTXT1MON2 COS_LIFO2PESOS2CAMBIO2FCAMBIO2MONTXT2CENTRODCENTRO SUBCENTROCOEFICFULLP_UNOAVANCE OPEN_FILESULTCOS_SELECCION TMPCURSORXTMPEMP1GESFORMEMPRESAS EMPRESA_UNOABREVP_DOSXTMPEMP2 EMPRESA_DOSMONEDACOS_LIFOFEC_COM CERRAR_TABLAS FILL_BIE_FULLDEY_FILLFORARR_MONULTIMOS_CAMBIOSLISTADOSXCAMBIO_ORIGENALL MM_MONEDAXDSEPIDXP_LOCAL84%Cq!Q%(CselectotmpcomXtmpbie  Xtmppro Xtmpcos CC C ZC ZQ C C  CC  CC  CC  CC  CC   qQotmpcomXtmpbie  Xtmppro Xtmpcos qCProveedor DesconocidoQ Q C Artculo DesconocidoQ !CC(XQ"#$C ZC ZC R tmpcursor otmpcomXtmpbie  Xtmppro Xtmpcos CC C&ZC ZQ C C  CC  CC  CC  CC  CC   qQotmpcomXtmpbie  Xtmppro Xtmpcos qCProveedor DesconocidoQ Q C Artculo DesconocidoQ !CC(XQ"#$C&ZC ZC R tmpcursor%Cq-QBU'XVUELTAQXDTIPSYS_MTMPCOMCOD_INSATRBULCOD_PROFEC_COMORDENITMIDTMPBIETMPPROTMPCOSCENTROCOD_CENXDFECXHFECXDINSXHINSXDATRXHATRXDBULXHBULXDPROXHPROXDCOSXHCOSNOMBREDESCRMONEDACOS_LIFODCENTRO SUBCENTROCOEFIC TMPCURSOROP9 C$T\data\CCZ\%o Qtcompras Qcompras QproveedoQbienesQbultos Qatributo Qcostos U XEMPXPATH CERRAR_TABLASP_SYSTEMXDTIPTMPCOMTMPPROTMPBIETMPBULTMPATRTMPCOS%Ctmpcom"FQ%CtmpproHFQ%CTMPBienFQ%CTMPBulFQ%CTMPAtrFQ%CTMPcosFQUTMPCOMTMPPROTMPBIETMPBULTMPATRTMPCOSultcos_seleccion` open_files cerrar_tablas^qqAAra2!aA2aqqu3 AABqr3rFAh2ABAqAB3q!A22``B"AB3qqA1A3qqAAqqAAqqAAqqAAqqAAqqAA1?W!U "#d$Z%% %u"$\O G+(listados gesT.t.% ;T* and between(conver.importac,xdimp, xhimp)% 9T( and between(conver.orden, xdord, xhord)%C C wvTe and iif(conver.orden#0, between(tcccomp.fec_com, xdfec, xhfec), between(conver.fecha, xdfec, xhfec))%C C ;T* and between(conver.cod_ins, xdbie, xhbie)%Cidx04 Q \idx04]T C !]+str(conver.importac,10)[O]+str(conver.orden,10)6select &xid_op as id_op, conver.orden, conver.importac, conver.fecha as ingreso, conver.despacho, conver.cod_ins, conver.atr, conver.bul, bienes.descr, conver.entra-conver.sale as cantidad , iif(conver.importac#0, conver.fob, nvl(compras.cos_lifo,nvl(tcompras.cos_lifo,0))) as precio , iif(conver.importac#0, 000.00, nvl(compras.des_ins,nvl(tcompras.des_ins,0))) as dto , iif(conver.importac#0, 000.00, nvl(compras.desc2,nvl(tcompras.desc2,0))) as dto2 , iif(conver.importac#0, 000.00, nvl(compras.desc3,nvl(tcompras.desc3,0))) as dto3 , iif(conver.importac#0, 000.00, nvl(compras.desc4,nvl(tcompras.desc4,0))) as dto4 , iif(conver.importac#0, 000.00, nvl(compras.desc5,nvl(tcompras.desc5,0))) as dto5 , iif(conver.importac#0, 000.00, nvl(compras.descxo,nvl(tcompras.descxo,0))) as dtoxo , iif(conver.importac#0, conver.coef, nvl(compras.moneda,nvl(tcompras.moneda,0))) as moneda , iif(conver.importac#0, conver.coefic, nvl(compras.coefic,nvl(tcompras.coefic,1))) as cambio , iif(conver.importac#0, 000.00, nvl(compras.ivaper,nvl(tcompras.ivaper,0))*iif(nvl(cccomp.iva_com,nvl(tcccomp.iva_com,0))#0,1,0)) as ivaper , iif(conver.importac#0, conver.dolar, iif(nvl(compras.moneda,nvl(tcompras.moneda,0))=1,tcompras.coefic,0)) as dolar, conver.fecha as fecha , 000000000000000000000.00000 as fob , 000000000000000000000.00000 as fobpesos , bienes.codalt1 as codalt , tcompras.fec_com as fecha_oc from conver left outer join bienes on conver.cod_ins=bienes.cod_ins left outer join tcccomp on conver.orden=tcccomp.orden left outer join tcompras on str(conver.orden)+str(conver.refitm)=str(tcompras.orden)+str(tcompras.itm) left outer join compras on str(conver.transf,12)+str(conver.item,3)=compras.ref+str(compras.refitm,3) and compras.refcausa="M" left outer join cccomp on compras.op=cccomp.op where &xfiltro and (conver.orden#0 or conver.importac#0) into cursor tmp readwrite ~p> d d d d d d d % _>d d d d d d  %p _>d d d d d d  %p % _>d d d d d d  l c>d d d d d d  %O% g>d d d d d  d  KFG((idx04<GF EGFT.t.?T2 evaluate("idx04.indice"+alltrim(str(xdmon-1)))#0 locate rest for &xfiltro2 'T C idx04.indiceCCZFg>d d d d d  d  FG((idx04<GF EGFT.t.?T2 evaluate("idx04.indice"+alltrim(str(xdmon-1)))#0 locate rest for &xfiltro2 'T C idx04.indiceCCZFg>d d d d d  d otmpXtcccomp ","!"#$%&'()CQCQC Q *+!$&'(conver1oconver1Q/movstockQ0XventasQ7 3 4C ?Z7974C7@ZXventasQ8 3C ?Z8AC8@Z"#% $ 1 ' ()Q2   3  4Q5 4Q6C7484Q4C7989Q:C7;7d  c7< 8;8d  c8< Q;$&'( $ 1 ' ( 4M # $&'(detalle3&odetalle3QCXccventQ/ C:C494CC;C;;D E; QFC;Gd Hd Id Jd Kd L;DE L QMC#C$C1C'C(detallekoconver1Q/XdetalleQP C#Z$&'(C#Z$1'(!"#%$&Q1'()Q2 CQC3C XQ3C4 Q4CQC:C XQ:CFQFC#C" detalle15odetalle1QP:Q:4Q4ccc1occc1ccventclientesRNLQSNTQUVWQWR:R4N9N4NTVT ccc2occc2ccclieY:Y4QZY[Q\YTY]Q:Y^Q4YSQ_XUX:X4YTY:Y4*XUX:X4YTY]Y^ Y]Y^ccc5@occc5T:4C_Q_:4ccc4occc2Xccc4 XUX:X4aTa:a4XXSCa_QbCa_Q_CXSCa_XS dTQcccc3odetalle1Xccc3 Q:Q4d:d4Ximportac Q##3Xtcccomp Q","Xbienes Q1q&Xproveedo CQ" ,n#n6onQ!Q"Q#Q%Q!Q$Q1QeQ$Q1Q1Q'Q(Q)Q2QQ QcQQ3Q4QCQ4r Q3Q:6Q:CQ4VQ4rQ3Q:  FCeCQ4cNCMCQ4dND5CQ4rRECQ4  XX66666QfCdSQFQSCdbQFQbCd_QFQ_CdcQcQgQhQiQjQkQlQmdUQUdWQWCCQ" ,n#n6CXQnCCCCCQ" ,n#n6CXҡC(XoW6C(XQpqrQ*,sQ+Q#Q1detalle2%Cu Cv W%w :T-between(val(cod_pro), val(xdpro), val(xhpro)) B+Tbetween(cod_pro, xdpro, xhpro)tC & !$1y& !!Jodetalle2QP!"#$1'()2 CQCC2C2 6dTQjSQSCCSCcSCS 6Qc!$1'(2 resumen1 ~eFt G((idEz!z$z14+C+ !!$1z!z$z1 a*>gzjzjlzcHoresumen1QP!"#CQhC QiCCCCjC 6TQjCCCSCScCS 6TQc!resumen2 ~FtG((id_op E{!+C+ !{! 7>k{jm{ch{hi{iHFt2(|"\tmp\rpt_cm_importaciones_cobradasBU}LISTADOSGESXFILTROXDIMPXHIMPXDORDXHORDXDFECXHFECXDBIEXHBIEP_COMMONXID_OPFOBPESOSCANTIDADPRECIODTODTO2DTO3DTO4DTO5DTOXOCAMBIOIVAPERXDMONFOBMONEDADOLARIDX04TMPFECHAXFILTRO2XCAMBIOID_OPORDENIMPORTACDESPACHOINGRESOCOD_INSATRBULDESCRCODALTFECHA_OCTCCCOMPCONVER1DISTINCTCMCODIGO COMPRADOSNUMEROCAUSA CAU_MOVSTOCKMVCAUSAVV1FAC_VENCOMPROBTOT_VEN RECEPCIONMOVSTOCKVENTASITEMITMREM_VENDETALLE3D3DES_COMIVA_VENPCTFACTDESC1DESC2DESC3DESC4DESC5DEUDAPCTFACT2CCVENTDETALLEDDETALLE1CCC1IMPORTECOD_CLICLIENTECLIENTESNOMBRECCC2CCCLIENUMIDUREGREFCAUSALDOCCC5CCC4 CANCELADOPER_CANCCCC3 ID_DSP_ITMTIPOCANT_ACCFOB_ACCFOBP_ACCPER_VEND PER_VEND_ACC PER_CANC_ACCPER_CANC_ACC_TOTCOD_PROPROVEEDO DPROVEEDORBIENESCODALT1FEC_COMDETALLE2XDPROXHPROP_PRONUMINIDRESUMEN1RESUMEN2P_LOCAL"AAaAArAy2r122Ar2qsbarrrqBsbarrrqBAAAA=!iX\ 8 p@ABbqBBAB quBABs"B4  ( @   +?CCCCCCCCCCCCCCCCCCCCCCCCCCB1wķ| { { { { { { { { { { | } } `׻ѷeýaĤ̸ҶSӺ ջeѻպ#ؽϯԿպ&ĶĶšxѻ+WZYYZWdʺ/ZٟםםٟZMÐ3ZѝΜΜѝZϭUKTkɨ}ƨĒ7ZʟǝǝʟZپáşopŕ:[ƠğğƠ[аǗ?Y\[[\YY\[[]ZҵǗ@ȘB\ٟממٟ\ŖHɚG[ўΜΜў[ɛG˛J[ʟǝǝʟ[˜J̞N]ơğğơ]̞NΠR[]\\][ΠRϣUϣUФZФZѦ^Ѧ^ӨaӨaשcשc]]5~~~~~~54Y\\\\\\\\\\\\\\\\\\\\\\\\Y4*=@@@@@@@@@@@@@@@@@@@@@@@@=* ## $$% q.6%Ctventas /FQtventas%Ctccvent mFQtccventtccvordwotventasXbultos   Xatributo   tccventbienesQQQCC S CC қ6C S CC қ6QC QC QC01/CCCCC 6C$ C$!C 66HZ/CCCCC 6C$ C$!C 66iZ#Q    pedidosUTVENTASTCCVENTTCCVORDCOD_INSCODIGOBULATRBIENESDESCR ATRIBUTOSATRIBUTOBULTOS RECEPCIONRECEP2CANTIDADFACTORCANTAUXFEC_ENTFEC_VENFECHACLAVEPEDIDOEST_DESPFCPEDIDOSAAq'1%d>T4 T Ta Tapr_ventas_mensuales(%TC%TC 8TCHC G%T TTCiT C$!T tmp_ventas_mensuales@ ve_sql_estadisticas  a \tmp&%C \tmp\ .dbf0FS \tmp\ > BUXFECHAXMESESXSIN_PROMOCIONESXRESPR_VENTAS_MENSUALESXHASTAXANOSXMESXANOXDESDEXTABLAEXPORTAR_VENTAS_PLANVE_SQL_ESTADISTICASP_LOCAL P_PR_UNIDADVENTAS_ANTERIORESTOTALALLq422A2Rbr"BAB1 ( f ( @@ (B(00 %j   h.(  q3P$  l1Dr4фG  r3o2 m1es4p2 r4t4i/| m1vt4t4d-p J!s4t4t4M#H!!  n2t4t4s4I!L$$! W(*t4t4t4p2B#4'&"  q3t4t4t4n1**'" e-Jt4t4}@t4j/-+("  s4t4[w8t4Y(}/-("  l1xt4ވMkt4t4J!e1-(! Et4w8}\t4s3Z0M2-'  p2t4a߈Mt4o262,% e-Jt4}@È}@t4g.62+$  s4t4rȌxw8t4U&71*"  l1xt4ވMȌȍkt4u4l;`60(  Et4w8xNjWt4q20 G5.&  p2t4dsˆ܀Dt4j/:4,# f.Zt4܃HƋe~w8t4Y(92)!  s4t4zvbLjlt4u4j9b7/'  n2t4\Ƈ`iȌWt4o10 H5-% V'+s4z<Èh`uÉ܀Dt4a+:3+"  q3s4s|aaŃyw8t4L"{80(   k1xs4Sɋaadʌft4r3/ I6.% V'+s4y<ÉoabpnjކJt4h/;3+#  p3s4m}bbb|z‡d^^^^^^^^^fŊ܆Lr3\)8/& p3q3|o^^^^^^^]]]zwr3p20 G4+"  l1q3ly]]]]]]]]]]cĉ܆Lr3\)8/& f.jq3V„]]]]]]]]]\\yvq3o2/ G3+! R%,q3}BÈ_]]]\\\\\\\bÈ܅Lq3[)7/%  q3q3j\\\\\\\\\[[xvq3o2;3*!  m1q3qr\\\\\\[[[[[d}Cq3P$7.%  i0p3[}[[[[[[[[[[ZZ}kq3m1:2)   `,Kp3ۄKÈ[[[[[[[ZZZZZf}Cq3Q%6-$ p3y>cZZZZZZZZZZZY|fq3h/91(  n2p3kZZZZZZZZYYYYkw;q3|Bm5,"  k1p3lsZZZYYYYYYYYYX_p3b,80& g/zp3[{YYYYYYYYYXXXXm{s7p3P+T4+!  `,Kp3ڄKYYYYYXXXXXXXXZ݉Qp3Z)7.% t=o2x>^XXXXXXXXXXWWWutp3n2:2)  n1o2cXXXXXXWWWWWWW`|Cp3P%5,#  l1o2nnWWWWWWWWWWWWWWz`p3g/80' h/o2cvWWWWWWWWWWWWVVhr6o2P*T3*!  e-jo2ߏUyWWWWWWWWWVVVVVV܈Po2^*7.$  _+Ko2}DWWWWVVVVVVVVVUUsso2k091(o2x=\VVVVVVVVVUUUUU^x>o2J!y4+"  n1o2~aVVVVVUUUUUUUUTT~^o2a,7/%  k1o2qiUUUUUUUUUUUTTTTixo2m10 F2(  h/n2ilUUUUUUUTTTTTTTTY~Eo2P$5+"  g/n2ߐXvTTTTTTTTTTTTSSSSx_o2d-8/%  `,\n2ލUvTTTTTTTTTSSSSSSSexn2n2/ F2( ]*Ln2|DTTTTSSSSSSSSSRRRU}En2O$5+"  o;n2zASSSSSSSSSSRRRRRRRs^n2c-7/% n2t9|[SSSSSRRRRRRRRRQQfwn2n2/ F1(m1n2{^RRRRRRRRRRRQQQQQW}En2I!y4+!  j1n2tcRRRRRRRQQQQQQQQPPxސYn2`,6-#  j1m2ghQQQQQQQQQQQQPPPPPiqn2l190&  f/m2fhQQQQQQQQQPPPPPPPOX~v=m2h7`3)  f/m2\pQQQPPPPPPPPPPPOOOOzنOm2X)5,"  f.m1݋SsPPPPPPPPPPOOOOOOOOmgm2g/7.$  [)Mm1܋RrPPPPPPOOOOOOOOONNN`zm2m20 E1'  [)Mm1ۉQtOOOOOOOOOOOONNNNNNQ~y@m1I!x3)  Z)Ml1w?}OOOOOOOONNNNNNNNNNNv܍Wm1\)5,"  [)Ll1w?|NNNNNNNNNNNNNNNNNMMigl1f.7.$  k8l1w?|NNNNNNNNNNNNNNMMMMM\yl1l10 E1'  l1w?{NNNNNNNNNNMMMMMMMMLO}x@l1H!x2) l1w?zQNNNNMMMMMMMMMMMLLLLtډRl1X(5+!  l1l1vYMMMMMMMMMMMLLLLLLLLjel1d-6-#  l1l1vXMMMMMMLLLLLLLLLLKKK^sl1l18/%  l1l1vXLLLLLLLLLLLLLKKKKKKTzr9l1h7_1'   k1k1uWLLLLLLLLKKKKKKKKKJJJ|{Dl1N#3)   k1k1uWLLKKKKKKKKKKKKJJJJJJoډRk1[*4+     k1k1tVKKKKKKKKKKJJJJJJJJJIedk1c-6-"   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   k1k1tVKKKKKJJJJJJJJJJJIIII_rk1i07.$  #')+,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,++*(&"  k1k1sUJJJJJJJJJJJJIIIIIIIIVwn5k1Q*Q0&  %+/2455555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555432/,'"  k1k1sUJJJJJJJIIIIIIIIIIIIIIzw@k1z@k1'  U)U)U)V)V)V)V)V)V)V)W)W)W)W)W)W)W*W*X*X*X*X*X*X*X*X*X*Y*Y*Y*Y*Y*Y*Y*Z*Z*Z*Z+Z+Z+Z+Z+[+[+[+[+[+[+[+[+\+\+\+\+\+\+\+\+],],],],],],],],^,^,^,^,^,^,^,^,_,_,_,_,_,_,_-_-_-_-`-`-`-`-`-`-`-a-a-a-a-a-a-a-a-a-a-b-b-b-b.b.b.b.b.c.c.c.c.c.c.c.c.c.c.d.d.d.d.T&`  j1j1sUIIIIIIIIIIIIIIIIIIHHHw׃Mk1W(3)U)Y-e:f:_3_3_3^3^2^2_2_2_2_2_2_2_2_2_2_2_2_2_2_2_1_1_1_1_1_1_1_1_1_0_0`0_0_1_1_0_0_0_0`0`0_0_0_/_/_/`/`/`/`/_/_._._._.`/`/`/`/`/`/a0a0b0b0b0b0b0b0b0b0c0c1c1c1c1c1c2d2d2d2e2e2e2e3e3e3e3f3f3f3f3f3f3g3g3g4g4h4h4h4h5h5h5h5i5i5i5i5i6i6j6j6j6j6c.d.d.U'q  j1m4rTIIIIIIIIIIIIIIHHHHHHHmڈRj1Z*4*   U)e:ssXWWVVVUUUTTTTRRRQPPPPOON~NM~M~LzGt@r>s>r=r=q=rw>x?y?y@yAzAzA{B{C|C}D}D}E~EFFGGHHIIJJKLLLLMNNNOPPQQQRRvCc.d.S&t  j1u>vIIIIIIIIIIIHHHHHHHHHGGccj1b-5,!  U)e:sZj5j5k5k6j5k5k5k5k6l6l6l6l7m7l6m6l6l6l6m6m7m7m7m7m7n7n7n7n7k4^#]"^"^"^#_#_#_#`$`$`$a$a%a%b%b%b&c&c&d&d&d'd'e'e'e(f(f(g)g)g)h)h*h*i*i*j+j+j+j,k,k,k,l-l-l-m-m.n.n.n.o/o/o/p/p0q0q0q1r1r1r1s2s2t2t2t3u3u3u4v4v4v4w5w5w5x5x6x6y6z7APt@c.b-z?L  c4!j0u>vIIIIIHHHHHHHHHHHHGGGGG`gj1f.6-"  U)e:sZj5j5k5k6j5j5k5k5k6k6l6l6l7m7l6l6m6l6l6l6m6m7m7m7m7m7n7n7n7n7l4`&^"^"^"^#_#_#`$`$`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j,j,k,k,l-l-l-m-m.m.n.n.o/o/o/p/p0p0q0q1q1r1r1s2s2s2t2t3t3u3u4u4v4v4v4w5w5x5x5x6y6@Pm:c.b-y>M  X(Mj0u>uHHHHHHHHHHHHHGGGGGGGGGSuj0j07.$  U)f;tZj5j5k5k5k6j5k5k5k5k6l6l6l7l7m7l6m6l6l6l6m6m7m7m7m7m7n7n7n7n7o8n7a&^"^"^#_#_#_#`$`$a$a$a%a%b%b%b&c&c&d&d&d'd'e'e'e(f(f(g)g)g)h)h*h*i*i*j+j+j+j,k,k,k,l-l-l-m-m.n.n.n.o/o/o/p/p0q0q0q1r1r1r1s2s2s2t2t3t3u3u4v4v4v4w5w5w5x5x5AOm9c.b-y>M  W'Nj0u>uHHHHHHHHGGGGGGGGGGFFFFSvp7j0i7]/%  U)f;tZj5j5j5k5k6j5j5k5k5k6l6l6l6l7m7l6l6m6l6l6m6m6m7m7m7m7m7n7n7n7o8o8o8e*^"^#^#_#_#`$`$`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j,j,k,k,l-l-l-m-m-m.n.n.n.o/o/p/p/p0q0q1q1r1r1r1s2s2t2t2t3u3u3u4v4v4v4w5w5w5ENm9c.b-y>M  V'Oj0|EqGGGGGGGGGGGGGGGFFFFFFFFxv?j0y@k0&  U)f;uZj5j5j5k5k6k6j5k5k5k6k6l6l6l7m7m7l6m6l6l6l6m6m7m7m7m7m7n7n7n7n7o8o8p8h.^"^#_#_#_#`$`$a$a$a%a%b%b&b&c&c&d&d&d'd'e'e'e(f(f(g)g)g)h)h*h*i*i*j+j+j+j,k,k,k,l-l-l-m-m.n.n.n.o/o/o/p/p0p0q0q1r1r1r1s2s2s2t2t3t3u3u4u4v4v4v4w5DMl9b.b-x>M  ]+lj0مOiGGGGGGGGGGFFFFFFFFFFFFFxyBj0M#1'  U)f;uZj5j5j5j5k5k6j5k5k5k5k6l6l6l6l7m7l6m6m6l6l6m6m7m7m7m7m7n7n7n7n7o8o8o8p8l3_$^#_#_#`$`$`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-m-m-m.n.n.n.o/o/o/p/p0q0q0q1r1r1r1s2s2s2t2t3t3u3u4v4v4v4DLl8b.a-z>L b-i0؄NhGGFFFFFFFFFFFFFFFFFFFEEnنPi0V'2( U)f;uZj5j5j5j5k5k6k6j5k5k5k6l6l6l6l7m7m7l6m6l6l6m6m6m7m7m7m7m7n7n7n7n7o8o8p8p8n5a'_#_#_#`$`$a$a%a%a%b%b&b&c&c&d&d&d'd'e'e'e(f(f(g)g)g)h)h*h*i*i*j+j+j+j,j,k,k,l-l-l-m-m.m.n.n.o/o/o/p/p/p0q0q1q1r1r1r1s2s2t2t2t3u3u3u4v4CKk8b.a-z>L a,i0܋VhFFFFFFFFFFFFFFFFFEEEEEEkنPi0V'3) U)f;uZi5j5j5j5k5k5k6j5k5k5k5k6l6l6l7l7m7l6m6m7l6l6m6m7m7m7m7m7n7n7n7n7o8o8o8p8p8o7e+_#_#`$`$`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.n.n.n.o/o/o/p/p0p0q0q1r1r1r1s2s2s2t2t2t3u3u3~BJk7b-a-z>L  e.i0_]FFFFFFFFFFFFFEEEEEEEEEDfߑ\i0a,4* U)f;uZi5j5j5j5j5k5k6k6k5k5k5k6l6l6l6l7m7m7m6m6m7l6m6m6m7m7n7m7m7n7n7n7n7o8o8p8p8p8p9j1_#_#`$`$a$a%a%a%b%b&b&c&c&d&d&d'd'e'e'e(f(f(f(g)g)h)h)h*i*i*i*j+j+j,j,k,k,l-l-l-m-m-m.n.n.n.o/o/p/p/p0q0q0q1r1r1r1s2s2s2t2t3t3~AJj7b-a,y>L  f.i0^\FFFFFFFEEEEEEEEEEEEDDDD]ai0a,4+   T(f;vZi5j6j5j5j5k5k6k6j5k5k5k6k6l6l6l7m7m7m7m6m7l6l6m6m7m7m7n7m7n7n7n7n7o8o8o8p8p8p9p9m5a&`$`$`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.o/o/o/p/p/p0q0q1q1r1r1r1s2s2s2t2}A}Fj7a-^+@!0  h/i0mVEEEEEEEEEEEEEEEDDDDDDDD]ai0a,5+!  T(f;wZi5i5j6j5j5k5k5k6k6k5k5k5k6l6l6l6l7m7m7m6m6m7l6m6m7m7m7n7m7m7n7n7n7o8o8o8p8p8p8p9p9o7f+`$`$a$a%a%a%b%b&b&c&c&d&d&d'd'e'e'e(f(f(f(g)g)h)h)h*i*i*i*j+j+j+j,k,k,k,l-l-m-m-m.n.n.n.o/o/o/p/p0p0q0q1q1r1r1s2s2s2|@|Fe2a-^+@ 0  i0i0nPEEEEEEEEEEDDDDDDDDDDCCC\ii0i05,!  T(e:wZi5i5j6j5j5j5k5k6k6k5k5k5k6l6l6l6l7m7m7m7m6m7l6l6m6m7m7n7n7m7n7n7n7n7o8o8o8p8p8p9p9p9p8k1a%`$a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(e(f(f(g)g)g)h)h*h*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.n.o/o/o/p/p0q0q0q1r1r1r1t3{?{Ee2a-^+@ 0  D1h0p:oJDDDDDDDDDDDDDDDDDCCCCCCOri0i06,"  T(e:w[i5i5j6j6j5j5k5k5k6k6k5k5k5k6l6l6l7l7m7m7m6m6m7l6m6m7m7m7n7n7m7n7n7n7o8o8o8p8p8p8p9p9p9p8o6d)a$a%a%a%b%b&b&c&c&d&d&d'd'e'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.o/o/o/p/p/p0q0q0q1r1s2}BzDe1a-^+@ 0  S&Ph0s=pDDDDDDDDDDDDDCCCCCCCCCCBOqh0h06-"  T(e;w[i5i5i5j6j5j5j5k5k6k6k6k5k5k6l6l6l6l7m7m7m7m6m7m7l6m6m7m7n7n7m7n7n7n7n7o8o8p8p8p8p9p9p9p9q9q9i/a$a%a%a%b%b&c&c&c&d&d'd'd'e'e(e(f(f(g)g)g)h)h*h*i*i*i*j+j+j,j,k,k,k,l-l-m-m-m.n.n.n.o/o/o/p/p0p0q0q1r2|AyCd1a-^+@ 0 ^+|h0ցLhDDDDDCCCCCCCCCCCCCCBBBBBOqh0h07-#  T(e;w[j6i5i5j6j6j5j5k5k6k6k6k5k5k6k6l6l6l7l7m7m7m7m7m7l6m6m7m7m7n7n7n7n7n7n7o8o8o8p8p8p8p9p9p9p9q9q9o5d(a%a%b%b&b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.n.o/o/o/p/p0p0r1{@xBd1`-^+@ 0  `,h0؅PdCCCCCCCCCCCCCCCBBBBBBBBBOqh0h0P*P.#  T(e;w[j6i5i5i5j6j5j5j5k5k6k6k6k5k5k6l6l6l6l7m7m7m7m6m7m7m6m6m7m7n7n7n7n7n7n7n7o8o8p8p8p8p9p9p9p9q9q9q9r9i/a%a%b%b&c&c&c&d&d'd'd'e'e(e(f(f(f(g)g)h)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.n.o/o/p/p/q1z?xAd1`-]+A!/  e.h0\YCCCCCCCCCBBBBBBBBBBBBBBBNqk4h0z?i.#  T(f;w[j6j6i5i5j6j6j5j5k5k6k6k6k5k5k6k6l6l6l7m7m7m7m7m7m7m7m6m7m7m7n7n7n7n7n7n7o8o8o8p8p8p8p9p9p9p9q9q9r9r9n5e*b%b%b&c&c&c&d&d'd'd'e'e(f(f(f(g)g)g)h)h*h*i*i*i*j+j+j,j,k,k,k,l-l-m-m-m.n.n.n.o/o/o/q0y>wAc1`-]+A!/  g/h0gSBBBBBBBBBBBBBBBBBBBBBBAAAst>h0z?i.$  T(f;x[i6j6j6i5i5j6j6j5k5k5k6k6k6k5k5k6l6l6l6l7m7m7m7m7m7m7m6m6m7m7n7n7n7n7n7n7n7o8o8o8p8p8p9p9p9p9q9q9q9r9r:q9j0c&b&b&c&c&d&d&d'd'e'e'e(f(f(f(g)g)g)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m-m.n.n.n.o/p0x>v@c1`-]+A!/  \0#h0k3kMBBBBBBBBBBBBBBBBBBAAAAAAAst>h0z?i.$  T(f;xZi6j6j6i5i5j6j6j5j5k5k6k6k6k6k5k6k6l6l6l7m7m7m7m7m7m7m7m6m7m7m7n7n7n7n7n7n7o8o8o8p8p8p8p9p9p9p9q9q9r9r9r:q9p7g+b&c&c&c&d&d'd'd'e'e(e(f(f(g)g)g)h)h)h*i*i*i*j+j+j+j,k,k,k,l-l-l-m-m.m.n.n.o/w=qh0z?i.$  T(f;yZi6i6j6j6i5j6j6j6j5k5k5k6k6k6k5k5k6l6l6l6l7m7m7m7m7m7m7m7m6m7m7n7n7n7n7n7n7n7o8o8o8p8p8p9p9p9p9q9q9q9r9r:q9q9r9n5d)c&c&d&d&d'd'd'e'e(f(f(f(g)g)g)h)h*h*i*i*i*j+j+j,j,k,k,k,l-l-l-m-m.m.o/vJmm6g/z?h,"  S(e;z[i6i5i5i6j6j6j6j6j6j6j6j6k5k6k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m7m7n7m7m7m7n7n7o8o8n7n7o8o8o8p8p8p8p9p9p9p9q9q9q9r9r:r:r:r9r:s:s:s:t:t:s:m3e(e'e(f(f(f(g)g)g)h)h)h*i*i*i*j+j+j+l.r8l7_-^,V(  d.f/_U@@@??????????????????>>>>>Jmg/g/R*N,!  S(e;{[i6j6i5i6i6j6j6j6i5j6j6j6j5k5k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m8m7n7n7m7m7n7n7n7o8o8n7n7o8o8o8p8p8p9p9p9p9q9q9q9r9r9r:r:r9r9r:s:s:s:t:t;s:r9l1f)e(f(f(f(g)g)g)h)h*h*i*i*i*j+k-q7k7_-^,V(  |@3f/k5gJ????????????????>>>>>>>>>>Jlf/f/5+!  S(e;{[i6j6i5i5i6j6j6j6j6j6j6j6j6k5k6k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m8m7n7m7m7m7n7n7o8o8n7n7o8o8o8p8p8p8p9p9p9p9q9q9q9r9r:r:r:r9r:r:s:s:s:t:t;s:s:s9n4g*f(f(f(g)g)g)h)h*i*i*i*k-p6h4_-^,K#x  X)of/vBf?????????>>>>>>>>>>>>>>>===Ilf/f/4+   S(e;|[i6i6j6i5i6i6j6j6j6j6j6j6j6j5k5k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m8m7n7n7m7m7n7n7n7o8o8n7n7o8o8o8p8p8p9p9p9p9p9q9q9r9r9r:r:r:r9r:s:s:s:t:t:t;s:s:t:t;o4h*f(g)g)g)h)h)h*i*j,o6f3^,^,K#x  b-f/ۈS[>>>>>>>>>>>>>>>>>>>========Ilf/f/4* S(e<|[i6i6j6i5i5i6j6j6j6j6j6j6j6j6k5k6k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m8m7n7n8m7m7n7n7n7o8o8n7n7o8o8p8p8p8p9p9p9p9q9q9q9r9r:r:r:r:r9r:s:s:s:t:t;t;s:t:t:t;u;o4j-g)g)g)h)h)j.p7f3],],K#x e/f/aN>>>>>>>>>>>>>==============Rcf/f/3) S(e<|[i6i6i6j6i5i6i6j6j6j6j6j6j6j6j6k5k6k6k6k6k6k6k6l6l6l7l7m7m7m7m7m8m8n7n7n8m7n7n7n7o8o8o8n7o8o8o8p8p8p8p9p9p9p9q9q9q9r9r:r:r:r:r:r:s:s:s:t:t;t;s:t:t;t;u;u;q6m0g)g)l/q8f4],],J#x  U'`f/r>fB===========================Uސ\f/^+2( S(e<|[i6i6i6j6j6i5i6j6j6j6j6j6j6j6j6k6k6k6k6k6k6k6k6l6l6l6l7m7m7m7m7m8m8m8n7n8m7m7n7n7n7o8o8o8n7o8o8o8p8p8p9p9p9p9p9q9q9r9r9r:r:r:r:r:r:s:s:t:t:t;t;s:t:t;t;u;u;u;t:p5r:g4],],J#x  `,f/ՀL_=======================<<<<;;;;;;;;;;;;;;;;;;;;;;;;;;;;>jph+!  S(f<}ߋZi5i5i6i6i6i6j6j6j6i6j6j6j6j6k7k7j6j6k6k6k6k6k6k6k6k7k7l6l6l7l7m7m7m7m7m8m8m8n7n8n8n7n7n7n7o8o8o8o8o8o8o8p8p8p9p9p9p9p9q9q9q9r9r:r:r:r:r:r:s:s:s:t:t;v>}Ig7\+T'A:2)!  b-e.ۇSW;;;;;;;;;;;;;;;;;;;;;;;;;~:~:~:~:Fhh2e/Q*M*  R(f<}ߋZi5i5i5i6i6i6i6j6j6j6i6j6j6j6j6k7k7j6j6k6k6k6k6k6k6k6k7l7l6l6l7m7m7m7m7m8m8m8n8n8n8n8n7n7n7o8o8o8o8o8o8o8p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:r:r:r:s:s:s:t:t;yCzG`/\+I"=5-$  N$Se.j4bH;;;;;;;;;;;;;;;;;;;~:~:~:~:~:~:~:~:~:~:Ihe.e.2( R(e<~ߊZi5i5i5i6i6i6i6j6j6j6i6j6j6j6j6j6k7j6j6j6k6k6k6k6k6k6k7k7l7l6l6l7m7m7m7m7m8m8m8n8n8n8n8n7n7n7o8o8o8o8o8o8o8p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:r:r:r:s:s:s:t:t;|Fr@\+\+Y,d92)!  ^+d.|I]~:;;;;;;;;~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:}9}9QݍYe.`,1&  R(e<~ߊZi5i5i5i5i6i6i6i6j6j6j6i6j6j6j6j6k7k7j6j6k6k6k6k6k6k6k6k7l7l6l6l7l7m7m7m7m7m8m8n8n8n8n8n8n7n7n7o8o8o8o8p9o8o8p8p8p8p9p9p9p9q9q9q9r9r:r:r:r:r:r:s:s:s:t:t:u=|Ij9\+Y)( I7/'  q:7d.f1\L~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:}9}9}9}9}9}9}9ZوTe.[*/%  R(e<~ߊZh5i5i5i5i5i6i6i6i6j6j6j6i6j6j6j6j6k7k7j6j6k6k7k6k6k6k6k6k7l7l6l6l7m7m7m7m7m8m8m8n8n8n8n8n8n7n7o8o8o8o8o8p9o8p8p8p8p9p9p9p9p9q9q9q9r9r:r:r:r:r:r:s:s:s:t:t:xA{Ic2\+U(<5-%  \*d.vB_<~:~:~:~:~:~:~:~:~:~:~:~:~:~:~:}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9_}Jd.S&-#  R(e<~ߊZh5i5i5i5i5i6i6i6i6j6j6j6j6j6j6j6j6k7k7k7j6k6k6k7k6k6k6k6k7k7l7l6l7l7m7m7m7m7m8m8m8n8n9n8n8o8n7n7o8o8o8o8p9p9o8p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:r:r:r:s:s:s:t:t:zEwE^.\+J":4,$  N((c.d.ދWO}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9|9|9|9|9|9hq>d.K"+!  R(e<~Zh5h5i5i5i5i5i6i6i6i6j6j6j6i6j6j6j6j6k7k7j6j6k6k7k7k6k6k6k6k7l7l7l6l7m7m7m7m7m7m8m8m8n8n9n8n8o8n7n7o8o8o8o8p9o8o8p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:r:r:r:s:s:s:t:u;|Hq@],\+x<{92*"  Y)d.r?`>}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9}9|9|9|9|9|9|9|9|9|8|8|8Afl8d.j6Y) R(e<~Zh5h5i5i5i5i5j6i6i6i6j6j6j6j6j6j6j6j6k7k7k7j6j6k6k7k6k6k6k6k6k7l7l7l6l7m7m7m7m7m8m8m8n8n8n9n8o8o8n7o8o8o8o8o8p9o8o8p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:r:r:r:s:s:s:t:v>}Jk:\+[*Z-b81)!  L')c.d.ފWQ|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|9|8|8|8|8|8|8|8|8{8{8Jed.d.1'  R(e=Zi5h5h5i5i5i5i5j6i6i6i6j6j6j6j6j6j6j6j6k7k7k7j6k6k6k7k6k6k6k6k7k7l7l7l7l7m7m7m7m7m8m8m8n8n9n9n8o8o8n7o8o8o8o8p9p9o8p8p8p8p9p9p9p9p9q9q9q9r9r:r:r:r:r:r:r:s:s:s:t:w@|Jd4\+Y)( I70(   Y)c.q>^=|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8|8{8{8{8{8{8~;=?Zݎ[d.]+/%  R(e=먀Zi5i5h5i5i5i5i5j6j6i6i6j6j6j6j6j6j6j6j6j6k7k7k7j6k6k7k7k6k6k6k6k7l7l7l6l7m7m7m7m7m7m8m8m8n8n9n9n8o8o8n7o8o8o8o8p9p9p9p8p8p8p9p9p9p9p9q9q9q9r9r:r:r:s:r:r:s:s:s:s:t:yC{Ia1\+W)<6/' o98c.c.މVP{8{8{8{8|8|8|8|8|8|8|8|8|8{8{8{8{8{8{8{8{8{8|9~;=>BDFFFFeԁNd.Y)-#  R(e=먀[i5i5h5h5i5i5i5i5j6i6i6i6j6j6j6j6j6j6j6j6k7k7k7k7j6k6k7k7k6k6k6k7k7l7l7l7l7m7m7m7m7m8m8m8n8n8n9n9n8o8o8n7o8o8o8o8p9p9p9p8p8p8p9p9p9p9p9q9q9q9r9r:r:r:s:r:r:s:s:s:s:t:{EwF_/\+P%;5.&  \+c.vD[~<{8{8{8{8{8{8{8{8{8{8{8{8{8{8{8~;~;>>BBEEFFFFFFFFFotBc.J"+   R'e<먀[i5i5i5h5h5i5i5i5i5j6i6i6i6j6j6j6j6j6j6j6j6k7k7k7j6k6k6k7k7k6k6k6k7k7l7l7l7l7m7m7m7m7m8m8m8n8n9n9n8o8o8o8o8o8o8o8o8p9p9p9p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:s:s:r:s:s:s:t:u;}HrA],\+M$;5-%  J"Vc.e1XJ{7{7{7{7{7{7}:};};>>@BBEEEEEFFFFFFFFFFFFFNlh4c.i6Y( R'e<먁[i6i5i5i5h5i5i5i5i5j6j6i6i6j6j6j6j6j6j6j6j6j6k7k7k7j6k6k7k7k7k6k6k6k7l7l7l7l7l7m7m7m7m7m8m8m8n8n9n9n8o8o8o8o8o8o8o8o8p9p9p9p8p8p8p9p9p9p9q9q9q9r9r9r:r:r:s:s:r:s:s:s:t:u;~JqA],\+A:4-%  `-c.}K]@BBBDEEEEEEEEEFFFFFFFFFFFFFFFFFEEWfc.a-0&  Q'e<먁[i6i6i5i5i5h5i5i5i5i5j6j6i6i6j6j6j6j6k6j6j6j6k7k7k7k7k6k6k7k7k7k6k6k6k7l7l7l7l7m7m7m7m7m7m8m8m8n8n9n9n8o8o8o8o8o8o8o8p9p9p9p9p8p8p9p9q9p9p9q9q9q9r9r9r:r:r:s:s:r:s:s:s:t:v=~Jj;[+\+A:3,%  W)c.l8aQEEEEEFFFFFFFFFFFFFFFFFFFEEEEEEEEEa؇Uc.Z*-#  Q'e<먁[h6i6i6i5i5h5i5i5i5i5j6j6i6i6i6j6j6j6j6k6j6j6j6k7k7k7k7k6k6k7k7k6k6k6k7k7l7l7l7l7m7m7m7m7m8m8m8n8n8n9n9n8o8o8o8o8o8o8o8p9p9p9q9p8p8p9p9q9p9p9q9q9q9r9r9r:r:r:s:s;r:s:s:s:t:v=~Kj;[+\+x<{93,$  k6:b.c.ۇU\EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEjxEc.O%+!  Q'e<먁[h6i6i6i5i5i5h5i5i5i5i5j6j6i6i6j6j6j6j6k6k6j6j6j6k7k7k7k7k6k7k7k7k6k6k6k7l7l7l7l8l7m7m7m7m7m8m8m8n8n8n9n9o9o8o8o8o8o8o8o8p9p9p9q9p8p8p9p9q9p9p9q9q9q9r9r9r:r:r:s:s;s;s:s:s:t:xA~Ki9[+[*Y-c93+$  ^,b.uCcIEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDLjk7c.h6Y( Q'e<먁[h6h6i6i6i5i5i6i5i5i5i5i5j6j6i6i6j6j6j6j6k6j6j6j6k7k7k7k7k7k6k7k7k7k6k6k6k7l7l7l7l8m7m7m7m7m7m8m8m8n8n9n9n9o9o8o8o8o8o8o8o8p9p9p9q9p8p8p9p9q9p9p9q9q9q9r9r9r:r:r:s:s;s;s:s:s:t:x@|Id4[+[*Y-c93+$  T'b.h5_TDDDDDDDEEEEEEEEEEDDDDDDDDDDDDDDDDDVdc.a-/%  Q'e<먁ߊZh6h6h6i6i6i5i5i6i5i5i5i5j6j6j6i6j6j6j6j6j6k6j6j6j6k7k7k7k7k7k6k7k7k7k6k6k7k7l7l7l7l8m7m7m7m7m7m8m8m8n8n9n9n9o9o8o8o9o8o8o8o8p9p9p9q9p8p8p9q9q9q9p9q9q9q9r9r:r:r:r:s:s;s;s:s:s:t:x@|Id4[+[*Y-c93,%  {?Kb.b.ۅS\DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEE`ՂQc.Z*,"  Q'e<먂ߊZh5h6h6i6i6i6i5i6i6i5i5i5i5j6j6j6i6j6j6j6j6k6k6j6j6j6k7k7k7k7l7k7k7k7l7k6k6k7k7l7l7l7l8m7m7m7m7m8m8m8n8n8n9n9n9o9o8o8o9o8o8o8o8p9p9p9q9q9p8p9q9q9q9p9q9q9q9r9r:r:r:r:s:s;s;s;s:s:t:{E|Id4[+[*Y-c93,%  E#-`,b-xE_JDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEDDksAb.J#)  Q'e<멂ߊZh5h6h6h6i6i6i6i5i6i5i5i5i5i5j6j6j6i6j6j6j6j6k6k6j6j6k7k7k7k7k7k7k7k7k7l7k6k6k7l7l7l7l8l8m7m7m7m7m8m8m8n8n8n9n9n9o9o8o8o9o8o8o8p9p9p9p9q9q9p8p9q9q9q9q9q9q9q9r9r:r:r:r:s:s;s;t;s:s:t:{E|Id4[+Z*Y-c:4-&  \*b-j7^PCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDPhe1b.S*J&  Q'e<멂ߊ[h5h5h6h6h6i6i6i5i5i6i5i5i5i5j6j6j6i6j6j6j6j6j6k6k6j6j6k7k7k7k7l7k7k7k7k7l7k6k6k7l7l7l7l8l8m7m7m7m7m8m8m8n8n8n9n9n9o9o8o8o9o8o8o8p9p9p9q9q9q9p8p9q9q9q9q9q9q9q9r9r:r:r:r:s:s;s;t;s:s:s:{E|Id4[+[+A:4.'   U(a-f2YUCCCCCCCCCCCCCCCCCCDDDDDDDDDDDDDDDDDD\܋Zb.],-#  Q'e<멂ߊ[h6h5h6h6h6i6i6i6i5i6i6i5i5i5i5j6j6j6i6j6j6j6j6k6k6k6j6j6k7k7k7k7l7k7k7k7l7l7k6k7k7l7l7l7l8m8m7m7m7m7m8m8m8n8n9n9n9o9o9o8o8o9o8o8o8p9p9p9q9q9q9p9p9q9q9q9q9q9q9q9r9r:r:r:r:s:s;s;t;t;s:s:zD|Id4[+[+A;5/(!  N$wa-c/قPZECCCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDgvDb.N%)   Q'e<멂ߊ[h6h6h5h6h6h6i6i6i6i5i6i6i5i5i5i5j6j6j6i6j6j6j6j6k6k6k6j6k7k7k7k7k7l7k7k7k7l7l7k6k7k7l7l7l7l8m8m7m7m7m7m8m8m8n8n9n9n9o9o9o8o9o9o9o8o8p9p9p9q9q9q9p9p9q9q9q9q9q9q9q9r9r:r:r:r:s:s:s;t;t;s:s:x@}Jj;[+[+E!;6/)"  w<M`,a-xF^I߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁DDDDDDCCCOgg3b-S*J&  Q'e<몃ߊ[h6h6h6h5h6h6i6i6i6i6i5i6i6i5i5i5j6j6j6j6j6j6j6j6j6k6k6k6j6k7k7k7k7k7l7k7k7k7l7l7k6k7l7l7l7l8l8m8m7m7m7m8m8m8m8n8n9n9n9o9o9o8o9o9o9o8o8p9p9p9q9q9q9q9p9q9q9q9r:q9q9q9r9r:r:r:r:s:s:s;t;t;t;s:x@~Jj;[+[+O%<71*$  w<M`,a-vD^J߁C߁C߁C߁C߁C߁C߁C߁C߁C߁C߁C߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁D߁DCCCCCCCCCCCCCC[ۊYb-_,,#  Q'e<몃ߊ[h6h6h6h5h6h6h6i6i6i6i6i6i6i6i5i5i5j6j6j6j6j6j6j6j6j6k6k6k6j6k7k7k7k7l7l7k7k7k7l7l7k6k7l7l7l7l8l8m8m7m7m7m8m8m8n8n8n9n9n9o9o9o9o9o9o9o8o8p9p9p9q9q9q9q9p9q9q9q9r:r:q9q9r9r9r:r:r:s:s:s;t;t;t;t;x@}Im=\,[+T'( I82,%  w<M`,a-m;[M߀C߀C߀C߀C߀C߀C߀C߀C߀C߁C߁C߁C߁C߁C߁CCCCCCCCCCCCCCCCCCCCCCCCguCa-N$)  Q'e<몃ߊ[h6h6h6h6h5h6h6h6i6i6i6i6i6i6i5i5i5i5j6j6j6j6j6j6j6j6k6k6k6j6j6k7k7k7k7l7l7k7k7k7l7l7k7k7l7l7l7l8l8m8m7m7m7m8m8m8n8n8n9n9n9o9o9o9o9o9o9o8o8p9p9p9q9q9q9q:p9q9q9q9r:r:q9q9r9r9r:r:r:s:s:s;s;t;t;t;v=~JqA\,[+V)Z-b93-'!  v<N`,a-m;[PCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOff3a-T+I%  P'e<몃ߊ[h6h6h6h6i6h5h6h6i6i6i6i6i6i6i6i5i5i5j6j6j6j6j6j6j6j6j6k6k6k6j6k7k7k7k7k7l7l7k7k7l7l7l7k7k7l7l7l7l8m8m8m7m7m7m8m8m8n8n8n9n9n9o9o9o9o9o9o9o9o8p9p9p9q9q9q9q:q:q9q9q9q9r:q9q9r9r9r:r:r:s:s:s;s;t;t;t;v>}HvE_/[+Z*x;{:5/)#  s:O`,a-m;ZS߀C߀C߀C߀C߀C߀C߀CCCCCCCCCCCCCCCCCCCCCCCCCCC߀C߀C߀C߀C߀C߀C\؅Ta-\++"  P'd=몃ߊ[h6h6h6h6h6i6h6h6h6i6i6i6i6i6i6i6i5i5i5j6j6j6j6j6j6j6j6j6k6k6k6j6k7k7k7k7k7l7l7k7k7l7l7l7k7k7l7l7l7l8m8m8m7m7m7m8m8m8n8n8n9n9n9o9o9o9o9o9o9o9o8p9p9p9q9q9q9q9q:q9q9q9q9r:r:q9r9r9r:r:r:s:s:s;s;t;t;t;u<|GxFc4[+[+I"<71+%  !r:P_,`-l:YR߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀CEgq?a-I"( P'd=몃ߊ[h6h6h6h6h6h6i6h6h6h6i6i6i6i6i6i6i6i5i5i5j6j6j6j6j6j6j6j6j6k6k6k6j6k7k7k7k7l7l7l7k7k7l7l7l7k7l7l7l7l7l8m8m8m8m7m7m8m8m8n8n8n9n9n9o9o9o9o9o9o9o9o8p9p9p9q9q9q9q9q:q9q9q9q9r:r:r9r9r9r:r:r:s:s:s;s;t;t;t;t;{E{Ii9[+[+T'( I83.("  "H"k_,`-l:XRBBBBBB߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀CBBR_a-a-4 :$  P'd=뫃ߊ[h6h6h6h6h6h6i6i6h6h6i6i6i6i6i6i6i6i6i5i5i5j6j6j6j6j6j6j6j6k6k6k6k6k6k7k7k7k7l7l7l7k7k7l7l7l7k7l7l7l7l8l8m8m8m8m7m7m8m8m8n8n9n9n9n9o9o9o9p:o9o9o9o9p9p9p9q9q9q9q9q:q:q9q9q9r:r:r:r9r9r:r:r:r:s:s;s;t;t;t;t;yA}Iq@^.[+Z*x;{;50+%  %O%`-`-p?XPBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBb}La-W()   P'd=뫄ߊ[h6h6h6h6h6h6h6i6h6h6h6i6i6i6i6i6i6i6i6i5i5j6j6j6j6j6j6j6j6j6k6k6k6k6k6k7k7k7k7l7l7l7k7k7l7l7l7k7l7l7l7l8l8m8m8m8m7m7m8m8m8n8n9n9n9n9o9o9o9p:o9o9o9o9p9p9p9q9q9q9q9q:r:q9q9q9r:r:r:r9r9r:r:r:r:s:s:s;s;t;t;t;v>~IxFb2[+[+L$) H83.(#  !95W)`-`-uCYK~B~B~B~B~BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBKdf3a-|?c%  P'd=뫄ߊ[h6h6h6h6h6h6h6h6i6h6h6h6i6i6i6i6i7i6i6i6i5i5j6j6j6j6j6j6j6j6j6k6k6k6k6k7k7k7k7k7l7l7l7l7l7l7l7l7l8l7l7l7l8l8m8m8m8m7m7m8m8m8n8n9n9n9n9o9o9o9p:o9o9o9o9p9p9p9q9q9q9q9q:r:r:q9q9r:r:r:r:r9r:r:r:r:s:s:s;s;t;t;t;u<{E|Ii9\,[+X)j4o:61+&!  $n8R[+ؾ`-b/}KVH~A~A~A~A~A~B~B~B~B~B~B~B~B~B~B~BBBBBBBBBBBBBBBBBBB~B~B~B~B~B~B~B~BZׄSa-\+*!  P'd=뫄ߊ[h6h6h6h6h6h6h6h6i6i6h6h6h6i6i6i6i6i7i6i6i6i5i5j6j6j6j6j6j6j6j6j6k6k6k6k6k7k7k7k7k7l7l7l7l7l7l7l7l8l8l7l7l7l8l8m8m8m8m7m8m8m8m8n8n9n9n9n9o9o9o9p:p:o9o9o9p9p9p9q9q9q9q9q:q:r:q9q9r:r:r:r:r:r9r:r:r:s:s:s;s;t;t;t;t;yA~JtB`0[+[+O%( I84/*%   "(Q&_-_-f5ރPSE}A}A}A}A}A~A~A~A~A~A~A~A~A~A~A~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~B~A~A~A~A߁Edl;`-J#}& P'd=뫅ߊ[h6h6h6h6h6h6h6h6h6i6i7h6h6i6i6i6i6i6i7i6i6i6i5i5j6j6j6j6j6j6j6j6k6k6k6k6k6l7k7k7k7k7l7l7l7l7l7l7l7l8l8l7l7l7l8l8m8m8m8m7m8m8m8m8n8n9n9n9n9o9o9o9p:p:o9o9o9p:p9p9q9q9q9q9q:q:r:r:q9r:r:r:r:s:r:r:r:r:r:s:s:s;t;t;t;t;v=|F{Hi9\,[+Z*A;72.)$  "&m7SZ+ͽ_-_-n=TP~A}@}@}@}@}@}A}A}A}A}A}A}A}A}A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A~A}A}AW܉Y`-_,+"  P'd=뫅ߊ\h6h6h6h6i7h6h6h6h6h6i6i7h6h6i6i6i6i6i7i7i6i6i6i5j6j6j6j6j6j6j6j6j6k6k6k6k6k6l7k7k7k7l7l7l7l7l7l7l7l7l8l8l7l7l7l8l8m8m8m8n8m8m8m8m8n8n9n9n9n9o9o9o9p:p:o9o9o9p:p9p9p9q9q9q9q:q:r:r:r:q9r:r:r:s:s:r:r:r:r:s:s:s;s;t;t;t;t;yB~ItBa1[+[+V)k5n:62-($  "&6 8P%_,_,d1{ISJ|@|@|@|@|@}@}@}@}@}@}@}@}@}@}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A}A߀Eco>`-Q&' P'd=뫅ߊ\i7h6h6h6h6h6h6h6h6h6i6i6i7h6h6i6i6i6i6i7i7i6i6i6i5j6j6j6j6j6j6j6j6j6k6k6k6k6vBn9k7k7k7l7l7l7l7l7l7l7l7l8l8l7l7l7l8m8m8m8m8n8m8m8m8m8n8n9n9n9n9o9o9o9p:p:p:o9o9p:p:p9p9q9q9q9q:q:r:r:r:r:r:r:r:s:s:s:r:r:r:s:s:s;s;t;t;t;t;u<{E|Hm<]-[+[+R'E#U:52-)%!  "'+I"}^+_,a.ny>y>y>y>z?z?z?z?z?z?z?z?z?z?z?z?{?{?{?{?{?{?{?{?{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@XۆU_,^+7 7!  O'd=묅ߊ[h6h6h7h7h7i7i7h6h6h6i7i7h6h6h6h6i6i7i7i7i6i6i6i6i6i7j7j7i6i6i6yJjtMS(R(h2Pl4MS(T(̈́[|a[xDl7l7l7k7k7l7l7l7l7m7m7l7l7l8m8m8m8l7l8m8m8m8m8n8n8n9m8m8n8n8n9n9n9o9o9o9o9p:p:p:p:p:p:p:p:p:q:q9q9q9q:q:r:r:r:r:r;r;r;r:s:s:s;s;s;s;s:s:s;s;s;t;t;t;t;u;u;uy>y>y>y>y>y>y>z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{?{@{?|@|@|@|@߂H_h6_,Q&%  O&d=묅ߊ[h6h6h6h7h7h7i7i7h6h6h6i7i7h6h6h6i6i6i7i7i7i6i6i6i6i7i7j7j7i6yJkuNS(R(k3N G"pT(Y-ٓkw]ߋYr=l7l7l7k7k7l7l7l7l7m7m7m7l7l8m8m8m8l8l8m8m8m8m8n8n8n9n9m8n8n8n9n9n9o9o9o9o9p:p:p:p:p:p:p:p:p:q:q:q9q9q:q:r:r:r:r:r;r;r;r;s:s:s;s;s;s;s;s:s:s;s;t;t;t;t;t;u;u;uy>y>y>y>y?y?y?y?z?z?z?z?z?z?z?z?y>y>z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?{?{?{?{?{@{@{@{@{@{@{@{@{@{@{@{@{@{@[~M_,\+(  O&d<뭆ߊ[g6h6h6h6h7h7h7i7i7h6h6i7i7i7h6h6h6i6i6i7i7i7i6i6i6i6i7i7j7yKkuNS(R(l4MM%T(Y-ݙqw]ߋYr=l7l7l7k7l7l7l7l7l7m7m7m7l7l8m8m8m8m8l8l8m8m8m8n8n8n9n9m8n8n8n9n9n9n9o9o9o9p:p:p:p:p:p:q:p:p:p:q:q:q9q9q:q:r:r:r:r:r;r;r;r;s:s:s;s;s;s;s;s:s;s;s;t;t;t;t;t;u;u;ux@xAyByCt@s?m9m9g5g4g4g5g5g5h5h5i7p=q=t@yDzE~H}F}E|Cz@x=x=x=x=y>y>y>y>y>y>y>y>y>y?y?y?y?y?z?z?z?z?z?z?z?z?z?z?z?z?z?{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@P\c1_,E n#  O&d<뭆ߊ[g6g6h6h6h6h7h7h7i7i7h6h6i7i7i7h6h6h6i6i6i7i7i7i6i6i6i6i7yKluOS(R(l4M P'T(b7ws[ߋYp;l7l7l7k7l7l7l7l7l7m7m7m7l7l8m8m8m8m8l8l8m8m8m8n8n8n9n9n9n8n8n9n9n9n9o9o9o9p:p:p:p:p:p:q:q:p:p:q:q:q9q9q:q:r:r:r:r:r;r;r;r;s;s:s:s;s;s;s;t;t;s;s;s;t;t;t;t;u;u;u;uw>w@x@xAyAyAxAxAyBzBzC{CzBzBzAy@y?x=w=w=w=x=x=x=x=x=x=x=x=y>y>y>y>y>y>y>y>y>y>y?y?y?y?y?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@{@}C\qA_,Y)&  O&d<뭇ߊ\g6g6g6h6h6h7h7h7i7i7i7h6h6i7i7i7h6h6h6i6i7i7i7i7i6i6i6yKluOR(Q(l4M  R'ҮT(b7wq[އTn9l7l7l7l7l7l7l7l7l7m7m7m7m7l8l8m8m8m8l8l8m8m8m8n8n8n9n9n9n8n8n9n9n9n9o9o9o9o9p:p:p:p:p:q:q:q:p:q:q:q:q9q:q:r:r:r:r:r:r;r;r;r;s;s:s;s;s;s;s;t;t;s;s;t;t;t;t;t;u;u;u;ux=x=x=x=x=x=x=x=x=x=y>y>y>y>y>y>y>y>y>y>y?y?y?y?y?y?y?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?VۄS^,]+X,D   O&d=뭇ߊ\h7g6g6h6h6h6h7h7h7i7i7i7h6h6i7i7i7h6h6h6i6i7i7i7j7i6yKmuPR(Q(k3M o5R'ҮT(pF}q[އTn9l7l7l7l7l7l7l7l7l7m7m7m7m7l8l8m8m8m8m8l8m8m8m8n8n8n9n9n9n9n8n8n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:p:p:q:q:q:q:q:q:r:r:r:r:r;r;r;r;r;s;s;s;s;s;s;t;t;t;t;s;t;t;t;t;t;u;u;u;ux>x>x>x>x=x=x=x=x=x=x=x=y>y>y>y>y>y>y>y>y>y>y>y>y?y?y?y?y?y?y?y?y?y?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?J[f6^,P&#  O&d=뭇ފ\h7h7g6g6h6h6h6h7h7h7i7i7i7h6i7i7i7i7h6h6h6i6i7i7i7zLnuPR(Q(k3M o5S(T(pF}q[އTn9l7l7l7l7l7l7l7l7l7l7m7m7m7l8l8m8m8m8m8m8m8m8m8n8n8n9n9n9n9n8n8n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:p:q:q:q:q:q:q:r:r:r:r:r:r;r;r;r;s;s;s;s;s;s;s;t;t;tx>x>x>y>y>y>y>y>y>x=x=x=x=x=y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?z@z@z@}D[tC^,Z*&  N&d=뭇ފ\h7h7h7g6g6h6h6h6h7h7h7i7i7i7h6i7i7i7i7h6h6i6i6i7zLnvPR(Q(k3M F"9S(T(pF}m[އTn9l7l7l7l7l7l7l7l7l7l7m7m7m7m8l8m8m8m8m8m8m8m8m8m8n8n9n9n9n9o9n8n9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:q:q:q:q:q:r:r:r:r:r;r;r;r;r;s;s;s;s;s;s;s;t;t;tw>w=w=w=w=w=x=x=x=x=x=x>x>x>x>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>z?y>y>y>y>y>y>y>y>y>y>y>z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?UڃR`.^,o8Q   N&c=뭈ߊ\h7h7h7h7g6g6h6h6h6h7h7h7i7i7i7h6i7i7i7i7h6h6i6zLouPQ'Q'k3M F"9S(T(pF}h[އTn9l7l7l7l7l7l7l7l7l7l7m7m7m7m8m8m8m8m8m8m8m8m8m8m8n8n8n9n9n9o9o9n9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:q:q:q:q:q:r:r:r:r:r:r;r;r;r;r;s;s;s;s;s;s;s;t;t;tw>w>w>w>w=w=w=x=x=x=x=x>x>x>x>x>x>y>y>y>y>y>y>y>y>y>y>y>y>y>y>z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?z?KZf5^,Q&#  N&c=뭈ߊ\h7h7h7h7h7g6h6h6h6h7h7h7i7i7i7i7h6i7i7i7i7h6yLnvPQ'P'k3M F"9S(T(pF}o[އTn9l7l7l7l7l7l7l7l7l7l7m7m7m7m8m8m8m8m8m8m8m8m8m8m8n8n8n9n9n9n9o9n9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:q:q:q:q:q;q:r:r:r:r:r:r;r;r;r;s;s;s;sw>w>w>w>w>w>w>w>x=x=x=x=x=x>x>x>x>x>x>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>z?z?z?z?z?z?z?z?z?z?z?z?z?}DZp?^,[*%  N&c=뭈ߊ\h7h7h7h7h7h7g6h6h6h6h7h7h7i7i7i7i7h6i7i7i7zMpuPQ'P'k3M F"9S(T(pF}q[އTr=l7l7l7l7l7l7l7l7l7l7m7m7m7m8m8m8m8m8m8m8m8m8m8m8n8n8n9n9n9n9o9o9n9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:r:q:q:q:q;q;q;r:r:r:r:r;r;r;r;r;s;s;s;sw>w>w>w>w>w>w>w>w>x>x>x>x>x>x>x>x>x>x>x>x>x>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y>y?y?y?y?y?y?y?y?zAU}M^,]+p8P  N&c=뭈ߊ\g7h7h7h7h7h7h7g6h6h6h6h7h7h7i7i7i7i7i7i7zMpvQQ'P'k3M F"9S(T(pF}q[ߋYr=l7l7l7l7l7l7l7l7l7l7m7m7m7m7m8m8m8m8m8m8m8n8m8m8m8n8n9n9n9n9o9o9o9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:r:q:q:q:q;q;r;r:r:r:r:r;r;r;r;r;s;s;sw>w>w>w>w>w>w>w>w>w>x>x>x>x>x>x>x>x?x?x?x?x?x?x?x?x?x?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?y?P݅Ta0],I#z!  N&c=뭈ߊ\g7h7h7h7h7h7h7h7g6h6h6h6h7h7h7i7i7i7i7zMqvQQ'P'k3M F"9S(S(pF}q[ߋYr=l7l7l7l7l7l7l7l7l7l7m7m7m7m7m8m8m8m8m8m8m8n8n8m8m8n8n8n9n9n9n9o9o9o9n9n9o9o9o9o9o9p:p:p:p:p:p:q:q:q:q:r:r:r:q:q:q;q;r;r:r:r:r:r;r;r;r;r;s;s;sw>w>w>w>w>w>w>w>w>w>w>x>x>x>x>x>x>x>x>x>x>x?x?x?x?x?x?x?x?x?x?x?x?x?x?x?x?x?x?JWh7],U(#  N&c=뭈ߊ\g7g7h7h7h7h7h7h7h7h6h6h6h6h7h7h7i7i7{MqvRQ'P'j3M F"9S(S(kAws][xDl7l7l7l7l7l7l7l7l7l7m7m7m7m7m8m8n8m8m8m8m8n8n8m8m8n8n8n9n9n9n9o9o9o9n9n9n9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:r:r:r:q:q;q;q;r;r;r:r:r:r;r;r;r;r;s;s;sw>w>w>w>w>w>w>w>w>w>w>w>w>w>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>x>}EWn>],Z*<2  N&c=뭈ߊ\g7g7g7h7h7h7h7h7h7h7h6h6h6h7h7h7h7{NrvRP'O'j3M F"9S(S(b7wx^[zFl7l7l7l7l7l7l7l7l7l7m7m7m7m7m8m8n8m8m8m8m8m8n8n8m8n8n8n9n9n9n9o9o9o9o9n9n9o9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:r:r:r:q:q;q;q;r;r;r:r:r:r;r;r;r;r;s;s;sw>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>{CVvE],\+q9O  N&c=뭈ߊ\g7g7g7g7h7h7h7h7h7h7h7h6h6h6h7h7zNrvRP'O'j2M ?*R'ҮS(b7ݙqzb[ۀMl7l7l7l7l7l7l7l7l7l7l7m7m7m7m8m8n8n8m8m8m8m8n8n8n8m8n8n8n9n9n9n9o9o9o9o9n9n9o9o9o9o9p:p:p:p:p:p:p:q:q:q:q:r:r:r:r:r:q;q;r;r;r;r;r:r:r;r;r;r;r;s;s;s;sw>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>w>x@R{J_.],F!k  N&c=뭈ߊ\g7g7g7g7h7h7h7h7h7h7h7h7h6h6h6zNsvRP'O'j2M o5R'ҮS(X-ٓk|d[݅Rn9l7l7l7l7l7l7l8l7l7l7m7m7m7m7m8n8n8n8m8m8m8n8n8n8n8n8n8n9n9n9n9o9o9o9o9o9n9o9o9o9o9o9p:p:p:p:p:p:q:q:q:q:q:r:r:r:r:r:q;q;r;r;r;r;r;r;r;r;r;r;r;s;s;s;sw>w>w>w>w>w>w>w>QہP_.],N%   N&c=뭈ߊ\g7g7g7g7g7h7h7h7h7h7h7h7h7h6zMsvSP'O'i2M o5Q'S(X-̈́[~i\އTr>l7l7l7l7l7l7l8l8l7l7m7m7m7m7m8m8n8n8m8m8m8n8n8n8n8n8n8n9n9n9n9n9o9o9o9o9o9o9o9o9o9o9p:p:p:p:p:p:p:q:q:q:q:q:r:r:r:r:r:r;q;r;r;r;r;r;r;r;r;r;r;r;s;s;s;sw>w>w>w>LSc3\+W)"  M&c=뭈ߊ\g7h7g7g7g7g7g7h7h7h7h7h7zNtvSO'N'i1M  N&wS(S(pFwv^\}Il7l7l7l7l7l7l7l8l8l7l7m7m7m7m8m8n8n8n8n8m8m8n8n8n8n8n8n8n9n9n9n9o9o9o9o9o9o9o9o9o9o9o9o9p:p:p:p:p:p:p:q:q:q:q:q:r:r:r:r:r:r;r;r;r;r;r;r;r;s;s;r;r;r;r;s;s;s;sv>v>v>v>v>v>v>v>v>v>v>v>LSg7\+Y)>0  M&b=뭈ߊ\g7g7h7g7g7g7g7g7h7h7h7zNtwSO'N'i1M L$XS(S(b7ݙqzb\݅Rn9l7l7l7l7l7l7l8l8l8l7m7m7m7m7m8m8n8n8n8n8m8m8n8n8n8n8o8n8n9n9n9n9o9o9o9o9o9o9o9o9o9o9o9p:p:p:p:p:p:p:q:q:q:q:q:r:r:r:r:r:r:r;r;r;r;r;r;r;r;s;s;s;r;r;r;r;s;s;s;s0  M&b=뮈ߊ\h7g7g7h7g7g7g7g7g7h7zOuwSO&N&i1M F"9R'ҮS(X-Վe~k\ߋYt@l7l7l7l7l7l7l8l8l8l7m7m7m7m7m8m8n8n8n8n8n8m8n8n8n8n8o8o8n9n9n9n9n9o9o9o9o9o9o9p9p9o9o9o9p:p:p:p:p:p:p:q:q:q:q:q:r:r:r:r:r:r:r;r;r;s;s;r;r;r;r;s;s;s;s;r;r;s;s;s;s;sJYo@[+X)_/>  M&c=뮉ފ\h7h7h7h7h8h7{OvvTN&M&h1M o5Q'îS(T(zP|u`\܃Qn9l7l7l7l7l7l7l8l8l8l8m7m7m7m7m8m8n8n8n8n8n9n9n8n8n8n8o8o8o8o9n9n9n9o9o9o9o9o9o9o9p9p9p9p9p9p:p:p:p:p:p:p:p:q:q:q:q:q:q:r:r:r:r:r:r:r;r;r;r;s;s;s;s;s;s;s;s;s;s;s;s;s;s;t;t;t;t;tN\f6[+X)?/  M&c=뮉ފ\h7h7h7h7h7{PwwTN&M&h1M  O&S(T(b7ړk{j\ߋZzGl7l7l7l7l7l7l8l8l8l8m8m7m7m7m8m8n8n8n8n8n9n9n9n8n8n8n8o8o8o9o9n9n9n9o9o9o9o9o9o9o9p9p9p9p9p9p:p:p:p:p:p:p:p:p:q:q:q:q:q:q:r:r:r:r:r:r:r;r;r;s;s;s;s;s;s;s;sL^oA[+[+K#u  L%b=뮊ފ\h8|PwwTM&L&h0M o5P&S(T(b7֎e|n^\܃Qp k4Q'T(T(T(pEޘo{sd\Z܁NpPbߊ[m>Y*Y*X)K#r K%E"5 @*P&T(T(T(a6σYyxm`\ZLr>l8l8l8l8l8m8m8m8m8m8m9m9n9n9n8n8n8n8n9n9n9n9n9n9n9n9o9o9o9o:o:o:o9o9o9o9o9o9o9o:o:o:o:o:o:o:p9p9p9p9p9p9p9p9q:q:q:q:q:q:q:q:q:q:q:q:q:q:q:q;q;q;q;q;q;q;wBTa߉Zl>Y*Y*X*P&K%' H$2 k4P&S(T(T(X-xOߗnzsg^\߈U{Gp=l8l8l8l8m8m8m8m8m8m9m9n9n9n9n8n8n8n9n9n9n9n9n9n9n9n9o9o9o9o:o:o:o:o9o9o9o9o9o9o:o:o:o:o:o:o:p:p:p9p9p9p9p9p9p9q:q:q:q:q:q:q:q:q:q:q:q:q:q:q:s=~I[bމYk=X*Y*X*P&K%'  M%hR'îT(T(T(j@ЃYxxoe\\߇U{Hp=l8l8l8m8m8m8m8m8m9m9n9n9n9n9n8n8n9n9n9n9n9n9n9n9n9o9o9o9o:o:o:o:o:o:o9o9o9o9o9o:o:o:o:o:o:o:o:p:p:p:p:p9p9p9p9p9q:q:q:q:q:q:q:q:q:{FS``}Nd6X*X*W*O&L%&  F!:Q'T(T(T(X-oE֌cyxoe\\߇VLtAl8m8m8m8m8m8m8m9m9m9n9n9n9n9n8n9n9n9n9n9n9n9n9n9n9o9o9o9o:o:o:o:o:o:o:o9o9o9o9o:o:o:o:o:o:o:o:p:p:p:p:p:p:p:p9p9p:q:q:{FSac߉ZrD^0X*X*W)P&L%&  k4M%iR'ïT(T(T(]1tJڑhxwpg`]Z݃Q{Hs?m8m8m8m8m8m9m9m9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9o9o9o9o9o:o:o:o:o:o:o:o:o:o9o9o:o:o:o:o:o:o:o:o:p:p:p:p:vAKVcd_{Lh:X*X*X*U)ƛL$p  @*N%xS'үT(T(T(X-oDӈ^qxsle^\ZޅS}JuAo:m8m8m9m9m9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9o9o9o9o9o:o:o:o:o:o:o:p:p:p:p:o:o:o:o:o:o:wC}JUaef`|Mh:X*X*X*W*Q'm55  ?+N%xS'үT(T(T(T(e;yN׌bvwrmhc\\ߊXކS~JyFuBm9m9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9n9o9o9o9o9o:o:o:o:o:o:o:o:r$ `)/~AtP_* 4" d4 q4dxځDQ#|-g,R߉Lxiv:q<^) R#y;jr^k1>!C% m1YmrP\)3!c+@݄Gpgp~AGn+Gu9hgmfp5R+K% k0yWmcsT_+ 5 a*:ۂEqdgq؀CGo* Fv9jhcofn4D$F$ l0~ZncdsQY(/b+A݆Iqcchox=m9[' M!xm8Z#Fs:`TQRQQQQP`ۇNR$' x=p8^TPPQPPPOWZb/ 4 _0n5[UPPPOOOOQap8Q*J: j2YUOOOONNNN`}DEm#h0VTNNNNNNNMZ݉PV&( f/UUNNNMMMMLSYc/ 5 d-ދQWMMMLLLLLN^n7H%Ec,݊PVLLLLKKKKK^w?v=`!  c,݉OVKKKKKJJJIYցHM"$ !######################################################" c,݉OUJJJJJJIIIU݊QW'( m4N&|M&J$I#H#I#I#I#I$J$J$J$J$J$J$J$K$K$K$K%K%L%L%L%L$M$M$M$M$M%N%M%N%N%N%N%O%O%O%O%O&O&P&P&P&P&Q&Q&Q&Q&Q&R&R'R'R'S'S'S'S'U(X(P%X b,܈NTIIIIIIIIHOWa.2 =%^2zMpBn@m?m?n?n?m>m>m=m=l=lv>v?w?x@xAj5`,ːJ"B c.ދQQIIIIIIHHHLYh38 < }9&e:_r=n9n9n9o:o:o;o:o:o9p:p:p:p:n8f-a%a&a&b'c'c'd'd(e(e(f)f)g*h*i+j,j,k-l.l.m/n/o0o0p1q2r2s3s4t4u5v5w6w7x7y8y8z9|:Du?`.u<9 e/ߍSOHHHHHHHGGI[n7N'G|9&e:ߌ]n9j5j5k5k5l6l6l6l6l6m6m7m7n7n7m6e+_#^#_#`$a$a%b%c&d&d'e'e(f(g)h)h*i*j+j,k,l-l-m.n.o/o/p0q0r1r1s2t2t3u4v4v4x6}@q;^,n879 g0SMGHGGGGGFFF[t=n9Y|9&e;ߌ]n9j5k6k5k5l6l6m7m6l6m6m7m7m7n7o8o7h.`%_#`$a$a%b%c&c&d&d'e'f(g)g)h*i*j+j+k,k,l-m-n.n.o/p/q0q1r1s2s2t3u3u4w6}@q;^,n87].i3TKFFFFFFFFFEXyBCk |9&f;ߌ]m9j5k5k5k5k6l6l7m7m6l6m6m7m7n7n7o8p8j1b'_#`$a%a%b&c&d&d'e'f(f(g)h)i*i*j+j,k,l-l-m.n.o/o/p/q0r1r1s2t2t3v5{?p:],o86s:k5VJFFFFFFFEEDU}FK!|!|8&e:ߌ]m9j5k5k6k5k5l6l7m7m6m6m6m7m7n7n7o8o8p8m5d*`$a$a%b%c&c&d&d'e(f(f(g)h)i*j*j+j,k,l-m-m.n.o/p/p0q1r1r1s2u4y=n9\+m75C!n6WHEFEEEEEEDCRրIP##|8&e:ߌ^m9j5j5k6k5k5k6l6m7m7m6l6m7m7m7n7n7o8p8p9o7h.b&a$a%b&c&d&d'e'e(f(g)h)h*i*j+j,k,k,l-m.n.n.o/p/q0q1r1t3w;k7Z*\., K!/q:WEDEEDDDDDCCPلLU&#|8&e:ߌ^m9i5j5k5k6k5k6l6l7m7m7m7m6m7n7n7n7o8o8p8p9p8l3d)a%b%b&c&d&d'e(f(g)g)h*i*i*j+j,k,l-m-m.n.o/o/p/q0s3v;k6Z*[., U&Iv@TCDDCDCCCCCBNڅMU&$|8&e:ߌ^m9i5j5j5k6k6k5k6l6m7m7m7m6m7m7n7n7n7o8p8p8p9q9o6h.b&b%c&d&d'd'e(f(g)h)h*i*j+j+k,k,l-m-m.n.o/o/q1u:j5Z*\/, [)e|EQCCCCCBBBBBAMڅNY(){8&e:ߌ_m:i5j6j5k5k6k5k6l6l7m7m7m7m6m7n7n7n7o8o8p8p9p9q9q9m3e*b&c&d&d'e'f(f(g)h)i*i*j+j,k,k-l-m-n.n.p0s9i5Y*]/, `+قJLBBBBBBBBBBAH܉Q\+, {8&f;ߍ_m:i5i6j6k5k6k6k5l6l6m7m7m7m7m7m7n7n7n7o8p8p8p9p9q9r:p7j0e(c&d'd'e(f(g)g)h)i*i*j+j,k,l-l-m.o0q6f3W)O(& K&e0݈OGBBABBAAAAA@G܉Q\+, {8&f;ߍ_m9j6i5j6j5k5k6k6k6l6l7m7m7m7m7m7n7n7n7o8o8p8p9p9q9r9r:r9o6i-e'd'e'e(f(g)g)h*i*j+j+j,k,l-n/p6e1U(G$$ y=#j4RDAAAA@@@@@@@F܈P[++{7&e;ߍ_m9i6j6j6j6k5k6k6k6l6l6m7m7m7m7m7m7n7n7n7o8p8p9p9p9q9r9r:r:r9n4h,e(e'f(f(g)h)h*i*j+j,k,m.o5d1U'H$$ Q#Br;R@@@@@@@@@@@?F܇O[++{7&e;ލ`m9i5j6j6j6j6k6k6k6k6l6l7m7m7m7m7m7n7n7n7n7o8p8p9p9q9q9r:r:r:s:s9n3h,e(f(g)g)h)i*i*j+k-m4d0U(H$# Z(r{DM?@?@@@?????>IلLX(({7&e;ލ`m:i5i6j6j6j6k5k6k6k6l6l6m7m7m8m7m7m7n7o8n7o8p8p8p9p9q9r9r:r9r:s:t:r9n3i-g)g(g)h*i*j,k2c0S'J%# / b.ڃLG????>>?>>>>=H؁JT&"z7&e;ލ`m:i5i6j6j6j6j6k6k6k6k6l6l7m7m7m8n7m7n7n7o8n7o8p8p9p9p9q9r:r:r:s:s:t;t;s9o4k.h*g)j,j1a.Q&0  y=&j5PA>>>>>>======IHS&!z7&e<ލ`m:i6i6i6j6j6j6j6k6k6k6k6l6l7m7m8m8n7m7n7o8o8o8o8p8p9p9q9r9r:r:r:s:t:t;t:t;t:q6n2k3`/P&0  U&Wt>N============a0J##){>*h4߈N?<<<<<<<;<;;;:Mr>Afz7&e<ގ`m9i6i6j6i6j6j6k7j6k6k6k6k6l6l6m7m7m8m8n8n7n7o8o8o8o8p8p9p9q9q9r:r:r:s:s:t;wAf5K#8#V&et?K;;;;;;;;;;;;~:;Om9k6S y6&e<ގam9i5i6j6j6j6j6j6j6j6k6k6k6k7l6l7m7m7m8n8n8n7n7o8o8o8p8p8p9p9q9r9r:r:r:s:s:v>oq>\-l6i,E#^-{EA{7{8|8|8|9|9|9};~<=?@BDETs?El y6&e<ގbm9h5i5i5i5i6i6j6j6j6j6k7k6k6k7k6k7l7l7m7m7m8m8n9n8o8o8o8o8p9p8p8p9p9q9r9r:r:s:s:s:w?n=>?@ACDDEFFFFFGVi6a1I x5&e<ގbl:i5i5i5i5j6i6j6j6j6j6k7k7k6k7k7k6k7l7l7m7m7m8m8n9n8o8o8o8p9p9p8p9p9p9q9r9r:r:s:s:t:w@k:V)S*V* t:0c0ڂMKEEFFFFFFFFFEEEEIۇR`/5 1x5&d<ގbl:i5i5i5i5i5j6i6j6j6j6j6k7k7k7k7k6k6l7l7m7m7m7m8n8n9o9o8o8o8p9p9p8p9p9p9q9r9r:r:s;s:t:w@j8T(H$P*  * Y*vBPEDEEEEEEEDDDDDDDN~JT'!x5&e<ގbl:h6i6i6i5i5j6j6j6j6j6j6j6k7k7k7k7k6k7l7l7m7m7m7m8n8n9o9o8o8o8p9p9p9p9q9q9q9r9r:r:s;s:t;w@i8T(H$P* P$jk8PFDDDDDDDDDDDDDDDDRr?G n x5&e<ގcl9h6i6i6i5i5i5j6j6j6j6k6j6k7k7k7k7k7k6k7l7l8m7m7m8m8n8n9o9o8o8o8p9q9q9p9q9q9q9r9r:r:s;s;t;wAi8T(X+Y+  DKd1ڀKICCDDDDDDDDDDDDDDFߊTf4[-C x5&e<ގcl:h5h6i6i6i6i5i5j6j6j6j6k6j6k7k7k7k7l7k7k7l7l8m7m7m8m8n9n9o9o8o8o8p9q9q9p9q9q9q9r9r:r:s;s;t;v@j9V*`/`-! o89_-zFLC߁C߁C߁D߁D߁D߁D߁D߁D߁DDDDDDDCKׁLY+ 'x5&e<ޏcl:h5h6i6i6i6i6i5j6j6j6j6j6k6k6k7k7l7k7l7k7l7l7l8m7m7m8m8n9n9o9o9o9o8p9q9q9q9q9q9q9r9r:r:s:t;t;w@l:X+s9q1$ l67\+uBM߁D߀C߀C߁C߁C߁C߁D߁D߁D߁D߁DCCCCCCCQs@J!w x5&e<ޏcl:h6h6h6i6i6i6i5i5j6j6j6j6k6k6k6k7k7l7k7l7k7l7l7m8m7m7m8n8n9n9o9o9o9o9p9q9q9q9q9q9q9r9r:r:s:s;t;w@n<\-C9&  h49\+t@MD߀C߀CCCCCCCCCCCCCCC߀CEއRe3].B x4&d=ޏcl:h6h6h6h6i6i6i6i5i5j6j6j6j6k6k6k7k7l7l7k7l7k7l7l7m8m7m7m8n8n9n9o9o9o9o9p9q9q9q9q9q9r:r9r:r:s:s;t;w?q?`1L$<I*! r9B\,s?MDB߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀C߀CBK|IW) $w4&d=ޏdl:h6h6i6h6i6i6i6i6i5j5j6j6j6j6k6k6k7k7l7l7k7l7l7l7l8m8m8m7m8n8n9n9o9o9o9o9p9q9q9q:q9q9r:r9r:r:s:s;t;v>u@g6U(k4h 2%   CZ^.tAK߀C~BBBBBBBBBBBBBBBBBBBPm;De w4&d=ޏdl:h6h6h6i6h6i6i6i6i6i5j6j6j6j6j6k6k6k7k7l7l7l7l7l8l7l8m8m8m8m8n8n9n9o9o9o9o9p9q9q9q:q:q9r:r:r:r:s:s;t;u=wAm;].H"<H+"  ?-O%c2xDI~B}A~A~B~B~B~B~B~BBBBBBBB~B~B~B~AG؁M].=0w4&d=ޏdl:h6h6h6h6i6h6i6i6i7i6i5j6j6j6j6k6k6k6k7k7l7l7l7l7l8l7l8m8m8m8m8n8n9n9o9p:o9o9p9q9q9q:r:r:r:r:r:r:r:s:s;t;w?s?e4V)|=y"<)!  "}>XY*j8|GF}@}@}@}@}@}A}A}A~A}A}A}A}A}A}A}A}A}A}A}A}ANq?K#| w4&d=ޏel:h6h6h6h6i6i6h6i6i6i7i6i6j6j6j6j6j6t@zGm8k7l7l7l7l7l8l7l8m8m8m8m8n8n9n9o9p:p:o9p:p9q9q:r:r:r:r:s:r:r:s:s;t;u=v@n;`0R'q8m";)"   $o7OS'c2t@H~C|@|@|@|@|@|@|@|@|@|@|@|@|@}@}@}@}@}@}@}A}@߀EفM`0V*:w3&d=ޏdl;h6h6h6h6h6i6i7i6i6i7i7i6i6j6j6j6q?݋_dxEk7k7l7l7l7l7l8l7l8m8m8n8m8n8n9n9o9p:p:p:p:p9q9q9r:r:r:r:s:s:r:s:s;t;t;v>u@l:`0S(@}A I 0&! 9 4@dS'a0o<|E~D|@{@|@|@|@|@|@|@|@|@|@|@|@|@|@|@}@}A}A}A}A}A}A߄Mr@O% w3&d=ޏdl:h7h6h6i7h6h6i6i7i6i6i7i7i6j6j6q@{Ph>֊_^s?k7k7l7l7l7l7m8l7l8m8m8n8m8n8n9n9o9p:p:p:p:p:q9q9q:r:r:r:r:s:s;s:s:s;t;uu?m:c2Y+ۛM$y=tH$K!8+%#!  %' 1M&A?hO%Z+e3pv?q=j7b1\,T(M$G!@y|>pq8e{=l?pC zJ#P&W*].d3m:u@{C{Bz?y>y>z?z?z?z?z?z?z?z?{?{?{?{?{?{?{?{?{@{@{@{@{@{@|@߄Mnu>r=n9j7g4d2c1b1c1d2g5j7n:r=v@yAzAz?y>y>y>y?y?y?z?z?z?z?z?z?z?z?z?{?z?{?{@{?{@{@{@{@{@{@{@ހG{H\,H$0v3&d<ݐek:g6h7h7i7h6i7i7h6i6i7i7i6qA|S`8D t  a-Q'rGh݄Qo:l7l7l7l7m7m7m8m8l8m8m8n8n9n8n9n9o9o9p:p:p:q:q:q:q:q:r:r:r;r;s;s;s;s;s;t;t;t;u;u;uv>v>v>v>w?x?x?y?y>x>x=x=x=x=x=y>y>y>y>y?y?y?z?z?z?z?z?z?z?z?z?{@{@{@{@{@{@{@z?|A܁Lg6Eb v3&d=ݐek:g6h6h7h7i7h6i7i7h6i6i6qA|S`9C t  BT)wMi܂On:l7l7l7l7m7m7l8m8m8m8m8n8n9n9n8n9o9o9p:p:p:q:q:q:q:q:r:r:r;r;r;s;s;s;t;t;t;t;t;u;u;ux>x=x>y>y>y>y>y>y>y>y>y?y>y>y?y?z?z?z?z?z?z?z?z?z?z?߁Jr@T'!u2&c=ݐfl;g6g6h6h7h7i7i7i7i7h6qA}T`8C t  F $U*xMg܂On:l7l7l7l7m7m7m8m8m8m8m8n8n9n9n9n9n9o9o9p:p:p:q:q:q:q:q:r:r:r;r;r;s;s;s;t;tx>x>x>y>y>y>y>y>y>y>y>y>y>y?z?z?z?z?z?z?z?z?~E{H^.g3<u2&c=ݐfl;h7h7h6h6h7i7i7i7i6qA}T`8Bt  D%U*wMi܃Po;l7l7l7l7m7m7m8m8m8m8m8n8n9n9n9n9n9o9o9p:p:p:q:q:q:q:q:q:r:r:r;r;s;s;s;s;t;tw>w>w>w>x>x>x>x>x>y>x>y>y>y>y>y>y>y>y>z?z?z?z?y?{BJf5H!g u2&c=ݐfk;h7h7h7h6h6h7i7i6rB~U`9Bt  D%U*wMi݅Rp;l7l7l7l7m7m7m8m8m8m8m8m8n8n9n9o9n9o9o9p:p:p:q:q:q:q:q:q;r;r:r;r;r;s;sw>w>w>w>w>x>x>x>x>x>x>x?x?y?y?x?x?x?x?y@Iml7l7l7l7m7m7m8m8m8m8m8n8n8n9n9o9o9n9o9o9p:p:p:q:q:q:r:q;q;r;r:r;r;r;s;sw>w>w>w>w>w>w>w>w>w>w>w>w>w>x>~Gr@X*R)-t2&c=ݐfk;g7h7h7h7h7h6qB~V`9At  A R(oEޓgZuAl7l7l7l7l7m7m8n8m8m8n8n8n8n9n9o9o9o9o9o9p:p:p:p:q:q:r:r:r;r;r;r;r;r;r;s;sw=w=w=w>w>w>w>w>|EuC].q8At2&c=ݐfk;g7g7h7h7h6qB~V_9At  AP&h>ڏd`yEm8l7l7l7l7m7m7m8n8m8n8n8n8n8n9n9o9o9o9o9o9p:p:p:p:q:q:r:r:r;r;r;r;r;r;r;s;s;sw={CwD_/BS t2&b=ݐfk;g7g7g7g6qB~W_9@t  =N%yb7Ԉ]eLo:l7l7l8l8m7m7m8n8n8n8n8n8n8n9n9o9o9o9o9o9o9p:p:p:q:q:q:r:r:r;r;r;r;r;r;r;s;s;sl7l7l8l8m8m7m8n8n8n9n8n8o8o8o9n9o9o9o9o9p9p9p:p:p:p:q:q:q:r:r:r:r;r;s;s;s;s;s;s;s;s;t;t;s}HvE^0ӋD U  t1&b=ݐfvGX^9?t  E +R'e;ӆ[gއUuAm8l7l8l8m8m8m8n8n8n9n9n9n8o8o9o9o9o9o9o9p9p9p9p:p:p:p:p:q:q:q:r:r:r:r:r;r;s;s;s;s;st  w7L#[X-qGڎcc܂Pr>l7l7l8m8m8m8m8n8n8n9n9n9n9o8o9o9o9o9o9o9o9p9p9p9q:q:q:p:q:q:q:q:r:r:r:r:r;r;s;s;s;s;s;sl7l7l8m8m8m8n8n8n8n9n9n9n9o9o9o9o9o9o9o9o9p9p9p9q:q:q:q:q:q:q:q:q:q:r:r:r:r:r:r;s;s;s;s;s;s;s;sr=r=r=r=s>vAxD{GLނPޅS݆U؂SxJnAa5W,N%v@:?S& < H!HM$zU+\1йd9nCwK~QԃW؇Zۊ\ލ_ލ^^]]]ތ\ފ[ۈY؄UQzLtFl>b4Z.ĩS(K#h?6O%^*|9D5J"XN$vR(V,Y/\1ε]2޷`4e9e9e9e9a5^2޳\0ϱZ.W+R'M$uI!T?2a., *T&k1u6~:#;&~:&|9&}9&}:&~;&{:$p4g0G! ?@????????????@???@@(@ Bw?W'% k0CY(@j0"n1~C@t7t;N)4p58Tu@ ' : Rb_/~z?afW|CWb+#YjЃI@ 5 P݊Lhci7x>[chXzAUb-&Zeg|E%* ,ߎOec^U+o~Cvb_dфJ= 3 n7D]__][/yZ'V_[`уJ9 1 x* ݌O_Z[ZT*mՁF]XX]zD &w>gZWWYSw?Rl6GWVUUZg6b//TVSSXG4.U&PURQSR|B U I݊MTPPPUa39چJSNNNTu@!^! ׃HRMMLPӂIL&7 \ ՀEQKKKL݋M{BS q6J'OE%cC#fC#fC#fC#fC"fC"fC!fC"fC"fD!fD!fD!fD!fD!fE!fE"fF"fF"fG#fG#fH$fH$fI$fI$fJ%fJ%fK%fL%fG!G! [ EOJJIJOU+rG"(qDo?k:l:l:l:l:l9h3b+b+c+c+d+d,f-g.i/j0k1l2n3o4p5r6s8t9v:x>l8R&Xi* ՀFMHHHGOb4G$)xJp;k5l6m7m6m7n7n6g-`$`$b%c&d'f(g)i*j+k,m-n.p/q1s2t3v4y9p9T)X?ցGKGGFFMk:G#)wJo;j5k5l6m6m6m7n7o8j1b&a$b&d&e'f(h)i*j,l-m.o/p0r1s2v6n7R(VL!؂GIEEEDKq= F#)wJo;j5k5l6m7m6m7n7o8p8m5e*b%c&d'f(g)i*j+k,l-n.o/q0s5k5ݙO&OW).ۄHFDDDCIt? "F#)xKo>>>=Dq<  F#)xLo====~:~:~:~:~:}9݁C]0E#)xMn;i5j6j6j6k6k6k7l7m7n8n8o8o8p8p9q9r:s:t@ACF|Fw=ED")xMny<7Mg=փUvBl6l7m7m8m8n8n9n9o9p:p:q:q:r:r;s;s;t;u;ux>x>x=y>y>y>y>y?z?z?z?z?z?z?{@yC[/ B")xOn=g6h7i7i7qBf>z;7?i?փUvBl6l7m7m8m8n8n9n9o9p:p:q:q:r:r;r;s;s;t;t;ux>x>x>y>y>y>y>y?z?z?z?{Ch8Z,$B")xOn>h7h6i7qCf?y;7?i?ՃUxEl7l7m7m8m8n8n9n9o9o9p:q:q:r:r;r;r;s;sw>x>x>x>x>x>x>zAo=F"FB")xOm>g7h7qCf?x:7=e;ҁT|Im8l7m7m8m8n8n9n9o9o9p:p:q:r:r;r;r;s;sR)e A")xOm=g7pDf@w972 _6u|PځOp;l7m7m8n8n8n8n9o9o9p9p:q:q:r:r;r;r;s;s;spDe@v97aV.OuJ؃TvCl7l7m8n8n8n8n9o9o9o9p9p:q:q:r:r:r;s;s;s;sU,e( A (xQkFu772 Y1[sHՂT|JpvAp>^2q7D! B2F "`6rsG~Q؀PzGs?o:n8m8n8n9n9o9o9o9o9o9p9q:s=vAvCp?b5H#7" ;W.Lh>uI|NO}L{HwDvBt@s?t?u@vBwDxEwFsCk=]2yF"14= <R*>`6mi?pDtGvHwJxJwItFqCl?f:[1gK&7a+V 8AE!$G#$F!$@ {7H ??????<?~??(0` %u>v?O$f.9u? n1v?[PLLNF- D#J(MD%VD$WD$WD$WD#WC!WC!WD!WD!WD WD!WE"WF"WG#WG#WH$WI$WJ%WK&WK&WM'XG!@* t=[NJJKهJb44`8UrCj8k9k8k8k7e/`)b)c*d*e+g-i.j0l1n2p4r5t7v:q:W*]u?aLHHHߊJH%Je |BEBBAF_3ve=XuEj5j6k6l7m7m7n7p8q9q8m2h+f(h)j+l-h0T)TM$DB@@@E`3vd=XuEi6j6k6l6m7m7n7o8p9q9r:r8n2j,i+e.ޣR'Qb2<݂D?>>>߃C\0ne=XuFi6j6k6k6l7m7n7o8o8p9q9r:t;s:f2ޙL$Oo;zA==<<܀BV-`e=XuFi6j6j6k6l6m7m8n8o8p8q9r:s:r;U+Dx?=;;;:}@K'Ke>XuFi5j6j6k6k6l7m7n8o8o8p9q9r:s;j7z>Z c3Z|>}9}9}9}:;y@n:2e>XuFi5i6j6k6k7k7l7m8n8o8p8p9q9r:s;f5g4I C u?@>@ABFuA9 d>XuFi5i5j6j6k7k7l7m7m8n8o8p9q9q9r:s;c3`0D # i8݁FDEEED߄Hi: d>XuGh6i6i6j6k6k7k7l7m7m8o9o9p9q9q9s:sXuGh6i6i6j6j6k6k7l7l7m8n8o9o9p9q9r9s:sz?z?z?z?z?{?{@{@{@{Cb4d?XuHh6h7h6l;k@ٓM,Fh?g}Os?l6m7m8m8n9o9p:p:q:r:r;s;t;ux=x>y>y>y>y?z?z?z?{Anx>x>x>x>x>y@s?R*Mc?XuHg6lt?[0oc?XuHkt@_3|8 c?XyNjBُK-FT-%rG}NvCm8m7n8n8o9o9o9p9p:q:q:r:r;s;s;sܸc6D":I$d;UrFxJzJxGvCuAs?s>s?t@uAuBtBn>c7wL')" e# M'`8Fj@qoDrEsFtFrDoAk>c8dU.6u88 XZ!S)???( @ J'd-\)$J( o4O`0V}A!؋P[2@ZْTU.PKa~F}v?_[Q,9gW`˅J Qq\WR,:هKHXX{D|C,UUێNY/p<QQP]2If5NNOr>{N+$L)CI'EI'DH%DF"DG"DG!DH"DJ#DK$DM&DN'DO(DR)FK%5> a2KKK}C m@l:j7k7j5b+`'b(e*h,j.m0p2s5r8_0ad4IHHӁE<qCn:k5m7n7m5f+c&e'h*k,n.q0q4e1jR(k8"GEEׂD`3"qDn:k5l7m7o8o8k1f*f(i*l-l0`.e:q<;DBB׀Bn< 'pDm;j5l6m7n7o8q9p7l1j,h-\+`% v>jA??}@k:$qEm;j6k6l7m7o8p8r:s:n7T(fz:z?=<W.qEm:j6k6k6m7n8o8p9r:p9Q)mf59|=~:~: pFl̉I&!pGlx>y>y?v?`3TpGm=j=\8XjA7xIs@m8m8n8o9p:q:r:r;s;tu>e6x7qIoD[7Xc;!vIvEp;m8n8o9o9p:q:r:r;s;sg8xk5 e?va>YQ- oDXwHuCqr=r>s>r?o>h9oS,G&c;#mBKpClqCqCn@xj=\b74L)?|?(  @a,X(ZyBMm>WEؓTU.S[ƄIE,XQ/QQk:-Y1&V.1R'0Q#0T&0X)0]-2Z-(k7KtLzA`l;j6i2c)e)k-o2i3cF|G|@n=l6n7n5k/j-g.rR*<݂AAx=n=k6l7o8r9h4r8 o:~==r:zm=j6k7m8p9p9`1mJ%F%x@B݀Bm;Km>i6l9n9n8q9p9f4U+5L&^00q;|A~ByAZ1m>i9hy?x?n;WmBe;oN. rFsCp8W7nE sDTr@q=q  T  FG((codins E &%"S #S 2F$G((codigo E CX T%& LT%&FC>C'C% % 66FF( ~FE( ((%C4%)* &C)* %,\>,d FQ%Ctmpmix2F.QT.CC]R=h1\tmp\. CCC/C(0C1CN2N3C 4N5NN6N&N7N8C 9C Q\tmp\..&  FA~: 'C)* C)*a6 T  &%"S #S F;~  F"~  F$G((codigo E "<;<CX%= rtmpmix2 /012389& "<;</"/;/2C]">"?$&  &%"S #S F"~  F$G((codigo E "< CX%= rtmpmix2 /012389& "< /"/2C]">"?$&  &%"S #S O F;~ K F$G((codigo E  ;<CX%=G rtmpmix2 /012389&  ;</;/2C]>?$&  rtmpmix2 /012389&   /2C]>?&F. ~ FG((codigoE. ..F.>F$G((codigo E. ..CXF.>6&F.& T@CC]RN (\tmp\@%Ctmpmix3&F@QFQ\tmp\@@& F.G-( @ ~>5@64@%'$>7C65 dT5 $>7C4 dT4TBC]F. ~FCG((codigoE. ..%C4mCF. TDCO(\tmp\BFC\tmp\BF. #D#)\tmp\tmpmix2.dbf\tmp\tmpmix2.cdx\tmp\tmpmix2.fpt\tmp\tmpmix3.dbf\tmp\tmpmix3.cdx\tmp\tmpmix3.fpt\tmp\tmpstd.dbf\tmp\tmpstd.cdx\tmp\tmpstd.fptFC3BUETMPSTD STDCCVENTCCVFAC STDVENTASFAC_VENCAUSAXFILTROXSIN_PROMOCIONESP_LOCALP_SYSTEMC2V2COD_INSCODIGOBULATR RECEPCIONCANTIDADOBIEDATA_CODIGO_VACIOFEC_VENXDESDEXHASTA PROMOCIONTMPMIX1BIENESLINEATMPMIXMIX_ADICFECHAXPER XCOCIENTEXCODCODINSBULTOS ATRIBUTOSSTOCKXFACTORFACTOR P_PR_UNIDADMIX_NOXDLINXHLININ XINCREMENTOALLTMPMIX2DESCRDBULDATRGRUPOIDUTOTCODTOTCODACANTAUX PORCENTAJEUNIDAD UNIDADAUXEST_ACTATRIBUTOCLAVEACTIVOMEDIDA MEDIDAAUXTMPMIX3FORXTMP_REGMIXXREG 4)%C\usr\sap.dbf0,FQ\usr\sapFch1\borrar9CCCN DF)~C g C g p{rborrar9 CC [=C \C  \C gC gF ~FG((codigo E   CX%C4F > F #)FQF QF\borrar9 u?R, El archivo \usr\sap.dbf no existe !!!BUXPERIODOXFECHAP_SERVERSAPP_LOCALCOD_INSBULATR RECEPCIONFEC_VENF9F15F5BORRAR9STOCKCODIGOFACTORTMPSTDimportarsUrr1A2bArArA ; bvrQAqbrBr1rAtqAAAqA3ArAqAAV@arbrAqAr ABAarAr ABarAr AB BAACvqrrrBrUqAAvA2AAB rqArrrARrAB28rArqrABrAQrArArqBB4 W%}0 1 PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _0EA18EAJ7 716940654 1 53+ 1.000 0.000 0.000109367.00 F   0 8 20T1212 FF T F WINDOWS _0EA18EAJI 9 1 9167.000 0.000 F FFF F WINDOWS _0EA18EAJJ 9 4 1562.000 0.000 F FFF F WINDOWS _0EA18EAJK 9 7 1562.000 0.000 F FFF F WINDOWS _0EA18FFW0 716940662 5 02 7187.500 520.833 1458.333 4375.000 0 0 0 -1 -1 -1 1 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFW1 722517660 8 0311250.000 0.000 1666.66711354.167 5 C 0 0 0 -1 -1 -1 6 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0EA18FFW9 730226689 8 0711250.00058854.167 1666.667 5312.500; 9 N 0 0 0 -1 -1 -1 : 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0EA18FFXY 716940662 8 0<14791.667 0.000 1666.667 7395.833 D 0 0 0 -1 -1 -1 = 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _0EA18FFXZ 716940662 5 0?14791.66796979.167 1458.333 5104.167 0 0 0 -1 -1 -1 > 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFY0 716940662 8 0@14791.667101145.83 1666.667 4479.167 N 0 0 0 -1 -1 -1 A 1 8 1 T F 2 1 0 1 TF3 0F WINDOWS _0EA19QOLJ 722534419 8 0B 7083.33358437.500 1666.667 5312.500 C C 0 0 0 -1 -1 -1 D 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19VSTA 722534422 8 0E 7083.33364270.833 1666.667 5312.500 F C 0 0 0 -1 -1 -1 G 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W000 722534423 8 0H 7083.33370312.500 1666.667 5312.500 I C 0 0 0 -1 -1 -1 J 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W001 722534427 8 0K 7083.33376250.000 1666.667 5312.500 L C 0 0 0 -1 -1 -1 M 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19WE6Q 722534432 8 0N 7083.33382395.833 1666.667 5312.500 O C 0 0 0 -1 -1 -1 P 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19X532 722517281 5 0R 7187.50046562.500 1458.333 4375.000 0 0 0 -1 -1 -1 Q 1 8 1 T F 0 TF3 0F WINDOWS _0EA1A1BWJ 716942231 7 4 6770.833 0.000 2187.500105937.50 0 0 0 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _0EA1A3OEZ 716942289 6 6770.83345208.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A3XFM 716942295 6 6770.83363958.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A4KM5 716942312 6 6875.00011562.500 2083.333 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A76UI 716942377 6 6770.83351875.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7E7C 716942382 6 6770.83369895.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7LPQ 716942387 6 6770.83381875.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EB0F6QIO 722535270 5 0T 2395.83346875.000 1875.00015625.000 -1 -1 -1 -1 -1 -1 S 1 12 1 T F 0 TF3 0F WINDOWS _0GJ1ESSUK 722534434 8 0U 7083.33388333.333 1666.667 5312.500 V C 0 0 0 -1 -1 -1 W 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1ETH1J 722517334 5 0Y 7187.50012083.333 1458.333 8020.833 0 0 0 -1 -1 -1 X 1 8 1 T F 0 TF3 0F WINDOWS _0GJ1EVLHJ 722517384 6 6770.83375833.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1EVRGA 722517388 6 6770.83387916.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1F11V5 722517540 8 0Z11250.00011562.500 1666.66733541.667 \ C 0 0 0 -1 -1 -1 ] 0 8 1 T F 0 0 0 1 TF3 0F WINDOWS _0GJ1FEJ96 722534437 8 0^ 7083.33394270.833 1666.667 5312.500 _ C 0 0 0 -1 -1 -1 ` 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEJ97 722517856 6 6770.83393854.167 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEP41 722534439 8 0a 7083.333100208.33 1666.667 5312.500 b C 0 0 0 -1 -1 -1 c 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEP42 722517860 6 6770.83399791.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEWKH 722517864 6 6770.833105729.17 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GK002XVN 730226552 8 0d11250.00045625.000 1666.667 6562.500h f C 0 0 0 -1 -1 -1 g 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0GK0057Q4 730226692 8 0i11250.00064687.500 1666.667 5312.500m k N 0 0 0 -1 -1 -1 l 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYD 730226695 8 0n11250.00070833.333 1666.667 5312.500r p N 0 0 0 -1 -1 -1 q 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYE 730226697 8 0s11250.00076666.667 1666.667 5312.500w u N 0 0 0 -1 -1 -1 v 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPP 730226700 8 0x11250.00082604.167 1666.667 5312.500| z N 0 0 0 -1 -1 -1 { 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPQ 730226703 8 0}11250.00088437.500 1666.667 5312.500  N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPR 730226706 8 011250.00094583.333 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPS 730226709 8 011250.000100416.67 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0JN0P97D0 774783188 8 011250.00052916.667 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0JN0P97D2 730226144 6 6770.83358020.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0JN0PA0L3 730226172 5 0 7187.50053020.833 1458.333 3645.833 0 0 0 -1 -1 -1 1 8 1 T F 0 TF3 0F WINDOWS 23 14.000 7.000 11.000 7.000 3 0 0 8 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 1 8 WINDOWS 23 18.000 10.000 13.000 12.000 5 0 1 12 WINDOWS 25 F ! Courier New:#winspoolHP DeskJet 692CLPT1:HP DeskJet 692CXC 4dXXA4DINU"4$H$$$$DRIVER=winspool DEVICE=HP DeskJet 692C OUTPUT=LPT1: ORIENTATION=1 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=600 COLOR=2 YRESOLUTION=600 TTOPTION=2 COLLATE=1  Courier New"Codigo"1alltrim(codigo)+" "+alltrim(atr)+" "+alltrim(bul)  Courier Newiif(xunidad=1,mes1c,mes1a)  Courier New "@z 999,999"DATE() Courier New Courier New "Pgina "_PAGENO Courier Newxmes1  Courier Newxmes2  Courier Newxmes3  Courier Newxmes4  Courier Newxmes5  Courier New Courier New"Unidad" Courier New"Plan de Compras"xmes6  Courier New Courier New "Descripcin"2alltrim(descr)+" "+alltrim(datr)+" "+alltrim(dbul)  Courier Newxmes7  Courier Newxmes8  Courier Newiif(xunidad=1,unidad,unidadaux)  Courier New"@!"iif(xunidad=1,mes2c,mes2a)  Courier New "@z 999,999"iif(xunidad=1,mes3c,mes3a)  Courier New "@z 999,999"iif(xunidad=1,mes4c,mes4a)  Courier New "@z 999,999"iif(xunidad=1,mes5c,mes5a)  Courier New "@z 999,999"iif(xunidad=1,mes6c,mes6a)  Courier New "@z 999,999"iif(xunidad=1,mes7c,mes7a)  Courier New "@z 999,999"iif(xunidad=1,mes8c,mes8a)  Courier New "@z 999,999"(cant-comp+orde+prod-compprod)  Courier New "@z 999,999" Courier New"Stock" Courier New Courier New Courier NewdataenvironmentName = "Dataenvironment" 0 0 PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _0EA18EAJ7 716940654 1 53+ 1.000 0.000 0.000109367.00 F   0 8 20T1212 FF T F WINDOWS _0EA18EAJI 9 1 9167.000 0.000 F FFF F WINDOWS _0EA18EAJJ 9 4 1562.000 0.000 F FFF F WINDOWS _0EA18EAJK 9 7 1562.000 0.000 F FFF F WINDOWS _0EA18FFW0 716940662 5 02 7187.500 520.833 1458.333 4375.000 0 0 0 -1 -1 -1 1 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFW1 722517660 8 0311250.000 0.000 1666.66711354.167 5 C 0 0 0 -1 -1 -1 6 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0EA18FFW9 730226743 8 0711250.00058437.500 1666.667 5312.500; 9 N 0 0 0 -1 -1 -1 : 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0EA18FFXY 716940662 8 0<14791.667 0.000 1666.667 7395.833 D 0 0 0 -1 -1 -1 = 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _0EA18FFXZ 716940662 5 0?14791.66796979.167 1458.333 5104.167 0 0 0 -1 -1 -1 > 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFY0 716940662 8 0@14791.667101145.83 1666.667 4479.167 N 0 0 0 -1 -1 -1 A 1 8 1 T F 2 1 0 1 TF3 0F WINDOWS _0EA19QOLJ 722534419 8 0B 7083.33358125.000 1666.667 5312.500 C C 0 0 0 -1 -1 -1 D 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19VSTA 722534422 8 0E 7083.33363958.333 1666.667 5312.500 F C 0 0 0 -1 -1 -1 G 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W000 722534423 8 0H 7083.33370000.000 1666.667 5312.500 I C 0 0 0 -1 -1 -1 J 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W001 722534427 8 0K 7083.33375937.500 1666.667 5312.500 L C 0 0 0 -1 -1 -1 M 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19WE6Q 722534432 8 0N 7083.33382083.333 1666.667 5312.500 O C 0 0 0 -1 -1 -1 P 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19X532 722517281 5 0R 7187.50046562.500 1458.333 4375.000 0 0 0 -1 -1 -1 Q 1 8 1 T F 0 TF3 0F WINDOWS _0EA1A1BWJ 716942231 7 4 6770.833 0.000 2187.500105937.50 0 0 0 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _0EA1A3OEZ 716942289 6 6770.83345208.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A3XFM 716942295 6 6770.83357708.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A4KM5 716942312 6 6875.00011562.500 2083.333 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A76UI 716942377 6 6770.83351875.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7E7C 716942382 6 6770.83363645.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7LPQ 716942387 6 6770.83375625.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EB0F6QIO 716978352 5 0T 2395.83347395.833 1875.00014583.333 -1 -1 -1 -1 -1 -1 S 1 12 1 T F 0 TF3 0F WINDOWS _0GJ1ESSUK 722534434 8 0U 7083.33388020.833 1666.667 5312.500 V C 0 0 0 -1 -1 -1 W 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1ETH1J 722517334 5 0Y 7187.50012083.333 1458.333 8020.833 0 0 0 -1 -1 -1 X 1 8 1 T F 0 TF3 0F WINDOWS _0GJ1EVLHJ 722517384 6 6770.83369583.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1EVRGA 722517388 6 6770.83381666.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1F11V5 722517540 8 0Z11250.00011562.500 1666.66733541.667 \ C 0 0 0 -1 -1 -1 ] 0 8 1 T F 0 0 0 1 TF3 0F WINDOWS _0GJ1FEJ96 722534437 8 0^ 7083.33393958.333 1666.667 5312.500 _ C 0 0 0 -1 -1 -1 ` 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEJ97 722517856 6 6770.83387604.167 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEP41 722534439 8 0a 7083.33399895.833 1666.667 5312.500 b C 0 0 0 -1 -1 -1 c 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEP42 722517860 6 6770.83393541.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEWKH 722517864 6 6770.83399479.167 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GK002XVN 730226729 8 0d11250.00045625.000 1666.667 6562.500h f C 0 0 0 -1 -1 -1 g 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0GK0057Q4 730226745 8 0i11250.00064270.833 1666.667 5312.500m k N 0 0 0 -1 -1 -1 l 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYD 730226748 8 0n11250.00070416.667 1666.667 5312.500r p N 0 0 0 -1 -1 -1 q 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYE 730226752 8 0s11250.00076250.000 1666.667 5312.500w u N 0 0 0 -1 -1 -1 v 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPP 730226755 8 0x11250.00082187.500 1666.667 5312.500| z N 0 0 0 -1 -1 -1 { 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPQ 730226757 8 0}11250.00088020.833 1666.667 5312.500  N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPR 730226760 8 011250.00094166.667 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPS 730226763 8 011250.000100000.00 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK0RZFZE 722561142 5 0 7187.50053020.833 1458.333 3645.833 0 0 0 -1 -1 -1 1 8 1 T F 0 TF3 0F WINDOWS _0GK0S06I9 774783195 8 011250.00052708.333 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS 23 14.000 7.000 11.000 7.000 3 0 0 8 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 1 8 WINDOWS 23 18.000 10.000 13.000 12.000 5 0 1 12 WINDOWS 25 F ! Courier New:#winspoolHP DeskJet 692CLPT1:HP DeskJet 692CXC 4dXXA4DINU"4$H$$$$DRIVER=winspool DEVICE=HP DeskJet 692C OUTPUT=LPT1: ORIENTATION=1 PAPERSIZE=9 ASCII=9 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=600 COLOR=2 YRESOLUTION=600 TTOPTION=2 COLLATE=1  Courier New"Codigo"1alltrim(codigo)+" "+alltrim(atr)+" "+alltrim(bul)  Courier Newiif(xunidad=1,mes1c,mes1a)  Courier New "@z 999,999"DATE() Courier New Courier New "Pgina "_PAGENO Courier Newxmes1  Courier Newxmes2  Courier Newxmes3  Courier Newxmes4  Courier Newxmes5  Courier New Courier New"Unidad" Courier New"Plan de Ventas"xmes6  Courier New Courier New "Descripcin"2alltrim(descr)+" "+alltrim(datr)+" "+alltrim(dbul)  Courier Newxmes7  Courier Newxmes8  Courier Newiif(xunidad=1,unidad,unidadaux)  Courier New"@!"iif(xunidad=1,mes2c,mes2a)  Courier New "@z 999,999"iif(xunidad=1,mes3c,mes3a)  Courier New "@z 999,999"iif(xunidad=1,mes4c,mes4a)  Courier New "@z 999,999"iif(xunidad=1,mes5c,mes5a)  Courier New "@z 999,999"iif(xunidad=1,mes6c,mes6a)  Courier New "@z 999,999"iif(xunidad=1,mes7c,mes7a)  Courier New "@z 999,999"iif(xunidad=1,mes8c,mes8a)  Courier New "@z 999,999" Courier New"Stock"(cant-comp+orde+prod-compprod)  Courier New "@z 999,999" Courier New Courier New Courier NewdataenvironmentName = "Dataenvironment" 0 1 PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _0EA18EAJ7 716940654 1 536 1.000 0.000 0.000109367.00 F   0 8 20T1212 FF T F WINDOWS _0EA18EAJI 9 1 9167.000 0.000 F FFF F WINDOWS _0EA18EAJJ 9 4 1562.000 0.000 F FFF F WINDOWS _0EA18EAJK 9 7 1562.000 0.000 F FFF F WINDOWS _0EA18FFW0 716940662 5 0= 7187.500 520.833 1458.333 4375.000 0 0 0 -1 -1 -1 < 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFW1 722517660 8 0>11250.000 0.000 1666.66711354.167 @ C 0 0 0 -1 -1 -1 A 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0EA18FFW9 730226909 8 0B11250.00058437.500 1666.667 5312.500F D N 0 0 0 -1 -1 -1 E 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0EA18FFXY 716940662 8 0G14791.667 0.000 1666.667 7395.833 D 0 0 0 -1 -1 -1 H 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _0EA18FFXZ 716940662 5 0J14791.66796979.167 1458.333 5104.167 0 0 0 -1 -1 -1 I 1 8 1 T F 0 TF3 0F WINDOWS _0EA18FFY0 716940662 8 0K14791.667101145.83 1666.667 4479.167 N 0 0 0 -1 -1 -1 L 1 8 1 T F 2 1 0 1 TF3 0F WINDOWS _0EA19QOLJ 722534419 8 0M 7083.33358333.333 1666.667 5312.500 N C 0 0 0 -1 -1 -1 O 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19VSTA 722534422 8 0P 7083.33364166.667 1666.667 5312.500 Q C 0 0 0 -1 -1 -1 R 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W000 722534423 8 0S 7083.33370208.333 1666.667 5312.500 T C 0 0 0 -1 -1 -1 U 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19W001 722534427 8 0V 7083.33376145.833 1666.667 5312.500 W C 0 0 0 -1 -1 -1 X 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19WE6Q 722534432 8 0Y 7083.33382291.667 1666.667 5312.500 Z C 0 0 0 -1 -1 -1 [ 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0EA19X532 722517281 5 0] 7187.50046562.500 1458.333 4375.000 0 0 0 -1 -1 -1 \ 1 8 1 T F 0 TF3 0F WINDOWS _0EA1A1BWJ 716942231 7 4 6770.833 0.000 2187.500105937.50 0 0 0 -1 -1 -1 1 8 0 0 T F 0 TF3 0F WINDOWS _0EA1A3OEZ 716942289 6 6770.83345208.333 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A3XFM 716942295 6 6770.83363854.167 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A4KM5 716942312 6 6875.00011562.500 2083.333 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A76UI 716942377 6 6770.83351875.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7E7C 716942382 6 6770.83369791.667 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EA1A7LPQ 716942387 6 6770.83381770.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0EB0F6QIO 722535288 5 0_ 2395.83345312.500 1875.00018750.000 -1 -1 -1 -1 -1 -1 ^ 1 12 1 T F 0 TF3 0F WINDOWS _0GJ1ESSUK 722534434 8 0` 7083.33388229.167 1666.667 5312.500 a C 0 0 0 -1 -1 -1 b 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1ETH1J 722517334 5 0d 7187.50012083.333 1458.333 8020.833 0 0 0 -1 -1 -1 c 1 8 1 T F 0 TF3 0F WINDOWS _0GJ1EVLHJ 722517384 6 6770.83375729.167 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1EVRGA 722517388 6 6770.83387812.500 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1F11V5 722517540 8 0e11250.00011562.500 1666.66733541.667 g C 0 0 0 -1 -1 -1 h 0 8 1 T F 0 0 0 1 TF3 0F WINDOWS _0GJ1FEJ96 722534437 8 0i 7083.33394166.667 1666.667 5312.500 j C 0 0 0 -1 -1 -1 k 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEJ97 722517856 6 6770.83393750.000 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEP41 722534439 8 0l 7083.333100104.17 1666.667 5312.500 m C 0 0 0 -1 -1 -1 n 1 8 1 T F 2 2 0 1 TF3 0F WINDOWS _0GJ1FEP42 722517860 6 6770.83399687.500 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GJ1FEWKH 722517864 6 6770.833105625.00 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0GK002XVN 730226901 8 0o11250.00045625.000 1666.667 6562.500s q C 0 0 0 -1 -1 -1 r 0 8 1 TT F 2 0 0 1 TF3 0F WINDOWS _0GK0057Q4 730226914 8 0t11250.00064270.833 1666.667 5312.500x v N 0 0 0 -1 -1 -1 w 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYD 730226917 8 0y11250.00070416.667 1666.667 5312.500} { N 0 0 0 -1 -1 -1 | 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005FYE 730226919 8 0~11250.00076250.000 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPP 730226921 8 011250.00082187.500 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPQ 730226924 8 011250.00088020.833 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPR 730226926 8 011250.00094166.667 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0GK005UPS 730226930 8 011250.000100000.00 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0JN0PX8UX 730226907 8 011250.00052604.167 1666.667 5312.500 N 0 0 0 -1 -1 -1 0 8 1 TT F 2 1 0 1 TF3 0F WINDOWS _0JN0PX8UZ 730226869 6 6770.83358020.833 2291.667 104.167 0 0 0 0 0 0 1 8 0 T F 0 TF3 0F WINDOWS _0JN0PXJS9 730226891 5 0 7187.50052708.333 1458.333 3645.833 0 0 0 -1 -1 -1 1 8 1 T F 0 TF3 0F WINDOWS 23 14.000 7.000 11.000 7.000 3 0 0 8 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 1 8 WINDOWS 23 18.000 10.000 13.000 12.000 5 0 1 12 WINDOWS 25 F ! Courier New>(winspoolHP LaserJet 4100 PCL 6Ne00:THP LaserJet 4100 PCL 6? dXXLetter.HP LaserJet 4100 PCL 62xeP.Ca=~~Z!,,@%7k itC/P b#j,$wo,̜̙f8b-Tg:G6lr$[ZsҖ"lD-fe$IZ@;73I{lRǴ"#$yϐ s OR+EKi%]@<۵Vt板O}SH 8F{ tԣzV::HxFPez˞*Lm'k I 5#һ:?EDRIVER=winspool DEVICE=HP LaserJet 4100 PCL 6 OUTPUT=Ne00: ORIENTATION=1 PAPERSIZE=9 COPIES=1 DEFAULTSOURCE=7 PRINTQUALITY=600 COLOR=2 DUPLEX=1 YRESOLUTION=600  Courier New"Codigo"1alltrim(codigo)+" "+alltrim(atr)+" "+alltrim(bul)  Courier Newiif(xunidad=1,mes1c,mes1a)  Courier New "@z 999,999"DATE() Courier New Courier New "Pgina "_PAGENO Courier Newxmes1  Courier Newxmes2  Courier Newxmes3  Courier Newxmes4  Courier Newxmes5  Courier New Courier New"Unidad" Courier New"Plan de Produccin"xmes6  Courier New Courier New "Descripcin"2alltrim(descr)+" "+alltrim(datr)+" "+alltrim(dbul)  Courier Newxmes7  Courier Newxmes8  Courier Newiif(xunidad=1,unidad,unidadaux)  Courier New"@!"iif(xunidad=1,mes2c,mes2a)  Courier New "@z 999,999"iif(xunidad=1,mes3c,mes3a)  Courier New "@z 999,999"iif(xunidad=1,mes4c,mes4a)  Courier New "@z 999,999"iif(xunidad=1,mes5c,mes5a)  Courier New "@z 999,999"iif(xunidad=1,mes6c,mes6a)  Courier New "@z 999,999"iif(xunidad=1,mes7c,mes7a)  Courier New "@z 999,999"iif(xunidad=1,mes8c,mes8a)  Courier New "@z 999,999"iif(xunidad=1,mes1c,mes1a)  Courier New "@z 999,999" Courier New"Stock" Courier New Courier New Courier NewdataenvironmentName = "Dataenvironment" %f02%0x_OAO* TC$TCC]RF2T%bienes.cod_ins#oBie.data_codigo_vacio%*T.and.xdbie=bienes.cod_ins%CX(T.and.xdbul=bultos.clave%CX%*T.and.xdatr=atributo.clave%C ZT.and.C %   AT0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin%   AT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgru%b+T.and.bienes.tipo_art=xdtarselect bienes.cod_ins as codigo , iif(isnull(atributo.clave),space(3),atributo.clave) as atr , iif(isnull(bultos.clave),space(3),bultos.clave) as bul , alltrim(bienes.descr)+" "+iif(isnull(atributo.descr),"",alltrim(atributo.descr))+" "+iif(isnull(bultos.descr),"",alltrim(bultos.descr)) as descr , bienes.descr as cdescr , nvl(bultos.descr,space(20)) as bdescr , nvl(atributo.descr,space(20)) as adescr , linea as linea , nvl(lineas.descr,'') as lineadescr , grupo as grupo , nvl(grupos.descr,'') as grupodescr , ' ' as agrupado , nvl(iif(bienes.bultos='S',bultos.medida,bienes.medida),space(10)) as unidad1 , nvl(iif(bienes.bultos='S',bultos.medidaaux,bienes.medidaaux),space(10)) as unidad2 from bienes left outer join bultos on bienes.cod_ins=bultos.cod_ins left outer join atributo on bienes.cod_ins=atributo.cod_ins left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.grupo=grupos.codigo order by bienes.cod_ins,atributo.clave,bultos.clave where &filtro into cursor tmparticulos %Ctmpstock3FQ;T.deposito.calidad#[R] and deposito.vendible#[N]%S!Tand stock.activoselect tmparticulos.codigo as codigo , tmparticulos.atr as atr , tmparticulos.bul as bul , tmparticulos.linea as linea , tmparticulos.lineadescr as lineadescr , tmparticulos.grupo as grupo , tmparticulos.grupodescr as grupodescr , tmparticulos.agrupado as agrupado , nvl(stkxdep.deposito,space(8)) as deposito , nvl(stkxdep.cantidad,0000000000000.00) as cantidad , nvl(stkxdep.cant_com,0000000000000.00) as cant_com , tmparticulos.descr as descr , tmparticulos.cdescr as cdescr , tmparticulos.bdescr as bdescr , tmparticulos.adescr as adescr , nvl(iif(bienes.bultos='S',stock.factor,bienes.factor),1000000) as factor , nvl(stock.stk_min,0000000000000.00) as stkmin , nvl(stock.stk_min1,0000000000000.00) as stkmin1 , nvl(stock.tipostkmin,0000000000000.00) as tipostkmin , tmparticulos.unidad1 as unidad1 , tmparticulos.unidad2 as unidad2 from tmparticulos left outer join stkxdep on tmparticulos.codigo+tmparticulos.bul+tmparticulos.atr=stkxdep.codigo+stkxdep.bul+stkxdep.atr left outer join deposito on stkxdep.deposito=deposito.deposito left outer join stock on tmparticulos.codigo+tmparticulos.bul+tmparticulos.atr+space(8)=stock.codigo+stock.bul+stock.atr+space(8) left outer join bienes on tmparticulos.codigo=bienes.cod_ins where &filtro into cursor tmpstock %otmpstockXstock CX'''CXQQQQQQQQCQCQQQQQ Q !Q!"Q"#Q#$Q$%Q%&Q&tmpstockotventastccventXdeposito *+..()Q(Q(Q*+Q+C(,(-Q*/(0*0 (0 .1S )+cantped& 2F ~w6%Ccantpedcantpeds>2F2QFotcomprastcccomp)QQQC3,C45N3-636Q7483849S 49   3) TEMP_OC2otmpstockXtemp_oc :::Xprventas == = Xprprod VV V QQQQQQQQ#Q#$Q$%Q%&Q&$Q;CQCQCQQQQ Q !Q!"Q"CC:7 Q7CQ<C=>Q?C=@QAC=BQCC=DQEC=FQGC=HQIC=JQKC=LQMC=NQOC=PQQC=RQSC=TQUV>QWV>QXV>QYV>QZV>Q[V>Q\V>Q]V>Q^V>Q_V>Q`V>QaV>QbQcQdQeQfQgQhQiQjQkQlQm1n\tmp\><cdefghijklm;?CC??6ACCAA6CCCCC6CCCEE6ECCGG6GCCII6ICCKK6KCCMM6MCCOO6OCCQQ6QCCSS6SCCUU6UCCUU6WCCWW6XCCXX6YCCYY6ZCCZZ6[CC[[6\CC\\6]CC]]6^CC^^6_CC__6`CC``6aCCaa6bCCbb6 TpCWFQ FpQn\tmp\&& (n\tmp\oproduccicompprodqrQqQqQqQs9stqt su comp_op ~FEvvv>vFvTwCCiCH%CH  TxCCi H"TxCCiCH/oproducci9 u op_pend ~F%yz Eyyy><<yy{ |( T} op_pend.bulCC|Zxbul=&xvar T} op_pend.prdCC|Zxcan=&xvar T} op_pend.reaCC|Zxrea=&xvar %~Eyy><<~FyomovstockCQ P Cwx  temporalF ~Fs G((prodECg %aFE>ddF%CtmpstdFQ%Ctmpstk)FQTCC]RomovstockQ)CcQ,Q.V d c r  Cwx  1n\tmp\Qn\tmp\%}%CmvJFQ2Q\data\CCZ \movstockTCC]RomvQ)CcQ,Q.V d c r  Cwx  1n\tmp\FQF n\tmp\.dbfF ~FE)>cc,FF ~%%<  ><>e>fe7Wd'>hCWdW d6>gC?cD'>iC?c? d6>kfg1>jC c6%?AC!(>me?AC  %&T#TCeD T%CC$H !>TCCCCCC$*01[01[CCCC$iZ[# !<TCCCCC$*C00CCCC$HZR[01[#TC$%k6"TTg y",TCg g 6 T%C#|( ?#TCplvCC|Z%"TT ;#,TC 6 T >l k# >l%&% T%CC$H #BTCCCCCC$*01[01[CCCC$iZ[# /$@TCCCCC$*C00CCCC$HZR[01[#TC$ T%%$TCC$ ?T $TCC$ ? T%% TC$ T|+| %TCTCplvCC|Z%Ct%TTC %TC  TT|| >; % >;$%|'F ~x'a>###77#<<#??#AA#CC#EE#GG#II#KK#MM#OO#QQ#SS#UU#WW#cc#dd#ee#ff#gg#jj#kk#%INDz(H'v( Q(%(LT?iif(linea=4,descr,str(val(codigo))+str(val(atr))+str(val(bul))) M(.T!iif(linea=4,descr,codigo+atr+bul) v(Tdescr B)H(>) )%(9T,str(val(codigo))+str(val(atr))+str(val(bul)) )Tcodigo+atr+bul >)Tdescr THd)) ) T )T str(linea)+GI& (n\tmp\GI "(n\tmp\rptplanestadoQ n\tmp\.dbf n\tmp\.idxBUXFECHABORRARBIENESFILTROXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDFORXDLINXHLINXDGRUXHGRUXDTARTMPSTOCKXDACTXDTIPCODIGOATRBULLINEA LINEADESCRGRUPO GRUPODESCRAGRUPADOCANTIDADCANT_COMCANT_PEDDESCRCDESCRBDESCRADESCRUNIDAD1UNIDAD2FACTORSTKMINSTKMIN1 TIPOSTKMINSTOCKTVENTASCOD_INSTCCVENTDEP RECEPCIONRECEP2DEPOSITOEST_DESPPEDIDOCOMCANTPEDTCOMPRASTCCCOMPRECEPRECEP3OCORDENPENDTEMP_OC STKMIN_UNIOPPRVENTASMES1CPLV1MES2CPLV2MES3CPLV3MES4CPLV4MES5CPLV5MES6CPLV6MES7CPLV7MES8CPLV8MES9CPLV9MES10CPLV10MES11CPLV11MES12CPLV12PRPRODPLP1PLP2PLP3PLP4PLP5PLP6PLP7PLP8PLP9PLP10PLP11PLP12VENTASPRODUC DISPONIBLESALDO1SALDO2PER1PER2FALTANTE EXCEDENTEALCANCEALCANCE2P_LOCALALLAREACOMPPRODCODPRODUCCIIDPRODCOMP_OPXDXHOP_PENDMULTIPLEREALZXVARXCANXBULXREANUMEROMOVSTOCKCAUSAFECHATEMPORALTMPSTDTMPSTK XTEMPORALFEC_VENP_DOSMVP_SYSTEM XTEMPORAL2 XSALDOFINALXDIAS XSIGUIENTE XFALTANDIASXPLV XCANTIDADDIASXMESSIGMESXDUNIP_EMPXDORDP_NUMINSXORDENXDSEPXIDX4H{( CCH  I B CCHh B 2{ B BUXFECHA{4%CH ?BC01/01/CCCiZ# t+BC01/CCCHZ/CCCiZ#UXFECHAdiasxmes@/sigmes/sQr"aAQAQAQAAA1AJqAAAA@]5adraAAqAqB !C1qAaJqArAQ!Aq12rQBABqAirqrBBrArqAAvqAAQ 22qAA"Rk rArBqqBrAu2AvbrA5cCA2A22ABBA3B!A1A2B"aAABAC5qBAc1A1!A1A1!AA11Aba"BB2qaA2qA1PqQQIR%E:Cm,CInicializando datos... .T!Listado de Frmulas de ProduccinG+(listadosG+(Dey_FuncG+( Dey_FiltersG+(Dey_FillTPFG((codinsT .t.4T  C cod_insbienes +T  Clineabienes+T  Cgrupobienes#CSeparando artculosvSELECT cod_ins,DESCR, linea,grupo FROM bienes WHERE &filtro ORDER BY cod_ins INTO TABLE (P_local + "\TMP\art_fil") T.t. .TCformulaxdfor>=.TCformulaxhfor<=!TCccf!TCccfH &T .and. ccf.activa='S' .&T .and. ccf.activa='N' f%T .and. ccf.est_act=1 %T .and. ccf.est_act=2"CSeparando formulaszSELECT ccf.*,atf.DESCR AS art_desc, atf.linea AS Lin_cod,lin.DESCR AS lin_descr,atf.grupo AS gru_cod, gru.DESCR AS gru_des FROM art_fil atf LEFT OUTER JOIN ccformul ccf ON ccf.codigo==atf.cod_ins LEFT OUTER JOIN lineas lin ON atf.linea==lin.codigo LEFT OUTER JOIN grupos gru ON atf.grupo==gru.codigo WHERE &filtroFor .AND. ccf.formula>0 INTO TABLE (P_local + "\TMP\ccf_fil") 2C"Separando detalles de las formulas\occf_filQ#XformulasQ! !%#%!C!% 1& \TMP\for_fil5C%Separando componentes de las formulas[ofor_filQ((,for_filQ(()Q**1& \TMP\com_fil4C$Separando descripcin de componenteshocom_filQ2XbienesQ. ./2*./.0C./ 1& \TMP\bie_fil)CSeparando datos completos T3H? 4_ T3 45 T3 ccf.codigo,  4T3 ccf.lin_cod,  4T3 ccf.gru_cod, HZ 50T6 ccf.formula 5ZT6 ccf.codigovSELECT ccf.*, fof.*, bie1.DESCR AS com_des, bie2.DESCR AS sus_des, .F. AS es_enca, .F. AS sh_descr, .F. AS es_fin FROM ccf_fil ccf LEFT OUTER JOIN for_fil fof ON ccf.formula==fof.formula LEFT OUTER JOIN bie_fil bie1 ON bie1.cod_ins==fof.codcomp LEFT OUTER JOIN bie_fil bie2 ON bie1.cod_ins==fof.codsust ORDER BY &xordTip &xordFull INTO TABLE (P_local + "\TMP\ful_fil") /CObteniendo pasos de elaboracinT7C8%9 toccf_filQ=Xform_pasQ: :%=%:%:;:<C:% :%:;17  loccf_filQ=Xform_pasQ: :%=%:%:;:<-:%:;175(&%\Tmp\rpt_pr_listado_de_formulas_pasosQ 7/CObteniendo controles de calidadT?C8%9/ occf_filQ=Xform_calQ@ @%=%@%@0@A@B@CCXQDC@% @%1?  occf_filQ=Xform_calQ@ @%=%@%@0@A@B@CCXQD-@%1?7(&'\Tmp\rpt_pr_listado_de_formulas_calidadQ ?$CMarcando encabezadosFF#) TG TH- TI- ~%GJ %G H >KaH >La THa  %H >MH TH- TGJ%G0 H >KaH(CExportando datos finalesFF0(&\TMP\rpt_pr_listado_de_formulasQ&\TMP\ful_fil.*FNQ&\TMP\art_fil.*F1Q&\TMP\com_fil.*F"Q&\TMP\ccf_fil.*F+Q&\TMP\for_fil.*FOQ&\TMP\bie_fil.*TPT<TermineBUQOESTADO SET_AND_SHOWTITULOLISTADOSDEY_FUNC DEY_FILTERSDEY_FILLXDPRNBIENESCODINSFILTROBIE_GET_INS_FILTERXDBIEXHBIEP_NUMINSBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUAVANCE FILTROFORFIL_GET_EQN_FILTERXDFORXHFORBIE_GET_BUL_FILTERXDBULXHBULBIE_GET_ATR_FILTERXDATRXHATRXDESTFRMCCF_FILCFFFORMULASFORMULAP_LOCALDISTINCFOFCODCOMPCODIGOFOR_FILCODSUSTDISTINCTBIECOD_INSDESCRCOM_FILBIFXORDTIPXDTIPXDORDXORDFULL XBORRAR_PASOSNEWFILE_LOCAL_TMPXTIPO2FPAPASOTEXTOCCFFORM_PASXBORRAR_CALIDADFCADESDEHASTARESULTAMOSTRARFORM_CALFUL_FILOLDF XSHOWENCAXSHOWFIN FORMULA_AES_FINES_ENCASH_DESCRART_FILBIE_FILVALUE"!Q!sA3b1a1a1Q1QB"#RB111A11qAi1FARA1ArABrQ11AAAAA1AAqArArAsArArAqB1% ] }AXKG+(dey_func%Cborrar1QCformulasCccformulCbienesCbultosCatributo"CproduccifechaaTC@oformulasccformul  C(XQ   QQ*C C    *C C      S  1\tmp\QQ\tmp\FF ~qFG((codins E%SFG((codigoE  T   T %!SF"G((codigoE  T# / T#*T$CC  C# C F > $T%C%&oborrar     QCQ Q'Q(     1\tmp\% loborrar      Q'Q(1\tmp\%QQ\tmp\%) ~T*)) ) <+ +/oproducciC'  *+% T,C+<+ +$oproducci(',+% yT-C+ T-  T,T-F)>',(-F)H .+& (xborrar2 .\&   (xborrar2 .& ((xborrar28('\tmp\rpt_pr_formulas_por_componente.dbf%CborrarQ%Cborrar2Q)\tmp\.*\tmp\%.*BU/DEY_FUNCBORRAR CHECK_OPENEDXBORRARNEWFILEFORMULASFORMULACCFORMULCODIGOATRBULDESCRACTIVAADICTIPO_APLCANTIDADSTANDARTCANTCOMPATRCOMPBULCOMPPECODCOMPXCODIGOXBULXDHERXATRXACTP_LOCALPRODUCCIBIENESCODINSBULTOSXDBUL ATRIBUTOSATRIBUTOXDATRXDESCRXBORRAR2 XDREP_SUMPRODFECHABORRAR2XIDARR_PRODXPRODXFECHAXDORD!rATQ11Q!PArtqrq1Arq1ArC  BCq"rA"1A1ArsBu1a11aArAAB1%iH ,CInicializando datos... .T!Listado de Frmulas de ProduccinG+(listadosG+(Dey_FuncG+( Dey_FiltersG+(Dey_FillT.t."CSeparando formulasT C]%C tmp_formulasF Q\h1 \tmp\  N  CN NQ \tmp\  & & /TC00CCZRC00CCZR%%CcurFQ'occformul cur TQAr tmp_formulas  Cg T TC Suspendo?aC  7r tmp_formulas  CgobienesQXccformulQ ()XlineasQ! !(XgruposQ% #%( tmp_formulas Q QQ !Q"#Q$%Q& 1 \TMP\ccf_fil2C"Separando detalles de las formulasoccf_filQ,XformulasQ/ / , ,Q-,,Q./C/ 1 \TMP\for_fil%>3. 5C%Separando componentes de las formulas[ofor_filQ557for_filQ556Q((1 \TMP\com_fil4C$Separando descripcin de componenteshocom_filQ;XbienesQ9 9);(9)9C9) 1 \TMP\bie_fil)CSeparando datos completos T<T= ccf.formulaSELECT ccf.*, fof.*, bie1.DESCR AS com_des, bie2.DESCR AS sus_des, .F. AS es_enca, .F. AS sh_descr, .F. AS es_fin FROM ccf_fil ccf LEFT OUTER JOIN for_fil fof ON ccf.formula==fof.formula and ccf.nid=fof.nidc LEFT OUTER JOIN bie_fil bie1 ON bie1.cod_ins==fof.codcomp LEFT OUTER JOIN bie_fil bie2 ON bie1.cod_ins==fof.codsust ORDER BY &xordTip &xordFull INTO TABLE (P_local + "\TMP\ful_fil") readwrite %k %Ccur3FQF> ~T?6@AJoccformul (BC? DS cur%C+ >%g F>-E TF( TGB THC TIJ TK TLMC Suspendo?aoful_filCeQCQECFQ(CGQBCHQCCIQJCKQCLQM6@ACNQNCOQOCPQPCQQQCRQRCSQS6A@curF>QocurǼful_fil$CMarcando encabezadosF>#)TT\} TU- TV- ~n %T( >Qa%T H >SaH TUa ] %UY >RU TU- TT%T H >SaH(CExportando datos finalesF>0( \TMP\rpt_pr_listado_de_formulasQ \TMP\ful_fil.*F:Q \TMP\com_fil.*F0Q \TMP\ccf_fil.*F3Q \TMP\for_fil.*FWQ \TMP\bie_fil.*TXTYTermineBUZOESTADO SET_AND_SHOWTITULOLISTADOSDEY_FUNC DEY_FILTERSDEY_FILLFILTROAVANCE XTMP_FORMULAS TMP_FORMULASP_LOCALFORMULAIDNIDCANTIDADXIDXDTIPCURCCFORMULXDFOR XCANTIDADXNIVELXSUBSYS_MOSTRAR_SCREENTOMAR_FORMULASCANT_PERCCFBDESCRART_DESCLINEALIN_CODLIN LIN_DESCRGRUPOGRU_CODGRUGRU_DESBIENESCODIGOCOD_INSLINEASGRUPOSCFFNIDCCANT_FORFRMCCF_FILFORMULASINFOR_FILDISTINCFOFCODCOMPCODSUSTDISTINCTBIECOM_FILBIFXORDTIPXORDFULLFUL_FILXIDCODBULCOMPATRCOMPBULATRACTIVA FORMULA_AXCODIGOXBULXATR XCANTIDAD_A CANTIDAD_AXDESCRXPEPE CANTIDAD_BUNIDCOMPCOM_DESES_ENCASH_DESCRES_FINOLDF XSHOWENCAXSHOWFINBIE_FILVALUETEXTO/TC00CCZRC00CCZRTxTx1Zoformulasccformul Q     #) T F(> C  6select ccformul.formula, cur.cantidad from ccformul, &xcursor cur order by cur.orden where ccformul.codigo+ccformul.bul+ccformul.atr=cur.codcomp+cur.bulcomp+cur.atrcomp and ccformul.activa="S" into cursor (xcursor1) T ~ F TT/TC00CCZRC00CCZR T Ar tmp_formulas CgC FBUXFORMULAXNIVEL XCANTIDADXCURSORXCURSOR1XID2 XFORMULA2XIDXSUBCCFORMULCANTIDADCANTFORFORMULASORDENFORMULAXCANTFORALLIDNIDTOMAR_FORMULAStomar_formulas"!Q!"qAA2BqAAqBrcqA"2BRBX3BqAArRAB2qrrABADrQ11AAAAA1AAqAvAsArArAqB32"1R)bBC1~o/%!N$c!N9)TArtculos a Entregar por DaG+(listadosG+(Dey_funcTP)J(   +    G*(%12345A T  T  T  T TTCTh1CCCCCPNNNN N!N"N#N$N%N&N'C(CQ)\TMP\&& ()\TMP\FCbienescodins*Ctccventpend*Ctventaspedido*Clineascodigo*Cgruposcodigo*F+G-(,-G-(./F0GG-(C1Z2 ~F2+C+ 011 FE222%C4 *>222H 03 E>24 03o>24 03>24 03>24 03> 24 03'>!!24 03U>""24 03>##24F2HF0G %12345G* T5) \temp.txt G(5G G  T6 T7 T8 T9 T: T; T< T= T> T? T@ TA TB TC TD TETF TGB TH TI TJ TKa*TLFecha : CC$* Hora : C^(C12345A  6TM.t.$%NO PO @%QETMM4.and.betw(val(borrar.cod_ins),val(xdbie),val(xhbie)) <6TMM%.and.betw(borrar.cod_ins,xdbie,xhbie)#%R  SCX 6TMM%.and. between(borrar.bul,xdbul,xhbul)#%T  UCX 7TMM&.and. between(borrar.atr, xdatr,xhatr)FG-(+SET FILTER TO &Filtro #)+C+ F%GJh V%W %F+, %K CXCIX]C Lnea : [C,Z] C,,< C,Y Desconocida6ICIXTGG T6 T7 T8 T9 T: T; T< T= TK- C,T66T77T88T99T:: T;;!T<<"T==#T>>T??T@@TAATBB TCC!TDD"TEE#TF+,>+%+,&+.'C+, +,< - Desconocida6(C+. +.< / Desconocido6H%W CX CZFH  WM %Q *& CCgZ()\TMP\ I && ()\TMP\ W !& +()\TMP\TM.t.%[\ :TMM).and. between(borrar.lin_cod,xdlin,xhlin)%]^ J;TMM*.and. between(borrar.lin_gru, xdgru,xhgru)SET FILTER TO &Filtro *>$ !"#1() \TMP\rpt_pr_articulos_a_entregarQ)\TMP\.*GG(G*G ON ESCAPE &ONESC BU`TITULOLISTADOSDEY_FUNCXDPRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRN LINEWIDTHPICAXFECHAXDFECBORRARNEWFILEXBILENOBIEDATA_CODIGO_LARGOODEYFUNCGET_PATHCOD_INSBULATRDESCRANTERIORD1D2D3D4D5D6 POSTERIORTOTALLIN_CODGRU_CODLIN_DESGRU_DESP_LOCAL CHECK_OPENEDBIENESLINEALINEASGRUPOGRUPOSTCCVENTPEDIDOTVENTASFEC_ENT RECEPCIONTEMPTXTS0S1S2S3S4S5S6S7T0T1T2T3T4T5T6T7OLDLINPAGANCHOMAXLININICIALXTEMPFILTROXDBIEDATA_CODIGO_VACIOXHBIEP_NUMINSXDBULXHBULXDATRXHATRHEADERXDORDSUBTI_TABTOTAXDLINXHLINXDGRUXHGRUALL> TT,C12345A 61TC Pgina : CCZC>C CX!  C C  CC    CC    CC    CC    CC    CC    C  C !Cdigo Atr Bul !C Descripcin CAnterior  CC *  CC *  CC *  CC *  CC *  CC *  C Posterior  CTotal !-------- --- --- C-Q C- Q C- Q C- Q C- Q C- Q C- Q C- Q C- Q C- QTBU LINPAGXDPRNINICIALFORMFEEDTEMPANCHOXTEMP LINEWIDTHTITULODIAXFECHABU45 T TCM%$ $ JD&< 'TCdigo del Artculo.,TDescripcin del Artculo.&TLnea del Artculo.iC  6F arr_ord"Presione para seleccionar.9@&% sBaB-UXORDMAXORDTECLAARR_ORD#4H C)=BDomingo C)`BLunes C)BMartes C)B Mircoles C)BJueves C)BViernes C)BSbadoBUXDIA#   C "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ 5C     @z 9,999,999_T  BUCOD_INSATRBULBIENESDESCRANTERIORD1D2D3D4D5D6 POSTERIORLIN!  C Q C- Q C- Q C- Q C- Q C- Q C- Q C- Q C- Q C- Q!  C Q "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ 5C @z 9,999,999_TBU S0S1S2S3S4S5S6S7LIN!  C Q C= Q C= Q C= Q C= Q C= Q C= Q C= Q C= Q C= Q!  C Q "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ "C @z 9,999,999_ 5C @z 9,999,999_TBU T0T1T2T3T4T5T6T7LINHEADER criterioshlp_orddiaKlinea|subtxTOTAJ!At0qassaqqQAaAaAAAAAAAArAAqAaaaAaAQaAA2aA2qAsSqrqA2aAAA AA1Ar1aA1AAAAeaaaAI2raaararqqqqqqqqq!A2pA2qqQqqaAQAqAq2qQQQQ!QQQAA3q1!!!!!!!!QB2qqqqqqqqqq!rq!!!!!!!!QB2qqqqqqqqqq!rq!!!!!!!!QB18l   ;"M""$-3$&H&)%5ppAy %- a Ta TaTC$ T T T TTCXT CXT CXT CXT CXT CXG+(listadosG+(Dey_func TTC%CbienescodinsCatributocodigoCbultoscodigoClineascodigoCgruposcodigoCmovstock.T!betw(movstock.fecha, xdfec,xhfec)$%  %oET4.and.betw(val(bienes.cod_ins),val(xdins),val(xhins)) 6T%.and.betw(bienes.cod_ins,xdins,xhins)% 5T$.and. betw(bienes.linea,xdlin,xhlin)% a5T$.and. betw(bienes.grupo,xdgru,xhgru)F select movstock.fecha , movstock.codigo , movstock.atr , movstock.bul , bienes.descr as descr , nvl(atributo.descr,space(30)) as adescr , nvl(bultos.descr,space(30)) as bdescr , alltrim(alltrim(bienes.descr)+" "+alltrim(nvl(atributo.descr,space(40))) +" "+ alltrim(nvl(bultos.descr,space(40)))) as datrbul , bienes.linea as lin_cod , nvl(lineas.descr,space(30)) as lin_des , bienes.grupo as gru_cod , nvl(grupos.descr,space(30)) as gru_des , sum(iif(day(fecha)=1, cantidad,0)) as dia1 , sum(iif(day(fecha)=2, cantidad,0)) as dia2 , sum(iif(day(fecha)=3, cantidad,0)) as dia3 , sum(iif(day(fecha)=4, cantidad,0)) as dia4 , sum(iif(day(fecha)=5, cantidad,0)) as dia5 , sum(iif(day(fecha)=6, cantidad,0)) as dia6 , sum(iif(day(fecha)=7, cantidad,0)) as dia7 , sum(iif(day(fecha)=8, cantidad,0)) as dia8 , sum(iif(day(fecha)=9, cantidad,0)) as dia9 , sum(iif(day(fecha)=10, cantidad,0)) as dia10 , sum(iif(day(fecha)=11, cantidad,0)) as dia11 , sum(iif(day(fecha)=12, cantidad,0)) as dia12 , sum(iif(day(fecha)=13, cantidad,0)) as dia13 , sum(iif(day(fecha)=14, cantidad,0)) as dia14 , sum(iif(day(fecha)=15, cantidad,0)) as dia15 , sum(iif(day(fecha)=16, cantidad,0)) as dia16 , sum(iif(day(fecha)=17, cantidad,0)) as dia17 , sum(iif(day(fecha)=18, cantidad,0)) as dia18 , sum(iif(day(fecha)=19, cantidad,0)) as dia19 , sum(iif(day(fecha)=20, cantidad,0)) as dia20 , sum(iif(day(fecha)=21, cantidad,0)) as dia21 , sum(iif(day(fecha)=22, cantidad,0)) as dia22 , sum(iif(day(fecha)=23, cantidad,0)) as dia23 , sum(iif(day(fecha)=24, cantidad,0)) as dia24 , sum(iif(day(fecha)=25, cantidad,0)) as dia25 , sum(iif(day(fecha)=26, cantidad,0)) as dia26 , sum(iif(day(fecha)=27, cantidad,0)) as dia27 , sum(iif(day(fecha)=28, cantidad,0)) as dia28 , sum(iif(day(fecha)=29, cantidad,0)) as dia29 , sum(iif(day(fecha)=30, cantidad,0)) as dia30 , sum(iif(day(fecha)=31, cantidad,0)) as dia31 , sum(cantidad) as total , empty(movstock.atr) and empty(movstock.bul) as solocod , bienes.factor from movstock left outer join atributo on movstock.codigo+movstock.atr=atributo.cod_ins+atributo.clave left outer join bultos on movstock.codigo+movstock.atr=bultos.cod_ins+bultos.clave , bienes left outer join lineas on bienes.linea=lineas.codigo left outer join grupos on bienes.linea=grupos.codigo group by movstock.codigo, movstock.atr, movstock.bul where movstock.causa="P" and between(movstock.fecha, xdfec, xhfec) and movstock.cantidad>0 and movstock.codigo=bienes.cod_ins and &filtro into cursor query %^oqueryQXstockQ' CX''''I !"#$C% &C'&ay6Q$(C% &C'&ay6Q()C% &C'&ay6Q)*C% &C'&ay6Q*+C% &C'&ay6Q+,C% &C'&ay6Q,-C% &C'&ay6Q-.C% &C'&ay6Q./C% &C'&ay6Q/0C% &C'&ay6Q01C% &C'&ay6Q12C% &C'&ay6Q23C% &C'&ay6Q34C% &C'&ay6Q45C% &C'&ay6Q56C% &C'&ay6Q67C% &C'&ay6Q78C% &C'&ay6Q89C% &C'&ay6Q9:C% &C'&ay6Q:;C% &C'&ay6Q;<C% &C'&ay6Q<=C% &C'&ay6Q=>C% &C'&ay6Q>?C% &C'&ay6Q?@C% &C'&ay6Q@AC% &C'&ay6QABC% &C'&ay6QBCC% &C'&ay6QCDC% &C'&ay6QDEC% &C'&ay6QEFC% &C'&ay6QF%C% &C'&ay6Q&query2& C Z.(K\tmp\rpt_pr_produccion_diariaQBUL DEY_FUNC2P_DEV P_SUSPENDXDFECXDLINXHLINXDGRUXHGRUXDINSXHINSXDBULXHBULXDATRXHATRLISTADOSDEY_FUNCXHFEC CHECK_OPENEDFILTROOBIEDATA_CODIGO_VACIOP_NUMINSXDUNIQFECHACODIGOATRBULDESCRADESCRBDESCRDATRBULLIN_CODLIN_DESGRU_CODGRU_DESDIA1SOLOCODFACTORSDIA2DIA3DIA4DIA5DIA6DIA7DIA8DIA9DIA10DIA11DIA12DIA13DIA14DIA15DIA16DIA17DIA18DIA19DIA20DIA21DIA22DIA23DIA24DIA25DIA26DIA27DIA28DIA29DIA30DIA31TOTALQUERYSTOCKDEPOSITOQUERY2P_LOCALBQdB!qQBQaAAQAQAa2jBAB1% ]V K4)%Cxformulario_forzadobCI T&%Cxdestino_forzadobN T%%Cxdriver_forzadobC T%%Cxcopias_forzadobN TG+(listados T T T T T  T + listados  (T  \cpbt\ -logo.jpg T T%CCHQ Qchq%Cclientes QclientesFG((opago EFG((recibo ETC%CdepositoFQh1\tmp\C C( C!N"N#N$N %D&C 'C(Q\tmp\F(G((cuenta E) T* T+T,(-T.( T/%T0C1124C1248mC1372UC1496=C15 120$C16 144 AL COBRO666666F+C+  FT**2T++F(G((cuenta E)F G((idEC$ZC4ZFG((codcli E6rdeposito !"#%$&'(-( 7289:$C; & C<C X6C; ' C=C(X6FH T>T?DepsitoFT@ABTCDETFDGTHAITJDECCZTK.t.!TLC@z 9999,999,999_TMDTNC@6TOCC6TPCF6TQCH6?RlistadosNOPQJKaaaaa%CdepositoFQ \tmp\.dbfBUSXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOLISTADOS ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUACHQCLIENTESCOM_OPEROPAGOXOPAGOVEN_OPERRECIBO XDEPOSITONEWFILEDEPOSITOP_LOCAL DESDE_CUECUEDESCRDESCRIMPORTE IMPORTE_MEMONEDANUMEROFECHACUITEMISORCUENTASCUENTAZTOTALZVALORESZCUENTAABREV ZCUENTA_DESCRZFECHA ZCLEARINGHORASCAJ_PROIDSUBNUMCODCLIOCODIGODES_VALMONEXTMONPASE DIF_VALORTERC INSCRIPCIONOMBRE ZCOMPROBANTEZTIPOCOMPROBANTE XFORMULARIOCONSDPFORMXDESTINOLOCALESTE_004XDRIVERDPXCOPIASDPCOPIAS XIDARCHIVO XFILTRODATOS ZIDCOMPROBZIDCAUSA ZFORMULARIOZDESTINOZDRIVERZCOPIASIMPRIMIR_FORMULARIO1AbARARA.SAAArrqAA^ rq rqrrrr rAAQsqqAAB3% TN Kш4)%Cxformulario_forzadobCI T&%Cxdestino_forzadobN T%%Cxdriver_forzadobC T%%Cxcopias_forzadobN TG+(listados T T T T T  T + listados  (T  \cpbt\ -logo.jpg T TFG((opago EFG((cuenta E T TFG((recibo EFG((cuenta E T TT !T"#T$C#% T& T'T()T*!T+#T,C#% T- T.T/)T01T23 T4T5 Extraccin%CborrarF6QT7C8)h19\tmp\7:CQ9\tmp\76T;<=T>?@TA?BTC<DTEEXCCZTF.t.!TGC@z 9999,999,999_THXTIC;6TJC>6TKCA6TLCC6?MlistadosIJKLEFaaaaa%CborrarpF6Q 9\tmp\7.dbfBUNXFORMULARIO_FORZADOXDESTINO_FORZADOXDRIVER_FORZADOXCOPIAS_FORZADOLISTADOS ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVA DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUACOM_OPEROPAGOXOPAGOCUENTASCUENTA XCUENTA_CREABREVXCUENTA_CRE_TXTDESCRVEN_OPERRECIBO XCUENTA_DEBXCUENTA_DEB_TXT ZIMPORTE_CREMONEXT ZMONEDA_CREMONPASEZMONEDATXT_CRE MM_MONEDA ZCUENTA_CREZCUENTATXT_CRE ZCAMBIO_CRECOEFIC ZIMPORTE_DEB ZMONEDA_DEBZMONEDATXT_DEB ZCUENTA_DEBZCUENTATXT_DEB ZCAMBIO_DEBZFECHAFECHAZNUMERONUMERO ZCOMPROBANTEZTIPOCOMPROBANTEBORRARXBORRARNEWFILEP_LOCALNADA XFORMULARIOCONSEXFORMXDESTINOLOCALESTE_007XDRIVEREXXCOPIASEXCOPIAS XIDARCHIVO XFILTRODATOS ZIDCOMPROBZIDCAUSA ZFORMULARIOZDESTINOZDRIVERZCOPIASIMPRIMIR_FORMULARIO1AbARARA.rrrrqrqAAQqrqAAB3%ONSN =>I5TPTNTNTS)J(   +    % PT OFQcuenta.G(C\SCB\S Tْsubs(a->atributo,19,1)='S'.or.subs(a->atributo,20,1)='S'.or.subs(a->atributo,21,1)='S'.or.subs(a->atributo,36,1)='S'.or.subs(a->atributo,37,1)='S'SET FILT TO &xfiltro FQproveedocodproFQclientescodcliTCh1\tmp\DDCNNNNC  N!N"N#N$N%N &C'N(D)D*C+N,C-C.C/C0C QFQ\tmp\F>G((cuentaT2BAFQ3\saldoscuentaG(4C X#) ~F E54%C4>55%T2C25 526F%6SF>55 T27F T8 T9F FQ3 \ven_operFQ3 \com_operF,T:ven_oper.cuenta=cuentas.cod_cue%;SX3T::".and.xtop_saldo-10<=ven_oper.fecha.T::.and.ven_oper.fecha<=xhfec+10%6NT.T::.and.ven_oper.fecha>=xdfec-10 0T::.and.xtop_saldo<=ven_oper.fecha+T::.and.ven_oper.fecha<=xhfec%6N+T::.and.ven_oper.fecha>=xdfec=T::C<C X.and.xdcue=cuentas.abrev6%=N}(T::.and.ven_oper.causa#"L"% T*T::.and.ven_oper.causa=xdcau%;S- Vselect iif(ven_oper.causa="D".and.horas#" " ,ven_oper.fecha+fn_clearing_dias(val(ven_oper.horas)),ven_oper.fecha) as fecha, ven_oper.fecha as freal, ven_oper.asiento , ven_oper.des_clie , ven_oper.cod_cli , ven_oper.recibo , ven_oper.voperacio , ven_oper.ingtes , ven_oper.des_val , ven_oper.numero , ven_oper.emision , ven_oper.dif_valor , ven_oper.caj_pro , ven_oper.cuenta , ven_oper.horas , ven_oper.causa , ven_oper.pase , ven_oper.cuenta2 , ven_oper.ref from ven_oper,cuentas order by dif_valor where &filtro into cursor ven readwrite  Wselect fecha , ven_oper.fecha as freal, asiento , des_clie , cod_cli , recibo , voperacio , ingtes , des_val , numero , emision , dif_valor , caj_pro , cuenta , horas , causa , pase , cuenta2 , ref from ven_oper,cuentas order by dif_valor where &filtro into cursor ven readwrite F>& CG-(GF G%6S EC2  EC7G GF+C+ @ %7 TACOF->>>1A">"&>B,>C#>#'>D%>%*>*+>+(>()>)C>E >E6C>E >Ec6>.>.->-0>F%>-L} TG TH(%CGH>">IFJG((asiento E>"FK,+C+ >"" >LL /H$%>"" >LL E>/CCC+ZC/[CC+Z]C/ JJ/6 q6CAsiento CC>"Z no encontrado !!!MCOC>" ZL6Asiento no encontrado en el diario y s en auxiliares.5Asiento no encontrado en el diariog y si en ven_oper.NF%-DXF E>P%C4F>&Q,F>->- F E>%>F E>%C4P>C>E >E6C>E >Ec6F>HF,T:com_oper.cuenta=cuentas.cod_cue%;ST::.and.betw( iif((com_oper.causa="O".or.com_oper.causa="L").and.com_oper.tipo="1", iif(com_oper.dif_valor>com_oper.fecha, com_oper.dif_valor,com_oper.fecha),com_oper.fecha), xtop_saldo, xhfec)%6NT::.and.iif((com_oper.causa="O".or.com_oper.causa="L").and.com_oper.tipo="1", iif(com_oper.dif_valor>com_oper.fecha, com_oper.dif_valor,com_oper.fecha),com_oper.fecha)>=xdfec M0T::.and.xtop_saldo<=com_oper.fecha+T::.and.com_oper.fecha<=xhfec%6NI+T::.and.com_oper.fecha>=xdfec=T::C<C X.and.xdcue=cuentas.abrev6%=N(T::.and.com_oper.causa#"L"% T *T::.and.com_oper.causa=xdcau%;S~select iif((com_oper.causa="O".or.com_oper.causa="L").and.tipo='1', iif(com_oper.dif_valor>com_oper.fecha, com_oper.dif_valor,com_oper.fecha),com_oper.fecha) as fecha , com_oper.fecha as freal, com_oper.asiento , com_oper.des_prov , com_oper.cod_pro , com_oper.opago , com_oper.operacion , com_oper.des_val , com_oper.numero , com_oper.emision , com_oper.dif_valor , com_oper.caj_pro , com_oper.cuenta , com_oper.horas , com_oper.causa , com_oper.cuenta2 , com_oper.tipo , com_oper.pase , com_oper.ref from com_oper,cuentas order by dif_valor where &filtro into cursor com readwrite select com_oper.fecha , com_oper.fecha as freal, com_oper.asiento , com_oper.des_prov , com_oper.cod_pro , com_oper.opago , com_oper.operacion , com_oper.des_val , com_oper.numero , com_oper.emision , com_oper.dif_valor , com_oper.caj_pro , com_oper.cuenta , com_oper.horas , com_oper.causa , com_oper.cuenta2 , com_oper.tipo , com_oper.pase , com_oper.ref from com_oper,cuentas order by dif_valor where &filtro into cursor com readwrite FRG-(FR& CGF G%6S EC2   EC7G GF+C+ @ %7 TACOF>>RR2A"R"&RS,RT$R$'R'*R*+R+(R()CR) R)R6CRE REc6CRE RE6R.R.-R-0RF%R-Ls TG TH(%CGHR"RIFJG((asiento ER"FK ER",+C+ R"" RLL aH$%R"" RLL %JU2E>/CCC+ZC/[CC+Z]C/ JJ/6 TVR+TWR"yocom_operproveedoXT&XTT X+V XE X"W CXT Y% >/CY yoven_operclientesZC&ZCC Z+V ZE Z"W CZC Y% Z>/CY ">/RETIRO X VENTANILLA g6CAsiento CCR"Z no encontrado !!!MCOCR" ZL6Asiento no encontrado en el diario y si en auxiliares.5Asiento no encontrado en el diariog y si en ven_oper.NF%-DXF ERP%C4F>&Q,F>-R- F ER%RF ER%C4P>CRE REc6CRE RE6FRHFG-(G-(,G-(,T]\borrar`& ^_C  Z6CCC1#$6 @z 99,999,999_(]G-(,G-(,<`7`F TaG FXh1\borrar1C bCcC D*C+N (DdDNNeNNfC(gL0C FYh1\borrar2C hC iCDjNkNNlNmNnLQ\borrar2 To TpA TqB Tr TsTt-- TuaTvegrregrewgwrege Tw Tx Ty#)*TzFecha : CC$* Hora : C^FG((abrevGT::substr(a.atributo,21,1)="S".or.substr(a.atributo,66,1)="S"SET FILT TO &filtro #)+C+ x4 T{CO T|- T}+}aR$%C}`4=$ T|a!T}}%| $TaaT`a4T`aT`aFG E_G +4C+ _4 T|- T}+}a%%C}`%%T`}C}`%T`}C}` T|a!T}}%| '&TaaT`aT`aT`a%x`&Tw TxTww >w%pq&%v'%u &Tpp Tr Ts Tv%pq'FG((cuenta EG((abrevFT~_T8T9FS>4h_iQ7j8k989FTpp Tu-%-DP($T[CCCC.gZ] >&&T TC XT T%1-H(- L-*%#))#TRC C# @z 999,999_,T(AS CC" @z 999,999_)  V)#TAS C" @z 999,999_9TCCC+&[CCCVA] &6=%C/)7TCCC+[CCCVA] 6/=TAS!TC"@z 9999,999,999_ D-*#TDE C# @z 999,999_TC&=TDE!TC#@z 9999,999,999_ E-+#TEX C# @z 999,999_TC&=TEX!TC#@z 9999,999,999_ d-+#TDP C' @z 999,999_9TCCC+&[CCCVA] &6=TDP!TC'@z 9999,999,999_ #% O,#TAJ C' @z 999,999_9TCCC+&[CCCVA] &6=TAJ!TC'@z 9999,999,999_ #% ,#TIT C% @z 999,999_9TCCC+&[CCCVA] &6=TIN!TC%@z 9999,999,999_ 2-#TRC C# @z 999,999_9TCCC+&[CCCVA] &6=TRC!TC#@z 9999,999,999_ 2H-2 L-y/%$$.#TPA C$ @z 999,999_,T(AS CC" @z 999,999_)  ^.#TAS C" @z 999,999_ T9TCCC+&[CCTVA] &6=%C/.DTCCC CC+[CCTVA] 6/%$;/TPA!TC$@z 9999,999,999_ u/TAS!TC"@z 9999,999,999_ D-/#TDE C$ @z 999,999_TC&=TDE!TC$@z 9999,999,999_ E-k0#TEX C$ @z 999,999_TC&=TEX!TC$@z 9999,999,999_ d-0#TND C$ @z 999,999_TC&=TND!TC$@z 9999,999,999_ $1#TAJ C' @z 999,999_9TCCC+&[CCTVA] &6=TAJ!TC'@z 9999,999,999_ 22#TPA C$ @z 999,999_9TCCC+&[CCTVA] &6=TPA!TC$@z 9999,999,999_J%C t(CC-D ;N )6*t6!3%S2 TaTpp 2 T-%2 Tt  3.TtCC-D ;N )6*Te K3 T-TeeF >~ >b >c>>**>++>((>d)>>>e e> >f>00 >gFTrrTssHF #{HF& (\borrar2]F9((\tmp\rpt_te_depositos_extracciones_c.dbfQ%5F>cCcbRCF7(&\tmp\rpt_te_depositos_extracciones.dbfQFQ\tmp\.*BUXDPRNXDDETXDINGXDXLSXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNXDCAU_CUENTASCUENTAATRIBUTOXFILTROPROVEEDOCODPROCLIENTESCODCLIXARCHNEWFILEP_LOCALFECHAFREALFROMNUMDEBITOCREDITOSALDOXEMPSALDOACASIENTORECIBOOPAGOINGTESNOMBRE OPERACIONEMISION DIF_VALORDES_VALNUMEROCODIGOCAUSAHORAS COMENTARIOREFINTALL XTOP_SALDOP_PRIVCOD_CUESALDOSXDSALXDFECXADEBXACREFILTROXDDIFXDCUEXDASIVENAXHFECREGISTRODES_CLIECOD_CLI VOPERACIOCAJ_PROREFXERRXERRMSGBUSCAR_ASIENTOCONCEPTODIARIOGPASEMENSAJEUSER_LOG PUB_INDEXCUENTA2DESCRCOMDES_PROVCOD_PROTIPO2 XCOM_NUMERO XCOM_ASIENTOCOM_OPERXARR_TMPVEN_OPERCBBORRARCUENTASABREVARRMAXARRTIPOCOMPROB FECHA_DEPSALDOPCOMENTDOSEPCUE_ABVCUE_DESDEBEHABERT_DEBET_HABERDONTSHOWPAGLINMAXLINACC1ACC2XTOLDINICIALOLDCUEACCXXMXTEMPREGISENCZXXABREVBORRAR2XH FN_CLEARINGXXTIPO XXCOMPROBXTXUXT2XDORDXDSEPXDOSEPBORRAR1DP_MULTIRECIBOS FMT_RECIBO_CFOR TT+C1234A 61TC Pgina : CCZC> /#Listado de Depsitos y ExtraccionesGDesde : C* Hasta : C* Apertura : C * Comprob.  FechaCX " DescripcinC X "CX Nmero EmisinCX DiferimCX CXDebitos CXCrditos  S.Parcial C XSaldo $Orig./Dest./Coment.  ---------- -------- %--------------------  ----------- -------- -------- -------------- -------------- -------------- -------------- &--------------------------TBU LINPAGXDPRNINICIALFORMFEEDTEMPXTEMPXDFECXHFEC XTOP_SALDOdTCreporteN&CDestino............0CCuenta.......................0CFechas.......................0CAsientos Contables...........0C Fecha de Apertura............0C Saldo Anterior...............0C Orden........................0C Fechas de Diferimiento.......0C Causa del Movimiento.........0CSeparacin de Movimientos....0CSalida Excel (XLS)...........0CFecha del Chq=Fecha del Deps T|C xdprn@!J[P]=Pantalla, [1]=Lpt1, [2]=Lpt2, [3]=Lpt3, [4]=Com1, [5]=Com2 o [0]=Salirxdprn$'P123450'C xdcue #########Presione para ayuda.Ghlp_cue(xdcue,"substr(atributo,21,1)='S'.or.substr(atributo,66,1)='S'")<C xdfecFecha de Comienzo del listado.:C2xhfecFecha de Cierre del listado.NC xdasi@!![S] = Incluye Asientos Contables. xdasi$'SN'DC  xtop_saldo!Fecha de apertura de las cuentas.FC  xdsal@![S] = Con saldo anterior. xdsal$'SN'LC  xdord@z 9Presione para ayuda.hlp_ord(xdord)*C  xddep Fecha desde.*C 2xhdep Fecha hasta.C  xdcau@!Q[T]=Todos, [X]=Extracciones, [D]=Depsitos, [L]=Asientos, [P]=Pagos, [R]=Recibos.xdcau$'TXDLPR'vC xdsep@!.[S]=Separa los movimientos, [N]=No los separa. xdsep$'SN'Debe responder S o N !!!C xdxls@!>[S]=Crea un archivo llamado borrar.xls en el directorio local. xdxls$'SN'Debe responder S o N !!!rC xddif@!*[S]=Fecha del cheque = Fecha del Depsito. xddif$'SN'Debe responder S o N !!!Ta <BUOSAYXGETGETVISIBLESHOWb@C/D E P O S I T O S Y E X T R A C C I O N E SLCDesde : C* Hasta : C* Apertura : C*CtCuenta Saldo Anterior Dbito Crdito SaldoCt---------------------------------------- ------------------ ------------------ ------------------ ------------------TCCWZFG((cuenta T T T T T + EC  ,T CC  999,999,999,999.99_,T CC  999,999,999,999.99_TC  TC  @TCC  C  999,999,999,999.99_(TC999,999,999,999.99_T-TC  C  IC CCX=      FEC  %C4 Y>a '>C  C  FT  SELE &selbase Ct ------------------ ------------------ ------------------ ------------------$T C999,999,999,999.99_$T C999,999,999,999.99_$TC999,999,999,999.99_$TC999,999,999,999.99_BCC X CX      BUXDFECXHFEC XTOP_SALDOSELBASECUENTAACCDACCCACC1ACC2ZMAXARRARRDCEDEBITOCREDITOFABREVDESCRBORRAR2COD_CUECUE_ABVCUE_DESDEBEHABERSALDODONTSHOWT_DEBET_HABER45 T TCM< 6T#Ordenado por la Fecha del Depsito.8T%Ordenado por la Fecha de los Cheques.%$$LISTBOX(arr_ord% BaB-UXORDMAXORDTECLAARR_ORDLISTBOXXTIPOHEADER*: criterios9>borrarEhlp_ordMBAA 1Aq3QQAACAqqB2AAAAAAAEABpa%pqAriaAAaa2Q`sqsAAAQAa AAQAAaAAArAAB A AAAABAFACp'pArtcaAAaa2Q uqrAAAaQ"a"a!AACAa AARAAaAAArAAr1ja QQqqQAAAAAbaAQQAAAA2QBQsB2AqBrQ8BBAAAA111AQqAB1!B1!B1111AA111AQAA2AA1!A1!A1!111AABA2AQAsQqAAAArrrAqArqAAB4qq!!AqQaA5sbBb"bb"rC:qrqrqqqqrqQqqQAqqQrQrAArqQrqAAAA!C2qqra2AAqAq>Y]1']dRdl:lo% ,0,---0-0AF-H%Cchp QchpF6 G((idF8G((fechaG-(/G-(9 "G-(C ZC:Z6%;G(Cchp+ C/< GGF EC.GFG 5+C+ 1 2CX 3CX % %45 %=S / /   >c >c  >CC6?@ CACC6ҡ-6  TBTCC8D TE TF TG TH%8L TI TJ(%CIJ8L8Kj FMG((asiento E8LTN+C+ L8L 6%O8O TNCO .%CMPMQG*TGCMPMQ THCOH%H #H'%CMRcuentascuentaTE/TF/S%Nf #NF G((codcli EM%C4 TB FMFM!%CTgUCT F TCCVV b TCCMT  %W TCError interno !!!  *TBCC8X 8X 6F>888>c88C8988B-)CCCf*E+FF8H%Cchp QchpF6 G((idFUG((fechaG-(TY propio='S'"%2CX 3CX %Z 5TY(BETW(VAL(cod_pro),VAL(xdpro),VAL(xhpro))  &TYBETW(cod_pro,xdpro,xhpro)%;D xTYYg.and. iif(substr(cuentas.atributo,116,1)=[S], debitado#[S], eof([chp]) and !empty(cuentas.complement))"G-(C ZC:Z6G-(/G-([ set filt to &filtro GGF EC.GFG +C+ 1 p%a%45 ]%=S / /    > >  >CC6?@ CACC6ҡ-6  YTCCUD TE TF TG THT\/<%UL TI TJ(%CIJULUKFMG((asiento EUL+C+ LUL %OUO TNCO %CMPMQG TGCMPMQ THCOH%H #H'%CMRcuentascuentaTE/TF/S%N #N TBH ]P!F G((codpro EM%C4TB FM ]CF G((codcli EM%C4uTB FM 2 TBFM!%CTgUCT TCCVV TCCMT  TB %CU[ ]*TBCCU^ U^ 6 %UDTBU_  TB TE TF TG%Ccompras Qcompras%U[aF` G((pago EUcTCC+C+ bUc ,TCCCCC, 6C`d%C`eG TGC`e'%C`RcuentascuentaTE/TF/SF`H %Cccprov QQccprovFfG((comprob*TgU[UUCZCZ Eg0%C4fhCcd123 fi F` G((op EfiTCC +C+ jfi ,TCCCCC, 6C`d%C`eGTGC`e'%C`RcuentascuentaTE/TF/SF`H Ff>UUU>UUPU[UUB-#CC\ CCchp+ SN6 6$CC\ #CCchp+ 6 6U6%CC\ CCchp+ 6L 6 6)CCCf,CU,SN6*E+FFUHF-G((chequeFG-(C Z-%;Cchqanu+ O>CCDCPQA66Cchqanu+ (%  qvH7B  gC '& C Z(\tmp\G-(8%C2C3    qvH7B F/G((cuentaF-G-(C ZG-(/H~Cborrar+ C0.1 C/ C FB>---0-0AF-%n FG-(/G-( G-( GIH1o oh$& CZ(\tmp\ o$& C(\tmp\ o$& C(\tmp\ o  & CZ(\tmp\ o< & C(\tmp\ oo & C(\tmp\GI G #)Tp Tq Tr TsTt ~"%q Co 2 TsTt Tq Tr%oo TuCv%utTwut Tssw Tr Ttu8>!Cs'F"Cu&u'uTrr >(r%x^%pM >a Tp%AH! C CX Ty[] ! P CX Ty[] ! D CX F$Ty ANULADO [] ! Q CX $Ty ANULADO []  2 Ty TyANULADO > y>/S/%z h1\tmp\C C SC({N|N}NQ\tmp\s(6i1borrar1FCC$sN& (\tmp\F ~ F E%C4 ~*>ST~?T~~CC)CC)66%~C$ >{{  %~C$3 >|| | TFC~+replace &xxx with &xxx + borrar.importe >}}%z F  F,(\tmp\rpt_te_cheques_emitidos%Cborrar!FQ \tmp\.dbf \tmp\.idx \tmp\.cdx%Cborrar1!FQ \tmp\.dbf \tmp\.idx \tmp\.cdxBULISTADOS CO_FUNCIONESBORRARBORRAR1XDPRNXHCUEXDCUEXHNUMXDNUMXHIMPXDIMPPROVEEDOCODPROCLIENTESCODCLI_CUENTASCUENTAP_PRIVP_COMMONP_LOCALABREVCUE_NOMNUMEROIMPORTECOMPROBCAUSACLIPROCODIGONOMBREFECHA DIF_VALORNUMERERRNOMBREFSEMANASEMANA2DEBITADOFEC_DEBASI_DEBDESDEHASTASALDOTXTCUENTA2DCUENTAECHEQUECHQANUXDEMICUENTASHOYXHEMIXDPROXHPROXDFECXHFECCHPIDVEN_OPERCOD_CLISUBNUMXDPEN COMPLEMENTPROPIOCAJ_PROXDDEBXHDEBXINCLUYE_NO_DEBITADOSXNOMBREXTXTREFXCUENTAXDCUENTAXIMPORTE XREGISTROXERRXERRMSGBUSCAR_ASIENTOASIENTODIARIOGXREGPASEDEBITOCREDITOCOD_CUEDESCR COMENTARIOCOM_OPERCONCEPTOP_DEVDES_CLIEFILTROP_PRONUMCOD_PRO XCOMPLEMENTPROCLIDES_PROVDES_VALCOMPRAS P_PROVCONTPAGOOPAGODESC_INSTOT_COMCCPROVXIDCAUOPROPCHEQUEINFORXDANUXDORDULTNUMZCUEXSALDOZZ_FECXLUNESFN_DOW2XINCXDASTAAAXDTIPANTERIOR POSTERIORTOTALXFECHAXXXq4%C)% B j%C)M B fBC)UXF~4%C)) B w%C)U B sBC)UXF8%te_rpt_cheques_emitidosJ BUOFORMTE_RPT_CHEQUES_EMITIDOS# CUXDFECXHFECEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aH  T-TC  A   yTa   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDCUEXHCUEXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR 1QEXPORTACIONES_CRYSTAL Imp_exp.vcxPTCexportaciones_crystal Imp_exp.vcxte_rpt_cheques_emitidosT\tmpTT Ta C BU XTABLAXDCONOEXCFIL_DIRECTORIOP_LOCAL FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG3 EXP_TABLAfn_dowT&fn_dow2& obtener_form[' ejecutar_sql'ejecutar_reporte(%exportar_cheques_diferidos_pendientes*#sQrQA"aAAQAAqqQ!qbaaa1rQ&AAqAAAUAqr!AcaaaT1 !rqaAAAA2rAB2rAqr!!ABAAArQ FAAqAARAqsar!QaAAB#rbaaa1 "tqaAAAA2rAB2AqAqBqAqAr!!ABAQqAA1Aar!rAArAA!Arr"!rAArAACACrQaBAAqAArrqrArbrrsQ&rABC!Arb1A1A1A111AbbR1!1A!qbAAqAAAAAAAAB2jaArqQAB"AAAAAABB4qqArqAAqAAB2qRQAA2qRQAAA1qR3Q3AAA1Q1111AA3"AB1>>>t??1@V@@@JD DbF<%6;:79wWmu G+(dey_funcG+( dey_filtersG+(te_pagos_aplicaciones"C Iniciando... T rpt_te_pagos T-%4H0  TC  TC 20C ERROR !!!  y `TC u Ta5 Ta% S T @%  <(C  CC Datasessionv C%"!%Ctmp_consolidado1vFQ!Q\tmp\F (i1tmp_consolidado1C> $(\tmp\tmp_consolidado1 T- -%CtmpHQFQ\tmp\ i1tmpC> Q"%Ctmp_consolidado1 (Q\tmp\tmp_consolidado1F\tmp\ T-TC (C  CC Datasessionv  C!!%Ctmp_consolidado1F (Q\tmp\tmp_consolidado1(\tmp\!%Ctmp_consolidado1OQ %Cempresas Q" \empresasCempresascodigoC  T-%#j %C$ %CborrarQ%Q\tmp\%oborrarC&iQ'CC&H ?8Q()Q*+C,Q,-Q./Q0Q1CXQ24 5O '()+3/+pagos_1 ~+>1C01>2C12)(7\cumplimiento_de_pagos_1Իopagos_1'(*+C,Q,C1Q1CXQ2'(*+'(+cumplimiento_de_pagos_2 ~>2C12)(7\cumplimiento_de_pagos_2Իocumplimiento_de_pagos_2'(C+Q9C,Q,2'(2'(+cumplimiento_de_pagos_3)(7\cumplimiento_de_pagos_3Ի%Cborrar Q% f MC@No existe la carpeta GES EXPORTACIONES y no puede ser creada !!! BBU;DEY_FUNC DEY_FILTERSTE_PAGOS_APLICACIONESOESTADO SET_AND_SHOWXREPORTE_LOCAL1XZAFARXDCONOCOLLGESFORMEMPRESASGET_CONSOLIDARMENSAJEXOLDEMPXPRIMERA_EMPRESAP_CODEMPOEMPDOSGET_DATOS_EMPRESA_SIMPLEP_SERVERP_UNOP_DOSP_DOSCENCARGAR_DATOS_ENTORNOEJECUTAR_PROCESOABREVTMP_CONSOLIDADO1P_LOCALEMPALLXINICIALTMP GET_PORCODIGO OPEN_FILESP_SYSTEM XEXPORTAR EXPORT_DIRBORRARFECHAANO TRIMESTRECLIENTE PROVEEDORNOMBREIMPORTERECIBO COMPROBANTEDESPL_FCDESPLAZAMIENTOPUNTAJE CALIFICACIONCOMPROBISENCACAUSAPAGOS_1 P_DIR_EXPORTCUMPLIMIENTO_DE_PAGOS_2CANTIDADCUMPLIMIENTO_DE_PAGOS_3CProveedocodproCccprovCcccompCComprasCchqCchqanuCccpagCcatpro%Ccuentas QcuentaCCom_OperBU CHK_OPENED_CUENTASCUENTACUENTAS CTCFBh1DN N NN C C  C N  N CNN NDDLLLLLCC LLLLC C !C"C #C$C%N&N'C(N )C*M+L,N -N .N/C0C 1C(2C 3Cd4D5N 6N7N 8N 9C:N ;D<N=C>C?C@C(QA& ''& 'B& C Z & C ZCCchqNumeroDFE&TFopago#0 .and. !causa$"DX";TFFCHIhoycom_operxdhoyxhhoyG=TFFCJKfechacom_operxdfecxhfecGCTFFCMNCod_proCom_Operxdproxhpro-L=TFFCPQoPagoCom_OperxdpagxhpagO%CR CS S9TFF( and between(proveedo.cat, xdcat, xhcat)%TS&TFF.and.cod_pro#space(6))CObteniendo operaciones...UVFEset filter to &xfiltro G-( WG-(XYG-(ZH [G((opago%PQ sGF EPGF #) [G((fecha*%JK GF G ECJG GF #)T] G%+C+ T^E\]T]E\T_E`FAECE\Z%C4 C4a  = >9EE\EbCEc EcE6 CEX  0 EX6CEX0  ANULADO.CYdS YeS EfY66$E$^-> E WgWh _Eb E\CEi1 E 6CEi2 E 6>7E78E8&%CCHQ+ ZE V>ZZiZZZ Z  Tj TkBl te_sql_pagosjkEiEnAAA >A<j=kFoG((comprob&EEXE"E$CZCZ Tp Tq Tr TsL+C+ 9X"$CZCZEXE"E$CZCZ !TtX1uCvZCwZ TxCO Tsy Et%C4c Tz{ #x)TppozoyocTqqocH%q Trpq  TrFA9>,s-r.Cr./CCr.|FE )>E\aEb %- > E WgWhCEc EcE6 E`Eb E\$E$--CEi1 E 6CEi2 E 6>7E78E8&%CCHQ+ ZE I>ZZiZZ Z  >Eb>A1E1%EnSF}G((chequeEE CE Z%C4FA >+aFA2TEXCE\@z 9999,999,999_E$ >''%E"E$"$K-%CE"E$ccpagcomprobG>00 e>00%Ccatpro QcatproFG((codigo EY(FA>()gFEHFEQFA%a%Cq*FQ,oborrar CQ q ~FAG((identifeEC Z>%CqFQFAG((> FA%[ & $& )CComprobando numeracin...UVFA#)T T T+C+ T%C  >%%   H%C  >aH%C Z%Sy%C Z` >a u >-TC ZHFA%C  H%C T >% >a1C!Buscando datos de comprobantes...UV%:C aplicaciones%Cq_borrarrQoborrarQ Q$ QX'CCCHEQUE=SINO6Q> $ 'tgetcomp%  T T- ~m&TCX$aF G((linkFAG((linkfFG-('G-('A T TCN T9C"Agregando datos de comprobantes...U ~TIC"Agregando datos de comprobantes...CCZ / CCZUV0+''C Comprobantes+ TTA%FAT'T><Goborrar  9 'rborrar!"#$4 65*'%&23  9:; >?@!"#$X{*'a23CCCCCC:;C?@H%Cq_borrar QFQFAC pos procesoFA& %'&#)+C+ % H%C  >aH #)HFA%C  H%C  >a$CExportacin final...UV!(\tmp\rpt_te_pagosFAQ%C ComprobantesFQ.*!%CComprobantes_detFQ_det.*.*BUXEMP OPEN_FILESXBORRARNEWFILE_LOCAL_TMPFECHAINGTESRECIBOIMPORTEIMPORTE2CLIENTECUENTADETALLEIDENTIFIDENTIF2NOMBREACCNUMEROAPLIC DIF_VALOR DIF_VALOR2ISENCA HASCHILDSISCPBTISFIN ISFINCPBT CUENTADESC CUENTAABRE NUMBERERRTERCECHEQUEDIFERIDOEMISORCUITTIPOCPBTCOMPROBCOMPROB2CAUSAORDENORDEN2LINKCATDCAT CONCEPTOSANULADODESPL_RCDESPL_FCPUNTAJECALIFRECIPROVREF IMPUT_CUE IMPUT_DESCPBT_FECCPBT_OPCPBT_IMPBANCHQNUMCHQEMPOCOC_FECMEDIODMEDIOAUXCENTRODCENTROBORRARLINKFIDENTIFE CHK_OPENEDCOM_OPERXFILTROFIL_GET_FEC_FILTERXDHOYXHHOYXDFECXHFECFIL_GET_PRO_FILTERXDPROXHPROFIL_GET_NUM_FILTERXDPAGXHPAGXDCATXHCATXDSPROESTADOAVANCECUENTASCOD_PROPROVEEDOCHQXDORDOPAGOXOLDXNUEVOXDES_VALDES_VAL XCON_DETALLECAJ_PRO GANANCIASCONTADOTARJETADES_PROVDESCRABREVTIPOXMEDIOXDMEDIOFN_MEDIO TE_SQL_PAGOSPROPIOCCPROV XACCIMPORTEXIMPORTEXDIASXDIASRCXREFCAUCUOOPRXREGDIASXVENCVENC CALIFICACIONCHQANUCHEQUEXLINKCCPAGCATPROCODIGOQFORULTNUMXIDXNUMXDASTXDCPBSYS_MQ_BORRARBRNOPAGOTGETCOMP XCOMPROBANTES XINICIADOPAG_APLICA_FILL COMPROBANTESXORDEN2 XMAX_XPBT XACC_CPBT SET_AND_SHOWXORDENXAUXARRDISTINCTAPLICADOCUOTAOPFINALP_LOCALCOMPROBANTES_DET4H C  AB MUY BUENO Crt#@nBBUENO CN`@BREGULAR 2 BMALO BUXPUNTAJE4H C3&k @ B  C-C6?h B CǺ>@- B 2 BBUXDIASH0v 1%S% TT ECHEQ PROPIO % T#TCHEQUE PROPIO DIFERIDO   T TCHEQUE PROPIO COMUN %M TTECHEQ % TTCHEQUE DIFERIDO  TT CHEQUE COMUN 2lHh EFECTIVO- T TEFECTIVO TRANSFERENCIAt T T TRANSFERENCIA" DEBITO BANCARIO T TDEBITO BANCARIO DEPOSITO T TDEPOSITO TARJETA7 TTTARJETA 2h TT OTRO EFECTIVO 3H 2 TT OTRO AJUSTE 4 T!TDIFERENCIA DE CAMBIO 5R T+TDIFERENCIA DE CAMBIO NO TOMADA 2v T TBUXMEDIOXDMEDIOXTIPOXPROPIOXECHEQUE XDIFERIDOXDETALLE- te_rpt_pagosJ BUOFORM TE_RPT_PAGOS;!CUXDFECXHFECXDPROXHPROXDTIPEJECUTAR_REPORTE TC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aT aT aT aH A T-TC k   Ta   b  c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDPROXHPROXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMXDLOG4XDLOG5XDLOG6MOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR open_files: ejecutar_proceso_ calificacion,puntaje-fn_medioi. obtener_form23 ejecutar_sql|3ejecutar_reporte3!Q!11qbAAArrqAAqABBAQA"ArECBqAAAAtA !!A= !ArAAAAD211A1!1ARB2q!4Aarb1ABaAq1aaQA1aaaaQAARsS bgA!rbBaBA2ArrQ\bABAB2sqqAAq"rAA!AqrrAArAr!qAAqB"qAAraAAr1AqQAAAAQAAAAAArAAA "aArqurrqAABArArDrQAQAAAArAABsAqAAqAQAC2qq!A1qAA2AB1AA!AAABQ!QAAAAAAAB2q3q3AAA1Q1111AA1w#jHHJ0JKMKR[RMSrSSTW%-WUvPTP%Ccuentas :QcuentasF%NUVNTAcod_cue='101010100'.or.cod_cue='101020100'.or.cod_cue='101011000'>T1cod_cue='101020100'.or. substr(atributo,19,1)='S' >TC( Te_SubA(atributo,134)  ( .t. 6T} and (Te_SubA(atributo,19).or.Te_SubA(atributo,20).or.Te_SubA(atributo,21).or.Te_SubA(atributo,36).or.Te_SubA(atributo,37)) )<index on cod_cue to (p_local+'\tmp\borrar') for &xfiltro %Cborrar1 FQC Suspendo?ah1\borrar1C  N N N N NNNNN %Cborrar2=FQh1\borrar2C C<N N N N N %Cempresas FQ \empresas% F ~F ~F>F F ~F>FF#& CZ(\borrar1%MCC CC sCC F,(\tmp\rpt_te_saldos_tesoreriaQ C!BU"XDPRNCUENTASP_EMPXFILTRO XMOSTRADORBORRAR1SYS_MOSTRAR_SCREENP_LOCALCOD_CUEDSAL1CSAL1DMOV1CMOV1DSAL2CSAL2DMOV2CMOV2EMPBORRAR2CUE_ABVCUE_DESSAL_ANTDEBEHABERSALDOP_SYSTEMP_DOSXDCONEMPRESASCODIGOP_CODEMPGET_DATA PRINT_DATACHEQUES_MOSTRADOR% BC\SU XATRIBUTOSXATRC Mostradora3T"\tmp\rpt_te_cheques_en_cartera.dbf@te_sql_cheques_en_carteraC6USYS_MOSTRAR_SCREENXTABLAP_LOCALEXPORTAR_CHEQUES_EN_CARTERATE_SQL_CHEQUES_EN_CARTERA XMOSTRADORXDCONBUBU4TC$'%Csaldos7Q6Q\data\CCZ\saldoscuentaFG(C X#) ~JFECZ%C4?%>   >    %TC 6F%Cven_operoQ.Q\data\CCZ \VEN_OPER%Ccom_operQ.Q\data\CCZ \COM_OPERF)Txtop<=fecha.and.fecha<=xhfecset filter to &filtro G((fechaGF G ECG GF+C+ OR,: Ingresos : C*F Ta%F E%C4  T-%@F Ta%eFECZ%C4 a T-%<F%8%i% P>C6C c6 eP>C6C c6 4%P>C6  C c6 0P>  C6  C c6FHF_TRxtop<=fecha.and.fecha<=xhfec .and.iif("Extracc"$des_prov,dif_valor<=date(),.t.) set filter to &filtro G((fechaGF G ECG GF+C+ R,: Egresos : C*F Ta%F E%C4  T-%F Ta%FECZ%C4  T-%F%%%P>C c6C6 P>C c6C6 %jP>C c6  C6 P>  C c6  C6FHBUORIXTOPSALDOSP_SYSTEMCUENTACOD_CUEBORRAR1P_DOSDSAL1DEBITOCSAL1CREDITODSAL2CSAL2FECHAVEN_OPERCOM_OPERFILTROOKXDFECDMOV1CAJ_PROCMOV1DMOV2CMOV24G FG-(G-( ~F> Hw S>      Qa>    }>    FBUORIBORRAR1COD_CUESALDOSCUENTASBORRAR2CUE_ABVABREVCUE_DESDESCRP_DOSSAL_ANTDSAL1CSAL1DEBEDMOV1HABERCMOV1SALDODSAL2CSAL2DMOV2CMOV2Te_SubACheques_MostradorXheaderd criteriossget_data print_data61AqeBqAAr qAA qAqqqQqAAqqQqAAr1AtAD2q2qq15A4A2qtAbqQq!1AQAqAAAtbabaraqAAqaq!AAra11A1AAAAArAAtbabaraqAAqaq!AAra11A1AAAAArAAA4qbtrQ1411BqAB7B E- J) 5 LL T Ni i!l%i h9ljG+(listadosTPTS T %0RBFQG G FQproveedocodproF QCT6substr(atributo,21,1)='S'.or.substr(atributo,66,1)='S'%C XT abrev=xdcue5index on cod_cue to (p_local+'\borrar') for &filt F QchqanuG((chequeFQ \com_operG-( G-(G-( C Z %SKr& C(\borrar1 C+    Cchqanu+ n& C(\borrar1 C+    Cchqanu+ Fh1\borrarDN NCCCNNCCd C!NF T"C$T# T$ T% T& T'B T( T)v T* T+aT, ZZZZZZZZZZ T- T. T/ T0#)+C+ YF1%'*2%S,  !,T0 Cuenta : [ 3]  4 T, T&%+  NTC) T+-)%-Ci.C  T&T&&%15LC6F7G((asiento E18+C+ 818 0%919(!H T/:%C:F;G((asiento E18T/;; *T/CC1< 1<6FHL 5OT=Pago  5L.T=Asiento 2LT=XX T-CiT.CF>>/=& 30  !-d.FT''T$$T%%F1HF>)(\tmp\rpt_te_venc_chq_propQBU?LISTADOSXDPRNXDSEMXDOWPROVEEDOCODPRO_CUENTASFILTXDCUECHQANUCHEQUEP_PRIVCUENTACUENTASCOD_PRONUMEROXDSEP DIF_VALORP_LOCALXDFECXHFECCAJ_PROXDEMIFECHAXHEMIXHEMIANDNOMBRE CAUSADESCOPAGOTOTALSEM CUENTAABVCUE_NOMREM_PROWEEKNUMEJ_DESDEEJ_HASTAACCSACCTAXSLINPAGANCHOMAXLININICIALOLDCUEOLDYEAROLDWEEKXNOMBRETTTETCOM_OPERHEADERABREVDESCRCAUSAABRIR_EJDIARIOGASIENTOPASE COMENTARIOCONCEPTODES_PROVXXBORRAR TBULINBU4%C F%CEJERCONVQ\ejercon-CT%C4  T TF ,Q\C\diariogasientoF -Q\C \conceptoasientoBU XFECHAEJ_DESDEEJ_HASTAP_PRIVDESDEHASTAAAAEJERCONDIRASIENTOheader criterios abrir_ej CAAAba1QAQqB!A 1rQqqqAAAArqaAAAAQqAAAAAAAAarQ, rACrAE3A3A2qaA!BBA=vz}"%|nB8TPFQT.t.%C Xr3T".and.upper(alltrim(xdesc))$des_val% AT0.and.xdimp<=abs(caj_pro).and.abs(caj_pro)<=xhimpFQ \ven_operG((numeroFQ \com_operG((numeroFXQcuentascuentaF)h1 \tmp\borrarh N D C  CCNC N NNDNLLLCCNNG  TB T Ta-h1 \tmp\borrarh1N +%C  \ T+ Xrborrarh1T "F!set filt to &filtro G((fechaGGF EC"GFG +C+  #  rborrarh1!HF$#& ( \tmp\borrarh1 C%F&%'c> C ( R@& CZC CZ CZ( \tmp\borrarhG-( Ta T TT*T+ asasasasasasT, asasasasasas ~!%+CZ  v% r >aT%,%  >aT%*%  >aT\>C -C6Cc6.T T*T+CZ   T, T-,( \tmp\rpt_te_historia_valoresF&QF$Q# \tmp\borrarh.dbf# \tmp\borrarh.idx# \tmp\borrarh.cdx$ \tmp\borrarh1.dbf$ \tmp\borrarh1.idx$ \tmp\borrarh1.cdxBU/XDPRNFILTROXDESCXDIMPXHIMPP_PRIVNUMEROCUENTASCUENTAP_LOCALORIGENFECHACOMPROBCAUSADES_VALCAJ_PROSUBNUMCAUSA2FECDEPDCESP1ESP2ESP3CAU_DESCUE_DESDEBEHABERLINPAGINICIALXNUMXDNUMXHNUMVEN_OPERXDFECXHFECBORRARH1 BUSCA_VALORESBORRARHP_MULTIRECIBOS FMT_RECIBO_CFOROLDOLDDESC OLDDES_VALFN_CAUSADESCRH 4H=  R MB Recibo  AsB Ajuste   I B Ing.Tes.   O B Pago  DB Depsito  L!B Asiento 2=B ???????? BUXORIXCAU TT,C12345A 6 T-1TC Pgina : CCZC>C CXFechaCX CausaCX  Comprobante  (Descripcin ValorCX Fec.Dep. DebeCX HaberCX Nmero  Sn CuentaCXC-Q C- Q C- Q C-Q C-Q C- Q C- Q C-Q C-Q C-QTBU LINPAGXDPRNINICIALFORMFEEDTEMPANCHOXTEMP LINEWIDTHTITULOtTCreporteN0CDestino......................0CNmero cheque................0CFecha........................0CImporte......................0C Descripcin parcial.......... T|C xdprn@!J[P]=Pantalla, [1]=Lpt1, [2]=Lpt2, [3]=Lpt3, [4]=Com1, [5]=Com2 o [0]=Salirxdprn$'P123450'BC xdnum @z 999999999 Desde cheque.xdnum>=0BC2xhnum @z 999999999 Hasta cheque.xhnum>=0<C xdfecFecha de Comienzo del listado.:C2xhfecFecha de Cierre del listado.DC xdimp @z 999,999.99Desde importe.xdimp>=0DC2xhimp @z 999,999.99Hasta importe.xhimp>=0<C  xdesc@!Ingrese descripcin parcial Ta <BUOSAYXGETGETVISIBLESHOWFG((numeroset filt to &filtro FG((numeroset filt to &filtro F#)+C+ FG((numero E%C4F@+C-!eof().and.borrarh1.numero=numero.and.&filtroF>     CC FHF E@+C-!eof().and.borrarh1.numero=numero.and.&filtropF>    c     CC F%DaFG((comprobE4+C+ ! G0% 1   8F>     CC FHFG((numeroFHFHBUVEN_OPERNUMEROCOM_OPERBORRARH1BORRARHORIGENFECHACOMPROBCAUSADES_VALCAJ_PROCUENTASUBNUMCAUSA2 FN_CAUSA2FECDEP DIF_VALORDCFN_DCCOD_PROCOD_CLITIPOb4H W  R r%[ B n B A%% B  B  % B  B B  I %{%d B w B % B  B  O % B   B D%h%Q B d B % B  B LD%% B  B @%) B < B 2W B BUXORIXCAUXIMP  4H  R D B Aa B  I B  O B D B L B 2 B BUXORIXCAUfn_causa header criterios busca_valoresfn_dc fn_causa2_AQ1AAqqPhAAqqbaaaAAq1AvAAA1AA1AAArAqA211BAAB2!A!!!A!A!!AA2q1qqqqqqqqqq!A2t"!BAr`A2rqrqrQrrqQ rAABrqQ rAtBqQ AqAArArAAsAAA21AA11A1AA11A1AA1AA11A1AAA11A1AAAA2AAAAA;ex"3>){P)-/-C/1%ZBeBUPG+(listados,CPreparando archivos... +Ttmp_control_cheques_ingresados5te_sql_movimientos G+(listados%CtmpF Q Q \tmp\ otmpcuentas -Q  ,C \SC %\S   tmp2 Ta ~%T T-T%  > a T7( &\tmp\rpt_te_control_cheques_ingresadosF QBULISTADOSOESTADO SET_AND_SHOWXTABLA#EXPORTAR_CONTROL_CHEQUES_INGRESADOSTE_SQL_MOVIMIENTOSXDCUEXDFECXHFECXDEMPTMPP_LOCALMALCUENTASNUMINTSUBNUMCUENTACOD_CUEATRIBUTODEBETMP2XINIXOLD!T#BqAA)A2BAurAB1%s585aU.%Cclientes .Qclientes%Cidx04 ZQidx04%Cidx042 Qidx04%Cven_oper Qven_oper%Cccclie QccclieRTEbetw(ven_oper.fecha, xdfec, xhfec) and causa$[R] and cod_cli#[0 ]"%CX CX '%]TL.and.val(xdcli)<=val(ven_oper.cod_cli).and.val(ven_oper.cod_cli)<=val(xhcli) #IT8.and.xdcli<=ven_oper.cod_cli.and.ven_oper.cod_cli<=xhcli% i+T and ven_oper.recibo=xdrec T   log_errores select cod_cli,comprob, causa, des_val, caj_pro, ven_oper.fecha as fecha, dif_valor, tipo , coefic as cambio_rec , 000000000000000.0000 as cambio , ven_oper.moneda as moneda , mm_moneda( iif(ven_oper.moneda>0, ven_oper.moneda, 1)+1,2) as moneda_txt , iif(causa="R", "RC", iif(causa="A", "AJ", "XX")) as causa_txt , .f. as error_tc , .f. as error_tce , iif(ven_oper.dif_valor-ven_oper.fecha>0,ven_oper.dif_valor-ven_oper.fecha,000000000000000000.00) as dsp , iif(ven_oper.dif_valor-ven_oper.fecha>0,ven_oper.dif_valor-ven_oper.fecha,000000000000000000.00)*caj_pro as dsp_acc , !between(dif_valor, xdfec_chq, xhfec_chq) as no from ven_oper left outer join idx04 on ven_oper.dif_valor=idx04.fecha left outer join idx042 on ven_oper.fecha=idx042.fecha where &xfiltro into cursor q1 readwrite ~%  >  T-.>C % >a T-I>CC 6 % >a  T-I>CC 6 % >a%3 >Ooq1clientesQ !Q"C! TC 6Q#-Q$-Q%Q&'()Q*Q+Q,Q- q2_detallado& /T0dsdfgsdT1 T2 T3 T4a ~ %0$ %4 T5CO1>*C323 60 #5 T2 T3 T4- >%aT0 T1CO%C78 U > a#T33"T22( T9CO T: #1>)): #9%4 1>*C323 60& /%oq1-Q$C!Q"CC! C 6TQ#C!'Q(q2oq2ccclie;;;;;;"Q<;#Q=C;#"c;" TQ#>?@"cQAB;QC;;q36oq3CAQEq77& /FD ~C Cq77id->AA<FE ##<FE FD~>? F.EDD >$aFDDoq3ccclieXmotivos NOZDQHQI"QJQKLQM NCADL CCNCO dP  C7 6TQQCADL CCNCO dP  C7 6TD#QRBQBDBQSDQT-QDBAQUDAQVN N C7 Q QWQXCOQYDD>D?CD@ZC[Zq4 T] T^ T_ ~]T]]\UT^^\VT__\A%\ Y T-T`C\KC\?VFCMC\?cNC5C\?dNDC\?LASXX6666 \>F\ >M`>QCA` TCCNCO \IdP  C7 6RCA` TCCNCO \IdP  C7 6#%U >aoq4\C\J\R\J d6QaC\?VFCMC\?cNC5C\?dNDC\?LASXX6666 C\>= 00C\> RQbQ-q5& /T0dfghdfh ~%0cc T1COF.EccTdcc&&cR))c +*g,*hccFcTdcc>Wgd>Xhd #1T0ccFcDoq5clientescQcq5oq5CRQ#q6Fj& /Fi ~!%jjCq6id>-j#Fi!(k\tmp\rpt_dc_cpbts ClF.*& C%AZ6/F. ~^!%jjJCq6id>-j#F."(k\tmp\rpt_dc_recibo CmVo q2_detalladoC) QC"QnC&Q&C+Q+C,Q,C"C-QoC"C+QpC"C,Qq Qr Qs QtQ- q2_resumen+K(vwxyopnq#TzCxvx 6#T{Cxwx 6#T|Cxyx 6">rzs{t|& /Fu ~!%jjCq6id>-j#Fu*(k\tmp\rpt_dc_recibo_resumen C~%Cq1oFQ%Cq2F;Q%C q2_detalladoF.Q%Cq3FDQ%Cq4F\Q%Cq5#FcQBUCLIENTESIDX04IDX042VEN_OPERCCCLIEXFILTROXDCLIXHCLIP_CLINUMXDRECXLOG_ERRORES_CAMBIOLOG_ERRORES_CREAR LOG_ERRORESMONEDAXDMONXERROR CAMBIO_REC FN_CAMBIO_TCQ1FECHA CAUSA_TXTCOMPROBERROR_TCCAMBIO DIF_VALORTIPOCOD_CLINOMBRECAUSA MONEDA_TXTDES_VAL CAMBIO_VALNOCAJ_PROIMPORTEDCPARCIALENC DIF_TOTALDSPDSP_ACC ERROR_TCE DSP_RECIBO DSP_TOTAL DSP_TOTALE DC_TOT_REC Q2_DETALLADOIDXOLDXREGXIMP_TOT_ITM_ACCXIMPORTEXINICIALXREG3FOR XDFEC_CHQ XHFEC_CHQXREG2 XERROR_TCQ2 IMPORTE_RECDC_RECREFCAUCUO IMPORTE_REFVENCDSP_RECQ3SUMIRQ77INCPBTCPBT_CAU CPBT_IMPORTE CPBT_FECHACOEFIC CPBT_CAMBIOMOTIVOMOTIVOSXDNDDC_CPBTDC_TOTALDPS_REF DPS_REFEMIDSP_TOTDSP_TOTE DSP_REFERS DSP_REFEMIMOTTIPOCODIGOCUOTAQ4 XDSP_TOT_ACCXDSP_TOT_ACC_EMISION XIMP_TOT_ACCXCAMBIOPERREFERQ5XIDARRSUMXDSP_REFERENCIASXDSP_REFERENCIAS_EMISIONQQ6P_LOCALEXPORTAR_COMPROBANTESEXPORTAR_RECIBO IMPORTE_RCACC_DIFACC_DSPACC_DSPE DIF_TOTAL_PP DSP_TOTAL_PP DSP_TOTPPE Q2_RESUMENAAABBBCCCDDD XDIF_TOTAL_PP XDSP_TOTAL_PPXDSP_TOTAL_PPEALLEXPORTAR_RESUMENl!%Cidx04idx04#TC idx04.indiceCCZ%z B [ log_errores - C*(: Tipo de cambio est en 0 (no definido) Ta B eP log_errores - C*: Tipo de cambio no ingresado Ta BUXMONEDAXFECHA XCOMPROBANTEXERRORXCAMBIOLOG_ERRORES_INSERTAR LOG_ERRORES%CNB?T2Recibos - Dif Cbio y Desplazamientos - Referencias TCWG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNT&T\tmp\rpt_dc_cpbts C Ccod_cliCdigoCnombreNombreCfechaFecha CcomprobRecibo0C cambio_recCambio Fecha Recibo$C importe_reImporte4Cdc_recDif. de Cambio Pago Parcial"Crefer Referencia/C cpbt_fechaRef. Fecha Emisin-CvencRef. Fecha Vencimiento)C cpbt_impor Ref. Importe*C importe_r2 Ref. Aplicado(C cpbt_cambi Ref. Cambio0Cdc_cpbtDif. Cbio Ref. Parcial*Cdc_totalDif. Cbio TotalCper% s/FC>Cdps_ref$Desplazamiento Recibo vs VencimientoJC dsp_refers-Desplazamiento Recibo vs Vencimiento Promedio=C dps_refemi Desplazamiento Recibo vs EmisinFC dsp_refemi)Desplazamiento Recibo vs Emisin PromedioT C %C z 7\tmp\reporte.xls( \.xls vdC El archivo D.xls no se puede sobreescribir, probablemente se encuentre en uso !!  EC,Imposible crear la carpeta de exportaciones  !!!  G(9  FBUXARCHIVOXAREALISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS EXPORT_DIR P_DIR_EXPORTMENSAJE ACTIVEFORM DATASESSIONIDs%CNBBT5Recibos - Dif Cbio y Desplazamientos - Medios de Pago TCWG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNT'T\tmp\rpt_dc_recibo C Ccod_cliCdigoCnombreNombreCfechaFecha C causa_txtTipo CcomprobRecibo0C cambio_recCambio Fecha Recibo#C moneda_txtMoneda'Cdes_val Medio de Pago(C dif_valor Diferimiento$Ctipo Tipo de Medio!CimporteImporte#CdcDif. de Cambio0C dif_totalDif. de Cambio Total6Cdsp Desplazamiento del Medio de PagoJC dsp_recibo-Desplazamiento Promedio de los Medios de PagoJC dsp_total.Desplazamiento Total del Recibo vs VencimientoGC dsp_totale*Desplazamiento Total del Recibo vs EmisinT C %C  u7\tmp\reporte.xls( \.xls dC El archivo D.xls no se puede sobreescribir, probablemente se encuentre en uso !!  6EC,Imposible crear la carpeta de exportaciones  !!!  TG(9 ^ FBUXARCHIVOXAREALISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS EXPORT_DIR P_DIR_EXPORTMENSAJE ACTIVEFORM DATASESSIONID%CNB2QEXPORTACIONES_PARAMETROS imp_exp.vcx'Q EXPORTACIONES imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxTRecibos - Resumen TCWG+(listados'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPTaT /T  \tmp\rpt_dc_recibo_resumen C Ccod_cliCdigo CnombreNombre CfechaFecha C causa_txtTipo CcomprobRecibo 0C cambio_recCambio Fecha Recibo #C moneda_txtMoneda 'C importe_rcImporteaa @C dc_tot_recDiferencia de Cambioaa'=L?/H?' HC dsp_totalDesplazamiento vs Vencimientoaa'=M?/H?' KC dsp_totaleDesplazamiento vs Fecha Emisinaa'=N?/H?' &Cacc_difAux Daa &Cacc_dspAux Vaa 'Cacc_dspeAux Eaa T C%C 7 \tmp\reporte.xls(\.xls dC El archivo D.xls no se puede sobreescribir, probablemente se encuentre en uso !! lEC,Imposible crear la carpeta de exportaciones  !!! G(9  FBUXPARIMP_EXPVCXXEXPXFORXARCHIVOXAREALISTADOS COL_HIDDEN EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS EXPORT_DIR P_DIR_EXPORTMENSAJE ACTIVEFORM DATASESSIONID fn_cambio_tc exportar_comprobantes!exportar_recibo(exportar_resumen.AArAaAAA!A""AA2AP82AAAABAAbDrAASAABA k!rCtr1rA(AAAbtAAAZ$Er1rq!ArrqBqrABTr!rABrrrAAs"Pa211&"~AAs3qAA2qAAqAA2qAA2qAA2qAAB31r21AA2"AAr#!cAA!a qAAQAAA2"AA"r#!s1qA1aq qAAQAAA3"AA"qr#r!1qaaq qAAQAAA16N9p9D(DBOaX_O!Z%V696i;W%Cproveedo .Qproveedo%Cidx04 ZQidx04%Cidx042 Qidx04%Ccom_oper Qcom_oper%Cccprov Qccprov%Ccccomp Qcccomp%Ctcccomp JQtcccompRTEbetw(com_oper.fecha, xdfec, xhfec) and causa$[O] and cod_pro#[0 ]"%CX CX % .]TL.and.val(xdpro)<=val(com_oper.cod_pro).and.val(com_oper.cod_pro)<=val(xhpro) IT8.and.xdpro<=com_oper.cod_pro.and.com_oper.cod_pro<=xhpro% *T and com_oper.opago=xdrec T   log_errores rselect cod_pro,comprob, causa, des_val, caj_pro, com_oper.fecha as fecha, dif_valor, tipo , coefic as cambio_rec , 000000000000000.0000 as cambio , com_oper.moneda as moneda , mm_moneda( iif(com_oper.moneda>0, com_oper.moneda, 1)+1,2) as moneda_txt , iif(causa="O", "CP", iif(causa="A", "AJ", "XX")) as causa_txt , .f. as error_tc , .f. as error_tce , iif(com_oper.dif_valor-com_oper.fecha>0,com_oper.dif_valor-com_oper.fecha,000000000000000000.00) as dsp , iif(com_oper.dif_valor-com_oper.fecha>0,com_oper.dif_valor-com_oper.fecha,000000000000000000.00)*caj_pro as dsp_acc , !between(dif_valor, xdfec_chq, xhfec_chq) as no from com_oper left outer join idx04 on com_oper.dif_valor=idx04.fecha left outer join idx042 on com_oper.fecha=idx042.fecha where &xfiltro into cursor q1 readwrite ~%V > T-.>C % >a T-I>CC 6 %R >a  T-I>CC 6 % >a%3 >Ooq1proveedo Q!"#Q$C# TC"6Q%-Q&-Q'Q()*+Q,Q-Q.Q/ q2_detallado& 1T2dsdfgsdT3 T4 T5 T6a ~ %2s %6 < T7CO1>,C545 62 #7 T4 T5 T6- >'aT2 T3CO%C9: >"a%T55$T44* T;CO T< #3>++< #;%6 N 1>,C545 62& 1oq1-Q&C#Q$CC# C"6TQ%C#)Q*q2oq2ccprov======$Q>=%Q?C=%$c=$ TQ%@ABC$cQDE=QF==q36oq3CDQHq77& 1FG ~ Cq77id->DD>IH %%>IH FG~@A F0EGG >&aFGGWoq3ccprovGQKQL$QMQNOQPQCDGO CQ Q C9 6TQRCDGO CQ Q C9 6TG%QSEQEGEQTGQU-QGEDQVGDQWQ Q C9 Q"QXQYQZQ[Q\GG@GACGBZCGCZC]ZC^Zq4 T` Ta Tb ~T``_VTaa_WTbb_D%_- T-TcC_NC_ACFCMC_AcNC5C_AdNDC_ALASXX6666 _@F_ >Pc>RCDc TCQQ C9 6SCDc TCQQ C9 6%%) >a"%C_Ccccompop%d(%CdtcccomptcccordF_*>[eZd\fC Referenciag%oq4Xcccomp _C^_C_M_S_M d6QhCC_ACcdcC_ACFC5C_AcNCC_AdNDXX666 Ci??+C_ALASXX6 C_@6QjQ/iq5& 1T2dfghdfh ~k%2kkI T3COF0EkkTlkk((kS++k -,o.,pkkFkTlkk>Xol>Ypl #3T2kkFkDoq5proveedokQkq5oq5CSQ%q6Fr& 1Fq ~`!%rrLCq6id>/r%Fq!(s\tmp\rpt_dc_cpbtsC Suspendo?at CuF0*& C'AZ61F0 ~=!%rr)Cq6id>/r%F0"(s\tmp\rpt_dc_recibo CvOo q2_detalladoC+ QC$QwC(Q(C-Q-C.Q.C$C/QxC$C-QyC$C.Qz Q{ Q| Q}Q/ q2_resumen+K(xywz#TC 6#TC 6#TC 6">{|}& 1F~ ~!%rrCq6id>/r%F~*(s\tmp\rpt_dc_recibo_resumen C%Cq1GFQ%Cq2iF=Q%C q2_detalladoF0Q%Cq3FGQ%Cq4F_Q%Cq5FkQBUPROVEEDOIDX04IDX042COM_OPERCCPROVCCCOMPTCCCOMPXFILTROXDPROXHPROP_PRONUMXDRECXLOG_ERRORES_CAMBIOLOG_ERRORES_CREAR LOG_ERRORESMONEDAXDMONXERROR CAMBIO_REC FN_CAMBIO_TCQ1FECHA CAUSA_TXTCOMPROBERROR_TCCAMBIO DIF_VALORTIPOCOD_PRONOMBRECAUSA MONEDA_TXTDES_VAL CAMBIO_VALNOCAJ_PROIMPORTEDCPARCIALENC DIF_TOTALDSPDSP_ACC ERROR_TCE DSP_RECIBO DSP_TOTAL DSP_TOTALE DC_TOT_REC Q2_DETALLADOIDXOLDXREGXIMP_TOT_ITM_ACCXIMPORTEXINICIALXREG3FOR XDFEC_CHQ XHFEC_CHQXREG2 XERROR_TCQ2 IMPORTE_RECDC_RECREFCAUCUOOPR IMPORTE_REFVENCDSP_RECQ3SUMIRQ77INCPBTCPBT_CAU CPBT_IMPORTE CPBT_FECHACOEFIC CPBT_CAMBIOMOTIVODC_CPBTDC_TOTALDPS_REF DPS_REFEMIDSP_TOTDSP_TOTE DSP_REFERS DSP_REFEMIOCENTREGAOC_FECCUOTAOPQ4 XDSP_TOT_ACCXDSP_TOT_ACC_EMISION XIMP_TOT_ACCXCAMBIOORDENFEC_ENTFEC_COMSYS_MPERFAC_COM2REFERQ5XIDARRSUMXDSP_REFERENCIASXDSP_REFERENCIAS_EMISIONQQ6P_LOCALSYS_MOSTRAR_SCREENEXPORTAR_COMPROBANTESEXPORTAR_RECIBO IMPORTE_RCACC_DIFACC_DSPACC_DSPE DIF_TOTAL_PP DSP_TOTAL_PP DSP_TOTPPE Q2_RESUMENAAABBBCCCDDD XDIF_TOTAL_PP XDSP_TOTAL_PPXDSP_TOTAL_PPEALLEXPORTAR_RESUMENl!%Cidx04idx04#TC idx04.indiceCCZ%z B [ log_errores - C*(: Tipo de cambio est en 0 (no definido) Ta B eP log_errores - C*: Tipo de cambio no ingresado Ta BUXMONEDAXFECHA XCOMPROBANTEXERRORXCAMBIOLOG_ERRORES_INSERTAR LOG_ERRORES2QEXPORTACIONES_PARAMETROS imp_exp.vcx%CNHB=T0Pagos - Dif Cbio y Desplazamientos - Referencias TCWG+(listados'Q EXPORTACIONES imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx+TC Exportaciones imp_exp.vcx6TCExportaciones_Parametros imp_exp.vcxT&T  \tmp\rpt_dc_cpbts C Ccod_proCdigo CnombreNombre &CfechaFecha del Pago CcomprobPago .C cambio_recCambio Fecha Pago )C importe_re Importe Pago 4Cdc_recDif. de Cambio Pago Parcial "Crefer Referencia Copr Ref. O.P. /C cpbt_fechaRef. Fecha Emisin -CvencRef. Fecha Vencimiento Coc Ref. O.C. 0Coc_fecRef. O.C. Fecha Emisin 1CentregaRef. O.C. Fecha Entrega )C cpbt_impor Ref. Importe *C importe_r2 Ref. Aplicado (C cpbt_cambi Ref. Cambio 0Cdc_cpbtDif. Cbio Ref. Parcial *Cdc_totalDif. Cbio Total Cper% s/FC <Cdps_ref"Desplazamiento Pago vs Vencimiento HC dsp_refers+Desplazamiento Pago vs Vencimiento Promedio ;C dps_refemiDesplazamiento Pago vs Emisin DC dsp_refemi'Desplazamiento Pago vs Emisin Promedio T C C FBUOPARIMP_EXPVCXXARCHIVOXAREALISTADOSOEXPOFOR EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS COPIA_FINAL2QEXPORTACIONES_PARAMETROS imp_exp.vcx%CNHB@T3Pagos - Dif Cbio y Desplazamientos - Medios de Pago TCW'Q EXPORTACIONES imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcxG+(listados+TC Exportaciones imp_exp.vcx6TCExportaciones_Parametros imp_exp.vcxT'T  \tmp\rpt_dc_recibo C Ccod_proCdigo CnombreNombre CfechaFecha C causa_txtTipo CcomprobPago .C cambio_recCambio Fecha Pago #C moneda_txtMoneda 'Cdes_val Medio de Pago (C dif_valor Diferimiento $Ctipo Tipo de Medio !CimporteImporte #CdcDif. de Cambio 0C dif_totalDif. de Cambio Total 6Cdsp Desplazamiento del Medio de Pago JC dsp_recibo-Desplazamiento Promedio de los Medios de Pago HC dsp_total,Desplazamiento Total del Pago vs Vencimiento EC dsp_totale(Desplazamiento Total del Pago vs Emisin T C C FBUOPARIMP_EXPVCXXARCHIVOXAREAOEXPOFORLISTADOS EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS COPIA_FINAL %C \Cxls\Cxlsx*(\CC lC El archivo CC@ no se puede sobreescribir, probablemente se encuentre en uso !! SEC,Imposible crear la carpeta de exportaciones  !!! qG(9 {UXARCHIVOOPAR EXPORT_DIR P_DIR_EXPORTEX_ARCHIVO_SALIDAMENSAJE ACTIVEFORM DATASESSIONIDq2QEXPORTACIONES_PARAMETROS imp_exp.vcx%CNHBTPagos - Resumen'Q EXPORTACIONES imp_exp.vcx:Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx TCWG+(listados'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPTaT /T  \tmp\rpt_dc_recibo_resumen C Ccod_proCdigo CnombreNombre CfechaFecha C causa_txtTipo CcomprobPago .C cambio_recCambio Fecha Pago #C moneda_txtMoneda 'C importe_rcImporteaa :C dc_tot_recDif. de Cambioaa'=L?/H?' HC dsp_totalDesplazamiento vs Vencimientoaa'=M?/H?' KC dsp_totaleDesplazamiento vs Fecha Emisinaa'=N?/H?' &Cacc_difAux Daa &Cacc_dspAux Vaa 'Cacc_dspeAux Eaa T CC FBUOPARIMP_EXPVCXXARCHIVOOEXPOFORXAREALISTADOS COL_HIDDEN EX_TITULOEX_ARCHIVO_ENTRADAP_LOCALEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS COPIA_FINAL fn_cambio_tc7!exportar_comprobantes"exportar_recibo) Copia_FinalC/exportar_resumen.1AArAaAAA!A!A1A""AA2A`!72AAAABAAbDrAASAABA# k!rCsq1rAq%AAAbtS AA#aqAAACtX$Br1rq!ArrqBqrABRr!rABrrrsAAs"211&"~AAt3qAA2qAAqAA2qAA2qAA2qAAB31r21AA2!!AAr#qacaA!A #A2!!AArq"as1qA1aQ !A2AQAA2!!AAqr#r!1qaaq "A17999E+2UENwXNsQiQZ%)M,M)M{aO1"H UNI\%Tleft(desc_ins,5)="BOLSA"T.f. 2T.f.T.f. T T- T&CInicializando...G+(listadosG+(dey_funcG+( dey_filtersCven_operven_ope Cagentecodage Ccuentascuenta Cclientescodcli Cccclie Cventasven_fac Cccventccvfac "CObteniendo cheques F G((reciboQTC#occclieventasccventXmotivos ,102QQCXQQQC(XQC=Q-QQcQCXQCXQ ףp= [@Q! (G0AQ" (G0AQ#ףp= [@Q$ (G0AQ%ףp= [@Q& (G0AQ' Q()Q*-Q+,-Q.Q/,3,3 d CC04  C56 1Q"CObteniendo recibos T7CT8C(oven_operQ9clientes9Q9QCXQ9Q9QC(XQ9:QC41a-6QCC9; 99;6Q9<QCXQCXQ ףp= [@Q! (G0AQ" (G0AQ#ףp= [@Q$ (G0AQ%ףp= [@Q& (G0AQ'Q4 Q(9*Q*-Q+C 9.96Q.Q/9=9R 9A  -CCC9. 99.656 9917Q%CborrarF>Q%Cborrar1F?QQ7>F> i1borrar@Ci1borrarANi1borrarBLTCC]h1D \tmp\tmp_aux@CANCDC CC EC FC GN HNINJNKNLNMNNNONPNQNRNSNTDQD \tmp\tmp_auxUFVG((cuentaFWG((codageF=G((codcliG-(WF>G-(=G-(*V%CAnalizando comisiones ;CAnalizando movimientos...CBorrarNZT[.T. T[.T. %C\ C] ,T[[C\]vendedora^%C_ C` +T[[C_`cod_cliaa+>==/=/set filter to &filtro Tcsdfgsdfg Td ~Te%ce Td TceTddTfeCdZ Cg>@fAd== W"#$%&'4( %=hz >!=h  >!Wi Tj Tk Tl Tm Tn To TpFG((comprob E>>>CZ%C4% Tq TrCO@+C+ -CsZ>>>CZ TqqH #r@+C+ -CZ>>>CZ !FTkkTt TuCO#E>EFCGZ%C4nTvT Tv #u%FVcdIF,EEFTwIM Tx,Ty,ITz,MT{,|T},~T,,IFEEF T T T T)+C+ 3EF NHF C TT C+T T 2FTHF>'Tc w'Tc w'Tc w%TllTmmTnn ECEl C>RRCC>AAJXX66 C> aplica al comprobante CFVFCMCFcNC5CFdNDCFLASXX6666 E del cliente C y no ste no fue encontrado !!! "%FL T TTCCE,gT' co_funciones T-F+C+  0%G( Ta!H% \(TwC dd 6Txw TyTz T{T}zx TxBTcCFL  FL w6 T TTll T %5CC Los datos no son correctos !!! $lCNo existe el pase CCGZ del asiento: CCZC Los datos no son correctos !!!(TwC dd 6 Tx Ty Tz T{ T} T T T TTll T (TwC dd 6BTxcCFL  FL w6 TyTzc T{T}zx TxBTcCFL  FL w6 T TTll T=T>Cq؅W4vCq6 >!d :T>Cq؅W4vCq6 d TooTpp'%tv FVd  T Trtmp_aux@AEFGHIJKLMNOPQRSTfd>>>>EFGxy}{zc>!vFH \Tjj Trtmp_aux@AEFGHIJKLMNOPQRSTfd>>>> ????????????>!F>>4#l>Ck؅W4vCk6 $%m>Ck؅W4vCk6 &'n>Ck؅W4vCk6 $Tj#>!d %d  >"j%l >.%CV"\S%C.>(* >+a  %C56 % CT[.T. %C\ C] x,T[[C\]vendedora^%C_ C` +T[[C\]cod_cliaaoborrartmp_aux>UEUFUGUHUIUJUKULUMUNUOUPUQURUS>UTQ>@U@borrar1& @@Thksghlk ~%@ >Ba T@C Suspendo?aZ>CRRC/CAAJCdNDXX666 C%%  B  & C@((D\TMP\rpt_ind_comisiones !Ioborrar1-QB CQC!Q!C"Q"@EFGCFVFCnCFdNDYCFcNCDCFRRC/CFAAJCFLASXX666666 CECFL/CCGZ6QCHQHCIQICJQJCKQKCLQLCMQMCNQNCOQOCPQPCQQQCRQCSQCRSQCQEFG EFGqTdfghkl] ~!%% C! >BaT C((D\TMP\rpt_ind_comisionesQ%Cborrar"F>Q%Cborrar1,"F?Q%Ctmp_auxS"FUQ "F>QF?QFUQ "*.*7*.*8*.*BUP_EMPXFILTRO_SIN_COMISIONXFILTRO_COMISION_DIFERENCIADA XALICUOTA_IVAXPOR_FECHA_DIFXCOMIDIFOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDAVANCEVEN_OPERRECIBOXBORRAR1NEWFILE_LOCAL_TMPCCCLIEFECHACOMPROBCPBTCAUSACOD_CLINOMBREVENTASDESC_INSDESCRVALORDIFTOT_VENIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORMPOR_DIF TOTAL_DIFPOR_DIFN TOTAL_DIFN ASTERISCOCOD_CUECUENTAES_DIFCCVENTFEC_VENFEC_COMIALTAMOTIVOSMOTIVOCODIGOFAC_VENTIPOXDFECXHFECXBORRAR2XBORRAR3VODES_VAL DIF_VALORCAJ_PROCLIENTESBORRARBORRAR1IDITMENCA XTABLA_AUXP_LOCALREFCAUCUOBASEDES_COMSUBTIVAIIBBDEUDAAPLAPL_BASEPER_COMIPER_DIFCOMICOMIDIFVENCTMP_AUXCUENTASAGENTECODAGECODCLISUB_SET_AND_SHOWFILTROXDAGEXHAGEFIL_GET_AGE_FILTERXDCLIXHCLIFIL_GET_CLI_FILTERALLXOLDCPBTXITMXCPBTXID SUB_AVANCECOMI_COBCOMIXCOBACC ACC_RECIBOACC_NORMACC_DIFACC_DIFNACC_COMI_NORMAL ACC_COMI_DIF XTOTAL_RECIBOXREGCUOTA XFECHA_RECIBO XREG_RECIBO XFECHA_VENC XCOCIENTEXBASEXDES_COMXDEUDAXIIBBDTO672XIVAIVA_VENXSUBT TACC_NORMTACC_DIF TACC_DIFNXTIPOXAPL_NORM_BASE XAPL_DIF_BASEXAPL_DIFN_BASEMENSAJEXERRXERRMSGXASIENTOXFECHAFECREFBUSCAR_ASIENTO CO_FUNCIONESXENCDIARIOGASIENTOPASEP_CODEMPP_DOSDEBITOCREDITOXDIVAXNORMALXDIFXDDIASATRIBUTOFECHAANTSUB_HIDEDIASXOLDSYS_MOSTRAR_SCREENXDTIP XDETALLADOFOR REFERENCIACOMIXFC COMIDIFXFC COMIPARCIALQN 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaant/)aQAc"!Q1$spA 1"D'"D@qqAAqAAsqsrrsRAAXQ2AbbAtAAArB21Abr1cqs1AAAqrqqDsqqaAAAA+2QAB"#AArA$rAACw CAAAqBAAAAAi B1AAr2A$BQAABrqAAqAAqAAqArArAA#!!C42J3PP%j+.+Y"YGTTa TPreparando datosT8T+Listado de Frmulas de Produccin costeadasG+(listadosTP%0B)J(     +      G*(TS%NGB%12345A~ T T  T TFQbienescodinsG((codinsF QbultosFQatributoFQccformulFQformulasF QstockF QCOS TC$ TC$FF Q\idx04idx04T .t.%!"#"T ccformul.codigo=xdins%$CX#)T  .and. ccformul.bul=xdbul%%CXe)T  .and. ccformul.atr=xdatr%&' :T  ).and. between(bienes.linea, xdlin, xhlin)%() :T  ).and. between(bienes.grupo, xdgru, xhgru)%*b.T  .and. bienes.tipo_art=xdart-1%+*T  .and. ccformul.activa="S"%CborrarF,QT,C-T.C-h1/\tmp\.0N 1C2C3C4C<5N6C 7N8C9N:D;N<D=C>C?C@CANBNCNDC ENFDGNHDILJLKLLNMNNNONPNQN RC(SDTDUN VC(WDXDYN ZC[C\C]N^N_N Q/\tmp\.,FG((codigoFG((codigoFG-(1G-(13G-(12SELECT ccformul.*, 1 AS nivel_for, ccformul.formula AS master_for, ccformul.codigo AS master_cod, ccformul.atr AS master_atr, ccformul.bul AS master_bul, NVL(bultos.cantxbult,000000000.000) as cantxbult FROM ccformul LEFT OUTER JOIN bultos ON ccformul.codigo+ccformul.bul = bultos.cod_ins + bultos.clave LEFT OUTER JOIN atributo ON ccformul.codigo+ccformul.atr = atributo.cod_ins + atributo.clave , bienes WHERE ccformul.codigo=bienes.cod_ins AND &filtro INTO CURSOR tccformul READWRITE & 00%` a TbFc~] TaCO,Cc0bc0c1c2c3dFc #aFc& ']] Te#) Tf ~H Tff#)TgSDF Te"TCf f6T+C+ 6T Analizando: 1 - 2 - 3TTg132 Th Ti Tj Tk Tl-FG((codins Ec1FG((codigoEc1c3FG((codigoEc1c20TmCC4 C4 C4)TnCS oo6Fc Tp Tq TrTsTtTu Tvw Txw Tyw Tzq T{t T|x Tp Tq TrTsTtTu Tvw Txw Tyw T}q T~t%|x#FG((idx04 E{%C4 -R,:Cambio invlido en la fecha C{* T T %|?TindiceCC|Z aaa=&aaa V T%xTindiceCCxZ bbb=&bbb  T%Tzz -R,:Cambio invlido en la fecha C* TzFc TCOFG((formula Ec0 Ta+C+ c00  T-FG((codigo E=?>CXFG((codins E=T4FG((codins E=FG((codigoE=?FG((codigoE=>0TCC4 C4 C4F%)TCS 6 )TCS oo6 T T TT TwT% cs_generar=?>CC66 T T T| T T TT Tw T cs_generar=?>CC66 T T%|FG((idx04 E%C4 -R,:Cambio invlido en la fecha C* T T b%|TindiceCC|Z aaa=&aaa   T%xGTindiceCCxZ bbb=&bbb ^ T%T -R,:Cambio invlido en la fecha C* TF T T T T T T@proc_stk=?>%Td Td 8ThCC66 8TiCC66 ?TjCC66 5?TkCC66 5rborrar0123456789;=>?@ABCDEGLMNOPQRSTUVWX]YZ[\_c0c1c2c3mc5nc7c8z}=>?5Chijkc]cYcZc[c\c_HFc #TeeHF,->^CNON d6Goborrar0CN5 Q9CO5 Q;0borrar2oborrarXborrar2 ,00,0Q0,1,2,3,4,5,6,7,89Q9;Q;,=,>,?,@,A,B,C,D,E,G,L,M,N,O,P,Q,R,S,T,U,V,W,X,I,J,K,],Y,Z,[,\,^,_borrar3F%`%cB& Z[\C]Z123=>?(/\borrar (& CYZC]Z0(/\borrar %0& 123=>?(/\borrar  & 0(/\borrar%Z>;;_99_AA5 _NN5 _OO5 _>5_/(/\tmp\rpt_cs_formulas_costeadasQF,Q0Q/\tmp\rpt_cs_formulas_costeadas T T-+C+ %0%s H >JaH T- >Ia %  >Ka Ta T0H% H >JaH%`)(\xchg\formulas_costeadas)(\xchg\formulas_costeadasԻQ/\tmp\..*/ \borrar.*BUOESTADOMAXVISIBLETEXTOVALUETITULOLISTADOSXDPRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNSIONO LINEWIDTHPICABIENESCODINSBULTOSATRIBUTOCCFORMULFORMULASSTOCKCOS XFECHA_HOY XFECHA_CIEP_COMMONIDX04FILTROXDINSOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRUXDARTXDVIVBORRARNEWFILEXARCHP_LOCALFORMULACODIGOATRBULDESCRCANTIDADUNIDADPEACTIVACOSTOANTFECHAANTCOSTOCIEFECHACIECODCOMPATRCOMPBULCOMPDESCOMPCANCOMPUNIDADCFACTORUNICOMP COSCOMPANT FECHACANT COSCOMPCIE FECHACCIE SHOW_ENCASHOW_TOT SHOW_DESCCCANTCCCIECCANTTCCCIETMERMAERRNANTERRMANT FECCOSANTFECTCANTERRNCIEERRMCIE FECCOSCIEFECTCCIE MASTER_FOR MASTER_COD MASTER_ATR MASTER_BUL NIVEL_FOR VARIACION CANTXBULT XDCOMPLETOXREGT XNIVEL_FOR TCCFORMUL SCAN_FORMULAACC XFORMCANTOLDX2CCANTX2CCCIEX2CCANTTX2CCCIETINICIAL XDESCRFOR XMEDIDAFORMEDIDAXANTXCIEXACTXFANTXFCIEXFACTXMANTXDMONXMCIEXMACT XCOSTOANT XFECHAANTXOLD XCOSTOCIE XFECHACIEAAABBBXHFECXREGCCFINIFORXDESCR XDESCRCOMPUNIDCOMPXMEDIDA MEDIDAAUX XERR_COSTO1 XMSG_COSTO1XCOSTO XFECHA_COSTO XMONCOSTO XFECHA_TC1XDTIP OBTENER_COSTO CS_GENERARXDTVAXDFECXDTCSP_CS_VERSION_EXPL XCOSCOMPANT XFECHACANT XERR_COSTO2 XMSG_COSTO2 XFECHA_TC2XDFTC XCOSCOMPCIE XFECHACCIEXSMXPPXTIXFACTOR XMINBATCHXMERMAARTICULO_DATOS_AMPLIADOSPROC_STKXDMERALLBORRAR2BORRAR3XDORD XCOSTOXBULTO TABLA_FINALXOLDFORMXSECLINXDEXPP_SERVER4TF~  TCOF G((codigo?-  C Sa6 %C4T r tccformuloccformulXbultos Xatributo  QQQQQC Q $C F #BU XFORMULA XNIVEL_FOR XMASTER_FOR XMASTER_COD XMASTER_ATR XMASTER_BUL XNEW_NIVELXREGFORFORMULASFORMULACCFORMULCODIGOBULATRCODCOMPBULCOMPATRCOMPXDVIVACTIVAXIDUIDU NIVEL_FOR MASTER_FOR MASTER_COD MASTER_ATR MASTER_BULBULTOS CANTXBULTCOD_INSCLAVEATRIBUTO SCAN_FORMULABU}'41 QEXPORTACIONES_CRYSTAL Imp_exp.vcxRT Cexportaciones_crystal Imp_exp.vcxcs_rpt_formulas_costeadasT  \xchgT T  eTTTTTTTT C BUXTABLAXDFECXHFECXDCODXDBULXDATRXDTVAXDMONXDLOG4OEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDBIE EXP_TABLA scan_formula & exportar_1@) exportar_2O)BAACAAAqa!AQAQAAA1AArqAA q/rrrAAparsArABr3RAQ!aqRrr1r1r1111113t2A2AA2QABrqxrrrr1r1raA112 A1 2t2A2AA2QABsABArAAs{s1!A1AA"BBrA11AAAAAA1AAABC2rrBr BDrAB3D2t!"AB2c?D-vE2EaxIEGg%$"AaX$ T TTT IniciandoTaG+(listadosTP%0BIJ(     K      G*(TSG %Cbienes mQbienesFG((codins%Cbultos Qbultos%Catributo Qatributo%Cstock QstockFG((codigo%Cidx04 YQ \idx04F!G((idx04%Clisprec Qlisprec%Ccfg_lis Qcfg_lisF# #$FT%.t."%&C X 'C X Q6T%%%.and. betw(cuentas.abrev,xdcue,xhcue)FG(%Cborr_artF(QT(C)h1*\tmp\(C+C,C-C(.C(/C0C1N2N3N4C 5N6C 7C 8C9N:D;C<N=D>N?C@NANBCCCDN EC(FDGN HC(IDJN KDLNMN NC(OCPC(QNRNSNTNUC VCWNXNYNZN[N\N]N^N_N`C aCbNcNdNeNfNgChCiCjCkNlNmNQ*\tmp\((& +,$TObteniendo artculosT Tno Tpq Trs Tt Tu-YCborr_artwtonqpsrxyz{u|}~vT%.t.%s e T%%.and. bul=xdbul%q  T%%.and. atr=xdatr%w :T%%).and. iif(!empty(bul), stock.activo, .t.)FG((CODIGOF(G-(+,CXSET FILT TO &filtro T ~i T#)TT!TAnalizando costos TCproceso ~|TT%(8 C(bienescodins%Mu CMmarcascodigo%OO "COproveedocodpro;>(MMN.OOP T T TT$TC6 T T T T T T T T T T T T cs_generar((+(,CC66F(c>;CCCXXX6<=GHIq>QRSTUVWXYZ[ TCcalculo del costo T T TT$TC6 T T T T T T T T T T T T cs_generar((+(,F( >K T T TT$TC6 T cs_generar((+(,CC66F(c>8CCCXXX69:DEFq>\]^_`abcdefF(E>>CCC9<9 6dR?@F(\XD T$%C#?g  F!G((idx04 E%C4 C#?g h%C#?gTindiceC#? x_a=&ccc   T%MTindiceCCZx_de=&x_de d T :CNo existe el cambio a la fecha C* !!! T TTC # T TTCC#?g.G+( ve_funcionesve_funciones_precios T T%-C((+(,$CX -C((+(,$CXF(>>@C 6d ?F>ACCC@@<@ 6dR?@F(\XDF(omovstockQborr_artQ  , +C Q P C  $,+  , + C m  , +qF& ,+F( ~FE((,(+F(>LGIHh  T T str(linea) ;T str(grupo) hT str(subgrupo)H} Tcodigo+atr+bul T descripcio& GI TaTaasdasd T-F(#)GG(G*G ON ESCAPE &ONESC FG((codigoFG((codigoFG((codigoFG((CODIGOF(G-(1G-(2G-(G-(+G-(,G-(+,CX%w^(CS S * S S 6%C (K%(> >BC1 .Lnea Desconocida6CC2 .Grupo Desconocido6JCS JJ6(TC +6INDEX ON &txIndex TAG Full /(*\tmp\rpt_cs_costo_por_articuloQ*\tmp\(.*FG(BU OESTADOMAXOESTADOMAXVALUETEXTOVISIBLELISTADOSXDPRNXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNSIONOBIENESCODINSBULTOSATRIBUTOSTOCKCODIGOP_COMMONIDX04LISPRECCFG_LISXDLISFILTROXDCUEXHCUEBORR_ARTNEWFILEP_LOCALBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUX MONEDA_ANT COSTO_ANT FECHA_ANT MONEDA_CIE COSTO_CIE FECHA_CIE DIFERENCIAMONEDAPRECIOMARGENDLINEADGRUPOERRNANTERRMANTFECTCANTERRNCIEERRMCIEFECTCCIE CANTXBULTANTIGPRODMARCADMARCACOD_PRO PROVEEDORCMONORICCOSORI CCOSTO_ORI CDESC_ORICCOSCPBTCCOSCAU CDESC2_ORI CDESC3_ORI CDESC4_ORI CDESC5_ORI CCAMBIO_OAMONORIACOSORI ACOSTO_ORI ADESC_ORIACOSCPBTACOSCAU ADESC2_ORI ADESC3_ORI ADESC4_ORI ADESC5_ORI ACAMBIO_OCODALT1CODALT2CODALT3CODALT4 TIPOSTKMINSTK_MINSTK_MIN1XHINSXDINSXHATRXDATRXHBULXDBULXTIPOXPROMOARTICULOS_LLENARXDACTXDLINXHLINXDGRUXHGRUXDMARXHMARXDPROXHPROXRECCSYS_MCOD_INSMARCASPROVEEDONOMBRE XERR_COSTO2 XMSG_COSTO2XCOSTO XFECHA_COSTO XMONCOSTOXDMONMM_MAX XFECHA_TC2XHFECXMONORIXCOSORI XCOSTO_ORIXDESCUENTO_ORIXCOSCPBTXCOSCAU XDESC2_ORI XDESC3_ORI XDESC4_ORI XDESC5_ORIXCAMBIO_ORIGEN OBTENER_COSTO CS_GENERARXDTVAXDTCS MM_MONEDAXOLD XERR_COSTO1 XMSG_COSTO1 XFECHA_TC1XDFECXMACTCCCX_AX_DE MENSAJE_WAITXMONEDA VE_FUNCIONESVE_FUNCIONES_PRECIOS XVEOPRECIOXXMONEDAP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIOVE_OBTENER_PRECIO_COMPUTADOXDDSCMCANTIDADMOVSTOCKBCAUSAFECHAQXDSEPXSEPXDORDXORDBORRARINICIALXSEPOLDXOKLINEASGRUPOSIN ATRIBUTOSACTIVOEST_ACTXCOSTOS_VIEJOSXDIFALLTXINDEXEAAb!Aq!AAArAqrAq1A1Ars.aAvaqAAHaCbAbAArrrAQBAA!A1A v71As1A t7sRBtA2AAAq2AscBu rasqrAc11q1q1A11qA"bBrQdaaaAsrrrsAAA&!A2!A AraB2%m6=:6P9G+(listadosG+( dey_filtersG+(dey_fill CTcod_ins#space(8)4TCcod_insbienes+TC lineaBienes +TC lineaBienes :T-not Empty(cod_ins).and. (recep#0.or.cau="R") 4TCcod_insbienes+TC lineaBienes +TC lineaBienes FTCTCh1CCCC<DN C CCCCN N!N"N#N$N%N&N'N(N)N*N+N,N-N.CQ/F0G((codinsF2G((codproF4G((codigoF0%55 =F0G-(-4F6G((comprobF7G((fechaset filt to &fil_com G-(80G-(9C:Z6G-(2GGF EC;GFG +C+ <= 9F/ >78777<6C7:@z 9999,999,999_777> 7?6@d 6Ad #$,-0-CCProveedo+2B6%CC>!7?6@d 6Ad C7D7E6"7>7?6@d 6Ad C7D7E6 *L>!C7877CF"7>C7877CFF7H%55 { FGG((fechaset filt to &fil_rec G-(80G-(2GGF EC;GFG +C+ = w F/w>G8GGGCCGH,gCGICGJ@z 9999,999,999_CGI@z 9999,999,999_6RG !#GKGL$CG8GGGF%GKGLCG8GGGF,-0-CCProveedo+2B6FGHH Y  M F/& /N (Q/R>!C " 6$C# %# 6,#G-(0%x & C-ZCCgZ/  & C-Z/ M F/ (FQO & C Z/F/ ~ FO&EC/ Z///%C4 Q >/////""//!##/#%#/#/$,#F/FOQF/Q/G-(0%_ )& C0-ZCCgZCZ/  %& C0-ZCZ/ 2Y F/G-(0% G& C0-ZCCgZCZCCcd123AB6/ U C& C0-ZCZCCcd123AB6/>CCFCnCcNCYCdNDDC1CP/C2DPCRRE??666666&!'$#(#)$!*dC$$!$ 6+$!#kCBorrarDescrCodigoBul NO_CAMBIARAtr NO_CAMBIARLineaLin_Des NO_CAMBIARP4(CQrpt_cs_compras_y_recepcionesCBorrarRCBorrarRBUSLISTADOS DEY_FILTERSDEY_FILL OPEN_FILESFIL_COMBIE_GET_BIE_FILTERXDINSXHINSP_NUMINSBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUFIL_RECXBORRARODEYFUNCNEWFILE_LOCAL_TMPXBORRAR1CODIGOBULATRDESCRFECHAORDENCOMPROBCAUSACAUSA_FCOD_PROPRO_DESCANT_COMPREC_COMCOST_COMACCU_COMCANT_RECCOST_RECACCU_REC TOTAL_COM TOTAL_RECDIF_CANDIF_COSCOS_PORC TOTAL_FINDIFLINEALIN_DESBORRARBIENESCODINSPROVEEDOCODPROLINEASXDDETCCCOMPCOMPRASCOD_INSFAC_COMOPXDFECFEC_COMXHFEC RECEPCIONCOS_LIFODESC1DESC2NOMBREXDCOSMONEDACOEFIC FN_GET_COSTOCONVERREFRECEPTRANSFENTRASALEXDTIPALLBORRAR1 FILL_BIE_FULLGET_PATH CHK_DELETEDBHc q TTCdigo  &TC Descripcin TAtr TBul T O.C. TFecha  %TComprobante  $TC Proveedor  T Cant.Comp. "T Costo $T Total  T Cant.Rec. "T Costo $T Total  T Dif.Cant. T Dif.Costo T %  T Total I TTCdigo  &TC Descripcin TAtr TBul  T Cant.Comp. "T Costo $T Total  T Cant.Rec. "T Costo $T Total  T Dif.Cant. T Dif.Costo T %  T Total c TTCdigo  &TC Descripcin TAtr TBul T O.C. $TC Proveedor  T Cant.Comp. "T Costo $T Total  T Cant.Rec. "T Costo $T Total  T Dif.Cant. T Dif.Costo T %  T TotalTBUXDTIPTEMPLING^ G( (O<'Opciones de Impresin Desde Hasta(Destino............(Fecha..............(Cdigo.............(Lnea..............( Grupo..............( Nivel de Detalle...( Tipo...............( Fecha Valorizacin.|@!*P123450J[P]=Pantalla, [1]=Lpt1, [2]=Lpt2, [3]=Lpt3, [4]=Com1, [5]=Com2 o [0]=Salir-Fecha de los Costos.-Fecha de los Costos.E@!*CPresione para ayuda.E@!*CPresione para ayuda.Y@z 999*C&Desde Lnea. Presione para ayuda.Y$@z 999*C&Hasta Lnea. Presione para ayuda.;  @z 999*  Desde Grupo.; $ @z 999*  Hasta Grupo.G  @z 9*C Presione para ayuda.G @z 9*CPresione para ayuda.+ Fecha de Valuacin9*CMCM G^G(BUXDPRNXDFECXHFECXDINSHLP_BIEXHINSXDLINHLP_TABXHLINXDGRUXHGRUXDTIPHLP_RESXDRESXDDETHLP_TIPXDCOS H  TT TC= T T :TCCXC @z 999,999_6 TC* TC CFCnC cNCYC dNDDC 1CP/C 2DPC RRE??666666   'TC    (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ ,TC @z 999,999.99_ +TC @z 99,999.99_ CTCdC 6 @z 999.99_ 2TC@z 9999,999.99_ C  TT TC= T T (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ ,TC @z 999,999.99_ +TC @z 99,999.99_ CTCdC 6 @z 999.99_ 2TC@z 9999,999.99_ C  TT TC= T T %TC @z 999,999_ 'TC    (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ (TC @z 999,999.99_ *TC@z 999,999.9999_ 0TC@z 999,999,999.99_ ,TC @z 999,999.99_ +TC @z 99,999.99_ VTCdC!C6 6 @z 999.99_ 2TC@z 9999,999.99_ CTTTTTTTTTTTBUXDRESTEMPCODIGOBIENESDESCRBULATRORDENFECHACAUSACOMPROBCOD_PROPROVEEDONOMBRECANT_COMCOST_COMCANT_RECCOST_RECANCHOLINSCOMSRECTCOMTRECSRTOTSCTOTTRTOTTCTOTSCSRECTCSREC{45 T TCM%$ $ DD&< (TCompras y Recepciones#TSlo las Compras'TSlo las RecepcionesjC  6F arr_tipo"Presione para seleccionar.9@&% mBaB-UXTIPOMAXTIPOTECLAARR_TIPO45 T TCM%$ $ D&< :T'Detalle de Movimientos :T'Resumido por Artculo :T'Resumido por Orden de Compra - ArtculoiC  6F arr_res"Presione para seleccionar.9@&% BaB-UXRESMAXRESTECLAARR_RESH  TTCX TCX T  T  T  TCX #T  C X TC  T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_  T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_ ,TC @z 999,999.99_ T  T  )TC@z 9999,999.99_ C  TTCX TCX T  T   T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_  T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_ ,TC @z 999,999.99_ T  T  )TC@z 9999,999.99_ C  TTCX TCX T  T  T  TC  T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_  T  *TC@z 999,999.9999_ ,TC@z 999,999,999.99_ ,TC @z 999,999.99_ T  T  )TC@z 9999,999.99_ CTBU XDRESTEMPSRTOTSCTOTSCOMSRECSCSRECANCHOLIN dey_func2CBienesCodins$CultcosCodigoaCCONVERCONVERCcompras Ccccompcomprob!CproveedocodproClineascodigoUCREATE_OBJECT_DEYFUNC DEY_FUNC2ODEYFUNC CHK_OPENED4 T T T T TT  T T Q  cs_generar   BUXCODXBULXATRXDCOSXDTVAXLOT XERR_COSTO XMSG_COSTOXCOSTO XFECHA_COSTO XMONCOSTO XFECHA_TC OBTENER_COSTO CS_GENERARheaderZ criterioslineahlp_tip)hlp_res* subtotales, open_files3 fn_get_costo4#Q!0AAsrrrrrrbaaaqQ ArAAAqbaaaqQqrAAA1qa$A3qrqaQAz rArArQAqq1AA)BC3A1aQA!A!A2a!A!A2aA!A!AAA3baRQrrbaA31aaa q1!1aaa1!1aaaQqa!ARQRQB2qqQq1qAQAqAq2qqQqAQAqAq31111AB2AAq31111.# $*]%*=7$R7;98P9m;L;CCJEGnEfHS%H<74G+(listadosG+( cs_generar%Ccs_temphF Q%Ccs_temp2F Q%CxdesdebLTC$%CxhastabLTC$%Cidx04 (Qidx04< :oidx04C   % TC  T%Ccos Qcos%C #>T1cos.codigo=xcod and cos.atr=xatr and cos.bul=xbul =T.t./select codigo,atr,bul,fecha,costo,moneda,tipo,00000000000.0000 as ref, space(10) as error from cos where !empty(codigo) and costo#0 and fecha*> T T$F > F7select codigo,atr,bul,fecha,costo,moneda,tipo, 000000000000.0000 as ref, space(10) as error from cos where !empty(codigo) and costo#0 and xdesde<=fecha and fecha<=xhasta and tipo#"2" and &xfiltro order by codigo,atr,bul, fecha desc, tipo asc into cursor query0 ( \tmp\cs_tempFQ \tmp\cs_temp & C!CPasada 2. Suspendo?aF! ~F #E!!!C!%C4 .7>!!!!>!! T T$!!!F > F!F  \tmp\cs_temp2ocs_tempCQ"CQ#CQ$C Q query1aoquery1$" dQ&$" d&<query2F'%Cbienes Qbienes%Clineas  Qlineas%Cgrupos I Qgruposoquery2Xbienes '(9Xlineas (2)Xgrupos (4*Xatributo ''090:Xbultos ''191:'Q'Q'Q' Q '"Q+'#Q,'$Q-'&Q.CCC(/C2X C0/CX C1/CX2Q/C(2 Q2C)/C(XQ3C(4 Q4C*/C(XQ5C(6Q7CC(6Producto TerminadoC(6Producto en ProcesoC(6 Materia PrimaC(6Materiales VariosbC(6 Mano de Obra>C(6Mano de Obra de Terceros DesconocidoQ8(/0/1/query3*(\tmp\cs_analisis_de_costos T; F QF!QF%QF'Q%;G+(listadosG~(ClasesT<C ExportacionesN(T=CExportaciones_ParametrosNtT=>0Anlisis de Variacin de Costos - Periodo: C* a C* En CC6?)T=@cs_analisis_de_costos.dbf&T=AAnalisis_de_Costos.dbf C=B!CcodigoArtculo=BCatrAtributo=BCbulBulto=B#Cdescr Descripcin=B'CerrorError de Cambio=BCminimoMnimo=B#CpromedioPromedio=BCmaximoMximo=B#Caumento Variacin=BClineaLnea=B%Cdlinea Descr. Lnea=BCgrupoGrupo=B%Cdgrupo Descr. Grupo=BCtipoTipo=B$Ctdescr Descr. Tipo=BT=CC=<D ,-C No se han obtenido registros !!!EBUF XREFERENCIAXDESDEXHASTAXPERCENTXCODXATRXBULLISTADOS CS_GENERARCS_TEMPCS_TEMP2IDX04AAAAVGINDICE1FECHAXCAMBIOCOSXFILTROP_LOCALCODIGOATRBULIDSYS_MOSTRAR_SCREENQUERY3COSTOMONEDAXREFXERROR FN_COS_REFREFERRORQUERY0 COSTO_MIN COSTO_PRO COSTO_MAXQUERY1SPREADQUERY2BIENESLINEASGRUPOSMINIMOPROMEDIOMAXIMOAUMENTODESCRATRIBUTOBULTOSLINEADLINEAGRUPODGRUPOTIPO_ARTTIPOTDESCRCOD_INSCLAVE XREGISTROSXEXPXPAR EX_TITULO MM_MONEDAEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSMENSAJEf4%a%FF G((idx04<GF EGFTCC+CO6% T #+C+ )%C idx04.indiceCCZ!H#TC idx04.indiceCCZ% ITC*%j # }#6H+C+ "%C idx04.indice1!HTC idx04.indice1% TC*ATC6C Hz>6 ] T [%@F G((idx04<GF EGFTCC+CO6+C+ )%C idx04.indiceCCZ!H#TC idx04.indiceCCZT W TBU XCOSTOXMONEDAXFECHAXREFXERRORXREGXTCMONXTCREF XREFERENCIAIDX04FECHA fn_cos_ref"AqAAqAAaAaArAr"ASA"AarqQABrsrA~rq1QuABrsrAs?r!A!A!A.rAqAqAqA2#!Ca1q11QQA CD4q2raa2AAAA1A2ABQAA!AAAA2AA2qaaAAAA1AAA17# %\G=LN;G(9TBAH4 >C(0C(8C C C C(C!CBA CBABA! C(i0C(8C88  C8 C %C)3T ~%C)cT z TC T (\T T %C)T :%C)6TC (ACC 69CC 6C C(;C%CBA#CBABA %C)T R%C)7T N TC(-C"CC 2C( l0C!CBA CBABABU ACTIVEFORM DATASESSIONID XMAXFECHACASHCFGTIPOLISAGREGARXDFECXYDFECXFIRSTOLD 2aAAQbAbAAQbTQAASQAAAAbAR1bTQAAA"AAB10 ( PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _RB112A5GK 590514791 1 53 1.000 0.000 0.00080000.000 F   0 8 20T1212 FF T F WINDOWS _RB112A5GN 9 1 9480.000 0.000 F FFF F WINDOWS _RB114FIGW 9 3! 0.000 0.000 F FFF F WINDOWS _RB112A5GO 9 4 1771.000 0.000 F FFF F WINDOWS _RB114FIJ1 9 5 2292.000 0.000 F FFF F WINDOWS _RB112A5GP 9 7 0.000 0.000 F FFF F WINDOWS _RB114D9N9 9 8 5000.000 0.000 T FTF F WINDOWS _RB112BLSR 590514791 5 0# 1250.00021250.000 1666.66719166.667 -1 -1 -1 -1 -1 -1 " 0 10 1 T F 0 TF3 0F WINDOWS _RB112FQL2 590514791 8 0% 1145.83341250.000 1875.000 7604.167 & C -1 -1 -1 -1 -1 -1 ' 0 10 1 T F 0 0 0 1 TF3 0F WINDOWS _RB112G84E 590514791 5 0) 1250.00049270.833 1666.667 1666.667 -1 -1 -1 -1 -1 -1 ( 0 10 1 T F 0 TF3 0F WINDOWS _RB112GEMG 590514791 8 0* 1145.83351250.000 1875.000 7604.167 + C -1 -1 -1 -1 -1 -1 , 0 10 1 T F 0 0 0 1 TF3 0F WINDOWS _RB112JYD4 779835946 8 0- 3645.83318854.167 1875.00041250.0000 . C -1 -1 -1 -1 -1 -1 / 0 10 1 T F 0 2 0 1 TF3 0F WINDOWS _RB112M7MJ 590514791 5 02 6666.667 312.500 1666.667 9166.667 0 0 0 -1 -1 -1 1 1 10 1 T F 0 TF3 0F WINDOWS _RB112MJD8 590514791 5 04 6666.66716250.000 1666.667 5000.000 0 0 0 -1 -1 -1 3 1 10 1 T F 0 TF3 0F WINDOWS _RB112MOQC 590514791 5 06 6666.66722500.000 1666.667 3333.333 0 0 0 -1 -1 -1 5 1 10 1 T F 0 TF3 0F WINDOWS _RB112MY2C 590514791 5 08 6666.66730000.000 1666.667 6666.667 0 0 0 -1 -1 -1 7 1 10 1 T F 0 TF3 0F WINDOWS _RB112N56X 590514791 5 0: 6666.66741770.833 1666.667 5833.333 0 0 0 -1 -1 -1 9 1 10 1 T F 0 TF3 0F WINDOWS _RB112ND7Q 590514791 5 0< 6666.66748229.167 1666.667 5000.000 0 0 0 -1 -1 -1 ; 1 10 1 T F 0 TF3 0F WINDOWS _RB112NJ7U 590514791 5 0> 6666.66753750.000 1666.667 5000.000 0 0 0 -1 -1 -1 = 1 10 1 T F 0 TF3 0F WINDOWS _RB112O4QR 590514791 6 6250.000 0.000 104.16777500.000 -1 -1 -1 -1 -1 -1 1 8 0 T F 1 TF3 0F WINDOWS _RB112O6VY 590514791 6 8750.000 0.000 104.16777500.000 -1 -1 -1 -1 -1 -1 1 8 0 T F 1 TF3 0F WINDOWS _RB112OEX4 590514791 6 6250.000 0.000 2604.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RB112OY68 590514791 6 6250.00077500.000 2604.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 T F 0 TF3 0F WINDOWS _RB112PSPR 590514791 8 0?13645.833 312.500 1666.667 2604.167 G C 0 0 0 -1 -1 -1 H 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112TI6F 590514791 8 0I13645.833 3020.833 1666.667 8854.167 J C 0 0 0 -1 -1 -1 K 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112UDWY 590514791 8 0L13645.83312291.667 1666.667 2604.167O M C 0 0 0 -1 -1 -1 N 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112UZA2 590514791 8 0P13645.83315000.000 1666.667 6354.167S Q C 0 0 0 -1 -1 -1 R 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112VOQN 590514791 8 0T13645.83322500.000 1666.667 7604.167 U C 0 0 0 -1 -1 -1 V 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112VVEG 590514791 8 0W13645.83331041.667 1666.667 7604.167 X C 0 0 0 -1 -1 -1 Y 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112WD0N 590514791 8 0Z13645.83339895.833 1666.66710104.167] [ C 0 0 0 -1 -1 -1 \ 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112X2P4 590514791 8 0^13645.83350625.000 1666.667 3854.167 _ C 0 0 0 -1 -1 -1 ` 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB112XBXP 590514791 8 0a13645.83355104.167 1666.66722500.000 b C 0 0 0 -1 -1 -1 c 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB114FSRY 590514791 8 0d18125.00039895.833 1666.66710104.167g e C 0 0 0 -1 -1 -1 f 1 8 1 T F 2 0 0 1 TF3 0F WINDOWS _RB114H902 590514791 6 17604.16739687.500 208.33310208.333 -1 -1 -1 -1 -1 -1 2 8 0 T F 1 TF3 0F WINDOWS _RB1189JKP 59051479118 hi F j 2 1 WINDOWS 23 14.000 7.000 11.000 7.000 3 0 k 0 8 WINDOWS 23 16.000 8.000 12.000 9.000 4 0 l 0 10 WINDOWS 23 16.000 8.000 12.000 10.000 4 0 m 1 10 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 n 1 8 WINDOWS 25 op F r!&K7z&5)z뛹0 Courier New5=HVͤC<$winspoolHP LaserJet 6L PCLLPT1:HP LaserJet 6L PCL@g XX @MSUDHP LaserJet 6L PCL&d DRIVER=winspool DEVICE=HP LaserJet 6L PCL OUTPUT=LPT1: ORIENTATION=0 PAPERSIZE=9 COPIES=1 DEFAULTSOURCE=273 PRINTQUALITY=600 YRESOLUTION=600 TTOPTION=2 .T. Courier New"COMPOSICION DEL PERIODO "XDESDE  Courier New Courier New"AL"XHASTA  Courier Newalltrim(CASH2.DESCr) ْP  Courier New"@!" Courier New "COMPROBANTE" Courier New"NUMERO" Courier New"REAL" Courier New "ESTIMADA" Courier New "IMPORTE" Courier New"CODIGO" Courier New"NOMBRE"iif(borrar4.causa='V','FC',iif(borrar4.causa='c','NC',iif(borrar4.causa='d','ND',iif(borrar4.causa='R','RC',iif(borrar4.causa='A','AJ',iif(borrar4.causa='L','AS',iif(borrar4.causa='C','FC',iif(borrar4.causa='O','PA',iif(borrar4.causa='H','CH','')))))))))  Courier Newborrar4.COMPROB  Courier New borrar4.CUOTA  Courier New"@z 99"borrar4.NUMERO  Courier New"@z 9,999,999"borrar4.FECREAL  Courier Newborrar4.FECESTI  Courier Newborrar4.IMPORTE  Courier New"@Z 999,999,999.99"borrar4.CODIGO  Courier Newborrar4.NOMBRE  Courier NewXACC  Courier New"@Z 999,999,999.99"XACCBORRAR4.IMPORTE0 Courier New Courier New Courier New Courier NewdataenvironmentName = "Dataenvironment" %M! #BDCVFCCcNCCdNDCRRCCAAJCLASlCCFCWCOPABCPNP-CIIMCBPR66666666666 > > C'> C'> C'> C >- R BU ACTIVEFORM DATASESSIONIDCASHDATACOMPROBFILTROXCENTROBORRARCOMPSEMASEM1SEM2SEM3SEM4FECANTOLDIMPOCAUSAALLIMPORTEFORFECESTIXFECHAMODIFuR11QQAAUqAqqqqRB1%T0TX45 TTC%TCTC%  T%C T  T BUARCHIVOERRORPOSHr!Aa!A!AA1%T8it@ˌBCUXFILE HASHMD5_FILE BCCCUXFILEHASHMD52 T TTC>TCC QTC> 0| GetLastErrorwin32apiQ GetLastErrorI|CryptAcquireContextAWIN32APIQCryptAcquireContext&TC A %8 C@|CryptCreateHashWIN32APIQCryptCreateHash1TCCCC  % C:| CryptHashDataWIN32APIQ CryptHashDataTC %B CE|CryptGetHashParamWIN32APIQCryptGetHashParam TC% C9|CryptDestroyHashWIN32APIQCryptDestroyHashTC%4 CA|CryptReleaseContextWIN32APIQCryptReleaseContextTC% C("%C%CHashMD5 Failed BUTCDATALNSTATUSLNERRLHPROV LHHASHOBJECT LNDATASIZE LCHASHVALUE LNHASHSIZE GETLASTERRORWIN32APICRYPTACQUIRECONTEXTACRYPTACQUIRECONTEXTCRYPTCREATEHASH CRYPTHASHDATACRYPTGETHASHPARAMCRYPTDESTROYHASHCRYPTRELEASECONTEXT HashMD5_FileZHashMD5r9qa3qAc1A1A1AY1A#1AS1A3A3AB2B O %c'/~,X%C0TlogG $G(\log\C.txtG %C*dQCC GG(BUXTXTXINICIOXLOGFILEP_SYSTEM#G+(listadosTCC   T C  T C  T C  T C  !T CC  aT C   T- T 4TC I Ta% T! %C  T _ H=  %Cx`T  CCCC$iZ-C00CCCC$HZR-C00CCCC$%ZR_CC^:- T  C 2=%C T  C_`T  CCCC$iZ-C00CCCC$HZR-C00CCCC$%ZR_CC^:-5T  CC   - 6T  .txtT aT  C UXCARPETAXARCHIVO XMULTIPLEXCON_FECHA_HORA XSUBCARPETAXID_TRANSACCION XCARPETA_RAIZXAGREGAR_EMPRESALISTADOSTHISARCHIVOAGREGAR_EMPRESAMULTIPLECARPETA SUBCARPETAID_TRANSACCIONLIMPIAR_FILE_NAME CARPETA_RAIZXZAFARXEMPRESA_ABREVOCOLLGESFORMEMPRESASGET_CONSOLIDAROEMPABREVINICIOCON_FECHA_HORAEVALUAR_ARCHIVOS: TCCtxt CUXARCHIVOXEXTTHISARCHIVOEVALUAR_ARCHIVOSl%C=TC  Ta %C0 C C( T-%T a2T CC#log\C 9T -T  eT -T U THISEXISTE_CARPETACARPETA SUBCARPETAARCHIVO_CON_PATHCARPETA_CON_PATHARCHIVOXOKOEXESTADO ARCHIVO_LOG TC %CtTC TC Ta 4% TC TC TCC Ta%C 0  (, T-%%C TCC\C%C   ( T-%T  T  BU XCARPETA XSUBCARPETAXTPATHXFPATHOEXXOKODEYFUNCGET_PATHTHIS CARPETA_RAIZCARPETA_CON_PATHTC %Cusuarios PQ \usuarios<FousuariosC  SUPERUSUARIO   T%T Usuario: H /*T[CCZ] CC p/T[CCZ]  Desconocido 2;T*Atencin !!! Error de unicidad en usuarios BUXTIPOP_SYSTEM ARR_USR_LOGDESCRUSUARIOSCODIGO PUB_INDEXXTXT T*T LineNo: CZC )T Message: C +T Procedure: C )T Details: C .T StackLevel: C ZC .T LineContents:  C +T UserValue:  C % ~C  BUOEX XNOLOGUEAR XRENGLONESXVERBOSE XRES_MENSAJELINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS USERVALUETHISLOG TTC TC %jB-TC C TC %C xrenglonesbN T%#% "TC  %%C  NTCC-dQ C   6 %-NTCC-dQ C   6  oeTCC CC 6 C   6 %&TC  %T-U XTXT XRENGLONESXVERBOSEXBUFFERXSALIDATHISVERBOSEXENTERINICIOLOG_TOARCHIVO_CON_PATHMULTIPLECON_FECHA_HORATC %QC   %C T"TC BUXTEXTOXPATHXFLAGXBUFFERTHIS LOG_BUFFERTC  TEC6(CC6CCT BUXBUFFERXSALIDANITTHIS LOG_BUFFERLOG  T-TC %C0%(\tmp\%=TCCC Abre el registro (log) ?6  Ta%% %h1\tmp\C] M \tmp\ T CM mostrar_txtImportacin de recepciones\tmp\ Q  )internet\tmp\ U XPREGUNTAXMENSAJE XTIPO_ABRIRXABRIRAAATHISARCHIVO_CON_PATHP_LOCALARCHIVO MENSAJE_SINO TIPO_ABRIRMEMOXALIAS MOSTRAR_TXT SHELLEXECINTERNET&TC_C \(( T-T BU XARCHIVOXOKXMSGXNEWFILEOEXTHISCARPETA_CON_PATHARCHIVOMESSAGE<TCTCC Ta%C { ( T- %,%C (TCCC%C $  (  T- BUXOKXCARPETA XSUBCARPETAXTPATHXFPATHOEXODEYFUNCGET_PATHD"BCaUXCARPETAXARCHIVO XMULTIPLEXCON_FECHA_HORA XSUBCARPETAXID_TRANSACCION XCARPETA_RAIZD"BCaUXCARPETAXARCHIVO XMULTIPLEXCON_FECHA_HORA XSUBCARPETAXID_TRANSACCION XCARPETA_RAIZINITCambiar_Archivo-evaluar_archivosexiste_carpetausuario  Log_Excepcion# LOGCLog_ToVaciar_Buffersabriragregar_archivo<carpeta'INITINITYTPlan de CuentasUCARPETATAGES SOLUCARPETA; T T T T Ta T T- T- T T  T  T  T  T  T          U CARPETA_RAIZCARPETA SUBCARPETAARCHIVOINICIOMULTIPLECON_FECHA_HORAESTADO TIPO_ABRIRVERBOSECARPETA_CON_PATHARCHIVO_CON_PATH ARCHIVO_LOGID_TRANSACCIONAGREGAR_EMPRESA LOG_BUFFERU TT Mantenimiento+TCuentas Corrientes de ClientesUMULTIPLECARPETA SUBCARPETAX TT Mantenimiento.T!Cuentas Corrientes de ProveedoresUMULTIPLECARPETA SUBCARPETA2 TTPermisos TUMULTIPLECARPETA SUBCARPETA> TT MantenimientoTPedidosUMULTIPLECARPETA SUBCARPETAG TTTablas$TClientes - InactivacinUMULTIPLECARPETA SUBCARPETAH TT MantenimientoTOrdenes de CompraUMULTIPLECARPETA SUBCARPETA3 T#TImportaciones de ExcelUMULTIPLECARPETAT RecepcionesUCARPETA Tc TUVERBOSE CARPETA_RAIZCTCostos-T Costos de Reposicin - AnulacinUCARPETA SUBCARPETAATCostos+TCostos de Reposicin - IngresoUCARPETA SUBCARPETAMTPrecios6T)Determinacin de Precios y BonificacionesUCARPETA SUBCARPETA:T GES ClientesTMAX - RendicionesUCARPETA SUBCARPETA>T GES Clientes"TMAX - Precios RemitosUCARPETA SUBCARPETATCheques PropiosUCARPETA4 T$TSincronizacin de datosUMULTIPLECARPETA8 Ta TTActualizacion BIUCON_FECHA_HORAMULTIPLECARPETA2T GES ClientesT MAX - OcsUCARPETA SUBCARPETATCierresUCARPETATDebugUCARPETA$TBalanza TUCARPETAMULTIPLE7T GES ClientesTMAX - CashflowUCARPETA SUBCARPETATDebugUCARPETAT AprobacionesU SUBCARPETAE T Ta TDocumentos Externos UMULTIPLECON_FECHA_HORACARPETAMT T TT log_precios UAGREGAR_EMPRESAMULTIPLECARPETAARCHIVOJ TT Mantenimiento TFacturas de RemitosUMULTIPLECARPETA SUBCARPETAloguear_cuentasloguear loguear_ages_solloguear=loguearCUSTOMfloguear_mantenimiento_clientesloguearr!loguear_mantenimiento_proveedoresloguearloguear_cambio_permisosloguearmloguear_mantenimiento_pedidosloguearloguear_inactivacion_clientesloguear+ loguear_mantenimiento_ocsloguear loguear_imp_exploguear!loguear_imp_exp_recepcionesloguear_imp_expV!loguear_importacionesloguear_imp_exp!*loguear_costos_anulacion_costos_reposicionloguear_imp_exp!(loguear_costos_ingreso_costos_reposicionloguear_imp_exp"loguear_precios_determinacionloguear|"loguear_imp_exp_rendiciones_maxloguear_imp_exp"#loguear_imp_exp_max_precios_remitosloguear_imp_exp=#loguear_imp_exp_cheques_propiosloguear_imp_exp#loguear_sincronizacionesloguear#loguear_actualizacion_biloguear$#loguear_imp_exp_importacion_ocs_maxloguear_imp_expz$loguear_cierresloguear$loguear_cierres_debugloguear$loguear_balanzaloguear%loguear_max_cashflowloguearV% loguear_debugloguear%loguear_aprobaciones loguear_debug%loguear_doc_externosloguear&loguear_preciosloguearp&loguear_mantenimiento_fcdereloguear&AbAa!AbaB11#AAAAAabA!AAR42Q!QAA!AA322rqqqA1AAA"2AABAA3q2Arfr2bA!!A21qA21t11arBrR2A2!"AASAAQA1aA2A3111aA!A2q1qQaA22DQAaQQrABB21qa!A6Aq2AA"2AABA1!8!81Q1pP0P=11Q1A11A1111111111Aa11!11A11a1A1!1A11!11441 F?"C\ 3T! m$$%P&'^.'*i$+&, U,b.'#::G*;d<Q-,/01=2,4T..X9//\/0`Y00d0 1hb11l12oZ2p2q22t23s3w3 4zQ44}4$5 x5566_666 7`77%77*8(8.`882887)999<|99@9;C8;n<L<<W%'GB;W4C Suspendo?a%%Ccashprov bFQcashprov%Ccashproc FQcashproc#ocashprovǼ proy_ven_com& #ocashprocǼ proy_cob_pag&  %Ccashprom 8FQcashprom%Ccashprop mFQcashprop#ocashpromǼ proy_ven_com& #ocashpropǼ proy_cob_pag& %Ctmp_pronF QT C 9h1  DNCQ  F G((mes1~C(C(% d(`F G((mes-%C4\(X'TCproy_cob_pag.porCCZ/TCproy_ven_com.semCCZd %TT(PT%Lrtmp_pron  Periodo CCCHZ/CCCiZ Semana CCZ Da CCZC Suspendo?aF ~6CCCC 6  C6  N  FQFQBUXTIPOSYS_MOSTRAR_SCREENCASHPROVCASHPROC PROY_VEN_COMMES PROY_COB_PAGCASHPROMCASHPROPTMP_PRON XTMP_PRONODEYFUNCNEWFILE_LOCAL_TMPFECHAIMPORTEDESCRXDFECZSEMANAZXCOBXIMPORTEXFECHAIXFECHA2 AGREGAR_VENCXEMPCASHCFGTSPRYVENTSPRYCOMqx2AA22AA22CqAAssr2B2ABABBBBrra ArArAB1% 1KD?)G+(Dey_FuncG(9)CAnalizando datos... T TTCXTCXH T P T N 2T CF FH COQcash2i T  Consolidado PQcash2ipo T  Postergables NQcash2inp T No Postergables%dH` G( <G(  `G(CX % H G( G(  G(CX H BG(C |'G(C   G(C CX TC(C' FQi1Ci1N8& CCC=gZCCC\gZC=ZZ> Desconocido>CC=gCcash2pF # T T T!" T#$ T%& T'( T)* T+, T-. T/0 T12 T34 T56 T78 T9: # T; T< T=" T>$ T?& T@( TA* TB, TC. TD0 TE2 TF4 TG6 TH8 TI: %>C FQBU ACTIVEFORM DATASESSIONIDXFECHAXDESTINOXCASHXCENTROXDCENXHCENFECHADCENHCENCENTROARRTIPOARRSUMA ASIGNAR_TIPOSGS_DETALLE_TOMA_4_SEMANASXFILTXTIPOBORRARP_LOCALOBTDETA TIPO_DESCTIPO_CODIDF~(%C  TC,TCSCH-6BUCASHTIPOSUBTIPOTIPOARRTIPODESCRARRSUMAP_EMPSUMA asignar_tipos uAqQQAAq1AAraarA1!AAqAD3uAAAB1/A%c!J$9!#Tu 4%CxdesdebLNTCCC$iCC$H$%CxhastabLz TC$%CxmonedabL T%Cxtipo_tcbL T% a Ta Ta T  ;G(9 Eolineas Q Q Q Q Q Q Q Q Q Q 1 \tmp\tmp_tcT tc_contrib!%C 1C$No se ha podido crear el reporte !!!B T!%C 1C$No se ha podido crear el reporte !!!B T%C J1C$No se ha podido crear el reporte !!!B T%C 1C$No se ha podido crear el reporte !!!B T!%C! 1C$No se ha podido crear el reporte !!!B T"%C"# g1C$No se ha podido crear el reporte !!!B%%Ctmp_tcF$QBa%QEXPORTACIONES_PARAMETROS imp_exp.vcx(QEXPORTACIONES_PARAMETROS imp_exp.vcxa)QEXPORTACIONES_PARAMETROS imp_exp.vcx*QEXPORTACIONES_PARAMETROS imp_exp.vcx:+Q EXPORTACIONES_PARAMETROS_FORMATO imp_exp.vcx'T,C ExportacionesIMP_EXP2T%CExportaciones_ParametrosIMP_EXP:T-C Exportaciones_Parametros_FormatoIMP_EXPT-.###,###,##0.00T-/aT-0Cdd^T-1 T2 TC Schillig%MT3 FacturacinT4tc_facturacionT5 TC SchilligT6baseT7Datos Facturacion T8aT9 C:T;ClineaCodigo:CdlineaLnea:CnetoImporte: T<aT=GrficoT> 1 Grfico,T?='Datos Facturacion'!R4C3:R?C3,T@='Datos Facturacion'!R4C2:R?C2C%,ABT(C%C(U T3Datos GlobalesT4tmp_tcT7Datos Globales TDa C:T;ClineaLnea:!Cdescr Descripcin:CventaVenta:CcostoCosto:$Ccontrib Contribucin:CstockStock:*CclientesFacturas a Cobrar:*CpedidosPedidos Pendientes:%CprovFacturas a Pagar:5CimportOCs e Importaciones Pendientes:C(,AB C,E%Ctmp_tc F$QBUFXMANUAL XNO_CALCULARXDESDEXHASTAXMONEDAXTIPO_TC DEY_FUNC2P_DEV P_SUSPENDP_DOS ACTIVEFORM DATASESSIONIDCODIGOLINEADESCRVENTACOSTOCONTRIBSTOCKCLIENTESPEDIDOSPROVIMPORTLINEASP_LOCALXTABLA_CONTRIB CONTRIBUCIONMENSAJEXTOTAL_INVENTARIO INVENTARIOXTOTAL_PEDIDOSXTOTAL_OCS_IMPOS OCS_IMPOSXTOTAL_CLIENTESXTOTAL_PROVEEDORES PROVEEDORESTMP_TCXPAR1IMP_EXPVCXXPAR2XPAR3XPAR4XFOR1XEXPXFOR NUM_FORMAT FONT_BOLD FONT_COLOR FONT_SIZEXREPORTE_COMPLETO EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_ARCHIVO_PLANTILLAEX_TITULO_HOJAEX_ANEXAR_REUSARHOJA EX_XLS_ABRIREX_XLS_CAMPOS_AGREGAREX_XLS_CAMPOS_ORDENEX_XLS_GRAFICOEX_XLS_GRAFICO_HOJAEX_XLS_GRAFICO_NOMBREEX_XLS_GRAFICO_VALUESEX_XLS_GRAFICO_XVALUESPARAMETROS_COLLADDEX_COPYEX_ANEXAR_USARFINALEXPORTAR_XLS_COLLC Suspendo?a%L TaB%Nsch_sql_contribucion2tc_tmp_C_C Ta?%C \xchg\tc_tmp_C_C.dbf09Q \xchg\tc_tmp_C_C otc_tmp Q  Q CQCQCQ   <1\tmp\tc_facturacionTotc_facturacion Q CQCQCQ tmpF ~uF-  %C4q*>FQF Q  T-+CDeben generarse los costos !!! BUXTABLAXDESDEXHASTAXMONEDASYS_MOSTRAR_SCREENXTIPO_TCXOK EXPORTAR_1SCH_SQL_CONTRIBUCION2P_SERVERTC_TMPLINEALIN_DESDLINEANETO TOT_COSTOCOSTOCONTRIBP_LOCALTOTALTC_FACTURACIONTMPTMP_TCVENTAMENSAJE\4%5 TaB%~in_sql_movimientos tc_inventario_C_C0 0  TaF%C\xchg\tc_inventario_C_C.dbf0 F;Q\xchg\tc_inventario_C_C K( 9o tc_inventario Q C Q tmpF ~F - %C4> F QF Q L T-*CDeben generarse los datos !!! BUXTOTALXDESDEXHASTAXMONEDAXTIPO_TCXOK EXPORTAR_1IN_SQL_MOVIMIENTOSP_SERVER TC_INVENTARIOTOTALLINEATMPTMP_TCSTOCKMENSAJE1 4%- TaB%d)ve_sql_productos_pendientes_de_entrega_v3 tc_pedidos_C_C TaC%C\xchg\tc_pedidos_C_C.dbf0F8Q\xchg\tc_pedidos_C_C K( 6o tc_pedidos Q C Q tmpF ~F- %C4> F QF Q ! T-*CDeben generarse los datos !!! BUXTOTALXMONEDAXTIPO_TCXOK EXPORTAR_1)VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3XDESDEXHASTAP_SERVER TC_PEDIDOS TOTAL_PESOLINEATOTALTMPTMP_TCPEDIDOSMENSAJE` 4%- TaB%`cm_sql_comprastc_ocs_C_CC3 $ Ta?%C \xchg\tc_ocs_C_C.dbf0F4Q \xchg\tc_ocs_C_C K  ( `otc_ocsbienes QC Q    tmpF ~F-%C4>FQF Q P T-*CDeben generarse los datos !!! BUXTOTALXMONEDAXTIPO_TCXOK EXPORTAR_1CM_SQL_COMPRASXDESDEXHASTAP_SERVERTC_OCS DET_SAL_RDATATIPORENGLON1BIENESLINEATOTALDET_CODCOD_INSTMPTMP_TCIMPORTMENSAJE 4%- TaB%Nve_sql_facturas_a_cobrar tc_clientes_C_C TaD%C\xchg\tc_clientes_C_C.dbf0F9Q\xchg\tc_clientes_C_C K( 7o tc_clientes Q C Q tmpF ~F- %C4> F QF Q  T-*CDeben generarse los datos !!! BUXTOTALXMONEDAXTIPO_TCXOKEXPORTAR_TC_SCHILLIGVE_SQL_FACTURAS_A_COBRARXDESDEXHASTAP_SERVER TC_CLIENTESSALDOLINEATOTALTMPTMP_TCCLIENTESMENSAJE 4%- TaB%Icm_sql_facturas_a_pagartc_prov_C_C Ta@%C \xchg\tc_prov_C_C.dbf08F5Q \xchg\tc_prov_C_C K( otc_provXcompras Xbienes     QCCXQC QCQtmpF ~F-%C4>FQF Q w T-*CDeben generarse los datos !!! BUXTOTALXMONEDAXTIPO_TCXOKEXPORTAR_TC_SCHILLIGCM_SQL_FACTURAS_A_PAGARXDESDEXHASTAP_SERVERTC_PROVCPBT_IMPCPBT_COD CPBT_COMPCPBT_OPTOTALCOMPRASCOD_INSOPBIENESLINEATMPTMP_TCPROVMENSAJE contribucion8 inventariopedidos ocs_imposclientes  proveedoresqAAAARBA tAAAAAAAAAAAA3qqAABAr!!QqBAAAQQHArqAAC41s2AA2BKIsqABrArAA312AA2AbsqABrArAA42AA2CA2gsqABrArAA62AA3AA sqABrArAA22AA4ABwsqABrArAA33AA2AQ rqABrArAA7y">"&v&**..3#% $h FjoK"%Crpt_ve_asistencia&QT.t."%CX CX %@T3betw(val(asistencia.cod_cli),val(xdcli),val(xhcli)) 1T$betw(asistencia.cod_cli,xdcli,xhcli)"%CX CX %zTi.and. (betw(val(asist.tecnico),val(xdage),val(xhage)) or betw(val(asist.tecnico2),val(xdage),val(xhage))) \TK.and. (betw(asist.tecnico,xdage,xhage) or betw(asist.tecnico2,xdage,xhage))select asist.pedido , asist.tran , asist.asistencia , iif(asist.garantia,"SI", "NO") as garantia , asist.costo , asist.tecnico , asist.tecnico2 , fecha1 as fecha1 , fecha2 as fecha2 , fecha3 as fecha3 , fecha4 as fecha4 , fecha5 as fecha5 , iif(noche1,"SI","NO") as noche1 , iif(noche2,"SI","NO") as noche2 , iif(noche3,"SI","NO") as noche3 , iif(noche4,"SI","NO") as noche4 , iif(noche5,"SI","NO") as noche5 , padr(iif(complejo1<=1,"Ninguno",iif(complejo1=2,"Enraf",iif(complejo1=3,"Caudal",iif(complejo1=4,"Freewave","Desconocido")))),20) as complejo1 , padr(iif(complejo2<=1,"Ninguno",iif(complejo2=2,"Enraf",iif(complejo2=3,"Caudal",iif(complejo2=4,"Freewave","Desconocido")))),20) as complejo2 , padr(iif(complejo3<=1,"Ninguno",iif(complejo3=2,"Enraf",iif(complejo3=3,"Caudal",iif(complejo3=4,"Freewave","Desconocido")))),20) as complejo3 , padr(iif(complejo4<=1,"Ninguno",iif(complejo4=2,"Enraf",iif(complejo4=3,"Caudal",iif(complejo4=4,"Freewave","Desconocido")))),20) as complejo4 , padr(iif(complejo5<=1,"Ninguno",iif(complejo5=2,"Enraf",iif(complejo5=3,"Caudal",iif(complejo5=4,"Freewave","Desconocido")))),20) as complejo5 , padr(asist.notas,254) as notas , nvl(clientes.nombre, space(40)) as nombre , space(40) as nomtec , space(40) as nomtec2 from asist left outer join clientes on asist.cod_cli = clientes.cod_cli order by asist.asistencia where &filtro into cursor borrar readwrite F ~%C 2 Cagentecodage> %C ~ C agentecodage> F&(\tmp\rpt_ve_asistenciaQBUFILTROXDCLIXHCLIP_CLINUMXDAGEXHAGEP_AGENUMBORRARTECNICONOMTECAGENTENOMBRETECNICO2NOMTEC2P_LOCAL!AA$AA"AA !]rQ1AR1AArcBB1%*-<W+3OWō\ 4%CxmbC0 T %- a Ta Ta G(TGUILLEC Suspendo?aG+(listados G(9 ( %C XaC*No se pudo crear la carpeta de destino !!!CC \er\C6 %Cy TC$ &TCCC=gCC\g$TC]T tmp_periodos+listados F#6 T%CQco_costo_ajustes_de_inventario(Remitos Pendientes/Facturados T  T Ta#TCCC=gCCRg$%QTCC=gTCCRgTC$ETCC 6C 6$ T%SCH%Cidx04 Qidx04"%Cidx04idx04 :CNo existe el cambio a la fecha C* !!! B- % r6CCambio invlido a la fecha C* !!! B- T  T! T" T#$!"#%!C" M%CI/C"Se han registrado los asientos !!! BU%XM XVERSION_ER DEY_FUNC2P_DEV P_SUSPENDP_SERVERCL_NOMSYS_MOSTRAR_SCREENLISTADOS ACTIVEFORM DATASESSIONIDOEXXCHG_CREAR_CARPETAMENSAJE PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOXMESXDESDEXHASTA XCAMBIO_REFP_EMPIDX04INDICE1XERRXMSGXASIENTOPROCESAR4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B Tbtrsacsch_remitos_pendientes.prg(Asiento de Remitos Pendientes/Facturados T C %C%Cg C  C+%Ctmp_remitos_pendientesN{ T T %w!!" T /!" No hay datos T CC6# CBU$XERRXMSGXFECHAXDESDEXHASTAXASIENTOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANXASIENTOS_ANTERIORESANULO_ASIENTO_ANTERIORXM CALCULOS_V2REGISTRAR_ASIENTOUSER_LOG PUB_INDEXFIN_TRANSACCION < G(BUODSP_SERVER}4btrsacsch_remitos_pendientes.prg(Asiento de Remitos Pendientes/Facturados TBUAAAEND_TRANTRSACTTS_ID %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 ]>(Asiento de Remitos Pendientes/Facturados    % SCHxotmp_remitos_pendientes C6QQ query> 5wotmp_remitos_pendientes C6QQ query T TF~TTFj>C c6C 6 401050000L !"#$%&'N(C$)Remitos Pendientes*+,-./01 T%tF4>C6Cc6 102010600L !"#$%&'N(C$)Remitos Pendientes*+,-./0% SCHbotmp_remitos_facturados Q query> maotmp_remitos_facturados Q query TF~HTTFj>C 6C c6 401050000L !"#$%&'N(C$)Remitos Facturados*+,-./01 T% F4>Cc6C6 102010600L !"#$%&'N(C$)Remitos Facturados*+,-./03 co_asientos% T5 T6- T T-% q78C ZL(Asiento de Remitos Pendientes/Facturadossch_remitos_pendientes.prg T9BU:XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2LEGALP_EMPCOD_INSATRBULMLLINEA IMPORTE_USIMPORTETMP_REMITOS_PENDIENTESQUERY XCAMBIO_REFALLXACCXPASEDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEGRUPOCODTMP_REMITOS_FACTURADOSFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4<lodiariogconcepto   %  T T G+( co_asientos T   ( T C % +TCC ,6CC ZFG((asiento E %C4 T C a %C ! [Elimina asiento CC Zsch_remitos_pendientes.prg  %C  T A sch_remitos_pendientes.prgC CAT 0Error en la eliminacin de asientos anteriores:  T BUXTIPO2 ARR_SELECTDIARIOGFECHAASIENTOCONCEPTOTIPO2XFECHAXERRXMSG CO_ASIENTOSXCOUNTNITXASIENTOXASIENTOS_ANTERIORESCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONLIBERO_SESION_Y_DATOS3ve_sql_remitos_emitidos tmp_remitos#Q\tmp\tmp_remitosF0   C %C C   Ho tmp_remitos  C tmp_remitos_facturados ( \er\C \ER - CC  C  - 6CCC iZ CCC HZ - remitos facturados  !"Ի SLC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!#Ro tmp_remitosC  C   tmp_remitos_pendientes ( \er\C \ER - CC  C  - 6CCC iZ CCC HZ - remitos pendientes  !"Ի LC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!#BU%EXPPORTAR_TODOVE_SQL_REMITOS_EMITIDOSP_LOCAL TMP_REMITOSINCOD_CLINO_FCFEC_FACXDESDEXHASTAFEC_VENTMP_REMITOS_FACTURADOSP_DIR_EXPORT_GLOBAL XVERSION_ERREM_VENDES_CLIEPEDIDOFAC_CAU NO_FC_TEMPCOD_INSATRBULDESCR RECEPCIONIMPORTELINEACOD_CENENCA IMPORTE_USCOS_LIFODES_INSDESC1DESC2COEFIC CAMBIO_USSMENSAJETMP_REMITOS_PENDIENTESm3ve_sql_remitos_emitidos tmp_remitos#Q\tmp\tmp_remitosF0   0C C   ]o tmp_remitos Q C  tmp_remitos_facturados (\er\C\ER - CC C - 6CCC iZ CCC HZ - remitos facturados  !"#$%Ի LC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!&"CError al copiar a xl5'jo tmp_remitos QC     tmp_remitos_pendientes (\er\C\ER - CC C - 6CCC iZ CCC HZ - remitos pendientes  !"#$%Ի bLC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!&"CError al copiar a xl5'BU)EXPPORTAR_TODOVE_SQL_REMITOS_EMITIDOSP_LOCAL TMP_REMITOSINCOD_CLINO_FCREM_VENFAC_VEN2FEC_VEN2XDESDEXHASTAFEC_VENCOD_CENDCOD_CENTMP_REMITOS_FACTURADOSP_DIR_EXPORT_GLOBAL XVERSION_ERDES_CLIEPEDIDOFAC_CAUFEC_FAC NO_FC_TEMPCOD_INSATRBULDESCR RECEPCIONIMPORTELINEAENCA IMPORTE_USCOS_LIFODES_INSDESC1DESC2COEFIC CAMBIO_USSMENSAJESYS_MTMP_REMITOS_PENDIENTESprocesar libero_sesion_y_datos fin_transaccion registrar_asientoanulo_asiento_anterior1calculos calculos_v2$ABQ2rBARAaArQA2DARQaqA"qaaqAAB2AABB3vQqAr3qA2At3A!A2AABB2buB2q"B21AsQsQAe"wArrBsQC2qQABb'"AtrBsQC2rQAB2A2AB1qs"RS2sA"AABAA"BC242rS# A) AC472r# "C "BC1Mc Qm//R/5O5>%>H%#&$ء4T 4%CxmbC0 T %- a Ta Ta G(TGUILLEG+(listados G(9 ( %C AaC*No se pudo crear la carpeta de destino !!!C C \er\C6 %Cb TC$ &TCCC=gCC\g$TC]T tmp_periodos+listados F#6 T%CwVco_costo_ajustes_de_inventario(!Recepciones Pendientes/Facturadas T  T Ta#TCCC=gCCRg$% TCC=gTCCRgTC$ETCC 6C 6$ T T T%C %C/C"Se han registrado los asientos !!! BU XM XVERSION_ER DEY_FUNC2P_DEV P_SUSPENDP_SERVERCL_NOMLISTADOS ACTIVEFORM DATASESSIONIDOEXXCHG_CREAR_CARPETAMENSAJE PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOXMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B Tjtrsacsch_recepciones_pendientes.prg,Asiento de Recepciones Pendientes/Facturadas T C %Cw C+%Ctmp_remitos_pendientesNS T T%O! ! T CC6" CBU#XERRXMSGXFECHAXDESDEXHASTAXASIENTOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANXASIENTOS_ANTERIORESANULO_ASIENTO_ANTERIORCALCULOSREGISTRAR_ASIENTOUSER_LOG PUB_INDEXFIN_TRANSACCION < G(BUODSP_SERVER4jtrsacsch_recepciones_pendientes.prg,Asiento de Recepciones Pendientes/Facturadas TBUAAAEND_TRANTRSACTTS_IDl %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 a>,Asiento de Recepciones Pendientes/Facturadas    eotmp_remitos_pendientes  Q  query T TF~eTTFn>C 6C c6 103030000L !"#$N%C$&Recepciones Pendientes'()*+,-.   T%F8>Cc6C6 201050000L !"#$N%C$&Recepciones Pendientes'()*+,-eotmp_remitos_facturados  /Q  query TF~TTFn>C c6C 6 103030000L !"#$N%C$&Recepciones Facturadas'()*+,-.   T%_F8>C6Cc6 201050000L !"#$N%C$&Recepciones Facturadas'()*+,-1 co_asientos% T3 T4- T T-%T y56C ZL,Asiento de Recepciones Pendientes/Facturadassch_recepciones_pendientes.prg T7BU8XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2LEGALCOD_INSATRBULLINEARECIBIDOPRECIOIMPORTETMP_REMITOS_PENDIENTESQUERYXACCXPASEDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASEGRUPOCOD FACTURADOTMP_REMITOS_FACTURADOSFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4T T T%^ T u TTF>    L NC$ !"U#XIMPORTE XCOMENTARIOXCUENTAXLINEAXPASEXDEBITOXCREDITOXCOSTODIARIOGDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPO4<lodiariogconcepto   %  T T G+( co_asientos T   ( T C % +TCC ,6CC ZFG((asiento E %C4 T C a %C ! _Elimina asiento CC Zsch_recepciones_pendientes.prg %C  T E sch_recepciones_pendientes.prgC CAT 0Error en la eliminacin de asientos anteriores:  T BUXTIPO2 ARR_SELECTDIARIOGFECHAASIENTOCONCEPTOTIPO2XFECHAXERRXMSG CO_ASIENTOSXCOUNTNITXASIENTOXASIENTOS_ANTERIORESCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONLIBERO_SESION_Y_DATOS.in_sql_recepciones tmp_remitos#Q\tmp\tmp_remitosF C %C C  Xo tmp_remitos C C   tmp_remitos_facturados ( \er\C \ER - CC  C  - 6CCCiZ CCCHZ - recepciones facturadas Ի =LC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!go tmp_remitosCC  C    tmp_remitos_pendientes z( \er\C \ER - CC  C  - 6CCCiZ CCCHZ - recepciones pendientes Ի LC?Archivo de XLS en uso, no se puede guardar copia de soporte !!!BU EXPORTAR_TODOIN_SQL_RECEPCIONESP_LOCAL TMP_REMITOSINFEC_FACTXDESDEXHASTAFECHAIMPORTACCANC_MANTMP_REMITOS_FACTURADOSP_DIR_EXPORT_GLOBAL XVERSION_ERTRANSFCOD_PRONOMBREORDENCOD_INSATRBULDESCRRECIBIDO FACTURADOPRECIOOPLINEA CAMBIO_USS PRECIO_USS IMPORTE_USMENSAJETMP_REMITOS_PENDIENTESprocesarlibero_sesion_y_datos fin_transaccion registrar_asiento pase_costoanulo_asiento_anteriorcalculosABQ2AARAaArQaA2DARQ2AABB3vQqAr3qA2At3A2ABBB2buB2qB21AsQsQA[rrBsQC2rQBXtrBsQC2rQA2A2AB212ARrQA3qs"RS2sA"AABAA"QBC22rS#$ Az AC1;q,gyN~Us%%))~// 9U%TW[7UrZU9; 4%CxmbC0 T T T T 308000000G+(listados G(9( %Cbienes QbienesF ' S 103050000 ( % oCExisten CC ZN artculos con lotes denttro de la cuenta MERCADERIA DE REVENTA SIN LOTES !!!B-' S 103030000 ( % .cCExisten CC ZB artculos sin lotes dentro de la cuenta MERCADERIA DE REVENTA !!!B-%C aC*No se pudo crear la carpeta de destino !!!CC \er\C6%C TC$ &TCCC=gCC\g$TC]T tmp_periodos+listados F#6 T%C*co_costo_ajustes_de_inventario(  T Ta#TCCC=gCCRg$%0TTTC$ET CC 6C 6$ T! T" T#$!" #%!C" ,%C(/C"Se han registrado los asientos !!!BU%XM XVERSION_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBXTIPO2XCOSTO_DE_VENTA_CUENTALISTADOS ACTIVEFORM DATASESSIONIDOEXBIENESAAALOTESCOD_CUEMENSAJEXCHG_CREAR_CARPETA PUB_INDEXP_DIR_EXPORT_GLOBALXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR(@4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B TNtrsacsch_asientos.prgAsiento Complemetario de Costo<lodiariogconcepto  !   T"% ^ T TG+( co_asientos T$ %($xT&C%%&t+T""CC" ,6CC&ZFG((asiento E&%C4f TC&a'%C ! bQ()Elimina asiento CC&Zsch_asientos.prg p%C Z T*7()sch_asientos.prgC+ CZTIError en la eliminacin de asientos de costo complementarios anteriores: * T B%Ccuentas QcuentasT-C]T.C]5/ co_sql_mayor-aQ1\tmp\-2%C"#T3.t. a4T3!inlist(tmp_sch_mayor.asiento,")Nselect tmp_sch_mayor.* , nvl(lineas.codigo,tmp_sch_mayor.linea) as master from tmp_sch_mayor with (buffering=.t.) left outer join lineas on tmp_sch_mayor.linea=lineas.codigo where tmp_sch_mayor.tipo2#3 and !(tmp_sch_mayor.asiento=2873 and year(tmp_sch_mayor.fecha)=2013) and &xfiltro into table (p_local + "\tmp\" + xtabla2) QF2Q1\tmp\.2 C4%C astos_pases F5QT6C]6T7)!(asiento=8352 and fecha=date(2014,8,31))%select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 94 as linea from tmp_sch_mayor where inlist(abrev, "136.99 ") and !("Saldo Anterior"$comentario) and &xfiltro_asientos and linea=94 into table (p_local+"\tmp\"+xtabla_aux) Q1\tmp\65'insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S ","O", "ING","N","C") Q1\tmp\65insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S ","O", "ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") !insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") !insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") $insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where left(abrev,3)="138" and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S ","O", "ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "136.98 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.95 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.96 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S ") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "136.98 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.95 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.96 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") +insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 83 as linea from tmp_sch_mayor where inlist(abrev, "136.99 ", "139.6 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "AS","ID") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.15 ", "136.16 ", "136.99 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"N","C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") %insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where inlist(abrev, "136.99 ", "139.6 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "D") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="136.9 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") >insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where inlist(abrev, "136.94 ", "136.99 ", "139 ", "139.1 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="139 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") T8 T9 T: T; T< T=F>gs_sql_estado_de_resultados_sch89:;<=T@Llave: 4:CC8Z% 91:CC9Z% 92:CC:Z% 93:CC;Z% 94:CC<Z% 83:CC=Z% ^select abrev, cod_cue , round(sum(debito-credito)*x4/100,2) as saldo , cod_cen , 04 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " into cursor astos_pases2 readwrite Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x91/100,2) as saldo , cod_cen , 91 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x92/100,2) as saldo , cod_cen , 92 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Vinsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x93/100,2) as saldo , cod_cen , 93 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x94/100,2) as saldo , cod_cen , 94 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x83/100,2) as saldo , cod_cen , 83 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " mselect asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 00 as linea , xllave as llave from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " into cursor astos_pases3 readwrite /r astos_pases3o astos_pasesQAFB :TCD\er\CE\ER - CCE CE - 6CCCiZ CCCHZ# - asiento complementario de costos%CC : (CԻ(F\:4C'Archivos abiertos...no se registran !!!Gio astos_pasesHICJQJKLHIKLastos_pases_agrupadoF2sum debito-credito to xtotal for between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " FN K(OJ#)>JJPO.rastos_pases_agrupadoo astos_pases2%Q A=5insert into astos_pases_agrupado select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , linea as linea from tmp_sch_mayor where abrev="131 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !("DESVALORIZACION BIENES DE CAMBIO"$comentario)  %->5insert into astos_pases_agrupado select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , linea as linea from tmp_sch_mayor where abrev="139.3 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !("DESVALORIZACION BIENES DE CAMBIO"$comentario) ?oastos_pases_agrupadoCJcQJLLquery ~+?Wrastos_pases_agrupadoHIJKLTSJSL)%Castos_pases_agrupadoN? T TU%?7()sch_asientos.prgC Suspendo?aV T CC6+ CBUWXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGFECHAASIENTOCONCEPTOTIPO2XTIPO2XASIENTOS_ANTERIORES CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONCUENTASXTABLA1XTABLA2 EXPORTAR_1 CO_SQL_MAYORP_LOCAL TMP_SCH_MAYORXFILTROPRE_PROCESO_MAYOR ASTOS_PASES XTABLA_AUXXFILTRO_ASIENTOSX4X91X92X93X94X83TABLA_PORCENTAJES_2GS_SQL_ESTADO_DE_RESULTADOS_SCHXLLAVELLAVE ASTOS_PASES3XDESTINOP_DIR_EXPORT_GLOBAL XVERSION_EROEXMENSAJEABREVCOD_CUESALDOCOD_CENLINEAASTOS_PASES_AGRUPADO ASTOS_PASES2XTOTAL2XTOTALX_SCH_COSTOS_X_CONTRIBSUMQUERYXCOSTO_DE_VENTA_CUENTAREGISTRAR_ASIENTOSYS_MOSTRAR_SCREEN < G(BUODSP_SERVERi4Ntrsacsch_asientos.prgAsiento Complemetario de Costo TBUAAAEND_TRANTRSACTTS_ID %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 T>Asiento Complementario de Costo    T  TF ~T T T%TCT TCcTF>L N!C$"Asiento Complementario de Costo#$%&'())*+ co_asientos%2 T- T.- T T-%^/0C ZLAsiento Complemetario de Costo.sch_asientos.prg T1BU2XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XTIPO2LEGALXCOSTOXPASEASTOS_PASES_AGRUPADOXDEBITOXCREDITOSALDODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4T T T%^ T u TTF>    L NC$Asiento Complementario de Costo !"BU#XIMPORTE XCOMENTARIOXCUENTAXLINEAXPASEXDEBITOXCREDITOXCOSTODIARIOGDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPO8F*>C=103^ BU TMP_SCH_MAYORCOD_CENFORCOD_CUELINEAprocesarlibero_sesion_y_datosKfin_transaccion:Kregistrar_asientoK pase_costoVQpre_proceso_mayor6TAdA!Aqq1qAr11qASAaArQA2RQ2AABB2vQqAr3qA2At3As"RS2rA"AABAA"qBC1ATAAAqqAAf_q=N 1/.>>>>O?>NNNN.ON^ c7 0~}m}~Psb!AAAv tRQ_B]AsB2qrABB2buB2qB21AsQsQAFsaQaArQB2A2AB212ARrQ1B3tB1C b|2bb:bScGqckOGkoWop%^QTRQmZU| 4%CxmbC0 T T T T 308000000G+(listados G(9( %Cbienes QbienesF ' S 103050000 ( % oCExisten CC ZN artculos con lotes denttro de la cuenta MERCADERIA DE REVENTA SIN LOTES !!!B-' S 103030000 ( % .cCExisten CC ZB artculos sin lotes dentro de la cuenta MERCADERIA DE REVENTA !!!B- TC$TC]T tmp_periodos+listados F#6 T%C*co_costo_ajustes_de_inventario(  T Ta#TCCC=gCCRg$%qTTTC$ETCC 6C 6$ T T T ! %C m%Ci/C"Se han registrado los asientos !!!BU"XM XVERSION_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBXTIPO2XCOSTO_DE_VENTA_CUENTALISTADOS ACTIVEFORM DATASESSIONIDOEXBIENESAAALOTESCOD_CUEMENSAJEXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESAR=4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B TNtrsacsch_asientos.prgAsiento Complemetario de Costo<lodiariogconcepto  !   T"% ^ T TG+( co_asientos T$ %($xT&C%%&t+T""CC" ,6CC&ZFG((asiento E&%C4f TC&a'%C ! bQ()Elimina asiento CC&Zsch_asientos.prg p%C Z T*7()sch_asientos.prgC+ CZTIError en la eliminacin de asientos de costo complementarios anteriores: * T B%Ccuentas QcuentasT-C]T.C]5/ co_sql_mayor-aQ1\tmp\-2%C"#T3.t. a4T3!inlist(tmp_sch_mayor.asiento,")Nselect tmp_sch_mayor.* , nvl(lineas.codigo,tmp_sch_mayor.linea) as master from tmp_sch_mayor with (buffering=.t.) left outer join lineas on tmp_sch_mayor.linea=lineas.codigo where tmp_sch_mayor.tipo2#3 and !(tmp_sch_mayor.asiento=2873 and year(tmp_sch_mayor.fecha)=2013) and &xfiltro into table (p_local + "\tmp\" + xtabla2) QF2Q1\tmp\.2 C4%C astos_pases F5QT6C]6T7)!(asiento=8352 and fecha=date(2014,8,31))%select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 94 as linea from tmp_sch_mayor where inlist(abrev, "136.99 ") and !("Saldo Anterior"$comentario) and &xfiltro_asientos and linea=94 into table (p_local+"\tmp\"+xtabla_aux) Q1\tmp\65"insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S","O", "ING","N","C") Q1\tmp\65insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S","O", "ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") !insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") !insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "F", "FC", "FN", "FI") .insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 91 as linea from tmp_sch_mayor where inlist(abrev,"138.1 ","138.2 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !inlist(cod_cen,"S","O", "ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "136.98 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.95 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 92 as linea from tmp_sch_mayor where abrev="136.96 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"S") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="136.1 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.99 ", "136.98 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="136.95 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 86 as linea from tmp_sch_mayor where abrev="136.96 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"O","ING") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where inlist(abrev, "136.2 ", "136.3 ", "136.4 ", "136.5 ", "136.6 ", "136.7 ", "136.8 ", "136.9 ", "136.10 ", "136.11 ", "136.12 ", "136.13 ", "136.15 ", "136.16 ", "136.99 ", "139 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="132 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen,"N","C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 93 as linea from tmp_sch_mayor where abrev="136.94 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "N", "C") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="136.9 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="136.93 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") >insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where inlist(abrev, "136.94 ", "136.99 ", "139 ", "139.1 ") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") insert into astos_pases select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 4 as linea from tmp_sch_mayor where abrev="139 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and inlist(cod_cen, "E") T8 T9 T: T; T< T=F>gs_sql_estado_de_resultados_sch89:;<=T@Llave: 4:CC8Z% 91:CC9Z% 92:CC:Z% 93:CC;Z% 94:CC<Z% 86:CC=Z% #CIndirectos. Suspendo?aA^select abrev, cod_cue , round(sum(debito-credito)*x4/100,2) as saldo , cod_cen , 04 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " into cursor astos_pases2 readwrite Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x91/100,2) as saldo , cod_cen , 91 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x92/100,2) as saldo , cod_cen , 92 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Vinsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x93/100,2) as saldo , cod_cen , 93 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x94/100,2) as saldo , cod_cen , 94 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " %B5Winsert into astos_pases2 select abrev, cod_cue , round(sum(debito-credito)*x86/100,2) as saldo , cod_cen , 86 as linea from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " mselect asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , 00 as linea , xllave as llave from tmp_sch_mayor where between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " into cursor astos_pases3 readwrite /r astos_pases3o astos_pasesQCFD 7%CE7}TF\xchg\ER - CCG CG - 6CCCiZ CCCHZ# - asiento complementario de costos%CF 7 (FԻ(H.84C'Archivos abiertos...no se registran !!!Iio astos_pasesJKCLQLMNJKMNastos_pases_agrupadoF2sum debito-credito to xtotal for between(cod_cue, "103040000", "103160000") and !inlist( left(abrev,3), "137", "138") and &xfiltro_asientos and !("Saldo Anterior"$comentario) and cod_cen="I " FP K(QL#)>LLRQ.rastos_pases_agrupadoo astos_pases2%S ;5insert into astos_pases_agrupado select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , linea as linea from tmp_sch_mayor where abrev="131 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !("DESVALORIZACION BIENES DE CAMBIO"$comentario)  %-Y<5insert into astos_pases_agrupado select asiento, fecha, abrev, cod_cue , debito-credito as saldo , cod_cen , linea as linea from tmp_sch_mayor where abrev="139.3 " and &xfiltro_asientos and !("Saldo Anterior"$comentario) and !("DESVALORIZACION BIENES DE CAMBIO"$comentario) ?oastos_pases_agrupadoCLcQLNNquery ~<Wrastos_pases_agrupadoJKLMNVULUN T TW%=7()sch_asientos.prgC Suspendo?aA T CC6+ CBUXXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGFECHAASIENTOCONCEPTOTIPO2XTIPO2XASIENTOS_ANTERIORES CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONCUENTASXTABLA1XTABLA2 EXPORTAR_1 CO_SQL_MAYORP_LOCAL TMP_SCH_MAYORXFILTROPRE_PROCESO_MAYOR ASTOS_PASES XTABLA_AUXXFILTRO_ASIENTOSX4X91X92X93X94X86TABLA_PORCENTAJES_1GS_SQL_ESTADO_DE_RESULTADOS_SCHXLLAVESYS_MOSTRAR_SCREENP_SCH_ER_VERSIONLLAVE ASTOS_PASES3 EXPORT_DIRXDESTINO XVERSION_EROEXMENSAJEABREVCOD_CUESALDOCOD_CENLINEAASTOS_PASES_AGRUPADO ASTOS_PASES2XTOTAL2XTOTALX_SCH_COSTOS_X_CONTRIBSUMQUERYXCOSTO_DE_VENTA_CUENTAREGISTRAR_ASIENTO < G(BUODSP_SERVERi4Ntrsacsch_asientos.prgAsiento Complemetario de Costo TBUAAAEND_TRANTRSACTTS_ID %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 T>Asiento Complementario de Costo    T  TF ~T T T%TCT TCcTF>L N!C$"Asiento Complementario de Costo#$%&'())*+ co_asientos%2 T- T.- T T-%^/0C ZLAsiento Complemetario de Costo.sch_asientos.prg T1BU2XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XTIPO2LEGALXCOSTOXPASEASTOS_PASES_AGRUPADOXDEBITOXCREDITOSALDODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4T T T%^ T u TTF>    L NC$Asiento Complementario de Costo !"BU#XIMPORTE XCOMENTARIOXCUENTAXLINEAXPASEXDEBITOXCREDITOXCOSTODIARIOGDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPO8F*>C=103^ BU TMP_SCH_MAYORCOD_CENFORCOD_CUELINEAprocesar libero_sesion_y_datosGfin_transaccionGregistrar_asientoH pase_costoNpre_proceso_mayorPA dA!Aqq1qAr11qArQA2RQ2AABB2vQqAr3qA2At3As"RS2rA"AABAA"qBC1ATAAAqqAAf_!=A?>NNNN.ON c7 5~}m}3}BPs!AAAAv tRQ_B]AsB2qrAB2buB2qB21AsQsQAFsaQaArQB2A2AB212ARrQ1B3tB1<]t]S^ o^^ _:g%>Qg?kN^kbl%@AyD`AcZUݎ| 4%CxmbC0 T T T T 308000000G+(listados G(9( %Cbienes QbienesF ' S 103050000 ( % oCExisten CC ZN artculos con lotes denttro de la cuenta MERCADERIA DE REVENTA SIN LOTES !!!B-' S 103030000 ( % .cCExisten CC ZB artculos sin lotes dentro de la cuenta MERCADERIA DE REVENTA !!!B- TC$TC]T tmp_periodos+listados F#6 T%C*co_costo_ajustes_de_inventario(  T Ta#TCCC=gCCRg$%qTTTC$ETCC 6C 6$ T T T ! %C m%Ci/C"Se han registrado los asientos !!!BU"XM XVERSION_ERX_SCH_COSTOS_X_CONTRIBP_SCH_COSTOS_X_CONTRIBXTIPO2XCOSTO_DE_VENTA_CUENTALISTADOS ACTIVEFORM DATASESSIONIDOEXBIENESAAALOTESCOD_CUEMENSAJEXFECHAXFILEXALIASPERIODOS_MENSUALES TMP_PERIODOSXIDIDCO_COSTO_AJUSTES_DE_INVENTARIOXRESXANOANOXMESNMESXDESDEXHASTAXERRXMSGXASIENTOPROCESARO.4TCSessionNG( G( C ges  co_comienzoaMT CCiCCH 6CCH  CH6$TCC iC H$%C H  TCC i $ 8!TCC iC H$< T T T-# co_funciones%  CGT,No se pudo abrir el ejercicio para la fecha C* !!! T B T Tsys_cons%r C T B< T/trsacdiariogconcepto%  CTAbort el usuario T B TNtrsacsch_asientos.prgAsiento Complemetario de Costo<lodiariogconcepto  !   T"% ^ T TG+( co_asientos T$ %($xT&C%%&t+T""CC" ,6CC&ZFG((asiento E&%C4f TC&a'%C ! bQ()Elimina asiento CC&Zsch_asientos.prg p%C Z T*7()sch_asientos.prgC+ CZTIError en la eliminacin de asientos de costo complementarios anteriores: * T B%Ccuentas QcuentasT-C]T.C]5/ co_sql_mayor-aQ1\tmp\-2CAstos. Suspendo?a3%C"AT4.t. 4T4!inlist(tmp_sch_mayor.asiento,")Nselect tmp_sch_mayor.* , nvl(lineas.codigo,tmp_sch_mayor.linea) as master from tmp_sch_mayor with (buffering=.t.) left outer join lineas on tmp_sch_mayor.linea=lineas.codigo where tmp_sch_mayor.tipo2#3 and !(tmp_sch_mayor.asiento=2873 and year(tmp_sch_mayor.fecha)=2013) and &xfiltro into table (p_local + "\tmp\" + xtabla2) QF2Q1\tmp\.2%C astos_pases F5QT6C] C Selects Suspendo?a3o tmp_sch_mayor78C9:Q;<[Q=7 132 Saldo Anterior> C<SOING 78<11\tmp\6Q1\tmp\65r astos_paseso tmp_sch_mayor78C9:Q;<[Q=7 136.1 Saldo Anterior> C<SOING 78<Jr astos_paseso tmp_sch_mayor78C9:Q;<[Q=C7 136.2 136.3 136.4 136.5 136.6 136.7 136.8 136.9 136.10 136.11 136.12 136.13 136.99 139 Saldo Anterior> C<FFCFNFI 78<r astos_paseso tmp_sch_mayor78C9:Q;<[Q=7 136.93 Saldo Anterior> C<FFCFNFI 78<r astos_paseso tmp_sch_mayor78C9:Q;<[Q=7 136.94 Saldo Anterior> C<FFCFNFI 78<r astos_paseso tmp_sch_mayor78C9:Q;<[Q=C7 138.1 138.2 Saldo Anterior> C<SOING 78<H/ ?wr astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 132 Saldo Anterior> C<SOING 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.1 Saldo Anterior> C<SOING 78<Er astos_paseso tmp_sch_mayor78C9:Q;<\Q=C7 136.2 136.3 136.4 136.5 136.6 136.7 136.8 136.9 136.10 136.11 136.12 136.13 136.99 139 Saldo Anterior> C<SOING 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.93 Saldo Anterior> C<SOING 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.94 Saldo Anterior> C<SOING 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.95 Saldo Anterior> C<SOING 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.96 Saldo Anterior> C<SOING 78< ?r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 132 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.1 Saldo Anterior> C<S 78<Gr astos_paseso tmp_sch_mayor78C9:Q;<\Q=C7 136.2 136.3 136.4 136.5 136.6 136.7 136.8 136.9 136.10 136.11 136.12 136.13 136.99 136.98 139 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.93 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.94 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.95 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<\Q=7 136.96 Saldo Anterior> C<S 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 132 Saldo Anterior> C<OING 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 136.1 Saldo Anterior> C<OING 78<Mr astos_paseso tmp_sch_mayor78C9:Q;<VQ=C7 136.2 136.3 136.4 136.5 136.6 136.7 136.8 136.9 136.10 136.11 136.12 136.13 136.99 136.98 139 Saldo Anterior> C<OING 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 136.93 Saldo Anterior> C<OING 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 136.94 Saldo Anterior> C<OING 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 136.95 Saldo Anterior> C<OING 78<r astos_paseso tmp_sch_mayor78C9:Q;<VQ=7 136.96 Saldo Anterior> C<OING 78<Wr astos_paseso tmp_sch_mayor78C9:Q;<]Q=C7 136.2 136.3 136.4 136.5 136.6 136.7 136.8 136.9 136.10 136.11 136.12 136.13 136.15 136.16 136.99 139 Saldo Anterior> C<NC 78<r astos_paseso tmp_sch_mayor78C9:Q;<]Q=7 136.93 Saldo Anterior> C<NC 78<r astos_paseso tmp_sch_mayor78C9:Q;<]Q=7 136.94 Saldo Anterior> C<NC 78<r astos_paseso tmp_sch_mayor78C9:Q;<Q=7 136.9 Saldo Anterior> C<E 78<r astos_paseso tmp_sch_mayor78C9:Q;<Q=7 136.93 Saldo Anterior> C<E 78<r astos_paseso tmp_sch_mayor78C9:Q;<Q=C7 136.94 136.99 139 139.1 Saldo Anterior> C<E 78<r astos_paseso tmp_sch_mayor78C9:Q;<Q=7 139 Saldo Anterior> C<E 78<H"4$ ?# T@ TA TB TC TDBEgs_sql_estado_de_resultados_sch@ABCD ?4$ T@ TA TB TC TD TGFHgs_sql_estado_de_resultados_sch@ABCDGo tmp_sch_mayor78CC9:@d TQ;<Q=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78< astos_pases2r astos_pases2o tmp_sch_mayor78CC9:Ad TQ;<[Q=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78<r astos_pases2o tmp_sch_mayor78CC9:Bd TQ;<\Q=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78<r astos_pases2o tmp_sch_mayor78CC9:Cd TQ;<]Q=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78<r astos_pases2o tmp_sch_mayor78CC9:Dd TQ;<^Q=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78<%?b)r astos_pases2o tmp_sch_mayor78CC9:Gd TQ;<VQ=C8 103040000 103160000CC7=137138 Saldo Anterior> <I  78<F2yKC8 103040000 103160000CC7=137138 Saldo Anterior> <I  (J9:FI K(K;#)>;;JK%r astos_paseso astos_pases2%L +r astos_paseso tmp_sch_mayor78C9:Q;<=Q=7 131 Saldo Anterior> * DESVALORIZACION BIENES DE CAMBIO> 78<= %-+r astos_paseso tmp_sch_mayor78C9:Q;<=Q=7 139.3 Saldo Anterior> * DESVALORIZACION BIENES DE CAMBIO> 78<=6o astos_pasesC;cQ;==query ~t,Nr astos_pases78;<=ON;N=F5 =-%CP9-}TQ\xchg\ER - CCR CR - 6CCCiZ CCCHZ# - asiento complementario de costos%CQ 5- (QԻ(S-4C'Archivos abiertos...no se registran !!!T T TU%.7()sch_asientos.prgC Suspendo?a3 T CC6+ CBUVXERRXMSGXFECHAXDESDEXHASTAXASIENTO_GENERADOODS DATASESSIONIDP_SERVERSETSGES OPEN_FILES CO_COMIENZOXCIERRE_MENSUALXDXH ARR_SELECTXDIR XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESLIBERO_SESION_Y_DATOSVLD_CIERRE_BALANCESYS_CONSAAALOCK_GTRSACBEG_TRANDIARIOGFECHAASIENTOCONCEPTOTIPO2XTIPO2XASIENTOS_ANTERIORES CO_ASIENTOSXCOUNTNITXASIENTOCO_ANULAR_ASIENTOUSER_LOG PUB_INDEXOLDXMSGFIN_TRANSACCIONCUENTASXTABLA1XTABLA2 EXPORTAR_1 CO_SQL_MAYORP_LOCAL TMP_SCH_MAYORSYS_MOSTRAR_SCREENXFILTRO ASTOS_PASES XTABLA_AUXABREVCOD_CUEDEBITOCREDITOSALDOCOD_CENLINEA COMENTARIOP_SCH_ER_VERSIONX4X91X92X93X94TABLA_PORCENTAJES_0GS_SQL_ESTADO_DE_RESULTADOS_SCHX86TABLA_PORCENTAJES_1 ASTOS_PASES2XTOTALXTOTAL2X_SCH_COSTOS_X_CONTRIBSUMQUERYXCOSTO_DE_VENTA_CUENTA EXPORT_DIRXDESTINO XVERSION_EROEXMENSAJEREGISTRAR_ASIENTO < G(BUODSP_SERVERi4Ntrsacsch_asientos.prgAsiento Complemetario de Costo TBUAAAEND_TRANTRSACTTS_ID %Ccuentas 7Qcuentas Ta TCWFG((asiento#6TFG((asiento E%C4 T>Asiento Complementario de Costo    T  TF ~T T T%TCT TCcTF>L N!C$"Asiento Complementario de Costo#$%&'())*+ co_asientos%2 T- T.- T T-%^/0C ZLAsiento Complemetario de Costo.sch_asientos.prg T1BU2XERRXMSGCUENTASTRSAC XAREA_ASIDIARIOGASIENTONEWASICONCEPTOUNTIPO2XTIPO2LEGALXCOSTOXPASE ASTOS_PASESXDEBITOXCREDITOSALDODEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOFN_CHECK_ASIENTO CO_ASIENTOS TTS_ERRORXOKUSER_LOG PUB_INDEXXASIENTO_GENERADO4T T T%^ T u TTF>    L NC$Asiento Complementario de Costo !"U#XIMPORTE XCOMENTARIOXCUENTAXLINEAXPASEXDEBITOXCREDITOXCOSTODIARIOGDEBITOCREDITOCOD_CUEPOR_QUECOMPROBCAUCOD_CENPASEFECHAXFECHAASIENTONEWASIPROCLINOMBRECODIGOTIPOHOY COMENTARIO SUBCENTROCAMBIOMONEDAMOTIVOMONEXTMONPASELINEAGRUPOprocesar libero_sesion_y_datos8fin_transaccionQ8registrar_asiento8 pase_costod>A aA!Aqq1qAr11qArQA2RQ2AABB2vQqAr3qA2At3As"RS2rA"AABAA"qBC1ATAAAqqAA   a 1 ^ 1 ~ A O N N N N Cq/ . @  > 1#2cA 2 ButRQUO BM AiBs!AAAA2qrAB2buB2qB21AsQsQAFsaQaArQB2A2AB212ARrQ11=: llvmmn".nvQ6v>z.%|RwFS)  5%a TC!G+(c:\sistema\2000\internet Ta }G+(internet%Cidx03 Qidx03%Cidx04 Qidx04 \tmp\cambios.txtYTC1https://www.bna.com.ar/Cotizador/MonedasHistorico \tmp\cambios.txt %P =Bajada TC BNA: No se pudo descargar el archivo de monedas (1)sys_monedas_bna.prg% LSC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CCZ) &%C \tmp\cambios.txt0 T =Bajada TC BNA: No se pudo descargar el archivo de monedas (2)sys_monedas_bna.prg% L=C0No se pudieron bajar los tipos de cambio !!! (2) B5$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas =T \Log\Monedas\Tipos de cambio BNA.txt%^ Bajada TC BNA: ID=sys_monedas_bna.prgC T- T-%  TC % %wCC2No se pudo establecer conexin con el servidor SQL% 4C'No se pudo conectar al servidor SQL !!!   TC$ T-H  Y5T%C Dolar U.S.ADOL  5T%C Dolar U.S.AUSD 9TCLibra Esterlina021 .TCEuro060 ;TCFranco Suizos (*)009 3TC YENES (*)019 ATCDolares Canadienses (*)018 =TCCoronas Danesas (*)014 >TCCoronas Noruegas (*)015 <TCCoronas Suecas (*)016 % % % t ,Bajada TC BNA: Se actualizaron correctamentesys_monedas_bna.prg  % 6  GBajada TC BNA: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_bna.prg BUXAUTXDEVXLOGBBBAAACINTERNETIDX03IDX04P_LOCAL DOWNLOAD_HTTPUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDXLOGFILEP_SYSTEM LOG_TEXTO XCONECTADOOSQLOBTENER_SQL_INTERNOCONECTARXFECHA XACTUALIZADO P_MON_DOL_AUTPROCESARA/     %C(*) TdTCC(*)=  T TTCT CC'\"T C Cdest d\&TCC C =g "T C C =g .%CoSQLbOC  JTCTC bna_monedasid=CidCcodigoCfechaCdescrCcompraCCZVentaCCZF-Cf T-%C4 T COT indiceCC Z T indiceCC Zc (FG((idx04 E %C4 -ridx04 > >  Ta% %agC fecha: C* : C999,999,999.9999_ / C999,999,999.9999_ 1%-)C: Moneda no definida BUXLOGXCOTIZXCODXFECHAOSQLXCOMPRAXVENTAXDESCRXMULT XSUBTEXTOXINDICECCCAAAZZ XACTUALIZADOXIDXTEXTO CONECTADOXOKSQLINSERTUPDATESQLTQSQLDTOSIDX03FCEIDX04FECHA LOG_TEXTOXLOGFILE: ,CC C CC - UXTEXTOXFILEprocesar Log_Texto+!ArArA2Q1AAbQAAAAA!ArsB1AAAAB12R1RA1BAABA4qA"b"b1 BrrDqAABAA41\E}\ ( @08hpx x````hh h``XPpȸxphxxhXxhhppp`XX`XPhXPXHHPHHxxpphhxxxph`X``XxphXxhh`pphXXPxppXPHph`80( H@8XXX00 ((PH@0 80 0( XXH( @@(@8(``P@8000  880HH8xhxp`0(XP@pp`H@0lp |`d`dllXTt̼xpl|xlhtpp`\Xd\Th\PXLHPLH|xtplh|x|th`\d`\xph\|xp|p|kn[k\hJ|UhwErZ󋂆P~rIdS0dOw~r.U{OnXUtutcp,q,~|wnOdQQQ㵵ikll{PYMYY(UMc1e_e__G11;;1_eeeeXJ[YM2'M[B1eU1Y_eG1խV_.;;Y.edVV1Z1Ye1c_13Gc0dUƹVa;;0U\Zݮ,\[J[YU\;Uڡ[MMX\333XYiVNPݡTGʮJʽ[iѼ;8½Ȼ2̿2صǼȿԯ>Υݺ̽2'ʿh0QOI"X  ????????aa% 2]FV\'  Tah1 \tmp\masterCC(C C( N N N NN N & %Ccc!Q%Cq_ccBQ%F=Q2c:\sistema\2000\ver\dg\rpt_ve_cta_cte_completo.dbf ;ve_sql_cuentas_corrientesccF2Q \tmp\rpt_ve_cta_cte_clientes.DBFC Suspendo?aoccQQQQ QQ ! "Q#$Q%&Q'(Q)*Q+,Q-.Q/1 \tmp\dias_de_giro_saldos_detalle2(0!\xchg\dias_de_giro_saldos_detalleԻoccQQQQ C$Q%1\tmp\dias_de_giro_saldos*Q\tmp\dias_de_giro_saldos*(0\xchg\dias_de_giro_saldosԻF ~)%CmasteridF1> 2% F1D>   %%Ccc Q%Cq_cc,Q43te_sql_cheques_en_carteraccF0Q"\tmp\rpt_te_cheques_en_cartera.DBForpt_te_cheques_en_carteraQ5678 %Q%QQQ Q /1\tmp\dias_de_giro_saldos+(0\xchg\dias_de_giro_chequesԻQF9%> ~)%C99masteridF1> 9% hF1D>999 9  9%F1> F9Q%CH!T;CCiCH $ T;CCiCH$G<ve_sql_comprobantes_emitidos_v2vtas;F+Q\tmp\rpt_ve_nuevo_facturacionorpt_ve_nuevo_facturacionQQ >Q?Q@ AQBCQ DQ%.1\tmp\dias_de_giro_facturacion/(0\xchg\dias_de_giro_facturacionԻ% norpt_ve_nuevo_facturacionQQ CXQC(XQCDQ%query @ vorpt_ve_nuevo_facturacionQQ >Q?QCDQ%>?queryFF ~ )%CFFmasterid F1> F%  F1D>FFF F  F%F1F1->C  ;6->C  ;6-(0\xchg\dias_de_giro_x_clienteԻ*(\tmp\dias_de_giro_x_clienteomasterC Q C Q Q C Q  Q Qresumeni> C  ;6C   ;6.(0\xchg\dias_de_giro_x_vendedorԻ+(\tmp\dias_de_giro_x_vendedorQF1QC;HBUIXHFECXDCONXTIPOXMESES XDESARROLLOP_LOCALVENDEDORNOM_VENDCODIGONOMBREDEUDASCHEQUESACC1FACT DIAS_GIRODIAS_G_CIDCCQ_CCCEXPORTAR_DIAS_DE_GIROVE_SQL_CUENTAS_CORRIENTESSYS_MOSTRAR_SCREENCLI_VENCLI_DVE DVENDEDORCLI_CODCLIENTECLI_NOMCLI_CATCATCPBT_FECFECHACPBT_CODCPBT_NUMCPBTCPBT_IMPIMPORTECPBT_MONMON CPBT_MONTMON_TXT CPBT_CBIOCAMBIOCPBT_DIVDIVISASEMPEMPRESAP_SERVERMASTERDEUDA!EXPORTAR_DIAS_DE_GIRO_CHEQUES_INDTE_SQL_CHEQUES_EN_CARTERACUENTADCUENTANUMERODESCRRPT_TE_CHEQUES_EN_CARTERAALLXDFECEXPORTAR_DIAS_DE_GIRO_INDVE_SQL_COMPROBANTES_EMITIDOS_V2AGE_CODAGE_DESCOM_CODCOM_NUM COMPROBANTECOM_FECCOM_TOTRPT_VE_NUEVO_FACTURACIONQUERYRESUMENEXPORTART%`-Q\tmp\dias_de_giro_x_cliente .Q\tmp\dias_de_giro_x_vendedororesumenCQCQCCQ C Q CCC CC 6TQ CCC CCC 6TQ q (\tmp\dias_de_giroG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNDTDas de Giro al C* (CCCTZ das) Tdias_de_giro.dbf CCdeudasDeuda,CchequesCheques en Cartera.Cacc1Deuda+Cheques en Cartea"Cfact Facturacin(C dias_giro Das de Giro3Cdias_g_cDas de Giro con ChequesT0%Cthisform.ex_archivo_salidabCTCBUXTIPOXDFECXHFECXDIASP_LOCALRESUMENSUMDEUDASCHEQUESACC1FACT DIAS_GIRODIAS_G_CQLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_ARCHIVO_SALIDATHISFORM EXPORTAR_XLSexportar`1a "4AQA!Br"\ rqBrQFAB2AQAG Br2AqBrQFArBrAAt 2iArqBrQFArBsBrAcB32A %!C!1 1AB1ny1$.%sSU8 TG+(listadosTP TFQ%0dB)J(    +     T \temp.txt G(G G %12345A! T T E T TFQbienescodinsFQdespachoF QstockT.t."%CX CX N%@T3val(xdins)<=val(codigo).and.val(codigo)<=val(xhins) J,Txdins<=codigo.and.codigo<=xhins% KT:.and.xdlin<=int(bienes.linea).and.int(bienes.linea)<=xhlin% AT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgruFG-(GI]index on codigo to (p_local+"\borrar1") for &filtro .and. cantidad#0.and.codigo#space(8) GI G  TB T  T!x T" T#a*T$Fecha : CC$* Hora : C^(C12345A  6h1\borrarC%C(&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5C6C(F7& (\borrarF ~FG((codigoG EG %C4F7 E%C4 7>%%&&66F!+C+ 8 %9:T;9:T<= T>CC;Z del CF7T?CC$<@ 8%? _TApCC?Z yTAant>33;"repl &xp with &xp + xcantidad ->5C5CC5, 6>FHFF7"& C&Z(\borrarTB G#)+C+ %"kC%# B& . Lnea : [CC&@z 9,999_] :CC& Sin lnea. C&D6  T#- TB&T % C4Z C2Z C1Z C0Z C/Z C.Z C-Z C,Z C+Z C*Z C)Z C(Z C'Z C3Z F7H$C12345A6F7YoborrarQEXlineasQF FE&EF%QGE& tmpborrar/(\tmp\rpt_sch_ageing_inventarioQGG(G*G ON ESCAPE &ONESC BUJXCOLLISTADOSXDPRNXDTIP CRITERIOSXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONG CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICABIENESCODINSDESPACHOSTOCKFILTROXDINSXHINSP_NUMINSXDLINXHLINXDGRUXHGRUCODIGOLINPAGANCHOMAXLININICIALXTEMPDESCRLINEAP1P2P3P4P5P6P7P8P9P10P11P12TOTANTDETCODALT1BORRARCOD_INSCANTIDAD CANTIDAD2 XCANTIDADXFECHAFECDESPXDETALLEXPERIODOXDDIAXPOLDHEADERI_TABCBLSLIN_DESLINEAS TMPBORRARK TT,C12345A 61TC Pgina : CCZC>*CAGEING - Da cero = CC$*CCdigo  !C Descripcin( CAnter.   C para seleccionar.9@&% BaB-UXORDMAXORDTECLAARR_ORDheader criterios\hlp_ordkrABAAaaAq!AAAArbai`rrrbarQuArr1aA!rAAABrAr!RqqAqqAqaaaaaaaaaaaaaarAAArAbaaaAB3rrqqqqqqqqqqqqqqqA3A2qqQqaAQAqAq1'K%#%MH#H~A(CIniciando datosG+( ve_pedidoG+(dey_funcG+( dey_filtersG+(dey_fillG+(listados"T\tmp\CC]R  ve_pedidoa T  %CBorrarF QFT \TMP\Ch1 N NDDNNDDDC'CCDNDN C D!N"C #C$D%N&N'C (C)D*N+C,C-C.N /N0C1N2C3N4C5C 6C7D8N9N:N;D<D=N>C?D@NQQ  %CLineas Qlineascodigo%CGrupos :QgruposcodigoFDG(( referencia%CCCClie2{FFQFQccclieFG((comprobFH G((plan%C CondCobr2FIQFQcondcobrI G((planFJG((ven_facG-(FLG((ccvordG-(NOJG-(PNOCZDG-(PNOCZFG-(>HFQ G((pedFSG((tccvordG-(ULG-(UQFVG-(USG-(WITX.t. >TXXCZ[Pedidove_transxdPedxhPedY/TXXC]^Cod_Clive_trans\?TXXC_`Tra_Numve_transxdTraxhTraYCselect * from ve_trans where &xfiltro1 into cursor tmp_ve_trans Ta.t. %bP Taalltrim(xObj.OC)#''%c#Taa and xObj.Estado=1?CAnalizando transaccionesC tmp_ve_transNdC Suspendo?aeFf#)B~CC  ff6ghCf?ij %g#CTran 128969 Suspendo?ae3CAnalizando transaccin: CCfZk Tl-F ^JmTmfTmfTmfTmfPTmfUTmfTm?f?%fU TmSnTmSTm:TmS>  'CfGfOccventccvfacTmL>TmLnTmLTm:L:TmfWTmfTmfTmfH|   Tmf  TmfTmmTm ToCWFHTpCC+ CO6 G((plan EmTm>Hq%pf #p Fo%Ca Hf.TrC tmp_ve_transO Ts-FL~Ltf %Hul %%Lvm Cm h Tm LvTm!m mTmm Tm  TsaFf#6 #r%m <%Sws  fU CfGfO  CmlfGfOx M!+C+ SUfU ITm$Sv!+C+ SUQU 2Tm*QyTm+QzTm,Q{Tm-Q|Tm.Q}+Tm/CQ Qm6Tm7mm/F  _JmHQHS Tla%l vF  _JmFf C~+CAgregando datos adicionalesk C CC(CExportando datos finaleskF & & %AG((tra_num [G((ped_num6(&\tmp\rpt_sch_seguimiento_transacciones%%C tra_resumenFQT\TMP\Ch1N NDDNNDDDC'CCDNDN C D!N"C #C$D%N&N'C (C)D*N+C,C-C.N /N0C1N2C3N4C5C 6C7D8N9N:N;D<D=N>C?D@NQQF G((tra_numTzzz ~F )%C ZC Z"#TC ZC Z"F>   ? ?      ! !  *>" "$ $& &7>7 7/ /; ;9 9Q>< <= =1 12 23 34 4F F?(/\tmp\rpt_sch_seguimiento_transacciones_resumidoFQF Q .*BUOESTADO SET_AND_SHOW VE_PEDIDODEY_FUNC DEY_FILTERSDEY_FILLLISTADOS XTEMPCOMPP_LOCAL OPEN_FILES XVISION_TIPOXDTIPBORRARXBORRARNEWFILETRA_NUM TRA_ENTRE TRA_FECHATRA_HOY TRA_COB_C TRA_COB_EOC_FECHAOC_APROBOT_FECHAOTCLI_CODCLI_DES INI_FECHAINI_TIPOINI_CALCPED_NUMOC ANT_FECHA ANT_DESPLFAC_NUM FAC_CAUSA FAC_FECHA FAC_DESPLFAC_IMPREM_NUM REM_CAUSA REM_FECHABIE_ITMBIE_CODBIE_BULBIE_ATRBIE_CAN BIE_ENTREBIE_DESLIN_CODLIN_DESGRU_CODGRU_DES ENT_REMITO ENT_CAUSA ENT_FECHA ENT_DES_F ENT_DES_PESTADO ENT_DSP_F COB_FECHA COB_DESPLPLANULT_ACTTIPOLINEASCODIGOGRUPOSCCCLIE REFERENCIACCCLIE2COMPROBCONDCOBR CONDCOBR2VENTASVEN_FACCCVENTCCVORDFAC_VENCAUSACOD_CLITVENTASPEDTCCVENTTCCVORDPEDIDOVE_TRANSCOB_EMPXFILTRO1FIL_GET_NUM_FILTERXDPEDXHPEDFIL_GET_CLI_FILTERXDCLIXHCLIXDTRAXHTRAXFILTRO2XDSOCXDENTPUSHSYS_MOSTRAR_SCREEN TMP_VE_TRANSXDFECXHFECXDFEC1XHFEC1AVANCEXHASCPBTXOBJREFAREAREGCONDDESCRXVETRXHASFACTRANANTICIPOFEC_VENFC CICLAR_VENTASITMCOD_INSBULATR RECEPCIONPOP FILL_CLIENTES FILL_BIE_FULLXDORD XRESUMIDO TRA_RESUMENXARCHXOLD 4F#% C e~a C$% C "~  CF3~    CU XOBJXHASCPBTXCOMPROBXCAUSACCVENTPED_NUMPEDIDOPROCESAR_VENTASFAC_VENCAUSA TMP_VE_TRANSCOMPROBa T%0 TFTT T  T   TTTT TCW%CCRg(T Ta tFG((remito ET TC4  FT;T CC CondCobr2+ 62+C+     DT!"T#$T%&T'(T)* TCWF+ G((ped E- T.-+C+ /- %"" T.a!H%. +T0C+1 +116 =T01 F%2xT3 0 T340T5 #% T6 T63%#T T TT T!"T#$T%&T'(T)*T0T3T5T6F7 _JH T8aFBU9XTIPOCONDCOBRANTICIPOVENTASXOBJ FAC_CAUSACCVENTCAUSAFAC_NUMFAC_VEN FAC_FECHAFEC_VEN FAC_DESPLINI_CALCFAC_IMPTOT_VENDES_COMREM_NUMREM_VEN REM_CAUSA REM_FECHAAREA ENT_DSP_F XSIN_ENTREGADESPREMITOFECHA COB_FECHACCCLIE2CANCEL COB_DESPL CONDCOBR2PLAZOBIE_ITMITMBIE_CODCOD_INSBIE_BULBULBIE_ATRATRBIE_CAN RECEPCIONTVENTASPEDPED_NUMXENCPEDIDO BIE_ENTRE TRA_ENTRE XVISION_TIPO ENT_FECHAOC_FECHA ENT_DES_F ENT_DES_PBORRARXHASCPBT ciclar_ventas$procesar_ventasp2!Q!!%sqAA0Q*AAAr1qAA!rqAAArar1rrr5A1AssQ"b1A8q2111121c312r2211A21111111A1r2BA"AAsaQ11AAAvQbB111111rQAADqQAsAq2AbqAA0Q*Arq1rQ BysArrABrAB21y1AAB"AAr1A8cAs2116112r2C9&21111raAAAA1A4A2A51141111baBrQArB11s55SF+%mBclE 4T 301010100 T TC$G+(dey_funcG+(listadosCccvent Cclientes Cccclie Cventas Ccuentas Cnumfac Cbatch Citm_desc Cacuerdos Civa_ven T  T  T  T( TVT  >TC00CCZR-C00000000CCZRFG((ccvfac E%C4 %a WoventasXbienes Xccvent &'&'Xclientes )()QQQQQQQQ Q C(XQ!Q"Q#Q$CXQ%&' tmp_facturaF+G(( referenciaGE)G T--.+C+ )./) %'c  T-a!H%- T C0 <12#12 T3 T4F* ~% 5(3;%C51* 7_T15C51***"d *#d *$d !%53T33T13* ST13***"d *#d *$d 5(4t%C52*p_T25C52***"d *#d *$d !%54 T44T24*ST24***"d *#d *$d %3P %(6S T75(3&T15CC51TT77C51bT7C78d 9d :d ;d <d T T=?%72 (>B C&? @ uT=C7Ad T TB%C&? 5(4+ &T25CC52T6T25CC52C52d TTBBC52bTBCB8d 9d :d ;d <d TT77=B%CC T   L oC La factura % tiene un cliente del tipo VARIOS !!!C  Debe realizar la NC manualmente.D  =C La factura  tiene una NC ya asignada !!!D%C comprobantes FEQ% _ uCSe han procesado CC Z Notas de Crdito de CC Z Facturas.C Rango:   a D  5C(No se han procesado Notas de Crdito !!!DBUFXCAUSAXLETRAXSUCXDESDEXHASTAXCUENTAXMOTIVOXFECHADEY_FUNCLISTADOS CHK_OPENED PROCESADAS NC_PROCESADASXPRIMERAXULTIMAZZZXCOMPROBCCVENTCCVFACVENTASCOD_INSIVAPERTOT_VENAGENTEVENDEDORBIENESLINEAGRUPOLISPRELISTAFEC_VENFECHAACUERDODACUERDODTO1DTO2DTO3TEXTOFAC_VENCAUSACLIENTESCOD_CLI TMP_FACTURACCCLIE REFERENCIATIENE_NCREFCAUPROCESAR_ACUERDOS ARR_ACUERDOSARR_IVAMAX_ARR_ACUERDOS MAX_ARR_IVAZZTARJETAXIMPORTEDESC1DESC2DESC3DESC4DESC5XPERIB PROVINCIA SYS_DOSCENDTO672T672XIVA TRANSACCIONMENSAJE COMPROBANTESFG((codcli ET< T T T,occclieCXQ  Q  Q  Q  Q Q Q QCOQ-Q QCXQ Q Q Q Q-Q Q QC XQC !C"Z#$CZ#$CcZ% comprobantes>'(-)   )c FC T* T+Q,-)C-./601-BONIFICACION ESPECIAL%C+ %C2 T2+ T3+ BU4CLIENTESCODCLICCVENTCOD_CLIXCOD_CLINCNDNCNDMAX XOTRO_CLIXCAMBIOTIPOCPBTADELANTOTMPDIFSSALDOORIDIFCBIO DIFCBIOAPLIMPORTESALDOSALDOUSSAPLICADORECNOAUTSUCFACDESCRTTMPDIFS TSALDOORI TDIFCBIOAPSALDOVERDIFNCNDAUT NCNDAUTDIFCUENTACCCLIECOMPROBCAUSACUOTAXCOMPROBXCAUSAVENC COMPROBANTESS1MARKEDXIMPORTEXMSGXNUMEROF TE_NCNDAUTP_CODEMPP_DOSXSUCSUCXCUENTAXPRIMERAXULTIMAK T T Ta%co_aut% &CEjercicio inexistente !!!% &trsacclientesccclienumfacventasccventbatchdiariogconceptoiva_ven jtrsacclientesccclienumfacventasccventbatchiva_ven%  TT trsac Es_ind_nc_aut'Nota de Crdito Automtica por Acuerdos%TC %g T T T TT trsac Es_ind_nc_aut'Nota de Crdito Automtica por Acuerdos% T . T T  BUAAAXRESUL XRESULTADOP_ASIAUTSELECCIONAR_EJERCICIOCO_AUTXFECHAMENSAJELOCK_GTRSACBEG_TRAN REALIZAR_NCEND_TRANTTS_IDG+(ve_sql_estadisticasC Suspendo?aFG(( prioridad< T- ~TCtmp_factura.fechatmp_factura.Cod_Clitmp_factura.Cod_Instmp_factura.Lineatmp_factura.Grupotmp_factura.Vendedortmp_factura.lista%C replace acuerdo with acuerdos.codigo, dacuerdo with acuerdos.descr , dto1 with acuerdos.dto , dto2 with acuerdos.dto2 , dto3 with acuerdos.dto3 , texto with acuerdos.texto for &xfiltro in tmp_factura  TaUVE_SQL_ESTADISTICASSYS_MOSTRAR_SCREENXFILTROACUERDOS PRIORIDADXHUBOPROCESAR_ACUERDOS_FILTRO realizar_ncJ transaccionprocesar_acuerdosqg"!2Q11A1!QQArrpqv1bAaAAAAA1r1AAA11AABA11AAA2taA#AsaaA!ARBAABABABqAA2QQAA2tr1A "AA2aAAbZAA22AAB2AA2rsr3 "I AA4|J:$$X$'w%>fr YFV2  T-% C aTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcTC$ Th1 \tmp\master C C( CC(NNNNN & ;ve_sql_cuentas_corrientesccC Suspendo?aF2Q \tmp\rpt_ve_cta_cte_clientes.DBFnoccQ QQQQ 1 \tmp\dias_de_giro_saldos*(!\xchg\dias_de_giro_saldosԻQ%Cclientes Qclientes%Cagente .QagenteF~)%CmasteridF$>% F$D>   FQ4&te_sql_cheques_en_carteraccF0Q "\tmp\rpt_te_cheques_en_cartera.DBForpt_te_cheques_en_carteraQ()*+,-Q- Q Q QQ.1 \tmp\dias_de_giro_saldos+(!\xchg\dias_de_giro_chequesԻQF/ ~&)%C/ / masteridF$>/-  F$D> /  / / //-F$>F/QC Suspendo?a%CH!T0CCiCH $ T0CCiCH$G1ve_sql_comprobantes_emitidos_v2vtas0F+Q \tmp\rpt_ve_nuevo_facturacionorpt_ve_nuevo_facturacionQ Q3Q 4Q5 6Q78Q,9Q-:1 \tmp\dias_de_giro_facturacion/(!\xchg\dias_de_giro_facturacionԻzorpt_ve_nuevo_facturacionQ Q3Q 4QC9 Q-34queryF< ~' )%C< < masteridF$><-  F$D> <  < < <<-F$F$(>C  6-(!\xchg\dias_de_giro_x_clienteԻuomaster  CQCQQCQ Q  resumen6>C  6.(!\xchg\dias_de_giro_x_vendedorԻ% G(c:\sistema\2000BU?XHFECXDCON XDESARROLLOSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCP_LOCALVENDEDORNOM_VENDCODIGONOMBREDEUDASCHEQUESACC1FACT DIAS_GIROIDEXPORTAR_DIAS_DE_GIROVE_SQL_CUENTAS_CORRIENTESSYS_MOSTRAR_SCREENCCCLI_VENCLI_DVE DVENDEDORCLI_CODCLIENTECLI_NOMCLI_TOTSALDOP_SERVERCLIENTESAGENTEMASTERDEUDA!EXPORTAR_DIAS_DE_GIRO_CHEQUES_INDTE_SQL_CHEQUES_EN_CARTERACUENTADCUENTANUMERODESCRFECHAIMPORTEEMPRESARPT_TE_CHEQUES_EN_CARTERAXDFECEXPORTAR_DIAS_DE_GIRO_INDVE_SQL_COMPROBANTES_EMITIDOS_V2AGE_CODAGE_DESCOM_CODCOM_NUM COMPROBANTECOM_FECCOM_TOTEMPRPT_VE_NUEVO_FACTURACIONQUERYALLRESUMENrAQ2ArbB "r!BAA!ArrqBrQFABrAF BrqBrQFArBrArUAt rqBrQFArBsUeAB1%2>Cy>i~GbF!4*%C xconcostobN > TT154 T3015 T3081 T3360 T2432 T2868 T3405 T1896 T 3248 T b T O T G T 'G+(listadosTP%0`B)J(+T \temp.txt G(G G %12345A T T A T TFQclientescodcliF%Ctmp_p006F Qh1 \TMP_P006!C "C2#C $N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3NQFQ \TMP_P006S%Cborrar2fF4QZh1\borrar2!C"C2#C $N%N5N 6N7N8N9N :N;N<N=N >N?N@NAN BNCNDNEN FNGNHNIN JNKNLNMN NNONPNQN RNSNTNUN VNWNXNYN ZN[N\N]N ^N_N`NaN bNcNdNeN fNgNhNQF Q\borrar2S& !!F QbienesTj.t.%kl o 3Tjj".and.xdlin<=linea.and.linea<=xhlin%mn 3Tjj".and.xdgru<=grupo.and.grupo<=xhgru$%opq rpq %sF KTjj:.and.val(xdins)<=val(cod_ins).and.val(cod_ins)<=val(xhins)  7Tjj&.and.xdins<=cod_ins.and.cod_ins<=xhinsGIHindex on str(linea)+medida+descr to (p_local+'\borrar1') for &filtro GI #)+C+ ^ F >"it>!iu>#i#>$i$>%i%Fv( N F>"it>!iu>#i#>$i$>%i% >&vF>"it>!iu>#i#>$i$>%i%>& vFHFQFQbienescodinsFGI&& C&Z!(\borrar1GI Txa%12345 G* & T \temp.txt G(G G  TyaFG(%x { ">'(*  Tx-T{AF%CCCVENT Q|\CCVENTccvfacF%CVENTAS#Q|\VENTASfechaG-(G-(G-(uiF"%CX CX G(CCgCgCgGGF ECGFG +C+  aF%i%Ti% ( T%C=eEYT ECZCu = Ty->''H i%TTB`"?T i%GTTB`"?T i% TT?T 2T)TC6>((Td CSod d d d d d d 6%i% TT>**%'>)*'  T T%1%^TC% u T$% q T T T T TT TT` cs_generariu    TF4ECu =H* 3400  &Tcan1Timp1Tcos1Tacccos1 Tcan2Timp2Tcos2Tacccos2 Tcan3Timp3Tcos3Tacccos3* 3408  QTcan4Timp4Tcos4Tacccos4 Tcan5Timp5Tcos5Tacccos5  Tcan6Timp6Tcos6Tacccos6 hTcan7Timp7Tcos7Tacccos7 Tcan8Timp8Tcos8Tacccos8 "Tcan9Timp9Tcos9Tacccos9  TcaneTimpeTcoseTacccose  TcanmTimpmTcosmTacccosm  9TcanbTimpbTcosbTacccosb 2TcanrTimprTcosrTacccosrreplace &xcant with &xcant + ventas.recepcion , &ximpo with &ximpo + tttt , &xcost with xcosto , &xacccos with &xacccos + xcosto * ventas.recepcion F>,,FHFG!(%Hc>-*d .*d /*d 0*d 1*d _>2*,-./013C*#*,-./01* 6GIT\borrar9%s'& C&ZC$ZCC!gZ( #& C&ZC$Z!(GI %G('( * #) TB T T#TsC,6 T Ta*TFecha : CC$* Hora : C^(C12345A 6 T T T<  J( T T T+C+ %]$%$&  CT$& T$%&CXCC&CXT T& T-TC! = C"2= C# = 'C'@z 99,999,999,999_ 'C)@z 999,999,999.99_ 'C*@z 999,999,999.99_ %!C+ @z 999.9999_ 0CC+'T@z 999,999,999.99_ 0C*C+'T @z 999,999.99_ CCC**C+'T* 6 @z 999.99_ T'T*TC+'T%T&C&'%T&C&*.T&C&C+'TH C C$C12345A6GG(G*G on escape &onesc %C\borrar1 FQF (\borrar1SF(\borrar4SFQ\borrar4uoborrar4QXlineas $!CC&C [T C CfC fC XC- Q  C2   Venta  Precio Venta   %  Costo  Venta a Costo  Contrib.  Cdigo  .CDescripcin del Producto2    Cajas  Neto Promedio  Venta Neta % Standard  Standard  Marginal  % C- QTBULINPAGXDPRNINICIALFORMFEEDXPAGXFECXTIT1XHFECMESANCHOP_EMPRXTIT2 XCONCOSTO TBUXGET} C= Q T%bT   RCTotal CC< C Desconocida62 C  Q 'C@z 99,999,999,999_ 'C@z 999,999,999.99_ 'C@z 999,999,999.99_ %!C @z 999.9999_ 'C @z 999,999,999.99_ 'C  @z 999,999.99_ 5CC  6 @z 999.99_T  CX T T T T  BU OBIEDATA_CODIGO_VACIOANCHOXXXXACC1ACC2XOLDLINI_TAB XCONCOSTOACC3LIN) %! RESUMEN DE VENTAS: C= Q( T%C !TC C %  T%C   CC 2 C  Q /CC @z 99,999,999,999_ 'C@z 999,999,999.99_ /CC @z 999,999,999.99_ % !C @z 999.9999_ /CC @z 999,999,999.99_ 7CC C  @z 999,999.99_ VCCC 'C C C 6 @z 999.99_!(v T%C d!TC C %  T%C r  CC 2 C  Q /CC @z 99,999,999,999_ 'C@z 999,999,999.99_ /CC @z 999,999,999.99_ % n!C @z 999.9999_ /CC @z 999,999,999.99_ 7CC C  @z 999,999.99_ VCCC 'C C C 6 @z 999.99_ C= Q T (T  C !((T  C  T (kT  C !(T  C  T% T %  T T(ETC !(TC   #C TOTAL GENERAL2 C  Q 'C @z 99,999,999,999_ 'C@z 999,999,999.99_ 'C @z 999,999,999.99_ %  !C @z 999.9999_ 'C@z 999,999,999.99_ 'C  @z 999,999.99_ 5CC   6 @z 999.99_TBULINMAXLINFORMFEEDOBIEDATA_CODIGO_VACIOANCHOZZ XMAXGRUPOXXXXTACC XCONCOSTO NOMBREGRUPOSUMA1SUMA2SUMA34H CBMERCADO INTERNO z$BMERCADO INTERNO - CARREFOUR  BMERCADO INTERNO - DIA %  BMERCADO INTERNO - NORTE $BMERCADO INTERNO - LIMPIFLOR P&BMERCADO INTERNO - HOUSE CLEAN $BMERCADO INTERNO - MAGI AROM #BMERCADO INTERNO - DELICARE  &BMERCADO INTERNO - SUPER CLEAN  /&BMERCADO INTERNO - FIRST CLEAN  i'BMERCADO INTERNO - LEADER PRICE  BMERCADO INTERNO - UNO '"BMERCADO INTERNO - PROPHOS (BMERCADO EXTERNO )1$BMERCADO EXTERNO - CARREFOUR *d BMERCADO EXTERNO - DIA % + BMERCADO EXTERNO - NORTE ,$BMERCADO EXTERNO - LIMPIFLOR -&BMERCADO EXTERNO - HOUSE CLEAN .>$BMERCADO EXTERNO - MAGI AROM /t#BMERCADO EXTERNO - DELICARE 0%BMERCADO EXTERNO - SUPERCLEAN 1&BMERCADO EXTERNO - FIRST CLEAN 2'BMERCADO EXTERNO - LEADER PRICE 3PBMERCADO EXTERNO - UNO N"BMERCADO EXTERNO - PROPHOSB DESCONOCIDOUXDESTheaderc' criterios+subtotal+resumen. nombregrupo8rA211111111$qBAAaaAqAA`QAAqAAEAqA1A1AAqAAbaSQQQCAAAqaaaaaAaa!AAA1"AbaaaaAAA20a2b2b2QA cA2A2AB11 ArAaAaAAaAaAaAaAaAaAaAaAAA6 CAAa29Bbq1AbRR1rqqqABAa2aAqaaaqqq11ARQBABbaaaAqAAqAAqX"BqAAJ31AA!r!rQ1!Ar1!Aq!A3A2qAa1Au!qqqq1qqQAA2qArqsAaA1Aqqq1qaAACA1Aqqq1qaAACsAaAAAA1A1AAAr1qqqq1qqQAA3q11A111A1a1A111a1a1q11!21A111A1a1A111Q1a1q11!AA1488==@@ LB@!LR%s*Ej%'TCC$i @TCiG+(Dey_funcG+( Dey_FiltersG+(listados TTTT  InicializandoT aT C FZh1 \tmp\ C CCC<NCNCNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<NQ QZ \tmp\  F & =CBienescodins>CLineascodigo>CGruposcodigo>CBultoscodigo>CAtributocodigo>CStockcodigo>$Cidx04idx04?\>%Cborr_artF@QT@C h1 \tmp\@=CACBCCC(DC(ECFCGNHNINJC KNLC MC NCONPDQCRNSDTNUCVNWNXCYCQ \tmp\@@& =AB=$T Obteniendo artculosTTZ.t.#TZZC\]^[+TZZC`alineabienes_+TZZCcdgrupobienesbFeG((codinsG-(GgG-(HhSET FILTER TO &Filtro Cborr_artiF ^JjF@(k#)"TCkk6T,T Tomando artculos a analizar ~: TTj=TjATjBTjCTjGTjXTjHTjYF _JjF@CCCVENTCCVFAC>CVENTASfecha>FlG-(mnoG-(pqG-(reFl#)TCNT$T Analizando ventas...GGF ECGFG +C+ st p T;%CCopgCugCvguCX vCX  a F EClr =lAlB%C4] TwClsHTxCantCCwZTyImpoCCwZWREPLACE &xCant WITH &xCant + Ventas.Recepcion , &xImp WITH &xImp + Ventas.Tot_ven FlHT .T Analizando precios de venta...F z( h TzT{CostoCCzZTxCantCCzZTyImpoCCzZ:REPLACE &xCost WITH IIF(&xCant>0,&xImp / &xCant,0) ALL TT.T Agregando datos adicionales...%|?  !CBie_codaa}F TCCNCN6T.T Analizando precios promedio... ~T T~ T T T T T Tz(TCostoCCzZIF &cOB #0 THENxCosto1=xCosto1 + &cOB Tz( TCostoCCzZIF &cOB #0 THENxCosto2=xCosto2 + &cOB T%*T~ %RT %T~ !>:;<F H &  2( !\tmp\rpt_cle_resumen_por_productoF QF@Q \tmp\ .*UXDFECCYEARDEY_FUNC DEY_FILTERSLISTADOS OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEBORRARNEWFILEP_LOCALBIE_CODBIE_BULBIE_ATRBIE_DESLIN_CODLIN_DESGRU_CODGRU_DESCOSTO1COSTO2COSTO3COSTO4COSTO5COSTO6COSTO7COSTO8COSTO9COSTO10COSTO11COSTO12CANT1CANT2CANT3CANT4CANT5CANT6CANT7CANT8CANT9CANT10CANT11CANT12IMPO1IMPO2IMPO3IMPO4IMPO5IMPO6IMPO7IMPO8IMPO9IMPO10IMPO11IMPO12PROM1PROM2PROMACODIGO CHECK_OPENEDP_COMMONBORR_ARTBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUFACTORUNIDAD UNIDADAUX MONEDA_ANT COSTO_ANT FECHA_ANT MONEDA_CIE COSTO_CIE FECHA_CIE DIFERENCIAMONEDAPRECIOMARGENDLINEADGRUPOFILTROBIE_GET_BIE_FILTERXDINSXHINSP_NUMINSBIE_GET_LIN_FILTERXDLINXHLINBIE_GET_GRU_FILTERXDGRUXHGRUBIENESCODINSLINEASGRUPOSARTICULOS_LLENAROBORRARTRECCVENTASFAC_VENCAUSACCVENTCOD_CLICLIENTESCOD_INSFEC_VENXHFECXDCLIXHCLIXMOXCANTXIMPNITXCOSTXDCERBIE_FILL_LINEA_GRUPOXCOSTO1XCOSTO2XCANT1XCANT2XPROM1XPROM2XPROMACOBXDTIPFULLA!Q!Q T? T@TA TB TC TD TE7TFC S6C 61TGC C >[6j6 THa*TIFecha : CC$* Hora : C^%   'C1234A 6 'ZC1234A=C C@ C CCH C C! C C C0 6 TC+C+ rF TJK%L %LCF F EM TJK  TJKF9%AC   6GN%?+2% SH     O % S 9%AC   6GNCX CX C(X CX !---------------- ----------------TAA9%AC   6GNCX CX C(X CX )CD@z 9,999,999,999.99_ $CE@z 9,999,999,999.99_TAA9%AC   6G NCFXTAA K 9%AC   6G NCX CX CX CX CX CX !---------------- ----------------TAA9%AC   6G NCX CX CX CX CX CX )CD@z 9,999,999,999.99_ $CE@z 9,999,999,999.99_TAA9%AC   6G( NCFXTAA  %   9%AC   6G NCFXTAA T?+%@C4H T@C4H T>T>> TOCM>+6 TDP TEQH  RCV TSFact.  Rc TSN.Cr.  Rd TSN.Deb. RRTSRec.  RPDTSPago  RIkTSIngr.  RDTSDeps. RXTSExtr.  RATSAjus. 2TS TSST TUV%=CF1G((comprob,EWMCW+@z 9999,999,999_L%C4+C+ +W+ %XWX;TUC[CCY@z 999,999,999_] ZCWV>!H F0G((comprob,EWMCW+@z 9999,999,999_L%C4+C+ +W+ %XWX;TUC[CCY@z 999,999,999_] ZCWV>HH FW%CCU>D[UT\C]T^C] oT\CU=T^CX% Su9%AC   6GN CO @z 999,999_ C4* _CQXTAA9%AC   6GlNCXS J ;CC`CX[`] 6a = \ TAA%^CX9%AC   6GYNCXCX CX C X ^ )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_TAA q)CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_ 9%AC   6GN CO @z 999,999_ C4* S J ;CC`CX[`] 6a= \ TAA%^CX9%AC   6GNCXCX CX C X ^ )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_TAA )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_ N TUV%=CF1G((comprob,EWMCW+@z 9999,999,999_L%C4+C+ +W+ %XWX;TUC[CCY@z 999,999,999_] ZCWV>!H F0G((comprob,EWMCW+@z 9999,999,999_L%C4+C+ +W+ %XWX;TUC[CCY@z 999,999,999_] ZCWV>HH FW%CCU>-[UT\C]T^C] XT\CU=T^CXTDDPTEEQ% S9%AC   6GNTAACXCX J ;CC`CX[`] 6a = \ %^CX9%AC   6GNTAACXCX CX C X ^ )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_ )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_ J9%AC   6G'NTAACX CX CX J ;CC`CX[`] 6a= \ %^CX9%AC   6G.NTAACXCX CX C X ^ )CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_ F)CP@z 9,999,999,999.99_ $CQ@z 9,999,999,999.99_TCCH TH-%   C#% SH "% S 9%AC   6GNCX CX C(X CX !---------------- ----------------TAA9%AC   6GNCX CX C(X CX )CD@z 9,999,999,999.99_ $CE@z 9,999,999,999.99_TAA "9%AC   6G NCX CX CX CX CX CX !---------------- ----------------TAA9%AC   6G!NCX CX CX CX CX CX )CD@z 9,999,999,999.99_ $CE@z 9,999,999,999.99_TAA ?#9%AC   6G#NCFXTAA%C1234AC 6GG(G*G ON ESCAPE &ONESC $b<$CcBUdLISTADOSABRIR_TABLAS_FIJASXDFECLOCALESCO_001XHFECCO_002XDMENXDPRNXDCONXDTOTXDTRAXDFYHXDTIPXDMANXDRES CRITERIOSXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL OTRABAJANDOSHOW LINEWIDTHPICATEMPP_PRIVCO_011ASIENTOCLIENTESCODCLIPROVEEDOCODPROVEN_OPERCOM_OPERXDIARIOP_SERVERFECHACO16RESUMIR_VENTASLINEACUENTASCUENTACOD_CUEACTIPOXASXASANTFEANTLINPAGACCTOTDEBTOTCREANCHOMAXLININICIALXTEMPXNOMBRENOMBREPROCLICODIGOHEADERTEMPASDEBITOCREDITOCAUXCOMPROBCOMPROBXCOMENT COMENTARIODIARIOGPASENUMERODES_VALWWRA1WWRLA2CONCEPTOCOD_CENDESCRRELEASEDOSPRT_IMPRIMIRV TT% K% %1234AnC T)TC Pgina : CCZCX=]TCCCS6>CCS6>CS6[%  (CL I B R O D I A R I OCC CXT% SAsiento Fecha Concepto CPCZ6 Comprobante Razn Social Cuenta Concepto del Pase Dbito Crdito------- ------------------ ------------------------------ ------------------------------------- ------------------------- ---------------- ----------------T GAsiento Fecha Comprobante Razn Social Cuenta Concepto del Pase Dbito Crdito------- -------- ------------------ ------------------------------ --------------------------- -------------------------- ---------------- ----------------TBU LINPAGINICIALXDTIPXDPRNTEMPANCHOXDFYHXTEMPLOCALESCO_003XDCONTCreporteN0CDestino......................0CFecha........................0CNumeracin de Asientos.......0CConcepto Global..............0C Totales por Asiento..........0C Transporte...................0C Fecha y Hora de Emisin......0C Tipo de Listado..............0C Tipo de Asientos.............0CResumir las ventas........... T|C xdprn@!J[P]=Pantalla, [1]=Lpt1, [2]=Lpt2, [3]=Lpt3, [4]=Com1, [5]=Com2 o [0]=Salirxdprn$'P123450'<C xdfecFecha de Comienzo del listado.:C2xhfecFecha de Cierre del listado.YC xdmen@!,[R]=Numeracin Real, [M]=Numeracin Mensual. xdmen$'RM'dC xdcon@!7[S]=Con Conceptos Globales, [M]=Sin Conceptos Globales. xdcon$'SN'cC  xdtot@!6[S]=Con Totales x Asiento, [N]=Sin Totales x Asientos. xdtot$'SN'TC  xdtra@!'[S]=Con Transporte, [N]=Sin Transporte. xdtra$'SN'XC  xdfyh@!+[S]=Con Fecha y Hora, [N]=Sin Fecha y Hora. xdfyh$'SN'LC  xdtip@z 9Presione para ayuda.hlp_tip(xdtip)VC  xdman@!([T]=Todos, [A]=Automticos, [M]=Manuales xdman$'AMT'SC xdres@!&[S]=Ventas Resumidas, [N]=Sin Resumir. xdres$'SN'Ta <BUOSAYXGETGETVISIBLESHOWe45 T< 5T"Normal, todos los pases y asientosBT/Un asiento por cada fecha y tipo de comprobante!TCompacto Epson+TCompacto Laser (Notepad)%$*%listbox(arr_tipo% U B BUXTIPOMAXTIPOARR_TIPOTECLALISTBOXTC]TC]R,: Resumiendo...Fx(\tmp\C'  <Vd C  c C   C FQ\tmp\&& CCHZ(\tmp\&N CCHZ(\tmp\Q\tmp\c>   CAsiento Mensual por las Ventas ~ %> >  > >FG((asiento#6 TF$& C (\tmp\T ~%T T >F*(\tmp\C'  Q\tmp\dC'  <Vd C  c C   C \tmp\R,: Indexando...& 3& CC 99999999999_/& CC 99999999999_;& CC 99999999999_ & G((fecha#)R BUBORRARBORRAR1DIARIOGP_LOCALASIENTOCAUPROCLIFECHAXDFECXHFECCOD_CUECOMPROBCODIGONOMBREFN_FECHA COMENTARIOALLDEBITOCREDITOXASIENTOXFECHAFORCUENTA\4HL CHGBCCC*31[# CHvBCCC*28[# CHBCCC*31[# CHBCCC*30[# CHBCCC*31[# CH2BCCC*30[# CHaBCCC*31[# CHBCCC*31[# CH BCCC*30[# CH BCCC*31[# CH BCCC*30[# CH LBCCC*31[# BUXFECHATC]F(\tmp\F Q\tmp\,& C(\tmp\FGF G ECG GF+C+ '^(%A F #6 T  _ F EC%C4#>    %V> C = _">AH V1)> Facturas  a >V Cz'> Facturas de Compra del Da>C c P ,> Notas de Crdito de Proveedores>k c 1 .,> Notas de Crdito de Proveedores>1 d P +> Notas de Dbito de Proveedores>l d 2 +> Notas de Dbito de Proveedores>2 c C 7)> Notas de Crdito de Clientes>c d C (> Notas de Dbito de Clientes>d R> Recibos del Da>R O$> Ordenes de Pago del Da>O I\)> Ingresos a Tesorera del Da>I D> Depsitos del Da>D X!> Extracciones del Da>X 2> Desconocido>-FHF 3& C(\tmp\ATsdfsdfT#)+C+ %CTTC > H#> QFQ\tmp\B& CC ZCC  ZCC  Z(\tmp\BUBORRARP_LOCALFECHACOD_CUETIPOCAUXDFECXHFECREGISTROASIASIENTODEBITOCREDITO COMENTARIOCOMPROBNOMBREPROCLIOLDNEWASICOD_CENALLheader ' criterios,hlp_tip2resumir_ventas[4fn_fecha9co16 <!rABAAaarq`A1qAAbaaarqAAAAAqA2!AqAq1111qAq1111AqAqAq111111qAq111111AqAAqAAAQAQ1A1A1A1A1A1A1A1A11ABraAAAAqaAAAABABqq!ABqAqQAqAqQqAq111AAAqAq1QqAq111AAAAAraAAAAqaAAAABABqq!AAqAq1QqAq111AAAqAq111QqAq111AAAAAAAAqAq1111qAq1111AqAq111111qAq111111AAqAAARbaaaAq\A4qAAqaqABa q q q q ABB7sA1Aa1rPA2qqqQ!2QAA3rbb81ABrQrB21AArBr1QRB2qQQQQQQQQQQQQA3baaaAQQ2AAQ!AAqAAAAAAAAAAA21QqAAA1A!A17<n=FL,[LM=NUoVY]Yd|%92"C Iniciando... G+(Dey_FuncG+( Dey_FiltersG+( Co_Funciones CTCTCT CT Cq T Cr T Cs TCv >T .T. CReciboVORxdRecxhRec8TCfechaVORxdFecxhFec<T .T. CFechaCCxdFecxhFec(T .T. C C C C CBU OESTADO SET_AND_SHOWDEY_FUNC DEY_FILTERS CO_FUNCIONES OPEN_FILES XTABLA_CLINEWFILE_LOCAL_TMP XTABLA_VOR XTABLA_COMXCUE_IB CO_GET_CUENTAXCUE_IVAXCUE_GAN XCUE_SUSS XFILTRO_VORFIL_GET_NUM_FILTERXDRECXHRECFIL_GET_FEC_FILTERXDFECXHFEC XFILTRO_CCC XFILTRO_CLIFIL_GET_CLI_FILTERXDCLIXHCLIP_CLINUMSELECCIONAR_DATOSANALIZAR_DATOSEXPORTACION_FINALLIMPIARFTCX ~P% L >a TF$(\TMP\rpt_sel_recibosUTMP_VOROLDCOMPCOMPROBIS_ENCAP_LOCALCClientesCClientesCTMP_CCCCTMP_VORC Tabla_VORCvccclie.*.*.*U CHK_CLOSED CHK_OPENED XTABLA_CLI XTABLA_VOR XTABLA_COM5C#Seleccionando analizando cuentas...aF ~mF E>FQF ~F E>FQF ~F E > F QF ~BF E > F Q6C$Realizando la consolidacin final...ao Tabla_VORQXTMP_CCCQ XClientesQ     Q-Q-QC X TMP_VORFG((ccvfacFG-(^> !" C##$# %6U'OESTADOAVANCEVO_IB TABLA_VORCOMPROBPER_IBCAJ_PROVO_IVAPER_IVAVO_GANPER_GANVO_SUSSPER_SUSSCCCTVOREC_TOTBASECLNOMBRE INSCRIPCIOIS_ENCAIS_DETATMP_CCCCLIENTESCOD_CLITMP_VORCCVENTCCVFACREFCAUIBDTO672IBAPLIMPO_APLIMPO_VENTOT_VENDES_COM IMPONIBLEALL+CSeleccionando clientes...a% .T.  GSELECT * FROM Clientes WHERE &xFiltro_CLI INTO TABLE (xTabla_Cli) QFQ*CSeleccionando Recibos...aSELECT DISTINCT VOR.Cod_Cli, VOR.Comprob, 0000000000.0000 AS Per_IB, 0000000000.0000 AS Per_IVA, 0000000000.0000 AS Per_GAN, 0000000000.0000 AS Per_SUSS, 0000000000.0000 AS Rec_TOT, VOR.Recibo AS Vor_REC FROM Clientes Cli LEFT OUTER JOIN Ven_Oper VOR ON Cli.Cod_Cli==VOR.Cod_Cli WHERE VOR.Causa=="R" AND VOR.Recibo#0 AND &xFiltro_VOR AND VOR.Comprob#" -1" INTO TABLE (xTabla_voR) Q& G((ComprobSELECT VOR.Cod_Cli, cc.fecha, cc.Comprob, IIF(cc.cau="R",SPACE(20),cc.Ref) AS Ref, cc.cau, IIF(cc.cau="R",cc.importe * -1 ,cc2.importe) AS Impo_Ven, 0000000000.00 as ib, cc.importe * -1 AS Impo_Apl, 0000000000.00 as ibapl,cc2.fecha AS Fac_Fec, cc.ID AS ID1, cc2.ID AS ID2 FROM Tabla_VOR VOR LEFT OUTER JOIN ccclie cc ON VOR.Cod_Cli==cc.Cod_Cli AND VOR.Comprob==cc.Comprob AND cc.Causa="R" LEFT OUTER JOIN ccclie cc2 ON cc2.ID==cc.Cod_Cli+cc.Ref+cc.cau+STR(cc.cuo) AND cc.cau#"R" WHERE &xFiltro_CCC INTO CURSOR TMP_CCC READWRITE ->CX   FG((ReciboF ~tF E T+C+  \%RTTHF >>C,Analizando movimientos de Ingresos Brutos...aQo Tabla_VORQXVen_OperQ VO_IB2C Analizando movimientos de IVA...aRo Tabla_VORQXVen_OperQ VO_IVA8C&Analizando movimientos de Ganancias...aRo Tabla_VORQXVen_OperQ VO_GAN3C!Analizando movimientos de SUSS...aSo Tabla_VORQXVen_OperQ VO_SUSSU OESTADOAVANCE XFILTRO_CLICLIENTES XTABLA_CLI XTABLA_VOR TABLA_VORCOMPROBREFIMPO_VENIMPO_APLFORID1ID2VEN_OPERRECIBOVOR_RECXVALRECCAUSACAJ_PROREC_TOTVOVORCUENTAXCUE_IBVO_IBXCUE_IVAVO_IVAXCUE_GANVO_GAN XCUE_SUSSVO_SUSSTCClientesCVen_OperCCuentasCCcventU CHK_OPENEDExportacion_FinalLimpiarPAnalizar_DatosFSeleccionar_Datos Open_Files<!"QaB2qAAArA3RQBAaA4QqqABqArqABqArqAAqArqAAqAbrr14tBqAI!rrqAAAAAqA"$$244QQA12W, !Ny.+W =T {E%t ] !L2@ %Cccclie *Qccclie%Cven_oper \Qven_oper%Cventas Qventas%Cccvent Qccvent%Cagente Qagente%Cclientes QclientesT.t.%C C % 9T,betw(val(vo.agente), val(xdage), val(xhage)) *Tbetw(vo.agente, xdage, xhage)select vo.fecha,vo.cod_cli,nvl(cl.nombre,"DESCONOCIDO") as nombre, vo.comprob,vo.causa,sum(vo.caj_pro) as tot,vo.agente, nvl(ag.nombre,"DESCONOCIDO") as vendedor from ven_oper vo left outer join agente ag on vo.agente=ag.cod_age left outer join clientes cl on vo.cod_cli=cl.cod_cli order by vo.causa,vo.comprob group by vo.comprob,vo.causa where between(vo.fecha,xdfec,xhfec) .and. (vo.causa="R" .or. vo.causa="A") .and. &filtro into cursor vo uovoXccclieQ           vo1ovo1XccventQ  0XventasQ  0QQQQQQ Q!"Q#$Q%Q&C   6Q'C   6Q(Q)Q* Q+CXQ, Q-CXQ. Q/vo2%Cstock QstockF2G((codigo%Clineas QlineasF3G((codigo%Cgrupos ZQgruposF4G((codigo%Cbienes QbienesF5G((codinsG-(+3G-(-4F1G-(5 ~7>+5+,37-5-.47&%58S 59S F2G((codigo E111CXF1>/2/F5G-(F1G-(%Ccomicrit QcomicritF: ~= F1T;.t.%C:< `.T;;.and. agente=comicrit.cod_age"%C:= C:> DT;;3.and. between(subgrupo, comicrit.dsg, comicrit.hsg)oreplace comiper with comicrit.comision , comision with comicrit.comision * artcancel/100 for &criterio F1((?\TMP\rpt_sel_comisionesF1QFQF QBU@CCCLIEVEN_OPERVENTASCCVENTAGENTECLIENTESFILTROXDAGEXHAGEP_AGENUMVOCCIMPORTEREFCAUCUOCOD_CLICOMPROBCAUSAVO1CVDEUDATOTALTOT_VENNETODES_COM DESCUENTOVNCOD_INSCODIGOATRBUL RECEPCIONCANTIDADCOS_LIFOPRECIODES_INSDTOLINNETOARTCOEFAPL ARTCANCELCOMIPERCOMISIONLINEADLINEAGRUPODGRUPOSUBGRUPOFAC_VENVO2STOCKLINEASGRUPOSBIENESCODINSDESCR ATRIBUTOSBULTOSCOMICRITCRITERIOCOD_AGEDSGHSGP_LOCAL!AAA!A!A!AAAAA*UqrAq!Aq!Aq!AqrubqrAAraraAArqQA!AAArrArArAB1%<6:e6g_Ut,TC TC CG TC CH #C InicializandoG+(dey_funcG+(dey_fillTC]TC]T C]T C]T C]T C]T C]TC]TC]TC]TC]TC]TC]TC]%CccventFQ%CmovstockFQ%CventasFQ%CconverFQ%CxccventFQ%CxventasDFQ%CxconverkFQ%Citm_descFQ%C xitm_descFQCmovstockCCuentasDescrCccventccvfacCVentasClineas Cidx04idx04Cconver Citm_descT!N T"%#C X F$G((abrev E# T&' T()G((descr T&C X T( T*+ T,-%.%C xmovstock Q ..\2\movstock/F.(0\tmp\ C1*<,F/.(0\tmp\ C1*<,FQ0\tmp\ 0\tmp\ & 234%C xitm_desc wQ ..\2\itm_descF((0\tmp\4356F((0\tmp\4356FQ0\tmp\0\tmp\& 43C5Z7%Cxccvent cQ ..\2\ccventF.(0\tmp\ C8*<,F.(0\tmp\C8*<,FQ0\tmp\ 0\tmp\& 93:%Cxventas RQ ..\2\ventasF.(0\tmp\C8*<,F.(0\tmp\C8*<,FQ0\tmp\0\tmp\& 93;%Cxconver AQ ..\2\converF.(0\tmp\C1*<,F.(0\tmp\C1*<,FQ0\tmp\0\tmp\ T<=T>N T?@ TA+G+(dey_funcTBCCh1BDCECFC2GC HNINJNKNLNMNNNONPN"NQNRNSC7CTNUNVNQBW#CIndexando Bienes...XCBienesFYGI& C"ZG)(xtempGIG!(xtempT[ .T. %? )T[[ And Bienes.Linea==xLin #CFiltrando Bienes...Xset filter to &xfiltrob #)'CObteniendo Artculos...X+C+ FW>FY)>EY\>GYG>"Y"%] >SI>FY)>EY\>GYG>"Y">SX  >SAFYHFYG!(0C Indexando Artculos obtenidos...XFW&i1tmp_p006PN&i1tmp_p006PN i1tmp_p0067C'(0\tmp\detalle_contrib_cal0Q0\tmp\detalle_contrib_cal^F^%i1detalle_N%i1detalle`N%i1detalleaN%i1detallebN%i1detallecN%i1detalledN%i1detalleeNi1detallefCi1detalle9C i1detallegC i1detalle3C%i1detallehNi1detalle1Di1detalleiCi1detallejC(i1detallekCi1detallelC(i1detallemN& ES7FW& ES(xtempG!(xtempTnDToN Tp Tq+qp0#CIndexando Ventas...XFG-(93jTr]fec_ven>=xstock .and. fec_ven<=xhasta .and. iif(xcod=oBie.data_codigo_vacio,.t.,cod_ins=xcod)GITindex on cod_ins+fac_ven+dtos(fec_ven) to (p_local+'\TMP\'+xborrar3) for &filtro GI 1C!Copiando Ventas seleccionadas ...XoventasXitm_desc 93C~Z43C5Zccvent89g3\stuQvwQwxUyyQz{|QiC(XQjDQkC(XQlC} 6~6Q~9393C8+- CC< \<a6 3r (CC C CDa6 (CC C C|a6 { tvkotvmovstockHcQuQf9323~5 c1iotvmovstockHcQuQfgr23~5 c2IotvvQuMovimiento sin stockQf{c3oc2c1Ǽc4-oc4c3Ǽ10\TMP\ Q0\TMP\ HCIndexando Ventas Seleccionadas CCBorrar9NZ...XF$& \C8(0\TMP\ #)>CVentas Seleccionadas CCBorrar9NZ...X4CProcesando detalle...CBorrar9N+C+  CFW%]-E\CC9=EXI6 E\A%C4!%C9=ABCEZRF%8*2TC\stfu8Tz%$%U U Ty %U TTC8T%C iC T T C Suspendo?a4CFactura en moneda no habitual:  !!! FW>HHu3TuwCU z6TnUTz >V >Un >T%3TuwCU z6 1%UTuw -"Tuwz !>KKxd (>QCHCKH T6>MMu.>LLxd uF^%]-E\CC9=EXI6 "E\A< ^( >_u>axd #>QC_ a_ 6#>`C_ a_ 6>bu*>cxd u>99>gg>33 >h>ff>18>ii>kk3TuwCU z6TnUTz >V >Un >TFWFH Tqq%Cclientes bQclientesFG((codcli%Cagente QagenteF|G((codageF^G-(i|G-(k>j|lFQFWT0\TMP\& SC"Z(T0\TMP\ (FQT0\TMP\& SC"Z(>LFWT0\TMP\& SC"Z(#)+C+ JFEWSCW"Z>LLWLFWHFK(LFWG-(SC"Z#)+C+ %KL '>NCKLK 6d%L >PLL d C 2 Error 1 : E Borrar6.contrib = 0%o >OL d  Error 2 : totcon = 0  HF^G-(SC"Z#)+C+ "%ac !'>NCaca 6d%L[!>dcL d !2 Error 1 : E Borrar6.contrib = 0%!>ec d ! Error 2 : totcon = 0 !HFW>7ES& SC"ZE*(0\TMP\rpt_cal_contribucionSQF8i10\TMP\rpt_cal_contribucionCaCrpt_cal_contribucionLineaLin_Des NO_CAMBIAR NO_CAMBIARLinea DesconocidaFQi1detalleCTCdetalleLineaLin_Des NO_CAMBIAR NO_CAMBIARLinea Desconocida%CBorrar#FQ%CBorrar9#FQ%CBorrar6#FQFG!(FG!(0\TMP\Borrar*.*FYG(F^H]$* %odetalleijEFC_QCaQQCbQCcQEFborrar)>CC T6& EF^%i1detalleNG-(Er>HKQMLC 6d g'odetalleijEFC_QCaQQCbQCcQijEFborrar)>CC T6& iEF^%i1detalleNG-(iEr>HKQMLC 6d C*odetalleklEFC_QCaQQCbQCcQQmklEFborrar)>CC T6& kEF^%i1detalleNG-(kEr>HKQMLC 6dH#)$* v)@odetalleklQQmkborrar )DodetallekCaQQmk<borrar $*DodetallekC_QQmk<borrar%C*F >mCO& kk<F^G-(k>mm>7ES& SC"ZEC1<(0!\tmp\rpt_cal_contribucion_detalleԻ_7(\xchg\contribucion detalladaԻ_<(0!\tmp\rpt_cal_contribucion_detalle_QTmayor Ta T- T- T T-T60203T602030%C=# C@  2,T1T1G co_sql_mayor+-BUFORMFEEDBOLDUNBOLDOESTADO SET_AND_SHOWDEY_FUNCDEY_FILLXBORRARXBORRAR6XBORRAR9XBORRAR3XBOR_MOVSTOCK1XBOR_MOVSTOCK2 XBOR_CCVENT1 XBOR_CCVENT2 XBOR_VENTAS1 XBOR_VENTAS2 XBOR_CONVER1 XBOR_CONVER2XBOR_ITM_DESC1XBOR_ITM_DESC2CCVENTMOVSTOCKVENTASCONVERXCCVENTXVENTASXCONVERITM_DESC XITM_DESC CHK_OPENEDP_COMMONP_PRIVSIONOLINEAXDCUECUENTASABREVT_CUENTACOD_CUET_DESCDESCRXDESDEXDFECXHASTAXHFECXDCON XMOVSTOCKP_LOCALFECHANUMEROCAUSACOMPROBITEMOLDITEMIDFEC_VENFAC_VENCCVFACVEN_FACXCODXDBIEXCTRLXLINXDLINXSTOCKXTMPFILENEWFILE_LOCAL_TMPCOD_CLICODIGOPRODUCTOMEDIDACANTIDADKILOSBRUTONETOCONTRIBCOS_VENPERCENTPERCENT3PERCENT2PPROMDESTMERCADOCAMBIOMONEDAPESOSTMP_P006AVANCEBIENESXTEMPXFILTROBCOD_INSXDMERDETALLE DCANTIDADDPRECIODNETODCOS_VENDCONTRIB DPERCENT2 DPERCENT3LOTEREM_VENCOSTOAGE_CODAGE_DESCLI_CODCLI_DESORDXMONEDAXCONSOLMAXLISCONSOLFILTROBULATR RECEPCIONVRECEPCOS_LIFODES_INSCOEFICINDICENOSTKAGENTEVERSIONITMXDCLIXHCLIXDAGEXHAGETVDESPACHOC1C2C3C4BORRAR9SUB_SET_AND_SHOW SUB_AVANCEXCOSTO OBTENER_COSTOINDXDPESXMENSAJEXCAMBIOMENSAJESYS_MOSTRAR_SCREENXPESOSTTTTAAASUB_HIDECLIENTESCODCLICODAGENOMBREALLTEMPFBORRAR6TOTCONBORRARLIN_DESFILL_LINEAS_GRUPOSRPT_CAL_CONTRIBUCIONXDTIPSUM_CANSUM_NETSUM_PRESUM_COSSUM_CONAPERCENTTOTP_SERVERXTABLAXA_LOCALXCON_SALDO_ANTERIORXTODO XCONSOLIDADO XCON_CIERREXDABREVXHABREV EXPORTAR_FULL CO_SQL_MAYOR T T T T  T W  cs_generar   BU XCODXBULXATRXLOTXCANXFEC XFECHACOSXCOSTOXMONCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARB1QEXPORTACIONES_CRYSTAL Imp_exp.vcxMTCexportaciones_crystal Imp_exp.vcxcal_rpt_contribucionT\xchgTT *TTT  T a T - T a C BU XTABLAXDFECXHFEC XCONSOLIDADOOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDLOG1XDLOG2 EXP_TABLA obtener_costo63exportarp4QQ2#!rqAAqAAqqAAqqAAqAAqAAqAAqAAqAAS11QarAArrr"ArrrArrr"Arrr"ArrrB#a32rba#1A4QrqQQAqAArarbasqRQQQQQQQ"rqA2rAbAaprAQAqAzd"DAa"AsBAABtB42br"AAsAr11B2rBBAqAAAAAq!AqrrArqrqSqQAqAAqrQRqa!A1QAAAAArQRva!A1QAAAAAr"AAqAArqAAqAAqAAraqarar1KrQ(2 "rQ2(, "rQ2(12B2BBqrAB#qA"!!BwB2{34"BB1Z\ ]w_% v<7T.T.%C C nBT5between(val(mtz_prod.cod_pro),val(xdpro), val(xhpro))%"Tmtz_prod.motivo=xdmotselect mtz_prod.* , proveedo.nombre from mtz_prod, proveedo where mtz_prod.cod_pro=proveedo.cod_pro and between(fecha, xdfec, xhfec) and &xfiltro into cursor mtz_rendimiento1 +(\tmp\mtz_rendimientoQRUXFILTROXDPROXHPROXDMOTP_LOCAL!A1!A 2%^"vKX֑}6 T%H1} RTS sT 2}TC$ T T 'CInicializando... T-G+(listadosT PT N T  T TNTSTSTNIJ( !K"  ! G*(T#$ \temp.txt G(#G G  T% T&4h1$\tmp\errores_contrib'CQ%Cborrar2F(QFh1$\borrar2)C *C+N,CP-N.D/C0C(Q%Ctmp_p146qF1QFQ$\borrar2% F 2h1$ \tmp_p146/C0C()C *C2C3C4C(.D5N6N7N8N9N:N;N<N=N>N?N@NANBNCN DN EN -N FCGNHC ICJC(KCLCMCNCONPC(QNRN SCTCUNVNWNXNYC ZN[C\D]C ^N _C `N aDbDcN dNeDfNgNhCiNjC(Q$ \tmp_p1461($\borrarQFQ$\borrar1FkG((despachoFmG((idx04%Ccom QcomopFIG((codageFlG((despacho%Cimportac Qimportac%CMovstock # QmovstockFrG-(l/l%Cccclie k Qccclie%Csucursal QsucursalFuG((codcliFwG((cuentaFyG((codins%Cpaises  Q{\paises%Csprgrupo G Qsprgrupo%Cccvent  Qccventccvfac%Cmotivos Qmotivos%Cventas FQQventas< J(% %Sk <T/xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec  mT`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ven.and.ventas.fec_ven<=xhfec))) .and.cod_cue#"203010000"  %SA =T0xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec  mT`iif(causa$"cd",.t.,((xdfec<=ventas.fec_ent.and.ventas.fec_ent<=xhfec))) .and.cod_cue#"203010000""%CX CX %J YTH.and.val(xdcli)<=val(ventas.cod_cli).and.val(ventas.cod_cli)<=val(xhcli)  ET4.and.xdcli<=ventas.cod_cli.and.ventas.cod_cli<=xhcli% &T AND ventas.causa#"r"%,T and !EMPTY(ventas.cod_ins)%rAT0 and !EMPTY(ventas.cod_ins) and bienes.lotes=[S] %DT3 and !(!EMPTY(ventas.cod_ins) and bienes.lotes=[S])FG((codigoFG((codigoFyG-(C%Ccur_ven@FQC Suspendo?aselect ventas.* , iif(causa='V','A','Z') as ord from ventas left outer join bienes on ventas.cod_ins=bienes.cod_ins order by ord, bienes.linea, bienes.grupo, ventas.cod_ins where &filtro into table (p_local+"\tmp\cur_ven") QFQ$ \tmp\cur_venG-(3yG-(uG-(*}F}G-(,F%LT?!( (ccvent.causa="c" or ccvent.causa="d") and motivos.tipo=8) kJT=!((ccvent.causa="c" or ccvent.causa="d") and !motivos.ventas)% AT4.and.xdzon<=clientes->zona.and.clientes->zona<=xhzon%C/T.and. xdprv=clientes.provincia%CxdpaibNB T%%4T#.and. not inlist(clientes.pais,0,1) *T.and. xdpai=clientes.pais"%CX CX %eWTF.and.val(xdage)<=val(ccvent.agente).and.val(ccvent.agente)<=val(xhage) CT2.and.xdage<=ccvent.agente.and.ccvent.agente<=xhageset filter to &filtro F1$& )*3($\borrarF#)$CObteniendo ventas...+C+ 9#'%}}**F}G((ccvfacE*FTd }d }d }d }d }d }d }d *%* A04-00000095dcC Suspendo?a%%*V C3 !FyG((codins E3F %3C32797 T Ta T T+! T T T T T T TT~TC*3F1 T-E*3 TC4T5%*Vd9TCC  cc6F 9TCC  cc6DT%! T T TF1>AB >ZFG((codigo EyCF1>CyC>P4>EE>HCy>KCyK>/>)>**>33>hC>.>\\>]%>g>0u0>LCuL>NuL>OuM>MCuMMF1>i}i%}i-%C}C}iZsucursalidu>jt0 >jERRORF1*>R}RS}ST}TFw%C3 !CycuentascuentaTyA R!CYcuentascuentaTwAF1'>^w^_w_`FI E}IF1>I}I>JI0>55"%S 5 '>65 d  H&>6C6=>77C  cc66F>88C  cc66%CT78}d >9%S FI E}IF1mC* Comisin : CC} @z 999.99_[}I] I0u0>;789:FyG((codins E3F1 >F% oO><CyC63C<3 ' %1*c?Fs G((cpbtE1)1*%T)*! ET%*VTs. T ;T YTF1-TCC63%C *TC<3 ><@>UV[CWX]% A01-0000571683C40921C3>3C40922C3>  %5 ><;5 p= ף?@% A01-000059133C40922C3> 4!%50!><;5 ZB>?<>==<C  cc60>>CC;C=; dT6>?;=0>@CC;C?; dT6 >G *#H"&# "/%SN },  "% m" C " C " &#:%SS },   #% " C # C "#FH C Cb% C CX CX    # %+CBARQ@+CBA!RQ@*CBARQ@+CBA"RQ@ +CBAiRQ@+CBARQ@*CBA/RQ@+CBADRQ@+CBARQ@ +CBARQ@*+CBARQ@++CBA3RQ@,FQF1$>Q<G dG%%  3&F15% 'Noconver3lCTRC ZRC Z1 borrar3333GF1F ~&+:1Cl1F313 G FQF13T.t. C%C b'T(!eof("BIENES")) '0T#(!eof("BIENES").or. empty(cod_ins)) %  '3T".and.xdlin<=linea.and.linea<=xhlin% (FyG-(AkTZ and between(iif(bienes.masterlin#0, bienes.masterlin, lineas.masterline), xdmlin, xhmlin)% (3T".and.xdgru<=grupo.and.grupo<=xhgru% _)QT@.and.xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgruT!()F1G-(3y8C .. \\ 6 dele for ¬filtro % )5&>4y4YyYC3 3H=*+  *F& CA AB6CCAZ3)($\borrar K(; +G-(/u'& u03)($\borrar K(; /+ C K( Y+ C K( + C K( T T T T T T T T T T T T T T T T T T T T T TB T  T  T a*T Fecha : CC$* Hora : C^T  T%C3- T J- T T Tlistados6% S  - CH-. C}. CF1y>2C*VFCYC*cNCDC*dND/C*MMVC*rRE 66666 C. C . C TC%CO0 0%C0T\contribucion_C_a_C_C con_lotes-C con_lotescon_y_sin_lotes66%C 0cotmp_p146)*.\34QFQl5Q<[Zq (Ի(K04C'Archivos abiertos...no se registran !!! F($\borrar%0F1(($\tmp\rpt_sch_contrib_t1F('($\tmp\rpt_sch_contrib_2F'($\tmp\rpt_sch_contrib_3F(Q(T'Finalizando los datos...T .Q$\tmp\rpt_sch_contrib_t1!-Q$\tmp\rpt_sch_contrib_3"(olineas/# masterline%B5osalidat1Q$Xsalidat3Q% %/$AX masterline #/$B$C%4C SIN LINEAQ&C#4CSIN LINEA MAESTRAQ'C$A %/ salidafinalH25 !3Ho salidafinalQ)Xbienes y3)3)y4sf2 3Oo salidafinalQ)Xbienes y3)3)y4+<sf2 5o salidafinalQ)Xlineas )B/A&BC4C(XQ'C7Q7C8Q8C9Q9C:Q:C;Q;C=Q= Q,C?Q? Q-CGQG QQCG5Q.ABsf2>,=; d;>-?; d;$>Q=. d.'($\tmp\rpt_sch_contrib_1Q 5F!@osalidat1 Q, Q-tmps1>,0 d>-+ d'($\tmp\rpt_sch_contrib_1F!QF"Q%1S ;6 C2F1QGG(G*G on escape &onesc BU3XVERSIONXDMONXDPESXFECHA_VERSION_3 XGLOBAL_ERROR OESTADOMAXOESTADO SET_AND_SHOW GUI_DEBUGLISTADOSXDPRNXDSEPXDMOTXHMOTXDBONXDCODXDCTRXDCHKXPUERTARESETFORMFEEDTAM1TAM2TAM3TAM4LONGBIGUNBIGBOLDUNBOLDMARG1MARG2MARG3MARG4 CONFIG_PRNTEMPTXTP_LOCAL LINEWIDTHPICATEXTOBORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRETMP_P146TIPOCPBTCOD_INSDESCR RECEPCIONCOS_LIFOBRUTOBONIFCOMISOTROSNETOCOSTO TOT_COSTO PER_COSTOCONTRIB PERCONTRIBLINEAMLINEAGRUPOSUBGRUPO SUPERGRUPODSPFOBGRUPO_PFAGENTENOMAGECODALT1 PROVINCIAPAISCLI_PROVCLI_PAISGRU_DESFACTORTRANOTREFCOS_MOMON_MOFOB_MOCOF_MOCOD_CUEORICOS MON_MOTXTFEC_ENTREMITOERABREV LINCONTABVENCCANCELDIASCCANCELFDIASCFDIASCFECHACPBT_MONSUCDSUCCONVERDESPACHOIDX04COMOPCODAGEIMPORTACMOVSTOCKCCCLIESUCURSALCLIENTESCODCLICUENTASCUENTABIENESCODINSP_SYSTEMSPRGRUPOCCVENTCCVFACMOTIVOSVENTASXXXAXPOR_FECHA_ENTREGAFILTROXDCLIXHCLIP_CLINUMXREMITOSXDMAR XDCTRLIVAGRUPOSCUR_VENSYS_MOSTRAR_SCREENCOD_CLIFAC_VEN XCONTROL_IVAXDZONXHZONXDPRVXDPAIXDAGEXHAGEP_AGENUMAVANCEGDESCDES_INSDESC1DESC2DESC3DESC4DESC5DESCA1DESCA2 XACUMULADOXPARCIALXRECOLDXSTKCANXDSPXDSPCANXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOREM_VENITMFEC_VENNOSTKFCDEREVERSIONENCXFALTAN XCANTIDADXDIMPXHIMPXDPREXLINEAXLIN_DESXMLINEAFN_LINEAESPEC MM_MONEDAMONEDACOEFICPROVINCVEN_CUE XLINCONTABTOT_VEN CONVERSIONCOEFXDCOMXDFCOMISIONCONTROLCONV_COSXTC_A_FECHA_DE_COMPRACOSMONCPBTCAUXFXCOSTO_3RND NC_GENERICASEPARADO CANCELACIONESMOVS ADICIONALFORXDORDXHORD BORRAR3333ALL FN_FILTBIEXDINSXHINSFILTRXDLINXHLINXDMLINXHMLINLINEASXDGRUXHGRUXDSPRGRU NOTFILTROXDFECXHFECXDTIPXNETCTRLAGRUP_2SUM_NETOAGRUP_3AGRUP_6CA_BRUTOCA_BONIFCA_COMISCA_NETOCA_OTROS CA_TOT_COSTO CA_CONTRIBBA_BRUTOBA_BONIFBA_COMISBA_OTROSBA_NETO BA_TOT_COSTO BA_CONTRIBAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIBLINPAGMAXLININICIALXTEMPOLDLINOLDCODANCHOTAMMARGENMARGTAM DISPLAY_CTRTIPO_1TIPO_2TIPO_3XALIAS EXPORT_DIRXDESTINO P_DIR_EXPORT ART_DESCRCANTIDADQOEXMENSAJEVALUESALIDAT1SALIDAT3 MASTERLINEST1ST3LIN_DESMLIN_DES SALIDAFINALSFSF2 SUM_CONTRIP_COSTO P_CONTRIBACCFOBTMPS1 SUM_TOT_COXDTOTTOT_LINF"%C X C X {G-(CT2.and.xdcue<=cuentas.abrev.and.cuentas.abrev<=xhcue% 3T".and.xdgru<=grupo.and.grupo<=xhgru%  DRTA.and. xdsprgru<=grupos.supergrupo and grupos.supergrupo<=xhsprgru%C  % KT:.and.val(xdins)<=val(cod_ins).and.val(cod_ins)<=val(xhins) 7T&.and.xdins<=cod_ins.and.cod_ins<=xhins"% CX CX F#T.and.xdcen=cod_cenGI8index on cod_ins to (p_local+'\borrar1') for &filtro GI BUBIENESXDCUEXHCUECOD_CUECUENTASFILTROXDGRUXHGRUXDSPRGRUXHSPRGRUXDINSXHINSP_NUMINSXDCENXHCENr4%G%S%[BCT % ɚ; BCT BCT 5 TC% F B 0 TCFGF EGF% r,TCC6 T F B ,EC El cambio del dolar de la fecha C * no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B F B kBCU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXVERSIONXDPESXXAAAAAIDX04INDICE1 MENSAJE_WAITFECHA XGLOBAL_ERRORERRORES PRECIO_USS CONVERSION24% 5%N%a B  TCFGF EGF% >%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C    T TC  T F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %& B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F B BCBU XCOSTO_MOXMONEDAXFECHAXCODIGOXVERSIONAAABBBXDPESIDX04INDICE1XCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJE CONV_COS2Pr%CX CX   CX CX C SCH vB%Cmotinv QmotinvFG((codigoF G-( G-( dTW!eof("bienes").and.xdfec<=fecha.and.fecha<=xhfec.and.motinv.tipo=1 and motinv.con_op<=1GI`index on str(bienes.linea,2)+str(bienes.grupo,2)+cod_ins to (p_local+'\borrar3') for &filtro GI G-( F #)+C+ 8 TCO T T Ta T T+ T T T T TT{TCCXC @z 999999999999_M    F G((borrar3 #F T!-)%"" "  E T!C4  # %! F F > CC Z%>$CC @z 99999999999_>%M> > 8>&&C'( ) cc6 >*>++>,,>-->.+,- > >/ >0F G((borrar3 #F %123 ?2>4C 6C7 6 5 0T8CC7 6 5 >48 >48@>9:;C<=> >#F G((borrar3 #F <>??4C'( ) cc60>@CC.C?. dT6A>B.?0>CCC.CB. dT6A>D D>E E>FGF>HC I>JC J >KF G((borrar3HF G-(BULXDCLIXHCLIXDZONXHZONXDAGEXHAGE XDCTRLIVAP_EMPMOTINVCODIGOCONVERCOD_INSBIENESMOTIVOFILTRO REGCONVERXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOTRANSFITEMFECHABORRAR3TMP_P146ENCXDTIPDSPCOMPROBCAUSA RECEPCIONXDIMPXHIMPXDPRECOS_LIFOBRUTOBONIFCOMISNETONOMBREORICOSVENTASFEC_VENXFECHA_VERSION_3COSTOCONV_COSMONEDAXTC_A_FECHA_DE_COMPRAXCOSTO_3COS_MOMON_MO MON_MOTXT MM_MONEDAFOB_MOCOF_MO TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBLINEAGRUPO SUPERGRUPOGRUPOSGRUPO_PFESPECCODALT1FOB4%%A T T T Ta T T+ T T  T  T  T T mTC    F4TC  cc6!T dTCH C " ! _B  !6 67%" # ! _B ^ T>$>%&%>'>>>(>))>$>*C!,+>--*>..*/ >0>1-.02 >>33C0>4CC1C31 dT65>6130>7CC1C61 dT65 >8>9 >: >; >< >= >> >?C&?@>A&?>B&C>CC&CCF*>DDEEFFFG%C !CHIcuentascuentaTJH9 T!CKcuentascuentaTJG9F'>LGLMGMNJFOBUPXTIPOVENTASCOSTOXPARXDSPXDSPCANXPARCIALXSTKCANXRECOLDXFOBXMONCOSXMONFOBXORICOSXORIFECAAAFN_COSTOCOD_CLIFAC_VENCAUSAREM_VENCOD_INSITMFEC_VENTMP_P146XRECEPXDIMPXHIMPXDPREXXPRECIOTOT_VEN RECEPCIONCCVENTMONEDACOEFIC XDCTRLIVAMOTIVOCODIGONOMBRECLIENTESCOMPROBFECHAFEC_ENTCOS_LIFO CONVERSIONCOEFBRUTOBONIFGDESCCOMISNETOOTROS TOT_COSTO PER_COSTORNDCONTRIB PERCONTRIBDSPLINEAGRUPO SUPERGRUPOTIPOFOBORICOS PROVINCIAPROVINCCLI_PROVCLI_PAISPAISTRANOTREFCUENTASBIENESVEN_CUE XLINCONTABCOD_CUEERABREV LINCONTABCCCLIEF!& (\borrar5 T#)+C+ v%nTHBUBORRAR2CAUSACOMPROBP_LOCALACCCOMITIPOTOTAL#4 TCF  > >  >  >  > > > > FBUXCOMXCAUXTOTXMOTXTIPXFECXCODXNOMAREABORRAR2COMPROBCAUSATOTALMOTIVOTIPOFECHACODIGONOMBRE%-T D TT TCC "  _B   6 C "  _B   6 cTT  FG((comprobG E G %C4t#+C+   pT T=% CZ CZ V F C a TCOT CZFG((comprob E%C4% (F T -GEG T C4% F T!CO T")+C+  8T""#H #!%")+C+  FT$C#" T>%%$>&#'(%0>)CC&C+& dT6*>,&+0>-CC&C,& dT6*%.SC$Est afectada por la CcNCND6  (CC0Z)  12/FH  $zCError en comprobante 2 !!! Puede que el filtro excluya al cpbt imputado.  12/F #%.SH%C3     4 4 6 C %5 L F #H%C3     4 4 6 C  =mCError en cliente C $ !!! Haga F3 en la cuenta corriente.  12/F # CFG((comprob #FH _C.No est bien registrada en la Cuenta Corriente  12/BU6CCVENTTOT_VENXITM_VENVENTASXBRUGDESCDEUDAXUSS CONVERSIONMONEDACOEFICFEC_VENXNCNDCOD_CLIFAC_VENCAUSACCCLIECOMPROBXPARIMPORTEXIMPORTECUOTAREFCAUCUOSEPARADOREGXREFXDFECFECHAXHFECTMP_P146ENCREG_146X146BRUTOXOTOTROSNETOBONIFCOMIS PER_COSTORND TOT_COSTOCONTRIB PERCONTRIBXDCTRCONTROLMOTIVOCLIENTESNOMBREXPOR_FECHA_ENTREGAFEC_ENT PUB_INDEXotmp_p146Xlineas  CQCCCCCC C    C QCQCC(XQ  curF$> d T T T Tlistados Ta T  T! T" T# T$ T% T&#)+C+ T  'T!!(T"")T##*T$$+T%%T&&,H(-\borrar1BU.SUMTMP_P146 RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBLINEAMLINEAGRUPOTIPOFOBFACTORACCFOBLINEASDESCRLIN_DESCODIGOCUR SUM_TOT_COSTOFORXDTIPANCHOTAMMARGENMARGTAMLISTADOSINICIALAA_BRUTOAA_BONIFAA_COMISAA_OTROSAA_NETO AA_TOT_COSTO AA_CONTRIB SUM_BRUTO SUM_BONIF SUM_COMIS SUM_OTROSSUM_NETO SUM_CONTRIBP_LOCALFG-(G-(#)+C+ TTT  T  T  TTHBUTMP_P146COD_INSBIENESCODIGOCLIENTESAA_BRUTOBRUTOAA_BONIFBONIFAA_COMISCOMISAA_OTROSOTROSAA_NETONETO AA_TOT_COSTO TOT_COSTO AA_CONTRIBCONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCOD_INSBIENESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIBFG-(#)+C+ TTTT  T  T  THBUCURCODIGOCLIENTESAA_BRUTO SUM_BRUTOAA_BONIF SUM_BONIFAA_COMIS SUM_COMISAA_OTROS SUM_OTROSAA_NETOSUM_NETO AA_TOT_COSTO SUM_TOT_COSTO AA_CONTRIB SUM_CONTRIB otmp_p146CQCCCCCC  Q C  Q  C QCQ cur>  d>  d$> dBUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIB P_CONTRIBLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBCUR SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIBotmp_p146CQCCCCCC  Q C  Q  C QCQcur1>  d>  d$> docur1<curBUTMP_P146COD_INS RECEPCION SUM_RECEPBRUTOBONIFCOMISOTROSNETO TOT_COSTOP_COSTOCONTRIB P_CONTRIBLINEAGRUPOGRU_DESTIPOFOBFACTORACCFOBCUR1 SUM_TOT_COSTOSUM_NETOFOR SUM_CONTRIBCUR6)>CMM 6otmp_p146CCCCC C C C  Q C Q cur$>  d& BUTMP_P146CAUSAALLCODIGONOMBREBRUTOBONIFCOMISOTROSNETO TOT_COSTOCONTRIBFOBFACTOR RECEPCIONACCFOBCUR SUM_TOT_COSTOFORBORRAR11}45cTCVFCDCcNC/CdNDCrRE??6666 BUXCAUAAAp4He d4 Bd  R B 2e BBUXVALOR _4     TC TC %0181192 TC T -% T%Citm_desc Qitm_descF G((idEC Z%C4PT  FG%C S-6 S    %CxRecOldbL T F G((primario% HG EG %C4 DGErG  [ # %C4   T" T# T$a T%-2+&'r&' %()  4 T%a%Cdespacho+ T"" *%C+.RT+,T+-T##+,*T+.F/G((despacho E + T0%/1"C/1importacnumero%T0C12SSN6F/+C+ + + f%3^!H!%+ +3 T /4T/5/% /1 /- T.T. " T  T%67 %C/167TCC, 6CC/1ZCC0 06:C +C *(CC *Z)6T * G%8%++PRESTAMOZTCC, 6C +C *(CC *Z)6T * CTCC, 6CC/1ZCC0 06:C +C *(CC *Z)6T *F .TCC, 6Pto%67 T * T 0 ]C$Error en mov., despacho inex.: DSP: + Cod: ( Cpbt:& '9]T:$Error en mov., despacho inex.: DSP: + Cod: ( Cpbt:& '.TCC, 6Inx%67  T *  TC:;H%% WT C Z&'(C)Z&rC Z&'(C)Z T CO!   T " F%" B  B#"   ZC$No se encuentra el movimiento: DSP:  Cod:  Cpbt: 9ZT:$No se encuentra el movimiento: DSP:  Cod:  Cpbt: C:; & %   T <=c "  T F%] B  %CxdCOSDbL T>-%> ?@ TA TB}C cs_generarAB?3  C .6%?V %Av B?  B  BEBUFXCLIXFACXCAUXREMXCODXCOSXDSPXCOSMONXDSPCANXPARCIALXRECOLDXSTKCANXFOBXITEMXFECCOSXMONCOSXMONFOBXFECHA_OPERACIONXNOSTKXORICOSXORIFECXFCDEREXVERSIONAAAITM_DESCIDOLDITEMXFECHA_VERSION_3BIENES IMPORTADOLOTES XCONTROL_IVAMOVSTOCKPRIMARIOACCUNIDACCCOSTOPUNTOENC_CODNUMEROCAUSACODIGOITEMCANTIDADDESPACHOCOSTOFECHAMONEDACONVERXCERRADAIMPORTACCERRADACOD_INSFOBCOEFXDIMPXHIMPXDPRE MENSAJE_WAIT XGLOBAL_ERRORERRORESVENTAS RECEPCIONXDCOSDXNEWCOSXACTCOS XERR_COSTO XMSG_COSTO OBTENER_COSTO CS_GENERARCOSACT44%C)F> 999999> COSTO X PASE$> CLINEA CCZCCX> > > ">C999999> >d> > > >BUXFECHAXCANTXDOLARESXCAMBIOXLINEAXGRUPOXDFECXHFECTMP_P146CODIGOCOMPROBCOD_INSFECHA RECEPCIONCOSTOCONV_COS TOT_COSTO PER_COSTOCONTRIBNETO PERCONTRIBLINEAGRUPO4*%2727  SCH uT@ TT YPF MANT. PLP *%2034  SCH Tffffff@ TT YPF MANT. %C SCH IT333333@ TTAJUSTE IMPOSITIVO FG((codigo E -%SCH ANTICIPOS  #6HT T  T UXLINEAXDESCRXMLINEAVENTASCOD_CLIP_EMPES_AJUSTE_IMPOSITIVOLINEASCODIGOBIENESLINEADESCRXLIN_DES MASTERLINEM%C $C$ C $ % A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c  A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V  BaB-UVENTASFEC_VENFAC_VENCAUSAM Ta %CC $"% A01-00004643 A01-00004645  A01-00004646  A01-00004647  A01-00004648  A01-00004649  A01-00004651  A01-00004652  V  T- %CC $=% A01-00000412 A01-00000413  A01-00000414  A01-00000415  A01-00000416  A01-00000417  A01-00000418  A01-00000419  c 9 T- BUXRETXDFECXHFECVENTASFAC_VENCAUSA %CC $% A01-00004706 A01-00004707  A01-00004708  A01-00004709  A01-00004710  A01-00004711  A01-00004875  V BaB-UXDFECXHFECVENTASFAC_VENCAUSAd4 TCWF"Q\tmp\errores_contrib >Q FBUXERRORXAREAP_LOCALTEXTOh%CxmonedabL= T1QEXPORTACIONES_CRYSTAL Imp_exp.vcxNTCexportaciones_crystal Imp_exp.vcxsch_rpt_contribucion2T\xchgTT 9TTT  C C <BU XTABLAXDFECXHFECXMONEDAOEXCFIL_DIRECTORIOP_SERVER FIL_TABLAFIL_EXCEL_PLANOOFORMXDMON EXP_TABLARELEASEb4%S%HBCT % ɚ; zBCT BCT 5 TC% F B [ TCFGF EGFT CindiceCCZ% |,TCC6 T F B WXC3El cambio del "+mm_moneda(xdmon+1,1)+" de la fecha C * no existe !!! XT El cambio del C * de la fecha '+DTOC(fecha)+' no existe !!!C  F BU PRECIO_MECOEF_ME TIPO_MONEDAXFECHAXDPESXXAAAAAXDMONIDX04XCAMBIO MENSAJE_WAITFECHA XGLOBAL_ERROR MM_MONEDAERRORES4 5%S%N B  TCFGF EGFT CindiceCCZ% C%%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!! OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!C   T T  F B EC El cambio del dolar de la fecha C* no existe !!! JT =El cambio del dolar de la fecha '+DTOC(fecha)+' no existe !!!C F B %+ B  TCFGF EGF%CTindiceCCZxcambio=&bbb  T C El artculo C, tiene mal ingresado el cdigo de moneda !!!C *El listado no se emitir correctamente !!!OT  El artculo C, tiene mal ingresado el cdigo de moneda !!!TC T F BBU XCOSTO_MOXMONEDAXFECHAXCODIGOAAABBBXDPESXDMONIDX04XCAMBIO_DESTINOXCAMBIO MENSAJE_WAIT XGLOBAL_ERRORERRORESXXAAFECHAMENSAJEh%Cccclie *QccclieF~V]%Ccccliecpbt>>T$T CZtoccclie C Q CZ R  q T T ~T  T % T T F >  TT T T-#listadosF > TT  T T-#listadosF>  >%Y TT T T-#listadosF >BUCCCLIETMP_P146CAUSACOMPROBVENCCANCELXFECHAFECHAXIDCODIGODIASIMPORTECOD_CLIREFCAUCUOQXACCXIMPORTEXDIASXMONEDAXCAMBIOXEXACTOOBTENER_CAMBIOLISTADOSCCANCELFDIASCFDIASCFECHA fn_filtbie@ conversionDconv_cosGmovsLseparadoV display_ctr^controlr_ nc_generica`tot_linLjtipo_1ntipo_2ptipo_3rqagrup_2ragrup_3Euagrup_6w tipo_compyrnd!zfn_costoz adicionalʉfn_linea̋es_ajuste_impositivoEfiltro_fac_sacarfiltro_fac_agregarerrores: exportar_1Ŕ conversion2 conv_cos2 cancelaciones @211AAgqaaEAqAA AqAAa!CqABrrRQArrAAAAq1!AAArrrAAAA1ArqAA!2BABAA"QAAaA4A21AAAsrrqAArArArrAAQAA1ABAA"q1AAsArQDrq1Ar rBTvqD1uCB2AAS1rrrr!!bAAAra!AAsrQArtrt"qaAbBqqABrrbsq1AAAAqAB1AA1AAB1AD1ADABrAA$AuAvARqAbrQrAbrArABbA1AqA1AArrAeBa2q222BrAbAqqq1A!4AAAAB5qAsqrqvA3Y 111AArAqqBrAqAArAeaaaAD6r!1A1A!AaqAA!1AbaA312I2a!AAA1qaa1QAAA21:B1qaa11q1AAQAA1qaar1AcBBAA2!AA!AqrEdarQ1rrAqQArAQQsqb!Brr!!AqBAqaB:qbB3A1vQEErAAaqBArrQArtDqA5qQ1AAAB31rQA3gqA$ Qsba2wrsb1arAA2rBqArAABrACA3AABrDArArBrABAB5@rBSCAB9rRBAB6rQBAB5rQBAC3 AB3gAA2H BB2qq12q1AAA=21DAAqbABsAr1dabaAA!Bbsa!QAr1AAAAAA1AAAA1AAArABBABAAArABA1BAqBA1A5E3AAAA3rqQ1A!aAB2QQaQqRAABAA2`qAAq1AAAA2 rAAq2q!QAA014A""BrB31I2a!AAA1qaa2AA31B4qaa21q1AARQAA1qaar1AcBBA2!AxQRBHA1Ar3sq3sqc3sABB1]5a1dfwHd/iDiLT?C] h1@ \tmp\tmp_aux<C=NCDC C AC BC CNDNENFNGNHNQ@ \tmp\tmp_auxIFJG((cuentaFKG((codageF:G((codcliG-(KF;G-(:G-('J%CAnalizando comisiones ;CAnalizando movimientos...CBorrarNNTO.T. TO.T. %CP CQ  ,TOOCPQvendedoraR%CS CT [ +TOOCSTcod_cliaU+>::,:,set filter to &filtro TWsdfgsdfg TX ~?TY%WY TX TWYTXXTZYCXZ C[><Z=X::K !"#$1% %:\ >:\  >K] T^ T_ T` Ta TbFG((comprob E;;;CZ%C4W@+C+ -CZ;;;CZ ST__%BVcdF)EABTcDH Td)Te)DTf)HTg)hTi)jTk))DFEAB Tl Tm Tn To)+C+ 0AB H+ -V ToTmm C=BOLSA Tnn To 2 TllHF;%lmnX*T``llmn c*Taamlmn c*Tbbnlmn c CEl C;RRCC;AAJXX66 C; aplica al comprobante CBVFCMCBcNC5CBdNDCBLASXX6666 A del cliente C y no ste no fue encontrado !!!p (TcCqr dd 6BTdcCBLs  BL c6 TeTfc TgTifd TkdET``CBLs  BL c6 Tortmp_aux<=ABCDEFGHZX;;;;ABdekigfFH T^^;d  ToF;>1o `;C_؅W4vC_6 !"a;C_؅W4vC_6 #$b;C_؅W4vC_6 $T^ ;d "d  >^% >+%CJt"\S%C+u>%* >(a ;%C23 7%3 CvTO.T. %CP CQ ,TOOCPQvendedoraR%CS CT +TOOCPQcod_cliaUoborrartmp_aux;IAIBICIDIEIFIGIH;<I<borrar1& <<Txhksghlk ~%<x >>a Tx< & C<((@\TMP\rpt_ind_comisiones LF;QFwQFIQ V *.*4*.*5*.*BUy XALICUOTA_IVAXPOR_FECHA_DIFXCOMIDIFOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDSYS_MOSTRAR_SCREENAVANCEVEN_OPERRECIBOXBORRAR1NEWFILE_LOCAL_TMPCCCLIEFECHACOMPROBCAUSACOD_CLINOMBREVENTASDESC_INSDESCRVALORDIFTOT_VENIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORMPOR_DIF TOTAL_DIFPOR_DIFN TOTAL_DIFN ASTERISCOCOD_CUECUENTAES_DIFCCVENTFEC_VENFEC_COMIALTAMOTIVOSMOTIVOCODIGOFAC_VENTIPOXDFECXHFECXBORRAR2XBORRAR3VODES_VAL DIF_VALORCAJ_PROCLIENTESBORRARIDITMENCA XTABLA_AUXP_LOCALREFCAUBASEDES_COMSUBTIVAIIBBDEUDATMP_AUXCUENTASAGENTECODAGECODCLISUB_SET_AND_SHOWFILTROXDAGEXHAGEFIL_GET_AGE_FILTERXDCLIXHCLIFIL_GET_CLI_FILTERALLXOLDCPBTXITMXCPBTXID SUB_AVANCECOMI_COBCOMIXCOBACC ACC_RECIBOACC_NORMACC_DIFACC_DIFN XCOCIENTEXBASEXDES_COMXDEUDAXIIBBDTO672XIVAIVA_VENXSUBT TACC_NORMTACC_DIF TACC_DIFNXTIPOMENSAJEP_CODEMPP_DOSXDIVAATRIBUTOFECHAANTSUB_HIDEBORRAR1XOLDN 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaant c"!Q1r"spAq!D'!DPsqsrrsRAAXQ2AbbAsDbr1cqs1AAAqD"RA tAAAw CAAAqBAAAAA(B1AAqArArAA#!!C426>7%AgS[H>m %- C aTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcTC $TC $Cven_oper Ccccob Cclientes Ctccvent Ctventas Cccclie Cbienes Clineas Cgrupos oven_operQ    CQ RAC     q_recibosno q_recibosQccclieQQQQ    q1oq1ccventQQ Q !Q"#Q$ q2oq2ventasQ clientesQ& ' Q( Q) * + ,&&    &  q3!oq3Q0q31%oq3(QQ0q320otccventQ05 q33"o q32q31Ǽq34"o q33q34Ǽq35#oq35q415oventasC q42"o q42q41Ǽq43oq43q4T=.t.%>? P5T==$ and between(t.pedido, xdped, xhped)%C@ CA 5T==$ and between(t.agente, xdage, xhage)%CB CC 6T==% and between(t.cod_cli, xdcli, xhcli)select t.pedido , space(12) as comprob , space(1) as causa , t.fec_ven as fecha , t.cod_cli , c.nombre , t.ref as oc , t.desc1 , t.desc2 , t.desc3 , t.desc4 , t.desc5 , t.tot_ven-t.des_com as pesos , t.tot_ven-t.des_com as euros , t.tot_ven-t.des_com as dolares , t.moneda , t.coefic as cambio , 00000 as linea , space(40) as dlinea , 00000 as grupo , space(40) as dgrupo , 00000000000000.00 as comiven , 000.00 as comivenper , 00000000000000.00 as cobant , 00000000000000.00 as cobrado , 00000000000000.00 as comicob , 000.00 as comicobper , space(254) as refcob , t.agente as vendedor , a.nombre as dvendedor from q4, tccvent t, clientes c, agente a order by t.fec_ven, t.pedido where t.cod_cli=c.cod_cli and t.pedido=q4.pedido and t.agente=a.cod_age and &xfiltro into cursor q5 readwrite ~ >D >E%FG  >DHG >E%FG C >D>EHG TIJotventasQ XbienesQT UUXlineasQL KLWXgruposQY OWCKQKCLMC(XQNCOQOCMC(XQP QQ Iq6FZ -CN %C4 T #)FJ7>KZKNZNOZOPZP%C +>[H?\?C Suspendo?a]Yoq3   ,(C Q^  (q7FJ& F_ ~%_( FJ E_(>``_^+>a`Q~?b?  FG((comprobE_ _ _ F.G((codcli E FdG((codage E.fFJx> _  _ _,_,`_^f.fgd,  ,.,+>a`Q~?b?S%C_ R RC C_ R AJ XX 66C_ h g>hChCCh, 6C_ R RC C_ R AJ XX 66C_ FJ~TIJ TioventasQ ccventQj   Cj#j j!j# 6Qk I Vcd   jj  q8 ~xTml ll foccclie  cQC CnZmCZmCcZ RA q9~ tTiilkFJ >piT=.t.%>? 3T==" and between(pedido, xdped, xhped)%C@ CA J5T==$ and between(vendedor, xdage, xhage)%CB CC 4T==# and between(cod_cli, xdcli, xhcli)JC= FJ4& CC[AB6C(borrart(s\tmp\sam_comisiones  ,tHDENP[\`abhpfgQBUuSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCXDFECXHFECUSE_FILEVCOD_CLICOMPROBCAUSAFECHACAJ_PROIMPORTEVEN_OPER Q_RECIBOSQRREFCAUCC_IMPCCCLIEQ1CCFAC_VEN REFCCVENT CAUCCVENTFEC_VENPEDIDOFCDERETOT_VENDES_COMBASE_CCVDEUDA IMPORTE_CCVCCVENTQ2REM_VENPEDPEDIMPITM RECEPCIONNOMBREVENTASCLIENTESQ3DESDEQ31Q32TCCVENTQ33EST_DESPQ34Q35DISTINCTQ41Q42Q43Q4XFILTROXDPEDXHPEDXDAGEXHAGEXDCLIXHCLIEUROSDOLARESMONEDACAMBIOPESOSXPEDIDOQ5LINEALDESCRDLINEAGRUPODGRUPO FACTURADOTVENTASBIENESBCOD_INSLINEASCODIGOGRUPOSGQ6COMIVEN COMIVENPERSYS_MOSTRAR_SCREENCALCQ7COBRADOCOMICOB COMICOBPERCODCLIAGENTECODAGEVENDEDOR DVENDEDORREFCOBXCOBANTTFACTORQ8XIDCUOQ9COBANTINBORRARP_LOCALOC/%C (QUXFILEuse_fileBQ2AbaBS!QAA1111z Q"!2R"QAQAaApA:AA^ rQAsurABtusaqCrrrrQB2qABvA lBBBrB1AQAAArABCB4q"A1 g%~*xoHl T T- T&CInicializando...G+(listadosG+(dey_funcG+( dey_filtersCven_operven_opeCagentecodageCcuentascuentaCclientescodcliCccclieCventasven_facCccventccvfacC Suspendo?a "CObteniendo cheques F G((reciboQT CoccclieventasccventXmotivos ).-/QQQQC(XQC=Q-QQcQCXQCXQףp= [@Q (G0AQ (G0AQ ףp= [@Q! (G0AQ"ףp= [@Q# (G0AQ$ Q%&Q'-Q()*Q+Q,)0)0 d CC-1  C23 1 Q"CObteniendo recibos T4CT5Coven_operQ6clientes6Q6Q6Q6QC(XQ67QC11a-6QCC68 6686Q69QCXQCXQףp= [@Q (G0AQ (G0AQ ףp= [@Q! (G0AQ"ףp= [@Q# (G0AQ$Q1 Q%6'Q'-Q(C 6+66Q+Q,6:6R 6A  -CCC6+ 66+623 6614QQ4;F;  i1borrar<Ci1borrar=Ni1borrar>LT?C] h1@ \tmp\tmp_aux<C=NCDC C AC BC CNDNENFNGNHNQ@ \tmp\tmp_auxIFJG((cuentaFKG((codageF:G((codcliG-(KF;G-(:G-('J%CAnalizando comisiones ;CAnalizando movimientos...CBorrarNNTO.T. TO.T. %CP CQ  ,TOOCPQvendedoraR%CS CT [ +TOOCSTcod_cliaU+>::,:,set filter to &filtro TWsdfgsdfg TX ~?TY%WY TX TWYTXXTZYCXZ C[><Z=X::K !"#$1% %:\ >:\  >K] T^ T_ T` Ta TbFG((comprob E;;;CZ%C4W@+C+ -CZ;;;CZ ST__%BVcdF)EABTcDH Td)Te)DTf)HTg)hTi)jTk))DFEAB Tl Tm Tn To)+C+ 0AB H+ -V ToTmm C=BOLSA Tnn To 2 TllHF;%lmnX*T``llmn c*Taamlmn c*Tbbnlmn c CEl C;RRCC;AAJXX66 C; aplica al comprobante CBVFCMCBcNC5CBdNDCBLASXX6666 A del cliente C y no ste no fue encontrado !!!p (TcCqr dd 6BTdcCBLs  BL c6 TeTfc TgTifd TkdET``CBLs  BL c6 Tortmp_aux<=ABCDEFGHZX;;;;ABdekigfFH T^^;d  ToF;>1o `;C_؅W4vC_6 !"a;C_؅W4vC_6 #$b;C_؅W4vC_6 $T^ ;d "d  >^% >+%CJt"\S%C+u>%* >(a ;%C23 7%3 CvTO.T. %CP CQ ,TOOCPQvendedoraR%CS CT +TOOCPQcod_cliaUoborrartmp_aux;IAIBICIDIEIFIGIH;<I<borrar1& <<Txhksghlk ~%<x >>a Tx< & C<((@\TMP\rpt_ind_comisiones LF;QFwQFIQ V *.*4*.*5*.*BUy XALICUOTA_IVAXPOR_FECHA_DIFXCOMIDIFOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDSYS_MOSTRAR_SCREENAVANCEVEN_OPERRECIBOXBORRAR1NEWFILE_LOCAL_TMPCCCLIEFECHACOMPROBCAUSACOD_CLINOMBREVENTASDESC_INSDESCRVALORDIFTOT_VENIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORMPOR_DIF TOTAL_DIFPOR_DIFN TOTAL_DIFN ASTERISCOCOD_CUECUENTAES_DIFCCVENTFEC_VENFEC_COMIALTAMOTIVOSMOTIVOCODIGOFAC_VENTIPOXDFECXHFECXBORRAR2XBORRAR3VODES_VAL DIF_VALORCAJ_PROCLIENTESBORRARIDITMENCA XTABLA_AUXP_LOCALREFCAUBASEDES_COMSUBTIVAIIBBDEUDATMP_AUXCUENTASAGENTECODAGECODCLISUB_SET_AND_SHOWFILTROXDAGEXHAGEFIL_GET_AGE_FILTERXDCLIXHCLIFIL_GET_CLI_FILTERALLXOLDCPBTXITMXCPBTXID SUB_AVANCECOMI_COBCOMIXCOBACC ACC_RECIBOACC_NORMACC_DIFACC_DIFN XCOCIENTEXBASEXDES_COMXDEUDAXIIBBDTO672XIVAIVA_VENXSUBT TACC_NORMTACC_DIF TACC_DIFNXTIPOMENSAJEP_CODEMPP_DOSXDIVAATRIBUTOFECHAANTSUB_HIDEBORRAR1XOLDN 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaant c"!Q1r"spAq!D'!DPsqsrrsRAAXQ2AbbAsDbr1cqs1AAAqD"RA tAAAw CAAAqBAAAAA(B1AAqArArAA#!!C42617%Y'dFVO?ve_sql_comprobantes_emitidos_v2tmp_sri#Q \tmp\tmp_Sri%Cmovstock Qmovstock%Cclientes Qclientes%Cbienes Qbienes%CqQ otmp_sriQXbienesQ* XclientesQ+ ,XmovstockQ C-FC V  r6 . / 00  C R00-00000000C X 6Q   cQC ZQ QQ ARGENTINAQQQ Q!"Q#CC$ $%6Q%CC& &'6Q'CC( ()6Q)qF *(\tmp\rpt_es_sri_logisticaQ %Ctmp_sriDQBU1 EXPORTAR_SRIVE_SQL_COMPROBANTES_EMITIDOS_V2XDFECXHFECP_LOCALTMP_SRIMOVSTOCKCLIENTESBIENESQPEDIDOCOM_NUMREM_VENCOM_FECCLI_CODTCOD_INSBIE_DESCANTIDAD RECEPCIONBARRASEANMDESPACHO OBSERVACIO TIPO_ENVIOCLI_NOMPAIS DEST_PROV PROVINCIADEST_CIU LOCALIDADDEST_ZIPCPDEST_DOM DOMICILIOHOR2HORARIOPHO2PHONOEMAIL2EMAILBCCOD_CLICOM_CODNUMEROCAUSAITEM3AAAA!A`!A`rAB2PNG  IHDR<<:r pHYs  6iCCPPhotoshop ICC profilexڭJP@ϋP+qpx((`Ƥ-E!֤Ji^^~[wQpP@q!ruaakn:|9 S n$+yӮ; |* Ln *@B0~A:i@<^/@) ()A|f|03}0utjI:RgS-eI<e:dr?&.bn:rjY{3ޏXz,ZA8T*xoazR+ـ뢭V/OZOb:*iTXtXML:com.adobe.xmp Adobe Photoshop CC 2015 (Windows) 2021-07-22T11:11:30-03:00 2021-08-13T16:27-03:00 2021-08-13T16:27-03:00 image/png 3 Adobe RGB (1998) xmp.iid:d4bca6c9-cf96-7c41-92a7-5bed9de58d33 adobe:docid:photoshop:686185a2-fc6c-11eb-9fe4-ac79f4d6e4ac xmp.did:38005190-5b17-f140-a9c1-e0e35d5424c2 created xmp.iid:38005190-5b17-f140-a9c1-e0e35d5424c2 2021-07-22T11:11:30-03:00 Adobe Photoshop CC 2015 (Windows) saved xmp.iid:d4bca6c9-cf96-7c41-92a7-5bed9de58d33 2021-08-13T16:27-03:00 Adobe Photoshop CC 2015 (Windows) / 1 720000/10000 720000/10000 2 65535 60 60 ;E7 cHRMz%RX:oZiIDATxy]Gu.o,mhq$ @c0TX(KHl 0$ !S!rH !TTDqXBdm,i43o?{3E1Ep ݪ[ｾ}|;9=N:miO|6)t xn'x(T/A;\8}&#)#T(@+ \C2 )4F޿Aם8 Ň / Y}KB l¹7b@!DOQv X!|Fcp;]O_1ڃoACYR P6.Rw;|H(f quh@4DOq܉G1Lix %v/KG'CULn"-FbK@O}CRb[漓j^pL&9V? gt*lY;7 !C~=u! ^N~?C4s$50C$^.&PwWn|}`EPX>AElC-D?9눹o +;ײF@]O؆*e0?Lcz`‘p/.r ÝWQȆ Q` T/w?9?-=4x ;W\zbc;Ln T;f̗%!ex֣wyz p) ڿL0:%:\BIox|q 5~YʔU50Y}Caf\2ͱ뷓IG<]AH^V:v>?BvNKn7G}eYR%\C\M%пhA;+"r#e Ch ڿV'l[[sBM *E},Jr+z.EYxLϾa6P#LFت>XAZTahmSCu%R>P8TS%y)S`y'_~8WRSxuynE98,8b}3bUwqPcA>gx& XfhQ~#}v%Lmlgw1YBB*2Ľ;*sΛy&C;T^T+!ؽ\*;YZ<7,N oC k>]@Ȧ[Tr6WҎNquޞ0q4Rp~_Pai~K~2DT5aWa"*g4r=Z2S]LG;r)F<; v>=& QFs!c;j@4@&!҈'SŎ?/Y[qSb{/B}g_VbW,{}>"sƂ|o;X<+s 2TREl[Zfy;"xdY2{hs'3sLcT!!/l2INl!~W:"E`yYahryEv#RH /U JB{0z'N}7Su#5xG{Qȃ`x͐@ Y@ߡqĂRtpÐV =L_(wNh.OĚ!`bŕ^d/埀Whޅ(Y8|Zh1. 82MBa3jBoC, H-2,tեRqkVFpHHCu2b-Auj lfn m)1=4*vKX0l}0dpR0|fyZ I?W)QrВw֯"r[ObIkhT#$q|} /W&"܁P4Cw 矆D?N@NANBCCCDCEN FNNCNNNNC%N &N 'N (N )N Q \tmp\,,& *-.*$TObteniendo artculosTTG.t.FHG((codinsG-(3JG-(4Kset filter to &filtro C Suspendo?aLQMlistadosborr_artNOPQRSTF ^JUF,G-(*-.CXVG-(*HG-(*-W(X#)"TCXX6T,TTomando artculos a analizar ~B TTU *TU -TU.TU/TU3TUBTU4TUC*TUCCVY VYHZ6TUV0TUVD9TUCC-C. CH[ Z CV[ Z69TUCC-C. CHF Z CVFZ6YTUCC-C. CHH6CVV66TUCC-C. 8CCHH6 DasUnid65CCVV6 DasUnid66YTUCC-C. CH H6CV V66YTUCC-C. CH H6CV V66GTU"CC-C. H"CV" V"W"66GTU%CC-C. H%CV% V%W%66&TU CC- H W 6&TU#CC- H#W#6!CU medidascodigoTU!\0!CU#medidascodigoTU$\0TU&H&TU'H'TU(H(TU)H)F _JUF,TT.TAgregando datos adicionales...CBie_codaa]F F %^t C_F &  `Fa ~pF Ea*a.a-%C4l5>aabCacF H d=%e%f & C g( \tmp\   & ( \tmp\  9& ( \tmp\  d%e%f(& CZCC gZ( \tmp\  $& CZ ( \tmp\  $& CZ( \tmp\  d%e%f[(& CZCC gZ( \tmp\  $& CZ ( \tmp\  & ( \tmp\ !( \tmp\rptarticulosF QF,Q \tmp\ .* \tmp\,.*BUgDEY_FUNC DEY_FILTERSLISTADOS OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEBORRARNEWFILEP_LOCALBIE_CODBIE_BULBIE_ATRBIE_DESLIN_CODLIN_DESGRU_CODGRU_DESALT_CODALT_DESBIE_UBIBIE_EANBIE_DUN TIPOSTKMINTIPOSTKMSTK_MINSTK_MIN1COSACTMONEDAMONTXTMEDCODMEDIDAFACTOR MEDAUXCOD MEDIDAAUXUVEN MINCOMPRA CANTXCAJADEMORAVENCCODIGO CHECK_OPENEDBORR_ARTBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUUNIDAD UNIDADAUX MONEDA_ANT COSTO_ANT FECHA_ANT MONEDA_CIE COSTO_CIE FECHA_CIE DIFERENCIAPRECIOMARGENDLINEADGRUPO UBICACIONEANDUNFILTROBIENESCODINSLINEASGRUPOSSYS_MOSTRAR_SCREENARTICULOS_LLENARXDACTXDINSXHINSXDLINXHLINXDGRUXHGRUOBORRARSTOCKBULTOSTRECCCODALTCODALT1BARRASMEDIDASBIE_FILL_LINEA_GRUPOXDTIP ULTIMO_COSTOID Q_COSTOS2COSTO MM_MONEDAXDSEPXDORDP_NUMINS%Cq_costos!Q%Ccos IQcos^ocosC < q_costos1%o q_costos1- q_costos2F T dsgsdjlldflgjsdlf ~% vbr q_costos2 T %Cq_costosQBU Q_COSTOSCOSCODIGOATRBULFECHACOSTOMONEDA Q_COSTOS1 Q_COSTOS2XOLD ultimo_costo!Q!0ACqaqAAa-aBvvsrAQ"q11qqba222111rQqArt1ratrTABBr11AA21AAAA21AAABsAqAB3ARARr1!AAAB1<9%^R.rG+(dey_funcG+( dey_filtersG+(listados TTTT InicializandoTaT C FZh1 \tmp\  C CCC<NCNCCC(CC CNNNNNCN  C!N"N #C$N %N &N 'N (N)N*N+N ,N-N.N /N0NQ!QZ \tmp\  F & 1CBienescodins2CLineascodigo2CGruposcodigo2CBultoscodigo2CAtributocodigo2CStockcodigo2CMedidascodigo2Cbieauxcod2%Cborr_artmF3QT3C h1 \tmp\31C4C5C6C<7C<8C9C:N;N<N=C N  C!N"N #C>C ?C @CANBDCCDNEDFNGNHNICJCKCLN MNNNNNNC$N Q \tmp\33& 1451$TObteniendo artculosTTN.t.FOG((codinsG-(:QG-(;Rset filter to &filtro QSlistadosborr_artTUVWXYZF ^J[F3G-(145CX\G-(1OG-(14](^#)"TC^^6T,TTomando artculos a analizar ~ TT[ 1T[ 4T[5T[C7 C8T[:T[IT[;T[J*T[CC\_ \_O`6T[\7T[\K9T[CC4C5 COa Z C\a Z69T[CC4C5 COM Z C\MZ6YT[CC4C5 COO6C\\66YT[CC4C5 CO O6C\ \66YT[CC4C5 CO O6C\ \66GT[!CC4C5 O!C\! \!]!66GT[$CC4C5 O$C\$ \$]$66&T[CC4 O]6&T["CC4 O"]"6!C[medidascodigoT[ b7!C["medidascodigoT[#b7F G((codigoE3134CX%C4 _J[ >F3TT.TAgregando datos adicionales...CBie_codaacF C Suspendo?ad ~%C F]G((codigoE F >%]%>&]&>']'>(](>)])>*]*>+]+>,],>-]->.].>/]/>0]0 FOG((codins E Fe G((cod E F >%e%>&e&>'e'>(e(>)e)>*e*>+e+>,e,>-e->.O.>/Og>0OhF H ix%jL%k  & C g( \tmp\  H& ( \tmp\  t& ( \tmp\  i9%j%k(& CZCC gZ( \tmp\  $& CZ ( \tmp\  5$& CZ( \tmp\  i%j%k(& CZCC gZ( \tmp\  $& CZ ( \tmp\  & ( \tmp\ !( \tmp\rptarticulosF QF3Q \tmp\ .* \tmp\3.*BUlDEY_FUNC DEY_FILTERSLISTADOS OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEBORRARNEWFILEP_LOCALBIE_CODBIE_BULBIE_ATRBIE_DESLIN_CODLIN_DESGRU_CODGRU_DESALT_CODALT_DESBIE_UBIBIE_EANBIE_DUN TIPOSTKMINSTK_MINSTK_MIN1COSACTMONEDAMONTXTMEDCODMEDIDAFACTOR MEDAUXCOD MEDIDAAUXUVENLARGOANCHOALTURABLARGOBANCHOBALTURAHAPILEAPILECANTXPAL CANTXBULT PESOXBULT VOLUXBULTCODIGO CHECK_OPENEDBORR_ARTBULATR DESCRIPCIODESCRDBULDATRLINEAGRUPOSUBGRUPOIDUUNIDAD UNIDADAUX MONEDA_ANT COSTO_ANT FECHA_ANT MONEDA_CIE COSTO_CIE FECHA_CIE DIFERENCIAPRECIOMARGENDLINEADGRUPO UBICACIONEANDUNFILTROBIENESCODINSLINEASGRUPOSARTICULOS_LLENARXDACTXDINSXHINSXDLINXHLINXDGRUXHGRUOBORRARSTOCKBULTOSTRECCCODALTCODALT1BARRASMEDIDASBIE_FILL_LINEA_GRUPOSYS_MOSTRAR_SCREENBIEAUXCODPESO VOLXBULTOXDSEPXDORDP_NUMINS!Q!(CqaqAA(aBvsrAQ"q11qqba22rQArArr!r2rrrrBBs11AA21AAAA21AAABsAqAB2%AFrAbXp G+(listadosG+(dey_funcG+( dey_filtersG+(dey_fill T TT TInicializando...T aT PFQT .t. % S,T   .and. bienes.compuesto="S"-T  Ccod_insbienes +T  CGrupoBienes+T  Clineabienes%(T   and bienes.marca=xdmar%C C %KJT  9 and between(val(bienes.cod_pro), val(xdpro), val(xhpro)) ;T  * and between(bienes.cod_pro, xdpro, xhpro)%C 4T  # and alltrim(xmodelo)$bienes.modelo%C %T   and codalt1=xcodaltH. w6T  % and medauxcod#0 and medcod#medauxcod 7T  & and (medauxcod=0 or medcod=medauxcod) T KTCC C % and between(bul, xdbul, xhbul)6KTCC C! % and between(atr, xdatr, xhatr)6CBultos"Catributo"Cclientescodcli"Cagentecodage"Cbienescodins"F#SET FILTER TO &filtro Clispreccodigo"Clineas"Cgrupos"Ccatcli"Ccondcobr"Cbieaux"Cstock"Ccfg_lis" C$F%G((codageF'G-((%F)*& *+,(- \listapreciosG-(.' T/aTT/TObteniendo precios generales...F0G( C1TT6T&Obteniendo bonificaciones generales... C2F)G-(.'#)%C+ } %3 4S J.CX%6T8T(Calculando precios mas bonificaciones... C7TT0T Completando datos adicionales...%8S%6a39:;<=>?@AB 9:;<=FC G((codFE G((planFGG((codigoF'G-(IGG-(JEF)G-(*C%CK CL C )C'IKL >N'OP'(Q%ORCRSCSI'ITGUVEUW'XY'Z['\]'^_'`C listapreciosArt_DesCod_Ins NO_CAMBIARBul NO_CAMBIARAtr NO_CAMBIARLin_CodLin_DesGru_CodGru_DesbH 1  c & *+,.d c && Ce999_*+,.d c1 && Cf999_*+,.dG(h(codproG-#(ihG(#(codinsG-(*#CbIENES+>k#ilhOCPreciosm.>nCoC  $po6*(-\tmp\rpt_listas_de_precioQ$C 12345Aq6 w GG(G*G ON ESCAPE &onesc BUrLISTADOSDEY_FUNC DEY_FILTERSDEY_FILL OESTADOMAXOESTADOMAXVALUETEXTOVISIBLEXDPRNFILTROXDCOMBIE_GET_BIE_FILTERXDINSXHINSBIE_GET_GRU_FILTERXDGRUXHGRUBIE_GET_LIN_FILTERXDLINXHLINXDMARXDPROXHPROP_PRONUMXMODELOXCODALTXMEDIDAFILTRO2XDBULXHBULXDATRXHATR CHECK_OPENEDBIENES PREPROCESARAGENTECODAGECLIENTESVENDEDOR LISTAPRECIOSCOD_INSATRBULP_LOCALCOD_CLIINICIALLISPRECLLENA_PRECIOS_GENERALESLLENA_BONIFICACIONES_GENERALESXDPREXDXCLFORXDBONCALCULA_PRECIO_MAS_BONIFICACIONXDDEFL1L2L3L4L5BONIF1BONIF2BONIF3BONIF4BONIF5BIEAUXCODCONDCOBRPLANCATCLICODIGOCATFPAGXDCATXHCATINCLI_DESNOMBREAGE_CODAGE_DESLBULLATRDCATDESCRCONDDESC1DES_COMDESC2DES_COM2DESC3DES_COM3DESC4DES_COM4DESC5DES_COM5ALL FILL_BIE_FULLXDSEPFULLLIN_CODGRU_CODCODPROPROVEEDOCOD_PROCODINSPRO_CODPRO_DESSYS_MVENCE PREC_VENCFECHAFORMFEEDT0T Obteniendo articulos a listar...$TBETW(lista,xdlis,xhlis)9T,.AND. IIF(xddef='S',precio#0 OR bonif#0,.T.) TTCFF% Sp%  T l% CX=#T.AND. cod_cli#SPACE(6) h!T .AND. cod_cli=xdcli $T .AND. cod_cli=SPACE(6)T INDEX ON STR(lista)+codigo+atr+bul+IIF(cod_cli=SPACE(6),"B","A")+cod_cli+IIF(precio#0,"A","B") TO (p_local+"\borrar3") FOR &xfiltro2 h1 \listapreciosCCCCNNNNNNNNNNNNNN N!N"N#N$N%N&N'N(N)N*N+N,N-N.N/N0C<1C<2N3C(4N5C(6C7C(8C9C(:N ;N<C=C>L?N@CACBN CC(DLEN FC(GC(HNINJNKNLNMDNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N^N_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoDpNFqG((codigoFsG((codigo%tNFu~CvTwu2%uxS usS yS FqG EwG +C+ w 0%CCz C{ C|z{a6 FsG EwG +C+ w 0%CC} C~ C|}~a6 Ta%* E%Cus|q|CXstockcodigo D & T-qr listapreciosDwq|s|u sDN qDN  HFqH  &%uxS usS 5 FqG EwG +C+ w 1 0%CCz C{ C|z{a6) Ta% E%Cu q|CXstockcodigo D T-br listapreciosDwq| u qDN  H &%uxS usS FsG EwG +C+ w 0%CC} C~ C|}~a6 Ta%:E%Cus| CXstockcodigo D 6 T-br listapreciosDw s|u sDN  H Lr listapreciosDw  uF%yS_.& ( \listaprecios && ( \listapreciosFuG((codinsFqG((G((codigoFsG((codigoFG((codigo< d J-(F~CCOCTCO>FG-(ruG-(rCXCPrecios;~Cbienes+ CC a C 6  T-%CC TuTu; PTT;TD Ta%C %uxSFqEr%C4  T-  T-%C ]%usSDFsEr%C4 @ T- Y T-% u.F%C .F% CX %yS!Er Er f%ySHEr  bEr %C4 q>rCyS 6CyS 6C CX  6T%CTBonifCCZTPubCCZTlCCZ%CC T%CS%u?S%uTd   Tud *REPLACE &xlis WITH lisprec.precio * xp %C)REPLACE &xlisbonif WITH lisprec.bonif %C)REPLACE &xlispub WITH lisprec.publico F >: >;>BuB>CuC>?u>AuA>@u@&%Cbienes.prec_vencbN%>pCupup6  >p%CC >Du %C C 5:>Du sDN qDN %C C +>Du sDN +>Du qDN >MMF%D FG-(BUOESTADOVALUETEXTOTFXDLISTFXDDEFTFXDCLIXHLISXDLISLISPRECXDXCLXDPREXDCLIXFILTRO2P_LOCALCOD_INSBULATRCOD_CLIL1L2L3L4L5BONIF1BONIF2BONIF3BONIF4BONIF5PUB1PUB2PUB3PUB4PUB5N1N2N3N4N5B1B2B3B4B5P1P2P3P4P5CLI_DESART_DESLIN_CODLIN_DESGRU_CODGRU_DESPRO_CODPRO_DESAGE_CODAGE_DESEANDUNLBULLATRIVAINCIVAMODELOCODALT1MARCADMARCAACTIVOCATDCATCONDDESC1DESC2DESC3DESC4DESC5FECHAPRECIOBONIFPUBLG1LG2LG3LG4LG5BG1BG2BG3BG4BG5PG1PG2PG3PG4PG5LR1LR2LR3LR4LR5BR1BR2BR3BR4BR5PR1PR2PR3PR4PR5VENCE PREC_VENCATRIBUTOCODIGOBULTOSXDDEFBIENESFILTROXCOD ATRIBUTOSXDXBAXDATRXHATRCLAVEXDBULXHBUL XCOD_ACTIVOXACTIVOSSTOCKEST_ACT LISTAPRECIOSCODINS ARR_LISTASCFG_LISSYS_MXREGXCOMBINANCION_ACTIVAXEANBARRASXDUN XCOD_VALIDOFILTRO2XLISLISTA XLISBONIFXLISPUBXPIVAPERC_IVAP_PRECIOS_VENCIMIENTOIN%BF2    CX  ("TC6T4~    CX  T! ( |T lCC ZT nCC ZIF &xlis =0 THENq9TC  FFUXDPRE LISTAPRECIOSBULATRCOD_CLIRCOUOESTADOMAXVALUENITXHLISXDLISXLISXLIS2TPRE GET_PRECIOCOD_INS%BF2    CX  ("TC6T4~    CX  T! ( ~T PubCC ZT PCC ZIF &xlis =0 THENs9TC  FFUXDPRE LISTAPRECIOSBULATRCOD_CLIRCOUOESTADOMAXVALUENITXHLISXDLISXLISXLIS2TPRE GET_PUBLICOCOD_INS%BF2    CX  ("TC6T4~    CX  T! ( T bonifCC ZT bCC ZIF &xlis =0 THENu9TC  FFUXDBON LISTAPRECIOSBULATRCOD_CLIRCOUOESTADOMAXVALUENITXHLISXDLISXLISXLIS2TPRE GET_BONIFCOD_INS:C get_precio T T  T aT CXT  T  T  %    BFG((lisxcli% ECZ %C4  \ T  T % ECZCX %C4   T  T %% ,$E  CZ T %C4  ] T  &E  CZCX%C4  T  T %3BREPLACE &xlis WITH xxprecio, &xlis2 WITH xrow IN listaprecios UXCOD_INSXBULXATRXLISPREXCOD_CLIXLISXLIS2SYS_MXROWXXPRECIOXOKXHAS_CLIXHAS_BULXHAS_ATRXHAS_CODLISPRECLISXCLIPRECIO P_PRECIOGEN" T T T aT CXT  T  T   %    BFG((lisxcli% ECZ %C4  E T T % ~ ECZCX %C4   T T %% $E  CZ T %C4  F T &E  CZCX%C4  T T %AREPLACE &xlis WITH xxprecio, &xlis2 WITH xrow IN listaprecios UXCOD_INSXBULXATRXLISPREXCOD_CLIXLISXLIS2XROWXXPRECIOXOKXHAS_CLIXHAS_BULXHAS_ATRXHAS_CODLISPRECLISXCLIPUBLICOPRECIO P_PRECIOGENH T T T aT CXT  T  T   %    BFG((lisxcli% ECZ %C4  E T T % ~ ECZCX %C4   T T %% $E  CZ T %C4  F T &E  CZCX%C4  T T %T%A@REPLACE &xlis WITH xxbonif, &xlis2 WITH xrow IN listaprecios UXCOD_INSXBULXATRXLISPREXCOD_CLIXLISXLIS2XROWXXBONIFXOKXHAS_CLIXHAS_BULXHAS_ATRXHAS_CODLISPRECLISXCLIBONIF P_PRECIOGENBIENESDES_INSF2    CX  ("TC6T%~    T! (TbonifCC ZTbCC ZTlCC ZTnCC Z*IF &xlis # 0 AND &xbon # 0 THEN'tpre = &xlis - (&xlis/100 * &xbon) REPLACE &xlis WITH tpre FFU LISTAPRECIOSBULATRCOD_CLIRCOUOESTADOMAXVALUEBONIF1BONIF2BONIF3BONIF4BONIF5NITXHLISXDLISXBONXBON2XLISXLIS2 preprocesarllena_precios_generales,llena_publico_generales.llena_bonificaciones_generales1 get_precio3 get_publico7 get_bonif:calcula_precio_mas_bonificacion>!Q!AAA2AAA"AA"QA1a1qA4Qr111Q1!ArrrraarRA1AB11AArrrrrA B11a1aA111!AACaaaaAAB2BarA1Q1FAAAR1qrrDr#!raaqaaQAAAAAAqAAaqaaQAA$ABAaqaaQAA#AAAAAAABrAaArrarrrqqQAsBrBQqq1AAAQqq1AAAAAr!AArQA1AAAAQAqaQrbbAAABQAQABrbRAQAAArAAsaA31BAs!!AqaaAqAqA31BAs!!AqaAqAqA41BAs!!AqaAqAqA3rAQQQArAAAAaAABAA1#A5AQQQArAAAAaAABAA1A5AQQQArAAAAaAABAA1A1A4q!!RqaaaqAqAqA3%:;==m@@1C>CGGUL7*bLPp^+QcS%x4\Q)%Cproveedo )QproveedoTCC]RodepositoQXcentralQ XproveedoQ CSSiNo6QCSSiNo6QCSSiNo6QC SSiNo6Q C C(XQ C SPendientes de Aprobacin$C R RechazadosNo66QCC(XQCXQq ~H  > AVERIADOS 4> CUARENTENA Z>ESTIBA > EXPEDICION > INSPECCION >INSUMOS >JAULA $> NIVEL ALTO  N> NIVEL BAJO  y> NIVEL MEDIO  > PENETRABLES  >PICKING  > PRE-EGRESO +#>PREVENCION DE PERDIDAS U> REPROCESOS }>RETORNOS >SHOWROOM > TRANSPORTE 2> SIN DEFINIR!(\tmp\rptdepositosQBUPROVEEDOBORRARDFACDFACCOMDCOMVENDIBLE DVENDIBLEPICKINGDPICKINGDESCRDCENTRALCALIDADDCALIDADPNOMBREDTIPODEPOSITOCENTRALCCOD_PROQTIPOP_LOCALARA1a1q111q1q1A1!1q1q111A1q111q1Q1Q1qAAB1%EWn:ԓ4TCC]RT.t.;select fletes.cod_fle , fletes.nombre , fletes.domicilio , fletes.cod_zip , fletes.ciudad , fletes.provincia , nvl(provinc.descr,'') as descprov , fletes.pais , nvl(paises.descr,'') as descpais , fletes.phono , fletes.cuit , fletes.horario , " " as agrupado from fletes left join provinc on fletes.provincia=provinc.codigo left join paises on fletes.pais=paises.codigo order by fletes.nombre where &xwhere into cursor borrar1 %C; T 1aaa=1set filt to &xdfor % OC=Error en la frmula del usuario !!! No ser tomada en cuenta.xG(on error &onerr (\tmp\rptfletesQ \tmp\.dbf \tmp\.idxBUXDFLEXHFLEXDORDXDFORBORRARXWHEREAAAP_LOCAL TTlin.pdf a1QEXPORTACIONES_CRYSTAL Imp_exp.vcxBTCexportaciones_crystal Imp_exp.vcx rptfletesT\xchgT CBUXDFORXARCHIVO DEY_FUNC2OEXCFIL_DIRECTORIOP_SERVER FIL_ARCHIVOEXP_PDFexportar4R@#Va1aAqABB2A!B1 0;  ( @   wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@ww@@@w@@@wwwwwwwww@@@w@@@w@@@w@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@w@@@w@@@w@@@wwwwwwwww@@@ww@@@w@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@w@@@w@@@w@@@wwwwwwwww@@@w@@@w@@@w@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@w@@@w@@@w@@@wwwwwwwww@@@w@@@ww@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@w@@@w@@@w@@@wwwwwwwww@@@w@@@ww@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@w@@@ww@@@wwwwwwwww@@@w@@@w@@@w@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww@@@wwww@@@wwwwwww@@@wwwwwww@@@wwwwwwww@@@ww@@@ww@@@w@@@ww@@@ww@@@ww@@@w@@@ww@@@ww@@@ww@@@wwwwww@@@w@@@w@@@ww@@@www@@@wwwwwww@@@wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww (0 ` 2wD::vD/=:vDp4>c555r󘒈zyv2@ŶЮ߰񆃃F@pp``ԙ١ެŭ,Ϋ֛לܨȥn֚՘ڢެڢӑכڤެȾjЉԓכڣܩ߮]UIЊӑ֘؞ڣۦéԕҎԓ՘ƣ20,¦.ȻܫΧpkd ¬ĸ˯dzij="?*P*P*P*P*P*R*R*R*R*R*R*R*RGIF89a w!, ""'''666DDDDDWW_____fffffK H(\Ȱ!C#J Сņ3R Ǐ?>@hI0 0` )arPbgOOZ$$M q̩4fPIY Ԫ3Ej݊@Y+ֳ bV-Q C |ݺSm˴RT `t91ǎ˅,#_ެYs #14iҝg„0^͹+DDROzEL D0H 2 4^t^x \0w!h6W쀃s O `tĕ0`@$\tɧu0V#@qF^m6 b`$J`(^a,@@;  ( @ '=====O[[[[[vzzzzhhhDDDZZZ.GGGpDDDKKK[[[WWWGGGpDDDKKKZZZWWWGGGpDDDKKKYYYڙhhh|GGGpDDDKKKYYYڙpppWWW GGGpDDDKKKYYYڙpppWWW GGGpDDDKKKYYYڙpppWWW GGGpDDDJJJYYYڙpppWWW ???DDDJJJYYYڙpppWWW uuuEiii}fff]]]^^^fffjjj{wwwA<<<666GGGYYYٙpppWWW xxxW```nnnkkkaaaxxxQAAA0999HHHcccٙpppWWW jjjrrrЙȗnnnkkkTTT]]]ٙrrrWWW eee䙔gggٙgggGGGlllޙߙߙݙݙޙߙޙޙuuuuuunJJJvvv[ٙڙڙיי֙֙֙יייؙٙڙٙٙuuuR nnnΙә֙ԙԙҙљљљҙәәҙҙәәәΗkkksssLϙΙЙϙ͙̙ΙΙϙϙΙ̙ʙəʙ̙̙ϙvvv@vvv{əəșʙ˙̙͙ΙΙΙΙ͙̙ʙșřřǙrrrqřęǙșʙ̙͙ΙΙΙΙ͙˙ʙșřÙ|||™™Ùřșʙ̙͙ΙΙΙΙ͙˙ʙǙř™™řșʙ̙ΙΙΙΙΙ͙˙ʙǙęęș˙͙Ιϙϙϙϙ͙̙ʙǙ™~qęə˙͙ΙЙЙЙϙΙ͙ʙșdFƙʙ˙͙ΙϙϙϙϙΙ̙ʙəÙ7bbbșʙ˙͙ΙϙϙϙΙΙ̙˙ʙƙLəʙ˙ΙΙ˙ʙƙ@xxxə˙̙̙˙ęw˙̙̙ʙ~əΙΙǙvxxxK–̙ϙϙ̙Ennn :lh6 ??GIF89a w!, '''66666DDDDDWWW_____fffffrr H(\Ȱ!C#J Сņ3R Ǐ?F@hI4 0` )arhbgOOZ$$M q̩4fPIa Ԫ3Ej݊@Y+ֳ jV-Q C ݺSm˴RT `t91ǎ˅,#_ެYs #Ø14iҝgB3^͹+g H08t^YT@BE&FlPAaD!J\J'`bAoکG~A ݿP3qƉ0 8s0]u]c$Pi'eW[| j!}(cmh"f2b;GIF89a w!, """""66::DDDDDIIIWWWWW_____fffffttK1 H(\Ȱ!C#J Сņ3R `Ǐ?N@hI8 0`)arXbgOOZ$$M q̩4fPI[ Ԫ3Ej݊@Y+ֳ rV-QC ЂݺSm˴RT `t91ǎ˅,#_ެYs #14iҝg0^͹+d*("EP(pAW7V  t$Z@ό]$ Cof   WMZP@B  (A!Dd7f]z` %Wr9iҝV#p@v~` etA 6|SmX[j<㏜)㐞Hy@;  ( @   䥰㥯̥ȥȥȥȥȥȥȥȥ|||||||||̥|||||||||ӥ|||||||||dddԥ||||||lllإĥȥܥܥܥܥܥܥܥܥܥܥߥȥĥ|||̥ܥܥܥܥܥܥܥܥܥܥ̥ȥԥ˥ܥܥܥܥܥܥܥܥܥܥХ̥ĥӥХԥȥ䥄˥ۥߥӥ|||xxx|||xxxХ˥ۥ||||||xxx󥼼ĥӥߥ˥|||xxxԥ|||ӥ˥|||xxxإ|||ӥӥ|||xxxӥӥ|||||||||̥ۥӥ|||||||||쥴ӥХ|||ܥ|||ԥ樓६쥿ۥХԥХ̥ĥ̥̥ԥĥxxxԥ̥|||lllԥĥ?GIF89a D!, 666DDDDDWWWYYrrr1  di%lp,ksNe1 X I(bvR-6J S~$.LN5{@n Pd c~" slkZt(P<r"5*ÿ# #t Ѭ ˪ Ľƽ#  ̱ ׫B۷ Wٴjn LvL!ŋ0jG\RH ;%IVS ,G(9T9 ET9TCTCTC C C C F G((FEC#6T CC$ F TC$F T"ve_control_de_comprobantes%C cpbts_control5FQ"%Ccpbts_control_tmpfFQ<.dbf.cdx.dbf.cdxBU ACTIVEFORM DATASESSIONIDXDATASESSIONIDXARCHIVOODEYFUNCNEWFILE_LOCAL_TMP XARCHIVO2 XARCHIVO3OPEN_FILES_SYSTEM OPEN_FILES CREAR_TABLACCVENTFECXDFECFEC_VENXHFEC CPBTS_CONTROLXRESVE_CONTROL_DE_COMPROBANTESCPBTS_CONTROL_TMPODS_ALT"T\tmp\CC]R%CtempcompFFQ%CtempcompjF |FQtempcomp (Q%Cccvent Qccvent%Cclientes Qclientes%Csucursal 8Qsucursal%Cagente fQagente%Cmotivos QmotivosBU XTEMPCOMPP_LOCALTEMPCOMPCCVENTCLIENTESSUCURSALAGENTEMOTIVOS %Cempresas 6Q \empresas`oempresasC a6empresas_disponibles8rempresas_disponiblesTODAS& <7CN (BUP_SYSTEMDESCRCODIGOEMPRESASP_DOSP_OLDDOSEMPRESAS_DISPONIBLES ARR_EMPRESAS2 4G+(ge01CBUXCOMPROBXCAUSAGE01 CPBT_VIS2 %C cpbts_control0FQh1CC(C CCCC D N N N CLNNN LLC CC(CN LNC CNQF& & & C & C  & &  & C6& & "& CZC & & & & BUXARCHIVO CPBTS_CONTROLCOD_CLINOMBRECOMPROBCAUSA COMPROBANTCOD_AGENOMAGEFECHATOTALTOTAL_MOMONEDAMONTXTTILDEBASEBASE_MOEMPIMPRESOIMPRESORREM_VENREMITOSUCURSALOCBULTOSVENTASUCFAC PLATAFORMAREF_EXT FCE_SUBIDA4occventQXclientesQ, XagenteQ-  XsucursalQ! C.Z!C!"ZXmotivosQ0  1QC0 C???????CANULADO(6QQQCVFCMCcNC5CdNDCrRERE6666 C= 00C RQQ CC DESCONOCIDOQ  Q  QC*CC  T66QQCCC???6Q-QQC2CC T66QCC6QQCCCRg(RE C= 00C RCX6Q C!C(XQ"#Q$%Q%C &-Q'C(Q)C 2314\tmp\5QBU6XCODEMPCCCOD_CLINOMBREFAC_VENCOMPROBCAUSA COMPROBANTAGENTECOD_AGENOMAGEFEC_VENFECHADEUDATOTALMOTIVOCOEFICTOTAL_MOMONEDA MM_MONEDAMONTXTTILDETOT_VENDES_COMBASEBASE_MO SYS_DOSCENP_DOSEMPIMPRESOIMPRESORREM_VENREMITOSSUCURSALREFOCBULTOSVENTASVENTASUC_FACSUCFACCCVENTCLIENTESCASUCMOTIVOSMCODIGOXDFECXHFECP_LOCALXTABLA45TC]FSCF \tmp\.dbf%%Cempresas Q \empresasF ~ T  T C datasessionvT CsessionNG(  CG(\data\CC Z ges CC  G( < G( gesF \tmp\.dbf#)BU XCONSOLIDADOXDFECXHFECXTABLA CPBTS_CONTROL COMPROBANTES1P_CODEMPP_LOCALP_SYSTEMEMPRESASCODIGOXCODEMPODSDS DATASESSIONIDSETSGES OPEN_FILESP_SERVERBCC\gU XCOMPROBANTE T Ta= sys_meli_pedidos.prg -?%-C plataformas_auxref_full F>% -CSe ha subido el comprobante UXOKXMSG OCONTROLADOROFORM XCONTEXTUALXCOMPROBXCAUSA CPBTS_CONTROLCOMPROBMELI_SUBIR_COMPROBANTESYS_MELI_PEDIDOSPRGCAUSA PLATAFORMAREF_EXT FCE_SUBIDAPLATAFORMAS_AUXMENSAJE open_filesopen_files_systemver_cpbtS crear_tabla comprobantes1 comprobantesFsuc_facSubir_factura_ML !AvQBr-qAA"qAAs2121B3%qAAqA!AAAAA!A1AB2Ar!B4"B3qqAAara!!!!B2q a@ $H|o?|.;d/I+o:8 :\x܀(@As rX}Ys $p`xٙav#$(v@X6"xכr=Yp>Z_%P;GIF89a w!, """""666DDDDDWWW_____KK1/H  *48Ç pŋXXPCV8I<1ƕU8I$rܙ$ː8y Y$7]niJ?48JUO?,TA ԫפ S:ebͮp)VJw̌fX N(DÆԺ7oĈscdfЬn͠'٫ϥ&͚]Wwݺ7jʲY|!$TЌB>h&oC>{ dϽ9  H A5^h( }9wir \ ```1.@|2VB $xכi;=YDƗhHN@@; %+/n, GXF G(9 $"T\tmp\CC]R!ve_control_de_pickingsG+( ve_pedidoG+(ve_procsTC C C F T ve_control_de_pickings#%Cpedidos_pendientes(F Q.dbfBU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILESVE_CONTROL_DE_PICKINGS VE_PEDIDOVE_PROCSXARCHIVOODEYFUNCNEWFILE_LOCAL_TMPOBTENER_PICKINGS_PENDIENTESPEDIDOS_PENDIENTESXRES 4)sys_procesando Procesando%CxaliasbLwTpedidos_pendientes%CxtipobN T%CxfiltrobCT.t.Hw T and .f. P'T and pickings.estado=0 'T and pickings.estado=1 'T and pickings.estado=5 -VTE and pickings.estado=9 and between(pickings.fecha, date()-30, date()) VTE and pickings.estado=9 and between(pickings.fecha, date()-90, date()) WTF and pickings.estado=9 and between(pickings.fecha, date()-365, date()) :'T and pickings.estado=9 2w3T" and inlist(pickings.estado,0,1,5)!%Ctmp_query_armadoFQ%Cq_pckFQselect pickings.picking , sum(comprom.can) as cantidad from pickings, comprom order by pickings.pedido where pickings.picking=comprom.pck .and. &xfiltro group by pickings.picking into cursor q_pck Lselect .f. as tilde , pickings.* , tccvent.cod_cli , tccvent.suc , tccvent.est_desp, padr(alltrim(nvl(clientes.nombre,""))+iif(clientes.tarjeta="S",+" - "+tccvent.des_clie,""),60) as nombre , nvl(sucursal.domicilio, space(40)) as domicilio , nvl(sucursal.ciudad, space(40)) as ciudad , tccvent.ref as oc , tccvent.fec_ent as fec_ent , iif(tccvent.despl=0,{},tccvent.fec_ent+tccvent.despl) as fec_prob , tccvent.dv1 as libfacrem , tccvent.prioridad as prio , iif(tccvent.prioridad=0,"Normal",iif(tccvent.prioridad=1,"Media ","Alta ")) as dprio , iif(tccvent.credito=0," ",iif(tccvent.credito=1,"SI","NO")) as dcredito , iif(tccvent.gerencia=0," ",iif(tccvent.gerencia=1,"SI","NO")) as dgerencia , iif(tccvent.arm_bloq,"SI","NO") as bloq , tccvent.gerencia=2 or (tccvent.gerencia=0 and tccvent.credito=2) or tccvent.arm_bloq as bloqueado , iif(tccvent.dv1, "SI", "NO") as dlibfacrem , iif(pickings.libent=1, "SI","NO") as dlibent from pickings , q_pck, tccvent left outer join sucursal on tccvent.cod_cli+str(tccvent.suc)=sucursal.cod_cli+str(sucursal.sucursal) , clientes where pickings.picking=q_pck.picking and pickings.pedido=tccvent.pedido and tccvent.cod_cli=clientes.cod_cli .and. &xfiltro into table (p_local+"\tmp\tmp_query_armado") %( (Q k S F$\tmp\tmp_query_armado!%Ctmp_query_armado FQ%Cq_pck FQ F& C ZC Z & C Z & C C Z & C ZC Z & & CZ& C Z& C Z& CC Z;& CC 6C Z& C Z& C Z& C Z#)sys_procesandoBUXARCHIVOXFILTROXALIASXTIPO SP_MENSAJESYS_PROCESANDOTMP_QUERY_ARMADOQ_PCKP_LOCALPICKINGPEDIDONOMBREFECHAOCCOD_CLISUC DOMICILIOCIUDADFEC_ENTTCCVENTDESPLFEC_PROB DLIBFACREMDLIBENTDPRIOSP_OCULTAR_DEFINITIVAMENTE%CTCCVENT ,Qtccvent%CCLIENTES ^Qclientes%Ctventas Qtventas%Cpickings Qpickings%Csucursal QsucursalBUTCCVENTCLIENTESTVENTASPICKINGSSUCURSALE4FG((picking%: EBUXPICKINGPICKINGSPICKING4 T log_errores5FTCC+CO6 ( estadoJ #T Analizando PickingsT  T T a TF~ TTT@T picking CC@z 999,999,999_ de  C H )ve_orden_de_picking"T\tmp\CC]R!ve_control_de_pickings  Teve_orden_de_pickingC 'CC 666"T\tmp\CC]R!ve_control_de_pickings%! u)ve_orden_de_pickinga"T\tmp\CC]R!ve_control_de_pickings % ve_orden_de_picking"T\tmp\CC]R!ve_control_de_pickings T!"T\tmp\CC]R!ve_control_de_pickings )"ve_orden_de_picking"T\tmp\CC]R!ve_control_de_pickings G#ve_orden_de_picking"T\tmp\CC]R!ve_control_de_pickings   %$T%)&ve_control_de_pickings%7>'%(C%SINO6    CLiberar entrega*%+T% ),ve_control_de_pickings%>-%"T\tmp\CC]R!ve_control_de_pickingsC.> / T -< T0 T-,1 log_errores0F%~ #BU2XPROCESOXAUTXTIPO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXPICKINGPEDIDOS_PENDIENTESXREGTILDE XMAX_PICKINGSESTADOESTADO_VE_CONTROL_DE_PICKINGSTEXTOMAXVALUEVISIBLE XNUM_PICKING XLOCAL_PEDIDOPICKINGPEDIDONOMBREAVANCEIMPRIMIR_PICKINGVE_ORDEN_DE_PICKING XTEMPCOMPP_LOCAL OPEN_FILESVE_CONTROL_DE_PICKINGSXERRCERRAR_PICKINGANULAR_PICKINGCONFIRMAR_PICKING VE_QUIEBRESLIBERAR_PICKING$LIBERAR_PICKINGS_DE_PEDIDOS_CERRADOSP_VE_PD_LIBFACREMXESTADO_LIBERACIONLIBERAR LIBFACREM DLIBFACREMFORSYS_MP_VE_PD_LIBENTREGALIBERAR_ENTREGALIBENTPOSICIONAR_EN_PICKINGPICKINGSXOKLOG_ERRORES_MOSTRAR4FTCC+CO6(estadoJ"TCombinando PedidosT T T a T $T inlist(tventas.pedido, ~~T?TPedido CC@z 999,999,999_ de  C T *T  CC ,6CCZT   )select cod_ins, atr, bul , sum(recepcion) as recepcion from tventas order by cod_ins, atr, bul group by cod_ins, atr, bul where &xstring into cursor tmp_tventas T -<F% #BUXPROCESOXPEDIDOPEDIDOS_PENDIENTESXREGTILDE XMAX_PEDIDOSESTADOESTADO_VE_CONTROL_DE_PICKINGSTEXTOMAXVALUEVISIBLEXULTIMO_PEDIDOXSTRINGPEDIDONOMBREAVANCE 4 T log_errores5FTCC+CO6THN N%Cq_batchQ 0opedidos_pendientes aq_batch" ve_orden_de_picking"T \tmp\CC]R!ve_control_de_pickingsC T T-, log_erroresF% #BUXPROCESOXTIPO XLOG_ERRORESLOG_ERRORES_CREAR LOG_ERRORESXPICKINGPEDIDOS_PENDIENTESXREGPICKINGQ_BATCHTILDEIMPRIMIR_MASTER_PICKINGVE_ORDEN_DE_PICKING XTEMPCOMPP_LOCAL OPEN_FILESVE_CONTROL_DE_PICKINGSPOSICIONAR_EN_PICKINGXOKXAUTLOG_ERRORES_MOSTRARfCF>3>CSINO6BUXPICKINGPOSICIONAR_EN_PICKINGPEDIDOS_PENDIENTESESTADOPICKINGSLIBENTDLIBENT. %%W#TCtccventtccvord l TaFH  a   -T #1C El pedido CCZ no existe !!!BUXPEDIDOXESTADOTCCVENTPEDIDOXENCDV1LIBMENSAJE >CaTPedido:CCZC liberado bloqueado (no liberado)6 para entregasGC ZPve_control_de_pickings.prgBUXPEDIDOXESTTCCVENTDV1 UPDATE_DTXMSGUSER_LOG PUB_INDEXg CLiberar entrega %)%~#TCtccventtccvord  Ta% T-%C q_pickingsQ.opickings  q_pickingsF ~)%C pickingspickingHQ    Ta      T-   JT Pedido:CCZ Picking:CC Z no encontrado\C  ZK ve_control_de_pickings.prgC ZPT %C q_pickingsQ T>CF %1C El pedido CCZ no existe !!! \)CEl pedido no puede ser 0 !!!BUXPEDIDOXESTADOSYS_MXESTXEST2TCCVENTPEDIDOXENC Q_PICKINGSPICKINGPICKINGSLIBENT LIB_ENTREGAXMSGQUSER_LOG PUB_INDEX UPDATE_DTPEDIDOS_PENDIENTESMENSAJES  TCWT% o$TCpickingspicking%>C6"ve_orden_de_pickingoT Pedido:CCZ Picking:CCZC liberado bloqueado6 para entregar\ C ZK ve_control_de_pickings.prgC ZP >JT Pedido:CCZ Picking:CCZ no encontrado\ C ZK ve_control_de_pickings.prgC ZP FBU XPEDIDOXPICKINGXESTXAREAXENCPICKINGSPICKINGLIBENTACTUALIZAR_ESTADO_PICKINGVE_ORDEN_DE_PICKINGXMSGUSER_LOG PUB_INDEXobtener_pickings_pendientes9 open_filesaposicionar_en_pickingprocesarcombinar(procesar_batchuactualizar_picking_en_tablai!liberar/"lib#liberar_entrega$ lib_entrega(A%2!B2r2qAA2B21AAAA1q1q1q1a1a1q1q2AqAAbqAA TD"AAqAAbqAAaAaaAAAaAAARB21AAA1AAAAAB1qq1AA2rrq"2Arr1%2S%2BA2%3U%2%3%3%3!vA2"B%B2CqrAAA4qrrq""AAB1h qrAAA3rrq2A$%BrAAA3qr4B32b1ArqsBAB3qB22b1AAraaBABBArAAB3RAA$AA1%bt|E.(Z.373W8Q 8x99D;'T;<-<A[ BrE  ( @ м{~kyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfyfѽyfѽyfѽyfѽyfѽyfѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽyfѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽyfѽyfѽyfѽyfѽyfѽ|iѽwѽѽ½ͿϻѽϽĴĴü÷ѽѽѽļļǼĸѽѽѽyfyfѽѽѽѽѽѽͿIJѽɽĵѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽѽ?  ( @ zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz}}}ϽϽzzzzzzϽϽğ? hF h    (  @uuqqqRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR(  @uuwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffwwwffffffffffffwwwfffffffff( @ uu@@@@@@@@@@@@@@@@@@@@@@@@@@@RRRRRRRRRRRR@@@@@@RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRqqqRRRRRRRRRRRRRRRRRRqqqRRRqqq@@@@@@@@@@@@@@@??G( @ uuUUUUUUUUUݙ̙̙̙̙ݙ̙̙̙DDD̙ݙݙ̙̙̙̙̙̙̙ݙݙݙݙݙ̙̙̙̙̙̙̙̙UUUUUUݙݙݙݙ̙̙̙̙̙̙̙UUUUUUݙݙݙݙݙ̙̙̙̙̙̙wwwDDDݙݙݙݙݙfff̙̙̙̙̙wwwwwwݙݙݙݙݙfff̙ffffff̙wwwwwwDDDDDD̙ݙݙݙݙffffffffffffffffff̙̙www̙̙̙ݙݙݙݙݙfff̙̙ffffff̙fff̙̙̙ݙݙݙݙݙnnnffffff̙ffffff̙̙̙̙ݙݙݙݙݙݙݙ̙fff̙̙̙fff̙̙fff̙ݙݙݙݙݙ̙̙̙̙̙̙fff̙̙̙ݙݙݙݙݙ̙̙̙̙̙̙̙̙nnnݙݙݙݙ̙̙̙̙UUUݙݙݙ̙̙̙̙̙̙UUUݙ̙̙̙̙̙UUU̙̙̙̙UUUUUU̙̙̙??G  ( @ fTnUBcI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5bH5bH5bH4aH4aH4aG4`G4`G4`G4aH4aH4bH4bH5̽˺ĴݿټַӴήͬͬΪϫѬaH4ùѿ̻Ǵ˼ƳdzɴӬ`G3ù̽ǷĹؽܿ¯˦]D2 ĺĹнǻɸϼǬZB0 ûþȾ¸{ɼĵW@.ȿȾƼĺ}~yyt~vq}up~vq{uzztT>-ŻµϷ¾ƺ±eaurS>-ŻѿǾŷa]BBIHwoS>-ƽĽȽ´fbBBBBBBJI}W@. ǾJJBBBBBBBBBBBBBBBBBBBBBBBBBBBBKJNB  »»ȾƼĻ¸NMBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB77%KJBBBBBBBBBBBBBBBBBBBBBBBBBBBBLJQD00{vBBBBBBMLٻaH4ĺ~yBBNMcI5ƼcI5üüüü»»ȿȾǽƼŻŻĺùiO;»ǽκv]J»Ǿm\üȾ¸m\gfj܇ZۃUQ|MyIuDr?o;l8j5j5j5j5j5j5h3g0e/e.d-c,c,c,c+b+b+b+b+碀зγʯǫŨ£~xsoidb+ꪊվӻѸ͵˰ɭǪåååååå}wrd.챓տӻҸ϶϶϶϶϶϶ϵ̲˱ʮǪħåj4첕첕챓믑ꮏ꫌驉覅棁~yyyyyyuqlߑhގd݋`܈]ۆYڄWقU؁SQ~O  ( @ iiiXXXLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLKKKKKKKKKJJJJJJJJJJJJJJJJJJJJJJJJKKKKKKJJJIIIGGG EEE BBBzzzwwwvvvwww|||{{{@@@@@@@@@BBB lllQQQ %mmmyyyJJJLLLLLLRRR```pppppp~~~~~~}}}||||||||||||{{{{{{{{{{{{{{{{{{}}} ( @ ````@ @ @@ `@ ``` @`` @ @````@ ` ` ` @ @````@`@hP 8hp@H(P0X (x0``8` 0Hxx 808px (H(X(X@hPx`hpH`p((88@ @(H(P0P0XX`8`8h8p@p8xx`ЈXhhШ(и(@X ((X8((88HXxx (8(((00008888 8 8@HH8H(H`XHX(X0XX`(`8``hhh0h@h@h0hp8p`x0xXx`x@x@xPx@xHxxhЀ8؀GAdM;ŮZuKŭTu>>dƮT@S[KKKuN5e777{ZSS>57e7L9@@Tv\K5597eL99@?]FF\Z[FEv>A5@79??`_E?e7L@]Zž9?`TFEv77799??fTFTFS77L9??TESˮ]@Eu>>K]{?`_FEN7@\>u@]T_vfeL?\>>u5L4Oϓ8fF7zEv>Ŷ::::fEe?KZ[**.<:V>>***OOO***www:::|||___|||>>>:::666:::&&&___||||||GGG***gggWWWGGG>>>|||WWWΙ[[[GGGlllޙ|||>>>:::>>>Ι___|||>>>:::___666WWW|||___[[[___lll666KKKWWWޙlll666>>>|||lll666:::>>>:::ooo>>>www***Ιooogggwwwޙ>>>___wwwggg::::::WWWΙOOOgggęęęęęęęęęęęęęęęęęęęęęęęęBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  ( @ uuę___|||OOO[[[___[[[OOO>>>***OOO***|||wwwKKKlll___|||GGG|||ggg***:::>>>OOO...Ι::::::WWWOOOlllWWW|||>>>lll______|||www***WWWKKK>>>***lll666***>>>ޙ|||>>>ooowwwoooޙ___ggg:::ęęęęęęęęęęęęęęęęęęęęęęęęBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB ( @ !!!"""###$$$%%%&&&'''((()))***+++,,,...///000111222333444555666777888:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___aaabbbcccdddeeefffggghhhiiijjjkkkmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxzzz{{{|||}}}~~~f3fffff3f3f̙3f[b:7\Dz$d&g`Qj,Gd.zuuxtzGuuuKt>uubuu}uejxR|^wvz{y]u}gk{jjlhlxlmouvrje|pbsfsnz{ʦNjwwwſju̪aƜI{ԻĢ}˨{|жpǹʳ̹zRsev}c2??`<؀?|?  ( @ uucccjjj???í<<vPzr{vm{vnĿd±tW҈~z~w|t~yq{vnyskvqh>¹ "]ؓ~{x|u~yr|woytkvqhtne؍Һ&dޞ~zzumwritofý񱩛߼-k娦~ytkuof4q賲~vqh߾~{ûcgy,t{xtnh^oi_^ »yvqnh^mg]mg]lf\zukwtnmg^mg]mg]mg]{ul¿ʼƷvrkmg]mg]mg]mg]y7˽ƺsnfmg]mg]mg]ysjݺpkamg]mg]mg]8|nh^mg]mg]{)wtnmg]mg]{ulĿ\ǿ¿KMQoj`mg]mg]:~{wvsqnllgfgbbd_`b^_acce}|þxvoemg]|~zdde[\_\]`[\_[\_[\_[\_[\_\]`cdgwwz~||oxsi๶}z_`b\]`\]`\]`\]`[\_^_bmnqeaArK$~OT!{|o<;ggi[\_\]`[\_bcfvwyþauY<R#{N}O\>eF#oM'd/~kzceegkln{|~ýĿb b`jF [%~W*g1oS0c8qZ8\ѻ¾þtLq+y2v6e6r>ŖQVܰdmr ӱÏHΚOПVګ_hossƩrvvmkq߹tǬy󟟟ʘ΀ĿºQе¼EFHGHIYYXmkhxuq`_]```ը0,þ¿kif#!#("$&+.059;?FGKQRVUVY\]`rsv+XLKJ&(-!&)2HE:NKE[VJ[YHLOGHLlmqbv񹴫̼b9;>,.2(*3QJ4MHLxkOwkGYVDEJxy{=ſu𳮤̴vN' ,.3349 %"  ,-)>;%65;_UBg]4>?9:?vwzľ*¾( `berkmoceghil_acVX[NPSJKOEFJ>@D79=359IKOՖ ~ xz}7wy{Sdfir|~c ????????p??00 %(0` %"H-4܉3>vPxxxtttttt󅅅dtW҃}}}zzzwwwtttrrrooo> "]؏}}}{{{xxxuuurrrooolllۍֺ&dޛ}}}ssspppmmm񦦦߶-k妦rrrmmm4q貲ooo߾}}}cg,wwwfffggg^ uuufffeeeeeedddrrrrrreeeeeeeeeeeessspppeeeeeeeeeeee7llleeeeeeeeeqqqݶhhheeeeeeeee8~~~fffeeeeee)rrreeeeeesss\NNNgggeeeeee:{{{sssmmmfffccc```___ddd}}}mmmeeeddd]]]^^^]]]]]]]]]]]]]]]^^^eeexxxyyyppp൵}}}```^^^^^^^^^^^^]]]```ooo```KKKMMMRRRyyy<;hhh]]]^^^]]]dddwwwXXXQQQLLLMMM===DDDKKK___|||cffflll|||``````]]]EEEXXXTTTaaaOOO\\\TTTѷrrrlllrrrooo___jjj Ӱvv󟟟ΘрQдFFFHHHXXXjjjttt^^^```ե0,hhh$$$'''111<<?@ABCDEEFGH;I+ JKLMNOOPQRSTUVWXYZ[3\]^_`ab [cdefghi"jPklm(gnGopq rFs)tuFvwx yz{+|}~ y`jy&pZ3 ?m 33/ d@zl?vC??'DBD%oaLMCF"kvi%vr [=:g|((|[  f    !  ^200 %C00 %h( @ uu( @ uu333333333333333333LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYLLLLLLYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYfffffffffffffffffffffffffffffffffffffffffffffffffffffffffYYYYYYwwwffffffYYYfffYYYYYYwwwffffff( @ uu111222000222,,,111cccdddkkkaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaagggiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiidddiiikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkppptttzzz{{{vvvyyyoooooowwwwwwyyypppllljjjjjjwwwllllll( @ uu ~ 񶶶111222I000222򗗗l,,,111cccdddkkkaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaagggiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiidddiiikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkppptttzzz{{{pvvvyyyoooooowwwwwwyyyʖ pppllljjjjjjwwwllllll2"$&(+(0` %uuxxxxxx111222000222000222,,,111jjjdddaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaxxxcccdddwwwjjjaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaacccfffaaadddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddaaacccgggdddiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiddddddiiikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkeeelllyyyyyyyyyyyyyyyyyywwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwiiipppooottttttxxxyyyyyy{{{{{{|||yyyyyyyyyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasssyyywwwyyywwwoooooowwwuuuwwwyyysssppplllllljjjjjjwwwkkklllllljjj{{{(0` %uu;aaa~Ȅッ傂偁∈iiilll돏⍍卍卍㑑ጌmmm5 񶶶111222I000222򗗗l000333,,,111iiidddaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbxxxcccdddwwwkkkaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaacccfffaaadddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddaaacccgggdddiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiidddccciiikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkeeelllyyyyyyyyyyyyyyyyyywwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwiiipppooottttttxxxyyyzzz{{{{{{|||ʹzzzyyyyyyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasssyyypvvvyyywwwoooooowwwuuuwwwyyysssʖ ppplllllljjjjjjwwwkkklllllljjjл{{{$-.2 "$%&()+  ( @ fTnUBcI5cI5cI5cI5cI5cI5cI5cI5cI5cI5bH5bH4aH4aH4aG4`G4`G4aG4aG4aH4bH4bH5cI5cI5cI5cI5̽ʹ׼ֹӶҴҲҲԲԱԯԮӮbH4ĺ̼Ƕųűѽкι֮aG4ĺöּֿؼͽ̺˸ѫ^E2 ĺʽǷǷ˸̿̾β[C1 Ļƿ̼XA/ȿȾǽŻúzzuwrwrzu~x{~xU?.ƼʽԻuj~q}w«ƬˮU>-ƼøwqIHBBxn~x¶ŲȲ̴U>-ǽJJBBBBBByĿĽŽǽȰXA/ȿIHBBBBBBBBBBBBBBBBBBBBBBBBBBCB==y »»ɿǽŽŻRQBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAJIBBBBBBBBBBBBBBBBBBBBBBBBBBDB@@rMMBBBBBBűbH4úNMBBcI5ŻcI5üüüü»»ȿȾǽƼŻĺù¸iO;»ǽκv]J»Ǿm\üȾ¸m\gfj܇ZۃUQ|MyIuDr?o;l8j5j5j5j5j5j5h3g0e/e.d-c,c,c,c+b+b+b+b+碀зγʯǫŨ£~xsoidb+ꪊվӻѸ͵˰ɭǪåååååå}wrd.챓տӻҸ϶϶϶϶϶϶ϵ̲˱ʮǪħåj4첕첕챓믑ꮏ꫌驉覅棁~yyyyyyuqlߑhގd݋`܈]ۆYڄWقU؁SQ~O  ( @ iiiXXXLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLKKKKKKJJJJJJJJJJJJJJJJJJJJJJJJKKKKKKLLLLLLLLLLLLKKKJJJHHH FFF CCC{{{xxxxxx{{{~~~AAA~~~AAA~~~AAACCCy rKKKLLLLLLRRR```pppppp~~~~~~}}}||||||||||||{{{{{{{{{{{{{{{{{{}}}@@ (B(@ BuuQQQQ|||Q|||QQQQQ|||Q|||QQQQQQQQQ|||Q|||QQQQQ|||Q|||QQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQzzzQzzzQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQzzzQzzzQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQ|||Q|||QzzzQzzzQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQ|||Q|||QzzzQzzzQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ===Q===Q===Q===QQQQQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ===Q===QwwwQwwwQQQQQQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ===Q===QQQQQQQQQQQQQ===Q===Q===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ===Q===QQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQwwwQwwwQQQQQQQQQ===Q===QwwwQwwwQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQwwwQwwwQQQQQwwwQwwwQ===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ===Q===QQQQQwwwQwwwQ===Q===QQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ===Q===QQQQQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ Q QQQzzzQzzzQQQwwwQwwwQQQQQQQQQzzzQzzzQ|||Q|||QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ Q QQQzzzQzzzQQQwwwQwwwQQQQQQQzzzQzzzQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQ~~~Q~~~QQQQQQQQQQQQQzzzQzzzQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQ~~~Q~~~QQQQQQQQQQQ Q QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQQQ{{{Q{{{Q===Q===QQQQQQQ Q QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQQQ{{{Q{{{Q===Q===QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQ{{{Q{{{QBBBQBBBQQQ Q QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQ{{{Q{{{QBBBQBBBQQQ Q QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{Q Q QQQQQQQQQQQQQQQQQQQQQ|||Q|||QzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{Q Q QQQQQQQQQ Q QQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQQQQQQQ Q QQQ|||Q|||QzzzQzzzQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQ Q QQQzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQQQ Q QQQzzzQzzzQQQQQBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQQQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{Q Q QQQQQQQQQ{{{Q{{{QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{Q Q QQQ Q QBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQ Q QBBBQBBBQ{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QQQQQQQQQBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQQQQQQQBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQQQ Q QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQ Q QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQQQBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQQQBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQ Q QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQ Q QBBBQBBBQQQFFFQFFFQQQFFFQFFFQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQQQFFFQFFFQQQFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQ Q QBBBQBBBQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQ Q QBBBQBBBQQQFFFQFFFQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQ Q Q{{{Q{{{QFFFQFFFQ{{{Q{{{QBBBQBBBQQQ Q QQQQQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQQQBBBQBBBQ{{{Q{{{QQQ Q QQQQQ Q QQQQQQQQQQQ Q QQQQQQQQQ???? ( @pX8(8`hXPH@80800`X@@@880888((x00@xHP`X@H88p88x8p( HxPhxp8@088 `@HXX`xpPhH  HH@PxpX`hh`H0 (hx`(px8@@x xP@Hp(hh8@@h(8xxp``H8xh`Xx`xPpXp`x0hpp0000p(0H(x((hx(( xX0 h0X0ppp(p Hxp\<(8dlXPL<484400,8`?p{?[ؐ`?<׍ؐ{@.+J.+Íyp/.<WyɰL0y\L$wy$H"+y·$H"yVH$HF(yHEHE7yy`H$} oyH$7]A ooyy$5 9~5]e ooo$!H7:j]"Afoooo`!$F$-]5Ahonoooooة6-E~^5Ah onnooooym ^>}^NeDnnnnoooym!5^>^]iD,nnnnnnnyooooot"5^>^5ea onnnnnnoyoooooL|"5^>}^^ WZnonnnnnnnno[`"]^>F6qssc|3!- YZnnnnnn[}6^^>abbOiDBBBh4TGpXYZnnn[]AOPQS 66"]556T`F H=XYY[\ ABDj$F_-jj--E$+55"?3"66N5"#$ $E j./c4 M<   ( @   hhhtttЌpppddd\\\```hhhČxxxlllXXX\\\XXX\\\```ttt܌ČpppXXX\\\\\\XXXXXXTTT\\\|||ԌtttXXX\\\\\\XXXXXXXXXXXXPPPTTThhh|||ȌЌxxxXXX\\\\\\XXXXXXXXXXXXPPPHHHLLLPPP\\\ppp،Œtttttt|||\\\\\\XXXXXXXXXXXXXXXPPPHHHTTTTTTTTTPPPPPPdddЌŒpppxxxxxx\\\\\\\\\\\\XXXXXXXXXPPPHHHTTTXXXTTTTTTTTTPPP```xxxttt\\\\\\\\\XXXXXXXXXXXXPPPHHHTTTTTTTTTTTTTTTTTT\\\Œxxxttt\\\```\\\\\\\\\\\\\\\PPPHHHTTTXXXTTTTTTTTTTTTXXX|||tttxxxpppTTTXXXXXXXXX\\\\\\\\\PPPHHHTTTXXXXXXXXXTTTTTTXXXttt|||ttthhhhhhLLLHHHPPPPPPTTTXXX\\\PPPHHHXXX\\\XXXXXXXXXXXX\\\xxxlllxxx```\\\XXXPPPHHHLLLPPPPPPHHHTTTXXXXXXXXXXXXXXXXXX|||xxxhhhlll````````````\\\\\\PPPLLLDDDHHHPPPPPPTTTXXXXXXXXXxxxllllll````````````\\\\\\```XXXPPPPPPHHHDDDDDDHHHLLLXXXxxx挐hhhddd`````````````````````XXXPPPXXX\\\XXXTTTTTTHHHLLL挐xxx|||xxx```ddd```````````````\\\LLLXXX```\\\\\\\\\\\\```pppȌttt```dddddd````````````XXXPPPXXX`````````\\\\\\\\\hhh֌xxxdddddddddddd`````````\\\PPPXXX```````````````\\\hhhŒ|||ddddddddddddddddddddd```PPPXXX`````````````````````||||||```dddddddddddddddddd```PPPXXX`````````````````````xxxԌxxxhhhddd```dddddddddTTTXXXddddddddddddddd```ddď̌Č|||ppphhhTTTTTTdddddddddddddddddddddxxxČČ|||hhhppptttppphhhddddddddddddppp|||tttppppppddddddxxx||||||tttxxxxxxxxxxxxtttllldddpppddddddʌ|||xxx|||xxxttthhhhhhtttȌ֌ȌތތʌŒ  ( @ 3f3f3f3f3f3f3ff3f3f3f3f3ff3ff3f3f3f3f3f3ff3ffff3f3f3f3f3f3f3ff3ffffff3f3f3f3f3f3f3f3ff3ffffffff3f3f3f3f3f3f3f3f3f3ff3ffffffffff3f3f3f3f3f3f3f3f3f3f3f3ff3fffffffff3f3f3f3f3f3f3f3f3f3f3f3ff3fffffff3f3f3f3f3f3f3f3f3f3ff3fffff3f3f3f3f3f3ff3fff3f3f3f3ff3f??  ( @ ݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌݌̌̌݌݌݌݌݌݌݌̌̌ffffffffffffffffff݌݌݌݌݌̌̌ffffff̌̌̌̌ffffff݌݌݌̌̌ffffffffffff̌̌̌̌ffffff݌̌̌fffffffffffffff̌̌̌̌fff̌fffffffffffffffffffff̌̌̌̌fffffffffffffffffffffffffff̌̌̌̌fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff̌fffffffff̌̌ffffffffffffffffffffffffffffff̌̌̌̌fffffffff̌̌̌̌̌ffffffffffffffffffffffff̌̌̌̌̌̌̌fff̌̌̌̌̌̌̌̌ffffffffffffffffff̌̌̌̌̌̌̌̌̌̌fff̌̌̌̌̌̌̌̌̌̌̌ffffffffffff̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌̌??  ( @   ֌ČČ̌医xxxtttttttttttt匤zzzqqq̌wwwttť댳ttt{{{ό֌www֌ьڌwww{{{̌ጒڌ֌ttt򌟟ٌڌꌼtttҌΌwww쌙ČٌꌶtttČ֌Ȍʌwww挿ɌȌŒŒŒٌጺ׌ՌČČČČٌ݌Ȍ~~~ٌ̌ȌȌȌÌ݌䌶xxxČތȌȌȌΌȌȌٌÌtttތΌΌʌ֌ƌƌƌጼtttьΌٌ݌Όˌˌˌˌˌ֌ʌxxxČՌΌьььΌΌˌˌ݌ꌼٌ̌ьԌԌԌьььΌΌˌΌ׌ʌٌՌՌՌՌՌՌььΌΌˌÌҌތٌٌٌٌՌՌььΌˌˌ݌ތތٌٌٌՌՌььΌȌȌŒʌԌƌތތތٌٌՌььΌˌƌƌŒ݌ꌿތތٌՌՌьΌΌȌȌČČʌጶٌތތٌٌԌьΌΌȌȌČȌΌČ֌ތٌٌԌԌΌΌȌȌČČȌތՌՌьΌΌȌȌȌŒ֌ьٌԌΌΌȌȌČČČČԌьތٌٌٌٌԌ֌͌茿݌  ( @   +?CCCCCCCCCCCCCCCCCCCCCCCCCCB1___ddd````````````````````````````````````aaaaaa}}}ffffffhhhkkknnnppprrruuuFFFFFFEEEEEEFFFFFFxxxFFFlllkkkkkklllFFF{{{{{{EEEhhhgggggghhhEEEzzz}}}EEEeeecccccceeeEEEFFFcccbbbbbbcccFFFGGGGGGFFFFFFGGGGGGFFFFFFEEEEEEFFFGGGFFFlllkkkkkklllFFFEEEhhhgggggghhhEEEFFFeeecccccceeeFFFGGGcccbbbbbbcccGGGGGGGGGFFFFFFGGGGGG (Fhn   ( dFd,V:q@@@ݿݻݻݻݻݼݻݺݻݿ( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""3^^333^^^^33333^^^^^^333333^^^^^^^^333333^^^^^^^^3333^3^^^^^^33^3^^^^^3^^3( @dFd,V:q@@@ۻۻۻۻۻۻۻۻۻݻݻͻݻͻݻͻݻͻݻͻͻ ??( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""3^333^^^33333^^^^^3333333^^^^^^^333333333^^^^^^^^^33333333333^^^^^^^^^^^3333333333333^^^^^^^^^^^^^3333333333333^^^^^^^^^^^^^^^3333333333333^^^^^^^^^^^^^^^3333333333333^^^^^^^^^^^^^^^333333333333^^^^^^^^^^^^^^^^3333333333^^3^^^^^^^^^^^^33333333^^3^^^^^^^^^^333333^^3^^^^^^^^3333^^3^^^^^^33^^3^^^^^^3^^3?? hF h    (  @uuQQQQQQQeeeQQQQQQQQQeeeQeeeQeeeQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQeeeQQQQeeeQeeeQeeeQeeeQeeeQQQQQQeeeQ---Q---QQQQQQeeeQeeeQeeeQQQQeeeQ---Q---Q---QQQQQQQQQeeeQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ(  @uuQQQQQQfffQfffQQQQQQQQfffQfffQfffQfffQQQQQQQQQQfffQfffQfffQfffQfffQfffQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQfffQ333Q333QQfffQfffQfffQfffQfffQfffQQQQQfffQ333Q333Q333QQQQQfffQfffQfffQfffQQQfffQ333Q333Q333Q333Q333QQQQQQQfffQfffQQQQ333Q333Q333QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ( @ uuQQQQQeeeQQQQQQQQeeeQeeeQeeeQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQQQeeeQeeeQ---QQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQQQeeeQeeeQ---Q---Q---QQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQQQeeeQeeeQ---Q---Q---Q---QQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQeeeQeeeQQQQQQQeeeQeeeQ---Q---Q---Q---Q---Q---QQQQQQQQQQQeeeQeeeQeeeQeeeQeeeQeeeQQQQQeeeQeeeQ---Q---Q---Q---Q---Q---Q---QQQQQQQQQQQQQQeeeQeeeQeeeQeeeQQQeeeQeeeQ---Q---Q---Q---Q---Q---Q---Q---Q---QQQQQQQQQQQQQQQQeeeQeeeQQQ---Q---Q---Q---Q---Q---Q---Q---Q---Q---QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ??( @ uuQQQQQfffQQQQQQQQfffQfffQfffQQQQQQQQQQfffQfffQfffQfffQfffQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQQQfffQfffQ333QQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQQQfffQfffQ333Q333Q333QQQQQQfffQfffQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQQQfffQfffQ333Q333Q333Q333QQQQQQQQQfffQfffQfffQfffQfffQfffQfffQfffQQQQQQQfffQfffQ333Q333Q333Q333Q333Q333QQQQQQQQQQQfffQfffQfffQfffQfffQfffQQQQQfffQfffQ333Q333Q333Q333Q333Q333Q333QQQQQQQQQQQQQQfffQfffQfffQfffQQQfffQfffQ333Q333Q333Q333Q333Q333Q333Q333Q333QQQQQQQQQQQQQQQQfffQfffQQQ333Q333Q333Q333Q333Q333Q333Q333Q333Q333QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ??  ( @   eeeggggggeeeӌfffddd```sssssssssccc```iiihhhgggffftttvvvnnneeehhhggg```}}}eeeddddddnnndddgggsss~~~gggeeeeeesssiiinnnsss^^^ooo^^^\\\ggggggdddnnniiigggeee}}}hhhhhhhhhnnnnnnhhh}}}یyyyLLLKKKsssxxx|||~~~ÌÌی|||RRR'''}}}}}}~~~ی|||RRR'''}}}|||~~~͌njی|||RRR&&&ӌYYYXXXSSSuuuی|||RRR&&&cccgggcccYYYpppsssی|||RRR&&&sss```XXXXXX}}}ی|||RRR&&&̌ʌʌ``````͌όXXXGGG&&&ʌČȌ͌͌qqqGGG333&&&eeeMMMbbbƌČddd333---^^^^^^[[[lllŌʌyyyGGGrrrgggggggggČllllllgggzzzŌȌŒŌڌxxxKKKHHHuuu}}}̌̌ƌČڌ{{{QQQ'''ȌȌŌČڌ{{{QQQ'''ԌόȌƌÌڌ{{{QQQ%%%ڌ{{{QQQ%%%eeeڌ{{{QQQ%%%uuurrrڌ{{{QQQ%%%ԌČόXXXGGG&&&ŌԌԌqqqGGG222&&&ŌȌddd222---ˌxxxGGGÇÀ?  ( @ fTnUBcI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5οͼǷŴñ޾ݼڸٶصײױְcI5ĺݴcI5ĺ޶cI5ŻųcI5żcI5ȿȾǽƼŻĺĹø·cI5ǽ仢cI5ǽ㽧cI5Ⱦ¸˺cI5ȿøcI5»»ɿȾǾǽƼŻĺù¸cI5ĺìcI5ĺȴcI5ŻcI5ƼcI5üüüü»»ȿȾǽƼŻŻĺù¸iO;»ǽκv]J»Ǿm\üȾ¸m\gfj܇ZۃUQ|MyIuDr?o;l8j5j5j5j5j5j5h3g0e/e.d-c,c,c,c+b+b+b+b+碀зγʯǫŨ£~xsoidb+ꪊվӻѸ͵˰ɭǪåååååå}wrd.챓տӻҸ϶϶϶϶϶϶ϵ̲˱ʮǪħåj4첕첕챓믑ꮏ꫌驉覅棁~yyyyyyuqlߑhގd݋`܈]ۆYڄWقU؁SQ~O  ( @ iiiXXXLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLRRR```pppppp~~~~~~}}}||||||||||||{{{{{{{{{{{{{{{{{{}}}%  _LFLG %-c C a Ta Tages.dbcTCSQ pr_comienzo%Cdeposito QdepositoG+(in_operacionesT  \tmp\C]+ in_operaciones TEMPORALFTCX %aPpr_apertura_x_lote TrtemporalS8150610  1BUSETS DEY_FUNC2P_DEV P_SUSPENDGESDBCCL_ATR OPEN_FILES PR_COMIENZODEPOSITOIN_OPERACIONESXFILEP_LOCALCREAR_TABLA_TEMPORALTEMPORALXCENINGPR_APERTURA_X_LOTECODIGOATRBULDEPINGENTRAABRIR_ORDEN_X_LOTE2  Ta T%%'%Cbienescodins T-%TC T%Sr'%   S0%C atributocodigo O T-T C % S'%   .%C bultoscodigo  T-T C F>BUXDESCRXOKBIENESCOD_INSTEMPORALCODIGOP_CM_MODIFICAR_DESCRIPCIONDESCR ATRIBUTOSATRATRIBUTOCLAVEBULTOSBUL DCODATRBULF(~C C  T%CTT T  T T  T-F > CBUTEMPORALCODIGOENTRASALEXMSG VLD_DEPINGDEPINGXCODIGOXATRATRXBULBUL XCANTIDADXDEPINGXNUMPROD PR_ORDENESMENSAJE %C '%CdepositodepositoKBa ~"TDepsito invlido !!!B- %TDepsito sin definir !!!B-UXDEPXMSG get_descrabrir_orden_x_lote vld_deping6BQ2BeAArrQBrAB2qAAA2!AsqAAAsqAAArA2rsrAAB2"qq!qAQqA1W7?v]cRtX (Fhn   ( dFd,V:q@@@  77( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""77( @dFd,V:q@@@   ? ?????? ?>( @f3f3̙f3fffff3ff333f3333f3f3f3̙f3fffff3ff333f3333f3f3̙̙̙f̙3̙̙̙f3fffff3ff333f3333f3fffff3fffffff3fff̙ffff3fffffffffff3ffff3f3f3ff3f33f3ffffff3ff333f3333333f33333̙33f3333f3f3f3ff33f3f3333333f3333333333f3333f3f3̙f3fffff3ff333f3333f3wUD"wUD"wUD"wwwUUUDDD"""? ?????? ?> hF h    (  @uu?????????????????????????????????@@@???????????@@@?????@@@???????????@@@?@@@?@@@?@@@?@@@?@@@????????????@@@?@@@?@@@??@@@?@@@??????????@@@?@@@??????????@@@?@@@?@@@?@@@????????????@@@?@@@??@@@?@@@?????????@@@?@@@???????????@@@???????????????????7(  @uu??????????????????????????????????????????????????????????????333?333???????????????????333??????????333?333??????????????????????????333??333?????????????????????????????????????????7( @ uu???????????????????????????????????????????????????????????????@@@???????????????????????????@@@???????????????????@@@???????????@@@????????????????????@@@???????????@@@????????????????????@@@???????????@@@?????????????????????@@@?@@@???????@@@?@@@?@@@???????????????????????@@@?@@@???@@@?@@@???@@@???????????????????????@@@??@@@?@@@?????@@@???????????????????????@@@?????????@@@?@@@????????????????????@@@???????????@@@??????????????@@@?@@@?@@@???????????????@@@???@@@?@@@???@@@??????????????@@@?@@@?????@@@?????????????????????@@@?@@@???????@@@?@@@???????????????@@@?@@@???@@@?@@@??????????????????@@@??@@@?@@@????????????????????@@@???????????????????????@@@??????????????????????@@@??????????????????????????????????????????????????? ?????? ?>( @ uu???????????????????????????????????????????????????????????????333???????????????????????????333???????????????????333???????????333????????????????????333???????????333????????????????????333???????????333?????????????????????333?333???????333?333?333???????????????????????333?333???333?333???333???????????????????????333??333?333?????333???????????????????????333?????????333?333????????????????????333???????????333??????????????333?333?333???????????????333???333?333???333??????????????333?333?????333?????????????????????333?333???????333?333???????????????333?333???333?333??????????????????333??333?333????????????????????333???????????????????????333??????????????????????333??????????????????????????????????????????????????? ?????? ?>  ( @ @80( XNE;22% qeZODD3"}pcWWA+`@ U*j5@80( XNE;22% qeZODD3"}pcWWA+`@ U*j5@80( @80( XNE;22% XNE;22% qeZODD3"qeZODD3"}pcWWA+}pcWWA+`@ `@ U*U*j5j5  ( @ uuzzzQtttQnnnQhhhQbbbQbbbQ\\\QVVVQPPPQKKKQQQ~~~QvvvQpppQpppQfffQ]]]QTTTQKKKQQQQQ}}}Q}}}QpppQdddQWWWQKKKQQQQQQQ{{{QkkkQZZZQKKKQLLLQIIIQFFFQCCCQ@@@QQQQQQQQzzzQbbbQKKKQNNNQKKKQQQQQQQQQjjjQKKKQPPPQLLLQQQQQrrrQKKKQQQQQNNNQQQQKKKQSSSQOOOQUUUQQQQQVVVQRRRQXXXQTTTQzzzQtttQnnnQhhhQbbbQbbbQ\\\QVVVQPPPQKKKQZZZQUUUQQQ~~~QvvvQpppQpppQfffQ]]]QTTTQKKKQ[[[QWWWQQQQQ}}}Q}}}QpppQdddQWWWQKKKQ]]]QXXXQQQQQQQ{{{QkkkQZZZQKKKQ___QZZZQQQQQHHHQ@@@QQQQQQQQzzzQbbbQKKKQaaaQ]]]QQQQQQQQQjjjQKKKQdddQ```QQQQQrrrQKKKQgggQdddQQQQKKKQjjjQgggQmmmQkkkQpppQnnnQzzzQtttQnnnQhhhQbbbQbbbQ\\\QVVVQPPPQKKKQsssQqqqQzzzQtttQnnnQhhhQbbbQbbbQ\\\QVVVQPPPQKKKQQQ~~~QvvvQpppQpppQfffQ]]]QTTTQKKKQvvvQuuuQQQ~~~QvvvQpppQpppQfffQ]]]QTTTQKKKQQQQQ}}}Q}}}QpppQdddQWWWQKKKQyyyQxxxQQQQQ}}}Q}}}QpppQdddQWWWQKKKQQQQQQQ{{{QkkkQZZZQKKKQ|||Q|||QQQQQQQ{{{QkkkQZZZQKKKQQQQQQQQzzzQbbbQKKKQQQQQjjjQUUUQ@@@QQQQQQQQzzzQbbbQKKKQQQQQQQQQjjjQKKKQQQQQQQQQjjjQKKKQQQQQrrrQKKKQQQQQrrrQKKKQQQQKKKQQQQKKKQ  ( @   vvvݎhhhaaaaaa}}}ݎzzzfffccccccaaafffccccccsssݎ}}}aaagggfffffffffaaadddddddddgggaaa}}}ݎcccccccccffffffffffffaaadddhhhhhhhhhhhhgggaaa{{{dddffffffffffffffffffaaadddhhhhhhffffffffffffggg^^^mmmfffffffffffffffffffffaaafffhhhhhhhhhhhhhhhffffff^^^^^^XXXzzzffffffhhhhhhhhhhhhhhhaaafffhhhhhhhhhhhhhhhhhhggg^^^\\\\\\\\\\\\dddhhhhhhhhhhhhhhhhhhaaafffhhhhhhhhhhhhhhhhhhggg^^^^^^^^^^^^XXXttt̎fffhhhhhhhhhhhhhhhhhhaaafffhhhhhhhhhhhhhhhhhhgggcccffffff^^^XXXttt̎fffhhhhhhhhhhhhhhhdddaaaddddddhhhhhhhhhhhhiiiccccccfffffffffaaazzz̎fffhhhhhhddddddmmmyyyyyymmmffffffhhhhhhiiiccccccfffffffffffftttfffffffffsssssshhhdddgggccccccfffffffffffftttiiiyyyyyyeeeccc^^^ffffffffffffqqqnnnjjj^^^aaafffffffffxxxccc\\\sssmmmjjjmmmggg^^^WWWmmm\\\^^^^^^^^^tttmmmssssssmmmmmm^^^mmm^^^^^^ccccccccccccsssnnnnnnnnnnnnsssbbbcccbbbcccccccccccccccooonnnsssnnnnnnnnnfff```ccccccccccccccccccooommmssssssssssssfff```ccccccccccccccccccooonnnssssssssssssfff___ccccccccccccccc___ooonnnssssssssssssnnn\\\cccccccccccccccccckkk~~~nnnssssssssssssnnn\\\cccccccccccccccccckkk}}}}}}zzzmmmssssssssssssnnn___ccccccccccccccc\\\\\\ttt}}}sssjjjmmmsssssssssnnnccccccccc______kkkttt~~~~~~xxxxxx}}}zzznnnnnnnnnnnn___bbboooxxx|||nnnuuuǎ}}}~~~vvvՎҎ~~~~~~ՎɎɎɎŎ?%8;N9҈HXt #4 TCaG.G G )G(\log\log_formularios.txtG %CxdevbCTCf.t.  T-TC TC1 %CxempresabNTCCZ CC$*"CX Empresa = (CX Reporte = C (CX System = C (CX Local = C (CX Causa = C (CX Pub = C (CX Dev = C (CX Comprob = C G(G %CxpubbL T%C0C#No se pasa el MEM de la empresa !!!  T  T ( s T  T+ TCt%Cl!T   TKCError !!! Lnea: CC Z Mensaje:   -   )G(\log\log_formularios.txtG ZCC$* C^ Error !!! Lnea: CC Z Mensaje:   -  8 T T T\data\1 T T%C.MEM0 @ CG )G(\log\log_formularios.txtG "CX Emp = G(Gd%C\reportbuilder.app0C\reportpreview.app0 C\reportoutput.app0 )"TU\reportbuilder.app"TV\reportpreview.app!TW\reportoutput.app w@C3El editor de formularios no est bien instalado !!! B ini_funciones TT JUAN PEREZ G(G~(clasesG~( localizacionGT( \formulariosGT CT  \atrcan.ges@ %CprovinccFQ%C provinc_arF QT!C localizacionN"ft05 ges<%/%C%\formularios.exeT&C% 0T& Desconocida/T9'Editor de Formularios (&) GZC(%Ctmp_formularioA C)GT( \formularios TCa T9aC*%/ GT(\empresa\foxuserB = 8  ;C.No se pudo crear el cursor TMP_FORMULARIOS !!! % GT(\empresa\foxuserB  8U+XEMPRESAXFILEP_SYSTEMP_LOCALXCAUSAXPUBXDEVXCOMPROBVISIBLEMENSAJE OLD_SYSTEM OLD_LOCALOEXAAPROGAAZAATMPLINENOMESSAGEINICIALP_SERVERP_COMMONP_CODEMPSETSP_EMP INI_GLOBALES INI_FUNCIONES PUB_INDEXCL_NOMCLASES LOCALIZACIONTEMPPROVINC PROVINC_AR OLOCALIZACIONMONEDASFT05GESXVERSIONXVRSCAPTIONFN_COMPROBANTESABRIR_TABLAS_FIJASPROCESAR=  H' 6d CKXDP1P2P_ESNCO1O2O4RMVMR O3- TCC, 2 T ges %- {Csys_FormulariosH2 K1%CST.t. vTpicking=select top 1 str(picking,12) as comprob , "PK" as causa , fecha as fecha from pickings where &xfiltro order by picking desc into cursor tmp_formulario  XOocom_operEX X<)tmp_formulario DOocom_operDE D<)tmp_formulario" P1 P2 I%C:T.t. \Tpedido=select distinct top 1 str(pedido,12) as comprob , "NP" , fec_ven as fecha from tccvent order by pedido desc where cod_cli#"0 " and &xfiltro into cursor tmp_formulario  P_E%CT.t. Tpedido=select distinct top 1 str(pedido,12) as comprob , "NP" , fec_ven as fecha from tccvent order by pedido desc where cod_cli#"0 " and ivacat=4 and &xfiltro into cursor tmp_formulario  Vcd,%CT.t. T fac_Ven=''&select top 1 fac_ven as comprob , iif(causa="V","FC",iif(causa="c","NC",iif(causa="d","ND"," "))) as causa , fec_ven as fecha from ccvent order by fecha desc, fac_ven desc where cod_cli#"0 " and causa=xcausa and fce=0 AND &xfiltro into cursor tmp_formulario  SjoepresupC  ZQPSQ Q0 < <)tmp_formulario VE%CT.t.  T fac_Ven=''select top 1 fac_ven as comprob , "FC" as causa , fec_ven as fecha from ccvent order by fecha desc, fac_ven desc where cod_cli#"0 " and causa="V" and fce=2 AND &xFiltro into cursor tmp_formulario  cED %C- T.t. V T fac_Ven=''select top 1 fac_ven as comprob , "NC" as causa , fec_ven as fecha from ccvent order by fecha desc, fac_ven desc where cod_cli#"0 " and causa="c" and fce=2 AND &xFiltro into cursor tmp_formulario  V_E %C{ T.t.  T fac_Ven=''select top 1 fac_ven as comprob , "FC" as causa , fec_ven as fecha from ccvent order by fecha desc, fac_ven desc where cod_cli#"0 " and causa="V" and left(fac_ven,1)="E" and fce=1 AND &xFiltro into cursor tmp_formulario  r, %C T.t.  T rem_Ven=''select distinct top 1 rem_ven as comprob , "RE" as causa , fec_ven as fecha from ccvent order by fec_ven desc, comprob desc where cod_cli#"0 " and (causa="V" or causa="r") and val(right(rem_ven,8))#0 AND &xFiltro into cursor tmp_formulario  N {otcccompC ZQOCQ Q0  N <)tmp_formulario C=nocccompC ZQOPQ Q0  <)tmp_formularioB O1 O2 C=O3- O4 H O1T.t. O2 Tcuenta=atrcan(76,2) C=O3-^YTLsubstr(cuentas.atributo,103,1)=[S] and provincia = val(stuff(xcausa,1,3,[])) O4!Tcuenta=atrcan(120,2) 2T.t!select distinct top 1 comprob as comprob , "CP" as causa , fecha as fecha from com_oper, cuentas where com_oper.cuenta=cuentas.cod_cue and opago#0 and cod_pro#"0 " and causa="O" and &xfiltro order by fecha desc, causa, comprob into cursor tmp_formulario  R]woven_operQRCQ Q0  R <)tmp_formulario" MV MR H MVT.t. MRT motinv.remito 2T.tselect distinct top 1 str(transf,12) as comprob , "MV" as causa , fecha as fecha from conver left outer join motinv on conver.motivo=motinv.codigo where and &xfiltro order by fecha desc into cursor tmp_formulario 22=htmp_formularioC  CDBUXCAUSAXCOMPROBXFILTRO XCOMPROBANTEGESSYS_MDISTINCTCOMPROBFECHACOM_OPERCAUSATMP_FORMULARIOTOPNUMEROEPRESUPCOD_CLIORDENFEC_COMTCCCOMPCOD_PROPENDOPCCCOMPVEN_OPERRECIBOe4%CZ3C&No hay comprobante para visualizar !!!  Hu  K0ve_orden_de_pickingCg-  X([ CC,gC C  66 D[ CC,gC C  660 P1 P2 P_E X ve_reimprimir_comprobantePC C  66CC,g-CCRg Vcdy ve_reimprimir_comprobanteC C  66- ST Cve_presupuestobve_presupuestoCgC C  66a# V_E VE &| ve_reimprimir_comprobanteVC C  66-# c_E cE | ve_reimprimir_comprobantecC C  66- rU| ve_reimprimir_comprobanterC C  66- N"T \tmp\CC]R T cm_comprafcm_reimprimir_ocCgC C  66 C"T \tmp\CC]R T cm_comprafcm_reimprimir_opCgC C  66B O1 O2 C=O3- O4 u te_pag_reimpresionOC C  66CC\g Re te_cob_reimpresionRC C  66" MV MR F%CW(\tmp\tmp_movinvQ&Q\tmp\tmp_movinv in_comienzoa^in_operacionesCgC C  66 2 %z _CRNo se puede visualizar...utilice la reimpresin de un comprobante de este tipo !!!  %C 3  /3B}c:\sistema\2000\sys_formularios1extraccion.FRXC:\sistema\2000\systemC:\sistema\2000Xa{c:\sistema\2000\sys_formularios1 deposito.FRXC:\sistema\2000\systemC:\sistema\2000Da~c:\sistema\2000\sys_formularios1prerremito.FRXC:\sistema\2000\systemC:\sistema\2000P2auc:\sistema\2000\sys_formularios1oc.FRXC:\sistema\2000\systemC:\sistema\2000Nayc:\sistema\2000\sys_formularios1 sch_op.FRXC:\sistema\2000\systemC:\sistema\2000Caxc:\sistema\2000\sys_formularios1PAGO.FRXC:\sistema\2000\systemC:\sistema\2000O1azc:\sistema\2000\sys_formularios1 RETGAN.FRXC:\sistema\2000\systemC:\sistema\2000O2awc:\sistema\2000\sys_formularios1MOV.FRXC:\sistema\2000\systemC:\sistema\2000MVac:\sistema\2000\sys_formularios1s:\data\1\cpbt\factura.frxC:\sistema\2000\systemC:\sistema\2000Vazc:\sistema\2000\sys_formularios1 MOVREM.FRXC:\sistema\2000\systemC:\sistema\2000MRayc:\sistema\2000\sys_formularios1 MOVREM.FRXC:\sistema\2000\systemC:\sistema\2000Va c:\sistema\2000\sys_formularios21factura_export_generica.FRXC:\sistema\2000\systemC:\sistema\2000V_Ea c:\sistema\2000\sys_formularios21factura_proforma_generica.FRXC:\sistema\2000\systemC:\sistema\2000P_Ea c:\sistema\2000\sys_formularios21sch_factura_e.FRXC:\sistema\systemC:\sistema\2000VEC:\sistema\2000\tmpfilea c:\sistema\2000\sys_formularios21seg_remito.FRXC:\sistema\systemC:\sistema\2000rC:\sistema\2000\tmpfilea{ c:\sistema\2000\sys_formularios21 int_retib.frxC:\sistema\systemC:\sistema\2000O3-1a c:\sistema\2000\sys_formularios21smt_trading_remito.frxC:\sistema\systemC:\sistema\2000ra c:\sistema\2000\sys_formularios21tfw_factura_e_v2.frxC:\sistema\systemC:\sistema\2000Va c:\sistema\2000\sys_formularios21nuv_preremito.frxd:\sistema\system_auxC:\sistema\2000P2C:\sistema\2000\_5RC10EBLC c:\sistema\2000\sys_formularios21 remito.frxd:\sistema\system_sriC:\sistema\2000rC:\sistema\2000\_5ZG199QM9 c:\sistema\2000\sys_formularios21art_factura_e.frxD:\SISTEMA\SYSTEM_artC:\SISTEMA\2000VEC:\SISTEMA\2000\_63I0KLWK2.MEM c:\sistema\2000\sys_formularios21retib_misiones.frxD:\SISTEMA\SYSTEMS\AUXC:\SISTEMA\2000O3-14C:\SISTEMA\2000\tmp\_6CI0XP7W6 c:\sistema\2000\sys_formularios21 picking.frxD:\SISTEMA\SYSTEMS\MCLC:\SISTEMA\2000KC:\SISTEMA\2000\tmp\_6FX0VKEG3 559 c:\sistema\2000\sys_formularios21 factura_e.frxD:\SISTEMA\SYSTEMS\IMPC:\SISTEMA\2000VC:\SISTEMA\2000\tmp\_6IJ0QXEXN.f. A05-00000002 c:\sistema\2000\sys_formularios2cal_factura_e.frxD:\SISTEMA\SYSTEMS\CALC:\SISTEMA\2000VEC:\SISTEMA\2000\tmp\_6PG0KOS9TU!XTIPOXFILEXCAUSAXCOMPROBTMP_FORMULARIOCOMPROBMENSAJEIMPRIMIR_PICKINGVE_ORDEN_DE_PICKINGTE_EXTRACCION_REIMPRESIONTE_DEPOSITO_REIMPRESION REIMPRIMIRVE_REIMPRIMIR_COMPROBANTE XTEMPCOMPODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILESVE_PRESUPUESTOIMPRIMIRP_LOCAL XTIPOCOMPRA CM_COMPRA REIMPRIMIR_OCCM_REIMPRIMIR_OC REIMPRIMIR_OPCM_REIMPRIMIR_OPTE_PAG_REIMPRESIONTE_COB_REIMPRESION IN_COMIENZOIMPRIMEIN_OPERACIONESSCREENCfn_comprobantes procesar1iabaqA2BAr!baAATAQAAaAaBCrAca"baF!!AAqaaqAAqAArA$RAAAAAAA2CBAAAz BB"AbAbAmBRARAcANBABB"QQQAC~%QQAAC21E3ABB cB"22BB%BeB%Be"VBV"s!AaA2QAABAAXx i  X  c  2n0.0Sn ( @yxyYVVěʷٻмԨêӦ輞ihf^^__qZZ_&BAM|~~w"77* m17[kjpgyw;]hrrATZFY_KUX}&6FMK+g|MMOhda2bruvjhuz~Xad:G^]or{tUMUkmuxfyyKUrORSn}XSq6::E`KiQpimwQkRlTlNN|||wwwtttsssmmmeee^^^ee[[[XXXUUUIIwdfwefٻwzw^ntc___vX_aӮ…TT|XbԾqd„SU22ChKR^zͯrѨ2*JNII4gμѬK>>>\~нrQk:33#DjͱַQrLE(W!&&]20OGLmW!88F00ELW' )))l}*%m%O"O07$$+++{V`xhkmokkELUrQ999----iVRRAC%EGLOQUWZ<,,....{~D==B"%(*02"y///Yg51113X F11=@Meitl5[8HH;#[Pus{?96n<+8&)sptp??? ( @ ,,,999EEERRR___lllxxxʦ>]|$$HHll>](|2<FU$mHl*>?]T|i~$Hl>>]]||$Hl>*]?|Ti~ٓ$Hl>]|(2<FU$mHl>]|$$HHll>](|2<FUm$Hl*>?]T|i~ 'fff`Nm* iŪtuoMҤٶņccirvvњό͠ɓ[h]]uӔns"ܦ{#sgژTօ600 EE33WW:: mmddII??ѫhh77ӘיĶƵƫ޾ƫ޾Ə޾ƫ⾾޼ƫƷ޾޷ƫƫ쾾޾ƷƼ޼޷ͻͷƫƫƫ쾾ڼ 󫫫ƫԾƷُͻƫ?  ( @ fffffffffѢfffffffffffffffffffffǷfffffffffffffffffffffŰfffffffffffffffffffffʹ¿fffǎzzzfff㺺nnnuuufffપfff㺺xxx{{{fff풒RRR\\\gggfff풒{{{\\\gggfffȢ{{{{{{\\\gggfffpppvvv\\\\\\fffnnnpppvvv\\\pppfffppppppppp\\\hhhwwwXXXfffppp\\\UUUHHHffffffuuupppzzz}}}JJJfffࠠvvv\\\nnnXXXgggZZZfffhhhvvv\\\AAAXXXXXXiiifffݏvvv\\\AAAgggXXXfffggg{{{pppzzzfffnnngggpppuuuffffffnnngggwwwfffcccʐffffffʣdddfffnnnrrrnnnffffffffffff}}}ffffffffffff%{I>Η} I!TCwwAPI wwapi.prg(G 4TCwwAPIf:\sistema\2000\ip\wwapi.prg(C 4TCwwAPIc:\sistema\2000\ip\wwapi.prg(? -4TCwwAPIe:\sistema\2000\ip\wwapi.prg(;TPruebasX:CC GESFTPManager.iniArchivokCC GESFTPManager.iniDestinoftp:// CC@/monitor/datos//datos/.| ShellExecute SHELL32.DLL>TC9openCFTP_Manager.exe  BUXAUTXFILESXDESTINOXMSG XDIRECTORIOXTAREAOAPIOEXWRITEPROFILESTRINGP_LOCAL P_FTP_SERVER SHELLEXECUTESHELL32DLLXERRORHWND P_EXE_PATHqrAAAAAAA\10 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1N417QAHE 881480943C !T]  WINDOWS _1N417SBWP 861623467ucT=BS' COMMENT RESERVED  WINDOWS _1N417QAHE 949437627Sdj{(J=Jn/ WINDOWS _1N417SBWP 861422977\J;$V2{ COMMENT RESERVED  WINDOWS _2CQ0H1MH8 949441996  /14D | WINDOWS _2CQ0H2R7A 9494412760K p5  &8 WINDOWS _2CQ0LQSYQ 949441768cVF0 &0 COMMENT RESERVED f YVERSION = 3.00filtro_empresasPixelsClass2 containerfiltro_empresas.OLEObject = C:\WINDOWS\system32\MSCOMCTL.OCX  ࡱ> Root Entry8Uw6OleObjectDataAccessObjSiteData&\ChangedPropsKѽj(6(!C4N}ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I View I  ChecXw kboxesLFullRowSelectL GridLinesListema\2000\co_funciones.PRGNombre 4Codigo>PROCEDURE Refresh *** ActiveX Control Method *** ENDPROC .OLEObject = C:\WINDOWS\system32\MSCOMCTL.OCX filtro_equipos olecontrol2filtro_equiposPixelsClass3 containerfiltro_equiposaTop = 277 Left = 0 Height = 25 Width = 25 Enabled = .F. Interval = 1000 Name = "Vida_TMR" filtro_equiposVida_TMRtimertimerListadoUPROCEDURE Refresh *** Mtodo ActiveX Control *** ENDPROC PROCEDURE ItemClick *** Evento ActiveX Control *** LPARAMETERS item This.parent.Elemento_Seleccionado(This.parent.Objeto.coleccion(this.selectedItem.Index)) ENDPROC PROCEDURE ItemCheck *** Evento ActiveX Control *** LPARAMETERS item this.parent.filtro_cambiado ENDPROC @Top = 0 Left = 0 Height = 153 Width = 288 Name = "Listado" filtro_empresasListado olecontrol olecontroldir_sistema objeto cargar_auto Especifica si la carga de datos es automtica. *cargar *filtro_cambiado *obtener_filtro *elemento_seleccionado Evento provocado al seleccionar un elemento del LV *cargar_lista *setear *obtener_seleccionadas *visible_assign  containerfiltro_usuariosPixelsClass containerfiltro_usuarios.OLEObject = C:\WINDOWS\system32\mscomctl.ocx  ࡱ> Root Entry41\OleObjectDataAccessObjSiteData&\ChangedPropsKѽj(6(!C4:N}ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1 MousePointer I View I  Checy kboxesLFullRowSelectL GridLinesListema\2000\co_funciones.PRGNombre 4CodigoWidth = 481 Height = 302 cargar_auto = .F. dir_sistema = .F. objeto = .F. mostrar_obsoletos = .T. mostrar_dormidos = .T. mostrar_activos = .T. vida_vaciada = .F. vida_cuando = .F. Name = "filtro_equipos"  container container olecontrolPROCEDURE Refresh *** Mtodo ActiveX Control *** ENDPROC PROCEDURE ItemCheck *** Evento ActiveX Control *** LPARAMETERS item this.parent.filtro_cambiado ENDPROC @Top = 0 Left = 0 Height = 157 Width = 288 Name = "Listado" filtro_usuariosListado olecontrol olecontroldir_sistema objeto cargar_auto Especifica si la carga de datos es automtica. empresa Enlace con un objeto empresa el cual le dar los mtodos para cargar los usuarios *cargar *filtro_cambiado *obtener_filtro Width = 288 Height = 155 BackStyle = 0 BorderWidth = 0 dir_sistema = .F. objeto = .F. cargar_auto = .F. Name = "filtro_empresas" @Top = 0 Left = 0 Height = 277 Width = 481 Name = "Listado" Width = 288 Height = 156 BackStyle = 0 BorderWidth = 0 dir_sistema = .F. objeto = .F. cargar_auto = .F. empresa = .F. Name = "filtro_usuarios" cargar_auto dir_sistema objeto mostrar_obsoletos mostrar_dormidos mostrar_activos vida_vaciada vida_cuando *cargar *actualizar_vida *vida_marcar *vida_actualizacionterminada *vida_timer SPROCEDURE cargar LPARAMETERS xDir_Sistema, xDesde, xHasta IF TYPE("xDir_Sistema")="C" THEN this.dir_sistema = xDir_Sistema ENDIF this.Objeto.Cargar_Datos(this.dir_sistema, xDesde, xHasta) this.Listado.ListItems.Clear FOR EACH oObj IN this.objeto.coleccion it=this.Listado.ListItems.Add (,,ALLTRIM(oObj.Nombre)) it.listsubitems.add(,"CODIGO",oObj.Codigo) NEXT ENDPROC PROCEDURE obtener_filtro LPARAMETERS xField LOCAL xfiltro xFiltro="(" xFiltro_Sep="" xusrchk=.f. FOR EACH oITM IN this.Listado.ListItems IF oITM.Checked THEN IF xUsrchk THEN xFiltro=xFiltro + " OR " ENDIF xFiltro=xFiltro + xfield + " = " + oITM.ListSubitems("CODIGO").Text xusrchk = .t. ENDIF NEXT IF xUsrchk THEN xFiltro=xFiltro + " )" ELSE xFiltro=xFiltro + " .T. )" ENDIF RETURN xFiltro ENDPROC PROCEDURE Resize this.Listado.Width = this.Width - this.listaDO.left - 2 this.Listado.Height = this.Height - this.listadO.top - 2 ENDPROC PROCEDURE Init THIS.Objeto=NEWOBJECT("Usuarios","Sys_clases_usuarios.prg","", NOT THIS.cargar_auto, THIS.Dir_Sistema) ENDPROC "%;PLUURefresh0133)PROCEDURE Timer THIS.ENABLED = .F. SELECT * FROM equipos WHERE NOT EMPTY(sealvida) INTO CURSOR TMPTMRVida SCAN this.Parent.objeto.vida_marcar(tmptmrvida.codigo, .t.) this.Parent.vida_marcar(tmptmrvida.codigo, .t.) ENDSCAN this.Parent.Vida_Timer() IF DATETIME()-THIS.PARENT.vida_cuando>60 THEN THIS.vida_vaciada=.F. this.Parent.vida_actualizacionterminada ELSE THIS.ENABLED=.T. ENDIF ENDPROC PROCEDURE cargar LPARAMETERS xDir_Sistema, xDesde, xHasta IF TYPE("xDir_Sistema")="C" THEN this.dir_sistema = xDir_Sistema ENDIF this.Objeto.Cargar_Datos(this.dir_sistema, xDesde, xHasta) this.cargar_lista ENDPROC PROCEDURE obtener_filtro LPARAMETERS xField LOCAL xfiltro xFiltro="(" xFiltro_Sep="" xusrchk=.f. FOR EACH oITM IN this.Listado.ListItems IF oITM.Checked THEN IF xUsrchk THEN xFiltro=xFiltro + " OR " ENDIF xFiltro=xFiltro + xfield + " = " + oITM.ListSubitems("CODIGO").Text xusrchk = .t. ENDIF NEXT IF xUsrchk THEN xFiltro=xFiltro + " )" ELSE xFiltro=xFiltro + " .T. )" ENDIF RETURN xFiltro ENDPROC PROCEDURE elemento_seleccionado LPARAMETERS xEmpresa ENDPROC PROCEDURE cargar_lista LOCAL oEmp, it this.Listado.ListItems.Clear FOR EACH oEmp IN this.objeto.coleccion it=this.Listado.ListItems.Add (,,ALLTRIM(oEmp.Descr)) it.listsubitems.add(,"CODIGO",oEmp.Codigo) it.checked=oEmp.Seleccionada NEXT ENDPROC PROCEDURE setear LPARAMETERS xCod, xVal FOR EACH oEmp IN this.objeto.coleccion IF oEmp.Codigo=xcod THEN oemp.seleccionada=xVal endif NEXT ENDPROC PROCEDURE obtener_seleccionadas LOCAL oSel, oITM, oEMP oSel=NEWOBJECT("Empresas","Sys_clases_empresas.prg","", .t., "") FOR EACH oITM IN this.listado.ListItems IF oITM.CHECKED THEN oEMP=NEWOBJECT("Empresa","Sys_clases_empresas.prg","",.t., "", VAL(oITM.Listsubitems("CODIGO").text), "", oITM.TEXT, "") oSel.coleccion.add(oEMP) ENDIF NEXT RETURN oSel ENDPROC PROCEDURE visible_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Visible = m.vNewVal this.listado.Visible = m.vNewVal ENDPROC PROCEDURE Resize this.listado.Width = this.Width this.listado.Height = this.Height ENDPROC PROCEDURE Init THIS.Objeto=NEWOBJECT("Empresas","Sys_clases_empresas.prg","", NOT THIS.cargar_auto, THIS.Dir_Sistema) ENDPROC ;"""#%UT-(oequiposC TMPTMRVida ~qCaCaC %C <T -  TaU THISENABLEDEQUIPOS SEALVIDA TMPTMRVIDAPARENTOBJETO VIDA_MARCARCODIGO VIDA_TIMER VIDA_CUANDO VIDA_VACIADAVIDA_ACTUALIZACIONTERMINADATimer01qAA2)""% QAUU0&CCUITEMTHISPARENTELEMENTO_SELECCIONADOOBJETO COLECCION SELECTEDITEMINDEX UITEMTHISPARENTFILTRO_CAMBIADORefresh0 ItemClick; ItemCheck14ra2r13SJ )PROCEDURE cargar this.Objeto.Cargar_Datos() this.Listado.ListItems.Clear LOCAL oEqu as equipo OF sys_equipos.prg LOCAL oItm as MSComctlLib.ListItem, oSI as MSComctlLib.ListSubItem FOR EACH oEqu IN this.objeto.coleccion oItm=this.Listado.ListItems.Add (,oEqu.Key,ALLTRIM(oEqu.Nombre)) oItm.listsubitems.add(,"CODIGO",oEqu.Codigo) oItm.listsubitems.add(,"IP",oEqu.IP) oItm.listsubitems.add(,"VIDA",TTOC(oEqu.seALVIDA) ) oItm.ForeColor = oEqu.Eq_FORECOLOR NEXT ENDPROC PROCEDURE actualizar_vida SELECT equipos UPDATE equipos SET sealvida={ / / } this.vida_vaciada=.t. this.vida_cuando=DATETIME() this.vida_TMR.Enabled=.t. ENDPROC PROCEDURE vida_marcar LPARAMETERS xCodigo, xVivo LOCAL xKey, oEqu as equipo OF sys_equipos.prg FOR EACH oItm as MSComctlLib.ListItem IN this.listado.ListItems oEqu = this.objeto.coleccion(oItm.Key) IF EMPTY(xCodigo) OR xCodigo=oEqu.coDIGO THEN oItm.ForeColor=oEqu.Eq_ForeColor ENDIF oItm.listsubitems("VIDA").Text = TTOC(oEqu.seALVIDA) NEXT ENDPROC PROCEDURE Init THIS.Objeto=NEWOBJECT("Equipos","Sys_Equipos.prg","", NOT THIS.cargar_auto) ENDPROC  ࡱ> Root EntryP@kHOleObjectData)AccessObjSiteData&\ChangedProps Kѽj(6(!C41N}#1ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1&P(5(5HideSelectionL LabelEdit I  MoH0X usePointer I MultiSelectLView I AllowColumnReorderL CheckboxesLFullRowSelectL GridLinesL EquipoEquipo  CODIGOCod g IPIP  VidaVida@P ['@ ['EX'0EX'jX'xjX'0 [' ['fy  ENDz Z_982  f MFx hDile F}lIPuM"n%:U6C$QEQUIPOsys_equipos.prg> QMSCOMCTLLIB.ListItem QMSCOMCTLLIB.ListSubItem /&T C C CCODIGO  CIP  !CVIDAC  T UTHISOBJETO CARGAR_DATOSLISTADO LISTITEMSCLEAROEQU SYS_EQUIPOSPRGOITMOSI COLECCIONADDKEYNOMBRE LISTSUBITEMSCODIGOIP SEALVIDA FORECOLOR EQ_FORECOLORWFpequiposTaTCTaUEQUIPOS SEALVIDATHIS VIDA_VACIADA VIDA_CUANDOVIDA_TMRENABLED (QEQUIPOsys_equipos.prg/QMSCOMCTLLIB.ListItem TC  %C   T#TVIDACUXCODIGOXVIVOXKEYOEQU SYS_EQUIPOSPRGOITMTHISLISTADO LISTITEMSOBJETO COLECCIONKEYCODIGO FORECOLOR EQ_FORECOLOR LISTSUBITEMSTEXT SEALVIDA96TCEquiposSys_Equipos.prg UTHISOBJETO CARGAR_AUTOcargar0actualizar_vida# vida_marcarInitT1Brb1A2q21A1A3b2  'v&)" %AUp"%C xDir_SistemabCATC U XDIR_SISTEMAXDESDEXHASTATHIS DIR_SISTEMAOBJETO CARGAR_DATOS CARGAR_LISTAT( T T-%%T OR ,T = CCODIGO  Ta%T ) T .T. ) BU XFIELDXFILTRO XFILTRO_SEPXUSRCHKOITMTHISLISTADO LISTITEMSCHECKED LISTSUBITEMSTEXT UXEMPRESA !TCC  CCODIGO  T  UOEMPITTHISLISTADO LISTITEMSCLEAROBJETO COLECCIONADDDESCR LISTSUBITEMSCODIGOCHECKED SELECCIONADAS L%HTUXCODXVALOEMPTHISOBJETO COLECCIONCODIGO SELECCIONADA9TCEmpresasSys_clases_empresas.prga%YTCEmpresaSys_clases_empresas.prgaCCCODIGOgC  BU OSELOITMOEMPTHISLISTADO LISTITEMSCHECKED LISTSUBITEMSTEXT COLECCIONADD1T T UVNEWVALTHISVISIBLELISTADO/TTUTHISLISTADOWIDTHHEIGHTHETCEmpresasSys_clases_empresas.prg UTHISOBJETO CARGAR_AUTO DIR_SISTEMAcargar0obtener_filtroelemento_seleccionado cargar_listasetearobtener_seleccionadasDvisible_assignResizeInitF1"A2qrq!QAAA1qA2q2q1A2qaAA2q!AAA2q"Q2aa3R2 !$'x-.58B<H?M)"j%UU UITEMTHISPARENTFILTRO_CAMBIADORefresh0 ItemCheck;14r13S)?"&&]%&aU"%C xDir_SistemabCATC   !T CC  CCODIGO   U XDIR_SISTEMAXDESDEXHASTATHIS DIR_SISTEMAOBJETO CARGAR_DATOSLISTADO LISTITEMSCLEAROOBJ COLECCIONITADDNOMBRE LISTSUBITEMSCODIGOT( T T-%%T OR ,T = CCODIGO  Ta%T ) T .T. ) BU XFIELDXFILTRO XFILTRO_SEPXUSRCHKOITMTHISLISTADO LISTITEMSCHECKED LISTSUBITEMSTEXTK$T$TUTHISLISTADOWIDTHLEFTHEIGHTTOPHETCUsuariosSys_clases_usuarios.prg UTHISOBJETO CARGAR_AUTO DIR_SISTEMAcargar0obtener_filtroResize'Init1"AqA2qrq!QAAA1qA2AA2R2y 5!R%$H))&%  wFS"z %Z TC!G+(c:\sistema\2000\internet Ta vG+(internet%Cidx03 Qidx03%Cidx04 Qidx04 \tmp\cambios.txtXT C00CCC%ZR%2FC00CCCHZR%2FC0000CCCiZRXT C00CCC%ZR%2FC00CCCHZR%2FC0000CCCiZRaaa=download_http("https://www.bna.com.ar/Cotizador/DescargarPorFecha?filtroDolarDescarga=1&fechaDesde="+xdesde+"&fechaHasta="+xhasta, p_local+"\tmp\cambios.txt") % J =Bajada TC BNA: No se pudo descargar el archivo de monedas (1)sys_monedas_billete.prg% FSC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0 R =Bajada TC BNA: No se pudo descargar el archivo de monedas (2)sys_monedas_billete.prg% J=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt&TCCC C =TCC>[)TCCC;=,.TCC>[)TCCC;=,.TCC>[)TCCC;=,.*TCCCC$* C^:_/-%^j Bajada TC BNA Billete: ID=sys_monedas_billete.prgFC \log\tipos de cambio bna billete - .txt T- T-%  TC % %hCC C 2No se pudo establecer conexin con el servidor SQL \log\tipos de cambio bna billete - .txt% 4C'No se pudo conectar al servidor SQL !!! T-TCgTCgC %% % 4Bajada TC bna billete: Se actualizaron correctamentesys_monedas_billete.prg j %  OBajada TC bna billete: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_billete.prg BU!XAUTXDEVXLOGXFECHABBBCINTERNETIDX03IDX04P_LOCALXDESDEXHASTAAAAUSER_LOG PUB_INDEXMENSAJEXTEXTOXTEXTO1XTEXTO2X1XXX2X3XLOG_IDP_SYSTEMOSQL XCONECTADOOBTENER_SQL_INTERNOCONECTAR XACTUALIZADOXCOMPRAXVENTAPROCESAR.%CoSQLbOC  / !QC$select * from bna_monedas where id='C' bna_monedas%C4TTC.update bna_monedas set ges.bna_monedas.descr='C ', compra=CCZ, venta=CC Z where ges.bna_monedas.id='CC' TCKinsert into bna_monedas (id, codigo, fecha, descr, compra, venta) values ('C', '', 'C', '','CCZ','CC Z') +F - CDOLf%C4 T COT indiceCC Z TindiceCC Zc(FG((IDX04 E%C4 ridx04>  > Ta%CC C CC fecha: C* U$S Billete: C 999,999,999.9999_ / C999,999,999.9999_ \log\tipos de cambio bna billete - .txt %|CC C CC U$S Billete: Moneda no definida \log\tipos de cambio bna billete - .txtBBUXLOGXFECHAOSQL CONECTADOEJECUTARXCODXERRORXDESCRXCOMPRAXVENTAIDX03FCEXINDICEAAACCCZZIDX04FECHA XACTUALIZADOP_SYSTEMXLOG_IDprocesar 1!ArArAb 21AAbAAADbaArBqAAAABbBAB A5 ABAr1rAQ ABAABB2O Lh( @Kgx1j1j1j0\u0\u0\u0\u1Vk6Rc3O`0HXzwslllaa3O`|b6RcpҋwzvF;VfópzqS4*lqCb;VflYyCT}i?[nY߄S}lKgxҿbCbKgx֘CKgxKgxדדגՐҎ̋ɉÆ  ( @   5BCCCCC:'!-<CCCCCCCCCCC?.5~zfd`ivupjqqmj[zr. ͉ȃǂƀsSSR~xyzvsƀǂȃ͉tɅvvshWVU||{thsvvɅɅppncTSS{zyrcnppɅɆllj^QPPx~wun^jllɆɈghfZMLM}u|t}rkZfhgɈˊcdbVHGHxqxqxngVbdcˊˋ^_^R{BDFACF~zR^_^ˋˎ[][PP[][ˎ̏VXXQ̦̦QXXV̏ΒRTURMHFFFFFFFFFFFFHMRUTRΒϕMPQONLLLLLLLLLLLLLLNOQPMϕјHKJC><<<<<<<<<<<<<<>CJKHјћDG?޺޺?GDћԟ?B55B?ԟբ;=ߞ0ߞ0=;բ֦69ޜ+NPSQRUSUWOQSޜ+96֦٫ߟ1ߠ5ݚ'ݚ'ߠ5ߟ1٫ܱߜ-ߞ0ޘ"ޘ"ߞ0ߜ-ܱݴޚ)ޜ-ݖQSVUVXRSVUVXݖޜ-ޚ)ݴݗ$ޚ)ܔܔޚ)ݗ$ݖߙ%ܒܒߙ%ݖߕrߒSTWVWYQSUQSUߒrߕ~T~Tސ{Pގ ގ {Pސىی ؆؆ی ى ƀƀ}궀~} | | | | | | | | | | | | | | | | } ~%O(!2TFVt :T9 RT%  xB%CtmpF Q%Cagente Qagente  T "T C Ct Atencion6% B,CInicio ES_IND_GEN_PDF   5 Ta TaTCXTCX T-% es_ind_gen_pdf(% B T T5TCsessionNG( T T T&%CLASESCCClassLibvf G~(CLASESG+(listadosT T" T %ETCSessionNTC# C$ gesC&%Cagente Qagente'()*+, T'C$%CtmpF QT(-\tmp\C]+h1(.C/CQ( %CC bT,agente.pdf_subir=1 +T,between(cod_age, xdage, xhage)F %" \xchg\*.pdfSCAN FOR &filtroj F T*CO%) G~(CLASESG+(listados%C0MCL %CC'% T+'C'%k1es_ind_sql_avanceC 3_avance_mensual_CC+4.pdfCC+iC+H$+ 3k1es_ind_sql_avanceC 3_avance_mensual_CC'4.pdfCC'iC'H$' 3G(G~(CLASESG+(listadosf1es_ind_sql_avanceC 3_avance_anual_CCC'iZ.pdfCC'i$' 3G(T 3ITC 3!_cuentas_corrientes_pendientes_1_CCC'iZ.pdfD5ve_sql_cuentas_corrientesCC'i$'-ITC 3!_cuentas_corrientes_pendientes_2_CCC'iZ.pdfC#D5ve_sql_cuentas_corrientesCC'i$'- c."\xchg\(\xchg\(7'"\xchg\(c:\ 7C&T 3RTC 3!_cuentas_corrientes_pendientes_1_CCC'iZ _apaisado.pdfD5ve_sql_cuentas_corrientesCC'i$'aRTC 3!_cuentas_corrientes_pendientes_2_CCC'iZ _apaisado.pdfC#D5ve_sql_cuentas_corrientesCC'i$'a 9 ."\xchg\(\xchg\(7w '"\xchg\(c:\ 7C&%C0MCL % T 3-TC 3_pedidos_rechazados.pdf<8)ve_sql_productos_pendientes_de_entrega_v3T 3,TC 3_control_cobranzas.pdf:ve_sql_comprobantes_emitidos_v2CC'i$CC'iC'H$ CCC'iC'H$ %CC'iC'H$CC'iC'H$ CCC'iC'H$ %C3 $/rtmp./ 3C 3_G(% ,CInicio PDFs generados % T<<F T= ~2-\tmp \reportes_C ..zipzT<C-\tmp \reportes_C ..zipC /*.pdf reportes_C ..zip"\xchg>%< ;CError al compimir y enviar C / T==<%4 G( T<%CtmpiF Q%=(TTransferencia realizada !!! <T/Error al comprimir o enviar archivo por FTP !!!% t%;*CTransferencia realizada !!!0x p+CSe han generado los PDFs !!!0x % C )CFin ES_IND_GEN_PDF  BBU?XAUTXMSG XPREGUNTAXDESDEXHASTA XOLDSESION ACTIVEFORM DATASESSIONIDP_DOSP_CODEMPTMPAGENTEXSOLOLOG XMSGTITULOMENSAJEXDAGEXHAGEXPDAGEXPHAGEXGENERAXSUBEXRESES_IND_GEN_PDFONEWDATAXDATASESSIONID1XDATASESSIONID2XODS OLD_P_SERVER OLD_P_CODEMPXFILEXAGENTEXODS2CLASESLISTADOSP_SERVERSET_DS2SETSGESSET_DS1XFECHAXTMPXFILTROXRNXFECHA2FILTROP_LOCALVENDEDORARCHIVOP_EMPEXPORTARES_IND_SQL_AVANCECOD_AGEMES EXPORTAR_2VE_SQL_CUENTAS_CORRIENTESOEXFF EXPORTAR_RECHAZADOS_POR_VENDEDOR)VE_SQL_PRODUCTOS_PENDIENTES_DE_ENTREGA_V3EXPORTAR_CONTROL_DE_COBRANZASVE_SQL_COMPROBANTES_EMITIDOS_V2XERRCEXERR_ACCCOMPRIMIR_Y_ENVIAR 49%CxDSID1bLCxdatasessionid1bN Q T G(T\data\CCZ G( TBUXEMPXDSID1XDATASESSIONID1P_SERVERP_SYSTEMP_UNOP_CODEMP9%CxDSID2bLCxdatasessionid2bN M T G(T\data\CCZ G( TBUXDSID2XDATASESSIONID2P_SERVERP_SYSTEMP_DOSP_CODEMPu5 T T T T C    wconnectT CwwZipN T$TC\ %< %T CFTPNT \tmp\T  T- T+  TC T%  T< B R5T(No se han podido zipear los archivos !!!C Bwconnect BUXZIP XARCHIVOSXDESTINOXCARPETA_DESDEXAUTXMSGD_HOSTD_FTPDIRD_USRD_PWD ES_IND_DATOSOZIPOFTPOEXXERRORXINTENTOXRES FN_PUBLICWCONNECTWWCLIENTZIPFILESXSUBELOCALDIRP_LOCALFTPSENDMENSAJE FN_RELEASEV 4OCC CU CFILEORIGEN CFILEDESTINOTHIS FTPCONNECTHOST FTPGETFILEEXFTPDIRLOCALDIRFTPCLOSE  4TT Ta&TCC  8C C Conectando... C%C FC Enviando... C %C *CDesconectando... C BC kT)No se pudo establecer la conexin FTP !!!C +Debe tener una conexin directa a Internet.% C CBCU CFILEORIGEN CFILEDESTINOTHIS CUSERNAMEUSR CPASSWORDPWD LPASSIVEFTPXMAX FILE_SIZELOCALDIRNFTPWORKBUFFERSIZE ESTADO_INI ESTADO_INC FTPCONNECTHOST CERRORMSG FTPSENDFILEEXFTPDIRFTPCLOSEMENSAJEXMSGXAUT ESTADO_RELqH$j VC Procesados: C_ jULNBYTESDOWNLOADED LNBUFFERREADSLCCURRENTCHUNKAAA ESTADO_INC-4#C*.*U LCZIPFILETHIS UNZIPFILESLOCALDIR, 4C U LCZIPFILELCFILESTHISZIPFILESLOCALDIRset_ds1set_ds2comprimir_y_enviarftpgetftpsendonftpbufferupdateunzz T T T T T T -     U LOCALDIRHOSTD_HOSTFTPDIRD_FTPDIRUSRD_USRPWDD_PWDXAUTftpwwftpqr!AAABqAA!A!ArAAAuqbA"4rA"!ADqAAAsBq!2B!cADDqA""D#DqA"  AABA4rByq"ABBArCqAA2AAAAB2AA2qAA452qRB2t3AArBRrA29B5bqrA1AAB"411BC3q2467QN ib _!t~!<''((+,,-p-'"--.%Y'-0' (0N xÖ̙"͗ ŐƐƐƐƐƐƐƐƐƐƐ̑˕ ̙ t.(3ݣ$0/......../1%ݙ"KU˓@՞!ܤ*ϙ"ϙ"ϙ"ϙ"ϙ"ϙ"٢*՞#Ӛ^Ñ#ԝ'ɕ$ɕ$ɕ$ɕ$ɕ$ɕ$Ϛ%՞'˗%˗%˗%˗%˗%˗%Л&ÖxCŽ*١(١(١(١(١(١(ަ)˘%f{̙̙̍#ݪ#ڢ#՟"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"֡"ՠ#נ#נ$՟՜נ#נ#ՠ#ן"֠"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"ժ"՟"ڪ#ݥ#|+ަ'3433333333333333333)i*333333333333333333343ߪ'|%Ѫ 3֠$ћ ҥЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛЙ֫DۼpЙЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛЛМЛ!֥$2Ԫ"נ#2Ѫu33UU˙l1٪$ת$2ϙgf"6==4irf7f7M8KY%y*˪EҥDǐEo x& 8̙ 7̙ 7`Ö˗gڟ!ϚϚϚϚϚϚڟ!˗gffɗ`1ت$ؠ$2Ϙkؠ$//GG125؄y1.0Eԛ!)ڢ&ݪ'ҥDUU f ٠%63333336٠%UU ff˗c1ء%ؠ$2Ϙkڪ$00KD9:=w0-/ŒCԛ 1./EUU ͗qۡ#ЛЛЛЛЛЛۡ#ΙnUUff˗c1ء%ؠ$2Ϙk٠$//4.6="݇v0-/ŒCћ 0-.ҥDUU "Й!ߦ%Ԝ"Ԝ"Ԝ"Ԝ"Ԝ"Ԝ"Ҝ"Ԟ#&ϘU ff˗c1ء%ؠ$2Ϙk٠$// 4(*1߃u0-/ŒCћ 0-.ҥDUU  ؠ%2000000003ҝ"UU : ff˗c1ء%ؠ$2Ϙk٠$// 4)+-zj1-/ҖDћ 0-.ҥDU Ö͕m؞ ЙЙЙЙЙЙЙЙ֟!ϖpBͪH 9ff˗c1ء%ؠ$2Ϙk٠$// 4)+.zi1-/̙Aћ 0-.ҥDUU : ֟#/---------.03֝#UU ff˗c1ء%ؠ$2Ϙk٠$// 4)+.zi1-/̙ 2Қ1-.ҥDUU Ԟ"&֟$֟$֟$֟$֟$֟$֟$֟$֟$֟$֟$'՝!U ff˗c1ء%ؠ$2Ϙk٠$// 4)+.zi1-/ 1ժ1-.ҥD XfkCkCxC ffff˗c1ء%ؠ$2Ϙk٠$// 4)+.zi1-/ 1Ӝ1-.5UUQU_/|+љqן"֟"-ʑM' ff˗c1ء%ؠ$2Ϙk٠$// 4)+.zi1-/ 1Ӝ1-. 1U [$Hқ!'1001/ݪ%ƹ>ff˗c1ء%ؠ$2Ϙk٠$// 8,/2g1-/ 1Ӝ1-.̙ 2ן#2.ߨ-----0'̙Pffff˗c1ء%ؠ$2Ϙk٠$//ߠ!@ r1-/ 1Ӝ1-.̙ 2Лy2-------ߧ-/ܢ&y,: ff˗c1ء%ؠ$2Ϙk٠$//נ&Ҝ 1-/Ç /֜ 5026\ܪ$.--------ߧ-1ԛ"ff˗c1ء%ؠ$2Ϙk٠$//ء%ԛ}1-/Ċ 9ΔO%ؠ"ۤ"sЖb1----------/נ$ff˗c1ء%ؠ$2Ϙkڡ$33٠%ԛ}1-/̙F֪!1----.+: ff˗c1ء%ؠ$2Ϙkқyݤ!ޥ!wԛ}1-/ǪE֠!1----$8ry}y}y}y}{UNff˗c1ء%ؠ$2Ϙkԛ}1-/ǪEқ}1----m{ ff̙d1ء%ؠ$2Ϙkԛ}1-/ǪEƪ6/----z|))))-ۏݙ"Z1ء%ؠ$2Ϙkت402ʖIנ#1---z|))))+ 6ǓS1ء%ؠ$2Ϙk|%ڢM̖LӛM̙%'0--z|)))-ڢ˔T1ء%ؠ$2Ϙk6-1/"{{)*- .E ˔T1ء%ؠ$2ϘkÖܢ &t!-* ˔T1ء%ת$2ݪ"ic#9 "2ǓS1آ$נ#3ݪ"iʕM1ס$ܪ(3ס%љjΙ_͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘a͘aѪ`͘a͘a͘a͘a͘a͘a͘aѪ`͛a՟"1ՠ$̙(ߪ&322222222222222222222222222222222222222222222*U*ܤ#ݪ$נ#ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ՠ$ؤ%ߪ$ǓS00@xpp0>`0>`p>>0088xx%(3+)s[bUY TC$TC]T tmp_periodos+listados F#6 Tdlc_informe_mensual( #TCCC=gCCRg$% NT  T  TC $ETC C  6C   6$ CBUXFECHAXFILEXALIASPERIODOS_MENSUALESLISTADOS TMP_PERIODOSXIDIDDLC_INFORME_MENSUALXRESXANOANOXMESNMESXDESDEXHASTAPROCESAR%,sys_procesando Inicializando%Ccuentas XQcuentasF-C2\S TTC%T#C#%%Cejercon QejerconF C C odiXco       -QQC(XQC     diario2sys_procesandoProcesando Ingresos5ocuentasC\SC$\S C\S C%\S C\S C2\S MASTERC VISA AMER MAESTR ELECTRON DINERS NARANJA CABAL cuentas_fondos& FG-(">aCcuentas_fondos+ odiarioQXcuentas_fondosQ# cuentasQ !CC  - C"ȲQC  RAVcd12 $C c1Noc1CQ&CC6Q'c2[oc1c2%%(%( (' % ingresos1$o ingresos1c1& CZCZ%FG-(CZCZ%*>IngresosCc1+ mo ingresos1Q+!ingresos1sys_procesandoProcesando EgresosGodiarioQXcuentas_fondosQ# Xco     cuentasQ Q+!CC  - C"ȲQC  OA $P   c1Noc1CQ&CC6Q'c2loc1c2%%(%( ('(& (' % egresos1& CZCZ-doegresos1+! egresosFG-(CZCZ->>EgresosCegresos1+ odiarioQXcuentas_fondosQ# cuentasQ Q+!  C  d1Nod1CQ&CC6Q'd2_od1d2//0/0 0'0& 0' resto1& CZCZ1;oresto1CQ2saldosoresto1Q4cuentasQ saldosQ54444444Q+4!44 4 45 reoresto1Q4cuentasQ saldosQ544 4 45 44dre& CZCZ6FG-(CZCZ7?> Otros egresos Cdre+ %-boresto1Q4cuentasQ saldosQ5C44Q+4!4444 4 45 52 - !4rioresto1Q4cuentasQ saldosQ544 4 45 52 - 44dri& CZCZ9FG-(CZCZ:@>Otros ingresos Cdri+ F=> Dbito de cheques2 B> Compras Ccd $P @> Depsitos bancarios D OodiarioCQ&CC6Q'difo& CZCZ(borrarFG-(CZCZ;=>  Slo fondos;&;' F> No afecta fondos fondos ;' G-(oLegresos!+EQ=Gre!+EQ=ingresos!+IQ=q1p>++c=IVISA MASTERCARD AMERICAN DINERS CABAL %>=R RETIRO SOCIOSMoq1!C+Q+=!==<qoq1!+Q+CCHEQUESCCHEQUES(CCAJACCAJA(CBANCOCBANCO(CRETENC RETENCIONES(CCANJECCANJES(mCVISAMASTER AMERICAN DINERS CABAL CBANCO(C(666666Q@=I@!ingresos_detallados*(B\data\ingresos_detalladosԻFoingresos_detallados@C+Q+@@ingresos(B\data\ingresosԻQoq1!C+Q+=E!!egresos(B \data\egresosԻaoq1!+=Eegresos_detallados)(B\data\egresos_detalladosԻaoq1!+=Rretiros_detallados)(B\data\retiros_detalladosԻEsys_procesandoDFinternetB\data\dlc_informe mensual.xlwopenBUH SP_MENSAJESYS_PROCESANDOCUENTASATRIBUTO XREDONDEOCOD_CUEXDFECXFECHAXHFECEJERCONEXPANDIR_DIFERIDOSEXPANDIR_PROVEEDORESDICOCONCEPTOTIPO2FONDOS PROCESADOTXTASIENTOEJFECHADEBITOCREDITODIARIODESCRCUENTAS_FONDOSCUENTAFORDCOMPROBCAUCABREV COMENTARIOFPROCLIC1PASES CANT_FONDC2 INGRESOS1DISTINCTIMPORTEINGRESOSEGRESOS1EGRESOSD1D2RESTO1SALDOSALDOSRSREDRESUMRIDRIDIFOBORRARTIPOQ1QGRUPOINGRESOS_DETALLADOSP_SYSTEMEGRESOS_DETALLADOSRETIROS_DETALLADOSSP_OCULTAR_DEFINITIVAMENTE SHELLEXECINTERNET;sys_procesandoProcesando Cheques Diferidos%CcoYFQ%Cdi{FQF-C*Q\C  \conceptoF ( \tmp\concepto)Q\C \diariogF ( \tmp\diariogF Q \tmp\diariogF Q \tmp\conceptoi1di Ni1co NF> F> FT-CF%\C \diariogF&\C  \conceptoF> C F> C CBU SP_MENSAJESYS_PROCESANDOCODIEJERCONXFECHADESDEHASTAP_SERVERDIRCONCEPTOP_LOCALDIARIOGEJALLXFECHA2FOREXPANDIR_EJERCICIO'4sys_procesandoExpandiendo Ejercicio%Cchp XQchpFB>CCCCCHEQUES DIFERIDOS=,gO4>CCCCH.N,gCH.NK(   odicocuentas     C 2   ch1 ~7%CC ZCZchpid%C T  TC3 $ .TC3 $TTTTVocom_oper! "% v %arT#T$T%C%cuentasabrevT%F"K#$ (& T' & F~#$ n T( T) % ^<*^(*>' T+CO_* >>(' >> #+-%    <*^(* T+CO_* > >> >% #+ > F -# %C4 j(rco# CTally=0,FK(-. :%C -?C .? (CControl de particionamiento,BU/ SP_MENSAJESYS_PROCESANDOCHPDINUMERO COMENTARIOFORCAUDEBITOCREDITO XCONTROLD XCONTROLCCOTIPO2CUENTAS COMPLEMENTASIENTOEJCOD_CUECH1SUBNUMFECHA XDEPOSITOXCOMPROBCOMPROBXCAUSAXNUMEROXCUENTADES_VALCAJ_PRO DIF_VALORCUENTACOM_OPERCAUSAARR_CHQXASIENTOXEJ XCOMPLEMENTXCREDITOXCOEFXDEBXCREAAAXREGSYS_M XCONTROLD1 XCONTROLC1,%Cccprov *Qccprov%Ccompras ZQcompras%Cproveedo QproveedoFG((cuentaFG-(7~C\S P ! T Ooccprov    cc ~F- %C4T 5%Cproveedocodpro C T T 100000000F >BUCCPROVCOMPRASPROVEEDOCUENTASCUENTADICOD_CUEATRIBUTODEBITOPROCLIXTOTALREFCAUOPRIMPORTECOD_PROCOMPROBCAUSACODIGOCCOPXGASTOCUE_COMprocesarexpandir_diferidosexpandir_ejercicioexpandir_proveedores%tQ3RQPAB31Arqu1Arf %Qr$DasqqbAsq b`0 0!esq0 M bsqAu%rqedQSfBB25qAA2qAAu!qqsrrruA!rQrarQrQE4DRAt"BvO rQaAaAc"r!BwrqaRABqRABrACCAACrqAD3!A1AAArrtz ARaABrBBA1?Ew?DDQQLY %z n~ANӘeG_ G~(clases<7TC abm_plandtosNTCU- BUCLASES POABMTEXTOS POABMPLANDTOS SOLO_LECTURAACCESOSHOW  ges%Cplandtos FFQplandtoscodigo%Cproveedo FQproveedocodigo%Cbancos FQ\bancoscodigo%Ccuentas FQcuentasFBUGESPLANDTOSCODIGOPROVEEDOP_SYSTEMCUENTAS[ TTtlineas3 dlc_funcionesBUXFILEXALIAS TRAER_TABLA DLC_FUNCIONESP_CODEMPe TT tproductos: dlc_funcionesBUXFILEXALIAS TRAER_TABLA DLC_FUNCIONESP_CODEMP ABMPLANDTOSLINEAo TT tsubproductosA dlc_funcionesBUXFILEXALIAS TRAER_TABLA DLC_FUNCIONESP_CODEMP ABMPLANDTOSLINEAPRODUCTOq TTtmedidasH dlc_funcionesBU XFILEXALIAS TRAER_TABLA DLC_FUNCIONESP_CODEMP ABMPLANDTOSLINEAPRODUCTOSUBPRODx TTtcoloresO dlc_funciones BU XFILEXALIAS TRAER_TABLA DLC_FUNCIONESP_CODEMP ABMPLANDTOSLINEAPRODUCTOSUBPRODMEDIDA C TFEcodigo+oplandtos abmplandtosF abmplandtos(FQUXCODIGO OPENFILESXTABLAPLANDTOSCODIGO ABMPLANDTOS XRESULTADOu 4FG~(clasesTC hlp_dlc_lineaN < TBUVARIABLEXFILTROTLINEASAYUDACLASESSHOWCODIGOx 4FG~(clases TChlp_dlc_productoN < TBUVARIABLEXFILTRO TPRODUCTOSAYUDACLASESSHOWCODIGO{ 4FG~(clases#TChlp_dlc_subproductoN < TBUVARIABLEXFILTRO TSUBPRODUCTOSAYUDACLASESSHOWCODIGOv 4FG~(clasesTChlp_dlc_medidaN < TBUVARIABLEXFILTROTMEDIDASAYUDACLASESSHOWCODIGOu 4FG~(clasesTC hlp_dlc_colorN < TBUVARIABLEXFILTROTCOLORESAYUDACLASESSHOWCODIGO openfiles traer_lineastraer_productostraer_subproductosi traer_medidas3 traer_coloresmostrar_plandtos bus_dlc_lineabus_dlc_productobus_dlc_subproductoIbus_dlc_medida bus_dlc_color x Ta%T .nombre, .codigo, .idu 'T "NO USAR", .codigo, .idu TplandtosT TcodigoT abmplandtos T -T X!T Planes de DescuentosT plandtosT hlpTcodigo T(TdescrT DescripcinTdescrTC T TcodigoTCdigoTcodigoTN TTdesdeTDesdeTdesdeTD T4ThastaT HastaT!hastaT"D T#-U$DOS_AGREGAR_SI_FALTA DOS_BLANQUEADOS_BLANQUEA_VALORES DOS_TABLA DOS_COPIARP_ESPEJA_PLANDTOSP_ESPEJA_HABILITARIDXCLAVE FORMULARIO CLAVE_UNICA ANCHO_TOTALTITULOTABLAIDCLAVEANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1ANCHO2CLAVE_BUSQUEDA2TITULO_COLUMNA2ORDEN2 TIPO_CAMPO2ANCHO3CLAVE_BUSQUEDA3TITULO_COLUMNA3ORDEN3 TIPO_CAMPO3DEVTLineasTtlineasThlpTcodigo TaT TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNUTITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1T ProductosT tproductosThlpTcodigo TaT TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNUTITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1T SubproductosT tsubproductosThlpTcodigo TaT TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNUTITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1TMedidasTtmedidasThlpTcodigo TaT TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNUTITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1TColoresTtcoloresThlpTcodigo TaT TPTdescrT DescripcinT descrT C T T codigoT CdigoTcodigoTNUTITULOTABLAIDCLAVE CLAVE_UNICA ANCHO_TOTALANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 abm_plandtoshlpabm2 hlp_dlc_lineahlphlp_dlc_productohlphlp_dlc_subproductohlpphlp_dlc_medidahlpC hlp_dlc_colorhlp arqQB2AAAArA1A1A2qA2A2QA2QA3qrr1ttA7rRrqRB2rRrqRB2rRr1qRB2rRrqRB2rRrqRB01TqRA2Q1!!111!!!!!!23A1!!1114cq1!!11141!!1114CQ1!!1114CQ1!!1114 S9a#Ug( m- ^ s2x > y7\ C O[ gs{+2Lf% k QlO G(9 $TCX TC$ Tauni_remitos_lince(% B C in_comienzo%Cuni_tmpF Q%Cuni_tmp1F Q%Cuni_tmp2F Q T a =Q 5C(Archivo invlido o no se puede abrir !!! T -F ( \tmp\uni_tmpQ \tmp\uni_tmp%  CB,sys_procesando InicializandoT0T0i1uni_tmpC0>C / CCZ Fec: C*i1uni_tmpCi1uni_tmpCi1uni_tmpC%i1uni_tmpN%i1uni_tmpNi1uni_tmpCi1uni_tmpCi1uni_tmp Ci1uni_tmp!N%i1uni_tmp"Ni1uni_tmp#Di1uni_tmp$N @>%&c #$COC Suspendo?a'.T(CCN 8CCCNG6 )* T*)((cGsys_procesandoProcesando lote CC)Z de CC(ZHouni_tmpC$))uni_tmp2T**C+,sys_procesando%*2C%Se han registrado los movimientos !!! 8C+Hubo un error, no se ha registrado nada !!! BU- ACTIVEFORM DATASESSIONIDXARCHIVOXFECHAXRESUNI_REMITOS_LINCEABRIR_TABLAS_FIJAS OPEN_FILES IN_COMIENZOUNI_TMPUNI_TMP1UNI_TMP2XOKMENSAJEP_LOCALADIOS SP_MENSAJESYS_PROCESANDOXDEPINGXDEPEGR COMENTARIOREMNUMRFCHRALLATRBULCODIGOENTRASALEDESPACHODEPINGDEPEGRCOSMONCOSTOFECHAITEMMARTCANTISYS_MOSTRAR_SCREENXMAXZ XRESULTADO TRANSACCIONSP_OCULTAR_DEFINITIVAMENTE~%Cuni_tmp#FQ%Cuni_tmp1KFQ%Cuni_tmp2sFQBUUNI_TMPUNI_TMP1UNI_TMP2RTC]T\tmp\+in_operacionestemporalF ~xrtemporal     00  T T T T T#in_operaciones BUXTABLA_TEMPORALXPATHP_LOCALCREAR_TABLA_TEMPORALIN_OPERACIONESUNI_TMP2CODIGODEPINGDEPEGRENTRASALEDESPACHOBULATR COMENTARIOXDEPINGXDEPEGRXTIPOXMOTIVO XRESULTADO WRITE_DATAadios transaccionAAAbqAAqAAqAAQBrAAQQQ rRt"B2Q!AAB4qAAqAAqAAA 1uB51M ~\ @@ (B(@ BttpcAȭǧrWW7Cq8h3e 7hGzʫujNPz.>l5g 4f 8i>mBpCqCqDrL}%ʫҹf`AHu&;j5f 5g :j?nBqDrDrDrDrDrDrDrDrL}$ϵȪv\Y:Dr8i4f 6h;k@oBqCrDqDrDrDrDrDrDrDrDrDrDrDrDsnQpnnnnnnnnnnnnnnnn}oT.a4f 8i=mApCqDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrBqBsCtCuCuCuCuCuCuCuCuCuCuCuCuCuCuCuCuExS0pT;kDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDr8hyn>n>n>n0dy^.b>n>n>n>n2flQ:nrW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrCrDrDrDrDrDrDrDrBpMx+U}4T|3T|4T|3Hs&rEq$T|3T|3T|3T|3Iu'}f:nrW;lDrDrDrDrDrBqAp@oCqDrDrEr=m5g 4f 4f ApDrDrDrDrDrDr5f Ũ:nԻrW;lDrDrDrCrFs"CpGs"It%@oErDr=mX6r]==mDrDrDrDrDr>njNnmmm|dʹxcmmml{e:nzP(N'rW;lDrDrDrpU6iDrDrDrDrDrDrDrDrCrDrDrDr8iuY4f DrDrDrDr8ipV:ndJ|"I| erW;lDrDrDrDr:kZ;It&.aһ7gCqDrDrDrDrDrDrDrmeH8jDrDrDrDrDrDrDr8jտҽԽ:nàHy!L~$ʫrW;lDrDrDrDrDrn:k;k;k;k-auX*_;k;k;k;k.cjO:nT~2J}!˭V3orW;lDrDrDrDrDrDr7hmR=lApDrDrDrDrDrDrDrDr@oY9jJhIhIhI^?£[=iIiIiIiI^@x:nQ~.~eG{lkIhrW;lDrDrDrDrDrCq6gԿ̷l4e DrDrDrDrDrDrDrDr4e ͱ:nZ9Ez|ţJ~!^>дL~%BtlPrW;lDrDrDrDrDr8hiLW~7@n@oDrDrDrDrDrDrDr>moSvsssj϶gqqqqi:nFyK~"vHx!Pz-V4BsL}%ҷrW;lDrDrDrDrCq5fѺw&[˲u3e DrDrDrDrDrDrDrDr ;k5g 5g 5g 5g (]qU%[5g 5g 5g 5g )^fI:nL~#Ct^?Fs"Gs#S~3CsJ|"rW;lDrDrDrDr9jgJMw+3e jPDr!?nCrDrDrDrDrDrCrCqCrCrCrCr7h{`4f CrCrCrCr8ipU:nzJ|!BrDrDrBqEwz`rW;lDrDrDrBq9iԾ¢3e Cq9i4f DrDrDrDrDrDrDr;k6g6g6g6g(\rU$Z5f 5f 5f 5f (^eH:nsJ|!CqDqFwdErW;lDrDrDrCqDr rX~dyX8=mDr 7hrXKv)@oDrDrDrDrDr9jxδβββʮǨ̮̮̮̮ɩ:nlJ|!CtW4rW;lDrDrDrDrCq:j6h4f >nEr DrDr=m=lBqLw)Ht$BqDrDrDrDrDr7g:ny^Z4rW;lDrDrDrDrDrDqDrDrDrDrDrDrDrBqAp@oCqCrDrDrDrDrDrDrBoAo@n@n@n2d {a0b @n@n@n@n4f nU;nrW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrBqBqBqBqBq5g |a2f BqBqBqBq6i oU2k~죚餘餘餘饚认饚餘餘餘餘餘餘rW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDr=n:k;k;k;k-av[*_;k;k;k;k/bjO*eÚzmRl鳪rW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrAoW7dHcFcFcEX:W~7cEcEcEcEY;t+^{g갦rW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDr5fŨ+_־ye걧rW;lDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDr5ḛ)^ֽye걧tX9jCrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDr;kvʮɬɬɬɬɬɬɬɬɬɬɬɬɬɬɬˮ}c+a{h갦~gIx!K|#GxDuBrBqCrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDrDq=p=q=r=r;p)i 'e(d(d(d(d(d(d(d(d(g (h 'c)f\v0nXy궭˭{`]RUjiSeMfMfMfNeL^EfNfMfMfMfMfMfMeMgOiN鼵ؿicCMy*M|'I{!FwCtBrCqDrDrDrDrDrDrDrM}%зm]ryd걧 wmQS|2M|(J{#FxCuCsCqBqBqL}$ʫmZryf걧ɪv\Y9M{*K|%HyL"ȧmZqye걧ӹkӼmZr{g걧mYkr]곩lWaHfOeNeNeNeNeNeNgO_E^EgOeNeNeNeNeNeNfOcK\AcLfNeNeNeNeNeNeNgOhM鼵lX~iua곩mZszf걦mZqye걧mZrye걧mZqyf걧lWiQp[oYoYoYoYoYoYq[eMaHp[oYoYoYoYoYoYoZmW`GjTkUkUkTkTkTkTkTlVkQ鼴lXļúúúúººż|v`ļúúººúúûoYr귯mZt{g갦mZqye걧mZqye걧mZtzg갦lXus]jR~dL{{d깱mXR5P4P4P4P4P4Q4Q4P4WR hѴ ƙ4CC2*Q?2%q2=oclientesQ4XccclieQ2 2%4%4%45CCC2& (Vcd 2* 6QBCCC2& (Vcd 2* 6QCCCC2& 2* 6QD2(Pr 2%q3oq3Xq2 A%E%E%E5CA6Q6CA7Q7CA8Q8CA9Q9CA:Q:CA;Q;CA<Q<CA=Q=CA>Q>CA?Q?EBECED67 8 9 : ; < = > ? B C D E51F\tmp\# TGCNQ%G$ +CNo hay datos para exportar !!!H FBG+(listadosG~(ClasesTJC ExportacionesN(TKCExportaciones_ParametrosN+TKLFacturas a Cobrar al C*TKM#!TKNFacturas a Cobrar CKO CnombreClienteKO,Cant2 Anterior al C*aKO-Cant1CP/CPaKO?Csem1Semana 1 CP CCCiZaKO?Csem2Semana 2 CP CCCiZaKO?Csem3Semana 3 CP CCCiZaKO?Csem4Semana 4 CP CCCiZaKO.Cmes1CP CCCiZaKO.Cmes2CP CCCiZaKO#Cmes3 PosterioraKO%C saldo_actuTotalaKO+C facturacio FacturacinaKO(C cobranzas CobranzasaKO3C saldo_ante Saldo al C*aKOTKQCKJR G(9ST  FUUXDEBUG XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPXAREACCCLIEXHOYXSEM1DXSEM1HXSEM2DXSEM2HXSEM3DXSEM3HXSEM4DXSEM4HXANT1DXANT1HXANT2DXANT2HXMES1DMES1HXMES2DXMES2HXMES3DXMES3HXTABLAXMES1HCOD_CLIFECHACOMPROBCAUSACUOTAIMPORTEVENCFECREFREFCAUCUOCANCELQCCQ1CLNOMBREANT2ANT1SEM1SEM2SEM3SEM4MES1MES2MES3 SALDO_ACTUCLIENTESQ2 FACTURACIO COBRANZAS SALDO_ANTEQ3P_LOCAL XREGISTROSMENSAJELISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGARMES EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDqAQ"2ArA!A2uR2aA@)pB2AA$!1Q1 A1  ( @ ||||||11C2Fw~7#||||||C**mGeul 22pyC|||ff?/Pg#$%&+,23 77XXWQ11e|||===$$V.rad{ ))-../.0/1./24!#66~MM~X6==W-Bo !"((+,0201/0/1/10214248:%(77xw88m!!B 'W%wjj!"| !b #i+-46141313354647586969A.165SQ5K+-58473636(,]FHW,/x@>BDG5954a^[-06958698;16}*,PPRa/2T;>ACAD@DBGEIGKIMQSCF55urw13:=9<:=<>AADCFEHHLPR-0i=?PTVaa_aceefiihi:: =?JMJMMPPRSTUW[]QSHI]x{|?BX`akllmoprrtt||AA EHZ\Y[[]^_`acdegln?Au-0=HJ{{{z{z~}QP{x¿!!IKhieggijjmmoprrwwppFGahixABfoncab`¿iFGyysrvvxx{z~}onIKaWX~HGF]CA爇~__no|hiibaMK!!Q+::ˆ}zc`JIML]Z_ZL@$!zxrpeeeyzxdbTRCA6:/F%M!K 2!b=slҾѩc<%[#&XXddb_$#tm'p#c,"IsU-_A׎ުӂL!khg cH++Ұx46\40^2?m29!H_bS&Yć࿃cOE^LQ\\"8k'&)*a.(Z,=p0 9/SnbbuO:Ihc__rxn8B娧II111::e">=sqxIRCd/ 9`rjWngheϲujYN!VT`nZTlkbeM]Nz(!9[}P~~~~Z>2,ʎKXQu͡R;+?? t~47=: yv qo,,E uuu qke,I??Xjkk蹹=;-C\C@{Sir9}N(ryȉجЫi}],gaH&;008\\kQQQ??? waRVG>+$Yh~z)+fsƘzkdX\OIbbf8QQQmQH7ɚ]sխ֎Kd#d[TQiys꩏ntauYHE+:F1!R\F갍xm`e^[EffY_PK2l ʎݤІrjԠ5RD)$gVNlSH򯠙˻~tķZODr^PP"XC8i]UrO8թkԕ̣QΉ`vT.)N5PfXPzeYtg]pcџ~[US|{Qȃܟ͠EP7(I2Yd@<8:PB:`L@iYNtol°{rH55 T#dҀ~-|||]FacAIeee xiieeeB;;)̾ƽýd\TaMM W/kԔ>N֣.pGCMME ]}uxsxqwn~tluh`{_SO?TT? sF%rx-Ԝ"Ȋ aH>||||||kbbrff'TTT[CC4}P*]7q?@A  ( @ ||||||:::%EEE_CCCf%%%||||||... KKK%222=777ZNNNtTTTLLLaaakkkv;;;@... |||rrr &&&***6KKKW@@@lJJJ~ZZZXXXXXX[[[QQQrrrSSSh...*KKK|||======DDD3222LEEEhRRR}TTTWWW[[[[[[YYYZZZ[[[]]]TTTqqqFFFV444JJJ"???ELLLdHHHvVVV\\\ZZZZZZ[[[[[[[[[[[[]]]^^^^^^bbbWWWssspppy888D111 ;;;HHH8555TKKKpZZZNNNAAADDDWWW___\\\]]]]]]___``````aaabbbbbbfffZZZrrr[[[f CCCPFFFqVVV^^^\\\]]]@@@zzzAAALLLddd```aaabbbcccdddddddddeeehhh]]]qqq'NNN{\\\___^^^^^^aaaBBB҄NNNRRRiiiccceeefffggghhhiiiiiinnndddqqq999COOOz]]]aaaaaaaaadddWWW===XXXۄDŽAAAiiinnnmmmlllmmmqqqrrruuuzzzqqqqqqKKK]RRR~aaaeeedddeeefffggghhhPPPLLLqqq222???LLLyyyzzz}}}rrrŅMMMpRRR~dddiiiiiilllnnnpppsss}}}KKKхƅFFF~~~ttt˅ŅŅŅÄȅNNN{TTT{llltttuuuxxx{{{}}}zzzRRR݅zzzKKKyyy҅ʅ˅˅ɄͅÄPPPTTTstttZZZم555hhhمх҅҅Єԅ˄TTTPPPeyyySSSÅ܅pppSSSڅ؅ׅׅք؅фVVV===Myyy~UUU녒ooo݅߅݅݅܄߅ׄVVV###1wwwztttuuuhhhwwwŅńą̄ڄSSS999mmmkxxxlll___ׄڄNNNzeeeGGGQ|||tttsssoooiii___^^^XXX@@@ggg݅„҃LLLh5554Ƅ\\\GGGDDDGGGaaammmwwwzzzYYYs999\FFF^…σ~~~gEEEQ녔ȅAAAE000eeeoͅHHHHHHGGGOOOpppxxx~~~@@@3ZZZP{QQQE|ʄ888Dτ]]]EEEAAANNNpppxxx~~~}}}NNNCkkk)QQQ4hhhT~kkkyuuui111OOOrrrq⇝GGGeeelllqqqyyyvvvphhvvvVssse\\\IYYYYɇ܇燩222:...,懏xxxyyypppyyysssyyy*FFFwh555!===Bjjjcooon@@@e===Y===:888uuukkkDDD ///8zЇttt]]]zzzvvvjjj{bbbRRRL·mTTT6CCC444ccc QQQ???MdddjJJJF>>>7HHH@ZZZLyyy{nnnRRRydddQQQZZZ|˄كՇyUUU4VVV7{|||^^^g111333+hhh{qqq```$___ UUUcccmۃ̇x===ZZZfZZZOOO<WWWHHHE___ZUUULׅ‡mPPP>GGGGuuu{'''*[[[giiḯ͇Ѕل̄uhhhLsssnWWWAMMMKȅq111---/kkkOOOF<<<EEEDPPP][[[dpppWoȇ˃كуȄzzzO>>>UUUWlllW|||<<<3999&eeepppeee>>>fÇ͇Ӈ·LJć|\\\EWWW7778x;;;#III1=zzzM{{{`zzzhuuuXjjjAWWW!IIILLL0 THEN this.mostrar_alerta(oAlertas.Cola(1)) ELSE this.mostrar_alerta() ENDIF ENDPROC PROCEDURE Init BINDEVENT(oAlertas, "Cola_Modificada",this, "Cola_Modificada") ENDPROC _"FF.%Uc)%Cthis.Parent.oAlertabOBC \CUOALERTAS QUITAR_ALERTATHISPARENTOALERTAIDCOLA_MODIFICADAClick01A1)F"%tUUTHISPARENTOALERTAEJECUTAR_FUNCIONClick0129)"g%O#UL*QALERTAsys_alertas_Spool.prg%CoAlertabOTTT  T  TTTT   5T TTUOALERTASYS_ALERTAS_SPOOLPRGTHIS LBSUBJECTCAPTIONASUNTO TOOLTIPTEXTMENSAJEIMMASVISIBLE LUPA_VISIBLE FORECOLOR TEXTO_COLORFONTSIZE TEXTO_TAMAO ALERTA_ACTIVATIPO ALIGNMENTTEXTO_ALINEACIONIMBORRARCERRAR_VISIBLEMOSTRAROCULTARYTa>TC  6 UTHISVISIBLE LBSUBJECTWIDTHIMMASLEFTIMBORRAR VISIBILIDADT- UTHISVISIBLE VISIBILIDADU%7CC N CUOALERTAOALERTASCOLACOUNTTHISMOSTRAR_ALERTA63CCola_ModificadaCola_ModificadaUOALERTASTHISmostrar_alerta0mostrarocultar/cola_modificadanInit1aaaaa1aa1A222qqA212ZxBh!D&)%$ZV3'%Cccclie *Qccclie%Cven_oper \Qven_oper%Cccvent Qccvent%Cagente Qagente%Cclientes QclientesT.t.%C C %b9T,betw(val(vo.agente), val(xdage), val(xhage)) *Tbetw(vo.agente, xdage, xhage)select vo.fecha as fecha_rec,vo.cod_cli,nvl(cl.nombre,"DESCONOCIDO") as nombre, vo.comprob,vo.causa,sum(vo.caj_pro) as tot,vo.agente, nvl(ag.nombre,"DESCONOCIDO") as vendedor from ven_oper vo left outer join agente ag on vo.agente=ag.cod_age left outer join clientes cl on vo.cod_cli=cl.cod_cli order by vo.causa,vo.comprob group by vo.comprob,vo.causa where between(vo.fecha,xdfec,xhfec) .and. (vo.causa="R" .or. vo.causa="A") .and. &filtro into cursor vo uovoXccclieQ           vo1ovo1XccventQ   CRRCCAAJ 66QCVFC{CcNCcCdNDKCRRC3CAAJCLAS666666QC= 00C[QQQQQ Q!C   6Q"vo2F#9($\TMP\rpt_sel_libro_viajantesNDF#QFQF QBU%CCCLIEVEN_OPERCCVENTAGENTECLIENTESFILTROXDAGEXHAGEP_AGENUMVOCCIMPORTEREFCAUCUOCOD_CLICOMPROBCAUSAVO1 COB_CAUSACV CPBT_CAUSAFAC_VENCPBTFEC_VENFECHADEUDATOTALIVA_VENIVATOT_VENDES_COMOTROSNETOCOEFAPLVO2P_LOCAL!AAA!A!AAAAAUrrArArAB1PNG  IHDR\rf;IDATx}$UWs a E0cX״3(A1.kUiy^ίs9VUWqaίUWWWݺ; \lv6@_@5[fkC5ٚnMhf;[fkC5ٚnMhƓsM>>۰+P*t>V-`P7gÊ ^oƭ 6iD=R-$/(JK* fVm[E X,<@_ښl ۧb544h4Rl˂B4=BM߶`ѫŸ;!f}Tʲ%[!0}PoMh 3hh$a `H-؅2is9M$O@f9iLZōC5jgc/o$U \8mcHrUܨ){ 2d\0(3lY|̆*32vPjMh62]N; %@aJ(o;_UkLJgc!X$Ȑ{2 YW }5C5DDcmZ e1گZ  ~48t C`R8 >3yD*O/ yޚl,jܶJ-@0Щi0I#0w 9=pcV@@_36ne ^ ͆Oǒg ~Pfؼ`79m7@@`V<ӠH[Y1wEf^ x#i/Ռ#WiX_4ɧB'ckX\k>|Kʲ/*3=}BjM8iW4$Z4ltCʁa̚!լb`1X8{Fߒ@ `@O,,gYgȲyufdJk!޾O^K%DY4ӄ6w.BsXJGi BSf?˞ !@  ~@ 5oW'?\:!oM# {,9sPٲd$`PiHJyɌYwP7bWLAsvKd`g 3{{MWfF6;[F# 'D㏇J[*5t`b<:t ?AY@<¼H1#8c谽 `e:״N#s`߁Ã5oW&_[>2[ӱ4`4+D.@uPM x@.=Q9gnqgΏ`6=CU*cm+{-W7uk!>OjݸVוIvŋXs8Fi.30O;3NfI@N9HvҖ$:B,[]@αRgß>x&XelU  d>{v .Y !lيΝ AY{si!( gEXHOwm"*d0XJ+3#O<[ _Jtff:NBXLc315k*;v&6s?  -Z%5[-xm;W`;}T*|gmKfAk!.!~T=O^J3~ I:1-c?VQˉ`@K-3y%&G ,b_ƾt-IӏA њpOǒ׵QI?JoJGxg~>bM` R75D?"~<\v |4gr0d9|GwyB.FIhM8i'hKa[8QBWӅcrfNs+)#8֍0*^֡iؽ_7Ï<+gm @2\Tk#R/c?;j-rIccyfe҅@i<'`F@P5`9F|;Y1W Aۄڇ1(\C>Q⪯]?0?@&m/t؟{A,TmwFj ~̯SGMǤ6mBvI:B,ȸ聁, c~0Qg0Oy7ބqv.t}!5>L/Mb;^S,\&Aa{2>{~=oexBU>P3.N8k%5qn"OB `vt-א۹g!<]p+Y>j&йz!vJ})/A~qG.CL!P.q l3kwJgPD?gv (S|[ȥ7o)gi:F'iٺ&&P~B!B񟎇jN I6GAqԭsޚk|jpc )cHk;$rp ZboT`P0I_L)UkM4`6ܯ cL%I^11}mԡ\GrJ/OOP"!i xܑ[!J8r۶!oɸf<^vFND_lS8%d4,Lق/A ⻷.LSq.Q8Xiw7egb,2stY NL+p!^`˗->mE"Ymto{WOԦe;1hԃBTߤ-Ldl']שɼ~^uUH 9-J6?ž=(7 yQmzנ4:O%Ie;j{h#:@Zӵg, б8Vm}7!4K_`pp.T>&LL7xdwS?g@T)W*(M1<j=J_ 6`!5Bnc(1)tmA\ϑ}kߺ{v4Y@]{>d~#YsozO_BYlpbd`Pm9̸^k*OY$PHo}=ۺ{6ә-CHp)!N`z 4vluc%Ѷ?|W+ADKy=eB&+Z\J7  K4 .ď zP9gš!{1̷: Ⱦkт$!QԴ$߉}^Z',5,iO@%vpB;B_hp3p57oǮ=?Fm?G`&|ȴ#Lf xk׬~rU'pLK$DК`(,yo1eKT%BXpQLik " J]=}}[޼Aa|+x >&+~a늢}6D l>'$z֚WJJgJ<|?\Udv> :&]Z"!ƒ&}o{PJaV,ynMXbNᠤv]0c%A|U0z97! 6@+=1q}q݄9cÃ>S@7󧾯fn=`&Db't.z]zd["Q͂F \]`7i @NSչ3 JP 1g8lAjUU!{\k FFGqb;ڹk϶>B&AZ"7cWU"^)q)劣9eZEU8SeI2==} l߹{66@l+\]|_ H?- 5uAH}dkP΢ġűEB-$VJ za2sI@ޚMS `")VPvЊ؍ksOlx@\& g|[ӖcM> XL u= alL)`i|~f;j\-Ϲt#$7r0KUԄ+LjB&]g4 8O׽x*q`px+I>/-ĵ_N?~\ԣVC9b龲OVPܺ 4ͳ]Ͽ' p}V=_7ف1'8>aZ03`A#N?S/pNLN;X5 e E24 `{..{CE5?p;44n7\~qGCL5n#{?@m@Tl%RQ\4D!7h?xM sB^!X9ᾲ PЄL AP57ф~&DbH[(0Nvhx77o`=6Gǟ|OQv%b(o,=Ў>\lQ醌ݷ  )gI;X {Ӊ@Q.{aѷb#vy2fQ `G#rbůG06V\VdC|?/m?yi#i (K8@@t_9i[iKzԏ)?S ?n?5tP! Z2 pEG܀;B@VڈBjD cB¯,Iv+iB3WQ]i{g0pQd;k\h3R-6sϼ6oURȥ֗r_U~niÂjT˒b^]3׊H@}\Ơ)K`_Pbw37*J2%e[R}+!90#,:7u9-!(lB'Bl(s} L#,a,Gx"GC/Γ (D'O߯z`U 9h>? ~'`P_D{})17ѿ-rf v ט̢~MfNԆÃ) kQ>]~1GEx2>(9G}2ވʎlK r(kXH43pjp# tQ$*~㴏ND3P2(_&2@ڑ8}A ?/~?L tȆ-/mozϪK={?mx mzB~-pиrԂ@- ( L,@{u|(5H߱;uBEOHmt ٘hAc!b ҂I'GG[UIR߯} &FLW{lӲ?PCݹNBHjQ.Vt`2{0o LX g C!^ pյ7]3y!c5o|ݫo {%D~+LbQy`/DQWкY9!QN̸Xm U:޿&֮ A[qORB~ B!|CZ.Cu/'ӡD;0bQ|!X= Uzzo}̱D1]&8Lp'm DWw`/_8"Ix0%ɸGwcxwBh?ߗ^Jev\)?5}Z{ٯy]/^> {6iZvvC5"2/U H9 WYW$Y(NDVH- pUjٲX8r ;v5r4,.QzaＢc37- \`@fڞp:;rJ )%˟<*y-lν:a}ҿ394hҹ"}[Mj 3;~ȭ?-0O|?l(ߔ^asmo}N!D`7%SO"~,BKT{,``M<6O0ը=Pe; {xl@S^dP"~+ \ @aG-`8So:𳄩tδJ@(@}-@i*t{P*yJz1θ=!~v @4`faCuk tگr}?|)$ 0{߯˺~׼o|eK'lo%{z8 n7- 0S\qu+0ip* PppE>byԚ-p ^spĩz `A԰: hK@prDB Ǡs[RD$wo9jPk5q62vc=[P|k Í|߇?B{Eͽ9wO}#K{? 59Gc; {n_+K0Ae_UL穤Pɹ3 "\htb;<9I^ۈh Q vw7Li WhWoD$jB3?{D#&/M0u9H=rYq0!H!pO@,@8+R*&9s]=@0߀yOOw_!NAJdYGB zv{Tqv\}͗lܴL`f`3^ro:lCN b> " w#-Smˠ/>MM,`xPD>=k>+EuJP޻ "Pj '@qJЇ+4f$8SYg@:qy.^k|Ǣ0H6J{ ЮM6}).w3K4b+A^Wdc-Fo\ILn`K8mqYVܠwcxϷ"|ӽc^LqH%uH5~D_so>g73MEue/H5S7;+B2"fbq6h XdE7Yq69"`XfV!`6W}?s`t- n P۰^X!ڷU`,k׊0[iX3 X75FQQV,Om.{).cvw,("'KpxJ1x r߿v)~4%ٱܩ*&CL~Ϸdeh^ >4l`} Y|yo~9ל~)hOYq$>"_2Y&XKa"m(V RB:-9Nfy&qDÔ )¡X$`?T3}'gIGF30};8}IB[9*w5 ?K"@vm˛lN,@7\']I:"@bPtG&7 O`l@LG'{,K 9I+߸}.ݥaaGH넊)}d] iBfޫ[ |p}LKH M=]0c6-J4yjgx?xȖMw?5v 6yym@ʹ;L=R))9Ιt9z.9e*@At1k.@ժKݖk0D֭ApDȺ `ŢL19wBP-"Q` C K_7 Php`}b83OoX#bZ?+W)ӡBۮ:[-d:Xvc' y'0h^LS)wg{DzDDh0(oGjlnwo?׷xF^PL`BK"~[_=rbq'%EGD #rC㗢ֺxv5"` "W+^xϲk|,TiZ\mWY(P> 6o& w$<Ѱ$<އ]J5ˎYvQh2fjO:Oo#ӸLpD:)AYTuf!zL <,`t{ZrH 䛫xЈ ܺ`HD~.bMX F|P  f;U\ \Y!}Xgةqش)o6.+Vb!X C`;I&EZb[@nN?`Pe|L%^)M"E+2/i\n+lp>bF{$`nXF'.;=t ~m&}/eǕI|^OK-OSh]p.Ha;)N*Mn@`t,vXlP|,ԕ/6eXH7 "tuΩ@X5iqUQ@*)1)/'?{H`x6zm%6A{d1̱1TFQzb.8Xtbb~XĻ᧟B"AP9}*(tsU?w P̢!4%&cDoPȣkLzOgB^ˎ+S웉 -vo|+Xבl;%:#pVԧp+4d7hyKbX!I&Q3w $`{5IZK_G2EdKE@lw-P%,4 0H`| N<;.g(΋dHy!Tgv_ -)k6Û" IƐM0?taYPt `9aX8^=HB|MݷƬd&g}^v\FV.mK/yIHH!PTy}>^T*T~W,J%G.&^=;q _LZ.ʎ 7jXqב=)|@:NN±nLU Sӭ99 3Rd;܆d[M DkjFG0PvA߲LNNG/8c("Hxq%&`v($Vf&/D0H  EvC۷ ;6$g*r,O7VROer*- LXQ8V ˎwM( {x/~.;>kN|qd{ݚQ={L9ǵKD;+`W\|naDw7ƈLzlzW@ w8I+2K/@j/wrHd(`PNLX 8@ɌN/I;'OrE@gSo{I4"S8 bj}Hq1TZ20HFl`v:EB Af`SX@AlٜB,.^Q AdIfOɚ,d\Q>uroo:;ƹ_U +㜌d `PD|ˉw݆Ljozǹt̐F AeW}#/5|ٯ^<l'oq}:8*,ey] ?zI)q?osݎCYeUW `~; 0a1 p=iE}uNj܇|&%W} F~b=."`/`OF\\!ȾΔQ$5q.åJJyz]viXFa'!ѝ;G^ i&<,g5~Ճ 1:\ɘ10.h" \,T9N \1o1Q)J}t/H8%>Eb"_&=[,A\w7oˎLe- 7*C||[[ˋqy7gioKۉ%guTbqǖH僐`5k=GbnElw'gN,PsfKG@o[" Bz;=W{t…i$`s軲Q \紖UtmpFh@W84Z,L_(dڰˆŤ Oi#00@;/o jd^]VL hmH42!rLIg'vl]$xqLԡp~,;~К~/- (&{o}/:H((ޟ##>ZP$ VZ[~-̸(xfCFln4lbeS2K_X)y^h_w˒u`^=9NuLu.ӋB3 /+z 3sVT5Lw! S,_Ve31ca&9H4_3ƺV \tt /6Z,U;XsytV\{$ S ~LFe/-)X&_ɔlct53po\~ &]?BPK/\9RW'!lW1z3r(t>w]G HȮm: x8I zf@Bf?Mcv#M^'ڟ"R-K{(虜c5oG0}&eR#ض|P][_v/m~Q41/٩: \4%\/_O|H}5=+Q|xEf2F=Z- >q\ blY- g"h 묙qx`_95טiX!4e ‚ʓ;>SEB$%H-;I^^Y/:t]s|Uw"'svu;%[ѢW3'mMPWMiId k'6B܍k-;F&:ܨwQf+sy򾷿ta9<m[qQgyCj xXz@|×,@B#nB ^O BpRE:}|)"kͽ۟75Zסp5Ta"*@ N!ZTιa j)Sh\9GiN!F$|3T2qx2ijMC'~63EOr'=9?ANjRr *1ݹ˴`x#{ߥ"ߑLO]_2JrONRJb`Dox3,!;n>sRGB٠r2N꤯ұ{g&9kQtjԘ tܠ(ksWd@f2E0rLYH!\,k_06%K/XX>tB_Oj]xy|ᇴyQ4i)22=VsU*߽K$]e_<[riˎOÛ'tܕ~qI>D-AQ`CޗW D Zo?%cE'gs柅qW2cD I{ kGiCȝ#ߵÉkCpba6(X%bznLP'#}9{fJ];CǜejXF&t]Rݘm/HĖ%63фb»_!-_*Q&g5C.=JJ١2+(@B=CUU{yo徇>8 b~hy[λ]x /)l{bf[*S.c/qZߝ6Wv#ɝk3lΠϞ|=^ 6q J5/' eƆ{N^xJi4,ƏF8=#Tf~$TzOm߁< #[V`LuK4u\k_gճ"4#Zd:|zH|R#Ȥk(i֊&-kp `2 2%sO>m^q ˎ'~ݹqY@%l/UfϰR}~Fo}j|weX-;嬳C1$C4TA[z&bfw!Ȁ'=@6a&JA.X>X$((GꟽhHͿ]TG+1*K˚;u1 ZV2bMt q> pũ0e ۟@"gy%C.P5UD뚘 &.;stˎ7E; Foxߎ:pɊud+/¶L䰫N@P_/rUO7$x0NvK)ӤD_S9k D!F)#ƝA^#d@+<i` 폖P Hk;+#^ذ*Y>"N6HعAON+ b~dJVLv52 L=[G$!:=IR2w͈ tB4Gm߸tPJ~9zn|K86klcE 2=SK%5?N bU6T[zJ3J62we7a&v?O#۫]]}SbBSDo|X3eL aL]%oI`lLP_ mٶW}O<̖q.;w zyq%zi֜(CdLj<oWA­P9A`/}4`Z瑤_0ߑle'aPMb1/gT Bf)>9Gzf׭*w lj<35 pDYH)ԫOYy!-LfH+Vvz~\dޢY v8ХLni<ГQ4m1\:8c^Dĺ-.y&JMklo@@'< <㓀@e`d vϋ x?d]kn>(?QN8擟]Fh:o _Z<y5_RYwLw$xܟ"\p! ~V3TaleI '&D%NEN CtQMZ*c^{V;OG:= X %"nj'}V/"7 eˑL&vx[:g/oaf# ~M ؕѕuf՛ EQ[7?xkjC(%'[l1lM1Wo Eط `م /;~7`Px^-7mg\Kr=43c'9tN.@#'kZ_Յj*?@hu+7,po2I_l0sIW7P ]drqi,66xr m}l )H"- M#`Ut ,\&l_Ӫx6 65 (n? ӿ#%ÀZ }]ϞM'] fj3bJ` IiL}#mTϦh ̞;O$mDoʓEbq̞T23^a=&V5)b+:?6⺂֠BSFHP@(*@٦XPIӣȌ#]ub:"D[53 O@sm{o00 cd w{e]Ï=Y57Tˎ72\:\ XhW]WXZcؒĊÏ:LM+v5 P..a8!.{qi7!Ӱ# ~-f N*O<̕ AFpE<^0?0 oiXx(i(-{.Wr2X^l6-Gf肥UJg1g!6J4loҎD2Mg%b^ {:0ttMvg|Z/Qvh=ε$$d$Tf|b՞g)խ85/w7RBzexvP_v>*<.af@nnG?V)`+;` olUA9~[n>pݹ^~(5"0AJwfSkPzw(n1/~MuAAڧg3zًϳ/H,4,S(9 `%>7Nsc!;vd]-7pUqsVPF(9󗉁o&@{%v9 OeI/(Ǧl=g^xyŒa?zT^K,;5[٣>S`&) 'v/!^v1 Okr1G~OyguLpv^+yv#[SDb5=?NyTA:Y@ aiZ ֤yx7_+"}~n^@1}Upt^(@YP@h)D!Xiym&?l.-:b^$38Gƚ@LH2lt,E= 'B2IXr23BM-K.&fh()`C@ )҆` (ʢ Jqm\@-v| IӇwA/>A[k(v\!  Z+Ƀa1?o0Y9sy<] Lhlo7~F3GkG /bSb)nZIcȬ~r8wk[5MCB lJ+NBY>`u!G&c8 YNB3efbdJVFΥFye)7WU} ~`ob ,@^V?=~^-(n>/-]㱈WKVcނS!Af>j~9ܮ'az4|*|vJ 簀BxI" d0ܷWP7l.ptB뗼gq2c s5:qlb96XK= T'4-&VovYvG:-Q9YS/ a/Wk'54MJt ٌݍY@t.W pBCPx^-;^_@Cc3ׯw;ο`yW-;l=$ 3J`Oߣ:w }C l9.OG~.dbֱF, 9lEfLR#``ojVG}=񶊚S2" X+Aw$=DvF^b pENA쮌^de@@5wC;Jch6irz6\&s. e65.348чOR}lm]a1p א'IW}As M85w5ȬT?0T+-d ˁ`VtaӳSOdFZ$WBoJ=|_C7zS ގp,dfӂMLpO}y1aST|AfFw[o]vQ~1@hkum.^ڗz V;Ica3|ZP|j$o:2 ,SoE2q.{Hƍ(X;q78PNT y'Ãp& =1н#I_[ag `3ts燗PŃ48K*S/a'a9'AI Ȃ+ HRtⲆu]tY (A2 &LOtsnz ͛Ū[;;yb4qCA>00Lݷ֚sw԰p AB!J "H\Ĉpn d9 iMa9R2 4_VZT֍0sI^0%fAdX`սu3R@ĥkm5Z@eKC5W_"l\(/ƒ3Pg+X-OQ8ނK]X CHf@=}G=TAxo얧@\[::(k@;^js( An)*Ђ۲5vE* +>F0 i}dj^HqI-ĸ;_kh u-P27' h'yəןtf93<jzV.}'SI4Qb21jU@t󚺿OWxLF'YpkvÍ~ :]z5 H ``<;亯_z㑇Sd{5A9ӐWū–IF2H9}HNB x$x%RԾYwOBv襌I~-&R~S(msո}?w Ԉ3rT֋/Gdhtkj B -Ik"!-u.uBOo'?~,h$C-s(J<^ӰaA * Uwlns "` `6QTE 憢GmAbE?TSw*Uu .O;qE$r8?`֜%B31Wp n T=}DBF ?|#{ eʇ~A5tV|K?@F< yOi `ʀ_5K6+b=2 ˡG(@ݟ@*هI/'Y5AڱE4]H8T =bQg/:uc.M;VȍCD&n WC߅ҍ,pK қSʏn/܈Dx0]%'oD@kUb=Mab;cݫ>݊J${Y@w`RQWP/G^M:*4IV@j1QH`^6}hoys8,|xq~$[5HB@L2:J HS4Dfq4lWfJU"l6E'`έ?ͯF?.Z^Jx| q)cdpힻ<՗Ӝ٭Ed~Vfo OŅ>(*ZajTLQcDg^ 8Yސ{/F߳'wD] PJ/-- < ۷^( ~lC!y: -@hUAB3f,$`{r9-K฀<aT&Yq:[kXE n%g^ayD;x..;˿S }4x_h$`{$tD 1oLl6/aB%B%)g H zۉ86RzY}}5 E1F+T R3^t6<[ϊ3De`z'>. & DO%a"p=i;T8̲Q:db̲Ly)ȴPtUY 0Bo L,jO$`z<6݂)N#G06T =zY״uΚ1& Snk/9%A$V˵5Qpd|5U^ %yet% :P!AX!|*x‹Y(AggI[v\s1}G𸺚"0w h_0Z17|L_  5'x\0 @mejcIDU$ e&t&QNNM%QmߴBi&+*iSU6C>z!S^90I>a9L[dQ/H:ʻtϛ=,TQ  C*U:egy<ȇ7YGfz< , @:>UoC<;-=T[>s/m{Awo7os훷/KmǵEjY՗>}JQ骽`Q4̋ 6'c'B]ye &'n]L=)&u{W]YT? ;Qvxb^f#Xg}Ed l >(dw_ hU$o[0O fߴlaxDVEaPl .v\+3KP %H }<v >ih{*ZIsgwC%邐ۤȒV[y@vwyҮ*{|06vRf"SEcT!"PJ`Zi R&J|p_!)L8N&y-sX kR9Wba`RIo Ÿ/Tq Tb>( /vZπ >@`'ӫ 2MW5 hC',D&_-JazM8 /[! hv< 3q?PfW>@V@8b b0EZl!Tfe 6>1Bـ#YС9|q~|D %652.z o D@( *jO$_TƩjQ ;SF<'BWV<kc&y/~ʏ z h/ k10 k|1|g~~?Q3FvY ٜÂvA˱r-4(7=B<#P2wl=ۅ6?jYn G@#$Gö"s63I yނ 忋~Pa/A7ȃC)ι`ڶ_s*Bq#)M P95 5fsI7} 3T`qOv}o_<ϻ@.;rk!:y7ONhU) Z.u$0*Sl.miCT!`;0 9N!@jmd l<~_8$ ;Jea=`Kld=[׽"#iܤ`54 n pV{丑\VDx_޽t0EZ<p)44DO//9QАjtl|+Xyx]/ KN_>\ k; r5h.p[BA<e $ T&m|!GQ~SHPr4V83@],l'_>q(fqn @n=p \+&pUBZdwJʠhd<͟L`H^R4o/Fϝ]v\vZj@y`e "?뮸z=WdX$V,ZTPXb+:Oao1X'`$Hav?%ŦZqVh4Q4({Fd>Ikphx<:)*AV\|ɹ߼,7(2bő*mڡs[Ƈ1ލ@JyWQ_2Q@t $.H=v1 XGwd)d{A BY,@,YblumlQ/Tl/n~.<uX3US"߽j*E,T09"ڊQc@j?:23;}*@ypzeZ72P 2>nGf|j";WH~YȲJ) vx`,q k81bzAGrlt{ Z &mǿ+xj;Sz LE{%XyW^ n;sNu7$5biȬroߋ4MAaQXP7A~H\?^zn6$ @Y@Gd8BG剠I!MЄ,-n!:9-SM,`mu,ӆB`0:It #m.Ok렱u<3Ap&)5H`!+mX#R(SDy{wa˾i'j:bz~Dᓣ(l!1_/Ө8S:*5MOЙ(悇 y%&CFDuzڎ?3cx Q3f[- uG~%_Jِ͡ywg!".v + Vb䫪;N>jmZh0z,oًAT|< ɥS{YrW:)@ז"We&A,lXCc@ Nr p0n[r\՛d>u!i$a@hU TP((9.'K>Ȫo>rh\w} @*6c—]& |35 >mZQ0t?ۍ f+*%Vd0޵޸01{4{ !3V1T.BXV9,@ <M`P~S[nlHg!],9U @R/?x-^{_)8;y-{kk& iުT#; o_#-n8P`;7%<^J0CS^"\4adؙ|ݿ~%c"cВy1uiAFEf6,=;iC:_Z!Ʀ_;Ty:78V@ VE/5p>:*Y{eUpQ4h.ru 2-=wd!Lrl(+6UV< OO@ `5 |"yZW@4cE+DigOςD$c51`7oDh #P ڎ?*B;vYq˕ #v٧QKV,ba/,l|uCh?fFYN`)r2+3`6|aׁN!P X=_>B}87cZdjX/F@4'ݘljΖn2J  evR|*P3 ƹ/P0ՈLT<`@9[{#6kP'9p8 _&C πgVs^+VoY$[ӽۢy4{_wgRN(w+0 + #ņX Ϸizdu] C~h=Wfu]ЙW$[?h8ak{%sNNVz3Bh Άjl,tA%01=d네q?!sYdAvylAbOyYA۷[05HG0>, )GY$ٿ$"1du㬺Qo&Ю$ R_BKk+|2&C=lZz~~`w{(\[v R45HIU=6rf?0vST&@jkU}bn[+gɑC` h=fSܶvqJۭ.:Qمf>㝸LOIPq(DwU7>@Apa*61:bl"PAd"xJlHvyȦ8>:&9TXS#߯s}ȜK0.Oɚ@]C D#Q#!=>|ϛv#{!x8ə{3 |؇TPn dž)=R4p-j;aDuM?j;> 1nH檋nG%ÄT[јaݎk!Oo=nw6Pr( o{n$?AX˵>7gSLG~ ZBGd!Ca#нer3H jX@޷ rxk}Sr?i$ G:܂uH)*|kM`2rHPꛁlH$tNC$ f %M3u>؊.Y }~ARTV5=.w m;*@o*HT5Ry^pL]ME<1m ~"tyKѻ#z;oHA6WA 23O*62RXr qd'`A;7Xw@Oզߪ` Aֿ(q^ Fr_e0IXB:]B@Ya]R<Jʢ7d0Y + x"?G4y3'ç. cZ@e֢Hom䤣$]vWg;c`g~g 6{㵗>`510J9\rjJC Π&TަS،ǝg_fW@7# c!mp3 ef(saGwz `ZMwn,\ř}, g\PuXtzL; Sn(?)߬ڬPk1Gov ð)>#s;  g/ޡ-bǟ=yb:wOht%~A?W{ !iW`v.CjA#JHf=Jik^|9}D_x"eYt|$Xq2,^4 xow G4,6֛;"kn@AR9g|Ita>ZAZ@I<:7)#|$ hXas,@4t7h(0P @t[7HQ{7(~TEN#b86 B"3н,XfpCaj3(nԹqz !!oPN&AL [;?φ*js{nNvmCc#eӛ(_?;v|G@%<^?58·ya DsH_̖'ʪuM]yCuଢ଼ϖ|O\ N#9@82u` ~*Ay+yD[zUj&,u)>݃fRHoW*' @ T%t{pR!jiEMap}oť ==O3L<_?6|خu4{ 9&#k-N]k (oxK_b[ 3e~d!Ua7`XVc~յ@CbveR?< 13+GA?ct`Wk|~>]1Ԡm,-z?#OO/Vޭ06n#O#8ub2vlo驔 #`)'~S 聶Z9[z F4ct5kت2D4 r/!(T1l'U#ׂLÊT03'փP$#wº1=8 dD @/郰X@5Ce cM, \#[J>ēH>>|/@gQW{KѹR >ZC= BZi+z>@{6O~~w>G*0F) 9?`Vk7^w{ﾒCB堵w/wa x /&\rV]?pbWwN!UN@BiJ Aټz>r۞tM*A{,qw'/Xk6 'pl>䷡"L3ğo5v|H="?oba/<;ӻ.J{}E5vz]Ryɱ!3PBm)(vmf5Zm;q޸ C !Q K% %|3gs?dK/9A z(@VZl*Ձc]+2ڑq0Pw-!~;q7A/ž0NCҍvw{  XU\2` e @ESy6ՂRA2|9r<ߔ`EowK=_a7ةi{]J <'+?5GSCƇ@ wٚx7}j;'(;ʹʕ sPjOݰOϟ(6X|oLl &#|0XICZo oJB ! ; >rJ!0Up4~Ox,P-a`.}̸*X̋PqWS^d|#Y<<3o 瓾O^ӅvAϗyN7a8.=~/qGIc.u*2/ +ݛ xT%ڎڎ_ExͤLv)/Wc;I3drvѨAj/GRt5K 9Ѿ0W?q1[mŋ+vomݏ+ [!MTHظ u+ >®_0OҥIT063ϣ 腪l/Vxf~fEހz~#a"z.B>!weʐoePz N&=[&jq #"R Ib]%z OO *gV7Y2#+ڢa.y VtB[TPl B"$:BHpfm>rϘ B; ڌWdshYj\4Sf=,<' 鞹\\Zwc\,G,˙TM>O}\}G@u>K$y=} ~[@=*QnPxPz ,1U@[C1:="d<^+nL6@̔p/4rɰxo W ʲT2lSHK h3g5< !^0AJÔZ{Pl@司D!_4SbR3kXT}3k# qɲ(111[F76ߦ ѵG Cs [dl~ݭ<畝i hFjr Fٵ,O^QPkM; m]t&&ѯxC#Z;`&@9 K= S{B󗬂YnA:d% mFuo m9'bP,zXuSC@J jމ <NcJ,*`꜕< VBλ ZQd:Zk,}Sp5y4;WpuZ`5Ym/h Q%诌onC l\ ~gXb2__.,+ׄ)<ȓ7R&(-RZ2nܶtUXE(TgnY_IퟅEs5v,*qvx|T++Szq]r[!0X:?jNS\@, cP_Q=xEfO`ļLAg a~0.eLApuwOmsO]zsFEKJrp)RSIlà5_s|uuu b3,,@-|x3?&`ʽu˱-XRN`8#@1xx*3#nz@;YJiu,2Ɔ;܂NIa9>P]0%lAYBc*D EGK Ϗ5nU@XYɱ^|![]/zKﱆJȍ7>2+xۗT[iC$#2ֱi5O`mp7nn݆_+J;Bg[dT箽沏j)26%mH&fox0bbx~ `%4P ExK p%+?! +M0'[Z>r`' Lp.$JtZD,b :A%K臈o4k($(z~) עk슊sPO0\ՉA]j&S+IC (YBQp8 |T,k; Z{ $fZ{, U '|>2Rʒ 7m (8{ulrCG_{̔LՆʆC!l[0hѡl<xPGy\JzP| `X_0 0ʌA30'Wh /tpE/>{U5ʯ 37-yva SQ0f[1 k>H&Ǡ8P]$nY~A? ̴w%>xW_~GcE,mhI@P8 paп@G@ӥj c-8+N#5 ,x }Zx*MTY?*m3TI,+X am i~@ !`B*>H*j󭟭 K{hΖ!2R/8:,JBق;]e,\/üJqФU0\ qbAIC Ӱ}>U݌Qg~cӅutN,reNܴNq u7<,C+Q3-T\(iu| o z%nߺ 1j!~9*>߼{f2@蠅!Ֆ #sμ鳟9{|w,X46A=5 h_*;נ%SZ ? /#mtJ Y\>]{b{}{_G`J,@{Y@TU: }XL_>C[,*e60= 3YGt6Sje|:UrP4aۖ<'&Ga[zhgCמbd[0&^||"IBC]OQbC [~ ]hY7pտ,Z0%HIe3:zbke_jn *;> @?{ ]<#l/)ֵY O{/`:_y-o GXϧ"ٛ(Q'16~_CBM>c (䷠("q(zTk^| #4U!ݒ (PCŜ,܁$ d,/_n;O{C,&riFGXԗ /C< 1`:'*(Tr _ υSbT:,/:G>F}{-_3i|DbR⎷:>_z]N֩ IPRgs91:XȽ'zHj_0+T`???!ܼ hO%{TV\[o??<?I"#qs ,Kz~_URT2 ΅ .Kvq75WQ߄[u' Ο6 s?/raPzHNNrac)tӨsY7ĹQ1,B5E`@T_%o W#~Y{/TƥG9.2.=*qOu%x9;p[:4|r/nBWv:&Tz,uhk棏8؟ KWAU#e@Ԩ %щ[@tѱG~%^!7lLY}+? //..6KFR~(H 0Ez4n/^"9V_~e6>.CT"5uј V0T|N7㓞Nn> HN *@ث>]ێ{?~g.#Si(g@(TKSN%dX^5a%2k,Ƙ-wzL|c ,^ܕn8)5f"9dFB$g[(=[s#SR7310F` {й_< .Ҷ^)Xu{C qU^Ya TO;>դ4u#!02G@׏XU j?8k^xe7?7Z-'@'fy;$h*ns ΞrM_u-K0{ӜcE )?|-82y'~ʏKstT(v>w?_;@-ӗ6F1irhe*O FX|`wN6X V=kP85 MPj)bމd_yK&ٗO=c*/^˸G1R߆m$ֳ>YfAE /2Oyoo)v0 E=vv ' pSxϞOs|IR&rUP  vXy*4$I"R.O -86=Fj|t 魾䎻L!Pr lœR %YjO`6`@-;Cʍ4PT<}]ϋr: Cm㜒d=D>erQi@E,d0 T2D1}0P(oAEV@Oy#[A! Hf-(yc"Ys܄G<@oI#^^Tw>m\dmǀ<Y~'S =|fw(>p`zߪ/['>{0C&5a Lrt`# !!6 d [f?Uor~ƽUF6)/¾|nLZrua Px]-˥ V}SMACA ᎏ ɾIhyRu'Ow}܌~E)@CPӄJu˯;}=b(\X2,YN3|&]-˭˾%ZcO])H ta 6|mF g3:<C}UvҌIңjm{F b Yu &Oi PYyֹK~#D3J=_)aHZx? w ta|hR;'?v/oNV* %z֙] a&\Ʃ4_p:_ {$_mxH*:k;D0 ғ rOy1hz3UFRlIuс9{ ?W;ޠf$lƾPŸNs0 m% |?tήt|II TR!|ҵF?;#q us r~뮼pEE.X-ˬDc(x.6u!LdpǤA[w?x_{OBYa8v/7HYWcj,hqgd2( *go0%ш]k^ ~ܥl('s"K[s-y ;y7u|F?Dsi̱cc| KNӜWOº8N‹.8Va< Ir zzl00D'nB;kdGDP7Ooʎ' @.~qt/bS/q59Ӆ9 *pj=3Pܚefa%|r%٥giNgvt灥>0س?jzW gظ`'}Ws @Vg^sGg4g+8VF*1&vW)yo8~WM`xra޿zɭ{DH KCCp &E ^_-ʟ ' : &_!0]'zyxɆ*[3r >2Gό{(B1lkSL}0׆n,=-"\&(Ta%t9*}_UT WڡI%PpRNQ`E?wWՋ1}^Hơ{HLN ແ |uaغL;nP-?8e 6~}+|x,b 6g!Md;3|,et.~<|!wM`,YPu_O†=n;ˠ {,#_XifLbb {-ڊkm&­ \?k <L!xWXd~7ρHJgj훹G O.?(} {!(in_|uO>NQ6ny_mɰ9o>ӟXpi)>JhhjaBbߚRhYO?/(yZ  }sʇ,(IH_h&~ XO; A&r2"Mzؘf(ēD0asBw(=\ y a@]ݎ AsoG_'=&=tnNd.skvTók^z䱧[5JۙU;-tk)Z2l҅gtU[4kɰEK`k6 !c;pz:LFρ藸Ef ho/ C+ғ@@k ʍE`P3GίMB`ۛD`"{FxA#5c|:{9..xѬDUλP̿<7Lu%EH`B@cQplO6AoW-ktݠpHr;}Š]A*%_#P/.d/bQB  UpNKwkAWmz{oΡG!adؓUWc"P)I&#(.h3LyG7ޫ E={CmCV5M HJ^|{/G4Ze YxfҪoɲH۷lnn=s_Uqs3<jEC+/>%|j' ̂2c 0q[# ;޾ o(ẕR!A~Vt.7@!s+xW@u?l e&y.$Yq3/qxL|lU@6,5TNrp4@E"(0e8T TEC&AF?Z+c=}cg뢃Ģ`(R?O`wR}gftqϹ |uF߭Qd$O?]xPa 3վ21[FC2z!$#O2' ٫*Y@@2'@~G@!-:\ԵS˒no>6r He )1{_z<&Z|P\ c ?!mpig|`5u0k29<@#C|j I+q[8_pɰ9mN+/]rYK*¬ Z[D^Q/0'/*Xx[BK }éMs7l h{ i]"PZ5hd` a6U28ҫ)^ $|Zx KYԃsp7mչG~m3=]8~Fƻ-#Fb!OɳϘ,F;ϒ1h? ?zG+Ѳz/$  #]1*03p.\ؐfX6.21Yc/ l`e BFuB1"Pb ZcbZeA94?3 |T;=Lsݰ3a ԡ^6;rj:sf4Ĺ$x6U,lEy_$Jݰ@0v|85dZ4WyrnBP'a̤(b" (CY؃<nl,Q5w|nʻ;T5@2aLS~@C0㫗m'~بa4oV.֠ƳF' L>mnj6GXGښ8CAnMŷwC@F>HÛ;ΒT |uQ%%H[\>+W_qqu5a9Efj /ԏ.:&XWNĮ2/[ܠ*0>~c :h~{s}ls~?D#Dr7Ϛ/H8FQԒ@뢭-1|.|58 d wA C` @NXcpk)2Ko|AqjWp \2bȩ $d*\O9cuCl @L;ן[gv˅lDD"ښX;P754[Z( b( jm!K.oPM0B!k S9]-Ft1{vQؕ'ǃ2U\}9|g?;`s*h) w^>79nE%d4eA y=_@ mnjCB&$x5Cq 70b~w| @=RJ-\0c7]/,.V+m_nQ7I2ΠZ!N,`=G_~azNB{t4\U/O"Ë޵G|"; nij) _";E¡zu5uM͍u ((Qᨭ cQdTcr` ~~屫 Ky4K?vMJO]( SaL`G&׳k!˓3P6U8昀3@] z~7[~ /ik ϻ-rpV)Ӈ$աՌFomjmmjijnjh"!Q[S*FWSG>l`C ʄ!sgۥ_we*@TJtiin*r 657ò7@ A2xLRe\1V{jtp‚Wo)n`v^d7&e'R*n;sq?rYNp'iB7CVG B#fdM myI@H@xE}AtzxgSLyZ;KjAqk|1|7_\@%I@.,3Q TvW!ԗD/8YఅI7tf?[;ȓApd&*09ՆRB8Bt# "ŚPsmMmC}=jk8Cۺ;n{{ΉUƔK|q_/K]3.:7s'Zt (t(<lk`s 66 x_g_WsݪʖbbKB){@i#UYb _ƙjܼN4\2 7^w칪dX8 Kex"lf,T8eAmvkO+&ʀ:jsM,&t~$";՛S' \֎F8)5 (*[S{Jk_MB@Ғ]tTg/Ǯ(}5%P~[Y}.%, P+u(JXwR}~k}WS bzgo?<Y.(i9fT @,pu^[o\%Ky4@^ gyΞy3cW1*&kHc`KW|f9E%è%[Qc10=tK<;?S*dWe/-:^h9Ԏ;l %{^.4dݾw#O/oY眻_*ĖbSQB _:׿7qX,zcw߹y/G݀]JTsgf͖Sa( y_d"4/~m5R|ݠuM''\i=RG CWcv]&8l_tvl*Y @/~}|Yuq9w8-BqKYJ`r3{qϻr= |9ve a kU}bn[+'A@*F8i69eXm6AG_tbuy_"7of b oI?CF#;WA|6\z܁8cVrlߋKE@ 5W]t?:,F$h(,['!NX, M6CYbu1kF Ei ;wRV_NyuJxԕ[;2Jyy#cWG@ܑW\qr ͇Ym K0O.Q謹Lm'S$V&: ?>ܷ'xNگ UtB_Y^׼z4*= x{4J98K|@aҽ8L6&αCth_"lݼ_Iݿ@pgNYV'/@)j]νgBߓ6?f3nyt s,ƦY8I;n;ȝլ#O&_=#J~JTMhe^x߃P|l)^xn/}Q~@; )W ~R‘Yý7A~_ O"]^*;KU_5 > {Š/={՗ x^zo?4[Lzh*+O~ ~"8OT䥝%$ fӬJ߆;mS>'ݗՀ_\xߥEߋZm08}/W|ZsSCq~@\X@S? BK7A>^ u]ܖ;*Н8sK?S@{0dX}$>گ]zGȳt Rh h: w ~kgm^dqLS" @ 5@ (U BTBQBАH MT "H!(? @ETB- ~ݵv:gwvv޵ͽwڹ͙3qr?xb3`? r7Mzj`N< / x|K`Mߺv /QY3Y\ecg>$o#b? | +=Ք^t^6)kь1xU&Y7Pp/~L wC,ڧ 8kxV_o8- 0:K~ Fdk N~|nyɗO//uͽ0 -Aaa׭]~5du+!\Ućyp %?5YIall"ŀά85|W q;e1'sg9(݊%f^swogõ556ì-fƜ% յg%xdkwĠJ0)ooFCvxƛ@wJt]B ߭dݓ-ŗ.^mwn[Qa༖V*n3c࣮. fG`"P ɤ}0rewD~B ([ƒaZ}ˏ~WW0c0S9:6u 5( Pz@|8ɍdBg4M~hJYp&?eБ_,x]ܶE`/vʯmٴqUYVG;x݋Ϯ0 UڭT ^vGؙV%Ss5~_ϟNa "=~iKPvu5+ߴ%mY%`` Ib"+ΩFsͷ<lŠ&}'Pe^oYu.(,MNIH$uY0ʜ@ACo5o&6>uݗ~p0eAq Hu;K-++c2VY"pw'?v o 0:"?aZ8 _sٲ%wܳq7[1S18lF?֖Tz[="_@E%(@X Tᆕ_jk,{y|? v^@ I[]{?&?{!QD>?ݚ`k~a.UXϪ^uK-- K\ĝ4e }pՎϿx(n!=B`s)$b# 6E"uu5%A4:8{$O{z_H~,}"; P`P8œ=rj1 } 2?n]y@IW0vkE  ,LA[>whkD%{ C1<΀{b_wӬ>aOwM EԱ SAN}BA@7^ŵ8ϠӎTy/=Z^q|ǁ{ s'3cXv/sh{}n&r/E490Bcx1Â23hV{\5D[O[azNWg}3׆c;Ww+Q?4gпGh=0w.X9gS8Iu,=rE]go <{!,%~g(ޥ;Ls 4wŜ恳-^˽ nO#++#9sW7ϣ=Dq:ȝf޽/+5AWMZ7ܟR0 O1O{6QW*#MWDJl#h0859BK%hdHϦkUe>B%M@Q >P*z)}- qjIӰ,e:fD_hYT }(͸"[`i)Uj1:aL~@2@,NbĮ!p5wi2-L.LapQT&G/:+7;h\FkKc,|P^p+Ha$[M_qC;7贂o0@ 8-UQO:_:,HGLi%agn,@*A0vB'+p<\ѻWg0 89ބcΦӇk! >kЀ~ޯ/+IÛ,0u n!=ڽSk{#}`L4\<+pɧKhC\`s8i=DTL U(bL&f< Ն{<\tوy[_Jha {:_!+73|ՊTOOO`ُ,of}GrΙN3y7Q^B<]A*!;48awnl_EWN0Fr5cQǏ.K16ဏF}۠PZfp&i.s`j,֬VP3&-NJSGR)G T#I?695^sLFĨIwy92[q.B|L'ͻи3 vlH?ǫ=Ǝ+2Jqop ʥNv%]x%T, ቗ĖVb摉arn1fitJ*qw~mDa9$Ie"!,F`/z0oZڥ:ñЇpq G2q'8qR]לhg]^w~Ɉ{z =}]%Nxϵ͚Rz6?fhY0 g W?W!y4p4=CؕߏCwbx㼥9zT(g~v / Mfx11BQ-umxL$(sRfz/B,S!LKy^5=Dܯitt:tL[TW~9DȌ'G1G9R")]gtc/?cffhrښ|Ȱ3*(_w?QNwH9J6 f$JIB'H%9dLv]k\_v 1ӂK/_ԥ[ނa y2y RzҷRcR 7#3T Qc)1QdE P#mZOE$)t71{>'D -gäNeܶ\ Irnʻ5 9G\u(}$ZI S%*qJ<+.'N t*^OĞ,;_ >tֹ¹?'XN=' zqd\O>$XB+ 1-iWQrO\Kz$fw;6ڇC"=o\Z 6漋w)&L(=FL:1r1&Zt[rxxR!>REs>7,rT خD.DWO9OٺMiۤQ̈k$وUxb## 3`} 'D=!㜼]3.c t07a ^ ZIO/{.W5r0*v:N q3]X*yw'+Ŀ'BTmZ=87*qSvbvOlPc}'`OGs.u@ƗzC(6rE tb7gYqDh1 b<|ߎ⨸ ՙ_N(+ <1b^ -:D1ZC`Yً³Pxu- xu0܃KNyaY7"2 $nݱtRJ\'3hp/vL@_ҵDXCp *r Hf U$ ds%;Vi@CϤ<<>kd0X aڑfi;Oo"KbR)6ٜ)WĘG?EdҤȉ0@<ްO'1{^$Bc)/ȯM76 /z,E ?b9D%$3ʷ>UfIfZ>ѵ"kI3 nFJ*s#2{׬5ٟJe7Ó%1b@r!1`.w8qi/s%I{AY&A+/kZ5 ɾe'DhTcWOHk`bDAh!cq)Ϥ=_CL]DM!naVr]nӛ9<'!|rmR.t&>q"kaߋ} 䇇k}ؾίxOmw8[tw\M ׏5XJfMmCjkz\:MW6g8'ɴY GLMHZC9lpQsI\ò| N1Wg9wNE92pJ|Fq=gruYvr%?v`t|-zT%oTG{2E fr&7/JH^ u8ӹhB w7eP\ol͹m7ز"UI6Fl { +8`djTcޫ(MS.acgcNK=4t嫗ge G=*yS&/5M}N([>a2׌KF!EtrŽjتchq5) \Q-J% pDe.Wk.?e.Q8a%sEq2'}<%T\"[ qDķo65) ìTH5ZΖNZ^~,+jva{*#u|%(5̴5&rNm^i+sx~C[fJ|/-X+%Ɋ9NIxE`MivIš'y &_yGYf=F,"C2kF\+~PKPEp,GYؖ$m9qX ܉GEB%EfU}"~ˆY鄎.y0qT1y_7qQBV[Ry;U/uXBqj;2*(]Aڦ.er\dBY;TWԚ@ lj$y0xص})e@Qx; Ūx>c:2K&=dݘzkZ'UV!F8XU+*Ws۸xʱtaKzS<gP'Jx!bzFtmV]ٚK H_A*,W2 o[&έV|^Fd-:QG,/9 G98R("~"֗6b)GgSnߖ<;'`fL!S3\Sȓ6e01GOS枃B`7-O4A|Miux x2юL|K]6\͠ֆ28eGZA]jJc;!?0|ZJ;1~| y3e‚Ѧ&!\TАKy+T4Ev\Untctqy,UL в,&S[\.f޻d%N 8O?E4khy$gls`vFRH/.>R)LkkD*S& -=o2.KA~htKD,Os_ZXTAJzu :r3&DGwyu-2q炉rf{wRS߻BA I  @T,X̹A73ԯo!xh΢)k/ m"9/FJ˒ҳ4=hXXC‡<"+BnP.qބMAR\ X _.Znt'~qO^W7F43{}zߓx]2SS&_̾M%qU@M0M}5PqcARmFp|bǗ`i~}|C6dS(3N-p)J;tV2Fvqvueik皤~OjYӊql\@ܪ-nX@`ˆ~o_ցrvM}p_`܂ĤVc~P]l'ޔsj)Ą5q7qű"z2SVпQp HA5W7 '/dsLרvhop8hQ:$\jʄ$1d6 =-k&Y}{lӴ\+0o1s+*J`MmL}1pT9 ϫ|~D{\ ;zKrԘ8]qB ,i;yO1 ɴ^{գ Ogt[EnM)W<5B b8%6A\Y.5JLd )ϾXtg[.жS/ۣ"[u ##y \fhi3NڎV![5?5|O;M^niRm|t`itƬDzgWkx SDl#w^=;ȟ96v]Q :p3A,_νhجr>Vt0=|/O~Y2 LC usg\' $)T/p䙘wʩV.BR&o(,KWZ4[I3C"}rK=Ҿ!"a{qɿC,n\'mA253%C~K1T% eᣧuPg1ħ& b]q[I$|P,E3mY$X|⺜N$BI4VQNzՔ J Oki@K6aVzZܗ!rR^:L<55o4Y<\2usMw=W5;P8K 2>wnR5Gy\_&΍ɂeF.r$gH߲6)dr+.ezN&m >пv6bȌ&yݞ:ޘF4e嶸&$id!$֒igpOĶ/'շ8R-b-`r#Œb(&+y{ K4ҳ\6gĭF GYfaHf}>[!ݰR1stT$}kzjڧHPJ Ќ+Ck}O$Hg Vwo/7tt Sw C(7U+q4] f#n}pkTx~xR؂t:d.$J@\6k1F!-sc&z%>אn7[w^l"ǜޮ=]]m$4P I2:'sڼ-F@ ͦ;}^8d 9ۆ^E2};%7AIQ Xe_:'2'wo5 9)E5?r"g疥M 7ꉇJ-mzX\_N X'pmBDL!֐rM$3M*"U\gٖlm /%Fъy\u5J Ž~-+0PݞflYN[jyo 囑˙$E Z'|<ӉsO1\- c:qQޙ3^K˧nwdab+E<ǮրWm/L%~^ U~xiujs' ܈ JD=?wN_ݏL]ڸ]ɎޯMh8$%[ Qm)Ltkl``G*\!К(߽Q|~bb֊Vz/aٺf,WOY܍3g`~\lQ56_9??{7n{x0{Bݎ%^t&zVe{߹`:%PP`n{%q1ICܞ @ű $tN{f_4 FĵZCK&FV"Ew@r5p*Él0Ff&a̿OmX6} >ƢKw%=K]jr^'N0s>8r0amju+bR8[MngOժ"&nS6-E3,:Ro>S0K`+Ø\HLR I1F}R 9v?ڀNɟ08zpމ&DlVL֟NHk>w4 6uR/ϙ'c8qaѬ v#T'5rxUd@퍊^~Âl{R닳%.vZuDn-+QI t#86}_ -lȟR{ф9xۡ-H;0>Z 8wù [Y7ڦT2n-MWEȃ0rJYCju;ѳo3,R%f;C:pn›zGK4G9:rEVYΒ\hD#8 )zd+<']M"`a!ѬTW/ĕXuR! eR,,} eqڜ.zGì)w9Id=amf{jЏ)f9Lk̘ӌ0EY|'~ ?#54).<≯ "pĹ#,O5"jKi'˧Q8C?G4b:4єՆRR) MmeXmttVD7[Cɏ@pn1KE'Ll3Vkn#N:W6n A;L[ '9\3`' fܩV㺽d΍-Ԏo̴6~Gi.&pSLlTsCW61x;<"p51qQ[^Ve(["Z G8 Tm m#j4wePim?p}nDOY%1O<3:O3\'hb8kK;t}2(0YتT حUqYKDtZ:xb܍رBT!T':9B4uiʙޗFgNd[(UԛJNxK!6 L`aN-:3WE~m ׷le ܣ|nI_Az !#g-pX[ $aB-z Hm D\= yC' $8Fhe~j#,>is\&XeNߪ \G<ꙸh~1ـͥmKG`p򎪣Ud6W жD<_M%e^8iţ-y3ZLO`WQ\XAv%,jZC~@65/j_˯ȓ#r%wk({u%&i@O$<04l5G J+-B@`MT;jTda:׉cFuZj4ae^YT]!DpkrJ-(\MNe1FejŔk`|KտfNEO8|+"<`@e,0Be^LowUZѵ/k?%yШJ'jHBԐ-xK_{Ie/Rcr ЁJS,"5/en%m]]1lH>]a9Dԍ{En_|qn;{%m%ُsWw#z*A%9iL LFEUТMQ`goq*Xte4vW!UQثqylƋ %-@ȩT)W%*rE`,[HJ̍$qZˍgI']Kw 3-ƃOơb}hjKHfB(UMs#lX"k L* mH֛ʈCmE,؜PY==g 17nt qf[1wbj֙nuZrH'3G )X1\!bb󢸙\qvQz.Q# gcGWz"=C/äw`Uȟysܽ8:ً(N09,8nYY:Oa3Ay㘒˓| 7#WA j&z#h'S?U)!s$(Q@Ƨ˚D*D &Mx `i z~)DLq3d.Z0Nm7 *)P7<=mKKر8)ݒycη#l'rM#sЮXZ!ݹb\}pdC{o} LdIy- DK IdFzGsDc 0QrSWm}1B|"ny7܄3MD;ŖN=UR!5b,b "^ׅh覯M^ztn63u2)<\}p X=e{\M9oL[˱@QxD!C'ؓ7٨ges>S,X/kg2wwؼIE\^R_,g`٦tWdR sWaYCi߅7|+~H eĜe-ѯM/Mz*f̼bpݡs:L1Sd}##9*1G[FFd2 e6_} w)=g*{Y$AEIHGв:\6+ kq3)nݒStDa}^3:C"~NpGpL۫;rW (c}>Ip@06vpIuw|W7`ǁdkvB6N1X\q`Yf.,+ག]¡L:<\B8,yϑMMD~AHOBfs_›<>lNL53 n Ȣt߃uj z\]\cO3G1ݛqׯ֝O!I*RS!xǜǹBT`qT~ۢX,MXJ2Zzd!Kጹ%0D.WF7RQP78. )Y8w="|/}wZmfc?V|Ep) prAcNjG~օ/]:cYqWstv{r4砥>uT>_#IzĄzAEEy!!ˇRh&V&0x#liٮ08Cl+ 󖨇!v6؈dp1)"X$}be#Mby*{V7]Nu/ )d>eO+W|!qc-iܿ:>珡PN-aoVeH,E׈V-jnHV ]_{?3$jaL޶ֽװ(`,],,0oqwx{!'$Ab8ne5Lp.m^S+ga7"M}q_^d"eE,BȦM\6p</;o덣XdI3T ") qoBkNV Q;'l4;7 *!wC2}+.b s5 dn+zF?]<ǚޙ_f:4`@b. ;u\~vO_wrMm, @-X #d92N(._(L;`'$ ek:LݣR1_ʯ.xԻB,KH\>Kb3⪓͉߿<{*fw[XNBK*p[q)cSe]KWLu Gx҃5|Ww\!\'iFb9hfm^)kXo$bO?r_ǩ 4q$[*َ\u3PR-{%w687_y6OQWxwBcᱷulP5=w iL9:\ޝ_NY6jL@.$nwnO#ĹqWP9X&d=xj{ϸܐKʌO)#^5w+۪]m U"]9[K~v¿o[R]&v!g)rJG"g@Ͼ4G,2<}+9WepkuFmkLS &*[p4oˢ,Ddt?q85G*^5gjDr^Ow:‘KfGiAKĆL0ej [,aRFg[@+ ݟ ?ϡl,܊.}oqQve^^Z'? PSuI-"Bچ$בX:\{Э(|PW5?_xC 2V3yXzr.'IpWE`Y+ ^K,r_ٜa\Y˕G2gC2|^~sٓnJvJ!z[ok#y]ֹ%5ËW .9?!ecJF{Tto_DdTǷH cy+ D-bjт=<חoOgq.o΂ِј(UlW7G1c'buӭi2cr|uõOfT1wje:B'";$}94\v%ZFCbp,WA˭C)5>CCdJ4`zB^#Cz0 .:`)e9/̣(ǛBo@Ttu/_ Ex=vH-/28"EPFS_~j5},֔ w"~gy 巤ܢ~J{+vdžEatZ;xR Fa UD7KE5S&nl$b^A>:oDtQ8{1E`ϔ~ Y~ypᎀ9XuGW Rr.p-UUWzDI4 ֥ţz7"*V__ "Om8w4qުQ _mBdc΂;vLoX!&O~j+@)=*ԖwjA`G.!&򔇇K'DOgDp9C_mt46,^ lq8Ы".8c&D,!FV}S6VȀ(vN|)z\X beH۱bG߻RDU-U+uܒ#Ì7 q^= y&|gѩהA㜇G ~$׊jyOm0.sEC6&ԻiUyO%Io&ٸ=E9l Esͦ :Z A2Khl8mw|Mݫ6w -~T{;O7udž<6)U Bm<$\:ΐCaZ3q=:&{! v4c}Jj{Gfwa~< 'm<<<`mgOnKj{GevaGQ||| mUuRo~NjvJeoa{DS r\}[xYrvYmkXjbk|u.Tӭ }bce}|jzks|`z[gtU!!! rhmxte]POaλI| VQQQzo}pX۟1$#ߨ#۫HˠTq3fvFawiߔ2-;=5!ܦOտSr>[l9l|Xvy~ʧcLKGGD6ړ#йƾSr=\mEbs@qIBխwsPGF=݋"Ь{Sr=\mEbs9v ҶոySG:x#ϲSr>[l3q PoÞмЎa9{DɶTq-l{ Iӿ̱Ѿӹ믊ԔlмC WйÝ˶ӹտʸh0vǽl%Z lxn)i n)C_S~GPy;yaAym5 ?%LqUG+(listados%CoDeyFuncbO; aTCT TMPViajestsp_asig -T BETWEEN(ts.fecha, xdfec, xhfec) T .t. % #T .and. ts.viaje>0 %C  b;T* .and. BETWEEN(ts.viaje, xdViaje,xhViaje) %C GT6 .and. BETWEEN(ts.camion, xdtsp_camion, xhtsp_camion) %C 'JT9 .and. BETWEEN(ts.trailer, xdtsp_trailer, xhtsp_trailer) %C GT6 .and. BETWEEN(ts.chofer, xdtsp_chofer, xhtsp_chofer) %C RTA .and. BETWEEN(ts.tsp, xdtsp_transportista, xhtsp_transportista) %C VHT7 .and. BETWEEN(ts.lugarcarga, xdtsp_lugar,xhtsp_lugar) %C ^TM .and. (BETWEEN(ts.factura, xdfac,xhfac) or BETWEEN(ts.factgnt, xdfac,xhfac))&%C C3 $ :BT1 .and. (BETWEEN(ccv.fec_ven, xdfecfac, xhfecfac))%C :T) .and. (BETWEEN(ts.cliente, xdcli,xhcli))Hh)   HT7 .And. (not EMPTY(ts.factura) or not EMPTY(ts.factgnt)) hAT0 .And. (EMPTY(ts.factura) and EMPTY(ts.factgnt))%C .T .and. tsp_luga.provinc=xprv1%C! !N PTq .and. (tsp_luga2.provinc=xprv2 or tsp_luga4.provinc=xprv2 or tsp_luga5.provinc=xprv2 or tsp_luga6.provinc=xprv2)He "T#ts.Fecha, ts.viaje "T#ts.Viaje, ts.fecha "!T#ts.factura, ts.ViajeF$G((CCVFACSELECT ts.*, " " AS prov_iibb FROM tsp_asig ts LEFT OUTER JOIN ccvent ccv ON ccv.fac_Ven+ccv.cAUSA=ts.FACTURA+"V" WHERE &xFiltro GROUP BY viaje ORDER BY &xOrdenado INTO CURSOR tmp_asig1 G('(codigoG(((codigoF)G-(*'G-(C+g(G-(,-G-(C.g/G-(C0g1G-(C2g34567 T7- ~m T7C %7 i r TMPViajes89:;<=>?*+.02@ABCDEFGHI,JKLMNOPQ8RSTU)8C): ZC);):);)<)=)>)?)*)+).)0)2)@)A)B)C)D)E)F)G)H)I),)J)K)L)M)N)O)P'Q)8(Q/Q1Q3Q"CV<tsp_camicodigo"CV=tsp_traicodigo"CV>tsp_chofcodigo"CVPtsp_tspscodigo"CV8ClientesCodcliFV>VWXYVZ[YV\]YV^_YV`'YVaXbVc[bVdefVgCV?SI6%h ^JiT4VQT5C-Q4 T6Cij;>VRiRSiSTiTUiU0%CN45iRiSiTiU >QN  %CQ l  >Q#%C! !N e +%CNVRVSVTVU a VFV>mCVQQ/>Q-mSIN IDENTIFICARCQ(>mOtras provinciasQ#H ] "G((fecha "7G((viaje "]G(( fact_viajeHrf CFVH q& QQ q& 88(r\TMP\rpt_ViajesFVQ  fFV>BDCB%h.o TMPViajesǿ:Q TMPViajesA (o TMPViajesǿ: TMPViajesAH" qEco TMPViajesAC@QtCCQuCAQvC:QwQB TMPViajes2 qco TMPViajesAC@QtCCQuCAQvC:Qw8B TMPViajes2 2"]o TMPViajesAC@QtCCQuCAQvC:QwB TMPViajes2 ~r%CxBVccventCCVFAC>y$z{$|%}/T}"BETWEEN(cc.fec_ven, xdfec, xhfec) %C 7T}}& AND BETWEEN(cc.cod_cli, xdcli,xhcli) %C _9T}}( .and. BETWEEN(cc.fac_ven, xdfac,xhfac) %C 9T}}( .and. BETWEEN(cc.fac_ven, xdfac,xhfac) INSERT INTO TMPViajes2 (FACTURA, fact_fecha, fact_imp, cliente) SELECT cc.fac_Ven, cc.fec_Ven, cc.tot_ven, cc.cod_cli FROM ccvent cc LEFT OUTER JOIN TMPViajes2 tmv ON cc.fac_Ven=tmv.FACTURA AND cc.cAUSA="V" WHERE &xFiltroCCV AND ISNULL(tmv.FACTURA) H  {tuw   {tu& BC:Z~(r\TMP\rpt_ViajesQFVQr\TMP\C*ULISTADOS DEY_FUNC2XPATHXALIASXFILTROXFILTRO2ODEYFUNCNEWFILE OPEN_FILESTSP_ASIGCREAR_TABLA_TEMPORALXBACKUPSXDVIAJEXHVIAJE XDTSP_CAMION XHTSP_CAMION XDTSP_TRAILER XHTSP_TRAILER XDTSP_CHOFER XHTSP_CHOFERXDTSP_TRANSPORTISTAXHTSP_TRANSPORTISTA XDTSP_LUGAR XHTSP_LUGARXDFACXHFACXDFECFACXHFECFACXDCLIXHCLIXESTADOXTIPOXPRV1XPRV2XORDEN XORDENADOCCVENTCCVFACCODIGOTSP_LUGA TSP_LUGA2 TMP_ASIG1 LUGARCARGADESTINO1LC2 TSP_LUGA3DESTINO2 TSP_LUGA4DESTINO3 TSP_LUGA5DESTINO4 TSP_LUGA6XPROV1XPROV2XPROV3XLOOPCLIENTEIDVIAJEFECHACAMIONTRAILERCHOFERPEONIMPORTEIMP_CHOFFACTURAGNTFACTGNTVUELTAHC1HC2PAL1PAL2TPTURNOTIPOU TONELADASOBS COMENTARIOTSPPROVINC PROVINCD1 PROVINCD2 PROVINCD3 PROVINCD4 TMPVIAJESDCAMIONTSP_CAMIDESCRDTRAILERTSP_TRAIDCHOFERTSP_CHOFDTTISTATSP_TSPSDLUGARPAT_CAMIPATENTEPAT_TRAIDCLIENTECLIENTESNOMBRETPEONXSEPPROVDESTINOOOBJBUSCAR_MISIONESINXSEPOTRASAGRUPARDPROVINCALLFOR FACT_VIAJEXSEPARAP_LOCAL TMPVIAJESATOTAL_FC TOTAL_GNTTOTAL_CH VIAJE_COUNT TMPVIAJES2 FACT_FECHAFEC_VENFACT_IMPTOT_VEN XFILTROCCVFACVIAJEH ZARTCTCTCT C U OOBJP_EMP PROVINCD1BUSCAR_MISIONES_TEXTODESTINO1 PROVINCD2DESTINO2 PROVINCD3DESTINO3 PROVINCD4DESTINO4 %C C 0 BTCfBCMISIONES OBERA POSADAS  APOSTOLES IGUAZU  YERBATERA N6UXPROVXDESTINOBuscar_MisionesBuscar_Misiones_Texto!A2a1!1AbAaqAaAaqAa!AaAfAb!AbA1A#A"A111Bs 21t!!!!q? "!!!!s: a"AABAAABrR1111Aqq11ArAqQA1424DQB2raqAaAaAB11!AAArAB2qaA3A4M#$$$%/h&  ( @ttttÓp|]pVҥ䷖鼜߲Ś{tta|]f̟ԧجԧǙztt_JoТת䶕繘᳒תttzƜ~巕繙ũɯ뽜ҥtzɯҫkǞɟĝdӦgwY۬೒Ǜzh_ɞտտѢq`__ԯտտoиииɚ{ʝ~иииииииииииии????( @ hhhhhhhhhӨ縘Ǧɩ᳓ͣhhsTsTsTh۪٪ݮ߳䷗帘ⵔᲒᲑⳑکwU@[A1|]FҫѣȗuǘvnN9h•uŘzΡӧۮܯ٫ԨѤϢt_FrTmҫҫѣahiMhÖvǚ{Ρզۮܯ٫ԨѤϡtmRiLhҫҫѣѣkitȜ}ϢԨڭᴓⵔݲڭתӧɜ}cyZhҫҫѣѣ•tǚ{̞Ѥ֩ۯᴓ湙蹙帗ᴓްڭҥȜ{rhҫҫѣѣ˜zҥթڭ޲㶕軚꼜躚渘ⵓۮӧ͠ҫҫѣҫݰ߲㵔蹙켜¢ȫɬħ쿞껛䵕ްӤҫҫѣҫ껚꾝ĥȫʱϺѻͶʲʮǪ쾜֦ҫҫݮζкӽҼ̯ҫҫʰ俠ҫҫҮήױⶕⶔޱӥج۷ۼҫҫqXjLrTtY~ah|atX~^{^ҫq^dJdզ㸜ේn}d^FtWnʞ}ӧҦʝ|puWҥoReĖxըۮҥėythҥ}^ʞ}ޯ뿟꾝޲ѤėxeWSƬƬҥqⳓ˰ϸ꿝جĘwvcvcƬƬƬҥΠεʯ߰tvcvcƬƬҥҤ͵ޯjvcvcƬƬҥҥħէz[vcƬƬƬƬƬƬѣȭ§ТhƬƬƬtް纚ᴓУlƬѰƬpʝ|ȝ{ÖvcͮƬƬƬ޾ƬƬݾƬƬƬƬƬȶĦƬƬƬƬƬƬƬƬƬ????0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _0RE199C11 760068368#/+Trd COMMENT RESERVED A WINDOWS _0RB0OBI1O 822840114kTb  COMMENT RESERVED \VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0 x_frminternalsystrayuseonlyPixelsClass1formx_frminternalsystrayuseonly hyperlinkHeight = 23 Width = 23 tiptext = menutext = iconidentifier = 0 iconcount = 0 systrayiconid = 0 currenticonindex = 0 iconfile = menuoffsetfromright = 200 addicontosystrayatinit = .T. shellversion = 0 nprevmwaccrual = 0 _memberdata = Name = "systray" systray hyperlink1ClassPixelsform%Top = 0 Left = 0 Height = 34 Width = 123 ShowWindow = 2 ShowInTaskBar = .F. DoCreate = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. MaxHeight = 1 TitleBar = 0 Themes = .F. Name = "x_frminternalsystrayuseonly" systrayiconidentifier^ iconcount^ enabled^ nprevmwaccrual^ integertostring^ loadicon^ aiconlist^ tiptext_assign^ stringtointeger^ iconfile_assign^ GoBack^ GoForward^ NavigateTo^ /PROCEDURE Init * For proper menu behavior, this form must be a Top-Level form, not a Desktop form. * But Top-Level forms are required to have a titlebar, which can be visible from * beneath the menu. Therefore, we'll make this window invisible, before it is * even displayed. #DEFINE GWL_EXSTYLE -20 *#DEFINE WS_EX_LAYERED 0x00080000 #DEFINE WS_EX_TRANSPARENT 0x00000020 DECLARE SetWindowLong IN USER32.DLL AS WinAPI_SetWindowLong Integer, Integer, Integer *DECLARE SetLayeredWindowAttributes In Win32Api Integer, String, Integer, Integer WinAPI_SetWindowLong(THIS.hWnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) *SetLayeredWindowAttributes(THIS.hWnd, 0, 0, 2) * Make window as small as possible so menu position will be more accurate. THIS.Width = 1 THIS.Height = 1 ENDPROC Mtiptext Text to be displayed in standard tooltip above the Taskbar Notification Area ("systray"). menutext Defines a menu to be displayed when user clicks on icon. Specify a numeric ID and text for each item, separating each by a semicolon. (e.g. 1;Activate; 2; Exit). The ID is passed to the ProcessMenuEvent method after the user has made a menu selecti menutextismpr Set to true if the MenuText property contains the name of a MPR to run. The MPR must define a shortcut menu. To pass parameters to the MPR, call ShowMenu method from the IconClick event. iconidentifier Used internally to store a unique id for our icon. This way, multiple instances of this class can be used without interfering with each other. iconcount systrayiconid Contains Unique ID for the systray token that this object creates. currenticonindex Determines which of the currently loaded icons is displayed in the Taskbar Notification Area ("systray"). enabled Is .T. when we have an icon in the Taskbar Notification Area ("systray"). iconfile If only one icon is used, it can be specified here. If multiple icons are to be used (animation), use the AddIconToIconList method. menuoffsetfromright Essentially the width of your menu in pixels. This is an offset used when the TaskBar is docked on the right, to prevent the menu from being drawn underneath the taskbar. addicontosystrayatinit If .T., the icon will be added to the Taskbar Notification Area ("systray") when this class is instantiated. If .F., you must call the AddIconToSystray() method. shellversion Contains the numeric version of the Shell communication method that we've established. nprevmwaccrual Previous setting of SYS(2060). _memberdata XML Metadata for customizable properties *receiveiconevent Receives the events the Notify Icon. *setforegroundwindow By default, brings the form that contains this object to the foreground. You can also specify a different window to bring forward by passing a numeric hWnd parameter. *cleariconlist Clear all icons from the current list. If an icon is currently displayed in the taskbar notification area (systray), it is removed. *addicontoiconlist Adds an icon file to list of icons. Accepts a string parameter containing a filename. Call the SwitchIcon method to switch to the next icon. *switchicon Changes the displayed icon to the next icon in the icon list. Use AddIconToIconList method to populate the icon list, and ClearIconList to start over. *addicontosystray Adds the icon to the Taskbar Notification Area ("systray"). *removeiconfromsystray Removes the icon from the Taskbar Notification Area ("systray"). *showmenu Displays the menu defined by the MenuText property, or runs an MPR that defines a shortcut menu. Accepts string parameter containing the filename of the MPR to run, and optional second parameter to be passed to the MPR startup code. *processmenuevent This event is called if user has selected an item from a menu defined by the MenuText property. Add code here to act upon the user's selection. *iconclickevent Occurs when the user clicks on the icon in the Taskbar Notification Area ("systray"). *integertostring Converts an integer to its binary representation. *loadicon Loads an Icon from a file, and returns an hIcon token. ^aiconlist[1,0] Array containnig Icons and handles. *tiptext_assign *currenticonindex_assign *stringtointeger Convert binary representation of integer into an integer data type. *gettaskbarposition Retrieves coordinates of TaskBar. Also returns 0 if docked on bottom, 1 if docked left, 2 if docked top, 3 if docked right. *getshellversion Determines the Major and Minor version of shell32.dll. Used to determine if the shell supports balloon tips on taskbar icons. *balloonclickevent Occurs when user clicks on balloon tip. *balloonshowevent Occurs when the BalloonTip is shown. Balloon tips are queued by the system, so you balloon tip may not be displayed immediately after calling the DisplayBallloonTip method. *balloonhideevent Occurs if the user clicks on the close button of the balloon tip. *balloontimeoutevent Occurs if the system closes the balloon tip due to reaching the timeout. *iconrightclickevent Occurs when the user right-clicks on the icon in the Taskbar Notification Area ("systray"). *iconmiddleclickevent Occurs when the user clicks the icon using the middle mouse button. *icondblclickevent Occurs when the user double-clicks on the icon in the Taskbar Notification Area. *iconfile_assign *showballoontip Displays a balloon tip over the icon in the Taskbar Notification Area. Parameters: cBalloonText [, cBalloonTitle [, nIcon [, nTimeoutInSeconds]]] }PROCEDURE receiveiconevent LPARAMETERS nDirection, nShift, nXCoord, nYCoord * This is the procedure that receives the Notify Icon events. Since * we execute the BindEvent() function from within this class, this * procedure can be hidden. * nDirection contains our icon identifier. IF nDirection != this.SystrayIconID * Not our icon, or this a real MouseWheel event on the VFP window. RETURN .F. ENDIF * These are the events that we receive from the Taskbar icon. #DEFINE WM_MOUSEMOVE 0x0200 #DEFINE WM_LBUTTONDOWN 0x0201 #DEFINE WM_LBUTTONUP 0x0202 #DEFINE WM_LBUTTONDBLCLK 0x0203 #DEFINE WM_RBUTTONDOWN 0x0204 #DEFINE WM_RBUTTONUP 0x0205 #DEFINE WM_RBUTTONDBLCLK 0x0206 #DEFINE WM_MBUTTONDOWN 0x0207 #DEFINE WM_MBUTTONUP 0x0208 #DEFINE WM_MBUTTONDBLCLK 0x0209 * Mousewheel events also get passed, but are difficult to decipher. #define WM_CONTEXTMENU 0x007B && Same as RightClick, but used when && Version 5 events have been specified. && (See the DisplayBalloonTip method.) #define WM_USER 0x0400 #define NIN_SELECT WM_USER + 0 #define NINF_KEY 0x1 #define NIN_KEYSELECT BITOR(NIN_SELECT , NINF_KEY) * Balloon events supported on Windows ME and Windows XP, and later. Not supported on Win2k. #DEFINE NIN_BALLOONSHOW (WM_USER + 2) #DEFINE NIN_BALLOONHIDE (WM_USER + 3) #DEFINE NIN_BALLOONTIMEOUT (WM_USER + 4) #DEFINE NIN_BALLOONUSERCLICK (WM_USER + 5) * Even though this isn't a real MouseWheel event on the VFP window, * VFP gives us the coordinates with respect to the location of the * main VFP window. Must change back to global coordinates. nXCoord = nXCoord + _screen.Left IF nXCoord <> WM_MOUSEMOVE && Ignore mousemove events. * The Version 5 events are more difficult to deal with, * but Version 5 supports Balloon Tips. So the extra work * is worth it. IF THIS.ShellVersion >= 5 DO CASE CASE nXCoord = NIN_SELECT OR nXCoord = NIN_KEYSELECT THIS.IconClickEvent CASE nXCoord = WM_LBUTTONDBLCLK ; OR nXCoord = WM_RBUTTONDBLCLK ; OR nXCoord = WM_MBUTTONDBLCLK * We'll just use one DoubleClick event, and ignore what button was used. THIS.IconDblClickEvent RETURN CASE nXCoord = WM_CONTEXTMENU && Shell version 5 and later THIS.IconRightClickEvent RETURN CASE nXCoord = WM_MBUTTONDOWN THIS.IconMiddleClickEvent RETURN CASE nXCoord = NIN_BALLOONSHOW THIS.BalloonShowEvent RETURN CASE nXCoord = NIN_BALLOONHIDE THIS.BalloonHideEvent RETURN CASE nXCoord = NIN_BALLOONTIMEOUT THIS.BalloonTimeoutEvent RETURN CASE nXCoord = NIN_BALLOONUSERCLICK This.BalloonClickEvent RETURN OTHERWISE * Unknown event. Just ignore it. RETURN ENDCASE ELSE * Using Version 4 events. DO CASE CASE nXCoord = WM_LBUTTONDOWN THIS.IconClickEvent CASE nXCoord = WM_LBUTTONDBLCLK ; OR nXCoord = WM_RBUTTONDBLCLK ; OR nXCoord = WM_MBUTTONDBLCLK * We'll just use one DoubleClick event, and ignore what button was used. THIS.IconDblClickEvent RETURN CASE nXCoord = WM_RBUTTONDOWN THIS.IconRightClickEvent RETURN CASE nXCoord = WM_MBUTTONDOWN THIS.IconMiddleClickEvent RETURN OTHERWISE * Unknown event. Just ignore it. RETURN ENDCASE ENDIF ENDIF ENDPROC PROCEDURE setforegroundwindow LPARAMETERS lhWnd * Brings the specified top-level window to the top of the Windows z-order. * If no parameter specified, then THISFORM is made the foreground window. IF TYPE("m.lhWnd") = "N" DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(m.lhWnd) RETURN ENDIF RETURN * If we're here, then the user called this method without an * hWnd parameter. Assume it is thisform that is to be brought forward. IF VARTYPE(thisform) == "O" IF ! thisform.Visible thisform.Visible = .t. ENDIF * First make sure it isn't minimized. IF thisform.WindowState= 1 thisform.WindowState = 0 ENDIF * If necessary, make sure the main VFP window is not minimized. IF _screen.Visible AND thisform.ShowWindow = 0 IF _screen.WindowState = 1 _screen.WindowState = 0 && Set back to normal ENDIF ENDIF DECLARE INTEGER SetForegroundWindow IN user32.dll AS WinAPI_SetForegroundWindow INTEGER hWnd WinAPI_SetForegroundWindow(thisform.HWnd) ENDIF ENDPROC PROCEDURE cleariconlist * Removes all icons from the icon list. * In detail: * Releases the resource handles of all icons that have been loaded, * clears the array and sets the count to zero. This method is called * by the Destroy event, to make sure all system resources are correctly * released. WITH this IF .IconCount = 0 * No icons in list RETURN ENDIF * Have to release all icon resources DECLARE INTEGER DestroyIcon IN user32.dll AS WinAPI_DestroyIcon ; INTEGER hIcon FOR nCurrentIcon = 1 TO ALEN(.aIconList,1) WinAPI_DestroyIcon(.aIconList[m.nCurrentIcon]) ENDFOR DIMENSION .aIconList[1] .IconCount = 0 .CurrentIconIndex = 0 ENDWITH ENDPROC PROCEDURE addicontoiconlist LPARAMETERS cIconFileName IF !FILE(cIconFileName) RETURN .f. ENDIF * We must load the icon as a Windows resource. nHandle = THIS.LoadIcon(m.cIconFileName) IF m.nHandle = 0 RETURN .f. ENDIF * We have a resource handle for the icon. Now we store that * handle (integer) in our array of icon resource handles. WITH THIS .IconCount = .IconCount + 1 DIMENSION .aIconList[.IconCount] .aIconList[.IconCount] = m.nHandle IF .CurrentIconIndex = 0 .CurrentIconIndex = 1 && Updates Systray immediately ENDIF ENDWITH RETURN .T. ENDPROC PROCEDURE switchicon * Switches to the next icon in the iconlist. * Typically called by a timer to regularly change the icon, * to create animation. WITH THIS IF .IconCount > 1 IF .CurrentIconIndex = .iconCount .CurrentIconIndex = 1 ELSE .CurrentIconIndex = .CurrentIconIndex + 1 ENDIF ENDIF RETURN .CurrentIconIndex ENDWITH ENDPROC PROCEDURE addicontosystray *!* This is where the magic happens. *!* This is an unabashed hack to allow us to get the full functionality *!* of the Taskbar Notification Area ("System Tray") without having to *!* use an external C++ library. *!* To communicate with the systray, we tell it to send us messages via *!* the MouseWheel event. (This is the only VFP event that doesn't alter *!* or discard event data before firing the corresponding internal event.) *!* The second trick is that only the main VFP window will accept the events *!* without checking to see if the event coordinates are invalid. (The screen *!* doesn't even need to be visible, so you can have SCREEN=OFF in your *!* config.fpw file.) So we use VFP8's BINDEVENT() function to bind to the *!* _SCREEN.MouseWheel event. *!* This method sets up that communication path. *!* Returns 1 if successful. LOCAL lcNotifyIconData ** NOTIFYICON struct defines #define NIF_MESSAGE 0x00000001 #define NIF_ICON 0x00000002 #define NIF_TIP 0x00000004 #define NIF_STATE 0x00000008 && Win2k and later. #define NIF_INFO 0x00000010 && Use balloon tip. Win2k and later. && Notify Icon Infotip flags #define NIIF_NONE 0x00000000 && icon flags are mutually exclusive && and take only the lowest 2 bits #define NIIF_INFO 0x00000001 #define NIIF_WARNING 0x00000002 #define NIIF_ERROR 0x00000003 #define NIIF_ICON_MASK 0x0000000F #define NIIF_NOSOUND 0x00000010 && Windows XP and later. #define NIM_ADD 0x00000000 #define NIM_MODIFY 0x00000001 #define NIM_DELETE 0x00000002 #define NIM_SETFOCUS 0x00000003 && Windows 2000 and later. #define NIM_SETVERSION 0x00000004 && Windows 2000 and later. #define NOTIFYICON_VERSION 3 #define NIS_HIDDEN 0x00000001 #define NIS_SHAREDICON 0x00000002 WITH THIS * If no icons loaded, do nothing. IF .IconCount < 1 OR .CurrentIconIndex = 0 RETURN 0 ENDIF IF NOT .Enabled * Each SystemTray icon in this process requires a unique ID. We'll * use an _screen property to make sure each instance of this class * gets its own ID. Properties on _screen aren't affected by CLEAR ALL. * Because VFP drops the least significant two bytes of the mousewheel event's * WPARAM parameter, our unique SysTray Icon ID must use the most significant * two bytes: #DEFINE MIN_SYSTRAY_ICON_ID 0x4000 IF TYPE("_screen.nSysTrayCount") == "U" * We're the first one here. _screen.AddProperty("nSysTrayCount", 0) ELSE IF _Screen.nSysTrayCount > 0x3FFF * User is apparently creating and destroying this object repeatedly. _Screen.nSysTrayCount = 0 ENDIF ENDIF _screen.nSysTrayCount = _screen.nSysTrayCount + 1 this.SystrayIconID = _screen.nSysTrayCount + MIN_SYSTRAY_ICON_ID * By default, VFP combines MouseWheel events. (That is, if we receive * a MouseWheel event from the OS, we check our internal queue to see * if there is already a MouseWheel event that hasn't been processed yet. * If found, we just add the number of MouseWheel turns to the existing * event.) This behavior makes our communication with the SystemTray * unstable, so we must disable this combining of events. SYS(2060) * accomplishes this: THIS.nPrevMWAccrual = VAL(SYS(2060)) SYS(2060, 1) ENDIF * Declare the WinAPI function that lets us install the icon. * We redeclare the function every time, just in case CLEAR DLLS is called * elsewhere in the app. DECLARE INTEGER Shell_NotifyIcon IN shell32.dll AS WinAPI_Shell_NotifyIcon ; INTEGER dwMessage, ; STRING @ PNOTIFYICONDATA IF THIS.ShellVersion = 0 && If we haven't set the version yet. nTipTextMaxLength = 63 && Default to version 4. ELSE nTipTextMaxLength = 127 ENDIF * Build NOTIFYICONDATA structure. lcNotifyIconData = .IntegerToString(_VFP.Hwnd) && Messages get sent to VFP's main window. lcNotifyIconData = lcNotifyIconData + .IntegerToString(.SystrayIconID * 0x10000) lcNotifyIconData = lcNotifyIconData + .IntegerToString(BITOR(NIF_TIP,NIF_MESSAGE ,NIF_ICON)) &&NIF_TIP,NIF_INFO,NIF_STATE lcNotifyIconData = lcNotifyIconData + .IntegerToString(0x20A) && uCallback lcNotifyIconData = lcNotifyIconData + .IntegerToString(.aIconList[.CurrentIconIndex]) && icon handle lcNotifyIconData = lcNotifyIconData + PADR(LEFT(TRANSFORM(.TipText), nTipTextMaxLength ), nTipTextMaxLength + 1, CHR(0)) && TipText IF .ShellVersion >= 5 lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwState lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwStateMask lcNotifyIconData = lcNotifyIconData + REPLICATE(CHR(0),256) && balloon tip. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(NOTIFYICON_VERSION) && Timeout/Version lcNotifyIconData = lcNotifyIconData + REPLICATE(CHR(0),64) && balloon tip title. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(BITAND(0, 0x1F)) && Info flags ENDIF lcNotifyIconData = .IntegerToString(LEN(lcNotifyIconData) + 4) + lcNotifyIconData && length of structure IF NOT .Enabled && If not already in Taskbar Notification Area.... * Add icon to Taskbar Notification Area. nReturn = WinAPI_Shell_NotifyIcon( NIM_ADD, @lcNotifyIconData) IF nReturn <> 1 * Adding item to tray failed!!! IF _Screen.nSysTrayCount = 1 * There has not been two simultaneous instances of this object * in the current session. We can clean up after ourselves. _Screen.nSysTrayCount = 0 SYS(2060, .nPrevMWAccrual) && Reset mousewheel behavior. ENDIF RETURN nReturn ENDIF * Bind to the MouseWheel event on VFP's main window. nReturn = BINDEVENT(_screen,"MouseWheel",this,"receiveIconEvent",2) .Enabled = .t. * We've just added the icon. Now we see if we can set to Version 5 shell behavior, * with larger tooltip lengths and support for balloon Tips. IF .GetShellVersion() >= 5 * This OS supports version 5 features. Switch to version 5. * We have to inform the Shell that we want to use Version 5 features. * Build a version 5 structure for sending message to change version. lcNotifyIconData = .IntegerToString(_vfp.hwnd) lcNotifyIconData = lcNotifyIconData + .IntegerToString(.SystrayIconID * 0x10000) lcNotifyIconData = lcNotifyIconData + .IntegerToString(BITOR(NIF_TIP,NIF_MESSAGE ,NIF_ICON)) &&NIF_TIP,NIF_INFO,NIF_STATE lcNotifyIconData = lcNotifyIconData + .IntegerToString(0x20A) && uCallback lcNotifyIconData = lcNotifyIconData + .IntegerToString(.aIconList[.CurrentIconIndex]) && icon handle lcNotifyIconData = lcNotifyIconData + PADR(LEFT(TRANSFORM(.TipText), 127), 128, CHR(0)) && TipText lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwState lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwStateMask lcNotifyIconData = lcNotifyIconData + REPLICATE(CHR(0),256) && balloon tip. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(NOTIFYICON_VERSION) && Timeout/Version lcNotifyIconData = lcNotifyIconData + REPLICATE(CHR(0),64) && balloon tip title. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(BITAND(0, 0x1F)) && Info flags lcNotifyIconData = .IntegerToString(LEN(lcNotifyIconData) + 4) + lcNotifyIconData && length of structure * First we check to see if we can switch to using version 5 events. nReturn = WinAPI_Shell_NotifyIcon( NIM_SETVERSION, @lcNotifyIconData) IF nReturn <> 1 * Couldn't switch to version 5 events RETURN -1 ENDIF .ShellVersion = 5 * Now that we've updated to Version 5, we have to modify the existing icon * if the .TipText is longer than 63 characters. IF LEN(.TipText) > 63 nReturn = WinAPI_Shell_NotifyIcon( NIM_MODIFY, @lcNotifyIconData) IF nReturn <> 1 RETURN nReturn ENDIF ENDIF ELSE .ShellVersion = 4 ENDIF ELSE * Already in the Taskbar Notification Area. Just update existing icon. nReturn = WinAPI_Shell_NotifyIcon( NIM_MODIFY, @lcNotifyIconData) IF nReturn <> 1 MESSAGEBOX(" * Modifying item in tray failed!!!") RETURN nReturn ENDIF ENDIF ENDWITH RETURN nReturn ENDPROC PROCEDURE removeiconfromsystray * Removes the icon from the Taskbar Notification Area ('System Tray'). DECLARE INTEGER Shell_NotifyIcon IN shell32.dll AS WinAPI_Shell_NotifyIcon ; INTEGER dwMessage, ; string @ PNOTIFYICONDATA #define NIM_ADD 0x00000000 #define NIM_MODIFY 0x00000001 #define NIM_DELETE 0x00000002 #define NIF_MESSAGE 0x00000001 #define NIF_ICON 0x00000002 #define NIF_TIP 0x00000004 *#define NIF_STATE 0x00000008 #define NIF_INFO 0x00000010 LOCAL cNotifyIconData WITH THIS UNBINDEVENTS(_screen, "MouseWheel", this, "receiveIconEvent") .Enabled = .f. * Build structure. cNotifyIconData = .IntegerToString(_vfp.hwnd) cNotifyIconData = cNotifyIconData + .IntegerToString(.SystrayIconID * 0x10000) cNotifyIconData = cNotifyIconData + .IntegerToString(BITOR(NIF_TIP,NIF_MESSAGE ,NIF_ICON)) &&NIF_TIP,NIF_INFO,NIF_STATE, ,NIF_TIP cNotifyIconData = cNotifyIconData + .IntegerToString(0x20A) && uCallback cNotifyIconData = cNotifyIconData + .IntegerToString(0) && icon handle cNotifyIconData = cNotifyIconData + PADR(LEFT(TRANSFORM(.TipText), 63), 64, CHR(0)) cNotifyIconData = .integertostring(LEN(cNotifyIconData) + 4) + cNotifyIconData ENDWITH nReturn = WinAPI_Shell_NotifyIcon(NIM_DELETE, @cNotifyIconData) THIS.ShellVersion = 0 IF TYPE("_Screen.nSysTrayCount")="N" AND _Screen.nSysTrayCount=1 * There has not been two simultaneous instances of this object * in the current session. We can clean up after ourselves. _Screen.nSysTrayCount = 0 SYS(2060, THIS.nPrevMWAccrual) && Reset mousewheel behavior. ENDIF ENDPROC PROCEDURE showmenu LPARAMETERS lcMPRFileName, p1, p2, p3, p4, p5, p6 * Displays the shortcut menu near the taskbar icon. * If the menu is defined as a set of tokens and text strings, the * menu is defined here. Otherwise, the specified MPR is called. * If the first parameter is blank or not specified, the contents * of the MenuText property are used to define/determine the menu. * If the first parameter is not blank, it is assumed to specify * the MPR to run. The MenuText property is ignored. * * The additional parameters are passed on to the MPR. They are only * used if the cMPRFileName parameter is specified and non-blank. * * In order to display the shortcut menu in the proper location, * we must activate it within a toplevel form (with .visible = .t.), * near the taskbar. * On WindowsME, Win2k and later, the form is made invisible by * calling a Windows API function. (See the INIT of the form class.) * But on Win98 and NT4, that API function didn't exist, so we make it * a "Desktop" form instead. This allows us to remove the titlebar and * make the form so small it won't be noticed. But it causes slightly * incorrect behavior when trying to clear the menu. LOCAL lhPreviousWindow, lcPOINT, lnReturn, lnXCoord, lnYCoord, lcClassLib, llContinue LOCAL lnTaskBarLeft, lnTaskBarTop, lnTaskBarRight, lnTaskBarBottom, lnTaskBarLocation LOCAL loTempForm as Form * Our invisible form must be made the top window in order to make the shortcut * menu get cleared properly if user clicks elsewhere. Therefore, we store the * handle of the current foreground window, so we can restore it later. DECLARE INTEGER GetForegroundWindow IN user32.dll AS WinAPI_GetForegroundWindow lhPreviousWindow = WinAPI_GetForegroundWindow() * Get location of the mouse pointer. DECLARE INTEGER GetCursorPos IN user32.dll AS WinAPI_GetCursorPos STRING @ lcPOINT = REPLICATE(CHR(0), 8) lnReturn = WinAPI_GetCursorPos(@lcPOINT) lnXCoord = THIS.StringToInteger(LEFT(m.lcPOINT,4)) lnYCoord = THIS.StringToInteger(SUBSTR(m.lcPOINT, 5)) * Get the position and coordinates of the taskbar. lnTaskBarLeft = 0 lnTaskBarRight = 0 lnTaskBarTop = 0 lnTaskBarBottom = 0 lnTaskBarLocation = THIS.GetTaskBarPosition(@lnTaskBarLeft, @lnTaskBarTop, @lnTaskBarRight, @lnTaskBarBottom) * Need Top-Level form. * It also has ShowInTaskBar=.F. so we don't get a large button on the taskbar. * It is also invisible, using the SetWindowLong API function in the form's INIT. lcClassLib = "systray.vcx" llContinue = .T. DO WHILE llContinue TRY loTempForm = NEWOBJECT("x_frmInternalSystrayUseOnly", lcClassLib ) llContinue = .F. CATCH IF lcClassLib = "systray.vcx" * Try to create the form by looking in the same place as this object lcClassLib = ADDBS(JUSTPATH(SYS(1271, this))) + "systray.vcx" ELSE loTempForm = .Null. llContinue = .F. ENDIF ENDTRY ENDDO * Now position form near mouse, but adjust for taskbar. DO CASE CASE m.lnTaskBarLocation = 1 && Left loTempForm.top = m.lnYCoord loTempForm.Left = m.lnTaskBarRight + 7 CASE m.lnTaskBarLocation = 2 && Top * Ideally would determine height of titlebar, and subtract that. * But this is sufficient. loTempForm.top = m.lnTaskBarBottom - 8 loTempForm.Left = m.lnXCoord CASE m.lnTaskBarLocation = 3 && Right loTempForm.top = m.lnYCoord loTempForm.Left = m.lnTaskBarLeft - this.MenuOffsetFromRight && Roughly the width of a typical menu. OTHERWISE && Bottom, or coding error. * Just place the window near the mouse. loTempForm.top = m.lnYCoord loTempForm.Left = m.lnXCoord ENDCASE * Window must be the foreground window when shortcut menu displayed. Otherwise, * clicking in another window won't release the shortcut menu. loTempForm.Show THIS.SetForegroundWindow(loTempForm.hWnd) * Now display the menu. DO CASE CASE (PCOUNT() > 0 AND TYPE("m.lcMPRFileName") = "C") * Want to run the MPR specified in parameter IF PCOUNT() = 1 DO (m.lcMPRFileName) RELEASE loTempForm ELSE * Build parameter list LOCAL lcParamList, lnCount lcParamList = "p1" FOR nCount = 3 TO PCOUNT() && if PCOUNT() is only 2, don't enter loop. lcParamList = m.lcParamList + ", p" + TRANSFORM(m.lnCount - 1) ENDFOR DO (m.lcMPRFileName) WITH &lcParamList RELEASE loTempForm ENDIF CASE THIS.MenuTextIsMPR AND FILE(THIS.MenuText) * We want to run the MPR specified in MenuText property. DO (THIS.MenuText) RELEASE loTempForm OTHERWISE * Build menu from this.MenuText. LOCAL lnMenuItems, lcMenuName, laMenuItems[1], lnCurrentMenuItem LOCAL lnToken, lcText, lnBarNum lnMenuItems = ALINES(m.laMenuItems, THIS.MenuText, .T., ";") IF m.lnMenuItems = 0 RELEASE loTempForm RETURN .f. ENDIF IF m.lnMenuItems % 2 != 0 * Incorrect number of items in MenuText property. IF m.lnMenuItems > 1 lnMenuItems = lnMenuItems - 1 ELSE RELEASE loTempForm RETURN .f. ENDIF ENDIF lcMenuName = SYS(2015) * Make private variable to receive the ID of the selected menu item. PRIVATE __systray_menu_return __systray_menu_return = 0 * Build the menu. DEFINE POPUP (m.lcMenuName) SHORTCUT RELATIVE FROM MROW(),MCOL() FOR lnCurrentMenuItem = 1 TO m.lnMenuItems STEP 2 lnToken = VAL(m.laMenuItems[m.lnCurrentMenuItem]) lcText = m.laMenuItems[m.lnCurrentMenuItem + 1] lnBarNum = FLOOR(m.lnCurrentMenuItem/2) + 1 DEFINE BAR (lnBarNum) OF (m.lcMenuName) PROMPT (m.lcText) lcOnSelectionBar = "ON SELECTION BAR " + TRANSFORM(m.lnBarNum) + " OF " + ; TRANSFORM(m.lcMenuName) + " __systray_menu_return = " + TRANSFORM(m.lnToken) &lcOnSelectionBar ENDFOR SET ESCAPE off * Display the menu and wait for user action. ACTIVATE POPUP (m.lcMenuName) RELEASE loTempForm THIS.ProcessMenuEvent(__systray_menu_return) RETURN __systray_menu_return ENDCASE * Menu has been deactivated. Restore previous foreground window. This.SetForegroundWindow(m.lhPreviousWindow) ENDPROC PROCEDURE processmenuevent LPARAMETERS nMenuItemID * This event is fired after a menu has been clicked or cleared. ENDPROC PROCEDURE iconclickevent * This "event" is called when the user left-clicks on the icon. * Default behavior is to display the menu: IF NOT ISBLANK(THIS.MenuText) THIS.ShowMenu() && The ShowMenu method will handle any errors. ENDIF ENDPROC PROCEDURE integertostring LPARAMETERS nInteger * Changes an integer into the Intel representation of that integer. * Used to build structures. RETURN CHR(BITAND(nInteger, 255)) + CHR(BITAND(BITRSHIFT(nInteger, 8), 255)) + ; CHR(BITAND(BITRSHIFT(nInteger, 16), 255)) + CHR(BITAND(BITRSHIFT(nInteger, 24), 255)) ENDPROC PROCEDURE loadicon LPARAMETERS cIconFileName * Loads an icon as a Windows resource. Returns the resource handle. LOCAL cOldTalk, cTempFileName, hImage DECLARE INTEGER LoadImage IN user32.dll AS WinAPI_LoadImage ; INTEGER hinst, ; STRING lpszName, ; INTEGER uType, ; && uint INTEGER cxDesired, ; INTEGER cyDesired, ; INTEGER fuLoad && uint ** LoadImage defines **** #define IMAGE_ICON 1 #define LR_LOADFROMFILE 0x0010 * Assume that the icon is contained in the app/exe file. Copy to temp before loading. IF FILE(cIconFileName) cTempFileName = ADDBS(GETENV("temp")) + "systray_temp_" + SYS(3) + ".icn" COPY FILE (cIconFileName) TO (cTempFileName) ELSE RETURN ENDIF m.hImage = WinAPI_LoadImage( 0, ; && Don't load from resource file cTempFileName, ; IMAGE_ICON, ; 0, ; 0, ; LR_LOADFROMFILE) * Now need to erase the temp file. SET TALK OFF to avoid the "File has been erased" * message on the status bar. cOldTalk = SET("TALK") ERASE (cTempFileName) SET TALK &cOldTalk IF m.hImage = 0 this.Error(0, "Failed to load icon '" + cIconFileName + "'. in " + PROGRAM(), LINENO()) ENDIF RETURN m.hImage ENDPROC PROCEDURE tiptext_assign LPARAMETERS vNewVal * The text for the tooltip is being changed. THIS.tiptext = ALLTRIM(m.vNewVal) IF THIS.Enabled * This icon is already displayed in the Taskbar Notification Area, * so we must update the systray immediately: this.AddIconToSystray() endif ENDPROC PROCEDURE currenticonindex_assign LPARAMETERS vNewVal * This is called when user changes the CurrentIconIndex property. THIS.currenticonindex = m.vNewVal IF this.Enabled * We're attached to systray. Update immediately. this.AddIconToSystray ENDIF ENDPROC PROCEDURE stringtointeger LPARAMETERS lcPDWORD, lnBytes * Converts a string from the Intel int, DWORD,WORD, and BYTE formats * into a VFP integer. IF PCOUNT() < 2 lnBytes = 4 && No length provided, assume 4-byte integer. ENDIF LOCAL lnReturn, lnCurByte lnReturn = 0 FOR lnCurByte = 1 to m.lnBytes lnReturn = m.lnReturn + ASC(SUBSTR(m.lcPDWord, m.lnCurByte, 1))*(256^(m.lnCurByte-1)) ENDFOR RETURN lnReturn ENDPROC PROCEDURE gettaskbarposition LPARAMETERS nLeft, nTop, nRight, nBottom * We position any menus near where the mouse just clicked. But we need to * fine-tune that position depending on which edge of the screen the * user has docked the taskbar. This method retrieves the absolute * coordinates of the taskbar, and derives from those coordinates which * edge the taskbar is on. #DEFINE ABM_GETTASKBARPOS 0x00000005 DECLARE INTEGER SHAppBarMessage IN shell32.dll as WinAPI_SHAppBarMessage ; INTEGER dwMessage, STRING @ PAPPBARDATA LOCAL cAPPBARDATA, nReturn WITH THIS cAPPBARDATA = .IntegerToString(0) && hWnd cAPPBARDATA = cAPPBARDATA + .IntegerToString(0) && uCallBackMsg cAPPBARDATA = cAPPBARDATA + .IntegerToString(0) && Edge cAPPBARDATA = cAPPBARDATA + REPLICATE(CHR(0), 4*4) && RECT structure cAPPBARDATA = cAPPBARDATA + .IntegerToString(0) && lParam cAPPBARDATA = .IntegerToString(LEN(cAPPBARDATA) + 4) + cAPPBARDATA nReturn = WinAPI_SHAppBarMessage(ABM_GETTASKBARPOS, @cAPPBARDATA) * Taskbar coordinates should be in RECT structure. nLeft = .StringToInteger(SUBSTR(cAPPBARDATA, 17, 4)) IF nLeft > 0xFFFFFF && If the number is ridiculously large, assume it was a negative number. nLeft = 0 - (0xFFFFFFFF - nLeft) ENDIF nTop = .StringToInteger(SUBSTR(cAPPBARDATA, 21, 4)) IF nTop > 0xFFFFFF nTop = 0 - (0xFFFFFFFF - nTop) ENDIF nRight = .StringToInteger(SUBSTR(cAPPBARDATA, 25, 4)) IF nRight > 0xFFFFFF nRight = 0 - (0xFFFFFFFF - nRight) ENDIF nBottom = .StringToInteger(SUBSTR(cAPPBARDATA, 29, 4)) IF nBottom > 0xFFFFFF nBottom = 0 - (0xFFFFFFFF - nBottom) ENDIF ENDWITH DO CASE * Must use approximations for taskbar coordinates, because they oare slightly different * on different versions of Windows. CASE nLeft < 2 AND nTop < 2 AND nRight < 479 && Roughly minimum width in portrait mode. RETURN 1 && Left CASE nLeft < 2 AND nTop > 0 RETURN 0 && Bottom CASE nLeft < 2 AND nTop < 2 && Must be top, otherwise first case would take it. RETURN 2 && Top OTHERWISE RETURN 3 && Right ENDCASE *!* typedef struct _AppBarData { *!* DWORD cbSize; *!* HWND hWnd; *!* UINT uCallbackMessage; *!* UINT uEdge; *!* RECT rc; *!* LPARAM lParam; *!* } APPBARDATA, *PAPPBARDATA *!* typedef struct _RECT { *!* LONG left; *!* LONG top; *!* LONG right; *!* LONG bottom; *!* } RECT ENDPROC PROCEDURE getshellversion DECLARE INTEGER DllGetVersion IN shell32.dll AS WinAPI_Shell32_DllGetVersion ; STRING @ DLLVERSIONINFO * Windows 98 typically returns 4.72, depending on version of IE installed. * Windows ME returns 5.5 or greater. * Windows 2000 returns 5.0 * Windows XP returns 6.0 LOCAL lcDLLVersionInfo, lnMajor, lnMinor WITH THIS lcDLLVersionInfo = .IntegerToString(20) lcDLLVersionInfo = m.lcDLLVersionInfo + REPLICATE(CHR(0), 16) WinAPI_Shell32_DllGetVersion(@lcDLLVersionInfo) lnMajor = .StringToInteger(SUBSTR(m.lcDLLVersionInfo, 5, 4)) lnMinor = .StringToInteger(SUBSTR(m.lcDLLVersionInfo, 9, 4)) RETURN VAL(STR(m.lnMajor, 2, 0) + "." + ALLTRIM(STR(m.lnMinor,3,0))) ENDWITH ENDPROC PROCEDURE iconrightclickevent * This "event" is called when the user right-clicks on the icon. * Default behavior is to display the menu: IF NOT ISBLANK(THIS.MenuText) THIS.ShowMenu() && The ShowMenu method will handle any errors. ENDIF ENDPROC PROCEDURE iconfile_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ICONFILE = m.vNewVal * Updating this property will release all other icons. THIS.ClearIconList() THIS.AddIconToIconList(m.vNewVal) && Going from 0 to 1 icon updates systray immediately. ENDPROC PROCEDURE showballoontip LPARAMETERS lcBalloonText, lcBalloonTitle, lnIcon, lnTimeout * Displays a balloon tip if the Operating System shell supports it. * The lnTimeout parameter is the number of SECONDS to display the balloon. This * timeout period is subject to minimum and maximum values set by the operating * system (typically 10 and 30 seconds). * The lnIcon parameter specifies the icon to display in the * balloon. The values are as follows: * 0 = No icon * 1 = Info. A lowercase "i" in a small balloon * 2 = Warning. An exclamation point (!) in a triangle. * 3 = Error. A red disk with an X through it. * Add 16 (0x10) to the value to mute the sound that is played when * the balloon is displayed (Windows XP and later). * This method uses #DEFINES that are set in the AddIconToSystray method. IF PCOUNT() < 1 * Must at least include the balloon Text. RETURN -1 ENDIF IF THIS.ShellVersion < 5 &&GetShellVersion() < 5.00 * This shell doesn't support balloon tips. RETURN -1 ENDIF IF TYPE("m.lcBalloonText") <> "C" RETURN -1 ENDIF IF TYPE("m.lcBalloonTitle") <> "C" lcBalloonTitle = "" ENDIF IF TYPE("m.lnIcon") <> "N" lnIcon = 0 ENDIF IF TYPE("m.lnTimeout") <> "N" lnTimeout = 0 ELSE lnTimeOut = m.lnTimeout * 1000 && Convert seconds to Milliseconds. ENDIF LOCAL lcNotifyIconData, lnReturn WITH THIS * Build NOTIFYICONDATA structure compatible with version 5 of the shell. lcNotifyIconData = .IntegerToString(_vfp.hwnd) lcNotifyIconData = lcNotifyIconData + .IntegerToString(.SystrayIconID * 0x10000) lcNotifyIconData = lcNotifyIconData + .IntegerToString(BITOR(NIF_TIP,NIF_MESSAGE ,NIF_ICON, NIF_INFO)) &&NIF_TIP,NIF_INFO,NIF_STATE lcNotifyIconData = lcNotifyIconData + .IntegerToString(0x20A) && uCallback lcNotifyIconData = lcNotifyIconData + .IntegerToString(.aIconList[.CurrentIconIndex]) && icon handle lcNotifyIconData = lcNotifyIconData + PADR(LEFT(TRANSFORM(.TipText), 127), 128, CHR(0)) && TipText lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwState lcNotifyIconData = lcNotifyIconData + .IntegerToString(0) && dwStateMask lcNotifyIconData = lcNotifyIconData + PADR(LEFT(TRANSFORM(m.lcBalloonText), 255),256, CHR(0)) && balloon tip. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(m.lnTimeOut) && Timeout/Version lcNotifyIconData = lcNotifyIconData + PADR(LEFT(TRANSFORM(m.lcBalloonTitle), 63),64, CHR(0)) && balloon tip title. lcNotifyIconData = lcNotifyIconData + .IntegerToSTring(BITAND(lnIcon, 0x1F)) && Info flags lcNotifyIconData = .IntegerToString(LEN(lcNotifyIconData) + 4) + lcNotifyIconData && length of structure * Send request to display balloon. This is asynchronous, so * balloon may not be displayed immediately. lnReturn = WinAPI_Shell_NotifyIcon( NIM_MODIFY, @lcNotifyIconData) ENDWITH ENDPROC PROCEDURE Destroy WITH THIS IF .Enabled .RemoveIconFromSystray() .ClearIconList() && Release resources. ENDIF ENDWITH ENDPROC PROCEDURE Init * If there is an initial icon specified, add it to the Icon List. IF TYPE("THIS.IconFile") = "C" AND LEN(THIS.IconFile) > 0 THIS.AddIconToIconList(THIS.IconFile) ENDIF * Add icon to systray if requested. IF this.AddIconToSystrayAtInit this.AddIconToSystray ENDIF ENDPROC 3"33z,%O,F2h.U%0B-T9%%H& C ,      B {   B /  B Q  B s  B  B  B 2B H  ,     <  B ^  B   B 2BU NDIRECTIONNSHIFTNXCOORDNYCOORDTHIS SYSTRAYICONIDLEFT SHELLVERSIONICONCLICKEVENTICONDBLCLICKEVENTICONRIGHTCLICKEVENTICONMIDDLECLICKEVENTBALLOONSHOWEVENTBALLOONHIDEEVENTBALLOONTIMEOUTEVENTBALLOONCLICKEVENT%Cm.lhWndbNH|SetForegroundWindow user32.dllQWinAPI_SetForegroundWindowC BB%CO% Ta%T%9  5%91T9H|SetForegroundWindow user32.dllQWinAPI_SetForegroundWindowC U LHWNDSETFOREGROUNDWINDOWUSER32DLLWINAPI_SETFOREGROUNDWINDOWTHISFORMVISIBLE WINDOWSTATE SHOWWINDOWHWND%'B8| DestroyIcon user32.dllQWinAPI_DestroyIcon(CCC TTU THIS ICONCOUNT DESTROYICONUSER32DLLWINAPI_DESTROYICON NCURRENTICON AICONLISTCURRENTICONINDEX%C0 B-TC % WB-TT %TBaU CICONFILENAMENHANDLETHISLOADICON ICONCOUNT AICONLISTCURRENTICONINDEX|u%g%FT cT BUTHIS ICONCOUNTCURRENTICONINDEXtd %  ? B% %+%C_screen.nSysTrayCountbUC nSysTrayCount9 %9?T9T99T9@TCC ]gC ]F|Shell_NotifyIcon shell32.dllQWinAPI_Shell_NotifyIcon%  T?  TTCCTCTCC   TC TCC'TCCC_=C % TCTCTCC QTCTCC @QTCCTCC>% TC  %%9T9C ] B5TC9 MouseWheelreceiveIconEvent Ta%CTCCTCTCC   TC TCC#TCCC_=C TCTCTCC QTCTCC @QTCCTCC>TC  %s BT %C>?TC  % B T  `TC  %\1C% * Modifying item in tray failed!!!x B BULCNOTIFYICONDATATHIS ICONCOUNTCURRENTICONINDEXENABLED ADDPROPERTY NSYSTRAYCOUNT SYSTRAYICONIDNPREVMWACCRUALSHELL_NOTIFYICONSHELL32DLLWINAPI_SHELL_NOTIFYICON SHELLVERSIONNTIPTEXTMAXLENGTHINTEGERTOSTRINGHWND AICONLISTTIPTEXTNRETURNGETSHELLVERSIONF|Shell_NotifyIcon shell32.dllQWinAPI_Shell_NotifyIconS.C9 MouseWheelreceiveIconEvent T-TCCTC TCC   TC TC#TCCC _?=@C TCC>T C T 8%C_Screen.nSysTrayCountbN 9  T9 C ]USHELL_NOTIFYICONSHELL32DLLWINAPI_SHELL_NOTIFYICONCNOTIFYICONDATATHISENABLEDINTEGERTOSTRINGHWND SYSTRAYICONIDTIPTEXTNRETURN SHELLVERSION NSYSTRAYCOUNTNPREVMWACCRUALB     QFORMG|GetForegroundWindow user32.dllQWinAPI_GetForegroundWindowTC;| GetCursorPos user32.dllQWinAPI_GetCursorPosTCC QT CT CC =T CC \ T T T T!TCT  systray.vcx T a+  .TCx_frmInternalSystrayUseOnly T - % systray.vcxk(T CCC] systray.vcx  T T -H T T  "T T  bT T  2T T   C"!H(1 CtCm.lcMPRFileNamebC %Ct  <  #$T#p1%(Ctx"T# #, pC $_*DO (m.lcMPRFileName) WITH &lcParamList < & C'0  '< 2(()*+,-.T(C *'a;% (W<B-%C (G% (T(( <B-T)C]5/ T/s )CCW!+( (T,CC + *gT-C + *T.C + zs. )" -[T0ON SELECTION BAR C ._ OF C )_ __systray_menu_return = C ,_&lcOnSelectionBar G t )<C/1 B/C !U2 LCMPRFILENAMEP1P2P3P4P5P6LHPREVIOUSWINDOWLCPOINTLNRETURNLNXCOORDLNYCOORD LCCLASSLIB LLCONTINUE LNTASKBARLEFT LNTASKBARTOPLNTASKBARRIGHTLNTASKBARBOTTOMLNTASKBARLOCATION LOTEMPFORMGETFOREGROUNDWINDOWUSER32DLLWINAPI_GETFOREGROUNDWINDOW GETCURSORPOSWINAPI_GETCURSORPOSTHISSTRINGTOINTEGERGETTASKBARPOSITIONTOPLEFTMENUOFFSETFROMRIGHTSHOWSETFOREGROUNDWINDOWHWND LCPARAMLISTLNCOUNTNCOUNT MENUTEXTISMPRMENUTEXT LNMENUITEMS LCMENUNAME LAMENUITEMSLNCURRENTMENUITEMLNTOKENLCTEXTLNBARNUM__SYSTRAY_MENU_RETURNLCONSELECTIONBARPROCESSMENUEVENT U NMENUITEMID*%CZ # CUTHISMENUTEXTSHOWMENUQGBCC CCC CCC CCC UNINTEGERz>| LoadImage user32.dllQWinAPI_LoadImage%C05TCCtemp5 systray_temp_C].icn( B#T CTCTALKv SET TALK &cOldTalk % h?CFailed to load icon ''. in Ct   B U CICONFILENAMECOLDTALK CTEMPFILENAMEHIMAGE LOADIMAGEUSER32DLLWINAPI_LOADIMAGETHISERRORATC %: CUVNEWVALTHISTIPTEXTENABLEDADDICONTOSYSTRAY<T %5 UVNEWVALTHISCURRENTICONINDEXENABLEDADDICONTOSYSTRAY %Ct + T  T( 2T CC \  BULCPDWORDLNBYTESLNRETURN LNCURBYTED|SHAppBarMessage shell32.dllQWinAPI_SHAppBarMessage   VTC TC TC TCC QTC TCC> T C TCC\ %\T ATCC\ %T ATCC\ %T ATCC\ %RT AHk*     B    B    B 2 BU NLEFTNTOPNRIGHTNBOTTOMSHAPPBARMESSAGESHELL32DLLWINAPI_SHAPPBARMESSAGE CAPPBARDATANRETURNTHISINTEGERTOSTRINGSTRINGTOINTEGERF| DllGetVersion shell32.dllQWinAPI_Shell32_DllGetVersionTCT CC QCTCC \ TCC  \ *BCC Z.CC ZgU DLLGETVERSIONSHELL32DLLWINAPI_SHELL32_DLLGETVERSIONLCDLLVERSIONINFOLNMAJORLNMINORTHISINTEGERTOSTRINGSTRINGTOINTEGER*%CZ # CUTHISMENUTEXTSHOWMENU<T CC UVNEWVALTHISICONFILE CLEARICONLISTADDICONTOICONLIST%Ct 0 B% T B%%Cm.lcBalloonTextbC B&%Cm.lcBalloonTitlebC T%Cm.lnIconbN T!%C m.lnTimeoutbN T =T  TCC TC "TCC    TC TCC #TCCC _=C TCTC%TCCC _=C TC $TCCC _?=@C TCCTCC>TC U LCBALLOONTEXTLCBALLOONTITLELNICON LNTIMEOUTTHIS SHELLVERSIONLCNOTIFYICONDATALNRETURNINTEGERTOSTRINGHWND SYSTRAYICONID AICONLISTCURRENTICONINDEXTIPTEXTWINAPI_SHELL_NOTIFYICON@9%5 C CUTHISENABLEDREMOVEICONFROMSYSTRAY CLEARICONLISTm3%C THIS.IconFilebC C> FC%f UTHISICONFILEADDICONTOICONLISTADDICONTOSYSTRAYATINITADDICONTOSYSTRAYreceiveiconevent0setforegroundwindow cleariconlistaddicontoiconlist switchiconBaddicontosystrayremoveiconfromsystray}showmenuprocessmenueventiconclickeventintegertostring<loadicontiptext_assigncurrenticonindex_assign stringtointeger gettaskbarpositionX!getshellversion$iconrightclickevent&iconfile_assign&showballoontipZ'Destroy+Init+11frA1BdaA1AAAAAAAAAAABAAAAAAABAAB4qAABt1AcAQAAA5ABAQAA5q"qAsQqA1qAAAr7AQ1AAA4qAaAAQqZAibADqqAaaaAS1RAARTEq1aaaS1AdQ1AAAR1AAB3f}Dqa1AR!A3PquA!AAAQ!aQc!Q!"!A13q!AqAqQqqARqqAArQAarB32q4dA4qt4qQ!AA74aSA2qB"A2q#!A34A!A21K!aaaRaAaAaAaABA@1b!A3dA3q"1311AbARAbAAAAB!q1aaQAUA3AB421A$A2, 7V lNN[vmx9#8O8>>2VKYVVMVWQWYTY]f]^l#_`r+`a}aYkk6n=`n7oU]ojp^p{h{X|s|})3z"aai% Uy?| SetWindowLong USER32.DLLQWinAPI_SetWindowLongC TTU SETWINDOWLONGUSER32DLLWINAPI_SETWINDOWLONGTHISHWNDWIDTHHEIGHTInit01r1$)a% Ej UVښ F T ~%Cq_test=QTVoqXtccventQ XtventasQ XcompromQ C ZC ZQ Q  Q  Q  Q QC Q         q_test% 0CError en el pedido CCZ !!!T%Cq_test!Q%<B1oqXtccventQ XtventasQ XclientesQ$ XcliauxQ( (;(<C ZPXcompromQ     XbienesQ  XsucursalQ7 C>Z7QQQ Q QC Q C QCQC ZQ  !Q"Q#%Q& ARGENTINAQ'()Q*(+Q,(-Q.(/Q0CC1 126Q2CC3 346Q4CC5 566Q6C7%C(XQ8     !%()(+(-(/  q_logistica%CNQ? G(9@A BF?*TBC\tmp\rpt_es_sri_logistica (BG+(listadosG~(ClasesTEC ExportacionesN(TFCExportaciones_ParametrosNTFGPedidosTFHBTFIPedidos CFJ#Cpedido Nro_PedidoFJCcom_fecFechaFJ%Ccli_cod Cod_ClienteFJ&Ccod_ins Cod_ProductoFJ*Cbie_desDescripcion_ProdFJ-C recepcionCantidad_UnidadesFJ Cean Codigo_EANFJ(C observacio ObservacionFJ'C tipo_envio Tipo_envioFJ)Ccli_nomNombre_ApellidoFJCpaisPaisFJ%C provincia ProvinciaFJ%C localidad LocalidadFJ"Ccp Codigo_PostalFJ%C domicilio DomicilioFJ%Chorario ReferenciasFJ CphonoTelefonoFJCemailEmailFJ#CsucursalSucursalFJTFKCFELQ? G(9@A BUMQXACCQ_TESTXPEDIDOPEDIDOTCCOD_CLICLI_CODTCOD_INS RECEPCIONCANTIDADITMCMCM_ITMCODCM_CODCANCM_CANTCCVENTTVENTASCOMPROMIDMENSAJEFEC_VENCOM_FECBDESCRBIE_DESRECEP1RECEP2BARRASEANDSP OBSERVACIO TIPO_ENVIOCNOMBRECLI_NOMPAISCLENTPRO PROVINCIAENTCIU LOCALIDADENTZIPCPENTDOM DOMICILIOHOR2HORARIOPHO2PHONOEMAIL2EMAILSSUCURSALCLIENTESCLIAUXCOMPROBCAUSABIENESSUC Q_LOGISTICA ACTIVEFORM DATASESSIONIDXARCHIVOP_LOCALLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLStrAa"ABrA2AA3"ABAs&!sq2QaqQQ!QQ1 AB2  ( @ #.#.#!r%!'!! $o$!!+!!$ $ # %!# >&# $ #&!#F#$ Q$ #"w% |#"!!$ D D D$ D%!##"")$ D D D D D$ D!$"#!#$ D D$ D%#)$&!&!(###7&"##'""f#)$&!&!&!&!'""!,%!# #&"#k"w(#%!)$#$~&!###% "H![$ $ $#"## #####%!"^ D$ % #!$# $ #% #q====11"% $ $ ~#7 4# V#%!$##2# N&!"""""""##"""$!#z"$ #&!#"%!$ #$#!#)$&!&!&!&!&!&!&!&!&!&!&!&!(""|#$ #######$#"#"&"############% #|#$ #######$#"#"&"############% #|#$ #######$#"#"&"############% #|#$ #######$#!$"&"############% #|#$ %!%!%!%!%!%!$ $#!!"&"############% #|"$ !h#M#M#M#M#F"'"#"&"############% #|##, !!$ &" D"&"############% #|##&")$""&"############% #|##,#z(## "&"############% #|"$ #####'""P"&"############% #|#&"'#(#(#(#'##"&"############% "#y%!""#$ "`# &"############% "#)$&"&"&"&"&"&"&"&"&"&"&"&"(## "_%m"m"m"m"m"m"m"m"m"m"m"m#!j??=@?@%,+swMB07 4 a Ta Ta5-c:\sistema\2000-estable\system\data\1\ges.dbcTCSQ%Cbienes 8Q,c:\sistema\2000-estable\system\data\1\bienes%Cbultos !8Q,c:\sistema\2000-estable\system\data\1\bultos%Catributo y:Q.c:\sistema\2000-estable\system\data\1\atributo%Ccurvas 8Q,c:\sistema\2000-estable\system\data\1\curvas T TT C  sys_procesandoC BUXCODXCURVAS DEY_FUNC2P_DEV P_SUSPENDCCL_ATRXERRXMSG XRESULTADOPROCESAR_PRECARGASP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOMENSAJE 4C Suspendo?a0sys_procesando Procesando C$%Cbienescodins T%TArtculo inexistente !!! B'%Ccurvascodigo ' T-T Curva inexistente (subgrupo) !!! BT 7     T T(ocurvas  T %  TTCurva vaca !!! B(ocurvas % t TTCurva vaca !!! B$oatributo T %  T+TNo hay atributos (colores) !!! B7sys_procesandoCalculando stock: C(( T2T CC C%C  T B4sys_procesandoDistribuyendo: C J( Ta((TC ( T TC!% !% !% !% A T$TNo alcanza el stock !!! B%CborrargF"Qxhborrar#C $N %N &N 'N (N )N  T*(rborrar#$%&'()C C C C C C C VT**C C C C C C  T+(+T++C T++%+*2Cxmax=CC*Z xcontrol=CC+Z,%  TVTError de control !!!C C  Diferencias=CC*Z vs CC+Z BT-C]%C tmp_precarga2DF.Q\h1/\tmp\-0C1CC2NQ/\tmp\-. T*( (| F-  T3Nr tmp_precarga2012C 3C  BU4XERRXMSGXCODXCURVASSYS_MOSTRAR_SCREEN SP_MENSAJESYS_PROCESANDOBIENESSUBGRUPO XSUBGRUPO ARR_CURVAARR_ATRARR_STKARR_RES MAXARR_CURVA MAXARR_ATRCANTIDADCURVASSUBCODIGOBULARR_BULCLAVEATRIBUTOCOD_INSZZZCALCULAR_STOCKXOKFULLZCSXCANTIDAD_CURVAZYXXLEVEL DISTRIBUIRBORRARCOLORT1T2T3T4T5T6XMAXXCONTROLMENSAJEXTMP_PRECARGA2 TMP_PRECARGA2P_LOCALCODATRCANXBUL T%/< T("TCT C(#%CC}5TCCC5TCCCTBa% p%  T  T  ( l%C a )TBa% M T  hT  TB-U XTALLEXNORECUSRSIVARXLEVELARR_ORD MAXARR_ATRXMAXORDZZARR_RESARR_STK MAXARR_CURVAXTALLE_LATERALYY DISTRIBUIR4 T(%Cbultoscodigo u$TBulto inexistente:  B*%Catributocodigo 'TAtributo inexistente:  B T<SotcomprastcccompC     % d T TC%1proc_stk VotventastccventC   % 9 XTCaoventasccventC   %  TC BUXMSGXCODXATRXBULXSTK ARR_TMP_STKSUM RECEPCIONTCOMPRASTCCCOMPORDENCOD_INSATRBUL OBTENER_STOCKPROC_STKTVENTASTCCVENTPEDIDOVENTASCCVENTFAC_VENCAUSAprocesar_precarga distribuirNcalcular_stockgBQR2AAAAB51rBQArAs"A"AJ"APq!"AAA0A#"AAAAAAAAAABrqAAbCaA2!"aAAqAArAA22Bx1!A1RQqAA3ARqA2ABBq31AAqArr5"A2f"QA"QAB2H711L~ u%DX$EP\G+(listados4in_controlar_solFTC] T< T<%Cmedidas Qmedidas!G( \tmp\.txtG G  $CCODIGO INTERNO CCANTIDAD  CUNI  =   C CANT. AUX.  CUNI !C DESCRIPCION CNOTAS C-Q C- Q C-Q C-Q C- Q C-Q C-Q C-Q  ~  T  9,999,999.99T CX%C &%C bienescodinsC _ '%CMedidascodigo9T  %Cmedidas+ $in_operaciones    %| =  C _ '%CMedidascodigoT  %Cmedidas+ d$in_operaciones     CX C X CX  3C _ CX CX C X CX C<  T( TC< TC[%C! CX C X CX GG(6Trun /n notepad \tmp\.txt&aaa BULISTADOSVER_SOLIN_CONTROLAR_SOLSOL_PENDIENTESSOLTMPXFILE XTAM_DESCR XTAM_NOTASMEDIDASP_LOCALXMASKCODXMEDIDACANTIDADBIENESMEDCODABREVDECIMALES_OPERACIONESIN_OPERACIONES DECIMALES MEDAUXCODFACTORDESCRXXXNOTASZYYYAAA!Cu1AaarrAArqqqqqqqQbcrACABBrACAB211BCa2111Ab!A111ABFbadB1PNG  IHDR szz pHYsuucQ2tIME  x|qIDATX헱n@Y߉+hx *H4yJ詁Q4<2U"!!D!8yw>wDrMƲve߮w-1t_\>)%9wF^0=n>*F}= 0'Ԉ( V8LD@Ƽ;W'DC!jw™ϫ]4c2@אaL.~;TU>?APThV@#2A[w}sbkPQ JڞD,ը/Es LJp8ILC%anξ{NAdҀkic!@#*0Ѷ sm g@(5A9"HXn ǧP0kos)#p;U[TbIDw6{BeY^cdDjTR3 MػG_9f-e  xB%! x<[p̺W5;"7lF|)D JTp1:o6T!p=X>F)%;OwO 2bkTZO?IENDB`PNG  IHDR szz pHYsuucQ2tIME 5A IDATX;0-RPe;삊PNeHKIs+[M0R$?& ;>`833iQc~Ck:k-D2xfk-8~@UU4MD5D$̿ DeYsw_EuPJpA) Nfd2 ډZc"l8nBvxW<zcbh{ "TPR Jv\]Dy[A6ADp5@D zF, ^7ΝS?|2skii+WLmۈD"Oy\-J꺾488G{xۮQR(+333RRyo &''_WwP׍l6f8d)Ǔ7 C[XX8B+O&WO8D"z?֧~?66H[n)^TUա(ʤm\*(mnZ hXEtx4혛0 >W(qkkkbbl4Q.Q(iHx<|>'Ο?a/ȲP(Ԉk  4Q EIN3v|NXV188nFXD::uHR^E#['z~\. _fgg!ln.I+]p׺^*^tokLR*PJ*xAdeAeLOOfO*JBLӄ(|dYn={M\V]ij'l61Hdw-χp8T*JѣGZHpTݻٶ1Ƹc àhg~Ñ#G0<< ey<_dәlV{&N8CD"IU" @\eYb_ 4߶L&SU7n@oo/L(dhh茢(n*dɲ}ahhsJw0DርIENDB`PNG  IHDR szz pHYsuucQ2tIME y )IDATXMj0{/0t;0DuW@Q6`M.D)B"B$%D}s`葓@@\G7r/˴. hۖܿ>MF_[ & \S]>Uče>ug|WUH 7L' =Dߥ T@p6`6uwé;EƺVM $AxĘNހ1٢,6'4 !֣*꺦bU [9Nf" 8S\PKE IENDB`PNG  IHDR szz pHYsuucQ2tIME IDATXͪ w pv]DQkAdz4:,~'B/^PPP.xuDqkT}_}D2q>Tx> @e~$ hZz$IW`0~G-gvv? =3 -3k_O}}}ٞ={$IŋرcS^^g?..\Ν;]v=gT̙3<5Lnn}$ɇ bl6O8R}ӡ@tIENDB`PNG  IHDR szz pHYs+tIME#XJ1IDATXŗKSo_ssgsl'$@a^ M $ VwAxm { ‚` vS(,C f2ل8: ;Ows|9Ǣi'ldmT*loopEn7@-洜@Rђ$KKKmFZ UUzq\.שbNdX,(X,N'>@ ?$Ͳ*Hē'OBME4-L 7n 8 ۷e:LLL0Ŵ%, .]Ȳ|*I >|^sM>} A^yGG###a&_RN!mǃ3=E5o+x =jIRB@Rb}ttT$q8ȲLwwȲu$155e. L( NE^E1x<!B 9wBiA>|>JoPxo_sݾ}IH&F2q:\|Y$'q>AC}>_C\.coo\.:l.vwwIRZ%ft:QE$Y^^cGtccx77':!˲!g>p8lPU=iooX,2;;kHF"1H$bggg)"ׯJ$1B@4HD>^eY灣uaavNϓfŵzηop\>N^7Ŧ'cQUh4j  K\>~HTtvvTIeQy$arrR/_8W\իDfZh4jJ~8SSS ]F___ÛBΎ v\<{蘞֒ɤaby^CΎC$g~#$@ꪶ RIl~~ԊJ>IENDB`h( @_gY߬תդџΙ˓ǎqXoMϿXvKWtBǾѿƴٷ\ɺѮİݴιŹ٨ܶުи˷ݝۏ}ޛސ}xcl{ޖxaTzhSxl?0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2FB00GBCS 959822615q d V  COMMENT RESERVED B WINDOWS _2IY0RY30T 9649132964{3 @ t} COMMENT RESERVED  WINDOWS _2BG1BBPFM 982297459N = & WINDOWS _2BG1BBPFM 982297465  WINDOWS _2D71F66ZK 986543714p}1:(qc &4 COMMENT RESERVED ~ WINDOWS _2BG1BBPFM 986711106 c`%W  COMMENT RESERVED  WINDOWS _2CR0QBS01 986822330 _  q  WINDOWS _2D8009AFZ 9817708207 & WINDOWS _2BG1BBPFM 981770820 I ^ " WINDOWS _2BG1BBPFM 981770820o b U D k WINDOWS _2D901JEN8 985399643+ WINDOWS _2D903IE23 985399643qd" WINDOWS _2BG1BBPFM 981770820d s  WINDOWS _2D71F66ZK 986606321ul WINDOWS _2DC12S2RM 985399643DSh{ WINDOWS _2FB00YJDC 986319125;Od{jjO@ WINDOWS _2HH022LU5 961224018& WINDOWS _2IY0S0JR9 9859895933  COMMENT RESERVED VERSION = 3.00"ff;h% UTT% T-T Ta Ta TU TCCAPTIONTHISCAPTION LLWORDWRAPWORDWRAPTHISFORMFOXCHARTSTOOLTIPAUTOSIZE9#CUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT CHARTCANVAS MOUSEMOVEcaption_assign0 MouseMove21qt"AB2111l)fFontBold = .F. FontSize = 9 FontUnderline = .F. Alignment = 0 Caption = "SideLegend" Left = 216 Top = 46 Visible = .F. Name = "SideLegend"  _chartcanvas foxcharts.vcximage12 foxcharts1 SideLegend ShapeLegend foxchartsqFontSize = 9 Alignment = 2 Caption = "ShapeLegend" Left = 108 Top = 80 Visible = .F. Name = "ShapeLegend" _legend foxcharts.vcxlabel foxcharts.vcxlabelYAxis foxchartsFontBold = .T. FontSize = 10 FontUnderline = .F. Alignment = 2 Caption = "YAxis" Height = 144 Left = 24 Top = 57 Visible = .F. Width = 24 Rotation = 270 Name = "YAxis" _legend foxcharts.vcxlabel ScaleLegend foxchartsFontBold = .F. FontSize = 7 FontUnderline = .F. Alignment = 2 Caption = "ScaleLegend" Left = 108 Top = 60 Visible = .F. Name = "ScaleLegend" _legendlabel'Internal use. Not to be used directly !_foxcharts_base foxcharts.vcx containerPixels container_foxcharts_base foxchartsClass1 foxcharts.vcxlabelFontBold = .T. FontSize = 10 FontUnderline = .F. Alignment = 2 Caption = "XAxis" Left = 108 Top = 105 Visible = .F. Name = "XAxis" |FontBold = .T. FontSize = 11 Alignment = 2 Caption = "SubTitle" Left = 108 Top = 36 Visible = .F. Name = "SubTitle" _legendFontBold = .T. FontSize = 16 Alignment = 2 Caption = "Title" Left = 108 Top = 8 Visible = .F. ForeColor = 0,128,255 Name = "Title"  foxchartsTitle foxchartsXAxislabel_legend_legend1 foxchartsPixels chart.ico chart.icoClass1_foxcharts_base container container_foxcharts_base container containerOLECompleteDrag^ OLEDrag^ OLEDragDrop^ OLEDragMode^ OLEDragOver^ OLEDragPicture^ OLEDropEffects^ OLEDropHasData^ OLEDropMode^ OLESetData^ OLEStartDrag^ OLEGiveFeedback^ _foxcharts_baseToolTip _chartcanvasPixelsClass imgcanvas _chartcanvasName = "_chartcanvas" image gdiplusx.vcx foxcharts.vcx AxisLegend2 foxchartsFontBold = .F. FontSize = 9 FontUnderline = .F. Alignment = 2 Caption = "AxisLegend2" Left = 108 Top = 130 Visible = .F. Name = "AxisLegend2" _legend_memberdata XML Metadata for customizable properties _ofont _obrush forecoloralpha backcoloralpha _height _width format Specifies the input and output formatting of a control's Value property. _transfcaption _vartype _value _orectangle _ostringformat _forceformat rotationcenter *_setup *_updatemeasures *_drawstring *caption_assign *reset Resets the legend GDI+ objects *_value_assign *rotation_assign Pixels_tooltip_legend foxcharts.vcxSubTitlelabellabel foxcharts.vcx_legendClass foxcharts.vcxPixels'Internal use. Not to be used directly !Classlabel_legendlabel containerMThis is the main FoxCharts class. Just drop it to a form and start charting ! foxchartsAutoSize = .T. WordWrap = .T. Alignment = 2 BackStyle = 1 BorderStyle = 1 Left = 216 Top = 12 Visible = .F. BackColor = 255,255,164 Name = "ToolTip"  foxchartslabel foxcharts.vcx_tooltip$Top = 0 Left = 0 Name = "Fields" FieldsACaption = "ToolTip" Height = 17 Width = 40 Name = "_tooltip" 'Internal use. Not to be used directly !'Internal use. Not to be used directly !_tooltip*caption_assign labellabelPROCEDURE caption_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.Caption = m.vNewVal ENDPROC  PROCEDURE caption_assign LPARAMETERS tcCaption This.Caption = tcCaption *!* Thisform.FoxChartsToolTip.Caption = tcCaption LOCAL llWordWrap llWordWrap = This.WordWrap WITH Thisform.FoxChartsToolTip IF llWordWrap .WordWrap = .F. .Caption = tcCaption .WordWrap = .T. .Autosize = .T. ELSE .Caption = tcCaption ENDIF ENDWITH ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Parent.ChartCanvas.MouseMove(nButton, nShift, nXCoord, nYCoord) ENDPROC  foxcharts collection collectionmHeight = 60 Left = 0 Top = 0 Width = 72 drawwheninvisible = .T. _usesmooth = .T. Name = "ChartCanvas"  foxcharts ChartCanvaslPROCEDURE caption_assign lparameters tcText This.Caption = tcText This._UpdateMeasures() ENDPROC  "E%U'T CUTCTEXTTHISCAPTION_UPDATEMEASUREScaption_assign01q2a)"0`%:}SUG%CO(B%%CCOO^ C *TCCC  C 6%TCC _ T  QXFCSIZE!T CT T TU TLNUMERICTHISPARENTOGFX_OBRUSH_OFONT_SETUP LCCAPTIONLCFORMAT _FORCEFORMATFORMAT_VALUECAPTIONLOSIZE MEASURESTRING_HEIGHTHEIGHT_WIDTHWIDTH_TRANSFCAPTION_updatemeasures01qAASAqB"111-)S"::F%U%CO(B%%CCOO^ C T %CT H=! NC  TCC _! NC  T 2=TCC _ QXFCSIZE!T CT T TU TLNUMERICTHISPARENTOGFX_OBRUSH_OFONT_SETUP LCCAPTIONLCFORMAT _FORCEFORMATFORMAT_VALUECAPTIONLOSIZE MEASURESTRING_HEIGHTHEIGHT_WIDTHWIDTH_TRANSFCAPTION_updatemeasures01qAASAAqqA"112):"%}S3UTU TUNEWVALUETHIS COLORTYPET UVNEWVALTHIS CHARTTYPET UVNEWVALTHIS BRUSHTYPE BUTHISSCALELINECOLOR BUTHISSELECTEDSHAPECOLOR BUTHISSHAPELEGENDEXPRESSIONcolortype_assign0charttype_assignobrushtype_assignscalelinecolor_accessselectedshapecolor_accessshapelegendexpression_accessI1q3q"3q"3332Ove  .a)8PROCEDURE _updatemeasures LPARAMETERS tlNumeric IF VARTYPE(This.Parent.oGfx) <> "O" RETURN ENDIF * Measure the Legend height IF VARTYPE(This._oBrush) + VARTYPE(This._oFont) <> "OO" This._Setup() ENDIF LOCAL lcCaption, lcFormat * _ForceFormat is a forced formatting managed directly from FoxCharts lcFormat = IIF(EMPTY(ALLTRIM(This._ForceFormat)), This.Format, ALLTRIM(This._ForceFormat)) IF tlNumeric lcCaption = ALLTRIM(TRANSFORM(This._Value, lcFormat)) ELSE lcCaption = This.Caption * lcCaption = ALLTRIM(TRANSFORM(This.Caption, IIF("%" $ lcFormat, "", lcFormat))) ENDIF LOCAL loSize as xfcSize loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat) This._Height = loSize.Height This._Width = loSize.Width This._TransfCaption = lcCaption ENDPROC PROCEDURE colortype_assign lparameters tuNewValue This.ColorType = tuNewValue ENDPROC PROCEDURE charttype_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.ChartType = m.vNewVal ENDPROC PROCEDURE brushtype_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.BrushType = m.vNewVal ENDPROC PROCEDURE scalelinecolor_access return This.ScaleLineColor ENDPROC PROCEDURE selectedshapecolor_access *To do: Modify this routine for the Access method RETURN THIS.selectedshapecolor ENDPROC PROCEDURE shapelegendexpression_access return This.ShapeLegendExpression ENDPROC GotFocus^ LostFocus^ TabStop^ caption_assign^ OLEDragPicture^ DragIcon^ MouseDown^ MouseEnter^ MouseIcon^ MouseLeave^ MouseMove^ MousePointer^ MouseUp^ MouseWheel^ Move^ OLECompleteDrag^ OLEDrag^ OLEDragDrop^ OLEDragMode^ OLEDragOver^ OLEStartDrag^ OLESetData^ OLEGiveFeedback^ OLEDropMode^ OLEDropHasData^ OLEDropEffects^ Anchor^ AutoSize^ TabIndex^ Drag^ Refresh^ Destroy^ ResetToDefault^ ToolTipText^ StatusBarText^ DisabledBackColor^ DisabledForeColor^ FontCondense^ FontShadow^ UIEnable^ DragMode^ FontExtend^ AddProperty^ ColorScheme^ ReadMethod^ RightClick^ WhatsThisHelpID^ CloneObject^ DblClick^ ParentClass^ SaveAsClass^ Parent^ MiddleClick^ FontOutline^ Init^ DragDrop^ WriteExpression^ DragOver^ ReadExpression^ Error^ HelpContextID^ WriteMethod^ ShowWhatsThis^ ColorSource^ ZOrder^ BackStyle^ BorderStyle^ Click^ Comment^ RightToLeft^ Style^ Tag^ WordWrap^ PROCEDURE _updatemeasures Lparameters tlNumeric If Vartype(This.Parent.oGfx) <> "O" Return Endif * Measure the Legend height If Vartype(This._oBrush) + Vartype(This._oFont) <> "OO" This._Setup() Endif Local lcCaption, lcFormat lcFormat = This._ForceFormat If Empty(lcFormat) lcFormat = This.Format Endif **************************************************************** * Jim Nelson 10/13/2008 * * modified to accept text data even when expecting numeric (specifically for case GetScaleLegend(-1) **** old way *!* If tlNumeric *!* lcCaption = Alltrim(Transform(This._Value, lcFormat)) *!* Else *!* lcCaption = Alltrim(Transform(This.Caption, lcFormat)) *!* * lcCaption = ALLTRIM(TRANSFORM(This.Caption, IIF("%" $ lcFormat, "", lcFormat))) *!* Endif **** new way Do Case Case tlNumeric And "N" = Vartype (This._Value) lcCaption = Alltrim(Transform(This._Value, lcFormat)) Case tlNumeric And "N" # Vartype (This._Value) lcCaption = This._Value Otherwise lcCaption = Alltrim(Transform(This.Caption, lcFormat)) Endcase Local loSize As xfcSize loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat) This._Height = loSize.Height This._Width = loSize.Width This._TransfCaption = lcCaption ENDPROC AutoSize = .T. OLEDragPicture = ..\ DragIcon = ..\ Caption = "Legend" Height = 17 Width = 44 _memberdata =  3095 _ofont = _obrush = forecoloralpha = 255 backcoloralpha = 0 _height = 0 _width = 0 format = _transfcaption = _vartype = _value = _orectangle = _ostringformat = _forceformat = rotationcenter = 0 Name = "_legend" "D: %v n U T TCTC.CT C BU LNVALUELCLEGEND LCOBJTYPE LNCOORDINDEXLNXLNYTHISPARENT_CHECKMOUSEPOSITION CURRINDEXDBLCLICK CCUTHISPARENT_GETRELATIVEPOSITIONST-I% 6C    C     T Ta CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMFOXCHARTSTOOLTIPVISIBLETHISPARENTCHANGECOLORONMOUSELEFTWIDTHTOPHEIGHT_NMOUSEONSHAPE_SKIPPREPAREDATA DRAWCHARTF T0C T 0C % Pie;#%Pie   C &%Legend   7C BUNBUTTONNSHIFTNXCOORDNYCOORDLNVALUELCLEGEND LCOBJTYPE LNCOORDINDEXTHISPARENT_CHECKMOUSEPOSITION CURRINDEXMOUSEUP _GENERALTYPEPIEDETACHSLICEONCLICK_DETACHCLICKEDSLICEPIEDETACHSLICEONLEGENDCLICKT  u+C T  T C C  QLABELT % NCT -T %3C    E%C_Screen.ActiveFormbO 9 C  T T T  T  T %  ?T  T  %  T T  T  % -T a T -#T CC  6#T CC  63C    !BU"NBUTTONNSHIFTNXCOORDNYCOORDLNVALUELCLEGEND LCOBJTYPE LNCOORDINDEXTHISPARENT_CHECKMOUSEPOSITION CURRINDEXLCTYPELOTIPTHISFORMFOXCHARTSTOOLTIPVISIBLE MOUSEPOINTER_ORIGMOUSEPOINTERSHOWTIPS SHAPETOOLTIP ACTIVEFORMCAPTIONLNLEFTLNTOPLNWIDTHLNHEIGHTLNXLNYWIDTHHEIGHTLEFTTOP MOUSEMOVECUTHISPARENT _BEFOREDRAW8TT CUTHISWIDTHPARENTHEIGHT T TCTC.CT T T T C BULNVALUELCLEGEND LCOBJTYPE LNCOORDINDEXLNXLNYTHISPARENT_CHECKMOUSEPOSITION CURRVALUE CURRLEGEND CURRINDEX CURROBJTYPECLICKH'%C C 8Q CUTHISPARENT _DATACURSORDblClick0activateM MouseLeaveMouseUp MouseMove) beforedraw Init7 Click Destroy 11!!1B221"AA21232AAbAABB212"4s!r1YBA2AQABAbAABA212BB22aa21!!2111B2qA3 x'( CV0XK\Cia)PROCEDURE DblClick LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex lnCoordIndex = 0 LOCAL lnX, lnY lnX = MCOL(0,3) lnY = MROW(0,3) This.Parent._CheckMousePosition(0, 0, lnX, lnY, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType) This.Parent.CurrIndex = lnCoordIndex *!* This.Parent.CurrValue = lnValue *!* This.Parent.CurrLegend = lcLegend *!* This.Parent.CurrObjType = lcObjType This.Parent.DblClick() RETURN ENDPROC PROCEDURE activate DODEFAULT() This.Parent._GetRelativePositions() ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord Thisform.FoxChartsToolTip.Visible = .F. WITH This.Parent IF .ChangeColoronMouse AND ; (NOT BETWEEN(.Left, nXCoord - .Left, .Width - .Left) AND ; NOT BETWEEN(.Top , nXCoord - .Top , .Height - .Top )) ._nMouseOnShape = 0 ._SkipPrepareData = .T. .DrawChart() ENDIF ENDWITH ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex lnCoordIndex = 0 This.Parent._CheckMousePosition(nButton, nShift, nXCoord, nYCoord, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType) * Update the index property, that will allow all the other "curr"properties to be up to date This.Parent.Currindex = lnCoordIndex This.Parent.MouseUp(nButton, nShift, nXCoord, nYCoord, lnValue, lcLegend, lnCoordIndex, lcObjType) IF This.Parent._GeneralType = "Pie" IF lcObjType = "Pie" AND This.Parent.PieDetachSliceonClick This.Parent._DetachClickedSlice(lnCoordIndex) ENDIF IF lcObjType = "Legend" AND This.Parent.PieDetachSliceonLegendClick This.Parent._DetachClickedSlice(lnCoordIndex) ENDIF ENDIF RETURN ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex m.lnCoordIndex = 0 WITH This.Parent ._CheckMousePosition(nButton, nShift, nXCoord, nYCoord, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType) * Update the index property, that will allow all the other "curr"properties to be up to date This.Parent.Currindex = lnCoordIndex * Prepare the ToolTips LOCAL lcType m.lcType = VARTYPE(m.lnValue) + VARTYPE(m.lcLegend) LOCAL loTip as Label m.loTip = Thisform.FoxChartsToolTip IF m.lcType <> "NC" m.loTip.Visible = .F. This.MousePointer = ._OrigMousePointer && = 0 && Default ELSE IF .ShowTips .ShapeToolTip(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex, m.lcObjType) * Fix by Christof Wollenhaupt * WorkItem #20978 * http://www.codeplex.com/VFPX/WorkItem/View.aspx?WorkItemId=20978 * IF TYPE("_Screen.ActiveForm") == "O" AND ; (_Screen.ActiveForm = Thisform) AND ; NOT EMPTY(m.loTip.Caption) LOCAL lnLeft, lnTop, lnWidth, lnHeight, lnX, lnY lnX = m.nXCoord lnY = m.nYCoord m.lnWidth = m.loTip.Width m.lnHeight = m.loTip.Height m.lnLeft = lnX + 1 IF m.lnLeft + m.lnWidth > Thisform.Width m.lnLeft = Thisform.Width - m.lnWidth ENDIF m.lnTop = lnY - m.lnHeight - 1 IF m.lnTop < 0 m.lnTop = 0 ENDIF m.loTip.Left = m.lnLeft m.loTip.Top = m.lnTop IF m.loTip.Visible = .F. m.loTip.Visible = .T. ENDIF ELSE m.loTip.Visible = .F. ENDIF ENDIF ENDIF m.lcObjType = IIF(EMPTY(m.lcObjType),"", m.lcObjType) m.lcLegend = IIF(EMPTY(m.lcLegend),"", m.lcLegend) .MouseMove(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex, m.lcObjType) ENDWITH RETURN ENDPROC PROCEDURE beforedraw This.Parent._BeforeDraw() ENDPROC PROCEDURE Init This.Width = This.Parent.Width This.Height = This.Parent.Height DODEFAULT() ENDPROC PROCEDURE Click LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex lnCoordIndex = 0 LOCAL lnX, lnY lnX = MCOL(0,3) lnY = MROW(0,3) This.Parent._CheckMousePosition(0, 0, lnX, lnY, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType) This.Parent.CurrValue = lnValue This.Parent.CurrLegend = lcLegend This.Parent.CurrIndex = lnCoordIndex This.Parent.CurrObjType = lcObjType This.Parent.Click() RETURN ENDPROC PROCEDURE Destroy IF NOT EMPTY(This.Parent._DataCursor) AND USED(This.Parent._DataCursor) USE IN (This.Parent._DataCursor) ENDIF DODEFAULT() ENDPROC !;MouseIcon = ..\..\..\..\gradobjects\gradobjects_foxite\gradobjects\ StatusBarText = "" sourcealias = fontname = charttype = 1 brushtype = 1 gradientlevel = 5 _3d = 20 backcolor2 = .F. backgradientmode = 0 fieldcolor = fieldhideslice = fielddetachslice = _titleheight = 0 _nrecords = 0 margin = 4 color1 = 0 chartscount = 1 donutratio = 0.50 legend1 = colortype = 1 linecaps = .T. fieldvalue1 = fieldlegend = _legendwidth = 0 pointshapewidth = 2 _ncolor = 0 alphachannel = 255 _chartindex = 0 showsidelegend = .T. piedetachpixels = 30 _otempbmp = _oclrmatrix = _o3dbrush = _omainbrush = _oborderpen = _updaterandomcolors = .T. _legendpixheight = 0 barsspacebetween = 20 area3dtop = .T. multichart = .F. scale = 0 showvaluesonshapes = .F. showscale = .T. _scale = 0 _memberdata =  5422 ogfx = The GDI+ Graphics object for the Chart Canvas obmp = The GDI+ Bitmap object for the Chart Canvas _legendheight = 0 _xaxisheight = 0 _yaxiswidth = 0 axiscolor = 0 axisalpha = 200 showaxis = .T. scalebackcolor = scalebackalpha = 128 scalelinecolor = 0 scalebacklinestype = 0 scalebackbarstype = 1 scalebacklineswidth = 1 scalebacklinesdash = 0 _valueformat = _valuetype = _orientation = 1 fieldaxis2 = _insideform = .T. _started = .F. shape1 = 0 areadrawborders = .T. chartrow = 1 _charty0 = 0 _charty1 = 0 _origmousepointer = piedetachanimationsteps = 3 pieenhanceddrawing = .T. piedetachsliceonclick = .T. piecompensateangles = .T. pieshowpercent = .T. _skippreparedata = .F. _firstactivate = .F. _generaltype = _inlegend = .F. _inreport = .F. _nmouseover = 0 _nmouseonshape = 0 selectedshapecolor = 128,128,128 oldstyleproperties = .F. backcoloralpha = 255 scaledivider = 1 gradientposition = 0.6 gradienttype = 0 gradientinvertcolors = .F. shadow = .F. piegradcenterdistance = 0 piegradcenterangle = 0 shapemousepointer = 15 gradientshapedirection = 0 singledata = .F. legendposition = 2 scaleautoformat = .T. qualitysmoothing = 4 qualitytextrenderinghint = 4 qualitycompositing = 2 chartsum = 0 changecoloronmouse = .F. barsperscale = 2 bartype = 0 barlegenddirection = 0 depth = 20 legendhidewhennull = .T. maxvalue = .F. minvalue = .F. minnumberscalelegends = 5 pielegenddistance = 0.75 piedetachsliceonlegendclick = .F. margintop = 0 marginleft = 0 marginbottom = 0 marginright = 0 scalelinezerocolor = 255 showaxis2tics = .T. shapelegendexpression = pieforcecircle = .F. Name = "_foxcharts_base" gPROCEDURE _setup * Update the FONT object LOCAL liStyle liStyle = 0 && Regular IF This.FontBold liStyle = liStyle + 1 ENDIF IF This.FontItalic liStyle = liStyle + 2 ENDIF IF This.FontStrikethru liStyle = liStyle + 8 ENDIF IF This.FontUnderline liStyle = liStyle + 4 ENDIF * Prepare the font object LOCAL lcFont lcFont = IIF(EMPTY(This.FontName), This.Parent.FontName, This.FontName) * If no font was selected, then take the _Screen one! IF EMPTY(lcFont) lcFont = _Screen.FontName ENDIF IF EMPTY(lcFont) lcFont = "Arial" ENDIF WITH _Screen.System.Drawing LOCAL loFont as xfcFont loFont = .Font.New(lcFont, This.FontSize, liStyle) This._oFont = loFont * Update the BRUSH object LOCAL loColor as xfcColor LOCAL lnColor lnColor = IIF(This.Parent.BrushType = 3, 0, This.ForeColor) loColor = .Color.FromArgb(This.ForeColorAlpha, lnColor) LOCAL loBrush as xfcSolidBrush loBrush = .SolidBrush.New(loColor) This._oBrush = loBrush ENDWITH ENDPROC PROCEDURE _updatemeasures LPARAMETERS tlNumeric IF VARTYPE(This.Parent.oGfx) <> "O" RETURN ENDIF * Measure the Legend height IF VARTYPE(This._oBrush) + VARTYPE(This._oFont) <> "OO" This._Setup() ENDIF LOCAL lcCaption, lcFormat * _ForceFormat is a forced formatting managed directly from FoxCharts lcFormat = IIF(EMPTY(ALLTRIM(This._ForceFormat)), This.Format, ALLTRIM(This._ForceFormat)) IF tlNumeric lcCaption = ALLTRIM(TRANSFORM(This._Value, lcFormat)) ELSE lcCaption = ALLTRIM(TRANSFORM(This.Caption, lcFormat)) * lcCaption = ALLTRIM(TRANSFORM(This.Caption, IIF("%" $ lcFormat, "", lcFormat))) ENDIF LOCAL loSize as xfcSize loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat) This._Height = loSize.Height This._Width = loSize.Width This._TransfCaption = lcCaption ENDPROC PROCEDURE _drawstring LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlVertical LOCAL x1, y1, lnAlign, lnMode, xBack, llBar llBar = IIF(This.Parent.Name = "ShapeLegend",.T., .F.) lnMode = 0 && 0 = x,y Coordinates ; 1 = xfcRectangle coordinates lnAlign = This.Alignment * 0 = Left 1 = Right 2 = Center LOCAL loGfx as xfcGraphics loGfx = This.Parent.oGfx WITH _Screen.System.Drawing DO CASE CASE VARTYPE(tnWidth) + VARTYPE(tnHeight) = "NN" lnMode = 1 * Create a STRINGFORMAT object in order to draw the string centered in the image LOCAL loStringFmt as xfcStringFormat LOCAL lnGdipAlign loStringFmt = .StringFormat.New() DO CASE CASE lnAlign = 2 && Center lnGdipAlign = .StringAlignment.Center CASE lnAlign = 1 lnGdipAlign = .StringAlignment.Far OTHERWISE lnGdipAlign = .StringAlignment.Near ENDCASE loStringFmt.Alignment = lnGdipAlign IF tlVertical loStringFmt.FormatFlags = .StringFormatFlags.DirectionVertical loStringFmt.LineAlignment = .StringAlignment.Center ENDIF LOCAL loSize as xfcSize IF tlVertical loSize = .Size.New(This.Parent.Width, This.Parent.Height) ELSE loSize = .Size.New(tnWidth, tnHeight) ENDIF loSize = loGfx.MeasureString(; This._TransfCaption, This._oFont, loSize, loStringFmt) This._Height = CEILING(loSize.Height) This._Width = CEILING(loSize.Width) LOCAL loRect as xfcRectangle loRect = .Rectangle.New(tnX, tnY, tnWidth, This._Height) x1 = tnX y1 = tnY IF tlVertical xBack = tnX + tnWidth / 2 - (This._Width / 2) DO CASE CASE lnAlign = 0 && Left y1 = tnY CASE lnAlign = 1 && Right y1 = tnY + tnHeight - This._Height CASE lnAlign = 2 && Center y1 = tnY + (tnHeight / 2) - (This._Height / 2) ENDCASE ELSE DO CASE CASE lnAlign = 0 && Left xBack = tnX CASE lnAlign = 1 && Right xBack = tnX + tnWidth - This._Width CASE lnAlign = 2 && Center xBack = tnX + (tnWidth - This._Width) / 2 ENDCASE ENDIF CASE lnAlign = 0 && Left STORE tnX TO x1, xBack y1 = tnY CASE lnAlign = 1 && Right x1 = tnX - This._Width xBack = x1 y1 = tnY CASE lnAlign = 2 && Center x1 = tnX - (This._Width / 2) xBack = x1 y1 = tnY ENDCASE LOCAL lnRotation lnRotation = This.Rotation IF lnRotation <> 0 WITH _SCREEN.System.Drawing LOCAL loPointF as xfcPointF LOCAL loMatrix as xfcMatrix loMatrix = .Drawing2D.Matrix.New() IF lnMode = 1 loPointF = .PointF.New(tnX, tnY) && this is the point of rotation ELSE DO CASE CASE lnAlign = 0 && Left loPointF = .PointF.New(x1 + 5, y1 + This._Height / 2) && this is the point of rotation CASE lnAlign = 1 && Right loPointF = .PointF.New(x1 + This._Width - 5, y1 + This._Height / 2) && this is the point of rotation CASE lnAlign = 2 && Center loPointF = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation ENDCASE ENDIF loMatrix.RotateAt(lnRotation, loPointF) loGfx.MultiplyTransform(loMatrix) ENDWITH ENDIF lnRotationCenter = This.RotationCenter * Center Rotation IF lnRotationCenter <> 0 WITH _SCREEN.System.Drawing LOCAL loPointFC as xfcPointF LOCAL loMatrixC as xfcMatrix loMatrixC = .Drawing2D.Matrix.New() * loPointFC = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation loPointFC = .PointF.New(xBack + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation loMatrixC.RotateAt(lnRotationCenter, loPointFC) loGfx.MultiplyTransform(loMatrixC) ENDWITH ENDIF IF This.BackColorAlpha > 0 * Draw the BackGround Rectangle WITH _Screen.System.Drawing IF lnMode = 0 && default loGfx.FillRectangle( ; .SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ; x1, y1, This._Width, This._Height) ELSE loGfx.FillRectangle( ; .SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ; xBack, y1, This._Width, This._Height) ENDIF ENDWITH ENDIF * Draw the Text IF lnMode = 0 loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, x1, y1) ELSE IF tlVertical loRect = .Rectangle.New(xBack, y1, This._Width, This._Height) loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt) ELSE loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt) ENDIF ENDIF IF lnRotation <> 0 OR lnRotationCenter <> 0 loGfx.ResetTransform() ENDIF ENDWITH RETURN ENDPROC PROCEDURE caption_assign LPARAMETERS tuCaption LOCAL lcType m.lcType = VARTYPE(m.tuCaption) IF m.lcType $ "DLTN" && Logical, Date, DateTime, Numeric m.tuCaption = TRANSFORM(m.tuCaption) ENDIF This.Caption = m.tuCaption This._UpdateMeasures(.F.) && Character passed *!* C Character, Memo, Varchar, Varchar (Binary) *!* D Date *!* G General *!* L Logical *!* N Numeric, Float, Double, or Integer *!* O Object *!* Q Blob, Varbinary *!* T DateTime *!* U Unknown or variable does not exist *!* X Null *!* Y Currency ENDPROC PROCEDURE reset This._Setup() This._UpdateMeasures() ENDPROC PROCEDURE _value_assign lparameters tuNewValue This._Value = tuNewValue This._UpdateMeasures(.T.) && Value passed ENDPROC PROCEDURE rotation_assign LPARAMETERS tnRotation IF tnRotation < 0 tnRotation = tnRotation + 360 ENDIF THIS.Rotation = tnRotation ENDPROC 3sourcealias Character, The name of the alias that contains the needed fields that will create the chart fontname Character, the name of the font used to display text. charttype Numeric, type of chart: ***1 = Pie ; 2 = Doughnut ; 3 = Unspecified ; 4 = Point ; 5 = Line ; 6 = Area ; 7 = Simple Bar ; 8 = Multiple Bars ; 9 = Stacked Bars; 10 = Stacked Area; 11 = Bars in 3D; 12 = Horizontal Bars; 13 = Horiz Multi-Bars brushtype Numeric, Type of brush used to fill the chart: ***1 = Solid Colors; 2 = Gradient Colors; 3 = Monochrome Hatch brush gradientlevel Numeric, for gradient brush mode (-10 = destination black; 0 = solid color; +10 destination white). ***Spinner -10,10 _3d Numeric, the quantity of pixels that create the 3D effect (0 = plain) backcolor2 Numeric or logical, specifies the secondary RGB color for the background of the current chart. backgradientmode Numeric, if gradient background (having BackColor2 specified). *** 0 = Horizontal, 1 = Vertical, 2 = Diagonal1 , 3 = Diagonal 2 fieldcolor Character, the field name of the cursor that contains the RGB values of the custom colors for the chart fieldhideslice Character, the field name of the cursor that contains the logical values that tell if the slice of the Pie or Donut chart will be hidden or not fielddetachslice Character, the field name of the cursor that contains the logical values that tell if the slice of the Pie or Donut chart will be detached or not _titleheight Internal use _nrecords Internal use, the total of records in the main cursor margin Numeric, Specifies the margin width created in the text portion of the control. color1 Numeric, the RGB value of the color from the first chart. For backwards compatibility - use Fields.Color instead chartscount Numeric, the number of Value sources donutratio For Doughnut chart - Numeric, the width of the donut related to its size ( 0.01 = full slice ; 0.99 = thin). legend1 The legend for the first column of chart. For backwards compatibility - use Fields.Color instead colortype Numeric, the type of colors: 0 = Basic Colors 1 = Custom (default) 2 = Random 3 = Scale of Gradients linecaps Logical, for the case of plain line chart, shows rounded caps in each point. fieldvalue1 Character, the field name from the data cursor that contains the numeric values that will create the chart. For backwards compatibility - use Fields(n).FieldValue instead fieldlegend Character, the field name of the cursor that contains the character values that contain the main legends of the Pie or Donut charts _legendwidth Internal use pointshapewidth Numeric, for Point chart, determines the width of the pen that will draw the shapes. ***Spinner1,10,1 _ncolor Internal Use alphachannel Numeric, 0-255 Determines the level of the transparency level; 255 = Opaque; 0 = Transparent ***Spinner0,255 _chartindex showsidelegend Logical, Shows the side legends piedetachpixels Numeric, for Pie and Doughnut charts, the quantity of pixels to detach from center _otempbmp Internal Use, GDI+ Bitmap object for drawing the transparent shapes _oclrmatrix Internal Use, GDI+ ColorMatrix object for drawing the transparent shapes _o3dbrush Internal Use, GDI+ Brush object for drawing the 3D effects _omainbrush Internal Use, GDI+ Brush object for drawing the main shapes _oborderpen Internal Use, Gdi+ Pen for drawing borders _updaterandomcolors _legendpixheight barsspacebetween Numeric, for bars chart - the distance in pixels between bars. ***Spinner0,500 area3dtop Logical, when true, a line will be drawn on the top of the 3D Area chat multichart Logical, determines if more than one kind of chart will run at the same time scale Numeric, determines the scale value for the Y axys; 0 = Automatic scale showvaluesonshapes Logical, determines if the values will be drawn inside the shapes of the chart showscale Logical, determines if the scale in the Y axys will be shown _scale _memberdata XML Metadata for customizable properties ogfx obmp _legendheight Internal Use _xaxisheight _yaxiswidth axiscolor Numeric, the RGB value for the Axys main color. ***=GETCOLOR() axisalpha Numeric, Determines the Alpha (transparency) for the Y and X axys and the background lines. Useful when the background contain colors. ***Spinner0,255 showaxis Logical, for Line, Area or Point charts - defines if the X and Y axys will be drawn scalebackcolor Numeric, the RGB value for the bar background scale color. scalebackalpha Numeric (0-255), Determines the level of the transparency level; 255 = Opaque; 0 = Transparent. ***Spinner0,255 scalelinecolor Numeric, RGB value for the line Background color scalebacklinestype Integer (0-3), the background scale type; *** 0 = None; 1 = Horizontal lines; 2 = Vertical lines; 3 = Both scalebackbarstype Integer (0-3), the background scale type; *** 0 = None; 1 = Horizontal lines; 2 = Vertical lines; 3 = Both scalebacklineswidth Numeric, Width in pixels of the GDI+ pen used to draw the background scale scalebacklinesdash Numeric, The Dash style of the GDI+ pen used to draw the background scale _valueformat _valuetype _orientation fieldaxis2 Character, the name of the field that contains the text to be drawn in the axis opposite to the scale. _insideform _started shape1 areadrawborders Logical, draws borders around each Area piece chartrow Numeric, only for Pie, Doughnut and SingleBars charts, determines which row will be used to create the chart, for the case when more than one sequence of data is passed. _charty0 _charty1 _origmousepointer piedetachanimationsteps Numeric, the quantity of steps that a slice of a pie or doughnut will take till full detachment pieenhanceddrawing Logical, For Pie and Doughnut charts. Enables the enhancing drawing mode, with all edges separately, providing a better effect. piedetachsliceonclick Logical, allows detachment of pie or doughnut slices on mouse click. piecompensateangles Logical, recalculates the needed angles, adjusting for a better visualisation when the pie has an important difference between width and height. Set this to false to force circular shapes. pieshowpercent Logical, shows the percentage of the slice in the tooltip. _skippreparedata _firstactivate _generaltype _inlegend _inreport _nmouseover _nmouseonshape selectedshapecolor Numeric, the RGB values for the selected shape color when property 'ChangeColoronMouse' is true oldstyleproperties Logical, determines if the legacy style using enumerated properties will be used. Disrecommended use ! backcoloralpha Numeric (0-255), the transparency level, of the background of he chart. ***Spinner0,255 scaledivider Numeric, the value that the scales must be divided. Useful when the scale values are very big. gradientposition Numeric (0-1), specifies where, along any radial from the center of the path to the path's boundary, the center color will be at its highest intensity. A value of 1 places the highest intensity at the center of the path. ***Spinner0,1,0.1 gradienttype Integer, Gradient type 0 = SigmaBell - The transition from one color to another is based on a bell-shaped curve; 1 = Triangular - gradient with a center color and a linear falloff to each surrounding color. ***0 = SigmaBell; 1 = Triangular gradientinvertcolors Logical, determines if the gradient start and destination colors will be inverted. shadow Logical, determines if shadows will be drawn under the shapes. The deepness is defined by the "depth" property. piegradcenterdistance Numeric, the distance from the center that the desired Center Point for the gradient brush will be applied (-2, +2). Use together with "PieGradCenterAngle" piegradcenterangle Numeric, the angle that the desired Center Point for the gradient brush will be applied (0-360). Use together with "PieGradCenterDistance" shapemousepointer Numeric, Specifies the shape of the mouse pointer when the mouse is over a shape of the chart at run time gradientshapedirection Integer, (0-3) determines the gradient direction for gradient brush charts: *** 0 = Horizontal; 1 = Vertical; 2 = Diagonal1 ; 3 = Diagonal 2 singledata Logical, ReadOnly, tells if the current chart is based on single data, eg. Pie, Doughnut, Single Bars legendposition Numeric, determines the position where the side legend wiil be drawn in the canvas. ***0 = Top Left; 1 = Bottom Left; 2 = Top Right; 3 = Bottom Right scaleautoformat Logical, determines if the Scales formatting from "ScaleLegend.Format" will be automatically configured. qualitysmoothing Specifies whether smoothing (antialiasing) is applied to lines and curves and the edges of filled areas. *** 0 = Default; 1 = HighSpeed Specifies no antialiasing; 2 = HighQuality; 3 = None Specifies no antialiasing; 4 = AntiAlias qualitytextrenderinghint Specifies the quality of text rendering. *** 0 = SystemDefault; 1 = SingleBitPerPixelGridFit; 2 = SingleBitPerPixel; 3 = AntiAliasGridFit; 4 = AntiAlias; 5 = ClearTypeGridFit qualitycompositing Specifies the quality level to use during compositing. *** 0 = Default; 1 = HighSpeed; 2 = HighQuality; 3 = GammaCorrected; 4 = AssumeLinear chartsum Numeric, ReadOnly, For Pie, Doughnut and SingleBars charts, returns the sum for the current column of data when the readonly SingleData property is true. changecoloronmouse Logical, determines if a shape color will be changed when the mouse is passed over it. barsperscale Integer, number of horizontal bars per scale legend. ***Spinner0,255 bartype Integer (0-2), the bar type ***0 = Rectangular ; 1 = Cylinder ; 2 = Triangle barlegenddirection Integer (0-2), the direction from the legend that stays inside the bars shapes. ***0 = Horizontal, 1 = Vertical (top to bottom), 2 = Vertical (bottom to top) depth Numeric, the depth in pixels, simulating a 3D effect (0 = plain) ***Spinner0,50 legendhidewhennull Logical, For Pies, Doughnuts and Simple horizontal and vertical bars, will hide the legends associated when the source value s NULL. maxvalue If numeric, maximum value plotted along Y-Axis. Otherwise ignored (maximum value will be calculated). minvalue If numeric, minimum value plotted along Y-Axis. Otherwise ignored (minimum value will be calculated). minnumberscalelegends Numeric, Determines the minimum number of scales legends along the Y-Axis pielegenddistance Numeric (0.01-2), the distance in percentage starting from the center of the pie or doughnut. 0=Center of the pie; 1=external border of the pie. ***Spinner 0.01,2.00,0.01 piedetachsliceonlegendclick Logical, allows detachment of pie or doughnut slices on mouse click over the associated side legend margintop Numeric, Specifies the top margin left without any drawing in the FoxCharts control. marginleft Numeric, Specifies the left margin left without any drawing in the FoxCharts control. marginbottom Numeric, Specifies the bottom margin left without any drawing in the FoxCharts control. marginright Numeric, Specifies the right margin left without any drawing in the FoxCharts control. scalelinezerocolor Numeric, the RGB value for the color of the line of the zero scale. ***COLOR showaxis2tics Logical, determines if the legend axis (axis2) will show tic marks on each legend. shapelegendexpression Character, an expression that replaces the default ShapeLegend text. A valid expression to fully customize the text to be "drawn" in the chart shapes. Use the "Curr" properties to get detailed info about the current shape and build your expression. pieforcecircle logical, for Pie and Doughnut charts, determines if the shape will be a circle with the same width and height. *changecolor Method that returns a darker or brighter version of the original color. Most recommended to obtain some destination gradient values. *chartscount_assign ^_apoints[1,2] *colortype_assign ^_acolors[1,0] *charttype_assign *brushtype_assign *drawchart Draws and updates the current chart image. DrawChart is the last method to be called after you setup all the chart properties. *_drawaxis *scalelinecolor_access *_preparelegendinslice *afterchart Event that occurs immediately after the chart is drawn, but still before the image object is updated. *_beforedraw *_drawbar *_drawbarchart *_drawcylinder *_drawdoughnutslice *_drawlinechart *_drawpiechart *_drawxaxislegend *_drawslice *_drawstackedareachart *_drawtrianglebar *_drawverticallineback *_drawyaxislegend *_getbasiccolor *_getgradientcolor *_getrandomcolor *drawreport Returns the FULLPATH() of physical copy of an image from the current chart drawn using the EMF encoder. *_getrgb *_getshapepath *_getfieldtype *_getylegendsize *_preparebrushes *_preparevariables *_preparedata *_preparecolors *_preparesidelegend *_preparetitle *_preparebackground *_preparelegend *_getadjustedangle *_drawscale *_drawsliceexternal *selectedshapecolor_access ^acolors[1,0] ReadOnly, Array that contains information about the current colors for the chart. Useful when working with random colors. *savetofile Saves the current chart to a file in the image format compatible with Gdi+: Bmp, Png, Jpeg, Gif, Tiff and Emf. *shapelegendexpression_access  Width = 360 Height = 264 MouseIcon = ..\..\..\gradobjects\gradobjects_foxite\gradobjects\ _scalew = .F. _scaleh = .F. _scaleadjust = _minvalue = _scalerange = _minscale = _maxscale = showlinezero = .F. _allowaxis = _nindex = showtips = .T. charttype1 = 0 _tippixels = 16 _pieanimatedrec = 0 _pieanimationpix = 0 _pie1stdetached = .F. _piex0 = 0 _piey0 = 0 version = 1.18 versiona = FoxCharts v1.18 Release Candidate _using3d = .F. showvaluezero = .T. _hasnegatives = .F. _xrelative = 0 _yrelative = 0 _datacursor = _currentrow = 0 _savedchartproperties = .NULL. _spellinglist = _oclrblack = _oclrwhite = _leftoffset = _rightoffset = _legendexternalmargin = 19 _topoffset = 0 _bottomoffset = 0 _useaxis = .T. showvaluesonshape1 = .T. currvalue = 0 currlegend = currindex = 0 currobjtype = fieldxaxis = multichartmargin = .T. currrecno = 0 currcolumn = 0 _deepchart = .F. barlegendtype = 0 _palettecolors = 184 ticlength = 5 _orientation = 1 gradientlevel = 5 barsspacebetween = 15 _memberdata =  1091 fontname = color1 = 0 scalebackcolor = 240,245,245 scalelinecolor = 0,0,0 scalebacklinestype = 1 _scale = 0 _3d = .F. _updaterandomcolors = .T. _origmousepointer = 0 gradienttype = 0 sourcealias = legendposition = 3 oldstyleproperties = .T. selectedshapecolor = 128,128,128 axiscolor = 240,240,240 Name = "foxcharts" 6_scalew _scaleh _scaleadjust _minvalue _scalerange _minscale _maxscale showlinezero Logical, determines if the background line for the zero scale will be shown or not. _allowaxis _nindex showtips Logical, specifies if ToolTips are shown for the controls on the specified Form object or the specified ToolBar object. charttype1 _tippixels _pieanimatedrec _pieanimationpix _pie1stdetached _piex0 _piey0 version Numeric, the current version number of FoxCharts class. versiona Character, the detailed version of FoxCharts class, in alphanumeric format. _using3d showvaluezero Logical, If True, ensures that a value of zero will appear in Y-Axis. If False, calculated range may be entirely above or entirely below zero. _hasnegatives _xrelative _yrelative _datacursor debug logical, determines the creation of a log file when an error occurs. The file "FOXCHARTS.LOG" will contain general error info, and you can send it to vfpimaging@hotmail.com, with some other detailed information about the error. _currentrow _savedchartproperties _spellinglist _oclrblack _oclrwhite _leftoffset _rightoffset _legendexternalmargin _topoffset _bottomoffset _useaxis showvaluesonshape1 currvalue currlegend currindex currobjtype fieldxaxis For backwards compatibility - use FieldAxis2 instead multichartmargin currrecno currcolumn _deepchart barlegendtype Integer, 0=Default; 1=Text is aligned at the center of the shape (old behavior) linecapsshape Integer, the value of the shape to be used in the lines intersections for the line charts _palettecolors _oblackpen ticlength Integer, the length in pixels of the tic marks used in the scales and in the legend axis. ***Spinner 0,30 *fontname_assign *axiscolor_access *backcolor2_access *color1_access *scalebackcolor_access *_str *_calculatescale *_drawlegendinbar *_getvalue *_updatechartinfo *_updatecoordinates *_checkmouseposition *_detachclickedslice *shapemouseenter Event that occurs when a user moves the mouse over a shape object from the chart. *shapemouseleave Event that occurs when a user moves the mouse out of a shape object from the chart. *shapemousemove Event that occurs when a user moves the mouse into a shape object of the chart. *_drawshape ^_ashapes[1,0] *_checkparams *getchartproperties Returns the chart user defined properties for the current chart *_adjuststartsweep *mousepointer_access *mousepointer_assign *_setfieldscount *_newfield *getscalelegend Returns legends to be used in vertical scale *getscalevalue Returns values to be used in vertical scale *savechartproperties Saves current list of properties so that incremental property list can be returned by GetChartProperties() *_getrelativepositions ^acoord[1,0] Array that stores information about the object that is under the mouse, like X, Y, Width, Height, Value, Legend, Start, Sweep, CHartIndex, RECNO(), ObjType. See HELP for detailed information about the available info. *shapetooltip Event that occurs immediately before the default tooltip of FoxCharts is exibited. Use this event in order to customize the text that is to be shown in the tooltips. *_getchartprop *_getchartproperties *_spellproperty *_getcenterpoint *sourcealias_assign *_preparetooltip *_drawsidelegends ^_asidelegends[1,2] *_getcursorpos *_updatequality *currcolumn_access *currlegend_access *currobjtype_access *currrecno_access *currvalue_access *_ps *showtips_assign *_centerpath *_getpalettecolor *_objtoclientex *_initpalettes ^apalettecolors[1,0] *_initchart *_drawshapelegend PROCEDURE _drawstring LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlVertical LOCAL x1, y1, lnAlign, lnMode, xBack, llBar llBar = IIF(This.Parent.Name = "ShapeLegend",.T., .F.) lnMode = 0 && 0 = x,y Coordinates ; 1 = xfcRectangle coordinates lnAlign = This.Alignment * 0 = Left 1 = Right 2 = Center LOCAL loGfx as xfcGraphics loGfx = This.Parent.oGfx WITH _Screen.System.Drawing DO CASE CASE VARTYPE(tnWidth) + VARTYPE(tnHeight) = "NN" lnMode = 1 * Create a STRINGFORMAT object in order to draw the string centered in the image LOCAL loStringFmt as xfcStringFormat LOCAL lnGdipAlign loStringFmt = .StringFormat.New() DO CASE CASE lnAlign = 2 && Center lnGdipAlign = .StringAlignment.Center CASE lnAlign = 1 lnGdipAlign = .StringAlignment.Far OTHERWISE lnGdipAlign = .StringAlignment.Near ENDCASE loStringFmt.Alignment = lnGdipAlign IF tlVertical loStringFmt.FormatFlags = .StringFormatFlags.DirectionVertical loStringFmt.LineAlignment = .StringAlignment.Center ENDIF LOCAL loSize as xfcSize IF tlVertical loSize = .Size.New(This.Parent.Width, This.Parent.Height) ELSE loSize = .Size.New(tnWidth, tnHeight) ENDIF loSize = loGfx.MeasureString(; This._TransfCaption, This._oFont, loSize, loStringFmt) This._Height = CEILING(loSize.Height) This._Width = CEILING(loSize.Width) LOCAL loRect as xfcRectangle loRect = .Rectangle.New(tnX, tnY, tnWidth, This._Height) x1 = tnX y1 = tnY IF tlVertical xBack = tnX + tnWidth / 2 - (This._Width / 2) DO CASE CASE lnAlign = 0 && Left y1 = tnY CASE lnAlign = 1 && Right y1 = tnY + tnHeight - This._Height CASE lnAlign = 2 && Center y1 = tnY + (tnHeight / 2) - (This._Height / 2) ENDCASE ELSE DO CASE CASE lnAlign = 0 && Left xBack = tnX CASE lnAlign = 1 && Right xBack = tnX + tnWidth - This._Width CASE lnAlign = 2 && Center xBack = tnX + (tnWidth - This._Width) / 2 ENDCASE ENDIF CASE lnAlign = 0 && Left STORE tnX TO x1, xBack y1 = tnY CASE lnAlign = 1 && Right x1 = tnX - This._Width xBack = x1 y1 = tnY CASE lnAlign = 2 && Center x1 = tnX - (This._Width / 2) xBack = x1 y1 = tnY ENDCASE LOCAL lnRotation lnRotation = This.Rotation IF lnRotation <> 0 WITH _SCREEN.System.Drawing LOCAL loPointF as xfcPointF LOCAL loMatrix as xfcMatrix loMatrix = .Drawing2D.Matrix.New() IF lnMode = 1 loPointF = .PointF.New(tnX, tnY) && this is the point of rotation ELSE DO CASE CASE lnAlign = 0 && Left loPointF = .PointF.New(x1 + 5, y1 + This._Height / 2) && this is the point of rotation CASE lnAlign = 1 && Right loPointF = .PointF.New(x1 + This._Width - 5, y1 + This._Height / 2) && this is the point of rotation CASE lnAlign = 2 && Center loPointF = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation ENDCASE ENDIF loMatrix.RotateAt(lnRotation, loPointF) loGfx.MultiplyTransform(loMatrix) ENDWITH ENDIF lnRotationCenter = This.RotationCenter * Center Rotation IF lnRotationCenter <> 0 WITH _SCREEN.System.Drawing LOCAL loPointFC as xfcPointF LOCAL loMatrixC as xfcMatrix loMatrixC = .Drawing2D.Matrix.New() * loPointFC = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation loPointFC = .PointF.New(xBack + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation loMatrixC.RotateAt(lnRotationCenter, loPointFC) loGfx.MultiplyTransform(loMatrixC) ENDWITH ENDIF IF This.BackColorAlpha > 0 * Draw the BackGround Rectangle WITH _Screen.System.Drawing IF lnMode = 0 && default loGfx.FillRectangle( ; .SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ; x1, y1, This._Width, This._Height) ELSE loGfx.FillRectangle( ; .SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ; xBack, y1, This._Width, This._Height) ENDIF ENDWITH ENDIF * Draw the Text IF lnMode = 0 * loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, x1, y1) LOCAL loStringFmt as xfcStringFormat LOCAL lnGdipAlign loStringFmt = .StringFormat.New() DO CASE CASE lnAlign = 2 && Center lnGdipAlign = .StringAlignment.Center CASE lnAlign = 1 lnGdipAlign = .StringAlignment.Far OTHERWISE lnGdipAlign = .StringAlignment.Near ENDCASE loStringFmt.Alignment = lnGdipAlign loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, ; .Rectangle.New(x1, y1, CEILING(This._Width), This._Height + 2), ; loStringFmt) ELSE IF tlVertical loRect = .Rectangle.New(xBack, y1, This._Width, This._Height) loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt) ELSE loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt) ENDIF ENDIF IF lnRotation <> 0 OR lnRotationCenter <> 0 loGfx.ResetTransform() ENDIF ENDWITH RETURN ENDPROC PROCEDURE caption_assign lparameters tcText This.Caption = tcText This._UpdateMeasures() ENDPROC ݝPROCEDURE fontname_assign LPARAMETERS tcFontName This.FontName = m.tcFontName * Set all the legend types available This.SetAll("FontName", m.tcFontName, "_Legend") * Set the Tooltip fontname as well IF This._InsideForm This.ToolTip.FontName = m.tcFontName ENDIF ENDPROC PROCEDURE axiscolor_access RETURN This._GetRGB(This.AxisColor) ENDPROC PROCEDURE backcolor2_access LOCAL luBackColor2 luBackColor2 = This.BackColor2 IF VARTYPE(luBackColor2) = "L" RETURN This.BackColor2 ELSE RETURN This._GetRGB(This.BackColor2) ENDIF ENDPROC PROCEDURE color1_access RETURN This._GetRGB(This.Color1) ENDPROC PROCEDURE scalebackcolor_access RETURN This._GetRGB(This.ScaleBackColor) ENDPROC PROCEDURE _str LPARAMETERS tnValue RETURN ALLTRIM(STR(tnValue,2,0)) ENDPROC PROCEDURE _calculatescale LPARAMETERS tnMaxValue, tnMinValue * By Jim Nelson * Determines the maximum and minimum values plotted along the Y-Axis, and the increment between the legends. * Arguments: * tnMaxValue = Maximum value in the data being plotted * tnMinValue = Minimum value in the data being plotted * Properties referenced: * .Scale = Increment between legends along the axis. If empty, will be calculated. * .MaxValue = If numeric, the value of the top legend along the axis. Otherwise calculated. * .MinValue = If numeric, the value of the bottom legend along the axis. Otherwise calculated. * .ShowValueZero = If True, insures that a value of zero will appear along the Y-Axis. Otherwise, * the calculated range may be entirely above or below zero. * .MinNumberScaleLegends = The minimum number of scale legends to be drawn along the axis. * (The actual number is dependent on the data; the maximum will be one less * than twice this number.) * .BarsPerScale = The number of horizontal background bars (alternating colors) for each * scale legend. * Note that the values for Scale, MaxValue, and MinValue are normally left at their default values, so that * "nice" (that is, visually attractive) values can be determined. * Not all combinations of these properties make sense: for instance, setting MaxValue and/or MinValue * can make ShowValueZero irrelevant; setting Scale makes MinNumberScaleLegends irrelevant Local lnMax, lnMin, lnScale, lnMaxScale, lnMinScale, lnRange m.lnMax = Icase( ; "N" = Vartype (This.MaxValue), This.MaxValue, ; This.ShowValueZero, Max (0, tnMaxValue) , ; tnMaxValue ; ) m.lnMin = Icase( ; "N" = Vartype (This.MinValue), This.MinValue, ; This.ShowValueZero, Min (0, tnMinValue), ; tnMinValue ; ) m.lnScale = This.Scale * 20081006 - JNelson fixed range calculation * m.lnRange = tnMaxValue - tnMinValue m.lnRange = m.lnMax - m.lnMin * Calculate the scale, if none supplied Do Case Case Not Empty (m.lnScale) m.lnMaxScale = m.lnScale * Ceiling (m.lnMax / m.lnScale) m.lnMinScale = m.lnScale * Floor (m.lnMin / m.lnScale) IF This.ScaleAutoFormat m.lnDigits = Ceiling (LOG10(Max (10, Abs( m.lnMaxScale / This.ScaleDivider ), Abs (m.lnMinScale / This.ScaleDivider)))) This.ScaleLegend._ForceFormat = " " + Right ("999,999,999,999,999", m.lnDigits + Floor((m.lnDigits + 3) / 3)) ELSE This.ScaleLegend._ForceFormat = "" ENDIF Case m.lnRange = 0 m.lnScale = 10 m.lnMaxScale = 1 m.lnMinScale = 0 Otherwise * choose "nice" steps sizes -- 10, 20, 25, or 50 times some power of ten. Local laSteps(4) laSteps(1) = 1 laSteps(2) = 2 laSteps(3) = 2.5 laSteps(4) = 5 Local lnMult, lnCurrentNSteps, lnStep, lnSteps, lnNiceStep, lnPowerof10, lnExponent m.lnExponent = Floor ( Log10 (m.lnRange)) - 3 && scale range to be between 1,000 and 9,999 m.lnCurrentNSteps = 9999 For Each m.lnNiceStep In laSteps For m.lnPowerof10 = 0 To 3 m.lnStep = m.lnNiceStep * 10 ^ (m.lnExponent + m.lnPowerof10) m.lnSteps = Ceiling (m.lnMax / m.lnStep) - Floor (m.lnMin / m.lnStep) If Between (m.lnSteps, This.MinNumberScaleLegends, m.lnCurrentNSteps) m.lnScale = m.lnStep / 1 && Evl (This.BarsPerScale, 1) m.lnMaxScale = m.lnStep * Ceiling (m.lnMax / m.lnStep) m.lnMinScale = m.lnStep * Floor (m.lnMin / m.lnStep) m.lnCurrentNSteps = m.lnSteps m.lnScaling = m.lnExponent + m.lnPowerof10 + IIF (0 = m.lnNiceStep % 1, 1, 0) Endif Next m.lnPowerof10 Endfor m.lnDigits = Ceiling (LOG10(Max (10, Abs( m.lnMaxScale / This.ScaleDivider ), Abs (m.lnMinScale / This.ScaleDivider)))) IF This.ScaleAutoFormat This.ScaleLegend._ForceFormat = " " + Right ("999,999,999,999,999", m.lnDigits + Floor((m.lnDigits + 3) / 3)) If m.lnScaling < 1 This.ScaleLegend._ForceFormat = This.ScaleLegend._ForceFormat + "." + Replicate ("9", 1 - m.lnScaling) ENDIF ELSE This.ScaleLegend._ForceFormat = "" ENDIF Endcase **************************************************************** * Save With This ._Scale = m.lnScale ._ScaleRange = m.lnMaxScale - m.lnMinScale ._ScaleAdjust = - m.lnMinScale ._MinScale = m.lnMinScale ._MaxScale = m.lnMaxScale Endwith ENDPROC PROCEDURE _drawlegendinbar LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue, tnIndex This.CurrIndex = This._nIndex *!* Other available properties *!* This.CurrValue *!* This.CurrLegend *!* This.CurrObjType *!* This.CurrRecno *!* This.CurrColumn IF This.Fields(This._ChartIndex).ShowValuesOnShape AND This.ShowValuesOnShapes LOCAL lcExpr lcExpr = This.ShapeLegendExpression IF EMPTY(lcExpr) This.ShapeLegend._Value = tnValue ELSE This.ShapeLegend._Value = EVALUATE(lcExpr) ENDIF LOCAL lnAlign, lnDirection lnAlign = This.ShapeLegend.Alignment lnDirection = This.BarLegendDirection IF lnDirection = 0 && Horizontal * Draw the Values inside the shapes IF This._Orientation = 1 && Vertical DO CASE CASE This.ShapeLegend.Rotation <> 0 AND This.BarLegendType = 1 tnY = tnY - This.ShapeLegend._Height - 2 This.ShapeLegend._DrawString(tnX + tnWidth / 2, tnY) CASE lnAlign = 0 && Left This.ShapeLegend._DrawString(tnX, tnY) CASE lnAlign = 1 && Right This.ShapeLegend._DrawString(tnX + tnWidth, tnY) CASE lnAlign = 2 && Center This.ShapeLegend._DrawString(tnX + tnWidth / 2, tnY) OTHERWISE ENDCASE ELSE && This._Orientation = 2 && Horizontal DO CASE CASE lnAlign = 2 && Center This.ShapeLegend._DrawString(tnX + tnWidth / 2, tnY) CASE lnAlign = 0 AND tnValue >= 0 && Left This.ShapeLegend._DrawString(tnX, tnY) CASE lnAlign = 1 AND tnValue >= 0 && Right This.ShapeLegend._DrawString(tnX + tnWidth, tnY) CASE lnAlign = 1 AND tnValue < 0 && Force Left This.ShapeLegend.Alignment = 0 This.ShapeLegend._DrawString(tnX, tnY) This.ShapeLegend.Alignment = 1 CASE lnAlign = 0 AND tnValue < 0 && Force Right This.ShapeLegend.Alignment = 1 This.ShapeLegend._DrawString(tnX + tnWidth, tnY) This.ShapeLegend.Alignment = 0 OTHERWISE ENDCASE ENDIF ELSE && BarLegendDirection = 1 && Vertical IF lnDirection = 2 && Invert Direction LOCAL lnRotCenter lnRotCenter = This.ShapeLegend.RotationCenter This.ShapeLegend.RotationCenter = lnRotCenter + 180 ENDIF IF tnValue >= 0 OR lnAlign = 2 This.ShapeLegend._DrawString(tnX, tnY, tnWidth, tnHeight, .T.) ELSE IF lnAlign = 0 This.ShapeLegend.Alignment = 1 ELSE This.ShapeLegend.Alignment = 0 ENDIF This.ShapeLegend._DrawString(tnX, tnY, tnWidth, tnHeight, .T.) This.ShapeLegend.Alignment = lnAlign ENDIF IF lnDirection = 2 && Invert Direction This.ShapeLegend.RotationCenter = lnRotCenter ENDIF ENDIF ENDIF ENDPROC PROCEDURE _getvalue LPARAMETERS tiIndex, tlAcceptNULL LOCAL luValue, llIsNull m.luValue = EVALUATE((This._DataCursor) + ".nValue" + This._Str(m.tiIndex)) IF ISNULL(m.luValue) AND NOT m.tlAcceptNULL m.luValue = 0 ENDIF RETURN m.luValue ENDPROC PROCEDURE _updatechartinfo *!* Chart Type Values: *!* 1 = Pie ; 2 = Donut ; *!* 3 = Unspecified ; *!* 4 = Point ; 5 = Line ; 6 = Area ; *!* 7 = Simple Bar ; 8 = Multiple Bars ; 9 = Stacked Bars ; 11 = 3D Bars *!* 10 = Stacked Area *!* 12 = Horizontal Bars ; 13 = Horizontal multiple bars ; 14 = Horizontal Stacked Bars LOCAL lnChart, llDeep, llAxis, llSingleData, lnOrientation lnChart = This.ChartType DO CASE CASE lnChart = 1 && Pie llDeep = .F. llAxis = .F. llSingleData = .T. lcType = "Pie" lnOrientation = 1 && Vertical llUseAxis = .F. CASE lnChart = 2 && Doughnut llDeep = .F. llAxis = .F. llSingleData = .T. lcType = "Pie" lnOrientation = 1 && Vertical llUseAxis = .F. CASE lnChart = 4 && Point llDeep = .T. llAxis = .T. llSingleData = .F. lcType = "Point" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 5 && Line llDeep = .T. llAxis = .T. llSingleData = .F. lcType = "Point" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 6 && Area llDeep = .T. llAxis = .T. llSingleData = .F. lcType = "Point" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 7 && Simple Bar llDeep = .F. llAxis = .T. llSingleData = .T. lcType = "Bar" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 8 && Multiple Bars llDeep = .F. llAxis = .T. llSingleData = .F. lcType = "Bar" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 9 && Stacked Bars llDeep = .F. llAxis = .T. llSingleData = .F. lcType = "Bar" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 10 && Stacked Area llDeep = .F. llAxis = .T. llSingleData = .F. lcType = "Point" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 11 && 3d Bars llDeep = .T. llAxis = .T. llSingleData = .F. lcType = "Bar" lnOrientation = 1 && Vertical llUseAxis = .T. CASE lnChart = 12 && Horizontal Bars llDeep = .F. llAxis = .T. llSingleData = .T. lcType = "Bar" lnOrientation = 2 && Horizontal llUseAxis = .T. CASE lnChart = 13 && Horizontal Multiple Bars llDeep = .F. llAxis = .T. llSingleData = .F. lcType = "Bar" lnOrientation = 2 && Horizontal llUseAxis = .T. CASE lnChart = 14 && Horizontal Stacked Bars llDeep = .F. llAxis = .T. llSingleData = .F. lcType = "Bar" lnOrientation = 2 && Horizontal llUseAxis = .T. OTHERWISE * ERROR "Chart type " + TRANSFORM(lnChart) + " does not exist" ENDCASE This._DeepChart = llDeep This._AllowAxis = llAxis This.SingleData = llSingleData This._GeneralType = lcType This._Orientation = lnOrientation This._UseAxis = llUseAxis * Clear the chart coodinates IF NOT This._InReport This.aCoord = .F. ENDIF This._nIndex = 0 This.ShapeLegend._ForceFormat = "" ENDPROC PROCEDURE _updatecoordinates LPARAMETERS tcObjType, tnX, tnY, tnWidth, tnHeight, tnValue, tnStart, tnSweep * During DrawReport(), there's no need to update the coordinates IF This._InReport RETURN ENDIF *!* IF NOT This.ShowTips *!* RETURN *!* ENDIF LOCAL n n = This._nIndex + 1 This._nIndex = n DIMENSION This.aCoord(n,11) This.aCoord(n,1) = m.tnX This.aCoord(n,2) = m.tnY This.aCoord(n,3) = m.tnWidth This.aCoord(n,4) = m.tnHeight This.aCoord(n,5) = m.tnValue * This.aCoord(n,6) = Legend This.aCoord(n,7) = m.tnStart This.aCoord(n,8) = m.tnSweep This.aCoord(n,9) = This._ChartIndex && ChartRow IF tcObjType = "Legend" && on "Legend" mode, tnValue passes the index This.aCoord(n,10) = IIF(NOT EMPTY(This._Currentrow), This._CurrentRow, tnValue) This.aCoord(n,6) = IIF(VARTYPE(m.tnStart) = "C", m.tnStart, "") ELSE This.aCoord(n,10) = IIF(NOT EMPTY(This._Currentrow), This._CurrentRow, RECNO()) LOCAL lcLegend IF This.SingleData && Pie, Donut or Single Bar m.lcLegend = cLegend ELSE m.lcLegend = This.Fields(This._ChartIndex).Legend ENDIF This.aCoord(n,6) = ALLTRIM(lcLegend) ENDIF This.aCoord(n,11) = m.tcObjType ENDPROC PROCEDURE _checkmouseposition LPARAMETERS nButton, nShift, nXCoord, nYCoord, lnValue, lcLegend, lnCoordIndex, lcObjType * Passed by reference: lnValue, lcLegend IF VARTYPE(m.lcLegend) = "L" m.lcLegend = "" ENDIF m.lcObjType = "" WITH This IF VARTYPE(.aCoord(1,1)) <> "N" This.MouseMove(nButton, nShift, nXCoord, nYCoord, 0, "", 0, "") RETURN ENDIF LOCAL n, lnValue, lnStart, lnSweep, lnLeft, lnTop m.lnLeft = This._xRelative &&+ .Left m.lnTop = This._yRelative &&+ .Top * 1st step is to check if we are over the side legends IF This.ShowSideLegend AND ; BETWEEN(nXCoord - m.lnLeft,; This.SideLegend.Left, ; This.SideLegend.Left + This.SideLegend.Width) AND ; BETWEEN(nYCoord - m.lnTop, ; This.SideLegend.Top , ; This.SideLegend.Top + This.SideLegend.Height) m.lcObjType = "Legend" ENDIF *!* This.aCoord(n,1) = tnX *!* This.aCoord(n,2) = tnY *!* This.aCoord(n,3) = tnWidth *!* This.aCoord(n,4) = tnHeight DO CASE CASE ._GeneralType = "Bar" OR ._GeneralType = "Point" OR m.lcObjType = "Legend" FOR n = ALEN(.aCoord,1) TO 1 STEP -1 && Reverse in order to catch the first drawing IF BETWEEN(nXCoord - m.lnLeft,; .aCoord(n,1), ; .aCoord(n,1) + .aCoord(n,3)) ; AND ; BETWEEN(nYCoord - m.lnTop, ; .aCoord(n,2) , ; .aCoord(n,2) + .aCoord(n,4)) m.lnValue = .aCoord(n, 5) m.lcLegend = .aCoord(n, 6) m.lnCoordIndex = n m.lcObjType = .aCoord(n,11) IF m.lcObjType = "Legend" This._nMouseOnShape = 0 RETURN ENDIF IF This._nMouseOnShape = 0 This._nMouseOnShape = n IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseEnter(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ELSE IF This._nMouseOnShape <> n This._nMouseOnShape = n IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseEnter(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ELSE && Mouse over the shape This.ShapeMouseMove(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ENDIF ENDIF RETURN ELSE ENDIF NEXT IF This._nMouseOnShape <> 0 This._nMouseOnShape = 0 IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseLeave(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ENDIF CASE ._GeneralType = "Pie" *!* This.aCoord(n,1) = tnX *!* This.aCoord(n,2) = tnY *!* This.aCoord(n,3) = tnWidth *!* This.aCoord(n,4) = tnHeight *!* This.aCoord(n,5) = tnValue *!* This.aCoord(n,7) = tnStart *!* This.aCoord(n,8) = tnSweep *!* This.aCoord(n,9) = This._ChartIndex *!* This.aCoord(n,10) = RECNO() * Adapted code from Luis Maria Guayan - VFP MVP from Argentina LOCAL lnX1, lnX2, lnX3, lnY1, lnY2, lnY3, lnStart, lnSweep, lnValue, m.lcLegend, lnAngle * Center of Ellipse m.lnX1 = .aCoord(1,3) / 2 m.lnY1 = .aCoord(1,4) / 2 * Coordinates inside the Shape IF This._Pie1stDetached m.lnX2 = (nXCoord - m.lnLeft - m.lnX1 - This._PieX0) m.lnY2 = ((nYCoord - m.lnTop - m.lnY1 - This._PieY0) * (-1)) ELSE m.lnX2 = (nXCoord - m.lnLeft - m.lnX1 - .aCoord(1,1)) m.lnY2 = ((nYCoord - m.lnTop - m.lnY1 - .aCoord(1,2)) * (-1)) ENDIF * Angle in degrees [0..360] m.lnAngle = RTOD(ATAN(m.lnY2/m.lnX2)) *!* DO CASE *!* CASE m.lnX2 < 0 *!* m.lnAngle = 180 + m.lnAngle *!* CASE m.lnY2 < 0 *!* m.lnAngle = 360 + m.lnAngle *!* ENDCASE *!* m.lnAngle = 360 - m.lnAngle DO CASE CASE m.lnX2 < 0 m.lnAngle = 180 + m.lnAngle CASE m.lnY2 < 0 m.lnAngle = 360 + m.lnAngle OTHERWISE ENDCASE m.lnAngle = 360 - m.lnAngle LOCAL lnFoundShape, n m.lnFoundShape = 0 * Now we need to find the shape FOR n = 1 TO ALEN(.aCoord,1) m.lnStart = EVL(.aCoord(n,7), 0) IF VARTYPE(m.lnStart) <> "N" EXIT ENDIF m.lnSweep = EVL(.aCoord(n,8), 0) IF BETWEEN(m.lnAngle, m.lnStart, m.lnStart + m.lnSweep) OR ; BETWEEN(m.lnAngle + 360, m.lnStart, m.lnStart + m.lnSweep) m.lnFoundShape = n EXIT ENDIF ENDFOR IF m.lnFoundShape = 0 RETURN ENDIF * Now we can know exactly the positions in the screen * for the case of detached slices * So, we restart, using the correct information * Center of Shape m.lnX1 = .aCoord(m.lnFoundShape,3) / 2 m.lnY1 = .aCoord(m.lnFoundShape,4) / 2 * Coordinates inside the Shape m.lnX2 = nXCoord - m.lnLeft - m.lnX1 - .aCoord(m.lnFoundShape, 1) m.lnY2 = -(nYCoord - m.lnTop - m.lnY1 - .aCoord(m.lnFoundShape, 2)) * Percentage in the ellipse m.lnX3 = m.lnX2 / m.lnX1 m.lnY3 = m.lnY2 / m.lnY1 *** NEW ANGLE * Angle in degrees [0..360] m.lnAngle = RTOD(ATAN(m.lnY2/m.lnX2)) DO CASE CASE m.lnX2 < 0 m.lnAngle = 180 + m.lnAngle CASE m.lnY2 < 0 m.lnAngle = 360 + m.lnAngle ENDCASE m.lnAngle = 360 - m.lnAngle IF BETWEEN(m.lnAngle, m.lnStart, m.lnStart + m.lnSweep) OR ; BETWEEN(m.lnAngle + 360, m.lnStart, m.lnStart + m.lnSweep) ELSE IF This._nMouseOnShape <> 0 This._nMouseOnShape = 0 IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseLeave(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ENDIF RETURN ENDIF *** NEW ANGLE LOCAL lnRatio m.lnRatio = m.lnY3^2 + m.lnX3^2 IF m.lnRatio > 1 OR ; .ChartType = 2 AND m.lnRatio < .DonutRatio / 2 && Doughnut IF This._nMouseOnShape <> 0 This._nMouseOnShape = 0 IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseLeave(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ENDIF RETURN ENDIF m.lnValue = .aCoord(m.lnFoundShape, 5) m.lcLegend = .aCoord(m.lnFoundShape, 6) m.lnCoordIndex = m.lnFoundShape m.lcObjType = "Pie" IF This._nMouseOnShape = 0 This._nMouseOnShape = m.lnFoundShape IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseEnter(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ELSE IF This._nMouseOnShape <> m.lnFoundShape This._nMouseOnShape = m.lnFoundShape IF This.ChangeColoronMouse This._SkipPrepareData = .T. This.DrawChart() ENDIF This.ShapeMouseEnter(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ELSE This.ShapeMouseMove(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex) ENDIF ENDIF RETURN OTHERWISE ENDCASE ENDWITH ENDPROC PROCEDURE _detachclickedslice LPARAMETERS tnIndex IF EMPTY(tnIndex) OR (VARTYPE(tnIndex) <> "N") RETURN ENDIF LOCAL lnRecno, lnChartIndex, llOriginalDetach *!* This.aCoord(n,1) = tnX *!* This.aCoord(n,2) = tnY *!* This.aCoord(n,3) = tnWidth *!* This.aCoord(n,4) = tnHeight *!* This.aCoord(n,5) = tnValue *!* This.aCoord(n,7) = tnStart *!* This.aCoord(n,8) = tnSweep *!* This.aCoord(n,9) = This._ChartIndex *!* This.aCoord(n,10) = RECNO() m.lnRecno = This.aCoord(tnIndex,10) m.lnChartIndex = This.aCoord(tnIndex,9) SELECT (This._DataCursor) GO m.lnRecno llOrigDetach = lDetach LOCAL lcCursor m.lcCursor = (This._DataCursor) REPLACE lDetach WITH NOT lDetach FOR RECNO() = m.lnRecno IN &lcCursor IF llOrigDetach This._SkipPrepareData = .T. GO TOP This.DrawChart() ELSE This._PieAnimatedRec = m.lnRecno LOCAL lnDetachPixels, n, lnStep m.lnDetachPixels = This.PieDetachPixels m.lnStep = m.lnDetachPixels / MAX(1,This.PieDetachAnimationSteps) FOR n = m.lnStep TO m.lnDetachPixels STEP m.lnStep This._PieAnimationPix = n This._SkipPrepareData = .T. GO TOP This.DrawChart() ENDFOR ENDIF This._PieAnimatedRec = 0 This._PieAnimationPix = 0 This._SkipPrepareData = .F. ENDPROC PROCEDURE shapemouseenter LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex ENDPROC PROCEDURE shapemouseleave LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex ENDPROC PROCEDURE shapemousemove LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex ENDPROC PROCEDURE _drawshape LPARAMETERS tnX, tnY, tnValue, tcObjType IF EMPTY(tcObjType) tcObjType = "Rect" ENDIF LOCAL luShape, lcType, lnIndex, lnTipPixels lnTipPixels = This._TipPixels lnIndex = This._ChartIndex IF This.ChartType = 5 AND NOT EMPTY(This.LineCapsShape) && (VARTYPE(This.LineCapsShape) <> "L") && Line luShape = This.LineCapsShape ELSE luShape = This.Fields(lnIndex).Shape ENDIF lcType = VARTYPE(luShape) LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL loObject as Object DO CASE CASE lcType = "N" OR lcType = "O" && Graphics path using predefined Shape LOCAL loPath as xfcGraphicsPath LOCAL lnWidth, lnHeight IF VARTYPE(This._aShapes(lnIndex, 1)) = "O" m.loPath = This._aShapes(lnIndex, 1) ELSE IF lcType = "O" loPath = luShape.Clone() This._CenterPath(loPath, .T.) ELSE loPath = This._GetShapePath(luShape) This._CenterPath(loPath, .T.) ENDIF ENDIF loRect = loPath.GetBounds() lnWidth = loRect.Width lnHeight = loRect.Height LOCAL lnColor IF This.BrushType = 3 && Monochrome lnColor = 0 ELSE lnColor = This.aColors(lnIndex) ENDIF LOCAL loBrush as xfcSolidBrush loBrush = .SolidBrush.New(.Color.FromRGB(lnColor)) LOCAL loAdjPath as xfcGraphicsPath LOCAL loMatrix as xfcMatrix loAdjPath = loPath.Clone() loMatrix = _Screen.System.Drawing.Drawing2D.Matrix.New() loMatrix.Translate(tnX, tnY) loAdjPath.Transform(loMatrix) m.loGfx.FillPath(loBrush, loAdjPath) x1 = tnX - (m.lnWidth / 2) y1 = tnY - (lnHeight / 2) loObject = loPath CASE lcType = "C" && Image File LOCAL loBmp as xfcBitmap LOCAL lnWidth, lnHeight IF VARTYPE(This._aShapes(lnIndex, 1)) = "O" loBmp = This._aShapes(lnIndex, 1) lnWidth = This._aShapes(lnIndex, 2) lnHeight = This._aShapes(lnIndex, 3) ELSE loBmp = _Screen.System.Drawing.Bitmap.FromVarbinary(FILETOSTR(luShape)) lnWidth = loBmp.Width lnHeight = loBmp.Height ENDIF x1 = tnX - (m.lnWidth /2) y1 = tnY - (lnHeight /2) m.loGfx.DrawImage(loBmp, x1, y1) loObject = loBmp OTHERWISE ENDCASE *!* This._UpdateCoordinates(tcObjType, x1, y1, ; *!* MAX(lnTipPixels, m.lnWidth), MAX(lnTipPixels, lnHeight), tnValue) * Fix by Anal Roy Chowdhurry IF NOT (This.LineCaps = .T. AND This.ChartType = 5) This._UpdateCoordinates(tcObjType, x1, y1, ; m.lnWidth, lnHeight, tnValue) ENDIF * End of Revision new checking This._aShapes(lnIndex, 1) = loObject This._aShapes(lnIndex, 2) = lnWidth This._aShapes(lnIndex, 3) = lnHeight RETURN ENDPROC PROCEDURE _checkparams ASSERT BETWEEN(This.AlphaChannel, 0, 255) MESSAGE "AlphaChannel must be between 0-255" ASSERT BETWEEN(This.AxisAlpha, 0, 255) MESSAGE "AxisAlpha must be between 0-255" ASSERT BETWEEN(This.BackGradientMode, 0, 3) MESSAGE "BackGradientMode not available (0-3)" ASSERT BETWEEN(This.BarType, 0, 2) MESSAGE "BarType not available (0-2)" ASSERT BETWEEN(This.BrushType, 1, 3) MESSAGE "BrushType not available (1-3)" ASSERT This.ChartType <> 3 MESSAGE "ChartType #3 not available" ASSERT BETWEEN(This.ChartType, 1, 14) MESSAGE "ChartType not available (1-14)" ASSERT BETWEEN(This.ColorType, 0, 27) MESSAGE "ColorType not available (0-27)" ASSERT BETWEEN(This.DonutRatio, 0, 1) MESSAGE "DonutRatio must be between 0 and 1" ASSERT BETWEEN(This.GradientLevel, -10, +10) MESSAGE "GradientLevel not available (-10, +10)" ASSERT BETWEEN(This.ScaleBackAlpha, 0, 255) MESSAGE "ScaleBackAlpha must be between 0-255" ASSERT BETWEEN(This.ScaleBackBarsType, 0, 3) MESSAGE "ScaleBackBarsType not available (0-3)" ASSERT BETWEEN(This.ScaleBackLinesType, 0, 3) MESSAGE "ScaleBackLinesType not available (0-3)" ASSERT BETWEEN(This.ScaleBackLinesDash, 0, 4) MESSAGE "ScaleBackLinesDash must be between 0-4" ASSERT This.ScaleDivider > 0 MESSAGE "ScaleDivider must be greater than Zero" ASSERT This.BarsPerScale > 0 MESSAGE "BarsPerScale must be greater than Zero" IF This.ColorType = 3 && Gradient ASSERT (VARTYPE(This.Fields(1).Color) = "N" OR VARTYPE(This.Color1) = "N") ; MESSAGE "You have to define the property .Fields(1).Color to determine the main starting gradient color" ENDIF * GdiPlusX version check LOCAL lnVersion lnVersion = 1.10 IF pemstatus(_Screen.System, "Version", 5) lnVersion = _Screen.System.Version ENDIF IF lnVersion < 1.20 ASSERT (This.ChartType <> 4) ; MESSAGE "Points ChartType #4 is not supported for GdiPlusX System.App versions prior to version 1.20" + CHR(13) + ; "Please make sure to be using at least version 1.20 to be able to use this type of chart" ENDIF ENDPROC PROCEDURE getchartproperties ********************************************************************************************** * Method: GetChartProperties * Author: Jim R. Nelson * Returns the properties and values used to create the current chart ********************************************************************************************** Lparameters tnType, tbWrapper * tnType = 1 for all properties * = 2 for non-default properties * = 3 for properties since last call to .SaveChartProperties * tbWrapper = .T. to include code around it ... WITH / ENDWITH LOCAL lcCRLF, lnTabSpaces, lcProperty m.lcCRLF = CHR(13) + CHR(10) m.lnTabSpaces = 4 m.lcTabs = SPACE(lnTabSpaces) Local lcResult, loPropertiesList, lcMember, lnType, laMembers(1), laObjMembers(1), lcObjMem, lcItem, lnI, lcTempResult Do Case Case Empty (tnType) lnType = 1 Case tnType = 3 And Isnull(This._savedchartproperties) * for tnType =2, you must have first invoked method SaveChartProperties ... * the result is then all properties modified after the call to SaveChartProperties lnType = 2 Otherwise lnType = tnType Endcase m.lcResult = [] m.loPropertiesList = This._GetChartProperties() Amembers(laMembers, loPropertiesList) For Each m.lcMember In laMembers m.lcMember = This._spellproperty (m.lcMember) Do Case Case "O" # Type ("loPropertiesList." + m.lcMember) && simple properties m.lcResult = m.lcResult + This._GetChartProp(m.loPropertiesList, m.lcMember, m.lnType, This._savedchartproperties) Case "C" = Type ("loPropertiesList." + m.lcMember, 1) && container For lnI = 1 To Evaluate ("loPropertiesList." + m.lcMember + ".Count") m.lcItem = m.lcMember + ".Item(" + Transform(lnI) + ")" Amembers (laObjMembers, Evaluate ("loPropertiesList." + m.lcItem)) m.lcTempResult = '' For Each m.lcObjMem In laObjMembers m.lcObjMem = This._spellproperty (m.lcObjMem) m.lcProperty = This._GetChartProp(m.loPropertiesList, m.lcItem + "." + m.lcObjMem, m.lnType, This._savedchartproperties) m.lcTempResult = m.lcTempResult + m.lcProperty Endfor If Not Empty (m.lcTempResult) m.lcResult = m.lcResult + ; "WITH ." + m.lcMember + "(" + Transform(lnI) + ")" + m.lcCRLF + ; Strtran(m.lcTempResult, "." + m.lcItem, m.lcTabs)+ "ENDWITH" + m.lcCRLF Endif Endfor Otherwise && objects Amembers (laObjMembers, Evaluate ("loPropertiesList." + m.lcMember)) m.lcTempResult = '' For Each m.lcObjMem In laObjMembers m.lcObjMem = This._spellproperty (m.lcObjMem) m.lcTempResult = m.lcTempResult + This._GetChartProp (m.loPropertiesList, m.lcMember + "." + m.lcObjMem, lnType, This._savedchartproperties) Endfor If Not Empty (m.lcTempResult) m.lcResult = m.lcResult + "WITH ." + m.lcMember + m.lcCRLF + ; Strtran(m.lcTempResult, "." + m.lcMember, m.lcTabs) + ; "ENDWITH" + m.lcCRLF Endif Endcase Endfor *!* 2009-02-21 *!* CChalom: Fixed insertion of With/Endwith IF m.tbWrapper LOCAL lcCommand, laLines(1), n m.lcCommand = "" FOR n = 1 TO ALINES(laLines, m.lcResult) m.lcCommand = m.lcCommand + SPACE(3) + laLines(n) + m.lcCRLF ENDFOR TEXT TO lcResult NOSHOW TEXTMERGE LOCAL loChart as FoxCharts OF "FoxCharts.vcx" m.loChart = CREATEOBJECT("FoxCharts") WITH loChart <> <>loChart.DrawChart() ENDWITH ENDTEXT ENDIF RETURN m.lcResult ENDPROC PROCEDURE _adjuststartsweep LPARAMETERS tnStart, tnSweep, tnWidth, tnHeight LOCAL lnDrawStart, lnDrawSweep, lnDestAngle IF This.PieCompensateAngles m.lnDrawStart = This._GetAdjustedAngle(m.tnStart, m.tnWidth, m.tnHeight) m.lnDestAngle = This._GetAdjustedAngle(m.tnStart + m.tnSweep, m.tnWidth, m.tnHeight) IF m.lnDestAngle < m.lnDrawStart m.lnDestAngle = m.lnDestAngle + 360 ENDIF m.lnDrawSweep = m.lnDestAngle - m.lnDrawStart m.tnStart = m.lnDrawStart m.tnSweep = m.lnDrawSweep ELSE IF m.tnStart < 0 m.tnStart = m.tnStart + 360 ENDIF ENDIF ENDPROC PROCEDURE mousepointer_access RETURN This.ChartCanvas.MousePointer ENDPROC PROCEDURE mousepointer_assign LPARAMETERS nMousePointer This.ChartCanvas.MousePointer = m.nMousePointer This.MousePointer = m.nMousePointer ENDPROC PROCEDURE _setfieldscount LPARAMETERS tnCnt LOCAL m.loData *!* DO WHILE This.Fields.Count < m.tnCnt *!* m.loData = This._NewField() *!* This.Fields.Add(m.loData) *!* ENDDO *--MW-->The stock method handled adding fields to the collection but not removing them. IF This.Fields.Count <> m.tnCnt LOCAL lnIncr, lnFieldNo lnIncr = m.tnCnt - This.Fields.Count DO WHILE This.Fields.Count <> m.tnCnt IF lnIncr > 0 *--Adding fields m.loData = This._NewField() This.Fields.Add(m.loData) ELSE *--Removing fields lnFieldNo = This.Fields.Count This.Fields.Remove(lnFieldNo) ENDIF ENDDO *--Make sure the ChartsCount matches. This.ChartsCount = m.tnCnt ENDIF ENDPROC PROCEDURE _newfield LOCAL loData m.loData = CREATEOBJECT("Empty") ADDPROPERTY(m.loData,"ChartType",0) ADDPROPERTY(m.loData,"FieldValue","") ADDPROPERTY(m.loData,"Legend","") ADDPROPERTY(m.loData,"Color","") ADDPROPERTY(m.loData,"Shape",0) ADDPROPERTY(m.loData,"ShowValuesOnShape",.T.) RETURN m.loData ENDPROC PROCEDURE getscalelegend Lparameters tnScaleNumber, tnValue **************************************************************** * Jim Nelson 10/10/08 * Returns the Value for the N-th scale legend on the vertical axis. * tnScaleNumber = 0 corresponds to the highest scale legend * * for tnScaleNumber = -1, returns the value to be used in determining the width of the scale legends. * * Return value may be numeric (usual) or character (e.g., substituting "zero" for 0) Do Case * -1 means the default (maximum) used to determine width Case (m.tnScaleNumber <> -1) AND (0 # m.tnScaleNumber % This.BarsPerScale) Return [] Case m.tnScaleNumber = -1 RETURN This._MaxScale *!* Case m.tnScaleNumber = -1 And Not Empty (This.ScaleLegend._ForceFormat) *!* Return This.ScaleLegend._ForceFormat *!* Case m.tnScaleNumber = -1 And Empty (This.ScaleLegend._ForceFormat) *!* RETURN This._MaxScale Otherwise Return m.tnValue Endcase ENDPROC PROCEDURE getscalevalue Lparameters tnScaleNumber **************************************************************** * Jim Nelson 10/10/08 * Returns the Value for the N-th scale on the vertical axis. * tnScaleNumber = 0 corresponds to the highest scale * * Returns .F. for values of lnScaleNumber that are beyond the lowest scale. * This code assumes that the increment between successive scale values is constant. * There is not need for that to be true. * For instance, it could return the values in the first column here, where the second column is the grade * (and Method GetScaleLegend could return the character grades) * * 100 A+ * 90 A * 80 B * 65 C * 50 D * 0 F Local lnResult m.lnResult = This._MaxScale - m.tnScaleNumber * This._Scale If m.lnResult >= This._MinScale - This._Scale / 100 Return m.lnResult Else Return .F. Endif ENDPROC PROCEDURE savechartproperties **************************************************************** * Jim Nelson 10/20/2008 * * Save current settings of Chart Properties so that later comparisons * can determine which properties have changed This._SavedChartProperties = This._GetChartProperties() ENDPROC PROCEDURE _getrelativepositions IF This._InsideForm This._xRelative = This._OBJTOCLIENTex(This, 2) && Left This._yRelative = This._OBJTOCLIENTex(This, 1) && Top ELSE This._xRelative = OBJTOCLIENT(This, 2) && Left This._yRelative = OBJTOCLIENT(This, 1) && Top ENDIF ENDPROC PROCEDURE shapetooltip LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType WITH This LOCAL lcCaption IF tcObjType = "Legend" lcCaption = "" ELSE lcCaption = ALLTRIM(ALLTRIM(TRANSFORM(tnValue, .ShapeLegend.Format)) + ; IIF(EMPTY(tcLegend),"", CHR(13) + tcLegend) + ; IIF(tcObjType = "Pie", CHR(13) + TRANSFORM(INT((tnValue / .ChartSum)*100)) + "%","")) ENDIF .ToolTip.Caption = lcCaption .MousePointer = .ShapeMousePointer IF NOT EMPTY(lcCaption) AND ; Thisform.FoxChartsToolTip.Width = 0 Thisform.FoxChartsToolTip.Width = 10 ENDIF ENDWITH RETURN *!* WITH This *!* LOCAL lcCaption *!* IF tcObjType = "Legend" *!* lcCaption = "" *!* ELSE *!* lcCaption = ALLTRIM(ALLTRIM(TRANSFORM(tnValue, .ShapeLegend.Format)) + ; *!* IIF(EMPTY(tcLegend),"", CHR(13) + tcLegend) + ; *!* IIF(tcObjType = "Pie", CHR(13) + TRANSFORM(INT((tnValue / .ChartSum)*100)) + "%","")) *!* ENDIF *!* .ToolTip.Caption = lcCaption *!* .MousePointer = .ShapeMousePointer *!* IF NOT EMPTY(lcCaption) AND ; *!* Thisform.FoxChartsToolTip.Width = 0 *!* Thisform.FoxChartsToolTip.Width = 10 *!* ENDIF *!* ENDWITH *!* RETURN ENDPROC PROCEDURE _getchartprop Lparameters toPropertiesList, tcProperty, tnType, toSavedProps LOCAL lcCRLF lcCRLF = CHR(13) Local lbChanged, lcNewType, lcOldType, lcName, lxValue, lcType, lcValue, lnPos Do Case Case tnType = 1 lbChanged = .T. Case tnType = 2 If "." $ tcProperty lnPos = Rat (".", tcProperty) lbChanged = Pemstatus ( Evaluate ("This." + Left(tcProperty, lnPos - 1)), Substr(tcProperty, lnPos + 1), 0) Else lbChanged = Pemstatus (This, tcProperty, 0) Endif Case tnType = 3 lcNewType = VARTYPE(EVALUATE("toPropertiesList." + tcProperty)) lcOldType = VARTYPE(EVALUATE("toSavedProps." + tcProperty)) lbChanged = (lcNewType # lcOldType) Or Not ; EVALUATE("toPropertiesList." + tcProperty) == EVALUATE("toSavedProps." + tcProperty) ENDCASE IF Not lbChanged RETURN '' ENDIF m.lcName = Trim(tcProperty) m.lxValue = Evaluate ("toPropertiesList." + tcProperty) m.lcType = Vartype (lxValue) If m.lcType = 'C' m.lxValue = Trim(lxValue) Do Case Case Not ['] $ m.lxValue m.lcValue = ['] + m.lxValue + ['] Case Not ["] $ lxValue m.lcValue = ["] + m.lxValue + ["] Otherwise m.lcValue = '[' + m.lxValue + ']' Endcase ELSE IF VARTYPE(lxValue) = "O" m.lcValue = " " + CHR(38) + CHR(38) + "Custom object - " + m.lxValue.Name Return "* ." + m.lcName + " = " + m.lcValue + lcCRLF ELSE m.lcValue = Transform(m.lxValue) ENDIF Endif Return "." + m.lcName + " = " + m.lcValue + lcCRLF ENDPROC PROCEDURE _getchartproperties **************************************************************** * Jim Nelson 10/20/2008 * * Returns an object with current settings of all FoxCharts properties Local loProperties Local laProperties(1), laSubProperties(1), lcProperty Local lcProperties, lcName, lcType, loObject, lnI, lnJ, laFieldMembers(1), lcFieldMem, loData LOCAL luPropValue loProperties = Createobject("Empty") lcProperties = "Format, FontName, FontSize, FontBold, FontItalic, FontUnderline, FontCharSet, ForeColor, ForeColorAlpha, BackColor, BackColorAlpha, Alignment, Rotation, RotationCenter" Alines (laSubProperties, lcProperties, 5, ',') With This Local laProperties(1), lcProperty Amembers(m.laProperties, This, 1) For lnI = 1 To Alen (laProperties,1) lcName = Proper(laProperties(lnI,1)) lcType = Proper(laProperties(lnI,2)) Do Case Case lcType = 'Property' ; && the list of ReadOnly properties and Not Inlist (Upper (lcName), "VERSION", "VERSIONA", "CHARTSUM", ; "OBMP", "OGFX", "ACOORD", "ACOLORS", "SINGLEDATA", ; "CURRINDEX", "CURRVALUE", "CURRLEGEND", "CURROBJTYPE", ; "CURRCOLUMN", "CURRRECNO", "LEGEND1", "COLOR1", "FIELDVALUE1", ; "CHARTTYPE1", "SHOWVALUESONSHAPE1", "FIELDXAXIS", "APALETTECOLORS") ; and "_" # Left(lcName, 1) ; And Pemstatus(This, lcName, 4) AddProperty (loProperties, lcName, Evaluate ("This." + lcName)) Case lcName = 'Fields' loFields = Createobject("Collection") For lnJ = 1 To This.Fields.Count m.loData = Createobject("Empty") Amembers(laFieldMembers, This.Fields(lnJ)) For Each lcFieldMem In laFieldMembers luPropValue = Evaluate("This.Fields(lnJ)." + lcFieldMem) AddProperty(m.loData, lcFieldMem, luPropValue) Endfor loFields.Add(m.loData) Next lnJ AddProperty (loProperties, lcName, loFields) Case lcType = 'Object' ; and Inlist (lcName, "Title", "Subtitle", "Xaxis", "Axislegend2", "Yaxis", "Shapelegend", "Scalelegend", "Sidelegend") * create an object AddProperty (loProperties, lcName, Createobject("Empty")) loObject = Evaluate ("loProperties." + lcName) * conditionally add caption If Not Inlist (lcName, "Axislegend2", "Shapelegend", "Scalelegend", "Sidelegend") AddProperty (loObject, "Caption", Evaluate ("This." + lcName + ".Caption")) Endif * and add other properties of that objecgt For Each lcProperty In laSubProperties AddProperty (loObject, lcProperty, Evaluate ("This." + lcName + "." + lcProperty)) Endfor Endcase Endfor Endwith Return loProperties ENDPROC PROCEDURE _spellproperty LPARAMETERS tcProperty * Returns upper/lower case name of property LOCAL lcList, lnPos IF EMPTY(This._SpellingList) m.lcList = ".AlphaChannel.Area3dTop.AreaDrawBorders.AxisAlpha.AxisColor.AxisLegend2.Alignment.BackColor.BackColorAlpha.FontBold" m.lcList = m.lcList + ".FontCharSet.FontItalic.FontName.FontSize.FontUnderline.ForeColor.ForeColorAlpha.Format.Rotation.BackColor2.BackGradientMode" m.lcList = m.lcList + ".BarsPerScale.BarsSpaceBetween.BarType.BrushType.ChangeColorOnMouse.ChartRow.ChartsCount.ChartType" m.lcList = m.lcList + ".ColorType.Depth.DonutRatio.FieldAxis2.FieldColor.FieldDetachSlice.FieldHideSlice.FieldLegend.Fields.Color" m.lcList = m.lcList + ".FieldValue.Legend.Shape.Gradientlevel.LegendHideWhenNull.LineCaps.Margin" m.lcList = m.lcList + ".MarginBottom.MarginLeft.MarginRight.MarginTop.MaxValue.MinNumberScaleLegends.MinValue.MultiChart.OldStyleProperties" m.lcList = m.lcList + ".PieCompensateAngles.PieDetachAnimationSteps.PieDetachPixels.PieDetachSliceOnClick.PieEnhancedDrawing.PieShowPercent" m.lcList = m.lcList + ".PointShapeWidth.Scale.ScaleBackAlpha.ScaleBackBarsType.ScaleBackColor.ScaleBackLinesDash.ScaleBackLinesType" m.lcList = m.lcList + ".ScaleBackLinesWidth.ScaleLegend.ScaleLineColor.ScaleLineZeroColor.ScaleStartValue.SelectedShapeColor.Shape1" m.lcList = m.lcList + ".ShapeLegend.ShowAxis.ShowLineZero.ShowScale.ShowSideLegend.ShowTips.ShowValuesOnShapes.ShowValueZero.SideLegend" m.lcList = m.lcList + ".SourceAlias.SubTitle.Title.XAxis.YAxis.Caption" * Add the new Properties since version 1.00RC m.lcList = m.lcList + ".GradientInvertColors.GradientPosition.GradientShapeDirection.GradientType.PieGradCenterAngle" m.lcList = m.lcList + ".PieGradCenterDistance.ScaleDivider.Shadow.ShapeMousePointer.LegendPosition" m.lcList = m.lcList + ".Debug.ScaleAutoFormat.ShowValuesOnShape.ShowValuesOnShapes.BarLegendDirection" m.lcList = m.lcList + ".QualityCompositing.QualitySmoothing.QualityTextRenderingHint.BarLegendType" m.lcList = m.lcList + ".LineCapsShape.PieDetachSliceOnLegendClick.MultiChartMargin.BarLegendDirection" m.lcList = m.lcList + ".PieForceCircle.RotationCenter" m.lcList = m.lcList + ".PieLegendDistance.ShapeLegendExpression.ShowAxis2Tics.TicLength" This._spellinglist = m.lcList ENDIF m.lnPos = ATCC("." + UPPER(tcProperty) + ".", This._spellinglist + ".") IF m.lnPos # 0 RETURN SUBSTR(This._spellingList, m.lnPos + 1, LEN(tcProperty)) ELSE RETURN tcProperty ENDIF ENDPROC PROCEDURE _getcenterpoint LPARAMETERS tnX, tnY, tnWidth, tnHeight * Calculate positions LOCAL lnCenterX, lnCenterY lnCenterX = (tnWidth / 2) lnCenterY = (tnHeight / 2) * Create a GraphicsPath object. LOCAL lnAngle, lnDistance, xAdjust, yAdjust lnAngle = This.PieGradCenterAngle LOCAL loTempPath as xfcGraphicsPath LOCAL loPoint as xfcPointF LOCAL loRect as xfcRectangle loTempPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New() * Obtaining the needed points lnDistance = This.PieGradCenterDistance xAdjust = (1 - lnDistance) / 2 yAdjust = (1 - lnDistance) / 2 loRect = _Screen.System.Drawing.Rectangle.New(tnX + xAdjust * tnWidth, ; tnY + yAdjust * tnHeight, ; lnDistance * tnWidth, ; lnDistance * tnHeight) loTempPath.AddArc(loRect, lnAngle, 0.0001) loPoint = loTempPath.GetLastPoint() RETURN loPoint ENDPROC PROCEDURE sourcealias_assign LPARAMETERS tcNewAlias This.SourceAlias = tcNewAlias IF NOT EMPTY(This._DataCursor) AND USED(This._DataCursor) USE IN (This._DataCursor) ENDIF This._DataCursor = "" ENDPROC PROCEDURE _preparetooltip IF NOT This.ShowTips OR NOT This._InsideForm RETURN ENDIF LOCAL loTip as Label m.loTip = This.ToolTip * Add the tooltips object to the form IF NOT PEMSTATUS(Thisform, "FoxChartsToolTip", 5) Thisform.AddObject("FoxChartsToolTip", "Label") ENDIF WITH Thisform.FoxChartsToolTip as Label .Alignment = m.loTip.Alignment .Autosize = m.loTip.AutoSize .BackColor = m.loTip.BackColor .BackStyle = m.loTip.BackStyle .BorderStyle = m.loTip.BorderStyle .FontBold = m.loTip.FontBold .FontItalic = m.loTip.FontItalic .FontName = m.loTip.FontName .FontSize = m.loTip.FontSize .FontStrikethru = m.loTip.FontStrikethru .FontUnderline = m.loTip.FontUnderline .ForeColor = m.loTip.ForeColor .WordWrap = m.loTip.WordWrap .ZOrder(0) ENDWITH BINDEVENT(Thisform.FoxChartsToolTip, "MouseMove", This.ToolTip, "MouseMove") ENDPROC PROCEDURE _drawsidelegends *!* Property LegendPosition *!* Numeric, *!* Determines the position where the side legend wiil be drawn in the canvas. *1* 0 - No Legend *!* 1 - Vertical Top Left *!* 2 - Vertical Bottom Left *!* 3 - Vertical Top Right *!* 4 - Vertical Bottom Right *!* 5 - Horiz Top Left *!* 6 - Horiz Top Center *!* 7 - Horiz Top Right *!* 8 - Horiz Bottom Left *!* 9 - Horiz Bottom Center *!* 10 - Horiz Bottom Right LOCAL lnPosition, lnOrigAlignment lnPosition = This.LegendPosition IF NOT This.ShowSideLegend OR lnPosition = 0 RETURN ENDIF * Force left alignment for the side legend - this value will be restored at the end of this method lnOrigAlignment = This.SideLegend.Alignment This.SideLegend.Alignment = 0 && Left This._InLegend = .T. LOCAL lnLegendHeight, i, lnExternalMargin, lnCount, lnTopMargin, lnVertHeight LOCAL x1, y1, lnAvailableHeight, lnNeededHeight, lnMargin, lnWidth, lnHeight lnLegendHeight = This.SideLegend._Height lnExternalMargin = This._LegendExternalMargin lnCount = ALEN(This._aSideLegends, 1) lnTopMargin = This.MarginTop + This.Margin + This._TitleHeight WITH _Screen.System.Drawing * Check if we have enough space for legends lnAvailableHeight = This.ChartCanvas.Height - lnTopMargin - This.Margin lnNeededHeight = (lnCount * lnLegendHeight) + (This.Margin * lnCount - 1) IF lnNeededHeight > lnAvailableHeight * Recalculate the Margin lnMargin = (lnAvailableHeight - (lnCount * lnLegendHeight)) / lnCount ELSE lnMargin = 3 ENDIF STORE lnLegendHeight TO m.lnWidth, m.lnHeight lnLegendHeight = lnLegendHeight + MIN(lnMargin, lnLegendHeight / 2) lnVertHeight = lnCount * lnLegendHeight DO CASE CASE lnPosition = 1 && Vertical Top Left Side x1 = This.Margin + This.MarginLeft + lnExternalMargin y1 = lnTopMargin CASE lnPosition = 2 && Vertical Bottom Left Side x1 = This.Margin + This.MarginLeft + lnExternalMargin y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - lnVertHeight CASE lnPosition = 3 && Vertical Top Right Side (Default) x1 = This.ChartCanvas.Width - This._RightOffset + lnExternalMargin y1 = lnTopMargin CASE lnPosition = 4 && Vertical Bottom Right Side (Default) x1 = This.ChartCanvas.Width - This._RightOffset + lnExternalMargin y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - lnVertHeight CASE INLIST(lnPosition, 5, 6, 7, 8, 9, 10) && Horizontal Top or Bottom * Calculate the whole legends width in order to obtain the starting point LOCAL lnLength, lnStart lnLength = 0 lnStart = 0 * Obtain the needed width for the whole horizontal legend FOR i = 1 TO lnCount lnLength = lnLength + m.lnWidth + 10 + This.SideLegend._Width ENDFOR DO CASE CASE INLIST(lnPosition, 5, 8) && Left aligned && do nothing CASE INLIST(lnPosition, 6, 9) && Center lnStart = This._LeftOffset + (This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - lnLength) / 2 CASE INLIST(lnPosition, 7, 10) && Right lnStart = This.ChartCanvas.Width - This._RightOffset - lnLength ENDCASE x1 = This._LeftOffset + lnStart IF INLIST(lnPosition , 5, 6, 7) && Horizontal Top y1 = lnTopMargin + lnExternalMargin ELSE && Horizontal Bottom y1 = This.ChartCanvas.Height - This._LegendHeight - This.Margin - This.MarginBottom + This._LegendExternalMargin ENDIF OTHERWISE ENDCASE LOCAL lcCaption LOCAL loLinePen as xfcPen FOR i = 1 TO lnCount IF y1 <= 0 EXIT ENDIF This._ChartIndex = i lcCaption = This._aSideLegends(i,1) IF EMPTY(lcCaption) LOOP ENDIF This.SideLegend.Caption = lcCaption This.SideLegend._DrawString(x1 + m.lnWidth + 3, y1) This._UpdateCoordinates("Legend", X1, Y1, m.lnWidth + This.SideLegend._Width + 5, lnLegendHeight, i, lcCaption) DO CASE CASE This.ChartType = 5 ; AND This._3D = 0 ; AND This.BrushType = 3 ; && Line, Plain, Monochrome and not This.Multichart loLinePen = .Pen.New(This._oClrBlack, 3) loLinePen.DashStyle = i - 1 && _Screen.System.Drawing.Drawing2D.DashStyle.Dash This.oGfx.DrawLine(loLinePen, x1, y1 + m.lnHeight / 2, x1 + m.lnWidth, y1 + m.lnHeight / 2) CASE (This.ChartType = 4 ; && Point or (This.ChartType = 5 and This._3d = 0 and This.LineCaps = .T.)) ; && Plain line and not This.Multichart LOCAL loPath as xfcGraphicsPath loPath = This._aShapes(i,1) IF VARTYPE(loPath) <> "O" RETURN ENDIF IF INLIST(LOWER(loPath.Class),"xfcbitmap", "xfcimage") This.oGfx.DrawImage(loPath, x1, y1, m.lnWidth, m.lnHeight) ELSE This._DrawShape(x1 + lnWidth / 2, y1 + lnHeight / 2, 0, "Legend") IF This._aShapes(i,3) > lnLegendHeight lnLegendHeight = This._aShapes(i,3) + 1 * y1 = y1 + This._aShapes(i,3) + 3 ENDIF ENDIF OTHERWISE This._PrepareBrushes(X1, Y1, m.lnWidth, m.lnHeight, .T., i) THIS.oGfx.FillRectangle(This._oMainBrush, x1, y1, m.lnWidth, m.lnHeight) THIS.oGfx.DrawRectangle(This._oBorderPen, x1, y1, m.lnWidth, m.lnHeight) ENDCASE IF lnPosition >= 5 && Horizontal x1 = x1 + m.lnWidth + 10 + This.SideLegend._Width ELSE y1 = y1 + lnLegendHeight ENDIF ENDFOR ENDWITH This.SideLegend.Top = lnTopMargin This.SideLegend.Left = x1 This.SideLegend.Width = This._LegendWidth This.SideLegend.Height = MAX(0, y1 - lnTopMargin) This._InLegend = .F. * Restore the alignment value to the original This.SideLegend.Alignment = lnOrigAlignment RETURN ENDPROC PROCEDURE _getcursorpos LPARAMETERS tnX, tnY * This works better than using MROW() and MCOL() when FoxCharts is not at the active window LOCAL lqPoint AS String DECLARE INTEGER GetCursorPos IN win32api AS FoxCharts_GetCursorPos STRING @lqPoint m.lqPoint = 0h0000000000000000 FoxCharts_GetCursorPos(@m.lqPoint) m.tnx = CTOBIN(SUBSTR(m.lqPoint, 1, 4), "4rs") m.tny = CTOBIN(SUBSTR(m.lqPoint, 5, 4), "4rs") ENDPROC PROCEDURE _updatequality LOCAL loCanvas as xfcImgCanvas OF "GdiPlusX.vcx" loCanvas = This.ChartCanvas loCanvas.SmoothingMode = This.QualitySmoothing loCanvas.TextRenderingHint = This.QualityTextRenderingHint loCanvas.oGfx.CompositingQuality = This.QualityCompositing ENDPROC PROCEDURE currcolumn_access LOCAL lnIndex, lnColumn lnIndex = This.CurrIndex lnColumn = IIF(lnIndex = 0, 0, This.aCoord(lnIndex, 9)) RETURN lnColumn ENDPROC PROCEDURE currlegend_access LOCAL lnIndex, lcLegend lnIndex = This.CurrIndex lcLegend = IIF(lnIndex = 0, "", This.aCoord(lnIndex, 6)) RETURN lcLegend ENDPROC PROCEDURE currobjtype_access LOCAL lnIndex, lcObjType lnIndex = This.CurrIndex lcObjType = IIF(lnIndex = 0, "", This.aCoord(lnIndex, 11)) RETURN lcObjType ENDPROC PROCEDURE currrecno_access LOCAL lnIndex, lnRec lnIndex = This.CurrIndex lnRec = IIF(lnIndex = 0, 0, This.aCoord(lnIndex, 10)) RETURN lnRec ENDPROC PROCEDURE currvalue_access LOCAL lnIndex, lnValue lnIndex = This.CurrIndex lnValue = IIF(lnIndex = 0, 0, This.aCoord(lnIndex, 5)) RETURN lnValue ENDPROC PROCEDURE _ps LPARAMETERS tcPrp, toCtrl, tnType DO CASE CASE tnType = 1 && GETCOLOR LOCAL luOrig,lnClr,lcRet lcExpr = EVAL("toCtrl."+tcPrp) IF VARTY(lcExpr)="C" IF LEFT(lcExpr,1) = "=" lcExpr=EVALUATE(STRTR(lcExpr,"=","",1,1)) ELSE lcExpr = 0 ENDIF ENDIF luOrig = EVL(lcExpr, 0) lnClr = GETCOLOR(luOrig) lnClr = IIF(lnClr=-1,luOrig,lnClr) lcRet = TEXTMERGE( ; "<>,<>,<>") toCtrl.WRITEEXPRESSION(tcPrp, "") STORE lcRet TO ("toCtrl." + tcPrp) OTHERWISE ENDCASE ENDPROC PROCEDURE showtips_assign LPARAMETERS tlShowTips LOCAL llOldValue llOldValue = This.ShowTips This.ShowTips = m.tlShowTips IF llOldValue <> tlShowTips This._PrepareTooltip() ENDIF ENDPROC PROCEDURE _centerpath LPARAMETERS toPath as xfcGraphicsPath, tlScale LOCAL loMatrix as xfcMatrix, ; loRect as xfcRectangle, ; lnWidth, lnHeight, x1, y1 loRect = toPath.GetBounds() lnWidth = loRect.Width lnHeight = loRect.Height loMatrix = _Screen.System.Drawing.Drawing2D.Matrix.New() && lnWidth /2, lnHeight /2) IF tlScale loMatrix.Scale(1+This.PointShapeWidth /10, 1+This.PointShapeWidth /10) toPath.Transform(loMatrix) loRect = toPath.GetBounds() lnWidth = loRect.Width lnHeight = loRect.Height x1 = loRect.X y1 = loRect.Y loMatrix.Translate(-x1 -lnWidth/2, -y1 -lnHeight/2) ELSE x1 = loRect.X y1 = loRect.Y loMatrix.Translate(-x1 -lnWidth /(2 * This.PointShapeWidth), ; -y1 -lnHeight /(2 * This.PointShapeWidth)) ENDIF toPath.Transform(loMatrix) RETURN toPath ENDPROC PROCEDURE _getpalettecolor LPARAMETERS tnPalette, tnIndex LOCAL lnPosition, lnMaxColors lnPosition = (tnPalette * 8) + tnIndex lnMaxColors = This._PaletteColors IF lnPosition > lnMaxColors lnPosition = lnPosition - lnMaxColors ENDIF RETURN This.aPaletteColors(lnPosition) ENDPROC PROCEDURE _objtoclientex ********************************************************************* * FUNCTION ObjToClientEx ********************************************************************* ** Method: xfcBitmap.ObjToClientEx ** ** This replaces OBJTOCLIENT that has bugs with pageframes and SP2 ** ** History: ** 2007/11/26: CAlloatti/CChalom - Coded Made small adaptation from the original code from Carlos Alloatti in his CTL32SContainer ********************************************************************* LPARAMETERS toControl, tnType && 1 = Top 2 = Left *!* TabOrientation parameters #DEFINE CON_TABOR_TOP 0 #DEFINE CON_TABOR_BOTTOM 1 #DEFINE CON_TABOR_LEFT 2 #DEFINE CON_TABOR_RIGHT 3 LOCAL lnPosition AS INTEGER m.lnPosition = 0 DO CASE CASE m.tnType = 1 && Top DO WHILE NOT UPPER(m.toControl.BASECLASS) == [FORM] IF PEMSTATUS(m.toControl, [Top],5) THEN && Defined Property m.lnPosition = m.lnPosition + m.toControl.TOP ENDIF IF UPPER(m.toControl.BASECLASS) == [PAGE] THEN IF m.toControl.PARENT.TABORIENTATION = CON_TABOR_TOP THEN && Top m.lnPosition = m.lnPosition + ; m.toControl.PARENT.HEIGHT - ; m.toControl.PARENT.PAGEHEIGHT - ; m.toControl.PARENT.BORDERWIDTH * 2 ELSE m.lnPosition = m.lnPosition + 1 ENDIF ENDIF m.toControl = m.toControl.PARENT ENDDO CASE m.tnType = 2 && Left DO WHILE NOT UPPER(m.toControl.BASECLASS) == [FORM] IF PEMSTATUS(m.toControl, [Left], 5) THEN && Defined Property m.lnPosition = m.lnPosition + m.toControl.LEFT ENDIF IF UPPER(m.toControl.BASECLASS) == [PAGE] IF m.toControl.PARENT.TABORIENTATION = CON_TABOR_LEFT THEN && Left m.lnPosition = m.lnPosition + ; m.toControl.PARENT.WIDTH - ; m.toControl.PARENT.PAGEWIDTH - ; m.toControl.PARENT.BORDERWIDTH * 2 ELSE m.lnPosition = m.lnPosition + 1 ENDIF ENDIF m.toControl = m.toControl.PARENT ENDDO ENDCASE RETURN m.lnPosition ENDPROC PROCEDURE _initpalettes LOCAL lnMaxColors lnMaxColors = 184 This._PaletteColors = lnMaxColors DIMENSION This.aPaletteColors(lnMaxColors) WITH This .aPaletteColors(1) = RGB(151,186,235) && In a fog .aPaletteColors(2) = RGB(239,158,169) .aPaletteColors(3) = RGB(214,164,225) .aPaletteColors(4) = RGB(165,159,230) .aPaletteColors(5) = RGB(242,199,152) .aPaletteColors(6) = RGB(224,218,142) .aPaletteColors(7) = RGB(166,224,144) .aPaletteColors(8) = RGB(147,217,210) .aPaletteColors(9) = RGB(166,141,45) && Apex .aPaletteColors(10) = RGB(102,124,76) .aPaletteColors(11) = RGB(52,133,162) .aPaletteColors(12) = RGB(44,80,166) .aPaletteColors(13) = RGB(72,51,159) .aPaletteColors(14) = RGB(116,68,146) .aPaletteColors(15) = RGB(222,208,153) .aPaletteColors(16) = RGB(187,202,172) .aPaletteColors(17) = RGB(181,88,4) && Aspect .aPaletteColors(18) = RGB(109,24,33) .aPaletteColors(19) = RGB(15,60,88) .aPaletteColors(20) = RGB(51,93,42) .aPaletteColors(21) = RGB(64,47,84) .aPaletteColors(22) = RGB(156,113,52) .aPaletteColors(23) = RGB(248,170,93) .aPaletteColors(24) = RGB(209,84,97) .aPaletteColors(25) = RGB(49,138,210) && Chameleon .aPaletteColors(26) = RGB(203,181,112) .aPaletteColors(27) = RGB(212,120,185) .aPaletteColors(28) = RGB(189,223,120) .aPaletteColors(29) = RGB(109,181,229) .aPaletteColors(30) = RGB(212,196,136) .aPaletteColors(31) = RGB(209,135,189) .aPaletteColors(32) = RGB(172,202,117) .aPaletteColors(33) = RGB(167,60,35) && Civic .aPaletteColors(34) = RGB(148,129,0) .aPaletteColors(35) = RGB(85,126,127) .aPaletteColors(36) = RGB(98,85,76) .aPaletteColors(37) = RGB(87,128,83) .aPaletteColors(38) = RGB(173,105,36) .aPaletteColors(39) = RGB(185,123,108) .aPaletteColors(40) = RGB(255,228,40) .aPaletteColors(41) = RGB(26,111,134) && Concourse .aPaletteColors(42) = RGB(159,18,24) .aPaletteColors(43) = RGB(172,62,11) .aPaletteColors(44) = RGB(33,60,101) .aPaletteColors(45) = RGB(42,44,75) .aPaletteColors(46) = RGB(81,35,45) .aPaletteColors(47) = RGB(92,190,216) .aPaletteColors(48) = RGB(233,101,107) .aPaletteColors(49) = RGB(158,47,13) && Equity / Brick .aPaletteColors(50) = RGB(107,26,18) .aPaletteColors(51) = RGB(112,96,66) .aPaletteColors(52) = RGB(95,60,48) .aPaletteColors(53) = RGB(96,85,85) .aPaletteColors(54) = RGB(89,59,59) .aPaletteColors(55) = RGB(235,114,76) .aPaletteColors(56) = RGB(214,76,61) .aPaletteColors(57) = RGB(7,71,137) && Flow .aPaletteColors(58) = RGB(0,108,156) .aPaletteColors(59) = RGB(5,134,41) .aPaletteColors(60) = RGB(7,132,95) .aPaletteColors(61) = RGB(67,146,43) .aPaletteColors(62) = RGB(125,152,44) .aPaletteColors(63) = RGB(66,156,240) .aPaletteColors(64) = RGB(57,197,255) .aPaletteColors(65) = RGB(76,124,80) && Foundry .aPaletteColors(66) = RGB(86,139,86) .aPaletteColors(67) = RGB(67,140,161) .aPaletteColors(68) = RGB(123,118,94) .aPaletteColors(69) = RGB(150,136,64) .aPaletteColors(70) = RGB(190,61,61) .aPaletteColors(71) = RGB(150,183,154) .aPaletteColors(72) = RGB(182,207,182) .aPaletteColors(73) = RGB(61,115,162) && Median .aPaletteColors(74) = RGB(179,81,27) .aPaletteColors(75) = RGB(109,115,73) .aPaletteColors(76) = RGB(159,118,33) .aPaletteColors(77) = RGB(70,111,102) .aPaletteColors(78) = RGB(108,98,98) .aPaletteColors(79) = RGB(165,193,217) .aPaletteColors(80) = RGB(231,168,130) .aPaletteColors(81) = RGB(81,150,29) && Metro .aPaletteColors(82) = RGB(169,11,81) .aPaletteColors(83) = RGB(181,124,1) .aPaletteColors(84) = RGB(0,108,142) .aPaletteColors(85) = RGB(51,75,146) .aPaletteColors(86) = RGB(14,123,107) .aPaletteColors(87) = RGB(162,222,117) .aPaletteColors(88) = RGB(240,102,155) .aPaletteColors(89) = RGB(224,165,57) && Nature .aPaletteColors(90) = RGB(113,178,30) .aPaletteColors(91) = RGB(207,80,34) .aPaletteColors(92) = RGB(217,184,56) .aPaletteColors(93) = RGB(120,211,64) .aPaletteColors(94) = RGB(160,60,26) .aPaletteColors(95) = RGB(9,141,8) .aPaletteColors(96) = RGB(165,165,0) .aPaletteColors(97) = RGB(49,116,216) && Northern lights .aPaletteColors(98) = RGB(215,59,165) .aPaletteColors(99) = RGB(75,202,249) .aPaletteColors(100) = RGB(205,45,222) .aPaletteColors(101) = RGB(142,184,242) .aPaletteColors(102) = RGB(238,139,207) .aPaletteColors(103) = RGB(147,213,244) .aPaletteColors(104) = RGB(212,115,222) .aPaletteColors(105) = RGB(46,89,140) && Office .aPaletteColors(106) = RGB(138,45,43) .aPaletteColors(107) = RGB(102,130,47) .aPaletteColors(108) = RGB(77,58,101) .aPaletteColors(109) = RGB(38,115,137) .aPaletteColors(110) = RGB(207,89,6) .aPaletteColors(111) = RGB(134,168,208) .aPaletteColors(112) = RGB(215,148,145) .aPaletteColors(113) = RGB(132,138,70) && Opulent .aPaletteColors(114) = RGB(124,56,139) .aPaletteColors(115) = RGB(162,62,20) .aPaletteColors(116) = RGB(194,123,4) .aPaletteColors(117) = RGB(154,44,104) .aPaletteColors(118) = RGB(208,82,3) .aPaletteColors(119) = RGB(206,112,144) .aPaletteColors(120) = RGB(204,159,213) .aPaletteColors(121) = RGB(71,80,115) && Origin .aPaletteColors(122) = RGB(71,113,149) .aPaletteColors(123) = RGB(161,172,41) .aPaletteColors(124) = RGB(228,167,5) .aPaletteColors(125) = RGB(129,77,60) .aPaletteColors(126) = RGB(93,73,67) .aPaletteColors(127) = RGB(154,162,187) .aPaletteColors(128) = RGB(174,195,213) .aPaletteColors(129) = RGB(106,127,83) && Paper .aPaletteColors(130) = RGB(205,109,10) .aPaletteColors(131) = RGB(169,131,15) .aPaletteColors(132) = RGB(153,60,90) .aPaletteColors(133) = RGB(94,64,135) .aPaletteColors(134) = RGB(61,96,140) .aPaletteColors(135) = RGB(189,201,176) .aPaletteColors(136) = RGB(246,190,124) .aPaletteColors(137) = RGB(225,102,82) && Pastel Kit .aPaletteColors(138) = RGB(49,141,206) .aPaletteColors(139) = RGB(239,203,78) .aPaletteColors(140) = RGB(147,219,103) .aPaletteColors(141) = RGB(177,223,252) .aPaletteColors(142) = RGB(244,140,77) .aPaletteColors(143) = RGB(145,111,189) .aPaletteColors(144) = RGB(189,189,189) .aPaletteColors(145) = RGB(34,100,117) && Solstice .aPaletteColors(146) = RGB(195,133,1) .aPaletteColors(147) = RGB(131,25,26) .aPaletteColors(148) = RGB(80,107,28) .aPaletteColors(149) = RGB(97,39,2) .aPaletteColors(150) = RGB(44,58,95) .aPaletteColors(151) = RGB(97,179,199) .aPaletteColors(152) = RGB(255,206,91) .aPaletteColors(153) = RGB(244,213,46) && Technic .aPaletteColors(154) = RGB(68,117,134) .aPaletteColors(155) = RGB(140,118,4) .aPaletteColors(156) = RGB(86,83,110) .aPaletteColors(157) = RGB(68,80,55) .aPaletteColors(158) = RGB(105,96,70) .aPaletteColors(159) = RGB(82,87,94) .aPaletteColors(160) = RGB(152,186,197) .aPaletteColors(161) = RGB(217,98,64) && Terracotta .aPaletteColors(162) = RGB(174,139,76) .aPaletteColors(163) = RGB(212,121,18) .aPaletteColors(164) = RGB(252,193,168) .aPaletteColors(165) = RGB(240,227,176) .aPaletteColors(166) = RGB(247,204,116) .aPaletteColors(167) = RGB(231,146,122) .aPaletteColors(168) = RGB(186,156,101) .aPaletteColors(169) = RGB(126,195,71) && Trees .aPaletteColors(170) = RGB(208,153,62) .aPaletteColors(171) = RGB(230,220,78) .aPaletteColors(172) = RGB(191,238,103) .aPaletteColors(173) = RGB(83,210,136) .aPaletteColors(174) = RGB(184,161,43) .aPaletteColors(175) = RGB(172,69,28) .aPaletteColors(176) = RGB(79,192,63) .aPaletteColors(177) = RGB(255,44,122) .aPaletteColors(178) = RGB(224,0,85) .aPaletteColors(179) = RGB(163,0,57) .aPaletteColors(180) = RGB(102,0,81) .aPaletteColors(181) = RGB(62,0,78) .aPaletteColors(182) = RGB(0,55,139) .aPaletteColors(183) = RGB(0,31,108) .aPaletteColors(184) = RGB(255,105,167) ENDWITH ENDPROC PROCEDURE _initchart IF TYPE("Thisform.Name") = "C" This._InsideForm = .T. * Add the tooltips object to the form IF NOT PEMSTATUS(Thisform, "FoxChartsToolTip", 5) Thisform.AddObject("FoxChartsToolTip", "Label") ENDIF ELSE This._InsideForm = .F. ENDIF This.BorderWidth = 0 This.BackStyle = 0 && Transparent IF VARTYPE(This._3D) = "L" && Undefined This._Using3D = .F. This._3D = This.Depth ELSE This._Using3D = .T. This.Depth = This._3D ENDIF * Prepare basic color objects This._oClrBlack = _Screen.System.Drawing.Color.FromRGB(0) This._oClrWhite = _Screen.System.Drawing.Color.FromRGB(255,255,255) * A thin black pen to draw the ticks in the Y Axis Local loBlackPen As xfcPen loBlackPen = _Screen.System.Drawing.Pen.New(This._oClrBlack, 0) This._oBlackPen = loBlackPen * Store the original Mouse Pointer This._OrigMousePointer = This.MousePointer * Initialize the color palettes This._InitPalettes() * GdiPlus API call declarations * to ensure compatibility with all GdiPlusX versions DECLARE Long GdipSetPathGradientSurroundColorsWithCount IN GDIPLUS.DLL Long brush, String @Argb, Long @Count DECLARE Long GdipSetPathGradientCenterPoint IN GDIPLUS.DLL Long brush, String pPoint This._Started = .T. DODEFAULT() ENDPROC PROCEDURE _drawshapelegend LPARAMETERS tnX, tnY, tnIndex LOCAL lcExpr, luValue lcExpr = This.ShapeLegendExpression This.CurrIndex = tnIndex IF NOT EMPTY(lcExpr) *!* Other available properties *!* This.CurrValue *!* This.CurrLegend *!* This.CurrObjType *!* This.CurrRecno *!* This.CurrColumn luValue = EVALUATE(lcExpr) ELSE luValue = This.CurrValue ENDIF This.ShapeLegend._Value = luValue * Measure the legend height tnY = tnY - (This.ShapeLegend._Height) && Draw above This.ShapeLegend._DrawString(tnX, tnY) ENDPROC PROCEDURE Moved This._GetRelativePositions() ENDPROC PROCEDURE selectedshapecolor_access RETURN This._GetRGB(This.SelectedShapeColor) ENDPROC PROCEDURE _drawsliceexternal LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, toPoint1, toPoint2 LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL lo3DBrush as xfcSolidBrush lo3DBrush = This._o3dBrush LOCAL loPen as xfcPen m.loPen = This._oBorderPen LOCAL ln3D m.ln3D = This._3d * Draw the external 3d Face LOCAL loPath as xfcGraphicsPath loPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New() loPath.StartFigure() loPath.AddArc(tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep) loPath.Reverse() loPath.AddLine(toPoint1.x, toPoint1.Y, toPoint1.x, toPoint1.Y + m.ln3D) loPath.AddArc(tnX, tnY + m.ln3D, tnWidth, tnHeight, tnStart, tnSweep) loPath.AddLine(toPoint2.X, toPoint2.Y + m.ln3D, toPoint2.x, toPoint2.Y) loPath.CloseFigure() m.loGfx.FillPath(lo3dBrush, loPath) m.loGfx.DrawPath(m.loPen, loPath) ENDPROC PROCEDURE _getadjustedangle LPARAMETERS tnAngle, tnWidth, tnHeight IF m.tnAngle > 360 m.tnAngle = m.tnAngle - 360 ENDIF IF m.tnAngle < 0 m.tnAngle = m.tnAngle + 360 ENDIF * Fix by Christof Wollenhaupt 2008-10-28 * http://www.codeplex.com/VFPX/WorkItem/View.aspx?WorkItemId=19211 * when the angle is around 270.0000001, this passes the test of BETWEEN(tnAngle,90,270), * but fails on the following TAN() function. m.tnAngle = ROUND(m.tnAngle, 4) LOCAL lnNewAngle DO CASE CASE BETWEEN(m.tnAngle, 90, 270) m.lnNewAngle = RTOD(ATN2(TAN(DTOR(m.tnAngle)) * m.tnHeight, m.tnWidth)) + 180 OTHERWISE m.lnNewAngle = RTOD(ATN2(TAN(DTOR(m.tnAngle)) * m.tnHeight, m.tnWidth)) ENDCASE IF m.lnNewAngle < 0 m.lnNewAngle = m.lnNewAngle + 360 ENDIF IF m.lnNewAngle - m.tnAngle > 170 m.lnNewAngle = m.lnNewAngle - 180 ENDIF RETURN m.lnNewAngle ENDPROC PROCEDURE _preparesidelegend *!* Property LegendPosition *!* Numeric, *!* Determines the position where the side legend wiil be drawn in the canvas. *1* 0 - No Legend *!* 1 - Vertical Top Left *!* 2 - Vertical Bottom Left *!* 3 - Vertical Top Right *!* 4 - Vertical Bottom Right *!* 5 - Horiz Top Left *!* 6 - Horiz Top Center *!* 7 - Horiz Top Right *!* 8 - Horiz Bottom Left *!* 9 - Horiz Bottom Center *!* 10 - Horiz Bottom Right IF NOT This.ShowSideLegend OR This.LegendPosition = 0 This._LegendWidth = MAX(5, (This.Margin + This.MarginRight)) This._LegendHeight = 0 This._LeftOffset = This.Margin + This.MarginLeft This._RightOffSet = This.Margin + This.MarginRight This._TopOffSet = This.Margin + This.MarginTop + This._TitleHeight RETURN ENDIF SELECT(This._DataCursor) This.SideLegend.Caption = "12" This.SideLegend.Reset() LOCAL lnCurrWidth, lnMaxWidth, lnCurrHeight, lnMaxHeight, lnLegendHeight, lnLegendPosition, n LOCAL loFont as xfcFont LOCAL loSize as xfcSize loFont = This.SideLegend._oFont lnMaxWidth = 0 lnMaxHeight = 0 lnLegendPosition = This.LegendPosition * Measure the maximum legend width IF This.SingleData DIMENSION This._aSideLegends(This._nRecords, 2) SCAN n = RECNO() lcCaption = cLegend IF This.LegendHideWhenNull IF ISNULL(This._GetValue(This.ChartRow, .T.)) && Accept NULLs lcCaption = "" ENDIF ENDIF loSize = This.oGfx.MeasureString(lcCaption, loFont) lnCurrWidth = loSize.Width lnMaxWidth = Max(lnMaxWidth, lnCurrWidth) lnCurrHeight = loSize.Height lnMaxHeight = Max(lnMaxHeight, lnCurrHeight) This._aSideLegends(n, 1) = lcCaption This._aSideLegends(n, 2) = lnCurrWidth ENDSCAN GO TOP ELSE DIMENSION This._aSideLegends(This.ChartsCount, 2) FOR n = 1 To This.ChartsCount lcCaption = This.Fields(n).Legend loSize = This.oGfx.MeasureString(lcCaption, loFont) lnCurrWidth = loSize.Width lnMaxWidth = Max(lnMaxWidth, lnCurrWidth) lnCurrHeight = loSize.Height lnMaxHeight = Max(lnMaxHeight, lnCurrHeight) This._aSideLegends(n, 1) = lcCaption This._aSideLegends(n, 2) = lnCurrWidth NEXT n ENDIF DO CASE CASE INLIST(lnLegendPosition, 1, 2) && Left Side This._LegendWidth = lnMaxWidth + lnMaxHeight + This._LegendExternalMargin * 2 This._LegendHeight = 0 This._LeftOffset = This.Margin + This.MarginLeft + This._LegendWidth This._RightOffSet = This.Margin + This.MarginRight This._TopOffSet = This.Margin + This.MarginTop + This._TitleHeight CASE INLIST(lnLegendPosition, 3, 4) && Right Side (Default) This._LegendWidth = lnMaxWidth + lnMaxHeight + This._LegendExternalMargin This._LegendHeight = 0 This._LeftOffset = This.Margin + This.MarginLeft This._RightOffSet = This.Margin + This.MarginRight + This._LegendWidth This._TopOffSet = This.Margin + This.MarginTop + This._TitleHeight CASE INLIST(lnLegendPosition, 5, 6, 7) && Top Side This._LegendWidth = 0 This._LegendHeight = lnMaxHeight + (This._LegendExternalMargin * 2) This._LeftOffset = This.Margin + This.MarginLeft This._RightOffSet = This.Margin + This.MarginRight This._TopOffSet = This.Margin + This.MarginTop + This._TitleHeight + This._LegendHeight CASE INLIST(lnLegendPosition, 8, 9, 10) && Bottom Side This._LegendWidth = 0 This._LegendHeight = lnMaxHeight + (This._LegendExternalMargin * 2) This._LeftOffset = This.Margin + This.MarginLeft This._RightOffSet = This.Margin + This.MarginRight This._TopOffSet = This.Margin + This.MarginTop + This._TitleHeight OTHERWISE ENDCASE ENDPROC PROCEDURE _preparebrushes LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlRect, tnCount IF VARTYPE(m.tnCount) = "L" m.tnCount = 1 ENDIF IF PCOUNT() = 0 m.tnX = 0 m.tnY = 0 m.tnWidth = This.ChartCanvas.Width m.tnHeight = This.ChartCanvas.Height ENDIF m.tnWidth = MAX(1,m.tnWidth) m.tnHeight = MAX(1,m.tnHeight) LOCAL lnBrushType, lnMainColor m.lnBrushType = This.BrushType *IF This.SingleData && Pie, Donut or Single Bar * m.lnMainColor = This.aColors(RECNO()) *ELSE m.lnMainColor = This.aColors(m.tnCount) *ENDIF IF VARTYPE(m.lnMainColor) <> "N" m.lnMainColor = This._GetRandomColor() ENDIF This._nColor = m.lnMainColor WITH _Screen.System.Drawing IF This.BrushType = 3 && Monochrome This._oBorderPen = .Pen.New(This._oClrBlack) ELSE LOCAL lnColor m.lnColor = This.ChangeColor(m.lnMainColor, +30) This._oBorderPen = .Pen.New(.Color.FromRGB(m.lnColor)) * Check if we are drawing on the selected shape IF NOT This._InLegend AND This.ChangeColoronMouse AND ; This._GeneralType <> "Point" LOCAL m.lnShape m.lnShape = This._nMouseOnShape IF m.lnShape > 0 AND This._nMouseOnShape = This._nIndex m.lnMainColor = This.SelectedShapeColor ENDIF ENDIF ENDIF DO CASE CASE m.lnBrushType = 1 && Solid Brush This._oMainBrush = .SolidBrush.New(.COLOR.FromARGB(This.AlphaChannel, m.lnMainColor)) This._o3DBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 20))) CASE m.lnBrushType = 2 && Gradient Path Brush LOCAL loColor1 as xfcColor loColor1 = .Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 10)) LOCAL loColor2 as xfcColor loColor2 = .COLOR.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, This.GradientLevel * 10)) IF This.GradientInvertColors LOCAL loTmpColor as xfcColor loTmpColor = loColor2 loColor2 = loColor1 loColor1 = loTmpColor ENDIF DO CASE CASE This._GeneralType = "Pie" AND NOT tlRect && Pie or Donut Chart and still not at legend LOCAL loPath as xfcGraphicsPath loPath = .Drawing2D.GraphicsPath.New() loPath.AddEllipse(m.tnX, m.tnY, m.tnWidth, m.tnHeight) LOCAL loPathGradBrush as xfcPathGradientBrush loPathGradBrush = .Drawing2D.PathGradientBrush.New(loPath) loPathGradBrush.CenterColor = loColor2 IF This.PieGradCenterDistance > 0 LOCAL loCenterPt as xfcPointF m.loCenterPt = This._GetCenterPoint(m.tnX, m.tnY, m.tnWidth, m.tnHeight) * Set the center using direct API call because the original funciorn has bugs * When fixed, the line below should work instead: * m.loPathGradBrush.CenterPoint = m.loCenterPt =GdipSetPathGradientCenterPoint(loPathGradBrush.Handle, m.loCenterPt.ToVarBinary()) ENDIF * Not working on version 1.20 official * loPathGradBrush.SurroundColors[1] = loColor1 * loPathGradBrush.SurroundColors = loColor1 * Workaround using direct API call to assign the surround colors LOCAL lqColors m.lqColors = BINTOC(loColor1.ARGB,"4rs") =GdipSetPathGradientSurroundColorsWithCount(loPathGradBrush.Handle, @lqColors, 1) IF This.GradientType = 0 && SigmaBell loPathGradBrush.SetSigmaBellShape(This.GradientPosition, 1.0) ELSE && BlendTriangularShape loPathGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0) ENDIF This._oMainBrush = loPathGradBrush CASE This._GeneralType = "Bar" OR tlRect && Bar Chart m.tnWidth = MAX(1, m.tnWidth) m.tnHeight = MAX(1, m.tnHeight) LOCAL loLinGradBrush as xfcLinearGradientBrush loLinGradBrush = .Drawing2D.LinearGradientBrush.New(; .Rectangle.New(m.tnX, m.tnY, m.tnWidth, m.tnHeight), ; loColor1, loColor2, This.GradientShapeDirection) IF This.GradientType = 0 && SigmaBell loLinGradBrush.SetSigmaBellShape(This.GradientPosition, 1) ELSE && BlendTriangularShape loLinGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0) ENDIF This._oMainBrush = loLinGradBrush CASE This._GeneralType = "Point" && Line, Point or Area Chart loColor2 = .COLOR.FromRGB(This.ChangeColor(m.lnMainColor, This.GradientLevel * 8)) LOCAL loLinGradBrush as xfcLinearGradientBrush loLinGradBrush = .Drawing2D.LinearGradientBrush.New(; .Rectangle.New(m.tnX, m.tnY, m.tnWidth, m.tnHeight), ; loColor1, loColor2, This.GradientShapeDirection) IF This.GradientType = 0 && SigmaBell loLinGradBrush.SetSigmaBellShape(This.GradientPosition, 1) ELSE && BlendTriangularShape loLinGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0) ENDIF This._oMainBrush = loLinGradBrush ENDCASE This._o3DBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 15))) CASE m.lnBrushType = 3 && Monochrome - HatchBrush LOCAL lnHatchBrushValue IF This.ChartsCount > 1 AND NOT This.SingleData && INLIST(This.ChartType, 1, 2, 7, 12) && Pie, Bar or Donut m.lnHatchBrushValue = 4 + m.tnCount * 2 ELSE m.lnHatchBrushValue = RECNO() * 2 ENDIF This._oMainBrush = .Drawing2D.HatchBrush.New( ; m.lnHatchBrushValue, ; && HatchStyle This._oClrBlack, ; && ForeColor This._oClrWhite ) && BackColor This._o3DBrush = .Drawing2D.HatchBrush.New( ; m.lnHatchBrushValue , ; && HatchStyle .COLOR.Gray, ; && ForeColor .COLOR.LightGray ) && BackColor ENDCASE ENDWITH RETURN ENDPROC PROCEDURE _preparecolors SELECT(This._DataCursor) LOCAL lnColorType m.lnColorType = This.ColorType IF NOT This.SingleData LOCAL lnColor DIMENSION This.aColors(This.ChartsCount) LOCAL n, lcIndex FOR n = 1 TO This.ChartsCount lcIndex = This._Str(N) DO CASE CASE This.BrushType = 3 && Monochrome m.lnColor = 0 CASE m.lnColorType = 0 && Basic Colors m.lnColor = This._GetBasicColor(n) CASE m.lnColorType = 1 && Custom m.lnColor = This.Fields(n).Color IF VARTYPE(m.lnColor) <> "N" m.lnColor = This._GetRandomColor() ENDIF CASE m.lnColorType = 2 AND This._UpdateRandomColors && Random m.lnColor = This._GetRandomColor() CASE m.lnColorType = 2 AND NOT This._UpdateRandomColors && Random RETURN && Keep the current color CASE m.lnColorType = 3 && Gradient m.lnColor = This._GetGradientColor(n) CASE m.lnColorType >= 4 m.lnColor = This._GetPaletteColor(lnColorType - 4, n) ENDCASE This.aColors(n) = m.lnColor ENDFOR ELSE DIMENSION This.aColors(This._nRecords) SCAN DO CASE CASE This.BrushType = 3 && Monochrome m.lnColor = 0 CASE m.lnColorType = 0 && Basic Colors m.lnColor = This._GetBasicColor(RECNO()) CASE m.lnColorType = 2 AND This._UpdateRandomColors && Random m.lnColor = This._GetRandomColor() CASE m.lnColorType = 2 AND NOT This._UpdateRandomColors && Random RETURN CASE m.lnColorType = 3 && Gradient m.lnColor = This._GetGradientColor(RECNO()) CASE m.lnColorType = 1 AND NOT EMPTY(This.FieldColor) && Custom m.lnColor = nColor && Retrieve color from Field CASE m.lnColorType = 1 AND EMPTY(This.FieldColor) && Custom IF This._UpdateRandomColors m.lnColor = This._GetRandomColor() ELSE && no need to update, keep using the same prev color RETURN ENDIF CASE m.lnColorType >= 4 m.lnColor = This._GetPaletteColor(lnColorType - 4, RECNO()) OTHERWISE && Custom color and not Line or Area chart ENDCASE This.aColors(RECNO()) = m.lnColor ENDSCAN ENDIF This._UpdateRandomColors = .F. ENDPROC PROCEDURE _preparetitle WITH _SCREEN.SYSTEM.Drawing LOCAL lnTitleHeight, lnSubTitleHeight, lnTitleColor STORE 0 TO lnTitleHeight, lnSubTitleHeight * Check if Title was assigned IF NOT EMPTY(This.Title.Caption) This.Title.Reset() This.Title._DrawString(0, This.Margin + This.MarginTop, This.ChartCanvas.Width, This.ChartCanvas.Height) lnTitleHeight = This.Title._height ENDIF * Check if SubTitle was assigned IF NOT EMPTY(This.SubTitle.Caption) This.SubTitle.Reset() This.SubTitle._DrawString(0, This.Margin + This.MarginTop + lnTitleHeight, This.ChartCanvas.Width, This.ChartCanvas.Height) lnSubTitleHeight = This.SubTitle._Height ENDIF This._TitleHeight = lnTitleHeight + lnSubTitleHeight ENDWITH RETURN ENDPROC PROCEDURE _preparevariables SELECT(This._DataCursor) This._HasNegatives = .F. LOCAL lnValue DO CASE CASE INLIST(This.ChartType, 9, 10, 14) && Stacked Bars or Stacked Area * Get the maximum value of the chart Local i, lnTotal, lnMaxValue, lnMinValue lnMaxValue = 0 Scan lnTotal = 0 For i = 1 To This.ChartsCount lnValue = This._GetValue(i) IF lnValue < 0 This._HasNegatives = .T. ENDIF lnTotal = lnTotal + lnValue Endfor If Recno() = 1 lnMinValue = lnTotal Else lnMinValue = Min(lnMinValue, lnTotal) Endif lnMaxValue = Max(lnMaxValue, lnTotal) Endscan Case This.SingleData Local lnMaxValue, lcField, lnMinValue lcField = (This._DataCursor) + ".nValue" + This._Str(This.ChartRow) Calculate Max (&lcField.) To lnMaxValue for not IsNull (&lcField.) Calculate Min (&lcField.) To lnMinValue for not IsNull (&lcField.) Calculate Sum( &lcField.) To lnSumValue for Nvl(&lcField. , 0) > 0 This.ChartSum = lnSumValue Otherwise * Get the maximum value of the chart Local lnMaxValue, lnMaxValue1, i, lcField, lnRealChartsCount, lnMinValue, lnMinValue1 lnMaxValue = 0 lnRealChartsCount = Iif(Inlist(This.ChartType, 1,2,7,12),1,This.ChartsCount) For i = 1 To lnRealChartsCount lcField = (This._DataCursor) + ".nValue" + This._Str(i) Calculate Max (&lcField.) To lnMaxValue1 for not IsNull (&lcField.) Calculate Min (&lcField.) To lnMinValue1 for not IsNull (&lcField.) IF lnMinValue1 < 0 This._HasNegatives = .T. ENDIF If i = 1 lnMaxValue = lnMaxValue1 lnMinValue = lnMinValue1 Else lnMaxValue = Max(lnMaxValue, lnMaxValue1) lnMinValue = Min(lnMinValue, lnMinValue1) Endif Endfor Endcase This._CalculateScale(lnMaxValue, lnMinValue) DIMENSION This._aShapes(This.ChartsCount,3) This._aShapes = "" IF NOT This._Using3D This._3D = This.Depth ENDIF RETURN ENDPROC PROCEDURE _preparedata LOCAL lcAlias, lcLegend, lcDetach, lcColor, lcSliceHidden, lcNumType, lcCast, lcCursor IF EMPTY(This._DataCursor) OR NOT USED(This._DataCursor) lcCursor = "FCharts_" + SYS(2015) This._DataCursor = lcCursor ELSE lcCursor = This._DataCursor ENDIF IF This.OldStyleProperties LOCAL luValue, n, lcN FOR n = 1 TO This.ChartsCount lcN = This._Str(n) luValue = EVALUATE("This.ChartType" + lcN) IF NOT EMPTY(luValue) This.Fields(n).ChartType = luValue ENDIF luValue = EVALUATE("This.FieldValue" + lcN) IF NOT EMPTY(luValue) This.Fields(n).FieldValue = luValue ENDIF luValue = EVALUATE("This.Legend" + lcN) IF NOT EMPTY(luValue) This.Fields(n).Legend = luValue ENDIF luValue = EVALUATE("This.Color" + lcN) IF NOT EMPTY(luValue) This.Fields(n).Color = luValue ENDIF luValue = EVALUATE("This.Shape" + lcN) IF NOT EMPTY(luValue) This.Fields(n).Shape = luValue ENDIF luValue = EVALUATE("This.ShowValuesOnShape" + lcN) This.Fields(n).ShowValuesOnShape = luValue IF NOT EMPTY(This.FieldxAxis) This.FieldAxis2 = This.FieldxAxis ENDIF ENDFOR ENDIF WITH This lcAlias = .SourceAlias lcValue1 = .Fields(1).FieldValue lcLegend = IIF(EMPTY(.FieldLegend), "SPACE(0)", .FieldLegend) lcDetach = IIF(EMPTY(.FieldDetachSlice), ".F.", .FieldDetachSlice) lcColor = IIF(EMPTY(.FieldColor) , "EVALUATE('00000000')", .FieldColor) lcSliceHidden = IIF(EMPTY(.FieldHideSlice), ".F.", .FieldHideSlice) lcAxis2 = IIF(EMPTY(.FieldAxis2), "SPACE(0)", .FieldAxis2) IF EMPTY(lcAlias) OR EMPTY(lcValue1) OR ("CC" <> (VARTYPE(lcAlias) + VARTYPE(lcValue1))) ERROR "Must specify properties SourceAlias and FieldValue" RETURN .F. ENDIF IF VARTYPE(EVALUATE(lcAlias + "." + lcValue1)) == "Y" && Currency This._ValueType = This._GetFieldType(lcAlias, lcValue1) This._ValueFormat = "Y" lcNumType = " AS " + This._ValueType + ")" lcCast = " CAST(" ELSE This._ValueFormat = "N" lcNumType = "" lcCast = "" ENDIF LOCAL n, lcN, lcSQL, lcNameZ, lcValueZ, lcField lcSQL = "" FOR n = 1 TO This.ChartsCount lcN = This._Str(N) lcField = This.Fields(n).FieldValue lcNameZ = lcCast + lcField + lcNumType + IIF(NOT EMPTY(lcCast), ") ", "") lcSQL = lcSQL + lcNameZ + " AS nValue" + lcN + ", " * The field property cannot be empty. ASSERT (NOT EMPTY(lcField)) MESSAGE "Property: Fields(" + lcN + ").FieldValue was NOT assigned" ENDFOR SELECT * FROM (.SourceAlias) INTO CURSOR FCharts_TempData READWRITE SELECT &lcSQL ; &lcLegend AS cLegend, ; &lcDetach AS lDetach, ; &lcColor AS nColor, ; &lcSliceHidden AS lSliceHidden, ; &lcAxis2 AS cAxis2 ; FROM FCharts_TempData ; INTO CURSOR &lcCursor READWRITE USE IN FCharts_TempData ._nRecords = _Tally * Empty cursor stop processing IF ._nRecords = 0 RETURN .F. ENDIF SELECT (lcCursor) * Prepare the array of points DIMENSION ._aPoints(._nRecords ,3) && X, Y, Value INDEX ON RECNO() TAG Revert DESCENDING SET INDEX TO *!* IF NOT EMPTY(This.FontName) *!* This.SetAll("FontName", This.FontName, "_Legend") *!* ENDIF This._SkipPrepareData = .F. This._nMouseonShape = 0 ENDWITH ENDPROC PROCEDURE _getfieldtype LPARAMETERS tcAlias, tcField, tlMask LOCAL gnFieldcount, lnCount, lcCurrField, lnInteger, lnDecimals, lcType gnFieldcount = AFIELDS(gaMyArray, tcAlias) && Create array. FOR lnCount = 1 TO gnFieldcount lcCurrField = ALLTRIM(gaMyArray(lnCount,1)) && Display field names. IF UPPER(lcCurrField) = ALLTRIM(UPPER(tcField)) lnInteger = gaMyArray(lnCount,3) lnDecimals = gaMyArray(lnCount,4) IF tlMask && Return the mask for the format property lcType = REPLICATE("9", lnInteger) + "." + REPLICATE("9", lnDecimals) ELSE && Return the field type - eg N(8,2) lcType = "N(" + ALLTRIM(STR(lnInteger)) + "," + ALLTRIM(STR(lnDecimals)) ENDIF EXIT ENDIF ENDFOR RETURN lcType *!* Column number Field info Data type *!* 1 *!* Field name *!* Character *!* *!* 2 *!* Field type: *!* C = Character *!* Y = Currency *!* D = Date *!* T = DateTime *!* B = Double *!* F = Float *!* G = General *!* I = Integer *!* L = Logical *!* M = Memo *!* N = Numeric *!* Q = Varbinary *!* V = Varchar and Varchar (Binary) *!* W = Blob Character *!* *!* 3 *!* Field width *!* Numeric *!* *!* 4 *!* Decimal places *!* Numeric ENDPROC PROCEDURE _drawstackedareachart SELECT(This._DataCursor) LOCAL lnMargin, lnWidth, lnHeight, lnValue, lnRecs LOCAL lnBetween, n, i, lnMaxValue, lnPointHeight, ln3D, lnYBase, lnTipPixels, x1, y1 LOCAL lnTipPixels LOCAL llMultiChart llMultiChart = .F. lnTipPixels = This._TipPixels lnMargin = This.Margin m.ln3D = This._3D lnRecs = This._nRecords * Calculate the maximum width of the chart lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - This._3d m.lnWidth = This.ChartCanvas.Width - This._YAxisWidth - This._LeftOffset - ln3D - This._RightOffset IF m.lnWidth < 10 OR m.lnHeight < 10 OR This._nRecords < 2 RETURN ENDIF LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx * Get the maximum value of the chart lnMaxValue = This._ScaleRange * Get the lower Y point lnYBase = This.ChartCanvas.Height - This._xAxisHeight * If MultiChart mode, the chart needs to start half a position further IF llMultiChart lnBetween = m.lnWidth / (lnRecs) ELSE lnBetween = m.lnWidth / (lnRecs - 1) ENDIF * Prepare array of points * All the main points will be defined here LOCAL laPointsX(lnRecs) LOCAL laPointsY(lnRecs, This.ChartsCount) LOCAL laPointsI(lnRecs, This.ChartsCount) && Points Index LOCAL lnPrevPoint SCAN n = RECNO() lnPrevPoint = 0 x1 = This._YAxisWidth + (lnBetween * (n - 1)) + IIF(llMultiChart, (lnBetween / 2), 0) + This._LeftOffset && lnMargin laPointsX(n) = x1 This._aPoints(n,1) = laPointsX(n) FOR i = 1 TO This.ChartsCount This._ChartIndex = i lnValue = This._GetValue(i) lnPointHeight = lnValue / lnMaxValue * lnHeight y1 = lnYBase - (lnPointHeight + lnPrevPoint) laPointsY(n, i) = y1 lnPrevPoint = lnPointHeight + lnPrevPoint This._UpdateCoordinates("Rect", X1 - lnTipPixels/2, Y1 - lnTipPixels/2, lnTipPixels, lnTipPixels, lnValue) laPointsI(n,i) = This._nIndex ENDFOR ENDSCAN * Draw the vertical line only for the first line This._DrawVerticalLineBack() LOCAL laMainPolygon(lnRecs * 2) LOCAL laLinePolygon(4) LOCAL laSidePolygon(4) LOCAL lnCompl LOCAL loBrush as xfcBrush IF This.BrushType = 1 m.loBrush = "This._o3dbrush" ELSE m.loBrush = "This._oMainBrush" ENDIF WITH _Screen.System.Drawing FOR i = 1 TO This.ChartsCount * Fill the main polygon FOR n = 1 TO lnRecs lnCompl = (lnRecs * 2) - n + 1 laMainPolygon(n) = .Point.New(laPointsX(n), laPointsY(n, i)) IF i = 1 laMainPolygon(lnCompl) = .Point.New(laPointsX(n), lnYBase) ELSE laMainPolygon(lnCompl) = .Point.New(laPointsX(n), laPointsY(n, i-1)) ENDIF ENDFOR This._PrepareBrushes(0,0,This.ChartCanvas.Width, This.ChartCanvas.Height, .F., i) m.loGfx.FillPolygon(This._oMainBrush, @laMainPolygon) m.loGfx.DrawPolygon(This._oBorderPen, @laMainPolygon) IF m.ln3D > 0 * Draw the 3D line above the main polygon FOR n = 1 TO lnRecs - 1 laLinePolygon(1) = laMainPolygon(n) laLinePolygon(2) = .Point.New(laMainPolygon(n).X + m.ln3D, laMainPolygon(n).Y - m.ln3D) laLinePolygon(3) = .Point.New(laMainPolygon(n+1).X + m.ln3D, laMainPolygon(n+1).Y - m.ln3D) laLinePolygon(4) = laMainPolygon(n+1) This._PrepareBrushes(laMainPolygon(n).X, laMainPolygon(n).Y - m.ln3D, ; laMainPolygon(n+1).X + m.ln3D - laMainPolygon(n).X, ; MAX(2,ABS(laMainPolygon(n).Y - laMainPolygon(n+1).Y)), .F., i) m.loGfx.FillPolygon(EVALUATE(m.loBrush), @laLinePolygon) m.loGfx.DrawPolygon(This._oBorderPen, @laLinePolygon) ENDFOR * Fill the right-most external side of the area * Draw the last 3D polygon, to fill the Area laSidePolygon(1) = laLinePolygon(3) laSidePolygon(2) = laLinePolygon(4) laSidePolygon(3) = laMainPolygon(lnRecs + 1) laSidePolygon(4) = .Point.New(laSidePolygon(3).X + m.ln3D, laSidePolygon(3).Y - m.ln3D) This._PrepareBrushes(laSidePolygon(2).X, laSidePolygon(1).Y, ; m.ln3D, 2, .F., i) m.loGfx.FillPolygon(EVALUATE(m.loBrush), @laSidePolygon) m.loGfx.DrawPolygon(This._oBorderPen, @laSidePolygon) ENDIF ENDFOR IF This.ShowValuesOnShapes LOCAL lnIndex FOR i = 1 TO This.ChartsCount IF This.Fields(i).ShowValuesOnShape *** Draw Legends above the points FOR n = 1 TO lnRecs x1 = laPointsX(n) y1 = laPointsY(n, i) lnIndex = laPointsI(n,i) This._DrawShapeLegend(x1, y1, lnIndex) ENDFOR ENDIF ENDFOR ENDIF This._DrawXAxisLegend() ENDWITH ENDPROC PROCEDURE _drawslice LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue IF m.tnWidth <=0 OR m.tnHeight <=0 RETURN ENDIF This._AdjustStartSweep(@tnStart, @tnSweep, m.tnWidth, m.tnHeight) This._UpdateCoordinates("Pie", m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue, m.tnStart, m.tnSweep) LOCAL lnXBrush, lnYBrush IF This.PieEnhancedDrawing lnXBrush = m.tnX lnYBrush = m.tnY ELSE lnXBrush = 0 lnYBrush = 0 ENDIF This._PrepareBrushes(lnXBrush, lnYBrush, m.tnWidth, m.tnHeight, .F., RECNO()) LOCAL loPen as xfcPen m.loPen = This._oBorderPen LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL loMainBrush as xfcBrush m.loMainBrush = This._oMainBrush LOCAL lo3dBrush as xfcBrush lo3dBrush = This._o3DBrush LOCAL lnFinalAngle lnFinalAngle = m.tnStart + m.tnSweep IF lnFinalAngle > 360 lnFinalAngle = lnFinalAngle - 360 ENDIF LOCAL ln3D m.ln3D = This._3D WITH _Screen.System.Drawing IF This.PieEnhancedDrawing * Draw the 3D Slice using the GraphicsPath class IF ln3D > 0 AND (This.Shadow = .F.) x = m.tnX y = m.tnY w = m.tnWidth h = m.tnHeight * Draw the bottom slice m.loGfx.FillPie(m.loMainBrush, x, y + m.ln3D, w, h, m.tnStart, m.tnSweep) m.loGfx.DrawPie(m.loPen, x, y, w, h, m.tnStart, m.tnSweep) * Get the start point LOCAL loPath as xfcGraphicsPath LOCAL loPoint1 as xfcPoint, loPoint2 as xfcPoint loPath = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New() loPath.AddPie(x,y,w,h, m.tnStart, 0.0001) loPoint1 = loPath.GetLastpoint() loPath.AddPie(x,y,w,h, m.tnStart, m.tnSweep) loPoint2 = loPath.GetLastpoint() * Draw side Polygon 1 LOCAL laPointsA(4) LOCAL lnCenterX, lnCenterY lnCenterX = x + (w/2) lnCenterY = y + (h/2) laPointsA(1) = .Point.New(lnCenterX, lnCenterY) laPointsA(2) = .Point.New(lnCenterX, lnCenterY + m.ln3D) laPointsA(3) = .Point.New(loPoint1.x, loPoint1.Y + m.ln3D) laPointsA(4) = loPoint1 * Draw side Polygon 2 LOCAL laPointsB(4) laPointsB(1) = laPointsA(1) laPointsB(2) = laPointsA(2) laPointsB(3) = .Point.New(loPoint2.x, loPoint2.Y + m.ln3D) laPointsB(4) = loPoint2 IF m.tnStart <= 90 OR m.tnStart > 270 m.loGfx.DrawPolygon(m.loPen, @laPointsA) m.loGfx.FillPolygon(lo3dBrush, @laPointsA) ENDIF IF lnFinalAngle < 270 AND lnFinalAngle > 90 m.loGfx.FillPolygon(lo3dBrush, @laPointsB) m.loGfx.DrawPolygon(m.loPen, @laPointsB) ENDIF * Draw the external 3d Face LOCAL loPath2 as xfcGraphicsPath loPath2 = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New() loPath2.FillMode = _Screen.System.Drawing.Drawing2D.FILLMODE.winding loPath2.StartFigure() LOCAL lnAdjStart, lnAdjSweep lnAdjStart = m.tnStart lnAdjSweep = m.tnSweep IF m.tnStart >= 270 AND ; m.tnStart < 360 AND ; BETWEEN(lnFinalAngle, 0, 270) llAdjRight = .T. * Create a new partial path for the 1st part LOCAL loPath3 as xfcGraphicsPath loPath3 = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New() loPath3.StartFigure() loPath3.AddArc(x,y,w,h, m.tnStart, 360 - m.tnStart) loPath3.Reverse() loPath3.AddLine(loPoint1.x, loPoint1.Y, loPoint1.x, loPoint1.Y + m.ln3D) loPath3.AddArc(x,y + m.ln3D, w, h, m.tnStart, 360 - m.tnStart) loPath3.AddLine(m.tnX + m.tnWidth, lnCenterY + m.ln3D, m.tnX + m.tnWidth, lnCenterY) m.loGfx.FillPath(lo3dBrush, loPath3) m.loGfx.DrawPath(m.loPen, loPath3) loPoint1 = .Point.New(m.tnX + m.tnWidth, lnCenterY) lnAdjStart = 0 lnAdjSweep = m.tnSweep - (360 - m.tnStart) ENDIF IF (m.tnStart < 180 AND lnFinalAngle > 180) OR ; (m.tnStart >= 270 AND lnFinalAngle > 180 AND lnFinalAngle < 270.01) * IF (m.tnStart < 180 AND lnFinalAngle > 180) OR ; (m.tnStart >= 270 AND lnFinalAngle > 180 AND lnFinalAngle < 269.9999) llAdjLeft = .T. * Create a new partial path for the 1st part LOCAL loPath4 as xfcGraphicsPath loPath4 = _Screen.System.Drawing.Drawing2D.GraphicsPath.New() loPath4.StartFigure() IF m.tnStart >= 270 lnAdjStart = 0 lnAdjSweep = 180 ELSE lnAdjStart = m.tnStart lnAdjSweep = 180 - m.tnStart ENDIF loPath4.AddArc(x,y,w,h, lnAdjStart, lnAdjSweep) loPath4.Reverse() loPath4.AddLine(loPoint1.x, loPoint1.Y, loPoint1.x, loPoint1.Y + m.ln3D) loPath4.AddArc(x,y + m.ln3D, w, h, lnAdjStart, lnAdjSweep) loPath4.AddLine(m.tnX, lnCenterY + m.ln3D, m.tnX, lnCenterY) m.loGfx.FillPath(lo3DBrush, loPath4) m.loGfx.DrawPath(m.loPen, loPath4) loPoint1 = .Point.New(m.tnX, lnCenterY) lnAdjStart = 180 lnAdjSweep = lnFinalAngle - 180 ENDIF loPath2.AddArc(x,y,w,h, lnAdjStart, lnAdjSweep) loPath2.Reverse() loPath2.AddLine(loPoint1.x, loPoint1.Y, loPoint1.x, loPoint1.Y + m.ln3D) loPath2.AddArc(x,y + m.ln3D, w, h, lnAdjStart, lnAdjSweep) loPath2.AddLine(loPoint2.x, loPoint2.Y + m.ln3D, loPoint2.x, loPoint2.Y) m.loGfx.FillPath(lo3dBrush, loPath2) m.loGfx.DrawPath(m.loPen, loPath2) IF m.tnStart > 90 AND m.tnStart < 270 m.loGfx.DrawPolygon(m.loPen, @laPointsA) m.loGfx.FillPolygon(lo3dBrush, @laPointsA) ENDIF IF lnFinalAngle > 270 OR lnFinalAngle <= 90 m.loGfx.FillPolygon(lo3dBrush, @laPointsB) m.loGfx.DrawPolygon(m.loPen, @laPointsB) ENDIF * Draw the top slice m.loGfx.FillPie(m.loMainBrush, x, y, w, h, m.tnStart, m.tnSweep) m.loGfx.DrawPie(m.loPen, x, y, w, h, m.tnStart, m.tnSweep) ELSE * Draw shadow IF This.Shadow LOCAL loShadowBrush as xfcSolidBrush m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel,128,128,128)) m.loGfx.FillPie(loShadowBrush, m.tnX, m.tnY + ln3d, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) ENDIF * Draw the main slice m.loGfx.FillPie(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) m.loGfx.DrawPie(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) ENDIF ELSE *** This is the old behavior for Pie slices LOCAL loBmp as xfcBitmap loBmp = poTempBmp LOCAL loTempGfx as xfcGraphics loTempGfx = .Graphics.FromImage(loBmp) loTempGfx.Clear(.Color.Transparent) loTempGfx.SmoothingMode = .Drawing2D.SmoothingMode.AntiAlias * Draw the 3D Slice using the Hatch Brush IF ln3D > 0 LOCAL y1, n y1 = m.ln3D * Draw the contour of the 3D Slice loTempGfx.FillPie(m.loMainBrush, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) loTempGfx.DrawPie(m.loPen, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) FOR n = 1 TO m.ln3D y1 = y1 - 1 * Draw the Normal Slice using the Solid Brush loTempGfx.FillPie(lo3dBrush, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) && draw the slice IF m.tnStart > 90 loTempGfx.DrawArc(m.loPen, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, 0.25) ENDIF loTempGfx.DrawArc(m.loPen, 0, y1, m.tnWidth, m.tnHeight, m.tnStart + m.tnSweep - .25, 0.35) ENDFOR loTempGfx.FillPie(m.loMainBrush, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) && draw the slice * Draw border line from center of pie LOCAL x, y x = (m.tnWidth / 2) y = (m.tnHeight / 2) + y1 IF m.tnStart > 90 loTempGfx.DrawLine(m.loPen, x, Y, x, Y + m.ln3D) ENDIF loTempGfx.DrawPie(m.loPen, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) loTempGfx.FillPie(m.loMainBrush, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) loTempGfx.DrawPie(m.loPen, 0, y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) * Draw the Image loBmp.ApplyColorMatrix(poClrMatrix) m.loGfx.DrawImage(loBmp, m.tnX, m.tnY) ELSE m.loGfx.FillPie(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) m.loGfx.DrawPie(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) ENDIF ENDIF ENDWITH RETURN ENDPROC PROCEDURE _drawtrianglebar LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue This._PrepareBrushes(tnX, tnY, tnWidth, tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex)) LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL lnAlpha, lnOrigAlpha lnOrigAlpha = This.AlphaChannel lnAlpha = MIN(255, (This.AlphaChannel * 1.25)) This.AlphaChannel = lnAlpha LOCAL loTopBrush as xfcBrush LOCAL loBotBrush as xfcBrush WITH _Screen.System.Drawing LOCAL lnColor, ln3D LOCAL loPen as xfcPen m.lnColor = This.ChangeColor(This._nColor, + 60) m.ln3D = MAX(This._3d, 1) m.loPen = .Pen.New(.Color.FromRGB(lnColor)) DO CASE CASE This.BrushType = 1 && SolidColors loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20))) loBotBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor)) loLeftBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20))) loRightBrush = This._oMainBrush CASE This.BrushType = 2 && Gradient loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor)) loBotBrush = loTopBrush loLeftBrush = loTopBrush loRightBrush = This._oMainBrush OTHERWISE This._PrepareBrushes(tnX, tnY, tnWidth, tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex)) loTopBrush = This._oMainBrush loBotBrush = loTopBrush loLeftBrush = loTopBrush loRightBrush = This._oMainBrush ENDCASE This.AlphaChannel = lnOrigAlpha IF This._Orientation = 1 && Vertical LOCAL lnCenterX, x0, x1 x0 = tnX + m.ln3D x1 = x0 + tnWidth lnCenterX = x0 + (tnWidth / 2) * Prepare the top triangle LOCAL laTopPoints(3) laTopPoints(1) = .Point.New(lnCenterX, tnY) laTopPoints(2) = .Point.New(x0, tnY - m.ln3D) laTopPoints(3) = .Point.New(x1, tnY - m.ln3D) m.loGfx.DrawPolygon(m.loPen, @laTopPoints) m.loGfx.FillPolygon(loTopBrush, @laTopPoints) * Prepare the bottom triangle LOCAL yBott yBott = tnY + tnHeight LOCAL laBotPoints(3) laBotPoints(1) = .Point.New(lnCenterX, yBott) laBotPoints(2) = .Point.New(x0, yBott - m.ln3D) laBotPoints(3) = .Point.New(x1, yBott - m.ln3D) m.loGfx.DrawPolygon(m.loPen, @laBotPoints) m.loGfx.FillPolygon(loBotBrush, @laBotPoints) * Prepare the LEFT face of the 3d triangle (polygon) LOCAL laLeftPoints(4) laLeftPoints(1) = laTopPoints(1) laLeftPoints(2) = laTopPoints(2) laLeftPoints(3) = laBotPoints(2) laLeftPoints(4) = laBotPoints(1) m.loGfx.DrawPolygon(m.loPen, @laLeftPoints) m.loGfx.FillPolygon(loLeftBrush, @laLeftPoints) * Prepare the RIGHT face of the 3d triangle (polygon) LOCAL laRightPoints(4) laRightPoints(1) = laTopPoints(1) laRightPoints(2) = laTopPoints(3) laRightPoints(3) = laBotPoints(3) laRightPoints(4) = laBotPoints(1) m.loGfx.DrawPolygon(m.loPen, @laRightPoints) m.loGfx.FillPolygon(loRightBrush, @laRightPoints) ELSE && Horizontal LOCAL lnCenterY, y0, y1, ln3D m.ln3D = MAX(This._3d, 1) x0 = tnX x1 = x0 + tnWidth lnCenterY = tnY + (tnHeight / 2) * Prepare the right (top) triangle LOCAL laRightPoints(3) laRightPoints(1) = .Point.New(X1, lnCenterY) laRightPoints(2) = .Point.New(X1 + ln3d, tnY) laRightPoints(3) = .Point.New(X1 + ln3d, tnY + tnHeight) m.loGfx.DrawPolygon(m.loPen, @laRightPoints) m.loGfx.FillPolygon(loTopBrush, @laRightPoints) * Prepare the Left triangle LOCAL laLeftPoints(3) laLeftPoints(1) = .Point.New(X0, lnCenterY) laLeftPoints(2) = .Point.New(X0 + ln3d, tnY) laLeftPoints(3) = .Point.New(X0 + ln3d, tnY + tnHeight) m.loGfx.DrawPolygon(m.loPen, @laLeftPoints) m.loGfx.FillPolygon(loBotBrush, @laLeftPoints) * Prepare the Top face of the 3d triangle (polygon) LOCAL laTopPoints(4) laTopPoints(1) = laLeftPoints(1) laTopPoints(2) = laLeftPoints(2) laTopPoints(3) = laRightPoints(2) laTopPoints(4) = laRightPoints(1) m.loGfx.DrawPolygon(m.loPen, @laTopPoints) m.loGfx.FillPolygon(loLeftBrush, @laTopPoints) * Prepare the BOTTOM face of the 3d triangle (polygon) LOCAL laBotPoints(4) laBotPoints(1) = laLeftPoints(1) laBotPoints(2) = laLeftPoints(3) laBotPoints(3) = laRightPoints(3) laBotPoints(4) = laRightPoints(1) m.loGfx.DrawPolygon(m.loPen, @laBotPoints) m.loGfx.FillPolygon(loRightBrush, @laBotPoints) ENDIF * Draw the Values inside the shapes This._DrawLegendinBar(X0, tnY, tnWidth, tnHeight, tnValue) ENDWITH RETURN ENDPROC PROCEDURE _drawverticallineback IF This._Orientation = 2 RETURN ENDIF LOCAL n, x0, x1, lnLineColor, lnRectColor, lnDashValue LOCAL loBackPen as xfcPen LOCAL loBackBrush as xfcSolidBrush LOCAL llDrawBack llDrawBack = .T. WITH _Screen.System.Drawing IF This.BrushType = 3 && Monochrome lnRectColor = RGB(255,255,255) && White lnLineColor = 0 && Black ELSE lnRectColor = This.ScaleBackColor lnLineColor = This.ScaleLineColor ENDIF loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, lnRectColor)) loBackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, lnLineColor),This.ScaleBackLinesWidth - 1) lnDashValue = This.ScaleBackLinesDash IF lnDashValue > 0 loBackPen.DashStyle = lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash ENDIF FOR n = 1 TO This._nRecords - 1 x0 = This._aPoints(n,1) + This._3d x1 = This._aPoints(n+1,1) + This._3d IF llDrawBack IF INLIST(This.ScaleBackBarsType, 2, 3) && Vertical, Both This.oGfx.FillRectangle(loBackBrush, x0, This._ChartY1, x1 - x0, This._ChartY0 - This._ChartY1) ENDIF ENDIF IF INLIST(This.ScaleBackLinesType, 2, 3) && Vertical, Both This.oGfx.DrawLine(loBackPen, x0, This._ChartY0, x0, This._ChartY1) This.oGfx.DrawLine(loBackPen, x1, This._ChartY0, x1, This._ChartY1) ENDIF llDrawBack = NOT llDrawBack ENDFOR ENDWITH ENDPROC PROCEDURE _drawyaxislegend IF EMPTY(This.FieldAxis2) RETURN ENDIF SELECT(This._DataCursor) * Draw Legends on the Y Axis LOCAL x1, y1, lcText y1 = This.ChartCanvas.Height - This._XAxisHeight + 6 This.AxisLegend2._Setup() * Save original Alignment settings LOCAL lnOrigAlignment lnOrigAlignment = This.AxisLegend2.Alignment * Force Right alignment This.AxisLegend2.Alignment = 1 && Right SCAN * Measure the legend width lcText = cAxis2 This.AxisLegend2.Caption = lcText x1 = This._Yaxiswidth + This._LeftOffset - 6 y1 = This._aPoints(RECNO(),2) - This.AxisLegend2._Height / 2 This.AxisLegend2._DrawString(x1, y1) ENDSCAN * Restore original Alignment settings This.AxisLegend2.Alignment = lnOrigAlignment * There's no need to continue drawing scales if the Axis is not present IF NOT This.ShowAxis RETURN ENDIF * Continue drawing the scales and background lines or bars LOCAL ln3D m.ln3D = This._3d LOCAL lnRectColor, lnLineColor IF This.BrushType = 3 && Monochrome lnRectColor = RGB(255,255,255) && White lnLineColor = 0 && Black ELSE lnRectColor = This.ScaleBackColor lnLineColor = This.ScaleLineColor ENDIF * A thin black pen to draw the ticks in the Y Axis LOCAL loBlackPen as xfcPen loBlackPen = This._oBlackPen LOCAL loBackBrush as xfcSolidBrush LOCAL loBackPen as xfcPen LOCAL loPen as xfcPen LOCAL lnDashValue LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx WITH _Screen.System.Drawing loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, lnRectColor)) loBackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, lnLineColor),This.ScaleBackLinesWidth - 1) lnDashValue = This.ScaleBackLinesDash IF lnDashValue > 0 loBackPen.DashStyle = lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash ENDIF LOCAL lnAxisBorderColor lnAxisBorderColor = This.ChangeColor(This.AxisColor, -30) LOCAL loAxisBorderColor as xfcColor loAxisBorderColor = .Color.FromARGB(This.AxisAlpha, lnAxisBorderColor) m.loPen = .Pen.New(loAxisBorderColor, 1) ENDWITH lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D lnXWidth = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D LOCAL x0, y0, n, y, llDrawBack llDrawBack = .T. y0 = This.ChartCanvas.Height - This._XAxisHeight x0 = This._yAxisWidth + This._LeftOffset LOCAL lnOneScale IF This._nRecords = 1 lnOneScale = 0 ELSE lnOneScale = This._aPoints(2,2) - This._aPoints(1,2) ENDIF FOR n = 1 TO This._nRecords x1 = This._yAxisWidth + This._LeftOffset y1 = This._aPoints(n,2) y = y1 * Draw the tic mark IF This.ShowAxis2Tics m.loGfx.DrawLine(loBlackPen, x0 - 0, y, x0 - This.TicLength, y) ENDIF IF n = This._nRecords EXIT ENDIF m.loGfx.DrawLine(m.loPen, x0, y, x0 + m.ln3D, y - m.ln3D) * Draw the scale background LOCAL x1Scale, y1Scale x1Scale = x0 + m.ln3D y1Scale = y - m.ln3D IF llDrawBack IF INLIST(This.ScaleBackBarsType, 1, 3) && Horizontal, Both m.loGfx.FillRectangle(loBackBrush, x1Scale, y1Scale, lnxWidth, lnOneScale) ENDIF ENDIF IF INLIST(This.ScaleBackLinesType, 1, 3) && Horizontal, Both m.loGfx.DrawLine(loBackPen, x1Scale, y1Scale, x1Scale + lnxWidth, y1Scale) m.loGfx.DrawLine(loBackPen, x1Scale, y1Scale + lnOneScale, x1Scale + lnxWidth, y1Scale + lnOneScale) ENDIF llDrawBack = NOT llDrawBack ENDFOR RETURN ENDPROC PROCEDURE _drawxaxislegend LPARAMETERS tn3D IF EMPTY(This.FieldAxis2) RETURN ENDIF IF VARTYPE(m.tn3D) = "N" m.lnAdjust = m.tn3D ELSE m.lnAdjust = 0 ENDIF * Draw Legends on the X Axis LOCAL loSize as xfcSize LOCAL y0, x0, x1, y1, lcText, lnXPoint m.Y0 = This.ChartCanvas.Height - This._XAxisHeight m.y1 = y0 + 6 This.AxisLegend2._Setup() SCAN * Measure the legend width m.lcText = cAxis2 This.AxisLegend2.Caption = m.lcText m.X0 = This._aPoints(RECNO(),1) IF VARTYPE(m.X0) <> "N" LOOP ENDIF * Draw the tic mark IF This.ShowAxis2Tics This.oGfx.DrawLine(This._oBlackPen, m.x0, m.y0, m.x0, m.y0 + This.TicLength) ENDIF m.x1 = m.X0 + m.lnAdjust This.AxisLegend2._DrawString(m.x1, m.y1) ENDSCAN ENDPROC PROCEDURE _beforedraw TRY * Store the current selected table / cursor LOCAL lnSelect m.lnSelect = SELECT() * Initial Settings LOCAL loChart as FoxCharts OF FoxCharts.Vcx m.loChart = This m.loChart.oGfx = This.ChartCanvas.oGfx m.loChart.oBmp = This.ChartCanvas.oBmp * Update quality settings This._UpdateQuality() * Check if the FoxCharts object was created * This is for the case when the user does not create the chart cursor before the form is initialized. IF EMPTY(This.SourceAlias) m.loChart._PrepareBackGround() EXIT ENDIF * Check for the minimum dimensions IF This.ChartCanvas.Width < 30 OR ; This.ChartCanvas.Height < 30 EXIT ENDIF m.loChart._CheckParams() m.loChart._UpdateChartInfo() IF NOT m.loChart._SkipPrepareData OR NOT USED(This._DataCursor) * Check if empty cursor IF NOT m.loChart._PrepareData() m.loChart._PrepareBackground() m.loChart._PrepareTitle() EXIT ENDIF m.loChart._PrepareVariables() m.loChart._PrepareColors() ELSE SELECT (This._DataCursor) GO TOP ENDIF * m.loChart._PrepareColors() m.loChart._PrepareBackground() m.loChart._PrepareTitle() m.loChart._PrepareSideLegend() *m.loChart._PrepareVariables() && m.loChart._PrepareLegend() m.loChart._DrawAxis() m.loChart._PrepareTooltip IF m.loChart.ShowValuesOnShapes m.loChart.ShapeLegend._Setup() ENDIF LOCAL lnChartType m.lnChartType = m.loChart.ChartType IF INLIST(m.lnChartType,6,9,14,11,10) AND This._HasNegatives MESSAGEBOX("The selected Chart type does not support negative values" + CHR(13) + "The chart will not be drawn", 48, "Invalid Data") ELSE DO CASE *!* Chart Type Values: *!* 1 = Pie ; 2 = Donut ; *!* 3 = Unspecified ; *!* 4 = Point ; 5 = Line ; 6 = Area ; *!* 7 = Simple Bar ; 8 = Multiple Bars ; 9 = Stacked Bars ; 11 = 3D Bars *!* 10 = Stacked Area *!* 12 = Horizontal Bars ; 13 = Horizontal multiple bars ; 14 = Horizontal Stacked Bars CASE This._GeneralType = "Pie" && Pie or Donut Chart m.loChart._DrawPieChart() CASE This._GeneralType = "Bar" && Bar Chart m.loChart._DrawBarChart() CASE INLIST(m.lnChartType, 4, 5, 6) && Line or Area Chart m.loChart._DrawLineChart() CASE INLIST(m.lnChartType, 10) && Stacked Area Chart m.loChart._DrawStackedAreaChart() ENDCASE ENDIF m.loChart._DrawSideLegends() m.loChart.AfterChart() m.loChart._FirstActivate = .F. m.loChart._SkipPrepareData = .F. m.loChart._yAxisWidth = 0 * Restore the original selected alias SELECT (m.lnSelect) This._GetRelativePositions() CATCH TO loException IF This.Debug * Send the error to a file LOCAL lcVersion, lcError, lcErrFile, lcCRLF, lcLine lcCRLF = CHR(13) + CHR(10) m.lcLine = lcCRLF + REPLICATE("=",60) + lcCRLF m.lcErrFile = "FoxCharts.log" m.lcError = "FoxCharts Error" + ; m.lcLine + ; TRANSFORM(DATETIME()) + m.lcLine + ; [Error: ] + STR(m.loException.ERRORNO)+ lcCRLF + ; [Line : ] + STR(m.loException.LINENO) + lcCRLF + ; [Message: ] + m.loException.MESSAGE + lcCRLF + ; [Procedure: ] + m.loException.PROCEDURE + lcCRLF + ; [Details: ] + m.loException.DETAILS + lcCRLF + ; [StackLevel: ] + STR(m.loException.STACKLEVEL) + lcCRLF + ; [LineContents: ] + m.loException.LINECONTENTS + lcCRLF + ; [UserValue: ] + m.loException.USERVALUE + m.lcLine + lcCRLF * Code from Christof Wollenhaupt LOCAL lcDir, lcMemory, lcStatus m.lcDir = ADDBS(GETENV("TEMP")) IF FILE(m.lcDir+"mem.txt") ERASE (m.lcDir+"mem.txt") ENDIF LIST MEMORY LIKE * TO (m.lcDir+"mem.txt") NOCONSOLE IF FILE(m.lcDir+"List_status.txt") ERASE (m.lcDir+"List_status.txt") ENDIF LIST STATUS TO (m.lcDir+"list_status.txt") NOCONSOLE m.lcMemory = FILETOSTR(m.lcDir+"mem.txt") m.lcStatus = FILETOSTR(m.lcDir+"List_Status.txt") ERASE (m.lcDir+"mem.txt") ERASE (m.lcDir+"List_status.txt") *------------------------------------------------------ * Assemble the calling hierarchy *------------------------------------------------------ LOCAL lcHierarchy, lnLevel, lcProcedure, laStack[1] m.lcHierarchy = "PROCEDURE HIERARCHY" + m.lcLine FOR lnLevel = ASTACKINFO(laStack)-1 TO 1 STEP -1 m.lcProcedure = SUBSTR(SYS(16,m.lnLevel),AT(" ",; SYS(16,m.lnLevel),1)+1) m.lcHierarchy = m.lcHierarchy + ; " " + PROPER(ALLTRIM(LEFT(m.lcProcedure,; AT(" ",m.lcProcedure)))) + " in " + ; JUSTSTEM(SUBSTR(SYS(16,m.lnLevel),; AT(" ",SYS(16,m.lnLevel),2)+1)) + ; ", "+TRANSFORM(laStack[m.lnLevel,5]) + ; CHR(13)+CHR(10) ENDFOR * GdiPlusX version check LOCAL lnVersion lnVersion = 0 IF pemstatus(_Screen.System, "Version", 5) lnVersion = _Screen.System.Version ENDIF m.lcVersion = "Visual FoxPro " + TRANSFORM(VERSION(4)) + lcCRLF + ; "System: " + TRANSFORM(OS(1)) + " - " + TRANSFORM(OS(7)) + lcCRLF + ; "GdiPlusX Version: " + TRANSFORM(m.lnVersion) + lcCRLF + ; "FoxCharts Version: #" + TRANSFORM(This.Version) + " - " + TRANSFORM(This.VersionA) + ; m.lcLine + lcCRLF * Retrieve Chart properties LOCAL lcChartProps TRY m.lcChartProps = This.GetChartProperties() m.lcChartProps = STRTRAN(m.lcChartProps, CHR(13), lcCRLF) CATCH m.lcChartProps = "Not Available" ENDTRY m.lcChartProps = "Chart Properties" + lcCRLF + m.lcLine + lcCRLF + m.lcChartProps IF FILE(m.lcErrFile) ERASE (m.lcErrFile) ENDIF * Save error file to disk STRTOFILE(m.lcVersion + m.lcError + m.lcLine + ; m.lcChartProps + m.lcLine + ; m.lcHierarchy + m.lcLine + m.lcMemory + m.lcLine + m.lcStatus, m.lcErrFile) MESSAGEBOX("A Log file containing info about this error and your environment details was created: " + lcCRLF + lcCRLF + ; FULLPATH(lcErrFile) + lcCRLF + lcCRLF +; "Please send it to: vfpimaging@hotmail.com to help us fixing it." + lcCRLF + lcCRLF + ; lcError + lcCRLF + lcCRLF + ; "Sorry for the inconvenience", 16,"FoxCharts Error") ELSE THROW m.loException ENDIF ENDTRY RETURN ENDPROC PROCEDURE scalelinecolor_access RETURN This._GetRGB(This.ScaleLineColor) ENDPROC PROCEDURE _drawaxis IF (NOT This.ShowAxis) OR (NOT This._AllowAxis) IF This._Orientation = 1 && Vertical This._yAxisWidth = 0 ELSE && Horizontal This._yAxisWidth = 0 + This._ScaleW ENDIF This._XAxisHeight = This._XAxisHeight - This.XAxis._Height RETURN ENDIF LOCAL lnTickWidth m.lnTickWidth = 4 LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx WITH _Screen.System.Drawing * Determining Colors, Brushes and Pens LOCAL lnAxisColor, lnAxisBorderColor IF This.BrushType = 3 && Monochrome m.lnAxisColor = RGB(255,255,255) && White m.lnAxisBorderColor = 0 && Black ELSE m.lnAxisColor = This.AxisColor m.lnAxisBorderColor = This.ChangeColor(m.lnAxisColor, -30) ENDIF LOCAL loAxisMainColor as xfcColor LOCAL loAxisBorderColor as xfcColor loAxisMainColor = .Color.FromARGB(This.AxisAlpha, m.lnAxisColor) loAxisBorderColor = .Color.FromARGB(This.AxisAlpha, m.lnAxisBorderColor) LOCAL loPen as xfcPen m.loPen = .Pen.New(loAxisBorderColor, 1) LOCAL loBrush as xfcSolidBrush m.loBrush = .SolidBrush.New(loAxisMainColor) LOCAL ln3D, lnMargin m.lnMargin = This.Margin IF This._DeepChart && Point, Line or Area m.ln3D = This._3D * This.ChartsCount ELSE m.ln3D = This._3D ENDIF ENDWITH ************************************************************************************** * DRAWING THE Y Axis LOCAL x0, x1, y0, y1 y0 = This.ChartCanvas.Height - This._XAxisHeight y1 = This._TopOffSet IF y0 - y1 < ln3D RETURN ENDIF IF This.ShowAxis = .T. * Draw the main Y Axis caption LOCAL lcYText lcYText = This.YAxis.Caption IF NOT EMPTY(lcYText) This.YAxis.Reset() LOCAL lnYaxisWidth, lnYAxisHeight m.lnYaxisWidth = y0 - y1 m.lnYaxisHeight = CEILING(This.YAxis._Height) IF m.lnYaxisWidth < 5 OR m.lnYaxisHeight < 5 RETURN ENDIF This._yAxisWidth = This.YAxis._Height + 3 This.Yaxis.Rotation = 270 This.YAxis._DrawString(This._LeftOffset, y1 + m.lnYaxisWidth, m.lnYaxisWidth, m.lnYaxisHeight) ELSE This._yAxisWidth = This._LeftOffset + 3 ENDIF * Prepare the scale in the Y Axis This._GetyLegendSize() This._yAxisWidth = This._yAxisWidth + This._ScaleW LOCAL lnMaxValue m.lnMaxValue = This._ScaleRange WITH _Screen.System.Drawing * Draw the Y Axis x0 = This._yAxisWidth + This._LeftOffset x1 = x0 + m.ln3D + This._ScaleW IF m.ln3D = 0 m.loGfx.DrawLine(m.loPen, x0 - 1, y0, x0 - 1, y1) ELSE LOCAL laPoints(4) laPoints(1) = .Point.New(x0, y0) laPoints(2) = .Point.New(x0, This._TopOffSet + m.ln3D) laPoints(3) = .Point.New(x0 + m.ln3D, This._TopOffSet) laPoints(4) = .Point.New(x0 + m.ln3D, y0 - m.ln3D) m.loGfx.FillPolygon(m.loBrush, @laPoints) m.loGfx.DrawPolygon(m.loPen, @laPoints) LOCAL laPointsB(6) laPointsB(1) = .Point.New(x0, y0 + 4) laPointsB(2) = .Point.New(x0 - 4, y0 + 4) laPointsB(3) = .Point.New(x0 - 4, This._TopOffSet + m.ln3D) laPointsB(4) = .Point.New(x0 - 4 + m.ln3D, This._TopOffSet) laPointsB(5) = .Point.New(x0 + m.ln3D, This._TopOffSet) laPointsB(6) = .Point.New(x0, This._TopOffSet + m.ln3D) m.loGfx.FillPolygon(m.loBrush, @laPointsB) m.loGfx.DrawPolygon(m.loPen, @laPointsB) ENDIF ENDWITH ENDIF WITH _Screen.System.Drawing m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D This._ChartY0 = This.ChartCanvas.Height - This._XAxisHeight - m.ln3D This._ChartY1 = This._ChartY0 - m.lnHeight * Draw the X Axis m.lnMargin = This._yAxisWidth + This._LeftOffset LOCAL x0, x1, y0 x0 = m.lnMargin x1 = This.ChartCanvas.Width - This._RightOffset y0 = This.ChartCanvas.Height - This._XAxisHeight + 1 IF This.ShowAxis = .T. IF m.ln3D = 0 m.loGfx.DrawLine(m.loPen, x0, y0, x1, y0) ELSE LOCAL laPoints(4) laPoints(1) = .Point.New(x0, y0) laPoints(2) = .Point.New(x0 + m.ln3D, y0 - m.ln3D) laPoints(3) = .Point.New(x1, y0 - m.ln3D) laPoints(4) = .Point.New(x1 - m.ln3D, y0) m.loGfx.FillPolygon(m.loBrush, @laPoints) LOCAL laPointsB(6) laPointsB(1) = laPoints(1) laPointsB(2) = laPoints(4) laPointsB(3) = laPoints(3) laPointsB(4) = .Point.New(laPoints(3).x, y0 - m.ln3D + 3) laPointsB(5) = .Point.New(laPoints(4).x, y0 + 3) laPointsB(6) = .Point.New(laPoints(1).x, y0 + 3) m.loGfx.FillPolygon(m.loBrush, @laPointsB) m.loGfx.DrawPolygon(m.loPen, @laPointsB) m.loGfx.DrawLine(m.loPen, x0, y0, x0 + m.ln3D, y0 - m.ln3D) ENDIF ENDIF * Draw the main X Axis caption IF NOT EMPTY(This.XAxis.Caption) This.XAxis.Reset() LOCAL lnX, lnY, lnW, lnH m.lnX = m.lnMargin m.lnY = y0 + This._LegendPixHeight + 4 m.lnW = x1 - x0 m.lnH = This.XAxis._Height This.XAxis._DrawString(m.lnX, m.lnY, m.lnW, m.lnH) ENDIF IF This.ShowScale This._DrawScale(m.loPen) ENDIF ENDWITH ENDPROC PROCEDURE Resize IF This._InsideForm IF Thisform.Visible = .F. OR This.Visible = .F. RETURN ENDIF ENDIF IF This._FirstActivate && AND Thisform.Visible This._FirstActivate = .F. RETURN ENDIF This._UpdateRandomColors = .F. This.ChartCanvas.lRedrawNow = .F. This.ChartCanvas.Width = This.Width This.ChartCanvas.Height = This.Height This._SkipPrepareData = .T. IF This._Started This.ChartCanvas.lRedrawNow = .T. ENDIF RETURN ENDPROC PROCEDURE charttype_assign LPARAMETERS tnChartType This.ChartType = tnChartType This._UpdateRandomColors = .T. This._SkipPrepareData = .F. ENDPROC PROCEDURE colortype_assign lparameters tnColorType This.ColorType = tnColorType IF tnColorType = 2 && Random This._UpdateRandomColors = .T. ENDIF ENDPROC PROCEDURE changecolor LPARAMETERS tnRGB, tnLevel IF VARTYPE(m.tnRGB) + VARTYPE(m.tnLevel) <> "NN" RETURN 0 ENDIF IF m.tnLevel = 0 RETURN m.tnRGB ENDIF m.tnLevel = m.tnLevel / 100 LOCAL lnRed, lnGreen, lnBlue m.lnRed = BITAND(m.tnRGB, 0x000000FF) m.lnGreen = BITRSHIFT(BITAND(m.tnRGB, 0x0000FF00), 8) m.lnBlue = BITRSHIFT(BITAND(m.tnRGB, 0x00FF0000), 16) IF m.tnLevel > 0 RETURN RGB( ; m.lnRed + ((255 - m.lnRed) * m.tnLevel) , ; m.lnGreen + ((255 - m.lnGreen) * m.tnLevel) , ; m.lnBlue + ((255 - m.lnBlue) * m.tnLevel) ) ELSE RETURN RGB( ; m.lnRed + (m.lnRed * m.tnLevel) , ; m.lnGreen + (m.lnGreen * m.tnLevel) , ; m.lnBlue + (m.lnBlue * m.tnLevel) ) ENDIF ENDPROC PROCEDURE chartscount_assign LPARAMETERS tnCount This.ChartsCount = tnCount * Prepare the Enumerated properties IF This.OldStyleProperties LOCAL n, lcIndex FOR n = 1 TO tnCount lcIndex = This._Str(n) IF n > 1 && The enum properties #1 already exists - no need to recreate This.AddProperty("ChartType" + lcIndex, 0) This.AddProperty("FieldValue" + lcIndex, "") This.AddProperty("Legend" + lcIndex, "") This.AddProperty("Color" + lcIndex, "") This.AddProperty("Shape" + lcIndex, 0) This.AddProperty("ShowValuesOnShape" + lcIndex, .T.) ENDIF ENDFOR ENDIF * Prepare the Fields collection This._SetFieldsCount(tnCount) ENDPROC PROCEDURE brushtype_assign LPARAMETERS tnBrushType This.BrushType = tnBrushType This._UpdateRandomColors = .T. ENDPROC PROCEDURE drawchart * Some setups before drawing for the case of transparent background * When some Image Canvas settings are needed IF This.BackColorAlpha < 255 && Transparency active This.ChartCanvas.Clear(_Screen.System.Drawing.Color.Transparent) This.ChartCanvas.RenderMode = 4 && Memory PNG This.BackStyle = 0 && Transparent ENDIF IF NOT This._Started This._InitChart() ENDIF This.ChartCanvas.Draw() ENDPROC PROCEDURE Init This._InitChart() ENDPROC PROCEDURE _preparelegendinslice LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue, tnDistance IF EMPTY(tnDistance) tnDistance = MAX(This.PieLegendDistance, 0.10) ENDIF * Calculate the coordinates to draw the Values inside the shapes This._AdjustStartSweep(@tnStart, @tnSweep, tnWidth, tnHeight) * Calculate positions LOCAL lnCenterX, lnCenterY lnCenterX = (tnWidth / 2) lnCenterY = (tnHeight / 2) * Create a GraphicsPath object. LOCAL lnAngle, lnDistance, xAdjust, yAdjust lnAngle = tnStart + (tnSweep / 2) lnDistance = tnDistance && This.PieLegendDistance * lnDistance = IIF(EMPTY(tnDistance), 0.75, tnDistance) LOCAL loTempPath as xfcGraphicsPath LOCAL loPoint as xfcPointF LOCAL loRect as xfcRectangle loTempPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New() * Obtaining the needed points xAdjust = (1 - lnDistance) / 2 yAdjust = (1 - lnDistance) / 2 loRect = _Screen.System.Drawing.Rectangle.New(tnX + xAdjust * tnWidth, ; tnY + yAdjust * tnHeight, ; lnDistance * tnWidth, ; lnDistance * tnHeight) loTempPath.AddArc(loRect, lnAngle, 0.0001) loPoint = loTempPath.GetLastPoint() * Send back the coordinates tnX = loPoint.X tnY = loPoint.Y RETURN ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType ENDPROC PROCEDURE _drawbar LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue m.tnHeight = ABS(m.tnHeight) This._UpdateCoordinates("Rect", m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue) DO CASE CASE This.BarType = 1 && Cylinder This._DrawCylinder(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue) RETURN CASE This.BarType = 2 && Triangle This._DrawTriangleBar(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue) RETURN ENDCASE This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex)) LOCAL loPen as xfcPen m.loPen = This._oBorderPen LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL loMainBrush as xfcBrush m.loMainBrush = This._oMainBrush LOCAL lo3dBrush as xfcBrush m.lo3DBrush = This._o3DBrush LOCAL ln3D m.ln3D = This._3D WITH _Screen.System.Drawing * Draw the 3D Bar using the 3DBrush IF ln3D > 0 && 3D IF This.Shadow = .F. * Prepare Array of points to draw the 3D part of the Bar LOCAL laPoints(4) m.laPoints(1) = .PointF.New(m.tnX + m.tnWidth, m.tnY) m.laPoints(2) = .PointF.New(m.tnX + m.tnWidth + m.ln3D, m.tnY - m.ln3D) m.laPoints(3) = .PointF.New(m.tnX + m.ln3D, m.tnY - m.ln3D) m.laPoints(4) = .PointF.New(m.tnX, m.tnY) m.loGfx.FillPolygon(m.lo3DBrush, @laPoints) m.loGfx.DrawPolygon(m.loPen, @laPoints) * Change only Points 3 and 4 m.laPoints(3) = .PointF.New(m.tnX + m.tnWidth + m.ln3D, m.tnY + m.tnHeight - m.ln3D) m.laPoints(4) = .PointF.New(m.tnX + m.tnWidth, m.tnY + m.tnHeight) m.loGfx.FillPolygon(m.lo3DBrush, @laPoints) m.loGfx.DrawPolygon(m.loPen, @laPoints) ELSE LOCAL loShadowBrush as xfcSolidBrush m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel,128,128,128)) m.loGfx.FillRectangle(m.loShadowBrush , m.tnX + m.ln3D, m.tnY + m.ln3D, m.tnWidth, m.tnHeight - ln3d - ln3d) LOCAL laPoints(4) m.laPoints(1) = .PointF.New(m.tnX , m.tnY + tnHeight) m.laPoints(2) = .PointF.New(m.tnX + m.tnWidth , m.tnY + tnHeight) m.laPoints(3) = .PointF.New(m.tnX + tnWidth + ln3D, m.tnY + tnHeight - m.ln3D) m.laPoints(4) = .PointF.New(m.tnX + ln3d, m.tnY + tnHeight - m.ln3D) m.loGfx.FillPolygon(m.loShadowBrush , @laPoints) ENDIF ENDIF m.loGfx.FillRectangle(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight) m.loGfx.DrawRectangle(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight) IF This._GeneralType = "Bar" This._DrawLegendinBar(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue) ENDIF ENDWITH RETURN ENDPROC PROCEDURE _drawbarchart LOCAL lnWidth, lnHeight, x1, y1, n, lnValue, lnLeftMargin, ln3D, lnTopMargin SELECT(This._DataCursor) m.ln3D = This._3D * m.lnWidth = This.ChartCanvas.Width - This._LegendWidth - m.ln3D - This._yAxisWidth m.lnWidth = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - m.ln3D - This._yAxisWidth m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D IF (m.lnWidth <= 0) OR (m.lnHeight <= 0) RETURN ENDIF m.lnLeftMargin = This._yAxisWidth + This._LeftOffset m.lnTopMargin = This._TopOffSet + m.ln3D LOCAL lnBarWidth, lnBarHeight, lnBetween, lnMaxValue m.lnBetween = This.BarsSpaceBetween m.lnMaxValue = This._ScaleRange * Prepare Points IF This._Orientation = 1 && Vertical m.lnBetween = MIN(m.lnBetween, ; (m.lnWidth - This._nRecords) / This._nRecords) m.lnBarWidth = (m.lnWidth - (This._nRecords - 1) * m.lnBetween) / This._nRecords SCAN n = RECNO() m.x1 = m.lnLeftMargin + ((m.lnBarWidth + m.lnBetween) * (n - 1)) This._aPoints(n,1) = m.x1 + (m.lnBarWidth / 2) ENDSCAN ELSE && Horizontal m.lnBetween = MIN(m.lnBetween, ; (m.lnHeight - This._nRecords) / This._nRecords) m.lnBarHeight = (m.lnHeight - (This._nRecords - 1) * m.lnBetween) / This._nRecords SCAN n = RECNO() m.y1 = m.lnTopMargin + ((m.lnBarHeight + m.lnBetween) * (n - 1)) This._aPoints(n,2) = m.y1 + (m.lnBarHeight / 2) ENDSCAN This._DrawYAxisLegend() ENDIF This._DrawVerticalLineBack() DO CASE CASE This.ChartType = 7 && Simple Bar LOCAL lnZeroY, lnValue2, lnScaleAdjustment lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnHeight m.lnZeroY = This._TopOffSet + m.ln3D + (This._MaxScale / m.lnMaxValue * m.lnHeight) IF This._MinScale > 0 lnZeroY = lnZeroY - (This._MinScale / m.lnMaxValue * m.lnHeight) ENDIF This._ChartIndex = This.ChartRow SCAN m.lnValue = This._GetValue(This.ChartRow, .T.) IF ISNULL(m.lnValue) OR lnValue < This._MinScale LOOP ENDIF IF m.lnValue < 0 m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) m.y1 = m.lnZeroY ELSE m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) + ; IIF(This._ScaleAdjust < 0, lnScaleAdjustment, 0) m.y1 = m.lnZeroY - m.lnBarHeight ENDIF m.x1 = m.lnLeftMargin + ((m.lnBarWidth + m.lnBetween) * (RECNO() - 1)) This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue) ENDSCAN CASE This.ChartType = 8 && Multi Bars LOCAL i, lnOneBarWidth, lnZeroY, lnScaleAdjustment m.lnOneBarWidth = m.lnBarWidth / This.ChartsCount m.lnZeroY = This._TopOffSet + m.ln3D + (This._MaxScale / m.lnMaxValue * m.lnHeight) IF This._MinScale > 0 lnZeroY = lnZeroY - (This._MinScale / m.lnMaxValue * m.lnHeight) ENDIF lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnHeight SCAN n = RECNO() FOR i = 1 TO This.ChartsCount This._ChartIndex = i m.lnValue = This._GetValue(i, .T.) IF ISNULL(m.lnValue) OR lnValue < This._MinScale LOOP ENDIF m.x1 = m.lnLeftMargin + ; ((m.lnBarWidth + m.lnBetween) * (n - 1)) + ; ((i-1 ) * m.lnOneBarWidth) IF m.lnValue < 0 m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) m.y1 = m.lnZeroY ELSE m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) + ; IIF(This._ScaleAdjust < 0, lnScaleAdjustment, 0) m.y1 = m.lnZeroY - m.lnBarHeight ENDIF This._DrawBar(m.x1, m.y1, m.lnOneBarWidth, m.lnBarHeight, m.lnValue) ENDFOR ENDSCAN This._ChartIndex = 1 CASE This.ChartType = 9 && Stacked Bars m.lnYBase = This._TopOffSet + m.ln3D + m.lnHeight SCAN m.y1 = m.lnYBase FOR i = 1 TO This.ChartsCount This._ChartIndex = i m.lnValue = This._GetValue(i, .T.) IF ISNULL(m.lnValue) LOOP ENDIF m.lnBarHeight = m.lnValue / m.lnMaxValue * m.lnHeight m.x1 = m.lnLeftMargin + ; ((m.lnBarWidth + m.lnBetween) * (RECNO() - 1)) m.y1 = m.y1 - m.lnBarHeight This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue) ENDFOR ENDSCAN This._ChartIndex = 1 CASE This.ChartType = 11 && 3D Bars * Calculate the maximum width of the chart m.lnWidth = m.lnWidth - (m.ln3D * (This.ChartsCount - 1)) m.lnHeight = m.lnHeight - (m.ln3D * (This.ChartsCount - 1)) m.lnBarWidth = (m.lnWidth - (This._nRecords - 1) * m.lnBetween) / This._nRecords FOR i = 1 TO This.ChartsCount This._ChartIndex = i m.lnAdjust = (m.ln3D * (This.ChartsCount - i )) SCAN n = RECNO() m.lnValue = This._GetValue(i, .T.) m.x1 = m.lnLeftMargin + m.lnAdjust + ((m.lnBarWidth + m.lnBetween) * (RECNO() - 1)) IF i = This.ChartsCount * Prepare Points This._aPoints(n,1) = m.x1 + (m.lnBarWidth / 2) ENDIF IF ISNULL(m.lnValue) LOOP ENDIF m.lnPointHeight = m.lnValue / m.lnMaxValue * m.lnHeight m.y1 = This._TopOffSet + (m.lnHeight - m.lnPointHeight) - m.lnAdjust + (m.ln3D * (This.ChartsCount)) m.lnYBase = This.ChartCanvas.Height - This._xAxisHeight - m.lnAdjust m.lnBarHeight = m.lnYBase - m.y1 This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue) ENDSCAN ENDFOR CASE This.ChartType = 12 && HORIZONTAL Simple Bar IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) m.lnBarHeight = 1 m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1) ENDIF LOCAL lnZeroX, lnScaleAdjustment m.lnZeroX = m.lnLeftMargin + IIF(This._ScaleAdjust < 0 , 0, (This._ScaleAdjust / m.lnMaxValue * m.lnWidth)) m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnWidth This._ChartIndex = This.ChartRow SET ORDER TO Revert SCAN m.lnValue = This._GetValue(This.ChartRow, .T.) IF ISNULL(m.lnValue) OR lnValue < This._MinScale LOOP ENDIF IF m.lnValue < 0 m.lnBarWidth = ABS(m.lnValue / m.lnMaxValue * m.lnWidth) m.x1 = m.lnZeroX - m.lnBarWidth ELSE m.lnBarWidth = (m.lnValue / m.lnMaxValue * m.lnWidth) + ; IIF(This._ScaleAdjust < 0, lnScaleAdjustment, 0) m.x1 = m.lnZeroX ENDIF m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue) ENDSCAN SET ORDER TO CASE This.ChartType = 13 && HORIZONTAL Multi Bars IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) m.lnBarHeight = 1 m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1) ENDIF m.lnBarHeight = (m.lnHeight - (This._nRecords - 1) * m.lnBetween) / This._nRecords LOCAL i, lnOneBarHeight m.lnOneBarHeight = m.lnBarHeight / This.ChartsCount LOCAL lnZeroX, lnScaleAdjustment m.lnZeroX = m.lnLeftMargin + IIF(This._ScaleAdjust < 0 , 0, (This._ScaleAdjust / m.lnMaxValue * m.lnWidth)) m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnWidth SET ORDER TO Revert SCAN n = RECNO() FOR i = This.ChartsCount TO 1 STEP -1 This._ChartIndex = i m.lnValue = This._GetValue(i, .T.) IF ISNULL(m.lnValue) OR lnValue < This._MinScale LOOP ENDIF IF m.lnValue < 0 m.lnBarWidth = ABS(m.lnValue / m.lnMaxValue * m.lnWidth) m.x1 = m.lnZeroX - m.lnBarWidth ELSE m.lnBarWidth = (m.lnValue / m.lnMaxValue * m.lnWidth) + ; IIF(This._ScaleAdjust < 0, lnScaleAdjustment, 0) m.x1 = m.lnZeroX ENDIF m.y1 = This._TopOffSet + m.ln3D + ((m.lnBarHeight + m.lnBetween) * (n - 1)) + ; ((i-1 ) * m.lnOneBarHeight) This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnOneBarHeight, m.lnValue) ENDFOR ENDSCAN SET ORDER TO This._ChartIndex = 1 CASE This.ChartType = 14 && HORIZONTAL Stacked Bars IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) m.lnBarHeight = 1 m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1) ENDIF SET ORDER TO Revert SCAN m.x1 = m.lnLeftMargin FOR i = 1 TO This.ChartsCount This._ChartIndex = i m.lnValue = This._GetValue(i, .T.) IF ISNULL(m.lnValue) LOOP ENDIF m.lnBarWidth = m.lnValue / m.lnMaxValue * m.lnWidth m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue) m.x1 = m.x1 + m.lnBarWidth ENDFOR ENDSCAN SET ORDER TO This._ChartIndex = 1 OTHERWISE ENDCASE * Draw Legends on X Axis for Vertical charts IF This._Orientation = 1 && Vertical IF This.BarType > 0 This._DrawXAxisLegend(m.ln3D/2) ELSE This._DrawXAxisLegend() ENDIF ENDIF RETURN ENDPROC PROCEDURE _drawpiechart SELECT(This._DataCursor) LOCAL lnDetachPixels, lnStart, lnSweep, lnAngle, ln3D, lnValue LOCAL lnWidth, lnHeight, lnX, lnY, lnTotal, lnMaxWidth, lnMaxHeight m.lnDetachPixels = This.PieDetachPixels m.lnMaxWidth = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - (lnDetachPixels * 2) m.lnMaxHeight = This.ChartCanvas.Height - (This.Margin * 2) - This.MarginBottom - ; This.MarginTop - This._TitleHeight - This._3d - ; (lnDetachPixels * 2) - ; IIF(This.LegendPosition > 4, This._LegendHeight, 0) m.lnWidth = MIN(lnMaxWidth, lnMaxHeight) m.lnHeight = m.lnWidth IF NOT This.PieForceCircle * Adjust the maximum width in order to ensure that the chart will retain LOCAL lnFactor m.lnFactor = 0.80 IF m.lnMaxWidth <= m.lnWidth / m.lnFactor m.lnWidth = lnMaxWidth ELSE m.lnWidth = m.lnWidth / m.lnFactor ENDIF ENDIF m.ln3D = This._3D IF This.PieCompensateAngles m.lnWidth = m.lnMaxWidth ELSE ENDIF IF m.lnWidth <= 10 OR ; lnHeight <= 10 OR ; lnHeight <= ln3d RETURN ENDIF * Calculate the chart basic positions lnX = lnDetachPixels + This.Margin + This._LeftOffset + ((lnMaxWidth - m.lnWidth) / 2) lnY = This.Margin + This._TopOffSet + ((lnMaxHeight - m.lnHeight) / 2) + lnDetachPixels lnTotal = This.ChartSum IF NOT This.PieEnhancedDrawing && Draws without taking care of slices edges * Prepare the Gdi+ objects WITH _Screen.System.Drawing PRIVATE poTempBmp as xfcBitmap PRIVATE poClrMatrix as xfcColorMatrix poTempBmp = .Bitmap.New(m.lnWidth + m.ln3D + 2, m.lnHeight + m.ln3D + 2) poClrMatrix = .Imaging.ColorMatrix.New() poClrMatrix.Matrix33 = This.AlphaChannel / 255 ENDWITH ENDIF LOCAL laLegends(This._nRecords + 1, 3) LOCAL lnRec, llHidden, llDrawLegend LOCAL lnPixelsOut llDrawLegend = This.ShowValuesonShapes lnRec = 1 This._ChartIndex = This.ChartRow This._Pie1stDetached = .F. * Draw the pie * Draw the RIGHT side of the pie lnStart = 270 SCAN FOR lnStart < 450 x1 = lnX y1 = lnY * Calculate Start point and Sweep lnValue = This._GetValue(This.ChartRow) IF lnValue <= 0 LOOP ENDIF lnSweep = lnValue / lnTotal * 360 IF lnSweep > 359.99 lnSweep = 359.99 ENDIF llHidden = lSliceHidden IF lDetach = .T. IF lnRec = 1 This._Pie1stDetached = .T. This._PieX0 = x1 This._PieY0 = y1 ENDIF IF RECNO() = This._PieAnimatedRec lnPixelsOut = This._PieAnimationPix ELSE lnPixelsOut = lnDetachPixels ENDIF lnTempStart = lnStart lnTempSweep = lnSweep This._AdjustStartSweep(@lnTempStart, @lnTempSweep, m.lnWidth, m.lnHeight) lnDetachAngle = 360 - (lnTempStart + (lnTempSweep / 2)) x1 = lnX + (COS(DTOR(lnDetachAngle)) * lnPixelsOut) y1 = lnY - (SIN(DTOR(lnDetachAngle)) * lnPixelsOut) ELSE x1 = lnX y1 = lnY ENDIF IF lnStart + lnSweep > 450 EXIT ENDIF IF NOT llHidden IF This.ChartType = 1 && Pie This._DrawSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) ELSE && 2 - Doughnut This._DrawDoughnutSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) ENDIF IF llDrawLegend This._PrepareLegendinSlice(@X1, @Y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) laLegends(lnRec,1) = x1 laLegends(lnRec,2) = y1 laLegends(lnRec,3) = lnValue lnRec = lnRec + 1 ENDIF ENDIF lnStart = lnStart + lnSweep ENDSCAN * Draw the LEFT side of the pie GO BOTTOM lnStart = 270 DO WHILE lnStart >= 90 x1 = lnX y1 = lnY * Calculate Start point and Sweep lnValue = This._GetValue(This.ChartRow) IF lnValue <= 0 IF BOF() EXIT ENDIF SKIP -1 IF BOF() EXIT ENDIF LOOP ENDIF lnSweep = lnValue / lnTotal * 360 IF lnSweep > 359.99 lnSweep = 359.99 ENDIF lnStart = lnStart - lnSweep llHidden = lSliceHidden IF lDetach = .T. lnTempStart = lnStart lnTempSweep = lnSweep IF lnStart + lnSweep >= 269.9 This._Pie1stDetached = .T. This._PieX0 = x1 This._PieY0 = y1 ENDIF IF RECNO() = This._PieAnimatedRec lnPixelsOut = This._PieAnimationPix ELSE lnPixelsOut = lnDetachPixels ENDIF This._AdjustStartSweep(@lnTempStart, @lnTempSweep, m.lnWidth, m.lnHeight) lnDetachAngle = 360 - (lnTempStart + (lnTempSweep / 2)) x1 = lnX + (COS(DTOR(lnDetachAngle)) * lnPixelsOut) y1 = lnY - (SIN(DTOR(lnDetachAngle)) * lnPixelsOut) ENDIF IF NOT llHidden IF This.ChartType = 1 && Pie This._DrawSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) ELSE && 2 - Doughnut This._DrawDoughnutSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) ENDIF IF llDrawLegend This._PrepareLegendinSlice(@X1, @Y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue) laLegends(lnRec,1) = x1 laLegends(lnRec,2) = y1 laLegends(lnRec,3) = lnValue lnRec = lnRec + 1 ENDIF ENDIF SKIP -1 IF BOF() EXIT ENDIF ENDDO * Draw the legends at the end of the process in order to avoid * a slice hiding a legend IF This.Fields(This._ChartIndex).ShowValuesOnShape IF llDrawLegend LOCAL lnOrigAlign, n lnOrigAlign = This.ShapeLegend.Alignment This.ShapeLegend.Alignment = 2 && Force Center FOR n = 1 TO lnRec - 1 LOCAL lcExpr lcExpr = This.ShapeLegendExpression IF NOT EMPTY(lcExpr) *!* Other available properties *!* This.CurrValue *!* This.CurrLegend *!* This.CurrObjType *!* This.CurrRecno *!* This.CurrColumn This.CurrIndex = n lnValue = EVALUATE(lcExpr) ELSE IF This.PieShowPercent DO CASE CASE EMPTY(This.ShapeLegend.Format) This.ShapeLegend._ForceFormat = ; This._GetFieldType(This.SourceAlias, EVALUATE("This.Fields(This.ChartRow).FieldValue"), .T.) + "%" CASE NOT "%" $ This.ShapeLegend.Format This.ShapeLegend._ForceFormat = This.ShapeLegend.Format + "%" ENDCASE lnValue = (laLegends(n,3) / lnTotal) * 100 ELSE lnValue = laLegends(n,3) ENDIF ENDIF This.ShapeLegend._Value = lnValue x1 = laLegends(n,1) IF VARTYPE(x1) <> "N" EXIT ENDIF y1 = laLegends(n,2) * Draw the Text This.ShapeLegend._DrawString(x1, y1) ENDFOR This.ShapeLegend._ForceFormat = "" This.ShapeLegend.Alignment = lnOrigAlign ENDIF ENDIF ENDPROC PROCEDURE _drawcylinder LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue This._PrepareBrushes(tnX, tnY, tnWidth, tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex)) LOCAL loPen as xfcPen m.loPen = This._oBorderPen LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL lnAlpha, lnOrigAlpha lnOrigAlpha = This.AlphaChannel lnAlpha = MIN(255, (This.AlphaChannel * 1.25)) This.AlphaChannel = lnAlpha LOCAL loTopBrush as xfcBrush LOCAL loBotBrush as xfcBrush WITH _Screen.System.Drawing DO CASE CASE This.BrushType = 1 && SolidColors loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20))) loBotBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor)) CASE This.BrushType = 2 && Gradient loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor)) loBotBrush = loTopBrush OTHERWISE This._PrepareBrushes(tnX, tnY, tnWidth, tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex)) loTopBrush = This._oMainBrush loBotBrush = loTopBrush ENDCASE This.AlphaChannel = lnOrigAlpha IF This._Orientation = 1 && Vertical LOCAL yRect, ln3D, x0 m.ln3D = MAX(This._3d, 1) yRect = tnY - (m.ln3D / 2) yTopCyl = tnY - m.ln3D yBotCyl = tnY + tnHeight - m.ln3D x0 = tnX + m.ln3D / 2 * Draw the lower ellipse m.loGfx.FillEllipse(loBotBrush, x0, yBotCyl, tnWidth, m.ln3D) m.loGfx.FillEllipse(This._oMainBrush, x0, yBotCyl, tnWidth, m.ln3D) * Draw the front shape using a GraphicsPath object * Prepare the Main Path LOCAL loPath as xfcGraphicsPath loPath = .Drawing2D.GraphicsPath.New() loPath.StartFigure() * Bottom Arc loPath.AddArc(x0, yBotCyl, tnWidth, m.ln3D, 0, 180) loPath.Reverse() * Right Line loPath.AddLine(x0 + tnWidth, yRect + tnHeight, x0 + tnWidth, yRect) * Top Arc loPath.AddArc(x0, yTopCyl, tnWidth, m.ln3D, 0, 180) * Draw the path m.loGfx.FillPath(This._oMainBrush, loPath) m.loGfx.DrawPath(m.loPen, loPath) * Draw the upper ellipse m.loGfx.FillEllipse(loTopBrush, x0, yTopCyl, tnWidth, m.ln3D) m.loGfx.DrawEllipse(m.loPen , x0, yTopCyl, tnWidth, m.ln3D) This._DrawLegendinBar(X0, tnY, tnWidth, tnHeight, tnValue) ELSE &&_Orientation = 2 - Horizontal LOCAL xRect, ln3D, x0 m.ln3D = MAX(This._3d, 1) xRect = tnX && - (m.ln3D / 2) xTopCyl = tnX + tnWidth && - m.ln3D / 2 xBotCyl = tnX - m.ln3D * Draw the front shape using a GraphicsPath object * Prepare the Main Path LOCAL loPath as xfcGraphicsPath loPath = .Drawing2D.GraphicsPath.New() loPath.StartFigure() * Bottom Arc loPath.AddArc(tnX, tnY, m.ln3D, tnHeight, 270, 180) * Bottom Line loPath.AddLine(tnX + m.ln3D / 2, tnY + tnHeight, xTopCyl + m.ln3D / 2, tnY + tnHeight) * Top Arc loPath.AddArc(xTopCyl, tnY, m.ln3D, tnHeight, 90, 180) * Top Line loPath.AddLine(xTopCyl + m.ln3D / 2, tnY, tnX + m.ln3D / 2, tnY) * Draw the path m.loGfx.FillPath(This._oMainBrush, loPath) m.loGfx.DrawPath(m.loPen, loPath) * Draw the upper ellipse m.loGfx.FillEllipse(loTopBrush, xTopCyl, tnY, m.ln3D, tnHeight) m.loGfx.DrawEllipse(m.loPen , xTopCyl, tnY, m.ln3D, tnHeight) * Draw the left-most ellipse m.loGfx.FillEllipse(loBotBrush , tnX, tnY, m.ln3D, tnHeight) m.loGfx.FillEllipse(This._oMainBrush, tnX, tnY, m.ln3D, tnHeight) This._DrawLegendinBar(tnX, tnY, tnWidth, tnHeight, tnValue) ENDIF ENDWITH ENDPROC PROCEDURE _drawdoughnutslice LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue IF tnWidth <=0 OR tnHeight <=0 RETURN ENDIF This._AdjustStartSweep(@tnStart, @tnSweep, tnWidth, tnHeight) This._UpdateCoordinates("Pie", tnX, tnY, tnWidth, tnHeight, tnValue, tnStart, tnSweep) LOCAL lnXBrush, lnYBrush IF This.PieEnhancedDrawing lnXBrush = tnX lnYBrush = tnY ELSE lnXBrush = 0 lnYBrush = 0 ENDIF This._PrepareBrushes(lnXBrush, lnYBrush, m.tnWidth, m.tnHeight, .F., RECNO()) LOCAL loPen as xfcPen m.loPen = This._oBorderPen LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx LOCAL loMainBrush as xfcBrush m.loMainBrush = This._oMainBrush LOCAL lo3dBrush as xfcBrush lo3DBrush = This._o3DBrush LOCAL ln3d, lnFinalAngle m.ln3d = This._3D lnFinalAngle = tnStart + tnSweep IF lnFinalAngle > 360 lnFinalAngle = lnFinalAngle - 360 ENDIF IF This.PieEnhancedDrawing && New behavior for Doughnuts && Drawing all edges using the GraphicsPath class WITH _Screen.System.Drawing * Create a GraphicsPath object. LOCAL loMainPath as xfcGraphicsPath loMainPath = .Drawing2D.GraphicsPath.New() LOCAL loRect as xfcRectangle LOCAL loRect2 as xfcRectangle LOCAL lnRatio lnRatio = This.DonutRatio loRect = .Rectangle.New(tnX, tnY, tnWidth, tnHeight) loRect2 = .Rectangle.New(; tnX + (tnWidth * (1 - lnRatio) / 2), ; tnY + (tnHeight * (1 - lnRatio) / 2), ; tnWidth * lnRatio, ; tnHeight * lnRatio) LOCAL lnXInt, lnYInt, lnHInt, lnWInt lnXInt = loRect2.X lnYInt = loRect2.Y lnWInt = loRect2.Width lnHInt = loRect2.Height LOCAL loPoint0 as xfcPointF LOCAL loPoint1 as xfcPointF LOCAL loPoint2 as xfcPointF LOCAL loPoint3 as xfcPointF * Obtaining the needed points loMainPath.AddArc(loRect, tnStart, 0.0001) loPoint0 = loMainPath.GetLastPoint() loMainPath.AddArc(loRect2, tnStart, 0.0001) loPoint3 = loMainPath.GetLastPoint() loMainPath.AddArc(loRect, tnStart, tnSweep) loPoint1 = loMainPath.GetLastPoint() loMainPath.AddArc(loRect2, tnStart, tnSweep) loPoint2 = loMainPath.GetLastPoint() loPoint4 = .Point.New(loPoint3.X, loPoint3.Y + m.ln3d) loPoint5 = .Point.New(loPoint0.X, loPoint0.Y + m.ln3d) loPoint6 = .Point.New(loPoint1.X, loPoint1.Y + m.ln3d) * Prepare the Main Path LOCAL loPath as xfcGraphicsPath loPath = .Drawing2D.GraphicsPath.New() loPath.StartFigure() loPath.AddArc(loRect2, tnStart, tnSweep) loPath.Reverse() loPath.AddLine(loPoint3.X, loPoint3.Y, loPoint0.X, loPoint0.Y) loPath.AddArc(loRect, tnStart, tnSweep) loPath.AddLine(loPoint1.X, loPoint1.Y, loPoint2.X, loPoint2.Y) IF ln3D = 0 OR This.Shadow * Draw shadow IF This.Shadow * Prepare the Shadow Path LOCAL loPath2 as xfcGraphicsPath loPath2 = .Drawing2D.GraphicsPath.New() loPath2.StartFigure() loPath2.AddArc(loRect2.X, loRect2.Y + ln3d, loRect2.Width, loRect2.Height, tnStart, tnSweep) loPath2.Reverse() loPath2.AddLine(loPoint3.X, loPoint3.Y + ln3d, loPoint0.X, loPoint0.Y + ln3d) loPath2.AddArc(loRect.X, loRect.Y + ln3d, loRect.Width, loRect.Height, tnStart, tnSweep) loPath2.AddLine(loPoint1.X, loPoint1.Y + ln3d, loPoint2.X, loPoint2.Y + ln3d) * Prepare the shadow brush LOCAL loShadowBrush as xfcSolidBrush m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel,128,128,128)) * Draw the shadow m.loGfx.FillPath(loShadowBrush, loPath2) ENDIF * Draw the Main doughnut slice (path) m.loGfx.FillPath(m.loMainBrush, loPath) m.loGfx.DrawPath(m.loPen, loPath) RETURN ENDIF * Continue Drawing, for 3D chart * Prepare the polygon points for the final part of the slice DIMENSION laEndPoints(4) laEndPoints(1) = loPoint1 laEndPoints(2) = loPoint2 laEndPoints(3) = .Point.New(loPoint2.X, loPoint2.Y + m.ln3d) laEndPoints(4) = loPoint6 * Prepare the polygon points for the beginning part of the slice DIMENSION laStartPoints(4) laStartPoints(1) = loPoint0 laStartPoints(2) = loPoint5 laStartPoints(3) = loPoint4 laStartPoints(4) = loPoint3 * If the slice ends in the left side, draw the Ending polygon before the top face of the slice IF BETWEEN(lnFinalAngle, 90.001, 269.999) m.loGfx.DrawPolygon(m.loPen, @laEndPoints) m.loGfx.FillPolygon(lo3DBrush, @laEndPoints) ENDIF IF NOT (tnStart >= 90 AND tnStart <= 270) m.loGfx.DrawPolygon(m.loPen, @laStartPoints) m.loGfx.FillPolygon(lo3DBrush, @laStartPoints) ENDIF * Draw the external and internal paths LOCAL lnFinalAngle lnFinalAngle = tnStart + tnSweep IF lnFinalAngle > 360 lnFinalAngle = lnFinalAngle - 360 ENDIF LOCAL lnAdjStart, lnAdjSweep lnAdjStart = tnStart lnAdjSweep = tnSweep LOCAL loAdjPoint0 as xfcPoint, loAdjPoint1 as xfcPoint loAdjPoint0 = loPoint0 loAdjPoint1 = loPoint1 LOCAL loAdjPoint2 as xfcPoint, loAdjPoint3 as xfcPoint loAdjPoint2 = loPoint3 loAdjPoint3 = loPoint2 IF tnStart >= 270 AND ; tnStart < 360 AND ; BETWEEN(lnFinalAngle, 0, 270) LOCAL loTempPoint as xfcPoint loTempPoint = .Point.New(tnX + tnWidth, tnY + tnHeight / 2) LOCAL loTempPoint2 as xfcPoint loTempPoint2 = .Point.New(lnXInt + lnWInt, lnYInt + lnHInt / 2) * External part This._DrawSliceExternal(tnX, tnY, tnWidth, tnHeight, tnStart, 360 - tnStart, loPoint0, loTempPoint) * Internal part This._DrawSliceExternal(lnXInt, lnYInt, lnWInt, lnHInt, tnStart, 360 - tnStart, loPoint3, loTempPoint2) lnAdjStart = 0 lnAdjSweep = tnSweep - (360 - tnStart) loAdjPoint0 = loTempPoint loAdjPoint1 = loPoint1 * Internal loAdjPoint2 = loTempPoint2 loAdjPoint3 = loPoint2 ENDIF LOCAL llDrawExtAtEnd llDrawExtAtEnd = .F. IF (tnStart < 180 AND lnFinalAngle > 180) OR ; (tnStart >= 270 AND lnFinalAngle > 180 AND lnFinalAngle < 270.01) IF tnStart >= 270 lnAdjStart = 0 lnAdjSweep = 180 ELSE lnAdjStart = tnStart lnAdjSweep = 180 - tnStart ENDIF loAdjPoint1 = .Point.New(tnX, tnY + tnHeight / 2) loAdjPoint3 = .Point.New(lnXInt, lnYInt + lnHInt / 2) * External part llDrawExtAtEnd = .T. LOCAL lnStartB, lnSweepB, loPoint0B, loPoint1B lnStartB = lnAdjStart lnSweepB = lnAdjSweep loPoint0B = loAdjPoint0 loPoint1B = loAdjPoint1 * Internal part This._DrawSliceExternal(lnXInt, lnYInt, lnWInt, lnHInt, lnAdjStart, lnAdjSweep, loAdjPoint2, loAdjPoint3) loAdjPoint0 = loAdjPoint1 loAdjPoint2 = loAdjPoint3 lnAdjStart = 180 lnAdjSweep = lnFinalAngle - 180 ENDIF IF BETWEEN(lnFinalAngle, 0,180) * Internal part This._DrawSliceExternal(lnXInt, lnYInt, lnWInt, lnHInt, lnAdjStart, lnAdjSweep, loAdjPoint2, loPoint2) * External part This._DrawSliceExternal(tnX, tnY, tnWidth, tnHeight, lnAdjStart, lnAdjSweep, loAdjPoint0, loPoint1) ELSE * External part This._DrawSliceExternal(tnX, tnY, tnWidth, tnHeight, lnAdjStart, lnAdjSweep, loAdjPoint0, loPoint1) * Internal part This._DrawSliceExternal(lnXInt, lnYInt, lnWInt, lnHInt, lnAdjStart, lnAdjSweep, loAdjPoint2, loPoint2) ENDIF IF llDrawExtAtEnd This._DrawSliceExternal(tnX, tnY, tnWidth, tnHeight, lnStartB, lnSweepB, loPoint0B, loPoint1B) ENDIF * Draw polygon at the beginning of the doughnut IF tnStart > 90 AND tnStart < 270 m.loGfx.DrawPolygon(m.loPen, @laStartPoints) m.loGfx.FillPolygon(lo3DBrush, @laStartPoints) ENDIF IF NOT BETWEEN(lnFinalAngle, 90, 270) m.loGfx.DrawPolygon(m.loPen, @laEndPoints) m.loGfx.FillPolygon(lo3DBrush, @laEndPoints) ENDIF * Draw the main path m.loGfx.FillPath(m.loMainBrush, loPath) m.loGfx.DrawPath(m.loPen, loPath) ENDWITH ELSE && This.PieEnhancedDrawing .F. - This is the old Behavior WITH _Screen.System.Drawing LOCAL loBmp as xfcBitmap loBmp = poTempBmp LOCAL loTempGfx as xfcGraphics loTempGfx = .Graphics.FromImage(loBmp) loTempGfx.Clear(.Color.Transparent) loTempGfx.SmoothingMode = .Drawing2D.SmoothingMode.AntiAlias * Create a GraphicsPath object. LOCAL loTempPath as xfcGraphicsPath loTempPath = .Drawing2D.GraphicsPath.New() LOCAL loRect as xfcRectangle LOCAL loRect2 as xfcRectangle LOCAL lnRatio lnRatio = This.DonutRatio loRect = .Rectangle.New(0, 0, tnWidth, tnHeight) loRect2 = .Rectangle.New(; (tnWidth * (1 - lnRatio) / 2), ; (tnHeight * (1 - lnRatio) / 2), ; tnWidth * lnRatio, ; tnHeight * lnRatio) LOCAL loPoint0 as xfcPointF LOCAL loPoint1 as xfcPointF LOCAL loPoint2 as xfcPointF LOCAL loPoint3 as xfcPointF * Obtaining the needed points loTempPath.AddArc(loRect, tnStart, 0.0001) loPoint0 = loTempPath.GetLastPoint() loTempPath.AddArc(loRect2, tnStart, 0.0001) loPoint3 = loTempPath.GetLastPoint() loTempPath.AddArc(loRect, tnStart, tnSweep) loPoint1 = loTempPath.GetLastPoint() loTempPath.AddArc(loRect2, tnStart, tnSweep) loPoint2 = loTempPath.GetLastPoint() loPoint4 = .Point.New(loPoint3.X, loPoint3.Y + m.ln3d) loPoint5 = .Point.New(loPoint0.X, loPoint0.Y + m.ln3d) loPoint6 = .Point.New(loPoint1.X, loPoint1.Y + m.ln3d) * Prepare the Main Path LOCAL loPath as xfcGraphicsPath loPath = .Drawing2D.GraphicsPath.New() loPath.StartFigure() loPath.AddLine(loPoint0.X, loPoint0.Y, lopoint3.X, lopoint3.Y) loPath.AddArc(loRect2, tnStart, tnSweep) loPath.StartFigure() loPath.AddArc(loRect, tnStart, tnSweep) loPath.AddLine(loPoint1.X, loPoint1.Y, lopoint2.X, lopoint2.Y) IF m.ln3d > 0 * Create a new Path for the 3D LOCAL lo3DPath as xfcPath lo3DPath = loPath.Clone() LOCAL loMatrix as xfcMatrix loMatrix = .Drawing2D.Matrix.New() loMatrix.Translate(0,+1) * Prepare the polygon points for the final part of the slice DIMENSION laPointsB(4) laPointsB(1) = loPoint1 laPointsB(2) = loPoint2 laPointsB(3) = .Point.New(loPoint2.X, loPoint2.Y + m.ln3d) laPointsB(4) = loPoint6 * If the slice ends in the left side, draw the polygon before the top face of the slice IF BETWEEN(lnFinalAngle, 90, 270) loTempGfx.DrawPolygon(m.loPen, @laPointsB) ENDIF LOCAL n FOR n = 1 TO m.ln3d - 1 lo3DPath.Transform(loMatrix) loTempGfx.FillPath(lo3DBrush, lo3DPath) ENDFOR * Draw the side Polygons * Draw polygon at the beginning of the donut IF tnStart > 90 AND tnStart < 270 DIMENSION laPoints(4) laPoints(1) = loPoint0 laPoints(2) = loPoint5 laPoints(3) = loPoint4 laPoints(4) = loPoint3 loTempGfx.DrawPolygon(m.loPen, @laPoints) ENDIF * Draw polygon at the end of the donut IF lnFinalAngle < 90 OR lnFinalAngle > 270 loTempGfx.DrawPolygon(m.loPen, @laPointsB) ENDIF ENDIF * Draw the path loTempGfx.FillPath(m.loMainBrush, loPath) loTempGfx.DrawPath(This._oBorderPen, loPath) loBmp.ApplyColorMatrix(poClrMatrix) m.loGfx.DrawImage(loBmp, tnX, tnY) ENDWITH ENDIF RETURN ENDPROC PROCEDURE _drawlinechart SELECT(This._DataCursor) LOCAL lnLeftMargin, lnWidth, lnHeight, lnValue LOCAL lnBetween, n, i, j, lnMaxValue, lnPointHeight, x1, y1, ln3D, lnChartsCount LOCAL llIsNull, lnYBase LOCAL lnTipPixels, lnType2, lnAlignment, lnRecs lnAlignment = This.ShapeLegend.Alignment lnRecs = This._nRecords * This.ShapeLegend.Alignment = 0 && Left Center lnTipPixels = This._TipPixels lnLeftMargin = This._YAxisWidth + This._LeftOffset m.ln3D = This._3D lnChartsCount = This.ChartsCount * Calculate the maximum width of the chart m.lnWidth = This.ChartCanvas.Width - This._YAxisWidth - This._LeftOffset - (m.ln3D * lnChartsCount) - This._RightOffset m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - (m.ln3D * lnChartsCount) IF m.lnWidth < 10 OR m.lnHeight < 10 OR lnRecs < 1 RETURN ENDIF LOCAL loGfx as xfcGraphics m.loGfx = This.oGfx * Get the maximum value of the chart lnMaxValue = This._ScaleRange LOCAL loBrush as xfcBrush IF This.BrushType = 1 m.loBrush = "This._o3dbrush" ELSE m.loBrush = "This._oMainBrush" ENDIF * Prepare array of points * 1st column is the current point object * 2nd column is the global index number for the coordinates array LOCAL lnArrayLength IF This.ChartType = 5 && Line lnArrayLength = lnRecs ELSE && Area lnArrayLength = lnRecs + 3 ENDIF DIMENSION laPoints(lnArrayLength) DIMENSION laPointsI(lnArrayLength) WITH _Screen.System.Drawing FOR i = 1 TO lnChartsCount This._ChartIndex = i lnType2 = EVALUATE("This.Fields(i).ChartType") lnAdjust = (m.ln3D * (lnChartsCount - i )) lnYBase = This._TopOffSet + m.lnHeight - lnAdjust + (m.ln3D * lnChartsCount) * If MultiChart mode, the chart needs to start half a position further IF This.Multichart AND This.MultiChartMargin lnBetween = m.lnWidth / (lnRecs) ELSE lnBetween = m.lnWidth / (lnRecs - IIF(lnRecs = 1, 0, 1)) ENDIF SCAN n = RECNO() x1 = lnLeftMargin + (lnBetween * (n - 1)) + ; lnAdjust + IIF(This.Multichart AND This.MultichartMargin , ; (lnBetween / 2), 0) lnValue = This._GetValue(i, .T.) llIsNull = ISNULL(lnValue) IF llIsNull lnValue = 0 ENDIF lnValue = lnValue + This._ScaleAdjust lnPointHeight = lnValue / lnMaxValue * m.lnHeight y1 = lnYBase - lnPointHeight This._aPoints(n,1) = x1 This._aPoints(n,2) = y1 This._aPoints(n,3) = lnValue - This._ScaleAdjust && Restore the original value laPoints(RECNO()) = IIF(llIsNULL, .F., .Point.New(x1, y1)) ENDSCAN GO TOP * Draw the vertical line only for the first line IF i = 1 This._DrawVerticalLineBack() ENDIF DO CASE CASE lnType2 = 3 && Single Bar lnBarWidth = (m.lnWidth - (lnRecs - 1) * This.BarsSpaceBetween) / lnRecs FOR n = 1 TO lnRecs IF VARTYPE(laPoints(n)) <> "O" LOOP ENDIF x1 = This._aPoints(n,1) - lnBarWidth / 2 y1 = This._aPoints(n,2) lnValue = This._aPoints(n,3) lnBarHeight = lnYBase - y1 This._CurrentRow = n This._DrawBar(x1, y1, lnBarWidth, lnBarHeight, lnValue) ENDFOR CASE This.ChartType = 4 OR lnType2 = 4 && Point / Secondary Point FOR n = 1 TO lnRecs IF VARTYPE(laPoints(n)) <> "O" LOOP ENDIF This._CurrentRow = n This._DrawShape(laPoints(n).X, laPoints(n).Y, This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDFOR OTHERWISE && ChartType <> 4 - Line or Area IF This.ChartType = 6 && Area This._PrepareBrushes(0,0,This.ChartCanvas.Width, This.ChartCanvas.Height, .F., i) ENDIF LOCAL laPolygon(4) LOCAL laPolygonB(4) IF m.ln3D = 0 * Create pen. LOCAL loLinePen as xfcPen LOCAL lnColor IF This.BrushType = 3 && Monochrome lnColor = 0 loLinePen = .Pen.New(This._oClrBlack, 3) loLinePen.DashStyle = i - 1 && _Screen.System.Drawing.Drawing2D.DashStyle.Dash ELSE lnColor = This.aColors(i) loLinePen = .Pen.New(.Color.FromRGB(lnColor), 2) ENDIF FOR n = 1 TO lnRecs - 1 This._CurrentRow = n lcType = VARTYPE(laPoints(n)) + VARTYPE(laPoints(n+1)) DO CASE CASE lcType = "LO" OR lcType = "LL" LOOP CASE lcType = "OL" m.loGfx.Drawline(loLinePen, laPoints(n).X, laPoints(n).Y, laPoints(n).X + 1, laPoints(n).Y +1) This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPoints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3),n) laPointsI(n) = This._nIndex LOOP OTHERWISE m.loGfx.DrawLine(loLinePen, laPoints(n), laPoints(n+1)) ENDCASE IF This.ChartType = 6 && Area * Draw the area laPolygonB(1) = laPoints(n) laPolygonB(2) = laPoints(n+1) laPolygonB(3) = .Point.New(laPolygonB(2).X, lnYBase) laPolygonB(4) = .Point.New(laPolygonB(1).X, lnYBase) m.loGfx.FillPolygon(This._oMainBrush, @laPolygonB) IF This.AreaDrawBorders m.loGfx.DrawPolygon(This._oBorderPen, @laPolygonB) ENDIF ENDIF This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPoints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDFOR IF VARTYPE(laPoints(n)) = "O" This._CurrentRow = n This._UpdateCoordinates(; "Rect", laPoints(n).X - lnTipPixels/2, laPoints(n).Y - lnTipPixels/2, ; lnTipPixels, lnTipPixels, This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDIF * Draw the shapes after (over) the lines IF This.LineCaps = .T. AND This.ChartType = 5 && Line FOR j = 1 TO lnRecs IF VARTYPE(laPoints(j)) <> "O" OR ; VARTYPE(laPoints(j).X) + VARTYPE(laPoints(j).Y) <> "NN" LOOP ENDIF This._DrawShape(laPoints(j).X, laPoints(j).Y, This._aPoints(j,3)) laPointsI(n) = This._nIndex This._CurrentRow = j ENDFOR ENDIF ELSE && m.ln3D <> 0 * Store a big area brush that will be used for the main area part of the shapes LOCAL loAreaBrush, llDrawPointLine loAreaBrush = This._oMainBrush FOR n = 1 TO lnRecs - 1 This._CurrentRow = n lcType = VARTYPE(laPoints(n)) + VARTYPE(laPoints(n+1)) DO CASE CASE lcType = "LO" OR lcType = "LL" LOOP CASE lcType = "OL" llDrawPointLine = .T. OTHERWISE llDrawPointLine = .F. ENDCASE IF This.ChartType = 6 ; && Area AND "L" $ lcType IF lcType = "OL" This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPOints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDIF LOOP ENDIF IF This.ChartType = 5 OR (This.ChartType = 6 AND This.Area3dTop) laPolygon(1) = laPoints(n) laPolygon(2) = .Point.New(laPoints(n).X + m.ln3D, laPoints(n).Y - m.ln3D) IF llDrawPointLine LOCAL lnColor, loLinePen as xfcPen lnColor = This.aColors(i) loLinePen = .Pen.New(.Color.FromRGB(lnColor), 2) m.loGfx.DrawLine(loLinePen, laPolygon(1), laPolygon(2)) This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPOints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3)) laPointsI(n) = This._nIndex LOOP ENDIF laPolygon(3) = .Point.New(laPoints(n+1).X + m.ln3D, laPoints(n+1).Y - m.ln3D) laPolygon(4) = laPoints(n+1) This._PrepareBrushes(laPoints(n).X, laPoints(n).Y - m.ln3D, ; laPoints(n+1).X + m.ln3D - laPoints(n).X, ; MAX(2,ABS(laPoints(n).Y - laPoints(n+1).Y)), .F., i) m.loGfx.FillPolygon(This._oMainBrush, @laPolygon) m.loGfx.DrawPolygon(This._oBorderPen, @laPolygon) ENDIF IF This.ChartType = 6 && Area * Draw the area laPolygonB(1) = laPoints(n) laPolygonB(2) = laPoints(n+1) laPolygonB(3) = .Point.New(laPolygonB(2).X, lnYBase) laPolygonB(4) = .Point.New(laPolygonB(1).X, lnYBase) m.loGfx.FillPolygon(loAreaBrush, @laPolygonB) IF This.AreaDrawBorders m.loGfx.DrawPolygon(This._oBorderPen, @laPolygonB) ENDIF * Draw the right 3d edge of the Area IF This.Area3dTop laPolygonB(1) = .Point.New(laPolygonB(2).X + m.ln3D, laPolygonB(2).Y - m.ln3D) laPolygonB(4) = .Point.New(laPolygonB(3).X + m.ln3D, laPolygonB(3).Y - m.ln3D) m.loGfx.FillPolygon(This._o3dbrush , @laPolygonB) m.loGfx.DrawPolygon(This._oBorderPen, @laPolygonB) ENDIF ENDIF && ChartType = 6 - Area This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPOints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDFOR This._CurrentRow = n IF VARTYPE(laPoints(n)) = "O" This._UpdateCoordinates("Rect", laPoints(n).X - lnTipPixels/2, laPOints(n).Y - lnTipPixels/2, lnTipPixels, lnTipPixels, ; This._aPoints(n,3)) laPointsI(n) = This._nIndex ENDIF ENDIF && m.ln3D = 0 ENDCASE * Reset Row counter This._CurrentRow = 0 LOCAL lnIndex IF This.ShowValuesOnShapes AND This.Fields(i).ShowValuesOnShape *** Draw Legends above the points FOR n = 1 TO lnRecs IF VARTYPE(laPoints(n)) = "L" LOOP ENDIF x1 = This._aPoints(n,1) y1 = This._aPoints(n,2) lnIndex = laPointsI(n) This._DrawShapeLegend(x1, y1, lnIndex) ENDFOR ENDIF ENDFOR This._DrawXAxisLegend() ENDWITH This.ShapeLegend.Alignment = lnAlignment RETURN ENDPROC PROCEDURE _getbasiccolor * From LMGRAPH, from Luis Maria Guayan, MVP, Argentina * www.portalfox.com LPARAMETERS tn LOCAL la(28) tn = MOD(tn-1,28)+1 la(1) = RGB(255,0,0) && Rojo la(2) = RGB(255,255,0) && Amarillo la(3) = RGB(0,0,255) && Azul la(4) = RGB(0,128,0) && Verde Oscuro la(5) = RGB(255,128,0) && Anaranjado la(6) = RGB(255,0,255) && Magenta la(7) = RGB(128,0,255) && Violeta la(8) = RGB(0,255,255) && Cyan la(9) = RGB(128,64,0) && Marrn la(10) = RGB(192,192,0) && Amarillo Oscuro la(11) = RGB(192,0,0) && Rojo Oscuro la(12) = RGB(0,255,0) && Verde la(13) = RGB(0,0,128) && Azul Oscuro la(14) = RGB(255,192,0) && Anaranjado Claro la(15) = RGB(0,192,255) && Azul claro la(16) = RGB(128,128,0) && Marrn Claro la(17) = RGB(255,192,255) && Magenta Claro la(18) = RGB( 64,128,128) && Verde Azulado la(19) = RGB(255,0,128) && Fucsia la(20) = RGB(255,255,192) && Amarillo Claro la(21) = RGB(192,0,255) && Violeta Claro la(22) = RGB(192,255,192) && Verde Claro la(23) = RGB(128,0,128) && Violeta Oscuro la(24) = RGB(192,255,255) && Cyan Claro la(25) = RGB(128,128,128) && Gris Oscuro la(26) = RGB(255,255,255) && Blanco la(27) = RGB(192,192,192) && Gris la(28) = RGB(0,0,0) && Negro RETURN la(tn) ENDPROC PROCEDURE _getrgb LPARAMETERS tuColor IF VARTYPE(tuColor) = "N" RETURN tuColor ENDIF IF VARTYPE(tuColor) = "C" DO CASE CASE LEFT(tuColor,1) = "=" lnColor = EVALUATE(SUBSTR(tuColor,2)) CASE EMPTY(tuColor) lnColor = 0 OTHERWISE lnColor = EVALUATE("RGB(" + tuColor + ")") ENDCASE RETURN lnColor ENDIF ENDPROC PROCEDURE _getgradientcolor LPARAMETERS tnCount LOCAL lnBasicColor, lnNewColor m.lnBasicColor = This.Fields(1).Color m.tnCount = m.tnCount - 1 IF INLIST(This.ChartType, 5, 6) && Line or Area m.lnNewColor = This.ChangeColor(lnBasicColor, 100 * m.tnCount / This.ChartsCount) ELSE m.lnNewColor = This.ChangeColor(lnBasicColor, 100 * m.tnCount / This._nRecords) ENDIF RETURN m.lnNewColor ENDPROC PROCEDURE _getrandomcolor RETURN RGB(; INT(RAND() * 255), ; INT(RAND() * 255), ; INT(RAND() * 255)) ENDPROC PROCEDURE _getshapepath LPARAMETERS tnShape WITH _Screen.System.Drawing LOCAL loPath as xfcGraphicsPath loPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New() loPath.StartFigure() LOCAL lnShape, lcType lcType = VARTYPE(tnShape) IF lcType = "N" IF tnShape = 0 && NO shape selected - go in Automatic mode lnShape = This._ChartIndex ELSE lnShape = tnShape ENDIF ENDIF DO CASE CASE lcType = "O" loPath = tnShape CASE lnShape = 1 && Round loPath.AddEllipse(0, 0, 6, 6) CASE lnShape = 2 && Square loPath.AddRectangle(0,0,6,6) CASE lnShape = 3 && Triangle LOCAL laPoints(3) laPoints(1) = .Point.New(3,0) laPoints(2) = .Point.New(0,6) laPoints(3) = .Point.New(6,6) loPath.AddPolygon(@laPoints) CASE lnShape = 4 && Cross loPath.AddLine(2,0, 4,0) loPath.AddLine(4,0, 4,2) loPath.AddLine(4,2, 6,2) loPath.AddLine(6,2, 6,4) loPath.AddLine(6,4, 4,4) loPath.AddLine(4,4, 4,6) loPath.AddLine(4,6, 2,6) loPath.AddLine(2,6, 2,4) loPath.AddLine(2,4, 0,4) loPath.AddLine(0,4, 0,2) loPath.AddLine(0,2, 2,2) loPath.AddLine(2,2, 2,0) CASE lnShape = 5 && Star LOCAL lnRadius, lnPi, lnRadian72, n lnRadius = 6.0 lnPi = 3.141592 lnRadian72 = (lnPi * 4.0 ) / 5.0 LOCAL laPoints(5), n FOR n = 1 TO 5 laPoints(n) = .Point.New(; + lnRadius * SIN( n * lnRadian72 ) + 3, ; - lnRadius * COS( n * lnRadian72 ) + 2) ENDFOR loPath.AddPolygon(@laPoints) loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Winding CASE lnShape = 6 && Cross 2 loPath.AddRectangle(0,0,7,7) loPath.AddRectangle(1,1,2,2) loPath.AddRectangle(4,1,2,2) loPath.AddRectangle(1,4,2,2) loPath.AddRectangle(4,4,2,2) CASE lnShape = 7 && Box loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Alternate loPath.AddRectangle(0,0,6,6) loPath.AddRectangle(2,2,2,2) CASE lnShape = 8 && Button loPath.AddEllipse(0, 0, 6, 6) loPath.StartFigure() loPath.AddEllipse(2,2,2,2) loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Alternate CASE lnShape = 9 && Box2 loPath.AddLine(9,0,6,5) loPath.AddLine(6,5,10,4) loPath.AddLine(10,4,2,10) loPath.AddLine(2,10,3,5) loPath.AddLine(3,5,0,6) loPath.AddLine(0,6,6,0) loPath.AddLine(6,0,9,0) CASE lnShape = 10 && Small Man loPath.AddEllipse(3, 0, 3, 3) loPath.AddLine(2, 4, 8, 4) loPath.AddLine(10, 10, 8, 10) loPath.AddLine(7, 6, 7, 10) loPath.AddLine(9, 19, 7, 19) loPath.AddLine(5, 12, 4, 19) loPath.AddLine(2, 19, 3, 10) loPath.AddLine(3, 6, 2, 10) loPath.AddLine(0, 10, 2, 4) CASE lnShape = 55 && Big Man loPath.AddEllipse(23, 1, 14, 14) loPath.AddLine(18, 16, 42, 16) loPath.AddLine(50, 40, 44, 42) loPath.AddLine(38, 25, 37, 42) loPath.AddLine(45, 75, 37, 75) loPath.AddLine(30, 50, 23, 75) loPath.AddLine(16, 75, 23, 42) loPath.AddLine(22, 25, 16, 42) loPath.AddLine(10, 40, 18, 16) CASE lnShape = 98 && GDI+X Graphics Path CASE lnShape = 99 && Image OTHERWISE ENDCASE ENDWITH RETURN loPath ENDPROC PROCEDURE _getylegendsize Local lnScaleW, lnScaleH If This._Orientation = 1 && Vertical If This.ShowScale **************************************************************** * Jim Nelson 10/13/2008 * * Modified to call GetScaleLegend to get representative used to calculate maximum width * * Original * This.ScaleLegend._Value = This.GetScaleLegend(-1) LOCAL luLegend luLegend = This.GetScaleLegend(-1) IF VARTYPE(luLegend) = "N" This.ScaleLegend._Value = luLegend ELSE This.ScaleLegend.Caption = luLegend ENDIF lnScaleW = This.ScaleLegend._Width + 2 lnScaleH = This.ScaleLegend._Height Else lnScaleW = 0 lnScaleH = 0 Endif ELSE && Horizontal Local lnMaxWidth, lcText Local loFont As xfcFont Local loSize As xfcSize This.AxisLegend2._Setup() loFont = This.AxisLegend2._oFont lnMaxWidth = 0 Scan * Measure the legend width lcText = cAxis2 This.AxisLegend2.Caption = lcText lnWidth = This.AxisLegend2._Width lnMaxWidth = Max(lnMaxWidth, lnWidth) Endscan lnScaleH = This.AxisLegend2._Width lnScaleW = lnMaxWidth Endif This._ScaleH = lnScaleH This._ScaleW = lnScaleW Return ENDPROC PROCEDURE _preparebackground WITH _SCREEN.SYSTEM.Drawing IF This.BrushType = 3 && Monochrome This.ChartCanvas.Clear(This._oClrWhite) ELSE LOCAL lcType lcType = VARTYPE(This.BackColor2) DO CASE CASE lcType <> "N" This.ChartCanvas.Clear(.Color.FromARGB(This.BackColorAlpha, This.BackColor)) CASE lcType = "N" AND (This.BackColor = This.BackColor2) This.ChartCanvas.Clear(.Color.FromARGB(This.BackColorAlpha, This.BackColor)) OTHERWISE LOCAL loGradBrush as xfcLinearGradientBrush loGradBrush = .Drawing2D.LinearGradientBrush.New(This.ChartCanvas.Rectangle, ; .Color.FromARGB(This.BackColorAlpha, This.BackColor), ; .Color.FromARGB(This.BackColorAlpha, This.BackColor2), ; This.BackGradientMode) This.oGfx.FillRectangle(loGradBrush, This.ChartCanvas.Rectangle) ENDCASE ENDIF ENDWITH ENDPROC PROCEDURE _preparelegend * Calculate the height of the X Axis SELECT(This._DataCursor) This.XAxis.Reset() LOCAL lcCaption, lnCurrWidth, lnMaxWidth, lnCurrHeight, lnMaxHeight, lnRotation, lnAxis2Height, lnMaxAxis2Width, lnWidth, lnHeight STORE 0 TO lnMaxWidth, lnMaxHeight, lnAxis2Height SCAN lcCaption = ALLTRIM(TRANSFORM(cAxis2)) IF NOT EMPTY(lcCaption) This.AxisLegend2.Caption = lcCaption lnCurrWidth = This.AxisLegend2._Width lnMaxWidth = MAX(lnMaxWidth, lnCurrWidth) lnCurrHeight = This.AxisLegend2._Height lnMaxHeight = MAX(lnMaxHeight, lnCurrHeight) ENDIF ENDSCAN lnMaxAxis2Width = lnMaxWidth lnAxis2Height = lnMaxHeight IF This._Orientation = 1 && Vertical lnRotation = This.AxisLegend2.Rotation IF This.AxisLegend2.Alignment = 1 && Right lnRotation = 360 - lnRotation ENDIF lnHeight = (SIN(DTOR(lnRotation)) * lnMaxAxis2Width) + This.AxisLegend2._Height lnHeight = MAX(lnAxis2Height, lnHeight) ELSE IF This.ShowScale This.ScaleLegend._Value = This._ScaleRange m.lnWidth = This.ScaleLegend._Width lnRotation = This.ScaleLegend.Rotation lnHeight = (SIN(DTOR(lnRotation)) * m.lnWidth) + This.ScaleLegend._Height lnAxis2Height = This.ScaleLegend._Height lnHeight = MAX(lnAxis2Height, lnHeight) ELSE lnHeight = 0 ENDIF ENDIF This._XAxisHeight = IIF(EMPTY(This.XAxis.Caption), 0, This.XAxis._Height) + ; lnHeight + ; This.Margin + This.MarginBottom + ; IIF(INLIST(This.LegendPosition, 8, 9, 10), This._LegendHeight, 0) + ; && Bottom Side 6 This._LegendPixHeight = lnHeight RETURN ENDPROC PROCEDURE drawreport LPARAMETERS tnWidth, tnHeight This._SkipPrepareData = .T. This._InReport = .T. LOCAL lcFile m.lcFile = This.ChartCanvas.DrawReport(m.tnWidth, m.tnHeight) This._InReport = .F. RETURN m.lcFile *!* * Prior to version 0.31 *!* LPARAMETERS tnWidth, tnHeight *!* This._SkipPrepareData = .T. *!* This._InReport = .T. *!* LOCAL lcFile *!* m.lcFile = This.ChartCanvas.DrawReport(m.tnWidth, m.tnHeight) *!* This._SkipPrepareData = .F. *!* This._InReport = .F. *!* * Need to redraw the report to restore the original settings *!* This.DrawChart() *!* RETURN m.lcFile ENDPROC PROCEDURE _drawscale LPARAMETERS toPen * Draw the scale in the Y Axis Local ln3D, lnHeight, lnMaxValue, lnMargin, lnScaleValue IF INLIST(This.ChartType, 4,5,6,11) && Point, Line, Area, 3DBars m.ln3D = This._3D * This.ChartsCount Else m.ln3D = This._3D Endif lnMaxValue = This._ScaleRange Local loGfx As xfcGraphics loGfx = This.oGfx Local loBackBrush As xfcSolidBrush Local loBackPen As xfcPen Local loBlackPen As xfcPen Local llDrawBack, lnOneScale, lnxWidth loBlackPen = This._oBlackPen llDrawBack = .T. If This._Orientation = 1 && Vertical Local lnRectColor, lnLineColor If This.BrushType = 3 && Monochrome lnRectColor = Rgb(255,255,255) && White lnLineColor = 0 && Black Else lnRectColor = This.ScaleBackColor lnLineColor = This.ScaleLineColor Endif With _Screen.System.Drawing loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, lnRectColor)) This._oBlackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, lnLineColor),This.ScaleBackLinesWidth - 1) Endwith Local lnDashValue lnDashValue = This.ScaleBackLinesDash If lnDashValue > 0 This._oBlackPen.DashStyle = lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash Endif m.lnHeight = This.Height - This._XAxisHeight - This._TopOffSet - m.ln3D lnOneScale = This._Scale / lnMaxValue * lnHeight lnxWidth = This.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D Local x0, x1, y0, y1, lnScaleHeight, N, Y y0 = This.Height - This._XAxisHeight x0 = This._yAxisWidth + This._LeftOffset This.ScaleLegend._Setup() **************************************************************** * Jim Nelson 10/10/08 * * Loop now calls method GetScaleValue (and its cousin GetScaleLegend) to get the * scale values and associated legends. lnScaleNumber = 0 returns highest scale * Save original Alignment settings LOCAL lnOrigAlignment lnOrigAlignment = This.ScaleLegend.Alignment For lnScaleNumber = 0 To 1000 lnValue = This.GetScaleValue (lnScaleNumber) If "N" # Vartype( lnValue) Exit Endif lnScaleHeight = (lnValue - This._MinScale) / lnMaxValue * lnHeight Y = This.Height - lnScaleHeight - This._XAxisHeight x1 = This._yAxisWidth + This._LeftOffset - 7 y1 = Y - (This._ScaleH/2) lnScaleValue = lnValue - This._ScaleAdjust This.ScaleLegend.Alignment = 1 && Force Right alignment This.ScaleLegend._Value = This.GetScaleLegend(lnScaleNumber, (lnValue / This.ScaleDivider)) This.ScaleLegend._DrawString(x1, y1) * Draw the horizontal scale (tick) line in the Y Axis loGfx.DrawLine(toPen, x0, Y, x0 + m.ln3D, Y - m.ln3D) loGfx.DrawLine(loBlackPen, x0 - 0, Y, x0 - This.TicLength, Y) * Chack if finished drawing If "N" # Vartype (This.GetScaleValue (lnScaleNumber + 1)) Exit Endif * Draw the scale background Local x1Scale, y1Scale x1Scale = x0 + m.ln3D y1Scale = Y - m.ln3D If llDrawBack **************************************************************** * Jim Nelson 10/11/08 * * Calculate height to next scale lnThisScale = (This.GetScaleValue (lnScaleNumber) - This.GetScaleValue (lnScaleNumber+1)) / lnMaxValue * lnHeight If Inlist(This.ScaleBackBarsType, 1, 3) && Horizontal, Both **************************************************************** * Jim Nelson 10/11/08 * * Calculate the height of this horizontal bar (allowing for case where not all bars are same height) * loGfx.FillRectangle(loBackBrush, x1Scale, y1Scale, lnxWidth, lnOneScale) loGfx.FillRectangle(loBackBrush, x1Scale, y1Scale, lnxWidth, lnThisScale) Endif If Inlist(This.ScaleBackLinesType, 1, 3) && Horizontal, Both **************************************************************** * Jim Nelson 10/10/08 * * Do NOT draw the line if its the zero line (see below) If Not ( ; This.ShowLineZero ; and Abs(lnValue) < This._Scale / 100 ; And This._MaxScale > 0 ; And This._MinScale < 0 ; and m.ln3D = 0 ; ) loGfx.DrawLine(This._oBlackPen, x1Scale, y1Scale, x1Scale + lnxWidth, y1Scale) loGfx.DrawLine(This._oBlackPen, x1Scale, y1Scale + lnThisScale, x1Scale + lnxWidth, y1Scale + lnThisScale) Endif Endif Endif llDrawBack = Not llDrawBack If This.ShowLineZero * Draw the ZERO line If Abs(lnValue) < This._Scale / 100 And This._MaxScale > 0 And This._MinScale < 0 With _Screen.System.Drawing Local loZeroPen As xfcPen loZeroPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, This.ScaleLineZeroColor), 1) If m.ln3D = 0 loGfx.DrawLine(loZeroPen, ; x1Scale, y1Scale, x1Scale + lnxWidth, y1Scale) Else * Following line moved; does not apply to case m.ln3D = 0 y1Scale = y1Scale + 1 Local laPolygon(4) laPolygon(1) = .Point.New(x1Scale, y1Scale) laPolygon(2) = .Point.New(x1Scale + lnxWidth, y1Scale) laPolygon(3) = .Point.New(x1Scale + lnxWidth - m.ln3D, y1Scale + m.ln3D) laPolygon(4) = .Point.New(x1Scale - m.ln3D, y1Scale + m.ln3D) Local loZeroBrush As xfcSolidBrush loZeroBrush = .SolidBrush.New(.Color.FromARGB(64, This.ScaleLineZeroColor)) loGfx.FillPolygon(loZeroBrush, @laPolygon) loGfx.DrawPolygon(loZeroPen , @laPolygon) Endif Endwith Endif Endif Endfor This._ChartY0 = This.Height - This._XAxisHeight - m.ln3D This._ChartY1 = This._ChartY0 - lnHeight * Restore original Alignment settings This.ScaleLegend.Alignment = lnOrigAlignment Else && _Orientation = 2 HORIZONTAL Local x0, x1, y0, y1 lnMargin = This._yAxisWidth + This._LeftOffset y0 = This._TopOffSet y1 = This.Height - This._XAxisHeight + 6 x0 = lnMargin x1 = This.Width - This._RightOffset && This._LegendWidth lnWidth = This.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D Local llDrawBack, lnOneScale llDrawBack = .T. Local lnRectColor, lnLineColor If This.BrushType = 3 && Monochrome lnRectColor = Rgb(255,255,255) && White lnLineColor = 0 && Black Else lnRectColor = This.ScaleBackColor lnLineColor = This.ScaleLineColor Endif With _Screen.System.Drawing loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, lnRectColor)) This._oBlackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, lnLineColor),This.ScaleBackLinesWidth - 1) Endwith Local lnDashValue lnDashValue = This.ScaleBackLinesDash If lnDashValue > 0 This._oBlackPen.DashStyle = lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash Endif lnOneScale = This._Scale / lnMaxValue * m.lnWidth **************************************************************** * Jim Nelson 10/10/08 * * Loop now calls method GetScaleValue (and its cousin GetScaleLegend) to get the * scale values and associated legends. lnScaleNumber = 0 returns highest scale For lnScaleNumber = 0 To 1000 lnValue = This.GetScaleValue (lnScaleNumber) If "N" # Vartype( lnValue) Exit Endif lnScaleValue = lnValue - This._ScaleAdjust lnScaleWidth = (lnValue - This._MinScale) / lnMaxValue * m.lnWidth x = x0 + lnScaleWidth lnScaleValue = lnValue - This._ScaleAdjust This.ScaleLegend._Value = This.GetScaleLegend (lnScaleNumber, lnValue) If This.ScaleLegend.Rotation = 0 This.ScaleLegend._DrawString(x, y1, .T.) && Force Center Else This.ScaleLegend._DrawString(x, y1) Endif * Draw the horizontal scale line in the Y Axis loGfx.DrawLine(toPen, x, y1 - 5, x + m.ln3D, y1 - 5 - m.ln3D) loGfx.DrawLine(loBlackPen, x, y1, x, y1 - This.TicLength) * Draw the scale background Local x1Scale, y1Scale x1Scale = x + m.ln3D y1Scale = y1 - m.ln3D - 3 If llDrawBack and "N" = Vartype (This.GetScaleValue (lnScaleNumber+1)) **************************************************************** * Jim Nelson 10/11/08 * * Calculate width to next scale lnThisScale = (This.GetScaleValue (lnScaleNumber) - This.GetScaleValue (lnScaleNumber+1)) / lnMaxValue * m.lnWidth If Inlist(This.ScaleBackBarsType, 2, 3) && Vertical, Both **************************************************************** * Jim Nelson 10/11/08 * * Calculate the widtht of this horizontal bar (allowing for case where not all bars are same height) loGfx.FillRectangle(loBackBrush, x1Scale - lnThisScale, y0, lnThisScale, y1Scale - y0) Endif If Inlist(This.ScaleBackLinesType, 2, 3) && Vertical, Both **************************************************************** * Jim Nelson 10/10/08 * * Do NOT draw the line if its the zero line (see below) If Not ( ; This.ShowLineZero ; and Abs(lnValue) < This._Scale / 100 ; And This._MaxScale > 0 ; And This._MinScale < 0 ; and m.ln3D = 0 ; ) loGfx.DrawLine(This._oBlackPen, x1Scale , y0, x1Scale , y1Scale) loGfx.DrawLine(This._oBlackPen, x1Scale - lnThisScale, y0, x1Scale - lnThisScale, y1Scale) Endif Endif Endif llDrawBack = Not llDrawBack If This.ShowLineZero * Draw the ZERO line If Abs(lnValue) < This._Scale / 100 And This._MaxScale > 0 And This._MinScale < 0 With _Screen.System.Drawing Local loZeroPen As xfcPen loZeroPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, This.ScaleLineZeroColor), 1) If m.ln3D = 0 loGfx.DrawLine(loZeroPen, x1Scale, y0, x1Scale, y1Scale) Else * Following line moved; does not apply to case m.ln3D = 0 y1Scale = y1Scale + 1 Local laPolygon(4) laPolygon(1) = .Point.New(x1Scale, y0) laPolygon(2) = .Point.New(x1Scale, y1Scale) laPolygon(3) = .Point.New(x1Scale - m.ln3D, y1Scale + m.ln3D) laPolygon(4) = .Point.New(x1Scale - m.ln3D, y0 + m.ln3D) Local loZeroBrush As xfcSolidBrush loZeroBrush = .SolidBrush.New(.Color.FromARGB(64, This.ScaleLineZeroColor)) loGfx.FillPolygon(loZeroBrush, @laPolygon) loGfx.DrawPolygon(loZeroPen , @laPolygon) Endif Endwith Endif Endif Endfor Endif Return ENDPROC PROCEDURE savetofile LPARAMETERS tcFile, tnQuality IF EMPTY(m.tcFile) && Invalid File Name RETURN .F. ENDIF LOCAL lcImgFormatTypes, lcFile, lcExt LOCAL loImgFormat as xfcImageFormat LOCAL loQualityEncoder AS xfcEncoderParameter LOCAL loEncoderParameters AS xfcEncoderParameters m.loEncoderParameters = .F. m.lcExt = LOWER(JUSTEXT(m.tcFile)) IF EMPTY(m.lcExt) m.lcExt = "png" ENDIF WITH _Screen.System.Drawing DO CASE CASE m.lcExt = "bmp" OR m.lcExt = "bitmap" m.loImgFormat = .Imaging.ImageFormat.Bmp CASE m.lcExt = "jpg" OR m.lcExt = "jpeg" m.loImgFormat = .Imaging.ImageFormat.Jpeg IF VARTYPE(tnQuality) = "N" && set the quality encoder if the parameter was passed && otherwise, the default 75% for Gdi+ will be used. && Create an EncoderParameters object. && An EncoderParameters object has an array of EncoderParameter && objects. In this case, there is only one && EncoderParameter object in the array. m.loEncoderParameters = .Imaging.EncoderParameters.New(1) && Save the bitmap as a JPEG file with quality level. m.loQualityEncoder = .Imaging.EncoderParameter.New(.Imaging.Encoder.Quality, tnQuality) m.loEncoderParameters.Param.Add(m.loQualityEncoder) ENDIF CASE m.lcExt = "gif" m.loImgFormat = .Imaging.ImageFormat.Gif CASE m.lcExt = "png" m.loImgFormat = .Imaging.ImageFormat.Png CASE m.lcExt = "tif" OR m.lcExt = "tiff" m.loImgFormat = .Imaging.ImageFormat.Tiff CASE m.lcExt = "emf" LOCAL lcTempFile m.lcTempFile = This.DrawReport() IF FILE(m.lcTempFile) COPY FILE (m.lcTempFile) TO (m.tcFile) ENDIF RETURN OTHERWISE RETURN .F. ENDCASE ENDWITH TRY This.oBmp.Save(m.tcFile, m.loImgFormat, m.loEncoderParameters) CATCH ENDTRY ENDPROC ="$$%v  UY   ,T C ShapeLegenda-6 TT Q XFCGRAPHICST 9N H CCNN_ TQXFCSTRINGFORMATTCH9 ]T T 2TT%TTQXFCSIZE%0$TC ! "  TTC %TC $ %#T &C"wT 'C!w(Q XFCRECTANGLE$T(C &) T T%!T   ' H= ] T T & "T  &  [HW  T  'T  ' WT  '  J( T T ' T  T T '  T  T*T* +%*9,Q XFCPOINTF-Q XFCMATRIXT-C./%T,C0 H 'T,C & 0 Y.T,C ' & 0 .T,C '  & 0C*,-1C-2T3 4%395Q XFCPOINTF6Q XFCMATRIXT6C./.T5C '  & 0C3561C62% 7i9e%=CCC 7 <:;9 ' &8 a=CCC 7 <:;9  ' &8% QXFCSTRINGFORMATTCH'  T  T 2' TTEC $ % >CC 'w &)=  % &T(C  ' &)'C $ % >(=  'C $ % >(=%*3 J C?BU@TNXTNYTNWIDTHTNHEIGHT TLVERTICALX1Y1LNALIGNLNMODEXBACKLLBARTHISPARENTNAME ALIGNMENTLOGFXOGFXSYSTEMDRAWING LOSTRINGFMT LNGDIPALIGN STRINGFORMATNEWSTRINGALIGNMENTCENTERFARNEAR FORMATFLAGSSTRINGFORMATFLAGSDIRECTIONVERTICAL LINEALIGNMENTLOSIZESIZEWIDTHHEIGHT MEASURESTRING_TRANSFCAPTION_OFONT_HEIGHT_WIDTHLORECT RECTANGLE LNROTATIONROTATIONLOPOINTFLOMATRIX DRAWING2DMATRIXPOINTFROTATEATMULTIPLYTRANSFORMLNROTATIONCENTERROTATIONCENTER LOPOINTFC LOMATRIXCBACKCOLORALPHA FILLRECTANGLE SOLIDBRUSHCOLORFROMARGB BACKCOLOR DRAWSTRING_OBRUSHRESETTRANSFORM'T CUTCTEXTTHISCAPTION_UPDATEMEASURES _drawstring0caption_assign 1qc1Cq!11AAAA#AATQQrA111!A122BA32A2Bs2AAAQ21q22BARAA2AAAQRAAdB2BAA3q!11ATaqqAAABA2q2n)$"+c%@|UoT (CFontName _Legend%hT U TCFONTNAMETHISFONTNAMESETALL _INSIDEFORMTOOLTIPBCUTHIS_GETRGB AXISCOLOR^T%CL: B WBCU LUBACKCOLOR2THIS BACKCOLOR2_GETRGBBCUTHIS_GETRGBCOLOR1BCUTHIS_GETRGBSCALEBACKCOLORBCCZUTNVALUEm @T CNC    CD@T CNC    CFT  T   H C  T  C   wT  C   z% 2T CCC C  C  DKwET C999,999,999,999,999 C  zR T T  T T  2 TTT@TT CC KzT '  ("T    'T C   wC   z%C  T   T  C   wT  C   zT  4T   CC G62T CCC C  C  DKw% ET C999,999,999,999,999 C  zR%  .T.C9 Q TfT T  T cT T  U! TNMAXVALUE TNMINVALUELNMAXLNMINLNSCALE LNMAXSCALE LNMINSCALELNRANGETHISMAXVALUE SHOWVALUEZEROMINVALUESCALESCALEAUTOFORMATLNDIGITS SCALEDIVIDER SCALELEGEND _FORCEFORMATLASTEPSLNMULTLNCURRENTNSTEPSLNSTEPLNSTEPS LNNICESTEP LNPOWEROF10 LNEXPONENTMINNUMBERSCALELEGENDS LNSCALING_SCALE _SCALERANGE _SCALEADJUST _MINSCALE _MAXSCALET&%C    T %C T TC  TT%%H'   {TC  C C C  2 H/ aC   C  C  ,TCT  TCT 2 %TT% .!Ca %^T {T!CaT%TUTNXTNYTNWIDTHTNHEIGHTTNVALUETNINDEXTHIS CURRINDEX_NINDEXFIELDS _CHARTINDEXSHOWVALUESONSHAPESHOWVALUESONSHAPESLCEXPRSHAPELEGENDEXPRESSION SHAPELEGEND_VALUELNALIGN LNDIRECTION ALIGNMENTBARLEGENDDIRECTION _ORIENTATIONROTATION BARLEGENDTYPE_HEIGHT _DRAWSTRING LNROTCENTERROTATIONCENTER  .T C.nValueC %C   pT  B UTIINDEX TLACCEPTNULLLUVALUELLISNULLTHIS _DATACURSOR_STRTH8  T- T- TaTPie T T-  T- T- TaTPie T T- N Ta Ta T-TPoint T Ta  Ta Ta T-TPoint T Ta   Ta Ta T-TPoint T Ta f T- Ta TaTBar T Ta  T- Ta T-TBar T Ta   T- Ta T-TBar T Ta  | T- Ta T-TPoint T Ta   Ta Ta T-TBar T Ta  4 T- Ta TaTBar T Ta   T- Ta T-TBar T Ta  T- Ta T-TBar T Ta 2T T T T T T% {T-TTULNCHARTLLDEEPLLAXIS LLSINGLEDATA LNORIENTATIONTHIS CHARTTYPELCTYPE LLUSEAXIS _DEEPCHART _ALLOWAXIS SINGLEDATA _GENERALTYPE _ORIENTATION_USEAXIS _INREPORTACOORD_NINDEX SHAPELEGEND _FORCEFORMAT#% 9B T  T    T  T  T  T  T  T  T  T   %Legend3T  CC 66T CC C 6 2T  CC CO6%UT  {T C T CT   U TCOBJTYPETNXTNYTNWIDTHTNHEIGHTTNVALUETNSTARTTNSWEEPTHIS _INREPORTN_NINDEXACOORD _CHARTINDEX _CURRENTROWLCLEGEND SINGLEDATACLEGENDFIELDSLEGEND #%C LKT T  %CC N)C B   T T h%(C  (C  yT LegendH ; BarPoint  Legend & C (Rp%C C  C  C  1C C  C  C   DT C  T C  T  T C  % LegendTB%oT %<Ta C/C    <% T %Ta C/C    8/C   B N%T%Ta C/C    Pie 1 !"#$%   &T C  T #C  %'#T !  ()T $  #) (T !  C .T $  #C T &CC $ ! HHM ! wT & & $ T &h & 2T &h & * T * (C T CC   %C N:!T CC   C%C & C &h  T * !% *BT C *  T #C *  *T !  C * ,T $  #C * cT " ! T % $ # T &CC $ ! HH  ! T & & $  T &h &T &h &C%C & C &h  v  % T% Ta C/C   B+T + % "3% +, +- % T% Ta C/C   BT C * T C * T  *T Pie% T *% Ta C/C     % *p T *%= Ta C/C     /C   B 2 U.NBUTTONNSHIFTNXCOORDNYCOORDLNVALUELCLEGEND LNCOORDINDEX LCOBJTYPETHISACOORD MOUSEMOVENLNSTARTLNSWEEPLNLEFTLNTOP _XRELATIVE _YRELATIVESHOWSIDELEGEND SIDELEGENDLEFTWIDTHTOPHEIGHT _GENERALTYPE_NMOUSEONSHAPECHANGECOLORONMOUSE_SKIPPREPAREDATA DRAWCHARTSHAPEMOUSEENTERSHAPEMOUSEMOVESHAPEMOUSELEAVELNX1LNX2LNX3LNY1LNY2LNY3LNANGLE_PIE1STDETACHED_PIEX0_PIEY0 LNFOUNDSHAPELNRATIO CHARTTYPE DONUTRATIO!%C CN ,BT C T C  F #  T T IREPLACE lDetach WITH NOT lDetach FOR RECNO() = m.lnRecno IN &lcCursor %*T a#) C T   T T  CD % ( TT a#) C T TT -UTNINDEXLNRECNO LNCHARTINDEXLLORIGINALDETACHTHISACOORD _DATACURSOR LLORIGDETACHLDETACHLCCURSOR_SKIPPREPAREDATA DRAWCHART_PIEANIMATEDRECLNDETACHPIXELSNLNSTEPPIEDETACHPIXELSPIEDETACHANIMATIONSTEPS_PIEANIMATIONPIX"UNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX"UNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX"UNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX%C5TRectT T #%  C T TC TCQ XFCGRAPHICST QOBJECTH N O QXFCGRAPHICSPATH "%CCOT C %OTCCa TCCaTCTT%u T TC Q XFCSOLIDBRUSHT CC#$!"%QXFCGRAPHICSPATH&Q XFCMATRIXT%CT&C9'()*"C&+C&%,C % -T.  T/  T C0Q XFCBITMAP "%CCO>T0CTCTC T0CC9'(12T0T0T.  T/ C0./ 3 T0 2$%4a    :'C./ 5TTTBU6TNXTNYTNVALUE TCOBJTYPELUSHAPELCTYPELNINDEX LNTIPPIXELSTHIS _TIPPIXELS _CHARTINDEX CHARTTYPE LINECAPSSHAPEFIELDSSHAPELOGFXOGFXLOOBJECTLOPATHLNWIDTHLNHEIGHT_ASHAPESCLONE _CENTERPATH _GETSHAPEPATHLORECT GETBOUNDSWIDTHHEIGHTLNCOLOR BRUSHTYPEACOLORSLOBRUSH SOLIDBRUSHNEWCOLORFROMRGB LOADJPATHLOMATRIXSYSTEMDRAWING DRAWING2DMATRIX TRANSLATE TRANSFORMFILLPATHX1Y1LOBMPBITMAP FROMVARBINARY DRAWIMAGELINECAPS_UPDATECOORDINATES<C"AlphaChannel must be between 0-2559CAxisAlpha must be between 0-255>C$BackGradientMode not available (0-3)5CBarType not available (0-2)7CBrushType not available (1-3)0ChartType #3 not available8CChartType not available (1-14)8CColorType not available (0-27)<C"DonutRatio must be between 0 and 1AC  &GradientLevel not available (-10, +10)>C $ScaleBackAlpha must be between 0-255?C %ScaleBackBarsType not available (0-3)@C &ScaleBackLinesType not available (0-3)@C &ScaleBackLinesDash must be between 0-4<&ScaleDivider must be greater than Zero<&BarsPerScale must be greater than Zero%YCCNCN ^You have to define the property .Fields(1).Color to determine the main starting gradient colorT?!%C9VersionhT9%333333? [Points ChartType #4 is not supported for GdiPlusX System.App versions prior to version 1.20C WPlease make sure to be using at least version 1.20 to be able to use this type of chartUTHIS ALPHACHANNEL AXISALPHABACKGRADIENTMODEBARTYPE BRUSHTYPE CHARTTYPE COLORTYPE DONUTRATIO GRADIENTLEVELSCALEBACKALPHASCALEBACKBARSTYPESCALEBACKLINESTYPESCALEBACKLINESDASH SCALEDIVIDER BARSPERSCALEFIELDSCOLORCOLOR1 LNVERSIONSYSTEMVERSION T C C T T CX7     H C T   C T  2 T T T CC b  T C Hn- OCloPropertiesList. b1T  C   0 CCloPropertiesList. b<(CloPropertiesList. .Count&T  .Item(C_)*C CloPropertiesList. bT   T C 5T C  .  T   %C  _T  WITH . (C_) C .  ENDWITH  2*C CloPropertiesList. bT   6T C 9T  C  .  %C  OT  WITH .  C .  ENDWITH % T #(C '&T  CXC  M(`3-LOCAL loChart as FoxCharts OF "FoxCharts.vcx"+%m.loChart = CREATEOBJECT("FoxCharts") WITH loChart<>%<>loChart.DrawChart() ENDWITH B UTNTYPE TBWRAPPERLCCRLF LNTABSPACES LCPROPERTYLCTABSLCRESULTLOPROPERTIESLISTLCMEMBERLNTYPE LAMEMBERS LAOBJMEMBERSLCOBJMEMLCITEMLNI LCTEMPRESULTTHIS_SAVEDCHARTPROPERTIES_GETCHARTPROPERTIES_SPELLPROPERTY _GETCHARTPROP LCCOMMANDLALINESN-%%T C   *T C    %   T  hT   T  T   &%  "T  hU TNSTARTTNSWEEPTNWIDTHTNHEIGHT LNDRAWSTART LNDRAWSWEEP LNDESTANGLETHISPIECOMPENSATEANGLES_GETADJUSTEDANGLEBUTHIS CHARTCANVAS MOUSEPOINTER1T T U NMOUSEPOINTERTHIS CHARTCANVAS MOUSEPOINTER %  T + %T CC  TC T  U TNCNTLODATATHISFIELDSCOUNTLNINCR LNFIELDNO _NEWFIELDADDREMOVE CHARTSCOUNTT CEmptyNC ChartType C FieldValue C Legend C Color C Shape #C ShowValuesOnShapea B ULODATA H- C G R B t B 2 B U TNSCALENUMBERTNVALUETHIS BARSPERSCALE _MAXSCALEsT  #% d [ B  lB-U TNSCALENUMBERLNRESULTTHIS _MAXSCALE_SCALE _MINSCALETCUTHIS_SAVEDCHARTPROPERTIES_GETCHARTPROPERTIES%HTCTC ~TC]TC]UTHIS _INSIDEFORM _XRELATIVE_OBJTOCLIENTEX _YRELATIVE8#- %Legend_ T  fT CCC _CC C 6CPieC CC d8_%6T  T#%C  )T BUNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX TCOBJTYPETHIS LCCAPTION SHAPELEGENDFORMATCHARTSUMTOOLTIPCAPTION MOUSEPOINTERSHAPEMOUSEPOINTERTHISFORMFOXCHARTSTOOLTIPWIDTHTC #    H] { Ta  %.T C.3TCCThis.C =C \h TC h 'TCCtoPropertiesList.#TCC toSavedProps.HT3CtoPropertiesList.C toSavedProps. %  BT C`&T CtoPropertiesList.T C % CT C `HS '  T ' ' "  T " " 2T [ ] |%C O[9T  C& C& Custom object -  #B* .  =   xT C _!B.  =  UTOPROPERTIESLIST TCPROPERTYTNTYPE TOSAVEDPROPSLCCRLF LBCHANGED LCNEWTYPE LCOLDTYPELCNAMELXVALUELCTYPELCVALUELNPOSTHISNAME-     TCEmptyNT٧Format, FontName, FontSize, FontBold, FontItalic, FontUnderline, FontCharSet, ForeColor, ForeColorAlpha, BackColor, BackColorAlpha, Alignment, Rotation, RotationCenterC,C b(CTCCTCCHC PropertyCCfVERSIONVERSIONACHARTSUMOBMPOGFXACOORDACOLORS SINGLEDATA CURRINDEX CURRVALUE CURRLEGEND CURROBJTYPE CURRCOLUMN CURRRECNOLEGEND1COLOR1 FIELDVALUE1 CHARTTYPE1SHOWVALUESONSHAPE1 FIELDXAXISAPALETTECOLORS _C= Ch +CCThis.  Fields#TC CollectionN ( T CEmptyNC C b  $T CThis.Fields(lnJ). C  C C | Object`CTitleSubtitleXaxis Axislegend2Yaxis Shapelegend Scalelegend Sidelegend CCEmptyN TC loProperties.I%C Axislegend2 Shapelegend Scalelegend Sidelegend R0CCaptionCThis..Caption &CCThis..  BU LOPROPERTIES LAPROPERTIESLASUBPROPERTIES LCPROPERTY LCPROPERTIESLCNAMELCTYPELOOBJECTLNILNJLAFIELDMEMBERS LCFIELDMEMLODATA LUPROPVALUETHISLOFIELDSFIELDSCOUNTADDt %CT s.AlphaChannel.Area3dTop.AreaDrawBorders.AxisAlpha.AxisColor.AxisLegend2.Alignment.BackColor.BackColorAlpha.FontBoldT  |.FontCharSet.FontItalic.FontName.FontSize.FontUnderline.ForeColor.ForeColorAlpha.Format.Rotation.BackColor2.BackGradientModewT  b.BarsPerScale.BarsSpaceBetween.BarType.BrushType.ChangeColorOnMouse.ChartRow.ChartsCount.ChartTypeT  j.ColorType.Depth.DonutRatio.FieldAxis2.FieldColor.FieldDetachSlice.FieldHideSlice.FieldLegend.Fields.Color^T  I.FieldValue.Legend.Shape.Gradientlevel.LegendHideWhenNull.LineCaps.MarginT  t.MarginBottom.MarginLeft.MarginRight.MarginTop.MaxValue.MinNumberScaleLegends.MinValue.MultiChart.OldStylePropertiesT  t.PieCompensateAngles.PieDetachAnimationSteps.PieDetachPixels.PieDetachSliceOnClick.PieEnhancedDrawing.PieShowPercentT  l.PointShapeWidth.Scale.ScaleBackAlpha.ScaleBackBarsType.ScaleBackColor.ScaleBackLinesDash.ScaleBackLinesTypeT  l.ScaleBackLinesWidth.ScaleLegend.ScaleLineColor.ScaleLineZeroColor.ScaleStartValue.SelectedShapeColor.Shape1T  p.ShapeLegend.ShowAxis.ShowLineZero.ShowScale.ShowSideLegend.ShowTips.ShowValuesOnShapes.ShowValueZero.SideLegendDT  /.SourceAlias.SubTitle.Title.XAxis.YAxis.CaptionrT  ].GradientInvertColors.GradientPosition.GradientShapeDirection.GradientType.PieGradCenterAngle`T  K.PieGradCenterDistance.ScaleDivider.Shadow.ShapeMousePointer.LegendPositioncT  N.Debug.ScaleAutoFormat.ShowValuesOnShape.ShowValuesOnShapes.BarLegendDirection`T  K.QualityCompositing.QualitySmoothing.QualityTextRenderingHint.BarLegendTypecT  N.LineCapsShape.PieDetachSliceOnLegendClick.MultiChartMargin.BarLegendDirection3T  .PieForceCircle.RotationCenterUT  @.PieLegendDistance.ShapeLegendExpression.ShowAxis2Tics.TicLengthT )T C.Cf..% ZBC C>\ m BU TCPROPERTYLCLISTLNPOSTHIS _SPELLINGLIST| T T  T  QXFCGRAPHICSPATH Q XFCPOINTFQ XFCRECTANGLET C9T T T  =TC 9 C-C6? T C  B UTNXTNYTNWIDTHTNHEIGHT LNCENTERX LNCENTERYLNANGLE LNDISTANCEXADJUSTYADJUSTTHISPIEGRADCENTERANGLE LOTEMPPATHLOPOINTLORECTSYSTEMDRAWING DRAWING2D GRAPHICSPATHNEWPIEGRADCENTERDISTANCE RECTANGLEADDARC GETLASTPOINT]T!%C C FQTU TCNEWALIASTHIS SOURCEALIAS _DATACURSOR%  "BQLABELT )%CFoxChartsToolTiph (CFoxChartsToolTipLabelQLABELT T   T   T   T   T   T T T T T T T C-C MouseMove MouseMoveUTHISSHOWTIPS _INSIDEFORMLOTIPTOOLTIPTHISFORM ADDOBJECTFOXCHARTSTOOLTIP ALIGNMENTAUTOSIZE BACKCOLOR BACKSTYLE BORDERSTYLEFONTBOLD FONTITALICFONTNAMEFONTSIZEFONTSTRIKETHRU FONTUNDERLINE FORECOLORWORDWRAPZORDERS T%  =BTTTa     TT T CT 9T "T  %T   TJ(  TC FT  H .T  T  T %T   T!"  T  T!" %T  # C   #$ T# T$ ( !T##  %H@ C C 1T$&!&"#  C @T$!"#T&$%CT  /T'  2()QXFCPEN ( %!T* T(C %C(W.T+(!C ,=CLegend % (-Ht= . / 0 1 T)C423T)5 ;C)     67K .&. / 8a  1 9QXFCGRAPHICSPATHT9C :%C9OB-%CC9;@ xfcbitmapxfcimageu(C9  6< /C  Legend=%C :TC : 2t&C  a >*C@  6?*CB  6A%!T  % TTC TDT!ETC DT-TBUF LNPOSITIONLNORIGALIGNMENTTHISLEGENDPOSITIONSHOWSIDELEGEND SIDELEGEND ALIGNMENT _INLEGENDLNLEGENDHEIGHTILNEXTERNALMARGINLNCOUNT LNTOPMARGIN LNVERTHEIGHTX1Y1LNAVAILABLEHEIGHTLNNEEDEDHEIGHTLNMARGINLNWIDTHLNHEIGHT_HEIGHT_LEGENDEXTERNALMARGIN _ASIDELEGENDS MARGINTOPMARGIN _TITLEHEIGHTSYSTEMDRAWING CHARTCANVASHEIGHT MARGINLEFT MARGINBOTTOMWIDTH _RIGHTOFFSETLNLENGTHLNSTART_WIDTH _LEFTOFFSET _LEGENDHEIGHT LCCAPTION LOLINEPEN _CHARTINDEXCAPTION _DRAWSTRING_UPDATECOORDINATES CHARTTYPE_3D BRUSHTYPE MULTICHARTPENNEW _OCLRBLACK DASHSTYLEOGFXDRAWLINELINECAPSLOPATH_ASHAPESCLASS DRAWIMAGE _DRAWSHAPE_PREPAREBRUSHES FILLRECTANGLE _OMAINBRUSH DRAWRECTANGLE _OBORDERPENTOPLEFT _LEGENDWIDTH QSTRING<| GetCursorPoswin32apiQFoxCharts_GetCursorPosT C "T CC \4rs"T CC \4rsUTNXTNYLQPOINT GETCURSORPOSWIN32APIFOXCHARTS_GETCURSORPOSx)Q XFCIMGCANVAS GdiPlusX.vcxTTTT U LOCANVASTHIS CHARTCANVAS SMOOTHINGMODEQUALITYSMOOTHINGTEXTRENDERINGHINTQUALITYTEXTRENDERINGHINTOGFXCOMPOSITINGQUALITYQUALITYCOMPOSITINGQ T*TCC 6 BULNINDEXLNCOLUMNTHIS CURRINDEXACOORDQ T*TCC6 BULNINDEXLCLEGENDTHIS CURRINDEXACOORDQ T*TCC 6 BULNINDEX LCOBJTYPETHIS CURRINDEXACOORDQ T*TCC 6 BULNINDEXLNRECTHIS CURRINDEXACOORDQ T*TCC6 BULNINDEXLNVALUETHIS CURRINDEXACOORDH  TCtoCtrl.%CC%C==TCC=  TTC TC TC6_TCO<>,<>,<>CJ(toCtrl. 2UTCPRPTOCTRLTNTYPELUORIGLNCLRLCRETLCEXPRWRITEEXPRESSIONWTT %P CU TLSHOWTIPS LLOLDVALUETHISSHOWTIPS_PREPARETOOLTIPQXFCGRAPHICSPATH8Q XFCMATRIXQ XFCRECTANGLETCT T TC9 %b)C  CTCT T TT%Cc c  TT5Cc c C BUTOPATHTLSCALELOMATRIXLORECTLNWIDTHLNHEIGHTX1Y1 GETBOUNDSWIDTHHEIGHTSYSTEMDRAWING DRAWING2DMATRIXNEWSCALETHISPOINTSHAPEWIDTH TRANSFORMXY TRANSLATEx  TT%`TBCU TNPALETTETNINDEX LNPOSITION LNMAXCOLORSTHIS_PALETTECOLORSAPALETTECOLORS QINTEGERT H= ^ +C fFORM Z%C TophT   %C fPAGEB% 9T       >T  T    +C fFORM |%C LefthT   %C fPAGEd% A9T         `T  T   B U TOCONTROLTNTYPE LNPOSITION BASECLASSTOPPARENTTABORIENTATIONHEIGHT PAGEHEIGHT BORDERWIDTHLEFTWIDTH PAGEWIDTH" TTTC^TC^TC^TC^TC^TC^TC^TC^T C-^T Cf|L^T C4^T C,P^T CH3^TCtD^TC^TC^TCX^TCm!^TC<X^TC3]*^TC@/T^TCq4^TC]^TCTa^TC1^TCp^TCx^TCx^TCm^TC^TC^T Cu^T!C<#^T"C^T#CU~^T$CbUL^T%CWS^T&Ci$^T'C{l^T(C(^T)Co^T*C^T+C> ^T,C!<e^T-C*,K^T.CQ#-^T/C\^T0Cek^T1C/ ^T2Ck^T3Cp`B^T4C_<0^T5C`UU^T6CY;;^T7CrL^T8CL=^T9CG^T:Cl^T;C)^T<C_^T=CC+^T>C},^T?CB^T@C9^TACL|P^TBCVV^TCCC^TDC{v^^TEC@^TFC==^TGC^THC^TIC=s^TJCQ^TKCmsI^TLCv!^TMCFof^TNClbb^TOC^TPC^TQCQ^TRC Q^TSC|^TTCl^TUC3K^TVC{k^TWCu^TXCf^TYC9^TZCq^T[CP"^T\C8^T]Cx@^T^C<^T_C ^T`C^TaC1t^TbC;^TcCK^TdC-^TeC^TfC^TgC^ThCs^TiC.Y^TjC-+^TkCf/^TlCM:e^TmC&s^TnCY^ToC^TpC^TqCF^TrC|8^TsC>^TtC{^TuC,h^TvCR^TwCp^TxC^TyCGPs^TzCGq^T{C)^T|C^T}CM<^T~C]IC^TC^TC^TCjS^TCm ^TC^TC<Z^TC^@^TC=`^TC^TC|^TCfR^TC1^TCN^TCg^TC^TCM^TCo^TC^TC"du^TC^TC^TCPk^TCa'^TC,:_^TCa^TC[^TC.^TCDu^TCv^TCVSn^TCDP7^TCi`F^TCRW^^TC^TCb@^TCL^TCy^TC^TC^TCt^TCz^TCe^TC~G^TC>^TCN^TCg^TCS^TC+^TCE^TCO?^TC,z^TCU^TC9^TCfQ^TC>N^TC7^TCl^TCi^U LNMAXCOLORSTHIS_PALETTECOLORSAPALETTECOLORSm#%C Thisform.NamebCTa)%CFoxChartsToolTiph (CFoxChartsToolTipLabel T-TT%CLT-T (TaTT C9 %TC9 QXFCPEN"TC 9 TT CH|*GdipSetPathGradientSurroundColorsWithCount GDIPLUS.DLL8|GdipSetPathGradientCenterPoint GDIPLUS.DLLTa CUTHIS _INSIDEFORMTHISFORM ADDOBJECT BORDERWIDTH BACKSTYLE_3D_USING3DDEPTH _OCLRBLACKSYSTEMDRAWINGCOLORFROMRGB _OCLRWHITE LOBLACKPENPENNEW _OBLACKPEN_ORIGMOUSEPOINTER MOUSEPOINTER _INITPALETTES*GDIPSETPATHGRADIENTSURROUNDCOLORSWITHCOUNTGDIPLUSDLLGDIPSETPATHGRADIENTCENTERPOINT_STARTED TT%C [TC uTT T C U TNXTNYTNINDEXLCEXPRLUVALUETHISSHAPELEGENDEXPRESSION CURRINDEX CURRVALUE SHAPELEGEND_VALUE_HEIGHT _DRAWSTRING CUTHIS_GETRELATIVEPOSITIONSBCUTHIS_GETRGBSELECTEDSHAPECOLOR#Q XFCGRAPHICST   Q XFCSOLIDBRUSHT   QXFCPENT  T  QXFCGRAPHICSPATHTC9 C%C C+C *C +C  CC  C  U TNXTNYTNWIDTHTNHEIGHTTNSTARTTNSWEEPTOPOINT1TOPOINT2LOGFXTHISOGFX LO3DBRUSH _O3DBRUSHLOPEN _OBORDERPENLN3D_3DLOPATHSYSTEMDRAWING DRAWING2D GRAPHICSPATHNEW STARTFIGUREADDARCREVERSEADDLINEXY CLOSEFIGUREFILLPATHDRAWPATH% h;T  h%  jT  hT C TH C Z*T CCCC E  I 2&T CCCC E  I%  ?T  h%  sT   B UTNANGLETNWIDTHTNHEIGHT LNNEWANGLE(!%  TCDTTT !T   B F T12CQXFCFONTQXFCSIZET T TT% ~ TCO T% %CC"a! TTC#$T%TCDT&TCDTT#) '('TC()TC#$T%TCDT&TCDTTH! C<T*T!TT !T    CT*TT!T !T    C|TT*TT (T    C  TT*TT !T    2!U+THISSHOWSIDELEGENDLEGENDPOSITION _LEGENDWIDTHMARGIN MARGINRIGHT _LEGENDHEIGHT _LEFTOFFSET MARGINLEFT _RIGHTOFFSET _TOPOFFSET MARGINTOP _TITLEHEIGHT _DATACURSOR SIDELEGENDCAPTIONRESET LNCURRWIDTH LNMAXWIDTH LNCURRHEIGHT LNMAXHEIGHTLNLEGENDHEIGHTLNLEGENDPOSITIONNLOFONTLOSIZE_OFONT SINGLEDATA _ASIDELEGENDS _NRECORDS LCCAPTIONCLEGENDLEGENDHIDEWHENNULL _GETVALUECHARTROWOGFX MEASURESTRINGWIDTHHEIGHT CHARTSCOUNTFIELDSLEGEND_LEGENDEXTERNALMARGIN%C LCT %CtT T T T  T C DT C D  T  T C  %C N4T CT 9% TC jT C #TCC 0%  Point f T &%  bT  H )T!CC$ #"4T%CC$C #" &QXFCCOLOR)T&C$C #'QXFCCOLOR/T'C$C ( #%)*QXFCCOLOR T*' T'& T&*H! Pie +QXFCGRAPHICSPATHT+C,-%C   +./QXFCPATHGRADIENTBRUSHT/C+,0T/1'%23Q XFCPOINTF+T 3C   4C/6C 3758T 8C&94rsC/68:%;C=?/< C=?/>T!/ Bar T C DT C D!?QXFCLINEARGRADIENTBRUSHCT?CC   A&'B,@%;C=?< C=??>T!? Point)T'CC (!?QXFCLINEARGRADIENTBRUSHCT?CC   A&'B,@%;C=?< C=??>T!?4T%CC$C #" C!%DE sT C  T CCO*T!C CG,F,T%C CHI,FBUJTNXTNYTNWIDTHTNHEIGHTTLRECTTNCOUNTTHIS CHARTCANVASWIDTHHEIGHT LNBRUSHTYPE LNMAINCOLOR BRUSHTYPEACOLORS_GETRANDOMCOLOR_NCOLORSYSTEMDRAWING _OBORDERPENPENNEW _OCLRBLACKLNCOLOR CHANGECOLORCOLORFROMRGB _INLEGENDCHANGECOLORONMOUSE _GENERALTYPELNSHAPE_NMOUSEONSHAPE_NINDEXSELECTEDSHAPECOLOR _OMAINBRUSH SOLIDBRUSHFROMARGB ALPHACHANNEL _O3DBRUSHLOCOLOR1LOCOLOR2 GRADIENTLEVELGRADIENTINVERTCOLORS LOTMPCOLORLOPATH DRAWING2D GRAPHICSPATH ADDELLIPSELOPATHGRADBRUSHPATHGRADIENTBRUSH CENTERCOLORPIEGRADCENTERDISTANCE LOCENTERPT_GETCENTERPOINTGDIPSETPATHGRADIENTCENTERPOINTHANDLE TOVARBINARYLQCOLORSARGB*GDIPSETPATHGRADIENTSURROUNDCOLORSWITHCOUNT GRADIENTTYPESETSIGMABELLSHAPEGRADIENTPOSITIONSETBLENDTRIANGULARSHAPELOLINGRADBRUSHLINEARGRADIENTBRUSH RECTANGLEGRADIENTSHAPEDIRECTIONLNHATCHBRUSHVALUE CHARTSCOUNT SINGLEDATA HATCHBRUSH _OCLRWHITEGRAY LIGHTGRAY$ FT % %  (!T C H T  T C  PT C %C NLT C  T C  B T C T CT   ~ H] T  T CCO   T C  B ,T CCO"  C ]T !  C %T C B T CCO 2TCO T-UTHIS _DATACURSOR LNCOLORTYPE COLORTYPE SINGLEDATALNCOLORACOLORS CHARTSCOUNTNLCINDEX_STR BRUSHTYPE_GETBASICCOLORFIELDSCOLOR_GETRANDOMCOLOR_UPDATERANDOMCOLORS_GETGRADIENTCOLOR_GETPALETTECOLOR _NRECORDS FIELDCOLORNCOLOR99.J(%C C2C     T%C C6C     TTBUSYSTEMDRAWING LNTITLEHEIGHTLNSUBTITLEHEIGHT LNTITLECOLORTHISTITLECAPTIONRESET _DRAWSTRINGMARGIN MARGINTOP CHARTCANVASWIDTHHEIGHT_HEIGHTSUBTITLE _TITLEHEIGHT FT-H32 C  G T ~C T( TC % TaT%CO T -TCFTCD u *T .nValueC FCalculate Max (&lcField.) To lnMaxValue for not IsNull (&lcField.) GCalculate Min (&lcField.) To lnMinValue for not IsNull (&lcField.) FCalculate Sum( &lcField.) To lnSumValue for Nvl(&lcField. , 0) > 0 T 22  T/TCC  6(.(T .nValueC GCalculate Max (&lcField.) To lnMaxValue1 for not IsNull (&lcField.) HCalculate Min (&lcField.) To lnMinValue1 for not IsNull (&lcField.) % Ta% T T *TCDTCFC T% TBUTHIS _DATACURSOR _HASNEGATIVESLNVALUE CHARTTYPEILNTOTAL LNMAXVALUE LNMINVALUE CHARTSCOUNT _GETVALUE SINGLEDATALCFIELD_STRCHARTROWCHARTSUM LNSUMVALUE LNMAXVALUE1LNREALCHARTSCOUNT LNMINVALUE1_CALCULATESCALE_ASHAPES_USING3D_3DDEPTH#!%C C pTFCharts_C]T  T %     (T C !T CThis.ChartType %C ,T  "T CThis.FieldValue %C }T  T C This.Legend %C T  T C This.Color %C T  T C This.Shape %C bT  )T CThis.ShowValuesOnShape T  %C TTTC'TCCSPACE(0)6"TCC .F.63TCCEVALUATE('00000000')6"TCC .F.6'TCCSPACE(0)63%CC CCCC H;2Must specify properties SourceAlias and FieldValueB-"%CC.YT C!T"YT AS  )T CAST( T"N T T  #$%& T# (T C T&C ,T$&CC ) 6)T##$ AS nValue , IC& Property: Fields( ).FieldValue was NOT assigned#oǼFCharts_TempDataSELECT &lcSQL &lcLegend AS cLegend, &lcDetach AS lDetach, &lcColor AS nColor, &lcSliceHidden AS lSliceHidden, &lcAxis2 AS cAxis2 FROM FCharts_TempData INTO CURSOR &lcCursor READWRITE Q' T( %(,B- F)(& CO*<G!(T+-T,U-LCALIASLCLEGENDLCDETACHLCCOLOR LCSLICEHIDDEN LCNUMTYPELCCASTLCCURSORTHIS _DATACURSOROLDSTYLEPROPERTIESLUVALUENLCN CHARTSCOUNT_STRFIELDS CHARTTYPE FIELDVALUELEGENDCOLORSHAPESHOWVALUESONSHAPE FIELDXAXIS FIELDAXIS2 SOURCEALIASLCVALUE1 FIELDLEGENDFIELDDETACHSLICE FIELDCOLORFIELDHIDESLICELCAXIS2 _VALUETYPE _GETFIELDTYPE _VALUEFORMATLCSQLLCNAMEZLCVALUEZLCFIELDFCHARTS_TEMPDATA _NRECORDS_APOINTSREVERT_SKIPPREPAREDATA_NMOUSEONSHAPE-TC (TCC %CfCCfTC TC %"TC9Q.C9Q $TN(CCZ,CCZ! BU TCALIASTCFIELDTLMASK GNFIELDCOUNTLNCOUNT LCCURRFIELD LNINTEGER LNDECIMALSLCTYPE GAMYARRAY F+      T-TTT T(T.T  0%    4BQ XFCGRAPHICST T  T %T  T   !"#$#% ~ TCO T%<TC  6T!!T&C! (#T' TC (T  T %T" T% %6CRect  )T$ * C+, - ./0QXFCBRUSH%1T 0This._o3dbrush DT 0This._oMainBrush923 (#(KT/,T,CC!C "45% $T,/CC! 45 G/T,/CC!C "45*C- 6C8, 7C:, 9% (,T-C,:T-CC,; C,< 45@T-CC,; C,< 45T-C,oCC,;C,< C,; C,;CCC,<C,<D- 6CC 0- 7C:- 9T.C-T.C-T.C,8T.CC.; C.< 45/CC.;C.< - 6CC 0. 7C:. 9%=> (#%C ?@(TC!TC "T>C $C>A CBUCTHIS _DATACURSORLNMARGINLNWIDTHLNHEIGHTLNVALUELNRECS LNBETWEENNI LNMAXVALUE LNPOINTHEIGHTLN3DLNYBASE LNTIPPIXELSX1Y1 LLMULTICHART _TIPPIXELSMARGIN_3D _NRECORDS CHARTCANVASHEIGHT _XAXISHEIGHT _TOPOFFSETWIDTH _YAXISWIDTH _LEFTOFFSET _RIGHTOFFSETLOGFXOGFX _SCALERANGE LAPOINTSX LAPOINTSY CHARTSCOUNT LAPOINTSI LNPREVPOINT_APOINTS _CHARTINDEX _GETVALUE_UPDATECOORDINATES_NINDEX_DRAWVERTICALLINEBACK LAMAINPOLYGON LALINEPOLYGON LASIDEPOLYGONLNCOMPLLOBRUSH BRUSHTYPESYSTEMDRAWINGPOINTNEW_PREPAREBRUSHES FILLPOLYGON _OMAINBRUSH DRAWPOLYGON _OBORDERPENXYSHOWVALUESONSHAPESLNINDEXFIELDSSHOWVALUESONSHAPE_DRAWSHAPELEGEND_DRAWXAXISLEGEND5"%   EB!C  =CPie        % T  T    T  T $C  -CO QXFCPENT Q XFCGRAPHICST QXFCBRUSHT QXFCBRUSHTT  %hThT 9*% + % -  T T T T 6C      1C    !"QXFCGRAPHICSPATH##QXFCPOINT$QXFCPOINTT"C9%&'.C -C6?"(T#C"))C  "(T$C") * +,T+ T,  T*C+,-'%T*C+, -'*T*C## -'T*# .T.C*T.C**T.C$$ -'T.$#% Z  lC * /C* 0% Z C. 0C . /1QXFCGRAPHICSPATHT1C9%&'T129%23 C14 56T5 T6 4%  h C  T7a8QXFCGRAPHICSPATHT8C9%&' C84-C h 89 C8:+C#### 8;2C  h 890C ,  ,8;C8 <C 8 =!T#C ,-' T5T6 h N%   *  \(p@  & T>a?QXFCGRAPHICSPATHT?C9%&' C?4%  T5 T6  T5 T6 %C56?9 C?:+C#### ?;*C 56?9&C ,  ,?;C? <C ? =T#C ,-' T5T6%C5619 C1:+C#### 1;*C 5619+C$$ $$1;C1 <C 1 =#% Z  _ C * /C* 0%Z C. 0C . /1C     1C    ! ' % @Q XFCSOLIDBRUSH+T @CCDBCA':C@       9C        9C       ! &EQ XFCBITMAP TEFGQ XFCGRAPHICSTGCEHICBKGJTGL%LM% NOTN 2C N    G 2C N    G!O( 2TNN0CN    G % Z7C N   ?GPHC N    ?ffffff?GP2C N    G T  T  N% Z(C  GQ2C N    G!2C N    G 2C N    G!CSERCE  T "9C        9C       !BUUTNXTNYTNWIDTHTNHEIGHTTNSTARTTNSWEEPTNVALUETHIS_ADJUSTSTARTSWEEP_UPDATECOORDINATESLNXBRUSHLNYBRUSHPIEENHANCEDDRAWING_PREPAREBRUSHESLOPEN _OBORDERPENLOGFXOGFX LOMAINBRUSH _OMAINBRUSH LO3DBRUSH _O3DBRUSH LNFINALANGLELN3D_3DSYSTEMDRAWINGSHADOWXYWHFILLPIEDRAWPIELOPATHLOPOINT1LOPOINT2 DRAWING2D GRAPHICSPATHNEWADDPIE GETLASTPOINT LAPOINTSA LNCENTERX LNCENTERYPOINT LAPOINTSB DRAWPOLYGON FILLPOLYGONLOPATH2FILLMODEWINDING STARTFIGURE LNADJSTART LNADJSWEEP LLADJRIGHTLOPATH3ADDARCREVERSEADDLINEFILLPATHDRAWPATH LLADJLEFTLOPATH4 LOSHADOWBRUSH SOLIDBRUSHCOLORFROMARGB ALPHACHANNELLOBMP POTEMPBMP LOTEMPGFXGRAPHICS FROMIMAGECLEAR TRANSPARENT SMOOTHINGMODE ANTIALIASY1NDRAWARCDRAWLINEAPPLYCOLORMATRIX POCLRMATRIX DRAWIMAGE' 4C-CCO6 Q XFCGRAPHICST   T  "T C ?FT  QXFCBRUSHQXFCBRUSH9 QXFCPENT C<T CD T CCHz (1TCC C&TCC 1TCC CT ! &TCC  T TT ! 24C-CCO6T! T TT !T  %"#$%T$ T%$T#$  & T&C#'%T&C$ '%T&C% 'C & (C& )*T* + T+C#*'%T+C$* '%T+C%* 'C + (C+ ) ,T,C&T,C&T,C+T,C+C , (C, ) -T-C&T-C&T-C+T-C+C - (C - ) ./0T CD T$T%$T.  - T-C%.'#T-C%'&T-C%'C - (C- ) , T,C$.'#T,C$'&T,C$'C , (C, ) &T&C,T&C,T&C-T&C-C & (C& ) +T+C,T+C,T+C-T+C-C + (C + )!C$1BU2TNXTNYTNWIDTHTNHEIGHTTNVALUETHIS_PREPAREBRUSHES SINGLEDATA _CHARTINDEXLOGFXOGFXLNALPHA LNORIGALPHA ALPHACHANNEL LOTOPBRUSH LOBOTBRUSHSYSTEMDRAWINGLNCOLORLN3DLOPEN CHANGECOLOR_NCOLOR_3DPENNEWCOLORFROMRGB BRUSHTYPE SOLIDBRUSHFROMARGB LOLEFTBRUSH LORIGHTBRUSH _OMAINBRUSH _ORIENTATION LNCENTERXX0X1 LATOPPOINTSPOINT DRAWPOLYGON FILLPOLYGONYBOTT LABOTPOINTS LALEFTPOINTS LARIGHTPOINTS LNCENTERYY0Y1_DRAWLEGENDINBAR%BQXFCPEN Q XFCSOLIDBRUSH T a9 % TC^ T TT$T CC.TCCT%tT (TC"TC% 8%C42C  ! %C"(C! #(C! #T  U$THIS _ORIENTATIONNX0X1 LNLINECOLOR LNRECTCOLOR LNDASHVALUE LOBACKPEN LOBACKBRUSH LLDRAWBACKSYSTEMDRAWING BRUSHTYPESCALEBACKCOLORSCALELINECOLOR SOLIDBRUSHNEWCOLORFROMARGBSCALEBACKALPHAPEN AXISALPHASCALEBACKLINESWIDTHSCALEBACKLINESDASH DASHSTYLE _NRECORDS_APOINTS_3DSCALEBACKBARSTYPEOGFX FILLRECTANGLE_CHARTY1_CHARTY0SCALEBACKLINESTYPEDRAWLINEb%CB FTC  T  T  ~ T T T$TCCO  C T  % BBT  %TC^ T TTQXFCPENTQ XFCSOLIDBRUSHQXFCPEN QXFCPEN!"Q XFCGRAPHICST "#9$%d$TCC*()&'.TCC,()-+'T!.%!T/!0T0C213QXFCCOLORT3C,0()T C3+''T45 .T678 9:;<= T=aT:T9>%?: T> i%T>CC;(?WTTC; T<%@,C9<9B< "A%;?!!/C 9<9 <  "A CDTC9 TD< %=%CE#CCD6> "F%CGE&CCDC6D "A,CCD>C6D> "AT== BUHTHIS FIELDAXIS2 _DATACURSORX1Y1LCTEXT CHARTCANVASHEIGHT _XAXISHEIGHT AXISLEGEND2_SETUPLNORIGALIGNMENT ALIGNMENTCAXIS2CAPTION _YAXISWIDTH _LEFTOFFSET_APOINTS_HEIGHT _DRAWSTRINGSHOWAXISLN3D_3D LNRECTCOLOR LNLINECOLOR BRUSHTYPESCALEBACKCOLORSCALELINECOLOR LOBLACKPEN _OBLACKPEN LOBACKBRUSH LOBACKPENLOPEN LNDASHVALUELOGFXOGFXSYSTEMDRAWING SOLIDBRUSHNEWCOLORFROMARGBSCALEBACKALPHAPEN AXISALPHASCALEBACKLINESWIDTHSCALEBACKLINESDASH DASHSTYLELNAXISBORDERCOLOR CHANGECOLOR AXISCOLORLOAXISBORDERCOLORLNHEIGHT _TOPOFFSETLNXWIDTHWIDTH _RIGHTOFFSETX0Y0NY LLDRAWBACK LNONESCALE _NRECORDS SHOWAXIS2TICSDRAWLINE TICLENGTHX1SCALEY1SCALESCALEBACKBARSTYPE FILLRECTANGLESCALEBACKLINESTYPE%CB%C NMT  fT QXFCSIZE  T   T C ~T T T CCO%C N9.%4C    T   C  UTN3DTHIS FIELDAXIS2LNADJUSTLOSIZEY0X0X1Y1LCTEXTLNXPOINT CHARTCANVASHEIGHT _XAXISHEIGHT AXISLEGEND2_SETUPCAXIS2CAPTION_APOINTS SHOWAXIS2TICSOGFXDRAWLINE _OBLACKPEN TICLENGTH _DRAWSTRING] T CW%Q FOXCHARTS FoxCharts.VcxT T T  C%C C  !*%    !C  C "%  C %C  eC  C !C C   F#)C  C C C C  % $C T  ,%C     {C8The selected Chart type does not support negative valuesC The chart will not be drawn0 Invalid Datax H Pie-C   BarUC ! C C " C  C #C $C %T &-T -T ' F  C(()R %*9 +,-./T.C C T /.C=(T ;PROCEDURE HIERARCHY /)<C>(0/T =CC <]C C <]\T ; ; CCC =C == in CCC <]C C <]\, CC <>_C C ? T?!%C9@Versionh{T?9@AT +Visual FoxPro CCh_.System: CCJ_ - CCJ_.GdiPlusX Version: C ?_.FoxCharts Version: #CA_ - CB_ /.C m T CCDT CC CC . T C Not Available3T CChart Properties. /. C%C -0 -IC + , / C / ; / 9 / : -CVA Log file containing info about this error and your environment details was created: ..C-..?Please send it to: vfpimaging@hotmail.com to help us fixing it...,..Sorry for the inconvenienceFoxCharts Errorx N )BUELNSELECTLOCHART FOXCHARTSVCXTHISOGFX CHARTCANVASOBMP_UPDATEQUALITY SOURCEALIAS_PREPAREBACKGROUNDWIDTHHEIGHT _CHECKPARAMS_UPDATECHARTINFO_SKIPPREPAREDATA _DATACURSOR _PREPAREDATA _PREPARETITLE_PREPAREVARIABLES_PREPARECOLORS_PREPARESIDELEGEND_PREPARELEGEND _DRAWAXIS_PREPARETOOLTIPSHOWVALUESONSHAPES SHAPELEGEND_SETUP LNCHARTTYPE CHARTTYPE _HASNEGATIVES _GENERALTYPE _DRAWPIECHART _DRAWBARCHART_DRAWLINECHART_DRAWSTACKEDAREACHART_DRAWSIDELEGENDS AFTERCHART_FIRSTACTIVATE _YAXISWIDTH_GETRELATIVEPOSITIONS LOEXCEPTIONDEBUG LCVERSIONLCERROR LCERRFILELCCRLFLCLINEERRORNOLINENOMESSAGE PROCEDUREDETAILS STACKLEVEL LINECONTENTS USERVALUELCDIRLCMEMORYLCSTATUS LCHIERARCHYLNLEVEL LCPROCEDURELASTACK LNVERSIONSYSTEMVERSIONVERSIONA LCCHARTPROPSGETCHARTPROPERTIESBCUTHIS_GETRGBSCALELINECOLOR %    %FT gTTB T  Q XFCGRAPHICST  9  %*T C^T  cT T C QXFCCOLORQXFCCOLORTC TC QXFCPENT CQ XFCSOLIDBRUSHT C T % mT !" T !#$%&T%'(T&)%%& B%a*T*+,%C* C+- ./T .%&T /C+w"% . / BT+T+0+C2& . . /+1 T2 C3T4T 459 T#2T$# % +C #%#& 6  7 T7C#%8(T7C#) 8'T7C# )8*T7C# % 8C 7 9C 7 : ;#T;C#%8&T;C#%8+T;C#) 8+T;C# )8'T;C# )8(T;C#) 8C ; 9C ; :9  )T <'() #T='( T>= <T 2#$%T# T$'?@T%'(%a, % 0%C #%$% 6 ( 7 T7C#%8*T7C# % 8%T7C$% 8%T7C$ %8C 7 9 ;T;C7T;C7T;C7/T;CC7A% 8)T;CC7A%8)T;CC7A%8C ; 9C ; :/C #%# %  6%C, C-BCDET B T C%FT D$#T E(C B C D E1%G C HUITHISSHOWAXIS _ALLOWAXIS _ORIENTATION _YAXISWIDTH_SCALEW _XAXISHEIGHTXAXIS_HEIGHT LNTICKWIDTHLOGFXOGFXSYSTEMDRAWING LNAXISCOLORLNAXISBORDERCOLOR BRUSHTYPE AXISCOLOR CHANGECOLORLOAXISMAINCOLORLOAXISBORDERCOLORCOLORFROMARGB AXISALPHALOPENPENNEWLOBRUSH SOLIDBRUSHLN3DLNMARGINMARGIN _DEEPCHART_3D CHARTSCOUNTX0X1Y0Y1 CHARTCANVASHEIGHT _TOPOFFSETLCYTEXTYAXISCAPTIONRESET LNYAXISWIDTH LNYAXISHEIGHTROTATION _DRAWSTRING _LEFTOFFSET_GETYLEGENDSIZE LNMAXVALUE _SCALERANGEDRAWLINELAPOINTSPOINT FILLPOLYGON DRAWPOLYGON LAPOINTSBLNHEIGHT_CHARTY0_CHARTY1WIDTH _RIGHTOFFSETXLNXLNYLNWLNH_LEGENDPIXHEIGHT SHOWSCALE _DRAWSCALE%: %- - 6B%bT-BT-T-TT  T a% TaBU THIS _INSIDEFORMTHISFORMVISIBLE_FIRSTACTIVATE_UPDATERANDOMCOLORS CHARTCANVAS LREDRAWNOWWIDTHHEIGHT_SKIPPREPAREDATA_STARTED6TTaT-U TNCHARTTYPETHIS CHARTTYPE_UPDATERANDOMCOLORS_SKIPPREPAREDATA?T%8TaU TNCOLORTYPETHIS COLORTYPE_UPDATERANDOMCOLORS #%C C NN7 B% [ B T  d T C T CC  T CC % =NBC         ^ ?BC         ^UTNRGBTNLEVELLNREDLNGREENLNBLUEQT%9 (5TC%1 C ChartType!C FieldValueCLegendCColorCShape&CShowValuesOnShapeaCU TNCOUNTTHIS CHARTSCOUNTOLDSTYLEPROPERTIESNLCINDEX_STR ADDPROPERTY_SETFIELDSCOUNT(TTaU TNBRUSHTYPETHIS BRUSHTYPE_UPDATERANDOMCOLORS% WC9TT % { C C U THISBACKCOLORALPHA CHARTCANVASCLEARSYSTEMDRAWINGCOLOR TRANSPARENT RENDERMODE BACKSTYLE_STARTED _INITCHARTDRAW CUTHIS _INITCHART#%CQTC ?DC  T  T   T   TQXFCGRAPHICSPATHQ XFCPOINTFQ XFCRECTANGLETC9T T =TC9 C -C6?TCTTBUTNXTNYTNWIDTHTNHEIGHTTNSTARTTNSWEEPTNVALUE TNDISTANCETHISPIELEGENDDISTANCE_ADJUSTSTARTSWEEP LNCENTERX LNCENTERYLNANGLE LNDISTANCEXADJUSTYADJUST LOTEMPPATHLOPOINTLORECTSYSTEMDRAWING DRAWING2D GRAPHICSPATHNEW RECTANGLEADDARC GETLASTPOINTXY&#UNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX TCOBJTYPE&#UNBUTTONNSHIFTNXCOORDNYCOORDTNVALUETCLEGEND TNCOORDINDEX TCOBJTYPET C 2CRect    Hm +C    B +C     B<C   -C CO 6  QXFCPENT Q XFCGRAPHICST QXFCBRUSHT QXFCBRUSHT T 9%(%- +T C  6T C    0T C   &T C C  C  <T C     0T C   C  C   $Q XFCSOLIDBRUSH+T CC#!" >C       $ )T C .T C  6T C   2T C   C  -C     $-C    %%&Bar+C    'BU(TNXTNYTNWIDTHTNHEIGHTTNVALUETHIS_UPDATECOORDINATESBARTYPE _DRAWCYLINDER_DRAWTRIANGLEBAR_PREPAREBRUSHES SINGLEDATA _CHARTINDEXLOPEN _OBORDERPENLOGFXOGFX LOMAINBRUSH _OMAINBRUSH LO3DBRUSH _O3DBRUSHLN3D_3DSYSTEMDRAWINGSHADOWLAPOINTSPOINTFNEW FILLPOLYGON DRAWPOLYGON LOSHADOWBRUSH SOLIDBRUSHCOLORFROMARGB ALPHACHANNEL FILLRECTANGLE DRAWRECTANGLE _GENERALTYPE_DRAWLEGENDINBAR7' F T  0T     )T     $%   BT   T   T  T  % 'T C    F+T     ~ TCO(T    )T     'T C     F+T      ~ TCO(T    )T     C  C H  !"T" #  ,T    $  % %!T  %  T & ' ~T C 'a (!%C   % .%  HT    T  7T    C # "6T  'T    CO+C      ) \*+ "T +  , ,T    $  % %!T  %  T" #   ~H TCO*( ,DT &*T C*a (!%C   % =.8T    * +%  T    T  7T    C # "6T  +C   +   )T &  T -    ~T  -*( ,T &*T C*a (%C .T    'T    COT   +C      )T &   $T   ,$T    ,+T     *( , T &*T .  ,* ~ TCOT C*a (-T   .  CO%* , )T    %C 0 .T /   4T    / .  ,"T -   .T  - +C      )  8 #%    ^ T %T      0":T 0 C #  #  6T " #  T & 'G((Revert ~. T C 'a (!%C   % 0 .%   T C   T  0   7T    C # "6T  0.T    CO +C      )G((  #%     T %T     +T      *2T 2  , 0":T 0 C #  #  6T " #  G((Revert ~ TCO#* ,(T &*T C*a (!%C   % .%  >T C   T  0  7T    C # "6T  0?T     * 2+C    2  )G((T & #%    T %T     G((Revert ~T  *( ,T &*T C*a (%C .T    .T    CO +C      )T   G((T & 2% ,% 3C  4 ( C 4BU5LNWIDTHLNHEIGHTX1Y1NLNVALUE LNLEFTMARGINLN3D LNTOPMARGINTHIS _DATACURSOR_3D CHARTCANVASWIDTH _LEFTOFFSET _RIGHTOFFSET _YAXISWIDTHHEIGHT _XAXISHEIGHT _TOPOFFSET LNBARWIDTH LNBARHEIGHT LNBETWEEN LNMAXVALUEBARSSPACEBETWEEN _SCALERANGE _ORIENTATION _NRECORDS_APOINTS_DRAWYAXISLEGEND_DRAWVERTICALLINEBACK CHARTTYPELNZEROYLNVALUE2LNSCALEADJUSTMENT _SCALEADJUST _MAXSCALE _MINSCALE _CHARTINDEXCHARTROW _GETVALUE_DRAWBARI LNONEBARWIDTH CHARTSCOUNTLNYBASELNADJUST LNPOINTHEIGHTLNZEROXREVERTLNONEBARHEIGHTBARTYPE_DRAWXAXISLEGEND F     T ,T bT C 6T C FT  % T ?%   iT  T    T %T  +%       B+T   +T   T  %! 9"#5$5%0T$C   &'T%C()'T%*+ ,-./01T02 T.T34T5-T~  T6 T7 TC48%.T h%p= v@*Tp= v@ T/9%:a^%.T5aT;6T<7%CO=T1>  T1 T? T@!C?@  ATBh?@ T6 CCBC1T7 CCBD1  T6 T7 %!%/ %C-C67  D 0-C67  E%0-C67  FT,.6T,.7T,.T..T#6T+Z{ T6 T7 TC48%%Cf! H%C!.T h%p= v@Tp= v@T T/9%:a) T? T@%fffffp@rT5aT;6T<7%CO=T1>  T1!C?@  ATBh?@ T6 CCBC1T7 CCBD1%/ W %C -C67  D  -C67  E%0S -C67  FT,.6T,.7T,.T.. H%Cw !%C3GH %0 IJTIKLTKLJ(. MTMN%CM @ TOJTCM O %P, Hm  CKQ MTKRCTC%This.Fields(This.ChartRow).FieldValueaS% %KQ TKRKQ%TCJ, d K TCJ,TKUT6CJ,%C6N !T7CJ,C67KVTKRTKLIUWTHIS _DATACURSORLNDETACHPIXELSLNSTARTLNSWEEPLNANGLELN3DLNVALUELNWIDTHLNHEIGHTLNXLNYLNTOTAL LNMAXWIDTH LNMAXHEIGHTPIEDETACHPIXELS CHARTCANVASWIDTH _LEFTOFFSET _RIGHTOFFSETHEIGHTMARGIN MARGINBOTTOM MARGINTOP _TITLEHEIGHT_3DLEGENDPOSITION _LEGENDHEIGHTPIEFORCECIRCLELNFACTORPIECOMPENSATEANGLES _TOPOFFSETCHARTSUMPIEENHANCEDDRAWINGSYSTEMDRAWING POTEMPBMP POCLRMATRIXBITMAPNEWIMAGING COLORMATRIXMATRIX33 ALPHACHANNEL LALEGENDS _NRECORDSLNRECLLHIDDEN LLDRAWLEGEND LNPIXELSOUTSHOWVALUESONSHAPES _CHARTINDEXCHARTROW_PIE1STDETACHEDX1Y1 _GETVALUE LSLICEHIDDENLDETACH_PIEX0_PIEY0_PIEANIMATEDREC_PIEANIMATIONPIX LNTEMPSTART LNTEMPSWEEP_ADJUSTSTARTSWEEP LNDETACHANGLE CHARTTYPE _DRAWSLICE_DRAWDOUGHNUTSLICE_PREPARELEGENDINSLICEFIELDSSHOWVALUESONSHAPE LNORIGALIGNN SHAPELEGEND ALIGNMENTLCEXPRSHAPELEGENDEXPRESSION CURRINDEXPIESHOWPERCENTFORMAT _FORCEFORMAT _GETFIELDTYPE SOURCEALIAS_VALUE _DRAWSTRING4C-CCO6 QXFCPENT   Q XFCGRAPHICST  T"T C?FT QXFCBRUSHQXFCBRUSH9H.? 1TCCC&TCC &TCC T 2?4C-CCO6T TT%T C DT  T! T" T  %C"  #'C"  #$QXFCGRAPHICSPATHT$C%& C$'%C" $( C$)&C$*%C! $(C$ +C $ ,%C!  #'C !  -!C. /T C D T/T0T1 $QXFCGRAPHICSPATHT$C%& C$'&C $(5C  0  $*%C0 Z$(/C0    $*C$ +C $ ,%C0  #'C 0  -%C  #'C  #!C.U2TNXTNYTNWIDTHTNHEIGHTTNVALUETHIS_PREPAREBRUSHES SINGLEDATA _CHARTINDEXLOPEN _OBORDERPENLOGFXOGFXLNALPHA LNORIGALPHA ALPHACHANNEL LOTOPBRUSH LOBOTBRUSHSYSTEMDRAWING BRUSHTYPE SOLIDBRUSHNEWCOLORFROMARGB CHANGECOLOR_NCOLOR _OMAINBRUSH _ORIENTATIONYRECTLN3DX0_3DYTOPCYLYBOTCYL FILLELLIPSELOPATH DRAWING2D GRAPHICSPATH STARTFIGUREADDARCREVERSEADDLINEFILLPATHDRAWPATH DRAWELLIPSE_DRAWLEGENDINBARXRECTXTOPCYLXBOTCYL% ABC/CPie  % T  T   T  T $C  -CO QXFCPENT Q XFCGRAPHICST QXFCBRUSHT QXFCBRUSHT T T%hTh% 9QXFCGRAPHICSPATHTCQ XFCRECTANGLE Q XFCRECTANGLE!T!""TC#JT C! ! !!#$%&'T$ (T% )T' *T& +,Q XFCPOINTF-Q XFCPOINTF.Q XFCPOINTF/Q XFCPOINTF C-C6?0T,C1 C -C6?0T/C1C0T-C1C 0T.C1$T2C/(/) 3$T4C,(,) 3$T5C-(-) 36QXFCGRAPHICSPATHT6C C67C 60 C68%C/(/),(,)69C60%C-(-).(.)69%: W%:;QXFCGRAPHICSPATHT;C C;71C ( ) * +;0 C;8-C/(/),(,);91C()*+;0-C-(-).(.);9<Q XFCSOLIDBRUSH+T <CC@>?=C<; AC 6 AC 6 BB CTC-TC.*TCC.(.) 3TC5 DTD,TD4TD2TD/'%CMbV@Dlp@{C C ECC F!%Z   C D ECD FT%h Th GH TG TH#IQXFCPOINTJQXFCPOINT TI, TJ-#KQXFCPOINTLQXFCPOINT TK/ TL.0% h C MQXFCPOINT$TMC 3NQXFCPOINT$TNC$'%& 31Ch,MO1C$%'&h/NO TGTHh TIM TJ- TKN TL.P TP-J%  ( \(p@  % TG TH  TGTH!TJC 3!TLC$%& 3 TPaQRST TQG TRH TSI TTJ-C$%'&GHKLO TIJ TKL TGTH%C5 -C$%'&GHK.O-CGHI-O  -CGHI-O-C$%'&GHK.O%P -CQRSTO%Z  ,C D ECD F%CZ yC C ECC FC 6 AC 6 B 9UQ XFCBITMAP TUVWQ XFCGRAPHICSTWCUXYC>[WZTW\\]^QXFCGRAPHICSPATHT^CQ XFCRECTANGLE Q XFCRECTANGLE!T!" TC#BT C! ! !!#,Q XFCPOINTF-Q XFCPOINTF.Q XFCPOINTF/Q XFCPOINTF C-C6?^0T,C^1 C -C6?^0T/C^1C^0T-C^1C ^0T.C^1$T2C/(/) 3$T4C,(,) 3$T5C-(-) 36QXFCGRAPHICSPATHT6C C67%C,(,)/(/)69C 60 C67C60%C-(-).(.)69% _QXFCPATHT_C6`aQ XFCMATRIXTaCbCac dTd-Td.*TdC.(.) 3Td5%CZiC dWEee( Ca_fC_WA%Z  L gTg,Tg4Tg2Tg/C gWE%Z  C dWEC 6WAC6WBCiUhCU jBUkTNXTNYTNWIDTHTNHEIGHTTNSTARTTNSWEEPTNVALUETHIS_ADJUSTSTARTSWEEP_UPDATECOORDINATESLNXBRUSHLNYBRUSHPIEENHANCEDDRAWING_PREPAREBRUSHESLOPEN _OBORDERPENLOGFXOGFX LOMAINBRUSH _OMAINBRUSH LO3DBRUSH _O3DBRUSHLN3D LNFINALANGLE_3DSYSTEMDRAWING LOMAINPATH DRAWING2D GRAPHICSPATHNEWLORECTLORECT2LNRATIO DONUTRATIO RECTANGLELNXINTLNYINTLNHINTLNWINTXYWIDTHHEIGHTLOPOINT0LOPOINT1LOPOINT2LOPOINT3ADDARC GETLASTPOINTLOPOINT4POINTLOPOINT5LOPOINT6LOPATH STARTFIGUREREVERSEADDLINESHADOWLOPATH2 LOSHADOWBRUSH SOLIDBRUSHCOLORFROMARGB ALPHACHANNELFILLPATHDRAWPATH LAENDPOINTS LASTARTPOINTS DRAWPOLYGON FILLPOLYGON LNADJSTART LNADJSWEEP LOADJPOINT0 LOADJPOINT1 LOADJPOINT2 LOADJPOINT3 LOTEMPPOINT LOTEMPPOINT2_DRAWSLICEEXTERNALLLDRAWEXTATENDLNSTARTBLNSWEEPB LOPOINT0B LOPOINT1BLOBMP POTEMPBMP LOTEMPGFXGRAPHICS FROMIMAGECLEAR TRANSPARENT SMOOTHINGMODE ANTIALIAS LOTEMPPATHLO3DPATHCLONELOMATRIXMATRIX TRANSLATE LAPOINTSBN TRANSFORMLAPOINTSAPPLYCOLORMATRIX POCLRMATRIX DRAWIMAGE F+      TTTTT T5T   .T !"# -%    iB$Q XFCGRAPHICST $%T &'QXFCBRUSH%(T 'This._o3dbrush T 'This._oMainBrush)%*B T) ]T) +) ,)9-.(T/'TCThis.Fields(i).ChartTypeT0 %T# 0 %12 MT  *T C6  ~ TCOCT 0C12  6TCa3TC% TT4T  T  T5 T5 #T54+T+COC-C 676#)% C8H# -$T9 : ()%CC+O. T C59 T C5TC5T; T<!C 9;=! * (%CC+O.T<1CC+?C+@C5>T,A 2%*0*C!-B C D% ] EQXFCPENF%( TFTECHG7TEI  TFCJ!TECCFKLG7( T<$TMCC+CC+Hs " MLO MLL . MOLc GCEC+?C+@C+?C+@ $NTCRectC+? C+@ C5OT,A. 2 &CEC+C+ $N%*t TDC+TDC+&TDCCD?67&TDCCD?67CQD $P%Rp CTD $SPCRectC+? C+@ C5OT,A%CC+Ot T<PCRectC+? C+@ C5OT,A"%Ua * Y  (U C%CC +O$CC +?CC +@NN .1CC +?C +@C 5>T,AT<   VWTVQ(ST<$TMCC+CC+H ? " MLO MLL . MOL* TWa 2? TW-"%* LM %MOL PCRectC+? C+@ C5OT,A./%**X  RTCC+:TCCC+? C+@ 67%WRFEQXFCPENTFCJ!TECCFKLG7!CECCCC $NPCRectC+? C+@ C5OT,A.@TCCC+? C+@ 67TCC+oCC+?C+@ C+? C+?CCC+@C+@D-BCQC $PCTC $S%*TDC+TDC+&TDCCD?67&TDCCD?67CVD $P%R-CTD $S%X8TDCCD? CD@ 678TDCCD? CD@ 67CYD $PCTD $SPCRectC+? C+@ C5OT,AT<%CC+OPCRectC+? C+@ C5OT,AT<Z$%[C\] (%CC+Li.T C5T C5TZC,C Z^ C_TBU`THIS _DATACURSOR LNLEFTMARGINLNWIDTHLNHEIGHTLNVALUE LNBETWEENNIJ LNMAXVALUE LNPOINTHEIGHTX1Y1LN3D LNCHARTSCOUNTLLISNULLLNYBASE LNTIPPIXELSLNTYPE2 LNALIGNMENTLNRECS SHAPELEGEND ALIGNMENT _NRECORDS _TIPPIXELS _YAXISWIDTH _LEFTOFFSET_3D CHARTSCOUNT CHARTCANVASWIDTH _RIGHTOFFSETHEIGHT _XAXISHEIGHT _TOPOFFSETLOGFXOGFX _SCALERANGELOBRUSH BRUSHTYPE LNARRAYLENGTH CHARTTYPELAPOINTS LAPOINTSISYSTEMDRAWING _CHARTINDEXLNADJUST MULTICHARTMULTICHARTMARGIN _GETVALUE _SCALEADJUST_APOINTSPOINTNEW_DRAWVERTICALLINEBACK LNBARWIDTHBARSSPACEBETWEEN LNBARHEIGHT _CURRENTROW_DRAWBAR _DRAWSHAPEXY_NINDEX_PREPAREBRUSHES LAPOLYGON LAPOLYGONB LOLINEPENLNCOLORPEN _OCLRBLACK DASHSTYLEACOLORSCOLORFROMRGBLCTYPEDRAWLINE_UPDATECOORDINATES FILLPOLYGON _OMAINBRUSHAREADRAWBORDERS DRAWPOLYGON _OBORDERPENLINECAPS LOAREABRUSHLLDRAWPOINTLINE AREA3DTOP _O3DBRUSHLNINDEXSHOWVALUESONSHAPESFIELDSSHOWVALUESONSHAPE_DRAWSHAPELEGEND_DRAWXAXISLEGENDO TCGTC^TC^TC^TC^TC^TC^TC^TC^T C@^T C^T C^T C^T C^TC^TC^TC^TC^TC@^TC^TC^TC^TC^TC^TC^TC^TC^TC^TC^BCUTNLA%CN' B%CCHS C==TCC\ C T 2TCRGB() BUTUCOLORLNCOLOR T CT  %C'T Cd   'T Cd   B U TNCOUNT LNBASICCOLOR LNNEWCOLORTHISFIELDSCOLOR CHARTTYPE CHANGECOLOR CHARTSCOUNT _NRECORDS$!BCCC8CC8CC8^U9tQXFCGRAPHICSPATHTC9 C  T C% N%T  THp O T -C  YC   TCTCTCC #CCCCCCCCCCCC 3T@Tz! @&T@@ (=TCCDcCCCT9 C C C C C  &T9C C  C CC T9  XC C C  C CCC   LC CC   C C C C C C  7@C C*C2(,*C&%*C-K%KC2KCK*C*C ( bS cf 2p BUTNSHAPESYSTEMDRAWINGLOPATH DRAWING2D GRAPHICSPATHNEW STARTFIGURELNSHAPELCTYPETHIS _CHARTINDEX ADDELLIPSE ADDRECTANGLELAPOINTSPOINT ADDPOLYGONADDLINELNRADIUSLNPI LNRADIAN72NFILLMODEWINDING ALTERNATE %%TC%CNyT T T T  T T   QXFCFONTQXFCSIZECT T  ~ T T  T T C DT T TTBULNSCALEWLNSCALEHTHIS _ORIENTATION SHOWSCALELULEGENDGETSCALELEGEND SCALELEGEND_VALUECAPTION_WIDTH_HEIGHT LNMAXWIDTHLCTEXTLOFONTLOSIZE AXISLEGEND2_SETUP_OFONTCAXIS2LNWIDTH_SCALEH_SCALEW9%@C TCHu N$CC  & N  $CC   2! QXFCLINEARGRADIENTBRUSHLT CC  C  C USYSTEMDRAWINGTHIS BRUSHTYPE CHARTCANVASCLEAR _OCLRWHITELCTYPE BACKCOLOR2COLORFROMARGBBACKCOLORALPHA BACKCOLOR LOGRADBRUSH DRAWING2DLINEARGRADIENTBRUSHNEW RECTANGLEBACKGRADIENTMODEOGFX FILLRECTANGLE FC+     J( ~TCC_%C TTTCDTTCD T  T %T %]T h !T CC D T C D Q%6TT T #T CC D T T C D M T eTCC 6 CC  6T BU THIS _DATACURSORXAXISRESET LCCAPTION LNCURRWIDTH LNMAXWIDTH LNCURRHEIGHT LNMAXHEIGHT LNROTATION LNAXIS2HEIGHTLNMAXAXIS2WIDTHLNWIDTHLNHEIGHTCAXIS2 AXISLEGEND2CAPTION_WIDTH_HEIGHT _ORIENTATIONROTATION ALIGNMENT SHOWSCALE SCALELEGEND_VALUE _SCALERANGE _XAXISHEIGHTMARGIN MARGINBOTTOMLEGENDPOSITION _LEGENDHEIGHT_LEGENDPIXHEIGHTl TaTa"T C T- B UTNWIDTHTNHEIGHTTHIS_SKIPPREPAREDATA _INREPORTLCFILE CHARTCANVAS DRAWREPORT %C WT   sT T  Q XFCGRAPHICST   Q XFCSOLIDBRUSHQXFCPENQXFCPENT Ta% %kTC^ T TT9$T CC 1TCC"#!$T$%%$CT&$&T '() T* +T+,-. /012345T1'(T/.,C678T869:(QT;C:<%NC;q!T3;= T5'3(T0.,T25> T;?T69&T6@C:;B AC026C+C/5/ 5  D*C/5/E5 D"%NCC:<! FGTF/ TG5 %6-THC:<C:< %CIm!C FGH J%CK2Q%LC;*d M =   .&CFGFG D,CFGHFGH DT %LM8%C;*d M = I9ENQXFCPEN)TNCC"O!% $CNFGFG D ATGG P TPCFGQ#TPCFGQ.TPCF G Q*TPCF G QRQ XFCSOLIDBRUSH#TRCC@OCRP SCNP T TU'( TVUT698 /012T.,T1)T2'( T/T0+-+TW+,-.   Ta % TC^ T  TT9> $T CC 1TCC"#!$T$%%$ T&$T* W:(T;C:<%NC; !T;?TX;= WTY/XT;?T6@C:;A%6Z CY2a6C  CY26C2CY2Y 2  D'CY2Y2E D FGTFY TG2 )%NCC:< /THC:<C:< W%CI 'C FH1HG1 J%CK Q%LC;*d M =   #CF1FG D)CFH1FHG DT %L8%C;*d M = 9NQXFCPEN)TNCC"O!% !CNF1FG D TGG P TPCF1Q TPCFGQ*TPCF G Q*TPCF 1 QRQ XFCSOLIDBRUSH#TRCC@OCRP SCNP TBU[TOPENLN3DLNHEIGHT LNMAXVALUELNMARGIN LNSCALEVALUETHIS CHARTTYPE_3D CHARTSCOUNT _SCALERANGELOGFXOGFX LOBACKBRUSH LOBACKPEN LOBLACKPEN LLDRAWBACK LNONESCALELNXWIDTH _OBLACKPEN _ORIENTATION LNRECTCOLOR LNLINECOLOR BRUSHTYPESCALEBACKCOLORSCALELINECOLORSYSTEMDRAWING SOLIDBRUSHNEWCOLORFROMARGBSCALEBACKALPHAPEN AXISALPHASCALEBACKLINESWIDTH LNDASHVALUESCALEBACKLINESDASH DASHSTYLEHEIGHT _XAXISHEIGHT _TOPOFFSET_SCALEWIDTH _LEFTOFFSET _RIGHTOFFSET _YAXISWIDTHX0X1Y0Y1 LNSCALEHEIGHTNY SCALELEGEND_SETUPLNORIGALIGNMENT ALIGNMENT LNSCALENUMBERLNVALUE GETSCALEVALUE _MINSCALE_SCALEH _SCALEADJUST_VALUEGETSCALELEGEND SCALEDIVIDER _DRAWSTRINGDRAWLINE TICLENGTHX1SCALEY1SCALE LNTHISSCALESCALEBACKBARSTYPE FILLRECTANGLESCALEBACKLINESTYPE SHOWLINEZERO _MAXSCALE LOZEROPENSCALELINEZEROCOLOR LAPOLYGONPOINT LOZEROBRUSH FILLPOLYGON DRAWPOLYGON_CHARTY0_CHARTY1LNWIDTH LNSCALEWIDTHXROTATIONE %C %B-QXFCIMAGEFORMATQXFCENCODERPARAMETERQXFCENCODERPARAMETERS T -T CC @%C T png9 H+ bmp bitmap @T  ) jpg jpeg T  %CNT C %T C  C   gifT   pngMT  ) tif tiff T   emfT C%C 0 ( B 2B- 4"C   >UTCFILE TNQUALITYLCIMGFORMATTYPESLCFILELCEXT LOIMGFORMATLOQUALITYENCODERLOENCODERPARAMETERSSYSTEMDRAWINGIMAGING IMAGEFORMATBMPJPEGENCODERPARAMETERSNEWENCODERPARAMETERENCODERQUALITYPARAMADDGIFPNGTIFF LCTEMPFILETHIS DRAWREPORTOBMPSAVEfontname_assign0axiscolor_accessbackcolor2_access color1_accessscalebackcolor_access_str_calculatescaleH_drawlegendinbar4 _getvaluep_updatechartinfo=_updatecoordinates_checkmouseposition@_detachclickedslice(shapemouseenter+shapemouseleaved,shapemousemove, _drawshape@- _checkparams4getchartproperties;_adjuststartsweepBmousepointer_accessdDmousepointer_assignD_setfieldscountE _newfieldeFgetscalelegendKG getscalevalueHsavechartpropertiesH_getrelativepositions#I shapetooltipI _getchartpropL_getchartproperties>P_spellpropertyV_getcenterpoint[_sourcealias_assigna_preparetooltiphb_drawsidelegendsSe _getcursorposq_updatequalityrcurrcolumn_accessscurrlegend_accessqtcurrobjtype_accesstcurrrecno_access|ucurrvalue_accessu_psvshowtips_assign{x _centerpathy_getpalettecolor{_objtoclientex| _initpalettes _initchart_drawshapelegendMovedselectedshapecolor_access:_drawsliceexternal{_getadjustedanglew_preparesidelegend,_preparebrushesU_preparecolors _preparetitle?_preparevariables: _preparedata _getfieldtypew_drawstackedareachart _drawslice_drawtrianglebar_drawverticallineback_drawyaxislegend_drawxaxislegendp _beforedrawscalelinecolor_access _drawaxisResize%charttype_assign&colortype_assign' changecolor'chartscount_assignO)brushtype_assign+ drawchartk+Init,_preparelegendinslice, MouseMove/MouseUpO0_drawbar0 _drawbarchart_8 _drawpiechartL _drawcylinder]_drawdoughnutslicef_drawlinechart_getbasiccolorG_getrgb_getgradientcolor_getrandomcolor̝ _getshapepath_getylegendsizer_preparebackgroundM_preparelegendլ drawreport! _drawscale savetofile1q!#QA313qr1A41313q12"tB"!Q1AR1112!qQAAAA!#QQA1ABaA22ir1QA12cr222B11111AB2q1qA111A1A31ABB2A2y122!2!2!2222!2222C5A121#AAvAb2a!r!AB21AAA!!RAbAAd"Aa"AAABAAb"AAs#1AQQQaAaAA2AAARAAsqQQQaAa3a"AABAt3b"AABA#b!"A!"AAACBB2qAAq1Q"!RQAA22231A22Ab!"A!Q!ABraQAAQqaCB"AaBGrAB2Qqb" AuQ!A3 A2qrA13a1RqAAAA1ABAABQ1aA1!QQAB21"QqaArQaAA33qQ!2q12a2AAA#A2qr12bB2qPq2qA2G2!aaA21qcA31ABB11r211A11aA1q1AAa!bqQAq11AA2vqRB bqq9qAAA2A!AaAAAA2qB" qQA#111Q"BQA31!!3Aqaa2qA2AA!A1111111111111A2AA312QB!2AR12Q22Q2AqsrBBAAs2AAAA2ArAABAbB2ABA21a4B2"!321a2222221qAA2AB3qr"2A3RSA2a2A2(RAQAAAARAQAAAAB2qA21AA11AQ!32"A222121b!!r!Rr2aaARaAfsaARaAQA2AAR!!2#!AA!!AQ!!ABqrB4A3QQAba!1A!Cbr1!a!AAAQAR22"1AQQbAAxqcAba3baA3aaABBTr!AABB2r!3r2QbRqR1A1ARqRBB2bRQ1ARQ#!1AASBrBA2A!1Aa1ABAB2r2Q1AA!!A"A#aqar2A2!!AABR21AB21A"Q!A"!A!A!A!AR1ABAQq!1!q2qA"1AQB3) CqASaB2RqQQ!AABAA01rqr!AAb!AAaar1RQabABq2aAB2AAASAtqAB#r!aaAABAB2"AA!AA!b!2!2sQA!Ar!B"d1aaQ1qq13qAqAE!qAb1ASarCUq3qAqA#ABCbaAq4#!QqAA!ASA#"!BBBB2qBc!!21BqbabaABc1aQQqvQQqqqqqqqqqqq6qa1aq1aqqqqqqqqqqqDCB3aAAqBbaAA1A!!AAAAB2AAAs131AA33AAu!baAra!BA1Ar2ArrqraQAr#AbAA111AAaAAB2qBAAA#1QAA#AArA2sSDAAAA#bAAQAB!AsAbBB!#rQLqAaA1qrAt!A t1A14A6BBB213bqAAAsb!Ca!A21!"!AC7rAABr1"1q!AABqAr!CsRq1aqAAAC2BRQQQqqrAA11QA#1AB2!AAA#AAaa"AB2q3q2A32ARARqRA2q$Q1aAAA2q3c1A2A321A!!3aAqcaB21212q2"aAbAB!b!2!2!r!B3Baaa!BDABB2q"BAA2!!dsAsAAaaA3AARrrArAc2aAAARrqAABc1AAsqABdCAaA1AAA!qBBc1QA2AARqrABad1QA1AARqrAAAad2QA1AArABaBdbaABC2!$B2sqqAA""AAA3BqqQqAAq2Ts1AAbQA1ARAAAAaAAABUAs1AAAAAAbQAASAAaAABAAA11s""qBQAB2RqAARB11AA2qB!b!!21BbabaAAdq1qqTqQTcSTqq1QdSSVqTqBB2AA!AA!b!2!2!A!A#DQrqr"3CAAABAAQQQ#QsAAA1111111tqAqAwA!A222A2AqBsBA1AsAAqAqABBCaaAqQrqr%BAAABAAQQQS#BQ1111qAsQA1111qAqAAtqBBC3212q!SAAc!3aAwaACqQAA4bABq1AQ3A2BAAAAAaBbARraAQAB!ARqBaAaBcaa!AAaBaB$2AAaAAB!ARA#RaBBAQQaBAAbaar!A#AAaBaABBqBAA!BABB2B2u3qrArAAA2qRqqA32qBA1AAB222221QQaA22222331BB2b"zQq11Ar1A!!111!A2AB2Abar1BAbABBB2R!11!2!BAb2!A!!aQ111!AAWB2r!P1qs!AbbbaABAAr11Abrqz1RqAAB3a#AA11AaAAA"ARB11QQABABBq32qqbaABAAr11ARqAABBA#q1qvA1AAA"AR1QQABABBBB22qAb1!ACaarSAaaaq11aAAqAB!A1<a /Su"&A}*V 2+[+/.0zKKtPPP;Q\Q>QQAQ\EE%\Ydadq!rQtQ{ttjt:un`u xs*xNysy*}N} I>a"F$0,ZZnxۥצms!%F?+g0 5/:V?hDY$a1xS" a1 c,c>ZvX  0F'p wk'0' <03 @3: :G SHL{ fL^ ^z~` ~- YR ѕIl pI  k4 ھ E b% L  i H q: pR &Y ARi ~Gl g 7 VA( e) Mv(: (+6W T6aah Îc1(ؐB*Hvڤ<&]aԭXy)"%lUT UVNEWVALTHISCAPTIONcaption_assign01q"2|)-"6%4kU$ T%7T%^T%T%T)TCC 6%CT9%C'TArial9  QXFCFONT T C T QXFCCOLOR(TC6TCQ XFCSOLIDBRUSHTC TULISTYLETHISFONTBOLD FONTITALICFONTSTRIKETHRU FONTUNDERLINELCFONTFONTNAMEPARENTSYSTEMDRAWINGLOFONTFONTNEWFONTSIZE_OFONTLOCOLORLNCOLOR BRUSHTYPE FORECOLORCOLORFROMARGBFORECOLORALPHALOBRUSH SOLIDBRUSH_OBRUSHN%CO(B%%CCOO^ C *TCCC  C 6%TCC _ TCC _ QXFCSIZE!T CT T TU TLNUMERICTHISPARENTOGFX_OBRUSH_OFONT_SETUP LCCAPTIONLCFORMAT _FORCEFORMATFORMAT_VALUECAPTIONLOSIZE MEASURESTRING_HEIGHTHEIGHT_WIDTHWIDTH_TRANSFCAPTION   ,T C ShapeLegenda-6 TT Q XFCGRAPHICST 9u H CCNN_ TQXFCSTRINGFORMATTCH9 ]T T 2TT%TTQXFCSIZE%0$TC ! "  TTC %TC $ %#T &C"wT 'C!w(Q XFCRECTANGLE$T(C &) T T%!T   ' H= ] T T & "T  &  [HW  T  'T  ' WT  '  J( T T ' T  T T '  T  T*T* +%*9,Q XFCPOINTF-Q XFCMATRIXT-C./%T,C0 H 'T,C & 0 Y.T,C ' & 0 .T,C '  & 0C*,-1C-2T3 4%395Q XFCPOINTF6Q XFCMATRIXT6C./.T5C '  & 0C3561C62% 7i9e%=CCC 7 <:;9 ' &8 a=CCC 7 <:;9  ' &8%'C $ % >= B % &T(C  ' &)'C $ % >(= > 'C $ % >(=%*3 q C?BU@TNXTNYTNWIDTHTNHEIGHT TLVERTICALX1Y1LNALIGNLNMODEXBACKLLBARTHISPARENTNAME ALIGNMENTLOGFXOGFXSYSTEMDRAWING LOSTRINGFMT LNGDIPALIGN STRINGFORMATNEWSTRINGALIGNMENTCENTERFARNEAR FORMATFLAGSSTRINGFORMATFLAGSDIRECTIONVERTICAL LINEALIGNMENTLOSIZESIZEWIDTHHEIGHT MEASURESTRING_TRANSFCAPTION_OFONT_HEIGHT_WIDTHLORECT RECTANGLE LNROTATIONROTATIONLOPOINTFLOMATRIX DRAWING2DMATRIXPOINTFROTATEATMULTIPLYTRANSFORMLNROTATIONCENTERROTATIONCENTER LOPOINTFC LOMATRIXCBACKCOLORALPHA FILLRECTANGLE SOLIDBRUSHCOLORFROMARGB BACKCOLOR DRAWSTRING_OBRUSHRESETTRANSFORMuT C % DLTNNT C _T C-U TUCAPTIONLCTYPETHISCAPTION_UPDATEMEASURES C CUTHIS_SETUP_UPDATEMEASURES(TCaU TUNEWVALUETHIS_VALUE_UPDATEMEASURESC% ,ThTU TNROTATIONTHISROTATION_setup0_updatemeasuresW _drawstringhcaption_assign~reset. _value_assignrrotation_assign1s"A"A"A"AtA!AC"4qaB2qAASAqqB"112qc1Cq!11AAAA#AATQQrA111!A122BA32A2Bs2AAAQ21q22BARAA2AAAQRAAdB2BAA3qaqqAAABA2qrA1A"?2q2q2!A1$O<8qZ E4i8\>)%"Y)csCCW%s"Visualizar Remito1 do ver_remitotUSHORTCUTAQ1%E"0OeU CUOGFFOR_ADD_COLUMNA UOFORMtTT%C mREPLACE &xValido WITH .t. UOIXXALIASXDESCR_ROEX LDBF_ALIASXVALIDO VAL_VALIDO_BCT  T T T T  TT %C QREPLACE &xValido WITH THIS.validar_articulo (&xCod, &xBul, &xAtr, @xDescr_R) SELECT &xalias %C  X!REPLACE &xDescr WITH xDescr_R UOIXIMP_XLS_VALIDAR_FILA_4_1XALIASXDESCR_ROEX LDBF_ALIASXCODXBULXATRXDESCRXVALIDOVAL_ART_COD_INS VAL_ART_BUL VAL_ART_ATR VAL_ART_DESCR VAL_VALIDOsql_crear_columnas,imp_xls_crear_columnasaimp_xls_validar_fila_4_1zimp_xls_validar_fila32q6q4qr!A4qr!A"aA2   %luTGTC ve_sql_pedidos_v2Q"i1 TMPPEDIDOSL"i1 TMPPEDIDOSCd"i1 TMPPEDIDOSL>C > >aCO T  T T T Tve_predespacho_2(UXTABLAODEYFUNCNEWFILE_LOCAL_TMPEXPORTAR_APROBADOSVE_SQL_PEDIDOS_V2 TMPPEDIDOSGEOREF LUGAR_EN2MARCAGEODIRALL LUGAR_ENTFOR XTOT_PESO XTOT_BULTOS XTOT_VOLUMEN XTOT_IMPORTEXPED_SELVE_PREDESPACHO_2XRESQ DATA_STATUS3TC Data_Statussys_clases_tablas.prgF C;K(     C UODT TMPPEDIDOS PUSH_SIMPLEBULTOSPESOVOLUMENIMPORTEMARCAXPED_SEL XTOT_BULTOS XTOT_PESO XTOT_VOLUMEN XTOT_IMPORTE POP_SIMPLECalcular_SeleccionadosYr!!!7b1s3Lt % (VSɜ BCUXPV XINICIALIZADO TF_ES_TRFCENx T-%8 Ta!%  C h Ta BUXESTRFXPV XINICIALIZADOP_CODEMPP_TRF TF_ES_TRFCENs%6 T- B%CxPVbLg T- B% C Ta%CxPVbCTCC\g"% C T- B(CX%CT Ta B T- BUXPV XINICIALIZADOXESTRFP_TRFTF_INICIALIZAR ARR_TRFCENZ+< 7TU ARR_TRFCEN %C arr_trfcenbUA%C =B< 7T%onumfacCOQ%TC U ARR_TRFCENPTONUMFAC TRANSFSRVP_TRFCEN % 0 C Ta%C^ B.F. TINLIST(QINTEGERT,CCZT) BUXTESTVAL XINICIALIZADOTF_INICIALIZARXFILTRO ARR_TRFCENXVAL!% 8 C Ta%C xComillasbCh T%C B.F. TINLIST(QINTEGER'T,CT) BU XTESTVALXHEAD XCOMILLAS XINICIALIZADOTF_INICIALIZARXFILTRO ARR_TRFCENXVALTF_GENERAR_PUNTOR% @ C Ta%C xComillasbCqT' T(%C T( .F. 0 T QINTEGER ,.TC  T .OR. T) BU XTESTVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLAS XINICIALIZADOTF_INICIALIZARXFILTRO XOPERADOR ARR_TRFCENXVALTF_GENERAR_BETWEEN_UNOTBETWEEN(AT,C,CT) BU XTESTVALXVALXHEAD XCOLADESDE XCOLAHASTA XCOMILLASXFILTROTF_GENERAR_DESDETF_GENERAR_HASTA( BCCCZ0UXPUNTOXHEAD%C xComillasbC? T%CxColabCk T+BC -00000000UXPUNTOXHEADXCOLA XCOMILLASTF_GENERAR_PUNTO%C xComillasbC? T%CxColabCk T+BC -99999999UXPUNTOXHEADXCOLA XCOMILLASTF_GENERAR_PUNTOES_TRFo TF_Es_trfcen*TF_Publicar_arr_trfcenTF_Inicializar&TF_Obtener_InlistTF_Obtener_Inlist_ExBTF_Generar_BetweenTF_Generar_Between_UnoTF_Generar_Punto TF_Generar_Desde TF_Generar_Hasta !33AA42AAArA"ArAA3qA4BAAr1Q22A2ArrA!B21AArrqA!B2AAq11AB!2!121AA21AA1^| +4E/*L< _M4 wa w}67%r0/G+(dey_funcUDEY_FUNCE4$%CxAliasComisionbCQSELECT &xAliasComision  %C xPrioridadbN T%C xTMPAliasbCT TMP_Comision%C xTMPTablebCT\tmp\C](aQCU XTMPTABLE XTMPALIAS XPRIORIDADXALIASCOMISION XTMPTABLAP_LOCALACTIVACOMISION_SET_PRIORIDAD4SELECT &xTMPAlias %CH C#) T%C+ m^J BU XTMPALIASXCOD_AGEXCOD_INSXBULXATRCOMISION_SET_FILTERTIDUn4SELECT &xTMPAlias H5c c& <BU XTMPTABLE XTMPALIAS XPRIORIDADATRBULCOD_INSCOD_AGE PRIORIDADaZG( CX   CX   CX  BUCOD_INSXCOD_INSCOD_AGEXCOD_AGEATRXATRBULXBUL< 4SELECT &xTMPAlias Q.*BU XTMPTABLE XTMPALIAS Comision_InitL Comision_GetComision_Set_PrioridadComision_Set_FilterComision_Clear6!21AAAAA5ra3qQ!AQB2R1AB2A2QAA1:WpSv.'Y9*t@%o671 4G+(dey_funcG_ G~(clases < 7 TTCabm_ProtocolosNTCU- BU XCODBULATRDEY_FUNCCLASESPOABMPROTOCOLOSPOARTICULOPROTOCOLOS SOLO_LECTURAACCESOSHOW gesCBienesCAtributoCBultosCProt_esp%C vprot_esp FQ vprot_espF& & & BUGES CHK_OPENED VPROT_ESPIDUDESCRCLAVEBCXUOBIEDATA_CODIGO_LARGOOBULOATRU <UPOABMPROTOCOLOSPOARTICULOPROTOCOLOS openfiles#sugerir_no_num$inicializar_registrop hook_release{'T ProtocoloT vprot_espT DescripcionTdescrTdescrTclaveTclaveThlpT abmprotocolos T - T P T T TA T TTA   UTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1abm_protocoloshlpabm2q"bQB22Q1QArA1331ca!!!!1 >CABiE"*GIF89aw!, ),;13<>BP8V9Z<\;]9cCDE@F[AY?]@]B_@bEiIQoIaMiJkImNqRZZSXmWaPePmPrRvUyXY[_co]cx\rYu\{X|]Zabdfirgt`ugxc}d]accgmmnnsivnxm{kjmks~wqtrqtsts{~zz{~|{ՊɱκQB`Cb"9jP"C> BgN3`X‚>0"i$J+1tD ,e<c3!Ǥ2]<*8!gOMY ADɑ 'Hac(jYi{D<)Q.t =m n@ȉ3e(>WI Ơ`P@N =rT/ *B6$Hy9 "$bL+tN+.zŠu2):5 o!)O,k P)1=$DC`"qpC #B <  lPÆ*4C,Dclw@C; %}]"YL sCCWs" Imprimir OCKs"+Alternar excepcin de control de cantidadesC Hs"(Alternar excepcin de control de preciosC 's"Abrir OCCK(s" Cerrar OCCK's"Mantenimiento de OCs"\-.s"Nota de gestinCWs "\-6s " AutorizarC-  8s " Rechazar OCC-  :s " No intervenirC-  s "\-?s"Volver a notificarC-  Zs"!Eliminar todas las autorizacionesC- C-  1oDO _6zi11ke14 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke15 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke16 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke17 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke18 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke19 IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke1a IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1 oDO _6zi11ke1b IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1 oDO _6zi11ke1c IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1 oDO _6zi11ke1d IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke1e IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")1oDO _6zi11ke1f IN LOCFILE("2000\CM_CONTROL_DE_OCS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CM_CONTROL_DE_OCS_MENU?")tU MENEMERGEACCESOP_OC_AUTORIZACION@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCSv2%CEst seguro de abrir la OC ?oT&cm_control_de_ocs U MENSAJE_SINOXORDENOCSORDENPROCESARCM_CONTROL_DE_OCSw3%CEst seguro de cerrar la OC ?pT&cm_control_de_ocs U MENSAJE_SINOXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS`:ge02C@z 9999,999,999_P#cm_control_de_ocsU COMENTAR_CPBTGE02OCSCODIGOORDENACTUALIZAR_ORDEN_EN_TABLACM_CONTROL_DE_OCS@T&cm_control_de_ocs UXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocs UXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS@T&cm_control_de_ocsUXORDENOCSORDENPROCESARCM_CONTROL_DE_OCS _6zi11ke14X _6zi11ke15 _6zi11ke16J _6zi11ke17 _6zi11ke18 _6zi11ke19> _6zi11ke1a _6zi11ke1bv _6zi11ke1c _6zi11ke1dh _6zi11ke1e _6zi11ke1fZArqaaba?qb1rb1rb1!rbB11rbB1sb`141rb1rb1rb1rb1rb2oh$}) . ~$5$s(<(,A,z0E034JK47(O8;?T;^?VYv??m%A  Dz E8 UDBF_COMPROBAR_CONVERSION T\usr\0TCpr_plan_cfg_????_??.dbf(CCCUAOLD_CFGXCANTXDIRP_SERVERNIT DBF_CONVERTIRTCCf' TC PR_PLAN_CFG_T.dbf#TCCC=gCCRg$4T Periodo: CC=-CC\TCC]@T \usr\)T \usr\pr_planificaciones\ T \usr\pr_backup\%C ^MKDIR &xDiro %C MKDIR &xDirD %C MKDIR &xDirB E pr_plan_mix_(pr_plan_mix.dbfKpr_plan_preven_(pr_plan _preven.dbfMpr_plan_totales_(pr_plan _totales.dbfKpr_plan_ventas_(pr_plan _ventas.dbfG pr_plan_prod_(pr_plan _prod.dbfMpr_plan_compras_(pr_plan _compras.dbfKpr_plan_lstock_(pr_plan _lstock.dbfE pr_plan_cfg_(pr_plan_cfg.dbfF.T Cpr_plan_cfg.dbfX&Qpr_plan_cfg i1TMPCFG Di1TMPCFG C<i1TMPCFGCi1TMPCFGC i1TMPCFGT> >> > QB pr_plan_mix_( pr_plan_mix_Hpr_plan_preven_(pr_plan_preven_Jpr_plan_totales_(pr_plan_totales_Hpr_plan_ventas_(pr_plan_ventas_D pr_plan_prod_( pr_plan_prod_Jpr_plan_compras_(pr_plan_compras_Hpr_plan_lstock_(pr_plan_lstock_B pr_plan_cfg_( pr_plan_cfg_# pr_plan_mix_&pr_plan_preven_'pr_plan_totales_&pr_plan_ventas_$ pr_plan_prod_'pr_plan_compras_&pr_plan_lstock_# pr_plan_cfg_UXCFGXTAILXTAIL2XPERIODOXDESCRXIDUXDIROXDIRDXDIRBXFECHAP_SERVERTMPCFGPERIODODESCRNOTASIDUFECHAALLdbf_comprobar_conversionQ dbf_convertir*q11aA4q!qQ1A!a2A1A1ARqQaA#A!3aqaAqa12A  3/ %Qwc VTCC]RFG((codinsFG((codigoFG((codigoFG((codigoFG G-(G-( G-(>    T.t.%+T.and.bienes.tipo_art=xdtpr%`)T.and.ventas.codigo=xdbie%CX&T.and.ventas.bul=xdbul%CX&T.and.ventas.atr=xdatr% AAT0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin% AT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgruFG((codigoF SELECT ventas.codigo , ventas.atr , ventas.bul , ventas.descr as descr , datr , dbul , alltrim(alltrim(ventas.descr)+" "+alltrim(datr)+" "+alltrim(dbul) ) as dcodatrbul , iif(xduni=1,UNIDAD,UNIDADAUX) as unidad , NVL(lstock.cant ,000000000000000000.00) as cant , NVL(lstock.comp ,000000000000000000.00) as comp , NVL(lstock.oc ,000000000000000000.00) as orde , NVL(lstock.op ,000000000000000000.00) as prod , NVL(lstock.compop ,000000000000000000.00) as compprod , 00000000.00 as disp , 00000000.00000 as valor , 00000000.00000 as factor , 00000000.00000 as stkmin , bienes.linea as linea , nvl(lineas.descr,space(30)) as lineadescr , bienes.grupo as grupo , nvl(grupos.descr,space(30)) as grupodescr , ventas.subgrupo as subgrupo , mes1c, mes1a, mes2c, mes2a, mes3c, mes3a, mes4c, mes4a, mes5c, mes5a, mes6c, mes6a, mes7c, mes7a, mes8c, mes8a, mes9c, mes9a, mes10c, mes10a, mes11c, mes11a, mes12c, mes12a, 0 as necesidad , 000000000.00 as mes1val , 000000000.00 as mes2val , 000000000.00 as mes3val , 000000000.00 as mes4val , 000000000.00 as mes5val , 000000000.00 as mes6val , 000000000.00 as mes7val , 000000000.00 as mes8val , 000000000.00 as mes9val , 000000000.00 as mes10val , 000000000.00 as mes11val , 000000000.00 as mes12val , iif(xduni=1,ventas.MES1C,ventas.MES1A) as col1 , iif(xduni=1,ventas.MES2C,ventas.MES2A) as col2 , iif(xduni=1,ventas.MES3C,ventas.MES3A) as col3 , iif(xduni=1,ventas.MES4C,ventas.MES4A) as col4 , iif(xduni=1,ventas.MES5C,ventas.MES5A) as col5 , iif(xduni=1,ventas.MES6C,ventas.MES6A) as col6 , iif(xduni=1,ventas.MES7C,ventas.MES7A) as col7 , iif(xduni=1,ventas.MES8C,ventas.MES8A) as col8 , iif(xduni=1,ventas.MES9C,ventas.MES9A) as col9 , iif(xduni=1,ventas.MES10C,ventas.MES10A) as col10 , iif(xduni=1,ventas.MES11C,ventas.MES11A) as col11 , iif(xduni=1,ventas.MES12C,ventas.MES12A) as col12 , xduni as tipounidad , bienes.pesoxu as pesoxu , mes1c*bienes.pesoxu as peso from ventas left outer join stock on ventas.codigo+ventas.bul+ventas.atr+SPACE(8)=stock.codigo+stock.bul+stock.atr+SPACE(8) left outer join lstock on ventas.codigo+ventas.bul+ventas.atr=lstock.codigo+lstock.bul+lstock.atr left outer join bienes on ventas.codigo=bienes.cod_ins left outer join lineas on ventas.linea=lineas.codigo left outer join grupos on ventas.grupo=grupos.codigo where &filtro and !empty(ventas.codigo+ventas.bul+ventas.atr) into cursor tmprpt readwrite ~ T T T T8proc_stk   F >!"%# >$$C#6%%C#6&&C#6''C#6((C#6>)$%&'(%*T%*%Cidx04 ["Q+\idx04idx04%Ccos Qcos%Cultcos Qultcos %Clisprec QlisprecF ~P%* T0 T1 T2l3listados012   5a T61 .G+( ve_funcionesve_funciones_precios T6 T9%:I-C6   <CX9; -C6   <CX9=T66>d F #T66C#!6 >?6%#>@A6BC6DE6FG6HI6JK6LM6NO6PQ6RS6TU6VW6 L>@X6BY6DZ6F[6H\6J]6L^6N_6P`6Ra6Tb6Vc6FG-(G(G!( d\tmp\.idxF Hs e+%f,& CgC gCg(d\tmp\ '&&  (d\tmp\ es5& C =C =C =(d\tmp\+(d\tmp\rpt_pr_plan_de_comprasQ d\tmp\.idxBUgXARCHBIENESCODINSBULTOSCODIGOATRIBUTOLSTOCKVENTASBULATRDBULDESCRDATRALLFILTROXDTPRXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRUSTOCKXSMXPPXTIXFACTORARTICULO_DATOS_AMPLIADOSPROC_STKTMPRPTFACTORSTKMINXDUNICANTCOMPORDEPRODCOMPPRODDISPXDTVAP_COMMONIDX04COSULTCOSLISPRECXANTXULTXACTFN_COSLISTADOSXDFCSXCOSTO VE_FUNCIONESVE_FUNCIONES_PRECIOSXMONEDAP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIOXDVALVE_OBTENER_PRECIO_COMPUTADOXDDSCVALORMES1VALMES1CMES2VALMES2CMES3VALMES3CMES4VALMES4CMES5VALMES5CMES6VALMES6CMES7VALMES7CMES8VALMES8CMES9VALMES9CMES10VALMES10CMES11VALMES11CMES12VALMES12CMES1AMES2AMES3AMES4AMES5AMES6AMES7AMES8AMES9AMES10AMES11AMES12AP_LOCALXDORDP_NUMINS@Qrrrrrb1A1AaAQaAQaAAA~rrt27 DB21q!AQA!A1AAr12AAs22 AAAsaabs1aA2QABD3%Vޝ%Cmaquinas .Qmaquinas%Cform_maq `Qform_maq%Cccformul QccformulTCC]RFG((codinsFG((codigoFG((codigoF G((codigoF G G-( G-( G-(> T.t.%+T.and.bienes.tipo_art=xdtpr%'T.and.prod.codigo=xdbie%CX1$T.and.prod.bul=xdbul%CXn$T.and.prod.atr=xdatr% AT0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin% 4AT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgruFG((codigoF SELECT prod.codigo , prod.atr , prod.bul , prod.descr as descr , datr , dbul , alltrim(alltrim(prod.descr)+" "+alltrim(datr)+" "+alltrim(dbul) ) as dcodatrbul , iif(xduni=1,UNIDAD,UNIDADAUX) as unidad , NVL(lstock.cant ,000000000000000000.00) as cant , NVL(lstock.comp ,000000000000000000.00) as comp , NVL(lstock.oc ,000000000000000000.00) as orde , NVL(lstock.op ,000000000000000000.00) as prod , NVL(lstock.compop ,000000000000000000.00) as compprod , 00000000.00 as disp , 00000000.00000 as valor , 00000000.00000 as factor , 00000000.00000 as stkmin , bienes.linea as linea , nvl(lineas.descr,space(30)) as lineadescr , bienes.grupo as grupo , nvl(grupos.descr,space(30)) as grupodescr , prod.subgrupo as subgrupo , mes1c, mes1a, mes2c, mes2a, mes3c, mes3a, mes4c, mes4a, mes5c, mes5a, mes6c, mes6a, mes7c, mes7a, mes8c, mes8a, mes9c, mes9a, mes10c, mes10a, mes11c, mes11a, mes12c, mes12a, co1 as necesidad , 000000000.00 as mes1val , 000000000.00 as mes2val , 000000000.00 as mes3val , 000000000.00 as mes4val , 000000000.00 as mes5val , 000000000.00 as mes6val , 000000000.00 as mes7val , 000000000.00 as mes8val , 000000000.00 as mes9val , 000000000.00 as mes10val , 000000000.00 as mes11val , 000000000.00 as mes12val , iif(xduni=1,prod.MES1C,prod.MES1A) as col1 , iif(xduni=1,prod.MES2C,prod.MES2A) as col2 , iif(xduni=1,prod.MES3C,prod.MES3A) as col3 , iif(xduni=1,prod.MES4C,prod.MES4A) as col4 , iif(xduni=1,prod.MES5C,prod.MES5A) as col5 , iif(xduni=1,prod.MES6C,prod.MES6A) as col6 , iif(xduni=1,prod.MES7C,prod.MES7A) as col7 , iif(xduni=1,prod.MES8C,prod.MES8A) as col8 , iif(xduni=1,prod.MES9C,prod.MES9A) as col9 , iif(xduni=1,prod.MES10C,prod.MES10A) as col10 , iif(xduni=1,prod.MES11C,prod.MES11A) as col11 , iif(xduni=1,prod.MES12C,prod.MES12A) as col12 , xduni as tipounidad , bienes.pesoxu as pesoxu , mes1c*bienes.pesoxu as peso , 0000000000 as formula , 0000000000 as maquina , space(40) as dmaquina , 0000000000.00 as ciclo , 0000000000.00 as tiempo from prod left outer join stock on prod.codigo+prod.bul+prod.atr+SPACE(8)=stock.codigo+stock.bul+stock.atr+SPACE(8) left outer join lstock on prod.codigo+prod.bul+prod.atr=lstock.codigo+lstock.bul+lstock.atr left outer join bienes on prod.codigo=bienes.cod_ins left outer join lineas on prod.linea=lineas.codigo left outer join grupos on prod.grupo=grupos.codigo where &filtro and !empty(prod.codigo+prod.bul+prod.atr) into cursor tmprpt readwrite C Suspendo?a ~ T T T  T!8"proc_stk$$ $  !F$>%!&%'>((C'!6))C'!6**C'!6++C'!6 C'!6,,C'!6>-)*+ ,FG((codigoT.$$ $  E. T/-#+C+   . %0S T/a!H%/F$>11FG((formula E1 T/-+C+ 11 9%23 1 T/a!H%/FG((codigo E4F$S>546778C' $9$:67%;]%;%Cidx04 3"Q<\idx04idx04%Ccos [Qcos%Cultcos Qultcos %Clisprec QlisprecF$ ~Y%; TA TB TClDlistadosABC$$ $ Fa TGB v.G+( ve_funcionesve_funciones_precios TG TJ%K!-CG$$ $ MCXJL X-CG$$ $ MCXJNTGGOd F$#TGGC'%6>P9GQRGSTGUVGWXGYZG[\G]^G_`GabGcdGefGgGF G-(G(G!( h\tmp\.idxF$H| i4%j,& CgC gC g(h\tmp\ 0&&   (h\tmp\ i|5& C=C=C =(h\tmp\+(h\tmp\rpt_pr_plan_de_comprasQ h\tmp\.idxBUkMAQUINASFORM_MAQCCFORMULXARCHBIENESCODINSBULTOSCODIGOATRIBUTOLSTOCKPRODBULATRDBULDESCRDATRALLFILTROXDTPRXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRUSTOCKSYS_MOSTRAR_SCREENXSMXPPXTIXFACTORARTICULO_DATOS_AMPLIADOSPROC_STKTMPRPTFACTORSTKMINXDUNI NECESIDADCANTCOMPORDECOMPPRODDISPXIDARTXENCACTIVAFORMULAPREDETTIPOMAQ_CODMAQUINADMAQUINACICLOTIEMPOMES1CMES1AXDTVAP_COMMONIDX04COSULTCOSLISPRECXANTXULTXACTFN_COSLISTADOSXDFCSXCOSTO VE_FUNCIONESVE_FUNCIONES_PRECIOSXMONEDAP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIOXDVALVE_OBTENER_PRECIO_COMPUTADOXDDSCMES1VALMES2VALMES2CMES3VALMES3CMES4VALMES4CMES5VALMES5CMES6VALMES6CMES7VALMES7CMES8VALMES8CMES9VALMES9CMES10VALMES10CMES11VALMES11CMES12VALMES12CVALORP_LOCALXDORDP_NUMINS@AAAAAARrrrrrb1A1AaqAQAAQAAAA~rsrt28 Ct1qAAAArrAAAAqr5BAB21q!AQA!A1AAr11AAs2_ AAsaabs1aA2QABD3%ŀVzTCC]RFG((codinsFG((codigoFG((codigoFG((codigoFG G-(G-( G-(>    T.t.%+T.and.bienes.tipo_art=xdtpr%a*T.and.compras.codigo=xdbie%CX'T.and.compras.bul=xdbul%CX'T.and.compras.atr=xdatr% DAT0.and.xdlin<=bienes.linea.and.bienes.linea<=xhlin% AT0.and.xdgru<=bienes.grupo.and.bienes.grupo<=xhgruFG((codigoFQ SELECT compras.codigo , compras.atr , compras.bul , compras.descr as descr , datr , dbul , alltrim(alltrim(compras.descr)+" "+alltrim(datr)+" "+alltrim(dbul) ) as dcodatrbul , iif(xduni=1,UNIDAD,UNIDADAUX) as unidad , NVL(lstock.cant ,0000000000000000000.00) as cant , NVL(lstock.comp ,0000000000000000000.00) as comp , NVL(lstock.oc ,0000000000000000000.00) as orde , NVL(lstock.op ,0000000000000000000.00) as prod , NVL(lstock.compop ,0000000000000000000.00) as compprod , 00000000.00 as disp , 00000000.00000 as valor , 00000000.00000 as factor , 00000000.00000 as stkmin , bienes.linea as linea , nvl(lineas.descr,space(30)) as lineadescr , bienes.grupo as grupo , nvl(grupos.descr,space(30)) as grupodescr , compras.subgrupo as subgrupo , mes1c, mes1a, mes2c, mes2a, mes3c, mes3a, mes4c, mes4a, mes5c, mes5a, mes6c, mes6a, mes7c, mes7a, mes8c, mes8a, mes9c, mes9a, mes10c, mes10a, mes11c, mes11a, mes12c, mes12a, co1 as necesidad , 000000000.00 as mes1val , 000000000.00 as mes2val , 000000000.00 as mes3val , 000000000.00 as mes4val , 000000000.00 as mes5val , 000000000.00 as mes6val , 000000000.00 as mes7val , 000000000.00 as mes8val , 000000000.00 as mes9val , 000000000.00 as mes10val , 000000000.00 as mes11val , 000000000.00 as mes12val , iif(xduni=1,compras.MES1C,compras.MES1A) as col1 , iif(xduni=1,compras.MES2C,compras.MES2A) as col2 , iif(xduni=1,compras.MES3C,compras.MES3A) as col3 , iif(xduni=1,compras.MES4C,compras.MES4A) as col4 , iif(xduni=1,compras.MES5C,compras.MES5A) as col5 , iif(xduni=1,compras.MES6C,compras.MES6A) as col6 , iif(xduni=1,compras.MES7C,compras.MES7A) as col7 , iif(xduni=1,compras.MES8C,compras.MES8A) as col8 , iif(xduni=1,compras.MES9C,compras.MES9A) as col9 , iif(xduni=1,compras.MES10C,compras.MES10A) as col10 , iif(xduni=1,compras.MES11C,compras.MES11A) as col11 , iif(xduni=1,compras.MES12C,compras.MES12A) as col12 , xduni as tipounidad , bienes.pesoxu as pesoxu , mes1c*bienes.pesoxu as peso , space(6) as cod_pro , space(40) as nombre , {} as fecha , 0000000 as emp from compras left outer join stock on compras.codigo+compras.bul+compras.atr+SPACE(8)=stock.codigo+stock.bul+stock.atr+SPACE(8) left outer join lstock on compras.codigo+compras.bul+compras.atr=lstock.codigo+lstock.bul+lstock.atr left outer join bienes on compras.codigo=bienes.cod_ins left outer join lineas on compras.linea=lineas.codigo left outer join grupos on compras.grupo=grupos.codigo where &filtro and !empty(compras.codigo+compras.bul+compras.atr) into cursor tmprpt readwrite ~ T T T T8proc_stk   F >!"%#>$$C#6%%C#6&&C#6''C#6((C#6))C#6>*%&'()%+ T,- T-aT. T/ T0  T1 T2 T3 T4;5 cm_funciones,a4./0123F +>718392:4F %;%;b%Cidx04 "Q<\idx04idx04%Ccos 0Qcos%Cultcos ^Qultcos %Clisprec QlisprecF ~%;d TA TB TClDlistadosABC   Fa TGB K.G+( ve_funcionesve_funciones_precios TG TJ%K-CG   MCXJL --CG   MCXJNTGGOd F #TGGC#!6 >PG%#D>QRGSTGUVGWXGYZG[\G]^G_`GabGcdGefGghG >QiGSjGUkGWlGYmG[nG]oG_pGaqGcrGesGgtGFG-(G(G!( u\tmp\.idxF HV  v%w,& CgC gCg(u\tmp\ &&  (u\tmp\ v 5& C =C =C =(u\tmp\+(u\tmp\rpt_pr_plan_de_comprasQ u\tmp\.idxBUxXARCHBIENESCODINSBULTOSCODIGOATRIBUTOLSTOCKCOMPRASBULATRDBULDESCRDATRALLFILTROXDTPRXDBIEOBIEDATA_CODIGO_VACIOXDBULXDATRXDLINXHLINXDGRUXHGRUSTOCKXSMXPPXTIXFACTORARTICULO_DATOS_AMPLIADOSPROC_STKTMPRPTFACTORSTKMINXDUNI NECESIDADCANTCOMPORDEPRODCOMPPRODDISPXDATOS_ULTIMA_COMPRAXRES XCONSOLIDADOXCODXATRXBULXCOD_PROXNOMBREXFECHAXEMPARTICULO_ULTIMA_COMPRA CM_FUNCIONESCOD_PROFECHANOMBREEMPXDTVAP_COMMONIDX04COSULTCOSLISPRECXANTXULTXACTFN_COSLISTADOSXDFCSXCOSTO VE_FUNCIONESVE_FUNCIONES_PRECIOSXMONEDAP_PRECIOS_MAX_RECURSIONVE_OBTENER_PRECIO_EXACTOXDVALVE_OBTENER_PRECIO_COMPUTADOXDDSCVALORMES1VALMES1CMES2VALMES2CMES3VALMES3CMES4VALMES4CMES5VALMES5CMES6VALMES6CMES7VALMES7CMES8VALMES8CMES9VALMES9CMES10VALMES10CMES11VALMES11CMES12VALMES12CMES1AMES2AMES3AMES4AMES5AMES6AMES7AMES8AMES9AMES10AMES11AMES12AP_LOCALXDORDP_NUMINS`Qrrrrrb1A1AaAQqAQqAAA~rrt28 ArBrB21q!AQA!A1AAr11AAr22 AAAsaabs1aA2QABD3%dTPsCCW4s"Iniciar ProduccionC3s"Cerrar ProduccionCs"\-1s"Inicio de TurnoC1s"Cierre de TurnoCs"\-2s"Chequear TiemposCs"\-)s "Dividir Planificacin31!frmPlanMaq.pup_Iniciar_Produccion21 frmPlanMaq.pup_Cerrar_Produccion01frmPlanMaq.pup_Inicio_de_turno01frmPlanMaq.pup_Cierre_de_turno,1frmPlanMaq.pup_Che_Tiempos(1 frmPlanMaq.pup_dividirtUSHORTCUT FRMPLANMAQ VALIDAR_POPUPAB2aa"a1!10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _2850OHUUA 929867975  COMMENT RESERVED  WINDOWS _28E16RH0N 930567959T % %BN COMMENT RESERVED p WINDOWS _28G0RG1V0 9325328188 L ha)/ n  COMMENT RESERVED WINDOWS _2811AH0PG 9644600492 J COMMENT RESERVED  WINDOWS _2811DZJ6I 964462797$8yS COMMENT RESERVED  WINDOWS _28216P2G4 964465742j~+ ]O COMMENT RESERVED 6 WINDOWS _28216OSS9 964606382w*O D COMMENT RESERVED  WINDOWS _2811AG61T1022535304P^rK:G, COMMENT RESERVED _VERSION = 3.00 tc_ctrl_basePixelsClass1custom tc_ctrl_baseBHeight = 17 Width = 25 ctrl_subtipo = 0 Name = "tc_ctrl_base" customtc_ctrl_inventarioPixelsClasscustom1 tc_ctrl_basetc_ctrl_inventario+*brow_articulos *grap_graficar_valores custom1PixelsClass1Class1%ctrl_subtipo *field_dblclick *brow_detalle *brow_detalle_into *get_opar *get_ogf *wind_existe_codigo *ctrl_crear_botones *ctrl_crear_menu *ctrl_menuclick *ctrl_crear_detalle *get_opar_gr *get_pagina *get_pan_grid *get_pan_graf *get_pag_grilla *get_pag_grafico Name = "tc_ctrl_inventario" tc_controladores.vcxtc_ctrl_tesoreriaPixelsClass tc_ctrl_basetc_ctrl_tesoreriaName = "tc_ctrl_tesoreria" customtc_controladores.vcxtc_ctrl_proveedoresPixelsClass1 tc_ctrl_basetc_ctrl_proveedores*brow_proveedor *ver_cpbt 7Height = 15 Width = 36 Name = "tc_ctrl_proveedores" customtc_controladores.vcxtc_ctrl_clientesPixelsClass1 tc_ctrl_basetc_ctrl_clientes-*brow_cliente *ver_cpbt *graph_top_ten 4Height = 23 Width = 28 Name = "tc_ctrl_clientes" customtc_controladores.vcxcustom tc_ctrl_baseClass2Name = "tc_ctrl_inventario_valorizado_historico" +*brow_articulos *grap_graficar_valores tc_controladores.vcxtc_ctrl_inventario_lineaPixels tc_ctrl_basetc_ctrl_inventario_lineaPixelstc_ctrl_clientes_historico1 tc_ctrl_basetc_ctrl_clientes_historico-*brow_cliente *graph_top_ten *ver_cpbt %Name = "tc_ctrl_clientes_historico" customtc_controladores.vcx#Name = "tc_ctrl_inventario_linea" 'tc_ctrl_inventario_valorizado_historicotc_controladores.vcx'tc_ctrl_inventario_valorizado_historicokPROCEDURE field_dblclick LPARAMETERS oParam as tc_form_parametros_grid OF tc.vcx, oCol as Column ** oCol es la columan donde se hizo el doble click. xNombre=ALLTRIM(UPPER(oParam.frm_name )) DO case CASE xNombre="INVENTARIOXLIN" this.brow_detalle (oParam) ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME xCod=EVALUATE(oPar_Padre.gf.sql_alias+".linea") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".lineadescr") oPar=This.get_opar(oPar_Padre, "Lnea: "+alltrim(xnom) , "INVENTXLIN", "Inventario", "cur_tc_inventario_x_lin",xcod) xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF oPar.wind_no_abrir THEN Return .f. ENDIF LOCAL xInto xInto=this.brow_detalle_into(@oPar) select; codigo ,; atr ,; bul ,; descr ,; cantidad ,; valor ,; total ; 0 as selector ; from exp_inventario_valorizado_por_lista ; order by descr ; where linea=xcod ; into &xInto *** Creo el objeto de control de la grilla LOCAL oGF as grilla_formato of form_controles.vcx oGF = this.get_ogf(oPar) *** Agrego las columnas oGF.for_add_columna(,".codigo",,50,,,,"Cdigo") oGF.for_add_columna(,".Valor",,90,, "999,999,999.99",,"Valor",,,,,.t.,,.f.,1,RGB(192,192,255)) oGF.for_add_columna(,".Total",,90,, "999,999,999.99",,"Total",,,,,.t.,,.f.,1,RGB(255,192,192)) oGF.sql_totalizar = "Total" *** Lo devuelvo para luego pasarselo a la ventana RETURN oPar ENDPROC PROCEDURE brow_proveedor LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx LOCAL oPar as tc_form_parametros_grid of tc.vcx LOCAL xCod,xNom xCod=EVALUATE(oPar_Padre.gf.sql_alias+".codigo") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".Nombre") oPar=This.get_opar(oPar_Padre, "Prov. ("+xCod+") "+xNom,"DETPro", "Comprobantes", "cur_tc_dPro_", xCod) LOCAL xInto xInto=this.brow_detalle_into(@oPar) SELECT CPBT_cod+ " "+cpbt_comp as CPBT ,; cpbt_fec as Fecha ,; cpbt_op as op ,; cpbt_imp as Saldo ,; cpbt_c as cpbt_c ,; cpbt_num as cpbt_num ,; pro_cod as pro_cod ; from Exp_Facturas_A_pagar ; WHERE pro_cod=xCod ; into &xInto *** Creo el objeto de control de la grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=1 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".CPBT","Comprobante",60,,,,,,,,,.t.) oGF.for_add_columna(,".Fecha",,60,,,,,,,,,.t.) oGF.for_add_columna(,".Op","O.P",70,,"999,999,999",,,,,,,.t.) oGF.for_add_columna(,".Saldo",,90,,"999,999.99",,,,,,,.t.,,.f.,1,RGB(255,192,192),.t.) oGF.sql_totalizar = "Saldo" oGF.sql_ordenado="Fecha" RETURN oPar ENDPROC PROCEDURE ver_cpbt LPARAMETERS opPar xPadre=opPar.frm_name SELECT (oPPar.gf.sql_alias) DO cpbt_vis2 IN ge02 WITH cpbt_num, cpbt_c, pro_cod, op ENDPROC PROCEDURE ctrl_crear_detalle LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xSubTipo AS INTEGER LOCAL oPar2 AS tc_form_parametros_grid OF tc.vcx DO CASE CASE xSubTipo=1 && Detalle por artculo oPar2=this.brow_proveedor (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() CASE xSubTipo=2 && Graficar torta de valores por artculo oPar2=THIS.graph_top_ten (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() CASE xSubtipo=3 this.ver_cpbt (oPar) ENDCASE oPar2=.F. oFRM=.F. ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx oPar=This.get_opar(oPar_Padre, "Saldo Proveedores", "SalPro", "Saldos", "cur_tc_proveedor") LOCAL xInto xInto=this.brow_detalle_into(@oPar) SELECT ; Pro_Cod as codigo ,; Pro_Des as Nombre ,; count(cpbt_num) as Cantidad ,; sum(cpbt_imp) as Total ; from Exp_Facturas_A_pagar ; group by Codigo ; order by Codigo; into &xInto LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=0 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".Codigo",,60,,,,,,,,,.t.) oGF.for_add_columna(,".Nombre",,100,,,,,,,,,.t.,,1) oGF.for_add_columna(,".Cantidad","CPBTs",50,,"999,999",,,,,,,.t.,,,2,,.t.) oGF.for_add_columna(,".Total",,90,,"999,999,999.99",,"Total",,,,,.t.,,.f.,1,RGB(255,192,192),.t.) oGF.sql_totalizar = "Total" *** Lo devuelvo para luego pasarselo a la ventana RETURN oPar ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xCtrl_Subtipo, oCol as Column ** oCol es la columan donde se hizo el doble click. DO case CASE INLIST(xCtrl_Subtipo,0,2) THIS.ctrl_crear_detalle (oPar,1) CASE xCtrl_Subtipo=1 this.ver_cpbt (oPar) ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx oPar=This.get_opar(oPar_Padre, "Tesorera", "Tesoreria", "Tesorera", "cur_tc_tesoreria") LOCAL xInto xInto=this.brow_detalle_into(@oPar) SELECT ; Abrev AS Codigo ,; dcuenta AS Nombre ,; total AS TOTAL ; FROM TMP_Tesoreria ; into &xInto *** Creo el objeto de control de la grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=0 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".Codigo",,60,,,,,,,,,.T.) oGF.for_add_columna(,".Nombre",,300,,,,,,,,,.T.,,1) oGF.for_add_columna(,".Total",,90,,"999,999,999.99",,"Total",,,,,.T.,,,1,RGB(255,192,192),.t.) oGF.sql_totalizar = "Total" *** Lo devuelvo para luego pasarselo a la ventana RETURN oPar ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xCtrl_Subtipo, oCol as Column ** oCol es la columan donde se hizo el doble click. *LPARAMETERS oPar as tc_form_parametros OF tc.vcx, oCol as Column return DO case CASE INLIST(xCtrl_Subtipo,0,2) THIS.ctrl_crear_detalle (oPar,1) CASE xCtrl_Subtipo=1 this.ver_cpbt (oPar) ENDCASE ENDPROC %PROCEDURE brow_articulos LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME xLin=EVALUATE(oPar_Padre.gf.sql_alias+".linea") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".dlinea") oPar=This.get_opar(oPar_Padre, "Lnea: "+alltrim(xnom) , "INVENTXLIN", "Inventario Valorizado", "cur_tc_inventario_val_x_lin", STR(xlin)) oPar.ctrl_subtipo = 1 local xinto xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF this.wind_existe_codigo(oPar) THEN Return .f. ENDIF if !used("exp_inventario_historico_valorizado_at") use c:\sistema\2000\system\data\1\xchg\exp_inventario_historico_valorizado_at.dbf in 0 endif select ; "" as dlinea ,; 0000 as linea ,; "TOTALES" as codigo ,; space(3) as atr ,; space(3) as bul ,; "" as descr ,; sum(m1) as m1 ,; sum(m2) as m2 ,; sum(m3) as m3 ,; sum(m4) as m4 ,; sum(m5) as m5 ,; sum(m6) as m6 ,; sum(m7) as m7 ,; sum(m8) as m8 ,; sum(m9) as m9 ,; sum(m10) as m10 ,; sum(m11) as m11 ,; sum(m12) as m12 ,; linea ,; "N" as es_sub ,; "S" as es_tot ; from inv_t ; where linea=xlin ; into table (p_server+"\xchg\exp_inventario_historico_valorizado_tot") select * ,; "N" as es_sub ,; "N" as es_tot ; from exp_inventario_historico_valorizado_at ; order by descr ; where linea=xlin ; into &xInto append from (p_server+"\xchg\exp_inventario_historico_valorizado_tot") index on codigo+atr+bul tag codigo index on descr tag descr *** Creo el objeto de control de la grilla LOCAL oGF as grilla_formato of form_controles.vcx oGF = this.get_ogf(oPar) *** Agrego las columnas * Parmetros xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor oGF.for_add_columna(,".Codigo","Cdigo" ,40,,,,"es_sub+es_tot+codigo",,,,,.t.) oGF.for_add_columna(,".Atr","Atr" ,10,,,,"es_sub+es_tot+codigo",,,,,.t.) oGF.for_add_columna(,".Bul","Bul" ,10,,,,"es_sub+es_tot+codigo",,,,,.t.) oGF.for_add_columna(,".descr","Descripcin" ,80,,,,"es_sub+es_tot+descr",,,,,.t.) if !used("inv_td") use (p_server+"\xchg\exp_inventario_historico_valorizado_td") in 0 alias inv_td endif select inv_td go top for z=1 to 12 oGF.for_add_columna(,".m"+alltrim(str(z)), dtoc(inv_td.fecha_val) ,65,, "99,999,999" , ,"es_sub+es_tot+str(m"+alltrim(str(z))+",12,2)" ,,,,,.t.,,.f.,1,) select inv_td skip endfor *oGF.for_add_columna(,".Total",,90,, "999,999,999.99",,"Total",,,,,.t.,,.f.,1,RGB(255,192,192)) *oGF.sql_totalizar = "Total" oGF.for_dynamics_coll.add( ' "DynamicFontBold", "IIF(es_tot=[S],.t. , .f.)", "Column" ' ) oGF.for_dynamics_coll.add( ' "DynamicBackColor","IIF(es_tot=[S],rgb(255,128,128) , rgb(255,255,255))", "Column" ' ) oFRM = NEWOBJECT("tc_form_grid", "tc.vcx","",oPar) oFRM.SHOW() ENDPROC PROCEDURE grap_graficar_valores LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grafico of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME oPar=This.get_opar_gr(oPar_Padre, oPar_padre.frm_caption ,oPar_padre.frm_nameid +"_GR", "", oPar_Padre.sql_alias+"_GR") oPar.ctrl_subtipo = 2 local xinto xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF this.wind_existe_codigo(oPar) THEN Return .f. ENDIF if !used("inv") use (p_server+"\xchg\exp_inventario_historico_valorizado") in 0 alias inv again endif select ; fecha_val ,; sum(total) as total ; from inv ; group by fecha_val ; into &xInto *!* select; *!* descr as Linea ,; *!* cantidad ,; *!* total ; *!* from (oPar_Padre.sql_alias) ; *!* order by descr ; *!* into &xInto xDBF=DBF() USE *** Creo el objeto de control de la grilla LOCAL oGR as gr_parametros OF borrar_graficos.prg, oGr_tipo as grf_tipo_comunes of borrar_graficos.prg oGR=NEWOBJECT("gr_parametros", "borrar_graficos.prg") oGR_tipo=NEWOBJECT("grf_tipo_comunes", "borrar_graficos.prg") oGR.grt_Tabla = xDBF oGR.gre_Eje_X.Eje_Titulo="Fecha" oGR.gre_Eje_Y.Eje_Titulo="Valor" *oGR.gr_series.agregar("Fecha_val","Fecha") oGR.gr_categorias.agregar("Fecha_val","Fecha") oGR.gr_datos.agregar("Total","Total") oGR.Grf_tipo = oGR_tipo.CH_LINE oPar.opar_gr = oGR oFRM = NEWOBJECT("tc_form_grafico", "tc.vcx","",oPar) oFRM.SHOW() ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, oCol as Column ** oCol es la columan donde se hizo el doble click. xNombre=ALLTRIM(UPPER(oPar.frm_name )) DO case CASE xNombre="INVENTARIOHISTORICO" this.ctrl_crear_detalle(oPar, 1) && Detalle de artculos x Linea ENDCASE ENDPROC PROCEDURE ctrl_menuclick LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xMenuKey, xSubMenuKey IF TYPE("xSubMenuKey")="L" THEN xSubMenuKey="" ENDIF *** MenKey es la clave del primer botn, *** el dropdown, hoy hay solo 1, pero en el futuro espero que mas! *** xSubMenuKey es la opcin de ese menu. DO CASE CASE oPar.ctrl_subtipo = 0 && Grilla inicial de detalle DO CASE CASE xSubMenuKey="CTRL_VALOR" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,2) CASE xSubMenuKey="CTRL_DETALLE" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,1) *!* CASE INLIST(xSubMenuKey, "CTRL_EVOL", "CTRL_EVOL2") *!* =mensaje("Esta opcin aun no est habilitada.") OTHERWISE =mensaje("Esta opcin aun no est habilitada.") ENDCASE CASE oPar.ctrl_subtipo = 1 && Detalle por lnea DO CASE CASE xSubMenuKey="CTRL_VALOR" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,2) CASE xSubMenuKey="CTRL_DETALLE" OR xSubMenuKey="" =mensaje("Esta opcin aun no est habilitada.") OTHERWISE =mensaje("Esta opcin aun no est habilitada.") ENDCASE ENDCASE ENDPROC PROCEDURE ctrl_crear_menu LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, BM AS MSComctlLib.ButtonMenus DO CASE CASE oPar.ctrl_subtipo = 0 BM.ADD(,"xSep1","-") BM.ADD(,"CTRL_VALOR","Graficar Evolucin") * BM.ADD(,"CTRL_EVOL","Evolucin en el tiempo") * BM.ADD(,"CTRL_EVOL2","Evolucin en el tiempo 2") CASE oPar.ctrl_subtipo = 1 ENDCASE ENDPROC PROCEDURE ctrl_crear_detalle LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xSubTipo as Integer DO CASE CASE xSubTipo=1 && Detalle por artculo this.brow_articulos (oPar) CASE xSubTipo=2 && Graficar torta de valores por artculo this.Grap_Graficar_Valores (oPar) ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx oPar=This.get_opar(oPar_Padre, "Inventario", "INVENTARIOHISTORICO", "Inventario", "cur_tc_inventario") LOCAL xInto xInto=this.brow_detalle_into(@oPar) if !used("inv_t") use (p_server+"\xchg\exp_inventario_historico_valorizado_t") in 0 alias inv_t endif select ; "TOTALES" as dlinea ,; sum(m1) as m1 ,; sum(m2) as m2 ,; sum(m3) as m3 ,; sum(m4) as m4 ,; sum(m5) as m5 ,; sum(m6) as m6 ,; sum(m7) as m7 ,; sum(m8) as m8 ,; sum(m9) as m9 ,; sum(m10) as m10 ,; sum(m11) as m11 ,; sum(m12) as m12 ,; linea ,; "N" as es_sub ,; "S" as es_tot ; from inv_t ; into table (p_server+"\xchg\exp_inventario_historico_valorizado_tot") select * ,; "N" as es_sub ,; "N" as es_tot ; from inv_t ; order by dlinea ; into &xInto append from (p_server+"\xchg\exp_inventario_historico_valorizado_tot") *** Creo el objeto de control de la grilla LOCAL oGF as grilla_formato of form_controles.vcx oGF = this.get_ogf(oPar) if !used("inv_td") use (p_server+"\xchg\exp_inventario_historico_valorizado_td") in 0 alias inv_td endif *** Agrego las columnas * Parmetros xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor *oGF.for_add_columna(,".Articulos",,90,, "999,999,999", ,"Articulos",,,,,.t.,,.f.,1,RGB(192,192,255)) *oGF.for_add_columna(,".Cantidad",,90,, "999,999,999.99", ,"Cantidad",,,,,.t.,,.f.,1,RGB(192,192,255)) oGF.for_add_columna(,".dLinea","Lnea" ,200,,,,"es_sub+es_tot+dlinea") select inv_td go top for z=1 to 12 oGF.for_add_columna(,".m"+alltrim(str(z)), dtoc(inv_td.fecha_val) ,65,, "99,999,999" , ,"es_sub+es_tot+str(m"+alltrim(str(z))+",12,2)" ,,,,,.t.,,.f.,1,) select inv_td skip endfor *oGF.sql_totalizar = "Total" oGF.for_dynamics_coll.add( ' "DynamicFontBold", "IIF(es_tot=[S],.t. , .f.)", "Column" ' ) oGF.for_dynamics_coll.add( ' "DynamicBackColor","IIF(es_tot=[S],rgb(255,128,128) , rgb(255,255,255))", "Column" ' ) *** Lo devuelvo para luego pasarselo a la ventana RETURN oPar ENDPROC "yy"%`TU85QTC_FORM_PARAMETROStc.vcxQCOLUMNUOPARTCVCXOCOL\:QTC_FORM_PARAMETROS_GRIDtc.vcxQSTRING%CxSufijobCd TT T TT OTC * table (' \tmp\') cursor 6&TC  readwrite 6T BUOPARTCVCXXSUFIJOXHEADXCODIGOXALIASXDESTINOXRWSQL_ALIAS_HEAD FRM_CODIGO SQL_ALIASP_DEVP_LOCAL FRM_NAMEIDFRM_NAME`,QTC_FORM_PARAMETROS_GRIDtc.vcx0TCtc_form_parametros_gridtc.vcx%C TT  T C _T  T T T TTTT BU OPAR_PADREXCAPTIONXNAME XPAG_CAPTION XSQL_ALIAS XSQL_CODIGOOPARTCVCX FRM_CODIGOFRM_NAME FRM_CAPTION PAG_CAPTION FRM_PADRE OBJ_CONTROLTHISSQL_GRID_SET_IDSQL_ALIAS_HEAD SQL_CODIGO,QTC_FORM_PARAMETROS_GRIDtc.vcx/QGRILLA_FORMATOform_controles.vcx3TCgrilla_formatoform_controles.vcxTTaTaT T  BU OPARTCVCXOGFFORM_CONTROLES SQL_ALIAS SQL_NOCLOSE SQL_NORECMOV GRID_SETS_IDSQL_GRID_SET_IDGF'QTC_FORM_PARAMETROStc.vcx T-% Ta1%CoPar.frm_padrebO C C BUOPARTCVCXXEXISTE WIND_NO_ABRIR FRM_PADRE TC_OVENTANAS VEN_ACTIVAR9,QTC_FORM_PARAMETROS_GRIDtc.vcx$%CoPAr.oForm.TBCbOTB8QMSCOMCTLLIB.ToolbarQMSCOMCTLLIB.ButtonT2TC CTRL_MENU Ver % T -(TCDUMMY T -U OPARTCVCXTBCBMOFORMBUTTONSADD BUTTONMENUSCOUNTVISIBLEENABLEDNKQTC_FORM_PARAMETROS_GRIDtc.vcxQMSCOMCTLLIB.ButtonMenusUOPARTCVCXBM4QTC_FORM_PARAMETROS_GRIDtc.vcx!%C xSubMenuKeybLcC C-UOPARTCVCXXMENUKEY XSUBMENUKEYMENSAJEf/QTC_FORM_PARAMETROS_GRAFICOtc.vcx3TCtc_form_parametros_graficotc.vcx%C TT  T C _T  T T T TTTT BU OPAR_PADREXCAPTIONXNAME XPAG_CAPTION XSQL_ALIAS XSQL_CODIGOOPARTCVCX FRM_CODIGOFRM_NAME FRM_CAPTION PAG_CAPTION FRM_PADRE OBJ_CONTROLTHISSQL_GRID_SET_IDSQL_ALIAS_HEAD SQL_CODIGO,QTC_FORM_PARAMETROS_GRIDtc.vcx"Q PPAN_PAGE tc_paneles*TC ppan_pagetc_paneles.vcxTTT  BU OPARTCVCXOPAG TC_PANELES PAG_TITULO PAG_CAPTIONPAG_NAME FRM_NAMEIDOBJ_CTRLTHISl&Q PPAN_GRIDtc_paneles.vcx*TC pPan_gridtc_paneles.vcxT BUOGRID TC_PANELESVCXOBJ_CTRLTHISr)Q PPAN_GRAFICOtc_paneles.vcx-TC pPan_Graficotc_paneles.vcxT BUOGRAF TC_PANELESVCXOBJ_CTRLTHISQ PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcxQINTEGERTC TC T TC T CCUOPAROPAG TC_PANELESVCXOGRIDOGFFORM_CONTROLES XCTRL_SUBTIPOTHIS GET_PAGINA GET_PAN_GRID CTRL_SUBTIPOGET_OGFGFAGREGAR_OBJETOPANELESOBJETOSADD/Q PPAN_PAGEtc_paneles.vcxQ PPAN_GRAFICOtc_paneles.vcxQ GR_PARAMETROSborrar_graficos.prgQINTEGERTC TC T 3TC gr_parametrosborrar_graficos.prgT CCUOPAROPAG TC_PANELESVCXOGRAFOGRBORRAR_GRAFICOSPRG XCTRL_SUBTIPOTHIS GET_PAGINA GET_PAN_GRAF CTRL_SUBTIPOOBJ_GRAGREGAR_OBJETOPANELESOBJETOSADDfield_dblclick0brow_detalle_intoget_oparuget_ogfwind_existe_codigo ctrl_crear_botonesctrl_crear_menuctrl_menuclick get_opar_gr get_pagina get_pan_grid/ get_pan_graf get_pag_grillamget_pag_grafico-1Q2Arar2Ar22112qr"qAA2AAA2"A23AaA21Ar2#112a23RSs3R3r1[ )C$a4.1D E9m * TFP hH lO tbjo,tQ})ycPROCEDURE brow_cliente LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Seteo las propiedades por defecto de la ventana, como el caption, nombre. *** Tambien le digo a la ventana cual es el alias y si usa cdigo de cliente LOCAL oPar as tc_form_parametros_grid of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME xCod=EVALUATE(oPar_Padre.gf.sql_alias+".codigo") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".Nombre") oPar=This.get_opar(oPar_Padre, "Cliente ("+xCod+") "+xNom,"DETCLI", "Comprobantes", "cur_tc_dCli_", xCod) oPar.ctrl_subtipo=1 xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. **** Ejecuto la consulta de datos SELECT CPBT+ " "+Numero as CPBTs ,; Fecha as Fecha ,; vto ,; iif(date()-vto>=0, date()-vto,000000000000) as atraso ,; Importe as Importe ,; Saldo as Saldo ,; numero as numero ,; causa as causa ,; codigo as codigo ; from Exp_Facturas_A_Cobrar ; WHERE codigo=xCod ; into &xInto *** Creo el objeto de control de la grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=1 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".CPBTs","Cpbts.",60,,,,,,,,,.t.) oGF.for_add_columna(,".Fecha",,60,,,,,,,,,.t.) oGF.for_add_columna(,".Vto","Vencimiento",60,,,,,,,,,.t.) oGF.for_add_columna(,".Importe",,90,,"999,999.99",,,,,,,.t.,,,1) oGF.for_add_columna(,".Atraso",,90,,"999,999,999",,,,,,,.t.,,,1) oGF.for_add_columna(,".Saldo",,90,,"999,999.99",,,,,,,.t.,,.f.,1,RGB(255,192,192)) oGF.sql_totalizar = "Saldo" *** Una vez que tengo oPar completo, creo la ventana y le paso *** el objeto para que se autoconfigure. Luego la muestro. RETURN oPar ENDPROC PROCEDURE graph_top_ten LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grafico of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME oPar=This.get_opar_gr(oPar_Padre, oPar_padre.frm_caption ,oPar_padre.frm_nameid +"_GR", "", oPar_Padre.sql_alias+"_GR") oPar.ctrl_subtipo = 2 local xinto, xDBF xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF this.wind_existe_codigo(oPar) THEN Return .f. ENDIF SELECT TOP 10; nombre as cliente ,; cantidad ,; total ,; -total as total2 ; from (oPar_Padre.sql_alias) ; order by total2 ; into &xInto xDBF=DBF() USE *** Creo el objeto de control de la grilla LOCAL oGR as gr_parametros OF borrar_graficos.prg, oEJE as GRe_EJE OF borrar_graficos.prg oGR=NEWOBJECT("gr_parametros", "borrar_graficos.prg") oGR.grt_Tabla = xDBF oGR.gre_Eje_X.Eje_Titulo="Clientes" oGR.gre_Eje_Y.Eje_Titulo="Deuda ($)" oGR.grf_Titulo="Espacio grafico" oGR.grf_Titulo_grafico="Grafico" oGR.gr_series.agregar("Cliente","Cliente") *oGR.gr_categorias.agregar("Cliente","Cliente") oGR.gr_datos.agregar("Total","Deuda Total") oPar.opar_gr = oGR oFRM = NEWOBJECT("tc_form_grafico", "tc.vcx","",oPar) oFRM.SHOW() ENDPROC PROCEDURE ver_cpbt LPARAMETERS opPar xPadre=opPar.frm_name SELECT (oPPar.gf.sql_alias) DO cpbt_vis2 IN ge01 WITH numero, causa, codigo ENDPROC PROCEDURE field_dblclick LPARAMETERS oParam as tc_form_parametros_grid OF tc.vcx, oCol as Column ** oCol es la columan donde se hizo el doble click. xNombre=ALLTRIM(UPPER(oParam.frm_name )) DO case CASE xNombre="SALCLIHIS" this.brow_cliente (oParam) CASE left(xNombre,6)="DETCLI" this.ver_cpbt (oParam) ENDCASE ENDPROC PROCEDURE ctrl_menuclick LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xMenuKey, xSubMenuKey IF TYPE("xSubMenuKey")="L" THEN xSubMenuKey="" ENDIF *** MenKey es la clave del primer botn, *** el dropdown, hoy hay solo 1, pero en el futuro espero que mas! *** xSubMenuKey es la opcin de ese menu. DO CASE CASE oPar.ctrl_subtipo = 0 && Grilla inicial de detalle DO CASE CASE xSubMenuKey="CTRL_DETALLE" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,1) CASE xSubMenuKey="CTRL_TOP10" THIS.ctrl_crear_detalle (oPar,2) OTHERWISE =mensaje("Esta opcin aun no est habilitada.") ENDCASE CASE oPar.ctrl_subtipo = 1 && Detalle por lnea =mensaje("Esta opcin aun no est habilitada.") ENDCASE ENDPROC PROCEDURE ctrl_crear_menu LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, BM as MSComctlLib.ButtonMenus DO CASE CASE oPar.ctrl_subtipo = 0 BM.ADD(,"xSep1","-") BM.ADD(,"CTRL_TOP10","Top Ten de deudores") CASE oPar.ctrl_subtipo = 1 BM.ADD(,"xSep1","-") BM.ADD(,"CTRL_CPBT2","Comprobantes 2") ENDCASE ENDPROC PROCEDURE ctrl_crear_detalle LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xSubTipo as Integer DO CASE CASE xSubTipo=1 && Detalle por artculo this.brow_cliente (oPar) CASE xSubTipo=2 && Graficar torta de valores por artculo this.graph_top_ten (oPar) ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre AS tc_form_parametros_grid OF tc.vcx *** Seteo las propiedades por defecto de la ventana, como el caption, nombre. *** Tambien le digo a la ventana cual es el alias y si usa cdigo de cliente LOCAL oPar AS tc_form_parametros_grid OF tc.vcx oPar=THIS.get_opar(oPar_Padre, "Saldo Ctas. Ctes de Clientes", "SalCliHis", "Saldos", "cur_tc_clientes") LOCAL xInto, xinto_a,xinto_b AS STRING xInto=THIS.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF oPar.wind_no_abrir THEN RETURN .F. ENDIF xinto_a=THIS.brow_detalle_into(oPar, "_a") xinto_b=THIS.brow_detalle_into(oPar, "_b") **** Ejecuto la consulta de datos SELECT Codigo AS Codigo ,; Nombre AS Nombre ,; COUNT(Numero) AS Cantidad ,; SUM(Saldo) AS TOTAL ; FROM Exp_Facturas_A_Cobrar ; GROUP BY Codigo ; ORDER BY Codigo; INTO &xinto_a xinto_a=ALIAS() * Atrasos SELECT Codigo AS Codigo ,; SUM( Saldo) AS vencido ,; SUM( Saldo*(DATE()-vto) ) / SUM(Saldo) AS atraso; FROM Exp_Facturas_A_Cobrar ; GROUP BY Codigo ; ORDER BY Codigo ; WHERE (vto-DATE())<0 ; INTO &xinto_b xinto_b=ALIAS() * Uno todo SELECT ; aaa.* ,; NVL(bbb.vencido,00000000000000000.00) AS vencido,; NVL(bbb.atraso,00000000000000000.00) AS atraso ; FROM &xinto_a aaa ; LEFT OUTER JOIN &xinto_b bbb ON aaa.Codigo=bbb.Codigo; INTO &xInto LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=0 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".Codigo",,60,,,,,,,,,.T.) oGF.for_add_columna(,".Nombre",,100,,,,,,,,,.T.,,1) oGF.for_add_columna(,".Cantidad","CPBTs",50,,"999,999",,,,,,,.T.,,,2) oGF.for_add_columna(,".Total",,90,,"999,999,999.99",,"Total",,,,,.T.,,.F.,1,RGB(255,192,192),.t.) oGF.for_add_columna(,".Vencido",,90,,"999,999,999.99",,,,,,,.T.,,.F.,1,,.t.) oGF.for_add_columna(,".Atraso",,50,,"999,999",,,,,,,.T.,,,2) oGF.sql_totalizar = "Total" *** Lo devuelvo para luego pasarselo a la ventana que se crea RETURN oPar ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros OF tc.vcx, oCol as Column ENDPROC PROCEDURE brow_detalle_into LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xSufijo as String IF TYPE("xSufijo") #"C" THEN xSufijo ="" ENDIF LOCAL xHead, xCodigo, xAlias, xDestino, xRW *** Obtengo el Header del alias y si es un detalle de UN cliente si cdigo. xHead=oPar.sql_alias_head xCodigo=oPar.frm_codigo xAlias=xHead + xCodigo &&& Creo un nuevo ALIAS usando header y cdigo oPar.sql_alias = xAlias xdestino=iif(p_dev," table ('"+p_local+"\tmp\"+xAlias+xSufijo+"')"," cursor "+xAlias+xSufijo) xRW=iif(p_dev,""," readwrite ") oPar.frm_nameid = oPar.frm_name + xCodigo && le pongo el nombre con cdigo de cliente RETURN xDestino + xRW ENDPROC PROCEDURE get_opar LPARAMETERS oPar_Padre, xCaption, xName, xPag_Caption, xSQL_Alias, xSQL_Codigo LOCAL oPar as tc_form_parametros_grid OF tc.vcx oPar= NEWOBJECT("tc_form_parametros_grid", "tc.vcx") IF EMPTY(xSQL_Codigo) THEN xSQL_Codigo="" oPar.FRM_codigo ="" ELSE &&& Es un Alias y nombre proveniente de un cliente, NECESITO el cdigo sin espacio oPar.FRM_codigo = CHRTRAN(xSQL_Codigo, ' ', '_') ENDIF oPar.frm_name =xName + oPar.FRM_codigo && Ahora el nombre tiene el cdigo oPar.frm_caption =xCaption oPar.pag_caption=xPag_Caption oPar.frm_padre = oPar_Padre &&& Referencia del padre oPar.obj_control = this && Guardo el objeto controlador para futuros detalles oPar.sql_grid_set_id = xName oPar.sql_alias_head = xSQL_Alias oPar.sql_codigo = xSQL_Codigo RETURN oPar ENDPROC PROCEDURE get_ogf LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx LOCAL oGf as grilla_formato OF form_controles.vcx oGF = NEWOBJECT("grilla_formato", "form_controles.vcx") oGF.sql_alias = oPar.sql_alias oGF.sql_noclose = .t. &&& Esto evita el cierre de la tabla oGF.sql_norecmov = .t. &&& Esto evita que se mueva el puntero de la tabla al final oGF.grid_sets_id = oPar.sql_grid_set_id oPar.gf = oGF RETURN oGF ENDPROC PROCEDURE wind_existe_codigo LPARAMETERS oPar as tc_form_parametros OF tc.vcx LOCAL xExiste xExiste= .f. IF oPar.wind_no_abrir THEN xExiste=.t. IF TYPE("oPar.frm_padre")="O" and !isnull(oPar.frm_padre) THEN oPar.frm_padre.tc_oventanas.ven_activar(oPar) ENDIF ENDIF RETURN xExiste ENDPROC PROCEDURE ctrl_crear_botones LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx IF TYPE("oPAr.oForm.TBC")#"O" && and !isnull(oPAr.oForm.TBC) THEN RETURN ENDIF LOCAL TBC as MSComctlLib.Toolbar, BM as MSComctlLib.Button TBC=oPAr.oForm.TBC BM=TbC.Buttons.Add (1,"CTRL_MENU"," Ver ",5) *this.ctrl_crear_menu(oPar, BM.ButtonMenus ) IF BM.ButtonMenus.Count= 0 THEN bm.Visible=.f. ENDIF BM=TbC.Buttons.Add (2,"DUMMY"," ") BM.Enabled=.f. ENDPROC PROCEDURE ctrl_crear_menu LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, BM as MSComctlLib.ButtonMenus ENDPROC PROCEDURE ctrl_menuclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xMenuKey, xSubMenuKey IF TYPE("xSubMenuKey")="L" THEN =Mensaje(xMenuKey) ELSE =Mensaje(xMenuKey+"-"+xSubMenuKey) ENDIF ENDPROC PROCEDURE get_opar_gr LPARAMETERS oPar_Padre, xCaption, xName, xPag_Caption, xSQL_Alias, xSQL_Codigo LOCAL oPar as tc_form_parametros_grafico OF tc.vcx oPar= NEWOBJECT("tc_form_parametros_grafico", "tc.vcx") IF EMPTY(xSQL_Codigo) THEN xSQL_Codigo="" oPar.FRM_codigo ="" ELSE &&& Es un Alias y nombre proveniente de un cliente, NECESITO el cdigo sin espacio oPar.FRM_codigo = CHRTRAN(xSQL_Codigo, ' ', '_') ENDIF oPar.frm_name =xName + oPar.FRM_codigo && Ahora el nombre tiene el cdigo oPar.frm_caption =xCaption oPar.pag_caption=xPag_Caption oPar.frm_padre = oPar_Padre &&& Referencia del padre oPar.obj_control = this && Guardo el objeto controlador para futuros detalles oPar.sql_grid_set_id = xName oPar.sql_alias_head = xSQL_Alias oPar.sql_codigo = xSQL_Codigo RETURN oPar ENDPROC PROCEDURE get_pagina LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx LOCAL oPag as ppan_page OF tc_paneles oPag = NEWOBJECT("ppan_page", "tc_paneles.vcx") oPag.pag_titulo = oPar.pag_caption oPag.pag_name = oPar.frm_nameid oPag.obj_ctrl= this RETURN oPag ENDPROC PROCEDURE get_pan_grid LOCAL oGrid as pPan_grid OF tc_paneles.vcx oGrid=NEWOBJECT("pPan_grid","tc_paneles.vcx") oGrid.obj_ctrl = this RETURN oGrid ENDPROC PROCEDURE get_pan_graf LOCAL oGraf as pPan_Grafico OF tc_paneles.vcx oGraf=NEWOBJECT("pPan_Grafico","tc_paneles.vcx") oGraf.obj_ctrl = this RETURN oGraf ENDPROC PROCEDURE get_pag_grilla LPARAMETERS oPar, oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xctrl_Subtipo as Integer oPag=this.get_pagina(oPar) oGrid=this.get_pan_grid () oGrid.ctrl_subtipo = xctrl_Subtipo *** Creo el objeto de control de la grilla oGF = THIS.get_ogf(oPar) oGRid.gf = oGF oPag.agregar_objeto(oGrid) oPar.paneles.objetos.add(oPag) ENDPROC PROCEDURE get_pag_grafico LPARAMETERS oPar, oPag as pPan_page OF tc_paneles.vcx, oGraf as pPan_Grafico OF tc_paneles.vcx, oGR AS gr_parametros OF borrar_graficos.prg, xctrl_Subtipo as Integer oPag=this.get_pagina(oPar) oGraf=this.get_pan_graf () oGraf.ctrl_subtipo = xctrl_Subtipo *** Creo el objeto de control del grafico oGR = NEWOBJECT("gr_parametros", "borrar_graficos.prg") oGraf.obj_gr = oGR oPag.agregar_objeto(oGraf) oPar.paneles.objetos.ADD(oPag) ENDPROC PROCEDURE brow_articulos LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME xCod=EVALUATE(oPar_Padre.gf.sql_alias+".linea") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".dlinea") oPar=This.get_opar(oPar_Padre, "Lnea: "+alltrim(xnom) , "INVENTXLIN", "Inventario Detallado", "cur_tc_inventario_x_lin", STR(xcod)) oPar.ctrl_subtipo = 1 local xinto xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF this.wind_existe_codigo(oPar) THEN Return .f. ENDIF select; codigo ,; atr ,; bul ,; descr ,; cantidad ,; valor ,; total ,; 0 as selector ; from exp_inventario_valorizado_por_lista ; order by descr ; where linea=xcod ; into &xInto index on codigo+atr+bul tag codigo index on descr tag descr *** Creo el objeto de control de la grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=1 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas * Parmetros xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor oGF.for_add_columna(,".Codigo","Cdigo" ,40,,,,"codigo",,,,,.t.) oGF.for_add_columna(,".Atr","Atr" ,10,,,,"codigo",,,,,.t.) oGF.for_add_columna(,".Bul","Bul" ,10,,,,"codigo",,,,,.t.) oGF.for_add_columna(,".descr","Descripcin" ,80,,,,"descr",,,,,.t.) oGF.for_add_columna(,".Cantidad",,90,, "999,999,999.99", ,"Cantidad",,,,,.t.,,.f.,1,RGB(192,192,255),.t.) oGF.for_add_columna(,".Valor",,90,, "999,999,999.99",,"Valor",,,,,.t.,,.f.,1,RGB(192,192,255)) oGF.for_add_columna(,".Total",,90,, "999,999,999.99",,"Total",,,,,.t.,,.f.,1,RGB(255,192,192),.t.) oGF.sql_totalizar = "Total" RETURN oPar ENDPROC PROCEDURE grap_graficar_valores LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grafico of tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME oPar=This.get_opar_gr(oPar_Padre, oPar_padre.frm_caption ,oPar_padre.frm_nameid +"_GR", "", oPar_Padre.sql_alias+"_GR") oPar.ctrl_subtipo = 2 local xinto xInto=this.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. *** Una vez que tengo todo lo anterior puedo saber si existe una la ventana igual activa *** como hija de la ventana padre de esta. IF this.wind_existe_codigo(oPar) THEN Return .f. ENDIF select; descr as Linea ,; cantidad ,; total ; from (oPar_Padre.sql_alias) ; order by descr ; into &xInto xDBF=DBF() USE *** Creo el objeto de control de la grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo LOCAL oGR AS gr_parametros OF borrar_graficos.prg, oEJE AS GRe_EJE OF borrar_graficos.prg LOCAL oGraf AS PPan_grafico OF tc_paneles.vcx xCtrl_Subtipo=2 this.get_pag_grafico(oPar, @oPag, @oGraf, @oGR, xCtrl_Subtipo) oGR.grt_Tabla = xDBF oGR.gre_Eje_X.Eje_Titulo="Cantidad" oGR.gre_Eje_Y.Eje_Titulo="Cantidad en Stock" oGR.gr_series.agregar("Linea","Lnea") *oGR.gr_categorias.agregar("Linea","Linea") oGR.gr_datos.agregar("Cantidad","Cantidad") RETURN oPar ENDPROC PROCEDURE ctrl_crear_detalle LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xSubTipo AS INTEGER LOCAL oPar2 AS tc_form_parametros_grid OF tc.vcx DO CASE CASE xSubTipo=1 && Detalle por artculo oPar2=this.brow_articulos (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() CASE xSubTipo=2 && Graficar torta de valores por artculo oPar2=this.Grap_Graficar_Valores (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() ENDCASE oPar2=.F. oFRM=.F. ENDPROC PROCEDURE ctrl_crear_menu LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, BM AS MSComctlLib.ButtonMenus DO CASE CASE oPar.ctrl_subtipo = 0 BM.ADD(,"CTRL_EVOL","Evolucin en el tiempo") BM.ADD(,"CTRL_EVOL2","Evolucin en el tiempo 2") CASE oPar.ctrl_subtipo = 1 BM.ADD(,"CTRL_VALOR","Graficar valores") ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre as tc_form_parametros_grid of tc.vcx *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar as tc_form_parametros_grid of tc.vcx oPar=This.get_opar(oPar_Padre, "Inventario", "Invent", "Inventario", "cur_tc_inventario") LOCAL xInto xInto=this.brow_detalle_into(@oPar) select; iif(empty(lineadescr),padr(" NO DEFINIDA",40), lineadescr) as dlinea,; sum(cantidad) as Cantidad ,; sum(total) as Total ,; count(*) as Articulos ,; 0 as selector ,; linea ; from exp_inventario_valorizado_por_lista ; group by lineadescr ; order by lineadescr ; into &xInto LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=0 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas * Parmetros xcodigo, xCtrlSource, xCaption, xAncho, xFormato, xInputMask, xSQLCol, xOrden, xTag, xSeleccionada, xDescripcion, xCONTROL, xReadOnly,xevn_not_when, xFor_Autosize, xfor_aling, xFor_BackColor oGF.for_add_columna(,".dLinea","Lnea" ,200,,,,"Linea") oGF.for_add_columna(,".Articulos",,90,, "999,999,999", ,"Articulos",,,,,.t.,,.f.,1,RGB(192,192,255)) oGF.for_add_columna(,".Cantidad",,90,, "999,999,999.99", ,"Cantidad",,,,,.t.,,.f.,1,RGB(192,192,255)) oGF.for_add_columna(,".Total",,90,, "999,999,999" , ,"Total" ,,,,,.t.,,.f.,1,RGB(255,192,192),.t.) oGF.sql_totalizar = "Total" *** Lo devuelvo para luego pasarselo a la ventana RETURN oPar ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xCtrl_Subtipo, oCol as Column ** oCol es la columan donde se hizo el doble click. DO case CASE INLIST(xCtrl_Subtipo,0,2) THIS.ctrl_crear_detalle (oPar,1) CASE xCtrl_Subtipo=1 *this.ver_cpbt (oPar) ENDCASE ENDPROC PROCEDURE ctrl_menuclick LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xMenuKey, xSubMenuKey IF TYPE("xSubMenuKey")="L" THEN xSubMenuKey="" ENDIF IF TYPE("xCtrl_Subtipo")="L" THEN xCtrl_Subtipo=oPar.ctrl_subtipo ENDIF *** MenKey es la clave del primer botn, *** el dropdown, hoy hay solo 1, pero en el futuro espero que mas! *** xSubMenuKey es la opcin de ese menu. DO CASE CASE xCtrl_Subtipo = 0 && Grilla inicial de detalle DO CASE CASE xSubMenuKey="CTRL_DETALLE" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,1) CASE xSubMenuKey="CTRL_TOP10" THIS.ctrl_crear_detalle (oPar,2) OTHERWISE =mensaje("Esta opcin aun no est habilitada.") ENDCASE CASE xCtrl_Subtipo = 1 && Detalle por lnea =mensaje("Esta opcin aun no est habilitada.") ENDCASE ENDPROC ("5%fzrU,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcx TC.linea TC.dlineahTCLnea: C INVENTXLINInventario Detalladocur_tc_inventario_x_linCZ T  T C %C TB-select codigo , atr , bul , descr , cantidad , valor , total , 0 as selector from exp_inventario_valorizado_por_lista order by descr where linea=xcod into &xInto & & yQ PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcx T!C5C.CodigoCdigo(codigoa/C.AtrAtr codigoa/C.BulBul codigoa8C.descr DescripcinPdescraSC .CantidadZ999,999,999.99Cantidada-C^aLC.ValorZ999,999,999.99Valora-C^MC.TotalZ999,999,999.99Totala-C^aTTotal BU OPAR_PADRETCVCXOPARXCODXNOMGF SQL_ALIASTHISGET_OPAR CTRL_SUBTIPOXINTOBROW_DETALLE_INTOWIND_EXISTE_CODIGOCODIGOATRBULDESCROPAG TC_PANELESOGRIDOGFFORM_CONTROLES XCTRL_SUBTIPOGET_PAG_GRILLAFOR_ADD_COLUMNA SQL_TOTALIZARG,QTC_FORM_PARAMETROS_GRIDtc.vcx/QTC_FORM_PARAMETROS_GRAFICOtc.vcx 8TC _GR _GRT  T C %CB-select descr as Linea , cantidad , total from (oPar_Padre.sql_alias) order by descr into &xInto TC&QyQ PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcxUQ GR_PARAMETROSborrar_graficos.prgQGRE_EJEborrar_graficos.prg)Q PPAN_GRAFICOtc_paneles.vcx T!CTTCantidad$TCantidad en Stock CLineaLnea !&CCantidadCantidad"! BU# OPAR_PADRETCVCXOPARXCODXNOMTHIS GET_OPAR_GR FRM_CAPTION FRM_NAMEID SQL_ALIAS CTRL_SUBTIPOXINTOBROW_DETALLE_INTOWIND_EXISTE_CODIGOXDBFOPAG TC_PANELESOGRIDOGFFORM_CONTROLES XCTRL_SUBTIPOOGRBORRAR_GRAFICOSPRGOEJEOGRAFGET_PAG_GRAFICO GRT_TABLA GRE_EJE_X EJE_TITULO GRE_EJE_Y GR_SERIESAGREGARGR_DATOS];QTC_FORM_PARAMETROS_GRIDtc.vcxQINTEGER,QTC_FORM_PARAMETROS_GRIDtc.vcxHx@ TC/TCtc_form_panelestc.vcx C @TC /TCtc_form_panelestc.vcx C T- T-U OPARTCVCXXSUBTIPOOPAR2THISBROW_ARTICULOSOFRMSHOWGRAP_GRAFICAR_VALORES&KQTC_FORM_PARAMETROS_GRIDtc.vcxQMSCOMCTLLIB.ButtonMenusH\ 3C CTRL_EVOLEvolucin en el tiempo6C CTRL_EVOL2Evolucin en el tiempo 2 .C CTRL_VALORGraficar valoresUOPARTCVCXBM CTRL_SUBTIPOADD,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcxLTC InventarioInvent Inventariocur_tc_inventarioTC^select iif(empty(lineadescr),padr(" NO DEFINIDA",40), lineadescr) as dlinea, sum(cantidad) as Cantidad , sum(total) as Total , count(*) as Articulos , 0 as selector , linea from exp_inventario_valorizado_por_lista group by lineadescr order by lineadescr into &xInto yQ PPAN_PAGEtc_paneles.vcx Q PPAN_GRIDtc_paneles.vcx QGRILLA_FORMATOform_controles.vcx T !C  .C.dLineaLneaLinea QC .ArticulosZ 999,999,999 Articulosa-C^ RC .CantidadZ999,999,999.99Cantidada-C^ JC.TotalZ 999,999,999Totala-C^a T Total BU OPAR_PADRETCVCXOPARTHISGET_OPARXINTOBROW_DETALLE_INTOOPAG TC_PANELESOGRIDOGFFORM_CONTROLES XCTRL_SUBTIPOGET_PAG_GRILLAFOR_ADD_COLUMNA SQL_TOTALIZAR>QTC_FORM_PARAMETROS_GRIDtc.vcxQCOLUMNHO CzC UOPARTCVCX XCTRL_SUBTIPOOCOLTHISCTRL_CREAR_DETALLE4QTC_FORM_PARAMETROS_GRIDtc.vcx!%C xSubMenuKeybLb T#%C xCtrl_SubtipobLTH H{*  CTRL_DETALLE C  CTRL_TOP10AC 2{0C#Esta opcin aun no est habilitada.  0C#Esta opcin aun no est habilitada. U OPARTCVCXXMENUKEY XSUBMENUKEY XCTRL_SUBTIPO CTRL_SUBTIPOTHISCTRL_CREAR_DETALLEMENSAJEbrow_articulos0grap_graficar_valores2ctrl_crear_detalle ctrl_crear_menu brow_detalle field_dblclickctrl_menuclick1rQtqAbU1Q3rQtqAYAQAb31Q1QA2a1aaA4rQ!Q2qA1B2AA1A1AAA1A1% ?6E3pEYN^,@ee)N"55%|U,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcxLTC Tesorera Tesoreria Tesoreracur_tc_tesoreriaTCuSELECT Abrev AS Codigo , dcuenta AS Nombre , total AS TOTAL FROM TMP_Tesoreria into &xInto yQ PPAN_PAGEtc_paneles.vcx Q PPAN_GRIDtc_paneles.vcx QGRILLA_FORMATOform_controles.vcx T !C  %C.CodigoQTC_FORM_PARAMETROS_GRIDtc.vcxQCOLUMNBHS C~C CUOPARTCVCX XCTRL_SUBTIPOOCOLTHISCTRL_CREAR_DETALLEVER_CPBT brow_detalle0field_dblclick1rQWSQ2FqA1A3!F )5 "3%/]U:QTC_FORM_PARAMETROS_GRIDtc.vcxQCOLUMNTCCfH_! INVENTARIOXLINCUOPARAMTCVCXOCOLXNOMBREFRM_NAMETHIS BROW_DETALLEl,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcx TC.linea$TC .lineadescr]TCLnea: C INVENTXLIN Inventariocur_tc_inventario_x_lin T C % 1B- T C select codigo , atr , bul , descr , cantidad , valor , total 0 as selector from exp_inventario_valorizado_por_lista order by descr where linea=xcod into &xInto / QGRILLA_FORMATOform_controles.vcxT C(C.codigo2Cdigo LC.ValorZ999,999,999.99Valora-C^ LC.TotalZ999,999,999.99Totala-C^ T Total BU OPAR_PADRETCVCXOPARXCODXNOMGF SQL_ALIASTHISGET_OPARXINTOBROW_DETALLE_INTO WIND_NO_ABRIROGFFORM_CONTROLESGET_OGFFOR_ADD_COLUMNA SQL_TOTALIZARfield_dblclick0 brow_detalle1CA2AR$qAtQnQQ19` )&PROCEDURE brow_cliente LPARAMETERS oPar_Padre AS tc_form_parametros_grid OF tc.vcx *** Seteo las propiedades por defecto de la ventana, como el caption, nombre. *** Tambien le digo a la ventana cual es el alias y si usa cdigo de cliente LOCAL oPar AS tc_form_parametros_grid OF tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME xCod=EVALUATE(oPar_Padre.gf.sql_alias+".codigo") xNom=EVALUATE(oPar_Padre.gf.sql_alias+".Nombre") oPar=THIS.get_opar(oPar_Padre, "Cliente ("+xCod+") "+xNom,"DETCLI", "Comprobantes", "cur_tc_dCli_", xCod) oPar.ctrl_subtipo=1 xInto=THIS.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. **** Ejecuto la consulta de datos SELECT CPBT+ " "+Numero AS CPBTs ,; Fecha AS Fecha ,; vto ,; IIF(DATE()-vto>=0, DATE()-vto,000000000000) AS atraso ,; Importe AS Importe ,; Saldo AS Saldo ,; Numero AS Numero ,; causa AS causa ,; codigo AS codigo ; FROM Exp_Facturas_A_Cobrar ; WHERE codigo=xCod ; INTO &xInto LOCAL oPag AS pPan_page OF tc_paneles.vcx, oGrid AS pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=1 THIS.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".CPBTs","Cpbts.",60,,,,,,,,,.T.) oGF.for_add_columna(,".Fecha",,60,,,,,,,,,.T.) oGF.for_add_columna(,".Vto","Vencimiento",60,,,,,,,,,.T.) oGF.for_add_columna(,".Importe",,90,,"999,999.99",,,,,,,.T.,,,1) oGF.for_add_columna(,".Atraso",,90,,"999,999,999",,,,,,,.T.,,,1) oGF.for_add_columna(,".Saldo",,90,,"999,999.99",,,,,,,.T.,,.F.,1,RGB(255,192,192)) oGF.sql_totalizar = "Saldo" *** Una vez que tengo oPar completo, creo la ventana y le paso *** el objeto para que se autoconfigure. Luego la muestro. RETURN oPar ENDPROC PROCEDURE ver_cpbt LPARAMETERS opPar SELECT (oPPar.gf.sql_alias) DO cpbt_vis2 IN ge01 WITH numero, causa, codigo ENDPROC PROCEDURE graph_top_ten LPARAMETERS oPar_Padre AS tc_form_parametros_grid OF tc.vcx if used("TCCCLI") select TCCCLI use endif *** Se lo pongo al objeto de parametros de ventanas de TC LOCAL oPar AS tc_form_parametros_grafico OF tc.vcx LOCAL xCod,xNom && Obtengo el cdigo y el nombre para el caption y NAME oPar=THIS.get_opar_gr(oPar_Padre, oPar_Padre.frm_caption ,oPar_Padre.frm_nameid +"_GR", "", oPar_Padre.sql_alias+"_GR") oPar.ctrl_subtipo = 2 *************************************************************************************************************************** LOCAL xinto, xDBF xinto=THIS.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. SELECT TOP 10 ; codigo,; nombre AS cliente ,; cantidad ,; TOTAL ,; -TOTAL AS total2 ; FROM (oPar_Padre.sql_alias) ; ORDER BY total2 ; INTO &xinto xDBF=DBF() xDBF=ADDBS(JUSTPATH(xDBF))+JUSTSTEM(xDBF)+"_Grafico.dbf" COPY TO (xDBF) WITH cdx *************************************************************************************************************************** *************************************************************************************************************************** *** Grilla LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=2 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) oPag.pag_titulo ="Top Ten deudores" oPag.Pag_name=oPag.pag_name + "_Grilla" *** Agrego las columnas oGF.for_add_columna(,".Codigo",,60,,,,,,,,,.T.) oGF.for_add_columna(,".Cliente",,100,,,,,,,,,.T.,,1) oGF.for_add_columna(,".Cantidad","CPBTs",50,,"999,999",,,,,,,.T.,,,2) oGF.for_add_columna(,".Total",,90,,"999,999,999.99",,"Total",,,,,.T.,,.F.,1,RGB(255,192,192),.T.) *************************************************************************************************************************** *************************************************************************************************************************** *** Grafico *** Creo el objeto de control del Grafico LOCAL oGR AS gr_parametros OF borrar_graficos.prg, oEJE AS GRe_EJE OF borrar_graficos.prg LOCAL oGraf AS PPan_grafico OF tc_paneles.vcx this.get_pag_grafico(oPar, @oPag, @oGraf, @oGR, xCtrl_Subtipo) oPag.pag_titulo ="Top Ten deudores - Grfico" oPag.Pag_name=oPag.pag_name + "_Grafico" oGR.GRT_Alias = "TCCCLI" oGR.grt_Tabla = xDBF oGR.gre_Eje_X.Eje_Titulo="Clientes" oGR.gre_Eje_Y.Eje_Titulo="Deuda ($)" oGR.grF_TITULO = "Top Ten deudores" oGR.grF_SubTITULO = "" *!* oGR.gr_series.agregar("Cliente","Cliente") *!* oGR.gr_datos.agregar("Total","Deuda Total") oGR.GRF_Tipo= 7 *xgPar.grt_Tabla = "f:\SISTEMA\2000\SYSTEM\data\1\xchg\tc_resumen.dbf" oGR.gre_Eje_X.Eje_Titulo="Mi Eje X" oGR.gre_Eje_X.FieldXAxis="alltrim(STR(recno()))" oGR.gre_Eje_Y.Eje_Titulo="Mi Eje Y" oGR.gre_Eje_Y.FieldColor = "RGB(INT(RAND()*254),INT(RAND()*254),INT(RAND()*254))" oGR.gre_Eje_Y.FieldDetachSlice = ".T."&&"lDetach" oGR.gre_Eje_Y.FieldLegend = "alltrim(STR(recno()))+' - '+Cliente"&&"cLegend" oGR.gr_datos.agregar("Total","Cliente",RGB(INT(rand()*254),INT(rand()*254),INT(rand()*254)) ) *!* xgPar.gr_datos.agregar("Pro","Pro",RGB(INT(rand()*254),INT(rand()*254),INT(rand()*254)) ) *!* xgPar.gr_datos.agregar("Pos1","Pos1",RGB(INT(rand()*254),INT(rand()*254),INT(rand()*254)) ) *oGR.aplicar(this.msGR) RETURN oPar ENDPROC PROCEDURE field_dblclick LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, xCtrl_Subtipo, oCol as Column ** oCol es la columan donde se hizo el doble click. DO case CASE INLIST(xCtrl_Subtipo,0,2) THIS.ctrl_crear_detalle (oPar,1) CASE xCtrl_Subtipo=1 this.ver_cpbt (oPar) ENDCASE ENDPROC PROCEDURE brow_detalle LPARAMETERS oPar_Padre AS tc_form_parametros_grid OF tc.vcx *** Seteo las propiedades por defecto de la ventana, como el caption, nombre. *** Tambien le digo a la ventana cual es el alias y si usa cdigo de cliente LOCAL oPar AS tc_form_parametros_grid OF tc.vcx oPar=THIS.get_opar(oPar_Padre, "Saldo Clientes", "SalCli", "Saldos", "cur_tc_clientes") LOCAL xInto, xinto_a,xinto_b AS STRING xInto=THIS.brow_detalle_into(@oPar) && Analizo el alias y si es cursor o tabla. xinto_a=THIS.brow_detalle_into(oPar, "_a") xinto_b=THIS.brow_detalle_into(oPar, "_b") **** Ejecuto la consulta de datos SELECT Codigo AS Codigo ,; Nombre AS Nombre ,; COUNT(Numero) AS Cantidad ,; SUM(Saldo) AS TOTAL ; FROM Exp_Facturas_A_Cobrar ; GROUP BY Codigo ; ORDER BY Codigo; INTO &xinto_a xinto_a=ALIAS() * Atrasos SELECT Codigo AS Codigo ,; SUM( Saldo) AS vencido ,; SUM( Saldo*(DATE()-vto) ) / SUM(Saldo) AS atraso; FROM Exp_Facturas_A_Cobrar ; GROUP BY Codigo ; ORDER BY Codigo ; WHERE (vto-DATE())<0 ; INTO &xinto_b xinto_b=ALIAS() * Uno todo SELECT ; aaa.* ,; NVL(bbb.vencido,00000000000000000.00) AS vencido,; NVL(bbb.atraso,00000000000000000.00) AS atraso ; FROM &xinto_a aaa ; LEFT OUTER JOIN &xinto_b bbb ON aaa.Codigo=bbb.Codigo; INTO &xInto SELECT (xInto_B) USE SELECT (xInto_a) USE LOCAL oPag as pPan_page OF tc_paneles.vcx, oGrid as pPan_grid OF tc_paneles.vcx, oGF AS grilla_formato OF form_controles.vcx, xCtrl_Subtipo xCtrl_Subtipo=0 this.get_pag_grilla(oPar, @oPag, @oGrid, @oGF, xCtrl_Subtipo) *** Agrego las columnas oGF.for_add_columna(,".Codigo",,60,,,,,,,,,.T.) oGF.for_add_columna(,".Nombre",,100,,,,,,,,,.T.,,1) oGF.for_add_columna(,".Cantidad","CPBTs",50,,"999,999",,,,,,,.T.,,,2) oGF.for_add_columna(,".Total",,90,,"999,999,999.99",,"Total",,,,,.T.,,.F.,1,RGB(255,192,192),.t.) oGF.for_add_columna(,".Vencido",,90,,"999,999,999.99",,,,,,,.T.,,.F.,1,,.t.) oGF.for_add_columna(,".Atraso",,50,,"999,999",,,,,,,.T.,,,2) oGF.sql_totalizar = "Total" LOCAL oPar2 AS tc_form_parametros_grid OF tc.vcx oPar2=this.graph_top_ten(oPar) oPar.Paneles.Copiar_Paginas(oPar2) *** Lo devuelvo para luego pasarselo a la ventana que se crea RETURN oPar ENDPROC PROCEDURE ctrl_crear_detalle LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xSubTipo AS INTEGER LOCAL oPar2 AS tc_form_parametros_grid OF tc.vcx DO CASE CASE xSubTipo=1 && Detalle por artculo oPar2=THIS.brow_cliente (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() CASE xSubTipo=2 && Graficar torta de valores por artculo oPar2=THIS.graph_top_ten (oPar) oFRM = NEWOBJECT("tc_form_paneles", "tc.vcx","",oPar2) oFRM.SHOW() ENDCASE oPar2=.F. oFRM=.F. ENDPROC PROCEDURE ctrl_crear_menu LPARAMETERS oPar as tc_form_parametros_grid OF tc.vcx, BM as MSComctlLib.ButtonMenus DO CASE CASE oPar.ctrl_subtipo = 0 BM.ADD(,"CTRL_DETALLE","Detalle del cliente") BM.ADD(,"CTRL_TOP10","Top Ten de deudores") CASE oPar.ctrl_subtipo = 1 BM.ADD(,"CTRL_CPBT2","Comprobantes 2") ENDCASE ENDPROC PROCEDURE ctrl_menuclick LPARAMETERS oPar AS tc_form_parametros_grid OF tc.vcx, xMenuKey, xSubMenuKey, xCtrl_Subtipo IF TYPE("xSubMenuKey")="L" THEN xSubMenuKey="" ENDIF IF TYPE("xCtrl_Subtipo")="L" THEN xCtrl_Subtipo=oPar.ctrl_subtipo ENDIF *** MenKey es la clave del primer botn, *** el dropdown, hoy hay solo 1, pero en el futuro espero que mas! *** xSubMenuKey es la opcin de ese menu. DO CASE CASE xCtrl_Subtipo = 0 && Grilla inicial de detalle DO CASE CASE xSubMenuKey="CTRL_DETALLE" OR xSubMenuKey="" THIS.ctrl_crear_detalle (oPar,1) CASE xSubMenuKey="CTRL_TOP10" THIS.ctrl_crear_detalle (oPar,2) OTHERWISE =mensaje("Esta opcin aun no est habilitada.") ENDCASE CASE xCtrl_Subtipo = 1 && Detalle por lnea =mensaje("Esta opcin aun no est habilitada.") ENDCASE ENDPROC  " k%= 7 C U,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcx  TC.codigo TC.NombreXTCProv. () DETPro Comprobantes cur_tc_dPro_  T C SELECT CPBT_cod+ " "+cpbt_comp as CPBT , cpbt_fec as Fecha , cpbt_op as op , cpbt_imp as Saldo , cpbt_c as cpbt_c , cpbt_num as cpbt_num , pro_cod as pro_cod from Exp_Facturas_A_pagar WHERE pro_cod=xCod into &xInto y Q PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcx T!C 0C.CPBT ComprobanteC .CantidadCPBTs2999,999aa MC.TotalZ999,999,999.99Totala-C^a T Total BU OPAR_PADRETCVCXOPARTHISGET_OPARXINTOBROW_DETALLE_INTOOPAG TC_PANELESOGRIDOGFFORM_CONTROLES XCTRL_SUBTIPOGET_PAG_GRILLAFOR_ADD_COLUMNA SQL_TOTALIZAR>QTC_FORM_PARAMETROS_GRIDtc.vcxQCOLUMNHO CzC CUOPARTCVCX XCTRL_SUBTIPOOCOLTHISCTRL_CREAR_DETALLEVER_CPBTbrow_proveedor0ver_cpbtctrl_crear_detalle{ brow_detalle_field_dblclickH 1sQ+A1!QQ2q31Q1Q1A3rQ TQ4qA1A16U+4+4 G; m) >"%%o%|l6UR,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcx  TC.codigo TC.NombreZTC Cliente () DETCLI Comprobantes cur_tc_dCli_ T T C :SELECT CPBT+ " "+Numero AS CPBTs , Fecha AS Fecha , vto , IIF(DATE()-vto>=0, DATE()-vto,000000000000) AS atraso , Importe AS Importe , Saldo AS Saldo , Numero AS Numero , causa AS causa , codigo AS codigo FROM Exp_Facturas_A_Cobrar WHERE codigo=xCod INTO &xInto y Q PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcx T!C ,C.CPBTsCpbts.QTC_FORM_PARAMETROS_GRIDtc.vcxQCOLUMNHO CzC CUOPARTCVCX XCTRL_SUBTIPOOCOLTHISCTRL_CREAR_DETALLEVER_CPBT,QTC_FORM_PARAMETROS_GRIDtc.vcx,QTC_FORM_PARAMETROS_GRIDtc.vcxJTCSaldo ClientesSalCliSaldoscur_tc_clientesQSTRINGTC TC_a TC_b SELECT Codigo AS Codigo , Nombre AS Nombre , COUNT(Numero) AS Cantidad , SUM(Saldo) AS TOTAL FROM Exp_Facturas_A_Cobrar GROUP BY Codigo ORDER BY Codigo INTO &xinto_a TCSELECT Codigo AS Codigo , SUM( Saldo) AS vencido , SUM( Saldo*(DATE()-vto) ) / SUM(Saldo) AS atraso FROM Exp_Facturas_A_Cobrar GROUP BY Codigo ORDER BY Codigo WHERE (vto-DATE())<0 INTO &xinto_b TCSELECT aaa.* , NVL(bbb.vencido,00000000000000000.00) AS vencido, NVL(bbb.atraso,00000000000000000.00) AS atraso FROM &xinto_a aaa LEFT OUTER JOIN &xinto_b bbb ON aaa.Codigo=bbb.Codigo INTO &xInto FQ FQy Q PPAN_PAGEtc_paneles.vcx Q PPAN_GRIDtc_paneles.vcx QGRILLA_FORMATOform_controles.vcx T!C   %C.Codigo=0, date()-vto,000000000000) as atraso , Importe as Importe , Saldo as Saldo , numero as numero , causa as causa , codigo as codigo from Exp_Facturas_A_Cobrar WHERE codigo=xCod into &xInto y Q PPAN_PAGEtc_paneles.vcxQ PPAN_GRIDtc_paneles.vcxQGRILLA_FORMATOform_controles.vcx T!C ,C.CPBTsCpbts.>>???@@@@@@BBBCCCDDDEEEFFFGGGHHHJJJJJJLLLLLLNNNOOORRR___TTTaaaUUUbbbWWWcccYYYccc[[[\\\]]]]]]^^^______```aaaaaabbbbbbcccccccccccccccccc% L* K4G+(listados T T T T T T T T 3 listados (T  \cpbt\  -logo.jpg T TFG((codigoFG((codigoFG((codigoFG-(G-(G-(%Ctipodoc Q\tipodocFG((codigoFG-(FG((codigoFG-(F#T!empty(tmp_asig.viaje)set filter to &xfiltrodatos %!Tzar_asignaciones.frx T  T! T"T#ZAR_1C]C Suspendo?a$?%listados !"#aaaaa mselect tmp_asig.viaje , tmp_asig.lugarcarga , tsp_luga.descr as dlugar , tsp_chof.descr as dchofer , tipodoc.descr as dtipodoc , tsp_chof.documento , tsp_cami.patente as cami_pat , tsp_trai.patente as trai_pat , tmp_asig.fecha , tmp_asig.hc1 from tmp_asig left outer join tsp_luga on tmp_asig.lugarcarga=tsp_luga.codigo left outer join tsp_chof on tmp_asig.chofer=tsp_chof.codigo left outer join tsp_cami on tmp_asig.camion=tsp_cami.codigo left outer join tsp_trai on tmp_asig.trailer=tsp_trai.codigo order by tmp_asig.viaje where &xfiltrodatos into table (p_Local+'\tmp\tmp_asignaciones_xls') G+(listadosG~(ClasesT&C ExportacionesN(T'CExportaciones_ParametrosN&T'(Asignaciones de Viajes(T')tmp_asignaciones_xls.dbf C'*CviajeViaje'*C lugarcargaCD'*$Cdlugar Descripcin'* CdchoferChofer'*$Cdtipodoc Tipo.Doc.'*%C documento Documento'*%Ccami_pat Pat.Camin'*%Ctrai_pat Pat.Chasis'*CfechaFecha'*Chc1Horario'*T'+C'&,FG-(FG(G-(#)U-XTIPOLISTADOS ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA DATOS_EMPRESA ZEMPLOGO_TXTP_SERVERP_EMPZEMPLOGO P_EMP_LOGO ZEMPMARCAAGUA P_EMP_AGUATSP_CHOFCODIGOTSP_CAMITSP_TRAITMP_ASIGCHOFERCAMIONTRAILERP_SYSTEMTIPODOCTSP_LUGA LUGARCARGA XFILTRODATOS XFORMULARIOXDESTINOXDRIVERXCOPIAS XIDARCHIVOSYS_MOSTRAR_SCREENIMPRIMIR_FORMULARIOXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLSq"1srrrAqr1rrr22r0&$!cAAQQQ DraraaR1%!G=J#SX TC$TC2X T T+a THa  !es_sch_gastos_2_fecha(%C !  T LIQUIDACINTXF %K C C ( T Ta C)J( T- T T T T T T  T! T" T# T$ T% T& T' T( T) T* T+ T, T- T. T/ T0 T1T2 T32 T4<5 5 J(5 T6 T7 T8T9NT:NT;C X T< T=a T> T? T@ TA TB TC TD TE TF TG TH TI TJ TK"%C xComentariobC 6 TLT MN \atrcan.ges@ MG+(te_pagoG+(te_procsG+(listadosG+( co_funcionesSte_pago:%CN \reccue.ges0 CN \pagcue.ges0 plC+Atencin, los atributos no fueron asignadosC *a las cuentas de tesorera o estn mal !!!TB-%C recmaxefebN@N \reccue.ges@N \pagcue.gesUte_procsVte_procs%WWW%XKXX%YyYY%ZZZ)J([(Xv%[X!F\G((cuentaEC[^"%C4C_M\S rC^[TXX[(Z%[Z!F\G((cuentaEC[`%C4 C\_a C`[TZZ%C pendientes@FbQ%C comprobanteslFcQTdC]TeC]TfC] TgThCX Ti Tj Tk T> T? T CcEo pendientesQlom<n1p\tmp\eQQp\tmp\ec Tqrte_pagof Cs Tt T/Fu ~ T//uv T0 Tw Tx-Fc ~ T00cy)TwwCcy cy60Txx Ccy czC X-6 Fc T{ T|T+/. T| T} T6 T7 T~ T% = C~-C7a c C- T7TNTC0/%t TD/te_procs/ Tte_pago(%C  !%+ CG+(listadosG~(clasesBUXFECHA XCONCEPTOXFORMXRESXMAXFORMES_SCH_GASTOS_2_FECHAWIZARDXNUMEROFXCAUSA TMP_GASTOSIMPORTET_FINALTILDELIQ_ASTO LIQ_FECHAXFROMXLIGHTABRIR_TABLAS_FIJASCAJCHPCHEOTRCAJLOCALCHPLOCALCHELOCALOTRLOCAL XERRPADRONXRGANXRGAN2 XMSG_RETIBXRETIBXRETIB2XRETIVAXRETIVA2XRETCPXRETCP2XRETARXRETAR2PAGPROVCHE_TERCHE_PROOTROS XDIFCBIOACCV_ACREDIMAXCAN MAXCANFLD V_APLICADOV_PAGADO V_PARCIAL V_EFECTIVOANT_PAGOBASEANT_PAGTCXDIFCBIOXDIFCDUE XDIFOLDACCXDIFDOCSIONOXCUENABONAXINICOBXTOTCPBTXSALDOXSALMARXTOTMAR XMARCADOS XSALDOCOBXSALDO_SOBRE_PREVISTO XIMPORTACIONXFACTURACION_ULTIMO_ANO XERROR_RETIVA XERROR_RETGAN XERROR_RETIB XERROR_RETCP P_MMLIGHTP XCOMENTARIOTEMPP_SERVERTE_PAGOTE_PROCSLISTADOS CO_FUNCIONES OPEN_FILESMENSAJERESTORE_RECCUERESTORE_PAGCUE PAGMAXEFE PAGMAXCHE PAGMAXCHP PAGMAXOTRZCUENTASCUENTAPAGCHEATRIBUTOPAGOTR ES_RETENCION PENDIENTES COMPROBANTES XPENDIENTES XCOMPROBANTESXPAGOSXTIPOPAGXCOD_PROXFECEMIXMONEDAXCAMBIOIMPORTACCAUSAVENCMARKEDP_LOCALXMONTO_ACTUALIZADO CREAR_PAGOS ACTUALIZARXTIPO_PAGO_RETENCIONESPAGOSPESOS V_ANTICIPOS HAYANTAPROVSALDOCOMPROBRETGANCOMI XDIFCBIO_NC XDIFTOTAL XLDIFTOTAL CLC_DIFCBIOHAYCOMIXIMPORTE_TOTAL_A_PAGARAPLICAR TRANSACCIONCLASES T T T# co_funciones%tC Bg T TZ trsaccom_operchequesdiariogconcepto sch_gastos% TN trsacsch_gastos_liquidarGastos Schillig Liquidacin%TC %% T T Td T TeN trsacsch_gastos_liquidarGastos Schillig Liquidacin% 9CSe ha registrado el asiento CCZ !!!  Tf BUXASIENTOXERRXERRMSGABRIR_EJERCICIO_FECHA CO_FUNCIONESXFECHAMENSAJE XRESULTADOAAALOCK_GTRSACBEG_TRAN REGISTRAREND_TRAN TTS_ERROR5%C tmp_detalle'FQo tmp_gastoscuentassch_gastos_concC Q  Q  Q     C   tmp_detalle T T T T T Ta T T, co_asientosJaCMaster. Suspendo?aF#)F ~F>  !"S#N$N  F% ~gF>%%&%'% !"S#N$NHfc %(EFE>#E >)@ >* %(CHE2CC%+ ZC%,Zchequesidcheq>#C+%-,%,.3[CC%-Z ]C% C*/%01 21341561788 >)A %(OTR>#E >)< >* %(CHPcO>#C+%-,%,.PCC%-Z C* >)B T9 T:V; co_asientos9:<*a7 =FG(-~>   C F? G((idu E8%C4 Z T@"%? C? %> T@ F>9<F?>9<  T@%@% B BUA TMP_DETALLE TMP_GASTOSID_CONCSCH_GASTOS_CONCDESCRABREVCENTROCUENTASCOD_CUEIMPORTELINEATRANCODIGOTILDELIQ_ASTO LIQ_FECHAXABMXTIPOXMONEDAXCAMBIO XIMPORTACION XAFECTA_SUBDXUNXTABLA_VERSIONES CO_ASIENTOSOSYS_MOSTRAR_SCREENMASTERDEBITOCREDITO COMENTARIOCOD_CENCAMBIOMONEDASUBDCODPASEPROCLIPAGOSCUENTAPESOSTIPOOPCATR XCONCEPTONUMEROSUBNUMNUMINTTIPO_CHQCONCEPTOOLDCODCHEQUESOLDCPBTCOMPROBOLDPASEPASEOLDCAUSACAUSAIDUXASIENTOXASI_MAREGISTRAR_ASIENTOXFECHARELEASEELIMINAR SCH_GASTOS TTS_ERROR transaccion registrar}1AA2rQx"A!!a"qA21B2qA1qA1qA1qA1AAq!AA1AAqAAqAAqAAWAdqAAqAAsA1Aw1AABB2B#B332Ar2222AAAAA3qAA0!sQrrQ CsrQ " BCcrarA#"qsrsAAA2A3"''J9%60M6OBUA`1  ( @  åT䴁TT)۵Pȏާp™p GЬŤvMţ쿑i~ӮEmK>@@@@@@@=Ou $}@9᳈@$9YXWWWWWWTc͚:뷄n츂9"G᳃׽Y_4ަomպ$պ$պ$պ$պ$պ$պ$պ$ճ$¡%(ᲄgD 04)FⴄԿ ۷TQG׭MqiH+23)G߭zۺTSEۮTަqdK,2/3ߐEۺTSEۮTԪޮ}NT˼1̫TiTuTuTuTuTiTSܥofM%(By컊ƣۺTSEۮT֮xHWeą.@???6cϭاvh\嶉h2VඌZۺTSEۮT䮆cuʳeћN\\\\[Oؠ]иar^?=NZۺTSEۮTȲEL/MJ˭JȭJȭJȭJȰJȦJȜJɮɔ_d9^ڭۺTSEۮT ٮ·ZӰӰӰӰӰӰӰּ.ƩyfufۺTSEۮTإYSֻTx;IHHHHHFBŦ .ۺTSEۮTݪe?ZֽT}DQPPPPPNKȩ ̴_δݙTۺTSEۮT߁Z%㲃6TۺTSEۮTԪJײL/M纒JJJJJJJJ羘JO!跅,MۺTSEۮT䮆ZkŰeΔDSRRRRRPL۾嵅0PۺTSEۮTxP`©eNj8HGGGGGE@ٻ嵅0PۺTSEۮTԪᴎNɜT1ҴT{T䴇T䴄T䴄T䴄T䴄T䴄T䴄T䴁TT!嵅0PۺTSEۮT%嵅0PۺTSFװM䶈0PۺTSB׫}mܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ܬ$ñDⱁ0PشTZ(QYWWWWWWWWWWWWWWWWXX@9Mտ[k.*++++++++++++++++++*:O.o*&-,,,,,,,,,,,,,,,,,,VŧГW%bSDFFFFFFFFFFFFFFFFECg̩>ɻ%TZT`T`T`T`T`T`T`T`T`T`T`T`T`T`T`T`T]TۜZTҴT1C00JFIFddDucky(Adobed     $$''$$53335;;;;;;;;;;  %% ## ((%%((22022;;;;;;;;;;X"x!1A"Qaq2BR#br3CSc$ ?tlY]ܦ屹#KlF;p6}e`ɉ*l?]z] X9mױr_l qR6İ(0@RA<7y>*jc@f\(TyJ}Lu|Da!׬G[0YF 6aj ksf>ҡl}^1q|+ XH?L9  4MP;lv _;0*ܮ"aOthIs⸶IW*F 5g'*>9@"uLX#փm͚Q4&WR?t&XMAtn䷔u W7V<~::_%6ktei|x[h6=.TdzCkaBAЧN#[ss:8ҬL255;Y?Gve=؛uk}LDAS} mܽaRϼGXv12Aw!Z"a2>>ICkmq}p`D‐NH! G(ܫ#^mc:SYYKI_9Zfkl&`oҧ%b u7޴~OF_2ċDcy=Y`r/4>C@2av##J~vIacP!L)#P t!tڬ:QF ( 'Gk 5T8DP+l{6I&vl$J򙿱(H,#O5i3XʃWOq@q}@Qӎ'"I'qj訤߿u"Ovk6eDIɔx"␙$hRHl H vm,HGB`j}{!?-`HH[0T M*;['LY(dqbީޫ?pGzw$DGڠUsfDzWKUXPfwC<Ɓ0d\t֥ƵDSܒ,ut6DZ|v a=(¸ .K0`^WU3k}=)5p>MyIcŀqccCoTR4]bXH{e"?0({%SŲm Y L8 O֗ŏCY >@M2-d+>?klck>LK_IqȘJ'KcW[mց\iK2&n=RّeT,qJlۑbA+ڂ!RVܧՊ(` _kg6lh}Z%e8؎?tx^GAۯ~u6+Pt`pYHH6ny_C6)SnFA XEs-xDI~0 \< CS׽`l= j @Ⲥ1\ȸ4<J!{7/itkT$*( .r0梈A}"1zcj R9#J|GNTLkLuf{ fMې1"YA (Cr3ӊm:$БV,mpA v&($bŚָ8"4Y q9ټ 2RVPtmJX{׵׷abg745`$$^iu(q}h.IG#I$qAyJ$D&Hw ˎa}{gGZ3`؎5Xmi&(>UL)l@&e!PVPOsj B!TLzMAb|~mRPXW_M)+'E$-.lI&I7₪۔'<^;,u E楣M;g۶%SnU>H鑧}RХ&8Z t27";gK.Ę0Ѳb}2R(PaqL\!Hxto;Fn=1ZS^feKzӡ2ĕTz 6!A YhtYAHY1@ˬ+0aSaa Rjn688"R`j vEdC?+lWח4!dJh4b lTi$,ҠߧAޞK7*'R ^@$>#dlV[ ǽ.{I*q!Htuj١ѵuDfL~AI Ge\! onime2-$IiΐQk$@Sk։["x.5 1Ij̛T"a=h9v̺Tt8Քqm[< ݕC6T6kԲ(&!HΠ~`:t}`@$VLmL2$O_y $q Zq">b⧸o"=iGj{Iś6@HTŋ\q/ Z}M#둭G Eڽ-yb <̎DGs>$2 (@H*Vb Lt'[&҉t!Ԯ8!ah"A6 Ϊ :V`z U؈ց8b03~PQ+vRVS0is1"Hr MvcjMٻHbZ$f.Z!]cǨ!@YGlMselH?2 qºeAB,q}?LPX̓Q66'D)26n8zVMڢ!"u4ژf&&@"ʑb"4ʿ#"`7KE?>3.a zj%[PMfA̮K EkZe77"vŵTQpPUGAP)@"6 iBUȒ,O_Z(7C+5T$YRV`0%ioCŰGƫ16V;%2fgIABVپra7Th;c&^GͧrLL6-` E5uGbc0$10\GOJ5fv0X 76cx*pp Z"J[GcĶVi$([_n8@ul[Ҷ->a6Gև3-lDyQTY2cj25-U@[D) I2$"O;Y"!y瘞I ;WX'dzТdװod]d쵭[-\0m4^de`Њ@[O$)` 0pmϯA Wbz'sUf'cb./ޯ t RZ`H5я6WA%L8Vf@%ǡ45+!(fX].1NF9P<Yr`PM$֛V_! $'؟Fk( ̋ETښ{AR/&DfX8" >(XU,Q{:Q{N0,:AK\"yǥCz4 "av ,vH2 ºH ܐf'4k(*Lb?UYEA4& ~1ԁZ @u b"E9!x>D‘0Iҩؐ&'D_A7*boJu d,I&"HظؼrP Ltu>e[#bE2u=  Cd C6M)Tl#I { bWDPusƂT>D"V3TŢObImP&Oi'{;Ǐs 'F-hbbR"&ņv ! C6zP!/ҫ]ʫ&_b{ثʬv.YH /$@Nj~R@4Kj(1!KlfZ$ '[IM*J`$?Z yNQK#bJveR۳v)f׷XɄHUڸ|I <#O=k?'V̟~ІToZc%qoL{t&2 ם<S6͚,$ۓj3[ɘUI% +Ĵ4rIS>~Nw,mͮD 3&~ IlXf`ZBeഔ7S^ Vnx2j٢U$i$IzԔAS[^.9th 1Hf `7u2 k 9P0r7#břN$1+iN. wb;I[H3sSPj. lEl0h85@U 2͏+mײ_!'Bz=x;*d O'r0ٲ$8b*`c~ٰc}Hj`mϯP@ST_a)AQT3 yg#غ4 kDnhݫv{յg[ oA( lIyǴZ-8 #,T\!ϒ{>2X6݌٤1]; le2cAuy05!m=(1\1<ɮ}?ow|#ds`ګi٬Bl7( @n9n>E% و,84b|͍z1@JPTŔrzڪK#cŨC$n9j NH)$Ejbda"ֹ֠_ HGJ,b~Dr?Q:0&X }RiM>C +rY8 +fr#EhW6$p@h$+:s37[^pfp8[_sFP1+(9d&I"N/g2H50f "DNd 2C9΀lLlndiw 8"lX_ge@GDFCPg I"$N(vD6R* _ jJ)\;q{lGvklb},ı ւ{Ef):t8}UL'u ,fMnRH[XK0ZD)׷nZсb%c\cɼ z \`=~.`` DM"̀!GfgOXŏ`Y'G_.--q=(9?_%n#42$+{GtxSuiָ& ?Z` -)Nٔ{G3zUgMer҄V-+J>Pd @Wn`pxFլ!YDDڲX(/ f~ƣz r2``72DV$Tx,B zŖYl@1An^["ADL@eCRy @֠ CpMJ"oү{FpHg?ҥta0$_ך|T*%Eɷ3[[1@ZH?0)̱hŮ8̮P Zv *XoSXsL^숑CkcQLec^/\%k}268bV"M|4ECT{ݭbL# :M}((2 S nL ("L;M(2J ޳k؂$LЄm.$ZX$GׯYӬ|J*m\˧ZjBcɰ5홺ˊڣ`e[ZgYJ0áx3y+M`X ̀.m>.!*T0kuթIM)H߯l @IJH"C8_ۭAY Hc8:ci, 3f VͱI+2{@i7Զ6Fr=33V׳A^㥍Źq  $Lf)\1xy"vT30,LrIEbC-*vK A+3 m{ap`fjEeغK!֬]1;2-"?phsz4ʢcOҗnI S-[PL)T0c7.[+C ڨ5.:]zª&I ^X$ d8G6kؠմ+RDOYPh.u VoxJc8̳Jqh; D?QRЃ0A W#܈r*ְGhQ[ܿ$PP6;-br .ozpa3=L^z#H~qR?$, 1Q@u冶˨z}`ҡ\L{U˼ܭ} QPm Jܛ>Dw9;Ǟ$)8٬ oQu}wx5.^Tڃv6[(+|vSV.a`K`)]@bT=&Jn׊R8u h.bbeܣb8A7g@Фb~Aާh  qDW@<-`IC @JHdH3ŗ(g,bjm 09H2ޗvI=FXyˌ{KԳxp2B$pdyT, [掏h5") )U%sG #G*TbG,[[zUu.%Zy?ҹ|5+ Kd&Ie!v,eAku;}(%moLO8> bZ@Mۗ, & >AO?r1 21z҇s P [VcSBAuae!EƟphJ?9~bf h`#2hQ h>؈ܜfG|\I ~V{]{1*@3HGf! :Վ AMt#n]l'$•#5x@<(B$mŦșPI\w2jf tRxx" i(%[Rg)Y*Vq&;zZ:-F‘*ńjglwy *pbahF qk0ZmǥChFsGe#Yf;?άC uچ!ݮ2:&?ViKTCt=*Eة0EJpBvj1~2WWN #F\LIIoK3{Sqb f7EJ, :jO#fLB.1Z[;1ʚ̜VX ~5' sjmCj$kdZA!h"bV>]YA eM4fA1AͰYX8uʸ#g-#EqJ]^nD5%q‡d8֠٬$qi#( Y2$)0GZ!Q ;퓈a.ȹ&cUU 8җYڤ-oQe$(Q:g' !Id"~FPTz2>]Ԥfa<O_z@ah$ziP j)! @8JÙڬu&a\K<@B;ܕc~(FXPq$HmVS]*GO1u)ԾA%Gb;(\NZf )moU0Mqn`ޣc]o9^(`-evH,cң|meY:X4!?B2\ 0F amh⃍77r8P%/x3/':h݃(U! /k0䉑]z"XVo$yT/%lcevl QźWZ=h ](pF@82_'"*D|TY 4>u`J#{8$BksQ ؔRDZR$HZv ,˜t>R0hZX%笎Hd5I ~3Rmէ~Gmw n\CA|Mcjo iE_Z ~cX9Eɂ5S6CA˫FH|d5FcQ$fH3Uܧ`Њb qh_?)GfHºB"-PA9@tI{Rn3\ A*29-1i$Sϴ*1R /6`ongށv$wAelX4ȶ >VM҅ u[A1pfeQ3qA!@3S 7`bb*Y6,Oăcc4vI&b )I@UM7܉")!8{b& \a}#;&jװΥF k($g!ujdrCK ^Ξk\MfA~FlÏzk RI^/y>(!ģ,{Xߵsf}9AEc =d+I1AYP1 {9BA"/*I 6m [4{ |0(N:`d[oڗwbA&zMbGtE֮t Fw `y 2A`]{6>Au[Y0LNFoux2IM_A:3!Ot܀b6h!|/x5ա[,>橯,YqbAI`f8H$#4Fvڮ\fA'Et(${RA⤟xI\[`XmhI\h+H5=Q0pI #rOS 'a`r$b>nOlfL-J5^{ $1%gܬ0rb$HAנ^#Jm3ɞ?j/'V[Sr'Jz  ;݁J#PA5g`ۙCS{>=]zm$=flcA=˪/ɭd#w+#/RuKR(} &Ž=IU/esI %a #֎󭑻n`Qs6n\a2ZBzzBC a9ܭh0YB6?ʩ[J^C\r$cfz܅}g۴ZM{3PvZ ڲlkd&o?s@D03N6kvٷ" ~K|d͍IV+XalG'%3iSn݈bmT H{ō WNc!}-!}/yǑ6O[kfquX{t]^;1u_a~kq&$b/ҤlA ~k!#%a!"MMzgP:An"Jf ߠs2A xaNP!6#T4j_gur A0 ^8>f4X, "ңz;;!YTr/RL-XP 8@r0EÚ6:C d2~Q ,y#)bm9zkQ3Aί 鴐$i$h,ڔ 3#cd.OMK,dX?085Vשhf(C܍/!B;V"U`' h2ዙt8ȼQvҬڜDA2&ddC:(aG#m"9$kF'&CV {q-=ǵQ$q=>˜ l 8tGʨ@*R :SmX0yI,XZY& $, LMŇ3 ]#זVSVHP־7X$wbrr[zC%GB#zPE6Q KS׭UvEM3n) G,/Wb"&G4٭$leV$Y((ۭr,b1uP3Qٱ9C()4Dʪ )(  )ןZp&  #0bEz+.Ne7OAA6ǺZ eTU@N MSRMW,LCZ.tw-q3hS1* ͯµ8tMzSuMLz 6[Mm7hImJ2gVKm#CͼSdb[0'Y#zRٵNY)1 W&$$xuݩԌ 2\z=|E׸ G`wǨAkt:1 @4R0H^֣S;tQĔ(J.;i!"Og3$"nG׬RK/{S\DM4 Έ2HYH+cцX LMfEطK Z*o9.`P".4n$ gZ$[^H0]Cn0ނZ.`(dk)'[R ֐F X_}ۗdڤİ'jҎ73dq* 3#ҰD#P5K9va5]Z/bc&\84 bTDDsҊ"k*L"Mgu*]cc"I!Nݥ\ \Z ubO~H]\k--jOv0$wIЃ oW_'xl׬!:zLW9gUFHmj{vlceO|Y.yF ſF@Kî C b#9~O ŋ4Bs֛o$ym;~kU7vRξulN:eԎH>2qfA.!PQ zEh׭o_Fg"~2z@Q_V>N",d , G)'$~B@]z.f}j+mXyي.03-˙Iݯc7 1L@Gغ.@55 lHAߣz2>` baL[{sU"nOM1*1Iŋt7]n`Iޥ8+nHAi].s_qeH?C4O~KGD}]@{Lf="YsY<\P!gB'ރ+#3Eb )- (&zPXPo6@%4*$cOrV+ d0C,L4GȯYR#'ޟ'Q;r,&~dҺ5H1JHȇ eK["MGӢݣV}BH NPURl}'v@e \Zkd rnEk]~"'Ǔ;d:W2H qOhim!0^/"=Z/zbCKoj\ ֤w1vy>6kX]([Ѷy4MVkrQ91=UUWvg1rPHEjuG\$nєiTXxT(-Q, jrVB$%["44VlkVhσ׎& I |#dtHZIǮEZ‹~Z4` nmH[c)Usj # }qK Eh$jel!b}ԚCl:ܖa;N15P<6F  &9qכ֭@>fWF?'~X$Y>P."$au^F2bX˴KzըƅVrҹʾI 3uZV`k`y2ߕ Sj5"m#qjը<3_`߻YΫl_ /!#rizը;V%3%|06eu5TC C%CBORRARLFQoccclieXclientes     QQCXQQ-QQ-Q C $1QF G((planF~ VcdrPF G((CCVFACE  F E F>   8>C$ CE Enviada6&($\tmp\rpt_ve_envio_facU%XBORRARXBORRAR1XBORRAR2ODEYFUNCNEWFILE_LOCAL_TMP OPEN_FILESBORRARCCCLIECOD_CLICLIENTESNOMBRECAUSACOMPROBFECHAVENCCONDIMPORTEADELANTOREFCAUMONEDAIDIDURFCPLANENVIADA ENVIADA_TCANCELCONTADODESPLAZAFC_SELCONDCOBRCCVENTCCVFACFORALLP_LOCAL%Cven_oper .Qven_oper%Cccclie \Qccclie%Cccvent Qccvent%CVENTAS Qventas%CVen_oper Qven_oper%CVE_Trans QVE_Trans%Ccostos JQcostos%Ccondcobr |QcondcobrUVEN_OPERCCCLIECCVENTVENTASVE_TRANSCOSTOSCONDCOBR open_filesqqAA1rqq1qrAb1AA!A!A!AAAAA!AAA2~9% K CI0 TC$CC$)TCC*/-/T\xchg\Cashflow al .pdfET\xchg\Cashflow al  - Detalle proveedores.xls%C0f  bhC!No se pudo borrar el archivo PDF.C 0Compruebe que no est abierto antes de continuarB-%C0   mC&No se pudo borrar el archivo de Excel.C 0Compruebe que no est abierto antes de continuarB-)%CoBAR_GSbOC  a5 gs_barra_menuJ< 5 estadoJ T T T T %CCashcfg Qcashcfg T T Ta"CGenerando Cashflow TCa 4T'El flujo de fondos ha sido generado !!! C%(CGenerando resumen en PDF gs_rpt_resumenJTT-C C/CExportando datos de proveedores  Caa-=\tmp\TMPReporte_cash.xls( listados'CEnviando datos por mail #"#$%&'()T#فtennysonr@schillig.com.ar; carlosm@schillig.com.ar; norma.schillig@gmail.com; albertom@schillig.com.ar; mabelb@schillig.com.ar; T$ Cashflow T&;$T'noreply@solinges.com.ar$T(noreply@solinges.com.arT)Solinges - NoreplyT% Cashflow  T"0%C"#$%&'()*?TCC C 6Se ha enviado por mail.  DTCC C 6Error al enviar el mail:"C< BU+XGENERARXENVIAR_POR_MAILXGSFECHA XGSFECHATXTXARCHPDFXARCHXLSP_SERVERMENSAJEOBAR_GS GS_BARRA_MENU OESTADOGSESTADOMINMAXVALUETOPHEIGHTCASHCFG XMSG_GLOBALOFRMXOKXMSGAVANCE GS_GENERAR UNLOCK_ALLGS_RPT_RESUMEN XPDFARCHIVO XPDFPROMPTBTNPDFCLICK GS_RESUMENP_LOCALNOMBRE_DE_ARCHIVO_A_XCASELISTADOSXMSGMAILLC_TOLC_SUBJLC_MSG LC_ATTACH LC_REPLYTOLC_FROM LC_FROMNAMESYS_MAIL3QqAAqAAqArq11A"Bqr1aAAAABrB1%&(&vvWßc"&CInicializando...G+(listadosG+(dey_funcG+( dey_filtersCven_operven_opeCagentecodageCcuentascuentaCclientescodcliCccclieCventasven_facCccventccvfac"CObteniendo chequesFG((recibo> C %C \ind.dbf0 ,h1 \ind CD& Q%Cind Q \ind%C ultima_compra'FQkoccvent Q! 0  C V  ultima_compra& CTCoccclieccventQQQ Q C(XQCXQ-QQQCXQCXQ ףp= [@Q! (G0AQ" (G0AQ# (G0AQ$ףp= [@Q% (G0AQ& (G0AQ'ףp= [@Q( (G0AQ) Q*Q+-Q,Q Q-.C/ Vc C =C 0IND 1QT1C5occclieventasccventXmotivos 768QQQ Q C(XQC23=Q-QQ24cQCXQCXQ ףp= [@Q! (G0AQ" (G0AQ# (G0AQ$ףp= [@Q% (G0AQ& (G0AQ'ףp= [@Q( (G0AQ) Q*25Q+-Q,Q Q-.2.2 d CC69  C/ 11QT:.t."CObteniendo recibosT;CT<Cselect vo.fecha as fecha , vo.comprob as comprob , vo.causa as causa , vo.cod_cli as cod_cli , space(40) as nombre , vo.des_val as descr , iif(tipo='1',.t.,.f.) as valor , iif(empty(vo.dif_valor), vo.fecha, vo.dif_valor) as dif , vo.caj_pro * iif(clientes.vendedor="22 " and p_emp="IND" and between(iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)) , xdfec, xhfec) and xdfec>=date(2023,8,1),.5,1) as importe , vo.caj_pro as importeo , space(8) as vendedor , space(30) as nomven , 111.11 as porciento, 1111111.11 as comision , 1111111.11 as total_norm , 1111111.11 as total_nor2 , 111.11 as por_dif , 1111111.11 as total_dif , 1111111.11 as total_dif2 , 111.11 as por_difn , 1111111.11 as total_difn , 0 as tipo , ' ' as asterisco , vo.cuenta as cuenta , .f. as es_dif , vo.fec_comi as fec_comi , iif(clientes.vendedor="22 " and p_emp="IND" and between(iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)) , xdfec, xhfec) and xdfec>=date(2023,8,1),2,0) as parcial from ven_oper vo, clientes order by vo.causa,vo.comprob where vo.cod_cli=clientes.cod_cli .and. (vo.causa='R' .or. vo.causa='A') .and. betw( iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)) , xdfec, xhfec) and &xfiltro_cheques and iif(xdfec>=date(2023,8,1), .t., !(clientes.vendedor="22 " and p_emp="IND")) and !( clientes.vendedor="22 " and p_emp="IND" and between( iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)), xdfec, xhfec) and betw( vo.fecha, xdfec, xhfec)) into table (xborrar2) Q)select vo.fecha as fecha , vo.comprob as comprob , vo.causa as causa , vo.cod_cli as cod_cli , space(40) as nombre , vo.des_val as descr , iif(tipo='1',.t.,.f.) as valor , iif(empty(vo.dif_valor), vo.fecha, vo.dif_valor) as dif , vo.caj_pro * iif( iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)) > xhfec and xdfec>=date(2023,8,1), .5, 1) as importe , vo.caj_pro as importeo , space(8) as vendedor , space(30) as nomven , 111.11 as porciento, 1111111.11 as comision , 1111111.11 as total_norm , 1111111.11 as total_nor2 , 111.11 as por_dif , 1111111.11 as total_dif , 1111111.11 as total_dif2 , 111.11 as por_difn , 1111111.11 as total_difn , 0 as tipo , ' ' as asterisco , vo.cuenta as cuenta , .f. as es_dif , vo.fecha as fec_comi , iif( iif(empty(vo.fec_comi), vo.fecha, iif(vo.dif_valor>vo.fec_comi, vo.dif_valor, vo.fec_comi)) > xhfec and xdfec>=date(2023,8,1), 1, 0) as parcial from ven_oper vo, clientes order by vo.causa,vo.comprob where vo.cod_cli=clientes.cod_cli .and. (vo.causa='R' .or. ven_oper.causa='A') .and. betw( vo.fecha, xdfec, xhfec) and &xfiltro_cheques .and. (clientes.vendedor="22 " and p_emp="IND") into table (xborrar3) QQ;= <F= 1 i1borrar>NF?G((cuentaF@G((codageFBG-(@F=G-( BG-(+?%CAnalizando comisiones;CAnalizando movimientos...CBorrarNC ~ CD>BB @"#$%&'()9* H 0IND[%@E!@%CB =C>!@ %BF>!BF >!@E W%CB =C >! S%BF5>!BF O>!@E 2%BF>!BF >!@E TG TH TI TJ TK TL TM TN- TO-TPC3 $FG((comprob E= ==CZ%C4@+C+ - CZ= ==CZ THH%QVcdFG((ccvfacESQTTTU FV G((id EUF2ESQ TW TX TY TZ)+C+ .SQ H 0IND}[%[C8301[C8302 B22  C2 =C ^ TZTXX4 yTWW4 2TWW4HF=%WXYc)%CTC$C $DFV G((id EU%Cq'F\Q<o ultima_compraCQT  U qSTNNC\CCTiCTHCCTH CT% CT%6$  %NTPCTPF %Cind+ !TOOTVm %Cq@F\Q Y TN-8TIIWWXY CN68TJJXWXY CN68TKKWWXY CN68TLLXWXY CN6&TMMYWXY  CEl C=RRCC=AAJXX66 C= aplica al comprobante CQVFCMCQcNC5CQdNDCQLASXX6666 S del cliente C  y no ste no fue encontrado !!!] TII TZFH TGG TZF= >9Z#I=CH؅W4vCH6 $K=CH؅W4vCH6 %&J=CH؅W4vCH6 'L=CH؅W4vCH6 ()M=CH؅W4vCH6 %NlFV G((id EU%C4 [ > U >PF=)>>CNCO66WTG#=!d $=!?d &d '?d  >"G>##$>&&'%L > %C?^"\Ss %C _ >** >,a  %C/  %  C`Ta.T. ,TaaCcdvendedorabF=qindex on str(val(vendedor))+dtos(ven_oper.fec_comi)+ven_oper.causa+ven_oper.comprob tag ordenfull for &filtro ((e\TMP\rpt_ind_comisiones%C ultima_compra"FQF=Q1*.*;*.*<*.**.*BUfOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDAVANCEVEN_OPERRECIBOFEC_COMIHOYFORP_SERVERCOD_CLIININUEVOID ULTIMA_COMPRAFEC_VENFECHACCVENTXDFECCAUSAXBORRAR4NEWFILE_LOCAL_TMPCCCLIECOMPROBNOMBREDESCRVALORDIFIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORM TOTAL_NOR2POR_DIF TOTAL_DIF TOTAL_DIF2POR_DIFN TOTAL_DIFN ASTERISCOCUENTAES_DIFPARCIALFAC_VENXHFECP_EMPXBORRAR1VENTASDESC_INSTOT_VENCOD_CUEMOTIVOSMOTIVOCODIGOTIPOXFILTRO_CHEQUESXBORRAR2XBORRAR3BORRARNUEVOCUENTASAGENTECODAGECLIENTESSUB_SET_AND_SHOW SUB_AVANCECOMIXCOBCOMI_VENACC ACC_RECIBO ACC_NORM1ACC_DIF1 ACC_NORM2ACC_DIF2ACC_DIFN XES_NUEVOXESTA_DENTRO_DE_ANIO XFECHA_NUEVOCAUCCVFACREFXFECHA_COMPROBANTEXCOD_CLIIND TACC_NORMTACC_DIF TACC_DIFNXTIPOCOD_INSQMENSAJEATRIBUTOFECHAANTSUB_HIDEFILTROFIL_GET_AGE_FILTERXDAGEXHAGEP_LOCALN 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaantf&a"!Q1"sQBARqAqAABH0Q#D#mDRGrrrrrrRaQaAAaAAAaAAarBbr1rr1aAABAqq"qAA3!QAA#qAAAaBBAqAAAAwqQAArxAAAqBAAArqAArA"!!!B42'DDP%؅=EU :sys_procesandoCreando tablas de artculos%Ctlineas]FQ%C tproductosFQ%C tsubproductosFQ%CtmedidasFQ%CtcoloresFQ%Ctdc'FQTC]T tdch1 \tmp\ N  N  N N N C(C(C(C(C(Q \tmp\  TTtlineas! ~ TT tproductos(F%CNE ~A TT tsubproductos/F%CN ~ TTtmedidas6F%CN ~ TTtcolores=F%CND ~@ F >  > >  > >  > > > > >   F >  > >  > >  > > >   F >  > >  > >  >  = F >  > >  >   F >  > %CtlineasFQ%C tproductosFQ%C tsubproductosFQ%Ctmedidas6FQ%Ctcolores^FQF-(\data\locales\CCZ\tdcSotdc QQ1\data\locales\CCZ\tlineas1Q\data\locales\CCZ\tlineas& & QVotdc QQ1\data\locales\CCZ \tproductos4Q\data\locales\CCZ \tproductos& & QYotdc QQ1\data\locales\CCZ\tsubproductos7Q\data\locales\CCZ\tsubproductos& & QTotdcQQ1\data\locales\CCZ \tmedidas2Q\data\locales\CCZ \tmedidas& & QTotdcQQ1\data\locales\CCZ \tcolores2Q\data\locales\CCZ \tcolores& & QFQsys_procesandoBU SP_MENSAJESYS_PROCESANDOTLINEAS TPRODUCTOS TSUBPRODUCTOSTMEDIDASTCOLORESTDCXFILE_DC XALIAS_DCP_LOCALLINEAPRODUCTOSUBPRODMEDIDACOLORDLINEA DPRODUCTODSUBPRODDMEDIDADCOLORXFILEXALIAS TRAER_TABLACODIGOINDESCRP_SYSTEMP_CODEMPDISTINCTSP_OCULTAR_DEFINITIVAMENTE 'H8x X T x T%CxfilebL@C3Llamada errnea, debe pasar variable de retorno !!! 8%CxempresabL;:C-Llamada errnea, debe especificar empresa !!! 8%CxtablabL;C.Llamada errnea, debe especificar la tabla !!! 8H`  T LINEAST CODLINEAT DLINEA T  T  PRODUCTOST  CODPRODUCTOT  DPRODUCTO1xparametros="&CODLINEA="+alltrim(str(xlinea))  MT  SUBPRODUCTOST CODSUBPRODUCTOT  DSUBPRODUCTO[xparametros="&CODLINEA="+alltrim(str(xlinea)) + "&CODPRODUCTO="+alltrim(str(xproducto))  )T MEDIDAST  CODMEDIDAT DMEDIDAxparametros="&CODLINEA="+alltrim(str(xlinea)) + "&CODPRODUCTO="+alltrim(str(xproducto)) + "&CODSUBPRODUCTO="+alltrim(str(xsubproducto))  )T COLOREST CODCOLORT DCOLORxparametros="&CODLINEA="+alltrim(str(xlinea)) + "&CODPRODUCTO="+alltrim(str(xproducto)) + "&CODSUBPRODUCTO="+alltrim(str(xsubproducto)) + "&CODMEDIDA="+alltrim(str(xmedida)) 2`)CCdigo de tabla invlido !!! 8 xurl = "http://www.dellacasasistema.com.ar/ConsultaProductos.asp?Empresa="+alltrim(str(xempresa))+"&Opcion="+xopcion+xparametros T "T\tmp\.xmlG !G(\tmp\ .urlG GG(/sys_procesando Consultando internetsys_procesando%C C0 TCTC]%C) FQ8h1\tmp\N C<Q\tmp\& & (fTCC< >C >CC< >C >\fTCC< >C >CC< >C >\%C $rCg !  5T(El sistema de produccin no responde !!!BUXMSGXFILEXALIASXEMPRESAXTABLAXLINEA XPRODUCTO XSUBPRODUCTOXMEDIDAMENSAJEXOPCIONXCODXDESCR XPARAMETROSXURLXTMPXXMLP_LOCAL SP_MENSAJESYS_PROCESANDO DOWNLOAD_HTTPINTERNETSP_OCULTAR_DEFINITIVAMENTEXXCODIGODESCRZXCODIGO XDESCRIPCION traer_tdc0 traer_tablaz 1qAAqAAqAAqAAqAAAqAA Aqr!s!Qar!Qr!QrqrqrqrqrqBQrqrqrqrqBBQrqrqrqBBQrqrqBBQrqBBqAAqAAqAAqAAqAAr9AhBArAG"AG"ArAB3r11AAAAAAA11Q12aa22AaA2AQ1 AAB!baqaaAAba"AAABQAB2g$%2 MRP&CInicializando...G+(listadosG+(dey_funcG+( dey_filtersCven_operven_opeCagentecodageCcuentascuentaCclientescodcliCccclieCventasven_facCccventccvfac"CObteniendo chequesFG((recibo> C T C occclieventasccventXmotivos (+*,QQQQC(XQC=Q-QQcQCXQCXQףp= [@Q (G0AQ (G0AQףp= [@Q  (G0AQ!ףp= [@Q" (G0AQ# Q$%Q&-Q'()Q (-(- d CC*.  C/0 1 Q"CObteniendo recibosT1C T2C oven_operQ3clientes3Q3Q3Q3QC(XQ34QC.1a-6QCC35 3356Q36QCXQCXQףp= [@Q (G0AQ (G0AQףp= [@Q  (G0AQ!ףp= [@Q" (G0AQ#Q. Q$3&Q&-Q'3 Q 373R 3A  @CCC3 3!C353  353 66/0 3311QQ18F8  F9G((cuentaF:G((codageF7G-(:F8G-(7G-(&9%CAnalizando comisiones;CAnalizando movimientos...CBorrarN< ~ C={>77: !"#.$ %:>!@%C7=C>@ %7?>7? >:> x%C7=C& > t%7?V>7? p>:> T@ TA TB TC TDFG((comprob E888CZ%C42 @+C+ -CZ888CZ . TAA%EV FEFE TG TH TI TJ)+C+ -FE / %- TJTHH ' TGGHF8%GHI &TBBGGHI &TCCHGHI &TDDIGHI   CEl C8RRCC8AAJXX66 C8 aplica al comprobante CEVFCMCEcNC5CEdNDCELASXX6666 F del cliente C y no ste no fue encontrado !!!K  TBB TJFH h T@@8d  TJF8>.JB8CA؅W4vCA6  !C8CA؅W4vCA6 "#D8CA؅W4vCA6 $T@8d !d  >@%x > %C9L"\S %C M >$* >'a %C/0 % CNTO.T. ,TOOCQRvendedoraPF8qindex on str(val(vendedor))+dtos(ven_oper.fec_comi)+ven_oper.causa+ven_oper.comprob tag ordenfull for &filtro ((S\TMP\rpt_ind_comisionesF8Q *.*1*.*2*.*BUTOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDAVANCEVEN_OPERRECIBOFEC_COMIHOYFORXBORRAR1NEWFILE_LOCAL_TMPCCCLIEFECHACOMPROBCAUSACOD_CLINOMBREVENTASDESC_INSDESCRVALORDIFTOT_VENIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORMPOR_DIF TOTAL_DIFPOR_DIFN TOTAL_DIFN ASTERISCOCOD_CUECUENTAES_DIFCCVENTFEC_VENMOTIVOSMOTIVOCODIGOFAC_VENTIPOXDFECXHFECXBORRAR2XBORRAR3VODES_VAL DIF_VALORCAJ_PROCLIENTESBORRARCUENTASAGENTECODAGESUB_SET_AND_SHOW SUB_AVANCECOMIXCOBCOMI_VENACC ACC_RECIBOACC_NORMACC_DIFACC_DIFNCAUREF TACC_NORMTACC_DIF TACC_DIFNXTIPOMENSAJEATRIBUTOFECHAANTSUB_HIDEFILTROFIL_GET_AGE_FILTERXDAGEXHAGEP_LOCALN 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaant@a"!Q1"sQq D$ BssrrrRQaAAaAAArBBq1AAAqbaaBBAqAAAw CAAAqBAAArrA"!!B42(&)l%gCmoCo ges te_comienzoC9C:CCCCCCCaCCCCC>CRCCCCCLCMCkCCCCCC5CCCCCCCCC8CCCCC=C>CZCCCCCCCCCCCCCBUGES OPEN_FILES TE_COMIENZOPROCESAR T-TO!TC@z 9999,999,999_?te_pag_reimpresionBUXCP XERROR_RETXCAUSAXCOMPROB REIMPRIMIRTE_PAG_REIMPRESIONprocesarbB2qC1<IGIF89a$"27?E[_vz筰㠢؋imۄQBMR뻽C2}rzߒ$*!,$"`&dih6lČ wg{Q)52 aj$EU̕; @LA0(!  8+3<t\|x4Stv;K~gDa.""^pr6j[#e6ac#$Y3/q%%0fB&%l*o% 83(z%&)<''('$)':N31 S*v""0.͢ŋ3jHG C 0(S`˗j"; ( @{}{Z]Z}{,)),)JMJ<9kmk9<9]Z mk    !!!!!!   """""""""""""""""""""""  ( @ 4s C2sSTc] dJ?r?rGL <|ITd=a10(ET_KTa =|INa]c)h-*R E`03% J DYsrdns?PM-q*44' n m_R_j6OSG>?64*&#@ySVe>rD PAQIB867+&$wGFIVp J [sLSHCIRY2}^V'O?LNTQDI妳R]cPw k{ '{NSSSJCP嶶UY\Puv} 1ZHJQICR񸸷W[^+k" w v )=HCR󸸷W[^-n$&sg  #-ECR󸸷W[^,m$n=8 rR~&? 6K-E+J@EANިVZ](e.04?]9W  4O0J%<Y&w%s2RQQEEEkN\mX}Pw;Z"33M9V1K)?%%.#PPM>==Wv3e>KfPxGk@`Ab:W1K,C(=!2() Z8XhC>90JMtGkCeHhA^6N*@!2)& | Vu(5;.D8ULrLsGkKl֖ho*/    `.`y[UR{LsImgDzO`Ny  c>rƆZ`R{LsOqдS^S gXǚZ|LsOqдVbW$3&$^?{l*FjOqдVbW'7*'&@\JqNqбVbW/9#/'##mÁJlHf׭ǎhgg[]UoHaV(1UN}t|nhPONFFFugZURQQPP????f?g??% y D#V̠ G+( dey_func2%T\tmp\C].dbf%T\tmp\C].dbf TC$ TTC%C Suspendo?a T# co_funciones % (?T $Ejercicio inexistente para la fecha C* !!! B T  F G((desde<H%C+ uT  T C C$DF - TC% Ta+ ^ T# co_funciones  % j?T $Ejercicio inexistente para la fecha C * !!! B %   T T Xco_sql_balanceexp_fin_CCCiZ_C00CCZR3R%C\xchg\exp_fin_CCCiZ_C00CCZR.dbf0 v*CNo se pudo crear la tabla !!!BFJQ\xchg\exp_fin_CCCiZ_C00CCZR.dbf&>Q%FJQ\xchg\exp_fin_CCCiZ_C00CCZR.dbf.(\xchg\exp_fin_acumulado.dbf2Q\xchg\exp_fin_acumulado.dbf T- i1 acumuladoC,>CCCiZ_C00CCZR FK\xchg\exp_fin_CCCiZ_C00CCZR.dbf3>CCCiZ_C00CCZRC T T #C #%pco_sql_balanceexp_fin_CCCiZ_C00CCCHZRC  ST6T%C\xchg\exp_fin_CCCiZ_C00CCCHZR.dbf0 *CNo se pudo crear la tabla !!!BFM\xchg\exp_fin_CCCiZ_C00CCCHZR.dbf5>CCCiZ_C00CCCHZRCT G+(inicial$T!C"\exportaciones_ifm # %C#!D $ T$a  !(% T$-TCC$*5T&ARC=C\CR.GLH G(!\&G G F ~ C=CRC' ARSC(=CC'8ZCC'8ZCC'8Z528ICC'=1231"CC'=4562066C T)-GG(C!\&*"CSe ha exportado: !(+^ GG(%C!\&0D !\&C Error !!!%C acumulado FQBU, DEY_FUNC2XTABLA1P_LOCALXTABLA2XFECHAXFECHA_EMISIONSYS_MOSTRAR_SCREENXDIRCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXRESXMSGXDESDEEJERCONDESDEXHASTAXFIRSTXDFECXHFECEXPORTAR_IFM_FINANZASCO_SQL_BALANCEP_SERVERMENSAJEDEBEANT_DEBEHABER ANT_HABERSAL_PERALL ACUMULADOPERIODOFORINICIALXDIR_EXPORTACIONES_IFMPATH_MIS_DOCUMENTOSAAAEXISTEODIR_EXPORTACIONES_IFMXFILECUENTADESCRXINICIALNO_CTRLZOEX1RQ3u3AtAAurA3Ab"AAaA!r2BBBAArRABqAAQQaarAAAAAbab"aaAAbAqAAC1%U'g%@ Ta TC$ es_ifm_stock(% CBG+( dey_func2%T\tmp\C].dbf%T\tmp\C].dbf*sql_rptinventarioactual%C0 C0 !3C&No se pudo crear la tabla de stock !!! BQ Q %Cdespacho {QdespachootmpXdespacho     C QCC Q cur1otmp1Xcur1    C   6QC     6QC   6QCQ tmp_ifmG+(inicial$TC\exportaciones_ifm  %CD  Ta h ( T-TC*5T ARC=C\CR.STO G(\ G G F ~@5281 C CCC*/. MC/.PCE1C0000000000000000000CC'Z R1C0000000000000000000CC'Z R1C0000000000000000000CC'Z RC T!-GG(C\ ""CSe ha exportado:  (#GG(%C\ 0\ C Error !!! %Ctmp F Q%Ctmp11F Q%Ccur1UFQ%Ctmp_ifm|FQBU$XRES XFECHAEMISION ES_IFM_STOCK DEY_FUNC2XTABLAP_LOCALXTABLA1 EXPORTAR_IFMSQL_RPTINVENTARIOACTUALMENSAJETMPTMP1DESPACHOCODIGODESCRCANTIDADFECDESPFECHACOD_INSCUR1CANT_PEDCANT_COMPEDIDOSOCORDENESTMP_IFMINICIALXDIR_EXPORTACIONES_IFMPATH_MIS_DOCUMENTOSAAAEXISTEODIR_EXPORTACIONES_IFMXFILEXINICIALNO_CTRLZOEXAA2RQ1AABBAAz BqAAQQaaraAbab"aaAAbACqAARqAARqAAqAAC1%-\2Xe G+( dey_func2%T\tmp\C].dbf%T\tmp\C].dbf TC$ T-es_ifm_finanzas2(% B TTC%C Finanzas 2 T #  co_funciones % g?T $Ejercicio inexistente para la fecha C* !!! B T F- TC% Ta+ & T #  co_funciones  % N?T $Ejercicio inexistente para la fecha C * !!! B % i T T Xco_sql_balanceexp_fin_CCCiZ_C00CCZR3R%C\xchg\exp_fin_CCCiZ_C00CCZR.dbf0 Z*CNo se pudo crear la tabla !!!BFJQ\xchg\exp_fin_CCCiZ_C00CCZR.dbf&> TCW5oCCCQ CQ!q_test$%"  "! NCPeriodo CCCiZ_C00CCZR con diferencia !!!%#LQ" FQ%FJQ\xchg\exp_fin_CCCiZ_C00CCZR.dbf.(\xchg\exp_fin_acumulado.dbf2Q\xchg\exp_fin_acumulado.dbf$ T- i1 acumulado%C,>%CCCiZ_C00CCZR eF$K\xchg\exp_fin_CCCiZ_C00CCZR.dbf3>%CCCiZ_C00CCZRC% T T #C #%pco_sql_balanceexp_fin_CCCiZ_C00CCCHZRC ST6T%C\xchg\exp_fin_CCCiZ_C00CCCHZR.dbf0 *CNo se pudo crear la tabla !!!BF$M\xchg\exp_fin_CCCiZ_C00CCCHZR.dbf5>%CCCiZ_C00CCCHZRC%T G+(inicial$T(C)\exportaciones_ifm * %C*(D + T+a  ((, T+-TCC$*5T-ARC=C\CR.CSV%Cq0 Q. T/aKo acumuladoQ3Xcuentas 341412C15q%CN T6 ~ )T66CC6, 6C2.CHay pases sin cuenta vlida: 6 T/-Ko acumuladoQ3Xcuentas 341412C15q%CN T6 ~ )T66CC6, 6C25C$Hay cuentas sin referencia externa: 6 T/- %a |o acumuladoQ3Xcuentas 34143%C3Q153%153%15qG((\-G G F.PDCompany;Year;Booking Period;Account;IC-Information;Currency;Balance; ~ 5040;C.%=;CCCC.%RgZ;C5; ;ARS;(CCC7.,; T8-GG(C(\-9"CSe ha exportado: (%C acumulado9 F$Q%CqZ F.QBU: DEY_FUNC2XTABLA1P_LOCALXTABLA2XFECHAXRESES_IFM_FINANZAS2XFECHA_EMISIONSYS_MXDIRCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXMSGXDESDEEJERCONDESDEXHASTAXFIRSTXDFECXHFECEXPORTAR_IFM_FINANZASCO_SQL_BALANCEP_SERVERMENSAJEDEBEANT_DEBEHABER ANT_HABERSAL_PERALLXAREASUMABQ_TESTP_DEV ACUMULADOPERIODOFORINICIALXDIR_EXPORTACIONES_IFMPATH_MIS_DOCUMENTOSAAAEXISTEODIR_EXPORTACIONES_IFMXFILEQXOKDISTINCTCUENTASABREVACCOD_CUEREF_EXTXTXT STR_ESPECIALXINICIALNO_CTRLZ%Ck?TC-CCCC8Z  TCC8ZT.4TC00CCCC8 ZR BUXNUMERO XLONGITUD XDECIMALESXN str_especial1RQAA3t3AqrA3Ab"AAaQAAAABA!r2BEBAArRABqAAQ$A"AA"AQBUaarqQ1AAbab"LqAA"qAAC3raA!A17'%uVH@   ve_comienzo've_facturas_lote_sincronizar,ve_sql_Cuentas_corrientes%CCliCCFQ$%Crpt_ve_cta_cte_cpbtF Q(%Crpt_ve_cta_cte_clientesF Q5QC rpt_ve_cta_cte_clientes.DBF1QC rpt_ve_cta_cte_cpbt.DBForpt_ve_cta_cte_clientesQXrpt_ve_cta_cte_cpbtQ ND  CHCC$H CiCC$i C Q QCliCCCQUERYaF+>?d  T~4Ve_Factura_InmediataC=TF-CSe realizaron CCZ ND!!!UXCATXCLIENTEVARIABLES_PUBLICAS VE_COMIENZO OPEN_FILESVE_FACTURAS_LOTE_SINCRONIZAREXPORTAR_CLUB7VE_SQL_CUENTAS_CORRIENTESCLICCRPT_VE_CTA_CTE_CPBTRPT_VE_CTA_CTE_CLIENTESODEYFUNCGET_PATHDISTINCTCCCPBT_CLITIENE_NDCLICC2VALOR_NDCLI_CODCPBT_CODCPBT_FECSYS_MOSTRAR_SCREENCLI_TOTFORXNCATCREAR_NDVE_FACTURA_INMEDIATAMENSAJEaqcqAABqAAqAARE 2rrqBqA6%d Ev ۄT` )G(9 3G+(listadosG+(es_bi_funciones-QMSSQLsys_clases_Conexion.PRGTC%C % C !% CDev? B- %^T CC$ TC$C %T CC$TCC$C UXAUT XMESACTUAL XMESANTERIOR ACTIVEFORM DATASESSIONIDLISTADOSES_BI_FUNCIONESOSQLBI_OBTENER_SQL_BICONECTARMENSAJEP_DEV MENSAJE_SINOXDESDEXHASTAODEYFUNCDT_MES_PRIMER_DIAPROCESARDT_MES_ANTERIOR_PRIMER_DIADT_MES_ANTERIOR_ULTIMO_DIA< T1T_CCiZ_CCCCHZ0Tmcl_;TC!exportaciones_crystal_propiedadesimp_expCxdfec Cxhfec CxdLog1a CxdLog2a CxdLog3a CxdLog4a Cxdcostos Trpt_ve_estadisticas. ve_sql_estadisticas.prgF&Q \tmp\tmp_exp_est.dbf>C( \tmp\tmp_exp_est2.dbf !"#$%&'()*+,-./0123456789:;QF6Q #\tmp\rpt_ve_estadisticas_costos.DBF<& =C>?F(Q \tmp\tmp_exp_est2.dbf$i1extgen@N$i1extgenANG-(C<>@<B>A@FQF<QTDVentas@C \tmp\tmp_exp_est2.dbfDEBUFXDESDEXHASTAOSQLXTABLAXMSGXDIRXCOLAXCABEZAOPROPS PROP_AGREGAREXPORTACION_GENERICA_TABLAVE_SQL_ESTADISTICASPRGP_LOCALEXTGENDMOTIVOFORCAUSA COMPROBANTFECHACODIGOATRBULDESCRDCODDATRDBULCANTIDADMEDIDAPRECIODESCTOSIMPORTECOD_CLISUCNOMBREVENDEDORLINEADLINEAGRUPODGRUPOSUBGRUPO SUPERGRUPOZONADZONACATDCAT PROVINCIAMOTIVOES_VENTACOD_NCNDA1A2A3A4RFCPESOXUFACTOR MEDIDAAUXECOMPLITM TMPCOSTOSCODFECIDCOSTOCOSTO COSTOTOTALCOSALLXNOMBRE SQL_SUBIR_DBCprocesarPA#BAqAB1bA11aA5qqqqaQD AaAA!tAqA3B1E DGIF89a w!, }}^^&&ZZĨZZ^^{{IIll++ssݳ@@៟pp {{aa||YY11llssHH~~ ee᭭CCrrڼЗddǶjj99((uuOOޘmm॥cc탃SS11mmvvkk橩岲<@ 7Pk| ^QEt``M;|!"F *EE}CeHbxF4}PbS1',) + jSلkyxqlS. * _+ [Go9)eMpWxàhybv`hQv8(K6a3(TA_KjSt^сgنnρhzdlWP=@/[<7_Ju_ybуiލsxߌrنn~fsYG7fR݈n܈ou蛃頋虂zߍrׂg~JA_X}뼮µ콰춦ߏtmJKvg귨罭鶤ᬚଞ켫zsYJO=]IdMXG^KaWf-!XDhmWM;V"H6mT~fr\aLm1n3#lU䛅颊ЃifMm4$D2ޛ^JU#M9ᯞzK8>L9ُ{ﺫܚaL`+cLu\gN}@0???0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _1SZ0YVE5L 884048434+J 0 ~ 7 ]=  COMMENT RESERVED H WINDOWS _1SZ0Z0B1N 884048521G " COMMENT RESERVED  WINDOWS _1SZ13URAM 884053120eJV COMMENT RESERVED y WINDOWS _1SZ0YMNIB 884080685 $1 7Z1? COMMENT RESERVED  WINDOWS _1TO03WFQY 8857232558^ Xr  WINDOWS _1TO040VN1 885722772 {> COMMENT RESERVED  WINDOWS _1SZ0Y2C1V 932580421v _Fio [ COMMENT RESERVED G WINDOWS _1SZ0Z2FEC 960064611L [ N=A?M1 WINDOWS _1SZ0XT1S0 884051547 i N  WINDOWS _1SZ0ZA5BZ 884051547pv COMMENT RESERVED  WINDOWS _1SM0PX95U 963513372_l3?`7Dl/) COMMENT RESERVED VERSION = 3.00 imgcanvasPixelsClass131imageimage imgthemeclock gdiplusx.vcx imgthemebase1ClassPixels ctlcanvascontrol1 imgcanvasPixels1 imgthemebase1imgthemetoolbarbuttonimage2 ctlcanvas Imgcanvas1imageClassPixelsimgthemeprogressbarClass imgcanvasctlthemeprogressbarupdatecontrol PixelsClasscontrolctlthemeprogressbarHeight = 21 Left = 62 Top = 3 Width = 57 themeclass = (STRCONV("Progress"+0h00,5)) themepart = 1 Name = "Imgthemebase2" image&ogfx *beforedraw *setup *clear control imgthemebasePixelsClass imgcanvas imgthemebaseimagePixels imgthemeclock imgthemebase gdiplusx.vcximgthemetoolbarbutton gdiplusx.vcximageClassCHeight = 252 Left = 0 Top = 0 Width = 348 Name = "Imgcanvas1" image^_bmpwidth _bmpheight _tempfile _hwnd _hbitmapold _inform _widthoverride _heightoverride _tempemffile lignorepaint _isinitialized deleteosb renderosb createosb rectangle_access smoothingmode_assign textrenderinghint_assign interpolationmode_assign width_access height_access backstyle_access rendermode_assign lredrawnow_assign imgthemeprogressbarQthemestate = 0 themepart = 0 themeclass = isxp = .F. Name = "imgthemebase" ctlthemeprogressbar Imgthemebase2 gdiplusx.vcx imgthemebase~Height = 21 Left = 3 Top = 3 Width = 57 themeclass = (STRCONV("Progress"+0h00,5)) themepart = 1 Name = "Imgthemebase1" ctlthemeprogressbar Imgthemebase1Height = 37 Width = 37 themestate = 1 themeclass = (STRCONV("Toolbar"+0h00,5)) themepart = 1 Name = "imgthemetoolbarbutton"  gdiplusx.vcx gdiplusx.vcximageClass gdiplusx.vcx ctlcanvas>themestate themepart themeclass isxp *themestate_assign  imgthemebaseimage gdiplusx.vcx imgthemebasecontrolPixelsimgthemebuttonimgthemebuttonHeight = 20 Width = 207 themestate = 1 themeclass = (STRCONV("Progress"+0h00,5)) themepart = 1 Name = "imgthemeprogressbar" ^Width = 348 Height = 252 BackStyle = 0 BorderWidth = 0 ogfx = (NULL) Name = "ctlcanvas" PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 2 ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 1 ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 3 ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 2 ENDPROC hWidth = 296 Height = 28 min = 0 max = 100 value = 0 orientation = 0 Name = "ctlthemeprogressbar" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 2 ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 3 ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 1 ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.ThemeState = 2 ENDPROC {Height = 29 Width = 114 themestate = 1 themeclass = (STRCONV("Button"+0h00,5)) themepart = 1 Name = "imgthemebutton" xHeight = 94 Width = 99 themeclass = (STRCONV("Clock"+0h00,5)) themepart = 1 themestate = 1 Name = "imgthemeclock" PROCEDURE Resize This.imgcanvas1.Resize() ENDPROC PROCEDURE Init This.imgcanvas1.Width = This.Width This.imgCanvas1.Height = This.Height This.imgCanvas1.Anchor = 15 ENDPROC PROCEDURE clear LPARAMETERS eColor This.imgcanvas1.Clear(eColor) ENDPROC min max value Specifies the current state of a control. orientation *value_assign *orientation_assign *updatecontrol PROCEDURE themestate_assign LPARAMETERS vNewVal THIS.themestate = m.vNewVal This.Draw() ENDPROC PROCEDURE Init This.IsXP = FILE(GETENV("windir")+"\system32\uxtheme.dll") This.DeclareDll() DODEFAULT() ENDPROC PROCEDURE beforedraw IF NOT This.IsXP RETURN ENDIF *!* Here's a super simple example *!* There's more to this obviously, such as printing text on certain controls like Tabs or Buttons *!* Anyways, I wanted to get most of the grunt work out of the way, now we can play *!* Also, if you're wondering where I got all this stuff... I ripped and figured it out from a very impressive sample *!* VB 6.0 application that Explores all of the stuff in uxtheme.dll *!* http://www.vbaccelerator.com/home/vb/code/libraries/XP_Visual_Styles/Drawing_with_XP_Visual_Styles/article.asp *!* I'd like us to make an example like what that guy did for this... only make it even better. :) LOCAL System AS xfcSystem, lcThemeClass, ; lnHDC, lnTheme, lqRectStruct System = _SCREEN.System && NEWOBJECT("xfcSystem","System") This.Clear() WITH _SCREEN.System m.lnTheme = OpenThemeData(0, This.ThemeClass) && Get ready to draw some theme stuff IF m.lnTheme > 0 m.lnHDC = This.oGfx.GetHDC() m.lqRectStruct = 0h00000000+0h00000000+BINTOC(This.Width,"4rs")+BINTOC(This.Height,"4rs") hr=DrawThemeParentBackground(ThisForm.HWnd, m.lnHDC, @lqRectStruct) ** hr=DrawThemeBackground(lnTheme, lnHDC, EBP_NORMALGROUPCOLLAPSE, EBNGC_NORMAL, @lcRectStruct, @lcRectStruct) hr=DrawThemeBackground(m.lnTheme, m.lnHDC, This.ThemePart, This.ThemeState, m.lqRectStruct, m.lqRectStruct) This.oGfx.ReleaseHDC(m.lnHDC) CloseThemeData(m.lnTheme) ENDIF ENDWITH *!* One thing to keep in mind here is that we aren't anti-aliasing yet *!* (VB 6.0 application didn't either) so the rendered controls look a little rough. ENDPROC PROCEDURE declaredll DODEFAULT() IF NOT This.IsXP RETURN ENDIF TRY imgThemeBaseDeclareDLL(0) CATCH DECLARE Long Sleep IN WIN32API AS imgThemeBaseDeclareDLL Long *!* Here are the declares, as I haven't tested all of them there may be some that need adjusting *!* most notably will be some of the ones that have a "LONG @" which may actually be STRING @ since *!* they are looking for a structure DECLARE LONG CloseThemeData IN UXTHEME LONG hTheme DECLARE LONG DrawThemeBackground IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, STRING @pRect, STRING @pClipRect DECLARE LONG DrawThemeBackgroundEx IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pRect, STRING @poptions DECLARE LONG DrawThemeEdge IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pDestRect, uint egde, uint flags, LONG @pRect DECLARE LONG DrawThemeIcon IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pRect, LONG himl, LONG iImageIndex DECLARE LONG DrawThemeParentBackground IN UXTHEME LONG hWnd, LONG hdc, STRING @pRect DECLARE LONG DrawThemeText IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, STRING text, LONG textLength, LONG textFlags, LONG textFlags2, LONG @pRect DECLARE LONG EnableThemeDialogTexture IN UXTHEME LONG hWnd, STRING flags DECLARE LONG EnableTheming IN UXTHEME LONG fEnable DECLARE LONG GetCurrentThemeName IN UXTHEME STRING stringThemeName, LONG lengthThemeName, STRING stringColorName, LONG lengthColorName, STRING stringSizeName, LONG lengthSizeName DECLARE STRING GetThemeAppProperties IN UXTHEME DECLARE LONG GetThemeBackgroundContentRect IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pBoundingRect, LONG @pContentRect DECLARE LONG GetThemeBackgroundExtent IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pRect, LONG @pClipRect DECLARE LONG GetThemeBackgroundRegion IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG @pRect, LONG @pRegion DECLARE LONG GetThemeBool IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pfVal DECLARE LONG GetThemeColor IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pColor DECLARE LONG GetThemeDocumentationProperty IN UXTHEME STRING stringThemeName, STRING stringPropertyName, STRING @stringValue, LONG lengthValue DECLARE LONG GetThemeEnumValue IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @piVal DECLARE LONG GetThemeFilename IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, STRING themeFileName, LONG themeFileNameLength DECLARE LONG GetThemeFont IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pFont DECLARE LONG GetThemeInt IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @piVal DECLARE LONG GetThemeIntList IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pIntList DECLARE LONG GetThemeMargins IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pMargins DECLARE LONG GetThemeMetric IN UXTHEME LONG hTheme, LONG hDC, LONG iPartId, LONG iStateId, LONG iPropId, LONG @piVal DECLARE LONG GetThemePartSize IN UXTHEME INTEGER hTheme, INTEGER hdc, INTEGER iPartId, INTEGER iStateId, INTEGER @pRect, INTEGER eSize, STRING @SIZE DECLARE LONG GetThemePosition IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pPoint DECLARE LONG GetThemePropertyOrigin IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pOrigin DECLARE LONG GetThemeRect IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, LONG @pRect DECLARE LONG GetThemeString IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId, LONG iPropId, STRING @themeString, LONG themeStringLength DECLARE LONG GetThemeSysBool IN UXTHEME LONG hTheme, LONG iBoolId DECLARE LONG GetThemeSysBrush IN UXTHEME LONG hTheme, LONG iColorId DECLARE LONG GetThemeSysColor IN UXTHEME LONG hTheme, LONG iColorId DECLARE LONG GetThemeSysFont IN UXTHEME LONG hTheme, LONG iFontId, LONG @plf DECLARE LONG GetThemeSysInt IN UXTHEME LONG hTheme, LONG iIntId, LONG @piVal DECLARE LONG GetThemeSysSize IN UXTHEME LONG hTheme, LONG iSizeId DECLARE LONG GetThemeSysString IN UXTHEME LONG hTheme, LONG iStringId, STRING @stringSys, LONG stringSysLength DECLARE LONG GetThemeTextExtent IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, STRING text, LONG textLength, LONG textFlags, LONG @boundingRect, STRING @extentRect DECLARE LONG GetThemeTextMetrics IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, STRING @textMetric DECLARE LONG GetWindowTheme IN UXTHEME LONG hWnd DECLARE LONG HitTestThemeBackground IN UXTHEME LONG hTheme, LONG hdc, LONG iPartId, LONG iStateId, LONG dwOptions, LONG @pRect, LONG hrgn, POINT ptTest, STRING @code DECLARE LONG IsAppThemed IN UXTHEME DECLARE LONG IsThemeActive IN UXTHEME DECLARE LONG IsThemeBackgroundPartiallyTransparent IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId DECLARE LONG IsThemeDialogTextureEnabled IN UXTHEME LONG hWnd DECLARE LONG IsThemePartDefined IN UXTHEME LONG hTheme, LONG iPartId, LONG iStateId DECLARE LONG OpenThemeData IN UXTHEME LONG hWnd, STRING classList DECLARE LONG SetSystemVisualStyle IN UXTHEME STRING pszFilename, STRING pszColor, STRING pszSize, LONG dwReserved DECLARE SetThemeAppProperties IN UXTHEME STRING props DECLARE LONG SetWindowTheme IN UXTHEME LONG hWnd, STRING textSubAppName, STRING textSubIdList ENDTRY ENDPROC 5ogfx hdc _memberdata XML Metadata for customizable properties controls An array for accessing the controls in a container object. _bmpwidth _bmpheight _tempfile rectangle smoothingmode textrenderinghint interpolationmode obmp rendermode 0 = Memory BMP ; 1 = File BMP ; 4 = Memory PNG _hwnd _hbitmapold _csize drawwheninvisible lredrawnow _inform _widthoverride _heightoverride _tempemffile lignorepaint _isinitialized _usesmooth *draw Repaints a Form object. *clear Clears the contents of a ComboBox or ListBox control. *beforedraw *deleteosb *renderosb *createosb *refresh Repaints a Form or control and refreshes any values. *setup *resize Occurs when an object is resized. *rectangle_access *smoothingmode_assign *textrenderinghint_assign *interpolationmode_assign *save *afterdraw *getextent *width_access *height_access *backstyle_access *declaredll *rendermode_assign *activate Occurs when a FormSet, Form, or Page object becomes active or when a ToolBar object is shown. *lredrawnow_assign *drawreport  BackStyle = 0 Height = 162 Width = 182 ogfx = (NULL) hdc = 0 _memberdata =  1437 controls = (NULL) _bmpwidth = 0 _bmpheight = 0 _tempfile = rectangle = (NULL) smoothingmode = 4 textrenderinghint = 3 interpolationmode = 0 obmp = (NULL) rendermode = 0 _hwnd = 0 _hbitmapold = 0 _csize = drawwheninvisible = .F. lredrawnow = .F. _inform = .F. _widthoverride = -1 _heightoverride = -1 _tempemffile = lignorepaint = .F. _isinitialized = .F. _usesmooth = .F. Name = "imgcanvas" 5PROCEDURE value_assign LPARAMETERS tnValue LOCAL lnPct IF BETWEEN(m.tnValue, This.Min, This.Max) This.Value = m.tnValue This.UpdateControl() ENDIF ENDPROC PROCEDURE orientation_assign LPARAMETERS tnOrientation IF BETWEEN(m.tnOrientation, 0, 1) This.Orientation = m.tnOrientation This.Value = This.Value ENDIF ENDPROC PROCEDURE updatecontrol WITH This.imgthemebase1 .Top = 0 .Left = 0 .Width = This.Width .Height = This.Height IF This.Orientation = 0 && Horizontal .ThemePart = 1 ELSE .ThemePart = 2 ENDIF .Draw() ENDWITH WITH This.imgthemebase2 .Top = 4 .Left = 4 m.lnPct = (This.Value-This.Min)/(This.Max-This.Min) IF This.Orientation = 0 && Horizontal .Width = (This.Width-8)*m.lnPct .Height = MAX(This.Height-8,1) .ThemePart = 3 ELSE .Width = This.Width-8 .Height = MAX((This.Height-8)*m.lnPct,1) .Top = This.Height-4-.Height .ThemePart = 4 ENDIF .Draw() ENDWITH ENDPROC PROCEDURE Resize This.UpdateControl() ENDPROC PROCEDURE Init This.UpdateControl() ENDPROC I"00~%/IUS%C LT CUTNVALUELNPCTTHISMINMAXVALUE UPDATECONTROLL%C ET TU TNORIENTATIONTHIS ORIENTATIONVALUETTTT%tT T C TT)T    %PT TCDT T!TC DTT CUTHIS IMGTHEMEBASE1TOPLEFTWIDTHHEIGHT ORIENTATION THEMEPARTDRAW IMGTHEMEBASE2LNPCTVALUEMINMAX CUTHIS UPDATECONTROL CUTHIS UPDATECONTROL value_assign0orientation_assign updatecontrol>ResizeInit1qq!A4q!1A3"bAA"aQAA321N r+9-*<)0"`%jgVU)T CUVNEWVALTHIS THEMESTATEDRAWL3TCCwindir5\system32\uxtheme.dll0 C CUTHISISXP DECLAREDLLn% B$Q XFCSYSTEMT9 C9gT C % cT C =T C 4rsC 4rsTC 2TC    C  C UTHISISXPSYSTEM LCTHEMECLASSLNHDCLNTHEME LQRECTSTRUCTCLEAR OPENTHEMEDATA THEMECLASSOGFXGETHDCWIDTHHEIGHTHRDRAWTHEMEPARENTBACKGROUNDTHISFORMHWNDDRAWTHEMEBACKGROUND THEMEPART THEMESTATE RELEASEHDCCLOSETHEMEDATA C% B ; C  4|SleepWIN32APIQimgThemeBaseDeclareDLL"|CloseThemeDataUXTHEME3|DrawThemeBackgroundUXTHEME5|DrawThemeBackgroundExUXTHEME+| DrawThemeEdgeUXTHEME.| DrawThemeIconUXTHEME2|DrawThemeParentBackgroundUXTHEME2| DrawThemeTextUXTHEME.|EnableThemeDialogTextureUXTHEME!| EnableThemingUXTHEME1|GetCurrentThemeNameUXTHEME(|GetThemeAppPropertiesUXTHEME=|GetThemeBackgroundContentRectUXTHEME8|GetThemeBackgroundExtentUXTHEME8|GetThemeBackgroundRegionUXTHEME)| GetThemeBoolUXTHEME*| GetThemeColorUXTHEME8|GetThemeDocumentationPropertyUXTHEME.|GetThemeEnumValueUXTHEME.|GetThemeFilenameUXTHEME+| GetThemeFontUXTHEME(| GetThemeIntUXTHEME,|GetThemeIntListUXTHEME.|GetThemeMarginsUXTHEME-|GetThemeMetricUXTHEME2|GetThemePartSizeUXTHEME-|GetThemePositionUXTHEME3|GetThemePropertyOriginUXTHEME)| GetThemeRectUXTHEME-|GetThemeStringUXTHEME%|GetThemeSysBoolUXTHEME&|GetThemeSysBrushUXTHEME&|GetThemeSysColorUXTHEME(|GetThemeSysFontUXTHEME'|GetThemeSysIntUXTHEME%|GetThemeSysSizeUXTHEME,|GetThemeSysStringUXTHEME8|GetThemeTextExtentUXTHEME0|GetThemeTextMetricsUXTHEME"|GetWindowThemeUXTHEME8|HitTestThemeBackgroundUXTHEME| IsAppThemedUXTHEME | IsThemeActiveUXTHEME=|%IsThemeBackgroundPartiallyTransparentUXTHEME/|IsThemeDialogTextureEnabledUXTHEME*|IsThemePartDefinedUXTHEME#| OpenThemeDataUXTHEME.|SetSystemVisualStyleUXTHEME(|SetThemeAppPropertiesUXTHEME&|SetWindowThemeUXTHEMEU7THISISXPIMGTHEMEBASEDECLAREDLLSLEEPWIN32APICLOSETHEMEDATAUXTHEMEDRAWTHEMEBACKGROUNDDRAWTHEMEBACKGROUNDEX DRAWTHEMEEDGE DRAWTHEMEICONDRAWTHEMEPARENTBACKGROUND DRAWTHEMETEXTENABLETHEMEDIALOGTEXTURE ENABLETHEMINGGETCURRENTTHEMENAMEGETTHEMEAPPPROPERTIESGETTHEMEBACKGROUNDCONTENTRECTGETTHEMEBACKGROUNDEXTENTGETTHEMEBACKGROUNDREGION GETTHEMEBOOL GETTHEMECOLORGETTHEMEDOCUMENTATIONPROPERTYGETTHEMEENUMVALUEGETTHEMEFILENAME GETTHEMEFONT GETTHEMEINTGETTHEMEINTLISTGETTHEMEMARGINSGETTHEMEMETRICGETTHEMEPARTSIZEGETTHEMEPOSITIONGETTHEMEPROPERTYORIGIN GETTHEMERECTGETTHEMESTRINGGETTHEMESYSBOOLGETTHEMESYSBRUSHGETTHEMESYSCOLORGETTHEMESYSFONTGETTHEMESYSINTGETTHEMESYSSIZEGETTHEMESYSSTRINGGETTHEMETEXTEXTENTGETTHEMETEXTMETRICSGETWINDOWTHEMEHITTESTTHEMEBACKGROUND ISAPPTHEMED ISTHEMEACTIVE%ISTHEMEBACKGROUNDPARTIALLYTRANSPARENTISTHEMEDIALOGTEXTUREENABLEDISTHEMEPARTDEFINED OPENTHEMEDATASETSYSTEMVISUALSTYLESETTHEMEAPPPROPERTIESSETWINDOWTHEMEthemestate_assign0Init beforedraw declaredllZ1q!3121AAMQa"aAA52AAB&1Q!!!1QaaqQ!1aB1\w 7 X2)"%` LUCUTHIS IMGCANVAS1RESIZEBTTTUTHIS IMGCANVAS1WIDTHHEIGHTANCHORCUECOLORTHIS IMGCANVAS1CLEARResize0Initeclear12aa12qB1,G )"V-%" U&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATEMouseUp0 MouseDown MouseLeave MouseEnterY112121211Uu ;} )"V-%" U&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE&TUNBUTTONNSHIFTNXCOORDNYCOORDTHIS THEMESTATE MouseEnter0 MouseLeave MouseDownMouseUpY112121211Xy ;} )>SPROCEDURE draw ********************************************************************* ** Method: ImgCanvas.Draw ** ** Aplies the recived ColorMatrix to the current image ** ** History: ** 2006/../..: BDurban - Coded ** 2007/12/23: CWollenhaupt - Fixed observations below ** ********************************************************************* LPARAMETERS tnWidth, tnHeight, toGfx LOCAL loGfxOld ********************************************************************* * When we have many GDI+ objects on a form we have to make sure that we don't redraw * them too many times as this reduces performance quite a bit. While the form is not * visible we cannot rely on the current dimension. It might change without us being * notified. Therefore we filter calls only redrawing when there's actually something to * do. ********************************************************************* IF This._InForm IF NOT This.lRedrawNow AND NOT Thisform.Visible AND NOT This.DrawWhenInvisible RETURN ENDIF ENDIF IF NOT This._IsInitialized RETURN ENDIF IF EMPTY(m.tnWidth) This._WidthOverride = -1 This._HeightOverride = -1 m.tnWidth = This.Width m.tnHeight = This.Height ELSE This._WidthOverride = m.tnWidth This._HeightOverride = m.tnHeight ENDIF IF VARTYPE(m.toGfx) = "O" m.loGFXOld = This.oGfx This.oGfx = m.toGFX This.BeforeDraw() * This.RenderOSB() This.AfterDraw() This.oGfx = m.loGFXOld ELSE This._cSize = BINTOC(m.tnWidth,"4rs") + BINTOC(m.tnHeight,"4rs") IF This._BMPWidth <> m.tnWidth OR This._BMPHeight <> m.tnHeight OR This.RenderMode = 7 This.CreateOSB(m.tnWidth, m.tnHeight) ENDIF This.BeforeDraw() This.RenderOSB() This.AfterDraw() ENDIF This._WidthOverride = -1 This._HeightOverride = -1 ENDPROC PROCEDURE clear LPARAMETERS teColor ** eColor can be RGB, ARGB or Color object DO CASE ** Color object CASE VARTYPE(m.teColor) = "O" This.oGfx.Clear(m.teColor) ** RGB color CASE VARTYPE(m.teColor) = "N" AND BITAND(m.teColor,0xFF000000) = 0 This.oGfx.Clear(_SCREEN.System.Drawing.Color.FromRGB(m.teColor)) ** ARGB color CASE VARTYPE(m.teColor) = "N" This.oGfx.Clear(_SCREEN.System.Drawing.Color.FromARGB(m.teColor)) OTHERWISE IF This._InForm *! ToDo: Need to add support for XP theme background This.oGfx.Clear(_SCREEN.System.Drawing.Color.FromRGB(This.Parent.BackColor)) ELSE This.oGfx.Clear(_SCREEN.System.Drawing.Color.White) ENDIF ENDCASE ENDPROC PROCEDURE deleteosb This.oGfx = NULL This.oBMP = NULL ENDPROC PROCEDURE renderosb ************************************************************** * FUNCTION RenderOSB * * This PROTECTED method is called when the Image control needs * to be updated to the screen. ************************************************************** LOCAL llLockScreen IF This._InForm m.llLockScreen = ThisForm.LockScreen ThisForm.LockScreen = .T. ENDIF DO CASE CASE This.RenderMode = 0 && Memory BITMAP This.PictureVal = This.oBmp.GetPictureValfromHBitmap() CASE This.RenderMode = 1 && File BITMAP IF EMPTY(This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".bmp" ELSE This.Picture = "" CLEAR RESOURCES (This._tempfile) DELETE FILE (This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".bmp" ENDIF This.oBmp.Save(This._tempfile, _Screen.System.Drawing.Imaging.ImageFormat.Bmp) This.Picture = (This._tempfile) CASE This.RenderMode = 4 && Memory PNG ** PNG PictureVal is only supported in SP2 and later IF VERSION(4) >= "09.00.0000.5411" && "09.00.0000.5815" && VFP 9.0 SP2 This.PictureVal = This.oBmp.GetPictureVal(_Screen.System.Drawing.Imaging.ImageFormat.Png) ELSE ** Default to BMP if SP1 or earlier This.PictureVal = This.oBmp.GetPictureValfromHBitmap() ENDIF CASE This.RenderMode = 5 && File PNG IF EMPTY(This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".png" ELSE This.Picture = "" CLEAR RESOURCES (This._tempfile) DELETE FILE (This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".png" ENDIF This.oBmp.Save(This._tempfile, _Screen.System.Drawing.Imaging.ImageFormat.Png) This.Picture = (This._tempfile) CASE This.RenderMode = 8 && File EMF This.oGfx = NULL LOCAL llLocked IF This._InForm m.llLocked = ThisForm.LockScreen ThisForm.LockScreen = .T. ENDIF This.Picture = (This._tempFile) IF This._InForm AND NOT ThisForm.LockScreen = m.llLocked ThisForm.LockScreen = m.llLocked ENDIF ENDCASE IF This._InForm ThisForm.LockScreen = m.llLockScreen ENDIF RETURN ENDPROC PROCEDURE createosb LPARAMETERS tnWidth, tnHeight This.DeleteOSB() LOCAL loRect IF EMPTY(m.tnWidth) m.tnWidth = This.Width m.tnHeight = This.Height ENDIF This._BMPWidth = m.tnWidth This._BMPHeight = m.tnHeight m.tnWidth = MAX(m.tnWidth,1) m.tnHeight = MAX(m.tnHeight,1) WITH _Screen.System.Drawing DO CASE CASE This.RenderMode = 1 && Render to File This.oBmp = .Bitmap.New(m.tnWidth, m.tnHeight, .Imaging.PixelFormat.Format24bppRGB) CASE This.RenderMode = 7 && Render to EMF IF EMPTY(This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".emf" ELSE DELETE FILE (This._tempfile) CLEAR RESOURCES (This._tempfile) This._tempfile = ADDBS(SYS(2023))+SYS(2015)+".emf" ENDIF loRect = .Rectangle.New(0, 0, m.tnWidth, m.tnHeight) This.oBmp = .Imaging.Metafile.New(This._tempfile,0, m.loRect, ; .Imaging.MetafileFrameUnit.Pixel, ; .Imaging.MetaFileType.EmfPlusOnly) OTHERWISE This.oBmp = .Bitmap.New(m.tnWidth, m.tnHeight) ENDCASE This.oGfx = .Graphics.FromImage(This.oBmp) This.oGfx.SmoothingMode = This.SmoothingMode This.oGfx.TextRenderingHint = This.TextRenderingHint This.oGfx.InterpolationMode = This.InterpolationMode ENDWITH ENDPROC PROCEDURE resize IF This.Stretch = 0 AND This.Anchor > 0 && AND (m.nWidth <> This.Width OR m.nHeight <> This.Height) This.Draw() ENDIF ENDPROC PROCEDURE rectangle_access IF VARTYPE(This.Rectangle) <> "O" This.Rectangle = _SCREEN.System.Drawing.Rectangle.New(0,0,This.Width,This.Height) ELSE This.Rectangle.Width = This.Width This.Rectangle.Height = This.Height ENDIF RETURN This.Rectangle ENDPROC PROCEDURE smoothingmode_assign LPARAMETERS vNewVal THIS.SmoothingMode = m.vNewVal This.oGfx.SmoothingMode = m.vNewVal ENDPROC PROCEDURE textrenderinghint_assign LPARAMETERS vNewVal THIS.TextRenderingHint = m.vNewVal This.oGfx.TextRenderingHint = m.vNewVal ENDPROC PROCEDURE interpolationmode_assign LPARAMETERS vNewVal THIS.InterpolationMode = m.vNewVal This.oGfx.InterpolationMode = m.vNewVal ENDPROC PROCEDURE save ********************************************************************* ** Method: Save ** ** Saves an image of the current canvas object ** ** History: ** 2006/08/05: BDurban/CChalom - Added save method ** 2006/08/10: BDurban - Changed to use new oBMP property ********************************************************************* LPARAMETERS tcFilename ; , toEncoder AS xfcImageCodecInfo, toEncoderParams AS xfcEncoderParameters LOCAL loExc TRY This.oBMP.Save(m.tcFilename, m.toEncoder, m.toEncoderParams) CATCH TO m.loExc THROW m.loExc ENDTRY ENDPROC PROCEDURE width_access ** If we are hosted in a Grid, the width is invalid. ** We need to use the Column's width IF This._InForm AND This.Parent.BaseClass = "Column" RETURN This.Parent.Width ENDIF RETURN IIF(This._WidthOverride < 0, This.Width, This._WidthOverride) ENDPROC PROCEDURE height_access * If we are hosted in a Grid, the Height is invalid. * We need to use the Grid's RowHeight IF This._InForm AND This.Parent.BaseClass = "Column" RETURN This.Parent.Parent.RowHeight ENDIF RETURN IIF(This._HeightOverride < 0, This.Height, This._HeightOverride) ENDPROC PROCEDURE backstyle_access ** For use in Grids, if the control is hosted in a grid ** it needs to update for each visible row. This event ** will fire as each visible row in the Grid This.Draw() RETURN THIS.BackStyle ENDPROC PROCEDURE rendermode_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.RenderMode = m.vNewVal This.CreateOSB() ENDPROC PROCEDURE activate ********************************************************************* ** Method: ImgCanvas.Activate ** ** Occurs when the Image Canvas is activated for the 1st time ** ** History: ** 2007/12/23: CWollenhaupt - Coded - observations below ** ********************************************************************* ********************************************************************* * We cannot display a control properly during the initialization of a form. Because the * form is invisible while it's loaded, it doesn't trigger any Resize event when the size * changes or controls are moved around. Nor are several properties updated correctly at * this point. The form becomes visible when the Activate event is triggered. * * The control might have been drawn already, for instance, by calling the Draw method * directly. If the control's size hasn't changed, there's no need to repeat drawing the * control. However, if the size differs we now have to redraw the control with the * actual size. * * Activate can fire repeatedly. There's little advantage of frequently drawing the same * image. Hence, we unbind the control once it was triggered. * ********************************************************************* LOCAL lcNewSize m.lcNewSize = BINTOC(This.Width, "4rs") + BINTOC(This.Height, "4rs") IF NOT This._cSize == m.lcNewSize This.Draw() ENDIF IF This._InForm UNBINDEVENTS(Thisform,"Activate",This,"Activate") ENDIF ENDPROC PROCEDURE lredrawnow_assign ********************************************************************* ** Method: lRedrawNow_Assign ** ** History: ** 2007/12/23: CWollenhaupt - Coded - observations below ** ********************************************************************* LPARAMETERS tlNow ********************************************************************* * Force the control to resize itself. Draw additionaly ensures that we ** only draw the control when it is visible. ********************************************************************* IF m.tlNow This.lRedrawNow = .T. This.Draw() This.lRedrawNow = .F. ENDIF ENDPROC PROCEDURE drawreport LPARAMETERS tnWidth, tnHeight LOCAL loRect, loEMF, loGFX, lcTempFile, lnSelect ** Hooking into a report is sensitive to the work area changing ** lets make sure we can restore the current workarea in case it changes m.lnSelect = SELECT() m.tnWidth = EVL(m.tnWidth, This.Width) m.tnHeight = EVL(m.tnHeight, This.Height) ** The only way to support EMF in a VFP 9 report is to either draw it ** ourselves or go to disk. The Image object's PictureVal does not work ** for EMFs. So we are going to create a temp EMF file to draw to and ** then return the file name from this function. All temp files need to ** be stored in a collection so we can clean them up later IF VARTYPE(This._TempEMFFile) <> "O" This._TempEMFFile = CREATEOBJECT("Collection") ENDIF m.lcTempFile = ADDBS(SYS(2023))+SYS(2015)+".emf" This._TempEMFFile.Add(m.lcTempFile) WITH _SCREEN.System.Drawing m.loRect = .Rectangle.New(0,0,m.tnWidth,m.tnHeight) * m.loEMF = .Imaging.Metafile.New(m.lcTempFile, 0, ; m.loRect, ; .Imaging.MetafileFrameUnit.Pixel, ; .Imaging.MetafileType.Emf) * m.loEMF = .Imaging.Metafile.New(m.lcTempFile, 0, ; m.loRect, ; .Imaging.MetafileFrameUnit.Pixel, ; .Imaging.MetafileType.EmfPlusDual) m.loEMF = .Imaging.Metafile.New(m.lcTempFile, 0, ; m.loRect, ; .Imaging.MetafileFrameUnit.Pixel, ; _Screen.System.Drawing.Imaging.MetafileType.EmfPlusOnly) ASSERT m.loEMF.Handle <> 0 MESSAGE "Invalid EMF" m.loGFX = .Graphics.FromImage(m.loEMF) ** Override the default Width, Height and Graphics IF This._UseSmooth loGfx.SmoothingMode = This.SmoothingMode loGfx.TextRenderingHint = This.TextRenderingHint loGfx.InterpolationMode = This.InterpolationMode ENDIF This.Draw(m.tnWidth, m.tnHeight, m.loGfx) ENDWITH m.loGFX = NULL m.loEMF = NULL m.loStream = NULL m.loRect = NULL SELECT (m.lnSelect) RETURN m.lcTempFile ENDPROC PROCEDURE UIEnable ********************************************************************* ** Method: ImgCanvas.UIEnable ** ** Occurs for all objects contained in a Page objects whenever the page is activated or deactivated ** ** History: ** 2007/12/23: CWollenhaupt - Coded - observations below ** ********************************************************************* LPARAMETERS lEnable *======================================================================================== * Using the form's Activate event only works for controls that reside on the form * directly. It doesn't work for controls on a pageframe when the pageframe is anchored * and resizes automatically. Controls on invisible pages aren't notified. Therefore we * use the UIEnable event to redraw controls when the page becomes visible. *======================================================================================== LOCAL lcNewSize IF m.lEnable m.lcNewSize = BINTOC(This.Width, "4rs") + BINTOC(This.Height, "4rs") IF NOT This._cSize == m.lcNewSize This.Draw() ENDIF ENDIF ENDPROC PROCEDURE Init ********************************************************************* ** Method: ImgCanvas.Init ** ** Initializes the ImageCanvas ** ** History: ** 2006/../..: BDurban - Coded ** 2007/12/23: CWollenhaupt - Fixed observations below ** ********************************************************************* LOCAL lcPath IF VARTYPE(_SCREEN.System) <> "O" m.lcPath = ADDBS(JUSTPATH(SUBSTR(SYS(16), AT(" ",SYS(16),2)+1))) DO CASE CASE FILE("system.app") DO ("system.app") CASE FILE(m.lcPath+"system.app") DO (m.lcPath+"system.app") CASE FILE(m.lcPath+"system.prg") DO (m.lcPath+"system.prg") ENDCASE ENDIF This._InForm = TYPE("ThisForm")=="O" This._IsInitialized = .T. This.CreateOSB() This.Controls=CREATEOBJECT("Collection") This.Setup() *======================================================================================== * Changes to the original class: * * - Bind the Form's Activate method to a new Activate method in this control. Previously * the method was bound to Draw which forces a redraw. By redirecting this to Activate * we can use additionally checks to confirm that we actually need to redraw the * control. In addition, we only have to draw the control the first time the form is * activated. After that any need to redraw is triggered by a Resize, the UIEnabled * event or an explicit call to Draw. * * - Pages don't have a Resize event. In order to add this control a page it must respond * to the PageFrame's Resize event after VFP completed the Resize event. Otherwise the * PageWidth and PageHeight properties still contain the old values. * *======================================================================================== IF This._InForm BINDEVENT(Thisform, "Activate", This, "Activate") IF This.Parent.BaseClass == "Page" BINDEVENT(This.Parent.Parent, "Resize", This, "Resize", 1) ELSE BINDEVENT(This.Parent, "Resize", This, "Resize") ENDIF ENDIF ENDPROC PROCEDURE Destroy LOCAL m.lcFile IF VARTYPE(This.Controls) = "O" This.Controls.Remove(-1) ENDIF This.Controls = NULL This.DeleteOSB() IF VARTYPE(This._TempEMFFile)="O" This.Picture = "" FOR EACH m.lcFile IN This._TempEMFFile IF FILE(m.lcFile) DELETE FILE (m.lcFile) ENDIF ENDFOR ENDIF IF FILE(This._tempfile) This.Picture = "" DELETE FILE (This._tempFile) ENDIF ENDPROC "M"4"4"n/% &_UC%Y)%   UB% tB%C T T T  T  T  T  %C OlT T  C CT  *TC 4rsC 4rs6%     C  C C CT T UTNWIDTHTNHEIGHTTOGFXLOGFXOLDTHIS_INFORM LREDRAWNOWTHISFORMVISIBLEDRAWWHENINVISIBLE_ISINITIALIZED_WIDTHOVERRIDE_HEIGHTOVERRIDEWIDTHHEIGHTOGFX BEFOREDRAW AFTERDRAW_CSIZE _BMPWIDTH _BMPHEIGHT RENDERMODE CREATEOSB RENDEROSBUHN C OGC 4 C NC A %CC 9 C N%CC 9 2N% "(CC 9 JC9 U TECOLORTHISOGFXCLEARSYSTEMDRAWINGCOLORFROMRGBFROMARGB_INFORMPARENT BACKCOLORWHITETTUTHISOGFXOBMP%9T TaHN {TC d%C %T CC]C].bmp %T   %T CC]C].bmp'C 9  T   $%Ch09.00.0000.5411(TC9  TC %C :%T CC]C].png T   %T CC]C].png'C 9  T   T%1T TaT  #%  ~T %T BU LLLOCKSCREENTHIS_INFORMTHISFORM LOCKSCREEN RENDERMODE PICTUREVALOBMPGETPICTUREVALFROMHBITMAP _TEMPFILEPICTURESAVESYSTEMDRAWINGIMAGING IMAGEFORMATBMP GETPICTUREVALPNGOGFXLLLOCKED  C%C VT T T T T C DT C D9 H8  +T C     %C_%TCC]C].emf %TCC]C].emf$TC ;T C  28!T C  TC TTTUTNWIDTHTNHEIGHTTHIS DELETEOSBLORECTWIDTHHEIGHT _BMPWIDTH _BMPHEIGHTSYSTEMDRAWING RENDERMODEOBMPBITMAPNEWIMAGING PIXELFORMATFORMAT24BPPRGB _TEMPFILE RECTANGLEMETAFILEMETAFILEFRAMEUNITPIXEL METAFILETYPE EMFPLUSONLYOGFXGRAPHICS FROMIMAGE SMOOTHINGMODETEXTRENDERINGHINTINTERPOLATIONMODE8$%  1 CUTHISSTRETCHANCHORDRAW%COH.TC9 ~TT BUTHIS RECTANGLESYSTEMDRAWINGNEWWIDTHHEIGHT1T T UVNEWVALTHIS SMOOTHINGMODEOGFX1T T UVNEWVALTHISTEXTRENDERINGHINTOGFX1T T UVNEWVALTHISINTERPOLATIONMODEOGFX<QXFCIMAGECODECINFOQXFCENCODERPARAMETERS o"C  (  U TCFILENAME TOENCODERTOENCODERPARAMSLOEXCTHISOBMPSAVEc)%Column 8B$BC 6UTHIS_INFORMPARENT BASECLASSWIDTH_WIDTHOVERRIDEf)%Column ;B$BC 6UTHIS_INFORMPARENT BASECLASS ROWHEIGHT_HEIGHTOVERRIDEHEIGHT C BUTHISDRAW BACKSTYLE)T CUVNEWVALTHIS RENDERMODE CREATEOSB+T C4rsC4rs%  X C%%CActivateActivateU LCNEWSIZETHISWIDTHHEIGHT_CSIZEDRAW_INFORMTHISFORMH% ATa CT-UTLNOWTHIS LREDRAWNOWDRAWQ T CWT C  T C   %C OT C CollectionN$T CC]C].emfC  9 &T C AT C  9 #  Invalid EMFT C %TTTC   T  T  T  T  F  B UTNWIDTHTNHEIGHTLORECTLOEMFLOGFX LCTEMPFILELNSELECTTHISWIDTHHEIGHT _TEMPEMFFILEADDSYSTEMDRAWING RECTANGLENEWIMAGINGMETAFILEMETAFILEFRAMEUNITPIXEL METAFILETYPE EMFPLUSONLYHANDLEGRAPHICS FROMIMAGE _USESMOOTH SMOOTHINGMODETEXTRENDERINGHINTINTERPOLATIONMODEDRAWLOSTREAM{% t+T C4rsC4rs%  p CULENABLE LCNEWSIZETHISWIDTHHEIGHT_CSIZEDRAW$%C9O+T CCCC]C C]\H\ C system.app0 system.app! C system.app0 system.app! C system.prg0 system.prgTCThisFormbOTa CTC CollectionN C%%CActivateActivate% Page*C ResizeResize $C ResizeResizeU LCPATHSYSTEMTHIS_INFORM_ISINITIALIZED CREATEOSBCONTROLSSETUPTHISFORMPARENT BASECLASS %CO7CT C%COT %C 0  %C0TULCFILETHISCONTROLSREMOVE DELETEOSB _TEMPEMFFILEPICTURE _TEMPFILEdraw0clear~ deleteosbE renderosb~ createosb resizerectangle_accessbsmoothingmode_assign1textrenderinghint_assigninterpolationmode_assignsaveP width_access* height_accessbackstyle_accessrendermode_assignactivatelredrawnow_assign drawreportfUIEnableInitDestroyK1q)AAA2AA2!!!!A!!!aAA4qaBQQ!AA32w"!AaqbAQQArAbBrAbAQQArAbq!!AA1!AB"!AB3r2!!A"!baBabAQQAAAaaaB3AA2aaA3q!Q4q!Q3q!Q3r!A3AA3!AA33q"2qA!QA3xA3rABbBa5#111AA3zxAA3{AAA!QAAA2AAa1AAABA2& @6 X9 \n{?2M!a ) <&/d&(S(0h044<<H>)4"%G)_FWV C aTCSQTBORRAR1 Ta Ta( c:\sistema\system\data\1\ges.dbcC A01-00004159VBUSETS DEY_FUNC2CL_ATRCL_NOMP_DEV P_SUSPENDCFCE_REPROCESARy 4C Suspendo?aFG((ccvfac E%C4 |C Comprobante CV FC 2Cd ND Cc NC XX 666 no encontrado !!!B-T%cFG((codigo ET CC \gF # % # T %CEl comprobante CV FC 2Cd ND Cc NC XX 666 no pudo procesarse !!! nACEl punto de venta CC Z no es electrnico !!!BUXNUMEROFXCAUSASYS_MOSTRAR_SCREENCCVENTCCVFACMENSAJEXMOTIVOMOTIVOMOTIVOSCODIGOXSUC_FCEFAC_VENNUMFACFCEXERRVE_REG_CPBT_ELECTRONICO_FEV1CAUSAfce_reprocesarFQ2AB2ysqABqAr"2AAAB1 E4%" ! U sCCW%s"Confirmar Picking"s"Anular Picking"s"Cerrar Picking#s"Liberar Picking&s"Visualizar Picking$s"Imprimir Picking&s"Rotular el Picking%s"Visualizar Pedido.s "Remitir PedidoC} 7s "#Modificar fecha probable de entregas "\-Gs "Liberar para FC/RE C  Is "Bloquear para FC/RE C  s"\-cs"*Liberar entrega de los pickings del pedido  C ds"+Bloquear entrega de los pickings del pedido  C 1yDO _6hz1a6smp IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smq IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smr IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6sms IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smt IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smu IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smv IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6smw IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1 yDO _6hz1a6smx IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1 yDO _6hz1a6smy IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1 yDO _6hz1a6smz IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1 yDO _6hz1a6sn0 IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6sn1 IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")1yDO _6hz1a6sn2 IN LOCFILE("2000\VE_CONTROL_DE_PICKINGS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_PICKINGS_MENU?")tU MENEMERGEACCESOP_VE_PD_LIBFACREMPEDIDOS_PENDIENTES LIBFACREMP_VE_PD_LIBENTREGALIBENTaT"ve_orden_de_picking%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGCONFIRMAR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSaT"ve_orden_de_picking%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGANULAR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSxT T,ve_orden_de_picking%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGXERRCERRAR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSaT"ve_orden_de_picking%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGLIBERAR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSlT-ve_orden_de_picking-%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGIMPRIMIR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSaT"ve_orden_de_picking%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGIMPRIMIR_PICKINGVE_ORDEN_DE_PICKINGACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSoT0ve_impresion_rotulosKCCZ%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGIMPRESION_ROTULOSVE_IMPRESION_ROTULOSACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSnT/ge01.prgC ZP%ve_control_de_pickingsU XPICKINGPEDIDOS_PENDIENTESPICKING CPBT_VIS2GE01PRGPEDIDOCOD_CLIACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGST T- T- Ta T-$% ve_control_de_pickingsU XPICKINGPEDIDOS_PENDIENTESPICKINGAUTDIRREAINM VE_PEDIDOPEDIDOACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSTT%%Ctccventtccvord2TC 6 T a(ve_fecha_probable_de_entrega( % "> C#%Cpedidos_pendientes+ T  7!T Cpedidos_pendientesO@> C 6%  #  6CNo se encontr el pedido CCZ !!!%ve_control_de_pickingsUXPICKINGPEDIDOS_PENDIENTESPICKINGXPEDIDOPEDIDOXFECHA_PROBABLETCCVENTDESPLFEC_ENTXRESVE_FECHA_PROBABLE_DE_ENTREGA UPDATE_DTXREGFEC_PROBFORMENSAJEACTUALIZAR_PICKING_EN_TABLAVE_CONTROL_DE_PICKINGSTT%<5opedidos_pendientes  % >/TCC+Cpedidos_pendientesO6 Ta) ve_control_de_pickings> F%: # CC6No se puede liberar porque hay pickings sin cerrar !!!%ve_control_de_pickingsUXPICKINGXREG XLOCAL_PEDIDOXESTADO_LIBERACIONPEDIDOS_PENDIENTESPICKINGPEDIDOP_VE_PD_LIBFACREMARR_CONFIRMADOSESTADOLIBERARVE_CONTROL_DE_PICKINGS LIBFACREMFORMENSAJEACTUALIZAR_PICKING_EN_TABLATT%/TCC+Cpedidos_pendientesO6 T-)ve_control_de_pickings-> F% #% ve_control_de_pickingsU XPICKINGXREG XLOCAL_PEDIDOXESTADO_LIBERACIONPEDIDOS_PENDIENTESPICKINGPEDIDOP_VE_PD_LIBFACREMLIBERARVE_CONTROL_DE_PICKINGS LIBFACREMFORACTUALIZAR_PICKING_EN_TABLAWTT%P/TCC+Cpedidos_pendientesO6 Ta)ve_control_de_pickings~ ;> C6 CSINO6( ve_control_de_pickingsF%L #U XPICKINGXREG XLOCAL_PEDIDOXESTADO_LIBERACIONPEDIDOS_PENDIENTESPICKINGPEDIDOP_VE_PD_LIBENTREGALIBERAR_ENTREGAVE_CONTROL_DE_PICKINGSLIBENTDLIBENTACTUALIZAR_PICKING_EN_TABLAnTT%g/TCC+Cpedidos_pendientesO6C Suspendo?a T-) ve_control_de_pickings-~7;> C6 CSINO6( ve_control_de_pickingsF%c #UXPICKINGXREG XLOCAL_PEDIDOXESTADO_LIBERACIONPEDIDOS_PENDIENTESPICKINGPEDIDOP_VE_PD_LIBENTREGASYS_MOSTRAR_SCREENLIBERAR_ENTREGAVE_CONTROL_DE_PICKINGSLIBENTDLIBENTACTUALIZAR_PICKING_EN_TABLA _6hz1a6smpQ _6hz1a6smq> _6hz1a6smr( _6hz1a6sms/ _6hz1a6smt _6hz1a6smu _6hz1a6smv _6hz1a6smw _6hz1a6smx _6hz1a6smy  _6hz1a6smz _6hz1a6sn0 _6hz1a6sn1 _6hz1a6sn2AQ!!1aAaQqara2B?q$T1q$T1qT1q$T1qT1q$T1qT1qT1qAV1R"#3ABABaAT112sQ"rAA1ABT112rAABT112BBrAAC112rBBrAAB2".?j(We.}#5#';'+A,,0GD0i4M48/S8<I] =CiuCJJGP_PV VY=%UN5%4 T-%BT%~TC]C]#Tc:\sistema\2000\system,Tc:\sistema\2000\system\data\ind G({TvBAT߳BA TF%QclientesxcodclixnombreFQccventxccvfacFQventasxven_fac@ inicial.ges9h1 \industriasNC)r industrias(<W%CCS3r industriasCCFQ \rpt_detalles T ventas,ccventmT`ventas.fac_ven+ventas.causa=ccvent.fac_ven+ccvent.causa .and. betw(ventas.fec_ven,xdesde,xhasta)%T ,clientesQT@.and.clientes.cat=xindustria.and.ventas.cod_cli=clientes.cod_cli%T,bienesKT:.and.bienes.grupo=xgrupo.and.ventas.cod_ins=bienes.cod_insTselect )Tventas.fec_ven as fecha,+Tventas.cod_cli as cliente,+Tventas.fac_ven as comprob,QT@iif(ventas.causa='V','F',iif(ventas.causa='c','C','D')) as tipo,$Tsum(ventas.tot_ven*0T iif(ventas.cod_ins=space(8),1,'T (1-ccvent.desc1/100)*'T (1-ccvent.desc2/100)*'T (1-ccvent.desc3/100)*'T (1-ccvent.desc4/100)*'T (1-ccvent.desc5/100)*(T (1-ccvent.desca1/100)*5T$ (1-ccvent.desca2/100))) as importe,9T(iif(ventas.causa='V', 1, 0) as facturas Tfrom  6T%group by ventas.fac_ven,ventas.causa  Twhere  $Tinto cursor borrar1 &xsql oborrar1Xclientes QCCXQQQQQQ1\tmp\rpt_detalleso rpt_detallesCQCQ CQQ!cQ"cQ#cQ$cQ%<1\tmp\rpt_clientesT'Ci CH#>!'C i C H0R,:Creando planillaC  de Excel...) T)-% % =\rfm_master.xls(\tmp\rfm_reporte.xls+a*!T*Cexcel.applicationN%) !T*+-+C\tmp\rfm_reporte.xls*,-%) *.<*!%1 T*+aF/& < T0(c:\sistema\lis\sql_agruparRo rpt_clientes"Q"C"QC!Q2C!Q3CQCQ""1 \tmp\rpt_rfm<T*,45A26C* - C*#)( Y FT*,45BCCZ6CC+ 6ZT*,45DCCZ6CC+ CC2Z to CC3Z6FT*,45ECCZ6CC+ 6%C+ U HF/& < T ~ 8T*,45ACCZ6"8T*,45ECCZ68T*,45FCCZ68T*,45GCCZ68T*,45HCCZ6 8T*,45ICCZ6TF/& < T0(c:\sistema\lis\sql_agruparFo rpt_clientes#Q#C#QC!Q2C!Q3CQCQ##1 \tmp\rpt_rfm<T*,45A26C* - C*#)( [FT*,45BCCZ6CC+ 6FT*,45DCCZ6CC+ 6\T*,45ICCZ6CC+ C 66FT*,45JCCZ6CC+ 6%C+ WHF/G((importe< T ~8T*,45BCCZ6#TF/& < T0(c:\sistema\lis\sql_agruparMo rpt_clientes$Q$C$QC!Q2C!Q3CQCQ$$1 \tmp\rpt_rfm<T*,45A26C* - C*#)( FT*,45BCCZ6CC+ 6FT*,45DCCZ6CC+ 6%C+ HF/G((importe< T ~!8T*,45CCCZ6$TF/& < T0"c:\sistema\lis\sql_importeso rpt_clientes%Q%C%QC!Q2C!Q3CQCQ%%1 \tmp\rpt_rfm<T*,45A26C* - C*#)( FT*,45BCCZ6CC+ 6FT*,45DCCZ6CC+ 6%C+ HF/G((importe< T ~e8T*,45DCCZ6%T *78 *.<*19internet\tmp\rfm_reporte.xls!%) T;<C/Atencin, no se ha podido crear la planilla !!!<G2U=XDESDEXHASTA XINDUSTRIAXGRUPOXDEBUGP_LOCALP_SYSTEMP_SERVERCLIENTESXCODCLIXNOMBRECCVENTXCCVFACVENTASXVEN_FACINICIALGESCODIGONOMBREZI_TABXFROMXWHEREXSQLBORRAR1CLIENTEFECHACOMPROBTIPOIMPORTEFACTURASCOD_CLIULTIMAMESESRDECILEFDECILEMDECILEPDECILE RPT_DETALLESXTODAYALLHAYERRORXVISIBLE WORKBOOKSOPENQUIT RPT_CLIENTESXDECILECDMESESHMESESSHEETSRANGEVALUEACTIVEWORKBOOKSAVE SHELLEXECINTERNET TTS_ERRORMENSAJE22ARb111QB1AA2A2ABAqqqqqQaA B  1rBrAAqAAAx,SbbAAAsAx,RbbbAAAsAv,SbbAAAsAx!,RbbAAAsAqBBAb2%/~3f;IM4 Ta %- TTC]C]#Tc:\sistema\2000\system,Tc:\sistema\2000\system\data\ind G({TvBAT߳BA TF%QclientesxcodclixnombreFQccventxccvfacFQventasxven_facFQcontactodescr@ inicial.ges9h1 \industriasNC)r industrias(<^%CCZ3r industriasCCFQ \rpt_detalles X %TTوbetw(ventas.fec_ven,xdesde,xhasta) .and. ventas.fac_ven+ventas.causa=ccvent.fac_ven+ccvent.causa .and.ventas.causa#'c'%-T.and.clientes.cat=xindustria%/T.and.ccvent.contacto=xcontactoBT select & ventas.fec_ven as fecha ,) ventas.cod_cli as cliente ,) ventas.cod_ins as articulo ,( ventas.fac_ven as comprob ,E iif(ventas.causa='V','F',iif(ventas.causa='c','C','D')) as tipo , ventas.tot_ven* + iif(ventas.cod_ins=space(8),1 ,& (1-ccvent.desc1/100) * & (1-ccvent.desc2/100) * & (1-ccvent.desc3/100) * & (1-ccvent.desc4/100) * & (1-ccvent.desc5/100) * ' (1-ccvent.desca1/100) * 0 (1-ccvent.desca2/100) ) as importe ,2 iif(ventas.causa='V', 1, 0) as facturas ,) ccvent.contacto as contacto " from ventas,ccvent  where  into cursor borrar1  &xsql C Suspendo?aoborrar1Xclientes  %QQC CXQQQ Q !Q!"Q"Q #Q$borrar1oborrar1X industrias $&QQQQQ Q !Q!"Q"Q$Q$&Q'borrar1oborrar1Xbienes (*QQQQQ Q !Q!"Q"Q$Q$'Q'C()Q)borrar1oborrar1Xgrupos )+QQQQQ Q !Q!"Q"Q$Q$'Q')Q)C+CXQ,borrar1oborrar1QQQQQ Q !Q!"Q"$Q$'Q')Q),Q,QCXQ-1\tmp\rpt_detallesHm ~   Ho rpt_detalles$QC!Q!)$)borrar1 # Ho rpt_detallesQC!Q!))borrar1 ~ Ho rpt_detallesQC!Q!))borrar1Doborrar1QC)Q+C!Q!borrar1Goborrar1CQ0+C!Q!+0<borrar1>h1\tmp\rpt_resumen0N +N&ogruposCQ1borrar2(21 *r rpt_resumen0+F ~ F3 #+>00F0R,:Creando planillaC  de Excel...4 T4-% LD\rfm_mastercross.xls(\tmp\rfm_crosssell.xls+4 K5!T5Cexcel.applicationN%4!T56--C\tmp\rfm_crosssell.xls578%4C 59<5!%dT56aF3H^ 8T57:;B12< Industrias 7T57:;B12< Contactos ^6T57:;B12<Clientes T ~4T57:;ACCZ<04T57:;BCCZ<+T 5=> 59<53?internet\tmp\rfm_crosssell.xls!%4 TA<C/Atencin, no se ha podido crear la planilla !!!BUCXDESDEXHASTA XINDUSTRIA XCONTACTOXTIPOXDEBUGP_LOCALP_SYSTEMP_SERVERCLIENTESXCODCLIXNOMBRECCVENTXCCVFACVENTASXVEN_FACCONTACTODESCRINICIALGESCODIGONOMBREZI_TABXWHEREXSQLSYS_MOSTRAR_SCREENBORRAR1ARTICULOCLIENTEFECHACOMPROBTIPOIMPORTEFACTURASCAT INDUSTRIACOD_CLI INDUSTRIAS NINDUSTRIABIENESGRUPOCOD_INSGRUPOSDGRUPO NCONTACTO RPT_DETALLESCOUNTCANTIDAD MAXGRUPOSBORRAR2 RPT_RESUMENHAYERRORXVISIBLE WORKBOOKSOPENQUITSHEETSRANGEVALUEACTIVEWORKBOOKSAVE SHELLEXECINTERNET TTS_ERRORMENSAJErRb111QB1AA2AX 2A2A0!4r a Q@ E111AFwbArqqArBBrAAqAAAu11r1bABAAq2BBA2%sFq T T- T&CInicializando...G+(listadosG+(dey_funcG+( dey_filtersCven_operven_opeCagentecodageCcuentascuentaCclientescodcliCccclieCventasven_facCccventccvfac"CObteniendo cheques F G((reciboQC Suspendo?a T CoccclieventasccventXmotivos ).-/QQQQC(XQC=Q-QQcQCXQCXQףp= [@Q (G0AQ (G0AQ ףp= [@Q! (G0AQ"ףp= [@Q# (G0AQ$ Q%&Q'-Q()*Q+Q,)0)0 d CC-1  C23 1 Q"CObteniendo recibos T4CT5Coven_operQ6clientes6Q6Q6Q6QC(XQ67QC11a-6QCC68 6686Q69QCXQCXQףp= [@Q (G0AQ (G0AQ ףp= [@Q! (G0AQ"ףp= [@Q# (G0AQ$Q1 Q%6'Q'-Q(C 6+66Q+Q,6:6R 6A  -CCC6+ 66+623 6614QQ4;F;  i1borrar<Ci1borrar=Ni1borrar>LT?C] h1@ \tmp\tmp_aux<C=NCDC C AC BC CNDNENFNGNHNQ@ \tmp\tmp_auxIFJG((cuentaFKG((codageF:G((codcliG-(KF;G-(:G-('J%CAnalizando comisiones ;CAnalizando movimientos...CBorrarNNTO.T. TO.T. %CP CQ  ,TOOCPQvendedoraR%CS CT [ +TOOCSTcod_cliaU+>::,:,set filter to &filtro TWsdfgsdfg TX ~/TY%WY TX TWYTXXTZYCXZ C[><Z=X::K !"#$1% %:\ >:\  >K] T^ T_ T` Ta TbFG((comprob E;;;CZ%C4G@+C+ -CZ;;;CZ CT__%BVcduF)EABTcDH Td)Te)DTf)HTg)hTi)jTk))DFEAB Tl Tm Tn To)+C+ 0AB H+ -V ToTmm - Tnn To 2 TllHF;%lmnH*T``llmn c*Taamlmn c*Tbbnlmn c qCEl C;RRCC;AAJXX66 C; aplica al comprobante CBVFCMCBcNC5CBdNDCBLASXX6666 A del cliente C y no ste no fue encontrado !!!p (TcCqr dd 6BTdcCBLs  BL c6 TeTfc TgTifd TkdET``CBLs  BL c6 Tortmp_aux<=ABCDEFGHZX;;;;ABdekigfFH }T^^;d  ToF;>1o `;C_؅W4vC_6 !"a;C_؅W4vC_6 #$b;C_؅W4vC_6 $T^ ;d "d  >^% >+%CJt"\S%C+u>%* >(a +%C23  '%# CvTO.T. %CP CQ ,TOOCPQvendedoraR%CS CT +TOOCPQcod_cliaUoborrartmp_aux;IAIBICIDIEIFIGIH;<I<borrar1& <<Txhksghlk ~%<x >>a Tx<& ;C Suspendo?a %y-((@\TMP\rpt_ind_comisiones e.(@\TMP\rpt_ind_comisiones> F;QFwQFIQ  *.*4*.*5*.*BUz XALICUOTA_IVAXPOR_FECHA_DIFXCOMIDIFOESTADO SET_AND_SHOWLISTADOSDEY_FUNC DEY_FILTERS CHK_OPENEDAVANCEVEN_OPERRECIBOSYS_MOSTRAR_SCREENXBORRAR1NEWFILE_LOCAL_TMPCCCLIEFECHACOMPROBCAUSACOD_CLINOMBREVENTASDESC_INSDESCRVALORDIFTOT_VENIMPORTEVENDEDORNOMVEN PORCIENTOCOMISION TOTAL_NORMPOR_DIF TOTAL_DIFPOR_DIFN TOTAL_DIFN ASTERISCOCOD_CUECUENTAES_DIFCCVENTFEC_VENFEC_COMIALTAMOTIVOSMOTIVOCODIGOFAC_VENTIPOXDFECXHFECXBORRAR2XBORRAR3VODES_VAL DIF_VALORCAJ_PROCLIENTESBORRARIDITMENCA XTABLA_AUXP_LOCALREFCAUBASEDES_COMSUBTIVAIIBBDEUDATMP_AUXCUENTASAGENTECODAGECODCLISUB_SET_AND_SHOWFILTROXDAGEXHAGEFIL_GET_AGE_FILTERXDCLIXHCLIFIL_GET_CLI_FILTERALLXOLDCPBTXITMXCPBTXID SUB_AVANCECOMI_COBCOMIXCOBACC ACC_RECIBOACC_NORMACC_DIFACC_DIFN XCOCIENTEXBASEXDES_COMXDEUDAXIIBBDTO672XIVAIVA_VENXSUBT TACC_NORMTACC_DIF TACC_DIFNXTIPOMENSAJEP_CODEMPP_DOSXDIVAATRIBUTOFECHAANTSUB_HIDEBORRAR1XOLD XDETALLADON 4@BCHCH CiCi  CiCi  C UXFECHAXDIFXDFECXHFECfechaant`c"!Q1"sGrq!D'!DsqsrrsRAAXQ2AbbAsDbr1cqs1AAAqD"RA tAAAw CAAAqBAAAAA(B1AAbsAqArArAA#!!C42E..% 5 QDv+Tbetw(conver.fecha,xdfec,xhfec)%C C KT: and between( val(conver.cod_pro), val(xdpro), val(xhpro))%C +T and conver.despacho=xdlot+omotinv  m13select conver.transf, conver.despacho, conver.entra-conver.sale as animales, conver2.cerrada, space(254) as refs from conver, bienes, conver2, m1 where conver.motivo=m1.codigo and bienes.cod_ins=conver.cod_ins and lotes="S" and conver.transf=conver2.transf and &xfiltro into cursor q1 readwrite ~T Ooq1Xconver2Q   q_txt T~C +TCC, 6CC ZQF >oq1Xconver2Q XconverQ   CCXQCCCQC Q    q11ioq11XbienesQ CCQq2% oq2converQproveedoQ$ Q"#$%Q&'-Q( Q)   #$# q4T, T- ~%, %,w T.CO #-#>)C / 6 #. T/ T, >(a T-COT//%, #-#>)C / 6 Boq2  CQCQ  q3oq3converQproveedoQ$0 Q"#$%Q&'C000 6Q)0   #$# q4%(1\tmp\mtz_rindeQRQBU2XFILTROXDPROXHPROXDLOTMOTINVTIPO TIPOAJUSTEM1 XDESPACHO1Q1DESPACHOC2TRANSFCONVER2Q_TXTXCLASIFICACIONESREFSCOD_INSENTRASALEMADEJASCLASIFCONVERCANIMALESCERRADAQ11FACTORMETROSBIENESBQ2XDDETDISTINCTTRANSF2COD_PROPNOMBRE PROVEEDORFECHAENCRINDEPROVEEDOQ4XOLDXOLDREGXREGXMETROSQ3P_LOCALA!A=1AArA* y 1B1AABB1AX BRBB1%5 S lKvWɢUB \dashboardUP_DIR_EXPORT_GLOBALH|% CC] = GUILLERMO #STGUILLERMO\GUILLE CC] =DEY #r 2|U P_SQL_SERVER $TCCCC:_/- P \log\dash Z.T\log\dash\dash - .txt BUXIDSYS XLOG_GENERALP_SYSTEM|%Cempresas =Q \empresasCempresascodigoT BUXHEADERP_SYSTEMP_CODEMPEMPRESASABREV9;     T_% &xFuncion %C\tmp\.dbf( \auxiliares\.dbf C \auxiliares\.dbf(\tmp\.dbfCBUXNOMBREXHEADERXFUNCION XRECALCULOXDIRXAUTXMSGOSQLXPAR1XPAR2XPAR3XPAR4XPAR5XPAR6XTABLAP_DEVP_LOCAL POS_PROCESAR}-%C\tmp\.xls0 8\tmp\.xls(\.xls/C Generado \.xls fC No generado \.xls porque no se encontr \tmp\.xls-%C\tmp\.pdf0 8\tmp\.pdf(\.pdf/C Generado \.pdf #fC No generado \.pdf porque no se encontr \tmp\.pdf%CC Q3C\tmp\.dbf U XTABLAXDIRXAUTXMSGOSQLP_LOCALLOGEAR XLOG_GENERAL SQL_SUBIR_DBCXTOP TCW%= G( T G(G G GG( FBUXARCHXMSGXINICIALXAREA "sys_clases_conexion%qlistadosTC@_ BUOSQLXCOLOCAR_HEADEROBTENER_SQL_BISYS_CLASES_CONEXIONXCABEZA EMPRESA_ABREVLISTADOS SQL_HEADERObtener_Directorio_Exportacion,Correcciones_datos_empresascCrear_Logs_NombreObtener_HeaderProcesarn Pos_Procesar?logearBI_Obtener_SQL_BI2q3QB2AqA3qA4b1A1AA3qaAaAA24rAbaaaB2!qqqA1-U v[((=: VJ m%r(T4 T T %C8LTC8 T ~MTHI R>C 8 F>C 8 M>C 8 PI>C 8UXTIPO XREGISTROSXDECILEZRDECILEFDECILEMDECILEPDECILEqQ1AAAAAAA1%~S( K(T %C8FTC8 T T Ta ~D%*CC    T >  T >TUIMPORTEXIMPORTEXDECILEZACCINICIALPDECILEQ1AAAA1%bW#Y3{ G.sys_actualizaciones  4CIniciando lectura de datos T T C]C];TCCFG_Ctrl Sys_cfg.prga \ges.cfga ':T*F:\Sistema\2000\bmp\cloud_refresh_blue.ico o a&Tcloud_refresh_blue.ico k<7 T- T T Tftp.solinges.com.arT/ges/(Tusuario_ftp@solinges.com.arT jimmyhendrix T%CxCFGFilebC%C0 DC*No se encontr el archivo de configuracin B-=C#Leyendo archivo de configuracion... .TCCFG_Ctrl Sys_cfg.prga"sys_actualizacionesTCT#C Terminado sys_ages T! \tmp\"#$%&'( )QZIPPER sys_zip.prg T$ T#aT%Czip,-"T&ges_vCCZ.zip,CPreparando proceso: CC CZIP:% T.Ca,/T.C. T"a70Q EG_COMANDOsys_clases_actualizaciones.prg;2QJSON_RESPUESTASavfp_objects_definiciones.prg?T0CEG_Comando_GESsys_clases_actualizaciones.prgT04T05%T06Iniciando Descarga...T07 T08CCZT2Ca09CFTP:&0: T- T-2CDescargando archivo & T'=;sys_upload_ftp.prg"&%$%C%0( T(\Inst\C&#C Terminado %C(0G (BRITISH G9( XC( \Ges_Anterior be((C( \Ges_Anterior\C(_CC(X*_CC(Y:-.C(  T- T-2CDescomprimiendo archivos $T)Czipper sys_zip.prg8T''C$%.inst ftp\Inst\*.*)>6T''C$%.prt ftp\Prt\*.*)><T''C$%.systemftp\System\*.*)>%((#C Terminado  +CArchivo no encontrado: %0:#CRespuesta FTP: $0:0CZIP no encontrado:% T#-T## ' %#A T- T-/CActualizando archivos '.inst\*.*(\Inst%.prt\*.*(\prt . System\*.*(FQ\Version$>?@T0B#T06Sistema actualizadoT05 #C Terminado  T0B6CError al actualizarC xMSG=$0:T05@CError al actualizarC xMSG=$  C C0C C T2Ca09 T- T-4CLimpiando datos temporales *TCScripting.FileSystemObjectNTC.DCaE#C Terminado ($ 3CError al limpiar: F CC*PQ C. +CPuede cerrar esta ventana. UGXCFGFILEOGESACTOLVIOLVISINICIALIZAR_VARIABLES_GENERALESSYS_ACTUALIZACIONESOFSODIROEX XKEYSISTEMA DEY_FUNC2 GES_REPORTARP_SRVP_LOCALOCFGP_SYS_PROCESANDOICON P_FTP_SERVER P_FTP_DIR P_FTP_USER P_FTP_PASS P_PROCESANDOXVERSIONP_SYSTEM XID_COMANDOLEER_VARIABLES_GENERALESLINEAS P_VERSION NORMALIZARSE P_ID_COMANDOVALORAGES_OBTENER_KEYSISTEMASYS_AGES P_LOCAL_TMPXAUTXOKXMSGXZIPXFILEXERRXNEWZIPOZIPSYS_ZIPPRGODEYFUNCNEWFILE_LOCAL_TMP XDIRECTORIOGET_PATHOCMDSYS_CLASES_ACTUALIZACIONESORESPAVFP_OBJECTS_DEFINICIONES ID_COMANDOESTADO RES_MENSAJE KEY_SISTEMADATOS_ADICIONALESACTUALIZAR_ESTADORES_AGREGAR_MENSAJEFTP_OBTENER_ARCHIVOSSYS_UPLOAD_FTPBRITISH DESZIPEAR ESTGENERALLATIDOALLRES_TIPOGES_REPORTAR_RESP GETFOLDERDELETEMESSAGE1b1qCaaAA11!"AqA"a3Aqa!QruQA!!1AQAA!Aa!11AqQqA11aA"AQ11A1!1%[NYeU%#   (TCChilkat_9_5_0.JsonObjectN/T CC  _token_.json % < $T CChilkat_9_5_0.OAuth2N:T *https://www.googleapis.com/oauth2/v4/token^T CH284709308512-4f4hcks8dps47n4ia432qrrhnn5k772v.apps.googleusercontent.com 9T C#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 $T C refresh_tokenT C %   <<  "C access_token +T CChilkat_9_5_0.StringBuilderNTC 6CC  _token_.jsonutf-8 )OAuth2 authorization granted!&New Access Token = << < UXTOKENXOKXMSG XCLIENTID XCLIENTSECRET XFAILUREINFOXACCESSTOKENRESPONSEXMAIL LOJSONTOKEN LNSUCCESSLOOAUTH2LOSBJSONLOADFILEODEYFUNCGET_PATH TOKENENDPOINTCLIENTID CLIENTSECRET REFRESHTOKENSTRINGOFREFRESHACCESSTOKEN LASTERRORTEXT UPDATESTRING ACCESSTOKEN EMITCOMPACTEMITSB WRITEFILE #C Obtener Token    # sys_mail_chilkat- 6%C !CC _token_.json0 (T CChilkat_9_5_0.JsonObjectN/TCC _token_.json  T a%o/T"Error al leer el archivo del token T-< B!T C refresh_token  $TCChilkat_9_5_0.OAuth2NT<T,https://accounts.google.com/o/oauth2/v2/auth:T*https://www.googleapis.com/oauth2/v4/tokenTk.Cuenta de GMail conectada.^TCH284709308512-4f4hcks8dps47n4ia432qrrhnn5k772v.apps.googleusercontent.com 9TC#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 TTS256(T https://mail.google.com/% F%!sAT4Iniciando autorizacin en un entorno sin interfaz!!!< T- B BTC"%#T$< T- B%internet T%+0u  '  >Cd(Td T) TC*%T$< < T- B"C access_token, ++TCChilkat_9_5_0.StringBuilderNT -C .6CC _token_.jsonutf-8/T,%TAutorizado correctamente Ta< <<< BHo ' 0 C0)TSin respuesta del navegador! T- '0T#Error al completar la autorizacin. T-T1 '*TLa autorizacin fue denegada.T2 T- '2%TAutorizado correctamente Ta 2o(TEstado inesperado:C'Z T-% < B3T3C24-C2C _token_.jsonT35<< BU6XTOKENXOKXMSG XCLIENTID XCLIENTSECRET XFAILUREINFOXACCESSTOKENRESPONSEXMAILSYS_M XREFRESHMODE XREFRESHTOKEN LOJSONTOKENOGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATODEYFUNCGET_PATH LNSUCCESSLOADFILESTRINGOFLOOAUTH2LCURL LNNUMMSWAITEDLOSBJSON LISTENPORTAUTHORIZATIONENDPOINT TOKENENDPOINTREDIRECTALLOWHTMLCLIENTID CLIENTSECRET CODECHALLENGECODECHALLENGEMETHODSCOPE P_SININTERFAZ STARTAUTHLASTMETHODSUCCESS LASTERRORTEXT SHELLEXECINTERNET AUTHFLOWSTATESLEEPMS REFRESHTOKENREFRESHACCESSTOKEN UPDATESTRING ACCESSTOKEN EMITCOMPACTEMITSB WRITEFILECANCEL FAILUREINFOACCESSTOKENRESPONSEOJSON NFJSONREAD ACCESS_TOKENRefresh_Access_Token0 Obtener_Token31rqqqAqAABCAqqAA"aarqq21qq1bAqAArqqqqB1 AqqqAqQAAAqqA"aQqqqqAaaaaQBqAsArq1k#m=%KYX ;QVFP_WINSOCK_SEND_MAILsys_winsock.prg     $TCChilkat_9_5_0.GlobalN-#TCChilkat_9_5_0.EmailNTTTC,;TC,;C;C;(C TCC  TCCC %C! T!C!,;T"C",;C!;C";(C TCC  TCCC#%C$ T$C$,;C$;(CCCC%T&&T'utf-8%C(C*) U+T CChilkat_9_5_0.StringBuilderNC( +CC -, TaT./%C lc_attachbON 01 T02.JTCC23 % F<:T4Error al adjuntar el archivo O(C2)T5a B5  Z%C. VT.C.,;C.;(CRT6CTCC63% N<:T4Error al adjuntar el archivo C(C6)T5a B5 +T CChilkat_9_5_0.StringBuilderNC 7!C base64urlutf-8 8(T CChilkat_9_5_0.JsonObjectNCraw 9"T CChilkat_9_5_0.HttpNT :;GT:https://www.googleapis.com/gmail/v1/users/me/messages/send,TCapplication/json <% =6CError>T4 ?T5a C @ C A<< < < < B5 CRefresh>H_?  B*C No enviadoCSENTC>T4CT5- B CNo enviado 401>DETD;<Fsys_mail_gmailDE% &H sys_mailctasDT;DCaJ  T4ET5a 2? COtro>=T4Response status code: CBZ - CT5a C @ C A<<< < < < B5 UK LOSENDMAIL SYS_WINSOCKPRGXAUTXTOKENACTUALIZADOXOK LNSUCCESSLOEMAILLCCIDLOSBHTMLLNNUMREPLACEMENTSLOSBMIMELOJSONLOHTTPLCURLLORESPLC_TOXTOXNAMENITXSPLXSP2OGLOBALCOMPROBAR_LICENCIA FROMADDRESSFROMFROMNAME FROM_NAMETOTO_NAMEODEYFUNCSPLIT_TO_ARRAYADDTOCCCC_NAMEADDCCCCIADDBCCSUBJECTCHARSET MESSAGEHTMLADDPLAINTEXTALTERNATIVEBODYMESSAGEAPPENDADDHTMLALTERNATIVEBODY GETASSTRING LC_ATTACH ATTACHMENT TMLC_ATTACHFXTIPO TMLC_ATTACHAGREGAR_ADJUNTOERREUR SMTP_ERRORXARCHIVO GETMIMESBENCODEUPDATESB AUTHTOKEN SMTP_TOKEN POSTJSON3LASTMETHODSUCCESSSYS_M LASTERRORTEXTCLOSEALLCONNECTIONSCLOSEALLCONNECTIONSASYNC STATUSCODEBODYSTRXTOKENXMSG OBTENER_TOKENSYS_MAIL_GMAILACTUALIZAR_TOKEN_MAILCTAS SYS_MAILCTASSYS_MAIL_CHILKAT %CxTipobLHF} CCfPDF}Tapplication/pdf%CTCTC TC BUOMAILXARCHIVOXTIPOXTYPEXOKADDFILEATTACHMENTADDFILEATTACHMENT2/%C t$TCChilkat_9_5_0.GlobalN Ta T-?T2Error al instanciar el objeto Chilkat_9_5_0.Global%C B% /TCGESms8.CBX0323_eFK4OGjVDX9c %fT T-  % "TChilkat habilitado!!! 1TError al habilitar ChilkatC %Ca %(<U XREGISTRANDOOGLOBALXOKXMENSAJE LNSUCCESSLNSTATUS XMENSAJE2XCREADOTYPEO UNLOCKSTATUS UNLOCKBUNDLE LASTERRORTEXTMENSAJE_SUSPENDOAgregar_AdjuntoComprobar_LicenciaLqqqqqqqqqqq2qsA231AAASAAAARAA2QB21ABqAB!q!uqABBAq!1rq!1qqqqqABa1a1AAqqqqqq2AAQA212QAAQABbAq!AAAAqA13B0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _1U0126IC5 886541849/F] WINDOWS _1U0126IC61432509266 'aP? WINDOWS _57T11IKYA1413778231;@P@e@>>=O WINDOWS _1VA0MY7UN1413778231u@?`?q?>JrHL WINDOWS _1VA0MY7UO1366070130@??B>< WINDOWS _1U0126IC51413778231>>n>`=GGK WINDOWS _1U0126IC51413778231>==FFUE4; WINDOWS _1U0126IC51413778231=EE7E E0DC9 WINDOWS _1U0126IC51413777740CCvCJCuB WINDOWS _6990ZGBNH1413777740eBUBHBBRA COMMENT RESERVED @tVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11xls_importacionesformularios.vcxformXls_importaciones12 2DataSession = 1 Height = 589 Width = 756 DoCreate = .T. Caption = "Importacion del plan de cuentas" WindowState = 0 xbie = ('') xbul = ('') xatr = ('') fld_generales = .T. fld_varios = .T. xcodigo = ("") fld_entregas = .T. otabla = .F. xtabla = Cuentas suspender = .T. Name = "Xls_importaciones12" Command1.Top = 556 Command1.Left = 311 Command1.Anchor = 260 Command1.Name = "Command1" Command2.Top = 556 Command2.Left = 383 Command2.Anchor = 260 Command2.Name = "Command2" ayuda.Name = "ayuda" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Pageframe1.ErasePage = .T. Pageframe1.PageCount = 2 Pageframe1.Page1.Grilla1.Name = "Grilla1" Pageframe1.Page1.Label1.Name = "Label1" Pageframe1.Page1.opciones.Text1.Name = "Text1" Pageframe1.Page1.opciones.Label2.Name = "Label2" Pageframe1.Page1.opciones.Command1.Name = "Command1" Pageframe1.Page1.opciones.Leer.Name = "Leer" Pageframe1.Page1.opciones.Command2.Name = "Command2" Pageframe1.Page1.opciones.Name = "opciones" Pageframe1.Page1.Botones.Leer.Top = 7 Pageframe1.Page1.Botones.Leer.Left = 237 Pageframe1.Page1.Botones.Leer.Anchor = 2 Pageframe1.Page1.Botones.Leer.Name = "Leer" Pageframe1.Page1.Botones.Command2.Top = 7 Pageframe1.Page1.Botones.Command2.Name = "Command2" Pageframe1.Page1.Botones.Optiongroup1.Option1.Left = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Name = "Option1" Pageframe1.Page1.Botones.Optiongroup1.Option2.Left = 72 Pageframe1.Page1.Botones.Optiongroup1.Option2.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option2.Name = "Option2" Pageframe1.Page1.Botones.Optiongroup1.Left = 603 Pageframe1.Page1.Botones.Optiongroup1.Top = 1 Pageframe1.Page1.Botones.Optiongroup1.Name = "Optiongroup1" Pageframe1.Page1.Botones.Exportar.Top = 7 Pageframe1.Page1.Botones.Exportar.Left = 338 Pageframe1.Page1.Botones.Exportar.Visible = .T. Pageframe1.Page1.Botones.Exportar.Name = "Exportar" Pageframe1.Page1.Botones.suspender.Top = 11 Pageframe1.Page1.Botones.suspender.Left = 90 Pageframe1.Page1.Botones.suspender.Anchor = 2 Pageframe1.Page1.Botones.suspender.AutoSize = .T. Pageframe1.Page1.Botones.suspender.Alignment = 0 Pageframe1.Page1.Botones.suspender.Name = "suspender" Pageframe1.Page1.Botones.Name = "Botones" Pageframe1.Page1.Name = "Page1" Pageframe1.Page2.Caption = "Opciones" Pageframe1.Page2.Name = "Page2" Pageframe1.Top = 24 Pageframe1.Left = 0 Pageframe1.Name = "Pageframe1" tmFiltro.Name = "tmFiltro" tmInicial.Name = "tmInicial" GF.sql_alias = TMPIMPDBF GF.Name = "GF" Imp_xls.Top = 553 Imp_xls.Left = 46 Imp_xls.val_art_descr = Descr Imp_xls.usar_celdas = .T. Imp_xls.usar_columnas_fijas_celdas = .F. Imp_xls.val_art_atr = ('.f.') Imp_xls.val_art_bul = ('.f.') Imp_xls.val_art_cod_ins = cod_cue Imp_xls.val_art_codalt = Imp_xls.val_column = (0) Imp_xls.Name = "Imp_xls" Exportaciones1.exportaciones_parametros.Name = "exportaciones_parametros" Exportaciones1.Top = 552 Exportaciones1.Left = 93 Exportaciones1.Name = "Exportaciones1" *PROCEDURE datos_agregar local xalias, xCodigo xalias=thisform.gf.sql_alias =sys_mostrar_screen("Agregar", .t.) SELECT (xalias) scan for valido AND NOT ImpExiste INSERT INTO cuentas (cod_cue,Atributo) VALUES (EVALUATE(xAlias+".cod_cue"),REPLICATE("N",200)) SELECT (xalias) endscan ENDPROC PROCEDURE datos_modificar ** ocs.col_reemplazar(xColumna, xCampo, xValor, xTabla, xTrim) =sys_mostrar_screen("Modificar", .t.) DO user_log WITH pub_index, 6, "", "", "Iniciando importacin" , "bie_xls_actualizar_datos.scx" LOCAL ocs AS grilla_formato_colsel OF form_controles.vcx ocs=THISFORM.pageframe1.page2.gf_colsel LOCAL xalias xalias=THISFORM.gf.sql_alias SELECT &xalias SCAN FOR valido SELECT &xalias SCATTER NAME oimp MEMO IF NOT Thisform.oTabla.ID_Buscarse_Alias("oImp") THEN REPLACE valido WITH .F. IN (xalias ) LOOP ENDIF ocs.col_reemplazar("Abrev",, "oImp.", "Cuentas") ocs.col_reemplazar("Descr","Descr", "oImp.Descr_N", "Cuentas") ocs.col_reemplazar("IVAPer",, "oImp.", "Cuentas") ocs.col_reemplazar("Atributo",, "oImp.", "Cuentas") *!* IF thisform.pageframe1.page2.ckImputables.value OR thisform.pageframe1.page2.CkIVA.value AND oImp.Terminal THEN *!* replace IVAPer WITH -1 IN Cuentas *!* replace Atributo WITH STUFF(Atributo,3,1,"S") IN cuentas *!* replace Atributo WITH STUFF(Atributo,62,1,"S") IN cuentas *!* ENDIF IF thisform.pageframe1.page2.ckImputables.value AND oImp.Terminal THEN replace Atributo WITH STUFF(Atributo,3,1,"S") IN cuentas replace Atributo WITH STUFF(Atributo,62,1,"S") IN cuentas ENDIF IF thisform.pageframe1.page2.CkIVA.value AND oImp.Terminal THEN replace IVAPer WITH -1 IN Cuentas ENDIF ENDSCAN DO crear_atributos IN ft05 WITH , .t. ENDPROC PROCEDURE actualizar_lista LPARAMETERS oCS AS grilla_formato_colsel OF form_controles.vcx, oImp, xLista =Sys_m("Suspendo") ENDPROC PROCEDURE procesar_aceptar IF thisform.pageframe1.page2.ckAgregar.Value THEN thisform.Datos_agregar ENDIF IF thisform.pageframe1.page2.ckModificar.Value THEN thisform.Datos_modificar ENDIF ENDPROC PROCEDURE abrir_archivos IF NOT USED("cuentas") THEN USE cuentas IN 0 ENDIF ENDPROC PROCEDURE sql_refresh THISFORM.GF.SQL_crear_columnas () **=sys_mostrar_screen("SQL",.t.) RETURN DODEFAULT() ENDPROC PROCEDURE xls_importar *=sys_mostrar_screen("importar", .t.) dodefault() ENDPROC PROCEDURE Pageframe1.Page1.opciones.Leer.Click LOCAL xRet xRet=DODEFAULT() this.Enabled=.t. RETURN xRet ENDPROC PROCEDURE GF.sql_crear_columnas *** ESTO ES LO QUE SE MUESTRA EN LA GRILLA, NO IMPORTA SI SE IMPORTA O NO *THIS.for_add_columna() LOCAL oCS AS grilla_formato_colsel OF form_controles.vcx oCS=THISFORM.pageframe1.page2.gF_ColSel THIS.for_add_columna() oCS.for_add_columna(THIS,,,"accion",".Accion",,60) IF THISFORM.pageframe1.page2.ckImputables.VALUE OR THISFORM.pageframe1.page2.CkIVA.VALUE THEN oCS.for_add_columna(THIS,,,,"Terminal_T","T",20) ENDIF oCS.for_add_columna(THIS,,,,"Cod_cue","Cod_cue",80) oCS.for_add_columna(THIS,,,"Abrev",".Abrev","Abreviatura",60) *oCS.for_add_columna(THIS, "Descr",,,".Descr","Descr",100) oCS.for_add_columna(THIS, "Descr",,,".Descr","Descripcin",300) oCS.for_add_columna(THIS, "Descr",,,".Descr_N","Nueva",300) oCS.for_add_columna(THIS, "Descr",.T.,,".Descr","Descripcin",300) *** Esto es para pasar info como resultado de las evaluaciones oCS.for_add_columna(THIS, ,,,".Mensaje",,180) ENDPROC PROCEDURE Imp_xls.pre_validar =sys_m("Pre_validar") select (this.ldbf_alias) x1=0 x2=0 x3=0 x4=0 x5=0 xn=0 && Nivel en curso xb="" && Base scan do case case nivel>xn * Subo de Nivel, reseteo xn=xn+1 xvar="x"+alltrim(str(xn)) &xvar=1 case nivel=xn * Mismo de Nivel xvar="x"+alltrim(str(xn)) &xvar=&xvar+1 case nivel1 REPLACE Valido WITH .F., ; Mensaje WITH RTRIM(Mensaje) + " Abreviatura repetida en excel" ; FOR abrev=TMPABREV.abrev IN (THIS.ldbf_alias) ENDSCAN ENDIF SELECT Cod_Cue, COUNT(Cod_Cue) AS cuenta FROM (THIS.ldbf_alias) LB GROUP BY abrev INTO CURSOR TMPCod_Cue SCAN FOR cuenta>1 REPLACE Valido WITH .F., ; Mensaje WITH RTRIM(Mensaje) + " Cdigo de cuenta repetido en excel" ; FOR Cod_Cue=TMPCod_Cue.Cod_Cue IN (THIS.ldbf_alias) ENDSCAN ENDPROC PROCEDURE Imp_xls.validar_datos SET PROCEDURE TO co_funciones ADDITIVE RETURN DODEFAULT() ENDPROC 6":%U)TCUTHISFORM FLD_GENERALESTHISVALUEPARENT GF_COLSELCOL_RECARGAR_COLUMNASInteractiveChange01111s)"tt%UTUTHISPARENTCKMODIFICAR_VACIOENABLEDVALUETUTHISPARENTCKMODIFICAR_VACIOENABLEDVALUEProgrammaticChange0InteractiveChange121Ow)tAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Datos a modificar" Height = 17 Left = 11 Top = 145 Width = 102 Name = "Label1" $Xls_importaciones12.Pageframe1.Page2 ckModificarcheckboxcheckboxOPROCEDURE Click This.Parent.exportar.Click("Accion='Agregar'") ENDPROC $Xls_importaciones12.Pageframe1.Page2$Xls_importaciones12.Pageframe1.Page2 ckAgregarcheckboxcheckboxcheckbox,Xls_importaciones12.Pageframe1.Page1.BotonesuTop = 7 Left = 513 Height = 25 Width = 85 Anchor = 8 Caption = "Exp. Nuevos" Enabled = .F. Name = "btNuevos"  container GF_ColSelLabel1form_controles.vcxlabel|xbie xbul xatr fld_generales fld_varios xcodigo fld_entregas *datos_agregar *datos_modificar *actualizar_lista  commandbutton commandbuttonbtNuevosgrilla_formato_colsellabelArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 Top = 102 Left = 445 Height = 17 Width = 252 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Marcar las cuentas terminales con IVA -1" Value = .F. Name = "ckIVA" $Xls_importaciones12.Pageframe1.Page2ckIVAcheckboxcheckboxTop = 83 Left = 444 Height = 17 Width = 293 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Marcar las cuentas terminales como imputables" Value = .F. Name = "ckImputables" $Xls_importaciones12.Pageframe1.Page2 ckImputablescheckboxcheckbox~PROCEDURE InteractiveChange thisform.fld_generales = this.Value this.Parent.gF_ColSel.col_recargar_columnas () ENDPROC Top = 216 Left = 573 Height = 17 Width = 112 FontBold = .T. Anchor = 8 AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Datos Generales" ControlSource = "thisform.FLD_Generales" Name = "Check1" $Xls_importaciones12.Pageframe1.Page2Check1checkboxPROCEDURE ProgrammaticChange this.Parent.ckModificar_Vacio.Enabled=this.value ENDPROC PROCEDURE InteractiveChange this.Parent.ckModificar_Vacio.Enabled=this.value ENDPROC Top = 83 Left = 11 Height = 17 Width = 303 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Modificar los existentes con los datos ingresados." Value = .T. Name = "ckModificar" $Xls_importaciones12.Pageframe1.Page2PROCEDURE ProgrammaticChange *this.Parent.Cod_desc_cli1.Enabled=this.value ENDPROC PROCEDURE InteractiveChange *this.Parent.cod_desc_dep1.Enabled=this.value ENDPROC Top = 8 Left = 11 Height = 16 Width = 168 FontBold = .T. Alignment = 0 BackStyle = 0 Caption = "Agregar cuentas nuevas" Value = .F. Name = "ckAgregar" PROCEDURE col_recargar_columnas THIS.gf.for_add_columna() *!* Cod_Cue *!* Abrev *!* Descr *!* IVAPer *!* Atributo IF THISFORM.fld_Generales THIS.gf.for_add_columna(,".Abrev","Abreviatura",190,,,,,,.T.,,,,,,,,,,,"Bsicos") THIS.gf.for_add_columna(,".Descr","Descripcion",190,,,,,,.T.,,,,,,,,,,,"Bsicos") THIS.gf.for_add_columna(,".IVAPer","IVA",190,,,,,,.f.,,,,,,,,,,,"Bsicos") * THIS.gf.for_add_columna(,".Atributo","Atributo",190,,,,,,.f.,,,,,,,,,,,"Bsicos") endif THIS.sql_refresh () ENDPROC XAnchor = 15 Top = 164 Left = 10 Width = 553 Height = 312 grupos_mostrar = .T. Name = "GF_ColSel" LV.Top = 55 LV.Left = 0 LV.Height = 282 LV.Width = 541 LV.Name = "LV" GF.Name = "GF" Command1.Top = 0 Command1.Left = 0 Command1.Name = "Command1" Command2.Name = "Command2" Command3.Name = "Command3" Command4.Name = "Command4" "-%F}UUUProgrammaticChange0InteractiveChange;132Lt) "%w UC%EC.Abrev AbreviaturaaBsicosEC.Descr DescripcionaBsicos>C.IVAPerIVA-Bsicos CUTHISGFFOR_ADD_COLUMNATHISFORM FLD_GENERALES SQL_REFRESHcol_recargar_columnas01)QQC2!)"5%U)&CAccion='Agregar'UTHISPARENTEXPORTARCLICKClick01a3D)#"##n%" U TCAgregara F~ :rcuentas C.cod_cueCNQ FU XALIASXCODIGOTHISFORMGF SQL_ALIASSYS_MOSTRAR_SCREENVALIDO IMPEXISTECOD_CUEATRIBUTOC ModificaraZIniciando importacinbie_xls_actualizar_datos.scx6QGRILLA_FORMATO_COLSELform_controles.vcxT  T  SELECT &xalias ~ SELECT &xalias ^J%CoImp H>  -.(CAbrevoImp.Cuentas6CDescrDescr oImp.Descr_NCuentas)CIVAPeroImp.Cuentas+CAtributooImp.Cuentas%% ]>CS[>C>S[%% >ft05aUSYS_MOSTRAR_SCREENUSER_LOG PUB_INDEXOCSFORM_CONTROLESVCXTHISFORM PAGEFRAME1PAGE2 GF_COLSELXALIASGF SQL_ALIASVALIDOOIMPOTABLAID_BUSCARSE_ALIASINCOL_REEMPLAZAR CKIMPUTABLESVALUETERMINALATRIBUTOCUENTASCKIVAIVAPERCREAR_ATRIBUTOSFT05V>QGRILLA_FORMATO_COLSELform_controles.vcxCSuspendoUOCSFORM_CONTROLESVCXOIMPXLISTASYS_MU%% %N UTHISFORM PAGEFRAME1PAGE2 CKAGREGARVALUE DATOS_AGREGAR CKMODIFICARDATOS_MODIFICAR3%Ccuentas ,QcuentasUCUENTASC BCUTHISFORMGFSQL_CREAR_COLUMNAS CU. TCTa BUXRETTHISENABLED6QGRILLA_FORMATO_COLSELform_controles.vcxT C*Caccion.Accion<.%  (C Terminal_TT+CCod_cueCod_cueP5CAbrev.Abrev Abreviatura<6CDescr.Descr Descripcin,2CDescr.Descr_NNueva,6CDescra.Descr Descripcin,#C.MensajeU OCSFORM_CONTROLESVCXTHISFORM PAGEFRAME1PAGE2 GF_COLSELTHISFOR_ADD_COLUMNA CKIMPUTABLESVALUECKIVAlC Pre_validar F T T T T T T T  ~(H TT xCCZ &xvar=1  T xCCZ&xvar=&xvar+1   T xCCZ &xvar=0 T  (T xCC Z &xvar=0 T xCCZ&xvar=&xvar+1 `> CCZC00CCZRC00CCZRC00CCZRC00CCZR T T  ~#TC =TC \TC \TC \TC \H9 Cg T Cg TCCgZ 29TCCg CA HN Cgp T Cg TCCgZ 2TCCg CA !TCCg6!TCCg6>$%CDescre>CfUSYS_MTHIS LDBF_ALIASX1X2X3X4X5XNXBNIVELXVARZCOD_CUEABREVTHISFORM PAGEFRAME1PAGE2 GF_COLSEL COL_SELECTEDDESCR_NALL,  CBCUXXLSXDBFTHISCREAR_COLUMNAS$ C BCUXXLSTHISCREAR_COLUMNAS6QGRILLA_FORMATO_COLSELform_controles.vcxT C C ,CNivelNivelN(1) %CAbrevC(9) 6CDescrDescrDescr_NC(60) (CIVAPerN(6,2) *CAtributoC(150) %CAbrevaC(9) 0CCuentacod_cueC (9) -CDescraDescrC(60) 8CDescr Descr_OldDescrC(60) =CTerminal-TerminalTerminalL (1) CC Terminal_T- Terminal_T Terminal_TC (1) <C IMPExiste- IMPExiste IMPExisteL CC IMPExisteT- IMPExisteT IMPExisteTC (3) ?CAccionCX QAccionAccionC(10) ?CMensajeXXMensajeMensajeC(200) 3CValido-ValidoValidoL U OCSFORM_CONTROLESVCXTHISFORM PAGEFRAME1PAGE2 GF_COLSELTHISAGREGAR_COLUMNAAGREGAR_COLUMNA_VACIAIMP_AGREGAR_COLUMNAIMP_AGREGAR_COLUMNA_VACIAT T T a Ta TT C CValidar%C \T CT SELECT &xAlias %CTT >a>SI> Modificar T CTC Modificar no habilitado6 X >->NO>AgregarT a T! ATC! Agregar no habilitado6  >->NO>AgregarT a T! ATC! Agregar no habilitado6SELECT &xAlias " ^J"J#QGRILLA_FORMATO_COLSELform_controles.vcx&'()*T#+%C", 0T Nivel CC",Z invlido T-%CAbrev#-%C"L#T Abreviatura vaca T- 4%C"CuentasAbrev   4T Abreviatura repetida ( ) T-%CAbrev#- %%CAbrev#- !>1% 000000000 C  %o  tmpPExiste%  T-7T No existe la cuenta padre ( ) .%01 2F (2'oC tmpPADDT22 5>425C2T6SELECT &xAlias >6 BU7XCODXBULXATRXDESCRXALIASXMSGXOKXABREVTHIS LDBF_ALIASXVALIDO XCUENTAPADREFN_PADRECOD_CUESYS_MTHISFORMOTABLAID_BUSCARSE_CODIGO ID_EVALUADOCUENTASDESCRABREV IMPEXISTE IMPEXISTETACCION PAGEFRAME1PAGE2 CKMODIFICARVALUEPAGE1BOTONESBTNUEVOSENABLED CKAGREGAROVALDATOOCSFORM_CONTROLESVCXXPROVLETXPAISCODXRESP XPROVDESCRXPROVVAL GF_COLSELNIVEL COL_SELECTEDIN TMPPEXISTE CKIMPUTABLESCKIVAXCOUTMPPADDTERMINAL TERMINAL_TMENSAJEp$%CAbrev7oQ CQTMPABREV~P> - C V Abreviatura repetida en excel 9oQ CQ TMPCod_Cue~iU> - C V# Cdigo de cuenta repetido en excelUTHISFORM PAGEFRAME1PAGE2 GF_COLSEL COL_SELECTEDABREVCUENTATHIS LDBF_ALIASLBTMPABREVVALIDOMENSAJEFORCOD_CUE TMPCOD_CUE"G+( co_funciones BCU CO_FUNCIONES datos_agregar0datos_modificar<actualizar_listaprocesar_aceptarabrir_archivos[ sql_refresh xls_importar$Pageframe1.Page1.opciones.Leer.ClickGF.sql_crear_columnasDImp_xls.pre_validar Imp_xls.importarImp_xls.crear_plantilla%Imp_xls.crear_columnasmImp_xls.validar_articuloImp_xls.pos_validarImp_xls.validar_datos11RA4rbaq1!!!AAaXAR!ABr2Q2AA31A622q2daARd!a531b2c2caAbBB#QQQQQQAAQQAABJA22q2daRaS111411!A!!a1AAAA#qaAA1AAAAAAAAQ!qAAqq!rSA!3AqAAAASA3a1) O&|<)S@0xI40 S7S X9  ^>- eL "P6l''*uG**)#0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6BH0M99D11419334370/F] WINDOWS _6BH0M99D21495097372 ./ WINDOWS _6BH0M99D41495096531 WINDOWS _6BH0M99D51495096531*?Td U WINDOWS _6BH0M99D11495096531@Ujz& 3" WINDOWS _6BH0M99D11495096531$%%*%N%% ( WINDOWS _6BL15CE7M1464629971*+)+7+A+e++,- WINDOWS _6BH0M99D114950966234/I/^/n//o0v2 WINDOWS _6ZE0MSQKE1495096531545I5Y5}5"6`6 WINDOWS _6BL15CE7L1495097372E7S7m7y777 COMMENT RESERVED I88VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_wizard_acep_canc1Height = 430 Width = 615 DoCreate = .T. Caption = "Modelos de exportacin a Excel" id_formulario = ("") cod_plantilla = 0 opar_original = .F. modo_seleccion = .F. opar_coll = .F. Name = "Formulario_wizard_acep_canc1" Command1.Top = 372 Command1.Left = 229 Command1.Height = 54 Command1.Width = 84 Command1.Anchor = 260 Command1.Picture = bmp\excel.ico Command1.Caption = "Seleccionar" Command1.Visible = .F. Command1.ZOrderSet = 0 Command1.Name = "Command1" Command2.Top = 372 Command2.Left = 325 Command2.Height = 54 Command2.Width = 60 Command2.Anchor = 260 Command2.Picture = bmp\remove2.gif Command2.Cancel = .T. Command2.Caption = "Cancelar" Command2.ZOrderSet = 1 Command2.Name = "Command2" AYUDA.ZOrderSet = 2 AYUDA.Name = "AYUDA" Text1.ZOrderSet = 3 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.ZOrderSet = 4 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.ZOrderSet = 5 advertencia.Name = "advertencia" PROCEDURE cargar_plantillas LOCAL oNod IF USED(thisform.gf.sql_alias ) THEN USE IN (thisform.gf.sql_alias ) ENDIF *=sys_m("iniciar") SELECT * FROM plantillas_xls WHERE id_form=thisform.id_formulario INTO CURSOR (thisform.gf.sql_alias ) READWRITE APPEND BLANK REPLACE idu WITH SYS(2015), id_form WITH "_", nombre WITH "Todos los campos" Thisform.gf.sql_crear_columnas () Thisform.gf.sql_refresh (thisform.griLLA) ENDPROC PROCEDURE cod_plantilla_access *To do: Modify this routine for the Access method RETURN EVALUATE(thisform.gf.sql_alias +".codigo") ENDPROC PROCEDURE procesar_aceptar xCod_Plantilla = EVALUATE(thisform.gf.sql_alias+".Codigo" ) thisform.QueryUnload ENDPROC PROCEDURE procesar_cancelar xCod_Plantilla = 0 Thisform.QueryUnload ENDPROC PROCEDURE Init LPARAMETERS xID_Formulario, oPar_Original, xModoSeleccion, oPar_Coll DODEFAULT() THISFORM.id_formulario = xID_Formulario THISFORM.oPar_Original = oPar_Original THISFORM.oPar_Coll = oPar_Coll *=sys_m("Sel") THISFORM.CAPTION = THISFORM.CAPTION +IIF(p_dev, " ID: " +xID_Formulario,"") THISFORM.gf.SQL_alias = oDeyFunc.NewAlias() THISFORM.Modo_Seleccion = xModoSeleccion IF xModoSeleccion THEN THISFORM.grilla.Anchor=0 THISFORM.grilla.Height=THISFORM.grilla.Height + thisform.grilla.Top - (thisform.text1.Top + thisform.text1.Height ) THISFORM.grilla.Top= (thisform.text1.Top + thisform.text1.Height ) THISFORM.grilla.anchor=15 THISFORM.btAgregar.VISIBLE = .F. THISFORM.bteditar.VISIBLE = .F. THISFORM.btBorrar.VISIBLE = .F. THISFORM.btmodelo.VISIBLE = .F. THISFORM.btclonar.VISIBLE = .F. THISFORM.btCerrar.VISIBLE = .F. THISFORM.command2.Visible=.t. THISFORM.command1.VISIBLE=.T. ELSE THISFORM.btCerrar.VISIBLE = .T. THISFORM.command2.Visible=.F. THISFORM.command1.VISIBLE=.F. ENDIF THISFORM.cargar_plantillas ENDPROC PROCEDURE QueryUnload thisform.gf.queryUnload () ENDPROC "kk%1pU%C/Q3oplantillas_xls5>C]_Todos los camposC C  U ONODTHISFORMGF SQL_ALIASPLANTILLAS_XLSID_FORM ID_FORMULARIOIDUNOMBRESQL_CREAR_COLUMNAS SQL_REFRESHGRILLABC.codigoUTHISFORMGF SQL_ALIAS- TC.Codigo UXCOD_PLANTILLATHISFORMGF SQL_ALIAS QUERYUNLOAD T UXCOD_PLANTILLATHISFORM QUERYUNLOAD CTTT.TC ID: 6T C T %T 8T   $T T T-T-T-T-T-T-TaTa TaT-T- UXID_FORMULARIO OPAR_ORIGINALXMODOSELECCION OPAR_COLLTHISFORM ID_FORMULARIOCAPTIONP_DEVGF SQL_ALIASODEYFUNCNEWALIASMODO_SELECCIONGRILLAANCHORHEIGHTTOPTEXT1 BTAGREGARVISIBLEBTEDITARBTBORRARBTMODELOBTCLONARBTCERRARCOMMAND2COMMAND1CARGAR_PLANTILLASCUTHISFORMGF QUERYUNLOADcargar_plantillas0cod_plantilla_access~procesar_aceptarprocesar_cancelar)Initr QueryUnload1qqA2RQa23221r1A1A31 > e#F/h>)kid_formulario cod_plantilla opar_original modo_seleccion opar_coll *cargar_plantilla *cargar_plantillas *cod_plantilla_access  commandbutton commandbutton btAgregarFormulario_wizard_acep_canc1{Top = 0 Left = 2 Height = 54 Width = 54 Picture = bmp\mas.ico Caption = "Agregar" ZOrderSet = 6 Name = "btAgregar" \PROCEDURE Click LOCAL xRes LOCAL oPar AS exportaciones_parametros OF imp_exp.vcx oPar=NEWOBJECT("exportaciones_parametros","imp_exp.vcx") oPar.clonarse(THISFORM.opar_original ) DO FORM sys_editar_reportes_excel WITH oPar, THISFORM.opar_original TO xRes IF xRes THEN oPar.plantilla_guardar() THISFORM.cargar_plantillas ENDIF ENDPROC "% U2QEXPORTACIONES_PARAMETROS imp_exp.vcx6TCexportaciones_parametros imp_exp.vcxC0sys_editar_reportes_excel(% C  U XRESOPARIMP_EXPVCXCLONARSETHISFORM OPAR_ORIGINALSYS_EDITAR_REPORTES_EXCELPLANTILLA_GUARDARCARGAR_PLANTILLASClick01q!a1A2Q) commandbutton commandbuttonbtBorrarFormulario_wizard_acep_canc1}Top = 0 Left = 108 Height = 54 Width = 54 Picture = bmp\menos.ico Caption = "Borrar" ZOrderSet = 7 Name = "btBorrar" @PROCEDURE Click IF thisform.cod_plantilla = 0 THEN =MEnsaje("Debe seleccionar un modelo antes de poder clonarlo!!!") RETURN .f. ENDIF IF mensaje_sino("Est seguro de borrar la plantilla??",2) THEN DELETE FOR codigo=thisform.cod_plantilla IN plantillas_xls =thisform.cargar_plantillas() ENDIF ENDPROC "c"%^ mU%_BC5Debe seleccionar un modelo antes de poder clonarlo!!!B-:%C$Est seguro de borrar la plantilla?? CUTHISFORM COD_PLANTILLAMENSAJE MENSAJE_SINOFORCODIGOPLANTILLAS_XLSCARGAR_PLANTILLASClick01a!qAQA25) commandbutton commandbuttonbtEditarFormulario_wizard_acep_canc1Top = 0 Left = 55 Height = 54 Width = 54 Picture = bmp\edit_azul.ico Caption = "Editar" ZOrderSet = 8 Name = "btEditar" PROCEDURE Click IF thisform.cod_plantilla = 0 THEN =MEnsaje("Debe seleccionar un modelo antes de poder editarlo!!!") RETURN .f. ENDIF LOCAL oPar as exportaciones_parametros of imp_exp.vcx opar=NEWOBJECT("exportaciones_parametros","imp_exp.vcx") oPar.plantilla_leer (thisform.cod_plantilla) DO FORM sys_editar_reportes_excel WITH oPar, thisform.opar_original TO xRes NAME oPLAEditar IF xRes THEN oPar.plantilla_guardar(thisform.cod_plantilla) thisform.cargar_plantillas () ENDIF ENDPROC "W%(S7UH%_BC5Debe seleccionar un modelo antes de poder editarlo!!!B-2QEXPORTACIONES_PARAMETROS imp_exp.vcx6TCexportaciones_parametros imp_exp.vcxC4sys_editar_reportes_excelJ ( % AC C U THISFORM COD_PLANTILLAMENSAJEOPARIMP_EXPVCXPLANTILLA_LEERSYS_EDITAR_REPORTES_EXCEL OPAR_ORIGINALXRES OPLAEDITARPLANTILLA_GUARDARCARGAR_PLANTILLASClick01a!qA"a2B1A1) commandbutton commandbuttonbtClonarFormulario_wizard_acep_canc1Top = 0 Left = 204 Height = 54 Width = 54 Picture = bmp\copy_azul.ico Caption = "Clonar" ZOrderSet = 9 Name = "btClonar" *PROCEDURE Click IF thisform.cod_plantilla = 0 THEN =MEnsaje("Debe seleccionar un modelo antes de poder clonarlo!!!") RETURN .f. ENDIF LOCAL oPar as exportaciones_parametros of imp_exp.vcx opar=NEWOBJECT("exportaciones_parametros","imp_exp.vcx") oPar.plantilla_leer (thisform.cod_plantilla) oPar.Plan_codigo =0 oPar.plantilla_idu=SYS(2015) DO FORM sys_editar_reportes_excel WITH oPar, thisform.opar_original TO xRes IF xRes THEN oPar.plantilla_guardar(thisform.cod_plantilla) thisform.cargar_plantillas () ENDIF ENDPROC "%WfUg%_BC5Debe seleccionar un modelo antes de poder clonarlo!!!B-2QEXPORTACIONES_PARAMETROS imp_exp.vcx6TCexportaciones_parametros imp_exp.vcxCTTC]0sys_editar_reportes_excel(  % `C C UTHISFORM COD_PLANTILLAMENSAJEOPARIMP_EXPVCXPLANTILLA_LEER PLAN_CODIGO PLANTILLA_IDUSYS_EDITAR_REPORTES_EXCEL OPAR_ORIGINALXRESPLANTILLA_GUARDARCARGAR_PLANTILLASClick01a!qA"a211A3)grilla_formatoform_controles.vcxcustomGFFormulario_wizard_acep_canc1PTop = 372 Left = 0 sql_noclose = .T. sql_cerrar_al_salir = .T. Name = "GF" gPROCEDURE evn_field_dblclick LPARAMETERS xCol IF thisform.modo_seleccion THEN thisform.Command1.Click ENDIF ENDPROC PROCEDURE sql_crear_columnas this.for_add_columna() this.for_add_columna(,".Codigo",,,,,,,,,,,.t.,,,,,,,.t.) this.for_add_columna (,".Nombre",,270) this.for_add_columna (,".Fecha","Ult. Mod.",,,,,,,,,,.t.,,,,,,,.t.) ENDPROC "%@ xU-%& UXCOLTHISFORMMODO_SELECCIONCOMMAND1CLICK C*C.CodigoaaC.Nombre4C.Fecha Ult. Mod.aaUTHISFOR_ADD_COLUMNAevn_field_dblclick0sql_crear_columnas1q!A2A2r\) commandbutton commandbuttonbtModeloFormulario_wizard_acep_canc1Top = 0 Left = 551 Height = 54 Width = 60 Anchor = 8 Picture = bmp\excel.ico Caption = "Ver" ToolTipText = "Ejecutar la exportacin con el modelo de datos seleccionado." ZOrderSet = 11 Name = "btModelo" PROCEDURE Click =Sys_M("DD") IF thisform.cod_plantilla = 0 THEN LOCAL oExp as exportaciones OF imp_exp.vcx oExp=NEWOBJECT("Exportaciones","Imp_Exp.vcx") =oExp.Exportar_XLS(thisform.opar_original,1) ENDIF LOCAL oPar as exportaciones_parametros of imp_exp.vcx opar=NEWOBJECT("exportaciones_parametros","imp_exp.vcx") oPar.plantilla_leer (thisform.cod_plantilla) LOCAL oExp as exportaciones OF imp_exp.vcx oExp=NEWOBJECT("Exportaciones","Imp_Exp.vcx") =oExp.Exportar_XLS(oPar,1) ENDPROC "0%?#UuCDD%'Q EXPORTACIONES imp_exp.vcx+TC Exportaciones Imp_Exp.vcxC2QEXPORTACIONES_PARAMETROS imp_exp.vcx6TCexportaciones_parametros imp_exp.vcxC 'Q EXPORTACIONES imp_exp.vcx+TC Exportaciones Imp_Exp.vcxCU SYS_MTHISFORM COD_PLANTILLAOEXPIMP_EXPVCX EXPORTAR_XLS OPAR_ORIGINALOPARPLANTILLA_LEERClick01aqaA"a2rA1) commandbutton commandbuttonbtCerrarFormulario_wizard_acep_canc1Top = 372 Left = 277 Height = 54 Width = 60 FontBold = .T. Anchor = 8 Picture = bmp\salir2.ico Caption = "Cerrar" ZOrderSet = 12 Name = "btCerrar" 6PROCEDURE Click thisform.command2.Click () ENDPROC "ħ%f{uUCUTHISFORMCOMMAND2CLICKClick011+)grillaform_controles.vcxgridGrillaFormulario_wizard_acep_canc1Anchor = 15 AllowAddNew = .F. Height = 312 Left = 3 RecordMark = .F. Top = 60 Width = 610 HighlightStyle = 2 ZOrderSet = 13 Name = "Grilla" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6BD114SAH1419086447/F] WINDOWS _6BD114SAI1468433744 .Q WINDOWS _6BD114SAH1419644347xWM WINDOWS _6BH0WYHKN1419603996ao J WINDOWS _6BI0W0WM01419624309S%a%o%~%% WINDOWS _6BI0W0WM11419409167&&&&& WINDOWS _6BI0W0WM21419409167L'Z'h'w'' WINDOWS _6BI0W0WM31419409167''( (I( WINDOWS _6BI0W0WM41419409167(((() WINDOWS _6BI0W0WM51419409167@)O)^)k)) WINDOWS _6BD114SAH1419641048**8*F*Z*~**FH WINDOWS _6BH0YOQJ41419530594..//%/I/ WINDOWS _6BD114SAH1458347365//// 0 WINDOWS _6BI0SH2BE145834736500000 WINDOWS _6BI0W0WM6141960399611111}2"E WINDOWS _6BD114SAH1468433744$776s88TB WINDOWS _6BD114SAH1419604131H7.[.tQ64 WINDOWS _6BD114SAI1419604131Pk, WINDOWS _6BD114SAH1419603996E WINDOWS _6BD114SAH1458347365 WINDOWS _6BD114SAH1419603996%%z$7 WINDOWS _6BD114SAI1419492173...- WINDOWS _6BD114SAH1458347365]777<6=" WINDOWS _6BJ1026JN145834736577+< WINDOWS _6BJ1026JO141949217397 /O< WINDOWS _6BJ1026JP1458347365F%9%S/; WINDOWS _6BJ1026JR1458347365"\ WINDOWS _6BJ1026JS1419492173M>1 f WINDOWS _6BJ1026JQ1419492173WH; COMMENT RESERVED YVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_wizard_acep_canc1rBorderStyle = 2 Height = 721 Width = 1187 DoCreate = .T. Caption = "Edicin de reportes en XLS" opar_plantilla = .F. opar_original = .F. xalias = ("") Name = "Formulario_wizard_acep_canc1" Command1.Top = 688 Command1.Left = 264 Command1.Anchor = 164 Command1.ZOrderSet = 4 Command1.Name = "Command1" Command2.Top = 688 Command2.Left = 348 Command2.Anchor = 164 Command2.ZOrderSet = 5 Command2.Name = "Command2" AYUDA.ZOrderSet = 6 AYUDA.Name = "AYUDA" Text1.ZOrderSet = 7 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.ZOrderSet = 8 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE actualizar_grillas LOCAL oPar AS exportaciones_parametros OF imp_exp.vcx LOCAL oGF AS grilla_formato OF form_controles.vcx LOCAL oGrilla AS Grilla OF form_controles.vcx oGrilla=thisform.grilla_Original oPar=THISFORM.opar_original oGF = THISFORM.gf_Original oPar.do_aplicar_grilla_formato(oGF) oGF.sql_refresh(oGrilla) oGrilla.Columna_Actual=EVL(oGrilla.Columna_Actual,1) oGrilla.cambio_de_columna () oGrilla=thisform.grilla_Plantilla oPar=THISFORM.oPar_Plantilla oGF = THISFORM.gf_Plantilla oPar.do_aplicar_grilla_formato(oGF) oGF.sql_refresh(oGrilla) oGrilla.Columna_Actual=EVL(oGrilla.Columna_Actual,1) oGrilla.cambio_de_columna () Thisform.oc_Plantilla.mostrar_parametros(oPar) ENDPROC PROCEDURE limpiar_columnas =sys_m("Limpiar") Thisform.opar_plantilla.Columna_Eliminar(,.t.) thisform.LockScreen =.t. xHasta=THISFORM.GF_Plantilla.column_coll.Count FOR nIt=xHasta TO 1 STEP -1 THISFORM.GF_Plantilla.column_coll.REMOVE(nIt) NEXT THISFORM.GF_Plantilla.sql_refresh() thisform.LockScreen =.F. ENDPROC PROCEDURE reiniciar_plantilla =thisform.limpiar_columnas () *** Clono solo los campos thisform.opar_plantilla.clonarse(thisform.opar_original,, , .t.) =thisform.actualizar_grillas () ENDPROC PROCEDURE Init LPARAMETERS oPar_Plantilla as exportaciones_parametros of imp_exp.vcx, ; oPar_Original as exportaciones_parametros of imp_exp.vcx thisform.xAlias=oDeyFunc.newalias() USE (oDeyFunc.Get_path(5)+oPar_Plantilla.ex_archivo_entrada) ALIAS (thisform.xAlias) AGAIN IN 0 Thisform.GF_Original.sql_alias = thisform.xAlias Thisform.GF_Plantilla.sql_alias = thisform.xAlias thisform.oPar_Plantilla = oPar_Plantilla thisform.oPar_Original = oPar_Original thisform.actualizar_grillas () ENDPROC PROCEDURE QueryUnload thisform.oPar_Plantilla= .f. thisform.opar_original = .f. IF USED(thisform.xalias) THEN USE IN (thisform.xalias) ENDIF ENDPROC PROCEDURE Release thisform.QueryUnload () RETURN DODEFAULT() ENDPROC "%%q U6% C DB-TC#T C C U OCOLTHISCOLUMNATHISFORMGRILLA_PLANTILLA COLUMNCOUNTTYPEO OPARAMETROSCOLUMNSHEADER1CAPTION EX_XLS_CAMPOSAPLICAR_FORMATO_COLUMNAcolumna_cambiada01qaqA12p)"%dysU CUTHISFORMLIMPIAR_COLUMNASClick012/)Top = 350 Left = 586 Height = 54 Width = 60 Picture = bmp\excel.ico Caption = "Modelo" ZOrderSet = 14 Name = "Command5" Formulario_wizard_acep_canc1textboxText3 oC_PlantillaTop = 350 Left = 650 Height = 54 Width = 60 Picture = bmp\excel.ico Caption = "Original" ZOrderSet = 14 Name = "Command6" PROCEDURE Click LOCAL oExp as exportaciones OF imp_exp.vcx oExp=NEWOBJECT("Exportaciones","Imp_Exp.vcx") =oExp.Exportar_XLS(thisform.opar_original,1 ) ENDPROC textboxCommand5labellabelLabel30 AND This.ColumnCount >0 THEN oCol=thisform.GF_Plantilla.column_coll(THIS.columna_anterior) oCol.Columna.header1.BACKCOLOR = RGB(128,128,128) oCol.Columna.header1.ForeCOLOR = RGB(0,0,0) oCol.Columna.header1.FontBold=.f. oCol.Columna.header1.FontUnderline =.F. ENDIF IF THIS.columna_actual>0 AND This.ColumnCount >0 THEN oCol=thisform.GF_Plantilla.column_coll(THIS.columna_actual) oCol.Columna.header1.BACKCOLOR = RGB(196,255,196) oCol.Columna.header1.ForeCOLOR = RGB(255,128,128) oCol.Columna.header1.FontBold=.t. oCol.Columna.header1.FontUnderline =.t. thisform.oc_Plantilla.Texto_Ejemplo=This.valor_actual ENDIF thisform.oc_Plantilla.columna=THIS.columna_actual IF this.columna_actual>0 THEN thisform.oc_Plantilla.Texto_Ejemplo=This.valor_actual ENDIF ENDPROC PROCEDURE cambio_de_fila IF this.columna_actual>0 THEN thisform.oc_Plantilla.Texto_Ejemplo=This.valor_actual ENDIF ENDPROC "S%g|vU CUTHISFORMREINICIAR_PLANTILLAClick0111)Formulario_wizard_acep_canc1Formulario_wizard_acep_canc1Formulario_wizard_acep_canc1Label4 commandbutton commandbuttonFormulario_wizard_acep_canc1AutoSize = .T. FontBold = .T. Caption = "Nombre Modelo:" Height = 17 Left = 5 Top = 20 Width = 94 ZOrderSet = 15 Name = "Label3"  commandbuttonFormulario_wizard_acep_canc1Command6 commandbutton commandbutton commandbuttonFormulario_wizard_acep_canc1Text5textboxtextboxAutoSize = .T. FontBold = .T. Caption = "Obs" Height = 17 Left = 5 Top = 46 Width = 25 ZOrderSet = 22 Name = "Label6" Formulario_wizard_acep_canc1Label6labellabelFormulario_wizard_acep_canc1Label5grillaform_controles.vcxGrilla_OriginalFormulario_wizard_acep_canc1,ColumnCount = 3 Anchor = 10 AllowAddNew = .F. AllowHeaderSizing = .T. AllowRowSizing = .F. DeleteMark = .F. Height = 170 Left = 3 RecordMark = .T. Top = 177 Width = 1184 ZOrderSet = 3 Name = "Grilla_Original" Column1.Name = "Column1" Column2.Name = "Column2" Column3.Name = "Column3" PROCEDURE cambio_de_columna IF THIS.columna_anterior>0 THEN oCol=THIS.COLUMNS(THIS.columna_anterior) oCol.header1.BACKCOLOR = RGB(128,128,128) oCol.header1.ForeCOLOR = RGB(0,0,0) oCol.header1.FontBold=.f. oCol.header1.FontUnderline =.F. ENDIF IF THIS.columna_actual>0 THEN oCol=THIS.COLUMNS(THIS.columna_actual) oCol.header1.BACKCOLOR = RGB(196,255,196) oCol.header1.ForeCOLOR = RGB(255,196,196) oCol.header1.FontBold=.t. oCol.header1.FontUnderline =.t. ENDIF ENDPROC {PROCEDURE columna_cambiada LOCAL oCol IF THIS.Columna=0 OR THISFORM.grilla_Plantilla.COLUMNCOUNT<=0 OR NOT typeo(THIS.oparametros) THEN RETURN .F. ENDIF oCol=THISFORM.grilla_Plantilla.COLUMNS (THIS.Columna) oCol.Header1.CAPTION=THIS.oparametros.ex_xls_campos(THIS.Columna ,2) THIS.oparametros.Aplicar_Formato_Columna(THISFORM.grilla_Plantilla,THIS.Columna) ENDPROC Top = 350 Left = 362 Height = 54 Width = 54 Picture = bmp\ninguno.ico Caption = "Limpiar" ZOrderSet = 14 Name = "Command3" Command3Formulario_wizard_acep_canc1labellabelheaderheaderHeader14Formulario_wizard_acep_canc1.Grilla_Original.Column1FontBold = .F. FontItalic = .T. FontOutline = .T. FontShadow = .T. FontStrikethru = .F. FontUnderline = .T. FontCondense = .T. Caption = "Header1" ForeColor = 255,0,0 Name = "Header1" textboxtextboxText14Formulario_wizard_acep_canc1.Grilla_Original.Column1YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader14Formulario_wizard_acep_canc1.Grilla_Original.Column2'Caption = "Header1" Name = "Header1" textboxtextboxText14Formulario_wizard_acep_canc1.Grilla_Original.Column2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader14Formulario_wizard_acep_canc1.Grilla_Original.Column3'Caption = "Header1" Name = "Header1" textboxtextboxText14Formulario_wizard_acep_canc1.Grilla_Original.Column3YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" grilla_formatoform_controles.vcxcustom GF_PlantillaFormulario_wizard_acep_canc1mTop = 501 Left = 5 sql_noclose = .T. for_aplicar_formato = .T. for_autofit = .T. Name = "GF_Plantilla" pPROCEDURE evn_field_gotfocus LPARAMETERS xCol xValor=thisform.grilla_Plantilla.Valor_Actual ENDPROC PROCEDURE evn_column_moved LPARAMETERS oCol, xPosicion =sys_m("reordenar") this.for_columna_reordenar (oCol.tag, oCol.ColumnOrder) Thisform.oPar_Plantilla.ex_xls_campos_reordenar(oCol.tag, oCol.ColumnOrder) thisform.GF_Plantilla.Sql_refresh() ENDPROC Y"@@\%Uk'Q EXPORTACIONES imp_exp.vcx+TC Exportaciones Imp_Exp.vcxCUOEXPIMP_EXPVCX EXPORTAR_XLSTHISFORM OPAR_ORIGINALClick01qa1)@ControlSource = "Thisform.oPar_Plantilla.Plan_Nombre" Height = 25 Left = 107 Top = 20 Width = 469 ZOrderSet = 16 Name = "Text2" Formulario_wizard_acep_canc1Formulario_wizard_acep_canc1textbox commandbuttonText2grilla_formatoform_controles.vcxcustom GF_OriginalFormulario_wizard_acep_canc1lTop = 249 Left = 5 sql_noclose = .T. for_aplicar_formato = .T. for_autofit = .T. Name = "GF_Original" labellabelLabel1Formulario_wizard_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Campos disponibles" Height = 17 Left = 5 Top = 157 Width = 117 ZOrderSet = 11 Name = "Label1" labellabelLabel2Formulario_wizard_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Modelo" Height = 17 Left = 5 Top = 384 Width = 43 ZOrderSet = 12 Name = "Label2"  commandbutton commandbutton btAgregarFormulario_wizard_acep_canc1Top = 350 Left = 123 Height = 54 Width = 54 Picture = bmp\mas.ico Caption = "Agregar" ZOrderSet = 13 Name = "btAgregar" jPROCEDURE Click LOCAL oCol as grilla_formato_columna OF form_controles.vcx LOCAL oColN as grilla_formato_columna OF form_controles.vcx =sys_M("agregar") oCol=thisform.gF_Original.column_coll(thisform.grilla_Original.columna_actual ) oColN=NEWOBJECT("grilla_formato_columna","form_controles.vcx") oColN.Clonarse(oCol) thisform.gf_Plantilla.for_add_ocolumna (@oColN,.t.) LOCAL oPar as exportaciones_parametros OF imp_exp.vcx thisform.opar_plantilla.clonarse_campo (Thisform.opar_original,thisform.grilla_Original.columna_actual,,.t.,oColN.for_codigo) thisform.gf_Plantilla.sql_refresh() ENDPROC Z"AA%Uk'Q EXPORTACIONES imp_exp.vcx+TC Exportaciones Imp_Exp.vcxCUOEXPIMP_EXPVCX EXPORTAR_XLSTHISFORMOPAR_PLANTILLAClick01qa1)APROCEDURE Click LOCAL oExp as exportaciones OF imp_exp.vcx oExp=NEWOBJECT("Exportaciones","Imp_Exp.vcx") =oExp.Exportar_XLS(thisform.opar_plantilla,1 ) ENDPROC btBorrar commandbutton commandbuttontextbox commandbutton exportaciones_parametros_control imp_exp.vcx containerlabel:PROCEDURE Click =Thisform.Limpiar_Columnas() ENDPROC labelTop = 350 Left = 178 Height = 54 Width = 54 Picture = bmp\menos.ico Caption = "Quitar" ZOrderSet = 14 Name = "btBorrar" PROCEDURE Click LOCAL oCol IF THISFORM.grilla_Plantilla.columna_actual=0 THEN RETURN .F. ENDIF THISFORM.opar_plantilla.Columna_Eliminar(THISFORM.grilla_Plantilla.columna_actual ) oCol=THISFORM.GF_Plantilla.column_coll(THISFORM.grilla_Plantilla.columna_actual ) oCol.QUERYUNLOAD() THISFORM.GF_Plantilla.column_coll.REMOVE(THISFORM.grilla_Plantilla.columna_actual ) THISFORM.grilla_Plantilla.DELETECOLUMN ( THISFORM.grilla_Plantilla.columna_actual ) THISFORM.grilla_Plantilla.columna_actual=MIN(THISFORM.grilla_Plantilla.columna_actual,THISFORM.opar_plantilla.ex_xls_Campos_count ) THISFORM.grilla_Plantilla.columna_anterior =0 =THISFORM.grilla_Plantilla.cambio_de_columna () LOCAL oPar AS exportaciones_parametros OF imp_exp.vcx ENDPROC AutoSize = .T. FontBold = .T. Caption = "Nombre hoja;" Height = 17 Left = 5 Top = 122 Width = 77 ZOrderSet = 20 Name = "Label5" ControlSource = "Thisform.oPar_Plantilla.ex_titulo" Height = 25 Left = 107 Top = 96 Width = 469 ZOrderSet = 19 Name = "Text3" AutoSize = .T. FontBold = .T. Caption = "Ttulo:" Height = 17 Left = 5 Top = 96 Width = 36 ZOrderSet = 18 Name = "Label4" Anchor = 9 Top = 404 Left = 711 BackStyle = 0 SpecialEffect = 1 ZOrderSet = 17 Name = "oC_Plantilla" oformato.Combo1.Name = "Combo1" oformato.lbFuenteLabel.BackStyle = 0 oformato.lbFuenteLabel.Name = "lbFuenteLabel" oformato.btFuente.Name = "btFuente" oformato.lbFuente.BackStyle = 0 oformato.lbFuente.Name = "lbFuente" oformato.Label3.BackStyle = 0 oformato.Label3.Name = "Label3" oformato.txMuestra.Name = "txMuestra" oformato.btColor.Name = "btColor" oformato.Label1.BackStyle = 0 oformato.Label1.Name = "Label1" oformato.cbAlineacion.Name = "cbAlineacion" oformato.Label2.BackStyle = 0 oformato.Label2.Name = "Label2" oformato.btModificar.Name = "btModificar" oformato.btFondo.Name = "btFondo" oformato.ckCol_Hidden.Alignment = 0 oformato.ckCol_Hidden.Name = "ckCol_Hidden" oformato.Label4.BackStyle = 0 oformato.Label4.Name = "Label4" oformato.spCol_Width.Name = "spCol_Width" oformato.Label5.BackStyle = 0 oformato.Label5.Name = "Label5" oformato.Label6.BackStyle = 0 oformato.Label6.Name = "Label6" oformato.txFormato.Name = "txFormato" oformato.Name = "oformato" LABEL1.BackStyle = 0 LABEL1.Name = "LABEL1" txTitulo.Name = "txTitulo" ckTotalizar.Alignment = 0 ckTotalizar.BackStyle = 0 ckTotalizar.Name = "ckTotalizar" cbOperacion.Name = "cbOperacion" "?%7dFU%'B-CTC CC C $TC FT C 2QEXPORTACIONES_PARAMETROS imp_exp.vcxUOCOLTHISFORMGRILLA_PLANTILLACOLUMNA_ACTUALOPAR_PLANTILLACOLUMNA_ELIMINAR GF_PLANTILLA COLUMN_COLL QUERYUNLOADREMOVE DELETECOLUMNEX_XLS_CAMPOS_COUNTCOLUMNA_ANTERIORCAMBIO_DE_COLUMNAOPARIMP_EXPVCXClick01qqAB1"2)"{% Ul7QGRILLA_FORMATO_COLUMNAform_controles.vcx7QGRILLA_FORMATO_COLUMNAform_controles.vcxCagregarTC ;TCgrilla_formato_columnaform_controles.vcxC Ca 2 QEXPORTACIONES_PARAMETROS imp_exp.vcx'C aC UOCOLFORM_CONTROLESVCXOCOLNSYS_MTHISFORM GF_ORIGINAL COLUMN_COLLGRILLA_ORIGINALCOLUMNA_ACTUALCLONARSE GF_PLANTILLAFOR_ADD_OCOLUMNAOPARIMP_EXPOPAR_PLANTILLACLONARSE_CAMPO OPAR_ORIGINAL FOR_CODIGO SQL_REFRESHClick01qqAQ#r2_)O"66.% UTUXCOLXVALORTHISFORMGRILLA_PLANTILLA VALOR_ACTUALi C reordenarCC C U OCOL XPOSICIONSYS_MTHISFOR_COLUMNA_REORDENARTAG COLUMNORDERTHISFORMOPAR_PLANTILLAEX_XLS_CAMPOS_REORDENAR GF_PLANTILLA SQL_REFRESHevn_field_gotfocus0evn_column_moved1q22a3_e)6]"DD%U%TCTC^TC^T-T-% TC TC^TC^TaTaU THISCOLUMNA_ANTERIOROCOLCOLUMNSHEADER1 BACKCOLOR FORECOLORFONTBOLD FONTUNDERLINECOLUMNA_ACTUALcambio_de_columna01bqAcqA2)D"9x%9lU$%  TCT C^T C^T -T -$%   bTC T C^T C^T aT aTT % TUTHISCOLUMNA_ANTERIOR COLUMNCOUNTOCOLTHISFORM GF_PLANTILLA COLUMN_COLLCOLUMNAHEADER1 BACKCOLOR FORECOLORFONTBOLD FONTUNDERLINECOLUMNA_ACTUAL OC_PLANTILLA TEXTO_EJEMPLO VALOR_ACTUAL3%,TUTHISCOLUMNA_ACTUALTHISFORM OC_PLANTILLA TEXTO_EJEMPLO VALOR_ACTUALcambio_de_columna0cambio_de_fila1DAAACAAaAabaA2aaA1W|)"%4~U2QEXPORTACIONES_PARAMETROS imp_exp.vcx/QGRILLA_FORMATOform_controles.vcx'QGRILLAform_controles.vcxTTT C C T C  C TTTC C T C  C CUOPARIMP_EXPVCXOGFFORM_CONTROLESOGRILLATHISFORMGRILLA_ORIGINAL OPAR_ORIGINAL GF_ORIGINALDO_APLICAR_GRILLA_FORMATO SQL_REFRESHCOLUMNA_ACTUALCAMBIO_DE_COLUMNAGRILLA_PLANTILLAOPAR_PLANTILLA GF_PLANTILLA OC_PLANTILLAMOSTRAR_PARAMETROSCLimpiarCaTaT (C  C T-U SYS_MTHISFORMOPAR_PLANTILLACOLUMNA_ELIMINAR LOCKSCREENXHASTA GF_PLANTILLA COLUMN_COLLCOUNTNITREMOVE SQL_REFRESH6 CCa CUTHISFORMLIMPIAR_COLUMNASOPAR_PLANTILLACLONARSE OPAR_ORIGINALACTUALIZAR_GRILLASaQEXPORTACIONES_PARAMETROS imp_exp.vcxQEXPORTACIONES_PARAMETROS imp_exp.vcxTC(QC T T TT C UOPAR_PLANTILLAIMP_EXPVCX OPAR_ORIGINALTHISFORMXALIASODEYFUNCNEWALIASGET_PATHEX_ARCHIVO_ENTRADA GF_ORIGINAL SQL_ALIAS GF_PLANTILLAACTUALIZAR_GRILLASET-T-%C>QUTHISFORMOPAR_PLANTILLA OPAR_ORIGINALXALIAS C BCUTHISFORM QUERYUNLOADactualizar_grillas0limpiar_columnasreiniciar_plantillaInit QueryUnloadARelease1!qB2A"arC22Baa2AA21I*"0+ ?1F)JFIF``LEADTOOLS v20.0       }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzw!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz  ?/~&nLϑ27@8U,jrbrAKjݯ<n.'gvWyYo%zQ#'o3?JO>m~$9o c>?Ggsv[OGnG8> ~q<no&2UR]h+&:ȿGXVOY33-_jTQYT)E+h@jѧ FI]O+}-3[)nt獛 92y9+J(B X-v"jΦŽT$ܞHnYT.Q,2MƓM'{>gͰj\IM6uʵ] ?u/ y΍z¶{Hőjx$j)ץZRmԝ]:5]8F4Iɵ${8nы4UMޥodx݋0Tzx` %LCY^ tVOWqJklU: _4i7֋p˧.Dn0:ƣqqcaJ#tqݥ(qz>}zx9խ9bWQ%e[fKkiRd,T';N:㡋*SR嚺RZ]v믅U䪩Μq想qz\tz C9515%E]K[i6)s)T'jňϵkC0x:j8w.gir)m+%}XUyTM7&ݵ;-㵍aBFP0^ۓwm* B (d  ( @ EEE )GêsyyyyyyyuԶyusⴋ㿢y[=ɥrrEdK>@@@@@@@=O@@?>DIQ\d۲vйZ3@w$1ߙQPOOOOOOL[QPߙQߙQC6-(.Sx{@¦Y_4˓]mj$j$j$j$j$j$j$j$c$n%(޷[ՏCWGê٬QGmMݪfi᳄?ޖE}rEdK\SEŪjT䳃4D@w$1ۡfSEŪjT̙ĪeNsT1ڶTΎUTѪ^TѪ^TѪ^Tѫ^Ѡ[իzԮ_ܵ浄1D¦Y_4˓]mȪlSEŪjTU@Wγeą.@????:Ipâ綅.BŪTQGmMŪTSEŪjTU[uѾeћN\\\\\[Vcؠ綄,@ŪTSEŪjTŪTSEŪjTíEɮL/ʼMǨJίJίJίJίJίJίJկJU㲁.@ŪTSEŪjTŪTSEŪjTEEE ή̇Zڰǰǰǰǰǰǰǰ˼.߯~/BŪTSEŪjTŪTSEŪjTxCYSƫTp;IHHHHHFBܽ짷 ݭ|0AŪTSEŪjTŪTSEŪjT[$ه6ZƭTuDQPPPPPNK짷 ݭ|0@ŪTSEŪjTŪTSEŪjTρZְְְְְְװచ%㲃6GŪTSEŪjTŪTSEŪjT̙ǨJ俚L/ƯMΞxJΨJΨJΨJΨJΨJΨJΨJΥJȻO!跅,@ŪTSEŪjTŪTSEŪjTUUkѹeΔDSRRRRRPL۾ݭ|0BŪTSEŪjTŪTSEŪjTUH`ζeNj8HGGGGGE@ٻݭ|0BŪTSEŪjTŪTSEŪjT̙ǪuN泅T1ڼT˪dTΪpTΪmTΪmTΪmTΪmTΪmTΪmTΪjT¶T!ݭ|0BŪTSEŪjTŪTSEŪjT%ݭ|0BŪTSEŪjTŪTSFmMܮ0BŪTSEŪjTŪTSBĚkmU$U$U$U$U$U$U$U$U$U$U$U$U$U$U$U$U$U$åDکx0BŪTSEŪjTª|TZ(IQOOOOOOOOOOOOOOOOPP@9?ŪTSEŪjT[k.*++++++++++++++++++*:܎AŪTSFmM.e*&-,,,,,,,,,,,,,,,,,,VåŪTSBĚkmU$ҖZDZSDFFFFFFFFFFFFFFFFECgà>ª|TZ(IQOߟ^^ߗPߘRߘRߙRߘRRRߙRߙRߘRߘRߘRߘRߘRޘRJEHŅUTݼT1[k.*++++++++++++++++++*:܎A.e*&-,,,,,,,,,,,,,,,,,,Vå`"%XSDFFFFFFFFFFFFFFFFECgà>%ݪmT˅UTˈUTˈUTˋUTˈUT΋UT΋UTˋUTˋUTˈUTˈUTˈUTˈUTˈUTˈUTˈUTˈUTˈUTŅUTݼT1cccc#C???GIF89a f<ƋHOtNHA:7wؚ6i]!B %@BM4 /@2™h>0ŏTe#Y&)@Ǟ|8p4ԡ1H)3Tj.L+|@ i #ȫ8p}#JS[<p@$ 2("D dР)\yø.Q 4&Pz1^ b;@0@ lvn$B(+Td4b!ثY$)DlPGC5P$8!g2Hp!& )de`(6q8@(8pRpXoʊPE A@Aˤ$z92uX^_ `)@A$PG/H_ddDx!:0P;A%N]cRY]9[;W?     %C Propiedades wQ PropiedadeslTC Propiedadessys_propiedades.prg  BUXCODIGOXNOLEER XNOLEERHIJOSXRAMA XMODO_EDICIONOPROXCOD_INSXSEMILLAXATRXBULXTABLAXBUSCARHERENCIAXGRUPOXNOCREAR XGENERACION PROPIEDADES>wQSTRINGQSTRINGQSTRINGQSTRINGQ PROPIEDADESsys_propiedades.prgQ PRO_ESTADO%CDespacho QDespacho3%CDespachoDespacho.T  T C  C T BU XDESPACHOXCOD_INSXBULXATROPROPSYS_PROPIEDADESPRGOESTDESPACHOXJSONPROPSESTADOSESTADO_JSON_LEERESTADO_APLICARNQINTEGERQ PROPIEDADESsys_propiedades.prgQ PRO_ESTADO%C prop_predet Q prop_predet(%C Prop_PredetCodigoTTC C T  BU XCODIGOOPROPSYS_PROPIEDADESPRGOEST PROP_PREDETXJSONPROPSESTADOSESTADO_JSON_LEERESTADO_APLICARPROP_CODk 0dC U OPROXSINACTUALIZAROPRO2RAMAPADRECODIGONOMBREVALORHIJOS MOSTRAR_OPRO.+'CUTHISCOUNTREMOVE6%B- / BUTHISJSONABLEPADRET-UTHISPADREKQ PROPIEDADESsys_propiedades.prgQBOOLEANQBOOLEAN%CT%C C U OPROSYS_PROPIEDADESPRGXNOHIJOS XCONVALORTYPEOTHISPADRE LEER_ESTADO LEER_ESTADOS-Q PROPIEDADESsys_propiedades.prg%CTTTTU OPROSYS_PROPIEDADESPRGTYPEOTHISCODIGORAMANOMBREVALOR<Q PROPIEDADESsys_propiedades.prgQBOOLEANC ( T TC C UOPROSYS_PROPIEDADESPRG XCONVALORNITOESTADOXLEEROHIJOOHIJOSTHIS LEER_ESTADOHIJOSCOUNTITEM HIJO_GUARDARMT  HC Hj !T Cg  2% C %T T %C =C  BUOPROOHIJO XCONVALOROESTADOXLEERCONVALORTIPOVALORCODIGOTYPEOESTADOS_CONVALORESTADOSTHISHIJOSADDRAMAG TCBCaUXRAMATHISPADRE HIJOS_CARGAROHIJOHIJOS HIJO_GUARDAR=,Q PRO_ESTADOsys_propiedades.prg,Q PRO_ESTADOsys_propiedades.prgTCaC json leerT  T  T  '%CoEst.Hijos_ARR(1)bC6'(C 2 T PTCC ( >CCargar: CCZ -   - C TCC (C%CCC %.UXJSONOESTSYS_PROPIEDADESPRGOEST2NITNIT2 NFJSONREADSYS_MTHISVALORNOMBRERAMA HIJOS_ARRHIJOSOEX1 HIJO_CARGAROEX2 MENSAJE_SMESSAGETYPEOESTADO_JSON_LEER>% (TCTT T TC T aTCa T - BUXJSONTHISHIJOSCOUNT HIJOS_ARRNITOESTITEMRAMANOMBREVALORESTADO_JSON_OBTENERJSONABLE NFJSONCREATE6-Q PROPIEDADESsys_propiedades.prg,Q PRO_ESTADOsys_propiedades.prg-Q PROPIEDADESsys_propiedades.prgT/ TC ( "CNo encontrado:  .%C +C UOPROSYS_PROPIEDADESPRGOHIJOFOPROHIJOVALORTHISHIJOS HIJO_BUSCARRAMAOEXMENSAJE_SUSPENDOTYPEOESTADO_APLICARTC%9B-%C 5CNo se puedo encontrar el item.C B-TC%C B-T  T  U XRAMAOHIJO1THIS HIJO_BUSCARORDENTYPEOMENSAJEOHIJO2HIJO_BUSCAR_ORDEN TABLA_GUARDARa TZTT UXRAMAXORDENOHIJOTHISHIJOSORDEN TABLA_GUARDARTC%C m5CNo se puedo encontrar el item.C B-TC%C B-T  T  U XRAMAOHIJO1THIS HIJO_BUSCARTYPEOMENSAJEOHIJO2HIJO_BUSCAR_ORDENORDEN TABLA_GUARDARr'CCod CCZ<(%   _C BUSYS_MTHISCODIGO HIJOS_LEIDOS HIJOS_LEYENDOHIJOS_PUEDELEERHIJOS_LEER_TODOSHIJOS)TC BUTHISHIJO_SELECCIONADOHIJO_BUSCAR_VALORVALORXTC (QBCCUTHIS VALOR_FIJOVALORNITHIJOSCOUNT FIJAR_VALORESn(`%C\BCB-UXVALORNITTHISHIJOSCOUNTCODIGOn(`%C\BCB-UXORDENNITTHISHIJOSCOUNTORDENW I%E BB-UXRAMANITOHIJOETHISHIJOSRAMA$QSTRINGTUXVALORTHISARBOL %C + Ta rn%j Ta!T BU XCONVALOROHIJOTHISVALORHIJOSCONVALOR3$TC 6 BUTHISESTADO_CONVALORCONVALORESTADO;QSTRINGQ PROPIEDADESsys_propiedades.prg TpTT BUXESTADOOPROSYS_PROPIEDADESPRGTHISHIJOSESTADO HIJOS_ESTADO;QSTRINGQ PROPIEDADESsys_propiedades.prg TpTT BUXESTADOOPROSYS_PROPIEDADESPRGTHISHIJOSESTADOS HIJOS_ESTADOS;QSTRINGQ PROPIEDADESsys_propiedades.prg T%iB TT  B U XESTADOOPROSYS_PROPIEDADESPRGTHISCONVALORHIJO_SELECCIONADOESTADOS_CONVALORHIJOSHIJOS_ESTADOS_CONVALORJ;TC Pro_Estadosys_propiedades.prga BUTHISESTADOJ;TC Pro_Estadosys_propiedades.prg- BUTHISESTADOSK<TC Pro_Estadosys_propiedades.prga BUTHISESTADOS_CONVALORTU XNUEVOVALORTHISESTADOS)TUXVALORXKEYXNOMBREXMARCADOTHISVALORZ%CoDeyFuncbO 4TCTCUXVALORODEYFUNC DEY_FUNC2THISVALORNORMALIZAR_TEXTOBCgUTHISVALORq%%  5T ^T\ BUTHIS CODIGO_ORIRAMA_ORIARBOLCODIGO_ORI_KEYq%%  5T ^T\ BUTHISCODIGORAMAARBOL CODIGO_KEY)TC BUTHIS CODIGO_KEYCODIGO_KEY_OBTENERCODIGO)TC BUTHISCODIGO_ORI_KEYCODIGO_KEY_OBTENER CODIGO_ORIBK_CCZUXCODIGO/;     TC  TC !%C xGeneracionbLT T%C $TTC TC TTTC  TTC % (&%C C C -C B% /C C C   $C UXCODIGOXNOLEER XNOLEERHIJOSXRAMA XMODO_EDICIONXCOD_INSXSEMILLAXATRXBULXTABLAXBUSCARHERENCIAXGRUPOXNOCREAR XGENERACIONTHISTABLACODIGOCOD_INSBULATR BUL_BUSCADO ATR_BUSCADOGRUPOSEMILLA MODO_EDICION TABLA_LEERHIJOS_LEER_TODOSbTaCCCT-U XGENERACIONTHIS HIJOS_LEYENDO HIJOS_LEERB+-CT-UTHISHIJOSCOUNTREMOVE HIJOS_LEIDOS;TC CCU XGENERACIONTHIS HIJOS_LIMPIARHIJOS_LEER_TODOS/ TC  BUTHISHIJOS_PUEDELEERCODIGOSEMILLAh(%   6B-TC CBaU XGENERACIONTHIS HIJOS_EXISTEN HIJOS_LEIDOSHIJOS_PUEDELEERHIJOS_LEER_TODOS T.PadreT.Codigo FG((Orden#)SCAN FOR ((&xProPadre=THIS.Codigo) OR ((THIS.Codigo_Ori#0) AND &xProPadre=THIS.Codigo_Ori)) AND (NOT THIS.Semilla OR (THIS.Semilla AND (EMPTY(Cod_Ins) AND EMPTY(Grupo))) ) AND (EMPTY(xAccion) OR (xAccion=Accion OR (Accion=0 AND xAccion=1))) AND (EMPTY(bul_filtro) OR (bul_filtro=THIS.bul_buscado) OR EMPTY(THIS.bul_buscado) OR THIS.Semilla) AND (EMPTY(atr_filtro) OR (atr_filtro=THIS.atr_buscado) OR EMPTY(THIS.atr_buscado) OR THIS.Semilla)xCodigo=&xProCodigo T a%C T a%IF xCodigo#&xProCodigo THENECodigo FU XACCION XGENERACIONXCODIGO XCODPADRE XPROCODIGO XPROPADRETHISTABLAORDEN HIJOS_EXISTEN HIJO_LEER HIJOS_LEIDOSCODIGO )Q PROPIEDADESQ PROPIEDADES"QSTRINGQ EXCEPTIONVTC Propiedades     NH$   ZV%R <TC(J! 2%TaTT  T  T  T  CUXCODIGO XGENERACIONOPROOPRO2XRAMAOEXTHISRAMA MODO_EDICIONCOD_INSATRBULTABLAGRUPOACCIONHIJOSCODIGO CODIGO_ORIREMOVEPADREESPEJO PADRE_ACTUALADD-Q PROPIEDADESsys_propiedades.prg1TC PropiedadesaaNTT  T  T  T  T TTT BUXCODIGOOPROSYS_PROPIEDADESPRGTHISRAMATABLAPADRECODIGOGRUPOCOD_INSBULATRARBOLORDENSEMILLAWQ PROPIEDADESsys_propiedades.prgQ PROPIEDADESsys_propiedades.prg%C 7TC PropiedadesaaN%C TT  T  !T  (Clonado)T  T  TTTTTTTTTTT BUOPROORIGSYS_PROPIEDADESPRGOPROCLONTYPEORAMA MODO_EDICIONTABLATHISPADREACCIONNOMBRETIPOCOD_INSGRUPOBULATRARBOLORDEN BUL_FILTRO ATR_FILTROIMPRIMIROBLIGASEMILLA-Q PROPIEDADESsys_propiedades.prg%C O T-Q PROPIEDADESsys_propiedades.prgTC C T CT   BU OPROORIGSYS_PROPIEDADESPRGTYPEOTHISOPROCLONAR_ELEMENTOTABLA_CREAR_Y_GUARDAROPROHHIJOSOPROH2PADRECODIGO-Q PROPIEDADESsys_propiedades.prg-Q PROPIEDADESsys_propiedades.prg7TC PropiedadesaaNT T  T T  T  TTTTTTTTT C BUOPROHIJOSYS_PROPIEDADESPRGOPROTHISRAMA MODO_EDICIONTABLAPADRECODIGO CODIGO_ORIACCIONNOMBRETIPOCOD_INSGRUPOBULATRORDEN BUL_FILTRO ATR_FILTROSEMILLATABLA_CREAR_Y_GUARDAR%& C TTTT UTHISPADRE PADRE_ACTUALTABLA_ELIMINAR CODIGO_ORICODIGOACCIONTABLA_CREAR_Y_GUARDARm%YCCa*Este cdigo no fue quitado anteriormente: CCZ CUTHISACCIONMENSAJE_SUSPENDOCODIGOTABLA_ELIMINAR>%B- C CUXNOCREARTHIS TABLA_CREAR TABLA_GUARDARW  T T:% C PropiedadesCodigo @Ca'El cdigo ya existe, no se pude crear: CCZB-}(!% Propiedades}(TCDTC]+rUXCOD1XCOD2THISCODIGOMENSAJE_SUSPENDO PROPIEDADESTABLAIDUp TC %C @B->           _'> iUXCODIGOXRAMATHISCODIGO TABLA_BUSCARIDU CODIGO_ORIPADRENOMBREARBOLACCION AUTOMATICOGRUPOCOD_INSBULATRTIPOETIQUETAORDEN BUL_FILTRO ATR_FILTROINTABLAOBLIGAIMPRIMIR#TC  TC  TC  -%C C .Codigo !%C Codigo 0CaError al buscar el cdigo CCZ B- %CC $+%C codheader[TC .Codigo  % C %C T %C T )BC C %CC #%C GruHeaderTC .Codigo C BaUXCODIGOXRAMAXCOD_INSXATRXBULXBUSCARHERENCIAXGRUPOXNOCREARTHISCODIGOTABLAMENSAJE_SUSPENDO TABLA_BUSCARTABLA_CREAR_Y_GUARDAR_ TC %C @B-UXCODIGOXRAMATHISCODIGO TABLA_BUSCARFORTABLAK#TC  1%C xB-TC F  ^JT  T  T T T CVT CCV  T T T C T C T C T T T T T T C :T T  DUXCODIGOXRAMAXCOD_INSXATRXBULXBUSCARHERENCIAXGRUPOXNOCREAROOBJTHISCODIGO TABLA_BUSCARTABLAIDU CODIGO_ORIPADRENOMBREARBOLACCION AUTOMATICOCOD_INSBULATRETIQUETAORDENTIPO BUL_FILTRO ATR_FILTROGRUPOOBLIGAIMPRIMIRT.CodigoTC 6oC QcCC,ocCCCQ cCC2JUPDATE (THIS.Tabla) SET hijosC=Hijos FROM cCC2 WHERE cCC2.Padre= &xCod C  UXPADREXCODTHISTABLAPADREDISTINCT CODIGO_ORICODIGOHIJOCCCHIJOSCCC2 TABLA_LEERARBOL%C 2B-%C [T/   TC BU XDESPACHO OPROPS_SETOESTXOKTYPEOESTADOS_CONVALORFORCOD_INSBULATRDESPACHO PROPIEDADES_FAST_ACTUALIZAR_HIJOB4Q PRO_ESTADOsys_propiedades.prg ((TCC  %C  2rpropiedades_Fast    C]   Ta BU XDESPACHO OPROPS_SETOESTSYS_PROPIEDADESPRGNITXOKHIJOSCOUNT PROPIEDADES_FAST_ACTUALIZAR_HIJOVALORIDUDESPACHOCODIGOCOD_INSATRBULRAMA8Q PRO_ESTADOsys_propiedades.prg    !T CDespachos_Fast #TCPropiedades_Fast T-( )TCC a /%C    %CoDeyFuncbO NTCT CT $T \K_CCCgZdo -  CC >=    TMPGrupoEsteo TMPGrupoEstQXpropiedades_FastQ  Ǽ  T T .%C    Ta%   T oQXDespachoQ    B U OPROPS_SETOESTSYS_PROPIEDADESPRGXALIAS XRECURSIVONITXOKXOKHIJOSXNALIASXFILTROBXRV XALIASSALIDAHIJOSCOUNT$PROPIEDADES_FAST_ACTUALIZAR_BUSQUEDAVALORODEYFUNC DEY_FUNC2NEWALIASCOD_INSBULATRRAMADESPACHO TMPGRUPOESTPFTMPROPIEDADES_FASTDPAplicar_DespachoAplicar_Predet Mostrar_oPro"CLEAR Padre_Access6DESTROYINIT Leer_Estado Leer_Estados Hijo_Guardar  Hijo_Cargar estado_json_leerg Estado_JSON_ObtenergEstado_aplicar&Subir ReordenardBajar Hijos_AccessbHijo_Seleccionado_Access8 Fijar_ValoresHijo_Buscar_Valor7Hijo_Buscar_Orden Hijo_Buscart Arbol_AssignConValor_Access;Estado_ConValor_AccessHijos_Estado_AccesslHijos_Estados_AccessOHijos_Estados_ConValor_Access4 Estado_AccesswEstados_AccessEstados_ConValor_Access8Estados_Assign Estado_Assign Valor_Assign@ ValorN Rama_Ori_Access! Rama_Access!Codigo_Key_AccessP"Codigo_Ori_Key_Access"Codigo_Key_Obtener#INITD#Hijos_Leer_Todos& Hijos_Limpiar'Hijos_ReLeer_Todos'Hijos_PuedeLeer_Access ( Hijos_Cargari( Hijos_Leer,) Hijo_Leer, Hijo_Obtenerv/Clonar_Elemento1Clonar_ConHijos3 Hijo_Espejarm5Quitarse7Ponerse8Tabla_Crear_y_Guardar9 Tabla_Crear: Tabla_Guardar; Tabla_Buscar=Tabla_Eliminar@A Tabla_LeerAHijos_Actualizar:EPropiedades_Fast_ActualizarF Propiedades_Fast_Actualizar_HijoG$Propiedades_Fast_Actualizar_BusquedaI U T T T T T- T- .Q T -     U CODIGORAMANOMBREVALORCONVALORJSONABLEHIJOS COLLECTION HIJOS_ARRPADRE~ T T T T T T T T T- T - . Q T  T  T T T T T T T T T T- T T T T TT T T T  T! T" T# T$ T%- T&- T' T( T) T* T+ T,- T--T. Propiedades T/T0CX T1- T2- T3-                  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = >U4IDUCODIGO CODIGO_KEY CODIGO_ORICODIGO_ORI_KEYPADRE PADRE_ACTUALNOMBRE HIJOS_LEIDOS HIJOS_EXISTENHIJOS COLLECTIONARBOLRAMARAMA_ORIACCION AUTOMATICOETIQUETACOD_INSBULATRGRUPO MODO_EDICIONESPEJOTIPOVALORORDENOBLIGAIMPRIMIR BUL_FILTRO ATR_FILTRO BUL_BUSCADO ATR_BUSCADO HIJOS_ESTADO HIJOS_ESTADOSHIJOS_ESTADOS_JSONHIJOS_ESTADOS_CONVALOR HIJOS_LEYENDOHIJOS_PUEDELEERESTADO ESTADO_JSONESTADOS ESTADOS_JSONESTADOS_CONVALORCONVALORSEMILLATABLAPROP_CODDESPACHO VALOR_FIJOHIJO_SELECCIONADOJSONABLE Contenedores COLLECTIONT Pro_EstadoCUSTOMU PropiedadesCUSTOMAVqAA2rAA1A3qAA3qCA5qA>!qA22AQAA3A2111A2qQA21qaaAAAAAA2q2qqq1a111qqABAA1BAA2qAA122Aq!AAAAA1qQaqAQQqAQqAqq2qrAB2qQQQqAQqAqq2rA12cqQA2qqAAq2qqAAq2qAaAAq23QA!AAAA2A3AAA3AAA2!AAAA3223q4q2qA22QA2QA223q12A!aa11AaA!AA2qAAA21A2q122qqA1q2Quq1QAQAA3!cABAAAAAA11111A2q1111111112qQqARA1111111111111112QAQA1A3q1111111111111311A2a1A2qqA2qAAA12bqA sA31aaaqA!!AAAAA1AAAq1aqA21qbqA22111Q111111111A3qqaaA4qQqAQA2AAA22AAADTAA% A251p0 1 p p: F"jB+)8-I3P5;> S? t ^G jP ug&l7b+Q< )25VJEpL Q !Z!u"d"2#nV##x#$~ %c%%x&&~'%')1,))4)*7=**:*0+=U++A+U,Gs,,I,V-Py-.W0..Z. /]5/o/`/3z3445>55"5C6(i6C7,f7$;5F;>P>v@r@0DZDEE{HHrII-J]JJ$JL3MDP?iP%UeBUU8lV Z@4Z[h[]t]__fx7F>w[0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6DS102YXY1425114691/F] WINDOWS _6DS102YXZ1493148417 ' WINDOWS _6DS102YXY1493147377K[ky WINDOWS _6DS102YY11493147377Xhx ( WINDOWS _6DS102YY21493147377i y 0 WINDOWS _6DS102YY31493147377q7 WINDOWS _6DS102YY41493148401x@ WINDOWS _6DS102YY51493147377R WINDOWS _6DS102YY61493147377W WINDOWS _6YL16PL0O1493148401b WINDOWS _6DS102YXY1493148417 WINDOWS _6DS102YXY1493148417 WINDOWS _6YL16PL0P1493148417 WINDOWS _6YL16PL0Q1493148417 ! WINDOWS _6YL16PL0R1493148417!!!" " WINDOWS _6YL16PL0S1493148417""" #*# WINDOWS _6YL16PL0T1493148417## $$4$ WINDOWS _6DS102YXY1493148401$%%!%>% WINDOWS _6YL16PL0U1493148401#&0&=&K&h& COMMENT RESERVED T''VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 317 Width = 377 DoCreate = .T. Caption = "Mantenimientos Varios" Name = "Formulario_acep_canc1" Command1.Top = 290 Command1.Left = 116 Command1.TabIndex = 21 Command1.Name = "Command1" Command2.Top = 290 Command2.Left = 200 Command2.TabIndex = 22 Command2.Name = "Command2" AYUDA.TabIndex = 1 AYUDA.Name = "AYUDA" Text1.TabIndex = 3 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.TabIndex = 2 advertencia.Name = "advertencia" checkboxcheckboxCheck1Formulario_acep_canc1Top = 67 Left = 15 Height = 17 Width = 235 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Correccin de Factores de Conversin" ControlSource = "xfactor_de_conversion" TabIndex = 5 Name = "Check1" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck2Formulario_acep_canc1Top = 91 Left = 15 Height = 17 Width = 268 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Limpieza de Compromisos de Producciones" ControlSource = "xlimpieza_producciones" TabIndex = 7 Name = "Check2" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck3Formulario_acep_canc1Top = 115 Left = 15 Height = 17 Width = 235 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Limpieza de Compromisos de Pedidos" ControlSource = "xlimpieza_pedidos" TabIndex = 9 Name = "Check3" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck4Formulario_acep_canc1Top = 139 Left = 15 Height = 17 Width = 220 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Mantenimiento de Desplazamientos" ControlSource = "xlimpieza_pedidos" TabIndex = 11 Name = "Check4" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck5Formulario_acep_canc1Top = 163 Left = 15 Height = 17 Width = 128 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Facturas de Remito" ControlSource = "xini_ventas_fcdere" Enabled = .F. TabIndex = 13 Name = "Check5" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck6Formulario_acep_canc1Top = 187 Left = 15 Height = 17 Width = 252 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Actualizacin de comprobantes anulados" ControlSource = "xcomprobantes_anulados" TabIndex = 15 Name = "Check6" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck7Formulario_acep_canc1Top = 211 Left = 15 Height = 17 Width = 163 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Producciones - depsitos" ControlSource = "xproducciones_depositos" TabIndex = 17 Name = "Check7" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) checkboxcheckboxCheck8Formulario_acep_canc1Top = 36 Left = 15 Height = 17 Width = 127 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "Testeo nicamente" ControlSource = "xtestear" Enabled = .F. TabIndex = 4 Visible = .F. Name = "Check8" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nbutton=2 THEN thisform.seleccion_unica(this) ENDIF ENDPROC 9"  4%U>%7CUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMSELECCION_UNICATHISMouseUp0112A1) labellabel TesteableFormulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Testeable" Enabled = .F. Height = 17 Left = 291 Top = 163 Visible = .F. Width = 58 TabIndex = 14 ForeColor = 0,128,128 Name = "Testeable" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 67 Visible = .F. Width = 73 TabIndex = 6 ForeColor = 255,0,0 Name = "Label1" labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 91 Visible = .F. Width = 73 TabIndex = 8 ForeColor = 255,0,0 Name = "Label2" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 115 Visible = .F. Width = 73 TabIndex = 10 ForeColor = 255,0,0 Name = "Label3" labellabelLabel4Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 139 Visible = .F. Width = 73 TabIndex = 12 ForeColor = 255,0,0 Name = "Label4" labellabelLabel5Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 187 Visible = .F. Width = 73 TabIndex = 16 ForeColor = 255,0,0 Name = "Label5" labellabelLabel6Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "No testeable" Height = 17 Left = 291 Top = 211 Visible = .F. Width = 73 TabIndex = 18 ForeColor = 255,0,0 Name = "Label6" labellabelLabel7Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Los no testeables modifican la base de datos" Height = 17 Left = 15 Top = 237 Visible = .F. Width = 258 TabIndex = 19 ForeColor = 255,0,0 Name = "Label7" labellabelLabel8Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Los testeables dependen del tilde correspondiente" Height = 17 Left = 15 Top = 261 Visible = .F. Width = 289 TabIndex = 20 ForeColor = 0,128,128 Name = "Label8" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6CA0TZWRF1421373303/F] WINDOWS _6CA0TZWRG1450794118 '!s) WINDOWS _6CA0TZWRF1421376453R^jw WINDOWS _6CA0U2NKO1421373876bp~ WINDOWS _6CA0U2NKP1421374426 K WINDOWS _6CA0U2NKQ1421373876 WINDOWS _6CA0U2NKR1421374426Tcr WINDOWS _6CA0U2NKS1421373876)7Fq WINDOWS _6CA0U2NKT1421374426 WINDOWS _6CA0U2NKU1421373876w WINDOWS _6CA0U2NKV1421374426 (5` WINDOWS _6CA0U2NKW1421373876   . Y WINDOWS _6CA0U2NKX1421374426 WINDOWS _6CA0U2NKY1421373876^!l!z!!! WINDOWS _6CA0U2NKZ1421375857!"""H""( WINDOWS _6CA0U2NL01421373876####$ WINDOWS _6CA0U2NL11421375857R$a$p$}$$ %' WINDOWS _6CA0TZWRF1421375061&&&3&P& WINDOWS _6CA0TZWRF1421375061L WINDOWS _6CA0TZWRF1421375765 &y WINDOWS _6CA0UB0UJ1421375765%##% WINDOWS _6CA0U2NKN1421376064##@% WINDOWS _6CA0U2NKN1421376516s"<& WINDOWS _6CA0UB0UL1421376064-/ WINDOWS _6CA0UB0UM1421376064 " WINDOWS _6CA0V3X731421375765' WINDOWS _6CA0V3X741421376064 1 COMMENT RESERVED 1KVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1Height = 573 Width = 1021 DoCreate = .T. Caption = "Ajustes de Decimales" old_descuentos = 0 old_final = 0 old_dif = 0 old_otros = 0 old_iva = 0 act_iva = 0 act_descuentos =  20 Name = "Formulario_acep_canc1" Command1.Top = 540 Command1.Left = 438 Command1.Name = "Command1" Command2.Top = 540 Command2.Left = 522 Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" #PROCEDURE calcular local xarr release arr_subtotal select sum( iif(!xdiv, tot_com, mo_tot_com) ) from cur_aj with (buffering=.t.) into array arr_subtotal xarr=0 if _tally>0 xarr=arr_subtotal(1) endif thisform.subtotal.Value=xarr thisform.old_dif = thisform.old_final - ( thisform.subtotal.Value - thisform.act_descuentos + thisform.old_otros) thisform.Refresh ENDPROC PROCEDURE Init parameters xresultado if xdiv thisform.grid1.column6.Visible= .F. thisform.old_otros = tx_iva26+tx_ii + tx_redondeo+tx_dto672+tx_iva_rg5329 thisform.old_iva = tx_iva thisform.old_final = tx_final thisform.old_iva = tx_iva thisform.old_descuentos = zdescuentos thisform.act_iva = tx_iva thisform.act_descuentos=zdescuentos else thisform.grid1.column7.Visible= .F. thisform.old_otros = t_iva26+t_ii + t_redondeo+t_dto672+tx_iva_rg5329 thisform.old_iva = t_iva thisform.old_final = tx_final thisform.old_iva = t_iva thisform.old_descuentos = zdescuentos thisform.act_iva = t_iva thisform.act_descuentos=zdescuentos endif this.calcular ENDPROC PROCEDURE validar thisform.calcular() if thisform.old_dif#0 mensaje("No puede haber diferencias !!!") return .f. else local xdif xdif=abs(thisform.act_descuentos-thisform.old_descuentos) if xdif>.09 mensaje("No se pueden realizar correcciones de ms de 0.09 centavos ("+alltrim(str(xdif,12,2))+" !!!") return .f. endif endif return .t. ENDPROC PROCEDURE procesar_aceptar zsubtotal = thisform.subtotal.Value zdescuentos = thisform.act_descuentos select cur_aj scan select tempcomp go cur_aj.registro if xdiv replace mo_tot_com with cur_aj.mo_tot_com else replace tot_com with cur_aj.tot_com endif select cur_aj endscan ENDPROC AutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Descuentos" Height = 17 Left = 816 Top = 396 Width = 70 Name = "Label2" labellabelLabel1AutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Otros" Height = 17 Left = 813 Top = 436 Width = 34 Name = "Label3" Formulario_acep_canc1Label2labelAutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Total" Height = 17 Left = 813 Top = 460 Width = 30 Name = "Label4" Formulario_acep_canc1Label3Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ControlSource = "thisform.old_dif" Format = "z" Height = 25 InputMask = "999,999,999.99" Left = 888 Top = 492 Width = 109 ForeColor = 255,0,0 Name = "Text2" Formulario_acep_canc1Text2textboxtextboxAutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Diferencia" Height = 17 Left = 813 Top = 496 Width = 60 BackColor = 240,240,240 Name = "Label5" Formulario_acep_canc1Label5labellabelControlSource = "thisform.old_final" Enabled = .F. Format = "z" Height = 25 InputMask = "999,999,999.99" Left = 888 Top = 456 Width = 109 DisabledForeColor = 0,0,0 Name = "total" Formulario_acep_canc1totaltextboxtextboxControlSource = "thisform.old_otros" Enabled = .F. Format = "z" Height = 25 InputMask = "999,999,999.99" Left = 888 Top = 432 Width = 109 DisabledForeColor = 0,0,0 Name = "otros" Formulario_acep_canc1otrostextboxtextbox/PROCEDURE Valid thisform.calcular ENDPROC Formulario_acep_canc1 descuentostextboxtextboxFormulario_acep_canc1subtotal]old_descuentos old_final old_dif old_otros old_iva act_iva act_descuentos *calcular gridgridGrid1Formulario_acep_canc1ColumnCount = 7 AllowAddNew = .T. DeleteMark = .F. Height = 336 Left = 0 Panel = 1 RecordSource = "cur_aj" Top = 24 Width = 1020 Name = "Grid1" Column1.ControlSource = "cur_aj.cod_ins" Column1.Width = 75 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "cur_aj.desc_ins" Column2.Width = 549 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "cur_aj.recepcion" Column3.Width = 75 Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "cur_aj.cos_lifo" Column4.Width = 130 Column4.ReadOnly = .T. Column4.Format = "z" Column4.InputMask = "999,999,999,999.9999" Column4.Name = "Column4" Column5.ControlSource = "cur_aj.des_ins" Column5.Width = 51 Column5.ReadOnly = .T. Column5.Name = "Column5" Column6.ControlSource = "cur_aj.tot_com" Column6.Width = 99 Column6.Name = "Column6" Column7.ControlSource = "cur_aj.mo_tot_com" Column7.Width = 108 Column7.Name = "Column7" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column15Alignment = 2 Caption = "Cdigo" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column2:Alignment = 2 Caption = "Descripcin" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column37Alignment = 2 Caption = "Cantidad" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column45Alignment = 2 Caption = "Precio" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column4BorderStyle = 0 Format = "z" InputMask = "999,999,999,999.9999" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column56Alignment = 2 Caption = "Dto (%)" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column5iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column66Alignment = 2 Caption = "Importe" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column6YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" /PROCEDURE Valid thisform.calcular ENDPROC ControlSource = "thisform.act_descuentos" Format = "z" Height = 25 InputMask = "999,999,999.99" Left = 888 Top = 392 Width = 109 Name = "descuentos" textboxtextboxLabel4labelheaderheaderHeader1#Formulario_acep_canc1.Grid1.Column76Alignment = 2 Caption = "Importe" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column7YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" /PROCEDURE Valid thisform.calcular ENDPROC Enabled = .F. Format = "z" Height = 25 InputMask = "999,999,999.99" Left = 888 Top = 368 Width = 109 DisabledForeColor = 0,0,0 Name = "subtotal" Formulario_acep_canc1labellabellabellabelFormulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Subtotal" Height = 17 Left = 816 Top = 372 Width = 49 Name = "Label1" "M%YnhU UTHISFORMCALCULARValid012$)"M%YnhU UTHISFORMCALCULARValid012$)"M%YnhU UTHISFORMCALCULARValid012$)" %w>>U<.ocur_ajaCC 6 T% lTCT ,T      UXARR ARR_SUBTOTALSUMXDIVTOT_COM MO_TOT_COMCUR_AJTHISFORMSUBTOTALVALUEOLD_DIF OLD_FINALACT_DESCUENTOS OLD_OTROSREFRESHY4%T- T   T  TT  TT T HT- T T TT TTT U XRESULTADOXDIVTHISFORMGRID1COLUMN6VISIBLE OLD_OTROSTX_IVA26TX_II TX_REDONDEO TX_DTO672 TX_IVA_RG5329OLD_IVATX_IVA OLD_FINALTX_FINALOLD_DESCUENTOS ZDESCUENTOSACT_IVAACT_DESCUENTOSCOLUMN7T_IVA26T_II T_REDONDEOT_DTO672T_IVATHISCALCULAR C%U+CNo puede haber diferencias !!!B- TC% ףp= ?_C<No se pueden realizar correcciones de ms de 0.09 centavos (CC Z !!!B-BaUTHISFORMCALCULAROLD_DIFMENSAJEXDIFACT_DESCUENTOSOLD_DESCUENTOSTTF ~F #% f>  >  FU ZSUBTOTALTHISFORMSUBTOTALVALUE ZDESCUENTOSACT_DESCUENTOSCUR_AJTEMPCOMPREGISTROXDIV MO_TOT_COMTOT_COMcalcular0Initvalidarprocesar_aceptarc1qq!A24qABB5bqqqAAr31rqArA1 a">0P)  &h ( @ vbZ<<:LHBdVRZD:|vxxXXdfjXVPFB^ZVD0(vbZ~ljzx얖XXddZZ䒔lljTD<\J@jXVtj얖XXffZZМrffD0(\PHdVRtj얖XXffZZhj^^hhjXVffD0(\J@얖XXffZZ``RRxxlBBdd^^V@8llj얖XXffZZʴ``HHЮxxlBBhhbdV@8llj얖XXffbbܰhh88xxlBBhhbdV@8llj얖XXffbbhh88xxlBBhhbdV@8lljꤤXXffZZxxlBBhhbdV@8lljꤤXXhhzLLԮxxlBBhhbdV@8lljꤤVVff^^NNXXbbzx|||zzzxxlBBhhbdV@8lljꤤVVffdddddd^^\\\\^^XXzLLlBBfDDhhbdV@8lljꤤVVhhzLLbbdf``XXNNVV^^ffjjhhffbdV@8lljꤤVVffnNNں¬ppXXDDXXhhbdV@8lljꬮVVffpTTnNNhhbdV@8lljꬮVVffpTTpTThhbdV@8lljꬮVVffpTTpTThhbdV@8lljꬮVVffpTTpTThhbdV@8llj촴VVddnNNľpTThhbdV@8lljꬮhjxxzxpTTffbdZD:lljмӣЃopgQLllj?( @[KHPF@XH@ʒZZugcrb]^^אݚqp{OLlVNΚ]]OOŌQR|URӢXXť‰ɓPQ~XTϤaajjRS~WSϣcc\\ZZQQQQLL_`zUQӪXXǻɫ^_{URҬZ[Ҳ^_~USԯWXƵXYzPLđŻ||kh?JFIF``LEADTOOLS v20.0       }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzw!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz  ?\- fmf9ڈnv2IAsKc fW$%jxcSgv6v^כ,LI}QhE~R%*O}C\ԭuiq 3D'\a$eR8`yLƮ:/ysO.ZI.^ݏw O"pTniG"Jj#ԞѸH2]b~ଊOE'rܥMkU&1KOٿ89/oVCHR-ʬ20$D##9 ,dz?UӇ+TjaZm)^+]1tOiPV}Ves,T?r?t祆5}<x>GjF=#6~ݎxwv$g#QA!̾>Yb)9|_u9ދ_gZo츭[zO^g\K:>H#+eOMs\(;ʣܫgEKI~>ö${;WInYO(!',*iJ韝ЯS R5Iqz5iџ1_ )d~Q* **+Ȟ rVz?E57dTd^~Qῄ)~Aϗ8-ʨzWn'{Ԓh#ゥ.nd$[ͥ3]?NNa5B*¢vy~goF* F*lj՞"rZNSo-h%?  !|W5IG(9%C^ rJC=No tiene el permiso de acceso a al ABM de Puntos de Venta !!!B%CNUMFACFQQnumfac%Cmailctas Qmailctas%Csucprop QsucpropF TG+(listadosG~(clases T +a> T H:  ve_numfac_pv( %C   ! : TT ve_numfac.prg#TABM de Puntos de Ventatrsac trsacnumfacG+(sys_reg_compareTC reg_compareNCnumfac ve_numfac( % CnumfacTC%C X<Mod:  ve_numfac2 ESin modificaciones ve_numfac2 T T<trsac T sys_doscen%C   6!BU! ACTIVEFORM DATASESSIONIDACCESOMENSAJENUMFACMAILCTASSUCPROPXCENLISTADOSCLASESXRESXFORMXMAXFORM VE_NUMFAC_PVWIZARDAAATRAN_PRGTRAN_TXTBEG_TRANTRSACLOCK_GSYS_REG_COMPAREOCOMPAREPUSH VE_NUMFACXTXTCOMPAREUSER_LOG PUB_INDEXEND_TRANTTS_IDDC_PUBLICAR_ARR_DOSCEN SYS_DOSCEN9%Cnumfac 1Qnumfac%CxNumFacbN_ TF+a 8 Punto de venta :@z 99.% CN    CCentro invlido !!!.!%(B- #%KC>El punto de venta no tienen un controlador fiscal asociado !!!BC)Q IF_CONTROLif_protocolo.prg(TCC IF_PROTOCOLO.PRGC    fis_impresor--UXNUMFACNUMFACGUI_GETP_SUCMENSAJEFIS_IMP!MOSTRAR_ESTADO_CONTROLADOR_FISCALOCTRL IF_PROTOCOLOPRGFIS_DRVIF_ASIGNAR_IMPRESORAFIS_CONFIS_VEL FIS_IMPRESOR%C  1 B"%S S hBINACTIVO!%S S BRemitos TH T Zona Franca TImpresora Fiscal HTLquido Producto 2Hc VTC *$Comprobantes Electrnicos de CrditoComprobantes de Crdito6 &GTC $Electrnicos - Bonos Fiscales Bonos Fiscales6"   QTC !Electrnicos de ExportacinComprobantes de Exportacin6 24TC Comprobantes Electrnicos6 BUXFORZADOXDESCRDESCRACTIVOFACTIVOR ZONAFRANCANUMFACFIS_IMPLIQPRODFACCREDFCEBONOSFISFACTEFACTAFACTB 4H 6B- %mT ~B- % T B-  TBaUXRESXFORMXMAXFORM!mostrar_estado_controlador_fiscal descr_numfacwizard BAAsqAA!AA1Ar"r1AA21R2"QAArRAABBB2q!AArAAAA2qAbA2qqA!AAa!1a1q!AAA31r12qA12A1r1Ar1?x d\ b } % V_FzVS< G(9 $"T\tmp\CC]R,!cm_liquido_producto_cambio_estadoG+(listadosG~(clases cm_compra T --!cm_liquido_producto_cambio_estado( % T C %C cpbt_liq_prod1Q BU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES!CM_LIQUIDO_PRODUCTO_CAMBIO_ESTADOLISTADOSCLASESOBTENER_CPBT_LIQ_PROD CM_COMPRAXRES XRESULTADOPROCESAR CPBT_LIQ_PROD<F~1CBU CPBT_LIQ_PRODTILDETILDEOLD REGISTRARCOMPROBCAUSAa  Ta T trsacccvent%L2T%cm_liquido_producto_cambio_estado.prg1T$Cambio de estado de lquido producto T T T$ trsac%|T C % ` T xT T$ trsacH;   B C  B ; B T  VBUXCOMPROBXCAUSATRSACAAALOCK_GTRAN_TXTTRAN_PRGXTTS_CPBXTTS_CAUBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDe %)pccvent]Cuenta y orden = NO%cm_liquido_producto_cambio_estado.prg F)pccvents)Cuenta y orden = Pendiente de liquidacin%cm_liquido_producto_cambio_estado.prg[ T - BU XCOMPROBXCAUSATILDECCVENTLIQPRODFAC_VENCAUSAUSER_LOG PUB_INDEXTRSAC%Cccvent *Qccvent%Cclientes \Qclientes%Csucursal QsucursalBUCCVENTCLIENTESSUCURSALprocesar& registrar transaccion open_filesTA%"AAI2tAbBC222!A2b2AAB132BBB32AB2!AAAAAB1S&i 4>8 vK! %W_,X"Y( 4TC % ; E W a'ad:\sistema\systems\sri8T+c:\Users\Guille\Documents\GES ImportacionesTCSQTBORRAR1Tsprusr T TT  \data\CCZ T  G( @ atrcan.ges<7 Tproc_stk6%C Elimino operaciones anteriores ? Qccvent(C=B10-85647  Qventas(C=B10-85647  Qitm_descC=B10-Qiva_venC=B10- QcliauxC=B10-Qven_oper(C=B10-85647  Qej-2022\diariogQej-2022\conceptoF;~C=B10-85647   C  T !#! Q,$sys_procesando InicializandoT&85647 T' T(T) 401010100 T*ENVIOS VENTA ONLINE T+ERRORES DE COBRANZAT,4211.09 T-T.sri - tienda.xlsx*T/sri - tienda - historico.xlsx T0 T1  2  T2.T3 \log\sri\importaciones_tienda.%Cborrar3 \borrar.txtY 3$T4CCCC:_/-T53\4.txtC5Inicio: C^a6 T7-%Cclientes QclientesF8-&%C4 v9T9CX Cliente no encontrado. Cliente: C&C5-9a6 T7a %8:S^T9CXEEl cliente no debe tener cuenta corriente (p_cli_sin_cc=1). Cliente: C&C5-9a6 T7a%7 C-; T<CC5CC5>= T=a %Cshoppy FQ<>  T=-%=F> (<ԻQC5Fin: C^a6*5(\tienda_4.txt uA\ tienda.xlsx(3\4 - tienda.xlsx ?sys_procesando%h1@\tmp\C]AMA5H mostrar_txt+Importacin comprobante de la tienda onlineQBUCXDEVXVENTA DEY_FUNC2XCARPETACL_ATRCL_NOMCL_AVEPSYS_001P_CODEMPP_SERVERP_SYSTEMP_PRIVATRCANGES P_MIN_HORAMOVSTIMEPROC_STK MENSAJE_SINOCCVENTFORFAC_VENCOD_CLIVENTASITM_DESCCOMPROBIVA_VENCLIAUXVEN_OPEREJDIARIOGCODIGOPROCLIXASIENTOASIENTOINCONCEPTO SP_MENSAJESYS_PROCESANDOXCOD_CLI XSUCREMITO XSUCRECIBOXCUENTA_VENTAS XCUENTAENVIOXCUENTAERRORESXCUENTA_ENVIOS_NO_FACTURADOSXCUENTA_ENVIOS_NO_FACTURADOSD XARCHIVO_XLSXARCHIVO_XLS_HISTORICOXTOLERANCIA_REDONDEO_BRUTOXTOLERANCIA_REDONDEO_TOTAL P_DIR_IMPORT XCARPETA_LOGXIDSYS XLOG_GENERALLOGEAR XERR_INICIALCLIENTESXMSGNO_CCPROCESAR_TIENDA XARCH_XLSXOKSHOPPYSP_OCULTAR_DEFINITIVAMENTEP_LOCALMEMO MOSTRAR_TXT T T- T-%a(TCSalteo importacin ?#CImportando datosa T T - T  T  T  T-!T\ tienda.xlsxT tmp_tienda-sys_procesandoImportando XLSCa C Archivo: aCa%C0SKsys_importar_baseJ(a   aTa C  T-%C tmp_tiendaOF( \tmp_tiendaQ )TError: Archivo no encontrado BUOIMPXMSG XDEV_SIN_FORM XHISTORICOXDEV MENSAJE_SINOLOGEAR XLOG_GENERALXDIRXCARPETAXAUTOXTIPOXVERSIONXSUBTIPOXCODIGO XARCHIVO_XLSXALIAS_SALIDA1 SP_MENSAJESYS_PROCESANDOSYS_IMPORTAR_BASEXDIMP_XLSXLS_OMITIR_ERRORES_LECTURAXLS_INICIAR_IMPORTACIONCOMMAND1CLICK TMP_TIENDAr C ProcesandoTC%C lCa CB Ta T T  T -#T  \tmp\TCC]R  ve_pedido%Ccccob Qcccob%Cven_oper 1Qven_operF-C2\S%C4qT 2TCXCuenta de redondeos no definidaC-aB- T- Q \tmp_tienda  Ta%h3C No se pudo importar la planilla.a CBF%CtmpQF4o tmp_tiendaCCg8QQǼtmpFT -lekgjlsdg ~ >CO,otmpCZQ q_tmpF!$~C"a"66 T#COK$sys_procesandoCCCOZ de CCCNZ Venta: CC! = T&aT'! T&C(%& "C Suspendo?a)F! ##*sys_procesandoCaBU+XPRIMEROXDEVLOGEAR XLOG_GENERALXMSG LEER_ARCHIVOFN_EXITXAUTOXTIPOXVERSIONXCODIGO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOCCCOBVEN_OPERCUENTASATRIBUTOXCUENTA_REDONDEOSCOD_CUEXERRXCARPETA TMP_TIENDATMPID_INTEGTXNREGISTROXOLDDISTINCTTIPONUMEROIDQ_TMPXVENTA XREG_SCAN SP_MENSAJESYS_PROCESANDOXOKXTXNGENERARSYS_MOSTRAR_SCREENSP_OCULTAR_DEFINITIVAMENTE9/BCCC\gCC\gCC\g$UXSTRH%C 3 FQ =BUXALIAS_SALIDA1 TCW% %$TCCCC>=.dbf%C0 Ih1CC C N Q &   7%C Cshoppyshoppy wBrshoppy     F > % G(  G(G G GG( FBUXARCHXINICIALXMSG XIMPORTANTEXXLSXAREA XARCH_XLSCODIGODESPACHODEPOSITOCANTIDADSHOPPYVENTASCOD_INSCCVENTDEP RECEPCION T T%CCUITuTC T80 %CDNIT96CT96  TTCuit/dni vaco !!!BU XDNIXTIPODOCXCUITXERRXMSGXIMPORTEQTIPO_DOC DOCUMENTO,%CqQ)otmpCZq#)H] C=FCTV C=NCTc C=NDTd 2T?%Vcd <*CCausa invlida [] !!!TcT C\% AB *CLetra invlida [ ] !!!T  C \T  VT CV FC 2Cc NC Cd FC ND 666 F#K(Cd T%cT#)TTTCT%CtC-CXVenta: CC=  Comprobante:   C */ - Diferencias detalle vs subtotal. Diferencia:CCC ZaB-FG((ccvfac E %C4%]C-CXVenta: CC=  Comprobante:   C *@ - Registrado con anterioridad pero mal registrado !!! (q.total)aB- %C-CXVenta: CC=  Comprobante:   C *E - Registrado con anterioridad pero mal registrado !!! (xiva_restado)aB-  %-qC-CXVenta: CC=  Comprobante:   C * - Registrado con anterioridadB%Ccons QconsF#)=TCC !C$C "C ! C$C "6/TCC # C #68% C$C "   C$C $  5C-CXVenta: CC=  Comprobante:   C *# - La fecha debe estar en el rango C* y CC$C $*aB-% C % }C-CXVenta: CC=  Comprobante:   C * - El balance esta cerrado al CC %*aB-F#) T& T' T( T)"*&'&()%([C-CXVenta: CC=  Comprobante:   C * - )aB-T+CC\g T, T-./ T0T1.2T385 T4.5 T6 T7CC= T8 T9FT>: ;C X<=>?@CCAfBCC$D E,F&G'H-IJC]K.L5421M3NOC'806P7QRSTUa%c >V TW TXTYCZfT[C\fT]^ T_ T`ab_`%_ 2T) Provincia Cb no encontrada[C-CXVenta: CC=  Comprobante:   C * - )aB-F#) Tc_ TdTefTgh Ti Tj Tk Tl Tm Tn To Tp Tq Tr Ts Tt Tu Tv Tw Tx Ty Tz T{ T|T}C(XT~CXTCXT.b TTCXTC(XTC(X T T Tve_procsFEcomprob %C4 a> <.>A@@ZY\[]bcdF.ehgjklmnopqrstuvwxyz{|FG-( T T T T< T T-CventasF ~z TT#TCd T&Td d %vT%C FG((codinsEC=%C44TT>C D kT)CXVenta: CC=  Comprobante:   C * - SKU inexistente: CC-)a Ta. TCX TFS>: ;C X<=>D BCC 6CC C 6CC C SN6C6CQCC 64SCC$S%C%C!Ccuentascuenta> >Cf TCO(m%Ci%TCQ%TC!%TTTQTTQ%C TCritm_desc< CF >a%%C5-T) Redondeo demasiado elevado (>10)[C-CXVenta: CC=  Comprobante:   C * - )aB- F>: ;C X<=>D BNCCQREDONDEO4SCC$STQAritm_desc< T%&%|C-CXVenta: CC=  Comprobante:   C *) - Diferencia redondeo total. Diferencia:CCC ZaCError Suspendo?aB- "F>: ;C X<=>D BNCCQREDONDEO4NCC$STQCritm_desc< C TTTTF#)(riva_ven<:<CCCCCrremxfac  %aF G((cpbt E %C4gT)CXVenta: CC=  Comprobante:   C * - Cobranza ya registradaC-)CError Suspendo?aB-H MERCADOCf&T MERCADO PAGO FRAVEGACf^T FRAVEGA MKTP 2}T)CXVenta: CC=  Comprobante:   C * - Medio de pago invlido [CCf] !!!C-)CError Suspendo?aB-F-CC%C4ZT ,T)CXVenta: CC=  Comprobante:   C */ - Medio de pago invlido, cuenta inexistente [CCf] !!!C-)CError Suspendo?aB-TCrven_oper=< HC>     H2C$ s*rccclie=< PJ=:<D:<C]=:<CZCC=TT CC=g% &TC 9999,999,999_TRF G((cpbt E%C4 C-CXVenta: CC=  Comprobante:   C *# - Ya est registrada la cobranza [C] !!!aB- &%Ccons !QconsF#)% C % !C-CXVenta: CC= Recibo:  balance cerrado al CC %*, se lo registra en CC$*aB-H!" MERCADOCf"T MERCADO PAGO FRAVEGACfP"T FRAVEGA MKTP 2"vC-CXVenta: CC= Recibo: : Medio de pago invlido [CCf] !!!aB-#)F-CC%C4#T #C-CXVenta: CC= Recibo: : ,Medio de pago invlido, cuenta inexistente [CCf] !!!aB-TCF#) TF G((oper E%C4$\T)CXVenta: CC= Recibo:  Nmero de operacin repetido.C-)aB-.rcccob<  rven_oper=< HC>    H2C$T7:T<TDrccclie=< PJ> c7C]>CZCCZ#ge01>7CZ o*TC 9999,999,999_TRF T- TT ~<C' T T   Ta%'MC-CXVenta: CC= Recibo:  Anulacin (cC-CXVenta: CC= Recibo:  Anulacin: No existe el reciboaB-F~<F(F T T7 T~<(%P( T= T7P T%C7 )#ge017CZ%k* TT T' co_funciones - %C4g*qdiariogqconceptoC-CXVenta: CC= Recibo: - Anulacin: No existe el asiento del recibo: C: CCZaB- Taco_aut %_+ T a T)   co_ventasa)% [+bC-CXVenta: CC=  Comprobante:   Asiento contable: C)aB- ,C-CXVenta: CC=  Comprobante:  E Asiento contable: No se pudo seleccionar el ejercicio para la fecha C *aB-BU QTMPTXNTIPONUMEROXTXNXCAUSAMENSAJEXES_NCXLETRAXCOMPROBXFECHAFECHA XCOMPROBANTECANTIDADPRECIOBONIFXTOTAL_DETALLE XIVA_RESTADOTOTALIMPORTE XBASE_TEORICA XREDONDEOXTOLERANCIA_REDONDEO_BRUTOLOGEAR XLOG_GENERALCCVENTCCVFACDEUDAIVA_VENCONSXDFOCIERRES CIERRE_VENCIE CIERRE_VENDES CIERRE_STKCIE CIERRE_VENHAS CIERRE_BALCIEXCUITXTIPODOCXERRXMSGFN_DNIXSUCFACXFECENT XVENDEDORCLIENTESVENDEDORXNOTASXFLETECOD_FLEXDEPOSXLISTALISTAXVENCXREFXSUCXHORARIOFAC_VENREM_VENCAUSACOD_CLIXCOD_CLISUCDES_CLIENOMBREPEDIDOHOYFEC_VENFEC_ENTCUITTIPODOCAGENTEEST_DESPIDPLANFPAGDEPUSRIVACATREFTOT_VEN IMPONIBLEBULTOSVALDECLNO_CCMOTIVO XCLINOMFAC XCLIFANTASIA XCLIDOMICILIO DOMICILIO XCLICIUDADCIUDAD XCLICOD_ZIPCPXLETXNUMPROVINCIA_IMPORTACIONES PROVINCIA XCLIPROVINCIAXCLIPAIS XCLIPHONOTELEFONO XCLIEMAILEMAILXGEODIR XENTNOMBRE XENTDOMICILIO XENTCIUDAD XENTCOD_ZIP XENTPROVINCIAXENTPAIS XENTPHONO XENTHORARIO XENTCOORDXGEOENT XFCECONTACTO XFCENOMBRE XFCEDOMICILIO XFCECIUDAD XFCECOD_ZIP XFCEPROVINCIAXFCEPAIS XFCEPHONO XFCEHORARIO XI_DIRECCION XI_CIUDAD XI_PROVPAIS XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAIL XI_DPROVINCIAXI_DPAIS XOTRO_CLI DOMICILIOSVE_PROCSCLIAUXCOMPROBNOMFACZIPPAIS INSCRIPCIOPHONOENTNOMENTDOMENTCIUENTZIPENTPROENTPAIENTPHOENTHORENTCOORDGEOENTFCECTOFCENOMFCEDOMFCECIUFCEZIPFCEPROFCEPAIFCEPHOFCEHORVENTAS ACC_BRUTOACC_IVA ACC_BULTOSXACCARR_IVAXMAXIVA XERROR_STOCKSYS_M XREG_VENTAS XIVA_ALICUOTAIVAXBASE XIVA_IMPORTECODIGOBIENESCODINSXCOD_INSCOD_INSXUXB CANTXBULTFECACTES_ENVIOCOD_CUEXCUENTA_VENTAS XCUENTA_ENVIO INVENTARIO RECEPCIONCOS_LIFODES_INSDESC_INSDESCRCOEFICLISPREGRAVADAITMIVAPERCUENTASZITEMNOSTKXCUENTA_REDONDEOS XDIFERENCIAXTOLERANCIA_REDONDEO_TOTALSYS_MOSTRAR_SCREENTASAIVA_MOBASEBASE_MOTIPO_REGFACTURAVEN_OPERCPBTPAGOXPAGOXCUENTAXDES_VALFEC_REC DIF_VALOREMISIONDES_VALCAJ_PROCUENTARECIBO VOPERACIOMONEXTAPLICCAUIDUCOMENTARXIMPORTE_FACTURAXRECIBO XSUCRECIBO XCOMPROB_RC XCAUSA_RC XOPERACIONSYS_OPERACION_FONDOSOPERXCAUXFECREFFECREFFN_CANCGE01XENCXASIDIAASIDIAINCCCOBCCCLIEXCLIXDIR XFECHAFINAL XRESULTADOCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESASIENTODIARIOGCONCEPTOEJERCONDIRSELECCIONAR_EJERCICIOCO_AUTXTMP_VE_COBRANZA_INICIALIZADO REG_ASIDIA CO_VENTASB-UXCODIGO%Cprovinc >Q\provincHSq BUENOS AIRES BS AS BS. AS. BS.AS. CIU AUT  TC BUENOS AIREST CIU AUT CABA FED C.A.B.A. LTCCIUDAD CATAMARCATC CATAMARCA CHACOTCCHACO CHUBUTTCCHUBUT RDOBATCRDOBA CORRIENTESFTC CORRIENTES ENTREtTCENTRE FORMOSATCFORMOSA JUJUYTCJUJUY LA PAMPATCLA PAMPA LA RIOJA<TCLA RIOJA MENDOZAnTCMENDOZA MISIONESTCMISIONES NEUQTCNEUQ NEGROTC RIO NEGRO SALTA.TCSALTA JUAN^TCSAN JUAN SAN LTCSAN LUIS CRUZTC SANTA CRUZ SANTA FTCSANTA F SANTIAGO'TCSANTIAGO FUEGOVTCTIERRA TUCTCTUCU 2 Ta T T% TTBU XDXLETXNUMP_SYSTEMXERRPROVINCIA_DESCRPROVINCCODIGOCOD*F-Cf BC4 UXDPROVINCDESCR leer_archivoU procesar_tienda+str2dateJfn_exitlogearfn_dnigenerares_envioBQprovincia_importacionesdQprovincia_descrW2AAAASr3A12sqqRbqqqbr!BBBBRaBAADAArAqAAAAAqAABASQBB2qA2r21qAAA4"AAA6AsAAAuq!AqA@A1AAsBAsIrBSrDRQrCArAT6E3q31AAAAB3qrcxA"aBr!qAABAbaaaAB2RAAA3"ARAA2rAbs2A!AQrbR1 qArB qb qAAAAAeAqQ qArqArQ!3qAQBtQABAA!!a2!qArQ2rQsArar13s2b3RrbABBAQP1AAaAAQQAAA1ArA2u`AB9RqrQPABB12rqQPA4BBtQ Bsq1qA1rArQ 1rA" rbqeAqQrqBaqAQsQqA"rQsArA & 2Br1A1qArAr1AA"1A21sqAABB!qAA qAA2qq3aABqaqaaarQarrqbQAAA3qr3}v!!,"@"""W'j'(-,(FȈA$'@D%9 r"N MTå !G(9 +% eTC Recalculo? z T-%C test_mayorQ%CborrarQ%Cq_myQ%CmyQ %Ccc#Q %Cq1BQ %Cq2aQ G+(sys_log'TCloguear Test ClientesNTT- TC$%Ccuentas Qcuentas%Cclientes %Qclientes%Ccccomp SQcccomp%Cccclie QccclieFG((codcliFG((cuenta%CborrarQFh1\borrarCCNNNNL & (\borrar T  T! T"-T#CC$F#$ co_funciones#!"%" 7@T "No se pudo encontrar el ejercicio C&' !!!T(&)C co_ccc_cli1*F+-,%C4  T! T"- T#C$0$ co_funciones&)!"#%"  T(&)F+-,%C4 d;T  El ejercicio C&' no est cerrado !!!C co_ccc_cli2* %Cccclie QccclieFIG(-P -r . C-cdA/  #) ~FE0C%C4 i>0>C%1 >1 >1%C2=Z >aFCC-Saldos de CC vs Contabilidad - Clientes - Al C*3C3%C hC 3  CC Codigo 2Nombre   Deb.Diario  Cre.Diario  Saldo Diario  Deb.CC  Cre.CC  Saldo CC  Dif.3 C- ------ 2-------------------------------------------------- ---------------- ---------------- ---------------- ---------------- ---------------- ---------------- ----------------3FG-(#) ~ T49%4C4? 5   : ;C  C62= C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_C Z63:%Cclientes+   >C  C62= C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ Cliente Eliminado.3C3C3C3+CAnlisis de las Diferencias3C3T7 test_mayorT8 T9C$ T:a T;- T<- T=- T>a% 7? co_sql_mayor789:;<=>"Q\tmp\test_mayor 1$Qc:\sistema\test_mayor/o test_mayorCA\Sq_my%Cccclie Qccclie%Cejercon QejerconF&G((DESDE ~'C Ejercicio: C&'3 TB) TCDvoq_myC.BCEC2=ZG2C,  G2C   EFmy%CN/CC XMY - Observaciones3CC XCCliente  CImporte C Comprobante CFecha  CAsiento  CConcepto2 Nota3vCC XC- Q C-Q C-Q C- Q C- Q C-2Q C-dQ3 ~HL C2=ZD&THLetra Z en el comprobante( G2C, +THSin afectar archivos (gestin)%C)THH y sin cdigo de cliente G2C +8TH+Sin cdigo de cliente, pero afecta archivos 2LTH indefinido|CC XC  CIJZ C- 2 C.* CE Z C+2 CHd3hoccclie0QC1QK-P -r C2=Z C.BC 0ccMoq_myCIJQKC.BC C, myoccXmy    KQLC KQM KC KQN K Kq1%CNt!CC XCC -> MY3:CC XCCliente  C Diferencia3+CC XC- Q C-Q3 ~p,CC XC  CNZ3 TO{oq_my2-.CIJQKO C.BC C, 2-.d_myoccclie0Q2C-VFCnC-cNCYC-dNDDC-LAS/C-RRCC-AAJXX666666Q-.C1QK0O -r -P C.BC 2-.d_ccod_ccXd_my Q2Q-CQ.P2P-CP.QPKQMQKPKQRQKPKd1%CN C3 ~~gCCX- 2 C.* CC:CK Z MY:CM Z Dif:CR Z3[od_myXd_cc P2P-CP.Q2Q-CQ.PCQ2d2%CN_ C3 ~[QCCX- 2 C.* MY:CK Z Solo en mayor3 C3omyXcc  Xq1    KQMC KQL KC KQN K K C  q2%CN!CC XMY -> CC3:CC XCCliente  C Diferencia3+CC XC- Q C-Q3 ~,CC XC  CNZ3% C U<%CborrarHQ%C test_mayoroQ%Cq_myQ%CmyQ %CccQ %Cq1Q %Cq2 Q BUVXAUT ACTIVEFORM DATASESSIONIDP_DEVXNO_RECALCULAR MENSAJE_SINO TEST_MAYORBORRARQ_MYMYCCQ1Q2SYS_LOGOLOGMULTIPLECON_FECHA_HORAXHASTACUENTASCLIENTESCCCOMPCCCLIECODCLICUENTAP_LOCALPROCLICODIGODI_DEBDI_CRECC_DEBCC_CREHAYXERRORXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESEJERCONDIRXDESDEDESDE TOMAR_DATOSCONCEPTOTIPO2CAUSAFECHAMOTIVOCOD_CLIIMPORTECOMPROBLOGXDIFXCTVSNOMBREXTABLAXDFECXHFECXA_LOCALXCON_SALDO_ANTERIORXTODO XCONSOLIDADO XCON_CIERRE EXPORTAR_FULL CO_SQL_MAYORATRIBUTOXDXHHASTAASIENTOPASEARCHXTXTDEBITOCREDITOSALDOSALDO_CCSALDO_MY DIFERENCIAXCODIGOD_MYD_CCDIFD1D2ABRIRL4FG-(G-(pG(C'  C\S      C    ( \#) ~AFE%C4 >>>>FBUXNOMBREDIARIOGCOD_CUECUENTASASIENTOCONCEPTOATRIBUTOXDESDEFECHAXHASTAMOTIVOTIPO2LEGALP_LOCALBORRARCODIGOPROCLIDI_DEBDEBITODI_CRECREDITO tomar_datos5qArAAqAQA1A1A1A1Ar1AAA!A!ArrrA* 4AssABB!AqRqQAaAAAArA2"ArRAAAAr1s"AA!A1Arsa# aaAqAAB"a"qAA"AABB "ABBArrAAQA1A1A1A1AB3qrBRq1QAAArAA1 +-%$ I"9 MT !G(9 +% eTC Recalculo? z T-%C test_mayorQ%CborrarQ%Cq_myQ%CmyQ %Ccc#Q %Cq1BQ %Cq2aQ G+(sys_log*TCloguearTest ProveedoresNTT- TC$%Ccuentas Qcuentas%Cproveedo (Qproveedo%Ccccomp VQcccomp%Cccprov QccprovFG((codproFG((cuenta%CborrarQFh1 \tmp\borrarCCNNNNL&  T  T!-T"CC$F'# co_funciones" !"%! '@T%"No se pudo encontrar el ejercicio C&' !!!T(&) C*F+-,%C4 X T  T!- T"C$0# co_funciones&) !"%!  TT(&)F+-,%C4 F;T% El ejercicio C&' no est cerrado !!! C* bF G((opFG-(-wG(.PBC.Ccd123/ - /06 C.cdA1  #) ~FE2P%C4 ^>2>P%3 >3 >3FFG-(FC0Saldos de CC vs Contabilidad - Proveedores - Al C*4C4CP Codigo (Nombre   Deb.Diario  Cre.Diario  Saldo  Deb.CC  Cre.CC  Saldo  Dif.4C- ------ (---------------------------------------- ---------------- ---------------- ---------------- ---------------- ---------------- ---------------- ----------------4 ~ %n "C  5 C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_4:%CPROVEEDO+   ;C  5 C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ C@z 9,999,999,999.99_ Proveedor Eliminado.4C4C4C4+CAnlisis de las Diferencias4C4T6 test_mayorT7 T8C$ T9a T:- T;- T<- T=a% 0 7> co_sql_mayor6789:;<="Q\tmp\test_mayor ^ $Qc:\sistema\test_mayor/o test_mayorC@\Sq_my%Cccprov Qccprov%Ccccomp Qcccomp%Cejercon QejerconF&G((DESDE ~z'C Ejercicio: C&'4 TA) TBCvoq_myC0ABECF=ZG2C,  G2C   DEmy%CN/CC XMY - Observaciones4CC XC Proveedor  CImporte C Comprobante CFecha  CAsiento  CConcepto2 Nota4vCC XC- Q C-Q C-Q C- Q C- Q C-2Q C-dQ4 ~Hbn( G2C, +THSin afectar archivos (gestin)%C+THH y sin cdigo de proveedor G2C M:TH-Sin cdigo de proveedor, pero afecta archivos 2nTH indefinido|CC XC  CIJZ C. F C0* CD Z C+2 CHd4occprovQKXcccompQM F.2C-Z N . 2C -Z2QC3QL.PCC /0AB 2ccMoq_myCJIQLC0AB C, myoccXmy    LQOC LQP LC LQQ L Lq1%CN!CC XCC -> MY4<CC XC Proveedor  C Diferencia4+CC XC- Q C-Q4 ~,CC XC  CQZ4 TR{oq_myF.0CJIQLR C0AB C, F.0d_my$occprov2QFC.CFCC.cNCC.dNDnC.LASYC.OPADC.AAJ/C.1CPC.2DPXX66666666Q.0C3QL2R .P C0AB F.0d_ccod_ccXd_my TFT.CT0SFS.CS0TSLQPTLSLQUTLSLd1%CN C4 ~gCCX. F C0* CC:CL Z MY:CP Z Dif:CU Z4[od_myXd_cc SFS.CS0TFT.CT0SCTFd2%CN C4 ~QCCX. F C0* MY:CL Z Solo en mayor4 C4omyXcc  Xq1    LQPC LQO LC LQQ L L C  q2%CNv!CC XMY -> CC4<CC XC Proveedor  C Diferencia4+CC XC- Q C-Q4 ~r,CC XC  CQZ4% C X<%CborrarQ%C test_mayorQ%Cq_myQ%Cmy0Q %CccOQ %Cq1nQ %Cq2Q BUYXAUT ACTIVEFORM DATASESSIONIDP_DEVXNO_RECALCULAR MENSAJE_SINO TEST_MAYORBORRARQ_MYMYCCQ1Q2SYS_LOGOLOGMULTIPLECON_FECHA_HORAXHASTACUENTASPROVEEDOCCCOMPCCPROVCODPROCUENTAP_LOCALPROCLICODIGODI_DEBDI_CRECC_DEBCC_CREHAYXDIR XRESULTADO XFECHAFINALCO_ABRIR_TABLAS_EJERCICIO CO_FUNCIONESXERROREJERCONDIRXDESDEDESDE TOMAR_DATOSCONCEPTOTIPO2OPCAUSAFEC_DGIFECHAMOTIVOCOD_PROIMPORTELOGNOMBREXTABLAXDFECXHFECXA_LOCALXCON_SALDO_ANTERIORXTODO XCONSOLIDADO XCON_CIERRE EXPORTAR_FULL CO_SQL_MAYORATRIBUTOXDXHHASTAASIENTOPASECOMPROBARCHXTXTDEBITOCREDITOCSALDOMFAC_COMSALDO_CCSALDO_MY DIFERENCIAXCODIGOD_MYD_CCDIFD1D2ABRIRFG-(G-(pG(C'  C\S     C    #) ~&F E %C4 > >>>FFV(\tmp\tests_12_control   BUDIARIOGCOD_CUECUENTASASIENTOCONCEPTOATRIBUTOXDESDEFECHAXHASTAMOTIVOTIPO2LEGALBORRARCODIGOPROCLIDI_DEBDEBITODI_CRECREDITOCOMPROBCAUNOMBRE COMENTARIOP_LOCAL tomar_datosqArAAqAQA1A1A1A1A1AAA!A!ArrrAj "tAssABBsrrRqQAaAAArArc!AAAs1s"AA!A!A1Arsa# aAqAAB[ "O"qAA"AACB "ABBArrAAQA1A1A1A1AB3qRq1QAAArAsaC1)*d-0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _5ZY0XO77F1382579579/F] WINDOWS _5ZY0XO77G1426294232 WINDOWS _5ZY0XO77H1382765478q!!!!!!. WINDOWS _5ZY0XO77I1395159226:.O.d.t../I/ WINDOWS _5ZY11IAV91395159226000,09000 WINDOWS _6010MH5451382765478112!2.2|2< COMMENT RESERVED <<VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 434 Width = 710 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "Actualizador de paquetes" Icon = bmp\logowind.ico WindowType = 1 xpath = .F. Name = "Form1" UPROCEDURE iniciar_tareas thisform.controlando_anteriores thisform.desinstalando_anteriores thisform.instalando (thisform.xPath) ENDPROC PROCEDURE controlando_anteriores LOCAL oLVI AS MSComctlLib.LISTITEM, oLVISS AS MSComctlLib.ListSubItems oLVI=THISFORM.lv.ListItems("Previas") oLVISS=oLVI.ListSubItems oLVIS=oLVISS.ADD(,,"Buscando...") =GES_reportar(oLVIS.TEXT) LOCAL strComputer, objWMIService, colItems, xEncontrado, xRet, oEx, oEx2, xVersion strComputer = "." objWMIService = GETOBJECT("winmgmts:\\" + strComputer + "\root\cimv2") colItems = objWMIService.ExecQuery("Select * from Win32_Product where Name Like '%GES: Factura Electr%'",,48) xVersion="" TRY xEncontrado=.F. FOR EACH objItem IN colItems oLVI.TAG=objItem xVersion =IIF(xVersion="","",", ")+ objItem.Version xEncontrado=.T. NEXT IF NOT xEncontrado THEN oLVIS.TEXT= "No se encontr instalado el paquete" ELSE TRY oLVIS.TEXT= "Encontrada versin " + xVersion CATCH TO oEx2 oLVIS.TEXT= "Encontrada versin anterior" ENDTRY ENDIF CATCH TO oEx oLVIS.TEXT= oEx.MESSAGE() ENDTRY =GES_reportar(oLVIS.TEXT) ENDPROC PROCEDURE desinstalando_anteriores LOCAL oLVI AS MSComctlLib.LISTITEM, oLVIP AS MSComctlLib.LISTITEM, oLVISS AS MSComctlLib.ListSubItems oLVI=THISFORM.lv.ListItems("Desinstalando") oLVISS=oLVI.ListSubItems oLVIP=THISFORM.lv.ListItems("Previas") LOCAL oWO, xRet, oEx, oEx2 TRY IF TYPE("oLVIP.TAG")="O" THEN oLVIS=oLVISS.ADD(,,"Desinstalando...") =GES_reportar(oLVIS.TEXT) TRY oWO=oLVIP.TAG xRet=oWO.Uninstall() CATCH TO oEx2 THROW oEx2 ENDTRY IF xRet=0 THEN oLVIS.TEXT= "Paquete desinstalado..." ELSE oLVIS.TEXT= "No se pudo desinstalar el paquete. Err: "+ALLTRIM(STR(xRet)) ENDIF ELSE oLVIS=oLVISS.ADD(,,"Omitido") ENDIF =GES_reportar(oLVIS.TEXT) CATCH TO oEx oLVIS.TEXT= "No se pudo desinstalar el paquete. Err: "+ oEx.MESSAGE() =GES_reportar(oLVIS.TEXT) ENDTRY ENDPROC PROCEDURE instalando LPARAMETERS xInstalador, xParametros IF TYPE("xParametros")#"C" THEN *** Parmetros por defecto para instalacin automtica xParametros='/v"/quiet /qr /norestart allusers=1"' ENDIF LOCAL xTemp LOCAL oLVI AS MSComctlLib.LISTITEM, oLVISS AS MSComctlLib.ListSubItems, oLVIS AS MSComctlLib.ListSubItem oLVI=THISFORM.lv.ListItems("Instalando") oLVISS=oLVI.ListSubItems oLVIS=oLVISS.Add (,,"Iniciando la instalacin...") DECLARE INTEGER ShellExecute IN "shell32" INTEGER, STRING, ; STRING, STRING, STRING, INTEGER IF NOT FILE(xInstalador) THEN =GES_reportar("No se encuentra el instalador") =GES_reportar(xInstalador) oLVIS.Text = "No se encuentra el instalador" RETURN .f. ENDIF xTemp=GETENV("TEMP") =GES_reportar("Copiando instalador a :"+xTemp) COPY FILE (xInstalador) TO (xTemp) xInstalador=ADDBS(xTemp)+JUSTFNAME(xInstalador) LOCAL xRet oWsh = CREATEOBJECT("wscript.shell") oWsh.Run(xInstalador+" "+xParametros, 0, .T.) oLVIS.Text = "Termin la instalacin" =GES_reportar("Termin la instalacin") =GES_reportar(Replicate("-",50)) RETURN xRet ENDPROC PROCEDURE crear_tareas LOCAL oLVI as MSComctlLib.ListItem, oLVISS as MSComctlLib.ListSubItems oLVI=thisform.LV.ListItems.Add(,"Previas","Comprobando versiones anteriores" ,0,0) oLVI=thisform.LV.ListItems.Add(,"Desinstalando","Desinstalando versiones anteriores" ,0,0) oLVI=thisform.LV.ListItems.Add(,"Instalando","Instalando versin actual" ,0,0) ENDPROC PROCEDURE Init LPARAMETERS xIniciar, xPath thisform.xpath = xPath thisform.crear_tareas thisform.timer1.Enabled = xIniciar and not EMPTY(xPath) ENDPROC "d% /ga U*  CUTHISFORMCONTROLANDO_ANTERIORESDESINSTALANDO_ANTERIORES INSTALANDOXPATH?QMSCOMCTLLIB.LISTITEMQMSCOMCTLLIB.ListSubItemsTCPreviasT!TC Buscando...C #    T ..T C winmgmts:\\  \root\cimv2\[T CCSelect * from Win32_Product where Name Like '%GES: Factura Electr%'0  T  T - T(TC, 6 T a% 3T #No se encontr instalado el paquete  P'T Encontrada versin (+T Encontrada versin anterior(T CC UOLVIOLVISSTHISFORMLV LISTITEMS LISTSUBITEMSOLVISADD GES_REPORTARTEXT STRCOMPUTER OBJWMISERVICECOLITEMS XENCONTRADOXRETOEXOEX2XVERSION EXECQUERYOBJITEMTAGVERSIONMESSAGE[QMSCOMCTLLIB.LISTITEMQMSCOMCTLLIB.LISTITEMQMSCOMCTLLIB.ListSubItems$TC DesinstalandoTTCPrevias  (%C oLVIP.TAGbO&T CDesinstalando... C  JTTC( a %'T Paquete desinstalado... @T (No se pudo desinstalar el paquete. Err: CCZ T COmitido C  ( @T (No se pudo desinstalar el paquete. Err: C C  UOLVIOLVIPOLVISSTHISFORMLV LISTITEMS LISTSUBITEMSOWOXRETOEXOEX2OLVISADD GES_REPORTARTEXTTAG UNINSTALLMESSAGE !%C xParametrosbC]1T$/v"/quiet /qr /norestart allusers=1"^QMSCOMCTLLIB.LISTITEMQMSCOMCTLLIB.ListSubItemsQMSCOMCTLLIB.ListSubItem!TC InstalandoT 1TCIniciando la instalacin... ,| ShellExecuteshell32%C0 *CNo se encuentra el instalador C -T No se encuentra el instaladorB-TCTEMP5(CCopiando instalador a : (TCCTC wscript.shellNC a&T Termin la instalacin#CTermin la instalacin CC-2Q BU XINSTALADOR XPARAMETROSXTEMPOLVIOLVISSOLVISTHISFORMLV LISTITEMS LISTSUBITEMSADD SHELLEXECUTE GES_REPORTARTEXTXRETOWSHRUN'?QMSCOMCTLLIB.ListItemQMSCOMCTLLIB.ListSubItemsKTCPrevias Comprobando versiones anterioresSTC Desinstalando"Desinstalando versiones anterioresGTC InstalandoInstalando versin actualUOLVIOLVISSTHISFORMLV LISTITEMSADDE T TC UXINICIARXPATHTHISFORM CREAR_TAREASTIMER1ENABLEDiniciar_tareas,controlando_anterioresdesinstalando_anterioresM instalandom crear_tareas InitH 1132A1qAAAA2B3aA1qAAA3Ar"qA3"qra1131q51s$*A6 L]Y wb J)mxpath *iniciar_tareas *controlando_anteriores *desinstalando_anteriores *instalando *crear_tareas  olecontrol olecontrolLVForm1HTop = 1 Left = 1 Height = 371 Width = 707 Anchor = 15 Name = "LV"  ࡱ> Root EntryPq@OleObjectDataAccessObjSiteData&\ChangedPropsKѽj(6(!C4IX&N}Iͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1HideColumnHeadersL MousePointer I  DO Tarea 3 RespuestaView I FlatScrollBarLFullRowSelectL GridLinesL.OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX  commandbutton commandbuttonCommand1Form1Top = 372 Left = 315 Height = 60 Width = 79 Picture = bmp\salir2.ico DownPicture = bmp\exit_h.ico Caption = "Cerrar" Name = "Command1" )PROCEDURE Click CLEAR EVENTS ENDPROC "%<QKUUClick,1Q1)timertimerTimer1Form1`Top = 372 Left = 120 Height = 25 Width = 37 Enabled = .F. Interval = 100 Name = "Timer1" HPROCEDURE Timer this.Enabled= .f. thisform.iniciar_tareas ENDPROC "q\%xUT- UTHISENABLEDTHISFORMINICIAR_TAREASTimer,11=) olecontrol olecontrol Olecontrol1Form1FTop = 384 Left = 168 Height = 37 Width = 49 Name = "Olecontrol1"  ࡱ> Root Entry`q@OleObjectData\AccessObjSiteData&\ChangedProps=#$,j(6(!C4~ )ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1 ImageHeight I ImageWidth I .OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX !Arial, 0, 9, 5, 15, 12, 32, 3, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6BS0JVQ951420184081/F] WINDOWS _6BS0JVQ961420184662Cd WINDOWS _6BS0JVQ971420184662 COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form1&Height = 127 Width = 480 DoCreate = .T. Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.INICIO.Name = "INICIO" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 96 wizard_buttons1.Left = 59 wizard_buttons1.enable_anterior = .F. wizard_buttons1.enable_finalizar = .F. wizard_buttons1.enable_inicio = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Name = "Text1" Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Name = "Timer1" contador.Name = "contador" advertencia.Left = 84 advertencia.Top = 0 advertencia.Name = "advertencia" PROCEDURE wizard_buttons1.click_siguiente if !between(xcen, 1, 99) mensaje("El punto de venta debe estar entre 1 y 99 !!!") return .f. endif ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  Wizard_form1 Cod_desc_pvt1 container clases.vcx cod_desc_pvtiTop = 36 Left = 1 Width = 468 Height = 39 TabIndex = 9 BackColor = 255,128,128 dato_tabla = m dato = xcen Name = "Cod_desc_pvt1" Label2.Caption = "Punto de Venta" Label2.Top = 9 Label2.Name = "Label2" Text8.Left = 104 Text8.Top = 5 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 188 Text9.Top = 5 Text9.Width = 280 Text9.Name = "Text9" >"%%qi%U`%Cc Y:C-El punto de venta debe estar entre 1 y 99 !!!B-UXCENMENSAJEwizard_buttons1.click_siguiente01qA1+)%0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6DC0IULO21424049653/F] WINDOWS _6DC0IULO31458345124 ' WINDOWS _6DC0IULO41424049653*6C`G WINDOWS _6DC0IULO514240496537ESb E WINDOWS _6DC0IULO61424049653D WINDOWS _6DC0IULO71424049653YguXB WINDOWS _6DC0IULO81424049653A WINDOWS _6DC0IULO91424049653o}j w? WINDOWS _6DC0IULOA1424049653####$$$< WINDOWS _6DC0IULOB1424049653&&&&&': WINDOWS _6DC0IULOC1424049653 +)"8+c+9,9 WINDOWS _6DC0IULOD1424049653C"-%.7 WINDOWS _6DC0IULOE1424049653hw(!/3 WINDOWS _6DC0IULOF1424049653**D~%E45 WINDOWS _6DC0IULOG1424049653#)}_#u WINDOWS _6DC0IULOH1424049653o#JO WINDOWS _6DC0IULOI1424049653?'K"T1 WINDOWS _6DC0IULOJ1424049653&YC WINDOWS _6DC0IULON1424049653#`;>x/ WINDOWS _6DC0IULOK1458345124"&Zn WINDOWS _6DC0IULOL1424049653"""Q" * WINDOWS _6DC0IULOO1458345124n"{"*+% WINDOWS _6DC0IULOM1458345124wc-, COMMENT RESERVED I{VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 600 Width = 1000 DoCreate = .T. Caption = "Cambio de estado de comprobantes por cuenta y orden" marcados = 0 orden = 1 importe = 0 Name = "Formulario_acep_canc1" Command1.Top = 572 Command1.Left = 427 Command1.Name = "Command1" Command2.Top = 572 Command2.Left = 511 Command2.Name = "Command2" ayuda.Name = "ayuda" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" marcados orden importe gridgridGrid1Formulario_acep_canc1 hColumnCount = 7 DeleteMark = .F. GridLineWidth = 1 HeaderHeight = 20 Height = 508 Left = 4 Panel = 1 RecordMark = .F. RecordSource = "cpbt_liq_prod" ScrollBars = 2 TabIndex = 1 Top = 28 Width = 994 ForeColor = 0,0,0 BackColor = 255,255,255 GridLineColor = 0,0,0 ZOrderSet = 0 Name = "Grid1" Column1.FontBold = .F. Column1.FontName = "MS Sans Serif" Column1.FontSize = 8 Column1.ControlSource = "cpbt_liq_prod.fecha" Column1.Width = 69 Column1.ReadOnly = .T. Column1.DynamicBackColor = "" Column1.ForeColor = 0,0,0 Column1.BackColor = 255,255,255 Column1.Name = "Column1" Column2.FontBold = .F. Column2.FontName = "MS Sans Serif" Column2.FontSize = 8 Column2.ColumnOrder = 2 Column2.ControlSource = "cpbt_liq_prod.cpbt" Column2.Width = 102 Column2.ReadOnly = .T. Column2.DynamicBackColor = "" Column2.ForeColor = 0,0,0 Column2.BackColor = 255,255,255 Column2.Name = "Column2" Column3.FontBold = .F. Column3.FontName = "MS Sans Serif" Column3.FontSize = 8 Column3.ColumnOrder = 4 Column3.ControlSource = "cpbt_liq_prod.nombre" Column3.Width = 305 Column3.ReadOnly = .T. Column3.DynamicBackColor = "" Column3.ForeColor = 0,0,0 Column3.BackColor = 255,255,255 Column3.Name = "Column3" Column4.FontBold = .F. Column4.FontName = "MS Sans Serif" Column4.FontSize = 8 Column4.ColumnOrder = 5 Column4.ControlSource = "cpbt_liq_prod.dsucursal" Column4.Width = 254 Column4.ReadOnly = .T. Column4.DynamicBackColor = "" Column4.ForeColor = 0,0,0 Column4.BackColor = 255,255,255 Column4.Name = "Column4" Column5.FontBold = .F. Column5.FontName = "MS Sans Serif" Column5.FontSize = 8 Column5.ColumnOrder = 6 Column5.ControlSource = "cpbt_liq_prod.importe" Column5.Width = 108 Column5.ReadOnly = .T. Column5.DynamicBackColor = "" Column5.Format = "z" Column5.InputMask = "999,999,999.99" Column5.ForeColor = 0,0,0 Column5.BackColor = 255,255,255 Column5.Name = "Column5" Column6.FontName = "MS Sans Serif" Column6.FontSize = 8 Column6.Bound = .T. Column6.ColumnOrder = 3 Column6.ControlSource = "cpbt_liq_prod.pedido" Column6.Width = 109 Column6.Format = "z" Column6.InputMask = "" Column6.ForeColor = 0,0,0 Column6.BackColor = 255,255,255 Column6.Name = "Pedido" Column7.ControlSource = "cpbt_liq_prod.tilde" Column7.Width = 19 Column7.Sparse = .F. Column7.ForeColor = 0,0,0 Column7.BackColor = 255,255,255 Column7.Name = "Column6" PROCEDURE DblClick do cpbt_vis2; in ge01 ; with cpbt_liq_prod.comprob, cpbt_liq_prod.causa, cpbt_liq_prod.cod_cli ENDPROC PROCEDURE Init this.SetAll("alignment",2,"header") this.column2.header1.Click ENDPROC FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" "Formulario_acep_canc1.Grid1.PedidoFormulario_acep_canc1hHeight = 23 Left = 50 SelectOnEntry = .T. Top = 541 Width = 264 ZOrderSet = 12 Name = "busqueda" Formulario_acep_canc1textboxcheckboxheaderheaderHeader1#Formulario_acep_canc1.Grid1.Column1FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Fecha" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" MPROCEDURE Click set order to fecha go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column1.header1.FontBold=.t. thisform.orden=1 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC "ħ%c{uUUTHISPARENTDBLCLICKDblClick0110)Label2textboxtextboxText1#Formulario_acep_canc1.Grid1.Column5#Formulario_acep_canc1.Grid1.Column5Header1headerheader#Formulario_acep_canc1.Grid1.Column6checkbox Caption = "" Name = "Header1" Label3labeltextboxtextboxText1#Formulario_acep_canc1.Grid1.Column1FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 ControlSource = "cpbt_liq_prod.fecha" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE RightClick *do ve_facturacion_de_remitos.mpr ENDPROC PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC ControlSource = "thisform.marcados" Enabled = .F. Height = 23 Left = 898 Top = 540 Width = 100 DisabledForeColor = 0,0,0 ZOrderSet = 8 Name = "total_marcados" #Formulario_acep_canc1.Grid1.Column6Formulario_acep_canc1busquedaCheck1headerheaderHeader1#Formulario_acep_canc1.Grid1.Column2FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Comprobante" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" HPROCEDURE Click set order to cpbt go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column2.header1.FontBold=.t. thisform.orden=2 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Total Marcado" Height = 17 Left = 806 Top = 543 Width = 83 ZOrderSet = 9 Name = "Label2" Header1total_marcadosheader"Formulario_acep_canc1.Grid1.PedidotextboxArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 MS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 labeltextboxtextboxText1#Formulario_acep_canc1.Grid1.Column2FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 ControlSource = "cpbt_liq_prod.comprob" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE RightClick *do ve_facturacion_de_remitos.mpr ENDPROC PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC PROCEDURE InteractiveChange thisform.marcados = thisform.marcados + iif(this.Value,1,-1) thisform.importe = thisform.importe + iif(this.Value,1,-1) * cpbt_liq_prod.importe thisform.total_marcados.refresh thisform.total_importe.refresh ENDPROC textboxheaderheaderHeader1#Formulario_acep_canc1.Grid1.Column3FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Cliente" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" JPROCEDURE Click set order to nombre go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column3.header1.FontBold=.t. thisform.orden=4 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC PROCEDURE RightClick *do ve_facturacion_de_remitos.mpr ENDPROC PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC headerFormulario_acep_canc1labellabelText1textboxtextbox total_importelabelTop = 63 Left = 8 Height = 17 Width = 60 Alignment = 0 Caption = "" ControlSource = "cpbt_liq_prod.tilde" Name = "Check1" ;PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC textboxheadertextboxtextboxtextboxText1#Formulario_acep_canc1.Grid1.Column3FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 ControlSource = "cpbt_liq_prod.nombre" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE RightClick *do ve_facturacion_de_remitos.mpr ENDPROC PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC `FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Pedido" Name = "Header1" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Buscar" Height = 17 Left = 2 Top = 544 Width = 43 ZOrderSet = 13 Name = "Label4" labeltextboxheaderheaderHeader1#Formulario_acep_canc1.Grid1.Column4FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Sucursal" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" MPROCEDURE Click set order to dsucursal go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column4.header1.FontBold=.t. thisform.orden=5 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 ControlSource = "cpbt_liq_prod.importe" Format = "z" InputMask = "999,999,999.99" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" textboxText1ControlSource = "thisform.importe" Enabled = .F. Format = "" Height = 23 InputMask = "9,999,999.99" Left = 898 Top = 567 Width = 100 DisabledForeColor = 0,0,0 ZOrderSet = 10 Name = "total_importe" Header1headerLabel4textboxFormulario_acep_canc1#Formulario_acep_canc1.Grid1.Column4FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 ControlSource = "cpbt_liq_prod.dsucursal" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE RightClick *do ve_facturacion_de_remitos.mpr ENDPROC PROCEDURE DblClick this.Parent.Parent.DblClick ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Total Importe" Height = 17 Left = 812 Top = 570 Width = 77 ZOrderSet = 11 Name = "Label3" Formulario_acep_canc1FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 2 Caption = "Importe" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" KPROCEDURE Click set order to importe go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column5.header1.FontBold=.t. thisform.orden=6 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC "t%[}U  UTHISFORMGRID1SETFOCUSREFRESHFGH BEC fEC$   ECG UREMITOS_NO_FACTURADOSTHISFORMORDENTHISVALUE LostFocus0Validy13qbaaAAa3Fb`)"^%6*Uv)TC60TC6  U THISFORMMARCADOSTHISVALUEIMPORTE CPBT_LIQ_PRODTOTAL_MARCADOSREFRESH TOTAL_IMPORTEInteractiveChange015)"%nUUUTHISPARENTDBLCLICK RightClick0DblClick;1419Xt)JPROCEDURE Click set order to pedido go top thisform.setall("Fontbold", .f., "Header") this.parent.Parent.column6.header1.FontBold=.t. thisform.orden=3 thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. this.Parent.Parent.Refresh ENDPROC  "(% UG((pedido#)"CFontbold-HeaderTaTT T T T aUPEDIDOTHISFORMSETALLTHISPARENTCOLUMN6HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01Q"112?) "Z% UG((importe#)"CFontbold-HeaderTaTT T T T aUIMPORTETHISFORMSETALLTHISPARENTCOLUMN5HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01Q"112@)"%nUUUTHISPARENTDBLCLICK RightClick0DblClick;1419Xt)"~% UG(( dsucursal#)"CFontbold-HeaderTaTT T T T aU DSUCURSALTHISFORMSETALLTHISPARENTCOLUMN4HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01!Q"112B)"%nUUUTHISPARENTDBLCLICK RightClick0DblClick;1419Xt)kPROCEDURE LostFocus thisform.grid1.setfocus thisform.grid1.refresh ENDPROC PROCEDURE Valid select remitos_no_facturados set exact off do case case thisform.orden=1 seek dtos(this.value) case thisform.orden=2 seek alltrim(this.value) case thisform.orden=3.or.thisform.orden=4 seek alltrim(this.value) endcase set exact on ENDPROC  "(% UG((nombre#)"CFontbold-HeaderTaTT T T T aUNOMBRETHISFORMSETALLTHISPARENTCOLUMN3HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01Q"112?)"%nUUUTHISPARENTDBLCLICK RightClick0DblClick;1419Xt)">%~ U G((cpbt#)"CFontbold-HeaderTaTT T T T aUCPBTTHISFORMSETALLTHISPARENTCOLUMN2HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01Q"112=)"%nUUUTHISPARENTDBLCLICK RightClick0DblClick;151;Zv) "% UG((fecha#)"CFontbold-HeaderTaTT T T T aUFECHATHISFORMSETALLTHISPARENTCOLUMN1HEADER1FONTBOLDORDENBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYREFRESHClick01Q"113B)"r%+U'$ge01U CPBT_VIS2GE01 CPBT_LIQ_PRODCOMPROBCAUSACOD_CLI8%C alignmentheaderUTHISSETALLCOLUMN2HEADER1CLICKDblClick0Init1C4Q2z) %p)/m- XUAVFP_OBJECTS_DEFINICIONESPRGU&TCTexto%TCRespU CQUERYSTRINGTHISQ_TEXTOPARSE_QSRES_TIPOTUOOBJTHISQ_TEXTOTT T T T T TUXFECHAXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACIONTHISFECHAPEDIDOS SUMA_IMPORTESFCSNCSNDS FACTURACIONTC #QCHILKAT_9_5_0.JsonObject(TCChilkat_9_5_0.JsonObjectN%C C %'TCChilkat_9_5_0.JsonArrayN# (OC  T C  T C C CinformesTCinformesC BCUXCOMPACTOJSONTHISFECHAJSON_ASIGNAR_VALORESOARROARRINFOINFORMESCOUNTNIT ADDOBJECTATLOOBJOBJECTATOINFORMEITEM ADDARRAYATARRAYOFAPPENDARRAYITEMSEMITDTCjson_o_informe_diarioAVFP_Objects_Intercambio.prg)CC BU XFECHAXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACIONOINFORMESETEAR_VALORESTHISINFORMESADD*CfechaC-0300CpedidosCfcsCncsCnds!C facturacion 0C demofecha2018-01-31T00:00:00Z BU OJSON UPDATESTRINGTHISFECHA UPDATENUMBERPEDIDOSFCSNCSNDS FACTURACION&TCTexto*TC Con_Stock)TCDeposito$TCMax'TCCodigo$TCBul$T CAtr &T CClase 'T CMarBon 'T CExacto +T C Disponible %TCRespU CQUERYSTRINGTHISQ_TEXTOPARSE_QS Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLERES_TIPOTTTTTTTT  T  T  T  U OOBJTHISQ_TEXTO Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLE TC CollectionNUTHISPEDIDOS ETCjson_o_Pedido_Vendedoravfp_objects_intercambio.prgTTC BUXPEDIDOXIDOPEDIDO PEDIDO_VEN PEDIDO_IDVTHISPEDIDOSADDs3   =BC UXPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENXPROCESOXMENSAJEXERRORTHISAGREGAR_PEDIDO_VENDEDOR3   ET Cjson_o_Pedido_Vendedoravfp_objects_intercambio.prgT C T C T C T C T C T C T C T C T C  T C  T C  T CCX C  B UXPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENXPROCESOXMENSAJEXERROROPEDIDO PEDIDO_VEN PEDIDO_GES FECHA_GESESTADOCOD_CLICTRL_GESCTRL_VEN PEDIDO_IDVPROCESOMENSAJE COD_ERRORVENDEDORTHISPEDIDOSADD^'4BC U XPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENTHISAGREGAR_PEDIDO_VENDEDOR'wBCYa existe el pedido CCC9Q_ para este vendedor. U XPEDIDO XPEDIDO_GES XFECHA_GESXESTADOXCOD_CLI XPEDIDO_IDV XVENDEDOR XCTRL_GES XCTRL_VENTHISAGREGAR_PEDIDO_VENDEDORETCjson_o_Pedido_Vendedoravfp_objects_intercambio.prgTC TTCc TC TC BU XPEDIDOXMENSAJEXERROROPEDIDO PEDIDO_VENESTADO COD_ERRORMENSAJEPROCESOTHISPEDIDOSADD T- T+ T TCC ( Ta(U OPEDIDOSTPAROEXXSALIRXITXJSONTOPEDPEDIDOS_KL_COLLECTIONCOLLECTIONITEMSTHISPEDIDOSADD>  T T THl&   T T TH *   ET200 *   T208 )   T204 *   T400 2T207  .T206 BU XSTATUSAGREGADO XSTATUSEXISTE XSTATUSERRORXESTADOOPEDIDOTHISPEDIDOSPROCESOESTADOH 0 B bBYa existe el pedido BNo existe el cliente BNo existe el artculo BNo existe el vendedor 4!BNo se reconoce la moneda x.B%La lista de precios tiene otra moneda &BNo existe la lista de precios =B4No existe cotizacin de la moneda para la fecha dada  F)B No se pudo leer la fecha enviada  BB9El campo DIVISAS tiene que ser SI, NO o una cadena vaca. cBError no clasificado 2&BCError no clasificado UTHIS COD_ERROR MSG_ERRORMJTCjson_o_Pedidos_Vendedoravfp_objects_definiciones.prgUTHISPEDIDOS CUOJSONTHISPEDIDOSIMPORTAR_DESDE_OJSONMJTCjson_o_Pedidos_Vendedoravfp_objects_definiciones.prgUTHISPEDIDOS CUOJSONTHISPEDIDOSIMPORTAR_DESDE_OJSONp )TCa(]&T {error: ''} BUOEXTHISESTADO_GENERAL NFJSONCREATEOESTADO_GENERALMESSAGEQJSON_ESTADO_GENERALT 'TCavfp_objects.dll,TCavfp_objects_mini.dllTT  T C 8U OEGTHISOESTADO_GENERAL CARGAR_DATOS FECHA_AGES GET_FECHAFECHA_AGES_MINI DIR_SYSTEMP_SYSTEM DIR_LOCALP_LOCAL VERSION_EXE P_VERSION_EXE xT\ STCX(tT(T BUXARCHIVOXFILEOEXXFECHAP_LOCALXRETOEX2  TC4 T\C TCCg(TError: (TError:  BU XARCHIVOXFILEOEXXITAARRP_LOCALXRETMESSAGEOEX2 Leer_QStringPClonarse_PropioSetear_ValoresObtener_JSON_Puro5Agregar_ValoresJSON_Asignar_Valores Leer_QString!Clonarse_Propio iniciar agregar_pedido_consulta# agregar_pedido_con_error agregar_pedido_vendedor agregar_pedido_registradoagregar_pedido_existente agregar_errorimportar_desde_ojson:obtener_status_recibir|msg_error_access"iniciarNimportar_coleccionesiniciarimportar_coleccionesjEstado_General_Access Cargar_Datosy Get_Fecha get_version $ T  UQ_TEXTOT T T T T T T .Q    U FECHAPEDIDOS SUMA_IMPORTESFCSNCSNDS FACTURACIONINFORMES COLLECTION TafTLParameter xLocFile, oResp C  DO (xLocFile)C oResp.Res_Mensaje='Ejecutado'5T(xret=EXECSCRIPT(xMacro, xLocFile, oResp)U AUTOCODIFICAR RES_MENSAJE RES_OBJECT T Ta T T T T T T T T a T   U Q_TEXTO Q_CON_STOCK Q_DEPOSITOQ_MAXQ_CODQ_BULQ_ATRQ_CLASEQ_MARBONQ_EXACTO Q_DISPONIBLEh T-    UPEDIDOSU T T T T T T T TT T  T  T  T  U VENDEDOR PEDIDO_GES PEDIDO_VEN PEDIDO_IDVCOD_CLICTRL_GESCTRL_VENESTADO FECHA_GESMENSAJEPROCESO COD_ERROR MSG_ERROR" T-  UPEDIDOS" T-  UPEDIDOSD T T T T TUENVIOVENDEDOR ENCABEZADODETALLETIPOUTT T T T .Q T    U FECHA_AGESFECHA_AGES_MINI DIR_SYSTEM DIR_LOCAL VERSION_EXEOESTADO_GENERALJSON_ESTADO_GENERALESTADO_GENERALJSON_o_modelo_pedido)JSON_Pedido:avfp_objects_definiciones.prg"json_o_informe_diario-JSON_Respuestas:avfp_objects_definiciones.prg" JSON_Macro)JSON_Pedido:avfp_objects_definiciones.prg#JSON_o_stock_buscar_arts8JSON_Trafico_AutoIniciable:avfp_objects_definiciones.prg$json_o_pedidos_vendedor-JSON_Respuestas:avfp_objects_definiciones.prg%json_respuesta_recibir_pedidos4json_o_pedidos_vendedor:AVFP_OBjects_Intercambio.prg"&json_o_pedido_vendedor*json_objetos:avfp_objects_definiciones.prg-&!json_o_consultar_pedidos_vendedor*json_objetos:avfp_objects_definiciones.prgw')json_respuesta_consultar_pedidos_vendedor-JSON_Respuestas:avfp_objects_definiciones.prg'JSON_o_recibir_pedidos*json_objetos:avfp_objects_definiciones.prg'JSON_Estado_General-Estado_General:sys_clases_actualizaciones.prgU(JSON_Estado_AGES-JSON_Respuestas:avfp_objects_definiciones.prg`(4qaQ2q1>2q11RAq1QAA2qAA2q 1qaAqAAaqqQ2q1111111111172QA2121QaaaaaaaaaaA2qA2qr2QaaaA2qqAAAA2qAaaaAAAA@1aaaaaaaaaaaa!aaA52qa62qap1qaA2q!2qb11A1A2qAa1AA241;aQ1>01211544121  1?f ^#'=.` E93qGZT{V]`0q5.t^wJA#$())})2))5**=+b+@!..Z/20cT0H1ml12 m j  v Q" V1YK#?##@%$(P))0Tw*l+;X+y,E^,,O_:-2Q%(,M)RXTMAX$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T U XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPRECEPCIONES_POR_LOTE G(9 $,sys_procesando Inicializando%C tmp_recep_autzQ%CtemporalQ C in_comienzo 5 T aG+(sys_log+T Cloguear_imp_exp_recepcionesN% 7<(omotinv% LCError: C GC71 - No est definido el motivo de recepcin por defecto hCX2 - No hay motivos del tipo RECEPCION en la tabla de motivos de movimiento de inventario  T - 3% *%CCmotinvcodigoT C 7C'Error: motivo no encontrado (imposible)  T - /CError: C GC71 - No est definido el motivo de recepcin por defecto C٧2 - Hay ms de un motivo del tipo RECEPCION en la tabla de motivos de movimiento de inventario, solo se admite 1 si no est definido el motivo de recepcin por defecto  T - #%C motinvcodigo%z qCTError: El motivo por defecto no es del tipo RECEPCION (in_recepciones_x_lote_motivo=CC Z)  T - {bCEError: El motivo por defecto no existe (in_recepciones_x_lote_motivo=CC Z)  T -% %C tmp_motivosQ T TC]"T\recepciones.xlsx%C0 \4C No se ha encontrado el archivo:   T -% [%C9Est seguro de importar las recepciones desde el archivo C ?%CF C #COperacin cancelada sys_procesando C < %C tmp_recep_autwQ%CtemporalQBU ACTIVEFORM DATASESSIONID SP_MENSAJESYS_PROCESANDO TMP_RECEP_AUTTEMPORALABRIR_TABLAS_FIJAS OPEN_FILES IN_COMIENZOXOKXMOTIVOSYS_LOGOLOGP_IN_RECEPCIONES_X_LOTE_MOTIVOARR_MOTCODIGODESCRMOTINVTIPOLOG TMP_MOTIVOSXTABLA XARCHIVO_XLS P_DIR_IMPORT MENSAJE_SINO OBTENER_DATOSPROCESOSP_OCULTAR_DEFINITIVAMENTEABRIR%Cstock (Qstock%Cstkxdep XQstkxdep%Cdeposito Qdeposito%Ccentral Qcentral%Cconver Qconver%Cmotinv Qmotinv%Cbienes DQbienes%Catributo vQatributo%Cbultos QbultosBU STOCKSTKXDEPDEPOSITOCENTRALCONVERMOTINVBIENESATRIBUTOBULTOS4F"-  %C4WTJLa cantidad aprobada no debe ser superior a la recibida ni menor que 0 !!! T-B- '%Cdepositodeposito=% S'%Cdepositodeposito'%CdepositodepositoM 0T#Depsito de rechazo inexistente !!! T-B- 3T&Depsito de aprobacin inexistente !!! T-B- 9-T Depsito de calidad invlido !!! T-B- 0T#Depsito de calidad inexistente !!! T-B- T TaBaU XERRXMSGXDEPOSITO_CALIDADXDEPOSITO_APROBACIONXDEPOSITO_RECHAZO TABLA_CALIDADCAN_CALCANDEPOSITOCALIDAD%F >     C S 6C S 6 C]CtcomprasOBU XCANTIDADTEMPORALCODIGO TMP_RECEP_AUTCOD_INSATRBULDESCRXDESCRDEPINGDEPOSITOENTRABULTOSBIENES ATRIBUTOSDATRDBULLOTESIDUREGISTROOCOCITMXITM DCODATRBULCOD_PROTCCCOMP7TCC >BUOIMPXVALIDO TMPIMPDBFIDVALIDO1sys_procesandoImportando archivo C Importando: C T-  TaT  tmp_recep_autWin_recepciones_x_loteJ aa C C  T -F%CN=CImportacin finalizada: CCCNZ registros Ta($CError de importacin BU SP_MENSAJESYS_PROCESANDOXOKXCUENTA_VALIDOSXCUENTA_INVALIDOSXIMPORTARINVALIDOSOLOGLOG XARCHIVO_XLSAGREGAR_ARCHIVOXALIAS_SALIDA1IN_RECEPCIONES_X_LOTEOIMPXLS_INICIAR_IMPORTACIONCOMMAND1CLICK TMP_RECEP_AUTOEXA TTC]T\tmp\+in_operacionestemporalCProceso%%Cq_ordenes_imp_x_loteQbo tmp_recep_aut Q C Q   q_ordenes_imp_x_lote%CN T C$F ~ T1TOC: C Z ID:  T %C 'CLa fecha est vaca T  T T&proc_stk %OC T %C .CEl ID no puede estar vaco T TC <)oconver2 % tC!Ya existe la operacin con el ID C , Operacin: CCCZ Fecha: CC* T  TC  %TC recepciones.1TC recepciones - C .[ E=((` TCCC El archivo C ha sido renombrado a C .CNo hay registros para importar T%%Cq_ordenes_imp_x_lote1Q BU XRESULTADOXTABLA_TEMPORALXPATHP_LOCALCREAR_TABLA_TEMPORALIN_OPERACIONESSYS_MQ_ORDENES_IMP_X_LOTEOCIDID_EXT_CFECHA TMP_RECEP_AUTXFECHA_PROCESOXMSG_AUXOLOGLOGXERRORXMENSAJEVALIDAR_FECHA_OPERACIONPROC_STKXMOTIVO XID_EXT_C ARR_CONVERTRANSFCONVER2 TRANSACCIONXAT XARCHIVO_XLSXNEWFILE_OEX _OEX_DUMMY 6sys_procesandoProcesando OC: CCZC Transaccin T-F%CN ST  T  T  T -F9~C C   ) T  T-1T  OC: C Z ID: T    T  T -T (%Ctcccomptcccord%N'%CtcomprasordenA T T T-4listados T  Itm: CT   TCCT  Depsito: T   %%Cdeposito Qdeposito'%CdepositodepositoT TF+C+  ;%    pT !"% T# l% /T#C$ T hT#C $T  zFH%%G2%CCZCZtcomprasordenitmC$ C;C 'Problema al buscar el registro en la OC%& Ta 7C #No se encontr el artculo en la OC%& Ta (C Depsito inexistente%& Ta =LC 8Artculo invlido (no existe o no tiene definido BUL/ATR%& Ta 6C "No se encontr el detalle de la OC%& Ta +C La OC no est pendiente%& Ta (C No se encontr la OC%& TaT   % SC OK%&% w T' T( T)T*+, T-C/T.CC-CCC- [: R T/)sys_procesando Procesando T0 T1 T/ T2+3in_operaciones2%/ C%&QC9Se ha registrado la recepcin con el nmero de operacin CC1Z%&C%&CC-dQ%& s C%&CError: C2%&C%&CC-dQ%& T/  C%&TC<Hubo errores, no se puede registrar la recepcin para la OC CCZ%&C%&CC-dQ%& T/ a .CNo hay registros para importar%& T/5sys_procesando B/U6 XOC_LOCALXFEC XID_EXT_C SP_MENSAJESYS_PROCESANDOSYS_MXERRORES TMP_RECEP_AUTTEMPORALXOLDXMSG_AUX XMSG_AUX_OLD XERRORES_OCCOD_INSOCIDTCCCOMPPENDXDESCRXCODFULL XOK_CODIGOARTICULO_FULL_DESCRLISTADOSATRBUL XDEPOSITODEPOSITO XCANTIDAD RECEPCIONXITMTCOMPRASORDENXSALDORECEP2RECEP3ITMAGREGAR_REGISTROOLOGLOGXFECHAXDEPINGXDEPEGRXTIPOMOTINVTIPO XFECHAHORAXREMITO XRESULTADOXOCXNEWTRF XMSG_ERROR WRITE_DATAIN_OPERACIONESSP_OCULTAR_DEFINITIVAMENTErecepciones_por_lote open_files validar_datos_form agregar_registro IMP_Validar_Fila  obtener_datosoprocesoB transaccionBQB2Art5AAAbrr2q"bq!BqAbqq AA1aA!AAAA"!AArB1AArAAC3rA1AAA1A!A!A!AAA!AB2qr"qqqqqqqA1qAqAqAAq2qrQD4qqRA32rr"BAA2BRA""r1Bqa2ABRr"AAAAAB2A1BARA2drr"r1qqC 1r1AAqr21AABrAA22#AqAAAAaAAABBaA2aaAAaAA1* &kA !@7l( B)8$UP$f:0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0DV0ONJXF 715947418/F] WINDOWS _0DV0ONJXP1458211406TAE= WINDOWS _0DV0ONJXF 812938715""%"8"E"=3" WINDOWS _0DV0ONJXF1458211406"03"33I2 WINDOWS _0DV0ONJXQ1458211406<2/2!22a1 WINDOWS _14D0NZQEC1429364444T1G191,100w@ WINDOWS _1700UHHX7 812938715x0f0[0N0 0&% WINDOWS _1700UHHX9 812939548%%%%$ WINDOWS _1700UHHXA 812938715$$$$# WINDOWS _4QA13SVJ91227789422####" COMMENT RESERVED "]VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11 formulario clases.vcxformForm1BorderStyle = 2 Height = 47 Width = 345 Desktop = .T. ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "Form1" ControlBox = .T. Closable = .T. ClipControls = .F. TitleBar = 0 AlwaysOnTop = .T. BackColor = 255,255,255 value = 0 sub_max = 100 sub_min = 0 sub_texto = ('Iniciando...') sub_value = 0 sub_umbral = 1 sub_height = 95 debug_time_proc = ('Proc') debug_time_path = maxpasado = 0 autonumerar = .F. verbose = 0 log_aut = .F. Name = "Form1" PROCEDURE min_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.min = m.vNewVal try this.olecontrol1.min=m.vNewVal CATCH ENDTRY ENDPROC PROCEDURE max_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.max = m.vNewVal try this.olecontrol1.max=m.vNewVal this.label2.Caption ="Progreso: " CATCH ENDTRY ENDPROC PROCEDURE value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method if between(m.vNewVal,1,this.max) THIS.value = m.vNewVal try this.olecontrol1.value=m.vNewVal CATCH ENDTRY ELSE TRY IF p_dev THEN this.maxpasado = this.maxpasado +1 this.label2.Caption ="P "+ALLTRIM(STR(this.value)) +"/"+ALLTRIM(STR(this.maxpasado )) +": " ENDIF CATCH ENDTRY endif ENDPROC PROCEDURE texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.texto = m.vNewVal this.label1.caption=m.vNewVal IF thisform.Autonumerar THEN this.lbAutoNumeracion.caption="(" + ALLTRIM(STR(this.value))+" / "+ ALLTRIM(STR(this.Max)) + ")" ENDIF this.label1.refresh this.refresh IF this.log_aut THEN =log_aut_Verbose(this.verbose,,m.vNewVal) ENDIF IF thisform.debug_time THEN thisform.debug_time_output (4,this.texto ) ENDIF ENDPROC PROCEDURE refresh_force thisform.Refresh oDeyFunc.DEVENTS(.t.) && true ENDPROC PROCEDURE enabled_refresh_timer_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enabled_refresh_timer = m.vNewVal thisform.timer1.Enabled = m.vNewVal ENDPROC PROCEDURE push PARAMETERS xTexto AS STRING, xValue AS INTEGER, xMax AS INTEGER, xMin AS INTEGER THIS.pushed=.T. THIS.pushed_max = THIS.MAX THIS.pushed_min = THIS.MIN THIS.pushed_texto = iif( vartype(THIS.texto)="C",THIS.texto,"") THIS.pushed_value = THIS.VALUE THIS.set_full(xTexto,xValue,xMax,xMin) ENDPROC PROCEDURE pop IF this.pushed THEN this.max=this.pushed_max this.min=this.pushed_min this.texto=this.pushed_texto this.value =this.pushed_value this.pushed=.f. ENDIF ENDPROC PROCEDURE avance PARAMETERS xTexto, xValue , xforzar SET PROCEDURE TO Dey_func ADDITIVE xTexto=Chk_Value(xTexto,THIS.texto ,"C") xValue=Chk_Value(xValue,this.value+1,"N") this.value=xValue this.Texto=xTexto IF xforzar THEN this.lABEL1.Refresh ENDIF ENDPROC PROCEDURE set_and_show PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER this.set_full(xTexto,xValue,xMax,xMin) if type("p_sys_procesando")="O" and p_sys_procesando.visible this.Visible=.f. else this.Visible=.t. and not p_SinInterfaz endif ENDPROC PROCEDURE set_full PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER SET PROCEDURE TO Dey_func ADDITIVE xTexto=Chk_Value(xTexto,THIS.texto ,"C") xValue=Chk_Value(xValue,THIS.VALUE ,"N") xMax=Chk_Value(xMax,THIS.MAX,"N") xMin=Chk_Value(xMin,THIS.MIN,"N") IF xMax<2 THEN xMax=2 ENDIF THIS.texto = xTexto THIS.MAX=xMax THIS.MIN=xMin THIS.VALUE = xValue thisform.Refresh ENDPROC PROCEDURE sub_max_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_max = m.vNewVal thisform.sub_evaluar_porc ENDPROC PROCEDURE sub_min_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_min = m.vNewVal thisform.sub_evaluar_porc ENDPROC PROCEDURE sub_texto_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_texto = m.vNewVal thisform.sub_label.caption=m.vNewVal ENDPROC PROCEDURE sub_value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.sub_value = m.vNewVal IF this.sub_value > this.sub_umbral THEN thisform.pb2.value=thisform.pb2.value+1 this.sub_value = 0 ENDIF ENDPROC PROCEDURE sub_avance this.sub_value=this.sub_value+1 ENDPROC PROCEDURE sub_set_and_show PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER this.sub_set_full(xTexto,xValue,xMax,xMin) if type("p_sys_procesando")="O" and p_sys_procesando.visible this.Visible=.f. else this.Visible=.t. and not p_SinInterfaz endif this.Height = thisform.sub_height ENDPROC PROCEDURE sub_set_full PARAMETERS xTexto AS STRING ,xValue AS INTEGER ,xMax AS INTEGER ,xMin AS INTEGER SET PROCEDURE TO Dey_func ADDITIVE xTexto=Chk_Value(xTexto,THIS.sub_texto ,"C") xValue=Chk_Value(xValue,THIS.sub_VALUE ,"N") xMax=Chk_Value(xMax,THIS.sub_MAX,"N") xMin=Chk_Value(xMin,THIS.sub_MIN,"N") IF xMax<2 THEN xMax=2 ENDIF THIS.sub_texto = xTexto THIS.sub_MAX=xMax THIS.sub_MIN=xMin THIS.sub_VALUE = xValue this.pb2.value=this.pb2.min ENDPROC PROCEDURE sub_evaluar_porc xDif=This.sub_max-this.sub_min thisform.sub_umbral = xDif /100 ENDPROC PROCEDURE sub_hide this.Height = thisform.sub_orig_height ENDPROC PROCEDURE debug_time_set LPARAMETERS xEnabled, xProc, xFile, xPath SET PROCEDURE TO Dey_Func ADDITIVE IF NOT p_Debug_estado THEN xEnabled=.f. ENDIF xEnabled=chk_Value(xEnabled,.t.,"L") xProc=chk_Value(xProc,thisform.debug_time_proc,"C") IF thisform.debug_time THEN xFile=chk_Value(xFile,thisform.debug_time_file,"C") ELSE xFile=chk_Value(xFile,TTOC(DATETIME(),1) +".dbg","C") xPath=chk_value(xPath,thisform.debug_time_path ,"C") xFile=xPath+xFile Endif DO CASE CASE xEnabled AND NOT thisform.debug_time && Inicio thisform.debug_time_file = xFile thisform.debug_time_proc = xProc thisform.debug_time = .t. Thisform.debug_time_output (1) CASE NOT xEnabled AND thisform.debug_time && Fin Thisform.debug_time_output (2) thisform.debug_time = .F. CASE xEnabled AND thisform.debug_time && Reseteo Thisform.debug_time_output (2) thisform.debug_time_file = xFile thisform.debug_time_proc = xProc Thisform.debug_time_output (1) CASE NOT xEnabled AND NOT thisform.debug_time && NADA thisform.debug_time_file = xFile thisform.debug_time_proc = xProc ENDCASE ENDPROC PROCEDURE debug_time_output LPARAMETERS xTipo, xTexto LOCAL xHnd,xWrite,xSECT IF FILE(thisform.debug_time_file ) && Does file exist? xHnd= FOPEN(thisform.debug_time_file ,12) && If so, open read/write = FSEEK(xHnd,0,2) ELSE xHnd = FCREATE(thisform.debug_time_file) && If not, create it ENDIF xSECT=SECONDS() DO CASE CASE xTipo=1 xTexto="Inicio del proceso." thisform.debug_time_init = xSECT thisform.debug_time_last = xSect CASE xTipo=2 xTexto="Fin del proceso." ENDCASE IF xHnd < 0 && Check for error opening file RETURN .f. ELSE && If no error, write to file xWrite=Thisform.debug_time_proc + ";" + STR(xSECT,12,3) + ";" + STR(xSECT-thisform.debug_time_init,12,3) + ";" + STR(xSECT-thisform.debug_time_Last,12,3) + ";" + TTOC(DATETIME(),2) + ";" + xTexto =FPUTS(xHnd,xWrite) ENDIF thisform.debug_time_last = xSECT =FCLOSE(xHnd) && Close file ENDPROC PROCEDURE Init thisform.sub_orig_height = thisform.Height IF type("p_Debug_Estado_Path")#"C" or p_Debug_Estado_Path=='' THEN IF type("p_Local")#"C" p_local=SYS(5)+SYS(2003) ENDIF p_Debug_Estado_Path = p_Local + "\TMP\" ENDIF thisform.debug_time_path = p_Debug_Estado_Path thisform.debug_time_File = thisform.debug_time_path + TTOC(DATETIME(),1)+".DBG" ENDPROC  olecontrol olecontrol Olecontrol1Form1DTop = 24 Left = 4 Height = 18 Width = 336 Name = "Olecontrol1" .OLEObject = C:\Windows\SysWOW64\mscomctl.ocx label!Arial, 0, 9, 5, 15, 12, 32, 3, 0 FontSize = 8 Alignment = 1 BackStyle = 0 Caption = "" Height = 17 Left = 252 Top = 7 Width = 91 ForeColor = 0,0,255 Name = "lbAutoNumeracion" Form1lbAutoNumeracionlabellabelAutoSize = .T. FontBold = .F. FontSize = 8 BackStyle = 1 Caption = "Registro:" Height = 16 Left = 7 Top = 52 Width = 45 BackColor = 255,255,255 Name = "Label4" Form1Label4labellabelAutoSize = .F. FontBold = .F. FontSize = 8 BackStyle = 1 Caption = "Iniciando..." Height = 17 Left = 60 Top = 52 Width = 283 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "sub_label" Form1 sub_labellabellabel.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx  ࡱ> Root EntryЭAkOleObjectData`AccessObjSiteData&\ChangedPropsy":5j(6(!C4"Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1MAXN Y@MINN  8MousePointer I OLEDropMode I  Root EntryЭAkOleObjectData`AccessObjSiteData&\ChangedPropsy":5j(6(!C4"zDͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1MAXN @@@MINN  8MousePointer I OLEDropMode I *min max value Especifica el estado actual de un control. texto enabled_refresh_timer pushed_max pushed_value pushed_texto pushed_min pushed sub_max sub_min sub_texto sub_value sub_umbral sub_height sub_orig_height debug_time debug_time_proc debug_time_file debug_time_path debug_time_init debug_time_last maxpasado autonumerar Si se pone en .T. agrega al final del texto el nro actual verbose log_aut *min_assign *max_assign *value_assign *texto_assign *refresh_force *enabled_refresh_timer_assign *push *pop *avance *set_and_show *set_full *sub_max_assign *sub_min_assign *sub_texto_assign *sub_value_assign *sub_avance *sub_set_and_show *sub_set_full *sub_evaluar_avance *sub_evaluar_porc *sub_hide *debug_time_set *debug_time_output "%^smU UTHISFORM REFRESH_FORCETimer011()}"ddf%UIT 8T BUVNEWVALTHISMIN OLECONTROL1fT UT T Progreso: _UVNEWVALTHISMAX OLECONTROL1LABEL2CAPTION%C bT TT ^  %T6TP CCZ/CCZ:  U VNEWVALTHISMAXVALUE OLECONTROL1P_DEV MAXPASADOLABEL2CAPTIONT T %v6T(CCZ / CC Z)   % C %CUVNEWVALTHISTEXTOLABEL1CAPTIONTHISFORM AUTONUMERARLBAUTONUMERACIONVALUEMAXREFRESHLOG_AUTLOG_AUT_VERBOSEVERBOSE DEBUG_TIMEDEBUG_TIME_OUTPUT CaUTHISFORMREFRESHODEYFUNCDEVENTS1T T UVNEWVALTHISENABLED_REFRESH_TIMERTHISFORMTIMER1ENABLED>4QSTRINGQINTEGERQINTEGERQINTEGERTaTT ,T CC C  6T  CUXTEXTOXVALUEXMAXXMINTHISPUSHED PUSHED_MAXMAX PUSHED_MINMIN PUSHED_TEXTOTEXTO PUSHED_VALUEVALUESET_FULLs%lTTTT T-U THISPUSHEDMAX PUSHED_MAXMIN PUSHED_MINTEXTO PUSHED_TEXTOVALUE PUSHED_VALUE4G+(Dey_funcTCC TCNTT%  U XTEXTOXVALUEXFORZARDEY_FUNC CHK_VALUETHISTEXTOVALUELABEL1REFRESH>4QSTRINGQINTEGERQINTEGERQINTEGERC0%Cp_sys_procesandobO T- Ta U XTEXTOXVALUEXMAXXMINTHISSET_FULLP_SYS_PROCESANDOVISIBLE P_SININTERFAZ1>4QSTRINGQINTEGERQINTEGERQINTEGERG+(Dey_funcTCCTCNTC NTC N% TTT T T U XTEXTOXVALUEXMAXXMINDEY_FUNC CHK_VALUETHISTEXTOVALUEMAXMINTHISFORMREFRESH&T UVNEWVALTHISSUB_MAXTHISFORMSUB_EVALUAR_PORC&T UVNEWVALTHISSUB_MINTHISFORMSUB_EVALUAR_PORC1T T UVNEWVALTHIS SUB_TEXTOTHISFORM SUB_LABELCAPTIONfT %_TTUVNEWVALTHIS SUB_VALUE SUB_UMBRALTHISFORMPB2VALUETUTHIS SUB_VALUE>4QSTRINGQINTEGERQINTEGERQINTEGERC0%Cp_sys_procesandobO T- Ta T  U XTEXTOXVALUEXMAXXMINTHIS SUB_SET_FULLP_SYS_PROCESANDOVISIBLE P_SININTERFAZHEIGHTTHISFORM SUB_HEIGHT@>4QSTRINGQINTEGERQINTEGERQINTEGERG+(Dey_funcTCCTCNTC NTC N% TTT T TT  UXTEXTOXVALUEXMAXXMINDEY_FUNC CHK_VALUETHIS SUB_TEXTO SUB_VALUESUB_MAXSUB_MINPB2VALUEMIN.TTd UXDIFTHISSUB_MAXSUB_MINTHISFORM SUB_UMBRALTUTHISHEIGHTTHISFORMSUB_ORIG_HEIGHTCG+(Dey_Func% @ T-TCaLTCC% TC C 'TCCC.dbgCTC CTH<  pT TT aC   C T -  C T TC   <T TU XENABLEDXPROCXFILEXPATHDEY_FUNCP_DEBUG_ESTADO CHK_VALUETHISFORMDEBUG_TIME_PROC DEBUG_TIMEDEBUG_TIME_FILEDEBUG_TIME_PATHDEBUG_TIME_OUTPUT %C0TTC C pTC TCH  TInicio del proceso.TT TFin del proceso.% 2B- iT ;C Z;C Z;C Z;CC;CT CU XTIPOXTEXTOXHNDXWRITEXSECTTHISFORMDEBUG_TIME_FILEDEBUG_TIME_INITDEBUG_TIME_LASTDEBUG_TIME_PROCT4%Cp_Debug_Estado_PathbC %Cp_LocalbCzTC]C]T\TMP\T%TCC.DBGUTHISFORMSUB_ORIG_HEIGHTHEIGHTP_DEBUG_ESTADO_PATHP_LOCALDEBUG_TIME_PATHDEBUG_TIME_FILE min_assign0 max_assign value_assignB texto_assign refresh_forceenabled_refresh_timer_assignepushpop8avance  set_and_showset_full& sub_max_assign sub_min_assign# sub_texto_assign sub_value_assign sub_avance sub_set_and_show sub_set_full&sub_evaluar_porcsub_hideHdebug_time_setdebug_time_outputzInit1q"QA2q"QA3q"QAqaAAB4q"Q!aA"qA"aA22q"Q21114"1111A2"A2aA3!1A4q"2q"2q"Q2q"A2q3aA24!1A2qA3221"Ar"qAA4BQ!A11A3qA31BaBaAQ2 .!Q-0Aq@37D7R|J??WG\W aQz oY 0 {hU l r p !tH{@a}Inm#)d%  U;sCCWs"Hoy&s"Primer da del mes&s"ltimo da del mes"1sys_fecha=date()N1<sys_fecha=evl(sys_fecha,date())-day(evl(sys_fecha,date()))+11sys_fecha=iif(month(sys_fecha)=12, date(year(evl(sys_fecha,date())), 12, 31), date(year(evl(sys_fecha,date())), month(evl(sys_fecha,date()))+1, 1)-1)tU MENEMERGEAqaa!q 1%seibUY/4  %   _BC / UXMENSAJEXTIPOXTIEMPOXTITULOXSOLOLOG XMENSAJELARGO XLINK_MSG XNOMENSAJE XLOGLEVEL XBTNSALIR XNOTSUSPENDOP_DEV P_SUSPENDSYS_MMENSAJE!A10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _36Y0S0ZWG1049323666/F] WINDOWS _36Y0S0ZWH1482986507 'ʀ  WINDOWS _37S0VP8I01427198132 ! WINDOWS _36Y0TSWMP1434293804|!!!!!/"~ WINDOWS _36Z0TT7OK1434360727%%%%%%&y WINDOWS _36Y0S0ZWG1434287160(252G2V2`2}2 WINDOWS _36Y0S0ZWG14342868322233<33.I WINDOWS _36Z0M3SY214342873715S.-5H6P@ WINDOWS _36Y0S0ZWG1482986507-l-h@/A=r WINDOWS _36Y0S0ZWG14343516806.Od, WINDOWS _6HK0W7Z8N1435194990.---MfP]] WINDOWS _36Z0TT7OJ14343516802 WINDOWS _37Q1CCJ5U1434287371wlK WINDOWS _37S0U0PYN1434341789-11'LL' WINDOWS _68S11XLUJ1434287160 1000:0 WINDOWS _36Y0S0ZWG1434287160-0 00/X/ WINDOWS _37S0VP8I314271981321 WINDOWS _68O0VT170143435168051E1U1c1_. WINDOWS _36Y0S0ZWG14342868321.81> WINDOWS _68O0VT171143435168055}5N35R WINDOWS _36Y0S0ZWH1434286832#5554J4i WINDOWS _68S11XLUI14342871602442d4% WINDOWS _6EN0LMX541434286832%$`$"$ WINDOWS _36Z0Z90JS1427198132# WINDOWS _36Z0Z90JT1434286832|j`85hk COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1Height = 600 Width = 1021 DoCreate = .T. ShowTips = .T. Closable = .F. ologin = .F. oregcom = .F. ocpbt = .F. xtesting = .F. xcuit = ("30595185560") xdfec = ({^2011-01-01}) xhfec = (Date()) orsp_ptovta = .F. ofecontrol = .F. xcuit_propio = .F. xerror_sin = .F. xerror_con = .F. xdiferencia = (0.03) xtmpdif = 0 ologinx = .F. xcon_clientes = .T. xsin_clientes = .T. desde = (date()) hasta = (date()) errnum = (0) Name = "Formulario_acep_canc1" Command1.Top = 601 Command1.Left = 302 Command1.Anchor = 132 Command1.Enabled = .F. Command1.TabIndex = 37 Command1.Visible = .F. Command1.ZOrderSet = 2 Command1.Name = "Command1" Command2.Top = 549 Command2.Left = 480 Command2.Height = 28 Command2.Anchor = 260 Command2.Cancel = .T. Command2.Caption = "Cerrar" Command2.TabIndex = 31 Command2.ZOrderSet = 3 Command2.Name = "Command2" ayuda.Top = 1 ayuda.Left = 938 ayuda.TabIndex = 15 ayuda.ZOrderSet = 4 ayuda.Name = "ayuda" Text1.Left = 911 Text1.TabIndex = 14 Text1.Top = 0 Text1.ZOrderSet = 18 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 768 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.ZOrderSet = 5 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Name = "advertencia"  PROCEDURE iniciar_login LOCAL oTA, xCuit, xOk, xOk2 LOCAL xErrorMSG xOk=.T. xOk2=.T. RETURN xOK AND xOK2 ENDPROC PROCEDURE iniciar_objetos THISFORM.sb_actualilzar("Creando objetos...") LOCAL oTA ENDPROC PROCEDURE tabla_crear DO Tablas_Crear IN cm_fe_visualizar ENDPROC PROCEDURE sb_actualilzar LPARAMETERS xTexto, xPanel RETURN thisform.sb_actualizar (xTexto, xPanel) ENDPROC PROCEDURE armar_nrofac LPARAMETERS xTipo, xPtoVta, xNro, xCausa SET PROCEDURE TO FE_Funciones ADDITIVE LOCAL xStr, xLetra =TipoCPBT_Causa(xTipo, @xCausa, @xLetra) xStr="" xStr=xStr +xLetra+PADL(ALLTRIM(STR(xPTOVTA)),5,"0")+"-"+PADL(ALLTRIM(STR(xNro)),8,"0") *A01-00000344 RETURN xSTR ENDPROC PROCEDURE dynbackcolor LPARAMETERS xGrilla, xALIAS IF TMPSWCPBT.Error=0 THEN RETURN RGB(255,255,255) endif IF TMPSWCPBT.Error>0 THEN RETURN RGB(255,200,200) ENDIF ENDPROC PROCEDURE set_filtro SELECT TMPSWCPBT DO case CASE thisform.ck_con.Value AND thisform.ck_sin.Value xFil="" CASE thisform.ck_con.Value xFil="TMPSWCPBT.Error>0" if thisform.errnum#0 xFil="TMPSWCPBT.Error="+alltrim(str(thisform.errnum)) endif CASE thisform.ck_sin.Value xFil="TMPSWCPBT.Error=0" OTHERWISE xFil="" ENDCASE SET FILTER TO &xFil thisform.grilla1.Refresh ENDPROC PROCEDURE comprobar_cpbts SET PROCEDURE TO fe_funciones, cm_fe_visualizar ADDITIVE DO comprobar_cpbts in cm_fe_visualizar WITH "TMPSWCPBT", thisform.xdiferencia, thisform.desde, thisform.hasta thisform.Refresh ENDPROC PROCEDURE comprobar_cpbt lparameters xde_exportacion DO comprobar_cpbt WITH "tmpswcpbt",thisform.xdiferencia, xde_exportacion ENDPROC PROCEDURE sb_actualizar LPARAMETERS xTexto, xPanel xTexto=EVL(xTexto,"") xPanel=EVL(xPanel,1) thisform.sbar.Panels(xPanel).Text = xTexto ENDPROC PROCEDURE Init LPARAMETERS xresultado THISFORM.grilla1.ANCHOR = 15 THISFORM.grilla_formato1.sql_crear_columnas () THISFORM.grilla_formato1.sql_filtro = "TMPSWCPBT.Error=0" ON ERROR THISFORM.inittimer.TIMER thisform.desde=date(year(date()), month(date()),1) thisform.hasta=date() ENDPROC PROCEDURE Load *=DODEFAULT() CLOSE TABLES ALL CLOSE DATABASES ALL IF TYPE("oDeyFunc") #"O" THEN DO Dey_Func2 WITH .T. ENDIF THISFORM.xtesting = p_fce_testing LOCAL xCuit_Propio xCuit_Propio= "" DO datos_empresa IN listados WITH , , , , , , xCuit_Propio xCuit_Propio=olocalizacion.cuit_numeros(xCuit_Propio) THISFORM.xCuit_Propio= xCuit_Propio THISFORM.xCuit = IIF(THISFORM.xtesting ,"20247602640",THISFORM.xCuit ) THISFORM.CAPTION = "Visualizacion de registros AFIP" SELECT 0 ENDPROC PROCEDURE Command2.Click thisform.grilla_formato1.queryUnload =DODEFAULT() ENDPROC "%;PLUURefresh0133)"%^wqU CUTHISFORM SET_FILTRO LostFocus011+)" u%^yU CUTHISFORM SET_FILTROInteractiveChange0113)"A%n|UTC UTHISENABLEDP_VE_IMP_CUENTAInit01117)" u%^yU CUTHISFORM SET_FILTROInteractiveChange0113)"|%= +UTUTHISFORMXTMPDIFTHISVALUEM%3 C TUTHISFORMXTMPDIFTHISVALUECOMPROBAR_CPBTSGRILLA1REFRESHGotFocus0 LostFocusn112A111Q)Grilla1Command7cPROCEDURE Click SET PROCEDURE TO fe_funciones ADDITIVE thisform.comprobar_cpbts () ENDPROC Formulario_acep_canc1Command4 olecontrol commandbuttoncheckbox commandbuttonFormulario_acep_canc1qHeight = 472 Left = 6 RowHeight = 18 TabIndex = 23 Top = 72 Width = 1008 ZOrderSet = 17 Name = "Grilla1"  imp_exp.vcx containerExportaciones1Formulario_acep_canc1 exportacionestextboxck_concheckboxgrillaform_controles.vcxTop = 42 Left = 749 Height = 17 Width = 70 AutoSize = .T. Alignment = 0 Centered = .F. BackStyle = 0 Caption = "Con error" ControlSource = "thisform.xError_Con" TabIndex = 10 ZOrderSet = 23 Name = "ck_con" AutoSize = .T. BackStyle = 0 Caption = "Mostrar" Height = 17 Left = 744 Top = 18 Width = 43 TabIndex = 17 ZOrderSet = 22 Name = "Label2" Label2labellabelArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 .OLEObject = C:\Windows\SysWOW64\mscomctl.ocx >PROCEDURE Refresh *** ActiveX Control Method *** ENDPROC ITop = 0 Left = 4 Height = 13 Width = 88 ZOrderSet = 17 Name = "PB"  Formulario_acep_canc1.Container1PB olecontrol olecontrolFormulario_acep_canc1 Container1 container containerFormulario_acep_canc1Text2ologin oregcom ocpbt xtesting xcuit xdfec xhfec orsp_ptovta ofecontrol xcuit_propio xerror_sin xerror_con xdiferencia xtmpdif ologinx xcon_clientes xsin_clientes desde hasta errnum *iniciar_login *iniciar_objetos ^xtipocpbt[20,4] *tabla_crear *tabla_agregar_cpbt *sb_actualilzar *armar_nrofac *dynbackcolor ^xptovta[99,3] *set_filtro *comprobar_cpbts *comprobar_cpbt *sb_actualizar shapeshapeShape1Formulario_acep_canc1rTop = 32 Left = 744 Height = 37 Width = 194 BackStyle = 0 SpecialEffect = 0 ZOrderSet = 0 Name = "Shape1" timertimer InitTimerFormulario_acep_canc1cTop = 552 Left = 300 Height = 25 Width = 24 Enabled = .F. Interval = 100 Name = "InitTimer" RPROCEDURE Timer LOCAL xOK xOK=.T. THIS.ENABLED = .F. THISFORM.sb_actualilzar ("Realizando la carga de datos...") THISFORM.tabla_crear THISFORM.iniciar_objetos IF NOT THISFORM.iniciar_login() THEN RETURN .F. ENDIF THISFORM.grilla_formato1.sql_refresh (THISFORM.grilla1) THISFORM.sb_actualilzar ("Listo.") ENDPROC Anchor = 12 Top = 587 Left = 930 Width = 96 Height = 12 BorderWidth = 0 Visible = .F. TabIndex = 36 ZOrderSet = 27 Name = "Container1" 6PROCEDURE LostFocus =Thisform.Set_Filtro() ENDPROC ControlSource = "thisform.errnum" Format = "z" Height = 25 InputMask = "9" Left = 823 TabIndex = 11 Top = 38 Width = 20 Name = "Text2" textboxtextboxaControlSource = "thisform.hasta" Format = "E" Left = 185 TabIndex = 8 Top = 12 Name = "th" grilla_formatoform_controles.vcxcustomGrilla_formato1Formulario_acep_canc1Top = 551 Left = 324 Height = 24 Width = 32 sql_noclose = .T. sql_noorder = .T. sql_alias = ("TMPSWCPBT") for_dynamics_coll = Name = "Grilla_formato1" PROCEDURE sql_crear_columnas this.for_add_columna () this.for_add_columna (,".origen","Origen",40,,,,,,,,,,,,1) this.for_add_columna (,".Tipo","Tipo",30,,"9999",,,,,,,,,,1) this.for_add_columna (,".ptovta","Pto.Vta.",50,,"99999",,,,,,,,,,1) this.for_add_columna (,".Numero","Nmero",80,,"99999999",,,,,,,,,,1) this.for_add_columna (,".Fecha",,70,,,,,,,,,,,,2) this.for_add_columna (,".Fecha_GES","Fecha GES",70,,,,,,,,,,,,2) this.for_add_columna (,".CUIT",,120,,,,,,,,,,,,2) this.for_add_columna (,".Nombre",,290) this.for_add_columna (,".IVA",,100,,"999,999,999.99",,,,,,,,,,1) this.for_add_columna (,".Difiva","Dif. IVA",100,,"999,999,999.99",,,,,,,,,,1) this.for_add_columna (,".Importe",,100,,"999,999,999.99",,,,,,,,,,1) this.for_add_columna (,".Difimp","Dif. IMP",100,,"999,999,999.99",,,,,,,,,,1) this.for_add_columna ("ErrorFLD",".Error","Err",20,,"999",,,,,,,,,,1) this.for_add_columna (,".ErrorMSG","Mensaje",320,,,,,,,,,,,,0) this.for_add_columna ("Ing_Resp",".Ing_Resp","Ing",20,,"999",,,,,,,,,,1) this.for_add_columna (,".Ing_MSG","Ing MSG",320) ENDPROC PROCEDURE for_dynamics LPARAMETERS xGrilla, xOtro this.for_dynamics_coll.add('"DynamicBackColor", "Thisform.DynBackColor()", "Column"') ENDPROC PROCEDURE evn_field_dblclick LPARAMETERS xCol LOCAL oCPBT, oCPBT2 SELECT TMPSWCPBT SCATTER NAME oCPBT MEMO SELECT TMPCPBTS SCATTER NAME oCPBT2 MEMO *DO FORM cm_fe_visualizar_cpbt WITH oCPBT, oCPBT2, Thisform ENDPROC "%U&G+( fe_funciones CU FE_FUNCIONESTHISFORMCOMPROBAR_CPBTSClick01a3X) commandbutton commandbuttonFormulario_acep_canc1textboxFormulario_acep_canc1Command6 commandbutton commandbuttonFormulario_acep_canc1Formulario_acep_canc1SbarTop = 555 Left = 599 Height = 17 Width = 100 Anchor = 12 AutoSize = .T. Alignment = 0 Centered = .F. BackStyle = 0 Caption = "Con Proveedor" ControlSource = "thisform.xCon_Clientes" TabIndex = 32 ZOrderSet = 23 Name = "Check1" AutoSize = .T. BackStyle = 0 Caption = "Dif. Mxima" Height = 17 Left = 6 Top = 42 Width = 65 TabIndex = 20 ZOrderSet = 21 Name = "Label1" Formulario_acep_canc1Label1labellabelAutoSize = .T. BackStyle = 0 Caption = "Periodo" Height = 17 Left = 6 Top = 15 Width = 45 TabIndex = 21 ZOrderSet = 21 Name = "Label4" Formulario_acep_canc1Label4labellabelFormulario_acep_canc1checkboxcheckboxCheck1Formulario_acep_canc1checkbox>PROCEDURE InteractiveChange =Thisform.Set_Filtro() ENDPROC Formulario_acep_canc1 tx_decimalgridthfechafecha clases.vcxtextboxtdFormulario_acep_canc1`ControlSource = "thisform.desde" Format = "E" Left = 74 TabIndex = 7 Top = 12 Name = "td"  commandbutton commandbuttonCommand5Formulario_acep_canc1Top = 504 Left = 346 Height = 25 Width = 73 Anchor = 6 Caption = "QUIT" TabIndex = 25 Visible = .T. ZOrderSet = 12 Name = "Command5" PROCEDURE Click thisform.grilla_formato1.queryUnload thisform.Release ENDPROC PROCEDURE Init thisform.Visible = p_dev ENDPROC Formulario_acep_canc1textbox clases.vcx>PROCEDURE InteractiveChange =Thisform.Set_Filtro() ENDPROC Formulario_acep_canc1ck_SincheckboxcheckboxBPROCEDURE Init this.Enabled=not EMPTY(p_ve_imp_cuenta) ENDPROC Formulario_acep_canc1Check2checkbox olecontrolvTop = 581 Left = 0 Height = 18 Width = 1020 TabIndex = 35 ZOrderSet = 15 Anchor = 14 Align = 0 Name = "Sbar"  ࡱ> Root Entry@Lp{nOleObjectDataxAccessObjSiteData&\ChangedPropsVg8j(6(!C4li~4ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1Style I MousePointer I OLEDropMode I >  56i,$.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx Top = 549 Left = 5 Height = 28 Width = 73 FontBold = .T. Anchor = 6 Caption = "Importar" TabIndex = 28 Visible = .T. ZOrderSet = 16 Name = "Command4" PROCEDURE Click SET PROCEDURE TO fe_funciones ADDITIVE *=sys_M("Importar") LOCAL xFile *xFile="d:\Users\diego\Desktop\GES\Importaciones\Comprobantes Emitidos - CUIT 30708161566 (3).xlsx" xFile="" DO FORM cm_fe_visualizar_importar.scx WITH "TMPSWCPBT2", xFile, .t. *=sys_M("Importar") if used("TMPSWCPBT2") INSERT INTO TMPSWCPBT ; (fce_tipo, tipo , ptovta, fac_ven, causa, numero, fecha, cuit, cod_pro, nombre, iva, iva5, importe, impneto, impopex, tipodoc, doctipo, docnro, servicio, origen) ; SELECT cbtetipo, cbtetipo, ptovta, "" , "" , CBTEDESDE, cbtefch, docnro, "", nombre, impiva * MONCOTIZ * iif(inlist(cbtetipo,3,8,13,203,208,213),-1,1) , impiva * MONCOTIZ * iif(inlist(cbtetipo,3,8,13,203,208,213),-1,1), imptotal * MONCOTIZ * iif(inlist(cbtetipo,3,8,13,203,208,213),-1,1), impneto * MONCOTIZ * iif(inlist(cbtetipo,3,8,13,203,208,213),-1,1), impopex * MONCOTIZ * iif(inlist(cbtetipo,3,8,13,203,208,213),-1,1), doctipo, doctipo, docnro, 0, "AFIP" ; FROM TMPSWCPBT2 endif replace in tmpswcpbt; tmpswcpbt.iva with abs(tmpswcpbt.iva) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.importe with abs(tmpswcpbt.importe) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.impneto with abs(tmpswcpbt.impneto) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.impopex with abs(tmpswcpbt.impopex) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.imptrib with abs(tmpswcpbt.imptrib) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.iva3 with abs(tmpswcpbt.iva3) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.iva4 with abs(tmpswcpbt.iva4) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.iva5 with abs(tmpswcpbt.iva5) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ,; tmpswcpbt.iva6 with abs(tmpswcpbt.iva6) * iif(inlist(tipo,3,8,13,203,208,213),-1,1) ; all thisform.grilla1.Refresh SET PROCEDURE TO fe_funciones ADDITIVE thisform.comprobar_cpbts () thisform.grilla1.Refresh ENDPROC S"::}%U  UTHISFORMGRILLA_FORMATO1 QUERYUNLOADRELEASETUTHISFORMVISIBLEP_DEVClick0Init131Kf~):Top = 42 Left = 868 Height = 17 Width = 65 AutoSize = .T. Alignment = 0 Centered = .F. BackStyle = 0 Caption = "Sin error" ControlSource = "thisform.xError_Sin" TabIndex = 12 ZOrderSet = 24 Name = "ck_Sin" Top = 552 Left = 360 Width = 24 Height = 28 Visible = .F. TabIndex = 24 ZOrderSet = 19 Name = "Exportaciones1" exportaciones_parametros.Name = "exportaciones_parametros" Alignment = 3 Value = 0 ControlSource = "thisform.xDiferencia" Format = "9.99" Height = 25 InputMask = "9.99" Left = 74 TabIndex = 4 Top = 38 Width = 73 ZOrderSet = 20 Name = "tx_decimal" PROCEDURE GotFocus thisform.xtmpdif = this.value ENDPROC PROCEDURE LostFocus IF thisform.xtmpdif # this.Value THEN =thisform.comprobar_cpbts () thisform.grilla1.Refresh ENDIF thisform.xtmpdif = this.value ENDPROC Top = 545 Left = 976 Height = 36 Width = 38 FontBold = .T. Anchor = 12 Picture = bmp\excel.ico Caption = "" TabIndex = 30 Visible = .T. ZOrderSet = 16 Name = "Command6" Top = 555 Left = 710 Height = 17 Width = 95 Anchor = 12 AutoSize = .T. Alignment = 0 Centered = .F. BackStyle = 0 Caption = "Sin Proveedor" ControlSource = "thisform.xSin_Clientes" TabIndex = 33 ZOrderSet = 24 Name = "Check2" AutoSize = .T. Top = 550 Left = 86 Height = 27 Width = 182 FontBold = .T. Anchor = 6 Caption = "Comprobar Grilla vs Sistema" TabIndex = 29 Visible = .T. ZOrderSet = 16 Name = "Command7"  PROCEDURE Click LOCAL nIt, xNum, xFile1, xFile2 LOCAL ARRAY xArFLD(1,1) SELECT TMPSWCPBT sum 1 to aaa if aaa=0 append blank endif xFile1=oDeyFunc.Newfile_Local_tmp() COPY TO (xFile1) WITH CDX xregistros1 = _tally SELECT TMPCPBTS sum 1 to aaa if aaa=0 append blank endif xFile2=oDeyFunc.Newfile_Local_tmp() COPY TO (xFile2) WITH CDX xregistros2 = _tally xregistros = xregistros1 + xregistros2 if empty(xregistros) or empty(xregistros1) mensaje("No hay registros para exportar !!!") return endif LOCAL xPar1 AS Exportaciones_Parametros OF F:\sistema\2000\imp_exp.vcx, xPar2 AS Exportaciones_Parametros OF F:\sistema\2000\imp_exp.vcx LOCAL xFor1 AS Exportaciones_Parametros_formato OF F:\sistema\2000\imp_exp.vcx, xFor2 AS Exportaciones_Parametros_formato OF F:\sistema\2000\imp_exp.vcx, xFor3 AS Exportaciones_Parametros_formato OF F:\sistema\2000\imp_exp.vcx LOCAL xCell AS Exportaciones_xls_celda OF F:\sistema\2000\imp_exp.vcx xCell=NEWOBJECT("Exportaciones_xls_Celda","IMP_EXP") xEXP=NEWOBJECT("Exportaciones","IMP_EXP") xPar1=NEWOBJECT("Exportaciones_Parametros","IMP_EXP") xPar2=NEWOBJECT("Exportaciones_Parametros","IMP_EXP") xFor=NEWOBJECT("Exportaciones_Parametros_Formato","IMP_EXP") xFor.num_format="###,###,##0.00" xFor.font_Bold=.T. xFor.font_color=RGB(0,0,0) xFor.Font_size=12 xReporte_Completo ="Reporte Final" WITH xPar1 .ex_titulo = "Comprobantes" .ex_archivo_entrada = xFile1 .ex_archivo_salida = "Reporte" .ex_archivo_plantilla="ejemplo" .ex_titulo_hoja="Comprobantes" && Nombre de la hoja .ex_anexar_limpia =.T. .ex_Anexar_Planilla= .T. .ex_Anexar_Archivo= xReporte_Completo .ex_XLS_Abrir=2 && 0 - Pregunta, 1-abre, 2-ni abre ni pregunta .ex_xls_campos_agregar() && Reset .ex_xls_campos_agregar("origen","Origen") .ex_xls_campos_agregar("Numero","Comprobante") .ex_xls_campos_agregar("fac_ven","Comprobante") .ex_xls_campos_agregar("Causa","Causa") .ex_xls_campos_agregar("Fecha","Fecha") .ex_xls_campos_agregar("Cod_pro","Proveedor") .ex_xls_campos_agregar("Nombre","Nombre") .ex_xls_campos_agregar("Cuit","Cuit") .ex_xls_campos_agregar("IVA","IVA") .ex_xls_campos_agregar("Importe","Importe") .ex_xls_campos_agregar("Error","Error") .ex_xls_campos_agregar("ErrorMSG","ErrorMSG") ENDWITH xEXP.parametros_coll.ADD(xPar1) xPar2=xPar1.Ex_copy () WITH xPar2 .ex_titulo = "Registros AFIP" .ex_archivo_salida = "AFIP" .ex_archivo_entrada = xFile2 .ex_anexar_limpia =.F. .ex_titulo_hoja="AFIP" .ex_XLS_Abrir=1 xNum=AFIELDS(xArFLD, "TMPCPBTS") .ex_xls_campos_agregar() && Reset FOR nIt=1 TO xNum .ex_xls_campos_agregar(LEFT(xArFLD(nIt,1),10),LEFT(xArFLD(nIt,1),10)) NEXT ENDWITH xEXP.parametros_coll.ADD(xPar2) *xPar2.parametros_coll.ADD(xPar2) **************************************************************************************** * Nuevo Parametro para controlar la apertura * 0 - Consulta si abre en el EXCEL * 1 - Abre directamente * 2 - No abre ni consulta, solo lo genera xPar2.ex_xls_abrir=1 * **************************************************************************************** *=sys_mostrar_screen("Suspendo?", .t.) =xEXP.exportar_xls_coll() &&ACA SE EXPORTA REALMENTE ENDPROC  " % n P UF K(%RTC ( T  F K(%TC ( T  T  %C C 6/C"No hay registros para exportar !!! BQEXPORTACIONES_PARAMETROSF:\sistema\2000\imp_exp.vcxQEXPORTACIONES_PARAMETROSF:\sistema\2000\imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATOF:\sistema\2000\imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATOF:\sistema\2000\imp_exp.vcxQ EXPORTACIONES_PARAMETROS_FORMATOF:\sistema\2000\imp_exp.vcxAQEXPORTACIONES_XLS_CELDAF:\sistema\2000\imp_exp.vcx1TCExportaciones_xls_CeldaIMP_EXP'TC ExportacionesIMP_EXP2TCExportaciones_ParametrosIMP_EXP2TCExportaciones_ParametrosIMP_EXP:TC Exportaciones_Parametros_FormatoIMP_EXPT###,###,##0.00TaTC^T T Reporte FinalTT ComprobantesTTReporteTejemploT  Comprobantes T!a T"aT#T$ C%CorigenOrigen%"CNumero Comprobante%#Cfac_ven Comprobante%CCausaCausa%CFechaFecha%!CCod_pro Proveedor%CNombreNombre%CCuitCuit%CIVAIVA%CImporteImporte%CErrorError%!CErrorMSGErrorMSG%C&'TC(dTRegistros AFIPTAFIPT T!-T AFIPT$TCTMPCPBTS C%(`+CCC =CC =%C&'T$ C)U*NITXNUMXFILE1XFILE2XARFLD TMPSWCPBTAAAODEYFUNCNEWFILE_LOCAL_TMP XREGISTROS1TMPCPBTS XREGISTROS2 XREGISTROSMENSAJEXPAR1FXPAR2XFOR1XFOR2XFOR3XCELLXEXPXFOR NUM_FORMAT FONT_BOLD FONT_COLOR FONT_SIZEXREPORTE_COMPLETO EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_ARCHIVO_PLANTILLAEX_TITULO_HOJAEX_ANEXAR_LIMPIAEX_ANEXAR_PLANILLAEX_ANEXAR_ARCHIVO EX_XLS_ABRIREX_XLS_CAMPOS_AGREGARPARAMETROS_COLLADDEX_COPYEXPORTAR_XLS_COLLClick0111r1QAr1QAAA r"!QQ!1rAA!!AAA2 )  ࡱ> Root Entry]p{n@OleObjectData`AccessObjSiteData&\ChangedProps":5j(6(!C4 XBͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA10HH"%=hLUG+( fe_funciones T=cm_fe_visualizar_importar.scx TMPSWCPBT2a%C TMPSWCPBT2Er TMPSWCPBT     o TMPSWCPBT2 CC խ6CC խ6CC խ6CC խ6CC խ6AFIP >CCC խ6CCC խ6CCC խ6CCC խ6 C CC խ6!C!CC խ6"C"CC խ6CCC խ6#C#CC խ6 %&'G+( fe_funciones C%( %&'U) FE_FUNCIONESXFILECM_FE_VISUALIZAR_IMPORTARSCXFCE_TIPOTIPOPTOVTAFAC_VENCAUSANUMEROFECHACUITCOD_PRONOMBREIVAIVA5IMPORTEIMPNETOIMPOPEXTIPODOCDOCTIPODOCNROSERVICIOORIGENCBTETIPO CBTEDESDECBTEFCHIMPIVAMONCOTIZIMPTOTAL TMPSWCPBT2 TMPSWCPBTIMPTRIBIVA3IVA4IVA6ALLTHISFORMGRILLA1REFRESHCOMPROBAR_CPBTSClick01as4A b2)"%3Ug C2C.origenOrigen(4C.TipoTipo9999;C.ptovtaPto.Vta.299999<C.NumeroNmeroP99999999)C.FechaF8C .Fecha_GES Fecha GESF(C.CUITxC.Nombre"7C.IVAd999,999,999.99DC.DifivaDif. IVAd999,999,999.99;C.Imported999,999,999.99DC.DifimpDif. IMPd999,999,999.99=CErrorFLD.ErrorErr9996C .ErrorMSGMensaje@@CIng_Resp .Ing_RespIng999'C.Ing_MSGIng MSG@UTHISFOR_ADD_COLUMNAX JC7"DynamicBackColor", "Thisform.DynBackColor()", "Column"UXGRILLAXOTROTHISFOR_DYNAMICS_COLLADD5 F ^JF ^JUXCOLOCPBTOCPBT2 TMPSWCPBTTMPCPBTSsql_crear_columnas0 for_dynamicsevn_field_dblclickD1"AqAAaq32qqr49\)"q%k zU TaT-/CRealizando la carga de datos...  %C ~B-C  CListo.U XOKTHISENABLEDTHISFORMSB_ACTUALILZAR TABLA_CREARINICIAR_OBJETOS INICIAR_LOGINGRILLA_FORMATO1 SQL_REFRESHGRILLA1Timer01qAqAbb2G) @"' ' \ %W  Wp UC Ta TaB UOTAXCUITXOKXOK2 XERRORMSG,"CCreando objetos...UTHISFORMSB_ACTUALILZAROTAcm_fe_visualizarU TABLAS_CREARCM_FE_VISUALIZAR# BCUXTEXTOXPANELTHISFORM SB_ACTUALIZARG+( FE_Funciones C T8TCCCZ0-CCCZ0 BUXTIPOXPTOVTAXNROXCAUSA FE_FUNCIONESXSTRXLETRATIPOCPBT_CAUSAf %3BC^%_BC^UXGRILLAXALIAS TMPSWCPBTERROR1FH"   G T TTMPSWCPBT.Error>0%(TTMPSWCPBT.Error=CCZ TTMPSWCPBT.Error=0 2 TSET FILTER TO &xFil U TMPSWCPBTTHISFORMCK_CONVALUECK_SINXFILERRNUMGRILLA1REFRESHv*G+( fe_funcionescm_fe_visualizar?cm_fe_visualizar TMPSWCPBT U FE_FUNCIONESCM_FE_VISUALIZARCOMPROBAR_CPBTSTHISFORM XDIFERENCIADESDEHASTAREFRESH+! tmpswcpbtUXDE_EXPORTACIONCOMPROBAR_CPBTTHISFORM XDIFERENCIAP TC TC TUXTEXTOXPANELTHISFORMSBARPANELSTEXTTC$TTMPSWCPBT.Error=0{ T CCC$iCC$H$T C$U XRESULTADOTHISFORMGRILLA1ANCHORGRILLA_FORMATO1SQL_CREAR_COLUMNAS SQL_FILTRO INITTIMERTIMERDESDEHASTA1%CoDeyFuncbO5 aT T/listadosTCT/T C 20247602640 6/T Visualizacion de registros AFIPFU DEY_FUNC2THISFORMXTESTING P_FCE_TESTING XCUIT_PROPIO DATOS_EMPRESALISTADOS OLOCALIZACION CUIT_NUMEROSXCUITCAPTION  CUTHISFORMGRILLA_FORMATO1 QUERYUNLOAD iniciar_login0iniciar_objetos tabla_crearsb_actualilzar6 armar_nrofac dynbackcolorw set_filtrocomprobar_cpbtscomprobar_cpbtj sb_actualizarInit[LoadjCommand2.Click 11q2!q32Q21ab2a!Aa!A2q!QaAQAr22q2112q2A2baAqQ31o  9u#,0<?4E7J<7MPEhM ^Tr t)' %s#HY|WbG_ G~(clases<5TCabm_prop_predetN BUXCODINSXBULXATRCLASESPOABMPROPPRESETSHOWTCCX TCCX TCCX ges%Cbienes FQbienescodins%Catributo FQatributo%Cbultos F Qbultos%C propiedades 5FQ propiedades%C prop_predet pFQ prop_predet%Cgrupos F QgruposBU XDATASESSIONIDXCOD_INSXBULXATRGESBIENESCODINSATRIBUTOBULTOS PROPIEDADES PROP_PREDETGRUPOS openfiles(TPropiedades predeterminadasT prop_predetTcodigoTcodigoThlpTabm_prop_predet T- T(TNombreT NombreT Nombre T T CodigoT CodigoTCdigo TTcod_insTcod_insT Cd. Prod. T TatrTatrTAtr T TbulTbulTBul T T T-UTITULOTABLACLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOCLAVE_BUSQUEDAORDENTITULO_BUSQUEDAANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1ANCHO2CLAVE_BUSQUEDA2ORDEN2TITULO_COLUMNA2ANCHO3CLAVE_BUSQUEDA3ORDEN3TITULO_COLUMNA3ANCHO4CLAVE_BUSQUEDA4ORDEN4TITULO_COLUMNA4 WINDOWTYPE SHOWWINDOW CERRAR_TABLASabm_prop_predethlpabm2drqB21QQQqAAA!A!AAB`121111111AAq4 [)>0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6EK10C1U21427015461/F] WINDOWS _6EK10C1U31434014151 ''  WINDOWS _6EK10C1U21434014123 WINDOWS _6EK10YBS51434014123 WINDOWS _6EK10YBS61434014123 WINDOWS _6EK10C1U31434014123 z] WINDOWS _6HF0LWSRZ1434014123PC5* WINDOWS _6HF0LWSS01434014123 ( COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 161 Width = 374 DoCreate = .T. Caption = "Modificar fecha probable de entrega" pedido = 0 Name = "Formulario_acep_canc1" Command1.Top = 132 Command1.Left = 125 Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 132 Command2.Left = 192 Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.TabIndex = 6 AYUDA.Name = "AYUDA" Text1.TabIndex = 7 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" lPROCEDURE validar if tccvent.pedido#xpedido if seek(xpedido, "tccvent", "tccvord") * ok else mensaje("Pedido no encontrado !!!") return .f. endif endif if xfecha_probable>=tccvent.fec_ven or xfecha_probable={} return .t. else mensaje("La fecha probable de entrega debe ser mayor a la fecha del pedido !!!") endif return .f. ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ControlSource = "tccvent.fec_ent" Enabled = .F. Format = "E" Height = 25 Left = 168 TabIndex = 2 Top = 60 DisabledForeColor = 0,0,0 Name = "Fecha2" Formulario_acep_canc1textbox clases.vcxfechaFormulario_acep_canc1Label3labellabelFormulario_acep_canc1Fecha1textboxfechaFecha2pedido labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha probable de entrega" Height = 17 Left = 9 Top = 92 Width = 153 TabIndex = 8 Name = "Label1" labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Pedido" Height = 17 Left = 9 Top = 36 Width = 41 TabIndex = 10 Name = "Label2" textboxtextboxText3Formulario_acep_canc1ControlSource = "xpedido" Enabled = .F. Format = "z" Height = 25 InputMask = "9,999,999,999" Left = 168 TabIndex = 1 Top = 32 Width = 130 DisabledForeColor = 0,0,0 Name = "Text3"  clases.vcxsControlSource = "xfecha_probable" Format = "E" Height = 25 Left = 168 TabIndex = 3 Top = 88 Name = "Fecha1" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha de entrega " Height = 17 Left = 9 Top = 64 Width = 103 TabIndex = 9 Name = "Label3" "%U%u%%Ctccventtccvord; q%CPedido no encontrado !!!B-'% Ba RCELa fecha probable de entrega debe ser mayor a la fecha del pedido !!!B-UTCCVENTPEDIDOXPEDIDOMENSAJEXFECHA_PROBABLEFEC_VENvalidar01aQQqAArq!Ar1a)0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6EK10C1U21427015461/F] WINDOWS _6EK10C1U31430684134 '' V WINDOWS _6EK10C1U21430683976fs WINDOWS _6EK10YBS51430683911;. Q WINDOWS _6EK10YBS61430683976 WINDOWS _6G10YNSGU1430683976H~ COMMENT RESERVED  RVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 145 Width = 374 DoCreate = .T. Caption = "Modificar fecha probable de entrega" pedido = 0 Name = "Formulario_acep_canc1" Command1.Top = 118 Command1.Left = 123 Command1.TabIndex = 3 Command1.Name = "Command1" Command2.Top = 118 Command2.Left = 190 Command2.TabIndex = 4 Command2.Name = "Command2" AYUDA.TabIndex = 5 AYUDA.Name = "AYUDA" Text1.TabIndex = 6 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE validar if tccvent.pedido#xpedido if seek(xpedido, "tccvent", "tccvord") * ok else mensaje("Pedido no encontrado !!!") return .f. endif endif return .t. ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Formulario_acep_canc1comboboxcomboboxFormulario_acep_canc1Text3textboxtextboxFormulario_acep_canc1Label2labellabelCombo9pedido labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Prioridad del pedido" Height = 17 Left = 9 Top = 68 Width = 115 TabIndex = 7 Name = "Label1" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Pedido" Height = 17 Left = 9 Top = 36 Width = 41 TabIndex = 8 Name = "Label2" ControlSource = "xpedido" Enabled = .F. Format = "z" Height = 25 InputMask = "9,999,999,999" Left = 168 TabIndex = 1 Top = 32 Width = 130 DisabledForeColor = 0,0,0 Name = "Text3" /BoundColumn = 2 ColumnCount = 2 ColumnWidths = "80,20" RowSourceType = 1 RowSource = "Normal,0,Media,1,Alta,2" Value = 0 ControlSource = "xprioridad" FirstElement = 1 Height = 25 Left = 168 NumberOfElements = 0 Style = 2 TabIndex = 41 Top = 64 Width = 130 BoundTo = .T. Name = "Combo9" e"LL% U%u%%Ctccventtccvord; q%CPedido no encontrado !!!B-BaUTCCVENTPEDIDOXPEDIDOMENSAJEvalidar01aQQqAAr1)L0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6EZ11N9851427999802/F] WINDOWS _6EZ11N9861452503752 &)  COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11xls_importacionesformularios.vcxformXls_importaciones1DoCreate = .T. log_clase = ("loguear_imp_exp_recepciones") Name = "Xls_importaciones1" Command1.Name = "Command1" Command2.Name = "Command2" ayuda.Name = "ayuda" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 300 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Pageframe1.ErasePage = .T. Pageframe1.Page1.Grilla1.Name = "Grilla1" Pageframe1.Page1.Label1.Name = "Label1" Pageframe1.Page1.opciones.Text1.Name = "Text1" Pageframe1.Page1.opciones.Label2.Name = "Label2" Pageframe1.Page1.opciones.Command1.Name = "Command1" Pageframe1.Page1.opciones.Leer.Name = "Leer" Pageframe1.Page1.opciones.Command2.Name = "Command2" Pageframe1.Page1.opciones.Name = "opciones" Pageframe1.Page1.Botones.Leer.Name = "Leer" Pageframe1.Page1.Botones.Command2.Name = "Command2" Pageframe1.Page1.Botones.Optiongroup1.Option1.Left = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Name = "Option1" Pageframe1.Page1.Botones.Optiongroup1.Option2.Left = 72 Pageframe1.Page1.Botones.Optiongroup1.Option2.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option2.Name = "Option2" Pageframe1.Page1.Botones.Optiongroup1.Name = "Optiongroup1" Pageframe1.Page1.Botones.Exportar.Name = "Exportar" Pageframe1.Page1.Botones.suspender.Alignment = 0 Pageframe1.Page1.Botones.suspender.Name = "suspender" Pageframe1.Page1.Botones.Name = "Botones" Pageframe1.Page1.Name = "Page1" Pageframe1.Name = "Pageframe1" tmFiltro.Name = "tmFiltro" tmInicial.Name = "tmInicial" GF.Name = "GF" Imp_xls.usar_celdas = .T. Imp_xls.usar_columnas_fijas_celdas = .F. Imp_xls.Name = "Imp_xls" Exportaciones1.exportaciones_parametros.Name = "exportaciones_parametros" Exportaciones1.Name = "Exportaciones1" PROCEDURE GF.sql_crear_columnas this.for_add_columna() this.for_add_columna(,".ID") this.for_add_columna(,".OC") this.for_add_columna(,".Deposito") this.for_add_columna(,".Cod_Ins") this.for_add_columna(,".Atr") this.for_add_columna(,".Bul") this.for_add_columna(,".Descr") this.for_add_columna(,".Recepcion","Cantidad") this.for_add_columna(,".Fecha") ENDPROC PROCEDURE Imp_xls.validar_articulo LPARAMETERS xcod, xbul, xatr, xDescr return dodefault(@xcod, @xbul, @xatr, @xDescr) ENDPROC PROCEDURE Imp_xls.crear_columnas this.agregar_columna() this.agregar_columna("ID",,"ID","ID","C (20)") this.agregar_columna("OC",,"Orden de Compra","OC","N (12)") this.agregar_columna("Deposito",,"Depsito","Deposito","C (8)") this.agregar_columna("Codigo",,"Articulo","Cod_Ins","C (15)") this.agregar_columna("Atr",,"Atributo","Atr","C (3)",1) this.agregar_columna("Bul",,"Bulto","Bul","C (3)",1) this.agregar_columna("Cantidad",,"Cantidad","Recepcion","N(12,2)") this.agregar_columna("Fecha",,"Fecha","Fecha","D") this.agregar_columna_vacia () this.agregar_columna_vacia("Descr",REPLICATE("X",60),"Descripcin","Descr","C (60)") this.agregar_columna_vacia("Valido",.f.,"Valido","Valido","L") ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 "%e-U CC.IDC.OCC .DepositoC.Cod_InsC.AtrC.BulC.Descr&C .RecepcionCantidadC.FechaUTHISFOR_ADD_COLUMNA/BCUXCODXBULXATRXDESCR  C&CIDIDIDC (20)3COCOrden de CompraOCN (12)7CDepositoDepsitoDepositoC (8)5CCodigoArticuloCod_InsC (15)0CAtrAtributoAtrC (3)-CBulBultoBulC (3):CCantidadCantidad RecepcionN(12,2)*CFechaFechaFechaD C=CDescrCXCCC   CCXCCX FTCO ~C FFG((FECHASUBD~CCC   CCXCCX S C F 5# ?UXALIASXDIFXDESDEXHASTAXRECCCCOMPRETGANFORFEC_DGIFEC_COMCAUSAFAC_COMCOMPROBAR_CPBTFECHASUBCOMPROBAR_CPBT_GES F ^JT )%C  խT  T T$TC    %CxDifbLT{Gz?TT%Pd"TC 99-99999999-9_ TCCZTTTTF G((id2 E T-#+C+  xD%CC C p Ta!H% >SFG((codpro E%Cproveedo4 T FT%!SH- P%CCZC" %t TCTNo coincide el cuit. AFIP:  GES: C%F>TT TVT(No coincide el tipo de documento. AFIP: CCZ GES: CC"%F>#CCZTT `%CCZC"2C%CgCC=96CC[gCg6Z .TiT No coincide el documento. AFIP:  GES: CC=96C[6%*F>96TT TVT(No coincide el tipo de documento. AFIP: CCZ GES: CC"%F>#CCZTT 2  F$Ecomprob%C4 HN  PT %CCZC"% TCTNo coincide el cuit. AFIP:  GES: C%F>F$G((comprobE%C4b>$TT P TVT(No coincide el tipo de documento. AFIP: CCZ GES: CC"%L F>#CCZTT ` %CCZC" C%CgCC=96CC[gCg6  TiT No coincide el documento. AFIP:  GES: CC=96C[6% F>96F$G((comprobE%C4 >$96TT  TVT(No coincide el tipo de documento. AFIP: CCZ GES: CC"% F>#CCZTT 2 T$TC $6  FG(( inscripcio E%C4x T$TC 6  T.TProveedor no encontrado en GES%'  C(  TVT Comprobante no encontrado en GESCCC - 6C F _JB%)*)%CC)*d8dzTT'El importe de IVA en AFIP no coincide (CC) Z) no coincide con el de GES (CC* Z)CCC - 6CT+)*%,-)%CC,-d8d}TTEl total en AFIP (CC, Z) no coincide con el de GES (CC- Z)CCC - 6CT.,- F _JU/XALIASXDIF XCORREGIRXFAC_VENXCAUSAXTIPOXNCOOBJXDE_EXPORTACIONSERVICIOTIPO ARMAR_NROFACPTOVTANUMEROERRORERRORMSGDOCTIPOXCUITFDOCNROCUITFAC_VENCAUSANOMBRECCCOMPID2XENCFAC_COM2RETGANPROVEEDOCODPROCOD_PRO FECHA_GESFEC_DGITARJETAFN_TIPODOC_COMPRASTIPODOCCLIAUXCOMPROB INSCRIPCIOP_DEVSYS_MIVAIVA_COMDIFIVAIMPORTEDEUDADIFIMPG+( fe_funciones Ca T8TCCCZ0-CCCZ0 BUXTIPOXPTOVTAXNROXCAUSA FE_FUNCIONESXSTRXLETRATIPOCPBT_CAUSATCC TC TMPSWCPBT TCC TCTMPCPBTS TCC TC TMPCPBTSX %C TC Fh1 N N N N NCN N C<N NNQ  S%C +TCFh1NNNN N NN N N N N  N !N "N #N $C%N &C'C(N)C*N+N,N-N.C<Q @ S%C TCFh1/N,N0C1C2N 3D4C 5C.C<&N6NNNN7N8N9CNN:N;N<C=N>N?N@NAMBNCNDNELFNGCHDINJCxKDLCQ  S 8 G(ges M ges%Cproveedo Qproveedo%Ccccomp Qcccomp%CCLIAUX QcliauxUQXALIASXALIAS2XALIAS3XFILEXFILE2XFILE3XFILECODEYFUNCNEWFILE_LOCAL_TMPID FECHA_CBTE TIPO_CBTE PUNTO_VTACPBT_NRO MONEDA_ID MONEDA_CTZ IMP_TOTALCLIENTECUIT_PAIS_CLIENTECAE FCH_VENC_CAECONCEPTODOCTIPODOCNRO CBTEDESDE CBTEHASTACBTEFCHIMPTOTAL IMPTOTCONCIMPNETOIMPOPEXIMPTRIBIMPIVA FCHSERVDES FCHSERVHAS FCHVTOPAGOMONIDMONCOTIZIVA RESULTADOCODAUTORIZACION EMISIONTIPOFCHVTO FCHPROCESOPTOVTACBTETIPONOMBRETIPOFAC_VENCAUSANUMEROFECHACUITCOD_PROIMPORTEDIFIVADIFIMPTIPODOCSERVICIOERRORERRORMSGIVA3IVA4IVA5IVA6 RESPUESTAFCEFCE_CONCFCE_TIPOFCEENVFCE_IDFCE_CAEFCE_VENCING_RESPING_MSG FECHA_GESORIGENGESPROVEEDOCCCOMPCLIAUXs 3%C C C [TBa lB-UOFORMNITTYPEO CONTAINER1PBVALUE%Cv YC Ta(r T-  T- BUXTEXTOOFORMXPANELXOKTYPEO SB_ACTUALIZAROEXTC%C1TCCC-6TCF CC6BUXARCHXINICIALXMSGOOBJ XRESPUESTATYPEOING_MSGING_RESP B80UC GES Suspendo?a"Cproveedocodpror TMPSWCPBT     CC\g CC\g CS   !6"#$%80PCC -gGES&+Est en GES y no en AFIP dentro del periodoBU'XALIASXDIF XCORREGIRSYS_MOSTRAR_SCREENCCCOMPCOD_PROFCE_TIPOTIPOPTOVTAFAC_VENCAUSANUMEROFECHACUITNOMBREIVAIVA5IMPORTEIMPNETOIMPOPEXTIPODOCDOCTIPODOCNROSERVICIOORIGEN FECHA_GESERRORERRORMSGFAC_COM2FEC_COMPROVEEDOTARJETA P_PROVCONTDES_PROVIVA_COMDEUDATOT_COMDES_COMFEC_DGIcomprobar_cpbts,comprobar_cpbt armar_nrofacW tablas_crearG actualizar_pb! sb_actualizarlogear fn_tipodoc_compras!comprobar_cpbt_ges!11qr!ArC"AA3QAAQAb!A2r1BAAAA"r2r1raa1q BBaqCCb2qr BCaqCABraa1qr1ABCaqBBb1qrr1rABBaqCAB2ABBq11AAABaAAA AAAA31a3srs#!A!a!A!p(!AAAA!A!A21aqqA1rAQQAA2qAAB22"AE1Height = 581 Width = 756 DoCreate = .T. WindowState = 0 Name = "Xls_importaciones1" Command1.Left = 311 Command1.Anchor = 260 Command1.Name = "Command1" Command2.Left = 383 Command2.Anchor = 260 Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Pageframe1.ErasePage = .T. Pageframe1.Page1.Grilla1.Name = "Grilla1" Pageframe1.Page1.LABEL1.Name = "LABEL1" Pageframe1.Page1.opciones.Text1.Name = "Text1" Pageframe1.Page1.opciones.Label2.Name = "Label2" Pageframe1.Page1.opciones.Command1.Name = "Command1" Pageframe1.Page1.opciones.Leer.Name = "Leer" Pageframe1.Page1.opciones.Command2.Name = "Command2" Pageframe1.Page1.opciones.Name = "opciones" Pageframe1.Page1.Botones.Leer.Name = "Leer" Pageframe1.Page1.Botones.Command2.Name = "Command2" Pageframe1.Page1.Botones.Optiongroup1.Option1.Left = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option1.Name = "Option1" Pageframe1.Page1.Botones.Optiongroup1.Option2.Left = 72 Pageframe1.Page1.Botones.Optiongroup1.Option2.Top = 5 Pageframe1.Page1.Botones.Optiongroup1.Option2.Name = "Option2" Pageframe1.Page1.Botones.Optiongroup1.Name = "Optiongroup1" Pageframe1.Page1.Botones.Exportar.Name = "Exportar" Pageframe1.Page1.Botones.suspender.Alignment = 0 Pageframe1.Page1.Botones.suspender.Name = "suspender" Pageframe1.Page1.Botones.Name = "Botones" Pageframe1.Page1.Name = "Page1" Pageframe1.Name = "Pageframe1" tmFiltro.Name = "tmFiltro" tmInicial.Name = "tmInicial" GF.Name = "GF" Imp_xls.usar_celdas = .T. Imp_xls.usar_columnas_fijas_celdas = .F. Imp_xls.lxls_offset = 3 Imp_xls.Name = "Imp_xls" Exportaciones1.exportaciones_parametros.Name = "exportaciones_parametros" Exportaciones1.Name = "Exportaciones1" aPROCEDURE open_files DO dey_func2 oDeyFunc.chk_opened("numfac") oDeyFunc.chk_opened("idx03") ENDPROC PROCEDURE GF.sql_crear_columnas *!* this.agregar_columna("Fecha",,,"CBTEFCH","D") *!* this.agregar_columna("Tipo",,,,"C (60)") *!* this.agregar_columna("Punto de Venta",,,"ptovta","N (2)") *!* this.agregar_columna("Nmero Desde",,,"CBTEDESDE","N (8)") *!* this.agregar_columna("Nmero Hasta",,,"CBTEHASTA","N (8)") *!* this.agregar_columna("Cd. Autorizacin",,,"CodAutorizacion","C(14)") *!* this.agregar_columna("Tipo Doc. Emisor",,,"doctipo_tx","C (20)") *!* this.agregar_columna("Nro. Doc. Emisor" ,,,"docnro","N (20)") *!* this.agregar_columna("Denominacin Emisor",,,"Nombre","C (60)") *!* this.agregar_columna("Tipo Cambio",,,"MONCOTIZ","N (14,4)") *!* this.agregar_columna("Moneda",,,,"C (10)") *!* this.agregar_columna("Imp. Neto Gravado",,,"IMPNETO","N (14,4)") *!* this.agregar_columna("Imp. Neto No Gravado",,,"IMPNETONO","N (14,4)") *!* this.agregar_columna("Imp. Op. Exentas",,,"IMPOPEX","N (14,4)") *!* this.agregar_columna("IVA",,,"IMPIVA","N (14,4)") *!* this.agregar_columna("Imp. Total",,,"IMPTOTAL","N (14,4)") *!* This.agregar_columna_vacia("CbteTipo",,,,"N(3)") *!* This.agregar_columna_vacia("doctipo",,,,"N(2)") *!* This.agregar_columna_vacia("MonID",,,,"C(3)") this.for_add_columna() this.for_add_columna(,".CBTEFCH","Fecha") This.For_add_columna(,".Tipo") This.For_add_columna(,".ptovta","Pto. Vta.") This.For_add_columna(,".CBTEDESDE","Nmero") This.For_add_columna(,".doctipo_tx","Tipo") This.For_add_columna(,".docnro","CUIT/Doc") This.For_add_columna(,".Nombre") This.For_add_columna(,".Moneda") This.For_add_columna(,".MONCOTIZ","Tip.Camb.") This.For_add_columna(,".IMPNETO","Net. Grav.") This.For_add_columna(,".IMPNETONO","Net.NoGrav.") This.For_add_columna(,".IMPOPEX","Exento") This.For_add_columna(,".IMPIVA","IVA") This.For_add_columna(,".IMPTOTAL","Total") ENDPROC PROCEDURE Imp_xls.validar_fila LOCAL xalias, xOK xalias=this.ldbf_alias *=sys_m("Validar") xValido=this.val_valido xOK=.t. SELECT (xAlias) SCATTER NAME oObj Memo **A - 01, 02, 03, 201, 202, 203 **B - 06, 07, 08, 206, 207, 208 **C - 11, 12, 13, 211, 212, 213 **M - 51, 52, 53 *!* this.agregar_columna("Fecha",,,"CBTEFCH","D") *!* this.agregar_columna("Tipo",,,,"C (60)") *!* this.agregar_columna("Punto de Venta",,,"ptovta","N (2)") *!* this.agregar_columna("Nmero Desde",,,"CBTEDESDE","N (8)") *!* this.agregar_columna("Nmero Hasta",,,"CBTEHASTA","N (8)") *!* this.agregar_columna("Cd. Autorizacin",,,"CodAutoriz","C(14)") *!* this.agregar_columna("Tipo Doc. Emisor",,,"doctipo_tx","C (20)") *!* this.agregar_columna("Nro. Doc. Emisor" ,,,"docnro","N (20)") *!* this.agregar_columna("Denominacin Emisor",,,"Nombre","C (60)") *!* this.agregar_columna("Tipo Cambio",,,"MONCOTIZ","N (14,4)") *!* this.agregar_columna("Moneda",,,,"C (10)") *!* this.agregar_columna("Imp. Neto Gravado",,,"IMPNETO","N (14,4)") *!* this.agregar_columna("Imp. Neto No Gravado",,,"IMPNETONO","N (14,4)") *!* this.agregar_columna("Imp. Op. Exentas",,,"IMPOPEX","N (14,4)") *!* this.agregar_columna("IVA",,,"IMPIVA","N (14,4)") *!* this.agregar_columna("Imp. Total",,,"IMPTOTAL","N (14,4)") *!* This.agregar_columna_vacia("CbteTipo",,,,"N(3)") *!* This.agregar_columna_vacia("doctipo",,,,"N(2)") *!* This.agregar_columna_vacia("MonID",,,,"C(3)") *!* This.agregar_columna_vacia("Valido",,,,"L") oObj.CbteTipo=VAL(Tipo) DO case CASE ALLTRIM(UPPER(oObj.doctipo_tx))="CUIT" oObj.DocTipo=80 CASE ALLTRIM(UPPER(oObj.doctipo_tx))="CUIL" oObj.DocTipo=86 CASE ALLTRIM(UPPER(oObj.doctipo_tx))="PASAPORTE" oObj.DocTipo=94 CASE ALLTRIM(UPPER(oObj.doctipo_tx))="DNI" oObj.DocTipo=96 CASE INLIST(VAL(oObj.doctipo_tx), 99) oObj.DocTipo=VAL(oObj.doctipo_tx) OTHERWISE *** No se reconoce el tipo de documento. xOK=.f. ENDCASE DO case CASE ALLTRIM(Moneda)="$" oObj.MonID="PES" CASE ALLTRIM(Moneda)="USD" oObj.MonID="USD" CASE ALLTRIM(Moneda)="" oObj.MonID="060" OTHERWISE *** No se reconoce aun la moneda xOK=.f. ENDCASE oObj.Valido=xOK SELECT (xAlias) GATHER NAME oObj MEMO ENDPROC PROCEDURE Imp_xls.crear_columnas this.agregar_columna() this.agregar_columna_vacia () this.agregar_columna("Fecha",,,"CBTEFCH","D") this.agregar_columna("Tipo",,,,"C (60)") this.agregar_columna("Punto de Venta",,,"ptovta","N (5)") this.agregar_columna("Nmero Desde",,,"CBTEDESDE","N (8)") this.agregar_columna("Nmero Hasta",,,"CBTEHASTA","N (8)") this.agregar_columna("Cd. Autorizacin",,,"CodAutoriz","C(14)") this.agregar_columna("Tipo Doc. Emisor",,,"doctipo_tx","C (20)") this.agregar_columna("Nro. Doc. Emisor" ,,,"docnro","N (20)") this.agregar_columna("Denominacin Emisor",,,"Nombre","C (60)") this.agregar_columna("Tipo Cambio",,,"MONCOTIZ","N (14,4)") this.agregar_columna("Moneda",,,,"C (10)") this.agregar_columna("Imp. Neto Gravado",,,"IMPNETO","N (14,4)") this.agregar_columna("Imp. Neto No Gravado",,,"IMPNETONO","N (14,4)") this.agregar_columna("Imp. Op. Exentas",,,"IMPOPEX","N (14,4)") this.agregar_columna("IVA",,,"IMPIVA","N (14,4)") this.agregar_columna("Imp. Total",,,"IMPTOTAL","N (14,4)") This.agregar_columna_vacia("CbteTipo",,,,"N(3)") This.agregar_columna_vacia("doctipo",,,,"N(2)") This.agregar_columna_vacia("MonID",,,,"C(3)") This.agregar_columna_vacia("Valido",,,,"L") *!* CONCEPTO N(1), ; *!* doctipo N (2,0), ; *!* docnro N (20,0), ; *!* CBTEDESDE N (10), ; *!* CBTEHASTA N (10), ; *!* CBTEFCH N (8,0), ; *!* IMPTOTAL N (12,2), ; *!* IMPTOTCONC N (12,2), ; *!* IMPNETO N (12,2), ; *!* IMPOPEX N (12,2), ; *!* IMPTRIB N (12,2), ; *!* IMPIVA N (12,2), ; *!* FCHSERVDES N (11), ; *!* FCHSERVHAS N (11), ; *!* FCHVTOPAGO N (11), ; *!* MONID C (3), ; *!* MONCOTIZ N (12,4), ; *!* iva C (31), ; *!* RESULTADO C (1), ; *!* CodAutorizacion N (14,0), ; *!* EmisionTipo C (3), ; *!* FchVto N (8,0), ; *!* FchProceso N (14,0), ; *!* ptovta N (4,0), ; *!* CbteTipo N (3),; *!* nombre C(60)) *!* ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0  " *%& ; R U5CnumfacCidx03U DEY_FUNC2ODEYFUNC CHK_OPENED C!C.CBTEFCHFechaC.Tipo$C.ptovta Pto. Vta.$C .CBTEDESDENmero#C .doctipo_txTipo#C.docnroCUIT/DocC.NombreC.Moneda&C .MONCOTIZ Tip.Camb.&C.IMPNETO Net. Grav.)C .IMPNETONO Net.NoGrav."C.IMPOPEXExentoC.IMPIVAIVA"C .IMPTOTALTotalUTHISFOR_ADD_COLUMNA< TT Ta F ^JTCgHlk CC fCUITT P CC fCUILT V# CC f PASAPORTET ^ CC fDNI(T ` CC gcVT C g 2k T-H C $T PES C USDT USD C T 060 2 T-T  F _JUXALIASXOKTHIS LDBF_ALIASXVALIDO VAL_VALIDOOOBJCBTETIPOTIPO DOCTIPO_TXDOCTIPOMONEDAMONIDVALIDO C C%CFechaCBTEFCHD CTipoC (60)1CPunto de VentaptovtaN (5)2C Nmero Desde CBTEDESDEN (8)2C Nmero Hasta CBTEHASTAN (8)8CCd. Autorizacin CodAutorizC(14)8CTipo Doc. Emisor doctipo_txC (20)4CNro. Doc. EmisordocnroN (20)7CDenominacin EmisorNombreC (60)3C Tipo CambioMONCOTIZN (14,4)"CMonedaC (10)8CImp. Neto GravadoIMPNETON (14,4)=CImp. Neto No Gravado IMPNETONON (14,4)7CImp. Op. ExentasIMPOPEXN (14,4))CIVAIMPIVAN (14,4)2C Imp. TotalIMPTOTALN (14,4)"CCbteTipoN(3)!CdoctipoN(2)CMonIDC(3)CValidoLUTHISAGREGAR_COLUMNAAGREGAR_COLUMNA_VACIA open_files0GF.sql_crear_columnasImp_xls.validar_filaImp_xls.crear_columnasC1qbQ3@aBA11aa!!5!1QAa11a1A6R!!Aq1!q!"1c1:V) %*/o,!X %CoDeyFuncbO 5 a%CBienes cQbienesTC 2TC meli_ordenessys_meli_logica.prgCC*PQ<CObteniendo los ultimos CCZ pedidos.TC (CCargando pedidos nuevos.B sys_plataformas_pedidosC  C  T T%Tsys_procesando% %r$C Ingresadas: CCZ!C Ingresadas: CCZ 4C$No hab a nuevas ventas para ingresar1C$No hab a nuevas ventas para ingresarsys_procesandoCC-PQU XCANTIDADXAUT DEY_FUNC2BIENESP_MELI_CANTIDAD_PEDIDOS OCONTROLADOROORDENESML_LOGML_LOG_PROCESOOBTENER_ULTIMAS_ORDENESPLATA_INYECTAR_PEDIDOSSYS_PLATAFORMAS_PEDIDOSP_MELI_VENDEDORP_PD_VENDEDOR_IMPORTARP_MELI_CLIENTE_FINALP_PD_CLIENTE_IMPORTAR XCONTADORXORDENOORDEN COLECCION GES_RESPUESTASP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOMENSAJEGQ MELI_ORDENsys_meli_objetos.prgQMELI_CONTROLADORsys_meli_logica.prgQJSON_RESPUESTA_RECIBIR_PEDIDOSavfp_objects_intercambio.prg 3 Q PLA_ORDENsys_plataformas_objetos.prgT C  TC CT% [C%CFT C Pla_OrdenSys_plataformas_objetos.prg *sys_plataformas_pedidos.prg @SC La venta 2 no tiene datos de facturaci n, no se puede cargarUOORDENSYS_MELI_OBJETOSPRG OCONTROLADORSYS_MELI_LOGICAORESAVFP_OBJECTS_INTERCAMBIO XVENDEDOR XLOCALDIRXCOD_CLIOOGSYS_PLATAFORMAS_OBJETOSXLISTA P_MELI_LISTAP_PD_LISTA_IMPORTARP_MELI_VENDEDORP_PD_VENDEDOR_IMPORTAR BILLING_INFOLEERSEOBIAADDITIONAL_INFOSHIPPINGLEIDOTYPEOPLATA_INYECTAR_PEDIDOSYS_PLATAFORMAS_PEDIDOS MENSAJE_SID_TEXTOWHP 4 B P BUXTITULOP_MELI_DESCR_TIPOQJSON_O_RECIBIR_PEDIDOSavfp_objects_intercambio.prgQJSON_RESPUESTA_RECIBIR_PEDIDOSavfp_objects_intercambio.prga%  %   a- U OPARAVFP_OBJECTS_INTERCAMBIOPRGORESVE_PEDIDOS_RECIBIDOSOAVFPXTESTINGP_VE_ANALISIS_AL_RECIBIROPEDPEDIDOS PEDIDO_GESVE_REANALIZAR_PEDIDOSJQMELI_CONTROLADORsys_meli_logica.prg%Ctccvent vQtccvent!%Cplataformas_Aux Qplataformas_Aux%C 2TC meli_ordenessys_meli_logica.prg  TaTCCX TC  (%CccventCCVFAC  T-2T!: No se encuentra el comprobante  )%Ctccventtccvord %: T-=T: No se encuentra el pedido CCZ. { T-,T: No tiene pedido asignado. % MLA T-8T': El pedido no proviene de MercadoLibre T  T  %listados%C0  T--T: No existe el archivo: % % C B$CCC \g% % %409q=T,Compruebe que no est subida ya la factura. C:  BC  UXCOMPROBXCAUSAXMSGXOKXAUT OCONTROLADORSYS_MELI_LOGICAPRGXARCHIVOTCCVENTPLATAFORMAS_AUXTYPEOXREF_EXT XPLATAFORMACCVENTPEDIDO PLATAFORMAREF_EXT PDF_UBICARLISTADOS MENSAJE_S SUBIR_FACTURA'MELI_ACTUALIZAR_PLATAFORMAS_AUX_FACTURAJQMELI_CONTROLADORsys_meli_logica.prg1 QSYS_MELI_ENVIOsys_meli_objetos.prg%C 2TC meli_ordenessys_meli_logica.prg Ta TH V(%CccventCCVFAC b T-,TNo se encuentra el comprobante. |T   P%CxComprobbCT CC,g  T  2 T- -%C tccventtccvord h T-'TNo se encuentra el pedido. %MLA T-2T%El pedido no proviene de MercadoLibre T%_<listadosMLE-*TCPD CCZ.pdfHt C=OT CCC\g C=PT CCC\g 21T C MELI_Enviosys_meli_objetos.prg% dTNo tiene env o T- BHyw C me1me2 H$ C  ready_to_ship C  delivered;BT5No se puede imprimir una etiqueta un pedido ENTREGADO T- C shipped@T3No se puede imprimir una etiqueta un pedido ENVIADO T- 2FT2No se puede imprimir una etiqueta para el estado:  T- B 2wMT9No se puede imprimir una etiqueta para el tipo de env o:  T- B% % C BTCPDFC % )% C B.| ShellExecute SHELL32.DLL*T"CopenCC%" RT!No se puede ejecutar ShellExecuteC C digo del error: CC"Z T- BU#XCOMPROBXCAUSAXMSGXOKXAUT OCONTROLADORSYS_MELI_LOGICAPRGXARCHIVO OSHIPPINGSYS_MELI_OBJETOSTYPEOXPEDIDOCCVENTPEDIDOXID XORDEN_IDTCCVENT PLATAFORMAXREF_EXTREF_EXTPDF_PATHLISTADOSOBTENER_SHIPPING_DESDE_ORDENOBTENER_SHIPPING_DESDE_PACKIDMODESTATUS STATUS_GES MENSAJE_SOBTENER_ETIQUETA_ENVIO SHELLEXECUTESHELL32DLLXERROR^Q MELI_ORDENESsys_meli_objetos.prgQMELI_CONTROLADORsys_meli_logica.prg%C 2TC meli_ordenessys_meli_logica.prgCU OORDENESSYS_MELI_OBJETOSPRG OCONTROLADORSYS_MELI_LOGICATYPEOOORDEN COLECCION#MELI_ACTUALIZAR_PLATAFORMAS_AUX_UNO3%Cplataformas_auxref_full 5T$No se pudo encontrar el registro de  T- >UXREF_EXT XPLATAFORMA XFCE_SUBIDAXOKXMSG FCE_SUBIDAINPLATAFORMAS_AUX\Q MELI_ORDENsys_meli_objetos.prgQMELI_CONTROLADORsys_meli_logica.prg%C 2TC meli_ordenessys_meli_logica.prg!%Cplataformas_aux Qplataformas_AuxCShipping% &C #   T CT C CCTTTTTTT /%C Plataformas_AuxRef_Full 0%Cplataformas_Aux.logistic_tbC-%Cplataformas_Aux.channelbCtrplataformas_Aux!"#$%&'    jrplataformas_Aux!"#$%&'   `rplataformas_Aux!"#$%&   />$%&0%Cplataformas_Aux.logistic_tbCy>'-%Cplataformas_Aux.channelbC> U)OORDENSYS_MELI_OBJETOSPRG OCONTROLADORSYS_MELI_LOGICATYPEOPLATAFORMAS_AUXSYS_MSHIPPINGLEIDOLEERSEXREF_EXTXREFFULLXSITEGES XSELLERIDXSTATUSXSTATUSSHIPPINGXSTATUSSHIPPINGTXUSUARIOMELI_OBTENER_REF_EXTMELI_OBTENER_REF_FULLASEGURAR_CONTEXTASEGURAR_COMPRADORVENDEDORSTATUS STATUS_ID_GESXLOGISTIC_TYPE LOGISTIC_TYPEBUYERNICKNAMEXCHANNELCONTEXTCHANNELREF_EXT PLATAFORMA USUARIO_IDESTADO EST_ENVIO EST_ENVIOT LOGISTIC_TIN<TC%C %CHr  TMLA  T 2TMLA TMLATC T BUOORDENXPACK_ID XORDER_ID XREF_FULL XPLATAFORMAXREF_EXTMELI_OBTENER_REF_EXTTYPEO MELI_TIPO MELI_TIPOS MELI_PACK MELI_ORDENCONTEXTSITE_GES6%CH? kT   T 2 T T%C$TCOCCC9Q_ &$TCPCCC9Q_ BU OORDENXPACK_ID XORDER_IDXREF_EXTXCAUSATYPEO MELI_TIPO MELI_TIPOS MELI_PACKID MELI_ORDENH  C=OUTCCC\g C=PTCCC\g BUXREF_EXT OCONTROLADOR OOBTENIDO OBTENER_ORDEN OBTENER_PACKH$ C=OYTCCC\g C=PTCCC\gTC BUXREF_EXT OCONTROLADOROORDENOPACK OBTENER_ORDEN OBTENER_PACKORDERS COLECCION!%Cplataformas_Aux KQplataformas_AuxF2%Cplataformas_auxREF_FULL ^J  T- BU XPLATAFORMAXREF_EXTOPLATAPLATAFORMAS_AUX:QMELI_CONTROLADORsys_meli_logica.prg%C 2TC meli_ordenessys_meli_logica.prgF&%CtccventTCCVORD &TNo se encontr el pedido.UXPEDIDO OCONTROLADORSYS_MELI_LOGICAPRGXMSGTYPEOTCCVENTMeli_inyectar_pedidomeli_descripcion_articuloDummy_Llamada_AVFP meli_subir_comprobante meli_imprimir_etiquetaMeli_Actualizar_plataformas_Aux'Meli_Actualizar_plataformas_Aux_facturac#Meli_Actualizar_plataformas_Aux_unogMeli_Obtener_Ref_Full#Meli_Obtener_Ref_Ext$Obtener_Desde_Ref_Ext&Obtener_Orden_Desde_Ref_Ext'&Obtener_plataformas_aux_Desde_Ref_full(meli_Actualizar_Pedido)A!A2!bb"AbAA1AAAAa2! 221C1bAADa1A2q11A2s2AaAAA41AAR!AQA!aAAAA!AAAACaAqAAQ4S!AAAAAAq!AAAAcAA!aABAAbAA1!A2Q!AA!A3q2QA2Q!AAQaAA2!11111BABAAA4qqA1AAA!21tAAAAAA2A21qA2Aq!A3Q!AqaaA2$h15 L= VG g(h " !,!+6+B.}3l.0G0 2PQ23Z35fC56 %9!$%#XUSYS_PLATAFORMAS_BASEPRG"T BUTHIS PLATA_CODIGO PLATA_CODMLA,TC BU OAUTORIZACIONTHISOAUTORIZACION_CLASE LOGICA_PRG#QCHILKAT_9_5_0.JsonObject$TC refresh_token#TC access_token!TC token_type!TC expires_inTCscope TCCuser_idgU LOJSONTHIS REFRESH_TOKENSTRINGOF ACCESS_TOKEN TOKEN_TYPE EXPIRES_INSCOPEUSER_IDs;QMELI_AUTORIZACION_CHILKATsys_meli_logica.prg,!sys_meli_autorizacion_chilkat.prg BU OAUTORIZACIONSYS_MELI_LOGICAPRGSYS_MELI_AUTORIZACION_CHILKATQSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACIONsys_meli_logica.prgQSTRINGQSTRINGQSTRING QSTRING # sys_mail_chilkat- %C T%C0  T- B "TCChilkat_9_5_0.HttpN%cTFQCHILKAT_9_5_0.HttpRequestQCHILKAT_9_5_0.HttpResponse)TCChilkat_9_5_0.HttpRequestNTPOSTT#Tmultipart/form-dataTC% T-(T No se pudo subir el archivo < B%CExpect 100-continue3C content-typemultipart/form-data;3TCapi.mercadolibre.com%Cɭ  T-+T Error CCZ:  < B < Ta BUXAPI XAUTORIZARXOK OAUTORIZACIONSYS_MELI_LOGICAPRGXARCHIVOXHEADERXAPPTIPOXMENSAJEOGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATTYPEOTHISLOHTTPLOSBRESPONSEBODY AUTHTOKEN ACCESS_TOKENLOREQLORESPHTTPVERBPATH CONTENTTYPE LNSUCCESSADDFILEFORUPLOAD2 ADDHEADERSYNCHRONOUSREQUEST STATUSCODE STATUSTEXT{QSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACIONsys_meli_logica.prgQSTRINGQSTRING  # sys_mail_chilkat-%C T TCC !QCHILKAT_9_5_0.Http"TCChilkat_9_5_0.HttpN%NT9TChttps://api.mercadolibre.com/% T-TC < B< Ta BUXAPI XAUTORIZARXOK OAUTORIZACIONSYS_MELI_LOGICAPRGXARCHIVOXMENSAJEOGLOBALERRRESPONSEBODY2COMPROBAR_LICENCIASYS_MAIL_CHILKATTYPEOTHISODEYFUNCNEWFILE_LOCAL_TMPLOHTTPLOSBRESPONSEBODY AUTHTOKEN ACCESS_TOKEN LNSUCCESSDOWNLOAD OBTENER_ERROR LASTERRORXML!TCChilkat_9_5_0.XmlNTC%h B TCDownloadT v"TCa_httpDownloadT h$TChttpDownloadFileT Z$TCerrResponseBody2T d r   BUXMENSAJELOXMLLOXML2 LNSUCCESSLOADXML FINDCHILDCONTENTX_QSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACIONsys_meli_logica.prg#sys_mail_chilkat-%C T   "T CChilkat_9_5_0.HttpN%T +T CChilkat_9_5_0.StringBuilderN9TChttps://api.mercadolibre.com/ % T-< < B(TCChilkat_9_5_0.JsonObjectNC T %= T-T  < << B Ta BUXAPI XAUTORIZARXOK OAUTORIZACIONSYS_MELI_LOGICAPRGOGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATTYPEOTHISLOHTTPLOSBRESPONSEBODY AUTHTOKEN ACCESS_TOKEN LNSUCCESS QUICKGETSBLOJSONLOADSBLNRESPSTATUSCODE LASTSTATUS ULTIMOERROR LASTHEADER2QMELI_MEQCHILKAT_9_5_0.JsonObjectTCMELI_Me*C /users/meaB  U OAUTORIZACIONXOKOMEOJSONTHISCONTROLAR_OBJETOOBTENER_OBJETOID)&sys_mail_chilkat-UCOMPROBAR_LICENCIASYS_MAIL_CHILKATTHISOGLOBAL, TCUXCLASE OCONTROLADORTHIS LOGICA_PRG.$TC Meli_OrdenesTC TC T C  T C  THIS.oConector.Obtener_Objeto(@oOBJ, "/orders/search/recent?seller=%Vendedor%&offset=%OffSet%&sort=%Orden%&limit=%Limite%",.T.) BU OOBJXLIMITE XVENDEDORXOFFSETXORDENTHISCONTROLAR_OBJETO SEARCH_LIMITESEARCH_VENDEDOR SEARCH_OFFSET SEARCH_ORDENR DBCMeli_Facturacion/orders/%ID%/billing_infoUOOBJXIDTHISOBTENER_OBJETO_ID@ 2BC Meli_Orden /orders/%ID%/UOOBJXIDTHISOBTENER_OBJETO_ID> 0BC Meli_Pack /packs/%ID%/UOOBJXIDTHISOBTENER_OBJETO_IDXTCCT BU OSHIPPINGOORDENXIDTHIS OBTENER_ORDENSHIPPINGLEERSEXTCCT BU OSHIPMENTOPACKXIDTHIS OBTENER_PACKSHIPMENTLEERSE`ATC Meli_Envio/shipments/%ID%/ BUOOBJXIDXOKXMSGTHISOBTENER_OBJETO_ID&TC Meli_OrdeniC /packs/%PACKID%/fiscal_documentsafiscal_documentapplication/pdfU OOBJXIDXARCHIVOXOKXMSGTHISCONTROLAR_OBJETO OCONECTOR SUBIR_ARCHIVO&TC Meli_Envio~xArchivo = THIS.oConector.Obtener_Archivo(@oOBJ, "/shipment_labels?shipment_ids=%ID%&savePdf=Y",.T.,@xOK,,xArchivo, @xMSG) BUOOBJXIDXARCHIVOXOKXMSGTHISCONTROLAR_OBJETO9 +BCMELI_Me /users/meUOOBJXIDTHISOBTENER_OBJETO_ID@ 2BC MELI_Usuario /users/%ID%UOOBJXIDTHISOBTENER_OBJETO_IDplata_codigo_AccessKObtener_oAutorizacionLeer_JSON_ValoresAutorizar_TokenQSubir_Archivo_ConectorObtener_Archivo_Conector Obtener_Error4  Obtener_JSON Probar_ConexionComprobar_Licencia{Obtener_controladorObtener_Ultimas_Ordenes=Obtener_Datos_Facturacion Obtener_Ordenq Obtener_PackObtener_Shipping_desde_ordenGObtener_Shipping_desde_Pack Obtener_Envio Subir_FacturaObtener_Etiqueta_Envio Obtener_Me$Obtener_Usuario^!Tsys_meli_objetos.prg Tsys_meli_logica.prgTMLA U OBJETOS_PRG LOGICA_PRG PLATA_CODIGO  T-T6243086589214935-T NyFb8hRMjyFkFK32HfHkSumTxO1vkpcs)Thttps://api.mercadolibre.com T-TMeli_Autorizacion T- T!Tsys_meli_objetos.prg T sys_meli_logica.prg U CONECTADO CLIENT_ID CLIENT_SECRETXURLBASE OAUTORIZACIONOAUTORIZACION_CLASE OCONTROLADORUSER_ID OBJETOS_PRG LOGICA_PRG^T \ML\ml_token_!Tsys_meli_objetos.prg Tsys_meli_logica.prgU TOKEN_HEADER OBJETOS_PRG LOGICA_PRG Ue&TMeli_Autorizacion_Chilkat      UOAUTORIZACION_CLASE%"TMeli_Conector_ChilkatUCLASE_CONECTOR"TMeli_Conector_Chilkat T!Tsys_meli_objetos.prg Tsys_meli_logica.prg UCLASE_CONECTORVENDEDORP_MELI_USER_ID OBJETOS_PRG LOGICA_PRG]       U  U Meli_Base#Plata_Base:sys_plataformas_base.prg] Meli_Conector'Plata_Conector:sys_plataformas_base.prgMeli_Autorizacion+Plata_Autorizacion:sys_plataformas_base.prgMeli_Autorizacion_ChilkatMeli_AutorizacionMeli_Conector_Chilkat Meli_Conector$Meli_Controlador_ChilkatMeli_ControladorMeli_Controlador*Plata_Controlador:Sys_Plataformas_Base.prg Meli_OrdenesMeli_Controlador Meli_UsuariosMeli_Controlador!61?q?1A162q q1QA!A!1AbA11AQ12A31QAq!1AAqsAr2qQ1A!AAAAAA2q1QA!1AAqqAQ1qqqA2qr!q>a25qA22A2!22A2B212qa2qa42!24519a0:!1!4642u)e65 ;< xiSpB`$i_Y% A#  ! !""# $|$ $%$Dg< W(4y;# $%% b* UV7p?QMELI_AUTORIZACIONsys_meli_logica.prg # QCHILKAT_9_5_0.JsonObject# QCHILKAT_9_5_0.FileAccess  %C 7TCMeli_AutorizacionSys_meli_logica.prgT  'sys_mail_chilkat-&%C C 0  <(T CChilkat_9_5_0.JsonObjectNTC  Ta%/T"Error al leer el archivo del token T-< B!TC refresh_token $TCChilkat_9_5_0.OAuth2NT >T.https://auth.mercadolibre.com.ar/authorization8T(https://api.mercadolibre.com/oauth/tokenTk5Cuenta de MercadoLibre conectada. T62430865892149350T NyFb8hRMjyFkFK32HfHkSumTxO1vkpcs)Tread write offline_access%$TC refresh_token TC%< <BCa  TC!%"T#T$%< B&internet T %+ 0u  (  mCd)T  d%(  C*T#+T$Sin respuesta del navegador< B%(KT#.T$Fall al completar la conexin< B%(T#%T$Autorizacin Denegada< B%(T#2T$Error no esperado: (C(Z)< B(T CChilkat_9_5_0.JsonObjectNC, +T -#C expirationCC .T#%T$Autorizacin obtenidaT/T0, T1CCuser_id g(T CChilkat_9_5_0.FileAccessN%C C 3utf-8 2<< < U4OTOKENSYS_MELI_LOGICAPRGXMSGXOK XNOREFRESHLOOAUTH2 LNSUCCESSLCURL LNNUMMSWAITEDLOJSONLOFAC LOJSONTOKENXARCHIVO_TOKENTYPEOOGLOBAL XREFRESHMODE XREFRESHTOKENCOMPROBAR_LICENCIASYS_MAIL_CHILKAT ACCESS_TOKENLOADFILESTRINGOF LISTENPORTAUTHORIZATIONENDPOINT TOKENENDPOINTREDIRECTALLOWHTMLCLIENTID CLIENTSECRETSCOPE REFRESHTOKENREFRESHACCESSTOKENSYS_MELI_AUTORIZACION_CHILKAT STARTAUTHLASTMETHODSUCCESS RESULTADOMENSAJE LASTERRORTEXT SHELLEXECINTERNET AUTHFLOWSTATESLEEPMSCANCELLOADACCESSTOKENRESPONSE EMITCOMPACT APPENDSTRING ACCESSTOKENRESPONSEUSER_IDWRITEENTIRETEXTFILEEMITqqqq11qqTqA1qhqAqAAEB AAqqqAr1qArQAwqAwqArQqAr!qBA11Q11Qqqq1%i \G]aW{F T T TF ~F%6TC ZTP T T T T T  T  T  T  T Hve_armar_despacho     F T>> T%T %T /%T +TC%S T %C T TC >'CCZsucursalid Cfletescodfle"Cclientescodcli0>C C !6>"!">##">$"BU%TMP XOLD_PEDIDOXENTREGAXNOMFLEPEDIDOXCOMPROBXCAUSAXNOMBRE XDOMICILIOXCIUDAD XTELEFONOXHORARIOXCPXPROVDIRECCION_DE_ENTREGAVE_ARMAR_DESPACHOENTREGATERCERO XRESULTADOMONXDMON TOTAL_ORIGENXPESOSXDCAMBIO_ORIGEN CAMBIO_ORI ARR_CAMBIOS TOTAL_PESOSCLIENTESUCCOD_FLEZONAFLETESPROPIOCLIENTESNOMBRESUCURSALDFLETENCal costoFG((idx04<GF EC$GF%oTCindiceCCZ  TBotmpQ al_costo ~C%Ccosimp Qcosimp T  T TTT TT0 T T T T[ cs_generar    C$F >>   BUSYS_MIDX04XDMON XCAMBIO_HOYDISTINCTCODIGOATRBULMONCOSTOTMPAL_COSTOCOSIMP XERR_COSTO XMSG_COSTOXCOSTO XFECHA_COSTO XMONCOSTO XFECHA_TCXTIPOXCOMPROBXCAUSA XDESCUENTOOBTENER_COSTO_REPOSICION CS_GENERARPRECIO TOTAL_ORIGENCANTIDADFORal_costo4sts1"ArbeqAA2AAAr!CB2Rraa2A"!A11sBA1;. i%K(]X7VG(9"T\tmp\CC]R ve_pedidoF T T T  T -ve_cambiar_lista( % C BU ACTIVEFORM DATASESSIONID XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOTCCVENTXPEDIDO XLISTA_ORI XLISTA_DESXRESVE_CAMBIAR_LISTAPROCESAR*<%C q_ped_act)QBotccvent  q_ped_act T%F ~\T"ptccvent "ptventas  c C ZPCambio de lista: CCZ --> CC ZTC q_ped_actN@CSe ha cambiado la lista de CCZ pedidos !!! 2T%No se pudo iniciar la transaccin !!!%C q_ped_actQBUXP Q_PED_ACTPEDIDOTCCVENTEST_DESPLISTA XLISTA_ORIXPEDIDOAAA XLISTA_DESTVENTASLISPREUSER_LOG PUB_INDEXTRAN_PRG XCANTIDADMENSAJEprocesar~%BrBB3rA)5Rx"!2BV!AAB1~R%@ V ^G(9G~(clases"G+(listados co_funciones C%Cq1jFQ TC$TC XT C XT CAX T T  T  T T- T-+a1 T+a TH> , te_transferencia_entre_cuentas_1(%% %C  T  Ta#) %C ! , te_transferencia_entre_cuentas_2(%TCH  T!   T%C !% -!%Cq1SFQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILESQ1XFECHAXDESDEXHASTA XCOMENTARIOXASIENTO XFECHA_MODXCAMBIOXTOTAL XMODIFICACIONXRESXFORMXMAXFORM TE_TRANSFERENCIA_ENTRE_CUENTAS_1 LEER_ASIENTOWIZARD TE_TRANSFERENCIA_ENTRE_CUENTAS_2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORM C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Ccostos Qcostos%Ccuentas QcuentasBUABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERCOSTOS T-%TCC% Ta5co_autold_diagold_conc% 2C%Ejercicio inexistente (anulacin) !!! B T  Taco_aut%&%  = trsac com_operdiariogconcepto Y trsac com_operdiariogconceptoold_diagold_conc #&CEjercicio inexistente !!!%  /T "Te_transferencia_entre_cuentas.prgIT Transferencia entre cuentasC - Modificacin6 T trsac   Ta% JTC%. T  FT  bT trsac   +%   wC 9999,999,999_LTransferencia entre cuentas"te_transferencia_entre_cuentas.prgFCSe ha registrado el asiento CC@z 999,999,999,999_ T  T BUXMISMO_EJERCICIOXASIENTOEJERCICIO_DE_FECHAXFECHA XFECHA_MOD XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACTRAN_PRGTRAN_TXT XMODIFICACIONBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXTTS_ID T Ta% F3C 9999,999,999_L % F  F   F  F F G((asiento#6T  AF G((asiento#6T Erconcepto  <CFG((abrev ETTFG((abrev ETTH  B T  m T   T 2T TTrdiariog !" #$%&'()*+L,C$NN-rcom_oper./012 %$&34+5(C@z 9999,999,999_c,EFECTIVO,2LC$c-Trdiariog !" #$%&'()*+L,C$NN-crcom_oper./012 %$&34+5(C@z 9999,999,999_,EFECTIVO,2LC$-6 T67 co_asientos6%6C69 T: T T- BU;XERRORTRSACXASIENTOCOM_OPERFORCOMPROBCAUSAFECHA XFECHA_MODXMISMO_EJERCICIODIARIOGASIENTOCONCEPTOOLD_DIAGOLD_CONCUNTIPO2FEC_PROC XCOMENTARIOCUENTASABREVXDESDECOD_CUE XDESDE_MONMONEDAXHASTA XHASTA_MONXMONEDA XTOTAL_MOXTOTALXCAMBIOXPASEDEBITOCREDITOPOR_QUE COMENTARIOHOYTIPOPASESUBDUSRCAMBIOMONPASEMONEXTXFECHA PUB_INDEXCAJ_PROCUENTADES_VALNUMERO DIF_VALORASIDIACOEFICCOD_CENXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERROR Taco_aut%"oconceptoq1% <ST 0odiariog  q1 T #) T T%% T ~*%    ZTC % !CcuentascuentaT !CcuentascuentaT #CHay ms de 2 pases !!!B- O!CFecha incorrecta !!!B- <C/No es un asiento que permita transferencias !!!B- &CEjercicio inexistente !!!B-BaU XRESULADO XRESULTADOSELECCIONAR_EJERCICIOCO_AUT XFECHA_MODCONCEPTOASIENTOXASIENTOQ1TIPO2 XCOMENTARIODIARIOGDEBITOCREDITOXPASESXMONEDAMONEDAXCAMBIOCAMBIOFECHAXFECHAXTOTALCOD_CUEXHASTACUENTASABREVXDESDEMENSAJEwizard open_files registrar transaccion leer_asientoK!7qAA1122AASBAA221A12AAAABBBAB6qAAC21r12A12A1r1Aq4AAA!A1AB62R!AABbBaA22AABbBA3r2t1srsrsQCsQBTurBPA pqPQ Qs1A3s"bRb22A2AB1qAqAqAaqAr1C}V e! (@n  \%%_FqUSG(9G~(clases"G+(listados co_funciones te_gastos%Cq1tFQ TC$ T  T -4(te_transferencia_entre_cuentas_anulacion( %  %Cq1FQBU ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONES OPEN_FILES TE_GASTOSQ1XFECHAXASIENTOXRES(TE_TRANSFERENCIA_ENTRE_CUENTAS_ANULACION REGISTRAR/ T Taco_aut%}=trsaccom_operdiariogconcepto &CEjercicio inexistente !!!% /T"Te_transferencia_entre_cuentas.prg4T 'Transferencia entre cuentas - Anulacin T trsac Ta%TC % T T T trsac +%   C 9999,999,999_L'Transferencia entre cuentas - Anulacin"te_transferencia_entre_cuentas.prgECSe ha eliminado el asiento CC@z 999,999,999,999_ T  T BUAAA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTXFECHALOCK_GTRSACMENSAJETRAN_PRGTRAN_TXTBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXXASIENTOTTS_ID TaF9~C 9999,999,999_L <T+Anulacin de transferencia entre cuentas - O te_procs   FF T- BUTRSACCOM_OPERCOMPROBCAUSAXASIENTOFECHAXFECHAXDETALLEDES_VALCONTROL_ANULACIONESTE_PROCSHOYCUENTACAJ_PROMONEDAMONEXTDIARIOGFORASIENTOCONCEPTO registrar transaccion!B2qAABqA2qAAC3aAA22AA RBA3sABtr1%8, m%YqY% vAC4No se puede ejecutar esta opcin en esta empresa !!! G(9 TC  TC  T a% !ve_inactivar_clientes( % 5sys_procesandoBHJ? } T 1 - PD/FC/RE/NC/ND T 2 - PD/FC/RE T 3 - PD T 4 - FC/RE/NC/ND +T 5 - FC/RE a#T 6 - PS/PD/FC/RE/NC/ND T 7 - PS/PD/FC/RE T 8 - PS/PD   T 9 - PS/FC/RE/NC/ND  T 10 - PS/FC/RE 2?T Error de tipo#T\tmp\TCC]R ve_pedidoa%C q_clientesQTC$%TC .t..f.65TCC .t..f.6=TCC ccvent.causa$[cd].f.6ITCC  ccvent.causa$[Vr].f.65sys_procesandoSeleccionando clientesCselect%5 %Cc2 Q0Q\data\CCZ\ccvent%Ct2ZQ1Q\data\CCZ\tccventselect clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "P" as origen from t2, clientes where t2.cod_cli=clientes.cod_cli and &xfiltro_pedido group by clientes.cod_cli, clientes.nombre, clientes.est_act union select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "X" as origen from c2, clientes where c2.cod_cli=clientes.cod_cli and &xfiltro_ncnd group by clientes.cod_cli, clientes.nombre, clientes.est_act union select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "F" as origen from c2, clientes where c2.cod_cli=clientes.cod_cli and &xfiltro_fcre group by clientes.cod_cli, clientes.nombre, clientes.est_act into cursor q_clientes3 readwrite select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fecha) as fecha , max(xdate) as fecha2 , "S" as origen from epresup, clientes where epresup.cod_cli=clientes.cod_cli and &xfiltro_presupuesto group by clientes.cod_cli, clientes.nombre, clientes.est_act union select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "P" as origen from tccvent, clientes where tccvent.cod_cli=clientes.cod_cli and &xfiltro_pedido group by clientes.cod_cli, clientes.nombre, clientes.est_act union select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "X" as origen from ccvent, clientes where ccvent.cod_cli=clientes.cod_cli and &xfiltro_ncnd group by clientes.cod_cli, clientes.nombre, clientes.est_act union select clientes.cod_cli , clientes.nombre , clientes.est_act<=1 as activo , max(fec_ven) as fecha , max(xdate) as fecha2 , "F" as origen from ccvent, clientes where ccvent.cod_cli=clientes.cod_cli and &xfiltro_fcre group by clientes.cod_cli, clientes.nombre, clientes.est_act into cursor q_clientes2 readwrite %;o q_clientes3 q_clientes2Ǽ q_clientes4go q_clientes4#$%C&Q&C'Q'(#$% q_clientes2%z~r q_clientes2oclientesX q_clientes2 #)#)#)$)**C #ro q_clientes2#$%C&Q&C'Q'-Q+#$%&' q_clientes& ##3sys_procesandoInactivando clientesG+(sys_log-T-Cloguear_inactivacion_clientesNCTipo: C-.CDas: CCZ-.KC%Activar todos los antes de ejecutar: CSiNo6-.C-.%C clientes2&Q/%C cliotros2LQ01 T1T2C63(2%32Q\data\CCZ \clientes/2Q\data\CCZ \cliotros0%36F) GF/%-FC3clientes clientes26 ~%*(%C# q_clientescod_cli T4# - $  >*4C4 Activado - Por activacin masiva-.D%C#C3cliotros cliotros26cod_cli%3F5 F0>6 >7C$>+a  F ~T4# - $ C%C#C3clientes clientes26codcli-FC3clientes clientes26%* >*D%C#C3cliotros cliotros26cod_cliZ%3F5 *F0 >6C$>7 >8%3T11BC4%Inactivado - Fecha ltima operacin: C&*-.  %3 C-9:;!Inactivacin masiva de clientes (CC1Z ) - Log: -<ve_inactivar_clientes.prg<-#=ve_mantenimiento_pedidos%C clientes2Q/%C cliotros2Q0sys_procesando% %1MC@Se ha terminado el proceso pero NO se han inactivado clientes!!! DC'Se ha terminado el proceso inactivando CC1Z !!!BU?XAUTXDIASXTIPOXANTES_ACTIVAR_TODOSXINACTIVAR_SIN_MOVIMIENTOP_DOSP_CODEMPMENSAJE ACTIVEFORM DATASESSIONIDP_CLI_INACTIVAR_DIASP_CLI_INACTIVAR_TIPOXRESVE_INACTIVAR_CLIENTESSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO XTIPO_TXT XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDO Q_CLIENTESXDATEXFILTRO_PRESUPUESTOXFILTRO_PEDIDO XFILTRO_NCND XFILTRO_FCRE SP_MENSAJESYS_MC2P_SYSTEMT2 Q_CLIENTES2 Q_CLIENTES3 Q_CLIENTES4COD_CLINOMBREACTIVOFECHAFECHA2ORIGENCLIENTESEST_ACTACTIVADOSYS_LOGOLOGLOG CLIENTES2 CLIOTROS2XCANTXMAXZXHEADCLIOTROSBAJAFACTIVREVISADOVACIAR_BUFFERSUSER_LOG PUB_INDEX ARCHIVO_LOGUNUSEVE_MANTENIMIENTO_PEDIDOSqAA<1AAA111A11q2111q11A5ARRU:21A2Apa:B@O2{BA!6AArS2!!A2qqA2BB2qqA2BABBAr22B2qqA1B2!AB1BAABRr2AA1AAAA2% p vU5 T T T C T+a TH  T % sys_permisos_usuario( T  T%C ! C T (sys_mensajes_suscripcion( % C% T %C !BUXPERMISOS_OTROSTMPXUSRXUSRXTMPUSR_NOMBRE PUB_INDEX OPEN_FILESOMSGTXFORMXMAXFORMXRESSYS_PERMISOS_USUARIOWIZARD_RESULTADOCARGAR_SUSCRIPCIONESSYS_MENSAJES_SUSCRIPCION REGISTRAR<Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcx T"trsacmsgxuser% TCtrsac Sys_permisosSuscripcin de mensajes Ta%:TC% T 6T RTO trsacsys_mensajes_suscripcionSuscripcin de mensajes T %,CSe ha suscripto a los mensajes.  BU XUSUARIOOMSGTFAAALOCK_GTRSACBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDMENSAJEm<Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcxFCBaUXUSUARIOOMSGTFMSGXUSERFORUSUARIOGUARDAR_MENSAJE_TIPO<Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcx8Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcx%Drmsgxuser   C U XUSUARIOOMSGTFOHIJO MSG_SUSCRIPTOTIPOSUBTIPOUSUARIOVALORMSG_TIPO MSG_SUBTIPOSUBTIPOSGUARDAR_MENSAJE_TIPO9%Cmsgxuser .QmsgxuserBUMSGXUSER<Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcx,TC Mensaje_tipos mensajes.vcx+omsgxuser tmpMSGXUSER ~C U OMSGTFXUSUARIOMSGXUSERUSUARIO TMPMSGXUSERMSG_SUSCRIPCIONTIPOSUBTIPOVALOR H 6B- q%mT % T B-  TBaUXFORMXRESXMAXFORM registrar transaccion[Guardar_Mensaje_Tipo open_filesCargar_suscripcioneswizard_resultado rr1AAA2"2!AAAACBF3"212bAABBC3s"t2aBAA!A1AAB2A21r12A12A1r1Aq1'~@AwG? Qj V ] P %MIK BC--aUNFCURSORTOJSON10 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6J40MDLUO1446466382/F] WINDOWS _6J40MDLUP1446466941 'v WINDOWS _6J40MDLUQ1446466941S ` m { WINDOWS _6J40MDLUR1446466941A P _ l WINDOWS _6J40MDLUS1446466941D Q ^ l WINDOWS _6J40MDLUT14464669419 ,   ' WINDOWS _6J40MDLUU1446466941 WINDOWS _6J40MDLUV1446466941 t  WINDOWS _6J40MDLUW1446466941F  COMMENT RESERVED \wVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 163 Width = 383 DoCreate = .T. Caption = "Cambio de lista de precios de pedidos" Name = "Formulario_acep_canc1" Command1.Top = 132 Command1.Left = 124 Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 132 Command2.Left = 197 Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.TabIndex = 10 AYUDA.Name = "AYUDA" Text1.TabIndex = 11 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" 5PROCEDURE validar if xpedido=0 mensaje("Debe tener un lmite de pedidos !!!") return .f. endif if xlista_ori=0 mensaje("Debe tener una lista actual para cambiar !!!") return .f. endif if xlista_des=0 mensaje("Debe tener una lista de destino para cambiar !!!") return .f. endif ENDPROC PROCEDURE procesar_aceptar return mensaje_sino("Est seguro de cambiar la lista de precios de los pedidos pendientes hasta el "+alltrim(str(xpedido))+" de la lista "+alltrim(str(xlista_ori))+" a la lista "+alltrim(str(xlista_des))+" ?",2) ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Alignment = 3 ControlSource = "xlista_des" Format = "z" Height = 23 InputMask = "99" Left = 168 MaxLength = 2 TabIndex = 3 Top = 93 Width = 36 Name = "Text4" Formulario_acep_canc1textboxtextboxAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Lista destino" Height = 17 Left = 21 Top = 96 Width = 75 TabIndex = 8 Name = "Label4" Formulario_acep_canc1Label4labellabelFormulario_acep_canc1Text3textboxtextboxFormulario_acep_canc1Label3labellabelText4labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta el pedido Pedido" Height = 17 Left = 21 Top = 28 Width = 131 TabIndex = 7 Name = "Label2" textboxtextboxText2Formulario_acep_canc1Alignment = 3 ControlSource = "xpedido" Format = "z" Height = 23 InputMask = "9,999,999,999" Left = 168 MaxLength = 13 TabIndex = 1 Top = 25 Width = 108 Name = "Text2" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "(inclusive)" Height = 17 Left = 285 Top = 28 Width = 60 TabIndex = 9 Name = "Label1" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Lista actual" Height = 17 Left = 21 Top = 63 Width = 68 TabIndex = 6 Name = "Label3" Alignment = 3 ControlSource = "xlista_ori" Format = "z" Height = 23 InputMask = "99" Left = 168 MaxLength = 2 TabIndex = 2 Top = 60 Width = 36 Name = "Text3" "[%<gU%J0C#Debe tener un lmite de pedidos !!!B-%9C,Debe tener una lista actual para cambiar !!!B-%=C0Debe tener una lista de destino para cambiar !!!B-UXPEDIDOMENSAJE XLISTA_ORI XLISTA_DESBCNEst seguro de cambiar la lista de precios de los pedidos pendientes hasta el CCZ de la lista CCZ a la lista CCZ ?U MENSAJE_SINOXPEDIDO XLISTA_ORI XLISTA_DESvalidar0procesar_aceptare11qA2qA2qA4 2.U*)0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _47Q0ITJT81165247962/F] WINDOWS _47Q0ITJT91435003961 WINDOWS _47Q0J4SY91349416377*7EY WINDOWS _47Q0J4SYA14350039611E WINDOWS _47Q0ITJT81165247962R _ l WINDOWS _47Q0ITJT81349416377 > WINDOWS _47Q0ITJT91435003961/  } C l COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form1Height = 139 Width = 429 DoCreate = .T. Caption = "Transferencias entre Cuentas" document_id = Gastos+Varios Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.INICIO.Name = "INICIO" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 107 wizard_buttons1.Left = 33 wizard_buttons1.TabIndex = 3 wizard_buttons1.enable_finalizar = .F. wizard_buttons1.enable_inicio = .F. wizard_buttons1.enable_anterior = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Left = 387 Text1.TabIndex = 5 Text1.Top = 0 Text1.Name = "Text1" Command8.Top = 0 Command8.Left = 362 Command8.TabIndex = 6 Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 406 Ayuda_wiki1.Top = 1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Name = "Timer1" contador.Name = "contador" advertencia.Name = "advertencia" labellabelLabel3 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Asiento" Height = 17 Left = 12 Top = 34 Width = 45 TabIndex = 4 Name = "Label3" textboxtextboxText3 Wizard_form1ControlSource = "xasiento" Format = "!" Height = 23 Left = 67 MaxLength = 65 TabIndex = 1 Top = 31 Width = 113 Name = "Text3" $PROCEDURE Valid thisform.text2.Enabled=(xasiento#0) *=sys_mostrar_screen("Suspendo?", .t.) if empty(thisform.text2.Value) and xasiento#0 local xresultado xresultado=.t. do seleccionar_ejercicio in co_aut with xresultado, date() if xresultado select concepto set order to ASIENTO && ASIENTO seek xasiento if concepto.tipo2=60 select diariog set order to asiento seek xasiento xfecha_mod=diariog.fecha thisform.text2.Value=diariog.fecha endif thisform.refresh endif endif ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 12 Top = 71 Width = 36 TabIndex = 8 Name = "Label2" Label2labellabelLabel1Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 2PROCEDURE DblClick this.value=date() ENDPROC zControlSource = "xfecha_mod" Enabled = .F. Height = 23 Left = 67 TabIndex = 2 Top = 68 Width = 113 Name = "Text2"  Wizard_form1Text2textboxtextbox Wizard_form1labellabel Wizard_form1WordWrap = .T. BackStyle = 0 Caption = "Slo ingrese el nmero de asiento si modifica una rendicin, sino djelo en blanco." Height = 48 Left = 199 Top = 24 Width = 217 TabIndex = 7 ForeColor = 255,0,0 Name = "Label1" "%WoiUTC$UTHISVALUEDblClick012')r"YY%U T"%C  Taco_autC$%FG((ASIENTO E% <F G((asiento ET  T  UTHISFORMTEXT2ENABLEDXASIENTOVALUE XRESULTADOSELECCIONAR_EJERCICIOCO_AUTCONCEPTOASIENTOTIPO2DIARIOG XFECHA_MODFECHAREFRESHValid01$qqbqaAAA2)Y0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _47Q0ITJT81165247962/F] WINDOWS _47Q0ITJT91455902390 WINDOWS _47Q0ITJT81455851715[ h u WINDOWS _47Q0ITJTQ1455851715 />K_ WINDOWS _47Q0ITJT814545444133GYj WINDOWS _47Q0ITJT81454544413*7EY WINDOWS _47Q0ITJT914545444132 WINDOWS _47R16YA1S1454544413  WINDOWS _47R16YA1T1454544413  WINDOWS _6HS0T8J0O14545444132D U WINDOWS _6MB14BVKD1454544413 WINDOWS _6MB14BVKE1455851715ye#  WINDOWS _6MB1667SL1455902371XK=G COMMENT RESERVED "VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form1vBorderStyle = 2 Height = 266 Width = 795 DoCreate = .T. Caption = "Transferencias entre Cuentas" document_id = Gastos+Varios Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.INICIO.Name = "INICIO" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 233 wizard_buttons1.Left = 192 wizard_buttons1.TabIndex = 7 wizard_buttons1.enable_siguiente = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Left = 745 Text1.TabIndex = 13 Text1.Top = 0 Text1.Name = "Text1" Command8.Top = 0 Command8.Left = 720 Command8.TabIndex = 14 Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 764 Ayuda_wiki1.Top = 1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" TIMER1.Top = 84 TIMER1.Left = 744 TIMER1.Name = "TIMER1" contador.Left = 722 contador.Top = 115 contador.TabIndex = 12 contador.Name = "contador" advertencia.Left = 480 advertencia.Top = 192 advertencia.TabIndex = 8 advertencia.Name = "advertencia" PROCEDURE wizard_buttons1.click_finalizar if empty(xdesde) mensaje("Debe seleccionar la cuenta de origen de la transferencia !!!") return .f. endif if empty(xhasta) mensaje("Debe seleccionar la cuenta de destino de la transferencia !!!") return .f. endif if xdesde=xhasta mensaje("Las cuentas de origen y destino no peden ser iguales !!!") return .f. endif if xtotal=0 mensaje("El importe no puede ser 0 !!!") return .f. endif if xtotal<0 mensaje("El importe no puede ser negativo !!!") return .f. endif if xcambio<=0 mensaje("El tipo de cambio no puede ser negativo !!!") return .f. endif ENDPROC ControlSource = "xcambio" Enabled = .F. Format = "z" Height = 23 InputMask = "9,999,999.9999" Left = 120 TabIndex = 5 Top = 161 Width = 120 DisabledForeColor = 0,0,0 Name = "cambio" textboxAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cambio" Height = 17 Left = 17 Top = 164 Width = 45 TabIndex = 15 Name = "Label9"  Wizard_form1 Cod_desc_cue2Label1Text2Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "(en Pesos)" Height = 17 Left = 248 Top = 198 Visible = .F. Width = 63 TabIndex = 11 ForeColor = 255,0,0 Name = "moneda"  Wizard_form1labellabelLabel2 Wizard_form1FontBold = .T. BackStyle = 0 Caption = "Total" Height = 17 Left = 17 Top = 198 Width = 40 TabIndex = 11 Name = "Label2" textboxtextboxtotal Wizard_form1FontBold = .T. Alignment = 3 Value = 0 ControlSource = "xtotal" Height = 23 InputMask = "999,999,999.99" Left = 120 TabIndex = 6 Top = 195 Width = 120 DisabledForeColor = 0,0,0 Name = "total"  cod_desc_cue clases.vcx container cod_desc_cue1 Wizard_form1fTop = 80 Left = 8 Width = 535 Height = 39 TabIndex = 3 filtro = substr(atributo,19,1)="S" dato = xdesde dato_tabla = m Name = "cod_desc_cue1" Label2.Caption = "Cuenta origen" Label2.Name = "Label2" Text8.Left = 112 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 196 Text9.Top = 5 Text9.Width = 327 Text9.Name = "Text9" 4PROCEDURE updated thisform.cambio.Init ENDPROC monedalabellabel Wizard_form1cambiotextboxtextbox Wizard_form1Label9labellabel4PROCEDURE updated thisform.cambio.Init ENDPROC labellabelLabel3 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Concepto" Height = 17 Left = 17 Top = 51 Width = 56 TabIndex = 9 Name = "Label3" textboxtextboxText3 Wizard_form1ControlSource = "xcomentario" Format = "!" Height = 23 Left = 120 MaxLength = 65 TabIndex = 2 Top = 48 Width = 662 Name = "Text3" labellabel Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 17 Top = 16 Width = 36 TabIndex = 10 Name = "Label1" textbox Wizard_form1hControlSource = "xfecha" Height = 23 Left = 120 TabIndex = 1 Top = 13 Width = 113 Name = "Text2"  cod_desc_cue clases.vcx containerhTop = 116 Left = 8 Width = 535 Height = 39 TabIndex = 4 filtro = substr(atributo,19,1)="S" dato = xhasta dato_tabla = m Name = "Cod_desc_cue2" Label2.Caption = "Cuenta destino" Label2.Name = "Label2" Text8.Left = 112 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 196 Text9.Top = 5 Text9.Width = 327 Text9.Name = "Text9" PROCEDURE Init release arr_mon_cuenta select moneda from cuentas where abrev=xdesde and !empty(xdesde) into array arr_mon_cuenta if _tally=1 xdesde_mon=arr_mon_cuenta(1) else xdesde_mon=0 endif release arr_mon_cuenta select moneda from cuentas where abrev=xhasta and !empty(xhasta) into array arr_mon_cuenta if _tally=1 xhasta_mon=arr_mon_cuenta(1) else xhasta_mon=0 endif if (xdesde_mon#0 or xhasta_mon#0) ; and !(xdesde_mon#0 and xhasta_mon#0) this.Enabled = .t. thisform.moneda.visible=.t. else this.Enabled = .f. thisform.moneda.visible=.f. endif ENDPROC PROCEDURE Valid if this.Value>=1 return 1 else =mensaje("Tipo de cambio invlido !!!") return 0 endif ENDPROC ^"EEM~%Uj<-ocuentasC % WTC n T<-ocuentasC % TC  T7%   :T aT  a cT -T  -U ARR_MON_CUENTAMONEDACUENTASABREVXDESDE XDESDE_MONXHASTA XHASTA_MONTHISENABLEDTHISFORMVISIBLEa% B Z(CTipo de cambio invlido !!! BUTHISVALUEMENSAJEInit0Valid1q"Ar"AsA4aA2Tp )E"%`wqU UTHISFORMCAMBIOINITupdated012))"%`wqU UTHISFORMCAMBIOINITupdated012))?"&&%U%CaIC<Debe seleccionar la cuenta de origen de la transferencia !!!B-%CJC=Debe seleccionar la cuenta de destino de la transferencia !!!B-%*EC8Las cuentas de origen y destino no peden ser iguales !!!B-%r*CEl importe no puede ser 0 !!!B-% 1C$El importe no puede ser negativo !!!B-%8C+El tipo de cambio no puede ser negativo !!!B-UXDESDEMENSAJEXHASTAXTOTALXCAMBIOwizard_buttons1.click_finalizar01qAqA2QqA2qA2qA2qA2+})&0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _47R19A9IR1165338869/F] WINDOWS _47R19A9IS1435004792 'RB WINDOWS _47R19A9IT1165339865bo| WINDOWS _47R19A9IU1435004792@O= B ^  WINDOWS _47R19A9IR1165339865J   _ WINDOWS _47R19A9IS1435004792. 3& n  WINDOWS _47R19TKCP1165339865|_ WINDOWS _47R19TKCQ1165339865 } COMMENT RESERVED W VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1#BorderStyle = 2 Height = 172 Width = 554 DoCreate = .T. Caption = "Anulacin de Transferencia entre Cuentas" validado = .F. Name = "Formulario_acep_canc1" Command1.Top = 144 Command1.Left = 204 Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 144 Command2.Left = 288 Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.TabIndex = 9 AYUDA.Name = "AYUDA" Text1.Left = 284 Text1.TabIndex = 10 Text1.Top = 1 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE actualizar lparameters xasiento, xfecha *=sys_mostrar_screen("Suspendo?", .t.) if !empty(xasiento) and !empty(xfecha) xresultado=.t. do seleccionar_ejercicio in co_aut with xresultado, xfecha if xresultado * OK sele concepto set order to asiento seek xasiento if found() select diariog set order to asiento seek xasiento if found() if diariog.fecha=xfecha if concepto.tipo2=60 * Gastos thisform.text4.Value=concepto.concepto thisform.validado=.t. return else thisform.text4.Value="No corresponde a gastos varios !!!" endif else thisform.text4.Value="La fecha no corresponde al asiento (fecha asiento: "+dtoc(diariog.fecha)+") !!!" endif else thisform.text4.Value="Asiento no encontrado !!!" endif else thisform.text4.Value="Asiento no encontrado !!!" endif else thisform.text4.Value="Ejercicio inexistente para la fecha !!!" endif else thisform.text4.Value="" endif thisform.validado=.f. thisform.Refresh return ENDPROC PROCEDURE validar if !thisform.validado mensaje("La combinacin asiento/fecha no es vlida !!!") return .f. endif return .t. ENDPROC gControlSource = "xfecha" Height = 23 Left = 72 TabIndex = 2 Top = 61 Width = 113 Name = "Text2" ]PROCEDURE Valid thisform.actualizar(thisform.text3.value, thisform.text2.value) ENDPROC Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 13 Top = 64 Width = 36 TabIndex = 7 Name = "Label2" labelLabel2Formulario_acep_canc1textboxText3labelArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ControlSource = "xfecha" Enabled = .F. Height = 24 Left = 72 TabIndex = 3 Top = 96 Width = 468 DisabledForeColor = 0,0,0 Name = "Text4" Formulario_acep_canc1Text4textboxtextboxAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Concepto" Height = 17 Left = 13 Top = 99 Width = 56 TabIndex = 8 Name = "Label1" Formulario_acep_canc1Label1labellabel]PROCEDURE Valid thisform.actualizar(thisform.text3.value, thisform.text2.value) ENDPROC Formulario_acep_canc1Text2textboxvalidado *actualizar labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Asiento" Height = 17 Left = 13 Top = 27 Width = 45 TabIndex = 6 Name = "Label3" textboxtextboxControlSource = "xasiento" Format = "!" Height = 23 Left = 72 MaxLength = 65 TabIndex = 1 Top = 24 Width = 113 Name = "Text3" "%U"CUTHISFORM ACTUALIZARTEXT3VALUETEXT2Valid012R)"%U"CUTHISFORM ACTUALIZARTEXT3VALUETEXT2Valid012R)"%/%U %C C o Taco_aut%'FG((asiento E%C4FG((asiento E%C4%M% < T T aB I5T "No corresponde a gastos varios !!! XT 3La fecha no corresponde al asiento (fecha asiento: C*) !!! ,T Asiento no encontrado !!! #,T Asiento no encontrado !!! k:T 'Ejercicio inexistente para la fecha !!! T T - BUXASIENTOXFECHA XRESULTADOSELECCIONAR_EJERCICIOCO_AUTCONCEPTOASIENTODIARIOGFECHATIPO2THISFORMTEXT4VALUEVALIDADOREFRESHb% T:C-La combinacin asiento/fecha no es vlida !!!B-BaUTHISFORMVALIDADOMENSAJE actualizar0validary1srbbbAQAAAAA1AA21qAq3w) >)0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6JB0OARUW1446926983/F] WINDOWS _6JB0OARUX1494643689 ' WINDOWS _6JB0OARUY1494635029)F WINDOWS _6JB0OARUZ1494635029"? WINDOWS _6JB0OARV01494635029  . WINDOWS _6JB0OARUW1494635029 WINDOWS _6JB0OARUW1494635029h x WINDOWS _6JB0OARUX1494637675 WINDOWS _6W91EMRBS1494635029t WINDOWS _6W91EMRBT1494635029 COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1hBorderStyle = 2 Height = 184 Width = 485 DoCreate = .T. Caption = "Inactivacin de Clientes" ayuda_web = ("tablas/tablas/clientes/inactivacion-de-clientes-por-lote") Name = "Formulario_acep_canc1" Command1.Top = 157 Command1.Left = 176 Command1.TabIndex = 5 Command1.Name = "Command1" Command2.Top = 157 Command2.Left = 248 Command2.TabIndex = 6 Command2.Name = "Command2" AYUDA.TabIndex = 7 AYUDA.Name = "AYUDA" Text1.TabIndex = 8 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.TabIndex = 13 advertencia.Name = "advertencia" aPROCEDURE validar return mensaje_sino("Est seguro de los parmetros fijados ?" ,2) ENDPROC ":%U:7BC'Est seguro de los parmetros fijados ?U MENSAJE_SINOvalidar01q2V)labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Tipo de comprobantes a considerar" Height = 17 Left = 25 Top = 31 Width = 204 TabIndex = 9 Name = "Label1" labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Das de Inactividad" Height = 17 Left = 25 Top = 60 Width = 108 TabIndex = 10 Name = "Label2" textboxtextboxText2Formulario_acep_canc1ControlSource = "xdias" Format = "z" Height = 23 InputMask = "999999" Left = 280 TabIndex = 2 Top = 57 Width = 60 Name = "Text2" comboboxcomboboxCombo1Formulario_acep_canc1UColumnCount = 0 ColumnWidths = "" RowSourceType = 1 RowSource = "PD/FC/RE/ND/NC,PD/FC/RE,PD,FC/RE/ND/NC,FC/RE,PS/PD/FC/RE/ND/NC,PS/PD/FC/RE,PS/PD,PS/FC/RE/ND/NC,PS/FC/RE" Value = 1 ControlSource = "xtipo" FirstElement = 1 Height = 24 Left = 280 NumberOfElements = 0 Style = 2 TabIndex = 1 Top = 27 Width = 180 Name = "Combo1" checkboxcheckboxCheck1Formulario_acep_canc1Top = 89 Left = 280 Height = 17 Width = 18 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "" ControlSource = "xinactivar_sin_movimiento" TabIndex = 3 Name = "Check1" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Inactivar sin movimientos" Height = 17 Left = 25 Top = 89 Width = 147 TabIndex = 11 Name = "Label3" checkboxcheckboxCheck2Formulario_acep_canc1Top = 118 Left = 280 Height = 17 Width = 18 FontBold = .T. AutoSize = .T. Alignment = 0 BackStyle = 0 Caption = "" ControlSource = "xantes_activar_todos" TabIndex = 4 Name = "Check2" labellabelLabel4Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Antes de inactivar, activar todos los clientes" Height = 17 Left = 25 Top = 118 Width = 252 TabIndex = 12 Name = "Label4" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6HW0M5JG21435259526/F] WINDOWS _6HW0M5JG31458347570U/ WINDOWS _6HW0M5JG41458347570} θ WINDOWS _6HW0M5JG21435857688$$6 WINDOWS _6HW0MYV2X1435857613rdP WINDOWS _6HW0M5JG31435857688r`T@ WINDOWS _6HW0PI5XC1458347570 COMMENT RESERVED 0VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form18BorderStyle = 3 Height = 468 Width = 544 DoCreate = .T. Caption = "Control de Suscripciones" omsgt = .F. Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.INICIO.Name = "INICIO" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 436 wizard_buttons1.Left = 91 wizard_buttons1.enable_siguiente = .F. wizard_buttons1.enable_anterior = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Left = 495 Text1.Top = 0 Text1.Name = "Text1" Command8.Top = 0 Command8.Left = 470 Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 514 Ayuda_wiki1.Top = 1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Top = 451 Timer1.Left = 504 Timer1.Name = "Timer1" contador.Height = 77 contador.Left = 444 contador.Top = 463 contador.Width = 72 contador.Name = "contador" advertencia.Left = 180 advertencia.Top = 408 advertencia.Name = "advertencia" PROCEDURE cargar_topics LPARAMETERS xNodo_Padre as String, oTipo as mensaje_tipos OF f:\sistema\2000\mensajes.vcx LOCAL oHijo as mensaje_tipos OF f:\sistema\2000\mensajes.vcx, oMSGT as mensaje_tipos OF f:\sistema\2000\mensajes.vcx LOCAL oNod as MSComctlLib.Node, xTipoK IF EMPTY(xNodo_Padre) THEN thisform.tv.Nodes.Clear() * =sys_m("carga") ENDIF IF typeo(oTipo) THEN oMSGT=oTipo IF NOT oMSGT.msg_topic AND NOT EMPTY(xNodo_Padre) THEN RETURN .f. ENDIF ENDIF xTipoK=oMSGT.msg_tipo_key() xNodo_Rela=IIF(EMPTY(xNodo_Padre),.f.,4) xNombre=IIF(thisform.ckCodigo.Value ,"("+SUBSTR(xTipoK,5)+") ","")+ oMSGT.msg_nombre IF EMPTY(xNodo_Padre) THEN oNod=thisform.tv.Nodes.Add(,,xTipoK,xNombre,IIF(EMPTY(omsgt.msg_imagen),.f.,omsgt.msg_imagen),IIF(EMPTY(omsgt.msg_imagen_Sel),.f.,omsgt.msg_imagen_sel)) ELSE oNod=thisform.tv.Nodes.Add(xNodo_Padre,xNodo_Rela,xTipoK,xNombre,IIF(EMPTY(omsgt.msg_imagen),.f.,omsgt.msg_imagen),IIF(EMPTY(omsgt.msg_imagen_Sel),.f.,omsgt.msg_imagen_sel)) ENDIF oNod.Expanded= .t. oNod.checked = oTipo.msg_suscripto = 1 oNod.Tag = oTipo FOR EACH oHijo IN oMSGT.SUBTIPOS this.cargar_topics (xTipoK , oHijo) NEXT ENDPROC PROCEDURE Init LPARAMETERS oMSGT DODEFAULT() IF NOT EMPTY(xTMPUsr_Nombre) THEN this.Caption ="Suscripciones del usuario "+xTMPUsr_Nombre ENDIF thisform.tv.ImageList= thisform.il16 Thisform.oMSGT = oMSGT thisform.cargar_topics (,oMSGT) ENDPROC PROCEDURE NodeCheck *** ActiveX Control Event *** LPARAMETERS node LOCAL oMSGT AS mensaje_tipos OF F:\sistema\2000\mensajes.vcx oMSGT=Node.Tag oMSGT.msg_suscripto = IIF(node.checked,1,0) ENDPROC .OLEObject = C:\Windows\SysWOW64\mscomctl.ocx  olecontrol olecontrol?Top = 439 Left = 420 Height = 25 Width = 25 Name = "IL16" ITop = 24 Left = 2 Height = 408 Width = 540 Anchor = 15 Name = "TV"  Wizard_form1TV olecontrol olecontrol Wizard_form1IL16Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 5PROCEDURE Click thisform.cargar_topics () ENDPROC Top = 3 Left = 408 Height = 13 Width = 61 Alignment = 0 BackStyle = 0 Caption = "Cdigo" Value = .F. Name = "ckCodigo"  Wizard_form1ckCodigocheckboxcheckbox.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx ?Top = 439 Left = 468 Height = 25 Width = 25 Name = "IL32"  Wizard_form1IL32 olecontrol olecontrolAutoSize = .T. FontBold = .T. FontSize = 11 FontCondense = .F. Caption = "Seleccione los mensajes automticos que desea recibir" Height = 20 Left = 4 Top = 3 Width = 394 Name = "Label1"  Wizard_form1Label1labellabel.OLEObject = C:\Windows\SysWOW64\mscomctl.ocx omsgt *cargar_topics  ࡱ> Root Entry5 @OleObjectDatajAccessObjSiteData&\ChangedProps<Aljj(6(!C47+*  z{st  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~Root EntryЪ OleObjectData AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I #$,j(6(!C4~IF!ͫ&oEComprarNo_LeidoArchivarTodosNingunoInvertir ProduccionCierreEntrada3EntradaSYSMSGContro̚"k&%t&Ɔk5y8a})x^JDC u!>7srsGlVRj,"h8N\ܢ!L|?_K| ߻^r:LɄqDZ.r!g֡oBPFB:48^{2$S2B!UMx[KdC H#z;^!jW>; H(dM=G[nUg_fc99Eyάq sQ7xP)d0)w YmO=]u`WCBo"u\āG4@XB'%L1! )xuų+d.ΑxQfvoe`,$| )rBN\HEk[兓U]-q,H֨/5Y-[mK&R-: VeePY0*2#UG HB5@΢'GQ,EK>]0T; @Zf^˳%nmLb/QuGl³ #9vmKlKQk|` ꦅvH55ZG>:4#u !A A !(P2*[bt4Ay.{m G Y8{?B(T]o$2H'c%4Ͼ2K-E>ͬk6lpde0V[ؖRKJ,h>]<}0> -C!B#HbґW#X4q/OFuLmoÅ!C<:cTB6PvkSe(J9bB ryInÑk"J6[_1m&(4Ç]#%cGK:,O)dC2#Z ;b{8Do%$x4}bߩI`Q0@%EVe lKXR~iW/] #/ofH6@6GT_F~Lu#^j-'W9ؽj; S{O9/9_(T,Vy+XE5Kh*ߋWo_K& sJ(b$%"%;ÅDɀo[ƺEWqՖc$ I`u#7-~'4VFz=A,wqdO6d 3{N=Ah Ry~GZDVFצXF >$p D q+0`B`[hڃ?T<Ϸv#HBy` Υݺ̽2'ʿh0QOI"X  ????????aalta  g (g`` oHH Tq@@ (BX00 %!   q hPNG  IHDR\rf pHYsod IDATxyƒ{fZJEJTkdJ(ˤd{Ιsi>9=3iweɖllI$%[2j+X|Y*@9~]tq't< )4b_u}]tq9g\@5չ&.t |A I@*4Qfawh^k @ ~8* F۟:!#վ.)Ă `a y+@>y5KSj .?G0&@ B%`Ak+ޕ݁I>yՃ<#y{} M/XH],~H-x{=8K۶H^S8FCX`Q/?D1XO^#Ů 3Gljwk(S/ ؇o<72[$X |,h\䏑N@I˹tf?woktqE?D>kDS_̮0޶8l߲w[9۰h:Ƕo/1t(@!(YMyu=]DZ~mfJ+4[}f҂gR/ f۾G߰/%Lrw-\e*9~؋171Z8 3ڝ+/ 6ba<F0 ,0 h@kƝ<}qJ?fOӛ|G Kvh=ɾ!Fٍ@p@tfL50_LcBS~G$;d(# f[ִ! SI^&$IB̮eX4 ?F9I5jA"\NA*X7E$Ηpu-}|>uVBQ*_.C-aHsɶ:ԭ_k{3.IϿi4fH#+#T* (K>y>@xXzb(9w-.S[Wq%..+>Ā@wh+g9PXŁҝq G@Rη,`];-Yٲ v "Fh źk|%WE_]Gh|ȷ@CsT5̾qtp宯XF<{([9ʂև1xh:źklԽHngtz%.< zǩQ˖`0} [2Oylp`)AB@R!y/+p9~6K]Oq)ō`MqfTu{wd5I Pfټ4^Tq]O*S2#ML!|G*77>p2)5aL6]MÀvuAuF _l#q%ێ@{DB:w*+ᬟ+ZcknK.12""XG;/, / 14@$h6OrCX} ޯO>x2 1Y66oz1e*c 㧟U 4$=Dۜ}F:Y=mn eXH$'v]xde@))LQ%<OCqWg3O'۽k@v ˇ:vyl/9?#0!rQbz) 3Y}_ _>?F3VHzAvέ.އ<1!>8|gc>hB}5:\^d7}'6i[5- 䜊d*?:sA]'`"NV#=LC]l ੽FNY4R9:r'%.3BM/D5b_bd[azcQCܶqp9CX`7|QƱ>>SxVLJs&y{LC{W,a7J~r1Y4%^]sErj'[Äh#u 4uж ~Ze^;) w˯>x{4#$d{h@ Lv'W~n@?9>/L/D֝o&](m"'`~vGh$5.]IV5]/E9`TTvWYP@11~ӕsp 4lmN,c`Ac o 7~?)8L/<ǵ7MM~'amuu$l՘c0$EJз{(SMMvX&}K#pF{־D!ڦo-b?aL~!ir*N8(,מ`D.]M㵂y`14V{79{ߍiOUӫ Ojxm۰:O[jθ!л06߃=rV._pAGh:zS;iJsc źڟmv {ng9y k|e1lWdt si$3%pb=~~rnO<{&Oo6zr|- adj)j@ye{&7dnU@^L}/^1$L `t#aBd`&8uF3"4ܯ^OL&0A%1`"ntKF]faZ`mnj5T^0$w%L0f/Z=qf1*}`cB}{IMS}1¯ޙ@OIN&zW*ݿJqi? Il:O,kh,Bj8_(Э7_;HD]eeC,])g?XGsS/}lĐYn/%`w:4KB8/y[zu8iB"~Tn6ϡ߈"S؜Z=˱w8Qoߑ>O鳗.Y|_8kkp,F6'^W9wI>,꿮NK]\?{ۢEY:[e/1ӽ7K -κ4S8qs֗N֡`W<'nLҭ8F=#~N}S/O&Ul1?|xY䟵v WZ31R\zyL(/m2 2m>*j] C&w|l;hX1SMҩ/`,B|9.>Yԍ=f,)H0` 4۾Gx_dxzD +?b[G_.D~@k4, FK7ϫ]oVw:7D}Fz$% /%#B-㾑}4:'Y9vˏX0Ak\Y5_geGC}& V.s||Q8y۴Җ%Mՠdb&0sonIv@}9 :FkX5 QLYt3dR5?f?t^ۍ7v]wI}˵2$W2@JA^ Cp{/@{]8h5f ALAx|&Q>mok즸nvaz绸їE>q=y;ca)29Qh4$pǸ#ŇEJMC7a̼r?" c5h/dڋj3 b[ [vZlYx?'. mc3mBGus/mdյ$-qJFXJq- pSxXso@`?1s5"x>͐ZϮ1'ߙU8bqu;lRB iK*!ۉ`_̈́4}}oSzo3skJ 8`۪LmWaU8YCGJyW-fy3o8G87^aOx~O9 X;y!^3 @qBcMTkԪ~+q8i;k%c+hn)@QpƋڅޖȂSpp6cؒp] 5$#qkI\%:>'#{ˉp/ʫz7w^%Gx5Cx!a#%ZJAS,/[RBHWen7.6 fh'5-FN9qY..@d,쬅p Gn$pkK);>_w+}c7?`$27|9| /.i'3uf:w&"|ߌs #f 넠lԖ=,gK/2Pi& \6jSKYI~kJ"n$’= Ew;OKm*3%\#cw ΁ޡE :D(xG//4fNp]OTg)olRBBADB34] V0ԧ֘4U!vF@nN9#u9!O?zwg* j5D~`u8"/ub֝~8>N7qgZY53d gp }h w3#l44iT "!$"!t *CeJ4T=Ø_M0k-g)x3p:)! .蘰Y4:Z8ƖoՖg -O7~o(Pކ=Ism8^W%$`EA4 e_j27g;m^\9zBBрttq "ca߯-L}5_G),gl!Kt&~:zLh: ޷(@iThӬ7_k# c{ڔ! &(8=j9Mi)6lAW6ZkZkf &.VZ)vV.|p OAA(Ͷ+?>k[@5 =oSy(Xk ~ȯu P-6b4lGH_o D"l}Rwl =#&_9~SKPԘOk])P{:׸zߡ0KS_9H%VQ PI:MlL_wu hv0h[ 4kCL}e5&P:K_ |~;9u( ' 4_0K@족:F:Ncm_褐z{ B(_/m!H˃+s(7r̓:qCVOpMCEmZA@ s>וNz-=oDAg4#VhPZK 2[cR,4l~g^'igi:Kx/]\yH䉼*vy *S25W"2cTO4ԖӪ ! r3mkOb{ k<ٶs%;>0`896}ԅzU#1s6a?&`zhOQ IDAT2fӔPe-< 䕁 S S{{X 1F׏O1=6͓8{FlK044C* 䗸[ ^@G~heUA7׈DD~g\t&C&V35$K(,7d*)i>zt7N/Տhh㈨Y5ZU?+S^ iydj -vrFΆgV+>?Eg>Hܬ1xe.#e>6MlB֖Gx:Ωw\ 7 ͮr}}fh%!FzUE7W![:l"K]V`ϋBJbDF()dT+N}*Or^d+̼/ aIbyدcw<[H~>3/%L>tĀ)3z wJE#S" <‰flLWؖı Xa8;{;#sI'q2UnNHQ#^@ K\/[Cf+8HHz ؄@(12Ha#eh<)H-/ՓK\K;^˻ 6eaT%@:Sc'CP[*8w9PPCyGeKk4f$xdhTQNaxFݏņ>-({[]B;P_:+_b쮧lP:o VGa+p,'"‘d){#)@`C~8lR]L2MHdW]Hih#\(%lB%EIPBL BmZK+#4VF|wGy6e\ej(b.p,N] e-s/tqKU&Vٙ;B2[4Wct՚>&_<#wݶڕ[{ePX(@3;YAh谁fBVW?ZZp -aϿܡdns…B+bLC%Pضi`ى&`~3f墏`=walG7X=+'ӷȫ#oCϬ6,N4#`Wut:{k 8CI`}X4PR $%V#!B$C4A BL>1|BR2ZBخ1;`\#\42HK I2b[IҐ-jB`fc#wّVJ;[0bcGVѡZhg =-i9FMb#tz {?q? KCH7X=֓d .UosnO<_%ё#"39iE+o(;D̈|+7b %, '&@]elĦBM۱(F%#" L$Q+^+Srb}c;[Tq=Be˄ETF"tie:4ZNtfЄba &ZG8eyi{4"$l~'xh-i$,U=~{tF=C^V9 d3;ۚ eq02j "h 윱D>7KwtYكC- t~O0D)9NcP%IBc)$e9LMAX~b?ݛ|!FUw .'5Leힻ)΍_? ]DeJW6:4[4zAh G6Zټ|zS5N 9-2p}[@IVfnBud:a)!ll%s/S;Pb [J@؅>-fp!ဌV XXIjX 6dzcO-Gpp[\t>EYQCHZIcݠ5qsx]?3|!`2S!?Nνf]8hD E~j0p__eϣcUP^BG!{5Alq\ql͒q\Q'`7f%xXvN<΋GSu.:: #vv_qd#3%= \%'!fJGQ_>كc+dr,\۵qrܜ[؋MP(d+@9H3>R 'oE5N8h<:>d7]}M7u-?8u[sl B֦w(\J9rlYB%8/ ŕvщVocom{>Nq"3Ev - B40f$k+),Z 'W0 oK\|Dֱql(kficǡ >V%N=oҊ0 PB/ &X(T%Lʂ7<~$ C3C\b;"G d 'Ŷ%lLU6ߗCe+Xq/Q]ŲSS'` W;_"0vYP!zДcaTAkV[͕ ??'ڃ]i_;{q/z.!P V,kNHT!-u_diJQdK(f. ;ò,Ly,Lm|Q}{VP"hmU4qcc= WOP_1j[H$Xurݙ1\4f/"%HC$HXū] 締Z'~`P* \(8&â.dNm3YF 뛄=Qsf"ds)p+B.gKz,y!M/r)r^l1t҅5RQl#2K"_ Ŕ!F0LUI_FP[PDޯ{yQo IDATTFj1H ⨎(1si C`2~DR~!2JB!DWa4'0{> ۸ 108?W"%&b(|Cn: PHh $⹯!P.3LǡSK`(Ŭ^ôf k>g15HBBT,[Vdgg\8")*CYļI@$u]rtM3G +\@TIP9ۘm/S >dӄtz5ցKaۋeMБV# Q$PJTJ"o YnK8U|ŝxx71*59S 8CE'>ZDe6~SH DJ VHHTbP8*y ׈\ e4Xcvz K &$t.b*&ba* ^mLӠTA lkoD?c[ɳ;]șaY&AKK݅:}i4sO|K;PK6]U£0Ӱ:!*DetSVːR Qq$+@ ⨆6>4$59U).c{&XӺۺ`\>NχcUEtp)pMU jHNJ7 eR)2 rp4m.z~'ܽyDv "8beU c8pGCJByĒ}P7 %P hf k` 榷j个\گ26 ۚ9aP[`I(2`' CHscȍ_IEyqb00Au:4-f]Ggf!C$JDJ>Z~!rH``<ycYn{07{DuNg Sk, Ӆ^ጵ|,[G0h'.{/݃Z0?L? M1jՄޯVHHB˲@xð &/7*;[ТFƩp3>!M.kOҼcyiޮ,2()h*Qΐr,>8Sxe8:-/}AߝBK3-}C|P~)dc[vB"QFT罂X2>p0_΍`^!l e`>گr66HL,_ƿoO̎U+r;?8mdӝFv%kժD5W Xz/VBX- 9`0C TQ}@>oG4[LJgLlO?:'Vh U^G$)+gዣJ=n ,/dA/l pr9p4L[Q0Z_D1PH$d68?~o|pvVYg9^+~FA߻NI|TBBppGϝN JP.?ho ˇv`^˼8 LT1A)l^mgpvXrޏ 箥>QV܇+8`᠝} 8eL[?EHwp u!Y5ȵ6TPAq̷1T`X 9dNppJ7G' ŝ9zXC7R;k5QɋkE[z.ȭA/RA} > C[q@K$qsVN[F3j2,s c,u2-$gc bh@p<u:y{sʉO^).Ϧ~ +*;0=⓳s!bzйEʵ_PpX 8pS JB˔q543hiThZA+3ȴu𷡃 Ρr$H Oc(=x7m.ʴ߽9~s|&EO ߸Hlba:ug&QS iB{4I888(8GF@@ %x+@:hk`,k 4\krVfhh224ȌCКR"ܞ1lNHsr[k#^#Hs=c~s|>ox/}=} ןZ#h#8e9o'(?|zLr@k 9X3GGJX+(pAh')#܄42R^w>inʽ,G+7h6s2-VyM 7Y>g5guC&Ҽ4 L3\p&0=?~n*Ə>b]e)o1KZTޏ ୏.3א9NY!#*|##Ra C`XL3ȍF4̢LHS45(|IL WkZ9@p@0:4L@I )2R3Jif^'goNbWbA<,%USnSxxshr8,б:c cc,+a •"h@v_ T,<Lhf͖F3%ҭk\ka sᅶ"5?r̴ך]rZa D004Rq;TB"i*]mt+> RWqD:5髻GԿuX)X[Hq@z&xKMOO{_/heThc\k b|J& Yhڒ8 $dr4A[V.2H2;j,'c% חF\}xp[?~9\OKWhm8%V a%F!]`nnB_+\ts4͌\L[dZ#:<{?zPJgp6cFހPTo,'_VV r|~% D!V9C|lŻ&*ׯo?OZ N렭%zmZhKĤK tA \:AM2me<[H@_{t Fo${4900&h)g /&Pa{:r@g!Ūݛ â)CwR J?~+u /n}ڕX;c#o?,]iZ) ,Lm%?/J0c8Mn̈́L[e(͌ZcKޮMnp&E@$`NI,7 <(u=\ZＰO][GΣ9B 4t|ZՖEIDA \a ʶga,宝of͖/IuGQǪ꣓'gw!-/_ _8$ Qi]l=AȊT(k}˿|½}9S6XK' 9X F:E79y-JeH 'q,=@ހ |4G,-3n~Dupz"ϟ݆OW/ ͌/*n|15ps0(TYh7Ћt]g5m/ͨTsfӻFs!މ^ydU3]oj8"ϩcm{+S>VÛ06+&] mLzq%5PAؓ v-/W5̷fTbD}UC{1pG9)+P{! X=5`("oB$t*G @[%x-]녾]RSxi]`sgw[ vMoF5y[ 4R@@x^(nAs}^H;z)iЧ kOmZ*@9_Cp :JkmƁshJmuJD#R `U`z[bakmL慄F4ZE{_kGvFxJP$߮ y65}V+GPd;B8@XBRs~ S#O;㻇p~*.{2t.sA[/ VPT9M,* m)o۽5[ENs8 #|e$o <3<{(Lፃpe.#o"bH@'6@)ҀcۭﷅbZO# =-Ɵc7M/'c5>$0Zg}Vy (nhvH-Jb|/@w+c`d~y<.\kށCv ؤmu׾CiҬ R^;-y'W#|8U%̧9Ӆ:ĤB.p 3!G&}]n0V (mH6cuy@_I*7+vV1t4_~)^7[Vy':מކggOG.bТfeG9I ,&|ZAciu酾\[K{'o cj:|'/̵s:B'CS6@5vQ< };Z']W#)#>;!Q_yl+>8\@#KX_AhGHC ,Y`<(avxΐin`w5}Mi#M`Cc[kx BJFLB4o+RpC_AHXV޺ۮ>BlmE=\K|-Z;AINbϖ~?|s Zw X ~5$9Blpń>u̘/]Eyxj3ɡ*]x%9u Љv [Ċ#^^-^kxwY4zEhzx`"sc~s ޖabe 8}= XtAQu\6xx0g|ho>>Ƈ'˰Rk1O$b88'}O3HsBpi{VQc㥇 3=}9\O E&0~') ǩx@օ@= }Yn~3h{ưw~*u`=?O]/Ak_Fl{ \ᚬ;rM: oWQE#}1^;zE-71cuu.ϦzIO|ωAJ ֮6B^}0[; lFo<^]E):X̰5/FB_m9? |ߤ͖P=8JfV`g Fx8 8a ZI5S+iK7Ӽ}g?4}w60HGp, ok&&:#9$$ab NFǘ ;ax Wp|@H@6»f+ξfvE_J:^~d+Slbb%[q<9zslA,"6^ zp T@[wZwoQk4vNckr`su?zn'~"N-BmIDAT%ƒw$!LcV,USˏMallx 'op R47ؽv5`=O\3B \/$^;zh }8gx1o^l#[}ynqA<}hMKaOnG__\]}DG 1;Gm~|5&.XЧ3f6_}|;#_\YS }1rLB`_'wd qu6]D A *1DkU8g& ƧDx)8?O^.7uV@K6 }B+q TؽcHP\P |z5:By]'.e0/9OhؼTbڂӗpR$4}+X^' }E^Hvgj*($XT dB5 .B <00?FI'hOtx^ 4"V\ VmlrM;rm~5#y' C5Wpe|qyv@X*rHtl*x e"Ǿ{05ڇ>FZ XX)@Hsh@Ήܿm(_޷q'_+uZz`JX 񒿹@`#C;F05Z/Z#C %e ֒ m,l-Cw}Q x8~ 47k\ma31`!Lqe䯹d=cس5l VjWmDZ3W"ݎpXX|D X-͛X\U\jOnUpeYvi Xv:c?ߐ^`1+frQŎn*ֿ-@b>Fd1;˂@U+dt+x̿qHTc,#_',^H49򟓣mx7z 9d4N,8y==DbXaïNJ CFTu @.B X~=a@a Эc^],)n;(:u%,g #P C;4?ϱ0 2t|q;ӂjpB]%`8ӫ,vA;xQ#g=F szuuՀJftu~ X^s!pA6~ z[Y[=pw^@c=C۫w`9n 9蛶.Rj8| @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ [,96VIENDB`(    #%&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%#   ,6;>??????????????????????????????????????????????????????????????????????????????????????????????????????????>;6,  /@MTWXYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYXWTM@/&<Q_gjlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllljg_Q<& -E[[E-  0J``J0  1LbbL1  2LccL2  2Lc̹̹cL2  2LccL2  2LcμμcL2  2LccL2  2Lc˷˷cL2  2Lcν̻̻νcL2  2LcdzdzcL2  2Lc̹ǴǴ̹cL2  2LcįįcL2  2Lcɶ®®ɶcL2  2LcϽͼͼϽcL2  2LcƲվվƲcL2  2Lc˹սƴƴս˹cL2  2LcíӹӹícL2  2LcȴӹӹȴcL2  2Lcͻ׾ѵѵ׾ͻcL2  2LcįѷԻԻѷįcL2  2LcʶԻΰ;;ΰԻʶcL2  2LcϼдѷѷдϼcL2  2LcƱӸ̭ǶǶ̭ӸƱcL2  2Lc˸ֽαϲϲαֽ˸cL2  2Lcп¬ѵ˫˫ѵ¬пcL2  2LcdzԹ̭̭ͭͭԹdzcL2  2Lc͹ؿвʨӻӻʨвؿ͹cL2  2LcѿĮҶ̫ʩɻ±±ɻʩ̫ҶĮѿcL2  2LcɵջίȦ϶̿ҾʱŪŪʱҾ̿϶ȦίջɵcL2  2Lcλѳ˩ǦʼŶͶĨ~uu~ĨͶŶʼǦ˩ѳλcL2  2LcŰӸͬǤ̱ҿɯvkeekvɯҿ̱ǤͬӸŰcL2  2Lcʶ׽ϰʦġIJƸͷũ}ofmȻȻmfo}ũͷƸIJġʦϰ׽ʶcL2  2LcнѳʧÝzâҿɰvkcūūckvɰҿâÝzʧѳнcL2  2Lcѿ«бŠ~jZn}pgrrgp}nZjŠ~б«ѿcL2  2LcȵӶơe}PsAq@YȰȰYq@sA}PeơӶȵcL2  2LcůѰy`{Lq?~R̿̿~Rq?{L`yѰůcL2  2LcƱӵȤn\~QȬȬ~Q\nȤӵƱcL2  2LcϽѱǢqdvvdqǢѱϽcL2  2Lcɴֺͪĝ{nhҽҽhnĝ{ֺͪɴcL2  2Lcо«ҳɥthŢŢhtɥҳ«оcL2  2LcʶػΫƟ|nkòòknƟ|ΫػʶcL2  2LcѿìӴʦ™uiȧȧi™uʦӴìѿcL2  2Lc˷ٽϭƠ~ooɺøpoƠ~ϭٽ˷wscL2  2Lcĭյ̧švi˭ɫišv̧յaWcL2  2Lc̷ھЮǡpttpǡƪC:cL2  2LcŮն̨Üwjβ~βj|q'wcL2  2Lc̸۾ѯȢq›xsYz|b j[qcL2  2Lcư׸ΩĜxlҹ{0O{p}OPY)zcL2  2LcιܿҰɣrŠ~LR|~94v\CcL2  2LcȱعϫƝzoֿjU~{*f^ dcL2  2LcκԲʤ˜sȥwXrYz|_ ucL2  2LcȲٺЬƞzrŲ>\bNow[ 4cL2  2Lcϻªճ̥Ùt˪^ ^G<}}lT ScL2  2LcɳڼѭȠ|Úu˻s a|+!y]jcL2  2Lcϻȩִ̈Úuί~0dqpi pcL2  2LcʴۼҮȠ~Şzjo{PZT9s|qicL2  2LcлĬ׶ΨśvҶo*%EevmWt~uhI(%kcL2  2LcʴܾӰʢ~ǡq'7Wq|z!vogbQ7mcL2  2LcмŭطϨƝxֻs+ (IhrB6rkK# !mcL2  2Lc˵ݿ԰ˣ˦u/.)!icL2  2LcѼŮٸЪǞz¬v3!acL2  2Lc̶ղ̤Ϊw8-pyƴǶcL2  2LcѼǯڹѫɠ}ȵy=1vɩڹǯѼcL2  2LcԿ̵ֳͥЯyA5wƪȤ̵ֲԿcL2  2LcĪڸҬˣνyE:wſ¦д«cL2  2LcӭͤԴxiNKgw!p P2   2Lcȟ{whL0">Zuw]A% -Ifv!E6`6  1LbxhL0(V[--Ifw/b&Nk1?  0J`{Y.)hm/,Sw8s.^r BC  -E[xeH,>D )Fbw7q,[k=> &<QxgJ;G\_G;Gdw/a|&NY,1 /@MTWXYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYd4m%Kx*V~.^2f6o:w=}@CFZ4X\7^FC@=~:x7p3g/`+Z{)Tp!DY4?    ,6;>??????????????????????????????????????????????????????E,M9R!DW'O]-\d2fj6np9uw=~~ADFJW&^KFDA>:vx6oq2gk.]e'P^"GW=O4E5!   #%&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +'0?6&O;-\A2gH;yT?YIsM_)fNIu?[<{U3hI-]B'Q;A6)1 +$     0c%=}3JJQeT{f!}+lUQgKL>63h' !   &/8;yN*UBX^YvlØ#{}.rƞYyX`UDO,@65.&++ 0 C*V5jPX&Z?\\\tpǙ%vyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyx0v˟\x\^ZAX)Q@2f*V"F77mT]%]>][]trɚ'rttttt_=LttttttttttttttttR:[sttttt2zΡ]x]]]@](\E>V]&]?]\]uu˜(mnnhK+ ֮جRnnnnnnnnnnnnnnnn]ܷժ (Hfnnn4}У]y]^]A])]LY]']@]]]wx͟*gW9zΞ]]z]fhhhhhhhhhhhhhhhhh]]y]v̛ݽ6Th6ҧ]{]_]B])[\]]<]]]x{΢( װhĐ]]u]j]`]b]aaaaaH]aaaaaEaaaaa)_]b]`]i]t]e֭ %Ԫ]|]`]=]\]]%]H]nkƑ޼|Ϡ^]{]p]e][]P]E]D]hqɗ7[[[[FB[[[[K?[[[[Aѣ]l]G]D]O]Z]d]o]z]y͝ݼpɕ]r]L](] ]] ]D]f]|]v]k]a]V]K]?]7]-]2]N]s۹KTTTBb(TTTT1lƓݹ]J]U]`]j]u]|]i]F]$] ]]2]H]S]Q]F];]2])]\]]5]Y]~LLL>]]LLLL]]9LLL]]]]8]]]]']1]:]D]P]V]I]4]\]]])].\-]$]]_ __]]>]cc!EE:]]e]vBEEE]y]d]5EE(mǔ]g]A] _^^ ]\]#]-]/]*]_^] ]]] ^] ]&]I]nԪ/>5]]f]T]lҦ->>4ر]p]U]d]1>6ٵ]r]M]*^ ^\]\] ^]]0]T]y5/^]g]K]=]cb66 mǔ]f]@]H]e],6 ]}]X]4\]]]:]_])`]h]M]4]6]Z] ..]]^]8]2]I]f]'`]b]<\^]]"]D]it̚a]i]N]5]]-]P]v#%]z]T]0]]2]K]g^Ҧ]m]G]&] ]\+]O]tܼb]j]P]6]_]$]G]mӧز]p]J](_]]3]L]g_]x]R]/]\]4]Z]dŒ]k]Q]6]b _]]=]ccŒ nȕ]g]A]_`]]4]M]h`]]]]7]]]4]]]b]l]R]7]^ ]]5][]]]^]9]a]]5]O]ia]]^]7]]]-]J]d]e]R]8\_ ]]-]Q]w]z]U]1]b]]6]O]e]f]M]0\]]]2]>]@]2]^ ] ]%]G]mԨس]q]K](_ a ]]1]?]@]4]_^\]]]]]]]>]ddnȕ]g]A] ^^]]]\]\\]]5]X]s]u]Z]7]\]^ ] ]>]Q]Q]@]$` ]]!],].]!]] ]]\808<>(`   $)********************************************************************************($ 3BILLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLIB3 /J]ehhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhe]J/ :XX:  =]]>  ?__?  ?__?  ?__?  ?__?  ?__?  ?_νν_?  ?_ϾϾ_?  ?_ȴȴ_?  ?_̺ʸʸ̺_?  ?_įï_?  ?_ȴ®®ȴ_?  ?_ϽֿֿϽ_?  ?_­վվ­_?  ?_ʷҸȷȷҸʷ_?  ?_п־ҸҸ־п_?  ?_ŰдððдŰ_?  ?_̹ԺϱϱԺ̹_?  ?_ϰԽԽϰ_?  ?_ƱҵͮͮҵƱ_?  ?_ͻּ̬жʼҾҾʼжּ̬ͻ_?  ?_«вʪɹѾǬǬѾɹʪв«_?  ?_ɴӷʨͲɼͶtiitͶɼͲʨӷɴ_?  ?_Ͻ׾έƣӿѿƬ|ktǹǹtk|Ƭѿӿƣή׾Ͻ_?  ?_«ήœywƪtjƭƭjtƪvœyή«_?  ?_пոÝz[wG}Pr˿ʿr}PwG[Ýzոп_?  ?_ʷҲrUvF¢¢vFUrҲʷ_?  ?_ȴҳŠ~grrgŠ~ҳȴ_?  ?_ͬÛxkййkÛxͬ_?  ?_ɵԶȤoţţoȤԶɵ_?  ?_ϭĜyqqĜyϭ_?  ?_̸ֹʦpǦĤpʦ̸ֹ{_?  ?_ëЮŝztƵtŝzЮҾQs_?  ?_̸غ˧sˬʬs}([_?  ?_ŮұƟ}u˼{e˼~k s_?  ?_ϻ۽ϪĚvҶdg*IA&_?  ?_ǰճȡȤ~fx8vt=H_?  ?_ϻܿЬƞ{ֽ7id#u;j_?  ?_ȲֶʤɦZmHsLv_?  ?_лݿѭȡ~İx\rt#:.y~ec_?  ?_ɳط̥έ[$Eg|)S}{wlW7,s_?  ?_мӯɢɷZ 6ZvI nn@" 'u_?  ?_ʳٸͧҳa %s_?  ?_ѽªԱͨd-fŽ_?  ?_˵ںϩշd3~ع˵_?  ?_к©ձЫj7ŧѰ©к_?  ?_ٷѪھ_ .oȰ d?  ?_ͧz]=! 9Tdmv}{ri_I,-Jk;wI   >^tX=!Lze8,He~0c CV !   ;Zf5 Ch' Iv5n&OX   3OfI0Kpa89Uq/a{ BH$9JQSTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT ^?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~y7oLC?:v6n1d*Vv&Oi>N )  !+022222222222222222222222222222222222222222 6;3B"FI+XQ2hZ8td>mEL~`1]HBw<|j6o_/aV(QN=F+= 2#   0c+@?L\S~Ͷ]1aPpHP8t4!E#   #3!C??~5EV,Mo'P|%UUZ g:jU/ ~bXU&T'Oy:_u%6 "*-------------------------------2#8>A,[L6pXAlKrQfH}>e3hS(SI4=3 &      /aKBUnӹlQoS`F5?       9.]MZ:]iڹgxxsmxxxxxxxxxjuxxNw˙[YX-I 0aQ]:]iݼ`cG& ײCnnnnnnnnn!ۻ1PiLy͚]Z\,P \]6^l޼(x͘`v]gw̗WbbRbbaRbb9_w]jd~Ӧ|Ϟ][\%\] \Db~kƇ]n\Y]G]9]X޿VV6VVG ޽IVJt˓]H];]M\_`umnj]n]/\]]%]B\=]+]^]+]m#I/pȏu˕?I*]zذ?H ݽ]V]^]!\1]B]=]]] ] ]] ]=kŇ.)sʔ]Xby'<]b]e ۶5]j]*]\\ \ ]]\N֯u˖]V]4]e,װ]N]8]fܹgÂ\;] ]\%]byΜ]X]*]]Tܹnȍ]?]]8]i޾Ԩ]N]\\/\qrʔ]Z\+`] ]Eu̖_t]/_^]9]jqʘ\[]]"]P]S\-_ \]4_w]`]"]_]:]Y]C]]\\]\]&\elǏ\Q^]]\]]]B]V]3_]]]\  (@ B  -222222222222222222222222222222222222222222222222222222- ?YabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbaY?#RS#&WW&'XX''XX''XX''XX''XͼͼX''XX''XŲŲX''XʸǵǵʸX''XվվX''XîֿֿîX''XͻҶҶͻX''XּҷҷּX''XƱίƵϹϹƵίƱX''XϽӶͰåqqåͰӶϽX''Xؿʨй˴{sȻȻs{˴йʨؿX''X׼sVbƭƭbVs׼X''Xҳi\ƸƸ\iҳX''X˷ϮrͳͳrϮ˷X''Xپȣß~ß~ȣپX''Xͺѱšvһ͸švѱͺX''XʤǥƤʤǷMX''Xλӳĝz¯y¯w~X''X«˧˪4x]`3X''Xмֶȡɸ@|I7;X''XĭΩϱk*"~odX''Xнظʦu v X''XƯЫԸ][0$]ZX''XѽںΪ1#GrTMk="+X''XǰҮٿ6)X''XҾܼү;5ѷҾX''Xǯ԰Ʋ@9ɻ˭ůX''XӱuO.3DMTNE5,Ms*h(%V}N- @nqB +Ly/` .  KtM,1~4+Kr._u '/DKLLLLLLLLLLLLLLLLLLLLLLLLLL U Ae*Vp4j};yBX_d[B;z4k~*Wp"H`';  &&3i8EWT/݄5VFY4k:)&  ("E@VB_x/{||||||||||||||5a|VDA(R;)O]?cx/qgH'`qqqqqqqd%Feq5e|]BWY ]@d{2ݼsʏ]p ծde^ded]ee ٵ]pqɍܺ1gÀ]B[ ]]XoȐe}]c]N]=][ WSFWJQW%]_]<]M]bd{pȑ][]]]/\@]0]^]*^q0F]w(H,]x߿D4av],]]\/]@]0] ]]]]]=x͗4]g]X:][]d5~П]@]\\]]]Q ]i]4]Cԧ)׮]F]2]g ]U]\!]gݺ^l]6_]1gālLJ]4^]3]iݺ]k]#]!]c^k\8_ ]"]h]l]%_ ]5^i]e]$]\(])] ]]Uw͟]Y^^ ])\)^ \]];]c]=_ \]]]?A0ap{(0` %  6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;6 CnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnCNNOOOOOOOOOξξOOOOįįOOȵƳƳȵOOԺԺOOؿԼ̵̵ԼؿOO˸ϱʻôôʻϱ˸OOʨjpϻϻpjʨOOȵĞ{ssĞ{ȵOO׻ş~òòş~׻OOλͪ˭ȫͪλOOھȤ˼ĺȤbOOϼЮд`2X^OO̩/Z.ALOOѽӱջV^}<yOOëа=?OOѾִï',U{4iD#8OOŭն  .OOѽٸ˹$;ĽշѽOOعrC#4=;2 N| YLe+ OuC 5r+Ys  8|}~`vIq9s/SxK&#{>rKr=O  $$$$$$$$$$$$$$$$$$$$% *037pJIr}n tFh0bC(1&   BBYSڸrztzzzzzzszf ͟VD<{#I*P]R޼L4׬2kkkkkk۴:I Ҡ\DQ \3kň{Δag]K`jBW&YR+Y/]Y]OdoЛcx\!]\4]#^]%{ΓAiŃ=/ay#9co]]](]1] \\;]W]Z \JbiӠ])\ \W۵^Z^]A ת].]$cmװ]B\] ]N]W^]*ԣl]^^%]a]>]\ \]bl^Z^ ]\] ]]"]]??( @ !FJJJJJJJJJJJJJJJJJJJJJJJJJJF!==?????????̻̻??̼̼??׿ɰɰ׿??ƧʽʽƧ??ҳȫȫҳ??Ͻ̭ͭϽ??׺վл`??ѾӵA%uj??ܿǵA.Q a ??ѾٽDkerP[??ë:??ìS$( C:OXy0,r=S14444444444444 ==M=~lz~LN.^Z,B 5C vDŽ`Zrwww`i7VF6nZciبqu }Γ]G[I;bfёЛ\0]]]]ՠ1l~/f`] \]]:خ]8ig].ns{ϑ\ ]-]6]]=x͏]^]H] ]]3](0 ` """""""""""""""""""" ZZZٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵZZZ wtpwtp |||||| }||||| |{z|{z |yw|yw |xuֽʱ͸͸ʱֽ{xu {vsϲϲ{vs {uqůIJƹҿ{uq {tnؾf5dztn zrlɴξ8I>Frnk zqjDz((*%uni pbV[ifa^ ^^^ԽԽԽԽԽԽԽԽԻo#90)/[  :w:*ͺ}y ī5m2"Qx̊ ؟"U`Vۮ!ڤq~T ]]]q}( v˂]\\].j`]!զ]ji\"\\\^A]\\(  @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx!!!!!!!ʻннʻ!!ǷǷ!!ʸj!!5#!!c 5ÿ"~~~~~~~~~~~~~~~~~~}}~/ a*'{>/ X|c.3V|bI@ ɞϋ=ز(> ,OX.x0eO|^TO|^@Ɩg%]fĒ.O<(͸~ß+G FǸ6=t:@ Cgg[d%]s1ДtTH^w h C\@ca_K} L#?R! Gx`0@}Ƹf6Nc\3[.1H*03ؽ{c\{ut #@~䥾C\\r *oy*.1.\Js(1GǸŢ\*M (1GJpQ@cИ;3g8C^;$]Q@cᇗIa4K@1.1 hƤ_|&It Y'a<Q@cXw'''hh{{;:4FQ@cXo6661А¯sQ@c4V%'Ozt X,ŋ1F#]?(l>SUK}(`P#]f< `ZjGxPC|Ÿ(¸ॾ?0@}(`P#_|  0.xl6t:̖etANj6ŋNOOc ʾ?^@ƖgE Ld%_ٿy޽kAiurrbGGG?jQ#_eߏ1 |e7?{>/0`u'ʭ|*d*<t}>yQ[ϟ=t N*,X|c*||.̞ol?4~C@ ɞϋ=ز L1XP|e7?{>/ '{>/0?DAǓ.,ɞϋ_TO|^@]\\߃Ҍ|HYntkSm>j  G TdE!...'{>/`c)p 7.3& 0@}Ƹ;4 P!.1ॾ?ҏq h ?\@c\.:|mmmEǸGGG0of6lcc#:Ƶ899*UHYV7hK@ ^;% 0 ҳfK[%UI+TX2xPb|Z,|Ti=ۋfxtFQ@c/^4FQ@c4FI0?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrtuvwxyz{|}~dddeeeeeeBBBBBBBBBrrrrrrBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBssssssBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBttttttBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBuuuuuuBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBvvvvvvBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBggggggBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd(` ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ(H `Tddd"dddddddddddddddeeeddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddd#ddd-dddcccbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddSSSAAAXXXooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooXXXAAASSSdddddd.ddd-dddSSSAAA[[[uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu[[[AAASSSdddddd.ddd-dddSSSAAA[[[vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv[[[AAASSSdddddd.ddd-eeeSSSBBB\\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\\\BBBSSSeeeddd.ddd-dddSSSAAA\\\wwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwww\\\AAASSSdddddd.ddd-dddSSSAAA]]]xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx]]]AAASSSdddddd.ddd-dddSSSAAA]]]yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy]]]AAASSSdddddd.ddd-dddSSSAAA^^^{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{^^^AAASSSdddddd.ddd-dddSSSAAA___}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}___AAASSSdddddd.ddd-dddSSSAAA``````AAASSSdddddd.ddd-dddSSSAAAaaaaaaAAASSSdddddd.ddd-dddSSSAAAbbbbbbAAASSSdddddd.ddd-eeeSSSBBBccccccBBBSSSeeeddd.ddd-dddSSSAAAddddddAAASSSdddddd.ddd-dddSSSAAAeeeeeeAAASSSdddddd.ddd-dddSSSAAAggggggAAASSSdddddd.ddd-dddSSSAAAhhhhhhAAASSSdddddd.ddd-dddSSSAAAjjjjjjAAASSSdddddd.ddd-dddSSSAAAkkkkkkAAASSSdddddd.ddd-dddSSSAAAmmmmmmAAASSSdddddd.ddd-dddSSSAAAnnnnnnAAASSSdddddd.ddd-eeeSSSBBBppppppBBBSSSeeeddd.ddd-dddSSSAAArrrrrrAAASSSdddddd.ddd-dddSSSAAAttttttAAASSSdddddd.ddd-dddSSSAAAvvvvvvAAASSSdddddd.ddd-dddSSSAAAxxxxxxAAASSSdddddd.ddd-dddSSSAAAzzzzzzAAASSSdddddd.ddd-dddSSSAAA||||||AAASSSdddddd.ddd-dddSSSAAAhhhhhhAAASSSdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-eeeJJJ&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&JJJeeeddd.ddd-dddJJJ&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&JJJdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddSSSAAAUUUhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhUUUAAASSSdddddd.ddd-dddSSSAAA[[[uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu[[[AAASSSdddddd.ddd-dddSSSAAA[[[vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv[[[AAASSSdddddd.ddd-dddSSSAAA\\\vvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvv\\\AAASSSdddddd.ddd-dddSSSAAA\\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\\\AAASSSdddddd.ddd-dddSSSAAA\\\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\\\AAASSSdddddd.ddd-dddSSSAAA]]]yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy]]]AAASSSdddddd.ddd-eeeSSSBBB]]]zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]]]BBBSSSeeeddd.ddd-dddSSSAAA^^^||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||^^^AAASSSdddddd.ddd-dddSSSAAA___~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~___AAASSSdddddd.ddd-dddSSSAAA``````AAASSSdddddd.ddd-dddSSSAAAaaaaaaAAASSSdddddd.ddd-dddSSSAAAbbbbbbAAASSSdddddd.ddd-dddSSSAAAccccccAAASSSdddddd.ddd-dddSSSAAAeeeeeeAAASSSdddddd.ddd-dddSSSAAAffffffAAASSSdddddd.ddd-eeeSSSBBBhhhhhhBBBSSSeeeddd.ddd-dddSSSAAAiiiiiiAAASSSdddddd.ddd-dddSSSAAAkkkkkkAAASSSdddddd.ddd-dddSSSAAAmmmmmmAAASSSdddddd.ddd-dddSSSAAAnnnnnnAAASSSdddddd.ddd-dddSSSAAAppppppAAASSSdddddd.ddd-dddSSSAAArrrrrrAAASSSdddddd.ddd-dddSSSAAAttttttAAASSSdddddd.ddd-dddSSSAAAvvvvvvAAASSSdddddd.ddd-eeeSSSBBBxxxxxxBBBSSSeeeddd.ddd-dddSSSAAAzzzzzzAAASSSdddddd.ddd-dddSSSAAA||||||AAASSSdddddd.ddd-dddSSSAAAppppppAAASSSdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddcccbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccdddddd.ddd"dddddddddddddddeeeddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddd#(@ B^^^}eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd~^^^}eeeSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSeeeddd~^^^}eeeBBBGGGYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvMMMBBBeeeddd~^^^}eeeBBBMMMwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwMMMBBBeeeddd~^^^}eeeBBBMMMxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxMMMBBBeeeddd~^^^}eeeBBBMMMyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyMMMBBBeeeddd~^^^}eeeBBBNNNzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzNNNBBBeeeddd~^^^}eeeBBBNNN||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||NNNBBBeeeddd~^^^}eeeBBBNNN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~NNNBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBQQQQQQBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBTTTTTTBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBVVVVVVBBBeeeddd~^^^}eeeBBBWWWWWWBBBeeeddd~^^^}eeeBBBXXXXXXBBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBZZZZZZBBBeeeddd~^^^}eeeBBB[[[[[[BBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeddd~^^^}eee---))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---eeeddd~^^^}eee---))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---eeeddd~^^^}eeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvMMMBBBeeeddd~^^^}eeeBBBMMMwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwMMMBBBeeeddd~^^^}eeeBBBMMMxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxMMMBBBeeeddd~^^^}eeeBBBMMMyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyMMMBBBeeeddd~^^^}eeeBBBNNN{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{NNNBBBeeeddd~^^^}eeeBBBNNN}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}NNNBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBQQQQQQBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBTTTTTTBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBVVVVVVBBBeeeddd~^^^}eeeBBBWWWWWWBBBeeeddd~^^^}eeeBBBXXXXXXBBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBZZZZZZBBBeeeddd~^^^}eeeBBB[[[[[[BBBeeeddd~^^^}eeeBBBKKKmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmKKKBBBeeeddd~^^^}eeeSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSeeeddd~^^^}eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd~(0` %%%%SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS)))---dddWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWddd222---eeeBBBVVV``````````````````````````````````````````````````````````````````````````````VVVBBBeee222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---dddBBBdddvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvdddBBBddd222---eeeBBBeeexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxeeeBBBeee222---dddBBBfffyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyfffBBBddd222---dddBBBhhh{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{hhhBBBddd222---eeeBBBjjj~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~jjjBBBeee222---dddBBBllllllBBBddd222---eeeBBBnnnnnnBBBeee222---dddBBBppppppBBBddd222---dddBBBssssssBBBddd222---dddBBBvvvvvvBBBddd222---eeeBBByyyyyyBBBeee222---dddBBB||||||BBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---ddd111////////////////////////////////////////////////////////////////////////////////////111ddd222---eee111////////////////////////////////////////////////////////////////////////////////////111eee222---dddBBBSSS[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[SSSBBBddd222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---eeeBBBdddvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvdddBBBeee222---dddBBBeeexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxeeeBBBddd222---dddBBBfffyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyfffBBBddd222---eeeBBBhhh{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{hhhBBBeee222---dddBBBjjj~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~jjjBBBddd222---eeeBBBllllllBBBeee222---dddBBBnnnnnnBBBddd222---dddBBBppppppBBBddd222---eeeBBBssssssBBBeee222---dddBBBvvvvvvBBBddd222---dddBBByyyyyyBBBddd222---eeeBBB||||||BBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBkkkkkkBBBeee222---dddWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWddd222'''XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+++( @ aaa\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\dddaaaFFFggggggggggggggggggggggggggggggggggggggggggggggggggggggFFFdddaaaGGGvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGGGdddaaaHHHxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxHHHdddaaaHHH{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{HHHdddaaaHHHHHHdddaaaIIIIIIdddaaaIIIIIIdddaaaJJJJJJdddaaaKKKKKKdddaaaLLLLLLdddaaaMMMMMMdddaaaNNNNNNdddaaaNNNNNNdddaaa666555555555555555555555555555555555555555555555555555555666dddaaa666555555555555555555555555555555555555555555555555555555666dddaaaGGGuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuGGGdddaaaGGGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGGGdddaaaHHHyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyHHHdddaaaHHH||||||||||||||||||||||||||||||HHHdddaaaHHHHHHdddaaaIIIIIIdddaaaJJJJJJdddaaaJJJJJJdddaaaKKKKKKdddaaaLLLLLLdddaaaMMMMMMdddaaaNNNNNNdddaaaJJJJJJdddaaa\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ddd(0 ` )))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))? YYYYYY\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\YYYYYYSSSmmmvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvmmmSSSSSSoooxxxxxxxxxxxxxxxxxxoooSSSSSSsss}}}}}}}}}}}}}}}}}}sssSSSSSSxxxxxxSSSSSS~~~~~~SSSSSSSSSSSSSSSSSSSSSSSSSSSOOONNNRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNNNOOOOOOCCCEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEECCCOOOSSSmmmvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvmmmSSSSSSoooxxxxxxxxxxxxxxxxxxoooSSSSSSrrr||||||||||||||||||rrrSSSSSSxxxxxxSSSSSS}}}}}}SSSSSSSSSSSSSSSSSSSSSSSSSSSYYYfffllllllllllllllllllllllllllllllllllllfffYYY ,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,? (  @/999999999999999999999999999999/000_[[[oooooooooooooooooooooooo[[[222_000_```yyyyyyyyyyyy```222_000_eeeeee222_000_kkkkkk222_000_ssssss222_000_||||||222_000_[[[tttttttttttttttttttttttt[[[222_000_JJJUUUUUUUUUUUUUUUUUUUUUUUUJJJ222_000_```xxxxxxxxxxxx```222_000_ccc~~~~~~~~~~~~ccc222_000_hhhhhh222_000_pppppp222_000_yyyyyy222_000_xxxxxx222_/::::::::::::::::::::::::::::::/lt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkk?(2kkk!!! iiiC,dOn4iii iiiˆvc-eee'''%%%%%%%%%%%%%%%777iii !!!kkkr\7kkk!!!"""jjjڪiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iiiiii!!!!!!iiieeennnnnnnnnooonnnsssjjj~~~iii """jjjGGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkk////jjj!!! iiiiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjiii!!!!!!kkkkkk!!! iiimkn,,,***************$$$<<>>999999999999999999888>>>JJJ999999999777aaalt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt   ( @ MZZMt%@@9#z>>#z>J=9llz#WfZ%@tj[^cc\lli~AJMfZ9|3^<X@@je^\&j@"M#z-)ZЂ<XXae\^#z#W&jGG8(yyt^aedZZMEMGD8,>J,*J}yvqojddZZSOOEC8-,*"M"MK&j{vnje\^WWSOOED-#W"MMK]fff^yvnjedWW>EEAD7&j&jfKu^qxvneڧ}xuRIF.Dh#z''),-,W}|vqn^ڧyzQQS0&'')-&-2T|vqn\ڧyzQQS0&'')(-2-{}yoj\ڧyzQQS-# HAA99''AYYYXXXSSSuuuOuuqj\ڧyzQQS-# LGE9(cccgggcccYYYppp>JWqj\ڧyzQQS-# LDC9#z```XXXXXXK]uqj\ڧyzQQS-# LDC9-ʉ``````xojqϓVX[FGI(%'G992©vslFGI125(%'eeeMMMbbbfeb125+,0^^^^^^[[[lllͻ}xuFGIrrrgggggggggllllllgggzzzڨxxxKKKHHHuuu}}}ڨ{{{QQQ'''ڨ{{{QQQ'''ýڨ{{{QQQ%%%ڨ{{{QQQ%%%eeeڨ{{{QQQ%%%uuurrrڨ{{{QQQ%%%ĽϋXXXGGG&&&ŪqqqGGG222&&&ddd222---˧xxxGGGÇÀ?lt9GIF89a w!, +b5Ic.e4i1k;Oi9m9sBUnAsJ]vL{J{TfQT\mYZfgbdjkioqurwy{|{焥ꊰ땲쒵םݝڨݤ¬ޱõƵδʻ˾Hax?HÆ *T Т )Ssd3_ lay^Ɗ#_xsk3`jo}=|=zv^hfj}- 8ܰ}'<יxg0 \gB^W>8F8\MhGZ@ I;1?j!`4EP'qRxÖhYdg| hc`9F|v^cQf38`RqÛN o0F'MqC'=ae Qtħ+q? 9Р&:*무ΊЭ뮼; lt~h( @Pp@p0h0h0`0Xp0Xp0Xp0Xp0P`0P`0H`ppppp``0P``0P`ppx`ppАpp@@X`pp`ЀpP00pp@`@XppP@Pp@`p`PЀp@`p`P`PhpР@PpАААААААp`PP `ppp``p𐠰 lt(  D (hE`` MHH T8@@ (B600 %x   8 hPNG  IHDR\rf pHYsod IDATxYdW3ƐCsU\% $* Z4$Ԃwe?x-///?O/k}^ݾn Pj̪ǘϸpΉ<UQ"*N(ωAP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BPk}H߿@ ,ZM Zg1QBnf@$>XA,V[a` (_b5H܆!XXVfD3?ov8D/}.Yt @6~,)+AG4>Q I+V2@Z4?~@2;rWp mdYX(X gaO:~,v Q->7o_IԨtftcZGZI$y菏^ +w]zwWJRZ@R?9}=۱nqs(:F9?Z km`u.] ,j>#wƹpe޵ME28QӓaHζh>&@ˎL!^nHDc_X"Zskص1G]EPs^;; Y$kB$:~&@+R"0Đ> ahtPfp.NˈrΥĐᇄ@'Z+j @$ %A+0D'>5ę^l$kwGW U7):XA20dݛU O/1]pƾ,#}0U x~? :;mlˮ-2] j&T4ɯK<oSI>X6Dde 2V׋O+! !7{z>yN,e (nׯr,EO$o[WՀk!<uzQ{shGZߦ 972ϏBz69= kdt?* |j`8E_)W}in# gr`8?{k%E>c` KrE O L4=[[iZ;vnc!EXor4Nqfe (<9ی S!xرc}yojpR!a" 0@D]*?~gy-3]+L &d,m` t\D@ 4"+FlٲewT-[eH(!$2]#gtʷƧg`=v*k@, L$R ?ԑ B7-[^ӛEV޽{׺uJ% eTk) @ 0G+347ϘkQkDi.eb:&C|¸W4q }l[޽{SkanUwG4M#`Z aC e%( `f^>o6X)EM@DB_'D[<@$iw}Q `ٵk_7k}+;~؍tr͛7oRj@Śy \.[Tf^nTǏ0͊Jbf?Zˍҕ ȑ#J+9!V![nݗ[)E'u}B]W)sر7n !ƍcǎ][)x> 9?0oe&D~Lx]s]y>o7wtصk}͐b_ǏU@_'oئN@Jlݺ۶m|߯7C BD+}a.nUրb<^Gl%͐j=۶m۰u vx?#GH-\͟>~ت!pykI6>`?5ѣG?.] ,j~q.\63ES8E^9=Il;* D .QV۶m۶j|w">~vm-d,Dq}jnkg'2]!kdmSx"-8qP#۶m;d۶85 ~֭[buR"qO |m .}|||Fg72E(ӀF20SJ )~HZ_֭[~~3t>L:PoA>U畷8ks߁dU43E2Zq O uAR̵k>gXavfWʥs)ed hw= 0B@LLWYc` (`pّQipA#5Є䛬*[N+Ƿܹsc^t7*V_WymΝ?W_wtct>~1;{mxr?c^}qztؿ)D1r!{ǎ-,Pt";v8z!ܹsh+z裻v25TG Zjڵ|衇>zܹ-'{ر?6zjnn.T )kAa;vWno{MOO˟5Y>}ެ|gxķ~~ܹsg-5v;}كZ8k/~9wCC|s8dc_g}j=׋Jr9ܜ\7P$~g/M{ؿM%(VcE5ϧ'!5Xsss<ɵI_^s=7տ `޽'Z9=D7BB )U+Kor|XXq ~?~SWfg,z2&y3$gzdmNMM 64Bᯮ-N8߹sV'''CxH>R KlW;+ns#Q 'krFF`E&''͇Ν;8q" /aX000ɁUerr2r`K >4{{vU9T5Y"1@"= .b500` |xn>Xpѯyל+J\Z a9ū\:񣛕5Xs#zfl3j"4LcrR$׭[w20 =1vV$ ^,%a S D%x|B>ӱ]k>`bJ2@E$@C+q8>>ڵX^k:R Oku~bb.Hv! @Ct`J*➁ک:[hF20RKH4PG_5.ld߾}}}ko08G6lA\sNJ؂r9HH4`Sz_;Cp#JLIkfb[&cH0h2'[IU6l#j;R MOOKuq ,o "d..A3s5~[ooM2-`ZDJti duBh@@Ha⺮ׯo:1WnZ aaU};| hdd$|8#|}tD۷K.]$cӀ,CG$ahn`a`siŸ$y.޻c?kiWW9zV$ymbzT< t>dB x6%~"hsAp%٘m!cQ,`C_>|Ǝ>#^N ЈƘHKS)%Ν^8 _Bv޽:_VnJBB DӵAh`c_6t8Rߍ֥^ϭStcL-9|66Rɬ/X샾>òZ:_r|M_>F}px={6ܼysӁsA-=Y ѣ.;{S #D) =jZ)а,=J tl,;㝫<޵g]T*; $ כ3lmbY gϞpf\VY3۷ݭK)ywZ$|$?$BJ%b˂@Ǫ*ܵ{='>:r_ rzx|&^l4f\Z^V2}$cٷo߻y晾o~󛅛[`MFw}wk r|] iE. !%Å~(2LCh?{-?֒/LwBJkl_H~r!wަW )'nnn5QT̙3﷐<$zk#vej`h؆N)0ګV˷_űE>|";v{2 gΜ i&100 駟R9sLKYJ  :b5 CL- u`h:ÓeG␺3/L sYzVd,z{lZ!0=nj~Zq{̙STK?Oo۫z-,{>r_nuY1BMCQ*PK`YF\S(딪a޸8>M-Lj|痹:U&kdmbLreb_ލr%.R<|p~{߬}r>|eܹsy-gHl DžE'5PVllי[%5Əf,=g[ُI譆Kq8v=ܹscZ.{]=zsKΜ9sC.Bm2gqU#`QqQAj5~޼8~o7dtw3U/(= 93re#?g3.0M]D-V3gw]MjӪ>䓛8pt:u @i-l4iq N_f]bCMlZec Yfx+j碛 y -;vcПa      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~]ޢ/oul;ӗuhZsZ7;N:sG|ɖٱ`-?heI)) 2Ry v^VRDr*5 шf(j6b:a…:ÿ˳|{آDo2semfM6}朹[ZBҲ٘MȈ}}}xeXW{MQ IDATUٳtNtԩS2 CRF%RJQ/[nv-B\kC,5t=N24/`hQBӉ3?Oo*.jWxӟF1M_֊{I6∌o\/Xmz9ؔ81SNx` &6o, 8q~С'nf::uJ6 ~}$_wxIssKdm%C3) + u,=AsS*.ZĹ~Zglzr&})ϚμaQ mM&cLܨp cNSEC}ĉ /p3ͳj @Jyѣ=䵺Paɓ' 2 ɿs{,N4 MףG!Ruz\]hD0DAӈ,˨gK|ovE57{ dL#2V}q.x8ދSJXÐPBEhH2AqZdxc\O^K%pўǁo]rܣGYd'CCCrvv6-"9!f\..4^5:ide\g %qPGgqKz*[\xsp#scF֔-NEM|Ȑ0ǐ!A/SHIx o!ׅZu0D4)`vvAg:WOG\Qn7pѧDЃ ݻszRW95zNFͩTk8N u}/tRk덩/Oh|±w/vnVmRq77OGcedU5<ϋB2\Y@ehZ.D$Q6aґH\/g9ܻ޵닋$ӓo"%QmۊѬߓ'g,#J6e];5* RRHT\.Sժxa<\W^8*ujmL&KZu|# dn@ DI9h%w0-sP`VY\"o^⢩Bos>z}Ï~mgpZ?IJ+~a%POZeqq'El㝋(RpuS|=;=[(*Az}ޘ/ 83mIH OfrrD8O0|] Tezß8 ک:n G0d?AJ4B0č-Gy階h:Q<;ޣcu(6jj󏿻.ṀcCg\42S?| \dLreb{iL" ?5F9 9 sQX,P.Vj$O}OznKh/] @4^N =ʋBˏ4s8T*e"?7?,WK M+̌l `a mͱm۶6\XXB֛qž~J $.-*B|!~>a xC0͐mmgp7/Mq,pp3_uy{pq?îMy&k̖|,L'Ma |?0Ϥ 5-5-?/_sVfb_*KԪU\G>É%bb5~9 pHKbXssskEB$d˶_ r@T.0a\rե+} G7 (Vz{/w~qSC3NJ{&[z$s;&}*NÒahH,0LB,ك!kt"ZQH5@Mm۶:2yHK~# Z<#JJ]z?99dG?ԗ¿VJ*ƍB ^W x>Vˁזk $&"!A(q= ŚGQ+G9{->r.z5/ k-Xd")05MD"o^ăYscEs%^ysvf 6}Hlrܷo=?;5lE@6A5 e"eZLEԇ\]o_JlwiOh{~vvvR׹ øx|r:VZ$ 9>'2erͣTsnTt-ܻ)A(1CI1^DdF݇*O 4^_|߻w]" zz A Yߢ/kқ7Dqqų7o/w& $ȯAB@mF5:Z7wZj/3𛛟|b_%_G(Hv}V2(9999i U'"%8,Y^FP/qQb92+Bp}68uy޲JCzr J1MNknݯy4O}h_⢩B^d X:K'oVxtgYH3QiDYѣV@sgKO}ЇRӷ.PzئA2g جɰ7ƾ ^hCL\֜1^2{w?1Z_|񕉉5# vl !Apuff]vReYl߾S5ACMF BPRs5'2+ŊC \jn Y:̵D`5BB^#ڴXXX2T(+%Ndff Lp]whffF޽3ie)^Xp /Rđ/D B<<_P|ʵ(U\ SsLϏ];[p=nFJԑX71t=nN_S*~`qރ/o5 |CAwjN|B!*晟c~6/I>ff~"F*N2uX Ću"#^.Cn:@RsJSEwsܳ \ B4+L 0 HD]E3ї9| +z޻kg?{7ƹ-ۚo^efzxHTpezE_jV7 X?8 E@i(@ ,8܆ke-;Q|?^V\L#0masߵ\֬+BQ4EBu|/~Έ+m!H M/>cK#o#@sʸ2nDZƩUpN>Ȓf7 ?e]077wZuv?Fz{{ٹs'W6ߟ!Z<7{9>嚇Qq]{{6wGs"1MkLg"$K4[#c@Pd75գH6NPyWd~~):U\T*.}%~~Bu_TLs `Ei<b``MkUO6ÿ˿az:SanN#Wպ0 ˀ4o@&F% D1ɍo^?2QQ?"bϩW'tB&K5٧3O.ӢP( fVg ٙGazºuBpʕ{rwCZurL&ˀFZV \ץV՗S#g?'[bR033Yڜ )!6^oUXn@K%`['N^fdm>'FIXԕ@ZEx?#J%mNMM h*p]\z}mޚaCxs)%Os-uŸtX7FrRp; ?D]ٿ-PVؿ/luUJ`uT*TN!JVI@mc5@8777699!f#6yf@)vs; ?d0777*?wEa3336^oټy3w^۸mIvfff*,ˀI!ĺ6_sMٲe BVn+*Z'YX%-5ה-[(%B)V૲ CCC֭[n j044tW'!T*6^sضmk}]ϝ"r\kt@8W9p@/Pt8sFbP( MLLpUB=LLLP(>j\s95!D;y4*/ʂg|]똙%n%@= J(2999y74Bu`lllUڀiw0 .^xN (7ŋO ^zNP(C\ի>Hir<2::ʡC}FBlFGG)#bVO$KjZirr28|mYP AV+Lm t\NNNV7'Bq299YaA𯑙v]w5-y&''iոjX`bbbRV(i6+v*}xxxLŲ+NH>F;3B;3L$'Hd&huۥDÑ|(ІG2===mB=J%GHH!A3~ԫjattT>|X;QYV ,"+>dO#~d||;r+BlIDAT]?MHrt m$:4@ !PLLLXpe%Bڴ hgA 5ƊB6]_ƒ22M"G]9h:t|V] W(nY[A XJ+Dg$H NPB,0I Xa%N@Z5*ӣJ(pQ-tD`E-p)E\reT*; ATʕ+L\nVl\I 17='LߔaÇ۹ABьaD3{(@5Maؘw{A<ʀMm]+ L;4̱B)XuA+FiK p EW0::Zb!X8(+^R Q W}W!v=(]իWgX@ܴQt5z,mB2l/Ui n|6<n&݀2Жb*5 d苏Go|~][I9< y`.~,(B|ύF7otʆ#~} $m@6B$Lx,HZfҖtA0-ɇvhLk$8Cn'`/>j,p"hӞ+k3>d"i 1rPt3|_D!QM=ǂXq%K$48:}>",NZgb I/'. `"aaK &4,Nyl,xP @q;KOᲠV˂xSvsGϬ2pAc҃~DkC+J;,I;[9պ_qV>x dC,Hkf=ϔ+-9,lе h&> #}i@zYV m~h5MU@@n6b;(HLYMk&JVOX+TP\˪BP( BP( BP( BP( BP( BP( BP( BP( BP(Nw'֫SIENDB`(    (29=?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=92' 0CQ]ejllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllje\QC0 +DZk}}kYD+ 7Rh}}hR7  ;XooX<  ;Wq::::::qW;  4SqTTTTTTqS5 ,LolllllloL, #CllC#  ;gg; 2cc2*cc*((( %yy% 222"""$$$!::::::!---<<<))) OOOOOO 222---!llllll!555???000""888WWWGGG333 &&;;; ^^^NNN ,, cccUUU F F hhhZZZ j jkkk^^^777777nnnbbbOOOOOOqqq///mmmmmm777AAA111QQQ[[[eeekkkmmmoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooommmkkkeee[[[QQQ888YYYGGG222 $TTTeeexxxxxxeeeTTT$999 \\\MMM444 6JA8da^da^JA8 6::: ```RRR VQLG`VMsdVzzsdV`VMQLGV cccVVV!!!xVTSjfc{t{tjfcVTS!!!xfffZZZ666WUTljh;иֿ̮ijʰ££ʰijֿ̮и;ljhWUT666hhh]]]UUUWUTljhÿƴҵͮкĦujjuĦкͮҵƴÿljhWUTUUUjjj---mmmWUSljhÿϽּ̬ҺŵʰnvvnʰŵҺּ̬ϽÿljhWUSmmm444000WUSligþíв˪Ѽħvj˴˴jvħѼ˪вíþligWUS777PPP777WTRlig¾ɵӷɧˮƸʱn{{nʱƸˮɧӷɵ¾ligWTR===fff```WTRlhf̺ӴÝzbrwlιιlwrbÝzӴ̺lhfWTRhhh WTQlheո›xVr@ggr@V›xոlheWTQ XTRlhe˩lZζζZl˩lheXTR\XVnjfȿλֹȥoŤŤoȥֹλȿnjf\XVmheytpȿįаĝ{rƶƶrĝ{аįȿytpmhe»ϼػ˧qʬʬq˧ػϼ»ccc@@@<<<777000'''!!!ɿưҲƟ|v;;vƟ|Ҳưɿ!!!'''000777<<<@@@cccJJJGGGBBB:::000(((нڽͨsααsͨڽн(((000:::BBBGGGJJJiOOOMMMIII@@@555,,,DzӳƠ~ÝzÝzƠ~ӳDz,,,555@@@IIIMMMOOOiXXXPPPKKKBBB777...Ѿ۾Ϊ™uѷѷ™uΪ۾Ѿ...777BBBKKKPPPXXX~~~QQQMMMDDD888...ɳմɡƢƢɡմɳ...888DDDMMMQQQ~~~RRRNNNDDD888///ҿϬěwվվěwϬҿ///888DDDNNNRRR>SSSOOOEEE999///˴׷ʣɧɧʣ׷˴///999EEEOOOSSS>cccPPPFFF:::000ҿѮƞzİİƞzѮҿ000:::FFFPPPccc񲲲QQQGGG:::000˵ظ˥ͫͫ˥ظ˵000:::GGGQQQbRRRHHH;;;111ӿªүȡʹʹȡүªӿ111;;;HHHRRRbSSSIII<<<222˶ٹ̦бб̦ٹ˶222<<>>333̶ۻΨշշΨۻ̶333>>>KKK5KKK>>>444ҾĬձΨΨձĬҾ444>>>KKK5OOO???444˴ۻϩپپϩۻ˴444???OOOkkk???555ӮЫЫӮ555???kkk[@@@666666@@@[ AAA666666AAA HHH777777HHHybbb777þþ½½½½þþ777bbby-{{{888{~pr`gR|o|ogRr`~p{888{{{-888zhjjhz888CCCƲppƲCCCWYYYѲƣȪȪƣѲYYYW mmm̤̤mmm \\\z\\\z,,,2,,,2sss枞yw|rui~l\waM{k\{k\waM~l\ui|rwytttbbbhhhuyes]s]yeuhhhfffPPP888k~kk~888kWWW@@@1}ǽǽ}1III111-oooʄؿؿooo-;;;$$$-::::::-///-dd-###-Qnnnþþ½½½½þþnnnQ- -QAAA{~pr`gR|o|ogRr`~p{AAAQ--Q"""zhjjhz"""Q- -QnƲppƲnQ--QmѲƣȪȪƣѲmQ--Qm̤̤mQ--QmmQ--QmmQ--QmmQ--Qmyw|rui~l\waM{k\{k\waM~l\ui|rwymQ--Qmuyes]s]yeumQ--Qm~kk~mQ--Qm}ǽǽ}mQ-,PlؿؿlP,*MhhM*&GaaG& !=UU=!  0DPUVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVUPD0 !1:>????????????????????????????????????????????????????????????????????????????>:1!  $'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((('$    ??????(`   &6AFHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHF@6%(E\p}}o\E(:[vv[:AcdA=c555555c=3^NNNNNN^3 'VqqqqqqV' MM EEFF*** KJ### !!! TT''' $$$ 777t777t*** ???"""NNNNNN'''XXXIIIhhhhhh___QQQeeeXXXiii???//KKK999IVVVfffqqquuuvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvuuuqqqfffVVVICCC<<<"""_|[ZXwwwwww[ZX"""_EEE 888|WOHk_Sk_SVOH888{%%% @@@ NNN^\Z|wsȴѽѽȴ|ws^\ZNNN UUUGGGeee`^]}{ľѵŵǫyyǫŵѵľ}{`^]eeeZZZDDD`^\~{yͻҵӺкp̶̶pкӺҵͻ~{y`^\TTTKKK_\Z}zؿͭɹŷǬuuǬƷɹͭؿ|z_\ZZZZ]]]`][|yŰ̫ŤɰvϼϼvɰŤ̫Ű|y`][kkk}}}$$$ `]Z~zvѲhwHyywHhѲ~zv`]Z&&& _\Y{wٿơkккkơٿ{w_\Yjec~zμӵĞ{ʬʬĞ{ӵμ~zjebĮ̩Ý{ɹȹÝ{̩Į8MMM???888---###¹¸¸¹ŻûϼնƟ}γγƟ}նϼûŻ¹¸¸¹###---888???MMM8 mmmKKKDDD888+++ůΫǣǣΫů+++888DDDKKKmmm PPPIII<<>>000ưϫʧʧϫư000>>>KKKRRRTaaaLLL>>>000ҿٻ˦׿׿˦ٻҿ000>>>LLLaaaNNN???111ɳҰͫͫҰɳ111???NNNsOOOAAA222ҾڼͨŲŲͨڼҾ222AAAOOOs,PPPBBB333ɳԱҲҲԱʳ333BBBPPP+___CCC444ݿϪ̻̻Ϫݿ444CCC___DDD555ɳֲָָղɳ555DDDMEEE666ҽ޿ӰӰ޿ѽ666EEEMLLL666հٽٽհ666LLL길\\\777777\\\oxxx888888xxxn(999»»999(@@@||kp\xxp\|k|@@@κPPPx}}xQQQJeeeͰ¢³³¢ͰeeeJzzz׺׺zzzWWWqWWWpmmm9{vxkjXo_o_jXxkv{9qqqUUU؈ykky\\\>>>VVVVVVHHH***'''i&&&i555 Kvvvvvv K%%%?VVV»»VVV??---||kq\xxq\|k|---? ? ux}}x u??hͰ¢³³¢Ͱh??h׺׺h??hh??hh??h{vxkjXo_o_jXxkv{h??hykkyh??hh?=ff=9``90SßĦʟğS0 "=MQRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRQM=" %033333333333333333333333333333333333333333333333333333333330%????????????????????????(H `T    )FZceeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeecZF) HnnH!SS!M111111M?PPPPPP?0llllll0 %%(((???777""OOOEEE33\\\:::FFKKK>>>222j222iLLL:::JJJJJJFFF*** ffffff222 +++ }}}}yb`]b_]}}}111 d^Yylyld^Y:::jhfǾӺҾҾӺǾjgfPPP<<<7jgeԹųɮwϼϼwɮųԹjge7OOOLLLNjgdíαȺ¥¥ȺαíifdN^^^nnn>>>Jifcոd^²²^dոifc@@@JBjfbƱǢťťǢƱjfbA?|wsſշƢʻʻƢշſ|ws?żkkkeee[[[ſ¹ɴ̩ϳϳ̩ɴ¹¼ſ[[[eeekkkŻeTTTFFF666غʧʧغ666FFFTTTe!rrrLLL:::˶ϬӺӺϬ˶:::LLLrrr!NNN<<<ڽάάڽ<<?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`GZOE||ZOEGEk_Uk_UE?~~~~~~? /d777~EEE________________________________________________________________________________________________________________________EEE777~d/ 0889989898989989898989989898989899898989899880???????????????(@ B  ;NUVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVUN;>jj>II@000000@/PPPPPP/jjjjjj 555 " "NNNBBBEEYYY???///c///cRRR;;;IIIbbb{{{{{{bbbIIIIII444ccc~`WN`WNccc???,,, zzzmjhɻθθɻmjhzzz333 """nljʸԺȺ¤¤ȺԺʸnlj'''nkiӷñͷ{{ͷñӷnki;;; njg˩[[˩njg??? ojgؽzzؽojg}ѿάͱͱάѿ}kCCC999(((»»ûʦʦû»»(((999CCCk!QQQEEE111ѯҸҸѯ111EEEQQQ!rrrHHH333ìΫΫì333HHHrrrJJJ444ԳԳ444JJJBLLL666ŮҲҲŮ666LLLBTTT777׶ǴǴ׶777TTTĬvvv999Ư׸׸Ư999vvvìb:::ٸϾϾٸ:::b;;;;;;FFFFFF___|h|h___;vvvǬëëǬvvv;튊훛aaaBBBj|mudud|mBBBjhhh;;;//FFFllllll*** @@@@@@||h|h|_ǬëëǬ______|mudud|m___\\O۾O2GJKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKJG2???????(0` %.0000000000000000000000000000000000-"\\",,//////LLLLLL iiiiii&&&)))999+++ 777 ***333$$$ *** ...;}zvpkvpk111;999]}z±̴̴±}z:::]---FFF}|ʼ¤¤ʼ|FFF}BBBJJJ```~zؾsŪŪsؾ~z```dddȀ~zľп˫ŵŵ˫пľ~zʀMľٽҷҷٽM޴JJJ333ѲѲ333JJJɗSSS777ؿؿ777SSSȗMqqq999׹׹999qqqM ;;;ëȵȵë;;; ϸ===ҾҾ===θnEEEоϾEEEn%______%yyywwyyy־־JJ999}pp}<<< cccôôccc 555555  dwwd T־־T TT T}pp}T SôôS GG &@BCCCCCCCCCCCCCCCCCCCCCCCCCCB@&????( @  @zz@ kk ...i...iSSSoUUUolllmmm!!!||||||///!!!}/// ȹ̵̵ȹ...000Ͳ˴˴ͲAAAؾ˽˽ؾϢ666­­666ϢX>>>ůů>>>XCCCҿ̺̺ҿCCC```ʵʵ```yy00勋222\\\\\\=== +++o+++oFF????8835555555555555555553(0 ` )cjijjijjjijijjijjc)UU444P999P\\\cdddcrrrvvv~~~ŽŽýͽѼ˿˿ѼͽýٲļƳƳļڲ^λλ^Ȕúĺ77""")))uqmúĺuqmtnitni\SL\SL333dqqqttttttttttttttttttttttttttttttttttttqqq333d(  @DGGGGGGGGGGD88888>>>>>TTT][[[]kkk|ʽʽrrr|hh|||111Eýý555E"" lt6h&  ( @ttttÓp|]pVҥ䷖鼜߲Ś{tta|]f̟ԧجԧǙztt_JoТת䶕繘᳒תttzƜ~巕繙ũɯ뽜ҥtzɯҫkǞɟĝdӦgwY۬೒Ǜzh_ɞտտѢq`__ԯտտoиииɚ{ʝ~иииииииииииии????( @ hhhhhhhhhӨ縘Ǧɩ᳓ͣhhsTsTsTh۪٪ݮ߳䷗帘ⵔᲒᲑⳑکwU@[A1|]FҫѣȗuǘvnN9h•uŘzΡӧۮܯ٫ԨѤϢt_FrTmҫҫѣahiMhÖvǚ{Ρզۮܯ٫ԨѤϡtmRiLhҫҫѣѣkitȜ}ϢԨڭᴓⵔݲڭתӧɜ}cyZhҫҫѣѣ•tǚ{̞Ѥ֩ۯᴓ湙蹙帗ᴓްڭҥȜ{rhҫҫѣѣ˜zҥթڭ޲㶕軚꼜躚渘ⵓۮӧ͠ҫҫѣҫݰ߲㵔蹙켜¢ȫɬħ쿞껛䵕ްӤҫҫѣҫ껚꾝ĥȫʱϺѻͶʲʮǪ쾜֦ҫҫݮζкӽҼ̯ҫҫʰ俠ҫҫҮήױⶕⶔޱӥج۷ۼҫҫqXjLrTtY~ah|atX~^{^ҫq^dJdզ㸜ේn}d^FtWnʞ}ӧҦʝ|puWҥoReĖxըۮҥėythҥ}^ʞ}ޯ뿟꾝޲ѤėxeWSƬƬҥqⳓ˰ϸ꿝جĘwvcvcƬƬƬҥΠεʯ߰tvcvcƬƬҥҤ͵ޯjvcvcƬƬҥҥħէz[vcƬƬƬƬƬƬѣȭ§ТhƬƬƬtް纚ᴓУlƬѰƬpʝ|ȝ{ÖvcͮƬƬƬ޾ƬƬݾƬƬƬƬƬȶĦƬƬƬƬƬƬƬƬƬ???? lt~h( @ЈXdsx~uynsXbLZnvR[|{ΡըʥIΣ͡lkfdRXU.<}֭۸[̄Лoo`^Y\͚٤о~wdcEG{xhRSpsppfEkfD⽶̛{Mzi^X<@C(# KB>RID@DFEYgGFGSOLjifsssRONlmmdcelll㼿ĩȺШ޼ʯܺܶЁЁ/7;ҁ lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??lt~h( @Kgx1j1j1j0\u0\u0\u0\u1Vk6Rc3O`0HXzwslllaa3O`|b6RcpҋwzvF;VfópzqS4*lqCb;VflYyCT}i?[nY߄S}lKgxҿbCbKgx֘CKgxKgxדדגՐҎ̋ɉÆlt~h( @F,kt(em(em(em(em7pvd9^<95,|r Zi7pvJրiW<,|r Zid9Wڅ{d<,|etd3֡{d3,|,|,kt Zi3֟vbFyЍsb&Bz)z)z)Bz)wsbZR>ys\sb&B첝qPb&z)8>DMKHsg_>y꽨sqPЍsȵ첝B{i7pvȵЍsSqPi7pvEp7pvPEE99++ +Mlt~h( @lTAgM9dJ6hO;waLlTAdJ6dJ6dJ6dJ6dJ6ķѿմմҬҬȟdJ6&H/krɸɸҬdJ6&H(T(@/ķҬdJ6&H*Wi~UhB_&HҬdJ6yyB_JQմgM9ʵ-JfcķyZAʵt-JדÆq^Ϲ-JדϽ``___-Jרѿ~bQny̨ķztNq݆q^ķѿϽzFfvzklt ( @@ @@ ``````@ ```````@`@`@`````@@` @` ` ` ` `@@@@``@@````@ @Ш@Xxиp8@hXX```؀ȘxPX((8Hphhxx0`h8H((@@@HHHH`XhpXPXhhhhpxxȐp 8((8@HX@HX0pHxpx0P`x8P h 0h h `(8x(x((((((hH0000`H8PX8ؘ88PX@X`@@@H@@@`HHpPHhXH hHؘH@HHHhHHHHPH@HHHHPPHXPhXPpXPxXPhpPPP0PX@PXXXXXXXP`Xp`XphXxXXXXXXXX`x``````Ph`h`p```И``h``@`hHhhhhhhhhphxhhhhhppppxpxppPppxppp `xpxLycj P񝢧ssgghZKPtwVƹwxiP`tUV|(vUwOIxk vUV~h>K<|~U&~V`yOOkjiYg`zjjPh~ǪgkOjIIIIPgKkIOYYYIgjkP jIYYYk#RRL OIeeeei&RRRRRRYIe{{j#SSSSSo}}Y[Rppp]]pp}Yeɽkp]MM^^M]aaab}chP]^]l]bbbuue ȁy #WWWW݋AʯcK dd}l]oi dNNNNNNl^Kj&&NXXfffXlTMAhPiYXffgTTTm]AրKji}XfEQnTTTMo ji}fZF\lJMSAhKg&nq\QnmmTMS[ZI&Qq*JJJJ^A KKkZhgq\nQnmTlPP[LjihlqqJJJnTl*qqF\nQTZ\qqqqq\l&qK ???????lt~h( @ʳȴ̹ǬŦֿʯŢ̫Ҿټ̗ʢЙ||ΧڿΓٷ͔qq__ooMFsїffuvPlӱఔ;AȨ4yaL z}׸RZx+r n$Bq ~̬uq: ~ @ Asϐƴ~Iz'*+Үlrrj33¼ӲƜܾݘ΀j̪ĺ986eYMկlcUʴɠ˪͡ì_ࡱ> z|qt~{|xz{   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~Root EntryP OleObjectData _AccessObjSiteData&\ChangedProps=\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I ImageWidth I #$,j(6(!C4~FF !ͫp&oEComprarNo_LeidoTodos ActualizarNingunoInvertir ProduccionEntrada3Entrada PendienteSYSMSGA 䕁 S S{{X 17srsGlVRj,"h8N\ܢ!L|?_K| ߻^r:LɄqDZ.r!g֡oBPFB:48^{2$S2B!UMx[KdC H#z;^!jW>; H(dM=G[nUg_fc99Eyάq sQ7xP)d0)w YmO=]u`WCBo"u\āG4@XB'%L1! )xuų+d.ΑxQfvoe`,$| )rBN\HEk[兓U]-q,H֨/5Y-[mK&R-: VeePY0*2#UG HB5@΢'GQ,EK>]0T; @Zf^˳%nmLb/QuGl³ #9vmKlKQk|` ꦅvH55ZG>:4#u !A A !(P2*[bt4Ay.{m G Y8{?B(T]o$2H'c%4Ͼ2K-E>ͬk6lpde0V[ؖRKJ,h>]<}0> -C!B#HbґW#X4q/OFuLmoÅ!C<:cTB6PvkSe(J9bB ryInÑk"J6[_1m&(4Ç]#%cGK:,O)dC2#Z ;b{8Do%$x4}bߩI`Q0@%EVe lKXR~iW/] #/ofH6@6GT_F~Lu#^j-'W9ؽj; S{O9/9_(T,Vy+XE5Kh*ߋWo_K& sJ(b$%"%;ÅDɀo[ƺEWqՖc$ I`u#7-~'4VFz=A,wqdO6d 3{N#$,j(6(!C4~ !ͫp&oEComprarNo_LeidoTodos ActualizarNingunoInvertir ProduccionEntrada3Entrada PendienteSYSMSGArchivarControl2ControlEstado Pendiente2 Revisado3 Completo3CompletoRevisadoTexto Actualizar3Cierrelt ( @08hpx x````hh h``XPpȸxphxxhXxhhppp`XX`XPhXPXHHPHHxxpphhxxxph`X``XxphXxhh`pphXXPxppXPHph`80( H@8XXX00 ((PH@0 80 0( XXH( @@(@8(``P@8000  880HH8xhxp`0(XP@pp`H@0lp |`d`dllXTt̼xpl|xlhtpp`\Xd\Th\PXLHPLH|xtplh|x|th`\d`\xph\|xp|p|kn[k\hJ|UhwErZ󋂆P~rIdS0dOw~r.U{OnXUtutcp,q,~|wnOdQQQ㵵ikll{PYMYY(UMc1e_e__G11;;1_eeeeXJ[YM2'M[B1eU1Y_eG1խV_.;;Y.edVV1Z1Ye1c_13Gc0dUƹVa;;0U\Zݮ,\[J[YU\;Uڡ[MMX\333XYiVNPݡTGʮJʽ[iѼ;8½Ȼ2̿2صǼȿԯ>Υݺ̽2'ʿh0QOI"X  ????????aalta  g (g`` oHH Tq@@ (BX00 %!   q hPNG  IHDR\rf pHYsod IDATxyƒ{fZJEJTkdJ(ˤd{Ιsi>9=3iweɖllI$%[2j+X|Y*@9~]tq't< )4b_u}]tq9g\@5չ&.t |A I@*4Qfawh^k @ ~8* F۟:!#վ.)Ă `a y+@>y5KSj .?G0&@ B%`Ak+ޕ݁I>yՃ<#y{} M/XH],~H-x{=8K۶H^S8FCX`Q/?D1XO^#Ů 3Gljwk(S/ ؇o<72[$X |,h\䏑N@I˹tf?woktqE?D>kDS_̮0޶8l߲w[9۰h:Ƕo/1t(@!(YMyu=]DZ~mfJ+4[}f҂gR/ f۾G߰/%Lrw-\e*9~؋171Z8 3ڝ+/ 6ba<F0 ,0 h@kƝ<}qJ?fOӛ|G Kvh=ɾ!Fٍ@p@tfL50_LcBS~G$;d(# f[ִ! SI^&$IB̮eX4 ?F9I5jA"\NA*X7E$Ηpu-}|>uVBQ*_.C-aHsɶ:ԭ_k{3.IϿi4fH#+#T* (K>y>@xXzb(9w-.S[Wq%..+>Ā@wh+g9PXŁҝq G@Rη,`];-Yٲ v "Fh źk|%WE_]Gh|ȷ@CsT5̾qtp宯XF<{([9ʂև1xh:źklԽHngtz%.< zǩQ˖`0} [2Oylp`)AB@R!y/+p9~6K]Oq)ō`MqfTu{wd5I Pfټ4^Tq]O*S2#ML!|G*77>p2)5aL6]MÀvuAuF _l#q%ێ@{DB:w*+ᬟ+ZcknK.12""XG;/, / 14@$h6OrCX} ޯO>x2 1Y66oz1e*c 㧟U 4$=Dۜ}F:Y=mn eXH$'v]xde@))LQ%<OCqWg3O'۽k@v ˇ:vyl/9?#0!rQbz) 3Y}_ _>?F3VHzAvέ.އ<1!>8|gc>hB}5:\^d7}'6i[5- 䜊d*?:sA]'`"NV#=LC]l ੽FNY4R9:r'%.3BM/D5b_bd[azcQCܶqp9CX`7|QƱ>>SxVLJs&y{LC{W,a7J~r1Y4%^]sErj'[Äh#u 4uж ~Ze^;) w˯>x{4#$d{h@ Lv'W~n@?9>/L/D֝o&](m"'`~vGh$5.]IV5]/E9`TTvWYP@11~ӕsp 4lmN,c`Ac o 7~?)8L/<ǵ7MM~'amuu$l՘c0$EJз{(SMMvX&}K#pF{־D!ڦo-b?aL~!ir*N8(,מ`D.]M㵂y`14V{79{ߍiOUӫ Ojxm۰:O[jθ!л06߃=rV._pAGh:zS;iJsc źڟmv {ng9y k|e1lWdt si$3%pb=~~rnO<{&Oo6zr|- adj)j@ye{&7dnU@^L}/^1$L `t#aBd`&8uF3"4ܯ^OL&0A%1`"ntKF]faZ`mnj5T^0$w%L0f/Z=qf1*}`cB}{IMS}1¯ޙ@OIN&zW*ݿJqi? Il:O,kh,Bj8_(Э7_;HD]eeC,])g?XGsS/}lĐYn/%`w:4KB8/y[zu8iB"~Tn6ϡ߈"S؜Z=˱w8Qoߑ>O鳗.Y|_8kkp,F6'^W9wI>,꿮NK]\?{ۢEY:[e/1ӽ7K -κ4S8qs֗N֡`W<'nLҭ8F=#~N}S/O&Ul1?|xY䟵v WZ31R\zyL(/m2 2m>*j] C&w|l;hX1SMҩ/`,B|9.>Yԍ=f,)H0` 4۾Gx_dxzD +?b[G_.D~@k4, FK7ϫ]oVw:7D}Fz$% /%#B-㾑}4:'Y9vˏX0Ak\Y5_geGC}& V.s||Q8y۴Җ%Mՠdb&0sonIv@}9 :FkX5 QLYt3dR5?f?t^ۍ7v]wI}˵2$W2@JA^ Cp{/@{]8h5f ALAx|&Q>mok즸nvaz绸їE>q=y;ca)29Qh4$pǸ#ŇEJMC7a̼r?" c5h/dڋj3 b[ [vZlYx?'. mc3mBGus/mdյ$-qJFXJq- pSxXso@`?1s5"x>͐ZϮ1'ߙU8bqu;lRB iK*!ۉ`_̈́4}}oSzo3skJ 8`۪LmWaU8YCGJyW-fy3o8G87^aOx~O9 X;y!^3 @qBcMTkԪ~+q8i;k%c+hn)@QpƋڅޖȂSpp6cؒp] 5$#qkI\%:>'#{ˉp/ʫz7w^%Gx5Cx!a#%ZJAS,/[RBHWen7.6 fh'5-FN9qY..@d,쬅p Gn$pkK);>_w+}c7?`$27|9| /.i'3uf:w&"|ߌs #f 넠lԖ=,gK/2Pi& \6jSKYI~kJ"n$’= Ew;OKm*3%\#cw ΁ޡE :D(xG//4fNp]OTg)olRBBADB34] V0ԧ֘4U!vF@nN9#u9!O?zwg* j5D~`u8"/ub֝~8>N7qgZY53d gp }h w3#l44iT "!$"!t *CeJ4T=Ø_M0k-g)x3p:)! .蘰Y4:Z8ƖoՖg -O7~o(Pކ=Ism8^W%$`EA4 e_j27g;m^\9zBBрttq "ca߯-L}5_G),gl!Kt&~:zLh: ޷(@iThӬ7_k# c{ڔ! &(8=j9Mi)6lAW6ZkZkf &.VZ)vV.|p OAA(Ͷ+?>k[@5 =oSy(Xk ~ȯu P-6b4lGH_o D"l}Rwl =#&_9~SKPԘOk])P{:׸zߡ0KS_9H%VQ PI:MlL_wu hv0h[ 4kCL}e5&P:K_ |~;9u( ' 4_0K@족:F:Ncm_褐z{ B(_/m!H˃+s(7r̓:qCVOpMCEmZA@ s>וNz-=oDAg4#VhPZK 2[cR,4l~g^'igi:Kx/]\yH䉼*vy *S25W"2cTO4ԖӪ ! r3mkOb{ k<ٶs%;>0`896}ԅzU#1s6a?&`zhOQ IDAT2fӔPe-<=Ah Ry~GZDVFצXF >$p D q+0`B`[hڃ?T<Ϸv#HBy` F׏O1=6͓8{FlK044C* 䗸[ ^@G~heUA7׈DD~g\t&C&V35$K(,7d*)i>zt7N/Տhh㈨Y5ZU?+S^ iydj -vrFΆgV+>?Eg>Hܬ1xe.#e>6MlB֖Gx:Ωw\ 7 ͮr}}fh%!FzUE7W![:l"K]V`ϋBJbDF()dT+N}*Or^d+̼/ aIbyدcw<[H~>3/%L>tĀ)3z wJE#S" <‰flLWؖı Xa8;{;#sI'q2UnNHQ#^@ K\/[Cf+8HHz ؄@(12Ha#eh<)H-/ՓK\K;^˻ 6eaT%@:Sc'CP[*8w9PPCyGeKk4f$xdhTQNaxFݏņ>-({[]B;P_:+_b쮧lP:o VGa+p,'"‘d){#)@`C~8lR]L2MHdW]Hih#\(%lB%EIPBL BmZK+#4VF|wGy6e\ej(b.p,N] e-s/tqKU&Vٙ;B2[4Wct՚>&_<#wݶڕ[{ePX(@3;YAh谁fBVW?ZZp -aϿܡdns…B+bLC%Pضi`ى&`~3f墏`=walG7X=+'ӷȫ#oCϬ6,N4#`Wut:{k 8CI`}X4PR $%V#!B$C4A BL>1|BR2ZBخ1;`\#\42HK I2b[IҐ-jB`fc#wّVJ;[0bcGVѡZhg =-i9FMb#tz {?q? KCH7X=֓d .UosnO<_%ё#"39iE+o(;D̈|+7b %, '&@]elĦBM۱(F%#" L$Q+^+Srb}c;[Tq=Be˄ETF"tie:4ZNtfЄba &ZG8eyi{4"$l~'xh-i$,U=~{tF=C^V9 d3;ۚ eq02j "h 윱D>7KwtYكC- t~O0D)9NcP%IBc)$e9LMAX~b?ݛ|!FUw .'5Leힻ)΍_? ]DeJW6:4[4zAh G6Zټ|zS5N 9-2p}[@IVfnBud:a)!ll%s/S;Pb [J@؅>-fp!ဌV XXIjX 6dzcO-Gpp[\t>EYQCHZIcݠ5qsx]?3|!`2S!?Nνf]8hD E~j0p__eϣcUP^BG!{5Alq\ql͒q\Q'`7f%xXvN<΋GSu.:: #vv_qd#3%= \%'!fJGQ_>كc+dr,\۵qrܜ[؋MP(d+@9H3>R 'oE5N8h<:>d7]}M7u-?8u[sl B֦w(\J9rlYB%8/ ŕvщVocom{>Nq"3Ev - B40f$k+),Z 'W0 oK\|Dֱql(kficǡ >V%N=oҊ0 PB/ &X(T%Lʂ7<~$ C3C\b;"G d 'Ŷ%lLU6ߗCe+Xq/Q]ŲSS'` W;_"0vYP!zДcaTAkV[͕ ??'ڃ]i_;{q/z.!P V,kNHT!-u_diJQdK(f. ;ò,Ly,Lm|Q}{VP"hmU4qcc= WOP_1j[H$Xurݙ1\4f/"%HC$HXū] 締Z'~`P* \(8&â.dNm3YF 뛄=Qsf"ds)p+B.gKz,y!M/r)r^l1t҅5RQl#2K"_ Ŕ!F0LUI_FP[PDޯ{yQo IDATTFj1H ⨎(1si C`2~DR~!2JB!DWa4'0{> ۸ 108?W"%&b(|Cn: PHh $⹯!P.3LǡSK`(Ŭ^ôf k>g15HBBT,[Vdgg\8")*CYļI@$u]rtM3G +\@TIP9ۘm/S >dӄtz5ցKaۋeMБV# Q$PJTJ"o YnK8U|ŝxx71*59S 8CE'>ZDe6~SH DJ VHHTbP8*y ׈\ e4Xcvz K &$t.b*&ba* ^mLӠTA lkoD?c[ɳ;]șaY&AKK݅:}i4sO|K;PK6]U£0Ӱ:!*DetSVːR Qq$+@ ⨆6>4$59U).c{&XӺۺ`\>NχcUEtp)pMU jHNJ7 eR)2 rp4m.z~'ܽyDv "8beU c8pGCJByĒ}P7 %P hf k` 榷j个\گ26 ۚ9aP[`I(2`' CHscȍ_IEyqb00Au:4-f]Ggf!C$JDJ>Z~!rH``<ycYn{07{DuNg Sk, Ӆ^ጵ|,[G0h'.{/݃Z0?L? M1jՄޯVHHB˲@xð &/7*;[ТFƩp3>!M.kOҼcyiޮ,2()h*Qΐr,>8Sxe8:-/}AߝBK3-}C|P~)dc[vB"QFT罂X2>p0_΍`^!l e`>گr66HL,_ƿoO̎U+r;?8mdӝFv%kժD5W Xz/VBX- 9`0C TQ}@>oG4[LJgLlO?:'Vh U^G$)+gዣJ=n ,/dA/l pr9p4L[Q0Z_D1PH$d68?~o|pvVYg9^+~FA߻NI|TBBppGϝN JP.?ho ˇv`^˼8 LT1A)l^mgpvXrޏ 箥>QV܇+8`᠝} 8eL[?EHwp u!Y5ȵ6TPAq̷1T`X 9dNppJ7G' ŝ9zXC7R;k5QɋkE[z.ȭA/RA} > C[q@K$qsVN[F3j2,s c,u2-$gc bh@p<u:y{sʉO^).Ϧ~ +*;0=⓳s!bzйEʵ_PpX 8pS JB˔q543hiThZA+3ȴu𷡃 Ρr$H Oc(=x7m.ʴ߽9~s|&EO ߸Hlba:ug&QS iB{4I888(8GF@@ %x+@:hk`,k 4\krVfhh224ȌCКR"ܞ1lNHsr[k#^#Hs=c~s|>ox/}=} ןZ#h#8e9o'(?|zLr@k 9X3GGJX+(pAh')#܄42R^w>inʽ,G+7h6s2-VyM 7Y>g5guC&Ҽ4 L3\p&0=?~n*Ə>b]e)o1KZTޏ ୏.3א9NY!#*|##Ra C`XL3ȍF4̢LHS45(|IL WkZ9@p@0:4L@I )2R3Jif^'goNbWbA<,%USnSxxshr8,б:c cc,+a •"h@v_ T,<Lhf͖F3%ҭk\ka sᅶ"5?r̴ך]rZa D004Rq;TB"i*]mt+> RWqD:5髻GԿuX)X[Hq@z&xKMOO{_/heThc\k b|J& Yhڒ8 $dr4A[V.2H2;j,'c% חF\}xp[?~9\OKWhm8%V a%F!]`nnB_+\ts4͌\L[dZ#:<{?zPJgp6cFހPTo,'_VV r|~% D!V9C|lŻ&*ׯo?OZ N렭%zmZhKĤK tA \:AM2me<[H@_{t Fo${4900&h)g /&Pa{:r@g!Ūݛ â)CwR J?~+u /n}ڕX;c#o?,]iZ) ,Lm%?/J0c8Mn̈́L[e(͌ZcKޮMnp&E@$`NI,7 <(u=\ZＰO][GΣ9B 4t|ZՖEIDA \a ʶga,宝of͖/IuGQǪ꣓'gw!-/_ _8$ Qi]l=AȊT(k}˿|½}9S6XK' 9X F:E79y-JeH 'q,=@ހ |4G,-3n~Dupz"ϟ݆OW/ ͌/*n|15ps0(TYh7Ћt]g5m/ͨTsfӻFs!މ^ydU3]oj8"ϩcm{+S>VÛ06+&] mLzq%5PAؓ v-/W5̷fTbD}UC{1pG9)+P{! X=5`("oB$t*G @[%x-]녾]RSxi]`sgw[ vMoF5y[ 4R@@x^(nAs}^H;z)iЧ kOmZ*@9_Cp :JkmƁshJmuJD#R `U`z[bakmL慄F4ZE{_kGvFxJP$߮ y65}V+GPd;B8@XBRs~ S#O;㻇p~*.{2t.sA[/ VPT9M,* m)o۽5[ENs8 #|e$o <3<{(Lፃpe.#o"bH@'6@)ҀcۭﷅbZO# =-Ɵc7M/'c5>$0Zg}Vy (nhvH-Jb|/@w+c`d~y<.\kށCv ؤmu׾CiҬ R^;-y'W#|8U%̧9Ӆ:ĤB.p 3!G&}]n0V (mH6cuy@_I*7+vV1t4_~)^7[Vy':מކggOG.bТfeG9I ,&|ZAciu酾\[K{'o cj:|'/̵s:B'CS6@5vQ< };Z']W#)#>;!Q_yl+>8\@#KX_AhGHC ,Y`<(avxΐin`w5}Mi#M`Cc[kx BJFLB4o+RpC_AHXV޺ۮ>BlmE=\K|-Z;AINbϖ~?|s Zw X ~5$9Blpń>u̘/]Eyxj3ɡ*]x%9u Љv [Ċ#^^-^kxwY4zEhzx`"sc~s ޖabe 8}= XtAQu\6xx0g|ho>>Ƈ'˰Rk1O$b88'}O3HsBpi{VQc㥇 3=}9\O E&0~') ǩx@օ@= }Yn~3h{ưw~*u`=?O]/Ak_Fl{ \ᚬ;rM: oWQE#}1^;zE-71cuu.ϦzIO|ωAJ ֮6B^}0[; lFo<^]E):X̰5/FB_m9? |ߤ͖P=8JfV`g Fx8 8a ZI5S+iK7Ӽ}g?4}w60HGp, ok&&:#9$$ab NFǘ ;ax Wp|@H@6»f+ξfvE_J:^~d+Slbb%[q<9zslA,"6^ zp T@[wZwoQk4vNckr`su?zn'~"N-BmIDAT%ƒw$!LcV,USˏMallx 'op R47ؽv5`=O\3B \/$^;zh }8gx1o^l#[}ynqA<}hMKaOnG__\]}DG 1;Gm~|5&.XЧ3f6_}|;#_\YS }1rLB`_'wd qu6]D A *1DkU8g& ƧDx)8?O^.7uV@K6 }B+q TؽcHP\P |z5:By]'.e0/9OhؼTbڂӗpR$4}+X^' }E^Hvgj*($XT dB5 .B <00?FI'hOtx^ 4"V\ VmlrM;rm~5#y' C5Wpe|qyv@X*rHtl*x e"Ǿ{05ڇ>FZ XX)@Hsh@Ήܿm(_޷q'_+uZz`JX 񒿹@`#C;F05Z/Z#C %e ֒ m,l-Cw}Q x8~ 47k\ma31`!Lqe䯹d=cس5l VjWmDZ3W"ݎpXX|D X-͛X\U\jOnUpeYvi Xv:c?ߐ^`1+frQŎn*ֿ-@b>Fd1;˂@U+dt+x̿qHTc,#_',^H49򟓣mx7z 9d4N,8y==DbXaïNJ CFTu @.B X~=a@a Эc^],)n;(:u%,g #P C;4?ϱ0 2t|q;ӂjpB]%`8ӫ,vA;xQ#g=F szuuՀJftu~ X^s!pA6~ z[Y[=pw^@c=C۫w`9n 9蛶.Rj8| @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ [,96VIENDB`(    #%&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%#   ,6;>??????????????????????????????????????????????????????????????????????????????????????????????????????????>;6,  /@MTWXYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYXWTM@/&<Q_gjlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllljg_Q<& -E[[E-  0J``J0  1LbbL1  2LccL2  2Lc̹̹cL2  2LccL2  2LcμμcL2  2LccL2  2Lc˷˷cL2  2Lcν̻̻νcL2  2LcdzdzcL2  2Lc̹ǴǴ̹cL2  2LcįįcL2  2Lcɶ®®ɶcL2  2LcϽͼͼϽcL2  2LcƲվվƲcL2  2Lc˹սƴƴս˹cL2  2LcíӹӹícL2  2LcȴӹӹȴcL2  2Lcͻ׾ѵѵ׾ͻcL2  2LcįѷԻԻѷįcL2  2LcʶԻΰ;;ΰԻʶcL2  2LcϼдѷѷдϼcL2  2LcƱӸ̭ǶǶ̭ӸƱcL2  2Lc˸ֽαϲϲαֽ˸cL2  2Lcп¬ѵ˫˫ѵ¬пcL2  2LcdzԹ̭̭ͭͭԹdzcL2  2Lc͹ؿвʨӻӻʨвؿ͹cL2  2LcѿĮҶ̫ʩɻ±±ɻʩ̫ҶĮѿcL2  2LcɵջίȦ϶̿ҾʱŪŪʱҾ̿϶ȦίջɵcL2  2Lcλѳ˩ǦʼŶͶĨ~uu~ĨͶŶʼǦ˩ѳλcL2  2LcŰӸͬǤ̱ҿɯvkeekvɯҿ̱ǤͬӸŰcL2  2Lcʶ׽ϰʦġIJƸͷũ}ofmȻȻmfo}ũͷƸIJġʦϰ׽ʶcL2  2LcнѳʧÝzâҿɰvkcūūckvɰҿâÝzʧѳнcL2  2Lcѿ«бŠ~jZn}pgrrgp}nZjŠ~б«ѿcL2  2LcȵӶơe}PsAq@YȰȰYq@sA}PeơӶȵcL2  2LcůѰy`{Lq?~R̿̿~Rq?{L`yѰůcL2  2LcƱӵȤn\~QȬȬ~Q\nȤӵƱcL2  2LcϽѱǢqdvvdqǢѱϽcL2  2Lcɴֺͪĝ{nhҽҽhnĝ{ֺͪɴcL2  2Lcо«ҳɥthŢŢhtɥҳ«оcL2  2LcʶػΫƟ|nkòòknƟ|ΫػʶcL2  2LcѿìӴʦ™uiȧȧi™uʦӴìѿcL2  2Lc˷ٽϭƠ~ooɺøpoƠ~ϭٽ˷wscL2  2Lcĭյ̧švi˭ɫišv̧յaWcL2  2Lc̷ھЮǡpttpǡƪC:cL2  2LcŮն̨Üwjβ~βj|q'wcL2  2Lc̸۾ѯȢq›xsYz|b j[qcL2  2Lcư׸ΩĜxlҹ{0O{p}OPY)zcL2  2LcιܿҰɣrŠ~LR|~94v\CcL2  2LcȱعϫƝzoֿjU~{*f^ dcL2  2LcκԲʤ˜sȥwXrYz|_ ucL2  2LcȲٺЬƞzrŲ>\bNow[ 4cL2  2Lcϻªճ̥Ùt˪^ ^G<}}lT ScL2  2LcɳڼѭȠ|Úu˻s a|+!y]jcL2  2Lcϻȩִ̈Úuί~0dqpi pcL2  2LcʴۼҮȠ~Şzjo{PZT9s|qicL2  2LcлĬ׶ΨśvҶo*%EevmWt~uhI(%kcL2  2LcʴܾӰʢ~ǡq'7Wq|z!vogbQ7mcL2  2LcмŭطϨƝxֻs+ (IhrB6rkK# !mcL2  2Lc˵ݿ԰ˣ˦u/.)!icL2  2LcѼŮٸЪǞz¬v3!acL2  2Lc̶ղ̤Ϊw8-pyƴǶcL2  2LcѼǯڹѫɠ}ȵy=1vɩڹǯѼcL2  2LcԿ̵ֳͥЯyA5wƪȤ̵ֲԿcL2  2LcĪڸҬˣνyE:wſ¦д«cL2  2LcӭͤԴxiNKgw!p P2   2Lcȟ{whL0">Zuw]A% -Ifv!E6`6  1LbxhL0(V[--Ifw/b&Nk1?  0J`{Y.)hm/,Sw8s.^r BC  -E[xeH,>D )Fbw7q,[k=> &<QxgJ;G\_G;Gdw/a|&NY,1 /@MTWXYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYd4m%Kx*V~.^2f6o:w=}@CFZ4X\7^FC@=~:x7p3g/`+Z{)Tp!DY4?    ,6;>??????????????????????????????????????????????????????E,M9R!DW'O]-\d2fj6np9uw=~~ADFJW&^KFDA>:vx6oq2gk.]e'P^"GW=O4E5!   #%&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +'0?6&O;-\A2gH;yT?YIsM_)fNIu?[<{U3hI-]B'Q;A6)1 +$     0c%=}3JJQeT{f!}+lUQgKL>63h' !   &/8;yN*UBX^YvlØ#{}.rƞYyX`UDO,@65.&++ 0 C*V5jPX&Z?\\\tpǙ%vyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyx0v˟\x\^ZAX)Q@2f*V"F77mT]%]>][]trɚ'rttttt_=LttttttttttttttttR:[sttttt2zΡ]x]]]@](\E>V]&]?]\]uu˜(mnnhK+ ֮جRnnnnnnnnnnnnnnnn]ܷժ (Hfnnn4}У]y]^]A])]LY]']@]]]wx͟*gW9zΞ]]z]fhhhhhhhhhhhhhhhhh]]y]v̛ݽ6Th6ҧ]{]_]B])[\]]<]]]x{΢( װhĐ]]u]j]`]b]aaaaaH]aaaaaEaaaaa)_]b]`]i]t]e֭ %Ԫ]|]`]=]\]]%]H]nkƑ޼|Ϡ^]{]p]e][]P]E]D]hqɗ7[[[[FB[[[[K?[[[[Aѣ]l]G]D]O]Z]d]o]z]y͝ݼpɕ]r]L](] ]] ]D]f]|]v]k]a]V]K]?]7]-]2]N]s۹KTTTBb(TTTT1lƓݹ]J]U]`]j]u]|]i]F]$] ]]2]H]S]Q]F];]2])]\]]5]Y]~LLL>]]LLLL]]9LLL]]]]8]]]]']1]:]D]P]V]I]4]\]]])].\-]$]]_ __]]>]cc!EE:]]e]vBEEE]y]d]5EE(mǔ]g]A] _^^ ]\]#]-]/]*]_^] ]]] ^] ]&]I]nԪ/>5]]f]T]lҦ->>4ر]p]U]d]1>6ٵ]r]M]*^ ^\]\] ^]]0]T]y5/^]g]K]=]cb66 mǔ]f]@]H]e],6 ]}]X]4\]]]:]_])`]h]M]4]6]Z] ..]]^]8]2]I]f]'`]b]<\^]]"]D]it̚a]i]N]5]]-]P]v#%]z]T]0]]2]K]g^Ҧ]m]G]&] ]\+]O]tܼb]j]P]6]_]$]G]mӧز]p]J](_]]3]L]g_]x]R]/]\]4]Z]dŒ]k]Q]6]b _]]=]ccŒ nȕ]g]A]_`]]4]M]h`]]]]7]]]4]]]b]l]R]7]^ ]]5][]]]^]9]a]]5]O]ia]]^]7]]]-]J]d]e]R]8\_ ]]-]Q]w]z]U]1]b]]6]O]e]f]M]0\]]]2]>]@]2]^ ] ]%]G]mԨس]q]K](_ a ]]1]?]@]4]_^\]]]]]]]>]ddnȕ]g]A] ^^]]]\]\\]]5]X]s]u]Z]7]\]^ ] ]>]Q]Q]@]$` ]]!],].]!]] ]]\808<>(`   $)********************************************************************************($ 3BILLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLIB3 /J]ehhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhe]J/ :XX:  =]]>  ?__?  ?__?  ?__?  ?__?  ?__?  ?_νν_?  ?_ϾϾ_?  ?_ȴȴ_?  ?_̺ʸʸ̺_?  ?_įï_?  ?_ȴ®®ȴ_?  ?_ϽֿֿϽ_?  ?_­վվ­_?  ?_ʷҸȷȷҸʷ_?  ?_п־ҸҸ־п_?  ?_ŰдððдŰ_?  ?_̹ԺϱϱԺ̹_?  ?_ϰԽԽϰ_?  ?_ƱҵͮͮҵƱ_?  ?_ͻּ̬жʼҾҾʼжּ̬ͻ_?  ?_«вʪɹѾǬǬѾɹʪв«_?  ?_ɴӷʨͲɼͶtiitͶɼͲʨӷɴ_?  ?_Ͻ׾έƣӿѿƬ|ktǹǹtk|Ƭѿӿƣή׾Ͻ_?  ?_«ήœywƪtjƭƭjtƪvœyή«_?  ?_пոÝz[wG}Pr˿ʿr}PwG[Ýzոп_?  ?_ʷҲrUvF¢¢vFUrҲʷ_?  ?_ȴҳŠ~grrgŠ~ҳȴ_?  ?_ͬÛxkййkÛxͬ_?  ?_ɵԶȤoţţoȤԶɵ_?  ?_ϭĜyqqĜyϭ_?  ?_̸ֹʦpǦĤpʦ̸ֹ{_?  ?_ëЮŝztƵtŝzЮҾQs_?  ?_̸غ˧sˬʬs}([_?  ?_ŮұƟ}u˼{e˼~k s_?  ?_ϻ۽ϪĚvҶdg*IA&_?  ?_ǰճȡȤ~fx8vt=H_?  ?_ϻܿЬƞ{ֽ7id#u;j_?  ?_ȲֶʤɦZmHsLv_?  ?_лݿѭȡ~İx\rt#:.y~ec_?  ?_ɳط̥έ[$Eg|)S}{wlW7,s_?  ?_мӯɢɷZ 6ZvI nn@" 'u_?  ?_ʳٸͧҳa %s_?  ?_ѽªԱͨd-fŽ_?  ?_˵ںϩշd3~ع˵_?  ?_к©ձЫj7ŧѰ©к_?  ?_ٷѪھ_ .oȰ d?  ?_ͧz]=! 9Tdmv}{ri_I,-Jk;wI   >^tX=!Lze8,He~0c CV !   ;Zf5 Ch' Iv5n&OX   3OfI0Kpa89Uq/a{ BH$9JQSTTTTTTTTTTTTTTTTTTTTTTT      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~TTTTTTTTTTTTTTTT ^N )  !+022222222222222222222222222222222222222222 6;3B"FI+XQ2hZ8td>mEL~`1]HBw<|j6o_/aV(QN=F+= 2#   0c+@?L\S~Ͷ]1aPpHP8t4!E#   #3!C??~5EV,Mo'P|%UUZ g:jU/ ~bXU&T'Oy:_u%6 "*-------------------------------2#8>A,[L6pXAlKrQfH}>e3hS(SI4=3 &      /aKBUnӹlQoS`F5?       9.]MZ:]iڹgxxsmxxxxxxxxxjuxxNw˙[YX-I 0aQ]:]iݼ`cG& ײCnnnnnnnnn!ۻ1PiLy͚]Z\,P \]6^l޼(x͘`v]gw̗WbbRbbaRbb9_w]jd~Ӧ|Ϟ][\%\] \Db~kƇ]n\Y]G]9]X޿VV6VVG ޽IVJt˓]H];]M\_`umnj]n]/\]]%]B\=]+]^]+]m#I/pȏu˕?I*]zذ?H ݽ]V]^]!\1]B]=]]] ] ]] ]=kŇ.)sʔ]Xby'<]b]e ۶5]j]*]\\ \ ]]\N֯u˖]V]4]e,װ]N]8]fܹgÂ\;] ]\%]byΜ]X]*]]Tܹnȍ]?]]8]i޾Ԩ]N]\\/\qrʔ]Z\+`] ]Eu̖_t]/_^]9]jqʘ\[]]"]P]S\-_ \]4_w]`]"]_]:]Y]C]]\\]\]&\elǏ\Q^]]\]]]B]V]3_]]]\  (@ B  -222222222222222222222222222222222222222222222222222222- ?YabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbaY?#RS#&WW&'XX''XX''XX''XX''XͼͼX''XX''XŲŲX''XʸǵǵʸX''XվվX''XîֿֿîX''XͻҶҶͻX''XּҷҷּX''XƱίƵϹϹƵίƱX''XϽӶͰåqqåͰӶϽX''Xؿʨй˴{sȻȻs{˴йʨؿX''X׼sVbƭƭbVs׼X''Xҳi\ƸƸ\iҳX''X˷ϮrͳͳrϮ˷X''Xپȣß~ß~ȣپX''Xͺѱšvһ͸švѱͺX''XʤǥƤʤǷMX''Xλӳĝz¯y¯w~X''X«˧˪4x]`3X''Xмֶȡɸ@|I7;X''XĭΩϱk*"~odX''Xнظʦu v X''XƯЫԸ][0$]ZX''XѽںΪ1#GrTMk="+X''XǰҮٿ6)X''XҾܼү;5ѷҾX''Xǯ԰Ʋ@9ɻ˭ůX''XӱuO.3DMTNE5,Ms*h(%V}N- @nqB +Ly/` .  KtM,1~4+Kr._u '/DKLLLLLLLLLLLLLLLLLLLLLLLLLL U Ae*Vp4j};yBX_d[B;z4k~*Wp"H`';  &&3i8EWT/݄5VFY4k:)&  ("E@VB_x/{||||||||||||||5a|VDA(R;)O]?cx/qgH'`qqqqqqqd%Feq5e|]BWY ]@d{2ݼsʏ]p ծde^ded]ee ٵ]pqɍܺ1gÀ]B[ ]]XoȐe}]c]N]=][ WSFWJQW%]_]<]M]bd{pȑ][]]]/\@]0]^]*^q0F]w(H,]x߿D4av],]]\/]@]0] ]]]]]=x͗4]g]X:][]d5~П]@]\\]]]Q ]i]4]Cԧ)׮]F]2]g ]U]\!]gݺ^l]6_]1gālLJ]4^]3]iݺ]k]#]!]c^k\8_ ]"]h]l]%_ ]5^i]e]$]\(])] ]]Uw͟]Y^^ ])\)^ \]];]c]=_ \]]]?A0ap{(0` %  6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;6 CnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnCNNOOOOOOOOOξξOOOOįįOOȵƳƳȵOOԺԺOOؿԼ̵̵ԼؿOO˸ϱʻôôʻϱ˸OOʨjpϻϻpjʨOOȵĞ{ssĞ{ȵOO׻ş~òòş~׻OOλͪ˭ȫͪλOOھȤ˼ĺȤbOOϼЮд`2X^OO̩/Z.ALOOѽӱջV^}<yOOëа=?OOѾִï',U{4iD#8OOŭն  .OOѽٸ˹$;ĽշѽOOعrC#4=;2 N| YLe+ OuC 5r+Ys  8|}~`vIq9s/SxK&#{>rKr=O  $$$$$$$$$$$$$$$$$$$$% *037pJIr}n tFh0bC(1&   BBYSڸrztzzzzzzszf ͟VD<{#I*P]R޼L4׬2kkkkkk۴:I Ҡ\DQ \3kň{Δag]K`jBW&YR+Y/]Y]OdoЛcx\!]\4]#^]%{ΓAiŃ=/ay#9co]]](]1] \\;]W]Z \JbiӠ])\ \W۵^Z^]A ת].]$cmװ]B\] ]N]W^]*ԣl]^^%]a]>]\ \]bl^Z^ ]\] ]]"]]??( @ !FJJJJJJJJJJJJJJJJJJJJJJJJJJF!==?????????̻̻??̼̼??׿ɰɰ׿??ƧʽʽƧ??ҳȫȫҳ??Ͻ̭ͭϽ??׺վл`??ѾӵA%uj??ܿǵA.Q a ??ѾٽDkerP[??ë:??ìS$( C:OXy0,r=S14444444444444 ==M=~lz~LN.^Z,B 5C vDŽ`Zrwww`i7VF6nZciبqu }Γ]G[I;bfёЛ\0]]]]ՠ1l~/f`] \]]:خ]8ig].ns{ϑ\ ]-]6]]=x͏]^]H] ]]3](0 ` """""""""""""""""""" ZZZٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵٵZZZ wtpwtp |||||| }||||| |{z|{z |yw|yw |xuֽʱ͸͸ʱֽ{xu {vsϲϲ{vs {uqůIJƹҿ{uq {tnؾf5dztn zrlɴξ8I>Frnk zqjDz((*%uni pbV[ifa^ ^^^ԽԽԽԽԽԽԽԽԻo#90)/[  :w:*ͺ}y ī5m2"Qx̊ ؟"U`Vۮ!ڤq~T ]]]q}( v˂]\\].j`]!զ]ji\"\\\^A]\\(  @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx!!!!!!!ʻннʻ!!ǷǷ!!ʸj!!5#!!c 5ÿ"~~~~~~~~~~~~~~~~~~}}~>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkk?(2kkk!!! iiiC,dOn4iii iiiˆvc-eee'''%%%%%%%%%%%%%%%777iii !!!kkkr\7kkk!!!"""jjjڪiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt&}@@ (BF00 %nB  h hx(@ B "$0+, 51-+*(&"   )eE2VhNaʉfόgϋhϋg΋gόiΌhącȍ_G1!S=5-% ΍jЎjэjҏjדnڗqޛsߜtߜtߜtߜtޛsܙrۗq֓nЎkюjύj|΍iϏkґlАkהnݚsߜtߜtߜtߜtߜtߜtߜtߜtߜttuuuޚsؕpЏkѐlώk Аl$ґmؖoޛtߜtߜtߜtߝuߝuߝuߜtߜtߜtttuuuuuvuٖqҐmҐmqЏlАnґnՔoזpԓnґmѐmёmяlяlӒm֕oܚsvuuuuuvvvvvv֕pӓnёnӓoғpғpёnVБm(ёnϏlϏk"АkbґmӒnۚszwuvvvvwwwwܚtӔpѓo*ҕqҔpBҔqАm#Ԕoԓox~vvwwwwxxxwԕqҔq>ђnFӓpܛu諃ywwxxxyyyxՖsӖs+Ҕqԕqڙtꮇ|xxyyyyyzyԙtԙuҔrԗtיt뱉}yzzzz{{zy֛v֚wږnږn՗uڛx~{{{{||{|ޟx֛vܘpۗoԘuיwݟy}|||}}~~~؝y֜z#ۗo1ܘoݙqۖnZՙwךw䩃~~~~~}؞zږnܗoxyۗoږn՛x؝y︑먀쩁먀먀쩀쩁۠}מ{9ܘps{{vۗo؝zcݠ}›쫃멁쪂쪂쩁妀٠}ۖn7ܘpz{{{ޙqۗocٟ|벌쫃쬃쫃쪃١~١ږnܗox{{{{zۗoږnן|@ܢ~ŝﱉ᥁١iܘpt{{{{{{vۗoږnڡ촎髄ۣۗo?ܘp{{{{{{{{ߚrۗol١Mߧǟﲊڤږn ܗox{{{{{{{{{ۘoڗn!٢ڣﱉۤڣܘpt{{{{{||||}xܙpۘoۤ봍ÛﲋﲉﲉﱊﱉߧڤBۗoGݘp{{||||}}}}~~tݚquy{z{{{{{樀Ɲﳋﳋﳋﳊﲊﲊ穁{{}{}}|ڗn ۘoy||}}}}~~~~~ޛrݚq'{{Ɲﳋﳋ~@ݚqv}}}~~~~|ޜsޜs}Z娀ﳌﳌﳌ鬄姀ܙpOߛr~~~~xu~}쳋姀 ܙpݚq|쪂vu,}}威9ߜsyꨀwv~P檃Ɵ鮆婀ޜsYuﱉ~x威ŝ娀䧀ޜsޜsߝtvwwww멀zyyyyzzxx1~娀ơ婁2ߝt ߝt ߝt ߝt u u u v~{xMx x x y y y yH笅Ψ鯈婁ww}ꪁz婂ʤ婂䨀w=|﯆﯆﯆ﰇﲉ{z䨀 媃̦ĝ檃䨀,xz﯆﯆﯆﯆ﰇﰇﰇﰇ{E威@筅ֱ鰈婂{ﰇﰇﰇﶏ}嫂Ы﹒櫄婂{s骁骂}J婂 櫄ѬǢ櫃婁'|}~婁9诈ٴ걋檃v}Ğ骀櫄Ӯﻕ櫄婂~9Ȣꭃ髁=媂欅ͨ欄媂"쯅ÝƠ뭃ꬂ!媂4媂檃m誀誀ΩĜ뭃ꬂ媃O媁髁^ꭃĞƠǡȢɢְĜ쯅뭃ꬂ쯅ƠʤͨЪѫѬЫЪٴȡ쯅0ꬂ뭃ȢЫԯձֱֱֱհԮ۶Ъb쮄 쮄ֱֱֱֱͨײײְҬسױﳉ,ş쯅 쯅ˤձֲײײױԮѪΧѫܷͦﳉQﳉO񶌮򹐝ΨxѬԮԭҬЩͦˣȠƟѬ۶ͧ񶍸򷎠򷎰ӮﲈCﲈƟ˥̤ʢȠƞĜۛ›ʤӮ԰ѫˤɡɡɡɣɢѫxﳉﳉpﳉÛĜěڙ››œœœœœœÜĝŞ󹏷( ~š››››œœœÛ󸏳60~u2LZJ8?p????????(0` %ɳй  ;'!     + 4]EnvX`ŅcńbĂ`ɅaɅc׼|\Ǒ`FS6(f@<730( [>/$`̉gΎiהnܙtޜtߜtߜuߜuޛtܙr֒lˆe~\mO} ' ՗spЏlٙsޛtߜtw{zߜuߜuuuuuuߛtэiɂ_Ȃ_Vώlؙu֖r۝wԕqғoӕpӒoҒn֘s䪃찆uvvvvvߛsΉfɄaǁ` ѐmѐmёnזqܚtޜt6АlؖqژrV֕pӐl|ꬄvvvvvv֒l˄bȁ_ Ғnqѓpѓoٗr ؖqғo촌vwwwwwܗq˅bʄcҔq#ؘs:Ӕo嫄yxxwwwۗr̈fʇe ٘sוq㨂{yxxxyؖo͊gږnAԖt ՘t篈zyyzzyяl͋hFږnAږnږnE؛v֙uﴌ{{{{zxϐlώkږn ۗoߛsۗoږn۞yHٞzꫂ|}}||ٙtГpcۗoߛswߛsۗoٞ{㪄~~~}}|ӕsږnGܘpwwwܘpږnL؛y ٞzטuԕs.ږnۗovwxxwۗoږnܠ|嫆몂몂몂몂멀|՚xxۗotxxxxxtۗoٟ~ۡ}쫃쫃쬃쬄詂؜zږnNܘpxxxyyyyޚqۗoTݢ~쬄؞{ږnۗowyyyzzzzzݚqݚqz {{yywxwߝsߞuߛtߝuߜuߜtߜt ܘpuzzzz{{||}yߜtw竃ﶎﱉﱉﱈﱈzuZۗoVߛrz{{||}}~~wߜtZ~ﻔﳊﳋﱉﱈﱈꪂ{ܙpݚq{|}}~~멀멀vv娀橁˥||ޛsy~~멀몁쬄쬄쬅쬅騀x窂q鯇ϩ|hߜs^vÛ﵎멀멀멀멁쭆{xb竃›Ȣ찈}멁멁멁멁멁멁멁쪁쪁멁멁멁멁멁멁yz 媁竃ӭ檁}x쪁쮅z謄h겋ײ竄笄^y몁﯆﯆|{謅Ơϩ笄yzꩀ﯆﯆ﰇﰇﰇ뭄}x檂筅׳Ơ竄婂{.}ﰇﰇ~~ 讆_괍ܸœ譇讇V|﯆챈骁诈ǢӮ讇}cꫂƟꬃ骁2婂讇Ϫ笅婂 詀ﲉƟꭃꬂ鯈W婃讇N骁Fꬃͧ쯅뮄婂AꬂÛĝɡկ 뭃 뮄ŞˤΧϩϩѫڵﲈ!쯅쯅ЩҬҬҬҬԮڵʣﳊ|ﳉ򷌋q ѫӭӭҬЪְֱͦ񷌈(5򸎍ﳉ ﳉǟΨͦˤȡŝȡױӭšVÚě™Ú̥ЪϨˤʣŝȟ h˜*yO ???????????0?( @  '.!<}aΕsїv՘wԘwԘuϒqsX 71(   Ηuԙy؛xݝxz{wݛuܚtטtӕrƋj  ԙw؝{՛w؜y؜yԚw֙vڞz謆xvߜvחtՖrԖrәwԘv՚w^Ԛw#ԘuӗtPԙv۝zꪂwxݜuԖqԕq'Ԙv)ԙwӖt՘t֘u꫃yywԕqӔqږnٖoԘvӗuH֙v몁{{ߝw֗sӕqۗoۗoۖnZ՚wk۝y}~ڛv֘udۖn\ޙqyۗoږn֜y䫅}֙vԗuږnۗoy{vۗoן}ס~۠|֛yBۗov{{{ޚqۗnb١殈䧀؞{ۗodޚq{||}|ݚqݚqҬ Ɵﰇި﯆꫄١ڗnܙp|}~~{ߝtޜs箉诊诉诋诊ﰇ欇欅欄آܙpݚqyyvjܩݪ뷒ۦ٤'ޜsmwﴌﴌﴌyx ެ߭Ý⬉ۧqޜsߝtuvu몁ﴌyyzzz߰d䳑ȡ게ުݪxꪁ﯆﯆穀zeఒš௏ޮ"y_詀ﳋ}}ಔⴔͨ崒߯i{}諂M᳗\淘Ѫ칔Ვ౔쯆꫁骀ᴗ ⴗಖ骀™뭃뭃೗᳗ಖb髁O뮄Şɡѫ쯅!Ე3ЪְְٴÛﲈP%򶌶0t﵋ϨְӭҫΨ񵌅[CH򸎟IﳉLﴊÛښΧʣšĜU u&c~d3?????(  @\@0)ƋhΐkғmԔnoRf ԕnٙrڙrٙrw~ؗqԔnҒm ږnT֐hՕoڛtu֔nږnۗoܘpוn{ۙqՔmRڗoܙq詁ߝuۘpV֔nؕo{ٖpۘpmwﲉۚrژpٙsۛtٗq~먁ٖoڛsښsڗo"ۚqꬃﲉ쯆|ܚsڗo첋ꩂ쫃ۗoږn"ڙrۙsۚtﱉꬃڙsۚuۜuږnۘouۗomڙs髃ښvؘsۗoVߟw›ۘpږnטrRߢ}Ĝ築ܡ{ۗoۙqږnٛv豊ʤ㬇؜x֐hږnTՙu לx۠{鬅㧁ܡ{ݡ{۠zכv֛wMٝy֜yםyٞzԙvǃlt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iiiiii!!!!!!iiieeennnnnnnnnooonnnsssjjj~~~iii """jjjGGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkk////jjj!!! iiiiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjiii!!!!!!kkkkkk!!! iiimkn,,,***************$$$<<>>999999999999999999888>>>JJJ999999999777aaalt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt   ( @ MZZMt%@@9#z>>#z>J=9llz#WfZ%@tj[^cc\lli~AJMfZ9|3^<X@@je^\&j@"M#z-)ZЂ<XXae\^#z#W&jGG8(yyt^aedZZMEMGD8,>J,*J}yvqojddZZSOOEC8-,*"M"MK&j{vnje\^WWSOOED-#W"MMK]fff^yvnjedWW>EEAD7&j&jfKu^qxvneڧ}xuRIF.Dh#z''),-,W}|vqn^ڧyzQQS0&'')-&-2T|vqn\ڧyzQQS0&'')(-2-{}yoj\ڧyzQQS-# HAA99''AYYYXXXSSSuuuOuuqj\ڧyzQQS-# LGE9(cccgggcccYYYppp>JWqj\ڧyzQQS-# LDC9#z```XXXXXXK]uqj\ڧyzQQS-# LDC9-ʉ``````xojqϓVX[FGI(%'G992©vslFGI125(%'eeeMMMbbbfeb125+,0^^^^^^[[[lllͻ}xuFGIrrrgggggggggllllllgggzzzڨxxxKKKHHHuuu}}}ڨ{{{QQQ'''ڨ{{{QQQ'''ýڨ{{{QQQ%%%ڨ{{{QQQ%%%eeeڨ{{{QQQ%%%uuurrrڨ{{{QQQ%%%ĽϋXXXGGG&&&ŪqqqGGG222&&&ddd222---˧xxxGGGÇÀ?lt~h( @Pp@p0h0h0`0Xp0Xp0Xp0Xp0P`0P`0H`ppppp``0P``0P`ppx`ppАpp@@X`pp`ЀpP00pp@`@XppP@Pp@`p`PЀp@`p`P`PhpР@PpАААААААp`PP `ppp``p𐠰 lt(  D (hE`` MHH T8@@ (B600 %x   8 hPNG  IHDR\rf pHYsod IDATxYdW3ƐCsU\% $* Z4$Ԃwe?x-///?O/k}^ݾn Pj̪ǘϸpΉ<UQ"*N(ωAP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BP( BPk}H߿@ ,ZM Zg1QBnf@$>XA,V[a` (_b5H܆!XXVfD3?ov8D/}.Yt @6~,)+AG4>Q I+V2@Z4?~@2;rWp mdYX(X gaO:~,v Q->7o_IԨtftcZGZI$y菏^ +w]zwWJRZ@R?9}=۱nqs(:F9?Z km`u.] ,j>#wƹpe޵ME28QӓaHζh>&@ˎL!^nHDc_X"Zskص1G]EPs^;; Y$kB$:~&@+R"0Đ> ahtPfp.NˈrΥĐᇄ@'Z+j @$ %A+0D'>5ę^l$kwGW U7):XA20dݛU O/1]pƾ,#}0U x~? :;mlˮ-2] j&T4ɯK<oSI>X6Dde 2V׋O+! !7{z>yN,e (nׯr,EO$o[WՀk!<uzQ{shGZߦ 972ϏBz69= kdt?* |j`8E_)W}in# gr`8?{k%E>c` KrE O L4=[[iZ;vnc!EXor4Nqfe (<9ی S!xرc}yojpR!a" 0@D]*?~gy-3]+L &d,m` t\D@ 4"+FlٲewT-[eH(!$2]#gtʷƧg`=v*k@, L$R ?ԑ B7-[^ӛEV޽{׺uJ% eTk) @ 0G+347ϘkQkDi.eb:&C|¸W4q }l[޽{SkanUwG4M#`Z aC e%( `f^>o6X)EM@DB_'D[<@$iw}Q `ٵk_7k}+;~؍tr͛7oRj@Śy \.[Tf^nTǏ0͊Jbf?Zˍҕ ȑ#J+9!V![nݗ[)E'u}B]W)sر7n !ƍcǎ][)x> 9?0oe&D~Lx]s]y>o7wtصk}͐b_ǏU@_'oئN@Jlݺ۶m|߯7C BD+}a.nUրb<^Gl%͐j=۶m۰u vx?#GH-\͟>~ت!pykI6>`?5ѣG?.] ,j~q.\63ES8E^9=Il;* D .QV۶m۶j|w">~vm-d,Dq}jnkg'2]!kdmSx"-8qP#۶m;d۶85 ~֭[buR"qO |m .}|||Fg72E(ӀF20SJ )~HZ_֭[~~3t>L:PoA>U畷8ks߁dU43E2Zq O uAR̵k>gXavfWʥs)ed hw= 0B@LLWYc` (`pّQipA#5Є䛬*[N+Ƿܹsc^t7*V_WymΝ?W_wtct>~1;{mxr?c^}qztؿ)D1r!{ǎ-,Pt";v8z!ܹsh+z裻v25TG Zjڵ|衇>zܹ-'{ر?6zjnn.T )kAa;vWno{MOO˟5Y>}ެ|gxķ~~ܹsg-5v;}كZ8k/~9wCC|s8dc_g}j=׋Jr9ܜ\7P$~g/M{ؿM%(VcE5ϧ'!5Xsss<ɵI_^s=7տ `޽'Z9=D7BB )U+Kor|XXq ~?~SWfg,z2&y3$gzdmNMM 64Bᯮ-N8߹sV'''CxH>R KlW;+ns#Q 'krFF`E&''͇Ν;8q" /aX000ɁUerr2r`K >4{{vU9T5Y"1@"= .b500` |xn>Xpѯyל+J\Z a9ū\:񣛕5Xs#zfl3j"4LcrR$׭[w20 =1vV$ ^,%a S D%x|B>ӱ]k>`bJ2@E$@C+q8>>ڵX^k:R Oku~bb.Hv! @Ct`J*➁ک:[hF20RKH4PG_5.ld߾}}}ko08G6lA\sNJ؂r9HH4`Sz_;Cp#JLIkfb[&cH0h2'[IU6l#j;R MOOKuq ,o "d..A3s5~[ooM2-`ZDJti duBh@@Ha⺮ׯo:1WnZ aaU};| hdd$|8#|}tD۷K.]$cӀ,CG$ahn`a`siŸ$y.޻c?kiWW9zV$ymbzT< t>dB x6%~"hsAp%٘m!cQ,`C_>|Ǝ>#^N ЈƘHKS)%Ν^8 _Bv޽:_VnJBB DӵAh`c_6t8Rߍ֥^ϭStcL-9|66Rɬ/X샾>òZ:_r|M_>F}px={6ܼysӁsA-=Y ѣ.;{S #D) =jZ)а,=J tl,;㝫<޵g]T*; $ כ3lmbY gϞpf\VY3۷ݭK)ywZ$|$?$BJ%b˂@Ǫ*ܵ{='>:r_ rzx|&^l4f\Z^V2}$cٷo߻y晾o~󛅛[`MFw}wk r|] iE. !%Å~(2LCh?{-?֒/LwBJkl_H~r!wަW )'nnn5QT̙3﷐<$zk#vej`h؆N)0ګV˷_űE>|";v{2 gΜ i&100 駟R9sLKYJ  :b5 CL- u`h:ÓeG␺3/L sYzVd,z{lZ!0=nj~Zq{̙STK?Oo۫z-,{>r_nuY1BMCQ*PK`YF\S(딪a޸8>M-Lj|痹:U&kdmbLreb_ލr%.R<|p~{߬}r>|eܹsy-gHl DžE'5PVllי[%5Əf,=g[ُI譆Kq8v=ܹscZ.{]=zsKΜ9sC.Bm2gqU#`QqQAj5~޼8~o7dtw3U/(= 93re#?g3.0M]D-V3gw]MjӪ>䓛8pt:u @i-l4iq N_f]bCMlZec Yfx+j碛 y -;vcПa]ޢ/oul;ӗuhZsZ7;N:sG|ɖٱ`-?heI)) 2Ry v^VRDr*5 шf(j6b:a…:ÿ˳|{آDo2semfM6}朹[ZBҲ٘MȈ}}}xeXW{MQ IDATUٳtNtԩS2 CRF%RJQ/[nv-B\kC,5t=N24/`hQBӉ3?Oo*.jWxӟF1M_֊{I6∌o\/Xmz9ؔ81SNx` &6o, 8q~С'nf::uJ6 ~}$_wxIssKdm%C3) + u,=AsS*.ZĹ~Zglzr&})ϚμaQ mM&cLܨp cNSEC}ĉ /p3ͳj @Jyѣ=䵺Paɓ' 2 ɿs{,N4 MףG!Ruz\]hD0DAӈ,˨gK|ovE57{ dL#2V}q.x8ދSJXÐPBEhH2AqZdxc\O^K%pўǁo]rܣGYd'CCCrvv6-"9!f\..4^5:ide\g %qPGgqKz*[\xsp#scF֔-NEM|Ȑ0ǐ!A/SHIx o!ׅZu0D4)`vvAg:WOG\Qn7pѧDЃ ݻszRW95zNFͩTk8N u}/tRk덩/Oh|±w/vnVmRq77OGcedU5<ϋB2\Y@ehZ.D$Q6aґH\/g9ܻ޵닋$ӓo"%QmۊѬߓ'g,#J6e];5* RRHT\.Sժxa<\W^8*ujmL&KZu|# dn@ DI9h%w0-sP`VY\"o^⢩Bos>z}Ï~mgpZ?IJ+~a%POZeqq'El㝋(RpuS|=;=[(*Az}ޘ/ 83mIH OfrrD8O0|] Tezß8 ک:n G0d?AJ4B0č-Gy階h:Q<;ޣcu(6jj󏿻.ṀcCg\42S?| \dLreb{iL" ?5F9 9 sQX,P.Vj$O}OznKh/] @4^N =ʋBˏ4s8T*e"?7?,WK M+̌l `a mͱm۶6\XXB֛qž~J $.-*B|!~>a xC0͐mmgp7/Mq,pp3_uy{pq?îMy&k̖|,L'Ma |?0Ϥ 5-5-?/_sVfb_*KԪU\G>É%bb5~9 pHKbXssskEB$d˶_ r@T.0a\rե+} G7 (Vz{/w~qSC3NJ{&[z$s;&}*NÒahH,0LB,ك!kt"ZQH5@Mm۶:2yHK~# Z<#JJ]z?99dG?ԗ¿VJ*ƍB ^W x>Vˁזk $&"!A(q= ŚGQ+G9{->r.z5/ k-Xd")05MD"o^ăYscEs%^ysvf 6}Hlrܷo=?;5lE@6A5 e"eZLEԇ\]o_JlwiOh{~vvvR׹ øx|r:VZ$ 9>'2erͣTsnTt-ܻ)A(1CI1^DdF݇*O 4^_|߻w]" zz A Yߢ/kқ7Dqqų7o/w& $ȯAB@mF5:Z7wZj/3𛛟|b_%_G(Hv}V2(9999i U'"%8,Y^FP/qQb92+Bp}68uy޲JCzr J1MNknݯy4O}h_⢩B^d X:K'oVxtgYH3QiDYѣV@sgKO}ЇRӷ.PzئA2g جɰ7ƾ ^hCL\֜1^2{w?1Z_|񕉉5# vl !Apuff]vReYl߾S5ACMF BPRs5'2+ŊC \jn Y:̵D`5BB^#ڴXXX2T(+%Ndff Lp]whffF޽3ie)^Xp /Rđ/D B<<_P|ʵ(U\ SsLϏ];[p=nFJԑX71t=nN_S*~`qރ/o5 |CAwjN|B!*晟c~6/I>ff~"F*N2uX Ću"#^.Cn:@RsJSEwsܳ \ B4+L 0 HD]E3ї9| +z޻kg?{7ƹ-ۚo^efzxHTpezE_jV7 X?8 E@i(@ ,8܆ke-;Q|?^V\L#0masߵ\֬+BQ4EBu|/~Έ+m!H M/>cK#o#@sʸ2nDZƩUpN>Ȓf7 ?e]077wZuv?Fz{{ٹs'W6ߟ!Z<7{9>嚇Qq]{{6wGs"1MkLg"$K4[#c@Pd75գH6NPyWd~~):U\T*.}%~~Bu_TLs `Ei<b``MkUO6ÿ˿az:SanN#Wպ0 ˀ4o@&F% D1ɍo^?2QQ?"bϩW'tB&K5٧3O.ӢP( fVg ٙGazºuBpʕ{rwCZurL&ˀFZV \ץV՗S#g?'[bR033Yڜ )!6^oUXn@K%`['N^fdm>'FIXԕ@ZEx?#J%mNMM h*p]\z}mޚaCxs)%Os-uŸtX7FrRp; ?D]ٿ-PVؿ/luUJ`uT*TN!JVI@mc5@8777699!f#6yf@)vs; ?d0777*?wEa3336^oټy3w^۸mIvfff*,ˀI!ĺ6_sMٲe BVn+*Z'YX%-5ה-[(%B)V૲ CCC֭[n j044tW'!T*6^sضmk}]ϝ"r\kt@8W9p@/Pt8sFbP( MLLpUB=LLLP(>j\s95!D;y4*/ʂg|]똙%n%@= J(2999y74Bu`lllUڀiw0 .^xN (7ŋO ^zNP(C\ի>Hir<2::ʡC}FBlFGG)#bVO$KjZirr28|mYP AV+Lm t\NNNV7'Bq299YaA𯑙v]w5-y&''iոjX`bbbRV(i6+v*}xxxLŲ+NH>F;3B;3L$'Hd&huۥDÑ|(ІG2===mB=J%GHH!A3~ԫjattT>|X;QYV ,"+>dO#~d||;r+BlIDAT]?MHrt m$:4@ !PLLLXpe%Bڴ hgA 5ƊB6]_ƒ22M"G]9h:t|V] W(nY[A XJ+Dg$H NPB,0I Xa%N@Z5*ӣJ(pQ-tD`E-p)E\reT*; ATʕ+L\nVl\I 17='LߔaÇ۹ABьaD3{(@5Maؘw{A<ʀMm]+ L;4̱B)XuA+FiK p EW0::Zb!X8(+^R Q W}W!v=(]իWgX@ܴQt5z,mB2l/Ui n|6<n&݀2Жb*5 d苏Go|~][I9< y`.~,(B|ύF7otʆ#~} $m@6B$Lx,HZfҖtA0-ɇvhLk$8Cn'`/>j,p"hӞ+k3>d"i 1rPt3|_D!QM=ǂXq%K$48:}>",NZgb I/'. `"aaK &4,Nyl,xP @q;KOᲠV˂xSvsGϬ2pAc҃~DkC+J;,I;[9պ_qV>x dC,Hkf=ϔ+-9,lе h&> #}i@zYV m~h5MU@@n6b;(HLYMk&JVOX+TP\˪BP( BP( BP( BP( BP( BP( BP( BP( BP(Nw'֫SIENDB`(       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~   (29=?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=92' 0CQ]ejllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllje\QC0 +DZk}}kYD+ 7Rh}}hR7  ;XooX<  ;Wq::::::qW;  4SqTTTTTTqS5 ,LolllllloL, #CllC#  ;gg; 2cc2*cc*((( %yy% 222"""$$$!::::::!---<<<))) OOOOOO 222---!llllll!555???000""888WWWGGG333 &&;;; ^^^NNN ,, cccUUU F F hhhZZZ j jkkk^^^777777nnnbbbOOOOOOqqq///mmmmmm777AAA111QQQ[[[eeekkkmmmoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooommmkkkeee[[[QQQ888YYYGGG222 $TTTeeexxxxxxeeeTTT$999 \\\MMM444 6JA8da^da^JA8 6::: ```RRR VQLG`VMsdVzzsdV`VMQLGV cccVVV!!!xVTSjfc{t{tjfcVTS!!!xfffZZZ666WUTljh;иֿ̮ijʰ££ʰijֿ̮и;ljhWUT666hhh]]]UUUWUTljhÿƴҵͮкĦujjuĦкͮҵƴÿljhWUTUUUjjj---mmmWUSljhÿϽּ̬ҺŵʰnvvnʰŵҺּ̬ϽÿljhWUSmmm444000WUSligþíв˪Ѽħvj˴˴jvħѼ˪вíþligWUS777PPP777WTRlig¾ɵӷɧˮƸʱn{{nʱƸˮɧӷɵ¾ligWTR===fff```WTRlhf̺ӴÝzbrwlιιlwrbÝzӴ̺lhfWTRhhh WTQlheո›xVr@ggr@V›xոlheWTQ XTRlhe˩lZζζZl˩lheXTR\XVnjfȿλֹȥoŤŤoȥֹλȿnjf\XVmheytpȿįаĝ{rƶƶrĝ{аįȿytpmhe»ϼػ˧qʬʬq˧ػϼ»ccc@@@<<<777000'''!!!ɿưҲƟ|v;;vƟ|Ҳưɿ!!!'''000777<<<@@@cccJJJGGGBBB:::000(((нڽͨsααsͨڽн(((000:::BBBGGGJJJiOOOMMMIII@@@555,,,DzӳƠ~ÝzÝzƠ~ӳDz,,,555@@@IIIMMMOOOiXXXPPPKKKBBB777...Ѿ۾Ϊ™uѷѷ™uΪ۾Ѿ...777BBBKKKPPPXXX~~~QQQMMMDDD888...ɳմɡƢƢɡմɳ...888DDDMMMQQQ~~~RRRNNNDDD888///ҿϬěwվվěwϬҿ///888DDDNNNRRR>SSSOOOEEE999///˴׷ʣɧɧʣ׷˴///999EEEOOOSSS>cccPPPFFF:::000ҿѮƞzİİƞzѮҿ000:::FFFPPPccc񲲲QQQGGG:::000˵ظ˥ͫͫ˥ظ˵000:::GGGQQQbRRRHHH;;;111ӿªүȡʹʹȡүªӿ111;;;HHHRRRbSSSIII<<<222˶ٹ̦бб̦ٹ˶222<<>>333̶ۻΨշշΨۻ̶333>>>KKK5KKK>>>444ҾĬձΨΨձĬҾ444>>>KKK5OOO???444˴ۻϩپپϩۻ˴444???OOOkkk???555ӮЫЫӮ555???kkk[@@@666666@@@[ AAA666666AAA HHH777777HHHybbb777þþ½½½½þþ777bbby-{{{888{~pr`gR|o|ogRr`~p{888{{{-888zhjjhz888CCCƲppƲCCCWYYYѲƣȪȪƣѲYYYW mmm̤̤mmm \\\z\\\z,,,2,,,2sss枞yw|rui~l\waM{k\{k\waM~l\ui|rwytttbbbhhhuyes]s]yeuhhhfffPPP888k~kk~888kWWW@@@1}ǽǽ}1III111-oooʄؿؿooo-;;;$$$-::::::-///-dd-###-Qnnnþþ½½½½þþnnnQ- -QAAA{~pr`gR|o|ogRr`~p{AAAQ--Q"""zhjjhz"""Q- -QnƲppƲnQ--QmѲƣȪȪƣѲmQ--Qm̤̤mQ--QmmQ--QmmQ--QmmQ--Qmyw|rui~l\waM{k\{k\waM~l\ui|rwymQ--Qmuyes]s]yeumQ--Qm~kk~mQ--Qm}ǽǽ}mQ-,PlؿؿlP,*MhhM*&GaaG& !=UU=!  0DPUVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVUPD0 !1:>????????????????????????????????????????????????????????????????????????????>:1!  $'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((('$    ??????(`   &6AFHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHF@6%(E\p}}o\E(:[vv[:AcdA=c555555c=3^NNNNNN^3 'VqqqqqqV' MM EEFF*** KJ### !!! TT''' $$$ 777t777t*** ???"""NNNNNN'''XXXIIIhhhhhh___QQQeeeXXXiii???//KKK999IVVVfffqqquuuvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvuuuqqqfffVVVICCC<<<"""_|[ZXwwwwww[ZX"""_EEE 888|WOHk_Sk_SVOH888{%%% @@@ NNN^\Z|wsȴѽѽȴ|ws^\ZNNN UUUGGGeee`^]}{ľѵŵǫyyǫŵѵľ}{`^]eeeZZZDDD`^\~{yͻҵӺкp̶̶pкӺҵͻ~{y`^\TTTKKK_\Z}zؿͭɹŷǬuuǬƷɹͭؿ|z_\ZZZZ]]]`][|yŰ̫ŤɰvϼϼvɰŤ̫Ű|y`][kkk}}}$$$ `]Z~zvѲhwHyywHhѲ~zv`]Z&&& _\Y{wٿơkккkơٿ{w_\Yjec~zμӵĞ{ʬʬĞ{ӵμ~zjebĮ̩Ý{ɹȹÝ{̩Į8MMM???888---###¹¸¸¹ŻûϼնƟ}γγƟ}նϼûŻ¹¸¸¹###---888???MMM8 mmmKKKDDD888+++ůΫǣǣΫů+++888DDDKKKmmm PPPIII<<>>000ưϫʧʧϫư000>>>KKKRRRTaaaLLL>>>000ҿٻ˦׿׿˦ٻҿ000>>>LLLaaaNNN???111ɳҰͫͫҰɳ111???NNNsOOOAAA222ҾڼͨŲŲͨڼҾ222AAAOOOs,PPPBBB333ɳԱҲҲԱʳ333BBBPPP+___CCC444ݿϪ̻̻Ϫݿ444CCC___DDD555ɳֲָָղɳ555DDDMEEE666ҽ޿ӰӰ޿ѽ666EEEMLLL666հٽٽհ666LLL길\\\777777\\\oxxx888888xxxn(999»»999(@@@||kp\xxp\|k|@@@κPPPx}}xQQQJeeeͰ¢³³¢ͰeeeJzzz׺׺zzzWWWqWWWpmmm9{vxkjXo_o_jXxkv{9qqqUUU؈ykky\\\>>>VVVVVVHHH***'''i&&&i555 Kvvvvvv K%%%?VVV»»VVV??---||kq\xxq\|k|---? ? ux}}x u??hͰ¢³³¢Ͱh??h׺׺h??hh??hh??h{vxkjXo_o_jXxkv{h??hykkyh??hh?=ff=9``90SßĦʟğS0 "=MQRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRQM=" %033333333333333333333333333333333333333333333333333333333330%????????????????????????(H `T    )FZceeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeecZF) HnnH!SS!M111111M?PPPPPP?0llllll0 %%(((???777""OOOEEE33\\\:::FFKKK>>>222j222iLLL:::JJJJJJFFF*** ffffff222 +++ }}}}yb`]b_]}}}111 d^Yylyld^Y:::jhfǾӺҾҾӺǾjgfPPP<<<7jgeԹųɮwϼϼwɮųԹjge7OOOLLLNjgdíαȺ¥¥ȺαíifdN^^^nnn>>>Jifcոd^²²^dոifc@@@JBjfbƱǢťťǢƱjfbA?|wsſշƢʻʻƢշſ|ws?żkkkeee[[[ſ¹ɴ̩ϳϳ̩ɴ¹¼ſ[[[eeekkkŻeTTTFFF666غʧʧغ666FFFTTTe!rrrLLL:::˶ϬӺӺϬ˶:::LLLrrr!NNN<<<ڽάάڽ<<?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~???????????????(@ B  ;NUVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVUN;>jj>II@000000@/PPPPPP/jjjjjj 555 " "NNNBBBEEYYY???///c///cRRR;;;IIIbbb{{{{{{bbbIIIIII444ccc~`WN`WNccc???,,, zzzmjhɻθθɻmjhzzz333 """nljʸԺȺ¤¤ȺԺʸnlj'''nkiӷñͷ{{ͷñӷnki;;; njg˩[[˩njg??? ojgؽzzؽojg}ѿάͱͱάѿ}kCCC999(((»»ûʦʦû»»(((999CCCk!QQQEEE111ѯҸҸѯ111EEEQQQ!rrrHHH333ìΫΫì333HHHrrrJJJ444ԳԳ444JJJBLLL666ŮҲҲŮ666LLLBTTT777׶ǴǴ׶777TTTĬvvv999Ư׸׸Ư999vvvìb:::ٸϾϾٸ:::b;;;;;;FFFFFF___|h|h___;vvvǬëëǬvvv;튊훛aaaBBBj|mudud|mBBBjhhh;;;//FFFllllll*** @@@@@@||h|h|_ǬëëǬ______|mudud|m___\\O۾O2GJKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKJG2???????(0` %.0000000000000000000000000000000000-"\\",,//////LLLLLL iiiiii&&&)))999+++ 777 ***333$$$ *** ...;}zvpkvpk111;999]}z±̴̴±}z:::]---FFF}|ʼ¤¤ʼ|FFF}BBBJJJ```~zؾsŪŪsؾ~z```dddȀ~zľп˫ŵŵ˫пľ~zʀMľٽҷҷٽM޴JJJ333ѲѲ333JJJɗSSS777ؿؿ777SSSȗMqqq999׹׹999qqqM ;;;ëȵȵë;;; ϸ===ҾҾ===θnEEEоϾEEEn%______%yyywwyyy־־JJ999}pp}<<< cccôôccc 555555  dwwd T־־T TT T}pp}T SôôS GG &@BCCCCCCCCCCCCCCCCCCCCCCCCCCB@&????( @  @zz@ kk ...i...iSSSoUUUolllmmm!!!||||||///!!!}/// ȹ̵̵ȹ...000Ͳ˴˴ͲAAAؾ˽˽ؾϢ666­­666ϢX>>>ůů>>>XCCCҿ̺̺ҿCCC```ʵʵ```yy00勋222\\\\\\=== +++o+++oFF????8835555555555555555553(0 ` )cjijjijjjijijjijjc)UU444P999P\\\cdddcrrrvvv~~~ŽŽýͽѼ˿˿ѼͽýٲļƳƳļڲ^λλ^Ȕúĺ77""")))uqmúĺuqmtnitni\SL\SL333dqqqttttttttttttttttttttttttttttttttttttqqq333d(  @DGGGGGGGGGGD88888>>>>>TTT][[[]kkk|ʽʽrrr|hh|||111Eýý555E"" lt   (3!`` [)HH T@@ (B00 %T  [z  hPNG  IHDR\rf pHYsod IDATxiodי}ߋE6w6{SwKjdyX; țAAS]HŃ```<ؖ4d[jWnK}EZͪ["Yz~PV]XB!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B1:C\c Yq2Tԁޟ pC\'8z:MC={_;@U\lp!D#B 4 MchbhoFh4ߘlVgp #ịE+ 0s{6 !D+ByZ7၌ܽm{u (8UZw*V˴nFֽG~E'A-msZ_e$Gm{!(?f-mc1#L:!FtB0a1¤bI xQTj GÍb'vFj]VLԉ$8*+7Z{sb|I,hg<`x;;L UCs_ט:e*T%TmwJ"k6J8ڥT97f/لx]vq熿oCvt]hWk]-T9ƃ!1JU[Ůga~;wF(耪k;dNqq7 h:vJ*?jfGC9v3aB'2:uXIT8͙C Vp_f0 6,VsC5U*wV'+\sx&mȔ fVDR-5jjQ5 ?L3qxƍM6Poj,mXMVbRL]DX&bV\ URS /,'ld*\2vxI/uXOUxY4>7) NpQ:y6K+U*5@s{%ng|=HLH1rpuև.ل{<jWyf.Pi9\ʒ _(03淟BcR`<`'䱲+[8=ducd=sgc.6VeJ5cˆ7<. !M%pΓ>JEnf.~;5F^󱓭0Mރ4W0&D;OuGjV:Gwz؉zm$*줫 s?o^IQ|(N5 0r0ut>Lg(,N:x]"W66Qt̳2_w?@'_/LW]VMg#/8\xj4y0Sx/NDݷ(ՌvnbrFkƣNkcyzbI3ua)Y~&O0^ˤtl Mvb1+p3rhhxpmOv˼q.;I'r|꺈ƅI9ܮಛg7_Fe^W",ܧ^A!/.YNyQazSrqs}؈f$wIMB+┇k#!(p6b:ZݲddOio]t$أc..xdGf1qm|ɧyw{kl(Fn}ZZNaW}zS_H'AYIT7TgNUW&q?#ty '+xWv6W|EG=:.\TO6K<ϖ;,1|Mﲴc|IQ878$IYh)ˎu'%l^ s}v:uxnv^_ = !,|k rs'/S~c28,\_3pIz fN&ZhM:t޹r^qa{/g6 8[5M;H٤peiMI:&+>cne5 :&E*Wjq7?|m| u~yk{V s٨-d1;Ui歫a2nn<ʒ-50r,^rZW:sӭ8=2άj 7/8t$8!A߾{ Mu u|GY7&&0wf'SCl̤˦KAƤ@lj@'@縳E;&+a+]2/ѵ(Z-U~IGP5~s'^Hp̪ug((mCX,7c\ę|oЬ5^߼>5KBVvʍG) ]_ _:r:6⯾}ȳ דw[ s\_ a&d>H1t;+9m#M 8ՂlT Wfx|Ej5&Eꌗ7XOimAzS\MtFR?>o\ s6|gp8v),BuZw2C&ux/g~'/rg;Z&^[ 2qf:ޗ{|zY8 +d# g<,x,M sV87毾3ix moɶM;o :f!ƃ>^ʴ-j:7Ij#sH%rR*O ymy>]?+7xn]u(?x9r`zSwO]}q7o] wuG\krqЄi n*)HIN+َܔMmyon'IrXNqyu^o٠0V W"̏>DVNē|NJJfg=yT@uhEv!js!}~[s1in>gijV*WD%c֥o\TQʌGOt@5-Xlx.IJs,൳!GPXmۻI_;+3^w5eFZC4eםVGvG#<7z}pqm:-ƹ~6/n.BbxΏ^c*|tI:o^]ZmCg O8?H"!T*?MנC:ns!;v0˭4|A\v3߻+qnG;x@*_ِdYti7[gvX:?7Ϗh3K<>Pj$D|o# :϶l&_tnW &ĂrB02^ :xEU47 g|#F<2ZkJF1e .Ku3twYyءVD\祙`eچHL3el4cTb/FX)lF\5isg|Ă?Twsc7kVS0sZ)„lRx3GXgq\; vP4xZW;m\ `L( {\?F\}q2_Xsq*甮Idɻ@E0"kbb)Ɲsc^Μp}pM,bv!jdkw1pyޡn|J#>5\R EW"^W"D|g,W:=iC 밑(| IQyGbvWg0$)o<\0v34^5Tme)T'6 Y݋]x]66Tӈ%: gCF<@PNU:l7p;,\ϓȵO#.V_M0#4⡻jnD1\flGhsL ~n;|jĺt+G4Pgz;tiC P7YR7;:O wx&NV㴱XmFU(W̟ }uh  ;.DF<̅0[LJ GkiƼDñl3UMg='S\j613'{^|n;k;iĠT3 |@*jxZCx7l~ >a9iRzcpӈv`7S∋Bdm_W>i652!@SX)VZ=lt^t]xVyitRL7pj:Mɻ>r87f3'_}nZgi#Tԏgb^2+}a!p̲bVIۧk:,X3T'> Xol:m>C*FCSFΗLNʼnFbTɻAGJu[8;d'U$ShF\7XJ3\J5]'*|m}:x؋-SN6D҈}VoSot.[xJ.1d|n;NdJ}qTVop&r> Lɻ!p3@jaz"H*[$kFhųD>@tvSR]mB~cpJ8,<{CiĐVDz}F`'i`߾a#bd !zrؘO(Wۧ5w}8Gv|t1\!w0%䘟l.ڥkV"K&;vq$j[3c!틑pm 4:gecG=(W$ETs:e'H.1rv Slb}ZnHu\(<.)%Fɤ p:ձF"q//ͦJ"Shv mV rYIvZ9MA/>;ry)|nI96lDfN2K(v=wlh`2)^/āE!HZ{dzs)fھF96ƭAҹ; {uy^Gl"S(),E"DfR]BqaYhZ4CnھbY Ej; {𥡽鐵}!dRTU; {f<7 qVbO#6pq\/1X,>#;BtGQ=YbI @&#L:!FtB0a1¤bI @&#L:!F݀ͽ5ˀKQB/cNJF"o~Qi1/`.8jUZmhmc0#@pE$j7Tqd&*n[FRiu*`i B&Ph:;]u@VcRHS5Ѐ4FOljֽ?0#'I*Zw_m%O'8uB %tlhErη'Gi5k !B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!BcCIDAT!B!B!B!B!B!B!B!B!B!B!B!fXR>IENDB`( +8<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<8+*F^cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc^F*7]}}]7<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cппппппппc<<cпμμμμμμпc<<c̹̹̹̹̹̹̹̹c<<cʶʶʶʶʶʶʶʶc<<c̸ȳȳȳ˶˶ȳȳȳ̸c<<cưưưưưưưưc<<cĮííí˷˷íííĮc<<cDzëëDzc<<cн޿޿޿޿ϽϽ޿޿޿޿нc<<c߿޽޽޽ĬĬ޽޽޽߿c<<cĬݻݻݻݼۮۮݼݻݻݻĬc<<cϻܹܹܹܹǰїhЕdЕdїhǰܹܹܹܹϻc<<cݻܷܷܷ޼лՠuїgїgїgїgїgїgՠuл޼ܷܷܷݻc<<c¨۵۵۵۵ϺۮҙjҙjҙjҙjҙjҙjҙjҙjҙjҙjۮϺ۵۵۵۵¨c<<cϺڴڳڳڳ࿤⽟ӜoӛmӛmӛmӛmۮۮӛmӛmӛmӛmӜo⽟࿤ڳڳڳڴϺc<<cܷڱڱڱ۴̵֣yԝpԝpԝpԝp֣y֣yԝpԝpԝpԝp֣y̵۴ڱڱڱܷc<<cٯٯٯٯƮۮ՟s՟s՟s՟s՟sƫƫ՟s՟s՟s՟s՟sۮƮٯٯٯٯc<<cιخحححܷὟ֡w֡v֡v֡v֡v߷߷֡v֡v֡v֡v֡wὟܷحححخιc<<c۴׫׫׫׫צ~ףyףy۬۬ףyףyצ~׫׫׫׫۴c<<cӿשששששרͶͶרשששששӿc<<cờااק֧֧޹޹֧֧קااờc<<cȯګ٩٩٩٩ݴݴ٩٩٩٩ګȯc<<cӿݲګګګګۮۮګګګګݲӿc<<c⼞ۭۭۭۭۭǮǮۭۭۭۭۭ⼞c<<cǮݰܯܯܯܯ⼟⼟ܯܯܯܯݰǮc<<cѼ߶ݱݱݱݱ޵޵ݱݱݱݱ߶Ѽc<<c⾠޳޳޳޳޳ϺϺ޳޳޳޳޳⾠c<<cǮߵߵߵߵߵĪĪߵߵߵߵߵǮc<<cлẛธธธธ⾠⾠ธธธธẛлc<<cẛẛẛẛớớẛẛẛẛc<<cȰ⼞⼞⼞⼞⼞͵͵⼞⼞⼞⼞⼞Ȱc<<cк㿣㾡㾡㾡㾡ūū㾡㾡㾡㾡㿣кc<<cĪ¦¦Īc<<cʲ§§§§§§§§§§ʲc<<cкŪĪĪĪĪ̵̵ĪĪĪĪŪкc<<cɰǭǭǭǭɰɰǭǭǭǭɰc<<c͵ɰɰɰɰɰɰɰɰɰɰ͵c<<cк˳˳˳˳˳ԿԿ˳˳˳˳˳кc<<cҽηͶͶͶͶккͶͶͶͶηҽc<<cӿӿӿӿӿҾкϹϹϹϹϹϹϹϹϹϹкҾӿӿӿӿӿc<<cҽҽҽҽҽѼѼѼѼѼѼѼѼѼѼҽҽҽҽҽc<<cккҽӿӿӿӿӿӿӿӿӿӿҽккc<<cллc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<<cc<7]}}]7*F^cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc^F*+8<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<8+(` """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" -GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH- GqqG"OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OO""OϾϾϾϾO""Oμ̹ͺͺ̹μO""OʵʵϼϼʵʵO""OȲDZɴɴDZȲO""ODzíĭѿ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}ѿĭíDzO""O̹ůů̹O""O޾޾O""OݻݻȲƬƬȱݻݻO""Oɳܹܹ޼פzЕeЕeפz޼ܹܹɴO""Oܸ۶̷ܷ޴ҚkјiјiјhјiҚk޴̷ܷ۶ܸO""O߼ڳڳྣ§ՠtқlқlԟr̴̴ԟrқlқlՠtçྣڳڳ߼O""OǯٱٱڲӿѼاԝqԝqԞr⿡⿡ԞrԝqԝqاѼҿڲٱٱǯO""Oҿڳخد¨޴֡vՠuՠuݲݲՠuՠt֡v޴¨دخڳҿO""Oݸ׫׫ת֤{֣x٨ب֣x֤{ת׫׫ݸO""Oͷר֩֩תƬƬת֩֩רͷO""O߷٩بةݷݷةب٩߷O""OèڬګګݲݲګګڬèO""OͶݱۭۭݱϺϺݱۭۭݱ̶O""OờݰܰݱūūݱܰܰờO""Oé޴ݳݳỞỞݳݳ޴éO""OͶธ߶߶๚๚߶߶ธͶO""O㿣๙๙ẛθθẛ๙๙㿢O""OǮ἞ἝἝŪŪἝἝ἞ǮO""Oθ㿢㾡⾡èè㾡㾡㿢θO""OūççūO""O˳ĩĩĩθθĩĩĩ˳O""OϹȮǭǭ͵͵ǭǭȮϹO""OҾ̴ʱʱ̳̳ʱʱ̴ҾO""OϹ͵͵͵͵͵͵ϹO""OӿӿӿӾѼϺϺϺϺϺϺѼӾӿӿӿO""OѼѼҽҾҾҾҾҾҾҽѼѻO""OѻѻO""OO""OO""OO""OO""OO""OO"GqqG -GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOG-  """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" (H `T!4666666666666666666666666666666666666666666666666666666666666664!JuyxyyxyxyxyxyyxyxyxyxyyxyxyxyxyyxyxyxyxyxyyxyxyxyxyyxyxyxyxyyxyuJVVVVVVVVVwwvwwvVVvtrusrVV{zy{zyVV~~~~~VV~}}~}}VV~}|~}|VV~|{~|{VV~{z}{zVV}{yϽϽ}{yVV}zx̸̸̸̸}zxVV}zw͹DzѿѿDz͹|ywVV|yvìƱƱì|yvVV|xuªª|xuVV|wtĬݼŭŭݼĬ|wtVV|ws͸ܹݺݲіfіfݲݺܹ͸{wsVV{vrܸ۵ǰĨԞrҙkפzפzҙkԞrĨǰ۵ܸ{vrVV{vqྡྷٱݸҾبӝpաuʲʱաuӝpبҾݸٱྡྷ{uqVV{upȱدٯɱ޵֡v֡vỜỜ֡v֡v޵ɱٯدȱzupVVztpѽתתרܱܱרתתѽztoVVztoлܯبجммجبܯлzsoVVzsmປګګǯǯګګປzsmVVzrmīܰܯ⾡⾡ܯܰīyrmVVyrlϺ߷ݲ߷߷ݲ߷ϺyrlVVyqk㿢߶ธҾҾธ߶㿢yqkVVypjȰỜẛɰɰẛỜȰxpjVVxpiл⾠ŪŪ⾠лxpiVVxohƭééƭxohVVwmfͶƫƫƫƫͶwmeVVwlcѼʱʰккʰʱѼwlcVVvjaӿθͶϹϹͶθӿvjaVVui^ҽҾҽѼѼѼѼҽҾҽui^VVuh]ӾӾuh]VVwlcwlcVVwnfwnfVV~}|~}|VVVT??????T 8TVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVT8   (@ B"++++++++++++++++++++++++++++++++++++++++++++++++++++++++""`vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv`"+vv++vv++vv++vv++vv++vv++vv++vv++vv++vv++vv++vͺͺv++vʵ˷˷ʵv++v˷ĮĮ˷v++vѿȲȲѿv++v޾޾޾޾v++v©ܸɳธїfїfธɳܸ©v++v̷ڴ޻ɰԟsҚlݲݲҚlԟsɰ޻ڴ̷v++v۴ٱιګԞrببԞrګιٱ۴v++v߻׬۲֣yפ{ͶͶפ{֣y۲׬߻v++vǯר֨ཡཡ֨רǯv++vݲڪ޵޵ڪݲv++v⾡ܮݱݱܮ⾡v++vɲ޳ݲ˵˵ݲ޳ɲv++vӿờ߶èè߶ờӿv++vĩỜ㿢㿢Ờĩv++vͶ㿣㿣㿣㿣Ͷv++vӿūèϺϺèūӿv++v̴Ȯ̴̴Ȯ̴v++vк̴͵͵̴кv++vӾӾҽллллҽӾӾv++vѼѼv++vv++vv++vv++vv+"`vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv`""++++++++++++++++++++++++++++++++++++++++++++++++++++++++"(0` %  KggggggggggggggggggggggggggggggggggggggggggK gggggggggggggggggggʵʵggůѿѿůggȲëëȲggѾܹĩҚlҚlĩܹѾggܸاץ{ץ{اܸggཡڲ޷֣yȯȯ֣y޷ڲྡggūר߼߼רūggѽݲ޵ߵݲѽgg⾡޴޴⾡ggɱธ̵̵ธɱggҾƭǭҾggȯūūȯggϹɰɰϹggҾϸϸҾggҽӿӿҽggggggg KggggggggggggggggggggggggggggggggggggggggggK  ( @ +PPPPPPPPPPPPPPPPPPPPPPPPPPPP+PPPPPPPPPPPPPPP˶˶PPϺا~ا~ϺPPƭݲèèݲƭPP§ߺߺ¨PPлẜẜлPP¦¦PP̶лл̶PPӿллӿPPҾҾPPPPP+PPPPPPPPPPPPPPPPPPPPPPPPPPPP+(0 ` 3<<<<<<<<<<<<<<<<<<<<3zzyzyy|{z|{z~|{~|{}zx}zx|xu|xu{vrι߶߶ι{vrztpҿܳܳӿztoyrmʳθθʳyrmypj̶̶ypjwmeѼѼwmevi_vi_ztozto??????(  @ (((((((((((((( (((((((((ѽ̴̴ѽ((лл((((((( (((((((((((((( lt6h&  ( @ttttÓp|]pVҥ䷖鼜߲Ś{tta|]f̟ԧجԧǙztt_JoТת䶕繘᳒תttzƜ~巕繙ũɯ뽜ҥtzɯҫkǞɟĝdӦgwY۬೒Ǜzh_ɞտտѢq`__ԯտտoиииɚ{ʝ~иииииииииииии????( @ hhhhhhhhhӨ縘Ǧɩ᳓ͣhhsTsTsTh۪٪ݮ߳䷗帘ⵔᲒᲑⳑکwU@[A1|]FҫѣȗuǘvnN9h•uŘzΡӧۮܯ٫ԨѤϢt_FrTmҫҫѣahiMhÖvǚ{Ρզۮܯ٫ԨѤϡtmRiLhҫҫѣѣkitȜ}ϢԨڭᴓⵔݲڭתӧɜ}cyZhҫҫѣѣ•tǚ{̞Ѥ֩ۯᴓ湙蹙帗ᴓްڭҥȜ{rhҫҫѣѣ˜zҥթڭ޲㶕軚꼜躚渘ⵓۮӧ͠ҫҫѣҫݰ߲㵔蹙켜¢ȫɬħ쿞껛䵕ްӤҫҫѣҫ껚꾝ĥȫʱϺѻͶʲʮǪ쾜֦ҫҫݮζкӽҼ̯ҫҫʰ俠ҫҫҮήױⶕⶔޱӥج۷ۼҫҫqXjLrTtY~ah|atX~^{^ҫq^dJdզ㸜ේn}d^FtWnʞ}ӧҦʝ|puWҥoReĖxըۮҥėythҥ}^ʞ}ޯ뿟꾝޲ѤėxeWSƬƬҥqⳓ˰ϸ꿝جĘwvcvcƬƬƬҥΠεʯ߰tvcvcƬƬҥҤ͵ޯjvcvcƬƬҥҥħէz[vcƬƬƬƬƬƬѣȭ§ТhƬƬƬtް纚ᴓУlƬѰƬpʝ|ȝ{ÖvcͮƬƬƬ޾ƬƬݾƬƬƬƬƬȶĦƬƬƬƬƬƬƬƬƬ???? lt߁   ( `` GHH T@@ (Bw00 %=  Gc s hw}PNG  IHDR\rf pHYsod ;IDATxjT `"PPR||AAb06I:t*)oir{;8f@$:zb2܊ϧ9Ztq(1 hnDz]^^F@CvvvcpQ@cXwC=zd,: [.ի.Oft 6).//.#_*: [Vĸ.3< wR ?0@} @%EƷR D..xqG&]| // .3< ^\QIK} @ø(x/@ ,߹snݺ#}%:FkPX[[7K$|˾`1XP[Ɩg%]* vPq۷osoi.өG͛7#'P ɞϋ@ɞϋ=ز LU(huPa[ϟ=P=0=Ztqe7?{>/ a*'{>/ X|c.3V|bI@ ɞϋ=ز(> ,OX.x0eO|^TO|^@Ɩg%]fĒ.O<(͸~ß+G FǸ6=t:@ Cgg[d%]s1ДtTH^w h C\@ca_K} L#?R! Gx`0@}Ƹf6Nc\3[.1H*03ؽ{c\{ut #@~䥾C\\r *oy*.1.\Js(1GǸŢ\*M (1GJpQ@cИ;3g8C^;$]Q@cᇗIa4K@1.1 hƤ_|&It Y'a<Q@cXw'''hh{{;:4FQ@cXo6661А¯sQ@c4V%'Ozt X,ŋ1F#]?(l>SUK}(`P#]f< `ZjGxPC|Ÿ(¸ॾ?0@}(`P#_|  0.xl6t:̖etANj6ŋNOOc ʾ?^@ƖgE Ld%_ٿy޽kAiurrbGGG?jQ#_eߏ1 |e7?{>/0`u'ʭ|*d*<t}>yQ[ϟ=t N*,X|c*||.̞ol?4~C@ ɞϋ=ز L1XP|e7?{>/ '{>/0?DAǓ.,ɞϋ_TO|^@]\\߃Ҍ|HYntkSm>j  G TdE!...'{>/`c)p 7.3& 0@}Ƹ;4 P!.1ॾ?ҏq h ?\@c\.:|mmmEǸGGG0of6lcc#:Ƶ899*UHYV7hK@ ^;% 0 ҳfK[%UI+TX2xPb|Z,|Ti=ۋfxtFQ@c/^4FQ@c4FI0?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~bbbBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBccccccBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBddddddBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBddddddBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBeeeeeeBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBffffffBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBggggggBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBggggggBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBhhhhhhBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBiiiiiiBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBjjjjjjBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBkkkkkkBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBllllllBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBmmmmmmBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBnnnnnnBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBooooooBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBppppppBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBqqqqqqBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBrrrrrrBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBssssssBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBttttttBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBuuuuuuBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBvvvvvvBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBggggggBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeeeeddddddeeeeeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd(` ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ(H `Tddd"dddddddddddddddeeeddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddd#ddd-dddcccbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddSSSAAAXXXooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooXXXAAASSSdddddd.ddd-dddSSSAAA[[[uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu[[[AAASSSdddddd.ddd-dddSSSAAA[[[vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv[[[AAASSSdddddd.ddd-eeeSSSBBB\\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\\\BBBSSSeeeddd.ddd-dddSSSAAA\\\wwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwwwwxxxwwwwwwwwwwwwwwwwwwwwwwwwxxxwww\\\AAASSSdddddd.ddd-dddSSSAAA]]]xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx]]]AAASSSdddddd.ddd-dddSSSAAA]]]yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy]]]AAASSSdddddd.ddd-dddSSSAAA^^^{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{^^^AAASSSdddddd.ddd-dddSSSAAA___}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}___AAASSSdddddd.ddd-dddSSSAAA``````AAASSSdddddd.ddd-dddSSSAAAaaaaaaAAASSSdddddd.ddd-dddSSSAAAbbbbbbAAASSSdddddd.ddd-eeeSSSBBBccccccBBBSSSeeeddd.ddd-dddSSSAAAddddddAAASSSdddddd.ddd-dddSSSAAAeeeeeeAAASSSdddddd.ddd-dddSSSAAAggggggAAASSSdddddd.ddd-dddSSSAAAhhhhhhAAASSSdddddd.ddd-dddSSSAAAjjjjjjAAASSSdddddd.ddd-dddSSSAAAkkkkkkAAASSSdddddd.ddd-dddSSSAAAmmmmmmAAASSSdddddd.ddd-dddSSSAAAnnnnnnAAASSSdddddd.ddd-eeeSSSBBBppppppBBBSSSeeeddd.ddd-dddSSSAAArrrrrrAAASSSdddddd.ddd-dddSSSAAAttttttAAASSSdddddd.ddd-dddSSSAAAvvvvvvAAASSSdddddd.ddd-dddSSSAAAxxxxxxAAASSSdddddd.ddd-dddSSSAAAzzzzzzAAASSSdddddd.ddd-dddSSSAAA||||||AAASSSdddddd.ddd-dddSSSAAAhhhhhhAAASSSdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-eeeJJJ&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&JJJeeeddd.ddd-dddJJJ&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&JJJdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddSSSAAAUUUhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhUUUAAASSSdddddd.ddd-dddSSSAAA[[[uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu[[[AAASSSdddddd.ddd-dddSSSAAA[[[vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv[[[AAASSSdddddd.ddd-dddSSSAAA\\\vvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvvvvwwwvvvvvvvvvvvvvvvvvvvvvvvvwwwvvv\\\AAASSSdddddd.ddd-dddSSSAAA\\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\\\AAASSSdddddd.ddd-dddSSSAAA\\\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\\\AAASSSdddddd.ddd-dddSSSAAA]]]yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy]]]AAASSSdddddd.ddd-eeeSSSBBB]]]zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz]]]BBBSSSeeeddd.ddd-dddSSSAAA^^^||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||^^^AAASSSdddddd.ddd-dddSSSAAA___~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~___AAASSSdddddd.ddd-dddSSSAAA``````AAASSSdddddd.ddd-dddSSSAAAaaaaaaAAASSSdddddd.ddd-dddSSSAAAbbbbbbAAASSSdddddd.ddd-dddSSSAAAccccccAAASSSdddddd.ddd-dddSSSAAAeeeeeeAAASSSdddddd.ddd-dddSSSAAAffffffAAASSSdddddd.ddd-eeeSSSBBBhhhhhhBBBSSSeeeddd.ddd-dddSSSAAAiiiiiiAAASSSdddddd.ddd-dddSSSAAAkkkkkkAAASSSdddddd.ddd-dddSSSAAAmmmmmmAAASSSdddddd.ddd-dddSSSAAAnnnnnnAAASSSdddddd.ddd-dddSSSAAAppppppAAASSSdddddd.ddd-dddSSSAAArrrrrrAAASSSdddddd.ddd-dddSSSAAAttttttAAASSSdddddd.ddd-dddSSSAAAvvvvvvAAASSSdddddd.ddd-eeeSSSBBBxxxxxxBBBSSSeeeddd.ddd-dddSSSAAAzzzzzzAAASSSdddddd.ddd-dddSSSAAA||||||AAASSSdddddd.ddd-dddSSSAAAppppppAAASSSdddddd.ddd-dddSSSAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAAAAAAAAAAAAAAAAABBBAAAAAAAAASSSdddddd.ddd-dddcccbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccdddddd.ddd"dddddddddddddddeeeddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddddddddddddeeeddddddddddddddddddddddddeeedddddddddddddddddd#(@ B^^^}eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd~^^^}eeeSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSeeeddd~^^^}eeeBBBGGGYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvMMMBBBeeeddd~^^^}eeeBBBMMMwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwMMMBBBeeeddd~^^^}eeeBBBMMMxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxMMMBBBeeeddd~^^^}eeeBBBMMMyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyMMMBBBeeeddd~^^^}eeeBBBNNNzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzNNNBBBeeeddd~^^^}eeeBBBNNN||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||NNNBBBeeeddd~^^^}eeeBBBNNN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~NNNBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBQQQQQQBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBTTTTTTBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBVVVVVVBBBeeeddd~^^^}eeeBBBWWWWWWBBBeeeddd~^^^}eeeBBBXXXXXXBBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBZZZZZZBBBeeeddd~^^^}eeeBBB[[[[[[BBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeddd~^^^}eee---))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---eeeddd~^^^}eee---))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---eeeddd~^^^}eeeBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuMMMBBBeeeddd~^^^}eeeBBBMMMvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvMMMBBBeeeddd~^^^}eeeBBBMMMwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwMMMBBBeeeddd~^^^}eeeBBBMMMxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxMMMBBBeeeddd~^^^}eeeBBBMMMyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyMMMBBBeeeddd~^^^}eeeBBBNNN{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{NNNBBBeeeddd~^^^}eeeBBBNNN}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}NNNBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBOOOOOOBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBPPPPPPBBBeeeddd~^^^}eeeBBBQQQQQQBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBRRRRRRBBBeeeddd~^^^}eeeBBBSSSSSSBBBeeeddd~^^^}eeeBBBTTTTTTBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBUUUUUUBBBeeeddd~^^^}eeeBBBVVVVVVBBBeeeddd~^^^}eeeBBBWWWWWWBBBeeeddd~^^^}eeeBBBXXXXXXBBBeeeddd~^^^}eeeBBBYYYYYYBBBeeeddd~^^^}eeeBBBZZZZZZBBBeeeddd~^^^}eeeBBB[[[[[[BBBeeeddd~^^^}eeeBBBKKKmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmKKKBBBeeeddd~^^^}eeeSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSeeeddd~^^^}eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeddd~(0` %%%%SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS)))---dddWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWddd222---eeeBBBVVV``````````````````````````````````````````````````````````````````````````````VVVBBBeee222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---dddBBBdddvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvdddBBBddd222---eeeBBBeeexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxeeeBBBeee222---dddBBBfffyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyfffBBBddd222---dddBBBhhh{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{hhhBBBddd222---eeeBBBjjj~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~jjjBBBeee222---dddBBBllllllBBBddd222---eeeBBBnnnnnnBBBeee222---dddBBBppppppBBBddd222---dddBBBssssssBBBddd222---dddBBBvvvvvvBBBddd222---eeeBBByyyyyyBBBeee222---dddBBB||||||BBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---ddd111////////////////////////////////////////////////////////////////////////////////////111ddd222---eee111////////////////////////////////////////////////////////////////////////////////////111eee222---dddBBBSSS[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[SSSBBBddd222---dddBBBddduuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuudddBBBddd222---eeeBBBdddvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvdddBBBeee222---dddBBBeeexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxeeeBBBddd222---dddBBBfffyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyfffBBBddd222---eeeBBBhhh{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{hhhBBBeee222---dddBBBjjj~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~jjjBBBddd222---eeeBBBllllllBBBeee222---dddBBBnnnnnnBBBddd222---dddBBBppppppBBBddd222---eeeBBBssssssBBBeee222---dddBBBvvvvvvBBBddd222---dddBBByyyyyyBBBddd222---eeeBBB||||||BBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBBBBeee222---dddBBBBBBddd222---dddBBBBBBddd222---eeeBBBkkkkkkBBBeee222---dddWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWddd222'''XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+++( @ aaa\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\dddaaaFFFggggggggggggggggggggggggggggggggggggggggggggggggggggggFFFdddaaaGGGvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvGGGdddaaaHHHxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxHHHdddaaaHHH{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{HHHdddaaaHHHHHHdddaaaIIIIIIdddaaaIIIIIIdddaaaJJJJJJdddaaaKKKKKKdddaaaLLLLLLdddaaaMMMMMMdddaaaNNNNNNdddaaaNNNNNNdddaaa666555555555555555555555555555555555555555555555555555555666dddaaa666555555555555555555555555555555555555555555555555555555666dddaaaGGGuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuGGGdddaaaGGGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGGGdddaaaHHHyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyHHHdddaaaHHH||||||||||||||||||||||||||||||HHHdddaaaHHHHHHdddaaaIIIIIIdddaaaJJJJJJdddaaaJJJJJJdddaaaKKKKKKdddaaaLLLLLLdddaaaMMMMMMdddaaaNNNNNNdddaaaJJJJJJdddaaa\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ddd(0 ` )))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))?)))? YYYYYY\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\YYYYYYSSSmmmvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvmmmSSSSSSoooxxxxxxxxxxxxxxxxxxoooSSSSSSsss}}}}}}}}}}}}}}}}}}sssSSSSSSxxxxxxSSSSSS~~~~~~SSSSSSSSSSSSSSSSSSSSSSSSSSSOOONNNRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNNNOOOOOOCCCEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEECCCOOOSSSmmmvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvmmmSSSSSSoooxxxxxxxxxxxxxxxxxxoooSSSSSSrrr||||||||||||||||||rrrSSSSSSxxxxxxSSSSSS}}}}}}SSSSSSSSSSSSSSSSSSSSSSSSSSSYYYfffllllllllllllllllllllllllllllllllllllfffYYY ,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,?,,,? (  @/999999999999999999999999999999/000_[[[oooooooooooooooooooooooo[[[222_000_```yyyyyyyyyyyy```222_000_eeeeee222_000_kkkkkk222_000_ssssss222_000_||||||222_000_[[[tttttttttttttttttttttttt[[[222_000_JJJUUUUUUUUUUUUUUUUUUUUUUUUJJJ222_000_```xxxxxxxxxxxx```222_000_ccc~~~~~~~~~~~~ccc222_000_hhhhhh222_000_pppppp222_000_yyyyyy222_000_xxxxxx222_/::::::::::::::::::::::::::::::/ lt~h( @ЈXdsx~uynsXbLZnvR[|{ΡըʥIΣ͡lkfdRXU.<}֭۸[̄Лoo`^Y\͚٤о~wdcEG{xhRSpsppfEkfD⽶̛{Mzi^X<@C(# KB>RID@DFEYgGFGSOLjifsssRONlmmdcelll㼿ĩȺШ޼ʯܺܶЁЁ/7;ҁlt  +m (m`` uHH T @@ (B_00 %A    hPNG  IHDR\rf pHYsod IDATxy%U%_{w"[R$!!#?d |cxdh>6ƘHт@-ZR&^UյuY;D܈sO/3+3:Ow֋qq)))))))))))))))))))qEw(4M)Btybp|ߔMوgmd=ȟ6A)׳h$`kYE͵MٔM ##rlM ~7 'lʦldyfMd=O0 Dn <)Q 8$}M,"?`'RJIJ?"׬tH)eR,ԩ ʳ뇐n ˳! 3ˏ<_:V*c6gr|jXkSk~O4OEZ֛ԝ.ǬŲ]m4)݋hai%öpXXXH `̎Q$ױǞ2^v\ոeb@cJeגRFJc"\Yؑx $cE#w X@tzuaSWV<}wS!d`ĽAԯ7$оVVӅiKSTj:oG^Qjv^vam_zɫ TqaMv&R7/9V71־e]Zqɿ 5]v;HA*A)/xJ +\H@׺qzbՉ.XOl'J#/N^ h$T5b#8U.K2wl{z S 9 ӗ\(j_51oO˧Ռe%v5QǺY !N:Fi. PaNyEn9a-q( _RjZV7Y`Ԓ:>1nhk|\G@dϏ5-o=I/#@s5VN*˞+f&Ȇ!Q*Q+xDFStx?Z6kHJr$Tg݆7e] ^.qʄίi Mu*1s^4iee"c˚3q]bYk [0$Yduq7 ic//(-h0v ~`i et`].֖G.Z*+@J/uW.:mg]Yp ~8ɟ܃n_7ۅWrzXkriw,AUWkoBRIz\#k6,R-Kx'Ich5,,(F}&b^a0ۭ3M}y9}14|06e7/TnA暳~CsZM)ؒ-kw S(?skx8lSHwyƻ0ieصc ^wMfYz* $aK%J8*U5b:+% S|^ )$jZKZxF>f- y2KɽVDQ.ϛ7L0utZ3SbĦMthg$gx`X%te0_o._> fX @4icʈ@~b)a .2PKUֹiٹ;mŖiP ["|q^^7؃-ؿgԦKb.$:F.ʞ3P@3_^ꛨf2ـn<R""hL@7HQN6&摬biKTe2~-ɳN/- lO‘@k <,.SGkaA</rq1mFʲZ)5@ ' mSv,Sy:ͧɣ :,(D)m7 6*4 r("k{ v{@E4 8@(.d9{6Hn 8rd>z#/yN.r˛AtϹpVW6/F-o)L8g\3۲$-r9Sf,zkZlwn@Nbt߯?5?Z&U`@Ac:.ɥ%D[x5k~<.P~' -m=Ocǘ' 9w9ҜaU3LtΙ T6a V^LXϪKqqi9ſ=_"I)?g?{wafj"'TZa;o=k{vnŞ[q$wqڭ0~fq=Ċ&,$^i9&6=.!')D`A\u=s dDrI`t4꓿)+o:R$3(' Y[`r +`=ۭgo$f&t`NaX/3S=6Gcn7IB9Iâ$`k-&Z@[q\j]cfj3~(3O}zn۶"y[(wl@4fg봭{6=;Z~X+c,&{=lB44]}mK@(̴GD4=\V`7ҁ$ \p|w]M3iߗ,XY$Ns 05͞yqiNOKfp<.]TvS [gK'n=ff&1q9l.¹Ѡ:kJOk!5t`.U|hQ} :T$(4;=RvږrWE;y!%!/\NZҹ\mLӺ_  ' {Ů'mO<})/㥓g#m}MMZ̫pbyδ%!.ҐjD`s!lVjhO>`H 1dpl R64:V0,`}г[&lORZ׉`RH'?%[RGr?uɹ=ʓ+Acl@2l ps6xDPbY?0`'3DW%:P$rrnk /J=BkvN3e&M4`@zyr<^m=(қ6a+# k^@c oKbBLul7גYu~-?A#v+#e폳q?˥/+>}V38փ8t}czrkw)hX*.~q9@EgUpN H|!ւJ&=;cnk u EX}ZpT+Y?g@mh'&U cq3M3EIű,5'(F=zBedpvl?0Ƨ&kv'Ѫ45-/ z*,jzG;{!<4r'd= vZn=]p7bۖtZ!~=h!{5ĭ77 {wfC)w>o&"msuw`Ϯx7c3hM@?d|%%ϴgie ŀfX@@^54xD_Ѹ@iHi+ &mu\ i LW3`gtX'DE-OAi }$8 5a֎p5M!Ξǫ]J0"q/?tVG8~|/C8)kSi pI`v0(79AT =!Y |ym(?D@B@sFp/F͵~~1'ЃžUQՅB}O6 q S|`0?XPZ oK@ۇJJVh&i||3h(~FB/_gV2[N);f'i}M?x]1B5~VN u}AXV#9B]W 䕟$ Р`~̱dg>L``}fX(3'hz^F5[vp.p뜣*28yե9A'r{4.YE ~9pw@j ׈o@s_-Zz`y ~L> $@(XvyBҾk4>gH:Ag`+]u餕4(hZ b[tC[5]vZzJӸFgGsFsHEp'*Dc|ZAUBKf@c 6X%+&`eeܷ/hsM f52|)tkGP8T5`.ZbȃM-.%2[e,(Г(Bz*9+QWfX.淭ޢϏe'9#w ?zO DHž)JV ߆C)Fj[@9Im_Gr`^gSzn(%<]J(YX@n#Ě$+~^`1wB{IIBE}T4E^[P pЗM gN<`Y(B ץ 5ύBj rzr뀐s`KYlN2L͐@hԷ+d*qXbPp3K@~FejG%j ڃ5 q745 Vޕ*ۺwH:}i7 #V@7bgEҬ@UX]A9PV$2,0sK,?NEc=:9ͫY_n]s%źUFed@Ӿ*m4FCZO 2^$eh~u3^(L2B i}Wh;]R2Nӟ;ֵ4e~cu N:#`Yڪi~wV|W_xc\,;HV6+P 8MY|I,HNЯBoH~lk2gSޱ$!0*!}pu*Xw4nq:rZ^tO[ka>')-DeILfڕNJH]ʟkY6{ 2ڌ_pˊM?JZdr6о틢(+ Ar>K.K3p`F#YP10 Ho|4P(pi%Ɛׂ\~+I._ܜHhߛA`K1 w@$ҥj0,7`5`[9- "?`kIsFoFk O8L]TRWwh4.!3b5˦MNX IDAT48scsLs?9qgN@VF+pP ! t*,PtJor? ;-)Ev6J0C.R}rYL.-L(&C֘yU+4s0@5Ѿ2 )L)Cc/c@N?ip܏N8/LytZkiC4XJ2ȟ%?Nv4q!x߾֥QAIh `Ģ,Mn)Z.EinkkF|H *~qGxZiJT %O^])+Y!s4)4$kg<6`kPZ] `U b>W'}E^.IqDjtoR]uk"MGdQmJ@ H3OҢ@asyzh[\ -etp%}JGUu֕ =QGH.NOj2K~nc)D:9x}<$/:x]6Hٽr) Ѝ#yw26%FReJ@o 6OG˩2A^]&t=)E@,+'8EYS&$(0s/6`@ ڏŦF|N$|6 JMˤez] \D:Z?tҖeqk]G\[҅47`sn+rqoAȷ$u% O 5]n$]x}e|&4 (4Z b D- Zjk:F5oWIStkzjs4Կ*ӛ34ڿ~T#]L W=@~YׄQbՀB Vu).t'awiC0<݁x0 Ck>0Kh ERȸV5_MEz1@Zą_ZCZ%FdRS Hy0(d!gryI:Vm)_2o;uh)2tik9 J lZr'EĤ3푞' %BMe%R|H| NRs'/ _O?EˤԼkrUl^{iy-}&Pyܼmi{rx-@84b4yӔEu`_` >:8K̐}w[ \;S;w8#^I,z0wL^Gc$(KVm}>?"#[9ݐt@5>O}qD2sS*euVJTqʯǹ>N^ɿցzq }24K-Oʨ2b+ ڹd5Zlt}5qP*SZ˴+%WO|[W(>GV -"qEZZss]E&^k%ͮ`mWlnvɆ%JGw%h@@|RtKSlޤe溹mZzjˆ$,5yPDt18.6 0 L;88JŬflZŦl8a@28B!.6"ѸTCriyn_//k1ݸĔK;UVGVPm@ jHGL6EuũIL ?Zz̤5K[#=w ”_ f=tnߔ1 ʱpggpgpNV ;]w{pa5V[{-N4\gR_rmM56 U=()F56c&/tRZz[j[ZJ4R Μ§g},\ր1b1^ <>o^z[βutsԭu)Z@O,}nZ,"$ͨ~;`Og0Qk¤1C(?q11Q cWUPuzIFةKAHIFM>=88֥.,~-(ݛ) #^BOH?Q<1DYAq$}B @]?^i832F;5X']JSC `y)H8m7_X]-Gtswïc0ɳtbC#r'" JHb</?_MLMMI?1>4kNJ$S3ݵF.EG2g";R EQ\6QwhSS">?bb`2LL:vt 5tLFQiV JFh/|[!^y8G:y.E i \sH592`[EZxxh4yhVnS=Z[%*" L Z:g~, Z#A@1ٺjڴLwh}WЁJIDNt glj6NMts\x բ(JKϙXkC/,&A @ px=6Ϝ+a1am ZΗJKKъT:eA9[&6'g({kSŴ)n&.ұ^y@AރFilj!EL k!Hk GQ}lz g'Ncu8M+R_b%a ~O>x{3[Y 6} YYInL9MeJqIYlB@ThTvFϬdPJe;։ض `tG1)8F*NI"-ƬMPO-SG(1 iZzz&PJҫZci"(,a)`aЇpWz=|C(U|!+ *.s14% UOӄE@@Z 9 GF_kd +eLb dӑ։>amN>6 L'Fxlhж-0aܝm#Th{=cGC0aJt<(X h{(q8Sطe7 ;00ExE|3G1F=xи#z"za([+=O~,h).V a\bQy6-A8HB81L5v6}(,5I@Ic 0ٞ/5VE"KKE,Cff@=?4 &8O+eY(OI;v|arf AJ,!FEϟg ~^aN!b,.-g17;_o@ kIBYeuB A ]羹LTZd-(O4G܏&V ~$~&)טt] n%) }V FX (H ;`P%CPJJh:p8 yJ0N&;-Zhck, FXF4fzyu۰kNN~ Pq5#/`xme daEre._c7O5ug㊏>cP&VcתOo-\[ hTp0? z{ &LMRKlOCo!tZah+8Xaj5i_hE% @+ #{Fi,cofo;o/@-xVA{A M>.T#z4hyt؝;Q(`k FC\xgNL `cL)J/$x\I:_%ٸ]ia\})[zٟl , 8r*leb":Fǘh( t ԔA#;u7LϴX75,Gc`pl®{КFB-(χ4 =x?h ; Z`8q 2dtɗgQ.QELLqnqe੐K\㔓qHZJ0>ZxܯfhԭbR'pDˮ ѭ LAdZ Q}j}_('p( Vf՛ C{~FAt{4/'MCA!EJC#Bx4pq} gΜ;`|&|~@+KgʾVx6:޲hKL  #ǒǂ<ݏx<z d7?o?F; .y(=:޻1e;s[(?LχV u<'n%+@%kUڇiZ *- g0quoVl#8qq0p_K)x7_V5# |y   qC~*Q){t@U&{><|Ϸݩjw?hGQ*FR;#BtzJc >j23 ɏ&_ X E-TV5íBWKuw'&0==s.⮛f? gyVF+M*,}B*td`b~iv]]ybҸ}V'2&m &,5(NМYoME> 2W b!TiIx}=̟fgt U[@ {@^1<χ l%y?z*Q3?:)~Nɞ׆<Zy<~$Nuh "gJ!ie=Q`R >J$PWX@/\2߫W]~;{ nLŚf?@W:N,E0W9XƘ ѨH}#OO _Yz3N l_@)+ YeitXh!e1>e}bI4iV#MJx-=l29l HqJ@Y%,@(6@# uo@{Z Icg5$/[RVi&hD#`bqq^li/! j^s[kfzʴru[18w od5J# uW)``.2QR Z#|}3Tg:]ew}\H@6ǥS HzH\)e2lӑOK?pM ٸO^B9H)M:*IkRxͯKvD̄!(/0mc!k<@L%=V-7C8M^ĢOh_!lXյ(v`=%aUc.q\2Ϗy>NXBNmǝi,>GRLiZ:S@'[+Rt4d`ͧ"|0s{%@:+='mXO*sU.kl^9M[BG2xU~w-c5Jy>A~.]>?l%,FOCYn+ E0$:A|<+xS|[!󗀲кR2~H2; [HM !|s &{`KY:~}UR˾줶Y'F:3p388ҿdAO'(W*0mvQR7q!tP)(~`vzYEwZN|>o7ur)RAKIը^WQP6"]ښr*e5P3Mo K#8Fz'@ة4XR"Aԏs"1Tj Ծa,wf@aM%`zK@ eiKZ͆4T ͵֋&bpɿȶ:]5 IDAT?*Ԉ2bF4hft>#q$xj+`6 w]+gyť@ܼNc*gje~''.>E#VG@9eA04R?[:ׂ7%~eO54 Iis,Oo5;^}      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~+QǕհ6ѝۍ1Emt` p&bE?:q G@:`\9\@#ArAZk-".;#b-ej5&,=aQg?L*KRJCN fzV5SPk0?pq=]vՍs_+]4a#JNf]} fM۠Z=  P&yNw;gV)Mg~/F jHy>_u..IGk2XNJ3ծƳY4F~16H#c=C>Y>v Ad?QDI б|$K @tN6!ݽwd旜&??WdΕi sp?n%7iӭ)ijCY}ws_`p:G_i V$";O4s(a4b8"qtp2VR/_#a F*"҃ҺekʖiRsLC-]I~O *WlGXZ;{ݍ/~] @Y/_r 0?kTRJ]]J+6U>o[1r)k;k[gJP&x:4bGǏ:2bvn߁~qaE6hn^6uihaG` Aa֭L5:KgM?XBB.0)0'u0 eY+\L|)S7i>N*[|IǿWY.&'?o}5#vBf%@3@pa%CyAe E ǞSgp۱k6LNUuޯ˞k>Z7.̟y}l۶m] E.@58\Zs]m]mD\A֕i[!f&&1!'!-{_#4Z.^d(0>3/n]0;3v@']]N4sN>z Щ?2F#ؾ[l{ǯ&|}:.ᾛdDgϽ\ @J_^ ~eSWhChDOannX#c # xP>4S<t:u:Mti!`^ Z.`\R.f~E8x Ǐ8_<f82SI̓[:eSK_:s}r˪KP&O>%,hZ-~F!Z)hCyi]K' (tVF]xΜ+СC ]|kjСChɟ_ԧ?(.! ׶ @`7ǵQ뜔.`\D`>yUYURe IrIѣCc积>xJA?*)^ B_ZB?@}FC\>j!ܰ8q{)$ujaPno|#.?g~ʧߘ=5Si,'ye0"rɥ<%:gETBhn=P$?%˃R|%@O/>) 85%FGMM[$7ܧi2ݲ?ק7M7݄cGƿ_cg\pwHJ0CYv& +˜_ ۔SVf5|Ç㮻ē[ ."h2snl)ѧ?c,\gqvV玝xS89F?>11 A๧//1o~7_H`P wf9TӬfTN+Sؾ}]R[ޏo[ZBg2'[%nn7j?KKK/|]-`e. 5GE#w߽bѠ>[ FNaZ[>+^$ B|Rҕyr }ړGQz oKӍc|y9>5Msss0==ssg""'>_='H~u%FY+]%}W _֭:A}x\=,VL)X>_߃(0ɳE7Ѹ~333طo` їa]vaz/-a={qӟ̃?H4y$߬k*ZP7Yq8u qbbbؽ{W!t|OC:]n1&/~7U$A~c\'P[+i R'JK'3`jj^q'&&ps=vw5'=K&''BOfp勸ގPҾvܙ68ŋNAzA0 jJf>`0p8DLVY<_>Q$f?k, H4}W*\UyRxr>gOcffvDFnx'7Y=ue-8s<&f[KW/b{މ[vF0Dõ+8+8]>8A(8̈C 4l_Zʘ]Y*N=521n`G Fgnt:]t_F+gvvqZm[]߃|W_y _p ࣛŸ̈OF'ېu xgk@?0BǧF~ k5#ip6䥸 edioR G_ oWG['i?a]?A)N8>WhE; ?@apK>PwGO>$ݴDҶ& 4~l8r.]W4$vڅVNu-m |#vSO=w'=پ Ah8? |?^U'MթZӯ|+ߺa@z|uָb 7,nE h^I_pUfRFLN{#8u ffe,:&&&RMD >(x+uVu]xǰwެmRy'^mcz z01 KGC\^؊_+3(ܪ?<ϝ;}?sǑr ?0piqOcWYy \ҠG @2W9\ Jpih5裏Bkjv;t:ojyy -OMݝNO?K.avvƀ_"^瀙wgt<7?cf9|Ƿ}۷e퐖qo3ӭ/_t>GcpF\(T|TxLûmxw)>(v7<ñcGM`jj vn'd7rˤ,}СCxgq+3 _nJyXp KFy{6{9| _[B9Zk Cq~W"1W Xm|s &9ןT5s=kC_,.)}zJaaav@033kZohD_2nmyݻq9,--`vY" guzz13rkرc7Ø<:$~3? ~50)_frQ@E dn *ÖtM? u o pS ['^9Q'NZés !zZ-}1NM/ V 뻿> H4? #˟vJ)h<$P頡A9I\Ӏ=y^fxx4WR):u{v"ssNS;QUm7ˆ%qpO-6v: piƥ˗137X VBj0\mX6 Ο|_4DYҊF3j /22OsL,53%+jK p_XkŐ)Zk>}[nEb~j2@ 9^$ <2AaA|v|ؽgZʬ&m,--]'9<䩾@z7 &f  JˍٮR mr~upI߬Ku:mk8fɁ&s}rn~ouLnÏŷ}vIJ̐Qjaii{[Ǐu ~am@2`$BlLxLx~*0vi0ɼR3No5c߿|NLL`qq &R[ĥ}D'O8D! @!8v K콌k㸮_3=rɐHp0VtH r)}Y F#WbGb#`DXAqlJ ,4}q{ݕꮩ}n`0=5=3}NݺU^/ UUe>?/eYK~`Dm->ٱJϷ+;/V|nb^bnM994MCƨHl#zuKx 7hiБ^֏a`|VLCntۆٯ*j [|//,BYH$?0dPdHtsw*NJMG$<;h1-±cGiy SpATM7f 5ELH~⹊1n|O_\\\ɇ/Yr`(I70A>}P6<(vl_7J:t,klE|2+Ͳ^qs=_u4u((*TU4gfS4C0|$?vϯigϞU˒yE @J*mgW)@1%zA4MzzѢve?$q5{ tMhPUՠ \1|C,_ir[9M۶Y& jnj׍P;V$hQTfiŞQQTeЪ$AxƠC|$X2ѹ mtL$]h4z^i&Q}P @XgJvtܖ9}];,GP$E;Wy{eLf IDAT~h@T@aSfi?3<lzS4QuugN#X9-! UBe1|rM.{ȼge a:k-NhF k ܺ $/+boFFGygyUa-+ `XuFdE5늈KDAֻW"Q 'n I@团@}W?E`Ph;FV(\׵f|ЙÏZC6+ f0 xAV EQ~@2eaԢϣhX͑E?!4S{\u,]#Jb($䪙" a}tF~[>;;ջ}e{%$ \-Lv x4JKZx”MS{!DAw8'h[:ST Z!fA1M_lkkk+O}{ؘ_?[ UUEsb ogpӚez2ӔE EB?a+n!MMaXwB(̈́M5l\_J~К,///OYfUz=Vߡ'?pZ#G`ffmŏ~ߘ9:OSYOKB2~F8y=eϹ:#(x4}&ccc %giwg|y/*)ɟB Ã)O1PUcttǏj OQ͕DYVӅ5#"C$Iu|t{S33t/g4eY'uͳg~+ Y|PkH(\n47x##x05DG@(Zt3ł9؂$qhJAD1L}<~M3ÒAPJ~Gs;n%E*ئ'0 G4166GՕ{BL㓟MB}H֖ gfgQ/a{H j>Bgo.<(JCF=J- ($4޵k>3WL~V@Rv-P|nUD!ɜmlò,X ea?1==SđRdWf~|zxT a@B} $N#XNuqرc666_7 !` :϶bNw(4 99q uv[-ض ՆnᝫW1@tRb&ұI4_p-\1X5g` B; htCG$h6PNVA4y_{iYSx6 ;Th×4 zqjDQ0C{qvVy>G9gέ[QH4^TUEJ457h0t#-KFC}ꚅ!꺏AS4ht݃a,a}QlcO䕿?_@FIo{E?44:G!qh_@MQq==38FA BDQ}}l.^,ɞ'@6U??z3$$IKEn $K/(8j׍^znnp2iEs( cOשi];2AC l_~`HǍ?'t[[i?qE {D6Ԏ-B><#躆~m2ygA APUz {FQNu],,,,/_% ɿ-ߌ@l^DڦPR?&''1==}0{EZNyl!-ʨBvȾUA$IP7MƩS;ܹs]ڻ,>:_?-"P_彝S` M ??p{$2_1 >ԉ,FI?8-=q[b0 ${I.I?D6 H{4AIENDB`( 444;;; !!! $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ ### ### ### ### ### ### ### """ """ """ !!! (((222+++GGG  #$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$#!!!!???555>>> "@V\^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^]ZRD0555>>>DDD9___K, CCCHHHG667{7 EEE777NNNKqqq? GGG888WWWLD! FFF888```LG" EEE999```LI# JJK<<=```LM%989???```L T&:::BAB```LmD)DY"f,e+T k8''(d(<<<BBC```L`N@ Yi'g'Tl9...i)<<<CCD```Lzo@ Zl*k)VxM0222o+<<=DDE__`L? [o,n+Vl[777s,===EEE__`Lýy<\r.q-Vw<<=y.==>EEE___Lu<\t/t/TBBB|0===DDE___LzH&[v1v1N===}1<<<CCC___LlVXv0v1Q'===4;;;AAB^^^LTt/s/lNAAB5:::@@A^^^LKn+l*zCCD7 ???^^^LL#f$`#EEE8 >>>^^^LmS\R"FFG9 >>>^^^LP]:HHI: ==>^^^Lw;iWIIJ9 ==>^^^LW:ULKKL8778===___LSv0h&yL+@@A6667<<=___L{ZXQʼ555~4667;;<___Lz},,,w1556;;<```L&&&o/555;;;___L!!"i,555;;;___Lb)555;;;___L]&JJJ;;;^^^LxX$ III^^^LuwojmnryI)))EEE^^^LeKhhls7PPP^^^LIfjm{==>q!+++BBB^^^Llu0 KKK^^^L;UUU^^^LD^^^___LIeee___LKiii___LLlll___LLmmm___LLmmm___LLnnn^^^LvUg}Lnnn^^^LLa'6Lnno^^^LrKOWLppp___LhkqXy 05=Lqqq___Lnt| F^.Eh49ALqqr___L' E_{b % NU`Lqqr___L$/ ** " ""46G`c{X}#9 v}Lqqq^^^L#+8  ! % % % & ( ( % " &,D!4Q*D  #  &/<Lppp^^^LV]g% ! ! ! ! ! ! ! # ( +,, +-($3GP]Lppp^^^L* %&% % % % % % % % % % %&#3 (8Lppp^^^Lu{/..---.--.-../+;LLppp^^^Lx'=$9!6 4 44444 4!6%;VbtLppp^^^LYey 0I-E*C(A(?(@(@*B,EhsLqqq___L^l8Je+=Z3E`BRlLrrr___LLsss___LLsss___LLttt___LLttt^^^LLttt^^^LLttt^^^LLttt^^^LLttt^^^LLttt^^^LLttt___LLttt___LLttt___LLttt```LLttt```LLttt```LLttt```LLttt```LLttt```LLttt```LLttt```LLttt```LLttt```LLttt_^^LLsrrZYXLLmkjUSRLLgdbQNKLLa]ZLHEL~xgyhyizj{j{k|l|l}m~noprstuvwxyz{|}~~}|{zyxwvutsrpo~n}m|l|l{k{jzjyiyhxgxg~L[VRGC?L|yhyizizj{k|k|l}m~nopqrtuvwxyz{|}~~}|{zyxwvutrqpo~n}m|l|k{kzjziyiyhxg{LUOJC=8L|yhzizj{j{k|l}m}m~opqrstuwxyz{|}~~}|{zyxwvtsrqp~o}m}m|l{k{jzjziyhxg{LPHC>72L}yizizj{k|k|l}m~noprstuvwyz{|}~~}|{zywvutsrpo~n}m|l|k{kzjziyiyh|LJB;;4-L}yizj{j{k|l}m}mopqrtuvwxy{|}~~}|{yxwvutrqpo}m}m|l{k{jzjziyh|LE=5;4-L~zizj{k|k|l}m~noqrstvwxyz{}~~}{zyxwvtsrqo~n}m|l|k{kzjziyh|LF=5;4.L~zj{j{k|l}m}mopqstuvwyz{|}}|{zywvutsqpo~n}m|l{k{jzjyi}LF=5;4.L~zj{k|k|l}m~noqrstvwxy{|}~xttv{|l|k{kzjzi}LF=5;4.L{j{k|l}l}mopqstuvxyz{|~~|{yuuqp}m}l|l{k{jzi}LF=5;4.L{j{k|l}m~noqrstvwxy{|}}}{yywvttrqp~n}m|l{k{jzj~LF=6;4.L{k|l|l}m~npqrtuvwyz{}~zvuwx}m|l|l{kzj~LF=6;4.L{k|l}m~nopqstuwxy{|}ƻ÷{w}sst~n}m|l{k{j~LF>6;4.L{k|l}m~noqrsuvwyz{|~}{wwsr~o~n}m|l{k{jLF>6;4.L|k|l}m~npqrtuvxyz|}~~}|zyxvutrqp~n}m|l|k{kLF>6;4.L|l}l}mopqstuwxy{|}µõööööõµzxƼwzŻ~o}m}l|l{kLF>6;4/L|l}m~noprstvwyz{}~õöķƷƸƸƸƸƷķöõǿ¶{zyxtspo~n}m|l{kLF>6;4/L|l}m~noqrsuvxyz|}~µöķƸǹȹȺɺɺȺȹǹƸķöµ}|zyxvusrqo~n}m|l{kLG>6<4/L|l}m~npqrtuvxy{|}µĶŷǹɺʻʻʼ˼˼ʼʻʻɺǹŷĶµ}yx{p~n}m|l|kLG>6<4/L|l}m~opqstuwxz{|~´öŸȹɺʻ˼˼˼˼˼˼˼˼ʻɺȹŸĶ´~zyutqp~o}m|l|kLG>6<4/L|l}moprstvwxz{}~öŷȹɺʻ˼˼˼˼˼˼˼˼˼˼ʻɺȹŷö~}{zxwvtsrpo}m}l|lLG>6<4/L}m~noprstvwyz{}~µĶƸɺʻ˼˼˼˼˼˼˼˼˼˼˼˼ʻɺƸĶµ~}{zywvtsrpo~n}m|lLG>6<5/L}m~noprsuvwyz|}~õŷȹʻ˼˼˼˼˼˼˼˼˼˼˼˼˼˼ʻȹŷõ~}|zywvusrpo~n}m|lLG>6;4.L}m~noqrsuvxyz|}öƸɺʼ˼˼˼˼˼˼˼˼˼˼˼˼˼˼ʼɺƸö}|zyxvusrqo~n}m|lLE=64.)J}m~noqrsuvxyz|}´ĶǸɺ˼˼˼˼˼˼˼˼˼˼˼˼˼˼˼˼ɺǸĶ´}|zyxvusrqo~n}m|lJ>601+'C}m~noqrtuvxyz|}µķǹʻ˼˼˼˼˼˼˼˼˼˼˼˼˼˼˼˼ʻǹķµ}|{yxvutrqo~n}m|lC:2-/*%1µĶŸƺȻɽ˿¹ĻƼǾǾƽĻ¹˿ɽȼƺŸĶµ171+-(#/?DEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED?/4.)5/*  92,3-(70+:3-<60D<5IA:JA:JA:KB;KC<LC=MD=ME>NE?NF@OG@PHAPHBQICRJDRKESLFSLGTMHUNIUOJVPKWQLXQLXRMYSNYTOZUP[VQ\VR]WS^XT_YU_YU`ZVaZWa[Wb[Wb[Xb[Xb[Xb\Xb\Xb\Xb\Xb\Xb[Xb[Xb[Wb[Wa[W`ZV`ZV_YU^XT]XS]WR\VR[UQZTPYSOYSNXRMWQLWPKVOJUNIUNHTMGSLFSKERJEQJCQIBPHBOGAOF@NF?ME?MD>LD=LC<KB<KB;JA:IA9I@9G?8?82:3.81,5.)???????(` !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   <<<### &&&111)))"BPRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRPH7! 888223...???mVVV>&&&:::222???wW((( <<=999???y,,,i"*** <<=@@@???y555u$''' >>?@@@???y888v& >>?@@@???y@@A' AAA@@@???yeRG`&f*OgXjjj) CCC@@@???y~Ec#j(O~sqqr- DDE@@@???yEe%n+Nxxy. EEF@@@???yBh&s.R!0DDE@@@???yFh'v1`65DDE??????y_>g&x2mM}}}5BBC??????ync#t/x7999??????y[ i(~~<001??????yX&W"~~;000??????y_<_9<///??????yS1P-~~>==>??????y~oa"h&mZyy{9===@@@???ylB\,ssu5<<<@@@???ycce3;;<@@@???y[[]- ;;<@@@???y]]^* ;;<??????yWWW(((( ?????????yxwtw{FFG{ 777??????yTqjm$$%YDDD??????ylu"555??????y0+++??????y:222 :::??????y?555 BBB@@@???yA888 GGG??????yA888 HHI??????yA889 III??????yjA999 JJJ??????y{0AYA999 JJJ??????ydqs$3KA999 JJJ??????yZ]b_z&:x|A::: KKK@@@???yQT[FR # # # " # # $ ' ( (,/gmxA::: KKK??????y"3,++++++,, 1V_lA::: KKK??????y,9N%:"7!6 5 5 6"7(>A::: KKK??????yFTj-=W"3M#3M*:SO\pA::: LLL@@@???yA;;; MMM@@@???yA<<< MMM??????yA<<< MMM??????yA<<< MMM??????yA<<< MMM??????yA<<< MMM??????yA<<< MMM??????yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM@@@???yA<<< MMM=<;???yA987 JHH976???yA432 ECA521631yǽ¸¸ùúĺĻżƽǽȾȿɿºûüĽžƿƿƿƿžļüûºɿȿȾǽƽżĻĺúù¸¸ûA0., @=;1.+,'$y}lyhzizj{k|l}m~oprsuvwy{|}~~}|{ywvusrp~o}m|l{kzjziyhxgvA,)' ;74-)&,($y}myizj{k|k}m~npqstvwyz|}}|zywvtsqp~n}m|l{kzjyixhvA(%! 61.*%! ,($y~mzi{j{k|l}moqrtuwxz{}~~}{zxwutrqo}m|l{kzjziyhwA%  2,()$  ,($y~nzj{k|l}m~nprsuvxz{}~~}{zxvusrp~n}m|l{kzjyiwA$ 1+&)$  ,($ynzj{k|l}moqrtvwy{|~}|{xyuuspq|l{kzjzixA$ 1+&)$! -($yo{j|l}m~nprsuwxz|}{xso|k{jzixA$ 1+&)$! -(%yo{k|l}moqrtvwy{}~~yvyvqx}m|l{kzjxA$ 1+')$! -(%yo{k|l~npqsuvxz|}}zup|l{k{jyA$ 1,')$! -(%yp|k}m~nprtuwy{|~{xro}m|l{kyA$  1,')$! -)%yp|l}moqstvxz{}}{zxvtrqo}m|l{kyA$  1,')$! -)%yp|l~noqsuvxz|~´µööööµ}xwr~n|l{kzA$  1,')$! -)%yq|l~nprsuwy{|~õŷƸǹȹȹǹƸŷõƿȽ{y{xsxp~n|l{kzA$  1,'*$! -)%yq}m~nprtvwy{}öƷȹɺʻʻʻʻɺȹƷö}xs~n}m|kzA$  1,'*%! -)%yq}moqrtvxz|}öƸɺʻʻ˼˼ʻ˼˼ʻɺƸö}ztqo}m|lzA$  1,'*$! -)%yq}moqstvxz|~µŷȹʻ˼ʻ˼˼ʻ˼˼ʻʻȺŷµļ~|zxvtsqo}m|lzA$  1,'*%! -)%yq}moqsuvxz|~öǸʻʻʻʻʻʻʻʻʻʻʻʻǸĶ~|zywusqo}m|lzA$  1,'(#  -(%xq}noqsuwyz|~´ŷȺʻ˼˼ʻ˼˼ʻ˼˼ʻ˼ʼȺŷ´~|zywusqo}n|lz@# /*&# -(%uq~noqsuwyz}µƸɺʻ˼˼ʻ˼˼ʻ˼˼ʻ˼˼ɺƸµ}{ywusqo~n|lz< *%!! -(%g}÷ŹȼʾúżǾȿȿżúʾȼŹ÷}{-&!/9;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:8+3,'1+&  $ &! &! &" '" '# (# ($ )$! )%! )%" *&# *&# +'$ +(% ,(% ,)& -)' -*' -*( .+) /,) /,* 0-* 0-+ 1., 1., 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2/- 2., 1., 1.+ 0-+ /,* /,) .+) .+( -*( -*' ,)& ,(& +(% +'$ *'$ *&# *&" )%" )%! ($! (# '# '# '" &" &! %! $   &!3-(????(H `T::: ,,,""" 777_~~~~~~}}}|||{{{zzzyyywwwmmm///g& 444!!!ooo@:::'''oooQ:::+++oooW;;;+++ooo$$$] ;;;+++ooo`FUf)I??@o <<=+++ooo}kVl*Q#EEEt >>>+++oooVr-a:KKL| >>?+++oooŻVv1y[KKK~ ==>***oooU#v0~LLL ;;;***mmmnJk)KKL+++***mmm{X"MMN**+***nnnU1NNO ---***oooc>c$IIJ 778+++oooɵiG@@@~ 666+++ooo667s 556+++ooo444l 556***ooo112c===***mmmjjz}~M,,, ***mmm`~~ :::***nnn)@@@***ooo3LLL+++ooo6SSS**+ooo6UUU***nnn6UUU***mmmo~6VVV***nnn6AP6WWW+++ooo|d~w (6XXX+++ooo(7NC\"+6XXY***ooo  0!0G"/D+9NQc}Ol(BHS6XXX***mmm&3 " $ # $ & ( ) (-6WWW***mmmz+*)*)**.]ep6WWW***nnn'4J%;#9"8#9*@6XXX+++oooulx6YYY+++ooo6ZZZ+++ooo6ZZZ***nnn6ZZZ***mmm6[[[***nnn6[[[***ooo6[[[+++ooo6[[[+++ooo6[[[+++ooo6[[[+++ooo6[[[+++ooo      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~6[[[+++ooo6[[[+++ooo6ZZZ(('ooo6USR$#"jih6MJH!H?9xhyizj{k}moqsuwx{|~~|{ywusqo}m{kzjyixhs6E@=H@9yhzj{k|l~nprtvxz|~~|zxvtrp~n|l{kzjyhr6=72H@9yi{j|k}moqtvxz|~~|zxvtqo}m|k{jyis670*H@9zi{k|l~npruwy{}|{xvtqp}m{kzit670*H@:zj|k}mortvxz|u|kzjt670*HA:{j|l~npruwy|~|}zwwq|l{ju670+IA:{k|loqsvxz}t|l{ku671+IA:|k}mortvy{}y|~u}m|kv671+IA:|l}npruwz|~öŷŸŸŷöºz|s~n|lv671+IA:|l~nqsuxz}µŷǹɺʻʻɺǹŷµüw~n|lv671+IA:|l~nqsvx{}ŷɺʻ˼˼˼˼ʻɺŷ{~s~n|lv671+IA:}moqtvy{~öȹʻ˼˼˼˼˼˼ʻȹö~{yvtqo}mv671+IA:}moqtvy{~ŷɻ˼ʻ˼˼ʻ˼ʻ˼ɻŷ~{ywtqo}mv66/* IA:}mortwy|~µƸʻ˼˼˼˼˼˼˼˼ʻƸµ~|ywtro}mw0.)$&"VSJBSKCULEVMFWNGXPIZQJ[RL\TM]UO_WQ`XRaZTb\Vc]Xe^Yf`[ga]ic^jd`lfamgbnhcnhdnhdohdohdnhdnhdnhcmgclfajd`ic^gb]f`[e_Yc]Xb\VaZT`XS_WQ^UO\TM[RLZQJXPIWOGVMFULETKCRIBTKD.)$"   !!"" #!$! $" %"!%#!%#!&#"&#"&#"&#"&#"&#"&#!%#!%"!$" $! #!" " !!!   ,&"??(@ B333"=AAAAAAAAAAAAAAAAAAAAAAAAAA@;&444### ???v334)))uuu$666000'777000+,,,000Mg)F 2..///0Mm*Y0 7//0///Ls.rQ;//0 ///Y-v1v>... ///}}}{\p-B### ---///{{{]"D ,,,///}}}T.F ///zb`"C**+ ///qU <))* ///5)))////..////}}}~%<<<///{{{mmmn///|||";;;///~~~.JJJ///2TTT///~~~2VVV///}}}2WWW///}}}oMc2XXX///~~~R\l>Sr2YYY///:?H#3L2ZZZ///Y`h$7G]}OdZlZy 2YYZ///}}} ! # # $ $0#; &%.;2YYY///{{{)2A*)))))$52YYY///}}}Q\n'>$;#9$:,9N2YYY///2ZZZ///2[[[///~~~2\\\///|||2\\\///|||2\\\///~~~2\\\///2\\\0002\\\0002\\\0002\\\0002\\\0002\\\.--2XWW)('2PMK%"!PF>xhzi{k|l~npsuwy{}}{ywusp~n|l{kzixhr2GB? OF>yizj|k}mortvy{}}{yvtro}m|kzjyiq2>83PF>zi{k|l~nqsvxz}}zxvsq~n|l{kzir281,PG?zj|k}mpruwz|~~}r}|kzjs292,PG?{j|l~nqsvx{}}~{qz|l{js292,PG?{k}mortwz|t}m{kt292-PG@|l}mpsvx{}|zyst}m|lt292-QH@|l~nqtvy|~µĶķķĶµĹyv~n|lu292-QH@|lortwz|öǸɺʻʻɺǸöźwo|lu292-QH@}moruxz}öǹʻ˼˼˼˼ʻǹöǼu|o}mu292-QH@}mprux{~Ƹʻ˼˼˼˼˼˼ʻƸ~{xurp}mu292-QG@}mpsux{~õȹʼ˼˼˼˼˼˼ʼȹõ~{xusp}mu15/* SJCxz~øȻ˿úĻżżŽŽżżĻú̿Ȼĸ~zx~%.)$*%! *,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,# 0+&93.<50=61>72?83@95A;6B<7C=8D>:E@;FA=GB>HC@IEAKFCLGDMHENIFNIFOJGOJGOJGOJGNIGNIFMIELGDKFCJEBHD@GC?FA=E@<D?;C>9B<8A;6@:5?94>82=71<50;5/71,/)%????????????????????????????????????????(0` %+++ 233333333333333333332')))""" www%000+++ 1222--- 6000--- ^=e'a?!!"@333--- }bl)e&&'G444--- o,%%%J333,,, üg&Ƚ&&&N&&',,, [/$$$Q##$--- ľ[*!!"O...--- G,,---- >,,,--- 3555,,, """,,, --- &--- '--- w'--- \t'--- Xo7Kh'--- #%9':3AX[oCZ|*',,, DKW'''),lr|'--- ox'5L*A)6L'--- '--- '--- '--- '--- '--- '--- '--- '--- '))( '$" ne^' _SIzi{k~nqtwz}}zwtq~n{kzio' _SI{j|losvy|}zwsp}m{jp ' _TJ{k~nqtx{}y|{kq ' `TJ|lorvy}z~|lr' `TJ}mptw{~µµ{}}mr' `UK}mqux|öǸɺɺǸöɾ{|}ms' `UK~nruy}õȺʻʻ˼ʻȺõ|xw~ns' `UK~nrvy}Ƹʻʻʻ˼ʻʻƸ}yvr~ns &dXOvz~¶ǻ¹úúúú¹ǻ¶~zvz $  """""""""""""""""""""""""""""""""" &"??( @  ############ # !,,,:!!!334E###»\ o>>?Q''(c)AABX'''zO>>>\|\::;]###777S!!!555H""" '''+++,,,LZnMb---glu & '/:CP,,,Ydvw------............--,¸úƼȾüžžüȾƼú¸ĺ%$"n`Sҏ{kotx}}xto{k~moaTҐ}mrw|}ysooaUґ~nty~{uppbVғpu{õǸǸõû{ppbVҔqv|µɻ˼˼ɻµ~ysq seZϙw|ɼɼ|wv !" #!%"!&$"'$#'%#'%#'$#&$"%#!$!# "! #?(0 ` iii~~~~~~~~~|||yyy[[[t ###k<))*f»&&&}"""""" !!!'7&8/?W!!!!!!"""""""""""" vgYݐ}mszzt~n}m wh[ݓpw~{n xi\ݕryķķ|p yi]ݖt{ǹʻʻǹ}vq H?8{XNE\RJ`WOe\Via\ngbtlgumhumhtlgngbib\e\V`WP\RJXNFVKC ?(  @ LLL[zƻ```hʲ[[\mSSTd  Q`tWf{    ½ n`蕂s}vo pb蚇wt tf螋|µ̾̾µ}t            ?lt   ( @ ýpdcSZHZHZH_Nff~xo`R4N+N+V2\9\9\9X3R1N+Q5\M~x̫|oR4N+\9lIqMqMvSvSvSsOsOlIX3N+S:f\¬Z>N+lI]jjqqqeeyUyUyUqM\9N+U@wr`EX3]qqq~ƲjnnnneyUyUyUlIN+S:~xR1c@uuuuuֵ̦}nnnnnneyUyUlIV2S:wroV\9q}uuuֵƲnnnnnnneyUyUlIN+U@̆sR1q~~~~jͻֵ~qqnnnnnnyUyUlIN+f\R1f~~~~~qqqqqnnnevSvS\9S:tgD~}ͻuuuuuqnnnevSqMN+f\dGpuuuuunnnnyUyUV2S:θR1Ý~ͻ}uuuuunnnevSc@N+ޒ~Y5֮ͻ}}}uuunnnyUqMR1sj~huRݶpuuuuqqqqq`qMV2cSoVZ]ͻ}}uuunnnesOX3_NdGZššƲf~~~uuunnjsOX3ZHiNZ̦šͻfƲ}}uuuunnvSX3cS~hZ֮ș̦̦̌ššf~~~uuuqqvSV2pdޒ~gDݶ̦ѬѬѬ̦̦̦ššf}}uuunnqMR1pd㼱R1ݶ̦̦֮֮֮֮֮֮ššz}}uuujgDN+\>ݶݶݶݶ̦̦֮֮š~uuuuuj\9R4̆suRݶݶݶ̦̦֮֮š}uuu]N+qbR1ݶݶ̦̦֮šuuqlIX;\>ݶ̦֮֮šš~uu`R1|o\>pݶݶѬ̦šš~u\9X;R1pݶݶѬѬšš~~qlIX;볥R1z̦֮֮šš}c@R1Y5gD̦ݶѬššp\9`E¬}V2Z̦ݶݶݶݶѬuRR1oVºu]R1Y5ZppuRY5Y5oV¬θ坊u]\>R1R1R1\>u]ޒ~θ??lt~h( @Kgx1j1j1j0\u0\u0\u0\u1Vk6Rc3O`0HXzwslllaa3O`|b6RcpҋwzvF;VfópzqS4*lqCb;VflYyCT}i?[nY߄S}lKgxҿbCbKgx֘CKgxKgxדדגՐҎ̋ɉÆlt~h( @F,kt(em(em(em(em7pvd9^<95,|r Zi7pvJրiW<,|r Zid9Wڅ{d<,|etd3֡{d3,|,|,kt Zi3֟vbFyЍsb&Bz)z)z)Bz)wsbZR>ys\sb&B첝qPb&z)8>DMKHsg_>y꽨sqPЍsȵ첝B{i7pvȵЍsSqPi7pvEp7pvPEE99++ +Mlt~h( @lTAgM9dJ6hO;waLlTAdJ6dJ6dJ6dJ6dJ6ķѿմմҬҬȟdJ6&H/krɸɸҬdJ6&H(T(@/ķҬdJ6&H*Wi~UhB_&HҬdJ6yyB_JQմgM9ʵ-JfcķyZAʵt-JדÆq^Ϲ-JדϽ``___-Jרѿ~bQny̨ķztNq݆q^ķѿϽzFfvzklt  | (F}`` nHH T@@ (Bn00 %ư  n  hPNG  IHDR\rf pHYsod IDATx}yzcgf=È j Q0$1&w̫@ĘD7FP ܂ {utWUWMsS 'X| W7vGxAFa8}NBs20̡@Fh6>Ljgm58 sHǻ[EdDdEs5U&KEPQp|AAxM ڈ_-!)͚eb}W{X33SXe8 o{BF.i%!Jh"sJJȿcJו~Ju ~vF @M A!N< Al("y^.{D)E"kPECJ'k׮W1G@:６Z}aʋ~F n1*_^h!Wqރ}}}gnc`D񿥥eOkk F ]]&{ JE,P=aL0)SΛn}#/l,*b <pWg}p0R ")p` 1^|±& *J:}'~ѢEWM<Ӄz*6m4h4~=/NYF!BxAAC]Q -!`N'N'!'ϯ_~7?DA7|%(umt [ftҟM<Ꜷ6l۶ GE[[***0a X,`0 q$~3A V9"a@XtM1B477755Unpp< ˲ꫯ %ыAL`H! Fvpt@`B ?3u C~n  )PTT{;wqi8FI~l1&]l/~;?%qSr^B\+![W΋FGGG̡( CO"70>p@?Yz,7x  !zĕ</)^ H P_ԤLW_}UqmٲeصkDYYY׎`@0W9 *N~ 2BBX׏&6b5B.eC~o5߿N8N;p8H "yBqX_|]QQ1@(!PB#xMNQt:0LiO("z>XQEt:tNGmG݇ 2}}}@oo' ",g^Dn{ҍsLm6??]v^JA}}=̙<8oXWtwwXxztRJ`l*DC^y^<'|!m<ۦO>n޼yeqBB/{Dx\ < !z^gۭ~QKU VDmDT>^J} ORGnM('ro.gˠXNt:ya7.}u}G;wЃreDЅ?!p2@~~)Emooo7E_^z !*=x |> L&P7B0HcA4 D„/ADCb&q G(f9#!H1ݩEz 0L(,,䋋{&L0qO;wJXE{{8na`Za0`4a00a„szG9jN? 07Q806\t:t:L&h.gJjMp|l+oO DoC8a,$J `a2>h4n004is)..6x_׏ xAmA8piP;2E\i5k9>VAQhd~?<X(,,_C_wuwOv&< _paŸA^GYY***PZZ0NHN scAjx>X~=\.:::cl7ՠiF={vIMMMW_FWWWbwhB @|3y ?!d%t1˗c/W_r%ODUExqR~ ~*3|ctb())ՁD %ߏKb\?N$hL|]u^nKT&V[Z /"]3gČ3`4Q\\]x@VVZrK>/@8;MR;|ON>E92r/[L8& `xg-_|sh& !H ` &M8eeefX\q .,_!b8DU@ĒƎ/cƌM y FKYYY… @8ڎ@E}?4 TVVb̘1t?ָ"6m.e%5c'ިbeDi={vgEEϳrʗٳPzW5ƼAP v/V~?JVq,Z+V@~~>a0 n78cZKBM^ .78tVV&LWO  lFy#1tPH<֭[f\tE ,K_AA_^yg{! fWC`i ~*ԩc`( ,F.Ü9s\vx^Ai0`F1ow-[Z6eC0@%grrrPQQe%c#@uF0˲| o&p2>V_|1ٷo_>iygϟ?@ih%hΧըe-fĸn|}zީ f( ƍÕW^jdggtix^|>|>)X( JEuvv-~+s P\\ˆ/5PSVm{">(aZ00$96nӉ?555Ys?~|?<7 @-[ )͟u1O®(I`g+V 77VUAK n݊{,˞p8.pBPQQ[H'G!hV;QppG,[zmݺռ`Sz뭦>@)& .Vc ]V`%m'eqN6]uU={6N'V+F#3 @ `7oΝ;,z-4M|,@JKK5"NbX/1$Oyɯ)>ǧ~())S $Х!|wAG  FU`ĉ믿M10^W:kǡ-`e'X'C4Q+eّQ$V1 !>{1, 1cz…K/tO,2@4M%%%Z˲jfSԊbnrJ@An) jc2tK(=<lق9s`e˖ \zy+ Xq;w7pý"sB?7nJǏǎ;`ِ,,`0 !eJ%U H DD2Fc"Q"Ç1}t| ,mF, l6׉@?uLTjq"!:DXKИ,|>f͚Ytic=h 7:N"v9mm-{9ė^!8t5k>N: f`|p\ʊʋ !2p"p73|vSV{N>SO-p !*P)E\{5O>s3\gyW |>n7rrrсRX,؈~FL=dep_ㆨcwD)V`رؿvƎ@ t &9DlΓ<ǃ1Z9s&o.!E춶6twwPP&>v`Y6% ÍXWxxB^q}>B\rɭTor^-dr>PCeM4w̘1暚+o.@)!QK.P6PEUџkb::: +"gM2ġ}&O( D! )Fj(27nW\!F8N)TX D3MZڈWV-kCA {!ߞ\ Ckk+QXX1cƠ~N0^-D?YyѵR6ȍ~ً-;d7w!y0=r0o<CNZV&$i:pKbĉ`x<~M~߾}8hmml\;ؘj#*+Y_ ki/pkyr6?5tp_I<l;ԃ'ߩG Z5abEuB:"IO$3; ^~dBtlIp0<ǡO<뮻aZA4U?[oC#- i. $".D sH{bTHm[BOp<vxm:dۭ0$ z,]W>n[}q1Y8[hnn> xfH 2 Fq7!z1uraaqF\xxa6QYYb)Tx۶_ŢsUnD,PJ O 'l;{MZ0,:{Pc-or旷,-6e҂P`%F,Kܜ~<ϣM}衇pEa`` hkkCAA*++QUUƟ֮V예df}9MBY_| /3ktB! X BuA(\z2Gx|%(*Ѥw-pĆ?(..h0DGGp\x'uuuCWW$IW;~If2G[ h6:Mctrm:dV(F/Ȑ4/b8򺕖.&D__N=H{nL:?ol6KB>>^y &N v&RS7t!_ bcQZhX͉]yJLS.Ͱx,A6&ӝ<݋B 5@34@ȯL&-fnicxgX,0a^/YbzyЮQ3oѴ,ocY4V1{EG"o  RzD{-I;ҭb(]ZO?a@<->t UҦx-)txG  :.}N52ǹ67U"a4x<ww܁&ա^ DGGz)&x~4E$CTE!홁l#RP׊q7N7V&<ߏ7׿5=ZD|װcǎ!QcEO&hӏ l.mHIK8p`$ RhDaaDJL[=L&,X (//Gee%p[TW D֪B2"y *}jp`?%5++ +=v/]w݅K.vuuuhhhVVVV"//wqDʈ╕G%c3Lqo4%xj G$(.F^^ p0 cn?χ[n?:::P[[FXViD"W:Gmq2tL&2xOM ^UO>?"#<<bb/O?K2!''GJ'oc۶m1Ehh9DɸG~GR*@4%-p`"8b[`0 //Ozu: CD/"|>.]Zף3f C 0Ru)r.dHRu|55"fmabo +VV%666"cƌAQQnvΐ*񫭫 S*@R ";;zLQz}D>ۍAMmA\wuxG000z477(^k׮M# 0љ!n F W rIK=믿ƚ5khoojb>C|ᇑQaPB*"?0j;

Os|\wuzq@ Ӊb<zh`U(A/<ش ob#}9ntD AR0JFU# ;;mTŐ8/z?CSX_8* FHT"~:N|XSaij4 rxm Ori/]t8+ :4!c `ĄLΌ3_E 4-=Nyyy~FrIIKƌ[nEax&y+ns7i#pY;`''a{5`RX @i@HO~q8z^ i\.̈́^{- Ԅvx<44Α/ځցe ~ )FXMCUS_Kee`m/Y#q'tD# !ԀxpA-ͽj;_~9̝;%%%hiif,Y---Gi)>=ES ŇˆRx~pm/Jm{E`aa4$~e ۻx_]o,O¥g՘Z # q A}>@HWpB2h L$'qV2`tnv߈7P1ðW$~;$Xy<9s栦::;'¿ox^\q#QPQQ'^0\#Gk#Zq>w`@kk+zzz`4QZZkjDC A6f8 À8,?yvc(s Q&~9H{U\B+┃0Xh -L߄3 x񠭭 iUUUX?^MH`/j`zrN!hCW`ɩy[`ڈfT2;qzAӀJ M# Wj|>z4Ć? IDAT~#Bޮyлﾋ.\yCGGNT$)),fe@YG;#JC2eB0dGT!lIш-@Cgd]|{(,,Ĕ)Spaڵ q]s3%IAy!L J X8iNL)#)Dxe*@,?!@NTRԧp~kQTTNftwwcʔ)8s@˥@C=o6 mmm^GII ߇=t+t|=>(Cȉr3W 5 Οd)f\D <8IAFs5FB@%PKL;A;a_J4n:~Fxg0FM yd-` crmoìJ"  22"miHt zX5:"_V>Z|>|'Mt:dɒ~) `0Z((=ݚYid۵Y$fBf:m[c=֚F/jE,H&~c#63 !Xp؇. t:ߏ>}}}{?Os=5kv܉.)0''xVb@Q6<_Ց1f!m aQ~ez=:sO((F!y [.Z: I 6Z!CQ63fA _onGɄK(|'صkvrt#!q]wIE2M(..ƁpueDx3B0vX̚5 <ϣLhlذ9s&S088etM'j f30 0 -C<LQ^xP=tu8eo&|ɘ:u*-[^_{ an[󦣄%\"mm.[HA^^كGyDu<28yf%DCS$`*_^իQ__<ӨdB4d֭7 ljO?͛7kjwC6Hj4G&ɥU5w-Vby?)e uI*ZWW{. la/m?NQ.hjwA# *@҄p@Ht{bv$rK,!C6y${˲Ά7ވ`P2Qd 7`#ʴj^/ى;w⢋. H;s=Ҷף8D^ Qnx\-nҹ@Hc)JE]z p)ꫯƏc̝; hkjj`X0c 霨RL&nx㍚7/Ez)7 '$* Cՠ﫽\s xǚ5kaٳ999pi_Xpdyn[ZzmFqn76hČLV̏y |t_(ªU@#G1n8@uu5A к^(⋸˥sJy ^ylܸ1qB;Uۃ ^$|Ē D,3P#qUWpHO;4TUU`޼yIy̞=[Dȑ#49 my|VH`H$=XhE`6= @e2^ Ԅ2e~aSbӦM8sB[|Ɋ׃ nF jp}@(a # J=bڶ?è'8 Ygt9)+p4Ty)9GJ[W\qoߎ;v`pp;v˲wy}}}p\0 fCaܹhjjRT%q]waڵIX3鮵{aڵ8|+V`O 2qDd2ttt@4꺎/Xb6m$Lmmmhkk+> V&Nvz>'Wjϰt_mŘ}{C*pƢLk 7lN@ 8F BApERI-Zk?0n&][l/~ѝt4j\a8xiXz5:mؼ3 7AKV#N\T ޭؾxm~EN[( `YjY8c0ZWlnKpyax75… :L,*>?ɓC{{;k=ZMouۺ&꾢4˝xe7;W ?E9b `3KH@Iq7FUi t:{՘9s&>.2}٨þ}";u]/-.-܂W_} ~r0^n`6xaavL01t1tj#պ UZM{a<íz՗~3 س'qm1bRL saك]`&P,9w ds,\΀ab& g1- iXEVY裏"NcΜ96m.nf~l-sd$1gLJA¿`Z-;@Z]z2xg ?FqFeC'4#$5Wn[ J/ƒ%K0ߏHy*L>]o[_/Kן8戆{ V\|Aǔ +|EY2j̑&T2~3Ľދ5k`-)iۇiG~/oKIP6xz4/yB%-졘ݒƅZPrU@ \2(E.qo VL\*pTL6\}޽ui̚5 P "T ]]]ɏ~ !kؗ'U'b|MxwִUX~LÂw 2 KϱbE݁Z#ySO?CկK_,^tu0E:vE3AgL0MI`V )|~4][(̮DE(gxǢ+ W|J$SvmԄWŠ+tR Ǚ18,illy7q=wVxZ4kjT*=v*V-kk~z~13~("\ A܏Toѓ*,ŰO*T58k|#i&wDo+V@MM : V<7<[-xJw}T60) NӱjD$TC|_XpˢD%b?-'D*`){?ƍ„رv{#\uE4ʇ1>pCaTRI'= bC+/dJ~V V] 6/g˗{˜?ig?۫@i3UI4ԆH6S[BpzLgk*V-mDMR <89l`Т50w.di Ta\]C rsNx&AOOOd@:F*%?}\z>]TRUB5RhWƆZ_ϓYV@caR oDm*$r ?j@I> ovtQd@2s+f^k):z2&,rG ?`<{LqnKQ['qyKu֮>\wuhmm-B2$Uc5Mzӂ[ەc fY! Ƕ:CwwqCӴXg88 .2-a0u i*?,fϚn _|tlPUUc3֯_ .貇N9a\̀e}~w'QĠ&sFO_+?} Mխ$I$IR)R)TUU ձq  oSij}|:}G'0iMXz5lق^zIx<СC0aB$-3bV PUS[hk=<;Q@;.hy4;뱚@љo3hvPH9 EiE^^c4 UUqwI;Ґ_U) G1I1و*LEPōcW7eYi?oJDD6,B{ܡ=̒A<Í&~P1D=:EPv¥:Nk(`*@8gk~kz'vbɱ@|r|[M8hM`Ts^"<箵RCa(82 &Ђ& }h/"шo|8 @WW#Rdn=&O5~ ~&+vHF̀p*)?V 0r+>L3 Ȫ2 oh$;>`-Ə/Mi6T&`FSK`FSe?k K?C,6V(!BFXÒ@X25XU`IB\_D ZZZp뭷ĔM6]ǦhP2Bg~$`XWzҎm۶ V&aisdീAX2^`?4Dz*HKa47M)a2v>#̱l.Oc[*!vӸ_V  D!%j3HEidO 2 LW_}5,Y"<6 UH&u$:r7N8Zk9죊rDҬH|?2i@d'aZ҉@Q <զd$:RɄXe9B sڵr8  ҋj}s? 9*VC#G [W^ôN5&e0P3xʆ:̞2? :::|( x @;l B4o- MEA% N>dqKpIG#[{D&9- k& g^Q\?uTEN-6\(G3 ͚ٖ#BT6yf[$̂J2p=csՓMSarp 5ThñD"&  P>M}05l_c>IDAT'&P)ZԩSˇ[xoo $- СMLHy"INsipPїUZeFT`A5(DC&d1m!iDxaw1h&( L˲"rCYKFoB lo9?a4! Zx2S󿃈@(ϰM~ц#EDzRSO†-\s j ][0 wD1&9gaݺuv?#?B-rT<^BƗ f6]2_O `͚5Xv֥xlv  鐀kL{4cgGֹ}bK&qT{2HX@Qs/zs$̖#bI_š< /oހu@eZ25h 怘 ,ʣ# = 7 `xjk?NIS)P4Cpś"/2 "E<5ίЏt V\~{v'2Y$EG"ASUس}ðMT#Pi_leNX"qgo_ǖX0R+抧'/,J *0@0]Dy~Q:=‰ٲ|!>˲2F^mm-`5zg+gP1" 5Մj8a4tYWhgřgYrXsH;F!r4M̑mo/3cْ)Ri+SXGxx"Y5^'v3bҲ$ #5|O-#ߦdt]~stMذ1vtU bюU ń PPUZq$n_{[,0000l>xw_~8Yu \&@TD3|βqeBHA}A]eUU=8+Ӧte ,j&N A}M8_|'J*29*Q> ~.t,!+@P]NoqQS`3_o@ p eX@8%bˮdK#"~-3 6K qD\pZ[[k+g"a*b\sbPm@ xIG[n)(EQp 'MƴEs{{;3Y`[{mz8\\5 PBtE Ee< : u˗;/c`D2!] `{4O#.׿\~4TNjYXf ƃ}&~v# :iF1,qЯ* "b~A.S !"E& "s= *$`YަZ@\4n}{sx~/mh: jAB oR* @渓 M+vVCA(͈Aڀӑ@D܌ lĻ{-@Pƒ?@g]oޅC3úvKcsERO) 3&+JS6xB ߖGXB$` ls&t:{{VmM)R?!l&~ױW_}uk0-๷],`v3VPL'dUle&i3$'Q?(UKH$# ai,X~>t]3-؎APOn~}{+zy(x{{d drؼi/2|jy",%eƌxI4g"A9C"ӏ4v7׿u|≍f7¹,xm[sv/b``(Dx |j'^#<:6OAMxH@)ϟwєնclQOz>kN)giS!;`P+e; IqY{i b7aob3bP8dYQ@qKEQ퇬ۚ3 U@c40>k.p͚k`ZrWۂU ഏ%ԛF)c&O/3ra֭xh[8/4 wטVpIM{|ۻCDQPqSQEf@^H|50- 9<,BplU5U4kԌ U@Q5Tc;i۳pm?2p.ZrC^Lt4u΀a0Li Ԍ/i46IW+CԶ+I]?I%]dT lYV~_wO? FZESU*L@8&/ XEQ$YPH FY3.y-* 2k*CMai0sM9a$(&LēOmٳ}+/o{;QpԌ5$LiLڽ(hyy̐\2j !8Yb`@M2 [-p ؄`i10-XW- "0NU6aVSCa60|㯘fs PPu(a$%[PĠxh`,t5JC oz0 /SP.L|]kҁUZUc0JK Q;8[cK{A,PaU;Nל^Z,QF D !_`2_`!ZjV&;k0*9[# e'G@MMM\.?QsZSX6OVz[c^zd ]#eff)(#&ꃮH@ۣ}I?,Diu]Csc=zͅ$r=aENh1$f9"ʳQa7b>L_8N1NLqtkf `@yik*t]ó>}kx'vwc*~A|O(xh *X@+yi㪹u]CSc=,8x?,UEq4,OÖElԂi ;ؤiN@CTE(`VxHKyPVL\DV$&?bV=VZ6H1~( ʨ F1*dNܱx@%zM Z:Ha4:_p 8}: !p\Q;l!۾|!w}^+4QXQ ШEQG)EBS DvX_M+ C07 864jQX 77fY!gt)z6iX0@ H~ Q(J,RF2-AV͏[ f 0}H@obcᣪ4=װ$0~>Cp[xE$ki0ȉ GM%?|><[n'  ~i;::pc֬Y?1yc|0OϡA:A }äR.9|:1:<2 7x;e !y8)xb!ko_s~M#;\Q34:f\.?r Q/o1Y~OW/QQ4c IV *4 Ԕ2>l8G0iD?,΢JɀFY#I,s*۾,]U)Iq15KSj/FÄ >fΩNF+Cu>V&j -40'5 */JD%RHP&(:jj53Ca2&MC\a҄^8.K3-Z9fנ0TB =>,*iehVAHVTU| *WTӠqzOai*E0F0_BUQ>.m}q;lg7}MC- P #P[S)g1!EiasҎi ߱RH4q`]a"OeBj#M Riv:@ubJq+Őa-l$.~`k,A1Z@N@v,8˲vkjYV +ڞWზR&]1NJ&Zx8r-#&z E%pC՝Z$ xCQ(-hk1 tTGT1(a )6|`Z@(d!;[-~ȷBH8 |n>G|t?GC #(Mɓ?᠄7\&Hߎ|m>Ш$PLL o|ؤP a|4!"zѾڀ]Ӆg|| E?S0*[oAED`kifIBPpCQ욽)Gh*Yvt-Tk6x$l0#*dߗ [3<|,`țiMQxIU4l2B>`4# ;]QAm} ~줰Tl[[ m`DaPP߀ 5hT2PŽ d@ 7>c>/1Y:^d`7 fBIA~?#Ra-`R?ZBmWc B ;MY(TˊF<@T^_1WIiFZ#F9졶HudIENDB`(   !%)+,,+++++++*******)))))))(((((('''''''&&&&&&&%%%%%%%$$$$$$$########"""""""!!!!!!! !+3=EKLLKKKJJJIIIHHHGGGFFFEEEEDDCCCCBBBAAA@@@???>>>===<<<;;;:::9998887776665554443332221111110.+& %1DYdnvwwvvvuutttssrrrqqqppooonnmmmllkkkjjiiihhhggfffeedddccbbbaa```__^^^]]\\\[[[ZZZZZZZZZZYYYXRI=/%$4Qd}saO6* !0Om  qX9'*Bb  wT2" 0V  hG+ #7] W0&@g  \6# (Dm  f>&(Cm 111fffdddcccaaa```___^^^\\\[[[YYYXXXWWWUUUTTTRRRQQQOOONNNLLLKKKJJJHHHGGGFFFDDDBBBAAA@@@>>><<<;;;999888666555333222111///---+++)))((('''&&&%%%%%%$$$######"""  i?&(Cl HHHg>&'Bl FFFf=% 'Bk @@@d<$ 'Aj  :::c:$ 'Aj  333a9# '@i  ...`8# &@i  ooo+++^6"&?h  (((]5"&?g  iii\\\&&&[4!&>g  ¾þEDC޿ح###Z3! %>f  ÿĿ½Ŀ0//RRRͻ֤|֤|ٮ!!!Z1  %=f  ¾þĿÿ ֥}֤|֤|֤|۱Y1 %=e  ÿþĿ¾B@?ب֤|֤|֤|֤|֤|ܴX1 %<d ÿĿþĿ¾ۯ֤|֤|֤|֥}֤|֤|֤|޷W0 %<d  -K^7F;;;ز֤|֤|֤|קɱ֤|֤|֤|ڵU0 $;c1Wo7c7d/Tk Ʒ֤|֤|֤|֤|٬֤|֤|ֲT/ $;c lu{4]w5b}5a|9f@o>i356ڹ֤|֤|޸ΰ֤|֤|ڸS/ $:bVdl7c~4`|2^y6c~=lFxdju|Ao=l3_z*Sm'Oi.Ys8fBsMWZuJ+*?eXisFv?n4`|*Sm%Mf,Vp6cApK~V`Ol~tH*+?e356$)GZ6b~+Tn$Kc*Sm4`|?nI|T^drG* ,?e``` ,Un#Jc(Pj2^y=lHyR]gRtqF) ,?d".6$7B.Oc;iFwQ[fmoE) +>c$$$$$$$%&7TfOZdoU{nC( *=a000$$$$$$$$$$$$(-0VcmrxxxlB');`ccc ###$$$$$$$$$$$$$$$/BM4KY]VrrrkA' '9^!!!$$$$$$$$$$$$$$$(5>{kkk i@& $6\>>>~~~999$$$$$$$$$$$$$$$ݼeee g>&"3Z=<;000111$$$$$$$$$$$$$$$"""ȳ֤|֦^^^ f=%  2Z_][>>>xxx444###$$$$$$$$$$$$###b`_֤|֤|֤|קXXX d<%  1ZSSS!!!$$$$$$$$$$$$$$$!!!987צ֤|֤|֤|֤|ةQQQc;$  1Z..-www^^^$$$$$$$$$$$$$$$%%%٬֤|֤|֤|֤|֤|֤|تKKKa9#  1Y.-,777ggg$$$$$$$$$$$$$$$"""###ݵ֤|֤|֤|٬̷֥}֤|֤|٬EEE`8# 1Y^^^###$$$$$$$$$$$$$$$###...oooֵ֤|֤|֤|֤|ۯ֤|֤|֩???^7"1XVVVrrrRRR!!!$$$$$$$$$$$$$$$---@@@ó֤|֤|֤|èū֤|֤|׬888]5"1X MMM $$$$$$$$$$$$$$$---%%%"""֤|٬ש֤|ح222###[4!1W<<>>\\\$$$$$$$$$$$$$$$###>>>uuuɷٰ֦***,,, Z1 0Veee???BBB"""$$$$$$$$$$$$$$$>>>EEEذٳ(((111 Y1 0VEEE,,, $$$$$$$$$$$$$$$444,,,%%%«ڵ%%%555 X10UUUUssszzz$$$$$$$$$$$$$$$+++BBBܾ"""999W00UUUUCCCPPP444$$$$$$$$$$$$$$$###MMM{{{ <<<V0/Tbbb'''"""$$$$$$$$$$$$$$$OOOJJJ@@@T//T$$$cccppp $$$$$$$$$$$$$$$>>>222'''CCCS//S]]]666$$$$$$$$$$$$$$$111NNN EEE~R./SVVVkkk'''$$$$$$$$$$$$$$$###^^^ EEE}P..R ###$$$$$$$$$$$$$$$```%%%OOO GGG{O-.RcccJJJ!!!$$$$$$$$$$$$$$$LLL777...---GGGzN,.QGGGRRR$$$$$$$$$$$$$$$888XXX444"""HHHxM,.Qaa`BBB $$$$$$$$$$$$$$$'''nnn555--- HHHwK+.P{xv---;;;III ###$$$$$$$$$$$$$$$ooo"""333:::QON; IIIuJ+-P 333ZZZ;;;!!!$$$$$$$$$$$$$$$\\\:::///DDD665¾«֤|ʶHHHtI*-O ½332666aaa$$$$$$$$$$$$$$$???___)))III111֤|֤|֤|ϼFFFrG*-O MKJ%%%$$$$$$$$$$$$$$$+++|||###KKK===~֥~֤|֤|֤|֤|"""CCCqF)-N!!! ~|GGG ###$$$$$$$$$$$$$$$~~~(((IIIMMM[YXت֤|֤|֤|֤|֤|֤|'''AAAoE)-N!!!!!!!!! ___KKK666!!!$$$$$$$$$$$$$$$lll???EEEWWWCCC֤ܲ|֤|֤|ڭצ֤|֤|֥}+++>>>nD(,M"""!!!!!!!!!!!! ...hhhvvv$$$$$$$$$$$$$$$HHHggg===^^^???ֲ֤|֤|֤|֥~֤ܳ|֤|֥~Ǻ000:::lB',M"""""""""!!!!!!!!!!!! III$$$$$$$$$$$$$$$000333aaaJJJ֧֤|֤|֤|ι˴֤|֤|֥~555888kA',L"""""""""""""""!!!!!!!!!!!!uuu ###$$$$$$$$$$$$$$$555```\\\kkkק֤|ܳڭ֤|֦:::555i@&,L###"""""""""""""""""""""!!!!!!$$$$$$$$$$$$$$$yyyFFF[[[gggOOOקִ֤|֧}}}@@@333g?&+K#########""""""""""""""""""$$$ $$$$$$$$$$$$$$$QQQnnnSSSqqqHHH˼֧רwwwEEE000f=% +K##################""""""""">>> $$$$$$$$$$$$$$$555HHHvvvSSSٳשpppKKK,,,d<% +J$$$#####################"""%%% ###$$$$$$$$$$$$$$$BBBvvveeeqqqƲ׫jjjRRR)))c;$ +J$$$$$$$$$$$$############!!!$$$$$$$$$$$$$$$PPPqqqtttTTTڵcccXXX%%%a9$ +I}%%%%%%$$$$$$$$$$$$### $$$$$$$$$$$$$$$YYYssshhhLLLǵ]]]^^^ `8# *I{%%%%%%%%%%%%$$$$$$### $$$$$$$$$$$$$$$888ZZZVVVVVVeee^7"*Hy%%%%%%%%%%%%%%%%%% ###$$$$$$$$$$$$%%%PPPiiiuuuPPPlll]6"*Hw&&&&&&%%%%%%%%%!!!$$$$$$$$$$$$$$$WWW{{{VVVIIIrrr[4!*Gu&&&&&&&&&&&& $$$$$$$$$$$$$$$]]]mmmzzzKKKCCCxxx Z3!*Gs''''''&&&$$$$$$$$$$$$$$$$$$:::kkkRRR===Z2 )Fq ''''''''' $$$$$$$$$$$$$$$&&&[[[eeexxx777Y1 )Fp ''''''"""$$$$$$$$$$$$$$$|||\\\xxxUUU111X1)Ep (((!!!$$$$$$$$$$$$$$$ZZZgggFFF,,,W0)Eo &&&$$$$$$$$$$$$$$$;;;|||vvvJJI***V0(En  $$$$$$$$$$$$$$$'''cccZZZqol޾ܸ''' T/(Dn"""$$$$$$$$$$$$$$$ttt]]]kkkMLK̹֤|֤|ݻ%%%S/(D$$$$$$$$$$$$$$$UUUaaazzz>==      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~֤}֤|֤|֤|࿥"""~~~~R.(M$$$$$$$$$$$$$$$:::ooowww===ר֤|֤|֤|֤|֤|ê {{{}Q.( $$$$$$$$$$$$$$$'''qqqfffKKKusrڮ֤|֤|֤|֤|֤|֤|֤|ǰxxx{O-"""$$$$$$$$$$$$$$$gggZZZZZZOOOٳ֤|֤|֤|ب޷֤|֤|֤|!!!tttzN->$$$$$$$$$$$$$$$OOOYYY|||fff666ֽդ|դ|դ|դ|м֥~դ|դ|׽&&&oooxM,$$$$$$$$$$$$$$$888___ooonnn111دդ|դ|߻ڰդ|դ|ı,,,hhhwK+ ###$$$$$$$$$$$$'''aaaaaarrr999nnnٮר«դ|դ|ǵ222aaauJ+s $$$$$$$$$$$$$$$YYYRRRqqqFFFȻ֩դ|ȸ999YYYtI*:$$$$$$$$$$$$$$$FFFOOOlllQQQ)))صդ|˼ ???UUUrH*###$$$$$$$$$$$$444KKKcccXXX &&&,,,Ƕզ̿ FFFQQQqF)((( !!!$$$$$$$$$$$$'''OOOVVV\\\)))!!!,,,,,,װPPPMMMmD(z$$$$$$$$$$$$$$$GGGEEE]]]222------,,,˼ʸ˸˹ʹʹʻʻʻʼɼɽɽɾɿȿȿ½¾þ¾ lllFFFh@&ZTTT###$$$$$$$$$$$$<<>>~~~𳳳hI.###$$$$$$###888j"/C\999RRRRRRRRRSSSSSSSSSTTTTTTTTTTTTTTTUUUPPP---222{{{ gL1"  !!!$$$$$$"""$$${{{  ,<Vh &&&EEESSS^^^eeefffffffffffffffgggaaaMMM"""KKK}}}bI0#$###$$$"""$$$ )2EXj ###)))---111444777:::===???eeeRRRKKK666333333333333333444444555<<BGJKLLMP`s!!!###'''***,,,...000222444666,,,y j]VG6.$ UTTTV "%')++,,,,7GNOOOPPQ[$$$(((a^____`a^SIJKLLMNNKH@70+#///OOOwwwQQQHHH %-22334;TZZZdddKB:;<=><3++++,,,,,+*'# &&&<<>==<;;:9988*#&&&&&&&&&&&&&&&&&&&&%%%%$$$$#####!...111  ### ((( ))) ))) ))) ))) ))) ))) *** *** *** *** *** *** *** +++ +++ +++ +++ +++ +++ +++ ,,, ,,, ,,, ,,, ,,, ,,, ))) %%% !!! >>>???????????????????????????????????>??(`   &/599988877766655444433332222211110000////....---,,,,,++++***))))(((('"  !0H[joooonnmmmlllkkjjjihhggfeedccbba``__^]]\\[ZZYXXWWVUUTSSRRQPPPPPOOONLD6'5Z}zfH/.R  vL*"@v  l= 'L N( *V  Z. *X JJJNNNLLLKKKJJJIIIGGGFFFDDDCCCAAA@@@>>>===<<<;;;999888666444333111///...,,,***)))'''&&&###"""  b1 *W  :::666`0 )W  999222^/ )V  888,,,[. )U  888%%%Y- )T  777!!!V, )T 666777T+ (S 555TTTR* (R 555ÿ¾ث۵P) (R 444¾¾~ HGGܵգ{գ|ݷO( (Q 333Ŀ½db`գ{֤|֤|գ{߻N( 'P 333fnr@?>į֤}գ{٫ὡ֥}֤|߽M' 'P 111hx6`{3\v"+֤}գ{գ{ר֤|ֵK&'O///Sjx5a}4a|;iCrGQWݾ֤|ໞ߻դ|ۼ J&'N...Lfw5a|2]x7dBrFr֧ܾ I%'M---Ddx5a}/Zt4`{>mK]uخG$'N---;ay4a|-Wq0\vmLZbxA  /R777 $9G+K_ -O999+++###$$$$$$,6>>###[*!@:::PPPWWW !!!$$$$$$###333999&&&999###Y* !?:::333###$$$$$$***JJJ"""444"""W) ?;;;fffccc ############QQQ+++hhh///!!!T) >:::aaaMMM###$$$###$$$MMM,,,000CCC***$$$ R( =;;;666YYY """$$$$$$###;;;CCC111777%%%)))P( =999CBBZZZ#########...WWW...<<<ثܹ ...M'< :99PON""",,,######$$$%%%aaa222FFFkig۳֤|գ{222K'< ;;;))) ###$$$###$$$YYY999LLLONM֤|֤|գ{֤|ī888J&;!!! <<>>I&;!!!!!!!!!!!! ;;;222===!!!$$$$$$$$$444dddIIIRRR֥~գ{֤}ѽب֤|ؼBBBH%:}!!!!!!!!!!!!!!! <<>>[, """######$$$CCCVVVKKK +++AAAٸOOO;;;:::Y*ddd###x$$$###$$$777JJJPPP ***---AAA¼˼̽˼˼˼˼˽ʼ˽˽˽ʾʾ˿»¼ýþĿȸIIIZZZ222S( a)))###$$$###,,,@@@PPP$$$'''------BBBɿɾȽȼǻƻƻƺźŹŹCCC}}}"""L&/񵵵XXX$$$######%%%999III***"""...------BBB===(((u@"@@@oooı111$$$///>>>/////////......BBB999```a3 y^^^LLL444333 .../////////999444///FFFJ( CCCClllw////////////......------,,,,,,,,,,,,***ppp666888:::>>>AAADDDGGGKKKNNNMMM e4 $ 666GGG2W000333444444444444444444444444444333~~~III(((|B% !!!$$$+++rrr333!6Y 000FFFIIIJJJJJJJJJJJJJJJKKKKKKJJJIIIwwwAAAK+ ######KKKsss% !2Px...LLLXXXaaabbbcccccccccbbbqqq 333󰰰888H,C %%% ###EEE- *<Tm###''',,,000333sssYYYKKKAAAAAAAAABBBBBBCCCKKKddd򞞞jjj `@) w***\!-8FSY]_abj%%%???@@@@@@AAABBBBBBlllccceeehhhkkknnnhhhjjjooosssuuuwwwyyy||||||nnn^^^777aG3$&&&d777 %(*./014GUXYYZ^BBBedddeeaSOQRSTRME<0& 000$WWWVVVBBB   &'',BOOOI:4565,(((())('#'''(((*= ;          WIIIj"%333kĠŠšŢţƤƥƦǧǧǨȩȪȫȬɭɮʯ˰˱˲̲ͳʹppp%/6666555433322100//..-,,+*)'''"""       !!!!!!!!!!!! 333????????(H `T   #8GPQPONNMLLKKKJJJIIHHGGGFFEEDDDCCBBAA@@@??>>===<<;;:4)&L{wb=!C  u=)d  b) 0  u4 1 ccctttsssqqqpppnnnmmmkkkjjjiiigggfffdddcccaaa```^^^\\\[[[YYYXXXVVVTTTRRRPPPNNNMMMKKKJJJHHHFFFDDDCCCBBB@@@???===<<<;;;999888777666111z9 1  y7 0 x5 0 v3 / t1 / !!!s0 . ÿÿeeeרq.. ¾ľqnl ק֤|קo,- ¾þgmpWVV٬֤|ܴקةm,- m6a|,Nc ׹֤|٭۱֧j+,| [s4`{7cCtqݶëתh*,z Pn2^y2^y?nJvٰe(,zEi~1]x.Xs;iMtܿc'0zDl1]x*Tn7dI{S`& 2y@l3_z'Pi3_zEwXu^% 3x6F&Ng0ZuBrUbzzz[$ 3v%/59\rRewtttY# 1r222###$$$,5;UjmmmW" .nrrr"""######RblgggT!*i<<<)))$$$$$$!!!ج``` R(g766444$$$$$$###|ywܴ֤|צZZZO 'eNMLTTT###$$$###TRQ֤|تק֥~SSSM'dttt######$$$###'''000Ǹ֤|֥}֧ܲMMMJ'c222 $$$###)))ߺīƯ֨GGGH&bHHH333$$$$$$(((###دAAAF&`QQQ:::######%%%///[[[ܾ<<<D&_xxxfff###$$$###666666777 C&^FFF ###$$$555 222 A%]bbb444$$$$$$//////---@$[;;;###$$$$$$'''>>>ccc'''>$ZuuuUUU ######$$$FFF$$$DDD"""<#Yjjj $$$$$$BBB///766:#XHGG$$$$$$$$$666???;;;޽ͻ!!!9"W  =<<$$$###$$$)))RRR@@@nlj̸֤|֥}&&&~7 !U  wvu... ######%%%XXXAAAYXX֥}֤}֦֥~,,,|6 !T!!!!!! DDD&&&!!!$$$$$$OOOJJJVVV֧֤|Ŭ֥ܳ~ʼ111 y4 S"""!!!!!!!!!!!!!!!###$$$>>>WWWZZZݼڮʳ֦ 555 w2 Q###""""""""""""... ###$$$...dddbbbʾخ 888 u1 P#########""""""::: ###$$$###iiidddnnnۼ <<<s/O$$$$$$###### !!!$$$$$$\\\fffiii@@@p.N%%%$$$$$$ $$$$$$DDDkkkrrrCCCn,L%%%%%%!!! ###$$$111nnn|||FFFl+L&&&%%%  ###$$$%%%iii~~~sssHHHi)K'''!!!$$$###XXX{{{nnnKKKg(J$$$$$$AAAuuuvvvMMMd'J ###$$$...nnn}{xȴOOOa'M ###$$$&&&```}}}edcſר֤}̹PPP^%!!!$$$###MMMvvv\[[گգ{֤|֤}QQQ\$[$$$$$$:::kkk]]]װդ|گݴ֥}óRRRY####$$$,,,]]]cccڼե}ɲզ˼PPPV" ###$$$%%%OOOccc***̽֬˽OOOS  $$$$$$>>>\\\333(((ٺyyyPPPQQ$$$###111QQQ;;;&&&+++Ŀ»üýĿʽrrrSSSM8hhh ###$$$(((CCCBBB###---,,,ȿȾǽƽƼƼƼƼƼƼlll333LLLFooo޸:::###$$$777BBB ......---fffppp,,,8######ZZZ---:::'''//////...___%%%`) Vppp&&& ---//////000111222333555666666aaadddgggjjjnnnqqquuu)))\\\@. WWWZZZ4u ---777777777777777777777777666 ~~~S& ######222RRR 6h$$$EEETTTUUUVVVWWWWWWVVVHHHyyy [. C ###^^^&&&-Hu+++444888===@@@뉉rrrAAA111111111111222@@@fffYYYM+ w&&&$$$4 .>KQUW[r 000000111111zzz硡IIILLLOOORRRNNNQQQUUUXXXZZZ\\\[[[MMM///{S8" 222V<<<111q !"#-=@AC`񼼼ZMMNM@:;;<;6+! ))) 222HS555t000a   (~~~}}}&000f???s???s@@@sAAAsBBBsBBBrCCCrCCCrDDDrEEErFFFqFFFrGGGqHHHrIIIrIIIqJJJrJJJr888^---??<~(@ B  """"""""""""!!  0K]aa`_^^]\[[ZYYXWWVUTTSRQQPOONMLLKJIIHGGFFEEED=-6o j<$`  o1 0 F 6 ,,,888777666444333111000...---,,,***(((&&&$$$###!!! S5 ###R4 O4 L3 I2 eddJJJɹG1 Ŀ½ECBп֤|޻E1 ¾Ŀ½þ.-,<::֥}֤|֤| D0 Jfx! /9b|-Xr5a}Hzdʹ< 3:g+Uo0[vCtVº;  5]ej9c~+Uo,Uo@oUh9  5xxx%.'H\>> $$$$$$WWWYYYqqqؾٳ===:::R!f######"""""">>> $$$$$$FFFccchhhܽ666<<<O d$$$###### ###$$$111kkklll000???M a%%%$$$  $$$$$$kkkuuu)))AAAJ_%%%$$$ $$$$$$[[[xxxxxx###AAAG\&&&$$$$$$EEEyyyqqqBBBE[###$$$111rrrwwwBBBDZ $$$$$$ggg̾AAAB^$$$$$$SSS|||ljiϽ֤|ë ???@$$$$$$===uuu`__¾֥}֤|֤|ɳ <<<? r ###$$$...eee^^^֧դ|ɲդ|ؾ 888= 0 $$$$$$VVVbbbݻྡྷثı 222; $$$$$$DDD```***طƴ+++9 ###$$$333XXX111***ɺ˽&&&'''7 MMMt"""$$$***III888(((---ûúºº¹ºº¹¹¹¹¹¹¹ûüĽſFFF1Oxxx$$$$$$$$$:::===$$$......zzzn(///hhh佽AAA---::://////..."""OOOOiii###000///111444666888;;;>>>sssooorrruuuxxx{{{~~~ddd???3 x@@@'''MF 888999999999999999999gggsss{{{E!!!###$$$}}}|=== B555OOOZZZ]]]]]]]]]~~~|||K" _+++"""1Nw %%%PPPߞpppdddcccddddddkkkuuu555{> ###p!!!!!! (39;<Ebijk ~``` y z {{sfhjldO>)333.JJJ'''-   )@@@@)()"!!"#  '%%%I ,^^^jjjkkklllmmmnnnooopppqqqqqqssstttuuuuuuvvvwwwxxx111U  `?x(0` %(***)))(((''&&%%$$#""!  8q~}|{zyxwvupW-)  t&=  @A ```}}}|||{{{yyyxxxvvvuuutttrrrqqqoooFFFI @ E? B> }}}?= ¾½|yݺ߾www<< ikktssů֥~٪êppp:;  s6a|'9Dת̷ὡ۾jjj8: b|2^yApŴİddd6< Tt.Ys:iR]]]4? Mr-Vq4a|PWUS2 A 4C/WpK}bPPP0 ? ;;;"""+6<[JJJ-: $$$!#CCC+5 ...###!!!~|֥}=== (4 DCC$$$$$$XXW֥}ߺרͿ666 &4 YYY######$$$"""333ܴ̾ܵ000#3 111 $$$***į+++ 2 @@@$$$,,,%%%1 SSS###***&&&``` {0 QQQ$$$###%%%444=== w/ 222 $$$;;;///r. ??>###999777n- )))###111FFFsqoקث  j, !!! ]]\%%%###(((PPPdddجܳʳڭ g+ """!!!!!!jjj $$$RRR[[[ر$$$c* ###""""""JJJ ###GGGcccí'''`) $$$### $$$666mmm+++]' %%%### ###)))kkk}}}...Z& &&& $$$]]]www000V % $$$GGGzzz333S $###444vvvܺ555P . ###(((fffqppܴ֤|޸777M  $$$QQQdddؽ֥~ῤ׳888I f###;;;ZZZͼ̽ٺ777F 2###,,,TTT,,,Ŵ999C777"""&&&DDD///,,,KKK;CCCqqq'''333000+++..."""NNN+ l::: (((///JJJaaacccfffggg[[[_5 &&&uuu8(((>>>????????????$$$tttMMM)?"""NNN[[[  2s333AAAFFFJJJ𦦦VVV### !!!###===ooo===-u"""%%%0?FIY bbbͨDDD333666444888;;;===:::%%%j?6662777<  1XXX&B敕  """"!!!  ###( @ '@A@@?>=<;:98654210.-,+(2 yl$$$"""!!! 2r ddd4o ccc 0l aaa¿YYYî,j```¿۳ὠ)g[[[8b|dɸ&g]]]0ZuFw$ haaanpq(I^>mr! dfff ###>[n]eee999 FEC˸ϾYgggWVU!!!$$$+++۰Ī˻ Whhh%%% Tiii---###'''Qiii===!!!...VVVNiiiddd...BBAKedckih$$$***CCCگG kkk***###LLLٺ̷D"""LLL!!!III˼ A""" 999xxx > ,,,ooo { < $$$bbb|||!!!uU!!!JJJϾثvvvn 333lllڱݼooo h'''KKKoooɺhhhbp)))###:::,,,pppbbb000 R0]]]fff,,,QQQHHH^^^*QQQ....GGGKKKbbb___"""[s000)BnyOOOSSSddd^^^>>>===???==== 7773!!!< 222f 0 !!!6>>>Y@@@YAAAXBBBXDDDXEEEXFFFXEEEX"""(0 ` S`_^\[YWUSRPNMKIH<v f CCC444 MMM@@@KKKnmk۲:::|IIIzJj~ʹ333tKKKg;i-,,l PPPIJJ'9Df&&&eRQQ˻ ^SSS***###___ܽҿοVTTTGGG%%%<<< P}VVVfff"""000JyUUU$$$444 Ev VVU###333~}|޺©?s"""GGG''',,,ooo˼:p$$$!!!ccc5mPPP1z999޾,)))fff̺(kkk===___""""???LLL###NNNBBB ;;;{{{H<<>>@??NNNIII<<'o$ҥWjHO/!Oݺ^zyt5g8p)b( I4Y$v"_d A$3Dxg>h'][OS.1wi%?BްW~X?pP(CȠi\=\;K/^NG _ u$8{f0g#Q A0 F'Ng0?]^z9r1U@ỉ=ug!B3o+u3A 2X,XXaXJŌټD`ſpn7˩ UK#z sB(-'9#>? } sP0(BC Z) *ՕF(1O-V0\3 ڥ饗S.I)"fR>1'H9=b@!ȅAAAAZ+ܿQ um0 jL/z9@/8gD`B^>Q0Y F APLPdci0!XY+(qyg=d2~oW;^Nv@Þ @k @sN+=3Cq@PU1V Wؿ4#X]a^[vn`8(0)>߹K/TN;qK>?<4H18@B1A( @ A)ЄRiFVF/WطJ4 @cY Ć .?{|~vP/B9w9e9  4PJT%Ơ ҰjU`iX`TiP*F pZ4&lg Y8k]_X=?rBԏri ]g-Q iNS X@hŌ' p~Ɵc1c5>u} yw?z)M[qv N8b-:ԍAumP7 6Stgnlkl?~|z^r9L"9by3DH @ V HQfXSÙpVÙP M5C+Vxmч@65}ӏ/+\V^˯0 8(|`FT UQiFY*aOQ,$ؚ[CX(fk`Ⴡ⠫͍^zy(ի췐;+TƠVB(J ƳNlLqbPvm WÉ8؆_v׿^zy*do@KV]!2#*_r55 (ɢd?YZkｗ^ 9=c'"(;a'@JL* hI+)XP("ʆ<89 8z匔= 5#r0e)*)զ× S4֟ht.q/J0O!*T AqV~#7  0EL0֡^ 9 wnv/qkvŠ@K(]@*@#C[ hаpQ0)=L[@Abk~1!bf ,i]ɬ`,7W˩=iTfIy@|?@KmCA /ɀVB14F@vzTʞ̀`@ Yl B 4J&T0Єaɨ#9b&V]^z9@qX=(Z$ "Piư ˰0(@wreO ΋t3 4+;@wJE J_Bbwￗ^N $*vK[h},8 "ŁD0y7@p 5aZ0n(U">%3J`GZ1 ̀uaIq@@g[K/PL!N:n@;, 8x@׊P7`1 n}3Fx`>܁t._3/AFAGE(:z9do0Aʻl۞' yup nn E@/g)8Lʌ6L1eC.cDhau݀/u3{9#dO|MYL @p_m!e $@_=K/D4x?(~-`;ew.bmAM@GU Ϧo襗S!{+T : @](ԗF\ 81NBb. %cz7`6ݺN׿I]/ڻw[z#{x[v0)5Ml6rƐů*ĭF27`ie?tQ~ꢸw~Y/˞󬾝caIX/Ly&ALf CJ( P C袄օҺ^; EWj!{@D]kk~P8 .BJ\/O#@0\^TtQ'eO׾\~;I>ۋsΥ|T f+7`XE&XU(¦5RQJ}_k߱K/O,+tV-ڷk]|N[AQl:pduc߮KI"H ipB2 Gݻ{$tBVV8t`)-N!.\x-a4 #"R  JC)>u kV v?{qt\|u%᝿tq]Zѱ)'u\WXR2ߑ^Bo&t3c@,Jb ,< L nt2nCY*,X P \Ú "i^zy[@۔L^Xoڃ fŨO^0B[.ZS .ADpFY>pξ VFX^^dV0sD΃8#w O[˓himm ܺk[|jv % s%&X4,4k A`ӷ_y*\t~\r!*, *AB"kq I/O^NpRMwk Qo+f婴h8 < q8еc:*lr |`'g+pٳ5585üVfeV~UavoOq?#DDg_s5Uy 6Ĺ}G33O͞ }fC:_؜ /#فJ`m+ő!w;Ǖ׾乇Ƕj8+ R*oyHSyOm?sѿ|{q+/ȻuEy:]w5\5E]D8kP# V ͉f;#0tYɰvR J7N05 kG*.?u˟,\|~@ǷjTQB3*dhPDX(><4-d)jxl?'"rmC^_jئGkw}7f3\tEN\/KܱO[ t1GQQØF(@`$ q`2L[8:bcs>V ./>W\tJ_QHOVfN^Xx)3V>L\ $9q<8 ržf 9y`GȑDO8A:c} Z.j*lS`Yi,&MS;ds@O㉇U}_9<\tY82JE h q0Y( #vK?}Jz -?{xeH2{v6}/=o,vRmee%~QC?e;s 1XZx¢8bFU J, +,/ oeե V(8xEHX0kM] %8?$&/kǧ+C? O_}aO 5jx\=(vj8YT5f-//x*fyohpPz8r$0pP@a#H 8%dJE'5ż17uc4 1 66'lx=n)3RDw`v/~ YzNN?:@8b+=.sS/Ѓ/W#i4h8d2h49=@E"W9"YL^+ŚL kħ+?YoE$aB€ b#HV^Ak5c^7ڛ=DD@iu+C bb퓻SB s({c078^|~Eg{Wb.T1///kZl6#]^ܴPqF V>ObAbA@! Bp ʗ&csL!F3֢i,~ 18 -=oŧ>V9!f;Eaa?/ P1DRB1bDs+@G`[o0t:p8dftJUUQY$"TuW~+t^@',*(?ñ&A"(ċb+ p^`:4`^L5q~1lMgGp_BQ"@ TKnvderO~WC-a:I-C߫6Ó(02#G9zEx'PfLq`_:ss!Yk)X~*˒1I˲izC 4Ms9>HB5B,J,>QGL",L(Ua _;a0B>}4>wa<1^.p3a< `u~/o}[oCi0WA Sa(UR\'qg>ƊP_{a77zW*9C/}ƞe9(?GÁ;'؜pdv&_ n}?GOWxN<0{֎~3@4r{+9UL]dkdd! Pq*zq+^6 ,_ /J5~l cskGpõȇ< >5b^J{ȱO$ji}L'Zti@ mv* zJC)cKMDKOW%ygs:|0677ieexWUEMPYGfO9* ?~8uu79RUS,Q3ƒ@Wb0Q uc9cc`!@zšW..߱e͟~kd СCߟN4y>'I1=03;(JkE>_zX*A΋ (֌RP_ 4a:o017`72xd~|fE0yKJ_h|ԏ9Ƿ{/'wj䖺}-m?/Y|t< f`猀 P:+4ox[+/=ڏ tʟoAT~5)^ɇ IDATuMƘ<9R~\J3 XkEk-,REa?^9sā/D| @lJJy|a{`W8k#x±{ȑ#mozӛID(i7>MW\&Zh/QXO1~֩ӐSDdv'~!~X@,b/ԏn!:dp'̕?M扖mm6774i68N4?Z@"BRJQX+L $vhiz;?~Cښr-!5$Jz;~g?VVP%tYDUA)[OugﶈVvH}Uqn+Is qN`J"-x $e;{O(Ze$&'@B~ۺnx|7͎ +ʓk )C(8)ܓUUj&J)bflt@bf fY)%eY: ܔ| 7x#5@0@)u 9- E K=_#@u@~Xn^sî~Bi6ټ\krQ2?/!-pF# D+o$@ȥroz(L܊à 8 Dܮ-n y3<\՜WEw ?t <͠f\gf&c 13eI4)k-3313b ( x_`Q֞8x:p8,j9t])к(tΡ0i(/>՝}*D/P#v @g_"ucK72{|7?~b& @' +*sヵGX!H HI@fgP`:(( ‰1 Z8Jb~bl6L6cp+χ]v֟}ҕ?v>U^e |/+,KRJ1EOJ)2ưPPt2p!Vy@9ZZ+9C4(UUɡCp}1|(*3 6Ls B OM,?9fKh`,Xe@ q0mev|?U1bgUs!R"Qw4.[H;͛GFx*Zsə@T\ ]%Zt+Ēo'{ 6Ayk"O [Y\G drO176 5&sL&4xFW]u.R&@طo-k3r >:O &(h̭4i@4V4"Ll/hF ,ùeؿXRfOt|z'Ҭ5@Tt1D9b e3:ǵH'`@!2ڞm'4&q!&@`әc3:` @|Wx6 f vszztqpg$hn07PU$\!б9 ٸ!p#vPs\[э18آ6N78]75"fnfnV\J37Rڹ#焝~\Oeb"r`WZj8Vn4Qe!eYJ5,E3IUϿS)Mt1*ALgmn|uKlPxDvƻ|9:Ǡ=Q+ M iJ8SAL!bJW!Uz?YiAy=0Iaצm<>r'՗h3} RJʿJ| >R@i_e@㣛BZ=uQ\̅ 2nv?xx<﫦w<.ѣ <47_o˾y_ 4Z @ܘ=Su HF$'d0:qF@V @,+U3!F(fǀӵrʰ5 ɱ"0j!0+; @QJ?p+WB\ H4S)QwBIJ}/;"HEQ~6M=ed@!G  $.>~?Q0\ t݆T.[FP"3mYh_ /!֍X+PA_ Kv@\HD[YBOEzBG XX;Ğ!yg[DZٮسot[ҘLǯe|$Mo\VxGs:M>wӶM n@C1 ޺&sRҜ $KM ?ǫH Y`[T. a!/!܇Z$H:`׏ x-H;IʪR AX|ۯ=g`>K> ,7kI+/)qsp~\ӹT*ۉfPWB9.8`4M_[` a՟B2rB(ƉI>l-uwƵ+}\֒qfL}4ٳkΫ |EFٺ{nKӲ>ٟWuenaSbzkBdaٳN`7L 7Z]]YW_}4e3(s6{%a).YvEiWIv\wT䴮Xc}ka80&A، trMEY@kidMQS)u2չ/Eg|uO#рpM݈pѐeCxq_qqB|6ޙNRfꜟ"c⌮Gϟ =Rp$ph;nq`g*;j.|O>S S?h?lggd68+o#bwڻl`zQ`@&y@"# 9# 84C&5a)0tXnrKEBMEMg9#(Rl&]r"H$;?b{AwBf_cd@GP@og *4XqvWx,SaMul(*%JxI&v= ^g9x6rݍU|<ݏX4tqXPk`Y3!G| U2Jh ._B߅>@Q'޸^A*AKv(M; D'Xń5m߷ M6ͭxHP[e'矬'dR[&,v yRZ%`m; L P760hK3A8gQ9IJ!,PU+`lw.ۂFTlRDYL;`@UPӱҖ{F73{ouPT>6b? 1E (b6a7o}&HE-`t@YQV%;~>XT`k-k=?zñ7s$x'03ؐ#.tuo'B %Ǒpqjo$6XqJqG+dPq ķ DZj AAcj]A03kam[2O.2 SCU8;d., rX.wvS XPUWs$W ?>0E.;e.Z2#s &m|f 6=ا6n ʟ?XxcaYQV_3w}n߾}v>OkmŽWҨ fVQa&|<ާn +ZVD E`GaX'zNE.,cMC eQz`2@wwmT& )D[4mǔt$Uw@Ƶ]?Hf-\z7{'ΎJryKOܢ4) )b_@8k}0hKw  D(ړ@3?#hGLN*kml8t}.yG{z g#=u^ j+,Fc Zci_t ]/,-vO;̟7' ʞy|Y $@ E6ֽ61>+;0^uW _X$1t-o)ЋK?p0 Y?B3m9Z@-<"DA`ب;"hpqhOޢMKM+&CP'#eP`E4.@I,1@f_Hz+H#-b{/?u4sH|i;p'vŦŗc{-|hCV#i/$p!4́(ft @ dz?.KtW"3 @,3u#"[o_vhIW6;Xge'O(B Â}GqWhY!/ JlB\H(9BcP p Ԭɕ]e'Z19o Hb-.P;lkXb:Ĝ̏:ӥ2dǢˀ/{C I0'kan*km}DD 8 (KKKرcvuu!{Co?d'n1Օi}T8$?~@$$_`08T!lhЅ!O pLPcZ˟uhFP`TG V5\s%h:|EP§{B~ iq L[-sق4'\8׹y[dm3Q()Eڕw\qMP^t=v떯 ,2[܅^h)˲a]oנ#+(pz_I@b u'5ܲ,CE&` B^]'P 24iL ֱ.6&K8{u2 .> 9x]w@]ZRQrG BI#fJ0l @ڑ9.eve;#S-(0YN@eX~Hyh_>Q3lcd08i@-7~זwF4vT!>w?Ff~W*Rl-` mI۹s0Zzπģ.QֶtN N pm8t(Wk\XuXt3ƒ_@ !dP߬ނТwc;o?oZ2 w}  ҺfA[:(O7}{ @\d*U͛YDPTDtVR΁ϵ-cE?%J5X >w8oe_qKY\ Wr38C~u""(Ev] 8+ (1Xx좁I'XCVq3Y/ڍOǎog+kSUU-"Of?H˰k4$)ZV38:@BLizy\կ+N";`\wRL'8 ]Q7H)a;F3dgl6f,ډohH O9[n`Q ҳ@A /-T.:y۵G.$R?G/.}a$pnii0(;?F}!zykFFJi I|vs#-H9ᜀٗMaN:`cWE 4!QarbXM].t="mYm;I{ySn6˽ٮVaB+g! oi \=AmΙn2% nc&I@\dc# B["gJP2LAs Tq(~֍!L] hWn>7u]tAvVIH}%L+A _Ol]rw$1 k 5fu3(Ĩ qx SO1T<6|S9ZIZqBTt)|\qwmkyQ08t]}`:в.ExH|OHÏ!=/)'u|28fC@\,g\J[B|;\رZ]Aa\>qǴ㤤兀 Nד x:q49e@b]`;HM9Le"H'cVušX91._~oe ٷoR0֣~~84۱SH@ks OḤ3u@< 7, d 6Lwarhzp0$"Ն ha;Jܝy[b?bзUFrݱϷ2(Di_~ e%o^_.3F:WFb-IŬK}$tmlgt7T .@aoܾAdӁb0(9\[Ǔxgܩ N0W4u4/ IDATZPj,[! @kLe,[1N1J9.NVpŶSE ;K Hm vAޱPG(-nnwRh-\iٹBvO' zg4@hh{ϝwS~lf ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z | } ~  "KKK*kmD>l=&= Jb 2g@,2lPj0;6771a9XEO5ҝ7 v&QOCQ-6ۮ(:;iA|\ ۀ nm:]w>S\d{>R?738pfh舟o(I2;qٕ[7ÃK2|w11r]@ķEJfU".jV@$h@=8='}rng8-j}iJk=y^9&3QvX$U@l*EcҼ ̴O `񧰱qǏǩ':lZ+rJ j1bHx@huɾ9 h0=!WQDQ(k PJ/\ONDwQ(y67f 5q ;LtWS@h3O\ _&/N^ƻgEEl|vj`}%Tg1l++8ƓXh1ڵnԩKnZAuF%9 =)Nџxd"A׀De]Ȍ< V ^\%5 ʺ!~ХE Գ,hp44/o=?{MvmdeYVyWM/2<) D 'Y@J(4-,= !0=7P6O?;cq/Gu^¦I8 f@g BG(1܁@fY^`%vHrBʖu Έ~JIJ0z<9 U,7|퍯V7663 4K6e֏dVP;X|<@vJi X%C`iX^ !}BʒPA| D:jр zV倎=5TP">m,!PbəYN=o}ŧ &4z d?u !Gލ{w* R[n)^o^ˢ^ͨ0iQE\Z,8'ȓ%gm؃C[#ckΘQW/ \%(Kj} o~r!ZI\id\4bc$,l*j4,Mv? Pe)o\Zr*8WP{nZ64x|,~gJ'p/J)UXc'pe/_}eU(.'ȥ X84ƈ܏D@یO)j{@aqhU.Q˄pd ^ؤQo6m)X%9`i!YIV뎬/c''F?)ғIsbvbZ6(>~G۟ xt ܻ#tۏȕW\|!]Zk=ZWw#M`x)D]E2rknZ (ưwxu /-7p_0gLqifx Zsfʆv4kZLHbog*AP>Y̥ywy.@/D!{dt 6!$>#o QPo;[T!VϿoJ}=L3-u-S4vxJyI<7SNv !gKB /׾e'G-\XC7pK9(T;+/, m b6dJ#vp Oɛrۇ0TWW? _%x>,^\\(}˯ LUZ ENPtAYV]rj,M됍%dlsHd!H|tMO3trDxFl)U, HK>qbqF-GR'DT^ۏ^ɯGDwP-heo?{CK*49,c:zhEx696%Ld%LxtvƓ백fDHp..^N&|#lM@f`>q?q_{=P˯LVN˾g={%hYkg1:z x2Y@R0En9i >?ȼkq'5#uW/FZ7uE!r"T s "N:;-ۼ"ei 8R^Wѥ<ö}.p> +a_t f=1yiށ_w>>|k.o8_ӄۧ766`P5MSeY}h?`WW@STJn8͏Vِ.zW^#C,S Ls#p;#/^Z5 IrBt?268 riˮFTg ςwz׾n7 \acwUJò,%|Ͼɷã^bNNH(1;iQ|V\姴{*]p+sK*$.#e\Peǀ8((p(JcĊ@l;q>x] &Gd>VʷA7'@QG+4~ϽJ ` >:'w1=ڭ1;1ZC Ζ✜)eB2Q>Ց2K k L˜z X FY @ { ^%|`Za٥)bϯ=O$tVEmÝc) Q,1xق*٧G9r0CxqqQӂ*fy~߿ۉ@ L/M:CcKȅ"mElI7)q2(92Aү4Pvfu+ ]"´—fb!N9u 5B" |gAf=^H7-4[9 Tڿ4?0n.(ꦛnB[VJ-Ҿ䠜VunFۂ8%axK!#/Ww$.EGpG|T/(˙mll_t @܂ 'l_P.JXa&ĕ|ōr%y6cv)#ai]%hfPp0_;\/,j{#髳Ps5!8ς;cs?X 9rv`ۦMDB"bwMXF lp 3b@_rM.'ҭ 뺶SG[s d@k)&ci2рah4)(2 `Ym s&*J3f6oZ.C(t#cO KҐB)$)ځL|:@  s %4#l/]}TVe:EY?0*(ϭml Hecr NJK.39՞_ ض l)rM:87E)F 7-A%]a;5Z37IatLt#)|uk(bfwF&x|\;w?{9 _w<u߷gNzIqn3tR%6t}(,Q9D:i'RSQhiX)IvӞ#Q|,T9a5@3~S@2EjFKܺ idȺqX'$H@(k?sǥ \PN ՛>gR%t}n-z"/J YANs1| 0 Ǒ$ ڗ,@ s<gـ8KP'߇s FE>}ǮDTHcl}F:;AܰFh{3FC(%TjAHA!Fj KD3PqVmJmd\+GkKHm @TGkNN 5#`D$X"5XZ @|NW29ݠ`dt,ߡ9a*l? T1ToS 2 i/?I2 6"#)[s]%|eʶR9 I=kgˁ?'ctE`[_i_7MOk`K)@LeҼ'@@TX_FCe.@ZtCK^nש :yл p1̌iAozդ_hZ W _^ pG%G@p U, 82E BZic@ `^P@b A @tjGO?XT% pTcN\D ,}-BQdRVF]_0gj#'}R`ADߢN )5fAM( v@^,ǭ?99p1.iAeYV[TWS4DRјأ$+DlNE k|c9Ky˂hrl|~9mɴٖϛ|q/} rL#G_7 ((| InǢ7z\oṗ#{@LuωՍ@h3uh:vHƧl]o>9FFp#A -1k/#p`]2"W8A$2c5 _f@ KqBol9.' JK4 `hFr 81SX[fN^՜q3Оtw2ЎSBˢ<kD. oMYh#Ą`jgD(',/y&!hx#VBZYE> BU^(:@,Z%'7h7E[ `CQ%h Р#5;$?=zGވub:3ОT1ܸټ z#S| E3ѸA\#] ItGQ|PiOTa 34 O׊8@B$7- Q6We3_J+b>!2RiJM0Xou7'nk?.jHg`ߟ]{sonA@A919´TFCkWc r w;9G,U^TL{©T@ ,uqV(7p(r:c G~d`+o.A%Fp4 *V?:y_p!{;-nfw6dAn/Ę(o@recT΁s|%@ uj<ڡwJήI3u~L iA2dVJ?+T:z,poƱ: D[,<&+&:5> o?0/\):7666auu8X&f4D/%VA]נY~'JHMƤ|\TmKnk ( 2PgZH棌 c4 '} 4'"mGSh_Hз~, IDATm-pR>$<fߏԯdeŽ溴Lddɤ/Ur^)P3yv@/lFlQy 6/ԋuՕ[C\D( _: /K^3 @>$Rю>z f#P/\28th&;-O֜:VDBkh@ 7݆K~_}wZֺct7S坔< o; Pû}?99>;-ϛDBz}Yw׳G9, fw/HA#O gU*Y BSaY`ß^BsGW(~uY$t)?P=-_Ҩ$@5ؤX57$t9VHe2NI)9Xȵ嶎k 4vh(GI!⼄qg%/Qh'l~G<ʪq}faPO&AFԎa 4Oӛu*pɦ@ uu(+ "(, eFӁ|*ɝE/?Gr( Vc F pKs yN†7*n4@岴@֝:$02@˜lB8nC;.@??:1]@ѡevłbTA0ɞ/ /4:ewX<D2 " vَ]"auҜqTV'>A@ -"hp4· ^[-aХFyrZPכJӲyϟE~>7ZKvpdR& $@ЉFV$:lR@l tcװd¿̔eKy@,x"* z`Om$zT[g!L#pFѿ?hw';UGh-2YA:2zb`~#o'(|ƻGBJ@iAPˁ) rH^KTɗԠO._[#ɣLss$W_/| xgֺ~HqqT4Ƴ @`I$ee3s\дuk3e3̕ɴe(^ k vIEAW8 n-2ftpxV-ʢ޾s|&@@TH@/~4"|Yo -@(Tk-q) sjYQ右L%!gt,bG3_:XqC;cԀ*>i373'ˇܤuC BxMնMvPS%$cyi:[ X@C~%JGtgA>;%}`7r?Š2ecC6VEyi Ěp"/>6QbE()6ߨEB+yZg@QY{ALC% %;4ӱơ єL F4 5`-vڮ14$6!9 tF r`7<Y)7V#(! Im?"\`u][_}@y{2x= f#@H}T  'Bx(.KӁ@'5T$;0H攃9 PDlq)o2_/Mx.ie^ ZVr!PqbbY^2R xMeiAVV Phmk%[: zd{!'p^eof yk} o5`7@ ,@Zzc1f ^6n= m r  硤L 0Et \H-2< )]V ȟߩҐG7]+MKb8XHz @@Z?r0f/* k dDFc n Ȅ@cΖ0El#T>l)@`|L29 Bðh!1V,yxRDiOb |wWϼos_N?-gxZ MsYnu-+@ o D%3%p9"vM heLr#Gm !ʶ3K@8 "? an:M@ Vt E8/|XA 2 dH1(,TdA\xdx}>л?[]e8Teڜ  fg$$) :#8]@ e&l$@Jod" Q8M9@foC2;|3t\)gDܭ9Dv7-JrG)VOգ1s2ԁWeQxZ&D{ ?#2[)-{%s5țPɏĨwhRz%e F"͸eRD w1dUqC:%i;%bqUIf|v q:ZkvlC%Rzq_Z<&@-_ߨyO])O @fz,VK1E[o-jjF3҇5oӜk.9mO ߶e@XP䑬sg,a[޶AZ#quuTL^pAG:zP9h%V耥9ů8L$Y(y{KI6(,2 ^ p ۹;puש^z^YE4MO?W#Rù5R[ɮ2}&g[Hf[A/duzd^_:BoR[_C 崎LS3孝 / ?@łE_@} @={o>|-xqqQ:(gO uL^OwAcM&ƌm`EMekز߀ݎB`EzklB-&gƊ:|RY ͜LbkDŽ3}h@B!\7p &5u{A ԞA;WT|Okɓؿ?5MS(J"*Rui5_OhLN)k $^'yDPdz!#Saf5?o`r"ijE`7t5q;wGНuDrfqI=-4%!A$R,&hϫT,77Jy;-b, <-. GFòCkm]4APhDIDC)f@G_&B4sgŹ& 6X ~IhiV"|KL~-w/ݶmUP<1(%ځ߱:@8v#qԾׂ p.mwzq; <~^f唑_jM a3ÒG|3 XA<A(P ._F@`A O4f[IԝشIqYAN2ǷT_3oHd7b_{< ^PZ|5hWPUo{7{2^P4j0J^4WgU=5a3/r+igʻiɋW ӑSrA,[lCΕ1Cẘ"f Q&c]5vK4_-VȒt@VD5ᭉ֗|a۵R*zvEm8zuZzD_fݔ乗:DvLIH 5䨷zѠ7vbHݔON AXý&˿,oGmrm!gڮϑE6mYh_NǞ<7 yvT"_k{fȬ^“tuŘ!n-*\-~PG7.ÝኳN<~OZkUE־H_,2B̔EHքw4EAGRqrNcR,A>Z1x4Όi5o7 7iݎN:{K?SB<.h {-%h]>Ͽ o>]xAekg\'Nh[v3 v)oi'??Dإn"$;D -N<d=3ɦ+ldKZ1uҮD_è(hf uA"-O?vPp@)"N\߂^ ꕕG};;;ŁđÕ6n:rHo߾j<OAUug/Kk-g,,l -Yo-xӇ6eC4Dحvy<=;T h ? nZ EHm\Ln42ܚ-CZwS"%z<4K7W_Iv!O>IoTK#7QH(oA`mm=83s]vsL7v{(n,%{h}Wͅӵ֐hy ȓX˘!W45Yƥ{ T%Y4`_ȴ?.tlXKK:bxE-#I02eadʢL}'nVonʽ?cRj[k;zniJ+n&INoz AP hшl K$=8h2Հ7dݾHH1i틙_˻;z\.iL28J~[\=0ME] {!VqglE5S3XsQA'v̳f0eG+`b悈zDWJqoqqZ__ +Js`Jk](JgN}wbw("' ANܠe vXDY.Q= r^wGQa}m:"g|b(e%8k ŢGC"<(:ik0t4x9@}lomoG~ +O 5R5Ճlnv>vT/6a-N&e"ګZwK )+$Yc`h{I"A{$}t J^, pYGx3R#јֶiM =\(š€Q6c@V`Jc[>gw¿|Y&+"iyi^`|Сk+^ :}4zk_[@ JZ)Y aPmMudq%,@i&?S"M}>"ӊv8VKd3YQUs?{{g> wVY+@n+Zފ[nz%{Pȵ5o綱Ýx`B;Dyd]mKQfo@S'ڙC#_{-&"mfZoh7ʲ +Juk꺮qQ}zF+'ʇn$d|MVsO$&֍Y"_[G/1$20`%gc}Q(n)oDQhb8 m_#2/QRNO/Fd?s Yi%Ͽ?xfssg3sQ4 +d2ӌF#}>U /w n)fMrUU{R|޻p6V-/A{)Y!tԂM@pnG$& `?Mʌ}UGrdqw `I+m @VPp]8;?%ӂӀXkU&L&[F>l?>Ю 8qDwފ(i' {9}o/,0Jk2(s;JD a@nq&tUxkVsӂPs& ̭(ʈ䓒i/OuɡvLQölx()r^ Y(h_ƴw oLl@A[Zk{sSO/[w?ԙ c naZZkEY5MSu+Z[n`a0,^b=Y^9J?;jA/,م@h/wg yEn-Y8sfJdLa"T#Nc&QS@V{7vhgtSg?{eW*MFZ\E4x_|n5dX&?Eyᙖ%!QRRa8Tg/ HEXԘVfELK|Au't5Z/PU}7Дm ; vKDiRiFQn M4F+cԨ(x<^^ eX}m>'^=<߱lC߳Bido|Uo5(2q[hS,MY ~Nw"YAFD$Y|j'kT!1Ch$0M&OgBQ3 @Z}U5^]YY{GN|W~/MvԸ)Rjz"jJA)˲ia暈xE뺪jyyڪ_7sUX(><طo߂Rjr]˃A/oyߩ#j"ߍ6g!N+oYuUUMQMUURJzf45eYꅅf}}[omy;=, @-kr?P\ *]dҜ]]]{'|-;3.xޙD”ױߺ,(d2iʲlʲV>sVJp8ԃz}A1a~;dOQK6MT ^cd)i4V 8VK.Tu6t2@0?VDF@DHbQSsuHkk\Fky ٳg7<t럹oeVwŽVfWJ麮R)"Fj,(z== .˒p8e>x1ٹ+8(*JOToFVp V$qqħsS\^[AҤ{7֤Z] zQN˲EQ4v7s %qVAUUEQ,2-~7xm4Z-9kk65A䜃N-Xsyrm,E @BwXjӫeP^SM'Omz[뮕/ڶl4mnXЭ9_׵. EQ4J)mV:ba}7j:p@qȑ} f^xoN I? w.oO`bfA?RG#\ @@2!qQ;d>B7AeWK@(0x2ؘ}_|t{?v4 xg6mZF xYx<9> 43v5\+j,Kwd]o[3os+mZl%D#ryh_ "nAVF" I) 09bYk#C&*@jO+BI əщOn?7ȧVyz-NV[a4cLvw=z=)ކVth:w  ަiy%{>Ǘ" [ UjvJ I <$j YvX=v/['h<>9YY]92z }cVhX 4["Z)Ž^Oomm]x®pم=VZރ?r4{˞>[?fNUAs 8Tf 1˃֝԰jؾSWvqNuzcs|CGO~־[5H❐KAfJ) ( ='zWvPwqG?X*b}/'4@d[~h?y|+d>7 b-/Q =0>NIUUI}vswЩIlk# .uOrooo[9!_O X$@ ܬ~4 5-n,0G`J-b<.G^[)z ol}[݇4jsR5QsfkgQN?}d=_Z6s7!܁Op ||<hdKs&;BEUvpV]lmf("=p; `Pfwy/L{u!LU 7*X:xp>5zf.3qk݌ٞ4|v2qsjc>qLu?y*v)֓n"v^"p9'uإ_c/bYΎ;>7˟藹^#kt!Bl 7(Vwd!S׭! J(UTVVJݰ5FulUU5j[;f;'ɯⳍlnιx عd4-cMt{mzccc ~).8zځ@ȁs0`uG)R<$>ٷ*~;Eq9ޖVA{"n@ak *0B@FRDoMj17;c}vsnUgN5G׫_{:]bG"í6Sr R`8onn Y Ёcǎݻ0%"{/k~T$%n@@spp h &jMs*@`\+0|@hWA9nI=xl쌰ַZ}Ȋ>Ouk3<뵘y ΚB3s,$%/'@k_` yEx1` e0h.X|+\yeڷ. p^\앴PiXjHEInthJzM]7\5459''Ɖ/>:95XPcGB i紸RvM 5k[jY tS_qxf^ 3(M!@(>- ;'ܾ&dkK'ZQlL[YY4ǁV}}  `g2H+ x hDZKD$;@$8=$5:$27#/2"+-")+ &'%'"""$$$)!!!5$$$6"""5!!!3###0 .!!!,###*!!!'!!!%###"!!!$$$ """!!!%%%  "6; $6; "37 /3"/4$D 28#48'AH)KU)GO(BI(=C'9>%48$/2!'('( !!!0"""D(x,,*)()***+-/ƽ11y0t-n~,fuw*[ge(DKP"##@"""?"""=!!!;###8###6!!!4###1###.!!!+"""("""&####""" !!!"""!!!!!!###$$$ !,/ &:? );? !05"/3';@)BI(FJ""#<"""9"""7"""4"""1"""/!!!,""")!!!&"""#!!!!!!!"""  ###  !)+ (69 %03!*,&36(7;&14%-/#)*#&&"$$.1!!!###-!!!C)$*059<@CD""";###8!!!5"""2"""/"""+"""("""$""" ###!!!"""%%%  "" %'( #$$"#$"""!!!!!!!!! 15!!!+"""A( %.9ENSPǼA|:q0Yde"%&F"""C"""A!!!>""";"""7!!!4$$$0"""+"""'####$$$""""""""" "## """!!!!!!!!!!!!!36.1 """6&S\i !!""&2>JTXUC|8eru&*+K!!!G!!!E"""C"""@"""=!!!:"""7"""3"""/###*!!!%""" !!!""" $$$ !!!!!!!!!!!! =B!!!!!!(!!!@& !!""""""####*:L\^L=s*?EZ"""K"""J"""I!!!G"""E"""B"""?""";###7"""2 -!!!(####!!!"""%%% ### !!!!!!!!!!!! 58 14 """4'dov !!!"""""#####$$%%%)9K\cUľAz3[en###M"""L"""L"""J"""I!!!F"""D"""A"""="""9!!!5$$$0"""+"""%###  """ %%%"""!!!!!!!!! >D$$$%"##>% !!!"""""#####$$%%%%%&&&&)8J\hV>r(36U###N###M###M"""L"""K###I!!!H!!!E###B"""?###:!!!5!!!/""")####"""""""""### !!! 48/3""" 1)r !!!!!!""#####$$$$$%%%&&&&&''((+@WjaE{,=B[###O###N###N###N###M###L"""K###J!!!G!!!E###A"""=###8###3!!!,!!!&###$$$"""!!!=B)+ !!!!"&'<" !!!!!""#####$$$$$%%%&&&&&'''((((()*;UmbCv)47V###O###O###O###N###N###N###M"""L"""K###I!!!G"""C""">!!!3###! !!!:?""",#kz} !!!!!"""#####$$$$$%%%%&&&''''(((())***+,A]q_F!!!###-" !!!!!"""""##$#$$$$$$%%%%%&&&&&'''''((((()))*****++,,------------,,,,,,++++***))),99_ >F6< """#+-; !!!!!"""""##$##$$$$$%%%%%&&&&&'''''(((((()))))**+++,,-,--,-,,-,,-,,,,,+++****)))(*:9 GR """'$k~~ !!!!!"""#"###$#$$$$$%%%%%%&&&&&'''''((((()))))**+++,,,,,,,,,,,,,,,,++,+++++***))(()7DE 9A28!!!###2! !!!"""""#####$$$$$%$$%%%%%&&&&&''''''(((((()))****+++,,,,,,,,,,,,,,,+++++****))))(((3B: CM*. "$LXV ! !!"""""#####$$$$$%%%%%%%%&&&&&''''''''((((()))****+++,,,,,,+,,+,+,,+,++++****)))((((/B\(?H$$$""",$ !!!!!""""""#####$$$$$%%%%%%%&&&&&''''''''((((()))))**+++,++,+++++++++++++++*****)))((((',BPP >G7>",/:! !!!!!!"""""#####$$$$%%%%%%%%&&&&&&'''''''((((()()))))*+++++++++++++++++++++*****))))((('')@B8 HS!!!&$j~ !!!!!"""""#####$$$$$%%%%%%%%&&&&&'''''''(((((((()))*****+++++++++++++++++******)))((((''&( DN -1 !!! $P]W  ! !!"""""#####$$$$$%%%%%&&&&&&&&'''''(''((((((()())))))***********+*********)**)))(((('''&&0IL7 N[  +$ !!!!"""""#####$$$$$%%%%%&&&&&&&'''''(('((((((()(()))))*)))))*****************))))(((((''&&&+IIh!@I!:A#03:" !!!"""""#####$$$$$%%%%%&&&&&'&&'''''((((((((()(()))))*)))))))**************))))))(((('''&&%'D]8!JU """%#j !!!""#""#####$$$$$%%%%%&&&&&''''''''(((((((((()(())))))))())))))*)))****)***))))((((''''&&%%%;M@DN!!!/$ !!!"""#"#####$$$$$%%%%&&&&&&''''''''(((((((()())))))))))))(((()))))))))**))))))))(((''''&&%%%%0PI7!FQ"/3 ###$S`Y! !!!"!"#####$$$$$%%$%%%%&&&&&&'''''''((((()(()))))))))))))(((((())))))))))))))))()(((('''&&&%%$$)NGx!P]  )% !"!""#####$$$$$%%%%%&&%&&&&&'''''(('((((()()))))*))))*)))(''((()))))))))))))))(((((((''&&&%%$$$%ESY!BK6=!!!#26:# !!!""#####$$$$$%%%%%&&&&&&&&'''''(((((((())))))))*)))**))((''((()()))))))))))))(((((''''&&%%%$$##9S>!LX,0 """#$n!!!"""""###$$$$$%%%%%&&&&&'&'''''((((()(()))))))))*)))*))(((((((((((()))())))))(((('''''&&&%%$$#$#.UUO FQ!!!""".$!""""####$$$$$%%%%%&&&&&'''''''(((((()()))))****)****)))(((((((((((((()()(()(((((((''''&&&%%$$###&Qm<!HS;C !!!$Vd["""""###$$$$$%%%%%&&&&&'''''(''((((()))))))********+)))))((((((((((((((()((((((('((''&&&&%%$$$##"#ETF !R_!!!($""#"##$$$$$%%%%%&&&&&&'''''((((((()))))*))*****+****)))(((((((((((((((((((((((''''''&&%&%%$$##"""7YT/!CM8?!!!$5::$"###$$$%%%%%&&&&&&&&'''''((((()())))))*******++++****))(((((((((((((((((((((('''''&&&&%%%$$##""!+[Km!MZ-2 "$q"###$$%%%%%&&&&&''&''(''((((())))))))*****+*++++++*))))((((((((((((((((((((('''''&&&%%%%$$##"""!$RY=!GQ$$$""",%#$$$$%%%%&&&&&&'''''((((((()))))********+++++++++**)))))((((((((((((((((((('''''&&&%%%%$$##""! !DY@!HS =D !!!#Xh\$$$$%$%%%&&&&&'''''(((()(&&'())********+++++,+++***)))))(((((((((((((((((''''''&&&%%%%$$###""! 4`_E!Sa###&&$$$%%%%&&&&&'''''(((()*(%'? &)*****+++++++,+++*****)))))((((((((((((('(('''''&&&&%%$$$$##"!" &]I9A#6<9%$$%%%&&&&&'''''(((())**'$co&****+++++,,+,++++***)))))((((((((((((('(('''''&&%&%%%$$$###""!  LWF !O[ /3 !!!!%v$%%&&&&'''''((((())***++)@')+++++++,,,,,++++***))))))(((((((((((''('''''&&%%&%%$$$###"!!! 7cG:"Yi  +&%%%&&'''''((((()))*++,---O++++,+,,,,,,,++*****)))))(((((((((((''''''&&&&&%%%%$$###""!! &cH!JU >G$\l]%&&&&''''(((((()))*+,-...Sn++,,,,,-,,,++******)))))((((((((((''''''&&&&&%%%%$$$##"""!!  QXC "Uc """%&&&&'''''((((()))*++,-.///+,-..//...-,,++**)))))((((((((((''''''&&&&%%%%%$$$##"""!! 9gC< LX"8>:'&&'(''(()(())))*+,-../00/345799:;<<=>??@@@?=:863/,((((('''''&&&&&&%%%%$$$###""!!! &gG!Q]"26 ###%x'&'('((())))***++,-./0123E;=>?@ABCDDEFFGHIIJJKLLLLMNKGC=70)''&&&&%%%%%$$###""!!! VXA "[j *''''((()))))***+,-/1345689YCEFFGHIJKLLNNNOOPQQQRSSTTTTTUUUUUPG=2(%%%%$$$##""!!! !LX;D %`p_'''())))))***+-0135799;;=?h|JKLMNOOPQRSSTUVVWWWXYYYZZ[[[[[[[[[[[ZYPD5&$###""!! 'nE"Yh """$&'(())****+,-025679;<=>?ACDwrPQRSTUUVWXYYZ[[\\]]^^____````_```____^^]][M=,"!!! [X@ "Sa!!!#;A9(()(*+*+,/23569:<<>?ABBEFHJmUVWXYZ[\\]^__``aabbccdddddeddddddcccbba`__^]\R=' ?n>?#aq!IT!!!$|())*+-/13478;<=?@BBDEFHILNPhZ[\\^^_`aabccdeefffgghhhhiihhhhhggffeddcba`_^]\ZK5 'sD%s&Vc !!!))),-024589;=?@BCDEFHIJLOQSUb^^_aabcddeffghhiiijkkkklllkkkkkjjihhgfedcba`_]\[ZXR8 aY? +)z%lH)*-12468;<=?ACDEFGIJKMNQSUW\``abcdeefghhijjkklmmmnnnnonnnmmllkjihgffdcba`^]\ZYWUTP9 ?q?A3)-/1468;<=?ACDFGHIKLMOPRTWXZjbbcdeefghiijkklmmnnoopppppoonnmlkjihgffdcba`^][ZXVUSRPNK2#vY2,02569:<>@BCEFGIKKMNPQSUWY[\rbcddefghhijjkllmmmnnnononnnmlkkjihgfeddb`_^][ZYVUSRPNLJHFAeaJ1]146:=@DHLRWܭ^֩cϦiȣoáoooqtyŌ̈́{xwvuӱž|xtnjghhijjjkkkkkjiihggfedcb`_^]\[YXUTSQOMLJGFCAYeh | sknngii_cc\__WZZUWWPRRKNN HJJ!EGG"?@@#;;;#999"999999999666 ]zwozo ".:Kfxohbbbbdcccba`_^]\[ZYWVTRQONLIHFDB@=B HHGIHAV[::: 555 777;;;:::777:::999888888:::999:::777=== TZQwp~wS$.Bkm^YYYZZZYXWVTSQPNLKIGFDA@><98h0RPPNJC\c::: 888 444777888:::999999999999888;;;888N>/\,9_-Xd0ti5}[_"}^⽠ѽ2 'OwXNNOPPONLJIHFDBA>=:9642C~fe`XPvKgoEUX444 555 888;;;666888:::777999K;,(tB}HƘJMOV^f"l*p0r3p0j)i.UxDeuA 7~_EBBDDCB@>=:86420.+.zu| Z[[NPPFGGABB>??999666 999 <<< 888888:::@93wBIMPT W \dl&t/z9Ā@DžHȉNʌSʎWɏX†Nn1Sh*Wt9 `f96787642/.+)&$#M8999888777888888666:::444 ;;; :::A;5FJOT Y]`gp&x1ʀ;ΆEьMӒUՖ\֚b֜g֝iԝjљf˓^y>Sէa Nl6()+*(&#"'X777666777777777:86853777 ;;; tCpJPU [`diq$z0Ђ;֊EّOܗXޝ`ߡhߥouyߪzܨxסpϖb…Lc!Hb! y0K_lR 555777777777:85K;-J;.444 GNT Z_ekp!y+Ԃ7یCNXajry貀赆綉嵈ுآqːYy<\GZA0lG777777777<85R<(dAa?IžPV \cio u%z-~3Ё8ӆ?؎IߘWhyﶁ躐߬}җa~AcLG oj777?82^>!rCHHPV ]chbV P N S [aeil%m*ʉNߩxŝʤĞ㲄ԙb@cOIM: Di<C8.lAFJK MNU [`V Aw=FQ\i!v(؂2MiwdžIn-ӟo~Ӕ[z7^QKM=dL^DI L L KȠQ X\j5g4u= HS^k"x*څ7So΢ڸֶŀ@o.ҕ]̉Jo)YQ KM$:,NQ P MS Yf3i5w? IT`m#z+݉=Ytѧۻٹ3i$v2aW PJQ J*LߡR e2k7z@ KVbo%|,ލB^yĒӪڹϩo9o$bXS MLCDJd2m8|B MXer&/Gc}ƕӪֲŗ]ކ4hXS NNmc2o: DOZf s'؂2KgȗҩШJ݄3XQLMFc2q; FQ\i"v*ۄ5OjȘФțq?|,KҡT n`y? e4s= GR^k#x+݇8Slɗ˝^6.r; g5v? IT`m%{,ߊ;Vnǔœ{K߇5ڈ=qs< i7xA JVbo&}.>WoĎi?݅4ڈ<:u= k8 zBMXd q'0AYoyW8ۃ2ލBv> 'n: }DOZf!t)؁1BZn}}jG7ق1w? 0p; EP\i#v*ڃ3DZlwrZ<5/w@ 8r= GR^j$x,݅4DXhodGۅ6}/5`w@ @t> HS^j%v+Ձ2݋?Q^`ޔOр6x/q)v.,u? Jq= FPZc"m'v-7ӊHבQԍN}9q,j'e"u1v> Tm; yBJS\d#l(q.{<ÀBx9j*d%^ \w? ^i8 s?}FLT[a#d&k.m1c']"WRXy@ fd5 l; u@}GLRVWY"Y!TOK~FX]K C@GMQ X`d#a#WLFvBq?m;[! NHuJOU Y]hv3ƂCˌQΒ[ϕ`̓]FZ!p:h7 IyLS Z`fn"~7ԍKڙ]ޣku߫yݩxأrҚg†N]W9IR Y`dgm#v/~<̊Mԙaݧt峅緉⯀ۤrїbʼnQb!N WKS YWT S U X[]`g"r2ƒIԛgܣp՛cɋQzD&;A%6:%15$.0 &'#$ %"$$C%Zdr&m{'s(x*y*w)s'n~(ftw(R[d&9=U%6:P$48I$04B$)+8!!!3###0 -###) &###"""""""!!!#()%*+ $&!') &:? &7; "04$6;'?E&9>%37%26%/2#*, ,.!##"""4%V^p  #&(*,.01o1`n.\is,Vbc(HQO#+.;!""4"""1"""-"""*!!!&"""" !!!!!!"()$,."') $/2 '36!*,%03%/2$*,#&'"$$!+-"""""""@# %+037:898}3\gs-KSd+EMU%26A"""5!!!1"""-"""(!!!$###!!!###!!!!""%)+ !#$ $)*#%&!##"##"""!!! 03 ###1%_jz!$)07CV!!!D"""A"""="""9!!!4"""/"""*###$"""!!! """!!!!!! 48 &'!!!/%r !!"!"""##'7HQLB}2NVp'36T"""I"""G"""D"""@""";!!!5!!!/""")!!!" $$$  !!!!!!!!!37!!!$25G !!""""###$$%%&+6FRTG3NUm'/1U"""L"""J"""H"""E"""B!!!=###8###1"""* "!!!""""""""" !!!6:&( !!!)%{ !!!!"""###$$$%%%%&&',9OZS9^h|$'(Q"""N###M"""L###K"""I"""F!!!B"""<"""6###.!!!&"""###!!!9?"""03@  !!!!""###$$$$%%&&&&''(((()3N`S8Xaw&+,S"""N###N###N###M"""M"""K"""H"""D""";"""% !!!.1 !!!$!r !!!"""###$$$$%%%&&&''((())**+.;UaJ+6:]#$$O"""N###N###N"""N"""L"""@"""$ ;A"#")*5 !!""""##$$$$%%%&&&'''((()))**++,,2JeX1EJf"""N"""N"""N"""J"""6!!!!#$;B !Q[c !!!""""##$#$$$%%%&&&'''(()))**++,,--../Bd[3KRl###M"""B!!!&&15 +26!!!" q !!!!"!""###$$$%%%%&&&'&'''(()))**++,,-.../....----/QrP0;B$&!##/ !!!"""###$$$$%%%%&&&''''((())***++,,-......-----,,,+7eanJ;B"MW^ !!"""####$$$$%%%%&&&&'''(((())**++,---..-----,,,,++++*-Sm.3 !""( !!!!"""####$$$$%$%%%&&&'&''(()))**++,,----------,,,++++**)+5A8@I!""7?H#S`d !!""""####$$$$$%%%%&&&&&'''''((()))***+++,,+,,++,++++****))(((.E8 04 """%" ! !!"!""#"###$$%%%%%%%&&&''''''('((())**+++++++++++++++****))((('*AP,AJ#$"49> !!!!"""###$#$$%%%%%%%&&&&'''''(((()))***++*+*++++++*+****))(((''(=GN=F #r !!!!"""""##$$$$%%%%%%%&&&''''''((((()))***+*****+*********)))((('''9H >F+. "*,1! !!!"""###$$$$%%%%&%&&&&'''''((((((())))****************))))(((''&&3N9 EP#R`d !!"""""####$$%%%%%&&&&&&''''''((((((())))))))))**)))))*))))(((''&&%-H?!5:!!!%# !!""""####$$$$%%%%&&&'&''''('(((((((()))))()))))))***))*)))((((''&&%(FN< CM')":@E! !!""""####$$$$%%%%&&&&''''''((((((()()))))(((()))))))*)))))((('''&&%%%>K `>=F!!! %$$%%%%&%&&&'''(()(%4"()*****++++++****)))((((((((((''''''&&&%%$$$#""! -WA!KV&'#;B>%$%%%&&&&'''((()**'E!)***+++++++***)))(((((('''('''''''&&&%%%$$##"!!"UIT GS !!%|%%%&&''''(((()*++,26*+++++,,+++***)))((((((((((''''&&&&%%%$$##""! CS@ ?@ABCDEEEEDB><850+)''&&&%%%%$$##""! HT=!LX/3 ">FD'''((()))**+,.02457NwBDEFGIJKLMNNOPPQRRSSSTRMH@6+%%%$$##""!! .b>!JU%'(()))))*,.1358:;=?`nLMNOPQSTTVVWXYYZZ[[[\\\\\[[ZUH9,#""!! "`CU =E %&&'(()**+-/2479;<>@ADFrhSTVWXYZ[\]]^_``aabbbbbbbbaa`_^^ZP?+" LR?#bs *,#]nb())+-/247:<>@ACDFHKNeY[\]^_`abcddeefggghhggggffedcba`^]ZL8"2b>%|"27'ȶ)+.1469;=@ACEFHJLORU`^`abcdefghiijjkkllllllkjiihgedca`^\[YT;$gDY/,'*-0379<=@BDFGIKLORTW\abcdefghijkklmnnooooonmlkjihfecb`_][YWURM:MXF.x.258:=?ADEGIKLNPSUXZabcdefghijklmmnnnoonnmlkjihgedba_^[YWUSQNLIB@jP7a]\YZٖ[ґ\ʍ_‰cfifc~cygrmisa]ZXk dny|smjhiiiiiihgfecb`_^\ZXVTRPMKHEBDxYVUQHMN BCCABBABB?@@>>>===;;; 999!999999999NVQr5 #4DWqxmd_^^^]\ZYWUSQOMKHFC@>;a}ONMGzNqD]g1b[j5[tVPQQQOMKIGDB?=:74=@j]PkrHZ_9::666 :::777999999?94c?fGKOU _j&q0u6u6q4f(Үv?yE8eC^CAAA?<:741.++nk?@@;;;9::888666::: 999999M<--E MR W\eq*{7ɃC̊MϐVД]Ж`˒]Ff'ʨc"Qv:s .uyF000-+(%"Atj777666777777:75777 ?;8F NU \bht(7ԊEؒRۚ\ݠgޤoާuܧwעqΕav9V`z nDPpTL666777C90P<*O9%(KS [cjr$2ۋBQ^ju~鶇踋䴈ۧwʍUm,KܡV6%OdV777J;,hA{ELU ^fjgddj!q)}8ӏPޢk귈ÛÜ㳅Д\q/Q JQ !, #iLW<$zDJLãT ]^J BKYk!{,ݍD\ܝcˌQNJR亐崆АVm(R IۜOjNJ]H M L GOXJ d2x? M\n$/OuƗصɤz8ƅIǁ@aR KǝP5Q LqQEg4{A O_q%؃4V{ʜٷΧXo%h!XPLiGX?j6DRbt'چ9\͠ײGp#XQ MU p9ym8FUdv)ދ>bΡЧv:`NPsWn9}o: HWg!z,Cf̝Ɩ^܄3k"shl7r< JZj#|.HiǖI܅5Շ?l8v? M\m%Հ0Kkl;ڄ4o9 xA P_p&ك3Nk{V6݉ F LSVUSL}GvA[!0JBJɞOU [j${;LjMNJQJl3Fh7 d+L6LV ^fr(ІBژ\q||٤s͔`n2XRb'KpQ Z]\`f m*z;ʍUנnߪzؠlʍTk+TUJLOR PPS W Z\ ^`m+ŃGɈKs3TJ HLMNQT W Y [Y WZg"dQ C!GƚKKMOR S T S R Q S P TCDClHޙJKLMNMMMKޜNHXGFAHzJGFHKKHOII??????????(H `T   !!!"# $$ #$ !!! """&&!%&$%"/2 "-0 )+"03$25 +."-0"04#.1#+.'( ""&'C#37P#59T$7;T%8;P$59K#26C#,.8"""0""",!!!("""$ !! "## !! #$$04#-0 #15 ':?#26%8=&9>$15$25#-0 %&!!!6$  "#&'({*v-l~-T_p,NXc)GPR%49J#'(5"""-"""'!!!"### $'("$% $&' !"##$$!!!!""&( !##3!!%+3:>=!!!6"""0""")""""""""""!!!  !!!!!! 36!##$S[j !!""%0s0IOi%,.L"""D"""?"""9"""2!!!*!!!" ###!!! !!!!!!-0 "$$0  !!"""##$$%&- ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j 7= !! !!!""##$$$%%&&&''(())*++,--.//9YP+8;U $,FN38 ".17 !!!""##$$$%%%&&&''(())**+,,-.//...:[Il<7=$% fv} !!!!""##$$%%%&&&'''(())*++,--.....---,BgM&5: ""& !!"""##$$$$%%%&&''((())*++,,-....---,,++/X__.2"DMS !!"""###$$$$%%&&&&''()))*++,-------,,,+++*)/H{:A !" !!!""###$$$$%%&&&&''((())*++,,-----,,,+++*))-8=6<"/27 !!!"""##$$$$%%%&&&''((()))*++,,,,,,,,++++**)(+?6 8?&("fy} !!"""###$$$$%%%&&&'''((())**++,,,,,+,+++***))()>98@!!!"  !!""""##$$$%%%%&&&''''(((()**+++++++++++***))(('8H?16 "EOQ !!!!"""##$$$%%%%&&&''''(((()))*+++**++++****))((''3Jn =F #$" !!"""##$$$%%%%&&&'''''(((()))************)))((('&.G;:A"046  !""""###$$%%%&&&&&''''(((((())))))*)*)*)*)))((('&&)H= ;B *-#g{} !!"""##$$$$%%%&&'''''((((((())))())))))*))))(((''&%%@C. =F!!! " !!""###$$$%%%&&&&''''(((())))))(((()))))))))(((''&%%$7Nj5; #JUS !""###$$$%%%&&&''''(((())))))))(''((())))))(((''&&%$#-LB BK &(#!!""##$$$%%%&&&''''(((())))))))((((((((((((((('''&%%$#&SC>G!044"""##$$%%%%&&&'''(((())))*****))(((((((((((((''&&&%$##"DJF /3$m~"##$$$%%%&&&'''(((()))****+*)))(((((((((((('''&&%%$#"!6N CL!$$$#$$%%%&&&''((((())))***+++**))(((((((((((''&&&%%$$#"!*TC8? #MXT$$$%%&&&'''()(/#()****++++***))((((((((''''&&&%$$#"" !NG)!EO $&$$%%&&&'''((**)6)**++++++**)))(((((((''''&&&%$$##"!?LgCM!151%%&&'''(())+,-[g+++,,,++**))))(((((''''&&&%%$##"! +U@ 38$o%&&''((()*,-//-./00//.-,*)(((((''''&&%%%$##"!!  TA$!HS!&'&&''((()*+,./19:<>@ACDEFGGGEB?;6/)'&&%%$$#""! CJl=E#P\V''(()))+-0368:PHIKLNOQRRTTUVWWXXXVOE:-$##"! ,W?"LX (+&((**+.048:<>ADe|RTUWXZ[\]^__`aaaaaa`_^\TC0" Y@%#\l!38,()+.148;>@BDGJNyu[\^_`bcdefghhhihhhgfecb`_\R=%HJn*&r*.269<@CDGIKNRVn`bcefhijklmmnnmmlkjigeca_]ZXS>#+[D3,158{hHDCA>:73/-kB<<<999777888 888 <:8tBMU \fu.ɂ@όNҔZӘbϗbJf'm0+ynhJ.-*&"?le666777:75@92W=&?MWajw+Շ?ݕRbp{Ⰱݪz͓^f%U]aS1&kV=83a?!{DLP\gkk p'y2ІCښ^~꿖٣pw7NO-,.HRSyDJ OZVAJ]t'݌Adޤmϖaکz٠jq-QLodR<O NhS Ap:Lax*L~ҩղ҈Dw4`PO94M Hdz=t< Od|.UӫȜDcT NR m8x? Sh!ց3]Ц}ڃ3Q ޢT iVl8|BVl$څ7bǗ^ك4y0 m8EYp&ފ ʼnM`t*׆;UޖS|3o)x1o; FUd#p.}?q2c$_ j8 v?JTY\$TLUvLJLT bu5Dv>]'o; X"BKU aj:֖Zߨu٤sĈP]`#M̤V U U Z_i#y:ΑYГ[w9VrHlMMOT X [Z Yf"i&UHEJLNQ S S Q Q PX&GE*GIЗJKKKؚLO IJHIL?????????(@ B#$   ## "'( %&!*,#/2 )+"-0".1",."(* %&!""""8###?"""#04%6;%48$.1 (*!!!)$jv! "#&'|(p*k~,Zgr,KTb)ENR%7<<""","""'""""!!! #$$-0!(*%03 $-/ %/2#)+$,-#()!&'#+,B!'+/0234v5erx.JQ\%,.:"""/""")!!!#""""$$"$%$'' !"###$!!!!!! /2 $#{!*5;:<  !!""##$$$%%&&&''(())*+,,-.....---2\WN27"5:@ !!"""##$$$%%%&&''(())*++,-...---,,++*Cc&) y !!"""##$$$%%%&&&''(())*+,,------,,++**)0>O9A"$%& !!!""##$$$$%%&&&''((())*+,,--,,,,,,++*)).8z.3 "Xfi !!!""##$$$$%%%&&'''(()))*+,,,,,,,,+++*))(+> 9@!$%  !"""##$$%%%%%&&''''((()**++++++++++***)(((AA 6=!5;? !!!""##$$$%%%%&&&'''((()))*++++++++****))(''!!""##$$$%%&&&&'''(((()))))))(''((()())(((''&&%$#8HU 15#~!"##$$$%%%&&''''((()))****))((((((((((((('&&%%$#,V BK!&'"#"#$$$%%&&&'''((())))*****))((((((((((('''&%%$#"$MD !9@ #[kj##$%%%&&''''((()))****++*))(((((((((('''&%%$$#"!EE2 AJ')$$$%%&&&''(((,%)****++++**))(((((((''''&&%%$#"! 6Qt ?G";B>%%%&&'''(()*-%**++++++*)))((((((''''&&%%$##"!%SB 5;$%&&''(())+-.rE++,,,+***))(((((''''&&%%$##"! LB%!IT %' &&''((()*+-//\0345555531.+((''''&&%%$$#"! 9Kq!?G#_ok''(())*+-/24BeACEGHJKLMNOPPMGA9/&%%$#"!! $VA!FP&(&()))*,047:F<()+-159<>ACFJoaY[\^_abcdeffffffedca`^R;%=Kt(s&*/37:>ADFIKPT``bdeghijklmmmlljihfdb_\ZU?#"ZD2,26:>ADGJLORWZbdeghjklmnooonmkjhfda_\YVROK4XO*9Yq`n[kWhVeXcZb[}aVu~`Vt|ZZyNjC=;ˠDOYdnz{ohgffeca_\ZWTQMJFAYLLB^f777 888999999999999?:7wfF'zV=VA@ipVTSROKHEA=99z Xt{HY^<@A777 999999J;-4|EMS ap-z;|?wR _XJ Sgy-ԎO֙aڧw繎ʉMXKF4JWN NXh4~C Ys&Hկ까{8t/T M{3 L Kh5F]w)Rհz,YOٟR j6Ja|.[Ϥ`iT V t< m9 Me ց2aŒEՅ:Gs< r< Qj#څ7dp7ۊ>v> v? Un&߉:cyR܄3w? zBXp(މ:\`ք8y/v? 'v@Rd"t/ˆF{:g&h&nB 1k9 ~FS\!b(X N[ 9KJM Xl)x9#()&!$$$-/"*,$.1#+- #+-$+-"')#'(!$$!"'+,.01s1[fn*?DL$*+3"""&"$$"$$"##""# !""!!!  -/"8@>n{(25X"""H"""C""":!!!/"""!!!!!!!/3!9>A !!"##$$%&&'(),AG=eo%()R"""N"""L"""C .1 } !""#$$%%&''()*+,-6LEz'-.V""":%,/ /3!*,$ !!"##$%%&&''()*++-./.3KAq~n8x15 Zhl !!"##$$%%&''(()*+,-...--,6WP+. !!""#$$$%%&&'(()*+,-----,,+*+M4:!:A@ !!""#$$$%%&&''(()*+,--,,,,++*)3905 z !!""#$$$%%&&''(())*+,,,,,++**)(3<005!*-  !!""##$%%%%&'''(())*+++++++**)('.DY6<!Yjk !!""##$$%%%&&'''(())*********)(('*B .3! !""##$$%%&&&'''((())))))**))))('&&B= 7>">F@ !""##$$%%&&'''((())))((())))))(''%$;@!7= "}!""##$$%&&&''((()))))('(((())((''&%$/HW 05 ""#$$%%%&'''(()))***)(((((((((''&%$#'N ACEGIJKIFC=5+%%$#"!=D2!CL#arl()*,/48ADHMn]_acefhijjiihfda^WB&PC/(.4:>CGJMRWcegiklnoonmkhfc`\XTN9DP4="\TWRPPOyOQrzOQkqPNekNQhnAn2-ħl9DOZp~vicb_]YVRMHCIYGah777 999999E:1.iBt["h-Uɤhoz;zsnQHE@;60lv888777988 S>*AMZg}7ҎP֚b՞jÇPi*e%wdVH&#;cL777Q<)EXgo#|4ՍJl꺍䴈CO&1ZsBL DV I F dڇPKpv<Ji!HϨӄ:[On9Oo%SĒv)٩Z\T p: ĕSu)Z]ن:`u> ΜY{.\wAۈ;)yAן[z/SRw.z1q< Nc#r4f)[JEG Vk.m5QNL)S _p(ˊL٢oנno2Ϡ]JMOT Z \ h%q0X_F>HњLP Q OOƤYGH/I[I]K4N?????( @   !"# $%!&' &( $%"^hy y v!iy#\ko$LXZ&FOF'=C2$04#+-")+")+ "()"&'!%%%&";?D#&)+-.kz/PY]%-/2"#$"""!!!   *,  !"#$0565]g}%)*G"""7!!!)"""!!! AG= !"#$%&'(+;>2JQp"""M"""7 ,0 !"#$%%&'(*+-.7B5Yd?04 !"#$$%&'()*+-..-,9Rv+/^nm !"##$%%&'()*+---,+**8q .2  !"##$%%&''()*+,+++*)(: DN; !""#$%%&''(()******)('7@ 15!~ ""#$%%&''((())))*))('&1A!!6<!!"#$%&&''(()))((())((&%)EX"dvl"#$%&&'(())**)(((((''&$#E 4:#$%&'()()**+*)((((''&%#!;G !LX:%&'(),0+++*)(((''&%$" ,G: 7=$'()+.5M<>@@?=92(%$#!G!?G(+.4:@T[VZ\_`bba_R?(=G +_08?EKQqadgjlnnlifa\V?2P=J"U7Jp{8I`f;IY]>JX[5|9ڞ$/:Oi}yo\XSLE>x=BC887 Y?'WQeǂAʍTUzD<~ebK,%FpM;+K `fф>lⲅo.N.6QTN0CPՅ:Ǚۙ]\N#5q:XߐGēى?ά])t= _Np݈9yw@`ՉC̓>r,DJE Wj0O\!LnYl%ʇJʍU_`HIʞOT T X[H(I?K???????(0 ` !!!CIO dpv!`nj"S^W$DNB%9?-$.2"(*!'(#$ !,. %')+-cqu*>CC"##!!!!!!! !"o !"#%*452T]w##$B"""1 +-  !"#$%'(*,0<5anz2VaTaS "#$%&'(*,---.H), "#$$%&')*,,,+*+8I :B$ !"$%%&'()**++*)(X{zp_OG94Jf΅AޥqʼnQܟW+TC 1fO lE y0ﺊ|:N\;EՇ?r&eMیCNz0 DJk.X N\x5z=SEIMN~L ?x?(  @ 03$ MVM!DM=!4:(&)#&)+u+KST"##!DL8 "$%'*53y,AH!#$&(*,-,;*.!#$&'(*++*,<* h|i!#$&'((())('@Z #%&')**(((&$: KW6&(.t453.'$!,>)4@U_dgf^F*FHFBRW aP;k_)w.Kt|W9[O p+zZ@If5Ax3_фF u=Sk+h)Ne f%d1^.?lt ( @@ @@ ``````@ ```````@`@`@`````@@` @` ` ` ` `@@@@``@@````@ @Ш@Xxиp8@hXX```؀ȘxPX((8Hphhxx0`h8H((@@@HHHH`XhpXPXhhhhpxxȐp 8((8@HX@HX0pHxpx0P`x8P h 0h h `(8x(x((((((hH0000`H8PX8ؘ88PX@X`@@@H@@@`HHpPHhXH hHؘH@HHHhHHHHPH@HHHHPPHXPhXPpXPxXPhpPPP0PX@PXXXXXXXP`Xp`XphXxXXXXXXXX`x``````Ph`h`p```И``h``@`hHhhhhhhhhphxhhhhhppppxpxppPppxppp `xpxLycj P񝢧ssgghZKPtwVƹwxiP`tUV|(vUwOIxk vUV~h>K<|~U&~V`yOOkjiYg`zjjPh~ǪgkOjIIIIPgKkIOYYYIgjkP jIYYYk#RRL OIeeeei&RRRRRRYIe{{j#SSSSSo}}Y[Rppp]]pp}Yeɽkp]MM^^M]aaab}chP]^]l]bbbuue ȁy #WWWW݋AʯcK dd}l]oi dNNNNNNl^Kj&&NXXfffXlTMAhPiYXffgTTTm]AրKji}XfEQnTTTMo ji}fZF\lJMSAhKg&nq\QnmmTMS[ZI&Qq*JJJJ^A KKkZhgq\nQnmTlPP[LjihlqqJJJnTl*qqF\nQTZ\qqqqq\l&qK ???????lt~h( @ʳȴ̹ǬŦֿʯŢ̫Ҿټ̗ʢЙ||ΧڿΓٷ͔qq__ooMFsїffuvPlӱఔ;AȨ4yaL z}׸RZx+r n$Bq ~̬uq: ~ @ Asϐƴ~Iz'*+Үlrrj33¼ӲƜܾݘ΀j̪ĺ986eYMկlcUʴɠ˪͡ìlt9GIF89a w!, +b5Ic.e4i1k;Oi9m9sBUnAsJ]vL{J{TfQT\mYZfgbdjkioqurwy{|{焥ꊰ땲쒵םݝڨݤ¬ޱõƵδʻ˾Hax?HÆ *T Т )Ssd3_ lay^Ɗ#_xsk3`jo}=|=zv^hfj}- 8ܰ}'<יxg0 \gB^W>8F8\MhGZ@ I;1?j!`4EP'qRxÖhYdg| hc`9F|v^cQf38`RqÛN o0F'MqC'=ae Qtħ+q? 9Р&:*무ΊЭ뮼;"r%avpU CUTHISFORM CARGAR_TOPICSClick011*)Y"@@\%Us8Q MENSAJE_TIPOSF:\sistema\2000\mensajes.vcxT!TC6UNODEOMSGTFTAG MSG_SUSCRIPTOCHECKED NodeCheck01r1)@"!%m%#UFQSTRINGQ MENSAJE_TIPOSf:\sistema\2000\mensajes.vcxmQ MENSAJE_TIPOSf:\sistema\2000\mensajes.vcxQ MENSAJE_TIPOSf:\sistema\2000\mensajes.vcxQMSCOMCTLLIB.Node%CC %C C T% C ?B-TC TCC-68TC(C\) 6%C OTCCC-6CC-6  jUTCCC-6CC-6 TaTTCU XNODO_PADREOTIPOFOHIJOOMSGTONODXTIPOKTHISFORMTVNODESCLEARTYPEO MSG_TOPIC MSG_TIPO_KEY XNODO_RELAXNOMBRECKCODIGOVALUE MSG_NOMBREADD MSG_IMAGENMSG_IMAGEN_SELEXPANDEDCHECKED MSG_SUSCRIPTOTAGSUBTIPOSTHIS CARGAR_TOPICS C%C P.TSuscripciones del usuario TTCU OMSGTXTMPUSR_NOMBRETHISCAPTIONTHISFORMTV IMAGELISTIL16 CARGAR_TOPICS cargar_topics0Init1a1BBqABQAqBQA2q!Aa!1%)M% BG^h.a[XϬUSYS_MELI_LOGICAPRGd%CQ;TC GES_ObjetoSys_plataformas_objetos.prg BUTYPEOTHIS GES_OBJETOH~ CxIDbN\+BK_CC999999999999999999999_ CxIDbC~ BUXID:+TCCCC9Q_ BUTHISID_TEXTOIDPAD_KEY)TC BUTHISKEY OBTENER_KEYIDU%C B+TCChilkat_9_5_0.CkDateTimeN BUTYPEOTHIS LODATETIMETC %C LT% C |C%C%C T.C U XIDXLEER OCONTROLADOROJSONXPATHTHISIDTYPEOLEERSELEER_JSON_VALORES2QMELI_CONTROLADORsys_meli_logica.prg%C ~7C#No se pasa controlador a la clase: U OCONTROLADORSYS_MELI_LOGICAPRGTYPEO MENSAJE_STHISCLASEH CThis.IDbNi4TC%ID%CC99999999999999999_ CThis.IDbCTC%ID%C BUXAPITHISID_ !%C?BC XBUOJSONXVALORDATEOFTHIS LODATETIME GETASDATETIME^'QCHILKAT_9_5_0.JsonObjectTC !TCCCidg8ULOJSONXPATHTHISIDSTRINGOF U OCONTROLADOR.+'CUTHISCOUNTREMOVE#QCHILKAT_9_5_0.JsonObjectTCCCidg8TCnickname(TCregistration_date!TC country_id$TC address.state#TC address.city T C user_typeT ClogoT Cpoints T Csite_id TC permalink)TCstatus.site_statusULOJSONTHISIDSTRINGOFNICKNAMEREGISTRATION_DATE COUNTRY_ID ADDRESSSTATE ADDRESSCITY USER_TYPELOGOPOINTSINTOFSITE_ID PERMALINKSTATUS_SITE_STATUS5Q PLA_CLIENTESys_Plataformas_objetos.prg-Q MELI_ORDENsys_meli_objetos.prg TTT T  T  T UOPLCSYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_MELI_OBJETOSTHISGES_IDID GES_NOMBRE NOMBRE_GES GES_USUARIONICKNAME GES_EMAILEMAIL GES_TELEFONOPHONENUMBER7'QCHILKAT_9_5_0.JsonObjectTCCCidg8TCnicknameTCemail!TC first_name TC last_nameLT C Meli_Telefonosys_meli_objetos.prgCphone (T Calternative_phoneU LOJSONXPATHTHISIDSTRINGOFNICKNAMEEMAIL FIRST_NAME LAST_NAMEPHONEOBJECTOFALTERNATIVE_PHONEF2QMELI_CONTROLADORsys_meli_logica.prgBCU OCONTROLADORSYS_MELI_LOGICAPRG OBTENER_ENVIOTHIS4%TCC C BUTHIS NOMBRE_GES FIRST_NAME LAST_NAME'QCHILKAT_9_5_0.JsonObjectTC TC area_code TC extensionTCnumberTCverifiedU LOJSONXPATHTHIS AREA_CODESTRINGOF EXTENSIONNUMBERVERIFIEDBOOLOF"T BUTHISIDPAR_TYPEa'QCHILKAT_9_5_0.JsonObjectTCtypeTCvalueULOJSONXPATHTHISPAR_TYPESTRINGOF PAR_VALUEW%C D-TCsys_meli_objetos.prg BUTYPEOTHISOCLASECLASE_COLECCION UXID OCONTROLADOR TC TTC (o T%C TC  BU XID OCONTROLADORXKEYOEXOOBJTHISOCLASE OBTENER_KEY COLECCIONITEMTYPEOOBTENER_ITEM_ALTERNATIVO1QCHILKAT_9_5_0.JsonObjectQSTRING &QCHILKAT_9_5_0.JsonArrayTCC &%CR. C> TCC>\%C TC  T%C  ( *TC sys_meli_objetos.prgCC  CCULOJSONXPATHTHIS COLECCIONCLEAROARRNITOOBJ CLASE_PATHARRAYOFSIZECLASE_COLECCIONLEER_JSON_VALORESOBJECTAT OBTENER_DATOSAGREGAR_OBJETOvT%HC fC BUOOBJXKEYKEYTHISUSAR_KEY COLECCIONADDr%kTThis. ]&xPar = oObj.par_value gUOOBJXPARTHISCLASE_LEER_PARPAR_TYPE %{% wTC B BU XID OCONTROLADOROOBJOORDENTHIS COLECCION MELI_TIPO MELI_TIPOS MELI_ORDENPACK_ID OBTENER_PACKTU OCONTROLADORTHISSEARCH_VENDEDORVENDEDORBCUXAPITHISREEMPLAZAR_PARAMETROS_BUSQUEDA&TC %Vendedor%CCZ!TC%Orden%C$TC%Limite%CCZ$TC%OffSet%CCZ BUXAPITHISSEARCH_VENDEDOR SEARCH_ORDEN SEARCH_LIMITE SEARCH_OFFSET2Q MELI_ORDENESsys_meli_logica.prg-Q MELI_ORDENsys_meli_objetos.prgTCCU XORDENID OCONTROLADORSYS_MELI_LOGICAPRGOORDENSYS_MELI_OBJETOS OBTENER_ORDENTHISAGREGAR_OBJETO5Q PLA_CLIENTESys_Plataformas_objetos.prg-Q MELI_ORDENsys_meli_objetos.prg TTT T  T  TTTTTUOPLCSYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_MELI_OBJETOSTHIS GES_NOMBRE NOMBRE_GES GES_DOMICILIO DOMICILIO_GES GES_CIUDAD CITY_NAMEGES_ZIPZIP_CODE GES_PROVINCIA PROVINCIA_GES GES_DOCTIPO DOC_TYPE_GES GES_CATIVATAXPAYER_TYPE_ID_GESGES_DOC_NUMBER DOC_NUMBERGES_INSCRIPCIODOC_NUMBER_GES$TC BUTHIS CITY_NAME+TC- BUTHISDOC_NUMBER_GES_SIN_GUIONESDOC_NUMBER_GESUFTCPCaCCCZa6 BUTHISDOC_NUMBER_GES DOC_TYPE_GES OLOCALIZACIONCUIT_FORMATEADO DOC_NUMBERB Tlistados BUXPROVXLETTHIS STATE_NAME PROVINC_INVLISTADOS6'TCCC C BUTHIS DOMICILIO_GES STREET_NAME STREET_NUMBERB3TCC C C BUTHIS NOMBRE_GES BUSINESS_NAME FIRST_NAME LAST_NAMEPATCDNI`CCUITP66 BUTHIS DOC_TYPE_GESDOC_TYPEH!  Monotributo; B/ IVA Responsable Inscriptos B  IVA Exento B2 Consumidor Final C Ccons B 2 BUTHISTAXPAYER_TYPE_IDSYS_MI " ve_funcionesT BU XTIPO_AFIPXIVACATIVACAT_DESDE_AFIP VE_FUNCIONESTHISTAXPAYER_TYPE_ID_AFIPTAXPAYER_TYPE_ID_GESh6QMELI_CONTROLADORsys_meli_logica.prg%  aBCU OCONTROLADORSYS_MELI_LOGICAPRGXRELEERTHISLEIDOOBTENER_DATOS_FACTURACION'QCHILKAT_9_5_0.JsonObject TC billing_info%CTCdoc_type!TC doc_numbercTCMeli_Facturacion_Adicionalsys_meli_objetos.prgCadditional_info U LOJSONXPATHOBJECTOFTYPEOTHISDOC_TYPESTRINGOF DOC_NUMBERADDITIONAL_INFOARRAYOFm%4&kC=T4&kC ZT BUTHISID ID_SIMPLEr%C5TC*T (CCZ)  BUXTEXTOTYPEOTHISBUYERGES_INFONICKNAME ID_SIMPLEl  WTCCT(eU OCONTROLADOROORDENOEXTHISORDERS COLECCIONLEERSECONTEXTl  WTCCT(eU OCONTROLADOROORDENOEXTHISORDERS COLECCIONLEERSEBUYER@%-T BUTHIS MELI_TIPO MELI_TIPOS MELI_PACK"T BUTHISSHIPPINGSHIPMENT'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created'TC last_updatedTCstatusET CMeli_Ordenes_Packsys_meli_objetos.prgKT C Meli_Clientesys_meli_objetos.prgCbuyer LT C Meli_Enviosys_meli_objetos.prgCshipment U LOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIME LAST_UPDATEDSTATUSORDERSBUYEROBJECTOFSHIPMENTR)%CThis.Buyer.NicknamebC?T BUTHIS GES_NOMBREBUYERNICKNAME0!T cancelled BUTHIS GES_CANCELADASTATUSS3Q PLA_ORDENSys_Plataformas_objetos.prg-Q MELI_ORDENsys_meli_objetos.prg TTT T  T  TTCCCCTUOOGSYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_MELI_OBJETOSTHISGES_IDID GES_PACK_IDPACK_IDGES_PLATAFORMACONTEXTSITE GES_CANALCHANNEL GES_FECHA DATE_CREATED GES_PAGADO PAID_AMOUNTBUYER PASAR_OBJETOCLIENTE BILLING_INFOADDITIONAL_INFO FACTURACIONSHIPPINGENVIO ORDER_ITEMSITEMS GES_OBJETO@%-T BUTHIS MELI_TIPO MELI_TIPOS MELI_ORDEN U OCONTROLADOR U OCONTROLADOR_%C /T LT BUXIDTHISPACK_IDID_O_PIDr%C5TC*T (CCZ)  BUXTEXTOTYPEOTHISBUYERGES_INFONICKNAME ID_SIMPLE]%C<!TC%PACKID%%ID%TC BUXAPITHISPACK_IDm%4&kC=T4&kC ZT BUTHISID ID_SIMPLE'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created'TC last_updated*TCexpiration_date&T C date_closed"T C buying_mode"T CCCpack_idg8T CstatusMT C Meli_Vendedorsys_meli_objetos.prgCsellerKTC Meli_Clientesys_meli_objetos.prgCbuyerLTC Meli_Enviosys_meli_objetos.prgCshippingUTCMeli_Orden_Itemssys_meli_objetos.prgC order_itemsNTC Meli_Contextosys_meli_objetos.prgCcontextCTCMeli_Facturacionsys_meli_objetos.prgULOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIME LAST_UPDATEDEXPIRATION_DATE DATE_CLOSED BUYING_MODEPACK_IDSTATUSSELLEROBJECTOFBUYERSHIPPING ORDER_ITEMSARRAYOFCONTEXT BILLING_INFOF2QMELI_CONTROLADORsys_meli_logica.prgBCU OCONTROLADORSYS_MELI_LOGICAPRG OBTENER_ORDENTHISv3Q PLA_ENVIOSys_Plataformas_objetos.prg-Q MELI_ENVIOsys_meli_objetos.prgTUOPLESYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_MELI_OBJETOS GES_LOGISTICATHIS LOGISTIC_TYPESPBCdrop_off xd_drop_off cross_docking self_serviceforwardUTHIS LOGISTIC_TYPE %C,TTCHP drop_off~TEnvios xd_drop_off TPlaces cross_dockingTColeta self_service TFlex forwardBTForward fulfillmentqTFull 2 T BUXLOGISTIC_TYPEXLOGISTIC_TYPE_GESTHIS LOGISTIC_TYPEH shippedETEnviado#  ready_to_ship!TListo para enviar  deliveredT Entregado 2T BUTHISSTATUS STATUS_GESH#  ready_to_shipDT shippedqT   deliveredT 2T BUTHISSTATUS STATUS_ID_GES:'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created-TCdate_first_printed#TCCCorder_idg8T Cstatus T C substatusT Cmode$T C logistic_typeU LOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIMEDATE_FIRST_PRINTEDORDER_IDSTATUS SUBSTATUSMODE LOGISTIC_TYPEF2QMELI_CONTROLADORsys_meli_logica.prgBCU OCONTROLADORSYS_MELI_LOGICAPRG OBTENER_ENVIOTHIS'QCHILKAT_9_5_0.JsonObjectTCidTCtitleTCwarranty TC condition!TC seller_sku%nullTU LOJSONXPATHTHISIDSTRINGOFTITLEWARRANTY CONDITION SELLER_SKU2QPLA_ITEMSys_Plataformas_objetos.prg-Q MELI_ENVIOsys_meli_objetos.prgTCTC=T C\T C\T U OGISYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_MELI_OBJETOSXCODTHIS SELLER_SKU GES_COD_INSGES_ATRGES_BUL GES_OBJETO_3Q PLA_ITEMSSys_Plataformas_objetos.prgXCUOGISSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCION AGREGAR_ITEMf'QCHILKAT_9_5_0.JsonObjectTCmeasureTCCvaluegULOJSONXPATHTHISMEASURESTRINGOFVALUE'QCHILKAT_9_5_0.JsonObject!TCCquantityg#TCC unit_priceg(TCCfull_unit_priceg!TCCsale_feeg$TCC currency_idgnT C"Meli_Orden_Item_Requested_Quantitysys_meli_objetos.prgCrequested_quantity GT C Meli_Itemsys_meli_objetos.prgCitem U LOJSONXPATHTHISQUANTITYSTRINGOF UNIT_PRICEFULL_UNIT_PRICESALE_FEE CURRENCY_IDREQUESTED_QUANTITYOBJECTOFITEM2QPLA_ITEMSys_Plataformas_objetos.prgTTT C U OGISYS_PLATAFORMAS_OBJETOSPRG GES_CANTIDADTHISQUANTITY GES_PRECIO UNIT_PRICE GES_TOTALFULL_UNIT_PRICEITEM PASAR_OBJETO'TC BUTHISSITE_GESSITEc'QCHILKAT_9_5_0.JsonObjectTCchannelTCsiteULOJSONXPATHTHISCHANNELSTRINGOFSITEGES_Objeto_AccessF Obtener_KeyID_Texto_Access] Key_AccessloDateTime_access INITLeerseReemplazar_ParametrosConvertir_DatetimeOLeer_JSON_ValoresObtener_Datos_ControladorwCLEARLeer_JSON_Valores Pasar_ObjetoC Leer_JSON_Valores Leerse Nombre_GES_Access Leer_JSON_Valores  ID_AccessLeer_JSON_Valores oClase_Accessj Obtener_Item_Alternativo Obtener_Item Leer_JSON_ValoresB Agregar_Objeto obtener_datosD Obtener_Item_Alternativo Obtener_Datos_Controlador Reemplazar_ParametrosA Reemplazar_Parametros_Busqueda Agregar_Orden Pasar_Objeto City_Name_Access !Doc_Number_GES_Sin_Guiones_Access Doc_Number_GES_Access Provincia_GES_Access0 Domicilio_GES_Access Nombre_GES_Access Doc_Type_GES_Access taxpayer_type_id_AFIP_Access taxpayer_type_id_GES_AccessA Leerse Leer_JSON_Valores  ID_Simple_Access7"GES_Info_Access"Asegurar_Contextv#Asegurar_Comprador/$Meli_Tipo_Access$shipping_accessV%Leer_JSON_Valores%GES_Nombre_Access'GES_Cancelada_Access+( Pasar_Objeto(Meli_Tipo_Access +Asegurar_Comprador+Asegurar_Context+ ID_O_P_Access+GES_Info_AccessX,Reemplazar_Parametros -ID_Simple_Access-Leer_JSON_Valores.Leerse2 Pasar_Objeto2Etiqueta_Permitidao3Logistic_Type_Ges3Status_GES_Access5Status_ID_GES_Access6Leer_JSON_Valores7Leerse9Leer_JSON_Valores: Pasar_ObjetoQ; Pasar_Objeto<Leer_JSON_Valores]=Leer_JSON_Valores= Pasar_Objeto@Site_Ges_Access-ALeer_JSON_ValoresrAU T T T- T- T T T .QT T -         U IDCLASE LODATETIMELEIDOKEYPAD_KEYID_TEXTO MELI_TIPOS MELI_TIPO GES_OBJETO U T T T T T T T T T T  T  T  U IDNICKNAMEREGISTRATION_DATE COUNTRY_ID ADDRESSSTATE ADDRESSCITY USER_TYPELOGOPOINTSSITE_ID PERMALINKSTATUS_SITE_STATUSUTVendedorUCLASETCliente T T T T T- T T    UCLASENICKNAMEEMAIL FIRST_NAME LAST_NAMEPHONEALTERNATIVE_PHONE NOMBRE_GES? T T T T- U AREA_CODE EXTENSIONNUMBERVERIFIED> T T T  UPAR_TYPE PAR_VALUEID .Q T T T- T- Ta      U COLECCIONCLASE_COLECCION CLASE_PATHCLASE_LEER_PAROCLASEUSAR_KEY-T Meli_OrdenTordersUCLASE_COLECCION CLASE_PATHT Meli_OrdenTresults TT date_desc T2 T     UCLASE_COLECCION CLASE_PATHSEARCH_VENDEDOR SEARCH_ORDEN SEARCH_LIMITE SEARCH_OFFSETTMeli_Coleccion_Par Ta T T T T T T T T  T  T  T  T  T T T T T T T T T ! " # $ % & ' ( )UCLASE_COLECCIONCLASE_LEER_PARSITE_IDDOC_TYPE DOC_NUMBER LAST_NAME FIRST_NAME BUSINESS_NAMETAXPAYER_TYPE_ID STREET_NAME STREET_NUMBERZIP_CODE CITY_NAME STATE_NAME COUNTRY_ID NOMBRE_GES DOMICILIO_GES DOC_TYPE_GESDOC_NUMBER_GESDOC_NUMBER_GES_SIN_GUIONESTAXPAYER_TYPE_ID_GESTAXPAYER_TYPE_ID_AFIP PROVINCIA_GES< T T T- * +UDOC_TYPE DOC_NUMBERADDITIONAL_INFO T TU MELI_ORDEN MELI_PACK T T- T- T T- T-TT T- T  T - , - . / 0 1 2U ID_SIMPLEORDERSSHIPMENTSTATUS STATUS_DETAILBUYER DATE_CREATED LAST_UPDATEDSHIPPINGGES_INFOCONTEXTTOrden T TTTTT T T- T - T - T  T - T - T- T T T- T- T T- T- T T- T- T- T- T- T- T- T- T- T - T!- T"- T# T$ T% T& T'- T( 3 4 5 6 7 8 9 : ; < = >U)CLASE ID_SIMPLEID_O_P DATE_CREATED LAST_UPDATEDEXPIRATION_DATE DATE_CLOSEDPACK_ID PICKUP_ID FULFILLEDHIDDEN_FOR_SELLER BUYING_MODE SHIPPING_COSTAPPLICATION_ID MEDIATIONS TOTAL_AMOUNT PAID_AMOUNTCOUPON ORDER_ITEMS CURRENCY_IDPAYMENTSSHIPPINGSTATUS STATUS_DETAILTAGS INTERNAL_TAGSFEEDBACKCONTEXTSELLERBUYERTAXES CANCEL_DETAILMANUFACTURING_ENDING_DATE ORDER_REQUEST BILLING_INFO GES_PEDIDO GES_MENSAJE GES_RESPUESTAGES_INFO GES_CANCELADA GES_NOMBRETEnviosUCLASETEnvio TTT T T T T T T  ? @ A B C D EU CLASEORDER_ID DATE_CREATEDDATE_FIRST_PRINTEDSTATUSMODE SUBSTATUS LOGISTIC_TYPE STATUS_GES STATUS_ID_GEST Meli_ItemUCLASE_COLECCIONr T T T T T T T F GUIDTITLE CATEGORY_ID VARIATION_IDWARRANTY CONDITION SELLER_SKU)TMeli_Orden_Item HUCLASE_COLECCION' T T IUMEASUREVALUEn T T T T T T- T- J KUQUANTITY UNIT_PRICEFULL_UNIT_PRICESALE_FEE CURRENCY_IDREQUESTED_QUANTITYITEM> T T T L MUCHANNELSITESITE_GES Meli_Base2meli_base:sys_meli_logica.prgI Meli_Objeto Meli_Base2I Coleccion COLLECTIONDK Meli_Usuario Meli_ObjetoYKMeli_Me Meli_UsuarioL Meli_Vendedor Meli_ObjetoL Meli_Cliente Meli_ObjetoL Meli_Telefono Meli_ObjetoMMeli_Coleccion_Par Meli_Objeto)NMeli_Coleccion Meli_ObjetoNMeli_Ordenes_PackMeli_Coleccion`O Meli_OrdenesMeli_ColeccionOMeli_Facturacion_AdicionalMeli_ColeccionPMeli_Facturacion Meli_ObjetoS Meli_TiposCUSTOMT Meli_Pack Meli_ObjetoTT Meli_Orden Meli_ObjetoU Meli_Envios Meli_Objeto'Z Meli_Envio Meli_ObjetoLZ Meli_ItemsMeli_Coleccion[ Meli_Item Meli_Objeto[Meli_Orden_Items Meli_Items\"Meli_Orden_Item_Requested_Quantity Meli_Objeto\Meli_Orden_Item Meli_Objeto] Meli_Contexto Meli_Objeto]1aA2qA222qA2q1!AAA!!AQA2!QqA3qAA21A3q12q4qA 11A1 1Q1111aA2q2!2Q9q2812q;qA22AQA2aqaA!QA!AA2qq!AA2qq!AA>rAaaAAA2q12q2qbAA2!a1Q1311111112Q22a22q2122!B2!8aA2qA1B@11A3qaA2qr1A2qr1A2qaA212qqqR1aA22121aa31caa2qaA2q3q4qQ11A2qaA2qAA21A3qqqa!!R12! 11122A111AA2q11A21A3qq1A2!1qA2!qQQ<1AA6q;q1Aq8!11A72q2235?1Q1A496`;q11qAa67>111<!1111`412!114a3?65753+!M%2)O/)w?.F7eP> YBB \ ^D cIN yXBdxmp0s7Oz}&@_Ah 27h 0 >!W!B!#F=#$OC&\(t(((n))o**+K+++,,-I-../0002$4&5+P562=67;177D88I88L9T;V ??O[??U^ @BYmB3Cpr]CCvtCDzv.DD~DEEcFFGGJLiLL*NNNP;PRSITvTUUW W-X_YZ+Z[6^^J)__T`bbd]esefFff??yf 4 b6x lDERcGTYZ`nN%q$)}a$/V/2223^;;L%M,MaM7X sXX X]#]^G^_Q_ieZ(ef{ %A! vXUSYS_VERIFICAR2_TAREAS_LOGICAPRG%Cproveedo .Qproveedo%Ccccomp \QcccompF> 30-54667659-1 33-69345023-9ADUANA ?> 30-54667659-1 33-69345023-9C % JSC(Se hizo el cambio del cuit de aduana en CC Z comprobantes%CcccompmQ%CproveedoQU PROVEEDOCCCOMP INSCRIPCIOFORNOMBRECUITDESPACHOTHISRESULTADO_ESPECIFICAR%Cproveedo .Qproveedo%Ccccomp \QcccompF> 33-69345023-9 30-54667659-1ADUANA ?> 33-69345023-9 30-54667659-1C % XaC6Se hizo la reversion del cambio del cuit de aduana en CC Z comprobantes%Ccccomp{Q%CproveedoQU PROVEEDOCCCOMP INSCRIPCIOFORNOMBRECUITDESPACHOTHISRESULTADO_ESPECIFICARV72TC meli_ordenessys_meli_logica.prg3TC meli_ordenessys_meli_objetos.prgG+(listados!%CPlataformas_aux Qplataformas_aux%Ctccvent QtccventestadoJ'CSeparando datosaotccventQ Xplataformas_auxQ  C C  MLA C  tmpemptynick CObteniendo datos5CSeparando datosC TMPEmptyNickNa ~$C Obteniendo C  T-.sys_meli_pedidos.prg  C F CC ActualizarC LimpiandoFCCreando'sys_meli_pedidos.prg <UOCNOOORDENES OOBTENIDOLISTADOSPLATAFORMAS_AUXTCCVENTOESTADOESTADO SET_AND_SHOWDISTINCTCREF_EXTPLANICKNAME PLATAFORMAPEDIDO TMPEMPTYNICKAVANCESUB_SET_AND_SHOWSUB_AVANCE_TEXTOOBTENER_DESDE_REF_EXTSYS_MELI_PEDIDOSPRGAGREGAR_OBJETOSUB_HIDESYS_MALLMELI_ACTUALIZAR_PLATAFORMAS_AUXRELEASEQ$%Cp_tmp_ProMail1bN?<7 T%CTMPTpro2 rQpro2%C TMPTProMail QpromailG+(sys_mail_funcionesCmails;obtmptpro2Q Q  C0QQ CCfCC fC C btmptpro2 QQ   C0QQ CCfCC fC C tmptpro2Q Q  C0QQ CCfCC f C  tmpcorreosCMailTipo=> C   Pr tmptpromail  o tmpcorreos   Aptmptpro2 tmpcorreos   .p_te_pag_usar_promail TQQQUP_TMP_PROMAIL1PRO2TMPTPRO2PROMAIL TMPTPROMAILSYS_MAIL_FUNCIONESSYS_M EMAILPAGOSEMAIL ENVIAPAGOENVIAOCCOD_PROMAILTIPOEMAILOC TMPCORREOSMAIL_MT_DESDENUMEROSALLOBSSYS_CFGP_TE_PAG_USAR_PROMAIL%Cventas *Qventas%Cccvent XQccvent%Cclientes QclientesF~C$i'%'Cccventccvfac%?"CclientescodcliTC XT C XT C XT C XT C Xe listados   CCccvent.sucpropiabN 6e listados    CCccvent.sucpropiabN 6>%CventasQ%CccventQ%CclientesQUVENTASCCVENTCLIENTESFECHAFAC_VENCVENTCAUSACOD_CLIXCUXDEXDE1XDE2XDE3VEN_CUELISTADOSCOD_INSPAIS SUCPROPIACOD_CUE%Cejercon ,QejerconF ~ co_funcionesF ~(%Cdiariogasiento (%Vcd C I> C =C00000CC \R-C R%Cejercon9Q%Cconcepto^Q%CdiariogQU EJERCONCO_ABRIR_TABLAS CO_FUNCIONESDIRCONCEPTOASIENTODIARIOGCAUPROCLICOMP_EXPCOMPROB}5+TCSecuritysys_security.prg F ~l>CN[ UOSEC SEC_TABLE_GETA010592A2 SEC_TABLE_PUT5+TCSecuritysys_security.prg F ~v)>C!C6\[ UOSEC SEC_TABLE_GETA010592A2 SEC_TABLE_PUT}5+TCSecuritysys_security.prg F ~l>CN[ UOSEC SEC_TABLE_GETA010592A2 SEC_TABLE_PUT}5+TCSecuritysys_security.prg F ~l>C(N[ UOSEC SEC_TABLE_GETA010592A2 SEC_TABLE_PUT}5+TCSecuritysys_security.prg F ~l>C)N[ UOSEC SEC_TABLE_GETA010592A2 SEC_TABLE_PUTejecutar_procesoSejecutar_procesoLejecutar_procesoSejecutar_proceso ejecutar_proceso9 ejecutar_procesoejecutar_procesoejecutar_proceso_ejecutar_proceso ejecutar_proceso ejecutar_proceso U[TCambioCuitAduana&TCambio del cuit de aduana Ta UIDNOMBRE POR_EMPRESAi!TCambioCuitAduana_rev0T#Cambio del cuit de aduana reversin Ta UIDNOMBRE POR_EMPRESATLlenarNickname8T+Llena los nicknames de las ordenes cargadas TaTSEGT UIDNOMBRE POR_EMPRESAEMP REINTENTOSp'TTarea_PasarMails_a_ProMail1T$Pasar mails de proveedores a ProMail Ta UIDNOMBRE POR_EMPRESA{'TCuentas_de_venta_al_ventas<T/Pasa las cuentas de venta determinadas a ventas Ta UIDNOMBRE POR_EMPRESA)TCorreccion_concepto_comp_exp>T1Corrige concepto.comp_exp para mostrar bien el PV Ta UIDNOMBRE POR_EMPRESAgTpermiso_25_a_no3T&Se crea permiso 25 y por defecto es NO T- UIDNOMBRE POR_EMPRESAfT permiso_337T*Se crea permiso 33 tomando el valor del 54 T- UIDNOMBRE POR_EMPRESAgTpermiso_27_a_no3T&Se crea permiso 27 y por defecto es NO T- UIDNOMBRE POR_EMPRESAgTpermiso_40_a_no3T&Se crea permiso 40 y por defecto es NO T- UIDNOMBRE POR_EMPRESAgTpermiso_41_a_no3T&Se crea permiso 41 y por defecto es NO T- UIDNOMBRE POR_EMPRESA tarea_base+sysv_tarea:sys_verificar2_tareas_logica.prg_tarea_cambiocuitaduana tarea_basej tarea_cambiocuitaduana_reversion tarea_basetarea_llenarnickname tarea_baseptarea_pasarmails_a_promail tarea_base+tarea_cuentas_de_venta tarea_base"tarea_correccion_concepto_comp_exp tarea_baseXpermiso_25_a_no tarea_base permiso_33 tarea_basepermiso_27_a_no tarea_basepermiso_40_a_no tarea_basepermiso_41_a_no tarea_base1AA!Af"1ArAA<AA!Af"ArAA<!1"A1Aq1rH SAAqArqQqqq:BqqAQAA"S>!A!AAAsrqA!AQQCtAqAA?1AtrAAABAAA;srA=srA;srA;srA;srA8?a11@1q1q@1011?qq?1?1?1?&}D&m oJb "4#$`&B'y (())++,K[*=&gj*x"*#$Z$L'q'2)m)+S+, %R3J84IEW-U"3   %CxfecactbLcTT C  T C  T C   6T C  .T C  B  UXPRECIOXBONIFXCOD_INSXBULXATRXLISPREXCOD_CLIXMONEDAXFECACTXCAMBIOXERRXMSGXOKXOK2VE_OBTENER_PRECIO_V2VE_OBTENER_BONIF_V2+  TC TC T C  TC %B-%C B-T  %Ct--------------------------------------------------------------------------------------------------------------------nCBusco bonificacin en la lista CCZCC sin cliente para el cliente C6C$C Lista base: CC ZC  Ta%jCbienescodins T% T%AC#Tomo la bonificacin del artculo: CC ZC % T%=CTomo la bonificacin temporal: CC ZC 9%C  :%CCX  %=%C    >%C  CX   T-  T-% %j]CMNo se obtuvo una bonificacin de la lista, reviso la bonificacin del clienteC%Cclientescodcli%G%C % S  %fPC/Tomo la bonificacin por artculo del cliente: CC ZCT Ta ?%;C4El cliente tienen una bonificacin por artculo del CC Z0% pero no la tomo porque la lista no lo permite.C <C,No est posicionado en el cliente, error !!!C T- BUXBONIFXCOD_INSXBULXATRXLISPREXCOD_CLIXERRXMSG XBONIF_TMPXPRECIO_DEFINIDO_EN_LISTA XAUTOHERENCIAVE_POSICIONARSE_EN_LISTA XLISTABASECFG_LIS LISTABASE P_PRECIOS_LOGOLOGLOG XHERENCIA XENCONTREBIENESCOD_INSDES_INSVE_OBTENER_BONIF_EXACTO_V2 P_PRECIOGENCLIENTESCOD_CLIDES_ARTCFG_DESC+ TC T C  TC % TaT TDebe pasar el parmetro Lista de Precios a la funcin ve_obtener_precio_exacto() !!!B-%C  ! TB-F G((lisxcliECZ%C4  m%RCLista: CZ Base: CZ Bonificacin: C Z Decimales: CZ Cliente:  - Se encontr bonificacin: CC  ZCT Ba %CCLista: CZ Base: CZ Bonificacin: C Z Decimales: CZ Cliente:  - No se encontr bonificacinC% DT%%3C#No hay lista base, fin de recursinCB- @5TC C  B %-CSupera el mximo de recursinCB-UXBONIFXCOD_INSXBULXATRXLISPREXCOD_CLI XHERENCIA XAUTOHERENCIAXERRXMSGVE_POSICIONARSE_EN_LISTALISPRECLISXCLIBONIF P_PRECIOS_LOGOLOGLOGCFG_LIS LISTABASEBONLIS DECIMALESP_PRECIOS_MAX_RECURSION XRESULTADOVE_OBTENER_BONIF_EXACTO_V2+ TC TC TC % TaTTDebe pasar el parmetro Lista de Precios a la funcin ve_obtener_precio_exacto() !!!B-%C ! TB-F G((lisxcliECZ%C4  %hCLista: CZ Base: CZ Bonificacin: C  Z Decimales: CZ Cliente: 3 - Se encontr bonificacin incluida en el precio: CC  ZCT T Ba % B- %CLista: CZ Base: CZ Bonificacin: C  Z Decimales: CZ Cliente: 4 - No se encontr bonificacin incluida en el precioC% JT%B- F8TC C B %-CSupera el mximo de recursinCB-UXBONLISXCOD_INSXBULXATRXLISPREXCOD_CLI XAUTOHERENCIAXERRXMSG XLISTAMAXVE_POSICIONARSE_EN_LISTALISPRECLISXCLIBONLIS P_PRECIOS_LOGOLOGLOGCFG_LIS LISTABASE DECIMALESP_PRECIOS_MAX_RECURSION XRESULTADOVE_OBTENER_BONLIS_EXACTO_V2 ;     '%CxfecactbLTTC T C  T C  TC T C  T C  %"B-%C  JB-TTT%  T %7CTomo el precio temporal: CCZC T%  T %SC5Tomo la bonificacin incluida en el precio temporal: CC ZC% T TMT C  ! %   T a%HC8Precio determinado en la lista del cliente (no heredado)C  T T a% Z%"VE%C    !R T a% B%CCX  ! T a% %"%IDC4Hay precios genricos, busco sin bultos ni atributosCF%C  CX  ! T a%#% C$g  T*TCC$g  %%CConvierto precio en moneda CCZ a moneda CCC$gZ con el cambio CCZ: CCZ --> CCZC% C &%UAT'C  ( j T'a%' %"<%C    ( T'a%' 89%CCX  (4 T'a%' %"=%C  CX  ( T'a T%s Td Td%o MCAcumulo bonificacin por lista C Z: C ZC%   TC)% Td% |CAplico la bonificacin CC Z al precio CC Z con redondeo a CCZ decimalesCTCT  % ,CNo hay bonificacin de listaC B U*XPRECIOXCOD_INSXBULXATRXLISPREXCOD_CLIXMONEDAXFECACTXCAMBIOXERRXMSG XPRECIO_TMP XBONLIS_TMP XNO_HEREDADO XHERENCIA XLISTABASEXBONLIS XDECIMALESXOLD XDESCUENTO XSUMABONLIS XLISTAMAX XAUTOHERENCIAVE_POSICIONARSE_EN_LISTA XBONLISBASECFG_LISBONLIS DECIMALES LISTABASE P_PRECIOS_LOGOLOGLOG XOK_PRECIOVE_OBTENER_PRECIO_EXACTO_V2 P_PRECIOGENP_PRECIOS_VERSIONMONEDACONVERTIR_PRECIOMENSAJE XOK_BONLISVE_OBTENER_BONLIS_EXACTO_V2SUMAR_BONIFICACIONES_DE_LISTAS7    %CxfecactbLgT TC T C  T C  %< T aT TDebe pasar el parmetro Lista de Precios a la funcin ve_obtener_precio_exacto() !!!C B-%C  q T B-FG((lisxcliECZ%C4  %CLista: CZ Base: CZ Bonificacin: C Z Decimales: CZ Cliente:  - Se encontr precio: CCZ C TTCgT  T Ba %CLista: CZ Base: CZ Bonificacin: C Z Decimales: CZ Cliente:  - No se encontr precio C % iT%B- eATC    C  B %-CSupera el mximo de recursin C B-UXPRECIOXCOD_INSXBULXATRXLISPREXCOD_CLI XHERENCIA XAUTOHERENCIAXMONEDAXFECACTXERRXMSG XLISTAMAXOLOGLOGVE_POSICIONARSE_EN_LISTALISPRECLISXCLIPRECIO P_PRECIOS_LOGCFG_LIS LISTABASEBONLIS DECIMALESMONEDAFECHAP_PRECIOS_MAX_RECURSION XRESULTADOVE_OBTENER_PRECIO_EXACTO_V2 T T%Ccfg_lis UQcfg_lis$%Ccfg_lislista TOTLista CCZ0 no encontrada en la configuracin de listas !!!BUXERRXMSGXLISPRECFG_LISXLISTA;     %G+(sys_logTCloguear_precios_determinacionPrecio - Artculo CCC C /6CCC C /6CN'CDeterminacin de precioClC Artculo: CCC C /6CCC C /6CCLista: CCZCFTC   %~/CPrecio obtenido: CCZC< BUXPRECIOXCOD_INSXBULXATRXLISPREXCOD_CLIXMONEDAXFECACTXCAMBIOXERRXMSG XPRECIO_TMP XBONLIS_TMP XNO_HEREDADO XRESULTADO P_PRECIOS_LOGSYS_LOGOLOGLOGVE_OBTENER_PRECIO_V2z+  % G+(sys_logT Cloguear_precios_determinacionBonificacin - Artculo CCC C /6CCC C /6CN-CDeterminacin de bonificacin C lC Artculo: CCC C /6CCC C /6C CLista: CCZ C 6T C % j5CBonificacin obtenida: CCZ C <  B UXBONIFXCOD_INSXBULXATRXLISPREXCOD_CLIXERRXMSG XBONIF_TMPXPRECIO_DEFINIDO_EN_LISTA XRESULTADO P_PRECIOS_LOGSYS_LOGOLOGLOGVE_OBTENER_BONIF_V2N TC Td Td%mCAcumulo bonificacin por lista C Z de la lista CZ: C ZC$%    4C BC G BU XSUMABONLIS XLISTAMAXCFG_LISBONLIS XDESCUENTO P_PRECIOS_LOGOLOGLOGLISTA LISTABASEVE_POSICIONARSE_EN_LISTASUMAR_BONIFICACIONES_DE_LISTASve_obtener_exacto_ambos_v20ve_obtener_bonif_v2ve_obtener_bonif_exacto_v2 ve_obtener_bonlis_exacto_v2ve_obtener_precio_v2ve_obtener_precio_exacto_v2#ve_posicionarse_en_lista)ve_obtener_precio_computado*ve_obtener_bonif_computado7.sumar_bonificaciones_de_listasa1311A221b3q31122qAqA2AAAbAd1A12AAAAAAAA1AcAba1A1AAAAA12122qAqAr2 Aq1 A2b31ArRcB1AqAA42122qAqAr1 Ar2v1 A2bxcA1AqAAA5r1A2111212qAqA12qAB221AA22ABARAAB$AB2AAdAAA22 A2AAA4AAABABAAA2b2ABaA3b2Ab2AB4q1A2513qAqAt21 A"r21 A3bxcA1AqAA41AAA6r32 rBb2rA2r22 Bb2RrA31ra2AD$"A2_ e5j&&o@WU@JL/K>LsLPPTTW% qU V_ F%Cagente - QagenteF%CN\ragenteC]MODELO AGENTE MODELOVC%Ccentral QcentralF%CN3ErcentralC]0CENTRAL%Cdeposito `QdepositoF %CN]rdeposito   C]00CENTRALSS%Cfletes  QfletesF %CN{Xrfletes C]1RETIRA EL CLIENTEVrfletes C]2PROPIO GENERICOMrfletes C]3PROPIO`rfletes C]4SERVICIOS / NO SE ENTREGA%Cidx03Q Qidx03S;ridx03DOLARESU$SDOL9ridx03EUROSEUR060%Cproveedo ^QproveedoF%CNrproveedoC]1PROVEEDOR CONTADOSSCONTADOrproveedoC]2AFIP - DIR. DE ADUANASNSDGA%Ccondpago QcondpagoFOrcondpagoCONTADOC]Orcondpago15 DIASC]Orcondpago30 DIASC]Orcondpago45 DIAS-C]Orcondpago60 DIAS<C]Orcondpago90 DIASZC]Prcondpago120 DIASxC]%Cmotivos QmotivosF C!%Ccondcobr HQcondcobrF"Zrcondcobr#CONTADOC]Zrcondcobr#15 DIASC]Zrcondcobr#30 DIASC]Zrcondcobr#45 DIAS-C]Zrcondcobr#60 DIAS<C]Zrcondcobr#90 DIASZC][rcondcobr#120 DIASxC]QBU$AGENTEIDUCOD_AGENOMBREPAISCLASECENTRALDESCR UBICACIONDEPOSITOFACCOMFLETESCOD_FLECUITTIPOIDX03SIMBOLOFCEPROVEEDOCOD_PROCONTADOTIPOIVAIVACTRL INSCRIPCIOFANTASIA OLOCALIZACION ADUANA_CUITCONDPAGOPLANPLAZOCUOTAMOTIVOSINICIALIZAR_MOTIVOSCONDCOBRVALORES7hrmotivosDIFERENCIA DE CAMBIO 1111111111-a[rmotivosNO USAR 2222222222-amrmotivosANULACION DE COMPROBANTES 3333333333a aBUCODIGODESCRIDU COMISIONESTIPOVENTASinicializar_motivos= Aq!AAq!QAAq!AAq!aAbAAQQQAq!QAAqAqAqEB2B1P+b%-btVU1  T T-T%'T: C  Ta%TC C #TTareasC #TC-QC T BU XTMPMENSAJEXMOSTRARTHISMENSAJEOTAREA COLECCIONMOSTRAR_RESULTADO DESCRIPCION TC CollectionNUTHIS COLECCION'%C\TC SysV_Tarea sys_verificar2_Tareas_logica.prg KTCsys_verificar2_Tareas.prgC BU XIDXEJECUTAR_TAREAXNOMBREXFILTROXEMPXCODEMPXVERSIONXCLASEOTAREATHIS COLECCIONADDID|u%Cq C%mTaT BUOTAREATHIS COLECCIONNECESITA_EJECUTAREJECUTAR SUSPENDER SUSPENDIDO8)TCC 6 BUTHIS DESCRIPCIONNOMBREIDy'%C\tareas_estado.dbf0r%C tareas_Estado g!Q\tareas_EstadoFUP_SYSTEM TAREAS_ESTADOM C%C tareas_estado iCENo se pueden ejecutar tareas hasta que no est creado TAREAS_ESTADO (CC>Z)B-/%C tareas_estadofull_id F%B- BF>%> > U XNOCREARTHIS ABRIR_TABLARESULTADO_ESPECIFICARIDFULL_ID TAREAS_ESTADONOMBRE POR_EMPRESACODEMPP_CODEMPBUTHIS RESULTADO<9BC  C   UTHISEMPP_EMPCODEMPP_CODEMP|TCa%C A CB-4B    C U XEXISTETHISBUSCARSEVALIDACION_INICIALREGISTRAR_ESTADO TAREAS_ESTADO RESULTADO REINTENTOSNECESITA_EMPRESAq%3!TCZ)B-%C>C>OC+El ID de tarea excede el tamao del campo (CC>Z)B-UTHIS ABRIR_TABLARESULTADO_ESPECIFICARID TAREAS_ESTADOj %C: TaTC Z T- Ta BU XEJECUTADO XRESULTADOTHISNECESITA_EJECUTAREJECUTAR@  Ta%C > CB-T n &xTarea ( T-"CError: '% C C #CEjecucin normal%C # CB- C BU XOKOEXTHIS PRE_EJECUTARREGISTRAR_ESTADOXTAREATAREARESULTADO_ESPECIFICARMESSAGE RESULTADOMENSAJE POS_EJECUTAR'$CTarea por defectoUTHISRESULTADO_ESPECIFICARA%C tareas_log :Q \tareas_logUP_SYSTEMa C%C Tareas_Estado 3B-'>CUTHISBUSCARSE RESULTADOMENSAJEFECHAMensaje_Access,INITTareas_AgregarTareas_Ejecutar}Descripcion_AccessN Abrir_TablaBuscarseGMostrar_ResultadoNecesita_Empresa?Necesita_EjecutarFull_ID_AccessINITE Filtrado Resultado_especificar  Pre_Ejecutarw  Pos_Ejecutar Validacion_Inicial Ejecutar_Si_Necesita EjecutarEjecutar_ProcesobRegistrar_Procesoregistrar_EstadoY T- T- T- T    U COLECCION SUSPENDIDOOTAREAMENSAJE$TThis.Ejecutar_Proceso() T T T T T T T T T  T - T - T  T              UTAREANOMBREFILTROIDVERSIONEMPCODEMP RESULTADOMENSAJE REINTENTOS SUSPENDER POR_EMPRESAFULL_ID DESCRIPCION SysV_TareasCUSTOM SysV_TareaCUSTOM&6A"qAC11qA22qA2A1!AAA 12qAqA7qqAqqQ!ABA222q!AqAA2!A22AqAAqA!qA2233qAqA31A2AqAq!Aq1AAqA2B2A2qAs4P=A`;{+*KH-p(L4J ZG qI Z tK v wS A Z] cp`tuvMv$9% \+ dAXݭU T T T T TFG-(F ~ T T TF~  FMKC ZC ZC ZC ZC ZCZ(  %gG> C ZC ZC ZC ZC ZCZT TTF<>  C ZC ZC ZCZF>  UXCOUNTXSUMXRECXCUMP_OCXPER_OC TTOTALGENERALASUMAR1 XCOUNT_ITRESUMEN1ORDEN DIA_ENTRE PER_ENTREITMDATATIPOCUMPL_ITPER_ITFORPER_PDCUMPL_PD\F~C QF G((cod!E< TE~ Vr,   }F % VG((ccvfacE  G((remito EF E %CCyTTC T(,TCC, 6CF > TCO T T*-CZCZCZCZCZCZ > #BU TTOTALGENERALDESPACHOMOVSTOCKCODDET_CODDET_BULDET_ATRARR_CLI MAXARR_CLICAUSACODIGOBULATRCCVENTCCVFACNUMEROREMITOCLIENTESCOD_CLINOMBREXXTXTZXREGXITMITMXORDENORDENDATATIPOio ttotalgeneralQQQtmpsaleK(   ~.>F> > >CtmpSaleNBU RTOTAL0RTOTAL1RTOTAL4 TTOTALGENERALORDENDATATIPOTMPSALECUMPL_PDPER_PDXRT0XRT1FORALLSo ttotalgeneralCiQQC 6Q Q CXQ proveedores_ordenes_1 C C 3("\cumplimiento_de_ordenes_resumen_1Իzoproveedores_ordenes_1C Q CXQ proveedores_ordenes_2 C 3("\cumplimiento_de_ordenes_resumen_2ԻVoproveedores_ordenes_2CQ proveedores_ordenes_33("\cumplimiento_de_ordenes_resumen_3ԻBUFECHAANO TRIMESTRECOD_PRONOMBREORDENENTREGAFENTREGACUMPL_PD PER_DEMORAPUNTAJE CALIFICACION TTOTALGENERALRENGLON1PROVEEDORES_ORDENES_1 P_DIR_EXPORTPROVEEDORES_ORDENES_2COUNTCANTIDADPROVEEDORES_ORDENES_3calcular_otros0 importaciones resumiendoexportar1qarqqr2tRAAqAqq3t1qrRqq1ArDBArCA2rArqB2 Q 22h2A1x =E ~P 8%lYV J%Cp_dosbNCp_codempbN C p_sys_colorbN tTC^ B)BC U XCOLORFONDO XCOLORBOTONES OBTENER_COLOR P_SYS_COLORP_DOSP_CODEMPH$ VTC^ B  T B  T B  T BBC^U XSYSCOLORXESDOS XCOLORFONDO XCOLORBOTONESP_SYS_COLOR_MODOP_SYS_COLOR_DOS Obtener_ColorbA211b1A!1H  0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _ROJ18TEIV 591636177/F] WINDOWS _ROJ18TEIZ1455070749~L WINDOWS _ROJ18TEIV1455067522  WINDOWS _ROJ190MZB1455067522s H  WINDOWS _ROJ18TEIV1454992300 WINDOWS _ROJ18TEIV1454992300fu> WINDOWS _ROJ18TEIZ1454992300  d WINDOWS _ROK0MR2UV1455067522U f J 9 WINDOWS _16S0H2B2F1454992300= 0 " R WINDOWS _ROJ18TEIV1455070749E3n  WINDOWS _5BS0KP6FG1454992300 w [ z WINDOWS _6MI0SWW7B1455070749N < <. COMMENT RESERVED mVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formABM_ESTADOS_DE_VENTABorderStyle = 2 Height = 196 Width = 461 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Estado de Venta" Icon = ("bmp\"+p_icono_sistema) WindowType = 1 Name = "ABM_ESTADOS_DE_VENTA" PROCEDURE validar parameters xmsg if thisform.tipoabm=1 * Agregar sele estven xorder=order() set order to codigo registro=recno() seek thisform.text1.value if found() xmsg='Cdigo repetido !!!' set order to (xorder) go registro return .f. else return .t. endif endif return .t. ENDPROC PROCEDURE Unload return thisform.resultado ENDPROC PROCEDURE Init parameters xtipo thisform.tipoabm=xtipo ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Vigente" Height = 17 Left = 12 Top = 88 Width = 45 TabIndex = 11 Name = "Label3" textboxABM_ESTADOS_DE_VENTALabel2ColumnWidths = "50,0" RowSource = "Si,1,No,2" Value = 0 ControlSource = "popup" ColumnLines = .F. Left = 94 Top = 121 BoundTo = .T. Name = "Si_no1"  clases.vcxsi_noABM_ESTADOS_DE_VENTAcombobox clases.vcx formulariohArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 ABM_ESTADOS_DE_VENTASi_no2comboboxmresultado tipoabm 1=agregar 2=modificar 3=visualizar *validar Valida la actualizacin, pero no la ejecuta  commandbutton commandbuttonCommand1ABM_ESTADOS_DE_VENTAvTop = 168 Left = 149 Height = 25 Width = 73 FontBold = .T. Caption = "Aceptar" TabIndex = 6 Name = "Command1" PROCEDURE Click local xmsg xmsg='' if thisform.validar(@xmsg) thisform.resultado=.t. thisform.release else =messagebox(xmsg,0) endif ENDPROC tControlSource = "descr" Format = "!" Height = 25 Left = 94 TabIndex = 2 Top = 48 Width = 362 Name = "Text2" labelSi_no1ABM_ESTADOS_DE_VENTAlabellabellabeltextboxLabel3labellabelABM_ESTADOS_DE_VENTAText2 commandbutton commandbuttonCommand2ABM_ESTADOS_DE_VENTAwTop = 168 Left = 238 Height = 25 Width = 73 FontBold = .T. Caption = "Cancelar" TabIndex = 7 Name = "Command2" FPROCEDURE Click thisform.resultado=.f. thisform.release ENDPROC ColumnWidths = "50,0" RowSource = "Si,1,No,2" Value = 0 ControlSource = "vigente" ColumnLines = .F. Left = 94 Top = 84 BoundTo = .T. Name = "Si_no2"  clases.vcxsi_noABM_ESTADOS_DE_VENTALabel5labellabelLabel1ABM_ESTADOS_DE_VENTAAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Descripcin" Height = 17 Left = 10 Top = 52 Width = 70 TabIndex = 8 Name = "Label1" textboxtextboxText1ABM_ESTADOS_DE_VENTAControlSource = "codigo" Format = "z" Height = 25 InputMask = "99999" Left = 94 TabIndex = 1 Top = 12 Width = 60 Name = "Text1" 4PROCEDURE When return thisform.tipoabm=1 ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Adventencia" Height = 17 Left = 12 Top = 126 Width = 72 TabIndex = 10 Name = "Label5" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cdigo" Height = 17 Left = 12 Top = 16 Width = 41 TabIndex = 9 Name = "Label2" ".%^rlUBUTHISFORMTIPOABMWhen011))"^%qUT- UTHISFORM RESULTADORELEASEClick012;)M"44S% Uc T%CCTa  \CxUXMSGTHISFORMVALIDAR RESULTADORELEASEClick01qqA2)4"xx%U4%F TCG((codigo TCOE%C4 TCdigo repetido !!! G(( #B- BaBaU XMSGTHISFORMTIPOABMESTVENXORDERCODIGOREGISTROTEXT1VALUE BUTHISFORM RESULTADO4TUXTIPOTHISFORMTIPOABMvalidar0UnloadHInitt1qasrqAAr42q1Ur!)x%/ZcWY% C a Ta Ta( c:\sistema\SYSTEM\DATA\1\ges.DBC TT SCH%  B  T a"T C Ct Atencin64CInicio IN_INVENTARIO_A_VENCER 2TCObteniendo inventario a vencer  T T TH 2FSQL_RptinventarioactualaaH 8 TC No hay datos l!TCError: C 2TCOk%TCEnviando por mail T{sys_mail_alertasSe adjunta reporte de \xchg\Inventario Vencimiento\Cxls%Cp&TCEnviado a la cola. !TCError: CC1CFin VE_INVENTARIO_A_VENCER UXPRUEBA XEMP_PARTXMANUALSETS DEY_FUNC2P_DEV P_SUSPENDCP_DOSP_EMP!P_IN_ALERTA_VENCIMIENTO_NOTIFICARXSOLOLOG XMSGTITULOMENSAJE XID_LOG_AUT1LOG_AUTXERRXMSGXNOMBREEXPORTAR_VENCIMIENTOSQL_RPTINVENTARIOACTUALSEND_EMAIL_ALERTASSYS_MAIL_ALERTAS(P_IN_ALERTA_VENCIMIENTO_NOTIFICAR_MAILTOP_SERVERAQBAA!B$eBA1aRaAA1%OdeV;QVFP_WINSOCK_SEND_MAILsys_winsock.prg     $TCChilkat_9_5_0.GlobalN-%TCChilkat_9_5_0.MailManNTTTTT !#TCChilkat_9_5_0.EmailNT"#T$%T&C&,;T'C',;C&;()C';()(C _TCC v TCCC*%C+ T+C+,;T,C,,;C+;()C,;()(C [TCC r TCCC-%C. #T.C.,;C.;()(CCCC/T00T1utf-8%C2vC43 +T CChilkat_9_5_0.StringBuilderNC2 5CC 76 TaT89%C lc_attachbO :; T:<8TCC<= % <:T>Error al adjuntar el archivo O(C<)T?a B?  %C8 T8C8,;C8;()(CT@CTCC@=% <:T>Error al adjuntar el archivo C(C@)T?a B? TCA%`CErrorBT>CT?a<< < < B? $T>OK Enviado - ChilkatT?-<<< < < B? UD LOSENDMAIL SYS_WINSOCKPRGXAUTXTOKENACTUALIZADOXOK LNSUCCESSLOEMAILLCCIDLOSBHTMLLNNUMREPLACEMENTSLOSBMIMELOJSONLCURLLORESPLC_TOXTOXNAMENITXSPLXSP2OGLOBALCOMPROBAR_LICENCIA LOMAILMANSMTPHOST SMTP_HOST SMTPUSERNAME AUTH_LOGIN SMTPPASSWORD AUTH_PASSWORDSMTPSSLSMTP_SSLSMTPPORT SMTP_PORT FROMADDRESSFROMFROMNAME FROM_NAMETOTO_NAMEODEYFUNCSPLIT_TO_ARRAYADDTOCCCC_NAMEADDCCCCIADDBCCSUBJECTCHARSET MESSAGEHTMLADDPLAINTEXTALTERNATIVEBODYMESSAGEAPPENDADDHTMLALTERNATIVEBODY GETASSTRING LC_ATTACH ATTACHMENT TMLC_ATTACHFXTIPO TMLC_ATTACHAGREGAR_ADJUNTOERREUR SMTP_ERRORXARCHIVO SENDEMAILSYS_M LASTERRORTEXT %CxTipobLHF} CCfPDF}Tapplication/pdf%CTCTC TC BUOMAILXARCHIVOXTIPOXTYPEXOKADDFILEATTACHMENTADDFILEATTACHMENT2/%C t$TCChilkat_9_5_0.GlobalN Ta T-?T2Error al instanciar el objeto Chilkat_9_5_0.Global%C B% /TCGESms8.CBX0323_eFK4OGjVDX9c %fT T-  % "TChilkat habilitado!!! 1TError al habilitar ChilkatC %Ca %(<U XREGISTRANDOOGLOBALXOKXMENSAJE LNSUCCESSLNSTATUS XMENSAJE2XCREADOTYPEO UNLOCKSTATUS UNLOCKBUNDLE LASTERRORTEXTMENSAJE_SUSPENDOAgregar_Adjunto Comprobar_Licencia qqqqqqqqqq2qsAR22121431AAASAAAARAA3QB21ABqAB!q!uqABBASA!1qqqqABrqqqq2AAQA212QAAQABbAq!AAAAqA1u)H0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _RKQ17NGNU 763778825/F] WINDOWS _RK317O4HV1458722250,-/K WINDOWS _6N117LISB1458722250ct WINDOWS _RKQ17NGNU1458722250wh[.. WINDOWS _RKQ17NGNU1458722250- WINDOWS _6N117WK091458722250!7, WINDOWS _6N117WK0A1458722250{ WINDOWS _6N11A5SRR1456320207fQA%d" COMMENT RESERVED 7VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformformulario_acep_cancHeight = 508 Width = 800 Desktop = .T. ShowWindow = 1 DoCreate = .T. Caption = "Notas" origen = 1 solapa = 0 Name = "formulario_acep_canc" Command1.Top = 480 Command1.Left = 338 Command1.Anchor = 260 Command1.TabIndex = 2 Command1.Name = "Command1" Command2.Top = 480 Command2.Left = 401 Command2.Anchor = 260 Command2.TabIndex = 3 Command2.Name = "Command2" ayuda.Name = "ayuda" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" WPROCEDURE Init parameters xorigen, xno_editable, xsolapa xorigen=evl(xorigen, 1) thisform.origen=xorigen xsolapa=evl(xsolapa, 0) thisform.solapa=xsolapa thisform.resultado=.t. thisform.autocenter=.t. thisform.pageframe1.page1.edit1.ControlSource = iif(xorigen=1,"tmp_nota_ge01.comentario", "tmp_nota_ge02.comentario") thisform.pageframe1.page1.edit1.ReadOnly = xno_editable thisform.pageframe1.page1.forecolor=iif(empty(evaluate( iif(xorigen=1,"tmp_nota_ge01.comentario", "tmp_nota_ge02.comentario")) ),0,255) *LIMPIAR_V28 if type("cliotros.nota_exp")="M" thisform.pageframe1.page2.edit1.ControlSource = iif(xorigen=1,"tmp_nota_ge01_aux.nota_pre", "tmp_nota_ge02.comentario") thisform.pageframe1.page3.edit1.ControlSource = iif(xorigen=1,"tmp_nota_ge01_aux.nota_exp", "tmp_nota_ge02.comentario") thisform.pageframe1.page4.edit1.ControlSource = iif(xorigen=1,"tmp_nota_ge01_aux.nota_cob", "tmp_nota_ge02.comentario") thisform.pageframe1.page2.edit1.ReadOnly = xno_editable thisform.pageframe1.page3.edit1.ReadOnly = xno_editable thisform.pageframe1.page4.edit1.ReadOnly = xno_editable =sys_mostrar_screen("Suspendo?", .t.) thisform.pageframe1.page2.forecolor=iif(empty(evaluate( iif(xorigen=1,"tmp_nota_ge01_aux.nota_pre", "tmp_nota_ge02.comentario")) ),0,255) thisform.pageframe1.page3.forecolor=iif(empty(evaluate( iif(xorigen=1,"tmp_nota_ge01_aux.nota_exp", "tmp_nota_ge02.comentario")) ),0,255) thisform.pageframe1.page4.forecolor=iif(empty(evaluate( iif(xorigen=1,"tmp_nota_ge01_aux.nota_cob", "tmp_nota_ge02.comentario")) ),0,255) if xsolapa>0 aaa="thisform.pageframe1.page"+alltrim(str(xsolapa))+".setfocus" &aaa endif else thisform.solapa=0 thisform.pageframe1.page2.Enabled=.f. thisform.pageframe1.page3.Enabled=.f. thisform.pageframe1.page4.Enabled=.f. endif thisform.pageframe1.page1.edit1.SetFocus ENDPROC PROCEDURE Unload return thisform.resultado ENDPROC PROCEDURE Command1.Click thisform.resultado=.t. thisform.release ENDPROC PROCEDURE Command2.Click thisform.resultado=.f. thisform.release ENDPROC  "Ҧ%rUUTCVUTHISREADONLYACCESOGotFocus0Init;14A1,G_)jPROCEDURE Init this.ReadOnly=acceso(86) ENDPROC PROCEDURE GotFocus *KEYBOARD "{CTRL+END}" ENDPROC editboxEdit1%formulario_acep_canc.Pageframe1.Page1Edit1editboxeditbox Pageframe1editboxFontBold = .F. FontName = "Courier New" FontSize = 8 Anchor = 15 Format = "" Height = 412 Left = 1 ScrollBars = 2 TabIndex = 1 Top = 1 Visible = .T. Width = 794 ControlSource = "" Name = "Edit1" editboxEdit1editboxFontBold = .F. FontName = "Courier New" FontSize = 8 Anchor = 15 Format = "" Height = 412 Left = 1 ScrollBars = 2 TabIndex = 1 Top = 1 Visible = .T. Width = 794 ControlSource = "" Name = "Edit1" %formulario_acep_canc.Pageframe1.Page2Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 8, 7, 14, 11, 8, 3, 0 Top = 468 Left = 759 Height = 38 Width = 38 FontBold = .T. Anchor = 12 WordWrap = .T. Picture = bmp\impresora.ico Caption = "" TabIndex = 3 ZOrderSet = 10 Name = "Command6" formulario_acep_cancCommand6 commandbutton commandbuttonjPROCEDURE GotFocus *KEYBOARD "{CTRL+END}" ENDPROC PROCEDURE Init this.ReadOnly=acceso(86) ENDPROC FontBold = .F. FontName = "Courier New" FontSize = 8 Anchor = 15 Format = "" Height = 412 Left = 1 ScrollBars = 2 TabIndex = 1 Top = 1 Visible = .T. Width = 794 ControlSource = "" Name = "Edit1" %formulario_acep_canc.Pageframe1.Page4Edit1editboxeditbox%formulario_acep_canc.Pageframe1.Page3origen solapa  pageframe pageframeformulario_acep_cancCErasePage = .T. PageCount = 4 Anchor = 15 Top = 24 Left = 0 Width = 800 Height = 444 Name = "Pageframe1" Page1.Caption = "Facturacin" Page1.Name = "Page1" Page2.Caption = "Presupuestos" Page2.Name = "Page2" Page3.Caption = "Expedicin" Page3.Name = "Page3" Page4.Caption = "Cobranzas" Page4.Name = "Page4" FontBold = .F. FontName = "Courier New" FontSize = 8 Anchor = 15 Format = "" Height = 412 Left = 1 ScrollBars = 2 TabIndex = 1 Top = 1 Visible = .T. Width = 794 ControlSource = "" Name = "Edit1" jPROCEDURE GotFocus *KEYBOARD "{CTRL+END}" ENDPROC PROCEDURE Init this.ReadOnly=acceso(86) ENDPROC jPROCEDURE GotFocus *KEYBOARD "{CTRL+END}" ENDPROC PROCEDURE Init this.ReadOnly=acceso(86) ENDPROC  PROCEDURE Click =sys_m("imprimir") private znotas * LIMPIAR_V28 if type("tmp_nota_ge01_aux.nota_pre")="M" if mensaje_sino("Imprime todas las notas?",2) znotas=0 else znotas=thisform.pageframe1.ActivePage endif else znotas=1 endif local xnota xnota="" xnota = xnota + chr(13) if znotas=0 ztitulo="Notas" if !empty(tmp_nota_ge01.comentario) xnota = "Nota Facturacin:"+chr(13) xnota = xnota + alltrim(tmp_nota_ge01.comentario) xnota = xnota + chr(13)+chr(13) endif if !empty(tmp_nota_ge01_aux.nota_pre) xnota = xnota + "Nota Presupuestos:"+chr(13) xnota = xnota + alltrim(tmp_nota_ge01_aux.nota_pre) xnota = xnota + chr(13)+chr(13) endif if !empty(tmp_nota_ge01_aux.nota_exp) xnota = xnota + "Nota Expedicin:"+chr(13) xnota = xnota + alltrim(tmp_nota_ge01_aux.nota_exp) xnota = xnota + chr(13)+chr(13) endif if !empty(tmp_nota_ge01_aux.nota_cob) xnota = xnota + "Nota Cobranzas:"+chr(13) xnota = xnota + alltrim(tmp_nota_ge01_aux.nota_cob) xnota = xnota + chr(13)+chr(13) endif else do case case znotas=1 ztitulo="Notas Facturacin" xnota = alltrim(tmp_nota_ge01.comentario) case znotas=2 ztitulo="Notas Presupuestos" xnota = alltrim(tmp_nota_ge01_aux.nota_pre) case znotas=3 ztitulo="Notas Expedicin" xnota = alltrim(tmp_nota_ge01_aux.nota_exp) case znotas=4 ztitulo="Notas Cobranza" xnota = alltrim(tmp_nota_ge01_aux.nota_cob) otherwise mensaje("Error, no se puede imprimir !!!") return .f. endcase endif =strtofile(xnota, p_local+"\tmp\borrar_notas.txt") create table (p_local+"\tmp\borrar_notas") free (nota m) append blank append memo nota from (p_local+"\tmp\borrar_notas.txt") zempnombre = "" zempdireccion = "" zempzipciudad = "" zempprovpais = "" zemptelefono = "" zempcuitiva = "" zempcuit = "" zempiva = "" ziibb_numero = "" zinicio = {} zemplogo = "" zemplogo_txt = "" zempmarcaagua = "" xobj_datos_empresa = NULL DO datos_empresa IN listados WITH zempnombre, zempdireccion, zempzipciudad, zempprovpais, zemptelefono, zempcuitiva, zempcuit, zempiva, ziibb_numero, zinicio, xobj_datos_empresa zclinombre = clientes.nombre xformulario = "notas_clientes.frx" DO imprimir_formulario IN listados WITH xformulario, , , , , ".t.", .T.,.T.,.T.,.T.,.T.,.F.,,,1,.F., , , , , , 1 if used("borrar_notas") use in borrar_notas endif try delete file (p_local+"\tmp\borrar_notas.txt") catch endtry ENDPROC  " G%z VUCimprimir50%Ctmp_nota_ge01_aux.nota_prebM.%CImprime todas las notas? T T  T TTC %TNotas%C w$TNota Facturacin:C TC TC C %C )TNota Presupuestos:C TC TC C %C W'TNota Expedicin:C TC TC C %C &TNota Cobranzas:C TC TC C  .H* 'TNotas FacturacinTC  kTNotas PresupuestosTC  TNotas ExpedicinTC  TNotas CobranzaTC 2*,CError, no se puede imprimir !!!B-(C\tmp\borrar_notas.txt*h1\tmp\borrar_notasM(\tmp\borrar_notas.txt T T T T T T T T TT T T T T?listadosT!"#T$notas_clientes.frxt%listados$.t.aaaaa--%C borrar_notasrQ& $\tmp\borrar_notas.txt U'SYS_MZNOTAS MENSAJE_SINOTHISFORM PAGEFRAME1 ACTIVEPAGEXNOTAZTITULO TMP_NOTA_GE01 COMENTARIOTMP_NOTA_GE01_AUXNOTA_PRENOTA_EXPNOTA_COBMENSAJEP_LOCALNOTA ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOZEMPLOGO ZEMPLOGO_TXT ZEMPMARCAAGUAXOBJ_DATOS_EMPRESA DATOS_EMPRESALISTADOS ZCLINOMBRECLIENTESNOMBRE XFORMULARIOIMPRIMIR_FORMULARIO BORRAR_NOTASClick01Qr1AAr22"RAaARaARqaARaaA1!2!2!2!qABQ1AAAA1 )  "Ҧ%rUUTCVUTHISREADONLYACCESOGotFocus0Init;14A1,G_) "Ҧ%rUTCVUTHISREADONLYACCESOUInit0GotFocusg1A23(G_) "Ҧ%rUUTCVUTHISREADONLYACCESOGotFocus0Init;14A1,G_)"N%V*U4TC TTC TTaTa[T Ctmp_nota_ge01.comentariotmp_nota_ge02.comentario6T jT CCCCtmp_nota_ge01.comentariotmp_nota_ge02.comentario6Ρ6'%Ccliotros.nota_expbM]T C tmp_nota_ge01_aux.nota_pretmp_nota_ge02.comentario6]T C tmp_nota_ge01_aux.nota_exptmp_nota_ge02.comentario6]T C tmp_nota_ge01_aux.nota_cobtmp_nota_ge02.comentario6T T T C Suspendo?alT CCCC tmp_nota_ge01_aux.nota_pretmp_nota_ge02.comentario6Ρ6lT CCCC tmp_nota_ge01_aux.nota_exptmp_nota_ge02.comentario6Ρ6lT CCCC tmp_nota_ge01_aux.nota_cobtmp_nota_ge02.comentario6Ρ6%:Tthisform.pageframe1.pageCCZ .setfocus &aaa  TT-T-T- UXORIGEN XNO_EDITABLEXSOLAPATHISFORMORIGENSOLAPA RESULTADO AUTOCENTER PAGEFRAME1PAGE1EDIT1 CONTROLSOURCEREADONLY FORECOLORPAGE2PAGE3PAGE4SYS_MOSTRAR_SCREENAAAENABLEDSETFOCUS BUTHISFORM RESULTADOTa UTHISFORM RESULTADORELEASET- UTHISFORM RESULTADORELEASEInit0UnloadCommand1.Click2Command2.Clicks122sr2ABAAB24532r"7$='"LB)0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6MV0WM0DS1455913372/F] WINDOWS _6MV0WM0DT1493862735 WINDOWS _6MV0WM0DW1493861665~ WINDOWS _6MV0WM0DX1493861665Rap} WINDOWS _6MV0WM0DY1493861665-A WINDOWS _6MV0WM0DZ1493861665  WINDOWS _6YV0ZRBW81493862735 COMMENT RESERVED  OVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form1aBorderStyle = 2 Height = 214 Width = 470 DoCreate = .T. Caption = "Datos Adicionales de OC" Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.INICIO.Name = "INICIO" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 180 wizard_buttons1.Left = 54 wizard_buttons1.TabIndex = 9 wizard_buttons1.enable_finalizar = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.TabIndex = 2 Text1.Name = "Text1" Command8.TabIndex = 1 Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Name = "Timer1" contador.TabIndex = 10 contador.Name = "contador" advertencia.TabIndex = 8 advertencia.Name = "advertencia" labellabelLabel2 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Retira" Height = 17 Left = 25 Top = 72 Width = 36 TabIndex = 5 Name = "Label2" textboxtextboxText3 Wizard_form1lControlSource = "xoc_retira" Height = 23 Left = 109 TabIndex = 4 Top = 69 Width = 336 Name = "Text3" labellabelLabel3 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Aprueba" Height = 17 Left = 25 Top = 108 Width = 50 TabIndex = 7 Name = "Label3" textboxtextboxText4 Wizard_form1nControlSource = "xoc_aprueba" Height = 23 Left = 109 TabIndex = 6 Top = 105 Width = 336 Name = "Text4"  cod_desc_usr2 clases.vcx container Cod_desc_usr2 Wizard_form1Anchor = 3 Top = 27 Left = 17 Width = 439 Height = 39 TabIndex = 3 dato = xoc_solicita dato_tabla = m tabla_ayuda = bususr3 Name = "Cod_desc_usr2" Label2.Caption = "Solicitante" Label2.Left = 7 Label2.Top = 9 Label2.DisabledForeColor = 0,0,0 Label2.Name = "Label2" Text8.Left = 92 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 24 Text9.Left = 175 Text9.Top = 5 Text9.Width = 253 Text9.Name = "Text9" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 GIF87a j5U*ݑوՀ`@ ڊ}pcWA+qeZOD3"XNE;2% 걱80(!b, @,  X8C)2H@&ZH(XAD6DK'!D0 .L@C Ђ8t"F$A`ԩUf=Y )RXBf ^˞M-0bȘ1F 2oW/_ZȡcDž    > CrItm: CCZCC 3Art.: CC C C6 Precio: CC Z -> CC Z%  w>  CrItm: CCZCC 3Art.: CC C C6 Descr. Nueva: C  3C&No se encuentra el tem del remito !!!L Ta!T % )TC   6>  !!""##$$%%&&''>())F G((idEr$+C+ +r w>,,--..//00112233HCr[ T4- BU5XREMITO_A_MODIFICARXERRXACC Q_MOD_REMFAC_VENCAUSAITMNUEVOCOS_LIFONUEVODDESC_INSXOLD_TOTTOT_VENXNEW_TOTCALCULO_TOTAL_PS RECEPCIONCOEFCOEFICDES_INSVENTASUSER_LOG PUB_INDEXCOD_INSATRBULMENSAJE XRELACIONCCVENT IMPONIBLEINVIVAINVIVA_VENDEUDADES_COMCOMISIONIMPINTDTO672RECARGOVALDECLPRG5329CCCLIEIMPORTEIDCOMPROBIVAIVA_MOBASEBASE_MORG5329BRG5329 RG5329B_MO RG5329_MOTRSAC registrarV transaccionqRA2BA22AAAaqAqA1AAqA!AAB3qV22"2AA2ABB3qr" BBBB2BAAABB SrBzBABB2566 TON y%08sV  Ta R%Cestimp NQ\estimp g T-% 'CDebe aplicar novedades !!!B-G_ G~(clases<7TC abm_estimpN!TCU- C- BBUXOKP_SYSTEMMENSAJECLASES POABMESTIMP SOLO_LECTURAACCESOSHOWaG+(dey_func ges%Cestimp OQ\estimpFBUDEY_FUNCGESP_SYSTEMESTIMPe4%C W0C#Debe estar en el rango 1 - 999 !!!B-BaUXCODIGOMENSAJE openfilesusr_vld_codigo 5#TEstados de ImportacinTestimpTEstadoTdescrTdescrTcodigoTcodigoThlp'Tabm_estados_de_importacion T - T P T T codigoT codigoTCdigo UTITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_estimphlpabm2rAAqqAcrqBD2!ArA1qqAr5811!!11q111:# K'10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0350F8RT3 680954248/F] WINDOWS _0350F8RTO1458346135 ~ WINDOWS _0350F8RT3 757494663 WINDOWS _0350F8RTO1458346135`n COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 12crystal clases.vcxformCrystal1BorderStyle = 2 Height = 130 Width = 586 DoCreate = .T. Caption = "Listado de Estados de Importacin" archivotemporal = rptlineas suspender = .T. imprimir_xls_usar_externo = .T. Name = "Crystal1" btnvisualizar.Top = 76 btnvisualizar.Left = 87 btnvisualizar.Name = "btnvisualizar" btnsalir.Top = 76 btnsalir.Left = 496 btnsalir.TabIndex = 6 btnsalir.ZOrderSet = 26 btnsalir.Name = "btnsalir" keep.Top = 48 keep.Left = 162 keep.Alignment = 0 keep.Value = .F. keep.TabIndex = 2 keep.Name = "keep" btnexportar.Top = 76 btnexportar.Left = 294 btnexportar.TabIndex = 5 btnexportar.Name = "btnexportar" btnTabla.Top = 76 btnTabla.Left = 191 btnTabla.TabIndex = 4 btnTabla.Name = "btnTabla" btnimprimir.Top = 76 btnimprimir.Left = 139 btnimprimir.TabIndex = 3 btnimprimir.ZOrderSet = 0 btnimprimir.Name = "btnimprimir" btntxt.Top = 76 btntxt.Left = 35 btntxt.Name = "btntxt" gen_txt.Top = 168 gen_txt.Left = 84 gen_txt.Name = "gen_txt" gen_xls.Top = 168 gen_xls.Left = 132 gen_xls.Name = "gen_xls" btnGrilla.Top = 76 btnGrilla.Left = 242 btnGrilla.Name = "btnGrilla" Filtros.Top = 168 Filtros.Left = 36 Filtros.Name = "Filtros" btnpdf.Top = 76 btnpdf.Left = 346 btnpdf.Name = "btnpdf" Parametros.rep_id = _2330U8T52 Parametros.par_habilitado = 10 Parametros.Name = "Parametros" btnParam.Top = 76 btnParam.Left = 445 btnParam.Name = "btnParam" chk_long.Alignment = 0 chk_long.Name = "chk_long" ckFecha.Top = 84 ckFecha.Left = 264 ckFecha.Alignment = 0 ckFecha.Name = "ckFecha" tmrClick.Top = 96 tmrClick.Left = 396 tmrClick.Name = "tmrClick" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" btnPlantilla_Excel.Top = 76 btnPlantilla_Excel.Left = 397 btnPlantilla_Excel.Name = "btnPlantilla_Excel" bPROCEDURE inicializar_columnas LOCAL oFor *oFor=newobject("Exportaciones_Parametros_Formato_enteros","IMP_EXP") thisform.campos_agregar () thisform.campos_agregar ("codigo","Cdigo") thisform.campos_agregar ("descr","Descripcin") thisform.campos_agregar ("dvigente","Vigente") thisform.campos_agregar ("dpopup","Advertencia") ENDPROC PROCEDURE procesar SET PROCEDURE TO dey_fill ADDITIVE * Local Files borrar = RIGHT(SYS(2015),8) IF THISFORM.xdord=1 SELECT estimp.* ; FROM estimp; ORDER BY codigo INTO TABLE (p_local+"\tmp\"+borrar) ELSE SELECT estimp.* ; FROM estimp; ORDER BY DESCR INTO TABLE (p_local+"\tmp\"+borrar) ENDIF COPY TO (p_local+'\tmp\rpt_estados_de_importacion') FOX2X USE THISFORM.archivotemporal="rpt_estados_de_importacion" DELETE FILE (p_local+'\tmp\'+borrar+'.dbf') ENDPROC PROCEDURE Load =Sets() * LIMPIAR_V27 local xok xok=.t. try if !used("estimp") use (p_system+"\estimp") in 0 endif catch xok=.f. endtry if !xok mensaje("Debe aplicar novedades !!!") return .f. endif this.arr_ord(1)='Ordenado por el Cdigo.' this.arr_ord(2)='Ordenado por la Descripcin' crystal::load ENDPROC PROCEDURE procesar_impresion * * Procesa el reporte y genera el archivo temporal * thisform.procesar wait window at 0,0 nowait "Procesando listado, aguarde..." * * Opciones Generales * thisform.Titulo1 = "Listado de Estados de Venta" thisform.Titulo2 = " " * * Opciones de Archivos * thisform.ArchivoReporte = p_system+"\prt\estados_de_venta.rpt" thisform.Archivo[1] = p_local+'\tmp\rpt_estados_de_venta.dbf' * * Opciones de Agrupamiento * * Sin separar thisform.Titulo2 = " " thisform.NombreGrupo = " " thisform.CodigoGrupo = " " thisform.DescripcionGrupo = " " thisform.CRDescripcionGrupo = " " thisform.OrdenGrupos = " " wait clear ENDPROC bArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Orden" Height = 17 Left = 55 Top = 15 Width = 37 TabIndex = 7 ZOrderSet = 2 Name = "Label1" labellabelColumnCount = 0 RowSourceType = 5 RowSource = "thisform.arr_ord" Value = 1 ControlSource = "thisform.xdord" FirstElement = 1 Height = 24 Left = 123 NumberOfElements = 2 Style = 2 TabIndex = 1 Top = 12 Width = 312 ZOrderSet = 1 Name = "Combo1" Crystal1Combo1combobox imp_exp.vcxexportaciones_comboB^arr_tipo[7,0] ^arr_ord[3,0] ^arr_sep[10,0] *tipo_descrip Label1Crystal1*"m%40U CCcodigoCdigo#Cdescr Descripcin"CdvigenteVigente$Cdpopup AdvertenciaUOFORTHISFORMCAMPOS_AGREGAR%G+(dey_fillTCC]R%j-oestimp1\tmp\ -oestimp1\tmp\/(\tmp\rpt_estados_de_importacionQ*Trpt_estados_de_importacion \tmp\.dbfU DEY_FILLBORRARTHISFORMXDORDESTIMPCODIGOP_LOCALDESCRARCHIVOTEMPORAL& C Ta \%Cestimp XQ\estimp q T-% 'CDebe aplicar novedades !!!B--TOrdenado por el Cdigo.1TOrdenado por la DescripcinUSETSXOKP_SYSTEMMENSAJETHISARR_ORDCRYSTALLOADM 5R,:Procesando listado, aguarde...+TListado de Estados de VentaT -T\prt\estados_de_venta.rpt7T\tmp\rpt_estados_de_venta.dbfT T T  T  T  T  R U THISFORMPROCESARTITULO1TITULO2ARCHIVOREPORTEP_SYSTEMARCHIVOP_LOCAL NOMBREGRUPO CODIGOGRUPODESCRIPCIONGRUPOCRDESCRIPCIONGRUPO ORDENGRUPOSinicializar_columnas0procesarLoadxprocesar_impresion1q1!A4!RbAB3sAAqqA2RqR2 SrJ e%&W=)%B uYq G(9 $te_pago%Ccompras fQcompras%Cchp Qchp%Ccccomp Qcccomp C T  T  T  T a T C$TCX T TT TaG+( co_funcioneste_pag_modif_cpbt(%  fF!T C OA6WTCC O6@z 9999,999,999_C OOA6CTT T T-&  co_funciones% 7T!*No se pudo abrir el ejercicio contable !!! T"B-%%C#$#% T!GLa fecha que se ingres pertenece a un ejercicio contable diferente !!!C C Debe anular y rehacer el pago. T"C!&B-<''2 T( T)w*trsac)com_opercccompccprovccpagret_provdiariogconceptochp%)X T)M,trsac)Te_pag_modif_cpbtModificacin de Pago%)0TC-% T) ,T) HT)M.trsac)Te_pag_modif_cpbtModificacin de Pago T/%T((P T T--  co_funcionesC'%F0/~1C'C' >02C''>03CH.N CCC'Z L45BDbito de Cheque propio: no se pudo corregir el asiento del chque CCC'Zte_pag_modif_cpbt.prgCC' ZL bBU6 ACTIVEFORM DATASESSIONID OPEN_FILESTE_PAGOCOMPRASCHPCCCOMPZ OBTENER_PAGOXCOMPXPVXRECINGXENC XFEC_COMPXCOD_PROXMONEDAXCAMBIOXFECHA XRESULTADO CO_FUNCIONESTE_PAG_MODIF_CPBTCOM_OPERXIDOPAGO VOPERACIOCOD_PROFECHA XCOMPROB_VOCOMPROB XCAUSA_VOCAUSAXDIRCO_ABRIR_TABLAS_EJERCICIOXMSGXERREJERCONDESDEHASTAMENSAJE ARR_ASIENTOSMAX_ARR_ASIENTOSAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANTTS_IDDIARIOGASIENTONUMERO COMENTARIOUSER_LOG PUB_INDEXO5,%C$CC$C %CY Ta ?Balance cerrado, la fecha del comprobante debe ser posterior a CC* !!! T- ?]T&El comprobante debe estar en el rango CC$C* y CC$C* !!! T- BUXFECHAAUXOCIERRES CIERRE_PAGDESSYS_CIERRE_BALANCEXMSG= %CC LT.f.T q_cobranza .T!v.comprob+v.causa=xcomprob+xcausaTq_cobranza_tmp%C QTC]select v.* , nvl(p.descr, space(40)) as dprovincia , c.abrev , c.descr as dcuenta , c.abrev as old_abrev , c.atributo , c.auxn , v.numero as old_numero , v.cuenta as old_cuenta , v.provincia as old_provin , v.dif_valor as old_dif_va , v.des_val as old_des_va , v.cod_pro+v.cuenta+str(v.numero,10)+str(v.provincia,3)+v.des_val+dtos(v.dif_valor) as registro , v.banchq , v.numchq , v.banchq as old_banchq , v.banchq as old_banchq from com_oper v left outer join provinc p on v.provincia=p.cod , cuentas c where &xfiltro and v.cuenta=c.cod_cue order by v.tipo, c.abrev, v.dif_valor into table (p_local+"\tmp\"+xtabla) Q\tmp\#)T T %CC  -F S \tmp\#)BU XCOMPROBXCAUSAXFILTROXALIASXTABLAP_LOCALXMONEDAMONEDAXCAMBIOCOEFIC Q_COBRANZA Ta T%C9 FTTT  T  T a T TF ~;*TC x CC Z: %$>TCC, 6Fec: C*->C*%y>TCC, 6Cta: C->C%BTCC, 6Prv: CCZ->CCZ%+BTCC, 6Ven: CC->CC%BTCC, 6Num: CCZ->CCZ(% S T C ZCZT!<"Iocom_operC ZC#Z ! S "%  T$XT El cheque CCZ2 ya fue utilizado, no puede colocar ese nmero !!! T-!%&'(FD-)*'(+ C ZCZC+ %C4 >;>,-.C,, 6D>TCDT%% S F/ G((ID!EC ZCZ%C4>T11T213T21T21T21 7 T$+TNo se encontr el registro !!! T-!%_ T4 T4CC DF T%-ETCC, 6Moneda: CCZ->CC-Z%,SMTCC, 6TC: CCZ->CC,Z%&'(F5G((comprob E'(%C4 ><6 6d T7F8 G((cpbt E'(%C46 #+C+ '()* 2 % l/>,-:4;(7;%C;68 8<8=C8>ZC8?Z!%;7* T776T678 8<8=C8>ZC8?ZH%7 ;(7 @ge02C;6FBG((COMPROB E'(%C4 #+C+ )*'( >H% C} !%C cccomppago; >DE y 4T'No se encuentra la imagen en CCCOMP !!! TFTGHTI)*%C* TJ T)Kco_autJGFIa%CJ & T- T - N T-% p CM BUN XRESULTADOXMSG FECHA_VALIDAXFECHACOM_OPER XOLD_CAMBIOCOEFIC XOLD_MONEDAMONEDAXCOD_PROCOD_PROXOPAGOOPAGOTRSAC XPONDERADO XCOEFICIENTE Q_COBRANZAXCAMBIOSDES_VALCAJ_PROFECHACUENTA OLD_CUENTA OLD_ABREVABREV PROVINCIA OLD_PROVIN DIF_VALOR OLD_DIF_VANUMERO OLD_NUMEROPROPIOXID_NUMXID_CUEARR_CHQSUBNUM TTS_ERRORUSER_LOG PUB_INDEX XCOMPROB_VO XCAUSA_VOCOMPROBCAUSAREGISTROXCAMBIOXMONEDAMONEXTCHPIDMAX_ARR_ASIENTOS ARR_ASIENTOSASIENTOXDIASCCPAGARR_REF XMAXARR_REFCCPROVCPBTDIASZREFCAUCUOOPRFN_CANCGE02RET_PROV P_PROVCONTCCCOMPFEC_DGI XTIPO_ASIENTOXASIENTOASIDIAXIDXERRREHACER_ASIENTOCO_AUTMENSAJE fecha_valida obtener_pagoA transaccionA"1ARA!Ar2crqcqqAb!qABr1y22AArqAd BABBBB3qrAAA3qAAr,RqAQB2Bus2A2A2!A2!A2!r"AAABrDFStBAAAB2A2QA2AsAsr21AAAA1aABAB2AAr1AAA4AABq"AAAA1[~ jjT,%%(o&aY,[ G(9 $G~(clases-G+(listados co_funcioneste_pago T C%C tmp_gastosF Q%Cq1F Q T C$T C XT CAX TTTCdX T TT T- T TTC T- C T-+a T+a TH  te_gastos_1(%%r%C Y T n TaF +CN2 #) %C! ! te_gastos_2_v2(a%T#C$H0 #T T! #g # T%C! !% !%C tmp_gastosF Q.dbf.cdx%Cq1PF QBU% ACTIVEFORM DATASESSIONIDCLASESLISTADOS CO_FUNCIONESTE_PAGOXTE_VARIOS_DETP_TE_VARIOS_DET OPEN_FILES TMP_GASTOSQ1XFECHAXABREV XCOMENTARIOXASIENTO XFECHA_MOD XCHEQUE_TXTXCHP_NUMERO_OLD XCHP_NUMERO XCHP_VENC XCHP_ECHEQ XCHP_IMPORTEXCAMBIOXTMPODEYFUNCNEWFILE_LOCAL_TMP XMODIFICACIONCREAR_TABLA_GASTOSXRESXFORMXMAXFORM TE_GASTOS_1 LEER_ASIENTOWIZARDTE_GASTOS_2_V2XOK REGISTRAR 4H 6B- q%mT % T B-  TBaUXRESXFORMXMAXFORMh1C(C C CNNN N C Q BU XTMPDESCRABREVCOD_CUECENTROLINEAGRUPO SUBCENTROIMPORTEID_EXT TMP_GASTOS C%Ccuentas @Qcuentascuenta%Ccom_oper rQcom_oper%Cven_oper Qven_oper%Cven_oper Qven_oper%Cchepro Qchepro%Cchqanu 2Qchqanu%Ccostos `Qcostos%Ccuentas QcuentasBUABRIR_TABLAS_FIJASCUENTASCUENTACOM_OPERVEN_OPERCHEPROCHQANUCOSTOS TC T-%5TCC% 1 Ta5co_autold_diagold_conc% -2C%Ejercicio inexistente (anulacin) !!! 2T%Ejercicio inexistente (anulacin) !!! B T  Taco_aut%C&%  = trsac com_operdiariogconcepto ?Y trsac com_operdiariogconceptoold_diagold_conc &CEjercicio inexistente !!! &TEjercicio inexistente !!!%  T Te_gastos.prg;T Gastos variosC - Modificacin6 T trsac  Ta% TC% T  T  T trsac +%   aC 9999,999,999_L Gastos Varios te_gastos.prg% FCSe ha registrado el asiento CC@z 999,999,999,999_  T%T   T BUXAUTXMSGXMISMO_EJERCICIOXASIENTOEJERCICIO_DE_FECHAXFECHA XFECHA_MOD XRESULTADOSELECCIONAR_EJERCICIOCO_AUTMENSAJEAAALOCK_GTRSACTRAN_PRGTRAN_TXT XMODIFICACIONBEG_TRAN TRANSACCIONEND_TRAN TTS_ERRORUSER_LOG PUB_INDEXTTS_ID % % T- T Ta%3F3 C 9999,999,999_L  % F F /FFF G((asiento#6T jF G((asiento#6TErconcepto:CFG((abrev ETTC transaccin T TF ~C C! ]T!TOrdiariog"#$ %&'()*+,-./01C ! !6C ! !c6 L2 3C$NN 4 + , -56C$C6C !6 T66$%Cdiariog.id_extbC> 7 7%YT"rcom_oper89 :;<' &(=>1*./C@z 9999,999,999_ !2EFECTIVO22LC$6C$C6C !6 T665#rdiariog"#$ %&'()/01*.C ! !c6C ! !6L2 3C$NN6C%C6C !c6 T665% q TFG((abrev Ercom_oper89 :;<' &(=>1*.?@/C@z 9999,999,999_2EFECTIVOCA6C2B6C216LC$6C!C6C6 T665C-C6C S6Crdiariog"#$ %&'()/01*.;Cc6C6L2C$CNC6N6C"C6Cc6 T665CA6D TDE co_asientosD%D CDG TH T T- BUI XCHP_IMPORTEP_TE_VARIOS_DETXTE_VARIOS_DETXERRORTRSACXASIENTOCOM_OPERFORCOMPROBCAUSAFECHA XFECHA_MODXMISMO_EJERCICIODIARIOGASIENTOCONCEPTOOLD_DIAGOLD_CONCUNTIPO2FEC_PROC XCOMENTARIOCUENTASABREVXABREVXFONDOSCOD_CUEXMONEDAMONEDASYS_MXTOTALXPASE TMP_GASTOSIMPORTEDEBITOCREDITOPOR_QUE COMENTARIOHOYTIPOPASESUBDCOD_CEN SUBCENTROLINEAGRUPOUSRMONPASECAMBIOMONEXTXFECHADESCRCENTRO PUB_INDEXXCAMBIOID_EXTCAJ_PROCUENTADES_VALNUMERO DIF_VALORASIDIACOEFICECHEQUEPROPIO XCHP_NUMERO XCHP_VENC XCHP_ECHEQXXMSGFN_CHECK_ASIENTO CO_ASIENTOSMENSAJE TTS_ERRORvCleer Taco_aut%1"oconceptoq1% :T  !odiariogq1#)% S T ~% }%COCN!C cuentascuentaT T T% mF G((CPBT"EC  9999,999,999_L T-8+C+ %C  9999,999,999_L %  Ta!H%"% !cPC"El asiento est mal registrado !!!C Diferencia de importes."B- T#T$%T&'T(T) iRC"El asiento est mal registrado !!!C No se encontr el cheque."B-  T#T$ T&- T( T) ywr tmp_gastos*+,-./ !  0 1 - . /!CcuentascuentaF> %CCOG!C cuentascuentaT T T wr tmp_gastos*+,-./ !  0 1 - . /!CcuentascuentaF> !CFecha incorrecta !!!"B- -2C%No es un asiento de gastos varios !!!"B- h&CEjercicio inexistente !!!"B-BaU2SYS_M XRESULADO XRESULTADOSELECCIONAR_EJERCICIOCO_AUT XFECHA_MODCONCEPTOASIENTOXASIENTOQ1TIPO2 XCOMENTARIODIARIOGFECHA TMP_GASTOSXFECHAXTE_VARIOS_DETCOD_CUEXMONEDAMONEDAXCAMBIOCAMBIOXABREVCUENTASABREVNUMEROCOM_OPERCPBTXOK_COMCOMPROBCAUSACAJ_PRODEBITOCREDITOMENSAJE XCHP_NUMERO XCHP_VENC DIF_VALOR XCHP_ECHEQECHEQUE XCHP_IMPORTEXCHP_NUMERO_OLDIMPORTEDESCRCENTRO SUBCENTROLINEAGRUPO COMENTARIOCOD_CENwizard5crear_tabla_gastosH open_filesa registrarU transaccion| leer_asiento!AqAA1qAA111s22AAs7QARBAA221A12AAAABBBABqAA112qAAC21r12A12A1r1Aq3 B2AAAAAAA!A!A!A1AB622R!!AABbBaaA22AAaAB2AA3At2t1srsrsQCsQBTwsDAA!p1BAr1Bs1A3r"bRabr"aAAAA"qB!qA1A~rBr~rBABqA!qAaqAr1[9 n r ]uu-x-:%~IXVN  G(9 $G+(listadosG+(dey_funcG+( dey_filtersG+( cs_generarG~(clases(cs_modificar_costo_reposicion T a T *cs_anular_costos_de_reposicion( %  T  T  T  % % 3CSe han anulado CC Z costos !!! FC9No se han encontrado costos de reposicin para anular !!! CBU ACTIVEFORM DATASESSIONIDLISTADOSDEY_FUNC DEY_FILTERS CS_GENERARCLASES OPEN_FILESCS_MODIFICAR_COSTO_REPOSICIONXRES XOPERACIONCS_ANULAR_COSTOS_DE_REPOSICIONXACCXERRXMSG REGISTRARMENSAJE Ta TAtrsaccoscosmancosimpbienes% TXtrsaccs_modificar_costo_reposicionAnular costos de reposicin%ITC%- T ET aTX trsaccs_modificar_costo_reposicionAnular costos de reposicin T  BU XERRXMSGXACCTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_IDG+(sys_logITC*loguear_costos_anulacion_costos_reposicionCC ZNTC<Anulacin de ingreso de costos de reposicin - transaccin: CCZCF"~ C ZTwCCdigo:      Costo: C Z Moneda: C Fecha: C*TF"~ C ZT<[ T- BUXERRXMSGXACCSYS_LOGOLOG XOPERACIONLOGCOSIMPCOMPROBCAUSACODIGOATRBULCOSTO MM_MONEDAMONEDAFECHAINCOSTRSAC registrar  transaccionNA"!QA5211aAABF3322AABB3Br!rAr!ArB1235 d%1fbRCW%CCCC^=g% %CٌAntes de las 15hs toma el cambio del da anterior, luego de las 15 pude tomar el del da anterior o el del cierre de la fecha !!! Contina ? B%6 TC!G+(c:\sistema\2000\internet Ta RG+(internet%Cidx03 ~Qidx03%Cidx04 Qidx04 \tmp\cambios.txtoT CGhttps://www.banxico.org.mx/tipcamb/llenarTiposCambioAction.do?idioma=sp \tmp\cambios.txt % : 9Bajada TC: No se pudo descargar el archivo de monedas (1)sys_monedas_mexico.prg% 6SC9No se pudieron bajar los tipos de cambio !!! (1) (Error: CC Z)&%C \tmp\cambios.txt0 = 9Bajada TC: No se pudo descargar el archivo de monedas (2)sys_monedas_mexico.prg% 5=C0No se pudieron bajar los tipos de cambio !!! (2)B$TC \tmp\cambios.txt1T - CCCC$* C^:_/-  \Log\Monedas %4] Bajada TC: ID=sys_monedas_mexico.prg T-%R TC$ T- T.T

C C  TT
T0CDOL/T
C C  TT
T0C060%y% ?C2Los tipos de cambio del da se han actualizado !!!%us (Bajada TC: Se actualizaron correctamentesys_monedas_mexico.prg % tCgLos tipos de cambio del da no se han actualizado porque no hay monedas con el cdigo de AFIP (fce) !!! CBajada TC: No se actualizaron porque no hay monedas con cdigo AFIPsys_monedas_mexico.prgBUXAUTXDEVXLOG MENSAJE_SINOBBBCINTERNETIDX03IDX04P_LOCALAAA DOWNLOAD_HTTPUSER_LOG PUB_INDEXMENSAJEXTEXTOXLOG_IDP_SYSTEM XCONECTADOXFECHA XACTUALIZADO XFORMATO_COMAXDESDE XDESDE_VEZXHASTAXDESDE2PROCESAR_DESDE_HASTAY'    $T CCC>'\%C $T C C C>'\T C C =H4 T CC .g T CC ,.g 24T C gBC UXLOGXDESDE XDESDE_VEZXHASTAXCODXFECHA XACTUALIZADOXDESDE2 XFORMATO_COMAXVALORXVENTAXDESCRXMULT XSUBTEXTOXTEXTO REGISTRAR%LF- Cf%C4 TCOTindiceCCZ(F G((idx04 E%C4 ridx04 > Ta% %aCC C CC fecha: C * : C999,999,999.9999_ \log\Monedas\Tipos de cambio  .txt H%DoCC C CC : Moneda no definida \log\Monedas\Tipos de cambio  .txt %CC C CC/ No hay cambio para la fecha. Probable feriado. \log\Monedas\Tipos de cambio  .txtBBUXLOGXCODXFECHAXVALOR XACTUALIZADOXINDICEZZAAAIDX03FCEIDX04FECHAP_SYSTEMXLOG_IDprocesar_desde_hasta registrar 1 AAAA!ArArA1A1AAbAAAABABA11A1AAAAB2q2B"AA11A3q2rrAAABAAAABB2MA^0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6NT0N3V401458263514/F] WINDOWS _6NT0N3V411458264292 'o WINDOWS _6NT0N3V4G1458264292! 4 G [ x WINDOWS _6NT0N3V4H1458263514 & WINDOWS _6NT0N3V4I1458263514 WINDOWS _6NT0N3V4J1458263514 # WINDOWS _6NT0N3V4K1458263514 COMMENT RESERVED mVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1@BorderStyle = 2 Height = 243 Width = 383 DoCreate = .T. Caption = "Texto" logfis =  21 Name = "Formulario_acep_canc1" Command1.Name = "Command1" Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE procesar_aceptar xlogfis=thisform.logfis ENDPROC PROCEDURE Init parameters xresultado, xcaption, xlogfis local xres xres = dodefault(xresultado) thisform.Caption=xcaption thisform.logfis=xlogfis return xres ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 FontBold = .F. WordWrap = .T. BackStyle = 0 Caption = "Anula el comprobante y no deja ningn rastro del mismo, por lo que el nmero puede, eventualmente, ser reutilizado." Height = 60 Left = 120 Top = 144 Width = 252 Name = "Label4" Formulario_acep_canc1logfis  optiongroup optiongroup Optiongroup1Formulario_acep_canc1aAutoSize = .T. ButtonCount = 2 BackStyle = 0 Value = 1 ControlSource = "thisform.logfis" Height = 46 Left = 129 Top = 24 Width = 125 Name = "Optiongroup1" Option1.FontBold = .T. Option1.BackStyle = 0 Option1.Caption = "Anulacin Lgica" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Top = 5 Option1.Width = 115 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontBold = .T. Option2.BackStyle = 0 Option2.Caption = "Anulacin Fsica" Option2.Height = 17 Option2.Left = 5 Option2.Top = 24 Option2.Width = 110 Option2.AutoSize = .T. Option2.Name = "Option2" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Anulacin lgica:" Height = 17 Left = 12 Top = 84 Width = 98 Name = "Label1" labellabelLabel2Formulario_acep_canc1FontBold = .F. WordWrap = .T. BackStyle = 0 Caption = "Anula el comprobante y deja el nmero como anulado, de manera que no se puede reutilizar" Height = 60 Left = 120 Top = 84 Width = 252 Name = "Label2" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Anulacin fsica:" Height = 17 Left = 12 Top = 144 Width = 95 Name = "Label3" labellabelLabel4"|%= )UTUXLOGFISTHISFORMLOGFISS4TCTT BU XRESULTADOXCAPTIONXLOGFISXRESTHISFORMCAPTIONLOGFISprocesar_aceptar0Initf13r25P)%v 9${V Ta J%Cestven FQestven _ T-% 'CDebe aplicar novedades !!!B-G_ G~(clases<7TC abm_estvenN!TCU- C- BBUXOKESTVENMENSAJECLASES POABMESTVEN SOLO_LECTURAACCESOSHOW>G+(dey_func gesCestvenFBUDEY_FUNCGES CHECK_OPENEDESTVENe4%C W0C#Debe estar en el rango 1 - 999 !!!B-BaUXCODIGOMENSAJE openfilesusr_vld_codigo]TestvenT TTEstados de VentaTestvenTEstadoT descrT descrT codigoT codigoT hlp!Tabm_estados_de_venta T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_ESTVENP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1 abm_estvenhlpabm2r!AAqqAcrqBD2!2rA1qqAr53A11!!11111:M#I%s/0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0350F8RT3 680954248/F] WINDOWS _0350F8RTO1458346138 7 WINDOWS _0350F8RT3 757494663si WINDOWS _0350F8RTO1458346138\O' COMMENT RESERVED ?1VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 12crystal clases.vcxformCrystal1BorderStyle = 2 Height = 130 Width = 586 DoCreate = .T. Caption = "Listado de Estados de Venta" archivotemporal = rptlineas suspender = .T. imprimir_xls_usar_externo = .T. Name = "Crystal1" btnvisualizar.Top = 76 btnvisualizar.Left = 87 btnvisualizar.Name = "btnvisualizar" btnsalir.Top = 76 btnsalir.Left = 496 btnsalir.TabIndex = 6 btnsalir.ZOrderSet = 26 btnsalir.Name = "btnsalir" keep.Top = 48 keep.Left = 162 keep.Alignment = 0 keep.Value = .F. keep.TabIndex = 2 keep.Name = "keep" btnexportar.Top = 76 btnexportar.Left = 294 btnexportar.TabIndex = 5 btnexportar.Name = "btnexportar" btnTabla.Top = 76 btnTabla.Left = 191 btnTabla.TabIndex = 4 btnTabla.Name = "btnTabla" btnimprimir.Top = 76 btnimprimir.Left = 139 btnimprimir.TabIndex = 3 btnimprimir.ZOrderSet = 0 btnimprimir.Name = "btnimprimir" btntxt.Top = 76 btntxt.Left = 35 btntxt.Name = "btntxt" gen_txt.Top = 168 gen_txt.Left = 84 gen_txt.Name = "gen_txt" gen_xls.Top = 168 gen_xls.Left = 132 gen_xls.Name = "gen_xls" btnGrilla.Top = 76 btnGrilla.Left = 242 btnGrilla.Name = "btnGrilla" Filtros.Top = 168 Filtros.Left = 36 Filtros.Name = "Filtros" btnpdf.Top = 76 btnpdf.Left = 346 btnpdf.Name = "btnpdf" Parametros.rep_id = _2330U8T52 Parametros.par_habilitado = 10 Parametros.Name = "Parametros" btnParam.Top = 76 btnParam.Left = 445 btnParam.Name = "btnParam" chk_long.Alignment = 0 chk_long.Name = "chk_long" ckFecha.Top = 84 ckFecha.Left = 264 ckFecha.Alignment = 0 ckFecha.Name = "ckFecha" tmrClick.Top = 96 tmrClick.Left = 396 tmrClick.Name = "tmrClick" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" btnPlantilla_Excel.Top = 76 btnPlantilla_Excel.Left = 397 btnPlantilla_Excel.Name = "btnPlantilla_Excel" !PROCEDURE procesar_impresion * * Procesa el reporte y genera el archivo temporal * thisform.procesar wait window at 0,0 nowait "Procesando listado, aguarde..." * * Opciones Generales * thisform.Titulo1 = "Listado de Estados de Venta" thisform.Titulo2 = " " * * Opciones de Archivos * thisform.ArchivoReporte = p_system+"\prt\estados_de_venta.rpt" thisform.Archivo[1] = p_local+'\tmp\rpt_estados_de_venta.dbf' * * Opciones de Agrupamiento * * Sin separar thisform.Titulo2 = " " thisform.NombreGrupo = " " thisform.CodigoGrupo = " " thisform.DescripcionGrupo = " " thisform.CRDescripcionGrupo = " " thisform.OrdenGrupos = " " wait clear ENDPROC PROCEDURE Load =Sets() * LIMPIAR_V27 local xok xok=.t. try if !used("estven") use estven in 0 endif catch xok=.f. endtry if !xok mensaje("Debe aplicar novedades !!!") return .f. endif oDeyFunc.check_opened("estven") this.arr_ord(1)='Ordenado por el Cdigo.' this.arr_ord(2)='Ordenado por la Descripcin' crystal::load ENDPROC PROCEDURE procesar SET PROCEDURE TO dey_fill ADDITIVE * Local Files borrar = RIGHT(SYS(2015),8) IF THISFORM.xdord=1 SELECT estven.*, iif(estven.vigente=1,"SI", "NO") as dvigente, iif(estven.popup=1,"SI", "NO") as dpopup ; FROM estven; ORDER BY codigo INTO TABLE (p_local+"\tmp\"+borrar) ELSE SELECT estven.*, iif(estven.vigente=1,"SI", "NO") as dvigente, iif(estven.popup=1,"SI", "NO") as dpopup ; FROM estven; ORDER BY DESCR INTO TABLE (p_local+"\tmp\"+borrar) ENDIF COPY TO (p_local+'\tmp\rpt_estados_de_venta') FOX2X USE THISFORM.archivotemporal="rpt_estados_de_venta" DELETE FILE (p_local+'\tmp\'+borrar+'.dbf') ENDPROC PROCEDURE inicializar_columnas LOCAL oFor *oFor=newobject("Exportaciones_Parametros_Formato_enteros","IMP_EXP") thisform.campos_agregar () thisform.campos_agregar ("codigo","Cdigo") thisform.campos_agregar ("descr","Descripcin") thisform.campos_agregar ("dvigente","Vigente") thisform.campos_agregar ("dpopup","Advertencia") ENDPROC bArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Orden" Height = 17 Left = 55 Top = 15 Width = 37 TabIndex = 7 ZOrderSet = 2 Name = "Label1" labellabelColumnCount = 0 RowSourceType = 5 RowSource = "thisform.arr_ord" Value = 1 ControlSource = "thisform.xdord" FirstElement = 1 Height = 24 Left = 123 NumberOfElements = 2 Style = 2 TabIndex = 1 Top = 12 Width = 312 ZOrderSet = 1 Name = "Combo1" Crystal1Combo1combobox imp_exp.vcxexportaciones_comboB^arr_tipo[7,0] ^arr_ord[3,0] ^arr_sep[10,0] *tipo_descrip Label1Crystal1"%`5UM 5R,:Procesando listado, aguarde...+TListado de Estados de VentaT -T\prt\estados_de_venta.rpt7T\tmp\rpt_estados_de_venta.dbfT T T  T  T  T  R U THISFORMPROCESARTITULO1TITULO2ARCHIVOREPORTEP_SYSTEMARCHIVOP_LOCAL NOMBREGRUPO CODIGOGRUPODESCRIPCIONGRUPOCRDESCRIPCIONGRUPO ORDENGRUPOS4 C Ta T%Cestven PQestven i T-% 'CDebe aplicar novedades !!!B-Cestven-TOrdenado por el Cdigo.1TOrdenado por la Descripcin U SETSXOKESTVENMENSAJEODEYFUNC CHECK_OPENEDTHISARR_ORDCRYSTALLOADG+(dey_fillTCC]R%soestvenCSINO6QCSINO6Q 1 \tmp\ -soestvenCSINO6QCSINO6Q 1 \tmp\)( \tmp\rpt_estados_de_ventaQ$T rpt_estados_de_venta  \tmp\.dbfU DEY_FILLBORRARTHISFORMXDORDESTVENVIGENTEDVIGENTEPOPUPDPOPUPCODIGOP_LOCALDESCRARCHIVOTEMPORAL CCcodigoCdigo#Cdescr Descripcin"CdvigenteVigente$Cdpopup AdvertenciaUOFORTHISFORMCAMPOS_AGREGARprocesar_impresion0Load$procesarinicializar_columnas1RqR3s!AAqqAe2!Rb33ABB3q1!A3$"<A.Y)% Y4WRV!TCa'sys_propiedades_administrarBUOPROPSYS_PROPIEDADESSYS_PROPIEDADES_ADMINISTRAR{TCCX TCCX TCCX ges%Cbienes FQbienescodins%Catributo FQatributo%Cbultos F Qbultos%C propiedades 5FQ propiedades%C prop_predet pFQ prop_predetBU XDATASESSIONIDXCOD_INSXBULXATRGESBIENESCODINSATRIBUTOBULTOS PROPIEDADES PROP_PREDET openfilesqqB21QQQqAAA!A!AA2E( %H 3 曉V% B% QC4No se puede sincronizar, debe estar posiocionado en CCZ !!!B,sys_procesando Inicializando C Csys_procesando)CSincronizacin concluida !!!BU P_DOSP_CODEMPP_UNOMENSAJE SP_MENSAJESYS_PROCESANDOSYNC_ARTICULOS SYNC_CLIENTESSP_OCULTAR_DEFINITIVAMENTE[6sys_procesandoSincronizando artculos C C CBU SP_MENSAJESYS_PROCESANDOSYNC_ARTICULOS_BIENESSYNC_ARTICULOS_BIEAUXSYNC_ARTICULOS_COMBINACIONESN%Cstock (Qstock%Cs2GQ/Q\data\CCZ\stockF ~$3%Cs2articulo rs2            G>     %Cs2CQBUSTOCKS2P_SYSTEMP_DOSCODIGOBULATR TIPOSTKMINBARRASDUNFACTOR UBICACIONACTIVOACTU_PEMINBATCHTOXICOSTK_MIN1 STK_MIN_MUXDIA VENTASXPERVENTADUNMULTEANMULTUVEN %Cbienes *Qbienes%Cs2IQ0Q\data\CCZ\bienesF ~<^J#%Cs2codins FF_J%Cs2QBUBIENESS2P_SYSTEMP_DOSAAACOD_INS%Cbieaux *Qbieaux%Cs2IQ0Q\data\CCZ\bieauxF ~<^J %Cs2cod FF_J%Cs2QBUBIEAUXS2P_SYSTEMP_DOSAAACODIGOP5sys_procesandoSincronizando clientes C CBU SP_MENSAJESYS_PROCESANDOSYNC_ARTICULOS_CLIENTESSYNC_ARTICULOS_CLIOTROS%Cclientes .Qclientes%Cs2MQ2Q\data\CCZ \clientesF ~<^J#%Cs2codcli FF_J%Cs2QBUCLIENTESS2P_SYSTEMP_DOSAAACOD_CLI%Ccliotros .Qcliotros%Cs2MQ2Q\data\CCZ \cliotrosF ~<^J$%Cs2cod_cli FF_J%Cs2QBUCLIOTROSS2P_SYSTEMP_DOSAAACOD_CLIsync_articulossync_articulos_combinacionessync_articulos_bienessync_articulos_bieaux sync_clientes sync_articulos_clientes sync_articulos_cliotros 1AAAAB2dB2rA2At2PqCB2AB3!A2Atr2rQBrB2AB3!A2AtrrQBrB2AB3TB3AA2A"tr2rQBrB2AB2AA2A"trBrQBrB2AB1V )* A lX]At( 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6OA0P9VLJ1459379695/F] WINDOWS _6OA0P9VLK1459379695 % COMMENT RESERVED >VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_consulta clases.vcxformFormulario_consulta1Height = 544 Width = 774 DoCreate = .T. Caption = "Rtulos" Name = "Formulario_consulta1" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" AArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _5R816T31P1352508004/F] WINDOWS _5R816T31Q1452897266 '3 WINDOWS _5R816T31P1452897266&(5 r WINDOWS RESERVED 1452897266%4& 3 WINDOWS 14528972661C WINDOWS _5R816T31P1452897266C WINDOWS _5R817W86H1452897266tiLa COMMENT RESERVED NVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 171 Width = 623 DoCreate = .T. Caption = "Asignar Remito a Factura" Name = "Formulario_acep_canc1" Command1.Top = 142 Command1.Left = 239 Command1.TabIndex = 7 Command1.Name = "Command1" Command2.Top = 142 Command2.Left = 323 Command2.TabIndex = 8 Command2.Name = "Command2" AYUDA.TabIndex = 9 AYUDA.Name = "AYUDA" Text1.Left = 298 Text1.TabIndex = 10 Text1.Top = 10 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" &PROCEDURE validar_cpbt lparameters xtipo, xlet, xpv, xnum * 1=Remito * 2=Factura *=sys_mostrar_screen("Suspendo?", .t.) if !(xpv=0 or xnum=0) local xcpbt xcpbt=xlet+right("00"+alltrim(str(xpv)),2)+"-"+right("00000000"+alltrim(str(xnum)),8) if xtipo=1 * Remito if seek(xcpbt, "ccvent", "rem") if ccvent.cod_cli#"0 " if seek(ccvent.cod_cli, "clientes", "codcli") this.rem_txt.Caption=alltrim(clientes.nombre) else this.rem_txt.Caption="Cliente no encontrado !!!" return .f. endif else this.rem_txt.Caption="Remito anulado !!!" return .f. endif else this.rem_txt.Caption="Remito no encontrado !!!" return .f. endif else *Factura if seek(xcpbt+"V", "ccvent", "ccvfac") if ccvent.cod_cli#"0 " if seek(ccvent.cod_cli, "clientes", "codcli") this.fac_txt.Caption=alltrim(clientes.nombre) else this.fac_txt.Caption="Cliente no encontrado !!!" return .f. endif else this.fac_txt.Caption="Factura anulada !!!" return .f. endif else this.fac_txt.Caption="Factura no encontrada !!!" return .f. endif endif endif return .t. ENDPROC PROCEDURE validar if thisform.validar_cpbt(1, thisform.let.value, thisform.cen.value, thisform.num.value) xnumeror = ccvent.rem_ven xcod_clir = ccvent.cod_cli else mensaje("No se encuentra el remito !!!") return .f. endif *!* if thisform.validar_cpbt(2, thisform.letf.value, thisform.cenf.value, thisform.numf.value) *!* xnumerof = ccvent.fac_ven *!* xcod_clif = ccvent.cod_cli *!* else *!* mensaje("No se encuentra la factura !!!") *!* return .f. *!* endif *!* if xcod_clir#xcod_clif *!* mensaje("No pertenecen al mismo cliente !!!") *!* return .f. *!* endif return .t. ENDPROC  "k%U+(CUTHISFORM VALIDAR_CPBTTHISVALUECENNUMValid011^)AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Remito" Height = 17 Left = 11 Top = 70 Width = 42 TabIndex = 11 Name = "Label1" Formulario_acep_canc1labelLabel1iPROCEDURE Valid =thisform.validar_cpbt(1, thisform.let.value, thisform.cen.value, this.Value) ENDPROC iPROCEDURE Valid =thisform.validar_cpbt(1, thisform.let.value, this.value, thisform.num.Value) ENDPROC textboxtextboxFontBold = .T. WordWrap = .T. BackStyle = 0 Caption = "Cliente" Height = 35 Left = 329 Top = 70 Width = 283 TabIndex = 13 Name = "rem_txt" textboxtextboxnumFormulario_acep_canc1cenFormulario_acep_canc1Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 iPROCEDURE Valid =thisform.validar_cpbt(1, this.value, thisform.cen.value, thisform.num.Value) ENDPROC Formulario_acep_canc1letcomboboxcombobox,PROCEDURE Init this.Caption="" ENDPROC Formulario_acep_canc1rem_txtlabellabel*validar_cpbt labelAlignment = 3 Value = 0 ControlSource = "xcenr" Format = "z" Height = 23 InputMask = "99" Left = 134 MaxLength = 2 SelectOnEntry = .T. TabIndex = 2 Top = 67 Width = 48 Name = "cen" BoundColumn = 1 ColumnCount = 0 ColumnWidths = "" RowSourceType = 1 RowSource = "R" Value = R ControlSource = "xletr" FirstElement = 1 Height = 24 Left = 74 NumberOfElements = 0 Style = 2 TabIndex = 1 Top = 66 Width = 48 Name = "let" Alignment = 3 Value = 0 ControlSource = "xnumr" Format = "z" Height = 23 InputMask = "99,999,999" Left = 194 MaxLength = 10 SelectOnEntry = .T. TabIndex = 3 Top = 67 Width = 120 Name = "num" "M%ZnhUTUTHISCAPTIONInit012!) "k%U+(CUTHISFORM VALIDAR_CPBTLETVALUECENTHISValid011^) "k%U+(CUTHISFORM VALIDAR_CPBTLETVALUETHISNUMValid011^)"bm%S5U %  >TC00CCZR-C00000000CCZR% %Cccventrem%0 H(%CclientescodcliT C D,T Cliente no encontrado !!!B- ~%T Remito anulado !!!B- +T Remito no encontrado !!!B-  (%CVccventccvfac%0 (%CclientescodcliPT C ,T Cliente no encontrado !!!B- &T Factura anulada !!!B-  ,T Factura no encontrada !!!B-BaU XTIPOXLETXPVXNUMXCPBTCCVENTCOD_CLITHISREM_TXTCAPTIONCLIENTESNOMBREFAC_TXT1%CQTT  *CNo se encuentra el remito !!! B-BaU THISFORM VALIDAR_CPBTLETVALUECENNUMXNUMERORCCVENTREM_VEN XCOD_CLIRCOD_CLIMENSAJE validar_cpbt0validar11q2qAQqAqAqAaqAqAAAq2qAq1+4)0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6LN0XNVH61452834123/F]PY WINDOWS _6LN0XR3QZ1452892687 WINDOWS _6LN0XNVH71452892687b~ WINDOWS _6LN0XNVH61452892687 f WINDOWS _6LN0XR3QZ1452834380   < WINDOWS _6LN0XNVH71452834380y WINDOWS _6LN0XNVH61452834380@N\k WINDOWS _6LN0XR3R01452834380& WINDOWS _6LN0XR3R11452834380 WINDOWS _6LN0XR3R21452891637'6ER} WINDOWS _6LN0XR3R31452834380+:e WINDOWS _6LN0XR3R41452892504 WINDOWS _6LN0XY7XD1452834380 WINDOWS _6LN0XY7XE1452891927-<It WINDOWS _6LN0XY7XF1452834380-<g WINDOWS _6LN0XY7XG1452834469 WINDOWS _6LO0PA3NF1452891637 WINDOWS _6LO0PA3NG1452891637, ;$ COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" cursorcursorCURSOR1DataenvironmentHAlias = "q_mod_rem" CursorSource = ..\q_mod_rem.dbf Name = "CURSOR1" 21formulario_acep_canc clases.vcxformFormulario_acep_canc1Height = 567 Width = 1022 DoCreate = .T. Caption = "Modificacin de Remitos" pregunta_confirmacion = ('Confirma el cambio de precios/descripcin?') Name = "Formulario_acep_canc1" Command1.Top = 540 Command1.Left = 444 Command1.Anchor = 260 Command1.Name = "Command1" Command2.Top = 540 Command2.Left = 516 Command2.Anchor = 260 Command2.Name = "Command2" ayuda.Name = "ayuda" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" gridgridGrid1Formulario_acep_canc1ColumnCount = 7 Anchor = 15 DeleteMark = .F. Height = 510 Left = 1 Panel = 1 RecordSource = "q_mod_rem" Top = 24 Width = 1020 Name = "Grid1" Column1.ColumnOrder = 2 Column1.ControlSource = "q_mod_rem.cod_ins" Column1.Width = 126 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ColumnOrder = 3 Column2.ControlSource = "q_mod_rem.atr" Column2.Width = 29 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ColumnOrder = 4 Column3.ControlSource = "q_mod_rem.bul" Column3.Width = 27 Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ColumnOrder = 5 Column4.ControlSource = "q_mod_rem.nuevod" Column4.Width = 549 Column4.Name = "Column4" Column5.ColumnOrder = 6 Column5.ControlSource = "q_mod_rem.cos_lifo" Column5.Width = 111 Column5.ReadOnly = .T. Column5.Format = "z" Column5.InputMask = "999999999.9999" Column5.Name = "Column5" Column6.ColumnOrder = 7 Column6.ControlSource = "q_mod_rem.nuevo" Column6.Width = 103 Column6.Format = "z" Column6.InputMask = "999999999.9999" Column6.Name = "Column6" Column7.ColumnOrder = 1 Column7.ControlSource = "q_mod_rem.itm" Column7.Width = 36 Column7.ReadOnly = .T. Column7.Format = "z" Column7.InputMask = "99999" Column7.Name = "Column7" PROCEDURE Init this.SetAll("fontbold", .t., "header") this.SetAll("dynamicbackcolor", "iif(desc_ins#nuevod or cos_lifo#nuevo,rgb(255,150,150),rgb(255,255,255))", "column") ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 BorderStyle = 0 ControlSource = "q_mod_rem.itm" Format = "z" InputMask = "99999" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Text1headerheaderHeader1#Formulario_acep_canc1.Grid1.Column15Alignment = 2 Caption = "Cdigo" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column22Alignment = 2 Caption = "Atr" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column32Alignment = 2 Caption = "Bul" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column3BorderStyle = 0 ControlSource = "q_mod_rem.bul" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column4:Alignment = 2 Caption = "Descripcin" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column4}BorderStyle = 0 ControlSource = "q_mod_rem.nuevod" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column5>Alignment = 2 Caption = "Precio Anterior" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column5BorderStyle = 0 Format = "z" InputMask = "999999999.9999" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column6;Alignment = 2 Caption = "Precio Nuevo" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column6BorderStyle = 0 Format = "z" InputMask = "999999999.9999" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column72Alignment = 2 Caption = "Itm" Name = "Header1" textboxtextbox#Formulario_acep_canc1.Grid1.Column7W">>!%U"CfontboldaheadertCdynamicbackcolorHiif(desc_ins#nuevod or cos_lifo#nuevo,rgb(255,150,150),rgb(255,255,255))columnUTHISSETALLInit01!A1)>0'mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _S2A11QYL6 642165293/F]`i WINDOWS _6A30SNHJI1481212950 WINDOWS _S2A11QYL81481212950r~\v WINDOWS _S2A11QYL61454143129 $[ WINDOWS _S2A11QYL61454146337-:WY WINDOWS _S2A11QYL81454140737f{K eX WINDOWS _S2A11QYL61454143129v!!!!! WINDOWS _S2A11QYL81454143229N"]"l"y"" WINDOWS _S2A11QYL61454143129H#U#b#p#}# WINDOWS _S2A11QYL81454143129#$2$A$N$[$ WINDOWS _S2A11QYL61454143129R%_%l%z%% WINDOWS _2CL10CWMR14541431290&K&^&n&|&&q'S WINDOWS _S2A11QYL61454143129((((( WINDOWS _0MF0OPT9Q1454143129|))))) WINDOWS _2C91DUL8X1454143129`*o*~***S+Q WINDOWS _2C91DUL8Y1454143129`-m-z--- WINDOWS _2CL10CWMP14541431299.F.S.a.n./P WINDOWS _2CL10CWMQ145414312900000j1O WINDOWS _S2A11QYL61454146034,]022261 WINDOWS _6A30SNHJI1416017405E8S8a8p88 WINDOWS _S2A11QYL81454140418888899+ WINDOWS _S2A11QYL61416017405::::: WINDOWS _S2A11QYL61454140418%;P(\!A!s;;  WINDOWS _S2A11QYL81416017405_(B0( WINDOWS _S2A11QYL6146731711530,(m(' wN WINDOWS _S2A11QYL81416017405(X WINDOWS _S2A11QYL61459192857 i0F|/HM WINDOWS _S2A11QYL81416017405[igv WINDOWS _S2A11QYL61455254796,<<sE WINDOWS _S2A11QYL61416017405!/=  WINDOWS _2CL10CWMR1454140418L.=#<4;D WINDOWS _S2A11QYL614159985013!:w:K: WINDOWS _0MF0OPT9Q1454145782<:-: :*89Sh WINDOWS _6A30T1QIN141601740582x08z2 WINDOWS _6A30T1QIO1454140418Q-B-i!K7- WINDOWS _6M50TAPDR14812127647%aTV1 WINDOWS _6TS0Z96TH1481212764E6) COMMENT RESERVED wfKVERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" cursorcursorCURSOR1DataenvironmentRAlias = "q_cobranza" CursorSource = d:\sistema\q_cobranza.dbf Name = "CURSOR1" 21formformForm1CBorderStyle = 2 Height = 500 Width = 750 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Modificacin de Comprobante de Pago" Closable = .F. Icon = ("bmp\"+p_icono_sistema) WindowType = 1 WindowState = 0 LockScreen = .F. BindControls = .T. oldvalue = .F. es_f1 = .F. Name = "Form1"  (PROCEDURE actualizar thisform.cod_desc_pro1.valor = com_oper.cod_pro if com_oper.cod_pro="0 " thisform.cod_desc_pro1.text9.value="ANULADO" endif if eof("com_oper") thisform.cod_desc_pro1.text9.value="" endif if com_oper.cod_pro=p_provcont =seek(com_oper.opago, "cccomp", "pago") thisform.text2.value=cccomp.des_prov thisform.text2.visible=.t. else thisform.text2.value="" thisform.text2.visible=.f. endif xfecha=com_oper.fecha * Busca el comprobante xcausa=iif(xrecing=1,"O","A") xcpbt = xcomp select com_oper if transform(xcpbt,"@z 9999,999,999")+xcausa=comprob+causa reg=recno() acc=0 do while !eof() .and. transform(xcpbt,"@z 9999,999,999")+xcausa=comprob+causa acc=acc+caj_pro skip enddo go reg do case case com_oper.cod_pro="0 " thisform.text5.Value="Anulado" thisform.text5.forecolor=0 case com_oper.aplic=0 thisform.text5.Value="Provisorio" thisform.text5.forecolor=255 case com_oper.aplic=1 thisform.text5.Value="Aplicacin de un Provisorio" thisform.text5.forecolor=255 case com_oper.aplic=2 thisform.text5.Value="Normal" thisform.text5.forecolor=0 endcase thisform.moneda.value = com_oper.moneda+1 thisform.cambio.value = com_oper.coefic else acc=0 thisform.text5.Value="" thisform.text5.forecolor=0 thisform.moneda.value = 0 thisform.cambio.value = 0 endif thisform.text4.Value=acc thisform.cod_desc_pro1.refresh thisform.text3.Refresh thisform.text4.Refresh thisform.Refresh ENDPROC PROCEDURE busca_comprob select com_oper do case case xrecing=1 set order to opago set filter to causa="O" xcpbt = xcomp seek xcpbt case xrecing=2 set order to oper set filter to causa="A" seek xcomp endcase set filter to if found() =obtener_pago(com_oper.comprob, com_oper.causa) return .t. else zap in q_cobranza return .f. endif ENDPROC PROCEDURE enc_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.enc = m.vNewVal thisform.moneda.Enabled=m.vNewVal thisform.cambio.Enabled=m.vNewVal *thisform.retenciones=m.vNewVal ENDPROC PROCEDURE Load for z=1 to mm_max this.arr_mon(z)=mm_moneda(z,2) endfor ENDPROC PROCEDURE Unload return thisform.resultado ENDPROC r"YY"e%UI%1T BaU COD_DESC_PRO ACTUALIZARP_IIBB_REGIMEN_ESPECIALXREGIMEN_IIBB_GEN_ESPPROVEEDOIBRETTHISFORMREFRESHupdated012Aq1)Y".%^rlUB1U Q_COBRANZATIPOWhen012,)"%"UF G((cod%5 E%C4[> v>BCUPROVINCCODTHISVALUE Q_COBRANZA DPROVINCIADESCR G U2 %+ CUNKEYCODE NSHIFTALTCTRLTHISDBLCLICK GUL TlistadosF>UXCOD PROVINCIA BUSPROVINCIALISTADOS Q_COBRANZA DPROVINCIAPROVINCDESCR# B1 C U Q_COBRANZATIPO ES_RETENCIONATRIBUTOValid0 LostFocusKeyPressGotFocuswDblClickWhen-1qbAAAA3a21A3a3rr31 *I*)".%^rlUB1U Q_COBRANZATIPOWhen012,)".%^rlUB1U Q_COBRANZATIPOWhen012,)Text15Alignment = 2 Caption = "Cuenta" Name = "Header1" YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Form1.Grid1.Column4header5Alignment = 2 Caption = "Abrev." Name = "Header1" textboxForm1Text2textboxtextboxForm1 Cod_desc_pro1^resultado enc oldvalue es_f1 *actualizar *busca_comprob ^arr_mon[6,0] *enc_assign comboboxcomboboxCombo1Form1Anchor = 3 ColumnCount = 0 ColumnWidths = "" RowSourceType = 1 RowSource = "Pago,Ajuste" Value = 1 ControlSource = "xrecing" FirstElement = 1 Height = 24 Left = 115 NumberOfElements = 0 Style = 2 TabIndex = 1 Top = 7 Width = 228 Name = "Combo1" PROCEDURE Init this.value=1 ENDPROC PROCEDURE Valid thisform.enc=thisform.busca_comprob() thisform.actualizar ENDPROC Form1.Grid1.Column54Alignment = 2 Caption = "Fecha" Name = "Header1" Form1.Grid1.Column4headerheaderHeader1textboxheaderheadercArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container commandbutton commandbuttonCommand1Form1AutoSize = .F. Top = 471 Left = 285 Height = 27 Width = 84 FontBold = .T. Anchor = 260 Caption = "Aceptar" TabIndex = 13 Name = "Command1" RPROCEDURE Click if xcomp>0 xenc=thisform.enc if xenc xmsg="" if fecha_valida(xfecha) thisform.resultado=.t. thisform.Release else =mensaje(xmsg) endif else =mensaje("Comprobante no encontrado !!!") endif else =mensaje("Nmero de comprobante invlido !!!") endif ENDPROC " %;MIUUInit017)headerheaderHeader1Form1.Grid1.Column6textboxForm1.Grid1.Column6Header1Header1Form1.Grid1.Column5textboxtextboxText1aFontItalic = .T. Enabled = .F. Height = 23 Left = 492 Top = 65 Width = 252 Name = "Text2"  clases.vcx cod_desc_proForm1.Grid1.Column8 commandbutton commandbuttonCommand2Form1AutoSize = .F. Top = 471 Left = 381 Height = 27 Width = 84 FontBold = .T. Anchor = 260 Caption = "Cancelar" TabIndex = 14 Name = "Command2" EPROCEDURE Click thisform.resultado=.f. thisform.Release ENDPROC PROCEDURE When return (q_cobranza.tipo="3" and !es_retencion(q_cobranza.atributo)) or (q_cobranza.tipo="1" and q_cobranza.propio="S") ENDPROC headerForm1.Grid1.Column2Text1Text1labellabelLabel3Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Fecha" Height = 17 Left = 3 Top = 99 Width = 36 TabIndex = 17 Name = "Label3" textboxtextboxText3Form1Anchor = 3 Alignment = 3 ControlSource = "xfecha" Format = "E" Height = 23 Left = 115 MaxLength = 0 TabIndex = 5 Top = 96 Width = 89 DisabledForeColor = 0,0,0 Name = "Text3" labellabelLabel4Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Importe" Height = 17 Left = 3 Top = 127 Width = 46 TabIndex = 18 Name = "Label4" textboxtextboxText4Form1Anchor = 3 Alignment = 3 Value = 0 ControlSource = "" Enabled = .F. Format = "z" Height = 23 InputMask = "999,999,999.99" Left = 115 MaxLength = 14 TabIndex = 6 Top = 124 Width = 144 DisabledForeColor = 0,0,0 Name = "Text4" labellabelLabel2Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Comprobante" Height = 17 Left = 3 Top = 11 Width = 79 TabIndex = 15 Name = "Label2" exportaciones_combo imp_exp.vcxcomboboxmonedaForm1Anchor = 3 ColumnCount = 0 RowSourceType = 5 RowSource = "thisform.arr_mon" Value = 1 ControlSource = "xmoneda" Height = 24 Left = 115 Style = 2 TabIndex = 10 Top = 182 Width = 96 ZOrderSet = 9 Name = "moneda" 9PROCEDURE Init this.NumberOfElements=mm_max ENDPROC YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 5Alignment = 2 Caption = "Numero" Name = "Header1" textboxheaderForm1.Grid1.Column3Text1headerlabellabelLabel7Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Tipo " Height = 17 Left = 3 Top = 156 Width = 29 TabIndex = 19 Name = "Label7" textboxtextboxText5Form1Anchor = 3 Alignment = 3 Value = Normal Enabled = .F. Height = 23 Left = 115 TabIndex = 7 Top = 153 Width = 228 DisabledForeColor = 0,0,0 Name = "Text5" textboxtextboxText1Form1Anchor = 3 ControlSource = "xcomp" Format = "z" Height = 23 InputMask = "9,999,999,999" Left = 115 SelectOnEntry = .T. TabIndex = 3 Top = 37 Width = 144 Name = "Text1" PROCEDURE Valid thisform.enc=thisform.busca_comprob() *if found() thisform.actualizar *endif ENDPROC PROCEDURE Init this.InputMask="99999999" ENDPROC ".%^rlUB1U Q_COBRANZATIPOWhen012,)gridtextboxText17PROCEDURE When return q_cobranza.tipo#"1" ENDPROC textboxtextboxlabellabelLabel1Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Nmero" Height = 17 Left = 3 Top = 40 Width = 47 TabIndex = 16 Name = "Label1" labellabelLabel8Form1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Tipo de Cambio" Height = 17 Left = 3 Top = 186 Width = 89 TabIndex = 22 Name = "Label8" YPROCEDURE Init this.Caption="Tipo de Cambio "+alltrim(mm_moneda(xmoneda+1,2)) ENDPROC PROCEDURE When *=sys_m("when") return (q_cobranza.tipo="3" and !es_retencion(q_cobranza.atributo)) or (q_cobranza.tipo="2" and inlist(q_cobranza.subtipo,2,3)) ENDPROC textboxForm1.Grid1.Column3gridtextboxHeader1textboxtextboxcambioForm1Anchor = 3 ControlSource = "xcambio" Format = "z" Height = 23 InputMask = "999,999.9999" Left = 223 TabIndex = 11 Top = 182 Width = 133 Name = "cambio" YPROCEDURE Init this.InputMask="999,999."+replicate("9", p_presicion_cambio) ENDPROC PROCEDURE updated cod_desc_pro::actualizar if p_iibb_regimen_especial>=1 xregimen_iibb_gen_esp = proveedo.ibret endif thisform.Refresh return .t. ENDPROC 8Alignment = 2 Caption = "Provincia" Name = "Header1" headerGrid1Form1ColumnCount = 8 Anchor = 15 DeleteMark = .F. Height = 254 Left = 3 Panel = 1 RecordSource = "q_cobranza" TabIndex = 12 Top = 216 Width = 744 Name = "Grid1" Column1.ControlSource = "q_cobranza.des_val" Column1.Width = 181 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "q_cobranza.caj_pro" Column2.Width = 75 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "q_cobranza.numero" Column3.Width = 75 Column3.Name = "Column3" Column4.ControlSource = "q_cobranza.dif_valor" Column4.Width = 62 Column4.Name = "Column4" Column5.ControlSource = "q_cobranza.abrev" Column5.Width = 61 Column5.Name = "Column5" Column6.ControlSource = "q_cobranza.dcuenta" Column6.Width = 142 Column6.ReadOnly = .T. Column6.Name = "Column6" Column7.ControlSource = "q_cobranza.provincia" Column7.Width = 26 Column7.Name = "Column7" Column8.ControlSource = "q_cobranza.dprovincia" Column8.Width = 110 Column8.ReadOnly = .T. Column8.Name = "Column8" PROCEDURE Init *!* this.SetAll(; *!* "DynamicBackColor" ,; *!* "iif(q_cobranza.tipo=[1],rgb(255,179,179), rgb(255,255,255))" ,; *!* "column") ENDPROC iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Form1.Grid1.Column8headerForm1.Grid1.Column7headerheaderHeader1Form1.Grid1.Column16Alignment = 2 Caption = "Detalle" Name = "Header1" textboxtextboxText1Form1.Grid1.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 7PROCEDURE When return q_cobranza.tipo#"1" ENDPROC YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Text1textboxtextbox$Caption = "Cod." Name = "Header1" Form1.Grid1.Column7Header1headerheaderHeader1Form1.Grid1.Column26Alignment = 2 Caption = "Importe" Name = "Header1" textbox7PROCEDURE When return q_cobranza.tipo#"1" ENDPROC iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 7PROCEDURE When return q_cobranza.tipo#"1" ENDPROC iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" vPROCEDURE Valid if !thisform.es_f1 then select cuentas set order to abrev seek this.value if found() if q_cobranza.tipo="2" * Caja xatributos="substr(atributo,19,1)=[S]" else * Otros xatributos="substr(atributo,60,1)=[S]" endif if evaluate(xatributos) *=sys_m("Suspendo") repl in q_cobranza; abrev with cuentas.abrev ,; cuenta with cuentas.cod_cue ,; dcuenta with cuentas.descr ,; des_val with cuentas.descr ,; provincia with iif(cuentas.auxn#0, cuentas.auxn, q_cobranza.provincia) ,; auxn with cuentas.auxn ,; atributo with cuentas.atributo if q_cobranza.provincia#0 =seek(q_cobranza.provincia, "provinc", "cod") repl in q_cobranza; dprovincia with provinc.descr else repl in q_cobranza; dprovincia with "" endif return .t. else repl in q_cobranza; cuenta with "" ,; dcuenta with "" ,; des_val with "" ,; provincia with 0 ,; dprovincia with "" ,; auxn with 0 ,; atributo with "" =mensaje("La cuenta existe pero no se puede utilizar aqu !!!") return .f. endif else =mensaje("Cuenta invlida !!!") return .f. endif endif ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl do case case nKeyCode=28 This.DblClick endcase ENDPROC PROCEDURE GotFocus set help off thisform.oldvalue=this.Value ENDPROC PROCEDURE DblClick thisform.es_f1 = .t. xvar=this.value if q_cobranza.tipo="2" * Caja xatributos="substr(atributo,19,1)=[S]" else * Otros xatributos="substr(atributo,60,1)=[S]" endif do buscue in listados with xvar, xatributos sele q_cobranza repl ; abrev with xvar ,; cuenta with cuentas.cod_cue ,; dcuenta with cuentas.descr ,; des_val with cuentas.descr ,; atributo with cuentas.atributo this.Refresh thisform.es_f1 = .F. ENDPROC PROCEDURE When *=sys_m("xxx") return q_cobranza.tipo#"1" and !es_retencion(q_cobranza.atributo) ENDPROC "Q8%C9U% FG((abrev E%C4N%2&Tsubstr(atributo,19,1)=[S] &Tsubstr(atributo,60,1)=[S]%Cz>      C 6%Cprovinccod> >Ba JM>   @C3La cuenta existe pero no se puede utilizar aqu !!!B-  CCuenta invlida !!!B-UTHISFORMES_F1CUENTASABREVTHISVALUE Q_COBRANZATIPO XATRIBUTOSCUENTACOD_CUEDCUENTADESCRDES_VAL PROVINCIAAUXNATRIBUTO DPROVINCIAPROVINCMENSAJE G U@ H9 9 UNKEYCODE NSHIFTALTCTRLTHISDBLCLICKGTUTHISFORMOLDVALUETHISVALUE TaT%2[&Tsubstr(atributo,19,1)=[S] &Tsubstr(atributo,60,1)=[S]listadosFA>      T-UTHISFORMES_F1XVARTHISVALUE Q_COBRANZATIPO XATRIBUTOSBUSCUELISTADOSABREVCUENTACUENTASCOD_CUEDCUENTADESCRDES_VALATRIBUTOREFRESH# B1 C U Q_COBRANZATIPO ES_RETENCIONATRIBUTOValid0 LostFocusqKeyPressGotFocusDblClick8When11srbbAbCBrrAqAB4a31A3a23rbbAr32<IF!hJ'R*0X7kt)'"ғ%UFCB3 C 2C  U Q_COBRANZATIPO ES_RETENCIONATRIBUTOSUBTIPOWhen0132)#"  %UC@B3 C 1 S  U Q_COBRANZATIPO ES_RETENCIONATRIBUTOPROPIOWhen012) "&%U%"T999,999.C9QUTHIS INPUTMASKP_PRESICION_CAMBIOInit01!2N)";%U30TTipo de Cambio CCUTHISCAPTION MM_MONEDAXMONEDAInit011N)R"99Ē%U!TC UTHISFORMENC BUSCA_COMPROB ACTUALIZART99999999UTHIS INPUTMASKValid0Init1A32c~)9" u%kyUTUTHISNUMBEROFELEMENTSMM_MAXInit012.)PROCEDURE Valid select provinc set order to cod if cod#this.value seek this.value endif if found() replace in q_cobranza dprovincia with provinc.descr else replace in q_cobranza dprovincia with "" endif return between(this.Value,0,24) ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 =this.dblclick() endif ENDPROC PROCEDURE GotFocus set help off ENDPROC PROCEDURE DblClick xcod=provincia do busprovincia in listados with xcod select q_cobranza replace in q_cobranza ; provincia with xcod ,; dprovincia with provinc.descr ENDPROC PROCEDURE When return q_cobranza.tipo#"1" and !es_retencion(q_cobranza.atributo) ENDPROC tTop = 60 Left = -5 Width = 509 Height = 40 Enabled = .F. TabIndex = 4 dato = xcod_pro dato_tabla = m Name = "Cod_desc_pro1" Label2.Left = 7 Label2.Top = 9 Label2.Name = "Label2" Text8.ControlSource = "xcod_pro" Text8.Left = 120 Text8.Top = 5 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 204 Text9.Top = 5 Text9.Width = 281 Text9.Name = "Text9" "^%qUT- UTHISFORM RESULTADORELEASEClick011:)!"j%U%T% T%CkTa  C  *CComprobante no encontrado !!!  /C"Nmero de comprobante invlido !!! U XCOMPXENCTHISFORMENCXMSG FECHA_VALIDAXFECHA RESULTADORELEASEMENSAJEClick011AAAA1G)F"--%UTUTHISVALUE!TC UTHISFORMENC BUSCA_COMPROB ACTUALIZARInit0ValidX13A2:x)- u"\ \ %Y!UT%0 OTANULADO%Ccom_oper+T%CcccomppagoT  T a T T -T !TCOA6 TF/%C@z 9999,999,999_f TCO T7+C+ $C@z 9999,999,999_ TH #H 2 0 STAnuladoT T ProvisorioT .TAplicacin de un ProvisorioT 2TNormalTTT  TTTTTT    U!THISFORM COD_DESC_PRO1VALORCOM_OPERCOD_PROTEXT9VALUE P_PROVCONTOPAGOTEXT2CCCOMPDES_PROVVISIBLEXFECHAFECHAXCAUSAXRECINGXCPBTXCOMPCOMPROBCAUSAREGACCCAJ_PROTEXT5 FORECOLORAPLICMONEDACAMBIOCOEFICTEXT4REFRESHTEXT3FH _G((opagoG(O T E  G((operG(A EG(%C4CBa S B-U COM_OPERXRECINGOPAGOCAUSAXCPBTXCOMPOPER OBTENER_PAGOCOMPROB Q_COBRANZAFT T T UVNEWVALTHISENCTHISFORMMONEDAENABLEDCAMBIO>(7TCUZMM_MAXTHISARR_MON MM_MONEDA BUTHISFORM RESULTADO actualizar0 busca_comprob[ enc_assignLoad-Unload1aAaAba1ArqAA1a1a1a1Aa2121B23q12AacrqA3q"SQ6A3297NNlSyW  )\ 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _47Q0ITJT81165247962/F] WINDOWS _47Q0ITJT91493524196  WINDOWS _47Q0ITJTA1493524196".=Ql## WINDOWS _47Q0ITJTB1165247962$%%!%E% WINDOWS _47Q0ITJTC1456233417%%%%%&& WINDOWS _47Q0ITJTD1165247962''''' WINDOWS _47Q0ITJTE14562334170(?(N([((1)- WINDOWS _47Q0ITJTF1493524196222 3-3 WINDOWS _47Q0ITJTG1493524196}3333345 WINDOWS _47Q0ITJTH116524796277777 WINDOWS _47Q0ITJTI1456233417(878F8S8w8(9)A WINDOWS _47Q0ITJTJ1165247962GGGGG WINDOWS _47Q0ITJTK1456233417QH`HoH|HHbIDK WINDOWS _47Q0ITJTL1165247962 N.N2 Q) 2importe_cheque *cosxcuevld *actualizar_texto grilla clases.vcxgridGrilla1 Wizard_form1ColumnCount = 7 Comment = "c" DeleteMark = .F. Height = 381 Left = 0 Panel = 1 RecordSource = "tmp_gastos" ScrollBars = 2 TabIndex = 7 Top = 151 Width = 793 Name = "Grilla1" Column1.ColumnOrder = 1 Column1.ControlSource = "tmp_gastos.descr" Column1.Enabled = .T. Column1.Width = 380 Column1.Name = "Column1" Column2.ColumnOrder = 3 Column2.ControlSource = "tmp_gastos.centro" Column2.Enabled = .T. Column2.Width = 46 Column2.Format = "!" Column2.Name = "Column2" Column3.ColumnOrder = 4 Column3.ControlSource = "tmp_gastos.subcentro" Column3.Enabled = .T. Column3.Width = 63 Column3.Name = "Column3" Column4.ColumnOrder = 2 Column4.ControlSource = "tmp_gastos.abrev" Column4.Enabled = .T. Column4.Width = 79 Column4.Name = "Column4" Column5.ColumnOrder = 7 Column5.ControlSource = "tmp_gastos.importe" Column5.Enabled = .T. Column5.Width = 107 Column5.Format = "z" Column5.InputMask = "999,999,999.99" Column5.Name = "Column6" Column6.ColumnOrder = 5 Column6.ControlSource = "tmp_gastos.linea" Column6.Width = 41 Column6.Format = "z" Column6.InputMask = "9999" Column6.Name = "Column17" Column7.ColumnOrder = 6 Column7.ControlSource = "tmp_gastos.grupo" Column7.Width = 39 Column7.Format = "z" Column7.InputMask = "9999" Column7.Name = "Column18" zPROCEDURE Init * Encabezados Centrados this.SetAll("Alignment", 2, "Header") sele tmp_gastos go top ENDPROC "%U4%C AlignmentHeaderF#)UTHISSETALL TMP_GASTOSInit01RrQ4o)headerheaderHeader1Wizard_form1.Grilla1.Column18FontBold = .T. Caption = "Concepto" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column1Comment = "" BorderStyle = 0 ControlSource = "tmp_gastos.descr" Enabled = .T. Format = "!" MaxLength = 60 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 3PROCEDURE LostFocus sele tmp_gastos ENDPROC "/7%NgaU FU TMP_GASTOS LostFocus01q3()headerheaderHeader1Wizard_form1.Grilla1.Column2EFontBold = .T. Alignment = 2 Caption = "Centro" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column2BorderStyle = 0 ControlSource = "tmp_gastos.centro" Enabled = .T. Format = "!" Margin = 0 MaxLength = 6 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" GPROCEDURE When return substr(cuentas.atributo,73,1)='S' ENDPROC PROCEDURE GotFocus set help off if cuentas.abrev#tmp_gastos.abrev =seek(tmp_gastos.abrev, "cuentas", "abrev") endif ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE DblClick this.parent.Parent.es_f1 = .t. local xcentro xcentro = this.value do buscenxcue in listados with xcentro,tmp_gastos.cod_cue sele tmp_gastos repl ; centro with xcentro this.Refresh this.parent.Parent.es_f1 = .F. ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl do case case nKeyCode=28 This.DblClick endcase ENDPROC PROCEDURE Valid IF !THIS.PARENT.PARENT.es_f1 THEN xResp=THISFORM.cosxcuevld() DO CASE CASE xResp=1 =mensaje("Centro de Costos invlido !!!") RETURN .F. CASE xResp=2 =mensaje("Debe ingresar un Centro de Costos!!!") RETURN .F. CASE xResp=3 =mensaje("La Cuenta no tiene asignado el Centro de Costos que Ud. ingreso!!!") RETURN .F. CASE xResp=0 RETURN .T. OTHERWISE RETURN .T. ENDCASE ENDIF ENDPROC V"== %,LUBCI\SUCUENTASATRIBUTOFG%? CcuentasabrevUCUENTASABREV TMP_GASTOS G U~TaTlistadosF >  T-U THISPARENTES_F1XCENTROVALUE BUSCENXCUELISTADOS TMP_GASTOSCOD_CUECENTROREFRESH@ H9 9 UNKEYCODE NSHIFTALTCTRLTHISDBLCLICKi% bTCH;^ *CCentro de Costos invlido !!!B- 1C$Debe ingresar un Centro de Costos!!!B- 3OCBLa Cuenta no tiene asignado el Centro de Costos que Ud. ingreso!!!B- MBa 2^BaUTHISPARENTES_F1XRESPTHISFORM COSXCUEVLDMENSAJEWhen0GotFocusg LostFocusDblClickKeyPressValid:12aA2a3ArrA21A31q1q1q1qqAA38W r<))=headerheaderHeader1Wizard_form1.Grilla1.Column3HFontBold = .T. Alignment = 2 Caption = "Subcentro" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column3BorderStyle = 0 ControlSource = "tmp_gastos.subcentro" Enabled = .T. Format = "z" InputMask = "9999999999.99" Margin = 0 MaxLength = 13 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE When return substr(cuentas.atributo,73,1)='S' ENDPROC PROCEDURE GotFocus set help off ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE DblClick local xvar xvar=tmp_gastos.subcentro sele tmp_gastos repl subcentro with xvar ENDPROC "l`%9 !UBCI\SUCUENTASATRIBUTO GU G U.TF >UXVAR TMP_GASTOS SUBCENTROWhen0GotFocusg LostFocusxDblClick12a3a3qr38We )headerheaderHeader1Wizard_form1.Grilla1.Column4EFontBold = .T. Alignment = 2 Caption = "Cuenta" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column4BorderStyle = 0 ControlSource = "tmp_gastos.abrev" Enabled = .T. Format = "!" Margin = 0 MaxLength = 9 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE GotFocus set help off ENDPROC PROCEDURE DblClick local xvar xvar=tmp_gastos.abrev do buscue in listados with xvar,'substr(atributo,5,1)="S"' && substr(atributo,3,1)="S".and. sele tmp_gastos repl ; tmp_gastos.abrev with cuentas.abrev ,; tmp_gastos.cod_cue with cuentas.cod_cue ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl do case case nKeyCode=28 * F1 = Ayuda local xvar xvar=tmp_gastos.abrev do buscue in listados with xvar,'substr(atributo,3,1)="S".and.substr(atributo,5,1)="S"' sele tmp_gastos repl ; tmp_gastos.abrev with cuentas.abrev ,; tmp_gastos.cod_cue with cuentas.cod_cue endcase ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE Valid *=sys_mostrar_Screen("Suspendo?", .t.) select cuentas set filt to encontre=.f. OLDORDER=ORDER() if alltrim(tmp_gastos.ABREV)#'' SET ORDER to ABREV SEEK tmp_gastos.ABREV IF found().and.substr(atributo,3,1)="S".and.substr(atributo,5,1)="S" encontre=.t. replace ; tmp_gastos.cod_cue with cod_cue ,; tmp_gastos.linea with cuentas.linea ,; tmp_gastos.grupo with cuentas.grupo ,; tmp_gastos.linea with iif(tmp_gastos.linea=0 or linea=1, cuentas.linea, tmp_gastos.linea) ,; tmp_gastos.grupo with iif(tmp_gastos.grupo=0 or grupo=1, cuentas.grupo, tmp_gastos.grupo) if alltrim(tmp_gastos.descr)='' replace tmp_gastos.descr with cuentas.descr endif SET ORDER to &OLDORDER return ELSE wait window nowait 'Cuenta inexistente !!!' replace ; tmp_gastos.cod_cue with "" ,; tmp_gastos.linea with 0 ,; tmp_gastos.grupo with 0 ,; tmp_gastos.linea with 0 ,; tmp_gastos.grupo with 0 SET ORDER to &OLDORDER return 0 ENDIF else SET ORDER to &OLDORDER replace ; tmp_gastos.cod_cue with "" ,; linea with 0 ,; grupo with 0 ,; tmp_gastos.linea with 0 ,; tmp_gastos.grupo with 0 return 1 endif ENDPROC s"ZZ%0qU GUyT5listadossubstr(atributo,5,1)="S"F#>UXVAR TMP_GASTOSABREVBUSCUELISTADOSCUENTASCOD_CUE H TRlistados5substr(atributo,3,1)="S".and.substr(atributo,5,1)="S"F#>U NKEYCODE NSHIFTALTCTRLXVAR TMP_GASTOSABREVBUSCUELISTADOSCUENTASCOD_CUE G UFG( T- TC%CG((ABREV E6%C4C\S C\S z Ta>C 6C 6%C X> SET ORDER to &OLDORDER B  !R,:Cuenta inexistente !!!D>SET ORDER to &OLDORDER B {SET ORDER to &OLDORDER >> BU CUENTASENCONTREOLDORDER TMP_GASTOSABREVATRIBUTOCOD_CUELINEAGRUPODESCRGotFocus0DblClickAKeyPress LostFocus&Valid71a3qQr321r"r3C2a3taag 1AAGAA5"A1 P!%)ZheaderheaderHeader1Wizard_form1.Grilla1.Column6VFontBold = .T. Alignment = 2 Caption = "Importe" WordWrap = .T. Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column6BorderStyle = 0 ControlSource = "tmp_gastos.importe" Enabled = .T. Format = "z" InputMask = "999,999,999.99" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE GotFocus this.Parent.Parent.oldvalue=this.Value ENDPROC PROCEDURE LostFocus thisform.totAL.Value=thisform.totAL.Value+ this.Value-this.Parent.Parent.oldvalue thisform.totAL.Refresh ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=13 GO MIN(RECNO()+1,RECCOUNT()) this.parent.parent.activatecell(recno(),1) thisform.Refresh endif ENDPROC PROCEDURE Valid =this.parent.parent.actualizar_fila() return .t. ENDPROC "%B"UTUTHISPARENTOLDVALUEVALUE=-T UTHISFORMTOTALVALUETHISPARENTOLDVALUEREFRESHW % P#CCOCNFCCO UNKEYCODE NSHIFTALTCTRLTHISPARENT ACTIVATECELLTHISFORMREFRESHCBaUTHISPARENTACTUALIZAR_FILAGotFocus0 LostFocussKeyPressValid1331A31q1<\ )headerheaderHeader1Wizard_form1.Grilla1.Column17DFontBold = .T. Alignment = 2 Caption = "Lnea" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column17BorderStyle = 0 ControlSource = "tmp_gastos.linea" Format = "z" InputMask = "9999" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" +PROCEDURE DblClick this.parent.parent.es_f1=.t. xcodigo = this.value do buslin in listados with xcodigo sele tmp_gastos repl ; linea with xcodigo this.parent.parent.es_f1=.f. ENDPROC PROCEDURE GotFocus set help off if cuentas.abrev#tmp_gastos.abrev =seek(tmp_gastos.abrev, "cuentas", "abrev") endif ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 =this.dblclick() endif ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE Valid if !this.parent.parent.es_f1 if tmp_gastos.linea=2 * Opcional if this.Value=0 * Ok else if seek(this.Value, "lineas", "codigo") * Ok else mensaje("Lnea invlida !!!") return 0 endif endif else * Obligatorio if this.Value=0 mensaje("Debe definirse la lnea !!!") return 0 else if seek(this.Value, "lineas", "codigo") * Ok else mensaje("Lnea invlida !!!") return 0 endif endif endif endif ENDPROC PROCEDURE When return tmp_gastos.linea>2 ENDPROC "%k.UfTaTlistadosF >T-U THISPARENTES_F1XCODIGOVALUEBUSLINLISTADOS TMP_GASTOSLINEAFG%? CcuentasabrevUCUENTASABREV TMP_GASTOS2 %+ CUNKEYCODE NSHIFTALTCTRLTHISDBLCLICK G Uu% n%%E &%Clineascodigou CLnea invlida !!! B j%(CDebe definirse la lnea !!! B f&%Clineascodigo0 bCLnea invlida !!! BUTHISPARENTES_F1 TMP_GASTOSLINEAVALUEMENSAJEBU TMP_GASTOSLINEADblClick0GotFocusKeyPressR LostFocusValidWhen{1ArrB3aA22A4a4abaAAbaAAAA21G f$, B)headerheaderHeader1Wizard_form1.Grilla1.Column18DFontBold = .T. Alignment = 2 Caption = "Grupo" Name = "Header1" textboxtextboxText1Wizard_form1.Grilla1.Column18BorderStyle = 0 ControlSource = "tmp_gastos.grupo" Format = "z" InputMask = "9999" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" 'PROCEDURE DblClick this.parent.parent.es_f1=.t. xcodigo = this.value do busgru in listados with xcodigo sele tmp_gastos repl ; grupo with xcodigo this.parent.parent.es_f1=.f. ENDPROC PROCEDURE GotFocus set help off if cuentas.abrev#tmp_gastos.abrev =seek(tmp_gastos.abrev, "cuentas", "abrev") endif ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=28 =this.dblclick() endif ENDPROC PROCEDURE LostFocus set help on ENDPROC PROCEDURE Valid if !this.parent.parent.es_f1 if tmp_gastos.grupo=2 * Opcional if this.Value=0 * Ok else if seek(this.Value, "grupos", "codigo") * Ok else mensaje("Grupo invlido !!!") return 0 endif endif else * Obligatorio if this.Value=0 mensaje("Debe definirse el Grupo !!!") return 0 else if seek(this.Value, "grupos", "codigo") * Ok else mensaje("Grupo invlida !!!") return 0 endif endif endif endif ENDPROC PROCEDURE When return tmp_gastos.grupo>2 ENDPROC "%k.UfTaTlistadosF >T-U THISPARENTES_F1XCODIGOVALUEBUSGRULISTADOS TMP_GASTOSGRUPOFG%? CcuentasabrevUCUENTASABREV TMP_GASTOS2 %+ CUNKEYCODE NSHIFTALTCTRLTHISDBLCLICK G Uu% n%%E &%Cgruposcodigou CGrupo invlido !!! B j%(CDebe definirse el Grupo !!! B f&%Cgruposcodigo0 bCGrupo invlida !!! BUTHISPARENTES_F1 TMP_GASTOSGRUPOVALUEMENSAJEBU TMP_GASTOSGRUPODblClick0GotFocusKeyPressR LostFocusValidWhen{1ArrB3aA22A4a2abaAAbaAAAA21G f",@)labellabelLabel2 Wizard_form1FontBold = .T. Alignment = 1 BackStyle = 0 Caption = "Total" Height = 17 Left = 560 Top = 538 Width = 101 TabIndex = 13 Name = "Label2" APROCEDURE Init this.Caption="Total "+mm_moneda(1,1) ENDPROC "p%vU$!TTotal CUTHISCAPTION MM_MONEDAInit0126)textboxtextboxtotal Wizard_form1FontBold = .T. Alignment = 3 Value = 0 Enabled = .F. Height = 23 InputMask = "999,999,999.99" Left = 665 TabIndex = 9 Top = 535 Width = 108 DisabledForeColor = 0,0,0 Name = "total"  cod_desc_cue clases.vcx container cod_desc_cue1 Wizard_form1`Top = 30 Left = 8 Width = 535 Height = 39 TabIndex = 2 BackColor = 0,0,0 filtro = dato = xabrev dato_tabla = m Name = "cod_desc_cue1" Label2.Caption = "Cuenta de Pago" Label2.Name = "Label2" Text8.Left = 112 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 196 Text9.Top = 5 Text9.Width = 327 Text9.Name = "Text9" PROCEDURE updated thisform.cheque.Enabled = (substr(cuentas.atributo,21,1)="S" and iif(p_te_solo_cheques_dif>=1, !empty(cuentas.complement), .t.)) thisform.cambio.Init ENDPROC PROCEDURE Init this.filtro = [substr(atributo,19,1)="S" or substr(atributo,21,1)="S"] ENDPROC "K%HsgUQATC\SC C a6  U THISFORMCHEQUEENABLEDCUENTASATRIBUTOP_TE_SOLO_CHEQUES_DIF COMPLEMENTCAMBIOINITJGT7substr(atributo,19,1)="S" or substr(atributo,21,1)="S"UTHISFILTROupdated0Init14q2)labellabelLabel3 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Concepto" Height = 17 Left = 17 Top = 125 Width = 56 TabIndex = 10 Name = "Label3" textboxtextboxText3 Wizard_form1ControlSource = "xcomentario" Format = "!" Height = 23 Left = 120 MaxLength = 65 TabIndex = 6 Top = 122 Width = 662 Name = "Text3" labellabelLabel1 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 17 Top = 10 Width = 36 TabIndex = 12 Name = "Label1" textboxtextboxText2 Wizard_form1gControlSource = "xfecha" Height = 23 Left = 120 TabIndex = 1 Top = 7 Width = 113 Name = "Text2" labellabelLabel4 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cheque" Height = 17 Left = 17 Top = 67 Width = 45 TabIndex = 11 Name = "Label4"  commandbutton commandbuttoncheque Wizard_form1AutoSize = .T. Top = 34 Left = 540 Height = 27 Width = 63 FontBold = .T. Caption = "Cheque" Enabled = .F. TabIndex = 3 Name = "cheque" ZPROCEDURE Click select cuentas set order to abrev if abrev#xabrev seek xabrev endif numcue=cuentas.cod_cue abona=xchp_importe chedesc=xchp_numero chevenc=xchp_venc cheele=xchp_echeq *=sys_m("antes") xres=.t. do form te_importe_chp with .t., xchp_numero to xres if xres * =sys_m("ok") thisform.importe_cheque=abona xchp_numero = chedesc xchp_venc = chevenc xchp_echeq = cheele xchp_importe = abona else xchp_numero = 0 xchp_venc = {} xchp_echeq = .f. xchp_importe = 0 endif thisform.actualizar_texto thisform.Refresh ENDPROC "+%UdUVFG((abrev%1 ET T T T  T  T a"te_importe_chp( a% T T T  T  T ; TT  T - T  UCUENTASABREVXABREVNUMCUECOD_CUEABONA XCHP_IMPORTECHEDESC XCHP_NUMEROCHEVENC XCHP_VENCCHEELE XCHP_ECHEQXRESTE_IMPORTE_CHPTHISFORMIMPORTE_CHEQUEACTUALIZAR_TEXTOREFRESHClick01q2A!1B1O)textboxtextboxText4 Wizard_form1ControlSource = "xcheque_txt" Enabled = .F. Height = 23 Left = 120 TabIndex = 4 Top = 64 Width = 662 DisabledForeColor = 255,0,0 Name = "Text4" labellabelLabel9 Wizard_form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cambio" Height = 17 Left = 17 Top = 96 Width = 45 TabIndex = 17 Name = "Label9" textboxtextboxcambio Wizard_form1ControlSource = "xcambio" Enabled = .F. Format = "z" Height = 23 InputMask = "9,999,999.9999" Left = 120 TabIndex = 5 Top = 93 Width = 120 DisabledForeColor = 0,0,0 Name = "cambio" PROCEDURE Valid if this.Value>=1 return 1 else =mensaje("Tipo de cambio invlido !!!") return 0 endif ENDPROC PROCEDURE Init this.Enabled = cuentas.moneda#0 ENDPROC "{{%" Ua% B Z(CTipo de cambio invlido !!! BUTHISVALUEMENSAJETUTHISENABLEDCUENTASMONEDAValid0Init1aA3q2q ){labellabeladv Wizard_form1FontBold = .T. WordWrap = .T. BackStyle = 0 Caption = "Atencin !!! No se podrn registrar mltiples pases." Height = 30 Left = 612 Top = 31 Visible = .F. Width = 168 ForeColor = 255,0,0 Name = "adv" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6MR18ETOM1455662440/F] WINDOWS _6MR18ETON1455664026 ' WINDOWS _6MR18ETOO1455664026v WINDOWS _6MR18ETOP1455664026gX; COMMENT RESERVED  jVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 111 Width = 474 DoCreate = .T. Caption = "Anulacin de Costos de Reposicin" pregunta_confirmacion = ('Est seguro de anular el ingreso de costos de reposicin de transaccin !!!') Name = "Formulario_acep_canc1" Command1.Top = 84 Command1.Left = 170 Command1.TabIndex = 2 Command1.Name = "Command1" Command2.Top = 84 Command2.Left = 242 Command2.TabIndex = 3 Command2.Name = "Command2" AYUDA.TabIndex = 4 AYUDA.Name = "AYUDA" Text1.Left = 444 Text1.TabIndex = 5 Text1.Top = 0 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 422 Ayuda_wiki1.Top = -1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" )PROCEDURE validar if xoperacion<=0 if xoperacion=0 mensaje("El nmero de transaccin del ingreso de costos de reposicin no puede ser 0 !!!") else mensaje("El nmero de transaccin del ingreso de costos de reposicin no puede ser negativo !!!") endif return .f. endif ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ControlSource = "xoperacion" Format = "z" Height = 23 InputMask = "999999999999" Left = 327 MaxLength = 12 TabIndex = 1 Top = 33 Width = 132 Name = "Text2" Formulario_acep_canc1textboxtextboxFormulario_acep_canc1Label1labellabelText2AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Transaccin de Ingreso de los Costos de Reposicin" Height = 17 Left = 15 Top = 36 Width = 299 TabIndex = 6 Name = "Label1" "%Ns _U%%\COEl nmero de transaccin del ingreso de costos de reposicin no puede ser 0 !!! cCVEl nmero de transaccin del ingreso de costos de reposicin no puede ser negativo !!!B-U XOPERACIONMENSAJEvalidar01111AqA2)0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6D20M1KZ71423266339/F] WINDOWS _6D20M1KZ81463509142 '98 WINDOWS _6D20M1KZ9146350914299599F: zHT WINDOWS _6D20M1KZ71463509142TTTTUU WINDOWS _6D20M1KZ81463509142XXX Y)YY WINDOWS _6D20M1KZC1463509142[[\\0\\ WINDOWS _6D20M1KZD1463509142T^i^~^^^9_c WINDOWS _6D20M1KZE1463509142eBPBu21aaK0 WINDOWS _6D20M1KZ71463509142O2:2B2`o15/ WINDOWS _6D20M1KZ81463509142B3z3]31cd, WINDOWS _6D712EZOX1463509142OC_C4n42,4, WINDOWS _6E10YLFSP14635091424hHWHDH'Hqh3* WINDOWS _6D20M1KZ71423266339FFFF^Fl(F WINDOWS _6D20M1KZ71463509142FEE6wEC( WINDOWS _6NV10PVB114635091425#585H5e55& WINDOWS _6D20M1KZ71463509082F444oC WINDOWS _6O00MK2YK145872903244H3+3B WINDOWS _6O00MK2YL1458729032B3d2B3BG WINDOWS _6D20M1KZ71458728769zB 2`~`hA WINDOWS _6O00QRI011460171933n`^`Q`4`5b WINDOWS _6D20M1KZ71463509142`?^/^^_]% WINDOWS _6O00UAFX81463509142][[[8]X % WINDOWS _6PT0MECDL1463509142uX`XPX3XWeZ" WINDOWS _6PT0MECDM1463509142WW|W_WVIf WINDOWS _6PZ0PTL2Q1463509082V877v7 COMMENT RESERVED 6VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1Height = 676 Width = 1200 DoCreate = .T. Caption = "Administrador de propiedades" propiedades = .F. propiedad_seleccionada = .F. propiedad_drag = .F. propiedad = .F. cod_ins = .F. bul = .F. atr = .F. tabla = .F. propiedad_padre = .F. grupo = 0 Name = "Formulario_acep_canc1" Command1.Top = 648 Command1.Left = 444 Command1.Anchor = 260 Command1.Name = "Command1" Command2.Top = 648 Command2.Left = 528 Command2.Anchor = 260 Command2.Name = "Command2" AYUDA.Top = 1 AYUDA.Left = 971 AYUDA.Name = "AYUDA" Text1.Left = 954 Text1.Top = 1 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 932 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE propiedades_cargar LPARAMETERS xActualizar, xNuevo LOCAL xKeyActual IF xNuevo THEN * =sys_m("Nuevo") xKeyActual=THISFORM.propiedad_seleccionada.Rama xKeyPadre=THISFORM.tv.SELECTEDITEM.KEY this.propiedad_cargar(this.propiedad_seleccionada ) THISFORM.tv.Nodes(xKeyActual).ensurevisible() THISFORM.tv.Nodes(xKeyActual).SELECTED = .T. THISFORM.tv.NodeClick ( THISFORM.tv.Nodes(xKeyActual)) RETURN ELSE xKeyActual="" TRY xKeyActual=THISFORM.tv.SELECTEDITEM.KEY TRY xKeyPadre=THISFORM.tv.SELECTEDITEM.PARENT.KEY CATCH xKeyPadre="" ENDTRY CATCH xKeyActual="" ENDTRY ENDIF IF NOT TYPEo(THISFORM.propiedades) OR xActualizar THEN *=ys_m("Cargar") IF TYPEo(THISFORM.propiedades) THEN xcodigo=THISFORM.propiedades.codigo xSemilla=THISFORM.propiedades.Semilla ELSE xcodigo=.F. xSemilla=.F. ENDIF THISFORM.propiedades = sys_propiedades(xcodigo, , , , 1,,THISFORM.cod_ins,xSemilla, THISFORM.atr, THISFORM.bul,THISFORM.Tabla,,Thisform.Grupo) ENDIF thisform.tv.Enabled = .f. THISFORM.LOCKSCREEN =.T. THISFORM.tv.Nodes.CLEAR THISFORM.Propiedad_Cargar (THISFORM.propiedades ) IF THISFORM.tv.Nodes.COUNT>0 THEN TRY THISFORM.tv.Nodes(xKeyActual).ensurevisible() THISFORM.tv.Nodes(xKeyActual).SELECTED = .T. THISFORM.tv.NodeClick ( THISFORM.tv.Nodes(xKeyActual)) CATCH TRY THISFORM.tv.Nodes(xKeyPadre).ensurevisible() THISFORM.tv.Nodes(xKeyPadre).SELECTED = .T. THISFORM.tv.Nodes(xKeyPadre).Expanded = .T. THISFORM.tv.NodeClick ( THISFORM.tv.Nodes(xKeyPadre)) CATCH THISFORM.tv.Nodes(1).Expanded = .T. THISFORM.tv.NodeClick ( THISFORM.tv.Nodes(1)) THISFORM.tv.Nodes(1).SELECTED = .T. ENDTRY ENDTRY ENDIF THISFORM.LOCKSCREEN =.F. thisform.tv.Enabled = .T. ENDPROC PROCEDURE propiedad_cargar LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg, xNueva, xHijos, xLimpiarHijos LOCAL xKey, xArbol, xRamaOri, xCod, oTVP, oEx xKey=oPro.Rama xArbol=oPro.Arbol xRamaOri=oPro.Rama_Ori xCod=THISFORM.ckCodigo.VALUE xEncabezado=THISFORM.encabezado_nombre(oPro) TRY oTVP=THISFORM.tv.Nodes.ITEM (xKey) CATCH ENDTRY *=sys_m("Pro:"+oPro.Nombre + " - "+ALLTRIM(STR(oPro.Codigo)), NOT ("896"$xKey OR "774"$xKey OR "774"$xRamaOri) ) DO CASE CASE typeo(oTVP) oTVP.TEXT=IIF(oPro.Accion=2,"(Quitado)","")+xEncabezado+oPro.Nombre oTVP.IMAGE=oPro.Tipo+1 oTVP.TAG=oPro IF xHijos THEN THISFORM.Hijos_Cargar(oPro, xLimpiarHijos) ENDIF CASE oPro.Accion = 2 *=sys_m("Quitado") TRY oTVP=THISFORM.tv.Nodes.ITEM (xRamaOri) CATCH ENDTRY IF typeo(oTVP) THEN oTVP.TEXT="(Quitado)"+oTVP.TEXT oTVP.IMAGE=1 oTVP.TAG=oPro oTVP.Expanded=.F. ELSE =mensaje("No encontrado "+xRamaOri) ENDIF OTHERWISE IF oPro.Codigo#0 THEN IF EMPTY(oPro.Arbol) THEN oTVP=THISFORM.tv.Nodes.ADD (, ,xKey, xEncabezado+oPro.Nombre,oPro.Tipo+1) ELSE TRY oTVP=THISFORM.tv.Nodes.ADD (xArbol, 4,xKey, xEncabezado+oPro.Nombre,oPro.Tipo+1) CATCH TO oEx =mensaje_suspendo(.T., "Error al cargar: "+xKey+CHR(13)+oEx.MESSAGE) ENDTRY ENDIF *oTVP.Expanded=.T. oTVP.TAG=oPro ELSE * =sys_m("carga") ENDIF THISFORM.Hijos_Cargar(oPro) ENDCASE IF xNueva THEN THISFORM.tv.Nodes(xArbol).ensurevisible() THISFORM.tv.Nodes(xArbol).SELECTED = .T. THISFORM.tv.Nodes(xArbol).Expanded = .T. THISFORM.tv.NodeClick ( THISFORM.tv.Nodes(xArbol)) ENDIF ENDPROC PROCEDURE hijos_cargar LPARAMETERS oPro as Propiedades of Sys_Propiedades.prg, xLimpiarHijos IF xLimpiarHijos THEN Thisform.Hijos_Limpiar(oPro) ENDIF FOR EACH oPro2 IN oPro.Hijos Thisform.Propiedad_Cargar (oPro2) NEXT ENDPROC PROCEDURE propiedad_seleccionada_assign LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg LOCAL xLSC THIS.propiedad_seleccionada = oPro THIS.cnPropiedad.propiedad = THIS.propiedad_seleccionada IF typeo(oPro ) THEN IF oPro.Hijos_cargar THEN *=sys_m("Seleccionada") THISFORM.propiedad_cargar(oPro,,.t.) ENDIF THIS.lbramanombres.CAPTION = THIS.propiedad_seleccionada.nombre *=sys_m("Codins_Vacio",not EMPTY(THIS.propiedad_seleccionada.cod_ins)) THISFORM.btPoner.ENABLED = (THIS.propiedad_seleccionada.AccION = 2) THISFORM.BtQuitar.ENABLED = (THIS.propiedad_seleccionada.AccION # 2) THISFORM.btBorrar.ENABLED = (THIS.propiedad_seleccionada.Padre = THIS.Propiedades.codigo) ELSE THIS.lbramanombres.CAPTION = "" ENDIF IF THISFORM.ckver.VALUE THEN xLSC=THISFORM.LOCKSCREEN THISFORM.LOCKSCREEN = .T. THISFORM.ocontenedor.propiedad = THIS.propiedad_seleccionada THISFORM.LOCKSCREEN = xLSC THISFORM.ocontenedor.redimensionar_internos() ENDIF ENDPROC PROCEDURE propiedad_access *To do: Modify this routine for the Access method RETURN THIS.propiedad ENDPROC PROCEDURE propiedad_assign LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg *To do: Modify this routine for the Assign method THIS.propiedad = oPro IF typeo(This.Propiedad) THEN This.Tabla=This.Propiedad.Tabla This.Bul=This.Propiedad.Bul This.Atr=This.Propiedad.Atr ENDIF ENDPROC PROCEDURE propiedades_access *To do: Modify this routine for the Access method RETURN THIS.propiedades ENDPROC PROCEDURE propiedades_assign LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg *To do: Modify this routine for the Assign method THIS.propiedades = oPro IF Typeo(This.propiedades) THEN This.Tabla=This.propiedades.Tabla This.Bul=This.propiedades.Bul This.Atr=This.propiedades.Atr ENDIF ENDPROC PROCEDURE encabezado_nombre LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg RETURN IIF(oPro.hijos_EXISTEN and not oPro.Hijos_Leidos," + ","") + IIF(THISFORM.ckCodigo.VALUE,ALLTRIM(STR(oPro.Codigo))+"-","")+IIF(THISFORM.ckCodigo.VALUE,"("+ALLTRIM(STR(oPro.Orden))+")","") ENDPROC PROCEDURE hijos_limpiar LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg TRY oTVP=THISFORM.tv.Nodes.ITEM (xKey) CATCH ENDTRY IF NOT typeo(oTVP) THEN RETURN .F. ENDIF =sys_m("limpiar") RETURN ENDPROC PROCEDURE Resize thisform.ocontenedor.Left = thisform.Width - thisform.ocontenedor.Width -5 ENDPROC PROCEDURE Init LPARAMETERS oPropiedades, xCod_Ins, xGrupo DODEFAULT() thisform.Grupo= xGrupo thisform.cod_ins = xCod_Ins Thisform.propiedades = oPropiedades thisform.tv.ImageList = thisform.imTree Thisform.Propiedades_Cargar() ENDPROC PROCEDURE procesar_aceptar thisform.ocontenedor.dispose () ENDPROC PROCEDURE procesar_cancelar thisform.ocontenedor.dispose () ENDPROC M"44m%UWQ PROPIEDADESSys_Propiedades.prgQ PROPIEDADESSys_Propiedades.prgTT C C+ C UOPROPSYS_PROPIEDADESPRGOPROHTHISFORMTV SELECTEDITEMPARENTTAGPROPIEDAD_SELECCIONADABAJARRAMAHIJOS_RELEER_TODOSPROPIEDADES_CARGARWQ PROPIEDADESSys_Propiedades.prgQ PROPIEDADESSys_Propiedades.prgT CC+ CU OPROPSYS_PROPIEDADESPRGOPROHTHISFORMPROPIEDAD_SELECCIONADA REORDENARHIJOS_RELEER_TODOSPROPIEDADES_CARGARClick0 RightClick1q14q2= )4">%UWQ PROPIEDADESSys_Propiedades.prgQ PROPIEDADESSys_Propiedades.prgTT C C+ C UOPROPSYS_PROPIEDADESPRGOPROHTHISFORMTV SELECTEDITEMPARENTTAGPROPIEDAD_SELECCIONADASUBIRRAMAHIJOS_RELEER_TODOSPROPIEDADES_CARGARClick01s12)"|;%n}UT-UTHISFORM OCONTENEDOR PROPIEDADClick0115)"q\%zUCUTHISFORM OCONTENEDORREDIMENSIONAR_INTERNOSClick011?)"tt%+Ul%Ce-Q PROPIEDADESsys_propiedades.prgTCCaUTYPEOTHISFORMPROPIEDAD_SELECCIONADAOPROSYS_PROPIEDADESPRGCLONAR_CONHIJOSPROPIEDADES_CARGARClick01bAA2)tC"**% U5-Q PROPIEDADESsys_propiedades.prg T-3+sys_propiedades_administrar_seleccionar.scx%C-Q PROPIEDADESsys_propiedades.prgTC Ca U OTMPPROPIEDADOPROSYS_PROPIEDADESPRG'SYS_PROPIEDADES_ADMINISTRAR_SELECCIONARSCXTYPEOTHISFORMPROPIEDAD_SELECCIONADA HIJO_ESPEJARPROPIEDADES_CARGARClick01q1BA2)*6":%U,CCUTHISFORMPROPIEDAD_CARGARTHIS PROPIEDADPROPIEDAD_NUEVATVSETFOCUSpropiedad_guardada011z)"ħ%f{uU CUTHISFORMPROPIEDADES_CARGARClick011/):"!!% U-Q PROPIEDADESSys_Propiedades.prgT%5C(Este elemento ya fue quitado de la listaB-I%C3Est seguro de quitar los elementos seleccionados? CCa U OPROSYS_PROPIEDADESPRGTHISFORMPROPIEDAD_SELECCIONADAACCIONMENSAJE MENSAJE_SINOQUITARSEPROPIEDADES_CARGARClick01aQqAA1o)!"%U CaUTHISFORMPROPIEDAD_SELECCIONADAPONERSEPROPIEDADES_CARGARClick011n)"R%U<5T UOITTHISPARENTLV LISTITEMSCHECKEDClick01qAA2m)yPROCEDURE Click *=sys_m("poner") Thisform.Propiedad_seleccionada.Ponerse Thisform.Propiedades_Cargar(.t.) ENDPROC Formulario_acep_canc1checkboxFormulario_acep_canc1 commandbutton commandbutton container btInvertirTop = 9 Left = 760 Height = 17 Width = 102 AutoSize = .T. Alignment = 0 Caption = "Mostrar Cdigo" Value = .F. Name = "ckCodigo"  clases.vcxFormulario_acep_canc1 lbRamaNombresFormulario_acep_canc1btQuitar commandbuttonPROCEDURE propiedad_guardada thisform.propiedad_cargar(this.propiedad, this.propiedad_nueva ) =thisform.tv.SetFocus () ENDPROC :PROCEDURE Click thisform.propiedades_cargar () ENDPROC Formulario_acep_canc1propiedad_adminlabellbRamaFormulario_acep_canc1labellabelckCodigoTV commandbutton commandbuttonCommand4Formulario_acep_canc1oTop = 2 Left = 134 Height = 54 Width = 60 Picture = bmp\clonar.png Caption = "Clonar" Name = "Command4" PROCEDURE Click IF typeo(thisform.propiedad_seleccionada ) THEN LOCAL oPro AS Propiedades OF sys_propiedades.prg oPro=THISFORM.Propiedad_seleccionada.Clonar_ConHijos( ) THISFORM.Propiedades_cargar(.T.) ENDIF ENDPROC Formulario_acep_canc1Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 YCaption = "Label1" Height = 24 Left = 600 Top = 624 Width = 432 Name = "lbRamaOri" Formulario_acep_canc1 lbRamaOrilabelmpropiedades propiedad_seleccionada propiedad_drag propiedad cod_ins bul atr tabla propiedad_padre grupo *propiedades_cargar *propiedad_cargar *hijos_cargar *propiedad_mostrar *propiedad_seleccionada_assign *propiedad_access *propiedad_assign *propiedades_access *propiedades_assign *redimensionar *encabezado_nombre *hijos_limpiar  olecontrol olecontrolFormulario_acep_canc1vTop = 60 Left = 3 Height = 584 Width = 585 TabIndex = 10 Enabled = .T. ZOrderSet = 0 Anchor = 15 Name = "TV" PROCEDURE Refresh *** ActiveX Control Method *** ENDPROC PROCEDURE BeforeLabelEdit *** ActiveX Control Event *** LPARAMETERS CANCEL IF THISFORM.propiedad_seleccionada.Espejo THEN CANCEL=.T. ENDIF ENDPROC PROCEDURE AfterLabelEdit *** ActiveX Control Event *** LPARAMETERS cancel, newstring *=sys_m("After") thisform.propiedad_seleccionada.Nombre=NewString Thisform.Propiedad_seleccionada.Tabla_Guardar() ENDPROC PROCEDURE NodeClick *** ActiveX Control Event *** LPARAMETERS node Thisform.Propiedad_Seleccionada = Node.Tag thisform.lbRama.Caption = Thisform.Propiedad_Seleccionada.Rama thisform.lbRamaOri.Caption = Thisform.Propiedad_Seleccionada.Rama_Ori IF TYPE("node.parent.node.tag")="O" THEN thisform.propiedad_padre = node.parent.node.tag ELSE thisform.propiedad_padre = .f. ENDIF ENDPROC PROCEDURE KeyPress *** ActiveX Control Event *** LPARAMETERS nKeyCode, nShiftAltCtrl *=sys_m("KP") nShiftAltCtrl=2 DO CASE CASE nKeyCode=65 OR nKeyCode=97 thisform.btagregar.Click() ENDCASE ENDPROC PROCEDURE OLEStartDrag *** ActiveX Control Event *** LPARAMETERS data, allowedeffects Thisform.Propiedad_Drag = Thisform.propiedad_seleccionada ENDPROC PROCEDURE OLECompleteDrag *** ActiveX Control Event *** LPARAMETERS effect thisform.Propiedad_drag = .f. ENDPROC PROCEDURE OLEDragDrop *** ActiveX Control Event *** LPARAMETERS DATA, effect, BUTTON, SHIFT, x, Y LOCAL oSelItem, oProDrag AS Propiedades OF Sys_Propiedades.prg, oProDrop AS Propiedades OF Sys_Propiedades.prg *IF TYPEO(THISFORM.Propiedad_drag) ="O" THEN *=sys_m("DD") oProDrag=THISFORM.Propiedad_drag.TAG oSelItem=THIS.hitTest(x,Y) IF TYPEO(oSelItem) THEN oProDrop=oSelItem.TAG oProDrag.PADRE = oProDrop.Codigo oProDrag.Tabla_Grabar() ENDIF *ENDIF ENDPROC Top = 288 Left = 1156 Height = 36 Width = 36 Anchor = 8 Picture = bmp\desanclado.ico DownPicture = bmp\anclado.ico Alignment = 0 Caption = "" Value = .F. Style = 1 Name = "ckAnclado" Formulario_acep_canc1 commandbutton commandbuttoncheckbox commandbuttonpropiedades_container oContenedorbtPoneriAnchor = 8 Caption = "Label1" Height = 25 Left = 588 Top = 292 Width = 528 Name = "lbRamaNombres" checkboxcheckboxVCaption = "Label1" Height = 24 Left = 600 Top = 648 Width = 432 Name = "lbRama" PROCEDURE Click PRIVATE oTMPPropiedad AS Propiedades OF sys_propiedades.prg LOCAL oPro AS Propiedades OF sys_propiedades.prg oTMPPropiedad=.F. DO FORM sys_propiedades_administrar_seleccionar.scx *=sys_m("PR") IF typeo(oTMPPropiedad) THEN LOCAL oPro AS Propiedades OF sys_propiedades.prg oPro=THISFORM.Propiedad_seleccionada.Hijo_Espejar(oTMPPropiedad) THISFORM.Propiedades_cargar(.T.) ENDIF ENDPROC oTop = 2 Left = 194 Height = 54 Width = 60 Picture = bmp\undo.ico Caption = "Importar" Name = "Command3" Command3 commandbutton commandbutton.OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX ?Top = 648 Left = 0 Height = 49 Width = 49 Name = "imTree" Formulario_acep_canc1 olecontrol olecontrolimTreelabelTop = 327 Left = 588 Width = 604 Height = 21 BorderWidth = 1 Visible = .T. TabIndex = 3 BorderColor = 255,0,0 cont_hijos_crear = .F. cont_hijos_left_separacion = 0 cont_hijos_top_separacion = 0 contenedor_principal = .T. redimencionar_bloqueado = .T. Name = "oContenedor" Formulario_acep_canc1 cnPropiedad container clases.vcx ࡱ> Root EntryPVS@OleObjectDatajAccessObjSiteData&\ChangedProps!Aljj(6(!C4v<\<   !"#$%&'()*+,-./0Root EntrypSOleObjectDataeXAccessObjSiteData&\ChangedPropsW\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I ImageWidth I UseMaskColorLI ImageWidth I #$,j(6(!C4~ _ͫDA[tiltGIF89a w!,  ""))3366AA\\bbrrÿ  **1199BBIIPPYYąĘbbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~#$,j(6(!C4~' _ͫDA[ltGIF89a w!,  ""))3366AA\\bbrrÿ  **1199BBIIPPYYąĘ 1199JJRR\\ddiirrɎʒ!!((EEJJZZ||Յ֋Ԣվ ))BBJJSSvvxxތە۞ޣ߬##))11UUZZ㦦筭紴!!**44--2288??11jjHP9sΜAÇc!@ih9c"Ą "$H!XEǂ M pA#s^8P:xС >cCG~`4XԩӛPi)!Q? 80l*DC0PRQk 9Bb$&8P/R>A4Hpְ!rpŃtP $6izC uc _a\W @p yskArC ? 0!V gla %L~J`aTh6 !A0p`wubbQɐT t\ Db d$d -pTq_ &Q%Y$i xV(Q m4(&*P]sq)@P-)DQ>Z@ `E]%*AFh,da4;HQG iy B(F?76qA2`ށG! ?HQ]a wr @ʁ7{(DmEh#eX1*CFy!H5 u d<_{ ́C)=8,vPCg  D^[)U@!;DakP0#DCfSk|HV`CEdQup0% w A;lt  ( @   iicccccccccccccccccccccccccccqaa bbWehcececdcdcdcdcdcdcdcdcdcdcdcddffh`cfdfjhkjmknlnlnlnlnlnlnlnlnlnlnlnlnlnkmikfhcck^gcdikbdcdbebebebebebebebebebebebececdbdikfhcckdgNfhjlaeadeegikfhcekddZgigiddUbddegikfhbdlccYgigicc[bddegikfhbdlccYgigicc[_ghhK^^adeeghjfhcekccYgigicc[^^ceprcead]eggiegbf=ccYgigicc[^^adoqce`c^eggiegdh<ccYgigicc[bbeiJ^^ccfeghjfhbeiccYgigicc[ccfegikfh`ckcc[gigiddUccfegikfh`ckbfOfhjlcecefegikfhadjbkbeikbdbebdbebebebebebebebebebebebecebdikfhadjadjhjjmknlnlnlnlnlnlnlnlnlnlnlnlnlnkmikfhadjccVfgbdbebebebebebebebebebebebebedfehbdd^^iiYiYiYiYiYiYiYiYiYiYiYiYiiiTj ??lt  ( @ iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkk?(2kkk!!! iiiC,dOn4iii iiiˆvc-eee'''%%%%%%%%%%%%%%%777iii !!!kkkr\7kkk!!!"""jjjڪiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt ( @533<#842UD(Q+L2T7G+"W,,K5(R7)G84R;0e11HHrL UA+UU+I@7YE9fF$rT+eH8sM>eQ6ff3;;N5FF;\l3ffCCA]K@^QC@PYUUUaIBpODeRFvXGiVTpXTffLsbV]]uyZifffygdzslxftVdyR>Q)j4_ hn issc#z"{#y:NMSTfTsZ[hgdoasisgiryrdhccxgpkwxtuxG}FtVtdvv"ƌ-ր+В-օ6Ē3<_YooaڍBܒK׎QژTNߠ]\ԍlӔnÀЮnds{u-lEwu~#y' [ipMor8 *;MNmD` 1 +IsņΐҖɓњμع͠ңݽ鵃⻑ŪҤǹұ˭ҮĶٶόי˒ӘܦکƎȒĕљѝē̛ѫҦ֥̱׺hE1111111111ѿ111111111111111ѭ[1SJvv1\tyxx1Uc1t;>Booow1tqc>By1vcc>Bwv1yEa>>wwo1DEa>E1EEE>AZo*1ooE>\tG1^*I,1Aap>**21oae>I*1oBcET1^BEtO11^B_1/1t1娈K1SPS\܈111ڋ1W1111?ltJFIF``LEADTOOLS v20.0       }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzw!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz  ?/~&nLϑ27@8U,jrbrAKjݯ<n.'gvWyYo%zQ#'o3?JO>m~$9o c>?Ggsv[OGnG8> ~q<no&2UR]h+&:ȿGXVOY33-_jTQYT)E+h@jѧ FI]O+}-3[)nt獛 92y9+J(B X-v"jΦŽT$ܞHnYT.Q,2MƓM'{>gͰj\IM6uʵ] ?u/ y΍z¶{Hőjx$j)ץZRmԝ]:5]8F4Iɵ${8nы4UMޥodx݋0Tzx` %LCY^ tVOWqJklU: _4i7֋p˧.Dn0:ƣqqcaJ#tqݥ(qz>}zx9խ9bWQ%e[fKkiRd,T';N:㡋*SR嚺RZ]v믅U䪩Μq想qz\tz C9515%E]K[i6)s)T'jňϵkC0x:j8w.gir)m+%}XUyTM7&ݵ;-㵍aBFP0^ۓwm* B (dlt  ( @ %%%1DDEfsssƟŒlllAAA_!!!*  ,,,\{{{###O=eee:;;%%%999111111;;;$$$>>>nnn.LLLzHHH''''''===<<<===999)))'''$$%OOO999eqqqkkkBBB555$$$%%%444<<<===222&&&$$$BBB111XXXbbbPPPTTS888 111:::;;;--- KKK<<;dddHIIl888TYYY WVKKJ666777888111RRUNN  ttt###: ݋$$$ 'e ???222222>>> y  %%% ttt%%%  S  999$$$(((555  I (((!!!TTTl aaa!!!)), C&&&333%%%>>>AAA(((555#####E,,+!!!{{{ IIIa$$&''&))))))$$$000tttxxx$$$%%%***)))(('%%'***122F NNN444!!!!!! }}}OOO ))))))  ooo,,,/// ((P///###>>>엗1___"""g KKKLLL bbb111+++󪪪8###LLLBBB555B}}}mmmjjjttt$$$!/AAA555  hhh___(((󬬬(((  Hm 888CCC @@@???~)DDD444 bbb###nnn#h""!!!!!!!!!""" ***rrrhhhSSSSTTTzzz)))##(&&K$$"%%%%%%%%%$$$"""\\\iii"""(((444 999:FFF$$$\\\wwwBBB**,**,))(******)))***'''hhh]]]ccc<<<%%% bbb~~~r(((999555444333333222333444555333BBB---&&& \\\Rhhh555CCC]]][[[DDD>>>BBB???ccc}}}aaaBBBBBB???HHHdddYYY===555 GGG;444EEEIIILLLPPPPPPRRRQQQqqqrrrRRRRRRQQQPPPLLLIIICCCIII---%xxxj,,,!!!UUU]]]___cccffffffiiiccceeefffccc___]]]SSS>>>[[[MqHHHUUUrrrsssuuuyyy{{{vvvvvvsssqqqNNN YYYiiiX^__Qᎎ%%%\\\~~~{{{VVVIII;rrr"vvv...(((BBBLLLLLL@@@%%%444ߏZZZ7澾kkkZZZZZZnnn,6^gggg[0??"S%U6/T-UOITTHISPARENTLV LISTITEMSCHECKEDClick01qA2`)j"QQ%Ua<%C&Est seguro de borrar esta propiedad?ZCCaU MENSAJE_SINOTHISFORMPROPIEDAD_SELECCIONADATABLA_ELIMINARPROPIEDADES_CARGARClick01A3)Q" %x U-Q PROPIEDADESsys_propiedades.prgTCT Nuevo item  TCaa C U OPROSYS_PROPIEDADESPRGTHISFORMPROPIEDAD_SELECCIONADA HIJO_OBTENERNOMBRE TABLA_CREAR TABLA_GUARDARPROPIEDADES_CARGAR CNPROPIEDAD SETEAR_NUEVOClick01A1?)"?%<?,UU.%' TaUCANCELTHISFORMPROPIEDAD_SELECCIONADAESPEJO1 TCUCANCEL NEWSTRINGTHISFORMPROPIEDAD_SELECCIONADANOMBRE TABLA_GUARDARTTT*%Cnode.parent.node.tagbOT   T -U NODETHISFORMPROPIEDAD_SELECCIONADATAGLBRAMACAPTIONRAMA LBRAMAORIRAMA_ORIPROPIEDAD_PADREPARENT^  TH)W Aa WCUNKEYCODE NSHIFTALTCTRLTHISFORM BTAGREGARCLICK! TUDATAALLOWEDEFFECTSTHISFORMPROPIEDAD_DRAGPROPIEDAD_SELECCIONADAT-UEFFECTTHISFORMPROPIEDAD_DRAG[Q PROPIEDADESSys_Propiedades.prg Q PROPIEDADESSys_Propiedades.prgT TC%CT  T  CUDATAEFFECTBUTTONSHIFTXYOSELITEMOPRODRAGSYS_PROPIEDADESPRGOPRODROPTHISFORMPROPIEDAD_DRAGTAGTHISHITTESTTYPEOPADRECODIGO TABLA_GRABARRefresh0BeforeLabelEdit;AfterLabelEdit NodeClick(KeyPressP OLEStartDragOLECompleteDrag\ OLEDragDrop14rQA322r1A3B312r24A1B33Y :Y#3/$4"F9)|"cc%dJU %TT C  CC T aCC B A T &T T " T = T%C  %CTT  T- T-?TCT-Ta C %  CC T aCC   <CC T aT !aCC  T !aCC T aT-TaU" XACTUALIZARXNUEVO XKEYACTUALTHISFORMPROPIEDAD_SELECCIONADARAMA XKEYPADRETV SELECTEDITEMKEYTHISPROPIEDAD_CARGARNODES ENSUREVISIBLESELECTED NODECLICKPARENTTYPEO PROPIEDADESXCODIGOCODIGOXSEMILLASEMILLASYS_PROPIEDADESCOD_INSATRBULTABLAGRUPOENABLED LOCKSCREENCLEARCOUNTEXPANDED 9Q PROPIEDADESSys_Propiedades.prg   T T TT TC T C H C 9T C (Quitado)6T T %C d T C %C 7 T  (Quitado) T T T - `CNo encontrado   2%!i%C 1T C" U 6T C"( Q0CaError al cargar: C  $#T  sC%CC%T&aTaCC'U(OPROSYS_PROPIEDADESPRGXNUEVAXHIJOS XLIMPIARHIJOSXKEYXARBOLXRAMAORIXCODOTVPOEXRAMAARBOLRAMA_ORITHISFORMCKCODIGOVALUE XENCABEZADOENCABEZADO_NOMBRETVNODESITEMTYPEOTEXTACCIONNOMBREIMAGETIPOTAG HIJOS_CARGAREXPANDEDMENSAJECODIGOADDMENSAJE_SUSPENDOMESSAGE ENSUREVISIBLESELECTED NODECLICK1Q PROPIEDADESSys_Propiedades.prg%QCzCU OPROSYS_PROPIEDADESPRG XLIMPIARHIJOSTHISFORM HIJOS_LIMPIAROPRO2HIJOSPROPIEDAD_CARGAR-Q PROPIEDADESSys_Propiedades.prgTT%C% Ca T T T $T  -T % T T aT T C UOPROSYS_PROPIEDADESPRGXLSCTHISPROPIEDAD_SELECCIONADA CNPROPIEDAD PROPIEDADTYPEO HIJOS_CARGARTHISFORMPROPIEDAD_CARGAR LBRAMANOMBRESCAPTIONNOMBREBTPONERENABLEDACCIONBTQUITARBTBORRARPADRE PROPIEDADESCODIGOCKVERVALUE LOCKSCREEN OCONTENEDORREDIMENSIONAR_INTERNOS BUTHIS PROPIEDAD-Q PROPIEDADESSys_Propiedades.prgT%CTTTU OPROSYS_PROPIEDADESPRGTHIS PROPIEDADTYPEOTABLABULATR BUTHIS PROPIEDADES-Q PROPIEDADESSys_Propiedades.prgT%CTTTU OPROSYS_PROPIEDADESPRGTHIS PROPIEDADESTYPEOTABLABULATR-Q PROPIEDADESSys_Propiedades.prguBC  + 6CCCZ-6C(CC Z)6U OPROSYS_PROPIEDADESPRG HIJOS_EXISTEN HIJOS_LEIDOSTHISFORMCKCODIGOVALUECODIGOORDEN-Q PROPIEDADESSys_Propiedades.prg RTC \%C |B-Climpiar BU OPROSYS_PROPIEDADESPRGOTVPTHISFORMTVNODESITEMXKEYTYPEOSYS_M'$TUTHISFORM OCONTENEDORLEFTWIDTHn CTTTT C U OPROPIEDADESXCOD_INSXGRUPOTHISFORMGRUPOCOD_INS PROPIEDADESTV IMAGELISTIMTREEPROPIEDADES_CARGARCUTHISFORM OCONTENEDORDISPOSECUTHISFORM OCONTENEDORDISPOSEpropiedades_cargar0propiedad_cargarJ hijos_cargar propiedad_seleccionada_assign propiedad_accesspropiedad_assignpropiedades_accesspropiedades_assignencabezado_nombre hijos_limpiarResizeInitprocesar_aceptarprocesar_cancelar)1q2a1AaAAAb11AB1AAA21QAAqQAaAAAaBaAABAA4AAA3qaB!2AA1AQaA33aaaaA23aaaaA2Q2AQqAAA3A2a221; @r zd*u3 4T|)c0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6D20M1KZ71423266339/F] WINDOWS _6D20M1KZ81425833571 'WnF WINDOWS _6D20M1KZ914257688881cmh& WINDOWS _6D712EZOX1425768888CSO g WINDOWS _6E20O9BJO1425768888w.$A COMMENT RESERVED w VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1(Height = 648 Width = 530 DoCreate = .T. Caption = "Seleccionar propiedades" propiedades = .F. propiedad_seleccionada = .F. propiedad_drag = .F. propiedad = .F. Name = "Formulario_acep_canc1" Command1.Top = 590 Command1.Left = 175 Command1.Height = 54 Command1.Width = 80 Command1.Anchor = 260 Command1.Picture = bmp\ok.png Command1.Caption = "Seleccionar" Command1.Name = "Command1" Command2.Top = 590 Command2.Left = 259 Command2.Height = 54 Command2.Width = 80 Command2.Anchor = 260 Command2.Picture = bmp\borrar.gif Command2.Name = "Command2" AYUDA.Top = 1 AYUDA.Left = 507 AYUDA.Name = "AYUDA" Text1.Left = 490 Text1.Top = 1 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 468 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" 4PROCEDURE propiedades_cargar LPARAMETERS xActualizar IF NOT TYPEo(Thisform.propiedades) OR xActualizar THEN Thisform.propiedades = sys_propiedades(, , , , 1,,,.t.) ENDIF Thisform.LockScreen =.t. Thisform.TV.Nodes.Clear Thisform.Propiedad_Cargar (thisform.propiedades ) thisform.tv.NodeClick ( thisform.tv.Nodes(1)) Thisform.LockScreen =.F. ENDPROC PROCEDURE propiedad_cargar LPARAMETERS oPro AS Propiedades OF Sys_Propiedades.prg LOCAL xKey, xArbol, xRamaOri, xCod xKey=oPro.Rama xArbol=oPro.Arbol xRamaOri=oPro.Rama_Ori xCod=THISFORM.ckCodigo.VALUE DO CASE CASE oPro.AccION = 2 *=sys_m("Quitado") oTVP=THISFORM.tv.Nodes.ITEM (xRamaOri) oTVP.TEXT="(Quitado)"+oTVP.TEXT oTVP.Image=4 oTVP.TAG=oPro OTHERWISE IF oPro.Codigo#0 THEN IF EMPTY(oPro.Arbol) THEN oTVP=THISFORM.tv.Nodes.ADD (, ,xKey, IIF(xCod,ALLTRIM(STR(oPro.Codigo))+"-","")+oPro.Nombre,oPro.Tipo) ELSE TRY oTVP=THISFORM.tv.Nodes.ADD (xArbol, 4,xKey, IIF(xCod,ALLTRIM(STR(oPro.Codigo))+"-","")+oPro.Nombre,oPro.Tipo) CATCH =mensaje_suspendo(.T., "Error al cargar: "+xKey) ENDTRY ENDIF oTVP.Expanded=.T. oTVP.TAG=oPro ELSE * =sys_m("carga") ENDIF THISFORM.Hijos_Cargar(oPro) ENDCASE ENDPROC PROCEDURE hijos_cargar LPARAMETERS oPro as Propiedades of Sys_Propiedades.prg FOR EACH oPro2 IN oPro.Hijos Thisform.Propiedad_Cargar (oPro2) NEXT ENDPROC PROCEDURE propiedad_seleccionada_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.propiedad_seleccionada = m.vNewVal thisform.Refresh ENDPROC PROCEDURE propiedad_access *To do: Modify this routine for the Access method RETURN THIS.propiedad ENDPROC PROCEDURE propiedad_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.propiedad = m.vNewVal ENDPROC PROCEDURE Init LPARAMETERS xResultado DODEFAULT(xResultado) thisform.tv.ImageList = thisform.imTree Thisform.Propiedades_Cargar() ENDPROC PROCEDURE procesar_aceptar oTMPPropiedad = this.propiedad_seleccionada ENDPROC gTop = 24 Left = 3 Height = 561 Width = 525 TabIndex = 10 ZOrderSet = 0 Anchor = 15 Name = "TV" Formulario_acep_canc1 olecontrol olecontrolcheckboxcheckboxTV?PROCEDURE BeforeLabelEdit *** ActiveX Control Event *** LPARAMETERS CANCEL IF THISFORM.propiedad_seleccionada.Espejo THEN CANCEL=.T. ENDIF ENDPROC PROCEDURE AfterLabelEdit *** ActiveX Control Event *** LPARAMETERS cancel, newstring *=sys_m("After") thisform.propiedad_seleccionada.Nombre=NewString Thisform.Propiedad_seleccionada.Tabla_Guardar() ENDPROC PROCEDURE NodeClick *** ActiveX Control Event *** LPARAMETERS node Thisform.Propiedad_Seleccionada = Node.Tag IF thisform.propiedad_seleccionada.Espejo=.t. THEN * =Mensaje("Espejo") ENDIF ENDPROC PROCEDURE OLEStartDrag *** ActiveX Control Event *** LPARAMETERS data, allowedeffects Thisform.Propiedad_Drag = Thisform.propiedad_seleccionada ENDPROC PROCEDURE OLECompleteDrag *** ActiveX Control Event *** LPARAMETERS effect thisform.Propiedad_drag = .f. ENDPROC PROCEDURE OLEDragDrop *** ActiveX Control Event *** LPARAMETERS DATA, effect, BUTTON, SHIFT, x, Y LOCAL oSelItem, oProDrag AS Propiedades OF Sys_Propiedades.prg, oProDrop AS Propiedades OF Sys_Propiedades.prg *IF TYPEO(THISFORM.Propiedad_drag) ="O" THEN =sys_m("DD") oProDrag=THISFORM.Propiedad_drag.TAG oSelItem=THIS.hitTest(x,Y) IF TYPEO(oSelItem) THEN oProDrop=oSelItem.TAG oProDrag.PADRE = oProDrop.Codigo oProDrag.Tabla_Grabar() ENDIF *ENDIF ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 .OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX ?Top = 588 Left = 0 Height = 49 Width = 49 Name = "imTree" Formulario_acep_canc1imTree olecontrol olecontrol:PROCEDURE Click thisform.propiedades_cargar () ENDPROC Top = 590 Left = 424 Height = 17 Width = 102 AutoSize = .T. Alignment = 0 Caption = "Mostrar Cdigo" Value = .F. Name = "ckCodigo" Formulario_acep_canc1ckCodigo.OLEObject = C:\Windows\SysWow64\MSCOMCTL.OCX propiedades propiedad_seleccionada propiedad_drag propiedad *propiedades_cargar *propiedad_cargar *hijos_cargar *propiedad_mostrar *propiedad_seleccionada_assign *propiedad_access *propiedad_assign  ࡱ> Root Entry#O@OleObjectDatajAccessObjSiteData&\ChangedProps!Aljj(6(!C4C69   Root Entry JOOleObjectDataz9AccessObjSiteData&\ChangedPropsW\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I ImageWidth I UseMaskColorLI ImageWidth I #$,j(6(!C4~8 _ͫAEtiquetaMarcaOpcionesltolt#$,j(6(!C4~Z _ͫAEtiquetaMarcaOpcioneslt  ( @ 479qx{-@J-Xmxzqp>hpDpz=xw>~}H}|CvvMyhTw|dnz}v{|ȾȾlt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkkkkk!!! iiiiii iiieee'''%%%%%%%%%%%%%%%777iii !!!kkk////kkk!!!"""jjjiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiiii !!!kkkkkk!!!"""iiinmn"""//////000///111///***AAAiii""" iiiiii!!!!!!iii////iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaalt  ( @ bbb888999::::::EEEBBB999:::::::::::::::999>>>MMMFFF888:::999888bbbSSS@@@GGGFFFFFFHHHXXXLLLEEEFFFFFFFFFFFFFFFLLLcccWWWGGGFFFGGG@@@TTT!!!XXXXXX!!!!!!nnnmmm!!! kkk?(2kkk!!! iiiC,dOn4iii iiiˆvc-eee'''%%%%%%%%%%%%%%%777iii !!!kkkr\7kkk!!!"""jjjڪiii!!! iiiiii!!!!!!iii?(2iii!!!!!!iiiC,dOn4eeennnnnnnnnooonnnsssjjj~~~iii """jjjˆvc-GGGRRRRRRSSSRRRRRRSSSNNNcccjjj""" kkkr\7jjj!!! iiiڪiii iiiڨВiii !!!kkkݰ% ώkkk!!!"""iii4әђnmn"""//////000///111///***AAAiii""" iiiܰՖiii!!!!!!iiiا>#iii!!! iiiiii """jjjYR>>999999999999999999888>>>JJJ999999999777aaaltzJFIF``LEADTOOLS v20.0       }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzw!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz  ?\- fmf9ڈnv2IAsKc fW$%jxcSgv6v^כ,LI}QhE~R%*O}C\ԭuiq 3D'\a$eR8`yLƮ:/ysO.ZI.^ݏw O"pTniG"Jj#ԞѸH2]b~ଊOE'rܥMkU&1KOٿ89/oVCHR-ʬ20$D##9 ,dz?UӇ+TjaZm)^+]1tOiPV}Ves,T?r?t祆5}<x>GjF=#6~ݎxwv$g#QA!̾>Yb)9|_u9ދ_gZo츭[zO^g\K:>H#+eOMs\(;ʣܫgEKI~>ö${;WInYO(!',*iJ韝ЯS R5Iqz5iџ1_ )d~Q* **+Ȟ rVz?E57dTd^~Qῄ)~Aϗ8-ʨzWn'{Ԓh#ゥ.nd$[ͥ3]?NNa5B*¢vy~goF* F*lj՞"rZNSo-h"ħ%f{uU CUTHISFORMPROPIEDADES_CARGARClick011/)s"ZZ% U.%' TaUCANCELTHISFORMPROPIEDAD_SELECCIONADAESPEJO1 TCUCANCEL NEWSTRINGTHISFORMPROPIEDAD_SELECCIONADANOMBRE TABLA_GUARDAR8T%a1UNODETHISFORMPROPIEDAD_SELECCIONADATAGESPEJO! TUDATAALLOWEDEFFECTSTHISFORMPROPIEDAD_DRAGPROPIEDAD_SELECCIONADAT-UEFFECTTHISFORMPROPIEDAD_DRAG[Q PROPIEDADESSys_Propiedades.prg Q PROPIEDADESSys_Propiedades.prgCDD T TC%CT T  CUDATAEFFECTBUTTONSHIFTXYOSELITEMOPRODRAGSYS_PROPIEDADESPRGOPRODROPSYS_MTHISFORMPROPIEDAD_DRAGTAGTHISHITTESTTYPEOPADRECODIGO TABLA_GRABARBeforeLabelEdit0AfterLabelEdit NodeClick OLEStartDragOLECompleteDrag OLEDragDropE1rQA322r1qB212r21A1B3h 6YJl4")Z"% >U%C  @TCaTaC CC T-U XACTUALIZARTYPEOTHISFORM PROPIEDADESSYS_PROPIEDADES LOCKSCREENTVNODESCLEARPROPIEDAD_CARGAR NODECLICKY-Q PROPIEDADESSys_Propiedades.prgTTT T HR TC  T (Quitado)TT 2R%3%CGTCCCCZ-6   LTCCCCZ-6  #CaError al cargar: TaT =C UOPROSYS_PROPIEDADESPRGXKEYXARBOLXRAMAORIXCODRAMAARBOLRAMA_ORITHISFORMCKCODIGOVALUEACCIONOTVPTVNODESITEMTEXTIMAGETAGCODIGOADDNOMBRETIPOMENSAJE_SUSPENDOEXPANDED HIJOS_CARGARY-Q PROPIEDADESSys_Propiedades.prgRCUOPROSYS_PROPIEDADESPRGOPRO2HIJOSTHISFORMPROPIEDAD_CARGAR&T UVNEWVALTHISPROPIEDAD_SELECCIONADATHISFORMREFRESH BUTHIS PROPIEDADT UVNEWVALTHIS PROPIEDAD: CT CU XRESULTADOTHISFORMTV IMAGELISTIMTREEPROPIEDADES_CARGARTU OTMPPROPIEDADTHISPROPIEDAD_SELECCIONADApropiedades_cargar0propiedad_cargarR hijos_cargarpropiedad_seleccionada_assign<propiedad_accesspropiedad_assignInit procesar_aceptar1qA1231aaAq1AABA6AA3q"33q"3qa22`  )3.H:2oA4CF7^L<)R)PNG  IHDR szz pHYs+tIME84-IDATXoG?3v7& %H  s@BcKo-zj‘ GZ(":];׃ 2v!{};oF)?nP~rRqβAPJW]*)Zj‰b(]t48k1'?DV~rybT> R HN6ȃ۝[,{/Ͷĥx|}eqplk_89b=~櫬ʉ&. Pn<OP3J? #a/ mbhv4K"/9{9لjdӍO>\sѴV6݆K5$go{H[e\b`"ώ[E9}h;̑!0S?Kl?189}I fKH ;oKi+<$"Sv1Bb 28a#׸-#Į.ŏ}[, `=F*Op IENDB`  ( @   `qr퀀gh9!$33 9 #"&v9 %??A!$##+MQ"$$1JN !FL*% #-e5C;I3@%1 L$/\?NUeZkO_9G".-$\4ATeoyewIX,8R':GYjxlM]*5  $2?N]dvk~\n:G{CR" ó"-8FHWJY-7"0GV|P_& P%Y/!y,@Os]o)k"$x!%#&P#P(9Hk~l#/!)%&4Bbt})5$$$/=Zk)2'3 $޶*7AN\nJZ)5!ܱ%֤fyas6E(2ѵ\noM\$9G5B}о????  ( @   Ӄ ӂ+'ƫۄI* $%/$-6?rtstopLOS" (#""% Mƃ%ۣ.:6C8F5A1;.7"*#)Ǽ"%'' T"*6@NRcUfJY7D + !"&$$P(7DSck~sbtFU*6#"!&c$0ܓ:HYjti|JY-: !$..  77CߩN]fxj}\mCQ'4!""",$$%6FT{:HFUFU.9($$?$.})7fw@N)"Y+7cuHW+$8)6WhSb&(,!-VgXi&++N_Zk&".DTj}(3(ߪ@Oq-9 #ޜ=Kh{'3  )|2>m6A$$.b8D_p[lM$.ϫ "_**23?(L]6E!?3**???   ( @   {{zHHHKKKwKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK|KKKTPPP ;RRRLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLOOOKKK6teeeMMM???LLLJJJ+LLLMMM3LLLMMM3XϿLLLMMM3LLLKKK4LLLKKK4LLLJJJ5풸LLLJJJ5䜸LLLKKK6씸LLLKKK6LLLKKK6LLLLLL7LLLLLL7LLLJJJ8LLLJJJ8MMM$TTTLLLLLL9KKK@LLLLLLLLL9KKK@LLLLLLLLL-KKK@LLL̍KKK@LLLyKKK@LLL^^^LLLLLLOOOLLL(KKK@LLLOOOLLLLLL-KKK@LLLLLLMMMLLLIII2LLLLLLLLLKKKHHHNNNqqqLLLLLLMMMFFF KKKMMMMLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLDDD IIILLLfKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwKKKwLLLdOOO ??  ( @   fr{qr{pzrˈrqHHHSKDwTKCTKCTKCTKCTKCTKCTKCTKCTKCTKCTJC|UKBT\EE pʅrq;ZPJTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDWNHUKB6ptqrәle_UME???qqqTKDSMA+qqrߵTKDUKF3qqqqؤکtqqqqˇTKDUKF3qX֠٥qzuܮ͋qߴTKDUKF3{vܭqTKDSID4ߵrәzTKDSID4֟qTKDQLC5ܒqɂإTKDQLC5ʜqБӘTKDUKB6ٔq˅ףTKDUKB6{إqTKDUKB6ܮtףvTKDSJE7~ˆqTKDSJE7{{әqإTKDQHD8әqqtqq|TKDQHD8UMF$\TMߵTKDULC9SKC@TKDTKDULC9SKC@TKDTKDUID-SKC@TKDʍSKC@TKDySKC@TKDe]WTKDTKDWNGRLF(SKC@TKDWNGTKDUID-SKC@TKDTKDULEf33QLB2TKDTKDTKDSJDHHHVLFxqkTKDTKDUMEUU8 RLEMULETKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTKDTJDNN: RJAUKCfSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwSKDwTIDdWGG ??%PAqEXijU*TTUXVALUETHIS LOGISTIC_TLOGISTICA_TEXTO!%C C 4 BHI MLA1TC Meli_Enviosys_meli_objetos.prgTC 2T BUOENVIOTHISLOGISTICA_TEXTO LOGISTIC_T PLATAFORMALOGISTIC_TYPE_GESd TC TC %C] CUXREF_EXT XPLATAFORMATHISREF_EXT PLATAFORMABUSCAR_PLATAFORMAS LLENAR_DATOSTT0%Cplataformas_aux.Logistic_tbCiTTUTHIS PLATAFORMAPLATAFORMAS_AUXREF_EXT LOGISTIC_TNICKNAMETC TC !%0TCplataformas_auxREF_Full  Ta BUXREF_EXT XPLATAFORMAXOKTHISREF_EXT PLATAFORMAPLATAFORMAS_AUX#TC BUTHISREF_EXT_ORIGINALOBTENER_REF_EXT_ORIGINALyTC TC 2sys_plataformas_pedidos.prg BU XREF_EXT XPLATAFORMA XREF_EXT_ORIGTHISREF_EXT PLATAFORMAHUB_OBTENER_REF_EXT_ORIGINALSYS_PLATAFORMAS_PEDIDOSPRGLogistic_T_Assign0Logistica_Texto_AccessINIT Llenar_Datos|Buscar_plataformasIRef_ext_Original_AccessJObtener_ref_ext_original T T T T T T       UREF_EXTREF_EXT_ORIGINAL PLATAFORMANICKNAME LOGISTIC_TLOGISTICA_TEXTOPlataforma_HolderCUSTOMc8q2qA1A21A2111A22aaA2A3aa!38$ $ +/*Z:-?3*%7+"Yz'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] T varioss  3s "Varios NALT+V1 C sC  N0sC "Rendiciones de Gastos-sC "Precios de Remitosr1C YDO _6zi11kfag IN LOCFILE("2000\ES_MENU_MAX" ,"MPX;MPR|FXP;PRG" ,"WHERE is ES_MENU_MAX?")81C do max_importar_precios_remitost :% CsT  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAME _6ZI11KFAF; Ta T-"max_rendicionesU XRESULTADOXAUTOPROCESARMAX_RENDICIONES _6zi11kfag\qqc AA!AAA!AAA3#bAA1#1''0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0B40WRJPU 710692590/F] WINDOWS _0B40WRJPV1492803644 WINDOWS _6VT0MZN2V1486247280I^sV WINDOWS _6V018C00J1486247280  1 A P 8 WINDOWS _0B40WRJPU1486247280 l WINDOWS _0B40WRJPU1486247280 WINDOWS _0B40WRJPU1486247280[ WINDOWS _6QT0YPSQG1486247280" WINDOWS _6PU0OIOMT1486247280Uj WINDOWS _0B40WUM901486247280 WINDOWS _6QT0YPSQH1486247280   COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 12moduloges.vcxformModulo1Height = 95 Width = 807 ShowWindow = 2 DoCreate = .T. Caption = "Maximia" MDIForm = .T. Icon = bmp\herramientas.ico WindowType = 1 menu = es_menu_max Name = "Modulo1" PROCEDURE Init g_especial = g_especial + 1 =dodefault() wait clear ENDPROC PROCEDURE Load =DODEFAULT() =sets() wait window nowait 'Inicializando...' set proc to es_comienzo addi =abrir_tablas_fijas() if !locales.es_ini =mensaje("Mdulo no configurado !!!") wait clear return .f. endif =variables_publicas() do open_files in es_comienzo wait clear ENDPROC PROCEDURE Release g_especial = g_especial - 1 dodefault() ENDPROC "%U"T CR U G_ESPECIAL C CR,:Inicializando...G+( es_comienzo C% &CMdulo no configurado !!!R B- C es_comienzoR USETS ES_COMIENZOABRIR_TABLAS_FIJASLOCALESES_INIMENSAJEVARIABLES_PUBLICAS OPEN_FILEST CU G_ESPECIALInit0LoadfRelease1R5R2aQqAbR32Mh  ) commandbutton commandbuttonCommand8Modulo1Top = 3 Left = 604 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\excel.ico Caption = "Compras" TabIndex = 7 ToolTipText = "" ZOrderSet = 0 Name = "Command8" PROCEDURE Click xresultado=.t. xauto=.f. do procesar ; in max_rendiciones ; with xresultado, xauto, .t. ENDPROC  "%U? Ta T-&max_rendicionesaU XRESULTADOXAUTOPROCESARMAX_RENDICIONESClick01c2v) commandbutton commandbuttonCommand5Modulo1Top = 3 Left = 518 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\cubo.ico DisabledPicture = bmp\cubo_dis.ico Caption = "Cashflow" TabIndex = 6 ToolTipText = "" ZOrderSet = 0 Name = "Command5" xPROCEDURE Click xresultado=.t. xauto=.f. do procesar ; in max_cashflow ; with xresultado, xauto ENDPROC "S%U8 Ta T- max_cashflowU XRESULTADOXAUTOPROCESAR MAX_CASHFLOWClick012m) commandbutton commandbuttonCommand4Modulo1Top = 3 Left = 432 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\excel.ico Caption = "Importar OCs" TabIndex = 5 ToolTipText = "" ZOrderSet = 0 Name = "Command4" |PROCEDURE Click xresultado=.t. xauto=.f. do procesar ; in max_importar_ocs ; with xresultado, xauto ENDPROC ";%U< Ta T-#max_importar_ocsU XRESULTADOXAUTOPROCESARMAX_IMPORTAR_OCSClick0132q) commandbutton commandbuttonCommand2Modulo1Top = 3 Left = 88 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\excel.ico Caption = "Precios Remitos" TabIndex = 2 ToolTipText = "" ZOrderSet = 0 Name = "Command2" ;PROCEDURE Click do max_importar_precios_remitos ENDPROC "%`uoU UMAX_IMPORTAR_PRECIOS_REMITOSClick01q10) commandbutton commandbuttonCommand1Modulo1Top = 2 Left = 2 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\excel.ico Caption = "Rendiciones" TabIndex = 1 ToolTipText = "" ZOrderSet = 0 Name = "Command1" |PROCEDURE Click xresultado=.t. xauto=.f. do procesar ; in max_rendiciones ; with xresultado, xauto ENDPROC "R%U; Ta T-"max_rendicionesU XRESULTADOXAUTOPROCESARMAX_RENDICIONESClick01#2q) commandbutton commandbuttonCommand6Modulo1Top = 4 Left = 260 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\dash.ico Caption = "Exportar BI" TabIndex = 9 ToolTipText = "Pedido con Anlisis Automtico" ZOrderSet = 0 Name = "Command6" mPROCEDURE Init this.Enabled=(p_codemp=1) ENDPROC PROCEDURE Click do es_max_bi with .f.,.t.,.t. ENDPROC +"gh%UTUTHISENABLEDP_CODEMP-aaU ES_MAX_BIInit0Clicki1Q211)Eb) commandbutton commandbuttonCommand9Modulo1Top = 3 Left = 174 Height = 73 Width = 86 FontName = "Arial" FontSize = 8 WordWrap = .T. Picture = bmp\cubo.ico Caption = "Estado Resultados" TabIndex = 3 ToolTipText = "Factura" ZOrderSet = 3 Name = "Command9" EPROCEDURE Click DO FORM gs_rpt_estado_de_resultados ENDPROC "O%{U&#gs_rpt_estado_de_resultadosUGS_RPT_ESTADO_DE_RESULTADOSClick0114:) commandbutton commandbuttonCommand7Modulo1Top = 3 Left = 690 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\salir2.ico Caption = "Salir" TabIndex = 8 ZOrderSet = 5 Name = "Command7" ,PROCEDURE Click thisform.release ENDPROC "]^%XmgU UTHISFORMRELEASEClick011!) commandbutton commandbuttonCommand3Modulo1Top = 3 Left = 346 Height = 73 Width = 86 FontSize = 8 WordWrap = .T. Picture = bmp\cloud_sync_60.png Caption = "Sincronizar" TabIndex = 4 ToolTipText = "Pedido con Anlisis Automtico" ZOrderSet = 0 Name = "Command3" {PROCEDURE Click do sys_sincronizacion_Tablas ENDPROC PROCEDURE Init this.Enabled = p_sinc_sincronizar#0 ENDPROC 8"%U USYS_SINCRONIZACION_TABLASTUTHISENABLEDP_SINC_SINCRONIZARClick0Init]1r3A12Mp)BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 %I8OISY61TMAX$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T  Ta Ta"max_rendicionesU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMP XRESULTADOXAUTOPROCESARMAX_RENDICIONES  %G(9 /,sys_procesando Inicializandote_pago"%C ccpag.id_extbC,CFalta el campo ccpag.id_ext !!!B-@ atrcan.gesG+(te_pago%CoDeyFuncbO  a+ QIMPORTACIONES_XLS imp_exp.vcx/T CImportaciones_XLS Imp_EXP.VCX-C CLAVE UNICAidc(10) &CFechaFechaD 7COrigen del gastoOrigenC (40) ;CQuien aprueba el gastoQuienN(10) (CTIPOTIPOC(40) 9CCdigo Cuenta de Pagocta_pagoC(9) =CCdigo de Centro de CostosCentroC(10) 5CCentro de CostosdcentroC (40) <CSubcentro de Costos subcentroC(40) KC$Descripcin del gasto (CUENTA GASTO)dcuentaC(40) +CCdigocuentaC(9) KC#Causa del gasto (Falta merc, monto)causa_gsC(40) HC!Tipo de factura (Mdulo de carga)tipo_fcC(30) (CCUITCUITC(15) 2C Razn SocialnombreC(40) :CNombre de fantasafantasiaC(40) 4CFecha de facturafecha_fcd 4CNro de facturanum_fcC(30) HC!Total bruto (con IVA e impuestos)totaln(14,2) QC+Importe neto gravado (sin IVA ni impuestos)basen(14,2) (Civaivan(14,2) 1C % de IVA ivapern(14,2) 2C IVA Exentoexenton(14,2) :CImpuestos y tasasexento2n(14,2) <CPercepciones de IVAper_ivan(14,2) ACPercepcion de IIBB CABAper_caban(14,2) ECPercepcion de IIBB Pcia Bs Asper_ban(14,2) ECPercepcion de IIBB Santa Cruzper_scn(14,2) CCPercepcion de IIBB Crdobaper_cban(14,2) @CPercepcin IIBB San Luisper_sln(14,2) CCPercepcion de IIBB Neuqunper_nqnn(14,2) =CPercepcin IIBB Saltaper_san(14,2) 9CPercepcin IIBBper_iibbn(14,2) ;CPercepcion de IIBB Zper_zn(14,2) ,Cotrosotrosn(14,2) 5CEstado de pagoestadopC(30) /C Fecha de Pagofechapd *CID Pagoidpc(10) 1C Pagado conpag_conc(30) 8CFecha de exportacinfechaexpd ,CEstadoestexpc(30) 'T Replace valido with .t.T -T aT aT T T TMPSALIDA T% %%CC] = GUILLERMO # >T1d:\descargas\IVA COMPRAS Exportado al 1-8-23.xlsx:T-d:\descargas\ARCHIVOAPPDEGASTOS-06-12rv1.xlsx%C use in &xalias_salida G+(sys_log TaMsys_importar_base( %/TCloguear_imp_exp_rendiciones_maxN C Importando: %C tmpsalida  -(C - C b CAC*No se pudo copiar el archivo a la carpeta F %  ,CCC Z registros importados -CNo se han importado registros T-Q !sys_procesandoB JC:No se encontr el archivo de resultados de la importacin. T-!sys_procesandoB  T-!sys_procesandoBC%Cproaux Qproaux%Citmdescc 8Qitmdescc"T$%\tmp\CC]R%CtempcompF&Q%'FQtempcomp ($Q$& 1%CtempcompF& FQtempcomp ($Q$&F&& (C)Z*+G(( T,7-dey_funcprovinc/\%,cFT,C0Yoprovinc1Q23Q4mBQ5C3 11%\tmp\,>2c4SIRCREB>5& 44Q%C xPer_prov FQ%\tmp\,8F8G((prv_des#)>85F  FACTURA A :(96C Importando CC9Z comprobantes AC"CImportando facturas A;F ~ FACTURA A : T< T=%C<=>-C=Procesado con CP CC<Z%Cq Q?;o tmpsalidaAB FACTURA A : qCDC Importando CC Z comprobantes de gastos variosC ~ TCTD?B%C?ADE9CAsiento CCCZ de fecha CD*:CFF ~/T=CX ID Pago: CCFG  C=!sys_procesando CH<%C xper_provF8Q%\tmp\,.*BUI XRESULTADOXAUTO ACTIVEFORM DATASESSIONID SP_MENSAJESYS_PROCESANDO OPEN_FILESTE_PAGOMENSAJEATRCANGES DEY_FUNC2OIMPIMP_EXPVCXAGREGAR_COLUMNAVAL_FUNCVAL_USAR_CODALTVAL_NOUSAR_BULATR USAR_CELDAS LXLS_OFFSET VAL_COLUMN XALIAS_SALIDA XARCHIVO_XLSP_DEVSYS_LOGXRESSYS_IMPORTAR_BASEOLOGLOGCARPETA_CON_PATHARCHIVO_CON_PATH TMPSALIDASP_OCULTAR_DEFINITIVAMENTEPROAUXITMDESCC XTEMPCOMPP_LOCALTEMPCOMPP_TABLAS_FIJASREFREFITMREFCAUSA REFERENCIA XIB_PER_PROV CHECK_OPENEDDEY_FUNCP_SYSTEMNEWFILECODPRV_CODDESCRPRV_DESPRV_IBPROVINCALL XPER_PROVAAATIPO_FCSYS_MXOPAGOXHEADERREGISTRAR_COMPROBANTEQDISTINCTCTA_PAGOFECHAPXASIENTOXFECHAP PROCESAR_GS TMP_GASTOSID_EXTABRIR] 4T,TCX ID Pago: CC  T Ta T co_aut% ?C$Ejercicio inexistente para la fecha C* !!! >C$Ejercicio inexistente para la fecha C* %trsacconsproveedocom_operccprovchequescomprascccompccpagiva_comper_provret_provdretprovdiariogconcepto% + T=trsacmax_rendicionesCompra Contado% Ta C% T T T=trsacmax_rendicionesCompra ContadoT  @ T- T BUXOPAGOXHEADERXID_EXT TMPSALIDAIDPXFECHAFECHAP XRESULTADOAAASELECCIONAR_EJERCICIOCO_AUTMENSAJEOLOGLOGLOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANTTS_IDFG((id_ext E%C4 T-TFC Comprobante ya registrado en CP CC,B T %C T-TC BF #)T T %C   T-T;C!No se pudo obtener nmero de CP: C B%T   TT>  TT$%Ccuentasabrev  T-TNCNo se encuentra la cuenta C en el plan de cuentasBFe>  ! "#$%C@z 9999,999,999_&COA6' (C)f*C+, -./0122345C$6#789:N;< T=T>C%Cempresas xQ? \empresas%@ABCBempresascodigoFCSC TD-TECFG6+CNDE  TH-TICFG6#),%CC$ cuentasabrev  T-T`C$No se encuentra la cuenta de gastos CC$  en el plan de cuentasB/%CJ%@  T-TBCAlcuota de IVA inexistente: CCJ ZB %%>PQ >R>ST>UT>JJ TVW(L) Q%CWKCJC@X @X >V 6% `TKWCWKUJd C@X @X >V 6TKWCWKCRSYd Zd [d \d ]d ^d TJd C@X @X >V 6LTVVUJd C@X @X >V 6%FGH #FC>%%>PQ >R>SFG>UFG >JW(LD %CWK@ %TKWCWK%TKWCWKT_`L%CCa> CCa\- CCa \- TbCa  -%CCa> -Ca 4 CTbCCa=-CCa\-CCa \  T-ThCCuit CaB mal formateado, debe tener el formato xx-xxxxxxxx-x o xxxxxxxxxxxB%Cbcd B TeCbcf%e %Cempresas 6 QempresasCBempresascodigo%b@ao  T-TPCCuit Cb$ no vlido, no puede ser el cuit de C@ B > T-T-CCuit Cb no vlidoB  T-T"CCuit en blancoBTgC)f Th TiTjB Tk Tl Tm Tn To Tp Tq Tr Ts TtTuTFGTvT Tw TxTy# TzT{T T| T} T~ T T TTCONTADOTN TT`TST_` T$%CVN?2 T-TwCEl iva calculado de CCV Z, no coincide con el de la planilla de excel CCN ZB T TC%-TCCC-=g TCCC-[g  TTCgRC>Comprobante sin punto de venta definido. Toma por defecto PV=1BTAC00000CCZR-C00000000CCZRT+C+TC+$%Ccostoscodigo  T-T>C$No se encuentra el centro de costos CBT T T T T T T T T T T T T T T TTNTA T TTNTTFGTy# Tz T{ T`TCFACTURA:CDEBITOCCREDITO666dTCFACTURAC=CDEBITOd!CCREDITOcX666hTCFACTURAFC@CDEBITOND#CCREDITONCXX666$%Ccccompid2F T-~$&(%Cab$ Ta!% T-TCEl comprobante C  de Cg (Cb) ya est registrado con Cla OP CCZel CP CCZ6B T%C  T-TCEl tipo de comprobante CH es invlido. Solo se permiten FACTURA, NOTA DE CREDITO y NOTA DE DEBITOB%C xPer_prov FQ\tmp\F> T%{->T%->T% ->T%V->T%->T%->T%1->T2%    T-T>C*Campos sin definir: per_iibb, per_z, otrosB0TTFGN%yTzy%Cz$C redondeo CCz Z T-T6CRedondeo mayor a 2: CCz ZB TF(\tmp\oldte_pago T%C xper_prov)Q7 \tmp\old.dbf(\tmp\.dbf Q\tmp\%UCAComprobante no registrado porque el asiento generado no balancea. T-BUCCPAGID_EXTXID_EXT XRESULTADO TTS_ERROROLOGLOGXHEADERCOMPROBXMSGOCIERRESVALIDAR_COMPRA_CONTADOXFECHACONSNOPAGOOPAGO VLD_OPAGOP_TE_OERACION_VERSION XOPERACIONPAG_OPERSYS_OPERACION_FONDOSXOPAGOXABREV TMPSALIDACTA_PAGOCOM_OPERCOD_PRO P_PROVCONTORDENFEC_RECDES_VALCUENTASDESCR DIF_VALORCAJ_PROTOTALCUENTACOD_CUECAUSAFECHADES_PROVNOMBRECOD_CENCENTROEMISIONNUMEROAGENTECOMISION OPERACIONTIPOREFCAUSUBNUMHOYMONEXTMONPASECOEFICMONEDAPROPIOUSR PUB_INDEX XCOMENTARIO XLUGAR_IIBBP_SYSTEMEMPRESASCODIGOP_CODEMPTEMPCOMPMAX_PRODMAX_DESCEXENTOEXENTO2MAXYIMAXYNIVAPERARR_IVA MAXARR_IVAP_MAXIVAIVALISTADOSDESC_INSDCUENTA RECEPCIONCOS_LIFOBASETOT_COM XIVA_TEORICOZIVAIVACATDES_INSDESC2DESC3DESC4DESC5DESCXOXFECENTFECHA_FCCUITXCUIT OLOCALIZACIONCUIT_VACIO_PREGUNTARXRES CUIT_VALIDAR XOTRO_PRO XI_DIRECCION XI_CIUDAD XI_PROVINCIAXI_PAISXI_ZIPXI_PHONOXI_EMAILXCATIVAXTIPOIVA XANTICIPOXPLAZOXCUOTAXINT_FINXTOT_COMT_TOTIVAT_IVAINVT_INVT_FINAL T_REDONDEOT_IBT_DESC1T_DESC2XCOD_PROXORDENXPLANXFIJO XDESCPLANT_IVAT_IVA_NCXFECEMIXSUBDXNUMERORXFECDGIXFCNUM_FCXFC_PVXFC_NUMXNUMEROFXCENTROT_3337PER_IVAT_DESCOMT_IVA52 XCOMI_COM XCOMPRADORXMOTIVOXREFXCAUT_IMCOM1T_IMCOM2T_IMCOM3T_IMCOM4T_IMCOM5T_IIT_II2XMONEDAXCOFINXLETRAXUNXCAMBIOXDIVT_TOTAL XFCE_TIPO XTIPOCOMPRATIPO_FCXCAUSAXCAUSA2CCCOMP XENCONTREFAC_COM2OPPAGOXCOEFICP_LOCAL XIB_PER_PROV XPER_PROVPRV_IBALLPER_CABAPRV_CODPER_BAPER_SCPER_CBAPER_SLPER_SAPER_NQNPER_IIBBPER_ZOTROSXCONTROLSYS_MXOLD_XIB_PER_PROVWRITE_COMPRA_CONTADOTE_PAGO TC%C tmp_gastosBFQ%Cq1dFQ%Cq2FQ te_gastos_v2  te_gastos_v2Go tmpsalida    FACTURA A  q2 T T TRendicin de Gastos TTTCdX T TT T- T T T- T Taco_aut% i T-T!FC$,No se pudo abrir el ejercicio para la fecha C*"#BF ~-/T$CX ID Pago: CC%  $%Cdiariog.id_extbCW'%C%diariogid_extS T-T!>C$Gasto ya registrado en asiento CC&'Z"#.,%CC( cuentasabrev  T-T!`C$$No se encuentra la cuenta de gastos CC(  en el plan de cuentas"#B,%CC)costoscodigo  T-T!AC$$No se encuentra el centro de costos C)"#Br tmp_gastos*+,)-./01[C%] C2(3,)4%% T T56 te_gastos_v2a5%C5  T-T!C$5"#B Ta BU7 XCTA_PAGOXFECHA_ASIENTOXTMPODEYFUNCNEWFILE_LOCAL_TMP TMP_GASTOSQ1Q2 OPEN_FILES TE_GASTOS_V2CREAR_TABLA_GASTOS TMPSALIDACTA_PAGOFECHAPTIPO_FCXFECHAXABREV XCOMENTARIOXASIENTO XFECHA_MOD XCHEQUE_TXTXCHP_NUMERO_OLD XCHP_NUMERO XCHP_VENC XCHP_ECHEQ XCHP_IMPORTEXCAMBIO XMODIFICACIONXTE_VARIOS_DETP_TE_VARIOS_DET XRESULTADOSELECCIONAR_EJERCICIOCO_AUT TTS_ERROROLOGLOGXHEADERIDPDIARIOGASIENTOCUENTACENTRODESCRABREVCOD_CUELINEAGRUPO SUBCENTROIMPORTEID_EXTDCUENTACUENTASTOTALXMSG REGISTRARprocesarregistrar_comprobante/ transaccionJ procesar_gstABQB2Ar#3A""qA2AaqQ!AA!QQ11QsaQAAAAr"BABABA!AAA%qAAqAAqar2RBBArQ"rc#sBB'AArABArqAAC3A A2AAA2xbABBAAuQBB2BBAAB}QQAaAsqQARAB!AAq1sq BAqqqQQAAA"2AAARAAbAAAA!AA#ABqAA#A!A"RQBABBBqAAAA AAAAAAr!bBbAbAbAbAbAbA#AArRAbAABrrqeAr2QAB2qAA2qAA2qAArrr11aAArDqAAAABABq B"BAAA17w#&# )b$)_ZUwZd%lLKW^U:%Ccons &Qcons #)BUCONSa  C%8 T VTBUXFECHAXFECDGIABRIR_TABLA_CONSCONSCOMCIEabrir_tabla_cons0compras_fecha_contablex1aAA2bAAA3b%AW|%F/C"No debe haber mdulos abiertos !!!B dG(9 nG~(clasesG+(listados C TTCC]RT CC]R5 +T CSecuritysys_security.prg T +a T HJ p T T sys_permisos_permiso(Hl ! % T   5% 1T   L! l T  2%C\tmp\.dbf0 C T!sys_permisos_usuarios(H ! X% TT   % T   !  T % C%CborrarFQ \tmp\.dbf \tmp\.cdx%Cborrar1FQ  \tmp\ .dbf \tmp\ .cdxBU G_MODULOSMENSAJE ACTIVEFORM DATASESSIONIDCLASESLISTADOS OPEN_FILESXCODXBORRARXBORRAR1OSEC SEC_TABLE_GETXFORMXMAXFORMOLDCODXRESSYS_PERMISOS_PERMISOP_LOCALCARGAR_USUARIOSSYS_PERMISOS_USUARIOS REGISTRARBORRARBORRAR1SEC_TABLE_CLEAR%C q_usuarios#QAh1 q_usuariosNCC&  T%m T Ta%TC% T T T T%i*CSe han asignado los usuarios. w%C q_usuariosQBU Q_USUARIOSIDOLDNEWAAA XRESULTADO TRANSACCIONTTS_IDMENSAJE TaG+(sys_logFG((codigo E'TCloguear_cambio_permisosN"CCambio de permisosC2C Usuario: CZ - CCF ~F - %C4%C \SVCC Z -   C \ --> S Cd> C S[ 6C)No se encontr el usuario a habilitar !!! TF ~F - %C4%C \NVCC Z -   C \ --> N Cd> C N[ 9C,No se encontr el usuario a deshabilitar !!! T CiLog: sys_permisos_por_permiso.prg<  T-BaUTRSACSYS_LOGUSUARIOSCODIGO PUB_INDEXOLOGLOGDESCRBORRARA010592A4A2XCODA3PERMISOSMENSAJE TTS_ERRORBORRAR1USER_LOG ARCHIVO_LOGOSEC SEC_TABLE_PUT+TCSecuritysys_security.prg %CUSUARIOS rQ \usuarios%CPERMISOS Q \permisosBUOSEC SEC_TABLE_GETP_SYSTEM %Cborrar)FQ8h1\tmp\N CPQ\tmp\F& & %Cborrar1FQ8h1\tmp\N CPQ\tmp\F& & F ~F - %C \S+rborrar   ,rborrar1  FG((descrFG((descrU XCODBORRARP_LOCALXBORRARCODIGODESCRBORRAR1XBORRAR1CODUSUARIOSA010592A4A2 registrar transaccion  open_files cargar_usuariosb 3AAA!RRr11B12A12A1B1A2"B1B12A12A1B1ABB2BrqAAqAAC3A42AABBAC3rr"!uqaAaAAsqaAAArr3rAAB2qqqAAtqAAsrqAArr2Sd q&  %67\<&8YVX%TSOL%SOLg"Tc:\sistema\system_sol $Td:\sistema\systems\a CT\data\1 TTCSQT BORRAR1 T a T a\ges.dbc T  T  T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN"TC SOL6 G(9T9 T9%Ccliotros =Qcliotros&%Ccliotros.no_reclbC/C"El sistema no est actualizado !!!B-<7 TTCTCTC,sys_procesando Inicializando C C C!T"C$T#C]%C detalle_deudaQ$2%ve_sql_facturas_a_cobrar#"C'FQ(\tmp\#$%i1 detalle_deuda)C>)C* +T-C]o detalle_deudaX ereclamos $.9BXcliotros $.B$.$/CQ0C$1Q2C$3C$456Q6C$3C$4 6Q7C$3C$46Q8C$3Q3CC9:CXQ:C9;Q<C9=Q>C XQ?CC@CXQ@CAN QAC9CNN/1(\tmp\-FD(\tmp\->>2C2C3 $ 26?C>E TF TGTHSaldo 1TISaldo 2TJSaldo 3/Kve_control_de_deudasGHIJFD#)Msys_procesandove_control_de_deudas#%Cpedidos_pendientes.FDQ'%Cpedidos_pendientes_tmpdFNQ.C/N #%Cpedidos_pendientesQ%C &%Ccliotroscod_cli >BU0XEMPRESAXCOD_CLIXEDITARSYS_MXTIPO_CONSOLIDADO XEMPRESA1 XEMPRESA2 XEMPRESA3INICIALIZACIONESVE_CONTROL_DE_DEUDAS ERECLAMOSXCONTROL_DEUDAS XBLOQUEAR XFEC_CPBT XPEND_COMPXMONEDAORECLAMOPEDIDOS_PENDIENTESTIPOETIPORECVENCVENCRECTEXTONOTA_GESCLIOTROSCCOD_CLIOLD XRESULTADORECLAMO_GENERAR XOLDSESIONXSESION_ALTERNATIVA DATASESSIONID OLP_P_CODEMPP_CODEMPP_SERVERP_SYSTEMSETSCLIENTESNOMCLICCCLIEID XID_RECLAMOFECHAIDUDTIPOREC FN_TIPOREC'4T CC]R*h1 \tmp\  M MQ \tmp\   C >  %> TT  TT ,T9- 6 ve_reclamo( rT9a |%TTT T  F Q \tmp\ BUXCOD_CLI XFEC_CPBT XPEND_COMPXMONEDAXEMPRESAORECLAMO XRESULTADOXEDITAR XBLOQUEARXNOTAP_LOCALNOTANOTA_GES MENSAJE_CLEARTEXTOXTIPOTIPOXVENCVENC ACTIVEFORMENABLED VE_RECLAMOBCuC Email^C TelefnicoBCWhatsapp(C OtroDecisin propia66666UXTIPOZ TCgestionNTTCN T- T%%C ereclamos Q ereclamosCclientescodcli  T C datasessionvT CsessionNG( T  T T\data\CC Z C%CCLIENTES Qclientesnomcli%CCCCLIE Qccclie%C ereclamos Q ereclamosCclientescodcli T  G( T\data\CC Z G(%O%C &%Ccliotroscod_cli>&%Ccliotroscod_cli*>!>BUXEMPRESAXCOD_CLIOGESTIONNOTA_GESPEDIDOS_PENDIENTESNO_RECL XRESULTADO ERECLAMOSNOTA_GESTION_GENERAR XOLDSESIONXSESION_ALTERNATIVA DATASESSIONID OLP_P_CODEMPP_CODEMPP_SERVERP_SYSTEMSETSCLIENTESNOMCLICCCLIECLIOTROS`4TCC]R"h1\tmp\MQ\tmp\ C>T T9 - ve_nota_gestion( T9 a %2TT FQ\tmp\BU XCOD_CLIOGESTION XRESULTADOXNOTAP_LOCALNOTA_GESNOTA MENSAJE_CLEARXNO_RECLNO_RECL ACTIVEFORMENABLEDVE_NOTA_GESTION>;BCSOL C 66UP_EMPP_DOSP_UNOF%Cempresas IQ \empresasF?TCSOL C 66TSaldo 1TSaldo 2TSaldo 3H? $C empresascodigoTC  CempresascodigoTC CempresascodigoTC CempresascodigoTC  ?CempresascodigoTC CempresascodigoTC U XTIPO_CONSOLIDADO XEMPRESA1 XEMPRESA2 XEMPRESA3P_SYSTEMEMPRESASP_EMPP_DOSP_UNOP_CODEMPABREVn*Cno_reclamar_hasta_proximo_xxx'%Cxtipo_consolidadobN TTSaldo 1TSaldo 2TSaldo 3/ve_control_de_deudas%C ereclamos Q ereclamos!T Cpedidos_pendientes T -HM m T % T a %  T a T  T TTCreclamoN%p ereclamosSF G((id#6T TC$H :TCC)C) C)6 TCST(Pospuesto sin reclamar hasta el prximo C Lunesmes6gr ereclamosC$C]N% *H> !C"N# c#%Cpedidos_pendientes_QBU$XEMPRESAXCOD_CLIXXXXSYS_MXTIPO_CONSOLIDADO XEMPRESA1 XEMPRESA2 XEMPRESA3INICIALIZACIONESVE_CONTROL_DE_DEUDAS ERECLAMOSXCONTROL_DEUDAS XBLOQUEAR XFEC_CPBT XPEND_COMPXMONEDAORECLAMOOLDCOD_CLIID XID_RECLAMO XFECHARECODEYFUNCDT_MES_SIGUIENTE_PRIMER_DIAXTEXTOTIPOFECHAVENCTEXTOIDUPEDIDOS_PENDIENTESVENCRECTIPORECDTIPOREC FN_TIPORECNOTA_GES open_files open_files_system ver_cpbt crear_tablayver_cc ver_pdf_deudarreclamar reclamo_generar1# fn_tiporec & nota_gestion&nota_gestion_generar +fn_consolidado,inicializacionesV-no_reclamar_hasta_proximo_xxx0= TT T TUTIPOVENCTEXTONOTA_GES TTNUNOTA_GESNO_RECLreclamocustom]7gestioncustom7qBQb!AA2ArrA$!ArAAbqArqA%R`!rAAArQ3qAArqAAs2121B3%qAAqA!AAAAA!A1A!AB2Ar!B4"B3q2qAA@B12111AA1qAAA4rrBB42111AA1qAAA2srrA!AtBB2BrAAAAQA111A1AAr3A B2111BrrA!AQABRrQx1AARaAAABB2qRQB1AAA11BrAB:q2r22QA3rrA!AQA3BRaAAAbAABB2R!QBAA2BrAB835AqBAA1!2!!!2!!B2rAAAAQA111A1AArRrQr11Ar1u1AAB1111\y}D\(,(,-34BZMBrF pF~GHsGNL3NP7QyQQ.UYU ]FF@P Q%.ٜ1WhG_ G~(clases<7TCabm_cfg_ventasNTCY- BUCLASESPOABMCFG_VENTAS SOLO_LECTURAACCESOSHOWVG+(dey_func gesC cfg_ventasCcuentasFBUDEY_FUNCGES CHECK_OPENED CFG_VENTASe4%C W0C#Debe estar en el rango 1 - 999 !!!B-BaUXCODIGOMENSAJEabm_cfg_ventasUABM_CFG_VENTAS openfilesusr_vld_codigoQdummyZT cfg_ventasT TTLneasT cfg_ventasT DescripcinT descrT descrT codigoT codigoT hlpTabm_cfg_ventas T- TP TTcodigoTcodigoTCdigo U DOS_TABLA DOS_COPIARP_ESPEJA_CFG_VENTASP_ESPEJA_HABILITARDOS_ESPEJAR_MULTIPLEP_ESPEJA_MULTIPLETITULOTABLATITULO_BUSQUEDACLAVE_BUSQUEDAORDENCLAVEIDXCLAVEID FORMULARIO CLAVE_UNICAANCHOANCHO1CLAVE_BUSQUEDA1ORDEN1TITULO_COLUMNA1abm_cfg_ventashlpabm2;brqaB2!rArA1qqAr6a1sA3q!!11111: g6"9C%Z "Y '     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T    .%Cm.lUniquePopupsbL  y (C uT C] @T tablasT  articulosT  importacioT preciosT clientesT variosT  mantenimies  Ts "\sC "Copiar lista de preciosCU-7sC "Listado de Listas de Precios'1C do abm_lis_pre-1C do form abm_lis_cop51C do form rpt_listas_de_preciosC  N*sC "ABM de Clientes(1C do clientes.prgsC  N6sC "Reimpresin de ComprobantescsC "Anulacin de RemitosC.- C- Cs- C~- @sC "Remitos Emitidosbmp\reporte.ico<1C #do ve_reimprimir_comprobante with 111C do ve_anular_comprobante81C do form ve_rpt_remitos_emitidossC  N1sC "Mantenimiento de Stock(sC "Debug ,1C do in_mantenimiento?1C &do sys_mostrar_screen with .f.,.t.,.t.t :% C T  T  UOFORMREF GETMENUNAME LUNIQUEPOPUPSPARM4PARM5PARM6PARM7PARM8PARM9 CMENUNAMENTOTPOPS A_MENUPOPS CTYPEPARM2 CSAVEFORMNAME BASECLASS SHOWWINDOWNAMETABLASACCESO _6ZI11KFDQ _6ZI11KFDRP_DEVqqc AA!AAA!AAAD2!1!q1aRqqQa2bAA1GIF89a w!, H(\Ȱ!C#JT Сņ3R Ǐ?F@hI* B/9zd˕8oV(arf d f(c0CH Zwtd Qus\3Dw m_À'pEi7e^M(aa]hajHc%b;%;Y?%CoDeyFuncbOsBad:\sistema\systems\maxc:\sistema\2000TC +QIMPORTACIONES_XLS imp_exp.vcx/TCImportaciones_XLS Imp_EXP.VCX&CFechafechaD5CCdigo Clientecod_cliC (6)7CCdigo Artculocod_insC (15)/CPrecioPrecioN (20,2)'T Replace valido with .t.T -T aT aT TTC TMPSALIDA %%%CC] = GUILLERMO #7T*d:\descargas\MAX - Precios de Remitos.xlsx HT;d:\Users\diego\Desktop\GES\Importaciones\Impaco\cheques.xls%C!use in &xalias_salida  T-ATC#loguear_imp_exp_max_precios_remitos sys_log.prg C Importando: Isys_importar_base%C tmpsalidaF% 9,CCC Z registros importados -CNo se han importado registros T-Qsys_procesandoB -CNo se han importado registros T-sys_procesandoBC Ta% TEtrsaclisprecventasccventccclie% T_trsacmax_importar_precios_remitos#Importacin de precios para remitos%bTC%F T ^T zT_trsacmax_importar_precios_remitos#Importacin de precios para remitosT    T-%gC5C%La importacin finaliz correctamente C2C"No se pudo realizar la importacinsys_procesando C<BUXRESXAUTO XARCHIVO_XLS XALIAS_SALIDA DEY_FUNC2OIMPIMP_EXPVCXAGREGAR_COLUMNAVAL_FUNCVAL_USAR_CODALTVAL_NOUSAR_BULATR USAR_CELDAS LXLS_OFFSET VAL_COLUMNP_DEVOLOGLOGSYS_IMPORTAR_BASE TMPSALIDA XRESULTADOSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO OPEN_FILESAAALOCK_GTRSACBEG_TRAN TRANSACCIONEND_TRANABRIR#%Cclientes .Qclientes%Cbienes ^Qclientes%Clisprec Qlisprec%Cventas Qventas%Cccvent Qccvent%Cccclie QccclieBUCLIENTESLISPRECVENTASCCVENTCCCLIEATC#loguear_imp_exp_max_precios_remitos sys_log.prg>C.Iniciando importacion de precios desde remitos TaFCC Importando%G+( ve_pedidoC registrarC ~vTC XFila: CCO Z Cliente:  Artculo:   Precio: C  Z - (%CclientescodcliQ&%C bienescodins % F G((lisxcli(E CXCXCZ%C4 AE>    &CPrecio actualizado TX abm_lis_pre CXCXFecha: C*T TTAoventasr    q%CN6CCC>XNo hay remitos para actualizar ~FG((cpbtitmErCZ%C4W> ,>C!"#$ l T-<%,oventasaC%"T'C  C%6F(G((ccvfacEr %av T* T+ T, T- T. T/ T0 T1 T2T3T4r T5 T6 T7a'8234567F(G((ccvfacEr9>(*90:1;,<+)%Crcccliecpbtr>=>+ %T?' 1>(?99?::?>(<9:; }B>('9'@d @d @d ">(:9zG?>(<9:;'CCC>XRemito: G(G  8C$ Precio invlido, debe ser mayor a 0 T- M+C Artculo no encontrado T- *C Cliente no encontrado T-[ TA- BUB OLOGPRECIOSLOG XRESULTADO TMPSALIDAOLOG VE_PEDIDOSYS_MXHEADERCOD_CLICOD_INSPRECIOLISPRECLISXCLICODIGOLISTAFECHAXUSUARIO_ACTUAL PUB_INDEX LOG_PRECIOS ABM_LIS_PREXCOD_INSXCOD_CLIXFECHAVENTASCAUSAFEC_VENQCPBTITMREM_VENITMCOS_LIFOTOT_VENCALCULO_TOTAL_PS RECEPCIONMONEDACOEFICDES_INSARRSUMXTOT_VENCCVENTCCVFACT_TOTALT_FINALT_DTO672 T_REDONDEO T_REDO_ME T_IVA_RG5329T_DESCOMT_IVA XTIPOCPBTXCOMPROB XCAUSALETXDESTINO_FORZADO XSOLOSALDOXNOIMPRIMIR_NADAVE_REIMPRIMIR_COMPROBANTEDES_COMIVA_VENDTO672DEUDACCCLIEIMPORTE XPROPORCIONDESC1TRSAC open_filesv transaccion 4!A2aQqrQqAAAr"BABArU32AAABQ!ArL4AAAA1A!A!A!AB2qr2bbaarQAXb#aAqAt"tqrA2&$AAsAbaAAABBB3W@k%0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _S1517SI7Y 631087930/F] WINDOWS _S1517SI811492158862M WINDOWS _6P611H0OD1492158862+ D V g COMMENT RESERVED  CVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxformForm17DataSession = 1 BorderStyle = 2 Height = 118 Width = 673 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Usuario" Closable = .F. Enabled = .T. WindowType = 1 WindowState = 0 Name = "Form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.inicio.Name = "inicio" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Top = 84 wizard_buttons1.Left = 155 wizard_buttons1.TabIndex = 2 wizard_buttons1.enable_anterior = .F. wizard_buttons1.enable_finalizar = .F. wizard_buttons1.enable_inicio = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Left = 384 Text1.TabIndex = 3 Text1.Top = 0 Text1.Name = "Text1" Command8.TabIndex = 5 Command8.Name = "Command8" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Name = "Timer1" contador.TabIndex = 4 contador.Name = "contador" advertencia.TabIndex = 6 advertencia.Name = "advertencia" PROCEDURE wizard_buttons1.click_siguiente if xcod#0 return .t. else =mensaje("No puede ser 0 !!!") return .f. endif ENDPROC 3"%UQ%Ba JCNo puede ser 0 !!!B-UXCODMENSAJEwizard_buttons1.click_siguiente011qqA1+}) oldsinstk cod_desc_permisos clases.vcx containerCod_desc_permisos1Form1Top = 24 Left = -5 Width = 677 Height = 39 TabIndex = 1 dato_tabla = m dato = xcod Name = "Cod_desc_permisos1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 159 Text9.Top = 5 Text9.Width = 514 Text9.Name = "Text9" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0WI0P5EP1 778722690/F] WINDOWS _0WI0P5EP21461562009(*U WINDOWS _0WI0P5EP11461555410f { I D( WINDOWS _0WI0P5EP11461555410`& WINDOWS _0WI0P5EP71461555443;% WINDOWS _0WI0P5EP81461555443K+U# WINDOWS _0WI0P5EP11461555562"" WINDOWS _0WI0P5EP114615555466!J WINDOWS _0WI0P5EP11461555479  WINDOWS _2HD0Y7BQI1461555479s f X WINDOWS _48A13S1FK1166710002lN WINDOWS _48A13S1FL1166709809 e WINDOWS _48A13S1FM1166709809 ~F WINDOWS _48A15D7281461555314G   WINDOWS _65T10TUSJ1461555314s^7 #  COMMENT RESERVED +VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 wizard_form clases.vcxform Wizard_form1{BorderStyle = 3 Height = 500 Width = 795 DoCreate = .T. Caption = "Asignacin de un permiso a varios usuarios" MaxButton = .T. xcodigo = .F. bordedeseado = 3 alturadeseada = -200 anchodeseado = -100 windowstate_deseado = 2 Name = "Wizard_form1" wizard_buttons1.siguiente.Name = "siguiente" wizard_buttons1.anterior.Name = "anterior" wizard_buttons1.cancelar.Name = "cancelar" wizard_buttons1.finalizar.Name = "finalizar" wizard_buttons1.inicio.Name = "inicio" wizard_buttons1.dummy_obj.Name = "dummy_obj" wizard_buttons1.Anchor = 260 wizard_buttons1.Top = 464 wizard_buttons1.Left = 216 wizard_buttons1.TabIndex = 5 wizard_buttons1.enable_siguiente = .F. wizard_buttons1.Name = "wizard_buttons1" Text1.Left = 693 Text1.TabIndex = 7 Text1.Top = -1 Text1.Name = "Text1" Command8.Top = 0 Command8.Left = 732 Command8.Name = "Command8" Ayuda_wiki1.Anchor = 9 Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 756 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Timer1.Name = "Timer1" contador.Name = "contador" advertencia.Left = 240 advertencia.Top = 24 advertencia.Name = "advertencia" PROCEDURE Resize IF thisform.xcodigo THEN Thisform.list1.ColumnWidths = ALLTRIM(STR(thisform.list1.Width-50-20))+",40" Thisform.list2.ColumnWidths = ALLTRIM(STR(thisform.list2.Width-50-20))+",40" ELSE Thisform.list1.ColumnWidths = ALLTRIM(STR(thisform.list1.Width))+",0" Thisform.list2.ColumnWidths = ALLTRIM(STR(thisform.list2.Width))+",0" ENDIF *!* thisform.list1.ColumnWidths = ALLTRIM(STR(thisform.list1.Width -20))+",0" *!* thisform.list2.columnWidths = ALLTRIM(STR(thisform.list2.Width -20))+",0" ENDPROC AutoSize = .T. FontBold = .T. Anchor = 257 BackStyle = 0 Caption = "Usuarios Asignados" Height = 17 Left = 543 Top = 37 Width = 116 TabIndex = 8 Name = "Label3" labellabel Wizard_form1Label2]Top = 0 Left = 12 Height = 25 Width = 24 Enabled = .T. Interval = 100 Name = "Timer1" textboxlabel Wizard_form1Command9Timer1 xcodigo  commandbutton commandbuttonCommand3 Wizard_form1Top = 226 Left = 384 Height = 27 Width = 27 FontBold = .T. FontSize = 12 Anchor = 768 Caption = ">" TabIndex = 2 Name = "Command3" ePROCEDURE Click select borrar1 set order to cod seek thisform.list1.Value if found() insert into borrar (codigo,descr) values (borrar1.codigo,borrar1.descr) select borrar1 delete endif select borrar1 set order to descr select borrar set order to descr thisform.list1.Requery thisform.list2.Requery thisform.Refresh ENDPROC Anchor = 257 ControlSource = "a010592.a3" Height = 23 Left = 64 ReadOnly = .T. TabIndex = 9 Top = 5 Width = 240 Name = "Text2" Wizard_form1.Container1Wizard_form1.Container1label Wizard_form1timerArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Arial, 1, 12, 8, 20, 15, 42, 4, 1  commandbutton commandbutton Wizard_form1 commandbutton commandbuttonCommand4 Wizard_form1Top = 274 Left = 384 Height = 27 Width = 27 FontBold = .T. FontSize = 12 Anchor = 768 Caption = "<" TabIndex = 3 Name = "Command4" fPROCEDURE Click select borrar set order to codigo seek thisform.list2.Value if found() insert into borrar1 (codigo,descr) values (borrar.codigo,borrar.descr) select borrar delete endif select borrar1 set order to descr select borrar set order to codigo thisform.list1.Requery thisform.list2.Requery thisform.Refresh ENDPROC AutoSize = .T. FontBold = .T. Anchor = 257 BackStyle = 0 Caption = "Usuarios Disponibles" Height = 17 Left = 128 Top = 37 Width = 122 TabIndex = 8 Name = "Label2" textbox Wizard_form1Command2labellabeltimer Wizard_form1Command5 commandbutton commandbuttonList1 Wizard_form1 Container1Text2APROCEDURE Timer this.enabled=.f. thisform.Resize () ENDPROC listboxlistboxList2 Wizard_form1 FontSize = 7 Anchor = 45 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "500,0" RowSourceType = 6 RowSource = "borrar.descr,codigo" FirstElement = 1 Height = 402 Left = 411 NumberOfElements = 0 Sorted = .F. TabIndex = 4 Top = 60 Width = 385 ItemTips = .T. Name = "List2" tPROCEDURE DblClick thisform.command4.Click ENDPROC PROCEDURE GotFocus this.ToolTipText=borrar.descr ENDPROC AutoSize = .T. FontBold = .T. Anchor = 257 Caption = "Usuario" Height = 17 Left = 10 Top = 8 Width = 46 TabIndex = 8 Name = "Label1" sAnchor = 256 Top = -1 Left = 241 Width = 313 Height = 32 BackStyle = 0 BorderWidth = 0 Name = "Container1"  container containerLabel1listboxlistbox Wizard_form1"FontSize = 7 Anchor = 135 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "100,10" RowSourceType = 6 RowSource = "borrar1.descr,codigo" FirstElement = 1 Height = 402 Left = -2 NumberOfElements = 0 Sorted = .F. TabIndex = 1 Top = 60 Width = 386 ItemTips = .T. Name = "List1" uPROCEDURE DblClick thisform.command3.Click ENDPROC PROCEDURE GotFocus this.ToolTipText=borrar1.descr ENDPROC ",%wUT- CUTHISENABLEDTHISFORMRESIZETimer0116) commandbutton commandbuttonLabel3Top = 200 Left = 384 Height = 27 Width = 27 FontBold = .T. FontSize = 12 Anchor = 768 Caption = ">>" TabIndex = 2 Name = "Command2" $PROCEDURE Click INSERT INTO borrar (codigo,descr) ; SELECT codigo, DESCR ; FROM borrar1 SELECT borrar1 DELETE all in borrar1 SELECT borrar1 SET ORDER TO DESCR SELECT borrar SET ORDER TO descr THISFORM.list1.REQUERY THISFORM.list2.REQUERY THISFORM.REFRESH ENDPROC ~"ee5% UTUTHISVISIBLE PUB_INDEX;T   UTHISFORMXCODIGORESIZELIST1REFRESHLIST2Init0Clickj1Q2C1-I)eTop = 301 Left = 384 Height = 27 Width = 27 FontBold = .T. FontSize = 12 Anchor = 768 Caption = "<<" TabIndex = 3 Name = "Command5" PROCEDURE Click INSERT INTO borrar1 (codigo,DESCR) ; SELECT codigo , descr ; FROM borrar DELETE ALL IN borrar SELECT borrar1 SET ORDER TO DESCR SELECT borrar SET ORDER TO descr THISFORM.list1.REQUERY THISFORM.list2.REQUERY THISFORM.REFRESH ENDPROC PROCEDURE Init this.Visible = (pub_index=0) ENDPROC PROCEDURE Click *=sys_mostrar_screen("Codigo",.t.) Thisform.xcodigo = not thisform.xcodigo Thisform.Resize Thisform.list1.Refresh Thisform.list2.Refresh ENDPROC Top = 468 Left = 672 Height = 25 Width = 120 FontBold = .T. Anchor = 12 Caption = "Mostrar Cdigo" ForeColor = 255,0,0 Name = "Command9" "}}y%4 U.rborrar1oborrar FG((DESCRFG((descr    U CODIGODESCRBORRARALLBORRAR1THISFORMLIST1REQUERYLIST2REFRESHClick01rr3 )}"U%= %U.rborraroborrar1F FG((DESCRFG((descr    U CODIGODESCRBORRAR1ALLBORRARTHISFORMLIST1REQUERYLIST2REFRESHClick01rrr3)D"++%U UTHISFORMCOMMAND3CLICKTUTHIS TOOLTIPTEXTBORRAR1DESCRDblClick0GotFocusc1311-Lj)+C"**,%U UTHISFORMCOMMAND4CLICKTUTHIS TOOLTIPTEXTBORRARDESCRDblClick0GotFocusc1311-Li)*"L%IzXUFG((codigoE%C4j,rborrar1FFG((descrFG((codigo    U BORRARCODIGOTHISFORMLIST2VALUEDESCRBORRAR1LIST1REQUERYREFRESHClick01qqAArr3[)"L%IzXUF G((codE%C4f+rborrarFFG((descrFG((descr     U BORRAR1CODTHISFORMLIST1VALUECODIGODESCRBORRARREQUERYLIST2REFRESHClick01qqAArr3Z)"v%/Q ?U%j,TCC2Z,40,TCC2Z,40 #TCCZ,0#TCCZ,0UTHISFORMXCODIGOLIST1 COLUMNWIDTHSWIDTHLIST2Resize01!11A3)06mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _S1517SI7Y 829926961/F] WINDOWS _S1517SI811481131700mW WINDOWS _1X30RXXOG1469745003NY_YpYYY WINDOWS _1X30RXXOR1469745003@ZUZjZzZZR[p WINDOWS _S1517SI7Y1469745003y\\\\\]q WINDOWS _S1517SI7Y14697443684_FU___:o WINDOWS _S1517SI811468826856rrrrrDsy WINDOWS _S1517SI7Y1468826856tttttu WINDOWS _S1517SI811468826856vwww9ww WINDOWS _12T0XD2W71468826856y&y5yBy]yLz WINDOWS _12T0XD2W81468826856{{{{{{>| WINDOWS _12T0XD2W91468826856}}}}}~ WINDOWS _12T0XD2WE 894130250#2M WINDOWS _12T0XD2WF1468826856 58 WINDOWS _6R716F9Q81468826856,:HWr- WINDOWS _6R716F9Q91468826856%4A\%O WINDOWS _6R716V7GL1468826856"0?ZC WINDOWS _6R716V7GM1468826856$1LLT WINDOWS _6R717NIMY1468826856(6E` WINDOWS _6R717NIMZ1468826856 '4OS WINDOWS _6R717NIN01468826856 &dQ WINDOWS _6R717NIN11468826856ܓ"P WINDOWS _6RZ0HY6Q21468826856ΖܖDO WINDOWS _6RZ0HY6Q31468826856˜јޘÙ\N WINDOWS _6S111JZ0A1468697577ۛ WINDOWS _6S111JZ0B1468826856-:VtM WINDOWS _6S111JZ0C1468826856,:HWsgL WINDOWS _6S111JZ0D1468826856,;HdK WINDOWS _6S111JZ0E1468697577*8F] WINDOWS _6S111JZ0F1468826856xstxWtbJ WINDOWS _6S20MAHJ41468748545q} Q}tx WINDOWS _6S20MAHJ51468826856q}qt_ xƃI WINDOWS _6S216D8MM1468767681q`{VV^ WINDOWS _6S216D8MN1468826856}vD{|H WINDOWS _1X30T85XA1469744368XrIr9r_Z^F WINDOWS _S1517SI7Y1469744368M_@_k\Z_z WINDOWS _S1517SI7Y1469744368g_|_grwrvqeE WINDOWS _S1517SI7Y1469744368x}`}}[RUC WINDOWS _2H10ROEBV14697443684UlqɰsB WINDOWS _2H10S6F0Y1469744368msA WINDOWS _5LX0MB8NC1469744368rbU*? WINDOWS _S1517SI7Y1469745003@+G > WINDOWS _S1517SI811469745003IK< WINDOWS _67K0V1YMC1469744368wϓ WINDOWS _6LL0TBJ181469744368v WINDOWS _S1517SI7Y1479100518cP!; WINDOWS _6RT0NXM3G1479100518یΌɒ: WINDOWS _6RT0NXM3H1479100518ߊъn{. WINDOWS _6S20GGQ7P1480088110 yt8 WINDOWS _S1517SI7Y1479100518߅vi7 WINDOWS _6S217AC171479100518r_VV6 WINDOWS _6SX0JEJQS1479100518VVVVV/V5 COMMENT RESERVED *VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formulario_consulta clases.vcxformForm1IDataSession = 1 BorderStyle = 3 Height = 629 Width = 1359 Desktop = .T. DoCreate = .T. AutoCenter = .T. Caption = "Control de Pedidos" WindowType = 1 WindowState = 0 LockScreen = .F. AlwaysOnTop = .F. marcados = 0 lineas = 0 importe = 0 buscar = (space(40)) orden = "" grilla_ancho = 0 grilla_alto = 0 cliente = (space(6)) vendedor = (space(8)) filtro = "" con_ot = .F. colores = .F. fechahora = grilla_top =  20 grilla_left = 0 a_facturar = .F. contador = .F. xplataforma = (space(10)) rfc = (0) max_saldo = 0 alturadeseada = 950 anchodeseado = 1820 Name = "Form1" Text1.Left = 1332 Text1.TabIndex = 16 Text1.Top = 0 Text1.ZOrderSet = 4 Text1.Name = "Text1" AYUDA_WIKI1.Height = 19 AYUDA_WIKI1.Left = 1308 AYUDA_WIKI1.Top = 0 AYUDA_WIKI1.Width = 20 AYUDA_WIKI1.Name = "AYUDA_WIKI1" -TPROCEDURE releer_tabla local xorden xorden=thisform.orden =thisform.removeobject('grid1') set classlib to (p_local+"\dev") =thisform.addobject('grid1','ve_control_de_deudas_grid') do leer_configuracion_grid ; in listados ; with 10, thisform.grid1 thisform.aplicar_tamao_grilla thisform.orden=xorden set classlib to clases addi =thisform.set_filter() =thisform.ordenar() thisform.grid1.visible=.t. thisform.eliminar_columnas thisform.renombrar_columnas thisform.refresh return ENDPROC PROCEDURE ver_cc lparam xempresa *=sys_m("saldo") =ver_cc(xempresa, xcod_cli) ENDPROC PROCEDURE set_filter select pedidos_pendientes xfiltro="" if !empty(thisform.rfc) xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"rfc="+alltrim(str(thisform.rfc)) endif if !empty(thisform.cliente) xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"codigo="+["]+thisform.cliente+["] endif if !empty(thisform.vendedor) xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"vendedor="+["]+thisform.vendedor+["] endif *=sys_m("ss") do case case thisform.optiongroup1.Value=2 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"saldo>"+alltrim(str(thisform.max_saldo,18,2)) case thisform.optiongroup1.Value=3 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"abs(saldo)>"+alltrim(str(thisform.max_saldo,18,2)) endcase do case case thisform.optiongroup2.Value=2 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"(empty(vencrec) or vencrec<=date())" case thisform.optiongroup2.Value=3 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"vencrec<=date()" case thisform.optiongroup2.Value=4 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"!empty(vencrec)" endcase do case case thisform.optiongroup3.Value=2 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"saldo1+saldo3#0" case thisform.optiongroup3.Value=3 xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"saldo2#0" endcase if thisform.check1.value xfiltro=xfiltro +iif(!empty(xfiltro)," and ","")+"no_recl#[S]" endif set filter to &xfiltro go top && BOTTOM thisform.Refresh ENDPROC PROCEDURE guardar_tamao_grilla thisform.grilla_alto=thisform.grid1.Height thisform.grilla_ancho=thisform.grid1.Width thisform.grilla_top=thisform.grid1.top thisform.grilla_left=thisform.grid1.left ENDPROC PROCEDURE ordenar parameters xorden select pedidos_pendientes if type("xorden")="L" xorden="" endif if xorden="" xorden=thisform.orden endif thisform.SetAll("FontBold", .f.,"header") do case case xorden="nombre" set order to nombre go top thisform.grid1.column1.header1.FontBold=.t. thisform.busqueda.Value=space(30) thisform.busqueda.format="!" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. case xorden="dtiporec" set order to dtiporec go top thisform.grid1.column1.header1.FontBold=.t. thisform.busqueda.Value=space(30) thisform.busqueda.format="!" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. case xorden="cnt" set order to cnt go top thisform.grid1.column2.header1.FontBold=.t. thisform.busqueda.Value=0 thisform.busqueda.format="z" thisform.busqueda.inputmask="999,999,999" thisform.busqueda.SelectOnEntry=.t. case xorden="oldest" set order to oldest go top thisform.grid1.column3.header1.FontBold=.t. thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. case xorden="vencrec" set order to oldest go top thisform.grid1.column3.header1.FontBold=.t. thisform.busqueda.Value={} thisform.busqueda.format="" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. case xorden="saldo1" set order to saldo1 go top thisform.grid1.column7.header1.FontBold=.t. thisform.busqueda.Value=0 thisform.busqueda.format="z" thisform.busqueda.inputmask="999,999,999" thisform.busqueda.SelectOnEntry=.t. case xorden="saldo2" set order to saldo2 go top thisform.grid1.column8.header1.FontBold=.t. thisform.busqueda.Value=0 thisform.busqueda.format="z" thisform.busqueda.inputmask="999,999,999" thisform.busqueda.SelectOnEntry=.t. case xorden="saldo3" set order to saldo3 go top thisform.grid1.column9.header1.FontBold=.t. thisform.busqueda.Value=0 thisform.busqueda.format="z" thisform.busqueda.inputmask="999,999,999" thisform.busqueda.SelectOnEntry=.t. case xorden="saldo" set order to saldo go top thisform.grid1.column4.header1.FontBold=.t. thisform.busqueda.Value=0 thisform.busqueda.format="z" thisform.busqueda.inputmask="999,999,999" thisform.busqueda.SelectOnEntry=.t. case xorden="codigo" set order to codigo go top thisform.grid1.column5.header1.FontBold=.t. thisform.busqueda.Value=space(6) thisform.busqueda.format="!" thisform.busqueda.inputmask="" thisform.busqueda.SelectOnEntry=.t. *!* case xorden=4 *!* *!* set order to dvendedor *!* go top *!* *!* thisform.grid1.column15.header1.FontBold=.t. *!* thisform.busqueda.Value=space(30) *!* thisform.busqueda.format="!" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=5 *!* *!* set order to dflete *!* go top *!* *!* thisform.grid1.column16.header1.FontBold=.t. *!* thisform.busqueda.Value=space(30) *!* thisform.busqueda.format="!" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=6 *!* *!* set order to fec_ent *!* go top *!* *!* thisform.grid1.column23.header1.FontBold=.t. *!* thisform.busqueda.Value={} *!* thisform.busqueda.format="" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=7 *!* *!* set order to fec_prob *!* go top *!* *!* thisform.grid1.column26.header1.FontBold=.t. *!* thisform.busqueda.Value={} *!* thisform.busqueda.format="" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=8 *!* *!* set order to importe *!* go top *!* *!* thisform.grid1.column8.header1.FontBold=.t. *!* thisform.busqueda.Value=0 *!* thisform.busqueda.format="z" *!* thisform.busqueda.inputmask="999,999,999" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=9 *!* *!* set order to ult_fact *!* go top *!* *!* thisform.grid1.column33.header1.FontBold=.t. *!* thisform.busqueda.Value={} *!* thisform.busqueda.format="" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=10 *!* *!* set order to arfc *!* go top *!* *!* thisform.grid1.column37.header1.FontBold=.t. *!* thisform.busqueda.Value=space(30) *!* thisform.busqueda.format="!" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. *!* case xorden=11 *!* set order to lista *!* go top *!* thisform.grid1.column39.header1.FontBold=.t. *!* thisform.busqueda.Value=0 *!* thisform.busqueda.format="z" *!* thisform.busqueda.inputmask="999,999,999" *!* thisform.busqueda.SelectOnEntry=.t. endcase thisform.orden=xorden return ENDPROC PROCEDURE grid_setall xrojo = "RGB(255,150,150)" && "RGB(255,140,140)" xfucsia = "rgb(255,32,43)" * xamarillo = "rgb(255,255,190)" = 12517375 xverde_claro= "rgb(206,255,223)" thisform.grid1.SetAll("Alignment", 2, "header") ENDPROC PROCEDURE limpiar_tildes lparameters xmensaje select pedidos_pendientes local xreg xreg=iif(eof("pedidos_pendientes"),-1, recno("pedidos_pendientes")) replace tilde with .f. all if xreg#-1 go xreg endif thisform.Refresh if !xmensaje mensaje("Por seguridad se han desmarcado todos los comprobantes !!!", 0, 20000) endif ENDPROC PROCEDURE right_click_menu lparameters xempresa *=sys_m("right click") xempresa=evl(xempresa, 0) p_ve_control_de_deuda_empresa=xempresa thisform.guardar_tamao_grilla() local xreg xreg=iif(eof("pedidos_pendientes"),-1, recno("pedidos_pendientes")) xcod_cli=pedidos_pendientes.codigo do ve_control_de_deudas_menu.mpr *=sys_m("right click") thisform.releer_tabla select pedidos_pendientes if xreg#-1 go xreg endif thisform.refresh ENDPROC PROCEDURE aplicar_tamao_grilla thisform.grid1.top=thisform.grilla_top thisform.grid1.left=thisform.grilla_left thisform.grid1.Height=thisform.grilla_alto thisform.grid1.Width=thisform.grilla_ancho ENDPROC PROCEDURE timer_reset *!* thisform.contador = 0 *!* this.timer1.Interval = 10000 && 1 Minuto *!* this.timer1.Enabled = .t. *!* thisform.segundos.Caption = "" ENDPROC PROCEDURE ver_comprobantes lparam xempresa if acceso(86).or.acceso(30) thisform.guardar_tamao_grilla() local xreg xreg=iif(eof("pedidos_pendientes"),-1, recno("pedidos_pendientes")) local xcod_cli xcod_cli=pedidos_pendientes.codigo if used("q_comprobantes") use in q_comprobantes endif select d.* from detalle_deuda d where iif(!empty(xempresa),d.empcod=xempresa, .t.) and d.codigo=pedidos_pendientes.codigo into cursor q_comprobantes * =sys_m("ver comprobantes") xresultado=.t. this.Enabled=.f. DO FORM ve_control_de_deudas_comprobantes.scx with xresultado this.Enabled=.t. * Se supone que estoy parado en tccvent en el pedido correcto select pedidos_pendientes thisform.releer_tabla select pedidos_pendientes if xreg#-1 go xreg endif endif ENDPROC PROCEDURE eliminar_columnas if p_emp#"SOL" *=sys_m("elimnar columnas") thisform.grid1.column9.Enabled=.f. thisform.grid1.column9.visible=.f. if p_dos#0 and p_dos#p_uno * Ok 2 columnas else thisform.grid1.column7.Enabled=.f. thisform.grid1.column7.visible=.f. thisform.grid1.column8.Enabled=.f. thisform.grid1.column8.visible=.f. endif endif ENDPROC PROCEDURE renombrar_columnas try thisform.grid1.column7.header1.Caption=xempresa1 catch endtry try thisform.grid1.column8.header1.Caption=xempresa2 catch endtry try thisform.grid1.column9.header1.Caption=xempresa3 catch endtry ENDPROC PROCEDURE Init lparameters xfechahora this.fechahora=xfechahora dodefault() *=sys_m("init") do leer_configuracion_grid ; in listados ; with 10, thisform.grid1 thisform.eliminar_columnas thisform.renombrar_columnas *!* thisform.timer_reset =sys_m("init") LOCAL oCFG oCFG = NEWOBJECT("CFG_Ctrl","Sys_cfg.prg","",.T.,7) IF TYPE("oCFG.lineas.p_ctrl_deuda_importe.valor")="C" THEN thisform.text2.Value=INT(VAL(oCFG.lineas.p_ctrl_deuda_importe.valor)) ELSE thisform.text2.Value=0 ENDIF IF TYPE("oCFG.lineas.p_ctrl_deuda_saldo1.valor")="C" THEN thisform.optiongroup1.Value=INT(VAL(oCFG.lineas.p_ctrl_deuda_saldo1.valor)) ELSE thisform.optiongroup1.Value=1 ENDIF IF TYPE("oCFG.lineas.p_ctrl_deuda_saldo2.valor")="C" THEN thisform.optiongroup2.Value=INT(VAL(oCFG.lineas.p_ctrl_deuda_saldo2.valor)) ELSE thisform.optiongroup2.Value=1 ENDIF IF TYPE("oCFG.lineas.p_ctrl_deuda_gestion.valor")="C" THEN thisform.check1.Value=(INT(VAL(oCFG.lineas.p_ctrl_deuda_gestion.valor))=1) ELSE thisform.check1.Value=.f. ENDIF =thisform.set_filter() thisform.ordenar("saldo") ENDPROC "%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERInteractiveChange01s2d)"%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERInteractiveChange01s2d)"%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERInteractiveChange01s2d)"*%:UIU/ctrl_deuda_importe.ctrl_deuda_saldo1.ctrl_deuda_saldo2/ctrl_deuda_gestionUSYS_CFGTHISFORMTEXT2VALUE OPTIONGROUP1 OPTIONGROUP2CHECK1Click012)*"\%UF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERUValid0InteractiveChangey1s33X)"%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERInteractiveChange01s2d)F"--%UU listados 2C%La configuracin ha sido guardada !!!UGUARDAR_CONFIGURACION_GRIDLISTADOSTHISFORMGRID1MENSAJEClick01"3)-x"__P %U~(zTa/TC2CDUTHISFORMGRID1Z COLUMNCOUNTCOLUMNSVISIBLEWIDTHClick01!BB2)_>"%%%UTUTHISVISIBLEP_DEVFTCC C C     y=C   66666 TU PEDIDOS_PENDIENTESXCOLORGERENCIAVERIFARM_BLOQSTOCKEST_PICKCREDITOAAAInit0Clicka12qt" 1$@)%"h%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERupdated01q2F)"h%yUF CUPEDIDOS_PENDIENTESTHISFORM SET_FILTERupdated01q2F)"ff% U#TTUTHISVISIBLEP_DEVENABLED:7C\devve_control_de_deudas_gridUTHISFORMGRID1 SAVEASCLASSP_SYSTEMInit0Clickz13q29U)fA"((%UF UPEDIDOS_PENDIENTES#TTUTHISVISIBLEP_DEVENABLEDClick0InitZ1qB429T})("~%]U  UTHISFORMGRID1SETFOCUSREFRESHFGH C LEC Cr E CECG UPEDIDOS_PENDIENTESTHISFORMORDENTHISVALUE LostFocus0Validy13qbAa3Fbm)"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111)"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111)"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111)"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111)"i%U*CvencrecUTHISFORMORDENARTHISPARENTREFRESHClick01q5S)"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111)@"''_N%UCUTHISFORMVER_COMPROBANTESCUTHISFORMRIGHT_CLICK_MENUDblClick0 RightClickg1618Yu)'";%U)Csaldo3UTHISFORMORDENARTHISPARENTREFRESHClick01a5R)@"''_N%UCUTHISFORMVER_COMPROBANTESCUTHISFORMRIGHT_CLICK_MENUDblClick0 RightClickg1618Yu)'";%U)Csaldo2UTHISFORMORDENARTHISPARENTREFRESHClick01a5R)@"''_N%UCUTHISFORMVER_COMPROBANTESCUTHISFORMRIGHT_CLICK_MENUDblClick0 RightClickg1618Yu)'"}%d~xU CUTHISFORMRIGHT_CLICK_MENU RightClick0111) clases.vcxgridPROCEDURE Init this.visible=p_dev this.enabled=p_dev ENDPROC PROCEDURE Click =thisform.grid1.saveasclass(p_system+'\dev','ve_control_de_deudas_grid') ENDPROC Header1Form1.Grid1.Column14oPROCEDURE InteractiveChange *=sys_m("saldo") select pedidos_pendientes =thisform.set_filter() ENDPROC Form1 Optiongroup3 optiongroup optiongroupForm1Check1>marcados lineas remitos old importe buscar orden grilla_ancho grilla_alto cliente vendedor filtro con_ot colores fechahora grilla_top grilla_left a_facturar Solo muestra los que no fueron facturados en el mes en curso y que son repetitivos (SOL) contador xplataforma rfc max_saldo *releer_tabla *ver_cc *set_filter *guardar_tamao_grilla *ordenar *grid_setall *limpiar_tildes *right_click_menu *determinar_colores *colores_debug *aplicar_tamao_grilla *timer_reset *ver_comprobantes *eliminar_columnas *renombrar_columnas  container container Container1Form1Anchor = 14 Top = 572 Left = 0 Width = 1356 Height = 40 BackStyle = 0 BorderWidth = 0 TabIndex = 17 BackColor = 121,255,168 ZOrderSet = 0 Name = "Container1"  commandbutton commandbuttonCommand9Form1.Container1Top = 1 Left = 1283 Height = 36 Width = 72 Anchor = 12 WordWrap = .T. Caption = "Desmarcar Todos" Enabled = .F. TabIndex = 6 Visible = .F. ZOrderSet = 16 Name = "Command9" ;PROCEDURE Click =thisform.limpiar_tildes(.t.) ENDPROC AutoSize = .T. Top = 600 Left = 552 Height = 27 Width = 84 Anchor = 260 WordWrap = .T. Caption = "Guardar Grid" TabIndex = 13 Visible = .F. ForeColor = 255,0,0 ZOrderSet = 8 Name = "Command16" Label4 commandbutton commandbutton Command10Form1.Container1Top = 1 Left = 1212 Height = 36 Width = 72 Anchor = 12 WordWrap = .T. Caption = "Marcar Todos" Enabled = .F. TabIndex = 3 Visible = .F. ZOrderSet = 18 Name = "Command10" PROCEDURE Click select pedidos_pendientes local xreg xreg=iif(eof("pedidos_pendientes"),-1, recno("pedidos_pendientes")) replace tilde with .t. all if xreg#-1 go xreg endif ENDPROC Anchor = 6 Height = 23 Left = 60 SelectOnEntry = .T. TabIndex = 12 Top = 577 Width = 240 ZOrderSet = 6 Name = "busqueda" ,Caption = "No Gestionar" Name = "Header1" Form1.Grid1.Column13gridlabellabelForm1 commandbutton commandbuttonForm1checkboxGrid1Form1jColumnCount = 14 Anchor = 15 DeleteMark = .F. GridLineWidth = 1 HeaderHeight = 32 Height = 483 HighlightRowLineWidth = 2 Left = 0 Panel = 1 RecordMark = .F. RecordSource = "pedidos_pendientes" ScrollBars = 3 TabIndex = 1 Top = 89 Width = 1359 ForeColor = 0,0,0 BackColor = 255,255,255 GridLineColor = 0,0,0 ZOrderSet = 5 Name = "Grid1" Column1.FontBold = .F. Column1.FontSize = 8 Column1.ColumnOrder = 3 Column1.ControlSource = "pedidos_pendientes.nombre" Column1.Width = 276 Column1.ReadOnly = .T. Column1.DynamicBackColor = "" Column1.ForeColor = 0,0,0 Column1.BackColor = 255,255,255 Column1.Name = "Column1" Column2.FontBold = .F. Column2.FontSize = 8 Column2.ColumnOrder = 4 Column2.ControlSource = "pedidos_pendientes.cnt" Column2.Width = 55 Column2.ReadOnly = .T. Column2.DynamicBackColor = "" Column2.Format = "z" Column2.InputMask = "9999" Column2.ForeColor = 0,0,0 Column2.BackColor = 255,255,255 Column2.Name = "Column2" Column3.FontBold = .F. Column3.FontSize = 8 Column3.Alignment = 2 Column3.ColumnOrder = 5 Column3.ControlSource = "pedidos_pendientes.oldest" Column3.Width = 87 Column3.ReadOnly = .T. Column3.DynamicBackColor = "" Column3.ForeColor = 0,0,0 Column3.BackColor = 255,255,255 Column3.Name = "Column3" Column4.FontBold = .F. Column4.FontName = "MS Sans Serif" Column4.FontSize = 8 Column4.Bound = .T. Column4.ColumnOrder = 1 Column4.ControlSource = "pedidos_pendientes.tilde" Column4.CurrentControl = "Check1" Column4.Width = 18 Column4.ReadOnly = .F. Column4.Sparse = .F. Column4.DynamicBackColor = "" Column4.ForeColor = 0,0,0 Column4.BackColor = 255,255,255 Column4.Name = "Column6" Column5.ColumnOrder = 9 Column5.ControlSource = "pedidos_pendientes.saldo" Column5.Width = 104 Column5.ReadOnly = .T. Column5.Format = "z" Column5.InputMask = "999,999,999.99" Column5.ForeColor = 0,0,0 Column5.BackColor = 255,255,255 Column5.Name = "Column4" Column6.ColumnOrder = 2 Column6.ControlSource = "pedidos_pendientes.codigo" Column6.ReadOnly = .T. Column6.ForeColor = 0,0,0 Column6.BackColor = 255,255,255 Column6.Name = "Column5" Column7.ColumnOrder = 6 Column7.ControlSource = "pedidos_pendientes.saldo1" Column7.Width = 93 Column7.ReadOnly = .T. Column7.Format = "z" Column7.InputMask = "999,999,999.99" Column7.ForeColor = 0,0,0 Column7.BackColor = 255,255,255 Column7.Name = "Column7" Column8.ColumnOrder = 7 Column8.ControlSource = "pedidos_pendientes.saldo2" Column8.Width = 101 Column8.ReadOnly = .T. Column8.Format = "z" Column8.InputMask = "999,999,999.99" Column8.ForeColor = 0,0,0 Column8.BackColor = 255,255,255 Column8.Name = "Column8" Column9.ColumnOrder = 8 Column9.ControlSource = "pedidos_pendientes.saldo3" Column9.Width = 96 Column9.ReadOnly = .T. Column9.Format = "z" Column9.InputMask = "999,999,999.99" Column9.ForeColor = 0,0,0 Column9.BackColor = 255,255,255 Column9.Name = "Column9" Column10.Alignment = 2 Column10.ControlSource = "pedidos_pendientes.dtiporec" Column10.Width = 81 Column10.ReadOnly = .T. Column10.ForeColor = 0,0,0 Column10.BackColor = 255,255,255 Column10.Name = "Column10" Column11.ControlSource = "pedidos_pendientes.vencrec" Column11.Width = 72 Column11.ReadOnly = .T. Column11.ForeColor = 0,0,0 Column11.BackColor = 255,255,255 Column11.Name = "Column11" Column12.ControlSource = "pedidos_pendientes.texto" Column12.Width = 117 Column12.ReadOnly = .T. Column12.ForeColor = 0,0,0 Column12.BackColor = 255,255,255 Column12.Name = "Column12" Column13.ControlSource = "pedidos_pendientes.nota_ges" Column13.Width = 149 Column13.ReadOnly = .T. Column13.ForeColor = 0,0,0 Column13.BackColor = 255,255,255 Column13.Name = "Column13" Column14.Alignment = 2 Column14.ControlSource = "pedidos_pendientes.no_recl" Column14.Width = 77 Column14.ReadOnly = .T. Column14.ForeColor = 0,0,0 Column14.BackColor = 255,255,255 Column14.Name = "Column14" HPROCEDURE Init select pedidos_pendientes if empty(thisform.orden) this.column1.header1.Click endif thisform.grid_setall select pedidos_pendientes GO BOTTOM thisform.grid1.Refresh thisform.SetAll("DynamicForeColor", "iif(pedidos_pendientes.no_recl=[S],rgb(255,0,0), rgb(0,0,0))", "Column") ENDPROC "%cxrUCaUTHISFORMLIMPIAR_TILDESClick0120) containertextboxtextboxheaderPROCEDURE Click select pedidos_pendientes browse ENDPROC PROCEDURE Init this.visible=p_dev this.enabled=p_dev ENDPROC busquedatextboxtextboxCommand2Form1checkboxheaderheaderHeader1Form1.Grid1.Column1bAlignment = 2 Caption = "Cliente" ForeColor = 0,0,0 BackColor = 198,198,198 Name = "Header1" YPROCEDURE Click =thisform.ordenar("nombre") this.Parent.Parent.Refresh ENDPROC QPROCEDURE updated select pedidos_pendientes =thisform.set_filter() ENDPROC QPROCEDURE updated select pedidos_pendientes =thisform.set_filter() ENDPROC Form1.Grid1.Column12textboxForm1.Grid1.Column13Text1textboxtextboxText1Form1.Grid1.Column1FontBold = .F. FontName = "Arial" FontSize = 8 BorderStyle = 0 ControlSource = "pedidos_pendientes.nombre" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" a%{ #UPEDIDOS_PENDIENTESXREGTILDEALLClick01qqABA3)J!F"-!-!% U TCgrid1G~(\dev1Cgrid1ve_control_de_deudas_grid listados   TG~(clases C C T a   BUXORDENTHISFORMORDEN REMOVEOBJECTP_LOCAL ADDOBJECTLEER_CONFIGURACION_GRIDLISTADOSGRID1APLICAR_TAMAO_GRILLACLASES SET_FILTERORDENARVISIBLEELIMINAR_COLUMNASRENOMBRAR_COLUMNASREFRESHCUXEMPRESAVER_CCXCOD_CLIBF T%C c:TCC  and 6rfc=CCZ%C CTCC  and 6codigo=""%C ETCC  and 6 vendedor=""H2 BTCC  and 6saldo>CCZ GTCC  and 6 abs(saldo)>CCZH  iNTCC  and 6#(empty(vencrec) or vencrec<=date())  :TCC  and 6vencrec<=date()  :TCC  and 6!empty(vencrec)H$  w:TCC  and 6saldo1+saldo3#0  3TCC  and 6saldo2#0% 6TCC  and 6 no_recl#[S]set filter to &xfiltro #)  U PEDIDOS_PENDIENTESXFILTROTHISFORMRFCCLIENTEVENDEDOR OPTIONGROUP1VALUE MAX_SALDO OPTIONGROUP2 OPTIONGROUP3CHECK1REFRESH[TTTT U THISFORM GRILLA_ALTOGRID1HEIGHT GRILLA_ANCHOWIDTH GRILLA_TOPTOP GRILLA_LEFTLEFT4F%CxordenbL7 T%^T"CFontBold-headerHo nombre&G((nombre#)T aT CXT !T T a dtiporecG((dtiporec#)T aT CXT !T T a cntO G((cnt#)T aT T zT  999,999,999T a oldestG((oldest#)T aT T T T a vencrecxG((oldest#)T aT T T T a saldo1G((saldo1#)T aT T zT  999,999,999T a saldo2G((saldo2#)T aT T zT  999,999,999T a saldo3FG((saldo3#)T aT T zT  999,999,999T a saldoG((saldo#)T aT T zT  999,999,999T a codigooG((codigo#)T aT CXT !T T aTBUXORDENPEDIDOS_PENDIENTESTHISFORMORDENSETALLNOMBREGRID1COLUMN1HEADER1FONTBOLDBUSQUEDAVALUEFORMAT INPUTMASK SELECTONENTRYDTIPORECCNTCOLUMN2OLDESTCOLUMN3SALDO1COLUMN7SALDO2COLUMN8SALDO3COLUMN9SALDOCOLUMN4CODIGOCOLUMN5TRGB(255,150,150)Trgb(255,32,43)Trgb(206,255,223)(C AlignmentheaderUXROJOXFUCSIA XVERDE_CLAROTHISFORMGRID1SETALLFDTCCpedidos_pendientes+Cpedidos_pendientesO6 >-% # % NC:Por seguridad se han desmarcado todos los comprobantes !!! NUXMENSAJEPEDIDOS_PENDIENTESXREGTILDEALLTHISFORMREFRESHMENSAJETC T CDTCCpedidos_pendientes+Cpedidos_pendientesO6T$ve_control_de_deudas_menu.mpr  F% #  U XEMPRESAP_VE_CONTROL_DE_DEUDA_EMPRESATHISFORMGUARDAR_TAMAO_GRILLAXREGXCOD_CLIPEDIDOS_PENDIENTESCODIGOVE_CONTROL_DE_DEUDAS_MENUMPR RELEER_TABLAREFRESH[TTTT U THISFORMGRID1TOP GRILLA_TOPLEFT GRILLA_LEFTHEIGHT GRILLA_ALTOWIDTH GRILLA_ANCHOU%CVC  CDTCCpedidos_pendientes+Cpedidos_pendientesO6T%Cq_comprobantesQ[o detalle_deudaQ CC  a6  q_comprobantes T aT -1%ve_control_de_deudas_comprobantes.scx T aF F% #UXEMPRESAACCESOTHISFORMGUARDAR_TAMAO_GRILLAXREGXCOD_CLIPEDIDOS_PENDIENTESCODIGOQ_COMPROBANTESD DETALLE_DEUDAEMPCOD XRESULTADOTHISENABLED!VE_CONTROL_DE_DEUDAS_COMPROBANTESSCX RELEER_TABLA%SOLT-T-% \ T-T-T -T -U P_EMPTHISFORMGRID1COLUMN9ENABLEDVISIBLEP_DOSP_UNOCOLUMN7COLUMN8 #T - TT ^ T U THISFORMGRID1COLUMN7HEADER1CAPTION XEMPRESA1COLUMN8 XEMPRESA2COLUMN9 XEMPRESA3T C listados   Cinit  -T CCFG_Ctrl Sys_cfg.prga<%C&oCFG.lineas.p_ctrl_deuda_importe.valorbC T CC g8 T ;%C%oCFG.lineas.p_ctrl_deuda_saldo1.valorbCq T CC g8 T ;%C%oCFG.lineas.p_ctrl_deuda_saldo2.valorbC T CC g8  T <%C&oCFG.lineas.p_ctrl_deuda_gestion.valorbCo%T CC g8 T - CCsaldoU XFECHAHORATHIS FECHAHORALEER_CONFIGURACION_GRIDLISTADOSTHISFORMGRID1ELIMINAR_COLUMNASRENOMBRAR_COLUMNASSYS_MOCFGTEXT2VALUELINEASP_CTRL_DEUDA_IMPORTEVALOR OPTIONGROUP1P_CTRL_DEUDA_SALDO1 OPTIONGROUP2P_CTRL_DEUDA_SALDO2CHECK1P_CTRL_DEUDA_GESTION SET_FILTERORDENAR releer_tabla0ver_cc set_filterUguardar_tamao_grilla+ordenar grid_setalllimpiar_tildesNright_click_menuaplicar_tamao_grilla> timer_resetver_comprobantes eliminar_columnasrenombrar_columnasInit1qRBB3q$3qRAR1AQQA!qAA1ASaAS3aaba6qrA2A"QrRA1QrRA1bQr2AQr11Qr11Qr2AQr2AQr2AQr2AQrRA1PAA33qqqABAA4q4rABrAA3aaaa76qrArAvrAAC3aDAAAAAAB4AAA4qr1A1A1AQAR2 )m#[+;9 a@W -lO!^Ffg!z!E"g""#A&i&''((I-)-!%=(yvWU+ rptcentrosJ BUOFORM RPTCENTROS CUEJECUTAR_REPORTETC %CxdfecbDcT%CxhfecbDT%CxdtipbNTT aH  T-TC  A   yTa   b   c%Cbc  T- BU XTIPO_REPORTEXDFECXHFECXDCUEXHCUEXDTIPOFORM XNO_RELEASEXRETURN OBTENER_FORMMOSTRAR_EXTERNO EJECUTAR_SQL BTNVISUALIZARCLICKRELEASE AUTOMATIZADO BTNEXPORTAR obtener_form, ejecutar_sqlrejecutar_reporte1q33AAA1Q1111AA1 %[:huW?U` T%Crlocks ]Q\rlocks3 g%CrlocksQQ\rlocks-%CCC Zrlocksid%Cusuarios Q \usuarios"CusuarioscodigoTC Ta%C <>  T- T -% T - -Mrrlocks   C T a%CrlocksPQ B UXTABLA XREGISTROXUSUARIOP_SYSTEMRLOCKSXFOUNDUSRUSUARIOSDESCR FECHAHORAFININXRETURNTABLAREGISTROSESION PUB_INDEX P_SESION_ID %Crlocks =Q\rlocks-%CCC Zrlocksid Ta> Ta  T-%CrlocksQ BUXTABLA XREGISTROP_SYSTEMXFOUNDRLOCKSFININXRETURNregistrar_lock, liberar_lock/;AArABrA""BBrArA2BArA7 )1Z %SGaQ Y]U FE_OBJETOSPRG"G+(FE_Funciones_separadores#TC|#TC|#TC|#TC|TC BU FE_FUNCIONES_SEPARADORESXTEXTOPONER_SEPARADORGTHISLETRA TIPO_CBTE PUNTO_VTACBTE_NRO FECHA_CBTEY?TCCC0CCCZ0 BUXTIPOXARCHIVOTHISLETRA PUNTO_VTACBTE_NROARCHIVO_EXTENSION*BCUXPATH XPATHSTOREXTIPOTHISOBTENER_ARCHIVO%CxTipobLBBC TC TCTCTC C C%C #T CCC_  C  8(  fCError: No se puede escribir en  !!!C C O:C D: 6  BUXPATH XPATHSTOREXTIPOTHISOBTENER_ARCHIVOS XFULLPATHXARCHIVOXNHANDXTEXTOXFULLPATHSTOREOBTENER_ARCHIVO_NOMBREGENERAR_REGISTROSMENSAJEP_DEV"G+(FE_Funciones_separadores TTCTCTCTCTC BU XTIPOXTEXTOFE_FUNCIONES_SEPARADORESTHISGENERAR_REGISTRO_HEADGENERAR_REGISTRO_LINEGENERAR_REGISTRO_SELIVAGENERAR_REGISTRO_IMPTGENERAR_REGISTRO_SUMM'TC H5 C ]T| C T} C T5 C345խ T 2TT BUXAFIPTHIS TIPO_CBTEXGS1 TIPO_CBTE_GS1   T ? listados   TTCHEADTCVTCCaCCgaCaTC!TCC TCTC  TC#TC XTCC -C C 666TC TCa# TC aTCa# TC a#$TCC a#TC! #TC!"#TC!#aTC!$TC!%#TC!&##TC!TC#TC!##TC!'#"TC!( &TC!("#&TC!(&#&TC!(TC&TC!(#&TC!('#TC)TCTC*TCTCTC+TC,TC%C- TC-TC (TCTCTCCa.TCTCTCTC/TC0&TCC2  a1TC31BC C U4XTEXTO ZEMPNOMBRE ZEMPDIRECCION ZEMPZIPCIUDAD ZEMPPROVPAIS ZEMPTELEFONO ZEMPCUITIVAZEMPCUITZEMPIVA ZIIBB_NUMEROZINICIOXOBJ DATOS_EMPRESALISTADOS PONER_PIPEG PONER_PIPEN0THIS TIPO_CBTE_GS1 PONER_JUNTO2LETRA PUNTO_VTACBTE_NRO FECHA_CBTE FECHA_ENTREGAFECHA_VENC_PAGO_GS1GLNPONER_PIPE_CUITCUITIVACATCOD_ZIPCIUDADPROVINC PROVINCIACLIENTENOMBRENRO_DOCTIPO_IVAIB DIRECCION PROVINCIA_TXTSUCURSALCAE CAE_FECHAFECHA_SERV_DESDEFECHA_SERV_HASTAOC REMITO_PV5FECHA_VENC_PAGO_KRIKOS IMP_MONEDA_ID PONER_PIPENXIMP_MONEDA_CTZOBS T T TCLineaT TTCLINETCTC  TC  TC 2TC aTC aTCa.TCCKGCU6TCaTCaTCaTCaTCTCaTCa/TCC C 6'BCC C 6UXTEXTOXTEXTO2OITNITSYS_MTHISITEMS PONER_PIPEG PONER_PIPENX PRO_EAN13 PRO_CODIGOPRO_DSPRO_QTY PRO_BULTOSPRO_CANT_XBULTOPRO_UMEDPRO_PRECIO_UNI_SDESCPRO_PRECIO_UNI_DESC PRO_BONI_PORC PRO_BONI_IMP PONER_PIPEN0IVA_ID IVA_IMPORTE IMP_TOTAL  T+TCC C 6TCSELIVATCaTCTC a T'BCC C 6U XTEXTOOIVATHISALIC_IVA PONER_PIPEG PONER_PIPENXBASEIMP PONER_PIPEN0IDIMPORTE?  T%TCC 6TCIMPTTCTCTCTC aTC aTC a'BCC C 6U XTEXTOOTRIBTHISTRIBUTOS PONER_PIPEG PONER_PIPEN0ID JURIDICCION PONER_PIPENXBASEIMPALICIMPORTE TTCSUMMTCaTCaTCa TCCaTCaTCaTC a"TCC a%TCCa aTC aTCBC C UXTEXTO PONER_PIPEG PONER_PIPENXTHIS DESC_IMPORTEDESC_PORCENTAJEIMP_NETO IMP_TOTAL IMP_TOT_CONCIMP_IVATRIBUTOS OBTENER_IIBB OBTENER_OTROS IMP_OP_EX PONER_PIPEN0ITEMSCOUNT Obtener_IDAObtener_Archivo_NombreObtener_Archivos6Obtener_ArchivoGenerar_Registrostipo_CBTE_GS1_Access]Generar_Registro_HEADGenerar_Registro_LINE$Generar_Registro_SELIVAGenerar_Registro_IMPTbGenerar_Registro_SUMM~ T         U TIPO_CBTE_GS1 fe_cpbt_GS1fe_Comprobante:fe_objetos.prg3!q11112qq12ArQAQ!1A!cAA2qq!QQQQQ2qbqQA3q1aaA111Q11#aaaQaaRQRRQQQAQRQaR21!AAr2AAq2AQQAq2q"QS3@1f  El+P 56| FH3[A$%&'K)x)D->N-%g>W TGAB$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T CFBU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPPROCESARTC 4G(9 >1sys_procesandoConsultando pedidove_exportar_acopioG+(listados#T \tmp\TCC]R  ve_pedidoa%C q_pedidosQ Zotccvent  Ca  6 q_pedidos~/%CC ZCZTVENTASPedITM>  > %CdetalleQ%Cdetalle1QroventasQXitm_descQ CZ 6 C 7Z q_pedidosccventQ Q  QC    6Q Q !Q!C " !  !6Q#Q#"$%&'(CXQ)*+Q,Q-Q.C/0/ 6Q1Q2 Q3  q_ven_1|oventasQXitm_descQ CZ 6 C 7Z q_pedidosccventQ Q  QC    6Q Q !C " !  !6Q#Q#"$%&'(CXQ)*+Q,Q-Q.C/0/ 6Q1Q2 Q3     q_ven_2@oq_ven_2Q;q_ven_1Q;q_ven%=>? %Cv2F@Q0QA\data\CC=Z\ventas@%Cc2FBQ0QA\data\CC=Z\ccventB%Ci2,FCQ2QA\data\CC=Z \itm_descClov2QXi2Q CZ 6 C 7Z q_pedidosc2Q Q  QC    6Q Q !C " !  !6Q#"$%&'(CXQ)*+Q,Q-Q.C/0/ 6Q1Q2 Q3  & q_ven2_1zov2QXi2Q CZ 6 C 7Z q_pedidosc2Q Q  QC    6Q Q !C " !  !6Q#"$%&'(CXQ)*+Q,Q-Q.C/0/ 6Q1Q2 Q3     & q_ven2_2Coq_ven2_2Q;q_ven2_1Q;q_ven2,o q_ven2q_venǼdetalle  oq_venǼdetalleFCacopioG- TH3Ki1detalleINJNKC6& CAZ6CCZL#)_>)CCCRg RE  FC 621KC%NOSI6!>,-25>#'2%H >I2r>2r TO TP ~TOO2 >.OTPPI >JP ; TO ~7TOO-2 >.OTQ \tmp\acopio (Q TRCN%R+CNo hay datos para exportar !!!STve_exportar_acopioBCtccventtccvord"CUclientescodcli%VWS=TXY WTXVZG+(listadosG~(ClasesT[C ExportacionesN(T\CExportaciones_ParametrosNT\]Acopio CCZT\^QT\_Acopio CCZ C\`Cfec_venFecha\`"Ccpbt Comprobante\`"Ccod_insArtculo\`&Cdesc_ins Descripcin\`$C recepcionCantidad\`!Ccos_lifoPrecio\`#Cdes_ins Descuento\`CbajaBaja\`CcomplCompl.\`%H%Caux Acopio Brutoa\`"Ctot_venBrutoa\`%Caux2 Acopio Netoa\`CnetoNetoa\`CsaldoSaldo\` R#Cneto Facturadoa\`&CremitidoRemitidoa\`T\aC\[bTve_exportar_acopioBUcXPEDIDO ACTIVEFORM DATASESSIONID SP_MENSAJESYS_PROCESANDOUNUSEVE_EXPORTAR_ACOPIOLISTADOS XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDO Q_PEDIDOSPEDIDOACOPIOTCCVENTEST_DESPTVENTASDETALLEDETALLE1VC CC_PEDIDOFAC_VENCAUSAREM_VENFEC_VENTOT_VENCOEFICVERSIONITMOITMIOLDITEMFCDERE RECEPCIONMOTIVONOSTKCOMPLCOS_LIFODES_INSCPBTCOD_INSDESC_INSAUXAUX2SALDODES_COMDEUDAFACTORNETO POR_PLATAVENTASITM_DESCCOMPROBITEMCCVENTQ_VEN_1Q_VEN_2EMPQ_VENP_DOSP_CODEMPP_UNOV2P_SYSTEMC2I2Q_VEN2_1Q_VEN2_2Q_VEN2SYS_MXPLATAREMITIDOREMIACCBAJAORDENALLFORACCACCRXTABLA XREGISTROSMENSAJEBYECOD_CLICLIENTESTARJETAXNOMBREDES_CLIENOMBREXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS=ve_exportar_acopiosys_procesandoBUUNUSEVE_EXPORTAR_ACOPIOSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDO%Cc2Q%Cv2:Q%Ci2YQ%C q_pedidosQ%Cq_venQ%Cq_ven2Q%CqueryQ%Cquery1 Q%Cquery2,Q%Cq_estadoQQ %CdetalleuQ %Cdetalle1Q BU C2V2I2 Q_PEDIDOSQ_VENQ_VEN2QUERYQUERY1QUERY2Q_ESTADODETALLEDETALLE1procesarbyeunuse`BQB2ArB2q2A"5AB3ABAA !''4qAA2qAA2qAA"&'3Bt2bQRBQAA2BB!sA#!!!aA1Q!Q4bB B2B22A1A1AAaAqAaAqAqAAAAB1*"'**k*,u0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6F716JCWR1428594264/F] WINDOWS _6F716JCWS1463450486!y WINDOWS _6F812E3221463449632\B>C WINDOWS _6NW0Q53AQ1463448967k)9] WINDOWS _6F717EVZH1461685295-  WINDOWS _6F71BN0OA1428660711a  WINDOWS _6F71BN0OB1463448967L7'D  WINDOWS _6P811MSJO14616852950 . COMMENT RESERVED ',VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_abm2_1 clases.vcxformFormulario_abm2_11Height = 650 Width = 1000 DoCreate = .T. Caption = "Seleccin de propiedades por defecto" opropiedades = .F. xcod_ins = .F. xbul = .F. xatr = .F. xgrupo = 0 Name = "Formulario_abm2_11" Command1.Top = 624 Command1.Left = 427 Command1.Anchor = 260 Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 624 Command2.Left = 511 Command2.Anchor = 260 Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.Top = 625 AYUDA.Left = 951 AYUDA.TabIndex = 8 AYUDA.Name = "AYUDA" Text1.Left = 924 Text1.TabIndex = 9 Text1.Top = 624 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" LABEL1.TabIndex = 6 LABEL1.Name = "LABEL1" Label2.TabIndex = 7 Label2.Name = "Label2" Text2.ControlSource = "abmprop_predet.Codigo" Text2.TabIndex = 1 Text2.Name = "Text2" Text3.Anchor = 10 Text3.ControlSource = "abmprop_predet.nombre" Text3.Height = 25 Text3.Left = 206 Text3.TabIndex = 2 Text3.Top = 2 Text3.Width = 790 Text3.Name = "Text3" Pageframe1.ErasePage = .T. Pageframe1.Page1.Name = "Page1" Pageframe1.Anchor = 15 Pageframe1.Top = 33 Pageframe1.Left = 2 Pageframe1.Width = 994 Pageframe1.Height = 591 Pageframe1.TabIndex = 3 Pageframe1.Name = "Pageframe1" GPROCEDURE inicializar_propiedades LPARAMETERS xInicial LOCAL oProp, oEst2, oEst3 oProp = sys_propiedades(, , , , 1, , THISFORM.xcod_ins, , thisform.xatr , thisform.xbul, , .t., thisform.xgrupo,,2 ) IF NOT EMPTY(abmProp_Predet.Props) THEN xJSON=abmProp_Predet.Props oEst2=oProp.Estados oEst2.estado_json_leer (xJSON) oEst2.Estado_aplicar(oProp) oEst3 = oProp.Estados_CONVALOR ENDIF p_suspend=.t. =sys_m("aplicando") THISFORM.opropiedades=oProp THISFORM.pageframe1.page1.ocontenedor.propiedad = oProp *IF NOT EMPTY(abmProp_Predet.Props) THEN THISFORM.tmrInit.ENABLED = .T. * ELSE * thisform.pageframe1.page1.ocontenedor.redimensionar_internos *ENDIF ENDPROC PROCEDURE procesar_aceptar LOCAL oPro, oEst, xJSON oPro=Thisform.pageframe1.page1.ocontenedor.propiedad oEst=oPro.Estados_ConValor xJSON=oEst.ESTADO_JSON_Obtener() replace Props WITH xJSON, cod_ins WITH thisform.xcod_ins , bul WITH thisform.xbul, atr WITH thisform.xatr, grupo WITH thisform.xgrupo IN abmProp_Predet thisform.pageframe1.page1.ocontenedor.dispose () ENDPROC PROCEDURE procesar_cancelar thisform.pageframe1.page1.ocontenedor.dispose () ENDPROC PROCEDURE inicializar_controles THISFORM.PAGEframe1.Page1.LIs_codbulatr1.VALOR_COd = abmprop_predet.cod_ins THISFORM.PAGEframe1.PAGE1.LIs_codbulatr1.VALOR_atr = abmprop_predet.atr THISFORM.PAGEframe1.PAGE1.LIs_codbulatr1.VALOR_BUL = abmprop_predet.bul thisform.pageframe1.page1.cod_desc_gru1.valor = abmprop_predet.grupo thisform.xcod_ins = abmprop_predet.cod_ins thisform.xatr = abmprop_predet.atr thisform.xbul = abmprop_predet.bul thisform.xgrupo = abmprop_predet.grupo thisform.text2.Enabled = (thisform.tipoabm =1) thisform.inicializar_propiedades (.t.) ENDPROC PROCEDURE validar parameters xmsg if thisform.tipoabm=1 * Agregar sele prop_predet xorder=order() set order to codigo registro=recno() seek thisform.text2.value if found() xmsg='Cdigo repetido !!!' set order to (xorder) go registro return .f. else return .t. endif endif return .t. ENDPROC "#%Qf`U TaU P_SUSPENDClick011) containeraTop = 624 Left = 972 Height = 24 Width = 24 Enabled = .F. Interval = 100 Name = "tmrInit" timer)PROCEDURE Click p_suspend=.t. ENDPROC  clases.vcxtimer commandbuttonCommand3Formulario_abm2_11PROCEDURE Timer this.Enabled = .f. thisform.pageframe1.page1.ocontenedor.propiedad_valores_asignar() thisform.pageframe1.page1.ocontenedor.Visible = .t. *=sys_m("redim") thisform.pageframe1.page1.ocontenedor.redimensionar_internos ENDPROC Formulario_abm2_11tmrInit commandbuttonArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 Top = 42 Left = 11 dato = xgrupo dato_tabla = thisform Name = "cod_desc_gru1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" #Formulario_abm2_11.Pageframe1.Page1 cod_desc_gru1 container clases.vcx cod_desc_gru@PROCEDURE Click Thisform.inicializar_propiedades () ENDPROC hTop = 8 Left = 667 Height = 27 Width = 89 Caption = "Propiedades" TabIndex = 2 Name = "Command1" #Formulario_abm2_11.Pageframe1.Page1Command1 commandbutton commandbutton#Formulario_abm2_11.Pageframe1.Page1Lis_codbulatr1 container clases.vcx lis_codbulatrTop = 85 Left = 9 Width = 756 Height = 21 BorderWidth = 1 Visible = .F. TabIndex = 3 BorderColor = 255,0,0 cont_hijos_crear = .F. cont_hijos_left_separacion = 0 cont_hijos_top_separacion = 0 contenedor_principal = .T. Name = "oContenedor" #Formulario_abm2_11.Pageframe1.Page1 oContenedorpropiedades_containerXTop = 48 Left = 600 Height = 25 Width = 49 Caption = "Command3" Name = "Command3" iopropiedades xcod_ins xbul xatr xgrupo *redimensionar *redimencionar *inicializar_propiedades Top = 3 Left = 10 Width = 654 Height = 40 TabIndex = 1 atr = Thisform.xAtr bul = Thisform.xBul cod = Thisform.xCod_Ins Name = "Lis_codbulatr1" cmd_filtro.Name = "cmd_filtro" Cod_desc_bie1.Label2.Name = "Label2" Cod_desc_bie1.Text8.Name = "Text8" Cod_desc_bie1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_atr1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_atr1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_atr1.Name = "Cod_desc_atr1" Cod_desc_bie1.Cod_desc_bul1.Label2.Name = "Label2" Cod_desc_bie1.Cod_desc_bul1.Text8.Name = "Text8" Cod_desc_bie1.Cod_desc_bul1.Text9.Name = "Text9" Cod_desc_bie1.Cod_desc_bul1.Name = "Cod_desc_bul1" Cod_desc_bie1.Name = "Cod_desc_bie1" Text1.Name = "Text1" "f%kzU CUTHISFORMINICIALIZAR_PROPIEDADESClick0115){"bbж% UQT-CTaU THISENABLEDTHISFORM PAGEFRAME1PAGE1 OCONTENEDORPROPIEDAD_VALORES_ASIGNARVISIBLEREDIMENSIONAR_INTERNOSTimer01aq21)b"% 7U5TCa %C T  T C CT TaC aplicandoTTTaUXINICIALOPROPOEST2OEST3SYS_PROPIEDADESTHISFORMXCOD_INSXATRXBULXGRUPOABMPROP_PREDETPROPSXJSONESTADOSESTADO_JSON_LEERESTADO_APLICARESTADOS_CONVALOR P_SUSPENDSYS_M OPROPIEDADES PAGEFRAME1PAGE1 OCONTENEDOR PROPIEDADTMRINITENABLEDTTTC E>    CUOPROOESTXJSONTHISFORM PAGEFRAME1PAGE1 OCONTENEDOR PROPIEDADESTADOS_CONVALORESTADO_JSON_OBTENERPROPSCOD_INSXCOD_INSBULXBULATRXATRGRUPOXGRUPOINABMPROP_PREDETDISPOSECUTHISFORM PAGEFRAME1PAGE1 OCONTENEDORDISPOSETTT  T  TTT T TCaUTHISFORM PAGEFRAME1PAGE1LIS_CODBULATR1 VALOR_CODABMPROP_PREDETCOD_INS VALOR_ATRATR VALOR_BULBUL COD_DESC_GRU1VALORGRUPOXCOD_INSXATRXBULXGRUPOTEXT2ENABLEDTIPOABMINICIALIZAR_PROPIEDADES4%F TCG((codigo TCOE%C4 TCdigo repetido !!! G(( #B- BaBaU XMSGTHISFORMTIPOABM PROP_PREDETXORDERCODIGOREGISTROTEXT2VALUEinicializar_propiedades0procesar_aceptar\procesar_cancelarinicializar_controles*validar1qRRBa6Sc2a211113qasrqAAr1#;c*-%<<)%]=LWٶ>TC 9G(9 C C%CxTablabC1%C FQ%CTMPTablaFTMPTablaQFQ~F%C-  C B- C BG+(listadosG~(clases% TT-!sys_cambio_de_codigo_de_proveedor(%0CCambiando cdigo:  -->  3 T T T Ta%3 TtrsacProveedobienestcomprascomprasconverdespachoCHQCCOFABCODXPROIMPORTACCASHDATACOM_OPERCCPROVCASHEXPACCCOMPTCCCOMPCASHADIC2T%sys_cambio_de_codigo_de_proveedor.PRGDTCambio de Cdigo de Proveedor: C pas a C TtrsacC%C  T!trsac C %% 6C)El proceso ha concluido correctamente !!!" (C Correcto:  -->  " T#%CError:  --> "B- T#BU$XTABLA XPORIGINALXPORIBUL XPCICLICO ACTIVEFORM DATASESSIONID OPEN_FILESTMPTABLACONFIRMA!SYS_CAMBIO_DE_CODIGO_DE_PROVEEDORCODIGORCODIGO MENSAJE_CLEARLISTADOSCLASESORIGINALOBIEDATA_CODIGO_VACIODESTINO XRESULTADO MENSAJE_WAITXTIPXPTIP XPDESTINOAAALOCK_GTRSACTRAN_PRGTRAN_TXTBEG_TRANREEMP1 TTS_ERRORREEMP1_DIARIOSEND_TRANMENSAJETTS_IDM 4GF>F>F>F>F >%> C \C =F >F >F >F>F>F>F>F>F>F#> P F>F>G BU XORIGINALXDESTINOPROVEEDOCOD_PROFORCODXPROCODIGOCOMPRASTCOMPRASCCPROVIDCCCOMPTCCCOMPCHQ PROVEEDORCOM_OPERCONVERDESPACHOBIENESCCOFABIMPORTACCASHDATAPROCLICASHEXPAPROVCASHADIC F ~ %CDiarioGIFQF$Q\C\diariog#> P Q( F gesU XORIGINALXDESTINOEJERCONDIARIOGP_SERVERDIRCODIGOFORPROCLIOEXGESe%CProveedo .Qproveedo%Cbienes \Qbienes%Ctcompras Qtcompras%Ccompras Qcompras%Cconver Qconver%Cdespacho Qdespacho%CCHQ FQchq%CCCOFAB tQccofab%CCODXPRO Qcodxpro%CIMPORTAC Qimportac%CCASHDATA Qcashdata%CCOM_OPER :Qcom_oper%CCCPROV hQccprov%CCASHEXPA Qcashexpa%CCCCOMP Qcccomp%CTCCCOMP Qtcccomp%CCASHADIC *Qcashadic%Cejercon ZQejerconBUPROVEEDOBIENESTCOMPRASCOMPRASCONVERDESPACHOCHQCCOFABCODXPROIMPORTACCASHDATACOM_OPERCCPROVCASHEXPACCCOMPTCCCOMPCASHADICEJERCONreemp1reemp1_diarios' open_filesO BAA!AAqqAAAA"AA "A"2!A1aAQqACB2brqrqrqrqrqQrqrqrqrqsqrqrqrqrqr1rqrqbA2qqAAA1ABqA3AA!AAA1A!AAAQA!A1AAAAAAA!AAA!A1AAA1AB1Iq tq 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _3SC0L00OI1118916091/F] WINDOWS _3SC0L00OJ1465345385 ' WINDOWS _3SC0L00OK1458347510&3@Nk WINDOWS _3SC0L00OL1465345269,I WINDOWS _3SC0L00OM1465345269 WINDOWS _3SC0L00OI1465345269kz WINDOWS _3SC0L00OJ1465345269 / > K h WINDOWS _6QP0R4Y941465345269   WINDOWS _6QP0R4Y951465345269  COMMENT RESERVED o VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 239 Width = 383 DoCreate = .T. Caption = "Test Bloqueos" Name = "Formulario_acep_canc1" Command1.Top = 211 Command1.Left = 120 Command1.Name = "Command1" Command2.Top = 211 Command2.Left = 204 Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" PROCEDURE procesar_aceptar *do Sys_lockear_test with alltrim(thisform.text1.Value),alltrim(thisform.text2.Value),alltrim(thisform.text3.Value),alltrim(thisform.text4.Value) ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Formulario_acep_canc1Text7labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Tablas a bloquear" Height = 17 Left = 12 Top = 21 Width = 103 Name = "Label1" textboxtextboxText2Formulario_acep_canc1eControlSource = "xxx1" Format = "!" Height = 23 Left = 59 Top = 48 Width = 264 Name = "Text2" textboxtextboxText3Formulario_acep_canc1eControlSource = "xxx2" Format = "!" Height = 23 Left = 59 Top = 72 Width = 264 Name = "Text3" textboxtextboxText4Formulario_acep_canc1eControlSource = "xxx3" Format = "!" Height = 23 Left = 59 Top = 96 Width = 264 Name = "Text4" textboxtextboxText5Formulario_acep_canc1fControlSource = "xxx4" Format = "!" Height = 23 Left = 59 Top = 120 Width = 264 Name = "Text5" textboxtextboxText6Formulario_acep_canc1fControlSource = "xxx5" Format = "!" Height = 23 Left = 60 Top = 144 Width = 264 Name = "Text6" textboxtextboxfControlSource = "xxx6" Format = "!" Height = 23 Left = 60 Top = 168 Width = 264 Name = "Text7" "P9%;YUUUprocesar_aceptar012)0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0B40WRJPU 710692590/F] WINDOWS _0B40WRJPV1465563464@ WINDOWS _0B40WUM901465563315SSbi WINDOWS _0B40WRJPU1465563464 COMMENT RESERVED c VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 12moduloges.vcxformModulo1Height = 87 Width = 579 ShowWindow = 2 DoCreate = .T. Caption = "Epsilon" MDIForm = .T. Icon = bmp\herramientas.ico WindowType = 1 menu = es_menu_ese Name = "Modulo1" PROCEDURE Init g_especial = g_especial + 1 =dodefault() wait clear ENDPROC PROCEDURE Load =DODEFAULT() =sets() wait window nowait 'Inicializando...' set proc to es_comienzo addi =abrir_tablas_fijas() if !locales.es_ini =mensaje("Mdulo no configurado !!!") wait clear return .f. endif =variables_publicas() =open_files() wait clear ENDPROC PROCEDURE Release g_especial = g_especial - 1 dodefault() ENDPROC PROCEDURE Click DO exportar_vencimiento ; IN SQL_Rptinventarioactual ; WITH ; "", ,, , , , ,, .T. =mensaje("Se han creado los alertas necesarios!!!") ENDPROC Command7AArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 Command1 commandbutton commandbutton commandbutton commandbuttonModulo1,PROCEDURE Click thisform.release ENDPROC Modulo1Top = 2 Left = 130 Height = 65 Width = 65 FontSize = 7 WordWrap = .T. Picture = bmp\salir.gif Caption = "Salir" TabIndex = 3 ZOrderSet = 0 Name = "Command7" Top = 2 Left = 2 Height = 65 Width = 65 FontSize = 7 WordWrap = .T. Picture = bmp\egresos.ico Caption = "Vencimientos" TabIndex = 1 ToolTipText = "Pedido con Anlisis Automtico" ZOrderSet = 2 Name = "Command1" h"OO%%UHSQL_Rptinventarioactuala4C'Se han creado los alertas necesarios!!!UEXPORTAR_VENCIMIENTOSQL_RPTINVENTARIOACTUALMENSAJEClick01A1)O"]^%XmgU UTHISFORMRELEASEClick011!)"ttDf% U"T CR U G_ESPECIAL C CR,:Inicializando...G+( es_comienzo C% &CMdulo no configurado !!!R B- C CR USETS ES_COMIENZOABRIR_TABLAS_FIJASLOCALESES_INIMENSAJEVARIABLES_PUBLICAS OPEN_FILEST CU G_ESPECIALInit0LoadfRelease1R5R2aQqAR32Mhv  )t %!y$"yxW{$K      eG(9 o  TTCCG+(listados-QMSSQLsys_clases_Conexion.PRGC Iniciando SQL6TCloguear_actualizacion_bi sys_log.prgTa!CObteniendo SQL BI"es_bi_funcionesa%C! % C""!%#CDev?$  B-TC %C3T%CC$& J T%T'CC3 $ T6CIniciando proceso: C%* - C'*% &C%'(% &C')% W&C%'*% &C%'+% &C',% &C%'-% ?&C%'.% mCte_sql_cheques_en_carteraCheques_En_Carterarpt_te_cheques_en_cartera/% &C%'0% YKCSQL_RptClientesClientes RPTClientes/% TCSQL_RptProveedores ProveedoresRPTProveedores/% HCSQL_RptCentrosCentros RPTCentros/U1XAUTXPERIODOXDESDEXHASTAXNOSUBIRXMSG XNOVENTAS XNOCCCLIENTESXNOCCPROVEEDORES XNOCOMPRASXNOORDENESCOMPRA XNORECIBOSXNOPAGOS XNOCHQCARTERAXNOCHQEMITIDOS XNOCLIENTESXNOPROVEEDORES XNOCENTROS ACTIVEFORM DATASESSIONIDXOLD_PI_XLS_EXPORTAR_CAMPOSXEXPPATHPI_XLS_EXPORTAR_CAMPOSODEYFUNCGET_PATH_TMP_IDULISTADOSOSQLSYS_MOLOGCON_FECHA_HORALOGBI_OBTENER_SQL_BIES_BI_FUNCIONESCONECTARMENSAJEP_DEV MENSAJE_SINO XDPERIODODT_MES_ANTERIOR_PRIMER_DIA XHPERIODOEXPORTAR_VENTASEXPORTAR_CC_CLIENTESEXPORTAR_RECIBOSEXPORTAR_COMPRASEXPORTAR_CC_PROVEEDORESEXPORTAR_ORDENES_COMPRAEXPORTAR_PAGOS CREAR_SUBIREXPORTAR_CHEQUES_EMITIDOS+ T  TC ejecutar_SQL TC C Obteniendo %C "DO &xSQL IN &xPRG WITH &xParam DO &xSQL IN &xPRG %C No Subir kC Subiendo 4C \tmp\.DBF C Terminado UXPRGXSQLXPARAMXNOMBREXTABLAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG SQL_SUBIR_DBCP_LOCALTCheques+CCheques emitidos Obteniendo* te_sql_cheques_emitidosF.Q \tmp\rpt_te_cheques_emitidos.DBF$i1rpt_te_cheques_emitidos Q%!CActivado No Subir )CCheques emitidos SubiendoRC \tmp\rpt_te_cheques_emitidos.DBFCheques_Emitidos*CCheques emitidos TerminadoUXDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQLTE_SQL_CHEQUES_EMITIDOSP_LOCALRPT_TE_CHEQUES_EMITIDOSTXT SQL_SUBIR_DBCTRecibos"CRecibos Obteniendo! te_sql_recibos%!CActivado No Subir  CRecibos Subiendo@C \tmp\rpt_te_recibos.DBFRecibos -CRecibos Aplicaciones SubiendoVC $\tmp\rpt_te_recibos_aplicaciones.DBFRecibos_Aplicado !CRecibos TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQLTE_SQL_RECIBOS SQL_SUBIR_DBCP_LOCAL/TPagos CPagos Obteniendo  te_sql_pagos%"CActivado No Subir  CPagos Subiendo<C \tmp\rpt_te_pagos.DBFPagos CPagos TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQL TE_SQL_PAGOS SQL_SUBIR_DBCP_LOCALTCC_Proveedores)CCC Proveedores ObteniendoO "cm_ctacte_proveedores_detallada_v2%"CActivado No Subir t'CCC Proveedores Subiendo\C ,\tmp\rpt_cm_ctacte_proveedores_detallada.DBFCC_Proveedores (CCC Proveedores TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQL"CM_CTACTE_PROVEEDORES_DETALLADA_V2 SQL_SUBIR_DBCP_LOCAL}T CC_Clientes&CCC Clientes ObteniendoD ve_sql_cuentas_corrientes%"CActivado No Subir Q$CCC Clientes SubiendoMC \tmp\rpt_ve_cta_cte_completo.DBF CC_Clientes %CCC Clientes TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQLVE_SQL_CUENTAS_CORRIENTES SQL_SUBIR_DBCP_LOCAL[TCompras"CCompras Obteniendo0 cm_sql_pagos_con_imputaciones%"CActivado No Subir 3 CCompras SubiendoOC &\tmp\rpt_cm_pagos_con_imputaciones.DBFCompras !CCompras TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQLCM_SQL_PAGOS_CON_IMPUTACIONES SQL_SUBIR_DBCP_LOCALTOrdenes_Compra,COrdenes de compra Obteniendo7 cm_sql_compras%"CActivado No Subir M*COrdenes de compra SubiendoGC \tmp\rpt_cm_compras.DBFOrdenes_Compra +COrdenes de compra TerminadoU XDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSLOG EJECUTAR_SQLCM_SQL_COMPRAS SQL_SUBIR_DBCP_LOCAL)TVentas  !CVentas obteniendo ;T C!exportaciones_crystal_propiedadesimp_expCxdfec Cxhfec CxdLog1- CxdLog2a CxdLog3a CxdLog4a Cxdcostos Cxdrema Trpt_ve_estadisticasCExportando datos . ve_sql_estadisticas.prg C(CProcesando datos exportados F&Q\tmp\tmp_exp_est.dbf>C(\tmp\tmp_exp_est2.dbf !"#$%&'()*+,-./0123456789:;<=>?QF6Q#\tmp\rpt_ve_estadisticas_costos.DBF@& ACBCF(Q\tmp\tmp_exp_est2.dbf$i1extgenDN$i1extgenENG-(C@>D@F>EDFQF@Q)CSubiendo archivos procesados %"CActivado No Subir CVentas Subiendo @C\tmp\tmp_exp_est2.dbfVentasH CVentas Terminado UIXDESDEXHASTAOSQLXMSGOLOGXNOSUBIRXEXPPATHPI_XLS_EXPORTAR_CAMPOSXTABLAOPROPSLOG PROP_AGREGAR ESTADO_INCEXPORTACION_GENERICA_TABLAVE_SQL_ESTADISTICASPRG ESTADO_INIP_LOCALEXTGENDMOTIVOFORCAUSA COMPROBANTFECHACODIGOATRBULDESCRDCODDATRDBULCANTIDADMEDIDAPRECIODESCTOSIMPORTECOD_CLISUCNOMBREVENDEDORLINEADLINEAGRUPODGRUPOSUBGRUPO SUPERGRUPOZONADZONACATDCAT PROVINCIAMOTIVOES_VENTACOD_NCNDA1A2A3A4RFCPESOXUFACTOR MEDIDAAUXECOMPLITM TMPCOSTOSCODFECIDCOSTOCOSTO COSTOTOTALCOSALL SQL_SUBIR_DBC crear_subir Exportar_Cheques_Emitidos Exportar_Recibos Exportar_Pagosexportar_cc_proveedoresexportar_cc_clientesExportar_ComprasExportar_Ordenes_CompraExportar_ventasAA"qa!BAqAB3qAbbBbAaAaAaAaAaAAaAAAAA21!!QAAA3AA!A3!aA3a!A4!sA5aA!AAQ3!!A3q!qA3qqqqqaaQD AaAA!tAqA!A`1G hY^iw&%= _ W !XTC TC 6TCloguear_sincronizaciones sys_log.prgG+(listados C 0C#Iniciando el proceso de importacin C C C <U XFILTROCLI XFILTROBIE XBATCHCLI XBATCHBIEP_SINC_AGES_CLIENTES_FILTROP_SINC_AGES_ARTICULOS_FILTROOLOGLISTADOSWWCLIENT ESTADO_INI ESTADO_INCSINCRONIZAR_CLIENTESSINCRONIZAR_ARTICULOS ESTADO_REL TC `BC:oAGESServer.oTablas.oSincronizaciones.Obtener_Clientes(, [])ClientesUXFILTROOLOGSINCRONIZAR_LLAMADA TC bBC;oAGESServer.oTablas.oSincronizaciones.Obtener_Articulos(, []) ArticulosUXFILTROOLOGSINCRONIZAR_LLAMADA=QJSON_ARCHIVO_COLLavfp_objects_definiciones.prg'CIniciando actualizacin"%C oAGESServerbO <7sys_AGES/C: Obteniendo los datos remotos oResp= &xLlamada %  m)CError de actualizacionC C B-=QJSON_ARCHIVO_COLLavfp_objects_definiciones.prgQSTRINGTCITCJSON_Archivo_Collavfp_objects_definiciones.prg-C: Analizando datos obtenidos TC-C: Actualizando datos locales %dbfCCUXLLAMADAXGRUPOOLOGORESPAVFP_OBJECTS_DEFINICIONESPRGLOG OAGESSERVEROBTENER_AGESSERVERSYS_AGES ESTADO_INCRES_TIPO RES_MENSAJEMENSAJEOCOLLXPATHODFGET_PATH_TMP_IDURECUPERAR_ARCHIVOSOTABLARES_COLL EXTENSIONNOMBREPROCESAR_ARCHIVOZ<Q RES_ARCHIVO2avfp_objects_definiciones.prg%C TMPOriginal`Q%CTMPNuevaQQQ%TC . TMPOriginal."T C . TMPNueva.1CRecuperando el archivo  F ~ ^J F"LOCATE FOR &xFiltroO=&xFiltroD %C4CAct: C  _J CNue: C   _J F$C Terminada  %C TMPOriginal.Q%CTMPNuevaSQU OTABLAAVFP_OBJECTS_DEFINICIONESPRGOLOG TMPORIGINALTMPNUEVANOMBRE PATH_FINALXFILTROOCLAVEXFILTRODLOGOOBJSincronizar_ClientesSincronizar_ArticulosSincronizar_LlamadaaProcesar_Archivo\111ua"q!!q2121!4q&qqqAAaaqAQBa!AA2AArqR!rr!QArAAAA16b@ 4 G0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6S10YU9L11468695018/F] WINDOWS _6S10YU9L21485072778 'h%6 WINDOWS _6S10YU9L31485072700 & 6 D a WINDOWS _6S10YU9L41485072700 WINDOWS _6S10YU9L11485072700 WINDOWS _6S10YU9L61485072700w 8 2 WINDOWS _6S10YU9L11485072700 WINDOWS _6S10YU9L21485072700Xer WINDOWS _6S10YU9L91485072700I^sV0 WINDOWS _6S10YU9LA1485072700 . WINDOWS _6S10YU9L11485072700Sh}v- WINDOWS _6S10YU9LC1485072700o !4, WINDOWS _6S20M5YWL1485072700##### WINDOWS _6S20M5YWM1485072700V$c$p$~$$ WINDOWS _6S10YU9L11485072700d%y%%%%=& WINDOWS _6S10YU9L11485072700Z SC&"'| WINDOWS _6S30QHLJQ1485072700O @" WINDOWS _6S30R4Y1I1485072700E WINDOWS _6S30R4Y1J1485072700h' WINDOWS _6S60YGSDR1485072700q#~#' WINDOWS _6S90K1WCM1485072700>)O(* WINDOWS _6SZ0OLI1S1485072700t_t&wt) WINDOWS _6VB0S7UU31485072778g COMMENT RESERVED 8+VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc19BorderStyle = 2 Height = 391 Width = 674 DoCreate = .T. Caption = "Reclamo" form_reporte = .F. crystal_view = .F. Name = "Formulario_acep_canc1" Command1.Top = 363 Command1.Left = 270 Command1.TabIndex = 11 Command1.Name = "Command1" Command2.Top = 363 Command2.Left = 342 Command2.TabIndex = 12 Command2.Name = "Command2" AYUDA.TabIndex = 23 AYUDA.Name = "AYUDA" Text1.TabIndex = 24 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.TabIndex = 25 advertencia.Name = "advertencia" PROCEDURE Init parameters xresultado, xbloquear if !used("climail") use climail in 0 endif thisform.command17.Enabled =!xbloquear thisform.command18.Enabled =!xbloquear thisform.command20.Enabled =!xbloquear thisform.command21.Enabled =!xbloquear thisform.command6.Enabled =!xbloquear and type("climail.ws")="C" && Whatsapp thisform.label6.Enabled=xbloquear ENDPROC AutoSize = .T. FontSize = 8 WordWrap = .T. BackStyle = 0 Caption = "Para habilitar los botones debe generar el reclamo desde la columna de empresa." Height = 16 Left = 141 Top = 337 Width = 391 TabIndex = 26 ForeColor = 255,0,0 Name = "Label6" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Formulario_acep_canc1Command7 commandbutton commandbuttonCommand6form_reporte crystal_view comboboxcomboboxCombo1Formulario_acep_canc17Anchor = 6 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "115,25" RowSourceType = 1 RowSource = "E-mail,1,Telefnico,2,Whatsapp,3,Otro,99" Value = 0 ControlSource = "xtipo" FirstElement = 1 Height = 24 Left = 96 NumberOfElements = 0 Style = 2 TabIndex = 2 Top = 56 Width = 226 Name = "Combo1" labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 6 BackStyle = 0 Caption = "Tipo" Height = 17 Left = 14 Top = 60 Width = 26 TabIndex = 18 Name = "Label2" labellabelLabel4Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 6 BackStyle = 0 Caption = "Vencimiento" Height = 17 Left = 14 Top = 91 Width = 73 TabIndex = 21 Name = "Label4" textboxtextboxText2Formulario_acep_canc1qAnchor = 6 ControlSource = "xvenc" Height = 23 Left = 96 TabIndex = 3 Top = 88 Width = 93 Name = "Text2" 'PROCEDURE InteractiveChange thisform.dia.Caption=iif(dow(xvenc)=1,"Domingo",iif(dow(xvenc)=2,"Lunes",iif(dow(xvenc)=3,"Martes",iif(dow(xvenc)=4,"Mircoles",iif(dow(xvenc)=5,"Jueves",iif(dow(xvenc)=6,"Viernes","Sbado")))))) ENDPROC PROCEDURE Valid thisform.dia.Caption=iif(dow(xvenc)=1,"Domingo",iif(dow(xvenc)=2,"Lunes",iif(dow(xvenc)=3,"Martes",iif(dow(xvenc)=4,"Mircoles",iif(dow(xvenc)=5,"Jueves",iif(dow(xvenc)=6,"Viernes","Sbado")))))) ENDPROC PROCEDURE DblClick this.Value=date() ENDPROC PROCEDURE Init this.Valid ENDPROC  "7%U3TC$T UXFECHATHISFORMTEXT2VALUEVALIDClick0122Z)2"f%UX TC$<TCC)C) C)6 UXFECHATHISFORMTEXT2VALUEVALIDClick012)Text3Formulario_acep_canc1labellabellabelePROCEDURE Click xfecha=date()+7 thisform.text2.Value=xfecha thisform.text2.valid ENDPROC Formulario_acep_canc1editboxeditboxEdit1Formulario_acep_canc1wAnchor = 6 Height = 71 Left = 96 TabIndex = 4 Top = 117 Width = 564 ControlSource = "nota.nota" Name = "Edit1" labellabelLabel5Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 6 BackStyle = 0 Caption = "Nota reclamo" Height = 17 Left = 14 Top = 120 Width = 78 TabIndex = 20 Name = "Label5"  commandbutton commandbutton Command17Formulario_acep_canc1Top = 276 Left = 144 Height = 60 Width = 77 FontBold = .F. Anchor = 6 Picture = bmp\reporte.ico Caption = "Reporte" TabIndex = 6 Alignment = 2 Name = "Command17" LPROCEDURE Click thisform.enabled=.f. LOCAL oform thisform.crystal_view=.t. DO Ejecutar_Reporte IN ve_sql_cuentas_corrientes WITH ; 99,,, xCod_cli, xCod_cli, xfec_cpbt, xpend_comp , xmoneda + 1,.f.,.t.,.f., oform thisform.form_reporte=oForm *thisform.bloqueo.bloquear=.t. oForm.show(1) thisform.enabled=.t. ENDPROC ControlSource = "clientes.contaccob" Enabled = .F. Height = 23 Left = 96 TabIndex = 1 Top = 25 Width = 288 DisabledForeColor = 0,0,0 Name = "Text3" xTop = 86 Left = 574 Height = 27 Width = 87 FontBold = .T. Caption = "Prx. Mes" TabIndex = 16 Name = "Command5" label{Top = 86 Left = 487 Height = 27 Width = 87 FontBold = .T. Caption = "Prx. Semana" TabIndex = 15 Name = "Command7"  commandbutton commandbuttonFormulario_acep_canc1Label6 commandbutton commandbutton Command18Formulario_acep_canc1Comment = " " Top = 276 Left = 221 Height = 60 Width = 77 FontBold = .F. Anchor = 6 Picture = bmp\preview2.ico Caption = "Imprimir" Enabled = .T. TabIndex = 7 Alignment = 2 Name = "Command18" \PROCEDURE Click thisform.enabled=.f. LOCAL oForm oForm=.f. thisform.crystal_view=.t. DO Ejecutar_Reporte IN ve_sql_cuentas_corrientes WITH ; 99,,, xCod_cli, xCod_cli, xfec_cpbt, xpend_comp , xmoneda + 1, .f.,.t.,.f., oForm thisform.form_reporte=oForm *thisform.bloqueo.bloquear=.t. oForm.show(3,1) thisform.enabled=.t. ENDPROC AutoSize = .T. FontBold = .T. Anchor = 0 BackStyle = 0 Caption = "Contacto" Height = 17 Left = 14 Top = 28 Width = 53 TabIndex = 17 Name = "Label3" Label3Formulario_acep_canc1textboxFormulario_acep_canc1Command4 commandbuttontextboxPROCEDURE Click thisform.enabled=.f. do ver_pdf_deuda; in ve_control_de_deudas ; with xempresa, xcod_cli, 2 thisform.enabled=.t. ENDPROC Command5 commandbutton commandbutton commandbutton commandbutton Command20Formulario_acep_canc1Comment = " " Top = 276 Left = 298 Height = 60 Width = 77 FontBold = .F. Anchor = 6 Picture = bmp\pdf.ico Caption = "Pdf" Enabled = .T. TabIndex = 8 Alignment = 2 Name = "Command20" PROCEDURE Click thisform.enabled=.f. do ver_pdf_deuda; in ve_control_de_deudas ; with xempresa, xcod_cli thisform.enabled=.t. ENDPROC 2"f%UX TC$<TCC)C) C)6 UXFECHATHISFORMTEXT2VALUEVALIDClick012)dia commandbutton commandbutton commandbutton Command21Formulario_acep_canc1Comment = " " Top = 276 Left = 375 Height = 60 Width = 77 FontBold = .F. Anchor = 6 Picture = bmp\enviar_pdf.ico Caption = "Enviar Pdf" Enabled = .T. TabIndex = 9 Alignment = 2 Name = "Command21" PROCEDURE Click thisform.enabled=.f. do ver_pdf_deuda; in ve_control_de_deudas ; with xempresa, xcod_cli, 1 thisform.enabled=.t. ENDPROC AutoSize = .T. FontBold = .T. Anchor = 6 BackStyle = 0 Caption = "da de la semana" Height = 17 Left = 192 Top = 92 Width = 98 TabIndex = 22 Name = "dia" |Top = 86 Left = 400 Height = 27 Width = 87 FontBold = .T. Caption = "Prx. Viernes" TabIndex = 14 Name = "Command4" labellabeleditboxeditboxEdit2Formulario_acep_canc1{Anchor = 6 Height = 72 Left = 96 TabIndex = 5 Top = 195 Width = 564 ControlSource = "nota.nota_ges" Name = "Edit2" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 6 WordWrap = .T. BackStyle = 0 Caption = "Nota gestin de cobranzas" Height = 32 Left = 14 Top = 200 Width = 79 TabIndex = 19 Name = "Label1"  commandbutton commandbuttonCommand3Formulario_acep_canc1zTop = 86 Left = 313 Height = 27 Width = 87 FontBold = .T. Caption = "Prx. Lunes" TabIndex = 13 Name = "Command3" PROCEDURE Click xfecha=date() thisform.text2.Value=xfecha + iif(dow(xfecha)>=2, 7-(dow(xfecha)-2) ,2-dow(xfecha)) thisform.text2.valid ENDPROC Comment = " " Top = 276 Left = 452 Height = 60 Width = 77 FontBold = .F. Anchor = 6 Picture = bmp\whatsapp.ico Caption = "Whatsapp" Enabled = .T. TabIndex = 10 Alignment = 2 Name = "Command6" Formulario_acep_canc1Formulario_acep_canc1PROCEDURE Click xfecha=date() thisform.text2.Value=xfecha + iif(dow(xfecha)>=6, 7-(dow(xfecha)-6) ,6-dow(xfecha)) thisform.text2.valid ENDPROC PROCEDURE Click xfecha=date() if month(xfecha)=12 thisform.text2.Value=date(year(xfecha)+1, 1, 1) else thisform.text2.Value=date(year(xfecha), month(xfecha)+1, 1) endif thisform.text2.valid ENDPROC K"22:%ULT--ve_control_de_deudasTaUTHISFORMENABLED VER_PDF_DEUDAVE_CONTROL_DE_DEUDASXEMPRESAXCOD_CLIClick013)2e"LL% U TC$%CH B!TCCi$ o#TCCiCH$ UXFECHATHISFORMTEXT2VALUEVALIDClick01R1A2)LK"22:%ULT--ve_control_de_deudasTaUTHISFORMENABLED VER_PDF_DEUDAVE_CONTROL_DE_DEUDASXEMPRESAXCOD_CLIClick012)2E",,^%UFT-'ve_control_de_deudasTaUTHISFORMENABLED VER_PDF_DEUDAVE_CONTROL_DE_DEUDASXEMPRESAXCOD_CLIClick01t3),"Ϳ% UT- T-Ta\ve_sql_cuentas_corrientesc -a-T C TaU THISFORMENABLEDOFORM CRYSTAL_VIEWEJECUTAR_REPORTEVE_SQL_CUENTAS_CORRIENTESXCOD_CLI XFEC_CPBT XPEND_COMPXMONEDA FORM_REPORTESHOWClick01r22Q)"%{ UT-Ta\ve_sql_cuentas_corrientesc -a-T C TaU THISFORMENABLEDOFORM CRYSTAL_VIEWEJECUTAR_REPORTEVE_SQL_CUENTAS_CORRIENTESXCOD_CLI XFEC_CPBT XPEND_COMPXMONEDA FORM_REPORTESHOWClick01r2A)-"%? UTCC) DomingoCC) LunesuCC) Martes[CC) Mircoles>CC) Jueves$CC) Viernes Sbado666666UTHISFORMDIACAPTIONXVENCTCC) DomingoCC) LunesuCC) Martes[CC) Mircoles>CC) Jueves$CC) Viernes Sbado666666UTHISFORMDIACAPTIONXVENCTC$UTHISVALUE UTHISVALIDInteractiveChange0ValidDblClickInit1 3 332  )"%v U 4%Cclimail 7QclimailT T T T ,T  C climail.wsbC T U XRESULTADO XBLOQUEARCLIMAILTHISFORM COMMAND17ENABLED COMMAND18 COMMAND20 COMMAND21COMMAND6LABEL6Init011ABAAA22{)0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6S10YU9L11468695018/F] WINDOWS _6S10YU9L21468820843 ' WINDOWS _6S20M5YWL1468811394+:IVs WINDOWS _6S20M5YWM1468811394: WINDOWS _6S10YU9L11468811394   ) F WINDOWS _6S216OB081468820843    < e  WINDOWS _6S216OB091468811394V I ;   WINDOWS _6S30JFNRU1468811394p x WINDOWS _6S30JFNRV1468811420c } COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1YBorderStyle = 2 Height = 200 Width = 674 DoCreate = .T. Caption = "Nota de getin de cobranza" form_reporte = .F. crystal_view = .F. Name = "Formulario_acep_canc1" Command1.Top = 171 Command1.Left = 270 Command1.TabIndex = 3 Command1.Name = "Command1" Command2.Top = 171 Command2.Left = 342 Command2.TabIndex = 4 Command2.Name = "Command2" AYUDA.TabIndex = 6 AYUDA.Name = "AYUDA" Text1.Left = 646 Text1.TabIndex = 7 Text1.Top = 1 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 624 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" wPROCEDURE Init parameters xresultado =dodefault(xresultado) thisform.combo3.InteractiveChange ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Formulario_acep_canc1textboxtextboxFormulario_acep_canc1Label3labelform_reporte crystal_view editboxeditboxEdit2Formulario_acep_canc1zAnchor = 6 Height = 72 Left = 96 TabIndex = 1 Top = 50 Width = 564 ControlSource = "nota.nota_ges" Name = "Edit2" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 6 WordWrap = .T. BackStyle = 0 Caption = "Nota gestin de cobranzas" Height = 32 Left = 14 Top = 55 Width = 79 TabIndex = 5 Name = "Label1" labellabelLabel7Formulario_acep_canc1AutoSize = .T. FontBold = .T. Anchor = 0 BackStyle = 0 Caption = "No gestionar" Height = 17 Left = 14 Top = 133 Width = 74 TabIndex = 8 Name = "Label7" comboboxcomboboxCombo3Formulario_acep_canc1!Anchor = 0 BoundColumn = 2 ColumnCount = 2 ColumnWidths = "65,0" RowSourceType = 1 RowSource = "Si,S,No,N" DisplayValue = 73 ControlSource = "xno_recl" FirstElement = 1 Height = 25 Left = 96 NumberOfElements = 0 Style = 2 TabIndex = 2 Top = 129 Width = 48 Name = "Combo3"  PROCEDURE InteractiveChange if this.Value="S" thisform.label2.Caption="(El saldo NO se gestiona)" thisform.label2.ForeColor=rgb(255,0,0) else thisform.label2.Caption="(El saldo se gestiona normalmente)" thisform.label2.ForeColor=rgb(0,0,0) endif ENDPROC AutoSize = .T. FontBold = .T. Anchor = 0 BackStyle = 0 Caption = "Contacto" Height = 17 Left = 12 Top = 21 Width = 53 TabIndex = 8 Name = "Label3" Formulario_acep_canc1Label2labellabelText2labelControlSource = "clientes.contaccob" Enabled = .F. Height = 23 Left = 96 Top = 18 Width = 288 DisabledForeColor = 0,0,0 Name = "Text2" AutoSize = .F. FontBold = .T. Anchor = 0 BackStyle = 0 Caption = "(Si=No se gestiona)" Height = 17 Left = 160 Top = 133 Width = 500 TabIndex = 9 Name = "Label2" "=I%,Y GU%S_,T(El saldo NO se gestiona)TC^ 5T"(El saldo se gestiona normalmente)TC^UTHISVALUETHISFORMLABEL2CAPTION FORECOLORInteractiveChange01qQA1)"N%U$4 C U XRESULTADOTHISFORMCOMBO3INTERACTIVECHANGEInit01q5l)02mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _ROJ18TEIV 591636177/F] WINDOWS _ROJ18TEIZ1462606325 -Hk WINDOWS _ROJ18TEIV1462534756cx)f WINDOWS _ROJ190MZB1462534756!!!!!y"vW WINDOWS _ROJ18TEIV1462534742##### WINDOWS _ROJ18TEIV1462534742$$$$$g% WINDOWS _ROJ18TEIZ1462534742{&&&&& WINDOWS _ROK0MR2UV1462534742I'X'g't'' WINDOWS _ROJ18TEIV1462534742(((5(I(V( WINDOWS _ROJ18TEIZ1462534742())')4) WINDOWS _ROJ18TEIZ1462534742))))* WINDOWS _6PK0W199V1462534742***** WINDOWS _6PK0W199W1462534742+++++ WINDOWS _6PK0W199X1462534742,,,,,- WINDOWS _6PK0W199Y1462606325U.i.{..../7e WINDOWS _6PK0W199Z1462534742:2N2`2q222 WINDOWS _6PK0W19A014626063253344!4.4|5c WINDOWS _6PK0W19A114625347427777 8 WINDOWS _6PK0W19A2146253474288889 WINDOWS _6PK0W19A3146253474299999 WINDOWS _6PK0W19A41462534742:::::: WINDOWS _6PK0W19A51462606325#<7<I<Z<j<w<=/b WINDOWS _6PK0W19A61462534742@-@?@P@`@m@ WINDOWS _6PK0W19A71462606325AAAABBaC` WINDOWS _6PK0W19A81462534742EEEEE WINDOWS _6PK0W19A91462534742FFFFF WINDOWS _6PK0W19AA1462534742cGpG}GGG WINDOWS _6PK0W19AB1462534742hHuHHHH WINDOWS _6PK0W19AE14625347424IHIZIkI{II WINDOWS _6PK0W19AF1462534742JJJKK,K WINDOWS _6PK0W19AG1462534742|L#777L WINDOWS _6PK0W19AH1462534742 'M WINDOWS _6PK0W19AJ1462606325aYNO'_ WINDOWS _6PK0W19AK1462606325M ~n7QKS[ WINDOWS _6PK0W19AL1462534742o7b7S7# WINDOWS _6PK0W19AN1462606325?7##o# &V5Q, WINDOWS _6PK0W19AO1462606325YB64 WINDOWS _6PK0W19AP14625347422!}!p!" WINDOWS _6PK0W19AR1462534742\!J!9!)!-2\ WINDOWS _6PK0W19AS1462534742!@#!] WINDOWS _6PK0W19AT1462534742!, WINDOWS _6PK0W19AU14625347422 2??' WINDOWS _ROJ18TEIV1462534742? > WINDOWS _ROJ18TEIV1462606325!7 0\U WINDOWS _ROJ190MZB1462534742[#|7707EhX WINDOWS _6PK0W19AZ14626063257EEwEToP, WINDOWS _6PK0WBIF51462534742n&a&R&E&M WINDOWS _6PK0WBIF614625347421&&&'D COMMENT RESERVED %r[VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11 formulario clases.vcxformForm1BorderStyle = 2 Height = 577 Width = 797 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "Configuracin Contable de Ventas" Icon = ("bmp\"+p_icono_sistema) WindowType = 1 i_fab = .F. e_fab = .F. i_rev = .F. e_rev = .F. i_fab_d = .F. e_fab_d = .F. i_rev_d = .F. e_rev_d = .F. i_fab_d1 = .F. e_fab_d1 = .F. i_rev_d1 = .F. e_rev_d1 = .F. i_fab_d2 = .F. e_fab_d2 = .F. i_rev_d2 = .F. e_rev_d2 = .F. i_fab_d3 = .F. e_fab_d3 = .F. i_rev_d3 = .F. e_rev_d3 = .F. c_lp = .F. Name = "Form1" PROCEDURE validar parameters xmsg if thisform.tipoabm=1 * Agregar sele cfg_ventas xorder=order() set order to codigo registro=recno() seek thisform.text1.value if found() xmsg='Cdigo repetido !!!' set order to (xorder) go registro return .f. else return .t. endif endif =sys_m("ver") return .t. ENDPROC PROCEDURE cuenta lparameters xcuenta =seek(xcuenta, "cuentas", "cuenta") return cuentas.abrev ENDPROC PROCEDURE uncuenta lparameters xabrev =seek(xabrev, "cuentas", "abrev") return cuentas.cod_cue ENDPROC PROCEDURE Unload return thisform.resultado ENDPROC PROCEDURE Init parameters xtipo thisform.tipoabm=xtipo ENDPROC PROCEDURE Load dodefault() thisform.i_fab = thisform.cuenta(abmcfg_ventas.i_fab ) thisform.e_fab = thisform.cuenta(abmcfg_ventas.e_fab ) thisform.i_rev = thisform.cuenta(abmcfg_ventas.i_rev ) thisform.e_rev = thisform.cuenta(abmcfg_ventas.e_rev ) thisform.i_fab_d = thisform.cuenta(abmcfg_ventas.i_fab_d ) thisform.e_fab_d = thisform.cuenta(abmcfg_ventas.e_fab_d ) thisform.i_rev_d = thisform.cuenta(abmcfg_ventas.i_rev_d ) thisform.e_rev_d = thisform.cuenta(abmcfg_ventas.e_rev_d ) thisform.i_fab_d1 = thisform.cuenta(abmcfg_ventas.i_fab_d1 ) thisform.e_fab_d1 = thisform.cuenta(abmcfg_ventas.e_fab_d1 ) thisform.i_rev_d1 = thisform.cuenta(abmcfg_ventas.i_rev_d1 ) thisform.e_rev_d1 = thisform.cuenta(abmcfg_ventas.e_rev_d1 ) thisform.i_fab_d2 = thisform.cuenta(abmcfg_ventas.i_fab_d2 ) thisform.e_fab_d2 = thisform.cuenta(abmcfg_ventas.e_fab_d2 ) thisform.i_rev_d2 = thisform.cuenta(abmcfg_ventas.i_rev_d2 ) thisform.e_rev_d2 = thisform.cuenta(abmcfg_ventas.e_rev_d2 ) thisform.i_fab_d3 = thisform.cuenta(abmcfg_ventas.i_fab_d3 ) thisform.e_fab_d3 = thisform.cuenta(abmcfg_ventas.e_fab_d3 ) thisform.i_rev_d3 = thisform.cuenta(abmcfg_ventas.i_rev_d3 ) thisform.e_rev_d3 = thisform.cuenta(abmcfg_ventas.e_rev_d3 ) thisform.c_lp = thisform.cuenta(abmcfg_ventas.c_lp ) ENDPROC |"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit012AQ2)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit012AR3)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)cFontBold = .T. BackStyle = 0 Caption = ("Reventa") Left = 28 Top = 507 Width = 48 ReleaseErase = .F. TabIndex = 43 Name = "Label17"  cod_desc_cueForm1RevExtD3 container cod_desc_cueForm1RevExtD2 container clases.vcx cod_desc_cueForm1 clases.vcx containerAutoSize = .T. FontSize = 23 BackStyle = 0 Caption = "3" Height = 38 Left = 456 Top = 489 Width = 19 TabIndex = 46 Name = "Label18"  clases.vcxForm1Label16labelForm1 Cod_desc_cue1Aresultado tipoabm 1=agregar 2=modificar 3=visualizar i_fab e_fab i_rev e_rev i_fab_d e_fab_d i_rev_d e_rev_d i_fab_d1 e_fab_d1 i_rev_d1 e_rev_d1 i_fab_d2 e_fab_d2 i_rev_d2 e_rev_d2 i_fab_d3 e_fab_d3 i_rev_d3 e_rev_d3 c_lp *validar Valida la actualizacin, pero no la ejecuta *cuenta *uncuenta  commandbutton commandbuttonCommand1Form1wTop = 548 Left = 317 Height = 25 Width = 73 FontBold = .T. Caption = "Aceptar" TabIndex = 24 Name = "Command1" PROCEDURE Click local xmsg xmsg='' if thisform.validar(@xmsg) replace in abmcfg_ventas i_fab with thisform.uncuenta(thisform.i_fab ) replace in abmcfg_ventas e_fab with thisform.uncuenta(thisform.e_fab ) replace in abmcfg_ventas i_rev with thisform.uncuenta(thisform.i_rev ) replace in abmcfg_ventas e_rev with thisform.uncuenta(thisform.e_rev ) replace in abmcfg_ventas i_fab_d with thisform.uncuenta(thisform.i_fab_d ) replace in abmcfg_ventas e_fab_d with thisform.uncuenta(thisform.e_fab_d ) replace in abmcfg_ventas i_rev_d with thisform.uncuenta(thisform.i_rev_d ) replace in abmcfg_ventas e_rev_d with thisform.uncuenta(thisform.e_rev_d ) replace in abmcfg_ventas i_fab_d1 with thisform.uncuenta(thisform.i_fab_d1 ) replace in abmcfg_ventas e_fab_d1 with thisform.uncuenta(thisform.e_fab_d1 ) replace in abmcfg_ventas i_rev_d1 with thisform.uncuenta(thisform.i_rev_d1 ) replace in abmcfg_ventas e_rev_d1 with thisform.uncuenta(thisform.e_rev_d1 ) replace in abmcfg_ventas i_fab_d2 with thisform.uncuenta(thisform.i_fab_d2 ) replace in abmcfg_ventas e_fab_d2 with thisform.uncuenta(thisform.e_fab_d2 ) replace in abmcfg_ventas i_rev_d2 with thisform.uncuenta(thisform.i_rev_d2 ) replace in abmcfg_ventas e_rev_d2 with thisform.uncuenta(thisform.e_rev_d2 ) replace in abmcfg_ventas i_fab_d3 with thisform.uncuenta(thisform.i_fab_d3 ) replace in abmcfg_ventas e_fab_d3 with thisform.uncuenta(thisform.e_fab_d3 ) replace in abmcfg_ventas i_rev_d3 with thisform.uncuenta(thisform.i_rev_d3 ) replace in abmcfg_ventas e_rev_d3 with thisform.uncuenta(thisform.e_rev_d3 ) replace in abmcfg_ventas c_lp with thisform.uncuenta(thisform.c_lp ) thisform.resultado=.t. thisform.release else =messagebox(xmsg,0) endif ENDPROC |"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c".%^rlUBUTHISFORMTIPOABMWhen011)) clases.vcxFabExtD3 container clases.vcx cod_desc_cueForm1Label9labellabel clases.vcxFontBold = .T. BackStyle = 0 Caption = "Fabricacin Propia" Left = 28 Top = 482 Width = 106 ReleaseErase = .F. TabIndex = 45 Name = "Label16" FabExtVForm1Form1FabLocV clases.vcx cod_desc_cueFabLocD3 container clases.vcx cod_desc_cueForm1Label8labellabelForm1 commandbutton commandbuttonCommand2Form1xTop = 548 Left = 406 Height = 25 Width = 73 FontBold = .T. Caption = "Cancelar" TabIndex = 25 Name = "Command2" FPROCEDURE Click thisform.resultado=.f. thisform.release ENDPROC FontBold = .T. BackStyle = 0 Caption = ("Reventa") Left = 28 Top = 443 Width = 48 ReleaseErase = .F. TabIndex = 44 Name = "Label8"  cod_desc_cueFabExtD2 container clases.vcxForm1RevLocD3labellabelLabel1Form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Descripcin" Height = 17 Left = 12 Top = 47 Width = 70 TabIndex = 26 Name = "Label1" textboxtextboxText1Form1ControlSource = "abmcfg_ventas.codigo" Format = "z" Height = 25 InputMask = "999" Left = 96 TabIndex = 1 Top = 12 Width = 60 Name = "Text1" 4PROCEDURE When return thisform.tipoabm=1 ENDPROC cArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  container clases.vcx cod_desc_cueForm1Label10labellabellabellabelLabel2Form1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cdigo" Height = 17 Left = 12 Top = 16 Width = 41 TabIndex = 27 Name = "Label2" textboxtextboxText2Form1ControlSource = "abmcfg_ventas.descr" Format = "!" Height = 25 Left = 96 MaxLength = 30 TabIndex = 2 Top = 43 Width = 300 Name = "Text2" labellabel lblFabricac1Form1FontBold = .T. BackStyle = 0 Caption = "Fabricacin Propia" Left = 29 Top = 117 Width = 106 ReleaseErase = .F. TabIndex = 28 Name = "lblFabricac1" labellabel lblReventa2Form1FontBold = .T. BackStyle = 0 Caption = ("Reventa") Left = 29 Top = 143 Width = 48 ReleaseErase = .F. TabIndex = 30 Name = "lblReventa2" labellabel lblVentas3Form1AutoSize = .T. FontBold = .T. FontSize = 11 BackStyle = 0 Caption = ("VENTAS") Left = 12 Top = 87 Width = 61 ReleaseErase = .F. TabIndex = 31 Name = "lblVentas3" labellabel lblMerc_ext14Form1AutoSize = .T. FontBold = .T. FontSize = 11 BackStyle = 0 Caption = "MERCADO EXTERNO" Left = 566 Top = 87 Width = 157 ReleaseErase = .F. TabIndex = 32 Name = "lblMerc_ext14" labellabel lblMerc_int13Form1AutoSize = .T. FontBold = .T. FontSize = 11 BackStyle = 0 Caption = "MERCADO INTERNO" Left = 230 Top = 87 Width = 152 ReleaseErase = .F. TabIndex = 33 Name = "lblMerc_int13"  cod_desc_cue clases.vcx containerFabLocDForm1ETop = 248 Left = 147 Width = 305 Height = 30 TabIndex = 8 dato = i_fab_d dato_tabla = thisform Name = "FabLocD" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9"  cod_desc_cue clases.vcx containerFabExtDForm1ETop = 248 Left = 482 Width = 305 Height = 30 TabIndex = 9 dato = e_fab_d dato_tabla = thisform Name = "FabExtD" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC CTop = 108 Left = 482 Width = 305 Height = 30 TabIndex = 4 dato = e_fab dato_tabla = thisform Name = "FabExtV" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" labellabellabelForm1 cod_desc_cue clases.vcx containerRevLocDForm1FTop = 274 Left = 147 Width = 305 Height = 30 TabIndex = 10 dato = i_rev_d dato_tabla = thisform Name = "RevLocD" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9"  cod_desc_cue clases.vcx containerRevExtDForm1FTop = 274 Left = 482 Width = 305 Height = 30 TabIndex = 11 dato = e_rev_d dato_tabla = thisform Name = "RevExtD" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC Form1Label7labelRevLocV cod_desc_cueLabel17labellabel clases.vcx container cod_desc_cueForm1 containerlabellabel lblDescuent4Form1AutoSize = .T. FontBold = .T. FontSize = 11 BackStyle = 0 Caption = ("DESCUENTOS") Left = 12 Top = 228 Width = 108 ReleaseErase = .F. TabIndex = 34 Name = "lblDescuent4" labellabel lblFabricac11Form1FontBold = .T. BackStyle = 0 Caption = "Fabricacin Propia" Left = 29 Top = 256 Width = 106 ReleaseErase = .F. TabIndex = 35 Name = "lblFabricac11" labellabel lblReventa12Form1FontBold = .T. BackStyle = 0 Caption = ("Reventa") Left = 29 Top = 282 Width = 48 ReleaseErase = .F. TabIndex = 36 Name = "lblReventa12"  cod_desc_cue clases.vcx containerFabLocD1Form1HTop = 348 Left = 147 Width = 305 Height = 30 TabIndex = 12 dato = i_fab_d1 dato_tabla = thisform Name = "FabLocD1" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9"  cod_desc_cue clases.vcx containerFabExtD1Form1HTop = 348 Left = 482 Width = 305 Height = 30 TabIndex = 13 dato = e_fab_d1 dato_tabla = thisform Name = "FabExtD1" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC CTop = 108 Left = 147 Width = 305 Height = 30 TabIndex = 3 dato = i_fab dato_tabla = thisform Name = "FabLocV" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" Label18Form1 cod_desc_cue container cod_desc_cue clases.vcx containerRevLocD1Form1HTop = 374 Left = 147 Width = 305 Height = 30 TabIndex = 14 dato = i_rev_d1 dato_tabla = thisform Name = "RevLocD1" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9"  cod_desc_cue clases.vcx containerRevExtD1Form1HTop = 374 Left = 482 Width = 305 Height = 30 TabIndex = 15 dato = e_rev_d1 dato_tabla = thisform Name = "RevExtD1" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC HTop = 160 Left = 147 Width = 305 Height = 30 TabIndex = 7 dato = c_lp dato_tabla = thisform Name = "Cod_desc_cue1" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" Form1RevExtV containerForm1labellabel lblFabricac5Form1FontBold = .T. BackStyle = 0 Caption = "Fabricacin Propia" Left = 28 Top = 355 Width = 106 ReleaseErase = .F. TabIndex = 37 Name = "lblFabricac5" labellabel lblReventa6Form1FontBold = .T. BackStyle = 0 Caption = ("Reventa") Left = 28 Top = 380 Width = 48 ReleaseErase = .F. TabIndex = 38 Name = "lblReventa6" labellabel lblDescuent26Form1AutoSize = .T. FontBold = .T. FontSize = 11 BackStyle = 0 Caption = ("DESCUENTOS ESPECIALES") Left = 12 Top = 322 Width = 205 ReleaseErase = .F. TabIndex = 39 Name = "lblDescuent26" labellabelLabel15Form1AutoSize = .T. FontSize = 23 BackStyle = 0 Caption = "1" Height = 38 Left = 456 Top = 362 Width = 19 TabIndex = 40 Name = "Label15"  cod_desc_cue clases.vcx containerFabLocD2Form1HTop = 411 Left = 147 Width = 305 Height = 30 TabIndex = 16 dato = i_fab_d2 dato_tabla = thisform Name = "FabLocD2" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9"  cod_desc_cue clases.vcx containerRevLocD2Form1HTop = 437 Left = 147 Width = 305 Height = 30 TabIndex = 18 dato = i_rev_d2 dato_tabla = thisform Name = "RevLocD2" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" labelFontBold = .T. BackStyle = 0 Caption = "Fabricacin Propia" Left = 28 Top = 418 Width = 106 ReleaseErase = .F. TabIndex = 41 Name = "Label7" AutoSize = .T. FontSize = 23 BackStyle = 0 Caption = "2" Height = 38 Left = 456 Top = 425 Width = 19 TabIndex = 42 Name = "Label9" FontBold = .T. BackStyle = 0 Caption = "Lquido Producto" Left = 29 Top = 169 Width = 106 ReleaseErase = .F. TabIndex = 29 Name = "Label10" HTop = 475 Left = 482 Width = 305 Height = 30 TabIndex = 21 dato = e_fab_d3 dato_tabla = thisform Name = "FabExtD3" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC HTop = 501 Left = 482 Width = 305 Height = 30 TabIndex = 23 dato = e_rev_d3 dato_tabla = thisform Name = "RevExtD3" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC CTop = 134 Left = 482 Width = 305 Height = 30 TabIndex = 6 dato = e_rev dato_tabla = thisform Name = "RevExtV" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" PROCEDURE Init dodefault() if p_co_ventas_exterior=0 aaa=this.dato_tabla+"."+this.dato+"=space(9)" &aaa thisform.Refresh endif this.enabled=(p_co_ventas_exterior=1) ENDPROC HTop = 411 Left = 482 Width = 305 Height = 30 TabIndex = 17 dato = e_fab_d2 dato_tabla = thisform Name = "FabExtD2" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" "^%qUT- UTHISFORM RESULTADORELEASEClick012;)CTop = 134 Left = 147 Width = 305 Height = 30 TabIndex = 5 dato = i_rev dato_tabla = thisform Name = "RevLocV" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" HTop = 437 Left = 482 Width = 305 Height = 30 TabIndex = 19 dato = e_rev_d2 dato_tabla = thisform Name = "RevExtD2" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" |"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)cHTop = 475 Left = 147 Width = 305 Height = 30 TabIndex = 20 dato = i_fab_d3 dato_tabla = thisform Name = "FabLocD3" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" HTop = 501 Left = 147 Width = 305 Height = 30 TabIndex = 22 dato = i_rev_d3 dato_tabla = thisform Name = "RevLocD3" Label2.Left = 340 Label2.Top = 10 Label2.Name = "Label2" Text8.Left = 1 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 74 Text9.Top = 4 Text9.Width = 227 Text9.Name = "Text9" |"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c|"ccG% Us C%W)T. =space(9)&aaa TUP_CO_VENTAS_EXTERIORAAATHIS DATO_TABLADATOTHISFORMREFRESHENABLEDInit011AR2)c"ll%#U T%Cz>C>C>C>C> C > C > C > C > C >C>C>C>C>C>C>C>C>C>C>C>CTa  CxUXMSGTHISFORMVALIDAR ABMCFG_VENTASI_FABUNCUENTAE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3C_LP RESULTADORELEASEClick01qqA2)l " %Y8U4%F TCG((codigo TCOE%C4 TCdigo repetido !!! G(( #B- BaCver BaU XMSGTHISFORMTIPOABM CFG_VENTASXORDERCODIGOREGISTROTEXT1VALUESYS_M4Ccuentascuenta BUXCUENTACUENTASABREV3Ccuentasabrev BUXABREVCUENTASCOD_CUE BUTHISFORM RESULTADO4TUXTIPOTHISFORMTIPOABM. CTCTCTCTCTCTCT C T C T C T C T C TCTCTCTCTCTCTCTCTCTCUTHISFORMI_FABCUENTA ABMCFG_VENTASE_FABI_REVE_REVI_FAB_DE_FAB_DI_REV_DE_REV_DI_FAB_D1E_FAB_D1I_REV_D1E_REV_D1I_FAB_D2E_FAB_D2I_REV_D2E_REV_D2I_FAB_D3E_FAB_D3I_REV_D3E_REV_D3C_LPvalidar0cuentacuncuentaUnload Init9Loadu1qasrqAAr4q3q32q22j M(j03!7)%X & *WX?bsCCWEs"Analizar cuenta corrienteCVC  6s""Generar PDF de la cuenta corriente%s"Modificar cliente3s"Editar nota gestin de cobranza!s" Nuevo reclamo"s"Editar reclamo8s"$No reclamar hasta el lunes que viene4s" No reclamar hasta el prximo mesH16do ver_cc with p_ve_control_de_deuda_empresa, xcod_cliO1=do ver_pdf_deuda with p_ve_control_de_deuda_empresa, xcod_cli1uDO _6vn0nhbcx IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")1uDO _6vn0nhbcy IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")1uDO _6vn0nhbcz IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")1uDO _6vn0nhbd0 IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")1uDO _6vn0nhbd1 IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")1uDO _6vn0nhbd2 IN LOCFILE("2000\VE_CONTROL_DE_DEUDAS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_DEUDAS_MENU?")tU MENEMERGEACCESOFUCLIENTESPEDIDOS_PENDIENTESCODIGO*'ve_control_de_deudasU NOTA_GESTIONVE_CONTROL_DE_DEUDASP_VE_CONTROL_DE_DEUDA_EMPRESAXCOD_CLI*'ve_control_de_deudasURECLAMARVE_CONTROL_DE_DEUDASP_VE_CONTROL_DE_DEUDA_EMPRESAXCOD_CLI.+ve_control_de_deudasaURECLAMARVE_CONTROL_DE_DEUDASP_VE_CONTROL_DE_DEUDA_EMPRESAXCOD_CLI0-ve_control_de_deudasUNO_RECLAMAR_HASTA_PROXIMO_XXXVE_CONTROL_DE_DEUDASP_VE_CONTROL_DE_DEUDA_EMPRESAXCOD_CLI0-ve_control_de_deudasUNO_RECLAMAR_HASTA_PROXIMO_XXXVE_CONTROL_DE_DEUDASP_VE_CONTROL_DE_DEUDA_EMPRESAXCOD_CLI _6vn0nhbcx _6vn0nhbcy _6vn0nhbczn _6vn0nhbd0 _6vn0nhbd1h _6vn0nhbd2ARaQ1!Assssss?Aq1q1q1112iH\3o|!B"$Z""0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _1PF0HTGSR1051812691/F] WINDOWS _1PF0HTGSS1481131869,`0 WINDOWS _1PF0HTGSS1468567002 WINDOWS _36T0VEITU1468565122 WINDOWS _36T0VEITV1468567255n6* WINDOWS _6RZ105HLT14688835043U$D&) WINDOWS _6RZ0JY27R1468566935]b$  WINDOWS _1PF0HTGSR1468567076  5R%' WINDOWS _1PF0HTGSR1468567002rH# WINDOWS _1PF0HTGSR1468567076pSk COMMENT RESERVED z8`VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formulario_consulta clases.vcxformFormulario_acep_canc1,Height = 581 Width = 1020 DoCreate = .T. Caption = "Comprobantes Adeudados" orden = 0 total_marcados = 0 total_importe = 0 empresa = 0 cliente = (space(6)) vendedor = (space(6)) sucfac = 0 ayuda_web = document_id = ("Comprobantes adeudados") alturadeseada = 700 anchodeseado = 1340 Name = "Formulario_acep_canc1" Text1.Left = 1002 Text1.TabIndex = 19 Text1.Top = 0 Text1.ZOrderSet = 3 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 972 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1"  PROCEDURE doble_click select q_comprobantes ENDPROC PROCEDURE encabezado parameters xcolumna xColumna=LOWER(xColumna) *!* thisform.busqueda.Value=space(30) *!* thisform.busqueda.format="!" *!* thisform.busqueda.inputmask="" *!* thisform.busqueda.SelectOnEntry=.t. thisform.orden=xcolumna ENDPROC PROCEDURE actualizar_datos lparameters xinicial xsaldo = 0 ximporte = 0 *!* if xinicial then *!* =comprobantes(.f., date(2099,12,31), date(2099,12,31)) *!* else *!* do guardar_configuracion_grid in listados with 99,thisform.grilla1 *!* =comprobantes(thisform.consolidado.value, xdfec, xhfec) *!* endif thisform.grilla_formato1.sql_refresh (thisform.grilla1) thisform.LockScreen=.t. *!* if xinicial then do leer_configuracion_grid ; in listados ; with 12, thisform.grilla1 *!* else *!* do leer_configuracion_grid ; *!* in listados ; *!* with 99, thisform.grilla1 *!* endif thisform.grilla_formato1.sql_ordenar(thisform.grilla_formato1.sql_ordenado) go top thisform.LockScreen=.f. thisform.refresh ENDPROC PROCEDURE actualizar_totales local xsaldo, ximporte select q_comprobantes xsaldo=0 ximporte=0 sum saldo, importe to xsaldo, ximporte thisform.saldo.value=xsaldo *thisform.importe.value=ximporte thisform.saldo.refresh *thisform.importe.refresh ENDPROC PROCEDURE aplicar_filtros *=sys_mostrar_screen("Suspendo?", .t.) local filtro filtro=".t." if thisform.empresa#0 filtro="emp="+alltrim(str(thisform.empresa)) endif *!* if thisform.solo_ventas.value *!* filtro=filtro+" and causa$[Vr] or venta" *!* endif *=sys_mostrar_Screen("Suspendo?", .t.) *!* do case *!* case thisform.optiongroup1.Value=1 *!* case thisform.optiongroup1.Value=2 *!* filtro=filtro + " and (!impreso or !iif(val(right(rem_ven,8))#0,impresor, .t.))" *!* case thisform.optiongroup1.Value=3 *!* filtro=filtro + " and impreso and iif(val(right(rem_ven,8))#0,impresor, .f.)" *!* endcase * Ojo !!! Si en el caso de FC-RE se imprime solo uno, queda como impreso !!!! *!* do case *!* case thisform.optiongroup1.Value=1 *!* case thisform.optiongroup1.Value=2 *!* filtro=filtro + " and !(impreso or impresor)" *!* case thisform.optiongroup1.Value=3 *!* filtro=filtro + " and (impreso or impresor)" *!* endcase *!* IF NOT EMPTY(thisform.cliente) THEN *!* filtro = filtro + "and cod_cli='"+thisform.cliente +"'" *!* ENDIF *!* IF NOT EMPTY(thisform.sucfac) THEN *!* filtro = filtro + "and sucfac="+ALLTRIM(STR(thisform.sucfac )) *!* ENDIF select q_comprobantes set filter to &filtro =thisform.actualizar_totales() go top thisform.grilla1.Refresh ENDPROC PROCEDURE Load =DODEFAULT() *thisform.Height = 483 ENDPROC PROCEDURE Release =thisform.grilla_formato1.dispose () =thisform.grilla1.Destroy () =dodefault() ENDPROC PROCEDURE Init parameters xresultado =dodefault() this.Visible=.t. this.grilla_formato1.sql_crear_columnas () this.grilla_formato1.sql_ordenar("fecha") *thisform.actualizar_datos (.t.) select q_comprobantes if p_ve_ord_ctrl_cpbt=0 this.grilla_formato1.sql_ordenar("fecha") else this.grilla_formato1.sql_ordenar("remito") endif thisform.tmrinit.Enabled = .t. ENDPROC PROCEDURE QueryUnload thisform.Release ENDPROC N"55 @%UY listados 2C%La configuracin ha sido guardada !!!BUGUARDAR_CONFIGURACION_GRIDLISTADOSTHISFORMGRILLA1MENSAJEClick01"B5)5"%UT- UTHISENABLEDTHISFORM COMMAND11CLICKTimer011=)form_controles.vcxgrilla_formatoFormulario_acep_canc1custom commandbutton commandbuttonlabelFormulario_acep_canc1labelCommand3timertimertmrInitLabel1Formulario_acep_canc1Grilla_formato1 Command11 commandbutton commandbuttonFormulario_acep_canc1Top = 540 Left = 97 Height = 36 Width = 96 FontBold = .T. Anchor = 6 WordWrap = .T. Caption = "Inicializar Configuracin" TabIndex = 16 ZOrderSet = 8 Name = "Command3" HPROCEDURE Timer this.Enabled =.f. thisform.command11.Click ENDPROC Formulario_acep_canc1bArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 PROCEDURE Click do guardar_configuracion_grid ; in listados ; with 12,thisform.grilla1 mensaje("La configuracin ha sido guardada !!!") return ENDPROC Top = 540 Left = 1 Height = 36 Width = 96 FontBold = .T. Anchor = 6 WordWrap = .T. Caption = "Guardar Configuracin" TabIndex = 17 ZOrderSet = 9 Name = "Command4" Formulario_acep_canc1Command4 commandbutton commandbuttonFormulario_acep_canc1orden total_marcados total_importe empresa cliente vendedor sucfac *doble_click *procesar *encabezado *actualizar_datos *actualizar_totales *aplicar_filtros textboxtextboxsaldoFormulario_acep_canc1FontBold = .T. Anchor = 12 Enabled = .F. Format = "z" Height = 23 InputMask = "999,999,999.99" Left = 876 TabIndex = 23 Top = 547 Width = 143 DisabledForeColor = 0,0,0 ZOrderSet = 12 Name = "saldo" grillaform_controles.vcxgridGrilla1Anchor = 15 Height = 496 Left = 0 TabIndex = 8 Top = 36 Width = 1020 HighlightStyle = 2 ZOrderSet = 14 Name = "Grilla1" Top = 540 Left = 288 sql_alias = ("q_comprobantes") sql_noclose = .T. sql_noorder = .T. sql_norecmov = .T. sql_cerrar_al_salir = .F. sql_ordenado = ("Fecha") Name = "Grilla_formato1" kPROCEDURE sql_ordenar LPARAMETERS xOrden, xNoInvertir =DODEFAULT(@xOrden, xNoInvertir) thisform.encabezado (xOrden) ENDPROC PROCEDURE sql_crear_columnas this.for_add_columna() THIS.for_add_columna(,".Fecha",,71,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".Comprob", "Comprobante",130,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".Vto","Vencimiento",71,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".despl","Das",71,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".pedido","Pedido",86,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".OC_ref","OC",86,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".ref","Referencia",86,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".comentario","Comentario",86,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".moneda","Moneda",53,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".importe","Importe",90,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".saldo","Saldo",90,,,,,,,,"grilla_textbox",.t.) THIS.for_add_columna(,".emp","Empresa",90,,,,,,,,"grilla_textbox",.t.) ENDPROC PROCEDURE evn_field_dblclick LPARAMETERS xCol do cpbt_vis2; in ge01 ; with q_comprobantes.comprob, q_comprobantes.causa, q_comprobantes.cod_cli ENDPROC PROCEDURE for_dynamics_coll_aplicar LPARAMETERS xGrid *xGrid.setall("DynamicBackColor", "iif(emp#p_codemp,rgb(155,205,255),rgb(255,255,255))","column") *xGrid.setall("DynamicForeColor", "iif(impreso or impresor, rgb(0,0,0), rgb(255,0,0))","column") ENDPROC PROCEDURE evn_field_rightclick LPARAMETERS xCol do ve_control_de_comprobantes_menu.mpr thisform.Refresh ENDPROC AutoSize = .T. FontBold = .T. Anchor = 12 BackStyle = 0 Caption = "Total $" Height = 17 Left = 830 Top = 552 Width = 40 TabIndex = 21 ZOrderSet = 11 Name = "Label1" aTop = 552 Left = 252 Height = 25 Width = 25 Enabled = .F. Interval = 100 Name = "tmrInit" AutoSize = .F. Top = 0 Left = 12 Height = 36 Width = 38 Picture = bmp\consulta.ico Caption = "" TabIndex = 3 ToolTipText = "Actualizar" ZOrderSet = 6 Name = "Command11" PROCEDURE Click with thisform.grilla1 for z=1 to .ColumnCount .Columns(z).visible=.t. .Columns(z).width=max(50, .Columns(z).width) endfor endwith ENDPROC bPROCEDURE Click xorden = order() thisform.LockScreen = .t. *=sys_mostrar_screen("CONS: ON", SET("Console")="ON") thisform.actualizar_datos() thisform.aplicar_filtros() thisform.grilla_formato1.sql_ordenar(xorden ) go top *=sys_mostrar_screen("CONS: ON", SET("Console")="ON") thisform.Refresh thisform.LockScreen = .f. ENDPROC f"MM/%Uqj(fTa%TC2CDUTHISFORMGRILLA1Z COLUMNCOUNTCOLUMNSVISIBLEWIDTHClick01!RQBB2)M"tt%+ Uh TCTa C CC#) T-UXORDENTHISFORM LOCKSCREENACTUALIZAR_DATOSAPLICAR_FILTROSGRILLA_FORMATO1 SQL_ORDENARREFRESHClick01BQ1W)t":'%w?U0 CCUXORDEN XNOINVERTIRTHISFORM ENCABEZADO C4C.FechaGgrilla_textboxaCC.Comprob Comprobantegrilla_textboxa?C.Vto VencimientoGgrilla_textboxa:C.desplDasGgrilla_textboxa=C.pedidoPedidoVgrilla_textboxa9C.OC_refOCVgrilla_textboxa>C.ref ReferenciaVgrilla_textboxaEC .comentario ComentarioVgrilla_textboxa=C.monedaMoneda5grilla_textboxa?C.importeImporteZgrilla_textboxa;C.saldoSaldoZgrilla_textboxa;C.empEmpresaZgrilla_textboxaUTHISFOR_ADD_COLUMNA.$ge01UXCOL CPBT_VIS2GE01Q_COMPROBANTESCOMPROBCAUSACOD_CLI UXGRID>*#ve_control_de_comprobantes_menu.mpr UXCOLVE_CONTROL_DE_COMPROBANTES_MENUMPRTHISFORMREFRESH sql_ordenar0sql_crear_columnasevn_field_dblclickfor_dynamics_coll_aplicarevn_field_rightclick,13A1Q3qD6q7q1z4]#`+)"mma %t;.U FUQ_COMPROBANTES)4TC@TUXCOLUMNATHISFORMORDEN T TCTa listados C  #)T-  U XINICIALXSALDOXIMPORTETHISFORMGRILLA_FORMATO1 SQL_REFRESHGRILLA1 LOCKSCREENLEER_CONFIGURACION_GRIDLISTADOS SQL_ORDENAR SQL_ORDENADOREFRESHf F T TK(T UXSALDOXIMPORTEQ_COMPROBANTESSALDOIMPORTETHISFORMVALUEREFRESHT.t.%ITemp=CCZFset filter to &filtro C#) UFILTROTHISFORMEMPRESAQ_COMPROBANTESACTUALIZAR_TOTALESGRILLA1REFRESH CU,CC CUTHISFORMGRILLA_FORMATO1DISPOSEGRILLA1DESTROY4 CTaCCfechaF%xCfecha CremitoT aU XRESULTADOTHISVISIBLEGRILLA_FORMATO1SQL_CREAR_COLUMNAS SQL_ORDENARQ_COMPROBANTESP_VE_ORD_CTRL_CPBTTHISFORMTMRINITENABLED UTHISFORMRELEASE doble_click0 encabezadoRactualizar_datosactualizar_totalesaplicar_filtrosLoadReleaseInit QueryUnloadL1q3q5qiQ3rq24tbAqR233qt2A21.O5\4]@5f C& t( 6 x,Q 9 )m0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _16U17JEQQ 812556889/F] WINDOWS _16U17JEQR1464633740 ' WINDOWS _1IL162UK61464633711$1?\ WINDOWS _1IL162UK71464633711 (E WINDOWS _1IL162UK81464633711( 5 B P m WINDOWS _1IL162UK91464633711  * 9 V v WINDOWS _16U17JEQQ1464633740V  D  WINDOWS _1IL162UKA1464633740e K COMMENT RESERVED eVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 139 Width = 441 DoCreate = .T. Caption = "Cambio de cdigo de proveedores" Name = "Formulario_acep_canc1" Command1.Top = 108 Command1.Left = 148 Command1.TabIndex = 6 Command1.Name = "Command1" Command2.Top = 108 Command2.Left = 232 Command2.TabIndex = 7 Command2.Name = "Command2" AYUDA.TabIndex = 8 AYUDA.Name = "AYUDA" Text1.TabIndex = 9 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cdigo Actual" Height = 17 Left = 12 Top = 28 Width = 80 TabIndex = 15 Name = "Label1" textboxtextboxactualFormulario_acep_canc1Alignment = 3 ControlSource = "original" Format = "!" Height = 23 Left = 96 MaxLength = 6 TabIndex = 2 Top = 25 Width = 84 Name = "actual" PROCEDURE Valid SELECT proveedo SET ORDER TO CODPRO && COD_PRO SEEK this.Value IF FOUND() THEN thisform.actualDesc.Value=Nombre ELSE thisform.actualDesc.Value="No encontrado!!!" ENDIF ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 nEnabled = .F. Height = 25 Left = 192 Top = 71 Width = 241 DisabledForeColor = 0,0,0 Name = "NuevoDesc" Formulario_acep_canc1textboxtextboxFormulario_acep_canc1textboxlabellabelLabel5Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cdigo Nuevo" Height = 17 Left = 12 Top = 75 Width = 79 TabIndex = 13 Name = "Label5" textboxtextboxdestinoFormulario_acep_canc1Alignment = 3 ControlSource = "destino" Format = "!" Height = 23 Left = 96 MaxLength = 6 TabIndex = 5 Top = 72 Width = 84 Name = "destino" PROCEDURE Valid SELECT proveedo SET ORDER TO CODPRO && COD_PRO SEEK this.Value IF FOUND() THEN thisform.nuevoDesc.Value=Nombre ELSE thisform.nuevoDesc.Value = "No encontrado." ENDIF ENDPROC oEnabled = .F. Height = 25 Left = 192 Top = 24 Width = 241 DisabledForeColor = 0,0,0 Name = "ActualDesc"  ActualDesctextbox NuevoDescn"UUƷ%  UuFG((CODPRO E%C4CT n!TNo encontrado.UPROVEEDOCODPROTHISVALUETHISFORM NUEVODESCNOMBREValid01q1A1)Uq"XXv% UwFG((CODPRO E%C4CT p#TNo encontrado!!!UPROVEEDOCODPROTHISVALUETHISFORM ACTUALDESCNOMBREValid01q11A1)X%t66w?X^sCCW*s"Visualizar comprobantes"\-(s"Imprimir comprobantes"\-4s" Subir comprobante a MercadoLibres"\-+s"Escanear QR/Series/Cfg.1DO _6tj0w2g9p IN LOCFILE("2000\VE_CONTROL_DE_COMPROBANTES_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_COMPROBANTES_MENU?")1DO _6tj0w2g9q IN LOCFILE("2000\VE_CONTROL_DE_COMPROBANTES_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_COMPROBANTES_MENU?")1DO _6tj0w2g9r IN LOCFILE("2000\VE_CONTROL_DE_COMPROBANTES_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_COMPROBANTES_MENU?")1DO _6tj0w2g9s IN LOCFILE("2000\VE_CONTROL_DE_COMPROBANTES_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VE_CONTROL_DE_COMPROBANTES_MENU?")tUSHORTCUT'$ge01U CPBT_VIS2GE01 CPBTS_CONTROLCOMPROBCAUSACOD_CLIQNve_reimprimir_comprobante-U REIMPRIMIRVE_REIMPRIMIR_COMPROBANTE CPBTS_CONTROLCOMPROBCAUSA<9ve_control_de_comprobantesaUSUBIR_FACTURA_MLVE_CONTROL_DE_COMPROBANTES%CCRgxCremito$TC\C Rve_scan_remitoUXREMITO CPBTS_CONTROLREMITOSYS_MDATOS_ADICIONALES_REMITOVE_SCAN_REMITO _6tj0w2g9p _6tj0w2g9q _6tj0w2g9r _6tj0w2g9sAaaAa3 3 3 3 ?C111q2BB1P >Qnduu%x(} Y[!TSCH$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T T R01-00035664 BU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPXREMITODATOS_ADICIONALES_REMITOQ#T\tmp\TCC]R ve_pedido%Cventasd jQventasd%Cq_remitoQ%C q_remito1Q%C%C C %Cq_remito Q%C q_remito1FQBU XREMITO XTEMPCOMPP_LOCAL OPEN_FILES VE_PEDIDOVENTASDQ_REMITO Q_REMITO1 SCAN_REMITO REGISTRAR F G((rem ETT%rT  Tr%Cq_remitoQ %C q_remito1Q omovstockQ Q    cQ CXQQrQ QQ       q_remito1%C q_remito1N*CNo hay datos en el remito !!!B- $o q_remito1-q_remitoF T T ~W T T T T# listados ^J"#(C wSF  _J"> % ' T TT>F i1q_remito$Li1q_remito%Mi1q_remito&Mi1q_remito'M i1q_remito(C i1q_remito)C i1q_remito*C i1q_remito+Cd i1q_remito,N& C ZCZ-F.G((COMPROBEr$+C+  r F /%CC. ZC.ZQ_RemitoIDQ>%.%&.&'.'(.%).&*.'&%Cventasd.plat_regbC>+.+,.,F.HBaU/XREMITOXCOD_CLIXFEC_VENCCVENTREMCOD_CLIFEC_VENFCDERE XCOMPROBANTEFAC_VENCAUSAQ_REMITO Q_REMITO1ITEMMSUBITEMCODIGOATRBULCANTIDADDESPACHODESCRCOMPROBMOVSTOCKNUMEROMENSAJEXIDXSUBITEMXCODXBULXATRXDESCR ART_DESCRLISTADOSOOBJZSELQRCFGSERIEQRTCFGTSERIETPLAT_REGESTADOIDVENTASDG+(listadosCLeer datos remito%C bTC l% BF#) T-%ve_scan_remito(r BUXREMITOLISTADOSSYS_MXRESOBTENER_DATOS_REMITOQ_REMITOVE_SCAN_REMITO' Ta T!trsacventasd% TNtrsacVe_scan_remito.prgDatos adicionales del remito%TC% T  T 'TNtrsacVe_scan_remito.prgDatos adicionales del remitoH  B  B C B  B T BU XREMITOTRSACAAALOCK_GBEG_TRAN XRESULTADO TRANSACCIONEND_TRANTTS_ID"qventasdrF ~|$%Cventasd.EstadobNrventasd    rCC C    x{rventasd  rCC C MCrDatos adicionales del remitove_scan_remito.prg [ T- BUXREMITOVENTASDCOMPROBCAUSAQ_REMITOITEMSUBITEMDESPACHOQRCFGSERIEESTADOPLAT_REGUSER_LOG PUB_INDEXTRSACdatos_adicionales_remitoobtener_datos_remito scan_remito registrar transaccionBQB2ArB3q5B1AAAB"BBAAC2qr1!AAA rBs3qQ2AtCBrcrBrdABrAABr2q"r!!BArQQ3q22"2AA122BBB3q/rAU AAC17'.Uy0Jb:0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6MF0YCKA41489731202/F] WINDOWS _6MF0YCKA61494057013.1A WINDOWS _6X70ZPJ371491355061+ WINDOWS _6X70ZPJ381491359574|% WINDOWS _6XR0QPOMK1491355061,,,,,- WINDOWS _6XR0QPOML1491359574-----.i.8 WINDOWS _6XR0R0SOD1491359574)C8CGCTCqCC D WINDOWS _6XR10B7711491359574DDDDEEF WINDOWS _6XR13UF391491359574^GkGxGGGGH COMMENT RESERVED 8JJVERSION = 3.00dataenvironmentdataenvironmentDataenvironment`Top = 220 Left = 1 Width = 1904 Height = 860 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 3 Height = 703 Width = 1291 DoCreate = .T. Caption = "Datos Adicionales" color_fondo = (RGB(255,166,182)) cb_cleanup = .F. xremito = ("") xcausa = ("") Name = "Formulario_acep_canc1" Command1.Top = 674 Command1.Left = 581 Command1.Anchor = 260 Command1.TabIndex = 2 Command1.Name = "Command1" Command2.Top = 674 Command2.Left = 648 Command2.Anchor = 260 Command2.TabIndex = 3 Command2.Name = "Command2" AYUDA.TabIndex = 4 AYUDA.Name = "AYUDA" Text1.Left = 1260 Text1.TabIndex = 5 Text1.Top = 0 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 1238 Ayuda_wiki1.Top = -1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Left = 24 advertencia.Top = 0 advertencia.Name = "advertencia"  cPROCEDURE cargar_grilla thisform.grilla_formato1.sql_crear_columnas () thisform.grilla_formato1.sql_refresh (thisform.grILLA1 ) thisform.griLLA1.QREstado.DynamicCurrentControl = [thisform.QR_Control(q_remito.QR, q_remito.estado, q_remito.cfg)] thisform.grilla1.Refresh() ENDPROC PROCEDURE editar_activo LOCAL oActivo, oObj SELECT q_remito SCATTER NAME oObj MEMO =sys_m("editar activo") oActivo=NewOBJECT("in_activo_neuralboost","in_activos.prg","",thisform.xRemito ,Thisform.xCausa , q_remito.Item, q_remito.SubItem, q_remito.Despacho, q_remito.QR, q_remito.CFG, q_remito.Serie) IF EMPTY(oActivo.CFG) OR (not EMPTY(oActivo.Objeto.UUID) AND EMPTY(oACtivo.Objeto.ID_Activo)) THEN oActivo.Obtener_Activo() oActivo.Llenar_Datos_Base(oObj.Codigo, oObj.Bul, oObj.Atr, oObj.Descr, oObj.Cod_Cli, oObj.Fec_Ven) ENDIF DO FORM ve_scan_remito_items WITH oActivo TO xRes *=sys_m("Res") IF xRes THEN thisform.actualizar_registro (oActivo) ENDIF ENDPROC PROCEDURE qr_control LPARAMETERS xQR, xestado, xcfg **"grilla_imagen_ok{%im_ok%}|grilla_imagen_scan{%im_vacio%}|grilla_imagen_qr{%im_qr%}|grilla_boton{%bt_enviar%}",,,,1) xControl="im_vacio" TRY DO CASE CASE xestado>=10 xControl="IM_OK" CASE xestado>=2 xControl="IM_Enviando" CASE EMPTY(xQR) AND EMPTY(xcfg) xControl="IM_Vacio" CASE NOT EMPTY(xQR) AND EMPTY(xcfg) xControl="IM_qr" CASE NOT EMPTY(xcfg) xControl="IM_Enviando" ENDCASE CATCH TO oEx =sys_m("Error") ENDTRY *Thisform.caption = RIGHT(Thisform.caption + xControl,80) RETURN xControl ENDPROC PROCEDURE enviar_activo LOCAL oActivo, xOldE, oObj =sys_m("Enviar") SELECT q_remito SCATTER NAME oObj MEMO oActivo=NEWOBJECT("in_activo_neuralboost","in_activos.prg","",thisform.xRemito ,Thisform.xCausa , q_remito.ITEM, q_remito.SubItem, q_remito.Despacho, q_remito.QR, q_remito.CFG, q_remito.Serie, q_remito.Estado, q_remito.Plat_Reg) IF NOT EMPTY(oActivo.CFG) THEN IF NOT oActivo.Objeto.Nuevo_Activo OR mensaje_sino("Est seguro de crear un nuevo activo?",2) THEN oActivo.Enviar_Activo() thisform.actualizar_registro (oActivo) thisform.command2.Enabled = .f. ENDIF ENDIF ENDPROC PROCEDURE actualizar_registro LPARAMETERS oActivo replace cfg WITH oActivo.Objeto.Obtener_JSON() , ; QR WITH oActivo.Objeto.UUID, ; QRT WITH oActivo.Objeto.UUID,; estado WITH oActivo.Estado,; Plat_reg WITH oActivo.Plat_Reg ENDPROC PROCEDURE procesar_cancelar thisform.Grilla_formato1.queryUnload () ENDPROC PROCEDURE procesar_aceptar thisform.Grilla_formato1.queryUnload () ENDPROC PROCEDURE QueryUnload thisform.grilla_formato1.queryUnload () ENDPROC PROCEDURE Init lparameters xRemito, xCausa DODEFAULT() IF type("xRemito")="C" THEN thisform.Caption = thisform.Caption + " - "+xRemito Thisform.xRemito=xRemito thisform.xCausa=xCausa ENDIF thisform.cargar_grilla() ENDPROC  " CU OACTIVOCFGOBJETO OBTENER_JSONQRUUIDQRTESTADOPLAT_REGCUTHISFORMGRILLA_FORMATO1 QUERYUNLOADCUTHISFORMGRILLA_FORMATO1 QUERYUNLOADCUTHISFORMGRILLA_FORMATO1 QUERYUNLOAD  C%CxRemitobCoT - TT CUXREMITOXCAUSATHISFORMCAPTION CARGAR_GRILLA cargar_grilla0 editar_activo5 qr_control enviar_activoactualizar_registro3procesar_cancelarprocesar_aceptar QueryUnload^Init1bQ3qBABA2R1!1Q!!A!A31qRSAA3q2232A1: &(J35 E8 N: Q<B i U> X X) color_fondo cb_cleanup xremito xcausa *cargar_grilla *editar_activo *qr_control *enviar_activo *actualizar_registro grillaform_controles.vcxgridGRILLA1Formulario_acep_canc1_Anchor = 15 Height = 636 Left = 0 RowHeight = 32 Top = 24 Width = 1284 Name = "GRILLA1" grilla_formatoform_controles.vcxcustomGrilla_formato1Formulario_acep_canc1pTop = 667 Left = 0 sql_alias = ("q_remito") sql_noclose = .T. sql_norecmov = .T. Name = "Grilla_formato1" ,PROCEDURE evn_field_click LPARAMETERS oCol DO CASE CASE oCol.TAG="CFGT" thisform.editar_activo() CASE oCol.TAG="QR" thisform.enviar_activo() ENDCASE ENDPROC PROCEDURE sql_crear_columnas this.for_add_columna () This.For_add_columna (,".Sel",,30,,,,,,,,"grilla_checkbox") This.For_add_columna (,".Item",,30) This.For_add_columna (,".codigo",,70,,,,,,,,"grilla_textbox",,,,0) This.For_add_columna (,".Atr",,30) This.For_add_columna (,".Bul",,30) This.For_add_columna (,".Cantidad",,70) This.For_add_columna (,".Despacho",,120) This.For_add_columna (,".Descr",,480) This.For_add_columna ("QREstado",".QR","Estado",45,,,,,,,,"grilla_imagen_ok{%im_ok%}|grilla_imagen_scan{%im_vacio%}|grilla_imagen_qr{%im_qr%}|grilla_imagen_enviando{%IM_Enviando%}",,,,2) This.For_add_columna (,".QR","QR{%Enviar%}",45,,,,,,,,"grilla_boton{%bt_enviar%}",,,,2) This.For_add_columna (,".QRT","UUID",75,,,,,,,,,,.t.) This.For_add_columna (,".CFGT","Configurar{%Config%}",70,,,,,,,,"grilla_boton",,.t.,,2) This.For_add_columna (,".SerieT",,100) ENDPROC PROCEDURE for_dynamics lparameters oGrilla, xAlias ENDPROC PROCEDURE evn_field_keypress LPARAMETERS oCol, nKeyCode, nShiftAltCtrl xRet=.t. =SYS_m("Enter", not nKeyCode=13) DO CASE CASE inlist(oCol.TAG,"QR","QRT") xRet=this.Parent.Codebar_activos_sch1.key_capture (@nKeyCode, @nShiftAltCtrl) =sys_m("cleanup",not thisform.cb_cleanup ) ENDCASE RETURN xRet ENDPROC PROCEDURE evn_field_when LPARAMETERS oCol, xRet DO CASE CASE oCol.TAG="QRT" xRet=.f. RETURN xRet ENDCASE ENDPROC "n%e:+UkHd CFGT? C QRd CUOCOLTAGTHISFORM EDITAR_ACTIVO ENVIAR_ACTIVO C2C.Selgrilla_checkboxC.Item:C.codigoFgrilla_textboxC.AtrC.BulC .CantidadFC .DespachoxC.DescrCQREstado.QREstado-xgrilla_imagen_ok{%im_ok%}|grilla_imagen_scan{%im_vacio%}|grilla_imagen_qr{%im_qr%}|grilla_imagen_enviando{%IM_Enviando%}OC.QR QR{%Enviar%}-grilla_boton{%bt_enviar%})C.QRTUUIDKaLC.CFGTConfigurar{%Config%}F grilla_botonaC.SerieTdUTHISFOR_ADD_COLUMNA UOGRILLAXALIAS TaCEnter  HE CQRQRTTC Ccleanup  BU OCOLNKEYCODE NSHIFTALTCTRLXRETSYS_MTAGTHISPARENTCODEBAR_ACTIVOS_SCH1 KEY_CAPTURETHISFORM CB_CLEANUPP HI QRTI T- BUOCOLXRETTAGevn_field_click0sql_crear_columnas for_dynamicsevn_field_keypressevn_field_when1qA2!! 43A2A1  A^!$!.)codebar_paste_controllerform_grilla_controles.vcx containerCB_PasteFormulario_acep_canc1wAnchor = 12 Top = 667 Left = 1056 Visible = .F. TabIndex = 3 Name = "CB_Paste" tmr_iniciar.Name = "tmr_iniciar" codebar_activos_schform_grilla_controles.vcxcustomCodebar_activos_sch1Formulario_acep_canc1LTop = 667 Left = 1116 cb_mayusculas = .F. Name = "Codebar_activos_sch1"  DPROCEDURE Init * Log lectura IF TYPE("p_system")#"C" THEN p_in_scan_largo=73 p_system="f:\Sistema\Systems\system_sch" ENDIF this.cb_largo= 73 IF !USED("log_codebar") IF !FILE(p_system+"\log\log_codebar.dbf") * Lo creo IF p_in_scan_largo>=200 THEN CREATE TABLE (p_system+"\log\log_codebar.dbf") FREE ; (; fecha T ,; leido M(4) ,; cod c(15) ,; atr c(3) ,; bul c(3) ,; lot c(20) ,; MULT N(14,5) ,; multman N(14,5) ,; DESCR c(100) ,; deduct l ; ) ELSE CREATE TABLE (p_system+"\log\log_codebar.dbf") FREE ; (; fecha T ,; leido c(p_in_scan_largo) ,; cod c(15) ,; atr c(3) ,; bul c(3) ,; lot c(20) ,; MULT N(14,5) ,; multman N(14,5) ,; DESCR c(100) ,; deduct l ; ) ENDIF ELSE USE (p_system+"\log\log_codebar.dbf") IN 0 ENDIF ENDIF ENDPROC PROCEDURE ingreso_valido LPARAMETERS xUUID thisform.Caption = "Valido " +xUUID replace QR WITH xUUID , QRT WITH xUUID IN q_remito thisform.qrTimer.Enabled = .t. ENDPROC PROCEDURE cb_cleanup =DODEFAULT() thisform.Caption =thisform.Caption + "|" this.Parent.text2.Value="" thisform.cb_cleanup = .t. =sys_m("cleanup") ENDPROC PROCEDURE ingreso_invalido THISFORM.CAPTION = "Leido ("+THIS.cb_data +")" xold_color=thisform.BackColor thisform.BackColor=RGB(255,0,0) thisform.Refresh this.beep_error thisform.BackColor=xold_color thisform.qrTimer.Enabled = .t. thisform.Refresh ENDPROC PROCEDURE evn_valid LOCAL log_leido log_leido = THIS.cb_data LOCAL xdata, xmult, xdescr xdata = THIS.cb_data =sys_m("valid") xHead="https://neuralboost.acuraflow.com/qr/" xUUID=SUBSTR(PADR(xData,73),LEN(xHead)+1) IF NOT LEFT(xdata,LEN(xHead))=xHead THEN THIS.ingreso_invalido () =THIS.cb_cleanup () thisform.Refresh RETURN .F. ELSE THIS.ingreso_valido (xUUID) =THIS.cb_cleanup () thisform.Refresh RETURN .F. ENDIF ENDPROC PROCEDURE key_capture LPARAMETERS nKeyCode, nShiftAltCtrl, xvalor_campo_codigo * paso el valor del campo de texto por si se hizo un copy paste IF NOT THIS.Parent.CB_Paste.key_paste(@nKeyCode, @nShiftAltCtrl, THIS.PARENT.text2, "Value" , this) DO CASE CASE nKeyCode=7 replace qrt WITH "", qr WITH "" this.cb_cleanup() thisform.qrtimer.Enabled = .t. CASE INLIST(nKeyCode,22,1,7,6,18,3,5,24,4,19,27,13 ) nKeyCode=0 OTHERWISE *THISFORM.CAPTION = STR(nKeyCode)+" / "+STR(nShiftAltCtrl) RETURN DODEFAULT(@nKeyCode, nShiftAltCtrl, THIS.PARENT.text2.VALUE) ENDCASE ENDIF ENDPROC  l"S S % G, U%Cp_systembCU TI*Tf:\Sistema\Systems\system_schTI%C log_codebar x*%C\log\log_codebar.dbf0 C%|h1\log\log_codebar.dbfTMCCC C N N Cd L ?h1\log\log_codebar.dbfTCCCC C N N Cd L t'Q\log\log_codebar.dbfUP_IN_SCAN_LARGOP_SYSTEMTHISCB_LARGOFECHALEIDOCODATRBULLOTMULTMULTMANDESCRDEDUCTQTValido >TaU XUUIDTHISFORMCAPTIONQRQRTINQ_REMITOQRTIMERENABLED\ CT|TTaCcleanupUTHISFORMCAPTIONTHISPARENTTEXT2VALUE CB_CLEANUPSYS_M#TLeido ()TTC^  TT a U THISFORMCAPTIONTHISCB_DATA XOLD_COLOR BACKCOLORREFRESH BEEP_ERRORQRTIMERENABLEDTTCvalid2T%https://neuralboost.acuraflow.com/qr/TCCIC>\%CC>= C C B- C C B-U LOG_LEIDOTHISCB_DATAXDATAXMULTXDESCRSYS_MXHEADXUUIDINGRESO_INVALIDO CB_CLEANUPTHISFORMREFRESHINGRESO_VALIDO7%CValue HW > C T a5 C T 2BCUNKEYCODE NSHIFTALTCTRLXVALOR_CAMPO_CODIGOTHISPARENTCB_PASTE KEY_PASTETEXT2QRTQR CB_CLEANUPTHISFORMQRTIMERENABLEDVALUEInit0ingreso_valido" cb_cleanupingreso_invalidod evn_validZ key_capture1A3 AqAA2q2aA213q!!qqA3w1qQAB240U6=& L99 i)S textboxtextboxText2Formulario_acep_canc1[Anchor = 4 Height = 25 Left = 73 Top = 670 Visible = .F. Width = 408 Name = "Text2" 0PROCEDURE Init *this.Visible = p_dev ENDPROC " %;MIUUInit012%) commandbutton commandbuttonCommand3Formulario_acep_canc1lTop = 668 Left = 1164 Height = 25 Width = 120 Anchor = 12 Caption = "Copiar Tabla" Name = "Command3" PROCEDURE Click SELECT q_remito COPY TO F:\sistema\temp\q_remito WITH CDX ENDPROC PROCEDURE Init this.Visible=p_dev ENDPROC <"##%U+F!(F:\sistema\temp\q_remitoUQ_REMITOFTUTHISVISIBLEP_DEVClick0Initp1q21Lgy)#timertimerqrTimerFormulario_acep_canc1RTop = 667 Left = 984 Height = 25 Width = 24 Interval = 100 Name = "qrTimer" PROCEDURE Timer this.Enabled = .f. LOCAL xRec SELECT q_remito xRec=RECNO("q_remito") replace qrt WITH qr ALL IN q_remito GO xRec IN q_remito SKIP IN q_remito thisform.Refresh ENDPROC d"KK]k% UgT-FTCq_remitoO> #H U THISENABLEDXRECQ_REMITOQRTQRALLTHISFORMREFRESHTimer01qqq!2)KArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 %TIX% C0aF:\SISTEMA\SYSTEMS\SYSTEM_maxsn Ta Tages.DBC T T MAX  T a"T C Ct Atencin6(CInicio DOS_Transf *CTransfiriendo comprobantes  T T TaC Terminado%CFin DOS_TRANSF UXPRUEBA XEMP_PARTXMANUALSETS DEY_FUNC2P_DEV P_SUSPENDGESDBCP_DOSP_EMPXSOLOLOG XMSGTITULOMENSAJELOG_AUTXERRXMSGXNOMBRE DOS_TRANSFAQB!R1%clH^{XϹU%C ! B%C]TCC0C GUIC DEYUNK666=CZ kTCC0C GUIC DEYUNK666= CZ  BUTHIS KEY_SISTEMA P_SUBSISTEMA P_DEV_ENVP_EMPP_LOCALIZACION CUTHISKEY_SISTEMA_SETiTTTTTUORESTHISCPBTCAUSAEMPRESA RES_CODIGO RES_MENSAJE< C%C5CU ORESPUESTATYPEOTHISLEER_RESPUESTA CU(QNAGES_TRANSFERENCIA_RESPUESTAKTCnages_transferencia_respuestasys_ages_objetos.prgCUORESOTRESTHISAGREGAR_RESULTADOC%CHF sT T TUORESTHISRESULTADOS_COLLADD RES_CODIGOROKRWARNRERRORTCaaUTHIS RESULTADOS NFJSONCREATERESULTADOS_COLLKey_Sistema_set0INITleer_respuestaINITqINITagregar_respuestaagregar_resultado Preparar_JSON$ T  U KEY_SISTEMAX T T T T T  UCPBTCAUSAEMPRESA RES_MENSAJE RES_CODIGO TC .Q T T T T T    UFECHARESULTADOS_COLL COLLECTION RESULTADOSTIPOROKRWARNRERROR nages_objetoCUSTOMnages_transferencia_respuesta nages_objetonages_transferencias nages_objeto3QAA2:q111112qAA;4q2qAaqaqAqA22273R - !!1K6!,><.dJ0%-4z<Y)%_g4ogDXUhTC TC TC TTT G+(sys_log%C 'T Cloguear_aprobacionesN% Q %Ceaprob Qeaprob%Cdaprob LQdaprob%Coaprob zQoaprobTa MRCENo se pueden abrir las tablas asociadas al objeto de aprobaciones !!!T-WCDNo se puedn abrir las tablas asociadas al objeto de aprobaciones !!!   %-:C'No habilitado el mdulo de aprobaciones T-B%C T\tmp\C]%C( T\tmp\C]J($%  + %-#CTraigo los datos :%CCZCZoaprob operacionT T(TCoaprob.nCCZ%7Tthis.notificaciones[CCZ]=CCZ&aaa TCTC '5roaprob %-#'CInicializo la cadena !%  aCU XTIPO_OPERACION XID_OPERACION XID_CADENAAAABBBZTHISTIPO_OPERACION ID_OPERACION ID_CADENASYS_LOGOLOG P_SYS_APROBEAPROBDAPROBOAPROB HABILITADOMENSAJELOG TMP_APROBP_LOCAL TMP_APROB_TMPNOTIFICACIONESID_CADESTADOUSUARIOS_QUE_APROBARONOBTENER_USUARIOS_QUE_APROBARONUSUARIOS_QUE_RECHAZARONOBTENER_USUARIOS_QUE_RECHAZARON TIPO_OPERID_OPERASIGNAR_CADENA_DE_APROBACION>TC TC %CximportebLoT TC T%CxmonedabLT TC T %CxcambiobL+T XTC T TC % !C    T  T  TT Ta%`?listados  C$- jT J(TT 5 T T T-!%Ctmp_aprob_cadena&Q% ;CCXError de conversin de moneda: CCX /CError de conversin de moneda:! B  :%CC"ZC#Zoaprob operacion $%&'(T$)*%$rC$eaprobid_cadAodaprob*$,-.tmp_aprob_cadena% Dotmp_aprob_cadena,Q0,tmp_aprob_nivelC Evaluando: .CCX Aprobantes: C)2 /CCX Rechazantes: C)3 ?CCX Importe: CC999,999,999,999.99_ /CCXMoneda: CC999_ =CCXCambio: CC999,999,999.99999_ =CCXMoneda de evaluacin: CC999_ JCCXImporte evaluacin: CC 999,999,999,999.99_ CCX T4F1 ~ T'1,(CCXNivel: CC'Z F~,' T5CC76<%C -.C89Sa- 6 u nCC XRango: CC-999,999,999,999.99_ a CC.999,999,999,999.99_ - Evala +CC X Frmula: C7 T T&- T:T&C5%:;rCC X Aprobacin: C: Aprueba3C: RechazaNo completada: CC:Z66 %C -. MCC X4Est dentro del rango - Es de aprobacin obligatoria F1>>10C89S0 0 0:6% : (( TTC( q "%89S. F1>>10C89S0 0 0:6% : (( TTC(%:  m `CC XGEst fuera del rango - Es de aprobacin de opcional para rangos menores %:: i >10:  qCC XRango: CC-999,999,999,999.99_ a CC.999,999,999,999.99_ - No evala C CCXAprobacin nivel: C10 ApruebaYC10 Rechaza=C10 No completado Desconocido: CC10Z666 %10 Ta+CCX Fin nivel CC'Z C F1 T& ~> T&0:%CC"ZC#Zoaprob operacion 9>)  < =&  LCCXAprobacin final: C& ApruebaPC& Rechaza7C& No completado Desconocido: CC&Z666 CCX T=&T((CF TT(C("TCC(>$% = \)CCC8@?TACBTCCD$%= = ETE%C8@H "%Ctcccomp ,Qtcccomp(%C#tcccomptcccordhTEFG UCCXNo se encuentra la operacin: C#H CC#Z  "%Ccccomp Qcccomp"%C#cccompopATEIG ECCX!No se encuentra la operacin: OP CC#Z  "a%Cconver Qconver&%C#converconverTEJK ]ECCX!No se encuentra la operacin: OP CC#Z  29CCXOperacin no vlida: CC"Z ,CE8L=C8@? B& n;TNo hay detalle para la cadena CC$Z !!!C!C CCX B  FT)No hay cadena definida para la operacin CC$Z !!!C!C CCX B  T)No hay cadenas para el tipo de operacin C"Orden de Compra2C" Orden de Pago (Desconocido)66 !!!C!C CCX BCCX !%Ctmp_aprob_cadena7QUMXUSRXID_APROBACIONXIMPORTEXMONEDAXCAMBIO XNOTIFICAR PUB_INDEXTHISIMPORTEMONEDACAMBIOASIGNAR_APROBACIONXIMPORTE_EVALUACIONXERR_CONVERSIONXMSG_CONVERSION XFECHA_OUT XFECHA_EXACTAP_SYS_APROB_MONEDACONVERTIR_ENTRE_MONEDASLISTADOSIMPORTE_EVALUACIONUSUARIOS USUARIOS_MAXUSUARIOS_LISTAXMSGXUSUARIOS_AP_MAXXUSUARIOS_AP_TOP XUSUARIOS_AP XUSUARIOS_AP2XUSUARIOS_AP_MAX2TMP_APROB_CADENAOLOGLOGMENSAJETIPO_OPERACION ID_OPERACIONXCADENAXNIVELES_ANTERIORES XAPROBACIONXNIVELZOAPROBID_CADDAPROBNIVELRANGODRANGOHDISTINCTAPROBTMP_APROB_NIVELUSR_APUSR_RECHXAPROBACION_CADENAXFORMULAPREPROCESAR_FORMULAFORMULAEAPROBCOMPLETAXAPRUEBAEVALUAR_FORMULA_NIVELIMPORTEEESTADOUSUARIO_AGREGAR_EN_LISTANOTIFICAR_USUARIONOT_TIPOUSUARIOS_QUE_APROBARONOBTENER_USUARIOS_QUE_APROBARONUSUARIOS_QUE_RECHAZARONOBTENER_USUARIOS_QUE_RECHAZARON XUSR_EMISORTCCCOMPUSRTEXTO_ABREVIADO_OPERACIONCCCOMPCONVERUSR_BAJANOT_MAILx,TCusuariothis.evaluar_usrTC y  and TC o  or BUXFORMULATC %-\5C"Asigno la cadena de aprobacin !!!$%  +CObjeto OAP no inicializado !!! %-1CObjeto OAP no inicializado !!!B-:%CCZCZoaprob operacion%M>       5roaprobTU XID_CADENATHISOLOGLOGTIPO_OPERACION ID_OPERACIONMENSAJEOAPROBID_CADUSR_APUSR_RECHESTADOIMPORTEMONEDACAMBIO TIPO_OPERID_OPER ID_CADENA%CAsigna aprobacin:MCCXTipo operacin: C  (CC Z)2CCXID operacin: CC Z*CCX Usuario: CCZCCX Aprobacin: C ApruebafC RechazaMC0*Inicializa usuarios aprobantes/rechazantes No interviene666?CCX Importe: CC999,999,999,999.99_=CCXCambio: CC999,999,999.99999_=CCXMoneda de evaluacin: CC 999_T   T  T TT Ta% ?listados C$ -  T JCCXImporte evaluacin: CC 999,999,999,999.99_%;CCXError de conversin de moneda: :%CC ZC Zoaprob operacion%V%CH<  %C>C%C >C  l%C >C%C ^>C h %C>C%C>C  2  R7CCXEl usuario no puede intervenir !> 4CCXLa operacin no se encontrCCXUXUSRXID_APROBACIONXIMPORTEXMONEDAXCAMBIOTHISOLOGLOGTEXTO_ABREVIADO_OPERACION ID_OPERACIONTIPO_OPERACIONP_SYS_APROB_MONEDAIMPORTEXIMPORTE_EVALUACIONXERR_CONVERSIONXMSG_CONVERSION XFECHA_OUT XFECHA_EXACTACONVERTIR_ENTRE_MONEDASLISTADOSIMPORTE_EVALUACIONEL_USUARIO_PUEDE_INTERVENIROAPROBID_CADUSUARIO_EN_LISTAUSR_RECHUSUARIO_QUITAR_DE_LISTAUSR_APUSUARIO_AGREGAR_EN_LISTA  5 T T-TC=TCC evaluar_usr evaluar_usr2 or  and TC T T BUXFORMULA XNIVELES_ANTXAPRXRESXRES2XAPRUEBAXNIVELES_ANTERIORES H 3B |%Cj T xB  T 22C%Estado invlido !!! Debe ser 0, 1 o 2 TBBUXAPRUEBAXNUEVA_APROBACIONMENSAJE 1CCXEvala usuario: CCZ,TCC xsuperuserbN6Hy C(CCXUsuario apruebaC  C %(CCXUsuario rechazaC  2MCCX4Usuario no est en la listas de aprobacin y rechazoC $T     B U XUSR XSUPERUSERTHISOLOGLOGUSUARIO_EN_LISTAOAPROBUSR_APREGLAS_DE_APROBACIONXAPRUEBAUSR_RECHXNIVELES_ANTERIORES9 TTBaUXUSR XSUPERUSERXUSUARIOS_AP_MAX2 XUSUARIOS_AP2%%C tmp_aprob .oeaprob1Q& &  S.oeaprob1F x%C tmp_aprob j.h1NC(Q& &  tU XTIPO_OPERTHIS HABILITADOID_CADDESCREAPROB TIPO_OPER TMP_APROB TMP_APROB_TMP  TCeaprobid_cadT<odaprob ausuario(CCZ CSa C 6 $usuario(CCZ     B UXUSRXAP_CADXIMPORTE XCOMPLETATHISIMPORTE_EVALUACIONEAPROBCOMPLETAARR_TMPDAPROBID_CADFORMULARANGODRANGOHBCUTHIS+OBTENER_USUARIOS_QUE_APROBARON_O_RECHAZARONBCUTHIS+OBTENER_USUARIOS_QUE_APROBARON_O_RECHAZARONu%Cusuarios =Q \usuarios T:%CCZCZoaprob operacione(a-TCC  6%O%%CusuarioscodigoA,TCC, 6C  K ]! BUXTIPOP_SYSTEMZXUSRXXTHISTIPO_OPERACION ID_OPERACIONUSUARIO_BUSCAROAPROBUSR_APUSR_RECHUSUARIOSDESCRH( m%WT%Requerimiento de aprobacin de la OC CC999,999,999,999_ para el usuario C C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC+T - Requerimiento de aprobacin iTLa OC CC999,999,999,999_ ha sido Caprobada rechazada6C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC6TC - Aprobada - Rechazada6 %T%Requerimiento de aprobacin de la OP CC999,999,999,999_ para el usuario C C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC+T - Requerimiento de aprobacin TLa OP CC999,999,999,999_ ha sido Caprobada rechazada6C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC6TC - Aprobada - Rechazada6 %T#Requerimiento de aprobacin del MV CC999,999,999,999_ para el usuario C C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC+T - Requerimiento de aprobacin TLa MV CC999,999,999,999_ ha sido Caprobada rechazada6C C C C &C C  DEV: Email: CC@6C C Fecha y hora: CC6TC - Aprobada - Rechazada6BU XTIPOXTXTXNOTAXEMAILXESTADO_APROBACIONTHISTIPO_OPERACION ID_OPERACIONUSUARIOSDESCRTARJETA_NOTIFICACIONP_DEV TC  %Cusuarios wQ \usuarios T%;CusuarioscodigoTC %C7YCCX$Notificacin al usuario: el usuario C  no tiene email % %C (TCC;6C FCCX-Notificacin al emisor: no hay mail designado %%C )TC WCCX>Notificacin de aprobacin a un tercero: no hay mail designado %C   T-%3(/6%Cthis.notificaciones[CCZ]+ Ta! =% qCCXNotificacin de C+C aprobacin  rechazo6requerimiento de aprobacin6: CC (forzada)6  T T !C  Q COLLECTIONTC CollectionTC %C C%C  T<sys_mail_alertasC  %C.%(0TCthis.notificaciones[CCZ]% 1Tthis.notificaciones[CCZ]=-1&aaa Toaprob.nCCZ"replace in oaprob &aaa with -1 !%*(0TCthis.notificaciones[CCZ]% 7Tthis.notificaciones[CCZ]=CCZ&aaa Toaprob.nCCZ$replace in oaprob &aaa with xusr !%& m5CCXNotificacin: Error: C  ^CCXNotificacin: C * - Ya notificado, no se vuelve a notificar   +%  C |CCXNotificacin de C aprobacin rechazo6: C  - No tiene mail asignado (%  C 0 vCCXNotificacin de C aprobacin rechazo6": La cadena no tiene mail asignado +%  C lCCX-Notificacin de requerimiento de aprobacin: C  - No tiene mail asignado UXUSRXMAIL_APROBACION XNOTIFICARXESTADO_APROBACIONXADJUNTAR_DOCUMENTOSXEMAILXMSGXTXTAAAXNOTAP_SYSTEMUSUARIOSEMAILTHISOLOGLOGDESCREAPROBNOT_OTROZ XNOTIFICADONOTIFICAR_TEXTOS OADJFILESXARCHIVOPDF_FULLADJUNTAR_COMPROBANTEADDADJUNTAR_DOCUMENTOSSEND_EMAIL_ALERTASSYS_MAIL_ALERTASTARJETA_NOTIFICACION3H H? {)BOC CC999,999,999,999_ %Ctcccomp Qtcccomp(%Ctcccomptcccordk%Cproveedo Qproveedo"Cproveedocodpro!T Proveedor: C B ECCX!No se encuentra la operacin: OC CCZ  29CCXOperacin no vlida: CCZ  H, h)BOP CC999,999,999,999_ %Ccccomp Qcccomp"%CcccompopP%Cproveedo Qproveedo"C proveedocodpro!T Proveedor: C B ECCX!No se encuentra la operacin: OP CCZ  29CCXOperacin no vlida: CCZ  H M)BMV CC999,999,999,999_ i T%Cconver2 Qconver2'%Cconver2converH  Ph%Cproveedo !Qproveedo"C proveedocodpro!T Proveedor: C C%Cclientes Qclientes"C clientescodcliT Cliente: C 2  T B eECCX!No se encuentra la operacin: OP CCZ  29CCXOperacin no vlida: CCZ |Btarjeta_notificacion() de C encabezado'C texto (no definido)66 no encontrada!!!UXIDTHISTIPO_OPERACION ID_OPERACIONTCCCOMPPROVEEDOCOD_PROXTXTNOMBREOLOGLOGCCCOMPCONVER2PROCLICPROCLICLIENTES(TTFToaprob.nCCZ"replace in oaprob &aaa with -1 TTT>  U ZTHISUSUARIOSNOTIFICACIONESOAPROBAAA USUARIOS_MAXUSUARIOS_QUE_APROBARONUSUARIOS_QUE_RECHAZARONUSR_APUSR_RECHH 6 BOC T BOP r BMV 2 BXXU XID_OPERACIONu*TC Documentos imp_exp_p.prg!%C oDocumentosbOg TaH|? $CNOC C Z $COPA C Z *$CMMV C Z 2? T-%cC<U OADJFILES ODOCUMENTOSXOKTHISTIPO_OPERACION LEER_ARCHIVOS ID_OPERACIONAGREGAR_DOCS_COLLO TH?  %Ctcccomp `Qtcccomp%Cproveedo Qproveedo%"Ctcccomptccvord%"Cproveedocodpro$TC@z 9999,999,999_T N8T CC S C   6TCN T- T T T TTC X9vopoc TCTCCCpdf@%C0  T(cm_reimprimir_oc T%C0 @C No se encuentra el PDF de la OC CCZ !!! T  5 2? BUXARCHIVOPDF_FULLTHISTIPO_OPERACIONTCCCOMPPROVEEDOORDEN ID_OPERACIONCOD_PRO ZIDCOMPROBZIDCAUSA ZPRONOMBRETARJETADES_PROVNOMBRE XPATH_PDFPDF_PATH XCOPIAPDF XARCHIVOPDF XIDARCHIVOZTIPOCOMPROBANTE ZCOMPROBANTEOBTENER_PDF_NOMBRE_COMPRASXORDENREVVOPOCLIMPIAR_FILE_NAMEXOLD REIMPRIMIR_OCCM_REIMPRIMIR_OCMENSAJE$  T+aTCC,\TC%TC%CB-TCg%Ba%B- TCC,\BUXUSRXLISTAZXNUMXXXYYY XES_UNO_SOLOJ  TCCZTCHG: c B# CC>=,BCC>[# CC>R,"BCC>C>C>[" C,,0)BCC,,C>[ 2: BUXUSRXLISTAXSTR_USR XTRIMED_LISTA9 +BCCCC ,6CCZUXUSRXLISTA 4F%CxfiltrobCGset filt to &xfiltro G~(clasesTC hlp_cad_aprobN <G( TUXCADENAXFILTRO TMP_APROBAYUDACLASESSHOWVARIABLEID_CAD  TT(TC,%%C -TCCCC6=g*TCC[6%C! BUXPOSXLISTAZXUSRXRESIDUOXCOMAinit0evaluar_aprobacion=preprocesar_formula asignar_cadena_de_aprobacion !asignar_aprobacion#evaluar_formula_nivelI,reglas_de_aprobacionY- evaluar_usr{. evaluar_usr20aprobaciones_disponiblesE1el_usuario_puede_intervenir&3obtener_usuarios_que_aprobaron4obtener_usuarios_que_rechazaron4+obtener_usuarios_que_aprobaron_o_rechazaron85notificar_textos27notificar_usuario>tarjeta_notificacionIeliminar_autorizacionesQtexto_abreviado_operacion,Sadjuntar_documentosSadjuntar_comprobanteUusuario_en_listajZusuario_quitar_de_lista[usuario_agregar_en_lista>] ayuda_cadenas]usuario_buscar^ T- T- T T T T T T T T  T  T  T    T  T T T                U HABILITADO INICIALIDADOTIPO_OPERACION ID_OPERACION ID_CADENAIMPORTEMONEDACAMBIOIMPORTE_EVALUACIONESTADO TMP_APROB TMP_APROB_TMPOLOGUSUARIOS USUARIOS_MAXNOTIFICACIONESUSUARIOS_QUE_APROBARONUSUARIOS_QUE_RECHAZARONUSUARIOS_LISTA"T"TCadenas de AprobacinT tmp_aprobThlpTid_cad Ta TPTdescrT DescripcinT descrT C T T id_cadT CdigoTcodigoTNU ANCHO_TOTALTITULOTABLAIDCLAVE CLAVE_UNICAANCHOCLAVE_BUSQUEDATITULO_BUSQUEDAORDEN TIPO_CAMPOANCHO1CLAVE_BUSQUEDA1TITULO_COLUMNA1ORDEN1 TIPO_CAMPO1 aprobacionescustomb hlp_cad_aprobhlpep 1211AqA2!A!A!A!rBAAABAAAB1A11AqAABARqAABA4121A1A1A2BAr11BrsA2s2#BQtrC"rAA$uAA2CAAAA1G bA`1CsABAAR r"BBABABta1AQAb!A"QAb!AbQAAABAAcAAR AAAA3q3u1QABAqAcBRA4rV!Q r11B121AB2AB2ABBqABAAA451B1qBA1!AAA2BBBAB31r3q"!qA!BA4s/223qA2QAAAAB2qa2 $ bAb2 $ bAb2 $ bABB3q6rAB!AB!aAA2Q!qAA"2aAAAB "AA22"ABAA2BqBABA1BAQAAAaAAB4qa121AAA!sQAAb12!A"AA!sQAAb12r1ArqAA!rAA!BQAAB4rqqr"B4q111A3qrqaAaAaAAABr5a1AAA!A!AB""A"AbbA:rAqA2qArAAD2122""B22rARrqRb322!AAAAB1p` ` P@1"a1!!1113yH\R&RPS,SzXBXhhjukllppqquRu x6xrxxx *y7{$V{ B@fu&Т)\,YE"M-:q^WKtN-x]Sڷpӹ%h'*'%KY#U? *CProcesar remitos electronicos)sys_procesando ProcesandoG+(listadosG+(fe_funciones_cot   T -?listados 3 T%O T oTC - T TTC !#TC000000C$"0TC FERE_CPBTFE_Funciones_COT.PRGTT#000T$000T%C$T&CC8T'C CcotH C t Fq~CC.remito ( )*)  1C.regcotC.numcotC0Q  p ^J1sys_procesando Procesando +C , F C-C , 25C(No se pas modo de validacin de remitos.TC/%/TCC0C1Remito Electrnico P (^ (C(C.No se pudo crear el archivo para presentar !!!C  DIRECTORIO: CC  ARCHIVO: CC C 2.%8 T3-1sys_procesandoContactando a ARBA /T4CGES.FE.GES_FERemito_ElectronicoT45(6 T3a%3 T7a+72sys_procesandoPresentando remitos QT 489(mT '% 5  T!%: g C;Es recomendable actualizar las librerias de presentacin!!!C 'Actualmente est instalada la versin: CC Z.C C 7Igualmente puede seguir con el proceso de presentacin.;!%: g "TC4< !TC4=(1 TC2> \TC4?T7-C>C@Asys_procesandoCB 4 Asys_procesandoPCCLibreras de remitos electrnicos inexistentes o mal instaladas !!!;UCXDESPXFECHASALIDACOT XGENERARCOT XGENERARTXTXALIASOTMPSYS_M SP_MENSAJESYS_PROCESANDOLISTADOSFE_FUNCIONES_COTODATOS_EMPRESAXDCINITXLIBVER DATOS_EMPRESAXCUITXUSUARIOXPASSXPATHXARCHIVOOCPBTOVALOITMORESPXDIRTXTOEXXRESPTXTP_FCE_COT_TESTINGP_FCE_TESTING_CUITCUITP_FCE_COT_USUARIOP_FCE_COT_CLAVEODEYFUNCGET_PATHFERE_OBTENER_NOMBRE_ARCHIVOPLANTAPUERTAFECHA SECUENCIALDESPACHO SYS_DOSCENP_DOSP_CODEMPNOMBREPROCESAR_COMPROBANTETYPEO MENSAJE_SOBTENER_ARCHIVOP_FCE_COT_DIR_TXT P_DIR_EXPORTMESSAGE XERROR_REOFERETESTING OERROR_DSP PRESENTARLIBRERIA VERSIONADOP_FCE_COT_VERSION_PROCESOMENSAJEFERE_PRESENTAR_REMITO_EXTERNOPRESENTAR_REMITO_2FERE_REGISTRAR_COMUNICACIONPRESENTAR_REMITOFERE_PROCESAR_RESPUESTASP_OCULTAR_DEFINITIVAMENTEFERE_MOSTRAR_RESPUESTA_TCTT T T T ET -TTTTT-%TCTC%CgTTCTTTT !T"#T$C&% %'TC(TC(%Cg?TC(TTTT )T"*T$C+% TC,TC,%CgTC,TTTT -T".T$C/%T0T1NOT23T45T6a7T7C8, T9C7T:C7%C:gZT;C7T<T=T>T?@TA.TB/3TCCCDPROPIO 3D6TEUTFTGTHTIJTKTL-TMNFO/~O OPOMITIR XTQCRTQSOPTQTOUTQVOW!TQXOYOZO[TQ\O5TQ]UMTQ^OWU_OTMPXFECHASALIDACOTOCPBTOVALODATOS_EMPRESANUEVA_VALIDACION FECHA_EMISIONFECHA CODIGO_UNICO COD_UNICOFECHA_SALIDA_TRANSPORTEHORA_SALIDA_TRANSPORTESUJETO_GENERADORDESTINATARIO_CONSUMIDOR_FINALDESTINATARIO_TIPO_DOCUMENTODESTINATARIO_DOCUMENTODESTIANTARIO_CUITCLICUITDESTINATARIO_RAZON_SOCIALNOMBREDESTINATARIO_TENEDORFLE_DEPDESTINO_DOMICILIO_CALLEFERE_DOMICILIO_CALLE FLEDEPDOMDESTINO_DOMICILIO_NUMEROFERE_DOMICILIO_NUMERODESTINO_DOMICILIO_COMPLEFERE_DOMICILIO_COMPLEDESTINO_DOMICILIO_PISODESTINO_DOMICILIO_DTODESTINO_DOMICILIO_BARRIODESTINO_DOMICILIO_CODIGOPFLEDEPCPDESTINO_DOMICILIO_LOCALIDAD FLEDEPCIUDESTINO_DOMICILIO_PROVINCIA PROVINC_INV FLEDEPPROP_FCE_COT_DIRECCION ENTCLIDOMENTCLICP ENTCLICIU ENTCLIPRO DOMICILIOCPCIUDAD PROVINCIAPROPIO_DESTINO_DOMICILIO_CODIGOENTREGA_DOMICILIO_ORIGEN ORIGEN_CUITCUITORIGEN_RAZON_SOCIALDESCREMISOR_TENEDORXDIREMPP_FCE_COT_DIRECCIONPROPIAORIGEN_DOMICILIO_CALLEORIGEN_DOMICILIO_NUMEROORIGEN_DOMICILIO_COMPLEORIGEN_DOMICILIO_PISOORIGEN_DOMICILIO_DTOORIGEN_DOMICILIO_BARRIOORIGEN_DOMICILIO_CODIGOPCOD_ZIPORIGEN_DOMICILIO_LOCALIDADORIGEN_DOMICILIO_PROVINCIATRANSPORTISTA_CUITFLE_CUITTIPO_RECORRIDORECORRIDO_LOCALIDADRECORRIDO_CALLERECORRIDO_RUTAPATENTE_VEHICULOFLE_DOMPATENTE_ACOPLADOPRODUCTO_NO_TERM_DEVIMPORTEVALDECTMPACOTCOD_UPOITM NUEVO_ITEMCODIGO_UNICO_PRODUCTORENTAS_CODIGO_UNIDAD_MEDIDAREN_CUMCANTIDADUNIDADESPROPIO_CODIGO_PRODUCTOCODIGOATRBULPROPIO_DESCRIPCION_PRODUCTO PROPIO_DESCRIPCION_UNIDAD_MEDIDACANTIDAD_AJUSTADA(TCtmp %C TMPENT_DirNFQoCxXQC XQCxXQCXQCXQ C  C  66QC  C  66QC C 66QC C 66QC C 66QC C 66QC C 66QC C 66Q -Q !C0Q  tmpent_dirF ~&TC">C#>C$%F>C%>C& >#)%'( G4(ve_armar_despacho_por_remito_direcciones(%!F ~ F% 2>C*C C!> C C!>CC % 2>C*C C!> C C!>CC 2>C*CC!>CC!>CCFU,XALIASXRESXVAL TMPENT_DIRDISTINCTCALLENUMERODIR_COMPPROVC PROVC_ORIGFLE_DEP FLEDEPDOMP_FCE_COT_DIRECCION ENTCLIDOM DOMICILIO DIRECCIONDOM_ORIGFLEDEPCPENTCLICPCPCP_ORIG FLEDEPPRO ENTCLIPRO PROVINCIAPROV PROV_ORIG FLEDEPCIU ENTCLICIUCIUDADCIUCIU_ORIGVALIDOREGCOTNUMCOTFERE_DOMICILIO_COMPLETO_VALIDARFERE_DOMICILIO_CALLE PROVINC_INVFERE_DOMICILIO_NUMEROFERE_DOMICILIO_COMPLE XGENERARCOT XGENERARTXT(VE_ARMAR_DESPACHO_POR_REMITO_DIRECCIONESPROVINCFOR.TTTT  T  T CTCTCTTTCT CTCTCTTTCT CTCTCT T!TC"3T#CC$PROPIO %$6T&'T()F*/~**+OMITIR 'T,C-T,.*+T,/*0T,1*2!T,3*4*5*6T,7*8T,9UMT,:*2U;OTMPOCPBTOVALXFECHASALIDACOT FECHA_EMISIONFECHA CODIGO_UNICO COD_UNICOFECHA_SALIDA_TRANSPORTEDESTIANTARIO_CUITCLICUITDESTINATARIO_RAZON_SOCIALNOMBREDESTINO_DOMICILIO_CALLEFERE_DOMICILIO_CALLE FLEDEPDOMDESTINO_DOMICILIO_NUMEROFERE_DOMICILIO_NUMERODESTINO_DOMICILIO_COMPLEFERE_DOMICILIO_COMPLEDESTINO_DOMICILIO_CODIGOPFLEDEPCPDESTINO_DOMICILIO_LOCALIDAD FLEDEPCIUDESTINO_DOMICILIO_PROVINCIA PROVINC_INV FLEDEPPRO ENTCLIDOMENTCLICP ENTCLICIU ENTCLIPRO DOMICILIOCPCIUDAD PROVINCIATRANSPORTISTA_CUITFLE_CUITCUITPATENTE_VEHICULOFLE_DOMIMPORTEVALDECTMPACOTCOD_UPOITM NUEVO_ITEMCODIGO_UNICO_PRODUCTORENTAS_CODIGO_UNIDAD_MEDIDAREN_CUMCANTIDADUNIDADESPROPIO_CODIGO_PRODUCTOCODIGOATRBULPROPIO_DESCRIPCION_PRODUCTODESCR PROPIO_DESCRIPCION_UNIDAD_MEDIDACANTIDAD_AJUSTADAprocesar_remitos_electronicos0Procesar_Comprobante controlar_direccion_entrega Separar_OTMP 1$2aAC111a!AAQATAQAAA2$1Aa A!AAAB###BAA3q3111brqqA11q2sqqA11qsqqA11qCA!11raQQQA111111t1111!1A2qbqAAtaAAqqqABSaAAqa#1##AAqAA213121rqq11qsqq11qqqq11q112t1111!1A1)BgnL#}#(/A/I`%O;hXWN% TMCL$Td:\sistema\systems\a CT \data\1 T T CSQT BORRAR1 T a Ta\ges.dbc T T T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN(Tc:\sistema\systems\mcl\html(Tguillermo.negrete@gmail.com T T-TC$.mcl_informe_diario_task C.mcl_informe_diario_taskBUXAUTXFECHAXDEVXTIPO XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_CARPETA_HTML!P_NOTIFICAR_INFORME_DIARIO_MAILTOP_MAIL_BLOQUEOPROCESARMCL_INFORME_DIARIO_TASK%ChDC3No parametrizado: p_notificar_informe_diario_mailtoBTC 5 TTCC$ #     6C     G+(sys_html H7 r(TC\informe_diario.html 1TC\informe_diario_unidades.html Tlistados#TCempresa_nombreTClogoTC logo_pathTCfechaC*TCemision:TCcantidad_de_pedidosCC9999,999_CTCimporte_de_pedidosCC 999,999,999,999.99_%DATCunidades_de_pedidosCC999,999,999,999_;TCcantidad_de_facturasCC 9999,999_6TCcantidad_de_ncsCC 9999,999_6TCcantidad_de_ndsCC 9999,999_<TC facturacionCC 999,999,999,999.99_%ETCunidades_de_facturacionCC999,999,999,999_H +C\tmp\informe_diario.html 4C!\tmp\informe_diario_unidades.html&TInforme Diario del C* T+sys_mail_alertasUXAUTXFECHAXTIPO!P_NOTIFICAR_INFORME_DIARIO_MAILTO MENSAJE_AAAAXERRXMSGXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACION XPD_UNIDADES XFC_UNIDADESCALCULAR_VALORESSYS_HTMLAAA2P_CARPETA_HTMLCONVERTIR_UTF8_A_FOXLISTADOSREEMPLAZAR_VARIABLEP_LOCALXTITULOSEND_EMAIL_ALERTASSYS_MAIL_ALERTAS/  8C(Inicio a calcular valores informe diario TC   T C T  T T T- Ta8ve_sql_pedidos_v2  a&CIndicadores exportados %Ctmp]Q  Q\tmp\ (OC1No se pudo abrir la tabla temporal de pedidos !!!C F%Cq Q%Cq1,Qotmpq1K(6oq1tmpC!Q"qT "%CqQ%Cq1Q%CtmpQ%CComprobantes emitidos F#ve_sql_comprobantes_emitidos_v2 --a  Q\tmp\ (]C?No se pudo abrir la tabla temporal de comprobantes emitidos !!!C F$otmp%&'q1FC%(NC%(ND%( K('[oq1tmpC!Q"%&%&%&q K( "*CTemin de calcular valores U(XAUTXTIPOXFECHAXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACION XPD_UNIDADES XFC_UNIDADESLOG_AUTXTABLAXDTIPXDFECXHFECXIVAINCXVALORES_ORIGINALESODEYFUNCNEWFILEEXPORTAR_INDICADORESVE_SQL_PEDIDOS_V2TMPP_LOCALOEX MENSAJE_AMESSAGEQQ1DISTINCTPEDIDO IMPORTE_OSUM RECEPCIONSUM_UNIEXPORTARVE_SQL_COMPROBANTES_EMITIDOS_V2COM_CODCOM_NUMCOM_NETprocesarcalcular_valores] 1BQB2ArqaAB3AAA2v#1a#11Aq211Aaa1QA11AAb42bAAAr%A1Are"A1ABASdArDBAA1 ]Z?Qx%gmh8XTMAX$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T  G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN(Te:\sistema\carpetas_localesTC$ Ta Ta# max_cashflowF G((idBU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_DIR_EXPORT_GLOBALXFECHA_CASHFLOW XRESULTADOXAUTOPROCESAR MAX_CASHFLOW TABLA_DIAID )G(9 3,sys_procesando InicializandoTCC$ T%CoDeyFuncbO  a T - max_cashflow( % BTG+(listadossys_log$TCloguear_max_cashflowNGTCCCiZ-C00CCCHZR-C00CCC%ZR&CFecha Cashflow: C*CT \cashflow\ )G( \borrar.txt TaG( \borrar.txt > T-%    Ta%CCarpeta destino: C  T-9C%No se pudo crear la carpeta destino: C G%CCarpeta destino: C% ET8No se puede crear la carpeta de destino del cashflow !!!CC CB%Ccuentas Qcuentas%C tabla_cash)Q%C tabla_headPQ%C tabla_diavQTCTCTCh1 C(!C"C(#D$N%N&N'N(N)N*NQ& !+& !C#,vh1-C.C/C0C1C2C3CQ C4h15N 6C(7C!C CP8N9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNRNSNTNUNVNWNXNYNZN[N\N]N*N^N_N Q& C5 Z`& C5 Z!7+.CComprobantes de Venta Vencidosa.CComprobantes de Venta a Vencera/CComprobantes de Compra Vencidosb/CComprobantes de Compra a VencerbCCheques en Carterac)CCheques Diferidos PendientesdF$(\cashflow - detalleԻF'(\cashflow - encabezadoԻ Te Cf CgF& C5 Z6 h9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]>^9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]*C58c FIKCC58(klmnopqrstuvwxyz{|}~9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWF#) Te(TxCCZTCTdCCZREPLACE &aaa WITH xacc >_C58:r tabla_dia5 6H.?CINGRESOSCEGRESOSCOTROSCcSALDOSaC CBU XRESULTADOXAUTOXFECHA ACTIVEFORM DATASESSIONID SP_MENSAJESYS_PROCESANDOXFECHA_CASHFLOW XDETALLADO DEY_FUNC2XRES MAX_CASHFLOWLISTADOSSYS_LOGOLOGXCARPETALOGXDIRP_DIR_EXPORT_GLOBALXOKXMSGMENSAJEBYECUENTAS TABLA_CASH TABLA_HEAD TABLA_DIA XTABLA_HEADODEYFUNCNEWFILE_LOCAL_TMP XTABLA_CASH XTABLA_DIACONCEPTOCODIGONOMBREVENCHOYRESTOP1_1QP1_2QP2_1QP2_2QPOSTIDID2DHOYDRESTODP1_1QDP1_2QDP2_1QDP2_2QDSALDO LLENAR_HEADTIPODESCRPROCLIANTERIORD1D2D3D4D5D6D7D8D9D10D11D12D13D14D15D16D17D18D19D20D21D22D23D24D25D26D27D28D29D30D31MES_VENC MES_RESTOMES1_Q1MES1_Q2MES2_Q1MES2_Q2TOTALGRUPOID1OBTENER_FACTURAS_A_COBRAROBTENER_FACTURAS_A_PAGAROBTENER_CHEQUES_EN_CARTERA$OBTENER_CHEQUES_DIFERIDOS_PENDIENTESXSALDO_INICIALMAYORES PENDIENTESORDENINFORX1X2X3X4X5X6X7X8X9X10X11X12X13X14X15X16X17X18X19X20X21X22X23X24X25X26X27X28X29X30X31XACCZAAAALL TOTALIZAREXPORTAR_A_EXCELiKC8(     EKC8(56789:;<=>?@ABCDEFGHIJKLMNOPQRS !"#$%&'()*+,-./01234Er tabla_diaTU 56789:;<=> ?!@"A#B$C%D&E'F(G)H*I+J,K-L.M/N0O1P2Q3R4S    % >r tabla_diaTUH.?BUVXTIPOXTEXTOXSINANTERIORMES_VENC MES_RESTOMES1_Q1MES1_Q2MES2_Q1MES2_Q2POSTTOTAL XANTERIOR XMES_VENC XMES_RESTOXMES1_Q1XMES1_Q2XMES2_Q1XMES2_Q2XPOSTXTOTALTIPOD1D2D3D4D5D6D7D8D9D10D11D12D13D14D15D16D17D18D19D20D21D22D23D24D25D26D27D28D29D30D31X1X2X3X4X5X6X7X8X9X10X11X12X13X14X15X16X17X18X19X20X21X22X23X24X25X26X27X28X29X30X31CONCEPTODESCR4sys_procesando C<BUSP_OCULTAR_DEFINITIVAMENTESYS_PROCESANDOOLOGABRIR>CC$*> Resto del mes'TCCCCC$iCC$HCC$%H> 1 Quincena> 2 Quincena'TCCCCC$iCC$HCC$%H> 1 Quincena>  2 Quincena> RestoBU DHOYDRESTOXMESMESNUMODEYFUNC DT_CORREGIRDP1_1QDP1_2QDP2_1QDP2_2QDSALDO%& Bhoy #%CCaBresto TC/%CCCiCH$CCiCH$Bp1_1q #%CCCiCH$Bp1_2q TC/%CCCiCH$CCiCH$ZBp2_1q #%CCCiCH$Bp2_2q  BpostUXFECHAXFECHA_CASHFLOWODEYFUNCDT_MES_ULTIMO_DIAXMES_SIGUIENTE_1DT_MES_SIGUIENTE_ULTIMO_DIAXMES_SIGUIENTE_26 TC]<ve_sql_facturas_a_cobrarC3 $%C tmp_exportar|QFQ\tmp\$i1 tmp_exportarC$i1 tmp_exportarC >C   %*  F  ~RFTC  >F G((id2EC(C %C4 Fr tabla_cash Greplace in tabla_cash &xcol with evaluate(xcol)+ tmp_exportar.saldo F%X(\comprobantes_de_venta_vencidos Ի #X(\comprobantes_de_venta_a_vencer ԻQBU XVENCIMIENTO XCONCEPTOXTABLA_DETALLEEXPORTAR_CONTROL_DE_DEUDASVE_SQL_FACTURAS_A_COBRAR TMP_EXPORTARP_LOCALCOMPROBID_CASHCPBTNUMEROALLINVTOXFECHA_CASHFLOWXCOL ID_COLUMNA TABLA_CASHID2CODIGOCONCEPTONOMBREVENCXDIRFECHA COMENTARIOMONEDAIMPORTESALDO  TC];cm_sql_facturas_a_pagarC3 $%C tmp_exportar{QFQ\tmp\$i1 tmp_exportarC$i1 tmp_exportarC > %  :  ~JFTC  >F G((id2EC(C %C4 Fr tabla_cash Kreplace in tabla_cash &xcol with evaluate(xcol)+ -tmp_exportar.cpbt_imp F%Q( \comprobantes_de_compra_vencidos Ի  Q( \comprobantes_de_compra_a_vencer ԻQBU XVENCIMIENTO XCONCEPTOXTABLA_DETALLEEXPORTAR_CONTROL_DE_DEUDASCM_SQL_FACTURAS_A_PAGAR TMP_EXPORTARP_LOCALCOMPROBID_CASHCPBT_NUMALLINCPBT_VENXFECHA_CASHFLOWXCOL ID_COLUMNA TABLA_CASHID2PRO_CODCONCEPTOCODIGONOMBREVENCPRO_DESXDIRCPBT_FEC PRO_COMENTCPBT_IMP TC]2te_sql_cheques_en_cartera%C tmp_exportarnQFQ\tmp\$i1 tmp_exportarC  ~FTC  >F G((id2EC(CXC %C4 ~Ur tabla_cash  CXCC ZC Ireplace in tabla_cash &xcol with evaluate(xcol)+ tmp_exportar.importe F$(\cheques_en_carteraԻQBU XCONCEPTOXTABLA_DETALLEEXPORTAR_CHEQUES_EN_CARTERATE_SQL_CHEQUES_EN_CARTERA TMP_EXPORTARP_LOCALID_CASHXCOL ID_COLUMNAFECHA TABLA_CASHID2CONCEPTOCODIGONOMBREVENCNUMERODESCRXDIR5TC],te_sql_cheques_emitidos%C tmp_exportarhQFQ\tmp\$i1 tmp_exportarC   ~FT C > F G((id2EC(CXC %C4 fr tabla_cashCXC C Z C Jreplace in tabla_cash &xcol with evaluate(xcol)+ -tmp_exportar.importe F.(\cheques_diferidos_pendientesԻQBU XCONCEPTOXTABLA_DETALLE%EXPORTAR_CHEQUES_DIFERIDOS_PENDIENTESTE_SQL_CHEQUES_EMITIDOS TMP_EXPORTARP_LOCALID_CASHINXFECHA_CASHFLOW DIF_VALORXCOL ID_COLUMNA TABLA_CASHID2CONCEPTOCODIGONOMBREVENCCUE_NOMNUMEROXDIRBTFlujo de Fondos - C Detallado Resumido6 TCWTC]Lo tabla_diaQ    1\tmp\ TCNQ%P/T"No hay registros para exportar !!!CC FBG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTT2T - CCCC/-:_:TC Exportaciones_Parametros_FormatoIMP_EXP@T0_ * #,##0.00_ ;_ * -#,##0.00_ ;_ * "-"??_ ;_ @_ T-TC^T :TC Exportaciones_Parametros_FormatoIMP_EXPDT4_ * #,##0.0000_ ;_ * -#,##0.0000_ ;_ * "-"??_ ;_ @_ T-TC^T C CtipoID #Cdescr Descripcin #CconceptoConcepto *CanteriorAnterior 5!(CC% CC% %%x1CdCC!ZCCCiCH!$* )Cmes_vencVencido 0C mes_resto Resto del Mes T"CHT"C" "6T#"T#C# #6T"C"$T#C#$*Cmes1_q1C"f 1Q *Cmes1_q2C"f 2Q *Cmes2_q1C#f 1Q *Cmes2_q2C#f 2Q 'Cpost Posterior $CtotalTotal T%C&$('\C FBU(XFECHAXAREA XCOMPROBANTEXTMPARCHXCOD_PRO XREGISTROSXTITULO XDETALLADOT TABLA_DIATIPODESCRCONCEPTOPROCLICODIGOP_LOCALXMSGMENSAJEOLOGLOGLISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAXFOR NUM_FORMAT FONT_BOLD FONT_COLOR FONT_SIZE XFOR_TIPOEX_XLS_CAMPOS_AGREGARZXMES1XMES2MESNUM EX_XLS_ABRIR EXPORTAR_XLSXDIR +TC%#CC%#%F ~HM( Cheques en Cartera2%CC{Gz? Z tabla_diaid%C'TdCCC%ZGreplace in tabla_dia &xcol with evaluate(xcol) + tabla_cash.resto ~>     2 Cheques Diferidos Pendientes+2%CCGz@ Z tabla_diaid'%CTdCCC%ZGreplace in tabla_dia &xcol with evaluate(xcol) + tabla_cash.resto #~>     ` Comprobantes de Venta Vencidos)Comprobantes de Venta a Vencer %A?%CC)\(? ZC tabla_diaid =Cr tabla_dia)\(?INGRESOSC!> >%CC)\(? ZCX  tabla_diaid Cr tabla_dia)\(?INGRESOS />INGRESOS DE CLIENTES%CTdCCC%ZGreplace in tabla_dia &xcol with evaluate(xcol) + tabla_cash.resto  ~>     b Comprobantes de Compra Vencidos*Comprobantes de Compra a Vencer %&?%CC(\@ ZP tabla_diaid "Br tabla_dia(\@EGRESOSP!> >%CC(\@ ZCX  tabla_diaid Br tabla_dia(\@EGRESOS ->FACTURAS DE COMPRA%CeTdCCC%ZGreplace in tabla_dia &xcol with evaluate(xcol) + tabla_cash.resto ~>     BU XFIN_DE_MESXFECHA_CASHFLOW TABLA_CASHCONCEPTOVENCXCOL TABLA_DIAMES_VENCHOY MES_RESTORESTOMES1_Q1P1_1QMES1_Q2P1_2QMES2_Q1P2_1QMES2_Q2P2_2QPOST XDETALLADOCODIGOTIPODESCRPROCLINOMBRE TC %C tabla_dia \QTSALDOS% Tselect abrev , dcuenta as cuenta , fecha , asiento , iif(cau="R", "RC","")+comprob as comprobante , procli , codigo , nombre , debito , credito , debito-credito as saldo , tipo2 , detalle , comentario as concepto , cod_cen as centro , cendescr , numero , notas from q1 order by fecha, asiento where &xfiltro into cursor q E( \CC0000000CC ZR._ - Ի%jselect fecha , tipo2 , procli , codigo , nombre , sum(debito-credito) as saldo , detalle from q1 group by fecha order by nombre where &xfiltro into cursor q readwrite select fecha , tipo2 , procli , codigo , nombre , sum(debito-credito) as saldo , detalle from q1 group by fecha , tipo2 , detalle , procli , codigo , nombre order by nombre where &xfiltro into cursor q readwrite %B< ,oq1 Saldo Anterior % gNTAAtencin, hay ms de un concepto "Saldo Anterior" en el mayor !!!CC%cL % T   T  T F& TC%Rrq ("%Cqfecha Vrq  %>  T ~>T > F~CHCH 0T CCC ZC000CCZRgHg 6T!CC Z tabla_diaid +)T!CC Z tabla_diaid1 g)T!CC  Z tabla_diaid1%C%T"anterior T"dCCC%Z%! F>#C 6$C - 6C 6%C CCN 65replace in tabla_dia &aaa with &aaa + q.saldo %Cq1 Q %Cq QBU&XTIPOXDESCR XCONCEPTOXFILTROXARCHIVOXGRUPO XTABLA_DIA TABLA_DIAXSALDOSXDIRARR_TMPSALDOQ1 COMENTARIOXMSGMENSAJEOLOGLOGP_DEVXSALDO_INICIALXSIQFECHAXFXFECHA_CASHFLOWTIPO2PROCLICODIGONOMBREDETALLEZXACCXTIPO2XFOUNDAAATIPODESCRCONCEPTO+ T CCfSALDOS%C =T El tipo CC Z no tiene concepto !!!C  C L% DTC% TA co_sql_mayora --FQ\tmp\% ( \mayor - Ի%C tabla_dia Q.CC - BUXTIPOXGRUPOXCONCEPTO_GENERICO XCONCEPTOXFILTROXCUENTAXTABLAXNOMBREXTAILXMAYOR_INICIALXSALDOSXMSGMENSAJEOLOGLOGXDFECXFECHA_CASHFLOWXHFEC EXPORTAR_FULL CO_SQL_MAYORP_LOCALQ1XDIR XTABLA_DIA TABLA_DIAAGREGAR{tocuentasCC.QC\SC 11179 21130 q_bancosBUABREV COMPLEMENTDESCRCUENTASATRIBUTOQ_BANCOSSBr tabla_diaINGRESOSINGRESOS@r tabla_diaEGRESOSEGRESOS<r tabla_diaOTROSOTROS>r tabla_diacSALDOSSALDOS?r tabla_diacTOTALESSALDOSUr tabla_dia{Gz?VALORES A DEPOSITARINGRESOS]r tabla_diaGz@CHEQUES DIFERIDOS PENDIENTESEGRESOS?T2!EMPTY(codigo) and procli="C" and debito-credito>0C)\(?C6INGRESOSC CLIENTES6 11102 valores_a_depositarvalores a depositaringresosa?T2!EMPTY(codigo) and procli="P" and debito-credito<0CQ@EGRESOSVALORES A PROVEEDORES 11102 valores_a_depositarvalores a depositaregresos5Ttipo2=72 and !() and !()C)\(@EGRESOSDESCUENTO DE CHEQUES 11102 valores_a_depositarvalores a depositaregresos>T not( ) and not( ) and not()zCGz@OTROSVALORES A DEPOSITAR 11102 valores_a_depositarvalores a depositarotrosT .t.}Cq= ףX@SALDOSVALORES A DEPOSITAR 11102 valores_a_depositarvalores a depositarsaldosa C T~C T?T 2!EMPTY(codigo) and procli="C" and debito-credito>0C)\(?C6INGRESOSC CLIENTES6 CC @#transferencias de clientes - banco CC @ingresosaLT?!EMPTY(codigo) and procli="P" and debito-credito<0 and tipo#"1"Cffffff@EGRESOSTRANSFERENCIAS A PROVEEDORES CC @%transferencias a proveedores - banco CC @egresos9Tnot(  ) and not() and tipo2=50C(\@EGRESOSDEBITO DE CHEQUES DIFERIDOS CC @$dbito de cheques diferidos - banco CC @Dbito de cheques diferidos9Tnot(  ) and not() and tipo2=72Cp= ף?INGRESOSDESCUENTO DE CHEQUES CC @descuento de cheques - banco CC @Descuento de Cheques9Tnot(  ) and not() and tipo2=73C?INGRESOSPRESTAMOS TOMADOS CC @prestamos tomados - banco CC @Prstamos tomados9Tnot(  ) and not() and tipo2=74CQ@EGRESOSPRESTAMOS PAGADOS CC @pago de prstamos - banco CC @Pago prstamos9Tnot(  ) and not() and tipo2=66Cp= ף@EGRESOS PAGO SUELDOS CC @pago de sueldos - banco CC @Pago sueldos y cargas sociales9Tnot(  ) and not() and tipo2=75C@EGRESOSRETIRO DE SOCIOS CC @retiro de socios - banco CC @Retiro de socios9Tnot(  ) and not() and tipo2=63CzG@EGRESOSPAGO DE IMPUESTOS CC @pago de impuestos - banco CC @Pago de impuestos9Tnot(  ) and not() and tipo2=60CQ@EGRESOSTRANSFERENCIAS ENTRE CUENTAS CC @%transferencias entre cuentas - banco CC @Transferencias entre cuentas_Tnot(  ) and not(4) and !inlist(tipo2, 50, 72, 73, 74, 66, 75, 63, 60)tC ףp= @EGRESOS OTROS PAGOS CC @otros pagos - banco CC @ Otros pagosqTnot(  ) and not( ) and not(4) and !inlist(tipo2, 50, 72, 73, 74, 66, 75, 63, 60)C333333@EGRESOSOTROS MOVIMIENTOS BANCARIOS CC @transferencias - banco CC @otrosCC99.02C00CCZRgSALDOSBANCO C .t. CC @transferencias - banco CC @saldosaTdebito-credito>0jCRQ?INGRESOS MERCADOPAGOC11116 mercadopago mercadopagoingresosaTdebito-credito<0gC{Gz@EGRESOS MERCADOPAGOC11116 mercadopago mercadopagoegresoshCRX@SALDOS MERCADOPAGO.t.C11116 mercadopago mercadopagosaldosa %a TF ~C T?T 2!EMPTY(codigo) and procli="P" and debito-credito<0C= ףp=@OTROS!CHEQUES DE PAGO DIFERIDO EMITIDOS CC @#cheques diferidos emitidos - banco CC @&Pago a proveedores con cheque diferidoa'Tnot( ) and tipo2=50CRQ@OTROSDEBITO DE CHEQUES DIFERIDOS CC @,cheques diferidos emitidos (dbitos)- banco CC @Dbito de cheques diferidos'Tnot( ) and tipo2#50C= ףp=@OTROS3CHEQUES DE PAGO DIFERIDO (NI CPD NI DEBITOS DE CPD) CC @#cheques diferidos emitidos - banco CC @OtrosCC99.04C00CCZRgSALDOSCHEQUES DIFERIDOS EMITIDOS C .t. CC @#cheques diferidos emitidos - banco CC @saldosaIr tabla_dia SALDO INICIALFBUZTIPOCONCEPTODESCR XFILTRO_IEXTRAER XDETALLADO XFILTRO_E XFILTRO_D XFILTRO_ABANCOS COMPLEMENT XFILTRO_1Q_BANCOSABREV XFILTRO_2 XFILTRO_3 XFILTRO_4 XFILTRO_5 XFILTRO_6 XFILTRO_7 XFILTRO_8 XFILTRO_X XFILTRO_9XFILTROD1XSALDO_INICIAL TABLA_DIAprocesar totalizar+bye llenar_head id_columnaobtener_facturas_a_cobrar;!obtener_facturas_a_pagar%obtener_cheques_en_cartera)$obtener_cheques_diferidos_pendientes,exportar_a_excel0 pendientes>8agregar)Bextraer_MbancosdPmayoresQBQB2Arqd3sA2A#AAA"BrbaARAQAQ1BA1AAAA_ !m Q;buAsqt/  rsQ1bAqQqB2@\R1AA2rA2sr"B2q2211AAAAAA3ABA2!!Aq"raAqrA4AB2ABA2!!Aq"raArA2AB3q$ABq"rQArABB2qABfq"raArAB4q"B21AA&!!A 11QA2"!rA HB2t%tAA"%tAA9A9BAtA$(B(BAtAACA421AAR3 01At!AAA!AAr2#!a1AAAABr1a11ARAqQW ASB4A"AB21AAAqAA1AB2HA2r'R! R! ! A  q11aq AAqq11 s r1 AArB2]754#jD###%%))00r7F7;0)<ZAKwAP*Pdd&tR:tw6wx69xKA%)-*(Y2TMAX$Td:\sistema\systems\a CT\data\1 TTCSQTBORRAR1 T a T a\ges.dbc T  T  T  Ta Ta#max_importar_ocsU XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMP XRESULTADOXAUTOPROCESARMAX_IMPORTAR_OCS  %G(9 /,sys_procesando Inicializandote_pago%Ctcccompd Qtcccompd@ atrcan.gesG+(te_pago%CoDeyFuncbO  a+ QIMPORTACIONES_XLS imp_exp.vcx/T CImportaciones_XLS Imp_EXP.VCX/C Proveedorcod_proc(6) -CCdigocod_insc(15) 3CCantidad recepcionn(14,2) 0CPreciocos_lifon(18,4) *CEntregaEntregaD ,CCentrocod_cenc(6) /CDepsitodepositoc(8) ,CQuincenaquincenaD +CNotasnotasc(254) 'T Replace valido with .t.T -T aT aT T T TMPSALIDA T%%%CC] = GUILLERMO #:T-d:\descargas\Modelo - Importacin de OCs.xlsx%Cuse in &xalias_salida G+(sys_log TaMsys_importar_base( %3TC#loguear_imp_exp_importacion_ocs_maxN C Importando: %C tmpsalidaL =-(C - C CAC*No se pudo copiar el archivo a la carpeta F % ,CCC Z registros importados H-CNo se han importado registros T-Q !sys_procesandoB JC:No se encontr el archivo de resultados de la importacin. T-!sys_procesandoB  T-!sys_procesandoBC"T"#\tmp\CC]R cm_compra"T"#\tmp\CC]R%CtempcompF%Q%&FQtempcomp ("Q"% =%CtempcompF% FQtempcomp ("Q"%F%& 'C(Z)*G((F %CqQ+Fo tmpsalida-./0C(XQ1 Q2q(3+C Importando CC3Z OCsCT4C XF+ ~ T5%C56 %5 >+254C4Generada con el nmero: CC5ZC!sys_procesando%CologbO C7<BU8 XRESULTADOXAUTO ACTIVEFORM DATASESSIONID SP_MENSAJESYS_PROCESANDO OPEN_FILESTE_PAGOTCCCOMPDATRCANGES DEY_FUNC2OIMPIMP_EXPVCXAGREGAR_COLUMNAVAL_FUNCVAL_USAR_CODALTVAL_NOUSAR_BULATR USAR_CELDAS LXLS_OFFSET VAL_COLUMN XALIAS_SALIDA XARCHIVO_XLSP_DEVSYS_LOGXRESSYS_IMPORTAR_BASEOLOGLOGCARPETA_CON_PATHARCHIVO_CON_PATH TMPSALIDASP_OCULTAR_DEFINITIVAMENTE XTEMPCOMPP_LOCAL CM_COMPRATEMPCOMPP_TABLAS_FIJASREFREFITMREFCAUSA REFERENCIAQDISTINCTCOD_PROCOD_CENDEPOSITOENTREGANOMBREOCAAAXHEADERXOC PROCESAR_OCABRIR4TCDTprv:C Cen:C Dep:C Ent:C*%C Procesando []%CtmpQ 2o tmpsalidaCtmpF ~%C q T -T MC Quincena [C *" invlida. No debe estar vaca !!! B%CC %  T -T PC Quincena [C *% invlida. De da debe ser 1 o 16 !!! B TC$%Cempresas NQ \empresas%Cempresascodigo'%Ccostoscodigo  T -T CCCentro de costos [C inexistente !!! B+%Cdepositodeposito  T -T ;C Depsito [C inexistente !!! B%C+ T -T NC El depsito [C no tiene provincia asignada !!! B(%Cprovinccodigo  T -T LC El depsito [C no tiene provincia vlida !!! B53TC aprobacionessys_aprobaciones.prg%CoapbO' TTTFS T Td T T+CN #)F ~ %CT %CT F #'%C bienescodins  T -T ;C Artculo [C  inexistente !!! B4%Cbienes.est_actbN !  > T -T 8C Artculo [C  inactivo !!! BF> >" #>$ %>& &>' (!C )cuentascuenta>* v>* + ,- -. ./ . -0 0 1 2>3 <457465 T57listados9(5 %C940 -T49C94/0d T49C94C-.:d ;d <d =d >d ?d T0d TG+( cm_compra TA TB TC-TD&%CDproveedocodpro g T -T ;C Artculo [C  inexistente !!! BTETFGH TI TJ- TK TL TMC TNa TO TP TQ TR TS TT TU TV TW TX TY TZ T[ T\ T] T^ T_ T` Ta Tb Tc Td Te Tf Tg Th Ti Tj Tk Tl Tm Tn To Tp Tq Tr C=% CR% H^]% C@%empresa_nombre%TC$ C@%empresa_abrev%TC C@%logo%TC C@ %logo_path%TC C@ %emision%FTC 2] T%C TCC>\ r;%CxdatobCCxdatobM C >TT,El parmetro de reemaplazado de la variable  debe ser C o M !!!BC%C nT%%%C TC xtexto.&xvar = xdato T BU XTEXTOXVARXDATOAAAFN_EMPRESA_NOMBREFN_EMPRESA_ABREVFN_LOGO FN_LOGO_PATH FN_EMISIONTYPEOPTC*-BC=-C\-CRUXFECHAAAAvTC %Cempresas PQ \empresasBCempresascodigoUXEMPRESAP_CODEMPP_SYSTEMc%C)BC3B*No se encontr el nombre de la empresa !!!UXEMPRESAPOSISIONAR_EN_EMPRESAEMPRESASDESCRc%C)BC3B*No se encontr el nombre de la empresa !!!UXEMPRESAPOSISIONAR_EN_EMPRESAEMPRESASABREV BUP_URL_IMAGENES_CLIENTE>+TC/C@_logo_mail.png BUAAA FN_LOGO_PATHP_EMP BCCUreemplazos_generales0agregar_registroInitreemplazar_variableA fecha_txtposisionar_en_empresafn_empresa_nombrefn_empresa_abrev/ fn_logo_pathfn_logo fn_emisionX UU T- UTABLAw T T T T T TTTUTITULOTIPOSUBTIPOEMPRESA_NOMBRELOGO LOGO_PATHFECHAEMISION T T T T T TTT TU TITULOTIPOSUBTIPOEMPRESA_NOMBRELOGO LOGO_PATHFECHAEMISION RESULTADOinforme_diario_tabla COLLECTIONt informe_diario_registroCUSTOM informe_diario_base_tablainforme_diario_base informe_diario_baseCUSTOM notificaciones_baseCUSTOM 8qQ2A4q7a3rrQBAAAAAQqAARQA2qq!2q2A2qBA12qBA122r21514111111 sV$)9n [> @ aE^ lK tQ  |S& W ZV\ ]9"` v i P0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6UA0K56EP1482377979/F] WINDOWS _6UA0K56EQ1483098258 '$ WINDOWS _6UA0K56ER1483098200%B WINDOWS _6UA0K56ES1482388007c r WINDOWS _6UA0K56ET1482388007+ 8 E S p WINDOWS _6UG0LIIBJ1483098258 S    WINDOWS _6UI0H0RP514830982586 e3 COMMENT RESERVED $VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1PHeight = 146 Width = 407 DoCreate = .T. Caption = "Seleccione flete para COT / Remito electrnico" Name = "Formulario_acep_canc1" Command1.Top = 115 Command1.Left = 129 Command1.TabIndex = 3 Command1.Name = "Command1" Command2.Top = 115 Command2.Left = 213 Command2.TabIndex = 4 Command2.Name = "Command2" ayuda.TabIndex = 5 ayuda.Name = "ayuda" Text1.TabIndex = 6 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Left = 48 advertencia.Top = 156 advertencia.TabIndex = 7 advertencia.Name = "advertencia" ZPROCEDURE Command2.Click xGENERARCOT=.f. xGenerarTXT =.f. return dodefault() ENDPROC Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  btDefault commandbutton commandbuttonckNoCOT cod_desc_fle clases.vcx container Cod_desc_fle1Formulario_acep_canc1Top = 35 Left = 12 TabIndex = 1 filtro = inlist(tipo,1,3) dato_tabla = m dato = xflete Name = "Cod_desc_fle1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" ZPROCEDURE updated xfletero_dominio=fletes.dominio thisform.txdominio.Refresh ENDPROC PROCEDURE Click xFlete=p_fce_cot_flete_predet thisform.cod_desc_fle1.valor = xFlete thisform.cod_desc_fle1.updated xNOHARACOT=.f. thisform.ckNoCot.Refresh ENDPROC Formulario_acep_canc1Formulario_acep_canc1checkboxtextboxtextbox txDominioFormulario_acep_canc1tControlSource = "xfletero_dominio" Height = 24 Left = 93 TabIndex = 2 Top = 70 Width = 84 Name = "txDominio" labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Dominio" Height = 17 Left = 20 Top = 74 Width = 48 TabIndex = 8 Name = "Label1" checkboxTop = 70 Left = 327 Height = 29 Width = 66 FontBold = .T. AutoSize = .F. Alignment = 0 Caption = "No COT" Value = .F. ControlSource = "xNOHARACOT" Style = 1 Name = "ckNoCOT" PROCEDURE InteractiveChange xFlete=IIF(this.value,"",xFlete) thisform.cod_desc_fle1.valor = xFlete xfletero_dominio=IIF(this.value,"",xfletero_dominio) thisform.txdominio.Refresh ENDPROC "j:%U T UXFLETERO_DOMINIOFLETESDOMINIOTHISFORM TXDOMINIOREFRESHupdated011O)jTop = 69 Left = 234 Height = 29 Width = 73 FontBold = .T. Caption = "Principal" Name = "btDefault" f"MM/%UH TT  T- U XFLETEP_FCE_COT_FLETE_PREDETTHISFORM COD_DESC_FLE1VALORUPDATED XNOHARACOTCKNOCOTREFRESHClick0111)M{"bbж% U_TC6TTC6 U XFLETETHISVALUETHISFORM COD_DESC_FLE1VALORXFLETERO_DOMINIO TXDOMINIOREFRESHInteractiveChange0111)b"&%tU" T- T- BCU XGENERARCOT XGENERARTXTCommand2.Click011O)0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6S10YU9L11468695018/F]Xa WINDOWS _6SZ0U0C8Y1479241731 WINDOWS _6S10YU9L21479241731j WINDOWS _6S10YU9L11479241731 5 WINDOWS _6SZ0U0C8Z1479241731r WINDOWS _6SZ0U0C901479241731!L WINDOWS _6SZ0U0C911479241731 WINDOWS _6SZ0U0C921479241731- < K X COMMENT RESERVED  qVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" cursorcursorCURSOR1DataenvironmentPAlias = "tmp_contactos" CursorSource = ..\tmp_contactos.dbf Name = "CURSOR1" 21formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 318 Width = 640 DoCreate = .T. Caption = "Envio de Whatsapp" form_reporte = .F. crystal_view = .F. Name = "Formulario_acep_canc1" Command1.Top = 288 Command1.Left = 253 Command1.TabIndex = 9 Command1.Name = "Command1" Command2.Top = 288 Command2.Left = 325 Command2.TabIndex = 10 Command2.Name = "Command2" AYUDA.TabIndex = 16 AYUDA.Name = "AYUDA" Text1.TabIndex = 17 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" form_reporte crystal_view gridgridGrid1Formulario_acep_canc15ColumnCount = 2 Height = 256 Left = 4 Panel = 1 RecordSource = "tmp_contactos" Top = 24 Width = 631 Name = "Grid1" Column1.ControlSource = "tmp_contactos.nombre" Column1.Width = 413 Column1.Name = "Column1" Column2.ControlSource = "tmp_contactos.ws" Column2.Width = 176 Column2.Name = "Column2" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column1&Caption = "Nombre" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column1YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1#Formulario_acep_canc1.Grid1.Column2"Caption = "Ws" Name = "Header1" textboxtextboxText1#Formulario_acep_canc1.Grid1.Column2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 %:!^XM TCWTC]CExportar bancos%Cbancos Q\bancosjobancos      1 \tmp\ T CNQ% B"CNo hay resultados !!! FBG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTBancosTTBancos CCcodigoCdigo#Cdescr DescripcinCbancoBancoCcuitCUITTCG(9 FUXAREA XCOMPROBANTEXTMPARCHXCOD_CLIXFILTROSYS_MP_SYSTEMBANCOSCODIGODESCRBANCOCUITP_LOCAL XREGISTROSMENSAJELISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDqAB2!AA$!ca1 1PNG  IHDR szz pHYs+tIME(JǵRIDATXM07ХK7x1^Ž܀ŭ%C S!m5iJ̌!+4<jQND1X]Dl Mhq2} EaD;k-A̬ M2>h#g'KHa̬#@={n&zq^\#Ѽtu{)O($X`le45<ooVELIENDB`0LmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0S70JUO71 762006539/F] WINDOWS _0S70JUO721481079195 3>M WINDOWS _6T60Q5BWB1481079195N(N5NCN`N WINDOWS _6T60Q5BWC1481079195O!O.O WINDOWS _0S70JUO721481079195rtr;r}< WINDOWS _0S70JUO711481079195r|Ȇن: WINDOWS _0S70JUO721481079195`L9 WINDOWS _0S70JUO711481079195{%Ktq17 WINDOWS _0S70JUO721481079195Ŋ Gtz_n5 WINDOWS _0S70JUO711481079195 ctY}3 WINDOWS _0S70JUO721481079195{tJ}y1 WINDOWS _6T90OYANJ1481079195ԙrr'/ WINDOWS _6T90OYANK14810791951M$MML$- COMMENT RESERVED mLVERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc_aplic clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 462 Width = 877 DoCreate = .T. Comment = "cl" Caption = "Cierres" WindowState = 0 HelpContextID = 90 WhatsThisHelpID = 90 ocfg1 = .F. ocfg2 = .F. ocfgfe = .F. Name = "Formulario_acep_canc1" Command1.Top = 432 Command1.Left = 336 Command1.Anchor = 260 Command1.TabIndex = 37 Command1.Name = "Command1" Command2.Top = 432 Command2.Left = 420 Command2.Anchor = 260 Command2.TabIndex = 38 Command2.Name = "Command2" AYUDA.Top = 1 AYUDA.Left = 795 AYUDA.HelpContextID = 101 AYUDA.WhatsThisHelpID = 101 AYUDA.TabIndex = 41 AYUDA.Name = "AYUDA" Text1.Left = 768 Text1.TabIndex = 40 Text1.Top = 0 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 819 Ayuda_wiki1.Top = 1 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" Command3.Top = 432 Command3.Left = 504 Command3.Anchor = 260 Command3.TabIndex = 39 Command3.Name = "Command3" 'PROCEDURE Load dodefault() * Guardo todo para despus comparar select * from cierres into cursor tmp_cierres readwrite index on id tag id ENDPROC PROCEDURE procesar_aceptar do sp_mensaje ; in sys_procesando ; with "Guardando configuracin - Tabla" select cons with thisform replace in cons cons.vencie with .vencie.value replace in cons cons.comcie with .comcie.value replace in cons cons.vendes with .vendes.value replace in cons cons.venhas with .venhas.value replace in cons cons.comdes with .comdes.value replace in cons cons.cobdes with .cobdes.value replace in cons cons.cobhas with .cobhas.value replace in cons cons.pagdes with .pagdes.value replace in cons cons.paghas with .paghas.value replace in cons cons.depdes with .depdes.value replace in cons cons.dephas with .dephas.value replace in cons cons.extdes with .extdes.value replace in cons cons.exthas with .exthas.value replace in cons cons.trades with .trades.value replace in cons cons.trahas with .trahas.value replace in cons cons.balcie with .balcie.value replace in cons cons.stkcie with .stkcie.value replace in cons cons.dspfec with .dspfec.value replace in cons cons.stk_ini with .stk_ini.value replace in cons cons.cie_comis with .cie_comis.value ocierres.guardar_cierre(1, .cieretib.value,,,-1) endwith ** Chequeo a ver si cambio select cons scatter name txcons =afields(txfields ) do tbl_chk_cambio in sys_triggers with thisform.cons_obj,txcons,txfields, 'Cons','Cons','Variables Globales','',0,'','','','SYS_Globales.scx',1 if type("cierres.usr5")="N" if !used("usuarios") use (p_system+"\usuarios") in 0 endif set procedure to sys_log additive olog=createobject("loguear_cierres") =sys_m("chk") select tmp_cierres scan for z=0 to 5 xtxt=alltrim(cierres.concepto)+": " xse_blanqueo=.f. sele cierres locate for id=tmp_cierres.id if z#0 * Usuarios if evaluate( "cierres.usr"+iif(z=0,"",alltrim(str(z)))+"#"+"tmp_cierres.usr"+iif(z=0,"",alltrim(str(z))) ) * Cambi el usuario if evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z))))=-1 * No estaba definido else *Estaba definido y se cambi por otro =seek(evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))), "usuarios", "codigo") * Registro el de que se eliminaron los datos del usuario olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Se eliminan cierres especficos") olog.log("") endif * Ahora registro los datos del nuevo usuario y sus parmetros if evaluate("tmp_cierres.usr"+iif(z=0,"",alltrim(str(z))))=-1 * Se borraron datos para el usuario xse_blanqueo=.t. =seek(evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))), "usuarios", "codigo") aaa="cierres.usr"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with -1 * No registro log else * Se asignan datos a un usuario =seek(evaluate("tmp_cierres.usr"+iif(z=0,"",alltrim(str(z)))), "usuarios", "codigo") aaa="cierres.usr"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.usr"+iif(z=0,"",alltrim(str(z)))) if cierres.tipo=1 olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Fecha: "+dtoc( evaluate( "tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z))) ) )) olog.log("") aaa="cierres.fecha"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z)))) else olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Desde: "+alltrim(str( evaluate( "tmp_cierres.desde"+iif(z=0,"",alltrim(str(z))) )) )) olog.log(space(8)+"Hasta: "+alltrim(str( evaluate( "tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z))) )) )) olog.log("") aaa="cierres.desde"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.desde"+iif(z=0,"",alltrim(str(z)))) aaa="cierres.hasta"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z)))) endif endif else * No se cambi usuario =seek(evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))), "usuarios", "codigo") if tipo=1 if evaluate( "cierres.fecha"+iif(z=0,"",alltrim(str(z)))+"#"+"tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z))) ) * Cambi la fecha olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Fecha anterior: "+dtoc( evaluate( "cierres.fecha"+iif(z=0,"",alltrim(str(z))) ) )) olog.log(space(8)+" Fecha actual: "+dtoc( evaluate( "tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z))) ) )) olog.log("") aaa="cierres.fecha"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z)))) endif else if evaluate( "cierres.desde"+iif(z=0,"",alltrim(str(z)))+"#"+"tmp_cierres.desde"+iif(z=0,"",alltrim(str(z))) ) * Cambi desde olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Desde anterior: "+alltrim(str( evaluate( "cierres.desde"+iif(z=0,"",alltrim(str(z))) ) ))) olog.log(space(8)+" Desde actual: "+alltrim(str( evaluate( "tmp_cierres.desde"+iif(z=0,"",alltrim(str(z))) ) ))) olog.log("") aaa="cierres.desde"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.desde"+iif(z=0,"",alltrim(str(z)))) endif if evaluate( "cierres.hasta"+iif(z=0,"",alltrim(str(z)))+"#"+"tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z))) ) * Cambi hasta olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: "+ alltrim(str( evaluate("cierres.usr"+iif(z=0,"",alltrim(str(z)))) ))+" "+alltrim(usuarios.descr)) olog.log("") olog.log(space(8)+"Hasta anterior: "+alltrim(str( evaluate( "cierres.hasta"+iif(z=0,"",alltrim(str(z))) ) ))) olog.log(space(8)+" Hasta actual: "+alltrim(str( evaluate( "tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z))) ) ))) olog.log("") aaa="cierres.hasta"+iif(z=0,"",alltrim(str(z))) replace in cierres &aaa with evaluate("tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z)))) endif endif endif else * Sin usuario if tipo=1 if cierres.fecha#tmp_cierres.fecha olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: Todos") olog.log("") olog.log(space(8)+"Fecha anterior: "+dtoc(cierres.fecha)) olog.log(space(8)+"Fecha actual: "+dtoc(tmp_cierres.fecha)) olog.log("") endif else if cierres.desde#tmp_cierres.desde olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: Todos") olog.log("") olog.log(space(8)+"Desde anterior: "+alltrim(str(cierres.desde))) olog.log(space(8)+"Desde actual: "+alltrim(str(tmp_cierres.desde))) olog.log("") endif if cierres.hasta#tmp_cierres.hasta olog.log(alltrim(cierres.concepto)+": ") olog.log("") olog.log(space(4)+"Usuario: Todos") olog.log("") olog.log(space(8)+"Hasta anterior: "+alltrim(str(cierres.hasta))) olog.log(space(8)+"Hasta actual: "+alltrim(str(tmp_cierres.hasta))) olog.log("") endif endif endif endfor endscan release olog endif do sp_ocultar_definitivamente ; in sys_procesando ENDPROC PROCEDURE load_controles THIS.localizacion=oLocalizacion try SET DATASESSION TO _SCREEN.ACTIVEFORM.DATASESSIONID catch endtry =abrir_tablas_fijas() *!* IF !USED('cuentas') *!* USE (_cuentas) ORDER cuenta IN 0 *!* ENDIF IF !USED('cierres') USE cierres IN 0 ENDIF *!* IF !USED('iva') *!* USE (p_system+"\iva") IN 0 *!* ENDIF *!* SELECT iva *!* =CURSORSETPROP('Buffering',5) *!* GO TOP SELE CONS GO TOP ENDPROC PROCEDURE inicializar_controles select cons local xobj, xobj2 ** Guardo el objeto para analizarlo despues scatter name txcons thisform.cons_obj = txcons * Camino a desaparecer with thisform .vencie.value =cons.vencie .comcie.value =cons.comcie .vendes.value =cons.vendes .venhas.value =cons.venhas .comdes.value =cons.comdes .cobdes.value =cons.cobdes .cobhas.value =cons.cobhas .pagdes.value =cons.pagdes .paghas.value =cons.paghas .depdes.value =cons.depdes .dephas.value =cons.dephas .extdes.value =cons.extdes .exthas.value =cons.exthas .trades.value =cons.trades .trahas.value =cons.trahas .balcie.value =cons.balcie .stkcie.value =cons.stkcie .dspfec.value =cons.dspfec .stk_ini.value =cons.stk_ini .cie_comis.value=cons.cie_comis xcieretib={} ocierres.traer_cierre(1, @xcieretib,,,-1) .cieretib.value=xcieretib endwith ENDPROC "=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3) "%d U96TC cierres.usr5bN UTHISENABLEDP_CIE_COMISIONES TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Click1a5qr3c%)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"%Dw aU+(TC cierres.usr5bN- UTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickr13qr3A])"=I%5Y CUTC %p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED T C'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC %p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"%Dw aU+(TC cierres.usr5bN- UTHISENABLED T C'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickr12qr3?[)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC %p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED T C'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC %p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED T C'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"R%qUTUTHISENABLEDP_CIE_COMISIONESInit01Q35)Formulario_acep_canc1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 185 Width = 31 TabIndex = 59 Name = "txt9" Formulario_acep_canc1 commandbutton Command16|Top = 228 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 30 Name = "Command13" Formulario_acep_canc1labellabeltxt12Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Formulario_acep_canc1txt15labellabelivamodificado oldcons newcons cons_obj localizacion ocfg1 ocfg2 ocfgfe *fileexists *editar *cons_get *cons_check *cons_log *guardar_cfg *pasar_check ^aenviar_mail[3,2] ^amail_metodo[2,2] labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre del subdiario IVA ventas:" Height = 17 Left = 17 Top = 41 Width = 179 TabIndex = 42 Name = "Label1" labellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre del subdiario IVA compras:" Height = 17 Left = 17 Top = 65 Width = 192 TabIndex = 44 Name = "Label2" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de FC/ND/NC y anulaciones por ventas:" Height = 17 Left = 17 Top = 89 Width = 321 TabIndex = 46 Name = "Label3" textboxtextboxvendesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 3 Top = 86 Width = 100 Name = "vendes" textboxtextboxvenhasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 4 Top = 86 Width = 100 Name = "venhas" labellabelLabel6Formulario_acep_canc1|AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 89 Width = 9 TabIndex = 47 Name = "Label6" labellabelLabel4Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de FC/ND/NC y anulaciones por compras:" Height = 17 Left = 17 Top = 113 Width = 334 TabIndex = 49 Name = "Label4" textboxtextboxcomdesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 5 Top = 110 Width = 100 Name = "comdes" labellabelLabel5Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de RC/AJ y anulaciones por cobranza:" Height = 17 Left = 17 Top = 137 Width = 318 TabIndex = 51 Name = "Label5" textboxtextboxcobdesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 6 Top = 134 Width = 100 Name = "cobdes" textboxtextboxcobhasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 7 Top = 134 Width = 100 Name = "cobhas" labellabelLabel7Formulario_acep_canc1}AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 137 Width = 9 TabIndex = 52 Name = "Label7" labellabelLabel8Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de PA/AJ y anulaciones por pagos:" Height = 17 Left = 17 Top = 161 Width = 300 TabIndex = 54 Name = "Label8" textboxtextboxpagdesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 8 Top = 158 Width = 100 Name = "pagdes" textboxtextboxpaghasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 9 Top = 158 Width = 100 Name = "paghas" labellabelLabel9Formulario_acep_canc1}AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 161 Width = 9 TabIndex = 55 Name = "Label9" labellabelLabel10Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de depsitos y sus anulaciones:" Height = 17 Left = 17 Top = 185 Width = 286 TabIndex = 57 Name = "Label10" textboxtextboxdepdesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 10 Top = 182 Width = 100 Name = "depdes" textboxtextboxdephasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 11 Top = 182 Width = 100 Name = "dephas" labellabelLabel11Formulario_acep_canc1~AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 185 Width = 9 TabIndex = 58 Name = "Label11" labellabelLabel12Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de extracciones y sus anulaciones:" Height = 17 Left = 17 Top = 209 Width = 305 TabIndex = 60 Name = "Label12" textboxtextboxextdesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 12 Top = 206 Width = 100 Name = "extdes" textboxtextboxexthasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 13 Top = 206 Width = 100 Name = "exthas" labellabelLabel13Formulario_acep_canc1~AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 209 Width = 9 TabIndex = 61 Name = "Label13" labellabelLabel14Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fechas de transferencias y sus anulaciones:" Height = 17 Left = 17 Top = 233 Width = 314 TabIndex = 63 Name = "Label14" textboxtextboxtradesFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 391 TabIndex = 14 Top = 230 Width = 100 Name = "trades" textboxtextboxtrahasFormulario_acep_canc1Alignment = 3 Value = 0 Format = "z" Height = 23 InputMask = "999" Left = 518 TabIndex = 15 Top = 230 Width = 100 Name = "trahas" labellabelLabel15Formulario_acep_canc1~AutoSize = .T. BackStyle = 0 Caption = "a" Height = 17 Left = 501 Top = 233 Width = 9 TabIndex = 64 Name = "Label15" labellabelLabel16Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre de Balance mensual:" Height = 17 Left = 17 Top = 281 Width = 158 TabIndex = 68 Name = "Label16" textboxtextboxbalcieFormulario_acep_canc1|Alignment = 3 Value = {} Height = 23 InputMask = "" Left = 391 TabIndex = 17 Top = 278 Width = 100 Name = "balcie" labellabelLabel18Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Validez de fecha de afectacin de despachos" Height = 17 Left = 17 Top = 305 Width = 258 TabIndex = 70 Name = "Label18" 7PROCEDURE Init this.Enabled=p_despa and .f. ENDPROC "S%h|vUT- UTHISENABLEDP_DESPAInit01Q1,)textboxtextboxdspfecFormulario_acep_canc1|Alignment = 3 Value = {} Height = 23 InputMask = "" Left = 391 TabIndex = 18 Top = 302 Width = 100 Name = "dspfec" 7PROCEDURE Init this.Enabled=p_despa and .f. ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 209 Width = 31 TabIndex = 62 Name = "txt10"  commandbuttonFormulario_acep_canc1 Command12labellabellabelLabel17Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre de stock" Height = 17 Left = 17 Top = 329 Width = 89 TabIndex = 72 Name = "Label17" textboxtextboxstkcieFormulario_acep_canc1|Alignment = 3 Value = {} Height = 23 InputMask = "" Left = 391 TabIndex = 19 Top = 326 Width = 100 Name = "stkcie" labellabelLabel19Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha de comienzo de control de stock" Height = 17 Left = 17 Top = 353 Width = 223 TabIndex = 74 Name = "Label19" textboxtextboxstk_iniFormulario_acep_canc1}Alignment = 3 Value = {} Height = 23 InputMask = "" Left = 391 TabIndex = 20 Top = 350 Width = 100 Name = "stk_ini" labellabelLabel20Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre de Comisiones:" Height = 17 Left = 17 Top = 377 Width = 127 TabIndex = 76 Name = "Label20" @PROCEDURE Init this.enabled=(p_cie_comisiones>0) ENDPROC labelFormulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 281 Width = 31 TabIndex = 69 Name = "txt4"  commandbutton Command18textboxtextbox cie_comisFormulario_acep_canc1Alignment = 3 Value = {} Height = 23 InputMask = "" Left = 391 TabIndex = 21 Top = 374 Width = 100 Name = "cie_comis" @PROCEDURE Init this.enabled=(p_cie_comisiones>0) ENDPROC |Top = 324 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 34 Name = "Command16" Formulario_acep_canc1Formulario_acep_canc1Formulario_acep_canc1txt14labellabelLabel21Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Cierre de Retenciones de IIBB ARBA / Ganancias a Proveedores" Height = 17 Left = 17 Top = 257 Width = 360 TabIndex = 66 Name = "Label21" fecha clases.vcxtextboxvencieFormulario_acep_canc1ELeft = 391 TabIndex = 1 Top = 38 validacion = 1 Name = "vencie" fecha clases.vcxtextboxcomcieFormulario_acep_canc1ELeft = 391 TabIndex = 2 Top = 62 validacion = 1 Name = "comcie" fecha clases.vcxtextboxcieretibFormulario_acep_canc1ILeft = 391 TabIndex = 16 Top = 254 validacion = 2 Name = "cieretib"  commandbutton commandbuttonCommand4Formulario_acep_canc1zTop = 36 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 22 Name = "Command4" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=2 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC "S%h|vUT- UTHISENABLEDP_DESPAInit01Q1,)labelAutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 329 Width = 31 TabIndex = 73 Name = "txt13" Formulario_acep_canc1 Command11 commandbuttonFormulario_acep_canc1labellabellabeltxt2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 41 Width = 31 TabIndex = 43 Name = "txt2" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(2) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(4) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC |Top = 276 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 32 Name = "Command14"  Command14labellabel commandbutton commandbuttonCommand5Formulario_acep_canc1zTop = 60 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 23 Name = "Command5" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=3 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC |Top = 372 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 36 Name = "Command18"  commandbuttonlabel commandbuttonlabellabeltxt13 commandbutton|Top = 204 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 29 Name = "Command12"  commandbutton commandbuttonFormulario_acep_canc1label commandbuttontxt11 Command17labellabeltxt3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 65 Width = 31 TabIndex = 45 Name = "txt3" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(3) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=4 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC  commandbutton commandbuttonFormulario_acep_canc1labellabel Command15Formulario_acep_canc1Formulario_acep_canc1txt4 commandbutton commandbuttonCommand6Formulario_acep_canc1zTop = 84 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 24 Name = "Command6" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=5 =sys_m("usuario") ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC |Top = 180 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 28 Name = "Command10" Formulario_acep_canc1Formulario_acep_canc1Command9labelTop = 348 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 35 Visible = .F. Name = "Command17" Formulario_acep_canc1 commandbuttonlabellabel Command13labelFormulario_acep_canc1txt1labellabeltxt5Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 89 Width = 31 TabIndex = 48 Name = "txt5" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(5) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC Top = 300 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 33 Visible = .F. Name = "Command15"  PROCEDURE Init this.Enabled = type("cierres.usr5")="N" and .f. ENDPROC PROCEDURE Click local z z=12 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC labeltxt9 commandbutton commandbuttonCommand7Formulario_acep_canc1{Top = 108 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 25 Name = "Command7" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=6 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=11 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 257 Width = 31 TabIndex = 67 Name = "txt1"  Command10txt6 commandbuttontxt7txt8labellabelFormulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 113 Width = 31 TabIndex = 50 Name = "txt6" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(6) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=13 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 353 Visible = .F. Width = 31 TabIndex = 75 Name = "txt14"  commandbutton commandbutton commandbuttonCommand8Formulario_acep_canc1{Top = 132 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 26 Name = "Command8" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=7 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(11) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 233 Width = 31 TabIndex = 65 Name = "txt11" txt10 commandbutton commandbuttonlabel commandbuttonFormulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 137 Width = 31 TabIndex = 53 Name = "txt7" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(7) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 305 Visible = .F. Width = 31 TabIndex = 71 Name = "txt12" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(12) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC  commandbutton commandbutton{Top = 156 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 27 Name = "Command9" PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=8 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(10) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC |Top = 252 Left = 636 Height = 27 Width = 84 FontBold = .T. Caption = "Por usuario" TabIndex = 31 Name = "Command11" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 377 Width = 31 TabIndex = 77 Name = "txt15" AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "texto" Height = 17 Left = 726 Top = 161 Width = 31 TabIndex = 56 Name = "txt8" PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(8) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(15) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC "R%qUTUTHISENABLEDP_CIE_COMISIONESInit01Q35)PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=9 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC "1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(9) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC 0PROCEDURE Init this.Enabled = type("cierres.usr5")="N" and this.enabled=(p_cie_comisiones>0) ENDPROC PROCEDURE Click local z z=15 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(13) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=1 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(14) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC "=I%5Y CUTC %p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)PROCEDURE Init local xcantidad xcantidad = ocierres.test_cierre(1) if xcantidad=0 this.Caption="Sin config. por x usuario" this.ForeColor=rgb(255,255,255) else this.Caption="Hay config. por usuario" this.ForeColor=rgb(255,0,0) endif ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" and .f. ENDPROC PROCEDURE Click local z z=14 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC PROCEDURE Init this.Enabled = type("cierres.usr5")="N" ENDPROC PROCEDURE Click local z z=10 ocierres.test_cierre(z) do form sys_cierres_por_usuario with ,z ocierres.test_cierre(z) aaa="thisform.txt"+alltrim(str(z))+".init" &aaa ENDPROC "1%?r \U&#TC cierres.usr5bNUTHISENABLED T C'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"W%Z wU&#TC cierres.usr5bNUTHISENABLED TCusuarioC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZSYS_MOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qBr37S )"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)"=I%5Y CUTC%p)TSin config. por x usuarioTC^ 'THay config. por usuarioTC^U XCANTIDADOCIERRES TEST_CIERRETHISCAPTION FORECOLORInit01qA2qA3)"1%?r \U&#TC cierres.usr5bNUTHISENABLED TC'sys_cierres_por_usuarioC*T thisform.txtCCZ.init&aaa UZOCIERRES TEST_CIERRESYS_CIERRES_POR_USUARIOAAAInit0Clickm112qr37S)l"SS*%4U; C!ocierresǼ tmp_cierres& UCIERRES TMP_CIERRESIDW>sys_procesandoGuardando configuracin - TablaFQ>>>>> > > > > >>>>>>>>>>>CF^JC sys_triggers ConsConsVariables GlobalesSYS_Globales.scx"%C cierres.usr5bN7%Cusuarios VQ! \usuariosG+(sys_logT#Cloguear_cierresNCchk$F% ~,&((T'C():  T*-F(-+%+%&9h%C cierres.usrC&CC&Z6#tmp_cierres.usrC&CC&Z6 ;%C cierres.usrC&CC&Z6 FCC cierres.usrC&CC&Z6usuarioscodigoCC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,5CCXSe eliminan cierres especficos#,C#,?%Ctmp_cierres.usrC&CC&Z6 T*aFCC cierres.usrC&CC&Z6usuarioscodigo2T/ cierres.usrC&CC&Z6#replace in cierres &aaa with -1  JCCtmp_cierres.usrC&CC&Z6usuarioscodigo2T/ cierres.usrC&CC&Z6Yreplace in cierres &aaa with evaluate("tmp_cierres.usr"+iif(z=0,"",alltrim(str(z)))) %(0E CC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,PCCXFecha: CCtmp_cierres.fechaC&CC&Z6*#,C#,4T/ cierres.fechaC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z))))  CC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,RCCXDesde: CCCtmp_cierres.desdeC&CC&Z6Z#,RCCXHasta: CCCtmp_cierres.hastaC&CC&Z6Z#,C#,4T/ cierres.desdeC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.desde"+iif(z=0,"",alltrim(str(z)))) 4T/ cierres.hastaC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z))))  5FCC cierres.usrC&CC&Z6usuarioscodigo%0wl%C cierres.fechaC&CC&Z6#tmp_cierres.fechaC&CC&Z6sCC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,UCCXFecha anterior: CC cierres.fechaC&CC&Z6*#,YCCX Fecha actual: CCtmp_cierres.fechaC&CC&Z6*#,C#,4T/ cierres.fechaC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.fecha"+iif(z=0,"",alltrim(str(z))))  1l%C cierres.desdeC&CC&Z6#tmp_cierres.desdeC&CC&Z6CC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,WCCXDesde anterior: CCC cierres.desdeC&CC&Z6Z#,[CCX Desde actual: CCCtmp_cierres.desdeC&CC&Z6Z#,C#,4T/ cierres.desdeC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.desde"+iif(z=0,"",alltrim(str(z)))) l%C cierres.hastaC&CC&Z6#tmp_cierres.hastaC&CC&Z6-CC(): #,C#,\CCX Usuario: CCC cierres.usrC&CC&Z6Z C-.#,C#,WCCXHasta anterior: CCC cierres.hastaC&CC&Z6Z#,[CCX Hasta actual: CCCtmp_cierres.hastaC&CC&Z6Z#,C#,4T/ cierres.hastaC&CC&Z6[replace in cierres &aaa with evaluate("tmp_cierres.hasta"+iif(z=0,"",alltrim(str(z))))  $%0>%(1%1:CC(): #,C#,$CCXUsuario: Todos#,C#,/CCXFecha anterior: C(1*#,-CCXFecha actual: C%1*#,C#,  %(2%20CC(): #,C#,$CCXUsuario: Todos#,C#,1CCXDesde anterior: CC(2Z#,/CCXDesde actual: CC%2Z#,C#,%(3%3CC(): #,C#,$CCXUsuario: Todos#,C#,1CCXHasta anterior: CC(3Z#,/CCXHasta actual: CC%3Z#,C#,<#4sys_procesandoU5 SP_MENSAJESYS_PROCESANDOCONSTHISFORMVENCIEVALUECOMCIEVENDESVENHASCOMDESCOBDESCOBHASPAGDESPAGHASDEPDESDEPHASEXTDESEXTHASTRADESTRAHASBALCIESTKCIEDSPFECSTK_INI CIE_COMISOCIERRESGUARDAR_CIERRECIERETIBTXCONSTXFIELDSTBL_CHK_CAMBIO SYS_TRIGGERSCONS_OBJP_SYSTEMSYS_LOGOLOGSYS_M TMP_CIERRESZXTXTCIERRESCONCEPTO XSE_BLANQUEOIDLOGUSUARIOSDESCRAAATIPOFECHADESDEHASTASP_OCULTAR_DEFINITIVAMENTET *G(9 4 C%Ccierres nQcierresF#)UTHIS LOCALIZACION OLOCALIZACION ACTIVEFORM DATASESSIONIDABRIR_TABLAS_FIJASCIERRESCONSF ^JTTTT  T  T  T  T  TTTTTTTTTTTTTTCTUCONSXOBJXOBJ2TXCONSTHISFORMCONS_OBJVENCIEVALUECOMCIEVENDESVENHASCOMDESCOBDESCOBHASPAGDESPAGHASDEPDESDEPHASEXTDESEXTHASTRADESTRAHASBALCIESTKCIEDSPFECSTK_INI CIE_COMIS XCIERETIBOCIERRES TRAER_CIERRECIERETIBLoad0procesar_aceptarload_controlesinicializar_controles13rBt"Asr2bQAb"1"bB!!BBBBd2QBBqBBqBBBB3ABABABAABArA5A1A|Q3qAAAAAAAAAAAAAAABAAAA2B4! !{##'')S%]hXk/  9BC   U XAUTXMENSAJEXTIPOXTIEMPOXTITULOXSOLOLOG XMENSAJELARGO XLINK_MSG XNOMENSAJE XLOGLEVEL XBTNSALIRMENSAJE1  ( @   e$l&f&Bf%ij&;h$hg$f$f&h%h%mj&Bh!e$v+m(f%g$g$g%If%e#Mi%g&m'o(p(p(p(p(o(m(g%h&h$Y=e#>m(f%i&o(o(l'f$e$k'n(n(n(j'e%e$e$e%i&n(n(n(n(j%g&Ne e%i&e$f%j&o(o(m'n(i&g%g&uf$=f!e e g%h#7e%mh%g%n(m'm(h&T(e$o(e$i"j&;h%{h&j'i&f"8i%-h&k'k'p(g&ie$|o(l'd#Fo.e&Hi&m'o(h&e e#9j'o(e$]!h%m'o)e$e1e$n(e$=c!h%l'o(e%f=e$l'f%d#k&3i&ik'sh'MQe#1i&l'g%a"g$bn(n(e%|Yj&pi&i&o(o(n(i&d#*e$n(o(f$e$n(h&g&e%^i&o(l'g%f%f%f%p)e$=a& f%m'e%T(d% i&n(e$=g%n(j'l'k'j'g%f%f%h&m'f%'d$o(m(g":f$[o(m(g#Uph%p(i&m(g&g#Ne$um(h&m(l'e%a"e$6j&o(e$}e$o(g$g&|f%o(k'i&g%de%n(h&f&Bpf$o(e%f$o(e%e1d$p)j&h&d#7e1j(*e%n(f$e$o(e$c$Yn(i&j&b$=f%m(f$e%n(e%h!g%j'l'c#re$m(f%e$o(e%|d$p)g%i&d$/e%n(e$f$o(e$m"Qe%k'f%j'g%e(Qe$n(f$e%mo(k'h!Aa"e%h&f%e%r)f$`j"#g%o(g$e#1l'o(e$[, e$i&f%i&f$g%e#kn(o(f&O=e$m(f%[, f%p)e%o(e%e$m(f$k&f&o(n(e#xd% h&s*n(f&3e$Rm'n(f%j)g%l'i&i%!d %p)uc$[a& h%l'j'e#1e$up)m(g%Gg$n(o(e%e$n(n(h&T(f$n(m'g%e e(h%m(n(h%d% ih%n(l'i%d$/b'&i&n(m(i&g%kmh%Wh%n(m'j%c#?`"i%p(l'n(h%h%{h#0^=i%(g$ng%m'l'o(i&`#1QQi%i&o(m(n(h&e%e$f$e$e$e%f%n(m(n(i&h&T d %h%i%n(o(n(n(m(m(n(n(o(n(h%i&g%5j( i%Cg&g%g%f%f%f%g%h%h'Mf%`pp჏?0-mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6T80O2TC51479825858/F] WINDOWS _6T80O2TC61481079253 '$pH WINDOWS _6T80O2TC51481079253 %Bo WINDOWS _6T80O2TC61481079253R_q3n WINDOWS _6T80O2TC51481079253\m WINDOWS _6T80O2TC61481079253R_lz0 Fl WINDOWS _6T80O9MYZ1481079253!!!!!i"@h WINDOWS _6T80O2TC51481079253## $$4$$*g WINDOWS _6T80O2TC61481079253:&I&X&e&&&f WINDOWS _6T80O9MZ01481079253(((((( WINDOWS _6T80O2TC51481079253*+*8*F*c**d WINDOWS _6T80O2TC61481079253v,,,,,,G-c WINDOWS _6T80O2TC51481079253...///b WINDOWS _6T80O2TC61481079253j1w1111H2a WINDOWS _6T80O9MYZ1481079253333344v` WINDOWS _6T80O2TC51481079253 66%636P66`_ WINDOWS _6T80O2TC61481079253m8|8888.9J^ WINDOWS _6T80O9MZ01481079253::::: ; WINDOWS _6T81B8DXJ14810792536<C<P<^<{<= \ WINDOWS _6T81B8DXK1481079253>>>>>>o?Z WINDOWS _6T81B8DXL1481079253@AA-AJAAY WINDOWS _6T81B8DXM1481079253CCCCCkDX WINDOWS _6T81B8DXN1481079253FFF+FHFFW WINDOWS _6T81B8DXO1481079253.H;HHHVHsH IlV WINDOWS _6T81B8DXP1481079253Q(EaEoED'VU WINDOWS _6T81B8DXQ1481079253IIIIvIbL WINDOWS _6T81B8DXR1481079253$1 B[B@T WINDOWS _6T81B8DXS1481079253OE_Co(.0*S WINDOWS _6T81B8DXT1481079253IIE0d'Q WINDOWS _6T81B8DXU1481079253E>EEG*GP WINDOWS _6T81B8DXV1481079253}CnC:@A@?O WINDOWS _6T81B8DXW1481079253:z:k:N:=~=N WINDOWS _6T81B8DXX1481079253/: ::C897M WINDOWS _6T81B8DXY14810792537777o7 ] WINDOWS _6T81B8DXZ148107925353[1R7c54LK WINDOWS _6T81B8DY01481079253E.!@>132 WINDOWS _6T81B8DY11481079253##>:z#+e+J WINDOWS _6T81B8DY2148107925311@(%6% WINDOWS _6T81B8DY31481079253`(E>}!  WINDOWS _6T81B8DY41481079253`8;.#9 WINDOWS _6T81B8DY51481079253}(C-D! WINDOWS _6T81B8DY61481079253-3#-3Vi WINDOWS _6TA0RLYZF1481079253.+"j COMMENT RESERVED -yxVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 286 Width = 747 DoCreate = .T. Caption = "cierres.concepto" usr1 = .F. usr2 = .F. usr3 = .F. usr4 = .F. usr5 = .F. fecha1 = .F. fecha2 = .F. fecha3 = .F. fecha4 = .F. fecha5 = .F. desde1 = .F. desde2 = .F. desde3 = .F. desde4 = .F. desde5 = .F. hasta1 = .F. hasta2 = .F. hasta3 = .F. hasta4 = .F. hasta5 = .F. id = .F. Name = "Formulario_acep_canc1" Command1.Top = 259 Command1.Left = 301 Command1.TabIndex = 44 Command1.Name = "Command1" Command2.Top = 259 Command2.Left = 385 Command2.TabIndex = 45 Command2.Name = "Command2" ayuda.TabIndex = 21 ayuda.Name = "ayuda" Text1.TabIndex = 22 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" rPROCEDURE tipo_validacion do case case inlist(thisform.id, 6, 12, 13, 14) return 0 case thisform.id = 1 * Retenciones, cierre quincenal return 2 otherwise * Cierre mensual return 1 endcase ENDPROC PROCEDURE Release if used("tmp_usuarios") use in tmp_usuarios endif dodefault() ENDPROC PROCEDURE Load for z=1 to 5 aaa="thisform.usr"+alltrim(str(z))+"=tmp_cierres.usr"+alltrim(str(z)) &aaa aaa="thisform.fecha"+alltrim(str(z))+"=tmp_cierres.fecha"+alltrim(str(z)) &aaa aaa="thisform.desde"+alltrim(str(z))+"=tmp_cierres.desde"+alltrim(str(z)) &aaa aaa="thisform.hasta"+alltrim(str(z))+"=tmp_cierres.hasta"+alltrim(str(z)) &aaa endfor if !used("usuarios") use (p_system+"\usuarios") in 0 endif select * from usuarios into cursor tmp_usuarios readwrite insert into tmp_usuarios (codigo, descr) values (-1, "SIN DETERMINAR") index on codigo tag codigo index on descr tag descr select tmp_cierres ENDPROC PROCEDURE Init parameters xresultado, xid this.Caption=tmp_cierres.concepto this.id=xid this.text2.validacion=thisform.tipo_validacion() this.text5.validacion=thisform.tipo_validacion() this.text8.validacion=thisform.tipo_validacion() this.text11.validacion=thisform.tipo_validacion() this.text14.validacion=thisform.tipo_validacion() return dodefault(xresultado) ENDPROC PROCEDURE procesar_aceptar local z for z=1 to 5 aaa="replace in tmp_cierres usr" +alltrim(str(z))+" with thisform.usr" +alltrim(str(z)) &aaa if evaluate( "thisform.usr"+alltrim(str(z)) ) # -1 aaa="replace in tmp_cierres fecha"+alltrim(str(z))+" with thisform.fecha"+alltrim(str(z)) &aaa aaa="replace in tmp_cierres desde"+alltrim(str(z))+" with thisform.desde"+alltrim(str(z)) &aaa aaa="replace in tmp_cierres hasta"+alltrim(str(z))+" with thisform.hasta"+alltrim(str(z)) &aaa else aaa="replace in tmp_cierres fecha"+alltrim(str(z))+" with {}" &aaa aaa="replace in tmp_cierres desde"+alltrim(str(z))+" with 0" &aaa aaa="replace in tmp_cierres hasta"+alltrim(str(z))+" with 0" endif endfor ENDPROC "wH%[jUzTTTTTTTTT T T T T TTTTTTT UTHISFORMUSR1FECHA1DESDE1HASTA1USR2FECHA2DESDE2HASTA2USR3FECHA3DESDE3HASTA3USR4FECHA4DESDE4HASTA4USR5FECHA5DESDE5HASTA5REFRESHClick01aaaaa2)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)Formulario_acep_canc1Command8labelusr1 usr2 usr3 usr4 usr5 fecha1 fecha2 fecha3 fecha4 fecha5 desde1 desde2 desde3 desde4 desde5 hasta1 hasta2 hasta3 hasta4 hasta5 id *tipo_validacion labellabelLabel1Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 504 Top = 41 Width = 36 TabIndex = 25 Name = "Label1" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC sControlSource = "thisform.hasta5" Height = 23 Left = 675 TabIndex = 20 Top = 182 Width = 60 Name = "Text16" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Formulario_acep_canc1fechafecha clases.vcxtextboxText2Formulario_acep_canc1ControlSource = "thisform.fecha1" Height = 23 Left = 552 TabIndex = 24 Top = 38 Width = 72 validacion = 0 Name = "Text2" cPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta" Height = 17 Left = 627 Top = 185 Width = 35 TabIndex = 19 Name = "Label15" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Text16 commandbutton commandbuttonCommand3Formulario_acep_canc1AutoSize = .T. Top = 36 Left = 12 Height = 27 Width = 57 FontBold = .T. Caption = "Borrar" TabIndex = 23 Name = "Command3" |PROCEDURE Click thisform.usr1=-1 thisform.fecha1={} thisform.desde1=-1 thisform.hasta1=-1 thisform.Refresh ENDPROC sControlSource = "thisform.fecha4" Height = 23 Left = 552 TabIndex = 36 Top = 146 Width = 72 Name = "Text11" Formulario_acep_canc1fechaLabel14 commandbuttonFormulario_acep_canc1Label10label commandbutton commandbuttontextboxlabellabelLabel2Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Desde" Height = 17 Left = 507 Top = 41 Width = 38 TabIndex = 26 Name = "Label2" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC sControlSource = "thisform.desde5" Height = 23 Left = 552 TabIndex = 10 Top = 182 Width = 60 Name = "Text15" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Formulario_acep_canc1textboxtextboxtextboxText3Formulario_acep_canc1pControlSource = "thisform.desde1" Height = 23 Left = 552 TabIndex = 6 Top = 38 Width = 60 Name = "Text3" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC AutoSize = .T. Top = 228 Left = 12 Height = 27 Width = 207 FontBold = .T. Caption = "Borrar todas las configuraciones" TabIndex = 43 Name = "Command8" Formulario_acep_canc1 commandbutton commandbuttonFormulario_acep_canc1 containerlabellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta" Height = 17 Left = 627 Top = 41 Width = 35 TabIndex = 11 Name = "Label3" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Desde" Height = 17 Left = 507 Top = 185 Width = 38 TabIndex = 42 Name = "Label14" textboxtextboxText4Formulario_acep_canc1qControlSource = "thisform.hasta1" Height = 23 Left = 675 TabIndex = 12 Top = 38 Width = 60 Name = "Text4" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC |PROCEDURE Click thisform.usr4=-1 thisform.fecha4={} thisform.desde4=-1 thisform.hasta4=-1 thisform.Refresh ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC textboxtextboxText11textbox cod_desc_usr2 clases.vcx container Cod_desc_usr1Formulario_acep_canc1 Top = 33 Left = 80 Width = 412 Height = 33 TabIndex = 1 dato = usr1 dato_tabla = thisform tabla_tabla = tmp_usuarios Name = "Cod_desc_usr1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 164 Text9.Top = 4 Text9.Width = 236 Text9.Name = "Text9" labellabelLabel4Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 504 Top = 77 Width = 36 TabIndex = 29 Name = "Label4" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC |PROCEDURE Click thisform.usr5=-1 thisform.fecha5={} thisform.desde5=-1 thisform.hasta5=-1 thisform.Refresh ENDPROC AutoSize = .T. Top = 180 Left = 12 Height = 27 Width = 57 FontBold = .T. Caption = "Borrar" TabIndex = 39 Name = "Command7" fecha clases.vcxtextboxText5Formulario_acep_canc1qControlSource = "thisform.fecha2" Height = 23 Left = 552 TabIndex = 28 Top = 74 Width = 72 Name = "Text5" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC Formulario_acep_canc1 cod_desc_usr2Cod_desc_usr24Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0  clases.vcxLabel15 commandbutton commandbuttonCommand4Formulario_acep_canc1AutoSize = .T. Top = 72 Left = 12 Height = 27 Width = 57 FontBold = .T. Caption = "Borrar" TabIndex = 27 Name = "Command4" |PROCEDURE Click thisform.usr2=-1 thisform.fecha2={} thisform.desde2=-1 thisform.hasta2=-1 thisform.Refresh ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC AutoSize = .T. Top = 144 Left = 12 Height = 27 Width = 57 FontBold = .T. Caption = "Borrar" TabIndex = 35 Name = "Command6" labellabelFormulario_acep_canc1Label13labellabelLabel5Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Desde" Height = 17 Left = 507 Top = 77 Width = 38 TabIndex = 30 Name = "Label5" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC sControlSource = "thisform.fecha5" Height = 23 Left = 552 TabIndex = 40 Top = 182 Width = 72 Name = "Text14" Formulario_acep_canc1label clases.vcxtextboxtextboxText6Formulario_acep_canc1pControlSource = "thisform.desde2" Height = 23 Left = 552 TabIndex = 7 Top = 74 Width = 60 Name = "Text6" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 504 Top = 185 Width = 36 TabIndex = 41 Name = "Label13" labellabellabelLabel6Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta" Height = 17 Left = 627 Top = 77 Width = 35 TabIndex = 13 Name = "Label6" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Formulario_acep_canc1Formulario_acep_canc1Cod_desc_usr23 container clases.vcx cod_desc_usr2aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Formulario_acep_canc1labeltextboxtextboxText7Formulario_acep_canc1qControlSource = "thisform.hasta2" Height = 23 Left = 675 TabIndex = 14 Top = 74 Width = 60 Name = "Text7" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC sControlSource = "thisform.hasta4" Height = 23 Left = 675 TabIndex = 18 Top = 146 Width = 60 Name = "Text13" Text13textboxtextboxCommand7Formulario_acep_canc1Label12labellabelText12 cod_desc_usr2 clases.vcx containerCod_desc_usr21Formulario_acep_canc1!Top = 69 Left = 80 Width = 412 Height = 33 TabIndex = 2 dato = usr2 dato_tabla = thisform tabla_tabla = tmp_usuarios Name = "Cod_desc_usr21" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 164 Text9.Top = 4 Text9.Width = 236 Text9.Name = "Text9" labellabelLabel7Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 504 Top = 113 Width = 36 TabIndex = 33 Name = "Label7" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta" Height = 17 Left = 627 Top = 149 Width = 35 TabIndex = 17 Name = "Label12" labelText15fecha clases.vcxtextboxText8Formulario_acep_canc1rControlSource = "thisform.fecha3" Height = 23 Left = 552 TabIndex = 32 Top = 110 Width = 72 Name = "Text8" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC rControlSource = "thisform.desde4" Height = 23 Left = 552 TabIndex = 9 Top = 146 Width = 60 Name = "Text12" Formulario_acep_canc1Text14label commandbutton commandbuttonCommand5Formulario_acep_canc1AutoSize = .T. Top = 108 Left = 12 Height = 27 Width = 57 FontBold = .T. Caption = "Borrar" TabIndex = 31 Name = "Command5" |PROCEDURE Click thisform.usr3=-1 thisform.fecha3={} thisform.desde3=-1 thisform.hasta3=-1 thisform.Refresh ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=1) this.visible=(tmp_cierres.tipo=1) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha" Height = 17 Left = 504 Top = 149 Width = 36 TabIndex = 37 Name = "Label10" textboxtextboxtextboxlabellabelLabel8Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Desde" Height = 17 Left = 507 Top = 113 Width = 38 TabIndex = 34 Name = "Label8" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC sControlSource = "thisform.hasta3" Height = 23 Left = 675 TabIndex = 16 Top = 110 Width = 60 Name = "Text10"  clases.vcxText10Formulario_acep_canc1Formulario_acep_canc1Label11labelFormulario_acep_canc1textboxtextboxtextboxtextboxText9Formulario_acep_canc1qControlSource = "thisform.desde3" Height = 23 Left = 552 TabIndex = 8 Top = 110 Width = 60 Name = "Text9" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Desde" Height = 17 Left = 507 Top = 149 Width = 38 TabIndex = 38 Name = "Label11" labellabelLabel9Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Hasta" Height = 17 Left = 627 Top = 113 Width = 35 TabIndex = 15 Name = "Label9" aPROCEDURE Init this.Enabled=(tmp_cierres.tipo=2) this.visible=(tmp_cierres.tipo=2) ENDPROC Formulario_acep_canc1Cod_desc_usr22 container clases.vcx cod_desc_usr2 commandbuttonCommand6>"%%qi%UVTTTT UTHISFORMUSR5FECHA5DESDE5HASTA5REFRESHClick01a2q)%"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"Top = 105 Left = 80 Width = 412 Height = 33 TabIndex = 3 dato = usr3 dato_tabla = thisform tabla_tabla = tmp_usuarios Name = "Cod_desc_usr22" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 164 Text9.Top = 4 Text9.Width = 236 Text9.Name = "Text9" "%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)>"%%qi%UVTTTT UTHISFORMUSR4FECHA4DESDE4HASTA4REFRESHClick01a2q)%"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)>"%%qi%UVTTTT UTHISFORMUSR3FECHA3DESDE3HASTA3REFRESHClick01a2q)%"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"Top = 141 Left = 80 Width = 412 Height = 33 TabIndex = 4 dato = usr4 dato_tabla = thisform tabla_tabla = tmp_usuarios Name = "Cod_desc_usr23" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 164 Text9.Top = 4 Text9.Width = 236 Text9.Name = "Text9" "%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)>"%%qi%UVTTTT UTHISFORMUSR2FECHA2DESDE2HASTA2REFRESHClick01a2q)%"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"Top = 177 Left = 80 Width = 412 Height = 33 TabIndex = 5 dato = usr5 dato_tabla = thisform tabla_tabla = tmp_usuarios Name = "Cod_desc_usr24" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 164 Text9.Top = 4 Text9.Width = 236 Text9.Name = "Text9" PROCEDURE Click thisform.usr1=-1 thisform.fecha1={} thisform.desde1=-1 thisform.hasta1=-1 thisform.usr2=-1 thisform.fecha2={} thisform.desde2=-1 thisform.hasta2=-1 thisform.usr3=-1 thisform.fecha3={} thisform.desde3=-1 thisform.hasta3=-1 thisform.usr4=-1 thisform.fecha4={} thisform.desde4=-1 thisform.hasta4=-1 thisform.usr5=-1 thisform.fecha5={} thisform.desde5=-1 thisform.hasta5=-1 thisform.Refresh ENDPROC "%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)>"%%qi%UVTTTT UTHISFORMUSR1FECHA1DESDE1HASTA1REFRESHClick01a2q)%"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit013X)"%U3TTUTHISENABLED TMP_CIERRESTIPOVISIBLEInit012V)"p% @UsHl C  : B Y B 2l BUTHISFORMID5%C tmp_usuarios%Q CU TMP_USUARIOS(9=T thisform.usrCCZ=tmp_cierres.usrCCZ&aaa ATthisform.fechaCCZ=tmp_cierres.fechaCCZ&aaa ATthisform.desdeCCZ=tmp_cierres.desdeCCZ&aaa ATthisform.hastaCCZ=tmp_cierres.hastaCCZ&aaa %Cusuarios sQ \usuarios#ousuariosǼ tmp_usuarios:r tmp_usuariosSIN DETERMINAR& & FUZAAAP_SYSTEMUSUARIOS TMP_USUARIOSCODIGODESCR TMP_CIERRES 4TTTC T C T C T C TC BCU XRESULTADOXIDTHISCAPTION TMP_CIERRESCONCEPTOIDTEXT2 VALIDACIONTHISFORMTIPO_VALIDACIONTEXT5TEXT8TEXT11TEXT14(}MTreplace in tmp_cierres usrCCZ with thisform.usrCCZ&aaa *%C thisform.usrCCZQTreplace in tmp_cierres fechaCCZ with thisform.fechaCCZ&aaa QTreplace in tmp_cierres desdeCCZ with thisform.desdeCCZ&aaa QTreplace in tmp_cierres hastaCCZ with thisform.hastaCCZ&aaa y=Treplace in tmp_cierres fechaCCZ with {}&aaa <Treplace in tmp_cierres desdeCCZ with 0&aaa <Treplace in tmp_cierres hastaCCZ with 0UZAAAtipo_validacion0ReleaseLoadInitLprocesar_aceptar1aA3B3BA1r22rqqqq2qAA2 <W"_4,gE)% 1iX UAVFP_OBJECTS_DEFINICIONESPRGha1%CoQS.Puede_Leer_QSbL ]CUXQSOQSTHISOBJECTS PUEDE_LEER_QS LEER_QSTRING TCCf%wTC%s B %TC% BU XPARAMETROXOKOQSTHISOBJECTSQS_ITEMXVALOROBTENER PUEDE_OBTENER(C BCU CQUERYSTRINGTHIS LEER_QS_HIJOS BCUOOBJ1 CC BCUXQSTHIS CREAR_QHIJOS LEER_QSTRINGU&TC BUXFILTROTC TC0%CoQS.Tiene_FiltrobL TCTC BUXFILTROTHISOBTENER_FILTROOQSOBJECTS TIENE_FILTROOBTENER_FILTROSTC TC,%C oQS.Tiene_QSbL TCTC BUXQSTHIS OBTENER_QSOQSOBJECTSTIENE_QS OBTENER_QSS&TC BUXQSjTTTT T U XPARAMETROXVALORXPREDETERMINADO XTABLA_FILTRO XTABLA_CAMPOTHIS PARAMETROVALORPREDETERMINADO TABLA_FILTRO TABLA_CAMPO\0%CxValorbCthis.predeterminadobNTBaB-UXVALORTHISVALOR+T BUTHIS TIENE_VALORVALORPREDETERMINADObT%C[4TCC=Q_C\6UTHISVALORPREDETERMINADO PARAMETRONAME;$TC BCUXQSTHISVALOR PARSE_QS2 PARAMETROPREDETERMINADOTC #H5 C this.valorbC,%C T .and.  -TCC> C this.valorbN$TC(u% qG+( dey_filtersTC  BU XFILTROTHIS TABLA_FILTRO TABLA_CAMPOVALORPREDETERMINADOFIL_GET_EQS_FILTERFIL_GET_EQN_FILTEROEXERRORNO DEY_FILTERSOBTENER_FILTRO.TCC BUTHISVALOR_QSODEYFUNCTEXTOSNORMALIZAR_TEXTOVALORxTC %^2BCC?&6= q BUXQSTHIS TIENE_VALOR PARAMETROVALOR_QS/ T BU XPARAMETROXOKTHIS PARAMETROVALORTC %tAT .and. .=CC_ BUXFILTROTHISVALORPREDETERMINADO TABLA_FILTRO TABLA_CAMPOFORMATO/,CListapreListaUTHISQ_LISTAINIT Leer_QS_HijosPObtener Leer_QString#Clonarse_PropiovINIT Crear_QHijosObtener_FiltroObtener_Filtros= Obtener_QSsB Obtener_QS3INITf Valor_Assign]Tiene_Valor_AccessINIT3 Leer_QStringObtener_FiltroFValor_QS_Accessg  Obtener_QS Obtener Obtener_Filtro  Crear_QHijos  T- Ta Ta Ta Ta         UQS_ITEM PUEDE_LEER_QS TIENE_FILTROTIENE_QS PUEDE_OBTENER U T T T T T T- Ta T      U PARAMETROVALORPREDETERMINADO TABLA_FILTRO TABLA_CAMPO TIENE_VALORQS_ITEMVALOR_QS6TCXTbieTcod_insUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO4TCXTbulTclaveUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO4TCXTatrTclaveUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO2 TTbieTlineaUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO2 TTbieTgrupoUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO* T T TUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO5 T T T T-UPREDETERMINADO TABLA_FILTRO TABLA_CAMPO TIENE_FILTRO%T ########### UFORMATO5TTbieTest_ActUPREDETERMINADO TABLA_FILTRO TABLA_CAMPO' .Q .Q .QUQ_FILTROJSON_QS_FILTROQ_MAX JSON_QS_MAXQ_ACTIVOJSON_QS_ACTIVO_BIE? .Q .Q .Q .Q .Q U Q_BULTO JSON_QS_BULTO Q_ATRIBUTOJSON_QS_ATRIBUTOQ_LINEA JSON_QS_LINEAQ_GRUPO JSON_QS_GRUPO Q_ARTICULOJSON_QS_ARTICULO .Q UQ_LISTAJSON_QS_ITEM_CUSTOMJSON_QSParser_Base8JSON_Trafico_AutoIniciable:avfp_objects_definiciones.prgJSON_QS_Item_Custom*JSON_QS_Item:avfp_objects_definiciones.prg JSON_QS_Item0JSON_QSParser_Base:avfp_objects_definiciones.prgJSON_QS_Articulo JSON_QS_Item:AVFP_Objects_QS.prg JSON_QS_Bulto JSON_QS_Item:AVFP_Objects_QS.prgCJSON_QS_Atributo JSON_QS_Item:AVFP_Objects_QS.prg JSON_QS_linea JSON_QS_Item:AVFP_Objects_QS.prg JSON_QS_grupo JSON_QS_Item:AVFP_Objects_QS.prgvJSON_QS_Filtro JSON_QS_Item:AVFP_Objects_QS.prg JSON_QS_Max JSON_QS_Item:AVFP_Objects_QS.prg8 JSON_QS_Num JSON_QS_Item:AVFP_Objects_QS.prgJSON_QS_Activo_bieJSON_QS_Num:AVFP_Objects_QS.prg JSON_QSParser0JSON_QSParser_Base:avfp_objects_definiciones.prgLJSON_QS_Articulos!JSON_QSParser:AVFP_Objects_QS.prgJSON_QS_Precios%JSON_QS_Articulos:AVFP_Objects_QS.prg7qAAA2A!A!AAAA3q2q2q22q12q1QARQAA2q1QARQAA2q14q<qqAq221AAA2qA2q2AAAaQQAA22q1!!A2Q1q1A12058`5A1!1!1!1!1118A2123q 3#(!^,&2'4+N96qmGAUE=( \L* nS - vVJ z[ x _ Ntvw`,2 [ #exQ7sRj+X"y %)-p+mY4U3Q PLA_ORDENsys_plataformas_objetos.prgAsys_plataformas_pedidos    sys_plataformas_pedidos.prg C fC fC fC f    T HV9 TiendaNube  #T(CCZ) rTMPMINJE !"#$%&'()*+,-./0123456789C9:Cg;<      = >? @<ABCDE2FQPLA_ITEMsys_plataformas_objetos.prgFGH T TC FI!% CFJ  "K ve_funcionesFJrrTMPMINJDMNOP/Q8FJFFRFRFSFTUUOOGSYS_PLATAFORMAS_OBJETOSPRGXCOD_CLIXPRECIO XDESCUENTOXNOMBREHUB_BUSCAR_CLIENTE_PLATAFORMASYS_PLATAFORMAS_PEDIDOSGES_PLATAFORMA FACTURACION GES_CATIVAGES_INSCRIPCIOHUB_GUARDAR_CLIENTE_PLATAFORMA GES_NOMBRE GES_DOMICILIO GES_CIUDADGES_ZIP GES_PROVINCIACLIENTE GES_TELEFONO GES_DOCTIPO GES_EMAIL P_NUBE_NUMERO GES_NUMEROPEDIDOOTENVIADO1ENTREGAFECHAVENDEDORCODIGOCOD_CLINOMBRENICKNAMEEMAILTELEFONOBUYER_ID DOMICILIO LOCALIDADCP PROVINCIAPAISTIPODOCCUITIVACATLISTATOTAL PLATAFORMAAPI_VER API_O_VERPACK_IDORDER_ID LOGISTIC_TCHANNEL DESCUENTO GES_ID_O_P GES_FECHA GES_VENDEDOR GES_USUARIOGES_IDGES_DOC_NUMBER GES_LISTA GES_PAGADO GES_PACK_IDENVIO GES_LOGISTICA GES_CANALDESCUENTOS_GLOBALESGES_PORCENTAJE_DESCUENTOOGITEMITEMS COLECCIONHUB_ANALIZAR_PRECIOS_DESCUENTOS GES_COD_INSVE_OBTENER_PRECIO_SIN_IVA VE_FUNCIONESCOD_INSDESCRCANTIDADPRECIODES_INS GES_CANTIDAD GES_PRECIO GES_DESCUENTOH$q MLAG T TiendaNubeq TH TT T T BU XPLATAFORMAOGITEMXPRECIO XDESCUENTOXTIPODESCUENTOP_MELI_DESCUENTOP_NUBE_DESCUENTOGES_PRECIO_ORIGINAL GES_DESCUENTO GES_PRECIOfQ NUBE_ORDENESsys_nube_objetos.prgQNUBE_CONTROLADORsys_nube_logica.prgG+(Ve_Pedidos_Recibidos%Ctccvent Qtccvent%C T Caa   T  A QJSON_O_RECIBIR_PEDIDOSavfp_objects_intercambio.prgET CJSON_o_recibir_pedidosavfp_objects_intercambio.prgMTCjson_respuesta_recibir_pedidosavfp_objects_intercambio.prgT CCT /Ve_Pedidos_Recibidos.prg  %CTMPMINJEEQ+Q \ -enc.dbf%CTMPMINJDQ+Q \ -det.dbf-Q NUBE_ORDENsys_nube_objetos.prg T TTTCHb% Ctccventref_extTXTYa existe la orden  para esta plataforma. Pedido: CCZTC . !3T La orden  fue cancelada.TC .NCCCZ de CC"Z : # (CC$Z) C%T%FG((pedidoT &C'FT (C'0C Revisando CCZ pedidos. a -)*TC),+%)-6CCC).Z->CC)-Z - )/ %C09CCC).Z-> 1 Pedido agregado C2U3OORDENESSYS_NUBE_OBJETOSPRG OCONTROLADORSYS_NUBE_LOGICA XVENDEDORXCOD_CLIVE_PEDIDOS_RECIBIDOSTCCVENTP_PD_PATH_TEMPORALODEYFUNCGET_PATH XLOCALDIROPARAVFP_OBJECTS_INTERCAMBIOORESENVIOVENDEDORCREAR_PEDIDOS_JSONTMPMINJETMPMINJDOORDENXORDENXPEDXREF_EXT COLECCIONHUB_OBTENER_REF_EXT GES_PEDIDOPEDIDO GES_MENSAJEID_TEXTO GES_RESPUESTAML_LOG_PROCESO GES_CANCELADACOUNT GES_NOMBRE ID_SIMPLEHUB_INYECTAR_PEDIDO ENCABEZADONFCURSORTOJSON4VFPDETALLEOPEDIDOPEDIDOS OBTENER_ITEM PEDIDO_VEN COD_ERROR PEDIDO_GESMENSAJETYPEOGES_INFO"HUB_ACTUALIZAR_PLATAFORMAS_AUX_UNO H X#sys_nube_pedidos #sys_meli_pedidosU OORDEN OCONTROLADOR PLATA_CODIGO PLATA_CODTNNUBE_INYECTAR_PEDIDOSYS_NUBE_PEDIDOS PLATA_CODMLAMELI_INYECTAR_PEDIDOSYS_MELI_PEDIDOSH, CMLAw3sys_meli_pedidos.prg 2&TC  BU XPEDIDOXID XPLATAFORMAXPACK_ID XORDER_ID XREF_FULLMELI_OBTENER_REF_FULLSYS_MELI_PEDIDOSPRGHUB_OBTENER_REF_EXTNTCC X %CXTHm>  TiendaNube+ sys_nube_pedidos MLA+ sys_meli_pedidos 2>TC TCCX TC Z BU OORDENXPACK_ID XORDER_IDXREF_EXTXPEDIDOXID XPLATAFORMATYPEO PLATA_CODIGONUBE_OBTENER_REF_EXTSYS_NUBE_PEDIDOSMELI_OBTENER_REF_EXTSYS_MELI_PEDIDOSH % CMLA C> WTC\, C TiendaNube C> TC\ 2 T BUXREF_EXT XPLATAFORMA XNEWREF_EXT H GBC #sys_meli_pedidosUOORDEN OCONTROLADOR PLATA_CODIGO PLATA_CODTN#HUB_ACTUALIZAR_PLATAFORMAS_AUX_UNO2 PLATA_CODMLA#MELI_ACTUALIZAR_PLATAFORMAS_AUX_UNOSYS_MELI_PEDIDOSr\Q NUBE_ORDENsys_nube_objetos.prgQNUBE_CONTROLADORsys_nube_logica.prg%C 2TC nube_ordenessys_nube_logica.prg!%Cplataformas_aux Qplataformas_Aux#     TTT T T T TTTT /%CPlataformas_AuxRef_Full 0%Cplataformas_Aux.logistic_tbC=-%Cplataformas_Aux.channelbCtrplataformas_Aux !"#$      9jrplataformas_Aux !"#      `rplataformas_Aux !"      k/>  ! "0%Cplataformas_Aux.logistic_tbC%>#-%Cplataformas_Aux.channelbCg>$U&OORDENSYS_NUBE_OBJETOSPRG OCONTROLADORSYS_NUBE_LOGICATYPEOPLATAFORMAS_AUXXREF_EXTXREFFULLXSITEGES XSELLERIDXSTATUSXSTATUSSHIPPINGXSTATUSSHIPPINGTXUSUARIO GES_OBJETO AUX_REF_EXT AUX_REF_FULLVENDEDOR AUX_ESTADO AUX_EST_ENVIOAUX_EST_ENVIOTXLOGISTIC_TYPEAUX_LOGISTIC_T GES_NOMBREXCHANNEL GES_CANALGES_PLATAFORMAREF_EXT PLATAFORMA USUARIO_IDESTADO EST_ENVIO EST_ENVIOTNICKNAME LOGISTIC_TCHANNELIN%C F)%CClientes INSCRIPCIO TaTT%  TH MLA %C TC  TC   TiendaNube%C lTC  TC   BU XPLATAFORMAXCOD_CLIXIVACATXCUIT XENCONTRADOCLIENTESCOD_CLIIVACATP_PD_CLIENTE_IMPORTARP_MELI_CLIENTE_INSCRIPTOP_MELI_CLIENTE_FINALP_NUBE_CLIENTE_INSCRIPTOP_NUBE_CLIENTE_FINAL7     %CxtipodocbCkT C g  T   H CCfMLA*.% C C &TC Tclientesclientes TF%%Cclientescodcli">    ! "#N$! CCf TiendaNube.% C% C% TC Tclientesclientes TF%%Cclientescodcli>    ! "#N$U& XPLATAFORMAXCOD_CLI XCLINOMFAC XCLIDOMICILIO XCLICIUDAD XCLICOD_ZIP XCLIPROVINCIAXCLIPAIS XCLIPHONOXCUITXIVACATXTIPODOC XCLIEMAIL XTIPODOCNXNEWCLIXOLDCLIP_MELI_CLIENTE_INSCRIPTOCLONAR_CLIENTE_SIMPLECLIENTESESPEJAR_CLIENTENOMBRE DOMICILIOCIUDADCOD_ZIP PROVINCIAPAISPHONOEMAILPRO2PAIS2TIPODOC INSCRIPCIOPHO2IVACATFANTASIATARJETACODALTP_NUBE_CLIENTE_INSCRIPTO"TC"TC!%Cplataformas_aux Qplataformas_Aux/%CPlataformas_AuxRef_Full .rplataformas_Aux  U XPEDIDOXID XPLATAFORMAXPACK_ID XORDER_ID XREF_FULLOBTENER_REF_FULLXREF_EXTOBTENER_REF_EXTPLATAFORMAS_AUXREF_EXT PLATAFORMAPlata_inyectar_pedido0hub_analizar_precios_descuentosPlata_inyectar_pedidosl hub_inyectar_pedidoHub_Obtener_Ref_Fullhub_Obtener_Ref_ExtHub_Obtener_Ref_Ext_original"hub_Actualizar_plataformas_Aux_uno#hub_Actualizar_plataformas_Aux_uno2hub_buscar_cliente_plataformaF Hub_Guardar_Cliente_Plataforma"hub_crear_plataformas_Aux_uno"(212 31A#s!#AA31aA11A2a1AqAQbAAA!Q11B!21AA"A1qrBBaaA!AAA311A21aA2QAAa1QaA2Q!!A2!1A2Q!AA2111111111BABAAA2q"qAAa!1A!1AAA2qrA"qqR  BA"qqR  BAA3"!AA3#- c ?'-Qlt+}!^ !"]++.$.8B8:%0`cXlTC %,TMCL$Td:\sistema\systems\ a C T  \data\1 T  TCSQTBORRAR1 Ta Ta \ges.dbc T T T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN(Tc:\sistema\systems\mcl\html(Tguillermo.negrete@gmail.com T T-TC$-ve_informe_diario_task CultimosTCC$ $(7ve_informe_diario_taskBUXAUTXFECHAXDEVXTIPO XULTIMOSXDIAS XSOLONAGESNIT XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_CARPETA_HTML$P_NOTIFICAR_INFORME_DIARIO_MAILTO_VEP_MAIL_BLOQUEOPROCESARVE_INFORME_DIARIO_TASKSYS_M %C wGC6No parametrizado: p_notificar_informe_diario_mailto_veBTC 5 TTCC$ % + T-T"ve_informe_diario_task(% BT  #   6C   G+(sys_html 'C6(%H 9+TC\ve_informe_diario.html 4TC \ve_informe_diario_unidades.html Tlistados !TCve_informe_diarioN!TCLTCcantidad_de_pedidosCCC 9999,999_ 6UTCimporte_de_pedidosCCC 999,999,999,999.99_ 6%STCunidades_de_pedidosCCC999,999,999,999_6MTCcantidad_de_facturasCCC 9999,999_ 6HTCcantidad_de_ncsCCC9999,999_6HTCcantidad_de_ndsCCC9999,999_6NTC facturacionCCC999,999,999,999.99_6%WTCunidades_de_facturacionCCC999,999,999,999_6CfinH Hl ".C\tmp\ve_informe_diario.html l7C$\tmp\ve_informe_diario_unidades.html/TInforme Diario de Venta del C* T +sys_mail_alertas  C!"#$U%XAUTXFECHAXTIPO XSOLONAGES$P_NOTIFICAR_INFORME_DIARIO_MAILTO_VE MENSAJE_AAAAXRESVE_INFORME_DIARIO_TASKXERRXMSGXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACION XPD_UNIDADES XFC_UNIDADESCALCULAR_VALORESSYS_HTMLAAA2NITP_CARPETA_HTMLCONVERTIR_UTF8_A_FOXLISTADOSREEMPLAZOS_GENERALESREEMPLAZAR_VARIABLESYS_MP_LOCALXTITULOSEND_EMAIL_ALERTASSYS_MAIL_ALERTASOAGESSOLODATOSCLIENTES OINFORMESENVIAR_INFORME/  8C(Inicio a calcular valores informe diario TC   T C T  T T T- Ta8ve_sql_pedidos_v2  a&CIndicadores exportados %Ctmp]Q  Q\tmp\ (OC1No se pudo abrir la tabla temporal de pedidos !!!C F%Cq Q%Cq1,Qotmpq1K(6oq1tmpC!Q"qT "%CqQ%Cq1Q%CtmpQ%CComprobantes emitidos F#ve_sql_comprobantes_emitidos_v2 --a  Q\tmp\ (]C?No se pudo abrir la tabla temporal de comprobantes emitidos !!!C F$otmp%&'q1FC%(NC%(ND%( K('[oq1tmpC!Q"%&%&%&q K( "*CTemin de calcular valores U(XAUTXTIPOXFECHAXPEDIDOSXSUMA_IMPORTESXFCSXNCSXNDS XFACTURACION XPD_UNIDADES XFC_UNIDADESLOG_AUTXTABLAXDTIPXDFECXHFECXIVAINCXVALORES_ORIGINALESODEYFUNCNEWFILEEXPORTAR_INDICADORESVE_SQL_PEDIDOS_V2TMPP_LOCALOEX MENSAJE_AMESSAGEQQ1DISTINCTPEDIDO IMPORTE_OSUM RECEPCIONSUM_UNIEXPORTARVE_SQL_COMPROBANTES_EMITIDOS_V2COM_CODCOM_NUMCOM_NETprocesar+calcular_valores k T T T T T T T TUCANTIDAD_DE_PEDIDOSIMPORTE_DE_PEDIDOSUNIDADES_DE_PEDIDOSCANTIDAD_DE_FACTURASCANTIDAD_DE_NCSCANTIDAD_DE_NDS FACTURACIONUNIDADES_DE_FACTURACIONve_informe_diarioinforme_diario_base:sys_htmlq1BQB2ArqaA!BsABA31qAA2v#"AAB1a#r211AAqAQ11A1qA111qA2qAA?2bAAAr%A1Are"A1ABASdArDBAA12&Eho=%&-ւXTC %,TMCL$Td:\sistema\systems\ a C T  \data\1 T  TCSQTBORRAR1 T- Ta \ges.dbc T T T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN(Tc:\sistema\systems\mcl\html(Tguillermo.negrete@gmail.com T T-TC$-pr_informe_diario_task TCC$ $(7pr_informe_diario_taskBUXAUTXFECHAXDEVXTIPO XULTIMOSXDIAS XSOLONAGESNIT XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_CARPETA_HTML$P_NOTIFICAR_INFORME_DIARIO_MAILTO_PRP_MAIL_BLOQUEOPROCESARPR_INFORME_DIARIO_TASK4%C wGC6No parametrizado: p_notificar_informe_diario_mailto_prBTC 5 TTCC$ %   T-"pr_informe_diario_task(% B     C  G+(sys_html'C6(%TH, +T C\pr_informe_diario.html ,4T C \pr_informe_diario_unidades.html T listados !TCpr_informe_diarioN TCETC produccionesCCC 9999,999_ 6HTCunidadesCCC 999,999,999,999_ 6%e"TCtablaC CH HE .C \tmp\cm_informe_diario.html E7C $\tmp\cm_informe_diario_unidades.html4T!Informe Diario de Produccin del C*%CtmpQ T +sys_mail_alertas  C%C tmp_datos)Q BU!XAUTXFECHAXTIPO XSOLONAGES$P_NOTIFICAR_INFORME_DIARIO_MAILTO_PR MENSAJE_AAAAXRESPR_INFORME_DIARIO_TASKXERRXMSGAAA2XOPS XUNIDADESCALCULAR_VALORESSYS_HTMLNITP_CARPETA_HTMLCONVERTIR_UTF8_A_FOXLISTADOSREEMPLAZOS_GENERALESREEMPLAZAR_VARIABLETABLAP_LOCALXTITULOTMPSEND_EMAIL_ALERTASSYS_MAIL_ALERTASOAGESSOLODATOSCLIENTES OINFORMESENVIAR_INFORME TMP_DATOS8C(Inicio a calcular valores informe diarioC Producciones%CqQ%Cq1Q%CtmpQ%C tmp_datosQ T C T  T T-6pr_sql_producciones    Q\tmp\ (]C?No se pudo abrir la tabla temporal de comprobantes emitidos !!!C Fxotmp tmp_datos!K(*CTemin de calcular valores%CqQ%Cq1Q%CtmpQUXAUTXTIPOXFECHAXOPS XUNIDADESLOG_AUTQQ1TMP TMP_DATOSXTABLAODEYFUNCNEWFILEXAPCIEXESTADO XCON_MERMAEXPORTAR_PRODUCCIONESPR_SQL_PRODUCCIONESP_LOCALOEX MENSAJE_AMESSAGELINEADLINEAOPCODIGOATRBULDESCRREALzTC TC TC TC U XPRODXCODXDESCRXCANTTHIS PRODUCCIONCODIGO DESCRIPCIONCANTIDADj F%| ~o@CCpr_informe_diario_registroN B T <  #T  ProduccinT Cdigo$T  Descripcin!T CantidadT T T T  T T  C  ~HT CZT T T CZT CT  T  C B UXVUELTAOOBJ TMP_DATOSTABLAAGREGAR_REGISTROOPCODIGODESCRREALXARRMAXXARRXHTMLTABLE_HEADER_INIXVAR TABLE_ROWTABLE_HEADER_FIN9TTC BUXHTMLTABLE_HEADER_ROWB
UT(WT1CT BUXHTMLZXARRMAXXARRT(TCT BUXHTMLZXARRMAXXARRprocesarcalcular_valores INITtablatable_header_initable_header_fin9table_header_rowU table_row$* T T TU PRODUCCIONESUNIDADESTIPOQT T TT U PRODUCCIONCODIGO DESCRIPCIONCANTIDADpr_informe_diario&informe_diario_base_tabla:sys_html.prgpr_informe_diario_registro$informe_diario_registro:sys_html.prg q1BQB2Arqa"BsAAB31qAA2v#"AABr#q211AAqAR3!!A111qAABA1qAAAB4q"A1ABAAdAr"A1ABA>13q1AAr11A!B"5qB"22qqAa2qAa11QQ7%.Ed4+4H4e-7C6@'%P̂XؼTC %,TMCL$Td:\sistema\systems\ a C T  \data\1 T  TCSQTBORRAR1 Ta Ta \ges.dbc T T T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN(Tc:\sistema\systems\mcl\html(Tguillermo.negrete@gmail.com T T-TC$-cm_informe_diario_task TCC$ $(7cm_informe_diario_taskBUXAUTXFECHAXDEVXTIPO XULTIMOSXDIAS XSOLONAGESNIT XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_CARPETA_HTML$P_NOTIFICAR_INFORME_DIARIO_MAILTO_CMP_MAIL_BLOQUEOPROCESARCM_INFORME_DIARIO_TASK#%C wGC6No parametrizado: p_notificar_informe_diario_mailto_cmBTC 5 TTCC$ %   T-"cm_informe_diario_task(% B     "C  G+(sys_html'C6(%\H4 +T C\cm_informe_diario.html 44T C \cm_informe_diario_unidades.html T listados !TCcm_informe_diarioN TC@TCordenesCCC 9999,999_ 6GTCimporteCCC999,999,999,999_6%g"TCtablaC CCfinH HW  .C \tmp\cm_informe_diario.html W7C $\tmp\cm_informe_diario_unidades.html1TInforme Diario de Compras del C* T +sys_mail_alertas  C %C tmp_datosQ!BU"XAUTXFECHAXTIPO XSOLONAGES$P_NOTIFICAR_INFORME_DIARIO_MAILTO_CM MENSAJE_AAAAXRESCM_INFORME_DIARIO_TASKXERRXMSGAAA2XORDENES XUNIDADESXIMPORTECALCULAR_VALORESSYS_HTMLNITP_CARPETA_HTMLCONVERTIR_UTF8_A_FOXLISTADOSREEMPLAZOS_GENERALESREEMPLAZAR_VARIABLETABLASYS_MP_LOCALXTITULOSEND_EMAIL_ALERTASSYS_MAIL_ALERTASOAGESSOLODATOSCLIENTES OINFORMESENVIAR_INFORME TMP_DATOS8C(Inicio a calcular valores informe diarioC Producciones%CqQ%Cq1Q%CtmpQ %C tmp_datosQ T C +cm_sql_compras  X Q\tmp\  (]C?No se pudo abrir la tabla temporal de comprobantes emitidos !!!C F Ccalcular valores.otmp0 q1K(8oq1tmp   qK( otmpQXstockQ! !'!(!) !"Q#!"!$Q%& tmp_datos*CTemin de calcular valores%CqQ%Cq1Q%CtmpQ U*XAUTXTIPOXFECHAXORDENES XUNIDADESXIMPORTELOG_AUTQQ1TMP TMP_DATOSXTABLAODEYFUNCNEWFILE EXPORTAR_OCSCM_SQL_COMPRASP_LOCALOEX MENSAJE_AMESSAGESYS_MDISTINCTORDENBASECOD_PRODET_COD DET_RECEPTDET_ATRDET_BULMEDIDADET_DESC DET_TOTALSCANTIDADSTOCKCANT_COM DISPONIBLENOMBRECODIGOBULATR#T C  T C  T C  T C  T C  TC TC TC UXOC XPROVEEDORXCODXDESCRXUM XDISPONIBLEXCANTXIMPORTETHISOC PROVEEDORCODIGO DESCRIPCIONUM DISPONIBLECANTIDADIMPORTE F% ~PCCcm_informe_diario_registro N B T < TO.C."T ProveedorTCdigo$T DescripcinTU.M.TStock!TCantidad TImporteTTTTTTTT TTC ~TCZTTTC(TC  TC ZTC ZTC ZTCTTC BUXVUELTAOOBJ TMP_DATOSTABLAAGREGAR_REGISTROORDENNOMBREDET_CODDET_DESCMEDIDA DISPONIBLE DET_RECEP DET_TOTALXARRMAXXARRXHTMLTABLE_HEADER_INIXVAR TABLE_ROWTABLE_HEADER_FIN9TTC BUXHTMLTABLE_HEADER_ROWB
UT(WT1CT BUXHTMLZXARRMAXXARRT(TCT BUXHTMLZXARRMAXXARRprocesarcalcular_valores INITtablatable_header_ini9table_header_fintable_header_row table_row~* T T TUORDENESIMPORTETIPO T T T T TTTT UOC PROVEEDORCODIGO DESCRIPCIONUMCANTIDAD DISPONIBLEIMPORTEcm_informe_diario"informe_diario_base_tabla:sys_html*cm_informe_diario_registro$informe_diario_registro:sys_html.prgtq1BQB2Arqa"BsAAB31qAA2v""AAB!#q211AAqAq3!!A111qA2qAAAB2"A1ABAAArs "A1ABA 114q1AAr1!A!B"5qB"22qqAa2qAa11QQQ;%/ Eb i.8PY\em%0mhXU%Ctcccompd .QtcccompdT ~% TCtcccompdorden>BUTCCCOMPDXOCORDENSOLICITA solicitante01AA1ABB1%\A`YFU %C6TCGCCC Meli: C \ML\meli_log.txtUXTEXTOXREINICIALIZARTHISLOGPATHODEYFUNCGET_PATHHCsys_procesandoUXTEXTOXREINICIALIZARXARCHIVOTHISML_LOG SP_MENSAJESYS_PROCESANDO#TCmeli_proceso.txt %C]TC4CCC C \ML\UXTEXTOXREINICIALIZARXARCHIVOTHISLOGPATHODEYFUNCGET_PATH'QCHILKAT_9_5_0.JsonObject(TCChilkat_9_5_0.JsonObjectNTCCUXFILE LNSUCCESSLOJSONLOADFILETHISLEER_JSON_VALORES&#QCHILKAT_9_5_0.JsonObjectULOJSONTC %C C %C tTC TC BUOOBJXCLASEXIDXPRGTHIS OBJETOS_PRGTYPEO U OCONTROLADORK"%C C 8T BUTHISUSER_IDTYPEO OCONTROLADOR7QMELI_AUTORIZACIONsys_meli_logica.prg%CfT BTCT C %C  CaT BU OAUTORIZACIONSYS_MELI_LOGICAPRGXREFRESHTYPEOTHISOBTENER_OAUTORIZACION OCONECTOR OBTENER_TOKENPROBAR_CONEXION,TC BU OAUTORIZACIONTHISOAUTORIZACION_CLASE LOGICA_PRG?3QMELI_AUTORIZACIONsys_meli_logica.prg BU OAUTORIZACIONSYS_MELI_LOGICAPRGQSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACIONQSTRINGQSTRINGQSTRINGQSTRING!% - C C TC 1TC  BUOOBJXAPI XAUTORIZARXOK OAUTORIZACIONXARCHIVOXHEADERXAPPTIPOXMENSAJETHIS CONECTADOTYPEO OBTENER_TOKENREEMPLAZAR_PARAMETROSSUBIR_ARCHIVO_CONECTORhQSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACIONQSTRINGQSTRING!%- C C TC )TC BU OOBJXAPI XAUTORIZARXOK OAUTORIZACIONXARCHIVOXMENSAJETHIS CONECTADOTYPEO OBTENER_TOKENREEMPLAZAR_PARAMETROSOBTENER_ARCHIVO_CONECTOR]HQSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACION T-B-UXAPI XAUTORIZARXOK OAUTORIZACIONPQSTRINGQBOOLEANQBOOLEANQMELI_AUTORIZACION!%- C ~ C TC !TC %CC T a BUOOBJXAPI XAUTORIZARXOKOJSON OAUTORIZACIONTHIS CONECTADOTYPEO OBTENER_TOKENREEMPLAZAR_PARAMETROS OBTENER_JSONLEER_JSON_VALORESLEIDOW%CD%C@T BUTHISUSER_IDTYPEO OCONECTORg"%C This.User_IDbN7TCZ TT BUTHISUSER_IDSUSER_ID?0TCC.json BUTHISXARCHIVO_TOKENODEYFUNCGET_PATH TOKEN_HEADERUSER_IDSB UTHIS TOKEN_TYPE ACCESS_TOKENYOCBEsta funcion debe correrse en la clase compatible con el conector.ULOJSON MENSAJE_SUu%C0 6C n%CjCUXREFRESHTHISXARCHIVO_TOKEN LEER_JSONTYPEO OCONECTORAUTORIZAR_TOKEN:%C'T BUTHISUSER_IDVENDEDOR)&sys_mail_chilkat-UCOMPROBAR_LICENCIASYS_MAIL_CHILKATTHISOGLOBAL %CETT  C%C xConectorbCT U XCONECTOR OCONTROLADORTYPEOTHISOGLOBAL OCONECTORCOMPROBAR_LICENCIACLASE_CONECTORINICIAR_CONECTOR6 TCTUTHIS OCONECTORCONTROLAR_OBJETOCLASE_CONECTOR OCONTROLADOR, TCUXCLASE OCONTROLADORTHIS LOGICA_PRGMTCC BUOOBJXCLASEXIDXPRGOBTENER_DATOS_CONTROLADORTHISaTCCa BU OOBJXIDXCLASEXAPIXMSGXOKTHISCONTROLAR_OBJETO OCONECTOROBTENER_OBJETOavfp_log0ML_log_Procesoml_log Leer_JSONxLeer_JSON_Valores<Controlar_ObjetorObtener_Datos_ControladorRUser_ID_Accessr Obtener_TokenObtener_oAutorizacionUAutorizar_Token Subir_Archivo+Obtener_Archivo Obtener_JSONh Obtener_Objeto User_ID_Access User_IDs_Access xArchivo_Token_Access Authorization_Access Leer_JSON_ValorescINIT Obtener_TokenUser_ID_AccessComprobar_LicenciaINITnIniciar_ConectorObtener_controladorControlar_ObjetoaObtener_Objeto_ID T(Tsys_plataformas_objetos.prg%Tsys_plataformas_base.prgTgeneralTMLAT TiendaNubeTVTEX       ULOGPATH OBJETOS_PRG LOGICA_PRG PLATA_CODIGO PLATA_CODMLA PLATA_CODTN PLATA_CODVTEX T- T T T T-TPlata_Autorizacion T- T   U CONECTADO CLIENT_ID CLIENT_SECRETXURLBASE OAUTORIZACIONOAUTORIZACION_CLASE OCONTROLADORUSER_ID  T T T T T TT T T T  T  T  T - T T\Plata\PL_Token_       U ACCESS_TOKEN TOKEN_TYPE EXPIRES_INSCOPEUSER_IDUSER_IDS EXPIRES_DATE REFRESH_TOKEN RESULTADOMENSAJERESPONSEXARCHIVO_TOKEN OCONECTOR AUTHORIZATION TOKEN_HEADER#TPlata_Conector_Chilkat T- T- T T       UCLASE_CONECTOR OCONECTOROGLOBALVENDEDORUSER_ID Plata_BaseCUSTOMvPlata_Conector#Plata_Base:sys_plataformas_base.prgPlata_Autorizacion#Plata_Base:sys_plataformas_base.prgPlata_Controlador#Plata_Base:sys_plataformas_base.prg:AqAq231AqAA3qqQ2121b!1AA2q=!aA2qbAA2q412AAR2AR2q2AQAAP1AaaAB2!Q1A322q23q1aAAA:A1A2a2A11AA2122122QAq3>1:17  ")(5,%g9'"G,G: M:g ]> dA iI RsQv}Ub;ip/s[ux<<yb>z1ZU}2%> H% %&C#]YxUCUOOBJETO PASAR_OBJETOTHISCUOOBJETO PASAR_OBJETOTHISd=TCPla_ItemSys_Plataformas_objetos.prgC BUOITEMOGITHIS COLECCIONADD3%C,CUOITEMTYPEOTHIS LEER_OBJETOd=TCPla_ItemSys_Plataformas_objetos.prgC BUOITEMOGITHIS COLECCIONADD7Q PLA_ENSAMBLESSys_Plataformas_Objetos.prg%C \T%Cbieaux Qbieaux%Cformulas Qformulas%Cccformul Qccformul    T C CollectionNT C CollectionN# QDEYFUNC dey_func2.prg (!TC #%CbieauxCOD6%Cccformulcodens TTC CF~6TCPla_Itemsys_plataformas_objetos.prgTTTT T!!TC   (jT C C " CU#OENSSYS_PLATAFORMAS_OBJETOSPRGTYPEOTHIS ENSAMBLESBIEAUXFORMULASCCFORMULOCENSOCITMSNITNITMODEYFUNC DEY_FUNC2 COLECCIONCOUNTOITMITEM GES_COD_INS ESENSAMBLE XENSAMBLE GES_ENSAMBLEADDFORMULAOITM2CODCOMPGES_BULBULCOMPGES_ATRATRCOMP GES_CANTIDADCANTIDAD GES_DESCUENTOREMOVE3%C,CUOITEMTYPEOTHIS LEER_OBJETOd=TCPla_ItemSys_Plataformas_objetos.prgC BUOITEMOGITHIS COLECCIONADDiBTC Pla_DescuentoSys_Plataformas_objetos.prgC BUOITEMOGITHIS COLECCIONADD3%C,CUODESCTYPEOTHIS LEER_OBJETOpITCPla_Descuento_GlobalSys_Plataformas_objetos.prgC BUOITEMOGITHIS COLECCIONADD:QPLA_DESCUENTO_GLOBALSys_Plataformas_ObjetosT<TC d 6 BUODESCSYS_PLATAFORMAS_OBJETOSTHISGES_PORCENTAJE_DESCUENTO COLECCIONGES_PORCENTAJE3%C,CUODESCTYPEOTHIS LEER_OBJETO"T BUTHISIDGES_ID=%C*T BUTHIS AUX_NICKNAMECLIENTE GES_USUARIO"T BUTHIS PLATA_CODIGOGES_PLATAFORMAq%CxIDbNj%VTTTUXIDTHISGES_ID AUX_REF_EXT AUX_REF_FULLu%CxPackIDbNn%ZTTTUXPACKIDTHIS GES_PACK_ID AUX_REF_EXT AUX_REF_FULLy!%C xPlataformabCr%^TTTU XPLATAFORMATHISGES_PLATAFORMA AUX_REF_EXT AUX_REF_FULLu%CxPedidobNn%ZTTTUXPEDIDOTHIS GES_PEDIDO AUX_REF_EXT AUX_REF_FULLm%C4CTC TC UOORDEN XVENDEDORXLISTATYPEOTHIS LEER_OBJETO GES_VENDEDOR GES_LISTA_%C /T LT BUXIDTHIS GES_PACK_ID GES_ID_O_PGES_ID%CTMsys_plataformas_pedidosT BU THIS AUX_REF_EXTXREF_EXTHUB_OBTENER_REF_EXTSYS_PLATAFORMAS_PEDIDOS GES_PACK_IDGES_ID GES_PEDIDOGES_PLATAFORMA%CTIsys_plataformas_pedidosT BU THIS AUX_REF_FULL XREF_FULLHUB_OBTENER_REF_FULLSYS_PLATAFORMAS_PEDIDOS GES_PEDIDOGES_IDGES_PLATAFORMA GES_PACK_ID#TC UXTIPOTHIS TIPO_OBJETO Leer_Objeto0 Leer_Objetop Agregar_ItemINIT> Agregar_ItemCrear_Ensambles(INIT Agregar_Itemn Agregar_ItemINIT Agregar_Item GES_Porcentaje_Descuento_Access  INIT  ID_Access  Aux_NickName_Access-  Plata_Codigo_Access  GES_ID_Assign  GES_Pack_ID_Assign  Ges_Plataforma_AssignE  GES_Pedido_Assign INIT GES_ID_O_P_Accessz AUX_REF_Ext_Access  AUX_REF_FULL_Access, INITJ U U .Q U COLECCION PLA_COLECCION TTCXTCXTCXTCUXREF_EXT XPLATAFORMA XFCE_SUBIDAXOKXMSG FCE_SUBIDAINPLATAFORMAS_AUX\\Q NUBE_ORDENsys_nube_objetos.prgQNUBE_CONTROLADORsys_nube_logica.prg%C 2TC nube_ordenessys_nube_logica.prg!%Cplataformas_aux Qplataformas_Aux#     TTT T T T TTT/%CPlataformas_AuxRef_Full 0%Cplataformas_Aux.logistic_tbC'-%Cplataformas_Aux.channelbCtrplataformas_Aux !"#      #jrplataformas_Aux !"      `rplataformas_Aux !      U/>   !0%Cplataformas_Aux.logistic_tbC>"-%Cplataformas_Aux.channelbCQ>#U%OORDENSYS_NUBE_OBJETOSPRG OCONTROLADORSYS_NUBE_LOGICATYPEOPLATAFORMAS_AUXXREF_EXTXREFFULLXSITEGES XSELLERIDXSTATUSXSTATUSSHIPPINGXSTATUSSHIPPINGTXUSUARIO GES_OBJETO AUX_REF_EXT AUX_REF_FULLVENDEDOR AUX_ESTADO AUX_EST_ENVIOAUX_EST_ENVIOTXLOGISTIC_TYPEAUX_LOGISTIC_T GES_NOMBREXCHANNEL GES_CANALREF_EXT PLATAFORMA USUARIO_IDESTADO EST_ENVIO EST_ENVIOTNICKNAME LOGISTIC_TCHANNELINnTCTC T BUOORDENXPACK_ID XORDER_ID XREF_FULL XPLATAFORMAXREF_EXTNUBE_OBTENER_REF_EXT PLATA_CODTNTC %CQT$TCNCCC9Q_ BUOORDENXPACK_ID XORDER_IDXREF_EXTXCAUSATYPEOIDeH U C=NUTCCC\g BUXREF_EXT OCONTROLADOR OOBTENIDO OBTENER_ORDENiH$Y C=NYTCCC\g BUXREF_EXT OCONTROLADOROORDENOPACK OBTENER_ORDEN!%Cplataformas_Aux KQplataformas_AuxF2%Cplataformas_auxREF_FULL ^J  T- BU XPLATAFORMAXREF_EXTOPLATAPLATAFORMAS_AUX:QNUBE_CONTROLADORsys_nube_logica.prg%C 2TC nube_ordenessys_nube_logica.prgF&%CtccventTCCVORD &TNo se encontr el pedido.UXPEDIDO OCONTROLADORSYS_NUBE_LOGICAPRGXMSGTYPEOTCCVENTnube_inyectar_pedido)nube_descripcion_articuloDummy_Llamada_AVFPInube_subir_comprobante nube_imprimir_etiquetanube_Actualizar_plataformas_AuxL'nube_Actualizar_plataformas_Aux_factura#nube_Actualizar_plataformas_Aux_unonube_Obtener_Ref_Full!nube_Obtener_Ref_Ext"Obtener_Desde_Ref_Exte#Obtener_Orden_Desde_Ref_Ext$&Obtener_plataformas_aux_Desde_Ref_full$nube_Actualizar_Pedido%A!A2Ab"aaA"AbAA1AAAAa5! 121b3q11A2s2AaAAA41AAR!AQA!aAAAA!AAAACaAqAAQ4S!AAAAAAq!AAAAcAA!aABAAbAA1!A2Q!AA!A3q2QA2Q!AA21111111BABAAA2qqQ213qAAA2A21A2Aq!A3Q!AqaaA2) 81<D9# NC _D4 $!#*.N*I+ks+,s$,-+-.2.0>B01 % $"YڽUSYS_PLATAFORMAS_BASEPRG"T BUTHIS PLATA_CODIGO PLATA_CODTN"T BUTHISXURLBASEURLBASE*TTUXDATATHISXURLBASEURLBASE,TC BU OAUTORIZACIONTHISOAUTORIZACION_CLASE LOGICA_PRG#QCHILKAT_9_5_0.JsonObject$TC refresh_token#TC access_token!TC token_type!TC expires_inTCscope TCCuser_idgU LOJSONTHIS REFRESH_TOKENSTRINGOF ACCESS_TOKEN TOKEN_TYPE EXPIRES_INSCOPEUSER_IDs;QNUBE_AUTORIZACION_CHILKATsys_Nube_logica.prg,!sys_Nube_autorizacion_chilkat.prg BU OAUTORIZACIONSYS_NUBE_LOGICAPRGSYS_NUBE_AUTORIZACION_CHILKATQSTRINGQBOOLEANQBOOLEANQNUBE_AUTORIZACIONsys_Nube_logica.prgQSTRINGQSTRINGQSTRING QSTRING # sys_mail_chilkat- %C T%C0  T- B!QCHILKAT_9_5_0.Http"TCChilkat_9_5_0.HttpN%yTFQCHILKAT_9_5_0.HttpRequestQCHILKAT_9_5_0.HttpResponse)TCChilkat_9_5_0.HttpRequestNTPOSTT#Tmultipart/form-dataTC% T-(T No se pudo subir el archivo < B%CExpect 100-continue3C content-typemultipart/form-data;"TC%Cɭ  T-+T Error CCZ:  < B < Ta BUXAPI XAUTORIZARXOK OAUTORIZACIONSYS_NUBE_LOGICAPRGXARCHIVOXHEADERXAPPTIPOXMENSAJEOGLOBALCOMPROBAR_LICENCIASYS_MAIL_CHILKATTYPEOTHISLOHTTPLOSBRESPONSEBODY AUTHTOKEN ACCESS_TOKENLOREQLORESPHTTPVERBPATH CONTENTTYPE LNSUCCESSADDFILEFORUPLOAD2 ADDHEADERSYNCHRONOUSREQUESTURLBASE STATUSCODE STATUSTEXT{QSTRINGQBOOLEANQBOOLEANQNUBE_AUTORIZACIONsys_Nube_logica.prgQSTRINGQSTRING  # sys_mail_chilkat-%C T TCC !QCHILKAT_9_5_0.Http"TCChilkat_9_5_0.HttpN%NTTC % T-TC < B< Ta BUXAPI XAUTORIZARXOK OAUTORIZACIONSYS_NUBE_LOGICAPRGXARCHIVOXMENSAJEOGLOBALERRRESPONSEBODY2COMPROBAR_LICENCIASYS_MAIL_CHILKATTYPEOTHISODEYFUNCNEWFILE_LOCAL_TMPLOHTTPLOSBRESPONSEBODY AUTHTOKEN ACCESS_TOKEN LNSUCCESSDOWNLOADURLBASE OBTENER_ERROR LASTERRORXML!TCChilkat_9_5_0.XmlNTC%h B TCDownloadT v"TCa_httpDownloadT h$TChttpDownloadFileT Z$TCerrResponseBody2T d r   BUXMENSAJELOXMLLOXML2 LNSUCCESSLOADXML FINDCHILDCONTENTxmQSTRINGQBOOLEANQBOOLEANQNUBE_AUTORIZACIONsys_Nube_logica.prgQSTRING # sys_mail_chilkat- %C T   M(`'! Content-Type: application/json>8 Authentication: bearer <> TGTCGET C/CC Z6%C=[~+TCChilkat_9_5_0.StringBuilderNC {"array":CC}(TCChilkat_9_5_0.JsonObjectNCCTC T (TCChilkat_9_5_0.JsonObjectNC%Cɭ O T- #,T CC  ! 6 -<<< B Ta<< BU"XAPI XAUTORIZARXOK OAUTORIZACIONSYS_NUBE_LOGICAPRG XNOUSERIDOGLOBALOJSONCOMPROBAR_LICENCIASYS_MAIL_CHILKATJSONTYPEOTHISCHEAERSORESPCHEADERSCPAYLOADCNJSON HTTPREQUESTURLBASEUSER_IDRAWLOSBJSONAPPENDLOJSONLOAD GETASSTRINGLOJARRAYARRAYAT STATUSCODE ULTIMOERRORERRORMSGMESSAGEMQ NUBE_STOREsys_nube_objetos.prgQCHILKAT_9_5_0.JsonObject"TC Nube_Store'C/storeaB   U OAUTORIZACIONXOKOMESYS_NUBE_OBJETOSPRGOJSONTHISCONTROLAR_OBJETOOBTENER_OBJETOID)&sys_mail_chilkat-UCOMPROBAR_LICENCIASYS_MAIL_CHILKATTHISOGLOBAL, TCUXCLASE OCONTROLADORTHIS LOGICA_PRG$TC Nube_OrdenesTC TC COrdenesWTHIS.oConector.Obtener_Objeto(@oOBJ, "/orders?page=%Page%&per_page=%Per_Page%",.T.) BUOOBJXLIMITEXPAGINATHISCONTROLAR_OBJETO SEARCH_PAGESEARCH_PER_PAGESYS_MP $TC Nube_OrdenesC BUOOBJXORDENTHISCONTROLAR_OBJETO AGREGAR_ORDEN? 1BC Nube_Orden /orders/%ID%UOOBJXIDTHISOBTENER_OBJETO_ID&TC Nube_Envio~xArchivo = THIS.oConector.Obtener_Archivo(@oOBJ, "/shipment_labels?shipment_ids=%ID%&savePdf=Y",.T.,@xOK,,xArchivo, @xMSG) BUOOBJXIDXARCHIVOXOKXMSGTHISCONTROLAR_OBJETO7 )BC Nube_User/userUOOBJXIDTHISOBTENER_OBJETO_ID@ 2BC Nube_Usuario /users/%ID%UOOBJXIDTHISOBTENER_OBJETO_IDI"TC Nube_StoreBC/storeUOOBJTHISCONTROLAR_OBJETO OCONECTOROBTENER_OBJETOplata_codigo_AccessKxURLBase_AccessxURLBase_AssignObtener_oAutorizacion+Leer_JSON_ValoresAutorizar_TokenSubir_Archivo_ConectorObtener_Archivo_Conector Obtener_Error  Obtener_JSON Probar_ConexionxComprobar_LicenciaObtener_controladorObtener_Ultimas_OrdenescObtener_Ordenes_orden Obtener_Orden)Obtener_Etiqueta_Envio Obtener_UserObtener_Usuario Obtener_Storej e!Tsys_Nube_objetos.prg Tsys_Nube_logica.prgT TiendaNube U OBJETOS_PRG LOGICA_PRG PLATA_CODIGO4 T-T11844=T063e4d6d6500fa3c50f5251343fc3b2350f85669d6b42974d T*Thttps://api.tiendanube.com/v1 T-TNube_Autorizacion T- T!T sys_Nube_objetos.prg T sys_Nube_logica.prg   U CONECTADO CLIENT_ID CLIENT_SECRETXURLBASEURLBASE OAUTORIZACIONOAUTORIZACION_CLASE OCONTROLADORUSER_ID OBJETOS_PRG LOGICA_PRG^T \ML\nb_token_!Tsys_Nube_objetos.prg Tsys_Nube_logica.prgU TOKEN_HEADER OBJETOS_PRG LOGICA_PRG Ue&TNube_Autorizacion_Chilkat    UOAUTORIZACION_CLASE%"TNube_Conector_ChilkatUCLASE_CONECTOR"TNube_Conector_Chilkat T!Tsys_Nube_objetos.prg Tsys_Nube_logica.prg UCLASE_CONECTORVENDEDORP_NUBE_USER_ID OBJETOS_PRG LOGICA_PRG+    U  U U Nube_Base#Plata_Base:sys_plataformas_base.prg Nube_Conector'Plata_Conector:sys_plataformas_base.prgNube_Autorizacion+Plata_Autorizacion:sys_plataformas_base.prgpNube_Autorizacion_ChilkatNube_AutorizacionNube_Conector_Chilkat Nube_ConectorNube_Controlador_ChilkatNube_ControladorNube_Controlador*Plata_Controlador:sys_plataformas_base.prgnube_c_ordenesNube_ControladorNube_C_UsuariosNube_Controlador nube_c_baseNube_Controlador61112q2q?1A172q q1QA!A!1AbA11AQ1"A31QAq!1AAqsAr2qQ1A!AAAAAA21qRAqAq1AA1AAqqqArq2qr!qq>a25BAq2BQ22qa42!4q!2q4!519ap:!1!4645 -m !Q3CA FD Ot[txJD  !"_"#""'I##-Dm z(32>MvT!!""/##,d!%kŝNnlmYUi%CV@TC Pla_OrdenSys_plataformas_objetos.prg BUTYPEOTHIS GES_OBJETOOOG"T BUTHIS ID_SIMPLEIDB,TC (CCZ)  BUXTEXTOTHISGES_INFO GES_NOMBRE ID_SIMPLE%T BUTHIS GES_NOMBRECUSTOMER NOMBRE_GEST- BUTHIS GES_CANCELADA'QCHILKAT_9_5_0.JsonObjectTCCCidg8%TC created_at'TC completed_at!TCCsubtotalg!T CCdiscountg(T CCdiscount_coupong"T CC total_usdg#T CC total_paidgT Ccurrency%TCpayment_status"TC next_action"TCpaid_atTCstatus&TCshipping_status+TCshipping_option_code#TCCCstore_idg8!TCCCnumberg8"CCcustomer"CCproducts.CCpromotional_discount CCcouponULOJSONXPATHTHISIDSTRINGOF CREATED_ATCONVERTIR_DATETIME COMPLETED_ATSUBTOTALDISCOUNTDISCOUNT_COUPON TOTAL_USD TOTAL_PAIDCURRENCYPAYMENT_STATUS NEXT_ACTIONPAID_ATSTATUSSHIPPING_STATUSSHIPPING_OPTION_CODESTORE_IDNUMBERCUSTOMERLEER_JSON_VALORESOBJECTOFPRODUCTSARRAYOFPROMOTIONAL_DISCOUNTCOUPON%T BUTHIS NOMBRE_GESCUSTOMER)T BUXIDTHISID_O_PID3Q PLA_ORDENSys_Plataformas_objetos.prg-Q NUBE_ORDENsys_nube_objetos.prg TTT T  T  TTCTTTTTC! C"C#T$ BU%OOGSYS_PLATAFORMAS_OBJETOSPRGOORDENSYS_NUBE_OBJETOSTHISGES_IDIDGES_PLATAFORMA PLATA_CODIGO GES_CANALCANAL GES_FECHA CREATED_AT GES_PAGADO TOTAL_PAID GES_NUMERONUMBERCUSTOMER PASAR_OBJETOCLIENTE FACTURACION AUX_EST_ENVIOSHIPPING_STATUS_GESAUX_USUARIO_IDSTORE_ID AUX_ESTADOSTATUSAUX_EST_ENVIOTSHIPPING_STATUSAUX_LOGISTIC_TSHIPPING_OPTION_CODEPRODUCTSITEMSPROMOTIONAL_DISCOUNTCOUPON GES_OBJETOH unpacked?T!  unfulfilledpT  fulfilledT 2T BUTHISSHIPPING_STATUSSHIPPING_STATUS_GES'QCHILKAT_9_5_0.JsonObjectTCCCidg8TCaddressTCcityTCcountry%TC created_at T Cdefault T CfloorT ClocalityTCnameTCnumberTCphoneTCprovince%TC updated_at TCzipcodeULOJSONXPATHTHISIDSTRINGOFADDRESSCITYCOUNTRY CREATED_ATCONVERTIR_DATETIMEDEFAULTBOOLOFFLOORLOCALITYNOMBRENUMBERPHONEPROVINCE UPDATED_ATZIPCODE$TC BUTHIS BILLING_CITYUFTCPCaCCCZa6 BUTHISDOC_NUMBER_GES DOC_TYPE_GES OLOCALIZACIONCUIT_FORMATEADO DOC_NUMBERB Tlistados BUXPROVXLETTHISBILLING_PROVINCE PROVINC_INVLISTADOSD5TCCC C C BUTHIS DOMICILIO_GESBILLING_ADDRESSBILLING_NUMBER BILLING_FLOOR&TCC BUTHIS NOMBRE_GESNOMBRET` BUTHIS DOC_TYPE_GEST BUTHISTAXPAYER_TYPE_ID_AFIPI " ve_funcionesT BU XTIPO_AFIPXIVACATIVACAT_DESDE_AFIP VE_FUNCIONESTHISTAXPAYER_TYPE_ID_AFIPTAXPAYER_TYPE_ID_GES`gQ PLA_CLIENTESys_Plataformas_objetos.prgQ PLA_CLIENTESys_Plataformas_objetos.prg/Q NUBE_CLIENTEsys_nube_objetos.prg TTT  T  T TTTTTTTT%CYT  TTTTTTT TTUOPLCSYS_PLATAFORMAS_OBJETOSPRGOPLFOORDENSYS_NUBE_OBJETOSTHISGES_IDID GES_NOMBRENOMBRE GES_EMAILEMAILGES_DOC_NUMBERIDENTIFICATIONGES_INSCRIPCIO GES_DOMICILIO DOMICILIO_GES GES_CIUDAD BILLING_CITYGES_ZIPBILLING_ZIPCODE GES_PROVINCIA PROVINCIA_GES GES_DOCTIPO DOC_TYPE_GES GES_CATIVATAXPAYER_TYPE_ID_GES GES_TELEFONOPHONETYPEO'QCHILKAT_9_5_0.JsonObjectTCCCidg8TCnameTCemailTCphone%TCidentificationT Cnote#T C billing_name$T C billing_phone&T Cbilling_address%T Cbilling_number$TC billing_floor'TCbilling_locality&TCbilling_zipcode#TC billing_city'TCbilling_province&TCbilling_country$TC business_name!TC trade_name)TCstate_registration$TC document_type"TC total_spent+TCtotal_spent_currency(TCCC last_order_idg8TCactive,TCfirst_interaction%TC created_at%T C updated_at(T!Caccepts_marketing7T"Caccepts_marketing_updated_atT#Cextra)CCdefault_address&$%"'QCHILKAT_9_5_0.JsonArrayT'C addresses( )('*{#+QCHILKAT_9_5_0.JsonObjectT+C)',-QNUBE_DIRECCIONT-CNube_DireccionNC+-%C-./U0LOJSONXPATHTHISIDSTRINGOFNOMBREEMAILPHONEIDENTIFICATIONNOTA BILLING_NAME BILLING_PHONEBILLING_ADDRESSBILLING_NUMBER BILLING_FLOORBILLING_LOCALITYBILLING_ZIPCODE BILLING_CITYBILLING_PROVINCEBILLING_COUNTRY BUSINESS_NAME TRADE_NAMESTATE_REGISTRATION DOCUMENT_TYPE TOTAL_SPENTTOTAL_SPENT_CURRENCY LAST_ORDER_IDACTIVEBOOLOFFIRST_INTERACTIONCONVERTIR_DATETIME CREATED_AT UPDATED_ATACCEPTS_MARKETINGACCEPTS_MARKETING_UPDATED_ATEXTRADEFAULT_ADDRESSLEER_JSON_VALORESOBJECTOF LOADDRESSESARRAYOFISIZE LOADDRESSOBJECTAT OBJADDRESS ADDRESSESADD_3Q PLA_ITEMSSys_Plataformas_objetos.prgXCUOGISSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCION AGREGAR_ITEM]'QCHILKAT_9_5_0.JsonObjectTCCCidg8TCCdepthgTCCheightgTCname,TCname_without_variantsT CCpriceg)T CCcompare_at_priceg%T CCC product_idg8!T CCquantityg$T C free_shippingTCCweightgTCCwidthg%TCCC variant_idg8TCTC:TCCskunull Csku6TCCcostgULOJSONXPATHTHISIDSTRINGOFDEPTHHEIGHTNOMBRENAME_WITHOUT_VARIANTSPRICECOMPARE_AT_PRICE PRODUCT_IDQUANTITY FREE_SHIPPINGBOOLOFWEIGHTWIDTH VARIANT_IDVARIANT_VALUESEMIT PROPERTIESSKUCOST[2QPLA_ITEMSys_Plataformas_objetos.prgTCTC=TC\TC\T  T  T T T<TC d6TTUOGISYS_PLATAFORMAS_OBJETOSPRGXCODTHISSKU GES_COD_INSGES_ATRGES_BUL GES_NOMBRENOMBRE GES_CANTIDADQUANTITY GES_PRECIOPRICE GES_TOTALGES_PRECIO_ORIGINALCOMPARE_AT_PRICE GES_DESCUENTOGES_IDID GES_OBJETOBCUXAPITHISREEMPLAZAR_PARAMETROS_BUSQUEDA[&TC %Vendedor%CCZ!TC%Orden%C$TC%Limite%CCZ$TC%OffSet%CCZ"TC%Status%C$TC %Channels%C*TC%Payment_Status%C+TC%Shipping_Status%C *TC%Created_At_Min%C *TC%Created_At_Max%C *TC%Updated_At_Min%C *TC%Updated_At_Max%C 'TC %Total_Min%CCZ'TC %Total_Max%CCZ(TC%Customer_Ids%C"TC%Page%CCZ&TC %Per_Page%CCZ"TC%Fields%CTC%Q%C"TC%App_Id%C+TC%Payment_Methods%C,TC%Payment_Provider%C BUXAPITHISSEARCH_VENDEDOR SEARCH_ORDEN SEARCH_LIMITE SEARCH_OFFSET SEARCH_STATUSSEARCH_CHANNELSSEARCH_PAYMENT_STATUSSEARCH_SHIPPING_STATUSSEARCH_CREATED_AT_MINSEARCH_CREATED_AT_MAXSEARCH_UPDATED_AT_MINSEARCH_UPDATED_AT_MAXSEARCH_TOTAL_MINSEARCH_TOTAL_MAXSEARCH_CUSTOMER_IDS SEARCH_PAGESEARCH_PER_PAGE SEARCH_FIELDSSEARCH_Q SEARCH_APP_IDSEARCH_PAYMENT_METHODSSEARCH_PAYMENT_PROVIDER2Q NUBE_ORDENESsys_nube_logica.prg-Q NUBE_ORDENsys_nube_objetos.prgTCCU XORDENID OCONTROLADORSYS_NUBE_LOGICAPRGOORDENSYS_NUBE_OBJETOS OBTENER_ORDENTHISAGREGAR_OBJETOb3Q PLA_ORDENSys_Plataformas_objetos.prg[CUOOGSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCIONDESCUENTOS_GLOBALES AGREGAR_ITEM'QCHILKAT_9_5_0.JsonObjectTCCCidg8TCcodeTCtypeTCCvaluegTCvalid T CCCusedg8#T CCCmax_usesg8(T Cincludes_shipping %T C start_date#TCend_dateJTCCC min_priceCC min_priceg6TC.TCfirst_consumer_purchase !TC is_deleted ULOJSONXPATHTHISIDSTRINGOFCODETYPEVALUEVALIDBOOLOFUSEDMAX_USESINCLUDES_SHIPPING START_DATECONVERTIR_DATETIMEEND_DATE MIN_PRICE CATEGORIESEMITFIRST_CONSUMER_PURCHASE IS_DELETEDw>QPLA_DESCUENTO_GLOBALSys_Plataformas_objetos.prgTTTU ODGSYS_PLATAFORMAS_OBJETOSPRGGES_PORCENTAJETHISVALUE GES_IMPORTEGES_TIPOTYPEe9QPLA_PROMOCIONESSys_Plataformas_objetos.prg^CUOGISSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCION AGREGAR_ITEM)TC BUTHISKEY OBTENER_KEYSCOPE_VALUE_IDo'QCHILKAT_9_5_0.JsonObject)TCCCscope_value_idg8+TCdiscount_script_type.TCCtotal_discount_amountg2TCtotal_discount_amount_short1TCtotal_discount_amount_long9T CCCtotal_discount_amount_to_centsg8'T Cscope_value_nameU LOJSONXPATHTHISSCOPE_VALUE_IDSTRINGOFDISCOUNT_SCRIPT_TYPETOTAL_DISCOUNT_AMOUNTTOTAL_DISCOUNT_AMOUNT_SHORTTOTAL_DISCOUNT_AMOUNT_LONGTOTAL_DISCOUNT_AMOUNT_TO_CENTSSCOPE_VALUE_NAMEUe9QPLA_PROMOCIONESSys_Plataformas_objetos.prg^CUOGISSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCION AGREGAR_ITEM'QCHILKAT_9_5_0.JsonObjectTCCCidg8VTCCCdiscount_script_typeCdiscount_script_type6BTCCC scope_typeC scope_type6NTCCCscope_value_idCCCscope_value_idg86NTCCCscope_value_nameCscope_value_name6#T CCCquantityg8'T CCoriginal_priceg$T CC final_priceg(T CCdiscount_amountg.T CCtotal_discount_amountg%TC begin_date#TCend_dateULOJSONXPATHTHISIDSTRINGOFDISCOUNT_SCRIPT_TYPE SCOPE_TYPESCOPE_VALUE_IDSCOPE_VALUE_NAMEQUANTITYORIGINAL_PRICE FINAL_PRICEDISCOUNT_AMOUNTTOTAL_DISCOUNT_AMOUNT BEGIN_DATECONVERTIR_DATETIMEEND_DATE7Q PLA_DESCUENTOSys_Plataformas_objetos.prgTTT T  U ODESCSYS_PLATAFORMAS_OBJETOSPRGGES_IDTHISIDGES_PRECIO_ORIGINALORIGINAL_PRICEGES_PRECIO_CALCULADO FINAL_PRICE GES_CANTIDADQUANTITY5Q PLA_ORDENESSys_Plataformas_objetos.prg8QPLA_DESCUENTOSSys_Plataformas_objetos.prg3Q PLA_ITEMSSys_Plataformas_Objetos.prg2QPLA_ITEMSys_Plataformas_Objetos.prgT%  T  T ;TC  d6TUOOGSYS_PLATAFORMAS_OBJETOSPRGOGDOITEMSOITEMITEMS COLECCIONTHISIDGES_ID GES_PRECIO FINAL_PRICEGES_PRECIO_ORIGINALORIGINAL_PRICE GES_DESCUENTO DESCUENTO.'QCHILKAT_9_5_0.JsonObjectTCCCidg8#TCCCstore_idg8#TCCCorder_idg8%TC created_at.T CCtotal_discount_amountg"CCcontents  ,CCpromotions_applied  ULOJSONXPATHTHISIDSTRINGOFSTORE_IDORDER_ID CREATED_ATCONVERTIR_DATETIMETOTAL_DISCOUNT_AMOUNT DESCUENTOSLEER_JSON_VALORESARRAYOFPROMOCIONES_APLICADAS5Q PLA_ORDENESSys_Plataformas_objetos.prg8QPLA_DESCUENTOSSys_Plataformas_objetos.prg3Q PLA_ITEMSSys_Plataformas_Objetos.prgTTT   C  C UOOGSYS_PLATAFORMAS_OBJETOSPRGOGDOITEMS DESCUENTOSITEMS GES_TOTALTHISTOTAL_DISCOUNT_AMOUNTODESC COLECCION AGREGAR_ITEMAPLICAR_DESCUENTOd%CQ;TC GES_ObjetoSys_plataformas_objetos.prg BUTYPEOTHIS GES_OBJETOH~ CxIDbN\+BK_CC999999999999999999999_ CxIDbC~ BUXID:+TCCCC9Q_ BUTHISID_TEXTOIDPAD_KEY)TC BUTHISKEY OBTENER_KEYIDU%C B+TCChilkat_9_5_0.CkDateTimeN BUTYPEOTHIS LODATETIMETC %C LT% C |C%C%C T.C U XIDXLEER OCONTROLADOROJSONXPATHTHISIDTYPEOLEERSELEER_JSON_VALORES2QNUBE_CONTROLADORsys_nube_logica.prg%C ~7C#No se pasa controlador a la clase: U OCONTROLADORSYS_NUBE_LOGICAPRGTYPEO MENSAJE_STHISCLASEH CThis.IDbNi4TC%ID%CC99999999999999999_ CThis.IDbCTC%ID%C BUXAPITHISIDt!%CGTC dT BUOJSONXVALORXRETDATEOFTHIS LODATETIME GETASDATETIME^'QCHILKAT_9_5_0.JsonObjectTC !TCCCidg8ULOJSONXPATHTHISIDSTRINGOF U OCONTROLADOR.+'CUTHISCOUNTREMOVEi#QCHILKAT_9_5_0.JsonObjectTCCCidg8&TCoriginal_domainULOJSONTHISIDSTRINGOFORIGINAL_DOMAIN#QCHILKAT_9_5_0.JsonObjectTCCCidg8TCnickname(TCregistration_date!TC country_id$TC address.state#TC address.city T C user_typeT ClogoT Cpoints T Csite_id TC permalink)TCstatus.site_statusULOJSONTHISIDSTRINGOFNICKNAMEREGISTRATION_DATE COUNTRY_ID ADDRESSSTATE ADDRESSCITY USER_TYPELOGOPOINTSINTOFSITE_ID PERMALINKSTATUS_SITE_STATUS'QCHILKAT_9_5_0.JsonObjectTC TC area_code TC extensionTCnumberTCverifiedU LOJSONXPATHTHIS AREA_CODESTRINGOF EXTENSIONNUMBERVERIFIEDBOOLOF"T BUTHISIDPAR_TYPEa'QCHILKAT_9_5_0.JsonObjectTCtypeTCvalueULOJSONXPATHTHISPAR_TYPESTRINGOF PAR_VALUEW%C D-TCsys_nube_objetos.prg BUTYPEOTHISOCLASECLASE_COLECCION UXID OCONTROLADOR TC TTC (o T%C TC  BU XID OCONTROLADORXKEYOEXOOBJTHISOCLASE OBTENER_KEY COLECCIONITEMTYPEOOBTENER_ITEM_ALTERNATIVO1QCHILKAT_9_5_0.JsonObjectQSTRING &QCHILKAT_9_5_0.JsonArrayTCC &%CR. C> TCC>\%C TC  T%C  ( *TC sys_nube_objetos.prgCC  CCULOJSONXPATHTHIS COLECCIONCLEAROARRNITOOBJ CLASE_PATHARRAYOFSIZECLASE_COLECCIONLEER_JSON_VALORESOBJECTAT OBTENER_DATOSAGREGAR_OBJETOvT%HC fC BUOOBJXKEYKEYTHISUSAR_KEY COLECCIONADDr%kTThis. ]&xPar = oObj.par_value gUOOBJXPARTHISCLASE_LEER_PARPAR_TYPE$TC BUTHIS CITY_NAME+TC- BUTHISDOC_NUMBER_GES_SIN_GUIONESDOC_NUMBER_GESUFTCPCaCCCZa6 BUTHISDOC_NUMBER_GES DOC_TYPE_GES OLOCALIZACIONCUIT_FORMATEADO DOC_NUMBERB Tlistados BUXPROVXLETTHIS STATE_NAME PROVINC_INVLISTADOS6'TCCC C BUTHIS DOMICILIO_GES STREET_NAME STREET_NUMBERB3TCC C C BUTHIS NOMBRE_GES BUSINESS_NAME FIRST_NAME LAST_NAMEPATCDNI`CCUITP66 BUTHIS DOC_TYPE_GESDOC_TYPEH!  Monotributo; B/ IVA Responsable Inscriptos B  IVA Exento B2 Consumidor Final C B 2 BUTHISTAXPAYER_TYPE_IDI " ve_funcionesT BU XTIPO_AFIPXIVACATIVACAT_DESDE_AFIP VE_FUNCIONESTHISTAXPAYER_TYPE_ID_AFIPTAXPAYER_TYPE_ID_GESh6QNUBE_CONTROLADORsys_nube_logica.prg%  aBCU OCONTROLADORSYS_NUBE_LOGICAPRGXRELEERTHISLEIDOOBTENER_DATOS_FACTURACION'QCHILKAT_9_5_0.JsonObject TC billing_info%CTCdoc_type!TC doc_numbercTCnube_Facturacion_Adicionalsys_nube_objetos.prgCadditional_info U LOJSONXPATHOBJECTOFTYPEOTHISDOC_TYPESTRINGOF DOC_NUMBERADDITIONAL_INFOARRAYOFm%4&kC=T4&kC ZT BUTHISID ID_SIMPLEr%C5TC*T (CCZ)  BUXTEXTOTYPEOTHISBUYERGES_INFONICKNAME ID_SIMPLEl  WTCCT(eU OCONTROLADOROORDENOEXTHISORDERS COLECCIONLEERSECONTEXTl  WTCCT(eU OCONTROLADOROORDENOEXTHISORDERS COLECCIONLEERSEBUYER@%-T BUTHIS NUBE_TIPO NUBE_TIPOS NUBE_PACK"T BUTHISSHIPPINGSHIPMENT'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created'TC last_updatedTCstatusET Cnube_Ordenes_Packsys_nube_objetos.prgKT C nube_Clientesys_nube_objetos.prgCbuyer LT C nube_Enviosys_nube_objetos.prgCshipment U LOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIME LAST_UPDATEDSTATUSORDERSBUYEROBJECTOFSHIPMENT@%-T BUTHIS NUBE_TIPO NUBE_TIPOS NUBE_ORDEN U OCONTROLADOR U OCONTROLADOR_%C /T LT BUXIDTHISPACK_IDID_O_PIDr%C5TC*T (CCZ)  BUXTEXTOTYPEOTHISBUYERGES_INFONICKNAME ID_SIMPLE]%C<!TC%PACKID%%ID%TC BUXAPITHISPACK_IDm%4&kC=T4&kC ZT BUTHISID ID_SIMPLE'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created'TC last_updated*TCexpiration_date&T C date_closed"T C buying_mode"T CCCpack_idg8T CstatusMT C nube_Vendedorsys_nube_objetos.prgCsellerKTC nube_Clientesys_nube_objetos.prgCbuyerLTC nube_Enviosys_nube_objetos.prgCshippingUTCnube_Orden_Itemssys_nube_objetos.prgC order_itemsNTC nube_Contextosys_nube_objetos.prgCcontextCTCnube_Facturacionsys_nube_objetos.prgULOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIME LAST_UPDATEDEXPIRATION_DATE DATE_CLOSED BUYING_MODEPACK_IDSTATUSSELLEROBJECTOFBUYERSHIPPING ORDER_ITEMSARRAYOFCONTEXT BILLING_INFOF2QNUBE_CONTROLADORsys_nube_logica.prgBCU OCONTROLADORSYS_NUBE_LOGICAPRG OBTENER_ORDENTHISSPBCdrop_off xd_drop_off cross_docking self_serviceforwardUTHIS LOGISTIC_TYPE %C,TTCHP drop_off~TEnvios xd_drop_off TPlaces cross_dockingTColeta self_service TFlex forwardBTForward fulfillmentqTFull 2 T BUXLOGISTIC_TYPEXLOGISTIC_TYPE_GESTHIS LOGISTIC_TYPEH shippedETEnviado#  ready_to_ship!TListo para enviar  deliveredT Entregado 2T BUTHISSTATUS STATUS_GESH#  ready_to_shipDT shippedqT   deliveredT 2T BUTHISSTATUS STATUS_ID_GES:'QCHILKAT_9_5_0.JsonObjectTCCCidg8'TC date_created-TCdate_first_printed#TCCCorder_idg8T Cstatus T C substatusT Cmode$T C logistic_typeU LOJSONXPATHTHISIDSTRINGOF DATE_CREATEDCONVERTIR_DATETIMEDATE_FIRST_PRINTEDORDER_IDSTATUS SUBSTATUSMODE LOGISTIC_TYPEF2QNUBE_CONTROLADORsys_nube_logica.prgBCU OCONTROLADORSYS_NUBE_LOGICAPRG OBTENER_ENVIOTHIS_3Q PLA_ITEMSSys_Plataformas_objetos.prgXCUOGISSYS_PLATAFORMAS_OBJETOSPRGOITEMTHIS COLECCION AGREGAR_ITEM'QCHILKAT_9_5_0.JsonObjectTCidTCtitleTCwarranty TC condition!TC seller_sku%nullTU LOJSONXPATHTHISIDSTRINGOFTITLEWARRANTY CONDITION SELLER_SKU'TC BUTHISSITE_GESSITEc'QCHILKAT_9_5_0.JsonObjectTCchannelTCsiteULOJSONXPATHTHISCHANNELSTRINGOFSITEGES_Objeto_Access0ID_Simple_AccessGES_Info_AccessGES_Nombre_AccesswGES_Cancelada_AccessLeer_JSON_ValoresNombre_GES_Accesss ID_O_P_Access Pasar_Objetoshipping_status_GES_Access Leer_JSON_Valores billing_city_AccessDoc_Number_GES_AccessQProvincia_GES_AccessDomicilio_GES_AccessNombre_GES_AccessDoc_Type_GES_Access]taxpayer_type_id_AFIP_Accesstaxpayer_type_id_GES_Access Pasar_ObjetoLeer_JSON_Valoress Pasar_ObjetobLeer_JSON_Valores Pasar_ObjetoW!Reemplazar_Parametros#Reemplazar_Parametros_Busqueda# Agregar_Orden( Pasar_Objeto)Leer_JSON_Valores* Pasar_Objeto- Pasar_Objeto. Key_AccessF/ Leer_JSON_Valores/ Pasar_Objeto1 Pasar_Objeto1 Leer_JSON_Valores2 Pasar_Objeto6 Aplicar_Descuento37 Leer_JSON_Valoresy9 Pasar_Objeto\; GES_Objeto_Access= Obtener_Key=ID_Texto_Access,> Key_Access>loDateTime_access>INITN?Leerse@Reemplazar_ParametrosRAConvertir_DatetimeBLeer_JSON_ValoresBObtener_Datos_ControladoraCCLEARCLeer_JSON_ValoresCLeer_JSON_ValoresjDLeer_JSON_ValoresF ID_AccessGLeer_JSON_ValoresH oClase_AccessHObtener_Item_Alternativo;I Obtener_ItemdILeer_JSON_ValoresJAgregar_ObjetoL obtener_datosMCity_Name_Access6N!Doc_Number_GES_Sin_Guiones_AccesssNDoc_Number_GES_AccessNProvincia_GES_AccessODomicilio_GES_AccessPNombre_GES_AccesstPDoc_Type_GES_AccessPtaxpayer_type_id_AFIP_AccesslQtaxpayer_type_id_GES_Access~RLeerse8SLeer_JSON_ValoresSID_Simple_AccesstUGES_Info_AccessUAsegurar_ContextVAsegurar_CompradorlWnube_Tipo_Access#Xshipping_accessXLeer_JSON_ValoresXnube_Tipo_AccessZAsegurar_Comprador\[Asegurar_Context|[ ID_O_P_Access[GES_Info_Access#\Reemplazar_Parametros\ID_Simple_AccessR]Leer_JSON_Valores]LeerseaEtiqueta_PermitidaZbLogistic_Type_GesbStatus_GES_AccessdStatus_ID_GES_AccesseLeer_JSON_ValoresfLeerseuh Pasar_ObjetohLeer_JSON_ValoresiSite_Ges_Accessj Leer_JSON_Valores2k + T T T TTT T T T T  T  T  T  T  TT T T T TT no_definido .Q .Q .Q .Q T T T T  T! T" T#- T$         U% ID_SIMPLEID_O_P BILLING_NAME BILLING_PHONE COMPLETED_AT CREATED_ATSTORE_IDSUBTOTALDISCOUNTDISCOUNT_COUPON TOTAL_USD TOTAL_PAIDCURRENCYPAYMENT_STATUS NEXT_ACTIONPAID_ATSHIPPING_STATUSSHIPPING_OPTION_CODESTATUSNUMBERCANALPRODUCTSNUBE_ORDEN_ITEMSCUSTOMER NUBE_CLIENTEPROMOTIONAL_DISCOUNTNUBE_DESCUENTOS_PROMOCIONALESCOUPON NUBE_CUPONESSHIPPING_STATUS_GES NOMBRE_GES GES_PEDIDO GES_MENSAJE GES_RESPUESTAGES_INFO GES_CANCELADA GES_NOMBRET Direccion T T T TT T- T T T  T  T  T T  T UCLASEIDADDRESSCITYCOUNTRY CREATED_ATDEFAULTFLOORLOCALITYNOMBRENUMBERPHONEPROVINCE UPDATED_ATZIPCODETCliente T T T T T T T T T  T  T  T  T  T T T T T T T T T T T-TTT T-T T T T  T! T" T#` T$ T% T& .'Q( .)Q*        U+CLASEIDNOMBREEMAILIDENTIFICATIONPHONENOTA BILLING_NAME BILLING_PHONEBILLING_ADDRESSBILLING_NUMBER BILLING_FLOORBILLING_LOCALITYBILLING_ZIPCODE BILLING_CITYBILLING_PROVINCEBILLING_COUNTRY BUSINESS_NAME TRADE_NAMESTATE_REGISTRATION DOCUMENT_TYPE TOTAL_SPENTTOTAL_SPENT_CURRENCY LAST_ORDER_IDACTIVEFIRST_INTERACTION CREATED_AT UPDATED_ATACCEPTS_MARKETINGACCEPTS_MARKETING_UPDATED_ATEXTRA DOMICILIO_GES PROVINCIA_GES NOMBRE_GESDOC_NUMBER_GES DOC_TYPE_GESTAXPAYER_TYPE_IDTAXPAYER_TYPE_ID_GESTAXPAYER_TYPE_ID_AFIPDEFAULT_ADDRESSNUBE_DIRECCION ADDRESSES COLLECTION)Tnube_Orden_Item UCLASE_COLECCIONAT Orden_Item TTT T TTT T T  T -T T  T  T T TT  UCLASEIDDEPTHHEIGHTNOMBRENAME_WITHOUT_VARIANTSPRICECOMPARE_AT_PRICE PRODUCT_IDQUANTITY FREE_SHIPPINGWEIGHTWIDTH VARIANT_IDVARIANT_VALUES PROPERTIESSKUCOSTuT nube_Orden T TT date_desc T2 TTany TTanyT any T  T  T  T  T T T T T2 T T T T T   UCLASE_COLECCION CLASE_PATHSEARCH_VENDEDOR SEARCH_ORDEN SEARCH_LIMITE SEARCH_OFFSET SEARCH_STATUSSEARCH_CHANNELSSEARCH_PAYMENT_STATUSSEARCH_SHIPPING_STATUSSEARCH_CREATED_AT_MINSEARCH_CREATED_AT_MAXSEARCH_UPDATED_AT_MINSEARCH_UPDATED_AT_MAXSEARCH_TOTAL_MINSEARCH_TOTAL_MAXSEARCH_CUSTOMER_IDS SEARCH_PAGESEARCH_PER_PAGE SEARCH_FIELDSSEARCH_Q SEARCH_APP_IDSEARCH_PAYMENT_METHODSSEARCH_PAYMENT_PROVIDER$T Nube_cupon UCLASE_COLECCIONTCupon T T TT T- T T T- T C T CT  T  T - T-  UCLASEIDCODETYPEVALUEVALIDUSEDMAX_USESINCLUDES_SHIPPING START_DATEEND_DATE MIN_PRICE CATEGORIESFIRST_CONSUMER_PURCHASE IS_DELETED<$TNube_Promocion_Aplicada T- UCLASE_COLECCIONUSAR_KEY"TPromociones_Aplicadas T TT T T T T ! "UCLASESCOPE_VALUE_IDDISCOUNT_SCRIPT_TYPETOTAL_DISCOUNT_AMOUNTTOTAL_DISCOUNT_AMOUNT_SHORTTOTAL_DISCOUNT_AMOUNT_LONGTOTAL_DISCOUNT_AMOUNT_TO_CENTSSCOPE_VALUE_NAME(TNube_Promocion #UCLASE_COLECCION"TDescuento_Promocional T T T T T TTTT T  T C T C $ % &U CLASEIDDISCOUNT_SCRIPT_TYPE SCOPE_TYPESCOPE_VALUE_IDSCOPE_VALUE_NAMEQUANTITYORIGINAL_PRICE FINAL_PRICEDISCOUNT_AMOUNTTOTAL_DISCOUNT_AMOUNT BEGIN_DATEEND_DATE!TPromotional_Discount T T T TCT .Q .Q ' (U CLASEIDSTORE_IDORDER_ID CREATED_ATTOTAL_DISCOUNT_AMOUNT DESCUENTOSNUBE_PROMOCIONESPROMOCIONES_APLICADASNUBE_PROMOCIONES_APLICADASU T T T- T- T T T .QT T - ) * + , - . / 0 1 2 3U IDCLASE LODATETIMELEIDOKEYPAD_KEYID_TEXTO NUBE_TIPOS NUBE_TIPO GES_OBJETO 4U' T T 5UIDORIGINAL_DOMAIN T T T T T T T T T T  T  T  6U IDNICKNAMEREGISTRATION_DATE COUNTRY_ID ADDRESSSTATE ADDRESSCITY USER_TYPELOGOPOINTSSITE_ID PERMALINKSTATUS_SITE_STATUSTVendedorUCLASE? T T T T- 7U AREA_CODE EXTENSIONNUMBERVERIFIED> T T T 8 9UPAR_TYPE PAR_VALUEID .Q T T T- T- Ta : ; < = > ?U COLECCIONCLASE_COLECCION CLASE_PATHCLASE_LEER_PAROCLASEUSAR_KEY-T nube_OrdenTordersUCLASE_COLECCION CLASE_PATHTnube_Coleccion_Par Ta T T T T T T T T  T  T  T  T  T T T T T T T T T @ A B C D E F G HUCLASE_COLECCIONCLASE_LEER_PARSITE_IDDOC_TYPE DOC_NUMBER LAST_NAME FIRST_NAME BUSINESS_NAMETAXPAYER_TYPE_ID STREET_NAME STREET_NUMBERZIP_CODE CITY_NAME STATE_NAME COUNTRY_ID NOMBRE_GES DOMICILIO_GES DOC_TYPE_GESDOC_NUMBER_GESDOC_NUMBER_GES_SIN_GUIONESTAXPAYER_TYPE_ID_GESTAXPAYER_TYPE_ID_AFIP PROVINCIA_GES< T T T- I JUDOC_TYPE DOC_NUMBERADDITIONAL_INFO T TU NUBE_ORDEN NUBE_PACK T T- T- T T- T-TT T- T  T - K L M N O P QU ID_SIMPLEORDERSSHIPMENTSTATUS STATUS_DETAILBUYER DATE_CREATED LAST_UPDATEDSHIPPINGGES_INFOCONTEXTITOrden T TTTTT T T- T - T - T  T - T - T- T T T- T- T T- T- T T- T- T- T- T- T- T- T- T- T - T!- T"- T# T$ T% T& R S T U V W X Y ZU'CLASE ID_SIMPLEID_O_P DATE_CREATED LAST_UPDATEDEXPIRATION_DATE DATE_CLOSEDPACK_ID PICKUP_ID FULFILLEDHIDDEN_FOR_SELLER BUYING_MODE SHIPPING_COSTAPPLICATION_ID MEDIATIONS TOTAL_AMOUNT PAID_AMOUNTCOUPON ORDER_ITEMS CURRENCY_IDPAYMENTSSHIPPINGSTATUS STATUS_DETAILTAGS INTERNAL_TAGSFEEDBACKCONTEXTSELLERBUYERTAXES CANCEL_DETAILMANUFACTURING_ENDING_DATE ORDER_REQUEST BILLING_INFO GES_PEDIDO GES_MENSAJE GES_RESPUESTAGES_INFOTEnviosUCLASETEnvio TTT T T T T T T  [ \ ] ^ _ `U CLASEORDER_ID DATE_CREATEDDATE_FIRST_PRINTEDSTATUSMODE SUBSTATUS LOGISTIC_TYPE STATUS_GES STATUS_ID_GES#T nube_Item aUCLASE_COLECCIONh T T T T T T T bUIDTITLE CATEGORY_ID VARIATION_IDWARRANTY CONDITION SELLER_SKU> T T T c dUCHANNELSITESITE_GES nube_Orden nube_ObjetovNube_Direccion nube_Objeto7z Nube_Cliente nube_Objeto{Nube_Orden_Itemsnube_ColeccionNube_Orden_Item nube_Objeto nube_Ordenesnube_Coleccion Nube_cuponesnube_Coleccion& Nube_Cupon nube_ObjetocNube_Promociones_Aplicadasnube_ColeccionNube_Promocion_Aplicada nube_ObjetoKNube_Promocionesnube_ColeccionNube_Promocion nube_ObjetoNube_Descuentos_Promocionales nube_Objeto nube_Base2nube_base:sys_nube_logica.prg، nube_Objeto nube_Base2 Coleccion COLLECTION1 nube_Store nube_ObjetoF nube_Usuario nube_Objeto nube_Vendedor nube_Objetoď nube_Telefono nube_Objetonube_Coleccion_Par nube_ObjetoZnube_Coleccion nube_Objetonube_Ordenes_Packnube_Coleccionnube_Facturacion_Adicionalnube_Coleccionnube_Facturacion nube_ObjetoՔ nube_TiposCUSTOM@ nube_Pack nube_Objeto| nube_Orden_ml nube_ObjetoЖ nube_Envios nube_Objeto nube_Envio nube_Objeto# nubeX_Itemsnube_Coleccions nubeX_Item nube_Objeto nube_Contexto nube_Objetof1aA312q2a22qQq!1Q!"a1""2a2q12121121131111fBA2A@1qQQ1Q2a22Q2q222!2q111111111111B1311111111A2qQ1AaQAqa1qaAA!QQq"1QAA81AA1qQAQAA2!qQQ111111q2qaAA!Aqq!a!!2!a71AAA@1q1Q1A3119AA>3q!q39AA 1qa!1qAQ13q51113Q1!A11AA=q11Q!3Q11qA1aA2qA222qA2q1!AAA!!AQA2!QqA3qAA2q1A3q12q4qA91a11A1?q2812q;qA22AQA2aqaA!QA!AA2qq!AA2qq!AA`1Q22a22q2122!B2!8aA2qA1B@11A3qaA2qr1A2qr1A2qaA212qqqR1qaA2q3q4qQ11A2qaA2qAA21A3qqqa!!R12! 12A111AA2q11A21A3qq1A2!81AA;qA82q2P2110=b111B111117rQQQQQQQ01ra6r6"QQ6B6"Q36"QQQQ?Q<2355?Q196`<q117>111<!1111412!114a6;5S < < C d G I Lu P 0T+Yp.t2 yG;Te hK !kK!!p"" s"#vG##y#)$|\$$#%) )2A324v59 :C<$?k??F @FGGLHI7M(]MM'-NyO42P6QF5bQSK>S:TV?TU_E:W0[vSV[\Y\$_g`bpbLd|eoffLFxfT_i ѭ%x(J\23<4rv4M<~<GXGVHHNONO/ODT;TUZU/_fw_Vddd&e)n'\nn,)9op6-Nps?;st]=FtucCu#wsI\wD~W~~Z|/)$?Bs“Fp  <fN/pi% b* ȋX,p?QMELI_AUTORIZACIONsys_meli_logica.prg # QCHILKAT_9_5_0.JsonObject# QCHILKAT_9_5_0.FileAccess  %C 7TCMeli_AutorizacionSys_meli_logica.prgT  'sys_mail_chilkat-&%C C 0  <(T CChilkat_9_5_0.JsonObjectNTC  Ta%/T"Error al leer el archivo del token T-< B!TC refresh_token $TCChilkat_9_5_0.OAuth2NT >T.https://auth.mercadolibre.com.ar/authorization8T(https://api.mercadolibre.com/oauth/tokenTk5Cuenta de MercadoLibre conectada. T62430865892149350T NyFb8hRMjyFkFK32HfHkSumTxO1vkpcs)Tread write offline_access%$TC refresh_token TC%< <BCa  TC!%"T#T$%< B&internet T %+ 0u  (  mCd)T  d%(  C*T#+T$Sin respuesta del navegador< B%(KT#.T$Fall al completar la conexin< B%(T#%T$Autorizacin Denegada< B%(T#2T$Error no esperado: (C(Z)< B(T CChilkat_9_5_0.JsonObjectNC, +T -#C expirationCC .T#%T$Autorizacin obtenidaT/T0, T1CCuser_id g(T CChilkat_9_5_0.FileAccessN%C C 3utf-8 2<< < U4OTOKENSYS_MELI_LOGICAPRGXMSGXOK XNOREFRESHLOOAUTH2 LNSUCCESSLCURL LNNUMMSWAITEDLOJSONLOFAC LOJSONTOKENXARCHIVO_TOKENTYPEOOGLOBAL XREFRESHMODE XREFRESHTOKENCOMPROBAR_LICENCIASYS_MAIL_CHILKAT ACCESS_TOKENLOADFILESTRINGOF LISTENPORTAUTHORIZATIONENDPOINT TOKENENDPOINTREDIRECTALLOWHTMLCLIENTID CLIENTSECRETSCOPE REFRESHTOKENREFRESHACCESSTOKENSYS_MELI_AUTORIZACION_CHILKAT STARTAUTHLASTMETHODSUCCESS RESULTADOMENSAJE LASTERRORTEXT SHELLEXECINTERNET AUTHFLOWSTATESLEEPMSCANCELLOADACCESSTOKENRESPONSE EMITCOMPACT APPENDSTRING ACCESSTOKENRESPONSEUSER_IDWRITEENTIRETEXTFILEEMITqqqq11qqTqA1qhqAqAAEB AAqqqAr1qArQAwqAwqArQqAr!qBA11Q11Qqqq1%"Yp'     F%C m.oFormRefbOC @form  ACThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  .% C L   T  "% C C  T  s  Fs "\1,0,1) THISFORM.combo1.VALUE =IIF(xformulalistado(1,4)="N",0,1) THISFORM.combo1.DISPLAYVALUE =IIF(xformulalistado(1,4)="N" and ALEN(xformulalistado,1)>1,"Seleccione una frmula",xformulalistado(1,1)) THISFORM.combo1.ENABLED=ALEN(xformulalistado,1)>1 *!* IF THIS.VALUE=0 *!* RETURN .T. *!* ELSE *!* SELE ccformul *!* SET ORDER TO formula *!* SEEK THIS.VALUE *!* IF FOUND() *!* IF codigo+bul+atr=xcodigo+xbul+xatr *!* IF ACTIVA='S' *!* RETURN .T. *!* ELSE *!* WAIT WINDOW NOWAIT "La frmula no est activa !!!" *!* ENDIF *!* ELSE *!* WAIT WINDOW NOWAIT "La frmula no corresponde al artculo !!!" *!* RETURN .F. *!* ENDIF *!* ELSE *!* WAIT WINDOW NOWAIT "La frmula no existe !!!" *!* RETURN .F. *!* ENDIF *!* ENDIF ENDPROC PROCEDURE Init DODEFAULT() *IF (p_emp#"IND".and.p_emp#"SEL") .OR. xmedida=xmedidaaux .OR. (p_emp="IND".AND.!LEFT(xcodigo,1)$"S") .OR. (p_emp="SEL".AND.!LEFT(xcodigo,1)$"G") IF (p_emp#"IND") .OR. xmedida=xmedidaaux .OR. (p_emp="IND".AND.!LEFT(xcodigo,1)$"S") thisform.text3.ControlSource = 'xcantidad' thisform.umedida.Caption = xmedida ELSE thisform.text3.ControlSource = 'xcantidada' thisform.umedida.Caption = xmedidaaux ENDIF thisform.text3.InteractiveChange thisform.getformula ENDPROC PROCEDURE wizard_buttons1.click_siguiente SELECT tmp_arts_prod SUM cantidad TO zzz IF xcantidad=zzz RETURN .t. ELSE mensaje("La cantidad distribuida debe ser igual a "+alltrim(STR(xcantidad)) +" !!!") RETURN .f. endif ENDPROC  "%3$U!%  9T.T. % .T!xcodigo+xbul+xatr=codigo+bul+atr XTKxcodigo==codigo and (xbul==bul or empty(bul)) and (xatr==atr or empty(atr))H =.T AND ACTIVA='S' and est_act<2 oT AND est_act<2 7%T Sin FormulasTTTNSELECT PADR(ALLTRIM(STR(formula,10,0)),10)+DESCR ,formula,DESCR,ACTIVA FROM ccformul GROUP BY ccformul.formula ORDER BY ACTIVA DESC, ccformul.formula WHERE &xFiltro INTO ARRAY xformulalistado T C>T CCNC 6-T CCN6[T CCNC Seleccione una frmula C6T CUXFILTROXCODIGOOBIEDATA_CODIGO_VACIOP_FORM_HERENCIAP_TIPO_FORMULASXFORMULALISTADOTHISFORMCOMBO1NUMBEROFELEMENTS LISTINDEXVALUE DISPLAYVALUEENABLED CC%IND INDC=S  {T xcantidadT T xcantidadaT   U P_EMPXMEDIDA XMEDIDAAUXXCODIGOTHISFORMTEXT3 CONTROLSOURCEUMEDIDACAPTIONINTERACTIVECHANGE GETFORMULAF K(%.Ba FC)La cantidad distribuida debe ser igual a CCZ !!!B-U TMP_ARTS_PRODCANTIDADZZZ XCANTIDADMENSAJE getformula0Initwizard_buttons1.click_siguiente1rAB111B2Qi 1411A2q2qaqA1^yc I* U X)*getformula labellabelLabel1Form1AutoSize = .F. FontBold = .T. FontCondense = .F. BackStyle = 0 Caption = "Frmula:" Height = 17 Left = 21 Top = 10 Width = 51 TabIndex = 9 Name = "Label1" labellabelLabel2Form1AutoSize = .T. FontBold = .T. FontCondense = .F. BackStyle = 0 Caption = "Cantidad a producir:" Height = 17 Left = 21 Top = 45 Width = 116 TabIndex = 8 Name = "Label2" textboxtextboxText3Form1ControlSource = "xcantidad" Enabled = .F. Height = 26 InputMask = "999,999.99" Left = 142 TabIndex = 2 Top = 40 Width = 115 Name = "Text3" `PROCEDURE InteractiveChange *IF (p_emp#"IND".and.p_emp#"SEL") .OR. xmedida=xmedidaaux .OR. (p_emp="IND".AND.!LEFT(xcodigo,1)$"S") .OR. (p_emp="SEL".AND.!LEFT(xcodigo,1)$"G") IF (p_emp#"IND") .OR. xmedida=xmedidaaux .OR. (p_emp="IND".AND.!LEFT(xcodigo,1)$"S") thisform.Label3.Caption = '' ELSE xcantidada = this.value xcantidad= xcantidada /IIF(IIF(ccformul.pe=0,1,1/ccformul.pe)=0,1,IIF(ccformul.pe=0,1,1/ccformul.pe)) thisform.Label3.Caption ='Cantidad: ' + ALLTRIM(STR(xcantidada,15,2)) + " " + ALLTRIM(xmedidaaux) + ' = ' + ALLTRIM(STR(xcantidad,15,2)) + " " + xmedida ENDIF ENDPROC _"FF:% U&C%IND INDC=S  VT T [T CC   6C   66 TT Cantidad: CCZ C = CC Z U P_EMPXMEDIDA XMEDIDAAUXXCODIGOTHISFORMLABEL3CAPTION XCANTIDADATHISVALUE XCANTIDADCCFORMULPEInteractiveChange0131AA2U)FlabellabelLabel3Form1AutoSize = .F. FontBold = .T. FontCondense = .F. BackStyle = 0 Caption = "Cantidad final a producir" Height = 17 Left = 398 Top = 45 Width = 264 TabIndex = 13 Name = "Label3" labellabelumedidaForm1AutoSize = .T. FontBold = .T. FontCondense = .F. BackStyle = 0 Caption = "Unidad de medida" Height = 17 Left = 262 Top = 45 Width = 103 TabIndex = 14 Name = "umedida" comboboxcomboboxCombo1Form1*BoundColumn = 2 ColumnCount = 1 ColumnWidths = "331" RowSourceType = 5 RowSource = "xformulalistado" ControlSource = "xformula" Enabled = .T. Height = 26 ColumnLines = .F. Left = 82 Style = 2 TabIndex = 1 Top = 5 Width = 364 DisabledForeColor = 0,0,0 BoundTo = .T. Name = "Combo1" oPROCEDURE Valid IF this.Value = 0 THEN =mensaje("Debe elegir una frmula") RETURN .f. ENDIF ENDPROC ")%UH%A$CDebe elegir una frmulaB-UTHISVALUEMENSAJEValid01aAqA1d)gridgridGrid1Form1ColumnCount = 5 DeleteMark = .F. Height = 384 Left = 21 Panel = 1 RecordSource = "tmp_arts_prod" Top = 84 Width = 732 Name = "Grid1" Column1.ControlSource = "tmp_arts_prod.atr" Column1.Width = 46 Column1.Name = "Column1" Column2.ControlSource = "tmp_arts_prod.datr" Column2.Width = 190 Column2.Name = "Column2" Column3.ControlSource = "tmp_arts_prod.bul" Column3.Width = 46 Column3.Name = "Column3" Column4.ControlSource = "tmp_arts_prod.dbul" Column4.Width = 190 Column4.Name = "Column4" Column5.ControlSource = "tmp_arts_prod.cantidad" Column5.Width = 109 Column5.Format = "z" Column5.InputMask = "999,999,999" Column5.Name = "Column5" {PROCEDURE Init this.SetAll("Alignment", 2, "header") ENDPROC PROCEDURE ActivateCell LPARAMETERS nRow, nCol ENDPROC 0"5%U(%C AlignmentheaderUTHISSETALL UNROWNCOLInit0 ActivateCelln1Q225Xp)headerheaderHeader1Form1.Grid1.Column1#Caption = "Atr" Name = "Header1" textboxtextboxText1Form1.Grid1.Column1YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column2+Caption = "Descripcin" Name = "Header1" textboxtextboxText1Form1.Grid1.Column2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column3#Caption = "Bul" Name = "Header1" textboxtextboxText1Form1.Grid1.Column3YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column4+Caption = "Descripcin" Name = "Header1" textboxtextboxText1Form1.Grid1.Column4YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column5(Caption = "Cantidad" Name = "Header1" textboxtextboxText1Form1.Grid1.Column5YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 % 6 X<<Csub_2T.t.% 6T%.and.betw(bienes.linea, xdlin, xhlin)%  6T%.and.betw(bienes.grupo, xdgru, xhgru)%   @6T%.and.betw(bienes.marca, xdmar, xhmar)%   <T+.and.betw(zona, fletes.zona), xdzon, xhzon)"%CX CX % {%4HT7.and.betw(val(clientes.vendedor),val(xdage),val(xhage)) w9T(.and.betw(clientes.vendedor,xdage,xhage)CConsultando 2 ...%T A_agrupar TBorrar1%T tmp.pedido @ Ttmp.pedido, tmp.itmselect tmp.* , iif(p_age_tipo,tmp.vendedor,clientes.vendedor) as agente , agente.nombre as nomage , tmp.cantidad*iif(empty(tmp.bul+tmp.atr), nvl(bienes.factor,0000000000000.000000), nvl(stock.factor,0000000000000.000000)) as cantaux , nvl(bienes.linea,0000000000000) as linea , nvl(bienes.grupo,0000000000000) as grupo , nvl(bienes.marca,0000000000000) as marca , nvl(bienes.atributos,"N") as atributos , nvl(bienes.bultos,"N") as bultos , zonas.descr as dzona from tmp left outer join bienes on tmp.codigo=bienes.cod_ins left outer join stock on tmp.codigo+tmp.bul+tmp.atr+space(8)=stock.codigo+stock.bul+stock.atr+stock.deposito left outer join fletes on tmp.cod_fle=fletes.cod_fle left outer join zonas on tmp.zona=zonas.codigo , clientes , agente agente order by &xorden where tmp.cliente=clientes.cod_cli and tmp.vendedor=agente.cod_age and &filtro into cursor (xcursor) readwrite CConsultando 3 ...C C C Procesando... ~ T T, ve_aprobacion F> !%"5$U%XCURSORSYS_MFILTROXORDENXRESCODXRESXDLINXHLINXDGRUXHGRUXDMARXHMARXDZONXHZONXDAGEXHAGE P_AGE_TIPOP_AGENUM ESTADO_INCXDTIPINFECENTXDFECXHFECFECHAXDFEMIXHFEMIESTADO_PEDIDO_CORTO VE_APROBACIONAP_STOCK AP_CREDITO AP_GERENCIAESTADO ESTADO_TXT XDCON_SALDOFORCANTIDADq!1aAaAaAA"AAA4aAA3rA1?sBA1%[' {XS%Cbul_lis ,Qbul_lis%Cbul_dlis ^Qbul_dlis T- T0$c:\sistema\2000\abm_bultos_lista.scx(%H%C q_bul_dlisQClistas%Cbul_gen &Qbul_gen*obul_dlis q_bul_dlis ~6%CGENERICO  bul_genid< F^( F -  %C4 _ />  C]%C q_bul_dlisDQBUBUL_LISBUL_DLISXRES XBUL_LISTAC Q_BUL_DLISSYS_MBUL_GENCODIGOBULARR_BULVBULTOSCOD_INSCLAVEPOARTICULOBULTOIDIDU1AAArA21AarrrQABAABB1% dI K|Xο# %STSRI$Td:\sistema\systems\a CT\data\1 TTCSQT BORRAR1 T a T a\ges.dbc T  T  T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN qG(9 {%Ccuentas Qcuentas%Cpro2 Qpro2%Cproveedo Qproveedo%\TC1119 TC$TC$ TC X TC$ TC$ T-&te_exportar_transferencias(% BTC]TC]-te_sql_movimientos#%Ctmp_transferenciasYQ  Q!\tmp\ F otmp_transferenciasQ"XpromailQ3 "839C3: \0 XproveedoQ' "8'9Xpro2Q5 "859"#Q#"$Q%CC"&C'(CdX dQ&CC")'* -Q)C"+CCP Q+C0QQ,C0QQ-NQ.C"/=Q/Q0Q1FACQ2C34C56CC1No no se hab obtenido registros para exportar !!!>BCcuentasabrevG+(listadosG~(ClasesT@C ExportacionesN(TACExportaciones_ParametrosN-TABExportacin de TransferenciasTAC!\tmp\<TADTransferencias CCCE. /  CAFCtrfcbuCBUAFCimporteMONTOAF(C trftitular TITULARDESCAF$Ctrfcuit TITULARCUIAF+C trftipoctaTIPOCTADESTINOAF&Ctrfcta CUENTADESTINOAF&CpbfCUENTADESTINOPBFAF*C trfpropiaESCUENTAPROPIAAF(C trfpersona TIPOPERSONAAF"CtrfconcCONCEPTOAF'Cconcepto DESCCONCEPTOAF#Cobs OBSERVACIONESAFCemailEMAILAFTAGTAHCA@I#%Ctmp_transferenciasQ %C< Q<BUJ P_DESARROLLO XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORM ACTIVEFORM DATASESSIONIDCUENTASPRO2PROVEEDOXCUENTAXDESDEXHASTAXRESTE_EXPORTAR_TRANSFERENCIASXTABLAXTABLA1XTABLA2EXPORTAR_TRANSFERENCIASTE_SQL_MOVIMIENTOSTMP_TRANSFERENCIASP_LOCALTTRFCBUHABERIMPORTE TRFTITULARP1NOMBRETRFCUIT INSCRIPCIO TRFTIPOCTATRFCTAPBF TRFPROPIA TRFPERSONACONCEPTOOBSTRFCONCPEMAILP2 EMAILPAGOSPROMAILCODIGOCOD_PROMAILTIPOPROCLIXALIAS XREGISTROSMENSAJELISTADOSXEXPXPAR EX_TITULOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDADESCREX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIREX_XLS_CELDA_INICIO EXPORTAR_XLSqBQB2ArqAA1AbAAAaaaAaAAr2Arr2AA#!Aaa!q1 2AAB10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6YE0NUSYK1492670712/F] WINDOWS _6YE0NUSYL1492677715 '] WINDOWS _6YE0NUSYM1492672533s WINDOWS _6YE0NUSYK1492672533*?Td WINDOWS _6YE0NX5W61492677715rC% COMMENT RESERVED -.|VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1.BorderStyle = 2 Height = 180 Width = 383 DoCreate = .T. Caption = "Honeywell" xdfec = ({}) xhfec = (date()) Name = "Formulario_acep_canc1" Command1.Top = 149 Command1.Left = 120 Command1.TabIndex = 4 Command1.Name = "Command1" Command2.Top = 149 Command2.Left = 204 Command2.TabIndex = 5 Command2.Name = "Command2" AYUDA.TabIndex = 6 AYUDA.Name = "AYUDA" Text1.TabIndex = 7 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.TabIndex = 8 advertencia.Name = "advertencia" xdfec xhfec lis_fec clases.vcx containerLis_fec1Formulario_acep_canc1PTop = 36 Left = 44 Width = 294 Height = 40 BackStyle = 0 TabIndex = 1 desde = thisform.xdfec hasta = thisform.xhfec Name = "Lis_fec1" cmd_filtro.Name = "cmd_filtro" LABEL1.Caption = "Fecha" LABEL1.Left = 6 LABEL1.Top = 10 LABEL1.Name = "LABEL1" Text1.Name = "Text1" Text2.Left = 202 Text2.Top = 6 Text2.Name = "Text2"  commandbutton commandbuttonCommand3Formulario_acep_canc1rTop = 100 Left = 101 Height = 27 Width = 84 FontBold = .T. Caption = "INV" TabIndex = 2 Name = "Command3"  PROCEDURE Click DO exportar_honeywell_inv ; IN in_sql_movimientos ; WITH thisform.xhfec IF USED("RPT_in_movimientos") USE IN RPT_in_movimientos ENDIF SELECT 0 USE (p_local+"\tmp\RPT_in_movimientos") *********************************************************************************************************** local xarea xarea=select() xtmparch=sys(2015) =sys_m("INV") SELECT IIF(!EMPTY(codalt), codalt, codigo) as cod, thisform.xhfec as fec, final as stk FROM rpt_in_movimientos WHERE inlist(linea, 4, 56) AND final>0; into TABLE (p_local+"\tmp\"+xtmparch) xregistros=recc() use if xregistros=0 mensaje("No hay registros para exportar !!!") select (xarea) return endif * Creacion de los objetos a realizar la exportacion SET PROCEDURE TO listados ADDI SET CLASSLIB TO "Clases" ADDI xExp=CREATEOBJECT("Exportaciones") xPar=CREATEOBJECT("Exportaciones_Parametros") * Opciones Generales xPar.ex_Titulo = "" && Sin ttulo porque arranca en la fila 1 xpar.ex_xls_celda_inicio = 1 && Fila 1 * Opciones de Archivos xPar.ex_Archivo_entrada = xtmparch xPar.ex_Archivo_salida = "Bruno Schillig_INV_PMC_"+DTOS(thisform.xhfec) * Anteriormente THISFORM.INICIALIZAR_COLUMNAS() xPar.ex_xls_campos_agregar () && Reset xpar.ex_xls_campos_agregar ('cod','Distributor SKU Number/ Honeywell SKU Number') xpar.ex_xls_campos_agregar ('fec','Inventory Date / Snapshot Date') xpar.ex_xls_campos_agregar ('stk','Quantity On Hand') * **************************************************************************************** **************************************************************************************** * Nuevo Parametro para controlar la apertura * 0 - Consulta si abre en el EXCEL * 1 - Abre directamente * 2 - No abre ni consulta, solo lo genera xPar.ex_xls_abrir=1 * **************************************************************************************** *** EJECUCION DE LA EXPORTACION ******************************************************** xExp.Exportar_xls(xPar) SET DATASESSION TO _SCREEN.ACTIVEFORM.DATASESSIONID select (xarea) ********************************************************************************************************************************************************************************************************************** IF USED("RPT_in_movimientos") USE IN RPT_in_movimientos endif return ENDPROC "% i(Us$in_sql_movimientos#%CRPT_in_movimientosOQF%Q\tmp\RPT_in_movimientos TCWTC]CINVyorpt_in_movimientosCC   6Q Q  QC8  1\tmp\ TCNQ%/C"No hay registros para exportar !!! FBG+(listadosG~(ClasesTC ExportacionesN(TCExportaciones_ParametrosNTTT0TBruno Schillig_INV_PMC_C CBCcod,Distributor SKU Number/ Honeywell SKU Number4CfecInventory Date / Snapshot Date&CstkQuantity On HandTCG(9 F#%CRPT_in_movimientoshQBUEXPORTAR_HONEYWELL_INVIN_SQL_MOVIMIENTOSTHISFORMXHFECRPT_IN_MOVIMIENTOSP_LOCALXAREAXTMPARCHSYS_MCODALTCODIGOCODFECFINALSTKLINEA XREGISTROSMENSAJELISTADOSXEXPXPAR EX_TITULOEX_XLS_CELDA_INICIOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDClick01C3AQtB2AA$!"Aa 6AD1 ) commandbutton commandbuttonCommand4Formulario_acep_canc1rTop = 100 Left = 197 Height = 27 Width = 84 FontBold = .T. Caption = "POS" TabIndex = 3 Name = "Command4"  PROCEDURE Click xcon_remitos=.f. DO exportar; IN ve_sql_comprobantes_emitidos_v2 ; WITH "comprobantes_emitidos", thisform.xdfec, thisform.xhfec, , , , .t. IF USED("comprobantes_emitidos") USE IN comprobantes_emitidos ENDIF SELECT 0 USE (p_local+"\tmp\comprobantes_emitidos") *********************************************************************************************************** local xarea xarea=select() xtmparch=sys(2015) =sys_m("POS") SELECT IIF(!EMPTY(codalt1), codalt1, cod_ins) as cod, com_fec as fec, INT(VAL(STRTRAN(STUFF(com_num,1,1,"000"),"-",""))) as num, recepcion, "Oil & Gas" as endcust, cli_nom, UPPER(EVL(dest_ciu,dest_prv)) as dest_ciu , dest_prv, dest_zip, dest_pai, IIF(cat=2, "Reseller", "End User") as customer; FROM comprobantes_emitidos WHERE inlist(linea, 4, 56); into TABLE (p_local+"\tmp\"+xtmparch) xregistros=recc() use if xregistros=0 mensaje("No hay registros para exportar !!!") select (xarea) return endif * Creacion de los objetos a realizar la exportacion SET PROCEDURE TO listados ADDI SET CLASSLIB TO "Clases" ADDI xExp=CREATEOBJECT("Exportaciones") xPar=CREATEOBJECT("Exportaciones_Parametros") * Opciones Generales xPar.ex_Titulo = "" && Sin ttulo porque arranca en la fila 1 xpar.ex_xls_celda_inicio = 1 && Fila 1 * Opciones de Archivos xPar.ex_Archivo_entrada = xtmparch xPar.ex_Archivo_salida = "Bruno Schillig_POS_PMC_"+DTOS(thisform.xhfec) * Anteriormente THISFORM.INICIALIZAR_COLUMNAS() xPar.ex_xls_campos_agregar () && Reset xpar.ex_xls_campos_agregar ('cod','Distributor SKU Number/Honeywell SKU Number') xpar.ex_xls_campos_agregar ('num','Transaction Number') xpar.ex_xls_campos_agregar ('fec','Transaction Date') xpar.ex_xls_campos_agregar ('recepcion','Quantity') xpar.ex_xls_campos_agregar ('endcust','End Customer Industry/Vertical') xpar.ex_xls_campos_agregar ('cli_nom','End Customer Ship-to Name') xpar.ex_xls_campos_agregar ('dest_ciu','End Customer Ship-to City') xpar.ex_xls_campos_agregar ('dest_prv','End Customer Ship-to State') xpar.ex_xls_campos_agregar ('dest_zip','End Customer Ship-to Postal Code') xpar.ex_xls_campos_agregar ('dest_pai','End Customer Ship-to Country') xpar.ex_xls_campos_agregar ('customer','Customer Type') * **************************************************************************************** **************************************************************************************** * Nuevo Parametro para controlar la apertura * 0 - Consulta si abre en el EXCEL * 1 - Abre directamente * 2 - No abre ni consulta, solo lo genera xPar.ex_xls_abrir=1 * **************************************************************************************** *** EJECUCION DE LA EXPORTACION ******************************************************** xExp.Exportar_xls(xPar) SET DATASESSION TO _SCREEN.ACTIVEFORM.DATASESSIONID select (xarea) ********************************************************************************************************************************************************************************************************************** IF USED("comprobantes_emitidos") USE IN comprobantes_emitidos endif return ENDPROC "?%J1U T-cve_sql_comprobantes_emitidos_v2comprobantes_emitidosa&%Ccomprobantes_emitidosQF(Q\tmp\comprobantes_emitidos TCWT C]CPOS ocomprobantes_emitidosCC   6Q QCCCC000[-g8Q Oil & GasQCC fQCReseller End User6QC81\tmp\  TCNQ%[/C"No hay registros para exportar !!! FBG+(listadosG~(ClasesTC ExportacionesN(T CExportaciones_ParametrosNT !T "T # 0T $Bruno Schillig_POS_PMC_C C %ACcod+Distributor SKU Number/Honeywell SKU Number %(CnumTransaction Number %&CfecTransaction Date %$C recepcionQuantity %8CendcustEnd Customer Industry/Vertical %3Ccli_nomEnd Customer Ship-to Name %4Cdest_ciuEnd Customer Ship-to City %5Cdest_prvEnd Customer Ship-to State %;Cdest_zip End Customer Ship-to Postal Code %7Cdest_paiEnd Customer Ship-to Country %(Ccustomer Customer Type %T &C 'G(9() F&%Ccomprobantes_emitidosQBU* XCON_REMITOSEXPORTARVE_SQL_COMPROBANTES_EMITIDOS_V2THISFORMXDFECXHFECCOMPROBANTES_EMITIDOSP_LOCALXAREAXTMPARCHSYS_MCODALT1COD_INSCODCOM_FECFECCOM_NUMNUM RECEPCIONENDCUSTCLI_NOMDEST_CIUDEST_PRVDEST_ZIPDEST_PAICATCUSTOMERLINEA XREGISTROSMENSAJELISTADOSXEXPXPAR EX_TITULOEX_XLS_CELDA_INICIOEX_ARCHIVO_ENTRADAEX_ARCHIVO_SALIDAEX_XLS_CAMPOS_AGREGAR EX_XLS_ABRIR EXPORTAR_XLS ACTIVEFORM DATASESSIONIDClick014cAtB2AA$!aA1AQq fAD1 )Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 %#\Y0t%Ccostos *QcostosTCX T-*es_stk_control_de_presupuestos(% C BT tmp_comprasTTC3 $ Ta8cm_sql_pagos_con_imputaciones'%C \tmp\.dbf0 z5C(No se pudo obtener la tabla de datos !!! B-Q \tmp\/T "inlist(cuentas.abrev, [4020109 ])%C tmp_compras_qQ o tmp_comprasQCC  6QCC  6QA18  tmp_compras_q \C '(\C \costos_stkԻjCFSe ha generado la planilla Excel llamada costos_stk.xls en la carpeta \C !!! %C tmp_compras_qiQ BUCOSTOSXCENTROXRESES_STK_CONTROL_DE_PRESUPUESTOSXTABLAXDFECXHFEC XCONSOLIDADOEXPORTARCM_SQL_PAGOS_CON_IMPUTACIONESP_LOCALMENSAJE XMANO_DE_OBRA TMP_COMPRAS_QCEN_SB SUBCENTROCTA_CODCOM_TOTMOMAT TMP_COMPRASCEN_COD P_DIR_EXPORT!AAA1arQqAA) QArAB1%,7JYv#%:B TC TC TC %.T  system_SRI$T F:\sistema\systems\  a C T\data\1 TTCSQTBORRAR1 T- Ta\ges.dbc T T T G~(c:\sistema\2000\ges.vcx7 TCbarra_principalaN T TC te_notificacion_vencimiento_task TCC$ $ (I te_notificacion_vencimiento_task BUXAUTXFECHAXDEV XULTIMOSXDIAS XCOMPROBANTEXCAUSA XNOENVIARPDF XSOLONAGES"P_TE_NOTIFICACION_VENCIMIENTO_TASKNIT XEMP_INICIAL XX_SYSTEM DEY_FUNC2SETSP_SERVERP_SYSTEMP_COMMONCL_ATRCL_NOMP_DEV P_SUSPENDP_DOSP_EMPP_CODEMPCGESFORMP_MAIL_BLOQUEOP_MAIL_COLA_EXTERNOPROCESAR TE_NOTIFICACION_VENCIMIENTO_TASK5 TTCC$ %%  C T- T, te_notificacion_vencimiento_task( T% B"C BU XAUTXFECHA XSOLONAGES XCOMPROBANTEXCAUSA XNOENVIARPDFAAAXRESXAUTTMP TE_NOTIFICACION_VENCIMIENTO_TASKCALCULAR_VALORESTC TC >C.Inicio a calcular vencimientos de comprobantes%Cccclie Qccclie%Cclientes Qclientes%Cclimail Qclimail%C g0T # comprob+causa=xComprobante+xcausa Ta cT V venc=DATE()-p_te_notificacion_vencimiento_Task_dias AND causa$"V" AND EMPTY(CANCEL) T-rselect cod_cli, comprob, causa, cuota, venc from ccclie where &xfiltro order by cod_cli into cursor tmpqtask ~QF G((codcli E  T+C+   %C\1.TCC ;6CC @H%C M/TFC C =000C  RT T T T <OoccclieQCCZCZTC 6T  !%I/" GC7Temin de calcular calcular vencimientos de comprobanteU#XAUTXFECHA XSOLONAGES XCOMPROBANTEXCAUSA XNOENVIARPDF XINDIVIDUALLOG_AUTCCCLIECLIENTESCLIMAILXFILTROCODCLITMPQTASKCOD_CLIXMAILSMAILTIPOEMAILCOMPROBXCOD_CLIXCOMPROBCAUSAXCUOTACUOTAARRSUMIMPORTECREFCAUCUOXIMPORTE XVENCIMIENTOVENC PROCESAR_MAILu+ T C5 T    TG+(sys_html'C6(j%7T&\notificacion_proximo_vencimiento.html%C0TC d C No existe C"CNo existe el HTML !!!B T listados 0T C notificacion_proximo_vencimientoNT C 7T C comprobanteCC61T C causaCC6JT C importeCCC999,999,999,999.99_67T C vencimientoCC*6 T %/listados %C 0 + T HDf ,=C*\tmp\notificacion_proximo_vencimiento.html(TRecordatorio de Pago -  TJvrecibo   TC 7(Se ha enviado la notificacin de deuda ()=1No se ha podido enviar la notificacin de deuda ()6% TC !C   !G"#$te_notificacion_vencimiento_task.prg fT $C %&'(BU)XAUTXMAILSXCOMPROBANTETXTXCOMPROBXCAUSAXIMPORTE XVENCIMIENTO XSOLONAGES XNOENVIARPDF XINDIVIDUALXFECHAAAAXFILEXOK XRESULTADO XRESPUESTA XFILE_HTMLSYS_HTMLNITP_CARPETA_HTMLAAA2LOG_AUTMENSAJECONVERTIR_UTF8_A_FOXLISTADOSREEMPLAZOS_GENERALESREEMPLAZAR_VARIABLE&P_TE_NOTIFICACION_VENCIMIENTO_TASK_ADJ PDF_UBICARP_LOCALXTITULOSEND_EMAIL_NOTIFICARVRECIBO MENSAJE_AUSER_LOG PUB_INDEX RESULTADOOAGESSOLODATOSCLIENTESONOTIFICACIONESENVIAR_NOTIFICACIONprocesarNcalcular_valores procesar_mail J T T TT TU COMPROBANTECAUSAIMPORTE VENCIMIENTOTIPO notificacion_proximo_vencimientonotificaciones_base:sys_htmlo12AAr111qBQB2Arq7"BBAB3w#QAAB"A3q11!AAA1Aa1A$rBAA"r2BABr4rq!s2q"BAqArq1!AA1bqAr2qBAB<11'4P7lisPNG  IHDRx pHYsodtEXtSoftwarewww.inkscape.org< IDATxyeTe lL눂\ťT͠8tk2-=Q[&Jji7VWͰ8smHe$zD:[Ip_ֻJ^ݜvlY>Ǥ_k^j]!ݻcn v}^zE)jʽOѥnұC[ԩ74osz.( #Ӆc "*|>/׻rgJ"K˽v$]3WX]lͽRB=pW|ֆA>-i^}6uDmϽ9+>k>Z'iA]5g7<\}m˽LU Tkď0O o]G^1m[/Mһ_{[ϐy^rZ{?{m/tS_ oѷv}0BAȽtE=#3{[?Ӷ3/rBwA:EsL쵹w̙wI-gOcv]Ӛ; tos ׵#~rERh~IߕO]K 7VIs늞!_{V3ʵB|f&]d=Wor}/DLs/2&zS4\^y` `EfJ[͡gϑ{RW5K=}Ioʽ*؀}5T= ztE%I*]Iڐ{T!_{==o0R#hʔvgEI;$uKʽ *S͹-{q [x7oW^x~o]Prnl~{ђ*u?j./WH!.<&}~EvGMKWAr%\5cK^x* mavC=3vmr/;Z)a?_sф>I](#|Zfzĥ{dZ3uH6 ]]>sN2f;N-ä$'.cҡzZs싹ט ?p]}#ef fF﷽ "NJf1VzD,*j8eR=V]}mͽD>w,^J&,3NmU>eg/{~(t>/2Yr?csl=AV.]0ްޣ-]+9E_)C>Y'9c/3KI-eL,˸CSZ"z2r~e["].4qo57;䧹9fNZKϰMrIȴ[vuM[u]ѡgaWSz3Z@J&?V=ץeSsŶ1n[sB$KƿwXo0iuy.xv|>RX@מh;$;残te3,7tB#]r@5霊xȚ6\yX*g3ڰK*gNuT{MG-_5/([ҲyUtDQ5kI˪ZPwU͚fbKԩn[ kOR*908赻okmIbI~HBqϺzmEVJ >\ҷ*fY?xjg}gI:Q)}9/is9.k;RϙZƽrIc&mkRb[*@:9MU [wdXH@ ֧Sx%w\jNL=M˾ԒAZDmpwt&޳'9SbaZ&i2W$ѴNB^)gt[r$}?=P'ѴK/`Ȋ3-]CgX?K=Y IG'>uE]&鑔3tL6El[M7$b:*P0OIwEnj]>Oa)gKy>x '"mz$K8Nքt$O8vt oZ-ghmI<.;6I7)A)oV-M#6S_Ly~ }Xp)oV-(ڄY;UEx) hF3IϷhnJRߤZy=̓FRnI޴Z@@D@@D@@D@@D@@D@@D@@D@@D@@D@@D@@D@@D@@D@@D@@TG;`'Z|@ۈr'#JIz=>IsttV h3QZDm$~4Ķ$9vIIBR[H8о"I{ %aX<h;6Hu}r?C=N=Cgi;V0~zw]3 vj4ou|\' O;I ICIMc.i:6rPNՋwkď-J)ioYke*uiZV{!kRz\ tYBH֙iM)ݲ`m2RH[J=,Ё*Pѡ5̚-2Ɛ:iŒϽ Z5Kݛ{$wR Ih>66`{Sk.5rLI{>϶ؕ Ofu ?ZKKZ{`Wj.gR3s졁KS~BwJ7. \NyK-w#m>&.yl]{ ʢYHfoj5WrZƥs̰Gν3zi\l^ԊIHF{ ;;#P+n5퉟m @@D@@D@@҂ro:Zt[!ro:rνP! " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " UڰU2˽h" )" " "@s6@sҺ;;#P+&ݛ{ vFVLyBȽ325GKz L2 vFV&mJ{3ɥמh;r@̞ҧ$mʽ0C6KODv:I˽0#\XjϽD{ d:3kؒK#lVMCr/<@ >%i^]&lc BE208ŭGVu`iztQo̽Z.]Ov!V>s@ϰ\ҙ.fҡ[~/eeK'WhwV)0f !MJZ'݅{?VNwRmoğw&S.}h;=2雒?k҃kV'X LI aKWIl/Jj]3S{i;V7ϛrݬyCqcv Z}˚Wx @\'𱋺G>"I ms+Ttb4wwm{tyٙƷV;tn J?$̝㓜 h;QZ@)"NEȦ CRh#Az}BwR]T " " " " " " " " " " " " " " EL|<>R7`IzkڇI:7Phsh<]R߬Z@YjS-&x_#!)a)RR)7ia׸:S:R?jlOy~j%%}[ul hsҋo͛tgV֦͒Qz]cJ'&q﷤o}oV-@tGP--]Q]״nOz,)gZW׸%U)g:KoK<ТI.iCJ);tKZz5zIL=Y fI&bz ?( @Ztr1LOhZml5Y3-cΓԙxV/j[zK瞱h ]>ߥc+1,]@ I/)/&UܷP?QX Q 4Vp퉶äoW0j)W0PcV I?Hߜ趩sV IVjEs\T1 P?C~IobVibt.W]+*fYw}V1 P~.h^k]_Ѭ.4UTJgZh~&)*IϨbICVV1k:jdE5O<+5MjOiYQXg#9#_*w[- I2U:ɞa`3s5XLjm6J;3ItETw/*gt][mH26E^oj/WgN^)[ψ~*:;~a6`SUU\kXy峛TGdX{i>`7S-Y.I2}ΗTG3ߖ댌+\a:ge. _Xt3211ְ7Ϟrݪ*>mmZ>'\K3SzHɸCSZ"$g?"3ѤK&lb>2Yc4'lIL5o{fLtbnܻ`ɽ wYI4+JHnla ǫg̽ *sc)oa^x2=+E*^{T7F1"UzYj꒴9.+ 馞a[E]^駪Ѝd\]xK-,^'j@S2"tRRG]PNkr/Z:$w\R>ݲ^S:߱XcR7K{T4oac-i6lssJ-C%Ir-4j_j}\ȽcқrغG zc=P5 m4:`r+̽ ޛ{f` ҇܋̔ ;47.HnC9[Mt܋ 6umc6{6X}K-/!̆qGɤ/aHX~ +.HtX?{)kF܋Ж Icr雹wA:.{^{3iS:vl~{TI<|%2}Y(w@L&={$&k#;5vӡW@P^uꄱ$$i~6^"63bÎNݞ{ 4&nl;~{ _Xt3r=F5Wﰯtiq=G0~{y`g5c [⦷J%>=^; <~[nzXNxKAxCK'qȮgؿ'{i7z yer"v;wBI'OuĀݙ{~:@k$}zVޥ.]Xҏ)i@ґrivUE?XmaA+nzu]yM7tfg6{V@Sy+:\/vђt#2NKZ.s/4gO냒Iyvr;$ZnϳmjI y;tdYwXWj1kmtH6^]þߤB:Ti &3=XJ-CKlKh{&{.qIENDB`PNG  IHDRxsBIT|d pHYs2tEXtSoftwarewww.inkscape.org< IDATxk\w}gƺ_[`䖯"|A\ܼSԆl*vC\`֜,l6"" $ 6/,N 솅X·`.`I>}aC9%̿O*5ӷsԧ5gt쭒KZ#onKA*nKݣbz+fŵ?< gK㪑HBI:C~>HdzESX0߂WR8wOu_8ݔ DY?*jgI%Veoص|{QmjMI$Җ3 ) 3Fk[&m;>ԽI=f.I\oYzj W5 Ajn ?ڝ_z,u>:>,}*&KW׵s-^qF}q,ӛ$RwEXq_#o*ur{e?J:7u*2)_ۺ}(u+~%u:OA߮X{˷Ɋ;$HݥʂM?}"uMc7KzCBAuJ"'R6K6 ڏ8_ Kc@oa.q2*5L[; ZޝtGI,IMdTfJ:?uAb7 `€9ݗx.3\ g%.0pRw8QV.0V. )WKf Sw8Q!?S7Vת P1pC bP=u4\ϴzp03?4Fy, yEfq`$6u~fHv\OlH]c ߽5J1+QN>،F=!bN޼3 ScĘ,lOݣ?`2@=u,u38) b8!1pC b8!Sna:4=JjٛdQe)=-SJseRՆ'w}1g5ژzav:1g;VYqnLFC7>vɨ@Ω0XhH,I:4=#5e3}C +c2t\I;iXV";Ru>,iKdƻpSLF7賒Q]! ddf/%d}:<ӋxkzpI|1pC b8Tձ!fjG(oLTEv;(3gM~1pC b TMԢ2 ܏}1ݺEiU\D8[,]3#/g2 =J}NL@Q}Q- -mDޮ/pWGωY%4e^Czkxs4uIlj^$}}Bȋ9oFVI[r%?W%d4ۣA)n^uz .q8!1pC b8!1pC .L"uRv-u8+65&;3<z﨤=#Ӌc233d4:GС،ZKŏ=\4ϫfɲL wK]ctgRweLFCH;c2-md,"Φ[ }rnɨYI;>zU1b ="I_h x8C b8!Uf?S7JVת Y?uXz SX|'oޙɨ޲ciAHݣ̂>̧pnxoC׉*OG}e ^2}M}*fY彛.4 {$>̚٧N{䵗L.s*7$i s{ǛxeP I?Jݫu% A_]+~vo>_S}kے&ixsqˊW>4q͆JhH]h2*zv,ыhtY vMgح1|.;ƨ gdzG>o*C b8!1pC b8!S8Qgv\dKctƛb3#Y]F}VLD-M65ɘ. daLHlF|:f1rXlTWw%S|7bmYxSL){%UWA2uTlF^۷'?^2-i:uT~x҅LתJ1pC b*6@tVERygI`Yx,l I D!1pC b*sٗG̞G}cb2ɲ.θ{=NPQ9nLCYF32eEl`kS#1C6|8~Ze]tDR}^7u~bAI:;.%, N#EKzmy!b8!6@*Ԏ 1=RR`dls{Nz)CgSJcڨVE(RD*(kYvoYup>]춘j}| 6o%4TV{G7^0%j_SFhY14;8!1psnھ{N*z4/euz>k?eݹh́6n*uRd3ݩkHҢdUM1ug%J+_R5r̢k$ݚBLPpC b8ʜ dvng"qN ᆨAO/>wњ~q0*3x.1Y8M~+&L:sjoͨ m 1pC b*6@'g-^,=%&#zfv0eG)Q=ND)=<~C b8!U<g[Sc?I8+3{#{댏?iqLF=Q}nG.Bk+4QdcX(V/Q)d7<e@(.tS%E 1;U!AI}1:㣭،2N))j41TL`x*;l56_=uS]p"JRԲ'.w%&]1 x3>%&QYX޹,ыZY,u"5wLh6l-ᢢ@ȝ %jtvLF=ӄP߬ZR%pC b8!o0Z;uBb;0yRwC8!1pC m'|"=If/Y8&cȆhª;=I AQ!Ey?Ȝue1]YXQC5uI:%'0a _D)'_RiAQ9YQP'Ȋse=I12shA[$knl6Ct|^Ɖc7^*uyëͽ/N=͏8C b8!qQܾ+Q²ߞ/=%.2u2d*b'C8!1pC mf376=BP,s`fSwJ<-:݇6n*&cZQ1ڽ=P}1uI2نD'YAR߬.ɘSqm1 C8!1pC bY?d`S{6Na PX,ŝl,,8C b8!ƬSxF3uRI ;RV-u]Bi7RFm;Hfg@;NY<3#6" sOd4Z-=JEm{!1pC bPedMb%ՉUowPznh)PjEV;L'ϖT @^uF"cR"*37")EP{$&AIJ\fB-*c* iF$_R5S8!1pC90(-90=蚨fJ),e3#eT{h$ݚ$u6E C8!1pC m'ISPt$YCYo{Wdtf~4nYz[‚Khl'pvmj#)Ef \ᓩk4Z ͨ #YV'`楩;T pC b8!8wl(O^2b[2K?eٽ;'x؈lfM@g|lkl'C8!1pC bP; ,uVgz+fŵ?< :͐[ zՎ 3>>8sjD7Wv՞Ԍ 1]ɛwӨU7? {@R/ϥ& Y Z.Hr|aIw% S1/5iۺ;> zIoLݣ‚ݼ5ETjkQү1)|f'Y J "(K/>%iTf{j0>uA+SwQPBOvթ Ҩy-bMHͱaV;jG? Ovp*3LY]5Men̏N>16j?)ieLFmPe0pC b8}k/5J15}iǣkjtVLPKsS_Nճ;K`^}Q􍸔[õ1 Cǖ>s(،FK灨t{b2rM״̏bj\ kK"uP\Qpab,^WOVBTO+٣4+u{ѧyh\xaP^ I`8!z y`s Œ¡81 Q:q8!1pC <'9}QKFU(FCҊ"̼3+Q?ex2ɺ|;RlKg|lk9 IˊSsc2uљ੆G(K{^-&Ý;d 6'V~gx+{I*txF9KʘYN고$nOPt]74 I2Ucai'C8!1pC 7Z; Yfw<0 O+cs25[-<-lk7pC b8zU|ѐ|, h\ygLDcL[c2_h1e0xLF#o_-1Ab2ʷ_dԼ4uI:ss`ZQԲLp񾘌̊PdaIL,FeT$ճKS@թ&U; IFj5c R adQŤ'ck^7}jIDATYX"냟`?LKZuFb{7<hb3C8!1pC b8!1pC bP=uđYQ 3K]\ޥ"<6¨nyX y:5{ARF? d%,zWD:jUĴ,L (TG_,M]/0-SRs)owϋhm)DLu?镒.yAt/4=.)G#o_?Si:>Ľ4!b8!Ug ?Sp:  Ҩ؝ڕ 7nx$H/uAbWRwQ I ᳩ+ Yeş.HR HRf{oH4*5vJIORmv/ J IIRI>_,k6̥Hr@zzdԅA 1t%LWtwM^{tB XKIO7 βW? *lyw>zp.ᘌ%|TwNQ!f s>(ރ;ۿAv86ճq*vOVC 8!1pC b8!1pC b8!1pC2BBV6>qoQaL=Oۺ}KS(CJ+!`EoxлZҶ=O; ݯQ2^%8!1pCn`Au3IncݟX8!,ܞX8fv{fˎ}Nd2`A<5lK?)|L76p *CzylT]ңɪ,M[~Չ}kے&i8OUӕ/}UvٽKݦ"IENDB`PNG  IHDRxsBIT|d pHYs+tEXtSoftwarewww.inkscape.org< IDATx{t}oFw" Y@&pj[#B(!7lҤ[N% =mKI rMҤkld.n`wlk$Yo|:ӄ|3yFJ3M cjιx\ox۲`f\_(N' Nz$}JҴNOt1{ge1UU~9Sp"' TOHZ-y p|%%~GϙwY}`Ep %=wTE\ueyjrq+99;ozܒ^=(|]=#/3'[o]4y=饏Z ]Cmw[཯(ǒ>b@d2z}Koz px?R=S ȡ:~ob1r+u~ ^2)!5u+[؉~ȟL&m b^]!~"-˭G~<[WKm=L&:+@Ĝ4z[\ '&z{_ HIrŇЗ6>DCi(~Nۍ[d28N`X`D8F `T"z #Z&ѡC C"(L1#C "(,!A*"( d2:|ŒA0}[| g ڿIC)"'@@…7D"p # [3D``l E *D !  t DE-"@ F@Ƿ_y [bB t&!".@ !"@!#;~z P+{D0rFC(xD0r@#C(D0|BC(:DprD'F(ZDp|FF(zCۇWXo‚ Ah!A )D09D@("QG,"QF4"QEx[o FTۏD!%| (Dc P8 ]"E P8 "ňa Pl&"ń_`, @!#`:F@!#` *zĉm)r'%uUV^*TH3'I gIfK򿣻Ote9LbJ1M9uʵyضSZMqz NIZ0CZH?5%6%qʔS>K.{H^r.#]TS#""TxaWr/T^ҭHo^ܡ]h7;6H]}K0VmR#+{6#Wvz p<Kl2\-~imRa?0R[c1nimX/AIK>[DTK:!F~kM `t< d{R\|x@T9}`i<d, MYluƻZ7A4Q IjS@`=9@ BsH^<Հ"C xR9LJuvu+B.f8L@> $x` HII\Jufr`נ " " " " " " " " " " " " *p2{ۥgvJ-IIizUJ5IYҢҤ*UpG˶mҎKp2N҂ҊE;nwOȒXϞV]fؓ"z FI`tRMeGPP.Vz FKںCzts4w"MO!ݱ1h떚^kp<Kl2z1c&}Kbmf?^l;V7K}<:~kM L`OJzז z`5Ȱ4o c'ǽYNRM.eb[=Ӹ|cVYy4jˀPOj*WǓ/KdbV'IK xе:Y{oR 8!f_-RWVGG>]qs=}J@bx'77-/Ko5oYX~H%G\.η^`Vm;;44xqs dm]vaLO3&JKβ\|\i ʝ-cS/=:Y{c Ybp15Y_`HiYI݃qIwݙ[L@MN*[/A/<@!Yײ#Ku;'ew_-f0f;oX,CPQ:v(,wtRn?uO]_C9.>S2ihfP\-}rit%FbƺZIWXOUќB +O^p.:CZu4w#eVK̖u->B8ޑ&m?h'`X$㉟P>k7ă4f|^"WDMcGٝOc)=Szq;%u^JTU4RY#-%?Or.esyOmN\.ц dB+?4qIאhi6 zJ& 祇$k?c=$ d )ҏ$b=I ];^W'kj=I=5-˾Ĺ* Smyz߻Jnrx)ń6[Ѳf3%P,AɵgY),ă9qBG imY !6iYvBE U'kZR@!+`MvBC$yidp"oYR{oӦ%%K (^buSUZo ;Pl 91zHb$UNV(9X,eݦ%gZo #P;7-6Mw̦5->i=$L@x6I~zHX(ҏV7'zH(W7'X#Ra xd]MMM=Fq@Xu{Z@"IHޛ6)[ڝ:R/_%lLX)ͬΒΟmI09iSY_٧o챎+p|P6o<ˣ=w,ˣ:6m]۹:@8dbiN\'?x[w~deA /.;w&koUwe㮁ꋷ|g+˃[g랺ha%(@^"d)JOڴdH+@a/ ymvH~@Ҝą=ᔌw,/&(wnN|dYӲOOO{E߲&Yu`"?w::8G^j\ۺSC \&֪-#$HqشiI @̨ĖDw L)^p2{ۥgvJ-IIizUJ5IYҢҤ*U6ov^Niҽ?̐V,O^t}K0\^+{~P`tRM* lUKU^^? \/͝bpυMO!ݱ1h떚*!瓡Kl2z %/MJ:yuKkz HZZ,@h8>ty&Z@j6lk%oܓ^ rr4.x@2_CW5m޻6$ w~f?gxR>7R7o0ݣ]=UW¦^syL+>3 |>xyw{c]Ij9/2 gu`W X~YTYVʭ@QK;麆f0mՑaexPR^TcepY5Ȱ4o (J|&vϏ7} SIUVGG͟*TZV<,_2 N::mP\b&䦥1o]W#!rLZ:z3-yh;c,ȇkΕ Ȗƫ/.>1sym͚,/^I9a)!5:Gz i|ԘJKU z4+;oX,CPQ:vKZ٘œ+C)M'KJk0:i%P$AcG~P̽`t٧Y/h8I!?dA_ !3&J]&=t6iAE8m"i'~ȆÒ9tY)[ڝ:R/_%lLX)ͬΒΟ'9 Ľݛ/ !K=EX_~@IP<|e%//~MDT2M4,}zP̎xlm""VY:Y9omh=d4ȝR@%9笧m/^Y"8cRB~wXa_Y Ӓ3Vir%7 @%+o|zXT#S:o=yxZ/:ӻ1ko  0voiOV;򼎤w)tZOjRpEF_bn޸f*I i0}֕ΩΗ BӪKw|dIww7%yƺw oJ;麆Cr? dzH>K~[ړ:Rh+/j*EI_@3Ko"/X oIDATo~zH>6ov^Niҽ?̐V,}0loLlͿ/ =)-ҫ`WJtJU0Lο ooc=%B/j`4;H7KsX/p v)x A[U+{..xmtf)-F_ZuX/swgn=[-m%ȶ#iiuwk`[6bH_XMj^\&mxzH[~`OJz"2oHKR\|6f@u9?PC!ab 5c7Զ>f=$lR*ｌoĽ[)!ad<XCc|x^ "qಕC,_tI9ooqf (J^ĉxTYVʭ(V޲ VG(B^ސhiZ8kՑa9iTLPzH!2{ SIUVGG͟*TZPDN\Chsy[hEhHo=~H%G\.η^HyD2i=Й~gLep͹8>`'W%R \^.f&K W(xο./VIq%ȶRc9D]rK})<w߰Xb t01i[C}Li8i]R^\-5IsX/PМC|鳉zJ1 MH҂WJK\)8N҅gH_,M^`$hq|9y%*T ~2ˤޑ&mC9Ӥy$aP$wRcC"zI ] جwJ^-NIi6UU&MfH gI@sms;"!0dx䆗t. n AKI|;OR,syòM[ Y|.}|wtĽ[?$IwĂ7%_q!և$,O{ŃY|;y:B.)< a|xMKC]')'w&Ԥj\+s]P{N[F,sUZ8͉I*ڃzɛ_8p!urRI{p޻?jK~xcjmmu$eF0c̅7%6/` U!p;Z~$KHx_wI-?>EPb iڴb|řxp2d/Rco 7!G`(T(" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " I G@x9oIQsļzDILĜ{zs# JJb{7c: z 0=}Jg#s.srd%zDA$?`>)r;/w{PS^h=Yii'ӧWe$7z\{PHJJb{gN<o$6E'bqGwZ铒^2E%^(+/;n~-}ˀj*ܛ~b1EIi%S*fL\Uc~uTT'= YI/ WINDOWS _6XH0SRQ921490570260////00s1 WINDOWS _6XH0SRQ9314905705982233=3 WINDOWS _6XH0TBTF914905705984&454C4p4.5z5 WINDOWS _6XH0TBTH01490570260v66666 WINDOWS _6XH0TBTH11490570260p7777788 WINDOWS _6XH0SRQ92149057026099999 WINDOWS _6XH0SRQ931494653691::::: WINDOWS _6XH0SRQ921490570260;;;;$< WINDOWS _6XH0SRQ931490570386<<<<= WINDOWS _6XH0TBTF91490570260>>#>0>]> WINDOWS _6XH0SRQ9214946536916?C?P?^?? WINDOWS _6XH0SRQ9314946536916@E@T@a@@ WINDOWS _6XH0UMWTN1490570260bAoA|AAA WINDOWS _6XH0UMWTO1490570260\BkBzBBB WINDOWS _6XK0KGFJS1490570447CCCCCDD WINDOWS _6XK0KGFJT1490570447EEFF>F3GzG WINDOWS _6XK0KGFJU1490570447jHyHHHHII WINDOWS _6Z715KQWD1494653691JJJK4K WINDOWS _6Z715KQWE1494653691KKK L6L WINDOWS _6XH0TBTH51490382113M&M;MRMnM+NN WINDOWS _6XH0TBTH61490382286|PPPPPQR WINDOWS _6XH0TBTH71490382609bTwTTTTBUvU COMMENT RESERVED MVVVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_consulta clases.vcxformFormulario_consulta1JHeight = 653 Width = 1020 DoCreate = .T. Caption = "Visualizacin" cadena_codigo = (0) cadena_descr = ("") Name = "Formulario_consulta1" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Left = 720 advertencia.Top = 552 advertencia.Name = "advertencia" PROCEDURE Init dodefault() do leer_configuracion_grid ; in listados ; with 17, thisform.pageframe1.page1.grid1 if !used("localcfg") use (p_system+"\localcfg") in 0 endif thisform.cfg_guardar.Enabled=(type("localcfg.cpbt")="N") thisform.cfg_inicializar.Enabled=(type("localcfg.cpbt")="N") ENDPROC PROCEDURE Load *=sys_m("load") try thisform.cadena_codigo=0 thisform.cadena_descr="" if p_in_autorizacion=2 IF seek(zmotivo, "motinv", "codigo") IF motinv.ap_cad#0 if !used("oaprob") use oaprob in 0 endif if seek(str(3,2)+str(xtrf,20), "oaprob", "operacion") thisform.cadena_codigo=oaprob.id_cad if !used("eaprob") use eaprob in 0 endif if seek(oaprob.id_cad, "eaprob", "id_cad") thisform.cadena_descr=eaprob.descr else thisform.cadena_descr="Cadena no encontrada "+iif(p_dev, "en EAPROB ","")+"!!!" endif else thisform.cadena_descr="No hay cadena de aprobacin para la operacin !!!" ENDIF endif ELSE mensaje("Motivo no encontrado !!!") endif endif catch to oex mensaje(oex.message) endtry ENDPROC ?"&&]%a(}U C&listados%Clocalcfg eQ \localcfg(TC localcfg.cpbtbN(T C localcfg.cpbtbNU LEER_CONFIGURACION_GRIDLISTADOSTHISFORM PAGEFRAME1PAGE1GRID1P_SYSTEM CFG_GUARDARENABLEDCFG_INICIALIZARW 2TT%.#%Cmotinvcodigo%%Coaprob Qoaprob4%CCZCZoaprob operacionT %Ceaprob Qeaprob&%C eaprobid_cadRT HTCadena no encontrada C  en EAPROB 6!!! AT1No hay cadena de aprobacin para la operacin !!! *%CMotivo no encontrado !!! (PC UTHISFORM CADENA_CODIGO CADENA_DESCRP_IN_AUTORIZACIONZMOTIVOMOTINVAP_CADOAPROBXTRFID_CADEAPROBDESCRP_DEVMENSAJEOEXMESSAGEInit0Loadl1dA322b!AB2!Ac2BAAQAAA26 Q)&cadena_codigo cadena_descr  pageframe pageframe Pageframe1Formulario_consulta1ErasePage = .T. PageCount = 1 Anchor = 15 Top = 24 Left = 0 Width = 1020 Height = 586 TabIndex = 1 Name = "Pageframe1" Page1.Caption = "Datos Principales" Page1.Name = "Page1" labellabelLabel1%Formulario_consulta1.Pageframe1.Page1AutoSize = .T. FontBold = .T. Anchor = 3 BackStyle = 0 Caption = "Comprobante" Height = 17 Left = 6 Top = 7 Width = 79 TabIndex = 6 Name = "Label1" textboxtextboxText1%Formulario_consulta1.Pageframe1.Page1Anchor = 3 ControlSource = "xtrf" Enabled = .F. Format = "z" Height = 23 InputMask = "999,999,999,999" Left = 113 ReadOnly = .T. TabIndex = 9 Top = 4 Width = 138 DisabledBackColor = 255,255,255 DisabledForeColor = 0,0,0 Name = "Text1" gridgridGrid1%Formulario_consulta1.Pageframe1.Page1 2ColumnCount = 13 Anchor = 15 DeleteMark = .F. Height = 396 Left = 1 Panel = 1 ReadOnly = .F. RecordSource = "borrar1" RecordSourceType = 1 ScrollBars = 3 TabIndex = 5 Top = 152 Width = 1012 Name = "Grid1" Column1.ColumnOrder = 2 Column1.ControlSource = "borrar1.cod_ins" Column1.Width = 104 Column1.ReadOnly = .T. Column1.Visible = .T. Column1.Name = "Column1" Column2.ColumnOrder = 3 Column2.ControlSource = "borrar1.atr" Column2.Width = 30 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ColumnOrder = 4 Column3.ControlSource = "borrar1.bul" Column3.Width = 31 Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ColumnOrder = 5 Column4.ControlSource = "borrar1.descr" Column4.CurrentControl = "Text1" Column4.Width = 331 Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.ColumnOrder = 6 Column5.ControlSource = "borrar1.entra" Column5.Width = 101 Column5.ReadOnly = .T. Column5.Format = "z" Column5.InputMask = "999,999,999.9999" Column5.Name = "Column5" Column6.ColumnOrder = 7 Column6.ControlSource = "borrar1.sale" Column6.Width = 101 Column6.ReadOnly = .T. Column6.Format = "z" Column6.InputMask = "999,999,999.9999" Column6.Name = "Column6" Column7.ColumnOrder = 8 Column7.ControlSource = "borrar1.despacho" Column7.Width = 105 Column7.ReadOnly = .F. Column7.Format = "!" Column7.Name = "Column7" Column8.ColumnOrder = 11 Column8.ControlSource = "borrar1.orden" Column8.Width = 94 Column8.ReadOnly = .F. Column8.Format = "z" Column8.InputMask = "9,999,999,999" Column8.Name = "Column8" Column9.ColumnOrder = 12 Column9.ControlSource = "borrar1.refitm" Column9.Width = 48 Column9.ReadOnly = .T. Column9.Format = "z" Column9.InputMask = "99999" Column9.Name = "Column9" Column10.ColumnOrder = 1 Column10.ControlSource = "borrar1.item" Column10.Width = 39 Column10.ReadOnly = .F. Column10.Format = "z" Column10.InputMask = "99999" Column10.Name = "Column10" Column11.ColumnOrder = 13 Column11.ControlSource = "borrar1.comentario" Column11.Width = 344 Column11.ReadOnly = .F. Column11.Name = "Column11" Column12.ColumnOrder = 9 Column12.ControlSource = "borrar1.dep_ing" Column12.ReadOnly = .T. Column12.Name = "Column12" Column13.ColumnOrder = 10 Column13.ControlSource = "borrar1.dep_egr" Column13.ReadOnly = .T. Column13.Name = "Column13" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column15Alignment = 2 Caption = "Cdigo" Name = "Header1" /PROCEDURE Click *=thisform.orden(1) ENDPROC "h%;NJUUClick012$)textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column1BorderStyle = 0 ControlSource = "detalle.cod_ins" Margin = 0 ReadOnly = .T. Visible = .T. ForeColor = 0,0,0 BackColor = 192,192,192 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column22Alignment = 2 Caption = "Atr" Name = "Header1" textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column32Alignment = 2 Caption = "Bul" Name = "Header1" textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column4:Alignment = 2 Caption = "Descripcin" Name = "Header1" textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column4iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column57Alignment = 2 Caption = "Ingresos" Name = "Header1" textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column5iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column66Alignment = 2 Caption = "Egresos" Name = "Header1" textboxtextboxText13Formulario_consulta1.Pageframe1.Page1.Grid1.Column6iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader13Formulario_consulta1.Pageframe1.Page1.Grid1.Column7cCG~`4XԩӛPi)!Q? 80l*DC0PRQk 9Bb$&8P/R>A4Hpְ!rpŃtP $6izC uc _a\W @p yskArC ? 0!V gla %L~J`aTh6 !A0p`wubbQɐT t\ Db d$d -pTq_ &Q%Y$i xV(Q m4(&*P]sq)@P-)DQ>Z@ `E]%*AFh,da4;HQG iy B(F?76qA2`ށG! ?HQ]a wr @ʁ7{(DmEh#eX1*CFy!H5 u d<_{ ́C)=8,vPCg  D^[)U@!;DakP0#DCfSk|HV`CEdQup0% w A;0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6MF0YCKA41489731202/F] WINDOWS _6MF0YCKA61491305194.5 WINDOWS _6MF0YCKA41491297219  , ; O l WINDOWS _6MF0YCKA61491297219   = WINDOWS _6MF0YCKA41491297219 WINDOWS _6MF0YCKA61491297219_l~ WINDOWS _6MF0YCKA41491297219 -A^ WINDOWS _6MF0YCKA61491297219/ WINDOWS _6X7119CRI1491297219q WINDOWS _6X7119CRJ1491297219Q^p} WINDOWS RESERVED 14912972193P WINDOWS 1491297219 * WINDOWS _6X80WJSDF1491297219u WINDOWS _6X80WJSDG1491297219Ubt WINDOWS _6MF0YCKA41491297219#7T WINDOWS _6MF0YCKA61491297219+ WINDOWS _6X7119CRI1491297219s WINDOWS _6X7119CRJ1491297219Wdv WINDOWS RESERVED 1491297219)=Z WINDOWS 1491297219/ WINDOWS _6X80WJSDH1491297219u WINDOWS _6X80WJSDI1491297219Yfx WINDOWS _6MF0YCKA41491305194 !2OQ WINDOWS _6XT0QSM6H1491298403 WINDOWS _6XT0QSM6I1491297219z WINDOWS _6XT0QSM6J1491298403$6EZw WINDOWS _6XT0QSM6K1491297219  + : W COMMENT RESERVED !%VERSION = 3.00dataenvironmentdataenvironmentDataenvironment`Top = 220 Left = 1 Width = 1904 Height = 860 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 3 Height = 382 Width = 509 DoCreate = .T. Caption = "Datos Adicionales" color_fondo = (RGB(255,166,182)) oactivo = .F. oobjeto = Name = "Formulario_acep_canc1" Command1.Top = 353 Command1.Left = 195 Command1.Anchor = 260 Command1.TabIndex = 2 Command1.ColorSource = 4 Command1.Name = "Command1" Command2.Top = 353 Command2.Left = 262 Command2.Anchor = 260 Command2.TabIndex = 3 Command2.Name = "Command2" AYUDA.TabIndex = 4 AYUDA.Name = "AYUDA" Text1.Left = 814 Text1.TabIndex = 5 Text1.Top = 1 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Left = 792 Ayuda_wiki1.Top = 0 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Left = 120 advertencia.Top = 328 advertencia.Name = "advertencia" OPROCEDURE load_controles Thisform.oActivo=Newobject("in_activo_neuralboost", "in_activos.prg") thisform.oObjeto=Thisform.oActivo.Objeto ENDPROC PROCEDURE Init lparameters oActivo as sch_activo of in_activos.prg DODEFAULT() LOCAL oObj Thisform.oActivo = oActivo oObj=thisform.oObjeto = oDeyFunc.Objetos.Clonar(oActivo.Objeto,@oObj) Thisform.oObjeto=oObj thisform.Caption = thisform.Caption + " - "+oActivo.comprobante ENDPROC PROCEDURE procesar_aceptar oObj=thisform.oActivo.Objeto = oDeyFunc.Objetos.Clonar(Thisform.oObjeto,@oObj) thisform.oActivo.Objeto=oObj ENDPROC ;"""N%WUR9TCin_activo_neuralboostin_activos.prgTUTHISFORMOACTIVOOOBJETOOBJETO'Q SCH_ACTIVOin_activos.prg CTTC T!T   -  U OACTIVO IN_ACTIVOSPRGOOBJTHISFORMOOBJETOODEYFUNCOBJETOSCLONAROBJETOCAPTION COMPROBANTECTCTUOOBJTHISFORMOACTIVOOBJETOODEYFUNCOBJETOSCLONAROOBJETOload_controles0Initprocesar_aceptar1a2qq2112 D)"0color_fondo oactivo oobjeto *cargar_grilla  campo_texto clases.vcxtextbox Campo_texto1Formulario_acep_canc1rControlSource = "Thisform.oObjeto.Nombre" Height = 23 Left = 127 Top = 85 Width = 345 Name = "Campo_texto1" texto clases.vcxlabelTexto1Formulario_acep_canc1:Caption = "Nombre" Left = 36 Top = 88 Name = "Texto1"  campo_texto clases.vcxtextbox Campo_texto2Formulario_acep_canc1sControlSource = "Thisform.oObjeto.compra" Height = 23 Left = 127 Top = 277 Width = 345 Name = "Campo_texto2" texto clases.vcxlabelTexto2Formulario_acep_canc1;Caption = "Compra" Left = 36 Top = 280 Name = "Texto2"  campo_texto clases.vcxtextbox Campo_texto3Formulario_acep_canc1rControlSource = "Thisform.oObjeto.marca" Height = 23 Left = 127 Top = 109 Width = 345 Name = "Campo_texto3" texto clases.vcxlabelTexto3Formulario_acep_canc1:Caption = "Marca" Left = 36 Top = 112 Name = "Texto3"  campo_texto clases.vcxtextbox Campo_texto4Formulario_acep_canc1sControlSource = "Thisform.oObjeto.modelo" Height = 23 Left = 127 Top = 133 Width = 345 Name = "Campo_texto4" texto clases.vcxlabelTexto4Formulario_acep_canc1;Caption = "Modelo" Left = 36 Top = 136 Name = "Texto4"  campo_texto clases.vcxtextbox Campo_texto5Formulario_acep_canc1{ControlSource = "Thisform.oObjeto.cod_fabricante" Height = 23 Left = 127 Top = 157 Width = 345 Name = "Campo_texto5" texto clases.vcxlabelTexto5Formulario_acep_canc1CCaption = "Cod. Fabicante" Left = 36 Top = 160 Name = "Texto5"  campo_texto clases.vcxtextbox Campo_texto6Formulario_acep_canc1sControlSource = "Thisform.oObjeto.serial" Height = 23 Left = 127 Top = 181 Width = 345 Name = "Campo_texto6" texto clases.vcxlabelTexto6Formulario_acep_canc1;Caption = "Serial" Left = 36 Top = 184 Name = "Texto6"  campo_texto clases.vcxtextbox Campo_texto7Formulario_acep_canc1xControlSource = "Thisform.oObjeto.descripcion" Height = 23 Left = 127 Top = 205 Width = 345 Name = "Campo_texto7" texto clases.vcxlabelTexto7Formulario_acep_canc1@Caption = "Descripcion" Left = 36 Top = 208 Name = "Texto7"  campo_texto clases.vcxtextbox Campo_texto8Formulario_acep_canc1wControlSource = "Thisform.oObjeto.fabricante" Height = 23 Left = 127 Top = 229 Width = 345 Name = "Campo_texto8" texto clases.vcxlabelTexto8Formulario_acep_canc1?Caption = "Fabricante" Left = 36 Top = 232 Name = "Texto8"  campo_texto clases.vcxtextbox Campo_texto9Formulario_acep_canc1vControlSource = "Thisform.oObjeto.proveedor" Height = 23 Left = 127 Top = 253 Width = 345 Name = "Campo_texto9" texto clases.vcxlabelTexto9Formulario_acep_canc1>Caption = "Proveedor" Left = 36 Top = 256 Name = "Texto9"  campo_texto clases.vcxtextbox Campo_texto11Formulario_acep_canc1vControlSource = "Thisform.oObjeto.garantia" Height = 23 Left = 127 Top = 301 Width = 345 Name = "Campo_texto11" texto clases.vcxlabelTexto11Formulario_acep_canc1>Caption = "Garanta" Left = 36 Top = 304 Name = "Texto11"  commandbutton commandbutton btObtenerFormulario_acep_canc1YTop = 353 Left = 412 Height = 25 Width = 61 Caption = "Obtener" Name = "btObtener" PROCEDURE Click thisform.oobjeto = thisform.oActivo.Obtener_Activo(thisform.oObjeto.UUID, Thisform.oObjeto.ID_Activo, .t.) thisform.Refresh ENDPROC ."%U7*TCa UTHISFORMOOBJETOOACTIVOOBTENER_ACTIVOUUID ID_ACTIVOREFRESHClick011) campo_texto clases.vcxtextbox Campo_texto10Formulario_acep_canc1ControlSource = "Thisform.oObjeto.ID_Activo" Enabled = .T. Height = 23 Left = 127 Top = 46 Width = 345 Name = "Campo_texto10" texto clases.vcxlabelTexto10Formulario_acep_canc17Caption = "ID" Left = 36 Top = 49 Name = "Texto10"  campo_texto clases.vcxtextbox Campo_texto12Formulario_acep_canc1ControlSource = "Thisform.oObjeto.UUID" Enabled = .T. Height = 23 Left = 127 Top = 22 Width = 345 Name = "Campo_texto12" texto clases.vcxlabelTexto12Formulario_acep_canc19Caption = "UUID" Left = 36 Top = 25 Name = "Texto12" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6VV13M9AO1486394274/F] WINDOWS _6VV13M9AP1486394274 ' WINDOWS _6VV13M9AQ1486394274 WINDOWS _6VV13M9AR1486394274n WINDOWS _6VV13M9AS1486394274 COMMENT RESERVED _  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 164 Width = 383 DoCreate = .T. Caption = "Cashflow" Name = "Formulario_acep_canc1" command1.Top = 132 command1.Left = 119 command1.Name = "command1" command2.Top = 132 command2.Left = 203 command2.Name = "command2" ayuda.Name = "ayuda" text1.Name = "text1" ayuda_wiki1.Height = 19 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" advertencia.Name = "advertencia" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha " Height = 17 Left = 37 Top = 39 Width = 39 TabIndex = 44 Name = "Label3" fecha clases.vcxtextboxText2Formulario_acep_canc1dControlSource = "xfecha_cashflow" Format = "E" Left = 89 TabIndex = 3 Top = 36 Name = "Text2" PROCEDURE Init if p_dev and empty(this.Value) this.Value=date() endif ENDPROC PROCEDURE Valid if dodefault() if type("xquincenan")="N" and p_cm_quincena>0 and xtipocompra=6 inicializar_quincena(this.value) thisform.combo1.Init endif endif ENDPROC "A%I~ fU1% C *TC$UP_DEVTHISVALUEm%Cf6%C xquincenanbN  bC U P_CM_QUINCENA XTIPOCOMPRAINICIALIZAR_QUINCENATHISVALUETHISFORMCOMBO1INITInit0Valid}1A2aAA4Ie) optiongroup optiongroup Optiongroup1Formulario_acep_canc1AutoSize = .T. ButtonCount = 2 BackStyle = 0 BorderStyle = 0 Value = 1 ControlSource = "xdetallado" Height = 46 Left = 32 Top = 72 Width = 85 Name = "Optiongroup1" Option1.FontBold = .T. Option1.BackStyle = 0 Option1.Caption = "Detallado" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 71 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontBold = .T. Option2.BackStyle = 0 Option2.Caption = "Resumido" Option2.Height = 17 Option2.Left = 5 Option2.Style = 0 Option2.Top = 24 Option2.Width = 75 Option2.AutoSize = .T. Option2.Name = "Option2" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6VV13M9AO1486394274/F] WINDOWS _6VV13M9AP1487949260 ' WINDOWS _6VV13M9AQ1487949260{ WINDOWS _6VV13M9AR1487949260Xew- WINDOWS _6VV13M9AS1487949260% 8 K _ | COMMENT RESERVED   VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1LBorderStyle = 2 Height = 164 Width = 383 DoCreate = .T. Caption = "Informe Diario de Ventas" Name = "Formulario_acep_canc1" command1.Top = 132 command1.Left = 119 command1.TabIndex = 3 command1.Name = "command1" command2.Top = 132 command2.Left = 203 command2.TabIndex = 4 command2.Name = "command2" ayuda.TabIndex = 6 ayuda.Name = "ayuda" text1.TabIndex = 7 text1.Name = "text1" ayuda_wiki1.Height = 19 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" advertencia.Left = 348 advertencia.Top = 156 advertencia.TabIndex = 8 advertencia.Name = "advertencia" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha " Height = 17 Left = 37 Top = 39 Width = 39 TabIndex = 5 Name = "Label3" fecha clases.vcxtextboxText2Formulario_acep_canc1[ControlSource = "xfecha" Format = "E" Left = 89 TabIndex = 1 Top = 36 Name = "Text2" PROCEDURE Valid if dodefault() if type("xquincenan")="N" and p_cm_quincena>0 and xtipocompra=6 inicializar_quincena(this.value) thisform.combo1.Init endif endif ENDPROC PROCEDURE Init if p_dev and empty(this.Value) this.Value=date() endif ENDPROC "A%I~ fUm%Cf6%C xquincenanbN  bC U P_CM_QUINCENA XTIPOCOMPRAINICIALIZAR_QUINCENATHISVALUETHISFORMCOMBO1INIT1% C *TC$UP_DEVTHISVALUEValid0Init1aAA5A1 ) optiongroup optiongroup Optiongroup1Formulario_acep_canc1AutoSize = .T. ButtonCount = 2 BackStyle = 0 BorderStyle = 0 Value = 1 ControlSource = "xtipo" Height = 46 Left = 32 Top = 72 Width = 105 TabIndex = 2 Name = "Optiongroup1" Option1.FontBold = .T. Option1.BackStyle = 0 Option1.Caption = "Sin unidades" Option1.Value = 1 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 91 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontBold = .T. Option2.BackStyle = 0 Option2.Caption = "Con unidades" Option2.Height = 17 Option2.Left = 5 Option2.Style = 0 Option2.Top = 24 Option2.Width = 95 Option2.AutoSize = .T. Option2.Name = "Option2" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6VV13M9AO1486394274/F] WINDOWS _6VV13M9AP1495042676 ' WINDOWS _6VV13M9AQ1495036123 WINDOWS _6VV13M9AR1495036123\i{1 COMMENT RESERVED )  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1PBorderStyle = 2 Height = 164 Width = 383 DoCreate = .T. Caption = "Informe Diario de Produccin" Name = "Formulario_acep_canc1" command1.Top = 132 command1.Left = 119 command1.TabIndex = 3 command1.Name = "command1" command2.Top = 132 command2.Left = 203 command2.TabIndex = 4 command2.Name = "command2" ayuda.TabIndex = 6 ayuda.Name = "ayuda" text1.TabIndex = 7 text1.Name = "text1" ayuda_wiki1.Height = 19 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" advertencia.Left = 348 advertencia.Top = 156 advertencia.TabIndex = 8 advertencia.Name = "advertencia" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha " Height = 17 Left = 37 Top = 47 Width = 39 TabIndex = 5 Name = "Label3" fecha clases.vcxtextboxText2Formulario_acep_canc1[ControlSource = "xfecha" Format = "E" Left = 89 TabIndex = 1 Top = 44 Name = "Text2" PROCEDURE Valid if dodefault() if type("xquincenan")="N" and p_cm_quincena>0 and xtipocompra=6 inicializar_quincena(this.value) thisform.combo1.Init endif endif ENDPROC PROCEDURE Init if p_dev and empty(this.Value) this.Value=date() endif ENDPROC "A%I~ fUm%Cf6%C xquincenanbN  bC U P_CM_QUINCENA XTIPOCOMPRAINICIALIZAR_QUINCENATHISVALUETHISFORMCOMBO1INIT1% C *TC$UP_DEVTHISVALUEValid0Init1aAA5A1 )Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6VV13M9AO1486394274/F] WINDOWS _6VV13M9AP1487949288 ' WINDOWS _6VV13M9AQ1487949260 WINDOWS _6VV13M9AR1487949288\i{1 COMMENT RESERVED )  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1PBorderStyle = 2 Height = 164 Width = 383 DoCreate = .T. Caption = "Informe Diario de Produccin" Name = "Formulario_acep_canc1" command1.Top = 132 command1.Left = 119 command1.TabIndex = 3 command1.Name = "command1" command2.Top = 132 command2.Left = 203 command2.TabIndex = 4 command2.Name = "command2" ayuda.TabIndex = 6 ayuda.Name = "ayuda" text1.TabIndex = 7 text1.Name = "text1" ayuda_wiki1.Height = 19 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" advertencia.Left = 348 advertencia.Top = 156 advertencia.TabIndex = 8 advertencia.Name = "advertencia" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha " Height = 17 Left = 37 Top = 39 Width = 39 TabIndex = 5 Name = "Label3" fecha clases.vcxtextboxText2Formulario_acep_canc1[ControlSource = "xfecha" Format = "E" Left = 89 TabIndex = 1 Top = 36 Name = "Text2" PROCEDURE Init if p_dev and empty(this.Value) this.Value=date() endif ENDPROC PROCEDURE Valid if dodefault() if type("xquincenan")="N" and p_cm_quincena>0 and xtipocompra=6 inicializar_quincena(this.value) thisform.combo1.Init endif endif ENDPROC "A%I~ fU1% C *TC$UP_DEVTHISVALUEm%Cf6%C xquincenanbN  bC U P_CM_QUINCENA XTIPOCOMPRAINICIALIZAR_QUINCENATHISVALUETHISFORMCOMBO1INITInit0Valid}1A2aAA4Ie)Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ;%{4 [PX70G+(json7TCjsonNBUJSONCNJSONB{Gz?UKTC jsonSchemasNTC jsonErrorNTUTHISSCHEMAS LASTERROR OFASTPARSER   TC z%STC vTC(C T+T CCC Q6 BU PCJSONPNPOSNSTARTEDOJSONTHIS USEFASTPARSER _FASTPARSE_PARSEEX LASTERROR INITWITHEX LASTOPTIMEDTCCC C TCCsetjsonTCgetjson%Cset normalizeTC parseJSON%C %TC  4)CCget lasterror  BU PCJSONOJSOJSONODATATHIS_GETFASTPARSERRUNFOONORMALIZERESULTS_JS2FOX LASTERRORINITWITHSTRINGJ %CNNTCCC C  TO      TC>TC T T T- T  T - T- T- T- T TTC\T[0T CC CollectionN CEMPTYN6TC6 T TT- %[{ 1=3La cadena JSON suministrada no est bien formateada T (TC\H  C . { TC T }] ] T aDTCC{[C  C   6T   [ TC T   T T"  C  T TG  C C C:CX- SLa cadena JSON proporcionada no est bien formateada (nombre de atributo no vlido) (C  \ --><-- C\) C_ C_) C:CX  RTC-_ : T C T T T- T- T-( CX  3  C C =T Ta Ta=  C C ,]}  T-H9" CC@truefalseTC@true C@null T 29 TC(5T TTCC%]}T   T aN  C C C ,]} SLa cadena JSON proporcionada no est bien formateada (nombre de variable no vlido) (C  \ --><-- C\)8  C (   Ta T Ta T&  ( / TT1  )  TT1  )  T- T u "TCthis.oTarget."TCTHIS.oTarget."TCThis.oTarget.TC%Cq TCCM( T T  T&   Ta1   \ > T' ,  (TCC{[6  T%\ TC %uH  CCOX %   T-HP ' C????-??-??T??:??:??} TC^ C ????-??-??} TC^# 2 TC CO ( CXC@null + T C@falseP T- C@truet Ta 2 %Cg  +TCC. CCg8Cg6  Ta%C  T T q%C FC   T T  T% ! T T% $Cadena JSON desequilibrada(:$TC<-- [C T  B U!PCJSONPNPOSINLENCCHAR CLASTCHARNMODE CSTRINGSEP LISSTRINGCPROP NNESTLEVELOVALUE LEXITLOOPOTARGETUBUFFLISARRAYOARRAYLVARMODE LEXPRMODENEXPRNESTLEVELTHISSTRINGSEPARATOR LASTERRORHASERROR_PARSEISALPHAEXMESSAGENOEX UNESCAPEHTMLADDDETAILS INITWITHEX  TCTC%WB-%Cschemah XCELa cadena JSON proporcionada no representa un objeto de cursor vlido B-%CnamehTC  %C 1 G(%C+aTQC]%C ! T C jsonSchemaN%C +T CCC Q6B-F%C  L+T CCC Q6B-%CrowshT F(TC _J#)+T CCC Q6UPCJSONPCALIASPNDSIDOCURSORNSTARTEDTHISPARSE LASTERRORHASERRORINITWITHSTRINGNAMEOSCHEMA INITWITHJSON LASTOPTIMETOCURSOROROWINCOUNTROWSCOUNTITEMb %CCh!TCmsxml.domdocumentNC T TCEMPTYN%CC T1%CpoXmlNode.Attributes.LengthbN^ ( ZTC TC :-_C   TC CollectionNH{1 CpoXmlNode.childNodes.LengthbN( CC & CpoXmlNode.LengthbN{( wCC T% B%4TC  Ta(0 %C  , T-!%aTC CollectionN T T(RT C T  TC :-_HN$    ;C B ,CC  #text#cdata-section TC   TH' C????-??-??T??:??:??}_TC%C D2%C C C @TC [ T" CC@truefalseTC@true CC@nullnil T& C. Cg TCgC  :CC  ?%CoLastNode.ClassbCC @ collection TC CollectionNCJ(oTarget.TC!CC  2NCC  TC! T BU! POXMLNODE PCARRAYNODESOXMLLOADXMLOTARGETICATTROATTR ATTRIBUTESLENGTHITEMNAMEVALUEONODE CCHILDNAMELISARRAYOCHILDSNCHILDS NGRANDCHILDS CHILDNODESADDCOUNTNODENAME CNODENAMECDATA CLASTNODE OLASTNODEOARRAYUDATADATATHISPARSEXMLCLASS*TCTCTC CollectionN(%CC TC CollectionN(CCC BUPALISTOTARGETINROWSNCOLSJOITEMADD ?       T TCWTC TC%C G(TOC baseClassh CCounth CItemh C@ collection !CALEN(puObjectOrAlias)bN  T-%OTCbH  O TCaCobj%BC(JSON.stringify(obj)) O IT Cb ( .#%C Property.T CC @%-C @-ٺ-controls-controlcount-objects-parent-class-baseclass-classlibrary-parentclass-helpcontextid-whatsthishelpid-top-left-width-height-picture-_customproplist-activecontrol-activeform-forms-.TC !TCa%C *%T " "2TCC, 6  : T{} O T[ (;TC ,6CC aT] O =TCCDT[ (C'$TC ,6%!TCC a #T[ ( 9TC ,6CC aT]T]% CC  &1T {"name" : " ", "rows" : [%C  G( F#) T  ~%T   ^J0TC ,6CT]%!T!C jsonSchemaNC!"T schema%T " "'T,   : Ca!#%C T, T} 2 TTCH^  CM T"CCV$" NIYFM %C8TCCZ , TCC Z+C0C>( TCC>\TCCPOINTv. D JT"CCi0-CCH0-CC%0" TH T"CCi0-CCH0-CC%0TCC0:CC0:CC0" L $TC truefalse6 X Tnull 2 T T+T%CCC Q6 F BU&PUOBJECTORALIAS PLWITHSCHEMAPNDSIDPCADDITIONALFIELDS PLVALUEMODECJSONCTYPEOROWNWKAREANROWNCOUNTIJCPROPUVALUECVALUE CVALUETYPENCOLUMNS CTOKENSEPNSTARTEDAPROPSLISARRAY BASECLASS LISJSOBJECTOJSTHIS_GETFASTPARSER ADDOBJECTEVAL STRINGIFYUSESTRICTNOTATIONCOUNTITEMOSCHEMA INITWITHALIASTOSTRING ESCAPEHTML LASTOPTIME TC4%CCC={[ Ct oTC%C T%CTCCC>TCTCX%C l%. T"C@" :  QTC@: TC>H C$T"CC "! N C8 TCCZ! N C8 5%TCCCDECIMALSvZ Lq(TC truefalse6 DNT"CCi0-CCH0-CC%0" TtT"CCi0-CCH0-CC%0TCC0:CC0:CC0" XTnullH OC puData.ClassbC C @ collection &  T[ ( T C %C O}3TC C C  6TC  6C 'TC ,6:TCC OC C CX6] OT{C C    TCbTC CollectionN (T C #%C Property.%-C @-ٺ-controls-controlcount-objects-parent-class-baseclass-classlibrary-parentclass-helpcontextid-whatsthishelpid-top-left-width-height-picture-_customproplist-activecontrol-activeform-forms-.C  ( T C TC !KTC C  ,6C C TCX}+TCCC Q6 BUPUDATAPCOUTPNMARGINPCATTRNSTARTEDTHISPARSECTYPEUSESTRICTNOTATION ESCAPEHTMLCLASSIECOUNTITEMBEAUTIFYAELEMSNCOUNTUVALUEOPROPSADD LASTOPTIMEO TC%CCTC%+T CCC Q6B-\%Cclassh C @ collection  CC O < T C CollectionNC  T %C ^ G(' TC $%CoRow.baseClassbCTCN  TTC jsonSchemaNTC CollectionNTCb(zTCC@?%C CoBase.bU CCfPARENT .TC!TC jsonColumnNCC%M2C@%CO&C poOptions. .parentIdbC v!CC DATASESSIONv%+T CCC Q6B- F( TC F_J( %CCfPARENT.TC TC!TC%OTC >#)+T CCC Q6B U!POJSONPCALIASPNDSID POOPTIONSNSTARTEDTHISPARSE LASTERRORHASERROR LASTOPTIMECLASSCOUNTITEMOARRAYADDOROWNCOUNTICPROPUVALUEOSCHEMAOCOLUMN OOBJPROPSOBASEAPROPS BASECLASS INITWITHVALUE ADDCOLUMNTYPETOCURSORJCTYPE STRINGIFY  TC4%CCC={[ Ct oTC(%CCC={ TC%COHTC4{ style: 0, case: 0, beautify: false, header: true }#     4TCCpoOptions.stylebN 63TCCpoOptions.casebN 65T CCpoOptions.beautifybL -65T CCpoOptions.marginbN 63T CCpoOptions.headerbL a6T C C X6!T C C X6#TC C C 6 JTCOC puData.ClassbC C@ collection %T <>(y4T CCitema$T  B  !TCbTC CollectionN5TCC@CCf661T <C >6(TC%-C@-ٺ-controls-controlcount-objects-parent-class-baseclass-classlibrary-parentclass-helpcontextid-whatsthishelpid-top-left-width-height-picture-_customproplist-activecontrol-activeform-forms-w.TC!T!CH !CTCC"! !N C8 TCCZ! !N C8 M!TCCCDECIMALSvZ !L$TC truefalse6 !D@TCCi0-CCH0-CC%0 !TlTCCi0-CCH0-CC%0TCC0:CC0:CC0 !X T !OT CEMPTYNC Node C Value C #.5TCC@CCf66HB 6T <> T =% -TC$>/>6%u &%CpoOptions.marginbN] Cmargin  T ( T C&TC % &a!%  $T % { % w ;T&+T'CCC Q6 BU(PUDATA PCPARENTNODE POOPTIONS PLRECURSIVENSTARTEDTHISPARSENSTYLENCASE LBEAUTIFYNMARGINLHEADERCMARGIN CSUBMARGINCCRLFSTYLECASEBEAUTIFYMARGINHEADERCXMLLISARRAYCLASSICOUNTTOXMLITEMAELEMSNCOUNTEUVALUE OCHILDRENOCHILDCTYPE ESCAPEHTMLADD OCHILDENTVALUENODE LASTOPTIME TCEMPTYNCheaders C contentType C statusCode Craw Cjson ChasErrora CerrorMsg TTaC H p COLTC  CCp T#TCCN6  T  T  (T CMsxml2.ServerXMLHTTP.6.0N( C  % TT T B T T 3C- %C T2%CCCfPOSTPUT C $%C Content-TypeJ/C Content-Typeapplication/json &%CContent-Length#CContent-LengthC> %CC  TC(TCTC:%TC=TCC\C %C !%C%C C   C %C TC&+  C N% AT! "T#C $#T%C Content-Type &H= Cjson%TC ' Cxml%"TC ' 2=TC ( >C+No se pudo obtener respuesta del webservice )( C  % T T BT*%C H2 Cxml%hT+C, Cjson%T+C-T %T T BU.PCVERBPCURLPUDATA PCHEADERS PNTIMEOUTORESULTLUSNTHISUSESTRICTNOTATION LASTERRORCLEAR STRINGIFYEXOHTTP INITWITHEXHASERRORERRORMSGMESSAGE CRESPONSE SETOPTIONOPENNOEXSETREQUESTHEADERAHEADERS NHEADERSCOUNTNHEADERCHEADER CHEADERNAME CHEADERVALUE NHEADERSEPSENDNTIMEOUT READYSTATE STATUSCODESTATUSHEADERSGETALLRESPONSEHEADERS CONTENTTYPEGETRESPONSEHEADER RESPONSETEXT RESPONSEBODYINITWITHSTRINGRAWJSONPARSEXMLPARSE3%Ct7Tjson!%CC@jsonxml %CN T TTjson&TCGET"%C xml #TC  T   BU PCURL PCCONTENTTYPE PCHEADERS PNTIMEOUTORESPTHIS HTTPREQUEST CONTENTTYPEJSONPARSEXML CRESPONSEHASERROR LASTERRORN(TCPOST BUPCURLPUDATA PCHEADERS PNTIMEOUTORESPTHIS HTTPREQUEST5+BCfABCDEFGHIJKLMNOPQRSTUVWXYZ_UPCCHAR %C> T(C>TC\TC BH C  pcValue = " "  C" T\" C& 'pcValue = "&"  C< PpcValue = "<"  C> ypcValue = ">"  C\ T\\ C pcValue = " "  C pcValue = "¡"  C pcValue = "¢"  C KpcValue = "£"  C xpcValue = "¤"  C pcValue = "¥"  C pcValue = "¦"  C pcValue = "§"  C $pcValue = "¨"  C OpcValue = "©"  C zpcValue = "ª"  C pcValue = "¬"  C pcValue = "®"  C pcValue = "¯"  C #pcValue = "°"  C PpcValue = "±"  C {pcValue = "²"  C pcValue = "³"  C pcValue = "´"  C pcValue = "µ"  C )pcValue = "¶"  C VpcValue = "·"  C pcValue = "¸"  C pcValue = "¹"  C pcValue = "º"  C pcValue = "»"  C 1pcValue = "¼"  C ^pcValue = "½"  C pcValue = "¾"  C pcValue = "¿"  C pcValue = "À"  C pcValue = "Á"  C >pcValue = "Â"  C kpcValue = "Ã"  C pcValue = "Ä"  C pcValue = "Å"  C pcValue = "Æ"  C pcValue = "Ç"  C HpcValue = "È"  C upcValue = "É"  C pcValue = "Ê"  C pcValue = "Ë"  C pcValue = "Ì"  C & pcValue = "Í"  C R pcValue = "Î"  C } pcValue = "Ï"  C  pcValue = "Ð"  C  pcValue = "Ñ"  C  pcValue = "Ò"  C . pcValue = "Ó"  C Z pcValue = "Ô"  C  pcValue = "Õ"  C  pcValue = "Ö"  C  pcValue = "×"  C  pcValue = "Ø"  C 8 pcValue = "Ù"  C e pcValue = "Ú"  C  pcValue = "Û"  C  pcValue = "Ü"  C  pcValue = "Ý"  C  pcValue = "Þ"  C A pcValue = "ß"  C n pcValue = "à"  C  pcValue = "á"  C  pcValue = "â"  C  pcValue = "ã"  C  pcValue = "ä"  C K pcValue = "å"  C w pcValue = "æ"  C  pcValue = "ç"  C  pcValue = "è"  C  pcValue = "é"  C *pcValue = "ê"  C UpcValue = "ë"  C pcValue = "ì"  C pcValue = "í"  C pcValue = "î"  C pcValue = "ï"  C 0pcValue = "ð"  C ]pcValue = "ñ"  C pcValue = "ò"  C pcValue = "ó"  C pcValue = "ô"  C pcValue = "õ"  C ;pcValue = "ö"  C hpcValue = "÷"  C pcValue = "ø"  C pcValue = "ù"  C pcValue = "ú"  C pcValue = "û"  C FpcValue = "ü"  C spcValue = "ý"  C pcValue = "þ"  BUPCVALUE PLURLMODECENCODEDICCHARTHIS ESCAPEHTML,pcValue = STRT(pcValue," ",CHR(32)) TC\\\TC\"C" +pcValue = STRT(pcValue,"&",CHR(38)) *pcValue = STRT(pcValue,"<",CHR(60)) *pcValue = STRT(pcValue,">",CHR(62)) TC\C\ -pcValue = STRT(pcValue," ",CHR(160)) .pcValue = STRT(pcValue,"¡",CHR(161)) -pcValue = STRT(pcValue,"¢",CHR(162)) .pcValue = STRT(pcValue,"£",CHR(163)) /pcValue = STRT(pcValue,"¤",CHR(164)) ,pcValue = STRT(pcValue,"¥",CHR(165)) /pcValue = STRT(pcValue,"¦",CHR(166)) -pcValue = STRT(pcValue,"§",CHR(167)) ,pcValue = STRT(pcValue,"¨",CHR(168)) -pcValue = STRT(pcValue,"©",CHR(169)) -pcValue = STRT(pcValue,"ª",CHR(170)) ,pcValue = STRT(pcValue,"¬",CHR(172)) ,pcValue = STRT(pcValue,"®",CHR(174)) -pcValue = STRT(pcValue,"¯",CHR(175)) ,pcValue = STRT(pcValue,"°",CHR(176)) /pcValue = STRT(pcValue,"±",CHR(177)) -pcValue = STRT(pcValue,"²",CHR(178)) -pcValue = STRT(pcValue,"³",CHR(179)) .pcValue = STRT(pcValue,"´",CHR(180)) .pcValue = STRT(pcValue,"µ",CHR(181)) -pcValue = STRT(pcValue,"¶",CHR(182)) /pcValue = STRT(pcValue,"·",CHR(183)) .pcValue = STRT(pcValue,"¸",CHR(184)) -pcValue = STRT(pcValue,"¹",CHR(185)) -pcValue = STRT(pcValue,"º",CHR(186)) .pcValue = STRT(pcValue,"»",CHR(187)) /pcValue = STRT(pcValue,"¼",CHR(188)) /pcValue = STRT(pcValue,"½",CHR(189)) /pcValue = STRT(pcValue,"¾",CHR(190)) /pcValue = STRT(pcValue,"¿",CHR(191)) /pcValue = STRT(pcValue,"À",CHR(192)) /pcValue = STRT(pcValue,"Á",CHR(193)) .pcValue = STRT(pcValue,"Â",CHR(194)) /pcValue = STRT(pcValue,"Ã",CHR(195)) -pcValue = STRT(pcValue,"Ä",CHR(196)) .pcValue = STRT(pcValue,"Å",CHR(197)) .pcValue = STRT(pcValue,"Æ",CHR(198)) /pcValue = STRT(pcValue,"Ç",CHR(199)) /pcValue = STRT(pcValue,"È",CHR(200)) /pcValue = STRT(pcValue,"É",CHR(201)) .pcValue = STRT(pcValue,"Ê",CHR(202)) -pcValue = STRT(pcValue,"Ë",CHR(203)) /pcValue = STRT(pcValue,"Ì",CHR(204)) /pcValue = STRT(pcValue,"Í",CHR(205)) .pcValue = STRT(pcValue,"Î",CHR(206)) -pcValue = STRT(pcValue,"Ï",CHR(207)) ,pcValue = STRT(pcValue,"Ð",CHR(208)) /pcValue = STRT(pcValue,"Ñ",CHR(209)) /pcValue = STRT(pcValue,"Ò",CHR(210)) /pcValue = STRT(pcValue,"Ó",CHR(211)) .pcValue = STRT(pcValue,"Ô",CHR(212)) /pcValue = STRT(pcValue,"Õ",CHR(213)) -pcValue = STRT(pcValue,"Ö",CHR(214)) .pcValue = STRT(pcValue,"×",CHR(215)) /pcValue = STRT(pcValue,"Ø",CHR(216)) /pcValue = STRT(pcValue,"Ù",CHR(217)) /pcValue = STRT(pcValue,"Ú",CHR(218)) .pcValue = STRT(pcValue,"Û",CHR(219)) -pcValue = STRT(pcValue,"Ü",CHR(220)) /pcValue = STRT(pcValue,"Ý",CHR(221)) .pcValue = STRT(pcValue,"Þ",CHR(222)) .pcValue = STRT(pcValue,"ß",CHR(223)) /pcValue = STRT(pcValue,"à",CHR(224)) /pcValue = STRT(pcValue,"á",CHR(225)) .pcValue = STRT(pcValue,"â",CHR(226)) /pcValue = STRT(pcValue,"ã",CHR(227)) -pcValue = STRT(pcValue,"ä",CHR(228)) .pcValue = STRT(pcValue,"å",CHR(229)) .pcValue = STRT(pcValue,"æ",CHR(230)) /pcValue = STRT(pcValue,"ç",CHR(231)) /pcValue = STRT(pcValue,"è",CHR(232)) /pcValue = STRT(pcValue,"é",CHR(233)) .pcValue = STRT(pcValue,"ê",CHR(234)) -pcValue = STRT(pcValue,"ë",CHR(235)) /pcValue = STRT(pcValue,"ì",CHR(236)) /pcValue = STRT(pcValue,"í",CHR(237)) .pcValue = STRT(pcValue,"î",CHR(238)) -pcValue = STRT(pcValue,"ï",CHR(239)) ,pcValue = STRT(pcValue,"ð",CHR(240)) /pcValue = STRT(pcValue,"ñ",CHR(241)) /pcValue = STRT(pcValue,"ò",CHR(242)) /pcValue = STRT(pcValue,"ó",CHR(243)) .pcValue = STRT(pcValue,"ô",CHR(244)) /pcValue = STRT(pcValue,"õ",CHR(245)) -pcValue = STRT(pcValue,"ö",CHR(246)) /pcValue = STRT(pcValue,"÷",CHR(247)) /pcValue = STRT(pcValue,"ø",CHR(248)) /pcValue = STRT(pcValue,"ù",CHR(249)) /pcValue = STRT(pcValue,"ú",CHR(250)) .pcValue = STRT(pcValue,"û",CHR(251)) -pcValue = STRT(pcValue,"ü",CHR(252)) /pcValue = STRT(pcValue,"ý",CHR(253)) .pcValue = STRT(pcValue,"þ",CHR(254)) BUPCVALUE%C  0 B0TCMSScriptControl.ScriptControlNTJScriptCCCC BUPLFORCENEWINSTANCETHIS OFASTPARSERLANGUAGEADDCODE_GETJSONPARSERCODE_GETSUPPORTCODE] M( // json2.js // 2022-10-30// Public Domain.A;// NO WARRANTY EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.TN// USE YOUR OWN COPY. IT IS EXTREMELY UNWISE TO LOAD CODE FROM SERVERS YOU DO// NOT CONTROL.RL// This file creates a global JSON object containing two methods: stringifyOI// and parse. This file provides the ES5 JSON capability to ES3 systems.VP// If a project might run on IE8 or earlier, then this file should be included.0*// This file does nothing on ES5 systems.4.// JSON.stringify(value, replacer, space)OI// value any JavaScript value, usually an object or array.NH// replacer an optional parameter that determines how objectMG// values are stringified for objects. It can be a>8// function or an array of strings.RL// space an optional parameter that specifies the indentationSM// of nested structures. If it is omitted, the text willTN// be packed without extra whitespace. If it is a number,TN// it will specify the number of spaces to indent at eachRL// level. If it is a string (such as "\t" or " "),VP// it contains the characters used to indent at each level.KE// This method produces a JSON text from a JavaScript value.PJ// When an object value is found, if the object contains a toJSONQK// method, its toJSON method will be called and the result will beQK// stringified. A toJSON method does not serialize: it returns theUO// value represented by the name/value pair that should be serialized,QK// or undefined if nothing should be serialized. The toJSON methodTN// will be passed the key associated with the value, and this will be%// bound to the value.IC// For example, this would serialize Dates as ISO strings.>8// Date.prototype.toJSON = function (key) {)#// function f(n) {MG// // Format integers to have at least two digits.-'// return (n < 10)+%// ? "0" + n& // : n;// }@:// return this.getUTCFullYear() + "-" +@:// f(this.getUTCMonth() + 1) + "-" +@:// f(this.getUTCDate()) + "T" +@:// f(this.getUTCHours()) + ":" +@:// f(this.getUTCMinutes()) + ":" +?9// f(this.getUTCSeconds()) + "Z";// };TN// You can provide an optional replacer method. It will be passed theQK// key and value of each member, with this bound to the containingMG// object. The value that is returned from your method will beTN// serialized. If your method returns undefined, then the member will5/// be excluded from the serialization.SM// If the replacer parameter is an array of strings, then it will beUO// used to select the members to be serialized. It filters the resultsSM// such that only members with keys listed in the replacer array are// stringified.TN// Values that do not have JSON representations, such as undefined orSM// functions, will not be serialized. Such values in objects will beQK// dropped; in arrays they will be replaced with null. You can useHB// a replacer function to replace those with JSON values.>8// JSON.stringify(undefined) returns undefined.PJ// The optional space parameter produces a stringification of theRL// value that is filled with line breaks and indentation to make it!// easier to read.UO// If the space parameter is a non-empty string, then that string willSM// be used for indentation. If the space parameter is a number, then;5// the indentation will be that many spaces.// Example:C=// text = JSON.stringify(["e", {pluribus: "unum"}]);82// // text is '["e",{"pluribus":"unum"}]'OI// text = JSON.stringify(["e", {pluribus: "unum"}], null, "\t");MG// // text is '[\n\t"e",\n\t{\n\t\t"pluribus": "unum"\n\t}\n]'MG// text = JSON.stringify([new Date()], function (key, value) {60// return this[key] instanceof Date5/// ? "Date(" + this[key] + ")""// : value;// });;5// // text is '["Date(---current time---)"]''!// JSON.parse(text, reviver)OI// This method parses a JSON text to produce an object or array.71// It can throw a SyntaxError exception.RL// The optional reviver parameter is a function that can filter andQK// transform the results. It receives each of the keys and values,MG// and its return value is used instead of the original value.UO// If it returns what it received, then the structure is not modified.E?// If it returns undefined then the member is deleted.// Example:PJ// // Parse the text. Values that look like ISO date strings will2,// // be converted to Date objects.C=// myData = JSON.parse(text, function (key, value) {// var a;60// if (typeof value === "string") {// a =VP// /^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2}(?:\.\d*)?)Z$/.exec(value);"// if (a) {71// return new Date(Date.UTC(MG// +a[1], +a[2] - 1, +a[3], +a[4], +a[5], +a[6]!// ));// }'!// return value;// }// });& // myData = JSON.parse(/)// "[\"Date(09/09/2001)\"]",-'// function (key, value) { // var d;// if (71// typeof value === "string">8// && value.slice(0, 5) === "Date("82// && value.slice(-1) === ")"// ) {?9// d = new Date(value.slice(5, -1));& // if (d) {+%// return d;// }// }'!// return value;// }// );NH// This is a reference implementation. You are free to copy, modify, or// redistribute./*jslint eval, for, this*/ /*propertyQK JSON, apply, call, charCodeAt, getUTCDate, getUTCFullYear, getUTCHours,JD getUTCMinutes, getUTCMonth, getUTCSeconds, hasOwnProperty, join,OI lastIndex, length, parse, prototype, push, replace, slice, stringify,)# test, toJSON, toString, valueOf*/OI// Create a JSON object only if one does not already exist. We create theA;// methods in a closure to avoid creating global variables.%if (typeof JSON !== "object") { JSON = {};}(function () { "use strict";'! var rx_one = /^[\],:{}\s]*$/;=7 var rx_two = /\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g;\V var rx_three = /"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g;/) var rx_four = /(?:^|:|,)(?:\s*\[)+/g; var rx_escapable = /[\\"\u0000-\u001f\u007f-\u009f\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g; var rx_dangerous = /[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g; function f(n) {=7 // Format integers to have at least two digits. return (n < 10) ? "0" + n : n;  }! function this_value() {$ return this.valueOf();  }<6 if (typeof Date.prototype.toJSON !== "function") {3- Date.prototype.toJSON = function () {1+ return isFinite(this.valueOf()) ? (/) this.getUTCFullYear() + "-"5/ + f(this.getUTCMonth() + 1) + "-"0* + f(this.getUTCDate()) + "T"1+ + f(this.getUTCHours()) + ":"3- + f(this.getUTCMinutes()) + ":"3- + f(this.getUTCSeconds()) + "Z" ) : null; };4. Boolean.prototype.toJSON = this_value;3- Number.prototype.toJSON = this_value;3- String.prototype.toJSON = this_value;  } var gap; var indent; var meta; var rep;" function quote(string) {RL// If the string contains no control characters, no quote characters, and noMG// backslash characters, then we can safely slap some quotes around it.QK// Otherwise we must also replace the offending characters with safe escape // sequences.)# rx_escapable.lastIndex = 0;.( return rx_escapable.test(string)F@ ? "\"" + string.replace(rx_escapable, function (a) {& var c = meta[a];2, return typeof c === "string" ? cVP : "\\u" + ("0000" + a.charCodeAt(0).toString(16)).slice(-4); }) + "\"")# : "\"" + string + "\"";  }D>// This variable is initialized with an empty array every timeLF// JSON.stringify() is invoked and checked by the str() function. It'sHB// used to keep references to object structures and capture cyclicGA// objects. Every new object is checked for its existence in thisLF// array. If it's found it means the JSON object is cyclic and we haveHB// to stop execution and throw a TypeError accordingly the ECMA262NH// (see NOTE 1 by the link https://tc39.es/ecma262/#sec-json.stringify). var seen;F@// Emulate [].includes(). It's actual for old-fashioned JScript.+% function includes(array, value) { var i;5/ for (i = 0; i < array.length; i += 1) {+% if (value === array[i]) {" return true; } } return false;  }% function str(key, holder) {+%// Produce a string from holder[key].2, var i; // The loop counter.0* var k; // The member key.2, var v; // The member value. var length; var mind = gap; var partial;& var value = holder[key];QK// If the value has a toJSON method, call it to obtain a replacement value. if ( value.( && typeof value === "object"71 && typeof value.toJSON === "function" ) {,& value = value.toJSON(key); }NH// If we were called with a replacer function, then call the replacer to$// obtain a replacement value..( if (typeof rep === "function") {71 value = rep.call(holder, key, value); }71// What happens next depends on the value's type.% switch (typeof value) { case "string":& return quote(value); case "number":HB// JSON numbers must be finite. Encode non-finite numbers as null.*$ return (isFinite(value))% ? String(value) : "null"; case "boolean": case "null":IC// If the value is a boolean or null, convert it to a string. Note:JD// typeof null does not produce "null". The case is included here in82// the remote chance that this gets fixed someday.'! return String(value);SM// If the type is "object", we might be dealing with an object or an array or// null. case "object":OI// Due to a specification blunder in ECMAScript, typeof null is "object",$// so watch out for that case. if (!value) {$ return "null"; }KE// Check the value is not circular object. Otherwise throw TypeError..( if (includes(seen, value)) {SM throw new TypeError("Converting circular structure to JSON"); }E?// Keep the value for the further check on circular references.# seen.push(value);UO// Make an array to hold the partial results of stringifying this object value.  gap += indent; partial = [];// Is the value an array?TN if (Object.prototype.toString.apply(value) === "[object Array]") {RL// The value is an array. Stringify every element. Use null as a placeholder// for non-JSON values.,& length = value.length;71 for (i = 0; i < length; i += 1) {?9 partial[i] = str(i, value) || "null"; }SM// Join all of the elements together, separated with commas, and wrap them in // brackets..( v = partial.length === 0  ? "[]" : gap! ? ('! "[\n"'! + gap=7 + partial.join(",\n" + gap)(" + "\n"(" + mind'! + "]" )>8 : "[" + partial.join(",") + "]";! gap = mind; return v; }UO// If the replacer is an array, use it to select the members to be stringified.71 if (rep && typeof rep === "object") {*$ length = rep.length;71 for (i = 0; i < length; i += 1) {;5 if (typeof rep[i] === "string") {)# k = rep[i];0* v = str(k, value);& if (v) {;5 partial.push(quote(k) + (+% (gap)0* ? ": "/) : ":")# ) + v); } } } } else {B<// Otherwise, iterate through all of the keys in the object.(" for (k in value) {OI if (Object.prototype.hasOwnProperty.call(value, k)) {0* v = str(k, value);& if (v) {;5 partial.push(quote(k) + (+% (gap)0* ? ": "/) : ":")# ) + v); } } } }F@// Join all of the member texts together, separated with commas,!// and wrap them in braces.*$ v = partial.length === 0 ? "{}" : gapWQ ? "{\n" + gap + partial.join(",\n" + gap) + "\n" + mind + "}":4 : "{" + partial.join(",") + "}"; gap = mind; return v; }  }NH// If the JSON object does not yet have a stringify method, give it one.5/ if (typeof JSON.stringify !== "function") {=7 meta = { // table of character substitutions "\b": "\\b", "\t": "\\t", "\n": "\\n", "\f": "\\f", "\r": "\\r", "\"": "\\\"", "\\": "\\\\" };B< JSON.stringify = function (value, replacer, space) {UO// The stringify method takes a value and an optional replacer, and an optionalQK// space parameter, and returns a JSON text. The replacer can be a functionSM// that can replace values, or an array of strings that will select the keys.RL// A default replacer method can be provided. Use of the space parameter can3-// produce text that is more easily readable. var i; gap = ""; indent = "";RL// If the space parameter is a number, make an indent string containing that// many spaces.2, if (typeof space === "number") {60 for (i = 0; i < space; i += 1) {(" indent += " "; }RL// If the space parameter is a string, it will be used as the indent string.93 } else if (typeof space === "string") {% indent = space; }C=// If there is a replacer, it must be a function or an array.#// Otherwise, throw an error.! rep = replacer;E? if (replacer && typeof replacer !== "function" && (2, typeof replacer !== "object"<6 || typeof replacer.length !== "number" )) {82 throw new Error("JSON.stringify"); })#// Initialize the reference keeper. seen = [];JD// Make a fake root object containing our value under the key of "".5/// Return the result of stringifying the value..( return str("", {"": value}); };  }JD// If the JSON object does not yet have a parse method, give it one.1+ if (typeof JSON.parse !== "function") {5/ JSON.parse = function (text, reviver) {TN// The parse method takes a text and an optional reviver function, and returns=7// a JavaScript value if the text is a valid JSON text. var j;.( function walk(holder, key) {OI// The walk method is used to recursively walk the resulting structure so("// that modifications can be made. var k; var v;.( var value = holder[key];?9 if (value && typeof value === "object") {,& for (k in value) {SM if (Object.prototype.hasOwnProperty.call(value, k)) {5/ v = walk(value, k);82 if (v !== undefined) {3- value[k] = v;*$ } else {60 delete value[k];# } } } }>8 return reviver.call(holder, key, value); }OI// Parsing happens in four stages. In the first stage, we replace certainUO// Unicode characters with escape sequences. JavaScript handles many charactersVP// incorrectly, either silently deleting them, or treating them as line endings.& text = String(text);-' rx_dangerous.lastIndex = 0;0* if (rx_dangerous.test(text)) {F@ text = text.replace(rx_dangerous, function (a) {" return (# "\\u"QK + ("0000" + a.charCodeAt(0).toString(16)).slice(-4) ); }); }SM// In the second stage, we run the text against regular expressions that lookOI// for non-JSON patterns. We are especially concerned with "()" and "new"RL// because they can cause invocation, and "=" because it can cause mutation.E?// But just to be safe, we want to reject all unexpected forms.SM// We split the second stage into 4 regexp operations in order to work aroundOI// crippling inefficiencies in IE's and Safari's regexp engines. First weUO// replace the JSON backslash pairs with "@" (a non-JSON character). Second, weRL// replace all simple value tokens with "]" characters. Third, we delete allTN// open brackets that follow a colon or comma or that begin the text. Finally,SM// we look to see that the remaining characters are only whitespace or "]" orQK// "," or ":" or "{" or "}". If that is so, then the text is safe for eval. if (" rx_one.test( text3- .replace(rx_two, "@")5/ .replace(rx_three, "]")3- .replace(rx_four, "") ) ) {OI// In the third stage we use the eval function to compile the text into aSM// JavaScript structure. The "{" operator is subject to a syntactic ambiguitySM// in JavaScript: it can begin a block or an object literal. We wrap the text.(// in parens to eliminate the ambiguity.1+ j = eval("(" + text + ")"); // James Surez 26-11-2022%// add prototype item function " function goodParse(obj){-' if(obj && typeof obj == "object"){(" if(!(obj instanceof Array)){  for(var id in obj){! var value = obj[id]5/ if(id.toUpperCase() == "ITEM"){ % // ocultar la variable'! obj["...." + id] = value delete obj[id] }+% if(typeof value == "object"){ goodParse(value) } }  }  } return obj  }   goodParse(j).( Object.prototype.item = function() {# var index = arguments[0]LF if(index === undefined || index === null) index = "....item" GA if(typeof index == "string" && index.toUpperCase()=="ITEM"){! index= "...." + index  } return this[index]  }UO// In the optional fourth stage, we recursively walk the new structure, passingPJ// each name/value pair to a reviver function for possible transformation.<6 return (typeof reviver === "function")-' ? walk({"": j}, "") : j; }IC// If the text is not JSON parseable, then a SyntaxError is thrown.60 throw new SyntaxError("JSON.parse"); };  } }()); BUCJSONPARSERCODE/ M( var buff = { json: "", normalize: true}!function set(name, value) { buff[name] = value;}function get(name) { return buff[name];}function parseJSON() { var o = null; buff.lasterror = "";  try {" o = JSON.parse(buff.json);.( if (buff.normalize) o = analyze(o); } catch (ex) { o = null;'! buff.lastError = ex.message; } return o;}%function analyze(value, name) { var node = { name: name, type: typeof value, value: value } ^X if (node.type == "object" && value && value.constructor && value.constructor === Array) node.type = "array";  switch (node.type) { case "object": node.value = []; for (k in value) {HB if (Object.prototype.hasOwnProperty.call(value, k)) {;5 node.value.push(analyze(value[k], k));  } } break;   case "array": node.value = [];4. for (var i = 0; i < value.length; i++) {0* node.value.push(analyze(value[i]));  } break; }  return node;} BUCCODE %Ct/TCTHc objectTCEMPTYN %C oNode.namebU!C C   arrayxTC CollectionNt %C oNode.NamebUpCC   2T BU PONODEPOJSTHIS_GETFASTPARSERCTYPEFOONODETYPEVALUENAME_JS2FOXADDTC jsonErrorNUTHIS LASTERROR T UT-%Cj%Falta el nombre del esquema%C C ,"El esquema especificado ya existe.%C TCCfTC jsonSchemaN%CQT C TC ( wC   BUPCNAMEOSCHEMATHIS LASTERRORHASERRORNOEXEXIST OJSONSCHEMA CSCHEMANAMENAMEADDGETEX INITWITHEXGT- T %Cr%Falta el nombre del esquema%CC 0&El nombre del cursor no se especifica.%C C ,"El esquema especificado ya existe.%CC 8 G(%CC .$El nombre del cursor no est en uso. / QINTEGER QINTEGER QOBJECTT C %CC C  T (7C BUPCSCHEMAPCCURSORPNDSIDTHIS LASTERRORHASERROR ONEWSCHEMANOEXEXISTASTRUCTNCOUNTIOSCHEMANEW INITWITHALIASEX INITWITHEXp T-  T  TC%C~%Falta el nombre del esquema%CC 5+El esquema de cadenas no est especificado.%C C ,"El esquema especificado ya existe.%C`-CREATE CURSOR VFPStructSchema (&pcString) %C 'T CVFPStructSchema %C  T ( C   %CVFPStructSchema(QVFPStructSchema*%CCC C ` F BU PCSCHEMAPCSTRINGTHIS LASTERRORHASERROR ONEWSCHEMA CCURRALIASNOEXEXISTOSCHEMA NEWFROMCURSOREX INITWITHEX1"Q EXCEPTIONQOBJECT T T-%C%Falta el nombre del esquema %C C ,"El esquema especificado no existe.TCCfTC(!C  BU PCNAMEEXLORETTHIS LASTERRORHASERRORNOEXEXISTITEM INITWITHEXT-TCCf!QINTEGERQBOOLEAN(%CCCf Ta! BUPCNAMETHIS LASTERRORHASERRORILEXISTCOUNTGETKEYET-QBOOLEAN %Cj%Falta el nombre del esquema %C C ,"El esquema especificado no existe.%CTCCf%CC Ta(5C  BU PCSCHEMATHIS LASTERRORHASERRORLRETNOEXEXISTREMOVEEX INITWITHEXQBOOLEAN f%Ca%Falta el nombre del esquema%CTC%C,"El esquema especificado no existe.%CC G(%CC 5El alias ya existe%CbTC( C   BU PCALIASPCSCHEMAPNDSIDLRETNOEXOSCHEMATHISGETTOCURSOREX LASTERROR INITWITHEX BUTHIS_COLUMNSg`TC TC jsonErrorNTC CollectionNUPCNAMETHISNAME LASTERROR_COLUMNSJT- !%C b.$El nombre del cursor no est en uso.%C /QINTEGERQINTEGERQOBJECTTC(9CCCCC ( CC  U PCALIASTHIS LASTERRORHASERRORNOEXASTRUCTNCOUNTIOSCHEMA ADDCOLUMNEX INITWITHEXT- H3 CtcParmetro que falta C CO Parmetro no vlido' CCschemah OELa cadena JSON proporcionada no representa un objeto de cursor vlido%C/QINTEGERQINTEGERQOBJECTT (T C %C    (CB UPOJSONTHIS LASTERRORHASERRORNOEXNCOUNTIOSCHEMASCHEMACOUNTOCOLUMNITEM ADDCOLUMNNAMETYPELONDECEX INITWITHEX(<%Ct CO C@ jsoncolumn gCB T -%C3)No se especifica el nombre de la columna.TCCf%C C -.$No se especifica el tipo de columna.%C TCf>%CCDTNFIBYLMG $Tipo de columna no vlida..%C CCNF C 5+No se especifica la longitud de la columna.%C C v6,El nombre de columna especificado ya existe.%C  *T C jsonColumnN%C C  Ta(C  BU PCCOLUMNNAME PCCOLUMNTYPEPNLONGPNDECCLASSTHISCOLUMNSADDLRET LASTERRORHASERRORNOEX EXISTCOLUMNOCOLUMNEX INITWITHEXT-.QBOOLEANQSTRINGQSTRING  TC%C5+No se especifica la estructura de columnas.%C$TCCC \f%C 6,El nombre de columna especificado ya existe.(%CCVFPStructSchema QVFPStructSchema3CREATE CURSOR VFPStructSchema (&pcColumnString)  C VFPStructSchema%C/CC C C  TC( @C  !%CCC o F %CVFPStructSchemaQVFPStructSchema BU PCCOLUMNSTRINGTHIS LASTERRORHASERRORLRET CCURRALIASCCOLNOEX EXISTCOLUMNASTRUCT ADDCOLUMNEX INITWITHEXOT-QBOOLEAN %Cx3)No se especifica el nombre de la columna. %C C 6,El nombre de columna especificado ya existe.%CTCCfCTC( ?C   BU PCCOLNAMETHIS LASTERRORHASERRORLRETNOEX EXISTCOLUMNCOLUMNSREMOVEEX INITWITHEX TT-  T(TC /TCC ,6C %T[] BU PLJSONCTEXTTHIS LASTERRORHASERROROCOLUMNICOLUMNSCOUNTITEMTOSTRINGT-TCCf!QINTEGERQBOOLEAN("%CCCf Ta! BU PCNAMETHIS LASTERRORHASERRORILEXISTCOLUMNSCOUNTGETKEY T- QBOOLEANQSTRING TCW %C w G(%CC 0&El nombre del cursor no se especifica.!%C  El esquema est vaco%CC 0 Q%C T C F+CREATE CURSOR (pcCursorName) (&cStruct) TC( C  F BU PCCURSORNAMEPNDSIDTHIS LASTERRORHASERRORLRET CCURRALIASNWKAREANOEXCOLUMNSCOUNTCSTRUCTTOSTRINGEX INITWITHEXTC jsonErrorNTC TC TC T C  U PCNAMEPCTYPEPNLONGPNDECTHIS LASTERRORNAMETYPELONGDEC TCTC@THUz! C C> T! C C> TM! N C8 T! N C8 *TT OOTM 2zTCTUPUVALUEPCNAMECTYPETHISNAMETYPELONGDECT- T%HT;{"name" : "{0}", "type" : "{1}", "lon" : {2}, "dec" : {3} }TC{0}TC{1}TC{2}CCZTC{3}CCZ T CC(CCZ)XCNF#(CCZ,CCZ)&CB(CCZ)666 NULL BU PLJSONTHIS LASTERRORHASERRORCTEXTNAMETYPELONGDECMF% 2 CT UVNEWVALTHISCLEARHASERROR T T T T T T TT T  T  T -U THISERRORNODETAILS LINECONTENTSLINENOMESSAGE PROCEDURE STACKLEVELTAG USERVALUEEXTERNALERRORNOHASERRORc%CtB%,%CpoEx.userValue.MessagebCuT T\ TaTTTTT  TT  T  T  TU POEXERRORNO USERVALUEMESSAGETHISHASERROR ERRORTYPEDETAILS LINECONTENTSLINENO PROCEDURE STACKLEVELTAG %Ct"B TaTTTTTT T C T T  T UPCSTRING PCPROCEDURETHISHASERROR ERRORTYPEERRORNODETAILS LINECONTENTSLINENOMESSAGE PROCEDURE STACKLEVELTAG USERVALUE%Ct5 Cz TaTTCTCTCTCU PALASTERRORTHISHASERROR ERRORTYPEERRORNODETAILSMESSAGEEXTERNALERRORNO%Ct5 Cz TaTTCTCTCTCU PALASTERRORTHISHASERROR ERRORTYPEERRORNODETAILSMESSAGEEXTERNALERRORNOt CzTC HN   C C 2  TaTTCTCT C( mi TaTT Unhandled errorU ALASTERRORNERRORTHIS INITWITHOLE INITWITHODBCHASERROR ERRORTYPEERRORNODETAILSMESSAGEEXHu n T%C yT Line No.: CC_A Procedure: CC % .Custom Error No.: CC_A6 jT Error No.: CC99999_A   Line:   Line No.: CC_A Detail:   Procedure: $   bT Error No.: CC99999_A   External Error No:   Detail:   D'TUnhandled error by   2u'TUnhandled error by   BUCTEXTTHIS ERRORTYPEEX USERVALUELINENO PROCEDURE CUSTOMERRORNOERRORNOMESSAGE LINECONTENTSDETAILSEXTERNALERRORNONAME BUTHISq%B%CET%C j CUPLINSTANCEMODETHIS CLASSNAMECLASS CHECKINSTANCECREATEINSTANCE]%CC Ba%C9h OC9B-UTHIS GETINSTANCE CLASSNAME ADDPROPERTY{%C@C@8TCaN UTCNJ(_Screen.U OINSTANCETHISCLASS CLASSNAME`8%C9h C_Screen.bO ?BBC_Screen.UTHIS CLASSNAME7%C0J(_Screen.UTHIS CHECKINSTANCE CLASSNAMEV%CC@ classname checkinstancecreateinstance getinstanceclassf B BC_Screen.UCMEMBERTHIS CLASSNAME BaUversion_accesskInitParse _fastParse[_Parse parseCursorparseXMLf parseArray  StringifyO"Beautify.toCursor~7ToXml= httpRequestIhttpGetShttpPostUisAlpha6V escapeHTML{V unescapeHTMLlh_getFastParser@z_getJSONParserCodei{_getSupportCode_js2foxinitnew newFromCursor newFromStringgetExistmdeleteZCreateColumns_Accessinit initWithAlias initWithJSONj addColumnaddColumnFromString delColumntoString existColumntoCursorinitX initWithValue@toStringhasError_AssignClear{ initWithExinitWithString| initWithOLE  initWithODBC initWithDefault toString  getObjectInit checkInstancecreateInstancec getInstance releaseInstance THIS_AccessNOEXL T Ta T T TT" T- Ta                 U VERSIONUSESTRICTNOTATION LASTOPTIMESCHEMAS LASTERRORSTRINGSEPARATOR USEFASTPARSERNORMALIZERESULTS OFASTPARSEROFPBUFF^ T        U LASTERROR T T  ! " # $ % & ' (U LASTERRORCOLUMNS_COLUMNSTTC T T T ) * +UTYPELONGDEC LASTERRORT jsonError T T T T T T T T T  T  T  T - T  , - . / 0 1 2 3 4U CLASSNAME ERRORTYPEERRORNODETAILS LINECONTENTSLINENOMESSAGE PROCEDURE STACKLEVELTAG USERVALUEEXTERNALERRORNOHASERROR CUSTOMERRORNOL T 5 6 7 8 9 :U CLASSNAMEjsonCustom' jsonSchemas Collection jsonSchemaCUSTOMp jsonColumnCUSTOM jsonErrorJSONSingletonPatternJSONSingletonPatternCustomJ rAB@17@1!QAAA5qQ!!QAA3rAQ1cARQAA"rA 2!AAaQA b!!!qABbr5AB2qQAQArAA!!AAAAAB3AAAAB9QQqAqAaA"AQ!AAAAsqAqA1QAQA9rqAQrAQAAAbAA1A3qAAAAAQ1A!"q!!AA"bA!21A1AA7q111QAAA<q!AxE tAAq!qQ1AAq AA7!!qA!AAqA!A1!A!AA!S"AQA!q1!qAqA"qA"QrQqAACBBABAA91rBQAAaAr2!!AqAAAQQBBBBQ!Qq1aAqAB1{Q1AA AAAQ1AA;1rsQQqAAqA#AuAA1AQAAA1QqABAQqA1QQAAQ1AQAAAQ11rBQAQArA2A1QQ11qAAAAQR$ AA1AaBABBBBQaqAAS1a2BA2AbaAAAQaAAAAA<qQaQAqQrA1AAQaArqaA!AAa1AAQ!11aQAAAAA!AAqaAAa1A1AAAAAQaA!AAa!aA;11AqAAqa!aA;1q6q7QQAAaQQQQAQAQQaQqQaQqQQQQQaQQQaQaQQQQQaQQQQaQaQqQqQaQQqQaQaQqQQQQQQQqQQaQqQqQQQQqQaQQQqQaQQQQQQqQQaQqQQQQqQaQQqQqQQQqQQaQqQqQQQQqQaQQQqQaQQQQQQqQQaQQQQQqQaQQqA7q7qA!Q!!A:q1AaAaa!aaA!1AA!aQAQaaaaAAQa1Q1aA1aa!aQ1aa1aaaQ!Qaqqa!QQaa!a1aa!qqqQaaqaqqAaqaaaaaQAqaAqaq aaaAaa1aQ11qaA11a!Q1!aa!a!1aaa!aaaAqa1aaaAQ!1aaQaa!!aaa!qqaAaqaqaQaaaaQaaaqa1aaAaA1aa11aQa1aQaaaAa!aqqa1!aqqq1aQaqqaqa!aaq1aaaqaaQ!aQ1!1aa!Qa!aqa!aQ1a11aQ!a1aaaQaaaaQaAaaaa1Q1a1q1aaQaaaa!11a1!Qa1Q!A1aa!1Q1qQa11aaQa!QQqaa1qaQa1aaaA4qa!aqaqaqaA!aQAqqaaQ1aAqqaA1QAq1qA31AQAAAAAAA 17qqQAAAQQAAA7rQAAAAATAAA7QAQAAAqq!AAABAA7q"QAARAB7qAAA7q"QAAAAAB7!QAqQAAAAAAB>6qQA8q!AQAAAB7q1rA1QAAAB81AAAr1AAAAAQAaAqAAAB9qQAqaAA1AAAAAA8q!1AaAAAAB7qrAqA8q!AAA7q!AAAAqAAA11QQQQA4q!BB7qq AA1rAA7A6q2AAr1AAA72AAAA7q2A!!!!A7q2A!!!!A7rB!!!ABAB6rbqR AC$AbqqB61qAAA1AAA5aqA1Aq5qA1A5qA51A5qaA`1q4rq0  p 0& 1@ @ 1r0 P1P1c @@48$$ -%]&)N+z+-2/-[LDLQBeRUa{acd~" 6[5Wx/ *BOD|~ik;oGlJMF_>qFL ~LO! PQO gQtTV TSX{ X\ )]5_ _` `b -/ce@ HLfcfo JfXgu Qgi cjm {Pm6r rv %w0y/ yzP H{|f |w  ΀΁   4  F Ɋ\ N   \ E#. u [-P ci ,~ _ ʙY ˟۟ ^ ܦ?' 3 8Ъ? >H O KV| !O8 PeI I ej _ j i  0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6W90P4MWO1487428974/F] WINDOWS _6W90P4MWP1490588693 '7  WINDOWS _6XK13A8081490588416 COMMENT RESERVED  wVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 125 Width = 590 DoCreate = .T. Caption = "Lista" Name = "Formulario_acep_canc1" Command1.Top = 96 Command1.Left = 228 Command1.TabIndex = 2 Command1.Name = "Command1" Command2.Top = 96 Command2.Left = 300 Command2.TabIndex = 3 Command2.Name = "Command2" AYUDA.TabIndex = 4 AYUDA.Name = "AYUDA" Text1.TabIndex = 5 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.TabIndex = 6 advertencia.Name = "advertencia" PROCEDURE validar if xbul_lista<=0 mensaje("Lista predefinida invlida !!!") return .f. endif return .t. ENDPROC PROCEDURE Init parameters xresultado, xtipo_operacion =DODEFAULT(xresultado) ENDPROC "llC% US%E+CLista predefinida invlida !!!B-BaU XBUL_LISTAMENSAJE 4 CU XRESULTADOXTIPO_OPERACIONvalidar0Init11qAq45s )lcod_desc_listas clases.vcx containerCod_desc_listas1Formulario_acep_canc1Top = 36 Left = 12 TabIndex = 1 dato = xbul_lista dato_tabla = m Name = "Cod_desc_listas1" Label2.Name = "Label2" Text8.Name = "Text8" Text9.Name = "Text9" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6WC0Q627Y1487626641/F] WINDOWS _6WC0Q627Z1487690920 ' WINDOWS _6WD0OM8561487690920 WINDOWS _6WD0OS5KA1487690920u COMMENT RESERVED s  GVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1[BorderStyle = 2 Height = 152 Width = 510 DoCreate = .T. Caption = "Exportacin de transferencias bancarias" Name = "Formulario_acep_canc1" Command1.Top = 120 Command1.Left = 182 Command1.TabIndex = 3 Command1.Name = "Command1" Command2.Top = 120 Command2.Left = 266 Command2.TabIndex = 4 Command2.Name = "Command2" AYUDA.TabIndex = 5 AYUDA.Name = "AYUDA" Text1.TabIndex = 6 Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Left = 312 advertencia.Top = 144 advertencia.TabIndex = 7 advertencia.Name = "advertencia"  cod_desc_cue clases.vcx container cod_desc_cue1Formulario_acep_canc1zTop = 36 Left = 5 Width = 499 Height = 39 TabIndex = 1 filtro = empty(complement) and (substr(atributo,21,1)="S" .or. substr(atributo,66,1)="S") dato = xcuenta dato_tabla = m Name = "cod_desc_cue1" Label2.Name = "Label2" Text8.Left = 79 Text8.Top = 4 Text8.Name = "Text8" Text9.Height = 25 Text9.Left = 163 Text9.Top = 5 Text9.Width = 324 Text9.Name = "Text9" lis_fec clases.vcx containerLis_fec1Formulario_acep_canc1Top = 72 Left = 4 Width = 324 Height = 40 BackStyle = 0 TabIndex = 2 texto_filtro_mostrar = .T. texto_filtro_descripcion = .T. desde = xdesde hasta = xhasta Name = "Lis_fec1" cmd_filtro.Name = "cmd_filtro" Label1.BackStyle = 0 Label1.Left = 8 Label1.Top = 10 Label1.Name = "Label1" Text1.Left = 80 Text1.Top = 6 Text1.Name = "Text1" Text2.Left = 183 Text2.Top = 6 Text2.Name = "Text2" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 Courier New, 0, 9, 7, 15, 12, 9, 3, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6YQ0Z75O31493533483/F] WINDOWS _6YQ0Z75O41493534585 ' WINDOWS _6YQ0Z75O51493534585'D( WINDOWS _6YQ0ZD3US1493534585q~1 COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1BorderStyle = 2 Height = 252 Width = 484 DoCreate = .T. Caption = "Control de Presupuestos" Name = "Formulario_acep_canc1" Command1.Top = 223 Command1.Left = 176 Command1.Name = "Command1" Command2.Top = 223 Command2.Left = 247 Command2.Name = "Command2" AYUDA.Name = "AYUDA" Text1.Name = "Text1" Ayuda_wiki1.Height = 19 Ayuda_wiki1.Width = 20 Ayuda_wiki1.Name = "Ayuda_wiki1" advertencia.Name = "advertencia"  cod_desc_cos clases.vcx container Cod_desc_cos1Formulario_acep_canc1DTop = 36 Left = 12 Width = 487 Height = 39 TabIndex = 11 dato = xcentro dato_tabla = m Name = "Cod_desc_cos1" Label2.Height = 17 Label2.Left = 5 Label2.Top = 8 Label2.Width = 98 Label2.Name = "Label2" Text8.Left = 157 Text8.Top = 4 Text8.Name = "Text8" Text9.Left = 239 Text9.Top = 4 Text9.Name = "Text9" PROCEDURE updated thisform.label1.Caption = "Genera una planilla Excel llamada costos.xls en la carpeta "+p_dir_export+"\"+xcentro ENDPROC A"((%U^[T;Genera una planilla Excel llamada costos.xls en la carpeta \UTHISFORMLABEL1CAPTION P_DIR_EXPORTXCENTROupdated012)(labellabelLabel1Formulario_acep_canc1sWordWrap = .T. BackStyle = 0 Caption = "Texto" Height = 144 Left = 20 Top = 72 Width = 444 Name = "Label1" PROCEDURE Init this.Caption = "Genera una planilla Excel llamada costos.xls en la carpeta "+p_dir_export+"\(el centro de costos)" ENDPROC 7"%UliT;Genera una planilla Excel llamada costos.xls en la carpeta \(el centro de costos)UTHISCAPTION P_DIR_EXPORTInit013)Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 Arial, 2, 9, 5, 15, 12, 23, 3, 0 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _6VV13M9AO1486394274/F] WINDOWS _6VV13M9AP1495042671 ' WINDOWS _6VV13M9AQ1487949260 WINDOWS _6VV13M9AR1487949283\i{1 WINDOWS _6ZD111LB21495042671) 9 I W t COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formulario_acep_canc clases.vcxformFormulario_acep_canc1PBorderStyle = 2 Height = 164 Width = 383 DoCreate = .T. Caption = "Informe Diario de Produccin" Name = "Formulario_acep_canc1" command1.Top = 132 command1.Left = 119 command1.TabIndex = 3 command1.Name = "command1" command2.Top = 132 command2.Left = 203 command2.TabIndex = 4 command2.Name = "command2" ayuda.TabIndex = 6 ayuda.Name = "ayuda" text1.TabIndex = 7 text1.Name = "text1" ayuda_wiki1.Height = 19 ayuda_wiki1.Width = 20 ayuda_wiki1.Name = "ayuda_wiki1" advertencia.Left = 348 advertencia.Top = 156 advertencia.TabIndex = 8 advertencia.Name = "advertencia" labellabelLabel3Formulario_acep_canc1AutoSize = .T. FontBold = .T. BackStyle = 0 Caption = "Fecha " Height = 17 Left = 37 Top = 39 Width = 39 TabIndex = 5 Name = "Label3" fecha clases.vcxtextboxText2Formulario_acep_canc1[ControlSource = "xfecha" Format = "E" Left = 89 TabIndex = 1 Top = 36 Name = "Text2" PROCEDURE Valid if dodefault() if type("xquincenan")="N" and p_cm_quincena>0 and xtipocompra=6 inicializar_quincena(this.value) thisform.combo1.Init endif endif ENDPROC PROCEDURE Init if p_dev and empty(this.Value) this.Value=date() endif ENDPROC "A%I~ fUm%Cf6%C xquincenanbN  bC U P_CM_QUINCENA XTIPOCOMPRAINICIALIZAR_QUINCENATHISVALUETHISFORMCOMBO1INIT1% C *TC$UP_DEVTHISVALUEValid0Init1aAA5A1 )checkboxcheckboxCheck1Formulario_acep_canc1Top = 72 Left = 36 Height = 13 Width = 169 Alignment = 0 Caption = "Silencioso" ControlSource = "xAutTMP" Name = "Check1" Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 1, 15, 10, 25, 19, 53, 5, 1 Arial, 1, 7, 4, 11, 9, 24, 2, 0 ,%%!+v/>,F Y8Un%Cproveedo IQproveedo$%Cbienescodins .CError al buscar el artculo: B-!%CbieauxCOD .CError al buscar el artculo: B-T %C (%C proveedocodProjT  *T Proveedor no encontrado !T Bruno SchilligT  %C  u'%C marcasCodigo [.CError al buscar la marca: B-T  T  )T CC  6T *%Ctmp_bieaux.descramplbM1/T CC  6 TT  T UXCOD_INSXBULXATRXDESCRXCOD_CLIXFEC_VENPROVEEDO MENSAJE_STHISOBJETONOMBREBIENESCOD_PRO PROVEEDOR FABRICANTEMARCAMARCASDESCRMODELOCOD_FABRICANTE DESCRIPCIONBIEAUX DESCRAMPLCOMPRA)BCC6UOOBJTYPEOTHISOBJETO5+ T C  T C  T C  T C  T C  T C  T C  T C  T C  T C  C UXCOMPROBXCAUSAXITEMXSUBITEM XDESPACHOXQRXCFGXSERIEXESTADO XPLAT_REGTHIS COMPROBANTECAUSAITEMSUBITEMDESPACHOQRCFGSERIEESTADOPLAT_REG CREAR_OBJETO3BC UXDATAXCLASE XLIBRERIA XNOASIGNARTHISOBTENER_OBJETO3TC TC TC %C TC TCN#%  C T  %#TT T BU XDATAXCLASE XLIBRERIAXASIGNAROOBJETOTHIS CLASE_OBJETOCLASE_LIBRERIACFGUUIDQROBJETO  TTGET TC1CF:\Sistema\Temp\Activos\GETC]( TTCg BU XURLXSTATUSLCHTMLTHISOHTTP CHTTPVERBHTTPGETOEX CRESULTCODE}*%CxJSONbO CxJSON TCa2CF:\Sistema\Temp\Activos\PostC]#Tapplication/jsonTPOSTT %C +C-application/json  =T C ( X T TCg B UXURLXJSONXSTATUSXCOL2ARR NFJSONCREATETHISOHTTP CCONTENTTYPE CHTTPVERB NHTTPPOSTMODE ADDPOSTKEYLCHTMLHTTPGETOEX CRESULTCODE{*%CxJSONbO CxJSON TCa1CF:\Sistema\Temp\Activos\PUTC]#Tapplication/jsonTPUTT %C +C-application/json  ;T C ( V T TCg B UXURLXJSONXSTATUSXCOL2ARR NFJSONCREATETHISOHTTP CCONTENTTYPE CHTTPVERB NHTTPPOSTMODE ADDPOSTKEYLCHTMLHTTPGETOEX CRESULTCODEJ%C 7TCwwHTTPN BUTYPEOTHISOHTTPWWCLIENT1 TC BU XENDPOINTXSERVERTHISSERVER_BACKENDm0TCC unique-by-id/CCZTC BUXIDOOBJ XNOASIGNARXRESPTHIS HTTP_OBTENER OBTENER_URL CREAR_OBJETOe(TCCunique/CTC BUXUUIDOOBJ XNOASIGNARXRESPTHIS HTTP_OBTENER OBTENER_URL CREAR_OBJETO-TCCxUUIDbC 6+TCCxIDbN 6Hx C TC C TC 2T BU XUUIDXID XNOASIGNARTHISOBJETOUUID ID_ACTIVOOOBJOBTENER_BYUUID OBTENER_BYIDaTC%?BC ZBCUOOBJTHISVALIDAR_OBJETO NUEVO_ACTIVO CREAR_ACTIVOACTUALIZAR_ACTIVO4   TTC3TCCupdate/C%T  C (CSe actualiz el activo! $SC-Error al obtener al actualizar el activo !!! C CZ:  BU OOBJXAUTXRESPXSTATUSTHISVALIDAR_OBJETO HTTP_PUTTER OBTENER_URLUUIDESTADO LEER_DATA MENSAJE_A %TCCassets%TCTCC  B HC"Error al obtener el ltimo ID !!! C CZ: BU XAUTXRESPXSTATUSTHIS HTTP_OBTENER OBTENER_URLOCOL NFJSONREADOOBJ2ARRAY ID_ACTIVO MENSAJE_A  TTCT%TC % BT)TCCcreate  %/C T  #CSe cre el activo! RCError al crear el activo!!! C C C CZ: BUOOBJXAUTXRESPXSTATUSXIDTHISVALIDAR_OBJETOUUID ID_ACTIVOOBTENER_ULTIMO_ID HTTP_POSTEAR OBTENER_URL LEER_DATAESTADO MENSAJE_AJTC %C CCUXDATATHIS DATA_JSON LEER_DATA UXDATA&TCa BUXJSON NFJSONCREATETHIS$TC BUTHIS NUEVO_ACTIVOUUID.$TCC 6UTCUUIDTHISUUID.$TCC 6U TNID_ACTIVOTHIS ID_ACTIVO.$TCC 6UTNID_CATEGORIA_ACTIVOTHISID_CATEGORIA_ACTIVO.$TCC 6U TCCLIENTETHIS ID_CLIENTE.$TCC 6UTNID_SUBUBICACIONTHISID_SUBUBICACION.$TCC 6UTCNOMBRETHISNOMBRE.$TCC 6UTCMARCATHISMARCA.$TCC 6UTCMODELOTHISMODELO.$TCC 6UTCCOD_FABRICANTETHISCOD_FABRICANTE.$TCC 6UTCSERIALTHISSERIAL.$TCC 6U TCDESCRIPCIONTHIS DESCRIPCION.$TCC 6U TCFABRICANTETHIS FABRICANTE.$TCC 6U TCPROVEEDORTHIS PROVEEDOR.$TCC 6UTDCOMPRATHISCOMPRA.$TCC 6UTNID_ACTIVO_PADRETHISID_ACTIVO_PADRE.$TCC 6U TCGARANTIATHISGARANTIA.$TCC 6UTCNIVEL_RIESGOTHIS NIVEL_RIESGO.$TCC 6U TCTIPO_RIESGOTHIS TIPO_RIESGO.$TCC 6UTNMTBFTHISMTBF.$TCC 6UTNINSPECCION_CADATHISINSPECCION_CADA.$TCC 6UTCESTADOTHISESTADO.$TCC 6U TNGENERICOTHISGENERICO  S TTCC(/CError al leer el JSONC   U XDATAOOBJMOTHISTHIS NFJSONREADODEYFUNCOBJETOSCLONAROERR MENSAJE_SMESSAGELlenar_Datos_Base0validar_objetoINIT crear_objetoobtener_objeto9 http_obtener http_postear  http_putter  oHTTP_Access" Obtener_URL obtener_byIDobtener_byUUIDObtener_Activos Enviar_Activoactualizar_activoObtener_Ultimo_ID0 Crear_ActivoINIT Leer_Data7 Obtener_JSONPNuevo_Activo_Access UUID_assignID_Activo_assign)id_categoria_activo_assign}id_cliente_assignid_sububicacion_assign8 nombre_assign marca_assign modelo_assign2cod_fabricante_assign serial_assigndescripcion_assign,fabricante_assignproveedor_assign compra_assign.id_activo_padre_assign|garantia_assignnivel_riesgo_assign.tipo_riesgo_assign mtbf_assigninspeccion_cada_assign* estado_assigngenerico_assign Leer_Data* PTC XT T TTCX TT{} T T-"T in_activo_integracionT in_activos.prg T  T - T  T         U COMPROBANTECAUSAITEMSUBITEMDESPACHOQRCFGSERIEOBJETO CLASE_OBJETOCLASE_LIBRERIASERVER_BACKENDOHTTPESTADOPLAT_REG#Tsch_activo_neuralboost>T1https://neuralboost.acuraflow.com/backend/activo/T neuralboost    U CLASE_OBJETOSERVER_BACKENDPLAT_REG9 T Ta   U DATA_JSON NUEVO_ACTIVO T T T T T T TTCX T T  T  T  T T  T T T T T T T T            ! " # $ % & ' ( ) * + ,UUUID ID_ACTIVOID_CATEGORIA_ACTIVO ID_CLIENTEID_SUBUBICACIONNOMBREMARCAMODELOCOD_FABRICANTESERIAL DESCRIPCION FABRICANTE PROVEEDORCOMPRAID_ACTIVO_PADREGARANTIA NIVEL_RIESGO TIPO_RIESGOMTBFINSPECCION_CADAESTADOGENERICO in_activoCUSTOMW%in_activo_neuralboost in_activo;'in_activo_integracionCUSTOM-(sch_activo_neuralboostin_activo_integracion( 1AAAqAqA3RaABRqqAaC1A1=q22121qaaa!AA11AA2qaAQ21!A1q1!AAQ11A1a1!AAQ1qqA2a>q3q2!!A2qQ!A2Q111A2qQ2!A2QaQ1AAA21!A7q!A2q2q11Q3qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA2qA3q!A1!@@0<1p151<Z+;{R. V; V d>| hR }_*r:]f'P 1xXN!!F",h"{"3""6%%T&[&Xg&&[&'^'(a((d()g())j))m)*p **s++v+,y,,|,,,--. ..#."/&.//)/$0,000/012,12=$[X!g!")m4#2=ges_actualizador.prgc:\users\diego\appdata\local\temp\ges_actualizador.fxp.\ges_actualizador.scxges_actualizador.sctbmp\logowind.icosalir2.icoexit_h.icosys_procesando.prgsys_procesando.fxpges_actualizador_fe.prgges_actualizador_fe.fxpges_actualizador_iibb.prgges_actualizador_iibb.fxpdey_func2.prgdey_func2.fxpsys_padron_iibb.prgsys_padron_iibb.fxpmensaje.prgmensaje.fxpobjetos.vcxobjetos.vctini_funciones.prgini_funciones.fxpft05.prgft05.fxplistados.prglistados.fxpinicial.prginicial.fxpwwapi.prgwwapi.fxpsys_clases_herramientas.prgsys_clases_herramientas.fxpsys_wiki.prgsys_wiki.fxpsys_security.prgsys_security.fxpsys_network.prgsys_network.fxpsys_clases_conexion.prgsys_clases_conexion.fxpsys_funciones.prgsys_funciones.fxpsys_alertas_spool.prgsys_alertas_spool.fxptrsac.prgtrsac.fxpsys_mail_spool.prgsys_mail_spool.fxpsys_sistema.prgsys_sistema.fxpsys_comprobar_smb2_fix.prgsys_comprobar_smb2_fix.fxpsys_doscen.prgsys_doscen.fxpco_asientos.prgco_asientos.fxpabmidx03.prgabmidx03.fxpctrl.prgctrl.fxpabmcombinaciones.prgabmcombinaciones.fxpsys_empresas.prgsys_empresas.fxpproc_stk.prgproc_stk.fxpimplst.prgimplst.fxpsys_clases_printpdf.prgsys_clases_printpdf.fxpcm_imp_funciones.prgcm_imp_funciones.fxpsys_clases_tablas.prgsys_clases_tablas.fxpco_funciones.prgco_funciones.fxpdey_fill.prgdey_fill.fxppr_planeamiento_grilla.prgpr_planeamiento_grilla.fxpcm_funciones.prgcm_funciones.fxpinternet.prginternet.fxpsys_clases_crypto.prgsys_clases_crypto.fxpsys_clases_conexion_mysql.prgsys_clases_conexion_mysql.fxpsys_clases_conexion_upsizing.prgsys_clases_conexion_upsizing.fxplogmsg.prglogmsg.fxparreglos.prgarreglos.fxperr_hand.prgerr_hand.fxpsys_mail.prgsys_mail.fxpsys_comandos.prgsys_comandos.fxpsys_clases_actualizaciones.prgsys_clases_actualizaciones.fxpsys_clases_empresas.prgsys_clases_empresas.fxpsys_clases_usuarios.prgsys_clases_usuarios.fxpdey_func.prgdey_func.fxpco_comienzo.prgco_comienzo.fxpco_imprimir_asientos.prgco_imprimir_asientos.fxpte_procs.prgte_procs.fxpabrir_tablas_fijas.prgabrir_tablas_fijas.fxpge01.prgge01.fxpge02.prgge02.fxpbienes2.prgbienes2.fxpprint2pdf.prgprint2pdf.fxpcs_generar.prgcs_generar.fxpcm_imp_asiento.prgcm_imp_asiento.fxpsys_verificar2.prgsys_verificar2.fxpsys_verificar_tablas.prgsys_verificar_tablas.fxppr_maquinas.prgpr_maquinas.fxpwwutils.prgwwutils.fxpes_ind_gen_art.prges_ind_gen_art.fxpmotivos.prgmotivos.fxpsys_equipos_cerrar_forzado.prgsys_equipos_cerrar_forzado.fxpsys_equipos_cerrar.prgsys_equipos_cerrar.fxpsys_diseo.prgsys_diseo.fxpif_impresoras.prgif_impresoras.fxpif_auxiliar.prgif_auxiliar.fxpif_conversores.prgif_conversores.fxpif_drivers.prgif_drivers.fxpif_drivers1.prgif_drivers1.fxpif_drivers2.prgif_drivers2.fxpif_objetos.prgif_objetos.fxpif_protocolo.prgif_protocolo.fxpes_sch_copiar_archivos.prges_sch_copiar_archivos.fxpin_faltantes_x_deposito_task.prgin_faltantes_x_deposito_task.fxpin_faltantes_task.prgin_faltantes_task.fxpsys_mail_task.prgsys_mail_task.fxpsys_mail_spool_task.prgsys_mail_spool_task.fxpsys_verificar2_tablas.prgsys_verificar2_tablas.fxpsys_padron_iibb_task.prgsys_padron_iibb_task.fxpve_pedidos_a_vencer_task.prgve_pedidos_a_vencer_task.fxpavfp_log.prgavfp_log.fxpsys_ages.prgsys_ages.fxpwwsocket.prgwwsocket.fxpsys_verificar2_store_procedure.prgsys_verificar2_store_procedure.fxpsys_sincronizacion.prgsys_sincronizacion.fxpve_data_importar_clientes_generico.prgve_data_importar_clientes_generico.fxpsys_winsock.prgsys_winsock.fxpsys_mail_funciones.prgsys_mail_funciones.fxpcdo2000.prgcdo2000.fxpsys_actualizaciones.prgsys_actualizaciones.fxpsys_upload_ip.prgsys_upload_ip.fxpmonitor2.prgmonitor2.fxpavfp_objects_definiciones.prgavfp_objects_definiciones.fxpve_pedido.prgve_pedido.fxpte_cob_reimpresion.prgte_cob_reimpresion.fxpco_aut.prgco_aut.fxpte_cobranza.prgte_cobranza.fxpve_anular_comprobante.prgve_anular_comprobante.fxpco_ventas.prgco_ventas.fxpve_sql_cuentas_corrientes.prgve_sql_cuentas_corrientes.fxpcm_procs.prgcm_procs.fxpte_pago.prgte_pago.fxpcm_anular_comprobante.prgcm_anular_comprobante.fxpco_compras.prgco_compras.fxpte_anu_pag.prgte_anu_pag.fxpco_pagos.prgco_pagos.fxpabmbul_gen.prgabmbul_gen.fxpabmatr_gen.prgabmatr_gen.fxpabm_lis_pre.prgabm_lis_pre.fxpps2pdf.prgps2pdf.fxplog_errores.prglog_errores.fxpcs_anular_cierre.prgcs_anular_cierre.fxpcm_imp_ingreso.prgcm_imp_ingreso.fxpsys_verificar.prgsys_verificar.fxpve_numfac.prgve_numfac.fxppr_funciones.prgpr_funciones.fxppr_ordenes.prgpr_ordenes.fxppr_cierre_old.prgpr_cierre_old.fxppr_cierre.prgpr_cierre.fxppr_planificar_nuva.prgpr_planificar_nuva.fxpsql_rptinventarioactual.prgsql_rptinventarioactual.fxpsys_mail_alertas.prgsys_mail_alertas.fxpve_sql_productos_pendientes_de_entrega_v3.prgve_sql_productos_pendientes_de_entrega_v3.fxpsys_ages_externo.prgsys_ages_externo.fxpsys_upload_ftp.prgsys_upload_ftp.fxpwconnect.prgwconnect.fxpmonitor2_preset.prgmonitor2_preset.fxpmonitor2_intercambio.prgmonitor2_intercambio.fxpmonitor_an04.prgmonitor_an04.fxpve_procs.prgve_procs.fxpve_comprobante.prgve_comprobante.fxpve_funciones.prgve_funciones.fxpve_aprobacion.prgve_aprobacion.fxpve_presupuesto.prgve_presupuesto.fxpve_cambiar_lotes.prgve_cambiar_lotes.fxpve_deuda.prgve_deuda.fxpsys_padron_agip.prgsys_padron_agip.fxpsys_padron_agip_superados.prgsys_padron_agip_superados.fxpsys_padron_agip_nuevo.prgsys_padron_agip_nuevo.fxpsys_cons.prgsys_cons.fxpte_comienzo.prgte_comienzo.fxpfiles.prgfiles.fxpte_ncndaut.prgte_ncndaut.fxpco_cobranzas.prgco_cobranzas.fxpsys_comisiones.prgsys_comisiones.fxpve_comienzo.prgve_comienzo.fxpve_cancelar_pedido.prgve_cancelar_pedido.fxpdey_filters.prgdey_filters.fxpcm_compra.prgcm_compra.fxpcm_terminar_orden_de_compra.prgcm_terminar_orden_de_compra.fxpcm_imp_imprimir.prgcm_imp_imprimir.fxpin_despacho.prgin_despacho.fxpdey_relaciones.prgdey_relaciones.fxpges_gen.prgges_gen.fxpfe_funciones.prgfe_funciones.fxpsys_vistas.prgsys_vistas.fxpsys_mant_varios.prgsys_mant_varios.fxppr_envasado.prgpr_envasado.fxppla_produccion.prgpla_produccion.fxppr_sql_producciones.prgpr_sql_producciones.fxpsys_performance.prgsys_performance.fxpve_armar_despacho.prgve_armar_despacho.fxpwconnect2.prgwconnect2.fxpin_consulta_faltantes.prgin_consulta_faltantes.fxpsys_monitor_latido.prgsys_monitor_latido.fxpan04.prgsys_clases_tests.prgsys_clases_tests.fxpfe_objetos.prgfe_objetos.fxpge01_provisiones.prgge01_provisiones.fxpve_orden_de_picking.prgve_orden_de_picking.fxpve_procesar_acuerdos.prgve_procesar_acuerdos.fxpqdfoxjson.prgqdfoxjson.fxpvpedido.prgvpedido.fxpsys_pdf_archivado.prgsys_pdf_archivado.fxpimp_exp_p.prgimp_exp_p.fxpin_controlar_sol.prgin_controlar_sol.fxpcm_imp_apertura.prgcm_imp_apertura.fxpabm_genericos.prgabm_genericos.fxpabmrecibos_talonarios.prgabmrecibos_talonarios.fxppr_comienzo.prgpr_comienzo.fxpfe_funciones_cot.prgfe_funciones_cot.fxpborrar_cot.prgborrar_cot.fxpfoxbarcodeqr.prgfoxbarcodeqr.fxpve_sql_estadisticas.prgve_sql_estadisticas.fxpi2of5.prgi2of5.fxpin_solcom.prgin_solcom.fxpve_sql_estadisticas_auxiliar.prgve_sql_estadisticas_auxiliar.fxpblowfish.vcxblowfish.vctsys_mostrar_screen.prgsys_mostrar_screen.fxpuser_log.prguser_log.fxpestado.scxestado.sctmensaje_sino.prgmensaje_sino.fxpmd5.vcxmd5.vctsys_download_ftp.prgsys_download_ftp.fxpsets.prgsets.fxpr_cfgcon.prgr_cfgcon.fxppregunta.prgpregunta.fxpclases.vcxclases.vctgui_rea.prggui_rea.fxpsys_formularios.vcxsys_formularios.vctmensaje_suspendo.prgmensaje_suspendo.fxpind_inicial.prgind_inicial.fxpimp_exp.vcximp_exp.vct_crypt.vcx_crypt.vctunlock_all.prgunlock_all.fxptypeo.prgtypeo.fxpreporte.prgreporte.fxplog_mensaje.prglog_mensaje.fxpgui_get.prggui_get.fxpsys_cierre_balance.prgsys_cierre_balance.fxpacceso.prgacceso.fxplogact.prglogact.fxpsys_browse.prgsys_browse.fxpfile_loc.prgfile_loc.fxpreg_lock.prgreg_lock.fxplog_time.prglog_time.fxpsys_contstk.prgsys_contstk.fxpform_controles.vcxform_controles.vctes_ind_datos.prges_ind_datos.fxpmensajes.vcxmensajes.vctmensajes_ver.vcxmensajes_ver.vcterr_hand_dev.prgerr_hand_dev.fxpgui_get3.prggui_get3.fxpve_menu.mprve_menu.mpxin_menu.mprin_menu.mpxco_menu.mprco_menu.mpxcm_menu.mprcm_menu.mpxpr_menu.mprpr_menu.mpxte_menu.mprte_menu.mpxcs_menu.mprcs_menu.mpxgs_menu.mprgs_menu.mpxsysmsg_main.mprsysmsg_main.mpxes_menu_sch.mpres_menu_sch.mpxes_menu_ind.mpres_menu_ind.mpxes_menu_cle.mpres_menu_cle.mpxes_menu_nuv.mpres_menu_nuv.mpxes_menu_sel.mpres_menu_sel.mpxes_menu_cal.mpres_menu_cal.mpxes_menu_car.mpres_menu_car.mpxes_menu_ele.mpres_menu_ele.mpxes_menu_mtz.mpres_menu_mtz.mpxes_menu_ifm.mpres_menu_ifm.mpxes_menu_zar.mpres_menu_zar.mpxes_menu_dlc.mpres_menu_dlc.mpxes_menu_bla.mpres_menu_bla.mpxes_menu_uni.mpres_menu_uni.mpxco_diario_ver.mprco_diario_ver.mpxes_menu_cam.mpres_menu_cam.mpxes_menu_dal.mpres_menu_dal.mpxes_menu_vil.mpres_menu_vil.mpxes_menu_cl7.mpres_menu_cl7.mpxes_menu_sam.mpres_menu_sam.mpxes_menu_est.mpres_menu_est.mpxes_menu_ese.mpres_menu_ese.mpxes_menu_mcl.mpres_menu_mcl.mpxes_menu_seg.mpres_menu_seg.mpxes_menu_bel.mpres_menu_bel.mpxes_menu_tfw.mpres_menu_tfw.mpxes_menu_sri.mpres_menu_sri.mpxes_menu_lec.mpres_menu_lec.mpxes_menu_pap.mpres_menu_pap.mpxes_menu_gab.mpres_menu_gab.mpxge01_menu.mprge01_menu.mpxge02_menu.mprge02_menu.mpxve_control_de_presupuestos_menu.mprve_control_de_presupuestos_menu.mpxve_control_de_asistencias_menu.mprve_control_de_asistencias_menu.mpxmain.mprve_control_de_pedidos_menu.mprve_control_de_pedidos_menu.mpxve_control_de_armados_menu.mprve_control_de_armados_menu.mpxmain_punto_de_venta.mprmain_punto_de_venta.mpxmain_local.mprmain_local.mpxdet01.frxdet01.frtven_vis1.qprven_vis1.qpxven_vis2.qprven_vis2.qpxven_vis3.qprven_vis3.qpxven_vis4.qprven_vis4.qpxabmbase.prgabmbase.fxpif_drivers.vcxif_drivers.vctnfjsoncreate.prgnfjsoncreate.fxpnfjsonread.prgnfjsonread.fxpwwclient.prgwwclient.fxpsys_monitor_preparar_update.prgsys_monitor_preparar_update.fxpsys_monitor_descargar_iibb.prgsys_monitor_descargar_iibb.fxpsys_verificar2_rama.prgsys_verificar2_rama.fxpsys_m.prgsys_m.fxpcontrol_locks.prgcontrol_locks.fxpreclamos_pendientes.frxreclamos_pendientes.frtsys_operacion_fondos.prgsys_operacion_fondos.fxpsys_mail_outlook.prgsys_mail_outlook.fxpge01_email_confirmacion.prgge01_email_confirmacion.fxpcs_costos_copia.prgcs_costos_copia.fxpsys_cfg.prgsys_cfg.fxpsql_funciones.prgsql_funciones.fxpsys_reg_compare.prgsys_reg_compare.fxp_ubroker.prg_ubroker.fxp_utmapper.prg_utmapper.fxpsys_entidades.prgsys_entidades.fxpsys_mirror_funciones.prgsys_mirror_funciones.fxpsys_contenedores.prgsys_contenedores.fxpean13.prgean13.fxpdun14.prgdun14.fxpsql_rptmovcondet.prgsql_rptmovcondet.fxpsys_conversores.prgsys_conversores.fxpve_factura_inmediata.prgve_factura_inmediata.fxpve_armado.prgve_armado.fxpcm_sql_pagos_con_imputaciones.prgcm_sql_pagos_con_imputaciones.fxpcm_sql_compras.prgcm_sql_compras.fxppr_reimprimir_ordenes.prgpr_reimprimir_ordenes.fxppr_protocolos.prgpr_protocolos.fxpte_renumeracion_cheques_propios.prgte_renumeracion_cheques_propios.fxptfw_control_stock.prgtfw_control_stock.fxpge02_provisiones.prgge02_provisiones.fxpcm_anular_orden_de_compra.prgcm_anular_orden_de_compra.fxpve_control_de_presupuestos.prgve_control_de_presupuestos.fxpve_asistencias.prgve_asistencias.fxpve_control_de_asistencias.prgve_control_de_asistencias.fxpclientes.prgclientes.fxpsys_georeferenciar.prgsys_georeferenciar.fxpsucursales.prgsucursales.fxpproveedores.prgproveedores.fxpcomienzo.prgcm_comienzo.prgcm_comienzo.fxpin_comienzo.prgin_comienzo.fxpes_comienzo.prges_comienzo.fxpve_control_de_pedidos.prgve_control_de_pedidos.fxpve_impresion_rotulos.prgve_impresion_rotulos.fxpin_control_armado.prgin_control_armado.fxpsys_barcodes.prgsys_barcodes.fxpbienes2_validar.prgbienes2_validar.fxpsys_triggers.prgsys_triggers.fxpsys_gmap.prgsys_gmap.fxpsys_log_operaciones.prgsys_log_operaciones.fxpve_reimprimir_comprobante.prgve_reimprimir_comprobante.fxpcm_ctacte_proveedores_detallada_v2.prgcm_ctacte_proveedores_detallada_v2.fxpcm_reimprimir_op.prgcm_reimprimir_op.fxpcm_reimprimir_oc.prgcm_reimprimir_oc.fxpte_pag_reimpresion.prgte_pag_reimpresion.fxp_ucursoradapterges.prg_ucursoradapterges.fxpve_sql_facturas_a_cobrar.prgve_sql_facturas_a_cobrar.fxp_uglobals.prg_uglobals.fxpin_mantenimiento.prgin_mantenimiento.fxpve_consolidar_pedidos.prgve_consolidar_pedidos.fxpsys_system.prgsys_system.fxpsys_mensajes.prgsys_mensajes.fxpsys_clases_conexion_red.prgsys_clases_conexion_red.fxpve_reanalizar_pedidos.prgve_reanalizar_pedidos.fxpcodbar.prgcodbar.fxpve_orden_de_preparacion.prgve_orden_de_preparacion.fxpsys_triggers_setting.prgsys_triggers_setting.fxpsys_webizar.prgsys_webizar.fxp_umetainfo.prg_umetainfo.fxpsys_cpzero.prgsys_cpzero.fxppr_anular.prgpr_anular.fxplog_aut.prglog_aut.fxppr_dias_stock.prgpr_dias_stock.fxpsys_zip.prgsys_zip.fxpsys_killproc.prgsys_killproc.fxpnfcursortoobject.prgnfcursortoobject.fxpnfcursortojson.prgnfcursortojson.fxpve_ap_credito.prgve_ap_credito.fxpve_ap_stock.prgve_ap_stock.fxpbienes.prgbienes.fxpve_seguimiento.prgve_seguimiento.fxpve_bul_pes_vol.prgve_bul_pes_vol.fxpvrecibo.prgvrecibo.fxpco_depositos.prgco_depositos.fxpve_reg_cpbt_electronico_fev1.prgve_reg_cpbt_electronico_fev1.fxpcm_oc_mantenimiento.prgcm_oc_mantenimiento.fxpte_retib.prgte_retib.fxpvopago.prgvopago.fxpsys_dump.prgsys_dump.fxpsys_verificar2_versionado.prgsys_verificar2_versionado.fxpsys_doscen_between.prgsys_doscen_between.fxpvld_atributos.prgvld_atributos.fxpdb_log.prgdb_log.fxpsys_optimiza.prgsys_optimiza.fxppr_sql_apertura_op.prgpr_sql_apertura_op.fxpmensaje_snx.prgmensaje_snx.fxppr_informar_bajo_stock_minimo.prgpr_informar_bajo_stock_minimo.fxpsys_send_mail.prgsys_send_mail.fxpreg_factura_electronica_bfev1.prgreg_factura_electronica_bfev1.fxpreg_factura_electronica_fev1.prgreg_factura_electronica_fev1.fxpvopoc.prgvopoc.fxppr_sql_envasado.prgpr_sql_envasado.fxpsys_doscen_inlist.prgsys_doscen_inlist.fxpve_enviar_mails_remitos.prgve_enviar_mails_remitos.fxplog_ult.prglog_ult.fxpsam_vpedido_op.prgsam_vpedido_op.fxpve_mails_remitos.prgve_mails_remitos.fxplog_aut_verbose.prglog_aut_verbose.fxpatencion.icoreporte.icoflecha_izquierda_rj.gifflecha_izquierda_gr.gifflecha_derecha_rj.gifflecha_derecha_gr.gifexcel.gifgrafico.frxgrafico.frtpreview.icoimpresora.gifemail.gifir.gifhelp_icon.gifidea.pngayuda.icoeditar.icohlp_priv.icofiltro1.gifhlpdoc.icotxt_2.icomas.icohlp_bienes2.prghlp_bienes2.fxptc.vcxtc.vctborrar.icohlp_bienes.prghlp_bienes.fxpconsulta.icousuario_rojo.icoedit_azul.pngpreview2.icopreview2_h.icoexit.icoerr_hand_oex.prgerr_hand_oex.fxpexcel.icoexcel_h.icoaccess_32.icoaccess_32_h.icoprint2.icoprint2_h.icotxt_2_h.icotable.icotable_h.icopdf.icopdf_h.icoarchivo.icoarchivo_h.icoayuda_ges.pnghelp_icon_disabled.gifsys_validar_anulaciones.prgsys_validar_anulaciones.fxpfile_notepad.icoflatscreen.icogrids.icosalir.gifspooler.icospooler_h.icono_print2.icono_print2_h.icoexportar_excel.pngimportar_excel.jpglupa32x32.gifstk_vis.mprstk_vis.mpxform_grilla_controles.vcxform_grilla_controles.vctninguno.icotodos.icoinvertir.icomenos.icopackage.icook.pngcandado_cerrado.icocandado_abierto2.icoredo.icopedido.icove_analizar_pedidos.prgve_analizar_pedidos.fxpve_pedidos_recibidos.prgve_pedidos_recibidos.fxpve_anular_pedido.prgve_anular_pedido.fxpve_mantenimiento_pedidos.prgve_mantenimiento_pedidos.fxpve_rotulos_de_facuras_y_remitos.prgve_rotulos_de_facuras_y_remitos.fxpve_importaciones_krikos.prgve_importaciones_krikos.fxpfc.icove_cambio_de_estado_de_remitos.prgve_cambio_de_estado_de_remitos.fxpve_liberar_remitos.prgve_liberar_remitos.fxpve_asociar_remito_a_factura.prgve_asociar_remito_a_factura.fxpdespacho.icove_predespacho.prgve_predespacho.fxpve_armar_despacho_por_remito_lista.prgve_armar_despacho_por_remito_lista.fxpin_sql_movimientos.prgin_sql_movimientos.fxpsys_mailctas.prgsys_mailctas.fxpsys_cierres.prgsys_cierres.fxpfe_objetos_krikos.prgfe_objetos_krikos.fxpcs_costo_adicional.prgcs_costo_adicional.fxpcm_imp_modificar_factor.prgcm_imp_modificar_factor.fxpin_operaciones.prgin_operaciones.fxpcls_formularios_funciones.prgcls_formularios_funciones.fxpborrar_graficos.prgborrar_graficos.fxpve_vis_cpbt.prgve_vis_cpbt.fxpve_liberacion_de_entrega.prgve_liberacion_de_entrega.fxpve_imprimir_etiquetas_correo.prgve_imprimir_etiquetas_correo.fxpve_fe_visualizar.prgve_fe_visualizar.fxpve_sql_pedidos.prgve_sql_pedidos.fxpve_terminar_despacho.prgve_terminar_despacho.fxpfe_funciones_separadores.prgfe_funciones_separadores.fxpin_calidad.prgin_calidad.fxpin_funciones.prgin_funciones.fxpin_rotulos.prgin_rotulos.fxpcode128.prgcode128.fxpctacte.icocc_cli_export.prgcc_cli_export.fxpes_deuda_clientes.prges_deuda_clientes.fxppdf_icon.gifve_spooler.prgve_spooler.fxpve_rotulos.prgve_rotulos.fxpve_procesar_ncnd_aut.prgve_procesar_ncnd_aut.fxpve_rentabilidad.prgve_rentabilidad.fxpve_modif_cpbt.prgve_modif_cpbt.fxpve_cesion_a_cliente.prgve_cesion_a_cliente.fxpdos_transf.prgdos_transf.fxparmadores.prgarmadores.fxpve_facturas_exportar.prgve_facturas_exportar.fxpve_demora.prgve_demora.fxpve_cambio_de_tc.prgve_cambio_de_tc.fxpabm_acuerdos.prgabm_acuerdos.fxpve_consulta_ventas.prgve_consulta_ventas.fxpsys_mostrar_directorio.prgsys_mostrar_directorio.fxpconfig.icove_facturacion_de_remitos.prgve_facturacion_de_remitos.fxpve_despacho_factura.prgve_despacho_factura.fxpin_anular_operacion.prgin_anular_operacion.fxpin_control_movimientos.prgin_control_movimientos.fxpin_asig_lote_aux.prgin_asig_lote_aux.fxpin_protocolos_mod.prgin_protocolos_mod.fxpin_cierre_clasificacion.prgin_cierre_clasificacion.fxpin_pallet_desarmar.prgin_pallet_desarmar.fxpin_solcom_numero_aux.prgin_solcom_numero_aux.fxpve_armado_imprimir.prgve_armado_imprimir.fxpmotinv.prgmotinv.fxpabmprotocolo1.prgabmprotocolo1.fxpin_modelos.prgin_modelos.fxpin_stk_export.prgin_stk_export.fxpdos_transf_stk.prgdos_transf_stk.fxpin_faltantes2.prgin_faltantes2.fxpin_faltantes.prgin_faltantes.fxpco_menu_asiento.prgco_menu_asiento.fxpco_asientos_automaticos.prgco_asientos_automaticos.fxpco_costo_de_produccion.prgco_costo_de_produccion.fxpco_costo_de_venta.prgco_costo_de_venta.fxpco_provision_acuerdos.prgco_provision_acuerdos.fxpco_costo_ajustes_de_inventario.prgco_costo_ajustes_de_inventario.fxpco_remitos_a_facturar.prgco_remitos_a_facturar.fxpabmejercicios.prgabmejercicios.fxpco_interco.prgco_interco.fxpco_ajuste_por_inflacion.prgco_ajuste_por_inflacion.fxpimpuestos.pngafip.pngcm_control_de_ocs.prgcm_control_de_ocs.fxpcm_consulta_oc.prgcm_consulta_oc.fxpcm_consulta_op.prgcm_consulta_op.fxpcm_comisiones.prgcm_comisiones.fxpcm_modif_cpbt.prgcm_modif_cpbt.fxpcm_desglosar.prgcm_desglosar.fxpcm_imp_anulacion_ingreso.prgcm_imp_anulacion_ingreso.fxpcm_imp_cierre.prgcm_imp_cierre.fxppr_planeamiento_por_maquina.prgpr_planeamiento_por_maquina.fxpin_minimos.prgin_minimos.fxppr_llenar_batch_minimo.prgpr_llenar_batch_minimo.fxppr_maq_imprimir_planilla.prgpr_maq_imprimir_planilla.fxppr_cierre_batch.prgpr_cierre_batch.fxppr_reabrir_op.prgpr_reabrir_op.fxppr_etapas.prgpr_etapas.fxppr_formulas.prgpr_formulas.fxppr_cambio_de_componentes.prgpr_cambio_de_componentes.fxppr_sql_formula.prgpr_sql_formula.fxpabmmaquinas.prgabmmaquinas.fxpabmmaquinas_grupo.prgabmmaquinas_grupo.fxpabmoperario.prgabmoperario.fxpimpresora.icopago.icote_anu_rec.prgte_anu_rec.fxpte_cob_modif_cpbt.prgte_cob_modif_cpbt.fxpte_numeracion_recibos.prgte_numeracion_recibos.fxpte_gen_ncnd.prgte_gen_ncnd.fxpte_agregar_a_batch.prgte_agregar_a_batch.fxpte_pago_contado_modif.prgte_pago_contado_modif.fxpte_asignar_recibo_proveedor.prgte_asignar_recibo_proveedor.fxpte_anu_ret.prgte_anu_ret.fxpctasbanc.prgctasbanc.fxpabmbancos.prgabmbancos.fxpcheque.icote_deposito.prgte_deposito.fxpte_anu_dep.prgte_anu_dep.fxpte_dep_cambio_fecha.prgte_dep_cambio_fecha.fxpte_deposito_reimpresion.prgte_deposito_reimpresion.fxpte_extraccion.prgte_extraccion.fxpte_anu_ext.prgte_anu_ext.fxpte_extraccion_reimpresion.prgte_extraccion_reimpresion.fxpte_chequeras.prgte_chequeras.fxpte_ab_cheques.prgte_ab_cheques.fxpte_cambio_fecha_terceros_v2.prgte_cambio_fecha_terceros_v2.fxpte_transferencia.prgte_transferencia.fxpte_abmtarjetas.prgte_abmtarjetas.fxpte_tarjetas_cierres.prgte_tarjetas_cierres.fxpte_debitos_baja.prgte_debitos_baja.fxpte_debitos_alta.prgte_debitos_alta.fxpte_docs.prgte_docs.fxpte_saldos.prgte_saldos.fxpte_mantenimiento.prgte_mantenimiento.fxpte_recibos_talonarios.prgte_recibos_talonarios.fxpabmtarj.prgabmtarj.fxpnumrec.prgnumrec.fxpte_cierre_locales.prgte_cierre_locales.fxpco_anulacion_asientos_tipo2.prgco_anulacion_asientos_tipo2.fxpte_resumen_tarjetas.prgte_resumen_tarjetas.fxpte_resumen_tarjetas_anulacion.prgte_resumen_tarjetas_anulacion.fxpte_gastos.prgte_gastos.fxpte_gastos_anulacion.prgte_gastos_anulacion.fxpte_ingresos.prgte_ingresos.fxpte_ingresos_anulacion.prgte_ingresos_anulacion.fxpcs_anular_costos.prgcs_anular_costos.fxpcs_sinnombre.prgcs_sinnombre.fxpforincos.prgforincos.fxpcs_costos_standard.prgcs_costos_standard.fxpabmcoscpre.prgabmcoscpre.fxpcs_modificar_costo_reposicion.prgcs_modificar_costo_reposicion.fxptc_generar.prgtc_generar.fxpgs_pronostico_ventas.prggs_pronostico_ventas.fxpgs_cobranza_mensual.prggs_cobranza_mensual.fxpgs_estadistica_cobranza.prggs_estadistica_cobranza.fxpgs_config_cuentas.prggs_config_cuentas.fxpgs_adicionales.prggs_adicionales.fxpgs_generar.prggs_generar.fxpgs_resumen.prggs_resumen.fxpgs_detalle.prggs_detalle.fxpwwbusinessobject.prgwwbusinessobject.fxpwwcache.prgwwcache.fxpwwcollections.prgwwcollections.fxpwwconfig.prgwwconfig.fxpwwdotnetbridge.prgwwdotnetbridge.fxpwwencryption.prgwwencryption.fxpwweval.prgwweval.fxpwwftp.prgwwftp.fxpwwhttp.prgwwhttp.fxpwwjsonserializer.prgwwjsonserializer.fxpwwjsonservice.prgwwjsonservice.fxpwwpdf.prgwwpdf.fxpwwregex.prgwwregex.fxpwwscripting.prgwwscripting.fxpwwsftp.prgwwsftp.fxpwwsmtp.prgwwsmtp.fxpwwsql.prgwwsql.fxpwwxml.prgwwxml.fxpwwxmladapter.prgwwxmladapter.fxpwwxmlstate.prgwwxmlstate.fxpve_despachos_pagados.prgve_despachos_pagados.fxpve_retiros.prgve_retiros.fxpve_conformes.prgve_conformes.fxpve_sql_desplazamiento.prgve_sql_desplazamiento.fxpsch_sql_ageing.prgsch_sql_ageing.fxpve_te_sql_comisiones.prgve_te_sql_comisiones.fxpve_sql_presupuestos.prgve_sql_presupuestos.fxpin_protocolos.prgin_protocolos.fxpin_etiquetas.prgin_etiquetas.fxpin_sql_plan_necesidades.prgin_sql_plan_necesidades.fxpve_sql_remitos_emitidos.prgve_sql_remitos_emitidos.fxpsys_clases_ejercicios.prgsys_clases_ejercicios.fxpco_sql_balance.prgco_sql_balance.fxpco_mantenimiento.prgco_mantenimiento.fxpco_diario_ver.prgco_diario_ver.fxpco_sop_mayor.prgco_sop_mayor.fxpco_siap.prgco_siap.fxpve_sql_iva_ventas_v2.prgve_sql_iva_ventas_v2.fxpcm_sql_iva_compras_v2.prgcm_sql_iva_compras_v2.fxpcm_sql_percepciones.prgcm_sql_percepciones.fxpcm_sql_percepcion_por_provincia.prgcm_sql_percepcion_por_provincia.fxpcm_sql_iva_compras.prgcm_sql_iva_compras.fxpve_sql_iva_ventas.prgve_sql_iva_ventas.fxpco_sql_mayor.prgco_sql_mayor.fxpcm_sql_ageing.prgcm_sql_ageing.fxpcm_sql_desplazamiento.prgcm_sql_desplazamiento.fxppr_mix.prgpr_mix.fxpes_ind_sql_avance.prges_ind_sql_avance.fxppr_rotulos.prgpr_rotulos.fxpte_sql_recibos.prgte_sql_recibos.fxpte_sql_recibos_talonarios.prgte_sql_recibos_talonarios.fxpcs_sql_costo_adicional.prgcs_sql_costo_adicional.fxptc_main.prgtc_main.fxpgs_comienzo.prggs_comienzo.fxpte_sql_movimientos.prgte_sql_movimientos.fxpcm_sql_facturas_a_pagar.prgcm_sql_facturas_a_pagar.fxpve_sql_cumplimiento_de_pedidos.prgve_sql_cumplimiento_de_pedidos.fxpgs_funciones.prggs_funciones.fxpgs_generar-2.prggs_generar-2.fxpte_sql_retenciones_clientes.prgte_sql_retenciones_clientes.fxpte_pagos_aplicaciones.prgte_pagos_aplicaciones.fxpte_sql_cheques_en_cartera.prgte_sql_cheques_en_cartera.fxpgs_procesar.prggs_procesar.fxpve_asistencias_anulacion.prgve_asistencias_anulacion.fxpes_sch_export_contab.prges_sch_export_contab.fxpes_sch_export_contrib.prges_sch_export_contrib.fxpes_sch_gastos.prges_sch_gastos.fxpes_sch_todos_los_asientos.prges_sch_todos_los_asientos.fxpgs_cashfree_sch.prggs_cashfree_sch.fxpmarkdownparser.prgmarkdownparser.fxpsch_asiento_incentivos.prgsch_asiento_incentivos.fxpgs_sql_estado_de_resultados_sch.prggs_sql_estado_de_resultados_sch.fxpsch_exportaciones_one_click.prgsch_exportaciones_one_click.fxpsql_rptarticulos.prgsql_rptarticulos.fxpsql_rptproveedores.prgsql_rptproveedores.fxpsql_rptclientes.prgsql_rptclientes.fxpsch_sql_contribucion2.prgsch_sql_contribucion2.fxpve_sql_comprobantes_emitidos.prgve_sql_comprobantes_emitidos.fxpve_sql_comprobantes_emitidos_aux.prgve_sql_comprobantes_emitidos_aux.fxpes_sch_pf.prges_sch_pf.fxpes_sch_exp_pp.prges_sch_exp_pp.fxpsys_monedas_usa.prgsys_monedas_usa.fxpsys_monedas_paraguay.prgsys_monedas_paraguay.fxpsys_monedas_peru.prgsys_monedas_peru.fxpsys_monedas_colombia.prgsys_monedas_colombia.fxpes_ind_gen_ven.prges_ind_gen_ven.fxpes_ind_gen_cod.prges_ind_gen_cod.fxpes_ind_nc_aut.prges_ind_nc_aut.fxpgs_estado_de_resultados_ind.prggs_estado_de_resultados_ind.fxpes_ind_dashboard.prges_ind_dashboard.fxpes_cle_preprocesar_margen.prges_cle_preprocesar_margen.fxpes_cle_porte.prges_cle_porte.fxpes_sel_cartas_documento.prges_sel_cartas_documento.fxpes_sel_pro_adi.prges_sel_pro_adi.fxpes_car_auxiliares.prges_car_auxiliares.fxpve_z_locales2.prgve_z_locales2.fxpve_z_locales_anular2.prgve_z_locales_anular2.fxpve_z_locales.prgve_z_locales.fxpve_z_locales_anular.prgve_z_locales_anular.fxpes_ele_datos_serie.prges_ele_datos_serie.fxpes_zar_control_viajes.prges_zar_control_viajes.fxptsp_transportistas.prgtsp_transportistas.fxptsp_camiones.prgtsp_camiones.fxptsp_trailers.prgtsp_trailers.fxptsp_choferes.prgtsp_choferes.fxptsp_lugares.prgtsp_lugares.fxpdlc_sincronizar.prgdlc_sincronizar.fxpve_importar_facturacion_lince.prgve_importar_facturacion_lince.fxpcam_iibb_cajas.prgcam_iibb_cajas.fxpes_dal_importacion.prges_dal_importacion.fxpve_aplicar_precios_pedidos.prgve_aplicar_precios_pedidos.fxpve_facturas_lote_sincronizar.prgve_facturas_lote_sincronizar.fxpes_pya_importar_subdiario.prges_pya_importar_subdiario.fxpes_tfw_shoppy_v3.prges_tfw_shoppy_v3.fxpes_sri_actualizacion_mysql.prges_sri_actualizacion_mysql.fxpes_lec_importacion_datos.prges_lec_importacion_datos.fxpes_lec_actualizacion_mysql.prges_lec_actualizacion_mysql.fxpte_modificar_cambio_recibo.prgte_modificar_cambio_recibo.fxpte_modificar_cambio_pago.prgte_modificar_cambio_pago.fxpagentes.prgagentes.fxpagentes_cambio_agente.prgagentes_cambio_agente.fxpdepxcod.prgdepxcod.fxpcodigos_de_barras.prgcodigos_de_barras.fxpin_pasar_a_lotes.prgin_pasar_a_lotes.fxpbultos.prgbultos.fxpatributos.prgabmatributos_habilitados.prgabmatributos_habilitados.fxpmarcas.prgmarcas.fxplineas.prglineas.fxpabmsupergrupo.prgabmsupergrupo.fxpgrupos.prggrupos.fxpsys_cambio_de_codigo_de_articulo.prgsys_cambio_de_codigo_de_articulo.fxpabm_medidas.prgabm_medidas.fxpabm_envases.prgabm_envases.fxpcligruece.prgcligruece.fxpabmcatcred.prgabmcatcred.fxpclientes_credito.prgclientes_credito.fxpcatcli.prgcatcli.fxpplanc.prgplanc.fxpzonas.prgzonas.fxpco_cambiar_cuentas.prgco_cambiar_cuentas.fxpcostos.prgrubrofac.prgrubrofac.fxpcentrales.prgcentrales.fxpfletes.prgfletes.fxpidx04_importaciones.prgidx04_importaciones.fxpco_cambiar_proveedor.prgco_cambiar_proveedor.fxpcatpro.prgcatpro.fxpplanp.prgplanp.fxptextos.prgtextos.fxppd_demoras.prgpd_demoras.fxpsucprop.prgsucprop.fxpabmmailctas.prgabmmailctas.fxpabmmailasig.prgabmmailasig.fxpventas.icocarrito.icomonedas.icocaja.icoengranajes.icocontabilidad.icocostos.icocubo.icoherramientas.icosys_cfg_global.prgsys_cfg_global.fxpsys_cfg_local.prgsys_cfg_local.fxpabmtipoimp.prgabmtipoimp.fxpsys_permisos_empresas.prgsys_permisos_empresas.fxpsys_mensaje_equipos.prgsys_mensaje_equipos.fxpsys_usuarios.prgsys_usuarios.fxpsys_permisos.prgsys_permisos.fxpsys_equipos.prgsys_equipos.fxpsys_permisos_equipos.prgsys_permisos_equipos.fxpsys_upload_log.prgsys_upload_log.fxpsys_check.prgsys_check.fxpsys_consistencia.prgsys_consistencia.fxpsys_version_anterior.prgsys_version_anterior.fxpsys_eliminar.prgsys_eliminar.fxpsys_mant_ccc.prgsys_mant_ccc.fxpsys_mant_ccp.prgsys_mant_ccp.fxpsys_guardar_globales.prgsys_guardar_globales.fxpanticipos_pendientes_task.prganticipos_pendientes_task.fxpve_comprobantes_pendientes_de_entrega_o_retiro_task.prgve_comprobantes_pendientes_de_entrega_o_retiro_task.fxptask_controlar_ultimos_backups.prgtask_controlar_ultimos_backups.fxpve_alerta_entregas_task.prgve_alerta_entregas_task.fxppr_puesto_produccion_1.prgpr_puesto_produccion_1.fxpsys_backup.prgsys_backup.fxpsys_restore.prgsys_restore.fxpsys_backup_control.prgsys_backup_control.fxpsys_analizador_usuario.prgsys_analizador_usuario.fxpacceso_remoto.icosys_lockear_test.prgsys_lockear_test.fxpsys_test_transacciones.prgsys_test_transacciones.fxppruebas.prgpruebas.fxpsys_ver_stock.prgsys_ver_stock.fxpabmcuentas.prgabmcuentas.fxpes_sch_sql_articulos_a_importar.prges_sch_sql_articulos_a_importar.fxpsch_sql_comisiones.prgsch_sql_comisiones.fxpgs_sql_estado_de_resultados.prggs_sql_estado_de_resultados.fxpgs_sql_estado_de_resultados_cal.prggs_sql_estado_de_resultados_cal.fxpind_sql_ingresos_produccion.prgind_sql_ingresos_produccion.fxpmtz_matanza.prgmtz_matanza.fxpin_sql_movimientos_modelo.prgin_sql_movimientos_modelo.fxptsp_asig.prgtsp_asig.fxpavfp_objects_sincronizacion.prgavfp_objects_sincronizacion.fxpsys_sincronizacion_recibir.prgsys_sincronizacion_recibir.fxpsys_cambio_de_codigo_de_articulo3.prgsys_cambio_de_codigo_de_articulo3.fxpabmatributos.prgabmatributos.fxpabmbultos.prgabmbultos.fxpdepositos2.prgdepositos2.fxpes_sch_broker_cambios.prges_sch_broker_cambios.fxpcs_comienzo.prgcs_comienzo.fxpsys_clases_cashflow.prgsys_clases_cashflow.fxpsys_sql_permisos_asignados.prgsys_sql_permisos_asignados.fxpsys_sql_permisos.prgsys_sql_permisos.fxpsys_monedas_argentina.prgsys_monedas_argentina.fxpsys_monedas_chile.prgsys_monedas_chile.fxpsys_monedas_uruguay.prgsys_monedas_uruguay.fxpsys_monedas_bolivia.prgsys_monedas_bolivia.fxpsys_soporte_remoto.prgsys_soporte_remoto.fxpve_quiebres.prgve_quiebres.fxpges.vcxges.vctbarcode32.jpglocalizacion.vcxlocalizacion.vctexplorer.icosincronizar.gifmas_azul.pngabmdepxcod.prgabmdepxcod.fxpgeoreferencia.vcxgeoreferencia.vcttilde.icoflecha_abajo.gifflecha_arriba.gifbuscar.icomas_16.icoco_cuentas_copia.prgco_cuentas_copia.fxpflecha_derecha_az.gifflecha_izquierda_az.gifsys_editar_formulario.prgsys_editar_formulario.fxpargentina.icochile.icouruguay.icobolivia.icousa.icoparaguay.icoperu.icocolombia.icocloud_sync_60_gris.pngenviar_pdf.icolupa32x32.icorehacer.pngrehacer_deshabilitado.pngstock.icoemail edit.icosys_conexion.prgsys_conexion.fxpmensaje.scxmensaje.sctmostrar_txt.prgmostrar_txt.fxptabla.icotilde_chico.jpgve_reportcheck.prgve_reportcheck.fxpedit.gifve_bul_pes_vol_v2.prgve_bul_pes_vol_v2.fxpsys_doscen_inlist_ex.prgsys_doscen_inlist_ex.fxpve_sql_cuentas_corrientes_old.prgve_sql_cuentas_corrientes_old.fxpte_pago.mprte_pago.mpxmostrar_txt.scxmostrar_txt.sctreg_factura_electronica_fev1_errores.prgreg_factura_electronica_fev1_errores.fxpfiltro1_quitar.gifin_solcom.mprin_solcom.mpxin_solcom_oc.mprin_solcom_oc.mpxtc_imp_exp.vcxtc_imp_exp.vctmas_16.giftc_paneles.vcxtc_paneles.vctlupa_16.icocarpeta.icocarpeta_h.icoexcel_guardar_como.icoexcel_h_guardar_como.iconfjsontocursor.prgnfjsontocursor.fxpsys_loguear.prgsys_loguear.fxpve_sql_remitos_pendientes_de_entrega.prgve_sql_remitos_pendientes_de_entrega.fxpve_sql_remitos_por_despacho.prgve_sql_remitos_por_despacho.fxpve_sql_remitos_por_transporte.prgve_sql_remitos_por_transporte.fxpve_sql_solicitud_de_mercaderia_a_depositos.prgve_sql_solicitud_de_mercaderia_a_depositos.fxpve_sql_conformes.prgve_sql_conformes.fxpabm_rcc_datos.prgabm_rcc_datos.fxpcm_ctacte_proveedores_detallada.prgcm_ctacte_proveedores_detallada.fxpp230_test.prgp230_test.fxpve_sql_provisiones.prgve_sql_provisiones.fxpve_generar_ncnd_aut.prgve_generar_ncnd_aut.fxpsys_trfcen_between.prgsys_trfcen_between.fxpfiltro2.pngve_sql_pedidos_v2.prgve_sql_pedidos_v2.fxpve_sql_articulos_bloqueados.prgve_sql_articulos_bloqueados.fxpve_sql_cesion.prgve_sql_cesion.fxpve_sql_comprobantes_emitidos_v2.prgve_sql_comprobantes_emitidos_v2.fxpve_sql_comisiones_por_articulo.prgve_sql_comisiones_por_articulo.fxpve_sql_armado.prgve_sql_armado.fxpve_sql_ultimo_precio_de_venta.prgve_sql_ultimo_precio_de_venta.fxpve_sql_contribucion.prgve_sql_contribucion.fxpin_sql_solicitudes.prgin_sql_solicitudes.fxpicon-help.gifin_sql_recepciones.prgin_sql_recepciones.fxpdos_consolidar.prgdos_consolidar.fxpco_cierre.prgco_cierre.fxpco_apertura.prgco_apertura.fxpco_sql_diario.prgco_sql_diario.fxpco_sql_flujo_de_fondos.prgco_sql_flujo_de_fondos.fxpmal.pngcm_sql_importaciones.prgcm_sql_importaciones.fxpcm_sql_busquedas_estadisticas.prgcm_sql_busquedas_estadisticas.fxpcm_sql_estadisticas.prgcm_sql_estadisticas.fxpcm_sql_ultimo_precio_de_compra.prgcm_sql_ultimo_precio_de_compra.fxpcm_sql_importaciones_cobradas.prgcm_sql_importaciones_cobradas.fxpplaneamiento.icopr_pedidos.prgpr_pedidos.fxppr_planeamiento_ultimas_ventas.prgpr_planeamiento_ultimas_ventas.fxpundo.icopr_mix_v2.prgpr_mix_v2.fxppr_rpt_comprasxmes.frxpr_rpt_comprasxmes.frtpr_rpt_ventasxmes.frxpr_rpt_ventasxmes.frtpr_rpt_prodxmes.frxpr_rpt_prodxmes.frtsql_rptplanestado.prgsql_rptplanestado.fxppr_sql_listado_de_formulas.prgpr_sql_listado_de_formulas.fxppr_sql_formulas_por_componente.prgpr_sql_formulas_por_componente.fxppr_sql_listado_de_formula_unica.prgpr_sql_listado_de_formula_unica.fxppr_sql_articulos_a_entregar.prgpr_sql_articulos_a_entregar.fxppr_sql_produccion_diaria2.prgpr_sql_produccion_diaria2.fxpvdeposito.prgvdeposito.fxpvextraccion.prgvextraccion.fxpte_sql_depositos_extracciones.prgte_sql_depositos_extracciones.fxpte_sql_cheques_emitidos.prgte_sql_cheques_emitidos.fxpte_sql_pagos.prgte_sql_pagos.fxpte_sql_saldos_tesoreria.prgte_sql_saldos_tesoreria.fxpte_sql_vencimientos_cheques_propios.prgte_sql_vencimientos_cheques_propios.fxpte_sql_historia_de_valores.prgte_sql_historia_de_valores.fxpte_sql_control_cheques_ingresados.prgte_sql_control_cheques_ingresados.fxpte_sql_diferencias_de_cambio.prgte_sql_diferencias_de_cambio.fxpte_sql_diferencias_de_cambio_pagos.prgte_sql_diferencias_de_cambio_pagos.fxpte_sql_comisiones.prgcs_sql_formulas_costeadas.prgcs_sql_formulas_costeadas.fxpcs_sql_costo_por_articulo.prgcs_sql_costo_por_articulo.fxpcs_sql_compras_y_recepciones.prgcs_sql_compras_y_recepciones.fxpcs_variaciones_de_costos.prgcs_variaciones_de_costos.fxpgs_periodos.prggs_periodos.fxpconsulta.frxconsulta.frtgs_detalle_toma_4_semanas.prggs_detalle_toma_4_semanas.fxpno_ctrlz.prgno_ctrlz.fxpsys_hashmd5.prgsys_hashmd5.fxpsys_log.prgsys_log.fxpgs_pronosticos.prggs_pronosticos.fxpgs_sql_resumen.prggs_sql_resumen.fxpgs_sql_detalle.prggs_sql_detalle.fxpes_sch_sql_tc.prges_sch_sql_tc.fxpve_sql_asistencia.prgve_sql_asistencia.fxpsch_remitos_pendientes.prgsch_remitos_pendientes.fxpsch_recepciones_pendientes.prgsch_recepciones_pendientes.fxpsch_asiento_complementario_costos_v2.prgsch_asiento_complementario_costos_v2.fxpsch_asiento_complementario_costos_v1.prgsch_asiento_complementario_costos_v1.fxpsch_asiento_complementario_costos.prgsch_asiento_complementario_costos.fxpsys_monedas_bna.prgsys_monedas_bna.fxpcarro2.icogs_dias_de_giro.prggs_dias_de_giro.fxpsch_sql_ageing_inventario.prgsch_sql_ageing_inventario.fxpsch_sql_seguimiento_transacciones.prgsch_sql_seguimiento_transacciones.fxpes_ind_nc_aut3.prges_ind_nc_aut3.fxpes_ind_dias_de_giro.prges_ind_dias_de_giro.fxpcle_sql_resumen_por_producto.prgcle_sql_resumen_por_producto.fxpcle_sql_resumen_por_producto_mes_costos.prgcle_sql_resumen_por_producto_mes_costos.fxpco_diario.prgco_diario.fxpsel_sql_recibos.prgsel_sql_recibos.fxpes_sel_sql_comisiones.prges_sel_sql_comisiones.fxpcal_sql_contribucion.prgcal_sql_contribucion.fxpmtz_sql_rendimiento.prgmtz_sql_rendimiento.fxpifm_sql_contribucion2.prgifm_sql_contribucion2.fxpes_uni_sql_comisiones.prges_uni_sql_comisiones.fxpsam_sql_comisiones.prgsam_sql_comisiones.fxpes_ese_sql_comisiones.prges_ese_sql_comisiones.fxpes_sri_sql_logistica.prges_sri_sql_logistica.fxpcloud_sync_60.pnggui_msg.prggui_msg.fxpsql_rptcombinaciones.prgsql_rptcombinaciones.fxpsql_rptcombinaciones_cod_bul.prgsql_rptcombinaciones_cod_bul.fxprpt_sql_listas_de_precio.prgrpt_sql_listas_de_precio.fxpsql_rptdepositos.prgsql_rptdepositos.fxpsql_rptfletes.prgsql_rptfletes.fxpctacte_dis.icobarcode.icond.gifbuscar_dis.iconc.gifremito.gifconsulta_dis.icofc.gifve_control_de_comprobantes.prgve_control_de_comprobantes.fxppedido.gifpresupuesto.gifve_control_de_pickings.prgve_control_de_pickings.fxpform.icoform_dis.icodespacho_dis.icoegresos.icoegresos_dis.icomoney2.icocobranza.icocobranza_dis.icopago_dis.icocarrito2.icocarrito2_dis.icotarjeta.icotarjeta_gris.icoregistradora.icoregistradora_gris.icotilde_chico_dis.jpgasientos.icoasientos_gris.icobusca_cheque.icoreporte_dis.icoingresos.icoingresos_dis.icocheque_dis.icopackage2.icopackage2_dis.icoopen_box.icoopen_box_dis.icotilde_dis.icoplaneamiento_disabled.icocaja_abierta.icocaja_abierta_dis.icoengranajes_dis.icogenerico.icogenerico_dis.icopr_apertura_x_lote.prgpr_apertura_x_lote.fxpformulas.icoformulas_dis.icodirectorio.icodirectorio_dis.icocubo_dis.icosys_formularios2.prgsys_formularios2.fxpexplorer_h.icoeditar_h.icoeditar_disabled.icosys_upload_ftp_externo.prgsys_upload_ftp_externo.fxpanalizador.vcxanalizador.vctsys_monedas_billete.prgsys_monedas_billete.fxpsysmsg_pendiente.icodiskette.icoes_ind_gen_pdf.prges_ind_gen_pdf.fxpdash.icodlc_informe_mensual.prgdlc_informe_mensual.fxpabmplandtos.prgabmplandtos.fxpuni_remitos_lince.prguni_remitos_lince.fxpimportar_desde_excel.icopallet.giftfw_bi.prgtfw_bi.fxpsri_cuentas_corrientes.prgsri_cuentas_corrientes.fxptoolbox.icotoolbox_dis.icocostos_dis.icocontabilidad2.icocontabilidad2_dis.icomoney2_dis.icocarro2_dis.icoventas_dis.icoalertas.vcxalertas.vctes_sel_sql_libro_viajantes.prges_sel_sql_libro_viajantes.fxpgmaps3.pnggmaps.pnggmaps.icoes_zar_sql_viajes.prges_zar_sql_viajes.fxpsysmsg1_icono.icosystray.vcxsystray.vctes_sri_sql_logistica_por_pedido.prges_sri_sql_logistica_por_pedido.fxplogistica.icove_precarga.prgve_precarga.fxpin_solcom_txt.prgin_solcom_txt.fxpmas.pngmas_deshabilitado.pngedit_azul_deshabilitado.pngmenos.pngmenos_deshabilitado.pngok_deshabilitado.pngmal_deshabilitado.pngpreview2_h_16.icofoxcharts.vcxfoxcharts.vctve_facturacion_de_remitos.mprve_facturacion_de_remitos.mpxsys_importaciones_base.prgsys_importaciones_base.fxpes_nuv_predespacho.prges_nuv_predespacho.fxpsys_trfcen.prgsys_trfcen.fxpve_comisiones.prgve_comisiones.fxpabmprotocolos.prgabmprotocolos.fxptilde_transparente_20x20.gifcm_control_de_ocs_menu.mprcm_control_de_ocs_menu.mpxpr_planeamiento.prgpr_planeamiento.fxppr_sql_plan_de_ventas.prgpr_sql_plan_de_ventas.fxppr_sql_plan_de_produccion.prgpr_sql_plan_de_produccion.fxppr_sql_plan_de_compras.prgpr_sql_plan_de_compras.fxppr_maq_popup.mprpr_maq_popup.mpxtc_controladores.vcxtc_controladores.vctmas_dis.icomenos_dis.icotsp_asig_imp_asig.prgtsp_asig_imp_asig.fxpes_sch_gastos_liquidar.prges_sch_gastos_liquidar.fxpsys_formularios.prgsys_formularios.fxpedit_azul.icobackground-pattern.jpges_sch_envio_fac.prges_sch_envio_fac.fxpsch_cashflow_exportar.prgsch_cashflow_exportar.fxpes_ind_sql_comisiones.prges_ind_sql_comisiones.fxpdlc_funciones.prgdlc_funciones.fxpes_sql_comisiones_x_facturas_cobradas.prges_sql_comisiones_x_facturas_cobradas.fxpborrar_reimprimir_pagos.prgborrar_reimprimir_pagos.fxpatencion.gifmov_caja.icoproduc.icoes_ifm_finanzas.prges_ifm_finanzas.fxpes_ifm_stock.prges_ifm_stock.fxpes_ifm_finanzas2.prges_ifm_finanzas2.fxpve_crear_nd.prgve_crear_nd.fxpes_mcl_bi.prges_mcl_bi.fxpborrar.gifsysmsg1.icogdiplusx.vcxgdiplusx.vctve_fce_reprocesar_factura_comun.prgve_fce_reprocesar_factura_comun.fxpve_control_de_pickings_menu.mprve_control_de_pickings_menu.mpxsql_rpt.prgsql_rpt.fxpsql_rpt_cross.prgsql_rpt_cross.fxpes_nuv_sql_comisiones.prges_nuv_sql_comisiones.fxpmtz_sql_rinde.prgmtz_sql_rinde.fxpes_bi_funciones.prges_bi_funciones.fxpsql_agrupar.prgsql_agrupar.fxpsql_importes.prgsql_importes.fxpges_actualizador_ges.prgges_actualizador_ges.fxpsys_mail_gmail.prgsys_mail_gmail.fxpsys_mail_chilkat.prgsys_mail_chilkat.fxpco_cuentas_importar.scxco_cuentas_importar.sctsys_editar_reportes_excel_arbol.scxsys_editar_reportes_excel_arbol.sctsys_editar_reportes_excel.scxsys_editar_reportes_excel.sctedit azul.jpgcopy_azul.icoicon.sync.gifsys_propiedades.prgsys_propiedades.fxpsys_mant_varios.scxsys_mant_varios.sctve_ajuste_decimales.scxve_ajuste_decimales.sctguardar_plantilla.icoremove3.jpgve_numfac2.prgve_numfac2.fxpcm_liquido_producto_cambio_estado.prgcm_liquido_producto_cambio_estado.fxpes_sri_tienda.prges_sri_tienda.fxptest_cc_vs_my_cli.prgtest_cc_vs_my_cli.fxptest_cc_vs_my_pro.prgtest_cc_vs_my_pro.fxpges_actualizador2.scxges_actualizador2.sctve_numfac_pv.scxve_numfac_pv.sctcm_liquido_producto_cambio_estado.scxcm_liquido_producto_cambio_estado.sctavfp_objects_intercambio.prgavfp_objects_intercambio.fxpin_recepciones_x_lote.prgin_recepciones_x_lote.fxpestado2.scxestado2.sctfecha_menu.mprfecha_menu.mpxmensaje_s.prgmensaje_s.fxpcm_fe_visualizar.scxcm_fe_visualizar.sctabm_propiedades_predeterminadas.prgabm_propiedades_predeterminadas.fxpve_fecha_probable_de_entrega.scxve_fecha_probable_de_entrega.sctve_prioridad.scxve_prioridad.sctin_recepciones_x_lote.scxin_recepciones_x_lote.sctcm_fe_visualizar.prgcm_fe_visualizar.fxpcm_fe_visualizar_importar.scxcm_fe_visualizar_importar.sctsys_meli_pedidos.prgsys_meli_pedidos.fxpsys_meli_logica.prgsys_meli_logica.fxpsys_meli_autorizacion_chilkat.prgsys_meli_autorizacion_chilkat.fxpve_sql_productos_pendientes_de_entrega_v3_sub_1.prgve_sql_productos_pendientes_de_entrega_v3_sub_1.fxpve_cambiar_lista.prgve_cambiar_lista.fxpte_transferencia_entre_cuentas.prgte_transferencia_entre_cuentas.fxpte_transferencia_entre_cuentas_anulacion.prgte_transferencia_entre_cuentas_anulacion.fxpve_inactivar_clientes.prgve_inactivar_clientes.fxpsys_mensajes_suscripcion.prgsys_mensajes_suscripcion.fxpnfcursortojson4vfp.prgnfcursortojson4vfp.fxpve_cambiar_lista.scxve_cambiar_lista.sctte_transferencia_entre_cuentas_1.scxte_transferencia_entre_cuentas_1.sctte_transferencia_entre_cuentas_2.scxte_transferencia_entre_cuentas_2.sctte_transferencia_entre_cuentas_anulacion.scxte_transferencia_entre_cuentas_anulacion.sctve_inactivar_clientes.scxve_inactivar_clientes.sctsys_mensajes_suscripcion.scxsys_mensajes_suscripcion.sctsys_meli_objetos.prgsys_meli_objetos.fxpsys_verificar2_tareas.prgsys_verificar2_tareas.fxpve_funciones_precios.prgve_funciones_precios.fxpsys_inicializacion_basica.prgsys_inicializacion_basica.fxpsys_verificar2_tareas_logica.prgsys_verificar2_tareas_logica.fxpcm_sql_compras_aux.prgcm_sql_compras_aux.fxpsys_color.prgsys_color.fxpabm_estados_de_venta.scxabm_estados_de_venta.sctin_inventario_a_vencer_task.prgin_inventario_a_vencer_task.fxpsys_mail_chilkat_smtp.prgsys_mail_chilkat_smtp.fxpge_notas_v2.scxge_notas_v2.sctcm_datos_oc.scxcm_datos_oc.sctdirectorio.gifflecha_derecha2_az.icoflecha_izquierda2_az.icove_modificacion_remitos.prgve_modificacion_remitos.fxpabm_estados_de_importacion.prgabm_estados_de_importacion.fxplis_estados_de_importacion.scxlis_estados_de_importacion.sctte_pag_modif_cpbt.prgte_pag_modif_cpbt.fxpte_gastos_v2.prgte_gastos_v2.fxpcs_anular_costos_de_reposicion.prgcs_anular_costos_de_reposicion.fxpsys_monedas_mexico.prgsys_monedas_mexico.fxpsys_logica_fisica.scxsys_logica_fisica.sctabm_estados_de_venta.prgabm_estados_de_venta.fxplis_estados_de_venta.scxlis_estados_de_venta.sctabm_propiedades_predeterminadas_generales.prgabm_propiedades_predeterminadas_generales.fxpsys_sync.prgsys_sync.fxpin_etiqueta.scxin_etiqueta.sctve_modificacion_remitos.scxve_modificacion_remitos.sctve_modificar_precios_remito.scxve_modificar_precios_remito.sctte_pag_modif_cpbt.scxte_pag_modif_cpbt.sctte_gastos_2_v2.scxte_gastos_2_v2.sctcs_anular_costos_de_reposicion.scxcs_anular_costos_de_reposicion.sctsys_propiedades_administrar.scxsys_propiedades_administrar.sctsys_propiedades_administrar_seleccionar.scxsys_propiedades_administrar_seleccionar.sctclonar.pngdesanclado.icover_bloqueado.icover.icove_plataformas.prgve_plataformas.fxpes_menu_max.mpres_menu_max.mpxes_barra_menu_max.scxes_barra_menu_max.sctmax_rendiciones.prgmax_rendiciones.fxpsys_fechas.prgsys_fechas.fxpsys_permisos_por_permiso.prgsys_permisos_por_permiso.fxpve_control_de_deudas.prgve_control_de_deudas.fxpabm_cfg_ventas.prgabm_cfg_ventas.fxpmain_remitos.mprmain_remitos.mpxremito_dis.gifmax_importar_precios_remitos.prgmax_importar_precios_remitos.fxpsys_permisos_permiso.scxsys_permisos_permiso.sctsys_permisos_usuarios.scxsys_permisos_usuarios.sctve_control_de_deudas.scxve_control_de_deudas.sctsql_rptcentros.prgsql_rptcentros.fxpsys_rlocks.prgsys_rlocks.fxpfe_objetos_gs1.prgfe_objetos_gs1.fxpve_exportar_acopio.prgve_exportar_acopio.fxpabm_prop_predet.scxabm_prop_predet.sctsys_cambio_de_codigo_de_proveedor.prgsys_cambio_de_codigo_de_proveedor.fxpsys_lockear_test.scxsys_lockear_test.sctes_barra_menu_eps.scxes_barra_menu_eps.sctes_max_bi.prges_max_bi.fxpsys_sincronizacion_tablas.prgsys_sincronizacion_tablas.fxpve_reclamo.scxve_reclamo.sctve_nota_gestion.scxve_nota_gestion.sctabm_cfg_ventas.scxabm_cfg_ventas.sctve_control_de_deudas_menu.mprve_control_de_deudas_menu.mpxve_control_de_deudas_comprobantes.scxve_control_de_deudas_comprobantes.sctsys_cambio_de_codigo_de_proveedor.scxsys_cambio_de_codigo_de_proveedor.sctve_control_de_comprobantes_menu.mprve_control_de_comprobantes_menu.mpxve_scan_remito.prgve_scan_remito.fxpve_scan_remito.scxve_scan_remito.sctdos_transf_task.prgdos_transf_task.fxpsys_ages_objetos.prgsys_ages_objetos.fxpsys_aprobaciones.prgsys_aprobaciones.fxpve_armar_despacho_cot.prgve_armar_despacho_cot.fxpmcl_informe_diario_task.prgmcl_informe_diario_task.fxpmax_cashflow.prgmax_cashflow.fxpmax_importar_ocs.prgmax_importar_ocs.fxpsys_html.prgsys_html.fxpve_armar_despacho_flete.scxve_armar_despacho_flete.sctve_whatsapp.scxve_whatsapp.sctte_bancos_exportacion.prgte_bancos_exportacion.fxpnuevo.pngsys_cierres.scxsys_cierres.sctmensaje_a.prgmensaje_a.fxpwhatsapp.icosys_cierres_por_usuario.scxsys_cierres_por_usuario.sctavfp_objects_qs.prgavfp_objects_qs.fxpsys_plataformas_pedidos.prgsys_plataformas_pedidos.fxpve_informe_diario_task.prgve_informe_diario_task.fxppr_informe_diario_task.prgpr_informe_diario_task.fxpcm_informe_diario_task.prgcm_informe_diario_task.fxpcm_sql_compras_auxiliar.prgcm_sql_compras_auxiliar.fxpsys_plataformas_base.prgsys_plataformas_base.fxpsys_plataformas_objetos.prgsys_plataformas_objetos.fxpsys_nube_pedidos.prgsys_nube_pedidos.fxpsys_nube_logica.prgsys_nube_logica.fxpsys_nube_objetos.prgsys_nube_objetos.fxpsys_nube_autorizacion_chilkat.prgsys_nube_autorizacion_chilkat.fxpes_menu_stk.mpres_menu_stk.mpxes_barra_menu_art.scxes_barra_menu_art.sctes_menu_art.mpres_menu_art.mpxve_alicuotas_manuales_iibb.scxve_alicuotas_manuales_iibb.sctpr_bul_y_atr.scxpr_bul_y_atr.sctve_sql_productos_pendientes_de_entrega_v3_sub_2.prgve_sql_productos_pendientes_de_entrega_v3_sub_2.fxpabmbultos_listas.prgabmbultos_listas.fxpte_exportar_transferencias.prgte_exportar_transferencias.fxpsch_honeywell.scxsch_honeywell.sctes_stk_control_de_presupuestos.prges_stk_control_de_presupuestos.fxpte_notificacion_vencimiento_task.prgte_notificacion_vencimiento_task.fxpqr_scan_color2.pngqr_lleno3.pngqr_enviando.pngvis_inv.scxvis_inv.sctes_barra_menu_stk.scxes_barra_menu_stk.sctremove2.gifve_scan_remito_items.scxve_scan_remito_items.sctmax_cashflow.scxmax_cashflow.sctve_informe_diario_task.scxve_informe_diario_task.sctpr_informe_diario_task.scxpr_informe_diario_task.sctcm_informe_diario_task.scxcm_informe_diario_task.sctjson.prgabm_bultos_lista.scxabm_bultos_lista.sctte_exportar_transferencias.scxte_exportar_transferencias.sctes_stk_control_de_presupuestos.scxes_stk_control_de_presupuestos.sctte_notificacion_vencimiento_task.scxte_notificacion_vencimiento_task.sctin_activos.prgin_activos.fxp) 8 AMPAVMeVY_zY_pzp|z|H:H\|M]M]9$9$џџvDvD;Z;ZmmP8Paic ic u u  { {   " :" c Wc  z  C C n] n] `  ` . !. ? T eT SISIB\B\H^H^n<n<=[qqvvm&m&'-'-MF$MF+gc+gss77}}),`,5544\\u!u E lel|w|RR`k`k܃܃ W;7 W;` |   - -=2 =2; ;GA GKVb KVd d g\  g\ x{  x{   '  _8!G _8!9!s 9!I! I!M! M!O! O!P!8 P!B"j B"# " # "" """ ""|" |"N"1 N""a "s" s"o" o"K#K###7###Z#X$~X$"$"$$$$$((@(C@(%)e%)**9s*9s***m+m+4+)4+-B--h-3].3].Ӝ.Ӝ... / / ./ .//$/"/?"//Z/O/O/00<2<2VH2VH22 23+3J4LJ4U4lU4555555,o68,o6fz6{fz666r6r666!6!6P6;P6F7YF78y8 9 999T:T:m: m::/:E:PE:Ī:Ī:Q:Q:Y:Y:P:P:%:%:;1;,;Q,;A1;uA1;:;:;d;d;ؓ;ؓ;===2=Q=fQ=@=@===FF(JG(JGcG cGG,GqGPqGGsG?kH?kHqHqHIIIII@I$Iq$I:%IC:%I],I],IIIRIRIJJJLJKsKQLQL@oL@oLpLpL%M%MEMEM VME VMZbMqZbMlMlMMMMM_M_MjO-jOpOOpOOgO?P?PDPMDPQMQMQMQQ  QQMQ6RM$6RQ9R@Q9R>RMQ>Rz|RMYz|RRvRoRoRVRVRRRNTMNTCFsMCFs8Gs8Gs;NsM;NsesMesHgs<HgsosaossMqs}M}}>}M>}~M~~~Y~Y~9~9~ ~ ~~~~8~B~ZB~~p~z~z~ ~ ~=~=~~~~~~M ~GM Gȁ> ȁ؁MO ؁9M\ 9$Mi $DMz D  = =f fv|!v|裄!裄„3!„WK!W% c!% #{!#$!$ D! DK!KT!TZ"Z`7"`eW"elw"lq"qw"w|"|Ń"ŃΈ#Έ7#W#y#######$;$[$R{$R$Dž$Džͅ$ͅԅ$ԅ6څ%6څۅ;%ۅ~[%~.y%.%%& ! Y& & Q &Q & TrM'Tr=M'=X%'Xt?'tY's''M'iM'iׇ'ׇ'# (# O0(Oo(K(KM(M( KJM(KJ&ZM)&Z[?)[um)u)厈)厈ˈ)ˈ *2*_^S*_^n**؉*؉(ى*(ى܉+܉e+eK9+K3Sb+3SɆ+ɆU +U d+d%,%x#H,x#^Gt,^Gc,c,b-bŒB-Œ-&-&9-9 .71.7ٹW.ٹv.CC...W+ /W+|@/|bo/bʏ/ʏ///Y#0YY0'0'!0!lF1lFt01tƯ^1Ư1_11_n1n{1{ 2 82/X2/$2$2ꟓ2ꟓ觓3觓껓<3껓>ēe3>ēܓ3ܓb3b333L4L#24#'X4'()4()T4TV}4V}}4}F5FO&5OhДE5hДb5,5,5`5`m 6mzo"6zo舕M6舕䉕6䉕@6@6+6+d 7d371e717\X7\X8";8" Y8 8W 8W " 8" "8":&$9:&&M9&<M<{M{~za9~ zn9 zz9 z9z9z9~z9 ~V;M9V;[HM9[HYKz9YK6Mz:6M]Nz:]NOz:OZTz#:ZTYz1:Y\z::\ezD:e,kzO:,kpz\:pyzh:yuzs:u3z}:3:ƙM:ƙڛM:ڛTz:TQ:Qz: z: z: z;+z;+E8z$;E8i>>;i>NzO;N}XzY;}X;eze;;eqzs;q/z;/팜z;팜z;iz;i'Üz;'Ü֜z;֜z;z;gz;g7z;7 z; D?*<D?ʃzF<ʃPȝzW<Pȝѝzf<ѝ~֝zp<~֝<ߝzz<<ߝz<z<vz<vz<z<-z<-7<79M<9M=u˞z2=u˞3ܞz>=3ܞzH=zU=mz_=m[zk=[AXzr=AX'z='Az=A{Rz={R̉=̉S=S8m&>8mHX>HƲ>Ʋ5>5z>?9Y?9qO?qOaz?a׋?׋ҳ @ҳwH@wp@@x@x+@+8A8,FA,wAFAF5OA5OWAWd8Bd,nB,jBjжBжB|$C| DC }?dC}?ICIbZzCbZS^CS^`lC`lZwzCZwވDވŷ DŷHDuD!D!@D@_D_ E0E WE yE"E"8E8:E:CzFCUUL>FLFVLVoLo tM t=M似]M似G{MGgMgM7M7\!N\` GN` FzWNFzeN}NսNս߽N߽NA#OATOOzOzOOzPePe,yX UfeXfX#X#HXHXNXNƫXƫʪ Yʪ/(Y/HYpYYYYBZBsop%u>pY~CuY~du~u~ܣuܣL vLRMvR\v\nvn|v|ҦwҦͪGwͪowowx !x >x-gx-2x2DxDMxMS$ySIVSyIVQeyQefuyfuyz7z\MGz\MOzzWzMez^iMvz^irzzrtwzztw~zz~zMzMzozzo2zz2 z{ z {.!z+{.!q.K{q.s/z`{s/{0zv{{01{1Bz{BSSz{SSdz{dtz{tz{Kz{K z| Ƿz|Ƿ z| z4|'zC|'+zQ|+/z]|/y@zw|y@G_z|G_a| ahM|htM|tv|v~z|~Nz|N}6z*}6EI}Ex}} } 6(M}6(w:M}w:VC6~VCHz_~HUR~URT~T$[M~$[͓M~͓ʕz~ʕrM~rVM~VԨz~Ԩ z @z@vzvz4`""k'k'885`G5`eeMj܀Mjoo~9~9Jk9JKKYYZZ_z_L@'L@CX]CXn_n_˺ł˺ HAH+u+vvރz D *<e*<'J'JCC҄ǼzǼEE3^I3^||xxR z%R _$E_$^'w^'z] ]Mt/Mֆ t/dMdxM xM(M-(*W*  ·**OYOCgCgcsÈcsi}i}QU?~U?VVdd΃6΃r{rŠ k'?Zk'iVeiV7{7{ll{K {M[~Mh~??!ی!iTiT[[g<g1mb1m|Ib|I[[L=L zQ \p\**QQllzJz3А3L! L!5,5GBZGB}}..22O$OfUfӂӂ<<zҒ!!OLL}S}S2Y2Yiziszsxzẍz̈Jz)Jz0z;,zL,rQzQzcǔc!z!zEAzEARz Rbzbkz%k=tz0=tz=zNwz[w5zh5zyzo zo -Fz-FHzHYzѕYQjzޕQjszseze#z#"z"ez/emz>m~zK~Yz\Yziհzzհzz_z_zȖzۖ0z099ILz'ILvz4vmzEm+zT+zgzEzEzEME5iM5i`z:`z}zR}zgddz;;,# ,#jezjehz8hF{NF{tznzn,z,zz̙fzf$z$zM0M0h8Fh8zeJzpJ[zz[yy>z>gMšg=^ MΚ=^ Ak Ak { z"{ j @j  b  zt  z| ' z'  z  z  zЛ  z  z = M = MG؜||KKz/)g)[[&ĝ&AA\5\_a_jMrjMz{z{M̞MHH,L)z@L)qzNq1xz1x۪ݟ۪ 0E0HzHzzUU6 6 +}#P}#-n-2z|2v6zv6CMCMѡ:,:,%FA%Fd[_d[xxbݢb``"&L&x 4M44EMͣ 4EYNMYN/M /kM-k%MK%zizwzjw jwdMdEMϤ EMM(z(z)Dy||B٥B MM1 ) MG) MX %Mi%nMndҦd{ {M#y5M/y5o7Jo78g 8zHMuzHMç *M*M M)M:  MK 3"Me3"4K 4KPMPNMǨN#Ykk88R 0R J2ǪJ2C>C>>2 >XGMIXGXM^ X`Ms`lrM lr|M|M :M:,M4 ,QMaQpM{ pNMNd9Md9:: 2: 2:k:Fk:y:}y:S:S:::Y: Y:X:M'X::M@::y: : :W:MͮW:;Mݮ ; ;M ;4-;M4-;1;z 1;>;z>;PK;z3PK;([;h([;`; `;/g;M¯/g;߂;M߂;ޣ;ޣ;/;=/;;q;s; s;Q;M°Q;;Mذ;< <V <M V <(<M9(<+<+<O:< O:< @<Mȱ @<JD<Mر JD<(L<M(L<i<M i<Ov<M Ov<<M@ <<M`< =Mv  ==M==M =R=MR==Mղ =D=MD=>M >>M8>*?Md*?-?z-?D>?zD>?O?zO?_?z_?~p?z~p?y?׳y?X? X??M ??M ??J?$?m$?K @K @I@ϴI@&O@&O@]@]@\b@z0\b@oz@` oz@@M@܋@M ܋@"@M"@@M͵ @ @M @6AM6AIA,IAvANvAApA B B-BM-BY9BMŶY9BJB JB`SBM%`SB;_BM: ;_BeBMOeBsBMesBBBoB oBBMӷBHBM HBBMBCM CCMCHCM,HCC] C5CM{5CCM CCMǸCECMEC C7 CUDn UD DM DaDMaDdDdDmDmDDD? E=? EEsEEEcEƺcEE EcEMcEEM EEM-ECEM=CEEgEEz E6FM6FHGMHGnGnG,Gzǻ ,G^0GMԻ^0G֩GM֩GWG WGGPG H H&H&HSCHSCHDH*DHeH_eHčHčHHŽHHHIIINIĤI ĤI[IM[IIMII̾ IIMܾIIM IIMIJM+JJpJ8#J8#JY0J Y0J]7JM ]7JeJMeJjJSjJJJJzJJzJJz J KM K`dKM `dKjKM jKxKMxK~Kz5 ~K|KMA|KKMZ KKMsKKM KKMK7KM 7KKMKKM KKMKKMKl3Mx l3M9MM@9M CMMU CMIMMjIMSMM SMZMMZM9fMM 9fM=mMM=mMxMMxMNMGANX0K *H <081 0 +0L +7>0<0 +70 0!0 +D/`bc(000  *H  010U Solinges0 250919141440Z 280918141440Z010U Solinges0"0  *H 0 UI{qLyqhfBOW623,U }dskO.@MV~*Bk^7}3VdF;#UuO=ܤmP-X38JM0۸E ?Ã<ȒpEm[%D(ֻq{5/qV԰u귟$=7KK;!!o8Ws_˸gh ;f/~;L\+z, !ws^FK!Oœғz)03> 2hi,IlaZܵPp.1Lݬ.lo/rEYJ!'wjGZ錆jb7 9XK^l7qhG(N۶WRǾf\?1e#۴XhX.y'^m4 DCB܍5c4"dI b2'C\-Yktisgc =z=q7V1ś^_..k4ZCF4~Є`J1 Rn*#G$LA+'YLUK `|RoAPӄFgIc3irVPBs+e3(0 #v|B!̐^'ENAHWO1qxv I$03(xN\Lo1-R 100010U Solinges0 +x0 +7 1 00 *H  1  +70 +7 10  +70# *H  1&hz}#0  *H 6 0ER%XB7rR'#i&j^]q]71jOvS̔^ P ( .X¬\_Q5%S2- 'aV4*XvNKֈn`N#nnk !`Q-7j"]ft`*5ʽsE1Mߖs~#0_W!eJ%>5 rh=[P^aCe%8X2הt;p$=6ܸ5 u*ZU8? |;R1f攜V Jh! ^Wq kt߬eWK"dNBV~XeWw3+ i(8k^?gdk®/t\tlhbh(H'Z Q9ZD6bZbT:iEh<(/H|_J4 dHs":BJzKN~(HDNO׬6-0/'^ +Ek25ƟWDZ